| Line 67... |
Line 67... |
ierr = PetscMalloc(3*n*sizeof(PetscScalar),&ar->workd);CHKERRQ(ierr);
|
ierr = PetscMalloc(3*n*sizeof(PetscScalar),&ar->workd);CHKERRQ(ierr);
|
|
|
if (eps->extraction) {
|
if (eps->extraction) {
|
ierr = PetscInfo(eps,"Warning: extraction type ignored\n");CHKERRQ(ierr);
|
ierr = PetscInfo(eps,"Warning: extraction type ignored\n");CHKERRQ(ierr);
|
}
|
}
|
|
|
|
if (eps->balance!=EPSBALANCE_NONE)
|
|
SETERRQ(PETSC_ERR_SUP,"Balancing not supported in the Arpack interface");
|
|
|
ierr = EPSDefaultGetWork(eps,2);CHKERRQ(ierr);
|
ierr = EPSDefaultGetWork(eps,2);CHKERRQ(ierr);
|
ierr = EPSAllocateSolution(eps);CHKERRQ(ierr);
|
ierr = EPSAllocateSolution(eps);CHKERRQ(ierr);
|
|
|
PetscFunctionReturn(0);
|
PetscFunctionReturn(0);
|