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