| Line 786... |
Line 786... |
PC pc;
|
PC pc;
|
Mat F;
|
Mat F;
|
PetscReal *errest_left;
|
PetscReal *errest_left;
|
Vec t;
|
Vec t;
|
SR sr;
|
SR sr;
|
|
shift s;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
#if defined(PETSC_USE_COMPLEX)
|
#if defined(PETSC_USE_COMPLEX)
|
SETERRQ(((PetscObject)eps)->comm,PETSC_ERR_SUP,"Spectrum slicing not supported in complex scalars");
|
SETERRQ(((PetscObject)eps)->comm,PETSC_ERR_SUP,"Spectrum slicing not supported in complex scalars");
|
#endif
|
#endif
|
| Line 913... |
Line 914... |
ierr = PetscFree(sr->idxDef);CHKERRQ(ierr);
|
ierr = PetscFree(sr->idxDef);CHKERRQ(ierr);
|
ierr = PetscFree(sr->pending);CHKERRQ(ierr);
|
ierr = PetscFree(sr->pending);CHKERRQ(ierr);
|
ierr = PetscFree(sr->monit);CHKERRQ(ierr);
|
ierr = PetscFree(sr->monit);CHKERRQ(ierr);
|
ierr = PetscFree(sr->back);CHKERRQ(ierr);
|
ierr = PetscFree(sr->back);CHKERRQ(ierr);
|
/* Reviewing list of shifts to free memory */
|
/* Reviewing list of shifts to free memory */
|
shift s = sr->s0;
|
s = sr->s0;
|
if(s){
|
if(s){
|
while(s->neighb[1]){
|
while(s->neighb[1]){
|
s = s->neighb[1];
|
s = s->neighb[1];
|
ierr = PetscFree(s->neighb[0]);CHKERRQ(ierr);
|
ierr = PetscFree(s->neighb[0]);CHKERRQ(ierr);
|
}
|
}
|