Fortran Wiki
iparity

Description

Reduces with bitwise xor (exclusive or) the elements of array along dimension dim if the corresponding element in mask is true.

Standard

Fortran 2008 and later

Class

Transformational function

Syntax

result = iparity(array[, mask])
result = iparity(array, dim[, mask])

Arguments

array - Shall be an array of type integer
dim - (Optional) shall be a scalar of type integer with a value in the range from $1$ to $n$ , where $n$ equals the rank of array.
mask - (Optional) shall be of type logical and either be a scalar or an array of the same shape as array.

Return value

The result is of the same type as array.

If dim is absent, a scalar with the bitwise xor of all elements in array is returned. Otherwise, an array of rank $n-1$ , where $n$ equals the rank of array, and a shape similar to that of array with dimension dim dropped is returned.

Example

program test_iparity
  integer, dimension(2) :: a

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

  ! prints 01001110
  print '(b8.8)', iparity(a)
end program

Fortran Wiki iparity