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

#include "isajet/pilot.h"
      SUBROUTINE RANFST(SEED)
C
C          Set seed for RANF() from 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 RANSET(SEED)
#endif
#if defined(CERNLIB_CRAY)
      INTEGER ISEED
      ISEED=SEED
      CALL RANSET(ISEED)
#endif
      RETURN
      END
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	SUBROUTINE RANFST(SEED)
	3	C
	4	C Set seed for RANF() from 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 RANSET(SEED)
	17	#endif
	18	#if defined(CERNLIB_CRAY)
	19	INTEGER ISEED
	20	ISEED=SEED
	21	CALL RANSET(ISEED)
	22	#endif
	23	RETURN
	24	END