1a5eb4965SSatish Balay #ifdef PETSC_RCS_HEADER 2*5b12fa75SSatish Balay static char vcid[] = "$Id: tsregall.c,v 1.19 1998/07/27 03:52:06 curfman Exp balay $"; 3eb293426SBarry Smith #endif 4eb293426SBarry Smith 5eb293426SBarry Smith #include "src/ts/tsimpl.h" /*I "ts.h" I*/ 6eb293426SBarry Smith extern int TSCreate_Euler(TS); 7eb293426SBarry Smith extern int TSCreate_BEuler(TS); 8eb293426SBarry Smith extern int TSCreate_Pseudo(TS); 93914022bSBarry Smith extern int TSCreate_PVode(TS); 10*5b12fa75SSatish Balay extern int TSCreate_CN(TS); 11eb293426SBarry Smith 125615d1e5SSatish Balay #undef __FUNC__ 13d4bb536fSBarry Smith #define __FUNC__ "TSRegisterAll" 14eb293426SBarry Smith /*@C 15eb293426SBarry Smith TSRegisterAll - Registers all of the timesteppers in the TS 16eb293426SBarry Smith package. 17eb293426SBarry Smith 18fee21e36SBarry Smith Not Collective 19fee21e36SBarry Smith 20fb4a63b6SLois Curfman McInnes .keywords: TS, timestepper, register, all 21eb293426SBarry Smith 2282bf6240SBarry Smith .seealso: TSRegisterDestroy() 23eb293426SBarry Smith @*/ 2482bf6240SBarry Smith int TSRegisterAll(char *path) 25eb293426SBarry Smith { 263a40ed3dSBarry Smith PetscFunctionBegin; 2784cb2905SBarry Smith TSRegisterAllCalled = 1; 2884cb2905SBarry Smith 2982bf6240SBarry Smith TSRegister(TS_EULER, path,"TSCreate_Euler", TSCreate_Euler); 3082bf6240SBarry Smith TSRegister(TS_BEULER, path,"TSCreate_BEuler",TSCreate_BEuler); 3167d5d79cSLois Curfman McInnes TSRegister(TS_CRANK_NICHOLSON, path,"TSCreate_CN",TSCreate_CN); 3282bf6240SBarry Smith TSRegister(TS_PSEUDO, path,"TSCreate_Pseudo",TSCreate_Pseudo); 33a5020ba8SBarry Smith #if defined(HAVE_PVODE) && !defined(__cplusplus) 3482bf6240SBarry Smith TSRegister(TS_PVODE, path,"TSCreate_PVode", TSCreate_PVode); 353914022bSBarry Smith #endif 363a40ed3dSBarry Smith PetscFunctionReturn(0); 37eb293426SBarry Smith } 38