Fortran runtime error: End of file，求大神！

向着光亮那方 · 发表于 2017-11-29 22:03:11

登录后查看更多精彩内容~

您需要登录才可以下载或查看，没有帐号？立即注册

x

program mian
implicit none
real::CO2CEN(50)
real::ca(50)
integer i
open(7,file='inpt.txt')
do i = 1,50
read (7,*) CO2CEN(i)
ca(i)=CO2CEN(i)-1
WRITE(*,*)ca(i)
end do

STOP
END

At line 8 of file G:\输入文件\CO2.F90 (unit = 7, file = 'inpt.txt')
Fortran runtime error: End of file
显示出错，是怎么回事，求各位大神

蔚蓝情怀 · 发表于 2017-11-29 22:34:00

inpt.txt 文件里没有50行数据没有读完50个数据

向着光亮那方 · 发表于 2017-11-29 23:12:03

蔚蓝情怀发表于 2017-11-29 22:34
inpt.txt 文件里没有50行数据没有读完50个数据

确实是50个数，自己建的文件，不知道怎么回事

蔚蓝情怀 · 发表于 2017-11-30 00:20:19

G:\输入文件\CO2.F90 (unit = 7, file = 'inpt.txt') 路径不能用中文字

t_imba · 发表于 2017-11-30 02:14:11

你路径写全了吗？按出错的那个好像你路径里面有中文，FORTRAN GRADS NCL 貌似都不支持中文文件和路径的

topmad · 发表于 2017-11-30 08:58:36

你读的时候顺带着print一下 i的值看看哪一行出问题了

向着光亮那方 · 发表于 2017-11-30 15:14:28

蔚蓝情怀发表于 2017-11-30 00:20
G:\输入文件\CO2.F90 (unit = 7, file = 'inpt.txt') 路径不能用中文字

厉害了好像是，大神我在问问为啥有的还是改了中文还是显示end of file ：例如 1985
At line 329 of file .\cevsa.f (unit = 31, file = 'locat.txt')
Fortran runtime error: End of file
代码是read (31,fmt='(2f8.2)')LAT1,LON1

向着光亮那方 · 发表于 2017-11-30 15:16:32

t_imba 发表于 2017-11-30 02:14
你路径写全了吗？按出错的那个好像你路径里面有中文，FORTRAN GRADS NCL 貌似都不支持中文文件和路径的

好像是中文问题，但有的我改了路劲可以，为啥有的就不行，例如At line 329 of file .\cevsa.f (unit = 31, file = 'locat.txt')
Fortran runtime error: End of file
代码：read (31,fmt='(2f8.2)')LAT1,LON1。老是显示第31出错，可是文件是对的呀

向着光亮那方 · 发表于 2017-11-30 15:16:56

topmad 发表于 2017-11-30 08:58
你读的时候顺带着print一下 i的值看看哪一行出问题了

好的我试试，谢谢啦

蔚蓝情怀 · 发表于 2017-12-1 16:31:03

read(31,*) LAT1,LON1 用自由格式就行不要用格式读法

		自动登录	找回密码
密码			立即注册

[求助] Fortran runtime error: End of file，求大神！

登录后查看更多精彩内容~