| /petsc/src/vec/vec/tests/ |
| H A D | ex39.c | 16 Vec X, Y, F, X1, Y1, X2, Y2, F1, F2; in main() local
43 PetscCall(VecDuplicate(X1, &X2)); in main()
55 PetscCall(VecPlaceArray(X2, x + N / 2)); in main()
63 PetscCall(VecWAXPY(F2, 1.0, X2, Y2)); in main()
67 PetscCall(VecResetArray(X2)); in main()
87 PetscCall(VecDestroy(&X2)); in main()
|
| H A D | ex37.c | 120 Vec X2, A, R, E, vX, vX2, vA, vR, vE; in test_view() local
122 PetscCall(VecDuplicate(X, &X2)); in test_view()
132 PetscCall(VecCopy(X, X2)); in test_view()
135 PetscCall(VecScale(X2, 2.0)); in test_view()
147 …PetscCall(VecErrorWeightedNorms(X, X2, e ? E : NULL, norm, 0.5, a ? A : NULL, 0.5, r ? R : NULL, 0… in test_view()
157 PetscCall(VecDestroy(&X2)); in test_view()
|
| /petsc/src/mat/tutorials/ |
| H A D | ex2.c | 14 Vec X, X1, X2, Y, Z, Z1, Z2; in main() local
94 PetscCall(VecCreateSeqWithArray(PETSC_COMM_SELF, 1, size2, x + size1, &X2)); in main()
104 PetscCall(MatMultAdd(A12, X2, Z1, Z1)); in main()
105 PetscCall(MatMult(A22, X2, Z2)); in main()
134 PetscCall(MatMultAdd(A12, X2, Z1, Z1)); in main()
135 PetscCall(MatMult(A22, X2, Z2)); in main()
146 PetscCall(MatMultTransposeAdd(A21, X2, Z1, Z1)); in main()
147 PetscCall(MatMultTranspose(A22, X2, Z2)); in main()
168 PetscCall(VecDestroy(&X2)); in main()
|
| /petsc/src/dm/tests/ |
| H A D | ex2k.kokkos.cxx | 64 #define X2(k, j, i) x2[(k - gzs) * gym * gxm + (j - gys) * gxm + (i - gxs)] in Update2() macro
70 …i++) Y2(k, j, i) = 6 * X2(k, j, i) - X2(k - 1, j, i) - X2(k, j - 1, i) - X2(k, j, i - 1) - X2(k + … in Update2()
76 #undef X2 in Update2()
|
| /petsc/src/ksp/pc/impls/mat/tests/ |
| H A D | ex1.c | 42 Mat B, X, X2; in TestPCMatVersusMat() local
56 PetscCall(MatDuplicate(A, MAT_DO_NOT_COPY_VALUES, &X2)); in TestPCMatVersusMat()
68 PetscCall(PCMatApply(pc, B, X2)); in TestPCMatVersusMat()
69 PetscCall(TestMatEquality(X, X2)); in TestPCMatVersusMat()
71 PetscCall(MatDestroy(&X2)); in TestPCMatVersusMat()
|
| /petsc/src/ksp/ksp/impls/bcgs/qmrcgs/ |
| H A D | qmrcgs.c | 19 Vec X, B, R, P, PH, V, D2, X2, S, SH, T, D, S2, RP, AX, Z; in KSPSolve_QMRCGS() local
33 X2 = ksp->work[5]; in KSPSolve_QMRCGS()
119 PetscCall(VecWAXPY(X2, eta2, D2, X)); /* x2 <- x + eta2 d2 */ in KSPSolve_QMRCGS()
181 PetscCall(VecWAXPY(X, eta, D, X2)); /* x <- x2 + eta d */ in KSPSolve_QMRCGS()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex14.c | 650 static PetscErrorCode THIFixGhosts(THI thi, DM da3, DM da2, Vec X3, Vec X2) in THIFixGhosts() argument
659 PetscCall(DMDAVecGetArray(da2, X2, &x2)); in THIFixGhosts()
664 PetscCall(DMDAVecRestoreArray(da2, X2, &x2)); in THIFixGhosts()
692 Vec X3g, X2g, X2; in THIInitial() local
697 PetscCall(DMGetLocalVector(da2, &X2)); in THIInitial()
702 PetscCall(DMDAVecGetArray(da2, X2, &prm)); in THIInitial()
719 PetscCall(DMDAVecRestoreArray(da2, X2, &prm)); in THIInitial()
721 PetscCall(DMLocalToGlobalBegin(da2, X2, INSERT_VALUES, X2g)); in THIInitial()
722 PetscCall(DMLocalToGlobalEnd(da2, X2, INSERT_VALUES, X2g)); in THIInitial()
723 PetscCall(DMRestoreLocalVector(da2, &X2)); in THIInitial()
[all …]
|
| /petsc/src/ts/impls/implicit/alpha/ |
| H A D | alpha1.c | 118 Vec X0 = ts->vec_sol, X1, X2 = th->X1; in TSAlpha_Restart() local
147 PetscCall(VecCopy(th->X0, X2)); in TSAlpha_Restart()
148 PetscCall(TSAlpha_SNESSolve(ts, NULL, X2)); in TSAlpha_Restart()
149 PetscCall(TSPostStage(ts, th->stage_time, 0, &X2)); in TSAlpha_Restart()
150 PetscCall(TSAdaptCheckStage(ts->adapt, ts, th->stage_time, X2, &stageok)); in TSAlpha_Restart()
157 PetscCall(VecAXPY(th->V0, -1 / time_step, X2)); in TSAlpha_Restart()
162 PetscCall(VecAXPY(th->vec_lte_work, +2, X2)); in TSAlpha_Restart()
|
| H A D | alpha2.c | 160 Vec X0 = ts->vec_sol, X1, X2 = th->X1; in TSAlpha_Restart() local
194 PetscCall(TSAlpha_ApplyPredictor(ts, X2)); in TSAlpha_Restart()
195 PetscCall(TSAlpha_SNESSolve(ts, NULL, X2)); in TSAlpha_Restart()
197 PetscCall(TSPostStage(ts, th->stage_time, 0, &X2)); in TSAlpha_Restart()
198 PetscCall(TSAdaptCheckStage(ts->adapt, ts, th->stage_time, X2, &stageok)); in TSAlpha_Restart()
210 PetscCall(VecAXPY(th->vec_lte_work[0], +2, X2)); in TSAlpha_Restart()
|
| /petsc/src/ts/utils/dmplexlandau/tutorials/ |
| H A D | ex2.c | 271 Vec X2; in testStable() local
279 PetscCall(VecDuplicate(X, &X2)); in testStable()
280 PetscCall(VecCopy(X, X2)); in testStable()
289 PetscCall(DMPlexComputeIntegralFEM(plex, X2, tt, NULL)); in testStable()
292 PetscCall(DMPlexComputeIntegralFEM(plex, X2, tt, NULL)); in testStable()
297 PetscCall(DMPlexComputeIntegralFEM(plex, X2, tt, NULL)); in testStable()
300 PetscCall(DMPlexComputeIntegralFEM(plex, X2, tt, NULL)); in testStable()
305 PetscCall(VecCopy(X2, X)); in testStable()
306 PetscCall(VecDestroy(&X2)); in testStable()
|
| /petsc/src/ksp/ksp/impls/gmres/dgmres/ |
| H A D | dgmresimpl.h | 80 #define X2 dgmres->x2 macro
|
| H A D | dgmres.c | 82 X2 = NULL; in KSPSetUp_DGMRES()
282 PetscCall(PetscFree(X2)); in KSPDestroy_DGMRES()
796 PetscCall(PetscMalloc1(bmax, &X2)); in KSPDGMRESApplyDeflation_DGMRES()
801 PetscCall(PetscArraycpy(X2, X1, br)); in KSPDGMRESApplyDeflation_DGMRES()
817 …PetscCallBLAS("LAPACKgerfs", LAPACKgerfs_("N", &br, &nrhs, TT, &bmax, TTF, &bmax, INVP, X2, &bmax,… in KSPDGMRESApplyDeflation_DGMRES()
821 for (i = 0; i < r; i++) X2[i] = X1[i] / lambda - X2[i]; in KSPDGMRESApplyDeflation_DGMRES()
824 PetscCall(VecMAXPBY(y, r, X2, 0, UU)); in KSPDGMRESApplyDeflation_DGMRES()
|
| /petsc/src/tao/constrained/impls/ipm/ |
| H A D | ipm.c | 971 static PetscErrorCode IPMGatherRHS(Tao tao, Vec RHS, Vec X1, Vec X2, Vec X3, Vec X4) in IPMGatherRHS() argument
984 if (ipmP->me > 0 && X2) { in IPMGatherRHS()
985 PetscCall(VecScatterBegin(ipmP->rhs2, X2, RHS, INSERT_VALUES, SCATTER_FORWARD)); in IPMGatherRHS()
986 PetscCall(VecScatterEnd(ipmP->rhs2, X2, RHS, INSERT_VALUES, SCATTER_FORWARD)); in IPMGatherRHS()
1001 static PetscErrorCode IPMScatterStep(Tao tao, Vec STEP, Vec X1, Vec X2, Vec X3, Vec X4) in IPMScatterStep() argument
1015 if (X2 && ipmP->nb > 0) { in IPMScatterStep()
1016 PetscCall(VecScatterBegin(ipmP->step2, STEP, X2, INSERT_VALUES, SCATTER_FORWARD)); in IPMScatterStep()
1017 PetscCall(VecScatterEnd(ipmP->step2, STEP, X2, INSERT_VALUES, SCATTER_FORWARD)); in IPMScatterStep()
|
| /petsc/src/sys/classes/draw/impls/null/ |
| H A D | drawnull.c | 60 …scDrawTriangle_Null(PetscDraw draw, PetscReal X1, PetscReal Y_1, PetscReal X2, PetscReal Y2, Petsc… in PetscDrawTriangle_Null() argument
|
| /petsc/src/sys/classes/draw/impls/x/ |
| H A D | xops.c | 167 static PetscErrorCode PetscDrawTriangle_X(PetscDraw draw, PetscReal X1, PetscReal Y_1, PetscReal X2… in PetscDrawTriangle_X() argument
177 pt[1].x = (short)XTRANS(draw, XiWin, X2); in PetscDrawTriangle_X()
186 x2 = XTRANS(draw, XiWin, X2); in PetscDrawTriangle_X()
|