28   parms_PC          pc;  member
37 static PetscErrorCode PCSetUp_PARMS(PC pc)  in PCSetUp_PARMS()  argument
40   PC_PARMS          *parms = (PC_PARMS *)pc->data;  in PCSetUp_PARMS()
53   PetscCall(PCGetOperators(pc, NULL, &pmat));  in PCSetUp_PARMS()
137   if (parms->pc) {  in PCSetUp_PARMS()
138     parms_PCFree(&parms->pc);  in PCSetUp_PARMS()
139     parms->pc = NULL;  in PCSetUp_PARMS()
143   parms_PCCreate(&parms->pc, parms->A);  in PCSetUp_PARMS()
148     parms_PCSetType(parms->pc, PCRAS);  in PCSetUp_PARMS()
151     parms_PCSetType(parms->pc, PCSCHUR);  in PCSetUp_PARMS()
154     parms_PCSetType(parms->pc, PCBJ);  in PCSetUp_PARMS()
159     parms_PCSetILUType(parms->pc, PCILU0);  in PCSetUp_PARMS()
162     parms_PCSetILUType(parms->pc, PCILUK);  in PCSetUp_PARMS()
165     parms_PCSetILUType(parms->pc, PCILUT);  in PCSetUp_PARMS()
168     parms_PCSetILUType(parms->pc, PCARMS);  in PCSetUp_PARMS()
171   parms_PCSetInnerEps(parms->pc, parms->solvetol);  in PCSetUp_PARMS()
172   parms_PCSetNlevels(parms->pc, parms->levels);  in PCSetUp_PARMS()
173   parms_PCSetPermType(parms->pc, parms->nonsymperm ? 1 : 0);  in PCSetUp_PARMS()
174   parms_PCSetBsize(parms->pc, parms->blocksize);  in PCSetUp_PARMS()
175   parms_PCSetTolInd(parms->pc, parms->indtol);  in PCSetUp_PARMS()
176   parms_PCSetInnerKSize(parms->pc, parms->maxdim);  in PCSetUp_PARMS()
177   parms_PCSetInnerMaxits(parms->pc, parms->maxits);  in PCSetUp_PARMS()
179   parms_PCSetPermScalOptions(parms->pc, &meth[0], 1);  in PCSetUp_PARMS()
180   parms_PCSetPermScalOptions(parms->pc, &meth[4], 0);  in PCSetUp_PARMS()
181   parms_PCSetFill(parms->pc, parms->lfil);  in PCSetUp_PARMS()
182   parms_PCSetTol(parms->pc, parms->droptol);  in PCSetUp_PARMS()
184   parms_PCSetup(parms->pc);  in PCSetUp_PARMS()
194 static PetscErrorCode PCView_PARMS(PC pc, PetscViewer viewer)  in PCView_PARMS()  argument
197   PC_PARMS *parms = (PC_PARMS *)pc->data;  in PCView_PARMS()
204     parms_PCGetName(parms->pc, &str);  in PCView_PARMS()
206     parms_PCILUGetName(parms->pc, &str);  in PCView_PARMS()
208     parms_PCGetRatio(parms->pc, &fill_fact);  in PCView_PARMS()
235 static PetscErrorCode PCDestroy_PARMS(PC pc)  in PCDestroy_PARMS()  argument
237   PC_PARMS *parms = (PC_PARMS *)pc->data;  in PCDestroy_PARMS()
242   if (parms->pc) parms_PCFree(&parms->pc);  in PCDestroy_PARMS()
245   PetscCall(PetscFree(pc->data));  in PCDestroy_PARMS()
247   PetscCall(PetscObjectChangeTypeName((PetscObject)pc, 0));  in PCDestroy_PARMS()
248   PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetGlobal_C", NULL));  in PCDestroy_PARMS()
249   PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetLocal_C", NULL));  in PCDestroy_PARMS()
250   PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetSolveTolerances_C", NULL));  in PCDestroy_PARMS()
251   PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetSolveRestart_C", NULL));  in PCDestroy_PARMS()
252   PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetNonsymPerm_C", NULL));  in PCDestroy_PARMS()
253   PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetFill_C", NULL));  in PCDestroy_PARMS()
257 static PetscErrorCode PCSetFromOptions_PARMS(PC pc, PetscOptionItems PetscOptionsObject)  in PCSetFromOptions_PARMS()  argument
259   PC_PARMS         *parms = (PC_PARMS *)pc->data;  in PCSetFromOptions_PARMS()
267   if (flag) PetscCall(PCPARMSSetGlobal(pc, global));  in PCSetFromOptions_PARMS()
269   if (flag) PetscCall(PCPARMSSetLocal(pc, local));  in PCSetFromOptions_PARMS()
299 static PetscErrorCode PCApply_PARMS(PC pc, Vec b, Vec x)  in PCApply_PARMS()  argument
301   PC_PARMS          *parms = (PC_PARMS *)pc->data;  in PCApply_PARMS()
309   parms_PCApply(parms->pc, parms->lvec0, parms->lvec1);  in PCApply_PARMS()
316 static PetscErrorCode PCPARMSSetGlobal_PARMS(PC pc, PCPARMSGlobalType type)  in PCPARMSSetGlobal_PARMS()  argument
318   PC_PARMS *parms = (PC_PARMS *)pc->data;  in PCPARMSSetGlobal_PARMS()
323     pc->setupcalled = PETSC_FALSE;  in PCPARMSSetGlobal_PARMS()
352 PetscErrorCode PCPARMSSetGlobal(PC pc, PCPARMSGlobalType type)  in PCPARMSSetGlobal()  argument
355   PetscValidHeaderSpecific(pc, PC_CLASSID, 1);  in PCPARMSSetGlobal()
356   PetscValidLogicalCollectiveEnum(pc, type, 2);  in PCPARMSSetGlobal()
357   PetscTryMethod(pc, "PCPARMSSetGlobal_C", (PC, PCPARMSGlobalType), (pc, type));  in PCPARMSSetGlobal()
361 static PetscErrorCode PCPARMSSetLocal_PARMS(PC pc, PCPARMSLocalType type)  in PCPARMSSetLocal_PARMS()  argument
363   PC_PARMS *parms = (PC_PARMS *)pc->data;  in PCPARMSSetLocal_PARMS()
368     pc->setupcalled = PETSC_FALSE;  in PCPARMSSetLocal_PARMS()
402 PetscErrorCode PCPARMSSetLocal(PC pc, PCPARMSLocalType type)  in PCPARMSSetLocal()  argument
405   PetscValidHeaderSpecific(pc, PC_CLASSID, 1);  in PCPARMSSetLocal()
406   PetscValidLogicalCollectiveEnum(pc, type, 2);  in PCPARMSSetLocal()
407   PetscTryMethod(pc, "PCPARMSSetLocal_C", (PC, PCPARMSLocalType), (pc, type));  in PCPARMSSetLocal()
411 static PetscErrorCode PCPARMSSetSolveTolerances_PARMS(PC pc, PetscReal tol, PetscInt maxits)  in PCPARMSSetSolveTolerances_PARMS()  argument
413   PC_PARMS *parms = (PC_PARMS *)pc->data;  in PCPARMSSetSolveTolerances_PARMS()
418     pc->setupcalled = PETSC_FALSE;  in PCPARMSSetSolveTolerances_PARMS()
422     pc->setupcalled = PETSC_FALSE;  in PCPARMSSetSolveTolerances_PARMS()
449 PetscErrorCode PCPARMSSetSolveTolerances(PC pc, PetscReal tol, PetscInt maxits)  in PCPARMSSetSolveTolerances()  argument
452   PetscValidHeaderSpecific(pc, PC_CLASSID, 1);  in PCPARMSSetSolveTolerances()
453   PetscTryMethod(pc, "PCPARMSSetSolveTolerances_C", (PC, PetscReal, PetscInt), (pc, tol, maxits));  in PCPARMSSetSolveTolerances()
457 static PetscErrorCode PCPARMSSetSolveRestart_PARMS(PC pc, PetscInt restart)  in PCPARMSSetSolveRestart_PARMS()  argument
459   PC_PARMS *parms = (PC_PARMS *)pc->data;  in PCPARMSSetSolveRestart_PARMS()
464     pc->setupcalled = PETSC_FALSE;  in PCPARMSSetSolveRestart_PARMS()
489 PetscErrorCode PCPARMSSetSolveRestart(PC pc, PetscInt restart)  in PCPARMSSetSolveRestart()  argument
492   PetscValidHeaderSpecific(pc, PC_CLASSID, 1);  in PCPARMSSetSolveRestart()
493   PetscTryMethod(pc, "PCPARMSSetSolveRestart_C", (PC, PetscInt), (pc, restart));  in PCPARMSSetSolveRestart()
497 static PetscErrorCode PCPARMSSetNonsymPerm_PARMS(PC pc, PetscBool nonsym)  in PCPARMSSetNonsymPerm_PARMS()  argument
499   PC_PARMS *parms = (PC_PARMS *)pc->data;  in PCPARMSSetNonsymPerm_PARMS()
504     pc->setupcalled   = PETSC_FALSE;  in PCPARMSSetNonsymPerm_PARMS()
530 PetscErrorCode PCPARMSSetNonsymPerm(PC pc, PetscBool nonsym)  in PCPARMSSetNonsymPerm()  argument
533   PetscValidHeaderSpecific(pc, PC_CLASSID, 1);  in PCPARMSSetNonsymPerm()
534   PetscTryMethod(pc, "PCPARMSSetNonsymPerm_C", (PC, PetscBool), (pc, nonsym));  in PCPARMSSetNonsymPerm()
538 static PetscErrorCode PCPARMSSetFill_PARMS(PC pc, PetscInt lfil0, PetscInt lfil1, PetscInt lfil2)  in PCPARMSSetFill_PARMS()  argument
540   PC_PARMS *parms = (PC_PARMS *)pc->data;  in PCPARMSSetFill_PARMS()
545     pc->setupcalled                                                   = PETSC_FALSE;  in PCPARMSSetFill_PARMS()
549     pc->setupcalled = PETSC_FALSE;  in PCPARMSSetFill_PARMS()
553     pc->setupcalled                 = PETSC_FALSE;  in PCPARMSSetFill_PARMS()
583 PetscErrorCode PCPARMSSetFill(PC pc, PetscInt lfil0, PetscInt lfil1, PetscInt lfil2)  in PCPARMSSetFill()  argument
586   PetscValidHeaderSpecific(pc, PC_CLASSID, 1);  in PCPARMSSetFill()
587 …PetscTryMethod(pc, "PCPARMSSetFill_C", (PC, PetscInt, PetscInt, PetscInt), (pc, lfil0, lfil1, lfil…  in PCPARMSSetFill()
632 PETSC_EXTERN PetscErrorCode PCCreate_PARMS(PC pc)  in PCCreate_PARMS()  argument
641   parms->pc         = 0;  in PCCreate_PARMS()
665   pc->data                = parms;  in PCCreate_PARMS()
666   pc->ops->destroy        = PCDestroy_PARMS;  in PCCreate_PARMS()
667   pc->ops->setfromoptions = PCSetFromOptions_PARMS;  in PCCreate_PARMS()
668   pc->ops->setup          = PCSetUp_PARMS;  in PCCreate_PARMS()
669   pc->ops->apply          = PCApply_PARMS;  in PCCreate_PARMS()
670   pc->ops->view           = PCView_PARMS;  in PCCreate_PARMS()
672 …PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetGlobal_C", PCPARMSSetGlobal_PARMS…  in PCCreate_PARMS()
673 …PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetLocal_C", PCPARMSSetLocal_PARMS));  in PCCreate_PARMS()
674 …PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetSolveTolerances_C", PCPARMSSetSol…  in PCCreate_PARMS()
675 …PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetSolveRestart_C", PCPARMSSetSolveR…  in PCCreate_PARMS()
676 …PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetNonsymPerm_C", PCPARMSSetNonsymPe…  in PCCreate_PARMS()
677   PetscCall(PetscObjectComposeFunction((PetscObject)pc, "PCPARMSSetFill_C", PCPARMSSetFill_PARMS));  in PCCreate_PARMS()