crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 14:15:42 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

fixed petsc version 3.4 and 3.5 compatibility

Browse source
This commit is contained in:
Bryan Herman 2015-01-22 18:33:17 -05:00
parent 2e48762fbb
commit f6439bdf33
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
src/solver_interface.F90
View file

@ -7,6 +7,8 @@ module solver_interface
#ifdef PETSC
use petscksp
use petscsnes
# include <finclude/petscsysdef.h>
# include <petscversion.h>
#endif
implicit none
@ -67,6 +69,11 @@ module solver_interface
#ifdef PETSC
integer :: petsc_err ! petsc error code
# if (PETSC_VERSION_MAJOR == 3) && (PETSC_VERSION_MINOR <= 4)
PetscReal :: PETSC_DEFAULT_DOUBLE = PETSC_DEFAULT_DOUBLE_PRECISION
# else
PetscReal :: PETSC_DEFAULT_DOUBLE = PETSC_DEFAULT_REAL
# endif
#endif
contains
@ -86,7 +93,7 @@ contains
call KSPCreate(PETSC_COMM_WORLD, self % ksp_, petsc_err)
call KSPSetTolerances(self % ksp_, rtol, atol, &
PETSC_DEFAULT_DOUBLE_PRECISION, PETSC_DEFAULT_INTEGER, petsc_err)
PETSC_DEFAULT_DOUBLE, PETSC_DEFAULT_INTEGER, petsc_err)
call KSPSetType(self % ksp_, 'gmres', petsc_err)
call KSPSetInitialGuessNonzero(self % ksp_, PETSC_TRUE, petsc_err)
call KSPGetPC(self % ksp_, self % pc_, petsc_err)