From ae48656a189a6196292fa88bbeef7590f920a205 Mon Sep 17 00:00:00 2001 From: Alp Dener Date: Tue, 3 Apr 2018 21:26:44 -0500 Subject: [PATCH] SNESReasonView() fixed to adopt earlier tab level changes --- src/snes/interface/snes.c | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/snes/interface/snes.c b/src/snes/interface/snes.c index 09c73c6a6d..f2d2cc1926 100644 --- a/src/snes/interface/snes.c +++ b/src/snes/interface/snes.c @@ -4093,12 +4093,14 @@ PetscErrorCode SNESReasonView(SNES snes,PetscViewer viewer) PetscViewerFormat format; PetscBool isAscii; PetscErrorCode ierr; + PetscInt tablevel; PetscFunctionBegin; ierr = PetscObjectTypeCompare((PetscObject)viewer,PETSCVIEWERASCII,&isAscii);CHKERRQ(ierr); if (isAscii) { ierr = PetscViewerGetFormat(viewer, &format);CHKERRQ(ierr); - ierr = PetscViewerASCIIAddTab(viewer,((PetscObject)snes)->tablevel);CHKERRQ(ierr); + ierr = PetscViewerASCIIGetTab(viewer, &tablevel);CHKERRQ(ierr); + ierr = PetscViewerASCIISetTab(viewer,((PetscObject)snes)->tablevel);CHKERRQ(ierr); if (format == PETSC_VIEWER_ASCII_INFO_DETAIL) { DM dm; Vec u; @@ -4131,7 +4133,7 @@ PetscErrorCode SNESReasonView(SNES snes,PetscViewer viewer) ierr = PetscViewerASCIIPrintf(viewer,"Nonlinear solve did not converge due to %s iterations %D\n",SNESConvergedReasons[snes->reason],snes->iter);CHKERRQ(ierr); } } - ierr = PetscViewerASCIISubtractTab(viewer,((PetscObject)snes)->tablevel);CHKERRQ(ierr); + ierr = PetscViewerASCIISetTab(viewer,tablevel);CHKERRQ(ierr); } PetscFunctionReturn(0); } -- 2.17.0