1*a5eb4965SSatish Balay #ifdef PETSC_RCS_HEADER 2*a5eb4965SSatish Balay static char vcid[] = "$Id: tsregall.c,v 1.7 1997/02/22 02:27:41 bsmith 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); 9eb293426SBarry Smith 105615d1e5SSatish Balay #undef __FUNC__ 115eea60f9SBarry Smith #define __FUNC__ "TSRegisterAll" /* ADIC Ignore */ 12eb293426SBarry Smith /*@C 13eb293426SBarry Smith TSRegisterAll - Registers all of the timesteppers in the TS 14eb293426SBarry Smith package. 15eb293426SBarry Smith 16eb293426SBarry Smith Adding new methods: 172d872ea7SLois Curfman McInnes To add a new method to the registry copy this routine and modify 182d872ea7SLois Curfman McInnes it to incorporate a call to TSRegister() for the new method. 19eb293426SBarry Smith 20eb293426SBarry Smith Restricting the choices: 21eb293426SBarry Smith To prevent all of the methods from being registered and thus 22eb293426SBarry Smith save memory, copy this routine and modify it to register only 23eb293426SBarry Smith those methods you desire. Make sure that the replacement routine 2484cb2905SBarry Smith is linked before libpetscts.a. 25eb293426SBarry Smith 26fb4a63b6SLois Curfman McInnes .keywords: TS, timestepper, register, all 27eb293426SBarry Smith 28eb293426SBarry Smith .seealso: TSRegister(), TSRegisterDestroy() 29eb293426SBarry Smith @*/ 30eb293426SBarry Smith int TSRegisterAll() 31eb293426SBarry Smith { 3284cb2905SBarry Smith TSRegisterAllCalled = 1; 3384cb2905SBarry Smith 3484cb2905SBarry Smith TSRegister(TS_EULER, 0,"euler", TSCreate_Euler); 3584cb2905SBarry Smith TSRegister(TS_BEULER, 0,"beuler", TSCreate_BEuler); 3684cb2905SBarry Smith TSRegister(TS_PSEUDO, 0,"pseudo", TSCreate_Pseudo); 37eb293426SBarry Smith return 0; 38eb293426SBarry Smith } 39