Actual source code: petscts.h

petsc-3.3-p3 2012-08-29
  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