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