MICROCERN/ufill.F

   1 *
   2 * $Id$
   3 *
   4 #include "kerngen/pilot.h"
   5       SUBROUTINE UFILL (IV,JL,JR,ISTUFF)
   6 C
   7 C CERN PROGLIB# V300    UFILL           .VERSION KERNFOR  1.0   710701
   8 C ORIG. 01/07/71 JZ
   9 C
  10       DIMENSION  IV(*)
  11 C
  12       ITEXT=ISTUFF
  13          DO 29 J=JL,JR
  14    29 IV(J)=ITEXT
  15       RETURN
  16       END