	R=.518327101
	JCOUNT=0
199	CONTINUE
	WRITE(5,200)
200	FORMAT(1X,5X,'ENTER VALUE FOR MEAN TIME BET ARRVLS <SEC>',3X,$)
	READ(5,201,ERR=199)XMEAN
201	FORMAT(F15.5)
202	CONTINUE
	CALL RAN(R)
	JCOUNT=JCOUNT+1
	TARR=-1*ALOG(R)*XMEAN
	T=SECNDS(0.0)
1	IF(SECNDS(T).GT.TARR)GOTO2
	GOTO1
2	CONTINUE
	WRITE(5,100)JCOUNT
100	FORMAT(1X,20X,'ARRIVAL',I5,//)
	GOTO 202
	STOP
 	END
	SUBROUTINE RAN(R)
	R=R*3141.5926535
	IR=R
	R=R-IR
	RETURN
	END
