8.213 PARITY — Сведение с помощью исключающего ИЛИ

Описание:

Вычисляет чётность, т.е. сведение с помощью .XOR., массива MASK по размерности DIM.

Стандарт:

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

Класс:

Трансформационная функция

Синтаксис:

RESULT = PARITY(MASK[, DIM])

Аргументы:

`MASK`	Должен быть массивом типа `LOGICAL`
`DIM`	(Необязательно) должен быть скаляром типа `INTEGER` со значением в диапазоне от 1 до n, где n равно рангу `MASK`.

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

Результат имеет тот же тип, что и MASK.

Если DIM отсутствует, возвращается скаляр с чётностью всех элементов в MASK, т.е. true, если нечётное число элементов .true. и false в противном случае. Если DIM присутствует, возвращается массив ранга n-1, где n равно рангу ARRAY, и форма, подобная форме MASK, с опущенной размерностью DIM.

Пример:

PROGRAM test_sum
  LOGICAL :: x(2) = [ .true., .false. ]
  print *, PARITY(x) ! prints "T" (true).
END PROGRAM

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