PDP-10 Archive: 43,50212/writef.f4 from decuslib10-01

Google Enter your search terms Submit search form

Web pdp-10.trailing-edge.com

---

Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/writef.f4

---

There are no other files named writef.f4 in the archive.

---

	SUBROUTINE WRITEF(ID,IB)
C		WRITES A BINARY DEC FILE CORRESPONDING TO FFM FILE
	COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,C1
	COMMON IFRMAT(1)
	DIMENSION IB(1)
	CALL OFILE(20,ID)
	CALL SLECTF(ID)
	IF(NAVR.LE.LFR)GO TO 1
	DO 2 LSR=LFR,NAVR-NSPR,NSPR
	CALL READR(IB)
	WRITE (20)(IB(I),I=1,10*NSPR)
200	FORMAT(50O12)
2	CONTINUE
1	END FILE 20
	RETURN
	END