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

Merge branch 'feature/slepsc' into 'develop'

Take into SLEPc's API change starting from version 3.15.0

See merge request !122
parents 53a39851 3d644285
No related branches found
No related tags found
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