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 TSConvergedReason PetscEnum 14: #define TSSundialsType PetscEnum 15: #define TSProblemType PetscEnum 16: #define TSSundialsGramSchmidtType PetscEnum 17: #define TSSundialsLmmType PetscEnum 19: #define TSEULER 'euler' 20: #define TSBEULER 'beuler' 21: #define TSPSEUDO 'pseudo' 22: #define TSCN 'cn' 23: #define TSSUNDIALS 'sundials' 24: #define TSRK 'rk' 25: #define TSPYTHON 'python' 26: #define TSTHETA 'theta' 27: #define TSALPHA 'alpha' 28: #define TSGL 'gl' 29: #define TSSSP 'ssp' 30: #define TSARKIMEX 'arkimex' 32: #define TSSSPType character*(80) 33: #define TSSSPRKS2 'rks2' 34: #define TSSSPRKS3 'rks3' 35: #define TSSSPRK104 'rk104' 37: #define TSGLAdaptType character*(80) 38: #define TSGLADAPT_NONE 'none' 39: #define TSGLADAPT_SIZE 'size' 40: #define TSGLADAPT_BOTH 'both' 42: #define TSARKIMEXType character*(80) 43: #define TSARKIMEX2D '2d' 44: #define TSARKIMEX2E '2e' 45: #define TSARKIMEX3 '3' 46: #define TSARKIMEX4 '4' 47: #define TSARKIMEX5 '5' 49: #endif