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

[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / icloc.F

diff --git a/MINICERN/packlib/kernlib/kerngen/tcgen/icloc.F b/MINICERN/packlib/kernlib/kerngen/tcgen/icloc.F
deleted file mode 100644 (file)
index e5278f3..0000000
--- a/MINICERN/packlib/kernlib/kerngen/tcgen/icloc.F
+++ /dev/null
@@ -1,42 +0,0 @@
-*
-* $Id$
-*
-* $Log$
-* Revision 1.1.1.1  1996/02/15 17:49:46  mclareni
-* Kernlib
-*
-*
-#include "kerngen/pilot.h"
-      FUNCTION ICLOC (CHI,NI,CHV,JL,JR)
-C
-C CERN PROGLIB# M432    ICLOC           .VERSION KERNFOR  4.21  890323
-C ORIG. 09/02/89, JZ
-C
-C-    Locate CHI of NI characters inside CHV(JL:JR), case sensitive
-
-      CHARACTER    CHI*(*), CHV*(*), CHWK1*1
-
-      JVV   = JL - 1
-      JVVE  = JR+1 - NI
-      CHWK1 = CHI(1:1)
-
-C--          Scan CHV to find the first char. of CHI
-
-   12 JVV = JVV + 1
-      IF (JVV.GT.JVVE)                GO TO 90
-      IF (CHV(JVV:JVV).NE.CHWK1)      GO TO 12
-
-C--          Match the further characters
-
-      JVX = JVV
-      JI  = 1
-   14 JI  = JI + 1
-      IF (JI.GT.NI)                   GO TO 91
-      JVX = JVX + 1
-      IF (CHV(JVX:JVX).EQ.CHI(JI:JI)) GO TO 14
-      GO TO 12
-
-   90 JVV = 0
-   91 ICLOC = JVV
-      RETURN
-      END