| /petsc/src/ksp/pc/impls/telescope/ |
| H A D | telescope_coarsedm.c | 43 Vec xred, yred, xtmp, x, xp; in PCTelescopeSetUp_scatters_CoarseDM() local
58 yred = NULL; in PCTelescopeSetUp_scatters_CoarseDM()
61 PetscCall(VecDuplicate(xred, &yred)); in PCTelescopeSetUp_scatters_CoarseDM()
76 sred->yred = yred; in PCTelescopeSetUp_scatters_CoarseDM()
225 Vec xred, yred; in PCApply_Telescope_CoarseDM() local
231 yred = sred->yred; in PCApply_Telescope_CoarseDM()
240 if (PCTelescope_isActiveRank(sred)) PetscCall(KSPSolve(sred->ksp, xred, yred)); in PCApply_Telescope_CoarseDM()
242 PetscCall(ctx->fp_dm_field_scatter(ctx->dm_fine, y, SCATTER_REVERSE, ctx->dm_coarse, yred)); in PCApply_Telescope_CoarseDM()
366 Vec yred = NULL; in PCApplyRichardson_Telescope_CoarseDM() local
372 yred = sred->yred; in PCApplyRichardson_Telescope_CoarseDM()
[all …]
|
| H A D | telescope.c | 133 Vec x, xred, yred, xtmp; in PCTelescopeSetUp_default() local
162 yred = NULL; in PCTelescopeSetUp_default()
163 if (PCTelescope_isActiveRank(sred)) PetscCall(VecDuplicate(xred, &yred)); in PCTelescopeSetUp_default()
184 sred->yred = yred; in PCTelescopeSetUp_default()
570 Vec xtmp, xred, yred; in PCApply_Telescope() local
582 yred = sred->yred; in PCApply_Telescope()
600 PetscCall(KSPSolve(sred->ksp, xred, yred)); in PCApply_Telescope()
601 PetscCall(KSPCheckSolve(sred->ksp, pc, yred)); in PCApply_Telescope()
605 if (yred) { in PCApply_Telescope()
607 PetscCall(VecGetOwnershipRange(yred, &st, &ed)); in PCApply_Telescope()
[all …]
|
| H A D | telescope_dmda.c | 628 Vec xred, yred, xtmp, x, xp; in PCTelescopeSetUp_dmda_scatters() local
643 yred = NULL; in PCTelescopeSetUp_dmda_scatters()
646 PetscCall(VecDuplicate(xred, &yred)); in PCTelescopeSetUp_dmda_scatters()
661 sred->yred = yred; in PCTelescopeSetUp_dmda_scatters()
873 Vec xtmp, xp, xred, yred; in PCApply_Telescope_dmda() local
884 yred = sred->yred; in PCApply_Telescope_dmda()
912 PetscCall(KSPSolve(sred->ksp, xred, yred)); in PCApply_Telescope_dmda()
913 PetscCall(KSPCheckSolve(sred->ksp, pc, yred)); in PCApply_Telescope_dmda()
918 if (yred) { in PCApply_Telescope_dmda()
920 PetscCall(VecGetOwnershipRange(yred, &st, &ed)); in PCApply_Telescope_dmda()
[all …]
|
| H A D | telescope.h | 20 Vec xred, yred, xtmp; member
|
| /petsc/src/ksp/pc/impls/svd/ |
| H A D | svd.c | 213 Vec work = jac->work, xred, yred; in PCApply_SVD() local
217 PetscCall(PCSVDGetVec(pc, PC_LEFT, WRITE, y, &yred)); in PCApply_SVD()
225 PetscCall(MatMultTranspose(jac->Vt, work, yred)); in PCApply_SVD()
227 PetscCall(MatMultHermitianTranspose(jac->Vt, work, yred)); in PCApply_SVD()
230 PetscCall(PCSVDRestoreVec(pc, PC_LEFT, WRITE, y, &yred)); in PCApply_SVD()
250 Vec work = jac->work, xred, yred; in PCApplyTranspose_SVD() local
254 PetscCall(PCSVDGetVec(pc, PC_RIGHT, WRITE, y, &yred)); in PCApplyTranspose_SVD()
257 PetscCall(MatMult(jac->U, work, yred)); in PCApplyTranspose_SVD()
259 PetscCall(PCSVDRestoreVec(pc, PC_RIGHT, WRITE, y, &yred)); in PCApplyTranspose_SVD()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex73.c | 279 Vec xred, yred, xtmp, x, xp; in PCTelescopeSetUp_dmda_scatters() local
307 yred = NULL; in PCTelescopeSetUp_dmda_scatters()
310 PetscCall(VecDuplicate(xred, &yred)); in PCTelescopeSetUp_dmda_scatters()
331 PetscCall(VecDestroy(&yred)); in PCTelescopeSetUp_dmda_scatters()
|