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

   1
   2 #FUNCTION AGGREGATE
   3 #JACOBIAN SPARSE_LU_ROW
   4
   5 #DOUBLE ON
   6 #INTFILE rodas3
   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=0.0001
  17         STEPMAX=3600.
  18         Autonomous = 0
  19         STEPSTART=STEPMIN
  20 #ENDINLINE
  21
  22
  23 #INLINE F90_DECL_INT
  24       INTEGER :: Autonomous
  25       DOUBLE PRECISION :: STEPSTART
  26 #ENDINLINE
  27
  28 #INLINE F90_INIT_INT
  29         STEPMIN=1.e-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
  47
  48 #INLINE C_INIT_INT
  49         STEPMIN=0.0001;
  50         STEPMAX=3600.0;
  51         Autonomous = 0;
  52         STEPSTART=STEPMIN;
  53 #ENDINLINE
  54
  55