Google
 

Trailing-Edge - PDP-10 Archives - decus_20tap2_198111 - decus/20-0047/iofil.for
There is 1 other file named iofil.for in the archive. Click here to see a list.
C	THESE ROUTINES HOPEFULLY DO WHAT THE OLD LIBRARY IFIL
C	AND OFIL ROUTINES DID. WRITTEN AS REPLACEMENTS BY
C	PAUL T. ROBINSON, WESLEYAN UNIV. JUNE 1980
C	DECUS CONVERSION PROGRAMMER
	SUBROUTINE IFIL(IUNIT, NAME, IEXT)
	DOUBLE PRECISION DNAME
	ENCODE(10,10,DNAME) NAME, IEXT
10	FORMAT(2A5)
	OPEN(UNIT=IUNIT,FILE=DNAME,ACCESS='SEQIN')
	RETURN
	END

	SUBROUTINE OFIL(IUNIT,NAME,IEXT)
	DOUBLE PRECISION DNAME
	ENCODE(10,10,DNAME) NAME, IEXT
10	FORMAT(2A5)
	OPEN(UNIT=IUNIT, FILE=DNAME, ACCESS='SEQOUT')
	RETURN
	END