8.14 ALL — Все значения в MASK по DIM равны true

Описание:

ALL(MASK [, DIM]) определяет, все ли значения равны true в MASK в массиве по размерности DIM.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = ALL(MASK [, DIM])

Аргументы:

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

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

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

(A): ALL(MASK) является true, если все элементы MASK равны true. Она также равна true, если MASK имеет нулевой размер; в противном случае она равна false.
(B): Если ранг MASK равен единице, то ALL(MASK,DIM) эквивалентно ALL(MASK). Если ранг больше единицы, то ALL(MASK,DIM) определяется путем применения ALL к разделам массива.

Пример:

program test_all
  logical l
  l = all((/.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 *, all(a .eq. b, 1)
      print *, all(a .eq. b, 2)
    end subroutine section
end program test_all

© Free Software Foundation
Licensed under the GNU Free Documentation License, Version 1.3.
https://gcc.gnu.org/onlinedocs/gcc-14.2.0/gfortran/ALL.html