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

[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / qutil / qutyz32 / izbcdv.F

diff --git a/MINICERN/packlib/zebra/qutil/qutyz32/izbcdv.F b/MINICERN/packlib/zebra/qutil/qutyz32/izbcdv.F
new file mode 100644 (file)
index 0000000..3f77b91
--- /dev/null
+++ b/MINICERN/packlib/zebra/qutil/qutyz32/izbcdv.F
@@ -0,0 +1,16 @@
+      SUBROUTINE IZBCDV (NP)
+
+#include "zebra/zceta.inc"
+#include "zebra/zkrakc.inc"
+
+      DIMENSION    NP(9)
+
+#include "zebra/q_shiftr.inc"
+
+      N = NP(1)
+
+      DO 29  JWH=1,N
+      JV = ISHFTR (IQHOLK(JWH),24)
+   29 IQCETK(JWH) = IQCETA(JV+1)
+      RETURN
+      END