SUBROUTINE IZHNUM (HOLL,INTV,NP)

      INTEGER      INTV(99), HOLL(99)


      DO 39  JWH=1,NP
   39 INTV(JWH) = ishft (HOLL(JWH),-56)
      RETURN
      END