| Line 43... |
Line 43... |
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
eps->ncv = eps->n;
|
eps->ncv = eps->n;
|
if (eps->mpd) PetscInfo(eps,"Warning: parameter mpd ignored\n");
|
if (eps->mpd) PetscInfo(eps,"Warning: parameter mpd ignored\n");
|
|
|
if (eps->balance!=EPSBALANCE_NONE)
|
if (eps->balance!=EPS_BALANCE_NONE)
|
SETERRQ(PETSC_ERR_SUP,"Balancing not supported in Lapack solvers");
|
SETERRQ(PETSC_ERR_SUP,"Balancing not supported in Lapack solvers");
|
|
|
if (la->OP) { ierr = MatDestroy(la->OP);CHKERRQ(ierr); }
|
if (la->OP) { ierr = MatDestroy(la->OP);CHKERRQ(ierr); }
|
if (la->A) { ierr = MatDestroy(la->A);CHKERRQ(ierr); }
|
if (la->A) { ierr = MatDestroy(la->A);CHKERRQ(ierr); }
|
if (la->B) { ierr = MatDestroy(la->B);CHKERRQ(ierr); }
|
if (la->B) { ierr = MatDestroy(la->B);CHKERRQ(ierr); }
|