1 #define PETSCTS_DLL 2 3 #include "private/tsimpl.h" /*I "petscts.h" I*/ 4 EXTERN_C_BEGIN 5 EXTERN PetscErrorCode PETSCTS_DLLEXPORT TSCreate_Euler(TS); 6 EXTERN PetscErrorCode PETSCTS_DLLEXPORT TSCreate_BEuler(TS); 7 EXTERN PetscErrorCode PETSCTS_DLLEXPORT TSCreate_Pseudo(TS); 8 EXTERN PetscErrorCode PETSCTS_DLLEXPORT TSCreate_Sundials(TS); 9 EXTERN PetscErrorCode PETSCTS_DLLEXPORT TSCreate_CN(TS); 10 EXTERN PetscErrorCode PETSCTS_DLLEXPORT TSCreate_Theta(TS); 11 EXTERN PetscErrorCode PETSCTS_DLLEXPORT TSCreate_GL(TS); 12 EXTERN PetscErrorCode PETSCTS_DLLEXPORT TSCreate_Rk(TS); 13 EXTERN_C_END 14 15 #undef __FUNCT__ 16 #define __FUNCT__ "TSRegisterAll" 17 /*@C 18 TSRegisterAll - Registers all of the timesteppers in the TS package. 19 20 Not Collective 21 22 Input parameter: 23 . path - The dynamic library path 24 25 Level: advanced 26 27 .keywords: TS, timestepper, register, all 28 .seealso: TSCreate(), TSRegister(), TSRegisterDestroy(), TSRegisterDynamic() 29 @*/ 30 PetscErrorCode PETSCTS_DLLEXPORT TSRegisterAll(const char path[]) 31 { 32 PetscErrorCode ierr; 33 34 PetscFunctionBegin; 35 TSRegisterAllCalled = PETSC_TRUE; 36 37 ierr = TSRegisterDynamic(TS_EULER, path, "TSCreate_Euler", TSCreate_Euler);CHKERRQ(ierr); 38 ierr = TSRegisterDynamic(TS_BEULER, path, "TSCreate_BEuler",TSCreate_BEuler);CHKERRQ(ierr); 39 ierr = TSRegisterDynamic(TS_CRANK_NICHOLSON, path, "TSCreate_CN", TSCreate_CN);CHKERRQ(ierr); 40 ierr = TSRegisterDynamic(TS_PSEUDO, path, "TSCreate_Pseudo",TSCreate_Pseudo);CHKERRQ(ierr); 41 ierr = TSRegisterDynamic(TS_GENERAL_LINEAR, path, "TSCreate_GL", TSCreate_GL);CHKERRQ(ierr); 42 ierr = TSRegisterDynamic(TS_THETA, path, "TSCreate_Theta", TSCreate_Theta);CHKERRQ(ierr); 43 #if defined(PETSC_HAVE_SUNDIALS) 44 ierr = TSRegisterDynamic(TS_SUNDIALS, path, "TSCreate_Sundials", TSCreate_Sundials);CHKERRQ(ierr); 45 #endif 46 ierr = TSRegisterDynamic(TS_RUNGE_KUTTA, path, "TSCreate_Rk", TSCreate_Rk);CHKERRQ(ierr); 47 PetscFunctionReturn(0); 48 } 49 50