MICROCERN/ufill.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:32  fca
   9 * AliRoot sources
  10 *
  11 * Revision 1.1.1.1  1996/02/15 17:50:15  mclareni
  12 * Kernlib
  13 *
  14 *
  15 #include "kerngen/pilot.h"
  16       SUBROUTINE UFILL (IV,JL,JR,ISTUFF)
  17 C
  18 C CERN PROGLIB# V300    UFILL           .VERSION KERNFOR  1.0   710701
  19 C ORIG. 01/07/71 JZ
  20 C
  21       DIMENSION  IV(*)
  22 C
  23       ITEXT=ISTUFF
  24          DO 29 J=JL,JR
  25    29 IV(J)=ITEXT
  26       RETURN
  27       END