8 static PetscErrorCode TSAdaptChoose_History(TSAdapt adapt, TS ts, PetscReal h, PetscInt *next_sc, P…  in TSAdaptChoose_History()  argument
11   TSAdapt_History *thadapt = (TSAdapt_History *)adapt->data;  in TSAdaptChoose_History()
14 …PetscCheck(thadapt->hist, PetscObjectComm((PetscObject)adapt), PETSC_ERR_ORDER, "Need to call TSAd…  in TSAdaptChoose_History()
25 static PetscErrorCode TSAdaptReset_History(TSAdapt adapt)  in TSAdaptReset_History()  argument
27   TSAdapt_History *thadapt = (TSAdapt_History *)adapt->data;  in TSAdaptReset_History()
34 static PetscErrorCode TSAdaptDestroy_History(TSAdapt adapt)  in TSAdaptDestroy_History()  argument
37   PetscCall(TSAdaptReset_History(adapt));  in TSAdaptDestroy_History()
38   PetscCall(PetscFree(adapt->data));  in TSAdaptDestroy_History()
43 PetscErrorCode TSAdaptHistorySetTSHistory(TSAdapt adapt, TSHistory hist, PetscBool backward)  in TSAdaptHistorySetTSHistory()  argument
50   PetscValidHeaderSpecific(adapt, TSADAPT_CLASSID, 1);  in TSAdaptHistorySetTSHistory()
51   PetscValidLogicalCollectiveBool(adapt, backward, 3);  in TSAdaptHistorySetTSHistory()
52   PetscCall(PetscObjectTypeCompare((PetscObject)adapt, TSADAPTHISTORY, &flg));  in TSAdaptHistorySetTSHistory()
55   PetscCall(TSAdaptHistorySetHistory(adapt, n, hist_t, backward));  in TSAdaptHistorySetTSHistory()
79 PetscErrorCode TSAdaptHistoryGetStep(TSAdapt adapt, PetscInt step, PetscReal *t, PetscReal *dt)  in TSAdaptHistoryGetStep()  argument
85   PetscValidHeaderSpecific(adapt, TSADAPT_CLASSID, 1);  in TSAdaptHistoryGetStep()
86   PetscValidLogicalCollectiveInt(adapt, step, 2);  in TSAdaptHistoryGetStep()
87   PetscCall(PetscObjectTypeCompare((PetscObject)adapt, TSADAPTHISTORY, &flg));  in TSAdaptHistoryGetStep()
88 …PetscCheck(flg, PetscObjectComm((PetscObject)adapt), PETSC_ERR_SUP, "Not for type %s", ((PetscObje…  in TSAdaptHistoryGetStep()
89   thadapt = (TSAdapt_History *)adapt->data;  in TSAdaptHistoryGetStep()
113 PetscErrorCode TSAdaptHistorySetHistory(TSAdapt adapt, PetscInt n, PetscReal hist[], PetscBool back…  in TSAdaptHistorySetHistory()  argument
119   PetscValidHeaderSpecific(adapt, TSADAPT_CLASSID, 1);  in TSAdaptHistorySetHistory()
120   PetscValidLogicalCollectiveInt(adapt, n, 2);  in TSAdaptHistorySetHistory()
122   PetscValidLogicalCollectiveBool(adapt, backward, 4);  in TSAdaptHistorySetHistory()
123   PetscCall(PetscObjectTypeCompare((PetscObject)adapt, TSADAPTHISTORY, &flg));  in TSAdaptHistorySetHistory()
125   thadapt = (TSAdapt_History *)adapt->data;  in TSAdaptHistorySetHistory()
127   PetscCall(TSHistoryCreate(PetscObjectComm((PetscObject)adapt), &thadapt->hist));  in TSAdaptHistorySetHistory()
152 PetscErrorCode TSAdaptHistorySetTrajectory(TSAdapt adapt, TSTrajectory tj, PetscBool backward)  in TSAdaptHistorySetTrajectory()  argument
157   PetscValidHeaderSpecific(adapt, TSADAPT_CLASSID, 1);  in TSAdaptHistorySetTrajectory()
159   PetscValidLogicalCollectiveBool(adapt, backward, 3);  in TSAdaptHistorySetTrajectory()
160   PetscCall(PetscObjectTypeCompare((PetscObject)adapt, TSADAPTHISTORY, &flg));  in TSAdaptHistorySetTrajectory()
162   PetscCall(TSAdaptHistorySetTSHistory(adapt, tj->tsh, backward));  in TSAdaptHistorySetTrajectory()
173 PETSC_EXTERN PetscErrorCode TSAdaptCreate_History(TSAdapt adapt)  in TSAdaptCreate_History()  argument
179   adapt->matchstepfac[0] = PETSC_SMALL; /* prevent from accumulation errors */  in TSAdaptCreate_History()
180 …adapt->matchstepfac[1] = 0.0;         /* we will always match the final step, prevent TSAdaptChoos…  in TSAdaptCreate_History()
181   adapt->data            = thadapt;  in TSAdaptCreate_History()
183   adapt->ops->choose  = TSAdaptChoose_History;  in TSAdaptCreate_History()
184   adapt->ops->reset   = TSAdaptReset_History;  in TSAdaptCreate_History()
185   adapt->ops->destroy = TSAdaptDestroy_History;  in TSAdaptCreate_History()