LEADZ (3sciport)

Counts the number of leading 0 bits

SYNOPSIS

  i = LEADZ( arg )

FUNCTION VALUE

  leadz           Integer.
                  The number of leading zeros found in arg

ARGUMENTS

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

DESCRIPTION

  The external integer function LEADZ returns the count of leading zeros
  found in arg.

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

NOTES

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

          EXTERNAL LEADZ
          INTEGER  LEADZ
          ...
          I = LEADZ( '7FFFFFFFFFFFFFFF'X )        ! Same as I = 1