关于二维数组读入，这个错误原因是什么？
Program tImplicit None
Integer, Parameter :: row = 3
Integer, Parameter :: col = 4
Real :: a(1:row,1:col)
Integer :: i,j
Open(11,file='in.txt')
Do i = 1,row
Do j = 1,col
a(i,j) = 10*i+j
Write(11,*) a(i,j)
Enddo
Enddo
! read the array==============================================
Do i = 1,row
Do j = 1,col
Read(11,*) a(i,1)
Enddo
Enddo
Close(11)
End Program t
我甚至直接读入刚写进去的数组，编译通过，执行错误报错如下：
“At line 17 of file testofarray01.f95 (unit = 11, file = 'in.txt')
Fortran runtime error: End of file”
end-of-file 错误：
http://fcode.cn/guide-36-2.html Program t
Implicit None
Integer, Parameter :: row = 3
Integer, Parameter :: col = 4
Real :: a(1:row,1:col)
Integer :: i,j
Open(11,file='in.txt')
Do i = 1,row
Do j = 1,col
a(i,j) = 10*i+j
Write(11,*) a(i,j)
Enddo
Enddo
Rewind(11) !// 增加这句
! read the array==============================================
Do i = 1,row
Do j = 1,col
Read(11,*) a(i,1)
Enddo
Enddo
Close(11)
End Program t
当你对 11 号文件写入后，文件操作位置就在文件的最末端，此时你再读取，后面没有数据，所以会出错。
你可以把文件操作位置重新设置为文件开始。用 Rewind 语句。
也可以关闭文件，然后重新读取。
（一般情况下，同一次 Open Close，不要即读又写，比较容易出错） fcode 发表于 2015-3-13 18:04
Program t
Implicit None
Integer, Parameter :: row = 3
Program t
Implicit None
Integer, Parameter :: row = 3
Integer, Parameter :: col = 4
Real :: a(1:row,1:col)
Integer :: i,j
Open(11,file='in.txt')
Do i = 1,row
Do j = 1,col
Read(11,*) a(i,j)
Write(*,*) a(i,j)
Enddo
Enddo
Close(11)
End Program t
谢啦！我以后注意这个问题。还有一个错误，就是如果'in.txt'写成如下形式，也会报错，这是为什么？
11 12 13 14
21 22 23 24
31 32 33 34
执行后 因为你执行了 12 次循环，所以需要12行。
如无特别声明，每个 read 读一行。如果你只有 3 行，可以这样读：
Program t
Implicit None
Integer, Parameter :: row = 3
Integer, Parameter :: col = 4
Real :: a(1:row,1:col)
Integer :: i,j
Open(11,file='in.txt')
Do i = 1,row
Read(11,*) a(i,:)
Write(*,*) a(i,:)
Enddo
Close(11)
End Program t
更多的二维数组与文本文件行列问题，请阅读：
http://fcode.cn/guide-45-1.html fcode 发表于 2015-3-13 18:47
因为你执行了 12 次循环，所以需要12行。
如无特别声明，每个 read 读一行。如果你只有 3 行，可以这样读 ...
我好好研究一下。感谢！
页:
[1]