Question

Fortran 程序调用问题

implicit double precision(a-h,o-z)
parameter (N=100, M=8, T=2.7, E0=0 ,M2=16)
dimension T1(M,M), T2(M,M), T3(M,M), T4(M,M), T5(M,M)
call zero(T1,M) !此处我调用了一个子程序

程序具体如下
subroutine zero(A,M)
implicit double precision(a-h,o-z)
dimension A(M,M)
integer I, J, M
do I=1,M
do J=1,M
A(I,J)=0d0
enddo
enddo
end subroutine zero

运行后显示为该内存不能为"written"

请问我哪边出错咯? 应该如何改正? 谢谢指点..

Answer 1

首先质疑：A(I,J)=0d0处的0d0是什么？即便正确，应该有个乘号之类的吧*
你的数组定义了，没有付初值就直接调用子例行程序，也可能有问题。

Answer 2

我不知道为什么，但是你给出的代码部分，是没有任何问题的。