Coverity fix
[u/mrichter/AliRoot.git] / MICROCERN / cfill.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
fe4da5cc 4#include "kerngen/pilot.h"
5 SUBROUTINE CFILL (CHI, CHV,JL,JR)
6C
7C CERN PROGLIB# M432 CFILL .VERSION KERNFOR 4.21 890323
8C ORIG. 06/02/89, JZ
9C
10C- 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