1eb293426SBarry Smith 2eb293426SBarry Smith #ifndef lint 3*84cb2905SBarry Smith static char vcid[] = "$Id: tsregall.c,v 1.4 1997/01/06 20:28:06 balay Exp bsmith $"; 4eb293426SBarry Smith #endif 5eb293426SBarry Smith 6eb293426SBarry Smith #include "src/ts/tsimpl.h" /*I "ts.h" I*/ 7eb293426SBarry Smith extern int TSCreate_Euler(TS); 8eb293426SBarry Smith extern int TSCreate_BEuler(TS); 9eb293426SBarry Smith extern int TSCreate_Pseudo(TS); 10eb293426SBarry Smith 115615d1e5SSatish Balay #undef __FUNC__ 125615d1e5SSatish Balay #define __FUNC__ "TSRegisterAll" 13eb293426SBarry Smith /*@C 14eb293426SBarry Smith TSRegisterAll - Registers all of the timesteppers in the TS 15eb293426SBarry Smith package. 16eb293426SBarry Smith 17eb293426SBarry Smith Adding new methods: 18eb293426SBarry Smith To add a new method to the registry 19*84cb2905SBarry Smith $ Copy this routine and modify it to incorporate 20eb293426SBarry Smith $ a call to TSRegister() for the new method. 21eb293426SBarry Smith 22eb293426SBarry Smith Restricting the choices: 23eb293426SBarry Smith To prevent all of the methods from being registered and thus 24eb293426SBarry Smith save memory, copy this routine and modify it to register only 25eb293426SBarry Smith those methods you desire. Make sure that the replacement routine 26*84cb2905SBarry Smith is linked before libpetscts.a. 27eb293426SBarry Smith 28fb4a63b6SLois Curfman McInnes .keywords: TS, timestepper, register, all 29eb293426SBarry Smith 30eb293426SBarry Smith .seealso: TSRegister(), TSRegisterDestroy() 31eb293426SBarry Smith @*/ 32eb293426SBarry Smith int TSRegisterAll() 33eb293426SBarry Smith { 34*84cb2905SBarry Smith TSRegisterAllCalled = 1; 35*84cb2905SBarry Smith 36*84cb2905SBarry Smith TSRegister(TS_EULER, 0,"euler", TSCreate_Euler); 37*84cb2905SBarry Smith TSRegister(TS_BEULER, 0,"beuler", TSCreate_BEuler); 38*84cb2905SBarry Smith TSRegister(TS_PSEUDO, 0,"pseudo", TSCreate_Pseudo); 39eb293426SBarry Smith return 0; 40eb293426SBarry Smith } 41