1 /* $Id: ts.h,v 1.1 1996/01/01 19:40:02 bsmith Exp bsmith $ */ 2 /* 3 User interface for the time-stepping package. This is package 4 is for use in solving time dependent PDES. 5 */ 6 #if !defined(__TS_PACKAGE) 7 #define __TS_PACKAGE 8 #include "snes.h" 9 10 typedef struct _TS* TS; 11 #define TS_COOKIE PETSC_COOKIE+18 12 13 typedef enum { TS_EULER, TS_BEULER, TS_PSEUDO} TSType; 14 typedef enum { TS_LINEAR_CONSTANT_MATRIX, TS_LINEAR_VARIABLE_MATRIX, 15 TS_LINEAR_NO_MATRIX, TS_NONLINEAR_JACOBIAN, 16 TS_NONLINEAR_NO_JACOBIAN} TSProblemType; 17 18 extern int TSCreate(MPI_Comm,TSProblemType,TS*); 19 extern int TSSetType(TS,TSType); 20 extern int TSDestroy(TS); 21 22 extern int TSSetMonitor(TS,int(*)(TS,int,Scalar,Vec,void*),void *); 23 extern int TSGetType(TS,TSType*,char**); 24 25 extern int TSSetFromOptions(TS); 26 extern int TSSetUp(TS); 27 28 extern int TSSetSolution(TS,Vec); 29 extern int TSGetSolution(TS,Vec*); 30 31 extern int TSSetDuration(TS,int,Scalar); 32 extern int TSPrintHelp(TS); 33 34 extern int TSDefaultMonitor(TS,int,Scalar,Vec,void*); 35 extern int TSStep(TS,int *,Scalar*); 36 37 extern int TSSetInitialTimeStep(TS,Scalar,Scalar); 38 extern int TSGetTimeStep(TS,Scalar *); 39 extern int TSSetTimeStep(TS,Scalar); 40 41 extern int TSSetRHSFunction(TS,int (*)(TS,Scalar,Vec,Vec,void*),void*); 42 extern int TSSetRHSMatrix(TS,Mat,Mat,int (*)(TS,Scalar,Mat*,Mat*,MatStructure*,void*),void*); 43 extern int TSSetRHSJacobian(TS,Mat,Mat,int(*)(TS,Scalar,Vec,Mat*,Mat*,MatStructure*,void*),void*); 44 45 extern int TSComputeRHSFunction(TS,Scalar,Vec,Vec); 46 47 extern int TSRegisterAll(); 48 extern int TSRegister(int,char*,int (*)(TS)); 49 50 extern int TSGetSNES(TS,SNES*); 51 extern int TSGetSLES(TS,SLES*); 52 53 #endif 54 55