VMS Help FORTRAN, Intrinsic Procedures, ISHFT  *Conan The Librarian (sorry for the slow response - running on an old VAX)

  ISHFT (a1,a2)

  Bitwise logical shift - a1 is an integer, a2 is the no-of-positions

  A function that logically shifts a1 left (if a2 is positive) or
  right (if a2 is negative) by ABS(a2) bits.  If ABS(a2) is greater
  than or equal to the length in bits of a1, the result is 0.
  +------+---------+----------+------------+-------------+
  | Args | Generic | Specific |  Argument  | Result Type |
  +------+---------+----------+------------+-------------+
  |  2   |  ISHFT  | IISHFT   | INTEGER*2  | INTEGER*2   |
  |      |         | JISHFT   | INTEGER*4  | INTEGER*4   |
  +------+---------+----------+------------+-------------+