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

   1       SUBROUTINE IZBCDT (NP,ITABT)
   2
   3 #include "zebra/quest.inc"
   4 #include "zebra/zceta.inc"
   5 #include "zebra/zkrakc.inc"
   6 C--------------    END CDE                             --------------
   7       DIMENSION    NP(9), ITABT(99)
   8
   9 #include "zebra/q_shiftr.inc"
  10
  11       N     = NP(1)
  12       LIM   = ITABT(1)
  13       JGOOD = 0
  14       JBAD  = 0
  15
  16       DO 29  JWH=1,N
  17       JV = ISHFTR (IQHOLK(JWH),24)
  18       JV = IQTCET(JV+1)
  19       IF (JV.GT.LIM)               GO TO 27
  20       JV = ITABT(JV+1)
  21       IF   (JV+1)            29, 27, 24
  22    24 JGOOD = JGOOD + 1
  23       IQCETK(JGOOD) = JV
  24       GO TO 29
  25
  26    27 JBAD = JBAD + 1
  27    29 CONTINUE
  28       IQUEST(1) = JGOOD
  29       IQUEST(2) = JBAD
  30       RETURN
  31       END