1a5eb4965SSatish Balay #ifdef PETSC_RCS_HEADER 2*d5d37b61SLois Curfman McInnes static char vcid[] = "$Id: tsregall.c,v 1.21 1998/10/19 22:19:12 bsmith Exp curfman $"; 3eb293426SBarry Smith #endif 4eb293426SBarry Smith 5eb293426SBarry Smith #include "src/ts/tsimpl.h" /*I "ts.h" I*/ 6fb2e594dSBarry Smith EXTERN_C_BEGIN 7eb293426SBarry Smith extern int TSCreate_Euler(TS); 8eb293426SBarry Smith extern int TSCreate_BEuler(TS); 9eb293426SBarry Smith extern int TSCreate_Pseudo(TS); 103914022bSBarry Smith extern int TSCreate_PVode(TS); 115b12fa75SSatish Balay extern int TSCreate_CN(TS); 12fb2e594dSBarry Smith EXTERN_C_END 13eb293426SBarry Smith 145615d1e5SSatish Balay #undef __FUNC__ 15d4bb536fSBarry Smith #define __FUNC__ "TSRegisterAll" 16eb293426SBarry Smith /*@C 17*d5d37b61SLois Curfman McInnes TSRegisterAll - Registers all of the timesteppers in the TS package. 18eb293426SBarry Smith 19fee21e36SBarry Smith Not Collective 20fee21e36SBarry Smith 21*d5d37b61SLois Curfman McInnes Level: advanced 22*d5d37b61SLois Curfman McInnes 23fb4a63b6SLois Curfman McInnes .keywords: TS, timestepper, register, all 24eb293426SBarry Smith 2582bf6240SBarry Smith .seealso: TSRegisterDestroy() 26eb293426SBarry Smith @*/ 2782bf6240SBarry Smith int TSRegisterAll(char *path) 28eb293426SBarry Smith { 293a40ed3dSBarry Smith PetscFunctionBegin; 3084cb2905SBarry Smith TSRegisterAllCalled = 1; 3184cb2905SBarry Smith 3282bf6240SBarry Smith TSRegister(TS_EULER, path,"TSCreate_Euler", TSCreate_Euler); 3382bf6240SBarry Smith TSRegister(TS_BEULER, path,"TSCreate_BEuler",TSCreate_BEuler); 3467d5d79cSLois Curfman McInnes TSRegister(TS_CRANK_NICHOLSON, path,"TSCreate_CN",TSCreate_CN); 3582bf6240SBarry Smith TSRegister(TS_PSEUDO, path,"TSCreate_Pseudo",TSCreate_Pseudo); 36a5020ba8SBarry Smith #if defined(HAVE_PVODE) && !defined(__cplusplus) 3782bf6240SBarry Smith TSRegister(TS_PVODE, path,"TSCreate_PVode", TSCreate_PVode); 383914022bSBarry Smith #endif 393a40ed3dSBarry Smith PetscFunctionReturn(0); 40eb293426SBarry Smith } 41