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

#include "isajet/pilot.h"
      SUBROUTINE RANFMT
C
C          Get RANF seed and translate it to a character variable
C          to ensure exactly the same seed with a formatted read.
C
#if defined(CERNLIB_IMPNONE)
      IMPLICIT NONE
#endif
#include "isajet/seed.inc"
#if defined(CERNLIB_SINGLE)
*      REAL SEED
#endif
#if defined(CERNLIB_DOUBLE)
*      DOUBLE PRECISION SEED
#endif
*      CALL RANFGT(SEED)
*      WRITE(XSEED,'(E24.15)') SEED
*      READ(XSEED,'(E24.15)') SEED
*      CALL RANFST(SEED)
      RETURN
      END
Commit	Line	Data
0795afa3	1	#include "isajet/pilot.h"
	2	SUBROUTINE RANFMT
	3	C
	4	C Get RANF seed and translate it to a character variable
	5	C to ensure exactly the same seed with a formatted read.
	6	C
	7	#if defined(CERNLIB_IMPNONE)
	8	IMPLICIT NONE
	9	#endif
	10	#include "isajet/seed.inc"
	11	#if defined(CERNLIB_SINGLE)
	12	* REAL SEED
	13	#endif
	14	#if defined(CERNLIB_DOUBLE)
	15	* DOUBLE PRECISION SEED
	16	#endif
	17	* CALL RANFGT(SEED)
	18	* WRITE(XSEED,'(E24.15)') SEED
	19	* READ(XSEED,'(E24.15)') SEED
	20	* CALL RANFST(SEED)
	21	RETURN
	22	END