Actual source code: petscts.h
petsc-3.4.2 2013-07-02

      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: !  Equation type flags
     23: !
     24:       PetscEnum TS_EQ_UNSPECIFIED
     25:       PetscEnum TS_EQ_EXPLICIT
     26:       PetscEnum TS_EQ_ODE_EXPLICIT
     27:       PetscEnum TS_EQ_DAE_SEMI_EXPLICIT_INDEX1
     28:       PetscEnum TS_EQ_DAE_SEMI_EXPLICIT_INDEX2
     29:       PetscEnum TS_EQ_DAE_SEMI_EXPLICIT_INDEX3
     30:       PetscEnum TS_EQ_DAE_SEMI_EXPLICIT_INDEXHI
     31:       PetscEnum TS_EQ_IMPLICIT
     32:       PetscEnum TS_EQ_ODE_IMPLICIT
     33:       PetscEnum TS_EQ_DAE_IMPLICIT_INDEX1
     34:       PetscEnum TS_EQ_DAE_IMPLICIT_INDEX2
     35:       PetscEnum TS_EQ_DAE_IMPLICIT_INDEX3
     36:       PetscEnum TS_EQ_DAE_IMPLICIT_INDEXHI

     38:       parameter (TS_EQ_UNSPECIFIED               = -1)
     39:       parameter (TS_EQ_EXPLICIT                  = 0)
     40:       parameter (TS_EQ_ODE_EXPLICIT              = 1)
     41:       parameter (TS_EQ_DAE_SEMI_EXPLICIT_INDEX1  = 100)
     42:       parameter (TS_EQ_DAE_SEMI_EXPLICIT_INDEX2  = 200)
     43:       parameter (TS_EQ_DAE_SEMI_EXPLICIT_INDEX3  = 300)
     44:       parameter (TS_EQ_DAE_SEMI_EXPLICIT_INDEXHI = 500)
     45:       parameter (TS_EQ_IMPLICIT                  = 1000)
     46:       parameter (TS_EQ_ODE_IMPLICIT              = 1001)
     47:       parameter (TS_EQ_DAE_IMPLICIT_INDEX1       = 1100)
     48:       parameter (TS_EQ_DAE_IMPLICIT_INDEX2       = 1200)
     49:       parameter (TS_EQ_DAE_IMPLICIT_INDEX3       = 1300)
     50:       parameter (TS_EQ_DAE_IMPLICIT_INDEXHI      = 1500)

     52: !
     53: !  TSExactFinalTime
     54: !
     55:       PetscEnum TS_EXACTFINALTIME_STEPOVER
     56:       PetscEnum TS_EXACTFINALTIME_INTERPOLATE
     57:       PetscEnum TS_EXACTFINALTIME_MATCHSTEP

     59:       parameter (TS_EXACTFINALTIME_STEPOVER    = 0)
     60:       parameter (TS_EXACTFINALTIME_INTERPOLATE = 1)
     61:       parameter (TS_EXACTFINALTIME_MATCHSTEP   = 2)

     63: !
     64: !  TSProblemType
     65: !
     66:       PetscEnum TS_LINEAR
     67:       PetscEnum TS_NONLINEAR
     68:       parameter (TS_LINEAR = 0,TS_NONLINEAR = 1)
     69: !
     70: !  TSSundialsType
     71: !
     72:       PetscEnum SUNDIALS_ADAMS
     73:       PetscEnum SUNDIALS_BDF
     74:       parameter (SUNDIALS_ADAMS=1,SUNDIALS_BDF=2)
     75: !
     76: !  TSSundialsGramSchmidtType
     77: !
     78:       PetscEnum SUNDIALS_MODIFIED_GS
     79:       PetscEnum SUNDIALS_CLASSICAL_GS
     80:       parameter (SUNDIALS_MODIFIED_GS=1,SUNDIALS_CLASSICAL_GS=2)
     81: #define SUNDIALS_UNMODIFIED_GS SUNDIALS_CLASSICAL_GS
     82: !
     83: !  Some PETSc fortran functions that the user might pass as arguments
     84: !
     85:       external TSCOMPUTERHSFUNCTIONLINEAR
     86:       external TSCOMPUTERHSJACOBIANCONSTANT
     87:       external TSCOMPUTEIFUNCTIONLINEAR
     88:       external TSCOMPUTEIJACOBIANCONSTANT

     90: !  End of Fortran include file for the TS package in PETSc