wrfv2_fire/chem/KPP/kpp/kpp-2.1/int/oldies/ros4.def

   1
   2 #FUNCTION AGGREGATE
   3 #JACOBIAN SPARSE_LU_ROW
   4
   5 #DOUBLE ON
   6 #INTFILE ros4
   7
   8 #INLINE F_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=1.e-4
  17         STEPMAX=3600.
  18         Autonomous = 0
  19         STEPSTART=STEPMIN
  20 #ENDINLINE
  21
  22 #INLINE F77_DECL_INT
  23       INTEGER Autonomous
  24       COMMON /INTGDATA/ Autonomous
  25       REAL*8 STEPSTART
  26       COMMON /GDATA/ STEPSTART
  27 #ENDINLINE
  28
  29 #INLINE F90_INIT_INT
  30         STEPMIN=1.e-4
  31         STEPMAX=3600.
  32         Autonomous = 0
  33         STEPSTART=STEPMIN
  34 #ENDINLINE
  35
  36 #INLINE F90_DECL_INT
  37       INTEGER :: Autonomous
  38       DOUBLE PRECISION :: STEPSTART
  39 #ENDINLINE
  40
  41 #INLINE C_DECL_INT
  42     extern int Autonomous;
  43     extern double STEPSTART;
  44 #ENDINLINE
  45
  46 #INLINE C_DATA_INT
  47 int Autonomous;
  48 double STEPSTART;
  49 #ENDINLINE
  50
  51 #INLINE C_INIT_INT
  52         STEPMIN = 0.0001;
  53         STEPMAX = 3600.0;
  54         Autonomous = 0;
  55         STEPSTART = STEPMIN;
  56 #ENDINLINE
  57
  58 #INLINE MATLAB_INIT_INT
  59         STEPMIN = 0.0001;
  60         STEPMAX = 3600.0;
  61         Autonomous = 0;
  62         STEPSTART = STEPMIN;
  63 #ENDINLINE