Actual source code: petsctsdef.h

  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