module使用外部变量
定义了一个module模块，里面有多个变量。其中部分变量为矢量，如x（n）。
n的值希望通过外部的程序定义，并传递过来。
QQ群里面，臭石头雪球已经有所提示，不过我还是不知道应该怎样处理？
各位大侠能否较为详细的说明一下？
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如看不懂，请回复 多谢楼上的高手指点！
页:
[1]