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

   1
   2 #FUNCTION AGGREGATE
   3 #JACOBIAN SPARSE_LU_ROW
   4
   5 #DOUBLE ON
   6 #INTFILE ros1_ddm
   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=30.0
  17         STEPMAX=30.0
  18         Autonomous = 0
  19         STEPSTART=STEPMIN
  20 #ENDINLINE
  21
  22 #INLINE F90_DECL_INT
  23       INTEGER :: Autonomous
  24       DOUBLE PRECISION :: STEPSTART
  25 #ENDINLINE
  26
  27 #INLINE F90_INIT_INT
  28         STEPMIN=30.0
  29         STEPMAX=30.0
  30         Autonomous = 0
  31         STEPSTART=STEPMIN
  32 #ENDINLINE
  33
  34
  35 #INLINE C_DECL_INT
  36     extern int Autonomous;
  37     extern double STEPSTART;
  38 #ENDINLINE
  39
  40 #INLINE C_DATA_INT
  41 int Autonomous;
  42 double STEPSTART;
  43 #ENDINLINE
  44
  45 #INLINE C_INIT_INT
  46         STEPMIN = 30.0;
  47         STEPMAX = 30.0;
  48         Autonomous = 0;
  49         STEPSTART = STEPMIN;
  50 #ENDINLINE