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