C                                                                      C
C----------------------------------------------------------------------C
C                                                                      C
C     Automatically generated code
C
C     Ji-Woong Park and Tianfeng Lu
C     University of Connecticut
C     191 Auditorium Road U-3139
C     Storrs, CT 06269, USA
C     Email: tlu@engr.uconn.edu
C
C     October 03, 2019
C
C     Copyright © 2019 HyChem   
C
C                                                                      C
C----------------------------------------------------------------------C
C                                                                      C
      SUBROUTINE CKWYP_USER  (P, T, Y, ICKWRK, RCKWRK, WDOT)
      IMPLICIT DOUBLE PRECISION (A-H, O-Z), INTEGER (I-N)
      DIMENSION Y(*),WDOT(*),ICKWRK(*),RCKWRK(*)
      DIMENSION RF(496),RB(496),RKLOW(29),C(47)
      DIMENSION XQ(18)
C
      CALL YTCP(P, T, Y, C)
      CALL RATT(T, RF, RB, RKLOW)
      CALL RATX(T, C, RF, RB, RKLOW)
      CALL QSSA(RF, RB, XQ)
      CALL RDOT(RF, RB, WDOT)
C
      END
C                                                                      C
C----------------------------------------------------------------------C
C                                                                      C
      SUBROUTINE CKWYR_USER  (RHO, T, Y, ICKWRK, RCKWRK, WDOT)
      IMPLICIT DOUBLE PRECISION (A-H, O-Z), INTEGER (I-N)
      DIMENSION Y(*),WDOT(*),ICKWRK(*),RCKWRK(*)
      DIMENSION RF(496),RB(496),RKLOW(29),C(47)
      DIMENSION XQ(18)
C
      CALL YTCR(RHO, T, Y, C)
      CALL RATT(T, RF, RB, RKLOW)
      CALL RATX(T, C, RF, RB, RKLOW)
      CALL QSSA(RF, RB, XQ)
      CALL RDOT(RF, RB, WDOT)
C
      END
C                                                                      C
C----------------------------------------------------------------------C
C                                                                      C
      SUBROUTINE YTCP (P, T, Y, C)
      IMPLICIT DOUBLE PRECISION (A-H, O-Z), INTEGER (I-N)
      DIMENSION Y(*), C(*)
C
      C(1) = Y(1)/1.833601440191269D2
      C(2) = Y(2)/2.805418062210083D1
      C(3) = Y(3)/1.604303026199341D1
      C(4) = Y(4)/4.208127093315125D1
      C(5) = Y(5)/5.610836124420166D1
      C(6) = Y(6)/5.610836124420166D1
      C(7) = Y(7)/2.015939950942993D0
      C(8) = Y(8)/3.007012057304382D1
      C(9) = Y(9)/2.80105504989624D1
      C(10) = Y(10)/7.811472201347351D1
      C(11) = Y(11)/2.603824067115784D1
      C(12) = Y(12)/9.214181232452393D1
      C(13) = Y(13)/1.503506028652191D1
      C(14) = Y(14)/3.199880027770996D1
      C(15) = Y(15)/1.007969975471497D0
      C(16) = Y(16)/1.700737011432648D1
      C(17) = Y(17)/3.300677025318146D1
      C(18) = Y(18)/1.599940013885498D1
      C(19) = Y(19)/1.801534008979797D1
      C(20) = Y(20)/3.401474022865295D1
      C(21) = Y(21)/3.00264904499054D1
      C(22) = Y(22)/3.204243040084839D1
      C(23) = Y(23)/4.400995063781738D1
      C(24) = Y(24)/4.203764081001282D1
      C(25) = Y(25)/3.905736100673676D1
      C(26) = Y(26)/4.107330095767975D1
      C(27) = Y(27)/5.606473112106323D1
      C(28) = Y(28)/8.008703184127808D1
      C(29) = Y(29)/6.509560167789459D1
      C(30) = Y(30)/9.310615217685699D1
      C(31) = Y(31)/1.080975823402405D2
      C(32) = Y(32)/1.071332424879074D2
      C(33) = Y(33)/3.000609970092773D1
      C(34) = Y(34)/4.600549983978271D1
      C(35) = Y(35)/2.702581989765167D1
      C(36) = Y(36)/1.703060948848724D1
      C(37) = Y(37)/1.602263951301575D1
      C(38) = Y(38)/3.101406967639923D1
      C(39) = Y(39)/4.401279926300049D1
      C(40) = Y(40)/2.702581989765167D1
      C(41) = Y(41)/4.302522003650665D1
      C(42) = Y(42)/4.302522003650665D1
      C(43) = Y(43)/4.201725006103516D1
      C(44) = Y(44)/4.002454948425293D1
      C(45) = Y(45)/4.103251945972443D1
      C(46) = Y(46)/2.904175984859467D1
      C(47) = Y(47)/2.801339912414551D1
C
      SUM = 0D0
      DO K = 1, 47
         SUM = SUM + C(K)
      ENDDO
      SUM = P/(SUM*T*8.314510D7)
C
      DO K = 1, 47
         C(K) = C(K)*SUM
      ENDDO
C
      END
C                                                                      C
C----------------------------------------------------------------------C
C                                                                      C
      SUBROUTINE YTCR (RHO, T, Y, C)
      IMPLICIT DOUBLE PRECISION (A-H, O-Z), INTEGER (I-N)
      DIMENSION Y(*), C(*)
      DATA SMALL/1D-50/
C
C     POSF5433
      C(1) = Y(1)/1.833601440191269D2
C     C2H4
      C(2) = Y(2)/2.805418062210083D1
C     CH4
      C(3) = Y(3)/1.604303026199341D1
C     C3H6
      C(4) = Y(4)/4.208127093315125D1
C     iC4H8
      C(5) = Y(5)/5.610836124420166D1
C     C4H81
      C(6) = Y(6)/5.610836124420166D1
C     H2
      C(7) = Y(7)/2.015939950942993D0
C     C2H6
      C(8) = Y(8)/3.007012057304382D1
C     CO
      C(9) = Y(9)/2.80105504989624D1
C     C6H6
      C(10) = Y(10)/7.811472201347351D1
C     C2H2
      C(11) = Y(11)/2.603824067115784D1
C     C6H5CH3
      C(12) = Y(12)/9.214181232452393D1
C     CH3
      C(13) = Y(13)/1.503506028652191D1
C     O2
      C(14) = Y(14)/3.199880027770996D1
C     H
      C(15) = Y(15)/1.007969975471497D0
C     OH
      C(16) = Y(16)/1.700737011432648D1
C     HO2
      C(17) = Y(17)/3.300677025318146D1
C     O
      C(18) = Y(18)/1.599940013885498D1
C     H2O
      C(19) = Y(19)/1.801534008979797D1
C     H2O2
      C(20) = Y(20)/3.401474022865295D1
C     CH2O
      C(21) = Y(21)/3.00264904499054D1
C     CH3OH
      C(22) = Y(22)/3.204243040084839D1
C     CO2
      C(23) = Y(23)/4.400995063781738D1
C     CH2CO
      C(24) = Y(24)/4.203764081001282D1
C     C3H3
      C(25) = Y(25)/3.905736100673676D1
C     aC3H5
      C(26) = Y(26)/4.107330095767975D1
C     C2H3CHO
      C(27) = Y(27)/5.606473112106323D1
C     C5H4O
      C(28) = Y(28)/8.008703184127808D1
C     C5H5
      C(29) = Y(29)/6.509560167789459D1
C     C6H5O
      C(30) = Y(30)/9.310615217685699D1
C     C6H4O2
      C(31) = Y(31)/1.080975823402405D2
C     OC6H4CH3
      C(32) = Y(32)/1.071332424879074D2
C     NO
      C(33) = Y(33)/3.000609970092773D1
C     NO2
      C(34) = Y(34)/4.600549983978271D1
C     HCN
      C(35) = Y(35)/2.702581989765167D1
C     NH3
      C(36) = Y(36)/1.703060948848724D1
C     NH2
      C(37) = Y(37)/1.602263951301575D1
C     HNO
      C(38) = Y(38)/3.101406967639923D1
C     N2O
      C(39) = Y(39)/4.401279926300049D1
C     HNC
      C(40) = Y(40)/2.702581989765167D1
C     HNCO
      C(41) = Y(41)/4.302522003650665D1
C     HCNO
      C(42) = Y(42)/4.302522003650665D1
C     NCO
      C(43) = Y(43)/4.201725006103516D1
C     NCN
      C(44) = Y(44)/4.002454948425293D1
C     HNCN
      C(45) = Y(45)/4.103251945972443D1
C     CH2NH
      C(46) = Y(46)/2.904175984859467D1
C     N2
      C(47) = Y(47)/2.801339912414551D1
C
      DO K = 1, 47
         C(K) = RHO * C(K)
      ENDDO
C
      END
C                                                                      C
C----------------------------------------------------------------------C
C                                                                      C
      SUBROUTINE RATT (T, RF, RB, RKLOW)
      IMPLICIT DOUBLE PRECISION (A-H, O-Z), INTEGER (I-N)
      PARAMETER (RU=8.31451D7, SMALL=1.D-200, PATM=1.01325D6)
      DIMENSION RF(*), RB(*), RKLOW(*)
      DIMENSION SMH(65), EG(65)
C
      ALOGT = LOG(T)
      TI = 1D0/T
      TI2 = TI*TI
C
      CALL RDSMH (T, SMH)
      EG(2) = EXP(SMH(2))
      EG(3) = EXP(SMH(3))
      EG(4) = EXP(SMH(4))
      EG(5) = EXP(SMH(5))
      EG(6) = EXP(SMH(6))
      EG(7) = EXP(SMH(7))
      EG(8) = EXP(SMH(8))
      EG(9) = EXP(SMH(9))
      EG(10) = EXP(SMH(10))
      EG(11) = EXP(SMH(11))
      EG(12) = EXP(SMH(12))
      EG(13) = EXP(SMH(13))
      EG(14) = EXP(SMH(14))
      EG(15) = EXP(SMH(15))
      EG(16) = EXP(SMH(16))
      EG(17) = EXP(SMH(17))
      EG(18) = EXP(SMH(18))
      EG(19) = EXP(SMH(19))
      EG(20) = EXP(SMH(20))
      EG(21) = EXP(SMH(21))
      EG(22) = EXP(SMH(22))
      EG(23) = EXP(SMH(23))
      EG(24) = EXP(SMH(24))
      EG(25) = EXP(SMH(25))
      EG(26) = EXP(SMH(26))
      EG(27) = EXP(SMH(27))
      EG(28) = EXP(SMH(28))
      EG(29) = EXP(SMH(29))
      EG(30) = EXP(SMH(30))
      EG(31) = EXP(SMH(31))
      EG(32) = EXP(SMH(32))
      EG(33) = EXP(SMH(33))
      EG(34) = EXP(SMH(34))
      EG(35) = EXP(SMH(35))
      EG(36) = EXP(SMH(36))
      EG(37) = EXP(SMH(37))
      EG(38) = EXP(SMH(38))
      EG(39) = EXP(SMH(39))
      EG(40) = EXP(SMH(40))
      EG(41) = EXP(SMH(41))
      EG(42) = EXP(SMH(42))
      EG(43) = EXP(SMH(43))
      EG(44) = EXP(SMH(44))
      EG(45) = EXP(SMH(45))
      EG(46) = EXP(SMH(46))
      EG(47) = EXP(SMH(47))
      EG(48) = EXP(SMH(48))
      EG(49) = EXP(SMH(49))
      EG(50) = EXP(SMH(50))
      EG(51) = EXP(SMH(51))
      EG(52) = EXP(SMH(52))
      EG(53) = EXP(SMH(53))
      EG(54) = EXP(SMH(54))
      EG(55) = EXP(SMH(55))
      EG(56) = EXP(SMH(56))
      EG(57) = EXP(SMH(57))
      EG(58) = EXP(SMH(58))
      EG(59) = EXP(SMH(59))
      EG(60) = EXP(SMH(60))
      EG(61) = EXP(SMH(61))
      EG(62) = EXP(SMH(62))
      EG(63) = EXP(SMH(63))
      EG(64) = EXP(SMH(64))
      EG(65) = EXP(SMH(65))
      PFAC1 = PATM / (RU*T)
      PFAC2 = PFAC1*PFAC1
      PFAC3 = PFAC2*PFAC1
C
C
C     R1: POSF5433 = 3.09172C2H4 + 0.803846C3H6 + 0.154586iC4H8 + 0.309172C4H81 + 0.116667C6H6 + 0.05C6H5CH3 + 1.5CH3 + 0.5H
      RF(1) = EXP(5.933277692844006D1 -2.66D0*ALOGT 
     * -4.337576710055816D4*TI)
      RB(1) = 0D0
C     R2: POSF5433 + 0.7H = 3.09911C2H4 + 0.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + H2 + 0.175C6H6 + 0.075C6H5CH3 + 0.7CH3
      RF(2) = EXP(-2.569158202235591D0 +4.76D0*ALOGT 
     * -6.51615262926932D2*TI)
      RB(2) = 0D0
C     R3: POSF5433 + 0.3CH3 = 3.09911C2H4 + 1.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + 0.175C6H6 + 0.075C6H5CH3 + 0.3H
      RF(3) = EXP(-1.455784798271499D1 +5.95D0*ALOGT 
     * -2.389474024621395D3*TI)
      RB(3) = 0D0
C     R4: POSF5433 + OH = 3.09911C2H4 + 0.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + 0.175C6H6 + 0.075C6H5CH3 + 0.7CH3 + 0.3H + H2O
      RF(4) = EXP(2.429279853342778D1 +1.02D0*ALOGT 
     * -1.072857935408309D2*TI)
      RB(4) = 0D0
C     R5: POSF5433 + O2 = 3.09911C2H4 + 0.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + 0.175C6H6 + 0.075C6H5CH3 + 0.7CH3 + 0.3H + HO2
      RF(5) = EXP(3.511538975921468D1 +6.D-2*ALOGT 
     * -2.190632990570157D4*TI)
      RB(5) = 0D0
C     R6: POSF5433 + HO2 = 3.09911C2H4 + 0.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + 0.175C6H6 + 0.075C6H5CH3 + 0.7CH3 + 0.3H + H2O2
      RF(6) = EXP(1.097164063371953D1 +2.94D0*ALOGT 
     * -5.942988844827451D3*TI)
      RB(6) = 0D0
C     R7: POSF5433 + O = 3.09911C2H4 + 0.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + 0.175C6H6 + 0.075C6H5CH3 + 0.7CH3 + 0.3H + OH
      RF(7) = EXP(4.493120682179469D0 +3.86D0*ALOGT 
     * -3.850110724113026D2*TI)
      RB(7) = 0D0
C     R8: O2 + H = OH + O
      RF(8) = EXP(3.781365440989417D1 -6.707D-1*ALOGT 
     * -8.575315233251871D3*TI)
      EQK = EG(16)*EG(18)/EG(14)/EG(15)
      RB(8) = RF(8) / MAX(EQK, SMALL)
C     R9: H2 + O = H + OH
      RF(9) = EXP(1.073400250738888D1 +2.7D0*ALOGT 
     * -3.150136339425897D3*TI)
      EQK = EG(15)*EG(16)/EG(7)/EG(18)
      RB(9) = RF(9) / MAX(EQK, SMALL)
C     R10: H2 + OH = H + H2O
      RF(10) = EXP(1.897111162231072D1 +1.51D0*ALOGT 
     * -1.726033170004924D3*TI)
      EQK = EG(15)*EG(19)/EG(7)/EG(16)
      RB(10) = RF(10) / MAX(EQK, SMALL)
C     R11: 2OH = O + H2O
      RF(11) = EXP(1.058986184880864D1 +2.4D0*ALOGT 
     * +1.061787168720231D3*TI)
      EQK = EG(18)*EG(19)/EG(16)/EG(16)
      RB(11) = RF(11) / MAX(EQK, SMALL)
C     R12: 2H = H2
      RF(12) = EXP(4.202314503819682D1 -1.D0*ALOGT)
      EQK = EG(7)/EG(15)/EG(15)/PFAC1
      RB(12) = RF(12) / MAX(EQK, SMALL)
C     R13: 2H = H2
      RF(13) = EXP(3.903858606524095D1 -6.D-1*ALOGT)
      EQK = EG(7)/EG(15)/EG(15)/PFAC1
      RB(13) = RF(13) / MAX(EQK, SMALL)
C     R14: 2H = H2
      RF(14) = EXP(4.547615992139523D1 -1.25D0*ALOGT)
      EQK = EG(7)/EG(15)/EG(15)/PFAC1
      RB(14) = RF(14) / MAX(EQK, SMALL)
C     R15: 2H = H2
      RF(15) = EXP(4.775644995211934D1 -2.D0*ALOGT)
      EQK = EG(7)/EG(15)/EG(15)/PFAC1
      RB(15) = RF(15) / MAX(EQK, SMALL)
C     R16: H + OH = H2O
      RF(16) = EXP(5.213847658679322D1 -2.D0*ALOGT)
      EQK = EG(19)/EG(15)/EG(16)/PFAC1
      RB(16) = RF(16) / MAX(EQK, SMALL)
C     R17: H + O = OH
      RF(17) = EXP(4.369021565896671D1 -1.D0*ALOGT)
      EQK = EG(16)/EG(15)/EG(18)/PFAC1
      RB(17) = RF(17) / MAX(EQK, SMALL)
C     R18: 2O = O2
      RF(18) = EXP(3.932626813769273D1 -1.D0*ALOGT)
      EQK = EG(14)/EG(18)/EG(18)/PFAC1
      RB(18) = RF(18) / MAX(EQK, SMALL)
C     R19: O2 + H = HO2
      RF(19) = EXP(2.926339399964515D1 +4.4D-1*ALOGT)
      EQK = EG(17)/EG(14)/EG(15)/PFAC1
      RB(19) = RF(19) / MAX(EQK, SMALL)
C     R20: H2 + O2 = H + HO2
      RF(20) = EXP(1.329058600981878D1 +2.433D0*ALOGT 
     * -2.692309815207098D4*TI)
      EQK = EG(15)*EG(17)/EG(7)/EG(14)
      RB(20) = RF(20) / MAX(EQK, SMALL)
C     R21: 2OH = H2O2
      RF(21) = EXP(3.234055131724088D1 -3.7D-1*ALOGT)
      EQK = EG(20)/EG(16)/EG(16)/PFAC1
      RB(21) = RF(21) / MAX(EQK, SMALL)
C     R22: H + HO2 = O + H2O
      RF(22) = EXP(2.900978721062765D1 -3.376583839863861D2*TI)
      EQK = EG(18)*EG(19)/EG(15)/EG(17)
      RB(22) = RF(22) / MAX(EQK, SMALL)
C     R23: H + HO2 = 2OH
      RF(23) = EXP(3.194650722679419D1 -1.484489169537763D2*TI)
      EQK = EG(16)*EG(16)/EG(15)/EG(17)
      RB(23) = RF(23) / MAX(EQK, SMALL)
C     R24: HO2 + O = O2 + OH
      RF(24) = 4.D13
      EQK = EG(14)*EG(16)/EG(17)/EG(18)
      RB(24) = RF(24) / MAX(EQK, SMALL)
C     R25: 2HO2 = O2 + H2O2
      RF(25) = EXP(2.559080028740199D1 +8.20243168253069D2*TI)
      EQK = EG(14)*EG(20)/EG(17)/EG(17)
      RB(25) = RF(25) / MAX(EQK, SMALL)
C     R26: 2HO2 = O2 + H2O2
      RF(26) = EXP(3.353310785188531D1 -6.038600011679036D3*TI)
      EQK = EG(14)*EG(20)/EG(17)/EG(17)
      RB(26) = RF(26) / MAX(EQK, SMALL)
C     R27: OH + HO2 = O2 + H2O
      RF(27) = EXP(4.17901213782829D1 -1.76D0*ALOGT 
     * -3.019300005839518D1*TI)
      EQK = EG(14)*EG(19)/EG(16)/EG(17)
      RB(27) = RF(27) / MAX(EQK, SMALL)
C     R28: OH + HO2 = O2 + H2O
      RF(28) = EXP(1.958330615898009D2 -2.23D1*ALOGT 
     * -1.353652835951384D4*TI)
      EQK = EG(14)*EG(19)/EG(16)/EG(17)
      RB(28) = RF(28) / MAX(EQK, SMALL)
C     R29: OH + HO2 = O2 + H2O
      RF(29) = EXP(1.62861784418104D2 -1.672D1*ALOGT 
     * -1.655582836535336D4*TI)
      EQK = EG(14)*EG(19)/EG(16)/EG(17)
      RB(29) = RF(29) / MAX(EQK, SMALL)
C     R30: OH + HO2 = O2 + H2O
      RF(30) = EXP(2.855130386907224D1 +2.D0*ALOGT 
     * -2.012866670559679D4*TI)
      EQK = EG(14)*EG(19)/EG(16)/EG(17)
      RB(30) = RF(30) / MAX(EQK, SMALL)
C     R31: OH + HO2 = O2 + H2O
      RF(31) = EXP(3.131515726471902D2 -4.D1*ALOGT 
     * -1.75119400338692D4*TI)
      EQK = EG(14)*EG(19)/EG(16)/EG(17)
      RB(31) = RF(31) / MAX(EQK, SMALL)
C     R32: H + H2O2 = H2 + HO2
      RF(32) = EXP(1.561556883000702D1 +2.D0*ALOGT 
     * -2.616726671727582D3*TI)
      EQK = EG(7)*EG(17)/EG(15)/EG(20)
      RB(32) = RF(32) / MAX(EQK, SMALL)
C     R33: H + H2O2 = OH + H2O
      RF(33) = EXP(3.081323295642516D1 -1.997770170530481D3*TI)
      EQK = EG(16)*EG(19)/EG(15)/EG(20)
      RB(33) = RF(33) / MAX(EQK, SMALL)
C     R34: O + H2O2 = OH + HO2
      RF(34) = EXP(1.608039378377431D1 +2.D0*ALOGT 
     * -1.997770170530481D3*TI)
      EQK = EG(16)*EG(17)/EG(18)/EG(20)
      RB(34) = RF(34) / MAX(EQK, SMALL)
C     R35: OH + H2O2 = HO2 + H2O
      RF(35) = EXP(2.832416829648849D1 -2.148735170822457D2*TI)
      EQK = EG(17)*EG(19)/EG(16)/EG(20)
      RB(35) = RF(35) / MAX(EQK, SMALL)
C     R36: OH + H2O2 = HO2 + H2O
      RF(36) = EXP(9.538806728516803D1 -7.D0*ALOGT 
     * -1.892094670326098D4*TI)
      EQK = EG(17)*EG(19)/EG(16)/EG(20)
      RB(36) = RF(36) / MAX(EQK, SMALL)
C     R37: CO + O = CO2
      RF(37) = EXP(2.333480513766778D1 -1.199668535653569D3*TI)
      EQK = EG(29)/EG(9)/EG(18)/PFAC1
      RB(37) = RF(37) / MAX(EQK, SMALL)
C     R38: CO + OH = H + CO2
      RF(38) = EXP(1.116280045189523D1 +2.053D0*ALOGT 
     * +1.789790721794902D2*TI)
      EQK = EG(15)*EG(29)/EG(9)/EG(16)
      RB(38) = RF(38) / MAX(EQK, SMALL)
C     R39: CO + OH = H + CO2
      RF(39) = EXP(2.938143762162222D1 -6.64D-1*ALOGT 
     * -1.669823868229545D2*TI)
      EQK = EG(15)*EG(29)/EG(9)/EG(16)
      RB(39) = RF(39) / MAX(EQK, SMALL)
C     R40: CO + O2 = O + CO2
      RF(40) = EXP(2.774345654525834D1 -2.400343504642417D4*TI)
      EQK = EG(18)*EG(29)/EG(9)/EG(14)
      RB(40) = RF(40) / MAX(EQK, SMALL)
C     R41: CO + HO2 = OH + CO2
      RF(41) = EXP(1.196400108433044D1 +2.18D0*ALOGT 
     * -9.0290204129627D3*TI)
      EQK = EG(16)*EG(29)/EG(9)/EG(17)
      RB(41) = RF(41) / MAX(EQK, SMALL)
C     R42: H + HCO = H2 + CO
      RF(42) = 1.2D14
      EQK = EG(7)*EG(9)/EG(15)/EG(25)
      RB(42) = RF(42) / MAX(EQK, SMALL)
C     R43: O + HCO = CO + OH
      RF(43) = 3.D13
      EQK = EG(9)*EG(16)/EG(18)/EG(25)
      RB(43) = RF(43) / MAX(EQK, SMALL)
C     R44: O + HCO = H + CO2
      RF(44) = 3.D13
      EQK = EG(15)*EG(29)/EG(18)/EG(25)
      RB(44) = RF(44) / MAX(EQK, SMALL)
C     R45: OH + HCO = CO + H2O
      RF(45) = 3.02D13
      EQK = EG(9)*EG(19)/EG(16)/EG(25)
      RB(45) = RF(45) / MAX(EQK, SMALL)
C     R46: HCO = CO + H
      RF(46) = EXP(3.976988501176528D1 -1.D0*ALOGT 
     * -8.554683349878635D3*TI)
      EQK = EG(9)*EG(15)/EG(25)*PFAC1
      RB(46) = RF(46) / MAX(EQK, SMALL)
C     R47: HCO = CO + H
      RF(47) = EXP(4.225479166155327D1 -1.D0*ALOGT 
     * -8.554683349878635D3*TI)
      EQK = EG(9)*EG(15)/EG(25)*PFAC1
      RB(47) = RF(47) / MAX(EQK, SMALL)
C     R48: O2 + HCO = CO + HO2
      RF(48) = EXP(2.321150027682708D1 +8.070000000000001D-1*ALOGT 
     * +3.658385173742216D2*TI)
      EQK = EG(9)*EG(17)/EG(14)/EG(25)
      RB(48) = RF(48) / MAX(EQK, SMALL)
C     R49: H2 + CO = CH2O
      RF(49) = EXP(1.757671067365784D1 +1.5D0*ALOGT 
     * -4.005604674413761D4*TI)
      EQK = EG(26)/EG(7)/EG(9)/PFAC1
      RB(49) = RF(49) / MAX(EQK, SMALL)
C     R50: OH + C = CO + H
      RF(50) = 5.D13
      EQK = EG(9)*EG(15)/EG(16)/EG(21)
      RB(50) = RF(50) / MAX(EQK, SMALL)
C     R51: O2 + C = CO + O
      RF(51) = EXP(3.169146412647497D1 -2.898528005605937D2*TI)
      EQK = EG(9)*EG(18)/EG(14)/EG(21)
      RB(51) = RF(51) / MAX(EQK, SMALL)
C     R52: H + CH = H2 + C
      RF(52) = 1.1D14
      EQK = EG(7)*EG(21)/EG(15)/EG(22)
      RB(52) = RF(52) / MAX(EQK, SMALL)
C     R53: O + CH = CO + H
      RF(53) = 5.7D13
      EQK = EG(9)*EG(15)/EG(18)/EG(22)
      RB(53) = RF(53) / MAX(EQK, SMALL)
C     R54: OH + CH = H + HCO
      RF(54) = 3.D13
      EQK = EG(15)*EG(25)/EG(16)/EG(22)
      RB(54) = RF(54) / MAX(EQK, SMALL)
C     R55: H2 + CH = H + CH2
      RF(55) = EXP(1.852233439767886D1 +1.79D0*ALOGT 
     * -8.403718349586659D2*TI)
      EQK = EG(15)*EG(23)/EG(7)/EG(22)
      RB(55) = RF(55) / MAX(EQK, SMALL)
C     R56: H2O + CH = H + CH2O
      RF(56) = EXP(2.937324013959647D1 +3.799285840681393D2*TI)
      EQK = EG(15)*EG(26)/EG(19)/EG(22)
      RB(56) = RF(56) / MAX(EQK, SMALL)
C     R57: O2 + CH = O + HCO
      RF(57) = 3.3D13
      EQK = EG(18)*EG(25)/EG(14)/EG(22)
      RB(57) = RF(57) / MAX(EQK, SMALL)
C     R58: CO + CH = HCCO
      RF(58) = 5.D13
      EQK = EG(34)/EG(9)/EG(22)/PFAC1
      RB(58) = RF(58) / MAX(EQK, SMALL)
C     R59: CH + CO2 = CO + HCO
      RF(59) = EXP(2.885479654755066D1 -3.472195006715446D2*TI)
      EQK = EG(9)*EG(25)/EG(22)/EG(29)
      RB(59) = RF(59) / MAX(EQK, SMALL)
C     R60: H + HCO = CH2O
      RF(60) = EXP(2.77171988121696D1 +4.8D-1*ALOGT 
     * +1.308363335863791D2*TI)
      EQK = EG(26)/EG(15)/EG(25)/PFAC1
      RB(60) = RF(60) / MAX(EQK, SMALL)
C     R61: H + CH2 = CH3
      RF(61) = EXP(3.775765221977888D1 -8.D-1*ALOGT)
      EQK = EG(13)/EG(15)/EG(23)/PFAC1
      RB(61) = RF(61) / MAX(EQK, SMALL)
C     R62: O + CH2 = H + HCO
      RF(62) = 8.D13
      EQK = EG(15)*EG(25)/EG(18)/EG(23)
      RB(62) = RF(62) / MAX(EQK, SMALL)
C     R63: OH + CH2 = H + CH2O
      RF(63) = 2.D13
      EQK = EG(15)*EG(26)/EG(16)/EG(23)
      RB(63) = RF(63) / MAX(EQK, SMALL)
C     R64: OH + CH2 = H2O + CH
      RF(64) = EXP(1.624031328368257D1 +2.D0*ALOGT 
     * -1.509650002919759D3*TI)
      EQK = EG(19)*EG(22)/EG(16)/EG(23)
      RB(64) = RF(64) / MAX(EQK, SMALL)
C     R65: H2 + CH2 = CH3 + H
      RF(65) = EXP(1.312236337740433D1 +2.D0*ALOGT 
     * -3.638256507036619D3*TI)
      EQK = EG(13)*EG(15)/EG(7)/EG(23)
      RB(65) = RF(65) / MAX(EQK, SMALL)
C     R66: O2 + CH2 = OH + HCO
      RF(66) = EXP(2.999187511704657D1 -7.548250014598796D2*TI)
      EQK = EG(16)*EG(25)/EG(14)/EG(23)
      RB(66) = RF(66) / MAX(EQK, SMALL)
C     R67: O2 + CH2 = 2H + CO2
      RF(67) = EXP(2.860180003308677D1 -7.548250014598796D2*TI)
      EQK = EG(15)*EG(15)*EG(29)/EG(14)/EG(23)*PFAC1
      RB(67) = RF(67) / MAX(EQK, SMALL)
C     R68: HO2 + CH2 = OH + CH2O
      RF(68) = 2.D13
      EQK = EG(16)*EG(26)/EG(17)/EG(23)
      RB(68) = RF(68) / MAX(EQK, SMALL)
C     R69: C + CH2 = H + C2H
      RF(69) = 5.D13
      EQK = EG(15)*EG(31)/EG(21)/EG(23)
      RB(69) = RF(69) / MAX(EQK, SMALL)
C     R70: CO + CH2 = CH2CO
      RF(70) = EXP(2.74203000846129D1 +5.D-1*ALOGT 
     * -2.269507171056038D3*TI)
      EQK = EG(35)/EG(9)/EG(23)/PFAC1
      RB(70) = RF(70) / MAX(EQK, SMALL)
C     R71: CH + CH2 = C2H2 + H
      RF(71) = 4.D13
      EQK = EG(11)*EG(15)/EG(22)/EG(23)
      RB(71) = RF(71) / MAX(EQK, SMALL)
C     R72: 2CH2 = H2 + C2H2
      RF(72) = 3.2D13
      EQK = EG(7)*EG(11)/EG(23)/EG(23)
      RB(72) = RF(72) / MAX(EQK, SMALL)
C     R73: CH2* = CH2
      RF(73) = EXP(3.033907131703076D1 -3.019300005839518D2*TI)
      EQK = EG(23)/EG(24)
      RB(73) = RF(73) / MAX(EQK, SMALL)
C     R74: H + CH2* = H2 + CH
      RF(74) = 3.D13
      EQK = EG(7)*EG(22)/EG(15)/EG(24)
      RB(74) = RF(74) / MAX(EQK, SMALL)
C     R75: O + CH2* = H2 + CO
      RF(75) = 1.5D13
      EQK = EG(7)*EG(9)/EG(18)/EG(24)
      RB(75) = RF(75) / MAX(EQK, SMALL)
C     R76: O + CH2* = H + HCO
      RF(76) = 1.5D13
      EQK = EG(15)*EG(25)/EG(18)/EG(24)
      RB(76) = RF(76) / MAX(EQK, SMALL)
C     R77: OH + CH2* = H + CH2O
      RF(77) = 3.D13
      EQK = EG(15)*EG(26)/EG(16)/EG(24)
      RB(77) = RF(77) / MAX(EQK, SMALL)
C     R78: H2 + CH2* = CH3 + H
      RF(78) = 7.D13
      EQK = EG(13)*EG(15)/EG(7)/EG(24)
      RB(78) = RF(78) / MAX(EQK, SMALL)
C     R79: O2 + CH2* = CO + H + OH
      RF(79) = 2.8D13
      EQK = EG(9)*EG(15)*EG(16)/EG(14)/EG(24)*PFAC1
      RB(79) = RF(79) / MAX(EQK, SMALL)
C     R80: O2 + CH2* = CO + H2O
      RF(80) = 1.2D13
      EQK = EG(9)*EG(19)/EG(14)/EG(24)
      RB(80) = RF(80) / MAX(EQK, SMALL)
C     R81: H2O + CH2* = CH3OH
      RF(81) = 2.D13
      EQK = EG(28)/EG(19)/EG(24)/PFAC1
      RB(81) = RF(81) / MAX(EQK, SMALL)
C     R82: CH2* = CH2
      RF(82) = 3.D13
      EQK = EG(23)/EG(24)
      RB(82) = RF(82) / MAX(EQK, SMALL)
C     R83: CH2* = CH2
      RF(83) = 9.D12
      EQK = EG(23)/EG(24)
      RB(83) = RF(83) / MAX(EQK, SMALL)
C     R84: CH2* = CH2
      RF(84) = 7.D12
      EQK = EG(23)/EG(24)
      RB(84) = RF(84) / MAX(EQK, SMALL)
C     R85: CH2* + CO2 = CO + CH2O
      RF(85) = 1.4D13
      EQK = EG(9)*EG(26)/EG(24)/EG(29)
      RB(85) = RF(85) / MAX(EQK, SMALL)
C     R86: H + CH2O = CH3O
      RF(86) = EXP(2.701483497650473D1 +4.54D-1*ALOGT 
     * -1.308363335863791D3*TI)
      EQK = EG(27)/EG(15)/EG(26)/PFAC1
      RB(86) = RF(86) / MAX(EQK, SMALL)
C     R87: H + CH2O = H2 + HCO
      RF(87) = EXP(2.385876005287556D1 +1.05D0*ALOGT 
     * -1.648034586520737D3*TI)
      EQK = EG(7)*EG(25)/EG(15)/EG(26)
      RB(87) = RF(87) / MAX(EQK, SMALL)
C     R88: O + CH2O = OH + HCO
      RF(88) = EXP(3.129458276205819D1 -1.781387003445316D3*TI)
      EQK = EG(16)*EG(25)/EG(18)/EG(26)
      RB(88) = RF(88) / MAX(EQK, SMALL)
C     R89: OH + CH2O = H2O + HCO
      RF(89) = EXP(2.195582609812426D1 +1.18D0*ALOGT 
     * +2.249378504350441D2*TI)
      EQK = EG(19)*EG(25)/EG(16)/EG(26)
      RB(89) = RF(89) / MAX(EQK, SMALL)
C     R90: O2 + CH2O = HO2 + HCO
      RF(90) = EXP(3.223619130191664D1 -2.012866670559679D4*TI)
      EQK = EG(17)*EG(25)/EG(14)/EG(26)
      RB(90) = RF(90) / MAX(EQK, SMALL)
C     R91: HO2 + CH2O = H2O2 + HCO
      RF(91) = EXP(2.763102111592855D1 -4.025733341119358D3*TI)
      EQK = EG(20)*EG(25)/EG(17)/EG(26)
      RB(91) = RF(91) / MAX(EQK, SMALL)
C     R92: CH + CH2O = H + CH2CO
      RF(92) = EXP(3.218067859198638D1 +2.591565838345587D2*TI)
      EQK = EG(15)*EG(35)/EG(22)/EG(26)
      RB(92) = RF(92) / MAX(EQK, SMALL)
C     R93: CH3 + H = CH4
      RF(93) = EXP(3.708037838837523D1 -6.3D-1*ALOGT 
     * -1.927319837060892D2*TI)
      EQK = EG(3)/EG(13)/EG(15)/PFAC1
      RB(93) = RF(93) / MAX(EQK, SMALL)
C     R94: CH3 + O = H + CH2O
      RF(94) = 8.43D13
      EQK = EG(15)*EG(26)/EG(13)/EG(18)
      RB(94) = RF(94) / MAX(EQK, SMALL)
C     R95: CH3 + OH = CH3OH
      RF(95) = 6.3D13
      EQK = EG(28)/EG(13)/EG(16)/PFAC1
      RB(95) = RF(95) / MAX(EQK, SMALL)
C     R96: CH3 + OH = H2O + CH2
      RF(96) = EXP(1.784086224869942D1 +1.6D0*ALOGT 
     * -2.727434338608365D3*TI)
      EQK = EG(19)*EG(23)/EG(13)/EG(16)
      RB(96) = RF(96) / MAX(EQK, SMALL)
C     R97: CH3 + OH = H2O + CH2*
      RF(97) = 2.501D13
      EQK = EG(19)*EG(24)/EG(13)/EG(16)
      RB(97) = RF(97) / MAX(EQK, SMALL)
C     R98: CH3 + O2 = O + CH3O
      RF(98) = EXP(3.105950935782661D1 -1.449264002802969D4*TI)
      EQK = EG(18)*EG(27)/EG(13)/EG(14)
      RB(98) = RF(98) / MAX(EQK, SMALL)
C     R99: CH3 + O2 = OH + CH2O
      RF(99) = EXP(2.430678477540252D1 -4.498757008700882D3*TI)
      EQK = EG(16)*EG(26)/EG(13)/EG(14)
      RB(99) = RF(99) / MAX(EQK, SMALL)
C     R100: CH3 + HO2 = CH4 + O2
      RF(100) = 1.D12
      EQK = EG(3)*EG(14)/EG(13)/EG(17)
      RB(100) = RF(100) / MAX(EQK, SMALL)
C     R101: CH3 + HO2 = OH + CH3O
      RF(101) = 1.34D13
      EQK = EG(16)*EG(27)/EG(13)/EG(17)
      RB(101) = RF(101) / MAX(EQK, SMALL)
C     R102: CH3 + H2O2 = CH4 + HO2
      RF(102) = EXP(1.010642839653282D1 +2.47D0*ALOGT 
     * -2.606662338374784D3*TI)
      EQK = EG(3)*EG(17)/EG(13)/EG(20)
      RB(102) = RF(102) / MAX(EQK, SMALL)
C     R103: CH3 + C = C2H2 + H
      RF(103) = 5.D13
      EQK = EG(11)*EG(15)/EG(13)/EG(21)
      RB(103) = RF(103) / MAX(EQK, SMALL)
C     R104: CH3 + CH = H + C2H3
      RF(104) = 3.D13
      EQK = EG(15)*EG(32)/EG(13)/EG(22)
      RB(104) = RF(104) / MAX(EQK, SMALL)
C     R105: CH3 + HCO = CH4 + CO
      RF(105) = 8.48D12
      EQK = EG(3)*EG(9)/EG(13)/EG(25)
      RB(105) = RF(105) / MAX(EQK, SMALL)
C     R106: CH3 + CH2O = CH4 + HCO
      RF(106) = EXP(8.107720061910534D0 +2.81D0*ALOGT 
     * -2.94884967236993D3*TI)
      EQK = EG(3)*EG(25)/EG(13)/EG(26)
      RB(106) = RF(106) / MAX(EQK, SMALL)
C     R107: CH3 + CH2 = C2H4 + H
      RF(107) = 4.D13
      EQK = EG(2)*EG(15)/EG(13)/EG(23)
      RB(107) = RF(107) / MAX(EQK, SMALL)
C     R108: CH3 + CH2* = C2H4 + H
      RF(108) = EXP(3.011592776571655D1 +2.868335005547542D2*TI)
      EQK = EG(2)*EG(15)/EG(13)/EG(24)
      RB(108) = RF(108) / MAX(EQK, SMALL)
C     R109: 2CH3 = C2H6
      RF(109) = EXP(3.759277757658865D1 -9.7D-1*ALOGT 
     * -3.119943339367502D2*TI)
      EQK = EG(8)/EG(13)/EG(13)/PFAC1
      RB(109) = RF(109) / MAX(EQK, SMALL)
C     R110: 2CH3 = H + C2H5
      RF(110) = EXP(2.923845702569198D1 +1.D-1*ALOGT 
     * -5.334096676983148D3*TI)
      EQK = EG(15)*EG(33)/EG(13)/EG(13)
      RB(110) = RF(110) / MAX(EQK, SMALL)
C     R111: CH3 + HCCO = C2H4 + CO
      RF(111) = 5.D13
      EQK = EG(2)*EG(9)/EG(13)/EG(34)
      RB(111) = RF(111) / MAX(EQK, SMALL)
C     R112: CH3 + C2H = H + C3H3
      RF(112) = 2.41D13
      EQK = EG(15)*EG(37)/EG(13)/EG(31)
      RB(112) = RF(112) / MAX(EQK, SMALL)
C     R113: H + CH3O = CH3OH
      RF(113) = 5.D13
      EQK = EG(28)/EG(15)/EG(27)/PFAC1
      RB(113) = RF(113) / MAX(EQK, SMALL)
C     R114: H + CH3O = H2 + CH2O
      RF(114) = 2.D13
      EQK = EG(7)*EG(26)/EG(15)/EG(27)
      RB(114) = RF(114) / MAX(EQK, SMALL)
C     R115: H + CH3O = CH3 + OH
      RF(115) = 3.2D13
      EQK = EG(13)*EG(16)/EG(15)/EG(27)
      RB(115) = RF(115) / MAX(EQK, SMALL)
C     R116: H + CH3O = H2O + CH2*
      RF(116) = 1.6D13
      EQK = EG(19)*EG(24)/EG(15)/EG(27)
      RB(116) = RF(116) / MAX(EQK, SMALL)
C     R117: O + CH3O = OH + CH2O
      RF(117) = 1.D13
      EQK = EG(16)*EG(26)/EG(18)/EG(27)
      RB(117) = RF(117) / MAX(EQK, SMALL)
C     R118: OH + CH3O = H2O + CH2O
      RF(118) = 5.D12
      EQK = EG(19)*EG(26)/EG(16)/EG(27)
      RB(118) = RF(118) / MAX(EQK, SMALL)
C     R119: O2 + CH3O = HO2 + CH2O
      RF(119) = EXP(-2.847965319932889D1 +7.6D0*ALOGT 
     * +1.776354836768916D3*TI)
      EQK = EG(17)*EG(26)/EG(14)/EG(27)
      RB(119) = RF(119) / MAX(EQK, SMALL)
C     R120: CH4 + H = H2 + CH3
      RF(120) = EXP(2.030775039298474D1 +1.62D0*ALOGT 
     * -5.454868677216729D3*TI)
      EQK = EG(7)*EG(13)/EG(3)/EG(15)
      RB(120) = RF(120) / MAX(EQK, SMALL)
C     R121: CH4 + O = CH3 + OH
      RF(121) = EXP(2.074306846424259D1 +1.5D0*ALOGT 
     * -4.327663341703309D3*TI)
      EQK = EG(13)*EG(16)/EG(3)/EG(18)
      RB(121) = RF(121) / MAX(EQK, SMALL)
C     R122: CH4 + OH = CH3 + H2O
      RF(122) = EXP(1.842068074395237D1 +1.6D0*ALOGT 
     * -1.570036003036549D3*TI)
      EQK = EG(13)*EG(19)/EG(3)/EG(16)
      RB(122) = RF(122) / MAX(EQK, SMALL)
C     R123: CH4 + CH = C2H4 + H
      RF(123) = 6.D13
      EQK = EG(2)*EG(15)/EG(3)/EG(22)
      RB(123) = RF(123) / MAX(EQK, SMALL)
C     R124: CH4 + CH2 = 2CH3
      RF(124) = EXP(1.471567190790855D1 +2.D0*ALOGT 
     * -4.161601841382136D3*TI)
      EQK = EG(13)*EG(13)/EG(3)/EG(23)
      RB(124) = RF(124) / MAX(EQK, SMALL)
C     R125: CH4 + CH2* = 2CH3
      RF(125) = EXP(3.040360983816833D1 +2.868335005547542D2*TI)
      EQK = EG(13)*EG(13)/EG(3)/EG(24)
      RB(125) = RF(125) / MAX(EQK, SMALL)
C     R126: CH4 + C2H = C2H2 + CH3
      RF(126) = EXP(2.822434796120628D1 -2.516083338199599D2*TI)
      EQK = EG(11)*EG(13)/EG(3)/EG(31)
      RB(126) = RF(126) / MAX(EQK, SMALL)
C     R127: H + CH3OH = H2 + CH3O
      RF(127) = EXP(1.52505950832536D1 +2.1D0*ALOGT 
     * -2.450665171406409D3*TI)
      EQK = EG(7)*EG(27)/EG(15)/EG(28)
      RB(127) = RF(127) / MAX(EQK, SMALL)
C     R128: O + CH3OH = OH + CH3O
      RF(128) = EXP(1.177528972943772D1 +2.5D0*ALOGT 
     * -2.516083338199599D3*TI)
      EQK = EG(16)*EG(27)/EG(18)/EG(28)
      RB(128) = RF(128) / MAX(EQK, SMALL)
C     R129: OH + CH3OH = H2O + CH3O
      RF(129) = EXP(1.565606019136176D1 +2.D0*ALOGT 
     * -7.548250014598796D2*TI)
      EQK = EG(19)*EG(27)/EG(16)/EG(28)
      RB(129) = RF(129) / MAX(EQK, SMALL)
C     R130: CH3 + CH3OH = CH4 + CH3O
      RF(130) = EXP(1.611809565095832D1 +1.5D0*ALOGT 
     * -5.001973676340802D3*TI)
      EQK = EG(3)*EG(27)/EG(13)/EG(28)
      RB(130) = RF(130) / MAX(EQK, SMALL)
C     R131: H + C2H = C2H2
      RF(131) = EXP(3.914394658089878D1 -1.D0*ALOGT)
      EQK = EG(11)/EG(15)/EG(31)/PFAC1
      RB(131) = RF(131) / MAX(EQK, SMALL)
C     R132: O + C2H = CO + CH
      RF(132) = 5.D13
      EQK = EG(9)*EG(22)/EG(18)/EG(31)
      RB(132) = RF(132) / MAX(EQK, SMALL)
C     R133: OH + C2H = H + HCCO
      RF(133) = 2.D13
      EQK = EG(15)*EG(34)/EG(16)/EG(31)
      RB(133) = RF(133) / MAX(EQK, SMALL)
C     R134: O2 + C2H = CO + HCO
      RF(134) = EXP(3.154304412135669D1 -7.548250014598796D2*TI)
      EQK = EG(9)*EG(25)/EG(14)/EG(31)
      RB(134) = RF(134) / MAX(EQK, SMALL)
C     R135: H2 + C2H = C2H2 + H
      RF(135) = EXP(1.310216067008681D1 +2.5D0*ALOGT 
     * -2.81801333878355D2*TI)
      EQK = EG(11)*EG(15)/EG(7)/EG(31)
      RB(135) = RF(135) / MAX(EQK, SMALL)
C     R136: H + C2O = CO + CH
      RF(136) = 5.D13
      EQK = EG(9)*EG(22)/EG(15)/EG(30)
      RB(136) = RF(136) / MAX(EQK, SMALL)
C     R137: O + C2O = 2CO
      RF(137) = 5.D13
      EQK = EG(9)*EG(9)/EG(18)/EG(30)
      RB(137) = RF(137) / MAX(EQK, SMALL)
C     R138: OH + C2O = 2CO + H
      RF(138) = 2.D13
      EQK = EG(9)*EG(9)*EG(15)/EG(16)/EG(30)*PFAC1
      RB(138) = RF(138) / MAX(EQK, SMALL)
C     R139: O2 + C2O = 2CO + O
      RF(139) = 2.D13
      EQK = EG(9)*EG(9)*EG(18)/EG(14)/EG(30)*PFAC1
      RB(139) = RF(139) / MAX(EQK, SMALL)
C     R140: H + HCCO = CO + CH2*
      RF(140) = 1.D14
      EQK = EG(9)*EG(24)/EG(15)/EG(34)
      RB(140) = RF(140) / MAX(EQK, SMALL)
C     R141: O + HCCO = 2CO + H
      RF(141) = 1.D14
      EQK = EG(9)*EG(9)*EG(15)/EG(18)/EG(34)*PFAC1
      RB(141) = RF(141) / MAX(EQK, SMALL)
C     R142: O2 + HCCO = 2CO + OH
      RF(142) = EXP(2.810102474517428D1 -4.297470341644914D2*TI)
      EQK = EG(9)*EG(9)*EG(16)/EG(14)/EG(34)*PFAC1
      RB(142) = RF(142) / MAX(EQK, SMALL)
C     R143: CH + HCCO = CO + C2H2
      RF(143) = 5.D13
      EQK = EG(9)*EG(11)/EG(22)/EG(34)
      RB(143) = RF(143) / MAX(EQK, SMALL)
C     R144: CH2 + HCCO = CO + C2H3
      RF(144) = 3.D13
      EQK = EG(9)*EG(32)/EG(23)/EG(34)
      RB(144) = RF(144) / MAX(EQK, SMALL)
C     R145: 2HCCO = 2CO + C2H2
      RF(145) = 1.D13
      EQK = EG(9)*EG(9)*EG(11)/EG(34)/EG(34)*PFAC1
      RB(145) = RF(145) / MAX(EQK, SMALL)
C     R146: OH + HCCO = H2O + C2O
      RF(146) = 3.D13
      EQK = EG(19)*EG(30)/EG(16)/EG(34)
      RB(146) = RF(146) / MAX(EQK, SMALL)
C     R147: C2H3 = C2H2 + H
      RF(147) = EXP(1.97713479274291D1 +1.62D0*ALOGT 
     * -1.864327174605727D4*TI)
      EQK = EG(11)*EG(15)/EG(32)*PFAC1
      RB(147) = RF(147) / MAX(EQK, SMALL)
C     R148: C2H2 + O = OH + C2H
      RF(148) = EXP(4.527517307038192D1 -1.41D0*ALOGT 
     * -1.456812252817567D4*TI)
      EQK = EG(16)*EG(31)/EG(11)/EG(18)
      RB(148) = RF(148) / MAX(EQK, SMALL)
C     R149: C2H2 + O = CO + CH2
      RF(149) = EXP(1.522160754638034D1 +2.D0*ALOGT 
     * -9.561116685158474D2*TI)
      EQK = EG(9)*EG(23)/EG(11)/EG(18)
      RB(149) = RF(149) / MAX(EQK, SMALL)
C     R150: C2H2 + O = H + HCCO
      RF(150) = EXP(1.660790190750023D1 +2.D0*ALOGT 
     * -9.561116685158474D2*TI)
      EQK = EG(15)*EG(34)/EG(11)/EG(18)
      RB(150) = RF(150) / MAX(EQK, SMALL)
C     R151: C2H2 + OH = H + CH2CO
      RF(151) = EXP(-8.431015495175185D0 +4.5D0*ALOGT 
     * +5.032166676399197D2*TI)
      EQK = EG(15)*EG(35)/EG(11)/EG(16)
      RB(151) = RF(151) / MAX(EQK, SMALL)
C     R152: C2H2 + OH = H2O + C2H
      RF(152) = EXP(1.733300839532259D1 +2.D0*ALOGT 
     * -7.045033346958876D3*TI)
      EQK = EG(19)*EG(31)/EG(11)/EG(16)
      RB(152) = RF(152) / MAX(EQK, SMALL)
C     R153: C2H2 + OH = CO + CH3
      RF(153) = EXP(-7.635493904311701D0 +4.D0*ALOGT 
     * +1.006433335279839D3*TI)
      EQK = EG(9)*EG(13)/EG(11)/EG(16)
      RB(153) = RF(153) / MAX(EQK, SMALL)
C     R154: C2H2 + HCO = CO + C2H3
      RF(154) = EXP(1.611809565095832D1 +2.D0*ALOGT 
     * -3.019300005839518D3*TI)
      EQK = EG(9)*EG(32)/EG(11)/EG(25)
      RB(154) = RF(154) / MAX(EQK, SMALL)
C     R155: C2H2 + CH2 = H + C3H3
      RF(155) = EXP(3.011592776571655D1 -3.331294339776268D3*TI)
      EQK = EG(15)*EG(37)/EG(11)/EG(23)
      RB(155) = RF(155) / MAX(EQK, SMALL)
C     R156: C2H2 + CH2* = H + C3H3
      RF(156) = 2.D13
      EQK = EG(15)*EG(37)/EG(11)/EG(24)
      RB(156) = RF(156) / MAX(EQK, SMALL)
C     R157: C2H2 + HCCO = CO + C3H3
      RF(157) = EXP(2.53284360229345D1 -1.509650002919759D3*TI)
      EQK = EG(9)*EG(37)/EG(11)/EG(34)
      RB(157) = RF(157) / MAX(EQK, SMALL)
C     R158: C2H2 + CH3 = aC3H5
      RF(158) = EXP(1.230228267232072D2 -1.282D1*ALOGT 
     * -1.797993153477433D4*TI)
      EQK = EG(38)/EG(11)/EG(13)/PFAC1
      RB(158) = RF(158) / MAX(EQK, SMALL)
C     R159: H + CH2CO = CH2CHO
      RF(159) = EXP(3.343011377038908D1 -6.D-2*ALOGT 
     * -4.277341674939317D3*TI)
      EQK = EG(36)/EG(15)/EG(35)/PFAC1
      RB(159) = RF(159) / MAX(EQK, SMALL)
C     R160: H + CH2CO = H2 + HCCO
      RF(160) = EXP(3.154304412135669D1 -4.025733341119358D3*TI)
      EQK = EG(7)*EG(34)/EG(15)/EG(35)
      RB(160) = RF(160) / MAX(EQK, SMALL)
C     R161: H + CH2CO = CO + CH3
      RF(161) = EXP(2.112873094505457D1 +1.43D0*ALOGT 
     * -1.353652835951384D3*TI)
      EQK = EG(9)*EG(13)/EG(15)/EG(35)
      RB(161) = RF(161) / MAX(EQK, SMALL)
C     R162: O + CH2CO = OH + HCCO
      RF(162) = EXP(2.993360620892259D1 -4.025733341119358D3*TI)
      EQK = EG(16)*EG(34)/EG(18)/EG(35)
      RB(162) = RF(162) / MAX(EQK, SMALL)
C     R163: O + CH2CO = CH2 + CO2
      RF(163) = EXP(2.819063690386397D1 -6.793425013138916D2*TI)
      EQK = EG(23)*EG(29)/EG(18)/EG(35)
      RB(163) = RF(163) / MAX(EQK, SMALL)
C     R164: OH + CH2CO = H2O + HCCO
      RF(164) = EXP(2.964592413647081D1 -1.006433335279839D3*TI)
      EQK = EG(19)*EG(34)/EG(16)/EG(35)
      RB(164) = RF(164) / MAX(EQK, SMALL)
C     R165: H + C2H3 = C2H4
      RF(165) = EXP(2.943602581190662D1 +2.7D-1*ALOGT 
     * -1.409006669391775D2*TI)
      EQK = EG(2)/EG(15)/EG(32)/PFAC1
      RB(165) = RF(165) / MAX(EQK, SMALL)
C     R166: H + C2H3 = H2 + C2H2
      RF(166) = 9.D13
      EQK = EG(7)*EG(11)/EG(15)/EG(32)
      RB(166) = RF(166) / MAX(EQK, SMALL)
C     R167: O + C2H3 = H + CH2CO
      RF(167) = 4.8D13
      EQK = EG(15)*EG(35)/EG(18)/EG(32)
      RB(167) = RF(167) / MAX(EQK, SMALL)
C     R168: O + C2H3 = CO + CH3
      RF(168) = 4.8D13
      EQK = EG(9)*EG(13)/EG(18)/EG(32)
      RB(168) = RF(168) / MAX(EQK, SMALL)
C     R169: OH + C2H3 = C2H2 + H2O
      RF(169) = 3.011D13
      EQK = EG(11)*EG(19)/EG(16)/EG(32)
      RB(169) = RF(169) / MAX(EQK, SMALL)
C     R170: O2 + C2H3 = C2H2 + HO2
      RF(170) = EXP(1.410818017192709D1 +1.61D0*ALOGT 
     * +1.929332703731452D2*TI)
      EQK = EG(11)*EG(17)/EG(14)/EG(32)
      RB(170) = RF(170) / MAX(EQK, SMALL)
C     R171: O2 + C2H3 = O + CH2CHO
      RF(171) = EXP(2.642704831160261D1 +2.9D-1*ALOGT 
     * -5.535383344039117D0*TI)
      EQK = EG(18)*EG(36)/EG(14)/EG(32)
      RB(171) = RF(171) / MAX(EQK, SMALL)
C     R172: O2 + C2H3 = HCO + CH2O
      RF(172) = EXP(3.836741779139978D1 -1.39D0*ALOGT 
     * -5.082488343163189D2*TI)
      EQK = EG(25)*EG(26)/EG(14)/EG(32)
      RB(172) = RF(172) / MAX(EQK, SMALL)
C     R173: HO2 + C2H3 = OH + CH2CHO
      RF(173) = 1.D13
      EQK = EG(16)*EG(36)/EG(17)/EG(32)
      RB(173) = RF(173) / MAX(EQK, SMALL)
C     R174: H2O2 + C2H3 = C2H4 + HO2
      RF(174) = EXP(2.32164712895491D1 +2.999171339133921D2*TI)
      EQK = EG(2)*EG(17)/EG(20)/EG(32)
      RB(174) = RF(174) / MAX(EQK, SMALL)
C     R175: HCO + C2H3 = C2H4 + CO
      RF(175) = 9.033D13
      EQK = EG(2)*EG(9)/EG(25)/EG(32)
      RB(175) = RF(175) / MAX(EQK, SMALL)
C     R176: HCO + C2H3 = C2H3CHO
      RF(176) = 1.8D13
      EQK = EG(39)/EG(25)/EG(32)/PFAC1
      RB(176) = RF(176) / MAX(EQK, SMALL)
C     R177: CH3 + C2H3 = CH4 + C2H2
      RF(177) = 3.92D11
      EQK = EG(3)*EG(11)/EG(13)/EG(32)
      RB(177) = RF(177) / MAX(EQK, SMALL)
C     R178: CH3 + C2H3 = C3H6
      RF(178) = 2.5D13
      EQK = EG(4)/EG(13)/EG(32)/PFAC1
      RB(178) = RF(178) / MAX(EQK, SMALL)
C     R179: CH3 + C2H3 = H + aC3H5
      RF(179) = EXP(5.566750733996526D1 -2.83D0*ALOGT 
     * -9.368887918120025D3*TI)
      EQK = EG(15)*EG(38)/EG(13)/EG(32)
      RB(179) = RF(179) / MAX(EQK, SMALL)
C     R180: 2C2H3 = C2H4 + C2H2
      RF(180) = 9.6D11
      EQK = EG(2)*EG(11)/EG(32)/EG(32)
      RB(180) = RF(180) / MAX(EQK, SMALL)
C     R181: CH2CHO = CO + CH3
      RF(181) = EXP(9.646011254645141D1 -9.147D0*ALOGT 
     * -2.360086171231223D4*TI)
      EQK = EG(9)*EG(13)/EG(36)*PFAC1
      RB(181) = RF(181) / MAX(EQK, SMALL)
C     R182: H + CH2CHO = CH3 + HCO
      RF(182) = 9.D13
      EQK = EG(13)*EG(25)/EG(15)/EG(36)
      RB(182) = RF(182) / MAX(EQK, SMALL)
C     R183: H + CH2CHO = H2 + CH2CO
      RF(183) = EXP(3.062675338948254D1 -2.012866670559679D3*TI)
      EQK = EG(7)*EG(35)/EG(15)/EG(36)
      RB(183) = RF(183) / MAX(EQK, SMALL)
C     R184: O + CH2CHO = OH + CH2CO
      RF(184) = EXP(3.062675338948254D1 -2.012866670559679D3*TI)
      EQK = EG(16)*EG(35)/EG(18)/EG(36)
      RB(184) = RF(184) / MAX(EQK, SMALL)
C     R185: OH + CH2CHO = H2O + CH2CO
      RF(185) = EXP(2.993360620892259D1 -1.006433335279839D3*TI)
      EQK = EG(19)*EG(35)/EG(16)/EG(36)
      RB(185) = RF(185) / MAX(EQK, SMALL)
C     R186: O2 + CH2CHO = HO2 + CH2CO
      RF(186) = 1.4D11
      EQK = EG(17)*EG(35)/EG(14)/EG(36)
      RB(186) = RF(186) / MAX(EQK, SMALL)
C     R187: O2 + CH2CHO = CO + OH + CH2O
      RF(187) = 1.8D10
      EQK = EG(9)*EG(16)*EG(26)/EG(14)/EG(36)*PFAC1
      RB(187) = RF(187) / MAX(EQK, SMALL)
C     R188: C2H4 + H = C2H5
      RF(188) = EXP(2.103807657678644D1 +1.463D0*ALOGT 
     * -6.818585846520912D2*TI)
      EQK = EG(33)/EG(2)/EG(15)/PFAC1
      RB(188) = RF(188) / MAX(EQK, SMALL)
C     R189: C2H4 + H = H2 + C2H3
      RF(189) = EXP(1.774143646856141D1 +1.9D0*ALOGT 
     * -6.51665584593696D3*TI)
      EQK = EG(7)*EG(32)/EG(2)/EG(15)
      RB(189) = RF(189) / MAX(EQK, SMALL)
C     R190: C2H4 + O = OH + C2H3
      RF(190) = EXP(1.653020530178515D1 +1.9D0*ALOGT 
     * -1.8820303369733D3*TI)
      EQK = EG(16)*EG(32)/EG(2)/EG(18)
      RB(190) = RF(190) / MAX(EQK, SMALL)
C     R191: C2H4 + O = CH3 + HCO
      RF(191) = EXP(1.677042083699801D1 +1.83D0*ALOGT 
     * -1.107076668807823D2*TI)
      EQK = EG(13)*EG(25)/EG(2)/EG(18)
      RB(191) = RF(191) / MAX(EQK, SMALL)
C     R192: C2H4 + O = CH2 + CH2O
      RF(192) = EXP(1.285839783156986D1 +1.83D0*ALOGT 
     * -1.107076668807823D2*TI)
      EQK = EG(23)*EG(26)/EG(2)/EG(18)
      RB(192) = RF(192) / MAX(EQK, SMALL)
C     R193: C2H4 + OH = H2O + C2H3
      RF(193) = EXP(1.509644440342634D1 +2.D0*ALOGT 
     * -1.258041669099799D3*TI)
      EQK = EG(19)*EG(32)/EG(2)/EG(16)
      RB(193) = RF(193) / MAX(EQK, SMALL)
C     R194: C2H4 + HCO = CO + C2H5
      RF(194) = EXP(1.611809565095832D1 +2.D0*ALOGT 
     * -4.025733341119358D3*TI)
      EQK = EG(9)*EG(33)/EG(2)/EG(25)
      RB(194) = RF(194) / MAX(EQK, SMALL)
C     R195: C2H4 + CH2 = H + aC3H5
      RF(195) = EXP(3.062675338948254D1 -3.019300005839518D3*TI)
      EQK = EG(15)*EG(38)/EG(2)/EG(23)
      RB(195) = RF(195) / MAX(EQK, SMALL)
C     R196: C2H4 + CH2* = H + aC3H5
      RF(196) = 5.D13
      EQK = EG(15)*EG(38)/EG(2)/EG(24)
      RB(196) = RF(196) / MAX(EQK, SMALL)
C     R197: C2H4 + CH3 = CH4 + C2H3
      RF(197) = EXP(1.233270529646354D1 +2.D0*ALOGT 
     * -4.629593342287261D3*TI)
      EQK = EG(3)*EG(32)/EG(2)/EG(13)
      RB(197) = RF(197) / MAX(EQK, SMALL)
C     R198: C2H4 + O2 = HO2 + C2H3
      RF(198) = EXP(3.137344133697052D1 -3.059557339250712D4*TI)
      EQK = EG(17)*EG(32)/EG(2)/EG(14)
      RB(198) = RF(198) / MAX(EQK, SMALL)
C     R199: H + C2H5 = C2H6
      RF(199) = EXP(4.079452643666405D1 -9.9D-1*ALOGT 
     * -7.95082334871073D2*TI)
      EQK = EG(8)/EG(15)/EG(33)/PFAC1
      RB(199) = RF(199) / MAX(EQK, SMALL)
C     R200: H + C2H5 = C2H4 + H2
      RF(200) = 2.D12
      EQK = EG(2)*EG(7)/EG(15)/EG(33)
      RB(200) = RF(200) / MAX(EQK, SMALL)
C     R201: O + C2H5 = CH3 + CH2O
      RF(201) = 1.604D13
      EQK = EG(13)*EG(26)/EG(18)/EG(33)
      RB(201) = RF(201) / MAX(EQK, SMALL)
C     R202: O2 + C2H5 = C2H4 + HO2
      RF(202) = 2.D10
      EQK = EG(2)*EG(17)/EG(14)/EG(33)
      RB(202) = RF(202) / MAX(EQK, SMALL)
C     R203: HO2 + C2H5 = C2H6 + O2
      RF(203) = 3.D11
      EQK = EG(8)*EG(14)/EG(17)/EG(33)
      RB(203) = RF(203) / MAX(EQK, SMALL)
C     R204: HO2 + C2H5 = C2H4 + H2O2
      RF(204) = 3.D11
      EQK = EG(2)*EG(20)/EG(17)/EG(33)
      RB(204) = RF(204) / MAX(EQK, SMALL)
C     R205: HO2 + C2H5 = CH3 + OH + CH2O
      RF(205) = 2.4D13
      EQK = EG(13)*EG(16)*EG(26)/EG(17)/EG(33)*PFAC1
      RB(205) = RF(205) / MAX(EQK, SMALL)
C     R206: H2O2 + C2H5 = C2H6 + HO2
      RF(206) = EXP(2.288658886260695D1 -4.901330342812818D2*TI)
      EQK = EG(8)*EG(17)/EG(20)/EG(33)
      RB(206) = RF(206) / MAX(EQK, SMALL)
C     R207: C2H3 + C2H5 = C4H81
      RF(207) = 1.5D13
      EQK = EG(6)/EG(32)/EG(33)/PFAC1
      RB(207) = RF(207) / MAX(EQK, SMALL)
C     R208: C2H3 + C2H5 = CH3 + aC3H5
      RF(208) = EXP(7.504369952894507D1 -5.22D0*ALOGT 
     * -9.937019535885494D3*TI)
      EQK = EG(13)*EG(38)/EG(32)/EG(33)
      RB(208) = RF(208) / MAX(EQK, SMALL)
C     R209: C2H6 + H = H2 + C2H5
      RF(209) = EXP(1.856044268632752D1 +1.9D0*ALOGT 
     * -3.789221507328595D3*TI)
      EQK = EG(7)*EG(33)/EG(8)/EG(15)
      RB(209) = RF(209) / MAX(EQK, SMALL)
C     R210: C2H6 + O = OH + C2H5
      RF(210) = EXP(1.831309553327243D1 +1.92D0*ALOGT 
     * -2.863302838871143D3*TI)
      EQK = EG(16)*EG(33)/EG(8)/EG(18)
      RB(210) = RF(210) / MAX(EQK, SMALL)
C     R211: C2H6 + OH = H2O + C2H5
      RF(211) = EXP(1.507963728510996D1 +2.12D0*ALOGT 
     * -4.377985008467301D2*TI)
      EQK = EG(19)*EG(33)/EG(8)/EG(16)
      RB(211) = RF(211) / MAX(EQK, SMALL)
C     R212: C2H6 + CH2* = CH3 + C2H5
      RF(212) = EXP(3.131990057004248D1 +2.767691672019558D2*TI)
      EQK = EG(13)*EG(33)/EG(8)/EG(24)
      RB(212) = RF(212) / MAX(EQK, SMALL)
C     R213: C2H6 + CH3 = CH4 + C2H5
      RF(213) = EXP(1.563033530012333D1 +1.74D0*ALOGT 
     * -5.258614176837161D3*TI)
      EQK = EG(3)*EG(33)/EG(8)/EG(13)
      RB(213) = RF(213) / MAX(EQK, SMALL)
C     R214: O + C3H3 = CH2O + C2H
      RF(214) = 2.D13
      EQK = EG(26)*EG(31)/EG(18)/EG(37)
      RB(214) = RF(214) / MAX(EQK, SMALL)
C     R215: O2 + C3H3 = HCO + CH2CO
      RF(215) = EXP(2.412446321860857D1 -1.44322540279129D3*TI)
      EQK = EG(25)*EG(35)/EG(14)/EG(37)
      RB(215) = RF(215) / MAX(EQK, SMALL)
C     R216: HO2 + C3H3 = CO + OH + C2H3
      RF(216) = 8.D11
      EQK = EG(9)*EG(16)*EG(32)/EG(17)/EG(37)*PFAC1
      RB(216) = RF(216) / MAX(EQK, SMALL)
C     R217: C2H2 + C3H3 = C5H5
      RF(217) = EXP(1.285693442209068D2 -1.25D1*ALOGT 
     * -2.114768045756763D4*TI)
      EQK = EG(41)/EG(11)/EG(37)/PFAC1
      RB(217) = RF(217) / MAX(EQK, SMALL)
C     R218: 2C3H3 = H + C6H5
      RF(218) = 5.D12
      RB(218) = 0D0
C     R219: 2C3H3 = C6H6
      RF(219) = 2.D12
      RB(219) = 0D0
C     R220: H + aC3H5 = C3H6
      RF(220) = 2.D14
      EQK = EG(4)/EG(15)/EG(38)/PFAC1
      RB(220) = RF(220) / MAX(EQK, SMALL)
C     R221: O + aC3H5 = H + C2H3CHO
      RF(221) = 6.D13
      EQK = EG(15)*EG(39)/EG(18)/EG(38)
      RB(221) = RF(221) / MAX(EQK, SMALL)
C     R222: OH + aC3H5 = 2H + C2H3CHO
      RF(222) = EXP(7.511780750109878D1 -5.16D0*ALOGT 
     * -1.515990532932022D4*TI)
      EQK = EG(15)*EG(15)*EG(39)/EG(16)/EG(38)*PFAC1
      RB(222) = RF(222) / MAX(EQK, SMALL)
C     R223: O2 + aC3H5 = OH + C2H3CHO
      RF(223) = EXP(3.05324427100113D1 -4.1D-1*ALOGT 
     * -1.150302980558092D4*TI)
      EQK = EG(16)*EG(39)/EG(14)/EG(38)
      RB(223) = RF(223) / MAX(EQK, SMALL)
C     R224: HO2 + aC3H5 = C3H6 + O2
      RF(224) = 2.66D12
      EQK = EG(4)*EG(14)/EG(17)/EG(38)
      RB(224) = RF(224) / MAX(EQK, SMALL)
C     R225: HO2 + aC3H5 = OH + CH2O + C2H3
      RF(225) = 6.6D12
      EQK = EG(16)*EG(26)*EG(32)/EG(17)/EG(38)*PFAC1
      RB(225) = RF(225) / MAX(EQK, SMALL)
C     R226: HCO + aC3H5 = C3H6 + CO
      RF(226) = 6.D13
      EQK = EG(4)*EG(9)/EG(25)/EG(38)
      RB(226) = RF(226) / MAX(EQK, SMALL)
C     R227: CH3 + aC3H5 = C4H81
      RF(227) = EXP(3.223619130191664D1 -3.2D-1*ALOGT 
     * +1.319937319219509D2*TI)
      EQK = EG(6)/EG(13)/EG(38)/PFAC1
      RB(227) = RF(227) / MAX(EQK, SMALL)
C     R228: C3H6 + H = C2H4 + CH3
      RF(228) = EXP(5.043372849455479D1 -2.39D0*ALOGT 
     * -5.625962344214302D3*TI)
      EQK = EG(2)*EG(13)/EG(4)/EG(15)
      RB(228) = RF(228) / MAX(EQK, SMALL)
C     R229: C3H6 + H = H2 + aC3H5
      RF(229) = EXP(1.446783574400397D1 +2.309D0*ALOGT 
     * -2.352034704548985D3*TI)
      EQK = EG(7)*EG(38)/EG(4)/EG(15)
      RB(229) = RF(229) / MAX(EQK, SMALL)
C     R230: C3H6 + O = CH3 + H + CH2CO
      RF(230) = EXP(1.819753719263815D1 +1.65D0*ALOGT 
     * -1.645518503182537D2*TI)
      EQK = EG(13)*EG(15)*EG(35)/EG(4)/EG(18)*PFAC1
      RB(230) = RF(230) / MAX(EQK, SMALL)
C     R231: C3H6 + O = 2H + C2H3CHO
      RF(231) = EXP(1.750439001207821D1 +1.65D0*ALOGT 
     * -1.645518503182537D2*TI)
      EQK = EG(15)*EG(15)*EG(39)/EG(4)/EG(18)*PFAC1
      RB(231) = RF(231) / MAX(EQK, SMALL)
C     R232: C3H6 + O = HCO + C2H5
      RF(232) = EXP(1.737085861945369D1 +1.65D0*ALOGT 
     * +4.891266009460019D2*TI)
      EQK = EG(25)*EG(33)/EG(4)/EG(18)
      RB(232) = RF(232) / MAX(EQK, SMALL)
C     R233: C3H6 + O = OH + aC3H5
      RF(233) = EXP(2.591622268783662D1 +7.D-1*ALOGT 
     * -2.958914005722728D3*TI)
      EQK = EG(16)*EG(38)/EG(4)/EG(18)
      RB(233) = RF(233) / MAX(EQK, SMALL)
C     R234: C3H6 + OH = H2O + aC3H5
      RF(234) = EXP(1.494691266945537D1 +2.D0*ALOGT 
     * +1.499585669566961D2*TI)
      EQK = EG(19)*EG(38)/EG(4)/EG(16)
      RB(234) = RF(234) / MAX(EQK, SMALL)
C     R235: C3H6 + HO2 = H2O2 + aC3H5
      RF(235) = EXP(9.169518377455928D0 +2.6D0*ALOGT 
     * -6.999743846871283D3*TI)
      EQK = EG(20)*EG(38)/EG(4)/EG(17)
      RB(235) = RF(235) / MAX(EQK, SMALL)
C     R236: C3H6 + CH3 = CH4 + aC3H5
      RF(236) = EXP(3.815512105047302D0 +3.268D0*ALOGT 
     * -3.599005606960705D3*TI)
      EQK = EG(3)*EG(38)/EG(4)/EG(13)
      RB(236) = RF(236) / MAX(EQK, SMALL)
C     R237: H + C2H3CHO = C2H4 + HCO
      RF(237) = EXP(2.540539706407063D1 +4.54D-1*ALOGT 
     * -2.928721005664333D3*TI)
      EQK = EG(2)*EG(25)/EG(15)/EG(39)
      RB(237) = RF(237) / MAX(EQK, SMALL)
C     R238: O + C2H3CHO = CO + OH + C2H3
      RF(238) = EXP(3.10322184975907D1 -1.781387003445316D3*TI)
      EQK = EG(9)*EG(16)*EG(32)/EG(18)/EG(39)*PFAC1
      RB(238) = RF(238) / MAX(EQK, SMALL)
C     R239: O + C2H3CHO = CH2O + CH2CO
      RF(239) = EXP(1.675994953713072D1 +1.8D0*ALOGT 
     * -1.107076668807823D2*TI)
      EQK = EG(26)*EG(35)/EG(18)/EG(39)
      RB(239) = RF(239) / MAX(EQK, SMALL)
C     R240: OH + C2H3CHO = CO + H2O + C2H3
      RF(240) = EXP(2.195582609812426D1 +1.18D0*ALOGT 
     * +2.249378504350441D2*TI)
      EQK = EG(9)*EG(19)*EG(32)/EG(16)/EG(39)*PFAC1
      RB(240) = RF(240) / MAX(EQK, SMALL)
C     R241: C4H81 + H = C2H4 + C2H5
      RF(241) = EXP(5.112687567511474D1 -2.39D0*ALOGT 
     * -5.625962344214302D3*TI)
      EQK = EG(2)*EG(33)/EG(6)/EG(15)
      RB(241) = RF(241) / MAX(EQK, SMALL)
C     R242: C4H81 + H = C3H6 + CH3
      RF(242) = EXP(5.182002285567469D1 -2.39D0*ALOGT 
     * -5.625962344214302D3*TI)
      EQK = EG(4)*EG(13)/EG(6)/EG(15)
      RB(242) = RF(242) / MAX(EQK, SMALL)
C     R243: iC4H8 + H = C3H6 + CH3
      RF(243) = EXP(5.247494882341444D1 -2.538D0*ALOGT 
     * -5.851906627984626D3*TI)
      EQK = EG(4)*EG(13)/EG(5)/EG(15)
      RB(243) = RF(243) / MAX(EQK, SMALL)
C     R244: iC4H8 + O = 2CH3 + CH2CO
      RF(244) = EXP(1.929614948130627D1 +1.65D0*ALOGT 
     * -1.645518503182537D2*TI)
      EQK = EG(13)*EG(13)*EG(35)/EG(5)/EG(18)*PFAC1
      RB(244) = RF(244) / MAX(EQK, SMALL)
C     R245: iC4H8 + HO2 = C3H6 + OH + CH2O
      RF(245) = EXP(2.841034599272955D1 -7.145676680486859D3*TI)
      EQK = EG(4)*EG(16)*EG(26)/EG(5)/EG(17)*PFAC1
      RB(245) = RF(245) / MAX(EQK, SMALL)
C     R246: CH3 + C6H5 = C6H5CH3
      RF(246) = EXP(3.025568970809171D1 -2.31479667114363D1*TI)
      EQK = EG(12)/EG(13)/EG(42)/PFAC1
      RB(246) = RF(246) / MAX(EQK, SMALL)
C     R247: C6H5CH3 + H = C6H6 + CH3
      RF(247) = EXP(1.447303056088107D1 +2.17D0*ALOGT 
     * -2.094890987384986D3*TI)
      EQK = EG(10)*EG(13)/EG(12)/EG(15)
      RB(247) = RF(247) / MAX(EQK, SMALL)
C     R248: C6H5CH3 + O = H + OC6H4CH3
      RF(248) = EXP(3.088911765395003D1 -1.909707253693495D3*TI)
      EQK = EG(15)*EG(45)/EG(12)/EG(18)
      RB(248) = RF(248) / MAX(EQK, SMALL)
C     R249: H + OC6H4CH3 = CH3 + C6H5O
      RF(249) = EXP(1.447303056088107D1 +2.17D0*ALOGT 
     * -2.094890987384986D3*TI)
      EQK = EG(13)*EG(43)/EG(15)/EG(45)
      RB(249) = RF(249) / MAX(EQK, SMALL)
C     R250: O + OC6H4CH3 = CH3 + C6H4O2
      RF(250) = 8.D13
      EQK = EG(13)*EG(44)/EG(18)/EG(45)
      RB(250) = RF(250) / MAX(EQK, SMALL)
C     R251: H + C6H5 = C6H6
      RF(251) = 1.D14
      EQK = EG(10)/EG(15)/EG(42)/PFAC1
      RB(251) = RF(251) / MAX(EQK, SMALL)
C     R252: C6H6 + OH = H2O + C6H5
      RF(252) = EXP(1.289546277721241D1 +2.286D0*ALOGT 
     * -5.32403234363035D2*TI)
      EQK = EG(19)*EG(42)/EG(10)/EG(16)
      RB(252) = RF(252) / MAX(EQK, SMALL)
C     R253: C6H6 + O = H + C6H5O
      RF(253) = EXP(3.026290995606519D1 -2.470793838112006D3*TI)
      EQK = EG(15)*EG(43)/EG(10)/EG(18)
      RB(253) = RF(253) / MAX(EQK, SMALL)
C     R254: C6H6 + O = HCO + C5H5
      RF(254) = EXP(3.026290995606519D1 -2.279571504408836D3*TI)
      EQK = EG(25)*EG(41)/EG(10)/EG(18)
      RB(254) = RF(254) / MAX(EQK, SMALL)
C     R255: H2 + C6H5 = C6H6 + H
      RF(255) = EXP(1.095203386353075D1 +2.43D0*ALOGT 
     * -3.156678156105216D3*TI)
      EQK = EG(10)*EG(15)/EG(7)/EG(42)
      RB(255) = RF(255) / MAX(EQK, SMALL)
C     R256: O2 + C6H5 = O + C6H5O
      RF(256) = EXP(3.088911765395003D1 -3.079686005956308D3*TI)
      EQK = EG(18)*EG(43)/EG(14)/EG(42)
      RB(256) = RF(256) / MAX(EQK, SMALL)
C     R257: O2 + C6H5 = H + C6H4O2
      RF(257) = EXP(3.10322184975907D1 -4.518885675406479D3*TI)
      EQK = EG(15)*EG(44)/EG(14)/EG(42)
      RB(257) = RF(257) / MAX(EQK, SMALL)
C     R258: O + C6H5 = CO + C5H5
      RF(258) = 1.D14
      EQK = EG(9)*EG(41)/EG(18)/EG(42)
      RB(258) = RF(258) / MAX(EQK, SMALL)
C     R259: OH + C6H5 = H + C6H5O
      RF(259) = 3.D13
      EQK = EG(15)*EG(43)/EG(16)/EG(42)
      RB(259) = RF(259) / MAX(EQK, SMALL)
C     R260: HO2 + C6H5 = OH + C6H5O
      RF(260) = 3.D13
      EQK = EG(16)*EG(43)/EG(17)/EG(42)
      RB(260) = RF(260) / MAX(EQK, SMALL)
C     R261: HO2 + C6H5 = C6H6 + O2
      RF(261) = 1.D12
      EQK = EG(10)*EG(14)/EG(17)/EG(42)
      RB(261) = RF(261) / MAX(EQK, SMALL)
C     R262: CH4 + C6H5 = C6H6 + CH3
      RF(262) = EXP(-5.549346121351782D0 +4.57D0*ALOGT 
     * -2.644906805115418D3*TI)
      EQK = EG(10)*EG(13)/EG(3)/EG(42)
      RB(262) = RF(262) / MAX(EQK, SMALL)
C     R263: C2H6 + C6H5 = C6H6 + C2H5
      RF(263) = EXP(2.607037336766388D1 -2.235791654324163D3*TI)
      EQK = EG(10)*EG(33)/EG(8)/EG(42)
      RB(263) = RF(263) / MAX(EQK, SMALL)
C     R264: CH2O + C6H5 = C6H6 + HCO
      RF(264) = EXP(1.135627165492485D1 +2.19D0*ALOGT 
     * -1.912223337031695D1*TI)
      EQK = EG(10)*EG(25)/EG(26)/EG(42)
      RB(264) = RF(264) / MAX(EQK, SMALL)
C     R265: C6H4O2 = CO + C5H4O
      RF(265) = EXP(2.732991602314463D1 -2.968978339075526D4*TI)
      EQK = EG(9)*EG(40)/EG(44)*PFAC1
      RB(265) = RF(265) / MAX(EQK, SMALL)
C     R266: O + C6H4O2 = 2CO + C2H2 + CH2CO
      RF(266) = EXP(3.10322184975907D1 -2.516083338199599D3*TI)
      EQK = EG(9)*EG(9)*EG(11)*EG(35)
     *      /EG(18)/EG(44)*PFAC2
      RB(266) = RF(266) / MAX(EQK, SMALL)
C     R267: H + C6H5O = HCO + C5H5
      RF(267) = EXP(2.993360620892259D1 -6.038600011679036D3*TI)
      EQK = EG(25)*EG(41)/EG(15)/EG(43)
      RB(267) = RF(267) / MAX(EQK, SMALL)
C     R268: C6H5O = CO + C5H5
      RF(268) = EXP(1.256640139790803D2 -1.206D1*ALOGT 
     * -3.663417340418615D4*TI)
      EQK = EG(9)*EG(41)/EG(43)*PFAC1
      RB(268) = RF(268) / MAX(EQK, SMALL)
C     R269: O + C6H5O = H + C6H4O2
      RF(269) = EXP(2.398136237496789D1 +4.7D-1*ALOGT 
     * -4.000572507737361D2*TI)
      EQK = EG(15)*EG(44)/EG(18)/EG(43)
      RB(269) = RF(269) / MAX(EQK, SMALL)
C     R270: O + C5H5 = H + C5H4O
      RF(270) = EXP(3.169318677978641D1 -2.D-2*ALOGT 
     * -1.006433335279839D1*TI)
      EQK = EG(15)*EG(40)/EG(18)/EG(41)
      RB(270) = RF(270) / MAX(EQK, SMALL)
C     R271: O2 + C5H5 = OH + C5H4O
      RF(271) = EXP(2.821880778083067D1 +8.D-2*ALOGT 
     * -9.057900017518554D3*TI)
      EQK = EG(16)*EG(40)/EG(14)/EG(41)
      RB(271) = RF(271) / MAX(EQK, SMALL)
C     R272: C5H4O = CO + 2C2H2
      RF(272) = EXP(9.623053810480693D1 -7.87D0*ALOGT 
     * -4.966748509606007D4*TI)
      EQK = EG(9)*EG(11)*EG(11)/EG(40)*PFAC2
      RB(272) = RF(272) / MAX(EQK, SMALL)
C     R273: O + C5H4O = CO + HCO + C3H3
      RF(273) = EXP(2.024523003600341D1 +1.45D0*ALOGT 
     * +4.317599008350511D2*TI)
      EQK = EG(9)*EG(25)*EG(37)/EG(18)/EG(40)*PFAC1
      RB(273) = RF(273) / MAX(EQK, SMALL)
C     R274: H + NH2 = NH3
      RF(274) = 1.6D14
      EQK = EG(49)/EG(15)/EG(50)/PFAC1
      RB(274) = RF(274) / MAX(EQK, SMALL)
C     R275: H + NH3 = H2 + NH2
      RF(275) = EXP(1.336922345533585D1 +2.39D0*ALOGT 
     * -5.118216726565624D3*TI)
      EQK = EG(7)*EG(50)/EG(15)/EG(49)
      RB(275) = RF(275) / MAX(EQK, SMALL)
C     R276: O + NH3 = OH + NH2
      RF(276) = EXP(1.605622024724023D1 +1.94D0*ALOGT 
     * -3.250779672953881D3*TI)
      EQK = EG(16)*EG(50)/EG(18)/EG(49)
      RB(276) = RF(276) / MAX(EQK, SMALL)
C     R277: OH + NH3 = H2O + NH2
      RF(277) = EXP(1.450865773852422D1 +2.04D0*ALOGT 
     * -2.848206338841945D2*TI)
      EQK = EG(19)*EG(50)/EG(16)/EG(49)
      RB(277) = RF(277) / MAX(EQK, SMALL)
C     R278: HO2 + NH3 = H2O2 + NH2
      RF(278) = EXP(2.642704831160261D1 -1.107076668807823D4*TI)
      EQK = EG(20)*EG(50)/EG(17)/EG(49)
      RB(278) = RF(278) / MAX(EQK, SMALL)
C     R279: H2 + NH = H + NH2
      RF(279) = EXP(3.067554355365197D1 -7.758091365004641D3*TI)
      EQK = EG(15)*EG(50)/EG(7)/EG(51)
      RB(279) = RF(279) / MAX(EQK, SMALL)
C     R280: O + NH2 = H + HNO
      RF(280) = EXP(3.412326095094902D1 -5.D-1*ALOGT)
      EQK = EG(15)*EG(54)/EG(18)/EG(50)
      RB(280) = RF(280) / MAX(EQK, SMALL)
C     R281: O + NH2 = OH + NH
      RF(281) = 7.D12
      EQK = EG(16)*EG(51)/EG(18)/EG(50)
      RB(281) = RF(281) / MAX(EQK, SMALL)
C     R282: O + NH2 = OH + NH
      RF(282) = EXP(-1.508228897345837D-1 +4.01D0*ALOGT 
     * -8.418814849615857D2*TI)
      EQK = EG(16)*EG(51)/EG(18)/EG(50)
      RB(282) = RF(282) / MAX(EQK, SMALL)
C     R283: OH + NH2 = H2O + NH
      RF(283) = EXP(1.500943302643671D1 +1.949D0*ALOGT 
     * +1.091980168778626D2*TI)
      EQK = EG(19)*EG(51)/EG(16)/EG(50)
      RB(283) = RF(283) / MAX(EQK, SMALL)
C     R284: HO2 + NH2 = O2 + NH3
      RF(284) = EXP(9.740968623038354D0 +1.55D0*ALOGT 
     * -1.020020185306117D3*TI)
      EQK = EG(14)*EG(49)/EG(17)/EG(50)
      RB(284) = RF(284) / MAX(EQK, SMALL)
C     R285: HO2 + NH2 = H2O + HNO
      RF(285) = EXP(1.658809928020406D1 +5.5D-1*ALOGT 
     * -2.641887505109578D2*TI)
      EQK = EG(19)*EG(54)/EG(17)/EG(50)
      RB(285) = RF(285) / MAX(EQK, SMALL)
C     R286: HO2 + NH2 = H2O + HNO
      RF(286) = EXP(3.627924256975119D1 -1.12D0*ALOGT 
     * -3.557741840214232D2*TI)
      EQK = EG(19)*EG(54)/EG(17)/EG(50)
      RB(286) = RF(286) / MAX(EQK, SMALL)
C     R287: O2 + NH2 = OH + HNO
      RF(287) = EXP(-3.540459448995663D0 +3.764D0*ALOGT 
     * -9.15099510103194D3*TI)
      EQK = EG(16)*EG(54)/EG(14)/EG(50)
      RB(287) = RF(287) / MAX(EQK, SMALL)
C     R288: 2NH2 = NH3 + NH
      RF(288) = EXP(1.722766597741104D0 +3.53D0*ALOGT 
     * -2.777756005372357D2*TI)
      EQK = EG(49)*EG(51)/EG(50)/EG(50)
      RB(288) = RF(288) / MAX(EQK, SMALL)
C     R289: NH2 + NH = NH3 + N
      RF(289) = EXP(9.169518377455928D0 +2.46D0*ALOGT 
     * -5.384418343747141D1*TI)
      EQK = EG(49)*EG(52)/EG(50)/EG(51)
      RB(289) = RF(289) / MAX(EQK, SMALL)
C     R290: NH2 + N = 2H + N2
      RF(290) = 7.D13
      EQK = EG(15)*EG(15)*EG(65)/EG(50)/EG(52)*PFAC1
      RB(290) = RF(290) / MAX(EQK, SMALL)
C     R291: NH2 + HNO = NO + NH3
      RF(291) = EXP(6.380122536899765D0 +2.95D0*ALOGT 
     * +1.745658620042881D3*TI)
      EQK = EG(46)*EG(49)/EG(50)/EG(54)
      RB(291) = RF(291) / MAX(EQK, SMALL)
C     R292: NO + NH2 = H2O + N2
      RF(292) = EXP(4.47046282119143D1 -2.369D0*ALOGT 
     * -4.377985008467301D2*TI)
      EQK = EG(19)*EG(65)/EG(46)/EG(50)
      RB(292) = RF(292) / MAX(EQK, SMALL)
C     R293: NO + NH2 = OH + NNH
      RF(293) = EXP(2.448446595263997D1 +2.94D-1*ALOGT 
     * +4.357856341761704D2*TI)
      EQK = EG(16)*EG(53)/EG(46)/EG(50)
      RB(293) = RF(293) / MAX(EQK, SMALL)
C     R294: NO2 + NH2 = H2O + N2O
      RF(294) = EXP(2.611689338329877D1 +1.1D-1*ALOGT 
     * +5.968149678209447D2*TI)
      EQK = EG(19)*EG(55)/EG(47)/EG(50)
      RB(294) = RF(294) / MAX(EQK, SMALL)
C     R295: H + NH = H2 + N
      RF(295) = 3.D13
      EQK = EG(7)*EG(52)/EG(15)/EG(51)
      RB(295) = RF(295) / MAX(EQK, SMALL)
C     R296: O + NH = H + NO
      RF(296) = 9.2D13
      EQK = EG(15)*EG(46)/EG(18)/EG(51)
      RB(296) = RF(296) / MAX(EQK, SMALL)
C     R297: OH + NH = H + HNO
      RF(297) = EXP(3.339934211172232D1 -3.76D-1*ALOGT 
     * +2.31479667114363D1*TI)
      EQK = EG(15)*EG(54)/EG(16)/EG(51)
      RB(297) = RF(297) / MAX(EQK, SMALL)
C     R298: OH + NH = H2O + N
      RF(298) = EXP(1.658809928020406D1 +1.733D0*ALOGT 
     * +2.898528005605937D2*TI)
      EQK = EG(19)*EG(52)/EG(16)/EG(51)
      RB(298) = RF(298) / MAX(EQK, SMALL)
C     R299: O2 + NH = O + HNO
      RF(299) = EXP(3.080907494627649D1 -6.969550846812887D3*TI)
      EQK = EG(18)*EG(54)/EG(14)/EG(51)
      RB(299) = RF(299) / MAX(EQK, SMALL)
C     R300: O2 + NH = OH + NO
      RF(300) = EXP(2.5318385687081D1 -7.699215014890771D2*TI)
      EQK = EG(16)*EG(46)/EG(14)/EG(51)
      RB(300) = RF(300) / MAX(EQK, SMALL)
C     R301: 2NH = NH2 + N
      RF(301) = EXP(-5.621189181535413D-1 +3.88D0*ALOGT 
     * -1.721001003328525D2*TI)
      EQK = EG(50)*EG(52)/EG(51)/EG(51)
      RB(301) = RF(301) / MAX(EQK, SMALL)
C     R302: NH + N = H + N2
      RF(302) = 3.D13
      EQK = EG(15)*EG(65)/EG(51)/EG(52)
      RB(302) = RF(302) / MAX(EQK, SMALL)
C     R303: NO + NH = H + N2O
      RF(303) = EXP(3.553202816792097D1 -7.8D-1*ALOGT 
     * -1.006433335279839D1*TI)
      EQK = EG(15)*EG(55)/EG(46)/EG(51)
      RB(303) = RF(303) / MAX(EQK, SMALL)
C     R304: NO + NH = OH + N2
      RF(304) = EXP(3.41531139140987D1 -7.8D-1*ALOGT 
     * -1.006433335279839D1*TI)
      EQK = EG(16)*EG(65)/EG(46)/EG(51)
      RB(304) = RF(304) / MAX(EQK, SMALL)
C     R305: NO2 + NH = OH + N2O
      RF(305) = 4.1D12
      EQK = EG(16)*EG(55)/EG(47)/EG(51)
      RB(305) = RF(305) / MAX(EQK, SMALL)
C     R306: NO2 + NH = NO + HNO
      RF(306) = 5.9D12
      EQK = EG(46)*EG(54)/EG(47)/EG(51)
      RB(306) = RF(306) / MAX(EQK, SMALL)
C     R307: OH + N = H + NO
      RF(307) = 3.8D13
      EQK = EG(15)*EG(46)/EG(16)/EG(52)
      RB(307) = RF(307) / MAX(EQK, SMALL)
C     R308: O2 + N = O + NO
      RF(308) = EXP(2.249821818785809D1 +1.D0*ALOGT 
     * -3.160200672778696D3*TI)
      EQK = EG(18)*EG(46)/EG(14)/EG(52)
      RB(308) = RF(308) / MAX(EQK, SMALL)
C     R309: NO + N = O + N2
      RF(309) = EXP(2.987173080520451D1 +1.4D-1*ALOGT)
      EQK = EG(18)*EG(65)/EG(46)/EG(52)
      RB(309) = RF(309) / MAX(EQK, SMALL)
C     R310: NNH = H + N2
      RF(310) = 1.D9
      EQK = EG(15)*EG(65)/EG(53)*PFAC1
      RB(310) = RF(310) / MAX(EQK, SMALL)
C     R311: H + NNH = H2 + N2
      RF(311) = 1.D14
      EQK = EG(7)*EG(65)/EG(15)/EG(53)
      RB(311) = RF(311) / MAX(EQK, SMALL)
C     R312: O + NNH = H + N2O
      RF(312) = EXP(3.287804518808903D1 -2.74D-1*ALOGT 
     * +1.107076668807823D1*TI)
      EQK = EG(15)*EG(55)/EG(18)/EG(53)
      RB(312) = RF(312) / MAX(EQK, SMALL)
C     R313: O + NNH = OH + N2
      RF(313) = EXP(3.011592776571655D1 +1.45D-1*ALOGT 
     * +1.091980168778626D2*TI)
      EQK = EG(16)*EG(65)/EG(18)/EG(53)
      RB(313) = RF(313) / MAX(EQK, SMALL)
C     R314: O + NNH = NO + NH
      RF(314) = EXP(2.697709464852188D1 +3.81D-1*ALOGT 
     * +2.058156170647271D2*TI)
      EQK = EG(46)*EG(51)/EG(18)/EG(53)
      RB(314) = RF(314) / MAX(EQK, SMALL)
C     R315: OH + NNH = H2O + N2
      RF(315) = 5.D13
      EQK = EG(19)*EG(65)/EG(16)/EG(53)
      RB(315) = RF(315) / MAX(EQK, SMALL)
C     R316: O2 + NNH = HO2 + N2
      RF(316) = EXP(3.395895789965774D1 -3.85D-1*ALOGT 
     * +6.541816679318956D0*TI)
      EQK = EG(17)*EG(65)/EG(14)/EG(53)
      RB(316) = RF(316) / MAX(EQK, SMALL)
C     R317: NH + NNH = NH2 + N2
      RF(317) = 5.D13
      EQK = EG(50)*EG(65)/EG(51)/EG(53)
      RB(317) = RF(317) / MAX(EQK, SMALL)
C     R318: NH2 + NNH = NH3 + N2
      RF(318) = 5.D13
      EQK = EG(49)*EG(65)/EG(50)/EG(53)
      RB(318) = RF(318) / MAX(EQK, SMALL)
C     R319: NO + NNH = HNO + N2
      RF(319) = 5.D13
      EQK = EG(54)*EG(65)/EG(46)/EG(53)
      RB(319) = RF(319) / MAX(EQK, SMALL)
C     R320: H + NO = HNO
      RF(320) = EXP(3.494424150301885D1 -4.1D-1*ALOGT)
      EQK = EG(54)/EG(15)/EG(46)/PFAC1
      RB(320) = RF(320) / MAX(EQK, SMALL)
C     R321: H + HNO = H2 + NO
      RF(321) = EXP(2.491292057897284D1 +9.399999999999999D-1*ALOGT 
     * -2.490922504817602D2*TI)
      EQK = EG(7)*EG(46)/EG(15)/EG(54)
      RB(321) = RF(321) / MAX(EQK, SMALL)
C     R322: O + HNO = OH + NO
      RF(322) = 2.3D13
      EQK = EG(16)*EG(46)/EG(18)/EG(54)
      RB(322) = RF(322) / MAX(EQK, SMALL)
C     R323: OH + HNO = H2O + NO
      RF(323) = EXP(2.090558739374037D1 +1.189D0*ALOGT 
     * -1.680743669917332D2*TI)
      EQK = EG(19)*EG(46)/EG(16)/EG(54)
      RB(323) = RF(323) / MAX(EQK, SMALL)
C     R324: O2 + HNO = HO2 + NO
      RF(324) = EXP(3.062675338948254D1 -8.051466682238715D3*TI)
      EQK = EG(17)*EG(46)/EG(14)/EG(54)
      RB(324) = RF(324) / MAX(EQK, SMALL)
C     R325: 2HNO = H2O + N2O
      RF(325) = EXP(2.061790532128859D1 -1.559971669683751D3*TI)
      EQK = EG(19)*EG(55)/EG(54)/EG(54)
      RB(325) = RF(325) / MAX(EQK, SMALL)
C     R326: HO2 + NO = OH + NO2
      RF(326) = EXP(2.837295846065793D1 +2.500986838170401D2*TI)
      EQK = EG(16)*EG(47)/EG(17)/EG(46)
      RB(326) = RF(326) / MAX(EQK, SMALL)
C     R327: O + NO = NO2
      RF(327) = EXP(3.480114065937818D1 -7.5D-1*ALOGT)
      EQK = EG(47)/EG(18)/EG(46)/PFAC1
      RB(327) = RF(327) / MAX(EQK, SMALL)
C     R328: H + NO2 = OH + NO
      RF(328) = EXP(3.249855556638413D1 -1.821644336856509D2*TI)
      EQK = EG(16)*EG(46)/EG(15)/EG(47)
      RB(328) = RF(328) / MAX(EQK, SMALL)
C     R329: O + NO2 = O2 + NO
      RF(329) = EXP(3.233150148172096D1 -5.2D-1*ALOGT)
      EQK = EG(14)*EG(46)/EG(18)/EG(47)
      RB(329) = RF(329) / MAX(EQK, SMALL)
C     R330: 2NO2 = O2 + 2NO
      RF(330) = EXP(2.913509851270482D1 -1.388827681019414D4*TI)
      EQK = EG(14)*EG(46)*EG(46)/EG(47)/EG(47)*PFAC1
      RB(330) = RF(330) / MAX(EQK, SMALL)
C     R331: N2O = O + N2
      RF(331) = EXP(2.5318385687081D1 -2.913674827301899D4*TI)
      EQK = EG(18)*EG(65)/EG(55)*PFAC1
      RB(331) = RF(331) / MAX(EQK, SMALL)
C     R332: H + N2O = OH + N2
      RF(332) = EXP(1.797439364132395D1 +1.835D0*ALOGT 
     * -6.789399279797796D3*TI)
      EQK = EG(16)*EG(65)/EG(15)/EG(55)
      RB(332) = RF(332) / MAX(EQK, SMALL)
C     R333: O + N2O = 2NO
      RF(333) = EXP(3.215280969297759D1 -1.392853414360534D4*TI)
      EQK = EG(46)*EG(46)/EG(18)/EG(55)
      RB(333) = RF(333) / MAX(EQK, SMALL)
C     R334: O + N2O = O2 + N2
      RF(334) = EXP(3.215280969297759D1 -1.392853414360534D4*TI)
      EQK = EG(14)*EG(65)/EG(18)/EG(55)
      RB(334) = RF(334) / MAX(EQK, SMALL)
C     R335: OH + N2O = HO2 + N2
      RF(335) = EXP(-4.342805921520601D0 +4.72D0*ALOGT 
     * -1.839760136891546D4*TI)
      EQK = EG(17)*EG(65)/EG(16)/EG(55)
      RB(335) = RF(335) / MAX(EQK, SMALL)
C     R336: OH + N2O = NO + HNO
      RF(336) = EXP(-9.028018815182229D0 +4.33D0*ALOGT 
     * -1.262067402440919D4*TI)
      EQK = EG(46)*EG(54)/EG(16)/EG(55)
      RB(336) = RF(336) / MAX(EQK, SMALL)
C     R337: NO + N2O = NO2 + N2
      RF(337) = EXP(1.31806322855283D1 +2.23D0*ALOGT 
     * -2.328886737837548D4*TI)
      EQK = EG(47)*EG(65)/EG(46)/EG(55)
      RB(337) = RF(337) / MAX(EQK, SMALL)
C     R338: HCN = H + CN
      RF(338) = EXP(8.181425368641372D1 -5.13D0*ALOGT 
     * -6.692781679610931D4*TI)
      EQK = EG(15)*EG(57)/EG(48)*PFAC1
      RB(338) = RF(338) / MAX(EQK, SMALL)
C     R339: HCN = H + CN
      RF(339) = EXP(6.114814626330725D1 -2.6D0*ALOGT 
     * -6.284672962154957D4*TI)
      EQK = EG(15)*EG(57)/EG(48)*PFAC1
      RB(339) = RF(339) / MAX(EQK, SMALL)
C     R340: HCN = HNC
      RF(340) = EXP(6.033721604709093D1 -3.23D0*ALOGT 
     * -2.762659505343159D4*TI)
      EQK = EG(56)/EG(48)
      RB(340) = RF(340) / MAX(EQK, SMALL)
C     R341: H2 + CN = H + HCN
      RF(341) = EXP(1.160823564477455D1 +2.6D0*ALOGT 
     * -9.601374018569668D2*TI)
      EQK = EG(15)*EG(48)/EG(7)/EG(57)
      RB(341) = RF(341) / MAX(EQK, SMALL)
C     R342: O + HCN = H + NCO
      RF(342) = EXP(9.546812608597396D0 +2.64D0*ALOGT 
     * -2.5060190048468D3*TI)
      EQK = EG(15)*EG(60)/EG(18)/EG(48)
      RB(342) = RF(342) / MAX(EQK, SMALL)
C     R343: O + HCN = CO + NH
      RF(343) = EXP(8.160518247477505D0 +2.64D0*ALOGT 
     * -2.5060190048468D3*TI)
      EQK = EG(9)*EG(51)/EG(18)/EG(48)
      RB(343) = RF(343) / MAX(EQK, SMALL)
C     R344: O + HCN = OH + CN
      RF(344) = EXP(2.446093545522978D1 +4.D-1*ALOGT 
     * -1.039897243677894D4*TI)
      EQK = EG(16)*EG(57)/EG(18)/EG(48)
      RB(344) = RF(344) / MAX(EQK, SMALL)
C     R345: OH + HCN = H2O + CN
      RF(345) = EXP(1.517648711109987D1 +1.83D0*ALOGT 
     * -5.183131676691172D3*TI)
      EQK = EG(19)*EG(57)/EG(16)/EG(48)
      RB(345) = RF(345) / MAX(EQK, SMALL)
C     R346: OH + HCN = H + HNCO
      RF(346) = EXP(-6.214608098422191D0 +4.D0*ALOGT 
     * -5.032166676399197D2*TI)
      EQK = EG(15)*EG(58)/EG(16)/EG(48)
      RB(346) = RF(346) / MAX(EQK, SMALL)
C     R347: OH + HCN = CO + NH2
      RF(347) = EXP(-7.156216638280637D0 +4.D0*ALOGT 
     * -2.012866670559679D3*TI)
      EQK = EG(9)*EG(50)/EG(16)/EG(48)
      RB(347) = RF(347) / MAX(EQK, SMALL)
C     R348: O2 + HCN = HO2 + CN
      RF(348) = EXP(3.10322184975907D1 -3.779157173975796D4*TI)
      EQK = EG(17)*EG(57)/EG(14)/EG(48)
      RB(348) = RF(348) / MAX(EQK, SMALL)
C     R349: HNC = HCN
      RF(349) = EXP(3.198772994261814D1 -1.811580003503711D3*TI)
      EQK = EG(48)/EG(56)
      RB(349) = RF(349) / MAX(EQK, SMALL)
C     R350: O + HNC = CO + NH
      RF(350) = EXP(2.91570774194236D1 -1.107076668807823D3*TI)
      EQK = EG(9)*EG(51)/EG(18)/EG(56)
      RB(350) = RF(350) / MAX(EQK, SMALL)
C     R351: OH + HNC = H + HNCO
      RF(351) = EXP(2.891195496139061D1 +2.410407837995215D2*TI)
      EQK = EG(15)*EG(58)/EG(16)/EG(56)
      RB(351) = RF(351) / MAX(EQK, SMALL)
C     R352: OH + HNC = H2O + CN
      RF(352) = EXP(5.703782474656201D0 +3.16D0*ALOGT 
     * -5.334096676983148D3*TI)
      EQK = EG(19)*EG(57)/EG(16)/EG(56)
      RB(352) = RF(352) / MAX(EQK, SMALL)
C     R353: O + CN = CO + N
      RF(353) = EXP(2.827287500210094D1 +4.6D-1*ALOGT 
     * -3.638256507036619D2*TI)
      EQK = EG(9)*EG(52)/EG(18)/EG(57)
      RB(353) = RF(353) / MAX(EQK, SMALL)
C     R354: OH + CN = H + NCO
      RF(354) = EXP(3.453877639491068D1 -4.37D-1*ALOGT)
      EQK = EG(15)*EG(60)/EG(16)/EG(57)
      RB(354) = RF(354) / MAX(EQK, SMALL)
C     R355: O2 + CN = O + NCO
      RF(355) = EXP(2.938887903348092D1 +2.098413504058465D2*TI)
      EQK = EG(18)*EG(60)/EG(14)/EG(57)
      RB(355) = RF(355) / MAX(EQK, SMALL)
C     R356: O2 + CN = CO + NO
      RF(356) = EXP(2.796749335254976D1 +2.098413504058465D2*TI)
      EQK = EG(9)*EG(46)/EG(14)/EG(57)
      RB(356) = RF(356) / MAX(EQK, SMALL)
C     R357: NO + CN = N + NCO
      RF(357) = EXP(3.219536930739638D1 -2.118542170764062D4*TI)
      EQK = EG(52)*EG(60)/EG(46)/EG(57)
      RB(357) = RF(357) / MAX(EQK, SMALL)
C     R358: NO2 + CN = NO + NCO
      RF(358) = EXP(3.620648321546876D1 -7.52D-1*ALOGT 
     * -1.731065336681324D2*TI)
      EQK = EG(46)*EG(60)/EG(47)/EG(57)
      RB(358) = RF(358) / MAX(EQK, SMALL)
C     R359: NO2 + CN = CO + N2O
      RF(359) = EXP(3.382542650703322D1 -7.52D-1*ALOGT 
     * -1.731065336681324D2*TI)
      EQK = EG(9)*EG(55)/EG(47)/EG(57)
      RB(359) = RF(359) / MAX(EQK, SMALL)
C     R360: NO2 + CN = CO2 + N2
      RF(360) = EXP(3.354452412156682D1 -7.52D-1*ALOGT 
     * -1.731065336681324D2*TI)
      EQK = EG(29)*EG(65)/EG(47)/EG(57)
      RB(360) = RF(360) / MAX(EQK, SMALL)
C     R361: HNO + CN = NO + HCN
      RF(361) = 1.8D13
      EQK = EG(46)*EG(48)/EG(54)/EG(57)
      RB(361) = RF(361) / MAX(EQK, SMALL)
C     R362: CN + HNCO = HCN + NCO
      RF(362) = EXP(3.109675701872828D1 -4.866105176078023D3*TI)
      EQK = EG(48)*EG(60)/EG(57)/EG(58)
      RB(362) = RF(362) / MAX(EQK, SMALL)
C     R363: CN + HNCO = CO + HNCN
      RF(363) = EXP(3.197482653778223D1 -4.745333175844443D3*TI)
      EQK = EG(9)*EG(62)/EG(57)/EG(58)
      RB(363) = RF(363) / MAX(EQK, SMALL)
C     R364: CN + NCO = CO + NCN
      RF(364) = EXP(3.019597047339008D1 +1.549907336330953D2*TI)
      EQK = EG(9)*EG(61)/EG(57)/EG(60)
      RB(364) = RF(364) / MAX(EQK, SMALL)
C     R365: HNCO = CO + NH
      RF(365) = EXP(3.693667166770906D1 -4.32766334170331D4*TI)
      EQK = EG(9)*EG(51)/EG(58)*PFAC1
      RB(365) = RF(365) / MAX(EQK, SMALL)
C     R366: H + HNCO = CO + NH2
      RF(366) = EXP(1.049127421743825D1 +2.49D0*ALOGT 
     * -1.180043085615612D3*TI)
      EQK = EG(9)*EG(50)/EG(15)/EG(58)
      RB(366) = RF(366) / MAX(EQK, SMALL)
C     R367: H + HNCO = H2 + NCO
      RF(367) = EXP(1.831532022829454D1 +1.66D0*ALOGT 
     * -6.994711680194883D3*TI)
      EQK = EG(7)*EG(60)/EG(15)/EG(58)
      RB(367) = RF(367) / MAX(EQK, SMALL)
C     R368: O + HNCO = OH + NCO
      RF(368) = EXP(1.460396791832854D1 +2.11D0*ALOGT 
     * -5.751766511124282D3*TI)
      EQK = EG(16)*EG(60)/EG(18)/EG(58)
      RB(368) = RF(368) / MAX(EQK, SMALL)
C     R369: O + HNCO = CO2 + NH
      RF(369) = EXP(1.837985874943211D1 +1.41D0*ALOGT 
     * -4.287406008292116D3*TI)
      EQK = EG(29)*EG(51)/EG(18)/EG(58)
      RB(369) = RF(369) / MAX(EQK, SMALL)
C     R370: O + HNCO = CO + HNO
      RF(370) = EXP(1.882614585206053D1 +1.57D0*ALOGT 
     * -2.214757197616815D4*TI)
      EQK = EG(9)*EG(54)/EG(18)/EG(58)
      RB(370) = RF(370) / MAX(EQK, SMALL)
C     R371: OH + HNCO = H2O + NCO
      RF(371) = EXP(1.737085861945369D1 +1.5D0*ALOGT 
     * -1.811580003503711D3*TI)
      EQK = EG(19)*EG(60)/EG(16)/EG(58)
      RB(371) = RF(371) / MAX(EQK, SMALL)
C     R372: HO2 + HNCO = H2O2 + NCO
      RF(372) = EXP(2.642704831160261D1 -1.107076668807823D4*TI)
      EQK = EG(20)*EG(60)/EG(17)/EG(58)
      RB(372) = RF(372) / MAX(EQK, SMALL)
C     R373: O2 + HNCO = CO2 + HNO
      RF(373) = EXP(3.062675338948254D1 -2.963946172399127D4*TI)
      EQK = EG(29)*EG(54)/EG(14)/EG(58)
      RB(373) = RF(373) / MAX(EQK, SMALL)
C     R374: H2O + HNCO = CO2 + NH3
      RF(374) = EXP(3.062675338948254D1 -2.44060083805361D4*TI)
      EQK = EG(29)*EG(49)/EG(19)/EG(58)
      RB(374) = RF(374) / MAX(EQK, SMALL)
C     R375: NH + HNCO = NH2 + NCO
      RF(375) = EXP(3.10322184975907D1 -1.19262350230661D4*TI)
      EQK = EG(50)*EG(60)/EG(51)/EG(58)
      RB(375) = RF(375) / MAX(EQK, SMALL)
C     R376: HCNO = O + HCN
      RF(376) = EXP(7.281522240810474D1 -6.12D0*ALOGT 
     * -3.080189222623948D4*TI)
      EQK = EG(18)*EG(48)/EG(59)*PFAC1
      RB(376) = RF(376) / MAX(EQK, SMALL)
C     R377: H + HCNO = OH + HCN
      RF(377) = EXP(2.499993195596247D1 +8.41D-1*ALOGT 
     * -4.333701941714989D3*TI)
      EQK = EG(16)*EG(48)/EG(15)/EG(59)
      RB(377) = RF(377) / MAX(EQK, SMALL)
C     R378: O + HCNO = HCO + NO
      RF(378) = 6.3D13
      EQK = EG(25)*EG(46)/EG(18)/EG(59)
      RB(378) = RF(378) / MAX(EQK, SMALL)
C     R379: O + HCNO = OH + NCO
      RF(379) = 7.D12
      EQK = EG(16)*EG(60)/EG(18)/EG(59)
      RB(379) = RF(379) / MAX(EQK, SMALL)
C     R380: OH + HCNO = HCO + HNO
      RF(380) = EXP(2.94227805851566D1 +7.497928347834803D2*TI)
      EQK = EG(25)*EG(54)/EG(16)/EG(59)
      RB(380) = RF(380) / MAX(EQK, SMALL)
C     R381: CN + HCNO = HCN + NCO
      RF(381) = 6.D13
      EQK = EG(48)*EG(60)/EG(57)/EG(59)
      RB(381) = RF(381) / MAX(EQK, SMALL)
C     R382: HCNO + NCO = CO + NO + HCN
      RF(382) = 9.6D12
      EQK = EG(9)*EG(46)*EG(48)/EG(59)/EG(60)*PFAC1
      RB(382) = RF(382) / MAX(EQK, SMALL)
C     R383: NCO = CO + N
      RF(383) = EXP(3.302464866228091D1 -2.719886088593766D4*TI)
      EQK = EG(9)*EG(52)/EG(60)*PFAC1
      RB(383) = RF(383) / MAX(EQK, SMALL)
C     R384: H + NCO = CO + NH
      RF(384) = EXP(3.19076872349446D1 -5.032166676399197D2*TI)
      EQK = EG(9)*EG(51)/EG(15)/EG(60)
      RB(384) = RF(384) / MAX(EQK, SMALL)
C     R385: O + NCO = CO + NO
      RF(385) = EXP(3.523192357547063D1 -5.D-1*ALOGT)
      EQK = EG(9)*EG(46)/EG(18)/EG(60)
      RB(385) = RF(385) / MAX(EQK, SMALL)
C     R386: OH + NCO = CO + H + NO
      RF(386) = EXP(2.97472766307311D1 -5.D-2*ALOGT 
     * -9.079035117559431D3*TI)
      EQK = EG(9)*EG(15)*EG(46)/EG(16)/EG(60)*PFAC1
      RB(386) = RF(386) / MAX(EQK, SMALL)
C     R387: HO2 + NCO = O2 + HNCO
      RF(387) = 2.D13
      EQK = EG(14)*EG(58)/EG(17)/EG(60)
      RB(387) = RF(387) / MAX(EQK, SMALL)
C     R388: O2 + NCO = CO2 + NO
      RF(388) = EXP(2.832416829648849D1 -1.006433335279839D4*TI)
      EQK = EG(29)*EG(46)/EG(14)/EG(60)
      RB(388) = RF(388) / MAX(EQK, SMALL)
C     R389: NO + NCO = CO + N2O
      RF(389) = EXP(4.513541112800676D1 -2.19D0*ALOGT 
     * -8.7710665169638D2*TI)
      EQK = EG(9)*EG(55)/EG(46)/EG(60)
      RB(389) = RF(389) / MAX(EQK, SMALL)
C     R390: NO + NCO = CO2 + N2
      RF(390) = EXP(4.875975206098312D1 -2.74D0*ALOGT 
     * -9.178672017752135D2*TI)
      EQK = EG(29)*EG(65)/EG(46)/EG(60)
      RB(390) = RF(390) / MAX(EQK, SMALL)
C     R391: NO2 + NCO = CO + 2NO
      RF(391) = EXP(2.624472675480866D1 +3.557741840214232D2*TI)
      EQK = EG(9)*EG(46)*EG(46)/EG(47)/EG(60)*PFAC1
      RB(391) = RF(391) / MAX(EQK, SMALL)
C     R392: NO2 + NCO = CO2 + N2O
      RF(392) = EXP(2.872963340459666D1 +3.557741840214232D2*TI)
      EQK = EG(29)*EG(55)/EG(47)/EG(60)
      RB(392) = RF(392) / MAX(EQK, SMALL)
C     R393: HNO + NCO = NO + HNCO
      RF(393) = 1.8D13
      EQK = EG(46)*EG(58)/EG(54)/EG(60)
      RB(393) = RF(393) / MAX(EQK, SMALL)
C     R394: NH3 + NCO = NH2 + HNCO
      RF(394) = EXP(1.023995978915734D1 +2.48D0*ALOGT 
     * -4.931523342871213D2*TI)
      EQK = EG(50)*EG(58)/EG(49)/EG(60)
      RB(394) = RF(394) / MAX(EQK, SMALL)
C     R395: N + NCO = CO + N2
      RF(395) = 2.D13
      EQK = EG(9)*EG(65)/EG(52)/EG(60)
      RB(395) = RF(395) / MAX(EQK, SMALL)
C     R396: 2NCO = 2CO + N2
      RF(396) = 1.8D13
      EQK = EG(9)*EG(9)*EG(65)/EG(60)/EG(60)*PFAC1
      RB(396) = RF(396) / MAX(EQK, SMALL)
C     R397: CO + NO2 = CO2 + NO
      RF(397) = EXP(3.213083078625881D1 -1.700872336622929D4*TI)
      EQK = EG(29)*EG(46)/EG(9)/EG(47)
      RB(397) = RF(397) / MAX(EQK, SMALL)
C     R398: CO + N2O = CO2 + N2
      RF(398) = EXP(2.632168779594479D1 -1.018359570302905D4*TI)
      EQK = EG(29)*EG(65)/EG(9)/EG(55)
      RB(398) = RF(398) / MAX(EQK, SMALL)
C     R399: CO2 + N = CO + NO
      RF(399) = EXP(2.832416829648849D1 -1.006433335279839D4*TI)
      EQK = EG(9)*EG(46)/EG(29)/EG(52)
      RB(399) = RF(399) / MAX(EQK, SMALL)
C     R400: CO2 + CN = CO + NCO
      RF(400) = EXP(1.512384337761445D1 +2.16D0*ALOGT 
     * -1.353652835951384D4*TI)
      EQK = EG(9)*EG(60)/EG(29)/EG(57)
      RB(400) = RF(400) / MAX(EQK, SMALL)
C     R401: CH2O + CN = HCO + HCN
      RF(401) = EXP(7.438383530044307D0 +2.72D0*ALOGT 
     * +7.180901847221654D2*TI)
      EQK = EG(25)*EG(48)/EG(26)/EG(57)
      RB(401) = RF(401) / MAX(EQK, SMALL)
C     R402: CH2O + NCO = HCO + HNCO
      RF(402) = 6.D12
      EQK = EG(25)*EG(58)/EG(26)/EG(60)
      RB(402) = RF(402) / MAX(EQK, SMALL)
C     R403: HCO + NO = CO + HNO
      RF(403) = 6.9D12
      EQK = EG(9)*EG(54)/EG(25)/EG(46)
      RB(403) = RF(403) / MAX(EQK, SMALL)
C     R404: HCO + HNO = CH2O + NO
      RF(404) = EXP(-5.44727175441672D-1 +3.84D0*ALOGT 
     * -5.786991677859076D1*TI)
      EQK = EG(26)*EG(46)/EG(25)/EG(54)
      RB(404) = RF(404) / MAX(EQK, SMALL)
C     R405: HCO + NO2 = H + CO2 + NO
      RF(405) = 2.3D13
      EQK = EG(15)*EG(29)*EG(46)/EG(25)/EG(47)*PFAC1
      RB(405) = RF(405) / MAX(EQK, SMALL)
C     R406: HCO + NO2 = CO + OH + NO
      RF(406) = 5.D12
      EQK = EG(9)*EG(16)*EG(46)/EG(25)/EG(47)*PFAC1
      RB(406) = RF(406) / MAX(EQK, SMALL)
C     R407: HCO + NCO = CO + HNCO
      RF(407) = 3.6D13
      EQK = EG(9)*EG(58)/EG(25)/EG(60)
      RB(407) = RF(407) / MAX(EQK, SMALL)
C     R408: CH4 + NH2 = CH3 + NH3
      RF(408) = EXP(7.313220387090301D0 +3.01D0*ALOGT 
     * -5.001973676340802D3*TI)
      EQK = EG(13)*EG(49)/EG(3)/EG(50)
      RB(408) = RF(408) / MAX(EQK, SMALL)
C     R409: CH4 + CN = CH3 + HCN
      RF(409) = EXP(1.366468766822969D1 +2.3D0*ALOGT 
     * +1.610293336447743D1*TI)
      EQK = EG(13)*EG(48)/EG(3)/EG(57)
      RB(409) = RF(409) / MAX(EQK, SMALL)
C     R410: CH4 + NCO = CH3 + HNCO
      RF(410) = EXP(2.991340350160507D1 -4.086119341236148D3*TI)
      EQK = EG(13)*EG(58)/EG(3)/EG(60)
      RB(410) = RF(410) / MAX(EQK, SMALL)
C     R411: CH3 + NH2 = CH4 + NH
      RF(411) = EXP(1.484512997514543D1 +1.94D0*ALOGT 
     * -4.634625508963661D3*TI)
      EQK = EG(3)*EG(51)/EG(13)/EG(50)
      RB(411) = RF(411) / MAX(EQK, SMALL)
C     R412: CH3 + NH2 = CH2 + NH3
      RF(412) = EXP(1.428551418721001D1 +1.87D0*ALOGT 
     * -3.809350174034192D3*TI)
      EQK = EG(23)*EG(49)/EG(13)/EG(50)
      RB(412) = RF(412) / MAX(EQK, SMALL)
C     R413: CH3 + NH = H + CH2NH
      RF(413) = 4.D13
      EQK = EG(15)*EG(63)/EG(13)/EG(51)
      RB(413) = RF(413) / MAX(EQK, SMALL)
C     R414: CH3 + NH = CH4 + N
      RF(414) = EXP(1.361705961924044D1 +1.87D0*ALOGT 
     * -2.94482393902881D3*TI)
      EQK = EG(3)*EG(52)/EG(13)/EG(51)
      RB(414) = RF(414) / MAX(EQK, SMALL)
C     R415: CH3 + N = H + H2CN
      RF(415) = 7.1D13
      EQK = EG(15)*EG(64)/EG(13)/EG(52)
      RB(415) = RF(415) / MAX(EQK, SMALL)
C     R416: CH3 + HNO = CH4 + NO
      RF(416) = EXP(2.573390113104267D1 +7.6D-1*ALOGT 
     * -1.751194003386921D2*TI)
      EQK = EG(3)*EG(46)/EG(13)/EG(54)
      RB(416) = RF(416) / MAX(EQK, SMALL)
C     R417: CH3 + NO = H2O + HCN
      RF(417) = EXP(-1.897119984885881D0 +3.52D0*ALOGT 
     * -1.987705837177683D3*TI)
      EQK = EG(19)*EG(48)/EG(13)/EG(46)
      RB(417) = RF(417) / MAX(EQK, SMALL)
C     R418: CH3 + NO = OH + H2CN
      RF(418) = EXP(-1.897119984885881D0 +3.52D0*ALOGT 
     * -1.987705837177683D3*TI)
      EQK = EG(16)*EG(64)/EG(13)/EG(46)
      RB(418) = RF(418) / MAX(EQK, SMALL)
C     R419: CH3 + NO2 = CH3O + NO
      RF(419) = 1.1D13
      EQK = EG(27)*EG(46)/EG(13)/EG(47)
      RB(419) = RF(419) / MAX(EQK, SMALL)
C     R420: CH2 + N2 = HCN + NH
      RF(420) = EXP(2.993360620892259D1 -3.723803340535406D4*TI)
      EQK = EG(48)*EG(51)/EG(23)/EG(65)
      RB(420) = RF(420) / MAX(EQK, SMALL)
C     R421: CH2 + N = H + HCN
      RF(421) = 5.D13
      EQK = EG(15)*EG(48)/EG(23)/EG(52)
      RB(421) = RF(421) / MAX(EQK, SMALL)
C     R422: CH2 + NO = H + HCNO
      RF(422) = EXP(2.876242322741965D1 +1.902159003678896D2*TI)
      EQK = EG(15)*EG(59)/EG(23)/EG(46)
      RB(422) = RF(422) / MAX(EQK, SMALL)
C     R423: CH2 + NO = OH + HCN
      RF(423) = EXP(2.66894125760701D1 +1.902159003678896D2*TI)
      EQK = EG(16)*EG(48)/EG(23)/EG(46)
      RB(423) = RF(423) / MAX(EQK, SMALL)
C     R424: CH2 + NO2 = CH2O + NO
      RF(424) = 5.9D13
      EQK = EG(26)*EG(46)/EG(23)/EG(47)
      RB(424) = RF(424) / MAX(EQK, SMALL)
C     R425: CH2* + NO = OH + HCN
      RF(425) = 2.D13
      EQK = EG(16)*EG(48)/EG(24)/EG(46)
      RB(425) = RF(425) / MAX(EQK, SMALL)
C     R426: CH2* = CH2
      RF(426) = 1.D14
      EQK = EG(23)/EG(24)
      RB(426) = RF(426) / MAX(EQK, SMALL)
C     R427: CH2* + N2O = CH2O + N2
      RF(427) = 3.8D13
      EQK = EG(26)*EG(65)/EG(24)/EG(55)
      RB(427) = RF(427) / MAX(EQK, SMALL)
C     R428: CH + N2 = H + NCN
      RF(428) = EXP(2.163955656882057D1 +8.9D-1*ALOGT 
     * -8.363461016175464D3*TI)
      EQK = EG(15)*EG(61)/EG(22)/EG(65)
      RB(428) = RF(428) / MAX(EQK, SMALL)
C     R429: CH + N2 = HNCN
      RF(429) = EXP(5.329592937548426D1 -3.74D0*ALOGT 
     * -7.96088768206353D3*TI)
      EQK = EG(62)/EG(22)/EG(65)/PFAC1
      RB(429) = RF(429) / MAX(EQK, SMALL)
C     R430: CH + NH3 = 2H + H2CN
      RF(430) = EXP(3.141521074984681D1 +3.170265006131494D2*TI)
      EQK = EG(15)*EG(15)*EG(64)/EG(22)/EG(49)*PFAC1
      RB(430) = RF(430) / MAX(EQK, SMALL)
C     R431: CH + N = H + CN
      RF(431) = 1.3D13
      EQK = EG(15)*EG(57)/EG(22)/EG(52)
      RB(431) = RF(431) / MAX(EQK, SMALL)
C     R432: CH + NO = CO + NH
      RF(432) = 9.1D12
      EQK = EG(9)*EG(51)/EG(22)/EG(46)
      RB(432) = RF(432) / MAX(EQK, SMALL)
C     R433: CH + NO = H + NCO
      RF(433) = 1.8D13
      EQK = EG(15)*EG(60)/EG(22)/EG(46)
      RB(433) = RF(433) / MAX(EQK, SMALL)
C     R434: CH + NO = O + HCN
      RF(434) = 7.9D13
      EQK = EG(18)*EG(48)/EG(22)/EG(46)
      RB(434) = RF(434) / MAX(EQK, SMALL)
C     R435: CH + NO = OH + CN
      RF(435) = 1.1D12
      EQK = EG(16)*EG(57)/EG(22)/EG(46)
      RB(435) = RF(435) / MAX(EQK, SMALL)
C     R436: CH + NO = HCO + N
      RF(436) = 6.8D12
      EQK = EG(25)*EG(52)/EG(22)/EG(46)
      RB(436) = RF(436) / MAX(EQK, SMALL)
C     R437: CH + NO2 = HCO + NO
      RF(437) = 1.D14
      EQK = EG(25)*EG(46)/EG(22)/EG(47)
      RB(437) = RF(437) / MAX(EQK, SMALL)
C     R438: N + CN = C + N2
      RF(438) = EXP(3.401114365282832D1 -4.D-1*ALOGT)
      EQK = EG(21)*EG(65)/EG(52)/EG(57)
      RB(438) = RF(438) / MAX(EQK, SMALL)
C     R439: CH + N2O = NO + HCN
      RF(439) = EXP(3.057546009509499D1 +2.571437171639989D2*TI)
      EQK = EG(46)*EG(48)/EG(22)/EG(55)
      RB(439) = RF(439) / MAX(EQK, SMALL)
C     R440: C + NO = O + CN
      RF(440) = 2.D13
      EQK = EG(18)*EG(57)/EG(21)/EG(46)
      RB(440) = RF(440) / MAX(EQK, SMALL)
C     R441: C + NO = CO + N
      RF(441) = 2.8D13
      EQK = EG(9)*EG(52)/EG(21)/EG(46)
      RB(441) = RF(441) / MAX(EQK, SMALL)
C     R442: C + N2O = NO + CN
      RF(442) = 4.8D12
      EQK = EG(46)*EG(57)/EG(21)/EG(55)
      RB(442) = RF(442) / MAX(EQK, SMALL)
C     R443: CH3O + HNO = CH3OH + NO
      RF(443) = 3.2D13
      EQK = EG(28)*EG(46)/EG(27)/EG(54)
      RB(443) = RF(443) / MAX(EQK, SMALL)
C     R444: CH3O + NO = CH2O + HNO
      RF(444) = EXP(2.964592413647081D1 -1.014988018629718D3*TI)
      EQK = EG(26)*EG(54)/EG(27)/EG(46)
      RB(444) = RF(444) / MAX(EQK, SMALL)
C     R445: CH3O + NO = CH2O + HNO
      RF(445) = EXP(4.236282240576698D1 -2.56D0*ALOGT)
      EQK = EG(26)*EG(54)/EG(27)/EG(46)
      RB(445) = RF(445) / MAX(EQK, SMALL)
C     R446: C2H6 + NH2 = C2H5 + NH3
      RF(446) = EXP(3.80666248977032D0 +3.46D0*ALOGT 
     * -2.81801333878355D3*TI)
      EQK = EG(33)*EG(49)/EG(8)/EG(50)
      RB(446) = RF(446) / MAX(EQK, SMALL)
C     R447: C2H6 + CN = C2H5 + HCN
      RF(447) = EXP(1.860300230074632D1 +1.8D0*ALOGT 
     * +5.001973676340801D2*TI)
      EQK = EG(33)*EG(48)/EG(8)/EG(57)
      RB(447) = RF(447) / MAX(EQK, SMALL)
C     R448: C2H6 + NCO = C2H5 + HNCO
      RF(448) = EXP(-2.031780072883825D1 +6.89D0*ALOGT 
     * +1.464360502832166D3*TI)
      EQK = EG(33)*EG(58)/EG(8)/EG(60)
      RB(448) = RF(448) / MAX(EQK, SMALL)
C     R449: C2H5 + N = C2H4 + NH
      RF(449) = 4.3D13
      EQK = EG(2)*EG(51)/EG(33)/EG(52)
      RB(449) = RF(449) / MAX(EQK, SMALL)
C     R450: C2H5 + N = CH3 + H2CN
      RF(450) = 2.3D13
      EQK = EG(13)*EG(64)/EG(33)/EG(52)
      RB(450) = RF(450) / MAX(EQK, SMALL)
C     R451: C2H4 + NH2 = C2H3 + NH3
      RF(451) = EXP(2.929872793648662D1 -5.170048043332535D3*TI)
      EQK = EG(32)*EG(49)/EG(2)/EG(50)
      RB(451) = RF(451) / MAX(EQK, SMALL)
C     R452: C2H3 + NO = CH2O + HCN
      RF(452) = EXP(5.030019710193027D1 -3.382D0*ALOGT 
     * -5.157970843309176D2*TI)
      EQK = EG(26)*EG(48)/EG(32)/EG(46)
      RB(452) = RF(452) / MAX(EQK, SMALL)
C     R453: C2H3 + NO2 = CH2CHO + NO
      RF(453) = EXP(3.427741163077628D1 -6.D-1*ALOGT)
      EQK = EG(36)*EG(46)/EG(32)/EG(47)
      RB(453) = RF(453) / MAX(EQK, SMALL)
C     R454: C2H2 + NCO = HCCO + HCN
      RF(454) = EXP(2.796749335254976D1 -9.133382517664542D2*TI)
      EQK = EG(34)*EG(48)/EG(11)/EG(60)
      RB(454) = RF(454) / MAX(EQK, SMALL)
C     R455: C2H + NH3 = C2H2 + NH2
      RF(455) = EXP(2.960510214195056D1 +3.69864250715341D2*TI)
      EQK = EG(11)*EG(50)/EG(31)/EG(49)
      RB(455) = RF(455) / MAX(EQK, SMALL)
C     R456: C2H + NO = CO + HCN
      RF(456) = EXP(3.145966251241764D1 -2.868335005547542D2*TI)
      EQK = EG(9)*EG(48)/EG(31)/EG(46)
      RB(456) = RF(456) / MAX(EQK, SMALL)
C     R457: C2H + NO = HCO + CN
      RF(457) = EXP(3.027007844554381D1 -2.868335005547542D2*TI)
      EQK = EG(25)*EG(57)/EG(31)/EG(46)
      RB(457) = RF(457) / MAX(EQK, SMALL)
C     R458: C2H + NO2 = HCCO + NO
      RF(458) = EXP(3.145966251241764D1 +1.298299002510993D2*TI)
      EQK = EG(34)*EG(46)/EG(31)/EG(47)
      RB(458) = RF(458) / MAX(EQK, SMALL)
C     R459: HCCO + N = CO + HCN
      RF(459) = 5.D13
      EQK = EG(9)*EG(48)/EG(34)/EG(52)
      RB(459) = RF(459) / MAX(EQK, SMALL)
C     R460: HCCO + NO = CO + HCNO
      RF(460) = EXP(2.964592413647081D1 +3.401744673245857D2*TI)
      EQK = EG(9)*EG(59)/EG(34)/EG(46)
      RB(460) = RF(460) / MAX(EQK, SMALL)
C     R461: HCCO + NO = CO2 + HCN
      RF(461) = EXP(2.837295846065793D1 +3.401744673245857D2*TI)
      EQK = EG(29)*EG(48)/EG(34)/EG(46)
      RB(461) = RF(461) / MAX(EQK, SMALL)
C     R462: HCCO + NO2 = CO2 + HCNO
      RF(462) = 1.6D13
      EQK = EG(29)*EG(59)/EG(34)/EG(47)
      RB(462) = RF(462) / MAX(EQK, SMALL)
C     R463: C2O + NO = CO + NCO
      RF(463) = EXP(3.223619130191664D1 -3.371551673187462D2*TI)
      EQK = EG(9)*EG(60)/EG(30)/EG(46)
      RB(463) = RF(463) / MAX(EQK, SMALL)
C     R464: C2O + NO2 = CO2 + NCO
      RF(464) = EXP(3.156284674865287D1 -6.290208345498996D1*TI)
      EQK = EG(29)*EG(60)/EG(30)/EG(47)
      RB(464) = RF(464) / MAX(EQK, SMALL)
C     R465: NCN = C + N2
      RF(465) = EXP(3.442224257865473D1 -3.124975506043901D4*TI)
      EQK = EG(21)*EG(65)/EG(61)*PFAC1
      RB(465) = RF(465) / MAX(EQK, SMALL)
C     R466: H + NCN = HNCN
      RF(466) = EXP(6.948301789792953D1 -5.43D0*ALOGT 
     * -2.221701587630245D3*TI)
      EQK = EG(62)/EG(15)/EG(61)/PFAC1
      RB(466) = RF(466) / MAX(EQK, SMALL)
C     R467: H + NCN = HCN + N
      RF(467) = EXP(2.611689338329877D1 +7.1D-1*ALOGT 
     * -2.677615888512013D3*TI)
      EQK = EG(48)*EG(52)/EG(15)/EG(61)
      RB(467) = RF(467) / MAX(EQK, SMALL)
C     R468: H + NCN = N + HNC
      RF(468) = EXP(-7.751725349276666D0 +4.69D0*ALOGT 
     * -1.224829369035564D3*TI)
      EQK = EG(52)*EG(56)/EG(15)/EG(61)
      RB(468) = RF(468) / MAX(EQK, SMALL)
C     R469: O + NCN = NO + CN
      RF(469) = EXP(3.084989694079675D1 +1.7D-1*ALOGT 
     * +1.710936669975727D1*TI)
      EQK = EG(46)*EG(57)/EG(18)/EG(61)
      RB(469) = RF(469) / MAX(EQK, SMALL)
C     R470: OH + NCN = NH + NCO
      RF(470) = EXP(4.197715992495499D1 -1.83D0*ALOGT 
     * -2.084826654032187D3*TI)
      EQK = EG(51)*EG(60)/EG(16)/EG(61)
      RB(470) = RF(470) / MAX(EQK, SMALL)
C     R471: OH + NCN = NO + HCN
      RF(471) = EXP(1.93761921889798D1 +1.22D0*ALOGT 
     * -1.808057486830231D3*TI)
      EQK = EG(46)*EG(48)/EG(16)/EG(61)
      RB(471) = RF(471) / MAX(EQK, SMALL)
C     R472: O2 + NCN = NO + NCO
      RF(472) = EXP(2.789338538039604D1 -1.165802053921402D4*TI)
      EQK = EG(46)*EG(60)/EG(14)/EG(61)
      RB(472) = RF(472) / MAX(EQK, SMALL)
C     R473: NO + NCN = N2O + CN
      RF(473) = EXP(2.827287500210094D1 -3.160200672778696D3*TI)
      EQK = EG(55)*EG(57)/EG(46)/EG(61)
      RB(473) = RF(473) / MAX(EQK, SMALL)
C     R474: 2NCN = 2CN + N2
      RF(474) = 3.7D12
      EQK = EG(57)*EG(57)*EG(65)/EG(61)/EG(61)*PFAC1
      RB(474) = RF(474) / MAX(EQK, SMALL)
C     R475: H2 + NCN = H + HNCN
      RF(475) = EXP(3.134459318263286D1 -1.212752169012206D4*TI)
      EQK = EG(15)*EG(62)/EG(7)/EG(61)
      RB(475) = RF(475) / MAX(EQK, SMALL)
C     R476: O + HNCN = NO + HNC
      RF(476) = EXP(3.241851285871059D1 -5.D-2*ALOGT 
     * -3.623160007007422D1*TI)
      EQK = EG(46)*EG(56)/EG(18)/EG(62)
      RB(476) = RF(476) / MAX(EQK, SMALL)
C     R477: O + HNCN = NH + NCO
      RF(477) = EXP(3.16563728066637D1 -5.D-2*ALOGT 
     * -3.623160007007422D1*TI)
      EQK = EG(51)*EG(60)/EG(18)/EG(62)
      RB(477) = RF(477) / MAX(EQK, SMALL)
C     R478: O + HNCN = HNO + CN
      RF(478) = EXP(2.987173080520451D1 -5.D-2*ALOGT 
     * -3.623160007007422D1*TI)
      EQK = EG(54)*EG(57)/EG(18)/EG(62)
      RB(478) = RF(478) / MAX(EQK, SMALL)
C     R479: OH + HNCN = H2O + NCN
      RF(479) = EXP(1.151292546497023D1 +2.48D0*ALOGT 
     * +9.495698518365284D2*TI)
      EQK = EG(19)*EG(61)/EG(16)/EG(62)
      RB(479) = RF(479) / MAX(EQK, SMALL)
C     R480: O2 + HNCN = HO2 + NCN
      RF(480) = EXP(1.868304500841986D1 +1.28D0*ALOGT 
     * -1.217784335688606D4*TI)
      EQK = EG(17)*EG(61)/EG(14)/EG(62)
      RB(480) = RF(480) / MAX(EQK, SMALL)
C     R481: CH3 + NH2 = H2 + CH2NH
      RF(481) = EXP(2.689705194084835D1 -2.D-1*ALOGT 
     * -9.763913002217361D3*TI)
      EQK = EG(7)*EG(63)/EG(13)/EG(50)
      RB(481) = RF(481) / MAX(EQK, SMALL)
C     R482: H + CH2NH = H2 + H2CN
      RF(482) = EXP(1.929614948130627D1 +1.5D0*ALOGT 
     * -3.684552440459492D3*TI)
      EQK = EG(7)*EG(64)/EG(15)/EG(63)
      RB(482) = RF(482) / MAX(EQK, SMALL)
C     R483: O + CH2NH = OH + H2CN
      RF(483) = EXP(1.895130899501454D1 +1.5D0*ALOGT 
     * -2.329893171172828D3*TI)
      EQK = EG(16)*EG(64)/EG(18)/EG(63)
      RB(483) = RF(483) / MAX(EQK, SMALL)
C     R484: O + CH2NH = CH2O + NH
      RF(484) = EXP(1.434613880902644D1 +2.08D0*ALOGT)
      EQK = EG(26)*EG(51)/EG(18)/EG(63)
      RB(484) = RF(484) / MAX(EQK, SMALL)
C     R485: OH + CH2NH = H2O + H2CN
      RF(485) = EXP(1.399783211475823D1 +2.D0*ALOGT 
     * +4.478628341995285D1*TI)
      EQK = EG(19)*EG(64)/EG(16)/EG(63)
      RB(485) = RF(485) / MAX(EQK, SMALL)
C     R486: CH3 + CH2NH = CH4 + H2CN
      RF(486) = EXP(1.361705961924044D1 +1.87D0*ALOGT 
     * -3.584412323599148D3*TI)
      EQK = EG(3)*EG(64)/EG(13)/EG(63)
      RB(486) = RF(486) / MAX(EQK, SMALL)
C     R487: NH2 + CH2NH = NH3 + H2CN
      RF(487) = EXP(1.373212894902522D1 +1.94D0*ALOGT 
     * -2.234785220988883D3*TI)
      EQK = EG(49)*EG(64)/EG(50)/EG(63)
      RB(487) = RF(487) / MAX(EQK, SMALL)
C     R488: H2CN = H + HCN
      RF(488) = EXP(7.317189735204347D1 -6.46D0*ALOGT 
     * -1.615828719791782D4*TI)
      EQK = EG(15)*EG(48)/EG(64)*PFAC1
      RB(488) = RF(488) / MAX(EQK, SMALL)
C     R489: H + H2CN = H2 + HCN
      RF(489) = EXP(1.929614948130627D1 +1.5D0*ALOGT 
     * +4.498757008700882D2*TI)
      EQK = EG(7)*EG(48)/EG(15)/EG(64)
      RB(489) = RF(489) / MAX(EQK, SMALL)
C     R490: O + H2CN = OH + HCN
      RF(490) = EXP(1.895130899501454D1 +1.5D0*ALOGT 
     * +4.498757008700882D2*TI)
      EQK = EG(16)*EG(48)/EG(18)/EG(64)
      RB(490) = RF(490) / MAX(EQK, SMALL)
C     R491: OH + H2CN = H2O + HCN
      RF(491) = EXP(4.415458187499503D1 -2.18D0*ALOGT 
     * -1.089967302108066D3*TI)
      EQK = EG(19)*EG(48)/EG(16)/EG(64)
      RB(491) = RF(491) / MAX(EQK, SMALL)
C     R492: OH + H2CN = H2O + HCN
      RF(492) = EXP(1.399783211475823D1 +2.D0*ALOGT 
     * +5.998342678267843D2*TI)
      EQK = EG(19)*EG(48)/EG(16)/EG(64)
      RB(492) = RF(492) / MAX(EQK, SMALL)
C     R493: O2 + H2CN = CH2O + NO
      RF(493) = EXP(2.872963340459666D1 -2.999674555801561D3*TI)
      EQK = EG(26)*EG(46)/EG(14)/EG(64)
      RB(493) = RF(493) / MAX(EQK, SMALL)
C     R494: NH2 + H2CN = HCN + NH3
      RF(494) = EXP(1.373212894902522D1 +1.94D0*ALOGT 
     * +5.797056011211874D2*TI)
      EQK = EG(48)*EG(49)/EG(50)/EG(64)
      RB(494) = RF(494) / MAX(EQK, SMALL)
C     R495: NH + H2CN = HCN + NH2
      RF(495) = EXP(1.895130899501454D1 +1.5D0*ALOGT 
     * +4.498757008700882D2*TI)
      EQK = EG(48)*EG(50)/EG(51)/EG(64)
      RB(495) = RF(495) / MAX(EQK, SMALL)
C     R496: N + H2CN = CH2 + N2
      RF(496) = 2.D13
      EQK = EG(23)*EG(65)/EG(52)/EG(64)
      RB(496) = RF(496) / MAX(EQK, SMALL)
C
      RKLOW(1) = EXP(4.559410099735222D1 -1.4D0*ALOGT)
      RKLOW(2) = EXP(3.984208130296976D1 -5.84D-1*ALOGT 
     * +1.153875818898336D3*TI)
      RKLOW(3) = EXP(5.542160680152843D1 -2.79D0*ALOGT 
     * -2.108981054078904D3*TI)
      RKLOW(4) = EXP(6.379313832844232D1 -3.42D0*ALOGT 
     * -4.244632591542722D4*TI)
      RKLOW(5) = EXP(6.546192379744703D1 -3.74D0*ALOGT 
     * -9.742274685508845D2*TI)
      RKLOW(6) = EXP(5.556214682430743D1 -2.57D0*ALOGT 
     * -7.170837513868855D2*TI)
      RKLOW(7) = EXP(6.333294832064492D1 -3.14D0*ALOGT 
     * -6.189565011971013D2*TI)
      RKLOW(8) = EXP(7.697484926241725D1 -5.11D0*ALOGT 
     * -3.57032225690523D3*TI)
      RKLOW(9) = EXP(8.849148530678401D1 -6.3D0*ALOGT 
     * -1.559971669683751D3*TI)
      RKLOW(10) = EXP(6.986601015018564D1 -4.8D0*ALOGT 
     * -2.797884672077953D3*TI)
      RKLOW(11) = EXP(7.689235621931073D1 -4.76D0*ALOGT 
     * -1.227848669041404D3*TI)
      RKLOW(12) = EXP(8.849148530678401D1 -6.3D0*ALOGT 
     * -1.559971669683751D3*TI)
      RKLOW(13) = EXP(1.15700234196288D2 -9.67D0*ALOGT 
     * -3.1300076727203D3*TI)
      RKLOW(14) = EXP(6.662414480709275D1 -4.D0*ALOGT 
     * -1.522230419610757D3*TI)
      RKLOW(15) = EXP(7.730706390878582D1 -4.8D0*ALOGT 
     * -9.561116685158474D2*TI)
      RKLOW(16) = EXP(6.311175598946197D1 -3.4D0*ALOGT 
     * -1.801451258417455D4*TI)
      RKLOW(17) = EXP(9.574098987948821D1 -7.64D0*ALOGT 
     * -5.988278344915044D3*TI)
      RKLOW(18) = EXP(6.941402502644259D1 -3.86D0*ALOGT 
     * -1.670679336564533D3*TI)
      RKLOW(19) = EXP(1.350015492208952D2 -1.194D1*ALOGT 
     * -4.916326199508487D3*TI)
      RKLOW(20) = EXP(9.086552936376022D1 -6.642D0*ALOGT 
     * -2.903056955614697D3*TI)
      RKLOW(21) = EXP(9.509412345149228D1 -7.08D0*ALOGT 
     * -3.364003423172863D3*TI)
      RKLOW(22) = EXP(1.293830201385977D2 -1.179D1*ALOGT 
     * -4.521150150410858D3*TI)
      RKLOW(23) = EXP(1.384402845218764D2 -1.2D1*ALOGT 
     * -3.003096429141513D3*TI)
      RKLOW(24) = EXP(1.3951864295364D2 -1.281D1*ALOGT 
     * -3.145104172749498D3*TI)
      RKLOW(25) = EXP(1.745809516235858D2 -1.63D1*ALOGT 
     * -3.522516673479438D3*TI)
      RKLOW(26) = EXP(5.193780589133107D1 -1.76D0*ALOGT)
      RKLOW(27) = EXP(3.311166003927054D1 +2.06D-1*ALOGT 
     * +7.799858348418755D2*TI)
      RKLOW(28) = EXP(5.681385103145456D1 -2.87D0*ALOGT 
     * -7.799858348418755D2*TI)
      RKLOW(29) = EXP(3.40279507711447D1 -2.890677825590755D4*TI)
C
      END
C                                                                      C
C----------------------------------------------------------------------C
C                                                                      C
      SUBROUTINE RDSMH  (T, SMH)
      IMPLICIT DOUBLE PRECISION (A-H, O-Z), INTEGER (I-N)
      DIMENSION SMH(*), TN(5)
C
      TLOG = LOG(T)
      TI = 1D0/T
C
      TN(1) = TLOG - 1D0
      TN(2) = T
      TN(3) = TN(2)*T
      TN(4) = TN(3)*T
      TN(5) = TN(4)*T
C C2H4
      IF (T .GT. 1000) THEN
      SMH(2) = 1.03053693D1 -4.93988614D3*TI 
     *         +2.03611116D0*TN(1) +7.32270755D-3*TN(2) 
     *         -1.118463191666667D-6*TN(3) +1.226857691666667D-10*TN(4) 
     *         -6.28530305D-15*TN(5) 
      ELSE
      SMH(2) = 4.09733096D0 -5.08977593D3*TI 
     *         +3.95920148D0*TN(1) -3.785261235D-3*TN(2) 
     *         +9.516504866666667D-6*TN(3) -5.763239608333333D-9*TN(4) 
     *         +1.349421865D-12*TN(5) 
      ENDIF
C CH4
      IF (T .GT. 1000) THEN
      SMH(3) = 1.8437318D1 +9.468344590000001D3*TI 
     *         +7.4851495D-2*TN(1) +6.69547335D-3*TN(2) 
     *         -9.554763483333333D-7*TN(3) +1.019104458333333D-10*TN(4) 
     *         -5.0907615D-15*TN(5) 
      ELSE
      SMH(3) = -4.64130376D0 +1.02466476D4*TI 
     *         +5.14987613D0*TN(1) -6.8354894D-3*TN(2) 
     *         +8.19667665D-6*TN(3) -4.039525216666667D-9*TN(4) 
     *         +8.3346978D-13*TN(5) 
      ENDIF
C C3H6
      IF (T .GT. 1000) THEN
      SMH(4) = -1.331335D1 +9.235703D2*TI 
     *         +6.732257D0*TN(1) +7.45417D-3*TN(2) 
     *         -8.249831666666666D-7*TN(3) +6.010018333333334D-11*TN(4) 
     *         -1.883102D-15*TN(5) 
      ELSE
      SMH(4) = 1.614534D1 -1.074826D3*TI 
     *         +1.493307D0*TN(1) +1.046259D-2*TN(2) 
     *         +7.47799D-7*TN(3) -1.39076D-9*TN(4) 
     *         +3.579073D-13*TN(5) 
      ENDIF
C iC4H8
      IF (T .GT. 1000) THEN
      SMH(5) = 1.0671549D0 +5.0066758D3*TI 
     *         +4.460947D0*TN(1) +1.48057435D-2*TN(2) 
     *         -2.1795215D-6*TN(3) +2.214327833333333D-10*TN(4) 
     *         -1.00673565D-14*TN(5) 
      ELSE
      SMH(5) = 1.2676388D1 +4.0373069D3*TI 
     *         +2.6471405D0*TN(1) +1.29514785D-2*TN(2) 
     *         +1.366422566666667D-6*TN(3) -1.84943825D-9*TN(4) 
     *         +4.447929D-13*TN(5) 
      ENDIF
C C4H81
      IF (T .GT. 1000) THEN
      SMH(6) = 1.5543201D1 +2.1397231D3*TI 
     *         +2.0535841D0*TN(1) +1.71752535D-2*TN(2) 
     *         -2.6471995D-6*TN(3) +2.757471833333334D-10*TN(4) 
     *         -1.26805225D-14*TN(5) 
      ELSE
      SMH(6) = 2.1062469D1 +1.7904004D3*TI 
     *         +1.181138D0*TN(1) +1.542669D-2*TN(2) 
     *         +8.477541166666667D-7*TN(3) -2.054574D-9*TN(4) 
     *         +5.555096499999999D-13*TN(5) 
      ENDIF
C H2
      IF (T .GT. 1000) THEN
      SMH(7) = -3.20502331D0 +9.50158922D2*TI 
     *         +3.3372792D0*TN(1) -2.470123655D-5*TN(2) 
     *         +8.324279633333333D-8*TN(3) -1.496386616666667D-11*TN(4) 
     *         +1.00127688D-15*TN(5) 
      ELSE
      SMH(7) = 6.83010238D-1 +9.17935173D2*TI 
     *         +2.34433112D0*TN(1) +3.990260375D-3*TN(2) 
     *         -3.2463585D-6*TN(3) +1.67976745D-9*TN(4) 
     *         -3.688058805D-13*TN(5) 
      ENDIF
C C2H6
      IF (T .GT. 1000) THEN
      SMH(8) = 1.51156107D1 +1.14263932D4*TI 
     *         +1.0718815D0*TN(1) +1.084263385D-2*TN(2) 
     *         -1.67093445D-6*TN(3) +1.845100008333333D-10*TN(4) 
     *         -9.5001445D-15*TN(5) 
      ELSE
      SMH(8) = 2.66682316D0 +1.15222055D4*TI 
     *         +4.29142492D0*TN(1) -2.75077135D-3*TN(2) 
     *         +9.990638133333334D-6*TN(3) -5.903885708333334D-9*TN(4) 
     *         +1.343428855D-12*TN(5) 
      ENDIF
C CO
      IF (T .GT. 1000) THEN
      SMH(9) = 7.81868772D0 +1.41518724D4*TI 
     *         +2.71518561D0*TN(1) +1.031263715D-3*TN(2) 
     *         -1.664709618333334D-7*TN(3) +1.9171084D-11*TN(4) 
     *         -1.01823858D-15*TN(5) 
      ELSE
      SMH(9) = 3.50840928D0 +1.4344086D4*TI 
     *         +3.57953347D0*TN(1) -3.0517684D-4*TN(2) 
     *         +1.69469055D-7*TN(3) +7.558382366666667D-11*TN(4) 
     *         -4.522122495D-14*TN(5) 
      ENDIF
C C6H6
      IF (T .GT. 1000) THEN
      SMH(10) = -2.9115665D1 -5.2043462D3*TI 
     *         +9.1381245D0*TN(1) +1.19272165D-2*TN(2) 
     *         -1.468795433333333D-6*TN(3) +1.00825175D-10*TN(4) 
     *         -9.110751500000001D-16*TN(5) 
      ELSE
      SMH(10) = 4.3889832D1 -9.1817773D3*TI 
     *         -4.8437734D0*TN(1) +2.92138065D-2*TN(2) 
     *         -4.914309166666667D-6*TN(3) -5.782536666666667D-10*TN(4) 
     *         +4.10626265D-13*TN(5) 
      ENDIF
C C2H2
      IF (T .GT. 1000) THEN
      SMH(11) = -1.23028121D0 -2.59359992D4*TI 
     *         +4.14756964D0*TN(1) +2.98083332D-3*TN(2) 
     *         -3.9549142D-7*TN(3) +3.895101425D-11*TN(4) 
     *         -1.806176065D-15*TN(5) 
      ELSE
      SMH(11) = 1.39397051D1 -2.64289807D4*TI 
     *         +8.08681094D-1*TN(1) +1.168078145D-2*TN(2) 
     *         -5.91953025D-6*TN(3) +2.334603641666667D-9*TN(4) 
     *         -4.25036487D-13*TN(5) 
      ENDIF
C C6H5CH3
      IF (T .GT. 1000) THEN
      SMH(12) = -4.6728785D1 +6.9764908D2*TI 
     *         +1.2940034D1*TN(1) +1.33456435D-2*TN(2) 
     *         -1.613975083333333D-6*TN(3) +1.311552416666667D-10*TN(4) 
     *         -4.73318005D-15*TN(5) 
      ELSE
      SMH(12) = 2.028221D1 -4.07563D3*TI 
     *         +1.6152663D0*TN(1) +1.0549719D-2*TN(2) 
     *         +1.422766966666667D-5*TN(3) -1.105088833333333D-8*TN(4) 
     *         +2.7978302D-12*TN(5) 
      ENDIF
C CH3
      IF (T .GT. 1000) THEN
      SMH(13) = 8.48007179D0 -1.67755843D4*TI 
     *         +2.28571772D0*TN(1) +3.619950185D-3*TN(2) 
     *         -4.978572466666667D-7*TN(3) +4.9640387D-11*TN(4) 
     *         -2.33577197D-15*TN(5) 
      ELSE
      SMH(13) = 1.60456433D0 -1.64449988D4*TI 
     *         +3.6735904D0*TN(1) +1.005475875D-3*TN(2) 
     *         +9.550364266666668D-7*TN(3) -5.725978541666666D-10*TN(4) 
     *         +1.27192867D-13*TN(5) 
      ENDIF
C O2
      IF (T .GT. 1000) THEN
      SMH(14) = 5.45323129D0 +1.08845772D3*TI 
     *         +3.28253784D0*TN(1) +7.4154377D-4*TN(2) 
     *         -1.263277781666667D-7*TN(3) +1.745587958333333D-11*TN(4) 
     *         -1.08358897D-15*TN(5) 
      ELSE
      SMH(14) = 3.65767573D0 +1.06394356D3*TI 
     *         +3.78245636D0*TN(1) -1.49836708D-3*TN(2) 
     *         +1.641217001666667D-6*TN(3) -8.067745908333334D-10*TN(4) 
     *         +1.621864185D-13*TN(5) 
      ENDIF
C H
      IF (T .GT. 1000) THEN
      SMH(15) = -4.46682914D-1 -2.54736599D4*TI 
     *         +2.50000001D0*TN(1) -1.154214865D-11*TN(2) 
     *         +2.692699133333334D-15*TN(3) -3.945960291666667D-19*TN(4) 
     *         +2.490986785D-23*TN(5) 
      ELSE
      SMH(15) = -4.46682853D-1 -2.54736599D4*TI 
     *         +2.5D0*TN(1) +3.526664095D-13*TN(2) 
     *         -3.326532733333333D-16*TN(3) +1.917346933333333D-19*TN(4) 
     *         -4.63866166D-23*TN(5) 
      ENDIF
C OH
      IF (T .GT. 1000) THEN
      SMH(16) = 5.70164073D0 -3.71885774D3*TI 
     *         +2.86472886D0*TN(1) +5.2825224D-4*TN(2) 
     *         -4.318045966666667D-8*TN(3) +2.54348895D-12*TN(4) 
     *         -6.6597938D-17*TN(5) 
      ELSE
      SMH(16) = -6.9043296D-1 -3.38153812D3*TI 
     *         +4.12530561D0*TN(1) -1.612724695D-3*TN(2) 
     *         +1.087941151666667D-6*TN(3) -4.832113691666666D-10*TN(4) 
     *         +1.031186895D-13*TN(5) 
      ENDIF
C HO2
      IF (T .GT. 1000) THEN
      SMH(17) = 3.78510215D0 -1.11856713D2*TI 
     *         +4.0172109D0*TN(1) +1.119910065D-3*TN(2) 
     *         -1.056096916666667D-7*TN(3) +9.520530833333334D-12*TN(4) 
     *         -5.39542675D-16*TN(5) 
      ELSE
      SMH(17) = 3.71666245D0 -2.9480804D2*TI 
     *         +4.30179801D0*TN(1) -2.374560255D-3*TN(2) 
     *         +3.526381516666666D-6*TN(3) -2.02303245D-9*TN(4) 
     *         +4.646125620000001D-13*TN(5) 
      ENDIF
C O
      IF (T .GT. 1000) THEN
      SMH(18) = 4.78433864D0 -2.92175791D4*TI 
     *         +2.56942078D0*TN(1) -4.298705685D-5*TN(2) 
     *         +6.991409816666667D-9*TN(3) -8.348149916666666D-13*TN(4) 
     *         +6.141684549999999D-17*TN(5) 
      ELSE
      SMH(18) = 2.05193346D0 -2.91222592D4*TI 
     *         +3.1682671D0*TN(1) -1.63965942D-3*TN(2) 
     *         +1.107177326666667D-6*TN(3) -5.106721866666666D-10*TN(4) 
     *         +1.056329855D-13*TN(5) 
      ENDIF
C H2O
      IF (T .GT. 1000) THEN
      SMH(19) = 4.9667701D0 +3.00042971D4*TI 
     *         +3.03399249D0*TN(1) +1.08845902D-3*TN(2) 
     *         -2.734541966666666D-8*TN(3) -8.08683225D-12*TN(4) 
     *         +8.4100496D-16*TN(5) 
      ELSE
      SMH(19) = -8.49032208D-1 +3.02937267D4*TI 
     *         +4.19864056D0*TN(1) -1.01821705D-3*TN(2) 
     *         +1.086733685D-6*TN(3) -4.57330885D-10*TN(4) 
     *         +8.85989085D-14*TN(5) 
      ENDIF
C H2O2
      IF (T .GT. 1000) THEN
      SMH(20) = 2.91615662D0 +1.78617877D4*TI 
     *         +4.16500285D0*TN(1) +2.45415847D-3*TN(2) 
     *         -3.168987083333333D-7*TN(3) +3.09321655D-11*TN(4) 
     *         -1.439541525D-15*TN(5) 
      ELSE
      SMH(20) = 3.43505074D0 +1.77025821D4*TI 
     *         +4.27611269D0*TN(1) -2.714112085D-4*TN(2) 
     *         +2.78892835D-6*TN(3) -1.798090108333333D-9*TN(4) 
     *         +4.312271815D-13*TN(5) 
      ENDIF
C C
      IF (T .GT. 1000) THEN
      SMH(21) = 4.80150373D0 -8.54512953D4*TI 
     *         +2.49266888D0*TN(1) +2.39944642D-5*TN(2) 
     *         -1.207225033333333D-8*TN(3) +3.119091908333333D-12*TN(4) 
     *         -2.436389465D-16*TN(5) 
      ELSE
      SMH(21) = 4.53130848D0 -8.54438832D4*TI 
     *         +2.55423955D0*TN(1) -1.60768862D-4*TN(2) 
     *         +1.222987075D-7*TN(3) -6.101957408333333D-11*TN(4) 
     *         +1.33260723D-14*TN(5) 
      ENDIF
C CH
      IF (T .GT. 1000) THEN
      SMH(22) = 5.48497999D0 -7.101243640000001D4*TI 
     *         +2.87846473D0*TN(1) +4.854568405D-4*TN(2) 
     *         +2.407427583333333D-8*TN(3) -1.089065408333333D-11*TN(4) 
     *         +8.803969149999999D-16*TN(5) 
      ELSE
      SMH(22) = 2.08401108D0 -7.07972934D4*TI 
     *         +3.48981665D0*TN(1) +1.619177705D-4*TN(2) 
     *         -2.814984416666667D-7*TN(3) +2.635144391666666D-10*TN(4) 
     *         -7.030453350000001D-14*TN(5) 
      ENDIF
C CH2
      IF (T .GT. 1000) THEN
      SMH(23) = 6.17119324D0 -4.6263604D4*TI 
     *         +2.87410113D0*TN(1) +1.82819646D-3*TN(2) 
     *         -2.348243283333333D-7*TN(3) +2.168162908333333D-11*TN(4) 
     *         -9.38637835D-16*TN(5) 
      ELSE
      SMH(23) = 1.56253185D0 -4.60040401D4*TI 
     *         +3.76267867D0*TN(1) +4.844360715D-4*TN(2) 
     *         +4.658164016666667D-7*TN(3) -3.209092941666667D-10*TN(4) 
     *         +8.43708595D-14*TN(5) 
      ENDIF
C CH2*
      IF (T .GT. 1000) THEN
      SMH(24) = 8.62650169D0 -5.09259997D4*TI 
     *         +2.29203842D0*TN(1) +2.327943185D-3*TN(2) 
     *         -3.353199116666667D-7*TN(3) +3.48255D-11*TN(4) 
     *         -1.698581825D-15*TN(5) 
      ELSE
      SMH(24) = -7.69118967D-1 -5.04968163D4*TI 
     *         +4.19860411D0*TN(1) -1.183307095D-3*TN(2) 
     *         +1.372160366666667D-6*TN(3) -5.573466508333334D-10*TN(4) 
     *         +9.71573685D-14*TN(5) 
      ENDIF
C HCO
      IF (T .GT. 1000) THEN
      SMH(25) = 9.79834492D0 -4.01191815D3*TI 
     *         +2.77217438D0*TN(1) +2.47847763D-3*TN(2) 
     *         -4.140760216666667D-7*TN(3) +4.909681483333334D-11*TN(4) 
     *         -2.667543555D-15*TN(5) 
      ELSE
      SMH(25) = 3.39437243D0 -3.83956496D3*TI 
     *         +4.22118584D0*TN(1) -1.62196266D-3*TN(2) 
     *         +2.296657433333333D-6*TN(3) -1.109534108333333D-9*TN(4) 
     *         +2.168844325D-13*TN(5) 
      ENDIF
C CH2O
      IF (T .GT. 1000) THEN
      SMH(26) = 1.3656323D1 +1.39958323D4*TI 
     *         +1.76069008D0*TN(1) +4.60000041D-3*TN(2) 
     *         -7.370980216666666D-7*TN(3) +8.386767666666666D-11*TN(4) 
     *         -4.419278200000001D-15*TN(5) 
      ELSE
      SMH(26) = 6.028129D-1 +1.43089567D4*TI 
     *         +4.79372315D0*TN(1) -4.954166845D-3*TN(2) 
     *         +6.220333466666666D-6*TN(3) -3.160710508333333D-9*TN(4) 
     *         +6.5886326D-13*TN(5) 
      ENDIF
C CH3O
      IF (T .GT. 1000) THEN
      SMH(27) = -1.96680028D0 -3.7811194D2*TI 
     *         +4.75779238D0*TN(1) +3.72071237D-3*TN(2) 
     *         -4.495086266666666D-7*TN(3) +3.6507542D-11*TN(4) 
     *         -1.31768549D-15*TN(5) 
      ELSE
      SMH(27) = 6.57240864D0 -1.2956976D3*TI 
     *         +3.71180502D0*TN(1) -1.40231653D-3*TN(2) 
     *         +6.275849516666667D-6*TN(3) -3.942267408333333D-9*TN(4) 
     *         +9.329421000000001D-13*TN(5) 
      ENDIF
C CH3OH
      IF (T .GT. 1000) THEN
      SMH(28) = 1.45023623D1 +2.53748747D4*TI 
     *         +1.78970791D0*TN(1) +7.0469146D-3*TN(2) 
     *         -1.060834725D-6*TN(3) +1.151425708333333D-10*TN(4) 
     *         -5.853011D-15*TN(5) 
      ELSE
      SMH(28) = -1.50409823D0 +2.56427656D4*TI 
     *         +5.71539582D0*TN(1) -7.61545645D-3*TN(2) 
     *         +1.087401925D-5*TN(3) -5.923390741666667D-9*TN(4) 
     *         +1.30676349D-12*TN(5) 
      ENDIF
C CO2
      IF (T .GT. 1000) THEN
      SMH(29) = 2.27163806D0 +4.8759166D4*TI 
     *         +3.85746029D0*TN(1) +2.20718513D-3*TN(2) 
     *         -3.691356733333334D-7*TN(3) +4.362418233333334D-11*TN(4) 
     *         -2.36042082D-15*TN(5) 
      ELSE
      SMH(29) = 9.90105222D0 +4.83719697D4*TI 
     *         +2.35677352D0*TN(1) +4.492298385D-3*TN(2) 
     *         -1.187260448333333D-6*TN(3) +2.049325183333333D-10*TN(4) 
     *         -7.184977399999999D-15*TN(5) 
      ENDIF
C C2O
      IF (T .GT. 1000) THEN
      SMH(30) = -2.2183135D0 -3.3241888D4*TI 
     *         +5.1512722D0*TN(1) +1.1863361D-3*TN(2) 
     *         -1.26893285D-7*TN(3) +9.755345833333334D-12*TN(4) 
     *         -3.5128902D-16*TN(5) 
      ELSE
      SMH(30) = 8.886777199999999D0 -3.3749932D4*TI 
     *         +2.864861D0*TN(1) +5.995108D-3*TN(2) 
     *         -3.060408D-6*TN(3) +1.314144916666667D-9*TN(4) 
     *         -2.6948726D-13*TN(5) 
      ENDIF
C C2H
      IF (T .GT. 1000) THEN
      SMH(31) = 6.63589475D0 -6.7121065D4*TI 
     *         +3.16780652D0*TN(1) +2.37610951D-3*TN(2) 
     *         -3.06311795D-7*TN(3) +2.534918766666666D-11*TN(4) 
     *         -8.8616385D-16*TN(5) 
      ELSE
      SMH(31) = 6.22296438D0 -6.683939320000001D4*TI 
     *         +2.88965733D0*TN(1) +6.70498055D-3*TN(2) 
     *         -4.74615835D-6*TN(3) +2.456592041666667D-9*TN(4) 
     *         -5.46657555D-13*TN(5) 
      ENDIF
C C2H3
      IF (T .GT. 1000) THEN
      SMH(32) = 7.78732378D0 -3.46128739D4*TI 
     *         +3.016724D0*TN(1) +5.1651146D-3*TN(2) 
     *         -7.801372483333333D-7*TN(3) +8.480274D-11*TN(4) 
     *         -4.313035205D-15*TN(5) 
      ELSE
      SMH(32) = 8.51054025D0 -3.48598468D4*TI 
     *         +3.21246645D0*TN(1) +7.5739581D-4*TN(2) 
     *         +4.320156866666666D-6*TN(3) -2.980482058333333D-9*TN(4) 
     *         +7.35754365D-13*TN(5) 
      ENDIF
C C2H5
      IF (T .GT. 1000) THEN
      SMH(33) = 1.34624343D1 -1.285752D4*TI 
     *         +1.95465642D0*TN(1) +8.698636100000001D-3*TN(2) 
     *         -1.330344446666667D-6*TN(3) +1.460147408333333D-10*TN(4) 
     *         -7.4820788D-15*TN(5) 
      ELSE
      SMH(33) = 4.70720924D0 -1.28416265D4*TI 
     *         +4.30646568D0*TN(1) -2.09329446D-3*TN(2) 
     *         +8.28571345D-6*TN(3) -4.992721716666666D-9*TN(4) 
     *         +1.15254502D-12*TN(5) 
      ENDIF
C HCCO
      IF (T .GT. 1000) THEN
      SMH(34) = -3.9302595D0 -1.9327215D4*TI 
     *         +5.6282058D0*TN(1) +2.04267005D-3*TN(2) 
     *         -2.655757833333333D-7*TN(3) +2.385504333333333D-11*TN(4) 
     *         -9.703915999999999D-16*TN(5) 
      ELSE
      SMH(34) = 1.2490417D1 -2.0059449D4*TI 
     *         +2.2517214D0*TN(1) +8.8275105D-3*TN(2) 
     *         -3.954850166666666D-6*TN(3) +1.439646583333334D-9*TN(4) 
     *         -2.53324055D-13*TN(5) 
      ENDIF
C CH2CO
      IF (T .GT. 1000) THEN
      SMH(35) = 6.32247205D-1 +7.7785D3*TI 
     *         +4.51129732D0*TN(1) +4.501798725D-3*TN(2) 
     *         -6.948993916666666D-7*TN(3) +7.694549016666667D-11*TN(4) 
     *         -3.974191005D-15*TN(5) 
      ELSE
      SMH(35) = 1.2215648D1 +7.27D3*TI 
     *         +2.1358363D0*TN(1) +9.05943605D-3*TN(2) 
     *         -2.899124566666666D-6*TN(3) +7.7866464D-10*TN(4) 
     *         -1.007288075D-13*TN(5) 
      ENDIF
C CH2CHO
      IF (T .GT. 1000) THEN
      SMH(36) = -5.0320879D0 +9.695D2*TI 
     *         +5.9756699D0*TN(1) +4.0652957D-3*TN(2) 
     *         -4.5727075D-7*TN(3) +3.391920083333333D-11*TN(4) 
     *         -1.08800855D-15*TN(5) 
      ELSE
      SMH(36) = 9.571453500000001D0 -6.2D1*TI 
     *         +3.4090624D0*TN(1) +5.369287D-3*TN(2) 
     *         +3.1524875D-7*TN(3) -5.965485916666667D-10*TN(4) 
     *         +1.43369255D-13*TN(5) 
      ENDIF
C C3H3
      IF (T .GT. 1000) THEN
      SMH(37) = -1.25848436D1 -3.89087427D4*TI 
     *         +7.1422188D0*TN(1) +3.809510025D-3*TN(2) 
     *         -4.457665833333333D-7*TN(3) +3.540956675D-11*TN(4) 
     *         -1.257377075D-15*TN(5) 
      ELSE
      SMH(37) = 1.52058924D1 -4.01057783D4*TI 
     *         +1.35110927D0*TN(1) +1.637056115D-2*TN(2) 
     *         -7.897118916666667D-6*TN(3) +3.135915066666667D-9*TN(4) 
     *         -5.92704615D-13*TN(5) 
      ENDIF
C aC3H5
      IF (T .GT. 1000) THEN
      SMH(38) = -1.124305D1 -1.7482449D4*TI 
     *         +6.5007877D0*TN(1) +7.1623655D-3*TN(2) 
     *         -9.463605333333332D-7*TN(3) +9.234000833333333D-11*TN(4) 
     *         -4.518194349999999D-15*TN(5) 
      ELSE
      SMH(38) = 1.7173214D1 -1.9245629D4*TI 
     *         +1.3631835D0*TN(1) +9.906910499999999D-3*TN(2) 
     *         +2.082843333333333D-6*TN(3) -2.779629583333333D-9*TN(4) 
     *         +7.9232855D-13*TN(5) 
      ENDIF
C C2H3CHO
      IF (T .GT. 1000) THEN
      SMH(39) = -4.8588004D0 +1.0784054D4*TI 
     *         +5.8111868D0*TN(1) +8.557128000000001D-3*TN(2) 
     *         -1.247236016666667D-6*TN(3) +1.187687416666667D-10*TN(4) 
     *         -4.58734205D-15*TN(5) 
      ELSE
      SMH(39) = 1.9498077D1 +9.335734399999999D3*TI 
     *         +1.2713498D0*TN(1) +1.3115527D-2*TN(2) 
     *         -1.548538416666667D-6*TN(3) -3.986439333333333D-10*TN(4) 
     *         +1.67402715D-13*TN(5) 
      ENDIF
C C5H4O
      IF (T .GT. 1000) THEN
      SMH(40) = -2.94521623D1 -1.94364771D3*TI 
     *         +1.00806824D1*TN(1) +8.057173250000001D-3*TN(2) 
     *         -9.721908483333333D-7*TN(3) +7.889661D-11*TN(4) 
     *         -2.84486103D-15*TN(5) 
      ELSE
      SMH(40) = 2.35409513D1 -5.11159287D3*TI 
     *         +2.64576497D-1*TN(1) +1.674369135D-2*TN(2) 
     *         +2.795641166666666D-7*TN(3) -2.468395458333334D-9*TN(4) 
     *         +7.721573800000001D-13*TN(5) 
      ENDIF
C C5H5
      IF (T .GT. 1000) THEN
      SMH(41) = -1.6133D1 -2.8086D4*TI 
     *         +7.4743938D0*TN(1) +8.006366500000001D-3*TN(2) 
     *         -1.0803858D-9*TN(3) -2.98497525D-10*TN(4) 
     *         +4.618253550000001D-14*TN(5) 
      ELSE
      SMH(41) = 1.6585519D1 -2.9626D4*TI 
     *         +9.8349822D-1*TN(1) +1.6825738D-2*TN(2) 
     *         -1.8423635D-8*TN(3) -3.0619495D-9*TN(4) 
     *         +1.1570592D-12*TN(5) 
      ENDIF
C C6H5
      IF (T .GT. 1000) THEN
      SMH(42) = -2.2954643D1 -3.6261047D4*TI 
     *         +8.597310999999999D0*TN(1) +1.1120815D-2*TN(2) 
     *         -1.453332966666666D-6*TN(3) +1.149065416666667D-10*TN(4) 
     *         -2.6573028D-15*TN(5) 
      ELSE
      SMH(42) = 4.1332535D1 -3.977959D4*TI 
     *         -3.6931453D0*TN(1) +2.6089484D-2*TN(2) 
     *         -4.259737833333333D-6*TN(3) -5.88842675D-10*TN(4) 
     *         +3.79169875D-13*TN(5) 
      ENDIF
C C6H5O
      IF (T .GT. 1000) THEN
      SMH(43) = -4.8818168D1 -2.87274751D2*TI 
     *         +1.3722172D1*TN(1) +8.734438549999999D-3*TN(2) 
     *         -1.0591742D-6*TN(3) +8.624359000000001D-11*TN(4) 
     *         -3.11705252D-15*TN(5) 
      ELSE
      SMH(43) = 2.76990274D1 -4.77858391D3*TI 
     *         -4.66204455D-1*TN(1) +2.067219875D-2*TN(2) 
     *         +2.206883183333333D-6*TN(3) -4.773939741666667D-9*TN(4) 
     *         +1.448818535D-12*TN(5) 
      ENDIF
C C6H4O2
      IF (T .GT. 1000) THEN
      SMH(44) = -3.6300453D1 +2.108577D4*TI 
     *         +1.173084D1*TN(1) +1.18074975D-2*TN(2) 
     *         -1.705762666666667D-6*TN(3) +1.627681166666667D-10*TN(4) 
     *         -6.373011D-15*TN(5) 
      ELSE
      SMH(44) = 2.9239513D1 +1.7611047D4*TI 
     *         -9.5193005D-1*TN(1) +2.89212225D-2*TN(2) 
     *         -6.369073166666667D-6*TN(3) +3.859388D-10*TN(4) 
     *         +1.81483255D-13*TN(5) 
      ENDIF
C OC6H4CH3
      IF (T .GT. 1000) THEN
      SMH(45) = -9.7292511D1 +8.2025244D3*TI 
     *         +2.2609371D1*TN(1) +3.7823075D-3*TN(2) 
     *         +1.099348233333333D-6*TN(3) -3.92923875D-10*TN(4) 
     *         +4.02045315D-14*TN(5) 
      ELSE
      SMH(45) = 2.6720068D1 +6.8945581D2*TI 
     *         -2.8855777D-1*TN(1) +2.4001768D-2*TN(2) 
     *         +3.005498833333333D-6*TN(3) -5.145124D-9*TN(4) 
     *         +1.44262935D-12*TN(5) 
      ENDIF
C NO
      IF (T .GT. 1000) THEN
      SMH(46) = 6.4039514D0 -9.90699836D3*TI 
     *         +3.25487317D0*TN(1) +5.99349705D-4*TN(2) 
     *         -7.217141666666667D-8*TN(3) +5.857861133333333D-12*TN(4) 
     *         -2.048942875D-16*TN(5) 
      ELSE
      SMH(46) = 2.83578236D0 -9.84061267D3*TI 
     *         +4.0851799D0*TN(1) -1.82346594D-3*TN(2) 
     *         +1.416012686666667D-6*TN(3) -5.520047783333333D-10*TN(4) 
     *         +8.88236865D-14*TN(5) 
      ENDIF
C NO2
      IF (T .GT. 1000) THEN
      SMH(47) = -2.33567018D-1 -2.28958979D3*TI 
     *         +4.90482285D0*TN(1) +1.07237249D-3*TN(2) 
     *         -1.354423431666667D-7*TN(3) +1.295932975D-11*TN(4) 
     *         -5.205698149999999D-16*TN(5) 
      ELSE
      SMH(47) = 6.96592162D0 -2.89500124D3*TI 
     *         +3.78712696D0*TN(1) -2.14788417D-4*TN(2) 
     *         +2.2897303D-6*TN(3) -1.452201166666667D-9*TN(4) 
     *         +3.35624822D-13*TN(5) 
      ENDIF
C HCN
      IF (T .GT. 1000) THEN
      SMH(48) = 1.61357326D0 -1.42249758D4*TI 
     *         +3.79525127D0*TN(1) +1.581650735D-3*TN(2) 
     *         -1.788615083333333D-7*TN(3) +1.398765233333333D-11*TN(4) 
     *         -4.91974013D-16*TN(5) 
      ELSE
      SMH(48) = 9.555012870000001D0 -1.45427041D4*TI 
     *         +2.1057167D0*TN(1) +5.59207095D-3*TN(2) 
     *         -2.70670685D-6*TN(3) +1.097193458333333D-9*TN(4) 
     *         -2.086271505D-13*TN(5) 
      ENDIF
C NH3
      IF (T .GT. 1000) THEN
      SMH(49) = 8.02154329D0 +6.41596473D3*TI 
     *         +2.36074311D0*TN(1) +3.15925073D-3*TN(2) 
     *         -3.816113433333333D-7*TN(3) +3.431395091666667D-11*TN(4) 
     *         -1.454183935D-15*TN(5) 
      ELSE
      SMH(49) = -1.66754883D-2 +6.68545158D3*TI 
     *         +4.14027871D0*TN(1) -1.79244571D-3*TN(2) 
     *         +3.157931733333333D-6*TN(3) -1.65694975D-9*TN(4) 
     *         +3.576339805D-13*TN(5) 
      ENDIF
C NH2
      IF (T .GT. 1000) THEN
      SMH(50) = 7.73537416D0 -2.15419104D4*TI 
     *         +2.62499312D0*TN(1) +1.699205885D-3*TN(2) 
     *         -1.693849466666667D-7*TN(3) +1.0459233D-11*TN(4) 
     *         -1.332504215D-16*TN(5) 
      ELSE
      SMH(50) = 4.3985077D-1 -2.11768668D4*TI 
     *         +4.06463329D0*TN(1) -5.5010727D-4*TN(2) 
     *         +7.097484466666666D-7*TN(3) -2.235196525D-10*TN(4) 
     *         +2.946337035D-14*TN(5) 
      ENDIF
C NH
      IF (T .GT. 1000) THEN
      SMH(51) = 5.68413752D0 -4.23408998D4*TI 
     *         +2.79498941D0*TN(1) +6.46297835D-4*TN(2) 
     *         -6.4259849D-8*TN(3) +5.216896733333334D-12*TN(4) 
     *         -1.852109565D-16*TN(5) 
      ELSE
      SMH(51) = 2.00373292D0 -4.21088372D4*TI 
     *         +3.45887003D0*TN(1) +2.46952204D-4*TN(2) 
     *         -3.131042666666667D-7*TN(3) +2.379518658333334D-10*TN(4) 
     *         -5.843233550000001D-14*TN(5) 
      ENDIF
C N
      IF (T .GT. 1000) THEN
      SMH(52) = 4.64905706D0 -5.61051512D4*TI 
     *         +2.41604245D0*TN(1) +8.7331883D-5*TN(2) 
     *         -1.981076033333333D-8*TN(3) +2.515417116666667D-12*TN(4) 
     *         -1.016300795D-16*TN(5) 
      ELSE
      SMH(52) = 4.19499326D0 -5.6076071D4*TI 
     *         +2.49976643D0*TN(1) +2.51074797D-7*TN(2) 
     *         +3.21818685D-10*TN(3) -4.121938575D-13*TN(4) 
     *         +1.37044753D-16*TN(5) 
      ENDIF
C NNH
      IF (T .GT. 1000) THEN
      SMH(53) = 6.39209233D0 -2.8806774D4*TI 
     *         +3.42744423D0*TN(1) +1.61647617D-3*TN(2) 
     *         -1.954938316666667D-7*TN(3) +1.587569633333333D-11*TN(4) 
     *         -5.7245753D-16*TN(5) 
      ELSE
      SMH(53) = 3.28551762D0 -2.88323793D4*TI 
     *         +4.25474632D0*TN(1) -1.72549149D-3*TN(2) 
     *         +2.296478316666667D-6*TN(3) -1.1105312D-9*TN(4) 
     *         +2.205116985D-13*TN(5) 
      ENDIF
C HNO
      IF (T .GT. 1000) THEN
      SMH(54) = 7.27913637D0 -1.17745744D4*TI 
     *         +3.24129053D0*TN(1) +1.361885965D-3*TN(2) 
     *         -2.6772216D-8*TN(3) -8.159458183333333D-12*TN(4) 
     *         +5.855197199999999D-16*TN(5) 
      ELSE
      SMH(54) = 1.66850841D0 -1.16315603D4*TI 
     *         +4.5532616D0*TN(1) -2.92265844D-3*TN(2) 
     *         +3.1475624D-6*TN(3) -1.466999108333333D-9*TN(4) 
     *         +2.864448105D-13*TN(5) 
      ENDIF
C N2O
      IF (T .GT. 1000) THEN
      SMH(55) = -2.10607801D0 -8.197982190000001D3*TI 
     *         +4.80641382D0*TN(1) +1.326537215D-3*TN(2) 
     *         -1.617995661666667D-7*TN(3) +1.354917916666667D-11*TN(4) 
     *         -4.983690770000001D-16*TN(5) 
      ELSE
      SMH(55) = 1.12477534D1 -8.870086219999999D3*TI 
     *         +2.1394229D0*TN(1) +6.0900437D-3*TN(2) 
     *         -2.653156916666667D-6*TN(3) +1.007666991666667D-9*TN(4) 
     *         -1.925629575D-13*TN(5) 
      ENDIF
C HNC
      IF (T .GT. 1000) THEN
      SMH(56) = 2.15196203D-1 -2.17977474D4*TI 
     *         +4.17272154D0*TN(1) +1.33284949D-3*TN(2) 
     *         -1.487166916666667D-7*TN(3) +1.144425041666667D-11*TN(4) 
     *         -3.97772859D-16*TN(5) 
      ELSE
      SMH(56) = 7.87287988D0 -2.19807517D4*TI 
     *         +2.36665269D0*TN(1) +7.49716765D-3*TN(2) 
     *         -5.060094183333334D-6*TN(3) +2.498713983333333D-9*TN(4) 
     *         -5.45474745D-13*TN(5) 
      ENDIF
C CN
      IF (T .GT. 1000) THEN
      SMH(57) = 2.8516257D0 -5.17018679D4*TI 
     *         +3.73483746D0*TN(1) +2.91998009D-5*TN(2) 
     *         +4.840733283333333D-8*TN(3) -5.62003175D-12*TN(4) 
     *         +2.166909615D-16*TN(5) 
      ELSE
      SMH(57) = 3.91231279D0 -5.18668474D4*TI 
     *         +3.62920077D0*TN(1) -5.3586382D-4*TN(2) 
     *         +4.03997025D-7*TN(3) -4.879302733333333D-11*TN(4) 
     *         -1.87682228D-14*TN(5) 
      ENDIF
C HNCO
      IF (T .GT. 1000) THEN
      SMH(58) = -3.11770684D0 +1.61995274D4*TI 
     *         +5.30045051D0*TN(1) +2.011254105D-3*TN(2) 
     *         -2.349371333333333D-7*TN(3) +1.865461183333333D-11*TN(4) 
     *         -6.624998299999999D-16*TN(5) 
      ELSE
      SMH(58) = 1.21663775D1 +1.54589951D4*TI 
     *         +2.24009031D0*TN(1) +7.28002485D-3*TN(2) 
     *         -2.572538833333333D-6*TN(3) +7.129458566666667D-10*TN(4) 
     *         -8.98158055D-14*TN(5) 
      ENDIF
C HCNO
      IF (T .GT. 1000) THEN
      SMH(59) = -8.269352230000001D0 -1.80385534D4*TI 
     *         +5.91979744D0*TN(1) +2.000573D-3*TN(2) 
     *         -2.367722383333333D-7*TN(3) +1.896413508333333D-11*TN(4) 
     *         -6.7752435D-16*TN(5) 
      ELSE
      SMH(59) = 1.69199098D1 -1.90714209D4*TI 
     *         +6.079494009999999D-1*TN(1) +1.410912155D-2*TN(2) 
     *         -7.674193633333332D-6*TN(3) +3.187995716666667D-9*TN(4) 
     *         -6.16132505D-13*TN(5) 
      ENDIF
C NCO
      IF (T .GT. 1000) THEN
      SMH(60) = -2.15734434D0 -1.35781204D4*TI 
     *         +5.08064474D0*TN(1) +1.187217935D-3*TN(2) 
     *         -1.511831506666667D-7*TN(3) +1.269055941666667D-11*TN(4) 
     *         -4.65504617D-16*TN(5) 
      ELSE
      SMH(60) = 9.754586700000001D0 -1.4236957D4*TI 
     *         +2.77405177D0*TN(1) +4.622617405D-3*TN(2) 
     *         -1.652955976666667D-6*TN(3) +5.570510858333333D-10*TN(4) 
     *         -1.04760271D-13*TN(5) 
      ENDIF
C NCN
      IF (T .GT. 1000) THEN
      SMH(61) = -6.1404995D0 -5.22097079D4*TI 
     *         +5.65711708D0*TN(1) +8.21056665D-4*TN(2) 
     *         -1.06320573D-7*TN(3) +9.267434416666666D-12*TN(4) 
     *         -3.49664205D-16*TN(5) 
      ELSE
      SMH(61) = 7.78171011D0 -5.30044793D4*TI 
     *         +3.00703195D0*TN(1) +4.19437063D-3*TN(2) 
     *         -1.15077757D-6*TN(3) +2.3739068D-10*TN(4) 
     *         -2.871365205D-14*TN(5) 
      ENDIF
C HNCN
      IF (T .GT. 1000) THEN
      SMH(62) = -3.39587098D0 -3.59635337D4*TI 
     *         +5.53846448D0*TN(1) +1.94527063D-3*TN(2) 
     *         -2.301745866666667D-7*TN(3) +1.844123041666667D-11*TN(4) 
     *         -6.59136625D-16*TN(5) 
      ELSE
      SMH(62) = 9.41074995D0 -3.66623508D4*TI 
     *         +3.06754311D0*TN(1) +5.33949695D-3*TN(2) 
     *         -1.327040508333333D-6*TN(3) +2.165694916666667D-10*TN(4) 
     *         -6.3528806D-15*TN(5) 
      ENDIF
C CH2NH
      IF (T .GT. 1577) THEN
      SMH(63) = -1.16687427D0 -8.64056516D3*TI 
     *         +4.54737795D0*TN(1) +3.58860474D-3*TN(2) 
     *         -4.132254983333333D-7*TN(3) +3.230769591666667D-11*TN(4) 
     *         -1.130565375D-15*TN(5) 
      ELSE
      SMH(63) = 1.03390629D1 -9.88442597D3*TI 
     *         +2.8184951D0*TN(1) +2.559916175D-3*TN(2) 
     *         +1.06481191D-6*TN(3) -5.511455591666667D-10*TN(4) 
     *         +8.276596999999999D-14*TN(5) 
      ENDIF
C H2CN
      IF (T .GT. 1000) THEN
      SMH(64) = 3.31759436D0 -2.71302747D4*TI 
     *         +3.80315578D0*TN(1) +2.73598681D-3*TN(2) 
     *         -3.255247916666667D-7*TN(3) +2.611353358333333D-11*TN(4) 
     *         -9.312469200000001D-16*TN(5) 
      ELSE
      SMH(64) = 4.43067396D0 -2.74854081D4*TI 
     *         +3.97799555D0*TN(1) -1.716379005D-3*TN(2) 
     *         +4.318904333333334D-6*TN(3) -2.539101425D-9*TN(4) 
     *         +5.81363585D-13*TN(5) 
      ENDIF
C N2
      IF (T .GT. 1000) THEN
      SMH(65) = 5.980528D0 +9.227977D2*TI 
     *         +2.92664D0*TN(1) +7.439884D-4*TN(2) 
     *         -9.474600000000001D-8*TN(3) +8.414198333333333D-12*TN(4) 
     *         -3.3766755D-16*TN(5) 
      ELSE
      SMH(65) = 3.950372D0 +1.0208999D3*TI 
     *         +3.298677D0*TN(1) +7.041202D-4*TN(2) 
     *         -6.605369999999999D-7*TN(3) +4.701262500000001D-10*TN(4) 
     *         -1.222427D-13*TN(5) 
      ENDIF
C
      END
C                                                                      C
C----------------------------------------------------------------------C
C                                                                      C
      SUBROUTINE RATX (T, C, RF, RB, RKLOW)
      IMPLICIT DOUBLE PRECISION (A-H, O-Z), INTEGER (I-N)
      PARAMETER (SMALL = 1D-200)
      DIMENSION C(*), RF(*), RB(*), RKLOW(*)
C
      ALOGT = LOG(T)
      CTOT = 0.0
      DO K = 1, 47
         CTOT = CTOT + C(K)
      ENDDO
C
C     R1: POSF5433 = 3.09172C2H4 + 0.803846C3H6 + 0.154586iC4H8 + 0.309172C4H81 + 0.116667C6H6 + 0.05C6H5CH3 + 1.5CH3 + 0.5H
      RF(1) = RF(1)*C(1)
C     R2: POSF5433 + 0.7H = 3.09911C2H4 + 0.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + H2 + 0.175C6H6 + 0.075C6H5CH3 + 0.7CH3
      RF(2) = RF(2)*C(1)*C(15)
C     R3: POSF5433 + 0.3CH3 = 3.09911C2H4 + 1.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + 0.175C6H6 + 0.075C6H5CH3 + 0.3H
      RF(3) = RF(3)*C(1)*C(13)
C     R4: POSF5433 + OH = 3.09911C2H4 + 0.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + 0.175C6H6 + 0.075C6H5CH3 + 0.7CH3 + 0.3H + H2O
      RF(4) = RF(4)*C(1)*C(16)
C     R5: POSF5433 + O2 = 3.09911C2H4 + 0.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + 0.175C6H6 + 0.075C6H5CH3 + 0.7CH3 + 0.3H + HO2
      RF(5) = RF(5)*C(1)*C(14)
C     R6: POSF5433 + HO2 = 3.09911C2H4 + 0.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + 0.175C6H6 + 0.075C6H5CH3 + 0.7CH3 + 0.3H + H2O2
      RF(6) = RF(6)*C(1)*C(17)
C     R7: POSF5433 + O = 3.09911C2H4 + 0.25CH4 + 0.805769C3H6 + 0.154956iC4H8 + 0.309911C4H81 + 0.175C6H6 + 0.075C6H5CH3 + 0.7CH3 + 0.3H + OH
      RF(7) = RF(7)*C(1)*C(18)
C     R8: O2 + H = OH + O
      RF(8) = RF(8)*C(14)*C(15)
      RB(8) = RB(8)*C(16)*C(18)
C     R9: H2 + O = H + OH
      RF(9) = RF(9)*C(7)*C(18)
      RB(9) = RB(9)*C(15)*C(16)
C     R10: H2 + OH = H + H2O
      RF(10) = RF(10)*C(7)*C(16)
      RB(10) = RB(10)*C(15)*C(19)
C     R11: 2OH = O + H2O
      RF(11) = RF(11)*C(16)*C(16)
      RB(11) = RB(11)*C(18)*C(19)
C     R12: 2H = H2
      CTB = CTOT-C(7)-C(19)
     * -C(23)
      RF(12) = RF(12)*CTB*C(15)*C(15)
      RB(12) = RB(12)*CTB*C(7)
C     R13: 2H = H2
      RF(13) = RF(13)*C(7)*C(15)*C(15)
      RB(13) = RB(13)*C(7)*C(7)
C     R14: 2H = H2
      RF(14) = RF(14)*C(15)*C(15)*C(19)
      RB(14) = RB(14)*C(7)*C(19)
C     R15: 2H = H2
      RF(15) = RF(15)*C(15)*C(15)*C(23)
      RB(15) = RB(15)*C(7)*C(23)
C     R16: H + OH = H2O
      CTB = CTOT+C(7)+5.3D0*C(19)
     * +7.5D-1*C(9)+2.6D0*C(23)
      RF(16) = RF(16)*CTB*C(15)*C(16)
      RB(16) = RB(16)*CTB*C(19)
C     R17: H + O = OH
      CTB = CTOT+C(7)+1.1D1*C(19)
     * +7.5D-1*C(9)+2.6D0*C(23)
      RF(17) = RF(17)*CTB*C(15)*C(18)
      RB(17) = RB(17)*CTB*C(16)
C     R18: 2O = O2
      CTB = CTOT+1.4D0*C(7)+1.44D1*C(19)
     * +7.5D-1*C(9)+2.6D0*C(23)
      RF(18) = RF(18)*CTB*C(18)*C(18)
      RB(18) = RB(18)*CTB*C(14)
C     R19: O2 + H = HO2
      CTB = CTOT-1.5D-1*C(14)+1.089D1*C(19)
     * +9.000000000000008D-2*C(9)+1.18D0*C(23)
      PR = RKLOW(1) * CTB / RF(19)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FC = (PRLOG -1.983099029051326D-1)
     *     /(1.132308094493256D0 -0.14D0*(PRLOG -1.983099029051326D-1))
      FC = EXP(-6.931471805599453D-1 /(1.0D0 + FC*FC))
      PCOR = FC * PCOR
      RF(19) = RF(19) * PCOR
      RB(19) = RB(19) * PCOR
      RF(19) = RF(19)*C(14)*C(15)
      RB(19) = RB(19)*C(17)
C     R20: H2 + O2 = H + HO2
      RF(20) = RF(20)*C(7)*C(14)
      RB(20) = RB(20)*C(15)*C(17)
C     R21: 2OH = H2O2
      CTB = CTOT+C(7)+5.D0*C(19)
     * +7.5D-1*C(9)+2.6D0*C(23)
      PR = RKLOW(2) * CTB / RF(21)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 2.654D-1*EXP(-T/9.4D1)
     *      + 7.346D-1*EXP(-T/1.756D3)
     *     + EXP(-5.182D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(21) = RF(21) * PCOR
      RB(21) = RB(21) * PCOR
      RF(21) = RF(21)*C(16)*C(16)
      RB(21) = RB(21)*C(20)
C     R22: H + HO2 = O + H2O
      RF(22) = RF(22)*C(15)*C(17)
      RB(22) = RB(22)*C(18)*C(19)
C     R23: H + HO2 = 2OH
      RF(23) = RF(23)*C(15)*C(17)
      RB(23) = RB(23)*C(16)*C(16)
C     R24: HO2 + O = O2 + OH
      RF(24) = RF(24)*C(17)*C(18)
      RB(24) = RB(24)*C(14)*C(16)
C     R25: 2HO2 = O2 + H2O2
      RF(25) = RF(25)*C(17)*C(17)
      RB(25) = RB(25)*C(14)*C(20)
C     R26: 2HO2 = O2 + H2O2
      RF(26) = RF(26)*C(17)*C(17)
      RB(26) = RB(26)*C(14)*C(20)
C     R27: OH + HO2 = O2 + H2O
      RF(27) = RF(27)*C(16)*C(17)
      RB(27) = RB(27)*C(14)*C(19)
C     R28: OH + HO2 = O2 + H2O
      RF(28) = RF(28)*C(16)*C(17)
      RB(28) = RB(28)*C(14)*C(19)
C     R29: OH + HO2 = O2 + H2O
      RF(29) = RF(29)*C(16)*C(17)
      RB(29) = RB(29)*C(14)*C(19)
C     R30: OH + HO2 = O2 + H2O
      RF(30) = RF(30)*C(16)*C(17)
      RB(30) = RB(30)*C(14)*C(19)
C     R31: OH + HO2 = O2 + H2O
      RF(31) = RF(31)*C(16)*C(17)
      RB(31) = RB(31)*C(14)*C(19)
C     R32: H + H2O2 = H2 + HO2
      RF(32) = RF(32)*C(15)*C(20)
      RB(32) = RB(32)*C(7)*C(17)
C     R33: H + H2O2 = OH + H2O
      RF(33) = RF(33)*C(15)*C(20)
      RB(33) = RB(33)*C(16)*C(19)
C     R34: O + H2O2 = OH + HO2
      RF(34) = RF(34)*C(18)*C(20)
      RB(34) = RB(34)*C(16)*C(17)
C     R35: OH + H2O2 = HO2 + H2O
      RF(35) = RF(35)*C(16)*C(20)
      RB(35) = RB(35)*C(17)*C(19)
C     R36: OH + H2O2 = HO2 + H2O
      RF(36) = RF(36)*C(16)*C(20)
      RB(36) = RB(36)*C(17)*C(19)
C     R37: CO + O = CO2
      CTB = CTOT+C(7)+1.1D1*C(19)
     * +7.5D-1*C(9)+2.6D0*C(23)
      PR = RKLOW(3) * CTB / RF(37)
      PCOR = PR / (1.0 + PR)
      RF(37) = RF(37) * PCOR
      RB(37) = RB(37) * PCOR
      RF(37) = RF(37)*C(9)*C(18)
      RB(37) = RB(37)*C(23)
C     R38: CO + OH = H + CO2
      RF(38) = RF(38)*C(9)*C(16)
      RB(38) = RB(38)*C(15)*C(23)
C     R39: CO + OH = H + CO2
      RF(39) = RF(39)*C(9)*C(16)
      RB(39) = RB(39)*C(15)*C(23)
C     R40: CO + O2 = O + CO2
      RF(40) = RF(40)*C(9)*C(14)
      RB(40) = RB(40)*C(18)*C(23)
C     R41: CO + HO2 = OH + CO2
      RF(41) = RF(41)*C(9)*C(17)
      RB(41) = RB(41)*C(16)*C(23)
C     R42: H + HCO = H2 + CO
      RF(42) = RF(42)*C(15)
      RB(42) = RB(42)*C(7)*C(9)
C     R43: O + HCO = CO + OH
      RF(43) = RF(43)*C(18)
      RB(43) = RB(43)*C(9)*C(16)
C     R44: O + HCO = H + CO2
      RF(44) = RF(44)*C(18)
      RB(44) = RB(44)*C(15)*C(23)
C     R45: OH + HCO = CO + H2O
      RF(45) = RF(45)*C(16)
      RB(45) = RB(45)*C(9)*C(19)
C     R46: HCO = CO + H
      CTB = CTOT+C(7)-C(19)
     * +7.5D-1*C(9)+2.6D0*C(23)
      RF(46) = RF(46)*CTB
      RB(46) = RB(46)*CTB*C(9)*C(15)
C     R47: HCO = CO + H
      RF(47) = RF(47)*C(19)
      RB(47) = RB(47)*C(9)*C(15)*C(19)
C     R48: O2 + HCO = CO + HO2
      RF(48) = RF(48)*C(14)
      RB(48) = RB(48)*C(9)*C(17)
C     R49: H2 + CO = CH2O
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(4) * CTB / RF(49)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 6.799999999999995D-2*EXP(-T/1.97D2)
     *      + 9.320000000000001D-1*EXP(-T/1.54D3)
     *     + EXP(-1.03D4/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(49) = RF(49) * PCOR
      RB(49) = RB(49) * PCOR
      RF(49) = RF(49)*C(7)*C(9)
      RB(49) = RB(49)*C(21)
C     R50: OH + C = CO + H
      RF(50) = RF(50)*C(16)
      RB(50) = RB(50)*C(9)*C(15)
C     R51: O2 + C = CO + O
      RF(51) = RF(51)*C(14)
      RB(51) = RB(51)*C(9)*C(18)
C     R52: H + CH = H2 + C
      RF(52) = RF(52)*C(15)
      RB(52) = RB(52)*C(7)
C     R53: O + CH = CO + H
      RF(53) = RF(53)*C(18)
      RB(53) = RB(53)*C(9)*C(15)
C     R54: OH + CH = H + HCO
      RF(54) = RF(54)*C(16)
      RB(54) = RB(54)*C(15)
C     R55: H2 + CH = H + CH2
      RF(55) = RF(55)*C(7)
      RB(55) = RB(55)*C(15)
C     R56: H2O + CH = H + CH2O
      RF(56) = RF(56)*C(19)
      RB(56) = RB(56)*C(15)*C(21)
C     R57: O2 + CH = O + HCO
      RF(57) = RF(57)*C(14)
      RB(57) = RB(57)*C(18)
C     R58: CO + CH = HCCO
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(5) * CTB / RF(58)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 4.243D-1*EXP(-T/2.37D2)
     *      + 5.757D-1*EXP(-T/1.652D3)
     *     + EXP(-5.069D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(58) = RF(58) * PCOR
      RB(58) = RB(58) * PCOR
      RF(58) = RF(58)*C(9)
C     R59: CH + CO2 = CO + HCO
      RF(59) = RF(59)*C(23)
      RB(59) = RB(59)*C(9)
C     R60: H + HCO = CH2O
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(6) * CTB / RF(60)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 2.176D-1*EXP(-T/2.71D2)
     *      + 7.824D-1*EXP(-T/2.755D3)
     *     + EXP(-6.57D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(60) = RF(60) * PCOR
      RB(60) = RB(60) * PCOR
      RF(60) = RF(60)*C(15)
      RB(60) = RB(60)*C(21)
C     R61: H + CH2 = CH3
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(7) * CTB / RF(61)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 3.2D-1*EXP(-T/7.8D1)
     *      + 6.8D-1*EXP(-T/1.995D3)
     *     + EXP(-5.59D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(61) = RF(61) * PCOR
      RB(61) = RB(61) * PCOR
      RF(61) = RF(61)*C(15)
      RB(61) = RB(61)*C(13)
C     R62: O + CH2 = H + HCO
      RF(62) = RF(62)*C(18)
      RB(62) = RB(62)*C(15)
C     R63: OH + CH2 = H + CH2O
      RF(63) = RF(63)*C(16)
      RB(63) = RB(63)*C(15)*C(21)
C     R64: OH + CH2 = H2O + CH
      RF(64) = RF(64)*C(16)
      RB(64) = RB(64)*C(19)
C     R65: H2 + CH2 = CH3 + H
      RF(65) = RF(65)*C(7)
      RB(65) = RB(65)*C(13)*C(15)
C     R66: O2 + CH2 = OH + HCO
      RF(66) = RF(66)*C(14)
      RB(66) = RB(66)*C(16)
C     R67: O2 + CH2 = 2H + CO2
      RF(67) = RF(67)*C(14)
      RB(67) = RB(67)*C(15)*C(15)*C(23)
C     R68: HO2 + CH2 = OH + CH2O
      RF(68) = RF(68)*C(17)
      RB(68) = RB(68)*C(16)*C(21)
C     R69: C + CH2 = H + C2H
      RB(69) = RB(69)*C(15)
C     R70: CO + CH2 = CH2CO
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(8) * CTB / RF(70)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 4.093D-1*EXP(-T/2.75D2)
     *      + 5.907D-1*EXP(-T/1.226D3)
     *     + EXP(-5.185D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(70) = RF(70) * PCOR
      RB(70) = RB(70) * PCOR
      RF(70) = RF(70)*C(9)
      RB(70) = RB(70)*C(24)
C     R71: CH + CH2 = C2H2 + H
      RB(71) = RB(71)*C(11)*C(15)
C     R72: 2CH2 = H2 + C2H2
      RB(72) = RB(72)*C(7)*C(11)
C     R73: CH2* = CH2
      RF(73) = RF(73)*C(47)
      RB(73) = RB(73)*C(47)
C     R74: H + CH2* = H2 + CH
      RF(74) = RF(74)*C(15)
      RB(74) = RB(74)*C(7)
C     R75: O + CH2* = H2 + CO
      RF(75) = RF(75)*C(18)
      RB(75) = RB(75)*C(7)*C(9)
C     R76: O + CH2* = H + HCO
      RF(76) = RF(76)*C(18)
      RB(76) = RB(76)*C(15)
C     R77: OH + CH2* = H + CH2O
      RF(77) = RF(77)*C(16)
      RB(77) = RB(77)*C(15)*C(21)
C     R78: H2 + CH2* = CH3 + H
      RF(78) = RF(78)*C(7)
      RB(78) = RB(78)*C(13)*C(15)
C     R79: O2 + CH2* = CO + H + OH
      RF(79) = RF(79)*C(14)
      RB(79) = RB(79)*C(9)*C(15)*C(16)
C     R80: O2 + CH2* = CO + H2O
      RF(80) = RF(80)*C(14)
      RB(80) = RB(80)*C(9)*C(19)
C     R81: H2O + CH2* = CH3OH
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(9) * CTB / RF(81)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 8.492999999999999D-1*EXP(-T/1.34D2)
     *      + 1.507D-1*EXP(-T/2.383D3)
     *     + EXP(-7.265D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(81) = RF(81) * PCOR
      RB(81) = RB(81) * PCOR
      RF(81) = RF(81)*C(19)
      RB(81) = RB(81)*C(22)
C     R82: CH2* = CH2
      RF(82) = RF(82)*C(19)
      RB(82) = RB(82)*C(19)
C     R83: CH2* = CH2
      RF(83) = RF(83)*C(9)
      RB(83) = RB(83)*C(9)
C     R84: CH2* = CH2
      RF(84) = RF(84)*C(23)
      RB(84) = RB(84)*C(23)
C     R85: CH2* + CO2 = CO + CH2O
      RF(85) = RF(85)*C(23)
      RB(85) = RB(85)*C(9)*C(21)
C     R86: H + CH2O = CH3O
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(10) * CTB / RF(86)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 2.42D-1*EXP(-T/9.4D1)
     *      + 7.58D-1*EXP(-T/1.555D3)
     *     + EXP(-4.2D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(86) = RF(86) * PCOR
      RB(86) = RB(86) * PCOR
      RF(86) = RF(86)*C(15)*C(21)
C     R87: H + CH2O = H2 + HCO
      RF(87) = RF(87)*C(15)*C(21)
      RB(87) = RB(87)*C(7)
C     R88: O + CH2O = OH + HCO
      RF(88) = RF(88)*C(18)*C(21)
      RB(88) = RB(88)*C(16)
C     R89: OH + CH2O = H2O + HCO
      RF(89) = RF(89)*C(16)*C(21)
      RB(89) = RB(89)*C(19)
C     R90: O2 + CH2O = HO2 + HCO
      RF(90) = RF(90)*C(14)*C(21)
      RB(90) = RB(90)*C(17)
C     R91: HO2 + CH2O = H2O2 + HCO
      RF(91) = RF(91)*C(17)*C(21)
      RB(91) = RB(91)*C(20)
C     R92: CH + CH2O = H + CH2CO
      RF(92) = RF(92)*C(21)
      RB(92) = RB(92)*C(15)*C(24)
C     R93: CH3 + H = CH4
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(11) * CTB / RF(93)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 2.17D-1*EXP(-T/7.4D1)
     *      + 7.83D-1*EXP(-T/2.941D3)
     *     + EXP(-6.964D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(93) = RF(93) * PCOR
      RB(93) = RB(93) * PCOR
      RF(93) = RF(93)*C(13)*C(15)
      RB(93) = RB(93)*C(3)
C     R94: CH3 + O = H + CH2O
      RF(94) = RF(94)*C(13)*C(18)
      RB(94) = RB(94)*C(15)*C(21)
C     R95: CH3 + OH = CH3OH
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(12) * CTB / RF(95)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 7.895D-1*EXP(-T/8.35D1)
     *      + 2.105D-1*EXP(-T/5.398D3)
     *     + EXP(-8.37D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(95) = RF(95) * PCOR
      RB(95) = RB(95) * PCOR
      RF(95) = RF(95)*C(13)*C(16)
      RB(95) = RB(95)*C(22)
C     R96: CH3 + OH = H2O + CH2
      RF(96) = RF(96)*C(13)*C(16)
      RB(96) = RB(96)*C(19)
C     R97: CH3 + OH = H2O + CH2*
      RF(97) = RF(97)*C(13)*C(16)
      RB(97) = RB(97)*C(19)
C     R98: CH3 + O2 = O + CH3O
      RF(98) = RF(98)*C(13)*C(14)
      RB(98) = RB(98)*C(18)
C     R99: CH3 + O2 = OH + CH2O
      RF(99) = RF(99)*C(13)*C(14)
      RB(99) = RB(99)*C(16)*C(21)
C     R100: CH3 + HO2 = CH4 + O2
      RF(100) = RF(100)*C(13)*C(17)
      RB(100) = RB(100)*C(3)*C(14)
C     R101: CH3 + HO2 = OH + CH3O
      RF(101) = RF(101)*C(13)*C(17)
      RB(101) = RB(101)*C(16)
C     R102: CH3 + H2O2 = CH4 + HO2
      RF(102) = RF(102)*C(13)*C(20)
      RB(102) = RB(102)*C(3)*C(17)
C     R103: CH3 + C = C2H2 + H
      RF(103) = RF(103)*C(13)
      RB(103) = RB(103)*C(11)*C(15)
C     R104: CH3 + CH = H + C2H3
      RF(104) = RF(104)*C(13)
      RB(104) = RB(104)*C(15)
C     R105: CH3 + HCO = CH4 + CO
      RF(105) = RF(105)*C(13)
      RB(105) = RB(105)*C(3)*C(9)
C     R106: CH3 + CH2O = CH4 + HCO
      RF(106) = RF(106)*C(13)*C(21)
      RB(106) = RB(106)*C(3)
C     R107: CH3 + CH2 = C2H4 + H
      RF(107) = RF(107)*C(13)
      RB(107) = RB(107)*C(2)*C(15)
C     R108: CH3 + CH2* = C2H4 + H
      RF(108) = RF(108)*C(13)
      RB(108) = RB(108)*C(2)*C(15)
C     R109: 2CH3 = C2H6
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(13) * CTB / RF(109)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 4.675D-1*EXP(-T/1.51D2)
     *      + 5.325D-1*EXP(-T/1.038D3)
     *     + EXP(-4.97D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(109) = RF(109) * PCOR
      RB(109) = RB(109) * PCOR
      RF(109) = RF(109)*C(13)*C(13)
      RB(109) = RB(109)*C(8)
C     R110: 2CH3 = H + C2H5
      RF(110) = RF(110)*C(13)*C(13)
      RB(110) = RB(110)*C(15)
C     R111: CH3 + HCCO = C2H4 + CO
      RF(111) = RF(111)*C(13)
      RB(111) = RB(111)*C(2)*C(9)
C     R112: CH3 + C2H = H + C3H3
      RF(112) = RF(112)*C(13)
      RB(112) = RB(112)*C(15)*C(25)
C     R113: H + CH3O = CH3OH
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(14) * CTB / RF(113)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 1.098D-1*EXP(-T/1.44D2)
     *      + 8.902D-1*EXP(-T/2.838D3)
     *     + EXP(-4.5569D4/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(113) = RF(113) * PCOR
      RB(113) = RB(113) * PCOR
      RF(113) = RF(113)*C(15)
      RB(113) = RB(113)*C(22)
C     R114: H + CH3O = H2 + CH2O
      RF(114) = RF(114)*C(15)
      RB(114) = RB(114)*C(7)*C(21)
C     R115: H + CH3O = CH3 + OH
      RF(115) = RF(115)*C(15)
      RB(115) = RB(115)*C(13)*C(16)
C     R116: H + CH3O = H2O + CH2*
      RF(116) = RF(116)*C(15)
      RB(116) = RB(116)*C(19)
C     R117: O + CH3O = OH + CH2O
      RF(117) = RF(117)*C(18)
      RB(117) = RB(117)*C(16)*C(21)
C     R118: OH + CH3O = H2O + CH2O
      RF(118) = RF(118)*C(16)
      RB(118) = RB(118)*C(19)*C(21)
C     R119: O2 + CH3O = HO2 + CH2O
      RF(119) = RF(119)*C(14)
      RB(119) = RB(119)*C(17)*C(21)
C     R120: CH4 + H = H2 + CH3
      RF(120) = RF(120)*C(3)*C(15)
      RB(120) = RB(120)*C(7)*C(13)
C     R121: CH4 + O = CH3 + OH
      RF(121) = RF(121)*C(3)*C(18)
      RB(121) = RB(121)*C(13)*C(16)
C     R122: CH4 + OH = CH3 + H2O
      RF(122) = RF(122)*C(3)*C(16)
      RB(122) = RB(122)*C(13)*C(19)
C     R123: CH4 + CH = C2H4 + H
      RF(123) = RF(123)*C(3)
      RB(123) = RB(123)*C(2)*C(15)
C     R124: CH4 + CH2 = 2CH3
      RF(124) = RF(124)*C(3)
      RB(124) = RB(124)*C(13)*C(13)
C     R125: CH4 + CH2* = 2CH3
      RF(125) = RF(125)*C(3)
      RB(125) = RB(125)*C(13)*C(13)
C     R126: CH4 + C2H = C2H2 + CH3
      RF(126) = RF(126)*C(3)
      RB(126) = RB(126)*C(11)*C(13)
C     R127: H + CH3OH = H2 + CH3O
      RF(127) = RF(127)*C(15)*C(22)
      RB(127) = RB(127)*C(7)
C     R128: O + CH3OH = OH + CH3O
      RF(128) = RF(128)*C(18)*C(22)
      RB(128) = RB(128)*C(16)
C     R129: OH + CH3OH = H2O + CH3O
      RF(129) = RF(129)*C(16)*C(22)
      RB(129) = RB(129)*C(19)
C     R130: CH3 + CH3OH = CH4 + CH3O
      RF(130) = RF(130)*C(13)*C(22)
      RB(130) = RB(130)*C(3)
C     R131: H + C2H = C2H2
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(15) * CTB / RF(131)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 3.536D-1*EXP(-T/1.32D2)
     *      + 6.464D-1*EXP(-T/1.315D3)
     *     + EXP(-5.566D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(131) = RF(131) * PCOR
      RB(131) = RB(131) * PCOR
      RF(131) = RF(131)*C(15)
      RB(131) = RB(131)*C(11)
C     R132: O + C2H = CO + CH
      RF(132) = RF(132)*C(18)
      RB(132) = RB(132)*C(9)
C     R133: OH + C2H = H + HCCO
      RF(133) = RF(133)*C(16)
      RB(133) = RB(133)*C(15)
C     R134: O2 + C2H = CO + HCO
      RF(134) = RF(134)*C(14)
      RB(134) = RB(134)*C(9)
C     R135: H2 + C2H = C2H2 + H
      RF(135) = RF(135)*C(7)
      RB(135) = RB(135)*C(11)*C(15)
C     R136: H + C2O = CO + CH
      RF(136) = RF(136)*C(15)
      RB(136) = RB(136)*C(9)
C     R137: O + C2O = 2CO
      RF(137) = RF(137)*C(18)
      RB(137) = RB(137)*C(9)*C(9)
C     R138: OH + C2O = 2CO + H
      RF(138) = RF(138)*C(16)
      RB(138) = RB(138)*C(9)*C(9)*C(15)
C     R139: O2 + C2O = 2CO + O
      RF(139) = RF(139)*C(14)
      RB(139) = RB(139)*C(9)*C(9)*C(18)
C     R140: H + HCCO = CO + CH2*
      RF(140) = RF(140)*C(15)
      RB(140) = RB(140)*C(9)
C     R141: O + HCCO = 2CO + H
      RF(141) = RF(141)*C(18)
      RB(141) = RB(141)*C(9)*C(9)*C(15)
C     R142: O2 + HCCO = 2CO + OH
      RF(142) = RF(142)*C(14)
      RB(142) = RB(142)*C(9)*C(9)*C(16)
C     R143: CH + HCCO = CO + C2H2
      RB(143) = RB(143)*C(9)*C(11)
C     R144: CH2 + HCCO = CO + C2H3
      RB(144) = RB(144)*C(9)
C     R145: 2HCCO = 2CO + C2H2
      RB(145) = RB(145)*C(9)*C(9)*C(11)
C     R146: OH + HCCO = H2O + C2O
      RF(146) = RF(146)*C(16)
      RB(146) = RB(146)*C(19)
C     R147: C2H3 = C2H2 + H
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
     * +2.D0*C(11)+2.D0*C(2)
      PR = RKLOW(16) * CTB / RF(147)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = -9.816D-1*EXP(-T/5.3837D3)
     *      + 1.9816D0*EXP(-T/4.2932D0)
     *     + EXP(7.95D-2/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(147) = RF(147) * PCOR
      RB(147) = RB(147) * PCOR
      RB(147) = RB(147)*C(11)*C(15)
C     R148: C2H2 + O = OH + C2H
      RF(148) = RF(148)*C(11)*C(18)
      RB(148) = RB(148)*C(16)
C     R149: C2H2 + O = CO + CH2
      RF(149) = RF(149)*C(11)*C(18)
      RB(149) = RB(149)*C(9)
C     R150: C2H2 + O = H + HCCO
      RF(150) = RF(150)*C(11)*C(18)
      RB(150) = RB(150)*C(15)
C     R151: C2H2 + OH = H + CH2CO
      RF(151) = RF(151)*C(11)*C(16)
      RB(151) = RB(151)*C(15)*C(24)
C     R152: C2H2 + OH = H2O + C2H
      RF(152) = RF(152)*C(11)*C(16)
      RB(152) = RB(152)*C(19)
C     R153: C2H2 + OH = CO + CH3
      RF(153) = RF(153)*C(11)*C(16)
      RB(153) = RB(153)*C(9)*C(13)
C     R154: C2H2 + HCO = CO + C2H3
      RF(154) = RF(154)*C(11)
      RB(154) = RB(154)*C(9)
C     R155: C2H2 + CH2 = H + C3H3
      RF(155) = RF(155)*C(11)
      RB(155) = RB(155)*C(15)*C(25)
C     R156: C2H2 + CH2* = H + C3H3
      RF(156) = RF(156)*C(11)
      RB(156) = RB(156)*C(15)*C(25)
C     R157: C2H2 + HCCO = CO + C3H3
      RF(157) = RF(157)*C(11)
      RB(157) = RB(157)*C(9)*C(25)
C     R158: C2H2 + CH3 = aC3H5
      RF(158) = RF(158)*C(11)*C(13)
      RB(158) = RB(158)*C(26)
C     R159: H + CH2CO = CH2CHO
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
     * +2.D0*C(11)+2.D0*C(2)
      PR = RKLOW(17) * CTB / RF(159)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 6.63D-1*EXP(-T/1.707D3)
     *      + 3.37D-1*EXP(-T/3.2D3)
     *     + EXP(-4.131D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(159) = RF(159) * PCOR
      RB(159) = RB(159) * PCOR
      RF(159) = RF(159)*C(15)*C(24)
C     R160: H + CH2CO = H2 + HCCO
      RF(160) = RF(160)*C(15)*C(24)
      RB(160) = RB(160)*C(7)
C     R161: H + CH2CO = CO + CH3
      RF(161) = RF(161)*C(15)*C(24)
      RB(161) = RB(161)*C(9)*C(13)
C     R162: O + CH2CO = OH + HCCO
      RF(162) = RF(162)*C(18)*C(24)
      RB(162) = RB(162)*C(16)
C     R163: O + CH2CO = CH2 + CO2
      RF(163) = RF(163)*C(18)*C(24)
      RB(163) = RB(163)*C(23)
C     R164: OH + CH2CO = H2O + HCCO
      RF(164) = RF(164)*C(16)*C(24)
      RB(164) = RB(164)*C(19)
C     R165: H + C2H3 = C2H4
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
     * +2.D0*C(11)+2.D0*C(2)
      PR = RKLOW(18) * CTB / RF(165)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 2.18D-1*EXP(-T/2.075D2)
     *      + 7.82D-1*EXP(-T/2.663D3)
     *     + EXP(-6.095D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(165) = RF(165) * PCOR
      RB(165) = RB(165) * PCOR
      RF(165) = RF(165)*C(15)
      RB(165) = RB(165)*C(2)
C     R166: H + C2H3 = H2 + C2H2
      RF(166) = RF(166)*C(15)
      RB(166) = RB(166)*C(7)*C(11)
C     R167: O + C2H3 = H + CH2CO
      RF(167) = RF(167)*C(18)
      RB(167) = RB(167)*C(15)*C(24)
C     R168: O + C2H3 = CO + CH3
      RF(168) = RF(168)*C(18)
      RB(168) = RB(168)*C(9)*C(13)
C     R169: OH + C2H3 = C2H2 + H2O
      RF(169) = RF(169)*C(16)
      RB(169) = RB(169)*C(11)*C(19)
C     R170: O2 + C2H3 = C2H2 + HO2
      RF(170) = RF(170)*C(14)
      RB(170) = RB(170)*C(11)*C(17)
C     R171: O2 + C2H3 = O + CH2CHO
      RF(171) = RF(171)*C(14)
      RB(171) = RB(171)*C(18)
C     R172: O2 + C2H3 = HCO + CH2O
      RF(172) = RF(172)*C(14)
      RB(172) = RB(172)*C(21)
C     R173: HO2 + C2H3 = OH + CH2CHO
      RF(173) = RF(173)*C(17)
      RB(173) = RB(173)*C(16)
C     R174: H2O2 + C2H3 = C2H4 + HO2
      RF(174) = RF(174)*C(20)
      RB(174) = RB(174)*C(2)*C(17)
C     R175: HCO + C2H3 = C2H4 + CO
      RB(175) = RB(175)*C(2)*C(9)
C     R176: HCO + C2H3 = C2H3CHO
      RB(176) = RB(176)*C(27)
C     R177: CH3 + C2H3 = CH4 + C2H2
      RF(177) = RF(177)*C(13)
      RB(177) = RB(177)*C(3)*C(11)
C     R178: CH3 + C2H3 = C3H6
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
     * +2.D0*C(11)+2.D0*C(2)
      PR = RKLOW(19) * CTB / RF(178)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 8.25D-1*EXP(-T/1.3406D3)
     *      + 1.75D-1*EXP(-T/6.D4)
     *     + EXP(-1.01398D4/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(178) = RF(178) * PCOR
      RB(178) = RB(178) * PCOR
      RF(178) = RF(178)*C(13)
      RB(178) = RB(178)*C(4)
C     R179: CH3 + C2H3 = H + aC3H5
      RF(179) = RF(179)*C(13)
      RB(179) = RB(179)*C(15)*C(26)
C     R180: 2C2H3 = C2H4 + C2H2
      RB(180) = RB(180)*C(2)*C(11)
C     R181: CH2CHO = CO + CH3
      RB(181) = RB(181)*C(9)*C(13)
C     R182: H + CH2CHO = CH3 + HCO
      RF(182) = RF(182)*C(15)
      RB(182) = RB(182)*C(13)
C     R183: H + CH2CHO = H2 + CH2CO
      RF(183) = RF(183)*C(15)
      RB(183) = RB(183)*C(7)*C(24)
C     R184: O + CH2CHO = OH + CH2CO
      RF(184) = RF(184)*C(18)
      RB(184) = RB(184)*C(16)*C(24)
C     R185: OH + CH2CHO = H2O + CH2CO
      RF(185) = RF(185)*C(16)
      RB(185) = RB(185)*C(19)*C(24)
C     R186: O2 + CH2CHO = HO2 + CH2CO
      RF(186) = RF(186)*C(14)
      RB(186) = RB(186)*C(17)*C(24)
C     R187: O2 + CH2CHO = CO + OH + CH2O
      RF(187) = RF(187)*C(14)
      RB(187) = RB(187)*C(9)*C(16)*C(21)
C     R188: C2H4 + H = C2H5
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(20) * CTB / RF(188)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = -5.69D-1*EXP(T/9.147D3)
     *      + 1.569D0*EXP(-T/2.99D2)
     *     + EXP(-1.524D2/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(188) = RF(188) * PCOR
      RB(188) = RB(188) * PCOR
      RF(188) = RF(188)*C(2)*C(15)
C     R189: C2H4 + H = H2 + C2H3
      RF(189) = RF(189)*C(2)*C(15)
      RB(189) = RB(189)*C(7)
C     R190: C2H4 + O = OH + C2H3
      RF(190) = RF(190)*C(2)*C(18)
      RB(190) = RB(190)*C(16)
C     R191: C2H4 + O = CH3 + HCO
      RF(191) = RF(191)*C(2)*C(18)
      RB(191) = RB(191)*C(13)
C     R192: C2H4 + O = CH2 + CH2O
      RF(192) = RF(192)*C(2)*C(18)
      RB(192) = RB(192)*C(21)
C     R193: C2H4 + OH = H2O + C2H3
      RF(193) = RF(193)*C(2)*C(16)
      RB(193) = RB(193)*C(19)
C     R194: C2H4 + HCO = CO + C2H5
      RF(194) = RF(194)*C(2)
      RB(194) = RB(194)*C(9)
C     R195: C2H4 + CH2 = H + aC3H5
      RF(195) = RF(195)*C(2)
      RB(195) = RB(195)*C(15)*C(26)
C     R196: C2H4 + CH2* = H + aC3H5
      RF(196) = RF(196)*C(2)
      RB(196) = RB(196)*C(15)*C(26)
C     R197: C2H4 + CH3 = CH4 + C2H3
      RF(197) = RF(197)*C(2)*C(13)
      RB(197) = RB(197)*C(3)
C     R198: C2H4 + O2 = HO2 + C2H3
      RF(198) = RF(198)*C(2)*C(14)
      RB(198) = RB(198)*C(17)
C     R199: H + C2H5 = C2H6
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(21) * CTB / RF(199)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 1.578000000000001D-1*EXP(-T/1.25D2)
     *      + 8.421999999999999D-1*EXP(-T/2.219D3)
     *     + EXP(-6.882D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(199) = RF(199) * PCOR
      RB(199) = RB(199) * PCOR
      RF(199) = RF(199)*C(15)
      RB(199) = RB(199)*C(8)
C     R200: H + C2H5 = C2H4 + H2
      RF(200) = RF(200)*C(15)
      RB(200) = RB(200)*C(2)*C(7)
C     R201: O + C2H5 = CH3 + CH2O
      RF(201) = RF(201)*C(18)
      RB(201) = RB(201)*C(13)*C(21)
C     R202: O2 + C2H5 = C2H4 + HO2
      RF(202) = RF(202)*C(14)
      RB(202) = RB(202)*C(2)*C(17)
C     R203: HO2 + C2H5 = C2H6 + O2
      RF(203) = RF(203)*C(17)
      RB(203) = RB(203)*C(8)*C(14)
C     R204: HO2 + C2H5 = C2H4 + H2O2
      RF(204) = RF(204)*C(17)
      RB(204) = RB(204)*C(2)*C(20)
C     R205: HO2 + C2H5 = CH3 + OH + CH2O
      RF(205) = RF(205)*C(17)
      RB(205) = RB(205)*C(13)*C(16)*C(21)
C     R206: H2O2 + C2H5 = C2H6 + HO2
      RF(206) = RF(206)*C(20)
      RB(206) = RB(206)*C(8)*C(17)
C     R207: C2H3 + C2H5 = C4H81
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(22) * CTB / RF(207)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 8.02D-1*EXP(-T/2.2779D3)
     *      + 1.98D-1*EXP(-T/6.D4)
     *     + EXP(-5.7232D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(207) = RF(207) * PCOR
      RB(207) = RB(207) * PCOR
      RB(207) = RB(207)*C(6)
C     R208: C2H3 + C2H5 = CH3 + aC3H5
      RB(208) = RB(208)*C(13)*C(26)
C     R209: C2H6 + H = H2 + C2H5
      RF(209) = RF(209)*C(8)*C(15)
      RB(209) = RB(209)*C(7)
C     R210: C2H6 + O = OH + C2H5
      RF(210) = RF(210)*C(8)*C(18)
      RB(210) = RB(210)*C(16)
C     R211: C2H6 + OH = H2O + C2H5
      RF(211) = RF(211)*C(8)*C(16)
      RB(211) = RB(211)*C(19)
C     R212: C2H6 + CH2* = CH3 + C2H5
      RF(212) = RF(212)*C(8)
      RB(212) = RB(212)*C(13)
C     R213: C2H6 + CH3 = CH4 + C2H5
      RF(213) = RF(213)*C(8)*C(13)
      RB(213) = RB(213)*C(3)
C     R214: O + C3H3 = CH2O + C2H
      RF(214) = RF(214)*C(18)*C(25)
      RB(214) = RB(214)*C(21)
C     R215: O2 + C3H3 = HCO + CH2CO
      RF(215) = RF(215)*C(14)*C(25)
      RB(215) = RB(215)*C(24)
C     R216: HO2 + C3H3 = CO + OH + C2H3
      RF(216) = RF(216)*C(17)*C(25)
      RB(216) = RB(216)*C(9)*C(16)
C     R217: C2H2 + C3H3 = C5H5
      RF(217) = RF(217)*C(11)*C(25)
      RB(217) = RB(217)*C(29)
C     R218: 2C3H3 = H + C6H5
      RF(218) = RF(218)*C(25)*C(25)
C     R219: 2C3H3 = C6H6
      RF(219) = RF(219)*C(25)*C(25)
C     R220: H + aC3H5 = C3H6
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(23) * CTB / RF(220)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 9.8D-1*EXP(-T/1.0966D3)
     *      + 2.D-2*EXP(-T/1.0966D3)
     *     + EXP(-6.8595D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(220) = RF(220) * PCOR
      RB(220) = RB(220) * PCOR
      RF(220) = RF(220)*C(15)*C(26)
      RB(220) = RB(220)*C(4)
C     R221: O + aC3H5 = H + C2H3CHO
      RF(221) = RF(221)*C(18)*C(26)
      RB(221) = RB(221)*C(15)*C(27)
C     R222: OH + aC3H5 = 2H + C2H3CHO
      RF(222) = RF(222)*C(16)*C(26)
      RB(222) = RB(222)*C(15)*C(15)*C(27)
C     R223: O2 + aC3H5 = OH + C2H3CHO
      RF(223) = RF(223)*C(14)*C(26)
      RB(223) = RB(223)*C(16)*C(27)
C     R224: HO2 + aC3H5 = C3H6 + O2
      RF(224) = RF(224)*C(17)*C(26)
      RB(224) = RB(224)*C(4)*C(14)
C     R225: HO2 + aC3H5 = OH + CH2O + C2H3
      RF(225) = RF(225)*C(17)*C(26)
      RB(225) = RB(225)*C(16)*C(21)
C     R226: HCO + aC3H5 = C3H6 + CO
      RF(226) = RF(226)*C(26)
      RB(226) = RB(226)*C(4)*C(9)
C     R227: CH3 + aC3H5 = C4H81
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)+2.D0*C(8)
      PR = RKLOW(24) * CTB / RF(227)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 8.96D-1*EXP(-T/1.606D3)
     *      + 1.04D-1*EXP(-T/6.D4)
     *     + EXP(-6.1184D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(227) = RF(227) * PCOR
      RB(227) = RB(227) * PCOR
      RF(227) = RF(227)*C(13)*C(26)
      RB(227) = RB(227)*C(6)
C     R228: C3H6 + H = C2H4 + CH3
      RF(228) = RF(228)*C(4)*C(15)
      RB(228) = RB(228)*C(2)*C(13)
C     R229: C3H6 + H = H2 + aC3H5
      RF(229) = RF(229)*C(4)*C(15)
      RB(229) = RB(229)*C(7)*C(26)
C     R230: C3H6 + O = CH3 + H + CH2CO
      RF(230) = RF(230)*C(4)*C(18)
      RB(230) = RB(230)*C(13)*C(15)*C(24)
C     R231: C3H6 + O = 2H + C2H3CHO
      RF(231) = RF(231)*C(4)*C(18)
      RB(231) = RB(231)*C(15)*C(15)*C(27)
C     R232: C3H6 + O = HCO + C2H5
      RF(232) = RF(232)*C(4)*C(18)
C     R233: C3H6 + O = OH + aC3H5
      RF(233) = RF(233)*C(4)*C(18)
      RB(233) = RB(233)*C(16)*C(26)
C     R234: C3H6 + OH = H2O + aC3H5
      RF(234) = RF(234)*C(4)*C(16)
      RB(234) = RB(234)*C(19)*C(26)
C     R235: C3H6 + HO2 = H2O2 + aC3H5
      RF(235) = RF(235)*C(4)*C(17)
      RB(235) = RB(235)*C(20)*C(26)
C     R236: C3H6 + CH3 = CH4 + aC3H5
      RF(236) = RF(236)*C(4)*C(13)
      RB(236) = RB(236)*C(3)*C(26)
C     R237: H + C2H3CHO = C2H4 + HCO
      RF(237) = RF(237)*C(15)*C(27)
      RB(237) = RB(237)*C(2)
C     R238: O + C2H3CHO = CO + OH + C2H3
      RF(238) = RF(238)*C(18)*C(27)
      RB(238) = RB(238)*C(9)*C(16)
C     R239: O + C2H3CHO = CH2O + CH2CO
      RF(239) = RF(239)*C(18)*C(27)
      RB(239) = RB(239)*C(21)*C(24)
C     R240: OH + C2H3CHO = CO + H2O + C2H3
      RF(240) = RF(240)*C(16)*C(27)
      RB(240) = RB(240)*C(9)*C(19)
C     R241: C4H81 + H = C2H4 + C2H5
      RF(241) = RF(241)*C(6)*C(15)
      RB(241) = RB(241)*C(2)
C     R242: C4H81 + H = C3H6 + CH3
      RF(242) = RF(242)*C(6)*C(15)
      RB(242) = RB(242)*C(4)*C(13)
C     R243: iC4H8 + H = C3H6 + CH3
      RF(243) = RF(243)*C(5)*C(15)
      RB(243) = RB(243)*C(4)*C(13)
C     R244: iC4H8 + O = 2CH3 + CH2CO
      RF(244) = RF(244)*C(5)*C(18)
      RB(244) = RB(244)*C(13)*C(13)*C(24)
C     R245: iC4H8 + HO2 = C3H6 + OH + CH2O
      RF(245) = RF(245)*C(5)*C(17)
      RB(245) = RB(245)*C(4)*C(16)*C(21)
C     R246: CH3 + C6H5 = C6H5CH3
      RF(246) = RF(246)*C(13)
      RB(246) = RB(246)*C(12)
C     R247: C6H5CH3 + H = C6H6 + CH3
      RF(247) = RF(247)*C(12)*C(15)
      RB(247) = RB(247)*C(10)*C(13)
C     R248: C6H5CH3 + O = H + OC6H4CH3
      RF(248) = RF(248)*C(12)*C(18)
      RB(248) = RB(248)*C(15)*C(32)
C     R249: H + OC6H4CH3 = CH3 + C6H5O
      RF(249) = RF(249)*C(15)*C(32)
      RB(249) = RB(249)*C(13)*C(30)
C     R250: O + OC6H4CH3 = CH3 + C6H4O2
      RF(250) = RF(250)*C(18)*C(32)
      RB(250) = RB(250)*C(13)*C(31)
C     R251: H + C6H5 = C6H6
      CTB = CTOT+C(7)+5.D0*C(19)
     * +C(3)+5.D-1*C(9)
     * +C(23)
      PR = RKLOW(25) * CTB / RF(251)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 0.D0*EXP(-T/1.D-1)
     *      + 1.D0*EXP(-T/5.849D2)
     *     + EXP(-6.113D3/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(251) = RF(251) * PCOR
      RB(251) = RB(251) * PCOR
      RF(251) = RF(251)*C(15)
      RB(251) = RB(251)*C(10)
C     R252: C6H6 + OH = H2O + C6H5
      RF(252) = RF(252)*C(10)*C(16)
      RB(252) = RB(252)*C(19)
C     R253: C6H6 + O = H + C6H5O
      RF(253) = RF(253)*C(10)*C(18)
      RB(253) = RB(253)*C(15)*C(30)
C     R254: C6H6 + O = HCO + C5H5
      RF(254) = RF(254)*C(10)*C(18)
      RB(254) = RB(254)*C(29)
C     R255: H2 + C6H5 = C6H6 + H
      RF(255) = RF(255)*C(7)
      RB(255) = RB(255)*C(10)*C(15)
C     R256: O2 + C6H5 = O + C6H5O
      RF(256) = RF(256)*C(14)
      RB(256) = RB(256)*C(18)*C(30)
C     R257: O2 + C6H5 = H + C6H4O2
      RF(257) = RF(257)*C(14)
      RB(257) = RB(257)*C(15)*C(31)
C     R258: O + C6H5 = CO + C5H5
      RF(258) = RF(258)*C(18)
      RB(258) = RB(258)*C(9)*C(29)
C     R259: OH + C6H5 = H + C6H5O
      RF(259) = RF(259)*C(16)
      RB(259) = RB(259)*C(15)*C(30)
C     R260: HO2 + C6H5 = OH + C6H5O
      RF(260) = RF(260)*C(17)
      RB(260) = RB(260)*C(16)*C(30)
C     R261: HO2 + C6H5 = C6H6 + O2
      RF(261) = RF(261)*C(17)
      RB(261) = RB(261)*C(10)*C(14)
C     R262: CH4 + C6H5 = C6H6 + CH3
      RF(262) = RF(262)*C(3)
      RB(262) = RB(262)*C(10)*C(13)
C     R263: C2H6 + C6H5 = C6H6 + C2H5
      RF(263) = RF(263)*C(8)
      RB(263) = RB(263)*C(10)
C     R264: CH2O + C6H5 = C6H6 + HCO
      RF(264) = RF(264)*C(21)
      RB(264) = RB(264)*C(10)
C     R265: C6H4O2 = CO + C5H4O
      RF(265) = RF(265)*C(31)
      RB(265) = RB(265)*C(9)*C(28)
C     R266: O + C6H4O2 = 2CO + C2H2 + CH2CO
      RF(266) = RF(266)*C(18)*C(31)
      RB(266) = RB(266)*C(9)*C(9)*C(11)*C(24)
C     R267: H + C6H5O = HCO + C5H5
      RF(267) = RF(267)*C(15)*C(30)
      RB(267) = RB(267)*C(29)
C     R268: C6H5O = CO + C5H5
      RF(268) = RF(268)*C(30)
      RB(268) = RB(268)*C(9)*C(29)
C     R269: O + C6H5O = H + C6H4O2
      RF(269) = RF(269)*C(18)*C(30)
      RB(269) = RB(269)*C(15)*C(31)
C     R270: O + C5H5 = H + C5H4O
      RF(270) = RF(270)*C(18)*C(29)
      RB(270) = RB(270)*C(15)*C(28)
C     R271: O2 + C5H5 = OH + C5H4O
      RF(271) = RF(271)*C(14)*C(29)
      RB(271) = RB(271)*C(16)*C(28)
C     R272: C5H4O = CO + 2C2H2
      RF(272) = RF(272)*C(28)
      RB(272) = RB(272)*C(9)*C(11)*C(11)
C     R273: O + C5H4O = CO + HCO + C3H3
      RF(273) = RF(273)*C(18)*C(28)
      RB(273) = RB(273)*C(9)*C(25)
C     R274: H + NH2 = NH3
      CTB = CTOT
      PR = RKLOW(26) * CTB / RF(274)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 5.D-1*EXP(-T/1.D-30)
     *      + 5.D-1*EXP(-T/1.D30)
     *     + EXP(-1.D30/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(274) = RF(274) * PCOR
      RB(274) = RB(274) * PCOR
      RF(274) = RF(274)*C(15)*C(37)
      RB(274) = RB(274)*C(36)
C     R275: H + NH3 = H2 + NH2
      RF(275) = RF(275)*C(15)*C(36)
      RB(275) = RB(275)*C(7)*C(37)
C     R276: O + NH3 = OH + NH2
      RF(276) = RF(276)*C(18)*C(36)
      RB(276) = RB(276)*C(16)*C(37)
C     R277: OH + NH3 = H2O + NH2
      RF(277) = RF(277)*C(16)*C(36)
      RB(277) = RB(277)*C(19)*C(37)
C     R278: HO2 + NH3 = H2O2 + NH2
      RF(278) = RF(278)*C(17)*C(36)
      RB(278) = RB(278)*C(20)*C(37)
C     R279: H2 + NH = H + NH2
      RF(279) = RF(279)*C(7)
      RB(279) = RB(279)*C(15)*C(37)
C     R280: O + NH2 = H + HNO
      RF(280) = RF(280)*C(18)*C(37)
      RB(280) = RB(280)*C(15)*C(38)
C     R281: O + NH2 = OH + NH
      RF(281) = RF(281)*C(18)*C(37)
      RB(281) = RB(281)*C(16)
C     R282: O + NH2 = OH + NH
      RF(282) = RF(282)*C(18)*C(37)
      RB(282) = RB(282)*C(16)
C     R283: OH + NH2 = H2O + NH
      RF(283) = RF(283)*C(16)*C(37)
      RB(283) = RB(283)*C(19)
C     R284: HO2 + NH2 = O2 + NH3
      RF(284) = RF(284)*C(17)*C(37)
      RB(284) = RB(284)*C(14)*C(36)
C     R285: HO2 + NH2 = H2O + HNO
      RF(285) = RF(285)*C(17)*C(37)
      RB(285) = RB(285)*C(19)*C(38)
C     R286: HO2 + NH2 = H2O + HNO
      RF(286) = RF(286)*C(17)*C(37)
      RB(286) = RB(286)*C(19)*C(38)
C     R287: O2 + NH2 = OH + HNO
      RF(287) = RF(287)*C(14)*C(37)
      RB(287) = RB(287)*C(16)*C(38)
C     R288: 2NH2 = NH3 + NH
      RF(288) = RF(288)*C(37)*C(37)
      RB(288) = RB(288)*C(36)
C     R289: NH2 + NH = NH3 + N
      RF(289) = RF(289)*C(37)
      RB(289) = RB(289)*C(36)
C     R290: NH2 + N = 2H + N2
      RF(290) = RF(290)*C(37)
      RB(290) = RB(290)*C(15)*C(15)*C(47)
C     R291: NH2 + HNO = NO + NH3
      RF(291) = RF(291)*C(37)*C(38)
      RB(291) = RB(291)*C(33)*C(36)
C     R292: NO + NH2 = H2O + N2
      RF(292) = RF(292)*C(33)*C(37)
      RB(292) = RB(292)*C(19)*C(47)
C     R293: NO + NH2 = OH + NNH
      RF(293) = RF(293)*C(33)*C(37)
      RB(293) = RB(293)*C(16)
C     R294: NO2 + NH2 = H2O + N2O
      RF(294) = RF(294)*C(34)*C(37)
      RB(294) = RB(294)*C(19)*C(39)
C     R295: H + NH = H2 + N
      RF(295) = RF(295)*C(15)
      RB(295) = RB(295)*C(7)
C     R296: O + NH = H + NO
      RF(296) = RF(296)*C(18)
      RB(296) = RB(296)*C(15)*C(33)
C     R297: OH + NH = H + HNO
      RF(297) = RF(297)*C(16)
      RB(297) = RB(297)*C(15)*C(38)
C     R298: OH + NH = H2O + N
      RF(298) = RF(298)*C(16)
      RB(298) = RB(298)*C(19)
C     R299: O2 + NH = O + HNO
      RF(299) = RF(299)*C(14)
      RB(299) = RB(299)*C(18)*C(38)
C     R300: O2 + NH = OH + NO
      RF(300) = RF(300)*C(14)
      RB(300) = RB(300)*C(16)*C(33)
C     R301: 2NH = NH2 + N
      RB(301) = RB(301)*C(37)
C     R302: NH + N = H + N2
      RB(302) = RB(302)*C(15)*C(47)
C     R303: NO + NH = H + N2O
      RF(303) = RF(303)*C(33)
      RB(303) = RB(303)*C(15)*C(39)
C     R304: NO + NH = OH + N2
      RF(304) = RF(304)*C(33)
      RB(304) = RB(304)*C(16)*C(47)
C     R305: NO2 + NH = OH + N2O
      RF(305) = RF(305)*C(34)
      RB(305) = RB(305)*C(16)*C(39)
C     R306: NO2 + NH = NO + HNO
      RF(306) = RF(306)*C(34)
      RB(306) = RB(306)*C(33)*C(38)
C     R307: OH + N = H + NO
      RF(307) = RF(307)*C(16)
      RB(307) = RB(307)*C(15)*C(33)
C     R308: O2 + N = O + NO
      RF(308) = RF(308)*C(14)
      RB(308) = RB(308)*C(18)*C(33)
C     R309: NO + N = O + N2
      RF(309) = RF(309)*C(33)
      RB(309) = RB(309)*C(18)*C(47)
C     R310: NNH = H + N2
      RB(310) = RB(310)*C(15)*C(47)
C     R311: H + NNH = H2 + N2
      RF(311) = RF(311)*C(15)
      RB(311) = RB(311)*C(7)*C(47)
C     R312: O + NNH = H + N2O
      RF(312) = RF(312)*C(18)
      RB(312) = RB(312)*C(15)*C(39)
C     R313: O + NNH = OH + N2
      RF(313) = RF(313)*C(18)
      RB(313) = RB(313)*C(16)*C(47)
C     R314: O + NNH = NO + NH
      RF(314) = RF(314)*C(18)
      RB(314) = RB(314)*C(33)
C     R315: OH + NNH = H2O + N2
      RF(315) = RF(315)*C(16)
      RB(315) = RB(315)*C(19)*C(47)
C     R316: O2 + NNH = HO2 + N2
      RF(316) = RF(316)*C(14)
      RB(316) = RB(316)*C(17)*C(47)
C     R317: NH + NNH = NH2 + N2
      RB(317) = RB(317)*C(37)*C(47)
C     R318: NH2 + NNH = NH3 + N2
      RF(318) = RF(318)*C(37)
      RB(318) = RB(318)*C(36)*C(47)
C     R319: NO + NNH = HNO + N2
      RF(319) = RF(319)*C(33)
      RB(319) = RB(319)*C(38)*C(47)
C     R320: H + NO = HNO
      CTB = CTOT+6.000000000000001D-1*C(47)
      PR = RKLOW(27) * CTB / RF(320)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 1.8D-1*EXP(-T/1.D-30)
     *      + 8.2D-1*EXP(-T/1.D30)
     *     + EXP(-1.D30/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(320) = RF(320) * PCOR
      RB(320) = RB(320) * PCOR
      RF(320) = RF(320)*C(15)*C(33)
      RB(320) = RB(320)*C(38)
C     R321: H + HNO = H2 + NO
      RF(321) = RF(321)*C(15)*C(38)
      RB(321) = RB(321)*C(7)*C(33)
C     R322: O + HNO = OH + NO
      RF(322) = RF(322)*C(18)*C(38)
      RB(322) = RB(322)*C(16)*C(33)
C     R323: OH + HNO = H2O + NO
      RF(323) = RF(323)*C(16)*C(38)
      RB(323) = RB(323)*C(19)*C(33)
C     R324: O2 + HNO = HO2 + NO
      RF(324) = RF(324)*C(14)*C(38)
      RB(324) = RB(324)*C(17)*C(33)
C     R325: 2HNO = H2O + N2O
      RF(325) = RF(325)*C(38)*C(38)
      RB(325) = RB(325)*C(19)*C(39)
C     R326: HO2 + NO = OH + NO2
      RF(326) = RF(326)*C(17)*C(33)
      RB(326) = RB(326)*C(16)*C(34)
C     R327: O + NO = NO2
      CTB = CTOT
      PR = RKLOW(28) * CTB / RF(327)
      PCOR = PR / (1.0 + PR)
      PRLOG = LOG10(MAX(PR,SMALL))
      FCENT = 2.5D-1*EXP(-T/1.D3)
     *      + 7.5D-1*EXP(-T/1.D5)
     *     + EXP(-1.D30/T)
      FCLOG = LOG10(MAX(FCENT,SMALL))
      XN    = 0.75 - 1.27*FCLOG
      CPRLOG= PRLOG - (0.4 + 0.67*FCLOG)
      FLOG = FCLOG/(1.0 + (CPRLOG/(XN-0.14*CPRLOG))**2)
      FC = 10.0**FLOG
      PCOR = FC * PCOR
      RF(327) = RF(327) * PCOR
      RB(327) = RB(327) * PCOR
      RF(327) = RF(327)*C(18)*C(33)
      RB(327) = RB(327)*C(34)
C     R328: H + NO2 = OH + NO
      RF(328) = RF(328)*C(15)*C(34)
      RB(328) = RB(328)*C(16)*C(33)
C     R329: O + NO2 = O2 + NO
      RF(329) = RF(329)*C(18)*C(34)
      RB(329) = RB(329)*C(14)*C(33)
C     R330: 2NO2 = O2 + 2NO
      RF(330) = RF(330)*C(34)*C(34)
      RB(330) = RB(330)*C(14)*C(33)*C(33)
C     R331: N2O = O + N2
      CTB = CTOT+7.D-1*C(47)+3.999999999999999D-1*C(14)
     * +1.1D1*C(19)
      PR = RKLOW(29) * CTB / RF(331)
      PCOR = PR / (1.0 + PR)
      RF(331) = RF(331) * PCOR
      RB(331) = RB(331) * PCOR
      RF(331) = RF(331)*C(39)
      RB(331) = RB(331)*C(18)*C(47)
C     R332: H + N2O = OH + N2
      RF(332) = RF(332)*C(15)*C(39)
      RB(332) = RB(332)*C(16)*C(47)
C     R333: O + N2O = 2NO
      RF(333) = RF(333)*C(18)*C(39)
      RB(333) = RB(333)*C(33)*C(33)
C     R334: O + N2O = O2 + N2
      RF(334) = RF(334)*C(18)*C(39)
      RB(334) = RB(334)*C(14)*C(47)
C     R335: OH + N2O = HO2 + N2
      RF(335) = RF(335)*C(16)*C(39)
      RB(335) = RB(335)*C(17)*C(47)
C     R336: OH + N2O = NO + HNO
      RF(336) = RF(336)*C(16)*C(39)
      RB(336) = RB(336)*C(33)*C(38)
C     R337: NO + N2O = NO2 + N2
      RF(337) = RF(337)*C(33)*C(39)
      RB(337) = RB(337)*C(34)*C(47)
C     R338: HCN = H + CN
      CTB = CTOT-C(47)+5.D-1*C(14)
     * +9.D0*C(19)
      RF(338) = RF(338)*CTB*C(35)
      RB(338) = RB(338)*CTB*C(15)
C     R339: HCN = H + CN
      RF(339) = RF(339)*C(35)*C(47)
      RB(339) = RB(339)*C(15)*C(47)
C     R340: HCN = HNC
      CTB = CTOT+6.D0*C(19)+C(23)
      RF(340) = RF(340)*CTB*C(35)
      RB(340) = RB(340)*CTB*C(40)
C     R341: H2 + CN = H + HCN
      RF(341) = RF(341)*C(7)
      RB(341) = RB(341)*C(15)*C(35)
C     R342: O + HCN = H + NCO
      RF(342) = RF(342)*C(18)*C(35)
      RB(342) = RB(342)*C(15)*C(43)
C     R343: O + HCN = CO + NH
      RF(343) = RF(343)*C(18)*C(35)
      RB(343) = RB(343)*C(9)
C     R344: O + HCN = OH + CN
      RF(344) = RF(344)*C(18)*C(35)
      RB(344) = RB(344)*C(16)
C     R345: OH + HCN = H2O + CN
      RF(345) = RF(345)*C(16)*C(35)
      RB(345) = RB(345)*C(19)
C     R346: OH + HCN = H + HNCO
      RF(346) = RF(346)*C(16)*C(35)
      RB(346) = RB(346)*C(15)*C(41)
C     R347: OH + HCN = CO + NH2
      RF(347) = RF(347)*C(16)*C(35)
      RB(347) = RB(347)*C(9)*C(37)
C     R348: O2 + HCN = HO2 + CN
      RF(348) = RF(348)*C(14)*C(35)
      RB(348) = RB(348)*C(17)
C     R349: HNC = HCN
      RF(349) = RF(349)*C(15)*C(40)
      RB(349) = RB(349)*C(15)*C(35)
C     R350: O + HNC = CO + NH
      RF(350) = RF(350)*C(18)*C(40)
      RB(350) = RB(350)*C(9)
C     R351: OH + HNC = H + HNCO
      RF(351) = RF(351)*C(16)*C(40)
      RB(351) = RB(351)*C(15)*C(41)
C     R352: OH + HNC = H2O + CN
      RF(352) = RF(352)*C(16)*C(40)
      RB(352) = RB(352)*C(19)
C     R353: O + CN = CO + N
      RF(353) = RF(353)*C(18)
      RB(353) = RB(353)*C(9)
C     R354: OH + CN = H + NCO
      RF(354) = RF(354)*C(16)
      RB(354) = RB(354)*C(15)*C(43)
C     R355: O2 + CN = O + NCO
      RF(355) = RF(355)*C(14)
      RB(355) = RB(355)*C(18)*C(43)
C     R356: O2 + CN = CO + NO
      RF(356) = RF(356)*C(14)
      RB(356) = RB(356)*C(9)*C(33)
C     R357: NO + CN = N + NCO
      RF(357) = RF(357)*C(33)
      RB(357) = RB(357)*C(43)
C     R358: NO2 + CN = NO + NCO
      RF(358) = RF(358)*C(34)
      RB(358) = RB(358)*C(33)*C(43)
C     R359: NO2 + CN = CO + N2O
      RF(359) = RF(359)*C(34)
      RB(359) = RB(359)*C(9)*C(39)
C     R360: NO2 + CN = CO2 + N2
      RF(360) = RF(360)*C(34)
      RB(360) = RB(360)*C(23)*C(47)
C     R361: HNO + CN = NO + HCN
      RF(361) = RF(361)*C(38)
      RB(361) = RB(361)*C(33)*C(35)
C     R362: CN + HNCO = HCN + NCO
      RF(362) = RF(362)*C(41)
      RB(362) = RB(362)*C(35)*C(43)
C     R363: CN + HNCO = CO + HNCN
      RF(363) = RF(363)*C(41)
      RB(363) = RB(363)*C(9)*C(45)
C     R364: CN + NCO = CO + NCN
      RF(364) = RF(364)*C(43)
      RB(364) = RB(364)*C(9)*C(44)
C     R365: HNCO = CO + NH
      CTB = CTOT+5.D-1*C(47)
      RF(365) = RF(365)*CTB*C(41)
      RB(365) = RB(365)*CTB*C(9)
C     R366: H + HNCO = CO + NH2
      RF(366) = RF(366)*C(15)*C(41)
      RB(366) = RB(366)*C(9)*C(37)
C     R367: H + HNCO = H2 + NCO
      RF(367) = RF(367)*C(15)*C(41)
      RB(367) = RB(367)*C(7)*C(43)
C     R368: O + HNCO = OH + NCO
      RF(368) = RF(368)*C(18)*C(41)
      RB(368) = RB(368)*C(16)*C(43)
C     R369: O + HNCO = CO2 + NH
      RF(369) = RF(369)*C(18)*C(41)
      RB(369) = RB(369)*C(23)
C     R370: O + HNCO = CO + HNO
      RF(370) = RF(370)*C(18)*C(41)
      RB(370) = RB(370)*C(9)*C(38)
C     R371: OH + HNCO = H2O + NCO
      RF(371) = RF(371)*C(16)*C(41)
      RB(371) = RB(371)*C(19)*C(43)
C     R372: HO2 + HNCO = H2O2 + NCO
      RF(372) = RF(372)*C(17)*C(41)
      RB(372) = RB(372)*C(20)*C(43)
C     R373: O2 + HNCO = CO2 + HNO
      RF(373) = RF(373)*C(14)*C(41)
      RB(373) = RB(373)*C(23)*C(38)
C     R374: H2O + HNCO = CO2 + NH3
      RF(374) = RF(374)*C(19)*C(41)
      RB(374) = RB(374)*C(23)*C(36)
C     R375: NH + HNCO = NH2 + NCO
      RF(375) = RF(375)*C(41)
      RB(375) = RB(375)*C(37)*C(43)
C     R376: HCNO = O + HCN
      RF(376) = RF(376)*C(42)
      RB(376) = RB(376)*C(18)*C(35)
C     R377: H + HCNO = OH + HCN
      RF(377) = RF(377)*C(15)*C(42)
      RB(377) = RB(377)*C(16)*C(35)
C     R378: O + HCNO = HCO + NO
      RF(378) = RF(378)*C(18)*C(42)
      RB(378) = RB(378)*C(33)
C     R379: O + HCNO = OH + NCO
      RF(379) = RF(379)*C(18)*C(42)
      RB(379) = RB(379)*C(16)*C(43)
C     R380: OH + HCNO = HCO + HNO
      RF(380) = RF(380)*C(16)*C(42)
      RB(380) = RB(380)*C(38)
C     R381: CN + HCNO = HCN + NCO
      RF(381) = RF(381)*C(42)
      RB(381) = RB(381)*C(35)*C(43)
C     R382: HCNO + NCO = CO + NO + HCN
      RF(382) = RF(382)*C(42)*C(43)
      RB(382) = RB(382)*C(9)*C(33)*C(35)
C     R383: NCO = CO + N
      CTB = CTOT+5.D-1*C(47)
      RF(383) = RF(383)*CTB*C(43)
      RB(383) = RB(383)*CTB*C(9)
C     R384: H + NCO = CO + NH
      RF(384) = RF(384)*C(15)*C(43)
      RB(384) = RB(384)*C(9)
C     R385: O + NCO = CO + NO
      RF(385) = RF(385)*C(18)*C(43)
      RB(385) = RB(385)*C(9)*C(33)
C     R386: OH + NCO = CO + H + NO
      RF(386) = RF(386)*C(16)*C(43)
      RB(386) = RB(386)*C(9)*C(15)*C(33)
C     R387: HO2 + NCO = O2 + HNCO
      RF(387) = RF(387)*C(17)*C(43)
      RB(387) = RB(387)*C(14)*C(41)
C     R388: O2 + NCO = CO2 + NO
      RF(388) = RF(388)*C(14)*C(43)
      RB(388) = RB(388)*C(23)*C(33)
C     R389: NO + NCO = CO + N2O
      RF(389) = RF(389)*C(33)*C(43)
      RB(389) = RB(389)*C(9)*C(39)
C     R390: NO + NCO = CO2 + N2
      RF(390) = RF(390)*C(33)*C(43)
      RB(390) = RB(390)*C(23)*C(47)
C     R391: NO2 + NCO = CO + 2NO
      RF(391) = RF(391)*C(34)*C(43)
      RB(391) = RB(391)*C(9)*C(33)*C(33)
C     R392: NO2 + NCO = CO2 + N2O
      RF(392) = RF(392)*C(34)*C(43)
      RB(392) = RB(392)*C(23)*C(39)
C     R393: HNO + NCO = NO + HNCO
      RF(393) = RF(393)*C(38)*C(43)
      RB(393) = RB(393)*C(33)*C(41)
C     R394: NH3 + NCO = NH2 + HNCO
      RF(394) = RF(394)*C(36)*C(43)
      RB(394) = RB(394)*C(37)*C(41)
C     R395: N + NCO = CO + N2
      RF(395) = RF(395)*C(43)
      RB(395) = RB(395)*C(9)*C(47)
C     R396: 2NCO = 2CO + N2
      RF(396) = RF(396)*C(43)*C(43)
      RB(396) = RB(396)*C(9)*C(9)*C(47)
C     R397: CO + NO2 = CO2 + NO
      RF(397) = RF(397)*C(9)*C(34)
      RB(397) = RB(397)*C(23)*C(33)
C     R398: CO + N2O = CO2 + N2
      RF(398) = RF(398)*C(9)*C(39)
      RB(398) = RB(398)*C(23)*C(47)
C     R399: CO2 + N = CO + NO
      RF(399) = RF(399)*C(23)
      RB(399) = RB(399)*C(9)*C(33)
C     R400: CO2 + CN = CO + NCO
      RF(400) = RF(400)*C(23)
      RB(400) = RB(400)*C(9)*C(43)
C     R401: CH2O + CN = HCO + HCN
      RF(401) = RF(401)*C(21)
      RB(401) = RB(401)*C(35)
C     R402: CH2O + NCO = HCO + HNCO
      RF(402) = RF(402)*C(21)*C(43)
      RB(402) = RB(402)*C(41)
C     R403: HCO + NO = CO + HNO
      RF(403) = RF(403)*C(33)
      RB(403) = RB(403)*C(9)*C(38)
C     R404: HCO + HNO = CH2O + NO
      RF(404) = RF(404)*C(38)
      RB(404) = RB(404)*C(21)*C(33)
C     R405: HCO + NO2 = H + CO2 + NO
      RF(405) = RF(405)*C(34)
      RB(405) = RB(405)*C(15)*C(23)*C(33)
C     R406: HCO + NO2 = CO + OH + NO
      RF(406) = RF(406)*C(34)
      RB(406) = RB(406)*C(9)*C(16)*C(33)
C     R407: HCO + NCO = CO + HNCO
      RF(407) = RF(407)*C(43)
      RB(407) = RB(407)*C(9)*C(41)
C     R408: CH4 + NH2 = CH3 + NH3
      RF(408) = RF(408)*C(3)*C(37)
      RB(408) = RB(408)*C(13)*C(36)
C     R409: CH4 + CN = CH3 + HCN
      RF(409) = RF(409)*C(3)
      RB(409) = RB(409)*C(13)*C(35)
C     R410: CH4 + NCO = CH3 + HNCO
      RF(410) = RF(410)*C(3)*C(43)
      RB(410) = RB(410)*C(13)*C(41)
C     R411: CH3 + NH2 = CH4 + NH
      RF(411) = RF(411)*C(13)*C(37)
      RB(411) = RB(411)*C(3)
C     R412: CH3 + NH2 = CH2 + NH3
      RF(412) = RF(412)*C(13)*C(37)
      RB(412) = RB(412)*C(36)
C     R413: CH3 + NH = H + CH2NH
      RF(413) = RF(413)*C(13)
      RB(413) = RB(413)*C(15)*C(46)
C     R414: CH3 + NH = CH4 + N
      RF(414) = RF(414)*C(13)
      RB(414) = RB(414)*C(3)
C     R415: CH3 + N = H + H2CN
      RF(415) = RF(415)*C(13)
      RB(415) = RB(415)*C(15)
C     R416: CH3 + HNO = CH4 + NO
      RF(416) = RF(416)*C(13)*C(38)
      RB(416) = RB(416)*C(3)*C(33)
C     R417: CH3 + NO = H2O + HCN
      RF(417) = RF(417)*C(13)*C(33)
      RB(417) = RB(417)*C(19)*C(35)
C     R418: CH3 + NO = OH + H2CN
      RF(418) = RF(418)*C(13)*C(33)
      RB(418) = RB(418)*C(16)
C     R419: CH3 + NO2 = CH3O + NO
      RF(419) = RF(419)*C(13)*C(34)
      RB(419) = RB(419)*C(33)
C     R420: CH2 + N2 = HCN + NH
      RF(420) = RF(420)*C(47)
      RB(420) = RB(420)*C(35)
C     R421: CH2 + N = H + HCN
      RB(421) = RB(421)*C(15)*C(35)
C     R422: CH2 + NO = H + HCNO
      RF(422) = RF(422)*C(33)
      RB(422) = RB(422)*C(15)*C(42)
C     R423: CH2 + NO = OH + HCN
      RF(423) = RF(423)*C(33)
      RB(423) = RB(423)*C(16)*C(35)
C     R424: CH2 + NO2 = CH2O + NO
      RF(424) = RF(424)*C(34)
      RB(424) = RB(424)*C(21)*C(33)
C     R425: CH2* + NO = OH + HCN
      RF(425) = RF(425)*C(33)
      RB(425) = RB(425)*C(16)*C(35)
C     R426: CH2* = CH2
      RF(426) = RF(426)*C(33)
      RB(426) = RB(426)*C(33)
C     R427: CH2* + N2O = CH2O + N2
      RF(427) = RF(427)*C(39)
      RB(427) = RB(427)*C(21)*C(47)
C     R428: CH + N2 = H + NCN
      RF(428) = RF(428)*C(47)
      RB(428) = RB(428)*C(15)*C(44)
C     R429: CH + N2 = HNCN
      RF(429) = RF(429)*C(47)
      RB(429) = RB(429)*C(45)
C     R430: CH + NH3 = 2H + H2CN
      RF(430) = RF(430)*C(36)
      RB(430) = RB(430)*C(15)*C(15)
C     R431: CH + N = H + CN
      RB(431) = RB(431)*C(15)
C     R432: CH + NO = CO + NH
      RF(432) = RF(432)*C(33)
      RB(432) = RB(432)*C(9)
C     R433: CH + NO = H + NCO
      RF(433) = RF(433)*C(33)
      RB(433) = RB(433)*C(15)*C(43)
C     R434: CH + NO = O + HCN
      RF(434) = RF(434)*C(33)
      RB(434) = RB(434)*C(18)*C(35)
C     R435: CH + NO = OH + CN
      RF(435) = RF(435)*C(33)
      RB(435) = RB(435)*C(16)
C     R436: CH + NO = HCO + N
      RF(436) = RF(436)*C(33)
C     R437: CH + NO2 = HCO + NO
      RF(437) = RF(437)*C(34)
      RB(437) = RB(437)*C(33)
C     R438: N + CN = C + N2
      RB(438) = RB(438)*C(47)
C     R439: CH + N2O = NO + HCN
      RF(439) = RF(439)*C(39)
      RB(439) = RB(439)*C(33)*C(35)
C     R440: C + NO = O + CN
      RF(440) = RF(440)*C(33)
      RB(440) = RB(440)*C(18)
C     R441: C + NO = CO + N
      RF(441) = RF(441)*C(33)
      RB(441) = RB(441)*C(9)
C     R442: C + N2O = NO + CN
      RF(442) = RF(442)*C(39)
      RB(442) = RB(442)*C(33)
C     R443: CH3O + HNO = CH3OH + NO
      RF(443) = RF(443)*C(38)
      RB(443) = RB(443)*C(22)*C(33)
C     R444: CH3O + NO = CH2O + HNO
      RF(444) = RF(444)*C(33)
      RB(444) = RB(444)*C(21)*C(38)
C     R445: CH3O + NO = CH2O + HNO
      RF(445) = RF(445)*C(33)
      RB(445) = RB(445)*C(21)*C(38)
C     R446: C2H6 + NH2 = C2H5 + NH3
      RF(446) = RF(446)*C(8)*C(37)
      RB(446) = RB(446)*C(36)
C     R447: C2H6 + CN = C2H5 + HCN
      RF(447) = RF(447)*C(8)
      RB(447) = RB(447)*C(35)
C     R448: C2H6 + NCO = C2H5 + HNCO
      RF(448) = RF(448)*C(8)*C(43)
      RB(448) = RB(448)*C(41)
C     R449: C2H5 + N = C2H4 + NH
      RB(449) = RB(449)*C(2)
C     R450: C2H5 + N = CH3 + H2CN
      RB(450) = RB(450)*C(13)
C     R451: C2H4 + NH2 = C2H3 + NH3
      RF(451) = RF(451)*C(2)*C(37)
      RB(451) = RB(451)*C(36)
C     R452: C2H3 + NO = CH2O + HCN
      RF(452) = RF(452)*C(33)
      RB(452) = RB(452)*C(21)*C(35)
C     R453: C2H3 + NO2 = CH2CHO + NO
      RF(453) = RF(453)*C(34)
      RB(453) = RB(453)*C(33)
C     R454: C2H2 + NCO = HCCO + HCN
      RF(454) = RF(454)*C(11)*C(43)
      RB(454) = RB(454)*C(35)
C     R455: C2H + NH3 = C2H2 + NH2
      RF(455) = RF(455)*C(36)
      RB(455) = RB(455)*C(11)*C(37)
C     R456: C2H + NO = CO + HCN
      RF(456) = RF(456)*C(33)
      RB(456) = RB(456)*C(9)*C(35)
C     R457: C2H + NO = HCO + CN
      RF(457) = RF(457)*C(33)
C     R458: C2H + NO2 = HCCO + NO
      RF(458) = RF(458)*C(34)
      RB(458) = RB(458)*C(33)
C     R459: HCCO + N = CO + HCN
      RB(459) = RB(459)*C(9)*C(35)
C     R460: HCCO + NO = CO + HCNO
      RF(460) = RF(460)*C(33)
      RB(460) = RB(460)*C(9)*C(42)
C     R461: HCCO + NO = CO2 + HCN
      RF(461) = RF(461)*C(33)
      RB(461) = RB(461)*C(23)*C(35)
C     R462: HCCO + NO2 = CO2 + HCNO
      RF(462) = RF(462)*C(34)
      RB(462) = RB(462)*C(23)*C(42)
C     R463: C2O + NO = CO + NCO
      RF(463) = RF(463)*C(33)
      RB(463) = RB(463)*C(9)*C(43)
C     R464: C2O + NO2 = CO2 + NCO
      RF(464) = RF(464)*C(34)
      RB(464) = RB(464)*C(23)*C(43)
C     R465: NCN = C + N2
      CTB = CTOT
      RF(465) = RF(465)*CTB*C(44)
      RB(465) = RB(465)*CTB*C(47)
C     R466: H + NCN = HNCN
      RF(466) = RF(466)*C(15)*C(44)
      RB(466) = RB(466)*C(45)
C     R467: H + NCN = HCN + N
      RF(467) = RF(467)*C(15)*C(44)
      RB(467) = RB(467)*C(35)
C     R468: H + NCN = N + HNC
      RF(468) = RF(468)*C(15)*C(44)
      RB(468) = RB(468)*C(40)
C     R469: O + NCN = NO + CN
      RF(469) = RF(469)*C(18)*C(44)
      RB(469) = RB(469)*C(33)
C     R470: OH + NCN = NH + NCO
      RF(470) = RF(470)*C(16)*C(44)
      RB(470) = RB(470)*C(43)
C     R471: OH + NCN = NO + HCN
      RF(471) = RF(471)*C(16)*C(44)
      RB(471) = RB(471)*C(33)*C(35)
C     R472: O2 + NCN = NO + NCO
      RF(472) = RF(472)*C(14)*C(44)
      RB(472) = RB(472)*C(33)*C(43)
C     R473: NO + NCN = N2O + CN
      RF(473) = RF(473)*C(33)*C(44)
      RB(473) = RB(473)*C(39)
C     R474: 2NCN = 2CN + N2
      RF(474) = RF(474)*C(44)*C(44)
      RB(474) = RB(474)*C(47)
C     R475: H2 + NCN = H + HNCN
      RF(475) = RF(475)*C(7)*C(44)
      RB(475) = RB(475)*C(15)*C(45)
C     R476: O + HNCN = NO + HNC
      RF(476) = RF(476)*C(18)*C(45)
      RB(476) = RB(476)*C(33)*C(40)
C     R477: O + HNCN = NH + NCO
      RF(477) = RF(477)*C(18)*C(45)
      RB(477) = RB(477)*C(43)
C     R478: O + HNCN = HNO + CN
      RF(478) = RF(478)*C(18)*C(45)
      RB(478) = RB(478)*C(38)
C     R479: OH + HNCN = H2O + NCN
      RF(479) = RF(479)*C(16)*C(45)
      RB(479) = RB(479)*C(19)*C(44)
C     R480: O2 + HNCN = HO2 + NCN
      RF(480) = RF(480)*C(14)*C(45)
      RB(480) = RB(480)*C(17)*C(44)
C     R481: CH3 + NH2 = H2 + CH2NH
      RF(481) = RF(481)*C(13)*C(37)
      RB(481) = RB(481)*C(7)*C(46)
C     R482: H + CH2NH = H2 + H2CN
      RF(482) = RF(482)*C(15)*C(46)
      RB(482) = RB(482)*C(7)
C     R483: O + CH2NH = OH + H2CN
      RF(483) = RF(483)*C(18)*C(46)
      RB(483) = RB(483)*C(16)
C     R484: O + CH2NH = CH2O + NH
      RF(484) = RF(484)*C(18)*C(46)
      RB(484) = RB(484)*C(21)
C     R485: OH + CH2NH = H2O + H2CN
      RF(485) = RF(485)*C(16)*C(46)
      RB(485) = RB(485)*C(19)
C     R486: CH3 + CH2NH = CH4 + H2CN
      RF(486) = RF(486)*C(13)*C(46)
      RB(486) = RB(486)*C(3)
C     R487: NH2 + CH2NH = NH3 + H2CN
      RF(487) = RF(487)*C(37)*C(46)
      RB(487) = RB(487)*C(36)
C     R488: H2CN = H + HCN
      RB(488) = RB(488)*C(15)*C(35)
C     R489: H + H2CN = H2 + HCN
      RF(489) = RF(489)*C(15)
      RB(489) = RB(489)*C(7)*C(35)
C     R490: O + H2CN = OH + HCN
      RF(490) = RF(490)*C(18)
      RB(490) = RB(490)*C(16)*C(35)
C     R491: OH + H2CN = H2O + HCN
      RF(491) = RF(491)*C(16)
      RB(491) = RB(491)*C(19)*C(35)
C     R492: OH + H2CN = H2O + HCN
      RF(492) = RF(492)*C(16)
      RB(492) = RB(492)*C(19)*C(35)
C     R493: O2 + H2CN = CH2O + NO
      RF(493) = RF(493)*C(14)
      RB(493) = RB(493)*C(21)*C(33)
C     R494: NH2 + H2CN = HCN + NH3
      RF(494) = RF(494)*C(37)
      RB(494) = RB(494)*C(35)*C(36)
C     R495: NH + H2CN = HCN + NH2
      RB(495) = RB(495)*C(35)*C(37)
C     R496: N + H2CN = CH2 + N2
      RB(496) = RB(496)*C(47)
C
      END
C                                                                      C
C----------------------------------------------------------------------C
C                                                                      C
      SUBROUTINE RDOT(RF, RB, WDOT)
      IMPLICIT DOUBLE PRECISION (A-H, O-Z), INTEGER (I-N)
      DIMENSION RF(*), RB(*), WDOT(*)
C
      DO K = 1, 47
         WDOT(K) = 0D0
      ENDDO
C
      ROP = RF(1)
      WDOT(1) = WDOT(1) -ROP
      WDOT(2) = WDOT(2) +3.09172*ROP
      WDOT(4) = WDOT(4) +0.803846*ROP
      WDOT(5) = WDOT(5) +0.154586*ROP
      WDOT(6) = WDOT(6) +0.309172*ROP
      WDOT(10) = WDOT(10) +0.116667*ROP
      WDOT(12) = WDOT(12) +0.05*ROP
      WDOT(13) = WDOT(13) +1.5*ROP
      WDOT(15) = WDOT(15) +0.5*ROP
      ROP = RF(2)
      WDOT(1) = WDOT(1) -ROP
      WDOT(2) = WDOT(2) +3.09911*ROP
      WDOT(3) = WDOT(3) +0.25*ROP
      WDOT(4) = WDOT(4) +0.805769*ROP
      WDOT(5) = WDOT(5) +0.154956*ROP
      WDOT(6) = WDOT(6) +0.309911*ROP
      WDOT(7) = WDOT(7) +ROP
      WDOT(10) = WDOT(10) +0.175*ROP
      WDOT(12) = WDOT(12) +0.075*ROP
      WDOT(13) = WDOT(13) +0.7*ROP
      WDOT(15) = WDOT(15) -0.7*ROP
      ROP = RF(3)
      WDOT(1) = WDOT(1) -ROP
      WDOT(2) = WDOT(2) +3.09911*ROP
      WDOT(3) = WDOT(3) +1.25*ROP
      WDOT(4) = WDOT(4) +0.805769*ROP
      WDOT(5) = WDOT(5) +0.154956*ROP
      WDOT(6) = WDOT(6) +0.309911*ROP
      WDOT(10) = WDOT(10) +0.175*ROP
      WDOT(12) = WDOT(12) +0.075*ROP
      WDOT(13) = WDOT(13) -0.3*ROP
      WDOT(15) = WDOT(15) +0.3*ROP
      ROP = RF(4)
      WDOT(1) = WDOT(1) -ROP
      WDOT(2) = WDOT(2) +3.09911*ROP
      WDOT(3) = WDOT(3) +0.25*ROP
      WDOT(4) = WDOT(4) +0.805769*ROP
      WDOT(5) = WDOT(5) +0.154956*ROP
      WDOT(6) = WDOT(6) +0.309911*ROP
      WDOT(10) = WDOT(10) +0.175*ROP
      WDOT(12) = WDOT(12) +0.075*ROP
      WDOT(13) = WDOT(13) +0.7*ROP
      WDOT(15) = WDOT(15) +0.3*ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(5)
      WDOT(1) = WDOT(1) -ROP
      WDOT(2) = WDOT(2) +3.09911*ROP
      WDOT(3) = WDOT(3) +0.25*ROP
      WDOT(4) = WDOT(4) +0.805769*ROP
      WDOT(5) = WDOT(5) +0.154956*ROP
      WDOT(6) = WDOT(6) +0.309911*ROP
      WDOT(10) = WDOT(10) +0.175*ROP
      WDOT(12) = WDOT(12) +0.075*ROP
      WDOT(13) = WDOT(13) +0.7*ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(15) = WDOT(15) +0.3*ROP
      WDOT(17) = WDOT(17) +ROP
      ROP = RF(6)
      WDOT(1) = WDOT(1) -ROP
      WDOT(2) = WDOT(2) +3.09911*ROP
      WDOT(3) = WDOT(3) +0.25*ROP
      WDOT(4) = WDOT(4) +0.805769*ROP
      WDOT(5) = WDOT(5) +0.154956*ROP
      WDOT(6) = WDOT(6) +0.309911*ROP
      WDOT(10) = WDOT(10) +0.175*ROP
      WDOT(12) = WDOT(12) +0.075*ROP
      WDOT(13) = WDOT(13) +0.7*ROP
      WDOT(15) = WDOT(15) +0.3*ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(20) = WDOT(20) +ROP
      ROP = RF(7)
      WDOT(1) = WDOT(1) -ROP
      WDOT(2) = WDOT(2) +3.09911*ROP
      WDOT(3) = WDOT(3) +0.25*ROP
      WDOT(4) = WDOT(4) +0.805769*ROP
      WDOT(5) = WDOT(5) +0.154956*ROP
      WDOT(6) = WDOT(6) +0.309911*ROP
      WDOT(10) = WDOT(10) +0.175*ROP
      WDOT(12) = WDOT(12) +0.075*ROP
      WDOT(13) = WDOT(13) +0.7*ROP
      WDOT(15) = WDOT(15) +0.3*ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(8)-RB(8)
      WDOT(14) = WDOT(14) -ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) +ROP
      ROP = RF(9)-RB(9)
      WDOT(7) = WDOT(7) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(10)-RB(10)
      WDOT(7) = WDOT(7) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(11)-RB(11)
      WDOT(16) = WDOT(16) -2*ROP
      WDOT(18) = WDOT(18) +ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(12)-RB(12)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -2*ROP
      ROP = RF(13)-RB(13)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -2*ROP
      ROP = RF(14)-RB(14)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -2*ROP
      ROP = RF(15)-RB(15)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -2*ROP
      ROP = RF(16)-RB(16)
      WDOT(15) = WDOT(15) -ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(17)-RB(17)
      WDOT(15) = WDOT(15) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(18)-RB(18)
      WDOT(14) = WDOT(14) +ROP
      WDOT(18) = WDOT(18) -2*ROP
      ROP = RF(19)-RB(19)
      WDOT(14) = WDOT(14) -ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(17) = WDOT(17) +ROP
      ROP = RF(20)-RB(20)
      WDOT(7) = WDOT(7) -ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(17) = WDOT(17) +ROP
      ROP = RF(21)-RB(21)
      WDOT(16) = WDOT(16) -2*ROP
      WDOT(20) = WDOT(20) +ROP
      ROP = RF(22)-RB(22)
      WDOT(15) = WDOT(15) -ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(18) = WDOT(18) +ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(23)-RB(23)
      WDOT(15) = WDOT(15) -ROP
      WDOT(16) = WDOT(16) +2*ROP
      WDOT(17) = WDOT(17) -ROP
      ROP = RF(24)-RB(24)
      WDOT(14) = WDOT(14) +ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(25)-RB(25)
      WDOT(14) = WDOT(14) +ROP
      WDOT(17) = WDOT(17) -2*ROP
      WDOT(20) = WDOT(20) +ROP
      ROP = RF(26)-RB(26)
      WDOT(14) = WDOT(14) +ROP
      WDOT(17) = WDOT(17) -2*ROP
      WDOT(20) = WDOT(20) +ROP
      ROP = RF(27)-RB(27)
      WDOT(14) = WDOT(14) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(28)-RB(28)
      WDOT(14) = WDOT(14) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(29)-RB(29)
      WDOT(14) = WDOT(14) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(30)-RB(30)
      WDOT(14) = WDOT(14) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(31)-RB(31)
      WDOT(14) = WDOT(14) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(32)-RB(32)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(20) = WDOT(20) -ROP
      ROP = RF(33)-RB(33)
      WDOT(15) = WDOT(15) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(20) = WDOT(20) -ROP
      ROP = RF(34)-RB(34)
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(20) = WDOT(20) -ROP
      ROP = RF(35)-RB(35)
      WDOT(16) = WDOT(16) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(20) = WDOT(20) -ROP
      ROP = RF(36)-RB(36)
      WDOT(16) = WDOT(16) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(20) = WDOT(20) -ROP
      ROP = RF(37)-RB(37)
      WDOT(9) = WDOT(9) -ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(23) = WDOT(23) +ROP
      ROP = RF(38)-RB(38)
      WDOT(9) = WDOT(9) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(23) = WDOT(23) +ROP
      ROP = RF(39)-RB(39)
      WDOT(9) = WDOT(9) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(23) = WDOT(23) +ROP
      ROP = RF(40)-RB(40)
      WDOT(9) = WDOT(9) -ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(18) = WDOT(18) +ROP
      WDOT(23) = WDOT(23) +ROP
      ROP = RF(41)-RB(41)
      WDOT(9) = WDOT(9) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(23) = WDOT(23) +ROP
      ROP = RF(42)-RB(42)
      WDOT(7) = WDOT(7) +ROP
      WDOT(9) = WDOT(9) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(43)-RB(43)
      WDOT(9) = WDOT(9) +ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(44)-RB(44)
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(23) = WDOT(23) +ROP
      ROP = RF(45)-RB(45)
      WDOT(9) = WDOT(9) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(46)-RB(46)
      WDOT(9) = WDOT(9) +ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(47)-RB(47)
      WDOT(9) = WDOT(9) +ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(48)-RB(48)
      WDOT(9) = WDOT(9) +ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(17) = WDOT(17) +ROP
      ROP = RF(49)-RB(49)
      WDOT(7) = WDOT(7) -ROP
      WDOT(9) = WDOT(9) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(50)-RB(50)
      WDOT(9) = WDOT(9) +ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      ROP = RF(51)-RB(51)
      WDOT(9) = WDOT(9) +ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(18) = WDOT(18) +ROP
      ROP = RF(52)-RB(52)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(53)-RB(53)
      WDOT(9) = WDOT(9) +ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(54)-RB(54)
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      ROP = RF(55)-RB(55)
      WDOT(7) = WDOT(7) -ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(56)-RB(56)
      WDOT(15) = WDOT(15) +ROP
      WDOT(19) = WDOT(19) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(57)-RB(57)
      WDOT(14) = WDOT(14) -ROP
      WDOT(18) = WDOT(18) +ROP
      ROP = RF(58)-RB(58)
      WDOT(9) = WDOT(9) -ROP
      ROP = RF(59)-RB(59)
      WDOT(9) = WDOT(9) +ROP
      WDOT(23) = WDOT(23) -ROP
      ROP = RF(60)-RB(60)
      WDOT(15) = WDOT(15) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(61)-RB(61)
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(62)-RB(62)
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(63)-RB(63)
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(64)-RB(64)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(65)-RB(65)
      WDOT(7) = WDOT(7) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(66)-RB(66)
      WDOT(14) = WDOT(14) -ROP
      WDOT(16) = WDOT(16) +ROP
      ROP = RF(67)-RB(67)
      WDOT(14) = WDOT(14) -ROP
      WDOT(15) = WDOT(15) +2*ROP
      WDOT(23) = WDOT(23) +ROP
      ROP = RF(68)-RB(68)
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(69)-RB(69)
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(70)-RB(70)
      WDOT(9) = WDOT(9) -ROP
      WDOT(24) = WDOT(24) +ROP
      ROP = RF(71)-RB(71)
      WDOT(11) = WDOT(11) +ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(72)-RB(72)
      WDOT(7) = WDOT(7) +ROP
      WDOT(11) = WDOT(11) +ROP
      ROP = RF(73)-RB(73)
      ROP = RF(74)-RB(74)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(75)-RB(75)
      WDOT(7) = WDOT(7) +ROP
      WDOT(9) = WDOT(9) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(76)-RB(76)
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(77)-RB(77)
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(78)-RB(78)
      WDOT(7) = WDOT(7) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(79)-RB(79)
      WDOT(9) = WDOT(9) +ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) +ROP
      ROP = RF(80)-RB(80)
      WDOT(9) = WDOT(9) +ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(81)-RB(81)
      WDOT(19) = WDOT(19) -ROP
      WDOT(22) = WDOT(22) +ROP
      ROP = RF(82)-RB(82)
      ROP = RF(83)-RB(83)
      ROP = RF(84)-RB(84)
      ROP = RF(85)-RB(85)
      WDOT(9) = WDOT(9) +ROP
      WDOT(21) = WDOT(21) +ROP
      WDOT(23) = WDOT(23) -ROP
      ROP = RF(86)-RB(86)
      WDOT(15) = WDOT(15) -ROP
      WDOT(21) = WDOT(21) -ROP
      ROP = RF(87)-RB(87)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(21) = WDOT(21) -ROP
      ROP = RF(88)-RB(88)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(21) = WDOT(21) -ROP
      ROP = RF(89)-RB(89)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(21) = WDOT(21) -ROP
      ROP = RF(90)-RB(90)
      WDOT(14) = WDOT(14) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(21) = WDOT(21) -ROP
      ROP = RF(91)-RB(91)
      WDOT(17) = WDOT(17) -ROP
      WDOT(20) = WDOT(20) +ROP
      WDOT(21) = WDOT(21) -ROP
      ROP = RF(92)-RB(92)
      WDOT(15) = WDOT(15) +ROP
      WDOT(21) = WDOT(21) -ROP
      WDOT(24) = WDOT(24) +ROP
      ROP = RF(93)-RB(93)
      WDOT(3) = WDOT(3) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(94)-RB(94)
      WDOT(13) = WDOT(13) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(95)-RB(95)
      WDOT(13) = WDOT(13) -ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(22) = WDOT(22) +ROP
      ROP = RF(96)-RB(96)
      WDOT(13) = WDOT(13) -ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(97)-RB(97)
      WDOT(13) = WDOT(13) -ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(98)-RB(98)
      WDOT(13) = WDOT(13) -ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(18) = WDOT(18) +ROP
      ROP = RF(99)-RB(99)
      WDOT(13) = WDOT(13) -ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(100)-RB(100)
      WDOT(3) = WDOT(3) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(14) = WDOT(14) +ROP
      WDOT(17) = WDOT(17) -ROP
      ROP = RF(101)-RB(101)
      WDOT(13) = WDOT(13) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) -ROP
      ROP = RF(102)-RB(102)
      WDOT(3) = WDOT(3) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(20) = WDOT(20) -ROP
      ROP = RF(103)-RB(103)
      WDOT(11) = WDOT(11) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(104)-RB(104)
      WDOT(13) = WDOT(13) -ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(105)-RB(105)
      WDOT(3) = WDOT(3) +ROP
      WDOT(9) = WDOT(9) +ROP
      WDOT(13) = WDOT(13) -ROP
      ROP = RF(106)-RB(106)
      WDOT(3) = WDOT(3) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(21) = WDOT(21) -ROP
      ROP = RF(107)-RB(107)
      WDOT(2) = WDOT(2) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(108)-RB(108)
      WDOT(2) = WDOT(2) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(109)-RB(109)
      WDOT(8) = WDOT(8) +ROP
      WDOT(13) = WDOT(13) -2*ROP
      ROP = RF(110)-RB(110)
      WDOT(13) = WDOT(13) -2*ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(111)-RB(111)
      WDOT(2) = WDOT(2) +ROP
      WDOT(9) = WDOT(9) +ROP
      WDOT(13) = WDOT(13) -ROP
      ROP = RF(112)-RB(112)
      WDOT(13) = WDOT(13) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(25) = WDOT(25) +ROP
      ROP = RF(113)-RB(113)
      WDOT(15) = WDOT(15) -ROP
      WDOT(22) = WDOT(22) +ROP
      ROP = RF(114)-RB(114)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(115)-RB(115)
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(16) = WDOT(16) +ROP
      ROP = RF(116)-RB(116)
      WDOT(15) = WDOT(15) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(117)-RB(117)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(118)-RB(118)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(119)-RB(119)
      WDOT(14) = WDOT(14) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(120)-RB(120)
      WDOT(3) = WDOT(3) -ROP
      WDOT(7) = WDOT(7) +ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(121)-RB(121)
      WDOT(3) = WDOT(3) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(122)-RB(122)
      WDOT(3) = WDOT(3) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(123)-RB(123)
      WDOT(2) = WDOT(2) +ROP
      WDOT(3) = WDOT(3) -ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(124)-RB(124)
      WDOT(3) = WDOT(3) -ROP
      WDOT(13) = WDOT(13) +2*ROP
      ROP = RF(125)-RB(125)
      WDOT(3) = WDOT(3) -ROP
      WDOT(13) = WDOT(13) +2*ROP
      ROP = RF(126)-RB(126)
      WDOT(3) = WDOT(3) -ROP
      WDOT(11) = WDOT(11) +ROP
      WDOT(13) = WDOT(13) +ROP
      ROP = RF(127)-RB(127)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(22) = WDOT(22) -ROP
      ROP = RF(128)-RB(128)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(22) = WDOT(22) -ROP
      ROP = RF(129)-RB(129)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(22) = WDOT(22) -ROP
      ROP = RF(130)-RB(130)
      WDOT(3) = WDOT(3) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(22) = WDOT(22) -ROP
      ROP = RF(131)-RB(131)
      WDOT(11) = WDOT(11) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(132)-RB(132)
      WDOT(9) = WDOT(9) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(133)-RB(133)
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      ROP = RF(134)-RB(134)
      WDOT(9) = WDOT(9) +ROP
      WDOT(14) = WDOT(14) -ROP
      ROP = RF(135)-RB(135)
      WDOT(7) = WDOT(7) -ROP
      WDOT(11) = WDOT(11) +ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(136)-RB(136)
      WDOT(9) = WDOT(9) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(137)-RB(137)
      WDOT(9) = WDOT(9) +2*ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(138)-RB(138)
      WDOT(9) = WDOT(9) +2*ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      ROP = RF(139)-RB(139)
      WDOT(9) = WDOT(9) +2*ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(18) = WDOT(18) +ROP
      ROP = RF(140)-RB(140)
      WDOT(9) = WDOT(9) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(141)-RB(141)
      WDOT(9) = WDOT(9) +2*ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(142)-RB(142)
      WDOT(9) = WDOT(9) +2*ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(16) = WDOT(16) +ROP
      ROP = RF(143)-RB(143)
      WDOT(9) = WDOT(9) +ROP
      WDOT(11) = WDOT(11) +ROP
      ROP = RF(144)-RB(144)
      WDOT(9) = WDOT(9) +ROP
      ROP = RF(145)-RB(145)
      WDOT(9) = WDOT(9) +2*ROP
      WDOT(11) = WDOT(11) +ROP
      ROP = RF(146)-RB(146)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(147)-RB(147)
      WDOT(11) = WDOT(11) +ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(148)-RB(148)
      WDOT(11) = WDOT(11) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(149)-RB(149)
      WDOT(9) = WDOT(9) +ROP
      WDOT(11) = WDOT(11) -ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(150)-RB(150)
      WDOT(11) = WDOT(11) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(151)-RB(151)
      WDOT(11) = WDOT(11) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(24) = WDOT(24) +ROP
      ROP = RF(152)-RB(152)
      WDOT(11) = WDOT(11) -ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(153)-RB(153)
      WDOT(9) = WDOT(9) +ROP
      WDOT(11) = WDOT(11) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(16) = WDOT(16) -ROP
      ROP = RF(154)-RB(154)
      WDOT(9) = WDOT(9) +ROP
      WDOT(11) = WDOT(11) -ROP
      ROP = RF(155)-RB(155)
      WDOT(11) = WDOT(11) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(25) = WDOT(25) +ROP
      ROP = RF(156)-RB(156)
      WDOT(11) = WDOT(11) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(25) = WDOT(25) +ROP
      ROP = RF(157)-RB(157)
      WDOT(9) = WDOT(9) +ROP
      WDOT(11) = WDOT(11) -ROP
      WDOT(25) = WDOT(25) +ROP
      ROP = RF(158)-RB(158)
      WDOT(11) = WDOT(11) -ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(26) = WDOT(26) +ROP
      ROP = RF(159)-RB(159)
      WDOT(15) = WDOT(15) -ROP
      WDOT(24) = WDOT(24) -ROP
      ROP = RF(160)-RB(160)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(24) = WDOT(24) -ROP
      ROP = RF(161)-RB(161)
      WDOT(9) = WDOT(9) +ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(24) = WDOT(24) -ROP
      ROP = RF(162)-RB(162)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(24) = WDOT(24) -ROP
      ROP = RF(163)-RB(163)
      WDOT(18) = WDOT(18) -ROP
      WDOT(23) = WDOT(23) +ROP
      WDOT(24) = WDOT(24) -ROP
      ROP = RF(164)-RB(164)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(24) = WDOT(24) -ROP
      ROP = RF(165)-RB(165)
      WDOT(2) = WDOT(2) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(166)-RB(166)
      WDOT(7) = WDOT(7) +ROP
      WDOT(11) = WDOT(11) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(167)-RB(167)
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(24) = WDOT(24) +ROP
      ROP = RF(168)-RB(168)
      WDOT(9) = WDOT(9) +ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(169)-RB(169)
      WDOT(11) = WDOT(11) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(170)-RB(170)
      WDOT(11) = WDOT(11) +ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(17) = WDOT(17) +ROP
      ROP = RF(171)-RB(171)
      WDOT(14) = WDOT(14) -ROP
      WDOT(18) = WDOT(18) +ROP
      ROP = RF(172)-RB(172)
      WDOT(14) = WDOT(14) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(173)-RB(173)
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) -ROP
      ROP = RF(174)-RB(174)
      WDOT(2) = WDOT(2) +ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(20) = WDOT(20) -ROP
      ROP = RF(175)-RB(175)
      WDOT(2) = WDOT(2) +ROP
      WDOT(9) = WDOT(9) +ROP
      ROP = RF(176)-RB(176)
      WDOT(27) = WDOT(27) +ROP
      ROP = RF(177)-RB(177)
      WDOT(3) = WDOT(3) +ROP
      WDOT(11) = WDOT(11) +ROP
      WDOT(13) = WDOT(13) -ROP
      ROP = RF(178)-RB(178)
      WDOT(4) = WDOT(4) +ROP
      WDOT(13) = WDOT(13) -ROP
      ROP = RF(179)-RB(179)
      WDOT(13) = WDOT(13) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(26) = WDOT(26) +ROP
      ROP = RF(180)-RB(180)
      WDOT(2) = WDOT(2) +ROP
      WDOT(11) = WDOT(11) +ROP
      ROP = RF(181)-RB(181)
      WDOT(9) = WDOT(9) +ROP
      WDOT(13) = WDOT(13) +ROP
      ROP = RF(182)-RB(182)
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(183)-RB(183)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(24) = WDOT(24) +ROP
      ROP = RF(184)-RB(184)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(24) = WDOT(24) +ROP
      ROP = RF(185)-RB(185)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(24) = WDOT(24) +ROP
      ROP = RF(186)-RB(186)
      WDOT(14) = WDOT(14) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(24) = WDOT(24) +ROP
      ROP = RF(187)-RB(187)
      WDOT(9) = WDOT(9) +ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(188)-RB(188)
      WDOT(2) = WDOT(2) -ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(189)-RB(189)
      WDOT(2) = WDOT(2) -ROP
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(190)-RB(190)
      WDOT(2) = WDOT(2) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(191)-RB(191)
      WDOT(2) = WDOT(2) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(192)-RB(192)
      WDOT(2) = WDOT(2) -ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(193)-RB(193)
      WDOT(2) = WDOT(2) -ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(194)-RB(194)
      WDOT(2) = WDOT(2) -ROP
      WDOT(9) = WDOT(9) +ROP
      ROP = RF(195)-RB(195)
      WDOT(2) = WDOT(2) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(26) = WDOT(26) +ROP
      ROP = RF(196)-RB(196)
      WDOT(2) = WDOT(2) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(26) = WDOT(26) +ROP
      ROP = RF(197)-RB(197)
      WDOT(2) = WDOT(2) -ROP
      WDOT(3) = WDOT(3) +ROP
      WDOT(13) = WDOT(13) -ROP
      ROP = RF(198)-RB(198)
      WDOT(2) = WDOT(2) -ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(17) = WDOT(17) +ROP
      ROP = RF(199)-RB(199)
      WDOT(8) = WDOT(8) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(200)-RB(200)
      WDOT(2) = WDOT(2) +ROP
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(201)-RB(201)
      WDOT(13) = WDOT(13) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(202)-RB(202)
      WDOT(2) = WDOT(2) +ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(17) = WDOT(17) +ROP
      ROP = RF(203)-RB(203)
      WDOT(8) = WDOT(8) +ROP
      WDOT(14) = WDOT(14) +ROP
      WDOT(17) = WDOT(17) -ROP
      ROP = RF(204)-RB(204)
      WDOT(2) = WDOT(2) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(20) = WDOT(20) +ROP
      ROP = RF(205)-RB(205)
      WDOT(13) = WDOT(13) +ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(206)-RB(206)
      WDOT(8) = WDOT(8) +ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(20) = WDOT(20) -ROP
      ROP = RF(207)-RB(207)
      WDOT(6) = WDOT(6) +ROP
      ROP = RF(208)-RB(208)
      WDOT(13) = WDOT(13) +ROP
      WDOT(26) = WDOT(26) +ROP
      ROP = RF(209)-RB(209)
      WDOT(7) = WDOT(7) +ROP
      WDOT(8) = WDOT(8) -ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(210)-RB(210)
      WDOT(8) = WDOT(8) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(211)-RB(211)
      WDOT(8) = WDOT(8) -ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(212)-RB(212)
      WDOT(8) = WDOT(8) -ROP
      WDOT(13) = WDOT(13) +ROP
      ROP = RF(213)-RB(213)
      WDOT(3) = WDOT(3) +ROP
      WDOT(8) = WDOT(8) -ROP
      WDOT(13) = WDOT(13) -ROP
      ROP = RF(214)-RB(214)
      WDOT(18) = WDOT(18) -ROP
      WDOT(21) = WDOT(21) +ROP
      WDOT(25) = WDOT(25) -ROP
      ROP = RF(215)-RB(215)
      WDOT(14) = WDOT(14) -ROP
      WDOT(24) = WDOT(24) +ROP
      WDOT(25) = WDOT(25) -ROP
      ROP = RF(216)-RB(216)
      WDOT(9) = WDOT(9) +ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(25) = WDOT(25) -ROP
      ROP = RF(217)-RB(217)
      WDOT(11) = WDOT(11) -ROP
      WDOT(25) = WDOT(25) -ROP
      WDOT(29) = WDOT(29) +ROP
      ROP = RF(218)
      WDOT(15) = WDOT(15) +ROP
      WDOT(25) = WDOT(25) -2*ROP
      ROP = RF(219)
      WDOT(10) = WDOT(10) +ROP
      WDOT(25) = WDOT(25) -2*ROP
      ROP = RF(220)-RB(220)
      WDOT(4) = WDOT(4) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(26) = WDOT(26) -ROP
      ROP = RF(221)-RB(221)
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(26) = WDOT(26) -ROP
      WDOT(27) = WDOT(27) +ROP
      ROP = RF(222)-RB(222)
      WDOT(15) = WDOT(15) +2*ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(26) = WDOT(26) -ROP
      WDOT(27) = WDOT(27) +ROP
      ROP = RF(223)-RB(223)
      WDOT(14) = WDOT(14) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(26) = WDOT(26) -ROP
      WDOT(27) = WDOT(27) +ROP
      ROP = RF(224)-RB(224)
      WDOT(4) = WDOT(4) +ROP
      WDOT(14) = WDOT(14) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(26) = WDOT(26) -ROP
      ROP = RF(225)-RB(225)
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(21) = WDOT(21) +ROP
      WDOT(26) = WDOT(26) -ROP
      ROP = RF(226)-RB(226)
      WDOT(4) = WDOT(4) +ROP
      WDOT(9) = WDOT(9) +ROP
      WDOT(26) = WDOT(26) -ROP
      ROP = RF(227)-RB(227)
      WDOT(6) = WDOT(6) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(26) = WDOT(26) -ROP
      ROP = RF(228)-RB(228)
      WDOT(2) = WDOT(2) +ROP
      WDOT(4) = WDOT(4) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(229)-RB(229)
      WDOT(4) = WDOT(4) -ROP
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(26) = WDOT(26) +ROP
      ROP = RF(230)-RB(230)
      WDOT(4) = WDOT(4) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(24) = WDOT(24) +ROP
      ROP = RF(231)-RB(231)
      WDOT(4) = WDOT(4) -ROP
      WDOT(15) = WDOT(15) +2*ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(27) = WDOT(27) +ROP
      ROP = RF(232)-RB(232)
      WDOT(4) = WDOT(4) -ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(233)-RB(233)
      WDOT(4) = WDOT(4) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(26) = WDOT(26) +ROP
      ROP = RF(234)-RB(234)
      WDOT(4) = WDOT(4) -ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(26) = WDOT(26) +ROP
      ROP = RF(235)-RB(235)
      WDOT(4) = WDOT(4) -ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(20) = WDOT(20) +ROP
      WDOT(26) = WDOT(26) +ROP
      ROP = RF(236)-RB(236)
      WDOT(3) = WDOT(3) +ROP
      WDOT(4) = WDOT(4) -ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(26) = WDOT(26) +ROP
      ROP = RF(237)-RB(237)
      WDOT(2) = WDOT(2) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(27) = WDOT(27) -ROP
      ROP = RF(238)-RB(238)
      WDOT(9) = WDOT(9) +ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(27) = WDOT(27) -ROP
      ROP = RF(239)-RB(239)
      WDOT(18) = WDOT(18) -ROP
      WDOT(21) = WDOT(21) +ROP
      WDOT(24) = WDOT(24) +ROP
      WDOT(27) = WDOT(27) -ROP
      ROP = RF(240)-RB(240)
      WDOT(9) = WDOT(9) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(27) = WDOT(27) -ROP
      ROP = RF(241)-RB(241)
      WDOT(2) = WDOT(2) +ROP
      WDOT(6) = WDOT(6) -ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(242)-RB(242)
      WDOT(4) = WDOT(4) +ROP
      WDOT(6) = WDOT(6) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(243)-RB(243)
      WDOT(4) = WDOT(4) +ROP
      WDOT(5) = WDOT(5) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(244)-RB(244)
      WDOT(5) = WDOT(5) -ROP
      WDOT(13) = WDOT(13) +2*ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(24) = WDOT(24) +ROP
      ROP = RF(245)-RB(245)
      WDOT(4) = WDOT(4) +ROP
      WDOT(5) = WDOT(5) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(21) = WDOT(21) +ROP
      ROP = RF(246)-RB(246)
      WDOT(12) = WDOT(12) +ROP
      WDOT(13) = WDOT(13) -ROP
      ROP = RF(247)-RB(247)
      WDOT(10) = WDOT(10) +ROP
      WDOT(12) = WDOT(12) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(248)-RB(248)
      WDOT(12) = WDOT(12) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(32) = WDOT(32) +ROP
      ROP = RF(249)-RB(249)
      WDOT(13) = WDOT(13) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(30) = WDOT(30) +ROP
      WDOT(32) = WDOT(32) -ROP
      ROP = RF(250)-RB(250)
      WDOT(13) = WDOT(13) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(31) = WDOT(31) +ROP
      WDOT(32) = WDOT(32) -ROP
      ROP = RF(251)-RB(251)
      WDOT(10) = WDOT(10) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(252)-RB(252)
      WDOT(10) = WDOT(10) -ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(253)-RB(253)
      WDOT(10) = WDOT(10) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(30) = WDOT(30) +ROP
      ROP = RF(254)-RB(254)
      WDOT(10) = WDOT(10) -ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(29) = WDOT(29) +ROP
      ROP = RF(255)-RB(255)
      WDOT(7) = WDOT(7) -ROP
      WDOT(10) = WDOT(10) +ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(256)-RB(256)
      WDOT(14) = WDOT(14) -ROP
      WDOT(18) = WDOT(18) +ROP
      WDOT(30) = WDOT(30) +ROP
      ROP = RF(257)-RB(257)
      WDOT(14) = WDOT(14) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(31) = WDOT(31) +ROP
      ROP = RF(258)-RB(258)
      WDOT(9) = WDOT(9) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(29) = WDOT(29) +ROP
      ROP = RF(259)-RB(259)
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(30) = WDOT(30) +ROP
      ROP = RF(260)-RB(260)
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(30) = WDOT(30) +ROP
      ROP = RF(261)-RB(261)
      WDOT(10) = WDOT(10) +ROP
      WDOT(14) = WDOT(14) +ROP
      WDOT(17) = WDOT(17) -ROP
      ROP = RF(262)-RB(262)
      WDOT(3) = WDOT(3) -ROP
      WDOT(10) = WDOT(10) +ROP
      WDOT(13) = WDOT(13) +ROP
      ROP = RF(263)-RB(263)
      WDOT(8) = WDOT(8) -ROP
      WDOT(10) = WDOT(10) +ROP
      ROP = RF(264)-RB(264)
      WDOT(10) = WDOT(10) +ROP
      WDOT(21) = WDOT(21) -ROP
      ROP = RF(265)-RB(265)
      WDOT(9) = WDOT(9) +ROP
      WDOT(28) = WDOT(28) +ROP
      WDOT(31) = WDOT(31) -ROP
      ROP = RF(266)-RB(266)
      WDOT(9) = WDOT(9) +2*ROP
      WDOT(11) = WDOT(11) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(24) = WDOT(24) +ROP
      WDOT(31) = WDOT(31) -ROP
      ROP = RF(267)-RB(267)
      WDOT(15) = WDOT(15) -ROP
      WDOT(29) = WDOT(29) +ROP
      WDOT(30) = WDOT(30) -ROP
      ROP = RF(268)-RB(268)
      WDOT(9) = WDOT(9) +ROP
      WDOT(29) = WDOT(29) +ROP
      WDOT(30) = WDOT(30) -ROP
      ROP = RF(269)-RB(269)
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(30) = WDOT(30) -ROP
      WDOT(31) = WDOT(31) +ROP
      ROP = RF(270)-RB(270)
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(28) = WDOT(28) +ROP
      WDOT(29) = WDOT(29) -ROP
      ROP = RF(271)-RB(271)
      WDOT(14) = WDOT(14) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(28) = WDOT(28) +ROP
      WDOT(29) = WDOT(29) -ROP
      ROP = RF(272)-RB(272)
      WDOT(9) = WDOT(9) +ROP
      WDOT(11) = WDOT(11) +2*ROP
      WDOT(28) = WDOT(28) -ROP
      ROP = RF(273)-RB(273)
      WDOT(9) = WDOT(9) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(25) = WDOT(25) +ROP
      WDOT(28) = WDOT(28) -ROP
      ROP = RF(274)-RB(274)
      WDOT(15) = WDOT(15) -ROP
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(275)-RB(275)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(36) = WDOT(36) -ROP
      WDOT(37) = WDOT(37) +ROP
      ROP = RF(276)-RB(276)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(36) = WDOT(36) -ROP
      WDOT(37) = WDOT(37) +ROP
      ROP = RF(277)-RB(277)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(36) = WDOT(36) -ROP
      WDOT(37) = WDOT(37) +ROP
      ROP = RF(278)-RB(278)
      WDOT(17) = WDOT(17) -ROP
      WDOT(20) = WDOT(20) +ROP
      WDOT(36) = WDOT(36) -ROP
      WDOT(37) = WDOT(37) +ROP
      ROP = RF(279)-RB(279)
      WDOT(7) = WDOT(7) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(37) = WDOT(37) +ROP
      ROP = RF(280)-RB(280)
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(37) = WDOT(37) -ROP
      WDOT(38) = WDOT(38) +ROP
      ROP = RF(281)-RB(281)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(282)-RB(282)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(283)-RB(283)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(284)-RB(284)
      WDOT(14) = WDOT(14) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(285)-RB(285)
      WDOT(17) = WDOT(17) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(37) = WDOT(37) -ROP
      WDOT(38) = WDOT(38) +ROP
      ROP = RF(286)-RB(286)
      WDOT(17) = WDOT(17) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(37) = WDOT(37) -ROP
      WDOT(38) = WDOT(38) +ROP
      ROP = RF(287)-RB(287)
      WDOT(14) = WDOT(14) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(37) = WDOT(37) -ROP
      WDOT(38) = WDOT(38) +ROP
      ROP = RF(288)-RB(288)
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -2*ROP
      ROP = RF(289)-RB(289)
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(290)-RB(290)
      WDOT(15) = WDOT(15) +2*ROP
      WDOT(37) = WDOT(37) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(291)-RB(291)
      WDOT(33) = WDOT(33) +ROP
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -ROP
      WDOT(38) = WDOT(38) -ROP
      ROP = RF(292)-RB(292)
      WDOT(19) = WDOT(19) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(37) = WDOT(37) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(293)-RB(293)
      WDOT(16) = WDOT(16) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(294)-RB(294)
      WDOT(19) = WDOT(19) +ROP
      WDOT(34) = WDOT(34) -ROP
      WDOT(37) = WDOT(37) -ROP
      WDOT(39) = WDOT(39) +ROP
      ROP = RF(295)-RB(295)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      ROP = RF(296)-RB(296)
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(33) = WDOT(33) +ROP
      ROP = RF(297)-RB(297)
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(38) = WDOT(38) +ROP
      ROP = RF(298)-RB(298)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      ROP = RF(299)-RB(299)
      WDOT(14) = WDOT(14) -ROP
      WDOT(18) = WDOT(18) +ROP
      WDOT(38) = WDOT(38) +ROP
      ROP = RF(300)-RB(300)
      WDOT(14) = WDOT(14) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(33) = WDOT(33) +ROP
      ROP = RF(301)-RB(301)
      WDOT(37) = WDOT(37) +ROP
      ROP = RF(302)-RB(302)
      WDOT(15) = WDOT(15) +ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(303)-RB(303)
      WDOT(15) = WDOT(15) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(39) = WDOT(39) +ROP
      ROP = RF(304)-RB(304)
      WDOT(16) = WDOT(16) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(305)-RB(305)
      WDOT(16) = WDOT(16) +ROP
      WDOT(34) = WDOT(34) -ROP
      WDOT(39) = WDOT(39) +ROP
      ROP = RF(306)-RB(306)
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      WDOT(38) = WDOT(38) +ROP
      ROP = RF(307)-RB(307)
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(33) = WDOT(33) +ROP
      ROP = RF(308)-RB(308)
      WDOT(14) = WDOT(14) -ROP
      WDOT(18) = WDOT(18) +ROP
      WDOT(33) = WDOT(33) +ROP
      ROP = RF(309)-RB(309)
      WDOT(18) = WDOT(18) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(310)-RB(310)
      WDOT(15) = WDOT(15) +ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(311)-RB(311)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(312)-RB(312)
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(39) = WDOT(39) +ROP
      ROP = RF(313)-RB(313)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(314)-RB(314)
      WDOT(18) = WDOT(18) -ROP
      WDOT(33) = WDOT(33) +ROP
      ROP = RF(315)-RB(315)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(316)-RB(316)
      WDOT(14) = WDOT(14) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(317)-RB(317)
      WDOT(37) = WDOT(37) +ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(318)-RB(318)
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(319)-RB(319)
      WDOT(33) = WDOT(33) -ROP
      WDOT(38) = WDOT(38) +ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(320)-RB(320)
      WDOT(15) = WDOT(15) -ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(38) = WDOT(38) +ROP
      ROP = RF(321)-RB(321)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(38) = WDOT(38) -ROP
      ROP = RF(322)-RB(322)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(38) = WDOT(38) -ROP
      ROP = RF(323)-RB(323)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(38) = WDOT(38) -ROP
      ROP = RF(324)-RB(324)
      WDOT(14) = WDOT(14) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(38) = WDOT(38) -ROP
      ROP = RF(325)-RB(325)
      WDOT(19) = WDOT(19) +ROP
      WDOT(38) = WDOT(38) -2*ROP
      WDOT(39) = WDOT(39) +ROP
      ROP = RF(326)-RB(326)
      WDOT(16) = WDOT(16) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(34) = WDOT(34) +ROP
      ROP = RF(327)-RB(327)
      WDOT(18) = WDOT(18) -ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(34) = WDOT(34) +ROP
      ROP = RF(328)-RB(328)
      WDOT(15) = WDOT(15) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      ROP = RF(329)-RB(329)
      WDOT(14) = WDOT(14) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      ROP = RF(330)-RB(330)
      WDOT(14) = WDOT(14) +ROP
      WDOT(33) = WDOT(33) +2*ROP
      WDOT(34) = WDOT(34) -2*ROP
      ROP = RF(331)-RB(331)
      WDOT(18) = WDOT(18) +ROP
      WDOT(39) = WDOT(39) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(332)-RB(332)
      WDOT(15) = WDOT(15) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(39) = WDOT(39) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(333)-RB(333)
      WDOT(18) = WDOT(18) -ROP
      WDOT(33) = WDOT(33) +2*ROP
      WDOT(39) = WDOT(39) -ROP
      ROP = RF(334)-RB(334)
      WDOT(14) = WDOT(14) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(39) = WDOT(39) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(335)-RB(335)
      WDOT(16) = WDOT(16) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(39) = WDOT(39) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(336)-RB(336)
      WDOT(16) = WDOT(16) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(38) = WDOT(38) +ROP
      WDOT(39) = WDOT(39) -ROP
      ROP = RF(337)-RB(337)
      WDOT(33) = WDOT(33) -ROP
      WDOT(34) = WDOT(34) +ROP
      WDOT(39) = WDOT(39) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(338)-RB(338)
      WDOT(15) = WDOT(15) +ROP
      WDOT(35) = WDOT(35) -ROP
      ROP = RF(339)-RB(339)
      WDOT(15) = WDOT(15) +ROP
      WDOT(35) = WDOT(35) -ROP
      ROP = RF(340)-RB(340)
      WDOT(35) = WDOT(35) -ROP
      WDOT(40) = WDOT(40) +ROP
      ROP = RF(341)-RB(341)
      WDOT(7) = WDOT(7) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(342)-RB(342)
      WDOT(15) = WDOT(15) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(35) = WDOT(35) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(343)-RB(343)
      WDOT(9) = WDOT(9) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(35) = WDOT(35) -ROP
      ROP = RF(344)-RB(344)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(35) = WDOT(35) -ROP
      ROP = RF(345)-RB(345)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(35) = WDOT(35) -ROP
      ROP = RF(346)-RB(346)
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(35) = WDOT(35) -ROP
      WDOT(41) = WDOT(41) +ROP
      ROP = RF(347)-RB(347)
      WDOT(9) = WDOT(9) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(35) = WDOT(35) -ROP
      WDOT(37) = WDOT(37) +ROP
      ROP = RF(348)-RB(348)
      WDOT(14) = WDOT(14) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(35) = WDOT(35) -ROP
      ROP = RF(349)-RB(349)
      WDOT(35) = WDOT(35) +ROP
      WDOT(40) = WDOT(40) -ROP
      ROP = RF(350)-RB(350)
      WDOT(9) = WDOT(9) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(40) = WDOT(40) -ROP
      ROP = RF(351)-RB(351)
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(40) = WDOT(40) -ROP
      WDOT(41) = WDOT(41) +ROP
      ROP = RF(352)-RB(352)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(40) = WDOT(40) -ROP
      ROP = RF(353)-RB(353)
      WDOT(9) = WDOT(9) +ROP
      WDOT(18) = WDOT(18) -ROP
      ROP = RF(354)-RB(354)
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(355)-RB(355)
      WDOT(14) = WDOT(14) -ROP
      WDOT(18) = WDOT(18) +ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(356)-RB(356)
      WDOT(9) = WDOT(9) +ROP
      WDOT(14) = WDOT(14) -ROP
      WDOT(33) = WDOT(33) +ROP
      ROP = RF(357)-RB(357)
      WDOT(33) = WDOT(33) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(358)-RB(358)
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(359)-RB(359)
      WDOT(9) = WDOT(9) +ROP
      WDOT(34) = WDOT(34) -ROP
      WDOT(39) = WDOT(39) +ROP
      ROP = RF(360)-RB(360)
      WDOT(23) = WDOT(23) +ROP
      WDOT(34) = WDOT(34) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(361)-RB(361)
      WDOT(33) = WDOT(33) +ROP
      WDOT(35) = WDOT(35) +ROP
      WDOT(38) = WDOT(38) -ROP
      ROP = RF(362)-RB(362)
      WDOT(35) = WDOT(35) +ROP
      WDOT(41) = WDOT(41) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(363)-RB(363)
      WDOT(9) = WDOT(9) +ROP
      WDOT(41) = WDOT(41) -ROP
      WDOT(45) = WDOT(45) +ROP
      ROP = RF(364)-RB(364)
      WDOT(9) = WDOT(9) +ROP
      WDOT(43) = WDOT(43) -ROP
      WDOT(44) = WDOT(44) +ROP
      ROP = RF(365)-RB(365)
      WDOT(9) = WDOT(9) +ROP
      WDOT(41) = WDOT(41) -ROP
      ROP = RF(366)-RB(366)
      WDOT(9) = WDOT(9) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(37) = WDOT(37) +ROP
      WDOT(41) = WDOT(41) -ROP
      ROP = RF(367)-RB(367)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(41) = WDOT(41) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(368)-RB(368)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(41) = WDOT(41) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(369)-RB(369)
      WDOT(18) = WDOT(18) -ROP
      WDOT(23) = WDOT(23) +ROP
      WDOT(41) = WDOT(41) -ROP
      ROP = RF(370)-RB(370)
      WDOT(9) = WDOT(9) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(38) = WDOT(38) +ROP
      WDOT(41) = WDOT(41) -ROP
      ROP = RF(371)-RB(371)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(41) = WDOT(41) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(372)-RB(372)
      WDOT(17) = WDOT(17) -ROP
      WDOT(20) = WDOT(20) +ROP
      WDOT(41) = WDOT(41) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(373)-RB(373)
      WDOT(14) = WDOT(14) -ROP
      WDOT(23) = WDOT(23) +ROP
      WDOT(38) = WDOT(38) +ROP
      WDOT(41) = WDOT(41) -ROP
      ROP = RF(374)-RB(374)
      WDOT(19) = WDOT(19) -ROP
      WDOT(23) = WDOT(23) +ROP
      WDOT(36) = WDOT(36) +ROP
      WDOT(41) = WDOT(41) -ROP
      ROP = RF(375)-RB(375)
      WDOT(37) = WDOT(37) +ROP
      WDOT(41) = WDOT(41) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(376)-RB(376)
      WDOT(18) = WDOT(18) +ROP
      WDOT(35) = WDOT(35) +ROP
      WDOT(42) = WDOT(42) -ROP
      ROP = RF(377)-RB(377)
      WDOT(15) = WDOT(15) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(35) = WDOT(35) +ROP
      WDOT(42) = WDOT(42) -ROP
      ROP = RF(378)-RB(378)
      WDOT(18) = WDOT(18) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(42) = WDOT(42) -ROP
      ROP = RF(379)-RB(379)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(42) = WDOT(42) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(380)-RB(380)
      WDOT(16) = WDOT(16) -ROP
      WDOT(38) = WDOT(38) +ROP
      WDOT(42) = WDOT(42) -ROP
      ROP = RF(381)-RB(381)
      WDOT(35) = WDOT(35) +ROP
      WDOT(42) = WDOT(42) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(382)-RB(382)
      WDOT(9) = WDOT(9) +ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(35) = WDOT(35) +ROP
      WDOT(42) = WDOT(42) -ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(383)-RB(383)
      WDOT(9) = WDOT(9) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(384)-RB(384)
      WDOT(9) = WDOT(9) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(385)-RB(385)
      WDOT(9) = WDOT(9) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(386)-RB(386)
      WDOT(9) = WDOT(9) +ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(16) = WDOT(16) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(387)-RB(387)
      WDOT(14) = WDOT(14) +ROP
      WDOT(17) = WDOT(17) -ROP
      WDOT(41) = WDOT(41) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(388)-RB(388)
      WDOT(14) = WDOT(14) -ROP
      WDOT(23) = WDOT(23) +ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(389)-RB(389)
      WDOT(9) = WDOT(9) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(39) = WDOT(39) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(390)-RB(390)
      WDOT(23) = WDOT(23) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(43) = WDOT(43) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(391)-RB(391)
      WDOT(9) = WDOT(9) +ROP
      WDOT(33) = WDOT(33) +2*ROP
      WDOT(34) = WDOT(34) -ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(392)-RB(392)
      WDOT(23) = WDOT(23) +ROP
      WDOT(34) = WDOT(34) -ROP
      WDOT(39) = WDOT(39) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(393)-RB(393)
      WDOT(33) = WDOT(33) +ROP
      WDOT(38) = WDOT(38) -ROP
      WDOT(41) = WDOT(41) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(394)-RB(394)
      WDOT(36) = WDOT(36) -ROP
      WDOT(37) = WDOT(37) +ROP
      WDOT(41) = WDOT(41) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(395)-RB(395)
      WDOT(9) = WDOT(9) +ROP
      WDOT(43) = WDOT(43) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(396)-RB(396)
      WDOT(9) = WDOT(9) +2*ROP
      WDOT(43) = WDOT(43) -2*ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(397)-RB(397)
      WDOT(9) = WDOT(9) -ROP
      WDOT(23) = WDOT(23) +ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      ROP = RF(398)-RB(398)
      WDOT(9) = WDOT(9) -ROP
      WDOT(23) = WDOT(23) +ROP
      WDOT(39) = WDOT(39) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(399)-RB(399)
      WDOT(9) = WDOT(9) +ROP
      WDOT(23) = WDOT(23) -ROP
      WDOT(33) = WDOT(33) +ROP
      ROP = RF(400)-RB(400)
      WDOT(9) = WDOT(9) +ROP
      WDOT(23) = WDOT(23) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(401)-RB(401)
      WDOT(21) = WDOT(21) -ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(402)-RB(402)
      WDOT(21) = WDOT(21) -ROP
      WDOT(41) = WDOT(41) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(403)-RB(403)
      WDOT(9) = WDOT(9) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(38) = WDOT(38) +ROP
      ROP = RF(404)-RB(404)
      WDOT(21) = WDOT(21) +ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(38) = WDOT(38) -ROP
      ROP = RF(405)-RB(405)
      WDOT(15) = WDOT(15) +ROP
      WDOT(23) = WDOT(23) +ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      ROP = RF(406)-RB(406)
      WDOT(9) = WDOT(9) +ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      ROP = RF(407)-RB(407)
      WDOT(9) = WDOT(9) +ROP
      WDOT(41) = WDOT(41) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(408)-RB(408)
      WDOT(3) = WDOT(3) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(409)-RB(409)
      WDOT(3) = WDOT(3) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(410)-RB(410)
      WDOT(3) = WDOT(3) -ROP
      WDOT(13) = WDOT(13) +ROP
      WDOT(41) = WDOT(41) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(411)-RB(411)
      WDOT(3) = WDOT(3) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(412)-RB(412)
      WDOT(13) = WDOT(13) -ROP
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(413)-RB(413)
      WDOT(13) = WDOT(13) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(46) = WDOT(46) +ROP
      ROP = RF(414)-RB(414)
      WDOT(3) = WDOT(3) +ROP
      WDOT(13) = WDOT(13) -ROP
      ROP = RF(415)-RB(415)
      WDOT(13) = WDOT(13) -ROP
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(416)-RB(416)
      WDOT(3) = WDOT(3) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(38) = WDOT(38) -ROP
      ROP = RF(417)-RB(417)
      WDOT(13) = WDOT(13) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(418)-RB(418)
      WDOT(13) = WDOT(13) -ROP
      WDOT(16) = WDOT(16) +ROP
      WDOT(33) = WDOT(33) -ROP
      ROP = RF(419)-RB(419)
      WDOT(13) = WDOT(13) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      ROP = RF(420)-RB(420)
      WDOT(35) = WDOT(35) +ROP
      WDOT(47) = WDOT(47) -ROP
      ROP = RF(421)-RB(421)
      WDOT(15) = WDOT(15) +ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(422)-RB(422)
      WDOT(15) = WDOT(15) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(42) = WDOT(42) +ROP
      ROP = RF(423)-RB(423)
      WDOT(16) = WDOT(16) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(424)-RB(424)
      WDOT(21) = WDOT(21) +ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      ROP = RF(425)-RB(425)
      WDOT(16) = WDOT(16) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(426)-RB(426)
      ROP = RF(427)-RB(427)
      WDOT(21) = WDOT(21) +ROP
      WDOT(39) = WDOT(39) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(428)-RB(428)
      WDOT(15) = WDOT(15) +ROP
      WDOT(44) = WDOT(44) +ROP
      WDOT(47) = WDOT(47) -ROP
      ROP = RF(429)-RB(429)
      WDOT(45) = WDOT(45) +ROP
      WDOT(47) = WDOT(47) -ROP
      ROP = RF(430)-RB(430)
      WDOT(15) = WDOT(15) +2*ROP
      WDOT(36) = WDOT(36) -ROP
      ROP = RF(431)-RB(431)
      WDOT(15) = WDOT(15) +ROP
      ROP = RF(432)-RB(432)
      WDOT(9) = WDOT(9) +ROP
      WDOT(33) = WDOT(33) -ROP
      ROP = RF(433)-RB(433)
      WDOT(15) = WDOT(15) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(434)-RB(434)
      WDOT(18) = WDOT(18) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(435)-RB(435)
      WDOT(16) = WDOT(16) +ROP
      WDOT(33) = WDOT(33) -ROP
      ROP = RF(436)-RB(436)
      WDOT(33) = WDOT(33) -ROP
      ROP = RF(437)-RB(437)
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      ROP = RF(438)-RB(438)
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(439)-RB(439)
      WDOT(33) = WDOT(33) +ROP
      WDOT(35) = WDOT(35) +ROP
      WDOT(39) = WDOT(39) -ROP
      ROP = RF(440)-RB(440)
      WDOT(18) = WDOT(18) +ROP
      WDOT(33) = WDOT(33) -ROP
      ROP = RF(441)-RB(441)
      WDOT(9) = WDOT(9) +ROP
      WDOT(33) = WDOT(33) -ROP
      ROP = RF(442)-RB(442)
      WDOT(33) = WDOT(33) +ROP
      WDOT(39) = WDOT(39) -ROP
      ROP = RF(443)-RB(443)
      WDOT(22) = WDOT(22) +ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(38) = WDOT(38) -ROP
      ROP = RF(444)-RB(444)
      WDOT(21) = WDOT(21) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(38) = WDOT(38) +ROP
      ROP = RF(445)-RB(445)
      WDOT(21) = WDOT(21) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(38) = WDOT(38) +ROP
      ROP = RF(446)-RB(446)
      WDOT(8) = WDOT(8) -ROP
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(447)-RB(447)
      WDOT(8) = WDOT(8) -ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(448)-RB(448)
      WDOT(8) = WDOT(8) -ROP
      WDOT(41) = WDOT(41) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(449)-RB(449)
      WDOT(2) = WDOT(2) +ROP
      ROP = RF(450)-RB(450)
      WDOT(13) = WDOT(13) +ROP
      ROP = RF(451)-RB(451)
      WDOT(2) = WDOT(2) -ROP
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(452)-RB(452)
      WDOT(21) = WDOT(21) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(453)-RB(453)
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      ROP = RF(454)-RB(454)
      WDOT(11) = WDOT(11) -ROP
      WDOT(35) = WDOT(35) +ROP
      WDOT(43) = WDOT(43) -ROP
      ROP = RF(455)-RB(455)
      WDOT(11) = WDOT(11) +ROP
      WDOT(36) = WDOT(36) -ROP
      WDOT(37) = WDOT(37) +ROP
      ROP = RF(456)-RB(456)
      WDOT(9) = WDOT(9) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(457)-RB(457)
      WDOT(33) = WDOT(33) -ROP
      ROP = RF(458)-RB(458)
      WDOT(33) = WDOT(33) +ROP
      WDOT(34) = WDOT(34) -ROP
      ROP = RF(459)-RB(459)
      WDOT(9) = WDOT(9) +ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(460)-RB(460)
      WDOT(9) = WDOT(9) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(42) = WDOT(42) +ROP
      ROP = RF(461)-RB(461)
      WDOT(23) = WDOT(23) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(462)-RB(462)
      WDOT(23) = WDOT(23) +ROP
      WDOT(34) = WDOT(34) -ROP
      WDOT(42) = WDOT(42) +ROP
      ROP = RF(463)-RB(463)
      WDOT(9) = WDOT(9) +ROP
      WDOT(33) = WDOT(33) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(464)-RB(464)
      WDOT(23) = WDOT(23) +ROP
      WDOT(34) = WDOT(34) -ROP
      WDOT(43) = WDOT(43) +ROP
      ROP = RF(465)-RB(465)
      WDOT(44) = WDOT(44) -ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(466)-RB(466)
      WDOT(15) = WDOT(15) -ROP
      WDOT(44) = WDOT(44) -ROP
      WDOT(45) = WDOT(45) +ROP
      ROP = RF(467)-RB(467)
      WDOT(15) = WDOT(15) -ROP
      WDOT(35) = WDOT(35) +ROP
      WDOT(44) = WDOT(44) -ROP
      ROP = RF(468)-RB(468)
      WDOT(15) = WDOT(15) -ROP
      WDOT(40) = WDOT(40) +ROP
      WDOT(44) = WDOT(44) -ROP
      ROP = RF(469)-RB(469)
      WDOT(18) = WDOT(18) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(44) = WDOT(44) -ROP
      ROP = RF(470)-RB(470)
      WDOT(16) = WDOT(16) -ROP
      WDOT(43) = WDOT(43) +ROP
      WDOT(44) = WDOT(44) -ROP
      ROP = RF(471)-RB(471)
      WDOT(16) = WDOT(16) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(35) = WDOT(35) +ROP
      WDOT(44) = WDOT(44) -ROP
      ROP = RF(472)-RB(472)
      WDOT(14) = WDOT(14) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(43) = WDOT(43) +ROP
      WDOT(44) = WDOT(44) -ROP
      ROP = RF(473)-RB(473)
      WDOT(33) = WDOT(33) -ROP
      WDOT(39) = WDOT(39) +ROP
      WDOT(44) = WDOT(44) -ROP
      ROP = RF(474)-RB(474)
      WDOT(44) = WDOT(44) -2*ROP
      WDOT(47) = WDOT(47) +ROP
      ROP = RF(475)-RB(475)
      WDOT(7) = WDOT(7) -ROP
      WDOT(15) = WDOT(15) +ROP
      WDOT(44) = WDOT(44) -ROP
      WDOT(45) = WDOT(45) +ROP
      ROP = RF(476)-RB(476)
      WDOT(18) = WDOT(18) -ROP
      WDOT(33) = WDOT(33) +ROP
      WDOT(40) = WDOT(40) +ROP
      WDOT(45) = WDOT(45) -ROP
      ROP = RF(477)-RB(477)
      WDOT(18) = WDOT(18) -ROP
      WDOT(43) = WDOT(43) +ROP
      WDOT(45) = WDOT(45) -ROP
      ROP = RF(478)-RB(478)
      WDOT(18) = WDOT(18) -ROP
      WDOT(38) = WDOT(38) +ROP
      WDOT(45) = WDOT(45) -ROP
      ROP = RF(479)-RB(479)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(44) = WDOT(44) +ROP
      WDOT(45) = WDOT(45) -ROP
      ROP = RF(480)-RB(480)
      WDOT(14) = WDOT(14) -ROP
      WDOT(17) = WDOT(17) +ROP
      WDOT(44) = WDOT(44) +ROP
      WDOT(45) = WDOT(45) -ROP
      ROP = RF(481)-RB(481)
      WDOT(7) = WDOT(7) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(37) = WDOT(37) -ROP
      WDOT(46) = WDOT(46) +ROP
      ROP = RF(482)-RB(482)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(46) = WDOT(46) -ROP
      ROP = RF(483)-RB(483)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(46) = WDOT(46) -ROP
      ROP = RF(484)-RB(484)
      WDOT(18) = WDOT(18) -ROP
      WDOT(21) = WDOT(21) +ROP
      WDOT(46) = WDOT(46) -ROP
      ROP = RF(485)-RB(485)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(46) = WDOT(46) -ROP
      ROP = RF(486)-RB(486)
      WDOT(3) = WDOT(3) +ROP
      WDOT(13) = WDOT(13) -ROP
      WDOT(46) = WDOT(46) -ROP
      ROP = RF(487)-RB(487)
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -ROP
      WDOT(46) = WDOT(46) -ROP
      ROP = RF(488)-RB(488)
      WDOT(15) = WDOT(15) +ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(489)-RB(489)
      WDOT(7) = WDOT(7) +ROP
      WDOT(15) = WDOT(15) -ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(490)-RB(490)
      WDOT(16) = WDOT(16) +ROP
      WDOT(18) = WDOT(18) -ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(491)-RB(491)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(492)-RB(492)
      WDOT(16) = WDOT(16) -ROP
      WDOT(19) = WDOT(19) +ROP
      WDOT(35) = WDOT(35) +ROP
      ROP = RF(493)-RB(493)
      WDOT(14) = WDOT(14) -ROP
      WDOT(21) = WDOT(21) +ROP
      WDOT(33) = WDOT(33) +ROP
      ROP = RF(494)-RB(494)
      WDOT(35) = WDOT(35) +ROP
      WDOT(36) = WDOT(36) +ROP
      WDOT(37) = WDOT(37) -ROP
      ROP = RF(495)-RB(495)
      WDOT(35) = WDOT(35) +ROP
      WDOT(37) = WDOT(37) +ROP
      ROP = RF(496)-RB(496)
      WDOT(47) = WDOT(47) +ROP
C
      END
C                                                                      C
C----------------------------------------------------------------------C
C                                                                      C
      SUBROUTINE QSSA(RF, RB, XQ)
      IMPLICIT DOUBLE PRECISION (A-H, O-Z), INTEGER (I-N)
      DIMENSION RF(*), RB(*), XQ(*)
C
      RF(69) = 0.D0
      RF(71) = 0.D0
      RF(72) = 0.D0
      RF(143) = 0.D0
      RF(144) = 0.D0
      RF(145) = 0.D0
      RF(175) = 0.D0
      RF(176) = 0.D0
      RF(180) = 0.D0
      RF(207) = 0.D0
      RF(208) = 0.D0
      RB(232) = 0.D0
      RF(301) = 0.D0
      RF(302) = 0.D0
      RF(317) = 0.D0
      RF(421) = 0.D0
      RF(431) = 0.D0
      RB(436) = 0.D0
      RF(438) = 0.D0
      RF(449) = 0.D0
      RF(450) = 0.D0
      RB(457) = 0.D0
      RF(459) = 0.D0
      RB(474) = 0.D0
      RF(495) = 0.D0
      RF(496) = 0.D0
C
C     C
      DEN = +RF( 50) +RF( 51) +RF(103) +RF(440) +RF(441) 
     *  +RF(442) +RB( 52) +RB(438) +RB(465) 
      A1_0 = ( +RB( 50) +RB( 51) +RB(103) +RF(465) )/DEN
      A1_2 = ( +RF( 52) )/DEN
      A1_8 = ( +RB( 69) )/DEN
      A1_15 = ( +RB(441) )/DEN
      A1_17 = ( +RB(440) +RB(442) )/DEN
C     CH
      DEN = +RF( 52) +RF( 53) +RF( 54) +RF( 55) +RF( 56) 
     *  +RF( 57) +RF( 58) +RF( 59) +RF( 92) +RF(104) +RF(123) 
     *  +RF(428) +RF(429) +RF(430) +RF(432) +RF(433) +RF(434) 
     *  +RF(435) +RF(436) +RF(437) +RF(439) +RB( 64) +RB( 74) 
     *  +RB(132) +RB(136) 
      A2_0 = ( +RB( 53) +RB( 56) +RB( 71) +RB( 92) +RB(123) 
     *  +RB(143) +RB(428) +RB(429) +RB(433) +RB(434) +RB(439) )/DEN
      A2_1 = ( +RB( 52) )/DEN
      A2_3 = ( +RB( 55) +RF( 64) )/DEN
      A2_4 = ( +RF( 74) )/DEN
      A2_5 = ( +RB( 54) +RB( 57) +RB( 59) +RB(437) )/DEN
      A2_7 = ( +RF(136) )/DEN
      A2_8 = ( +RF(132) )/DEN
      A2_9 = ( +RB(104) )/DEN
      A2_11 = ( +RB( 58) )/DEN
      A2_14 = ( +RB(432) )/DEN
      A2_17 = ( +RB(431) +RB(435) )/DEN
      A2_18 = ( +RB(430) )/DEN
C     CH2
      DEN = +RF( 61) +RF( 62) +RF( 63) +RF( 64) +RF( 65) 
     *  +RF( 66) +RF( 67) +RF( 68) +RF( 70) +RF(107) +RF(124) 
     *  +RF(155) +RF(195) +RF(420) +RF(422) +RF(423) +RF(424) 
     *  +RB( 55) +RB( 73) +RB( 82) +RB( 83) +RB( 84) +RB( 96) 
     *  +RB(149) +RB(163) +RB(192) +RB(412) +RB(426) +RB(496) 
      A3_0 = ( +RB( 61) +RB( 63) +RB( 65) +RB( 67) +RB( 68) 
     *  +RB( 70) +RB( 71) +2*RB( 72) +RF( 96) +RB(107) +RB(124) 
     *  +RF(149) +RB(155) +RF(163) +RF(192) +RB(195) +RF(412) 
     *  +RB(421) +RB(422) +RB(423) +RB(424) )/DEN
      A3_2 = ( +RF( 55) +RB( 64) )/DEN
      A3_4 = ( +RF( 73) +RF( 82) +RF( 83) +RF( 84) +RF(426) )/DEN
      A3_5 = ( +RB( 62) +RB( 66) )/DEN
      A3_8 = ( +RB( 69) )/DEN
      A3_9 = ( +RB(144) )/DEN
      A3_14 = ( +RB(420) )/DEN
C     CH2*
      DEN = +RF( 73) +RF( 74) +RF( 75) +RF( 76) +RF( 77) 
     *  +RF( 78) +RF( 79) +RF( 80) +RF( 81) +RF( 82) +RF( 83) 
     *  +RF( 84) +RF( 85) +RF(108) +RF(125) +RF(156) +RF(196) 
     *  +RF(212) +RF(425) +RF(426) +RF(427) +RB( 97) +RB(116) 
     *  +RB(140) 
      A4_0 = ( +RB( 75) +RB( 77) +RB( 78) +RB( 79) +RB( 80) 
     *  +RB( 81) +RB( 85) +RF( 97) +RB(108) +RB(125) +RB(156) 
     *  +RB(196) +RB(425) +RB(427) )/DEN
      A4_2 = ( +RB( 74) )/DEN
      A4_3 = ( +RB( 73) +RB( 82) +RB( 83) +RB( 84) +RB(426) )/DEN
      A4_5 = ( +RB( 76) )/DEN
      A4_6 = ( +RF(116) )/DEN
      A4_10 = ( +RB(212) )/DEN
      A4_11 = ( +RF(140) )/DEN
C     HCO
      DEN = +RF( 42) +RF( 43) +RF( 44) +RF( 45) +RF( 46) 
     *  +RF( 47) +RF( 48) +RF( 60) +RF(105) +RF(154) +RF(194) 
     *  +RF(226) +RF(403) +RF(404) +RF(405) +RF(406) +RF(407) 
     *  +RB( 54) +RB( 57) +RB( 59) +RB( 62) +RB( 66) +RB( 76) 
     *  +RB( 87) +RB( 88) +RB( 89) +RB( 90) +RB( 91) +RB(106) 
     *  +RB(134) +RB(172) +RB(182) +RB(191) +RB(215) +RB(237) 
     *  +RB(254) +RB(264) +RB(267) +RB(273) +RB(378) +RB(380) 
     *  +RB(401) +RB(402) +RB(437) 
      A5_0 = ( +RB( 42) +RB( 43) +RB( 44) +RB( 45) +RB( 46) 
     *  +RB( 47) +RB( 48) +RB( 60) +RF( 87) +RF( 88) +RF( 89) 
     *  +RF( 90) +RF( 91) +RB(105) +RF(106) +RB(175) +RB(176) 
     *  +RF(191) +RF(215) +RB(226) +RF(232) +RF(237) +RF(254) 
     *  +RF(267) +RF(273) +RF(378) +RF(380) +RF(402) +RB(403) 
     *  +RB(404) +RB(405) +RB(406) +RB(407) )/DEN
      A5_2 = ( +RF( 54) +RF( 57) +RF( 59) +RF(436) +RF(437) )/DEN
      A5_3 = ( +RF( 62) +RF( 66) )/DEN
      A5_4 = ( +RF( 76) )/DEN
      A5_8 = ( +RF(134) +RF(457) )/DEN
      A5_9 = ( +RB(154) +RF(172) )/DEN
      A5_10 = ( +RB(194) )/DEN
      A5_12 = ( +RF(182) )/DEN
      A5_13 = ( +RF(264) )/DEN
      A5_17 = ( +RF(401) )/DEN
C     CH3O
      DEN = +RF(113) +RF(114) +RF(115) +RF(116) +RF(117) 
     *  +RF(118) +RF(119) +RF(443) +RF(444) +RF(445) +RB( 86) 
     *  +RB( 98) +RB(101) +RB(127) +RB(128) +RB(129) +RB(130) 
     *  +RB(419) 
      A6_0 = ( +RF( 86) +RF( 98) +RF(101) +RB(113) +RB(114) 
     *  +RB(115) +RB(117) +RB(118) +RB(119) +RF(127) +RF(128) 
     *  +RF(129) +RF(130) +RF(419) +RB(443) +RB(444) +RB(445) )/DEN
      A6_4 = ( +RB(116) )/DEN
C     C2O
      DEN = +RF(136) +RF(137) +RF(138) +RF(139) +RF(463) 
     *  +RF(464) +RB(146) 
      A7_0 = ( +RB(137) +RB(138) +RB(139) +RB(463) +RB(464) )/DEN
      A7_2 = ( +RB(136) )/DEN
      A7_11 = ( +RF(146) )/DEN
C     C2H
      DEN = +RF(112) +RF(126) +RF(131) +RF(132) +RF(133) 
     *  +RF(134) +RF(135) +RF(455) +RF(456) +RF(457) +RF(458) 
     *  +RB( 69) +RB(148) +RB(152) +RB(214) 
      A8_0 = ( +RB(112) +RB(126) +RB(131) +RB(135) +RF(148) 
     *  +RF(152) +RF(214) +RB(455) +RB(456) )/DEN
      A8_2 = ( +RB(132) )/DEN
      A8_5 = ( +RB(134) )/DEN
      A8_11 = ( +RB(133) +RB(458) )/DEN
C     C2H3
      DEN = +RF(147) +RF(165) +RF(166) +RF(167) +RF(168) 
     *  +RF(169) +RF(170) +RF(171) +RF(172) +RF(173) +RF(174) 
     *  +RF(177) +RF(178) +RF(179) +RF(452) +RF(453) +RB(104) 
     *  +RB(144) +RB(154) +RB(189) +RB(190) +RB(193) +RB(197) 
     *  +RB(198) +RB(216) +RB(225) +RB(238) +RB(240) +RB(451) 
      A9_0 = ( +RB(147) +RB(165) +RB(166) +RB(167) +RB(168) 
     *  +RB(169) +RB(170) +RB(174) +RB(175) +RB(176) +RB(177) 
     *  +RB(178) +RB(179) +2*RB(180) +RF(189) +RF(190) +RF(193) 
     *  +RF(197) +RF(198) +RB(207) +RB(208) +RF(216) +RF(225) 
     *  +RF(238) +RF(240) +RF(451) +RB(452) )/DEN
      A9_2 = ( +RF(104) )/DEN
      A9_5 = ( +RF(154) +RB(172) )/DEN
      A9_12 = ( +RB(171) +RB(173) +RB(453) )/DEN
C     C2H5
      DEN = +RF(199) +RF(200) +RF(201) +RF(202) +RF(203) 
     *  +RF(204) +RF(205) +RF(206) +RB(110) +RB(188) +RB(194) 
     *  +RB(209) +RB(210) +RB(211) +RB(212) +RB(213) +RB(241) 
     *  +RB(263) +RB(446) +RB(447) +RB(448) 
      A10_0 = ( +RF(110) +RF(188) +RB(199) +RB(200) +RB(201) 
     *  +RB(202) +RB(203) +RB(204) +RB(205) +RB(206) +RB(207) 
     *  +RB(208) +RF(209) +RF(210) +RF(211) +RF(213) +RF(232) 
     *  +RF(241) +RF(446) +RF(448) )/DEN
      A10_4 = ( +RF(212) )/DEN
      A10_5 = ( +RF(194) )/DEN
      A10_13 = ( +RF(263) )/DEN
      A10_14 = ( +RB(449) )/DEN
      A10_17 = ( +RF(447) )/DEN
      A10_18 = ( +RB(450) )/DEN
C     HCCO
      DEN = +RF(111) +RF(140) +RF(141) +RF(142) +RF(146) 
     *  +RF(157) +RF(460) +RF(461) +RF(462) +RB( 58) +RB(133) 
     *  +RB(150) +RB(160) +RB(162) +RB(164) +RB(454) +RB(458) 
      A11_0 = ( +RB(111) +RB(141) +RB(142) +RB(143) +2*RB(145) 
     *  +RF(150) +RB(157) +RF(160) +RF(162) +RF(164) +RF(454) 
     *  +RB(459) +RB(460) +RB(461) +RB(462) )/DEN
      A11_2 = ( +RF( 58) )/DEN
      A11_4 = ( +RB(140) )/DEN
      A11_7 = ( +RB(146) )/DEN
      A11_8 = ( +RF(133) +RF(458) )/DEN
      A11_9 = ( +RB(144) )/DEN
C     CH2CHO
      DEN = +RF(181) +RF(182) +RF(183) +RF(184) +RF(185) 
     *  +RF(186) +RF(187) +RB(159) +RB(171) +RB(173) +RB(453) 
      A12_0 = ( +RF(159) +RB(181) +RB(183) +RB(184) +RB(185) 
     *  +RB(186) +RB(187) )/DEN
      A12_5 = ( +RB(182) )/DEN
      A12_9 = ( +RF(171) +RF(173) +RF(453) )/DEN
C     C6H5
      DEN = +RF(246) +RF(251) +RF(255) +RF(256) +RF(257) 
     *  +RF(258) +RF(259) +RF(260) +RF(261) +RF(262) +RF(263) 
     *  +RF(264) +RB(218) +RB(252) 
      A13_0 = ( +RF(218) +RB(246) +RB(251) +RF(252) +RB(255) 
     *  +RB(256) +RB(257) +RB(258) +RB(259) +RB(260) +RB(261) 
     *  +RB(262) )/DEN
      A13_5 = ( +RB(264) )/DEN
      A13_10 = ( +RB(263) )/DEN
C     NH
      DEN = +RF(279) +RF(289) +RF(295) +RF(296) +RF(297) 
     *  +RF(298) +RF(299) +RF(300) +RF(303) +RF(304) +RF(305) 
     *  +RF(306) +RF(375) +RF(413) +RF(414) +RB(281) +RB(282) 
     *  +RB(283) +RB(288) +RB(314) +RB(343) +RB(350) +RB(365) 
     *  +RB(369) +RB(384) +RB(411) +RB(420) +RB(432) +RB(449) 
     *  +RB(470) +RB(477) +RB(484) 
      A14_0 = ( +RB(279) +RF(281) +RF(282) +RF(283) +RF(288) 
     *  +RB(296) +RB(297) +RB(299) +RB(300) +RB(302) +RB(303) 
     *  +RB(304) +RB(305) +RB(306) +RB(317) +RF(343) +RF(350) 
     *  +RF(365) +RF(369) +RB(375) +RF(384) +RF(411) +RB(413) 
     *  +RF(470) +RF(477) +RF(484) +RB(495) )/DEN
      A14_2 = ( +RF(432) )/DEN
      A14_3 = ( +RF(420) )/DEN
      A14_15 = ( +RB(289) +RB(295) +RB(298) +2*RB(301) +RB(414) )/DEN
      A14_16 = ( +RF(314) )/DEN
C     N
      DEN = +RF(290) +RF(307) +RF(308) +RF(309) +RF(395) 
     *  +RF(399) +RF(415) +RB(289) +RB(295) +RB(298) +RB(301) 
     *  +RB(353) +RB(357) +RB(383) +RB(414) +RB(441) +RB(467) 
     *  +RB(468) 
      A15_0 = ( +RB(290) +RB(302) +RB(307) +RB(308) +RB(309) 
     *  +RF(383) +RB(395) +RB(399) +RB(421) +RB(459) +RF(467) 
     *  +RF(468) )/DEN
      A15_1 = ( +RB(438) +RF(441) )/DEN
      A15_2 = ( +RF(436) )/DEN
      A15_3 = ( +RB(496) )/DEN
      A15_14 = ( +RF(289) +RF(295) +RF(298) +RF(414) +RB(449) )/DEN
      A15_17 = ( +RF(353) +RF(357) +RB(431) )/DEN
      A15_18 = ( +RB(415) +RB(450) )/DEN
C     NNH
      DEN = +RF(310) +RF(311) +RF(312) +RF(313) +RF(314) 
     *  +RF(315) +RF(316) +RF(318) +RF(319) +RB(293) 
      A16_0 = ( +RF(293) +RB(310) +RB(311) +RB(312) +RB(313) 
     *  +RB(315) +RB(316) +RB(317) +RB(318) +RB(319) )/DEN
      A16_14 = ( +RB(314) )/DEN
C     CN
      DEN = +RF(341) +RF(353) +RF(354) +RF(355) +RF(356) 
     *  +RF(357) +RF(358) +RF(359) +RF(360) +RF(361) +RF(362) 
     *  +RF(363) +RF(364) +RF(381) +RF(400) +RF(401) +RF(409) 
     *  +RF(447) +RB(338) +RB(339) +RB(344) +RB(345) +RB(348) 
     *  +RB(352) +RB(431) +RB(435) +RB(440) +RB(442) +RB(469) 
     *  +RB(473) +RB(478) 
      A17_0 = ( +RF(338) +RF(339) +RB(341) +RF(344) +RF(345) 
     *  +RF(348) +RF(352) +RB(354) +RB(355) +RB(356) +RB(358) 
     *  +RB(359) +RB(360) +RB(361) +RB(362) +RB(363) +RB(364) 
     *  +RB(381) +RB(400) +RB(409) +RF(469) +RF(473) +2*RF(474) 
     *  +RF(478) )/DEN
      A17_1 = ( +RB(438) +RF(440) +RF(442) )/DEN
      A17_2 = ( +RF(435) )/DEN
      A17_5 = ( +RB(401) )/DEN
      A17_8 = ( +RF(457) )/DEN
      A17_10 = ( +RB(447) )/DEN
      A17_15 = ( +RB(353) +RB(357) )/DEN
C     H2CN
      DEN = +RF(488) +RF(489) +RF(490) +RF(491) +RF(492) 
     *  +RF(493) +RF(494) +RB(415) +RB(418) +RB(430) +RB(450) 
     *  +RB(482) +RB(483) +RB(485) +RB(486) +RB(487) 
      A18_0 = ( +RF(418) +RF(482) +RF(483) +RF(485) +RF(486) 
     *  +RF(487) +RB(488) +RB(489) +RB(490) +RB(491) +RB(492) 
     *  +RB(493) +RB(494) +RB(495) )/DEN
      A18_2 = ( +RF(430) )/DEN
      A18_3 = ( +RB(496) )/DEN
      A18_15 = ( +RF(415) )/DEN
C
      A14_0 = A14_0 + A14_16*A16_0
      DEN = 1 -A14_16*A16_14
      A14_0 = A14_0/DEN
      A14_2 = A14_2/DEN
      A14_15 = A14_15/DEN
      A14_3 = A14_3/DEN
      A4_0 = A4_0 + A4_6*A6_0
      DEN = 1 -A4_6*A6_4
      A4_0 = A4_0/DEN
      A4_2 = A4_2/DEN
      A4_5 = A4_5/DEN
      A4_10 = A4_10/DEN
      A4_3 = A4_3/DEN
      A4_11 = A4_11/DEN
      A5_0 = A5_0 + A5_12*A12_0
      A5_9 = A5_9 + A5_12*A12_9
      DEN = 1 -A5_12*A12_5
      A5_0 = A5_0/DEN
      A5_2 = A5_2/DEN
      A5_17 = A5_17/DEN
      A5_10 = A5_10/DEN
      A5_4 = A5_4/DEN
      A5_3 = A5_3/DEN
      A5_8 = A5_8/DEN
      A5_13 = A5_13/DEN
      A5_9 = A5_9/DEN
      A9_0 = A9_0 + A9_12*A12_0
      A9_5 = A9_5 + A9_12*A12_5
      DEN = 1 -A9_12*A12_9
      A9_0 = A9_0/DEN
      A9_2 = A9_2/DEN
      A9_5 = A9_5/DEN
      A2_0 = A2_0 + A2_7*A7_0
      A2_11 = A2_11 + A2_7*A7_11
      DEN = 1 -A2_7*A7_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A2_17 = A2_17/DEN
      A2_4 = A2_4/DEN
      A2_3 = A2_3/DEN
      A2_1 = A2_1/DEN
      A2_14 = A2_14/DEN
      A2_11 = A2_11/DEN
      A2_18 = A2_18/DEN
      A2_8 = A2_8/DEN
      A2_9 = A2_9/DEN
      A11_0 = A11_0 + A11_7*A7_0
      A11_2 = A11_2 + A11_7*A7_2
      DEN = 1 -A11_7*A7_11
      A11_0 = A11_0/DEN
      A11_2 = A11_2/DEN
      A11_4 = A11_4/DEN
      A11_8 = A11_8/DEN
      A11_9 = A11_9/DEN
      A2_0 = A2_0 + A2_9*A9_0
      A2_5 = A2_5 + A2_9*A9_5
      DEN = 1 -A2_9*A9_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A2_17 = A2_17/DEN
      A2_4 = A2_4/DEN
      A2_3 = A2_3/DEN
      A2_1 = A2_1/DEN
      A2_14 = A2_14/DEN
      A2_11 = A2_11/DEN
      A2_18 = A2_18/DEN
      A2_8 = A2_8/DEN
      A5_0 = A5_0 + A5_9*A9_0
      A5_2 = A5_2 + A5_9*A9_2
      DEN = 1 -A5_9*A9_5
      A5_0 = A5_0/DEN
      A5_2 = A5_2/DEN
      A5_17 = A5_17/DEN
      A5_10 = A5_10/DEN
      A5_4 = A5_4/DEN
      A5_3 = A5_3/DEN
      A5_8 = A5_8/DEN
      A5_13 = A5_13/DEN
      A3_0 = A3_0 + A3_9*A9_0
      A3_2 = A3_2 + A3_9*A9_2
      A3_5 = A3_5 + A3_9*A9_5
      A11_0 = A11_0 + A11_9*A9_0
      A11_2 = A11_2 + A11_9*A9_2
      A11_5 = A11_9*A9_5
      A5_0 = A5_0 + A5_13*A13_0
      A5_10 = A5_10 + A5_13*A13_10
      DEN = 1 -A5_13*A13_5
      A5_0 = A5_0/DEN
      A5_2 = A5_2/DEN
      A5_17 = A5_17/DEN
      A5_10 = A5_10/DEN
      A5_4 = A5_4/DEN
      A5_3 = A5_3/DEN
      A5_8 = A5_8/DEN
      A10_0 = A10_0 + A10_13*A13_0
      A10_5 = A10_5 + A10_13*A13_5
      DEN = 1 -A10_13*A13_10
      A10_0 = A10_0/DEN
      A10_5 = A10_5/DEN
      A10_17 = A10_17/DEN
      A10_4 = A10_4/DEN
      A10_14 = A10_14/DEN
      A10_18 = A10_18/DEN
      A2_0 = A2_0 + A2_8*A8_0
      A2_5 = A2_5 + A2_8*A8_5
      A2_11 = A2_11 + A2_8*A8_11
      DEN = 1 -A2_8*A8_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A2_17 = A2_17/DEN
      A2_4 = A2_4/DEN
      A2_3 = A2_3/DEN
      A2_1 = A2_1/DEN
      A2_14 = A2_14/DEN
      A2_11 = A2_11/DEN
      A2_18 = A2_18/DEN
      A5_0 = A5_0 + A5_8*A8_0
      A5_2 = A5_2 + A5_8*A8_2
      A5_11 = A5_8*A8_11
      DEN = 1 -A5_8*A8_5
      A5_0 = A5_0/DEN
      A5_2 = A5_2/DEN
      A5_17 = A5_17/DEN
      A5_10 = A5_10/DEN
      A5_4 = A5_4/DEN
      A5_3 = A5_3/DEN
      A5_11 = A5_11/DEN
      A17_0 = A17_0 + A17_8*A8_0
      A17_2 = A17_2 + A17_8*A8_2
      A17_5 = A17_5 + A17_8*A8_5
      A17_11 = A17_8*A8_11
      A3_0 = A3_0 + A3_8*A8_0
      A3_2 = A3_2 + A3_8*A8_2
      A3_5 = A3_5 + A3_8*A8_5
      A3_11 = A3_8*A8_11
      A1_0 = A1_0 + A1_8*A8_0
      A1_2 = A1_2 + A1_8*A8_2
      A1_5 = A1_8*A8_5
      A1_11 = A1_8*A8_11
      A11_0 = A11_0 + A11_8*A8_0
      A11_2 = A11_2 + A11_8*A8_2
      A11_5 = A11_5 + A11_8*A8_5
      DEN = 1 -A11_8*A8_11
      A11_0 = A11_0/DEN
      A11_2 = A11_2/DEN
      A11_5 = A11_5/DEN
      A11_4 = A11_4/DEN
      A2_0 = A2_0 + A2_18*A18_0
      A2_15 = A2_18*A18_15
      A2_3 = A2_3 + A2_18*A18_3
      DEN = 1 -A2_18*A18_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A2_17 = A2_17/DEN
      A2_15 = A2_15/DEN
      A2_4 = A2_4/DEN
      A2_3 = A2_3/DEN
      A2_1 = A2_1/DEN
      A2_14 = A2_14/DEN
      A2_11 = A2_11/DEN
      A10_0 = A10_0 + A10_18*A18_0
      A10_2 = A10_18*A18_2
      A10_15 = A10_18*A18_15
      A10_3 = A10_18*A18_3
      A15_0 = A15_0 + A15_18*A18_0
      A15_2 = A15_2 + A15_18*A18_2
      A15_3 = A15_3 + A15_18*A18_3
      DEN = 1 -A15_18*A18_15
      A15_0 = A15_0/DEN
      A15_2 = A15_2/DEN
      A15_17 = A15_17/DEN
      A15_3 = A15_3/DEN
      A15_1 = A15_1/DEN
      A15_14 = A15_14/DEN
      A2_0 = A2_0 + A2_11*A11_0
      A2_5 = A2_5 + A2_11*A11_5
      A2_4 = A2_4 + A2_11*A11_4
      DEN = 1 -A2_11*A11_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A2_17 = A2_17/DEN
      A2_15 = A2_15/DEN
      A2_4 = A2_4/DEN
      A2_3 = A2_3/DEN
      A2_1 = A2_1/DEN
      A2_14 = A2_14/DEN
      A5_0 = A5_0 + A5_11*A11_0
      A5_2 = A5_2 + A5_11*A11_2
      A5_4 = A5_4 + A5_11*A11_4
      DEN = 1 -A5_11*A11_5
      A5_0 = A5_0/DEN
      A5_2 = A5_2/DEN
      A5_17 = A5_17/DEN
      A5_10 = A5_10/DEN
      A5_4 = A5_4/DEN
      A5_3 = A5_3/DEN
      A17_0 = A17_0 + A17_11*A11_0
      A17_2 = A17_2 + A17_11*A11_2
      A17_5 = A17_5 + A17_11*A11_5
      A17_4 = A17_11*A11_4
      A4_0 = A4_0 + A4_11*A11_0
      A4_2 = A4_2 + A4_11*A11_2
      A4_5 = A4_5 + A4_11*A11_5
      DEN = 1 -A4_11*A11_4
      A4_0 = A4_0/DEN
      A4_2 = A4_2/DEN
      A4_5 = A4_5/DEN
      A4_10 = A4_10/DEN
      A4_3 = A4_3/DEN
      A3_0 = A3_0 + A3_11*A11_0
      A3_2 = A3_2 + A3_11*A11_2
      A3_5 = A3_5 + A3_11*A11_5
      A3_4 = A3_4 + A3_11*A11_4
      A1_0 = A1_0 + A1_11*A11_0
      A1_2 = A1_2 + A1_11*A11_2
      A1_5 = A1_5 + A1_11*A11_5
      A1_4 = A1_11*A11_4
      A2_0 = A2_0 + A2_14*A14_0
      A2_15 = A2_15 + A2_14*A14_15
      A2_3 = A2_3 + A2_14*A14_3
      DEN = 1 -A2_14*A14_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A2_17 = A2_17/DEN
      A2_15 = A2_15/DEN
      A2_4 = A2_4/DEN
      A2_3 = A2_3/DEN
      A2_1 = A2_1/DEN
      A10_0 = A10_0 + A10_14*A14_0
      A10_2 = A10_2 + A10_14*A14_2
      A10_15 = A10_15 + A10_14*A14_15
      A10_3 = A10_3 + A10_14*A14_3
      A15_0 = A15_0 + A15_14*A14_0
      A15_2 = A15_2 + A15_14*A14_2
      A15_3 = A15_3 + A15_14*A14_3
      DEN = 1 -A15_14*A14_15
      A15_0 = A15_0/DEN
      A15_2 = A15_2/DEN
      A15_17 = A15_17/DEN
      A15_3 = A15_3/DEN
      A15_1 = A15_1/DEN
      A3_0 = A3_0 + A3_14*A14_0
      A3_2 = A3_2 + A3_14*A14_2
      A3_15 = A3_14*A14_15
      DEN = 1 -A3_14*A14_3
      A3_0 = A3_0/DEN
      A3_2 = A3_2/DEN
      A3_5 = A3_5/DEN
      A3_15 = A3_15/DEN
      A3_4 = A3_4/DEN
      A2_0 = A2_0 + A2_1*A1_0
      A2_5 = A2_5 + A2_1*A1_5
      A2_17 = A2_17 + A2_1*A1_17
      A2_15 = A2_15 + A2_1*A1_15
      A2_4 = A2_4 + A2_1*A1_4
      DEN = 1 -A2_1*A1_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A2_17 = A2_17/DEN
      A2_15 = A2_15/DEN
      A2_4 = A2_4/DEN
      A2_3 = A2_3/DEN
      A17_0 = A17_0 + A17_1*A1_0
      A17_2 = A17_2 + A17_1*A1_2
      A17_5 = A17_5 + A17_1*A1_5
      A17_15 = A17_15 + A17_1*A1_15
      A17_4 = A17_4 + A17_1*A1_4
      DEN = 1 -A17_1*A1_17
      A17_0 = A17_0/DEN
      A17_2 = A17_2/DEN
      A17_5 = A17_5/DEN
      A17_10 = A17_10/DEN
      A17_15 = A17_15/DEN
      A17_4 = A17_4/DEN
      A15_0 = A15_0 + A15_1*A1_0
      A15_2 = A15_2 + A15_1*A1_2
      A15_5 = A15_1*A1_5
      A15_17 = A15_17 + A15_1*A1_17
      A15_4 = A15_1*A1_4
      DEN = 1 -A15_1*A1_15
      A15_0 = A15_0/DEN
      A15_2 = A15_2/DEN
      A15_5 = A15_5/DEN
      A15_17 = A15_17/DEN
      A15_4 = A15_4/DEN
      A15_3 = A15_3/DEN
      A2_0 = A2_0 + A2_3*A3_0
      A2_5 = A2_5 + A2_3*A3_5
      A2_15 = A2_15 + A2_3*A3_15
      A2_4 = A2_4 + A2_3*A3_4
      DEN = 1 -A2_3*A3_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A2_17 = A2_17/DEN
      A2_15 = A2_15/DEN
      A2_4 = A2_4/DEN
      A5_0 = A5_0 + A5_3*A3_0
      A5_2 = A5_2 + A5_3*A3_2
      A5_15 = A5_3*A3_15
      A5_4 = A5_4 + A5_3*A3_4
      DEN = 1 -A5_3*A3_5
      A5_0 = A5_0/DEN
      A5_2 = A5_2/DEN
      A5_17 = A5_17/DEN
      A5_10 = A5_10/DEN
      A5_15 = A5_15/DEN
      A5_4 = A5_4/DEN
      A10_0 = A10_0 + A10_3*A3_0
      A10_2 = A10_2 + A10_3*A3_2
      A10_5 = A10_5 + A10_3*A3_5
      A10_15 = A10_15 + A10_3*A3_15
      A10_4 = A10_4 + A10_3*A3_4
      A15_0 = A15_0 + A15_3*A3_0
      A15_2 = A15_2 + A15_3*A3_2
      A15_5 = A15_5 + A15_3*A3_5
      A15_4 = A15_4 + A15_3*A3_4
      DEN = 1 -A15_3*A3_15
      A15_0 = A15_0/DEN
      A15_2 = A15_2/DEN
      A15_5 = A15_5/DEN
      A15_17 = A15_17/DEN
      A15_4 = A15_4/DEN
      A4_0 = A4_0 + A4_3*A3_0
      A4_2 = A4_2 + A4_3*A3_2
      A4_5 = A4_5 + A4_3*A3_5
      A4_15 = A4_3*A3_15
      DEN = 1 -A4_3*A3_4
      A4_0 = A4_0/DEN
      A4_2 = A4_2/DEN
      A4_5 = A4_5/DEN
      A4_10 = A4_10/DEN
      A4_15 = A4_15/DEN
      A2_0 = A2_0 + A2_4*A4_0
      A2_5 = A2_5 + A2_4*A4_5
      A2_10 = A2_4*A4_10
      A2_15 = A2_15 + A2_4*A4_15
      DEN = 1 -A2_4*A4_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A2_17 = A2_17/DEN
      A2_10 = A2_10/DEN
      A2_15 = A2_15/DEN
      A5_0 = A5_0 + A5_4*A4_0
      A5_2 = A5_2 + A5_4*A4_2
      A5_10 = A5_10 + A5_4*A4_10
      A5_15 = A5_15 + A5_4*A4_15
      DEN = 1 -A5_4*A4_5
      A5_0 = A5_0/DEN
      A5_2 = A5_2/DEN
      A5_17 = A5_17/DEN
      A5_10 = A5_10/DEN
      A5_15 = A5_15/DEN
      A17_0 = A17_0 + A17_4*A4_0
      A17_2 = A17_2 + A17_4*A4_2
      A17_5 = A17_5 + A17_4*A4_5
      A17_10 = A17_10 + A17_4*A4_10
      A17_15 = A17_15 + A17_4*A4_15
      A10_0 = A10_0 + A10_4*A4_0
      A10_2 = A10_2 + A10_4*A4_2
      A10_5 = A10_5 + A10_4*A4_5
      A10_15 = A10_15 + A10_4*A4_15
      DEN = 1 -A10_4*A4_10
      A10_0 = A10_0/DEN
      A10_2 = A10_2/DEN
      A10_5 = A10_5/DEN
      A10_17 = A10_17/DEN
      A10_15 = A10_15/DEN
      A15_0 = A15_0 + A15_4*A4_0
      A15_2 = A15_2 + A15_4*A4_2
      A15_5 = A15_5 + A15_4*A4_5
      A15_10 = A15_4*A4_10
      DEN = 1 -A15_4*A4_15
      A15_0 = A15_0/DEN
      A15_2 = A15_2/DEN
      A15_5 = A15_5/DEN
      A15_17 = A15_17/DEN
      A15_10 = A15_10/DEN
      A2_0 = A2_0 + A2_15*A15_0
      A2_5 = A2_5 + A2_15*A15_5
      A2_17 = A2_17 + A2_15*A15_17
      A2_10 = A2_10 + A2_15*A15_10
      DEN = 1 -A2_15*A15_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A2_17 = A2_17/DEN
      A2_10 = A2_10/DEN
      A5_0 = A5_0 + A5_15*A15_0
      A5_2 = A5_2 + A5_15*A15_2
      A5_17 = A5_17 + A5_15*A15_17
      A5_10 = A5_10 + A5_15*A15_10
      DEN = 1 -A5_15*A15_5
      A5_0 = A5_0/DEN
      A5_2 = A5_2/DEN
      A5_17 = A5_17/DEN
      A5_10 = A5_10/DEN
      A17_0 = A17_0 + A17_15*A15_0
      A17_2 = A17_2 + A17_15*A15_2
      A17_5 = A17_5 + A17_15*A15_5
      A17_10 = A17_10 + A17_15*A15_10
      DEN = 1 -A17_15*A15_17
      A17_0 = A17_0/DEN
      A17_2 = A17_2/DEN
      A17_5 = A17_5/DEN
      A17_10 = A17_10/DEN
      A10_0 = A10_0 + A10_15*A15_0
      A10_2 = A10_2 + A10_15*A15_2
      A10_5 = A10_5 + A10_15*A15_5
      A10_17 = A10_17 + A10_15*A15_17
      DEN = 1 -A10_15*A15_10
      A10_0 = A10_0/DEN
      A10_2 = A10_2/DEN
      A10_5 = A10_5/DEN
      A10_17 = A10_17/DEN
      A2_0 = A2_0 + A2_10*A10_0
      A2_5 = A2_5 + A2_10*A10_5
      A2_17 = A2_17 + A2_10*A10_17
      DEN = 1 -A2_10*A10_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A2_17 = A2_17/DEN
      A5_0 = A5_0 + A5_10*A10_0
      A5_2 = A5_2 + A5_10*A10_2
      A5_17 = A5_17 + A5_10*A10_17
      DEN = 1 -A5_10*A10_5
      A5_0 = A5_0/DEN
      A5_2 = A5_2/DEN
      A5_17 = A5_17/DEN
      A17_0 = A17_0 + A17_10*A10_0
      A17_2 = A17_2 + A17_10*A10_2
      A17_5 = A17_5 + A17_10*A10_5
      DEN = 1 -A17_10*A10_17
      A17_0 = A17_0/DEN
      A17_2 = A17_2/DEN
      A17_5 = A17_5/DEN
      A2_0 = A2_0 + A2_17*A17_0
      A2_5 = A2_5 + A2_17*A17_5
      DEN = 1 -A2_17*A17_2
      A2_0 = A2_0/DEN
      A2_5 = A2_5/DEN
      A5_0 = A5_0 + A5_17*A17_0
      A5_2 = A5_2 + A5_17*A17_2
      DEN = 1 -A5_17*A17_5
      A5_0 = A5_0/DEN
      A5_2 = A5_2/DEN
      A2_0 = A2_0 + A2_5*A5_0
      DEN = 1 -A2_5*A5_2
      A2_0 = A2_0/DEN
      XQ(2) = A2_0
      XQ(5) = A5_0 +A5_2*XQ(2)
      XQ(17) = A17_0 +A17_2*XQ(2) +A17_5*XQ(5)
      XQ(10) = A10_0 +A10_2*XQ(2) +A10_5*XQ(5) +A10_17*XQ(17)
      XQ(15) = A15_0 +A15_2*XQ(2) +A15_5*XQ(5) +A15_17*XQ(17)
     1 +A15_10*XQ(10)
      XQ(4) = A4_0 +A4_2*XQ(2) +A4_5*XQ(5) +A4_10*XQ(10) +A4_15*XQ(15)
      XQ(3) = A3_0 +A3_2*XQ(2) +A3_5*XQ(5) +A3_15*XQ(15) +A3_4*XQ(4)
      XQ(1) = A1_0 +A1_2*XQ(2) +A1_5*XQ(5) +A1_17*XQ(17) +A1_15*XQ(15)
     1 +A1_4*XQ(4)
      XQ(14) = A14_0 +A14_2*XQ(2) +A14_15*XQ(15) +A14_3*XQ(3)
      XQ(11) = A11_0 +A11_2*XQ(2) +A11_5*XQ(5) +A11_4*XQ(4)
      XQ(18) = A18_0 +A18_2*XQ(2) +A18_15*XQ(15) +A18_3*XQ(3)
      XQ(8) = A8_0 +A8_2*XQ(2) +A8_5*XQ(5) +A8_11*XQ(11)
      XQ(13) = A13_0 +A13_5*XQ(5) +A13_10*XQ(10)
      XQ(9) = A9_0 +A9_2*XQ(2) +A9_5*XQ(5)
      XQ(7) = A7_0 +A7_2*XQ(2) +A7_11*XQ(11)
      XQ(12) = A12_0 +A12_5*XQ(5) +A12_9*XQ(9)
      XQ(6) = A6_0 +A6_4*XQ(4)
      XQ(16) = A16_0 +A16_14*XQ(14)
C
      RF( 42) = RF( 42)*XQ( 5)
      RF( 43) = RF( 43)*XQ( 5)
      RF( 44) = RF( 44)*XQ( 5)
      RF( 45) = RF( 45)*XQ( 5)
      RF( 46) = RF( 46)*XQ( 5)
      RF( 47) = RF( 47)*XQ( 5)
      RF( 48) = RF( 48)*XQ( 5)
      RF( 50) = RF( 50)*XQ( 1)
      RF( 51) = RF( 51)*XQ( 1)
      RF( 52) = RF( 52)*XQ( 2)
      RB( 52) = RB( 52)*XQ( 1)
      RF( 53) = RF( 53)*XQ( 2)
      RF( 54) = RF( 54)*XQ( 2)
      RB( 54) = RB( 54)*XQ( 5)
      RF( 55) = RF( 55)*XQ( 2)
      RB( 55) = RB( 55)*XQ( 3)
      RF( 56) = RF( 56)*XQ( 2)
      RF( 57) = RF( 57)*XQ( 2)
      RB( 57) = RB( 57)*XQ( 5)
      RF( 58) = RF( 58)*XQ( 2)
      RB( 58) = RB( 58)*XQ(11)
      RF( 59) = RF( 59)*XQ( 2)
      RB( 59) = RB( 59)*XQ( 5)
      RF( 60) = RF( 60)*XQ( 5)
      RF( 61) = RF( 61)*XQ( 3)
      RF( 62) = RF( 62)*XQ( 3)
      RB( 62) = RB( 62)*XQ( 5)
      RF( 63) = RF( 63)*XQ( 3)
      RF( 64) = RF( 64)*XQ( 3)
      RB( 64) = RB( 64)*XQ( 2)
      RF( 65) = RF( 65)*XQ( 3)
      RF( 66) = RF( 66)*XQ( 3)
      RB( 66) = RB( 66)*XQ( 5)
      RF( 67) = RF( 67)*XQ( 3)
      RF( 68) = RF( 68)*XQ( 3)
      RB( 69) = RB( 69)*XQ( 8)
      RF( 70) = RF( 70)*XQ( 3)
      RF( 73) = RF( 73)*XQ( 4)
      RB( 73) = RB( 73)*XQ( 3)
      RF( 74) = RF( 74)*XQ( 4)
      RB( 74) = RB( 74)*XQ( 2)
      RF( 75) = RF( 75)*XQ( 4)
      RF( 76) = RF( 76)*XQ( 4)
      RB( 76) = RB( 76)*XQ( 5)
      RF( 77) = RF( 77)*XQ( 4)
      RF( 78) = RF( 78)*XQ( 4)
      RF( 79) = RF( 79)*XQ( 4)
      RF( 80) = RF( 80)*XQ( 4)
      RF( 81) = RF( 81)*XQ( 4)
      RF( 82) = RF( 82)*XQ( 4)
      RB( 82) = RB( 82)*XQ( 3)
      RF( 83) = RF( 83)*XQ( 4)
      RB( 83) = RB( 83)*XQ( 3)
      RF( 84) = RF( 84)*XQ( 4)
      RB( 84) = RB( 84)*XQ( 3)
      RF( 85) = RF( 85)*XQ( 4)
      RB( 86) = RB( 86)*XQ( 6)
      RB( 87) = RB( 87)*XQ( 5)
      RB( 88) = RB( 88)*XQ( 5)
      RB( 89) = RB( 89)*XQ( 5)
      RB( 90) = RB( 90)*XQ( 5)
      RB( 91) = RB( 91)*XQ( 5)
      RF( 92) = RF( 92)*XQ( 2)
      RB( 96) = RB( 96)*XQ( 3)
      RB( 97) = RB( 97)*XQ( 4)
      RB( 98) = RB( 98)*XQ( 6)
      RB(101) = RB(101)*XQ( 6)
      RF(103) = RF(103)*XQ( 1)
      RF(104) = RF(104)*XQ( 2)
      RB(104) = RB(104)*XQ( 9)
      RF(105) = RF(105)*XQ( 5)
      RB(106) = RB(106)*XQ( 5)
      RF(107) = RF(107)*XQ( 3)
      RF(108) = RF(108)*XQ( 4)
      RB(110) = RB(110)*XQ(10)
      RF(111) = RF(111)*XQ(11)
      RF(112) = RF(112)*XQ( 8)
      RF(113) = RF(113)*XQ( 6)
      RF(114) = RF(114)*XQ( 6)
      RF(115) = RF(115)*XQ( 6)
      RF(116) = RF(116)*XQ( 6)
      RB(116) = RB(116)*XQ( 4)
      RF(117) = RF(117)*XQ( 6)
      RF(118) = RF(118)*XQ( 6)
      RF(119) = RF(119)*XQ( 6)
      RF(123) = RF(123)*XQ( 2)
      RF(124) = RF(124)*XQ( 3)
      RF(125) = RF(125)*XQ( 4)
      RF(126) = RF(126)*XQ( 8)
      RB(127) = RB(127)*XQ( 6)
      RB(128) = RB(128)*XQ( 6)
      RB(129) = RB(129)*XQ( 6)
      RB(130) = RB(130)*XQ( 6)
      RF(131) = RF(131)*XQ( 8)
      RF(132) = RF(132)*XQ( 8)
      RB(132) = RB(132)*XQ( 2)
      RF(133) = RF(133)*XQ( 8)
      RB(133) = RB(133)*XQ(11)
      RF(134) = RF(134)*XQ( 8)
      RB(134) = RB(134)*XQ( 5)
      RF(135) = RF(135)*XQ( 8)
      RF(136) = RF(136)*XQ( 7)
      RB(136) = RB(136)*XQ( 2)
      RF(137) = RF(137)*XQ( 7)
      RF(138) = RF(138)*XQ( 7)
      RF(139) = RF(139)*XQ( 7)
      RF(140) = RF(140)*XQ(11)
      RB(140) = RB(140)*XQ( 4)
      RF(141) = RF(141)*XQ(11)
      RF(142) = RF(142)*XQ(11)
      RB(144) = RB(144)*XQ( 9)
      RF(146) = RF(146)*XQ(11)
      RB(146) = RB(146)*XQ( 7)
      RF(147) = RF(147)*XQ( 9)
      RB(148) = RB(148)*XQ( 8)
      RB(149) = RB(149)*XQ( 3)
      RB(150) = RB(150)*XQ(11)
      RB(152) = RB(152)*XQ( 8)
      RF(154) = RF(154)*XQ( 5)
      RB(154) = RB(154)*XQ( 9)
      RF(155) = RF(155)*XQ( 3)
      RF(156) = RF(156)*XQ( 4)
      RF(157) = RF(157)*XQ(11)
      RB(159) = RB(159)*XQ(12)
      RB(160) = RB(160)*XQ(11)
      RB(162) = RB(162)*XQ(11)
      RB(163) = RB(163)*XQ( 3)
      RB(164) = RB(164)*XQ(11)
      RF(165) = RF(165)*XQ( 9)
      RF(166) = RF(166)*XQ( 9)
      RF(167) = RF(167)*XQ( 9)
      RF(168) = RF(168)*XQ( 9)
      RF(169) = RF(169)*XQ( 9)
      RF(170) = RF(170)*XQ( 9)
      RF(171) = RF(171)*XQ( 9)
      RB(171) = RB(171)*XQ(12)
      RF(172) = RF(172)*XQ( 9)
      RB(172) = RB(172)*XQ( 5)
      RF(173) = RF(173)*XQ( 9)
      RB(173) = RB(173)*XQ(12)
      RF(174) = RF(174)*XQ( 9)
      RF(177) = RF(177)*XQ( 9)
      RF(178) = RF(178)*XQ( 9)
      RF(179) = RF(179)*XQ( 9)
      RF(181) = RF(181)*XQ(12)
      RF(182) = RF(182)*XQ(12)
      RB(182) = RB(182)*XQ( 5)
      RF(183) = RF(183)*XQ(12)
      RF(184) = RF(184)*XQ(12)
      RF(185) = RF(185)*XQ(12)
      RF(186) = RF(186)*XQ(12)
      RF(187) = RF(187)*XQ(12)
      RB(188) = RB(188)*XQ(10)
      RB(189) = RB(189)*XQ( 9)
      RB(190) = RB(190)*XQ( 9)
      RB(191) = RB(191)*XQ( 5)
      RB(192) = RB(192)*XQ( 3)
      RB(193) = RB(193)*XQ( 9)
      RF(194) = RF(194)*XQ( 5)
      RB(194) = RB(194)*XQ(10)
      RF(195) = RF(195)*XQ( 3)
      RF(196) = RF(196)*XQ( 4)
      RB(197) = RB(197)*XQ( 9)
      RB(198) = RB(198)*XQ( 9)
      RF(199) = RF(199)*XQ(10)
      RF(200) = RF(200)*XQ(10)
      RF(201) = RF(201)*XQ(10)
      RF(202) = RF(202)*XQ(10)
      RF(203) = RF(203)*XQ(10)
      RF(204) = RF(204)*XQ(10)
      RF(205) = RF(205)*XQ(10)
      RF(206) = RF(206)*XQ(10)
      RB(209) = RB(209)*XQ(10)
      RB(210) = RB(210)*XQ(10)
      RB(211) = RB(211)*XQ(10)
      RF(212) = RF(212)*XQ( 4)
      RB(212) = RB(212)*XQ(10)
      RB(213) = RB(213)*XQ(10)
      RB(214) = RB(214)*XQ( 8)
      RB(215) = RB(215)*XQ( 5)
      RB(216) = RB(216)*XQ( 9)
      RB(218) = RB(218)*XQ(13)
      RB(225) = RB(225)*XQ( 9)
      RF(226) = RF(226)*XQ( 5)
      RB(237) = RB(237)*XQ( 5)
      RB(238) = RB(238)*XQ( 9)
      RB(240) = RB(240)*XQ( 9)
      RB(241) = RB(241)*XQ(10)
      RF(246) = RF(246)*XQ(13)
      RF(251) = RF(251)*XQ(13)
      RB(252) = RB(252)*XQ(13)
      RB(254) = RB(254)*XQ( 5)
      RF(255) = RF(255)*XQ(13)
      RF(256) = RF(256)*XQ(13)
      RF(257) = RF(257)*XQ(13)
      RF(258) = RF(258)*XQ(13)
      RF(259) = RF(259)*XQ(13)
      RF(260) = RF(260)*XQ(13)
      RF(261) = RF(261)*XQ(13)
      RF(262) = RF(262)*XQ(13)
      RF(263) = RF(263)*XQ(13)
      RB(263) = RB(263)*XQ(10)
      RF(264) = RF(264)*XQ(13)
      RB(264) = RB(264)*XQ( 5)
      RB(267) = RB(267)*XQ( 5)
      RB(273) = RB(273)*XQ( 5)
      RF(279) = RF(279)*XQ(14)
      RB(281) = RB(281)*XQ(14)
      RB(282) = RB(282)*XQ(14)
      RB(283) = RB(283)*XQ(14)
      RB(288) = RB(288)*XQ(14)
      RF(289) = RF(289)*XQ(14)
      RB(289) = RB(289)*XQ(15)
      RF(290) = RF(290)*XQ(15)
      RB(293) = RB(293)*XQ(16)
      RF(295) = RF(295)*XQ(14)
      RB(295) = RB(295)*XQ(15)
      RF(296) = RF(296)*XQ(14)
      RF(297) = RF(297)*XQ(14)
      RF(298) = RF(298)*XQ(14)
      RB(298) = RB(298)*XQ(15)
      RF(299) = RF(299)*XQ(14)
      RF(300) = RF(300)*XQ(14)
      RB(301) = RB(301)*XQ(15)
      RF(303) = RF(303)*XQ(14)
      RF(304) = RF(304)*XQ(14)
      RF(305) = RF(305)*XQ(14)
      RF(306) = RF(306)*XQ(14)
      RF(307) = RF(307)*XQ(15)
      RF(308) = RF(308)*XQ(15)
      RF(309) = RF(309)*XQ(15)
      RF(310) = RF(310)*XQ(16)
      RF(311) = RF(311)*XQ(16)
      RF(312) = RF(312)*XQ(16)
      RF(313) = RF(313)*XQ(16)
      RF(314) = RF(314)*XQ(16)
      RB(314) = RB(314)*XQ(14)
      RF(315) = RF(315)*XQ(16)
      RF(316) = RF(316)*XQ(16)
      RF(318) = RF(318)*XQ(16)
      RF(319) = RF(319)*XQ(16)
      RB(338) = RB(338)*XQ(17)
      RB(339) = RB(339)*XQ(17)
      RF(341) = RF(341)*XQ(17)
      RB(343) = RB(343)*XQ(14)
      RB(344) = RB(344)*XQ(17)
      RB(345) = RB(345)*XQ(17)
      RB(348) = RB(348)*XQ(17)
      RB(350) = RB(350)*XQ(14)
      RB(352) = RB(352)*XQ(17)
      RF(353) = RF(353)*XQ(17)
      RB(353) = RB(353)*XQ(15)
      RF(354) = RF(354)*XQ(17)
      RF(355) = RF(355)*XQ(17)
      RF(356) = RF(356)*XQ(17)
      RF(357) = RF(357)*XQ(17)
      RB(357) = RB(357)*XQ(15)
      RF(358) = RF(358)*XQ(17)
      RF(359) = RF(359)*XQ(17)
      RF(360) = RF(360)*XQ(17)
      RF(361) = RF(361)*XQ(17)
      RF(362) = RF(362)*XQ(17)
      RF(363) = RF(363)*XQ(17)
      RF(364) = RF(364)*XQ(17)
      RB(365) = RB(365)*XQ(14)
      RB(369) = RB(369)*XQ(14)
      RF(375) = RF(375)*XQ(14)
      RB(378) = RB(378)*XQ( 5)
      RB(380) = RB(380)*XQ( 5)
      RF(381) = RF(381)*XQ(17)
      RB(383) = RB(383)*XQ(15)
      RB(384) = RB(384)*XQ(14)
      RF(395) = RF(395)*XQ(15)
      RF(399) = RF(399)*XQ(15)
      RF(400) = RF(400)*XQ(17)
      RF(401) = RF(401)*XQ(17)
      RB(401) = RB(401)*XQ( 5)
      RB(402) = RB(402)*XQ( 5)
      RF(403) = RF(403)*XQ( 5)
      RF(404) = RF(404)*XQ( 5)
      RF(405) = RF(405)*XQ( 5)
      RF(406) = RF(406)*XQ( 5)
      RF(407) = RF(407)*XQ( 5)
      RF(409) = RF(409)*XQ(17)
      RB(411) = RB(411)*XQ(14)
      RB(412) = RB(412)*XQ( 3)
      RF(413) = RF(413)*XQ(14)
      RF(414) = RF(414)*XQ(14)
      RB(414) = RB(414)*XQ(15)
      RF(415) = RF(415)*XQ(15)
      RB(415) = RB(415)*XQ(18)
      RB(418) = RB(418)*XQ(18)
      RB(419) = RB(419)*XQ( 6)
      RF(420) = RF(420)*XQ( 3)
      RB(420) = RB(420)*XQ(14)
      RF(422) = RF(422)*XQ( 3)
      RF(423) = RF(423)*XQ( 3)
      RF(424) = RF(424)*XQ( 3)
      RF(425) = RF(425)*XQ( 4)
      RF(426) = RF(426)*XQ( 4)
      RB(426) = RB(426)*XQ( 3)
      RF(427) = RF(427)*XQ( 4)
      RF(428) = RF(428)*XQ( 2)
      RF(429) = RF(429)*XQ( 2)
      RF(430) = RF(430)*XQ( 2)
      RB(430) = RB(430)*XQ(18)
      RB(431) = RB(431)*XQ(17)
      RF(432) = RF(432)*XQ( 2)
      RB(432) = RB(432)*XQ(14)
      RF(433) = RF(433)*XQ( 2)
      RF(434) = RF(434)*XQ( 2)
      RF(435) = RF(435)*XQ( 2)
      RB(435) = RB(435)*XQ(17)
      RF(436) = RF(436)*XQ( 2)
      RF(437) = RF(437)*XQ( 2)
      RB(437) = RB(437)*XQ( 5)
      RB(438) = RB(438)*XQ( 1)
      RF(439) = RF(439)*XQ( 2)
      RF(440) = RF(440)*XQ( 1)
      RB(440) = RB(440)*XQ(17)
      RF(441) = RF(441)*XQ( 1)
      RB(441) = RB(441)*XQ(15)
      RF(442) = RF(442)*XQ( 1)
      RB(442) = RB(442)*XQ(17)
      RF(443) = RF(443)*XQ( 6)
      RF(444) = RF(444)*XQ( 6)
      RF(445) = RF(445)*XQ( 6)
      RB(446) = RB(446)*XQ(10)
      RF(447) = RF(447)*XQ(17)
      RB(447) = RB(447)*XQ(10)
      RB(448) = RB(448)*XQ(10)
      RB(449) = RB(449)*XQ(14)
      RB(450) = RB(450)*XQ(18)
      RB(451) = RB(451)*XQ( 9)
      RF(452) = RF(452)*XQ( 9)
      RF(453) = RF(453)*XQ( 9)
      RB(453) = RB(453)*XQ(12)
      RB(454) = RB(454)*XQ(11)
      RF(455) = RF(455)*XQ( 8)
      RF(456) = RF(456)*XQ( 8)
      RF(457) = RF(457)*XQ( 8)
      RF(458) = RF(458)*XQ( 8)
      RB(458) = RB(458)*XQ(11)
      RF(460) = RF(460)*XQ(11)
      RF(461) = RF(461)*XQ(11)
      RF(462) = RF(462)*XQ(11)
      RF(463) = RF(463)*XQ( 7)
      RF(464) = RF(464)*XQ( 7)
      RB(465) = RB(465)*XQ( 1)
      RB(467) = RB(467)*XQ(15)
      RB(468) = RB(468)*XQ(15)
      RB(469) = RB(469)*XQ(17)
      RB(470) = RB(470)*XQ(14)
      RB(473) = RB(473)*XQ(17)
      RB(477) = RB(477)*XQ(14)
      RB(478) = RB(478)*XQ(17)
      RB(482) = RB(482)*XQ(18)
      RB(483) = RB(483)*XQ(18)
      RB(484) = RB(484)*XQ(14)
      RB(485) = RB(485)*XQ(18)
      RB(486) = RB(486)*XQ(18)
      RB(487) = RB(487)*XQ(18)
      RF(488) = RF(488)*XQ(18)
      RF(489) = RF(489)*XQ(18)
      RF(490) = RF(490)*XQ(18)
      RF(491) = RF(491)*XQ(18)
      RF(492) = RF(492)*XQ(18)
      RF(493) = RF(493)*XQ(18)
      RF(494) = RF(494)*XQ(18)
      RB(496) = RB(496)*XQ( 3)
C
      END
