From 9083aa53fbbc85ba0170ae7df35dcf85bb85228f Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 19 Nov 2013 16:06:53 +0000 Subject: [PATCH] fixed long lines due to makro expansion --- code/DAMASK_spectral_solverBasicPETSc.f90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/code/DAMASK_spectral_solverBasicPETSc.f90 b/code/DAMASK_spectral_solverBasicPETSc.f90 index cdc6301e0..f08a681ba 100644 --- a/code/DAMASK_spectral_solverBasicPETSc.f90 +++ b/code/DAMASK_spectral_solverBasicPETSc.f90 @@ -199,9 +199,11 @@ subroutine basicPETSc_init(temperature,nActivePhaseFields,phaseFieldData) !call DMDASNESSetFunctionLocal(da,INSERT_VALUES,BasicPETSC_formResidual,dummy,ierr); CHKERRQ(ierr) ! needed for newer versions of petsc call DMDASetLocalFunction(da,BasicPETSC_formResidual,ierr); CHKERRQ(ierr) call SNESSetDM(snes,da,ierr); CHKERRQ(ierr) - call SNESSetConvergenceTest(snes,BasicPETSC_converged,dummy,PETSC_NULL_FUNCTION,ierr); CHKERRQ(ierr) + call SNESSetConvergenceTest(snes,BasicPETSC_converged,dummy,PETSC_NULL_FUNCTION,ierr) + CHKERRQ(ierr) call SNESGetKSP(snes,ksp,ierr); CHKERRQ(ierr) - call KSPSetConvergenceTest(ksp,BasicPETSC_convergedKSP,dummy,PETSC_NULL_FUNCTION,ierr); CHKERRQ(ierr) + call KSPSetConvergenceTest(ksp,BasicPETSC_convergedKSP,dummy,PETSC_NULL_FUNCTION,ierr) + CHKERRQ(ierr) call SNESSetFromOptions(snes,ierr); CHKERRQ(ierr) !--------------------------------------------------------------------------------------------------