| Line 54... |
Line 54... |
/*------------------------- User parameters --------------------------*/
|
/*------------------------- User parameters --------------------------*/
|
PetscInt max_it, /* maximum number of iterations */
|
PetscInt max_it, /* maximum number of iterations */
|
nev, /* number of eigenvalues to compute */
|
nev, /* number of eigenvalues to compute */
|
ncv, /* number of basis vectors */
|
ncv, /* number of basis vectors */
|
mpd, /* maximum dimension of projected problem */
|
mpd, /* maximum dimension of projected problem */
|
allocated_ncv, /* number of basis vectors allocated */
|
|
nds; /* number of basis vectors of deflation space */
|
nds; /* number of basis vectors of deflation space */
|
PetscScalar target; /* target value */
|
PetscScalar target; /* target value */
|
PetscReal tol; /* tolerance */
|
PetscReal tol; /* tolerance */
|
PetscTruth *conv; /* convergence test */
|
PetscTruth *conv; /* convergence test */
|
PetscErrorCode (*conv_func)(EPS,PetscInt,PetscInt,PetscScalar*,PetscScalar*,PetscReal*,PetscTruth*,void*);
|
PetscErrorCode (*conv_func)(EPS,PetscInt,PetscInt,PetscScalar*,PetscScalar*,PetscReal*,PetscTruth*,void*);
|
void *conv_ctx;
|
void *conv_ctx;
|
EPSWhich which; /* which part of the spectrum to be sought */
|
EPSWhich which; /* which part of the spectrum to be sought */
|
PetscErrorCode (*which_func)(EPS,PetscScalar,PetscScalar,PetscScalar,PetscScalar,PetscInt*,void*);
|
PetscErrorCode (*which_func)(EPS,PetscScalar,PetscScalar,PetscScalar,PetscScalar,PetscInt*,void*);
|
void *which_ctx;
|
void *which_ctx;
|
PetscTruth evecsavailable; /* computed eigenvectors */
|
|
EPSProblemType problem_type; /* which kind of problem to be solved */
|
EPSProblemType problem_type; /* which kind of problem to be solved */
|
EPSExtraction extraction; /* which kind of extraction to be applied */
|
EPSExtraction extraction; /* which kind of extraction to be applied */
|
EPSClass solverclass; /* whether the selected solver is one- or two-sided */
|
EPSClass solverclass; /* whether the selected solver is one- or two-sided */
|
EPSBalance balance; /* the balancing method */
|
EPSBalance balance; /* the balancing method */
|
PetscInt balance_its; /* number of iterations of the balancing method */
|
PetscInt balance_its; /* number of iterations of the balancing method */
|
| Line 92... |
Line 90... |
void *data; /* placeholder for misc stuff associated
|
void *data; /* placeholder for misc stuff associated
|
with a particular solver */
|
with a particular solver */
|
PetscInt nconv, /* number of converged eigenvalues */
|
PetscInt nconv, /* number of converged eigenvalues */
|
its, /* number of iterations so far computed */
|
its, /* number of iterations so far computed */
|
*perm, /* permutation for eigenvalue ordering */
|
*perm, /* permutation for eigenvalue ordering */
|
ldz; /* leading dimension of Z */
|
ldz, /* leading dimension of Z */
|
|
n, nloc, /* problem dimensions (global, local) */
|
|
allocated_ncv; /* number of basis vectors allocated */
|
|
PetscTruth evecsavailable; /* computed eigenvectors */
|
|
|
/* ---------------- Default work-area and status vars -------------------- */
|
/* ---------------- Default work-area and status vars -------------------- */
|
PetscInt nwork;
|
PetscInt nwork;
|
Vec *work;
|
Vec *work;
|
|
|