	SUBROUTINE RAN(RA)
	RA=RA*314.15926435
	IR=RA
	RA=RA-IR
	RETURN
	END
