Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MICROCERN / cfill.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
b9d0a01d 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*
fe4da5cc 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)
17C
18C CERN PROGLIB# M432 CFILL .VERSION KERNFOR 4.21 890323
19C ORIG. 06/02/89, JZ
20C
21C- 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