您所在位置：主题：小弟跪求 输出形参数组的信息
yizhengming
[专家分：0] 发布于 2012-07-13 16:42:00
怎样得到子函数的形参数组的维度及每维的大小 比如：我想输出形参数组a的维度及每维的大小并输出a数组的所有元素 求解 谢谢
subroutine fuc(a)
real:: a(2,*)
.....
write(123,*) 1, "int ", 0, "a", size(shape(a)), shape(a)
write(123,*) a
.....
end subroutine
subroutine fuc(a)
real:: a(2,*)
.....
write(123,*) 1, "int ", 0, "a", size(shape(a)), shape(a)
write(123,*) a
.....
end subroutine