Fortran运行时错误：文件结尾，格式的输入

问题描述：

>FREQ //74 
4.163186002791e+04 3.578830331359e+04 3.076496349687e+04 2.644671278966e+04 2.273458304119e+04 
1.954349752908e+04 1.680032112209e+04 1.444218412726e+04 1.241504140604e+04 1.067243373686e+04 
9.174423035938e+03 7.886677033340e+03 6.779682426302e+03 5.828068476394e+03 5.010025548360e+03 
1.737988920100e+03 1.284332855871e+03 1.104060538508e+03 8.158747205330e+02 7.013564117662e+02 
6.029121922103e+02 5.182858606802e+02 4.455379022877e+02 2.433020871700e+02 2.091515701348e+02 
1.797945089525e+02 1.545580816278e+02 1.328639052196e+02 9.818329499070e+01 7.255514128762e+01 
5.361653963401e+01 4.609078195788e+01 3.962135930423e+01 3.406000172766e+01 2.927925083995e+01 
2.516953864546e+01 2.163667639887e+01 1.859969593339e+01 1.598899398582e+01 1.374473698894e+01 
1.181548977143e+01 1.015703673713e+01 8.731368506527e+00 7.505810795983e+00 6.452275569743e+00 
5.546617302183e+00 4.768079596776e+00 4.098819479081e+00 3.523498461194e+00 3.028931005477e+00 
2.603782330822e+00 2.238308635635e+00 1.924133783786e+00 1.654057335509e+00 1.421889523591e+00 
1.222309392724e+00 1.050742850800e+00 9.032578372386e-01 7.764742057598e-01 6.674862562538e-01 
5.737961402745e-01 4.932566139141e-01 3.133421372728e-01 2.315524554696e-01 1.990511474577e-01 
1.711118080085e-01 1.470941072881e-01 1.264475938317e-01 1.086990789815e-01 9.344179207682e-02 
8.032605785014e-02 6.905128236880e-02 5.935906385039e-02 5.102727046220e-02

我的代码

program lk 

implicit none 
integer :: i 
real,dimension(74) :: fr 

open(10,file='freq.txt') 
read(10,*) 

do i=1,74 
read(10,*)fr(i) 
end do 

end program 

t line 11 of file lk.f90 (unit = 10, file = 'freq.txt') 
Fortran runtime error: End of file

有什么问题，我应该如何设置正确的格式？

@HighPerformanceMark是的，做工精细！ –

看看在读取语句中使用iostat =。您可以使用它来读取未知长度的文件。当你打到最后的iostat的变化，你可以使用一个逻辑运算符上，以退出您回路（或使用而做的）。快速搜索可以找到许多示例。 –

答

OK，回答放大在我先前的评论。

每个格式化read声明，从文件中读取开始在一行的开头。或者，如果您愿意，每个这样的read语句都会在一行的结尾处结束。这里代码尝试从少于74行的文件（运行时对象）中读取74行。

一种解决方案是用现代的Fortran的一饮而尽读取多个元素的能力。在一个简单的例子中，例如在一个语句中读取整个数组，read(10,*) fr就足够了。该*格式表示表式输入和各种现代化的编译器（据我所知）将尽一切必要的驴工作获得74张实数来填充fr出该文件。

Fortran运行时错误：文件结尾，格式的输入

相关推荐