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