#include /*I "petscts.h" I*/ PETSC_EXTERN PetscErrorCode TSCreate_Euler(TS); PETSC_EXTERN PetscErrorCode TSCreate_BEuler(TS); PETSC_EXTERN PetscErrorCode TSCreate_Pseudo(TS); PETSC_EXTERN PetscErrorCode TSCreate_Sundials(TS); PETSC_EXTERN PetscErrorCode TSCreate_CN(TS); PETSC_EXTERN PetscErrorCode TSCreate_Theta(TS); PETSC_EXTERN PetscErrorCode TSCreate_Alpha(TS); PETSC_EXTERN PetscErrorCode TSCreate_Alpha2(TS); PETSC_EXTERN PetscErrorCode TSCreate_GLLE(TS); PETSC_EXTERN PetscErrorCode TSCreate_SSP(TS); PETSC_EXTERN PetscErrorCode TSCreate_RK(TS); PETSC_EXTERN PetscErrorCode TSCreate_ARKIMEX(TS); PETSC_EXTERN PetscErrorCode TSCreate_RosW(TS); PETSC_EXTERN PetscErrorCode TSCreate_EIMEX(TS); PETSC_EXTERN PetscErrorCode TSCreate_Mimex(TS); PETSC_EXTERN PetscErrorCode TSCreate_BDF(TS); PETSC_EXTERN PetscErrorCode TSCreate_GLEE(TS); /*@C TSRegisterAll - Registers all of the timesteppers in the TS package. Not Collective Input parameter: . path - The dynamic library path Level: advanced .keywords: TS, timestepper, register, all .seealso: TSCreate(), TSRegister(), TSRegisterDestroy() @*/ PetscErrorCode TSRegisterAll(void) { PetscErrorCode ierr; PetscFunctionBegin; if (TSRegisterAllCalled) PetscFunctionReturn(0); TSRegisterAllCalled = PETSC_TRUE; ierr = TSRegister(TSEULER, TSCreate_Euler);CHKERRQ(ierr); ierr = TSRegister(TSBEULER, TSCreate_BEuler);CHKERRQ(ierr); ierr = TSRegister(TSCN, TSCreate_CN);CHKERRQ(ierr); ierr = TSRegister(TSPSEUDO, TSCreate_Pseudo);CHKERRQ(ierr); ierr = TSRegister(TSGLLE, TSCreate_GLLE);CHKERRQ(ierr); ierr = TSRegister(TSSSP, TSCreate_SSP);CHKERRQ(ierr); ierr = TSRegister(TSTHETA, TSCreate_Theta);CHKERRQ(ierr); ierr = TSRegister(TSALPHA, TSCreate_Alpha);CHKERRQ(ierr); ierr = TSRegister(TSALPHA2, TSCreate_Alpha2);CHKERRQ(ierr); #if defined(PETSC_HAVE_SUNDIALS) ierr = TSRegister(TSSUNDIALS, TSCreate_Sundials);CHKERRQ(ierr); #endif ierr = TSRegister(TSRK, TSCreate_RK);CHKERRQ(ierr); ierr = TSRegister(TSGLEE, TSCreate_GLEE);CHKERRQ(ierr); ierr = TSRegister(TSARKIMEX, TSCreate_ARKIMEX);CHKERRQ(ierr); ierr = TSRegister(TSROSW, TSCreate_RosW);CHKERRQ(ierr); ierr = TSRegister(TSEIMEX, TSCreate_EIMEX);CHKERRQ(ierr); ierr = TSRegister(TSMIMEX, TSCreate_Mimex);CHKERRQ(ierr); ierr = TSRegister(TSBDF, TSCreate_BDF);CHKERRQ(ierr); PetscFunctionReturn(0); }