POPPAR (integer*8)

  Class:  Elemental function - Generic

  A function that returns parity of an integer.  The result value is
  one if there are an odd number of 1 bits in the binary
  representation of the integer argument and zero if there are an
  even number.  The result type is the same as the argument.

  Example:

  If the value of I is B'0...00011010110', the value of POPPAR(I) is
  1.