Fortran Coder

标题: module使用外部变量 [打印本页]

作者: muzili2008 时间: 2014-12-2 17:20
标题: module使用外部变量
定义了一个module模块，里面有多个变量。
其中部分变量为矢量，如x（n）。
n的值希望通过外部的程序定义，并传递过来。

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

作者: vvt 时间: 2014-12-2 18:35

[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 时间: 2014-12-2 20:43
多谢楼上的高手指点！

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