[u/mrichter/AliRoot.git] / ISAJET / code / ranfgt.F

#include "isajet/pilot.h"
      SUBROUTINE RANFGT(SEED)
C
C          Get seed for RANF() in real or double precision SEED.
C
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#if defined(CERNLIB_SINGLE)
      REAL SEED
#endif
#if defined(CERNLIB_DOUBLE)
      DOUBLE PRECISION SEED
#endif
#if defined(CERNLIB_RANFCALL)
      CALL RANGET(SEED)
#endif
#if defined(CERNLIB_CRAY)
      INTEGER ISEED,RANGET,IDUMMY
      ISEED=RANGET(IDUMMY)
      SEED=ISEED
#endif
      RETURN
      END
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	SUBROUTINE RANFGT(SEED)
	3	C
	4	C Get seed for RANF() in real or double precision SEED.
	5	C
	6	#if defined(CERNLIB_IMPNONE)
	7	IMPLICIT NONE
	8	#endif
	9	#if defined(CERNLIB_SINGLE)
	10	REAL SEED
	11	#endif
	12	#if defined(CERNLIB_DOUBLE)
	13	DOUBLE PRECISION SEED
	14	#endif
	15	#if defined(CERNLIB_RANFCALL)
	16	CALL RANGET(SEED)
	17	#endif
	18	#if defined(CERNLIB_CRAY)
	19	INTEGER ISEED,RANGET,IDUMMY
	20	ISEED=RANGET(IDUMMY)
	21	SEED=ISEED
	22	#endif
	23	RETURN
	24	END