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