Merging the VirtualMC branch to the main development branch (HEAD)
[u/mrichter/AliRoot.git] / MICROCERN / cfill.F
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