| Line 23... |
Line 23... |
|
|
#include <private/epsimpl.h> /*I "slepceps.h" I*/
|
#include <private/epsimpl.h> /*I "slepceps.h" I*/
|
#include <slepcblaslapack.h>
|
#include <slepcblaslapack.h>
|
|
|
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "EPSDestroy_Default"
|
#define __FUNCT__ "EPSReset_Default"
|
PetscErrorCode EPSDestroy_Default(EPS eps)
|
PetscErrorCode EPSReset_Default(EPS eps)
|
{
|
{
|
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
PetscValidHeaderSpecific(eps,EPS_CLASSID,1);
|
PetscValidHeaderSpecific(eps,EPS_CLASSID,1);
|
ierr = PetscFree(eps->data);CHKERRQ(ierr);
|
|
|
|
/* free work vectors */
|
|
ierr = EPSDefaultFreeWork(eps);CHKERRQ(ierr);
|
ierr = EPSDefaultFreeWork(eps);CHKERRQ(ierr);
|
ierr = EPSFreeSolution(eps);CHKERRQ(ierr);
|
ierr = EPSFreeSolution(eps);CHKERRQ(ierr);
|
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|
}
|
}
|
|
|
| Line 237... |
Line 234... |
{
|
{
|
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
if (eps->nwork != nw) {
|
if (eps->nwork != nw) {
|
if (eps->nwork > 0) {
|
ierr = SlepcVecDestroyVecs(eps->nwork,&eps->work);CHKERRQ(ierr);
|
ierr = VecDestroyVecs(eps->nwork,&eps->work);CHKERRQ(ierr);
|
|
}
|
|
eps->nwork = nw;
|
eps->nwork = nw;
|
ierr = VecDuplicateVecs(eps->V[0],nw,&eps->work);CHKERRQ(ierr);
|
ierr = SlepcVecDuplicateVecs(eps->V[0],nw,&eps->work);CHKERRQ(ierr);
|
ierr = PetscLogObjectParents(eps,nw,eps->work);
|
ierr = PetscLogObjectParents(eps,nw,eps->work);
|
}
|
}
|
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|
}
|
}
|
|
|
| Line 258... |
Line 253... |
{
|
{
|
PetscErrorCode ierr;
|
PetscErrorCode ierr;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
PetscValidHeaderSpecific(eps,EPS_CLASSID,1);
|
PetscValidHeaderSpecific(eps,EPS_CLASSID,1);
|
if (eps->work) {
|
ierr = SlepcVecDestroyVecs(eps->nwork,&eps->work);CHKERRQ(ierr);
|
ierr = VecDestroyVecs(eps->nwork,&eps->work);CHKERRQ(ierr);
|
|
}
|
|
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|
}
|
}
|
|
|
#undef __FUNCT__
|
#undef __FUNCT__
|
#define __FUNCT__ "EPSEigRelativeConverged"
|
#define __FUNCT__ "EPSEigRelativeConverged"
|