Actual source code: petscts.h
1: !
2: ! Include file for Fortran use of the TS (timestepping) package in PETSc
3: !
4: #include finclude/petsctsdef.h
6: !
7: ! TSProblemType
8: !
9: PetscEnum TS_LINEAR
10: PetscEnum TS_NONLINEAR
11: parameter (TS_LINEAR = 0,TS_NONLINEAR = 1)
12: !
13: ! TSSundialsType
14: !
15: PetscEnum SUNDIALS_ADAMS
16: PetscEnum SUNDIALS_BDF
17: parameter (SUNDIALS_ADAMS=1,SUNDIALS_BDF=2)
18: !
19: ! TSSundialsGramSchmidtType
20: !
21: PetscEnum SUNDIALS_MODIFIED_GS
22: PetscEnum SUNDIALS_CLASSICAL_GS
23: parameter (SUNDIALS_MODIFIED_GS=1,SUNDIALS_CLASSICAL_GS=2)
24: #define SUNDIALS_UNMODIFIED_GS SUNDIALS_CLASSICAL_GS
25: !
26: ! Some PETSc fortran functions that the user might pass as arguments
27: !
28: external TSDEFAULTCOMPUTEJACOBIAN
29: external TSDEFAULTCOMPUTEJACOBIANCOLOR
31: !PETSC_DEC_ATTRIBUTES(TSDEFAULTCOMPUTEJACOBIAN,'_TSDEFAULTCOMPUTEJACOBIAN')
32: !PETSC_DEC_ATTRIBUTES(TSDEFAULTCOMPUTEJACOBIANCOLOR,'_TSDEFAULTCOMPUTEJACOBIANCOLOR')
33: !
34: ! End of Fortran include file for the TS package in PETSc