module及subroutine中声明的优先级

caimaxwell

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

module
type(Subblocks),allocatable  :: iboxNears(:)
end module
subroutine
type(near) :: iboxNears
end subroutine

想问问各位前辈，我在subroutine里使用的iboxnears所具有的结构是mudule里声明的还是subroutine里声明的，还是说都具有？

caimaxwell

十分感谢您的解答，不过我还是有点疑惑，此处的new_iboxNears 是在module中声明的结构吗？意思是将module中声明的指向subroutine中的结构？ 另module中生明的 我是否应该设置成指针形式才能指向呢？

caimaxwell

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

module EmiblockData
  use EmHMatrixData
  implicit none

  type Subblocks
    integer*4  :: row
    integer*4  :: coL
  end type Subblocks

  type blocks
    type(Subblocks), allocatable :: iSubblocks(:)
  end type blocks

type(blocks), allocatable :: iblocks(:)

end EmiblockData

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

subroutine Buildhblock(na, nb, fa, fb, Nunadm, Nadmit, sbmax)
  !为了将远近区块的信息赋值到远近块中

  use EmiblockData, iboxNear => iboxNears; iboxFarg => iboxFargs; iblock => iblocks; isubblock => isubblocks
!  use EmiNearsData
  implicit none
  type(near) :: iboxNear
  type(near)  :: iSubblock
  type(Smatrix)  :: iboxFarg
end subroutine

十分感谢您的解答！
但我这么做运行时，它报了错，一是implicit none不可用。二是仍报错Symbol 'iboxnears' at (1) conflicts with symbol from module 'emiblockdata', use-associated  |。三是type(near) :: iboxNear； type(near)  :: iSubblock；type(Smatrix)  :: iboxFarg这样的声明有误。
这样的报错是我哪里不对呢？

caimaxwell

风平老涡 发表于 2023-3-17 00:26
请具体了解下use的结构和用法， 参考教科书。

use module, rename-list

十分感谢，知识学到了，问题解决！

caimaxwell

布衣龙共 发表于 2023-3-16 21:39
你的代码有3个问题，我给你标注在下面代码的注释里了。

[mw_shl_code=fortran,true]module EmiblockData

十分感谢，问题解决！