module使用外部变量

muzili2008

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

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

vvt

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

Module ModA
  Implicit None
  Real , Allocatable :: ra(:) , rb(:)
contains
  Subroutine Alloc_ModA( n )
    Integer , Intent( IN ) :: n
    allocate( ra(n) , rb(n) )
  End Subroutine Alloc_ModA
  Subroutine Dealloc_ModA
    deallocate( ra , rb )
  End Subroutine Dealloc_ModA
End Module ModA

Program www_fcode_cn
  use ModA
  Implicit None
  call Alloc_ModA( 3 )
  ra = 1.0
  rb = 2.0
  write(*,*) ra , rb
  call Dealloc_ModA
End Program www_fcode_cn

如看不懂，请回复

muzili2008

多谢楼上的高手指点！