TRAILZ

 TRAILZ (integer)

 Class:  Elemental function - Generic

 Returns the number of trailing zeros in the binary representation
 of the integer argument.  The result type is the same as the
 argument.

 Example:

 Consider the following:

   INTEGER*8 J, TWO
   PARAMETER (TWO=2)
   DO J= -1, 40
     TYPE *, TRAILZ(TWO**J)  ! Prints 64, then 0 up to
   ENDDO                     !   40 (trailing zeros)
   END