| /petsc/src/ts/impls/implicit/discgrad/ |
| H A D | tsdiscgrad.c | 21 Vec X0, X, Xdot; member
29 static PetscErrorCode TSDiscGradGetX0AndXdot(TS ts, DM dm, Vec *X0, Vec *Xdot) in TSDiscGradGetX0AndXdot() argument
38 if (Xdot) { in TSDiscGradGetX0AndXdot()
39 if (dm && dm != ts->dm) PetscCall(DMGetNamedGlobalVector(dm, "TSDiscGrad_Xdot", Xdot)); in TSDiscGradGetX0AndXdot()
40 else *Xdot = dg->Xdot; in TSDiscGradGetX0AndXdot()
45 static PetscErrorCode TSDiscGradRestoreX0AndXdot(TS ts, DM dm, Vec *X0, Vec *Xdot) in TSDiscGradRestoreX0AndXdot() argument
51 if (Xdot) { in TSDiscGradRestoreX0AndXdot()
52 if (dm && dm != ts->dm) PetscCall(DMRestoreNamedGlobalVector(dm, "TSDiscGrad_Xdot", Xdot)); in TSDiscGradRestoreX0AndXdot()
66 Vec X0, Xdot, X0_c, Xdot_c; in DMRestrictHook_TSDiscGrad() local
69 PetscCall(TSDiscGradGetX0AndXdot(ts, fine, &X0, &Xdot)); in DMRestrictHook_TSDiscGrad()
[all …]
|
| /petsc/src/ts/impls/mimex/ |
| H A D | mimex.c | 10 Vec Xdot, update; member
15 static PetscErrorCode TSMimexGetX0AndXdot(TS ts, DM dm, Vec *X0, Vec *Xdot) in TSMimexGetX0AndXdot() argument
24 if (Xdot) { in TSMimexGetX0AndXdot()
25 if (dm && dm != ts->dm) PetscCall(DMGetNamedGlobalVector(dm, "TSMimex_Xdot", Xdot)); in TSMimexGetX0AndXdot()
26 else *Xdot = mimex->Xdot; in TSMimexGetX0AndXdot()
31 static PetscErrorCode TSMimexRestoreX0AndXdot(TS ts, DM dm, Vec *X0, Vec *Xdot) in TSMimexRestoreX0AndXdot() argument
36 if (Xdot) in TSMimexRestoreX0AndXdot()
37 if (dm && dm != ts->dm) PetscCall(DMRestoreNamedGlobalVector(dm, "TSMimex_Xdot", Xdot)); in TSMimexRestoreX0AndXdot()
65 Vec X0, Xdot; in SNESTSFormFunction_Mimex() local
70 PetscCall(TSMimexGetX0AndXdot(ts, dm, &X0, &Xdot)); in SNESTSFormFunction_Mimex()
[all …]
|
| /petsc/src/ts/tutorials/ |
| H A D | ex8.c | 31 static PetscErrorCode RoberFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, PetscCtx ctx) in RoberFunction() argument
38 PetscCall(VecGetArrayRead(Xdot, &xdot)); in RoberFunction()
44 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in RoberFunction()
49 static PetscErrorCode RoberJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat A, Mat B,… in RoberJacobian() argument
57 PetscCall(VecGetArrayRead(Xdot, &xdot)); in RoberJacobian()
69 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in RoberJacobian()
121 static PetscErrorCode CEFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, PetscCtx ctx) in CEFunction() argument
129 PetscCall(VecGetArrayRead(Xdot, &xdot)); in CEFunction()
136 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in CEFunction()
141 static PetscErrorCode CEJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat A, Mat B, Pe… in CEJacobian() argument
[all …]
|
| H A D | ex24.c | 105 Vec Xdot, F; in MonitorObjective() local
115 PetscCall(VecDuplicate(X, &Xdot)); in MonitorObjective()
117 PetscCall(VecZeroEntries(Xdot)); in MonitorObjective()
118 PetscCall(FormIFunction(ts, t, X, Xdot, F, ictx)); in MonitorObjective()
120 PetscCall(VecDestroy(&Xdot)); in MonitorObjective()
145 static PetscErrorCode FormIFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, void *ictx) in FormIFunction() argument
176 PetscCall(VecAXPY(F, 1.0, Xdot)); in FormIFunction()
195 static PetscErrorCode FormIJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal shift, Mat J, Ma… in FormIJacobian() argument
|
| H A D | ex49.c | 28 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, PetscCtx ctx) in IFunction() argument
36 PetscCall(VecGetArrayRead(Xdot, &xdot)); in IFunction()
41 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in IFunction()
46 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument
|
| H A D | ex23fwdadj.c | 29 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, PetscCtx ctx) in IFunction() argument
37 PetscCall(VecGetArrayRead(Xdot, &xdot)); in IFunction()
41 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in IFunction()
46 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument
68 static PetscErrorCode IJacobianP(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal shift, Mat A, Petsc… in IJacobianP() argument
78 PetscCall(VecGetArrayRead(Xdot, &xdot)); in IJacobianP()
|
| H A D | ex19.c | 71 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, PetscCtx ctx) in IFunction() argument
78 PetscCall(VecGetArrayRead(Xdot, &xdot)); in IFunction()
83 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in IFunction()
88 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument
|
| H A D | ex22.c | 142 static PetscErrorCode FormIFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, void *ptr) in FormIFunction() argument
157 PetscCall(DMDAVecGetArrayRead(da, Xdot, (void *)&xdot)); in FormIFunction()
168 PetscCall(DMDAVecRestoreArrayRead(da, Xdot, (void *)&xdot)); in FormIFunction()
229 PetscErrorCode FormIJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat J, Mat Jpre, voi… in FormIJacobian() argument
243 PetscCall(DMDAVecGetArrayRead(da, Xdot, (void *)&xdot)); in FormIJacobian()
259 PetscCall(DMDAVecRestoreArrayRead(da, Xdot, (void *)&xdot)); in FormIJacobian()
|
| H A D | ex20.c | 47 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, PetscCtx ctx) in IFunction() argument
55 PetscCall(VecGetArrayRead(Xdot, &xdot)); in IFunction()
60 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in IFunction()
65 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument
|
| H A D | ex25.c | 135 static PetscErrorCode FormIFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, void *ptr) in FormIFunction() argument
162 PetscCall(DMDAVecGetArrayRead(da, Xdot, &xdot)); in FormIFunction()
181 PetscCall(DMDAVecRestoreArrayRead(da, Xdot, &xdot)); in FormIFunction()
222 PetscErrorCode FormIJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat J, Mat Jpre, voi… in FormIJacobian() argument
238 PetscCall(DMDAVecGetArrayRead(da, Xdot, &xdot)); in FormIJacobian()
262 PetscCall(DMDAVecRestoreArrayRead(da, Xdot, &xdot)); in FormIJacobian()
|
| H A D | ex16.c | 95 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, PetscCtx ctx) in IFunction() argument
103 PetscCall(VecGetArrayRead(Xdot, &xdot)); in IFunction()
108 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in IFunction()
113 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument
|
| H A D | ex20fwd.c | 35 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, PetscCtx ctx) in IFunction() argument
43 PetscCall(VecGetArrayRead(Xdot, &xdot)); in IFunction()
48 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in IFunction()
53 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument
|
| H A D | ex22f_mf.F90 | 197 subroutine FormIFunction(ts, t, X, Xdot, F, ctx, ierr) argument
204 Vec X, Xdot, F
217 PetscCall(VecGetArrayRead(Xdot, xxdot, ierr))
223 PetscCall(VecRestoreArrayRead(Xdot, xxdot, ierr))
319 subroutine FormIJacobian(ts, t, X, Xdot, shift, J, Jpre, ctx, ierr) argument
326 Vec X, Xdot
412 subroutine FormIJacobianMF(ts, t, X, Xdot, shift, J, Jpre, ctx, ierr) argument
417 Vec X, Xdot
|
| H A D | ex22f.F90 | 169 subroutine FormIFunction(ts, t, X, Xdot, F, ctx, ierr) argument
176 Vec X, Xdot, F
188 PetscCall(VecGetArrayRead(Xdot, xxdot, ierr))
194 PetscCall(VecRestoreArrayRead(Xdot, xxdot, ierr))
288 subroutine FormIJacobian(ts, t, X, Xdot, shift, J, Jpre, ctx, ierr) argument
295 Vec X, Xdot
|
| /petsc/src/ts/tests/ |
| H A D | ex18.c | 55 PetscErrorCode IFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, PetscCtx ctx) in IFunction() argument
62 PetscCall(VecGetArrayRead(Xdot, &xdot)); in IFunction()
72 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in IFunction()
78 PetscErrorCode IJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal shift, Mat A, Mat B, PetscC… in IJacobian() argument
84 PetscCall(VecGetArrayRead(Xdot, &xdot)); in IJacobian()
96 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in IJacobian()
|
| H A D | ex25.c | 157 static PetscErrorCode FormIFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, void *ptr) in FormIFunction() argument
184 PetscCall(DMDAVecGetArrayRead(da, Xdot, &xdot)); in FormIFunction()
203 PetscCall(DMDAVecRestoreArrayRead(da, Xdot, &xdot)); in FormIFunction()
244 PetscErrorCode FormIJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat J, Mat Jpre, voi… in FormIJacobian() argument
260 PetscCall(DMDAVecGetArrayRead(da, Xdot, &xdot)); in FormIJacobian()
284 PetscCall(DMDAVecRestoreArrayRead(da, Xdot, &xdot)); in FormIJacobian()
|
| /petsc/src/ts/impls/implicit/theta/ |
| H A D | theta.c | 13 …Vec X0, X, Xdot; /* Storage for u^n, u^n + dt a_{11} k_1, and time derivative u^{n+1}_t */ member
45 static PetscErrorCode TSThetaGetX0AndXdot(TS ts, DM dm, Vec *X0, Vec *Xdot) in TSThetaGetX0AndXdot() argument
54 if (Xdot) { in TSThetaGetX0AndXdot()
55 if (dm && dm != ts->dm) PetscCall(DMGetNamedGlobalVector(dm, "TSTheta_Xdot", Xdot)); in TSThetaGetX0AndXdot()
56 else *Xdot = th->Xdot; in TSThetaGetX0AndXdot()
61 static PetscErrorCode TSThetaRestoreX0AndXdot(TS ts, DM dm, Vec *X0, Vec *Xdot) in TSThetaRestoreX0AndXdot() argument
67 if (Xdot) { in TSThetaRestoreX0AndXdot()
68 if (dm && dm != ts->dm) PetscCall(DMRestoreNamedGlobalVector(dm, "TSTheta_Xdot", Xdot)); in TSThetaRestoreX0AndXdot()
82 Vec X0, Xdot, X0_c, Xdot_c; in DMRestrictHook_TSTheta() local
85 PetscCall(TSThetaGetX0AndXdot(ts, fine, &X0, &Xdot)); in DMRestrictHook_TSTheta()
[all …]
|
| /petsc/src/snes/impls/ngmres/ |
| H A D | ngmresfunc.c | 27 Vec *Xdot = ngmres->Xdot; in SNESNGMRESUpdateSubspace_Private() local
32 PetscCall(VecCopy(X, Xdot[ivec])); in SNESNGMRESUpdateSubspace_Private()
43 Vec *Xdot = ngmres->Xdot; in SNESNGMRESFormCombinedSolution_Private() local
98 PetscCall(VecMAXPY(XA, l, beta, Xdot)); in SNESNGMRESFormCombinedSolution_Private()
119 Vec *Xdot = ngmres->Xdot; in SNESNGMRESNorms_Private() local
141 PetscCall(VecWAXPY(D, -1.0, XA, Xdot[i])); in SNESNGMRESNorms_Private()
|
| /petsc/src/ts/tutorials/eimex/ |
| H A D | ct_vdp_imex.c | 181 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, void *ptr) in IFunction() argument
189 PetscCall(VecGetArrayRead(Xdot, &xdot)); in IFunction()
194 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in IFunction()
199 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat A, Mat B, voi… in IJacobian() argument
|
| H A D | allen_cahn.c | 127 static PetscErrorCode FormIFunction(TS ts, PetscReal t, Vec X, Vec Xdot, Vec F, void *ptr) in FormIFunction() argument
137 PetscCall(VecGetArrayRead(Xdot, &xdot)); in FormIFunction()
143 PetscCall(VecRestoreArrayRead(Xdot, &xdot)); in FormIFunction()
|
| /petsc/src/binding/petsc4py/demo/legacy/perftest/ |
| H A D | driver.c | 29 PetscErrorCode FormFunction(TS ts, PetscReal t, Vec X, Vec Xdot,Vec F, PetscCtx ctx) in FormFunction() argument
38 PetscCall(VecGetArrayRead(Xdot,&xdot)); in FormFunction()
44 PetscCall(VecRestoreArrayRead(Xdot,&xdot)); in FormFunction()
|
| /petsc/src/ts/impls/bdf/ |
| H A D | bdf.c | 55 static PetscErrorCode TSBDF_GetVecs(TS ts, DM dm, Vec *Xdot, Vec *Ydot) in TSBDF_GetVecs() argument
61 PetscCall(DMGetNamedGlobalVector(dm, "TSBDF_Vec_Xdot", Xdot)); in TSBDF_GetVecs()
64 *Xdot = bdf->vec_dot; in TSBDF_GetVecs()
70 static PetscErrorCode TSBDF_RestoreVecs(TS ts, DM dm, Vec *Xdot, Vec *Ydot) in TSBDF_RestoreVecs() argument
76 PetscCall(DMRestoreNamedGlobalVector(dm, "TSBDF_Vec_Xdot", Xdot)); in TSBDF_RestoreVecs()
79 …PetscCheck(*Xdot == bdf->vec_dot, PetscObjectComm((PetscObject)ts), PETSC_ERR_ARG_INCOMP, "Vec doe… in TSBDF_RestoreVecs()
81 *Xdot = NULL; in TSBDF_RestoreVecs()
97 Vec Xdot, Xdot_c; in DMRestrictHook_TSBDF() local
100 PetscCall(TSBDF_GetVecs(ts, fine, &Xdot, &Ydot)); in DMRestrictHook_TSBDF()
106 PetscCall(TSBDF_RestoreVecs(ts, fine, &Xdot, &Ydot)); in DMRestrictHook_TSBDF()
|
| /petsc/src/ts/tutorials/autodiff/ |
| H A D | adr_ex5adj_mf.cxx | 40 extern PetscErrorCode IJacobianMatFree(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat A_shel…
94 PetscCall(VecDuplicate(x, &matctx.Xdot)); in main()
119 PetscCall(IFunctionActive(ts, 1., x, matctx.Xdot, r, &appctx)); in main()
172 PetscCall(VecDestroy(&matctx.Xdot)); in main()
417 PetscErrorCode IJacobianMatFree(TS ts, PetscReal t, Vec X, Vec Xdot, PetscReal a, Mat A_shell, Mat … in IJacobianMatFree() argument
429 PetscCall(VecCopy(Xdot, mctx->Xdot)); in IJacobianMatFree()
|
| /petsc/src/ts/utils/ |
| H A D | dmdats.c | 48 static PetscErrorCode TSComputeIFunction_DMDA(TS ts, PetscReal ptime, Vec X, Vec Xdot, Vec F, Petsc… in TSComputeIFunction_DMDA() argument
63 PetscCall(DMGlobalToLocalBegin(dm, Xdot, INSERT_VALUES, Xdotloc)); in TSComputeIFunction_DMDA()
64 PetscCall(DMGlobalToLocalEnd(dm, Xdot, INSERT_VALUES, Xdotloc)); in TSComputeIFunction_DMDA()
103 static PetscErrorCode TSComputeIJacobian_DMDA(TS ts, PetscReal ptime, Vec X, Vec Xdot, PetscReal sh… in TSComputeIJacobian_DMDA() argument
120 PetscCall(DMGlobalToLocalBegin(dm, Xdot, INSERT_VALUES, Xdotloc)); in TSComputeIJacobian_DMDA()
121 PetscCall(DMGlobalToLocalEnd(dm, Xdot, INSERT_VALUES, Xdotloc)); in TSComputeIJacobian_DMDA()
|
| /petsc/src/ts/tutorials/autodiff/adolc-utils/ |
| H A D | contexts.cxx | 32 Vec Xdot; member
|