C C C RSTATSBKR.FOR - convert rstatsbkr.dat from icoefl to input format for same C* ********************************************** CHARACTER*40 ASTRING 1200 FORMAT(A) OPEN (UNIT=2,FILE='rstatsbkr.dat',readonly,STATUS='OLD') READ(2,1200) ASTRING do 210 i=1,4 200 read(2,*,end=990)b,scale 210 write(6,300) i,scale,b 300 FORMAT (' SCALE FC',i1,2F14.6) 990 CLOSE(UNIT=2) END