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

   1
   2 #FUNCTION AGGREGATE
   3 #JACOBIAN SPARSE_LU_ROW
   4
   5 #DOUBLE ON
   6 #INTFILE ros4_ddm
   7 #HESSIAN ON
   8
   9 #INLINE F77_DECL_INT
  10       INTEGER Autonomous
  11       COMMON /INTGDATA/ Autonomous
  12       REAL*8 STEPSTART
  13       COMMON /GDATA/ STEPSTART
  14 #ENDINLINE
  15
  16 #INLINE F77_INIT_INT
  17         STEPMIN=1.0E-4
  18         STEPMAX=3600.
  19         Autonomous = 0
  20         STEPSTART=STEPMIN
  21 #ENDINLINE
  22
  23 #INLINE F90_DECL_INT
  24       INTEGER Autonomous
  25       DOUBLE PRECISION STEPSTART
  26 #ENDINLINE
  27
  28 #INLINE F90_INIT_INT
  29         STEPMIN=1.0E-4
  30         STEPMAX=3600.
  31         Autonomous = 0
  32         STEPSTART=STEPMIN
  33 #ENDINLINE
  34
  35
  36 #INLINE C_DECL_INT
  37     extern int Autonomous;
  38     extern double STEPSTART;
  39 #ENDINLINE
  40
  41 #INLINE C_DATA_INT
  42     int Autonomous;
  43     double STEPSTART;
  44 #ENDINLINE
  45
  46 #INLINE C_INIT_INT
  47         STEPMIN = 0.0001;
  48         STEPMAX = 3600.0;
  49         Autonomous = 0;
  50         STEPSTART = STEPMIN;
  51 #ENDINLINE
  52
  53 #INLINE MATLAB_INIT_INT
  54         STEPMIN = 0.0001;
  55         STEPMAX = 3600.0;
  56         Autonomous = 0;
  57         STEPSTART = STEPMIN;
  58 #ENDINLINE