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

  ISHFTC (a1,a2,a3)

  Bitwise circular shift - a1 is an integer, a2 is no-of-positions,
  and a3 is no-of-bits

  A function that circularly shifts the rightmost a3 bits of a1 by a2
  places; bits in a1 beyond the value specified by a3 are unaffected.
  The bits pushed off the left end replace those shifted from the
  right end.
  +------+---------+----------+------------+-------------+
  | Args | Generic | Specific |  Argument  | Result Type |
  +------+---------+----------+------------+-------------+
  |  3   | ISHFTC  | IISHFTC  | INTEGER*2  | INTEGER*2   |
  |      |         | JISHFTC  | INTEGER*4  | INTEGER*4   |
  +------+---------+----------+------------+-------------+