Actual source code: petscts.h
1: !
2: ! $Id: petscts.h,v 1.20 2000/09/25 18:03:45 balay Exp $;
3: !
4: ! Include file for Fortran use of the TS (timestepping) package in PETSc
5: !
6: #if !defined (__PETSCTS_H)
9: #define TS PetscFortranAddr
10: #define TSType character*(80)
11: #define TSPVodeType integer
12: #define TSProblemType integer
13: #define TSPVodeGramSchmitdType integer
15: #define TS_EULER 'euler'
16: #define TS_BEULER 'beuler'
17: #define TS_PSEUDO 'pseudo'
18: #define TS_PVODE 'pvode'
19: #define TS_CRANK_NICHOLSON 'crank-nicholson'
20: #define TS_RUNGE_KUTTA 'runge-kutta'
22: #endif
24: #if !defined (PETSC_AVOID_DECLARATIONS)
25: !
26: ! TSProblemType
27: !
28: integer TS_LINEAR,TS_NONLINEAR
29: parameter (TS_LINEAR = 0,TS_NONLINEAR = 1)
30: !
31: ! TSPvodeType
32: !
33: integer PVODE_ADAMS,PVODE_BDF
34: parameter (PVODE_ADAMS=0,PVODE_BDF=1)
35: !
36: ! TSPvodeGramSchmidtType
37: !
38: integer PVODE_MODIFIED_GS,PVODE_CLASSICAL_GS,PVODE_UNMODIFIED_GS
40: parameter (PVODE_MODIFIED_GS=0,PVODE_CLASSICAL_GS=1)
41: parameter (PVODE_UNMODIFIED_GS=1)
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