| Line 88... |
Line 88... |
EXTERN_C_BEGIN
|
EXTERN_C_BEGIN
|
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "EPSCreate_JD"
|
#define __FUNCT__ "EPSCreate_JD"
|
PetscErrorCode EPSCreate_JD(EPS eps) {
|
PetscErrorCode EPSCreate_JD(EPS eps) {
|
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
|
KSP ksp;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
|
|
/* Load the DAVIDSON solver */
|
/* Load the DAVIDSON solver */
|
ierr = EPSCreate_DAVIDSON(eps); CHKERRQ(ierr);
|
ierr = EPSCreate_DAVIDSON(eps); CHKERRQ(ierr);
|
|
|
|
/* Set the default ksp of the st to gmres */
|
|
ierr = STGetKSP(eps->OP, &ksp); CHKERRQ(ierr);
|
|
ierr = KSPSetType(ksp, KSPGMRES); CHKERRQ(ierr);
|
|
|
/* Overload the JD properties */
|
/* Overload the JD properties */
|
eps->ops->setfromoptions = EPSSetFromOptions_JD;
|
eps->ops->setfromoptions = EPSSetFromOptions_JD;
|
eps->ops->setup = EPSSetUp_JD;
|
eps->ops->setup = EPSSetUp_JD;
|
eps->ops->destroy = EPSDestroy_JD;
|
eps->ops->destroy = EPSDestroy_JD;
|