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

[u/mrichter/AliRoot.git] / MINICERN / packlib / zebra / tq / tzacw.F

diff --git a/MINICERN/packlib/zebra/tq/tzacw.F b/MINICERN/packlib/zebra/tq/tzacw.F
deleted file mode 100644 (file)
index 065c363..0000000
--- a/MINICERN/packlib/zebra/tq/tzacw.F
+++ /dev/null
@@ -1,47 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/03/06 10:47:27  mclareni
-* Zebra
-*
-*
-#include "zebra/pilot.h"
-      SUBROUTINE TZACW (TEXT)
-
-C-    Krack  A[n][C][W]  for TZINIT and TZFREE
-
-#include "zebra/zmach.inc"
-#include "zebra/tzc1.inc"
-C--------------    END CDE                             -----------------
-      COMMON /SLATE/ NDSLAT,NESLAT,NFSLAT,NGSLAT,DUMMY(36)
-      CHARACTER    TEXT*(*)
-      DIMENSION    IFLHOL(2)
-      EQUIVALENCE (IFLHOL(1),IFLHC)
-
-
-      JE = LEN (TEXT)
-      IF (JE.EQ.1)  THEN
-          NCHPW = IQCHAW
-          RETURN
-        ENDIF
-
-      NCHPW = ICDECI (TEXT,2,JE)
-      JA    = NESLAT
-      IF (NCHPW.EQ.0)  NCHPW = IQCHAW
-      NCHPW = MIN (NCHPW,IQCHAW)
-      IF (JA.GT.JE)                RETURN
-      CALL CLTOU (TEXT)
-
-   24 J = INDEX('CW',TEXT(JA:JA))
-      IF (J.EQ.0)                  GO TO 92
-      IFLHOL(J) = 1
-      JA = JA + 1
-      IF (JA.GT.JE)                RETURN
-      GO TO 24
-
-C--       Trouble
-
-   92 NCHPW = -JA
-      RETURN
-      END