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: ! End of Fortran include file for the TS package in PETSc