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_CN(TS); 8 PETSC_EXTERN PetscErrorCode TSCreate_Theta(TS); 9 PETSC_EXTERN PetscErrorCode TSCreate_Alpha(TS); 10 PETSC_EXTERN PetscErrorCode TSCreate_GL(TS); 11 PETSC_EXTERN PetscErrorCode TSCreate_SSP(TS); 12 PETSC_EXTERN PetscErrorCode TSCreate_RK(TS); 13 PETSC_EXTERN PetscErrorCode TSCreate_ARKIMEX(TS); 14 PETSC_EXTERN PetscErrorCode TSCreate_RosW(TS); 15 PETSC_EXTERN PetscErrorCode TSCreate_EIMEX(TS); 16 PETSC_EXTERN PetscErrorCode TSCreate_Mimex(TS); 17 18 #undef __FUNCT__ 19 #define __FUNCT__ "TSRegisterAll" 20 /*@C 21 TSRegisterAll - Registers all of the timesteppers in the TS package. 22 23 Not Collective 24 25 Input parameter: 26 . path - The dynamic library path 27 28 Level: advanced 29 30 .keywords: TS, timestepper, register, all 31 .seealso: TSCreate(), TSRegister(), TSRegisterDestroy() 32 @*/ 33 PetscErrorCode TSRegisterAll(void) 34 { 35 PetscErrorCode ierr; 36 37 PetscFunctionBegin; 38 if (TSRegisterAllCalled) PetscFunctionReturn(0); 39 TSRegisterAllCalled = PETSC_TRUE; 40 41 ierr = TSRegister(TSEULER, TSCreate_Euler);CHKERRQ(ierr); 42 ierr = TSRegister(TSBEULER, TSCreate_BEuler);CHKERRQ(ierr); 43 ierr = TSRegister(TSCN, TSCreate_CN);CHKERRQ(ierr); 44 ierr = TSRegister(TSPSEUDO, TSCreate_Pseudo);CHKERRQ(ierr); 45 ierr = TSRegister(TSGL, TSCreate_GL);CHKERRQ(ierr); 46 ierr = TSRegister(TSSSP, TSCreate_SSP);CHKERRQ(ierr); 47 ierr = TSRegister(TSTHETA, TSCreate_Theta);CHKERRQ(ierr); 48 ierr = TSRegister(TSALPHA, TSCreate_Alpha);CHKERRQ(ierr); 49 #if defined(PETSC_HAVE_SUNDIALS) 50 ierr = TSRegister(TSSUNDIALS, TSCreate_Sundials);CHKERRQ(ierr); 51 #endif 52 ierr = TSRegister(TSRK, TSCreate_RK);CHKERRQ(ierr); 53 ierr = TSRegister(TSARKIMEX, TSCreate_ARKIMEX);CHKERRQ(ierr); 54 ierr = TSRegister(TSROSW, TSCreate_RosW);CHKERRQ(ierr); 55 ierr = TSRegister(TSEIMEX, TSCreate_EIMEX);CHKERRQ(ierr); 56 ierr = TSRegister(TSMIMEX, TSCreate_Mimex);CHKERRQ(ierr); 57 PetscFunctionReturn(0); 58 } 59 60