POPPAR (3sciport)

Computes bit parity

SYNOPSIS

  i = POPPAR( arg )

FUNCTION VALUE

  poppar          Integer.
                  The parity of one bits found in arg, one if odd, zero if
                  even.

ARGUMENTS

  arg             Integer, Logical, or Real.
                  The 64 bit input argument.

DESCRIPTION

  The external integer function POPPAR returns the parity of ones found in
  arg. POPPAR returns zero if POPCNT( arg ) is even and one if POPCNT( arg )
  is odd.

  For equations and other information, see Volume 3: UNICOS Math and
  Scientific Library Reference Manual SR-2081 7.0, Cray Research, Inc.

NOTES

  Since POPPAR is not an ANSI Fortran 77 intrinsic function, it must be
  declared as an external function of type integer. For example:

          EXTERNAL POPPAR
          INTEGER  POPPAR
          ...
          I = POPPAR( 'CCCCCCCCCCCCCCCC'X )       ! Same as I = 0