1000 发表于 2020-4-22 17:52:37

Fortran中的eof 怎么用啊

请忽略我的标注,这个程序是要计算标准差,但我只写了一小部分,想先验证一下对错,结果卡在eof了,其实我就是想当文件读完了,退出循环,结果用iostat也出现问题了...
图片中我这样写 执行错误 执行错误的原因是什么啊????我应该怎么用????

vvt 发表于 2020-4-22 20:51:15

因为 eof 不是标准的 fortran 函数
integer k
open(10, file='003.txt')
!计算成绩的标准差
read(10,*)
do
read(10,'(t33,i3)',iostat=k)a
if(k/=0) exit
c=c+1
s=s+a
enddo
print*, C,S
endprogram

1000 发表于 2020-4-22 21:26:11

vvt 发表于 2020-4-22 20:51
因为 eof 不是标准的 fortran 函数
integer k
open(10, file='003.txt')


那请问怎么在Fortran中用eof 呢

li913 发表于 2020-4-22 21:52:43

eof是ivf扩展函数,换句话说,只能ivf使用。你的用法没错,但gfortran没有这个函数。

1000 发表于 2020-4-24 16:50:45

li913 发表于 2020-4-22 21:52
eof是ivf扩展函数,换句话说,只能ivf使用。你的用法没错,但gfortran没有这个函数。 ...

好的谢谢
页: [1]
查看完整版本: Fortran中的eof 怎么用啊