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