1.if 语句没有写 endif
if((a(j)-a(i))>t) then
write(*,*) a(i)
end if
2.如果去掉 if 出现错误。请给出你的 qd_6801_m.TXT 文件的内容。
list-directed I/O syntax error 通常表示数据文件中存在一些干扰的字符,比如你读整型 integer 数组,而遇到了类似:
3.2abc
这样的数据,这样的数据无法被读取为整数。(abc在数学上没有意义)
如果文件中有中文,或其他字母,希腊字母,也会这样。