Actual source code: petscts.h
petsc-3.10.5 2019-03-28
Report Typos and Errors

      1: !
      2: !  Include file for Fortran use of the TS (timestepping) package in PETSc
      3: !
      4: #if !defined (__PETSCTSDEF_H)

      7: #include "petsc/finclude/petscsnes.h"

      9: #define TS type(tTS)
     10: #define TSAdapt type(tTSAdapt)
     11: #define TSTrajectory type(tTSTrajectory)

     13: #define TSType character*(80)
     14: #define TSAdaptType character*(80)
     15: #define TSTrajectoryType character*(80)
     16: #define TSEquationType PetscEnum
     17: #define TSConvergedReason PetscEnum
     18: #define TSExactFinalTimeOption PetscEnum
     19: #define TSSundialsType PetscEnum
     20: #define TSProblemType PetscEnum
     21: #define TSSundialsGramSchmidtType PetscEnum
     22: #define TSSundialsLmmType PetscEnum

     24: #define TSEULER           'euler'
     25: #define TSBEULER          'beuler'
     26: #define TSPSEUDO          'pseudo'
     27: #define TSCN              'cn'
     28: #define TSSUNDIALS        'sundials'
     29: #define TSRK              'rk'
     30: #define TSPYTHON          'python'
     31: #define TSTHETA           'theta'
     32: #define TSALPHA           'alpha'
     33: #define TSGLLE            'glle'
     34: #define TSSSP             'ssp'
     35: #define TSARKIMEX         'arkimex'
     36: #define TSROSW            'rosw'
     37: #define TSEIMEX           'eimex'
     38: #define TSRADAU5          'radau5'

     40: #define TSTRAJECTORYBASIC 'basic'

     42: #define TSSSPType character*(80)
     43: #define TSSSPRKS2  'rks2'
     44: #define TSSSPRKS3  'rks3'
     45: #define TSSSPRK104 'rk104'

     47: #define TSGLLEAdaptType character*(80)
     48: #define TSGLLEADAPT_NONE 'none'
     49: #define TSGLLEADAPT_SIZE 'size'
     50: #define TSGLLEADAPT_BOTH 'both'

     52: #define TSAdaptType character*(80)
     53: #define TSADAPTNONE  'none'
     54: #define TSADAPTBASIC 'basic'
     55: #define TSADAPTDSP   'dsp'
     56: #define TSADAPTCFL   'cfl'
     57: #define TSADAPTGLEE  'glee'

     59: #define TSRKType character*(80)
     60: #define TSRK1FE   '1fe'
     61: #define TSRK2A    '2a'
     62: #define TSRK3     '3'
     63: #define TSRK3BS   '3bs'
     64: #define TSRK4     '4'
     65: #define TSRK5F    '5f'
     66: #define TSRK5DP   '5dp'
     67: #define TSRK5BS   '5bs'

     69: #define TSARKIMEXType character*(80)
     70: #define TSARKIMEX1BEE   '1bee'
     71: #define TSARKIMEXA2     'a2'
     72: #define TSARKIMEXL2     'l2'
     73: #define TSARKIMEXARS122 'ars122'
     74: #define TSARKIMEX2C     '2c'
     75: #define TSARKIMEX2D     '2d'
     76: #define TSARKIMEX2E     '2e'
     77: #define TSARKIMEXPRSSP2 'prssp2'
     78: #define TSARKIMEX3      '3'
     79: #define TSARKIMEXBPR3   'bpr3'
     80: #define TSARKIMEXARS443 'ars443'
     81: #define TSARKIMEX4      '4'
     82: #define TSARKIMEX5      '5'

     84: #define TSROSWType character*(80)
     85: #define TSROSW2M          '2m'
     86: #define TSROSW2P          '2p'
     87: #define TSROSWRA3PW       'ra3pw'
     88: #define TSROSWRA34PW2     'ra34pw2'
     89: #define TSROSWRODAS3      'rodas3'
     90: #define TSROSWSANDU3      'sandu3'
     91: #define TSROSWASSP3P3S1C  'assp3p3s1c'
     92: #define TSROSWLASSP3P4S2C 'lassp3p4s2c'
     93: #define TSROSWLLSSP3P3S2C 'llssp3p3s2c'
     94: #define TSROSWARK3        'ark3'
     95: #define TSROSWTHETA1      'theta1'
     96: #define TSROSWTHETA2      'theta2'
     97: #define TSROSWGRK4T       'grk4t'
     98: #define TSROSWSHAMP4      'shamp4'
     99: #define TSROSWVELDD4      'veldd4'
    100: #define TSROSW4L          '4l'

    102: #define TSEIMEXType character*(80)
    103: #define TSEIMEXS2     's2'
    104: #define TSEIMEXS3     's3'
    105: #define TSEIMEXS4     's4'

    107: #endif