1: ! 2: ! Include file for Fortran use of the TS (timestepping) package in PETSc 3: ! 4: #include finclude/petsctsdef.h 6: ! 7: ! Convergence flags 8: ! 9: PetscEnum TS_CONVERGED_ITERATING 10: PetscEnum TS_CONVERGED_TIME 11: PetscEnum TS_CONVERGED_ITS 12: PetscEnum TS_DIVERGED_NONLINEAR_SOLVE 13: PetscEnum TS_DIVERGED_STEP_REJECTED 15: parameter (TS_CONVERGED_ITERATING = 0) 16: parameter (TS_CONVERGED_TIME = 1) 17: parameter (TS_CONVERGED_ITS = 2) 18: parameter (TS_DIVERGED_NONLINEAR_SOLVE = -1) 19: parameter (TS_DIVERGED_STEP_REJECTED = -2) 21: ! 22: ! TSProblemType 23: ! 24: PetscEnum TS_LINEAR 25: PetscEnum TS_NONLINEAR 26: parameter (TS_LINEAR = 0,TS_NONLINEAR = 1) 27: ! 28: ! TSSundialsType 29: ! 30: PetscEnum SUNDIALS_ADAMS 31: PetscEnum SUNDIALS_BDF 32: parameter (SUNDIALS_ADAMS=1,SUNDIALS_BDF=2) 33: ! 34: ! TSSundialsGramSchmidtType 35: ! 36: PetscEnum SUNDIALS_MODIFIED_GS 37: PetscEnum SUNDIALS_CLASSICAL_GS 38: parameter (SUNDIALS_MODIFIED_GS=1,SUNDIALS_CLASSICAL_GS=2) 39: #define SUNDIALS_UNMODIFIED_GS SUNDIALS_CLASSICAL_GS 40: ! 41: ! Some PETSc fortran functions that the user might pass as arguments 42: ! 43: external TSCOMPUTERHSFUNCTIONLINEAR 44: external TSCOMPUTERHSJACOBIANCONSTANT 45: external TSCOMPUTEIFUNCTIONLINEAR 46: external TSCOMPUTEIJACOBIANCONSTANT 48: ! End of Fortran include file for the TS package in PETSc