MINICERN/packlib/zebra/qutil/qutyinv/zitoh.F

   1       SUBROUTINE ZITOH (INTV,HOLL,NP)
   2
   3 #include "zebra/zbcd.inc"
   4 C--------------    END CDE                             --------------
   5       INTEGER      INTV(99), HOLL(99)
   6
   7 #include "zebra/q_and.inc"
   8 #include "zebra/q_or.inc"
   9
  10       DO 39  JWH=1,NP
  11       INTW = INTV(JWH)
  12       MWH  = 0
  13
  14       DO 29  JL=1,4
  15       MWH  = ISHFT (MWH,-8)
  16       JV   = IAND (INTW,63)
  17       MWH  = IOR (MWH, ISHFT(NQHOLL(JV),24))
  18    29 INTW = ISHFT (INTW,-6)
  19
  20    39 HOLL(JWH) = MWH
  21       RETURN
  22       END