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