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