MINICERN/packlib/zebra/qutil/qutyinv/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_and.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 = IAND (IQHOLK(JWH),255)
  18       JV = IQTCET(JV+1)
  19
  20       IF (JV.GT.LIM)               GO TO 27
  21       JV = ITABT(JV+1)
  22       IF   (JV+1)            29, 27, 24
  23    24 JGOOD = JGOOD + 1
  24       IQCETK(JGOOD) = JV
  25       GO TO 29
  26
  27    27 JBAD = JBAD + 1
  28    29 CONTINUE
  29       IQUEST(1) = JGOOD
  30       IQUEST(2) = JBAD
  31       RETURN
  32       END