! 学習目的:書式付のファイルの読込み,書き込み ! ex704.f implicit real*8 (a-h,o-z) open(10,file='ex704.txt') do x=0.d0,1.d0,0.1d0 write(10,'(a,f5.2,a,f10.7)') 'x=',x,' x^2=',x*x end do close(10) open(20,file='ex704.txt') 10 read(20,'(3x,f5.0,5x,f10.0)',end=999) x,x2 !読み込むときは,f5.0とカラム数があっていればよい write(*,*) x,x2 goto 10 999 close(20) stop end