Lines Matching refs:mglevels
6 PetscErrorCode PCMGFCycle_Private(PC pc, PC_MG_Levels **mglevels, PetscBool transpose, PetscBool ma… in PCMGFCycle_Private() argument
8 PetscInt i, l = mglevels[0]->levels; in PCMGFCycle_Private()
14 …if (mglevels[i]->eventinterprestrict) PetscCall(PetscLogEventBegin(mglevels[i]->eventinterprestric… in PCMGFCycle_Private()
15 … if (matapp) PetscCall(MatMatRestrict(mglevels[i]->restrct, mglevels[i]->B, &mglevels[i - 1]->B)); in PCMGFCycle_Private()
16 else PetscCall(MatRestrict(mglevels[i]->restrct, mglevels[i]->b, mglevels[i - 1]->b)); in PCMGFCycle_Private()
17 …if (mglevels[i]->eventinterprestrict) PetscCall(PetscLogEventEnd(mglevels[i]->eventinterprestrict,… in PCMGFCycle_Private()
22 if (!mglevels[0]->X) { in PCMGFCycle_Private()
23 PetscCall(MatDuplicate(mglevels[0]->B, MAT_DO_NOT_COPY_VALUES, &mglevels[0]->X)); in PCMGFCycle_Private()
25 PetscCall(MatZeroEntries(mglevels[0]->X)); in PCMGFCycle_Private()
28 PetscCall(VecZeroEntries(mglevels[0]->x)); in PCMGFCycle_Private()
31 PetscCall(PCMGMCycle_Private(pc, &mglevels[i], transpose, matapp, NULL)); in PCMGFCycle_Private()
32 …if (mglevels[i + 1]->eventinterprestrict) PetscCall(PetscLogEventBegin(mglevels[i + 1]->eventinter… in PCMGFCycle_Private()
33 …if (matapp) PetscCall(MatMatInterpolate(mglevels[i + 1]->interpolate, mglevels[i]->X, &mglevels[i … in PCMGFCycle_Private()
34 … else PetscCall(MatInterpolate(mglevels[i + 1]->interpolate, mglevels[i]->x, mglevels[i + 1]->x)); in PCMGFCycle_Private()
35 …if (mglevels[i + 1]->eventinterprestrict) PetscCall(PetscLogEventEnd(mglevels[i + 1]->eventinterpr… in PCMGFCycle_Private()
37 PetscCall(PCMGMCycle_Private(pc, &mglevels[l - 1], transpose, matapp, NULL)); in PCMGFCycle_Private()
39 PetscCall(PCMGMCycle_Private(pc, &mglevels[l - 1], transpose, matapp, NULL)); in PCMGFCycle_Private()
41 …if (mglevels[i + 1]->eventinterprestrict) PetscCall(PetscLogEventBegin(mglevels[i + 1]->eventinter… in PCMGFCycle_Private()
42 …if (matapp) PetscCall(MatMatRestrict(mglevels[i + 1]->interpolate, mglevels[i + 1]->X, &mglevels[i… in PCMGFCycle_Private()
43 else PetscCall(MatRestrict(mglevels[i + 1]->interpolate, mglevels[i + 1]->x, mglevels[i]->x)); in PCMGFCycle_Private()
44 …if (mglevels[i + 1]->eventinterprestrict) PetscCall(PetscLogEventEnd(mglevels[i + 1]->eventinterpr… in PCMGFCycle_Private()
45 PetscCall(PCMGMCycle_Private(pc, &mglevels[i], transpose, matapp, NULL)); in PCMGFCycle_Private()
48 …if (mglevels[i]->eventinterprestrict) PetscCall(PetscLogEventBegin(mglevels[i]->eventinterprestric… in PCMGFCycle_Private()
49 …if (matapp) PetscCall(MatMatInterpolate(mglevels[i]->restrct, mglevels[i - 1]->B, &mglevels[i]->B)… in PCMGFCycle_Private()
50 else PetscCall(MatInterpolate(mglevels[i]->restrct, mglevels[i - 1]->b, mglevels[i]->b)); in PCMGFCycle_Private()
51 …if (mglevels[i]->eventinterprestrict) PetscCall(PetscLogEventEnd(mglevels[i]->eventinterprestrict,… in PCMGFCycle_Private()
57 PetscErrorCode PCMGKCycle_Private(PC pc, PC_MG_Levels **mglevels, PetscBool transpose, PetscBool ma… in PCMGKCycle_Private() argument
59 PetscInt i, l = mglevels[0]->levels; in PCMGKCycle_Private()
64 …if (mglevels[i]->eventinterprestrict) PetscCall(PetscLogEventBegin(mglevels[i]->eventinterprestric… in PCMGKCycle_Private()
65 … if (matapp) PetscCall(MatMatRestrict(mglevels[i]->restrct, mglevels[i]->B, &mglevels[i - 1]->B)); in PCMGKCycle_Private()
66 else PetscCall(MatRestrict(mglevels[i]->restrct, mglevels[i]->b, mglevels[i - 1]->b)); in PCMGKCycle_Private()
67 …if (mglevels[i]->eventinterprestrict) PetscCall(PetscLogEventEnd(mglevels[i]->eventinterprestrict,… in PCMGKCycle_Private()
72 if (!mglevels[0]->X) { in PCMGKCycle_Private()
73 PetscCall(MatDuplicate(mglevels[0]->B, MAT_DO_NOT_COPY_VALUES, &mglevels[0]->X)); in PCMGKCycle_Private()
75 PetscCall(MatZeroEntries(mglevels[0]->X)); in PCMGKCycle_Private()
78 PetscCall(VecZeroEntries(mglevels[0]->x)); in PCMGKCycle_Private()
81 …if (mglevels[i]->eventsmoothsolve) PetscCall(PetscLogEventBegin(mglevels[i]->eventsmoothsolve, 0, … in PCMGKCycle_Private()
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()
89 …if (mglevels[i]->eventsmoothsolve) PetscCall(PetscLogEventEnd(mglevels[i]->eventsmoothsolve, 0, 0,… in PCMGKCycle_Private()
90 …if (mglevels[i + 1]->eventinterprestrict) PetscCall(PetscLogEventBegin(mglevels[i + 1]->eventinter… in PCMGKCycle_Private()
91 …if (matapp) PetscCall(MatMatInterpolate(mglevels[i + 1]->interpolate, mglevels[i]->X, &mglevels[i … in PCMGKCycle_Private()
92 … else PetscCall(MatInterpolate(mglevels[i + 1]->interpolate, mglevels[i]->x, mglevels[i + 1]->x)); in PCMGKCycle_Private()
93 …if (mglevels[i + 1]->eventinterprestrict) PetscCall(PetscLogEventEnd(mglevels[i + 1]->eventinterpr… in PCMGKCycle_Private()
95 …if (mglevels[l - 1]->eventsmoothsolve) PetscCall(PetscLogEventBegin(mglevels[l - 1]->eventsmoothso… 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()
103 …if (mglevels[l - 1]->eventsmoothsolve) PetscCall(PetscLogEventEnd(mglevels[l - 1]->eventsmoothsolv… in PCMGKCycle_Private()