1: ! 2: ! Include file for Fortran use of the TS (timestepping) package in PETSc 3: ! 4: #if !defined (__PETSCTSDEF_H) 7: #include finclude/petscsnesdef.h 9: #if !defined(PETSC_USE_FORTRAN_DATATYPES) 10: #define TS PetscFortranAddr 11: #endif 12: #define TSType character*(80) 13: #define TSSundialsType PetscEnum 14: #define TSProblemType PetscEnum 15: #define TSSundialsGramSchmidtType PetscEnum 16: #define TSSundialsLmmType PetscEnum 18: #define TSEULER 'euler' 19: #define TSBEULER 'beuler' 20: #define TSPSEUDO 'pseudo' 21: #define TSCRANK_NICHOLSON 'crank-nicholson' 22: #define TSSUNDIALS 'sundials' 23: #define TSRUNGE_KUTTA 'runge-kutta' 24: #define TSPYTHON 'python' 25: #define TSTHETA 'theta' 26: #define TSGL 'gl' 27: #endif