Fortran Coder

查看: 400|回复: 1

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

[复制链接]

1

帖子

1

主题

0

精华

新人

F 币
15 元
贡献
4 点
发表于 2017-4-10 23:18:19 | 显示全部楼层 |阅读模式
[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,快哭了

回复

使用道具 举报

1138

帖子

12

主题

5

精华

论坛跑堂

Fcode跑堂

F 币
1065 元
贡献
863 点

新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

发表于 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
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

QQ|捐赠本站|Archiver|关于我们 About Us|QQ群|Fcode

GMT+8, 2017-11-24 04:22

Powered by Discuz! X3.2

© 2001-2017 Comsenz Inc.

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