Lines Matching refs:pc
116 PetscErrorCode PCMGGetCoarseSolve(PC pc, KSP *ksp) in PCMGGetCoarseSolve() argument
118 PC_MG *mg = (PC_MG *)pc->data; in PCMGGetCoarseSolve()
122 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGGetCoarseSolve()
143 PetscErrorCode PCMGSetResidual(PC pc, PetscInt l, PetscErrorCode (*residual)(Mat, Vec, Vec, Vec), M… in PCMGSetResidual() argument
145 PC_MG *mg = (PC_MG *)pc->data; in PCMGSetResidual()
149 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGSetResidual()
150 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGSetResidual()
177 PetscErrorCode PCMGSetResidualTranspose(PC pc, PetscInt l, PetscErrorCode (*residualt)(Mat, Vec, Ve… in PCMGSetResidualTranspose() argument
179 PC_MG *mg = (PC_MG *)pc->data; in PCMGSetResidualTranspose()
183 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGSetResidualTranspose()
184 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGSetResidualTranspose()
216 PetscErrorCode PCMGSetInterpolation(PC pc, PetscInt l, Mat mat) in PCMGSetInterpolation() argument
218 PC_MG *mg = (PC_MG *)pc->data; in PCMGSetInterpolation()
222 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGSetInterpolation()
223 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGSetInterpolation()
224 …PetscCheck(l, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_OUTOFRANGE, "Do not set interpolatio… in PCMGSetInterpolation()
247 PetscErrorCode PCMGSetOperators(PC pc, PetscInt l, Mat Amat, Mat Pmat) in PCMGSetOperators() argument
249 PC_MG *mg = (PC_MG *)pc->data; in PCMGSetOperators()
253 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGSetOperators()
256 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGSetOperators()
278 PetscErrorCode PCMGGetInterpolation(PC pc, PetscInt l, Mat *mat) in PCMGGetInterpolation() argument
280 PC_MG *mg = (PC_MG *)pc->data; in PCMGGetInterpolation()
284 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGGetInterpolation()
286 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGGetInterpolation()
287 …PetscCheck(l > 0 && l < mg->nlevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_OUTOFRANGE, "… in PCMGGetInterpolation()
288 …if (!mglevels[l]->interpolate && mglevels[l]->restrct) PetscCall(PCMGSetInterpolation(pc, l, mglev… in PCMGGetInterpolation()
318 PetscErrorCode PCMGSetRestriction(PC pc, PetscInt l, Mat mat) in PCMGSetRestriction() argument
320 PC_MG *mg = (PC_MG *)pc->data; in PCMGSetRestriction()
324 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGSetRestriction()
326 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGSetRestriction()
327 …PetscCheck(l, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_OUTOFRANGE, "Do not set restriction … in PCMGSetRestriction()
352 PetscErrorCode PCMGGetRestriction(PC pc, PetscInt l, Mat *mat) in PCMGGetRestriction() argument
354 PC_MG *mg = (PC_MG *)pc->data; in PCMGGetRestriction()
358 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGGetRestriction()
360 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGGetRestriction()
361 …PetscCheck(l > 0 && l < mg->nlevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_OUTOFRANGE, "… in PCMGGetRestriction()
362 …if (!mglevels[l]->restrct && mglevels[l]->interpolate) PetscCall(PCMGSetRestriction(pc, l, mglevel… in PCMGGetRestriction()
385 PetscErrorCode PCMGSetRScale(PC pc, PetscInt l, Vec rscale) in PCMGSetRScale() argument
387 PC_MG *mg = (PC_MG *)pc->data; in PCMGSetRScale()
391 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGSetRScale()
392 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGSetRScale()
393 …PetscCheck(l > 0 && l < mg->nlevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_OUTOFRANGE, "… in PCMGSetRScale()
419 PetscErrorCode PCMGGetRScale(PC pc, PetscInt l, Vec *rscale) in PCMGGetRScale() argument
421 PC_MG *mg = (PC_MG *)pc->data; in PCMGGetRScale()
425 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGGetRScale()
426 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGGetRScale()
427 …PetscCheck(l > 0 && l < mg->nlevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_OUTOFRANGE, "… in PCMGGetRScale()
433 PetscCall(PCMGGetRestriction(pc, l, &R)); in PCMGGetRScale()
469 PetscErrorCode PCMGSetInjection(PC pc, PetscInt l, Mat mat) in PCMGSetInjection() argument
471 PC_MG *mg = (PC_MG *)pc->data; in PCMGSetInjection()
475 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGSetInjection()
477 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGSetInjection()
478 …PetscCheck(l, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_OUTOFRANGE, "Do not set restriction … in PCMGSetInjection()
503 PetscErrorCode PCMGGetInjection(PC pc, PetscInt l, Mat *mat) in PCMGGetInjection() argument
505 PC_MG *mg = (PC_MG *)pc->data; in PCMGGetInjection()
509 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGGetInjection()
511 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGGetInjection()
512 …PetscCheck(l > 0 && l < mg->nlevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_OUTOFRANGE, "… in PCMGGetInjection()
541 PetscErrorCode PCMGGetSmoother(PC pc, PetscInt l, KSP *ksp) in PCMGGetSmoother() argument
543 PC_MG *mg = (PC_MG *)pc->data; in PCMGGetSmoother()
547 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGGetSmoother()
572 PetscErrorCode PCMGGetSmootherUp(PC pc, PetscInt l, KSP *ksp) in PCMGGetSmootherUp() argument
574 PC_MG *mg = (PC_MG *)pc->data; in PCMGGetSmootherUp()
580 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGGetSmootherUp()
586 …PetscCheck(l, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_OUTOFRANGE, "There is no such thing … in PCMGGetSmootherUp()
603 PetscCall(KSPSetNestLevel(mglevels[l]->smoothu, pc->kspnestlevel)); in PCMGGetSmootherUp()
604 PetscCall(KSPSetErrorIfNotConverged(mglevels[l]->smoothu, pc->erroriffailure)); in PCMGGetSmootherUp()
605 …PetscCall(PetscObjectIncrementTabLevel((PetscObject)mglevels[l]->smoothu, (PetscObject)pc, mglevel… in PCMGGetSmootherUp()
640 PetscErrorCode PCMGGetSmootherDown(PC pc, PetscInt l, KSP *ksp) in PCMGGetSmootherDown() argument
642 PC_MG *mg = (PC_MG *)pc->data; in PCMGGetSmootherDown()
646 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGGetSmootherDown()
648 if (l) PetscCall(PCMGGetSmootherUp(pc, l, NULL)); in PCMGGetSmootherDown()
667 PetscErrorCode PCMGSetCycleTypeOnLevel(PC pc, PetscInt l, PCMGCycleType c) in PCMGSetCycleTypeOnLevel() argument
669 PC_MG *mg = (PC_MG *)pc->data; in PCMGSetCycleTypeOnLevel()
673 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGSetCycleTypeOnLevel()
674 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGSetCycleTypeOnLevel()
675 PetscValidLogicalCollectiveInt(pc, l, 2); in PCMGSetCycleTypeOnLevel()
676 PetscValidLogicalCollectiveEnum(pc, c, 3); in PCMGSetCycleTypeOnLevel()
698 PetscErrorCode PCMGSetRhs(PC pc, PetscInt l, Vec c) in PCMGSetRhs() argument
700 PC_MG *mg = (PC_MG *)pc->data; in PCMGSetRhs()
704 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGSetRhs()
705 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGSetRhs()
706 …PetscCheck(l != mglevels[0]->levels - 1, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_INCOMP, "… in PCMGSetRhs()
731 PetscErrorCode PCMGSetX(PC pc, PetscInt l, Vec c) in PCMGSetX() argument
733 PC_MG *mg = (PC_MG *)pc->data; in PCMGSetX()
737 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGSetX()
738 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGSetX()
739 …PetscCheck(l != mglevels[0]->levels - 1, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_INCOMP, "… in PCMGSetX()
764 PetscErrorCode PCMGSetR(PC pc, PetscInt l, Vec c) in PCMGSetR() argument
766 PC_MG *mg = (PC_MG *)pc->data; in PCMGSetR()
770 PetscValidHeaderSpecific(pc, PC_CLASSID, 1); in PCMGSetR()
771 …PetscCheck(mglevels, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_WRONGSTATE, "Must set MG leve… in PCMGSetR()
772 …PetscCheck(l, PetscObjectComm((PetscObject)pc), PETSC_ERR_ARG_OUTOFRANGE, "Need not set residual v… in PCMGSetR()