您所在位置：主题：怎么把二维数组的一个维度当做一维数组传给函数
kingsky
[专家分：20] 发布于 2012-03-15 20:08:00
program main
real:: a(10,10)
call func(a(5,:),x)
...
end
==========
subroutine func(a,x)
real::a(10),x
....
endsubroutine func
real:: a(10,10)
call func(a(5,:),x)
...
end
==========
subroutine func(a,x)
real::a(10),x
....
endsubroutine func