Actual source code: petscts.h

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

      7: #define TS PetscFortranAddr
      8: #define TSType character*(80)
      9: #define TSPVodeType PetscEnum
     10: #define TSProblemType PetscEnum
     11: #define TSPVodeGramSchmitdType PetscEnum

     13: #define TS_EULER 'euler'
     14: #define TS_BEULER 'beuler'
     15: #define TS_PSEUDO 'pseudo'
     16: #define TS_PVODE 'pvode'
     17: #define TS_CRANK_NICHOLSON 'crank-nicholson'
     18: #define TS_RUNGE_KUTTA 'runge-kutta'

     20: #endif

     22: #if !defined (PETSC_AVOID_DECLARATIONS)
     23: !
     24: !  TSProblemType
     25: !
     26:       PetscEnum TS_LINEAR,TS_NONLINEAR
     27:       parameter (TS_LINEAR = 0,TS_NONLINEAR = 1)
     28: !
     29: !  TSPvodeType
     30: !
     31:       PetscEnum PVODE_ADAMS,PVODE_BDF
     32:       parameter (PVODE_ADAMS=0,PVODE_BDF=1)
     33: !
     34: !  TSPvodeGramSchmidtType
     35: !
     36:       PetscEnum PVODE_MODIFIED_GS,PVODE_CLASSICAL_GS,PVODE_UNMODIFIED_GS

     38:       parameter (PVODE_MODIFIED_GS=0,PVODE_CLASSICAL_GS=1)
     39:       parameter (PVODE_UNMODIFIED_GS=1)
     40: !
     41: !  Some PETSc fortran functions that the user might pass as arguments
     42: !
     43:       external TSDEFAULTCOMPUTEJACOBIAN
     44:       external TSDEFAULTCOMPUTEJACOBIANCOLOR

     46: !PETSC_DEC_ATTRIBUTES(TSDEFAULTCOMPUTEJACOBIAN,'_TSDEFAULTCOMPUTEJACOBIAN')
     47: !PETSC_DEC_ATTRIBUTES(TSDEFAULTCOMPUTEJACOBIANCOLOR,'_TSDEFAULTCOMPUTEJACOBIANCOLOR')
     48: !
     49: !  End of Fortran include file for the TS package in PETSc

     51: #endif