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 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