module使用外部变量

muzili2008

定义了一个module模块，里面有多个变量。
其中部分变量为矢量，如x（n）。
n的值希望通过外部的程序定义，并传递过来。

QQ群里面，臭石头雪球已经有所提示，不过我还是不知道应该怎样处理？
各位大侠能否较为详细的说明一下？

vvt

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

查看代码

打印?

01	Module ModA

02	Implicit None

03	Real , Allocatable :: ra(:) , rb(:)

04

contains

05	Subroutine Alloc_ModA( n )

06	Integer , Intent( IN ) :: n

07	allocate( ra(n) , rb(n) )

08	End Subroutine Alloc_ModA

09	Subroutine Dealloc_ModA

10	deallocate( ra , rb )

11	End Subroutine Dealloc_ModA

12	End Module ModA

13

14	Program www_fcode_cn

15

use ModA

16	Implicit None

17	call Alloc_ModA( 3 )

18

ra = 1.0

19

rb = 2.0

20	write(*,*) ra , rb

21	call Dealloc_ModA

22	End Program www_fcode_cn

如看不懂，请回复

muzili2008

多谢楼上的高手指点！