| /petsc/src/ksp/pc/impls/mg/ |
| H A D | mg.c | 24 PetscCall(KSPMatSolve(mglevels->smoothd, mglevels->B, mglevels->X)); /* pre-smooth */ in PCMGMCycle_Private() 25 PetscCall(KSPCheckSolve(mglevels->smoothd, pc, NULL)); in PCMGMCycle_Private() 27 PetscCall(KSPSolve(mglevels->smoothd, mglevels->b, mglevels->x)); /* pre-smooth */ in PCMGMCycle_Private() 28 PetscCall(KSPCheckSolve(mglevels->smoothd, pc, mglevels->x)); in PCMGMCycle_Private() 104 PetscCall(KSPSolveTranspose(mglevels->smoothd, mglevels->b, mglevels->x)); /* post smooth */ in PCMGMCycle_Private() 105 PetscCall(KSPCheckSolve(mglevels->smoothd, pc, mglevels->x)); in PCMGMCycle_Private() 141 PetscCall(KSPGetPC(mglevels[levels - 1]->smoothd, &tpc)); in PCApplyRichardson_MG() 152 PetscCall(KSPCreateVecs(mglevels[levels - 1]->smoothd, 1, &vec, 0, NULL)); in PCApplyRichardson_MG() 181 if (mglevels[i]->smoothu != mglevels[i]->smoothd) { in PCApplyRichardson_MG() 183 PetscCall(KSPSetInitialGuessNonzero(mglevels[i]->smoothd, PETSC_TRUE)); in PCApplyRichardson_MG() [all …]
|
| H A D | fmg.c | 83 PetscCall(KSPMatSolve(mglevels[i]->smoothd, mglevels[i]->B, mglevels[i]->X)); in PCMGKCycle_Private() 84 PetscCall(KSPCheckSolve(mglevels[i]->smoothd, pc, NULL)); in PCMGKCycle_Private() 86 PetscCall(KSPSolve(mglevels[i]->smoothd, mglevels[i]->b, mglevels[i]->x)); in PCMGKCycle_Private() 87 PetscCall(KSPCheckSolve(mglevels[i]->smoothd, pc, mglevels[i]->x)); in PCMGKCycle_Private() 97 PetscCall(KSPMatSolve(mglevels[l - 1]->smoothd, mglevels[l - 1]->B, mglevels[l - 1]->X)); in PCMGKCycle_Private() 98 PetscCall(KSPCheckSolve(mglevels[l - 1]->smoothd, pc, NULL)); in PCMGKCycle_Private() 100 PetscCall(KSPSolve(mglevels[l - 1]->smoothd, mglevels[l - 1]->b, mglevels[l - 1]->x)); in PCMGKCycle_Private() 101 PetscCall(KSPCheckSolve(mglevels[l - 1]->smoothd, pc, mglevels[l - 1]->x)); in PCMGKCycle_Private()
|
| H A D | smg.c | 37 PetscCall(KSPMatSolve(mglevels[i]->smoothd, mglevels[i]->B, mglevels[i]->X)); in PCMGACycle_Private() 38 PetscCall(KSPCheckSolve(mglevels[i]->smoothd, pc, NULL)); in PCMGACycle_Private() 40 PetscCall(KSPSolve(mglevels[i]->smoothd, mglevels[i]->b, mglevels[i]->x)); in PCMGACycle_Private() 41 PetscCall(KSPCheckSolve(mglevels[i]->smoothd, pc, mglevels[i]->x)); in PCMGACycle_Private()
|
| H A D | mgfunc.c | 123 *ksp = mglevels[0]->smoothd; in PCMGGetCoarseSolve() 257 PetscCall(KSPSetOperators(mglevels[l]->smoothd, Amat, Pmat)); in PCMGSetOperators() 548 *ksp = mglevels[l]->smoothd; in PCMGGetSmoother() 587 if (mglevels[l]->smoothu == mglevels[l]->smoothd) { in PCMGGetSmootherUp() 594 PetscCall(PetscObjectGetComm((PetscObject)mglevels[l]->smoothd, &comm)); in PCMGGetSmootherUp() 595 PetscCall(KSPGetOptionsPrefix(mglevels[l]->smoothd, &prefix)); in PCMGGetSmootherUp() 596 PetscCall(KSPGetTolerances(mglevels[l]->smoothd, &rtol, &abstol, &dtol, &maxits)); in PCMGGetSmootherUp() 597 PetscCall(KSPGetType(mglevels[l]->smoothd, &ksptype)); in PCMGGetSmootherUp() 598 PetscCall(KSPGetNormType(mglevels[l]->smoothd, &normtype)); in PCMGGetSmootherUp() 599 PetscCall(KSPGetPC(mglevels[l]->smoothd, &ipc)); in PCMGGetSmootherUp() [all …]
|
| /petsc/src/snes/impls/fas/ |
| H A D | fasfunc.c | 241 if (!fas->smoothd) PetscCall(SNESFASCycleCreateSmoother_Private(snes, &fas->smoothd)); in SNESFASSetNumberSmoothDown() 242 …PetscCall(SNESSetTolerances(fas->smoothd, fas->smoothd->abstol, fas->smoothd->rtol, fas->smoothd->… in SNESFASSetNumberSmoothDown() 504 *smooth = fas->smoothd; in SNESFASCycleGetSmoother() 534 if (!fas->smoothu) *smoothu = fas->smoothd; in SNESFASCycleGetSmootherUp() 554 PetscErrorCode SNESFASCycleGetSmootherDown(SNES snes, SNES *smoothd) in SNESFASCycleGetSmootherDown() argument 560 PetscAssertPointer(smoothd, 2); in SNESFASCycleGetSmootherDown() 562 *smoothd = fas->smoothd; in SNESFASCycleGetSmootherDown() 986 if (!fas->smoothd) PetscCall(SNESFASCycleCreateSmoother_Private(levelsnes, &fas->smoothd)); in SNESFASGetSmoother() 987 *smooth = fas->smoothd; in SNESFASGetSmoother() 1016 if (!fas->smoothd) PetscCall(SNESFASCycleCreateSmoother_Private(levelsnes, &fas->smoothd)); in SNESFASGetSmootherDown() [all …]
|
| H A D | fas.c | 12 PetscCall(SNESDestroy(&fas->smoothd)); in SNESReset_FAS() 101 if (!fas->smoothd) PetscCall(SNESFASCycleCreateSmoother_Private(snes, &fas->smoothd)); in SNESSetUp_FAS() 106 PetscCall(SNESSetDM(fas->smoothd, snes->dm)); in SNESSetUp_FAS() 139 …if (fas->smoothd && fas->level != fas->levels - 1) PetscCall(SNESSetFunction(fas->smoothd, NULL, S… in SNESSetUp_FAS() 144 if (fas->smoothd) { in SNESSetUp_FAS() 146 PetscCall(SNESSetNormSchedule(fas->smoothd, SNES_NORM_ALWAYS)); in SNESSetUp_FAS() 148 PetscCall(SNESSetNormSchedule(fas->smoothd, SNES_NORM_FINAL_ONLY)); in SNESSetUp_FAS() 150 PetscCall(SNESFASCycleSetUpSmoother_Private(snes, fas->smoothd)); in SNESSetUp_FAS() 272 SNES smoothu, smoothd, levelsnes; in SNESView_FAS() local 289 PetscCall(SNESFASCycleGetSmootherDown(levelsnes, &smoothd)); in SNESView_FAS() [all …]
|
| H A D | fasimpls.h | 14 SNES smoothd; /* the SNES for postsmoothing */ member
|
| /petsc/include/petsc/private/ |
| H A D | pcmgimpl.h | 35 KSP smoothd; /* pre smoother */ member
|
| /petsc/src/ksp/pc/impls/gamg/ |
| H A D | gamg.c | 571 PetscCall(KSPGetOperators(mglevels[pc_gamg->Nlevels - 1]->smoothd, &dA, &dB)); in PCSetUp_GAMG() 573 PetscCall(KSPSetOperators(mglevels[pc_gamg->Nlevels - 1]->smoothd, dA, dB)); in PCSetUp_GAMG() 581 PetscCall(KSPGetOperators(mglevels[level]->smoothd, NULL, &B)); in PCSetUp_GAMG() 595 PetscCall(KSPSetOperators(mglevels[level]->smoothd, B, B)); in PCSetUp_GAMG() 1745 PetscCall(KSPGetOperators(mglevels[i]->smoothd, NULL, &A)); in PCView_GAMG()
|