[u/mrichter/AliRoot.git] / MICROCERN / cfill.F

*
* $Id$
*
#include "kerngen/pilot.h"
      SUBROUTINE CFILL (CHI, CHV,JL,JR)
C
C CERN PROGLIB# M432    CFILL           .VERSION KERNFOR  4.21  890323
C ORIG. 06/02/89, JZ
C
C-    Fill CHV(JL:JR) with as many copies of CHI as possible

      CHARACTER    CHV*(*), CHI*(*)

      NI = LEN (CHI)
      JJ = JL

   12 II = 1
   14 IF (JJ.GT.JR)          RETURN
      CHV(JJ:JJ) = CHI(II:II)
      JJ = JJ + 1
      IF (II.EQ.NI)          GO TO 12
      II = II + 1
      GO TO 14
      END
Commit	Line	Data
fe4da5cc	1	*
	2	* $Id$
	3	*
fe4da5cc	4	#include "kerngen/pilot.h"
	5	SUBROUTINE CFILL (CHI, CHV,JL,JR)
	6	C
	7	C CERN PROGLIB# M432 CFILL .VERSION KERNFOR 4.21 890323
	8	C ORIG. 06/02/89, JZ
	9	C
	10	C- Fill CHV(JL:JR) with as many copies of CHI as possible
	11
	12	CHARACTER CHV(), CHI()
	13
	14	NI = LEN (CHI)
	15	JJ = JL
	16
	17	12 II = 1
	18	14 IF (JJ.GT.JR) RETURN
	19	CHV(JJ:JJ) = CHI(II:II)
	20	JJ = JJ + 1
	21	IF (II.EQ.NI) GO TO 12
	22	II = II + 1
	23	GO TO 14
	24	END