[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