Lines Matching refs:smoothd
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()
184 … PetscCall(KSPSetTolerances(mglevels[i]->smoothd, 0, PETSC_CURRENT, PETSC_CURRENT, PETSC_CURRENT)); in PCApplyRichardson_MG()
232 if (mglevels[i]->smoothd != mglevels[i]->smoothu) PetscCall(KSPReset(mglevels[i]->smoothd)); in PCReset_MG()
363 … if (mglevels[i]->smoothd != mglevels[i]->smoothu) PetscCall(KSPDestroy(&mglevels[i]->smoothd)); in PCMGSetLevels_MG()
393 PetscCall(KSPCreate(comm, &mglevels[i]->smoothd)); in PCMGSetLevels_MG()
394 PetscCall(KSPSetNestLevel(mglevels[i]->smoothd, pc->kspnestlevel)); in PCMGSetLevels_MG()
395 PetscCall(KSPSetErrorIfNotConverged(mglevels[i]->smoothd, pc->erroriffailure)); in PCMGSetLevels_MG()
396 …PetscCall(PetscObjectIncrementTabLevel((PetscObject)mglevels[i]->smoothd, (PetscObject)pc, levels … in PCMGSetLevels_MG()
397 PetscCall(KSPSetOptionsPrefix(mglevels[i]->smoothd, prefix)); in PCMGSetLevels_MG()
398 …PetscCall(PetscObjectComposedDataSetInt((PetscObject)mglevels[i]->smoothd, PetscMGLevelId, mglevel… in PCMGSetLevels_MG()
400 PetscCall(KSPAppendOptionsPrefix(mglevels[0]->smoothd, "mg_coarse_")); in PCMGSetLevels_MG()
403 PetscCall(KSPSetType(mglevels[0]->smoothd, KSPPREONLY)); in PCMGSetLevels_MG()
404 PetscCall(KSPGetPC(mglevels[0]->smoothd, &ipc)); in PCMGSetLevels_MG()
415 PetscCall(KSPSetType(mglevels[i]->smoothd, KSPCHEBYSHEV)); in PCMGSetLevels_MG()
416 PetscCall(KSPSetConvergenceTest(mglevels[i]->smoothd, KSPConvergedSkip, NULL, NULL)); in PCMGSetLevels_MG()
417 PetscCall(KSPSetNormType(mglevels[i]->smoothd, KSP_NORM_NONE)); in PCMGSetLevels_MG()
418 PetscCall(KSPGetPC(mglevels[i]->smoothd, &ipc)); in PCMGSetLevels_MG()
420 …PetscCall(KSPSetTolerances(mglevels[i]->smoothd, PETSC_CURRENT, PETSC_CURRENT, PETSC_CURRENT, mg->… in PCMGSetLevels_MG()
425 …FindPairPrefix_Private(((PetscObject)mglevels[i]->smoothd)->options, ((PetscObject)mglevels[i]->sm… in PCMGSetLevels_MG()
429 PetscCall(KSPSetOptionsPrefix(mglevels[i]->smoothd, tprefix)); in PCMGSetLevels_MG()
432 PetscCall(KSPAppendOptionsPrefix(mglevels[i]->smoothd, tprefix)); in PCMGSetLevels_MG()
436 PetscCall(KSPAppendOptionsPrefix(mglevels[i]->smoothd, tprefix)); in PCMGSetLevels_MG()
440 mglevels[i]->smoothu = mglevels[i]->smoothd; in PCMGSetLevels_MG()
518 … if (mglevels[i]->smoothd != mglevels[i]->smoothu) PetscCall(KSPDestroy(&mglevels[i]->smoothd)); in PCDestroy_MG()
569 PetscCall(KSPGetPC(mglevels[levels - 1]->smoothd, &tpc)); in PCApply_MG_Internal()
601 PetscCall(KSPCreateVecs(mglevels[levels - 1]->smoothd, 1, &vec, 0, NULL)); in PCApply_MG_Internal()
806 PetscCall(KSPView(mglevels[i]->smoothd, viewer)); in PCView_MG()
808 if (i && mglevels[i]->smoothd == mglevels[i]->smoothu) { in PCView_MG()
825 PetscCall(KSPView(mglevels[i]->smoothd, viewer)); in PCView_MG()
826 …if (i && mglevels[i]->smoothd != mglevels[i]->smoothu) PetscCall(KSPView(mglevels[i]->smoothu, vie… in PCView_MG()
836 if (!mglevels[i]->smoothu || (mglevels[i]->smoothu == mglevels[i]->smoothd)) { in PCView_MG()
838 PetscCall(KSPView(mglevels[i]->smoothd, viewer)); in PCView_MG()
843 PetscCall(KSPView(mglevels[i]->smoothd, viewer)); in PCView_MG()
895 PetscCall(KSPGetOperatorsSet(mglevels[n - 1]->smoothd, NULL, &opsset)); in PCSetUp_MG()
898 PetscCall(KSPGetOperators(mglevels[n - 1]->smoothd, NULL, &mmat)); in PCSetUp_MG()
902 PetscCall(KSPGetPC(mglevels[n - 1]->smoothd, &cpc)); in PCSetUp_MG()
946 PetscCall(KSPSetOperators(mglevels[n - 1]->smoothd, pc->mat, pc->pmat)); in PCSetUp_MG()
949 PetscCall(KSPSetOperators(mglevels[n - 1]->smoothd, pc->pmat, pc->pmat)); in PCSetUp_MG()
960 PetscCall(KSPGetOperators(mglevels[n - 1]->smoothd, &dA, &dB)); in PCSetUp_MG()
966 PetscCall(KSPSetDM(mglevels[n - 1]->smoothd, pc->dm)); in PCSetUp_MG()
967 PetscCall(KSPSetDMActive(mglevels[n - 1]->smoothd, KSP_DMACTIVE_ALL, PETSC_FALSE)); in PCSetUp_MG()
968 if (mglevels[n - 1]->smoothd != mglevels[n - 1]->smoothu) { in PCSetUp_MG()
1003 PetscCall(KSPSetDM(mglevels[i]->smoothd, dms[i])); in PCSetUp_MG()
1004 …if (!needRestricts) PetscCall(KSPSetDMActive(mglevels[i]->smoothd, KSP_DMACTIVE_ALL, PETSC_FALSE)); in PCSetUp_MG()
1005 PetscCall(KSPSetDMActive(mglevels[i]->smoothd, KSP_DMACTIVE_RHS, PETSC_FALSE)); in PCSetUp_MG()
1006 if (mglevels[i]->smoothd != mglevels[i]->smoothu) { in PCSetUp_MG()
1054 if (reuse == MAT_REUSE_MATRIX) PetscCall(KSPGetOperators(mglevels[i]->smoothd, &A, &B)); in PCSetUp_MG()
1062 PetscCall(KSPGetOperators(mglevels[i]->smoothd, &A, NULL)); in PCSetUp_MG()
1069 PetscCall(KSPGetOperators(mglevels[i]->smoothd, NULL, &B)); in PCSetUp_MG()
1073 PetscCall(KSPSetOperators(mglevels[i]->smoothd, A, B)); in PCSetUp_MG()
1097 PetscCall(KSPGetDM(mglevels[i + 1]->smoothd, &dmfine)); in PCSetUp_MG()
1098 PetscCall(KSPGetDM(mglevels[i]->smoothd, &dmcoarse)); in PCSetUp_MG()
1107 for (i = 0; i < n; i++) PetscCall(KSPSetFromOptions(mglevels[i]->smoothd)); in PCSetUp_MG()
1109 …if (mglevels[i]->smoothu && (mglevels[i]->smoothu != mglevels[i]->smoothd)) PetscCall(KSPSetFromOp… in PCSetUp_MG()
1120 PetscCall(KSPCreateVecs(mglevels[i]->smoothd, 1, &vec, 0, NULL)); in PCSetUp_MG()
1145 PetscCall(KSPCreateVecs(mglevels[n - 1]->smoothd, 1, &vec, 0, NULL)); in PCSetUp_MG()
1160 …if (mglevels[i]->smoothd->setupstage != KSP_SETUP_NEW) mglevels[i]->smoothd->setupstage = KSP_SETU… in PCSetUp_MG()
1165 …if (mglevels[n - 1]->smoothd->setupstage != KSP_SETUP_NEW) mglevels[n - 1]->smoothd->setupstage = … in PCSetUp_MG()
1168 …if (mglevels[i]->smoothu == mglevels[i]->smoothd || mg->am == PC_MG_FULL || mg->am == PC_MG_KASKAD… in PCSetUp_MG()
1170 PetscCall(KSPSetInitialGuessNonzero(mglevels[i]->smoothd, PETSC_TRUE)); in PCSetUp_MG()
1174 PetscCall(KSPSetUp(mglevels[i]->smoothd)); in PCSetUp_MG()
1175 if (mglevels[i]->smoothd->reason) pc->failedreason = PC_SUBPC_ERROR; in PCSetUp_MG()
1180 PetscCall(KSPGetOperators(mglevels[i]->smoothd, &mat, NULL)); in PCSetUp_MG()
1186 PetscCall(KSPGetOperators(mglevels[i]->smoothd, &mat, NULL)); in PCSetUp_MG()
1191 if (mglevels[i]->smoothu && mglevels[i]->smoothu != mglevels[i]->smoothd) { in PCSetUp_MG()
1197 PetscCall(KSPGetOperators(mglevels[i]->smoothd, &downmat, &downpmat)); in PCSetUp_MG()
1213 PetscCall(KSPGetOperators(mglevels[i]->smoothd, &downmat, &downpmat)); in PCSetUp_MG()
1226 PetscCall(KSPSetUp(mglevels[0]->smoothd)); in PCSetUp_MG()
1227 if (mglevels[0]->smoothd->reason) pc->failedreason = PC_SUBPC_ERROR; in PCSetUp_MG()
1248 PetscCall(KSPGetPC(mglevels[i]->smoothd, &pc)); in PCSetUp_MG()
1326 PetscCall(KSPGetOperators(mglevels[lev]->smoothd, NULL, &dB)); in PCMGGetGridComplexity()
1476 PetscCall(KSPGetPC(mglevels[levels - 1]->smoothd, &tpc)); in PCSetReusePreconditioner_MG()
1793 … PetscCall(KSPSetTolerances(mglevels[i]->smoothd, PETSC_CURRENT, PETSC_CURRENT, PETSC_CURRENT, n)); in PCMGSetNumberSmooth()
1835 PetscCall(KSPGetOptionsPrefix(mglevels[i]->smoothd, &prefix)); in PCMGSetDistinctSmoothUp()
1874 PetscCall(KSPGetOperators(mglevels[l]->smoothd, NULL, &mat[l])); in PCGetCoarseOperators_MG()