This commit was generated by cvs2svn to compensate for changes in r2,

[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qutil / qutyinv / izbcdt.F

diff --git a/MINICERN/packlib/zebra/qutil/qutyinv/izbcdt.F b/MINICERN/packlib/zebra/qutil/qutyinv/izbcdt.F
new file mode 100644 (file)
index 0000000..e0e379e
--- /dev/null
+++ b/MINICERN/packlib/zebra/qutil/qutyinv/izbcdt.F
@@ -0,0 +1,32 @@
+      SUBROUTINE IZBCDT (NP,ITABT)
+
+#include "zebra/quest.inc"
+#include "zebra/zceta.inc"
+#include "zebra/zkrakc.inc"
+C--------------    END CDE                             --------------
+      DIMENSION    NP(9), ITABT(99)
+
+#include "zebra/q_and.inc"
+
+      N     = NP(1)
+      LIM   = ITABT(1)
+      JGOOD = 0
+      JBAD  = 0
+
+      DO 29  JWH=1,N
+      JV = IAND (IQHOLK(JWH),255)
+      JV = IQTCET(JV+1)
+
+      IF (JV.GT.LIM)               GO TO 27
+      JV = ITABT(JV+1)
+      IF   (JV+1)            29, 27, 24
+   24 JGOOD = JGOOD + 1
+      IQCETK(JGOOD) = JV
+      GO TO 29
+
+   27 JBAD = JBAD + 1
+   29 CONTINUE
+      IQUEST(1) = JGOOD
+      IQUEST(2) = JBAD
+      RETURN
+      END