[u/mrichter/AliRoot.git] / HIJING / hijing1_36 / aran9.F

* $Id$
C
C
      SUBROUTINE ARAN9(QRAN,NDIM)
      DIMENSION QRAN(10)
      DO 1 I=1,NDIM
    1 QRAN(I)=RLU_HIJING(0)
      RETURN
      END
Commit	Line	Data
e74335a4	1	* $Id$
	2	C
	3	C
	4	SUBROUTINE ARAN9(QRAN,NDIM)
	5	DIMENSION QRAN(10)
	6	DO 1 I=1,NDIM
	7	1 QRAN(I)=RLU_HIJING(0)
	8	RETURN
	9	END