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: #define TSAdapt PetscFortranAddr
 12: #endif
 13: #define TSType character*(80)
 14: #define TSAdaptType character*(80)
 15: #define TSConvergedReason PetscEnum
 16: #define TSSundialsType PetscEnum
 17: #define TSProblemType PetscEnum 
 18: #define TSSundialsGramSchmidtType PetscEnum
 19: #define TSSundialsLmmType PetscEnum

 21: #define TSEULER           'euler'
 22: #define TSBEULER          'beuler'
 23: #define TSPSEUDO          'pseudo'
 24: #define TSCN              'cn'
 25: #define TSSUNDIALS        'sundials'
 26: #define TSRK              'rk'
 27: #define TSPYTHON          'python'
 28: #define TSTHETA           'theta'
 29: #define TSALPHA           'alpha'
 30: #define TSGL              'gl'
 31: #define TSSSP             'ssp'
 32: #define TSARKIMEX         'arkimex'
 33: #define TSROSW            'rosw'

 35: #define TSSSPType character*(80)
 36: #define TSSSPRKS2  'rks2'
 37: #define TSSSPRKS3  'rks3'
 38: #define TSSSPRK104 'rk104'

 40: #define TSGLAdaptType character*(80)
 41: #define TSGLADAPT_NONE 'none'
 42: #define TSGLADAPT_SIZE 'size'
 43: #define TSGLADAPT_BOTH 'both'

 45: #define TSAdaptType character*(80)
 46: #define TSADAPTBASIC 'basic'
 47: #define TSADAPTNONE  'none'
 48: #define TSADAPTCFL   'cfl'

 50: #define TSARKIMEXType character*(80)
 51: #define TSARKIMEX2D     '2d'
 52: #define TSARKIMEX2E     '2e'
 53: #define TSARKIMEXPRSSP2 'prssp2'
 54: #define TSARKIMEX3      '3'
 55: #define TSARKIMEXBPR3   'bpr3'
 56: #define TSARKIMEXARS443 'ars443'
 57: #define TSARKIMEX4      '4'
 58: #define TSARKIMEX5      '5'

 60: #define TSROSWType character*(80)
 61: #define TSROSW2M          '2m'
 62: #define TSROSW2P          '2p'
 63: #define TSROSWRA3PW       'ra3pw'
 64: #define TSROSWRA34PW2     'ra34pw2'
 65: #define TSROSWRODAS3      'rodas3'
 66: #define TSROSWSANDU3      'sandu3'
 67: #define TSROSWASSP3P3S1C  'assp3p3s1c'
 68: #define TSROSWLASSP3P4S2C 'lassp3p4s2c'
 69: #define TSROSWLLSSP3P3S2C 'llssp3p3s2c'
 70: #define TSROSWARK3        'ark3'
 71: #define TSROSWTHETA1      'theta1'
 72: #define TSROSWTHETA2      'theta2'

 74: #endif