! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Utility Data Module File
! 
! Generated by KPP-2.2.4_gc symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : gckpp_Monitor.f90
! Time                 : Mon Oct 29 14:18:53 2018
! Working directory    : /n/home08/xnw/Code.v11-02_Cl/KPP/Tropchem
! Equation file        : gckpp.kpp
! Output root filename : gckpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE gckpp_Monitor


  CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_0 = (/ &
     'CH2I2          ','CH2ICl         ','CH2IBr         ', & ! index 1 - 3
     'MONX           ','AERI           ','CO2            ', & ! index 4 - 6
     'INDIOL         ','ISALA          ','ISALC          ', & ! index 7 - 9
     'ISN1OA         ','ISN1OG         ','LBRO2H         ', & ! index 10 - 12
     'LBRO2N         ','LISOPOH        ','LISOPNO3       ', & ! index 13 - 15
     'LTRO2H         ','LTRO2N         ','LVOCOA         ', & ! index 16 - 18
     'LVOC           ','LXRO2H         ','LXRO2N         ', & ! index 19 - 21
     'MSA            ','NIT            ','NITs           ', & ! index 22 - 24
     'PYAC           ','SO4            ','SO4H1          ', & ! index 25 - 27
     'SO4H2          ','SOAGX          ','SOAIE          ', & ! index 28 - 30
     'SOAME          ','IMAE           ','SOAMG          ', & ! index 31 - 33
     'POx            ','LOx            ','PCO            ', & ! index 34 - 36
     'LCO            ','PSO4           ','LCH4           ', & ! index 37 - 39
     'LHCOOH         ','LMO2           ','LMP            ', & ! index 40 - 42
     'LC2H6          ','LETO2          ','LMOH           ', & ! index 43 - 45
     'LEOH           ','LACTA          ','LC3H8          ', & ! index 46 - 48
     'LACET          ','LISOP          ','LALK4          ', & ! index 49 - 51
     'LPRPE          ','I2O4           ','CHBr3          ', & ! index 52 - 54
     'CH2Br2         ','I2O2           ','MONITA         ', & ! index 55 - 57
     'BENZ           ','CH3I           ','DHDN           ', & ! index 58 - 60
     'DHDC           ','I2O3           ','PMNN           ', & ! index 61 - 63
     'PPN            ','TOLU           ','BrNO2          ', & ! index 64 - 66
     'CH3Br          ','IBr            ','IEPOXD         ', & ! index 67 - 69
     'INO            ','HI             ','TRO2           ', & ! index 70 - 72
     'BRO2           ','IEPOXA         ','IEPOXB         ', & ! index 73 - 75
     'IONITA         ','XRO2           ','MAP            ', & ! index 76 - 78
     'IMAO3          ','MPN            ','CH2Cl2         ', & ! index 79 - 81
     'CHCl3          ','Cl2O2          ','OIO            ', & ! index 82 - 84
     'RA3P           ','RB3P           ','XYLE           ', & ! index 85 - 87
     'HNO4           ','CH3Cl          ','DMS            ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(90) :: SPC_NAMES_1 = (/ &
     'ETP            ','ICl            ','ClOO           ', & ! index 91 - 93
     'OClO           ','PAN            ','RP             ', & ! index 94 - 96
     'PP             ','PRPN           ','ALK4           ', & ! index 97 - 99
     'PIP            ','R4P            ','HPALD          ', & ! index 100 - 102
     'ATOOH          ','C3H8           ','DHPCARP        ', & ! index 103 - 105
     'MP             ','MRP            ','Br2            ', & ! index 106 - 108
     'RIPB           ','VRP            ','IAP            ', & ! index 109 - 111
     'HC187          ','HPC52O2        ','MOBA           ', & ! index 112 - 114
     'HONIT          ','DHMOB          ','BrCl           ', & ! index 115 - 117
     'RIPA           ','RIPD           ','ISNP           ', & ! index 118 - 120
     'HNO2           ','I2             ','MAOP           ', & ! index 121 - 123
     'EOH            ','ETHLN          ','C2H6           ', & ! index 124 - 126
     'Cl2            ','N2O5           ','ISNOHOO        ', & ! index 127 - 129
     'MTPA           ','NPMN           ','BrNO3          ', & ! index 130 - 132
     'MVKOO          ','MOBAOO         ','IONO           ', & ! index 133 - 135
     'DIBOO          ','IPMN           ','LIMO           ', & ! index 136 - 138
     'ISNOOB         ','CH3CHOO        ','GAOO           ', & ! index 139 - 141
     'INPN           ','MGLYOO         ','MACRNO2        ', & ! index 142 - 144
     'BrSALA         ','BrSALC         ','ROH            ', & ! index 145 - 147
     'MGLOO          ','MONITS         ','ISOPNB         ', & ! index 148 - 150
     'CH2OO          ','H2O2           ','HOI            ', & ! index 151 - 153
     'IEPOXOO        ','GLYX           ','MVKN           ', & ! index 154 - 156
     'PRN1           ','MONITU         ','MACROO         ', & ! index 157 - 159
     'IONO2          ','A3O2           ','HCOOH          ', & ! index 160 - 162
     'ISOP           ','PROPNN         ','MAN2           ', & ! index 163 - 165
     'ISNOOA         ','PO2            ','ATO2           ', & ! index 166 - 168
     'B3O2           ','ISOPNDO2       ','R4N1           ', & ! index 169 - 171
     'MAOPO2         ','MACRN          ','HOCl           ', & ! index 172 - 174
     'RCO3           ','OLND           ','OLNN           ', & ! index 175 - 177
     'LIMO2          ','HNO3           ','PIO2           ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(55) :: SPC_NAMES_2 = (/ &
     'ACTA           ','ISOPNBO2       ','GLYC           ', & ! index 181 - 183
     'ISOPND         ','HC5OO          ','KO2            ', & ! index 184 - 186
     'VRO2           ','I              ','NMAO3          ', & ! index 187 - 189
     'MGLY           ','ISN1           ','ClNO2          ', & ! index 190 - 192
     'IO             ','ClNO3          ','HC5            ', & ! index 193 - 195
     'ACET           ','BrO            ','HOBr           ', & ! index 196 - 198
     'SALCCL         ','SALACL         ','ClO            ', & ! index 199 - 201
     'MRO2           ','RIO2           ','INO2           ', & ! index 202 - 204
     'HAC            ','R4O2           ','PRPE           ', & ! index 205 - 207
     'ALD2           ','R4N2           ','CH2O           ', & ! index 208 - 210
     'ETO2           ','MACR           ','MEK            ', & ! index 211 - 213
     'HCl            ','HBr            ','MVK            ', & ! index 214 - 216
     'SO2            ','CO             ','NO2            ', & ! index 217 - 219
     'O3             ','NO3            ','Br             ', & ! index 220 - 222
     'HO2            ','OH             ','MCO3           ', & ! index 223 - 225
     'RCHO           ','Cl             ','MO2            ', & ! index 226 - 228
     'NO             ','CH4            ','H2             ', & ! index 229 - 231
     'H2O            ','MOH            ','O2             ', & ! index 232 - 234
     'RCOOH          ' /)
  CHARACTER(LEN=15), PARAMETER, DIMENSION(235) :: SPC_NAMES = (/&
    SPC_NAMES_0, SPC_NAMES_1, SPC_NAMES_2 /)

  INTEGER, DIMENSION(1) :: LOOKAT
  INTEGER, DIMENSION(1) :: MONITOR
  CHARACTER(LEN=15), DIMENSION(1) :: SMASS
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_0 = (/ &
     '       O3 + NO --> NO2 + O2                                                                         ', & ! index 1
     '       O3 + OH --> LOx + HO2 + O2                                                                   ', & ! index 2
     '      O3 + HO2 --> LOx + OH + 2 O2                                                                  ', & ! index 3
     '      NO2 + O3 --> NO3 + O2                                                                         ', & ! index 4
     '      O3 + MO2 --> LOx + LMO2 + CH2O + HO2 + O2                                                     ', & ! index 5
     '          2 OH --> POx + O3 + H2O                                                                   ', & ! index 6
     '          2 OH --> H2O2                                                                             ', & ! index 7
     '      HO2 + OH --> H2O + O2                                                                         ', & ! index 8
     '     H2O2 + OH --> HO2 + H2O                                                                        ', & ! index 9
     '      HO2 + NO --> POx + NO2 + OH                                                                   ', & ! index 10
     '         2 HO2 --> H2O2 + O2                                                                        ', & ! index 11
     '       OH + H2 --> HO2 + H2O                                                                        ', & ! index 12
     '       CO + OH --> CO2 + LCO + HO2                                                                  ', & ! index 13
     '      OH + CH4 --> LCH4 + MO2 + H2O                                                                 ', & ! index 14
     '      MO2 + NO --> POx + LMO2 + CH2O + NO2 + HO2                                                    ', & ! index 15
     '     HO2 + MO2 --> LMO2 + MP + O2                                                                   ', & ! index 16
     '         2 MO2 --> 2 LMO2 + CH2O + MOH + O2                                                         ', & ! index 17
     '         2 MO2 --> 2 LMO2 + 2 CH2O + 2 HO2                                                          ', & ! index 18
     '       MP + OH --> LMP + MO2 + H2O                                                                  ', & ! index 19
     '       MP + OH --> LMP + CH2O + OH + H2O                                                            ', & ! index 20
     '    ATOOH + OH --> ATO2 + H2O                                                                       ', & ! index 21
     '    ATOOH + OH --> MGLY + OH + H2O                                                                  ', & ! index 22
     '     CH2O + OH --> PCO + CO + HO2 + H2O                                                             ', & ! index 23
     '      NO2 + OH --> HNO3                                                                             ', & ! index 24
     '     HNO3 + OH --> POx + NO3 + H2O                                                                  ', & ! index 25
     '       OH + NO --> HNO2                                                                             ', & ! index 26
     '     HNO2 + OH --> POx + NO2 + H2O                                                                  ', & ! index 27
     '     NO2 + HO2 --> HNO4                                                                             ', & ! index 28
     '          HNO4 --> NO2 + HO2                                                                        ', & ! index 29
     '     HNO4 + OH --> NO2 + H2O + O2                                                                   ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_1 = (/ &
     '     NO3 + HO2 --> LOx + NO2 + OH + O2                                                              ', & ! index 31
     '      NO3 + NO --> 2 NO2                                                                            ', & ! index 32
     '      NO3 + OH --> LOx + NO2 + HO2                                                                  ', & ! index 33
     '     NO2 + NO3 --> N2O5                                                                             ', & ! index 34
     '          N2O5 --> NO2 + NO3                                                                        ', & ! index 35
     '    HCOOH + OH --> CO2 + LHCOOH + HO2 + H2O                                                         ', & ! index 36
     '      OH + MOH --> LMOH + CH2O + HO2                                                                ', & ! index 37
     '     NO2 + NO3 --> 2 LOx + NO2 + NO + O2                                                            ', & ! index 38
     '    CH2O + NO3 --> LOx + PCO + HNO3 + CO + HO2                                                      ', & ! index 39
     '     ALD2 + OH --> 0.05 PCO + 0.05 CH2O + 0.05 CO + 0.05 HO2 + 0.95 MCO3 + H2O                      ', & ! index 40
     '    ALD2 + NO3 --> LOx + HNO3 + MCO3                                                                ', & ! index 41
     '    NO2 + MCO3 --> PAN                                                                              ', & ! index 42
     '           PAN --> NO2 + MCO3                                                                       ', & ! index 43
     '     MCO3 + NO --> CO2 + POx + NO2 + MO2                                                            ', & ! index 44
     '     C2H6 + OH --> LC2H6 + ETO2 + H2O                                                               ', & ! index 45
     '     ETO2 + NO --> POx + LETO2 + ALD2 + NO2 + HO2                                                   ', & ! index 46
     '     C3H8 + OH --> LC3H8 + B3O2                                                                     ', & ! index 47
     '     C3H8 + OH --> LC3H8 + A3O2                                                                     ', & ! index 48
     '     A3O2 + NO --> POx + NO2 + HO2 + RCHO                                                           ', & ! index 49
     '      PO2 + NO --> POx + ALD2 + CH2O + NO2 + HO2                                                    ', & ! index 50
     '     ALK4 + OH --> LALK4 + R4O2                                                                     ', & ! index 51
     '     R4O2 + NO --> POx + 0.05 A3O2 + 0.18 B3O2 + 0.32 ACET + 0.32 ALD2 + 0.32 ETO2 + 0.19 MEK + NO2 ', & ! index 52
     '     R4O2 + NO --> POx + R4N2                                                                       ', & ! index 53
     '     R4N1 + NO --> POx + 0.86 ALD2 + 0.57 CH2O + 2 NO2 + 0.57 RCHO                                  ', & ! index 54
     '     ATO2 + NO --> POx + CH2O + NO2 + MCO3                                                          ', & ! index 55
     '      KO2 + NO --> POx + 0.93 ALD2 + 0.07 R4N2 + 0.93 NO2 + 0.93 MCO3                               ', & ! index 56
     '     RIO2 + NO --> POx + 0.03 DIBOO + 0.081 ISOPNB + 0.009 ISOPND + 0.058 HC5 + 0.82 CH2O + 0.344 MA', & ! index 57
     '          RIO2 --> 0.5 HPALD + 0.5 DHPCARP                                                          ', & ! index 58
     '     VRO2 + NO --> POx + 0.12 MVKN + 0.53 GLYC + 0.35 MGLY + 0.35 CH2O + 0.88 NO2 + 0.35 HO2 + 0.53 ', & ! index 59
     '     MRO2 + NO --> POx + 0.728 PCO + 0.15 MACRN + 0.122 MGLY + 0.728 HAC + 0.122 CH2O + 0.728 CO + 0' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_2 = (/ &
     '          MRO2 --> PCO + HAC + CO + OH                                                              ', & ! index 61
     '     MAN2 + NO --> POx + 0.5 PCO + 0.5 PROPNN + 0.5 MGLY + 0.5 CH2O + 0.5 CO + 1.5 NO2 + 0.5 OH     ', & ! index 62
     '     B3O2 + NO --> POx + ACET + NO2 + HO2                                                           ', & ! index 63
     '     INO2 + NO --> POx + 0.7 ISN1 + 0.23 HC5 + 0.07 CH2O + 0.035 MACR + 0.035 MVK + 1.3 NO2 + 0.8 HO', & ! index 64
     '    INO2 + NO3 --> LOx + 0.7 ISN1 + 0.23 HC5 + 0.07 CH2O + 0.035 MACR + 0.035 MVK + 1.3 NO2 + 0.8 HO', & ! index 65
     '    ISN1 + NO3 --> 1.4 LOx + 0.4 ISNOOB + 0.6 ISNOOA + 0.6 HNO3                                     ', & ! index 66
     '  ISNOOA + NO3 --> 0.04 ISN1OG + 1.04 LOx + PCO + 0.96 PROPNN + CO + NO2 + HO2                      ', & ! index 67
     '   ISNOOA + NO --> 0.04 ISN1OG + 0.96 POx + PCO + 0.96 PROPNN + CO + NO2 + HO2                      ', & ! index 68
     '  ISNOOA + NO2 --> 0.04 ISN1OG + 1.04 LOx + 0.96 IPMN                                               ', & ! index 69
     '  ISNOOA + HO2 --> 0.04 ISN1OG + 0.21 POx + 0.75 RP + 0.96 NO2 + 0.25 O3 + 0.25 RCOOH               ', & ! index 70
     '  ISNOOB + NO3 --> 0.04 ISN1OG + 0.06 LOx + GLYX + 0.94 PROPNN + 2 NO2                              ', & ! index 71
     '   ISNOOB + NO --> 0.04 ISN1OG + 1.78 POx + 0.94 GLYX + 0.9 PROPNN + 1.88 NO2                       ', & ! index 72
     '  ISNOOB + HO2 --> 0.04 ISN1OG + 0.04 LOx + 0.96 INPN                                               ', & ! index 73
     '  ISNOOB + MO2 --> 0.04 ISN1OG + 0.36 POx + LMO2 + 0.7 GLYX + 0.66 PROPNN + 0.75 CH2O + 0.7 NO2 + 0.', & ! index 74
     '     ISN1 + O3 --> LOx + 0.7 GLYX + 0.3 PROPNN + 0.75 CH2O + 0.7 NO2 + 0.5 HO2 + 0.25 MOH           ', & ! index 75
     '     ISN1 + OH --> 0.655 ISNOHOO + 0.345 ISNOOA                                                     ', & ! index 76
     '  ISNOHOO + NO --> 0.04 ISN1OG + 0.106 LOx + 0.919 GLYX + 0.894 PROPNN + 0.934 HO2                  ', & ! index 77
     ' ISNOHOO + HO2 --> 0.04 ISN1OG + 0.04 LOx + 0.96 INPN                                               ', & ! index 78
     ' ISNOHOO + MO2 --> 0.04 ISN1OG + 0.34 LOx + LMO2 + 0.7 GLYX + 0.66 PROPNN + 0.75 CH2O + 1.2 HO2 + 0.', & ! index 79
     '        2 INO2 --> 0.5 ISOPND + 1.2 ISN1 + 0.23 HC5 + 0.07 CH2O + 0.035 MACR + 0.035 MVK + 0.3 NO2 +', & ! index 80
     '     PRN1 + NO --> POx + ALD2 + CH2O + 2 NO2                                                        ', & ! index 81
     '    ALK4 + NO3 --> LOx + LALK4 + HNO3 + R4O2                                                        ', & ! index 82
     '     R4N2 + OH --> R4N1 + H2O                                                                       ', & ! index 83
     '     ACTA + OH --> CO2 + LACTA + MO2 + H2O                                                          ', & ! index 84
     '     OH + RCHO --> RCO3 + H2O                                                                       ', & ! index 85
     '    RCO3 + NO2 --> PPN                                                                              ', & ! index 86
     '           PPN --> RCO3 + NO2                                                                       ', & ! index 87
     '   IMAO3 + NO2 --> IPMN                                                                             ', & ! index 88
     '   NMAO3 + NO2 --> NPMN                                                                             ', & ! index 89
     '          IPMN --> IMAO3 + NO2                                                                      ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_3 = (/ &
     '          NPMN --> NMAO3 + NO2                                                                      ', & ! index 91
     '     RCO3 + NO --> POx + ETO2 + NO2                                                                 ', & ! index 92
     '    NMAO3 + NO --> CO2 + POx + 0.5 PCO + 0.5 CH2O + 0.5 CO + NO2 + 0.5 MCO3 + 0.5 MO2               ', & ! index 93
     '    NO3 + RCHO --> LOx + RCO3 + HNO3                                                                ', & ! index 94
     '     ACET + OH --> LACET + ATO2 + H2O                                                               ', & ! index 95
     '    A3O2 + MO2 --> LMO2 + 0.25 ROH + 0.75 CH2O + HO2 + 0.75 RCHO + 0.25 MOH                         ', & ! index 96
     '     PO2 + MO2 --> LMO2 + 0.25 ROH + 0.16 HAC + 0.5 ALD2 + 1.25 CH2O + HO2 + 0.09 RCHO + 0.25 MOH   ', & ! index 97
     '    R4O2 + HO2 --> R4P                                                                              ', & ! index 98
     '    R4N1 + HO2 --> R4N2                                                                             ', & ! index 99
     '    ATO2 + HO2 --> 0.85 ATOOH + 0.15 CH2O + 0.15 OH + 0.15 MCO3                                     ', & ! index 100
     '     KO2 + HO2 --> 0.85 ATOOH + 0.15 ALD2 + 0.15 OH + 0.15 MCO3                                     ', & ! index 101
     '    RIO2 + HO2 --> 0.272 RIPB + 0.628 RIPA + 0.037 RIPD + 0.063 CH2O + 0.025 MACR + 0.038 MVK + 0.06', & ! index 102
     '    VRO2 + HO2 --> 0.1 VRP + 0.578 GLYC + 0.102 MGLY + 0.102 CH2O + 0.187 MEK + 0.102 HO2 + 0.68 OH ', & ! index 103
     '    MRO2 + HO2 --> MRP                                                                              ', & ! index 104
     '    MAN2 + HO2 --> 0.075 PCO + 0.85 MAOP + 0.075 PROPNN + 0.075 MGLY + 0.075 CH2O + 0.075 CO + 0.925', & ! index 105
     '    B3O2 + HO2 --> RB3P                                                                             ', & ! index 106
     '    INO2 + HO2 --> INPN                                                                             ', & ! index 107
     '    PRN1 + HO2 --> PRPN                                                                             ', & ! index 108
     '      MEK + OH --> KO2 + H2O                                                                        ', & ! index 109
     '    ETO2 + MO2 --> LMO2 + LETO2 + 0.25 EOH + 0.75 ALD2 + 0.75 CH2O + HO2 + 0.25 MOH                 ', & ! index 110
     '     MEK + NO3 --> LOx + HNO3 + KO2                                                                 ', & ! index 111
     '    R4O2 + MO2 --> 0.91 LMO2 + 0.25 ROH + 0.03 A3O2 + 0.09 B3O2 + 0.16 ACET + 0.16 ALD2 + 0.75 CH2O ', & ! index 112
     '    R4N1 + MO2 --> LMO2 + 0.25 ROH + 0.15 R4O2 + 0.38 ALD2 + 0.95 CH2O + NO2 + 0.5 HO2 + 0.54 RCHO +', & ! index 113
     '    ATO2 + MO2 --> LMO2 + 0.5 MGLY + 0.2 HAC + 0.5 CH2O + 0.3 HO2 + 0.3 MCO3 + 0.5 MOH              ', & ! index 114
     '     KO2 + MO2 --> LMO2 + 0.25 ROH + 0.5 ALD2 + 0.75 CH2O + 0.25 MEK + 0.5 HO2 + 0.5 MCO3 + 0.25 MOH', & ! index 115
     '    RIO2 + MO2 --> LMO2 + 0.24 ROH + 0.3 HC5 + 1.22 CH2O + 0.18 MACR + 0.28 MVK + 1.1 HO2 + 0.24 MOH', & ! index 116
     '        2 RIO2 --> 0.29 PCO + 0.09 DIBOO + 1.11 HC5 + 0.75 CH2O + 0.29 MACR + 0.45 MVK + 0.29 CO + 0', & ! index 117
     '   HC5OO + MO2 --> 0.33 PCO + LMO2 + 0.25 ROH + 0.13 GLYC + 0.29 MGLY + 0.18 HAC + 0.95 CH2O + 0.25 ', & ! index 118
     '    VRO2 + MO2 --> LMO2 + 0.25 ROH + 0.36 GLYC + 0.14 MGLY + 0.89 CH2O + 0.25 MEK + 0.64 HO2 + 0.36 ', & ! index 119
     '    MRO2 + MO2 --> 0.595 PCO + LMO2 + 0.15 ROH + 0.255 MGLY + 0.595 HAC + 1.255 CH2O + 0.595 CO + 1.' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_4 = (/ &
     '    MAN2 + MO2 --> 0.375 PCO + LMO2 + 0.375 PROPNN + 0.375 MGLY + 0.25 R4N2 + 0.625 CH2O + 0.375 CO ', & ! index 121
     '    B3O2 + MO2 --> LMO2 + 0.25 ROH + 0.75 ACET + 0.75 CH2O + HO2 + 0.25 MOH                         ', & ! index 122
     '    INO2 + MO2 --> LMO2 + 0.25 ISOPND + 0.6 ISN1 + 0.115 HC5 + 0.785 CH2O + 0.018 MACR + 0.018 MVK +', & ! index 123
     '    PRN1 + MO2 --> LMO2 + 0.25 ROH + 0.5 ALD2 + 1.25 CH2O + NO2 + 0.5 HO2 + 0.25 RCHO + 0.25 MOH    ', & ! index 124
     '      EOH + OH --> LEOH + ALD2 + HO2                                                                ', & ! index 125
     '      ROH + OH --> HO2 + RCHO                                                                       ', & ! index 126
     '        2 ETO2 --> 2 LETO2 + 2 ALD2 + 2 HO2                                                         ', & ! index 127
     '        2 ETO2 --> 2 LETO2 + EOH + ALD2                                                             ', & ! index 128
     '    ETO2 + HO2 --> LETO2 + ETP                                                                      ', & ! index 129
     '    A3O2 + HO2 --> RA3P                                                                             ', & ! index 130
     '     PO2 + HO2 --> PP                                                                               ', & ! index 131
     '    HO2 + MCO3 --> 0.15 POx + 0.41 MAP + 0.15 ACTA + 0.15 O3 + 0.44 OH + 0.44 MO2                   ', & ! index 132
     '    RCO3 + HO2 --> 0.15 POx + 0.41 RP + 0.44 ETO2 + 0.15 O3 + 0.44 OH + 0.15 RCOOH                  ', & ! index 133
     '   NMAO3 + HO2 --> 0.15 POx + 0.39 PCO + 0.41 MAOP + 0.59 CH2O + 0.39 CO + 0.15 O3 + 0.44 OH + 0.39 ', & ! index 134
     '     PRPE + OH --> LPRPE + PO2                                                                      ', & ! index 135
     '     PRPE + O3 --> LOx + 0.56 PCO + LPRPE + 0.12 CH3CHOO + 0.12 CH2OO + 0.5 ALD2 + 0.5 CH2O + 0.56 C', & ! index 136
     '     NPMN + OH --> PCO + HAC + CO + NO2                                                             ', & ! index 137
     '     IPMN + OH --> 0.781 IMAE + 0.81 POx + 0.03 PCO + 0.19 PAN + 0.03 HAC + 0.19 CH2O + 0.03 CO + 0.', & ! index 138
     '     NPMN + O3 --> CH2O + NO3 + MCO3                                                                ', & ! index 139
     '     IMAE + OH --> OH                                                                               ', & ! index 140
     '     GLYC + OH --> 0.361 CO2 + 0.505 PCO + 0.134 GLYX + 0.134 HCOOH + 0.732 CH2O + 0.505 CO + 0.773 ', & ! index 141
     '     GLYC + OH --> PCO + HCOOH + CO + OH                                                            ', & ! index 142
     '    PRPE + NO3 --> LOx + LPRPE + PRN1                                                               ', & ! index 143
     '     GLYX + OH --> 2 PCO + 2 CO + HO2                                                               ', & ! index 144
     '     MGLY + OH --> PCO + CO + MCO3                                                                  ', & ! index 145
     '    GLYX + NO3 --> LOx + 2 PCO + HNO3 + 2 CO + HO2                                                  ', & ! index 146
     '    MGLY + NO3 --> LOx + PCO + HNO3 + CO + MCO3                                                     ', & ! index 147
     '     ISOP + OH --> LISOPOH + LISOP + RIO2                                                           ', & ! index 148
     '      MVK + OH --> VRO2                                                                             ', & ! index 149
     '     MACR + OH --> 0.53 IMAO3 + 0.47 MRO2                                                           ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_5 = (/ &
     '      HAC + OH --> MGLY + HO2                                                                       ', & ! index 151
     '      HAC + OH --> 0.5 CO2 + 0.5 PCO + 0.5 HCOOH + 0.5 ACTA + 0.5 CO + OH + 0.5 MO2                 ', & ! index 152
     '   A3O2 + MCO3 --> HO2 + RCHO + MO2                                                                 ', & ! index 153
     '    PO2 + MCO3 --> ALD2 + CH2O + HO2 + MO2                                                          ', & ! index 154
     '   A3O2 + MCO3 --> ACTA + RCHO                                                                      ', & ! index 155
     '    PO2 + MCO3 --> ACTA + 0.65 HAC + 0.35 RCHO                                                      ', & ! index 156
     '     ISOP + O3 --> LOx + 0.495 PCO + LISOP + 0.044 MVKOO + 0.11 CH2OO + 0.044 MACROO + 0.054 VRO2 + ', & ! index 157
     '      MVK + O3 --> LOx + 0.56 PCO + 0.12 MGLOO + 0.12 CH2OO + 0.5 MGLY + 0.1 ALD2 + 0.6 CH2O + 0.56 ', & ! index 158
     '     MACR + O3 --> LOx + 0.625 PCO + 0.022 MGLYOO + 0.326 CH2OO + 0.88 MGLY + 0.12 CH2O + 0.625 CO +', & ! index 159
     '    ISOP + NO3 --> LISOPNO3 + LOx + LISOP + INO2                                                    ', & ! index 160
     '    MACR + NO3 --> LOx + MAN2                                                                       ', & ! index 161
     '    MACR + NO3 --> 1.5 LOx + 0.5 PCO + 0.5 IMAO3 + 0.5 MAOP + 0.5 HNO3 + 0.5 MRO2 + 0.5 CO + 0.5 HO2', & ! index 162
     '    RCO3 + MO2 --> LMO2 + CH2O + ETO2 + HO2                                                         ', & ! index 163
     '   NMAO3 + MO2 --> LMO2 + 2 CH2O + HO2 + MCO3                                                       ', & ! index 164
     '    RCO3 + MO2 --> LMO2 + CH2O + RCOOH                                                              ', & ! index 165
     '   NMAO3 + MO2 --> LMO2 + CH2O + RCOOH                                                              ', & ! index 166
     '     INPN + OH --> MEK + NO2 + OH                                                                   ', & ! index 167
     '     INPN + OH --> 0.36 INO2 + 0.64 R4N2 + 0.64 OH                                                  ', & ! index 168
     '     PRPN + OH --> 0.209 PRN1 + 0.791 PROPNN + 0.791 OH                                             ', & ! index 169
     '      ETP + OH --> 0.64 ALD2 + 0.36 ETO2 + 0.64 OH                                                  ', & ! index 170
     '     RA3P + OH --> 0.36 A3O2 + 0.64 OH + 0.64 RCHO                                                  ', & ! index 171
     '     RB3P + OH --> 0.209 B3O2 + 0.791 ACET + 0.791 OH                                               ', & ! index 172
     '      R4P + OH --> 0.209 R4O2 + 0.791 OH + 0.791 RCHO                                               ', & ! index 173
     '       RP + OH --> RCO3                                                                             ', & ! index 174
     '       PP + OH --> 0.209 PO2 + 0.791 HAC + 0.791 OH                                                 ', & ! index 175
     '     RIPA + OH --> 0.005 LVOC + 0.245 HC5 + 0.75 RIO2 + 0.125 OH + 0.125 H2O                        ', & ! index 176
     '     RIPB + OH --> 0.005 LVOC + 0.515 HC5 + 0.48 RIO2 + 0.26 OH + 0.26 H2O                          ', & ! index 177
     '     RIPD + OH --> 0.005 LVOC + 0.745 HC5 + 0.25 RIO2 + 0.375 OH + 0.375 H2O                        ', & ! index 178
     '     RIPA + OH --> 0.005 LVOC + 0.578 IEPOXA + 0.272 IEPOXB + 0.145 HC5OO + 0.85 OH                 ', & ! index 179
     '     RIPB + OH --> 0.68 IEPOXA + 0.32 IEPOXB + OH                                                   ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_6 = (/ &
     '     RIPD + OH --> 0.005 LVOC + 0.5 IEPOXD + 0.495 HC5OO + 0.5 OH                                   ', & ! index 181
     '     LVOC + OH --> OH                                                                               ', & ! index 182
     '   IEPOXA + OH --> IEPOXOO                                                                          ', & ! index 183
     '   IEPOXB + OH --> IEPOXOO                                                                          ', & ! index 184
     '   IEPOXD + OH --> IEPOXOO                                                                          ', & ! index 185
     ' IEPOXOO + HO2 --> 1.172 CO2 + 0.6 PCO + 0.44 HC187 + 0.085 GLYX + 0.278 HCOOH + 0.025 GLYC + 0.085 ', & ! index 186
     '  IEPOXOO + NO --> 0.858 CO2 + POx + 0.678 PCO + 0.473 HC187 + 0.088 GLYX + 0.142 HCOOH + 0.088 GLYC', & ! index 187
     '      IAP + OH --> 0.654 DHMOB + 0.346 HC5OO + 0.654 OH                                             ', & ! index 188
     '      VRP + OH --> 0.209 VRO2 + 0.791 MEK + 0.791 OH                                                ', & ! index 189
     '      MRP + OH --> MRO2                                                                             ', & ! index 190
     '      MRP + OH --> CO2 + HAC + OH                                                                   ', & ! index 191
     '     MAOP + OH --> NMAO3                                                                            ', & ! index 192
     '     MAOP + OH --> MAOPO2                                                                           ', & ! index 193
     ' MAOPO2 + MCO3 --> 2 CO2 + HAC + OH + MO2                                                           ', & ! index 194
     ' MAOPO2 + MCO3 --> ACTA + MEK                                                                       ', & ! index 195
     '  MAOPO2 + MO2 --> 0.7 CO2 + LMO2 + 0.3 ROH + 0.7 HAC + CH2O + 0.7 HO2 + 0.7 OH                     ', & ! index 196
     '      2 MAOPO2 --> 2 CO2 + 2 HAC + 2 OH                                                             ', & ! index 197
     '  MAOPO2 + HO2 --> CO2 + HAC + 2 OH                                                                 ', & ! index 198
     '   MAOPO2 + NO --> CO2 + POx + HAC + NO2 + OH                                                       ', & ! index 199
     '   MAOPO2 + NO --> POx + HNO3                                                                       ', & ! index 200
     '      MAP + OH --> MCO3                                                                             ', & ! index 201
     '    C2H6 + NO3 --> LOx + LC2H6 + HNO3 + ETO2                                                        ', & ! index 202
     '      HC5 + O3 --> LOx + 0.89 PCO + 0.055 GAOO + 0.055 MGLYOO + 0.5 GLYC + 0.5 MGLY + 0.445 CH2O + 0', & ! index 203
     '        2 MCO3 --> 2 MO2                                                                            ', & ! index 204
     '    MCO3 + MO2 --> CH2O + HO2 + MO2                                                                 ', & ! index 205
     '    MCO3 + MO2 --> LMO2 + ACTA + CH2O                                                               ', & ! index 206
     '   R4O2 + MCO3 --> 0.05 A3O2 + 0.18 B3O2 + 0.32 ACET + 0.32 ALD2 + 0.32 ETO2 + 0.19 MEK + 0.27 HO2 +', & ! index 207
     '   ATO2 + MCO3 --> CH2O + MCO3 + MO2                                                                ', & ! index 208
     '    KO2 + MCO3 --> ALD2 + MCO3 + MO2                                                                ', & ! index 209
     '   RIO2 + MCO3 --> CO2 + 0.113 DIBOO + 0.14 HC5 + 0.747 CH2O + 0.294 MACR + 0.453 MVK + 0.887 HO2 + ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_7 = (/ &
     '  HC5OO + MCO3 --> 0.09 PCO + 0.17 MOBA + 0.29 DHMOB + 0.216 GLYX + 0.234 GLYC + 0.234 MGLY + 0.216 ', & ! index 211
     '   VRO2 + MCO3 --> 0.6 GLYC + 0.4 MGLY + 0.4 CH2O + 0.4 HO2 + 0.6 MCO3 + MO2                        ', & ! index 212
     '   MRO2 + MCO3 --> 0.857 PCO + 0.143 MGLY + 0.857 HAC + 0.143 CH2O + 0.857 CO + 0.85 HO2 + MO2      ', & ! index 213
     '   B3O2 + MCO3 --> ACET + HO2 + MO2                                                                 ', & ! index 214
     '   R4N1 + MCO3 --> 0.3 R4O2 + 0.75 ALD2 + 0.39 CH2O + NO2 + 0.57 RCHO + MO2                         ', & ! index 215
     '   MAN2 + MCO3 --> CO2 + 0.5 PCO + 0.5 PROPNN + 0.5 MGLY + 0.5 CH2O + 0.5 CO + 0.5 NO2 + 0.5 HO2 + M', & ! index 216
     '   INO2 + MCO3 --> 0.7 ISN1 + 0.23 HC5 + 0.07 CH2O + 0.035 MACR + 0.035 MVK + 0.3 NO2 + 0.8 HO2 + MO', & ! index 217
     '   PRN1 + MCO3 --> ALD2 + CH2O + NO2 + MO2                                                          ', & ! index 218
     '   R4O2 + MCO3 --> ACTA + MEK                                                                       ', & ! index 219
     '   ATO2 + MCO3 --> ACTA + MGLY                                                                      ', & ! index 220
     '    KO2 + MCO3 --> ACTA + MEK                                                                       ', & ! index 221
     '   RIO2 + MCO3 --> ACTA + MEK                                                                       ', & ! index 222
     '  HC5OO + MCO3 --> ACTA + MEK                                                                       ', & ! index 223
     '   VRO2 + MCO3 --> ACTA + MEK                                                                       ', & ! index 224
     '   MRO2 + MCO3 --> ACTA + MEK                                                                       ', & ! index 225
     '   R4N1 + MCO3 --> ACTA + NO2 + RCHO                                                                ', & ! index 226
     '   MAN2 + MCO3 --> ACTA + NO2 + RCHO                                                                ', & ! index 227
     '   INO2 + MCO3 --> ACTA + NO2 + RCHO                                                                ', & ! index 228
     '   PRN1 + MCO3 --> ACTA + NO2 + RCHO                                                                ', & ! index 229
     '   B3O2 + MCO3 --> ACTA + ACET                                                                      ', & ! index 230
     '   ETO2 + MCO3 --> LETO2 + ALD2 + HO2 + MO2                                                         ', & ! index 231
     '   ETO2 + MCO3 --> LETO2 + ACTA + ALD2                                                              ', & ! index 232
     '   RCO3 + MCO3 --> ETO2 + MO2                                                                       ', & ! index 233
     '  NMAO3 + MCO3 --> CH2O + MCO3 + MO2                                                                ', & ! index 234
     '         2 NO3 --> 2 LOx + 2 NO2 + O2                                                               ', & ! index 235
     '     NO2 + MO2 --> LMO2 + MPN                                                                       ', & ! index 236
     '           MPN --> NO2 + MO2                                                                        ', & ! index 237
     '   ISOPNB + O3 --> 0.36 CO2 + 0.64 LOx + 0.21 PCO + 0.21 MVKN + 0.16 HCOOH + 0.42 PROPNN + 0.32 MACR', & ! index 238
     '   ISOPND + O3 --> 0.63 CO2 + LOx + 0.09 EOH + 0.26 ETHLN + 0.06 GLYX + 0.38 PROPNN + 0.3 HNO3 + 0.2', & ! index 239
     '      DMS + OH --> CH2O + SO2 + MO2                                                                 ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_8 = (/ &
     '      DMS + OH --> 0.25 MSA + 0.75 SO2 + MO2                                                        ', & ! index 241
     '     DMS + NO3 --> LOx + HNO3 + CH2O + SO2 + MO2                                                    ', & ! index 242
     '      SO2 + OH --> SO4 + PSO4 + HO2                                                                 ', & ! index 243
     '       O3 + Br --> BrO + O2                                                                         ', & ! index 244
     '     BrO + HO2 --> HOBr + O2                                                                        ', & ! index 245
     '      Br + HO2 --> HBr + O2                                                                         ', & ! index 246
     '      HBr + OH --> Br + H2O                                                                         ', & ! index 247
     '         2 BrO --> 2 LOx + 2 Br + O2                                                                ', & ! index 248
     '         2 BrO --> 2 LOx + Br2 + O2                                                                 ', & ! index 249
     '      BrO + NO --> NO2 + Br                                                                         ', & ! index 250
     '    BrNO3 + Br --> Br2 + NO3                                                                        ', & ! index 251
     '      Br2 + OH --> POx + HOBr + Br                                                                  ', & ! index 252
     '      BrO + OH --> LOx + Br + HO2                                                                   ', & ! index 253
     '      NO3 + Br --> BrO + NO2                                                                        ', & ! index 254
     '     CH2O + Br --> PCO + HBr + CO + HO2                                                             ', & ! index 255
     '     ALD2 + Br --> HBr + MCO3                                                                       ', & ! index 256
     '     ACET + Br --> LACET + ATO2 + HBr                                                               ', & ! index 257
     '     C2H6 + Br --> LC2H6 + ETO2 + HBr                                                               ', & ! index 258
     '     C3H8 + Br --> LC3H8 + A3O2 + HBr                                                               ', & ! index 259
     '      NO2 + Br --> BrNO2                                                                            ', & ! index 260
     '     BrO + NO2 --> BrNO3                                                                            ', & ! index 261
     '    CHBr3 + OH --> 3 Br                                                                             ', & ! index 262
     '   CH2Br2 + OH --> 2 Br                                                                             ', & ! index 263
     '    CH3Br + OH --> Br + HO2 + H2O                                                                   ', & ! index 264
     '      Cl2 + OH --> POx + HOCl + Cl                                                                  ', & ! index 265
     '     ClO + MO2 --> LOx + LMO2 + ClOO + CH2O + HO2                                                   ', & ! index 266
     '      ClO + OH --> LOx + HO2 + Cl                                                                   ', & ! index 267
     '      ClO + OH --> LOx + HCl + O2                                                                   ', & ! index 268
     '     OClO + OH --> LOx + HOCl + O2                                                                  ', & ! index 269
     '    Cl2O2 + OH --> LOx + ClOO + HOCl                                                                ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_9 = (/ &
     '      HCl + OH --> Cl + H2O                                                                         ', & ! index 271
     '     HOCl + OH --> ClO + H2O                                                                        ', & ! index 272
     '    ClNO2 + OH --> POx + HOCl + NO2                                                                 ', & ! index 273
     '    ClNO3 + OH --> POx + HOCl + NO3                                                                 ', & ! index 274
     '    CH3Cl + OH --> HO2 + Cl + H2O                                                                   ', & ! index 275
     '   CH2Cl2 + OH --> HO2 + 2 Cl                                                                       ', & ! index 276
     '    CHCl3 + OH --> HO2 + 3 Cl                                                                       ', & ! index 277
     '      Cl + CH4 --> LCH4 + HCl + MO2                                                                 ', & ! index 278
     '     CH2O + Cl --> PCO + HCl + CO + HO2                                                             ', & ! index 279
     '       O3 + Cl --> ClO + O2                                                                         ', & ! index 280
     '     H2O2 + Cl --> HCl + HO2                                                                        ', & ! index 281
     '      HO2 + Cl --> HCl + O2                                                                         ', & ! index 282
     '      HO2 + Cl --> POx + ClO + OH                                                                   ', & ! index 283
     '     ClO + HO2 --> HOCl + O2                                                                        ', & ! index 284
     '      ClO + NO --> NO2 + Cl                                                                         ', & ! index 285
     '     ClO + NO2 --> ClNO3                                                                            ', & ! index 286
     '         2 ClO --> 2 LOx + Cl2 + O2                                                                 ', & ! index 287
     '         2 ClO --> 2 LOx + ClOO + Cl                                                                ', & ! index 288
     '         2 ClO --> OClO + Cl                                                                        ', & ! index 289
     '       Cl + O2 --> ClOO                                                                             ', & ! index 290
     '          ClOO --> Cl + O2                                                                          ', & ! index 291
     '         2 ClO --> Cl2O2                                                                            ', & ! index 292
     '         Cl2O2 --> 2 ClO                                                                            ', & ! index 293
     '     ClOO + Cl --> Cl2 + O2                                                                         ', & ! index 294
     '     ClOO + Cl --> 2 POx + 2 ClO                                                                    ', & ! index 295
     '     BrO + ClO --> OClO + Br                                                                        ', & ! index 296
     '     BrO + ClO --> 2 LOx + ClOO + Br                                                                ', & ! index 297
     '     BrO + ClO --> 2 LOx + BrCl + O2                                                                ', & ! index 298
     '    ClNO3 + Cl --> Cl2 + NO3                                                                        ', & ! index 299
     '    CH3Cl + Cl --> PCO + 2 HCl + CO + HO2                                                           ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_10 = (/ &
     '   CH2Cl2 + Cl --> PCO + HCl + CO + HO2 + 2 Cl                                                      ', & ! index 301
     '    CHCl3 + Cl --> PCO + HCl + CO + HO2 + 3 Cl                                                      ', & ! index 302
     '    HCOOH + Cl --> CO2 + LHCOOH + HCl + H2O                                                         ', & ! index 303
     '      Cl + MO2 --> POx + LMO2 + ClO + CH2O + HO2                                                    ', & ! index 304
     '       MP + Cl --> LMP + HCl + MO2                                                                  ', & ! index 305
     '     C2H6 + Cl --> LC2H6 + ETO2 + HCl                                                               ', & ! index 306
     '     ETO2 + Cl --> POx + LETO2 + ClO + ALD2 + HO2                                                   ', & ! index 307
     '      Cl + MOH --> LMOH + CH2O + HCl + HO2                                                          ', & ! index 308
     '      EOH + Cl --> LEOH + ALD2 + HCl                                                                ', & ! index 309
     '     ACTA + Cl --> CO2 + LACTA + HCl + MO2                                                          ', & ! index 310
     '     C3H8 + Cl --> LC3H8 + B3O2 + HCl                                                               ', & ! index 311
     '     C3H8 + Cl --> LC3H8 + A3O2 + HCl                                                               ', & ! index 312
     '     ACET + Cl --> LACET + ATO2 + HCl                                                               ', & ! index 313
     '     ISOP + Cl --> LISOP + RIO2 + HCl                                                               ', & ! index 314
     '     ALK4 + Cl --> LALK4 + R4O2 + HCl                                                               ', & ! index 315
     '     PRPE + Cl --> LPRPE + PO2 + HCl                                                                ', & ! index 316
     '     PRPE + Br --> LPRPE + PO2 + HBr                                                                ', & ! index 317
     '        I + NO --> INO                                                                              ', & ! index 318
     '         2 INO --> I2 + 2 NO                                                                        ', & ! index 319
     '       I + NO2 --> IONO                                                                             ', & ! index 320
     '          IONO --> I + NO2                                                                          ', & ! index 321
     '        2 IONO --> I2 + 2 NO2                                                                       ', & ! index 322
     '      I2 + NO3 --> IONO2 + I                                                                        ', & ! index 323
     '      IO + NO2 --> IONO2                                                                            ', & ! index 324
     '         IONO2 --> IO + NO2                                                                         ', & ! index 325
     '     IONO2 + I --> I2 + NO3                                                                         ', & ! index 326
     '       I + BrO --> IO + Br                                                                          ', & ! index 327
     '      IO + BrO --> 2 LOx + I + Br + O2                                                              ', & ! index 328
     '      IO + BrO --> OIO + Br                                                                         ', & ! index 329
     '      OIO + IO --> I2O3                                                                             ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_11 = (/ &
     '         2 OIO --> I2O4                                                                             ', & ! index 331
     '          I2O4 --> 2 OIO                                                                            ', & ! index 332
     '      OIO + NO --> IO + NO2                                                                         ', & ! index 333
     '      IO + ClO --> OClO + I                                                                         ', & ! index 334
     '      IO + ClO --> 2 LOx + I + Cl + O2                                                              ', & ! index 335
     '      IO + ClO --> 2 LOx + ICl + O2                                                                 ', & ! index 336
     '        I + O3 --> IO + O2                                                                          ', & ! index 337
     '       I + HO2 --> HI + O2                                                                          ', & ! index 338
     '       I2 + OH --> POx + HOI + I                                                                    ', & ! index 339
     '       HI + OH --> I + H2O                                                                          ', & ! index 340
     '      HOI + OH --> IO + H2O                                                                         ', & ! index 341
     '      IO + HO2 --> HOI + O2                                                                         ', & ! index 342
     '       IO + NO --> I + NO2                                                                          ', & ! index 343
     '          2 IO --> OIO + I                                                                          ', & ! index 344
     '          2 IO --> I2O2                                                                             ', & ! index 345
     '          I2O2 --> 2 IO                                                                             ', & ! index 346
     '          I2O2 --> OIO + I                                                                          ', & ! index 347
     '     CH3I + OH --> I + MO2 + H2O                                                                    ', & ! index 348
     '      HC5 + OH --> HC5OO                                                                            ', & ! index 349
     '    HC5OO + NO --> POx + 0.09 PCO + 0.17 MOBA + 0.29 DHMOB + 0.216 GLYX + 0.234 GLYC + 0.234 MGLY + ', & ! index 350
     '    HC5OO + NO --> POx + HNO3                                                                       ', & ! index 351
     '   HC5OO + HO2 --> 0.1 IAP + 0.9 GLYC + 0.9 MGLY + 0.9 HO2 + 0.9 OH                                 ', & ! index 352
     '   ISOPND + OH --> 0.9 LOx + 0.1 IEPOXD + 0.9 ISOPNDO2 + 0.1 NO2                                    ', & ! index 353
     '   ISOPNB + OH --> 0.9 LOx + 0.067 IEPOXA + 0.033 IEPOXB + 0.9 ISOPNBO2 + 0.1 NO2                   ', & ! index 354
     ' ISOPNDO2 + NO --> 1.394 POx + 0.27 DHDN + 0.21 ETHLN + 0.075 MVKN + 0.057 HCOOH + 0.3 PROPNN + 0.05', & ! index 355
     'ISOPNDO2 + HO2 --> POx + 0.5 ISNP + 0.2 ETHLN + 0.06 MVKN + 0.23 PROPNN + 0.01 MACRN + 0.23 GLYC + 0', & ! index 356
     ' ISOPNBO2 + NO --> 1.58 POx + 0.21 DHDN + 0.26 MVKN + 0.44 MACRN + 0.09 GLYC + 0.09 HAC + 0.7 CH2O +', & ! index 357
     'ISOPNBO2 + HO2 --> 1.01 POx + 0.51 ISNP + 0.16 MVKN + 0.28 MACRN + 0.06 GLYC + 0.06 HAC + 0.44 CH2O ', & ! index 358
     '     ISNP + OH --> 0.388 LOx + 0.193 ISOPNDO2 + 0.612 R4N1 + 0.193 ISOPNBO2 + 0.612 OH              ', & ! index 359
     '     MVKN + OH --> 0.35 PYAC + POx + 0.65 HCOOH + 0.65 MGLY + 0.35 CH2O + NO3                       ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_12 = (/ &
     '    MACRN + OH --> MACRNO2                                                                          ', & ! index 361
     '  MACRNO2 + NO --> 0.93 CO2 + 1.15 POx + 0.07 HCOOH + 0.08 ACTA + 0.07 MGLY + 0.85 HAC + 0.08 CH2O +', & ! index 362
     ' MACRNO2 + HO2 --> 0.93 CO2 + 0.15 POx + 0.07 HCOOH + 0.08 ACTA + 0.07 MGLY + 0.85 HAC + 0.08 CH2O +', & ! index 363
     ' MACRNO2 + NO2 --> LOx + PMNN                                                                       ', & ! index 364
     '          PMNN --> POx + MACRNO2 + NO2                                                              ', & ! index 365
     '    DHMOB + OH --> 1.5 PCO + 0.5 HAC + 0.5 MEK + 1.5 CO + HO2                                       ', & ! index 366
     '    DIBOO + NO --> POx + 0.48 GLYX + 0.52 GLYC + 0.52 MGLY + 0.48 HAC + NO2 + HO2                   ', & ! index 367
     '    DIBOO + NO --> POx + HNO3                                                                       ', & ! index 368
     '   DIBOO + HO2 --> 0.85 R4P + 0.072 GLYX + 0.078 GLYC + 0.078 MGLY + 0.072 HAC + 0.15 HO2 + 0.15 OH ', & ! index 369
     '     MOBA + OH --> MOBAOO                                                                           ', & ! index 370
     '   MOBAOO + NO --> CO2 + POx + NO2 + HO2 + RCHO                                                     ', & ! index 371
     '   MOBAOO + NO --> POx + HNO3                                                                       ', & ! index 372
     '  MOBAOO + HO2 --> 0.5 CO2 + 0.5 R4P + 0.5 HO2 + 0.5 OH + 0.5 RCHO                                  ', & ! index 373
     '     MOBA + O3 --> CO2 + LOx + MEK + HO2 + OH                                                       ', & ! index 374
     '    ETHLN + OH --> CO2 + CH2O + NO2                                                                 ', & ! index 375
     '   PROPNN + OH --> MGLY + NO2                                                                       ', & ! index 376
     '    CH2OO + NO --> POx + CH2O + NO2                                                                 ', & ! index 377
     '   CH2OO + NO2 --> POx + CH2O + NO3                                                                 ', & ! index 378
     '   CH2OO + SO2 --> SO4 + PSO4 + CH2O                                                                ', & ! index 379
     '   CH2OO + H2O --> H2O2 + CH2O                                                                      ', & ! index 380
     '   CH2OO + H2O --> HCOOH                                                                            ', & ! index 381
     '   MACROO + CO --> LCO + MACR                                                                       ', & ! index 382
     '   MACROO + NO --> POx + MACR + NO2                                                                 ', & ! index 383
     '  MACROO + NO2 --> POx + MACR + NO3                                                                 ', & ! index 384
     '  MACROO + SO2 --> SO4 + PSO4 + MACR                                                                ', & ! index 385
     '  MACROO + H2O --> MRP                                                                              ', & ! index 386
     '  MACROO + H2O --> H2O2 + MACR                                                                      ', & ! index 387
     '    MVKOO + CO --> LCO + MVK                                                                        ', & ! index 388
     '    MVKOO + NO --> POx + MVK + NO2                                                                  ', & ! index 389
     '   MVKOO + NO2 --> POx + MVK + NO3                                                                  ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_13 = (/ &
     '   MVKOO + SO2 --> SO4 + PSO4 + MVK                                                                 ', & ! index 391
     '   MVKOO + H2O --> H2O2 + MVK                                                                       ', & ! index 392
     '   MGLYOO + CO --> LCO + MGLY                                                                       ', & ! index 393
     '   MGLYOO + NO --> POx + MGLY + NO2                                                                 ', & ! index 394
     '  MGLYOO + NO2 --> POx + MGLY + NO3                                                                 ', & ! index 395
     '  MGLYOO + SO2 --> SO4 + PSO4 + MGLY                                                                ', & ! index 396
     '  MGLYOO + H2O --> H2O2 + MGLY                                                                      ', & ! index 397
     '    MGLOO + CO --> LCO + MGLY                                                                       ', & ! index 398
     '    MGLOO + NO --> POx + MGLY + NO2                                                                 ', & ! index 399
     '   MGLOO + NO2 --> POx + MGLY + NO3                                                                 ', & ! index 400
     '   MGLOO + SO2 --> SO4 + PSO4 + MGLY                                                                ', & ! index 401
     '   MGLOO + H2O --> MCO3 + MO2                                                                       ', & ! index 402
     '   MGLOO + H2O --> H2O2 + MGLY                                                                      ', & ! index 403
     '  CH3CHOO + CO --> LCO + ALD2                                                                       ', & ! index 404
     '  CH3CHOO + NO --> POx + ALD2 + NO2                                                                 ', & ! index 405
     ' CH3CHOO + NO2 --> POx + ALD2 + NO3                                                                 ', & ! index 406
     ' CH3CHOO + SO2 --> SO4 + PSO4 + ALD2                                                                ', & ! index 407
     ' CH3CHOO + H2O --> H2O2 + ALD2                                                                      ', & ! index 408
     ' CH3CHOO + H2O --> ACTA                                                                             ', & ! index 409
     '     GAOO + CO --> LCO + GLYC                                                                       ', & ! index 410
     '     GAOO + NO --> POx + GLYC + NO2                                                                 ', & ! index 411
     '    GAOO + NO2 --> POx + GLYC + NO3                                                                 ', & ! index 412
     '    GAOO + SO2 --> SO4 + PSO4 + GLYC                                                                ', & ! index 413
     '    GAOO + H2O --> H2O2 + GLYC                                                                      ', & ! index 414
     '    GAOO + H2O --> HAC                                                                              ', & ! index 415
     '     BENZ + OH --> BRO2 + 0.252 GLYX + 1.92 CH2O + OH                                               ', & ! index 416
     '     TOLU + OH --> TRO2 + 0.26 GLYX + 0.215 MGLY + 1.92 CH2O + OH                                   ', & ! index 417
     '     XYLE + OH --> XRO2 + 0.268 GLYX + 0.463 MGLY + 1.92 CH2O + OH                                  ', & ! index 418
     '    XYLE + NO3 --> CO2 + 2 LOx                                                                      ', & ! index 419
     '          MONX --> 3 CH2O                                                                           ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_14 = (/ &
     '    BRO2 + HO2 --> LBRO2H                                                                           ', & ! index 421
     '     BRO2 + NO --> LBRO2N                                                                           ', & ! index 422
     '    TRO2 + HO2 --> LTRO2H                                                                           ', & ! index 423
     '     TRO2 + NO --> LTRO2N                                                                           ', & ! index 424
     '    XRO2 + HO2 --> LXRO2H                                                                           ', & ! index 425
     '     XRO2 + NO --> LXRO2N                                                                           ', & ! index 426
     '     MTPA + OH --> PIO2                                                                             ', & ! index 427
     '     PIO2 + NO --> 0.82 POx + 0.12 MONITS + 0.06 MONITU + 0.07 HCOOH + 0.11 ACET + 0.23 CH2O + 0.44 ', & ! index 428
     '    PIO2 + HO2 --> PIP                                                                              ', & ! index 429
     '    PIO2 + MO2 --> LMO2 + 0.25 ROH + 0.75 CH2O + 0.75 MEK + HO2 + 0.75 RCHO + 0.25 MOH              ', & ! index 430
     '   PIO2 + MCO3 --> MEK + 0.5 HO2 + RCHO + 0.5 MO2 + RCOOH                                           ', & ! index 431
     '    PIO2 + NO3 --> LOx + MEK + NO2 + HO2 + RCHO                                                     ', & ! index 432
     '     MTPA + O3 --> LOx + 0.14 PCO + 0.02 H2O2 + 0.62 KO2 + 0.53 MEK + 0.14 CO + 0.1 HO2 + 0.85 OH + ', & ! index 433
     '    MTPA + NO3 --> 2 LOx + 0.9 OLND + 0.1 OLNN                                                      ', & ! index 434
     '     LIMO + OH --> LIMO2                                                                            ', & ! index 435
     '     LIMO + O3 --> LOx + 0.14 PCO + 0.02 H2O2 + 0.01 HCOOH + 0.42 KO2 + 0.46 PRPE + 0.04 CH2O + 0.16', & ! index 436
     '    LIMO + NO3 --> 2 LOx + 0.5 OLND + 0.5 OLNN                                                      ', & ! index 437
     '    LIMO2 + NO --> 0.78 POx + 0.22 MONITU + 0.058 HAC + 0.289 PRPE + 0.231 CH2O + 0.289 MEK + 0.78 N', & ! index 438
     '   LIMO2 + HO2 --> PIP                                                                              ', & ! index 439
     '   LIMO2 + MO2 --> LMO2 + 0.25 ROH + 0.192 PRPE + 1.04 CH2O + 0.308 MACR + HO2 + 0.25 MOH           ', & ! index 440
     '  LIMO2 + MCO3 --> 0.192 PRPE + 0.385 CH2O + 0.308 MACR + 0.5 HO2 + 0.5 MO2 + 0.5 RCOOH             ', & ! index 441
     '   LIMO2 + NO3 --> LOx + 0.385 PRPE + 0.385 CH2O + 0.615 MACR + NO2 + HO2                           ', & ! index 442
     '      PIP + OH --> 0.44 R4O2 + 0.41 MEK + 0.49 OH + 0.08 RCHO                                       ', & ! index 443
     '     OLNN + NO --> POx + MONITS + NO2 + HO2                                                         ', & ! index 444
     '     OLND + NO --> 2 POx + 0.287 CH2O + 0.464 MEK + 2 NO2 + 1.24 RCHO                               ', & ! index 445
     '    OLNN + HO2 --> 0.7 MONITS + 0.3 MONITU                                                          ', & ! index 446
     '    OLND + HO2 --> 0.7 MONITS + 0.3 MONITU                                                          ', & ! index 447
     '    OLNN + MO2 --> LMO2 + 0.7 MONITS + 0.3 MONITU + CH2O + 2 HO2                                    ', & ! index 448
     '    OLND + MO2 --> 0.5 POx + LMO2 + 0.25 ROH + 0.35 MONITS + 0.15 MONITU + 0.965 CH2O + 0.348 MEK + ', & ! index 449
     '   OLNN + MCO3 --> 0.7 MONITS + 0.3 MONITU + HO2 + MO2                                              ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_15 = (/ &
     '   OLND + MCO3 --> POx + 0.287 CH2O + 0.464 MEK + NO2 + 1.24 RCHO + 0.5 MO2 + 0.5 RCOOH             ', & ! index 451
     '    OLNN + NO3 --> LOx + 0.7 MONITS + 0.3 MONITU + NO2 + HO2                                        ', & ! index 452
     '    OLND + NO3 --> 0.287 CH2O + 0.464 MEK + 2 NO2 + 1.24 RCHO                                       ', & ! index 453
     '        2 OLNN --> 1.4 MONITS + 0.6 MONITU + HO2                                                    ', & ! index 454
     '   OLND + OLNN --> 0.5 POx + 1.05 MONITS + 0.45 MONITU + 0.202 CH2O + 0.149 MEK + 0.5 NO2 + 0.5 HO2 ', & ! index 455
     '        2 OLND --> POx + 0.7 MONITS + 0.3 MONITU + 0.504 CH2O + 0.285 MEK + NO2 + 1.21 RCHO         ', & ! index 456
     '   MONITS + OH --> HONIT                                                                            ', & ! index 457
     '   MONITU + OH --> HONIT                                                                            ', & ! index 458
     '   MONITU + O3 --> LOx + HONIT                                                                      ', & ! index 459
     '  MONITU + NO3 --> 2 LOx + HONIT                                                                    ', & ! index 460
     '  MONITS + NO3 --> 2 LOx + HONIT                                                                    ', & ! index 461
     '    HONIT + OH --> 2 POx + HAC + NO3                                                                ', & ! index 462
     '    HC187 + OH --> 0.5 PCO + 0.5 MGLY + CH2O + 0.5 CO + 0.5 HO2 + 0.5 MCO3                          ', & ! index 463
     '    HPALD + OH --> 0.085 CO2 + 0.55 PCO + 0.365 HPC52O2 + 0.085 GLYX + 0.55 MGLY + 0.55 CH2O + 0.55 ', & ! index 464
     '  DHPCARP + NO --> POx + GLYX + MGLY + NO2 + OH                                                     ', & ! index 465
     '  HPC52O2 + NO --> POx + GLYX + MGLY + NO2 + OH                                                     ', & ! index 466
     ' DHPCARP + HO2 --> RCOOH                                                                            ', & ! index 467
     ' HPC52O2 + HO2 --> RCOOH                                                                            ', & ! index 468
     '       DHPCARP --> PCO + CO + OH + RCOOH                                                            ', & ! index 469
     '       DHPCARP --> DHDC                                                                             ', & ! index 470
     '           HO2 --> O2                                                                               ', & ! index 471
     '           NO2 --> 0.5 LOx + 0.5 HNO2 + 0.5 HNO3                                                    ', & ! index 472
     '           NO3 --> LOx + HNO3                                                                       ', & ! index 473
     '           NO3 --> NIT + 2 LOx                                                                      ', & ! index 474
     '           NO3 --> NITs + 2 LOx                                                                     ', & ! index 475
     '          N2O5 --> LOx + 2 HNO3                                                                     ', & ! index 476
     '    N2O5 + HCl --> LOx + HNO3 + ClNO2                                                               ', & ! index 477
     ' N2O5 + SALACL --> LOx + HNO3 + ClNO2                                                               ', & ! index 478
     ' N2O5 + SALCCL --> LOx + HNO3 + ClNO2                                                               ', & ! index 479
     '   SALACL + OH --> 0.5 Cl2                                                                          ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_16 = (/ &
     '   SALCCL + OH --> 0.5 Cl2                                                                          ', & ! index 481
     '   BrNO3 + H2O --> HNO3 + HOBr                                                                      ', & ! index 482
     '   BrNO3 + HCl --> LOx + BrCl + HNO3                                                                ', & ! index 483
     '   ClNO3 + H2O --> HOCl + HNO3                                                                      ', & ! index 484
     '   ClNO3 + HCl --> LOx + Cl2 + HNO3                                                                 ', & ! index 485
     '   ClNO3 + HBr --> LOx + BrCl + HNO3                                                                ', & ! index 486
     'BrSALA + ClNO3 --> LOx + BrCl + HNO3                                                                ', & ! index 487
     'BrSALC + ClNO3 --> LOx + BrCl + HNO3                                                                ', & ! index 488
     'ClNO3 + SALACL --> LOx + Cl2 + HNO3                                                                 ', & ! index 489
     'ClNO3 + SALCCL --> LOx + Cl2 + HNO3                                                                 ', & ! index 490
     'ClNO2 + SALACL --> Cl2 + HNO3                                                                       ', & ! index 491
     'ClNO2 + SALCCL --> Cl2 + HNO3                                                                       ', & ! index 492
     '   ClNO2 + HCl --> Cl2 + HNO3                                                                       ', & ! index 493
     'BrSALA + ClNO2 --> LOx + BrCl + HNO2                                                                ', & ! index 494
     'BrSALC + ClNO2 --> LOx + BrCl + HNO2                                                                ', & ! index 495
     '   ClNO2 + HBr --> LOx + BrCl + HNO2                                                                ', & ! index 496
     '    HOCl + HCl --> LOx + Cl2 + H2O                                                                  ', & ! index 497
     '    HOCl + HBr --> LOx + BrCl + H2O                                                                 ', & ! index 498
     ' HOCl + SALACL --> LOx + Cl2 + H2O                                                                  ', & ! index 499
     ' HOCl + SALCCL --> LOx + Cl2 + H2O                                                                  ', & ! index 500
     '    HOBr + HBr --> LOx + Br2 + H2O                                                                  ', & ! index 501
     '    HOBr + HCl --> LOx + BrCl + H2O                                                                 ', & ! index 502
     ' HOBr + SALACL --> LOx + BrCl + H2O                                                                 ', & ! index 503
     ' HOBr + SALCCL --> LOx + BrCl + H2O                                                                 ', & ! index 504
     ' BrSALA + HOBr --> LOx + Br2                                                                        ', & ! index 505
     ' BrSALC + HOBr --> LOx + Br2                                                                        ', & ! index 506
     '          HOBr --> SO4H1 + LOx + HBr                                                                ', & ! index 507
     '          HOBr --> SO4H2 + LOx + HBr                                                                ', & ! index 508
     '      HBr + O3 --> HOBr                                                                             ', & ! index 509
     '   BrSALA + O3 --> HOBr                                                                             ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_17 = (/ &
     '   BrSALC + O3 --> HOBr                                                                             ', & ! index 511
     '           HBr --> BrSALA                                                                           ', & ! index 512
     '           HBr --> BrSALC                                                                           ', & ! index 513
     '            HI --> AERI                                                                             ', & ! index 514
     '            HI --> ISALA                                                                            ', & ! index 515
     '            HI --> ISALC                                                                            ', & ! index 516
     '           HOI --> ISALA + LOx                                                                      ', & ! index 517
     '           HOI --> ISALC + LOx                                                                      ', & ! index 518
     '          I2O2 --> 2 AERI + 2 LOx                                                                   ', & ! index 519
     '          I2O2 --> 2 ISALA + 2 LOx                                                                  ', & ! index 520
     '          I2O2 --> 2 ISALC + 2 LOx                                                                  ', & ! index 521
     '          I2O3 --> 2 AERI + 3 LOx                                                                   ', & ! index 522
     '          I2O3 --> 2 ISALA + 3 LOx                                                                  ', & ! index 523
     '          I2O3 --> 2 ISALC + 3 LOx                                                                  ', & ! index 524
     '          I2O4 --> 2 AERI + 4 LOx                                                                   ', & ! index 525
     '          I2O4 --> 2 ISALA + 4 LOx                                                                  ', & ! index 526
     '          I2O4 --> 2 ISALC + 4 LOx                                                                  ', & ! index 527
     '          IONO --> ISALA + LOx                                                                      ', & ! index 528
     '          IONO --> ISALC + LOx                                                                      ', & ! index 529
     '         IONO2 --> ISALA + 2 LOx                                                                    ', & ! index 530
     '         IONO2 --> ISALC + 2 LOx                                                                    ', & ! index 531
     '          IONO --> LOx + IBr + HNO2                                                                 ', & ! index 532
     ' IONO + SALACL --> LOx + ICl + HNO2                                                                 ', & ! index 533
     ' IONO + SALCCL --> LOx + ICl + HNO2                                                                 ', & ! index 534
     '         IONO2 --> LOx + IBr + HNO3                                                                 ', & ! index 535
     'IONO2 + SALACL --> LOx + ICl + HNO3                                                                 ', & ! index 536
     'IONO2 + SALCCL --> LOx + ICl + HNO3                                                                 ', & ! index 537
     '           HOI --> LOx + IBr                                                                        ', & ! index 538
     '  HOI + SALACL --> LOx + ICl                                                                        ', & ! index 539
     '  HOI + SALCCL --> LOx + ICl                                                                        ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_18 = (/ &
     '          GLYX --> SOAGX                                                                            ', & ! index 541
     '          MGLY --> SOAMG                                                                            ', & ! index 542
     '        IEPOXA --> SOAIE                                                                            ', & ! index 543
     '        IEPOXB --> SOAIE                                                                            ', & ! index 544
     '        IEPOXD --> SOAIE                                                                            ', & ! index 545
     '          IMAE --> SOAME                                                                            ', & ! index 546
     '          LVOC --> LVOCOA                                                                           ', & ! index 547
     '        ISN1OG --> ISN1OA                                                                           ', & ! index 548
     '        ISOPND --> LOx + IONITA                                                                     ', & ! index 549
     '        ISOPNB --> LOx + IONITA                                                                     ', & ! index 550
     '         MACRN --> LOx + IONITA                                                                     ', & ! index 551
     '          MVKN --> LOx + IONITA                                                                     ', & ! index 552
     '          R4N2 --> LOx + IONITA                                                                     ', & ! index 553
     '          DHDN --> IONITA                                                                           ', & ! index 554
     '        MONITS --> MONITA                                                                           ', & ! index 555
     '        MONITU --> MONITA                                                                           ', & ! index 556
     '         HONIT --> MONITA                                                                           ', & ! index 557
     '        IONITA --> INDIOL + POx + HNO3                                                              ', & ! index 558
     '        MONITA --> INDIOL + POx + HNO3                                                              ', & ! index 559
     '            O3 --> LOx + 2 OH                                                                       ', & ! index 560
     '            O3 --> LOx + HO2 + OH                                                                   ', & ! index 561
     '           NO2 --> O3 + NO                                                                          ', & ! index 562
     '          H2O2 --> 2 OH                                                                             ', & ! index 563
     '            MP --> LMP + CH2O + HO2 + OH                                                            ', & ! index 564
     '          CH2O --> PCO + CO + 2 HO2                                                                 ', & ! index 565
     '          CH2O --> PCO + CO + H2                                                                    ', & ! index 566
     '          HNO3 --> NO2 + OH                                                                         ', & ! index 567
     '          HNO2 --> OH + NO                                                                          ', & ! index 568
     '          HNO4 --> POx + NO3 + OH                                                                   ', & ! index 569
     '          HNO4 --> NO2 + HO2                                                                        ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_19 = (/ &
     '           NO3 --> NO2 + O3                                                                         ', & ! index 571
     '           NO3 --> 2 LOx + NO + O2                                                                  ', & ! index 572
     '          N2O5 --> NO2 + NO3                                                                        ', & ! index 573
     '          ALD2 --> 0.88 PCO + 0.88 CO + HO2 + 0.12 MCO3 + 0.88 MO2                                  ', & ! index 574
     '          ALD2 --> PCO + CO + CH4                                                                   ', & ! index 575
     '           PAN --> 0.3 POx + 0.7 NO2 + 0.3 NO3 + 0.7 MCO3 + 0.3 MO2                                 ', & ! index 576
     '          RCHO --> PCO + ETO2 + CO + HO2                                                            ', & ! index 577
     '          ACET --> LACET + MCO3 + MO2                                                               ', & ! index 578
     '          ACET --> PCO + LACET + CO + 2 MO2                                                         ', & ! index 579
     '           MEK --> 0.15 RCO3 + 0.85 ETO2 + 0.85 MCO3 + 0.15 MO2                                     ', & ! index 580
     '          GLYC --> PCO + 0.9 CH2O + CO + 1.73 HO2 + 0.07 OH + 0.1 MOH                               ', & ! index 581
     '          GLYX --> 2 PCO + 2 CO + 2 HO2                                                             ', & ! index 582
     '          GLYX --> 2 PCO + 2 CO + H2                                                                ', & ! index 583
     '          GLYX --> PCO + CH2O + CO                                                                  ', & ! index 584
     '          MGLY --> PCO + CO + HO2 + MCO3                                                            ', & ! index 585
     '           MVK --> PCO + PRPE + CO                                                                  ', & ! index 586
     '           MVK --> PCO + CH2O + CO + HO2 + MCO3                                                     ', & ! index 587
     '           MVK --> RCO3 + MO2                                                                       ', & ! index 588
     '          MACR --> PCO + CH2O + CO + HO2 + MCO3                                                     ', & ! index 589
     '           HAC --> CH2O + HO2 + MCO3                                                                ', & ! index 590
     '          INPN --> NO2 + HO2 + OH + RCHO                                                            ', & ! index 591
     '          PRPN --> NO2 + HO2 + OH + RCHO                                                            ', & ! index 592
     '           ETP --> ALD2 + HO2 + OH                                                                  ', & ! index 593
     '          RA3P --> HO2 + OH + RCHO                                                                  ', & ! index 594
     '          RB3P --> ACET + HO2 + OH                                                                  ', & ! index 595
     '           R4P --> HO2 + OH + RCHO                                                                  ', & ! index 596
     '            PP --> ALD2 + CH2O + HO2 + OH                                                           ', & ! index 597
     '            RP --> ALD2 + HO2 + OH                                                                  ', & ! index 598
     '          RIPA --> 0.005 LVOC + 0.275 HC5 + 0.71 CH2O + 0.285 MACR + 0.425 MVK + 0.985 HO2 + 0.985 O', & ! index 599
     '          RIPB --> 0.005 LVOC + 0.275 HC5 + 0.71 CH2O + 0.285 MACR + 0.425 MVK + 0.985 HO2 + 0.985 O' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_20 = (/ &
     '          RIPD --> 0.005 LVOC + 0.275 HC5 + 0.71 CH2O + 0.285 MACR + 0.425 MVK + 0.985 HO2 + 0.985 O', & ! index 601
     '           IAP --> 0.67 PCO + 0.26 GLYC + 0.58 MGLY + 0.36 HAC + 0.67 CO + HO2 + OH + 0.19 H2       ', & ! index 602
     '          ISNP --> NO2 + HO2 + OH + RCHO                                                            ', & ! index 603
     '           VRP --> 0.7 GLYC + 0.3 MGLY + 0.3 CH2O + 0.3 HO2 + OH + 0.7 MCO3                         ', & ! index 604
     '           MRP --> 0.5 PCO + HAC + 0.5 CH2O + 0.5 CO + HO2 + OH                                     ', & ! index 605
     '          MAOP --> CH2O + OH + MCO3                                                                 ', & ! index 606
     '          R4N2 --> 0.05 A3O2 + 0.18 B3O2 + 0.32 ACET + 0.32 ALD2 + 0.32 ETO2 + 0.19 MEK + NO2 + 0.27', & ! index 607
     '           MAP --> OH + MO2                                                                         ', & ! index 608
     '         MACRN --> 0.5 PCO + MGLY + HAC + 0.5 CH2O + 0.5 CO + NO2 + HO2                             ', & ! index 609
     '          MVKN --> GLYC + NO2 + MCO3                                                                ', & ! index 610
     '        ISOPNB --> HC5 + NO2 + HO2                                                                  ', & ! index 611
     '           Br2 --> 2 Br                                                                             ', & ! index 612
     '           BrO --> O3 + Br                                                                          ', & ! index 613
     '          HOBr --> LOx + Br + OH                                                                    ', & ! index 614
     '         BrNO3 --> NO3 + Br                                                                         ', & ! index 615
     '         BrNO3 --> BrO + NO2                                                                        ', & ! index 616
     '         BrNO2 --> NO2 + Br                                                                         ', & ! index 617
     '         CHBr3 --> 3 Br                                                                             ', & ! index 618
     '        CH2Br2 --> 2 Br                                                                             ', & ! index 619
     '         CH3Br --> Br + MO2                                                                         ', & ! index 620
     '         CH3Cl --> Cl + MO2                                                                         ', & ! index 621
     '        CH2Cl2 --> 2 Cl                                                                             ', & ! index 622
     '          BrCl --> Br + Cl                                                                          ', & ! index 623
     '           Cl2 --> 2 Cl                                                                             ', & ! index 624
     '           ClO --> O3 + Cl                                                                          ', & ! index 625
     '          OClO --> ClO + O3                                                                         ', & ! index 626
     '         Cl2O2 --> 2 LOx + ClOO + Cl                                                                ', & ! index 627
     '         ClNO2 --> NO2 + Cl                                                                         ', & ! index 628
     '         ClNO3 --> NO3 + Cl                                                                         ', & ! index 629
     '         ClNO3 --> ClO + NO2                                                                        ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(30) :: EQN_NAMES_21 = (/ &
     '          HOCl --> LOx + OH + Cl                                                                    ', & ! index 631
     '          ClOO --> Cl + O2                                                                          ', & ! index 632
     '            I2 --> 2 I                                                                              ', & ! index 633
     '           HOI --> LOx + I + OH                                                                     ', & ! index 634
     '            IO --> I + O3                                                                           ', & ! index 635
     '           OIO --> 2 LOx + I + O2                                                                   ', & ! index 636
     '           INO --> I + NO                                                                           ', & ! index 637
     '          IONO --> I + NO2                                                                          ', & ! index 638
     '         IONO2 --> I + NO3                                                                          ', & ! index 639
     '          I2O2 --> OIO + I                                                                          ', & ! index 640
     '          CH3I --> I                                                                                ', & ! index 641
     '         CH2I2 --> 2 I                                                                              ', & ! index 642
     '        CH2ICl --> I + Cl                                                                           ', & ! index 643
     '        CH2IBr --> I + Br                                                                           ', & ! index 644
     '          I2O4 --> 2 OIO                                                                            ', & ! index 645
     '          I2O3 --> OIO + IO                                                                         ', & ! index 646
     '           IBr --> I + Br                                                                           ', & ! index 647
     '           ICl --> I + Cl                                                                           ', & ! index 648
     '           MPN --> POx + CH2O + NO3 + HO2                                                           ', & ! index 649
     '           MPN --> NO2 + MO2                                                                        ', & ! index 650
     '        ISOPND --> HC5 + NO2 + HO2                                                                  ', & ! index 651
     '        PROPNN --> PCO + CH2O + CO + NO2 + MO2                                                      ', & ! index 652
     '         ATOOH --> CH2O + OH + MCO3                                                                 ', & ! index 653
     '           PIP --> HO2 + OH + RCHO                                                                  ', & ! index 654
     '          IPMN --> 0.4 CO2 + 0.4 POx + 0.6 IMAO3 + 0.4 CH2O + 0.6 NO2 + 0.4 NO3 + 0.4 MCO3          ', & ! index 655
     '         ETHLN --> PCO + CH2O + CO + NO2 + HO2                                                      ', & ! index 656
     '          DHDC --> GLYX + MGLY + 2 OH                                                               ', & ! index 657
     '         HPALD --> 1.89 PCO + 0.11 GLYC + 0.5 MGLY + 0.39 HAC + 1.89 CO + 0.89 HO2 + 2 OH + 0.11 MCO', & ! index 658
     '          ISN1 --> 0.25 GLYX + 0.5 GLYC + 0.25 MGLY + 0.5 HAC + CH2O + NO2 + HO2                    ', & ! index 659
     '        MONITS --> POx + MEK + NO2                                                                  ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(2) :: EQN_NAMES_22 = (/ &
     '        MONITU --> POx + NO2 + RCHO                                                                 ', & ! index 661
     '         HONIT --> POx + HAC + NO2                                                                  ' /)
  CHARACTER(LEN=100), PARAMETER, DIMENSION(662) :: EQN_NAMES = (/&
    EQN_NAMES_0, EQN_NAMES_1, EQN_NAMES_2, EQN_NAMES_3, EQN_NAMES_4, &
    EQN_NAMES_5, EQN_NAMES_6, EQN_NAMES_7, EQN_NAMES_8, EQN_NAMES_9, &
    EQN_NAMES_10, EQN_NAMES_11, EQN_NAMES_12, EQN_NAMES_13, EQN_NAMES_14, &
    EQN_NAMES_15, EQN_NAMES_16, EQN_NAMES_17, EQN_NAMES_18, EQN_NAMES_19, &
    EQN_NAMES_20, EQN_NAMES_21, EQN_NAMES_22 /)

  CHARACTER(LEN=15), PARAMETER, DIMENSION(19) :: FAM_NAMES = (/ &
     'POx            ','LOx            ','PCO            ', & ! index 1 - 3
     'LCO            ','PSO4           ','LCH4           ', & ! index 4 - 6
     'LHCOOH         ','LMO2           ','LMP            ', & ! index 7 - 9
     'LC2H6          ','LETO2          ','LMOH           ', & ! index 10 - 12
     'LEOH           ','LACTA          ','LC3H8          ', & ! index 13 - 15
     'LACET          ','LISOP          ','LALK4          ', & ! index 16 - 18
     'LPRPE          ' /)

! INLINED global variables

! End INLINED global variables


END MODULE gckpp_Monitor
