4 #include "kerngen/pilot.h"
5 SUBROUTINE CFILL (CHI, CHV,JL,JR)
7 C CERN PROGLIB# M432 CFILL .VERSION KERNFOR 4.21 890323
10 C- Fill CHV(JL:JR) with as many copies of CHI as possible
12 CHARACTER CHV*(*), CHI*(*)
18 14 IF (JJ.GT.JR) RETURN
19 CHV(JJ:JJ) = CHI(II:II)
21 IF (II.EQ.NI) GO TO 12