Fortran Coder

查看: 201|回复: 4

[Module] 关于module及subroutine

[复制链接]

21

帖子

6

主题

0

精华

入门

F 币
79 元
贡献
48 点
发表于 2023-3-7 14:55:06 | 显示全部楼层 |阅读模式
[Fortran] 纯文本查看 复制代码
module EmiblockData
  use EmHMatrixData
  implicit none
  type Subblocks
    integer*4  :: row
    integer*4  :: coL
  end type Subblocks

  type blocks
    integer*4  :: row1,row2,coL1,coL2
    integer*4  :: rowm,coLm
    integer*4  :: dad
    integer*4  :: son(4)
    integer*4  :: bnum
    type(Subblocks), allocatable :: iSubblocks(:)
  end type blocks

  integer*4 :: Nblock
  type(blocks), allocatable :: iblocks(:)
  integer*4, allocatable   :: BlockInd(:, :)
!  type(Subblocks), allocatable  :: iSubblocks(:)
  integer*4, allocatable  :: iSubblocks(:), iblockInd(:, :)

contains
subroutine BlockRenumber(iSubblocks, sbmax)
  !对子矩阵块中的矩阵块进行编号
  implicit none
  integer*4  :: sbmax                
  type(Subblocks),allocatable  :: iSubblocks(:)        !最小矩阵块....
end subroutine

为什么我明明已经在module里声明了isubblocks,在编写子程序时仍然要声明isubblock(),不声明就会报错(未定义)?

望解答

656

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
407 元
贡献
202 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

发表于 2023-3-7 15:33:07 | 显示全部楼层
因为虚参会覆盖module中的模块变量。

21

帖子

6

主题

0

精华

入门

F 币
79 元
贡献
48 点
 楼主| 发表于 2023-3-7 15:42:15 | 显示全部楼层
是subroutine(x,y,z)中的x,y,z覆盖了module中声明的变量吗?就是说subroutine()括号中不能出现module声明的变量,应使用别的单词代替的意思吗?

21

帖子

6

主题

0

精华

入门

F 币
79 元
贡献
48 点
 楼主| 发表于 2023-3-7 19:57:19 | 显示全部楼层
十分感谢您的解答。很有帮助!

656

帖子

4

主题

0

精华

大师

农村外出务工人员

F 币
407 元
贡献
202 点

新人勋章爱心勋章水王勋章元老勋章热心勋章

发表于 2023-3-7 20:08:23 | 显示全部楼层
本帖最后由 楚香饭 于 2023-3-7 20:11 编辑

是的。
subroutine BlockRenumber(iSubblocks, sbmax)
这里的 iSubblocks 覆盖了 module 中定义的 iSubblocks

并不是说:“subroutine()括号中不能出现module声明的变量”
而是一旦出现了,那么 module 中定义的同名变量,在这个subroutine中就无法访问了。
这种情况,称为“覆盖”
如果你确实认为虚参中的那个变量才是你想要的,module中同名的变量你并不希望使用。那么这样做,也并无不可。
实际上,某些情况下,这样恰好是你想要的。
您需要登录后才可以回帖 登录 | 极速注册

本版积分规则

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

GMT+8, 2023-3-24 02:19

Powered by Tencent X3.4

© 2013-2023 Tencent

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