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