| Line 183... |
Line 183... |
case EPS_REFINED_HARMONIC: extr = "refined harmonic Ritz"; break;
|
case EPS_REFINED_HARMONIC: extr = "refined harmonic Ritz"; break;
|
default: SETERRQ(1,"Wrong value of eps->extraction");
|
default: SETERRQ(1,"Wrong value of eps->extraction");
|
}
|
}
|
ierr = PetscViewerASCIIPrintf(viewer," extraction type: %s\n",extr);CHKERRQ(ierr);
|
ierr = PetscViewerASCIIPrintf(viewer," extraction type: %s\n",extr);CHKERRQ(ierr);
|
}
|
}
|
if (eps->balance && !eps->ishermitian && eps->balance!=EPSBALANCE_NONE) {
|
if (eps->balance && !eps->ishermitian && eps->balance!=EPS_BALANCE_NONE) {
|
switch (eps->balance) {
|
switch (eps->balance) {
|
case EPSBALANCE_ONESIDE: bal = "one-sided Krylov"; break;
|
case EPS_BALANCE_ONESIDE: bal = "one-sided Krylov"; break;
|
case EPSBALANCE_TWOSIDE: bal = "two-sided Krylov"; break;
|
case EPS_BALANCE_TWOSIDE: bal = "two-sided Krylov"; break;
|
case EPSBALANCE_USER: bal = "user-defined matrix"; break;
|
case EPS_BALANCE_USER: bal = "user-defined matrix"; break;
|
default: SETERRQ(1,"Wrong value of eps->balance");
|
default: SETERRQ(1,"Wrong value of eps->balance");
|
}
|
}
|
ierr = PetscViewerASCIIPrintf(viewer," balancing enabled: %s",bal);CHKERRQ(ierr);
|
ierr = PetscViewerASCIIPrintf(viewer," balancing enabled: %s",bal);CHKERRQ(ierr);
|
if (eps->balance==EPSBALANCE_ONESIDE || eps->balance==EPSBALANCE_TWOSIDE) {
|
if (eps->balance==EPS_BALANCE_ONESIDE || eps->balance==EPS_BALANCE_TWOSIDE) {
|
ierr = PetscViewerASCIIPrintf(viewer,", with its=%d",eps->balance_its);CHKERRQ(ierr);
|
ierr = PetscViewerASCIIPrintf(viewer,", with its=%d",eps->balance_its);CHKERRQ(ierr);
|
}
|
}
|
if (eps->balance==EPSBALANCE_TWOSIDE && eps->balance_cutoff!=0.0) {
|
if (eps->balance==EPS_BALANCE_TWOSIDE && eps->balance_cutoff!=0.0) {
|
ierr = PetscViewerASCIIPrintf(viewer," and cutoff=%g",eps->balance_cutoff);CHKERRQ(ierr);
|
ierr = PetscViewerASCIIPrintf(viewer," and cutoff=%g",eps->balance_cutoff);CHKERRQ(ierr);
|
}
|
}
|
ierr = PetscViewerASCIIPrintf(viewer,"\n");CHKERRQ(ierr);
|
ierr = PetscViewerASCIIPrintf(viewer,"\n");CHKERRQ(ierr);
|
}
|
}
|
ierr = PetscViewerASCIIPrintf(viewer," selected portion of the spectrum: ");CHKERRQ(ierr);
|
ierr = PetscViewerASCIIPrintf(viewer," selected portion of the spectrum: ");CHKERRQ(ierr);
|