Fortran中的eof 怎么用啊

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

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

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

因为 eof 不是标准的 fortran 函数

[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 函数
[mw_shl_code=fortran,true]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没有这个函数。 ...

好的谢谢

[文件读写] Fortran中的eof 怎么用啊

规矩勋章

元老勋章

新人勋章

水王勋章

热心勋章