[u/mrichter/AliRoot.git] / MICROCERN / ufill.F

*
* $Id$
*
#include "kerngen/pilot.h"
      SUBROUTINE UFILL (IV,JL,JR,ISTUFF)
C
C CERN PROGLIB# V300    UFILL           .VERSION KERNFOR  1.0   710701
C ORIG. 01/07/71 JZ
C
      DIMENSION  IV(*)
C
      ITEXT=ISTUFF
         DO 29 J=JL,JR
   29 IV(J)=ITEXT
      RETURN
      END
Commit	Line	Data
	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