[求助]请教Fortran高手有关程序调试问题

wlh

我在运行（executing）Fortran时出现如下情况是啥为事啊：
  Input T:
   7.5
  forrtl: sever<161>: Program Exception -- array bounds exceeded:
    ..              ...              ....
    ..              ...              ....
    ..              ...              ....
  Incrementally linked image -- PC correlation disabled
  且要求发送错误报告。
  无论是Compaq Visual Fortran 6.1 还是Visual Fortran 5.0都是这样的。
而Visual Fortran 4.0 则一进行executing 就出现要求发送错误报告。


附子程序，在debug时的指示情况：
c   
      subroutine AnearCS(ngrid,ncg1,ncg2,i,n1,n2)
dimension ncg1(ngrid,0:6),ncg2(ngrid,0:6)
j=0
＝＞do while(ncg1(i,j).ne.0)
j=j+1
enddo
ncg1(i,j)=n1
j=0
do while(ncg2(i,j).ne.0)
j=j+1
enddo
ncg2(i,j)=n2
return
end
    俺怎么也查不出原因来，各位高手帮帮忙吧，俺在这里谢谢您啦。

guitarstring

矩阵溢出了！
在debug 时 用watch看你的矩阵元素ncg1(i,j),ncg2(i,j),我估计是i或者j超出范围了！
Good Luck!

wqmodel

Try turning off Array Bound Check in the setting.

dut

j=0
数组ncg1(i,j)对应于ncg1(i,0),好像是这里的问题.数组ncg1的第二维J=0一般不会这样,除非你定义了从0开始的数组维数.