MODULE 中使用动态数组

一磅缘

请教各位一个问题：      
本人编写的程序需要设置多层子程序，按之前实数组，及虚数组的设置，需要在各层子程序名中注明调用的数组（实数组），很不方便，module貌似具有类似的功能。
但问题是我传递的很多多维数组是根据读入的初始变量决定其大小的，因此：
可否在module中定义动态数组，继而在每个子程序中USE module，或者有没例子？


非常感谢

fcode

竹叶的意思只是解释如何使用module中的动态数组，并没有引入太多其他情况的分辨。
（对于新手来说，一下子引入太多，反而难以接受）

确实在module里，由于函数可能被调用多次，通常需要进行 allocated 之类的判断。会更安全。

pasuka

li913 发表于 2016-5-23 17:55
第二种，子程序和数组不在同一模块
[mw_shl_code=fortran,true]module m
integer,allocatable::n(:)

动态数组不做任何检查，上手就分配、赋值和释放的话，很容易栽跟头。。。

pasuka

如果lz已经看过彭国伦的书，那么请深入阅读面向对象OOP编程的资料，多层次函数调用无法巧妙而优雅滴绕开OOP编程

li913

第二种，子程序和数组不在同一模块

[Fortran] 纯文本查看 复制代码

module m 
integer,allocatable::n(:)
end module 

program test
call sub1
call sub2
call sub3
call sub4
end 
! 分配
subroutine sub1
use m
allocate(n(3))
end subroutine

! 赋值
subroutine sub2
use m
n=[1,2,3]
end subroutine

! 使用
subroutine sub3
use m
integer i
i=n(2)
print*,i
end subroutine

! 释放
subroutine sub4
use m
deallocate(n)
end subroutine

li913

第一种，子程序和动态数组放在同一模块

[Fortran] 纯文本查看 复制代码

module m 
integer,allocatable::n(:)
contains 
! 分配
subroutine sub1
allocate(n(3))
end subroutine

! 赋值
subroutine sub2
n=[1,2,3]
end subroutine

! 使用
subroutine sub3
integer i
i=n(2)
print*,i
end subroutine

! 释放
subroutine sub4
deallocate(n)
end subroutine
end module 

program test
use m
call sub1
call sub2
call sub3
call sub4
end 

一磅缘

自己补充下：
本人想实现MODULE中定义数组，方便每个子程序直接调用（子程序名可大大简化）；
MODULE数组中的值应该是随着调用的进行可以更新。