数组越界问题

wangxue910402

想求100行，50列的二维数组的和，但是提示数组越界，请问我该怎么解决
程序：
program ex
implicit none
    integer i,j
real x(100,50)
real::avg=0
real sum
open(12,file='e:\data1.txt',status='old')
read(12,*) x(i,j)
  do i=1,100
     do j=1,50
  sum= sum + x(i,j)
  end do
end do
close(12)
print*,'和',sum
end

四叶草

楼主，你再仔细看看，read(12,*) x(i,j)此语句前后有没有问题？

言深深

程序写错了···
program ex
implicit none
    integer i,j
real x(100,50)
real::avg=0
real sum

open(12,file='e:\data1.txt',status='old')
do i=1,100
read(12,*) x(i,1:50)
enddo
close(12)
sum=0
  do i=1,100
     do j=1,50
  sum= sum + x(i,j)
  end do
end do
print*,'和',sum
end

自导自演

read的部分并没有放在循环里面

wangxue910402

言深深 发表于 2015-11-22 09:02
程序写错了···
program ex
implicit none

还是出错了，错误：severe (59): list-directed I/O syntax error, unit 12, file e:\data1.txt

wangxue910402

自导自演 发表于 2015-11-22 10:17
read的部分并没有放在循环里面

program ex
implicit none
    integer i,j
real x(100,50)
real::avg=0
real sum

open(12,file='e:\top\data1.txt',status='old')

sum=0
  do i=1,100
     do j=1,50
         read(12,*) x(i,j)
  sum= sum + x(i,j)
  end do
end do
print*,'和',sum
end
还是出错了，错误：severe (59): list-directed I/O syntax error, unit 12, file e:\data1.txt，求指点

Nono

一个是你读数据根本没有循环，而是属于没有初始化赋值，参与计算会出错

Nono

read里面的state删掉看看，他说的出错是读取方式

言深深

wangxue910402 发表于 2015-11-23 14:29
还是出错了，错误：severe (59): list-directed I/O syntax error, unit 12, file e:\data1.txt

现在我怀疑的是，你的文件是不是有问题，里面是不是有字符型的？为何不传一份来看看呢

wangxue910402

言深深 发表于 2015-11-23 15:12
现在我怀疑的是，你的文件是不是有问题，里面是不是有字符型的？为何不传一份来看看呢

已经传了，我已经把所有的数据都改成数值型，还是不行，麻烦在帮我看看吧