	SUBROUTINE RINIT(IS1,IS2)
C	INITIALIZE RANDOM NUMBER SEEDS FROM SYSTEM CLOCK
	T=SECNDS(0.)
1	IF(T.LT.30000.) GOTO 2
	T=T-10000.
	GOTO 1
2	N=T
	T=T-N  ! LEAVES ONLY DECIMAL PART
	N=T*1000.+50  !   50<N<1049
	IS1=0
	IS2=0
	DO 3 I=1,N
	X=RAN(IS1,IS2)
3	CONTINUE
	RETURN
	END
