| Line 89... |
Line 89... |
necessary for external packages such as Arpack.
|
necessary for external packages such as Arpack.
|
*/
|
*/
|
PetscErrorCode EPSAllocateSolutionContiguous(EPS eps)
|
PetscErrorCode EPSAllocateSolutionContiguous(EPS eps)
|
{
|
{
|
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
int i;
|
PetscInt i;
|
PetscInt nloc;
|
PetscInt nloc;
|
PetscScalar *pV,*pW;
|
PetscScalar *pV,*pW;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
if (eps->allocated_ncv != eps->ncv) {
|
if (eps->allocated_ncv != eps->ncv) {
|
| Line 168... |
Line 168... |
EPSAllocateSolutionContiguous().
|
EPSAllocateSolutionContiguous().
|
*/
|
*/
|
PetscErrorCode EPSFreeSolutionContiguous(EPS eps)
|
PetscErrorCode EPSFreeSolutionContiguous(EPS eps)
|
{
|
{
|
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
int i;
|
PetscInt i;
|
PetscScalar *pV,*pW;
|
PetscScalar *pV,*pW;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
PetscValidHeaderSpecific(eps,EPS_COOKIE,1);
|
PetscValidHeaderSpecific(eps,EPS_COOKIE,1);
|
if (eps->allocated_ncv > 0) {
|
if (eps->allocated_ncv > 0) {
|