| Line 45... |
Line 45... |
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->which) eps->which = EPS_LARGEST_MAGNITUDE;
|
if (!eps->which) eps->which = EPS_LARGEST_MAGNITUDE;
|
if (eps->balance!=EPS_BALANCE_NONE)
|
if (eps->balance!=EPS_BALANCE_NONE)
|
SETERRQ(PETSC_ERR_SUP,"Balancing not supported in Lapack solvers");
|
SETERRQ(((PetscObject)eps)->comm,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); }
|
|
|