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 TSSundialsType PetscEnum
10: #define TSProblemType PetscEnum
11: #define TSSundialsGramSchmitdType PetscEnum
13: #define TS_EULER 'euler'
14: #define TS_BEULER 'beuler'
15: #define TS_PSEUDO 'pseudo'
16: #define TS_SUNDIALS 'sundials'
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
27: PetscEnum TS_NONLINEAR
28: parameter (TS_LINEAR = 0,TS_NONLINEAR = 1)
29: !
30: ! TSSundialsType
31: !
32: PetscEnum SUNDIALS_ADAMS
33: PetscEnum SUNDIALS_BDF
34: parameter (SUNDIALS_ADAMS=1,SUNDIALS_BDF=2)
35: !
36: ! TSSundialsGramSchmidtType
37: !
38: PetscEnum SUNDIALS_MODIFIED_GS
39: PetscEnum SUNDIALS_CLASSICAL_GS
40: parameter (SUNDIALS_MODIFIED_GS=1,SUNDIALS_CLASSICAL_GS=2)
41: #define SUNDIALS_UNMODIFIED_GS SUNDIALS_CLASSICAL_GS
42: !
43: ! Some PETSc fortran functions that the user might pass as arguments
44: !
45: external TSDEFAULTCOMPUTEJACOBIAN
46: external TSDEFAULTCOMPUTEJACOBIANCOLOR
48: !PETSC_DEC_ATTRIBUTES(TSDEFAULTCOMPUTEJACOBIAN,'_TSDEFAULTCOMPUTEJACOBIAN')
49: !PETSC_DEC_ATTRIBUTES(TSDEFAULTCOMPUTEJACOBIANCOLOR,'_TSDEFAULTCOMPUTEJACOBIANCOLOR')
50: !
51: ! End of Fortran include file for the TS package in PETSc
53: #endif