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

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