| /petsc/src/ts/tutorials/power_grid/ |
| H A D | ex9adj.c | 153 static PetscErrorCode DRDPJacobianTranspose(TS ts, PetscReal t, Vec U, Mat DRDP, AppCtx *ctx) in DRDPJacobianTranspose() argument
156 PetscCall(MatZeroEntries(DRDP)); in DRDPJacobianTranspose()
157 PetscCall(MatAssemblyBegin(DRDP, MAT_FINAL_ASSEMBLY)); in DRDPJacobianTranspose()
158 PetscCall(MatAssemblyEnd(DRDP, MAT_FINAL_ASSEMBLY)); in DRDPJacobianTranspose()
183 Mat DRDU, DRDP; in main() local
219 PetscCall(MatCreateDense(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, 1, 1, NULL, &DRDP)); in main()
220 PetscCall(MatSetUp(DRDP)); in main()
283 PetscCall(TSSetRHSJacobianP(quadts, DRDP, (TSRHSJacobianPFn *)DRDPJacobianTranspose, &ctx)); in main()
370 PetscCall(MatDestroy(&DRDP)); in main()
|
| H A D | ex9opt.c | 143 static PetscErrorCode DRDPJacobianTranspose(TS ts, PetscReal t, Vec U, Mat DRDP, AppCtx *ctx) in DRDPJacobianTranspose() argument
146 PetscCall(MatZeroEntries(DRDP)); in DRDPJacobianTranspose()
147 PetscCall(MatAssemblyBegin(DRDP, MAT_FINAL_ASSEMBLY)); in DRDPJacobianTranspose()
148 PetscCall(MatAssemblyEnd(DRDP, MAT_FINAL_ASSEMBLY)); in DRDPJacobianTranspose()
180 Mat DRDU, DRDP; in main() local
235 PetscCall(MatCreateDense(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, 1, 1, NULL, &DRDP)); in main()
236 PetscCall(MatSetUp(DRDP)); in main()
268 PetscCall(TSSetRHSJacobianP(quadts, DRDP, (TSRHSJacobianPFn *)DRDPJacobianTranspose, &ctx)); in main()
323 PetscCall(MatDestroy(&DRDP)); in main()
|
| H A D | ex3.h | 18 Mat DRDU, DRDP; member
203 PetscErrorCode DRDPJacobianTranspose(TS ts, PetscReal t, Vec U, Mat DRDP, PetscCtx ctx) in DRDPJacobianTranspose() argument
206 PetscCall(MatZeroEntries(DRDP)); in DRDPJacobianTranspose()
207 PetscCall(MatAssemblyBegin(DRDP, MAT_FINAL_ASSEMBLY)); in DRDPJacobianTranspose()
208 PetscCall(MatAssemblyEnd(DRDP, MAT_FINAL_ASSEMBLY)); in DRDPJacobianTranspose()
|
| H A D | ex3sa.c | 65 PetscCall(MatCreateDense(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, 1, 1, NULL, &ctx.DRDP)); in main()
66 PetscCall(MatSetUp(ctx.DRDP)); in main()
140 PetscCall(TSSetRHSJacobianP(quadts, ctx.DRDP, DRDPJacobianTranspose, &ctx)); in main()
249 PetscCall(MatDestroy(&ctx.DRDP)); in main()
|
| H A D | ex3opt.c | 110 PetscCall(MatCreateDense(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, 1, 1, NULL, &ctx.DRDP)); in main()
111 PetscCall(MatSetUp(ctx.DRDP)); in main()
133 PetscCall(TSSetRHSJacobianP(ctx.quadts, ctx.DRDP, DRDPJacobianTranspose, &ctx)); in main()
143 PetscCall(TSSetRHSJacobianP(ctx.quadts, ctx.DRDP, DRDPJacobianTranspose, &ctx)); in main()
205 PetscCall(MatDestroy(&ctx.DRDP)); in main()
|
| /petsc/src/ts/tutorials/optimal_control/ |
| H A D | ex1.c | 11 Mat Jacp, DRDU, DRDP; member
220 static PetscErrorCode DRDPJacobianTranspose(TS ts, PetscReal t, Vec U, Mat DRDP, PetscCtx ctx) in DRDPJacobianTranspose() argument
223 PetscCall(MatZeroEntries(DRDP)); in DRDPJacobianTranspose()
275 …Dense(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, 2 * aircraft.nsteps, 1, NULL, &aircraft.DRDP)); in main()
276 PetscCall(MatSetUp(aircraft.DRDP)); in main()
310 …PetscCall(TSSetRHSJacobianP(aircraft.quadts, aircraft.DRDP, (TSRHSJacobianPFn *)DRDPJacobianTransp… in main()
320 PetscCall(MatCreateVecs(aircraft.DRDP, &aircraft.inthp3[0], NULL)); in main()
321 PetscCall(MatCreateVecs(aircraft.DRDP, &aircraft.inthp4[0], NULL)); in main()
401 PetscCall(MatDestroy(&aircraft.DRDP)); in main()
|
| /petsc/src/ts/interface/sensitivity/ |
| H A D | tssen.c | 413 PetscErrorCode TSComputeDRDPFunction(TS ts, PetscReal t, Vec U, Vec *DRDP) in TSComputeDRDPFunction() argument
416 if (!DRDP) PetscFunctionReturn(PETSC_SUCCESS); in TSComputeDRDPFunction()
420 …PetscCallBack("TS callback DRDP for sensitivity analysis", (*ts->drdpfunction)(ts, t, U, DRDP, ts-… in TSComputeDRDPFunction()
1219 PetscErrorCode TSAdjointComputeDRDPFunction(TS ts, PetscReal t, Vec U, Vec *DRDP) in TSAdjointComputeDRDPFunction() argument
1225 …PetscCallBack("TS callback DRDP for sensitivity analysis", (*ts->drdpfunction)(ts, t, U, DRDP, ts-… in TSAdjointComputeDRDPFunction()
|
| /petsc/src/ts/tutorials/power_grid/stability_9bus/ |
| H A D | ex9busopt.c | 107 Mat DRDU, DRDP; member
1134 PetscCall(MatCreateDense(PETSC_COMM_WORLD, PETSC_DECIDE, PETSC_DECIDE, 3, 1, NULL, &user.DRDP)); in main()
1135 PetscCall(MatSetUp(user.DRDP)); in main()
1202 PetscCall(MatDestroy(&user.DRDP)); in main()
1266 PetscCall(TSSetRHSJacobianP(quadts, ctx->DRDP, (TSRHSJacobianPFn *)DRDPJacobianTranspose, ctx)); in FormFunctionGradient()
|