Trailing-Edge
-
PDP-10 Archives
-
decuslib10-01
-
43,50212/dumpr.f4
There are no other files named dumpr.f4 in the archive.
SUBROUTINE DUMPR(IB,B)
C PRINTS RECORD ONE CATEGORY ON EACH LINE
DIMENSION IB(1), IPAR(10), IFRMAT(1), LIST(1), B(1)
COMMON IPAR, IFRMAT
EQUIVALENCE (NCPR,IPAR(8))
DO 10 I=2,NCPR
K1=ISUB(1,I)
INDX=IFRMAT(K1)
NWPC=IFRMAT(K1 + 1)+INDX -1
MODE=IFRMAT(K1 + 2)
GO TO (1,2,3), MODE
3 PRINT100,IB(1), (IB(K), K=INDX,NWPC)
100 FORMAT(1X,I10,1X,(22A5)/(24A5))
GO TO 10
1 PRINT101,IB(1), (IB(K), K=INDX,NWPC)
101 FORMAT(1X,12I10)
GO TO 10
2 PRINT102, IB(1), (B(K), K=INDX,NWPC)
102 FORMAT(1X,I10,(11F10.0)/(12F10.0))
10 CONTINUE
RETURN
END