1 #include <petsc/private/tsimpl.h> /*I "petscts.h" I*/ 2 3 static PetscErrorCode TSAdaptChoose_None(TSAdapt adapt,TS ts,PetscReal h,PetscInt *next_sc,PetscReal *next_h,PetscBool *accept,PetscReal *wlte,PetscReal *wltea,PetscReal *wlter) 4 { 5 PetscFunctionBegin; 6 *accept = PETSC_TRUE; 7 *next_sc = 0; /* Reuse the same order scheme */ 8 *next_h = h; /* Reuse the old step */ 9 *wlte = -1; /* Weighted local truncation error was not evaluated */ 10 *wltea = -1; /* Weighted absolute local truncation error was not evaluated */ 11 *wlter = -1; /* Weighted relative local truncation error was not evaluated */ 12 PetscFunctionReturn(0); 13 } 14 15 /*MC 16 TSADAPTNONE - Time stepping controller that always accepts the current step and does not change it 17 18 Level: intermediate 19 20 .seealso: TS, TSAdapt, TSAdaptChoose() 21 M*/ 22 PETSC_EXTERN PetscErrorCode TSAdaptCreate_None(TSAdapt adapt) 23 { 24 PetscFunctionBegin; 25 adapt->ops->choose = TSAdaptChoose_None; 26 PetscFunctionReturn(0); 27 } 28