C TITLE D M P F M T
C DUMPS FORMAT SPECIFICATIONS OF A FILE
COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,DATME
COMMON IFRMAT(3,20)
DIMENSION IB(260)
FILE=ANSWER('FILE ID?')
CALL SLECTF(FILE)
CALL DIO(LFR-NSPR,1,IB,NSPR)
DO 1 I=1,NCPR
TYPE 100,I,(IFRMAT(K,I),K=1,3),IB(IFRMAT(1,I))
100 FORMAT(1X,4I4,1X,A5)
1 CONTINUE
END