Trailing-Edge
-
PDP-10 Archives
-
-
There are no other files named in the archive.
DIMENSION IPAR(10),IFRMAT(3,20),IB(260)
COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,C1,IFRMAT
EQUIVALENCE(IDF,IPAR(1) )
53 CONTINUE
TYPE 100
100 FORMAT(1X,'INPUT FILE ID'/)
2 ACCEPT 1000,IDFLE
1000 FORMAT(A5)
CALL SLECTF(IDFLE)
IPAR(6)=IPAR(2)
NR=(IPAR(3)-IPAR(2))/IPAR(5)
ID=0
DO 1II=1,NR
CALL READR(IB)
IF(IB(1).NE.ID)PRINT 401
401 FORMAT(1X)
ID=IB(1)
PRINT 400,(IB(I),I=1,23)
400 FORMAT(1X,I5,1X,5A5,1X,2I3,7A2,1X,2A5,I2,1X,4A5,1X,A3)
1 CALL RIGHT(1)
GO TO 53
END