1: !
  2: !  Include file for Fortran use of the TS (timestepping) package in PETSc
  3: !
  4: #include "petsc/finclude/petscts.h"

  6:       type tTS
  7:         PetscFortranAddr:: v
  8:       end type tTS
  9:       type tTSAdapt
 10:         PetscFortranAddr:: v
 11:       end type tTSAdapt
 12:       type tTSTrajectory
 13:         PetscFortranAddr:: v
 14:       end type tTSTrajectory

 16:       TS, parameter :: PETSC_NULL_TS = tTS(-1)
 17:       TSAdapt, parameter :: PETSC_NULL_TSADAPT = tTSAdapt(-1)
 18:       TSTrajectory, parameter :: PETSC_NULL_TSTrajectory                  &
 19:      &                           = tTSTrajectory(-1)

 21: !
 22: !  Convergence flags
 23: !
 24:       PetscEnum TS_CONVERGED_ITERATING
 25:       PetscEnum TS_CONVERGED_TIME
 26:       PetscEnum TS_CONVERGED_ITS
 27:       PetscEnum TS_DIVERGED_NONLINEAR_SOLVE
 28:       PetscEnum TS_DIVERGED_STEP_REJECTED

 30:       parameter (TS_CONVERGED_ITERATING      = 0)
 31:       parameter (TS_CONVERGED_TIME           = 1)
 32:       parameter (TS_CONVERGED_ITS            = 2)
 33:       parameter (TS_DIVERGED_NONLINEAR_SOLVE = -1)
 34:       parameter (TS_DIVERGED_STEP_REJECTED   = -2)

 36: !
 37: !  Equation type flags
 38: !
 39:       PetscEnum TS_EQ_UNSPECIFIED
 40:       PetscEnum TS_EQ_EXPLICIT
 41:       PetscEnum TS_EQ_ODE_EXPLICIT
 42:       PetscEnum TS_EQ_DAE_SEMI_EXPLICIT_INDEX1
 43:       PetscEnum TS_EQ_DAE_SEMI_EXPLICIT_INDEX2
 44:       PetscEnum TS_EQ_DAE_SEMI_EXPLICIT_INDEX3
 45:       PetscEnum TS_EQ_DAE_SEMI_EXPLICIT_INDEXHI
 46:       PetscEnum TS_EQ_IMPLICIT
 47:       PetscEnum TS_EQ_ODE_IMPLICIT
 48:       PetscEnum TS_EQ_DAE_IMPLICIT_INDEX1
 49:       PetscEnum TS_EQ_DAE_IMPLICIT_INDEX2
 50:       PetscEnum TS_EQ_DAE_IMPLICIT_INDEX3
 51:       PetscEnum TS_EQ_DAE_IMPLICIT_INDEXHI

 53:       parameter (TS_EQ_UNSPECIFIED               = -1)
 54:       parameter (TS_EQ_EXPLICIT                  = 0)
 55:       parameter (TS_EQ_ODE_EXPLICIT              = 1)
 56:       parameter (TS_EQ_DAE_SEMI_EXPLICIT_INDEX1  = 100)
 57:       parameter (TS_EQ_DAE_SEMI_EXPLICIT_INDEX2  = 200)
 58:       parameter (TS_EQ_DAE_SEMI_EXPLICIT_INDEX3  = 300)
 59:       parameter (TS_EQ_DAE_SEMI_EXPLICIT_INDEXHI = 500)
 60:       parameter (TS_EQ_IMPLICIT                  = 1000)
 61:       parameter (TS_EQ_ODE_IMPLICIT              = 1001)
 62:       parameter (TS_EQ_DAE_IMPLICIT_INDEX1       = 1100)
 63:       parameter (TS_EQ_DAE_IMPLICIT_INDEX2       = 1200)
 64:       parameter (TS_EQ_DAE_IMPLICIT_INDEX3       = 1300)
 65:       parameter (TS_EQ_DAE_IMPLICIT_INDEXHI      = 1500)

 67: !
 68: !  TSExactFinalTime
 69: !
 70:       PetscEnum TS_EXACTFINALTIME_UNSPECIFIED
 71:       PetscEnum TS_EXACTFINALTIME_STEPOVER
 72:       PetscEnum TS_EXACTFINALTIME_INTERPOLATE
 73:       PetscEnum TS_EXACTFINALTIME_MATCHSTEP

 75:       parameter (TS_EXACTFINALTIME_UNSPECIFIED = 0)
 76:       parameter (TS_EXACTFINALTIME_STEPOVER    = 1)
 77:       parameter (TS_EXACTFINALTIME_INTERPOLATE = 2)
 78:       parameter (TS_EXACTFINALTIME_MATCHSTEP   = 3)

 80: !
 81: !  TSProblemType
 82: !
 83:       PetscEnum TS_LINEAR
 84:       PetscEnum TS_NONLINEAR
 85:       parameter (TS_LINEAR = 0,TS_NONLINEAR = 1)
 86: !
 87: !  TSSundialsType
 88: !
 89:       PetscEnum SUNDIALS_ADAMS
 90:       PetscEnum SUNDIALS_BDF
 91:       parameter (SUNDIALS_ADAMS=1,SUNDIALS_BDF=2)
 92: !
 93: !  TSSundialsGramSchmidtType
 94: !
 95:       PetscEnum SUNDIALS_MODIFIED_GS
 96:       PetscEnum SUNDIALS_CLASSICAL_GS
 97:       parameter (SUNDIALS_MODIFIED_GS=1,SUNDIALS_CLASSICAL_GS=2)
 98: #define SUNDIALS_UNMODIFIED_GS SUNDIALS_CLASSICAL_GS
 99: !
100: !  Some PETSc fortran functions that the user might pass as arguments
101: !
102:       external TSCOMPUTERHSFUNCTIONLINEAR
103:       external TSCOMPUTERHSJACOBIANCONSTANT
104:       external TSCOMPUTEIFUNCTIONLINEAR
105:       external TSCOMPUTEIJACOBIANCONSTANT

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