可能是文件名的后缀问题。

pasuka 发表于 2018-4-10 12:31
有open无close怎么行呢？

在此声明，不是close的问题，你好好看看代码，直接end of file,加上close也一样

有open无close怎么行呢？

li913 发表于 2018-4-10 10:14
FAQ之 常见错误分析
http://fcode.cn/guide-36-1.html

好的谢谢

FAQ之 常见错误分析
http://fcode.cn/guide-36-1.html

li913 发表于 2018-4-9 20:57
do i=1,H
    read(10,*)a(i,:)
end do ...

不是这个问题，直接是读不了，还没进行到这一步，OPEN10哪里就end of file

[Fortran] 纯文本查看 复制代码

program mian
implicit none
integer,parameter::shou=1,wei=2,lie=140
integer,parameter::H=wei-shou+1
real::a(H,lie)
integer i
open(10,file="D:\哈弗\通量数据处理\通量\2003")


do i=1,H
    read(10,*)a(1,:),a(2,:)
end do 

  open(14,file="D:\哈弗\通量数据处理\通量结果所有\2003.txt")
  write(14,"(f8.1)")a(1,25),a(1,26),a(1,27),a(1,28),a(1,29),a(1,30),&
    a(2,25),a(2,26),a(2,27),a(2,28),a(2,29),a(2,30)