Fortran Coder

标题: MODULE 中使用动态数组 [打印本页]

作者: 一磅缘 时间: 2016-5-22 22:25
标题: MODULE 中使用动态数组
本帖最后由一磅缘于 2016-5-23 09:43 编辑

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

非常感谢

作者: 一磅缘 时间: 2016-5-23 09:39
自己补充下：
本人想实现MODULE中定义数组，方便每个子程序直接调用（子程序名可大大简化）；
MODULE数组中的值应该是随着调用的进行可以更新。

作者: li913 时间: 2016-5-23 17:53
第一种，子程序和动态数组放在同一模块

[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

作者: li913 时间: 2016-5-23 17:55
本帖最后由 li913 于 2016-5-23 17:56 编辑

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

[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

作者: pasuka 时间: 2016-5-23 19:26
如果lz已经看过彭国伦的书，那么请深入阅读面向对象OOP编程的资料，多层次函数调用无法巧妙而优雅滴绕开OOP编程

作者: pasuka 时间: 2016-5-23 19:28

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

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

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

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

欢迎光临 Fortran Coder (http://bbs.fcode.cn/)