Fortran Coder

标题: Fortran中的eof 怎么用啊 [打印本页]

作者: 1000 时间: 2020-4-22 17:52
标题: Fortran中的eof 怎么用啊

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

作者: vvt 时间: 2020-4-22 20:51
因为 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

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
eof是ivf扩展函数，换句话说，只能ivf使用。你的用法没错，但gfortran没有这个函数。

作者: 1000 时间: 2020-4-24 16:50

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

好的谢谢

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)