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

   1
   2 #FUNCTION AGGREGATE
   3 #JACOBIAN SPARSE_LU_ROW
   4 #DOUBLE ON
   5 #INTFILE kpp_odessa_ddm
   6
   7 #INLINE F77_GLOBAL
   8       INTEGER Autonomous
   9       COMMON /INTGDATA/ Autonomous
  10       REAL*8 STEPSTART
  11       COMMON /GDATA/ STEPSTART
  12 #ENDINLINE
  13
  14 #INLINE F77_INIT
  15         STEPMIN=0.0001
  16         STEPMAX=3600.
  17         Autonomous = 0
  18         STEPSTART=STEPMIN
  19 #ENDINLINE
  20
  21
  22
  23 #INLINE C_GLOBAL
  24 extern int Autonomous;
  25 extern double STEPSTART;
  26 #ENDINLINE
  27
  28 #INLINE C_DATA_INT
  29 int Autonomous;
  30 double STEPSTART;
  31 #ENDINLINE
  32
  33
  34
  35 #INLINE C_INIT
  36         STEPMIN=0.0001;
  37         STEPMAX=3600.0;
  38         Autonomous = 0;
  39         STEPSTART=STEPMIN;
  40 #ENDINLINE
  41
  42