MICROCERN/cfill.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.2.4.1  2002/11/26 16:46:57  hristov
   6 * Merging NewIO with v3-09-04
   7 *
   8 * Revision 1.2  2002/10/14 14:57:10  hristov
   9 * Merging the VirtualMC branch to the main development branch (HEAD)
  10 *
  11 * Revision 1.1.2.1  2002/07/11 17:14:48  alibrary
  12 * Adding MICROCERN
  13 *
  14 * Revision 1.1.1.1  1999/05/18 15:55:29  fca
  15 * AliRoot sources
  16 *
  17 * Revision 1.1.1.1  1996/02/15 17:49:42  mclareni
  18 * Kernlib
  19 *
  20 *
  21 #include "kerngen/pilot.h"
  22       SUBROUTINE CFILL (CHI, CHV,JL,JR)
  23 C
  24 C CERN PROGLIB# M432    CFILL           .VERSION KERNFOR  4.21  890323
  25 C ORIG. 06/02/89, JZ
  26 C
  27 C-    Fill CHV(JL:JR) with as many copies of CHI as possible
  28
  29       CHARACTER    CHV*(*), CHI*(*)
  30
  31       NI = LEN (CHI)
  32       JJ = JL
  33
  34    12 II = 1
  35    14 IF (JJ.GT.JR)          RETURN
  36       CHV(JJ:JJ) = CHI(II:II)
  37       JJ = JJ + 1
  38       IF (II.EQ.NI)          GO TO 12
  39       II = II + 1
  40       GO TO 14
  41       END