8.17 ANY — Любое значение в MASK вдоль DIM истинно

Описание:

ANY(MASK [, DIM]) определяет, являются ли какие-либо значения в логическом массиве MASK вдоль размерности DIM .TRUE..

Стандарт:

Fortran 95 и более поздние версии

Класс:

Функция преобразования

Синтаксис:

RESULT = ANY(MASK [, DIM])

Аргументы:

MASK	Тип аргумента должен быть LOGICAL и он не должен быть скаляром.
DIM	(Необязательно) DIM должен быть скалярным целым числом со значением, которое находится в пределах от одного до ранга MASK.

Возвращаемое значение:

ANY(MASK) возвращает скалярное значение типа LOGICAL, где параметр типа kind совпадает с параметром типа kind MASK. Если DIM присутствует, то ANY(MASK, DIM) возвращает массив с рангом MASK минус 1. Форма определяется из формы MASK, где размерность DIM опущена.

(A)

ANY(MASK) истинно, если любой элемент MASK истинен; в противном случае, он ложен. Он также ложен, если MASK имеет нулевой размер.

(B)

Если ранг MASK равен единице, то ANY(MASK,DIM) эквивалентно ANY(MASK). Если ранг больше единицы, то ANY(MASK,DIM) определяется путем применения ANY к массивам срезов.

Пример:

program test_any
  logical l
  l = any((/.true., .true., .true./))
  print *, l
  call section
  contains
    subroutine section
      integer a(2,3), b(2,3)
      a = 1
      b = 1
      b(2,2) = 2
      print *, any(a .eq. b, 1)
      print *, any(a .eq. b, 2)
    end subroutine section
end program test_any