module及subroutine中声明的优先级

布衣龙共

你的代码有3个问题，我给你标注在下面代码的注释里了。

[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 module EmiblockData !//不可省略 module

subroutine Buildhblock(na, nb, fa, fb, Nunadm, Nadmit, sbmax)
  use EmiblockData, iboxNear => iboxNears, iboxFarg => iboxFargs, iblock => iblocks, isubblock => isubblocks !//用逗号分割
  implicit none
  !type(near) :: iboxNear 无需再次定义
  !type(near)  :: iSubblock 无需再次定义
  !type(Smatrix)  :: iboxFarg 无需再次定义
end subroutine