| /petsc/src/ts/interface/sensitivity/ |
| H A D | tssen.c | 469 …e (*ihessianproductfunc1)(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, PetscCtx ctx), Vec… in TSSetIHessianProduct() argument
510 …rrorCode TSComputeIHessianProductFunctionUU(TS ts, PetscReal t, Vec U, Vec Vl[], Vec Vr, Vec VHV[]) in TSComputeIHessianProductFunctionUU() argument
513 if (!VHV) PetscFunctionReturn(PETSC_SUCCESS); in TSComputeIHessianProductFunctionUU()
517 … 1 for sensitivity analysis", (*ts->ihessianproduct_fuu)(ts, t, U, Vl, Vr, VHV, ts->ihessianproduc… in TSComputeIHessianProductFunctionUU()
522 PetscCall(TSComputeRHSHessianProductFunctionUU(ts, t, U, Vl, Vr, VHV)); in TSComputeIHessianProductFunctionUU()
523 for (nadj = 0; nadj < ts->numcost; nadj++) PetscCall(VecScale(VHV[nadj], -1)); in TSComputeIHessianProductFunctionUU()
551 …rrorCode TSComputeIHessianProductFunctionUP(TS ts, PetscReal t, Vec U, Vec Vl[], Vec Vr, Vec VHV[]) in TSComputeIHessianProductFunctionUP() argument
554 if (!VHV) PetscFunctionReturn(PETSC_SUCCESS); in TSComputeIHessianProductFunctionUP()
558 … 2 for sensitivity analysis", (*ts->ihessianproduct_fup)(ts, t, U, Vl, Vr, VHV, ts->ihessianproduc… in TSComputeIHessianProductFunctionUP()
563 PetscCall(TSComputeRHSHessianProductFunctionUP(ts, t, U, Vl, Vr, VHV)); in TSComputeIHessianProductFunctionUP()
[all …]
|
| /petsc/src/ts/tutorials/ |
| H A D | ex20opt_p.c | 86 static PetscErrorCode RHSHessianProductUU(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, Pet… in RHSHessianProductUU() argument
98 PetscCall(VecGetArray(VHV[0], &vhv)); in RHSHessianProductUU()
112 PetscCall(VecRestoreArray(VHV[0], &vhv)); in RHSHessianProductUU()
116 static PetscErrorCode RHSHessianProductUP(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, Pet… in RHSHessianProductUP() argument
127 PetscCall(VecGetArray(VHV[0], &vhv)); in RHSHessianProductUP()
140 PetscCall(VecRestoreArray(VHV[0], &vhv)); in RHSHessianProductUP()
144 static PetscErrorCode RHSHessianProductPU(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, Pet… in RHSHessianProductPU() argument
155 PetscCall(VecGetArray(VHV[0], &vhv)); in RHSHessianProductPU()
168 PetscCall(VecRestoreArray(VHV[0], &vhv)); in RHSHessianProductPU()
172 static PetscErrorCode RHSHessianProductPP(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, Pet… in RHSHessianProductPP() argument
[all …]
|
| H A D | ex20opt_ic.c | 78 static PetscErrorCode RHSHessianProductUU(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, Pet… in RHSHessianProductUU() argument
90 PetscCall(VecGetArray(VHV[0], &vhv)); in RHSHessianProductUU()
103 PetscCall(VecRestoreArray(VHV[0], &vhv)); in RHSHessianProductUU()
175 static PetscErrorCode IHessianProductUU(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, Petsc… in IHessianProductUU() argument
187 PetscCall(VecGetArray(VHV[0], &vhv)); in IHessianProductUU()
199 PetscCall(VecRestoreArray(VHV[0], &vhv)); in IHessianProductUU()
|
| /petsc/src/ts/tutorials/optimal_control/ |
| H A D | ex1.c | 78 static PetscErrorCode RHSHessianProductUU(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, Pet… in RHSHessianProductUU() argument
84 static PetscErrorCode RHSHessianProductUP(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, Pet… in RHSHessianProductUP() argument
90 static PetscErrorCode RHSHessianProductPU(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, Pet… in RHSHessianProductPU() argument
96 static PetscErrorCode RHSHessianProductPP(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, Pet… in RHSHessianProductPP() argument
111 PetscCall(VecSet(VHV[0], 0.0)); in RHSHessianProductPP()
112 PetscCall(VecGetArray(VHV[0], &vhv)); in RHSHessianProductPP()
129 PetscCall(VecRestoreArray(VHV[0], &vhv)); in RHSHessianProductPP()
134 …rCode IntegrandHessianProductUU(TS ts, PetscReal t, Vec U, Vec *Vl, Vec Vr, Vec *VHV, PetscCtx ctx) in IntegrandHessianProductUU() argument
148 PetscCall(VecGetArray(VHV[0], &vhv)); in IntegrandHessianProductUU()
159 PetscCall(VecRestoreArray(VHV[0], &vhv)); in IntegrandHessianProductUU()
[all …]
|