VMS Help  —  FORTRAN  Intrinsic Procedures, ISHL
  ISHL (integer, shift)

  Class:  Elemental function - Generic

  Logically shifts an integer left or right by the specified bits.
  Zeros are shifted in from the opposite end.

  The "shift" is of type integer; it is the direction and distance of
  shift.

  Unlike circular or arithmetic shifts, which can shift ones into the
  number being shifted, logical shifts shift in zeros only,
  regardless of the direction or size of the shift.  The integer
  kind, however, still determines the end that bits are shifted out
  of, which can make a difference in the result (see the following
  example).

  Examples:

  Consider the following:

    INTEGER(1) i, res1
    INTEGER(2) j, res2
    i = 10                ! equal to  00001010
    j = 10                ! equal to  00000000 00001010
    res1  = ISHL (i, 5)   ! returns 01000000 = 64
    res2  = ISHL (j, 5)   ! returns 00000001 01000000 = 320
Close Help