1*19bcc07fSBarry Smith /* $Id: ts.h,v 1.3 1996/03/08 05:49:06 bsmith Exp bsmith $ */ 2818ad0c1SBarry Smith /* 36d84be18SBarry Smith User interface for the time-stepping package. This is package 46d84be18SBarry Smith is for use in solving time dependent PDES. 5818ad0c1SBarry Smith */ 66d84be18SBarry Smith #if !defined(__TS_PACKAGE) 76d84be18SBarry Smith #define __TS_PACKAGE 86d84be18SBarry Smith #include "snes.h" 9818ad0c1SBarry Smith 106d84be18SBarry Smith typedef struct _TS* TS; 116d84be18SBarry Smith #define TS_COOKIE PETSC_COOKIE+18 12818ad0c1SBarry Smith 136d84be18SBarry Smith typedef enum { TS_EULER, TS_BEULER, TS_PSEUDO} TSType; 14*19bcc07fSBarry Smith typedef enum { TS_LINEAR, TS_NONLINEAR} TSProblemType; 15818ad0c1SBarry Smith 166d84be18SBarry Smith extern int TSCreate(MPI_Comm,TSProblemType,TS*); 176d84be18SBarry Smith extern int TSSetType(TS,TSType); 186d84be18SBarry Smith extern int TSDestroy(TS); 19818ad0c1SBarry Smith 206d84be18SBarry Smith extern int TSSetMonitor(TS,int(*)(TS,int,Scalar,Vec,void*),void *); 216d84be18SBarry Smith extern int TSGetType(TS,TSType*,char**); 22818ad0c1SBarry Smith 236d84be18SBarry Smith extern int TSSetFromOptions(TS); 246d84be18SBarry Smith extern int TSSetUp(TS); 25818ad0c1SBarry Smith 266d84be18SBarry Smith extern int TSSetSolution(TS,Vec); 276d84be18SBarry Smith extern int TSGetSolution(TS,Vec*); 28818ad0c1SBarry Smith 296d84be18SBarry Smith extern int TSSetDuration(TS,int,Scalar); 306d84be18SBarry Smith extern int TSPrintHelp(TS); 31818ad0c1SBarry Smith 326d84be18SBarry Smith extern int TSDefaultMonitor(TS,int,Scalar,Vec,void*); 336d84be18SBarry Smith extern int TSStep(TS,int *,Scalar*); 34818ad0c1SBarry Smith 356d84be18SBarry Smith extern int TSSetInitialTimeStep(TS,Scalar,Scalar); 366d84be18SBarry Smith extern int TSGetTimeStep(TS,Scalar *); 376d84be18SBarry Smith extern int TSSetTimeStep(TS,Scalar); 38818ad0c1SBarry Smith 396d84be18SBarry Smith extern int TSSetRHSFunction(TS,int (*)(TS,Scalar,Vec,Vec,void*),void*); 406d84be18SBarry Smith extern int TSSetRHSMatrix(TS,Mat,Mat,int (*)(TS,Scalar,Mat*,Mat*,MatStructure*,void*),void*); 416d84be18SBarry Smith extern int TSSetRHSJacobian(TS,Mat,Mat,int(*)(TS,Scalar,Vec,Mat*,Mat*,MatStructure*,void*),void*); 42818ad0c1SBarry Smith 436d84be18SBarry Smith extern int TSComputeRHSFunction(TS,Scalar,Vec,Vec); 44818ad0c1SBarry Smith 456d84be18SBarry Smith extern int TSRegisterAll(); 466d84be18SBarry Smith extern int TSRegister(int,char*,int (*)(TS)); 47818ad0c1SBarry Smith 486d84be18SBarry Smith extern int TSGetSNES(TS,SNES*); 496d84be18SBarry Smith extern int TSGetSLES(TS,SLES*); 50818ad0c1SBarry Smith 51818ad0c1SBarry Smith #endif 52818ad0c1SBarry Smith 53