Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/slectf.f4
There are no other files named slectf.f4 in the archive.
C	BRINGS FILE AND RECORD PARAMETERS OF REQUESTED FILE INTO 
C	COMMON. SEARCHES UP TO 4 PACKS. EXITS WITH ERROR MESSAGE
C	IF NOT FOUND.LSR OF POINTER FILE IS UPDATED ON PACK.
	SUBROUTINE SLECTF(ID)
	COMMON IPAR(10),IFRMAT(1)
	CALL SLCTF(-3,ID)
	RETURN
	END