fortran程序的一个错误，有对比，很不解！

aiai1992

程序如下：
program main
implicit none
integer,parameter::x=17,y=15
integer i,j,m,n,t,k,l
real::hgt(x,y,365)
open(11,file='f:\1949.grd',form='binary')
open(12,file='hgt.xls')
read(11)hgt(:,:,:)
!write(12,*)(((hgt(i,j,l),i=1,17),j=1,15),l=1,1)
!stop
do l=1,365
            do j=3,15
            do i=3,13
             if(hgt(i,j,l)<hgt(i-1,j,l).and.hgt(i,j,l)<hgt(i+1,j,l).and.hgt(i,j,l)<hgt(i,j-1,l).and.hgt(i,j,l)<hgt(i,j+1,l).and.hgt(i,j,l)<hgt(i-1,j-1,l).and.hgt(i,j,l)<hgt(i-1,j+1,l).and.hgt(i,j,l)<hgt(i+1,j-1,l).and.hgt(i,j,l)<hgt(i+1,j+1,l)) then

                  write(*,*)i,j,l
                 end if
                end do
                end do
end do

close(11)
close(12)
end program
运行后stop以上是正常的，数据正确，但是到下面进行判断时，只能循环一个时间，之后就错误了！提示如图：

言深深

定义hgt(x,y,365)的大小实际是hgt(17,15,365)，但是运行的时候hgt(i,j,l)要求，j=3,15,当j=15的时候，hgt(i,j+1,l))溢出···也就是报错的意思···

aiai1992

言深深 发表于 2014-1-7 21:51

                               
登录/注册后可看大图

定义hgt(x,y,365)的大小实际是hgt(17,15,365)，但是运行的时候hgt(i,j,l)要求，j=3,15,当j=15的时候，hgt(i ...

多谢！！！太不细心了！！

Delta

看编译器错误提示很关键的
array bounds exceeded!

华华气王

{:5_231:}

天边的那边

array bounds exceeded!和数组定义有关吧