Skip to main content

GetDiagonal

Returns the diagonal

Interface

INTERFACE
SUBROUTINE GetDiagonal(obj, diag)
CLASS(BlockMatrixField_), INTENT(INOUT) :: obj
REAL(DFP), ALLOCATABLE, INTENT(INOUT) :: diag(:)
END SUBROUTINE GetDiagonal
END INTERFACE