From 1ce4b1d39ead7888675a6313103fea35129f56ae Mon Sep 17 00:00:00 2001 From: schnetter Date: Wed, 11 Nov 2009 18:43:35 +0000 Subject: Support PETSc >= 3.0.0 git-svn-id: http://svn.cactuscode.org/arrangements/CactusElliptic/EllPETSc/trunk@107 1d96b42b-98df-4a6a-9d84-1b24288d4588 --- src/petsc_confmetric_solver.c | 4 ++++ src/petsc_flat_solver.c | 4 ++++ 2 files changed, 8 insertions(+) diff --git a/src/petsc_confmetric_solver.c b/src/petsc_confmetric_solver.c index c22c051..5a3d8a6 100644 --- a/src/petsc_confmetric_solver.c +++ b/src/petsc_confmetric_solver.c @@ -851,7 +851,11 @@ int petsc_confmetric_solver(cGH *GH, int *MetricPsiI, int MetricPsiISize, ierr = MatAssemblyEnd(A[0],MAT_FINAL_ASSEMBLY); CHKERRQ(ierr); ierr = VecAssemblyEnd(soln); CHKERRQ(ierr); ierr = VecAssemblyEnd(b); CHKERRQ(ierr); +#if PETSC_VERSION_MAJOR < 3 ierr = MatSetOption(A[0],MAT_NO_NEW_NONZERO_LOCATIONS); CHKERRQ(ierr); +#else + ierr = MatSetOption(A[0],MAT_NEW_NONZERO_LOCATIONS,PETSC_FALSE); CHKERRQ(ierr); +#endif if (nabla_form == 3) { if (verbose) diff --git a/src/petsc_flat_solver.c b/src/petsc_flat_solver.c index 646f385..21e0066 100644 --- a/src/petsc_flat_solver.c +++ b/src/petsc_flat_solver.c @@ -476,7 +476,11 @@ int petsc_flat(cGH *GH, int FieldIndex, int MIndex, int NIndex, ierr = MatAssemblyEnd(A[0],MAT_FINAL_ASSEMBLY); CHKERRQ(ierr); ierr = VecAssemblyEnd(soln); CHKERRQ(ierr); ierr = VecAssemblyEnd(b); CHKERRQ(ierr); +#if PETSC_VERSION_MAJOR < 3 ierr = MatSetOption(A[0],MAT_NO_NEW_NONZERO_LOCATIONS); CHKERRQ(ierr); +#else + ierr = MatSetOption(A[0],MAT_NEW_NONZERO_LOCATIONS,PETSC_FALSE); CHKERRQ(ierr); +#endif if (trips==0) { -- cgit v1.2.3