	FUNCTION RND(IY)
	IY = IY*899
	IF (IY .LT. 0) IY = IY + 32767 + 1
	RND=FLOAT(IY)/32767.
	RETURN
	END
