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

   1       SUBROUTINE IZCHAV (NP)
   2
   3 #include "zebra/zceta.inc"
   4 #include "zebra/zkrakc.inc"
   5 C--------------    END CDE                             --------------
   6       DIMENSION    NP(9)
   7
   8 #include "zebra/q_and.inc"
   9 #include "zebra/q_shiftr.inc"
  10
  11       N   = ISHFTR (NP(1)+3, 2)
  12       JCE = 0
  13
  14       DO 29  JWH=1,N
  15       MWH = IQHOLK(JWH)
  16
  17       JV  = ISHFTR (MWH,24)
  18       IQCETK(JCE+1) = IQCETA(JV+1)
  19
  20       JV  = IAND (ISHFTR(MWH,16), 255)
  21       IQCETK(JCE+2) = IQCETA(JV+1)
  22
  23       JV  = IAND (ISHFTR(MWH,8),  255)
  24       IQCETK(JCE+3) = IQCETA(JV+1)
  25
  26       JV  = IAND (MWH, 255)
  27       IQCETK(JCE+4) = IQCETA(JV+1)
  28    29 JCE = JCE + 4
  29       RETURN
  30       END