MINICERN/packlib/kernlib/kerngen/tcgen/icloc.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:49:46  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       FUNCTION ICLOC (CHI,NI,CHV,JL,JR)
  11 C
  12 C CERN PROGLIB# M432    ICLOC           .VERSION KERNFOR  4.21  890323
  13 C ORIG. 09/02/89, JZ
  14 C
  15 C-    Locate CHI of NI characters inside CHV(JL:JR), case sensitive
  16
  17       CHARACTER    CHI*(*), CHV*(*), CHWK1*1
  18
  19       JVV   = JL - 1
  20       JVVE  = JR+1 - NI
  21       CHWK1 = CHI(1:1)
  22
  23 C--          Scan CHV to find the first char. of CHI
  24
  25    12 JVV = JVV + 1
  26       IF (JVV.GT.JVVE)                GO TO 90
  27       IF (CHV(JVV:JVV).NE.CHWK1)      GO TO 12
  28
  29 C--          Match the further characters
  30
  31       JVX = JVV
  32       JI  = 1
  33    14 JI  = JI + 1
  34       IF (JI.GT.NI)                   GO TO 91
  35       JVX = JVX + 1
  36       IF (CHV(JVX:JVX).EQ.CHI(JI:JI)) GO TO 14
  37       GO TO 12
  38
  39    90 JVV = 0
  40    91 ICLOC = JVV
  41       RETURN
  42       END