9.145 IPARITY — Битовое XOR элементов массива

Описание:

Вычисляет битовое XOR (исключающее ИЛИ) элементов массива ARRAY по размерности DIM, если соответствующий элемент в MASK равен TRUE.

Стандарт:

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

Класс:

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

Синтаксис:

RESULT = IPARITY(ARRAY[, MASK])

RESULT = IPARITY(ARRAY, DIM[, MASK])

Аргументы:

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

Значение возврата:

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

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

Пример:

PROGRAM test_iparity
  INTEGER(1) :: a(2)

  a(1) = b'00100100'
  a(2) = b'01101010'

  ! prints 01001110
  PRINT '(b8.8)', IPARITY(a)
END PROGRAM

См. также:

IANY, IALL, IEOR, PARITY