chem/KPP/kpp/kpp-2.1/int/kpp_seulex.def

   1
   2 #FUNCTION AGGREGATE
   3 #JACOBIAN SPARSE_LU_ROW
   4
   5 #DOUBLE ON
   6 #INTFILE kpp_seulex
   7
   8 #INLINE F77_GLOBAL
   9       INTEGER Autonomous
  10       COMMON /INTGDATA/ Autonomous
  11       REAL*8 STEPSTART
  12       COMMON /GDATA/ STEPSTART
  13 #ENDINLINE
  14
  15 #INLINE F77_INIT
  16         STEPMIN=0.0001
  17         STEPMAX=3600.
  18         Autonomous = 0
  19         STEPSTART=STEPMIN
  20 #ENDINLINE
  21
  22
  23