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

*
* $Id$
*
* $Log$
* Revision 1.1.2.1  2002/07/11 17:14:48  alibrary
* Adding MICROCERN
*
* Revision 1.1.1.1  1999/05/18 15:55:29  fca
* AliRoot sources
*
* Revision 1.1.1.1  1996/02/15 17:49:42  mclareni
* Kernlib
*
*
#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
	1	*
	2	* $Id$
	3	*
	4	* $Log$
	5	* Revision 1.1.2.1 2002/07/11 17:14:48 alibrary
	6	* Adding MICROCERN
	7	*
	8	* Revision 1.1.1.1 1999/05/18 15:55:29 fca
	9	* AliRoot sources
	10	*
	11	* Revision 1.1.1.1 1996/02/15 17:49:42 mclareni
	12	* Kernlib
	13	*
	14	*
	15	#include "kerngen/pilot.h"
	16	SUBROUTINE CFILL (CHI, CHV,JL,JR)
	17	C
	18	C CERN PROGLIB# M432 CFILL .VERSION KERNFOR 4.21 890323
	19	C ORIG. 06/02/89, JZ
	20	C
	21	C- Fill CHV(JL:JR) with as many copies of CHI as possible
	22
	23	CHARACTER CHV(), CHI()
	24
	25	NI = LEN (CHI)
	26	JJ = JL
	27
	28	12 II = 1
	29	14 IF (JJ.GT.JR) RETURN
	30	CHV(JJ:JJ) = CHI(II:II)
	31	JJ = JJ + 1
	32	IF (II.EQ.NI) GO TO 12
	33	II = II + 1
	34	GO TO 14
	35	END