到达文件末尾（Fortran）时如何停止循环？

Question

我需要一个程序来读取带有数字的txt文件并计算这些数字的平均值。当我运行程序时，出现“ Fortran运行时错误：文件结尾”。我不知道要解决。 代码：

  program meanfromfile
  implicit none

  real :: a, s, j
  j=0
  s=0

  open(5,file="file.txt")
  loop: do
  j=j+1
  read(1,*)a
  s=s+a
  end do loop

  print*, s/j

  end program meanfromfile