Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50212/addr.f4
There are no other files named addr.f4 in the archive.
SUBROUTINE ADDR(IB,B,LIST,N)
C READS RECORD DATA INTO AN EXISTING FILE
C IT IS STORED AT THE END OF THE FILE
C IN THE ORDER IN WHICH THEY CAME IN
DIMENSION IB(1),IPAR(10),IFRMAT(1),LIST(1),B(1)
COMMON IDF ,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,C1
EQUIVALENCE (IPAR(1),IDF)
C INPUTS THE DATA
CALL READC (IB,B,LIST,N)
C CHECK FOR END OF FILE
IF(ISWICH(6).EQ.1) R E T U R N
C
C IS THERE ANY ROOM IN THE FILE?
IF(NAVR.GE.MAXR) GO TO 3
C WRITE THE DATA AT THE END OF THE FILE
C AND UPDATE NAVR AND LSR
LSR=NAVR
CALL WRITER(IB)
NAVR=NAVR+NSPR
RETURN
C
3 CONTINUE
TYPE 100
100 FORMAT (9 HFILE FULL)
PAUSE
RETURN
END