1 2 #include <petsc/private/tsimpl.h> /*I "petscts.h" I*/ 3 PETSC_EXTERN PetscErrorCode TSCreate_Euler(TS); 4 PETSC_EXTERN PetscErrorCode TSCreate_BEuler(TS); 5 PETSC_EXTERN PetscErrorCode TSCreate_Pseudo(TS); 6 PETSC_EXTERN PetscErrorCode TSCreate_Sundials(TS); 7 PETSC_EXTERN PetscErrorCode TSCreate_Radau5(TS); 8 PETSC_EXTERN PetscErrorCode TSCreate_CN(TS); 9 PETSC_EXTERN PetscErrorCode TSCreate_Theta(TS); 10 PETSC_EXTERN PetscErrorCode TSCreate_Alpha(TS); 11 PETSC_EXTERN PetscErrorCode TSCreate_Alpha2(TS); 12 PETSC_EXTERN PetscErrorCode TSCreate_GLLE(TS); 13 PETSC_EXTERN PetscErrorCode TSCreate_SSP(TS); 14 PETSC_EXTERN PetscErrorCode TSCreate_RK(TS); 15 PETSC_EXTERN PetscErrorCode TSCreate_ARKIMEX(TS); 16 PETSC_EXTERN PetscErrorCode TSCreate_DIRK(TS); 17 PETSC_EXTERN PetscErrorCode TSCreate_RosW(TS); 18 PETSC_EXTERN PetscErrorCode TSCreate_EIMEX(TS); 19 PETSC_EXTERN PetscErrorCode TSCreate_Mimex(TS); 20 PETSC_EXTERN PetscErrorCode TSCreate_BDF(TS); 21 PETSC_EXTERN PetscErrorCode TSCreate_GLEE(TS); 22 PETSC_EXTERN PetscErrorCode TSCreate_BasicSymplectic(TS); 23 PETSC_EXTERN PetscErrorCode TSCreate_MPRK(TS); 24 PETSC_EXTERN PetscErrorCode TSCreate_DiscGrad(TS); 25 PETSC_EXTERN PetscErrorCode TSCreate_IRK(TS); 26 27 /*@C 28 TSRegisterAll - Registers all of the timesteppers in the `TS` package. 29 30 Not Collective 31 32 Level: advanced 33 34 .seealso: [](ch_ts), `TS`, `TSCreate()`, `TSRegister()`, `TSRegisterDestroy()` 35 @*/ 36 PetscErrorCode TSRegisterAll(void) 37 { 38 PetscFunctionBegin; 39 if (TSRegisterAllCalled) PetscFunctionReturn(PETSC_SUCCESS); 40 TSRegisterAllCalled = PETSC_TRUE; 41 42 PetscCall(TSRegister(TSEULER, TSCreate_Euler)); 43 PetscCall(TSRegister(TSBEULER, TSCreate_BEuler)); 44 PetscCall(TSRegister(TSCN, TSCreate_CN)); 45 PetscCall(TSRegister(TSPSEUDO, TSCreate_Pseudo)); 46 PetscCall(TSRegister(TSGLLE, TSCreate_GLLE)); 47 PetscCall(TSRegister(TSSSP, TSCreate_SSP)); 48 PetscCall(TSRegister(TSTHETA, TSCreate_Theta)); 49 PetscCall(TSRegister(TSALPHA, TSCreate_Alpha)); 50 PetscCall(TSRegister(TSALPHA2, TSCreate_Alpha2)); 51 #if defined(PETSC_HAVE_SUNDIALS2) 52 PetscCall(TSRegister(TSSUNDIALS, TSCreate_Sundials)); 53 #endif 54 #if defined(PETSC_HAVE_RADAU5) 55 PetscCall(TSRegister(TSRADAU5, TSCreate_Radau5)); 56 #endif 57 PetscCall(TSRegister(TSRK, TSCreate_RK)); 58 PetscCall(TSRegister(TSGLEE, TSCreate_GLEE)); 59 PetscCall(TSRegister(TSARKIMEX, TSCreate_ARKIMEX)); 60 PetscCall(TSRegister(TSDIRK, TSCreate_DIRK)); 61 PetscCall(TSRegister(TSROSW, TSCreate_RosW)); 62 PetscCall(TSRegister(TSEIMEX, TSCreate_EIMEX)); 63 PetscCall(TSRegister(TSMIMEX, TSCreate_Mimex)); 64 PetscCall(TSRegister(TSBDF, TSCreate_BDF)); 65 PetscCall(TSRegister(TSBASICSYMPLECTIC, TSCreate_BasicSymplectic)); 66 PetscCall(TSRegister(TSMPRK, TSCreate_MPRK)); 67 PetscCall(TSRegister(TSDISCGRAD, TSCreate_DiscGrad)); 68 PetscCall(TSRegister(TSIRK, TSCreate_IRK)); 69 PetscFunctionReturn(PETSC_SUCCESS); 70 } 71