Coverity fix
[u/mrichter/AliRoot.git] / 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