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