module及subroutine中声明的优先级

风平老涡

这个涉及变量定义的域（scope）。一般module定义的变量具有全局域，程序单元use 该module， 就可调用module中定义的变量（除非是private, 那就不能调用)。subroutine中定义的变量具有局部域，只能在该subroutine中调用。
在你的subroutine中, iboxNears具有type(near)的结构， 不具有type(subblocks)的结构.
如果在subroutine中使用use module，编译会出错， 因为数组iboxNears与简单变量iboxNears同名。不过可以另取局部数组名替代，如下：

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

subroutine
use module, new_iboxNears => iboxNears
type(near) :: iboxNears
end subroutine

风平老涡

caimaxwell 发表于 2023-3-16 17:28
[mw_shl_code=fortran,true]module EmiblockData
  use EmHMatrixData
  implicit none

请具体了解下use的结构和用法， 参考教科书。

use module, rename-list

这里的rename有以下型式

local_id => use_id

这里的local_id指的是当前程序单元使用的名字， use_id指的是在module中定义的名字。
所以，use_id在module中已经被定义了。local_id只是该use_id在当前程序单元中的替代名，在当前程序单元中无需重新定义。

"=>"在这里只是表示替代的意思，和指针无关。