Fortran中的eof 怎么用啊

vvt

因为 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