如何把动态数组设置为全局变量

lsyaygl

我利用fortran语言编写大程序，数据特别多，想把动态数组设置为全局变量，但好像行不通，不知还有其他办法？

lilili606

用module 例子如下
module a
   implicit none
   integer(kind=4),allocatable::b(:)
end module

subroutine sub(t)
   use a
   implicit none
   integer(kind=4)::t
   allocate(b(t))
   b=1
end subroutine

program main
   use a
   implicit none
   call sub(3)
   print*,b
end program

[ 本帖最后由 lilili606 于 2009-3-7 13:32 编辑 ]