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

   1       SUBROUTINE IZBCDV (NP)
   2
   3 #include "zebra/zceta.inc"
   4 #include "zebra/zkrakc.inc"
   5
   6       DIMENSION    NP(9)
   7
   8 #include "zebra/q_shiftr.inc"
   9
  10       N = NP(1)
  11
  12       DO 29  JWH=1,N
  13       JV = ISHFTR (IQHOLK(JWH),24)
  14    29 IQCETK(JWH) = IQCETA(JV+1)
  15       RETURN
  16       END