Fortran Coder

查看: 317|回复: 1

[输入输出] 求助!处理文件数据报错end-of-file during read

[复制链接]

1

帖子

1

主题

0

精华

新人

F 币
14 元
贡献
8 点
发表于 2023-12-23 19:53:31 | 显示全部楼层 |阅读模式
文件1行数不能确定所以我先读了一遍知道行数后再读具体的数据,不知道为什么这么读到unit11报错end-of-file during read, unit 11,求助!
[Fortran] 纯文本查看 复制代码
open(21,file="voronidata.dat")
do i=1,config
        n=0
    write(fil,*)i
        open(12,file="1",action="read")
                do j=1,line
                        read(12,"(A)",iostat=io)
                        n=n+1
                        if(io/=0)exit                        
                        
                end do
        close(12)  
        open(11,file="1”,action="read")
                do j=1,n+1
                        read(11,*)n3,n4,n5,n6,n7,fra(n3,n4,n5,n6),fra1,fra2
                end do        
        close(11)  
        fract=fract+fra
end do


151

帖子

2

主题

1

精华

大师

Vim

F 币
930 元
贡献
453 点

规矩勋章

发表于 2023-12-23 21:14:53 | 显示全部楼层
这么读完,行数应该是n-1吧,为什么写n+1
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-2-25 12:30

Powered by Tencent X3.4

© 2013-2024 Tencent

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