5 * Revision 1.1.1.1 1996/02/15 17:49:45 mclareni
9 #include "kerngen/pilot.h"
10 FUNCTION ICFMUL (CHI, CHV,JLP,JRP)
12 C CERN PROGLIB# M432 ICFMUL .VERSION KERNFOR 4.21 890323
15 C- Find first occurrence of any of CHI(j:j) in CHV(JL:JR)
17 DIMENSION JLP(9), JRP(9)
19 COMMON /SLATE/ NDSLAT,NESLAT,NFSLAT,NGSLAT, DUMMY(36)
20 CHARACTER CHV*(*), CHI*(*)
25 11 IF (JJ.GT.JR) GO TO 19
26 JTH = INDEX (CHI,CHV(JJ:JJ))