Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/25/rf.f4
There is 1 other file named rf.f4 in the archive. Click here to see a list.
	SUBROUTINE RF(R,R1)
	R1=R
	RETURN
	END