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

  MVBITS (integer1, start1, len, integer2, start2)

  A subroutine that moves bits from one location to another.  Specify
  the arguments as follows:

  integer1   An integer variable or array element that contains
             the bits to be transferred.

  start1     An integer expression that identifies the position
             of the first bit within integer1 to be transferred.

  len        An integer expression that specifies the number of
             bits to be transferred.

  integer2   An integer variable or array element that identifies
             the location to which the bits are being transferred.

  start2     An integer expression that identifies the starting
             position within integer2 for the bits being transferred.

  The low-order bit in either integer is position 0.  The last bit
  position in either integer must not exceed 31.