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