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_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 Input parameter: 32 . path - The dynamic library path 33 34 Level: advanced 35 36 .seealso: TSCreate(), TSRegister(), TSRegisterDestroy() 37 @*/ 38 PetscErrorCode TSRegisterAll(void) 39 { 40 PetscErrorCode ierr; 41 42 PetscFunctionBegin; 43 if (TSRegisterAllCalled) PetscFunctionReturn(0); 44 TSRegisterAllCalled = PETSC_TRUE; 45 46 ierr = TSRegister(TSEULER, TSCreate_Euler);CHKERRQ(ierr); 47 ierr = TSRegister(TSBEULER, TSCreate_BEuler);CHKERRQ(ierr); 48 ierr = TSRegister(TSCN, TSCreate_CN);CHKERRQ(ierr); 49 ierr = TSRegister(TSPSEUDO, TSCreate_Pseudo);CHKERRQ(ierr); 50 ierr = TSRegister(TSGLLE, TSCreate_GLLE);CHKERRQ(ierr); 51 ierr = TSRegister(TSSSP, TSCreate_SSP);CHKERRQ(ierr); 52 ierr = TSRegister(TSTHETA, TSCreate_Theta);CHKERRQ(ierr); 53 ierr = TSRegister(TSALPHA, TSCreate_Alpha);CHKERRQ(ierr); 54 ierr = TSRegister(TSALPHA2, TSCreate_Alpha2);CHKERRQ(ierr); 55 #if defined(PETSC_HAVE_SUNDIALS2) 56 ierr = TSRegister(TSSUNDIALS, TSCreate_Sundials);CHKERRQ(ierr); 57 #endif 58 #if defined(PETSC_HAVE_RADAU5) 59 ierr = TSRegister(TSRADAU5, TSCreate_Radau5);CHKERRQ(ierr); 60 #endif 61 ierr = TSRegister(TSRK, TSCreate_RK);CHKERRQ(ierr); 62 ierr = TSRegister(TSGLEE, TSCreate_GLEE);CHKERRQ(ierr); 63 ierr = TSRegister(TSARKIMEX, TSCreate_ARKIMEX);CHKERRQ(ierr); 64 ierr = TSRegister(TSROSW, TSCreate_RosW);CHKERRQ(ierr); 65 ierr = TSRegister(TSEIMEX, TSCreate_EIMEX);CHKERRQ(ierr); 66 ierr = TSRegister(TSMIMEX, TSCreate_Mimex);CHKERRQ(ierr); 67 ierr = TSRegister(TSBDF, TSCreate_BDF);CHKERRQ(ierr); 68 ierr = TSRegister(TSBASICSYMPLECTIC,TSCreate_BasicSymplectic);CHKERRQ(ierr); 69 ierr = TSRegister(TSMPRK, TSCreate_MPRK);CHKERRQ(ierr); 70 ierr = TSRegister(TSDISCGRAD, TSCreate_DiscGrad);CHKERRQ(ierr); 71 ierr = TSRegister(TSIRK, TSCreate_IRK);CHKERRQ(ierr); 72 PetscFunctionReturn(0); 73 } 74