Searched refs:quadJ (Results 1 – 1 of 1) sorted by relevance
| /petsc/src/ts/impls/implicit/theta/ |
| H A D | theta.c | 278 Mat J, Jpre, quadJ = NULL, quadJp = NULL; in TSAdjointStepBEuler_Private() local
296 PetscCall(TSGetRHSJacobian(quadts, &quadJ, NULL, NULL, NULL)); in TSAdjointStepBEuler_Private()
304 if (quadts) PetscCall(TSComputeRHSJacobian(quadts, th->stage_time, ts->vec_sol, quadJ, NULL)); in TSAdjointStepBEuler_Private()
309 if (quadJ) { in TSAdjointStepBEuler_Private()
310 PetscCall(MatDenseGetColumn(quadJ, nadj, &xarr)); in TSAdjointStepBEuler_Private()
314 PetscCall(MatDenseRestoreColumn(quadJ, &xarr)); in TSAdjointStepBEuler_Private()
423 Mat J, Jpre, quadJ = NULL, quadJp = NULL; in TSAdjointStep_Theta() local
438 PetscCall(TSGetRHSJacobian(quadts, &quadJ, NULL, NULL, NULL)); in TSAdjointStep_Theta()
455 PetscCall(TSComputeRHSJacobian(quadts, th->stage_time, ts->vec_sol, quadJ, NULL)); in TSAdjointStep_Theta()
457 PetscCall(TSComputeRHSJacobian(quadts, th->stage_time, th->X, quadJ, NULL)); in TSAdjointStep_Theta()
[all …]
|