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) 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 PetscFunctionReturn(0); 14 } 15 16 EXTERN_C_BEGIN 17 #undef __FUNCT__ 18 #define __FUNCT__ "TSAdaptCreate_None" 19 /*MC 20 TSADAPTNONE - Time stepping controller that always accepts the current step and does not change it 21 22 Level: intermediate 23 24 .seealso: TS, TSAdapt, TSSetAdapt() 25 M*/ 26 PetscErrorCode TSAdaptCreate_None(TSAdapt adapt) 27 { 28 29 PetscFunctionBegin; 30 adapt->ops->choose = TSAdaptChoose_None; 31 PetscFunctionReturn(0); 32 } 33 EXTERN_C_END 34