SUBROUTINE WRITEF(ID,IB) C WRITES A BINARY DEC FILE CORRESPONDING TO FFM FILE COMMON IDF,LFR,NAVR,MAXR,NSPR,LSR,LFMT,NCPR,LPFR,C1 COMMON IFRMAT(1) DIMENSION IB(1) CALL OFILE(20,ID) CALL SLECTF(ID) IF(NAVR.LE.LFR)GO TO 1 DO 2 LSR=LFR,NAVR-NSPR,NSPR CALL READR(IB) WRITE (20)(IB(I),I=1,10*NSPR) 200 FORMAT(50O12) 2 CONTINUE 1 END FILE 20 RETURN END