Fortran Coder

标题: 读取固定行数据出错 [打印本页]

作者: 向着光亮 时间: 2018-4-9 16:48
标题: 读取固定行数据出错
如图所示，想实现读取固定两行数据（每行都是140列，格式都一样

）其中的数据，但是总是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)

QQ截图20180409163457.png (6.36 KB, 下载次数: 329)

作者: li913 时间: 2018-4-9 20:57

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

do i=1,H

    read(10,*)a(i,:)

end do ...

write(14,"(f8.1)") a(1,25:30), a(2,25:30)

作者: 向着光亮 时间: 2018-4-10 08:33

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

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

作者: li913 时间: 2018-4-10 10:14
FAQ之常见错误分析
http://fcode.cn/guide-36-1.html

作者: 向着光亮 时间: 2018-4-10 10:23

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

好的谢谢

作者: 向着光亮 时间: 2018-4-10 10:31

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

你好，还想请教你个问题，我想将一个文本的两个变量数据分别读入后再做差，可是试了几遍都还是出现open11时候end of file,就是放在一个代码里面老是出现这样的问题，分别就可以，请教谢谢。代码如下：

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

program mianimplicit none

!real::a(1,140)

integer,parameter::shou=1,wei=1,lie=140

integer,parameter::H=wei-shou+1

real::a(H,lie)

real::mnpp(36),mco2(36),mnep(36)

integer i,j

open(10,file="D:\长白山03-05\通量数据处理\通量\2003")





do i=1,H

    read(10,*)a(1,:)

end do 

   open(11,file="D:\mnpp模拟结果\2003")

   write(11,"(f8.1)")a(1,69:104)

   open(12,file="D:\\mco2模拟结果\2003")

   write(12,"(f8.1)")a(1,105:140)



do j=1,36

    read(11,*)mnpp(j)

    read(12,*)mco2(j)

    mnep(j)=mnpp(j)-mco2(j)

end do 

    open(13,file="D:\NEP模拟结果\2003")

    write(13,"(f8.1)")mnep



  stop

end

QQ截图20180410103009.png (9.99 KB, 下载次数: 302)

作者: pasuka 时间: 2018-4-10 12:31
有open无close怎么行呢？

作者: 向着光亮 时间: 2018-4-10 18:06

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

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

作者: li913 时间: 2018-4-10 19:12
可能是文件名的后缀问题。

QQ截图20180410190954.png (23.54 KB, 下载次数: 276)

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)