Google
 
Trailing-Edge - PDP-10 Archives - decuslib10-01 - 43,50212/appndf.f4
There are no other files named appndf.f4 in the archive.
	SUBROUTINE APPNDF(IDM,IDT,IB)
C		PLACES FILE IDT AT THE END OF FILE IDM
	COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,C1
	COMMON IFRMAT(3,1)
	DIMENSION IB(1)
	CALL SLECTF(IDT)
C	TEST IF FILE IS EMPTY
	IF(NAVR.LE.LFR)RETURN
	NFIRST=LFR
	LAST=NAVR-NSPR
	CALL SLECTF(IDM)
	LSR=NAVR
	IF((MAXR-NAVR).LT.(LAST-NFIRST))GO TO 2
	DO 1 LR=NFIRST,LAST,NSPR
	CALL DIO(LR,1,IB,NSPR)
	CALL DIO(LSR,0,IB,NSPR)
	LSR=LSR+NSPR
1	NAVR=LSR
	LSR=LSR-NSPR
	CALL SAVEF
	RETURN
2	TYPE 100,IDT,IDM
100	FORMAT(1X,'FILE ',A5,1X,'TOO BIG TOO ADD TO ',A5)
	CALL EXIT
	END