9.204 PARITY — Вычисление побитового исключающего ИЛИ

Описание:

Вычисляет чётность, т.е. результат операции побитового исключающего ИЛИ, массива MASK по размерности DIM.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = PARITY(MASK[, DIM])

Аргументы:

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

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

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

Если DIM отсутствует, возвращается скаляр, представляющий чётность всех элементов в MASK, т.е. 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