This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgen / cfill.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/02/15 17:49:42 mclareni
6* Kernlib
7*
8*
9#include "kerngen/pilot.h"
10 SUBROUTINE CFILL (CHI, CHV,JL,JR)
11C
12C CERN PROGLIB# M432 CFILL .VERSION KERNFOR 4.21 890323
13C ORIG. 06/02/89, JZ
14C
15C- Fill CHV(JL:JR) with as many copies of CHI as possible
16
17 CHARACTER CHV*(*), CHI*(*)
18
19 NI = LEN (CHI)
20 JJ = JL
21
22 12 II = 1
23 14 IF (JJ.GT.JR) RETURN
24 CHV(JJ:JJ) = CHI(II:II)
25 JJ = JJ + 1
26 IF (II.EQ.NI) GO TO 12
27 II = II + 1
28 GO TO 14
29 END