| Line 4... |
Line 4... |
*/
|
*/
|
|
|
#include "src/st/stimpl.h" /*I "slepcst.h" I*/
|
#include "src/st/stimpl.h" /*I "slepcst.h" I*/
|
|
|
PetscCookie ST_COOKIE = 0;
|
PetscCookie ST_COOKIE = 0;
|
PetscEvent ST_SetUp = 0, ST_Apply = 0, ST_ApplyB = 0, ST_ApplyTranspose = 0, ST_InnerProduct = 0;
|
PetscEvent ST_SetUp = 0, ST_Apply = 0, ST_ApplyB = 0, ST_ApplyTranspose = 0;
|
|
|
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "STInitializePackage"
|
#define __FUNCT__ "STInitializePackage"
|
/*@C
|
/*@C
|
STInitializePackage - This function initializes everything in the ST package. It is called
|
STInitializePackage - This function initializes everything in the ST package. It is called
|
| Line 39... |
Line 39... |
/* Register Events */
|
/* Register Events */
|
ierr = PetscLogEventRegister(&ST_SetUp,"STSetUp",ST_COOKIE);CHKERRQ(ierr);
|
ierr = PetscLogEventRegister(&ST_SetUp,"STSetUp",ST_COOKIE);CHKERRQ(ierr);
|
ierr = PetscLogEventRegister(&ST_Apply,"STApply",ST_COOKIE);CHKERRQ(ierr);
|
ierr = PetscLogEventRegister(&ST_Apply,"STApply",ST_COOKIE);CHKERRQ(ierr);
|
ierr = PetscLogEventRegister(&ST_ApplyB,"STApplyB",ST_COOKIE);CHKERRQ(ierr);
|
ierr = PetscLogEventRegister(&ST_ApplyB,"STApplyB",ST_COOKIE);CHKERRQ(ierr);
|
ierr = PetscLogEventRegister(&ST_ApplyTranspose,"STApplyTranspose",ST_COOKIE); CHKERRQ(ierr);
|
ierr = PetscLogEventRegister(&ST_ApplyTranspose,"STApplyTranspose",ST_COOKIE); CHKERRQ(ierr);
|
ierr = PetscLogEventRegister(&ST_InnerProduct,"STInnerProduct",ST_COOKIE);CHKERRQ(ierr);
|
|
/* Process info exclusions */
|
/* Process info exclusions */
|
ierr = PetscOptionsGetString(PETSC_NULL, "-log_info_exclude", logList, 256, &opt);CHKERRQ(ierr);
|
ierr = PetscOptionsGetString(PETSC_NULL, "-log_info_exclude", logList, 256, &opt);CHKERRQ(ierr);
|
if (opt) {
|
if (opt) {
|
ierr = PetscStrstr(logList, "st", &className);CHKERRQ(ierr);
|
ierr = PetscStrstr(logList, "st", &className);CHKERRQ(ierr);
|
if (className) {
|
if (className) {
|
| Line 61... |
Line 60... |
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|
}
|
}
|
|
|
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "STDestroy"
|
#define __FUNCT__ "STDestroy"
|
/*@C
|
/*@
|
STDestroy - Destroys ST context that was created with STCreate().
|
STDestroy - Destroys ST context that was created with STCreate().
|
|
|
Collective on ST
|
Collective on ST
|
|
|
Input Parameter:
|
Input Parameter:
|
| Line 142... |
Line 141... |
st->sigma = 0.0;
|
st->sigma = 0.0;
|
st->data = 0;
|
st->data = 0;
|
st->setupcalled = 0;
|
st->setupcalled = 0;
|
st->w = 0;
|
st->w = 0;
|
st->shift_matrix = STMATMODE_COPY;
|
st->shift_matrix = STMATMODE_COPY;
|
st->bilinear_form = STINNER_HERMITIAN;
|
|
st->str = DIFFERENT_NONZERO_PATTERN;
|
st->str = DIFFERENT_NONZERO_PATTERN;
|
|
|
ierr = KSPCreate(st->comm,&st->ksp);CHKERRQ(ierr);
|
ierr = KSPCreate(st->comm,&st->ksp);CHKERRQ(ierr);
|
ierr = STGetOptionsPrefix(st,&prefix);CHKERRQ(ierr);
|
ierr = STGetOptionsPrefix(st,&prefix);CHKERRQ(ierr);
|
ierr = KSPSetOptionsPrefix(st->ksp,prefix);CHKERRQ(ierr);
|
ierr = KSPSetOptionsPrefix(st->ksp,prefix);CHKERRQ(ierr);
|