Fortran Coder

查看: 8148|回复: 4
打印 上一主题 下一主题

[文件读写] end of file

[复制链接]

28

帖子

5

主题

0

精华

熟手

F 币
231 元
贡献
127 点
跳转到指定楼层
楼主
发表于 2015-3-4 16:09:15 | 只看该作者 |只看大图 回帖奖励 |倒序浏览 |阅读模式
我也出现了类似的end of file问题。
[Fortran] 纯文本查看 复制代码
open(unit = 111, file = 'kxmod.dat')
        i = 0
        j = 0
        k = 0
        
        do j = 1,415
                do i = 1, 10
                        read(111,*) (a((j-1)*106+(i-1)*10+k),k=1,10)
                end do
                read(111,*) (a((j-1)*106+i*10+k),k=1,6)
        end do
        close(111)


上面是我读的代码

每组数据都是前10行10个数据,第11行6个数据,要把数据都存如a中。
运行是出现中断,此时j=44,不知道哪出错了,求解答。


readkx.f90

549 Bytes, 下载次数: 2

kxmod.dat

348.13 KB, 下载次数: 6

分享到:  微信微信
收藏收藏 点赞点赞 点踩点踩

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

沙发
发表于 2015-3-4 17:04:07 | 只看该作者
在我这里可以正常得到结果

avg is   3226.910
请按任意键继续. . .

28

帖子

5

主题

0

精华

熟手

F 币
231 元
贡献
127 点
板凳
 楼主| 发表于 2015-3-5 16:45:43 | 只看该作者
fcode 发表于 2015-3-4 17:04
在我这里可以正常得到结果

avg is   3226.910

我今天打开运行了一下,直接出现语法问题
read(111,*) (a((j-1)*106+(i-1)*10+k),k=1,10)

就是这一行有问题

1963

帖子

12

主题

5

精华

论坛跑堂

臭石头雪球

F 币
1357 元
贡献
574 点

美女勋章热心勋章星光勋章新人勋章贡献勋章管理勋章帅哥勋章爱心勋章规矩勋章元老勋章水王勋章

地板
发表于 2015-3-5 17:51:03 | 只看该作者
read(111,*) a((j-1)*106+(i-1)*10+k),k=1,10)

红色代码的括号,请使用半角状态输入

28

帖子

5

主题

0

精华

熟手

F 币
231 元
贡献
127 点
5#
 楼主| 发表于 2015-3-9 09:18:23 | 只看该作者
fcode 发表于 2015-3-5 17:51
read(111,*) (a((j-1)*106+(i-1)*10+k),k=1,10)

红色代码的括号,请使用半角状态输入 ...

这么个简单的问题让我苦恼了这么长时间,十分感谢
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2024-5-3 07:29

Powered by Tencent X3.4

© 2013-2024 Tencent

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