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