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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？我要加入

x

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

账号		自动登录	找回密码
密码			我要加入

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。