Skip to content
Snippets Groups Projects
Commit 3d644285 authored by Stéphane Del Pino's avatar Stéphane Del Pino
Browse files

Take into SLEPc's API change starting from version 3.15.0

parent 53a39851
Branches
Tags
1 merge request!122Take into SLEPc's API change starting from version 3.15.0
...@@ -32,6 +32,7 @@ struct EigenvalueSolver::Internals ...@@ -32,6 +32,7 @@ struct EigenvalueSolver::Internals
computeAllEigenvaluesOfSymmetricMatrixInInterval(EPS& eps, const PetscReal left_bound, const PetscReal right_bound) computeAllEigenvaluesOfSymmetricMatrixInInterval(EPS& eps, const PetscReal left_bound, const PetscReal right_bound)
{ {
Assert(left_bound < right_bound); Assert(left_bound < right_bound);
EPSSetType(eps, EPSKRYLOVSCHUR);
EPSSetWhichEigenpairs(eps, EPS_ALL); EPSSetWhichEigenpairs(eps, EPS_ALL);
EPSSetInterval(eps, left_bound - 0.01 * std::abs(left_bound), right_bound + 0.01 * std::abs(right_bound)); EPSSetInterval(eps, left_bound - 0.01 * std::abs(left_bound), right_bound + 0.01 * std::abs(right_bound));
...@@ -40,7 +41,11 @@ struct EigenvalueSolver::Internals ...@@ -40,7 +41,11 @@ struct EigenvalueSolver::Internals
STSetType(st, STSINVERT); STSetType(st, STSINVERT);
KSP ksp; KSP ksp;
#if (SLEPC_VERSION_MAJOR >= 3) && (SLEPC_VERSION_MINOR >= 15)
EPSKrylovSchurGetKSP(eps, &ksp);
#else
STGetKSP(st, &ksp); STGetKSP(st, &ksp);
#endif
KSPSetType(ksp, KSPPREONLY); KSPSetType(ksp, KSPPREONLY);
PC pc; PC pc;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment