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

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