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

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

diff --git a/MINICERN/packlib/zebra/qutil/nzlong.F b/MINICERN/packlib/zebra/qutil/nzlong.F
deleted file mode 100644 (file)
index e620a2f..0000000
--- a/MINICERN/packlib/zebra/qutil/nzlong.F
+++ /dev/null
@@ -1,58 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.2  1996/04/18 16:13:41  mclareni
-* Incorporate changes from J.Zoll for version 3.77
-*
-* Revision 1.1.1.1  1996/03/06 10:47:15  mclareni
-* Zebra
-*
-*
-#include "zebra/pilot.h"
-      FUNCTION NZLONG (IXSTOR,LGO,NTEXT,ITEXT,JWORD)
-
-C-    FIND AND COUNT ALL BANKS CONTAINING ITEXT(1-NTEXT)
-C-    IN WORDS JWORD, .., JWORD+NTEXT-1
-C-    SEARCH LINEAR STRUCTURE STARTING WITH BANK AT LGO
-C-    RETURN COUNT AS VALUE, BANK ADRS IN IQUEST
-
-#include "zebra/q.inc"
-#include "zebra/quest.inc"
-C--------------    END CDE                             --------------
-      DIMENSION    ITEXT(9)
-
-#include "zebra/q_jbyt.inc"
-
-#include "zebra/qstore.inc"
-
-      NCOUNT = 0
-      N2     = NTEXT  - 2
-      L      = LGO
-      IF (L.EQ.0)                    GO TO 39
-      IF (IQ(KQS+L+JWORD).EQ.ITEXT(1))  GO TO 24
-
-   21 L = LQ(KQS+L)
-      IF (L.EQ.0)                    GO TO 39
-      IF (IQ(KQS+L+JWORD).NE.ITEXT(1))  GO TO 21
-
-   24 IF  (N2)               29, 28, 26
-
-   26 LB = L + JWORD - 1
-      DO 27 J=2,NTEXT
-      IF (IQ(KQS+LB+J).NE.ITEXT(J))     GO TO 21
-   27 CONTINUE
-      GO TO 29
-
-   28 IF (IQ(KQS+L+JWORD+1).NE.ITEXT(2))  GO TO 21
-
-   29 NCOUNT = NCOUNT + 1
-      IF (NCOUNT.GE.101)           GO TO 21
-      IQUEST(NCOUNT) = L
-      GO TO 21
-
-   39 NZLONG = NCOUNT
-      RETURN
-      END
-*      ==================================================
-#include "zebra/qcardl.inc"