shiftl(3I)

NAME
     SHIFTL - Performs a left shift with zero fill

SYNOPSIS
     SHIFTL ([I=]i,[J=]j)

IMPLEMENTATION
     UNICOS, UNICOS/mk, and IRIX systems

STANDARDS
     CF90 and MIPSpro 7 Fortran 90 compiler extension to Fortran 90

DESCRIPTION
     The SHIFTL intrinsic function performs a left shift with zero fill of
     i by j bits.  It accepts the following arguments:

     i    The value to be shifted.  i can be of type Boolean, integer,
          real, or Cray pointer.

     j    The number of bits to shift the value.  Must be of type integer
          or Boolean.  j must be within the range 0 <= j <=size, where size
          is the size, in bits, of i.  That is, if i is a 64-bit object, j
          must be within the range 0 <= j <= 64.

     On UNICOS systems, an object is 64 bits.  On UNICOS/mk systems, an
     object is 32 bits or 64 bits.  On IRIX systems, an object is 8 bits,
     16 bits, 32 bits, or 64 bits.

     SHIFTL is an elemental function.  The name of this intrinsic cannot be
     passed as an argument.

NOTES
     This is an outmoded routine.  Refer to the Fortran Language Reference
     Manual, Volume 2, publication SR-3903, for information about outmoded
     features and their preferred standard alternatives.

     The bit representation of the logical data type is not consistent
     among Cray Research systems.  For further details, see your compiler's
     reference manuals.

RETURN VALUES
     SHIFTL returns a value of type Boolean on UNICOS and UNICOS/mk
     systems.  It returns an integer result on IRIX systems.

EXAMPLES
     The following section of Fortran code shows the SHIFTL function used
     in the case where i is of type integer.  The bit pattern of i and the
     bit pattern of the result are also given.  For simplicity, a 16-bit
     object is used.

          INTEGER I1, I2, I3
          ...
          I2 = 5
          I3 = SHIFTL(I1,I2)

           ---------------------------------------------------------------
          | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
           ---------------------------------------------------------------
                                      I1 (i)

           ---------------------------------------------------------------
          | 1 | 1 | 1 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 | 0 |
           ---------------------------------------------------------------
                                      I3 (result)

SEE ALSO
     Intrinsic Procedures Reference Manual, publication SR-2138, for the
     printed version of this man page.