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

*
* $Id$
*
* $Log$
* Revision 1.1.1.1  1996/02/15 17:49:45  mclareni
* Kernlib
*
*
#include "kerngen/pilot.h"
      FUNCTION ICFMUL (CHI, CHV,JLP,JRP)
C
C CERN PROGLIB# M432    ICFMUL          .VERSION KERNFOR  4.21  890323
C ORIG. 04/10/88, JZ
C
C-    Find first occurrence of any of CHI(j:j) in CHV(JL:JR)

      DIMENSION    JLP(9), JRP(9)

      COMMON /SLATE/ NDSLAT,NESLAT,NFSLAT,NGSLAT, DUMMY(36)
      CHARACTER    CHV*(*), CHI*(*)

      JJ = JLP(1)
      JR = JRP(1)

   11 IF (JJ.GT.JR)          GO TO 19
      JTH = INDEX (CHI,CHV(JJ:JJ))
      IF (JTH.EQ.0)  THEN
          JJ = JJ + 1
          GO TO 11
        ENDIF
      NDSLAT = JTH
      NGSLAT = JJ
      ICFMUL = JJ
      RETURN

   19 NDSLAT = 0
      NGSLAT = 0
      ICFMUL = JR+1
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.1.1 1996/02/15 17:49:45 mclareni
	6	* Kernlib
	7	*
	8	*
	9	#include "kerngen/pilot.h"
	10	FUNCTION ICFMUL (CHI, CHV,JLP,JRP)
	11	C
	12	C CERN PROGLIB# M432 ICFMUL .VERSION KERNFOR 4.21 890323
	13	C ORIG. 04/10/88, JZ
	14	C
	15	C- Find first occurrence of any of CHI(j:j) in CHV(JL:JR)
	16
	17	DIMENSION JLP(9), JRP(9)
	18
	19	COMMON /SLATE/ NDSLAT,NESLAT,NFSLAT,NGSLAT, DUMMY(36)
	20	CHARACTER CHV(), CHI()
	21
	22	JJ = JLP(1)
	23	JR = JRP(1)
	24
	25	11 IF (JJ.GT.JR) GO TO 19
	26	JTH = INDEX (CHI,CHV(JJ:JJ))
	27	IF (JTH.EQ.0) THEN
	28	JJ = JJ + 1
	29	GO TO 11
	30	ENDIF
	31	NDSLAT = JTH
	32	NGSLAT = JJ
	33	ICFMUL = JJ
	34	RETURN
	35
	36	19 NDSLAT = 0
	37	NGSLAT = 0
	38	ICFMUL = JR+1
	39	RETURN
	40	END