| Line 21... |
Line 21... |
along with SLEPc. If not, see <http://www.gnu.org/licenses/>.
|
along with SLEPc. If not, see <http://www.gnu.org/licenses/>.
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
*/
|
*/
|
|
|
#include <private/stimpl.h> /*I "slepcst.h" I*/
|
#include <private/stimpl.h> /*I "slepcst.h" I*/
|
|
#include <slepcsys.h>
|
|
|
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "STAssociatedKSPSolve"
|
#define __FUNCT__ "STAssociatedKSPSolve"
|
/*
|
/*
|
STAssociatedKSPSolve - Solves the linear system of equations associated
|
STAssociatedKSPSolve - Solves the linear system of equations associated
|
| Line 147... |
Line 148... |
ierr = KSPCreate(((PetscObject)st)->comm,&st->ksp);CHKERRQ(ierr);
|
ierr = KSPCreate(((PetscObject)st)->comm,&st->ksp);CHKERRQ(ierr);
|
ierr = KSPSetOptionsPrefix(st->ksp,((PetscObject)st)->prefix);CHKERRQ(ierr);
|
ierr = KSPSetOptionsPrefix(st->ksp,((PetscObject)st)->prefix);CHKERRQ(ierr);
|
ierr = KSPAppendOptionsPrefix(st->ksp,"st_");CHKERRQ(ierr);
|
ierr = KSPAppendOptionsPrefix(st->ksp,"st_");CHKERRQ(ierr);
|
ierr = PetscObjectIncrementTabLevel((PetscObject)st->ksp,(PetscObject)st,1);CHKERRQ(ierr);
|
ierr = PetscObjectIncrementTabLevel((PetscObject)st->ksp,(PetscObject)st,1);CHKERRQ(ierr);
|
ierr = PetscLogObjectParent(st,st->ksp);CHKERRQ(ierr);
|
ierr = PetscLogObjectParent(st,st->ksp);CHKERRQ(ierr);
|
|
ierr = KSPSetTolerances(st->ksp,SLEPC_DEFAULT_TOL,PETSC_DEFAULT,PETSC_DEFAULT,PETSC_DEFAULT);CHKERRQ(ierr);
|
}
|
}
|
*ksp = st->ksp;
|
*ksp = st->ksp;
|
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|
}
|
}
|
|
|