Google
 
Trailing-Edge - PDP-10 Archives - decus_20tap1_198111 - decus/20-0001/close.for
There is 1 other file named close.for in the archive. Click here to see a list.
	SUBROUTINE CLOSE (LEVEL)
	CLOSE (UNIT=LEVEL)
	RETURN
	END