您所在位置：主题：求助看看小程序
zijide
[专家分：0] 发布于 2010-04-18 20:38:00
我写的一个小程序，看了好久都不知错在哪，程序的输出为乱乱的数字，我觉得未复制的数组应该为0，求助各位了，谢谢。
program main
Implicit none
call kk(4)
end
subroutine kk(n)
integer n
integer a(n,n)
write(*,*) 'a=',a(1:n,1:n)
end
program main
Implicit none
call kk(4)
end
subroutine kk(n)
integer n
integer a(n,n)
write(*,*) 'a=',a(1:n,1:n)
end
