Actual source code: petscts.h

  1: !
  2: !  Include file for Fortran use of the TS (timestepping) package in PETSc
  3: !
  4: #if !defined (__PETSCTS_H)

  7: #define TS PetscFortranAddr
  8: #define TSType character*(80)
  9: #define TSSundialsType PetscEnum
 10: #define TSProblemType PetscEnum 
 11: #define TSSundialsGramSchmitdType PetscEnum

 13: #define TS_EULER 'euler'
 14: #define TS_BEULER 'beuler'
 15: #define TS_PSEUDO 'pseudo'
 16: #define TS_SUNDIALS 'sundials'
 17: #define TS_CRANK_NICHOLSON 'crank-nicholson'
 18: #define TS_RUNGE_KUTTA 'runge-kutta'

 20: #endif

 22: #if !defined (PETSC_AVOID_DECLARATIONS)
 23: !
 24: !  TSProblemType
 25: !
 26:       PetscEnum TS_LINEAR
 27:       PetscEnum TS_NONLINEAR
 28:       parameter (TS_LINEAR = 0,TS_NONLINEAR = 1)
 29: !
 30: !  TSSundialsType
 31: !
 32:       PetscEnum SUNDIALS_ADAMS
 33:       PetscEnum SUNDIALS_BDF
 34:       parameter (SUNDIALS_ADAMS=1,SUNDIALS_BDF=2)
 35: !
 36: !  TSSundialsGramSchmidtType
 37: !
 38:       PetscEnum SUNDIALS_MODIFIED_GS
 39:       PetscEnum SUNDIALS_CLASSICAL_GS
 40:       parameter (SUNDIALS_MODIFIED_GS=1,SUNDIALS_CLASSICAL_GS=2)
 41: #define SUNDIALS_UNMODIFIED_GS SUNDIALS_CLASSICAL_GS
 42: !
 43: !  Some PETSc fortran functions that the user might pass as arguments
 44: !
 45:       external TSDEFAULTCOMPUTEJACOBIAN
 46:       external TSDEFAULTCOMPUTEJACOBIANCOLOR

 48: !PETSC_DEC_ATTRIBUTES(TSDEFAULTCOMPUTEJACOBIAN,'_TSDEFAULTCOMPUTEJACOBIAN')
 49: !PETSC_DEC_ATTRIBUTES(TSDEFAULTCOMPUTEJACOBIANCOLOR,'_TSDEFAULTCOMPUTEJACOBIANCOLOR')
 50: !
 51: !  End of Fortran include file for the TS package in PETSc

 53: #endif