Merging the VirtualMC branch to the main development branch (HEAD)

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

diff --git a/MINICERN/packlib/zebra/qutil/qutyinv/zhtoi.F b/MINICERN/packlib/zebra/qutil/qutyinv/zhtoi.F
deleted file mode 100644 (file)
index 2aebc01..0000000
--- a/MINICERN/packlib/zebra/qutil/qutyinv/zhtoi.F
+++ /dev/null
@@ -1,26 +0,0 @@
-      SUBROUTINE ZHTOI (HOLL,INTV,NP)
-
-#include "zebra/zceta.inc"
-C--------------    END CDE                             --------------
-      INTEGER      INTV(99), HOLL(99)
-
-#include "zebra/q_and.inc"
-#include "zebra/q_or.inc"
-
-      DO 39  JWH=1,NP
-      MWH  = HOLL(JWH)
-      INTW = 0
-
-      DO 29  JL=1,4
-      INTW = ISHFT (INTW,-6)
-      JV   = IAND (MWH,255)
-      IF (JV.EQ.32)  THEN
-          IF (JL.NE.1)             GO TO 29
-        ENDIF
-      JV   = IQTCET(JV+1)
-      INTW = IOR (INTW,ISHFT(JV,18))
-   29 MWH  = ISHFT (MWH,-8)
-
-   39 INTV(JWH) = INTW
-      RETURN
-      END