关于module及subroutine

caimaxwell

[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(),不声明就会报错（未定义）？

望解答

caimaxwell

是subroutine（x,y,z）中的x,y,z覆盖了module中声明的变量吗？就是说subroutine（）括号中不能出现module声明的变量，应使用别的单词代替的意思吗？

caimaxwell

十分感谢您的解答。很有帮助！