Searched refs:mgc (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ksp/pc/impls/mg/ |
| H A D | mg.c | 17 PC_MG_Levels *mgc, *mglevels = *mglevelsin; in PCMGMCycle_Private() local
65 mgc = *(mglevelsin - 1); in PCMGMCycle_Private()
68 if (matapp) PetscCall(MatMatRestrict(mglevels->restrct, mglevels->R, &mgc->B)); in PCMGMCycle_Private()
69 else PetscCall(MatRestrict(mglevels->restrct, mglevels->r, mgc->b)); in PCMGMCycle_Private()
71 if (matapp) PetscCall(MatMatRestrict(mglevels->interpolate, mglevels->R, &mgc->B)); in PCMGMCycle_Private()
72 else PetscCall(MatRestrict(mglevels->interpolate, mglevels->r, mgc->b)); in PCMGMCycle_Private()
76 if (!mgc->X) { in PCMGMCycle_Private()
77 PetscCall(MatDuplicate(mgc->B, MAT_DO_NOT_COPY_VALUES, &mgc->X)); in PCMGMCycle_Private()
79 PetscCall(MatZeroEntries(mgc->X)); in PCMGMCycle_Private()
82 PetscCall(VecZeroEntries(mgc->x)); in PCMGMCycle_Private()
[all …]
|