Fixing bugs in FMD reconstruction. Everything should work now
[u/mrichter/AliRoot.git] / MICROCERN / cfill.F
1 *
2 * $Id$
3 *
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