From ea980f428ef5dd6e6e229f4ddb6ca3e505e2598b Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 23 Oct 2013 17:52:58 +0000 Subject: [PATCH] fixed long line coming from PETSc macro expansion --- code/DAMASK_spectral_solverBasicPETSc.f90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/code/DAMASK_spectral_solverBasicPETSc.f90 b/code/DAMASK_spectral_solverBasicPETSc.f90 index 1d61556bd..0d821f20a 100644 --- a/code/DAMASK_spectral_solverBasicPETSc.f90 +++ b/code/DAMASK_spectral_solverBasicPETSc.f90 @@ -175,14 +175,15 @@ subroutine basicPETSc_init(temperature) DMDA_BOUNDARY_NONE, DMDA_BOUNDARY_NONE, DMDA_BOUNDARY_NONE, & DMDA_STENCIL_BOX,grid(1),grid(2),grid(3),PETSC_DECIDE,PETSC_DECIDE,PETSC_DECIDE, & 9,1,PETSC_NULL_INTEGER,PETSC_NULL_INTEGER,PETSC_NULL_INTEGER,da,ierr) - CHKERRQ(ierr) + CHKERRQ(ierr) call DMCreateGlobalVector(da,solution_vec,ierr); CHKERRQ(ierr) 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) + 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) !--------------------------------------------------------------------------------------------------