REAL FUNCTION RANF(DUMMY)
	COMMON /RAN/ IRAN1,IRAN2
C*
	RANF=RAN(IRAN1,IRAN2)
	RETURN
	END
	SUBROUTINE RANSET(RTIME)
	COMMON /RAN/ IRAN1,IRAN2
C*
	IRAN1=AMOD(RTIME,32678.)
	IRAN2=AMOD(RTIME/32678.,32678.)
	RETURN
	END