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

*
* $Id$
*
* $Log$
* Revision 1.2.4.1  2002/11/26 16:46:57  hristov
* Merging NewIO with v3-09-04
*
* Revision 1.2  2002/10/14 14:57:11  hristov
* Merging the VirtualMC branch to the main development branch (HEAD)
*
* 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$
88cb7938	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	*
b9d0a01d	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	*
fe4da5cc	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