Fortran Coder

标题: end of file [打印本页]

作者: huiselilun 时间: 2015-3-4 16:09
标题: end of file
我也出现了类似的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，不知道哪出错了，求解答。

549 Bytes, 下载次数: 2

348.13 KB, 下载次数: 6

作者: fcode 时间: 2015-3-4 17:04
在我这里可以正常得到结果

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

作者: huiselilun 时间: 2015-3-5 16:45

fcode 发表于 2015-3-4 17:04
在我这里可以正常得到结果

avg is 3226.910

我今天打开运行了一下，直接出现语法问题

read(111,*) （a((j-1)*106+(i-1)*10+k),k=1,10)

就是这一行有问题

作者: fcode 时间: 2015-3-5 17:51
read(111,*) （a((j-1)*106+(i-1)*10+k),k=1,10)

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

作者: huiselilun 时间: 2015-3-9 09:18

fcode 发表于 2015-3-5 17:51
read(111,*) （a((j-1)*106+(i-1)*10+k),k=1,10)

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

这么个简单的问题让我苦恼了这么长时间，十分感谢

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

Powered by Discuz! X3.2