| Line 113... |
Line 113... |
if (size == 1) {
|
if (size == 1) {
|
ierr = VecGetArray(eps->V[0],&pV);CHKERRQ(ierr);
|
ierr = VecGetArray(eps->V[0],&pV);CHKERRQ(ierr);
|
} else {
|
} else {
|
ierr = PetscMalloc(sizeof(PetscScalar)*n*n,&pV);CHKERRQ(ierr);
|
ierr = PetscMalloc(sizeof(PetscScalar)*n*n,&pV);CHKERRQ(ierr);
|
}
|
}
|
if (eps->solverclass == EPS_TWO_SIDE && (la->OP || !eps->ishermitian)) {
|
if (eps->leftvecs) {
|
if (size == 1) {
|
if (size == 1) {
|
ierr = VecGetArray(eps->W[0],&pW);CHKERRQ(ierr);
|
ierr = VecGetArray(eps->W[0],&pW);CHKERRQ(ierr);
|
} else {
|
} else {
|
ierr = PetscMalloc(sizeof(PetscScalar)*n*n,&pW);CHKERRQ(ierr);
|
ierr = PetscMalloc(sizeof(PetscScalar)*n*n,&pW);CHKERRQ(ierr);
|
}
|
}
|
| Line 220... |
Line 220... |
PetscFunctionBegin;
|
PetscFunctionBegin;
|
ierr = PetscNew(EPS_LAPACK,&la);CHKERRQ(ierr);
|
ierr = PetscNew(EPS_LAPACK,&la);CHKERRQ(ierr);
|
PetscLogObjectMemory(eps,sizeof(EPS_LAPACK));
|
PetscLogObjectMemory(eps,sizeof(EPS_LAPACK));
|
eps->data = (void *) la;
|
eps->data = (void *) la;
|
eps->ops->solve = EPSSolve_LAPACK;
|
eps->ops->solve = EPSSolve_LAPACK;
|
eps->ops->solvets = EPSSolve_LAPACK;
|
|
eps->ops->setup = EPSSetUp_LAPACK;
|
eps->ops->setup = EPSSetUp_LAPACK;
|
eps->ops->destroy = EPSDestroy_LAPACK;
|
eps->ops->destroy = EPSDestroy_LAPACK;
|
eps->ops->backtransform = EPSBackTransform_Default;
|
eps->ops->backtransform = EPSBackTransform_Default;
|
eps->ops->computevectors = EPSComputeVectors_Default;
|
eps->ops->computevectors = EPSComputeVectors_Default;
|
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|