Actual source code: petscts.h

  1: !
  2: !  $Id: petscts.h,v 1.20 2000/09/25 18:03:45 balay Exp $;
  3: !
  4: !  Include file for Fortran use of the TS (timestepping) package in PETSc
  5: !
  6: #if !defined (__PETSCTS_H)

  9: #define TS PetscFortranAddr
 10: #define TSType character*(80)
 11: #define TSPVodeType integer
 12: #define TSProblemType integer 
 13: #define TSPVodeGramSchmitdType integer

 15: #define TS_EULER 'euler'
 16: #define TS_BEULER 'beuler'
 17: #define TS_PSEUDO 'pseudo'
 18: #define TS_PVODE 'pvode'
 19: #define TS_CRANK_NICHOLSON 'crank-nicholson'
 20: #define TS_RUNGE_KUTTA 'runge-kutta'

 22: #endif

 24: #if !defined (PETSC_AVOID_DECLARATIONS)
 25: !
 26: !  TSProblemType
 27: !
 28:       integer TS_LINEAR,TS_NONLINEAR
 29:       parameter (TS_LINEAR = 0,TS_NONLINEAR = 1)
 30: !
 31: !  TSPvodeType
 32: !
 33:       integer PVODE_ADAMS,PVODE_BDF
 34:       parameter (PVODE_ADAMS=0,PVODE_BDF=1)
 35: !
 36: !  TSPvodeGramSchmidtType
 37: !
 38:       integer PVODE_MODIFIED_GS,PVODE_CLASSICAL_GS,PVODE_UNMODIFIED_GS

 40:       parameter (PVODE_MODIFIED_GS=0,PVODE_CLASSICAL_GS=1)
 41:       parameter (PVODE_UNMODIFIED_GS=1)
 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