| /petsc/src/ts/trajectory/interface/ |
| H A D | traj.c | 158 …ode TSTrajectoryGetVecs(TSTrajectory tj, TS ts, PetscInt stepnum, PetscReal *time, Vec U, Vec Udot) in TSTrajectoryGetVecs() argument 167 if (Udot) PetscValidHeaderSpecific(Udot, VEC_CLASSID, 6); in TSTrajectoryGetVecs() 168 if (!U && !Udot) PetscFunctionReturn(PETSC_SUCCESS); in TSTrajectoryGetVecs() 174 pUdot = Udot ? 1 : 0; in TSTrajectoryGetVecs() 196 if (Udot && tj->lag.caching) { in TSTrajectoryGetVecs() 200 PetscCall(PetscObjectStateGet((PetscObject)Udot, &state)); in TSTrajectoryGetVecs() 201 PetscCall(PetscObjectGetId((PetscObject)Udot, &id)); in TSTrajectoryGetVecs() 203 …dotcached.id && *time == tj->lag.Udotcached.time && state == tj->lag.Udotcached.state) Udot = NULL; in TSTrajectoryGetVecs() 205 …tcached.id && stepnum == tj->lag.Udotcached.step && state == tj->lag.Udotcached.state) Udot = NULL; in TSTrajectoryGetVecs() 207 if (tj->monitor && !Udot) { in TSTrajectoryGetVecs() [all …]
|
| /petsc/src/ts/tutorials/autodiff/ |
| H A D | adr_ex1.cxx | 40 PetscErrorCode IFunctionPassive(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, AppCtx *ctx) in IFunctionPassive() argument 48 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunctionPassive() 54 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunctionPassive() 62 PetscErrorCode IFunctionActive1(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, AppCtx *ctx) in IFunctionActive1() argument 73 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunctionActive1() 91 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunctionActive1() 99 PetscErrorCode IFunctionActive2(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, AppCtx *ctx) in IFunctionActive2() argument 110 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunctionActive2() 128 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunctionActive2() 137 PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, AppCtx *ct… in IJacobian() argument [all …]
|
| H A D | adr_ex5adj_mf.cxx | 39 extern PetscErrorCode IFunctionActive(TS ts, PetscReal ftime, Vec U, Vec Udot, Vec F, void *ptr); 284 PetscErrorCode IFunctionActive(TS ts, PetscReal ftime, Vec U, Vec Udot, Vec F, void *ptr) in IFunctionActive() argument 328 PetscCall(DMDAVecGetArrayRead(da, Udot, &udot)); in IFunctionActive() 400 PetscCall(DMDAVecRestoreArrayRead(da, Udot, &udot)); in IFunctionActive()
|
| /petsc/src/ts/tests/ |
| H A D | ex15.c | 43 static PetscErrorCode IFunction_Conservative(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCtx c… in IFunction_Conservative() argument 50 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction_Conservative() 57 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction_Conservative() 62 static PetscErrorCode IFunction_Nonconservative(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCt… in IFunction_Nonconservative() argument 69 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction_Nonconservative() 76 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction_Nonconservative()
|
| H A D | ex24.c | 186 Vec U, Udot; in main() local 217 PetscCall(VecDuplicate(U, &Udot)); in main() 218 PetscCall(VecSet(Udot, 0.0)); in main() 237 PetscCall(TSComputeIJacobian(ts, t, U, Udot, shift, Jac2, Jac2, PETSC_FALSE)); in main() 239 PetscCall(TSComputeIJacobian(ts, t, U, Udot, shift, Jac, Jac, PETSC_FALSE)); in main() 241 PetscCall(TSComputeIJacobian(ts, t, U, Udot, shift, Jac, Jac, PETSC_FALSE)); in main() 248 PetscCall(VecDestroy(&Udot)); in main()
|
| /petsc/src/ts/tutorials/power_grid/ |
| H A D | ex1.c | 32 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, AppCtx *ctx) in IFunction() argument 45 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 51 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 59 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, App… in IJacobian() argument 67 PetscCall(VecGetArrayRead(Udot, &udot)); in IJacobian() 74 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IJacobian()
|
| H A D | ex2.c | 41 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, AppCtx *ctx) in IFunction() argument 49 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 58 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 66 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, App… in IJacobian() argument 74 PetscCall(VecGetArrayRead(Udot, &udot)); in IJacobian() 86 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IJacobian()
|
| H A D | ex3.h | 103 PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, AppCtx *ctx) in IFunction() argument 111 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 118 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 126 PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, AppCtx *ct… in IJacobian() argument 134 PetscCall(VecGetArrayRead(Udot, &udot)); in IJacobian() 143 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IJacobian()
|
| H A D | ex5.c | 181 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, AppCtx *user) in IFunction() argument 191 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 202 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction()
|
| /petsc/src/ts/tutorials/advection-diffusion-reaction/ |
| H A D | ex2.c | 42 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, AppCtx *ctx) in IFunction() argument 49 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 56 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 61 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, App… in IJacobian() argument 69 PetscCall(VecGetArrayRead(Udot, &udot)); in IJacobian() 88 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IJacobian()
|
| H A D | ex1.c | 95 PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, AppCtx *ctx) in IFunction() argument 103 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 109 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 117 PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, AppCtx *ct… in IJacobian() argument 125 PetscCall(VecGetArrayRead(Udot, &udot)); in IJacobian() 137 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IJacobian()
|
| H A D | ex4.c | 135 PetscErrorCode IFunction(TS ts, PetscReal ftime, Vec U, Vec Udot, Vec F, void *ptr) in IFunction() argument 166 PetscCall(DMDAVecGetArrayRead(da, Udot, &udot)); in IFunction() 211 PetscCall(DMDAVecRestoreArrayRead(da, Udot, &udot)); in IFunction()
|
| /petsc/src/ts/tutorials/hybrid/ |
| H A D | ex1.c | 60 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCtx ctx) in IFunction() argument 69 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 81 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 89 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument 98 PetscCall(VecGetArrayRead(Udot, &udot)); in IJacobian() 114 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IJacobian()
|
| H A D | ex1fwd.c | 143 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCtx ctx) in IFunction() argument 152 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 164 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 172 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument 181 PetscCall(VecGetArrayRead(Udot, &udot)); in IJacobian() 197 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IJacobian()
|
| H A D | ex1adj.c | 120 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCtx ctx) in IFunction() argument 129 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 141 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 149 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument 158 PetscCall(VecGetArrayRead(Udot, &udot)); in IJacobian() 174 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IJacobian()
|
| H A D | ex1fd.c | 120 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCtx ctx) in IFunction() argument 129 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 141 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 149 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument 158 PetscCall(VecGetArrayRead(Udot, &udot)); in IJacobian() 174 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IJacobian()
|
| /petsc/src/ts/trajectory/utils/ |
| H A D | reconstruct.c | 49 PetscErrorCode TSTrajectoryReconstruct_Private(TSTrajectory tj, TS ts, PetscReal t, Vec U, Vec Udot) in TSTrajectoryReconstruct_Private() argument 69 PetscCall(VecDuplicateVecs(U ? U : Udot, o, &tj->lag.W)); in TSTrajectoryReconstruct_Private() 73 if (id < 0 || Udot) { /* populate snapshots for interpolation */ in TSTrajectoryReconstruct_Private() 162 if (Udot) { in TSTrajectoryReconstruct_Private() 165 PetscCall(VecZeroEntries(Udot)); in TSTrajectoryReconstruct_Private() 166 PetscCall(VecMAXPY(Udot, cnt, tj->lag.L, tj->lag.WW)); in TSTrajectoryReconstruct_Private() 167 PetscCall(PetscObjectStateGet((PetscObject)Udot, &tj->lag.Udotcached.state)); in TSTrajectoryReconstruct_Private() 168 PetscCall(PetscObjectGetId((PetscObject)Udot, &tj->lag.Udotcached.id)); in TSTrajectoryReconstruct_Private()
|
| /petsc/src/ts/tutorials/ |
| H A D | ex41.c | 103 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCtx ctx) in IFunction() argument 111 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 118 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 126 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument 134 PetscCall(VecGetArrayRead(Udot, &udot)); in IJacobian() 147 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IJacobian()
|
| H A D | ex40.c | 106 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCtx ctx) in IFunction() argument 114 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 121 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 129 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument 137 PetscCall(VecGetArrayRead(Udot, &udot)); in IJacobian() 146 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IJacobian()
|
| H A D | ex34.c | 64 static PetscErrorCode FormIFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCtx ctx) in FormIFunction() argument 83 PetscCall(DMDAVecGetArrayRead(dm, Udot, &udot)); in FormIFunction() 105 PetscCall(DMDAVecRestoreArrayRead(dm, Udot, &udot)); in FormIFunction() 113 PetscErrorCode FormIJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat J, Mat Jpre, Pet… in FormIJacobian() argument 129 PetscCall(DMDAVecGetArrayRead(dm, Udot, &udot)); in FormIJacobian() 168 PetscCall(DMDAVecRestoreArrayRead(dm, Udot, &udot)); in FormIJacobian()
|
| H A D | ex32.c | 97 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCtx ctx) in IFunction() argument 119 PetscCall(DMDAVecGetArrayRead(da, Udot, &udot)); in IFunction() 133 PetscCall(DMDAVecRestoreArrayRead(da, Udot, &udot)); in IFunction() 143 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument
|
| H A D | ex17.c | 156 static PetscErrorCode FormIFunction(TS ts, PetscReal ftime, Vec U, Vec Udot, Vec F, void *ptr) in FormIFunction() argument 184 PetscCall(DMDAVecGetArrayRead(da, Udot, &udot)); in FormIFunction() 204 PetscCall(DMDAVecRestoreArrayRead(da, Udot, &udot)); in FormIFunction() 214 PetscErrorCode FormIJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat J, Mat Jpre, Pet… in FormIJacobian() argument
|
| H A D | ex20adj.c | 122 static PetscErrorCode IFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCtx ctx) in IFunction() argument 130 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunction() 139 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunction() 144 static PetscErrorCode IJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B, Pet… in IJacobian() argument 176 static PetscErrorCode IJacobianP(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, PetscCtx … in IJacobianP() argument
|
| H A D | ex15.c | 155 PetscErrorCode FormIFunction(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, PetscCtx ctx) in FormIFunction() argument 186 PetscCall(DMDAVecGetArray(da, Udot, &udot)); in FormIFunction() 235 PetscCall(DMDAVecRestoreArray(da, Udot, &udot)); in FormIFunction() 246 PetscErrorCode FormIJacobian(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat J, Mat Jpre, Pet… in FormIJacobian() argument
|
| /petsc/src/ts/tutorials/multirate/ |
| H A D | ex3fastslowsplit.c | 51 static PetscErrorCode IFunctionfast(TS ts, PetscReal t, Vec U, Vec Udot, Vec F, AppCtx *ctx) in IFunctionfast() argument 58 PetscCall(VecGetArrayRead(Udot, &udot)); in IFunctionfast() 61 PetscCall(VecRestoreArrayRead(Udot, &udot)); in IFunctionfast() 67 static PetscErrorCode IJacobianfast(TS ts, PetscReal t, Vec U, Vec Udot, PetscReal a, Mat A, Mat B,… in IJacobianfast() argument
|