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 TS_EULER 'euler' 19: #define TS_BEULER 'beuler' 20: #define TS_PSEUDO 'pseudo' 21: #define TS_SUNDIALS 'sundials' 22: #define TS_CRANK_NICHOLSON 'crank-nicholson' 23: #define TS_RUNGE_KUTTA 'runge-kutta' 24: #define TS_PYTHON 'python' 25: #endif