Question

fortran程序出错

104 call ransr()
nbb=irn(1)*nnb
ib=ngs(nbb,b)
kb=ngb(nbb,b)
if(nc(ib).eq.nc(b)) goto 104
编译后的错误是：F:\program of percolation\prog\bond_sq0\bond_sq0.f(295) : Error: The shapes of the array expressions do not conform. [KB] kb=ngb(i,b)
这是程序的一部分，common/nran/ irn(mxrn)
integer*4 ngs(6,mxxy),ngb(6,mxxy)
do 203 ind=1,ncu
isp(ind)=1
c(ind)=1
nc(ind)=ind
bv(ind)=0
bd(ind)=0
203 continue
104 call ransr()
nbb=irn(1)*nnb
ib=ngs(nbb,b)
kb=ngb(nbb,b)
if(nc(ib).eq.nc(b)) goto 104

Answer 1

这是整个程序代码么？
错误提示是矩阵的问题，但从目前代码中看不出矩阵的声明，另这几个子函数调用的数据类型是否一致也不知道

建议输出nbb和b，另nc数组没看到

Answer 2

数组形状不符，大概是一维数组和二维数组之间传递数据的时候出问题了吧