9.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 опущена.

(А)

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

(Б)

Если ранг 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