From d6baa71ee4957d52e045a16ed0c0b43a5e6fc253 Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Thu, 24 Nov 2016 09:51:21 -0500 Subject: [PATCH] added temporary patch for PETSc 3.7.x compatibility apply with "patch -p1 < installation/patch/petsc3.7" --- installation/patch/petsc3.7 | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 installation/patch/petsc3.7 diff --git a/installation/patch/petsc3.7 b/installation/patch/petsc3.7 new file mode 100644 index 000000000..b5fd696fb --- /dev/null +++ b/installation/patch/petsc3.7 @@ -0,0 +1,22 @@ +diff --git a/code/spectral_utilities.f90 b/code/spectral_utilities.f90 +index 34eb0ea..a33c7a9 100644 +--- a/code/spectral_utilities.f90 ++++ b/code/spectral_utilities.f90 +@@ -227,12 +227,13 @@ subroutine utilities_init() + trim(PETScDebug), & + ' add more using the PETSc_Options keyword in numerics.config '; flush(6) + +- call PetscOptionsClear(ierr); CHKERRQ(ierr) +- if(debugPETSc) call PetscOptionsInsertString(trim(PETSCDEBUG),ierr) ++ call PetscOptionsClear(PETSC_NULL_OBJECT,ierr) + CHKERRQ(ierr) +- call PetscOptionsInsertString(trim(petsc_defaultOptions),ierr) ++ if(debugPETSc) call PetscOptionsInsertString(PETSC_NULL_OBJECT,trim(PETSCDEBUG),ierr) + CHKERRQ(ierr) +- call PetscOptionsInsertString(trim(petsc_options),ierr) ++ call PetscOptionsInsertString(PETSC_NULL_OBJECT,trim(petsc_defaultOptions),ierr) ++ CHKERRQ(ierr) ++ call PetscOptionsInsertString(PETSC_NULL_OBJECT,trim(petsc_options),ierr) + CHKERRQ(ierr) + + grid1Red = grid(1)/2_pInt + 1_pInt