chem/KPP/kpp/kpp-2.1/int/oldies/kpp_ros4.def

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