| /petsc/src/ksp/pc/impls/svd/ |
| H A D | svd.c | 134 static PetscErrorCode PCSVDGetVec(PC pc, PCSide side, AccessMode amode, Vec x, Vec *xred) in PCSVDGetVec() argument
141 *xred = NULL; in PCSVDGetVec()
144 if (size == 1) *xred = x; in PCSVDGetVec()
151 *xred = jac->leftred; in PCSVDGetVec()
155 if (size == 1) *xred = x; in PCSVDGetVec()
162 *xred = jac->rightred; in PCSVDGetVec()
171 static PetscErrorCode PCSVDRestoreVec(PC pc, PCSide side, AccessMode amode, Vec x, Vec *xred) in PCSVDRestoreVec() argument
194 *xred = NULL; in PCSVDRestoreVec()
213 Vec work = jac->work, xred, yred; in PCApply_SVD() local
216 PetscCall(PCSVDGetVec(pc, PC_RIGHT, READ, x, &xred)); in PCApply_SVD()
[all …]
|
| /petsc/src/ksp/pc/impls/telescope/ |
| H A D | telescope_coarsedm.c | 43 Vec xred, yred, xtmp, x, xp; in PCTelescopeSetUp_scatters_CoarseDM() local
57 xred = NULL; in PCTelescopeSetUp_scatters_CoarseDM()
60 PetscCall(DMCreateGlobalVector(ctx->dm_coarse, &xred)); in PCTelescopeSetUp_scatters_CoarseDM()
61 PetscCall(VecDuplicate(xred, &yred)); in PCTelescopeSetUp_scatters_CoarseDM()
62 PetscCall(VecGetOwnershipRange(xred, &st, &ed)); in PCTelescopeSetUp_scatters_CoarseDM()
64 PetscCall(VecGetLocalSize(xred, &m)); in PCTelescopeSetUp_scatters_CoarseDM()
75 sred->xred = xred; in PCTelescopeSetUp_scatters_CoarseDM()
225 Vec xred, yred; in PCApply_Telescope_CoarseDM() local
230 xred = sred->xred; in PCApply_Telescope_CoarseDM()
237 PetscCall(ctx->fp_dm_field_scatter(ctx->dm_fine, x, SCATTER_FORWARD, ctx->dm_coarse, xred)); in PCApply_Telescope_CoarseDM()
[all …]
|
| H A D | telescope.c | 133 Vec x, xred, yred, xtmp; in PCTelescopeSetUp_default() local
151 xred = NULL; in PCTelescopeSetUp_default()
154 PetscCall(VecCreate(subcomm, &xred)); in PCTelescopeSetUp_default()
155 PetscCall(VecSetSizes(xred, PETSC_DECIDE, M)); in PCTelescopeSetUp_default()
156 PetscCall(VecSetBlockSize(xred, bs)); in PCTelescopeSetUp_default()
157 PetscCall(VecSetType(xred, vectype)); in PCTelescopeSetUp_default()
158 PetscCall(VecSetFromOptions(xred)); in PCTelescopeSetUp_default()
159 PetscCall(VecGetLocalSize(xred, &m)); in PCTelescopeSetUp_default()
163 if (PCTelescope_isActiveRank(sred)) PetscCall(VecDuplicate(xred, &yred)); in PCTelescopeSetUp_default()
171 PetscCall(VecGetOwnershipRange(xred, &st, &ed)); in PCTelescopeSetUp_default()
[all …]
|
| H A D | telescope_dmda.c | 628 Vec xred, yred, xtmp, x, xp; in PCTelescopeSetUp_dmda_scatters() local
642 xred = NULL; in PCTelescopeSetUp_dmda_scatters()
645 PetscCall(DMCreateGlobalVector(ctx->dmrepart, &xred)); in PCTelescopeSetUp_dmda_scatters()
646 PetscCall(VecDuplicate(xred, &yred)); in PCTelescopeSetUp_dmda_scatters()
647 PetscCall(VecGetOwnershipRange(xred, &st, &ed)); in PCTelescopeSetUp_dmda_scatters()
649 PetscCall(VecGetLocalSize(xred, &m)); in PCTelescopeSetUp_dmda_scatters()
660 sred->xred = xred; in PCTelescopeSetUp_dmda_scatters()
797 if (n) PetscCall(VecDuplicateVecs(sred->xred, n, &sub_vecs)); in PCTelescopeSubNullSpaceCreate_dmda_Telescope()
873 Vec xtmp, xp, xred, yred; in PCApply_Telescope_dmda() local
883 xred = sred->xred; in PCApply_Telescope_dmda()
[all …]
|
| H A D | telescope.h | 20 Vec xred, yred, xtmp; member
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex73.c | 279 Vec xred, yred, xtmp, x, xp; in PCTelescopeSetUp_dmda_scatters() local
306 xred = NULL; in PCTelescopeSetUp_dmda_scatters()
309 PetscCall(DMCreateGlobalVector(dmc, &xred)); in PCTelescopeSetUp_dmda_scatters()
310 PetscCall(VecDuplicate(xred, &yred)); in PCTelescopeSetUp_dmda_scatters()
311 PetscCall(VecGetOwnershipRange(xred, &st, &ed)); in PCTelescopeSetUp_dmda_scatters()
313 PetscCall(VecGetLocalSize(xred, &m)); in PCTelescopeSetUp_dmda_scatters()
330 PetscCall(VecDestroy(&xred)); in PCTelescopeSetUp_dmda_scatters()
|