| /petsc/src/ksp/pc/impls/telescope/ |
| H A D | telescope.c | 133 Vec x, xred, yred, xtmp; in PCTelescopeSetUp_default() local
165 PetscCall(VecCreate(comm, &xtmp)); in PCTelescopeSetUp_default()
166 PetscCall(VecSetSizes(xtmp, m, PETSC_DECIDE)); in PCTelescopeSetUp_default()
167 PetscCall(VecSetBlockSize(xtmp, bs)); in PCTelescopeSetUp_default()
168 PetscCall(VecSetType(xtmp, vectype)); in PCTelescopeSetUp_default()
179 PetscCall(VecScatterCreate(x, isin, xtmp, NULL, &scatter)); in PCTelescopeSetUp_default()
185 sred->xtmp = xtmp; in PCTelescopeSetUp_default()
252 PetscCall(VecScatterBegin(sred->scatter, vecs[k], sred->xtmp, INSERT_VALUES, SCATTER_FORWARD)); in PCTelescopeSubNullSpaceCreate_Telescope()
253 PetscCall(VecScatterEnd(sred->scatter, vecs[k], sred->xtmp, INSERT_VALUES, SCATTER_FORWARD)); in PCTelescopeSubNullSpaceCreate_Telescope()
256 PetscCall(VecGetArrayRead(sred->xtmp, &x_array)); in PCTelescopeSubNullSpaceCreate_Telescope()
[all …]
|
| H A D | telescope_dmda.c | 628 Vec xred, yred, xtmp, x, xp; in PCTelescopeSetUp_dmda_scatters() local
655 PetscCall(VecCreate(comm, &xtmp)); in PCTelescopeSetUp_dmda_scatters()
656 PetscCall(VecSetSizes(xtmp, m, PETSC_DECIDE)); in PCTelescopeSetUp_dmda_scatters()
657 PetscCall(VecSetBlockSize(xtmp, bs)); in PCTelescopeSetUp_dmda_scatters()
658 PetscCall(VecSetType(xtmp, ((PetscObject)x)->type_name)); in PCTelescopeSetUp_dmda_scatters()
659 PetscCall(VecScatterCreate(x, isin, xtmp, NULL, &scatter)); in PCTelescopeSetUp_dmda_scatters()
664 sred->xtmp = xtmp; in PCTelescopeSetUp_dmda_scatters()
810 PetscCall(VecScatterBegin(sred->scatter, ctx->xp, sred->xtmp, INSERT_VALUES, SCATTER_FORWARD)); in PCTelescopeSubNullSpaceCreate_dmda_Telescope()
811 PetscCall(VecScatterEnd(sred->scatter, ctx->xp, sred->xtmp, INSERT_VALUES, SCATTER_FORWARD)); in PCTelescopeSubNullSpaceCreate_dmda_Telescope()
814 PetscCall(VecGetArrayRead(sred->xtmp, &x_array)); in PCTelescopeSubNullSpaceCreate_dmda_Telescope()
[all …]
|
| H A D | telescope_coarsedm.c | 43 Vec xred, yred, xtmp, x, xp; in PCTelescopeSetUp_scatters_CoarseDM() local
70 PetscCall(VecCreate(comm, &xtmp)); in PCTelescopeSetUp_scatters_CoarseDM()
71 PetscCall(VecSetSizes(xtmp, m, PETSC_DECIDE)); in PCTelescopeSetUp_scatters_CoarseDM()
72 PetscCall(VecSetBlockSize(xtmp, bs)); in PCTelescopeSetUp_scatters_CoarseDM()
73 PetscCall(VecSetType(xtmp, ((PetscObject)x)->type_name)); in PCTelescopeSetUp_scatters_CoarseDM()
74 PetscCall(VecScatterCreate(x, isin, xtmp, NULL, &scatter)); in PCTelescopeSetUp_scatters_CoarseDM()
79 sred->xtmp = xtmp; in PCTelescopeSetUp_scatters_CoarseDM()
|
| H A D | telescope.h | 20 Vec xred, yred, xtmp; member
|
| /petsc/src/ksp/pc/tests/ |
| H A D | ex7.c | 12 Vec xtmp; in main() local
20 PetscCall(VecCreateSeq(PETSC_COMM_WORLD, 3, &xtmp)); in main()
54 PetscCall(VecDestroy(&xtmp)); in main()
|
| /petsc/src/ksp/ksp/tutorials/ |
| H A D | ex73.c | 279 Vec xred, yred, xtmp, x, xp; in PCTelescopeSetUp_dmda_scatters() local
319 PetscCall(VecCreate(comm, &xtmp)); in PCTelescopeSetUp_dmda_scatters()
320 PetscCall(VecSetSizes(xtmp, m, PETSC_DECIDE)); in PCTelescopeSetUp_dmda_scatters()
321 PetscCall(VecSetBlockSize(xtmp, bs)); in PCTelescopeSetUp_dmda_scatters()
322 PetscCall(VecSetType(xtmp, vectype)); in PCTelescopeSetUp_dmda_scatters()
323 PetscCall(VecScatterCreate(x, isin, xtmp, NULL, &scatter)); in PCTelescopeSetUp_dmda_scatters()
327 PetscCall(PetscObjectCompose((PetscObject)dmf, "xtmp", (PetscObject)xtmp)); in PCTelescopeSetUp_dmda_scatters()
435 Vec xp = NULL, xtmp = NULL; in DMShellDAFieldScatter_Forward() local
444 PetscCall(PetscObjectQuery((PetscObject)dmf, "xtmp", (PetscObject *)&xtmp)); in DMShellDAFieldScatter_Forward()
448 …PetscCheck(xtmp, PETSC_COMM_SELF, PETSC_ERR_USER, "Require \"xtmp\" to be composed with the parent… in DMShellDAFieldScatter_Forward()
[all …]
|
| /petsc/src/tao/constrained/impls/ipm/ |
| H A D | ipm.c | 223 Vec xtmp; in IPMInitializeBounds() local
245 PetscCall(VecDuplicate(tao->solution, &xtmp)); in IPMInitializeBounds()
248 PetscCall(VecSet(xtmp, PETSC_NINFINITY)); in IPMInitializeBounds()
249 PetscCall(VecWhichGreaterThan(tao->XL, xtmp, &ipmP->isxl)); in IPMInitializeBounds()
255 PetscCall(VecSet(xtmp, PETSC_INFINITY)); in IPMInitializeBounds()
256 PetscCall(VecWhichLessThan(tao->XU, xtmp, &ipmP->isxu)); in IPMInitializeBounds()
261 PetscCall(VecDestroy(&xtmp)); in IPMInitializeBounds()
|
| /petsc/src/snes/impls/multiblock/ |
| H A D | multiblock.c | 365 Vec xtmp; in SNESSetUp_Multiblock() local
368 PetscCall(MatCreateVecs(snes->jacobian_pre, &xtmp, NULL)); in SNESSetUp_Multiblock()
370 PetscCall(VecScatterCreate(xtmp, blocks->is, blocks->x, NULL, &blocks->sctx)); in SNESSetUp_Multiblock()
373 PetscCall(VecDestroy(&xtmp)); in SNESSetUp_Multiblock()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex77.c | 877 Vec u, xtmp; in main() local
941 PetscCall(DMSwarmCreateGlobalVectorFromField(sdm, DMSwarmPICField_coor, &xtmp)); in main()
942 PetscCall(VecCopy(xtmp, adv.x0)); in main()
943 PetscCall(DMSwarmDestroyGlobalVectorFromField(sdm, DMSwarmPICField_coor, &xtmp)); in main()
|
| /petsc/src/mat/impls/baij/seq/ |
| H A D | baij2.c | 2955 const PetscScalar *xtmp; in MatMultHermitianTransposeAdd_SeqBAIJ()
2961 xtmp = x; in MatMultHermitianTransposeAdd_SeqBAIJ()
2966 if (usecprow) xtmp = x + bs*ridx[i]; in MatMultHermitianTransposeAdd_SeqBAIJ()
2967 PetscKernel_w_gets_w_plus_trans_Ar_times_v(bs,ncols,xtmp,v,work); in MatMultHermitianTransposeAdd_SeqBAIJ()
2969 if (!usecprow) xtmp += bs; in MatMultHermitianTransposeAdd_SeqBAIJ()
3113 const PetscScalar *xtmp; in MatMultTransposeAdd_SeqBAIJ() local
3119 xtmp = x; in MatMultTransposeAdd_SeqBAIJ()
3125 if (usecprow) xtmp = x + bs * ridx[i]; in MatMultTransposeAdd_SeqBAIJ()
3126 PetscKernel_w_gets_w_plus_trans_Ar_times_v(bs, ncols, xtmp, v, work); in MatMultTransposeAdd_SeqBAIJ()
3128 if (!usecprow) xtmp += bs; in MatMultTransposeAdd_SeqBAIJ()
|
| /petsc/src/ksp/pc/impls/fieldsplit/ |
| H A D | fieldsplit.c | 690 Vec xtmp; in PCSetUp_FieldSplit() local
692 PetscCall(MatCreateVecs(pc->pmat, &xtmp, NULL)); in PCSetUp_FieldSplit()
724 PetscCall(VecScatterCreate(xtmp, ilink->is, jac->x[i], NULL, &ilink->sctx)); in PCSetUp_FieldSplit()
729 PetscCall(VecDestroy(&xtmp)); in PCSetUp_FieldSplit()
|