1 /*$Id: tsregall.c,v 1.32 2001/03/23 23:24:34 balay Exp $*/ 2 3 #include "src/ts/tsimpl.h" /*I "petscts.h" I*/ 4 EXTERN_C_BEGIN 5 EXTERN int TSCreate_Euler(TS); 6 EXTERN int TSCreate_BEuler(TS); 7 EXTERN int TSCreate_Pseudo(TS); 8 EXTERN int TSCreate_PVode(TS); 9 EXTERN int TSCreate_CN(TS); 10 EXTERN int TSCreate_Rk(TS); 11 12 EXTERN int GTSSerialize_BEuler(MPI_Comm, TS *, PetscViewer, PetscTruth); 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 int TSRegisterAll(const char path[]) 31 { 32 int 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 #if defined(PETSC_HAVE_PVODE) && !defined(PETSC_USE_COMPLEX) && !defined(PETSC_USE_SINGLE) 42 ierr = TSRegisterDynamic(TS_PVODE, path, "TSCreate_PVode", TSCreate_PVode); CHKERRQ(ierr); 43 #endif 44 ierr = TSRegisterDynamic(TS_RUNGE_KUTTA, path, "TSCreate_Rk", TSCreate_Rk); CHKERRQ(ierr); 45 PetscFunctionReturn(0); 46 } 47 48 #undef __FUNCT__ 49 #define __FUNCT__ "TSSerializeRegisterAll" 50 /*@C 51 TSSerializeRegisterAll - Registers all of the serialization routines in the TS package. 52 53 Not Collective 54 55 Input parameter: 56 . path - The dynamic library path 57 58 Level: advanced 59 60 .keywords: ts, register, all, serialize 61 .seealso: TSSerialize(), TSSerializeRegister(), TSSerializeRegisterDestroy() 62 @*/ 63 int TSSerializeRegisterAll(const char path[]) 64 { 65 PetscFunctionBegin; 66 TSSerializeRegisterAllCalled = PETSC_TRUE; 67 PetscFunctionReturn(0); 68 } 69