开启辅助访问 切换到窄版
搜索

Fortran Coder

 找回密码
 极速注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

[复制链接]

读取数据出现forrtl:severe<24>:end-of-file during read的错误

[文件读写]
贝加尔湖湖湖湖 发表于 2017-4-10 23:18:19 查看38 回复1 阅读模式
[Fortran] 纯文本查看 复制代码
program lxj
implicit none
real a(1201,103),b(1200,102)
integer::i,j,p=0,k=1
open(7,file='d:\bylw\out4\3.txt')
do j=1,1200
   do i=1,102
   read(7,*) a(j,i)
   end do
end do
close(7)
do j=1,102
   do i=1,1200
      if(a(i,j)<-0.5)then
          p=p+1
      b(k,j)=p
          else
          p=0
          k=k+1
          b(k,j)=0
          end if
end do
end do 
open(9,file='d\bylw\out5\3.txt')
write(9,*) b(k,102)
close(9)
end

但是TXT文件里确实是1200行,102列数据啊,不知道问题出在了哪里QAQ,快哭了

回复

使用道具 举报

fcode 发表于 2017-4-11 07:52:36
[Fortran] 纯文本查看 复制代码
do j=1,1200
   do i=1,102
   read(7,*) a(j,i)
   end do
end do

你这样写,则要求文件是 122400 行,一列。
改为
[Fortran] 纯文本查看 复制代码
do j=1,1200
   read(7,*) a(j,:)
end do
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则 长代码粘贴

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表