以下是要阅读的文件a.tab
:
7.600000e-05
1.580000e-04
1.384140e-01
4.566700e-02
1.530000e-04
1.374210e-01
2.238700e-02
3.871300e-02
1.339930e-01
-2.231400e-02
3.835000e-02
1.313520e-01
-4.551300e-02
2.350000e-04
1.327270e-01
-2.207500e-02
-3.697500e-02
1.261490e-01
我的节目:
PROGRAM MAIN
implicit none
integer :: j,iostatus
double precision :: test(18)
open(unit = 100, file = 'a.tab', status = 'old', action = 'read',iostat=iostatus)
write(*,*) iostatus
do j = 1,18
read(100,*,end=10) test
end do
10 close(100)
write(*,*)test
end
输出是:
0
0
如果iostat等于0,为什么不正确读取文件?在Windows上运行相同的程序。
答案 0 :(得分:0)
由于该程序适用于Windows,您可能需要转换输入文件以在Unix中使用。在Mac上运行之前,请尝试在a.tab上使用dos2unix实用程序。