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,TS_NONLINEAR
27: parameter (TS_LINEAR = 0,TS_NONLINEAR = 1)
28: !
29: ! TSSundialsType
30: !
31: PetscEnum SUNDIALS_ADAMS,SUNDIALS_BDF
32: parameter (SUNDIALS_ADAMS=0,SUNDIALS_BDF=1)
33: !
34: ! TSSundialsGramSchmidtType
35: !
36: PetscEnum SUNDIALS_MODIFIED_GS,SUNDIALS_CLASSICAL_GS
37: parameter (SUNDIALS_MODIFIED_GS=0,SUNDIALS_CLASSICAL_GS=1)
38: #define SUNDIALS_UNMODIFIED_GS SUNDIALS_CLASSICAL_GS
39: !
40: ! Some PETSc fortran functions that the user might pass as arguments
41: !
42: external TSDEFAULTCOMPUTEJACOBIAN
43: external TSDEFAULTCOMPUTEJACOBIANCOLOR
45: !PETSC_DEC_ATTRIBUTES(TSDEFAULTCOMPUTEJACOBIAN,'_TSDEFAULTCOMPUTEJACOBIAN')
46: !PETSC_DEC_ATTRIBUTES(TSDEFAULTCOMPUTEJACOBIANCOLOR,'_TSDEFAULTCOMPUTEJACOBIANCOLOR')
47: !
48: ! End of Fortran include file for the TS package in PETSc
50: #endif