This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / MINICERN / packlib / kernlib / kerngen / tcgens / ufill.F
CommitLineData
fe4da5cc 1*
2* $Id$
3*
4* $Log$
5* Revision 1.1.1.1 1996/02/15 17:50:15 mclareni
6* Kernlib
7*
8*
9#include "kerngen/pilot.h"
10 SUBROUTINE UFILL (IV,JL,JR,ISTUFF)
11C
12C CERN PROGLIB# V300 UFILL .VERSION KERNFOR 1.0 710701
13C ORIG. 01/07/71 JZ
14C
15 DIMENSION IV(*)
16C
17 ITEXT=ISTUFF
18 DO 29 J=JL,JR
19 29 IV(J)=ITEXT
20 RETURN
21 END