以下代码成功读取了30x30(7Kb)和100x100(69Kb)矩阵的1和0值的txt文件。这里有一个3x3矩阵的例子。 txt文件" MyTxtFile.txt"内容如下。
1 0 1
1 0 0
1 1 1
代码如下所示。
Integer,dimension(3,3):: ReadMatrix
Integer::row,col
open(12, file="MyTxtFile.txt")
do row=1,3
read(12,*) (ReadMatrix(row,col),col=1,3)
end do
print*, ReadMatrix (1,:) !Print first row to check
作为输出,我获得以下
1 0 1
但是,当我尝试使用1000x1000矩阵(3186 Kb)时,出现了以下错误:
At line 8 of file C:\Users\...\...\... (unit=12, file='Matrix1000.txt')
Fortran runtime error: End of file
实际发生了什么,我的选择是什么?