Google
 
Trailing-Edge - PDP-10 Archives - decuslib20-01 - decus/20-0001/close.for
Click decus/20-0001/close.for to see without markup as text/plain
There are no other files named close.for in the archive.
	SUBROUTINE CLOSE (LEVEL)
	CLOSE (UNIT=LEVEL)
	RETURN
	END