Question

fortran读取txt文件出错！！求大神！！！！

fortran读取txt文件出错 错误 如下：
forrtl: severe (64): input conversion error, unit 47, file F:\PROGRAM\Program\JN
dt.txt
Image PC Routine Line Source
Program.exe 0049D149 Unknown Unknown Unknown
Program.exe 0049CF7B Unknown Unknown Unknown
Program.exe 0049C184 Unknown Unknown Unknown
Program.exe 0049C5B9 Unknown Unknown Unknown
Program.exe 00494D3B Unknown Unknown Unknown
Program.exe 0044B8F7 Unknown Unknown Unknown
Program.exe 004C8A09 Unknown Unknown Unknown
Program.exe 004BADF4 Unknown Unknown Unknown
kernel32.dll 7C81776F Unknown Unknown Unknown

Incrementally linked image--PC correlation disabled.
Press any key to continue

应该是读取格式不对的问题。

fortran中设置的格式如下：
character(len=15)::Time
integer Hour
real(kind=4)::DBT,U,WBT
读取语句：
do i=1,countJN
write(JNwbt,"(A15,I3,10x,F5.1,10x,F5.1,10x,F5.1)")DatumJN(i)
end do
部分txt文件如下：
2010-1-6 0 -12.1 56
2010-1-6 1 -12.4 56
2010-1-6 2 -12.8 59
2010-1-6 3 -12.7 55
2010-1-6 4 -12.8 55
2010-1-6 5 -12.8 58
2010-1-6 6 -13.2 61
2010-1-6 7 -12.6 57
2010-1-6 8 -11.8 59
2010-1-6 9 -9.2 40
2010-1-6 10 -6.9 30
2010-1-6 11 -6.1 20
2010-1-6 12 -5.3 21
2010-1-6 13 -5.2 21
2010-1-6 14 -4.4 20
2010-1-6 15 -4.5 18
2010-1-6 16 -4.8 19
2010-1-6 17 -5.5 21
2010-1-6 18 -6.2 24
2010-1-6 19 -6.6 25
2010-1-6 20 -7.5 32
2010-1-6 21 -9.2 41
2010-1-6 22 -9.5 44
2010-1-6 23 -10 51

求解。。。。。。。
读取文件语句写错。。。是
do i=1,countJN
read(JNdt,*)DatumJN(i)%Time,DatumJN(i)%Hour,DatumJN(i)%Dbt,DatumJN(i)%U

end do

Answer 1

1. 你给出的代码既不是设置的格式（而是定义语句），也不是读取语句（而是输出语句）。
   

2. 你的错误发生在读取语句，即 read 语句，而不是 write 语句。

3. 有问题请追问！
   

追问

我复制错了，亲。。。读取时用的
do i=1,countJN
read(JNdt,*)DatumJN(i)%Time,DatumJN(i)%Hour,DatumJN(i)%Dbt,DatumJN(i)%U
end do

追答

从你给出的代码里看不出问题。

方便的话，把你的代码及数据文件打包上传到百度网盘，分享后把地址追问给我。
（你的代码如太长或涉密，请酌情删减）

追问

fortran对txt读取有没有什么特定的要求，我现在在做城市项目的代码，那段代码读另外两个城市的txt数据都没有问题，只是读这个城市的有问题，而所有城市的txt中数据的数量 类型 长短都是一样的。所以我觉得是txt文件的问题。请问有没有什么指教，谢谢哈。

追答

你还是把数据文件给我吧。打包上传。否则我确实帮不了你。