您所在位置：主题：求助ＦＯＲＴＲＡＮ 数组调用
liuqc
[专家分：0] 发布于 2010-10-13 16:21:00
求助：
在下编程现在遇到问题 如下：
主程序调用子程序：
subroutine gridtopart(i,j,a,b,c,d,ex)
implicit none
include 'common_pic.h'
integer i,j
real(kind=8) a,b,c,d,ex,ey,bz,h
write(*,*)gridey(250,500)
write(*,*)gridey（i+１，j+１）
ex=(gridex(i+1,j+1)*c*d+gridex(i+1,j+2)*a*d+gridex(i+2,j+2)*a*b+gridex(i+2,j+1)*b*c)/s
return
end subroutine
其中参数都已知，gridey是全局变量中的一个多维数组，计算ｅｘ返回，，，问题是 我输出write(*,*)gridey(250,500)有值，但write(*,*)gridey（i+１，j+１）输出全是０，这是怎么回事阿 谢谢
在下编程现在遇到问题 如下：
主程序调用子程序：
subroutine gridtopart(i,j,a,b,c,d,ex)
implicit none
include 'common_pic.h'
integer i,j
real(kind=8) a,b,c,d,ex,ey,bz,h
write(*,*)gridey(250,500)
write(*,*)gridey（i+１，j+１）
ex=(gridex(i+1,j+1)*c*d+gridex(i+1,j+2)*a*d+gridex(i+2,j+2)*a*b+gridex(i+2,j+1)*b*c)/s
return
end subroutine
其中参数都已知，gridey是全局变量中的一个多维数组，计算ｅｘ返回，，，问题是 我输出write(*,*)gridey(250,500)有值，但write(*,*)gridey（i+１，j+１）输出全是０，这是怎么回事阿 谢谢