论坛 › 算法及编程语言 › 如何把动态数组设置为全局变量

lsyaygl 发表于 2009-3-7 09:13

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

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

lilili606 发表于 2009-3-7 13:29

用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 编辑 ]

查看完整版本: 如何把动态数组设置为全局变量