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

*
* $Id$
*
* $Log$
* Revision 1.1.2.1  2002/07/11 17:14:48  alibrary
* Adding MICROCERN
*
* Revision 1.1.1.1  1999/05/18 15:55:32  fca
* AliRoot sources
*
* Revision 1.1.1.1  1996/02/15 17:50:15  mclareni
* Kernlib
*
*
#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
fe4da5cc	1	*
	2	* $Id$
	3	*
	4	* $Log$
b9d0a01d	5	* Revision 1.1.2.1 2002/07/11 17:14:48 alibrary
	6	* Adding MICROCERN
	7	*
	8	* Revision 1.1.1.1 1999/05/18 15:55:32 fca
	9	* AliRoot sources
	10	*
fe4da5cc	11	* Revision 1.1.1.1 1996/02/15 17:50:15 mclareni
	12	* Kernlib
	13	*
	14	*
	15	#include "kerngen/pilot.h"
	16	SUBROUTINE UFILL (IV,JL,JR,ISTUFF)
	17	C
	18	C CERN PROGLIB# V300 UFILL .VERSION KERNFOR 1.0 710701
	19	C ORIG. 01/07/71 JZ
	20	C
	21	DIMENSION IV(*)
	22	C
	23	ITEXT=ISTUFF
	24	DO 29 J=JL,JR
	25	29 IV(J)=ITEXT
	26	RETURN
	27	END