10楼: Originally posted by --power at 2016-07-11 18:37:37
real*8 a(9)       open(unit = 1, file = 'data.dat')

11楼: Originally posted by --power at 2016-07-11 18:50:48
发错了，应该是：
real*8 a(9)
open(unit = 1，file = 'data.dat', iostate = io)
do while (io ==0)
    read(1，*) a      
end do
用手机发的，不怎么方便，见谅
...