Home
last modified time | relevance | path

Searched refs:matapp (Results 1 – 3 of 3) sorted by relevance

/petsc/src/ksp/pc/impls/mg/
H A Dfmg.c6 …ErrorCode PCMGFCycle_Private(PC pc, PC_MG_Levels **mglevels, PetscBool transpose, PetscBool matapp) in PCMGFCycle_Private() argument
15 … if (matapp) PetscCall(MatMatRestrict(mglevels[i]->restrct, mglevels[i]->B, &mglevels[i - 1]->B)); in PCMGFCycle_Private()
21 if (matapp) { in PCMGFCycle_Private()
31 PetscCall(PCMGMCycle_Private(pc, &mglevels[i], transpose, matapp, NULL)); in PCMGFCycle_Private()
33 …if (matapp) PetscCall(MatMatInterpolate(mglevels[i + 1]->interpolate, mglevels[i]->X, &mglevels[i … 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()
42 …if (matapp) PetscCall(MatMatRestrict(mglevels[i + 1]->interpolate, mglevels[i + 1]->X, &mglevels[i… in PCMGFCycle_Private()
45 PetscCall(PCMGMCycle_Private(pc, &mglevels[i], transpose, matapp, NULL)); in PCMGFCycle_Private()
49 …if (matapp) PetscCall(MatMatInterpolate(mglevels[i]->restrct, mglevels[i - 1]->B, &mglevels[i]->B)… in PCMGFCycle_Private()
[all …]
H A Dsmg.c6 …ErrorCode PCMGACycle_Private(PC pc, PC_MG_Levels **mglevels, PetscBool transpose, PetscBool matapp) in PCMGACycle_Private() argument
15 … if (matapp) PetscCall(MatMatRestrict(mglevels[i]->restrct, mglevels[i]->B, &mglevels[i - 1]->B)); in PCMGACycle_Private()
18 …if (matapp) PetscCall(MatMatRestrict(mglevels[i]->interpolate, mglevels[i]->B, &mglevels[i - 1]->B… in PCMGACycle_Private()
25 if (matapp) { in PCMGACycle_Private()
36 if (matapp) { in PCMGACycle_Private()
44 PetscCheck(!matapp, PetscObjectComm((PetscObject)pc), PETSC_ERR_SUP, "Not supported"); in PCMGACycle_Private()
53 …if (matapp) PetscCall(MatMatInterpolateAdd(mglevels[i]->interpolate, mglevels[i - 1]->X, mglevels[… in PCMGACycle_Private()
56 …if (matapp) PetscCall(MatMatInterpolateAdd(mglevels[i]->restrct, mglevels[i - 1]->X, mglevels[i]->… in PCMGACycle_Private()
H A Dmg.c14 …Private(PC pc, PC_MG_Levels **mglevelsin, PetscBool transpose, PetscBool matapp, PCRichardsonConve… in PCMGMCycle_Private() argument
23 if (matapp) { in PCMGMCycle_Private()
31 PetscCheck(!matapp, PetscObjectComm((PetscObject)pc), PETSC_ERR_SUP, "Not supported"); in PCMGMCycle_Private()
38 …if (matapp && !mglevels->R) PetscCall(MatDuplicate(mglevels->B, MAT_DO_NOT_COPY_VALUES, &mglevels-… in PCMGMCycle_Private()
40 …if (matapp) PetscCall((*mglevels->matresidual)(mglevels->A, mglevels->B, mglevels->X, mglevels->R)… in PCMGMCycle_Private()
43 …if (matapp) PetscCall((*mglevels->matresidualtranspose)(mglevels->A, mglevels->B, mglevels->X, mgl… in PCMGMCycle_Private()
68 if (matapp) PetscCall(MatMatRestrict(mglevels->restrct, mglevels->R, &mgc->B)); in PCMGMCycle_Private()
71 if (matapp) PetscCall(MatMatRestrict(mglevels->interpolate, mglevels->R, &mgc->B)); in PCMGMCycle_Private()
75 if (matapp) { in PCMGMCycle_Private()
84 while (cycles--) PetscCall(PCMGMCycle_Private(pc, mglevelsin - 1, transpose, matapp, reason)); in PCMGMCycle_Private()
[all …]