[资源] 【求助】比较怪异的Fortran程序问题【已完结】已有1人参与

******************************************************
program main
...
use b, only : elec_a,elec_b
...
allocate(elec_a(n,m))
allocate(elec_b(n,m))
...
end
******************************************************
module b
real,allocatable :: elec_a(n,m)，elec_b(n,m)
end
******************************************************
subroutine a
...
use b, only : elec_a,elec_b
...
real :: y(n,m),x(n,m),calxy(n,m)
y=elec_a
x=elec_b
call derive(n,m,y,x,calxy)
print *,'calxy',calxy  !加上这句后影响程序的输出结果:(:(
...
end
*******************************************************
subroutine derive(n,m,y0,x0,cal)
...
end
*******************************************************