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