huiselilun 发表于 2015-3-4 16:09:15

end of file

我也出现了类似的end of file问题。
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,不知道哪出错了,求解答。


fcode 发表于 2015-3-4 17:04:07

在我这里可以正常得到结果

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

huiselilun 发表于 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)
就是这一行有问题

fcode 发表于 2015-3-5 17:51:03

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

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

huiselilun 发表于 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)

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

这么个简单的问题让我苦恼了这么长时间,十分感谢:-handshake
页: [1]
查看完整版本: end of file