| Line 327... |
Line 327... |
PetscTruth isascii;
|
PetscTruth isascii;
|
primme_params *primme = &((EPS_PRIMME *)eps->data)->primme;
|
primme_params *primme = &((EPS_PRIMME *)eps->data)->primme;
|
EPSPRIMMEMethod methodn;
|
EPSPRIMMEMethod methodn;
|
|
|
PetscFunctionBegin;
|
PetscFunctionBegin;
|
ierr = PetscTypeCompare((PetscObject)viewer,PETSC_VIEWER_ASCII,&isascii);CHKERRQ(ierr);
|
ierr = PetscTypeCompare((PetscObject)viewer,PETSCVIEWERASCII,&isascii);CHKERRQ(ierr);
|
if (!isascii) {
|
if (!isascii) {
|
SETERRQ1(((PetscObject)eps)->comm,1,"Viewer type %s not supported for EPSPRIMME",((PetscObject)viewer)->type_name);
|
SETERRQ1(((PetscObject)eps)->comm,1,"Viewer type %s not supported for EPSPRIMME",((PetscObject)viewer)->type_name);
|
}
|
}
|
|
|
ierr = PetscViewerASCIIPrintf(viewer,"PRIMME solver block size: %d\n",primme->maxBlockSize);CHKERRQ(ierr);
|
ierr = PetscViewerASCIIPrintf(viewer,"PRIMME solver block size: %d\n",primme->maxBlockSize);CHKERRQ(ierr);
|