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