Fortran Coder

查看: 5809|回复: 2

[Module] module使用外部变量

[复制链接]

23

帖子

9

主题

0

精华

熟手

F 币
124 元
贡献
79 点
发表于 2014-12-2 17:20:49 | 显示全部楼层 |阅读模式
定义了一个module模块,里面有多个变量。
其中部分变量为矢量,如x(n)。
n的值希望通过外部的程序定义,并传递过来。

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

953

帖子

0

主题

0

精华

大师

F 币
180 元
贡献
73 点

规矩勋章元老勋章新人勋章水王勋章热心勋章

QQ
发表于 2014-12-2 18:35:43 | 显示全部楼层
[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
如看不懂,请回复

23

帖子

9

主题

0

精华

熟手

F 币
124 元
贡献
79 点
 楼主| 发表于 2014-12-2 20:43:31 | 显示全部楼层
多谢楼上的高手指点!
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

捐赠本站|Archiver|关于我们 About Us|小黑屋|Fcode ( 京ICP备18005632-2号 )

GMT+8, 2024-3-29 07:57

Powered by Tencent X3.4

© 2013-2024 Tencent

快速回复 返回顶部 返回列表