Question

fortran 读取数据后给数组赋值

dat文件是 1 2 3 4 5 6 7 8这样的八位数列，数字间有两个空格

代码：
implicit none
integer i
integer a(9);
open(101,file='123.dat');
do i=1,9
read(101,*)a(i)
enddo
end
运行中总是给“read(101,*)a(i);”这句报错，求大神指点！

Answer 1

这是一个基本操作。如果你这么问，我建议你系统的阅读一本教科书。
以下是通用的格式：
open(
12
,
file
=
文件名
)
read(
12
,
*
)
数组
close(
12
)
但具体你的文件是什么样子，是文本文件，还是二进制文件？文本文件是成列的，还是成块的？数据是什么类型的？文本字符串？还是实型数字？整型？
因为这些，具体的读取方法也会有差异。

Answer 2

报错的理由是end of file 吧？
试试下面的代码：
implicit none
integer i
integer a(9);
open(101,file='123.dat');
do i=1,9
read(101,*,end=99)a(i)
enddo
99 stop
end

追问

真的可以了诶！太感谢了，不过要怎么把数组显示出来呢
用
do j=1,9
write(*,*)a(j)
enddo
这个似乎不太可以诶
另外end=99这个到底起了什么作用呢？为什么写上之后就能跑了？

谢谢大神！

追答

你的数据只有8个，但是循环9次，在第九次的时候就会报错。end=99的意思就是当文档读到最后的时候就跳至 标志为 99 的那一行继续执行。
要把数组显示出来的话就是：
implicit none
integer i
integer a(9);
open(101,file='123.dat');
do i=1,9
read(101,*,end=99)a(i)
write(*,*)a(i)
enddo
99 read(*,*)
end
我猜测你说的不行是因为速度太快了你没看清。