LCOV - code coverage report
Current view: top level - chemistry/pp_trop_strat_mam5_ts2 - mo_nln_matrix.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 5330 5330 100.0 %
Date: 2025-03-14 01:18:36 Functions: 19 19 100.0 %

          Line data    Source code
       1             :       module mo_nln_matrix
       2             :       use shr_kind_mod, only : r8 => shr_kind_r8
       3             :       use chem_mods, only: veclen
       4             :       private
       5             :       public :: nlnmat
       6             :       contains
       7     8168963 :       subroutine nlnmat01( avec_len, mat, y, rxt )
       8             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
       9             :       implicit none
      10             : !----------------------------------------------
      11             : ! ... dummy arguments
      12             : !----------------------------------------------
      13             :       integer, intent(in) :: avec_len
      14             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
      15             :       real(r8), intent(in) :: rxt(veclen,rxntot)
      16             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
      17             : !----------------------------------------------
      18             : ! ... local variables
      19             : !----------------------------------------------
      20             :       integer :: k
      21             : !----------------------------------------------
      22             : ! ... complete matrix entries implicit species
      23             : !----------------------------------------------
      24   263009123 :       do k = 1,avec_len
      25   254840160 :          mat(k,752) = -(rxt(k,408)*y(k,295))
      26   254840160 :          mat(k,3955) = -rxt(k,408)*y(k,1)
      27   254840160 :          mat(k,2998) = rxt(k,411)*y(k,236)
      28   254840160 :          mat(k,1180) = rxt(k,411)*y(k,147)
      29   254840160 :          mat(k,718) = -(rxt(k,412)*y(k,295))
      30   254840160 :          mat(k,3952) = -rxt(k,412)*y(k,2)
      31   254840160 :          mat(k,1179) = rxt(k,409)*y(k,258)
      32   254840160 :          mat(k,3247) = rxt(k,409)*y(k,236)
      33             :          mat(k,1272) = -(rxt(k,584)*y(k,149) + rxt(k,602)*y(k,158) + rxt(k,603) &
      34   254840160 :                       *y(k,295))
      35   254840160 :          mat(k,3538) = -rxt(k,584)*y(k,4)
      36   254840160 :          mat(k,3692) = -rxt(k,602)*y(k,4)
      37   254840160 :          mat(k,4005) = -rxt(k,603)*y(k,4)
      38             :          mat(k,1041) = -(rxt(k,604)*y(k,149) + rxt(k,622)*y(k,158) + rxt(k,623) &
      39   254840160 :                       *y(k,295))
      40   254840160 :          mat(k,3531) = -rxt(k,604)*y(k,7)
      41   254840160 :          mat(k,3685) = -rxt(k,622)*y(k,7)
      42   254840160 :          mat(k,3985) = -rxt(k,623)*y(k,7)
      43   254840160 :          mat(k,182) = -(rxt(k,543)*y(k,295))
      44   254840160 :          mat(k,3874) = -rxt(k,543)*y(k,8)
      45   254840160 :          mat(k,417) = -(rxt(k,546)*y(k,295))
      46   254840160 :          mat(k,3913) = -rxt(k,546)*y(k,9)
      47   254840160 :          mat(k,512) = rxt(k,544)*y(k,258)
      48   254840160 :          mat(k,3228) = rxt(k,544)*y(k,243)
      49   254840160 :          mat(k,183) = .120_r8*rxt(k,543)*y(k,295)
      50   254840160 :          mat(k,3875) = .120_r8*rxt(k,543)*y(k,8)
      51             :          mat(k,2985) = .500_r8*rxt(k,545)*y(k,243) + .200_r8*rxt(k,572)*y(k,314) &
      52   254840160 :                       + .060_r8*rxt(k,578)*y(k,316)
      53   254840160 :          mat(k,513) = .500_r8*rxt(k,545)*y(k,147)
      54   254840160 :          mat(k,870) = .200_r8*rxt(k,572)*y(k,147)
      55   254840160 :          mat(k,892) = .060_r8*rxt(k,578)*y(k,147)
      56   254840160 :          mat(k,2980) = .200_r8*rxt(k,572)*y(k,314) + .200_r8*rxt(k,578)*y(k,316)
      57   254840160 :          mat(k,868) = .200_r8*rxt(k,572)*y(k,147)
      58   254840160 :          mat(k,889) = .200_r8*rxt(k,578)*y(k,147)
      59   254840160 :          mat(k,2982) = .200_r8*rxt(k,572)*y(k,314) + .150_r8*rxt(k,578)*y(k,316)
      60   254840160 :          mat(k,869) = .200_r8*rxt(k,572)*y(k,147)
      61   254840160 :          mat(k,891) = .150_r8*rxt(k,578)*y(k,147)
      62   254840160 :          mat(k,2981) = .210_r8*rxt(k,578)*y(k,316)
      63   254840160 :          mat(k,890) = .210_r8*rxt(k,578)*y(k,147)
      64   254840160 :          mat(k,204) = -(rxt(k,413)*y(k,295))
      65   254840160 :          mat(k,3878) = -rxt(k,413)*y(k,15)
      66   254840160 :          mat(k,1091) = .190_r8*rxt(k,642)*y(k,158)
      67   254840160 :          mat(k,3674) = .190_r8*rxt(k,642)*y(k,17)
      68   254840160 :          mat(k,377) = -(rxt(k,374)*y(k,149) + rxt(k,375)*y(k,295))
      69   254840160 :          mat(k,3527) = -rxt(k,374)*y(k,16)
      70   254840160 :          mat(k,3908) = -rxt(k,375)*y(k,16)
      71             :          mat(k,1092) = -(rxt(k,624)*y(k,149) + rxt(k,642)*y(k,158) + rxt(k,643) &
      72   254840160 :                       *y(k,295))
      73   254840160 :          mat(k,3533) = -rxt(k,624)*y(k,17)
      74   254840160 :          mat(k,3687) = -rxt(k,642)*y(k,17)
      75   254840160 :          mat(k,3988) = -rxt(k,643)*y(k,17)
      76             :          mat(k,2199) = -(rxt(k,254)*y(k,43) + rxt(k,255)*y(k,258) + rxt(k,256) &
      77   254840160 :                       *y(k,158))
      78   254840160 :          mat(k,3181) = -rxt(k,254)*y(k,18)
      79   254840160 :          mat(k,3338) = -rxt(k,255)*y(k,18)
      80   254840160 :          mat(k,3731) = -rxt(k,256)*y(k,18)
      81             :          mat(k,3479) = 4.000_r8*rxt(k,257)*y(k,20) + (rxt(k,258)+rxt(k,259))*y(k,60) &
      82             :                       + rxt(k,262)*y(k,147) + rxt(k,265)*y(k,157) + rxt(k,800) &
      83   254840160 :                       *y(k,174) + rxt(k,266)*y(k,295)
      84   254840160 :          mat(k,161) = rxt(k,244)*y(k,294)
      85   254840160 :          mat(k,167) = rxt(k,270)*y(k,294)
      86             :          mat(k,496) = 2.000_r8*rxt(k,281)*y(k,57) + 2.000_r8*rxt(k,293)*y(k,294) &
      87   254840160 :                       + 2.000_r8*rxt(k,282)*y(k,295)
      88   254840160 :          mat(k,647) = rxt(k,283)*y(k,57) + rxt(k,294)*y(k,294) + rxt(k,284)*y(k,295)
      89             :          mat(k,463) = 3.000_r8*rxt(k,288)*y(k,57) + 3.000_r8*rxt(k,271)*y(k,294) &
      90   254840160 :                       + 3.000_r8*rxt(k,289)*y(k,295)
      91             :          mat(k,3833) = 2.000_r8*rxt(k,281)*y(k,42) + rxt(k,283)*y(k,44) &
      92   254840160 :                       + 3.000_r8*rxt(k,288)*y(k,56)
      93   254840160 :          mat(k,3505) = (rxt(k,258)+rxt(k,259))*y(k,20)
      94   254840160 :          mat(k,128) = 2.000_r8*rxt(k,272)*y(k,294)
      95   254840160 :          mat(k,1151) = rxt(k,267)*y(k,157) + rxt(k,273)*y(k,294) + rxt(k,268)*y(k,295)
      96   254840160 :          mat(k,3079) = rxt(k,262)*y(k,20)
      97   254840160 :          mat(k,3155) = rxt(k,265)*y(k,20) + rxt(k,267)*y(k,83)
      98   254840160 :          mat(k,1601) = rxt(k,800)*y(k,20)
      99             :          mat(k,3793) = rxt(k,244)*y(k,35) + rxt(k,270)*y(k,36) + 2.000_r8*rxt(k,293) &
     100             :                       *y(k,42) + rxt(k,294)*y(k,44) + 3.000_r8*rxt(k,271)*y(k,56) &
     101   254840160 :                       + 2.000_r8*rxt(k,272)*y(k,80) + rxt(k,273)*y(k,83)
     102             :          mat(k,4062) = rxt(k,266)*y(k,20) + 2.000_r8*rxt(k,282)*y(k,42) + rxt(k,284) &
     103   254840160 :                       *y(k,44) + 3.000_r8*rxt(k,289)*y(k,56) + rxt(k,268)*y(k,83)
     104   254840160 :          mat(k,3473) = rxt(k,260)*y(k,60)
     105   254840160 :          mat(k,3499) = rxt(k,260)*y(k,20)
     106   254840160 :          mat(k,3122) = (rxt(k,892)+rxt(k,897))*y(k,95)
     107   254840160 :          mat(k,994) = (rxt(k,892)+rxt(k,897))*y(k,87)
     108             :          mat(k,3488) = -(4._r8*rxt(k,257)*y(k,20) + (rxt(k,258) + rxt(k,259) + rxt(k,260) &
     109             :                       ) * y(k,60) + rxt(k,261)*y(k,258) + rxt(k,262)*y(k,147) &
     110             :                       + rxt(k,263)*y(k,148) + rxt(k,265)*y(k,157) + rxt(k,266) &
     111   254840160 :                       *y(k,295) + rxt(k,800)*y(k,174))
     112   254840160 :          mat(k,3514) = -(rxt(k,258) + rxt(k,259) + rxt(k,260)) * y(k,20)
     113   254840160 :          mat(k,3371) = -rxt(k,261)*y(k,20)
     114   254840160 :          mat(k,3112) = -rxt(k,262)*y(k,20)
     115   254840160 :          mat(k,3660) = -rxt(k,263)*y(k,20)
     116   254840160 :          mat(k,3165) = -rxt(k,265)*y(k,20)
     117   254840160 :          mat(k,4094) = -rxt(k,266)*y(k,20)
     118   254840160 :          mat(k,1606) = -rxt(k,800)*y(k,20)
     119   254840160 :          mat(k,2204) = rxt(k,256)*y(k,158)
     120   254840160 :          mat(k,566) = rxt(k,264)*y(k,157)
     121   254840160 :          mat(k,1154) = rxt(k,274)*y(k,294)
     122   254840160 :          mat(k,999) = rxt(k,269)*y(k,157)
     123   254840160 :          mat(k,3165) = mat(k,3165) + rxt(k,264)*y(k,21) + rxt(k,269)*y(k,95)
     124   254840160 :          mat(k,3762) = rxt(k,256)*y(k,18)
     125   254840160 :          mat(k,3803) = rxt(k,274)*y(k,83)
     126   254840160 :          mat(k,561) = -(rxt(k,264)*y(k,157))
     127   254840160 :          mat(k,3145) = -rxt(k,264)*y(k,21)
     128   254840160 :          mat(k,3475) = rxt(k,263)*y(k,148)
     129   254840160 :          mat(k,3626) = rxt(k,263)*y(k,20)
     130   254840160 :          mat(k,245) = -(rxt(k,547)*y(k,295))
     131   254840160 :          mat(k,3885) = -rxt(k,547)*y(k,23)
     132   254840160 :          mat(k,2978) = rxt(k,550)*y(k,248)
     133   254840160 :          mat(k,435) = rxt(k,550)*y(k,147)
     134   254840160 :          mat(k,353) = -(rxt(k,549)*y(k,295))
     135   254840160 :          mat(k,3903) = -rxt(k,549)*y(k,24)
     136   254840160 :          mat(k,436) = rxt(k,548)*y(k,258)
     137   254840160 :          mat(k,3221) = rxt(k,548)*y(k,248)
     138   254840160 :          mat(k,310) = -(rxt(k,320)*y(k,57) + rxt(k,321)*y(k,295))
     139   254840160 :          mat(k,3813) = -rxt(k,320)*y(k,25)
     140   254840160 :          mat(k,3898) = -rxt(k,321)*y(k,25)
     141   254840160 :          mat(k,585) = -(rxt(k,322)*y(k,57) + rxt(k,323)*y(k,158) + rxt(k,350)*y(k,295))
     142   254840160 :          mat(k,3818) = -rxt(k,322)*y(k,26)
     143   254840160 :          mat(k,3677) = -rxt(k,323)*y(k,26)
     144   254840160 :          mat(k,3937) = -rxt(k,350)*y(k,26)
     145   254840160 :          mat(k,283) = -(rxt(k,328)*y(k,295))
     146   254840160 :          mat(k,3895) = -rxt(k,328)*y(k,27)
     147   254840160 :          mat(k,1348) = .800_r8*rxt(k,324)*y(k,249) + .200_r8*rxt(k,325)*y(k,253)
     148   254840160 :          mat(k,3381) = .200_r8*rxt(k,325)*y(k,249)
     149   254840160 :          mat(k,358) = -(rxt(k,329)*y(k,295))
     150   254840160 :          mat(k,3904) = -rxt(k,329)*y(k,28)
     151   254840160 :          mat(k,1349) = rxt(k,326)*y(k,258)
     152   254840160 :          mat(k,3222) = rxt(k,326)*y(k,249)
     153   254840160 :          mat(k,316) = -(rxt(k,330)*y(k,57) + rxt(k,331)*y(k,295))
     154   254840160 :          mat(k,3814) = -rxt(k,330)*y(k,29)
     155   254840160 :          mat(k,3899) = -rxt(k,331)*y(k,29)
     156             :          mat(k,1385) = -(rxt(k,353)*y(k,149) + rxt(k,354)*y(k,158) + rxt(k,372) &
     157   254840160 :                       *y(k,295))
     158   254840160 :          mat(k,3542) = -rxt(k,353)*y(k,30)
     159   254840160 :          mat(k,3696) = -rxt(k,354)*y(k,30)
     160   254840160 :          mat(k,4014) = -rxt(k,372)*y(k,30)
     161   254840160 :          mat(k,411) = -(rxt(k,358)*y(k,295))
     162   254840160 :          mat(k,3912) = -rxt(k,358)*y(k,31)
     163   254840160 :          mat(k,1023) = rxt(k,356)*y(k,258)
     164   254840160 :          mat(k,3227) = rxt(k,356)*y(k,250)
     165   254840160 :          mat(k,130) = -(rxt(k,359)*y(k,295))
     166   254840160 :          mat(k,3872) = -rxt(k,359)*y(k,32)
     167   254840160 :          mat(k,287) = -(rxt(k,553)*y(k,295))
     168   254840160 :          mat(k,3896) = -rxt(k,553)*y(k,33)
     169   254840160 :          mat(k,709) = rxt(k,551)*y(k,258)
     170   254840160 :          mat(k,3217) = rxt(k,551)*y(k,251)
     171   254840160 :          mat(k,120) = -(rxt(k,243)*y(k,294))
     172   254840160 :          mat(k,3771) = -rxt(k,243)*y(k,34)
     173   254840160 :          mat(k,159) = -(rxt(k,244)*y(k,294))
     174   254840160 :          mat(k,3776) = -rxt(k,244)*y(k,35)
     175   254840160 :          mat(k,164) = -(rxt(k,270)*y(k,294))
     176   254840160 :          mat(k,3777) = -rxt(k,270)*y(k,36)
     177   254840160 :          mat(k,134) = -(rxt(k,245)*y(k,294))
     178   254840160 :          mat(k,3773) = -rxt(k,245)*y(k,37)
     179   254840160 :          mat(k,169) = -(rxt(k,246)*y(k,294))
     180   254840160 :          mat(k,3778) = -rxt(k,246)*y(k,38)
     181   254840160 :          mat(k,138) = -(rxt(k,247)*y(k,294))
     182   254840160 :          mat(k,3774) = -rxt(k,247)*y(k,39)
     183   254840160 :          mat(k,174) = -(rxt(k,248)*y(k,294))
     184   254840160 :          mat(k,3779) = -rxt(k,248)*y(k,40)
     185   254840160 :          mat(k,142) = -(rxt(k,249)*y(k,294))
     186   254840160 :          mat(k,3775) = -rxt(k,249)*y(k,41)
     187   254840160 :          mat(k,495) = -(rxt(k,281)*y(k,57) + rxt(k,282)*y(k,295) + rxt(k,293)*y(k,294))
     188   254840160 :          mat(k,3817) = -rxt(k,281)*y(k,42)
     189   254840160 :          mat(k,3926) = -rxt(k,282)*y(k,42)
     190   254840160 :          mat(k,3788) = -rxt(k,293)*y(k,42)
     191             :          mat(k,3188) = -(rxt(k,218)*y(k,57) + rxt(k,254)*y(k,18) + rxt(k,298)*y(k,258) &
     192             :                       + rxt(k,299)*y(k,149) + rxt(k,300)*y(k,157) + rxt(k,301) &
     193   254840160 :                       *y(k,295))
     194   254840160 :          mat(k,3841) = -rxt(k,218)*y(k,43)
     195   254840160 :          mat(k,2202) = -rxt(k,254)*y(k,43)
     196   254840160 :          mat(k,3368) = -rxt(k,298)*y(k,43)
     197   254840160 :          mat(k,3605) = -rxt(k,299)*y(k,43)
     198   254840160 :          mat(k,3162) = -rxt(k,300)*y(k,43)
     199   254840160 :          mat(k,4091) = -rxt(k,301)*y(k,43)
     200   254840160 :          mat(k,758) = .400_r8*rxt(k,408)*y(k,295)
     201   254840160 :          mat(k,1284) = .270_r8*rxt(k,602)*y(k,158)
     202   254840160 :          mat(k,1049) = .080_r8*rxt(k,622)*y(k,158)
     203   254840160 :          mat(k,381) = .500_r8*rxt(k,374)*y(k,149)
     204   254840160 :          mat(k,1102) = .810_r8*rxt(k,642)*y(k,158)
     205   254840160 :          mat(k,589) = rxt(k,323)*y(k,158)
     206   254840160 :          mat(k,1393) = .500_r8*rxt(k,354)*y(k,158)
     207   254840160 :          mat(k,705) = .500_r8*rxt(k,340)*y(k,295)
     208   254840160 :          mat(k,1495) = rxt(k,306)*y(k,295)
     209   254840160 :          mat(k,451) = .300_r8*rxt(k,307)*y(k,295)
     210   254840160 :          mat(k,2264) = (rxt(k,316)+rxt(k,317))*y(k,294)
     211   254840160 :          mat(k,3511) = rxt(k,225)*y(k,253)
     212   254840160 :          mat(k,1715) = .800_r8*rxt(k,345)*y(k,295)
     213   254840160 :          mat(k,886) = .110_r8*rxt(k,347)*y(k,295)
     214   254840160 :          mat(k,1212) = .500_r8*rxt(k,311)*y(k,295)
     215   254840160 :          mat(k,927) = .300_r8*rxt(k,363)*y(k,295)
     216   254840160 :          mat(k,918) = .500_r8*rxt(k,419)*y(k,295)
     217   254840160 :          mat(k,508) = .400_r8*rxt(k,422)*y(k,295)
     218   254840160 :          mat(k,1261) = .590_r8*rxt(k,423)*y(k,295)
     219   254840160 :          mat(k,1424) = 1.010_r8*rxt(k,486)*y(k,158)
     220   254840160 :          mat(k,1081) = .330_r8*rxt(k,662)*y(k,158)
     221   254840160 :          mat(k,2023) = .120_r8*rxt(k,385)*y(k,158)
     222   254840160 :          mat(k,2048) = .600_r8*rxt(k,403)*y(k,158)
     223   254840160 :          mat(k,833) = .390_r8*rxt(k,682)*y(k,158)
     224             :          mat(k,3109) = .100_r8*rxt(k,410)*y(k,236) + .210_r8*rxt(k,597)*y(k,238) &
     225             :                       + .020_r8*rxt(k,629)*y(k,245) + .490_r8*rxt(k,637)*y(k,246) &
     226             :                       + rxt(k,305)*y(k,253) + .500_r8*rxt(k,377)*y(k,255) &
     227             :                       + .500_r8*rxt(k,342)*y(k,257) + rxt(k,505)*y(k,261) + rxt(k,507) &
     228             :                       *y(k,262) + .060_r8*rxt(k,513)*y(k,269) + .270_r8*rxt(k,515) &
     229             :                       *y(k,270) + rxt(k,517)*y(k,271) + .130_r8*rxt(k,519)*y(k,272) &
     230             :                       + .330_r8*rxt(k,521)*y(k,273) + .460_r8*rxt(k,523)*y(k,274) &
     231             :                       + .530_r8*rxt(k,525)*y(k,275) + .040_r8*rxt(k,527)*y(k,276) &
     232             :                       + .430_r8*rxt(k,657)*y(k,282) + .140_r8*rxt(k,535)*y(k,284) &
     233             :                       + rxt(k,392)*y(k,286) + .240_r8*rxt(k,537)*y(k,289) &
     234             :                       + .040_r8*rxt(k,669)*y(k,290) + .300_r8*rxt(k,677)*y(k,291) &
     235             :                       + rxt(k,366)*y(k,297) + rxt(k,370)*y(k,298) + .310_r8*rxt(k,688) &
     236             :                       *y(k,299) + 1.820_r8*rxt(k,741)*y(k,306) + .310_r8*rxt(k,761) &
     237   254840160 :                       *y(k,308)
     238             :          mat(k,3605) = mat(k,3605) + .500_r8*rxt(k,374)*y(k,16) + .440_r8*rxt(k,759) &
     239             :                       *y(k,212) + .500_r8*rxt(k,764)*y(k,213) + .270_r8*rxt(k,598) &
     240             :                       *y(k,238) + .020_r8*rxt(k,630)*y(k,245) + .650_r8*rxt(k,638) &
     241             :                       *y(k,246) + .460_r8*rxt(k,478)*y(k,274) + .560_r8*rxt(k,658) &
     242             :                       *y(k,282) + rxt(k,393)*y(k,286) + .040_r8*rxt(k,670)*y(k,290) &
     243   254840160 :                       + .420_r8*rxt(k,678)*y(k,291) + 2.000_r8*rxt(k,742)*y(k,306)
     244   254840160 :          mat(k,1457) = rxt(k,348)*y(k,295)
     245             :          mat(k,3759) = .270_r8*rxt(k,602)*y(k,4) + .080_r8*rxt(k,622)*y(k,7) &
     246             :                       + .810_r8*rxt(k,642)*y(k,17) + rxt(k,323)*y(k,26) &
     247             :                       + .500_r8*rxt(k,354)*y(k,30) + 1.010_r8*rxt(k,486)*y(k,109) &
     248             :                       + .330_r8*rxt(k,662)*y(k,125) + .120_r8*rxt(k,385)*y(k,126) &
     249             :                       + .600_r8*rxt(k,403)*y(k,132) + .390_r8*rxt(k,682)*y(k,135) &
     250   254840160 :                       + .620_r8*rxt(k,762)*y(k,212) + .340_r8*rxt(k,767)*y(k,213)
     251   254840160 :          mat(k,572) = rxt(k,349)*y(k,295)
     252   254840160 :          mat(k,660) = 2.000_r8*rxt(k,718)*y(k,295)
     253   254840160 :          mat(k,669) = rxt(k,737)*y(k,295)
     254   254840160 :          mat(k,2639) = .440_r8*rxt(k,759)*y(k,149) + .620_r8*rxt(k,762)*y(k,158)
     255   254840160 :          mat(k,2611) = .500_r8*rxt(k,764)*y(k,149) + .340_r8*rxt(k,767)*y(k,158)
     256   254840160 :          mat(k,1188) = .100_r8*rxt(k,410)*y(k,147)
     257   254840160 :          mat(k,2308) = .950_r8*rxt(k,587)*y(k,253)
     258             :          mat(k,2453) = .210_r8*rxt(k,597)*y(k,147) + .270_r8*rxt(k,598)*y(k,149) &
     259             :                       + .270_r8*rxt(k,594)*y(k,252) + .830_r8*rxt(k,595)*y(k,253) &
     260             :                       + .080_r8*rxt(k,596)*y(k,258) + .270_r8*rxt(k,599)*y(k,302) &
     261   254840160 :                       + .270_r8*rxt(k,600)*y(k,304) + .270_r8*rxt(k,601)*y(k,307)
     262   254840160 :          mat(k,2224) = .950_r8*rxt(k,607)*y(k,253)
     263   254840160 :          mat(k,2421) = .750_r8*rxt(k,615)*y(k,253)
     264             :          mat(k,2547) = .020_r8*rxt(k,629)*y(k,147) + .020_r8*rxt(k,630)*y(k,149) &
     265             :                       + .080_r8*rxt(k,625)*y(k,245) + .020_r8*rxt(k,626)*y(k,252) &
     266             :                       + .990_r8*rxt(k,627)*y(k,253) + .020_r8*rxt(k,628)*y(k,258) &
     267             :                       + .020_r8*rxt(k,631)*y(k,302) + .020_r8*rxt(k,632)*y(k,304) &
     268   254840160 :                       + .020_r8*rxt(k,633)*y(k,307)
     269             :          mat(k,2392) = .490_r8*rxt(k,637)*y(k,147) + .650_r8*rxt(k,638)*y(k,149) &
     270             :                       + .650_r8*rxt(k,634)*y(k,252) + 1.400_r8*rxt(k,635)*y(k,253) &
     271             :                       + .030_r8*rxt(k,636)*y(k,258) + .650_r8*rxt(k,639)*y(k,302) &
     272   254840160 :                       + .650_r8*rxt(k,640)*y(k,304) + .650_r8*rxt(k,641)*y(k,307)
     273   254840160 :          mat(k,1354) = .700_r8*rxt(k,325)*y(k,253)
     274   254840160 :          mat(k,1028) = rxt(k,355)*y(k,253)
     275             :          mat(k,2919) = .270_r8*rxt(k,594)*y(k,238) + .020_r8*rxt(k,626)*y(k,245) &
     276             :                       + .650_r8*rxt(k,634)*y(k,246) + rxt(k,336)*y(k,253) + rxt(k,424) &
     277             :                       *y(k,261) + rxt(k,430)*y(k,262) + .460_r8*rxt(k,474)*y(k,274) &
     278             :                       + .560_r8*rxt(k,654)*y(k,282) + .140_r8*rxt(k,381)*y(k,284) &
     279             :                       + rxt(k,388)*y(k,286) + .250_r8*rxt(k,400)*y(k,289) &
     280             :                       + .040_r8*rxt(k,665)*y(k,290) + .420_r8*rxt(k,674)*y(k,291) &
     281   254840160 :                       + 2.000_r8*rxt(k,738)*y(k,306)
     282             :          mat(k,3461) = rxt(k,225)*y(k,60) + rxt(k,305)*y(k,147) + .950_r8*rxt(k,587) &
     283             :                       *y(k,237) + .830_r8*rxt(k,595)*y(k,238) + .950_r8*rxt(k,607) &
     284             :                       *y(k,240) + .750_r8*rxt(k,615)*y(k,241) + .990_r8*rxt(k,627) &
     285             :                       *y(k,245) + 1.400_r8*rxt(k,635)*y(k,246) + .700_r8*rxt(k,325) &
     286             :                       *y(k,249) + rxt(k,355)*y(k,250) + rxt(k,336)*y(k,252) + ( &
     287             :                       + 4.000_r8*rxt(k,302)+2.000_r8*rxt(k,303))*y(k,253) &
     288             :                       + 1.750_r8*rxt(k,425)*y(k,261) + 1.250_r8*rxt(k,431)*y(k,262) &
     289             :                       + .750_r8*rxt(k,445)*y(k,267) + .750_r8*rxt(k,449)*y(k,268) &
     290             :                       + .710_r8*rxt(k,475)*y(k,274) + .750_r8*rxt(k,492)*y(k,278) &
     291             :                       + .750_r8*rxt(k,496)*y(k,279) + .910_r8*rxt(k,646)*y(k,281) &
     292             :                       + 1.030_r8*rxt(k,655)*y(k,282) + 1.100_r8*rxt(k,382)*y(k,284) &
     293             :                       + 2.000_r8*rxt(k,389)*y(k,286) + .870_r8*rxt(k,401)*y(k,289) &
     294             :                       + .980_r8*rxt(k,666)*y(k,290) + .750_r8*rxt(k,675)*y(k,291) &
     295             :                       + .800_r8*rxt(k,368)*y(k,298) + .750_r8*rxt(k,694)*y(k,301) &
     296             :                       + rxt(k,702)*y(k,302) + rxt(k,710)*y(k,303) + rxt(k,720) &
     297             :                       *y(k,304) + rxt(k,729)*y(k,305) + 3.000_r8*rxt(k,739)*y(k,306) &
     298   254840160 :                       + rxt(k,750)*y(k,307)
     299   254840160 :          mat(k,610) = .500_r8*rxt(k,377)*y(k,147)
     300   254840160 :          mat(k,858) = .500_r8*rxt(k,342)*y(k,147)
     301             :          mat(k,3368) = mat(k,3368) + .080_r8*rxt(k,596)*y(k,238) + .020_r8*rxt(k,628) &
     302             :                       *y(k,245) + .030_r8*rxt(k,636)*y(k,246) + .060_r8*rxt(k,426) &
     303             :                       *y(k,261) + .060_r8*rxt(k,432)*y(k,262) + .030_r8*rxt(k,457) &
     304             :                       *y(k,269) + .060_r8*rxt(k,461)*y(k,270) + .600_r8*rxt(k,464) &
     305             :                       *y(k,271) + .060_r8*rxt(k,467)*y(k,272) + .100_r8*rxt(k,471) &
     306             :                       *y(k,273) + .240_r8*rxt(k,476)*y(k,274) + .170_r8*rxt(k,479) &
     307             :                       *y(k,275) + .030_r8*rxt(k,482)*y(k,276) + .060_r8*rxt(k,656) &
     308             :                       *y(k,282) + .080_r8*rxt(k,383)*y(k,284) + .490_r8*rxt(k,390) &
     309             :                       *y(k,286) + .050_r8*rxt(k,402)*y(k,289) + .020_r8*rxt(k,667) &
     310             :                       *y(k,290) + .040_r8*rxt(k,676)*y(k,291) + .150_r8*rxt(k,369) &
     311             :                       *y(k,298) + .080_r8*rxt(k,687)*y(k,299) + 1.060_r8*rxt(k,740) &
     312   254840160 :                       *y(k,306) + .040_r8*rxt(k,760)*y(k,308)
     313             :          mat(k,1963) = rxt(k,505)*y(k,147) + rxt(k,424)*y(k,252) + 1.750_r8*rxt(k,425) &
     314   254840160 :                       *y(k,253) + .060_r8*rxt(k,426)*y(k,258)
     315             :          mat(k,2002) = rxt(k,507)*y(k,147) + rxt(k,430)*y(k,252) + 1.250_r8*rxt(k,431) &
     316   254840160 :                       *y(k,253) + .060_r8*rxt(k,432)*y(k,258)
     317   254840160 :          mat(k,1743) = .750_r8*rxt(k,445)*y(k,253)
     318   254840160 :          mat(k,1765) = .750_r8*rxt(k,449)*y(k,253)
     319   254840160 :          mat(k,1128) = .060_r8*rxt(k,513)*y(k,147) + .030_r8*rxt(k,457)*y(k,258)
     320   254840160 :          mat(k,1174) = .270_r8*rxt(k,515)*y(k,147) + .060_r8*rxt(k,461)*y(k,258)
     321   254840160 :          mat(k,1060) = rxt(k,517)*y(k,147) + .600_r8*rxt(k,464)*y(k,258)
     322   254840160 :          mat(k,1139) = .130_r8*rxt(k,519)*y(k,147) + .060_r8*rxt(k,467)*y(k,258)
     323   254840160 :          mat(k,1450) = .330_r8*rxt(k,521)*y(k,147) + .100_r8*rxt(k,471)*y(k,258)
     324             :          mat(k,2188) = .460_r8*rxt(k,523)*y(k,147) + .460_r8*rxt(k,478)*y(k,149) &
     325             :                       + .460_r8*rxt(k,474)*y(k,252) + .710_r8*rxt(k,475)*y(k,253) &
     326   254840160 :                       + .240_r8*rxt(k,476)*y(k,258) + .320_r8*rxt(k,477)*y(k,274)
     327   254840160 :          mat(k,1319) = .530_r8*rxt(k,525)*y(k,147) + .170_r8*rxt(k,479)*y(k,258)
     328   254840160 :          mat(k,1373) = .040_r8*rxt(k,527)*y(k,147) + .030_r8*rxt(k,482)*y(k,258)
     329   254840160 :          mat(k,1860) = .750_r8*rxt(k,492)*y(k,253)
     330   254840160 :          mat(k,1829) = .750_r8*rxt(k,496)*y(k,253)
     331   254840160 :          mat(k,2518) = .910_r8*rxt(k,646)*y(k,253)
     332             :          mat(k,2352) = .430_r8*rxt(k,657)*y(k,147) + .560_r8*rxt(k,658)*y(k,149) &
     333             :                       + .560_r8*rxt(k,654)*y(k,252) + 1.030_r8*rxt(k,655)*y(k,253) &
     334             :                       + .060_r8*rxt(k,656)*y(k,258) + .560_r8*rxt(k,659)*y(k,302) &
     335   254840160 :                       + .560_r8*rxt(k,660)*y(k,304) + .560_r8*rxt(k,661)*y(k,307)
     336             :          mat(k,1552) = .140_r8*rxt(k,535)*y(k,147) + .140_r8*rxt(k,381)*y(k,252) &
     337   254840160 :                       + 1.100_r8*rxt(k,382)*y(k,253) + .080_r8*rxt(k,383)*y(k,258)
     338             :          mat(k,1626) = rxt(k,392)*y(k,147) + rxt(k,393)*y(k,149) + rxt(k,388)*y(k,252) &
     339             :                       + 2.000_r8*rxt(k,389)*y(k,253) + .490_r8*rxt(k,390)*y(k,258) &
     340   254840160 :                       + 4.000_r8*rxt(k,391)*y(k,286)
     341             :          mat(k,1516) = .240_r8*rxt(k,537)*y(k,147) + .250_r8*rxt(k,400)*y(k,252) &
     342   254840160 :                       + .870_r8*rxt(k,401)*y(k,253) + .050_r8*rxt(k,402)*y(k,258)
     343             :          mat(k,2583) = .040_r8*rxt(k,669)*y(k,147) + .040_r8*rxt(k,670)*y(k,149) &
     344             :                       + .040_r8*rxt(k,665)*y(k,252) + .980_r8*rxt(k,666)*y(k,253) &
     345             :                       + .020_r8*rxt(k,667)*y(k,258) + .120_r8*rxt(k,668)*y(k,290) &
     346             :                       + .040_r8*rxt(k,671)*y(k,302) + .040_r8*rxt(k,672)*y(k,304) &
     347   254840160 :                       + .040_r8*rxt(k,673)*y(k,307)
     348             :          mat(k,2484) = .300_r8*rxt(k,677)*y(k,147) + .420_r8*rxt(k,678)*y(k,149) &
     349             :                       + .420_r8*rxt(k,674)*y(k,252) + .750_r8*rxt(k,675)*y(k,253) &
     350             :                       + .040_r8*rxt(k,676)*y(k,258) + .420_r8*rxt(k,679)*y(k,302) &
     351   254840160 :                       + .420_r8*rxt(k,680)*y(k,304) + .420_r8*rxt(k,681)*y(k,307)
     352   254840160 :          mat(k,3800) = (rxt(k,316)+rxt(k,317))*y(k,55)
     353             :          mat(k,4091) = mat(k,4091) + .400_r8*rxt(k,408)*y(k,1) + .500_r8*rxt(k,340) &
     354             :                       *y(k,52) + rxt(k,306)*y(k,53) + .300_r8*rxt(k,307)*y(k,54) &
     355             :                       + .800_r8*rxt(k,345)*y(k,76) + .110_r8*rxt(k,347)*y(k,89) &
     356             :                       + .500_r8*rxt(k,311)*y(k,92) + .300_r8*rxt(k,363)*y(k,104) &
     357             :                       + .500_r8*rxt(k,419)*y(k,105) + .400_r8*rxt(k,422)*y(k,107) &
     358             :                       + .590_r8*rxt(k,423)*y(k,108) + rxt(k,348)*y(k,150) + rxt(k,349) &
     359   254840160 :                       *y(k,163) + 2.000_r8*rxt(k,718)*y(k,204) + rxt(k,737)*y(k,206)
     360   254840160 :          mat(k,943) = rxt(k,366)*y(k,147)
     361             :          mat(k,1342) = rxt(k,370)*y(k,147) + .800_r8*rxt(k,368)*y(k,253) &
     362   254840160 :                       + .150_r8*rxt(k,369)*y(k,258)
     363   254840160 :          mat(k,956) = .310_r8*rxt(k,688)*y(k,147) + .080_r8*rxt(k,687)*y(k,258)
     364   254840160 :          mat(k,2664) = .750_r8*rxt(k,694)*y(k,253)
     365             :          mat(k,2753) = .270_r8*rxt(k,599)*y(k,238) + .020_r8*rxt(k,631)*y(k,245) &
     366             :                       + .650_r8*rxt(k,639)*y(k,246) + rxt(k,702)*y(k,253) &
     367             :                       + .560_r8*rxt(k,659)*y(k,282) + .040_r8*rxt(k,671)*y(k,290) &
     368   254840160 :                       + .420_r8*rxt(k,679)*y(k,291) + 2.000_r8*rxt(k,743)*y(k,306)
     369   254840160 :          mat(k,2709) = rxt(k,710)*y(k,253)
     370             :          mat(k,2799) = .270_r8*rxt(k,600)*y(k,238) + .020_r8*rxt(k,632)*y(k,245) &
     371             :                       + .650_r8*rxt(k,640)*y(k,246) + rxt(k,720)*y(k,253) &
     372             :                       + .560_r8*rxt(k,660)*y(k,282) + .040_r8*rxt(k,672)*y(k,290) &
     373   254840160 :                       + .420_r8*rxt(k,680)*y(k,291) + 2.000_r8*rxt(k,744)*y(k,306)
     374   254840160 :          mat(k,2248) = rxt(k,729)*y(k,253)
     375             :          mat(k,2686) = 1.820_r8*rxt(k,741)*y(k,147) + 2.000_r8*rxt(k,742)*y(k,149) &
     376             :                       + 2.000_r8*rxt(k,738)*y(k,252) + 3.000_r8*rxt(k,739)*y(k,253) &
     377             :                       + 1.060_r8*rxt(k,740)*y(k,258) + 2.000_r8*rxt(k,743)*y(k,302) &
     378   254840160 :                       + 2.000_r8*rxt(k,744)*y(k,304) + 2.000_r8*rxt(k,745)*y(k,307)
     379             :          mat(k,2846) = .270_r8*rxt(k,601)*y(k,238) + .020_r8*rxt(k,633)*y(k,245) &
     380             :                       + .650_r8*rxt(k,641)*y(k,246) + rxt(k,750)*y(k,253) &
     381             :                       + .560_r8*rxt(k,661)*y(k,282) + .040_r8*rxt(k,673)*y(k,290) &
     382   254840160 :                       + .420_r8*rxt(k,681)*y(k,291) + 2.000_r8*rxt(k,745)*y(k,306)
     383   263009123 :          mat(k,801) = .310_r8*rxt(k,761)*y(k,147) + .040_r8*rxt(k,760)*y(k,258)
     384             :       end do
     385     8168963 :       end subroutine nlnmat01
     386     8168963 :       subroutine nlnmat02( avec_len, mat, y, rxt )
     387             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
     388             :       implicit none
     389             : !----------------------------------------------
     390             : ! ... dummy arguments
     391             : !----------------------------------------------
     392             :       integer, intent(in) :: avec_len
     393             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
     394             :       real(r8), intent(in) :: rxt(veclen,rxntot)
     395             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
     396             : !----------------------------------------------
     397             : ! ... local variables
     398             : !----------------------------------------------
     399             :       integer :: k
     400             : !----------------------------------------------
     401             : ! ... complete matrix entries implicit species
     402             : !----------------------------------------------
     403   263009123 :       do k = 1,avec_len
     404   254840160 :          mat(k,646) = -(rxt(k,283)*y(k,57) + rxt(k,284)*y(k,295) + rxt(k,294)*y(k,294))
     405   254840160 :          mat(k,3819) = -rxt(k,283)*y(k,44)
     406   254840160 :          mat(k,3944) = -rxt(k,284)*y(k,44)
     407   254840160 :          mat(k,3789) = -rxt(k,294)*y(k,44)
     408   254840160 :          mat(k,146) = -(rxt(k,285)*y(k,295))
     409   254840160 :          mat(k,3873) = -rxt(k,285)*y(k,45)
     410   254840160 :          mat(k,1431) = -(rxt(k,332)*y(k,149) + rxt(k,333)*y(k,295))
     411   254840160 :          mat(k,3544) = -rxt(k,332)*y(k,46)
     412   254840160 :          mat(k,4016) = -rxt(k,333)*y(k,46)
     413   254840160 :          mat(k,755) = .800_r8*rxt(k,408)*y(k,295)
     414   254840160 :          mat(k,379) = rxt(k,374)*y(k,149)
     415   254840160 :          mat(k,284) = rxt(k,328)*y(k,295)
     416   254840160 :          mat(k,360) = .500_r8*rxt(k,329)*y(k,295)
     417   254840160 :          mat(k,1386) = .500_r8*rxt(k,354)*y(k,158)
     418   254840160 :          mat(k,2033) = .100_r8*rxt(k,403)*y(k,158)
     419             :          mat(k,3037) = .400_r8*rxt(k,410)*y(k,236) + rxt(k,327)*y(k,249) &
     420             :                       + .270_r8*rxt(k,357)*y(k,250) + rxt(k,377)*y(k,255) + rxt(k,395) &
     421   254840160 :                       *y(k,288) + rxt(k,366)*y(k,297)
     422   254840160 :          mat(k,3544) = mat(k,3544) + rxt(k,374)*y(k,16)
     423   254840160 :          mat(k,3698) = .500_r8*rxt(k,354)*y(k,30) + .100_r8*rxt(k,403)*y(k,132)
     424   254840160 :          mat(k,1184) = .400_r8*rxt(k,410)*y(k,147)
     425             :          mat(k,1351) = rxt(k,327)*y(k,147) + 3.200_r8*rxt(k,324)*y(k,249) &
     426   254840160 :                       + .800_r8*rxt(k,325)*y(k,253)
     427   254840160 :          mat(k,1025) = .270_r8*rxt(k,357)*y(k,147)
     428   254840160 :          mat(k,3392) = .800_r8*rxt(k,325)*y(k,249)
     429   254840160 :          mat(k,607) = rxt(k,377)*y(k,147)
     430   254840160 :          mat(k,3294) = .200_r8*rxt(k,394)*y(k,288)
     431   254840160 :          mat(k,764) = rxt(k,395)*y(k,147) + .200_r8*rxt(k,394)*y(k,258)
     432             :          mat(k,4016) = mat(k,4016) + .800_r8*rxt(k,408)*y(k,1) + rxt(k,328)*y(k,27) &
     433   254840160 :                       + .500_r8*rxt(k,329)*y(k,28)
     434   254840160 :          mat(k,940) = rxt(k,366)*y(k,147)
     435   254840160 :          mat(k,393) = -(rxt(k,286)*y(k,57) + rxt(k,287)*y(k,295))
     436   254840160 :          mat(k,3815) = -rxt(k,286)*y(k,47)
     437   254840160 :          mat(k,3910) = -rxt(k,287)*y(k,47)
     438   254840160 :          mat(k,123) = -(rxt(k,334)*y(k,295))
     439   254840160 :          mat(k,3871) = -rxt(k,334)*y(k,48)
     440   254840160 :          mat(k,2277) = -(rxt(k,373)*y(k,295))
     441   254840160 :          mat(k,4065) = -rxt(k,373)*y(k,49)
     442   254840160 :          mat(k,756) = .800_r8*rxt(k,408)*y(k,295)
     443   254840160 :          mat(k,380) = .500_r8*rxt(k,374)*y(k,149)
     444   254840160 :          mat(k,829) = .250_r8*rxt(k,682)*y(k,158)
     445             :          mat(k,3083) = .250_r8*rxt(k,410)*y(k,236) + .090_r8*rxt(k,597)*y(k,238) &
     446             :                       + .080_r8*rxt(k,637)*y(k,246) + .820_r8*rxt(k,357)*y(k,250) &
     447             :                       + .500_r8*rxt(k,377)*y(k,255) + .850_r8*rxt(k,669)*y(k,290) &
     448   254840160 :                       + .330_r8*rxt(k,677)*y(k,291) + .700_r8*rxt(k,731)*y(k,305)
     449             :          mat(k,3579) = .500_r8*rxt(k,374)*y(k,16) + .120_r8*rxt(k,598)*y(k,238) &
     450             :                       + .110_r8*rxt(k,638)*y(k,246) + .910_r8*rxt(k,670)*y(k,290) &
     451   254840160 :                       + .460_r8*rxt(k,678)*y(k,291) + rxt(k,732)*y(k,305)
     452   254840160 :          mat(k,3734) = .250_r8*rxt(k,682)*y(k,135)
     453   254840160 :          mat(k,658) = rxt(k,718)*y(k,295)
     454   254840160 :          mat(k,1185) = .250_r8*rxt(k,410)*y(k,147)
     455             :          mat(k,2438) = .090_r8*rxt(k,597)*y(k,147) + .120_r8*rxt(k,598)*y(k,149) &
     456             :                       + .120_r8*rxt(k,594)*y(k,252) + .060_r8*rxt(k,595)*y(k,253) &
     457             :                       + .060_r8*rxt(k,596)*y(k,258) + .120_r8*rxt(k,599)*y(k,302) &
     458   254840160 :                       + .120_r8*rxt(k,600)*y(k,304) + .120_r8*rxt(k,601)*y(k,307)
     459             :          mat(k,2377) = .080_r8*rxt(k,637)*y(k,147) + .110_r8*rxt(k,638)*y(k,149) &
     460             :                       + .110_r8*rxt(k,634)*y(k,252) + .080_r8*rxt(k,635)*y(k,253) &
     461             :                       + .110_r8*rxt(k,639)*y(k,302) + .110_r8*rxt(k,640)*y(k,304) &
     462   254840160 :                       + .110_r8*rxt(k,641)*y(k,307)
     463   254840160 :          mat(k,1026) = .820_r8*rxt(k,357)*y(k,147) + .820_r8*rxt(k,355)*y(k,253)
     464             :          mat(k,2893) = .120_r8*rxt(k,594)*y(k,238) + .110_r8*rxt(k,634)*y(k,246) &
     465             :                       + .910_r8*rxt(k,665)*y(k,290) + .460_r8*rxt(k,674)*y(k,291) &
     466   254840160 :                       + rxt(k,728)*y(k,305)
     467             :          mat(k,3435) = .060_r8*rxt(k,595)*y(k,238) + .080_r8*rxt(k,635)*y(k,246) &
     468             :                       + .820_r8*rxt(k,355)*y(k,250) + .100_r8*rxt(k,382)*y(k,284) &
     469   254840160 :                       + .740_r8*rxt(k,666)*y(k,290) + rxt(k,729)*y(k,305)
     470   254840160 :          mat(k,608) = .500_r8*rxt(k,377)*y(k,147)
     471             :          mat(k,3342) = .060_r8*rxt(k,596)*y(k,238) + .460_r8*rxt(k,667)*y(k,290) &
     472   254840160 :                       + .050_r8*rxt(k,676)*y(k,291) + .150_r8*rxt(k,730)*y(k,305)
     473   254840160 :          mat(k,1549) = .100_r8*rxt(k,382)*y(k,253)
     474             :          mat(k,2567) = .850_r8*rxt(k,669)*y(k,147) + .910_r8*rxt(k,670)*y(k,149) &
     475             :                       + .910_r8*rxt(k,665)*y(k,252) + .740_r8*rxt(k,666)*y(k,253) &
     476             :                       + .460_r8*rxt(k,667)*y(k,258) + 2.960_r8*rxt(k,668)*y(k,290) &
     477             :                       + .910_r8*rxt(k,671)*y(k,302) + .910_r8*rxt(k,672)*y(k,304) &
     478   254840160 :                       + .910_r8*rxt(k,673)*y(k,307)
     479             :          mat(k,2468) = .330_r8*rxt(k,677)*y(k,147) + .460_r8*rxt(k,678)*y(k,149) &
     480             :                       + .460_r8*rxt(k,674)*y(k,252) + .050_r8*rxt(k,676)*y(k,258) &
     481             :                       + .460_r8*rxt(k,679)*y(k,302) + .460_r8*rxt(k,680)*y(k,304) &
     482   254840160 :                       + .460_r8*rxt(k,681)*y(k,307)
     483   254840160 :          mat(k,4065) = mat(k,4065) + .800_r8*rxt(k,408)*y(k,1) + rxt(k,718)*y(k,204)
     484             :          mat(k,2728) = .120_r8*rxt(k,599)*y(k,238) + .110_r8*rxt(k,639)*y(k,246) &
     485             :                       + .910_r8*rxt(k,671)*y(k,290) + .460_r8*rxt(k,679)*y(k,291) &
     486   254840160 :                       + rxt(k,733)*y(k,305)
     487             :          mat(k,2774) = .120_r8*rxt(k,600)*y(k,238) + .110_r8*rxt(k,640)*y(k,246) &
     488             :                       + .910_r8*rxt(k,672)*y(k,290) + .460_r8*rxt(k,680)*y(k,291) &
     489   254840160 :                       + rxt(k,734)*y(k,305)
     490             :          mat(k,2236) = .700_r8*rxt(k,731)*y(k,147) + rxt(k,732)*y(k,149) + rxt(k,728) &
     491             :                       *y(k,252) + rxt(k,729)*y(k,253) + .150_r8*rxt(k,730)*y(k,258) &
     492             :                       + rxt(k,733)*y(k,302) + rxt(k,734)*y(k,304) + rxt(k,735) &
     493   254840160 :                       *y(k,307)
     494             :          mat(k,2821) = .120_r8*rxt(k,601)*y(k,238) + .110_r8*rxt(k,641)*y(k,246) &
     495             :                       + .910_r8*rxt(k,673)*y(k,290) + .460_r8*rxt(k,681)*y(k,291) &
     496   254840160 :                       + rxt(k,735)*y(k,305)
     497   254840160 :          mat(k,1926) = -(rxt(k,360)*y(k,149) + rxt(k,361)*y(k,295))
     498   254840160 :          mat(k,3565) = -rxt(k,360)*y(k,50)
     499   254840160 :          mat(k,4052) = -rxt(k,361)*y(k,50)
     500   254840160 :          mat(k,619) = .380_r8*rxt(k,414)*y(k,295)
     501   254840160 :          mat(k,632) = .030_r8*rxt(k,415)*y(k,295)
     502   254840160 :          mat(k,1771) = rxt(k,362)*y(k,295)
     503   254840160 :          mat(k,1874) = .460_r8*rxt(k,418)*y(k,295)
     504   254840160 :          mat(k,925) = .700_r8*rxt(k,363)*y(k,295)
     505   254840160 :          mat(k,916) = .500_r8*rxt(k,419)*y(k,295)
     506   254840160 :          mat(k,506) = .400_r8*rxt(k,422)*y(k,295)
     507   254840160 :          mat(k,774) = .720_r8*rxt(k,456)*y(k,295)
     508   254840160 :          mat(k,2076) = .170_r8*rxt(k,459)*y(k,158)
     509   254840160 :          mat(k,2108) = .170_r8*rxt(k,469)*y(k,158)
     510   254840160 :          mat(k,1581) = .170_r8*rxt(k,484)*y(k,158)
     511   254840160 :          mat(k,2015) = .880_r8*rxt(k,385)*y(k,158)
     512   254840160 :          mat(k,2040) = .500_r8*rxt(k,403)*y(k,158)
     513   254840160 :          mat(k,1500) = .440_r8*rxt(k,405)*y(k,295)
     514   254840160 :          mat(k,2138) = .340_r8*rxt(k,501)*y(k,158)
     515             :          mat(k,3069) = .170_r8*rxt(k,556)*y(k,254) + .710_r8*rxt(k,503)*y(k,260) &
     516             :                       + .140_r8*rxt(k,535)*y(k,284) + .170_r8*rxt(k,562)*y(k,287) &
     517             :                       + .240_r8*rxt(k,537)*y(k,289) + .120_r8*rxt(k,539)*y(k,293) &
     518             :                       + .400_r8*rxt(k,572)*y(k,314) + .540_r8*rxt(k,578)*y(k,316) &
     519   254840160 :                       + .510_r8*rxt(k,581)*y(k,318)
     520   254840160 :          mat(k,1482) = rxt(k,364)*y(k,295)
     521             :          mat(k,3721) = .170_r8*rxt(k,459)*y(k,115) + .170_r8*rxt(k,469)*y(k,118) &
     522             :                       + .170_r8*rxt(k,484)*y(k,121) + .880_r8*rxt(k,385)*y(k,126) &
     523   254840160 :                       + .500_r8*rxt(k,403)*y(k,132) + .340_r8*rxt(k,501)*y(k,139)
     524   254840160 :          mat(k,2880) = .140_r8*rxt(k,381)*y(k,284) + .250_r8*rxt(k,400)*y(k,289)
     525   254840160 :          mat(k,3422) = .120_r8*rxt(k,401)*y(k,289) + .500_r8*rxt(k,368)*y(k,298)
     526   254840160 :          mat(k,907) = .170_r8*rxt(k,556)*y(k,147) + .070_r8*rxt(k,555)*y(k,258)
     527             :          mat(k,3328) = .070_r8*rxt(k,555)*y(k,254) + .460_r8*rxt(k,421)*y(k,260) &
     528             :                       + .080_r8*rxt(k,383)*y(k,284) + .070_r8*rxt(k,561)*y(k,287) &
     529   254840160 :                       + .050_r8*rxt(k,402)*y(k,289) + .100_r8*rxt(k,499)*y(k,293)
     530   254840160 :          mat(k,1303) = .710_r8*rxt(k,503)*y(k,147) + .460_r8*rxt(k,421)*y(k,258)
     531             :          mat(k,1547) = .140_r8*rxt(k,535)*y(k,147) + .140_r8*rxt(k,381)*y(k,252) &
     532   254840160 :                       + .080_r8*rxt(k,383)*y(k,258)
     533   254840160 :          mat(k,931) = .170_r8*rxt(k,562)*y(k,147) + .070_r8*rxt(k,561)*y(k,258)
     534             :          mat(k,1512) = .240_r8*rxt(k,537)*y(k,147) + .250_r8*rxt(k,400)*y(k,252) &
     535   254840160 :                       + .120_r8*rxt(k,401)*y(k,253) + .050_r8*rxt(k,402)*y(k,258)
     536   254840160 :          mat(k,1646) = .120_r8*rxt(k,539)*y(k,147) + .100_r8*rxt(k,499)*y(k,258)
     537             :          mat(k,4052) = mat(k,4052) + .380_r8*rxt(k,414)*y(k,98) + .030_r8*rxt(k,415) &
     538             :                       *y(k,99) + rxt(k,362)*y(k,102) + .460_r8*rxt(k,418)*y(k,103) &
     539             :                       + .700_r8*rxt(k,363)*y(k,104) + .500_r8*rxt(k,419)*y(k,105) &
     540             :                       + .400_r8*rxt(k,422)*y(k,107) + .720_r8*rxt(k,456)*y(k,114) &
     541   254840160 :                       + .440_r8*rxt(k,405)*y(k,134) + rxt(k,364)*y(k,151)
     542   254840160 :          mat(k,1339) = .500_r8*rxt(k,368)*y(k,253)
     543   254840160 :          mat(k,877) = .400_r8*rxt(k,572)*y(k,147)
     544   254840160 :          mat(k,899) = .540_r8*rxt(k,578)*y(k,147)
     545   254840160 :          mat(k,538) = .510_r8*rxt(k,581)*y(k,147)
     546   254840160 :          mat(k,791) = -(rxt(k,339)*y(k,295))
     547   254840160 :          mat(k,3960) = -rxt(k,339)*y(k,51)
     548   254840160 :          mat(k,1382) = .120_r8*rxt(k,354)*y(k,158)
     549   254840160 :          mat(k,3680) = .120_r8*rxt(k,354)*y(k,30)
     550   254840160 :          mat(k,2857) = .100_r8*rxt(k,336)*y(k,253) + .150_r8*rxt(k,337)*y(k,258)
     551   254840160 :          mat(k,3384) = .100_r8*rxt(k,336)*y(k,252)
     552   254840160 :          mat(k,3253) = .150_r8*rxt(k,337)*y(k,252) + .150_r8*rxt(k,390)*y(k,286)
     553   254840160 :          mat(k,1618) = .150_r8*rxt(k,390)*y(k,258)
     554   254840160 :          mat(k,702) = -(rxt(k,340)*y(k,295))
     555   254840160 :          mat(k,3950) = -rxt(k,340)*y(k,52)
     556   254840160 :          mat(k,2856) = .360_r8*rxt(k,337)*y(k,258)
     557   254840160 :          mat(k,3245) = .360_r8*rxt(k,337)*y(k,252) + .360_r8*rxt(k,390)*y(k,286)
     558   254840160 :          mat(k,1617) = .360_r8*rxt(k,390)*y(k,258)
     559   254840160 :          mat(k,1494) = -(rxt(k,306)*y(k,295))
     560   254840160 :          mat(k,4024) = -rxt(k,306)*y(k,53)
     561   254840160 :          mat(k,2291) = .050_r8*rxt(k,587)*y(k,253)
     562   254840160 :          mat(k,2430) = .170_r8*rxt(k,595)*y(k,253)
     563   254840160 :          mat(k,2210) = .050_r8*rxt(k,607)*y(k,253)
     564   254840160 :          mat(k,2402) = .250_r8*rxt(k,615)*y(k,253)
     565   254840160 :          mat(k,2529) = .030_r8*rxt(k,627)*y(k,253)
     566   254840160 :          mat(k,1352) = .300_r8*rxt(k,325)*y(k,253)
     567             :          mat(k,3398) = .050_r8*rxt(k,587)*y(k,237) + .170_r8*rxt(k,595)*y(k,238) &
     568             :                       + .050_r8*rxt(k,607)*y(k,240) + .250_r8*rxt(k,615)*y(k,241) &
     569             :                       + .030_r8*rxt(k,627)*y(k,245) + .300_r8*rxt(k,325)*y(k,249) &
     570             :                       + 2.000_r8*rxt(k,303)*y(k,253) + .250_r8*rxt(k,431)*y(k,262) &
     571             :                       + .250_r8*rxt(k,445)*y(k,267) + .250_r8*rxt(k,449)*y(k,268) &
     572             :                       + .360_r8*rxt(k,475)*y(k,274) + .250_r8*rxt(k,492)*y(k,278) &
     573             :                       + .250_r8*rxt(k,496)*y(k,279) + .090_r8*rxt(k,646)*y(k,281) &
     574             :                       + .250_r8*rxt(k,655)*y(k,282) + .250_r8*rxt(k,401)*y(k,289) &
     575             :                       + .050_r8*rxt(k,666)*y(k,290) + .250_r8*rxt(k,675)*y(k,291) &
     576   254840160 :                       + .500_r8*rxt(k,368)*y(k,298) + .250_r8*rxt(k,694)*y(k,301)
     577   254840160 :          mat(k,1976) = .250_r8*rxt(k,431)*y(k,253)
     578   254840160 :          mat(k,1728) = .250_r8*rxt(k,445)*y(k,253)
     579   254840160 :          mat(k,1751) = .250_r8*rxt(k,449)*y(k,253)
     580   254840160 :          mat(k,2163) = .360_r8*rxt(k,475)*y(k,253)
     581   254840160 :          mat(k,1842) = .250_r8*rxt(k,492)*y(k,253)
     582   254840160 :          mat(k,1811) = .250_r8*rxt(k,496)*y(k,253)
     583   254840160 :          mat(k,2497) = .090_r8*rxt(k,646)*y(k,253)
     584   254840160 :          mat(k,2333) = .250_r8*rxt(k,655)*y(k,253)
     585   254840160 :          mat(k,1506) = .250_r8*rxt(k,401)*y(k,253)
     586   254840160 :          mat(k,2560) = .050_r8*rxt(k,666)*y(k,253)
     587   254840160 :          mat(k,2462) = .250_r8*rxt(k,675)*y(k,253)
     588   254840160 :          mat(k,1337) = .500_r8*rxt(k,368)*y(k,253)
     589   254840160 :          mat(k,2649) = .250_r8*rxt(k,694)*y(k,253)
     590   254840160 :          mat(k,449) = -(rxt(k,307)*y(k,295))
     591   254840160 :          mat(k,3918) = -rxt(k,307)*y(k,54)
     592   254840160 :          mat(k,3382) = rxt(k,304)*y(k,258)
     593   254840160 :          mat(k,3232) = rxt(k,304)*y(k,253)
     594             :          mat(k,2259) = -(rxt(k,219)*y(k,57) + rxt(k,275)*y(k,75) + rxt(k,308)*y(k,295) &
     595   254840160 :                       + (rxt(k,315) + rxt(k,316) + rxt(k,317)) * y(k,294))
     596   254840160 :          mat(k,3834) = -rxt(k,219)*y(k,55)
     597   254840160 :          mat(k,1244) = -rxt(k,275)*y(k,55)
     598   254840160 :          mat(k,4064) = -rxt(k,308)*y(k,55)
     599   254840160 :          mat(k,3794) = -(rxt(k,315) + rxt(k,316) + rxt(k,317)) * y(k,55)
     600   254840160 :          mat(k,1391) = .100_r8*rxt(k,354)*y(k,158)
     601   254840160 :          mat(k,3733) = .100_r8*rxt(k,354)*y(k,30)
     602   254840160 :          mat(k,462) = -(rxt(k,271)*y(k,294) + rxt(k,288)*y(k,57) + rxt(k,289)*y(k,295))
     603   254840160 :          mat(k,3787) = -rxt(k,271)*y(k,56)
     604   254840160 :          mat(k,3816) = -rxt(k,288)*y(k,56)
     605   254840160 :          mat(k,3920) = -rxt(k,289)*y(k,56)
     606             :          mat(k,3850) = -(rxt(k,218)*y(k,43) + rxt(k,219)*y(k,55) + rxt(k,220)*y(k,79) &
     607             :                       + rxt(k,221)*y(k,81) + (rxt(k,222) + rxt(k,223)) * y(k,258) &
     608             :                       + rxt(k,224)*y(k,158) + rxt(k,231)*y(k,61) + rxt(k,240)*y(k,96) &
     609             :                       + rxt(k,281)*y(k,42) + rxt(k,283)*y(k,44) + rxt(k,286)*y(k,47) &
     610   254840160 :                       + rxt(k,288)*y(k,56) + rxt(k,330)*y(k,29))
     611   254840160 :          mat(k,3197) = -rxt(k,218)*y(k,57)
     612   254840160 :          mat(k,2269) = -rxt(k,219)*y(k,57)
     613   254840160 :          mat(k,1682) = -rxt(k,220)*y(k,57)
     614   254840160 :          mat(k,1491) = -rxt(k,221)*y(k,57)
     615   254840160 :          mat(k,3377) = -(rxt(k,222) + rxt(k,223)) * y(k,57)
     616   254840160 :          mat(k,3768) = -rxt(k,224)*y(k,57)
     617   254840160 :          mat(k,1332) = -rxt(k,231)*y(k,57)
     618   254840160 :          mat(k,1163) = -rxt(k,240)*y(k,57)
     619   254840160 :          mat(k,499) = -rxt(k,281)*y(k,57)
     620   254840160 :          mat(k,652) = -rxt(k,283)*y(k,57)
     621   254840160 :          mat(k,398) = -rxt(k,286)*y(k,57)
     622   254840160 :          mat(k,466) = -rxt(k,288)*y(k,57)
     623   254840160 :          mat(k,319) = -rxt(k,330)*y(k,57)
     624   254840160 :          mat(k,3494) = rxt(k,259)*y(k,60)
     625   254840160 :          mat(k,122) = 4.000_r8*rxt(k,243)*y(k,294)
     626   254840160 :          mat(k,163) = rxt(k,244)*y(k,294)
     627   254840160 :          mat(k,137) = 2.000_r8*rxt(k,245)*y(k,294)
     628   254840160 :          mat(k,173) = 2.000_r8*rxt(k,246)*y(k,294)
     629   254840160 :          mat(k,141) = 2.000_r8*rxt(k,247)*y(k,294)
     630   254840160 :          mat(k,178) = rxt(k,248)*y(k,294)
     631   254840160 :          mat(k,145) = 2.000_r8*rxt(k,249)*y(k,294)
     632   254840160 :          mat(k,147) = 3.000_r8*rxt(k,285)*y(k,295)
     633   254840160 :          mat(k,398) = mat(k,398) + rxt(k,287)*y(k,295)
     634             :          mat(k,3520) = rxt(k,259)*y(k,20) + (4.000_r8*rxt(k,226)+2.000_r8*rxt(k,228)) &
     635             :                       *y(k,60) + rxt(k,230)*y(k,147) + rxt(k,235)*y(k,157) &
     636             :                       + rxt(k,801)*y(k,174) + rxt(k,225)*y(k,253) + rxt(k,236) &
     637   254840160 :                       *y(k,295)
     638   254840160 :          mat(k,259) = rxt(k,280)*y(k,294)
     639   254840160 :          mat(k,254) = rxt(k,295)*y(k,294) + rxt(k,290)*y(k,295)
     640   254840160 :          mat(k,264) = rxt(k,296)*y(k,294) + rxt(k,291)*y(k,295)
     641   254840160 :          mat(k,329) = rxt(k,297)*y(k,294) + rxt(k,292)*y(k,295)
     642   254840160 :          mat(k,3140) = rxt(k,238)*y(k,157) + rxt(k,250)*y(k,294) + rxt(k,239)*y(k,295)
     643   254840160 :          mat(k,3118) = rxt(k,230)*y(k,60)
     644   254840160 :          mat(k,3171) = rxt(k,235)*y(k,60) + rxt(k,238)*y(k,87)
     645   254840160 :          mat(k,1610) = rxt(k,801)*y(k,60)
     646   254840160 :          mat(k,3470) = rxt(k,225)*y(k,60)
     647             :          mat(k,3809) = 4.000_r8*rxt(k,243)*y(k,34) + rxt(k,244)*y(k,35) &
     648             :                       + 2.000_r8*rxt(k,245)*y(k,37) + 2.000_r8*rxt(k,246)*y(k,38) &
     649             :                       + 2.000_r8*rxt(k,247)*y(k,39) + rxt(k,248)*y(k,40) &
     650             :                       + 2.000_r8*rxt(k,249)*y(k,41) + rxt(k,280)*y(k,66) + rxt(k,295) &
     651             :                       *y(k,84) + rxt(k,296)*y(k,85) + rxt(k,297)*y(k,86) + rxt(k,250) &
     652   254840160 :                       *y(k,87)
     653             :          mat(k,4100) = 3.000_r8*rxt(k,285)*y(k,45) + rxt(k,287)*y(k,47) + rxt(k,236) &
     654             :                       *y(k,60) + rxt(k,290)*y(k,84) + rxt(k,291)*y(k,85) + rxt(k,292) &
     655   263009123 :                       *y(k,86) + rxt(k,239)*y(k,87)
     656             :       end do
     657     8168963 :       end subroutine nlnmat02
     658     8168963 :       subroutine nlnmat03( avec_len, mat, y, rxt )
     659             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
     660             :       implicit none
     661             : !----------------------------------------------
     662             : ! ... dummy arguments
     663             : !----------------------------------------------
     664             :       integer, intent(in) :: avec_len
     665             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
     666             :       real(r8), intent(in) :: rxt(veclen,rxntot)
     667             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
     668             : !----------------------------------------------
     669             : ! ... local variables
     670             : !----------------------------------------------
     671             :       integer :: k
     672             : !----------------------------------------------
     673             : ! ... complete matrix entries implicit species
     674             : !----------------------------------------------
     675   263009123 :       do k = 1,avec_len
     676   254840160 :          mat(k,3812) = rxt(k,231)*y(k,61)
     677   254840160 :          mat(k,3498) = 2.000_r8*rxt(k,227)*y(k,60)
     678   254840160 :          mat(k,1323) = rxt(k,231)*y(k,57) + (rxt(k,890)+rxt(k,895)+rxt(k,900))*y(k,87)
     679             :          mat(k,3121) = (rxt(k,890)+rxt(k,895)+rxt(k,900))*y(k,61) + (rxt(k,885) &
     680   254840160 :                        +rxt(k,891)+rxt(k,896))*y(k,96)
     681   254840160 :          mat(k,1158) = (rxt(k,885)+rxt(k,891)+rxt(k,896))*y(k,87)
     682   254840160 :          mat(k,3497) = 2.000_r8*rxt(k,252)*y(k,60)
     683             :          mat(k,3515) = -(rxt(k,225)*y(k,253) + (4._r8*rxt(k,226) + 4._r8*rxt(k,227) &
     684             :                       + 4._r8*rxt(k,228) + 4._r8*rxt(k,252)) * y(k,60) + rxt(k,229) &
     685             :                       *y(k,258) + rxt(k,230)*y(k,147) + rxt(k,232)*y(k,148) + rxt(k,235) &
     686             :                       *y(k,157) + (rxt(k,236) + rxt(k,237)) * y(k,295) + (rxt(k,258) &
     687   254840160 :                       + rxt(k,259) + rxt(k,260)) * y(k,20) + rxt(k,801)*y(k,174))
     688   254840160 :          mat(k,3465) = -rxt(k,225)*y(k,60)
     689   254840160 :          mat(k,3372) = -rxt(k,229)*y(k,60)
     690   254840160 :          mat(k,3113) = -rxt(k,230)*y(k,60)
     691   254840160 :          mat(k,3661) = -rxt(k,232)*y(k,60)
     692   254840160 :          mat(k,3166) = -rxt(k,235)*y(k,60)
     693   254840160 :          mat(k,4095) = -(rxt(k,236) + rxt(k,237)) * y(k,60)
     694   254840160 :          mat(k,3489) = -(rxt(k,258) + rxt(k,259) + rxt(k,260)) * y(k,60)
     695   254840160 :          mat(k,1607) = -rxt(k,801)*y(k,60)
     696   254840160 :          mat(k,3845) = rxt(k,240)*y(k,96) + rxt(k,224)*y(k,158) + rxt(k,223)*y(k,258)
     697   254840160 :          mat(k,1329) = rxt(k,233)*y(k,157)
     698   254840160 :          mat(k,3135) = rxt(k,251)*y(k,294)
     699   254840160 :          mat(k,1162) = rxt(k,240)*y(k,57) + rxt(k,241)*y(k,157) + rxt(k,242)*y(k,295)
     700   254840160 :          mat(k,3166) = mat(k,3166) + rxt(k,233)*y(k,61) + rxt(k,241)*y(k,96)
     701   254840160 :          mat(k,3763) = rxt(k,224)*y(k,57)
     702   254840160 :          mat(k,346) = rxt(k,806)*y(k,174)
     703   254840160 :          mat(k,1607) = mat(k,1607) + rxt(k,806)*y(k,160)
     704   254840160 :          mat(k,3372) = mat(k,3372) + rxt(k,223)*y(k,57)
     705   254840160 :          mat(k,3804) = rxt(k,251)*y(k,87)
     706   254840160 :          mat(k,4095) = mat(k,4095) + rxt(k,242)*y(k,96)
     707             :          mat(k,1325) = -(rxt(k,231)*y(k,57) + rxt(k,233)*y(k,157) + rxt(k,234) &
     708   254840160 :                       *y(k,295) + (rxt(k,890) + rxt(k,895) + rxt(k,900)) * y(k,87))
     709   254840160 :          mat(k,3822) = -rxt(k,231)*y(k,61)
     710   254840160 :          mat(k,3150) = -rxt(k,233)*y(k,61)
     711   254840160 :          mat(k,4009) = -rxt(k,234)*y(k,61)
     712   254840160 :          mat(k,3125) = -(rxt(k,890) + rxt(k,895) + rxt(k,900)) * y(k,61)
     713   254840160 :          mat(k,3503) = rxt(k,232)*y(k,148)
     714   254840160 :          mat(k,3637) = rxt(k,232)*y(k,60)
     715   254840160 :          mat(k,2057) = -(rxt(k,319)*y(k,295))
     716   254840160 :          mat(k,4057) = -rxt(k,319)*y(k,63)
     717   254840160 :          mat(k,1276) = .170_r8*rxt(k,602)*y(k,158)
     718   254840160 :          mat(k,2198) = rxt(k,254)*y(k,43)
     719   254840160 :          mat(k,313) = .350_r8*rxt(k,321)*y(k,295)
     720   254840160 :          mat(k,588) = .630_r8*rxt(k,323)*y(k,158)
     721   254840160 :          mat(k,1390) = .560_r8*rxt(k,354)*y(k,158)
     722             :          mat(k,3180) = rxt(k,254)*y(k,18) + rxt(k,218)*y(k,57) + rxt(k,299)*y(k,149) &
     723   254840160 :                       + rxt(k,300)*y(k,157) + rxt(k,301)*y(k,295)
     724   254840160 :          mat(k,394) = rxt(k,286)*y(k,57)
     725   254840160 :          mat(k,1927) = rxt(k,360)*y(k,149) + rxt(k,361)*y(k,295)
     726   254840160 :          mat(k,3832) = rxt(k,218)*y(k,43) + rxt(k,286)*y(k,47)
     727   254840160 :          mat(k,642) = rxt(k,376)*y(k,295)
     728   254840160 :          mat(k,1478) = rxt(k,346)*y(k,295)
     729   254840160 :          mat(k,885) = .110_r8*rxt(k,347)*y(k,295)
     730   254840160 :          mat(k,621) = 1.060_r8*rxt(k,414)*y(k,295)
     731   254840160 :          mat(k,634) = .760_r8*rxt(k,415)*y(k,295)
     732   254840160 :          mat(k,492) = .420_r8*rxt(k,416)*y(k,295)
     733   254840160 :          mat(k,525) = .230_r8*rxt(k,417)*y(k,295)
     734   254840160 :          mat(k,1875) = rxt(k,418)*y(k,295)
     735   254840160 :          mat(k,917) = 1.500_r8*rxt(k,419)*y(k,295)
     736   254840160 :          mat(k,1259) = .350_r8*rxt(k,423)*y(k,295)
     737   254840160 :          mat(k,1421) = .350_r8*rxt(k,486)*y(k,158)
     738   254840160 :          mat(k,1117) = rxt(k,452)*y(k,295)
     739   254840160 :          mat(k,1796) = rxt(k,454)*y(k,295)
     740   254840160 :          mat(k,775) = 2.000_r8*rxt(k,456)*y(k,295)
     741   254840160 :          mat(k,2077) = .060_r8*rxt(k,460)*y(k,295)
     742   254840160 :          mat(k,2109) = .040_r8*rxt(k,470)*y(k,295)
     743   254840160 :          mat(k,2017) = .650_r8*rxt(k,385)*y(k,158)
     744   254840160 :          mat(k,1780) = rxt(k,380)*y(k,295)
     745   254840160 :          mat(k,1464) = rxt(k,387)*y(k,295)
     746   254840160 :          mat(k,531) = .250_r8*rxt(k,398)*y(k,295)
     747   254840160 :          mat(k,2042) = .560_r8*rxt(k,403)*y(k,158)
     748   254840160 :          mat(k,1918) = .500_r8*rxt(k,399)*y(k,295)
     749   254840160 :          mat(k,1501) = 1.560_r8*rxt(k,405)*y(k,295)
     750   254840160 :          mat(k,2139) = .300_r8*rxt(k,501)*y(k,158) + .630_r8*rxt(k,502)*y(k,295)
     751             :          mat(k,3074) = .170_r8*rxt(k,556)*y(k,254) + .400_r8*rxt(k,503)*y(k,260) &
     752             :                       + .550_r8*rxt(k,509)*y(k,267) + .550_r8*rxt(k,511)*y(k,268) &
     753             :                       + .550_r8*rxt(k,530)*y(k,278) + .550_r8*rxt(k,533)*y(k,279) &
     754             :                       + .860_r8*rxt(k,535)*y(k,284) + .400_r8*rxt(k,559)*y(k,285) &
     755             :                       + .650_r8*rxt(k,392)*y(k,286) + .350_r8*rxt(k,562)*y(k,287) &
     756   254840160 :                       + .750_r8*rxt(k,539)*y(k,293) + .910_r8*rxt(k,741)*y(k,306)
     757             :          mat(k,3570) = rxt(k,299)*y(k,43) + rxt(k,360)*y(k,50) + .650_r8*rxt(k,393) &
     758   254840160 :                       *y(k,286) + rxt(k,742)*y(k,306)
     759   254840160 :          mat(k,3154) = rxt(k,300)*y(k,43) + rxt(k,795)*y(k,161)
     760             :          mat(k,3726) = .170_r8*rxt(k,602)*y(k,4) + .630_r8*rxt(k,323)*y(k,26) &
     761             :                       + .560_r8*rxt(k,354)*y(k,30) + .350_r8*rxt(k,486)*y(k,109) &
     762             :                       + .650_r8*rxt(k,385)*y(k,126) + .560_r8*rxt(k,403)*y(k,132) &
     763   254840160 :                       + .300_r8*rxt(k,501)*y(k,139)
     764   254840160 :          mat(k,389) = rxt(k,795)*y(k,157) + rxt(k,796)*y(k,295)
     765   254840160 :          mat(k,657) = 2.000_r8*rxt(k,718)*y(k,295)
     766   254840160 :          mat(k,666) = rxt(k,737)*y(k,295)
     767   254840160 :          mat(k,425) = rxt(k,757)*y(k,295)
     768             :          mat(k,2885) = .550_r8*rxt(k,444)*y(k,267) + .550_r8*rxt(k,448)*y(k,268) &
     769             :                       + .550_r8*rxt(k,491)*y(k,278) + .550_r8*rxt(k,495)*y(k,279) &
     770             :                       + .860_r8*rxt(k,381)*y(k,284) + .650_r8*rxt(k,388)*y(k,286) &
     771   254840160 :                       + rxt(k,738)*y(k,306)
     772             :          mat(k,3427) = .280_r8*rxt(k,445)*y(k,267) + .280_r8*rxt(k,449)*y(k,268) &
     773             :                       + .280_r8*rxt(k,492)*y(k,278) + .280_r8*rxt(k,496)*y(k,279) &
     774             :                       + .900_r8*rxt(k,382)*y(k,284) + .650_r8*rxt(k,389)*y(k,286) &
     775   254840160 :                       + rxt(k,401)*y(k,289) + rxt(k,739)*y(k,306)
     776   254840160 :          mat(k,908) = .170_r8*rxt(k,556)*y(k,147) + .070_r8*rxt(k,555)*y(k,258)
     777             :          mat(k,3333) = .070_r8*rxt(k,555)*y(k,254) + .260_r8*rxt(k,421)*y(k,260) &
     778             :                       + .510_r8*rxt(k,383)*y(k,284) + .160_r8*rxt(k,558)*y(k,285) &
     779             :                       + .320_r8*rxt(k,390)*y(k,286) + .140_r8*rxt(k,561)*y(k,287) &
     780             :                       + .260_r8*rxt(k,402)*y(k,289) + .600_r8*rxt(k,499)*y(k,293) &
     781   254840160 :                       + .530_r8*rxt(k,740)*y(k,306)
     782   254840160 :          mat(k,1304) = .400_r8*rxt(k,503)*y(k,147) + .260_r8*rxt(k,421)*y(k,258)
     783             :          mat(k,1738) = .550_r8*rxt(k,509)*y(k,147) + .550_r8*rxt(k,444)*y(k,252) &
     784   254840160 :                       + .280_r8*rxt(k,445)*y(k,253)
     785             :          mat(k,1760) = .550_r8*rxt(k,511)*y(k,147) + .550_r8*rxt(k,448)*y(k,252) &
     786   254840160 :                       + .280_r8*rxt(k,449)*y(k,253)
     787             :          mat(k,1855) = .550_r8*rxt(k,530)*y(k,147) + .550_r8*rxt(k,491)*y(k,252) &
     788   254840160 :                       + .280_r8*rxt(k,492)*y(k,253)
     789             :          mat(k,1823) = .550_r8*rxt(k,533)*y(k,147) + .550_r8*rxt(k,495)*y(k,252) &
     790   254840160 :                       + .280_r8*rxt(k,496)*y(k,253)
     791             :          mat(k,1548) = .860_r8*rxt(k,535)*y(k,147) + .860_r8*rxt(k,381)*y(k,252) &
     792   254840160 :                       + .900_r8*rxt(k,382)*y(k,253) + .510_r8*rxt(k,383)*y(k,258)
     793   254840160 :          mat(k,864) = .400_r8*rxt(k,559)*y(k,147) + .160_r8*rxt(k,558)*y(k,258)
     794             :          mat(k,1622) = .650_r8*rxt(k,392)*y(k,147) + .650_r8*rxt(k,393)*y(k,149) &
     795             :                       + .650_r8*rxt(k,388)*y(k,252) + .650_r8*rxt(k,389)*y(k,253) &
     796   254840160 :                       + .320_r8*rxt(k,390)*y(k,258) + 2.600_r8*rxt(k,391)*y(k,286)
     797   254840160 :          mat(k,932) = .350_r8*rxt(k,562)*y(k,147) + .140_r8*rxt(k,561)*y(k,258)
     798   254840160 :          mat(k,1513) = rxt(k,401)*y(k,253) + .260_r8*rxt(k,402)*y(k,258)
     799   254840160 :          mat(k,1647) = .750_r8*rxt(k,539)*y(k,147) + .600_r8*rxt(k,499)*y(k,258)
     800             :          mat(k,4057) = mat(k,4057) + .350_r8*rxt(k,321)*y(k,25) + rxt(k,301)*y(k,43) &
     801             :                       + rxt(k,361)*y(k,50) + rxt(k,376)*y(k,68) + rxt(k,346)*y(k,77) &
     802             :                       + .110_r8*rxt(k,347)*y(k,89) + 1.060_r8*rxt(k,414)*y(k,98) &
     803             :                       + .760_r8*rxt(k,415)*y(k,99) + .420_r8*rxt(k,416)*y(k,100) &
     804             :                       + .230_r8*rxt(k,417)*y(k,101) + rxt(k,418)*y(k,103) &
     805             :                       + 1.500_r8*rxt(k,419)*y(k,105) + .350_r8*rxt(k,423)*y(k,108) &
     806             :                       + rxt(k,452)*y(k,111) + rxt(k,454)*y(k,112) &
     807             :                       + 2.000_r8*rxt(k,456)*y(k,114) + .060_r8*rxt(k,460)*y(k,115) &
     808             :                       + .040_r8*rxt(k,470)*y(k,118) + rxt(k,380)*y(k,127) + rxt(k,387) &
     809             :                       *y(k,128) + .250_r8*rxt(k,398)*y(k,131) + .500_r8*rxt(k,399) &
     810             :                       *y(k,133) + 1.560_r8*rxt(k,405)*y(k,134) + .630_r8*rxt(k,502) &
     811             :                       *y(k,139) + rxt(k,796)*y(k,161) + 2.000_r8*rxt(k,718)*y(k,204) &
     812   254840160 :                       + rxt(k,737)*y(k,206) + rxt(k,757)*y(k,210)
     813   254840160 :          mat(k,2725) = rxt(k,743)*y(k,306)
     814   254840160 :          mat(k,2771) = rxt(k,744)*y(k,306)
     815             :          mat(k,2674) = .910_r8*rxt(k,741)*y(k,147) + rxt(k,742)*y(k,149) + rxt(k,738) &
     816             :                       *y(k,252) + rxt(k,739)*y(k,253) + .530_r8*rxt(k,740)*y(k,258) &
     817             :                       + rxt(k,743)*y(k,302) + rxt(k,744)*y(k,304) + rxt(k,745) &
     818   254840160 :                       *y(k,307)
     819   254840160 :          mat(k,2818) = rxt(k,745)*y(k,306)
     820   254840160 :          mat(k,1098) = .190_r8*rxt(k,642)*y(k,158)
     821   254840160 :          mat(k,1388) = .200_r8*rxt(k,354)*y(k,158)
     822   254840160 :          mat(k,792) = rxt(k,339)*y(k,295)
     823   254840160 :          mat(k,703) = .500_r8*rxt(k,340)*y(k,295)
     824   254840160 :          mat(k,2056) = rxt(k,319)*y(k,295)
     825   254840160 :          mat(k,1711) = .800_r8*rxt(k,345)*y(k,295)
     826   254840160 :          mat(k,1477) = rxt(k,346)*y(k,295)
     827   254840160 :          mat(k,1378) = rxt(k,310)*y(k,295)
     828   254840160 :          mat(k,618) = .540_r8*rxt(k,414)*y(k,295)
     829   254840160 :          mat(k,631) = .540_r8*rxt(k,415)*y(k,295)
     830   254840160 :          mat(k,1868) = .360_r8*rxt(k,418)*y(k,295)
     831   254840160 :          mat(k,1254) = .190_r8*rxt(k,423)*y(k,295)
     832   254840160 :          mat(k,1412) = .420_r8*rxt(k,486)*y(k,158)
     833   254840160 :          mat(k,2036) = .100_r8*rxt(k,403)*y(k,158)
     834   254840160 :          mat(k,2130) = .450_r8*rxt(k,502)*y(k,295)
     835             :          mat(k,3051) = rxt(k,338)*y(k,252) + rxt(k,392)*y(k,286) + rxt(k,704)*y(k,302) &
     836   254840160 :                       + rxt(k,722)*y(k,304) + rxt(k,752)*y(k,307)
     837             :          mat(k,3551) = rxt(k,393)*y(k,286) + rxt(k,705)*y(k,302) + rxt(k,723)*y(k,304) &
     838   254840160 :                       + rxt(k,753)*y(k,307)
     839   254840160 :          mat(k,1455) = rxt(k,348)*y(k,295)
     840             :          mat(k,3706) = .190_r8*rxt(k,642)*y(k,17) + .200_r8*rxt(k,354)*y(k,30) &
     841   254840160 :                       + .420_r8*rxt(k,486)*y(k,109) + .100_r8*rxt(k,403)*y(k,132)
     842   254840160 :          mat(k,656) = 2.000_r8*rxt(k,718)*y(k,295)
     843   254840160 :          mat(k,665) = 3.000_r8*rxt(k,737)*y(k,295)
     844   254840160 :          mat(k,779) = .290_r8*rxt(k,748)*y(k,295)
     845   254840160 :          mat(k,364) = .290_r8*rxt(k,746)*y(k,295)
     846   254840160 :          mat(k,369) = .290_r8*rxt(k,747)*y(k,295)
     847             :          mat(k,2294) = rxt(k,586)*y(k,252) + rxt(k,591)*y(k,302) + rxt(k,592)*y(k,304) &
     848   254840160 :                       + rxt(k,593)*y(k,307)
     849             :          mat(k,2433) = rxt(k,594)*y(k,252) + rxt(k,599)*y(k,302) + rxt(k,600)*y(k,304) &
     850   254840160 :                       + rxt(k,601)*y(k,307)
     851             :          mat(k,2211) = rxt(k,606)*y(k,252) + rxt(k,611)*y(k,302) + rxt(k,612)*y(k,304) &
     852   254840160 :                       + rxt(k,613)*y(k,307)
     853             :          mat(k,2404) = rxt(k,614)*y(k,252) + rxt(k,619)*y(k,302) + rxt(k,620)*y(k,304) &
     854   254840160 :                       + rxt(k,621)*y(k,307)
     855             :          mat(k,2532) = rxt(k,626)*y(k,252) + rxt(k,631)*y(k,302) + rxt(k,632)*y(k,304) &
     856   254840160 :                       + rxt(k,633)*y(k,307)
     857             :          mat(k,2372) = rxt(k,634)*y(k,252) + rxt(k,639)*y(k,302) + rxt(k,640)*y(k,304) &
     858   254840160 :                       + rxt(k,641)*y(k,307)
     859             :          mat(k,2865) = rxt(k,338)*y(k,147) + rxt(k,586)*y(k,237) + rxt(k,594)*y(k,238) &
     860             :                       + rxt(k,606)*y(k,240) + rxt(k,614)*y(k,241) + rxt(k,626) &
     861             :                       *y(k,245) + rxt(k,634)*y(k,246) + 4.000_r8*rxt(k,335)*y(k,252) &
     862             :                       + .900_r8*rxt(k,336)*y(k,253) + .490_r8*rxt(k,337)*y(k,258) &
     863             :                       + rxt(k,424)*y(k,261) + rxt(k,430)*y(k,262) + rxt(k,444) &
     864             :                       *y(k,267) + rxt(k,448)*y(k,268) + rxt(k,474)*y(k,274) &
     865             :                       + rxt(k,491)*y(k,278) + rxt(k,495)*y(k,279) + rxt(k,645) &
     866             :                       *y(k,281) + rxt(k,654)*y(k,282) + rxt(k,381)*y(k,284) &
     867             :                       + 2.000_r8*rxt(k,388)*y(k,286) + rxt(k,400)*y(k,289) &
     868             :                       + rxt(k,665)*y(k,290) + rxt(k,674)*y(k,291) + rxt(k,693) &
     869             :                       *y(k,301) + 2.000_r8*rxt(k,701)*y(k,302) + rxt(k,709)*y(k,303) &
     870             :                       + 2.000_r8*rxt(k,719)*y(k,304) + rxt(k,728)*y(k,305) &
     871   254840160 :                       + rxt(k,738)*y(k,306) + 2.000_r8*rxt(k,749)*y(k,307)
     872             :          mat(k,3404) = .900_r8*rxt(k,336)*y(k,252) + rxt(k,389)*y(k,286) + rxt(k,702) &
     873   254840160 :                       *y(k,302) + rxt(k,720)*y(k,304) + rxt(k,750)*y(k,307)
     874             :          mat(k,3309) = .490_r8*rxt(k,337)*y(k,252) + .490_r8*rxt(k,390)*y(k,286) &
     875             :                       + .490_r8*rxt(k,703)*y(k,302) + .490_r8*rxt(k,721)*y(k,304) &
     876   254840160 :                       + .490_r8*rxt(k,751)*y(k,307)
     877   254840160 :          mat(k,1941) = rxt(k,424)*y(k,252)
     878   254840160 :          mat(k,1978) = rxt(k,430)*y(k,252)
     879   254840160 :          mat(k,1730) = rxt(k,444)*y(k,252)
     880   254840160 :          mat(k,1752) = rxt(k,448)*y(k,252)
     881   254840160 :          mat(k,2165) = rxt(k,474)*y(k,252)
     882   254840160 :          mat(k,1845) = rxt(k,491)*y(k,252)
     883   254840160 :          mat(k,1813) = rxt(k,495)*y(k,252)
     884             :          mat(k,2500) = rxt(k,645)*y(k,252) + rxt(k,651)*y(k,302) + rxt(k,652)*y(k,304) &
     885   254840160 :                       + rxt(k,653)*y(k,307)
     886             :          mat(k,2334) = rxt(k,654)*y(k,252) + rxt(k,659)*y(k,302) + rxt(k,660)*y(k,304) &
     887   254840160 :                       + rxt(k,661)*y(k,307)
     888   254840160 :          mat(k,1544) = rxt(k,381)*y(k,252)
     889             :          mat(k,1619) = rxt(k,392)*y(k,147) + rxt(k,393)*y(k,149) + 2.000_r8*rxt(k,388) &
     890             :                       *y(k,252) + rxt(k,389)*y(k,253) + .490_r8*rxt(k,390)*y(k,258) &
     891   254840160 :                       + 4.000_r8*rxt(k,391)*y(k,286)
     892   254840160 :          mat(k,1509) = rxt(k,400)*y(k,252)
     893             :          mat(k,2563) = rxt(k,665)*y(k,252) + rxt(k,671)*y(k,302) + rxt(k,672)*y(k,304) &
     894   254840160 :                       + rxt(k,673)*y(k,307)
     895             :          mat(k,2464) = rxt(k,674)*y(k,252) + rxt(k,679)*y(k,302) + rxt(k,680)*y(k,304) &
     896   254840160 :                       + rxt(k,681)*y(k,307)
     897             :          mat(k,4033) = rxt(k,339)*y(k,51) + .500_r8*rxt(k,340)*y(k,52) + rxt(k,319) &
     898             :                       *y(k,63) + .800_r8*rxt(k,345)*y(k,76) + rxt(k,346)*y(k,77) &
     899             :                       + rxt(k,310)*y(k,90) + .540_r8*rxt(k,414)*y(k,98) &
     900             :                       + .540_r8*rxt(k,415)*y(k,99) + .360_r8*rxt(k,418)*y(k,103) &
     901             :                       + .190_r8*rxt(k,423)*y(k,108) + .450_r8*rxt(k,502)*y(k,139) &
     902             :                       + rxt(k,348)*y(k,150) + 2.000_r8*rxt(k,718)*y(k,204) &
     903             :                       + 3.000_r8*rxt(k,737)*y(k,206) + .290_r8*rxt(k,748)*y(k,207) &
     904   254840160 :                       + .290_r8*rxt(k,746)*y(k,208) + .290_r8*rxt(k,747)*y(k,209)
     905             :          mat(k,2651) = rxt(k,693)*y(k,252) + rxt(k,698)*y(k,302) + rxt(k,699)*y(k,304) &
     906   254840160 :                       + rxt(k,700)*y(k,307)
     907             :          mat(k,2721) = rxt(k,704)*y(k,147) + rxt(k,705)*y(k,149) + rxt(k,591)*y(k,237) &
     908             :                       + rxt(k,599)*y(k,238) + rxt(k,611)*y(k,240) + rxt(k,619) &
     909             :                       *y(k,241) + rxt(k,631)*y(k,245) + rxt(k,639)*y(k,246) &
     910             :                       + 2.000_r8*rxt(k,701)*y(k,252) + rxt(k,702)*y(k,253) &
     911             :                       + .490_r8*rxt(k,703)*y(k,258) + rxt(k,651)*y(k,281) + rxt(k,659) &
     912             :                       *y(k,282) + rxt(k,671)*y(k,290) + rxt(k,679)*y(k,291) &
     913             :                       + rxt(k,698)*y(k,301) + 4.000_r8*rxt(k,706)*y(k,302) &
     914             :                       + rxt(k,714)*y(k,303) + 2.000_r8*rxt(k,724)*y(k,304) &
     915             :                       + rxt(k,733)*y(k,305) + rxt(k,743)*y(k,306) &
     916   254840160 :                       + 2.000_r8*rxt(k,707)*y(k,307)
     917             :          mat(k,2694) = rxt(k,709)*y(k,252) + rxt(k,714)*y(k,302) + rxt(k,715)*y(k,304) &
     918   254840160 :                       + rxt(k,716)*y(k,307)
     919             :          mat(k,2767) = rxt(k,722)*y(k,147) + rxt(k,723)*y(k,149) + rxt(k,592)*y(k,237) &
     920             :                       + rxt(k,600)*y(k,238) + rxt(k,612)*y(k,240) + rxt(k,620) &
     921             :                       *y(k,241) + rxt(k,632)*y(k,245) + rxt(k,640)*y(k,246) &
     922             :                       + 2.000_r8*rxt(k,719)*y(k,252) + rxt(k,720)*y(k,253) &
     923             :                       + .490_r8*rxt(k,721)*y(k,258) + rxt(k,652)*y(k,281) + rxt(k,660) &
     924             :                       *y(k,282) + rxt(k,672)*y(k,290) + rxt(k,680)*y(k,291) &
     925             :                       + rxt(k,699)*y(k,301) + 2.000_r8*rxt(k,724)*y(k,302) &
     926             :                       + rxt(k,715)*y(k,303) + 4.000_r8*rxt(k,725)*y(k,304) &
     927             :                       + rxt(k,734)*y(k,305) + rxt(k,744)*y(k,306) &
     928   254840160 :                       + 2.000_r8*rxt(k,726)*y(k,307)
     929             :          mat(k,2232) = rxt(k,728)*y(k,252) + rxt(k,733)*y(k,302) + rxt(k,734)*y(k,304) &
     930   254840160 :                       + rxt(k,735)*y(k,307)
     931             :          mat(k,2672) = rxt(k,738)*y(k,252) + rxt(k,743)*y(k,302) + rxt(k,744)*y(k,304) &
     932   254840160 :                       + rxt(k,745)*y(k,307)
     933             :          mat(k,2814) = rxt(k,752)*y(k,147) + rxt(k,753)*y(k,149) + rxt(k,593)*y(k,237) &
     934             :                       + rxt(k,601)*y(k,238) + rxt(k,613)*y(k,240) + rxt(k,621) &
     935             :                       *y(k,241) + rxt(k,633)*y(k,245) + rxt(k,641)*y(k,246) &
     936             :                       + 2.000_r8*rxt(k,749)*y(k,252) + rxt(k,750)*y(k,253) &
     937             :                       + .490_r8*rxt(k,751)*y(k,258) + rxt(k,653)*y(k,281) + rxt(k,661) &
     938             :                       *y(k,282) + rxt(k,673)*y(k,290) + rxt(k,681)*y(k,291) &
     939             :                       + rxt(k,700)*y(k,301) + 2.000_r8*rxt(k,707)*y(k,302) &
     940             :                       + rxt(k,716)*y(k,303) + 2.000_r8*rxt(k,726)*y(k,304) &
     941             :                       + rxt(k,735)*y(k,305) + rxt(k,745)*y(k,306) &
     942   263009123 :                       + 4.000_r8*rxt(k,754)*y(k,307)
     943             :       end do
     944     8168963 :       end subroutine nlnmat03
     945     8168963 :       subroutine nlnmat04( avec_len, mat, y, rxt )
     946             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
     947             :       implicit none
     948             : !----------------------------------------------
     949             : ! ... dummy arguments
     950             : !----------------------------------------------
     951             :       integer, intent(in) :: avec_len
     952             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
     953             :       real(r8), intent(in) :: rxt(veclen,rxntot)
     954             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
     955             : !----------------------------------------------
     956             : ! ... local variables
     957             : !----------------------------------------------
     958             :       integer :: k
     959             : !----------------------------------------------
     960             : ! ... complete matrix entries implicit species
     961             : !----------------------------------------------
     962   263009123 :       do k = 1,avec_len
     963   254840160 :          mat(k,248) = -(rxt(k,279)*y(k,294))
     964   254840160 :          mat(k,3782) = -rxt(k,279)*y(k,65)
     965   254840160 :          mat(k,160) = rxt(k,244)*y(k,294)
     966   254840160 :          mat(k,165) = rxt(k,270)*y(k,294)
     967   254840160 :          mat(k,170) = rxt(k,246)*y(k,294)
     968   254840160 :          mat(k,139) = 2.000_r8*rxt(k,247)*y(k,294)
     969   254840160 :          mat(k,175) = 2.000_r8*rxt(k,248)*y(k,294)
     970   254840160 :          mat(k,143) = rxt(k,249)*y(k,294)
     971   254840160 :          mat(k,127) = 2.000_r8*rxt(k,272)*y(k,294)
     972   254840160 :          mat(k,260) = rxt(k,296)*y(k,294) + rxt(k,291)*y(k,295)
     973   254840160 :          mat(k,325) = rxt(k,297)*y(k,294) + rxt(k,292)*y(k,295)
     974             :          mat(k,3782) = mat(k,3782) + rxt(k,244)*y(k,35) + rxt(k,270)*y(k,36) &
     975             :                       + rxt(k,246)*y(k,38) + 2.000_r8*rxt(k,247)*y(k,39) &
     976             :                       + 2.000_r8*rxt(k,248)*y(k,40) + rxt(k,249)*y(k,41) &
     977             :                       + 2.000_r8*rxt(k,272)*y(k,80) + rxt(k,296)*y(k,85) + rxt(k,297) &
     978   254840160 :                       *y(k,86)
     979   254840160 :          mat(k,3886) = rxt(k,291)*y(k,85) + rxt(k,292)*y(k,86)
     980   254840160 :          mat(k,256) = -(rxt(k,280)*y(k,294))
     981   254840160 :          mat(k,3784) = -rxt(k,280)*y(k,66)
     982   254840160 :          mat(k,135) = rxt(k,245)*y(k,294)
     983   254840160 :          mat(k,171) = rxt(k,246)*y(k,294)
     984   254840160 :          mat(k,252) = rxt(k,295)*y(k,294) + rxt(k,290)*y(k,295)
     985             :          mat(k,3784) = mat(k,3784) + rxt(k,245)*y(k,37) + rxt(k,246)*y(k,38) &
     986   254840160 :                       + rxt(k,295)*y(k,84)
     987   254840160 :          mat(k,3888) = rxt(k,290)*y(k,84)
     988   254840160 :          mat(k,218) = -(rxt(k,554)*y(k,295))
     989   254840160 :          mat(k,3881) = -rxt(k,554)*y(k,67)
     990   254840160 :          mat(k,212) = .180_r8*rxt(k,574)*y(k,295)
     991   254840160 :          mat(k,3881) = mat(k,3881) + .180_r8*rxt(k,574)*y(k,228)
     992   254840160 :          mat(k,639) = -(rxt(k,376)*y(k,295))
     993   254840160 :          mat(k,3943) = -rxt(k,376)*y(k,68)
     994   254840160 :          mat(k,614) = .070_r8*rxt(k,414)*y(k,295)
     995   254840160 :          mat(k,627) = .170_r8*rxt(k,415)*y(k,295)
     996             :          mat(k,3943) = mat(k,3943) + .070_r8*rxt(k,414)*y(k,98) + .170_r8*rxt(k,415) &
     997   254840160 :                       *y(k,99)
     998   254840160 :          mat(k,304) = -(rxt(k,793)*y(k,149) + (rxt(k,794) + rxt(k,808)) * y(k,295))
     999   254840160 :          mat(k,3526) = -rxt(k,793)*y(k,69)
    1000   254840160 :          mat(k,3897) = -(rxt(k,794) + rxt(k,808)) * y(k,69)
    1001   254840160 :          mat(k,853) = rxt(k,341)*y(k,258)
    1002   254840160 :          mat(k,3216) = rxt(k,341)*y(k,257)
    1003             :          mat(k,1242) = -(rxt(k,275)*y(k,55) + rxt(k,276)*y(k,79) + rxt(k,277)*y(k,319) &
    1004   254840160 :                       + rxt(k,278)*y(k,93))
    1005   254840160 :          mat(k,2255) = -rxt(k,275)*y(k,75)
    1006   254840160 :          mat(k,1672) = -rxt(k,276)*y(k,75)
    1007   254840160 :          mat(k,4107) = -rxt(k,277)*y(k,75)
    1008   254840160 :          mat(k,2945) = -rxt(k,278)*y(k,75)
    1009   254840160 :          mat(k,166) = rxt(k,270)*y(k,294)
    1010   254840160 :          mat(k,176) = rxt(k,248)*y(k,294)
    1011   254840160 :          mat(k,249) = 2.000_r8*rxt(k,279)*y(k,294)
    1012   254840160 :          mat(k,257) = rxt(k,280)*y(k,294)
    1013             :          mat(k,3791) = rxt(k,270)*y(k,36) + rxt(k,248)*y(k,40) + 2.000_r8*rxt(k,279) &
    1014   254840160 :                       *y(k,65) + rxt(k,280)*y(k,66)
    1015   254840160 :          mat(k,1712) = -(rxt(k,345)*y(k,295))
    1016   254840160 :          mat(k,4040) = -rxt(k,345)*y(k,76)
    1017   254840160 :          mat(k,2070) = .830_r8*rxt(k,459)*y(k,158)
    1018   254840160 :          mat(k,920) = rxt(k,488)*y(k,295)
    1019   254840160 :          mat(k,1892) = .070_r8*rxt(k,490)*y(k,295)
    1020             :          mat(k,3057) = .570_r8*rxt(k,503)*y(k,260) + .940_r8*rxt(k,513)*y(k,269) &
    1021             :                       + .730_r8*rxt(k,515)*y(k,270) + .340_r8*rxt(k,521)*y(k,273) &
    1022   254840160 :                       + .400_r8*rxt(k,525)*y(k,275) + .760_r8*rxt(k,537)*y(k,289)
    1023   254840160 :          mat(k,3709) = .830_r8*rxt(k,459)*y(k,115)
    1024   254840160 :          mat(k,2869) = .750_r8*rxt(k,400)*y(k,289)
    1025   254840160 :          mat(k,3410) = .380_r8*rxt(k,401)*y(k,289)
    1026             :          mat(k,3316) = .370_r8*rxt(k,421)*y(k,260) + .550_r8*rxt(k,457)*y(k,269) &
    1027             :                       + .460_r8*rxt(k,461)*y(k,270) + .150_r8*rxt(k,471)*y(k,273) &
    1028   254840160 :                       + .280_r8*rxt(k,479)*y(k,275) + .360_r8*rxt(k,402)*y(k,289)
    1029   254840160 :          mat(k,1300) = .570_r8*rxt(k,503)*y(k,147) + .370_r8*rxt(k,421)*y(k,258)
    1030   254840160 :          mat(k,1125) = .940_r8*rxt(k,513)*y(k,147) + .550_r8*rxt(k,457)*y(k,258)
    1031   254840160 :          mat(k,1169) = .730_r8*rxt(k,515)*y(k,147) + .460_r8*rxt(k,461)*y(k,258)
    1032   254840160 :          mat(k,1445) = .340_r8*rxt(k,521)*y(k,147) + .150_r8*rxt(k,471)*y(k,258)
    1033   254840160 :          mat(k,1314) = .400_r8*rxt(k,525)*y(k,147) + .280_r8*rxt(k,479)*y(k,258)
    1034             :          mat(k,1510) = .760_r8*rxt(k,537)*y(k,147) + .750_r8*rxt(k,400)*y(k,252) &
    1035   254840160 :                       + .380_r8*rxt(k,401)*y(k,253) + .360_r8*rxt(k,402)*y(k,258)
    1036   254840160 :          mat(k,4040) = mat(k,4040) + rxt(k,488)*y(k,122) + .070_r8*rxt(k,490)*y(k,123)
    1037   254840160 :          mat(k,1476) = -(rxt(k,346)*y(k,295))
    1038   254840160 :          mat(k,4021) = -rxt(k,346)*y(k,77)
    1039   254840160 :          mat(k,312) = .650_r8*rxt(k,321)*y(k,295)
    1040   254840160 :          mat(k,1710) = .200_r8*rxt(k,345)*y(k,295)
    1041   254840160 :          mat(k,884) = .890_r8*rxt(k,347)*y(k,295)
    1042   254840160 :          mat(k,2064) = .170_r8*rxt(k,459)*y(k,158)
    1043   254840160 :          mat(k,2096) = .170_r8*rxt(k,469)*y(k,158)
    1044   254840160 :          mat(k,1568) = .170_r8*rxt(k,484)*y(k,158)
    1045   254840160 :          mat(k,2127) = .660_r8*rxt(k,501)*y(k,158)
    1046             :          mat(k,3042) = rxt(k,545)*y(k,243) + .230_r8*rxt(k,503)*y(k,260) &
    1047             :                       + .400_r8*rxt(k,559)*y(k,285) + .170_r8*rxt(k,562)*y(k,287) &
    1048             :                       + .130_r8*rxt(k,539)*y(k,293) + .700_r8*rxt(k,565)*y(k,296) &
    1049             :                       + .600_r8*rxt(k,572)*y(k,314) + .340_r8*rxt(k,578)*y(k,316) &
    1050   254840160 :                       + .170_r8*rxt(k,581)*y(k,318)
    1051             :          mat(k,3700) = .170_r8*rxt(k,459)*y(k,115) + .170_r8*rxt(k,469)*y(k,118) &
    1052   254840160 :                       + .170_r8*rxt(k,484)*y(k,121) + .660_r8*rxt(k,501)*y(k,139)
    1053   254840160 :          mat(k,516) = rxt(k,545)*y(k,147)
    1054             :          mat(k,3299) = .150_r8*rxt(k,421)*y(k,260) + .160_r8*rxt(k,558)*y(k,285) &
    1055   254840160 :                       + .070_r8*rxt(k,561)*y(k,287) + .100_r8*rxt(k,499)*y(k,293)
    1056   254840160 :          mat(k,1299) = .230_r8*rxt(k,503)*y(k,147) + .150_r8*rxt(k,421)*y(k,258)
    1057   254840160 :          mat(k,863) = .400_r8*rxt(k,559)*y(k,147) + .160_r8*rxt(k,558)*y(k,258)
    1058   254840160 :          mat(k,930) = .170_r8*rxt(k,562)*y(k,147) + .070_r8*rxt(k,561)*y(k,258)
    1059   254840160 :          mat(k,1637) = .130_r8*rxt(k,539)*y(k,147) + .100_r8*rxt(k,499)*y(k,258)
    1060             :          mat(k,4021) = mat(k,4021) + .650_r8*rxt(k,321)*y(k,25) + .200_r8*rxt(k,345) &
    1061   254840160 :                       *y(k,76) + .890_r8*rxt(k,347)*y(k,89)
    1062   254840160 :          mat(k,457) = .700_r8*rxt(k,565)*y(k,147)
    1063   254840160 :          mat(k,876) = .600_r8*rxt(k,572)*y(k,147)
    1064   254840160 :          mat(k,898) = .340_r8*rxt(k,578)*y(k,147)
    1065   254840160 :          mat(k,537) = .170_r8*rxt(k,581)*y(k,147)
    1066             :          mat(k,2931) = -((rxt(k,178) + rxt(k,179) + rxt(k,180)) * y(k,258) + rxt(k,184) &
    1067   254840160 :                       *y(k,158))
    1068   254840160 :          mat(k,3363) = -(rxt(k,178) + rxt(k,179) + rxt(k,180)) * y(k,78)
    1069   254840160 :          mat(k,3754) = -rxt(k,184)*y(k,78)
    1070   254840160 :          mat(k,3183) = rxt(k,301)*y(k,295)
    1071   254840160 :          mat(k,2260) = rxt(k,316)*y(k,294)
    1072   254840160 :          mat(k,3836) = rxt(k,220)*y(k,79)
    1073   254840160 :          mat(k,1245) = rxt(k,276)*y(k,79)
    1074             :          mat(k,1675) = rxt(k,220)*y(k,57) + rxt(k,276)*y(k,75) + rxt(k,176)*y(k,157) &
    1075   254840160 :                       + rxt(k,168)*y(k,294) + rxt(k,185)*y(k,295)
    1076   254840160 :          mat(k,1152) = rxt(k,274)*y(k,294)
    1077   254840160 :          mat(k,3127) = rxt(k,251)*y(k,294)
    1078   254840160 :          mat(k,478) = rxt(k,206)*y(k,295)
    1079   254840160 :          mat(k,3157) = rxt(k,176)*y(k,79) + rxt(k,188)*y(k,295)
    1080   254840160 :          mat(k,390) = rxt(k,796)*y(k,295)
    1081   254840160 :          mat(k,545) = rxt(k,802)*y(k,295)
    1082   254840160 :          mat(k,1602) = rxt(k,807)*y(k,295)
    1083             :          mat(k,3795) = rxt(k,316)*y(k,55) + rxt(k,168)*y(k,79) + rxt(k,274)*y(k,83) &
    1084   254840160 :                       + rxt(k,251)*y(k,87)
    1085             :          mat(k,4086) = rxt(k,301)*y(k,43) + rxt(k,185)*y(k,79) + rxt(k,206)*y(k,136) &
    1086             :                       + rxt(k,188)*y(k,157) + rxt(k,796)*y(k,161) + rxt(k,802) &
    1087   254840160 :                       *y(k,172) + rxt(k,807)*y(k,174)
    1088             :          mat(k,1673) = -(rxt(k,168)*y(k,294) + rxt(k,176)*y(k,157) + rxt(k,185) &
    1089   254840160 :                       *y(k,295) + rxt(k,220)*y(k,57) + rxt(k,276)*y(k,75))
    1090   254840160 :          mat(k,3792) = -rxt(k,168)*y(k,79)
    1091   254840160 :          mat(k,3153) = -rxt(k,176)*y(k,79)
    1092   254840160 :          mat(k,4037) = -rxt(k,185)*y(k,79)
    1093   254840160 :          mat(k,3830) = -rxt(k,220)*y(k,79)
    1094   254840160 :          mat(k,1243) = -rxt(k,276)*y(k,79)
    1095   254840160 :          mat(k,2257) = rxt(k,317)*y(k,294)
    1096   254840160 :          mat(k,2929) = rxt(k,178)*y(k,258)
    1097   254840160 :          mat(k,3313) = rxt(k,178)*y(k,78)
    1098   254840160 :          mat(k,3792) = mat(k,3792) + rxt(k,317)*y(k,55)
    1099   254840160 :          mat(k,126) = -(rxt(k,272)*y(k,294))
    1100   254840160 :          mat(k,3772) = -rxt(k,272)*y(k,80)
    1101             :          mat(k,1487) = -(rxt(k,177)*y(k,157) + rxt(k,186)*y(k,295) + rxt(k,221) &
    1102   254840160 :                       *y(k,57))
    1103   254840160 :          mat(k,3151) = -rxt(k,177)*y(k,81)
    1104   254840160 :          mat(k,4023) = -rxt(k,186)*y(k,81)
    1105   254840160 :          mat(k,3827) = -rxt(k,221)*y(k,81)
    1106   254840160 :          mat(k,1274) = .220_r8*rxt(k,602)*y(k,158)
    1107   254840160 :          mat(k,1042) = .170_r8*rxt(k,622)*y(k,158)
    1108   254840160 :          mat(k,1097) = .320_r8*rxt(k,642)*y(k,158)
    1109   254840160 :          mat(k,1411) = .030_r8*rxt(k,486)*y(k,158)
    1110   254840160 :          mat(k,2066) = .660_r8*rxt(k,459)*y(k,158)
    1111   254840160 :          mat(k,2097) = .660_r8*rxt(k,469)*y(k,158)
    1112   254840160 :          mat(k,1570) = .660_r8*rxt(k,484)*y(k,158)
    1113   254840160 :          mat(k,1072) = .330_r8*rxt(k,662)*y(k,158)
    1114   254840160 :          mat(k,2129) = .660_r8*rxt(k,501)*y(k,158)
    1115             :          mat(k,3702) = .220_r8*rxt(k,602)*y(k,4) + .170_r8*rxt(k,622)*y(k,7) &
    1116             :                       + .320_r8*rxt(k,642)*y(k,17) + .030_r8*rxt(k,486)*y(k,109) &
    1117             :                       + .660_r8*rxt(k,459)*y(k,115) + .660_r8*rxt(k,469)*y(k,118) &
    1118             :                       + .660_r8*rxt(k,484)*y(k,121) + .330_r8*rxt(k,662)*y(k,125) &
    1119             :                       + .660_r8*rxt(k,501)*y(k,139) + .020_r8*rxt(k,762)*y(k,212) &
    1120   254840160 :                       + .040_r8*rxt(k,767)*y(k,213)
    1121   254840160 :          mat(k,2623) = .020_r8*rxt(k,762)*y(k,158)
    1122   254840160 :          mat(k,2593) = .040_r8*rxt(k,767)*y(k,158)
    1123   254840160 :          mat(k,3301) = 2.000_r8*rxt(k,192)*y(k,258)
    1124   254840160 :          mat(k,4023) = mat(k,4023) + 2.000_r8*rxt(k,191)*y(k,295)
    1125   254840160 :          mat(k,278) = rxt(k,809)*y(k,319)
    1126   254840160 :          mat(k,4103) = rxt(k,809)*y(k,176)
    1127             :          mat(k,1150) = -(rxt(k,267)*y(k,157) + rxt(k,268)*y(k,295) + (rxt(k,273) &
    1128   254840160 :                       + rxt(k,274)) * y(k,294))
    1129   254840160 :          mat(k,3147) = -rxt(k,267)*y(k,83)
    1130   254840160 :          mat(k,3994) = -rxt(k,268)*y(k,83)
    1131   254840160 :          mat(k,3790) = -(rxt(k,273) + rxt(k,274)) * y(k,83)
    1132   254840160 :          mat(k,2197) = rxt(k,254)*y(k,43) + rxt(k,255)*y(k,258)
    1133   254840160 :          mat(k,3175) = rxt(k,254)*y(k,18)
    1134   254840160 :          mat(k,3280) = rxt(k,255)*y(k,18)
    1135   254840160 :          mat(k,251) = -(rxt(k,290)*y(k,295) + rxt(k,295)*y(k,294))
    1136   254840160 :          mat(k,3887) = -rxt(k,290)*y(k,84)
    1137   254840160 :          mat(k,3783) = -rxt(k,295)*y(k,84)
    1138   254840160 :          mat(k,261) = -(rxt(k,291)*y(k,295) + rxt(k,296)*y(k,294))
    1139   254840160 :          mat(k,3889) = -rxt(k,291)*y(k,85)
    1140   254840160 :          mat(k,3785) = -rxt(k,296)*y(k,85)
    1141   254840160 :          mat(k,326) = -(rxt(k,292)*y(k,295) + rxt(k,297)*y(k,294))
    1142   254840160 :          mat(k,3900) = -rxt(k,292)*y(k,86)
    1143   254840160 :          mat(k,3786) = -rxt(k,297)*y(k,86)
    1144             :          mat(k,3129) = -(rxt(k,238)*y(k,157) + rxt(k,239)*y(k,295) + (rxt(k,250) &
    1145             :                       + rxt(k,251)) * y(k,294) + (rxt(k,885) + rxt(k,891) + rxt(k,896) &
    1146             :                       ) * y(k,96) + (rxt(k,890) + rxt(k,895) + rxt(k,900)) * y(k,61) &
    1147   254840160 :                       + (rxt(k,892) + rxt(k,897)) * y(k,95))
    1148   254840160 :          mat(k,3160) = -rxt(k,238)*y(k,87)
    1149   254840160 :          mat(k,4089) = -rxt(k,239)*y(k,87)
    1150   254840160 :          mat(k,3798) = -(rxt(k,250) + rxt(k,251)) * y(k,87)
    1151   254840160 :          mat(k,1160) = -(rxt(k,885) + rxt(k,891) + rxt(k,896)) * y(k,87)
    1152   254840160 :          mat(k,1327) = -(rxt(k,890) + rxt(k,895) + rxt(k,900)) * y(k,87)
    1153   254840160 :          mat(k,997) = -(rxt(k,892) + rxt(k,897)) * y(k,87)
    1154   254840160 :          mat(k,318) = rxt(k,330)*y(k,57)
    1155   254840160 :          mat(k,497) = rxt(k,281)*y(k,57)
    1156   254840160 :          mat(k,3186) = rxt(k,218)*y(k,57)
    1157   254840160 :          mat(k,648) = rxt(k,283)*y(k,57)
    1158   254840160 :          mat(k,395) = 2.000_r8*rxt(k,286)*y(k,57)
    1159   254840160 :          mat(k,2262) = rxt(k,219)*y(k,57)
    1160   254840160 :          mat(k,464) = rxt(k,288)*y(k,57)
    1161             :          mat(k,3839) = rxt(k,330)*y(k,29) + rxt(k,281)*y(k,42) + rxt(k,218)*y(k,43) &
    1162             :                       + rxt(k,283)*y(k,44) + 2.000_r8*rxt(k,286)*y(k,47) + rxt(k,219) &
    1163             :                       *y(k,55) + rxt(k,288)*y(k,56) + rxt(k,220)*y(k,79) + rxt(k,221) &
    1164   254840160 :                       *y(k,81) + rxt(k,240)*y(k,96) + rxt(k,222)*y(k,258)
    1165   254840160 :          mat(k,3509) = rxt(k,237)*y(k,295)
    1166   254840160 :          mat(k,1677) = rxt(k,220)*y(k,57)
    1167   254840160 :          mat(k,1488) = rxt(k,221)*y(k,57)
    1168   254840160 :          mat(k,1160) = mat(k,1160) + rxt(k,240)*y(k,57)
    1169   254840160 :          mat(k,3366) = rxt(k,222)*y(k,57)
    1170   263009123 :          mat(k,4089) = mat(k,4089) + rxt(k,237)*y(k,60)
    1171             :       end do
    1172     8168963 :       end subroutine nlnmat04
    1173     8168963 :       subroutine nlnmat05( avec_len, mat, y, rxt )
    1174             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    1175             :       implicit none
    1176             : !----------------------------------------------
    1177             : ! ... dummy arguments
    1178             : !----------------------------------------------
    1179             :       integer, intent(in) :: avec_len
    1180             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    1181             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    1182             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    1183             : !----------------------------------------------
    1184             : ! ... local variables
    1185             : !----------------------------------------------
    1186             :       integer :: k
    1187             : !----------------------------------------------
    1188             : ! ... complete matrix entries implicit species
    1189             : !----------------------------------------------
    1190   263009123 :       do k = 1,avec_len
    1191   254840160 :          mat(k,197) = -(rxt(k,309)*y(k,295) + rxt(k,318)*y(k,294))
    1192   254840160 :          mat(k,3877) = -rxt(k,309)*y(k,88)
    1193   254840160 :          mat(k,3780) = -rxt(k,318)*y(k,88)
    1194   254840160 :          mat(k,883) = -(rxt(k,347)*y(k,295))
    1195   254840160 :          mat(k,3969) = -rxt(k,347)*y(k,89)
    1196   254840160 :          mat(k,1562) = .700_r8*rxt(k,484)*y(k,158)
    1197   254840160 :          mat(k,3006) = .810_r8*rxt(k,527)*y(k,276)
    1198   254840160 :          mat(k,3683) = .700_r8*rxt(k,484)*y(k,121)
    1199   254840160 :          mat(k,3261) = .680_r8*rxt(k,482)*y(k,276)
    1200   254840160 :          mat(k,1359) = .810_r8*rxt(k,527)*y(k,147) + .680_r8*rxt(k,482)*y(k,258)
    1201   254840160 :          mat(k,1377) = -(rxt(k,310)*y(k,295))
    1202   254840160 :          mat(k,4013) = -rxt(k,310)*y(k,90)
    1203   254840160 :          mat(k,1096) = .080_r8*rxt(k,642)*y(k,158)
    1204   254840160 :          mat(k,311) = .350_r8*rxt(k,321)*y(k,295)
    1205   254840160 :          mat(k,587) = .370_r8*rxt(k,323)*y(k,158)
    1206   254840160 :          mat(k,1384) = .120_r8*rxt(k,354)*y(k,158)
    1207   254840160 :          mat(k,1211) = .500_r8*rxt(k,311)*y(k,295)
    1208   254840160 :          mat(k,504) = .400_r8*rxt(k,422)*y(k,295)
    1209   254840160 :          mat(k,1409) = .220_r8*rxt(k,486)*y(k,158)
    1210   254840160 :          mat(k,2009) = .330_r8*rxt(k,385)*y(k,158)
    1211   254840160 :          mat(k,2031) = .120_r8*rxt(k,403)*y(k,158)
    1212   254840160 :          mat(k,3036) = rxt(k,314)*y(k,259)
    1213             :          mat(k,3695) = .080_r8*rxt(k,642)*y(k,17) + .370_r8*rxt(k,323)*y(k,26) &
    1214             :                       + .120_r8*rxt(k,354)*y(k,30) + .220_r8*rxt(k,486)*y(k,109) &
    1215             :                       + .330_r8*rxt(k,385)*y(k,126) + .120_r8*rxt(k,403)*y(k,132) &
    1216   254840160 :                       + .150_r8*rxt(k,762)*y(k,212) + .260_r8*rxt(k,767)*y(k,213)
    1217   254840160 :          mat(k,2622) = .150_r8*rxt(k,762)*y(k,158)
    1218   254840160 :          mat(k,2592) = .260_r8*rxt(k,767)*y(k,158)
    1219   254840160 :          mat(k,3293) = .500_r8*rxt(k,312)*y(k,259)
    1220   254840160 :          mat(k,695) = rxt(k,314)*y(k,147) + .500_r8*rxt(k,312)*y(k,258)
    1221             :          mat(k,4013) = mat(k,4013) + .350_r8*rxt(k,321)*y(k,25) + .500_r8*rxt(k,311) &
    1222   254840160 :                       *y(k,92) + .400_r8*rxt(k,422)*y(k,107)
    1223   254840160 :          mat(k,2254) = rxt(k,275)*y(k,75)
    1224             :          mat(k,1241) = rxt(k,275)*y(k,55) + rxt(k,276)*y(k,79) + rxt(k,278)*y(k,93) &
    1225   254840160 :                       + rxt(k,277)*y(k,319)
    1226   254840160 :          mat(k,1671) = rxt(k,276)*y(k,75)
    1227   254840160 :          mat(k,2944) = rxt(k,278)*y(k,75)
    1228   254840160 :          mat(k,4105) = rxt(k,277)*y(k,75)
    1229   254840160 :          mat(k,1210) = -(rxt(k,311)*y(k,295))
    1230   254840160 :          mat(k,3999) = -rxt(k,311)*y(k,92)
    1231   254840160 :          mat(k,1095) = .110_r8*rxt(k,642)*y(k,158)
    1232   254840160 :          mat(k,1408) = .330_r8*rxt(k,486)*y(k,158)
    1233             :          mat(k,3690) = .110_r8*rxt(k,642)*y(k,17) + .330_r8*rxt(k,486)*y(k,109) &
    1234   254840160 :                       + .230_r8*rxt(k,762)*y(k,212) + .400_r8*rxt(k,767)*y(k,213)
    1235   254840160 :          mat(k,2621) = .230_r8*rxt(k,762)*y(k,158)
    1236   254840160 :          mat(k,2591) = .400_r8*rxt(k,767)*y(k,158)
    1237   254840160 :          mat(k,3285) = .500_r8*rxt(k,312)*y(k,259)
    1238   254840160 :          mat(k,694) = .500_r8*rxt(k,312)*y(k,258)
    1239   254840160 :          mat(k,2949) = -(rxt(k,215)*y(k,295) + rxt(k,278)*y(k,75))
    1240   254840160 :          mat(k,4087) = -rxt(k,215)*y(k,93)
    1241   254840160 :          mat(k,1246) = -rxt(k,278)*y(k,93)
    1242   254840160 :          mat(k,3184) = rxt(k,299)*y(k,149)
    1243   254840160 :          mat(k,1434) = rxt(k,332)*y(k,149)
    1244   254840160 :          mat(k,1929) = rxt(k,360)*y(k,149)
    1245   254840160 :          mat(k,1326) = (rxt(k,890)+rxt(k,895)+rxt(k,900))*y(k,87)
    1246   254840160 :          mat(k,306) = rxt(k,793)*y(k,149)
    1247   254840160 :          mat(k,3128) = (rxt(k,890)+rxt(k,895)+rxt(k,900))*y(k,61)
    1248   254840160 :          mat(k,3653) = rxt(k,214)*y(k,295)
    1249             :          mat(k,3601) = rxt(k,299)*y(k,43) + rxt(k,332)*y(k,46) + rxt(k,360)*y(k,50) &
    1250             :                       + rxt(k,793)*y(k,69) + rxt(k,755)*y(k,202) + rxt(k,708)*y(k,203) &
    1251   254840160 :                       + rxt(k,727)*y(k,205)
    1252   254840160 :          mat(k,2363) = rxt(k,755)*y(k,149)
    1253   254840160 :          mat(k,1293) = rxt(k,708)*y(k,149)
    1254   254840160 :          mat(k,1722) = rxt(k,727)*y(k,149)
    1255   254840160 :          mat(k,4087) = mat(k,4087) + rxt(k,214)*y(k,148)
    1256   254840160 :          mat(k,443) = -(rxt(k,193)*y(k,295))
    1257   254840160 :          mat(k,3917) = -rxt(k,193)*y(k,94)
    1258   254840160 :          mat(k,3621) = rxt(k,212)*y(k,258)
    1259   254840160 :          mat(k,3231) = rxt(k,212)*y(k,148)
    1260   254840160 :          mat(k,995) = -(rxt(k,269)*y(k,157) + (rxt(k,892) + rxt(k,897)) * y(k,87))
    1261   254840160 :          mat(k,3146) = -rxt(k,269)*y(k,95)
    1262   254840160 :          mat(k,3123) = -(rxt(k,892) + rxt(k,897)) * y(k,95)
    1263   254840160 :          mat(k,3476) = rxt(k,261)*y(k,258)
    1264   254840160 :          mat(k,3271) = rxt(k,261)*y(k,20)
    1265             :          mat(k,1159) = -(rxt(k,240)*y(k,57) + rxt(k,241)*y(k,157) + rxt(k,242) &
    1266   254840160 :                       *y(k,295) + (rxt(k,885) + rxt(k,891) + rxt(k,896)) * y(k,87))
    1267   254840160 :          mat(k,3821) = -rxt(k,240)*y(k,96)
    1268   254840160 :          mat(k,3148) = -rxt(k,241)*y(k,96)
    1269   254840160 :          mat(k,3995) = -rxt(k,242)*y(k,96)
    1270   254840160 :          mat(k,3124) = -(rxt(k,885) + rxt(k,891) + rxt(k,896)) * y(k,96)
    1271   254840160 :          mat(k,3501) = rxt(k,229)*y(k,258)
    1272   254840160 :          mat(k,1324) = rxt(k,234)*y(k,295)
    1273   254840160 :          mat(k,3281) = rxt(k,229)*y(k,60)
    1274   254840160 :          mat(k,3995) = mat(k,3995) + rxt(k,234)*y(k,61)
    1275   254840160 :          mat(k,974) = -(rxt(k,379)*y(k,295))
    1276   254840160 :          mat(k,3980) = -rxt(k,379)*y(k,97)
    1277   254840160 :          mat(k,3015) = rxt(k,378)*y(k,255)
    1278   254840160 :          mat(k,606) = rxt(k,378)*y(k,147)
    1279   254840160 :          mat(k,613) = -(rxt(k,414)*y(k,295))
    1280   254840160 :          mat(k,3941) = -rxt(k,414)*y(k,98)
    1281   254840160 :          mat(k,626) = -(rxt(k,415)*y(k,295))
    1282   254840160 :          mat(k,3942) = -rxt(k,415)*y(k,99)
    1283   254840160 :          mat(k,488) = -(rxt(k,416)*y(k,295))
    1284   254840160 :          mat(k,3925) = -rxt(k,416)*y(k,100)
    1285   254840160 :          mat(k,1883) = .090_r8*rxt(k,489)*y(k,295)
    1286   254840160 :          mat(k,3925) = mat(k,3925) + .090_r8*rxt(k,489)*y(k,123)
    1287   254840160 :          mat(k,521) = -(rxt(k,417)*y(k,295))
    1288   254840160 :          mat(k,3929) = -rxt(k,417)*y(k,101)
    1289   254840160 :          mat(k,1884) = .090_r8*rxt(k,489)*y(k,295)
    1290   254840160 :          mat(k,3929) = mat(k,3929) + .090_r8*rxt(k,489)*y(k,123)
    1291   254840160 :          mat(k,1770) = -(rxt(k,362)*y(k,295))
    1292   254840160 :          mat(k,4044) = -rxt(k,362)*y(k,102)
    1293   254840160 :          mat(k,1870) = .220_r8*rxt(k,418)*y(k,295)
    1294   254840160 :          mat(k,915) = .500_r8*rxt(k,419)*y(k,295)
    1295   254840160 :          mat(k,1256) = .190_r8*rxt(k,423)*y(k,295)
    1296   254840160 :          mat(k,773) = .280_r8*rxt(k,456)*y(k,295)
    1297   254840160 :          mat(k,2103) = .830_r8*rxt(k,469)*y(k,158)
    1298   254840160 :          mat(k,921) = rxt(k,488)*y(k,295)
    1299   254840160 :          mat(k,1893) = .070_r8*rxt(k,490)*y(k,295)
    1300   254840160 :          mat(k,1777) = .500_r8*rxt(k,380)*y(k,295)
    1301   254840160 :          mat(k,1462) = rxt(k,387)*y(k,295)
    1302   254840160 :          mat(k,530) = .250_r8*rxt(k,398)*y(k,295)
    1303   254840160 :          mat(k,828) = .180_r8*rxt(k,682)*y(k,158)
    1304             :          mat(k,3061) = .290_r8*rxt(k,503)*y(k,260) + .730_r8*rxt(k,515)*y(k,270) &
    1305             :                       + .870_r8*rxt(k,519)*y(k,272) + .330_r8*rxt(k,521)*y(k,273) &
    1306   254840160 :                       + .070_r8*rxt(k,525)*y(k,275) + .860_r8*rxt(k,535)*y(k,284)
    1307   254840160 :          mat(k,3713) = .830_r8*rxt(k,469)*y(k,118) + .180_r8*rxt(k,682)*y(k,135)
    1308   254840160 :          mat(k,580) = .500_r8*rxt(k,367)*y(k,295)
    1309   254840160 :          mat(k,2873) = .860_r8*rxt(k,381)*y(k,284)
    1310   254840160 :          mat(k,3414) = .900_r8*rxt(k,382)*y(k,284) + .200_r8*rxt(k,368)*y(k,298)
    1311             :          mat(k,3320) = .190_r8*rxt(k,421)*y(k,260) + .460_r8*rxt(k,461)*y(k,270) &
    1312             :                       + .440_r8*rxt(k,467)*y(k,272) + .150_r8*rxt(k,471)*y(k,273) &
    1313   254840160 :                       + .060_r8*rxt(k,479)*y(k,275) + .510_r8*rxt(k,383)*y(k,284)
    1314   254840160 :          mat(k,1301) = .290_r8*rxt(k,503)*y(k,147) + .190_r8*rxt(k,421)*y(k,258)
    1315   254840160 :          mat(k,1170) = .730_r8*rxt(k,515)*y(k,147) + .460_r8*rxt(k,461)*y(k,258)
    1316   254840160 :          mat(k,1136) = .870_r8*rxt(k,519)*y(k,147) + .440_r8*rxt(k,467)*y(k,258)
    1317   254840160 :          mat(k,1446) = .330_r8*rxt(k,521)*y(k,147) + .150_r8*rxt(k,471)*y(k,258)
    1318   254840160 :          mat(k,1315) = .070_r8*rxt(k,525)*y(k,147) + .060_r8*rxt(k,479)*y(k,258)
    1319             :          mat(k,1545) = .860_r8*rxt(k,535)*y(k,147) + .860_r8*rxt(k,381)*y(k,252) &
    1320   254840160 :                       + .900_r8*rxt(k,382)*y(k,253) + .510_r8*rxt(k,383)*y(k,258)
    1321             :          mat(k,4044) = mat(k,4044) + .220_r8*rxt(k,418)*y(k,103) + .500_r8*rxt(k,419) &
    1322             :                       *y(k,105) + .190_r8*rxt(k,423)*y(k,108) + .280_r8*rxt(k,456) &
    1323             :                       *y(k,114) + rxt(k,488)*y(k,122) + .070_r8*rxt(k,490)*y(k,123) &
    1324             :                       + .500_r8*rxt(k,380)*y(k,127) + rxt(k,387)*y(k,128) &
    1325   254840160 :                       + .250_r8*rxt(k,398)*y(k,131) + .500_r8*rxt(k,367)*y(k,170)
    1326   254840160 :          mat(k,1338) = .200_r8*rxt(k,368)*y(k,253)
    1327   254840160 :          mat(k,1872) = -(rxt(k,418)*y(k,295))
    1328   254840160 :          mat(k,4049) = -rxt(k,418)*y(k,103)
    1329   254840160 :          mat(k,1895) = .130_r8*rxt(k,489)*y(k,295)
    1330             :          mat(k,3066) = .450_r8*rxt(k,509)*y(k,267) + .450_r8*rxt(k,511)*y(k,268) &
    1331   254840160 :                       + .450_r8*rxt(k,530)*y(k,278) + .450_r8*rxt(k,533)*y(k,279)
    1332             :          mat(k,2877) = .450_r8*rxt(k,444)*y(k,267) + .450_r8*rxt(k,448)*y(k,268) &
    1333   254840160 :                       + .450_r8*rxt(k,491)*y(k,278) + .450_r8*rxt(k,495)*y(k,279)
    1334             :          mat(k,3419) = .250_r8*rxt(k,431)*y(k,262) + .470_r8*rxt(k,445)*y(k,267) &
    1335             :                       + .470_r8*rxt(k,449)*y(k,268) + .470_r8*rxt(k,492)*y(k,278) &
    1336   254840160 :                       + .470_r8*rxt(k,496)*y(k,279)
    1337   254840160 :          mat(k,1986) = .250_r8*rxt(k,431)*y(k,253)
    1338             :          mat(k,1734) = .450_r8*rxt(k,509)*y(k,147) + .450_r8*rxt(k,444)*y(k,252) &
    1339   254840160 :                       + .470_r8*rxt(k,445)*y(k,253)
    1340             :          mat(k,1756) = .450_r8*rxt(k,511)*y(k,147) + .450_r8*rxt(k,448)*y(k,252) &
    1341   254840160 :                       + .470_r8*rxt(k,449)*y(k,253)
    1342             :          mat(k,1849) = .450_r8*rxt(k,530)*y(k,147) + .450_r8*rxt(k,491)*y(k,252) &
    1343   254840160 :                       + .470_r8*rxt(k,492)*y(k,253)
    1344             :          mat(k,1818) = .450_r8*rxt(k,533)*y(k,147) + .450_r8*rxt(k,495)*y(k,252) &
    1345   254840160 :                       + .470_r8*rxt(k,496)*y(k,253)
    1346   254840160 :          mat(k,4049) = mat(k,4049) + .130_r8*rxt(k,489)*y(k,123)
    1347   254840160 :          mat(k,924) = -(rxt(k,363)*y(k,295))
    1348   254840160 :          mat(k,3974) = -rxt(k,363)*y(k,104)
    1349   254840160 :          mat(k,640) = rxt(k,376)*y(k,295)
    1350   254840160 :          mat(k,629) = .150_r8*rxt(k,415)*y(k,295)
    1351   254840160 :          mat(k,1563) = .130_r8*rxt(k,484)*y(k,158)
    1352   254840160 :          mat(k,3009) = .150_r8*rxt(k,527)*y(k,276)
    1353   254840160 :          mat(k,3684) = .130_r8*rxt(k,484)*y(k,121)
    1354   254840160 :          mat(k,3264) = .120_r8*rxt(k,482)*y(k,276)
    1355   254840160 :          mat(k,1360) = .150_r8*rxt(k,527)*y(k,147) + .120_r8*rxt(k,482)*y(k,258)
    1356   254840160 :          mat(k,3974) = mat(k,3974) + rxt(k,376)*y(k,68) + .150_r8*rxt(k,415)*y(k,99)
    1357   254840160 :          mat(k,914) = -(rxt(k,419)*y(k,295))
    1358   254840160 :          mat(k,3972) = -rxt(k,419)*y(k,105)
    1359   254840160 :          mat(k,615) = .080_r8*rxt(k,414)*y(k,295)
    1360   254840160 :          mat(k,628) = .180_r8*rxt(k,415)*y(k,295)
    1361   254840160 :          mat(k,489) = .580_r8*rxt(k,416)*y(k,295)
    1362   254840160 :          mat(k,522) = .770_r8*rxt(k,417)*y(k,295)
    1363   254840160 :          mat(k,1521) = .190_r8*rxt(k,420)*y(k,295)
    1364   254840160 :          mat(k,2125) = .040_r8*rxt(k,502)*y(k,295)
    1365             :          mat(k,3972) = mat(k,3972) + .080_r8*rxt(k,414)*y(k,98) + .180_r8*rxt(k,415) &
    1366             :                       *y(k,99) + .580_r8*rxt(k,416)*y(k,100) + .770_r8*rxt(k,417) &
    1367             :                       *y(k,101) + .190_r8*rxt(k,420)*y(k,106) + .040_r8*rxt(k,502) &
    1368   254840160 :                       *y(k,139)
    1369   254840160 :          mat(k,1524) = -(rxt(k,420)*y(k,295))
    1370   254840160 :          mat(k,4027) = -rxt(k,420)*y(k,106)
    1371   254840160 :          mat(k,2067) = .080_r8*rxt(k,460)*y(k,295)
    1372   254840160 :          mat(k,675) = .150_r8*rxt(k,463)*y(k,295)
    1373   254840160 :          mat(k,595) = .130_r8*rxt(k,466)*y(k,295)
    1374   254840160 :          mat(k,2099) = .040_r8*rxt(k,470)*y(k,295)
    1375   254840160 :          mat(k,1571) = .070_r8*rxt(k,485)*y(k,295)
    1376   254840160 :          mat(k,1890) = .850_r8*rxt(k,490)*y(k,295)
    1377             :          mat(k,4027) = mat(k,4027) + .080_r8*rxt(k,460)*y(k,115) + .150_r8*rxt(k,463) &
    1378             :                       *y(k,116) + .130_r8*rxt(k,466)*y(k,117) + .040_r8*rxt(k,470) &
    1379             :                       *y(k,118) + .070_r8*rxt(k,485)*y(k,121) + .850_r8*rxt(k,490) &
    1380   254840160 :                       *y(k,123)
    1381   254840160 :          mat(k,502) = -(rxt(k,422)*y(k,295))
    1382   254840160 :          mat(k,3927) = -rxt(k,422)*y(k,107)
    1383   254840160 :          mat(k,502) = mat(k,502) + .200_r8*rxt(k,422)*y(k,295)
    1384   254840160 :          mat(k,1192) = .400_r8*rxt(k,481)*y(k,295)
    1385             :          mat(k,3927) = mat(k,3927) + .200_r8*rxt(k,422)*y(k,107) + .400_r8*rxt(k,481) &
    1386   254840160 :                       *y(k,120)
    1387   254840160 :          mat(k,1252) = -(rxt(k,423)*y(k,295))
    1388   254840160 :          mat(k,4004) = -rxt(k,423)*y(k,108)
    1389   254840160 :          mat(k,1252) = mat(k,1252) + .060_r8*rxt(k,423)*y(k,295)
    1390   254840160 :          mat(k,729) = .030_r8*rxt(k,472)*y(k,295)
    1391   254840160 :          mat(k,1564) = .200_r8*rxt(k,485)*y(k,295)
    1392             :          mat(k,4004) = mat(k,4004) + .060_r8*rxt(k,423)*y(k,108) + .030_r8*rxt(k,472) &
    1393   263009123 :                       *y(k,119) + .200_r8*rxt(k,485)*y(k,121)
    1394             :       end do
    1395     8168963 :       end subroutine nlnmat05
    1396     8168963 :       subroutine nlnmat06( avec_len, mat, y, rxt )
    1397             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    1398             :       implicit none
    1399             : !----------------------------------------------
    1400             : ! ... dummy arguments
    1401             : !----------------------------------------------
    1402             :       integer, intent(in) :: avec_len
    1403             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    1404             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    1405             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    1406             : !----------------------------------------------
    1407             : ! ... local variables
    1408             : !----------------------------------------------
    1409             :       integer :: k
    1410             : !----------------------------------------------
    1411             : ! ... complete matrix entries implicit species
    1412             : !----------------------------------------------
    1413   263009123 :       do k = 1,avec_len
    1414   254840160 :          mat(k,1410) = -(rxt(k,473)*y(k,149) + rxt(k,486)*y(k,158) + rxt(k,487) &
    1415   254840160 :                       *y(k,295))
    1416   254840160 :          mat(k,3543) = -rxt(k,473)*y(k,109)
    1417   254840160 :          mat(k,3697) = -rxt(k,486)*y(k,109)
    1418   254840160 :          mat(k,4015) = -rxt(k,487)*y(k,109)
    1419   254840160 :          mat(k,1659) = -(rxt(k,453)*y(k,295))
    1420   254840160 :          mat(k,4036) = -rxt(k,453)*y(k,110)
    1421             :          mat(k,3054) = rxt(k,514)*y(k,269) + rxt(k,516)*y(k,270) + rxt(k,518)*y(k,271) &
    1422             :                       + rxt(k,520)*y(k,272) + rxt(k,522)*y(k,273) + rxt(k,524) &
    1423   254840160 :                       *y(k,274) + rxt(k,526)*y(k,275) + rxt(k,528)*y(k,276)
    1424   254840160 :          mat(k,1124) = rxt(k,514)*y(k,147)
    1425   254840160 :          mat(k,1168) = rxt(k,516)*y(k,147)
    1426   254840160 :          mat(k,1056) = rxt(k,518)*y(k,147)
    1427   254840160 :          mat(k,1135) = rxt(k,520)*y(k,147)
    1428   254840160 :          mat(k,1444) = rxt(k,522)*y(k,147)
    1429   254840160 :          mat(k,2167) = rxt(k,524)*y(k,147)
    1430   254840160 :          mat(k,1313) = rxt(k,526)*y(k,147)
    1431   254840160 :          mat(k,1366) = rxt(k,528)*y(k,147)
    1432   254840160 :          mat(k,1110) = -(rxt(k,452)*y(k,295))
    1433   254840160 :          mat(k,3990) = -rxt(k,452)*y(k,111)
    1434   254840160 :          mat(k,1656) = rxt(k,453)*y(k,295)
    1435   254840160 :          mat(k,3022) = rxt(k,540)*y(k,293)
    1436   254840160 :          mat(k,1634) = rxt(k,540)*y(k,147)
    1437   254840160 :          mat(k,3990) = mat(k,3990) + rxt(k,453)*y(k,110)
    1438   254840160 :          mat(k,1793) = -(rxt(k,454)*y(k,295))
    1439   254840160 :          mat(k,4046) = -rxt(k,454)*y(k,112)
    1440   254840160 :          mat(k,1471) = rxt(k,455)*y(k,295)
    1441   254840160 :          mat(k,3063) = rxt(k,504)*y(k,260)
    1442   254840160 :          mat(k,1302) = rxt(k,504)*y(k,147)
    1443   254840160 :          mat(k,4046) = mat(k,4046) + rxt(k,455)*y(k,113)
    1444   254840160 :          mat(k,1468) = -(rxt(k,455)*y(k,295))
    1445   254840160 :          mat(k,4020) = -rxt(k,455)*y(k,113)
    1446             :          mat(k,3298) = .420_r8*rxt(k,457)*y(k,269) + .480_r8*rxt(k,461)*y(k,270) &
    1447             :                       + .400_r8*rxt(k,464)*y(k,271) + .500_r8*rxt(k,467)*y(k,272) &
    1448             :                       + .600_r8*rxt(k,471)*y(k,273) + .490_r8*rxt(k,479)*y(k,275) &
    1449   254840160 :                       + .170_r8*rxt(k,482)*y(k,276) + .200_r8*rxt(k,499)*y(k,293)
    1450   254840160 :          mat(k,1122) = .420_r8*rxt(k,457)*y(k,258)
    1451   254840160 :          mat(k,1167) = .480_r8*rxt(k,461)*y(k,258)
    1452   254840160 :          mat(k,1055) = .400_r8*rxt(k,464)*y(k,258)
    1453   254840160 :          mat(k,1134) = .500_r8*rxt(k,467)*y(k,258)
    1454   254840160 :          mat(k,1442) = .600_r8*rxt(k,471)*y(k,258)
    1455   254840160 :          mat(k,1311) = .490_r8*rxt(k,479)*y(k,258)
    1456   254840160 :          mat(k,1363) = .170_r8*rxt(k,482)*y(k,258)
    1457   254840160 :          mat(k,1636) = .200_r8*rxt(k,499)*y(k,258)
    1458   254840160 :          mat(k,770) = -(rxt(k,456)*y(k,295))
    1459   254840160 :          mat(k,3957) = -rxt(k,456)*y(k,114)
    1460   254840160 :          mat(k,1885) = .080_r8*rxt(k,490)*y(k,295)
    1461   254840160 :          mat(k,3250) = .350_r8*rxt(k,421)*y(k,260)
    1462   254840160 :          mat(k,1297) = .350_r8*rxt(k,421)*y(k,258)
    1463   254840160 :          mat(k,3957) = mat(k,3957) + .080_r8*rxt(k,490)*y(k,123)
    1464   254840160 :          mat(k,2078) = -(rxt(k,459)*y(k,158) + rxt(k,460)*y(k,295))
    1465   254840160 :          mat(k,3727) = -rxt(k,459)*y(k,115)
    1466   254840160 :          mat(k,4058) = -rxt(k,460)*y(k,115)
    1467   254840160 :          mat(k,3075) = rxt(k,512)*y(k,268) + rxt(k,534)*y(k,279)
    1468   254840160 :          mat(k,3428) = .280_r8*rxt(k,475)*y(k,274)
    1469   254840160 :          mat(k,1761) = rxt(k,512)*y(k,147)
    1470   254840160 :          mat(k,2177) = .280_r8*rxt(k,475)*y(k,253) + 1.060_r8*rxt(k,477)*y(k,274)
    1471   254840160 :          mat(k,1824) = rxt(k,534)*y(k,147)
    1472   254840160 :          mat(k,673) = -(rxt(k,463)*y(k,295))
    1473   254840160 :          mat(k,3947) = -rxt(k,463)*y(k,116)
    1474   254840160 :          mat(k,2995) = rxt(k,506)*y(k,261)
    1475   254840160 :          mat(k,1936) = rxt(k,506)*y(k,147)
    1476   254840160 :          mat(k,593) = -(rxt(k,466)*y(k,295))
    1477   254840160 :          mat(k,3938) = -rxt(k,466)*y(k,117)
    1478   254840160 :          mat(k,2992) = rxt(k,508)*y(k,262)
    1479   254840160 :          mat(k,1972) = rxt(k,508)*y(k,147)
    1480   254840160 :          mat(k,2110) = -(rxt(k,469)*y(k,158) + rxt(k,470)*y(k,295))
    1481   254840160 :          mat(k,3728) = -rxt(k,469)*y(k,118)
    1482   254840160 :          mat(k,4059) = -rxt(k,470)*y(k,118)
    1483   254840160 :          mat(k,3076) = rxt(k,510)*y(k,267) + rxt(k,531)*y(k,278)
    1484   254840160 :          mat(k,3429) = .050_r8*rxt(k,475)*y(k,274)
    1485   254840160 :          mat(k,1739) = rxt(k,510)*y(k,147)
    1486   254840160 :          mat(k,2178) = .050_r8*rxt(k,475)*y(k,253) + .180_r8*rxt(k,477)*y(k,274)
    1487   254840160 :          mat(k,1856) = rxt(k,531)*y(k,147)
    1488   254840160 :          mat(k,728) = -(rxt(k,472)*y(k,295))
    1489   254840160 :          mat(k,3953) = -rxt(k,472)*y(k,119)
    1490   254840160 :          mat(k,3383) = .070_r8*rxt(k,475)*y(k,274)
    1491   254840160 :          mat(k,2154) = .070_r8*rxt(k,475)*y(k,253) + .300_r8*rxt(k,477)*y(k,274)
    1492   254840160 :          mat(k,1194) = -(rxt(k,481)*y(k,295))
    1493   254840160 :          mat(k,3998) = -rxt(k,481)*y(k,120)
    1494   254840160 :          mat(k,3284) = .230_r8*rxt(k,476)*y(k,274)
    1495   254840160 :          mat(k,2155) = .230_r8*rxt(k,476)*y(k,258)
    1496   254840160 :          mat(k,1572) = -(rxt(k,484)*y(k,158) + rxt(k,485)*y(k,295))
    1497   254840160 :          mat(k,3704) = -rxt(k,484)*y(k,121)
    1498   254840160 :          mat(k,4031) = -rxt(k,485)*y(k,121)
    1499   254840160 :          mat(k,3308) = .530_r8*rxt(k,476)*y(k,274)
    1500   254840160 :          mat(k,2164) = .530_r8*rxt(k,476)*y(k,258)
    1501   254840160 :          mat(k,919) = -(rxt(k,488)*y(k,295))
    1502   254840160 :          mat(k,3973) = -rxt(k,488)*y(k,122)
    1503             :          mat(k,3385) = .250_r8*rxt(k,425)*y(k,261) + .250_r8*rxt(k,431)*y(k,262) &
    1504             :                       + .250_r8*rxt(k,445)*y(k,267) + .250_r8*rxt(k,449)*y(k,268) &
    1505   254840160 :                       + .250_r8*rxt(k,492)*y(k,278) + .250_r8*rxt(k,496)*y(k,279)
    1506   254840160 :          mat(k,1937) = .250_r8*rxt(k,425)*y(k,253)
    1507   254840160 :          mat(k,1973) = .250_r8*rxt(k,431)*y(k,253)
    1508   254840160 :          mat(k,1727) = .250_r8*rxt(k,445)*y(k,253)
    1509   254840160 :          mat(k,1749) = .250_r8*rxt(k,449)*y(k,253)
    1510   254840160 :          mat(k,1839) = .250_r8*rxt(k,492)*y(k,253)
    1511   254840160 :          mat(k,1808) = .250_r8*rxt(k,496)*y(k,253)
    1512   254840160 :          mat(k,1896) = -((rxt(k,489) + rxt(k,490)) * y(k,295))
    1513   254840160 :          mat(k,4050) = -(rxt(k,489) + rxt(k,490)) * y(k,123)
    1514             :          mat(k,3326) = .940_r8*rxt(k,426)*y(k,261) + .940_r8*rxt(k,432)*y(k,262) &
    1515             :                       + rxt(k,446)*y(k,267) + rxt(k,450)*y(k,268) + rxt(k,493) &
    1516   254840160 :                       *y(k,278) + rxt(k,497)*y(k,279)
    1517   254840160 :          mat(k,1950) = .940_r8*rxt(k,426)*y(k,258)
    1518   254840160 :          mat(k,1987) = .940_r8*rxt(k,432)*y(k,258)
    1519   254840160 :          mat(k,1735) = rxt(k,446)*y(k,258)
    1520   254840160 :          mat(k,1757) = rxt(k,450)*y(k,258)
    1521   254840160 :          mat(k,1850) = rxt(k,493)*y(k,258)
    1522   254840160 :          mat(k,1819) = rxt(k,497)*y(k,258)
    1523   254840160 :          mat(k,89) = -(rxt(k,866)*y(k,295))
    1524   254840160 :          mat(k,3865) = -rxt(k,866)*y(k,124)
    1525             :          mat(k,1071) = -(rxt(k,644)*y(k,149) + rxt(k,662)*y(k,158) + rxt(k,663) &
    1526   254840160 :                       *y(k,295))
    1527   254840160 :          mat(k,3532) = -rxt(k,644)*y(k,125)
    1528   254840160 :          mat(k,3686) = -rxt(k,662)*y(k,125)
    1529   254840160 :          mat(k,3987) = -rxt(k,663)*y(k,125)
    1530   254840160 :          mat(k,2016) = -(rxt(k,385)*y(k,158) + rxt(k,386)*y(k,295))
    1531   254840160 :          mat(k,3724) = -rxt(k,385)*y(k,126)
    1532   254840160 :          mat(k,4055) = -rxt(k,386)*y(k,126)
    1533   254840160 :          mat(k,633) = .350_r8*rxt(k,415)*y(k,295)
    1534   254840160 :          mat(k,524) = .140_r8*rxt(k,417)*y(k,295)
    1535   254840160 :          mat(k,1419) = .410_r8*rxt(k,486)*y(k,158)
    1536   254840160 :          mat(k,3072) = rxt(k,507)*y(k,262) + .040_r8*rxt(k,523)*y(k,274)
    1537   254840160 :          mat(k,3568) = .040_r8*rxt(k,478)*y(k,274)
    1538   254840160 :          mat(k,3724) = mat(k,3724) + .410_r8*rxt(k,486)*y(k,109)
    1539   254840160 :          mat(k,2883) = rxt(k,430)*y(k,262) + .040_r8*rxt(k,474)*y(k,274)
    1540   254840160 :          mat(k,3425) = .500_r8*rxt(k,431)*y(k,262) + .020_r8*rxt(k,475)*y(k,274)
    1541   254840160 :          mat(k,3331) = .060_r8*rxt(k,432)*y(k,262) + .020_r8*rxt(k,476)*y(k,274)
    1542             :          mat(k,1992) = rxt(k,507)*y(k,147) + rxt(k,430)*y(k,252) + .500_r8*rxt(k,431) &
    1543   254840160 :                       *y(k,253) + .060_r8*rxt(k,432)*y(k,258)
    1544             :          mat(k,2174) = .040_r8*rxt(k,523)*y(k,147) + .040_r8*rxt(k,478)*y(k,149) &
    1545             :                       + .040_r8*rxt(k,474)*y(k,252) + .020_r8*rxt(k,475)*y(k,253) &
    1546   254840160 :                       + .020_r8*rxt(k,476)*y(k,258) + .320_r8*rxt(k,477)*y(k,274)
    1547             :          mat(k,4055) = mat(k,4055) + .350_r8*rxt(k,415)*y(k,99) + .140_r8*rxt(k,417) &
    1548   254840160 :                       *y(k,101)
    1549   254840160 :          mat(k,1778) = -(rxt(k,380)*y(k,295))
    1550   254840160 :          mat(k,4045) = -rxt(k,380)*y(k,127)
    1551   254840160 :          mat(k,1114) = .500_r8*rxt(k,452)*y(k,295)
    1552   254840160 :          mat(k,1792) = .250_r8*rxt(k,454)*y(k,295)
    1553   254840160 :          mat(k,2072) = .060_r8*rxt(k,460)*y(k,295)
    1554   254840160 :          mat(k,2134) = .240_r8*rxt(k,502)*y(k,295)
    1555             :          mat(k,3062) = .060_r8*rxt(k,513)*y(k,269) + .270_r8*rxt(k,515)*y(k,270) &
    1556             :                       + .210_r8*rxt(k,521)*y(k,273) + .490_r8*rxt(k,525)*y(k,275) &
    1557             :                       + .020_r8*rxt(k,527)*y(k,276) + rxt(k,536)*y(k,284) &
    1558   254840160 :                       + .390_r8*rxt(k,539)*y(k,293)
    1559             :          mat(k,3321) = .030_r8*rxt(k,457)*y(k,269) + .060_r8*rxt(k,461)*y(k,270) &
    1560             :                       + .060_r8*rxt(k,471)*y(k,273) + .150_r8*rxt(k,479)*y(k,275) &
    1561   254840160 :                       + .020_r8*rxt(k,482)*y(k,276) + .290_r8*rxt(k,499)*y(k,293)
    1562   254840160 :          mat(k,1126) = .060_r8*rxt(k,513)*y(k,147) + .030_r8*rxt(k,457)*y(k,258)
    1563   254840160 :          mat(k,1171) = .270_r8*rxt(k,515)*y(k,147) + .060_r8*rxt(k,461)*y(k,258)
    1564   254840160 :          mat(k,1447) = .210_r8*rxt(k,521)*y(k,147) + .060_r8*rxt(k,471)*y(k,258)
    1565   254840160 :          mat(k,1316) = .490_r8*rxt(k,525)*y(k,147) + .150_r8*rxt(k,479)*y(k,258)
    1566   254840160 :          mat(k,1367) = .020_r8*rxt(k,527)*y(k,147) + .020_r8*rxt(k,482)*y(k,258)
    1567   254840160 :          mat(k,1546) = rxt(k,536)*y(k,147)
    1568   254840160 :          mat(k,1643) = .390_r8*rxt(k,539)*y(k,147) + .290_r8*rxt(k,499)*y(k,258)
    1569             :          mat(k,4045) = mat(k,4045) + .500_r8*rxt(k,452)*y(k,111) + .250_r8*rxt(k,454) &
    1570             :                       *y(k,112) + .060_r8*rxt(k,460)*y(k,115) + .240_r8*rxt(k,502) &
    1571   254840160 :                       *y(k,139)
    1572   254840160 :          mat(k,1461) = -(rxt(k,387)*y(k,295))
    1573   254840160 :          mat(k,4019) = -rxt(k,387)*y(k,128)
    1574   254840160 :          mat(k,523) = .090_r8*rxt(k,417)*y(k,295)
    1575   254840160 :          mat(k,1786) = .250_r8*rxt(k,454)*y(k,295)
    1576   254840160 :          mat(k,3040) = .550_r8*rxt(k,511)*y(k,268) + .550_r8*rxt(k,533)*y(k,279)
    1577   254840160 :          mat(k,2859) = .550_r8*rxt(k,448)*y(k,268) + .550_r8*rxt(k,495)*y(k,279)
    1578   254840160 :          mat(k,3395) = .280_r8*rxt(k,449)*y(k,268) + .280_r8*rxt(k,496)*y(k,279)
    1579   254840160 :          mat(k,3297) = .410_r8*rxt(k,383)*y(k,284)
    1580             :          mat(k,1750) = .550_r8*rxt(k,511)*y(k,147) + .550_r8*rxt(k,448)*y(k,252) &
    1581   254840160 :                       + .280_r8*rxt(k,449)*y(k,253)
    1582             :          mat(k,1810) = .550_r8*rxt(k,533)*y(k,147) + .550_r8*rxt(k,495)*y(k,252) &
    1583   254840160 :                       + .280_r8*rxt(k,496)*y(k,253)
    1584   254840160 :          mat(k,1542) = .410_r8*rxt(k,383)*y(k,258)
    1585             :          mat(k,4019) = mat(k,4019) + .090_r8*rxt(k,417)*y(k,101) + .250_r8*rxt(k,454) &
    1586   254840160 :                       *y(k,112)
    1587   254840160 :          mat(k,556) = -(rxt(k,396)*y(k,295))
    1588   254840160 :          mat(k,3934) = -rxt(k,396)*y(k,129)
    1589   254840160 :          mat(k,2991) = .800_r8*rxt(k,410)*y(k,236)
    1590   254840160 :          mat(k,1178) = .800_r8*rxt(k,410)*y(k,147)
    1591   254840160 :          mat(k,332) = -(rxt(k,397)*y(k,295))
    1592   254840160 :          mat(k,3901) = -rxt(k,397)*y(k,130)
    1593   254840160 :          mat(k,3219) = .800_r8*rxt(k,394)*y(k,288)
    1594   254840160 :          mat(k,762) = .800_r8*rxt(k,394)*y(k,258)
    1595   254840160 :          mat(k,528) = -(rxt(k,398)*y(k,295))
    1596   254840160 :          mat(k,3930) = -rxt(k,398)*y(k,131)
    1597   254840160 :          mat(k,3624) = rxt(k,406)*y(k,286)
    1598   254840160 :          mat(k,1616) = rxt(k,406)*y(k,148)
    1599   254840160 :          mat(k,2041) = -(rxt(k,403)*y(k,158) + rxt(k,404)*y(k,295))
    1600   254840160 :          mat(k,3725) = -rxt(k,403)*y(k,132)
    1601   254840160 :          mat(k,4056) = -rxt(k,404)*y(k,132)
    1602   254840160 :          mat(k,620) = .350_r8*rxt(k,414)*y(k,295)
    1603   254840160 :          mat(k,491) = .230_r8*rxt(k,416)*y(k,295)
    1604   254840160 :          mat(k,1420) = .170_r8*rxt(k,486)*y(k,158)
    1605   254840160 :          mat(k,3073) = rxt(k,505)*y(k,261) + .420_r8*rxt(k,523)*y(k,274)
    1606   254840160 :          mat(k,3569) = .420_r8*rxt(k,478)*y(k,274)
    1607   254840160 :          mat(k,3725) = mat(k,3725) + .170_r8*rxt(k,486)*y(k,109)
    1608   254840160 :          mat(k,2884) = rxt(k,424)*y(k,261) + .420_r8*rxt(k,474)*y(k,274)
    1609   254840160 :          mat(k,3426) = .750_r8*rxt(k,425)*y(k,261) + .050_r8*rxt(k,475)*y(k,274)
    1610   254840160 :          mat(k,3332) = .060_r8*rxt(k,426)*y(k,261) + .220_r8*rxt(k,476)*y(k,274)
    1611             :          mat(k,1956) = rxt(k,505)*y(k,147) + rxt(k,424)*y(k,252) + .750_r8*rxt(k,425) &
    1612   254840160 :                       *y(k,253) + .060_r8*rxt(k,426)*y(k,258)
    1613             :          mat(k,2175) = .420_r8*rxt(k,523)*y(k,147) + .420_r8*rxt(k,478)*y(k,149) &
    1614             :                       + .420_r8*rxt(k,474)*y(k,252) + .050_r8*rxt(k,475)*y(k,253) &
    1615   254840160 :                       + .220_r8*rxt(k,476)*y(k,258)
    1616             :          mat(k,4056) = mat(k,4056) + .350_r8*rxt(k,414)*y(k,98) + .230_r8*rxt(k,416) &
    1617   263009123 :                       *y(k,100)
    1618             :       end do
    1619     8168963 :       end subroutine nlnmat06
    1620     8168963 :       subroutine nlnmat07( avec_len, mat, y, rxt )
    1621             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    1622             :       implicit none
    1623             : !----------------------------------------------
    1624             : ! ... dummy arguments
    1625             : !----------------------------------------------
    1626             :       integer, intent(in) :: avec_len
    1627             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    1628             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    1629             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    1630             : !----------------------------------------------
    1631             : ! ... local variables
    1632             : !----------------------------------------------
    1633             :       integer :: k
    1634             : !----------------------------------------------
    1635             : ! ... complete matrix entries implicit species
    1636             : !----------------------------------------------
    1637   263009123 :       do k = 1,avec_len
    1638   254840160 :          mat(k,1916) = -(rxt(k,399)*y(k,295))
    1639   254840160 :          mat(k,4051) = -rxt(k,399)*y(k,133)
    1640   254840160 :          mat(k,1257) = .050_r8*rxt(k,423)*y(k,295)
    1641   254840160 :          mat(k,1115) = .500_r8*rxt(k,452)*y(k,295)
    1642   254840160 :          mat(k,1794) = .250_r8*rxt(k,454)*y(k,295)
    1643   254840160 :          mat(k,2107) = .040_r8*rxt(k,470)*y(k,295)
    1644   254840160 :          mat(k,2137) = .040_r8*rxt(k,502)*y(k,295)
    1645             :          mat(k,3068) = rxt(k,517)*y(k,271) + .130_r8*rxt(k,519)*y(k,272) &
    1646             :                       + .120_r8*rxt(k,521)*y(k,273) + .040_r8*rxt(k,525)*y(k,275) &
    1647             :                       + .020_r8*rxt(k,527)*y(k,276) + rxt(k,538)*y(k,289) &
    1648   254840160 :                       + .360_r8*rxt(k,539)*y(k,293)
    1649             :          mat(k,3327) = .600_r8*rxt(k,464)*y(k,271) + .060_r8*rxt(k,467)*y(k,272) &
    1650             :                       + .040_r8*rxt(k,471)*y(k,273) + .020_r8*rxt(k,479)*y(k,275) &
    1651   254840160 :                       + .010_r8*rxt(k,482)*y(k,276) + .310_r8*rxt(k,499)*y(k,293)
    1652   254840160 :          mat(k,1058) = rxt(k,517)*y(k,147) + .600_r8*rxt(k,464)*y(k,258)
    1653   254840160 :          mat(k,1137) = .130_r8*rxt(k,519)*y(k,147) + .060_r8*rxt(k,467)*y(k,258)
    1654   254840160 :          mat(k,1448) = .120_r8*rxt(k,521)*y(k,147) + .040_r8*rxt(k,471)*y(k,258)
    1655   254840160 :          mat(k,1317) = .040_r8*rxt(k,525)*y(k,147) + .020_r8*rxt(k,479)*y(k,258)
    1656   254840160 :          mat(k,1368) = .020_r8*rxt(k,527)*y(k,147) + .010_r8*rxt(k,482)*y(k,258)
    1657   254840160 :          mat(k,1511) = rxt(k,538)*y(k,147)
    1658   254840160 :          mat(k,1645) = .360_r8*rxt(k,539)*y(k,147) + .310_r8*rxt(k,499)*y(k,258)
    1659             :          mat(k,4051) = mat(k,4051) + .050_r8*rxt(k,423)*y(k,108) + .500_r8*rxt(k,452) &
    1660             :                       *y(k,111) + .250_r8*rxt(k,454)*y(k,112) + .040_r8*rxt(k,470) &
    1661   254840160 :                       *y(k,118) + .040_r8*rxt(k,502)*y(k,139)
    1662   254840160 :          mat(k,1498) = -(rxt(k,405)*y(k,295))
    1663   254840160 :          mat(k,4025) = -rxt(k,405)*y(k,134)
    1664   254840160 :          mat(k,490) = .190_r8*rxt(k,416)*y(k,295)
    1665   254840160 :          mat(k,1788) = .250_r8*rxt(k,454)*y(k,295)
    1666   254840160 :          mat(k,3045) = .550_r8*rxt(k,509)*y(k,267) + .550_r8*rxt(k,530)*y(k,278)
    1667   254840160 :          mat(k,2860) = .550_r8*rxt(k,444)*y(k,267) + .550_r8*rxt(k,491)*y(k,278)
    1668   254840160 :          mat(k,3399) = .280_r8*rxt(k,445)*y(k,267) + .280_r8*rxt(k,492)*y(k,278)
    1669   254840160 :          mat(k,3303) = .460_r8*rxt(k,402)*y(k,289)
    1670             :          mat(k,1729) = .550_r8*rxt(k,509)*y(k,147) + .550_r8*rxt(k,444)*y(k,252) &
    1671   254840160 :                       + .280_r8*rxt(k,445)*y(k,253)
    1672             :          mat(k,1843) = .550_r8*rxt(k,530)*y(k,147) + .550_r8*rxt(k,491)*y(k,252) &
    1673   254840160 :                       + .280_r8*rxt(k,492)*y(k,253)
    1674   254840160 :          mat(k,1507) = .460_r8*rxt(k,402)*y(k,258)
    1675             :          mat(k,4025) = mat(k,4025) + .190_r8*rxt(k,416)*y(k,100) + .250_r8*rxt(k,454) &
    1676   254840160 :                       *y(k,112)
    1677             :          mat(k,827) = -(rxt(k,664)*y(k,149) + rxt(k,682)*y(k,158) + rxt(k,683) &
    1678   254840160 :                       *y(k,295))
    1679   254840160 :          mat(k,3529) = -rxt(k,664)*y(k,135)
    1680   254840160 :          mat(k,3681) = -rxt(k,682)*y(k,135)
    1681   254840160 :          mat(k,3964) = -rxt(k,683)*y(k,135)
    1682             :          mat(k,477) = -(rxt(k,194)*y(k,147) + (rxt(k,195) + rxt(k,196) + rxt(k,197) &
    1683   254840160 :                       ) * y(k,148) + rxt(k,206)*y(k,295))
    1684   254840160 :          mat(k,2986) = -rxt(k,194)*y(k,136)
    1685   254840160 :          mat(k,3622) = -(rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,136)
    1686   254840160 :          mat(k,3923) = -rxt(k,206)*y(k,136)
    1687   254840160 :          mat(k,201) = -((rxt(k,210) + rxt(k,211)) * y(k,294))
    1688   254840160 :          mat(k,3781) = -(rxt(k,210) + rxt(k,211)) * y(k,137)
    1689   254840160 :          mat(k,476) = rxt(k,195)*y(k,148)
    1690   254840160 :          mat(k,3618) = rxt(k,195)*y(k,136)
    1691   254840160 :          mat(k,3619) = rxt(k,213)*y(k,149)
    1692   254840160 :          mat(k,3525) = rxt(k,213)*y(k,148)
    1693   254840160 :          mat(k,2140) = -(rxt(k,501)*y(k,158) + rxt(k,502)*y(k,295))
    1694   254840160 :          mat(k,3729) = -rxt(k,501)*y(k,139)
    1695   254840160 :          mat(k,4060) = -rxt(k,502)*y(k,139)
    1696   254840160 :          mat(k,2079) = .040_r8*rxt(k,460)*y(k,295)
    1697   254840160 :          mat(k,2111) = .030_r8*rxt(k,470)*y(k,295)
    1698   254840160 :          mat(k,733) = .050_r8*rxt(k,472)*y(k,295)
    1699   254840160 :          mat(k,1203) = .020_r8*rxt(k,481)*y(k,295)
    1700   254840160 :          mat(k,1583) = .090_r8*rxt(k,485)*y(k,295)
    1701   254840160 :          mat(k,3077) = .540_r8*rxt(k,523)*y(k,274)
    1702   254840160 :          mat(k,3573) = .540_r8*rxt(k,478)*y(k,274)
    1703   254840160 :          mat(k,2888) = .540_r8*rxt(k,474)*y(k,274)
    1704   254840160 :          mat(k,3430) = .530_r8*rxt(k,475)*y(k,274)
    1705             :          mat(k,2179) = .540_r8*rxt(k,523)*y(k,147) + .540_r8*rxt(k,478)*y(k,149) &
    1706             :                       + .540_r8*rxt(k,474)*y(k,252) + .530_r8*rxt(k,475)*y(k,253) &
    1707   254840160 :                       + 2.140_r8*rxt(k,477)*y(k,274)
    1708             :          mat(k,4060) = mat(k,4060) + .040_r8*rxt(k,460)*y(k,115) + .030_r8*rxt(k,470) &
    1709             :                       *y(k,118) + .050_r8*rxt(k,472)*y(k,119) + .020_r8*rxt(k,481) &
    1710   254840160 :                       *y(k,120) + .090_r8*rxt(k,485)*y(k,121)
    1711   254840160 :          mat(k,117) = -(rxt(k,810)*y(k,295))
    1712   254840160 :          mat(k,3870) = -rxt(k,810)*y(k,143)
    1713             :          mat(k,3106) = -(rxt(k,194)*y(k,136) + rxt(k,203)*y(k,149) + rxt(k,207) &
    1714             :                       *y(k,258) + rxt(k,208)*y(k,158) + rxt(k,209)*y(k,157) + rxt(k,230) &
    1715             :                       *y(k,60) + rxt(k,262)*y(k,20) + rxt(k,305)*y(k,253) + rxt(k,314) &
    1716             :                       *y(k,259) + rxt(k,327)*y(k,249) + rxt(k,338)*y(k,252) + rxt(k,342) &
    1717             :                       *y(k,257) + rxt(k,357)*y(k,250) + rxt(k,366)*y(k,297) + rxt(k,370) &
    1718             :                       *y(k,298) + (rxt(k,377) + rxt(k,378)) * y(k,255) + rxt(k,392) &
    1719             :                       *y(k,286) + rxt(k,395)*y(k,288) + (rxt(k,410) + rxt(k,411) &
    1720             :                       ) * y(k,236) + (rxt(k,503) + rxt(k,504)) * y(k,260) + (rxt(k,505) &
    1721             :                       + rxt(k,506)) * y(k,261) + (rxt(k,507) + rxt(k,508)) * y(k,262) &
    1722             :                       + (rxt(k,509) + rxt(k,510)) * y(k,267) + (rxt(k,511) + rxt(k,512) &
    1723             :                       ) * y(k,268) + (rxt(k,513) + rxt(k,514)) * y(k,269) + (rxt(k,515) &
    1724             :                       + rxt(k,516)) * y(k,270) + (rxt(k,517) + rxt(k,518)) * y(k,271) &
    1725             :                       + (rxt(k,519) + rxt(k,520)) * y(k,272) + (rxt(k,521) + rxt(k,522) &
    1726             :                       ) * y(k,273) + (rxt(k,523) + rxt(k,524)) * y(k,274) + (rxt(k,525) &
    1727             :                       + rxt(k,526)) * y(k,275) + (rxt(k,527) + rxt(k,528)) * y(k,276) &
    1728             :                       + (rxt(k,530) + rxt(k,531)) * y(k,278) + (rxt(k,533) + rxt(k,534) &
    1729             :                       ) * y(k,279) + (rxt(k,535) + rxt(k,536)) * y(k,284) + (rxt(k,537) &
    1730             :                       + rxt(k,538)) * y(k,289) + (rxt(k,539) + rxt(k,540)) * y(k,293) &
    1731             :                       + rxt(k,542)*y(k,235) + rxt(k,545)*y(k,243) + rxt(k,550) &
    1732             :                       *y(k,248) + rxt(k,552)*y(k,251) + rxt(k,556)*y(k,254) + rxt(k,559) &
    1733             :                       *y(k,285) + rxt(k,562)*y(k,287) + rxt(k,565)*y(k,296) + rxt(k,572) &
    1734             :                       *y(k,314) + rxt(k,578)*y(k,316) + rxt(k,581)*y(k,318) + rxt(k,589) &
    1735             :                       *y(k,237) + rxt(k,597)*y(k,238) + rxt(k,609)*y(k,240) + rxt(k,617) &
    1736             :                       *y(k,241) + rxt(k,629)*y(k,245) + rxt(k,637)*y(k,246) + rxt(k,649) &
    1737             :                       *y(k,281) + rxt(k,657)*y(k,282) + rxt(k,669)*y(k,290) + rxt(k,677) &
    1738             :                       *y(k,291) + rxt(k,688)*y(k,299) + rxt(k,692)*y(k,300) + rxt(k,696) &
    1739             :                       *y(k,301) + rxt(k,704)*y(k,302) + rxt(k,712)*y(k,303) + rxt(k,722) &
    1740             :                       *y(k,304) + rxt(k,731)*y(k,305) + rxt(k,741)*y(k,306) + rxt(k,752) &
    1741             :                       *y(k,307) + rxt(k,761)*y(k,308) + rxt(k,766)*y(k,309) + rxt(k,773) &
    1742             :                       *y(k,310) + rxt(k,777)*y(k,311) + rxt(k,781)*y(k,312) + rxt(k,785) &
    1743   254840160 :                       *y(k,313))
    1744   254840160 :          mat(k,479) = -rxt(k,194)*y(k,147)
    1745   254840160 :          mat(k,3602) = -rxt(k,203)*y(k,147)
    1746   254840160 :          mat(k,3365) = -rxt(k,207)*y(k,147)
    1747   254840160 :          mat(k,3756) = -rxt(k,208)*y(k,147)
    1748   254840160 :          mat(k,3159) = -rxt(k,209)*y(k,147)
    1749   254840160 :          mat(k,3508) = -rxt(k,230)*y(k,147)
    1750   254840160 :          mat(k,3482) = -rxt(k,262)*y(k,147)
    1751   254840160 :          mat(k,3458) = -rxt(k,305)*y(k,147)
    1752   254840160 :          mat(k,696) = -rxt(k,314)*y(k,147)
    1753   254840160 :          mat(k,1353) = -rxt(k,327)*y(k,147)
    1754   254840160 :          mat(k,2916) = -rxt(k,338)*y(k,147)
    1755   254840160 :          mat(k,857) = -rxt(k,342)*y(k,147)
    1756   254840160 :          mat(k,1027) = -rxt(k,357)*y(k,147)
    1757   254840160 :          mat(k,942) = -rxt(k,366)*y(k,147)
    1758   254840160 :          mat(k,1341) = -rxt(k,370)*y(k,147)
    1759   254840160 :          mat(k,609) = -(rxt(k,377) + rxt(k,378)) * y(k,147)
    1760   254840160 :          mat(k,1624) = -rxt(k,392)*y(k,147)
    1761   254840160 :          mat(k,766) = -rxt(k,395)*y(k,147)
    1762   254840160 :          mat(k,1187) = -(rxt(k,410) + rxt(k,411)) * y(k,147)
    1763   254840160 :          mat(k,1305) = -(rxt(k,503) + rxt(k,504)) * y(k,147)
    1764   254840160 :          mat(k,1961) = -(rxt(k,505) + rxt(k,506)) * y(k,147)
    1765   254840160 :          mat(k,2000) = -(rxt(k,507) + rxt(k,508)) * y(k,147)
    1766   254840160 :          mat(k,1741) = -(rxt(k,509) + rxt(k,510)) * y(k,147)
    1767   254840160 :          mat(k,1763) = -(rxt(k,511) + rxt(k,512)) * y(k,147)
    1768   254840160 :          mat(k,1127) = -(rxt(k,513) + rxt(k,514)) * y(k,147)
    1769   254840160 :          mat(k,1173) = -(rxt(k,515) + rxt(k,516)) * y(k,147)
    1770   254840160 :          mat(k,1059) = -(rxt(k,517) + rxt(k,518)) * y(k,147)
    1771   254840160 :          mat(k,1138) = -(rxt(k,519) + rxt(k,520)) * y(k,147)
    1772   254840160 :          mat(k,1449) = -(rxt(k,521) + rxt(k,522)) * y(k,147)
    1773   254840160 :          mat(k,2185) = -(rxt(k,523) + rxt(k,524)) * y(k,147)
    1774   254840160 :          mat(k,1318) = -(rxt(k,525) + rxt(k,526)) * y(k,147)
    1775   254840160 :          mat(k,1372) = -(rxt(k,527) + rxt(k,528)) * y(k,147)
    1776   254840160 :          mat(k,1858) = -(rxt(k,530) + rxt(k,531)) * y(k,147)
    1777   254840160 :          mat(k,1827) = -(rxt(k,533) + rxt(k,534)) * y(k,147)
    1778   254840160 :          mat(k,1551) = -(rxt(k,535) + rxt(k,536)) * y(k,147)
    1779   254840160 :          mat(k,1515) = -(rxt(k,537) + rxt(k,538)) * y(k,147)
    1780   254840160 :          mat(k,1650) = -(rxt(k,539) + rxt(k,540)) * y(k,147)
    1781   254840160 :          mat(k,552) = -rxt(k,542)*y(k,147)
    1782   254840160 :          mat(k,517) = -rxt(k,545)*y(k,147)
    1783   254840160 :          mat(k,439) = -rxt(k,550)*y(k,147)
    1784   254840160 :          mat(k,712) = -rxt(k,552)*y(k,147)
    1785   254840160 :          mat(k,909) = -rxt(k,556)*y(k,147)
    1786   254840160 :          mat(k,865) = -rxt(k,559)*y(k,147)
    1787   254840160 :          mat(k,933) = -rxt(k,562)*y(k,147)
    1788   254840160 :          mat(k,458) = -rxt(k,565)*y(k,147)
    1789   254840160 :          mat(k,879) = -rxt(k,572)*y(k,147)
    1790   254840160 :          mat(k,902) = -rxt(k,578)*y(k,147)
    1791   254840160 :          mat(k,539) = -rxt(k,581)*y(k,147)
    1792   254840160 :          mat(k,2306) = -rxt(k,589)*y(k,147)
    1793   254840160 :          mat(k,2451) = -rxt(k,597)*y(k,147)
    1794   254840160 :          mat(k,2222) = -rxt(k,609)*y(k,147)
    1795   254840160 :          mat(k,2419) = -rxt(k,617)*y(k,147)
    1796   254840160 :          mat(k,2545) = -rxt(k,629)*y(k,147)
    1797   254840160 :          mat(k,2390) = -rxt(k,637)*y(k,147)
    1798   254840160 :          mat(k,2516) = -rxt(k,649)*y(k,147)
    1799   254840160 :          mat(k,2350) = -rxt(k,657)*y(k,147)
    1800   254840160 :          mat(k,2581) = -rxt(k,669)*y(k,147)
    1801   254840160 :          mat(k,2482) = -rxt(k,677)*y(k,147)
    1802   254840160 :          mat(k,955) = -rxt(k,688)*y(k,147)
    1803   254840160 :          mat(k,1010) = -rxt(k,692)*y(k,147)
    1804   254840160 :          mat(k,2662) = -rxt(k,696)*y(k,147)
    1805   254840160 :          mat(k,2750) = -rxt(k,704)*y(k,147)
    1806   254840160 :          mat(k,2707) = -rxt(k,712)*y(k,147)
    1807   254840160 :          mat(k,2796) = -rxt(k,722)*y(k,147)
    1808   254840160 :          mat(k,2246) = -rxt(k,731)*y(k,147)
    1809   254840160 :          mat(k,2684) = -rxt(k,741)*y(k,147)
    1810   254840160 :          mat(k,2843) = -rxt(k,752)*y(k,147)
    1811   254840160 :          mat(k,800) = -rxt(k,761)*y(k,147)
    1812   254840160 :          mat(k,965) = -rxt(k,766)*y(k,147)
    1813   254840160 :          mat(k,1223) = -rxt(k,773)*y(k,147)
    1814   254840160 :          mat(k,1019) = -rxt(k,777)*y(k,147)
    1815   254840160 :          mat(k,809) = -rxt(k,781)*y(k,147)
    1816   254840160 :          mat(k,817) = -rxt(k,785)*y(k,147)
    1817   254840160 :          mat(k,479) = mat(k,479) + 2.000_r8*rxt(k,196)*y(k,148) + rxt(k,206)*y(k,295)
    1818   254840160 :          mat(k,202) = 2.000_r8*rxt(k,210)*y(k,294)
    1819             :          mat(k,3654) = 2.000_r8*rxt(k,196)*y(k,136) + rxt(k,199)*y(k,157) + rxt(k,803) &
    1820   254840160 :                       *y(k,174)
    1821   254840160 :          mat(k,3159) = mat(k,3159) + rxt(k,199)*y(k,148)
    1822   254840160 :          mat(k,1603) = rxt(k,803)*y(k,148)
    1823   254840160 :          mat(k,3797) = 2.000_r8*rxt(k,210)*y(k,137)
    1824   254840160 :          mat(k,4088) = rxt(k,206)*y(k,136)
    1825             :          mat(k,3663) = -((rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,136) + (rxt(k,199) &
    1826             :                       + rxt(k,201)) * y(k,157) + rxt(k,200)*y(k,158) + rxt(k,212) &
    1827             :                       *y(k,258) + rxt(k,213)*y(k,149) + rxt(k,214)*y(k,295) + rxt(k,232) &
    1828             :                       *y(k,60) + rxt(k,263)*y(k,20) + rxt(k,351)*y(k,252) + rxt(k,406) &
    1829             :                       *y(k,286) + rxt(k,557)*y(k,254) + rxt(k,560)*y(k,285) + rxt(k,563) &
    1830             :                       *y(k,287) + rxt(k,567)*y(k,165) + rxt(k,570)*y(k,235) + rxt(k,684) &
    1831             :                       *y(k,302) + rxt(k,685)*y(k,304) + rxt(k,686)*y(k,307) + rxt(k,803) &
    1832   254840160 :                       *y(k,174))
    1833   254840160 :          mat(k,481) = -(rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,148)
    1834   254840160 :          mat(k,3168) = -(rxt(k,199) + rxt(k,201)) * y(k,148)
    1835   254840160 :          mat(k,3765) = -rxt(k,200)*y(k,148)
    1836   254840160 :          mat(k,3374) = -rxt(k,212)*y(k,148)
    1837   254840160 :          mat(k,3611) = -rxt(k,213)*y(k,148)
    1838   254840160 :          mat(k,4097) = -rxt(k,214)*y(k,148)
    1839   254840160 :          mat(k,3517) = -rxt(k,232)*y(k,148)
    1840   254840160 :          mat(k,3491) = -rxt(k,263)*y(k,148)
    1841   254840160 :          mat(k,2923) = -rxt(k,351)*y(k,148)
    1842   254840160 :          mat(k,1630) = -rxt(k,406)*y(k,148)
    1843   254840160 :          mat(k,912) = -rxt(k,557)*y(k,148)
    1844   254840160 :          mat(k,867) = -rxt(k,560)*y(k,148)
    1845   254840160 :          mat(k,936) = -rxt(k,563)*y(k,148)
    1846   254840160 :          mat(k,486) = -rxt(k,567)*y(k,148)
    1847   254840160 :          mat(k,554) = -rxt(k,570)*y(k,148)
    1848   254840160 :          mat(k,2757) = -rxt(k,684)*y(k,148)
    1849   254840160 :          mat(k,2803) = -rxt(k,685)*y(k,148)
    1850   254840160 :          mat(k,2850) = -rxt(k,686)*y(k,148)
    1851   254840160 :          mat(k,1608) = -rxt(k,803)*y(k,148)
    1852   254840160 :          mat(k,760) = rxt(k,408)*y(k,295)
    1853   254840160 :          mat(k,383) = rxt(k,374)*y(k,149)
    1854   254840160 :          mat(k,3491) = mat(k,3491) + rxt(k,262)*y(k,147)
    1855   254840160 :          mat(k,3517) = mat(k,3517) + rxt(k,230)*y(k,147)
    1856   254840160 :          mat(k,446) = rxt(k,193)*y(k,295)
    1857   254840160 :          mat(k,510) = .400_r8*rxt(k,422)*y(k,295)
    1858   254840160 :          mat(k,1263) = .190_r8*rxt(k,423)*y(k,295)
    1859   254840160 :          mat(k,1119) = rxt(k,452)*y(k,295)
    1860   254840160 :          mat(k,1801) = .500_r8*rxt(k,454)*y(k,295)
    1861   254840160 :          mat(k,2088) = .170_r8*rxt(k,459)*y(k,158) + .080_r8*rxt(k,460)*y(k,295)
    1862   254840160 :          mat(k,680) = .150_r8*rxt(k,463)*y(k,295)
    1863   254840160 :          mat(k,599) = .130_r8*rxt(k,466)*y(k,295)
    1864   254840160 :          mat(k,2120) = .170_r8*rxt(k,469)*y(k,158) + .040_r8*rxt(k,470)*y(k,295)
    1865   254840160 :          mat(k,1592) = .170_r8*rxt(k,484)*y(k,158) + .070_r8*rxt(k,485)*y(k,295)
    1866   254840160 :          mat(k,1784) = .500_r8*rxt(k,380)*y(k,295)
    1867   254840160 :          mat(k,2149) = .170_r8*rxt(k,501)*y(k,158) + .040_r8*rxt(k,502)*y(k,295)
    1868             :          mat(k,3115) = rxt(k,262)*y(k,20) + rxt(k,230)*y(k,60) + 2.000_r8*rxt(k,203) &
    1869             :                       *y(k,149) + rxt(k,209)*y(k,157) + rxt(k,208)*y(k,158) &
    1870             :                       + rxt(k,542)*y(k,235) + rxt(k,410)*y(k,236) &
    1871             :                       + 1.860_r8*rxt(k,589)*y(k,237) + .770_r8*rxt(k,597)*y(k,238) &
    1872             :                       + 1.860_r8*rxt(k,609)*y(k,240) + .700_r8*rxt(k,617)*y(k,241) &
    1873             :                       + rxt(k,545)*y(k,243) + 1.390_r8*rxt(k,629)*y(k,245) &
    1874             :                       + .750_r8*rxt(k,637)*y(k,246) + rxt(k,550)*y(k,248) + rxt(k,327) &
    1875             :                       *y(k,249) + rxt(k,357)*y(k,250) + rxt(k,552)*y(k,251) &
    1876             :                       + rxt(k,338)*y(k,252) + rxt(k,305)*y(k,253) + rxt(k,556) &
    1877             :                       *y(k,254) + rxt(k,377)*y(k,255) + rxt(k,342)*y(k,257) &
    1878             :                       + rxt(k,207)*y(k,258) + rxt(k,314)*y(k,259) + rxt(k,503) &
    1879             :                       *y(k,260) + rxt(k,505)*y(k,261) + rxt(k,507)*y(k,262) &
    1880             :                       + rxt(k,509)*y(k,267) + rxt(k,511)*y(k,268) + rxt(k,513) &
    1881             :                       *y(k,269) + 1.730_r8*rxt(k,515)*y(k,270) + rxt(k,517)*y(k,271) &
    1882             :                       + rxt(k,519)*y(k,272) + rxt(k,521)*y(k,273) &
    1883             :                       + 1.460_r8*rxt(k,523)*y(k,274) + rxt(k,525)*y(k,275) &
    1884             :                       + rxt(k,527)*y(k,276) + rxt(k,530)*y(k,278) + rxt(k,533) &
    1885             :                       *y(k,279) + 1.360_r8*rxt(k,649)*y(k,281) + .770_r8*rxt(k,657) &
    1886             :                       *y(k,282) + rxt(k,535)*y(k,284) + rxt(k,559)*y(k,285) &
    1887             :                       + rxt(k,392)*y(k,286) + rxt(k,562)*y(k,287) + rxt(k,395) &
    1888             :                       *y(k,288) + rxt(k,537)*y(k,289) + 1.820_r8*rxt(k,669)*y(k,290) &
    1889             :                       + .710_r8*rxt(k,677)*y(k,291) + rxt(k,539)*y(k,293) + rxt(k,565) &
    1890             :                       *y(k,296) + rxt(k,366)*y(k,297) + rxt(k,370)*y(k,298) &
    1891             :                       + .700_r8*rxt(k,688)*y(k,299) + .700_r8*rxt(k,692)*y(k,300) &
    1892             :                       + .700_r8*rxt(k,696)*y(k,301) + rxt(k,704)*y(k,302) &
    1893             :                       + .830_r8*rxt(k,712)*y(k,303) + rxt(k,722)*y(k,304) &
    1894             :                       + .700_r8*rxt(k,731)*y(k,305) + .910_r8*rxt(k,741)*y(k,306) &
    1895             :                       + rxt(k,752)*y(k,307) + .700_r8*rxt(k,761)*y(k,308) &
    1896             :                       + .700_r8*rxt(k,766)*y(k,309) + .700_r8*rxt(k,773)*y(k,310) &
    1897             :                       + .700_r8*rxt(k,777)*y(k,311) + .700_r8*rxt(k,781)*y(k,312) &
    1898             :                       + .700_r8*rxt(k,785)*y(k,313) + rxt(k,572)*y(k,314) + rxt(k,578) &
    1899   254840160 :                       *y(k,316) + rxt(k,581)*y(k,318)
    1900             :          mat(k,3611) = mat(k,3611) + rxt(k,374)*y(k,16) + 2.000_r8*rxt(k,203)*y(k,147) &
    1901             :                       + rxt(k,204)*y(k,157) + rxt(k,759)*y(k,212) + .500_r8*rxt(k,764) &
    1902             :                       *y(k,213) + 2.000_r8*rxt(k,590)*y(k,237) + rxt(k,598)*y(k,238) &
    1903             :                       + 2.000_r8*rxt(k,610)*y(k,240) + rxt(k,618)*y(k,241) &
    1904             :                       + 1.500_r8*rxt(k,630)*y(k,245) + rxt(k,638)*y(k,246) &
    1905             :                       + rxt(k,202)*y(k,258) + 1.460_r8*rxt(k,478)*y(k,274) &
    1906             :                       + 1.460_r8*rxt(k,650)*y(k,281) + rxt(k,658)*y(k,282) &
    1907             :                       + rxt(k,393)*y(k,286) + 1.950_r8*rxt(k,670)*y(k,290) &
    1908             :                       + rxt(k,678)*y(k,291) + rxt(k,205)*y(k,295) + rxt(k,697) &
    1909             :                       *y(k,301) + rxt(k,705)*y(k,302) + rxt(k,713)*y(k,303) &
    1910             :                       + rxt(k,723)*y(k,304) + rxt(k,732)*y(k,305) + rxt(k,742) &
    1911   254840160 :                       *y(k,306) + rxt(k,753)*y(k,307)
    1912   254840160 :          mat(k,1459) = rxt(k,348)*y(k,295)
    1913   254840160 :          mat(k,1485) = rxt(k,364)*y(k,295)
    1914   254840160 :          mat(k,3168) = mat(k,3168) + rxt(k,209)*y(k,147) + rxt(k,204)*y(k,149)
    1915             :          mat(k,3765) = mat(k,3765) + .170_r8*rxt(k,459)*y(k,115) + .170_r8*rxt(k,469) &
    1916             :                       *y(k,118) + .170_r8*rxt(k,484)*y(k,121) + .170_r8*rxt(k,501) &
    1917   254840160 :                       *y(k,139) + rxt(k,208)*y(k,147)
    1918   254840160 :          mat(k,662) = rxt(k,718)*y(k,295)
    1919   254840160 :          mat(k,671) = rxt(k,737)*y(k,295)
    1920   254840160 :          mat(k,427) = rxt(k,757)*y(k,295)
    1921   254840160 :          mat(k,2642) = rxt(k,759)*y(k,149)
    1922   254840160 :          mat(k,2614) = .500_r8*rxt(k,764)*y(k,149)
    1923   254840160 :          mat(k,1232) = rxt(k,769)*y(k,295)
    1924   254840160 :          mat(k,1560) = rxt(k,783)*y(k,295)
    1925   254840160 :          mat(k,1540) = rxt(k,787)*y(k,295)
    1926   254840160 :          mat(k,554) = mat(k,554) + rxt(k,542)*y(k,147)
    1927   254840160 :          mat(k,1190) = rxt(k,410)*y(k,147)
    1928             :          mat(k,2312) = 1.860_r8*rxt(k,589)*y(k,147) + 2.000_r8*rxt(k,590)*y(k,149) &
    1929             :                       + 3.280_r8*rxt(k,585)*y(k,237) + rxt(k,586)*y(k,252) &
    1930             :                       + .820_r8*rxt(k,587)*y(k,253) + .700_r8*rxt(k,588)*y(k,258) &
    1931             :                       + rxt(k,591)*y(k,302) + rxt(k,592)*y(k,304) + rxt(k,593) &
    1932   254840160 :                       *y(k,307)
    1933   254840160 :          mat(k,2457) = .770_r8*rxt(k,597)*y(k,147) + rxt(k,598)*y(k,149)
    1934             :          mat(k,2228) = 1.860_r8*rxt(k,609)*y(k,147) + 2.000_r8*rxt(k,610)*y(k,149) &
    1935             :                       + 3.280_r8*rxt(k,605)*y(k,240) + rxt(k,606)*y(k,252) &
    1936             :                       + .820_r8*rxt(k,607)*y(k,253) + .500_r8*rxt(k,608)*y(k,258) &
    1937             :                       + rxt(k,611)*y(k,302) + rxt(k,612)*y(k,304) + rxt(k,613) &
    1938   254840160 :                       *y(k,307)
    1939   254840160 :          mat(k,2425) = .700_r8*rxt(k,617)*y(k,147) + rxt(k,618)*y(k,149)
    1940   254840160 :          mat(k,519) = rxt(k,545)*y(k,147)
    1941             :          mat(k,2551) = 1.390_r8*rxt(k,629)*y(k,147) + 1.500_r8*rxt(k,630)*y(k,149) &
    1942             :                       + 1.880_r8*rxt(k,625)*y(k,245) + .500_r8*rxt(k,626)*y(k,252) &
    1943             :                       + .360_r8*rxt(k,627)*y(k,253) + .240_r8*rxt(k,628)*y(k,258) &
    1944             :                       + .500_r8*rxt(k,631)*y(k,302) + .500_r8*rxt(k,632)*y(k,304) &
    1945   254840160 :                       + .500_r8*rxt(k,633)*y(k,307)
    1946   254840160 :          mat(k,2396) = .750_r8*rxt(k,637)*y(k,147) + rxt(k,638)*y(k,149)
    1947   254840160 :          mat(k,441) = rxt(k,550)*y(k,147)
    1948   254840160 :          mat(k,1357) = rxt(k,327)*y(k,147)
    1949   254840160 :          mat(k,1031) = rxt(k,357)*y(k,147)
    1950   254840160 :          mat(k,714) = rxt(k,552)*y(k,147)
    1951             :          mat(k,2923) = mat(k,2923) + rxt(k,338)*y(k,147) + rxt(k,586)*y(k,237) &
    1952             :                       + rxt(k,606)*y(k,240) + .500_r8*rxt(k,626)*y(k,245) &
    1953             :                       + .460_r8*rxt(k,474)*y(k,274) + .460_r8*rxt(k,645)*y(k,281) &
    1954   254840160 :                       + .950_r8*rxt(k,665)*y(k,290)
    1955             :          mat(k,3467) = rxt(k,305)*y(k,147) + .820_r8*rxt(k,587)*y(k,237) &
    1956             :                       + .820_r8*rxt(k,607)*y(k,240) + .360_r8*rxt(k,627)*y(k,245) &
    1957             :                       + .070_r8*rxt(k,475)*y(k,274) + .310_r8*rxt(k,646)*y(k,281) &
    1958   254840160 :                       + .770_r8*rxt(k,666)*y(k,290)
    1959   254840160 :          mat(k,912) = mat(k,912) + rxt(k,556)*y(k,147)
    1960   254840160 :          mat(k,612) = rxt(k,377)*y(k,147)
    1961   254840160 :          mat(k,860) = rxt(k,342)*y(k,147)
    1962             :          mat(k,3374) = mat(k,3374) + rxt(k,207)*y(k,147) + rxt(k,202)*y(k,149) &
    1963             :                       + .700_r8*rxt(k,588)*y(k,237) + .500_r8*rxt(k,608)*y(k,240) &
    1964             :                       + .240_r8*rxt(k,628)*y(k,245) + .460_r8*rxt(k,461)*y(k,270) &
    1965             :                       + .240_r8*rxt(k,476)*y(k,274) + .230_r8*rxt(k,647)*y(k,281) &
    1966   254840160 :                       + .480_r8*rxt(k,667)*y(k,290)
    1967   254840160 :          mat(k,699) = rxt(k,314)*y(k,147)
    1968   254840160 :          mat(k,1307) = rxt(k,503)*y(k,147)
    1969   254840160 :          mat(k,1967) = rxt(k,505)*y(k,147)
    1970   254840160 :          mat(k,2006) = rxt(k,507)*y(k,147)
    1971   254840160 :          mat(k,1746) = rxt(k,509)*y(k,147)
    1972   254840160 :          mat(k,1768) = rxt(k,511)*y(k,147)
    1973   254840160 :          mat(k,1130) = rxt(k,513)*y(k,147)
    1974   254840160 :          mat(k,1176) = 1.730_r8*rxt(k,515)*y(k,147) + .460_r8*rxt(k,461)*y(k,258)
    1975   254840160 :          mat(k,1062) = rxt(k,517)*y(k,147)
    1976   254840160 :          mat(k,1141) = rxt(k,519)*y(k,147)
    1977   254840160 :          mat(k,1452) = rxt(k,521)*y(k,147)
    1978             :          mat(k,2192) = 1.460_r8*rxt(k,523)*y(k,147) + 1.460_r8*rxt(k,478)*y(k,149) &
    1979             :                       + .460_r8*rxt(k,474)*y(k,252) + .070_r8*rxt(k,475)*y(k,253) &
    1980   254840160 :                       + .240_r8*rxt(k,476)*y(k,258) + .320_r8*rxt(k,477)*y(k,274)
    1981   254840160 :          mat(k,1321) = rxt(k,525)*y(k,147)
    1982   254840160 :          mat(k,1375) = rxt(k,527)*y(k,147)
    1983   254840160 :          mat(k,1863) = rxt(k,530)*y(k,147)
    1984   254840160 :          mat(k,1832) = rxt(k,533)*y(k,147)
    1985             :          mat(k,2522) = 1.360_r8*rxt(k,649)*y(k,147) + 1.460_r8*rxt(k,650)*y(k,149) &
    1986             :                       + .460_r8*rxt(k,645)*y(k,252) + .310_r8*rxt(k,646)*y(k,253) &
    1987             :                       + .230_r8*rxt(k,647)*y(k,258) + 1.720_r8*rxt(k,648)*y(k,281) &
    1988             :                       + .460_r8*rxt(k,651)*y(k,302) + .460_r8*rxt(k,652)*y(k,304) &
    1989   254840160 :                       + .460_r8*rxt(k,653)*y(k,307)
    1990   254840160 :          mat(k,2356) = .770_r8*rxt(k,657)*y(k,147) + rxt(k,658)*y(k,149)
    1991   254840160 :          mat(k,1555) = rxt(k,535)*y(k,147)
    1992   254840160 :          mat(k,867) = mat(k,867) + rxt(k,559)*y(k,147)
    1993   254840160 :          mat(k,1630) = mat(k,1630) + rxt(k,392)*y(k,147) + rxt(k,393)*y(k,149)
    1994   254840160 :          mat(k,936) = mat(k,936) + rxt(k,562)*y(k,147)
    1995   254840160 :          mat(k,768) = rxt(k,395)*y(k,147)
    1996   254840160 :          mat(k,1519) = rxt(k,537)*y(k,147)
    1997             :          mat(k,2587) = 1.820_r8*rxt(k,669)*y(k,147) + 1.950_r8*rxt(k,670)*y(k,149) &
    1998             :                       + .950_r8*rxt(k,665)*y(k,252) + .770_r8*rxt(k,666)*y(k,253) &
    1999             :                       + .480_r8*rxt(k,667)*y(k,258) + 3.080_r8*rxt(k,668)*y(k,290) &
    2000             :                       + .950_r8*rxt(k,671)*y(k,302) + .950_r8*rxt(k,672)*y(k,304) &
    2001   254840160 :                       + .950_r8*rxt(k,673)*y(k,307)
    2002   254840160 :          mat(k,2488) = .710_r8*rxt(k,677)*y(k,147) + rxt(k,678)*y(k,149)
    2003   254840160 :          mat(k,1654) = rxt(k,539)*y(k,147)
    2004             :          mat(k,4097) = mat(k,4097) + rxt(k,408)*y(k,1) + rxt(k,193)*y(k,94) &
    2005             :                       + .400_r8*rxt(k,422)*y(k,107) + .190_r8*rxt(k,423)*y(k,108) &
    2006             :                       + rxt(k,452)*y(k,111) + .500_r8*rxt(k,454)*y(k,112) &
    2007             :                       + .080_r8*rxt(k,460)*y(k,115) + .150_r8*rxt(k,463)*y(k,116) &
    2008             :                       + .130_r8*rxt(k,466)*y(k,117) + .040_r8*rxt(k,470)*y(k,118) &
    2009             :                       + .070_r8*rxt(k,485)*y(k,121) + .500_r8*rxt(k,380)*y(k,127) &
    2010             :                       + .040_r8*rxt(k,502)*y(k,139) + rxt(k,205)*y(k,149) + rxt(k,348) &
    2011             :                       *y(k,150) + rxt(k,364)*y(k,151) + rxt(k,718)*y(k,204) &
    2012             :                       + rxt(k,737)*y(k,206) + rxt(k,757)*y(k,210) + rxt(k,769) &
    2013   254840160 :                       *y(k,214) + rxt(k,783)*y(k,221) + rxt(k,787)*y(k,223)
    2014   254840160 :          mat(k,460) = rxt(k,565)*y(k,147)
    2015   254840160 :          mat(k,945) = rxt(k,366)*y(k,147)
    2016   254840160 :          mat(k,1345) = rxt(k,370)*y(k,147)
    2017   254840160 :          mat(k,958) = .700_r8*rxt(k,688)*y(k,147)
    2018   254840160 :          mat(k,1012) = .700_r8*rxt(k,692)*y(k,147)
    2019   254840160 :          mat(k,2668) = .700_r8*rxt(k,696)*y(k,147) + rxt(k,697)*y(k,149)
    2020             :          mat(k,2757) = mat(k,2757) + rxt(k,704)*y(k,147) + rxt(k,705)*y(k,149) &
    2021             :                       + rxt(k,591)*y(k,237) + rxt(k,611)*y(k,240) + .500_r8*rxt(k,631) &
    2022             :                       *y(k,245) + .460_r8*rxt(k,651)*y(k,281) + .950_r8*rxt(k,671) &
    2023   254840160 :                       *y(k,290)
    2024   254840160 :          mat(k,2713) = .830_r8*rxt(k,712)*y(k,147) + rxt(k,713)*y(k,149)
    2025             :          mat(k,2803) = mat(k,2803) + rxt(k,722)*y(k,147) + rxt(k,723)*y(k,149) &
    2026             :                       + rxt(k,592)*y(k,237) + rxt(k,612)*y(k,240) + .500_r8*rxt(k,632) &
    2027             :                       *y(k,245) + .460_r8*rxt(k,652)*y(k,281) + .950_r8*rxt(k,672) &
    2028   254840160 :                       *y(k,290)
    2029   254840160 :          mat(k,2252) = .700_r8*rxt(k,731)*y(k,147) + rxt(k,732)*y(k,149)
    2030   254840160 :          mat(k,2690) = .910_r8*rxt(k,741)*y(k,147) + rxt(k,742)*y(k,149)
    2031             :          mat(k,2850) = mat(k,2850) + rxt(k,752)*y(k,147) + rxt(k,753)*y(k,149) &
    2032             :                       + rxt(k,593)*y(k,237) + rxt(k,613)*y(k,240) + .500_r8*rxt(k,633) &
    2033             :                       *y(k,245) + .460_r8*rxt(k,653)*y(k,281) + .950_r8*rxt(k,673) &
    2034   254840160 :                       *y(k,290)
    2035   254840160 :          mat(k,803) = .700_r8*rxt(k,761)*y(k,147)
    2036   254840160 :          mat(k,967) = .700_r8*rxt(k,766)*y(k,147)
    2037   254840160 :          mat(k,1225) = .700_r8*rxt(k,773)*y(k,147)
    2038   254840160 :          mat(k,1021) = .700_r8*rxt(k,777)*y(k,147)
    2039   254840160 :          mat(k,811) = .700_r8*rxt(k,781)*y(k,147)
    2040   254840160 :          mat(k,819) = .700_r8*rxt(k,785)*y(k,147)
    2041   254840160 :          mat(k,881) = rxt(k,572)*y(k,147)
    2042   254840160 :          mat(k,904) = rxt(k,578)*y(k,147)
    2043   263009123 :          mat(k,541) = rxt(k,581)*y(k,147)
    2044             :       end do
    2045     8168963 :       end subroutine nlnmat07
    2046     8168963 :       subroutine nlnmat08( avec_len, mat, y, rxt )
    2047             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    2048             :       implicit none
    2049             : !----------------------------------------------
    2050             : ! ... dummy arguments
    2051             : !----------------------------------------------
    2052             :       integer, intent(in) :: avec_len
    2053             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    2054             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    2055             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    2056             : !----------------------------------------------
    2057             : ! ... local variables
    2058             : !----------------------------------------------
    2059             :       integer :: k
    2060             : !----------------------------------------------
    2061             : ! ... complete matrix entries implicit species
    2062             : !----------------------------------------------
    2063   263009123 :       do k = 1,avec_len
    2064   254840160 :          mat(k,3610) = -(rxt(k,202)*y(k,258) + rxt(k,203)*y(k,147) + rxt(k,204) &
    2065             :                       *y(k,157) + rxt(k,205)*y(k,295) + rxt(k,213)*y(k,148) + rxt(k,299) &
    2066             :                       *y(k,43) + rxt(k,332)*y(k,46) + rxt(k,353)*y(k,30) + rxt(k,360) &
    2067             :                       *y(k,50) + rxt(k,374)*y(k,16) + rxt(k,393)*y(k,286) + rxt(k,473) &
    2068             :                       *y(k,109) + rxt(k,478)*y(k,274) + rxt(k,584)*y(k,4) + rxt(k,590) &
    2069             :                       *y(k,237) + rxt(k,598)*y(k,238) + rxt(k,604)*y(k,7) + rxt(k,610) &
    2070             :                       *y(k,240) + rxt(k,618)*y(k,241) + rxt(k,624)*y(k,17) + rxt(k,630) &
    2071             :                       *y(k,245) + rxt(k,638)*y(k,246) + rxt(k,644)*y(k,125) + rxt(k,650) &
    2072             :                       *y(k,281) + rxt(k,658)*y(k,282) + rxt(k,664)*y(k,135) + rxt(k,670) &
    2073             :                       *y(k,290) + rxt(k,678)*y(k,291) + rxt(k,697)*y(k,301) + rxt(k,705) &
    2074             :                       *y(k,302) + rxt(k,708)*y(k,203) + rxt(k,713)*y(k,303) + rxt(k,723) &
    2075             :                       *y(k,304) + rxt(k,727)*y(k,205) + rxt(k,732)*y(k,305) + rxt(k,742) &
    2076             :                       *y(k,306) + rxt(k,753)*y(k,307) + rxt(k,755)*y(k,202) + rxt(k,759) &
    2077   254840160 :                       *y(k,212) + rxt(k,764)*y(k,213) + rxt(k,793)*y(k,69))
    2078   254840160 :          mat(k,3373) = -rxt(k,202)*y(k,149)
    2079   254840160 :          mat(k,3114) = -rxt(k,203)*y(k,149)
    2080   254840160 :          mat(k,3167) = -rxt(k,204)*y(k,149)
    2081   254840160 :          mat(k,4096) = -rxt(k,205)*y(k,149)
    2082   254840160 :          mat(k,3662) = -rxt(k,213)*y(k,149)
    2083   254840160 :          mat(k,3193) = -rxt(k,299)*y(k,149)
    2084   254840160 :          mat(k,1437) = -rxt(k,332)*y(k,149)
    2085   254840160 :          mat(k,1396) = -rxt(k,353)*y(k,149)
    2086   254840160 :          mat(k,1931) = -rxt(k,360)*y(k,149)
    2087   254840160 :          mat(k,382) = -rxt(k,374)*y(k,149)
    2088   254840160 :          mat(k,1629) = -rxt(k,393)*y(k,149)
    2089   254840160 :          mat(k,1427) = -rxt(k,473)*y(k,149)
    2090   254840160 :          mat(k,2191) = -rxt(k,478)*y(k,149)
    2091   254840160 :          mat(k,1286) = -rxt(k,584)*y(k,149)
    2092   254840160 :          mat(k,2311) = -rxt(k,590)*y(k,149)
    2093   254840160 :          mat(k,2456) = -rxt(k,598)*y(k,149)
    2094   254840160 :          mat(k,1051) = -rxt(k,604)*y(k,149)
    2095   254840160 :          mat(k,2227) = -rxt(k,610)*y(k,149)
    2096   254840160 :          mat(k,2424) = -rxt(k,618)*y(k,149)
    2097   254840160 :          mat(k,1103) = -rxt(k,624)*y(k,149)
    2098   254840160 :          mat(k,2550) = -rxt(k,630)*y(k,149)
    2099   254840160 :          mat(k,2395) = -rxt(k,638)*y(k,149)
    2100   254840160 :          mat(k,1082) = -rxt(k,644)*y(k,149)
    2101   254840160 :          mat(k,2521) = -rxt(k,650)*y(k,149)
    2102   254840160 :          mat(k,2355) = -rxt(k,658)*y(k,149)
    2103   254840160 :          mat(k,835) = -rxt(k,664)*y(k,149)
    2104   254840160 :          mat(k,2586) = -rxt(k,670)*y(k,149)
    2105   254840160 :          mat(k,2487) = -rxt(k,678)*y(k,149)
    2106   254840160 :          mat(k,2667) = -rxt(k,697)*y(k,149)
    2107   254840160 :          mat(k,2756) = -rxt(k,705)*y(k,149)
    2108   254840160 :          mat(k,1295) = -rxt(k,708)*y(k,149)
    2109   254840160 :          mat(k,2712) = -rxt(k,713)*y(k,149)
    2110   254840160 :          mat(k,2802) = -rxt(k,723)*y(k,149)
    2111   254840160 :          mat(k,1724) = -rxt(k,727)*y(k,149)
    2112   254840160 :          mat(k,2251) = -rxt(k,732)*y(k,149)
    2113   254840160 :          mat(k,2689) = -rxt(k,742)*y(k,149)
    2114   254840160 :          mat(k,2849) = -rxt(k,753)*y(k,149)
    2115   254840160 :          mat(k,2366) = -rxt(k,755)*y(k,149)
    2116   254840160 :          mat(k,2641) = -rxt(k,759)*y(k,149)
    2117   254840160 :          mat(k,2613) = -rxt(k,764)*y(k,149)
    2118   254840160 :          mat(k,308) = -rxt(k,793)*y(k,149)
    2119   254840160 :          mat(k,567) = rxt(k,264)*y(k,157)
    2120   254840160 :          mat(k,3846) = rxt(k,231)*y(k,61)
    2121   254840160 :          mat(k,1330) = rxt(k,231)*y(k,57) + rxt(k,233)*y(k,157) + rxt(k,234)*y(k,295)
    2122   254840160 :          mat(k,1248) = rxt(k,278)*y(k,93)
    2123   254840160 :          mat(k,2955) = rxt(k,278)*y(k,75) + rxt(k,215)*y(k,295)
    2124   254840160 :          mat(k,532) = rxt(k,398)*y(k,295)
    2125   254840160 :          mat(k,3662) = mat(k,3662) + rxt(k,201)*y(k,157) + rxt(k,200)*y(k,158)
    2126             :          mat(k,3167) = mat(k,3167) + rxt(k,264)*y(k,21) + rxt(k,233)*y(k,61) &
    2127   254840160 :                       + rxt(k,201)*y(k,148)
    2128   254840160 :          mat(k,3764) = rxt(k,200)*y(k,148)
    2129   254840160 :          mat(k,574) = rxt(k,349)*y(k,295)
    2130             :          mat(k,4096) = mat(k,4096) + rxt(k,234)*y(k,61) + rxt(k,215)*y(k,93) &
    2131   254840160 :                       + rxt(k,398)*y(k,131) + rxt(k,349)*y(k,163)
    2132   254840160 :          mat(k,1454) = -(rxt(k,348)*y(k,295))
    2133   254840160 :          mat(k,4018) = -rxt(k,348)*y(k,150)
    2134   254840160 :          mat(k,2094) = .830_r8*rxt(k,469)*y(k,158)
    2135   254840160 :          mat(k,1566) = .130_r8*rxt(k,484)*y(k,158)
    2136   254840160 :          mat(k,2126) = .220_r8*rxt(k,501)*y(k,158) + .100_r8*rxt(k,502)*y(k,295)
    2137             :          mat(k,3039) = .870_r8*rxt(k,519)*y(k,272) + .330_r8*rxt(k,521)*y(k,273) &
    2138             :                       + .070_r8*rxt(k,525)*y(k,275) + .150_r8*rxt(k,527)*y(k,276) &
    2139   254840160 :                       + .120_r8*rxt(k,539)*y(k,293)
    2140             :          mat(k,3699) = .830_r8*rxt(k,469)*y(k,118) + .130_r8*rxt(k,484)*y(k,121) &
    2141   254840160 :                       + .220_r8*rxt(k,501)*y(k,139)
    2142             :          mat(k,3296) = .440_r8*rxt(k,467)*y(k,272) + .150_r8*rxt(k,471)*y(k,273) &
    2143             :                       + .060_r8*rxt(k,479)*y(k,275) + .120_r8*rxt(k,482)*y(k,276) &
    2144   254840160 :                       + .100_r8*rxt(k,499)*y(k,293)
    2145   254840160 :          mat(k,1133) = .870_r8*rxt(k,519)*y(k,147) + .440_r8*rxt(k,467)*y(k,258)
    2146   254840160 :          mat(k,1441) = .330_r8*rxt(k,521)*y(k,147) + .150_r8*rxt(k,471)*y(k,258)
    2147   254840160 :          mat(k,1310) = .070_r8*rxt(k,525)*y(k,147) + .060_r8*rxt(k,479)*y(k,258)
    2148   254840160 :          mat(k,1362) = .150_r8*rxt(k,527)*y(k,147) + .120_r8*rxt(k,482)*y(k,258)
    2149   254840160 :          mat(k,1635) = .120_r8*rxt(k,539)*y(k,147) + .100_r8*rxt(k,499)*y(k,258)
    2150   254840160 :          mat(k,4018) = mat(k,4018) + .100_r8*rxt(k,502)*y(k,139)
    2151   254840160 :          mat(k,1481) = -(rxt(k,364)*y(k,295))
    2152   254840160 :          mat(k,4022) = -rxt(k,364)*y(k,151)
    2153   254840160 :          mat(k,1387) = rxt(k,353)*y(k,149)
    2154   254840160 :          mat(k,1253) = .350_r8*rxt(k,423)*y(k,295)
    2155   254840160 :          mat(k,2065) = .830_r8*rxt(k,459)*y(k,158)
    2156   254840160 :          mat(k,1569) = .700_r8*rxt(k,484)*y(k,158)
    2157   254840160 :          mat(k,1776) = .500_r8*rxt(k,380)*y(k,295)
    2158   254840160 :          mat(k,1913) = .500_r8*rxt(k,399)*y(k,295)
    2159   254840160 :          mat(k,2128) = .610_r8*rxt(k,501)*y(k,158) + .350_r8*rxt(k,502)*y(k,295)
    2160             :          mat(k,3043) = .940_r8*rxt(k,513)*y(k,269) + .340_r8*rxt(k,521)*y(k,273) &
    2161             :                       + .400_r8*rxt(k,525)*y(k,275) + .810_r8*rxt(k,527)*y(k,276) &
    2162   254840160 :                       + .130_r8*rxt(k,539)*y(k,293)
    2163   254840160 :          mat(k,3545) = rxt(k,353)*y(k,30)
    2164             :          mat(k,3701) = .830_r8*rxt(k,459)*y(k,115) + .700_r8*rxt(k,484)*y(k,121) &
    2165   254840160 :                       + .610_r8*rxt(k,501)*y(k,139)
    2166             :          mat(k,3300) = .550_r8*rxt(k,457)*y(k,269) + .150_r8*rxt(k,471)*y(k,273) &
    2167             :                       + .280_r8*rxt(k,479)*y(k,275) + .680_r8*rxt(k,482)*y(k,276) &
    2168   254840160 :                       + .100_r8*rxt(k,499)*y(k,293)
    2169   254840160 :          mat(k,1123) = .940_r8*rxt(k,513)*y(k,147) + .550_r8*rxt(k,457)*y(k,258)
    2170   254840160 :          mat(k,1443) = .340_r8*rxt(k,521)*y(k,147) + .150_r8*rxt(k,471)*y(k,258)
    2171   254840160 :          mat(k,1312) = .400_r8*rxt(k,525)*y(k,147) + .280_r8*rxt(k,479)*y(k,258)
    2172   254840160 :          mat(k,1365) = .810_r8*rxt(k,527)*y(k,147) + .680_r8*rxt(k,482)*y(k,258)
    2173   254840160 :          mat(k,1638) = .130_r8*rxt(k,539)*y(k,147) + .100_r8*rxt(k,499)*y(k,258)
    2174             :          mat(k,4022) = mat(k,4022) + .350_r8*rxt(k,423)*y(k,108) + .500_r8*rxt(k,380) &
    2175             :                       *y(k,127) + .500_r8*rxt(k,399)*y(k,133) + .350_r8*rxt(k,502) &
    2176   254840160 :                       *y(k,139)
    2177             :          mat(k,3161) = -(rxt(k,173)*y(k,158) + 4._r8*rxt(k,174)*y(k,157) + rxt(k,176) &
    2178             :                       *y(k,79) + rxt(k,177)*y(k,81) + rxt(k,182)*y(k,258) + rxt(k,188) &
    2179             :                       *y(k,295) + (rxt(k,199) + rxt(k,201)) * y(k,148) + rxt(k,204) &
    2180             :                       *y(k,149) + rxt(k,209)*y(k,147) + rxt(k,233)*y(k,61) + rxt(k,235) &
    2181             :                       *y(k,60) + rxt(k,238)*y(k,87) + rxt(k,241)*y(k,96) + rxt(k,264) &
    2182             :                       *y(k,21) + rxt(k,265)*y(k,20) + rxt(k,267)*y(k,83) + rxt(k,269) &
    2183   254840160 :                       *y(k,95) + rxt(k,300)*y(k,43) + rxt(k,795)*y(k,161))
    2184   254840160 :          mat(k,3758) = -rxt(k,173)*y(k,157)
    2185   254840160 :          mat(k,1678) = -rxt(k,176)*y(k,157)
    2186   254840160 :          mat(k,1489) = -rxt(k,177)*y(k,157)
    2187   254840160 :          mat(k,3367) = -rxt(k,182)*y(k,157)
    2188   254840160 :          mat(k,4090) = -rxt(k,188)*y(k,157)
    2189   254840160 :          mat(k,3656) = -(rxt(k,199) + rxt(k,201)) * y(k,157)
    2190   254840160 :          mat(k,3604) = -rxt(k,204)*y(k,157)
    2191   254840160 :          mat(k,3108) = -rxt(k,209)*y(k,157)
    2192   254840160 :          mat(k,1328) = -rxt(k,233)*y(k,157)
    2193   254840160 :          mat(k,3510) = -rxt(k,235)*y(k,157)
    2194   254840160 :          mat(k,3130) = -rxt(k,238)*y(k,157)
    2195   254840160 :          mat(k,1161) = -rxt(k,241)*y(k,157)
    2196   254840160 :          mat(k,565) = -rxt(k,264)*y(k,157)
    2197   254840160 :          mat(k,3484) = -rxt(k,265)*y(k,157)
    2198   254840160 :          mat(k,1153) = -rxt(k,267)*y(k,157)
    2199   254840160 :          mat(k,998) = -rxt(k,269)*y(k,157)
    2200   254840160 :          mat(k,3187) = -rxt(k,300)*y(k,157)
    2201   254840160 :          mat(k,391) = -rxt(k,795)*y(k,157)
    2202   254840160 :          mat(k,2934) = rxt(k,180)*y(k,258)
    2203   254840160 :          mat(k,480) = rxt(k,194)*y(k,147) + rxt(k,195)*y(k,148)
    2204   254840160 :          mat(k,3108) = mat(k,3108) + rxt(k,194)*y(k,136)
    2205   254840160 :          mat(k,3656) = mat(k,3656) + rxt(k,195)*y(k,136)
    2206   254840160 :          mat(k,3367) = mat(k,3367) + rxt(k,180)*y(k,78)
    2207   254840160 :          mat(k,4090) = mat(k,4090) + 2.000_r8*rxt(k,190)*y(k,295)
    2208             :          mat(k,3766) = -(rxt(k,172)*y(k,294) + rxt(k,173)*y(k,157) + rxt(k,183) &
    2209             :                       *y(k,258) + rxt(k,184)*y(k,78) + rxt(k,189)*y(k,295) + rxt(k,200) &
    2210             :                       *y(k,148) + rxt(k,208)*y(k,147) + rxt(k,224)*y(k,57) + rxt(k,256) &
    2211             :                       *y(k,18) + rxt(k,323)*y(k,26) + rxt(k,354)*y(k,30) + rxt(k,385) &
    2212             :                       *y(k,126) + rxt(k,403)*y(k,132) + rxt(k,459)*y(k,115) + rxt(k,469) &
    2213             :                       *y(k,118) + rxt(k,484)*y(k,121) + rxt(k,486)*y(k,109) + rxt(k,501) &
    2214             :                       *y(k,139) + rxt(k,568)*y(k,165) + rxt(k,602)*y(k,4) + rxt(k,622) &
    2215             :                       *y(k,7) + rxt(k,642)*y(k,17) + rxt(k,662)*y(k,125) + rxt(k,682) &
    2216             :                       *y(k,135) + rxt(k,762)*y(k,212) + rxt(k,767)*y(k,213) + rxt(k,799) &
    2217   254840160 :                       *y(k,172) + rxt(k,805)*y(k,174))
    2218   254840160 :          mat(k,3807) = -rxt(k,172)*y(k,158)
    2219   254840160 :          mat(k,3169) = -rxt(k,173)*y(k,158)
    2220   254840160 :          mat(k,3375) = -rxt(k,183)*y(k,158)
    2221   254840160 :          mat(k,2939) = -rxt(k,184)*y(k,158)
    2222   254840160 :          mat(k,4098) = -rxt(k,189)*y(k,158)
    2223   254840160 :          mat(k,3664) = -rxt(k,200)*y(k,158)
    2224   254840160 :          mat(k,3116) = -rxt(k,208)*y(k,158)
    2225   254840160 :          mat(k,3848) = -rxt(k,224)*y(k,158)
    2226   254840160 :          mat(k,2205) = -rxt(k,256)*y(k,158)
    2227   254840160 :          mat(k,591) = -rxt(k,323)*y(k,158)
    2228   254840160 :          mat(k,1398) = -rxt(k,354)*y(k,158)
    2229   254840160 :          mat(k,2028) = -rxt(k,385)*y(k,158)
    2230   254840160 :          mat(k,2053) = -rxt(k,403)*y(k,158)
    2231   254840160 :          mat(k,2089) = -rxt(k,459)*y(k,158)
    2232   254840160 :          mat(k,2121) = -rxt(k,469)*y(k,158)
    2233   254840160 :          mat(k,1593) = -rxt(k,484)*y(k,158)
    2234   254840160 :          mat(k,1428) = -rxt(k,486)*y(k,158)
    2235   254840160 :          mat(k,2150) = -rxt(k,501)*y(k,158)
    2236   254840160 :          mat(k,487) = -rxt(k,568)*y(k,158)
    2237   254840160 :          mat(k,1287) = -rxt(k,602)*y(k,158)
    2238   254840160 :          mat(k,1052) = -rxt(k,622)*y(k,158)
    2239   254840160 :          mat(k,1104) = -rxt(k,642)*y(k,158)
    2240   254840160 :          mat(k,1083) = -rxt(k,662)*y(k,158)
    2241   254840160 :          mat(k,836) = -rxt(k,682)*y(k,158)
    2242   254840160 :          mat(k,2643) = -rxt(k,762)*y(k,158)
    2243   254840160 :          mat(k,2615) = -rxt(k,767)*y(k,158)
    2244   254840160 :          mat(k,547) = -rxt(k,799)*y(k,158)
    2245   254840160 :          mat(k,1609) = -rxt(k,805)*y(k,158)
    2246   254840160 :          mat(k,2924) = .150_r8*rxt(k,337)*y(k,258)
    2247             :          mat(k,3375) = mat(k,3375) + .150_r8*rxt(k,337)*y(k,252) + .150_r8*rxt(k,390) &
    2248             :                       *y(k,286) + .150_r8*rxt(k,703)*y(k,302) + .150_r8*rxt(k,721) &
    2249   254840160 :                       *y(k,304) + .150_r8*rxt(k,751)*y(k,307)
    2250   254840160 :          mat(k,1631) = .150_r8*rxt(k,390)*y(k,258)
    2251   254840160 :          mat(k,2758) = .150_r8*rxt(k,703)*y(k,258)
    2252   254840160 :          mat(k,2804) = .150_r8*rxt(k,721)*y(k,258)
    2253   254840160 :          mat(k,2851) = .150_r8*rxt(k,751)*y(k,258)
    2254   254840160 :          mat(k,342) = -(rxt(k,806)*y(k,174))
    2255   254840160 :          mat(k,1597) = -rxt(k,806)*y(k,160)
    2256   254840160 :          mat(k,3474) = rxt(k,258)*y(k,60)
    2257   254840160 :          mat(k,3500) = rxt(k,258)*y(k,20) + 2.000_r8*rxt(k,228)*y(k,60)
    2258   254840160 :          mat(k,385) = -(rxt(k,795)*y(k,157) + rxt(k,796)*y(k,295))
    2259   254840160 :          mat(k,3143) = -rxt(k,795)*y(k,161)
    2260   254840160 :          mat(k,3909) = -rxt(k,796)*y(k,161)
    2261   254840160 :          mat(k,973) = rxt(k,379)*y(k,295)
    2262   254840160 :          mat(k,1911) = .500_r8*rxt(k,399)*y(k,295)
    2263   254840160 :          mat(k,3879) = rxt(k,379)*y(k,97) + .500_r8*rxt(k,399)*y(k,133)
    2264   254840160 :          mat(k,569) = -(rxt(k,349)*y(k,295))
    2265   254840160 :          mat(k,3935) = -rxt(k,349)*y(k,163)
    2266   254840160 :          mat(k,3627) = rxt(k,351)*y(k,252)
    2267   263009123 :          mat(k,2855) = rxt(k,351)*y(k,148)
    2268             :       end do
    2269     8168963 :       end subroutine nlnmat08
    2270     8168963 :       subroutine nlnmat09( avec_len, mat, y, rxt )
    2271             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    2272             :       implicit none
    2273             : !----------------------------------------------
    2274             : ! ... dummy arguments
    2275             : !----------------------------------------------
    2276             :       integer, intent(in) :: avec_len
    2277             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    2278             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    2279             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    2280             : !----------------------------------------------
    2281             : ! ... local variables
    2282             : !----------------------------------------------
    2283             :       integer :: k
    2284             : !----------------------------------------------
    2285             : ! ... complete matrix entries implicit species
    2286             : !----------------------------------------------
    2287   263009123 :       do k = 1,avec_len
    2288   254840160 :          mat(k,3617) = rxt(k,570)*y(k,235)
    2289   254840160 :          mat(k,549) = rxt(k,570)*y(k,148)
    2290   254840160 :          mat(k,484) = -(rxt(k,567)*y(k,148) + rxt(k,568)*y(k,158))
    2291   254840160 :          mat(k,3623) = -rxt(k,567)*y(k,165)
    2292   254840160 :          mat(k,3675) = -rxt(k,568)*y(k,165)
    2293   254840160 :          mat(k,220) = .070_r8*rxt(k,554)*y(k,295)
    2294   254840160 :          mat(k,2987) = rxt(k,552)*y(k,251)
    2295   254840160 :          mat(k,194) = .060_r8*rxt(k,566)*y(k,295)
    2296   254840160 :          mat(k,238) = .070_r8*rxt(k,582)*y(k,295)
    2297   254840160 :          mat(k,710) = rxt(k,552)*y(k,147)
    2298             :          mat(k,3924) = .070_r8*rxt(k,554)*y(k,67) + .060_r8*rxt(k,566)*y(k,166) &
    2299   254840160 :                       + .070_r8*rxt(k,582)*y(k,231)
    2300   254840160 :          mat(k,192) = -(rxt(k,566)*y(k,295))
    2301   254840160 :          mat(k,3876) = -rxt(k,566)*y(k,166)
    2302   254840160 :          mat(k,184) = .530_r8*rxt(k,543)*y(k,295)
    2303   254840160 :          mat(k,3876) = mat(k,3876) + .530_r8*rxt(k,543)*y(k,8)
    2304   254840160 :          mat(k,347) = -(rxt(k,569)*y(k,295))
    2305   254840160 :          mat(k,3902) = -rxt(k,569)*y(k,167)
    2306   254840160 :          mat(k,3220) = rxt(k,564)*y(k,296)
    2307   254840160 :          mat(k,455) = rxt(k,564)*y(k,258)
    2308   254840160 :          mat(k,577) = -(rxt(k,367)*y(k,295))
    2309   254840160 :          mat(k,3936) = -rxt(k,367)*y(k,170)
    2310   254840160 :          mat(k,3240) = rxt(k,365)*y(k,297)
    2311   254840160 :          mat(k,938) = rxt(k,365)*y(k,258)
    2312   254840160 :          mat(k,405) = -(rxt(k,371)*y(k,295))
    2313   254840160 :          mat(k,3911) = -rxt(k,371)*y(k,171)
    2314   254840160 :          mat(k,3226) = .850_r8*rxt(k,369)*y(k,298)
    2315   254840160 :          mat(k,1335) = .850_r8*rxt(k,369)*y(k,258)
    2316   254840160 :          mat(k,543) = -(rxt(k,799)*y(k,158) + rxt(k,802)*y(k,295))
    2317   254840160 :          mat(k,3676) = -rxt(k,799)*y(k,172)
    2318   254840160 :          mat(k,3932) = -rxt(k,802)*y(k,172)
    2319             :          mat(k,1600) = -(rxt(k,800)*y(k,20) + rxt(k,801)*y(k,60) + rxt(k,803)*y(k,148) &
    2320             :                       + rxt(k,805)*y(k,158) + rxt(k,806)*y(k,160) + rxt(k,807) &
    2321   254840160 :                       *y(k,295))
    2322   254840160 :          mat(k,3478) = -rxt(k,800)*y(k,174)
    2323   254840160 :          mat(k,3504) = -rxt(k,801)*y(k,174)
    2324   254840160 :          mat(k,3639) = -rxt(k,803)*y(k,174)
    2325   254840160 :          mat(k,3705) = -rxt(k,805)*y(k,174)
    2326   254840160 :          mat(k,344) = -rxt(k,806)*y(k,174)
    2327   254840160 :          mat(k,4032) = -rxt(k,807)*y(k,174)
    2328   254840160 :          mat(k,3152) = rxt(k,795)*y(k,161)
    2329   254840160 :          mat(k,3705) = mat(k,3705) + rxt(k,799)*y(k,172)
    2330   254840160 :          mat(k,388) = rxt(k,795)*y(k,157)
    2331   254840160 :          mat(k,544) = rxt(k,799)*y(k,158) + rxt(k,802)*y(k,295)
    2332   254840160 :          mat(k,4032) = mat(k,4032) + rxt(k,802)*y(k,172)
    2333   254840160 :          mat(k,1235) = -(rxt(k,798)*y(k,295))
    2334   254840160 :          mat(k,4002) = -rxt(k,798)*y(k,175)
    2335   254840160 :          mat(k,3477) = rxt(k,800)*y(k,174)
    2336   254840160 :          mat(k,3502) = rxt(k,801)*y(k,174)
    2337   254840160 :          mat(k,305) = rxt(k,793)*y(k,149) + (rxt(k,794)+.500_r8*rxt(k,808))*y(k,295)
    2338   254840160 :          mat(k,3635) = rxt(k,803)*y(k,174)
    2339   254840160 :          mat(k,3537) = rxt(k,793)*y(k,69)
    2340   254840160 :          mat(k,3691) = rxt(k,805)*y(k,174)
    2341   254840160 :          mat(k,343) = rxt(k,806)*y(k,174)
    2342   254840160 :          mat(k,387) = rxt(k,796)*y(k,295)
    2343             :          mat(k,1599) = rxt(k,800)*y(k,20) + rxt(k,801)*y(k,60) + rxt(k,803)*y(k,148) &
    2344             :                       + rxt(k,805)*y(k,158) + rxt(k,806)*y(k,160) + rxt(k,807) &
    2345   254840160 :                       *y(k,295)
    2346             :          mat(k,4002) = mat(k,4002) + (rxt(k,794)+.500_r8*rxt(k,808))*y(k,69) &
    2347   254840160 :                       + rxt(k,796)*y(k,161) + rxt(k,807)*y(k,174)
    2348   254840160 :          mat(k,279) = -(rxt(k,809)*y(k,319))
    2349   254840160 :          mat(k,4104) = -rxt(k,809)*y(k,176)
    2350   254840160 :          mat(k,1234) = rxt(k,798)*y(k,295)
    2351   254840160 :          mat(k,3894) = rxt(k,798)*y(k,175)
    2352   254840160 :          mat(k,1265) = .0508005_r8*rxt(k,844)*y(k,158)
    2353   254840160 :          mat(k,1034) = .2202005_r8*rxt(k,849)*y(k,158)
    2354   254840160 :          mat(k,1085) = .0508005_r8*rxt(k,857)*y(k,158)
    2355   254840160 :          mat(k,1064) = .0508005_r8*rxt(k,870)*y(k,158)
    2356   254840160 :          mat(k,821) = .0508005_r8*rxt(k,875)*y(k,158)
    2357             :          mat(k,2962) = .0245005_r8*rxt(k,843)*y(k,239) + .1279005_r8*rxt(k,848) &
    2358             :                       *y(k,242) + .0097005_r8*rxt(k,853)*y(k,244) &
    2359             :                       + .0245005_r8*rxt(k,856)*y(k,247) + .0003005_r8*rxt(k,861) &
    2360             :                       *y(k,277) + .1056005_r8*rxt(k,865)*y(k,280) &
    2361             :                       + .0245005_r8*rxt(k,869)*y(k,283) + .0245005_r8*rxt(k,874) &
    2362             :                       *y(k,292) + .0154005_r8*rxt(k,880)*y(k,315) &
    2363   254840160 :                       + .0063005_r8*rxt(k,883)*y(k,317)
    2364             :          mat(k,3669) = .0508005_r8*rxt(k,844)*y(k,4) + .2202005_r8*rxt(k,849)*y(k,7) &
    2365             :                       + .0508005_r8*rxt(k,857)*y(k,17) + .0508005_r8*rxt(k,870) &
    2366   254840160 :                       *y(k,125) + .0508005_r8*rxt(k,875)*y(k,135)
    2367   254840160 :          mat(k,46) = .5931005_r8*rxt(k,877)*y(k,295)
    2368   254840160 :          mat(k,52) = .0245005_r8*rxt(k,843)*y(k,147) + .0508005_r8*rxt(k,842)*y(k,258)
    2369   254840160 :          mat(k,58) = .1279005_r8*rxt(k,848)*y(k,147) + .2202005_r8*rxt(k,847)*y(k,258)
    2370   254840160 :          mat(k,64) = .0097005_r8*rxt(k,853)*y(k,147) + .0023005_r8*rxt(k,852)*y(k,258)
    2371   254840160 :          mat(k,70) = .0245005_r8*rxt(k,856)*y(k,147) + .0508005_r8*rxt(k,855)*y(k,258)
    2372             :          mat(k,3200) = .0508005_r8*rxt(k,842)*y(k,239) + .2202005_r8*rxt(k,847) &
    2373             :                       *y(k,242) + .0023005_r8*rxt(k,852)*y(k,244) &
    2374             :                       + .0508005_r8*rxt(k,855)*y(k,247) + .0031005_r8*rxt(k,860) &
    2375             :                       *y(k,277) + .2381005_r8*rxt(k,864)*y(k,280) &
    2376             :                       + .0508005_r8*rxt(k,868)*y(k,283) + .0508005_r8*rxt(k,873) &
    2377             :                       *y(k,292) + .1364005_r8*rxt(k,879)*y(k,315) &
    2378   254840160 :                       + .1677005_r8*rxt(k,882)*y(k,317)
    2379   254840160 :          mat(k,76) = .0003005_r8*rxt(k,861)*y(k,147) + .0031005_r8*rxt(k,860)*y(k,258)
    2380   254840160 :          mat(k,82) = .1056005_r8*rxt(k,865)*y(k,147) + .2381005_r8*rxt(k,864)*y(k,258)
    2381   254840160 :          mat(k,90) = .0245005_r8*rxt(k,869)*y(k,147) + .0508005_r8*rxt(k,868)*y(k,258)
    2382   254840160 :          mat(k,96) = .0245005_r8*rxt(k,874)*y(k,147) + .0508005_r8*rxt(k,873)*y(k,258)
    2383   254840160 :          mat(k,3853) = .5931005_r8*rxt(k,877)*y(k,198)
    2384             :          mat(k,102) = .0154005_r8*rxt(k,880)*y(k,147) + .1364005_r8*rxt(k,879) &
    2385   254840160 :                       *y(k,258)
    2386             :          mat(k,108) = .0063005_r8*rxt(k,883)*y(k,147) + .1677005_r8*rxt(k,882) &
    2387   254840160 :                       *y(k,258)
    2388   254840160 :          mat(k,1266) = .1149005_r8*rxt(k,844)*y(k,158)
    2389   254840160 :          mat(k,1035) = .2067005_r8*rxt(k,849)*y(k,158)
    2390   254840160 :          mat(k,1086) = .1149005_r8*rxt(k,857)*y(k,158)
    2391   254840160 :          mat(k,1065) = .1149005_r8*rxt(k,870)*y(k,158)
    2392   254840160 :          mat(k,822) = .1149005_r8*rxt(k,875)*y(k,158)
    2393             :          mat(k,2963) = .0082005_r8*rxt(k,843)*y(k,239) + .1792005_r8*rxt(k,848) &
    2394             :                       *y(k,242) + .0034005_r8*rxt(k,853)*y(k,244) &
    2395             :                       + .0082005_r8*rxt(k,856)*y(k,247) + .0003005_r8*rxt(k,861) &
    2396             :                       *y(k,277) + .1026005_r8*rxt(k,865)*y(k,280) &
    2397             :                       + .0082005_r8*rxt(k,869)*y(k,283) + .0082005_r8*rxt(k,874) &
    2398             :                       *y(k,292) + .0452005_r8*rxt(k,880)*y(k,315) &
    2399   254840160 :                       + .0237005_r8*rxt(k,883)*y(k,317)
    2400             :          mat(k,3670) = .1149005_r8*rxt(k,844)*y(k,4) + .2067005_r8*rxt(k,849)*y(k,7) &
    2401             :                       + .1149005_r8*rxt(k,857)*y(k,17) + .1149005_r8*rxt(k,870) &
    2402   254840160 :                       *y(k,125) + .1149005_r8*rxt(k,875)*y(k,135)
    2403   254840160 :          mat(k,47) = .1534005_r8*rxt(k,877)*y(k,295)
    2404   254840160 :          mat(k,53) = .0082005_r8*rxt(k,843)*y(k,147) + .1149005_r8*rxt(k,842)*y(k,258)
    2405   254840160 :          mat(k,59) = .1792005_r8*rxt(k,848)*y(k,147) + .2067005_r8*rxt(k,847)*y(k,258)
    2406   254840160 :          mat(k,65) = .0034005_r8*rxt(k,853)*y(k,147) + .0008005_r8*rxt(k,852)*y(k,258)
    2407   254840160 :          mat(k,71) = .0082005_r8*rxt(k,856)*y(k,147) + .1149005_r8*rxt(k,855)*y(k,258)
    2408             :          mat(k,3201) = .1149005_r8*rxt(k,842)*y(k,239) + .2067005_r8*rxt(k,847) &
    2409             :                       *y(k,242) + .0008005_r8*rxt(k,852)*y(k,244) &
    2410             :                       + .1149005_r8*rxt(k,855)*y(k,247) + .0035005_r8*rxt(k,860) &
    2411             :                       *y(k,277) + .1308005_r8*rxt(k,864)*y(k,280) &
    2412             :                       + .1149005_r8*rxt(k,868)*y(k,283) + .1149005_r8*rxt(k,873) &
    2413             :                       *y(k,292) + .0101005_r8*rxt(k,879)*y(k,315) &
    2414   254840160 :                       + .0174005_r8*rxt(k,882)*y(k,317)
    2415   254840160 :          mat(k,77) = .0003005_r8*rxt(k,861)*y(k,147) + .0035005_r8*rxt(k,860)*y(k,258)
    2416   254840160 :          mat(k,83) = .1026005_r8*rxt(k,865)*y(k,147) + .1308005_r8*rxt(k,864)*y(k,258)
    2417   254840160 :          mat(k,91) = .0082005_r8*rxt(k,869)*y(k,147) + .1149005_r8*rxt(k,868)*y(k,258)
    2418   254840160 :          mat(k,97) = .0082005_r8*rxt(k,874)*y(k,147) + .1149005_r8*rxt(k,873)*y(k,258)
    2419   254840160 :          mat(k,3854) = .1534005_r8*rxt(k,877)*y(k,198)
    2420             :          mat(k,103) = .0452005_r8*rxt(k,880)*y(k,147) + .0101005_r8*rxt(k,879) &
    2421   254840160 :                       *y(k,258)
    2422             :          mat(k,109) = .0237005_r8*rxt(k,883)*y(k,147) + .0174005_r8*rxt(k,882) &
    2423   254840160 :                       *y(k,258)
    2424   254840160 :          mat(k,1267) = .0348005_r8*rxt(k,844)*y(k,158)
    2425   254840160 :          mat(k,1036) = .0653005_r8*rxt(k,849)*y(k,158)
    2426   254840160 :          mat(k,1087) = .0348005_r8*rxt(k,857)*y(k,158)
    2427   254840160 :          mat(k,1066) = .0348005_r8*rxt(k,870)*y(k,158)
    2428   254840160 :          mat(k,823) = .0348005_r8*rxt(k,875)*y(k,158)
    2429             :          mat(k,2964) = .0772005_r8*rxt(k,843)*y(k,239) + .0676005_r8*rxt(k,848) &
    2430             :                       *y(k,242) + .1579005_r8*rxt(k,853)*y(k,244) &
    2431             :                       + .0772005_r8*rxt(k,856)*y(k,247) + .0073005_r8*rxt(k,861) &
    2432             :                       *y(k,277) + .0521005_r8*rxt(k,865)*y(k,280) &
    2433             :                       + .0772005_r8*rxt(k,869)*y(k,283) + .0772005_r8*rxt(k,874) &
    2434             :                       *y(k,292) + .0966005_r8*rxt(k,880)*y(k,315) &
    2435   254840160 :                       + .0025005_r8*rxt(k,883)*y(k,317)
    2436             :          mat(k,3671) = .0348005_r8*rxt(k,844)*y(k,4) + .0653005_r8*rxt(k,849)*y(k,7) &
    2437             :                       + .0348005_r8*rxt(k,857)*y(k,17) + .0348005_r8*rxt(k,870) &
    2438   254840160 :                       *y(k,125) + .0348005_r8*rxt(k,875)*y(k,135)
    2439   254840160 :          mat(k,48) = .0459005_r8*rxt(k,877)*y(k,295)
    2440   254840160 :          mat(k,54) = .0772005_r8*rxt(k,843)*y(k,147) + .0348005_r8*rxt(k,842)*y(k,258)
    2441   254840160 :          mat(k,60) = .0676005_r8*rxt(k,848)*y(k,147) + .0653005_r8*rxt(k,847)*y(k,258)
    2442   254840160 :          mat(k,66) = .1579005_r8*rxt(k,853)*y(k,147) + .0843005_r8*rxt(k,852)*y(k,258)
    2443   254840160 :          mat(k,72) = .0772005_r8*rxt(k,856)*y(k,147) + .0348005_r8*rxt(k,855)*y(k,258)
    2444             :          mat(k,3202) = .0348005_r8*rxt(k,842)*y(k,239) + .0653005_r8*rxt(k,847) &
    2445             :                       *y(k,242) + .0843005_r8*rxt(k,852)*y(k,244) &
    2446             :                       + .0348005_r8*rxt(k,855)*y(k,247) + .0003005_r8*rxt(k,860) &
    2447             :                       *y(k,277) + .0348005_r8*rxt(k,864)*y(k,280) &
    2448             :                       + .0348005_r8*rxt(k,868)*y(k,283) + .0348005_r8*rxt(k,873) &
    2449             :                       *y(k,292) + .0763005_r8*rxt(k,879)*y(k,315) + .086_r8*rxt(k,882) &
    2450   254840160 :                       *y(k,317)
    2451   254840160 :          mat(k,78) = .0073005_r8*rxt(k,861)*y(k,147) + .0003005_r8*rxt(k,860)*y(k,258)
    2452   254840160 :          mat(k,84) = .0521005_r8*rxt(k,865)*y(k,147) + .0348005_r8*rxt(k,864)*y(k,258)
    2453   254840160 :          mat(k,92) = .0772005_r8*rxt(k,869)*y(k,147) + .0348005_r8*rxt(k,868)*y(k,258)
    2454   254840160 :          mat(k,98) = .0772005_r8*rxt(k,874)*y(k,147) + .0348005_r8*rxt(k,873)*y(k,258)
    2455   254840160 :          mat(k,3855) = .0459005_r8*rxt(k,877)*y(k,198)
    2456             :          mat(k,104) = .0966005_r8*rxt(k,880)*y(k,147) + .0763005_r8*rxt(k,879) &
    2457   254840160 :                       *y(k,258)
    2458   254840160 :          mat(k,110) = .0025005_r8*rxt(k,883)*y(k,147) + .086_r8*rxt(k,882)*y(k,258)
    2459             :          mat(k,1268) = .1749305_r8*rxt(k,841)*y(k,149) + .0554005_r8*rxt(k,844) &
    2460   254840160 :                       *y(k,158)
    2461             :          mat(k,1037) = .1749305_r8*rxt(k,846)*y(k,149) + .1284005_r8*rxt(k,849) &
    2462   254840160 :                       *y(k,158)
    2463             :          mat(k,1088) = .1749305_r8*rxt(k,854)*y(k,149) + .0554005_r8*rxt(k,857) &
    2464   254840160 :                       *y(k,158)
    2465             :          mat(k,1401) = .0590245_r8*rxt(k,859)*y(k,149) + .0033005_r8*rxt(k,862) &
    2466   254840160 :                       *y(k,158)
    2467             :          mat(k,1067) = .1749305_r8*rxt(k,867)*y(k,149) + .0554005_r8*rxt(k,870) &
    2468   254840160 :                       *y(k,158)
    2469             :          mat(k,824) = .1749305_r8*rxt(k,872)*y(k,149) + .0554005_r8*rxt(k,875) &
    2470   254840160 :                       *y(k,158)
    2471             :          mat(k,2965) = .0332005_r8*rxt(k,843)*y(k,239) + .079_r8*rxt(k,848)*y(k,242) &
    2472             :                       + .0059005_r8*rxt(k,853)*y(k,244) + .0332005_r8*rxt(k,856) &
    2473             :                       *y(k,247) + .0057005_r8*rxt(k,861)*y(k,277) &
    2474             :                       + .0143005_r8*rxt(k,865)*y(k,280) + .0332005_r8*rxt(k,869) &
    2475             :                       *y(k,283) + .0332005_r8*rxt(k,874)*y(k,292) &
    2476   254840160 :                       + .0073005_r8*rxt(k,880)*y(k,315) + .011_r8*rxt(k,883)*y(k,317)
    2477             :          mat(k,3523) = .1749305_r8*rxt(k,841)*y(k,4) + .1749305_r8*rxt(k,846)*y(k,7) &
    2478             :                       + .1749305_r8*rxt(k,854)*y(k,17) + .0590245_r8*rxt(k,859) &
    2479             :                       *y(k,109) + .1749305_r8*rxt(k,867)*y(k,125) &
    2480   254840160 :                       + .1749305_r8*rxt(k,872)*y(k,135)
    2481             :          mat(k,3672) = .0554005_r8*rxt(k,844)*y(k,4) + .1284005_r8*rxt(k,849)*y(k,7) &
    2482             :                       + .0554005_r8*rxt(k,857)*y(k,17) + .0033005_r8*rxt(k,862) &
    2483             :                       *y(k,109) + .0554005_r8*rxt(k,870)*y(k,125) &
    2484   254840160 :                       + .0554005_r8*rxt(k,875)*y(k,135)
    2485   254840160 :          mat(k,49) = .0085005_r8*rxt(k,877)*y(k,295)
    2486   254840160 :          mat(k,55) = .0332005_r8*rxt(k,843)*y(k,147) + .0554005_r8*rxt(k,842)*y(k,258)
    2487   254840160 :          mat(k,61) = .079_r8*rxt(k,848)*y(k,147) + .1284005_r8*rxt(k,847)*y(k,258)
    2488   254840160 :          mat(k,67) = .0059005_r8*rxt(k,853)*y(k,147) + .0443005_r8*rxt(k,852)*y(k,258)
    2489   254840160 :          mat(k,73) = .0332005_r8*rxt(k,856)*y(k,147) + .0554005_r8*rxt(k,855)*y(k,258)
    2490             :          mat(k,3203) = .0554005_r8*rxt(k,842)*y(k,239) + .1284005_r8*rxt(k,847) &
    2491             :                       *y(k,242) + .0443005_r8*rxt(k,852)*y(k,244) &
    2492             :                       + .0554005_r8*rxt(k,855)*y(k,247) + .0271005_r8*rxt(k,860) &
    2493             :                       *y(k,277) + .0076005_r8*rxt(k,864)*y(k,280) &
    2494             :                       + .0554005_r8*rxt(k,868)*y(k,283) + .0554005_r8*rxt(k,873) &
    2495             :                       *y(k,292) + .2157005_r8*rxt(k,879)*y(k,315) &
    2496   254840160 :                       + .0512005_r8*rxt(k,882)*y(k,317)
    2497   254840160 :          mat(k,79) = .0057005_r8*rxt(k,861)*y(k,147) + .0271005_r8*rxt(k,860)*y(k,258)
    2498   254840160 :          mat(k,85) = .0143005_r8*rxt(k,865)*y(k,147) + .0076005_r8*rxt(k,864)*y(k,258)
    2499   254840160 :          mat(k,93) = .0332005_r8*rxt(k,869)*y(k,147) + .0554005_r8*rxt(k,868)*y(k,258)
    2500   254840160 :          mat(k,99) = .0332005_r8*rxt(k,874)*y(k,147) + .0554005_r8*rxt(k,873)*y(k,258)
    2501   254840160 :          mat(k,3856) = .0085005_r8*rxt(k,877)*y(k,198)
    2502             :          mat(k,105) = .0073005_r8*rxt(k,880)*y(k,147) + .2157005_r8*rxt(k,879) &
    2503   254840160 :                       *y(k,258)
    2504   263009123 :          mat(k,111) = .011_r8*rxt(k,883)*y(k,147) + .0512005_r8*rxt(k,882)*y(k,258)
    2505             :       end do
    2506     8168963 :       end subroutine nlnmat09
    2507     8168963 :       subroutine nlnmat10( avec_len, mat, y, rxt )
    2508             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    2509             :       implicit none
    2510             : !----------------------------------------------
    2511             : ! ... dummy arguments
    2512             : !----------------------------------------------
    2513             :       integer, intent(in) :: avec_len
    2514             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    2515             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    2516             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    2517             : !----------------------------------------------
    2518             : ! ... local variables
    2519             : !----------------------------------------------
    2520             :       integer :: k
    2521             : !----------------------------------------------
    2522             : ! ... complete matrix entries implicit species
    2523             : !----------------------------------------------
    2524   263009123 :       do k = 1,avec_len
    2525   254840160 :          mat(k,1269) = .5901905_r8*rxt(k,841)*y(k,149) + .1278005_r8*rxt(k,844) &
    2526   254840160 :                       *y(k,158)
    2527   254840160 :          mat(k,1038) = .5901905_r8*rxt(k,846)*y(k,149) + .114_r8*rxt(k,849)*y(k,158)
    2528             :          mat(k,1089) = .5901905_r8*rxt(k,854)*y(k,149) + .1278005_r8*rxt(k,857) &
    2529   254840160 :                       *y(k,158)
    2530   254840160 :          mat(k,1402) = .0250245_r8*rxt(k,859)*y(k,149)
    2531             :          mat(k,1068) = .5901905_r8*rxt(k,867)*y(k,149) + .1278005_r8*rxt(k,870) &
    2532   254840160 :                       *y(k,158)
    2533             :          mat(k,825) = .5901905_r8*rxt(k,872)*y(k,149) + .1278005_r8*rxt(k,875) &
    2534   254840160 :                       *y(k,158)
    2535             :          mat(k,2966) = .130_r8*rxt(k,843)*y(k,239) + .1254005_r8*rxt(k,848)*y(k,242) &
    2536             :                       + .0536005_r8*rxt(k,853)*y(k,244) + .130_r8*rxt(k,856)*y(k,247) &
    2537             :                       + .0623005_r8*rxt(k,861)*y(k,277) + .0166005_r8*rxt(k,865) &
    2538             :                       *y(k,280) + .130_r8*rxt(k,869)*y(k,283) + .130_r8*rxt(k,874) &
    2539             :                       *y(k,292) + .238_r8*rxt(k,880)*y(k,315) + .1185005_r8*rxt(k,883) &
    2540   254840160 :                       *y(k,317)
    2541             :          mat(k,3524) = .5901905_r8*rxt(k,841)*y(k,4) + .5901905_r8*rxt(k,846)*y(k,7) &
    2542             :                       + .5901905_r8*rxt(k,854)*y(k,17) + .0250245_r8*rxt(k,859) &
    2543             :                       *y(k,109) + .5901905_r8*rxt(k,867)*y(k,125) &
    2544   254840160 :                       + .5901905_r8*rxt(k,872)*y(k,135)
    2545             :          mat(k,3673) = .1278005_r8*rxt(k,844)*y(k,4) + .114_r8*rxt(k,849)*y(k,7) &
    2546             :                       + .1278005_r8*rxt(k,857)*y(k,17) + .1278005_r8*rxt(k,870) &
    2547   254840160 :                       *y(k,125) + .1278005_r8*rxt(k,875)*y(k,135)
    2548   254840160 :          mat(k,50) = .0128005_r8*rxt(k,877)*y(k,295)
    2549   254840160 :          mat(k,56) = .130_r8*rxt(k,843)*y(k,147) + .1278005_r8*rxt(k,842)*y(k,258)
    2550   254840160 :          mat(k,62) = .1254005_r8*rxt(k,848)*y(k,147) + .114_r8*rxt(k,847)*y(k,258)
    2551   254840160 :          mat(k,68) = .0536005_r8*rxt(k,853)*y(k,147) + .1621005_r8*rxt(k,852)*y(k,258)
    2552   254840160 :          mat(k,74) = .130_r8*rxt(k,856)*y(k,147) + .1278005_r8*rxt(k,855)*y(k,258)
    2553             :          mat(k,3204) = .1278005_r8*rxt(k,842)*y(k,239) + .114_r8*rxt(k,847)*y(k,242) &
    2554             :                       + .1621005_r8*rxt(k,852)*y(k,244) + .1278005_r8*rxt(k,855) &
    2555             :                       *y(k,247) + .0474005_r8*rxt(k,860)*y(k,277) &
    2556             :                       + .0113005_r8*rxt(k,864)*y(k,280) + .1278005_r8*rxt(k,868) &
    2557             :                       *y(k,283) + .1278005_r8*rxt(k,873)*y(k,292) &
    2558             :                       + .0738005_r8*rxt(k,879)*y(k,315) + .1598005_r8*rxt(k,882) &
    2559   254840160 :                       *y(k,317)
    2560   254840160 :          mat(k,80) = .0623005_r8*rxt(k,861)*y(k,147) + .0474005_r8*rxt(k,860)*y(k,258)
    2561   254840160 :          mat(k,86) = .0166005_r8*rxt(k,865)*y(k,147) + .0113005_r8*rxt(k,864)*y(k,258)
    2562   254840160 :          mat(k,94) = .130_r8*rxt(k,869)*y(k,147) + .1278005_r8*rxt(k,868)*y(k,258)
    2563   254840160 :          mat(k,100) = .130_r8*rxt(k,874)*y(k,147) + .1278005_r8*rxt(k,873)*y(k,258)
    2564   254840160 :          mat(k,3857) = .0128005_r8*rxt(k,877)*y(k,198)
    2565   254840160 :          mat(k,106) = .238_r8*rxt(k,880)*y(k,147) + .0738005_r8*rxt(k,879)*y(k,258)
    2566             :          mat(k,112) = .1185005_r8*rxt(k,883)*y(k,147) + .1598005_r8*rxt(k,882) &
    2567   254840160 :                       *y(k,258)
    2568   254840160 :          mat(k,2967) = .070_r8*rxt(k,609)*y(k,240) + .300_r8*rxt(k,617)*y(k,241)
    2569             :          mat(k,2209) = .070_r8*rxt(k,609)*y(k,147) + .720_r8*rxt(k,605)*y(k,240) &
    2570   254840160 :                       + .180_r8*rxt(k,607)*y(k,253) + .500_r8*rxt(k,608)*y(k,258)
    2571   254840160 :          mat(k,2399) = .300_r8*rxt(k,617)*y(k,147)
    2572   254840160 :          mat(k,3380) = .180_r8*rxt(k,607)*y(k,240)
    2573   254840160 :          mat(k,3205) = .500_r8*rxt(k,608)*y(k,240)
    2574   254840160 :          mat(k,51) = -(rxt(k,877)*y(k,295))
    2575   254840160 :          mat(k,3858) = -rxt(k,877)*y(k,198)
    2576   254840160 :          mat(k,213) = .100_r8*rxt(k,574)*y(k,295)
    2577   254840160 :          mat(k,228) = .230_r8*rxt(k,576)*y(k,295)
    2578   254840160 :          mat(k,3882) = .100_r8*rxt(k,574)*y(k,228) + .230_r8*rxt(k,576)*y(k,229)
    2579   254840160 :          mat(k,2320) = -(rxt(k,689)*y(k,295))
    2580   254840160 :          mat(k,4067) = -rxt(k,689)*y(k,200)
    2581   254840160 :          mat(k,3085) = .110_r8*rxt(k,597)*y(k,238) + .700_r8*rxt(k,692)*y(k,300)
    2582   254840160 :          mat(k,3581) = .140_r8*rxt(k,598)*y(k,238)
    2583             :          mat(k,2439) = .110_r8*rxt(k,597)*y(k,147) + .140_r8*rxt(k,598)*y(k,149) &
    2584             :                       + .140_r8*rxt(k,594)*y(k,252) + .130_r8*rxt(k,595)*y(k,253) &
    2585             :                       + .250_r8*rxt(k,596)*y(k,258) + .140_r8*rxt(k,599)*y(k,302) &
    2586   254840160 :                       + .140_r8*rxt(k,600)*y(k,304) + .140_r8*rxt(k,601)*y(k,307)
    2587   254840160 :          mat(k,2378) = .680_r8*rxt(k,636)*y(k,258)
    2588   254840160 :          mat(k,2895) = .140_r8*rxt(k,594)*y(k,238)
    2589   254840160 :          mat(k,3437) = .130_r8*rxt(k,595)*y(k,238)
    2590             :          mat(k,3344) = .250_r8*rxt(k,596)*y(k,238) + .680_r8*rxt(k,636)*y(k,246) &
    2591             :                       + .900_r8*rxt(k,656)*y(k,282) + .180_r8*rxt(k,691)*y(k,300) &
    2592   254840160 :                       + .900_r8*rxt(k,765)*y(k,309)
    2593   254840160 :          mat(k,2338) = .900_r8*rxt(k,656)*y(k,258)
    2594   254840160 :          mat(k,1008) = .700_r8*rxt(k,692)*y(k,147) + .180_r8*rxt(k,691)*y(k,258)
    2595   254840160 :          mat(k,2730) = .140_r8*rxt(k,599)*y(k,238)
    2596   254840160 :          mat(k,2776) = .140_r8*rxt(k,600)*y(k,238)
    2597   254840160 :          mat(k,2823) = .140_r8*rxt(k,601)*y(k,238)
    2598   254840160 :          mat(k,963) = .900_r8*rxt(k,765)*y(k,258)
    2599   254840160 :          mat(k,471) = -(rxt(k,690)*y(k,295))
    2600   254840160 :          mat(k,3922) = -rxt(k,690)*y(k,201)
    2601   254840160 :          mat(k,2400) = .900_r8*rxt(k,616)*y(k,258)
    2602   254840160 :          mat(k,3235) = .900_r8*rxt(k,616)*y(k,241) + .900_r8*rxt(k,676)*y(k,291)
    2603   254840160 :          mat(k,2460) = .900_r8*rxt(k,676)*y(k,258)
    2604   254840160 :          mat(k,2359) = -(rxt(k,755)*y(k,149) + rxt(k,756)*y(k,295))
    2605   254840160 :          mat(k,3583) = -rxt(k,755)*y(k,202)
    2606   254840160 :          mat(k,4069) = -rxt(k,756)*y(k,202)
    2607   254840160 :          mat(k,1278) = .220_r8*rxt(k,602)*y(k,158)
    2608   254840160 :          mat(k,3087) = .930_r8*rxt(k,589)*y(k,237) + .300_r8*rxt(k,597)*y(k,238)
    2609   254840160 :          mat(k,3583) = mat(k,3583) + rxt(k,590)*y(k,237) + .390_r8*rxt(k,598)*y(k,238)
    2610   254840160 :          mat(k,3737) = .220_r8*rxt(k,602)*y(k,4)
    2611   254840160 :          mat(k,1558) = rxt(k,783)*y(k,295)
    2612   254840160 :          mat(k,1537) = rxt(k,787)*y(k,295)
    2613   254840160 :          mat(k,690) = rxt(k,789)*y(k,295)
    2614             :          mat(k,2297) = .930_r8*rxt(k,589)*y(k,147) + rxt(k,590)*y(k,149) &
    2615             :                       + 3.280_r8*rxt(k,585)*y(k,237) + rxt(k,586)*y(k,252) &
    2616             :                       + .820_r8*rxt(k,587)*y(k,253) + .700_r8*rxt(k,588)*y(k,258) &
    2617             :                       + rxt(k,591)*y(k,302) + rxt(k,592)*y(k,304) + rxt(k,593) &
    2618   254840160 :                       *y(k,307)
    2619             :          mat(k,2440) = .300_r8*rxt(k,597)*y(k,147) + .390_r8*rxt(k,598)*y(k,149) &
    2620             :                       + .390_r8*rxt(k,594)*y(k,252) + .420_r8*rxt(k,595)*y(k,253) &
    2621             :                       + .290_r8*rxt(k,596)*y(k,258) + .390_r8*rxt(k,599)*y(k,302) &
    2622   254840160 :                       + .390_r8*rxt(k,600)*y(k,304) + .390_r8*rxt(k,601)*y(k,307)
    2623   254840160 :          mat(k,2897) = rxt(k,586)*y(k,237) + .390_r8*rxt(k,594)*y(k,238)
    2624   254840160 :          mat(k,3439) = .820_r8*rxt(k,587)*y(k,237) + .420_r8*rxt(k,595)*y(k,238)
    2625   254840160 :          mat(k,3346) = .700_r8*rxt(k,588)*y(k,237) + .290_r8*rxt(k,596)*y(k,238)
    2626             :          mat(k,4069) = mat(k,4069) + rxt(k,783)*y(k,221) + rxt(k,787)*y(k,223) &
    2627   254840160 :                       + rxt(k,789)*y(k,225)
    2628   254840160 :          mat(k,2732) = rxt(k,591)*y(k,237) + .390_r8*rxt(k,599)*y(k,238)
    2629   254840160 :          mat(k,2778) = rxt(k,592)*y(k,237) + .390_r8*rxt(k,600)*y(k,238)
    2630   254840160 :          mat(k,2825) = rxt(k,593)*y(k,237) + .390_r8*rxt(k,601)*y(k,238)
    2631   254840160 :          mat(k,1289) = -(rxt(k,708)*y(k,149) + rxt(k,717)*y(k,295))
    2632   254840160 :          mat(k,3539) = -rxt(k,708)*y(k,203)
    2633   254840160 :          mat(k,4006) = -rxt(k,717)*y(k,203)
    2634   254840160 :          mat(k,1273) = .170_r8*rxt(k,602)*y(k,158)
    2635   254840160 :          mat(k,3693) = .170_r8*rxt(k,602)*y(k,4)
    2636   254840160 :          mat(k,424) = rxt(k,757)*y(k,295)
    2637   254840160 :          mat(k,3389) = .500_r8*rxt(k,694)*y(k,301)
    2638   254840160 :          mat(k,4006) = mat(k,4006) + rxt(k,757)*y(k,210)
    2639   254840160 :          mat(k,2648) = .500_r8*rxt(k,694)*y(k,253)
    2640   254840160 :          mat(k,655) = -(rxt(k,718)*y(k,295))
    2641   254840160 :          mat(k,3945) = -rxt(k,718)*y(k,204)
    2642   254840160 :          mat(k,3628) = rxt(k,684)*y(k,302)
    2643   254840160 :          mat(k,2717) = rxt(k,684)*y(k,148)
    2644   254840160 :          mat(k,1718) = -(rxt(k,727)*y(k,149) + rxt(k,736)*y(k,295))
    2645   254840160 :          mat(k,3556) = -rxt(k,727)*y(k,205)
    2646   254840160 :          mat(k,4041) = -rxt(k,736)*y(k,205)
    2647             :          mat(k,3058) = .270_r8*rxt(k,597)*y(k,238) + .440_r8*rxt(k,629)*y(k,245) &
    2648   254840160 :                       + .310_r8*rxt(k,637)*y(k,246) + .700_r8*rxt(k,761)*y(k,308)
    2649             :          mat(k,3556) = mat(k,3556) + rxt(k,759)*y(k,212) + .350_r8*rxt(k,598)*y(k,238) &
    2650   254840160 :                       + .480_r8*rxt(k,630)*y(k,245) + .410_r8*rxt(k,638)*y(k,246)
    2651   254840160 :          mat(k,3710) = rxt(k,762)*y(k,212)
    2652   254840160 :          mat(k,2626) = rxt(k,759)*y(k,149) + rxt(k,762)*y(k,158)
    2653   254840160 :          mat(k,602) = rxt(k,788)*y(k,295)
    2654             :          mat(k,2436) = .270_r8*rxt(k,597)*y(k,147) + .350_r8*rxt(k,598)*y(k,149) &
    2655             :                       + .350_r8*rxt(k,594)*y(k,252) + .200_r8*rxt(k,595)*y(k,253) &
    2656             :                       + .350_r8*rxt(k,599)*y(k,302) + .350_r8*rxt(k,600)*y(k,304) &
    2657   254840160 :                       + .350_r8*rxt(k,601)*y(k,307)
    2658             :          mat(k,2533) = .440_r8*rxt(k,629)*y(k,147) + .480_r8*rxt(k,630)*y(k,149) &
    2659             :                       + 1.800_r8*rxt(k,625)*y(k,245) + .480_r8*rxt(k,626)*y(k,252) &
    2660             :                       + .340_r8*rxt(k,627)*y(k,253) + .220_r8*rxt(k,628)*y(k,258) &
    2661             :                       + .480_r8*rxt(k,631)*y(k,302) + .480_r8*rxt(k,632)*y(k,304) &
    2662   254840160 :                       + .480_r8*rxt(k,633)*y(k,307)
    2663             :          mat(k,2375) = .310_r8*rxt(k,637)*y(k,147) + .410_r8*rxt(k,638)*y(k,149) &
    2664             :                       + .410_r8*rxt(k,634)*y(k,252) + .310_r8*rxt(k,635)*y(k,253) &
    2665             :                       + .410_r8*rxt(k,639)*y(k,302) + .410_r8*rxt(k,640)*y(k,304) &
    2666   254840160 :                       + .410_r8*rxt(k,641)*y(k,307)
    2667             :          mat(k,2870) = .350_r8*rxt(k,594)*y(k,238) + .480_r8*rxt(k,626)*y(k,245) &
    2668   254840160 :                       + .410_r8*rxt(k,634)*y(k,246)
    2669             :          mat(k,3411) = .200_r8*rxt(k,595)*y(k,238) + .340_r8*rxt(k,627)*y(k,245) &
    2670   254840160 :                       + .310_r8*rxt(k,635)*y(k,246)
    2671   254840160 :          mat(k,3317) = .220_r8*rxt(k,628)*y(k,245) + .100_r8*rxt(k,760)*y(k,308)
    2672   254840160 :          mat(k,4041) = mat(k,4041) + rxt(k,788)*y(k,226)
    2673             :          mat(k,2724) = .350_r8*rxt(k,599)*y(k,238) + .480_r8*rxt(k,631)*y(k,245) &
    2674   254840160 :                       + .410_r8*rxt(k,639)*y(k,246)
    2675             :          mat(k,2770) = .350_r8*rxt(k,600)*y(k,238) + .480_r8*rxt(k,632)*y(k,245) &
    2676   254840160 :                       + .410_r8*rxt(k,640)*y(k,246)
    2677             :          mat(k,2817) = .350_r8*rxt(k,601)*y(k,238) + .480_r8*rxt(k,633)*y(k,245) &
    2678   254840160 :                       + .410_r8*rxt(k,641)*y(k,246)
    2679   254840160 :          mat(k,799) = .700_r8*rxt(k,761)*y(k,147) + .100_r8*rxt(k,760)*y(k,258)
    2680   254840160 :          mat(k,664) = -(rxt(k,737)*y(k,295))
    2681   254840160 :          mat(k,3946) = -rxt(k,737)*y(k,206)
    2682   254840160 :          mat(k,3629) = rxt(k,685)*y(k,304)
    2683   254840160 :          mat(k,2763) = rxt(k,685)*y(k,148)
    2684   254840160 :          mat(k,778) = -(rxt(k,748)*y(k,295))
    2685   254840160 :          mat(k,3958) = -rxt(k,748)*y(k,207)
    2686   254840160 :          mat(k,1271) = .010_r8*rxt(k,602)*y(k,158)
    2687   254840160 :          mat(k,1040) = .130_r8*rxt(k,622)*y(k,158)
    2688   254840160 :          mat(k,1070) = .010_r8*rxt(k,662)*y(k,158)
    2689             :          mat(k,3679) = .010_r8*rxt(k,602)*y(k,4) + .130_r8*rxt(k,622)*y(k,7) &
    2690   254840160 :                       + .010_r8*rxt(k,662)*y(k,125)
    2691   254840160 :          mat(k,3251) = .510_r8*rxt(k,751)*y(k,307)
    2692   254840160 :          mat(k,2809) = .510_r8*rxt(k,751)*y(k,258)
    2693   254840160 :          mat(k,363) = -(rxt(k,746)*y(k,295))
    2694   254840160 :          mat(k,3905) = -rxt(k,746)*y(k,208)
    2695   254840160 :          mat(k,3223) = .510_r8*rxt(k,703)*y(k,302)
    2696   254840160 :          mat(k,2716) = .510_r8*rxt(k,703)*y(k,258)
    2697   254840160 :          mat(k,368) = -(rxt(k,747)*y(k,295))
    2698   254840160 :          mat(k,3906) = -rxt(k,747)*y(k,209)
    2699   254840160 :          mat(k,3224) = .510_r8*rxt(k,721)*y(k,304)
    2700   254840160 :          mat(k,2762) = .510_r8*rxt(k,721)*y(k,258)
    2701   254840160 :          mat(k,423) = -(rxt(k,757)*y(k,295))
    2702   254840160 :          mat(k,3914) = -rxt(k,757)*y(k,210)
    2703   254840160 :          mat(k,3620) = rxt(k,686)*y(k,307)
    2704   254840160 :          mat(k,2808) = rxt(k,686)*y(k,148)
    2705   254840160 :          mat(k,373) = -(rxt(k,758)*y(k,295))
    2706   254840160 :          mat(k,3907) = -rxt(k,758)*y(k,211)
    2707   254840160 :          mat(k,3225) = .820_r8*rxt(k,687)*y(k,299) + .820_r8*rxt(k,691)*y(k,300)
    2708   254840160 :          mat(k,948) = .820_r8*rxt(k,687)*y(k,258)
    2709   254840160 :          mat(k,1003) = .820_r8*rxt(k,691)*y(k,258)
    2710             :          mat(k,2629) = -(rxt(k,759)*y(k,149) + rxt(k,762)*y(k,158) + rxt(k,763) &
    2711   254840160 :                       *y(k,295))
    2712   254840160 :          mat(k,3592) = -rxt(k,759)*y(k,212)
    2713   254840160 :          mat(k,3746) = -rxt(k,762)*y(k,212)
    2714   254840160 :          mat(k,4078) = -rxt(k,763)*y(k,212)
    2715   254840160 :          mat(k,1076) = .660_r8*rxt(k,662)*y(k,158)
    2716             :          mat(k,3096) = .090_r8*rxt(k,597)*y(k,238) + .200_r8*rxt(k,637)*y(k,246) &
    2717             :                       + .430_r8*rxt(k,649)*y(k,281) + .770_r8*rxt(k,657)*y(k,282) &
    2718   254840160 :                       + .700_r8*rxt(k,766)*y(k,309)
    2719             :          mat(k,3592) = mat(k,3592) + .500_r8*rxt(k,764)*y(k,213) + .120_r8*rxt(k,598) &
    2720             :                       *y(k,238) + .270_r8*rxt(k,638)*y(k,246) + .460_r8*rxt(k,650) &
    2721   254840160 :                       *y(k,281) + rxt(k,658)*y(k,282)
    2722   254840160 :          mat(k,3746) = mat(k,3746) + .660_r8*rxt(k,662)*y(k,125) + rxt(k,767)*y(k,213)
    2723   254840160 :          mat(k,2601) = .500_r8*rxt(k,764)*y(k,149) + rxt(k,767)*y(k,158)
    2724             :          mat(k,2442) = .090_r8*rxt(k,597)*y(k,147) + .120_r8*rxt(k,598)*y(k,149) &
    2725             :                       + .120_r8*rxt(k,594)*y(k,252) + .140_r8*rxt(k,595)*y(k,253) &
    2726             :                       + .060_r8*rxt(k,596)*y(k,258) + .120_r8*rxt(k,599)*y(k,302) &
    2727   254840160 :                       + .120_r8*rxt(k,600)*y(k,304) + .120_r8*rxt(k,601)*y(k,307)
    2728             :          mat(k,2381) = .200_r8*rxt(k,637)*y(k,147) + .270_r8*rxt(k,638)*y(k,149) &
    2729             :                       + .270_r8*rxt(k,634)*y(k,252) + .370_r8*rxt(k,635)*y(k,253) &
    2730             :                       + .270_r8*rxt(k,639)*y(k,302) + .270_r8*rxt(k,640)*y(k,304) &
    2731   254840160 :                       + .270_r8*rxt(k,641)*y(k,307)
    2732             :          mat(k,2906) = .120_r8*rxt(k,594)*y(k,238) + .270_r8*rxt(k,634)*y(k,246) &
    2733   254840160 :                       + .460_r8*rxt(k,645)*y(k,281) + rxt(k,654)*y(k,282)
    2734             :          mat(k,3448) = .140_r8*rxt(k,595)*y(k,238) + .370_r8*rxt(k,635)*y(k,246) &
    2735   254840160 :                       + .310_r8*rxt(k,646)*y(k,281) + rxt(k,655)*y(k,282)
    2736             :          mat(k,3355) = .060_r8*rxt(k,596)*y(k,238) + .230_r8*rxt(k,647)*y(k,281) &
    2737   254840160 :                       + .100_r8*rxt(k,656)*y(k,282) + .100_r8*rxt(k,765)*y(k,309)
    2738             :          mat(k,2507) = .430_r8*rxt(k,649)*y(k,147) + .460_r8*rxt(k,650)*y(k,149) &
    2739             :                       + .460_r8*rxt(k,645)*y(k,252) + .310_r8*rxt(k,646)*y(k,253) &
    2740             :                       + .230_r8*rxt(k,647)*y(k,258) + 1.720_r8*rxt(k,648)*y(k,281) &
    2741             :                       + .460_r8*rxt(k,651)*y(k,302) + .460_r8*rxt(k,652)*y(k,304) &
    2742   254840160 :                       + .460_r8*rxt(k,653)*y(k,307)
    2743             :          mat(k,2341) = .770_r8*rxt(k,657)*y(k,147) + rxt(k,658)*y(k,149) + rxt(k,654) &
    2744             :                       *y(k,252) + rxt(k,655)*y(k,253) + .100_r8*rxt(k,656)*y(k,258) &
    2745             :                       + rxt(k,659)*y(k,302) + rxt(k,660)*y(k,304) + rxt(k,661) &
    2746   254840160 :                       *y(k,307)
    2747             :          mat(k,2741) = .120_r8*rxt(k,599)*y(k,238) + .270_r8*rxt(k,639)*y(k,246) &
    2748   254840160 :                       + .460_r8*rxt(k,651)*y(k,281) + rxt(k,659)*y(k,282)
    2749             :          mat(k,2787) = .120_r8*rxt(k,600)*y(k,238) + .270_r8*rxt(k,640)*y(k,246) &
    2750   254840160 :                       + .460_r8*rxt(k,652)*y(k,281) + rxt(k,660)*y(k,282)
    2751             :          mat(k,2834) = .120_r8*rxt(k,601)*y(k,238) + .270_r8*rxt(k,641)*y(k,246) &
    2752   254840160 :                       + .460_r8*rxt(k,653)*y(k,281) + rxt(k,661)*y(k,282)
    2753   263009123 :          mat(k,964) = .700_r8*rxt(k,766)*y(k,147) + .100_r8*rxt(k,765)*y(k,258)
    2754             :       end do
    2755     8168963 :       end subroutine nlnmat10
    2756     8168963 :       subroutine nlnmat11( avec_len, mat, y, rxt )
    2757             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    2758             :       implicit none
    2759             : !----------------------------------------------
    2760             : ! ... dummy arguments
    2761             : !----------------------------------------------
    2762             :       integer, intent(in) :: avec_len
    2763             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    2764             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    2765             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    2766             : !----------------------------------------------
    2767             : ! ... local variables
    2768             : !----------------------------------------------
    2769             :       integer :: k
    2770             : !----------------------------------------------
    2771             : ! ... complete matrix entries implicit species
    2772             : !----------------------------------------------
    2773   263009123 :       do k = 1,avec_len
    2774   254840160 :          mat(k,2600) = -(rxt(k,764)*y(k,149) + rxt(k,767)*y(k,158) + rxt(k,768) &
    2775   254840160 :                       *y(k,295))
    2776   254840160 :          mat(k,3591) = -rxt(k,764)*y(k,213)
    2777   254840160 :          mat(k,3745) = -rxt(k,767)*y(k,213)
    2778   254840160 :          mat(k,4077) = -rxt(k,768)*y(k,213)
    2779   254840160 :          mat(k,1046) = .870_r8*rxt(k,622)*y(k,158)
    2780   254840160 :          mat(k,832) = rxt(k,682)*y(k,158)
    2781             :          mat(k,3095) = .930_r8*rxt(k,609)*y(k,240) + .700_r8*rxt(k,617)*y(k,241) &
    2782   254840160 :                       + .890_r8*rxt(k,669)*y(k,290) + .710_r8*rxt(k,677)*y(k,291)
    2783             :          mat(k,3591) = mat(k,3591) + rxt(k,610)*y(k,240) + rxt(k,618)*y(k,241) &
    2784   254840160 :                       + .950_r8*rxt(k,670)*y(k,290) + rxt(k,678)*y(k,291)
    2785   254840160 :          mat(k,3745) = mat(k,3745) + .870_r8*rxt(k,622)*y(k,7) + rxt(k,682)*y(k,135)
    2786             :          mat(k,2214) = .930_r8*rxt(k,609)*y(k,147) + rxt(k,610)*y(k,149) &
    2787             :                       + 3.280_r8*rxt(k,605)*y(k,240) + rxt(k,606)*y(k,252) &
    2788             :                       + .820_r8*rxt(k,607)*y(k,253) + .500_r8*rxt(k,608)*y(k,258) &
    2789             :                       + rxt(k,611)*y(k,302) + rxt(k,612)*y(k,304) + rxt(k,613) &
    2790   254840160 :                       *y(k,307)
    2791             :          mat(k,2409) = .700_r8*rxt(k,617)*y(k,147) + rxt(k,618)*y(k,149) + rxt(k,614) &
    2792             :                       *y(k,252) + rxt(k,615)*y(k,253) + .100_r8*rxt(k,616)*y(k,258) &
    2793             :                       + rxt(k,619)*y(k,302) + rxt(k,620)*y(k,304) + rxt(k,621) &
    2794   254840160 :                       *y(k,307)
    2795             :          mat(k,2905) = rxt(k,606)*y(k,240) + rxt(k,614)*y(k,241) + .950_r8*rxt(k,665) &
    2796   254840160 :                       *y(k,290) + rxt(k,674)*y(k,291)
    2797             :          mat(k,3447) = .820_r8*rxt(k,607)*y(k,240) + rxt(k,615)*y(k,241) &
    2798   254840160 :                       + .770_r8*rxt(k,666)*y(k,290) + rxt(k,675)*y(k,291)
    2799             :          mat(k,3354) = .500_r8*rxt(k,608)*y(k,240) + .100_r8*rxt(k,616)*y(k,241) &
    2800   254840160 :                       + .480_r8*rxt(k,667)*y(k,290) + .100_r8*rxt(k,676)*y(k,291)
    2801             :          mat(k,2571) = .890_r8*rxt(k,669)*y(k,147) + .950_r8*rxt(k,670)*y(k,149) &
    2802             :                       + .950_r8*rxt(k,665)*y(k,252) + .770_r8*rxt(k,666)*y(k,253) &
    2803             :                       + .480_r8*rxt(k,667)*y(k,258) + 3.080_r8*rxt(k,668)*y(k,290) &
    2804             :                       + .950_r8*rxt(k,671)*y(k,302) + .950_r8*rxt(k,672)*y(k,304) &
    2805   254840160 :                       + .950_r8*rxt(k,673)*y(k,307)
    2806             :          mat(k,2472) = .710_r8*rxt(k,677)*y(k,147) + rxt(k,678)*y(k,149) + rxt(k,674) &
    2807             :                       *y(k,252) + rxt(k,675)*y(k,253) + .100_r8*rxt(k,676)*y(k,258) &
    2808             :                       + rxt(k,679)*y(k,302) + rxt(k,680)*y(k,304) + rxt(k,681) &
    2809   254840160 :                       *y(k,307)
    2810             :          mat(k,2740) = rxt(k,611)*y(k,240) + rxt(k,619)*y(k,241) + .950_r8*rxt(k,671) &
    2811   254840160 :                       *y(k,290) + rxt(k,679)*y(k,291)
    2812             :          mat(k,2786) = rxt(k,612)*y(k,240) + rxt(k,620)*y(k,241) + .950_r8*rxt(k,672) &
    2813   254840160 :                       *y(k,290) + rxt(k,680)*y(k,291)
    2814             :          mat(k,2833) = rxt(k,613)*y(k,240) + rxt(k,621)*y(k,241) + .950_r8*rxt(k,673) &
    2815   254840160 :                       *y(k,290) + rxt(k,681)*y(k,291)
    2816   254840160 :          mat(k,1228) = -(rxt(k,769)*y(k,295))
    2817   254840160 :          mat(k,4001) = -rxt(k,769)*y(k,214)
    2818             :          mat(k,3030) = .070_r8*rxt(k,589)*y(k,237) + .070_r8*rxt(k,629)*y(k,245) &
    2819             :                       + .070_r8*rxt(k,649)*y(k,281) + .070_r8*rxt(k,669)*y(k,290) &
    2820             :                       + .300_r8*rxt(k,773)*y(k,310) + .300_r8*rxt(k,777)*y(k,311) &
    2821   254840160 :                       + .300_r8*rxt(k,781)*y(k,312) + .300_r8*rxt(k,785)*y(k,313)
    2822   254840160 :          mat(k,2290) = .070_r8*rxt(k,589)*y(k,147)
    2823   254840160 :          mat(k,2528) = .070_r8*rxt(k,629)*y(k,147)
    2824   254840160 :          mat(k,2496) = .070_r8*rxt(k,649)*y(k,147)
    2825   254840160 :          mat(k,2559) = .070_r8*rxt(k,669)*y(k,147)
    2826   254840160 :          mat(k,1219) = .300_r8*rxt(k,773)*y(k,147)
    2827   254840160 :          mat(k,1017) = .300_r8*rxt(k,777)*y(k,147)
    2828   254840160 :          mat(k,807) = .300_r8*rxt(k,781)*y(k,147)
    2829   254840160 :          mat(k,815) = .300_r8*rxt(k,785)*y(k,147)
    2830   254840160 :          mat(k,969) = -(rxt(k,770)*y(k,295))
    2831   254840160 :          mat(k,3979) = -rxt(k,770)*y(k,215)
    2832             :          mat(k,3014) = .010_r8*rxt(k,597)*y(k,238) + .300_r8*rxt(k,688)*y(k,299) &
    2833   254840160 :                       + .300_r8*rxt(k,692)*y(k,300) + .300_r8*rxt(k,761)*y(k,308)
    2834   254840160 :          mat(k,2428) = .010_r8*rxt(k,597)*y(k,147)
    2835             :          mat(k,3269) = .900_r8*rxt(k,772)*y(k,310) + .900_r8*rxt(k,776)*y(k,311) &
    2836   254840160 :                       + .900_r8*rxt(k,780)*y(k,312) + .900_r8*rxt(k,784)*y(k,313)
    2837   254840160 :          mat(k,952) = .300_r8*rxt(k,688)*y(k,147)
    2838   254840160 :          mat(k,1005) = .300_r8*rxt(k,692)*y(k,147)
    2839   254840160 :          mat(k,798) = .300_r8*rxt(k,761)*y(k,147)
    2840   254840160 :          mat(k,1216) = .900_r8*rxt(k,772)*y(k,258)
    2841   254840160 :          mat(k,1014) = .900_r8*rxt(k,776)*y(k,258)
    2842   254840160 :          mat(k,806) = .900_r8*rxt(k,780)*y(k,258)
    2843   254840160 :          mat(k,814) = .900_r8*rxt(k,784)*y(k,258)
    2844   254840160 :          mat(k,1106) = -(rxt(k,771)*y(k,295))
    2845   254840160 :          mat(k,3989) = -rxt(k,771)*y(k,216)
    2846   254840160 :          mat(k,1093) = .510_r8*rxt(k,642)*y(k,158)
    2847   254840160 :          mat(k,3021) = .020_r8*rxt(k,629)*y(k,245) + .240_r8*rxt(k,637)*y(k,246)
    2848   254840160 :          mat(k,3534) = .020_r8*rxt(k,630)*y(k,245) + .320_r8*rxt(k,638)*y(k,246)
    2849   254840160 :          mat(k,3688) = .510_r8*rxt(k,642)*y(k,17)
    2850   254840160 :          mat(k,2429) = .110_r8*rxt(k,595)*y(k,253)
    2851             :          mat(k,2526) = .020_r8*rxt(k,629)*y(k,147) + .020_r8*rxt(k,630)*y(k,149) &
    2852             :                       + .080_r8*rxt(k,625)*y(k,245) + .020_r8*rxt(k,626)*y(k,252) &
    2853             :                       + .020_r8*rxt(k,627)*y(k,253) + .020_r8*rxt(k,628)*y(k,258) &
    2854             :                       + .020_r8*rxt(k,631)*y(k,302) + .020_r8*rxt(k,632)*y(k,304) &
    2855   254840160 :                       + .020_r8*rxt(k,633)*y(k,307)
    2856             :          mat(k,2369) = .240_r8*rxt(k,637)*y(k,147) + .320_r8*rxt(k,638)*y(k,149) &
    2857             :                       + .320_r8*rxt(k,634)*y(k,252) + .320_r8*rxt(k,635)*y(k,253) &
    2858             :                       + .030_r8*rxt(k,636)*y(k,258) + .320_r8*rxt(k,639)*y(k,302) &
    2859   254840160 :                       + .320_r8*rxt(k,640)*y(k,304) + .320_r8*rxt(k,641)*y(k,307)
    2860   254840160 :          mat(k,2858) = .020_r8*rxt(k,626)*y(k,245) + .320_r8*rxt(k,634)*y(k,246)
    2861             :          mat(k,3387) = .110_r8*rxt(k,595)*y(k,238) + .020_r8*rxt(k,627)*y(k,245) &
    2862   254840160 :                       + .320_r8*rxt(k,635)*y(k,246)
    2863   254840160 :          mat(k,3276) = .020_r8*rxt(k,628)*y(k,245) + .030_r8*rxt(k,636)*y(k,246)
    2864   254840160 :          mat(k,2718) = .020_r8*rxt(k,631)*y(k,245) + .320_r8*rxt(k,639)*y(k,246)
    2865   254840160 :          mat(k,2764) = .020_r8*rxt(k,632)*y(k,245) + .320_r8*rxt(k,640)*y(k,246)
    2866   254840160 :          mat(k,2810) = .020_r8*rxt(k,633)*y(k,245) + .320_r8*rxt(k,641)*y(k,246)
    2867   254840160 :          mat(k,986) = -(rxt(k,775)*y(k,295))
    2868   254840160 :          mat(k,3981) = -rxt(k,775)*y(k,217)
    2869   254840160 :          mat(k,3016) = .700_r8*rxt(k,773)*y(k,310)
    2870   254840160 :          mat(k,2525) = .450_r8*rxt(k,628)*y(k,258)
    2871   254840160 :          mat(k,3270) = .450_r8*rxt(k,628)*y(k,245) + .100_r8*rxt(k,772)*y(k,310)
    2872   254840160 :          mat(k,1217) = .700_r8*rxt(k,773)*y(k,147) + .100_r8*rxt(k,772)*y(k,258)
    2873   254840160 :          mat(k,682) = -(rxt(k,774)*y(k,295))
    2874   254840160 :          mat(k,3948) = -rxt(k,774)*y(k,218)
    2875   254840160 :          mat(k,3242) = .320_r8*rxt(k,647)*y(k,281) + .360_r8*rxt(k,667)*y(k,290)
    2876   254840160 :          mat(k,2491) = .320_r8*rxt(k,647)*y(k,258)
    2877   254840160 :          mat(k,2554) = .360_r8*rxt(k,667)*y(k,258)
    2878   254840160 :          mat(k,1143) = -(rxt(k,779)*y(k,295))
    2879   254840160 :          mat(k,3993) = -rxt(k,779)*y(k,219)
    2880   254840160 :          mat(k,3025) = .700_r8*rxt(k,777)*y(k,311)
    2881   254840160 :          mat(k,2289) = .300_r8*rxt(k,588)*y(k,258)
    2882   254840160 :          mat(k,2527) = .080_r8*rxt(k,628)*y(k,258)
    2883             :          mat(k,3279) = .300_r8*rxt(k,588)*y(k,237) + .080_r8*rxt(k,628)*y(k,245) &
    2884   254840160 :                       + .100_r8*rxt(k,776)*y(k,311)
    2885   254840160 :          mat(k,1016) = .700_r8*rxt(k,777)*y(k,147) + .100_r8*rxt(k,776)*y(k,258)
    2886   254840160 :          mat(k,783) = -(rxt(k,778)*y(k,295))
    2887   254840160 :          mat(k,3959) = -rxt(k,778)*y(k,220)
    2888   254840160 :          mat(k,3252) = .180_r8*rxt(k,647)*y(k,281) + .160_r8*rxt(k,667)*y(k,290)
    2889   254840160 :          mat(k,2492) = .180_r8*rxt(k,647)*y(k,258)
    2890   254840160 :          mat(k,2555) = .160_r8*rxt(k,667)*y(k,258)
    2891   254840160 :          mat(k,1557) = -(rxt(k,783)*y(k,295))
    2892   254840160 :          mat(k,4030) = -rxt(k,783)*y(k,221)
    2893             :          mat(k,3050) = .100_r8*rxt(k,597)*y(k,238) + .420_r8*rxt(k,629)*y(k,245) &
    2894             :                       + .020_r8*rxt(k,637)*y(k,246) + .300_r8*rxt(k,696)*y(k,301) &
    2895   254840160 :                       + .090_r8*rxt(k,741)*y(k,306) + .700_r8*rxt(k,781)*y(k,312)
    2896   254840160 :          mat(k,3549) = .450_r8*rxt(k,630)*y(k,245)
    2897   254840160 :          mat(k,1229) = rxt(k,769)*y(k,295)
    2898   254840160 :          mat(k,970) = rxt(k,770)*y(k,295)
    2899   254840160 :          mat(k,2293) = .180_r8*rxt(k,585)*y(k,237) + .090_r8*rxt(k,587)*y(k,253)
    2900   254840160 :          mat(k,2432) = .100_r8*rxt(k,597)*y(k,147)
    2901             :          mat(k,2531) = .420_r8*rxt(k,629)*y(k,147) + .450_r8*rxt(k,630)*y(k,149) &
    2902             :                       + 1.840_r8*rxt(k,625)*y(k,245) + .450_r8*rxt(k,626)*y(k,252) &
    2903             :                       + .560_r8*rxt(k,627)*y(k,253) + .230_r8*rxt(k,628)*y(k,258) &
    2904             :                       + .450_r8*rxt(k,631)*y(k,302) + .450_r8*rxt(k,632)*y(k,304) &
    2905   254840160 :                       + .450_r8*rxt(k,633)*y(k,307)
    2906   254840160 :          mat(k,2371) = .020_r8*rxt(k,637)*y(k,147)
    2907   254840160 :          mat(k,2864) = .450_r8*rxt(k,626)*y(k,245)
    2908   254840160 :          mat(k,3403) = .090_r8*rxt(k,587)*y(k,237) + .560_r8*rxt(k,627)*y(k,245)
    2909   254840160 :          mat(k,3307) = .230_r8*rxt(k,628)*y(k,245) + .100_r8*rxt(k,780)*y(k,312)
    2910   254840160 :          mat(k,4030) = mat(k,4030) + rxt(k,769)*y(k,214) + rxt(k,770)*y(k,215)
    2911   254840160 :          mat(k,2650) = .300_r8*rxt(k,696)*y(k,147)
    2912   254840160 :          mat(k,2720) = .450_r8*rxt(k,631)*y(k,245)
    2913   254840160 :          mat(k,2766) = .450_r8*rxt(k,632)*y(k,245)
    2914   254840160 :          mat(k,2671) = .090_r8*rxt(k,741)*y(k,147)
    2915   254840160 :          mat(k,2813) = .450_r8*rxt(k,633)*y(k,245)
    2916   254840160 :          mat(k,808) = .700_r8*rxt(k,781)*y(k,147) + .100_r8*rxt(k,780)*y(k,258)
    2917   254840160 :          mat(k,1689) = -(rxt(k,782)*y(k,295))
    2918   254840160 :          mat(k,4038) = -rxt(k,782)*y(k,222)
    2919             :          mat(k,3055) = .020_r8*rxt(k,597)*y(k,238) + .040_r8*rxt(k,637)*y(k,246) &
    2920             :                       + .330_r8*rxt(k,649)*y(k,281) + .060_r8*rxt(k,657)*y(k,282) &
    2921             :                       + .040_r8*rxt(k,669)*y(k,290) + .100_r8*rxt(k,677)*y(k,291) &
    2922   254840160 :                       + .120_r8*rxt(k,766)*y(k,309)
    2923             :          mat(k,3553) = .500_r8*rxt(k,764)*y(k,213) + .350_r8*rxt(k,650)*y(k,281) &
    2924   254840160 :                       + .050_r8*rxt(k,670)*y(k,290)
    2925   254840160 :          mat(k,2595) = .500_r8*rxt(k,764)*y(k,149)
    2926   254840160 :          mat(k,2434) = .020_r8*rxt(k,597)*y(k,147)
    2927   254840160 :          mat(k,2373) = .040_r8*rxt(k,637)*y(k,147)
    2928   254840160 :          mat(k,2867) = .350_r8*rxt(k,645)*y(k,281) + .050_r8*rxt(k,665)*y(k,290)
    2929   254840160 :          mat(k,3408) = .420_r8*rxt(k,646)*y(k,281) + .140_r8*rxt(k,666)*y(k,290)
    2930   254840160 :          mat(k,3314) = .180_r8*rxt(k,647)*y(k,281)
    2931             :          mat(k,2501) = .330_r8*rxt(k,649)*y(k,147) + .350_r8*rxt(k,650)*y(k,149) &
    2932             :                       + .350_r8*rxt(k,645)*y(k,252) + .420_r8*rxt(k,646)*y(k,253) &
    2933             :                       + .180_r8*rxt(k,647)*y(k,258) + 1.440_r8*rxt(k,648)*y(k,281) &
    2934             :                       + .350_r8*rxt(k,651)*y(k,302) + .350_r8*rxt(k,652)*y(k,304) &
    2935   254840160 :                       + .350_r8*rxt(k,653)*y(k,307)
    2936   254840160 :          mat(k,2335) = .060_r8*rxt(k,657)*y(k,147)
    2937             :          mat(k,2564) = .040_r8*rxt(k,669)*y(k,147) + .050_r8*rxt(k,670)*y(k,149) &
    2938             :                       + .050_r8*rxt(k,665)*y(k,252) + .140_r8*rxt(k,666)*y(k,253) &
    2939             :                       + .380_r8*rxt(k,668)*y(k,290) + .050_r8*rxt(k,671)*y(k,302) &
    2940   254840160 :                       + .050_r8*rxt(k,672)*y(k,304) + .050_r8*rxt(k,673)*y(k,307)
    2941   254840160 :          mat(k,2465) = .100_r8*rxt(k,677)*y(k,147)
    2942   254840160 :          mat(k,2722) = .350_r8*rxt(k,651)*y(k,281) + .050_r8*rxt(k,671)*y(k,290)
    2943   254840160 :          mat(k,2768) = .350_r8*rxt(k,652)*y(k,281) + .050_r8*rxt(k,672)*y(k,290)
    2944   254840160 :          mat(k,2815) = .350_r8*rxt(k,653)*y(k,281) + .050_r8*rxt(k,673)*y(k,290)
    2945   254840160 :          mat(k,961) = .120_r8*rxt(k,766)*y(k,147)
    2946   254840160 :          mat(k,1536) = -(rxt(k,787)*y(k,295))
    2947   254840160 :          mat(k,4028) = -rxt(k,787)*y(k,223)
    2948             :          mat(k,3048) = .050_r8*rxt(k,597)*y(k,238) + .050_r8*rxt(k,629)*y(k,245) &
    2949             :                       + .060_r8*rxt(k,637)*y(k,246) + .170_r8*rxt(k,712)*y(k,303) &
    2950   254840160 :                       + .300_r8*rxt(k,731)*y(k,305) + .700_r8*rxt(k,785)*y(k,313)
    2951   254840160 :          mat(k,3548) = .050_r8*rxt(k,630)*y(k,245)
    2952   254840160 :          mat(k,1144) = rxt(k,779)*y(k,295)
    2953   254840160 :          mat(k,2292) = .540_r8*rxt(k,585)*y(k,237) + .090_r8*rxt(k,587)*y(k,253)
    2954   254840160 :          mat(k,2431) = .050_r8*rxt(k,597)*y(k,147)
    2955             :          mat(k,2530) = .050_r8*rxt(k,629)*y(k,147) + .050_r8*rxt(k,630)*y(k,149) &
    2956             :                       + .280_r8*rxt(k,625)*y(k,245) + .050_r8*rxt(k,626)*y(k,252) &
    2957             :                       + .080_r8*rxt(k,627)*y(k,253) + .050_r8*rxt(k,631)*y(k,302) &
    2958   254840160 :                       + .050_r8*rxt(k,632)*y(k,304) + .050_r8*rxt(k,633)*y(k,307)
    2959   254840160 :          mat(k,2370) = .060_r8*rxt(k,637)*y(k,147)
    2960   254840160 :          mat(k,2862) = .050_r8*rxt(k,626)*y(k,245)
    2961   254840160 :          mat(k,3401) = .090_r8*rxt(k,587)*y(k,237) + .080_r8*rxt(k,627)*y(k,245)
    2962   254840160 :          mat(k,3305) = .100_r8*rxt(k,784)*y(k,313)
    2963   254840160 :          mat(k,4028) = mat(k,4028) + rxt(k,779)*y(k,219)
    2964   254840160 :          mat(k,2719) = .050_r8*rxt(k,631)*y(k,245)
    2965   254840160 :          mat(k,2693) = .170_r8*rxt(k,712)*y(k,147)
    2966   254840160 :          mat(k,2765) = .050_r8*rxt(k,632)*y(k,245)
    2967   254840160 :          mat(k,2231) = .300_r8*rxt(k,731)*y(k,147)
    2968   254840160 :          mat(k,2812) = .050_r8*rxt(k,633)*y(k,245)
    2969   254840160 :          mat(k,816) = .700_r8*rxt(k,785)*y(k,147) + .100_r8*rxt(k,784)*y(k,258)
    2970   254840160 :          mat(k,1702) = -(rxt(k,786)*y(k,295))
    2971   254840160 :          mat(k,4039) = -rxt(k,786)*y(k,224)
    2972             :          mat(k,3056) = .050_r8*rxt(k,597)*y(k,238) + .130_r8*rxt(k,637)*y(k,246) &
    2973             :                       + .170_r8*rxt(k,649)*y(k,281) + .170_r8*rxt(k,657)*y(k,282) &
    2974   254840160 :                       + .190_r8*rxt(k,677)*y(k,291) + .180_r8*rxt(k,766)*y(k,309)
    2975   254840160 :          mat(k,3554) = .190_r8*rxt(k,650)*y(k,281)
    2976   254840160 :          mat(k,2435) = .050_r8*rxt(k,597)*y(k,147)
    2977   254840160 :          mat(k,2374) = .130_r8*rxt(k,637)*y(k,147)
    2978   254840160 :          mat(k,2868) = .190_r8*rxt(k,645)*y(k,281)
    2979   254840160 :          mat(k,3409) = .270_r8*rxt(k,646)*y(k,281) + .090_r8*rxt(k,666)*y(k,290)
    2980   254840160 :          mat(k,3315) = .090_r8*rxt(k,647)*y(k,281)
    2981             :          mat(k,2502) = .170_r8*rxt(k,649)*y(k,147) + .190_r8*rxt(k,650)*y(k,149) &
    2982             :                       + .190_r8*rxt(k,645)*y(k,252) + .270_r8*rxt(k,646)*y(k,253) &
    2983             :                       + .090_r8*rxt(k,647)*y(k,258) + .840_r8*rxt(k,648)*y(k,281) &
    2984             :                       + .190_r8*rxt(k,651)*y(k,302) + .190_r8*rxt(k,652)*y(k,304) &
    2985   254840160 :                       + .190_r8*rxt(k,653)*y(k,307)
    2986   254840160 :          mat(k,2336) = .170_r8*rxt(k,657)*y(k,147)
    2987   254840160 :          mat(k,2565) = .090_r8*rxt(k,666)*y(k,253) + .540_r8*rxt(k,668)*y(k,290)
    2988   254840160 :          mat(k,2466) = .190_r8*rxt(k,677)*y(k,147)
    2989   254840160 :          mat(k,2723) = .190_r8*rxt(k,651)*y(k,281)
    2990   254840160 :          mat(k,2769) = .190_r8*rxt(k,652)*y(k,281)
    2991   254840160 :          mat(k,2816) = .190_r8*rxt(k,653)*y(k,281)
    2992   263009123 :          mat(k,962) = .180_r8*rxt(k,766)*y(k,147)
    2993             :       end do
    2994     8168963 :       end subroutine nlnmat11
    2995     8168963 :       subroutine nlnmat12( avec_len, mat, y, rxt )
    2996             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    2997             :       implicit none
    2998             : !----------------------------------------------
    2999             : ! ... dummy arguments
    3000             : !----------------------------------------------
    3001             :       integer, intent(in) :: avec_len
    3002             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    3003             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    3004             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    3005             : !----------------------------------------------
    3006             : ! ... local variables
    3007             : !----------------------------------------------
    3008             :       integer :: k
    3009             : !----------------------------------------------
    3010             : ! ... complete matrix entries implicit species
    3011             : !----------------------------------------------
    3012   263009123 :       do k = 1,avec_len
    3013   254840160 :          mat(k,689) = -(rxt(k,789)*y(k,295))
    3014   254840160 :          mat(k,3949) = -rxt(k,789)*y(k,225)
    3015   254840160 :          mat(k,374) = rxt(k,758)*y(k,295)
    3016   254840160 :          mat(k,2427) = .400_r8*rxt(k,596)*y(k,258)
    3017   254840160 :          mat(k,2368) = .290_r8*rxt(k,636)*y(k,258)
    3018             :          mat(k,3243) = .400_r8*rxt(k,596)*y(k,238) + .290_r8*rxt(k,636)*y(k,246) &
    3019   254840160 :                       + rxt(k,695)*y(k,301) + .620_r8*rxt(k,711)*y(k,303)
    3020   254840160 :          mat(k,3949) = mat(k,3949) + rxt(k,758)*y(k,211)
    3021   254840160 :          mat(k,2647) = rxt(k,695)*y(k,258)
    3022   254840160 :          mat(k,2692) = .620_r8*rxt(k,711)*y(k,258)
    3023   254840160 :          mat(k,601) = -(rxt(k,788)*y(k,295))
    3024   254840160 :          mat(k,3939) = -rxt(k,788)*y(k,226)
    3025   254840160 :          mat(k,2993) = .700_r8*rxt(k,688)*y(k,299)
    3026             :          mat(k,3241) = .180_r8*rxt(k,687)*y(k,299) + .850_r8*rxt(k,730)*y(k,305) &
    3027   254840160 :                       + .470_r8*rxt(k,740)*y(k,306) + .900_r8*rxt(k,760)*y(k,308)
    3028   254840160 :          mat(k,949) = .700_r8*rxt(k,688)*y(k,147) + .180_r8*rxt(k,687)*y(k,258)
    3029   254840160 :          mat(k,2230) = .850_r8*rxt(k,730)*y(k,258)
    3030   254840160 :          mat(k,2670) = .470_r8*rxt(k,740)*y(k,258)
    3031   254840160 :          mat(k,796) = .900_r8*rxt(k,760)*y(k,258)
    3032   254840160 :          mat(k,741) = -(rxt(k,573)*y(k,295))
    3033   254840160 :          mat(k,3954) = -rxt(k,573)*y(k,227)
    3034   254840160 :          mat(k,3248) = rxt(k,571)*y(k,314)
    3035   254840160 :          mat(k,871) = rxt(k,571)*y(k,258)
    3036   254840160 :          mat(k,211) = -(rxt(k,574)*y(k,295))
    3037   254840160 :          mat(k,3880) = -rxt(k,574)*y(k,228)
    3038   254840160 :          mat(k,229) = -(rxt(k,576)*y(k,295))
    3039   254840160 :          mat(k,3883) = -rxt(k,576)*y(k,229)
    3040   254840160 :          mat(k,842) = -(rxt(k,579)*y(k,295))
    3041   254840160 :          mat(k,3965) = -rxt(k,579)*y(k,230)
    3042   254840160 :          mat(k,3257) = rxt(k,577)*y(k,316)
    3043   254840160 :          mat(k,893) = rxt(k,577)*y(k,258)
    3044   254840160 :          mat(k,237) = -(rxt(k,582)*y(k,295))
    3045   254840160 :          mat(k,3884) = -rxt(k,582)*y(k,231)
    3046   254840160 :          mat(k,230) = .150_r8*rxt(k,576)*y(k,295)
    3047   254840160 :          mat(k,3884) = mat(k,3884) + .150_r8*rxt(k,576)*y(k,229)
    3048   254840160 :          mat(k,429) = -(rxt(k,583)*y(k,295))
    3049   254840160 :          mat(k,3915) = -rxt(k,583)*y(k,232)
    3050   254840160 :          mat(k,3229) = rxt(k,580)*y(k,318)
    3051   254840160 :          mat(k,535) = rxt(k,580)*y(k,258)
    3052             :          mat(k,550) = -(rxt(k,541)*y(k,258) + rxt(k,542)*y(k,147) + rxt(k,570) &
    3053   254840160 :                       *y(k,148))
    3054   254840160 :          mat(k,3239) = -rxt(k,541)*y(k,235)
    3055   254840160 :          mat(k,2990) = -rxt(k,542)*y(k,235)
    3056   254840160 :          mat(k,3625) = -rxt(k,570)*y(k,235)
    3057   254840160 :          mat(k,246) = rxt(k,547)*y(k,295)
    3058   254840160 :          mat(k,3933) = rxt(k,547)*y(k,23)
    3059   254840160 :          mat(k,1182) = -(rxt(k,409)*y(k,258) + (rxt(k,410) + rxt(k,411)) * y(k,147))
    3060   254840160 :          mat(k,3283) = -rxt(k,409)*y(k,236)
    3061   254840160 :          mat(k,3027) = -(rxt(k,410) + rxt(k,411)) * y(k,236)
    3062   254840160 :          mat(k,720) = rxt(k,412)*y(k,295)
    3063   254840160 :          mat(k,205) = rxt(k,413)*y(k,295)
    3064   254840160 :          mat(k,3997) = rxt(k,412)*y(k,2) + rxt(k,413)*y(k,15)
    3065             :          mat(k,2296) = -(4._r8*rxt(k,585)*y(k,237) + rxt(k,586)*y(k,252) + rxt(k,587) &
    3066             :                       *y(k,253) + rxt(k,588)*y(k,258) + rxt(k,589)*y(k,147) + rxt(k,590) &
    3067             :                       *y(k,149) + rxt(k,591)*y(k,302) + rxt(k,592)*y(k,304) + rxt(k,593) &
    3068   254840160 :                       *y(k,307))
    3069   254840160 :          mat(k,2894) = -rxt(k,586)*y(k,237)
    3070   254840160 :          mat(k,3436) = -rxt(k,587)*y(k,237)
    3071   254840160 :          mat(k,3343) = -rxt(k,588)*y(k,237)
    3072   254840160 :          mat(k,3084) = -rxt(k,589)*y(k,237)
    3073   254840160 :          mat(k,3580) = -rxt(k,590)*y(k,237)
    3074   254840160 :          mat(k,2729) = -rxt(k,591)*y(k,237)
    3075   254840160 :          mat(k,2775) = -rxt(k,592)*y(k,237)
    3076   254840160 :          mat(k,2822) = -rxt(k,593)*y(k,237)
    3077   254840160 :          mat(k,1277) = rxt(k,584)*y(k,149)
    3078   254840160 :          mat(k,3580) = mat(k,3580) + rxt(k,584)*y(k,4)
    3079             :          mat(k,2441) = -(rxt(k,594)*y(k,252) + rxt(k,595)*y(k,253) + rxt(k,596) &
    3080             :                       *y(k,258) + rxt(k,597)*y(k,147) + rxt(k,598)*y(k,149) + rxt(k,599) &
    3081   254840160 :                       *y(k,302) + rxt(k,600)*y(k,304) + rxt(k,601)*y(k,307))
    3082   254840160 :          mat(k,2900) = -rxt(k,594)*y(k,238)
    3083   254840160 :          mat(k,3442) = -rxt(k,595)*y(k,238)
    3084   254840160 :          mat(k,3349) = -rxt(k,596)*y(k,238)
    3085   254840160 :          mat(k,3090) = -rxt(k,597)*y(k,238)
    3086   254840160 :          mat(k,3586) = -rxt(k,598)*y(k,238)
    3087   254840160 :          mat(k,2735) = -rxt(k,599)*y(k,238)
    3088   254840160 :          mat(k,2781) = -rxt(k,600)*y(k,238)
    3089   254840160 :          mat(k,2828) = -rxt(k,601)*y(k,238)
    3090   254840160 :          mat(k,1279) = rxt(k,603)*y(k,295)
    3091   254840160 :          mat(k,4072) = rxt(k,603)*y(k,4)
    3092   254840160 :          mat(k,57) = -(rxt(k,842)*y(k,258) + rxt(k,843)*y(k,147))
    3093   254840160 :          mat(k,3206) = -rxt(k,842)*y(k,239)
    3094   254840160 :          mat(k,2968) = -rxt(k,843)*y(k,239)
    3095   254840160 :          mat(k,1270) = rxt(k,845)*y(k,295)
    3096   254840160 :          mat(k,3859) = rxt(k,845)*y(k,4)
    3097             :          mat(k,2213) = -(4._r8*rxt(k,605)*y(k,240) + rxt(k,606)*y(k,252) + rxt(k,607) &
    3098             :                       *y(k,253) + rxt(k,608)*y(k,258) + rxt(k,609)*y(k,147) + rxt(k,610) &
    3099             :                       *y(k,149) + rxt(k,611)*y(k,302) + rxt(k,612)*y(k,304) + rxt(k,613) &
    3100   254840160 :                       *y(k,307))
    3101   254840160 :          mat(k,2890) = -rxt(k,606)*y(k,240)
    3102   254840160 :          mat(k,3432) = -rxt(k,607)*y(k,240)
    3103   254840160 :          mat(k,3339) = -rxt(k,608)*y(k,240)
    3104   254840160 :          mat(k,3080) = -rxt(k,609)*y(k,240)
    3105   254840160 :          mat(k,3576) = -rxt(k,610)*y(k,240)
    3106   254840160 :          mat(k,2726) = -rxt(k,611)*y(k,240)
    3107   254840160 :          mat(k,2772) = -rxt(k,612)*y(k,240)
    3108   254840160 :          mat(k,2819) = -rxt(k,613)*y(k,240)
    3109   254840160 :          mat(k,1044) = rxt(k,604)*y(k,149)
    3110   254840160 :          mat(k,3576) = mat(k,3576) + rxt(k,604)*y(k,7)
    3111             :          mat(k,2408) = -(rxt(k,614)*y(k,252) + rxt(k,615)*y(k,253) + rxt(k,616) &
    3112             :                       *y(k,258) + rxt(k,617)*y(k,147) + rxt(k,618)*y(k,149) + rxt(k,619) &
    3113   254840160 :                       *y(k,302) + rxt(k,620)*y(k,304) + rxt(k,621)*y(k,307))
    3114   254840160 :          mat(k,2899) = -rxt(k,614)*y(k,241)
    3115   254840160 :          mat(k,3441) = -rxt(k,615)*y(k,241)
    3116   254840160 :          mat(k,3348) = -rxt(k,616)*y(k,241)
    3117   254840160 :          mat(k,3089) = -rxt(k,617)*y(k,241)
    3118   254840160 :          mat(k,3585) = -rxt(k,618)*y(k,241)
    3119   254840160 :          mat(k,2734) = -rxt(k,619)*y(k,241)
    3120   254840160 :          mat(k,2780) = -rxt(k,620)*y(k,241)
    3121   254840160 :          mat(k,2827) = -rxt(k,621)*y(k,241)
    3122   254840160 :          mat(k,1045) = rxt(k,623)*y(k,295)
    3123   254840160 :          mat(k,4071) = rxt(k,623)*y(k,7)
    3124   254840160 :          mat(k,63) = -(rxt(k,847)*y(k,258) + rxt(k,848)*y(k,147))
    3125   254840160 :          mat(k,3207) = -rxt(k,847)*y(k,242)
    3126   254840160 :          mat(k,2969) = -rxt(k,848)*y(k,242)
    3127   254840160 :          mat(k,1039) = rxt(k,850)*y(k,295)
    3128   254840160 :          mat(k,3860) = rxt(k,850)*y(k,7)
    3129   254840160 :          mat(k,514) = -(rxt(k,544)*y(k,258) + rxt(k,545)*y(k,147))
    3130   254840160 :          mat(k,3237) = -rxt(k,544)*y(k,243)
    3131   254840160 :          mat(k,2988) = -rxt(k,545)*y(k,243)
    3132   254840160 :          mat(k,185) = .350_r8*rxt(k,543)*y(k,295)
    3133   254840160 :          mat(k,419) = rxt(k,546)*y(k,295)
    3134   254840160 :          mat(k,3928) = .350_r8*rxt(k,543)*y(k,8) + rxt(k,546)*y(k,9)
    3135   254840160 :          mat(k,69) = -(rxt(k,852)*y(k,258) + rxt(k,853)*y(k,147))
    3136   254840160 :          mat(k,3208) = -rxt(k,852)*y(k,244)
    3137   254840160 :          mat(k,2970) = -rxt(k,853)*y(k,244)
    3138   254840160 :          mat(k,181) = rxt(k,851)*y(k,295)
    3139   254840160 :          mat(k,3861) = rxt(k,851)*y(k,8)
    3140             :          mat(k,2536) = -(4._r8*rxt(k,625)*y(k,245) + rxt(k,626)*y(k,252) + rxt(k,627) &
    3141             :                       *y(k,253) + rxt(k,628)*y(k,258) + rxt(k,629)*y(k,147) + rxt(k,630) &
    3142             :                       *y(k,149) + rxt(k,631)*y(k,302) + rxt(k,632)*y(k,304) + rxt(k,633) &
    3143   254840160 :                       *y(k,307))
    3144   254840160 :          mat(k,2903) = -rxt(k,626)*y(k,245)
    3145   254840160 :          mat(k,3445) = -rxt(k,627)*y(k,245)
    3146   254840160 :          mat(k,3352) = -rxt(k,628)*y(k,245)
    3147   254840160 :          mat(k,3093) = -rxt(k,629)*y(k,245)
    3148   254840160 :          mat(k,3589) = -rxt(k,630)*y(k,245)
    3149   254840160 :          mat(k,2738) = -rxt(k,631)*y(k,245)
    3150   254840160 :          mat(k,2784) = -rxt(k,632)*y(k,245)
    3151   254840160 :          mat(k,2831) = -rxt(k,633)*y(k,245)
    3152   254840160 :          mat(k,1100) = rxt(k,624)*y(k,149)
    3153   254840160 :          mat(k,3589) = mat(k,3589) + rxt(k,624)*y(k,17)
    3154   254840160 :          mat(k,989) = rxt(k,775)*y(k,295)
    3155   254840160 :          mat(k,4075) = rxt(k,775)*y(k,217)
    3156             :          mat(k,2380) = -(rxt(k,634)*y(k,252) + rxt(k,635)*y(k,253) + rxt(k,636) &
    3157             :                       *y(k,258) + rxt(k,637)*y(k,147) + rxt(k,638)*y(k,149) + rxt(k,639) &
    3158   254840160 :                       *y(k,302) + rxt(k,640)*y(k,304) + rxt(k,641)*y(k,307))
    3159   254840160 :          mat(k,2898) = -rxt(k,634)*y(k,246)
    3160   254840160 :          mat(k,3440) = -rxt(k,635)*y(k,246)
    3161   254840160 :          mat(k,3347) = -rxt(k,636)*y(k,246)
    3162   254840160 :          mat(k,3088) = -rxt(k,637)*y(k,246)
    3163   254840160 :          mat(k,3584) = -rxt(k,638)*y(k,246)
    3164   254840160 :          mat(k,2733) = -rxt(k,639)*y(k,246)
    3165   254840160 :          mat(k,2779) = -rxt(k,640)*y(k,246)
    3166   254840160 :          mat(k,2826) = -rxt(k,641)*y(k,246)
    3167   254840160 :          mat(k,1099) = rxt(k,643)*y(k,295)
    3168   254840160 :          mat(k,4070) = rxt(k,643)*y(k,17)
    3169   254840160 :          mat(k,75) = -(rxt(k,855)*y(k,258) + rxt(k,856)*y(k,147))
    3170   254840160 :          mat(k,3209) = -rxt(k,855)*y(k,247)
    3171   254840160 :          mat(k,2971) = -rxt(k,856)*y(k,247)
    3172   254840160 :          mat(k,1090) = rxt(k,858)*y(k,295)
    3173   254840160 :          mat(k,3862) = rxt(k,858)*y(k,17)
    3174   254840160 :          mat(k,437) = -(rxt(k,548)*y(k,258) + rxt(k,550)*y(k,147))
    3175   254840160 :          mat(k,3230) = -rxt(k,548)*y(k,248)
    3176   254840160 :          mat(k,2983) = -rxt(k,550)*y(k,248)
    3177   254840160 :          mat(k,354) = rxt(k,549)*y(k,295)
    3178   254840160 :          mat(k,214) = .070_r8*rxt(k,574)*y(k,295)
    3179   254840160 :          mat(k,231) = .060_r8*rxt(k,576)*y(k,295)
    3180             :          mat(k,3916) = rxt(k,549)*y(k,24) + .070_r8*rxt(k,574)*y(k,228) &
    3181   254840160 :                       + .060_r8*rxt(k,576)*y(k,229)
    3182             :          mat(k,1350) = -(4._r8*rxt(k,324)*y(k,249) + rxt(k,325)*y(k,253) + rxt(k,326) &
    3183   254840160 :                       *y(k,258) + rxt(k,327)*y(k,147))
    3184   254840160 :          mat(k,3391) = -rxt(k,325)*y(k,249)
    3185   254840160 :          mat(k,3291) = -rxt(k,326)*y(k,249)
    3186   254840160 :          mat(k,3034) = -rxt(k,327)*y(k,249)
    3187   254840160 :          mat(k,359) = .500_r8*rxt(k,329)*y(k,295)
    3188   254840160 :          mat(k,317) = rxt(k,330)*y(k,57) + rxt(k,331)*y(k,295)
    3189   254840160 :          mat(k,3823) = rxt(k,330)*y(k,29)
    3190   254840160 :          mat(k,4011) = .500_r8*rxt(k,329)*y(k,28) + rxt(k,331)*y(k,29)
    3191             :          mat(k,1024) = -(rxt(k,355)*y(k,253) + rxt(k,356)*y(k,258) + rxt(k,357) &
    3192   254840160 :                       *y(k,147))
    3193   254840160 :          mat(k,3386) = -rxt(k,355)*y(k,250)
    3194   254840160 :          mat(k,3274) = -rxt(k,356)*y(k,250)
    3195   254840160 :          mat(k,3019) = -rxt(k,357)*y(k,250)
    3196   254840160 :          mat(k,412) = rxt(k,358)*y(k,295)
    3197   254840160 :          mat(k,131) = rxt(k,359)*y(k,295)
    3198   254840160 :          mat(k,3984) = rxt(k,358)*y(k,31) + rxt(k,359)*y(k,32)
    3199   254840160 :          mat(k,711) = -(rxt(k,551)*y(k,258) + rxt(k,552)*y(k,147))
    3200   254840160 :          mat(k,3246) = -rxt(k,551)*y(k,251)
    3201   254840160 :          mat(k,2997) = -rxt(k,552)*y(k,251)
    3202   254840160 :          mat(k,289) = rxt(k,553)*y(k,295)
    3203   254840160 :          mat(k,2997) = mat(k,2997) + rxt(k,542)*y(k,235)
    3204   254840160 :          mat(k,3678) = rxt(k,568)*y(k,165)
    3205   254840160 :          mat(k,485) = rxt(k,568)*y(k,158)
    3206   254840160 :          mat(k,551) = rxt(k,542)*y(k,147) + .400_r8*rxt(k,541)*y(k,258)
    3207   254840160 :          mat(k,3246) = mat(k,3246) + .400_r8*rxt(k,541)*y(k,235)
    3208   254840160 :          mat(k,3951) = rxt(k,553)*y(k,33)
    3209             :          mat(k,2913) = -(4._r8*rxt(k,335)*y(k,252) + rxt(k,336)*y(k,253) + rxt(k,337) &
    3210             :                       *y(k,258) + rxt(k,338)*y(k,147) + rxt(k,351)*y(k,148) + rxt(k,381) &
    3211             :                       *y(k,284) + rxt(k,388)*y(k,286) + rxt(k,400)*y(k,289) + rxt(k,424) &
    3212             :                       *y(k,261) + rxt(k,430)*y(k,262) + rxt(k,444)*y(k,267) + rxt(k,448) &
    3213             :                       *y(k,268) + rxt(k,474)*y(k,274) + rxt(k,491)*y(k,278) + rxt(k,495) &
    3214             :                       *y(k,279) + rxt(k,586)*y(k,237) + rxt(k,594)*y(k,238) + rxt(k,606) &
    3215             :                       *y(k,240) + rxt(k,614)*y(k,241) + rxt(k,626)*y(k,245) + rxt(k,634) &
    3216             :                       *y(k,246) + rxt(k,645)*y(k,281) + rxt(k,654)*y(k,282) + rxt(k,665) &
    3217             :                       *y(k,290) + rxt(k,674)*y(k,291) + rxt(k,693)*y(k,301) + rxt(k,701) &
    3218             :                       *y(k,302) + rxt(k,709)*y(k,303) + rxt(k,719)*y(k,304) + rxt(k,728) &
    3219   254840160 :                       *y(k,305) + rxt(k,749)*y(k,307))
    3220   254840160 :          mat(k,3455) = -rxt(k,336)*y(k,252)
    3221   254840160 :          mat(k,3362) = -rxt(k,337)*y(k,252)
    3222   254840160 :          mat(k,3103) = -rxt(k,338)*y(k,252)
    3223   254840160 :          mat(k,3651) = -rxt(k,351)*y(k,252)
    3224   254840160 :          mat(k,1550) = -rxt(k,381)*y(k,252)
    3225   254840160 :          mat(k,1623) = -rxt(k,388)*y(k,252)
    3226   254840160 :          mat(k,1514) = -rxt(k,400)*y(k,252)
    3227   254840160 :          mat(k,1959) = -rxt(k,424)*y(k,252)
    3228   254840160 :          mat(k,1998) = -rxt(k,430)*y(k,252)
    3229   254840160 :          mat(k,1740) = -rxt(k,444)*y(k,252)
    3230   254840160 :          mat(k,1762) = -rxt(k,448)*y(k,252)
    3231   254840160 :          mat(k,2183) = -rxt(k,474)*y(k,252)
    3232   254840160 :          mat(k,1857) = -rxt(k,491)*y(k,252)
    3233   254840160 :          mat(k,1826) = -rxt(k,495)*y(k,252)
    3234   254840160 :          mat(k,2304) = -rxt(k,586)*y(k,252)
    3235   254840160 :          mat(k,2449) = -rxt(k,594)*y(k,252)
    3236   254840160 :          mat(k,2221) = -rxt(k,606)*y(k,252)
    3237   254840160 :          mat(k,2417) = -rxt(k,614)*y(k,252)
    3238   254840160 :          mat(k,2543) = -rxt(k,626)*y(k,252)
    3239   254840160 :          mat(k,2388) = -rxt(k,634)*y(k,252)
    3240   254840160 :          mat(k,2514) = -rxt(k,645)*y(k,252)
    3241   254840160 :          mat(k,2348) = -rxt(k,654)*y(k,252)
    3242   254840160 :          mat(k,2579) = -rxt(k,665)*y(k,252)
    3243   254840160 :          mat(k,2480) = -rxt(k,674)*y(k,252)
    3244   254840160 :          mat(k,2660) = -rxt(k,693)*y(k,252)
    3245   254840160 :          mat(k,2748) = -rxt(k,701)*y(k,252)
    3246   254840160 :          mat(k,2705) = -rxt(k,709)*y(k,252)
    3247   254840160 :          mat(k,2794) = -rxt(k,719)*y(k,252)
    3248   254840160 :          mat(k,2244) = -rxt(k,728)*y(k,252)
    3249   254840160 :          mat(k,2841) = -rxt(k,749)*y(k,252)
    3250   254840160 :          mat(k,1433) = rxt(k,332)*y(k,149) + rxt(k,333)*y(k,295)
    3251   254840160 :          mat(k,1928) = rxt(k,360)*y(k,149) + rxt(k,361)*y(k,295)
    3252   254840160 :          mat(k,704) = .500_r8*rxt(k,340)*y(k,295)
    3253   254840160 :          mat(k,622) = .060_r8*rxt(k,414)*y(k,295)
    3254   254840160 :          mat(k,635) = .060_r8*rxt(k,415)*y(k,295)
    3255   254840160 :          mat(k,926) = .300_r8*rxt(k,363)*y(k,295)
    3256   254840160 :          mat(k,1423) = .070_r8*rxt(k,486)*y(k,158)
    3257   254840160 :          mat(k,1080) = .330_r8*rxt(k,662)*y(k,158)
    3258   254840160 :          mat(k,2019) = .100_r8*rxt(k,385)*y(k,158)
    3259   254840160 :          mat(k,2044) = .280_r8*rxt(k,403)*y(k,158)
    3260   254840160 :          mat(k,1502) = .560_r8*rxt(k,405)*y(k,295)
    3261   254840160 :          mat(k,2141) = .040_r8*rxt(k,501)*y(k,158) + .100_r8*rxt(k,502)*y(k,295)
    3262             :          mat(k,3103) = mat(k,3103) + .350_r8*rxt(k,392)*y(k,286) + rxt(k,395)*y(k,288) &
    3263             :                       + .760_r8*rxt(k,537)*y(k,289) + rxt(k,370)*y(k,298) &
    3264   254840160 :                       + .910_r8*rxt(k,741)*y(k,306)
    3265             :          mat(k,3599) = rxt(k,332)*y(k,46) + rxt(k,360)*y(k,50) + .350_r8*rxt(k,393) &
    3266   254840160 :                       *y(k,286) + rxt(k,742)*y(k,306)
    3267             :          mat(k,3753) = .070_r8*rxt(k,486)*y(k,109) + .330_r8*rxt(k,662)*y(k,125) &
    3268             :                       + .100_r8*rxt(k,385)*y(k,126) + .280_r8*rxt(k,403)*y(k,132) &
    3269   254840160 :                       + .040_r8*rxt(k,501)*y(k,139)
    3270   254840160 :          mat(k,668) = 2.000_r8*rxt(k,737)*y(k,295)
    3271             :          mat(k,2913) = mat(k,2913) + .350_r8*rxt(k,388)*y(k,286) + .750_r8*rxt(k,400) &
    3272   254840160 :                       *y(k,289)
    3273             :          mat(k,3455) = mat(k,3455) + .350_r8*rxt(k,389)*y(k,286) + .880_r8*rxt(k,401) &
    3274   254840160 :                       *y(k,289) + .300_r8*rxt(k,368)*y(k,298) + rxt(k,739)*y(k,306)
    3275             :          mat(k,3362) = mat(k,3362) + .170_r8*rxt(k,390)*y(k,286) + .200_r8*rxt(k,394) &
    3276             :                       *y(k,288) + .490_r8*rxt(k,402)*y(k,289) + .150_r8*rxt(k,369) &
    3277   254840160 :                       *y(k,298) + .530_r8*rxt(k,740)*y(k,306)
    3278             :          mat(k,1623) = mat(k,1623) + .350_r8*rxt(k,392)*y(k,147) + .350_r8*rxt(k,393) &
    3279             :                       *y(k,149) + .350_r8*rxt(k,388)*y(k,252) + .350_r8*rxt(k,389) &
    3280             :                       *y(k,253) + .170_r8*rxt(k,390)*y(k,258) + 1.400_r8*rxt(k,391) &
    3281   254840160 :                       *y(k,286)
    3282   254840160 :          mat(k,765) = rxt(k,395)*y(k,147) + .200_r8*rxt(k,394)*y(k,258)
    3283             :          mat(k,1514) = mat(k,1514) + .760_r8*rxt(k,537)*y(k,147) + .750_r8*rxt(k,400) &
    3284             :                       *y(k,252) + .880_r8*rxt(k,401)*y(k,253) + .490_r8*rxt(k,402) &
    3285   254840160 :                       *y(k,258)
    3286             :          mat(k,4085) = rxt(k,333)*y(k,46) + rxt(k,361)*y(k,50) + .500_r8*rxt(k,340) &
    3287             :                       *y(k,52) + .060_r8*rxt(k,414)*y(k,98) + .060_r8*rxt(k,415) &
    3288             :                       *y(k,99) + .300_r8*rxt(k,363)*y(k,104) + .560_r8*rxt(k,405) &
    3289             :                       *y(k,134) + .100_r8*rxt(k,502)*y(k,139) + 2.000_r8*rxt(k,737) &
    3290   254840160 :                       *y(k,206)
    3291             :          mat(k,1340) = rxt(k,370)*y(k,147) + .300_r8*rxt(k,368)*y(k,253) &
    3292   254840160 :                       + .150_r8*rxt(k,369)*y(k,258)
    3293   254840160 :          mat(k,2748) = mat(k,2748) + rxt(k,743)*y(k,306)
    3294   254840160 :          mat(k,2794) = mat(k,2794) + rxt(k,744)*y(k,306)
    3295             :          mat(k,2682) = .910_r8*rxt(k,741)*y(k,147) + rxt(k,742)*y(k,149) + rxt(k,739) &
    3296             :                       *y(k,253) + .530_r8*rxt(k,740)*y(k,258) + rxt(k,743)*y(k,302) &
    3297   254840160 :                       + rxt(k,744)*y(k,304) + rxt(k,745)*y(k,307)
    3298   263009123 :          mat(k,2841) = mat(k,2841) + rxt(k,745)*y(k,306)
    3299             :       end do
    3300     8168963 :       end subroutine nlnmat12
    3301     8168963 :       subroutine nlnmat13( avec_len, mat, y, rxt )
    3302             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    3303             :       implicit none
    3304             : !----------------------------------------------
    3305             : ! ... dummy arguments
    3306             : !----------------------------------------------
    3307             :       integer, intent(in) :: avec_len
    3308             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    3309             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    3310             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    3311             : !----------------------------------------------
    3312             : ! ... local variables
    3313             : !----------------------------------------------
    3314             :       integer :: k
    3315             : !----------------------------------------------
    3316             : ! ... complete matrix entries implicit species
    3317             : !----------------------------------------------
    3318   263009123 :       do k = 1,avec_len
    3319   254840160 :          mat(k,3463) = -(rxt(k,225)*y(k,60) + (4._r8*rxt(k,302) + 4._r8*rxt(k,303) &
    3320             :                       ) * y(k,253) + rxt(k,304)*y(k,258) + rxt(k,305)*y(k,147) &
    3321             :                       + rxt(k,325)*y(k,249) + rxt(k,336)*y(k,252) + rxt(k,355) &
    3322             :                       *y(k,250) + rxt(k,368)*y(k,298) + rxt(k,382)*y(k,284) + rxt(k,389) &
    3323             :                       *y(k,286) + rxt(k,401)*y(k,289) + rxt(k,425)*y(k,261) + rxt(k,431) &
    3324             :                       *y(k,262) + rxt(k,445)*y(k,267) + rxt(k,449)*y(k,268) + rxt(k,475) &
    3325             :                       *y(k,274) + rxt(k,492)*y(k,278) + rxt(k,496)*y(k,279) + rxt(k,587) &
    3326             :                       *y(k,237) + rxt(k,595)*y(k,238) + rxt(k,607)*y(k,240) + rxt(k,615) &
    3327             :                       *y(k,241) + rxt(k,627)*y(k,245) + rxt(k,635)*y(k,246) + rxt(k,646) &
    3328             :                       *y(k,281) + rxt(k,655)*y(k,282) + rxt(k,666)*y(k,290) + rxt(k,675) &
    3329             :                       *y(k,291) + rxt(k,694)*y(k,301) + rxt(k,702)*y(k,302) + rxt(k,710) &
    3330             :                       *y(k,303) + rxt(k,720)*y(k,304) + rxt(k,729)*y(k,305) + rxt(k,739) &
    3331   254840160 :                       *y(k,306) + rxt(k,750)*y(k,307))
    3332   254840160 :          mat(k,3513) = -rxt(k,225)*y(k,253)
    3333   254840160 :          mat(k,3370) = -rxt(k,304)*y(k,253)
    3334   254840160 :          mat(k,3111) = -rxt(k,305)*y(k,253)
    3335   254840160 :          mat(k,1356) = -rxt(k,325)*y(k,253)
    3336   254840160 :          mat(k,2921) = -rxt(k,336)*y(k,253)
    3337   254840160 :          mat(k,1030) = -rxt(k,355)*y(k,253)
    3338   254840160 :          mat(k,1344) = -rxt(k,368)*y(k,253)
    3339   254840160 :          mat(k,1554) = -rxt(k,382)*y(k,253)
    3340   254840160 :          mat(k,1628) = -rxt(k,389)*y(k,253)
    3341   254840160 :          mat(k,1518) = -rxt(k,401)*y(k,253)
    3342   254840160 :          mat(k,1965) = -rxt(k,425)*y(k,253)
    3343   254840160 :          mat(k,2004) = -rxt(k,431)*y(k,253)
    3344   254840160 :          mat(k,1745) = -rxt(k,445)*y(k,253)
    3345   254840160 :          mat(k,1767) = -rxt(k,449)*y(k,253)
    3346   254840160 :          mat(k,2190) = -rxt(k,475)*y(k,253)
    3347   254840160 :          mat(k,1862) = -rxt(k,492)*y(k,253)
    3348   254840160 :          mat(k,1831) = -rxt(k,496)*y(k,253)
    3349   254840160 :          mat(k,2310) = -rxt(k,587)*y(k,253)
    3350   254840160 :          mat(k,2455) = -rxt(k,595)*y(k,253)
    3351   254840160 :          mat(k,2226) = -rxt(k,607)*y(k,253)
    3352   254840160 :          mat(k,2423) = -rxt(k,615)*y(k,253)
    3353   254840160 :          mat(k,2549) = -rxt(k,627)*y(k,253)
    3354   254840160 :          mat(k,2394) = -rxt(k,635)*y(k,253)
    3355   254840160 :          mat(k,2520) = -rxt(k,646)*y(k,253)
    3356   254840160 :          mat(k,2354) = -rxt(k,655)*y(k,253)
    3357   254840160 :          mat(k,2585) = -rxt(k,666)*y(k,253)
    3358   254840160 :          mat(k,2486) = -rxt(k,675)*y(k,253)
    3359   254840160 :          mat(k,2666) = -rxt(k,694)*y(k,253)
    3360   254840160 :          mat(k,2755) = -rxt(k,702)*y(k,253)
    3361   254840160 :          mat(k,2711) = -rxt(k,710)*y(k,253)
    3362   254840160 :          mat(k,2801) = -rxt(k,720)*y(k,253)
    3363   254840160 :          mat(k,2250) = -rxt(k,729)*y(k,253)
    3364   254840160 :          mat(k,2688) = -rxt(k,739)*y(k,253)
    3365   254840160 :          mat(k,2848) = -rxt(k,750)*y(k,253)
    3366   254840160 :          mat(k,1395) = .280_r8*rxt(k,354)*y(k,158)
    3367   254840160 :          mat(k,793) = rxt(k,339)*y(k,295)
    3368   254840160 :          mat(k,452) = .700_r8*rxt(k,307)*y(k,295)
    3369             :          mat(k,2266) = rxt(k,219)*y(k,57) + rxt(k,275)*y(k,75) + rxt(k,315)*y(k,294) &
    3370   254840160 :                       + rxt(k,308)*y(k,295)
    3371   254840160 :          mat(k,3843) = rxt(k,219)*y(k,55)
    3372   254840160 :          mat(k,1247) = rxt(k,275)*y(k,55)
    3373   254840160 :          mat(k,624) = .060_r8*rxt(k,414)*y(k,295)
    3374   254840160 :          mat(k,637) = .060_r8*rxt(k,415)*y(k,295)
    3375   254840160 :          mat(k,1426) = .210_r8*rxt(k,486)*y(k,158)
    3376             :          mat(k,3111) = mat(k,3111) + rxt(k,338)*y(k,252) + .830_r8*rxt(k,556)*y(k,254) &
    3377   254840160 :                       + .650_r8*rxt(k,392)*y(k,286) + .170_r8*rxt(k,562)*y(k,287)
    3378   254840160 :          mat(k,3607) = .650_r8*rxt(k,393)*y(k,286)
    3379   254840160 :          mat(k,3761) = .280_r8*rxt(k,354)*y(k,30) + .210_r8*rxt(k,486)*y(k,109)
    3380   254840160 :          mat(k,2310) = mat(k,2310) + rxt(k,586)*y(k,252)
    3381   254840160 :          mat(k,2455) = mat(k,2455) + rxt(k,594)*y(k,252)
    3382   254840160 :          mat(k,2226) = mat(k,2226) + rxt(k,606)*y(k,252)
    3383   254840160 :          mat(k,2423) = mat(k,2423) + rxt(k,614)*y(k,252)
    3384   254840160 :          mat(k,2549) = mat(k,2549) + rxt(k,626)*y(k,252)
    3385   254840160 :          mat(k,2394) = mat(k,2394) + rxt(k,634)*y(k,252)
    3386             :          mat(k,2921) = mat(k,2921) + rxt(k,338)*y(k,147) + rxt(k,586)*y(k,237) &
    3387             :                       + rxt(k,594)*y(k,238) + rxt(k,606)*y(k,240) + rxt(k,614) &
    3388             :                       *y(k,241) + rxt(k,626)*y(k,245) + rxt(k,634)*y(k,246) &
    3389             :                       + 4.000_r8*rxt(k,335)*y(k,252) + .900_r8*rxt(k,336)*y(k,253) &
    3390             :                       + .490_r8*rxt(k,337)*y(k,258) + rxt(k,424)*y(k,261) + rxt(k,430) &
    3391             :                       *y(k,262) + rxt(k,444)*y(k,267) + rxt(k,448)*y(k,268) &
    3392             :                       + rxt(k,474)*y(k,274) + rxt(k,491)*y(k,278) + rxt(k,495) &
    3393             :                       *y(k,279) + rxt(k,645)*y(k,281) + rxt(k,654)*y(k,282) &
    3394             :                       + rxt(k,381)*y(k,284) + 1.650_r8*rxt(k,388)*y(k,286) &
    3395             :                       + rxt(k,400)*y(k,289) + rxt(k,665)*y(k,290) + rxt(k,674) &
    3396             :                       *y(k,291) + rxt(k,693)*y(k,301) + rxt(k,701)*y(k,302) &
    3397             :                       + rxt(k,709)*y(k,303) + rxt(k,719)*y(k,304) + rxt(k,728) &
    3398   254840160 :                       *y(k,305) + rxt(k,738)*y(k,306) + rxt(k,749)*y(k,307)
    3399             :          mat(k,3463) = mat(k,3463) + .900_r8*rxt(k,336)*y(k,252) + .650_r8*rxt(k,389) &
    3400   254840160 :                       *y(k,286)
    3401   254840160 :          mat(k,911) = .830_r8*rxt(k,556)*y(k,147) + .330_r8*rxt(k,555)*y(k,258)
    3402             :          mat(k,3370) = mat(k,3370) + .490_r8*rxt(k,337)*y(k,252) + .330_r8*rxt(k,555) &
    3403             :                       *y(k,254) + .320_r8*rxt(k,390)*y(k,286) + .070_r8*rxt(k,561) &
    3404   254840160 :                       *y(k,287)
    3405   254840160 :          mat(k,1965) = mat(k,1965) + rxt(k,424)*y(k,252)
    3406   254840160 :          mat(k,2004) = mat(k,2004) + rxt(k,430)*y(k,252)
    3407   254840160 :          mat(k,1745) = mat(k,1745) + rxt(k,444)*y(k,252)
    3408   254840160 :          mat(k,1767) = mat(k,1767) + rxt(k,448)*y(k,252)
    3409   254840160 :          mat(k,2190) = mat(k,2190) + rxt(k,474)*y(k,252)
    3410   254840160 :          mat(k,1862) = mat(k,1862) + rxt(k,491)*y(k,252)
    3411   254840160 :          mat(k,1831) = mat(k,1831) + rxt(k,495)*y(k,252)
    3412   254840160 :          mat(k,2520) = mat(k,2520) + rxt(k,645)*y(k,252)
    3413   254840160 :          mat(k,2354) = mat(k,2354) + rxt(k,654)*y(k,252)
    3414   254840160 :          mat(k,1554) = mat(k,1554) + rxt(k,381)*y(k,252)
    3415             :          mat(k,1628) = mat(k,1628) + .650_r8*rxt(k,392)*y(k,147) + .650_r8*rxt(k,393) &
    3416             :                       *y(k,149) + 1.650_r8*rxt(k,388)*y(k,252) + .650_r8*rxt(k,389) &
    3417             :                       *y(k,253) + .320_r8*rxt(k,390)*y(k,258) + 2.600_r8*rxt(k,391) &
    3418   254840160 :                       *y(k,286)
    3419   254840160 :          mat(k,935) = .170_r8*rxt(k,562)*y(k,147) + .070_r8*rxt(k,561)*y(k,258)
    3420   254840160 :          mat(k,1518) = mat(k,1518) + rxt(k,400)*y(k,252)
    3421   254840160 :          mat(k,2585) = mat(k,2585) + rxt(k,665)*y(k,252)
    3422   254840160 :          mat(k,2486) = mat(k,2486) + rxt(k,674)*y(k,252)
    3423   254840160 :          mat(k,3802) = rxt(k,315)*y(k,55)
    3424             :          mat(k,4093) = rxt(k,339)*y(k,51) + .700_r8*rxt(k,307)*y(k,54) + rxt(k,308) &
    3425             :                       *y(k,55) + .060_r8*rxt(k,414)*y(k,98) + .060_r8*rxt(k,415) &
    3426   254840160 :                       *y(k,99)
    3427   254840160 :          mat(k,2666) = mat(k,2666) + rxt(k,693)*y(k,252)
    3428   254840160 :          mat(k,2755) = mat(k,2755) + rxt(k,701)*y(k,252)
    3429   254840160 :          mat(k,2711) = mat(k,2711) + rxt(k,709)*y(k,252)
    3430   254840160 :          mat(k,2801) = mat(k,2801) + rxt(k,719)*y(k,252)
    3431   254840160 :          mat(k,2250) = mat(k,2250) + rxt(k,728)*y(k,252)
    3432   254840160 :          mat(k,2688) = mat(k,2688) + rxt(k,738)*y(k,252)
    3433   254840160 :          mat(k,2848) = mat(k,2848) + rxt(k,749)*y(k,252)
    3434             :          mat(k,906) = -(rxt(k,555)*y(k,258) + rxt(k,556)*y(k,147) + rxt(k,557) &
    3435   254840160 :                       *y(k,148))
    3436   254840160 :          mat(k,3263) = -rxt(k,555)*y(k,254)
    3437   254840160 :          mat(k,3008) = -rxt(k,556)*y(k,254)
    3438   254840160 :          mat(k,3632) = -rxt(k,557)*y(k,254)
    3439   254840160 :          mat(k,605) = -((rxt(k,377) + rxt(k,378)) * y(k,147))
    3440   254840160 :          mat(k,2994) = -(rxt(k,377) + rxt(k,378)) * y(k,255)
    3441   254840160 :          mat(k,378) = rxt(k,375)*y(k,295)
    3442   254840160 :          mat(k,3940) = rxt(k,375)*y(k,16)
    3443   254840160 :          mat(k,2979) = .750_r8*rxt(k,342)*y(k,257)
    3444   254840160 :          mat(k,854) = .750_r8*rxt(k,342)*y(k,147)
    3445   254840160 :          mat(k,855) = -(rxt(k,341)*y(k,258) + rxt(k,342)*y(k,147))
    3446   254840160 :          mat(k,3258) = -rxt(k,341)*y(k,257)
    3447   254840160 :          mat(k,3003) = -rxt(k,342)*y(k,257)
    3448   254840160 :          mat(k,586) = rxt(k,350)*y(k,295)
    3449   254840160 :          mat(k,3966) = rxt(k,350)*y(k,26)
    3450             :          mat(k,3369) = -((rxt(k,178) + rxt(k,179) + rxt(k,180)) * y(k,78) + rxt(k,182) &
    3451             :                       *y(k,157) + rxt(k,183)*y(k,158) + rxt(k,187)*y(k,295) &
    3452             :                       + 4._r8*rxt(k,192)*y(k,258) + rxt(k,202)*y(k,149) + rxt(k,207) &
    3453             :                       *y(k,147) + rxt(k,212)*y(k,148) + (rxt(k,222) + rxt(k,223) &
    3454             :                       ) * y(k,57) + rxt(k,229)*y(k,60) + rxt(k,255)*y(k,18) + rxt(k,261) &
    3455             :                       *y(k,20) + rxt(k,298)*y(k,43) + rxt(k,304)*y(k,253) + rxt(k,312) &
    3456             :                       *y(k,259) + rxt(k,326)*y(k,249) + rxt(k,337)*y(k,252) + rxt(k,341) &
    3457             :                       *y(k,257) + rxt(k,356)*y(k,250) + rxt(k,365)*y(k,297) + rxt(k,369) &
    3458             :                       *y(k,298) + rxt(k,383)*y(k,284) + rxt(k,390)*y(k,286) + rxt(k,394) &
    3459             :                       *y(k,288) + rxt(k,402)*y(k,289) + rxt(k,409)*y(k,236) + rxt(k,421) &
    3460             :                       *y(k,260) + rxt(k,426)*y(k,261) + rxt(k,432)*y(k,262) + rxt(k,446) &
    3461             :                       *y(k,267) + rxt(k,450)*y(k,268) + rxt(k,457)*y(k,269) + rxt(k,461) &
    3462             :                       *y(k,270) + rxt(k,464)*y(k,271) + rxt(k,467)*y(k,272) + rxt(k,471) &
    3463             :                       *y(k,273) + rxt(k,476)*y(k,274) + rxt(k,479)*y(k,275) + rxt(k,482) &
    3464             :                       *y(k,276) + rxt(k,493)*y(k,278) + rxt(k,497)*y(k,279) + rxt(k,499) &
    3465             :                       *y(k,293) + rxt(k,541)*y(k,235) + rxt(k,544)*y(k,243) + rxt(k,548) &
    3466             :                       *y(k,248) + rxt(k,551)*y(k,251) + rxt(k,555)*y(k,254) + rxt(k,558) &
    3467             :                       *y(k,285) + rxt(k,561)*y(k,287) + rxt(k,564)*y(k,296) + rxt(k,571) &
    3468             :                       *y(k,314) + rxt(k,577)*y(k,316) + rxt(k,580)*y(k,318) + rxt(k,588) &
    3469             :                       *y(k,237) + rxt(k,596)*y(k,238) + rxt(k,608)*y(k,240) + rxt(k,616) &
    3470             :                       *y(k,241) + rxt(k,628)*y(k,245) + rxt(k,636)*y(k,246) + rxt(k,647) &
    3471             :                       *y(k,281) + rxt(k,656)*y(k,282) + rxt(k,667)*y(k,290) + rxt(k,676) &
    3472             :                       *y(k,291) + rxt(k,687)*y(k,299) + rxt(k,691)*y(k,300) + rxt(k,695) &
    3473             :                       *y(k,301) + rxt(k,703)*y(k,302) + rxt(k,711)*y(k,303) + rxt(k,721) &
    3474             :                       *y(k,304) + rxt(k,730)*y(k,305) + rxt(k,740)*y(k,306) + rxt(k,751) &
    3475             :                       *y(k,307) + rxt(k,760)*y(k,308) + rxt(k,765)*y(k,309) + rxt(k,772) &
    3476             :                       *y(k,310) + rxt(k,776)*y(k,311) + rxt(k,780)*y(k,312) + rxt(k,784) &
    3477   254840160 :                       *y(k,313))
    3478   254840160 :          mat(k,2936) = -(rxt(k,178) + rxt(k,179) + rxt(k,180)) * y(k,258)
    3479   254840160 :          mat(k,3163) = -rxt(k,182)*y(k,258)
    3480   254840160 :          mat(k,3760) = -rxt(k,183)*y(k,258)
    3481   254840160 :          mat(k,4092) = -rxt(k,187)*y(k,258)
    3482   254840160 :          mat(k,3606) = -rxt(k,202)*y(k,258)
    3483   254840160 :          mat(k,3110) = -rxt(k,207)*y(k,258)
    3484   254840160 :          mat(k,3658) = -rxt(k,212)*y(k,258)
    3485   254840160 :          mat(k,3842) = -(rxt(k,222) + rxt(k,223)) * y(k,258)
    3486   254840160 :          mat(k,3512) = -rxt(k,229)*y(k,258)
    3487   254840160 :          mat(k,2203) = -rxt(k,255)*y(k,258)
    3488   254840160 :          mat(k,3486) = -rxt(k,261)*y(k,258)
    3489   254840160 :          mat(k,3189) = -rxt(k,298)*y(k,258)
    3490   254840160 :          mat(k,3462) = -rxt(k,304)*y(k,258)
    3491   254840160 :          mat(k,698) = -rxt(k,312)*y(k,258)
    3492   254840160 :          mat(k,1355) = -rxt(k,326)*y(k,258)
    3493   254840160 :          mat(k,2920) = -rxt(k,337)*y(k,258)
    3494   254840160 :          mat(k,859) = -rxt(k,341)*y(k,258)
    3495   254840160 :          mat(k,1029) = -rxt(k,356)*y(k,258)
    3496   254840160 :          mat(k,944) = -rxt(k,365)*y(k,258)
    3497   254840160 :          mat(k,1343) = -rxt(k,369)*y(k,258)
    3498   254840160 :          mat(k,1553) = -rxt(k,383)*y(k,258)
    3499   254840160 :          mat(k,1627) = -rxt(k,390)*y(k,258)
    3500   254840160 :          mat(k,767) = -rxt(k,394)*y(k,258)
    3501   254840160 :          mat(k,1517) = -rxt(k,402)*y(k,258)
    3502   254840160 :          mat(k,1189) = -rxt(k,409)*y(k,258)
    3503   254840160 :          mat(k,1306) = -rxt(k,421)*y(k,258)
    3504   254840160 :          mat(k,1964) = -rxt(k,426)*y(k,258)
    3505   254840160 :          mat(k,2003) = -rxt(k,432)*y(k,258)
    3506   254840160 :          mat(k,1744) = -rxt(k,446)*y(k,258)
    3507   254840160 :          mat(k,1766) = -rxt(k,450)*y(k,258)
    3508   254840160 :          mat(k,1129) = -rxt(k,457)*y(k,258)
    3509   254840160 :          mat(k,1175) = -rxt(k,461)*y(k,258)
    3510   254840160 :          mat(k,1061) = -rxt(k,464)*y(k,258)
    3511   254840160 :          mat(k,1140) = -rxt(k,467)*y(k,258)
    3512   254840160 :          mat(k,1451) = -rxt(k,471)*y(k,258)
    3513   254840160 :          mat(k,2189) = -rxt(k,476)*y(k,258)
    3514   254840160 :          mat(k,1320) = -rxt(k,479)*y(k,258)
    3515   254840160 :          mat(k,1374) = -rxt(k,482)*y(k,258)
    3516   254840160 :          mat(k,1861) = -rxt(k,493)*y(k,258)
    3517   254840160 :          mat(k,1830) = -rxt(k,497)*y(k,258)
    3518   254840160 :          mat(k,1653) = -rxt(k,499)*y(k,258)
    3519   254840160 :          mat(k,553) = -rxt(k,541)*y(k,258)
    3520   254840160 :          mat(k,518) = -rxt(k,544)*y(k,258)
    3521   254840160 :          mat(k,440) = -rxt(k,548)*y(k,258)
    3522   254840160 :          mat(k,713) = -rxt(k,551)*y(k,258)
    3523   254840160 :          mat(k,910) = -rxt(k,555)*y(k,258)
    3524   254840160 :          mat(k,866) = -rxt(k,558)*y(k,258)
    3525   254840160 :          mat(k,934) = -rxt(k,561)*y(k,258)
    3526   254840160 :          mat(k,459) = -rxt(k,564)*y(k,258)
    3527   254840160 :          mat(k,880) = -rxt(k,571)*y(k,258)
    3528   254840160 :          mat(k,903) = -rxt(k,577)*y(k,258)
    3529   254840160 :          mat(k,540) = -rxt(k,580)*y(k,258)
    3530   254840160 :          mat(k,2309) = -rxt(k,588)*y(k,258)
    3531   254840160 :          mat(k,2454) = -rxt(k,596)*y(k,258)
    3532   254840160 :          mat(k,2225) = -rxt(k,608)*y(k,258)
    3533   254840160 :          mat(k,2422) = -rxt(k,616)*y(k,258)
    3534   254840160 :          mat(k,2548) = -rxt(k,628)*y(k,258)
    3535   254840160 :          mat(k,2393) = -rxt(k,636)*y(k,258)
    3536   254840160 :          mat(k,2519) = -rxt(k,647)*y(k,258)
    3537   254840160 :          mat(k,2353) = -rxt(k,656)*y(k,258)
    3538   254840160 :          mat(k,2584) = -rxt(k,667)*y(k,258)
    3539   254840160 :          mat(k,2485) = -rxt(k,676)*y(k,258)
    3540   254840160 :          mat(k,957) = -rxt(k,687)*y(k,258)
    3541   254840160 :          mat(k,1011) = -rxt(k,691)*y(k,258)
    3542   254840160 :          mat(k,2665) = -rxt(k,695)*y(k,258)
    3543   254840160 :          mat(k,2754) = -rxt(k,703)*y(k,258)
    3544   254840160 :          mat(k,2710) = -rxt(k,711)*y(k,258)
    3545   254840160 :          mat(k,2800) = -rxt(k,721)*y(k,258)
    3546   254840160 :          mat(k,2249) = -rxt(k,730)*y(k,258)
    3547   254840160 :          mat(k,2687) = -rxt(k,740)*y(k,258)
    3548   254840160 :          mat(k,2847) = -rxt(k,751)*y(k,258)
    3549   254840160 :          mat(k,802) = -rxt(k,760)*y(k,258)
    3550   254840160 :          mat(k,966) = -rxt(k,765)*y(k,258)
    3551   254840160 :          mat(k,1224) = -rxt(k,772)*y(k,258)
    3552   254840160 :          mat(k,1020) = -rxt(k,776)*y(k,258)
    3553   254840160 :          mat(k,810) = -rxt(k,780)*y(k,258)
    3554   254840160 :          mat(k,818) = -rxt(k,784)*y(k,258)
    3555   254840160 :          mat(k,1285) = .170_r8*rxt(k,602)*y(k,158)
    3556   254840160 :          mat(k,1050) = .080_r8*rxt(k,622)*y(k,158)
    3557   254840160 :          mat(k,186) = .650_r8*rxt(k,543)*y(k,295)
    3558   254840160 :          mat(k,2203) = mat(k,2203) + rxt(k,254)*y(k,43)
    3559   254840160 :          mat(k,3486) = mat(k,3486) + rxt(k,266)*y(k,295)
    3560   254840160 :          mat(k,314) = .350_r8*rxt(k,321)*y(k,295)
    3561   254840160 :          mat(k,590) = .130_r8*rxt(k,323)*y(k,158)
    3562   254840160 :          mat(k,285) = rxt(k,328)*y(k,295)
    3563   254840160 :          mat(k,1394) = .280_r8*rxt(k,354)*y(k,158)
    3564             :          mat(k,3189) = mat(k,3189) + rxt(k,254)*y(k,18) + rxt(k,218)*y(k,57) &
    3565   254840160 :                       + rxt(k,299)*y(k,149) + rxt(k,300)*y(k,157)
    3566   254840160 :          mat(k,649) = rxt(k,283)*y(k,57) + rxt(k,284)*y(k,295)
    3567   254840160 :          mat(k,396) = rxt(k,286)*y(k,57) + rxt(k,287)*y(k,295)
    3568   254840160 :          mat(k,124) = rxt(k,334)*y(k,295)
    3569   254840160 :          mat(k,1496) = rxt(k,306)*y(k,295)
    3570   254840160 :          mat(k,2265) = rxt(k,316)*y(k,294)
    3571             :          mat(k,3842) = mat(k,3842) + rxt(k,218)*y(k,43) + rxt(k,283)*y(k,44) &
    3572   254840160 :                       + rxt(k,286)*y(k,47) + rxt(k,221)*y(k,81)
    3573   254840160 :          mat(k,3512) = mat(k,3512) + rxt(k,225)*y(k,253) + rxt(k,236)*y(k,295)
    3574   254840160 :          mat(k,2059) = rxt(k,319)*y(k,295)
    3575   254840160 :          mat(k,221) = .730_r8*rxt(k,554)*y(k,295)
    3576   254840160 :          mat(k,307) = .500_r8*rxt(k,808)*y(k,295)
    3577   254840160 :          mat(k,1716) = rxt(k,345)*y(k,295)
    3578   254840160 :          mat(k,1479) = rxt(k,346)*y(k,295)
    3579   254840160 :          mat(k,1490) = rxt(k,221)*y(k,57) + rxt(k,177)*y(k,157) + rxt(k,186)*y(k,295)
    3580   254840160 :          mat(k,198) = rxt(k,309)*y(k,295)
    3581   254840160 :          mat(k,887) = .110_r8*rxt(k,347)*y(k,295)
    3582   254840160 :          mat(k,1379) = rxt(k,310)*y(k,295)
    3583   254840160 :          mat(k,1213) = .500_r8*rxt(k,311)*y(k,295)
    3584   254840160 :          mat(k,983) = rxt(k,379)*y(k,295)
    3585   254840160 :          mat(k,623) = .510_r8*rxt(k,414)*y(k,295)
    3586   254840160 :          mat(k,636) = .410_r8*rxt(k,415)*y(k,295)
    3587   254840160 :          mat(k,1774) = rxt(k,362)*y(k,295)
    3588   254840160 :          mat(k,1880) = .320_r8*rxt(k,418)*y(k,295)
    3589   254840160 :          mat(k,1533) = .190_r8*rxt(k,420)*y(k,295)
    3590   254840160 :          mat(k,1262) = .400_r8*rxt(k,423)*y(k,295)
    3591   254840160 :          mat(k,1425) = .420_r8*rxt(k,486)*y(k,158)
    3592   254840160 :          mat(k,1668) = rxt(k,453)*y(k,295)
    3593   254840160 :          mat(k,1472) = rxt(k,455)*y(k,295)
    3594   254840160 :          mat(k,2086) = .170_r8*rxt(k,459)*y(k,158) + .040_r8*rxt(k,460)*y(k,295)
    3595   254840160 :          mat(k,2118) = .170_r8*rxt(k,469)*y(k,158) + .030_r8*rxt(k,470)*y(k,295)
    3596   254840160 :          mat(k,735) = .050_r8*rxt(k,472)*y(k,295)
    3597   254840160 :          mat(k,922) = rxt(k,488)*y(k,295)
    3598   254840160 :          mat(k,1908) = .180_r8*rxt(k,489)*y(k,295)
    3599   254840160 :          mat(k,2024) = .140_r8*rxt(k,385)*y(k,158)
    3600   254840160 :          mat(k,1783) = .500_r8*rxt(k,380)*y(k,295)
    3601   254840160 :          mat(k,2049) = .280_r8*rxt(k,403)*y(k,158)
    3602   254840160 :          mat(k,1923) = rxt(k,399)*y(k,295)
    3603   254840160 :          mat(k,1504) = .440_r8*rxt(k,405)*y(k,295)
    3604   254840160 :          mat(k,834) = .630_r8*rxt(k,682)*y(k,158)
    3605   254840160 :          mat(k,2147) = .130_r8*rxt(k,501)*y(k,158) + .630_r8*rxt(k,502)*y(k,295)
    3606             :          mat(k,3110) = mat(k,3110) + rxt(k,410)*y(k,236) + .770_r8*rxt(k,597)*y(k,238) &
    3607             :                       + .700_r8*rxt(k,617)*y(k,241) + rxt(k,545)*y(k,243) &
    3608             :                       + .470_r8*rxt(k,629)*y(k,245) + .750_r8*rxt(k,637)*y(k,246) &
    3609             :                       + rxt(k,550)*y(k,248) + rxt(k,327)*y(k,249) + rxt(k,357) &
    3610             :                       *y(k,250) + rxt(k,305)*y(k,253) + .170_r8*rxt(k,556)*y(k,254) &
    3611             :                       + rxt(k,377)*y(k,255) + .250_r8*rxt(k,342)*y(k,257) + rxt(k,314) &
    3612             :                       *y(k,259) + rxt(k,503)*y(k,260) + rxt(k,505)*y(k,261) &
    3613             :                       + rxt(k,507)*y(k,262) + .450_r8*rxt(k,509)*y(k,267) &
    3614             :                       + .450_r8*rxt(k,511)*y(k,268) + rxt(k,513)*y(k,269) &
    3615             :                       + .270_r8*rxt(k,515)*y(k,270) + rxt(k,517)*y(k,271) + rxt(k,519) &
    3616             :                       *y(k,272) + rxt(k,521)*y(k,273) + .540_r8*rxt(k,523)*y(k,274) &
    3617             :                       + .530_r8*rxt(k,525)*y(k,275) + .960_r8*rxt(k,527)*y(k,276) &
    3618             :                       + .450_r8*rxt(k,530)*y(k,278) + .450_r8*rxt(k,533)*y(k,279) &
    3619             :                       + .500_r8*rxt(k,649)*y(k,281) + .770_r8*rxt(k,657)*y(k,282) &
    3620             :                       + rxt(k,535)*y(k,284) + .400_r8*rxt(k,559)*y(k,285) &
    3621             :                       + .830_r8*rxt(k,562)*y(k,287) + .240_r8*rxt(k,537)*y(k,289) &
    3622             :                       + .040_r8*rxt(k,669)*y(k,290) + .710_r8*rxt(k,677)*y(k,291) &
    3623             :                       + rxt(k,539)*y(k,293) + rxt(k,565)*y(k,296) + rxt(k,366) &
    3624             :                       *y(k,297) + .700_r8*rxt(k,688)*y(k,299) + .700_r8*rxt(k,692) &
    3625             :                       *y(k,300) + .910_r8*rxt(k,741)*y(k,306) + .700_r8*rxt(k,761) &
    3626             :                       *y(k,308) + .700_r8*rxt(k,766)*y(k,309) + .700_r8*rxt(k,773) &
    3627             :                       *y(k,310) + .700_r8*rxt(k,777)*y(k,311) + .700_r8*rxt(k,781) &
    3628             :                       *y(k,312) + .700_r8*rxt(k,785)*y(k,313) + rxt(k,572)*y(k,314) &
    3629   254840160 :                       + rxt(k,578)*y(k,316) + rxt(k,581)*y(k,318)
    3630             :          mat(k,3606) = mat(k,3606) + rxt(k,299)*y(k,43) + .500_r8*rxt(k,764)*y(k,213) &
    3631             :                       + rxt(k,598)*y(k,238) + rxt(k,618)*y(k,241) + .500_r8*rxt(k,630) &
    3632             :                       *y(k,245) + rxt(k,638)*y(k,246) + .540_r8*rxt(k,478)*y(k,274) &
    3633             :                       + .540_r8*rxt(k,650)*y(k,281) + rxt(k,658)*y(k,282) &
    3634             :                       + .050_r8*rxt(k,670)*y(k,290) + rxt(k,678)*y(k,291) + rxt(k,205) &
    3635   254840160 :                       *y(k,295) + rxt(k,742)*y(k,306)
    3636   254840160 :          mat(k,3163) = mat(k,3163) + rxt(k,300)*y(k,43) + rxt(k,177)*y(k,81)
    3637             :          mat(k,3760) = mat(k,3760) + .170_r8*rxt(k,602)*y(k,4) + .080_r8*rxt(k,622) &
    3638             :                       *y(k,7) + .130_r8*rxt(k,323)*y(k,26) + .280_r8*rxt(k,354) &
    3639             :                       *y(k,30) + .420_r8*rxt(k,486)*y(k,109) + .170_r8*rxt(k,459) &
    3640             :                       *y(k,115) + .170_r8*rxt(k,469)*y(k,118) + .140_r8*rxt(k,385) &
    3641             :                       *y(k,126) + .280_r8*rxt(k,403)*y(k,132) + .630_r8*rxt(k,682) &
    3642   254840160 :                       *y(k,135) + .130_r8*rxt(k,501)*y(k,139) + rxt(k,189)*y(k,295)
    3643   254840160 :          mat(k,195) = .800_r8*rxt(k,566)*y(k,295)
    3644   254840160 :          mat(k,1238) = rxt(k,798)*y(k,295)
    3645   254840160 :          mat(k,661) = rxt(k,718)*y(k,295)
    3646   254840160 :          mat(k,670) = rxt(k,737)*y(k,295)
    3647   254840160 :          mat(k,2612) = .500_r8*rxt(k,764)*y(k,149)
    3648   254840160 :          mat(k,216) = .280_r8*rxt(k,574)*y(k,295)
    3649   254840160 :          mat(k,235) = .380_r8*rxt(k,576)*y(k,295)
    3650   254840160 :          mat(k,240) = .630_r8*rxt(k,582)*y(k,295)
    3651   254840160 :          mat(k,1189) = mat(k,1189) + rxt(k,410)*y(k,147)
    3652   254840160 :          mat(k,2309) = mat(k,2309) + .820_r8*rxt(k,587)*y(k,253)
    3653             :          mat(k,2454) = mat(k,2454) + .770_r8*rxt(k,597)*y(k,147) + rxt(k,598)*y(k,149) &
    3654             :                       + rxt(k,594)*y(k,252) + 1.160_r8*rxt(k,595)*y(k,253) &
    3655             :                       + .480_r8*rxt(k,596)*y(k,258) + rxt(k,599)*y(k,302) + rxt(k,600) &
    3656   254840160 :                       *y(k,304) + rxt(k,601)*y(k,307)
    3657   254840160 :          mat(k,2225) = mat(k,2225) + .820_r8*rxt(k,607)*y(k,253)
    3658             :          mat(k,2422) = mat(k,2422) + .700_r8*rxt(k,617)*y(k,147) + rxt(k,618)*y(k,149) &
    3659             :                       + rxt(k,614)*y(k,252) + rxt(k,615)*y(k,253) + .100_r8*rxt(k,616) &
    3660             :                       *y(k,258) + rxt(k,619)*y(k,302) + rxt(k,620)*y(k,304) &
    3661   254840160 :                       + rxt(k,621)*y(k,307)
    3662   254840160 :          mat(k,518) = mat(k,518) + rxt(k,545)*y(k,147)
    3663             :          mat(k,2548) = mat(k,2548) + .470_r8*rxt(k,629)*y(k,147) + .500_r8*rxt(k,630) &
    3664             :                       *y(k,149) + 1.880_r8*rxt(k,625)*y(k,245) + .500_r8*rxt(k,626) &
    3665             :                       *y(k,252) + 1.100_r8*rxt(k,627)*y(k,253) + .500_r8*rxt(k,631) &
    3666             :                       *y(k,302) + .500_r8*rxt(k,632)*y(k,304) + .500_r8*rxt(k,633) &
    3667   254840160 :                       *y(k,307)
    3668             :          mat(k,2393) = mat(k,2393) + .750_r8*rxt(k,637)*y(k,147) + rxt(k,638)*y(k,149) &
    3669             :                       + rxt(k,634)*y(k,252) + 1.500_r8*rxt(k,635)*y(k,253) &
    3670             :                       + .030_r8*rxt(k,636)*y(k,258) + rxt(k,639)*y(k,302) + rxt(k,640) &
    3671   254840160 :                       *y(k,304) + rxt(k,641)*y(k,307)
    3672   254840160 :          mat(k,440) = mat(k,440) + rxt(k,550)*y(k,147)
    3673             :          mat(k,1355) = mat(k,1355) + rxt(k,327)*y(k,147) + 2.400_r8*rxt(k,324) &
    3674   254840160 :                       *y(k,249) + rxt(k,325)*y(k,253)
    3675   254840160 :          mat(k,1029) = mat(k,1029) + rxt(k,357)*y(k,147) + rxt(k,355)*y(k,253)
    3676             :          mat(k,2920) = mat(k,2920) + rxt(k,594)*y(k,238) + rxt(k,614)*y(k,241) &
    3677             :                       + .500_r8*rxt(k,626)*y(k,245) + rxt(k,634)*y(k,246) &
    3678             :                       + .900_r8*rxt(k,336)*y(k,253) + rxt(k,424)*y(k,261) + rxt(k,430) &
    3679             :                       *y(k,262) + .450_r8*rxt(k,444)*y(k,267) + .450_r8*rxt(k,448) &
    3680             :                       *y(k,268) + .540_r8*rxt(k,474)*y(k,274) + .450_r8*rxt(k,491) &
    3681             :                       *y(k,278) + .450_r8*rxt(k,495)*y(k,279) + .540_r8*rxt(k,645) &
    3682             :                       *y(k,281) + rxt(k,654)*y(k,282) + rxt(k,381)*y(k,284) &
    3683             :                       + .250_r8*rxt(k,400)*y(k,289) + .050_r8*rxt(k,665)*y(k,290) &
    3684   254840160 :                       + rxt(k,674)*y(k,291) + rxt(k,738)*y(k,306)
    3685             :          mat(k,3462) = mat(k,3462) + rxt(k,225)*y(k,60) + rxt(k,305)*y(k,147) &
    3686             :                       + .820_r8*rxt(k,587)*y(k,237) + 1.160_r8*rxt(k,595)*y(k,238) &
    3687             :                       + .820_r8*rxt(k,607)*y(k,240) + rxt(k,615)*y(k,241) &
    3688             :                       + 1.100_r8*rxt(k,627)*y(k,245) + 1.500_r8*rxt(k,635)*y(k,246) &
    3689             :                       + rxt(k,325)*y(k,249) + rxt(k,355)*y(k,250) + .900_r8*rxt(k,336) &
    3690             :                       *y(k,252) + 4.000_r8*rxt(k,302)*y(k,253) + 1.500_r8*rxt(k,425) &
    3691             :                       *y(k,261) + rxt(k,431)*y(k,262) + .720_r8*rxt(k,445)*y(k,267) &
    3692             :                       + .720_r8*rxt(k,449)*y(k,268) + .400_r8*rxt(k,475)*y(k,274) &
    3693             :                       + .720_r8*rxt(k,492)*y(k,278) + .720_r8*rxt(k,496)*y(k,279) &
    3694             :                       + 1.010_r8*rxt(k,646)*y(k,281) + rxt(k,655)*y(k,282) &
    3695             :                       + 1.500_r8*rxt(k,382)*y(k,284) + rxt(k,389)*y(k,286) &
    3696             :                       + .620_r8*rxt(k,401)*y(k,289) + .870_r8*rxt(k,666)*y(k,290) &
    3697             :                       + rxt(k,675)*y(k,291) + .300_r8*rxt(k,368)*y(k,298) &
    3698             :                       + .500_r8*rxt(k,694)*y(k,301) + rxt(k,702)*y(k,302) + rxt(k,710) &
    3699             :                       *y(k,303) + rxt(k,720)*y(k,304) + rxt(k,729)*y(k,305) &
    3700   254840160 :                       + 2.000_r8*rxt(k,739)*y(k,306) + rxt(k,750)*y(k,307)
    3701             :          mat(k,910) = mat(k,910) + .170_r8*rxt(k,556)*y(k,147) + .070_r8*rxt(k,555) &
    3702   254840160 :                       *y(k,258)
    3703   254840160 :          mat(k,611) = rxt(k,377)*y(k,147)
    3704   254840160 :          mat(k,859) = mat(k,859) + .250_r8*rxt(k,342)*y(k,147)
    3705             :          mat(k,3369) = mat(k,3369) + .480_r8*rxt(k,596)*y(k,238) + .100_r8*rxt(k,616) &
    3706             :                       *y(k,241) + .030_r8*rxt(k,636)*y(k,246) + .070_r8*rxt(k,555) &
    3707             :                       *y(k,254) + .200_r8*rxt(k,312)*y(k,259) + .650_r8*rxt(k,421) &
    3708             :                       *y(k,260) + .060_r8*rxt(k,426)*y(k,261) + .060_r8*rxt(k,432) &
    3709             :                       *y(k,262) + .580_r8*rxt(k,457)*y(k,269) + .060_r8*rxt(k,461) &
    3710             :                       *y(k,270) + .600_r8*rxt(k,464)*y(k,271) + .500_r8*rxt(k,467) &
    3711             :                       *y(k,272) + .400_r8*rxt(k,471)*y(k,273) + .170_r8*rxt(k,479) &
    3712             :                       *y(k,275) + .800_r8*rxt(k,482)*y(k,276) + .270_r8*rxt(k,647) &
    3713             :                       *y(k,281) + .100_r8*rxt(k,656)*y(k,282) + .590_r8*rxt(k,383) &
    3714             :                       *y(k,284) + .160_r8*rxt(k,558)*y(k,285) + .330_r8*rxt(k,561) &
    3715             :                       *y(k,287) + .180_r8*rxt(k,402)*y(k,289) + .100_r8*rxt(k,676) &
    3716             :                       *y(k,291) + .800_r8*rxt(k,499)*y(k,293) + .180_r8*rxt(k,687) &
    3717             :                       *y(k,299) + .180_r8*rxt(k,691)*y(k,300) + .530_r8*rxt(k,740) &
    3718             :                       *y(k,306) + .100_r8*rxt(k,760)*y(k,308) + .100_r8*rxt(k,765) &
    3719             :                       *y(k,309) + .100_r8*rxt(k,772)*y(k,310) + .100_r8*rxt(k,776) &
    3720             :                       *y(k,311) + .100_r8*rxt(k,780)*y(k,312) + .100_r8*rxt(k,784) &
    3721   254840160 :                       *y(k,313)
    3722   254840160 :          mat(k,698) = mat(k,698) + rxt(k,314)*y(k,147) + .200_r8*rxt(k,312)*y(k,258)
    3723   254840160 :          mat(k,1306) = mat(k,1306) + rxt(k,503)*y(k,147) + .650_r8*rxt(k,421)*y(k,258)
    3724             :          mat(k,1964) = mat(k,1964) + rxt(k,505)*y(k,147) + rxt(k,424)*y(k,252) &
    3725   254840160 :                       + 1.500_r8*rxt(k,425)*y(k,253) + .060_r8*rxt(k,426)*y(k,258)
    3726             :          mat(k,2003) = mat(k,2003) + rxt(k,507)*y(k,147) + rxt(k,430)*y(k,252) &
    3727   254840160 :                       + rxt(k,431)*y(k,253) + .060_r8*rxt(k,432)*y(k,258)
    3728             :          mat(k,1744) = mat(k,1744) + .450_r8*rxt(k,509)*y(k,147) + .450_r8*rxt(k,444) &
    3729   254840160 :                       *y(k,252) + .720_r8*rxt(k,445)*y(k,253)
    3730             :          mat(k,1766) = mat(k,1766) + .450_r8*rxt(k,511)*y(k,147) + .450_r8*rxt(k,448) &
    3731   254840160 :                       *y(k,252) + .720_r8*rxt(k,449)*y(k,253)
    3732   254840160 :          mat(k,1129) = mat(k,1129) + rxt(k,513)*y(k,147) + .580_r8*rxt(k,457)*y(k,258)
    3733             :          mat(k,1175) = mat(k,1175) + .270_r8*rxt(k,515)*y(k,147) + .060_r8*rxt(k,461) &
    3734   254840160 :                       *y(k,258)
    3735   254840160 :          mat(k,1061) = mat(k,1061) + rxt(k,517)*y(k,147) + .600_r8*rxt(k,464)*y(k,258)
    3736   254840160 :          mat(k,1140) = mat(k,1140) + rxt(k,519)*y(k,147) + .500_r8*rxt(k,467)*y(k,258)
    3737   254840160 :          mat(k,1451) = mat(k,1451) + rxt(k,521)*y(k,147) + .400_r8*rxt(k,471)*y(k,258)
    3738             :          mat(k,2189) = mat(k,2189) + .540_r8*rxt(k,523)*y(k,147) + .540_r8*rxt(k,478) &
    3739             :                       *y(k,149) + .540_r8*rxt(k,474)*y(k,252) + .400_r8*rxt(k,475) &
    3740   254840160 :                       *y(k,253) + .800_r8*rxt(k,477)*y(k,274)
    3741             :          mat(k,1320) = mat(k,1320) + .530_r8*rxt(k,525)*y(k,147) + .170_r8*rxt(k,479) &
    3742   254840160 :                       *y(k,258)
    3743             :          mat(k,1374) = mat(k,1374) + .960_r8*rxt(k,527)*y(k,147) + .800_r8*rxt(k,482) &
    3744   254840160 :                       *y(k,258)
    3745             :          mat(k,1861) = mat(k,1861) + .450_r8*rxt(k,530)*y(k,147) + .450_r8*rxt(k,491) &
    3746   254840160 :                       *y(k,252) + .720_r8*rxt(k,492)*y(k,253)
    3747             :          mat(k,1830) = mat(k,1830) + .450_r8*rxt(k,533)*y(k,147) + .450_r8*rxt(k,495) &
    3748   254840160 :                       *y(k,252) + .720_r8*rxt(k,496)*y(k,253)
    3749             :          mat(k,2519) = mat(k,2519) + .500_r8*rxt(k,649)*y(k,147) + .540_r8*rxt(k,650) &
    3750             :                       *y(k,149) + .540_r8*rxt(k,645)*y(k,252) + 1.010_r8*rxt(k,646) &
    3751             :                       *y(k,253) + .270_r8*rxt(k,647)*y(k,258) + 1.980_r8*rxt(k,648) &
    3752             :                       *y(k,281) + .540_r8*rxt(k,651)*y(k,302) + .540_r8*rxt(k,652) &
    3753   254840160 :                       *y(k,304) + .540_r8*rxt(k,653)*y(k,307)
    3754             :          mat(k,2353) = mat(k,2353) + .770_r8*rxt(k,657)*y(k,147) + rxt(k,658)*y(k,149) &
    3755             :                       + rxt(k,654)*y(k,252) + rxt(k,655)*y(k,253) + .100_r8*rxt(k,656) &
    3756             :                       *y(k,258) + rxt(k,659)*y(k,302) + rxt(k,660)*y(k,304) &
    3757   254840160 :                       + rxt(k,661)*y(k,307)
    3758             :          mat(k,1553) = mat(k,1553) + rxt(k,535)*y(k,147) + rxt(k,381)*y(k,252) &
    3759   254840160 :                       + 1.500_r8*rxt(k,382)*y(k,253) + .590_r8*rxt(k,383)*y(k,258)
    3760             :          mat(k,866) = mat(k,866) + .400_r8*rxt(k,559)*y(k,147) + .160_r8*rxt(k,558) &
    3761   254840160 :                       *y(k,258)
    3762   254840160 :          mat(k,1627) = mat(k,1627) + rxt(k,389)*y(k,253)
    3763             :          mat(k,934) = mat(k,934) + .830_r8*rxt(k,562)*y(k,147) + .330_r8*rxt(k,561) &
    3764   254840160 :                       *y(k,258)
    3765             :          mat(k,1517) = mat(k,1517) + .240_r8*rxt(k,537)*y(k,147) + .250_r8*rxt(k,400) &
    3766             :                       *y(k,252) + .620_r8*rxt(k,401)*y(k,253) + .180_r8*rxt(k,402) &
    3767   254840160 :                       *y(k,258)
    3768             :          mat(k,2584) = mat(k,2584) + .040_r8*rxt(k,669)*y(k,147) + .050_r8*rxt(k,670) &
    3769             :                       *y(k,149) + .050_r8*rxt(k,665)*y(k,252) + .870_r8*rxt(k,666) &
    3770             :                       *y(k,253) + .050_r8*rxt(k,671)*y(k,302) + .050_r8*rxt(k,672) &
    3771   254840160 :                       *y(k,304) + .050_r8*rxt(k,673)*y(k,307)
    3772             :          mat(k,2485) = mat(k,2485) + .710_r8*rxt(k,677)*y(k,147) + rxt(k,678)*y(k,149) &
    3773             :                       + rxt(k,674)*y(k,252) + rxt(k,675)*y(k,253) + .100_r8*rxt(k,676) &
    3774             :                       *y(k,258) + rxt(k,679)*y(k,302) + rxt(k,680)*y(k,304) &
    3775   254840160 :                       + rxt(k,681)*y(k,307)
    3776   254840160 :          mat(k,1653) = mat(k,1653) + rxt(k,539)*y(k,147) + .800_r8*rxt(k,499)*y(k,258)
    3777   254840160 :          mat(k,3801) = rxt(k,316)*y(k,55)
    3778             :          mat(k,4092) = mat(k,4092) + .650_r8*rxt(k,543)*y(k,8) + rxt(k,266)*y(k,20) &
    3779             :                       + .350_r8*rxt(k,321)*y(k,25) + rxt(k,328)*y(k,27) + rxt(k,284) &
    3780             :                       *y(k,44) + rxt(k,287)*y(k,47) + rxt(k,334)*y(k,48) + rxt(k,306) &
    3781             :                       *y(k,53) + rxt(k,236)*y(k,60) + rxt(k,319)*y(k,63) &
    3782             :                       + .730_r8*rxt(k,554)*y(k,67) + .500_r8*rxt(k,808)*y(k,69) &
    3783             :                       + rxt(k,345)*y(k,76) + rxt(k,346)*y(k,77) + rxt(k,186)*y(k,81) &
    3784             :                       + rxt(k,309)*y(k,88) + .110_r8*rxt(k,347)*y(k,89) + rxt(k,310) &
    3785             :                       *y(k,90) + .500_r8*rxt(k,311)*y(k,92) + rxt(k,379)*y(k,97) &
    3786             :                       + .510_r8*rxt(k,414)*y(k,98) + .410_r8*rxt(k,415)*y(k,99) &
    3787             :                       + rxt(k,362)*y(k,102) + .320_r8*rxt(k,418)*y(k,103) &
    3788             :                       + .190_r8*rxt(k,420)*y(k,106) + .400_r8*rxt(k,423)*y(k,108) &
    3789             :                       + rxt(k,453)*y(k,110) + rxt(k,455)*y(k,113) + .040_r8*rxt(k,460) &
    3790             :                       *y(k,115) + .030_r8*rxt(k,470)*y(k,118) + .050_r8*rxt(k,472) &
    3791             :                       *y(k,119) + rxt(k,488)*y(k,122) + .180_r8*rxt(k,489)*y(k,123) &
    3792             :                       + .500_r8*rxt(k,380)*y(k,127) + rxt(k,399)*y(k,133) &
    3793             :                       + .440_r8*rxt(k,405)*y(k,134) + .630_r8*rxt(k,502)*y(k,139) &
    3794             :                       + rxt(k,205)*y(k,149) + rxt(k,189)*y(k,158) + .800_r8*rxt(k,566) &
    3795             :                       *y(k,166) + rxt(k,798)*y(k,175) + rxt(k,718)*y(k,204) &
    3796             :                       + rxt(k,737)*y(k,206) + .280_r8*rxt(k,574)*y(k,228) &
    3797   254840160 :                       + .380_r8*rxt(k,576)*y(k,229) + .630_r8*rxt(k,582)*y(k,231)
    3798   254840160 :          mat(k,459) = mat(k,459) + rxt(k,565)*y(k,147)
    3799   254840160 :          mat(k,944) = mat(k,944) + rxt(k,366)*y(k,147)
    3800   254840160 :          mat(k,1343) = mat(k,1343) + .300_r8*rxt(k,368)*y(k,253)
    3801             :          mat(k,957) = mat(k,957) + .700_r8*rxt(k,688)*y(k,147) + .180_r8*rxt(k,687) &
    3802   254840160 :                       *y(k,258)
    3803             :          mat(k,1011) = mat(k,1011) + .700_r8*rxt(k,692)*y(k,147) + .180_r8*rxt(k,691) &
    3804   254840160 :                       *y(k,258)
    3805   254840160 :          mat(k,2665) = mat(k,2665) + .500_r8*rxt(k,694)*y(k,253)
    3806             :          mat(k,2754) = mat(k,2754) + rxt(k,599)*y(k,238) + rxt(k,619)*y(k,241) &
    3807             :                       + .500_r8*rxt(k,631)*y(k,245) + rxt(k,639)*y(k,246) + rxt(k,702) &
    3808             :                       *y(k,253) + .540_r8*rxt(k,651)*y(k,281) + rxt(k,659)*y(k,282) &
    3809             :                       + .050_r8*rxt(k,671)*y(k,290) + rxt(k,679)*y(k,291) + rxt(k,743) &
    3810   254840160 :                       *y(k,306)
    3811   254840160 :          mat(k,2710) = mat(k,2710) + rxt(k,710)*y(k,253)
    3812             :          mat(k,2800) = mat(k,2800) + rxt(k,600)*y(k,238) + rxt(k,620)*y(k,241) &
    3813             :                       + .500_r8*rxt(k,632)*y(k,245) + rxt(k,640)*y(k,246) + rxt(k,720) &
    3814             :                       *y(k,253) + .540_r8*rxt(k,652)*y(k,281) + rxt(k,660)*y(k,282) &
    3815             :                       + .050_r8*rxt(k,672)*y(k,290) + rxt(k,680)*y(k,291) + rxt(k,744) &
    3816   254840160 :                       *y(k,306)
    3817   254840160 :          mat(k,2249) = mat(k,2249) + rxt(k,729)*y(k,253)
    3818             :          mat(k,2687) = mat(k,2687) + .910_r8*rxt(k,741)*y(k,147) + rxt(k,742)*y(k,149) &
    3819             :                       + rxt(k,738)*y(k,252) + 2.000_r8*rxt(k,739)*y(k,253) &
    3820             :                       + .530_r8*rxt(k,740)*y(k,258) + rxt(k,743)*y(k,302) + rxt(k,744) &
    3821   254840160 :                       *y(k,304) + rxt(k,745)*y(k,307)
    3822             :          mat(k,2847) = mat(k,2847) + rxt(k,601)*y(k,238) + rxt(k,621)*y(k,241) &
    3823             :                       + .500_r8*rxt(k,633)*y(k,245) + rxt(k,641)*y(k,246) + rxt(k,750) &
    3824             :                       *y(k,253) + .540_r8*rxt(k,653)*y(k,281) + rxt(k,661)*y(k,282) &
    3825             :                       + .050_r8*rxt(k,673)*y(k,290) + rxt(k,681)*y(k,291) + rxt(k,745) &
    3826   254840160 :                       *y(k,306)
    3827             :          mat(k,802) = mat(k,802) + .700_r8*rxt(k,761)*y(k,147) + .100_r8*rxt(k,760) &
    3828   254840160 :                       *y(k,258)
    3829             :          mat(k,966) = mat(k,966) + .700_r8*rxt(k,766)*y(k,147) + .100_r8*rxt(k,765) &
    3830   254840160 :                       *y(k,258)
    3831             :          mat(k,1224) = mat(k,1224) + .700_r8*rxt(k,773)*y(k,147) + .100_r8*rxt(k,772) &
    3832   254840160 :                       *y(k,258)
    3833             :          mat(k,1020) = mat(k,1020) + .700_r8*rxt(k,777)*y(k,147) + .100_r8*rxt(k,776) &
    3834   254840160 :                       *y(k,258)
    3835             :          mat(k,810) = mat(k,810) + .700_r8*rxt(k,781)*y(k,147) + .100_r8*rxt(k,780) &
    3836   254840160 :                       *y(k,258)
    3837             :          mat(k,818) = mat(k,818) + .700_r8*rxt(k,785)*y(k,147) + .100_r8*rxt(k,784) &
    3838   254840160 :                       *y(k,258)
    3839   254840160 :          mat(k,880) = mat(k,880) + rxt(k,572)*y(k,147)
    3840   254840160 :          mat(k,903) = mat(k,903) + rxt(k,578)*y(k,147)
    3841   263009123 :          mat(k,540) = mat(k,540) + rxt(k,581)*y(k,147)
    3842             :       end do
    3843     8168963 :       end subroutine nlnmat13
    3844     8168963 :       subroutine nlnmat14( avec_len, mat, y, rxt )
    3845             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    3846             :       implicit none
    3847             : !----------------------------------------------
    3848             : ! ... dummy arguments
    3849             : !----------------------------------------------
    3850             :       integer, intent(in) :: avec_len
    3851             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    3852             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    3853             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    3854             : !----------------------------------------------
    3855             : ! ... local variables
    3856             : !----------------------------------------------
    3857             :       integer :: k
    3858             : !----------------------------------------------
    3859             : ! ... complete matrix entries implicit species
    3860             : !----------------------------------------------
    3861   263009123 :       do k = 1,avec_len
    3862   254840160 :          mat(k,693) = -(rxt(k,312)*y(k,258) + rxt(k,314)*y(k,147))
    3863   254840160 :          mat(k,3244) = -rxt(k,312)*y(k,259)
    3864   254840160 :          mat(k,2996) = -rxt(k,314)*y(k,259)
    3865   254840160 :          mat(k,3174) = rxt(k,298)*y(k,258)
    3866   254840160 :          mat(k,3244) = mat(k,3244) + rxt(k,298)*y(k,43)
    3867   254840160 :          mat(k,1298) = -(rxt(k,421)*y(k,258) + (rxt(k,503) + rxt(k,504)) * y(k,147))
    3868   254840160 :          mat(k,3288) = -rxt(k,421)*y(k,260)
    3869   254840160 :          mat(k,3031) = -(rxt(k,503) + rxt(k,504)) * y(k,260)
    3870   254840160 :          mat(k,1866) = .320_r8*rxt(k,418)*y(k,295)
    3871   254840160 :          mat(k,1522) = .810_r8*rxt(k,420)*y(k,295)
    3872   254840160 :          mat(k,4007) = .320_r8*rxt(k,418)*y(k,103) + .810_r8*rxt(k,420)*y(k,106)
    3873             :          mat(k,1953) = -(rxt(k,424)*y(k,252) + rxt(k,425)*y(k,253) + rxt(k,426) &
    3874   254840160 :                       *y(k,258) + (rxt(k,505) + rxt(k,506)) * y(k,147))
    3875   254840160 :          mat(k,2881) = -rxt(k,424)*y(k,261)
    3876   254840160 :          mat(k,3423) = -rxt(k,425)*y(k,261)
    3877   254840160 :          mat(k,3329) = -rxt(k,426)*y(k,261)
    3878   254840160 :          mat(k,3070) = -(rxt(k,505) + rxt(k,506)) * y(k,261)
    3879   254840160 :          mat(k,1899) = .530_r8*rxt(k,489)*y(k,295)
    3880   254840160 :          mat(k,4053) = .530_r8*rxt(k,489)*y(k,123)
    3881             :          mat(k,1991) = -(rxt(k,430)*y(k,252) + rxt(k,431)*y(k,253) + rxt(k,432) &
    3882   254840160 :                       *y(k,258) + (rxt(k,507) + rxt(k,508)) * y(k,147))
    3883   254840160 :          mat(k,2882) = -rxt(k,430)*y(k,262)
    3884   254840160 :          mat(k,3424) = -rxt(k,431)*y(k,262)
    3885   254840160 :          mat(k,3330) = -rxt(k,432)*y(k,262)
    3886   254840160 :          mat(k,3071) = -(rxt(k,507) + rxt(k,508)) * y(k,262)
    3887   254840160 :          mat(k,1900) = .160_r8*rxt(k,489)*y(k,295)
    3888   254840160 :          mat(k,4054) = .160_r8*rxt(k,489)*y(k,123)
    3889   254840160 :          mat(k,1404) = .315_r8*rxt(k,487)*y(k,295)
    3890   254840160 :          mat(k,3890) = .315_r8*rxt(k,487)*y(k,109)
    3891   254840160 :          mat(k,1405) = .315_r8*rxt(k,487)*y(k,295)
    3892   254840160 :          mat(k,3891) = .315_r8*rxt(k,487)*y(k,109)
    3893   254840160 :          mat(k,1406) = .259_r8*rxt(k,487)*y(k,295)
    3894   254840160 :          mat(k,3892) = .259_r8*rxt(k,487)*y(k,109)
    3895   254840160 :          mat(k,1407) = .111_r8*rxt(k,487)*y(k,295)
    3896   254840160 :          mat(k,3893) = .111_r8*rxt(k,487)*y(k,109)
    3897             :          mat(k,1732) = -(rxt(k,444)*y(k,252) + rxt(k,445)*y(k,253) + rxt(k,446) &
    3898   254840160 :                       *y(k,258) + (rxt(k,509) + rxt(k,510)) * y(k,147))
    3899   254840160 :          mat(k,2871) = -rxt(k,444)*y(k,267)
    3900   254840160 :          mat(k,3412) = -rxt(k,445)*y(k,267)
    3901   254840160 :          mat(k,3318) = -rxt(k,446)*y(k,267)
    3902   254840160 :          mat(k,3059) = -(rxt(k,509) + rxt(k,510)) * y(k,267)
    3903             :          mat(k,1754) = -(rxt(k,448)*y(k,252) + rxt(k,449)*y(k,253) + rxt(k,450) &
    3904   254840160 :                       *y(k,258) + (rxt(k,511) + rxt(k,512)) * y(k,147))
    3905   254840160 :          mat(k,2872) = -rxt(k,448)*y(k,268)
    3906   254840160 :          mat(k,3413) = -rxt(k,449)*y(k,268)
    3907   254840160 :          mat(k,3319) = -rxt(k,450)*y(k,268)
    3908   254840160 :          mat(k,3060) = -(rxt(k,511) + rxt(k,512)) * y(k,268)
    3909   254840160 :          mat(k,1121) = -(rxt(k,457)*y(k,258) + (rxt(k,513) + rxt(k,514)) * y(k,147))
    3910   254840160 :          mat(k,3277) = -rxt(k,457)*y(k,269)
    3911   254840160 :          mat(k,3023) = -(rxt(k,513) + rxt(k,514)) * y(k,269)
    3912   254840160 :          mat(k,2061) = .820_r8*rxt(k,460)*y(k,295)
    3913   254840160 :          mat(k,3991) = .820_r8*rxt(k,460)*y(k,115)
    3914   254840160 :          mat(k,1166) = -(rxt(k,461)*y(k,258) + (rxt(k,515) + rxt(k,516)) * y(k,147))
    3915   254840160 :          mat(k,3282) = -rxt(k,461)*y(k,270)
    3916   254840160 :          mat(k,3026) = -(rxt(k,515) + rxt(k,516)) * y(k,270)
    3917   254840160 :          mat(k,674) = .850_r8*rxt(k,463)*y(k,295)
    3918   254840160 :          mat(k,3996) = .850_r8*rxt(k,463)*y(k,116)
    3919   254840160 :          mat(k,1054) = -(rxt(k,464)*y(k,258) + (rxt(k,517) + rxt(k,518)) * y(k,147))
    3920   254840160 :          mat(k,3275) = -rxt(k,464)*y(k,271)
    3921   254840160 :          mat(k,3020) = -(rxt(k,517) + rxt(k,518)) * y(k,271)
    3922   254840160 :          mat(k,594) = .870_r8*rxt(k,466)*y(k,295)
    3923   254840160 :          mat(k,3986) = .870_r8*rxt(k,466)*y(k,117)
    3924   254840160 :          mat(k,1132) = -(rxt(k,467)*y(k,258) + (rxt(k,519) + rxt(k,520)) * y(k,147))
    3925   254840160 :          mat(k,3278) = -rxt(k,467)*y(k,272)
    3926   254840160 :          mat(k,3024) = -(rxt(k,519) + rxt(k,520)) * y(k,272)
    3927   254840160 :          mat(k,2093) = .890_r8*rxt(k,470)*y(k,295)
    3928   254840160 :          mat(k,3992) = .890_r8*rxt(k,470)*y(k,118)
    3929   254840160 :          mat(k,1440) = -(rxt(k,471)*y(k,258) + (rxt(k,521) + rxt(k,522)) * y(k,147))
    3930   254840160 :          mat(k,3295) = -rxt(k,471)*y(k,273)
    3931   254840160 :          mat(k,3038) = -(rxt(k,521) + rxt(k,522)) * y(k,273)
    3932   254840160 :          mat(k,730) = .920_r8*rxt(k,472)*y(k,295)
    3933   254840160 :          mat(k,4017) = .920_r8*rxt(k,472)*y(k,119)
    3934             :          mat(k,2180) = -(rxt(k,474)*y(k,252) + rxt(k,475)*y(k,253) + rxt(k,476) &
    3935             :                       *y(k,258) + 4._r8*rxt(k,477)*y(k,274) + rxt(k,478)*y(k,149) &
    3936   254840160 :                       + (rxt(k,523) + rxt(k,524)) * y(k,147))
    3937   254840160 :          mat(k,2889) = -rxt(k,474)*y(k,274)
    3938   254840160 :          mat(k,3431) = -rxt(k,475)*y(k,274)
    3939   254840160 :          mat(k,3337) = -rxt(k,476)*y(k,274)
    3940   254840160 :          mat(k,3574) = -rxt(k,478)*y(k,274)
    3941   254840160 :          mat(k,3078) = -(rxt(k,523) + rxt(k,524)) * y(k,274)
    3942   254840160 :          mat(k,1422) = rxt(k,473)*y(k,149)
    3943   254840160 :          mat(k,1204) = .170_r8*rxt(k,481)*y(k,295)
    3944   254840160 :          mat(k,1584) = .070_r8*rxt(k,485)*y(k,295)
    3945   254840160 :          mat(k,3574) = mat(k,3574) + rxt(k,473)*y(k,109)
    3946   254840160 :          mat(k,4061) = .170_r8*rxt(k,481)*y(k,120) + .070_r8*rxt(k,485)*y(k,121)
    3947   254840160 :          mat(k,1309) = -(rxt(k,479)*y(k,258) + (rxt(k,525) + rxt(k,526)) * y(k,147))
    3948   254840160 :          mat(k,3289) = -rxt(k,479)*y(k,275)
    3949   254840160 :          mat(k,3032) = -(rxt(k,525) + rxt(k,526)) * y(k,275)
    3950   254840160 :          mat(k,1195) = .410_r8*rxt(k,481)*y(k,295)
    3951   254840160 :          mat(k,4008) = .410_r8*rxt(k,481)*y(k,120)
    3952   254840160 :          mat(k,1361) = -(rxt(k,482)*y(k,258) + (rxt(k,527) + rxt(k,528)) * y(k,147))
    3953   254840160 :          mat(k,3292) = -rxt(k,482)*y(k,276)
    3954   254840160 :          mat(k,3035) = -(rxt(k,527) + rxt(k,528)) * y(k,276)
    3955   254840160 :          mat(k,1565) = .570_r8*rxt(k,485)*y(k,295)
    3956   254840160 :          mat(k,4012) = .570_r8*rxt(k,485)*y(k,121)
    3957   254840160 :          mat(k,81) = -(rxt(k,860)*y(k,258) + rxt(k,861)*y(k,147))
    3958   254840160 :          mat(k,3210) = -rxt(k,860)*y(k,277)
    3959   254840160 :          mat(k,2972) = -rxt(k,861)*y(k,277)
    3960   254840160 :          mat(k,1403) = rxt(k,863)*y(k,295)
    3961   254840160 :          mat(k,3863) = rxt(k,863)*y(k,109)
    3962             :          mat(k,1848) = -(rxt(k,491)*y(k,252) + rxt(k,492)*y(k,253) + rxt(k,493) &
    3963   254840160 :                       *y(k,258) + (rxt(k,530) + rxt(k,531)) * y(k,147))
    3964   254840160 :          mat(k,2876) = -rxt(k,491)*y(k,278)
    3965   254840160 :          mat(k,3418) = -rxt(k,492)*y(k,278)
    3966   254840160 :          mat(k,3324) = -rxt(k,493)*y(k,278)
    3967   254840160 :          mat(k,3065) = -(rxt(k,530) + rxt(k,531)) * y(k,278)
    3968             :          mat(k,1817) = -(rxt(k,495)*y(k,252) + rxt(k,496)*y(k,253) + rxt(k,497) &
    3969   254840160 :                       *y(k,258) + (rxt(k,533) + rxt(k,534)) * y(k,147))
    3970   254840160 :          mat(k,2875) = -rxt(k,495)*y(k,279)
    3971   254840160 :          mat(k,3417) = -rxt(k,496)*y(k,279)
    3972   254840160 :          mat(k,3323) = -rxt(k,497)*y(k,279)
    3973   254840160 :          mat(k,3064) = -(rxt(k,533) + rxt(k,534)) * y(k,279)
    3974   254840160 :          mat(k,87) = -(rxt(k,864)*y(k,258) + rxt(k,865)*y(k,147))
    3975   254840160 :          mat(k,3211) = -rxt(k,864)*y(k,280)
    3976   254840160 :          mat(k,2973) = -rxt(k,865)*y(k,280)
    3977   254840160 :          mat(k,88) = rxt(k,866)*y(k,295)
    3978   254840160 :          mat(k,3864) = rxt(k,866)*y(k,124)
    3979             :          mat(k,2505) = -(rxt(k,645)*y(k,252) + rxt(k,646)*y(k,253) + rxt(k,647) &
    3980             :                       *y(k,258) + 4._r8*rxt(k,648)*y(k,281) + rxt(k,649)*y(k,147) &
    3981             :                       + rxt(k,650)*y(k,149) + rxt(k,651)*y(k,302) + rxt(k,652) &
    3982   254840160 :                       *y(k,304) + rxt(k,653)*y(k,307))
    3983   254840160 :          mat(k,2902) = -rxt(k,645)*y(k,281)
    3984   254840160 :          mat(k,3444) = -rxt(k,646)*y(k,281)
    3985   254840160 :          mat(k,3351) = -rxt(k,647)*y(k,281)
    3986   254840160 :          mat(k,3092) = -rxt(k,649)*y(k,281)
    3987   254840160 :          mat(k,3588) = -rxt(k,650)*y(k,281)
    3988   254840160 :          mat(k,2737) = -rxt(k,651)*y(k,281)
    3989   254840160 :          mat(k,2783) = -rxt(k,652)*y(k,281)
    3990   254840160 :          mat(k,2830) = -rxt(k,653)*y(k,281)
    3991   254840160 :          mat(k,1075) = rxt(k,644)*y(k,149)
    3992   254840160 :          mat(k,3588) = mat(k,3588) + rxt(k,644)*y(k,125)
    3993             :          mat(k,2339) = -(rxt(k,654)*y(k,252) + rxt(k,655)*y(k,253) + rxt(k,656) &
    3994             :                       *y(k,258) + rxt(k,657)*y(k,147) + rxt(k,658)*y(k,149) + rxt(k,659) &
    3995   254840160 :                       *y(k,302) + rxt(k,660)*y(k,304) + rxt(k,661)*y(k,307))
    3996   254840160 :          mat(k,2896) = -rxt(k,654)*y(k,282)
    3997   254840160 :          mat(k,3438) = -rxt(k,655)*y(k,282)
    3998   254840160 :          mat(k,3345) = -rxt(k,656)*y(k,282)
    3999   254840160 :          mat(k,3086) = -rxt(k,657)*y(k,282)
    4000   254840160 :          mat(k,3582) = -rxt(k,658)*y(k,282)
    4001   254840160 :          mat(k,2731) = -rxt(k,659)*y(k,282)
    4002   254840160 :          mat(k,2777) = -rxt(k,660)*y(k,282)
    4003   254840160 :          mat(k,2824) = -rxt(k,661)*y(k,282)
    4004   254840160 :          mat(k,1074) = rxt(k,663)*y(k,295)
    4005   254840160 :          mat(k,4068) = rxt(k,663)*y(k,125)
    4006   254840160 :          mat(k,95) = -(rxt(k,868)*y(k,258) + rxt(k,869)*y(k,147))
    4007   254840160 :          mat(k,3212) = -rxt(k,868)*y(k,283)
    4008   254840160 :          mat(k,2974) = -rxt(k,869)*y(k,283)
    4009   254840160 :          mat(k,1069) = rxt(k,871)*y(k,295)
    4010   254840160 :          mat(k,3866) = rxt(k,871)*y(k,125)
    4011             :          mat(k,1543) = -(rxt(k,381)*y(k,252) + rxt(k,382)*y(k,253) + rxt(k,383) &
    4012   254840160 :                       *y(k,258) + (rxt(k,535) + rxt(k,536)) * y(k,147))
    4013   254840160 :          mat(k,2863) = -rxt(k,381)*y(k,284)
    4014   254840160 :          mat(k,3402) = -rxt(k,382)*y(k,284)
    4015   254840160 :          mat(k,3306) = -rxt(k,383)*y(k,284)
    4016   254840160 :          mat(k,3049) = -(rxt(k,535) + rxt(k,536)) * y(k,284)
    4017   254840160 :          mat(k,2010) = .550_r8*rxt(k,386)*y(k,295)
    4018   254840160 :          mat(k,4029) = .550_r8*rxt(k,386)*y(k,126)
    4019             :          mat(k,862) = -(rxt(k,558)*y(k,258) + rxt(k,559)*y(k,147) + rxt(k,560) &
    4020   254840160 :                       *y(k,148))
    4021   254840160 :          mat(k,3259) = -rxt(k,558)*y(k,285)
    4022   254840160 :          mat(k,3004) = -rxt(k,559)*y(k,285)
    4023   254840160 :          mat(k,3631) = -rxt(k,560)*y(k,285)
    4024             :          mat(k,1620) = -(rxt(k,388)*y(k,252) + rxt(k,389)*y(k,253) + rxt(k,390) &
    4025             :                       *y(k,258) + 4._r8*rxt(k,391)*y(k,286) + rxt(k,392)*y(k,147) &
    4026   254840160 :                       + rxt(k,393)*y(k,149) + rxt(k,406)*y(k,148))
    4027   254840160 :          mat(k,2866) = -rxt(k,388)*y(k,286)
    4028   254840160 :          mat(k,3405) = -rxt(k,389)*y(k,286)
    4029   254840160 :          mat(k,3310) = -rxt(k,390)*y(k,286)
    4030   254840160 :          mat(k,3052) = -rxt(k,392)*y(k,286)
    4031   254840160 :          mat(k,3552) = -rxt(k,393)*y(k,286)
    4032   254840160 :          mat(k,3641) = -rxt(k,406)*y(k,286)
    4033   254840160 :          mat(k,2012) = .450_r8*rxt(k,386)*y(k,295)
    4034   254840160 :          mat(k,4034) = .450_r8*rxt(k,386)*y(k,126)
    4035             :          mat(k,929) = -(rxt(k,561)*y(k,258) + rxt(k,562)*y(k,147) + rxt(k,563) &
    4036   254840160 :                       *y(k,148))
    4037   254840160 :          mat(k,3265) = -rxt(k,561)*y(k,287)
    4038   254840160 :          mat(k,3010) = -rxt(k,562)*y(k,287)
    4039   254840160 :          mat(k,3633) = -rxt(k,563)*y(k,287)
    4040   254840160 :          mat(k,763) = -(rxt(k,394)*y(k,258) + rxt(k,395)*y(k,147))
    4041   254840160 :          mat(k,3249) = -rxt(k,394)*y(k,288)
    4042   254840160 :          mat(k,2999) = -rxt(k,395)*y(k,288)
    4043   254840160 :          mat(k,557) = rxt(k,396)*y(k,295)
    4044   254840160 :          mat(k,333) = rxt(k,397)*y(k,295)
    4045   254840160 :          mat(k,3956) = rxt(k,396)*y(k,129) + rxt(k,397)*y(k,130)
    4046             :          mat(k,1508) = -(rxt(k,400)*y(k,252) + rxt(k,401)*y(k,253) + rxt(k,402) &
    4047   254840160 :                       *y(k,258) + (rxt(k,537) + rxt(k,538)) * y(k,147))
    4048   254840160 :          mat(k,2861) = -rxt(k,400)*y(k,289)
    4049   254840160 :          mat(k,3400) = -rxt(k,401)*y(k,289)
    4050   254840160 :          mat(k,3304) = -rxt(k,402)*y(k,289)
    4051   254840160 :          mat(k,3046) = -(rxt(k,537) + rxt(k,538)) * y(k,289)
    4052   254840160 :          mat(k,2035) = rxt(k,404)*y(k,295)
    4053   254840160 :          mat(k,4026) = rxt(k,404)*y(k,132)
    4054             :          mat(k,2570) = -(rxt(k,665)*y(k,252) + rxt(k,666)*y(k,253) + rxt(k,667) &
    4055             :                       *y(k,258) + 4._r8*rxt(k,668)*y(k,290) + rxt(k,669)*y(k,147) &
    4056             :                       + rxt(k,670)*y(k,149) + rxt(k,671)*y(k,302) + rxt(k,672) &
    4057   254840160 :                       *y(k,304) + rxt(k,673)*y(k,307))
    4058   254840160 :          mat(k,2904) = -rxt(k,665)*y(k,290)
    4059   254840160 :          mat(k,3446) = -rxt(k,666)*y(k,290)
    4060   254840160 :          mat(k,3353) = -rxt(k,667)*y(k,290)
    4061   254840160 :          mat(k,3094) = -rxt(k,669)*y(k,290)
    4062   254840160 :          mat(k,3590) = -rxt(k,670)*y(k,290)
    4063   254840160 :          mat(k,2739) = -rxt(k,671)*y(k,290)
    4064   254840160 :          mat(k,2785) = -rxt(k,672)*y(k,290)
    4065   254840160 :          mat(k,2832) = -rxt(k,673)*y(k,290)
    4066   254840160 :          mat(k,831) = rxt(k,664)*y(k,149)
    4067   263009123 :          mat(k,3590) = mat(k,3590) + rxt(k,664)*y(k,135)
    4068             :       end do
    4069     8168963 :       end subroutine nlnmat14
    4070     8168963 :       subroutine nlnmat15( avec_len, mat, y, rxt )
    4071             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    4072             :       implicit none
    4073             : !----------------------------------------------
    4074             : ! ... dummy arguments
    4075             : !----------------------------------------------
    4076             :       integer, intent(in) :: avec_len
    4077             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    4078             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    4079             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    4080             : !----------------------------------------------
    4081             : ! ... local variables
    4082             : !----------------------------------------------
    4083             :       integer :: k
    4084             : !----------------------------------------------
    4085             : ! ... complete matrix entries implicit species
    4086             : !----------------------------------------------
    4087   263009123 :       do k = 1,avec_len
    4088   254840160 :          mat(k,2471) = -(rxt(k,674)*y(k,252) + rxt(k,675)*y(k,253) + rxt(k,676) &
    4089             :                       *y(k,258) + rxt(k,677)*y(k,147) + rxt(k,678)*y(k,149) + rxt(k,679) &
    4090   254840160 :                       *y(k,302) + rxt(k,680)*y(k,304) + rxt(k,681)*y(k,307))
    4091   254840160 :          mat(k,2901) = -rxt(k,674)*y(k,291)
    4092   254840160 :          mat(k,3443) = -rxt(k,675)*y(k,291)
    4093   254840160 :          mat(k,3350) = -rxt(k,676)*y(k,291)
    4094   254840160 :          mat(k,3091) = -rxt(k,677)*y(k,291)
    4095   254840160 :          mat(k,3587) = -rxt(k,678)*y(k,291)
    4096   254840160 :          mat(k,2736) = -rxt(k,679)*y(k,291)
    4097   254840160 :          mat(k,2782) = -rxt(k,680)*y(k,291)
    4098   254840160 :          mat(k,2829) = -rxt(k,681)*y(k,291)
    4099   254840160 :          mat(k,830) = rxt(k,683)*y(k,295)
    4100   254840160 :          mat(k,4073) = rxt(k,683)*y(k,135)
    4101   254840160 :          mat(k,101) = -(rxt(k,873)*y(k,258) + rxt(k,874)*y(k,147))
    4102   254840160 :          mat(k,3213) = -rxt(k,873)*y(k,292)
    4103   254840160 :          mat(k,2975) = -rxt(k,874)*y(k,292)
    4104   254840160 :          mat(k,826) = rxt(k,876)*y(k,295)
    4105   254840160 :          mat(k,3867) = rxt(k,876)*y(k,135)
    4106   254840160 :          mat(k,1640) = -(rxt(k,499)*y(k,258) + (rxt(k,539) + rxt(k,540)) * y(k,147))
    4107   254840160 :          mat(k,3311) = -rxt(k,499)*y(k,293)
    4108   254840160 :          mat(k,3053) = -(rxt(k,539) + rxt(k,540)) * y(k,293)
    4109   254840160 :          mat(k,505) = .400_r8*rxt(k,422)*y(k,295)
    4110   254840160 :          mat(k,1255) = .350_r8*rxt(k,423)*y(k,295)
    4111   254840160 :          mat(k,2131) = .230_r8*rxt(k,502)*y(k,295)
    4112             :          mat(k,4035) = .400_r8*rxt(k,422)*y(k,107) + .350_r8*rxt(k,423)*y(k,108) &
    4113   254840160 :                       + .230_r8*rxt(k,502)*y(k,139)
    4114             :          mat(k,3808) = -(rxt(k,168)*y(k,79) + rxt(k,169)*y(k,319) + rxt(k,172) &
    4115             :                       *y(k,158) + (rxt(k,210) + rxt(k,211)) * y(k,137) + rxt(k,243) &
    4116             :                       *y(k,34) + rxt(k,244)*y(k,35) + rxt(k,245)*y(k,37) + rxt(k,246) &
    4117             :                       *y(k,38) + rxt(k,247)*y(k,39) + rxt(k,248)*y(k,40) + rxt(k,249) &
    4118             :                       *y(k,41) + (rxt(k,250) + rxt(k,251)) * y(k,87) + rxt(k,270) &
    4119             :                       *y(k,36) + rxt(k,271)*y(k,56) + rxt(k,272)*y(k,80) + (rxt(k,273) &
    4120             :                       + rxt(k,274)) * y(k,83) + rxt(k,279)*y(k,65) + rxt(k,280) &
    4121             :                       *y(k,66) + rxt(k,293)*y(k,42) + rxt(k,294)*y(k,44) + rxt(k,295) &
    4122             :                       *y(k,84) + rxt(k,296)*y(k,85) + rxt(k,297)*y(k,86) + (rxt(k,315) &
    4123   254840160 :                       + rxt(k,316) + rxt(k,317)) * y(k,55) + rxt(k,318)*y(k,88))
    4124   254840160 :          mat(k,1681) = -rxt(k,168)*y(k,294)
    4125   254840160 :          mat(k,4125) = -rxt(k,169)*y(k,294)
    4126   254840160 :          mat(k,3767) = -rxt(k,172)*y(k,294)
    4127   254840160 :          mat(k,203) = -(rxt(k,210) + rxt(k,211)) * y(k,294)
    4128   254840160 :          mat(k,121) = -rxt(k,243)*y(k,294)
    4129   254840160 :          mat(k,162) = -rxt(k,244)*y(k,294)
    4130   254840160 :          mat(k,136) = -rxt(k,245)*y(k,294)
    4131   254840160 :          mat(k,172) = -rxt(k,246)*y(k,294)
    4132   254840160 :          mat(k,140) = -rxt(k,247)*y(k,294)
    4133   254840160 :          mat(k,177) = -rxt(k,248)*y(k,294)
    4134   254840160 :          mat(k,144) = -rxt(k,249)*y(k,294)
    4135   254840160 :          mat(k,3139) = -(rxt(k,250) + rxt(k,251)) * y(k,294)
    4136   254840160 :          mat(k,168) = -rxt(k,270)*y(k,294)
    4137   254840160 :          mat(k,465) = -rxt(k,271)*y(k,294)
    4138   254840160 :          mat(k,129) = -rxt(k,272)*y(k,294)
    4139   254840160 :          mat(k,1155) = -(rxt(k,273) + rxt(k,274)) * y(k,294)
    4140   254840160 :          mat(k,250) = -rxt(k,279)*y(k,294)
    4141   254840160 :          mat(k,258) = -rxt(k,280)*y(k,294)
    4142   254840160 :          mat(k,498) = -rxt(k,293)*y(k,294)
    4143   254840160 :          mat(k,651) = -rxt(k,294)*y(k,294)
    4144   254840160 :          mat(k,253) = -rxt(k,295)*y(k,294)
    4145   254840160 :          mat(k,263) = -rxt(k,296)*y(k,294)
    4146   254840160 :          mat(k,328) = -rxt(k,297)*y(k,294)
    4147   254840160 :          mat(k,2268) = -(rxt(k,315) + rxt(k,316) + rxt(k,317)) * y(k,294)
    4148   254840160 :          mat(k,199) = -rxt(k,318)*y(k,294)
    4149             :          mat(k,4101) = -(rxt(k,185)*y(k,79) + rxt(k,186)*y(k,81) + rxt(k,187)*y(k,258) &
    4150             :                       + rxt(k,188)*y(k,157) + rxt(k,189)*y(k,158) + (4._r8*rxt(k,190) &
    4151             :                       + 4._r8*rxt(k,191)) * y(k,295) + rxt(k,193)*y(k,94) + rxt(k,205) &
    4152             :                       *y(k,149) + rxt(k,206)*y(k,136) + rxt(k,214)*y(k,148) + rxt(k,215) &
    4153             :                       *y(k,93) + rxt(k,234)*y(k,61) + (rxt(k,236) + rxt(k,237) &
    4154             :                       ) * y(k,60) + rxt(k,239)*y(k,87) + rxt(k,242)*y(k,96) + rxt(k,266) &
    4155             :                       *y(k,20) + rxt(k,268)*y(k,83) + rxt(k,282)*y(k,42) + rxt(k,284) &
    4156             :                       *y(k,44) + rxt(k,285)*y(k,45) + rxt(k,287)*y(k,47) + rxt(k,289) &
    4157             :                       *y(k,56) + rxt(k,290)*y(k,84) + rxt(k,291)*y(k,85) + rxt(k,292) &
    4158             :                       *y(k,86) + rxt(k,301)*y(k,43) + rxt(k,306)*y(k,53) + rxt(k,307) &
    4159             :                       *y(k,54) + rxt(k,308)*y(k,55) + rxt(k,309)*y(k,88) + rxt(k,310) &
    4160             :                       *y(k,90) + rxt(k,311)*y(k,92) + rxt(k,319)*y(k,63) + rxt(k,321) &
    4161             :                       *y(k,25) + rxt(k,328)*y(k,27) + rxt(k,329)*y(k,28) + rxt(k,331) &
    4162             :                       *y(k,29) + rxt(k,333)*y(k,46) + rxt(k,334)*y(k,48) + rxt(k,339) &
    4163             :                       *y(k,51) + rxt(k,340)*y(k,52) + rxt(k,345)*y(k,76) + rxt(k,346) &
    4164             :                       *y(k,77) + rxt(k,347)*y(k,89) + rxt(k,348)*y(k,150) + rxt(k,349) &
    4165             :                       *y(k,163) + rxt(k,350)*y(k,26) + rxt(k,358)*y(k,31) + rxt(k,359) &
    4166             :                       *y(k,32) + rxt(k,361)*y(k,50) + rxt(k,362)*y(k,102) + rxt(k,363) &
    4167             :                       *y(k,104) + rxt(k,364)*y(k,151) + rxt(k,367)*y(k,170) + rxt(k,371) &
    4168             :                       *y(k,171) + rxt(k,372)*y(k,30) + rxt(k,373)*y(k,49) + rxt(k,375) &
    4169             :                       *y(k,16) + rxt(k,379)*y(k,97) + rxt(k,380)*y(k,127) + rxt(k,386) &
    4170             :                       *y(k,126) + rxt(k,396)*y(k,129) + rxt(k,397)*y(k,130) + rxt(k,398) &
    4171             :                       *y(k,131) + rxt(k,399)*y(k,133) + rxt(k,404)*y(k,132) + rxt(k,405) &
    4172             :                       *y(k,134) + rxt(k,408)*y(k,1) + rxt(k,412)*y(k,2) + rxt(k,413) &
    4173             :                       *y(k,15) + rxt(k,414)*y(k,98) + rxt(k,415)*y(k,99) + rxt(k,418) &
    4174             :                       *y(k,103) + rxt(k,420)*y(k,106) + rxt(k,422)*y(k,107) + rxt(k,423) &
    4175             :                       *y(k,108) + rxt(k,452)*y(k,111) + rxt(k,453)*y(k,110) + rxt(k,454) &
    4176             :                       *y(k,112) + rxt(k,455)*y(k,113) + rxt(k,460)*y(k,115) + rxt(k,463) &
    4177             :                       *y(k,116) + rxt(k,466)*y(k,117) + rxt(k,470)*y(k,118) + rxt(k,472) &
    4178             :                       *y(k,119) + rxt(k,481)*y(k,120) + rxt(k,485)*y(k,121) + rxt(k,487) &
    4179             :                       *y(k,109) + rxt(k,488)*y(k,122) + (rxt(k,489) + rxt(k,490) &
    4180             :                       ) * y(k,123) + rxt(k,502)*y(k,139) + rxt(k,543)*y(k,8) + rxt(k,546) &
    4181             :                       *y(k,9) + rxt(k,547)*y(k,23) + rxt(k,549)*y(k,24) + rxt(k,553) &
    4182             :                       *y(k,33) + rxt(k,554)*y(k,67) + rxt(k,566)*y(k,166) + rxt(k,569) &
    4183             :                       *y(k,167) + rxt(k,573)*y(k,227) + rxt(k,574)*y(k,228) + rxt(k,576) &
    4184             :                       *y(k,229) + rxt(k,579)*y(k,230) + rxt(k,582)*y(k,231) + rxt(k,583) &
    4185             :                       *y(k,232) + rxt(k,603)*y(k,4) + rxt(k,623)*y(k,7) + rxt(k,643) &
    4186             :                       *y(k,17) + rxt(k,663)*y(k,125) + rxt(k,683)*y(k,135) + rxt(k,689) &
    4187             :                       *y(k,200) + rxt(k,690)*y(k,201) + rxt(k,717)*y(k,203) + rxt(k,718) &
    4188             :                       *y(k,204) + rxt(k,736)*y(k,205) + rxt(k,737)*y(k,206) + rxt(k,746) &
    4189             :                       *y(k,208) + rxt(k,747)*y(k,209) + rxt(k,748)*y(k,207) + rxt(k,756) &
    4190             :                       *y(k,202) + rxt(k,757)*y(k,210) + rxt(k,763)*y(k,212) + rxt(k,768) &
    4191             :                       *y(k,213) + rxt(k,769)*y(k,214) + rxt(k,771)*y(k,216) + rxt(k,774) &
    4192             :                       *y(k,218) + rxt(k,775)*y(k,217) + rxt(k,778)*y(k,220) + rxt(k,782) &
    4193             :                       *y(k,222) + rxt(k,783)*y(k,221) + rxt(k,786)*y(k,224) + rxt(k,787) &
    4194             :                       *y(k,223) + (rxt(k,794) + rxt(k,808)) * y(k,69) + rxt(k,796) &
    4195             :                       *y(k,161) + rxt(k,798)*y(k,175) + rxt(k,802)*y(k,172) + rxt(k,807) &
    4196   254840160 :                       *y(k,174) + rxt(k,810)*y(k,143))
    4197   254840160 :          mat(k,1683) = -rxt(k,185)*y(k,295)
    4198   254840160 :          mat(k,1492) = -rxt(k,186)*y(k,295)
    4199   254840160 :          mat(k,3378) = -rxt(k,187)*y(k,295)
    4200   254840160 :          mat(k,3172) = -rxt(k,188)*y(k,295)
    4201   254840160 :          mat(k,3769) = -rxt(k,189)*y(k,295)
    4202   254840160 :          mat(k,447) = -rxt(k,193)*y(k,295)
    4203   254840160 :          mat(k,3615) = -rxt(k,205)*y(k,295)
    4204   254840160 :          mat(k,483) = -rxt(k,206)*y(k,295)
    4205   254840160 :          mat(k,3667) = -rxt(k,214)*y(k,295)
    4206   254840160 :          mat(k,2960) = -rxt(k,215)*y(k,295)
    4207   254840160 :          mat(k,1333) = -rxt(k,234)*y(k,295)
    4208   254840160 :          mat(k,3521) = -(rxt(k,236) + rxt(k,237)) * y(k,295)
    4209   254840160 :          mat(k,3141) = -rxt(k,239)*y(k,295)
    4210   254840160 :          mat(k,1164) = -rxt(k,242)*y(k,295)
    4211   254840160 :          mat(k,3495) = -rxt(k,266)*y(k,295)
    4212   254840160 :          mat(k,1156) = -rxt(k,268)*y(k,295)
    4213   254840160 :          mat(k,500) = -rxt(k,282)*y(k,295)
    4214   254840160 :          mat(k,653) = -rxt(k,284)*y(k,295)
    4215   254840160 :          mat(k,148) = -rxt(k,285)*y(k,295)
    4216   254840160 :          mat(k,399) = -rxt(k,287)*y(k,295)
    4217   254840160 :          mat(k,467) = -rxt(k,289)*y(k,295)
    4218   254840160 :          mat(k,255) = -rxt(k,290)*y(k,295)
    4219   254840160 :          mat(k,265) = -rxt(k,291)*y(k,295)
    4220   254840160 :          mat(k,330) = -rxt(k,292)*y(k,295)
    4221   254840160 :          mat(k,3198) = -rxt(k,301)*y(k,295)
    4222   254840160 :          mat(k,1497) = -rxt(k,306)*y(k,295)
    4223   254840160 :          mat(k,453) = -rxt(k,307)*y(k,295)
    4224   254840160 :          mat(k,2270) = -rxt(k,308)*y(k,295)
    4225   254840160 :          mat(k,200) = -rxt(k,309)*y(k,295)
    4226   254840160 :          mat(k,1380) = -rxt(k,310)*y(k,295)
    4227   254840160 :          mat(k,1214) = -rxt(k,311)*y(k,295)
    4228   254840160 :          mat(k,2060) = -rxt(k,319)*y(k,295)
    4229   254840160 :          mat(k,315) = -rxt(k,321)*y(k,295)
    4230   254840160 :          mat(k,286) = -rxt(k,328)*y(k,295)
    4231   254840160 :          mat(k,362) = -rxt(k,329)*y(k,295)
    4232   254840160 :          mat(k,320) = -rxt(k,331)*y(k,295)
    4233   254840160 :          mat(k,1438) = -rxt(k,333)*y(k,295)
    4234   254840160 :          mat(k,125) = -rxt(k,334)*y(k,295)
    4235   254840160 :          mat(k,794) = -rxt(k,339)*y(k,295)
    4236   254840160 :          mat(k,707) = -rxt(k,340)*y(k,295)
    4237   254840160 :          mat(k,1717) = -rxt(k,345)*y(k,295)
    4238   254840160 :          mat(k,1480) = -rxt(k,346)*y(k,295)
    4239   254840160 :          mat(k,888) = -rxt(k,347)*y(k,295)
    4240   254840160 :          mat(k,1460) = -rxt(k,348)*y(k,295)
    4241   254840160 :          mat(k,576) = -rxt(k,349)*y(k,295)
    4242   254840160 :          mat(k,592) = -rxt(k,350)*y(k,295)
    4243   254840160 :          mat(k,415) = -rxt(k,358)*y(k,295)
    4244   254840160 :          mat(k,132) = -rxt(k,359)*y(k,295)
    4245   254840160 :          mat(k,1932) = -rxt(k,361)*y(k,295)
    4246   254840160 :          mat(k,1775) = -rxt(k,362)*y(k,295)
    4247   254840160 :          mat(k,928) = -rxt(k,363)*y(k,295)
    4248   254840160 :          mat(k,1486) = -rxt(k,364)*y(k,295)
    4249   254840160 :          mat(k,583) = -rxt(k,367)*y(k,295)
    4250   254840160 :          mat(k,409) = -rxt(k,371)*y(k,295)
    4251   254840160 :          mat(k,1399) = -rxt(k,372)*y(k,295)
    4252   254840160 :          mat(k,2287) = -rxt(k,373)*y(k,295)
    4253   254840160 :          mat(k,384) = -rxt(k,375)*y(k,295)
    4254   254840160 :          mat(k,985) = -rxt(k,379)*y(k,295)
    4255   254840160 :          mat(k,1785) = -rxt(k,380)*y(k,295)
    4256   254840160 :          mat(k,2029) = -rxt(k,386)*y(k,295)
    4257   254840160 :          mat(k,560) = -rxt(k,396)*y(k,295)
    4258   254840160 :          mat(k,336) = -rxt(k,397)*y(k,295)
    4259   254840160 :          mat(k,534) = -rxt(k,398)*y(k,295)
    4260   254840160 :          mat(k,1925) = -rxt(k,399)*y(k,295)
    4261   254840160 :          mat(k,2054) = -rxt(k,404)*y(k,295)
    4262   254840160 :          mat(k,1505) = -rxt(k,405)*y(k,295)
    4263   254840160 :          mat(k,761) = -rxt(k,408)*y(k,295)
    4264   254840160 :          mat(k,727) = -rxt(k,412)*y(k,295)
    4265   254840160 :          mat(k,206) = -rxt(k,413)*y(k,295)
    4266   254840160 :          mat(k,625) = -rxt(k,414)*y(k,295)
    4267   254840160 :          mat(k,638) = -rxt(k,415)*y(k,295)
    4268   254840160 :          mat(k,1882) = -rxt(k,418)*y(k,295)
    4269   254840160 :          mat(k,1535) = -rxt(k,420)*y(k,295)
    4270   254840160 :          mat(k,511) = -rxt(k,422)*y(k,295)
    4271   254840160 :          mat(k,1264) = -rxt(k,423)*y(k,295)
    4272   254840160 :          mat(k,1120) = -rxt(k,452)*y(k,295)
    4273   254840160 :          mat(k,1670) = -rxt(k,453)*y(k,295)
    4274   254840160 :          mat(k,1802) = -rxt(k,454)*y(k,295)
    4275   254840160 :          mat(k,1474) = -rxt(k,455)*y(k,295)
    4276   254840160 :          mat(k,2091) = -rxt(k,460)*y(k,295)
    4277   254840160 :          mat(k,681) = -rxt(k,463)*y(k,295)
    4278   254840160 :          mat(k,600) = -rxt(k,466)*y(k,295)
    4279   254840160 :          mat(k,2123) = -rxt(k,470)*y(k,295)
    4280   254840160 :          mat(k,737) = -rxt(k,472)*y(k,295)
    4281   254840160 :          mat(k,1209) = -rxt(k,481)*y(k,295)
    4282   254840160 :          mat(k,1595) = -rxt(k,485)*y(k,295)
    4283   254840160 :          mat(k,1429) = -rxt(k,487)*y(k,295)
    4284   254840160 :          mat(k,923) = -rxt(k,488)*y(k,295)
    4285   254840160 :          mat(k,1910) = -(rxt(k,489) + rxt(k,490)) * y(k,295)
    4286   254840160 :          mat(k,2152) = -rxt(k,502)*y(k,295)
    4287   254840160 :          mat(k,187) = -rxt(k,543)*y(k,295)
    4288   254840160 :          mat(k,422) = -rxt(k,546)*y(k,295)
    4289   254840160 :          mat(k,247) = -rxt(k,547)*y(k,295)
    4290   254840160 :          mat(k,357) = -rxt(k,549)*y(k,295)
    4291   254840160 :          mat(k,290) = -rxt(k,553)*y(k,295)
    4292   254840160 :          mat(k,222) = -rxt(k,554)*y(k,295)
    4293   254840160 :          mat(k,196) = -rxt(k,566)*y(k,295)
    4294   254840160 :          mat(k,351) = -rxt(k,569)*y(k,295)
    4295   254840160 :          mat(k,750) = -rxt(k,573)*y(k,295)
    4296   254840160 :          mat(k,217) = -rxt(k,574)*y(k,295)
    4297   254840160 :          mat(k,236) = -rxt(k,576)*y(k,295)
    4298   254840160 :          mat(k,852) = -rxt(k,579)*y(k,295)
    4299   254840160 :          mat(k,241) = -rxt(k,582)*y(k,295)
    4300   254840160 :          mat(k,434) = -rxt(k,583)*y(k,295)
    4301   254840160 :          mat(k,1288) = -rxt(k,603)*y(k,295)
    4302   254840160 :          mat(k,1053) = -rxt(k,623)*y(k,295)
    4303   254840160 :          mat(k,1105) = -rxt(k,643)*y(k,295)
    4304   254840160 :          mat(k,1084) = -rxt(k,663)*y(k,295)
    4305   254840160 :          mat(k,837) = -rxt(k,683)*y(k,295)
    4306   254840160 :          mat(k,2332) = -rxt(k,689)*y(k,295)
    4307   254840160 :          mat(k,475) = -rxt(k,690)*y(k,295)
    4308   254840160 :          mat(k,1296) = -rxt(k,717)*y(k,295)
    4309   254840160 :          mat(k,663) = -rxt(k,718)*y(k,295)
    4310   254840160 :          mat(k,1725) = -rxt(k,736)*y(k,295)
    4311   254840160 :          mat(k,672) = -rxt(k,737)*y(k,295)
    4312   254840160 :          mat(k,367) = -rxt(k,746)*y(k,295)
    4313   254840160 :          mat(k,372) = -rxt(k,747)*y(k,295)
    4314   254840160 :          mat(k,782) = -rxt(k,748)*y(k,295)
    4315   254840160 :          mat(k,2367) = -rxt(k,756)*y(k,295)
    4316   254840160 :          mat(k,428) = -rxt(k,757)*y(k,295)
    4317   254840160 :          mat(k,2645) = -rxt(k,763)*y(k,295)
    4318   254840160 :          mat(k,2617) = -rxt(k,768)*y(k,295)
    4319   254840160 :          mat(k,1233) = -rxt(k,769)*y(k,295)
    4320   254840160 :          mat(k,1109) = -rxt(k,771)*y(k,295)
    4321   254840160 :          mat(k,688) = -rxt(k,774)*y(k,295)
    4322   254840160 :          mat(k,992) = -rxt(k,775)*y(k,295)
    4323   254840160 :          mat(k,790) = -rxt(k,778)*y(k,295)
    4324   254840160 :          mat(k,1696) = -rxt(k,782)*y(k,295)
    4325   254840160 :          mat(k,1561) = -rxt(k,783)*y(k,295)
    4326   254840160 :          mat(k,1709) = -rxt(k,786)*y(k,295)
    4327   254840160 :          mat(k,1541) = -rxt(k,787)*y(k,295)
    4328   254840160 :          mat(k,309) = -(rxt(k,794) + rxt(k,808)) * y(k,295)
    4329   254840160 :          mat(k,392) = -rxt(k,796)*y(k,295)
    4330   254840160 :          mat(k,1239) = -rxt(k,798)*y(k,295)
    4331   254840160 :          mat(k,548) = -rxt(k,802)*y(k,295)
    4332   254840160 :          mat(k,1611) = -rxt(k,807)*y(k,295)
    4333   254840160 :          mat(k,118) = -rxt(k,810)*y(k,295)
    4334   254840160 :          mat(k,1288) = mat(k,1288) + .770_r8*rxt(k,602)*y(k,158)
    4335   254840160 :          mat(k,1053) = mat(k,1053) + .080_r8*rxt(k,622)*y(k,158)
    4336   254840160 :          mat(k,1105) = mat(k,1105) + .300_r8*rxt(k,642)*y(k,158)
    4337   254840160 :          mat(k,315) = mat(k,315) + .650_r8*rxt(k,321)*y(k,295)
    4338   254840160 :          mat(k,592) = mat(k,592) + .130_r8*rxt(k,323)*y(k,158)
    4339   254840160 :          mat(k,362) = mat(k,362) + .500_r8*rxt(k,329)*y(k,295)
    4340   254840160 :          mat(k,1399) = mat(k,1399) + .360_r8*rxt(k,354)*y(k,158)
    4341   254840160 :          mat(k,3198) = mat(k,3198) + rxt(k,300)*y(k,157)
    4342   254840160 :          mat(k,453) = mat(k,453) + .300_r8*rxt(k,307)*y(k,295)
    4343   254840160 :          mat(k,2270) = mat(k,2270) + rxt(k,315)*y(k,294)
    4344   254840160 :          mat(k,3851) = rxt(k,223)*y(k,258)
    4345   254840160 :          mat(k,1249) = rxt(k,277)*y(k,319)
    4346   254840160 :          mat(k,2942) = rxt(k,184)*y(k,158) + 2.000_r8*rxt(k,179)*y(k,258)
    4347   254840160 :          mat(k,1683) = mat(k,1683) + rxt(k,176)*y(k,157) + rxt(k,168)*y(k,294)
    4348   254840160 :          mat(k,1492) = mat(k,1492) + rxt(k,177)*y(k,157)
    4349   254840160 :          mat(k,1156) = mat(k,1156) + rxt(k,267)*y(k,157) + rxt(k,273)*y(k,294)
    4350   254840160 :          mat(k,3141) = mat(k,3141) + rxt(k,238)*y(k,157) + rxt(k,250)*y(k,294)
    4351   254840160 :          mat(k,200) = mat(k,200) + rxt(k,318)*y(k,294)
    4352   254840160 :          mat(k,888) = mat(k,888) + .890_r8*rxt(k,347)*y(k,295)
    4353   254840160 :          mat(k,1214) = mat(k,1214) + .500_r8*rxt(k,311)*y(k,295)
    4354   254840160 :          mat(k,1001) = rxt(k,269)*y(k,157)
    4355   254840160 :          mat(k,1164) = mat(k,1164) + rxt(k,241)*y(k,157)
    4356   254840160 :          mat(k,625) = mat(k,625) + .430_r8*rxt(k,414)*y(k,295)
    4357   254840160 :          mat(k,638) = mat(k,638) + .530_r8*rxt(k,415)*y(k,295)
    4358   254840160 :          mat(k,1882) = mat(k,1882) + 1.080_r8*rxt(k,418)*y(k,295)
    4359   254840160 :          mat(k,928) = mat(k,928) + .700_r8*rxt(k,363)*y(k,295)
    4360   254840160 :          mat(k,1429) = mat(k,1429) + .250_r8*rxt(k,486)*y(k,158)
    4361   254840160 :          mat(k,1802) = mat(k,1802) + .500_r8*rxt(k,454)*y(k,295)
    4362             :          mat(k,2091) = mat(k,2091) + .340_r8*rxt(k,459)*y(k,158) + .060_r8*rxt(k,460) &
    4363   254840160 :                       *y(k,295)
    4364             :          mat(k,2123) = mat(k,2123) + .340_r8*rxt(k,469)*y(k,158) + .040_r8*rxt(k,470) &
    4365   254840160 :                       *y(k,295)
    4366   254840160 :          mat(k,737) = mat(k,737) + .030_r8*rxt(k,472)*y(k,295)
    4367   254840160 :          mat(k,1209) = mat(k,1209) + .420_r8*rxt(k,481)*y(k,295)
    4368             :          mat(k,1595) = mat(k,1595) + .510_r8*rxt(k,484)*y(k,158) + .290_r8*rxt(k,485) &
    4369   254840160 :                       *y(k,295)
    4370   254840160 :          mat(k,1910) = mat(k,1910) + (.130_r8*rxt(k,489)+.920_r8*rxt(k,490))*y(k,295)
    4371   254840160 :          mat(k,1084) = mat(k,1084) + .660_r8*rxt(k,662)*y(k,158)
    4372   254840160 :          mat(k,2029) = mat(k,2029) + .240_r8*rxt(k,385)*y(k,158)
    4373   254840160 :          mat(k,2054) = mat(k,2054) + .360_r8*rxt(k,403)*y(k,158)
    4374   254840160 :          mat(k,837) = mat(k,837) + .630_r8*rxt(k,682)*y(k,158)
    4375   254840160 :          mat(k,2152) = mat(k,2152) + .340_r8*rxt(k,501)*y(k,158)
    4376             :          mat(k,3119) = rxt(k,207)*y(k,258) + .550_r8*rxt(k,509)*y(k,267) &
    4377             :                       + .550_r8*rxt(k,511)*y(k,268) + .470_r8*rxt(k,525)*y(k,275) &
    4378             :                       + .040_r8*rxt(k,527)*y(k,276) + .550_r8*rxt(k,530)*y(k,278) &
    4379   254840160 :                       + .550_r8*rxt(k,533)*y(k,279)
    4380   254840160 :          mat(k,3615) = mat(k,3615) + rxt(k,202)*y(k,258)
    4381             :          mat(k,3172) = mat(k,3172) + rxt(k,300)*y(k,43) + rxt(k,176)*y(k,79) &
    4382             :                       + rxt(k,177)*y(k,81) + rxt(k,267)*y(k,83) + rxt(k,238)*y(k,87) &
    4383   254840160 :                       + rxt(k,269)*y(k,95) + rxt(k,241)*y(k,96) + rxt(k,182)*y(k,258)
    4384             :          mat(k,3769) = mat(k,3769) + .770_r8*rxt(k,602)*y(k,4) + .080_r8*rxt(k,622) &
    4385             :                       *y(k,7) + .300_r8*rxt(k,642)*y(k,17) + .130_r8*rxt(k,323) &
    4386             :                       *y(k,26) + .360_r8*rxt(k,354)*y(k,30) + rxt(k,184)*y(k,78) &
    4387             :                       + .250_r8*rxt(k,486)*y(k,109) + .340_r8*rxt(k,459)*y(k,115) &
    4388             :                       + .340_r8*rxt(k,469)*y(k,118) + .510_r8*rxt(k,484)*y(k,121) &
    4389             :                       + .660_r8*rxt(k,662)*y(k,125) + .240_r8*rxt(k,385)*y(k,126) &
    4390             :                       + .360_r8*rxt(k,403)*y(k,132) + .630_r8*rxt(k,682)*y(k,135) &
    4391             :                       + .340_r8*rxt(k,501)*y(k,139) + .090_r8*rxt(k,762)*y(k,212) &
    4392   254840160 :                       + rxt(k,183)*y(k,258)
    4393   254840160 :          mat(k,583) = mat(k,583) + .500_r8*rxt(k,367)*y(k,295)
    4394   254840160 :          mat(k,2645) = mat(k,2645) + .090_r8*rxt(k,762)*y(k,158)
    4395   254840160 :          mat(k,555) = .400_r8*rxt(k,541)*y(k,258)
    4396   254840160 :          mat(k,2313) = .700_r8*rxt(k,588)*y(k,258)
    4397   254840160 :          mat(k,2458) = .350_r8*rxt(k,596)*y(k,258)
    4398   254840160 :          mat(k,2229) = .500_r8*rxt(k,608)*y(k,258)
    4399   254840160 :          mat(k,2426) = .100_r8*rxt(k,616)*y(k,258)
    4400   254840160 :          mat(k,2552) = .470_r8*rxt(k,628)*y(k,258)
    4401   254840160 :          mat(k,2397) = .030_r8*rxt(k,636)*y(k,258)
    4402             :          mat(k,2927) = .490_r8*rxt(k,337)*y(k,258) + .550_r8*rxt(k,444)*y(k,267) &
    4403             :                       + .550_r8*rxt(k,448)*y(k,268) + .550_r8*rxt(k,491)*y(k,278) &
    4404   254840160 :                       + .550_r8*rxt(k,495)*y(k,279)
    4405             :          mat(k,3471) = .280_r8*rxt(k,445)*y(k,267) + .280_r8*rxt(k,449)*y(k,268) &
    4406   254840160 :                       + .280_r8*rxt(k,492)*y(k,278) + .280_r8*rxt(k,496)*y(k,279)
    4407   254840160 :          mat(k,913) = .400_r8*rxt(k,555)*y(k,258)
    4408             :          mat(k,3378) = mat(k,3378) + rxt(k,223)*y(k,57) + 2.000_r8*rxt(k,179)*y(k,78) &
    4409             :                       + rxt(k,207)*y(k,147) + rxt(k,202)*y(k,149) + rxt(k,182) &
    4410             :                       *y(k,157) + rxt(k,183)*y(k,158) + .400_r8*rxt(k,541)*y(k,235) &
    4411             :                       + .700_r8*rxt(k,588)*y(k,237) + .350_r8*rxt(k,596)*y(k,238) &
    4412             :                       + .500_r8*rxt(k,608)*y(k,240) + .100_r8*rxt(k,616)*y(k,241) &
    4413             :                       + .470_r8*rxt(k,628)*y(k,245) + .030_r8*rxt(k,636)*y(k,246) &
    4414             :                       + .490_r8*rxt(k,337)*y(k,252) + .400_r8*rxt(k,555)*y(k,254) &
    4415             :                       + .200_r8*rxt(k,312)*y(k,259) + .650_r8*rxt(k,421)*y(k,260) &
    4416             :                       + .060_r8*rxt(k,426)*y(k,261) + .060_r8*rxt(k,432)*y(k,262) &
    4417             :                       + .580_r8*rxt(k,457)*y(k,269) + .520_r8*rxt(k,461)*y(k,270) &
    4418             :                       + .600_r8*rxt(k,464)*y(k,271) + .500_r8*rxt(k,467)*y(k,272) &
    4419             :                       + .400_r8*rxt(k,471)*y(k,273) + .240_r8*rxt(k,476)*y(k,274) &
    4420             :                       + .850_r8*rxt(k,479)*y(k,275) + .860_r8*rxt(k,482)*y(k,276) &
    4421             :                       + .500_r8*rxt(k,647)*y(k,281) + .100_r8*rxt(k,656)*y(k,282) &
    4422             :                       + .590_r8*rxt(k,383)*y(k,284) + .490_r8*rxt(k,390)*y(k,286) &
    4423             :                       + .400_r8*rxt(k,561)*y(k,287) + .200_r8*rxt(k,394)*y(k,288) &
    4424             :                       + .540_r8*rxt(k,402)*y(k,289) + .480_r8*rxt(k,667)*y(k,290) &
    4425             :                       + .100_r8*rxt(k,676)*y(k,291) + .800_r8*rxt(k,499)*y(k,293) &
    4426             :                       + .150_r8*rxt(k,369)*y(k,298) + .180_r8*rxt(k,687)*y(k,299) &
    4427             :                       + .180_r8*rxt(k,691)*y(k,300) + .490_r8*rxt(k,703)*y(k,302) &
    4428             :                       + .380_r8*rxt(k,711)*y(k,303) + .490_r8*rxt(k,721)*y(k,304) &
    4429             :                       + .150_r8*rxt(k,730)*y(k,305) + .530_r8*rxt(k,740)*y(k,306) &
    4430             :                       + .490_r8*rxt(k,751)*y(k,307) + .100_r8*rxt(k,760)*y(k,308) &
    4431             :                       + .100_r8*rxt(k,765)*y(k,309) + .100_r8*rxt(k,772)*y(k,310) &
    4432             :                       + .100_r8*rxt(k,776)*y(k,311) + .100_r8*rxt(k,780)*y(k,312) &
    4433   254840160 :                       + .100_r8*rxt(k,784)*y(k,313)
    4434   254840160 :          mat(k,700) = .200_r8*rxt(k,312)*y(k,258)
    4435   254840160 :          mat(k,1308) = .650_r8*rxt(k,421)*y(k,258)
    4436   254840160 :          mat(k,1968) = .060_r8*rxt(k,426)*y(k,258)
    4437   254840160 :          mat(k,2007) = .060_r8*rxt(k,432)*y(k,258)
    4438             :          mat(k,1747) = .550_r8*rxt(k,509)*y(k,147) + .550_r8*rxt(k,444)*y(k,252) &
    4439   254840160 :                       + .280_r8*rxt(k,445)*y(k,253)
    4440             :          mat(k,1769) = .550_r8*rxt(k,511)*y(k,147) + .550_r8*rxt(k,448)*y(k,252) &
    4441   254840160 :                       + .280_r8*rxt(k,449)*y(k,253)
    4442   254840160 :          mat(k,1131) = .580_r8*rxt(k,457)*y(k,258)
    4443   254840160 :          mat(k,1177) = .520_r8*rxt(k,461)*y(k,258)
    4444   254840160 :          mat(k,1063) = .600_r8*rxt(k,464)*y(k,258)
    4445   254840160 :          mat(k,1142) = .500_r8*rxt(k,467)*y(k,258)
    4446   254840160 :          mat(k,1453) = .400_r8*rxt(k,471)*y(k,258)
    4447   254840160 :          mat(k,2195) = .240_r8*rxt(k,476)*y(k,258)
    4448   254840160 :          mat(k,1322) = .470_r8*rxt(k,525)*y(k,147) + .850_r8*rxt(k,479)*y(k,258)
    4449   254840160 :          mat(k,1376) = .040_r8*rxt(k,527)*y(k,147) + .860_r8*rxt(k,482)*y(k,258)
    4450             :          mat(k,1864) = .550_r8*rxt(k,530)*y(k,147) + .550_r8*rxt(k,491)*y(k,252) &
    4451   254840160 :                       + .280_r8*rxt(k,492)*y(k,253)
    4452             :          mat(k,1833) = .550_r8*rxt(k,533)*y(k,147) + .550_r8*rxt(k,495)*y(k,252) &
    4453   254840160 :                       + .280_r8*rxt(k,496)*y(k,253)
    4454   254840160 :          mat(k,2523) = .500_r8*rxt(k,647)*y(k,258)
    4455   254840160 :          mat(k,2357) = .100_r8*rxt(k,656)*y(k,258)
    4456   254840160 :          mat(k,1556) = .590_r8*rxt(k,383)*y(k,258)
    4457   254840160 :          mat(k,1632) = .490_r8*rxt(k,390)*y(k,258)
    4458   254840160 :          mat(k,937) = .400_r8*rxt(k,561)*y(k,258)
    4459   254840160 :          mat(k,769) = .200_r8*rxt(k,394)*y(k,258)
    4460   254840160 :          mat(k,1520) = .540_r8*rxt(k,402)*y(k,258)
    4461   254840160 :          mat(k,2588) = .480_r8*rxt(k,667)*y(k,258)
    4462   254840160 :          mat(k,2489) = .100_r8*rxt(k,676)*y(k,258)
    4463   254840160 :          mat(k,1655) = .800_r8*rxt(k,499)*y(k,258)
    4464             :          mat(k,3810) = rxt(k,315)*y(k,55) + rxt(k,168)*y(k,79) + rxt(k,273)*y(k,83) &
    4465             :                       + rxt(k,250)*y(k,87) + rxt(k,318)*y(k,88) + 2.000_r8*rxt(k,169) &
    4466   254840160 :                       *y(k,319)
    4467             :          mat(k,4101) = mat(k,4101) + .650_r8*rxt(k,321)*y(k,25) + .500_r8*rxt(k,329) &
    4468             :                       *y(k,28) + .300_r8*rxt(k,307)*y(k,54) + .890_r8*rxt(k,347) &
    4469             :                       *y(k,89) + .500_r8*rxt(k,311)*y(k,92) + .430_r8*rxt(k,414) &
    4470             :                       *y(k,98) + .530_r8*rxt(k,415)*y(k,99) + 1.080_r8*rxt(k,418) &
    4471             :                       *y(k,103) + .700_r8*rxt(k,363)*y(k,104) + .500_r8*rxt(k,454) &
    4472             :                       *y(k,112) + .060_r8*rxt(k,460)*y(k,115) + .040_r8*rxt(k,470) &
    4473             :                       *y(k,118) + .030_r8*rxt(k,472)*y(k,119) + .420_r8*rxt(k,481) &
    4474             :                       *y(k,120) + .290_r8*rxt(k,485)*y(k,121) + (.130_r8*rxt(k,489) &
    4475   254840160 :                        +.920_r8*rxt(k,490))*y(k,123) + .500_r8*rxt(k,367)*y(k,170)
    4476   254840160 :          mat(k,1346) = .150_r8*rxt(k,369)*y(k,258)
    4477   254840160 :          mat(k,959) = .180_r8*rxt(k,687)*y(k,258)
    4478   254840160 :          mat(k,1013) = .180_r8*rxt(k,691)*y(k,258)
    4479   254840160 :          mat(k,2760) = .490_r8*rxt(k,703)*y(k,258)
    4480   254840160 :          mat(k,2714) = .380_r8*rxt(k,711)*y(k,258)
    4481   254840160 :          mat(k,2806) = .490_r8*rxt(k,721)*y(k,258)
    4482   254840160 :          mat(k,2253) = .150_r8*rxt(k,730)*y(k,258)
    4483   254840160 :          mat(k,2691) = .530_r8*rxt(k,740)*y(k,258)
    4484   254840160 :          mat(k,2853) = .490_r8*rxt(k,751)*y(k,258)
    4485   254840160 :          mat(k,804) = .100_r8*rxt(k,760)*y(k,258)
    4486   254840160 :          mat(k,968) = .100_r8*rxt(k,765)*y(k,258)
    4487   254840160 :          mat(k,1226) = .100_r8*rxt(k,772)*y(k,258)
    4488   254840160 :          mat(k,1022) = .100_r8*rxt(k,776)*y(k,258)
    4489   254840160 :          mat(k,812) = .100_r8*rxt(k,780)*y(k,258)
    4490   254840160 :          mat(k,820) = .100_r8*rxt(k,784)*y(k,258)
    4491   263009123 :          mat(k,4127) = rxt(k,277)*y(k,75) + 2.000_r8*rxt(k,169)*y(k,294)
    4492             :       end do
    4493     8168963 :       end subroutine nlnmat15
    4494     8168963 :       subroutine nlnmat16( avec_len, mat, y, rxt )
    4495             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    4496             :       implicit none
    4497             : !----------------------------------------------
    4498             : ! ... dummy arguments
    4499             : !----------------------------------------------
    4500             :       integer, intent(in) :: avec_len
    4501             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    4502             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    4503             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    4504             : !----------------------------------------------
    4505             : ! ... local variables
    4506             : !----------------------------------------------
    4507             :       integer :: k
    4508             : !----------------------------------------------
    4509             : ! ... complete matrix entries implicit species
    4510             : !----------------------------------------------
    4511   263009123 :       do k = 1,avec_len
    4512   254840160 :          mat(k,456) = -(rxt(k,564)*y(k,258) + rxt(k,565)*y(k,147))
    4513   254840160 :          mat(k,3233) = -rxt(k,564)*y(k,296)
    4514   254840160 :          mat(k,2984) = -rxt(k,565)*y(k,296)
    4515   254840160 :          mat(k,219) = .200_r8*rxt(k,554)*y(k,295)
    4516   254840160 :          mat(k,193) = .140_r8*rxt(k,566)*y(k,295)
    4517   254840160 :          mat(k,348) = rxt(k,569)*y(k,295)
    4518             :          mat(k,3919) = .200_r8*rxt(k,554)*y(k,67) + .140_r8*rxt(k,566)*y(k,166) &
    4519   254840160 :                       + rxt(k,569)*y(k,167)
    4520   254840160 :          mat(k,939) = -(rxt(k,365)*y(k,258) + rxt(k,366)*y(k,147))
    4521   254840160 :          mat(k,3266) = -rxt(k,365)*y(k,297)
    4522   254840160 :          mat(k,3011) = -rxt(k,366)*y(k,297)
    4523   254840160 :          mat(k,1383) = rxt(k,372)*y(k,295)
    4524   254840160 :          mat(k,578) = .500_r8*rxt(k,367)*y(k,295)
    4525   254840160 :          mat(k,3976) = rxt(k,372)*y(k,30) + .500_r8*rxt(k,367)*y(k,170)
    4526             :          mat(k,1336) = -(rxt(k,368)*y(k,253) + rxt(k,369)*y(k,258) + rxt(k,370) &
    4527   254840160 :                       *y(k,147))
    4528   254840160 :          mat(k,3390) = -rxt(k,368)*y(k,298)
    4529   254840160 :          mat(k,3290) = -rxt(k,369)*y(k,298)
    4530   254840160 :          mat(k,3033) = -rxt(k,370)*y(k,298)
    4531   254840160 :          mat(k,2272) = rxt(k,373)*y(k,295)
    4532   254840160 :          mat(k,406) = rxt(k,371)*y(k,295)
    4533   254840160 :          mat(k,4010) = rxt(k,373)*y(k,49) + rxt(k,371)*y(k,171)
    4534   254840160 :          mat(k,951) = -(rxt(k,687)*y(k,258) + rxt(k,688)*y(k,147))
    4535   254840160 :          mat(k,3267) = -rxt(k,687)*y(k,299)
    4536   254840160 :          mat(k,3012) = -rxt(k,688)*y(k,299)
    4537   254840160 :          mat(k,2315) = rxt(k,689)*y(k,295)
    4538   254840160 :          mat(k,3977) = rxt(k,689)*y(k,200)
    4539   254840160 :          mat(k,1006) = -(rxt(k,691)*y(k,258) + rxt(k,692)*y(k,147))
    4540   254840160 :          mat(k,3272) = -rxt(k,691)*y(k,300)
    4541   254840160 :          mat(k,3017) = -rxt(k,692)*y(k,300)
    4542   254840160 :          mat(k,472) = rxt(k,690)*y(k,295)
    4543   254840160 :          mat(k,3982) = rxt(k,690)*y(k,201)
    4544             :          mat(k,2654) = -(rxt(k,693)*y(k,252) + rxt(k,694)*y(k,253) + rxt(k,695) &
    4545             :                       *y(k,258) + rxt(k,696)*y(k,147) + rxt(k,697)*y(k,149) + rxt(k,698) &
    4546   254840160 :                       *y(k,302) + rxt(k,699)*y(k,304))
    4547   254840160 :          mat(k,2907) = -rxt(k,693)*y(k,301)
    4548   254840160 :          mat(k,3449) = -rxt(k,694)*y(k,301)
    4549   254840160 :          mat(k,3356) = -rxt(k,695)*y(k,301)
    4550   254840160 :          mat(k,3097) = -rxt(k,696)*y(k,301)
    4551   254840160 :          mat(k,3593) = -rxt(k,697)*y(k,301)
    4552   254840160 :          mat(k,2742) = -rxt(k,698)*y(k,301)
    4553   254840160 :          mat(k,2788) = -rxt(k,699)*y(k,301)
    4554   254840160 :          mat(k,3097) = mat(k,3097) + rxt(k,752)*y(k,307)
    4555   254840160 :          mat(k,3593) = mat(k,3593) + rxt(k,753)*y(k,307)
    4556   254840160 :          mat(k,780) = .290_r8*rxt(k,748)*y(k,295)
    4557   254840160 :          mat(k,1107) = .860_r8*rxt(k,771)*y(k,295)
    4558   254840160 :          mat(k,2298) = rxt(k,593)*y(k,307)
    4559   254840160 :          mat(k,2443) = rxt(k,601)*y(k,307)
    4560   254840160 :          mat(k,2215) = rxt(k,613)*y(k,307)
    4561   254840160 :          mat(k,2411) = rxt(k,621)*y(k,307)
    4562   254840160 :          mat(k,2537) = rxt(k,633)*y(k,307)
    4563   254840160 :          mat(k,2382) = rxt(k,641)*y(k,307)
    4564   254840160 :          mat(k,2907) = mat(k,2907) + rxt(k,749)*y(k,307)
    4565   254840160 :          mat(k,3449) = mat(k,3449) + rxt(k,750)*y(k,307)
    4566   254840160 :          mat(k,3356) = mat(k,3356) + .490_r8*rxt(k,751)*y(k,307)
    4567   254840160 :          mat(k,2508) = rxt(k,653)*y(k,307)
    4568   254840160 :          mat(k,2342) = rxt(k,661)*y(k,307)
    4569   254840160 :          mat(k,2573) = rxt(k,673)*y(k,307)
    4570   254840160 :          mat(k,2474) = rxt(k,681)*y(k,307)
    4571   254840160 :          mat(k,4079) = .290_r8*rxt(k,748)*y(k,207) + .860_r8*rxt(k,771)*y(k,216)
    4572   254840160 :          mat(k,2742) = mat(k,2742) + rxt(k,707)*y(k,307)
    4573   254840160 :          mat(k,2699) = rxt(k,716)*y(k,307)
    4574   254840160 :          mat(k,2788) = mat(k,2788) + rxt(k,726)*y(k,307)
    4575   254840160 :          mat(k,2238) = rxt(k,735)*y(k,307)
    4576   254840160 :          mat(k,2676) = rxt(k,745)*y(k,307)
    4577             :          mat(k,2835) = rxt(k,752)*y(k,147) + rxt(k,753)*y(k,149) + rxt(k,593)*y(k,237) &
    4578             :                       + rxt(k,601)*y(k,238) + rxt(k,613)*y(k,240) + rxt(k,621) &
    4579             :                       *y(k,241) + rxt(k,633)*y(k,245) + rxt(k,641)*y(k,246) &
    4580             :                       + rxt(k,749)*y(k,252) + rxt(k,750)*y(k,253) + .490_r8*rxt(k,751) &
    4581             :                       *y(k,258) + rxt(k,653)*y(k,281) + rxt(k,661)*y(k,282) &
    4582             :                       + rxt(k,673)*y(k,290) + rxt(k,681)*y(k,291) + rxt(k,707) &
    4583             :                       *y(k,302) + rxt(k,716)*y(k,303) + rxt(k,726)*y(k,304) &
    4584             :                       + rxt(k,735)*y(k,305) + rxt(k,745)*y(k,306) &
    4585   254840160 :                       + 4.000_r8*rxt(k,754)*y(k,307)
    4586             :          mat(k,2745) = -(rxt(k,591)*y(k,237) + rxt(k,599)*y(k,238) + rxt(k,611) &
    4587             :                       *y(k,240) + rxt(k,619)*y(k,241) + rxt(k,631)*y(k,245) + rxt(k,639) &
    4588             :                       *y(k,246) + rxt(k,651)*y(k,281) + rxt(k,659)*y(k,282) + rxt(k,671) &
    4589             :                       *y(k,290) + rxt(k,679)*y(k,291) + rxt(k,684)*y(k,148) + rxt(k,698) &
    4590             :                       *y(k,301) + rxt(k,701)*y(k,252) + rxt(k,702)*y(k,253) + rxt(k,703) &
    4591             :                       *y(k,258) + rxt(k,704)*y(k,147) + rxt(k,705)*y(k,149) &
    4592             :                       + 4._r8*rxt(k,706)*y(k,302) + rxt(k,707)*y(k,307) + rxt(k,714) &
    4593             :                       *y(k,303) + rxt(k,724)*y(k,304) + rxt(k,733)*y(k,305) + rxt(k,743) &
    4594   254840160 :                       *y(k,306))
    4595   254840160 :          mat(k,2301) = -rxt(k,591)*y(k,302)
    4596   254840160 :          mat(k,2446) = -rxt(k,599)*y(k,302)
    4597   254840160 :          mat(k,2218) = -rxt(k,611)*y(k,302)
    4598   254840160 :          mat(k,2414) = -rxt(k,619)*y(k,302)
    4599   254840160 :          mat(k,2540) = -rxt(k,631)*y(k,302)
    4600   254840160 :          mat(k,2385) = -rxt(k,639)*y(k,302)
    4601   254840160 :          mat(k,2511) = -rxt(k,651)*y(k,302)
    4602   254840160 :          mat(k,2345) = -rxt(k,659)*y(k,302)
    4603   254840160 :          mat(k,2576) = -rxt(k,671)*y(k,302)
    4604   254840160 :          mat(k,2477) = -rxt(k,679)*y(k,302)
    4605   254840160 :          mat(k,3648) = -rxt(k,684)*y(k,302)
    4606   254840160 :          mat(k,2657) = -rxt(k,698)*y(k,302)
    4607   254840160 :          mat(k,2910) = -rxt(k,701)*y(k,302)
    4608   254840160 :          mat(k,3452) = -rxt(k,702)*y(k,302)
    4609   254840160 :          mat(k,3359) = -rxt(k,703)*y(k,302)
    4610   254840160 :          mat(k,3100) = -rxt(k,704)*y(k,302)
    4611   254840160 :          mat(k,3596) = -rxt(k,705)*y(k,302)
    4612   254840160 :          mat(k,2838) = -rxt(k,707)*y(k,302)
    4613   254840160 :          mat(k,2702) = -rxt(k,714)*y(k,302)
    4614   254840160 :          mat(k,2791) = -rxt(k,724)*y(k,302)
    4615   254840160 :          mat(k,2241) = -rxt(k,733)*y(k,302)
    4616   254840160 :          mat(k,2679) = -rxt(k,743)*y(k,302)
    4617   254840160 :          mat(k,1282) = .270_r8*rxt(k,602)*y(k,158)
    4618   254840160 :          mat(k,1101) = .300_r8*rxt(k,642)*y(k,158)
    4619   254840160 :          mat(k,3596) = mat(k,3596) + rxt(k,708)*y(k,203)
    4620   254840160 :          mat(k,3750) = .270_r8*rxt(k,602)*y(k,4) + .300_r8*rxt(k,642)*y(k,17)
    4621   254840160 :          mat(k,1292) = rxt(k,708)*y(k,149) + rxt(k,717)*y(k,295)
    4622   254840160 :          mat(k,366) = .710_r8*rxt(k,746)*y(k,295)
    4623   254840160 :          mat(k,1108) = .140_r8*rxt(k,771)*y(k,295)
    4624             :          mat(k,4082) = rxt(k,717)*y(k,203) + .710_r8*rxt(k,746)*y(k,208) &
    4625   254840160 :                       + .140_r8*rxt(k,771)*y(k,216)
    4626             :          mat(k,2701) = -(rxt(k,709)*y(k,252) + rxt(k,710)*y(k,253) + rxt(k,711) &
    4627             :                       *y(k,258) + rxt(k,712)*y(k,147) + rxt(k,713)*y(k,149) + rxt(k,715) &
    4628   254840160 :                       *y(k,304) + rxt(k,716)*y(k,307))
    4629   254840160 :          mat(k,2909) = -rxt(k,709)*y(k,303)
    4630   254840160 :          mat(k,3451) = -rxt(k,710)*y(k,303)
    4631   254840160 :          mat(k,3358) = -rxt(k,711)*y(k,303)
    4632   254840160 :          mat(k,3099) = -rxt(k,712)*y(k,303)
    4633   254840160 :          mat(k,3595) = -rxt(k,713)*y(k,303)
    4634   254840160 :          mat(k,2790) = -rxt(k,715)*y(k,303)
    4635   254840160 :          mat(k,2837) = -rxt(k,716)*y(k,303)
    4636   254840160 :          mat(k,1281) = .330_r8*rxt(k,602)*y(k,158)
    4637   254840160 :          mat(k,3099) = mat(k,3099) + .700_r8*rxt(k,696)*y(k,301) + rxt(k,704)*y(k,302)
    4638   254840160 :          mat(k,3595) = mat(k,3595) + rxt(k,697)*y(k,301) + rxt(k,705)*y(k,302)
    4639   254840160 :          mat(k,3749) = .330_r8*rxt(k,602)*y(k,4)
    4640   254840160 :          mat(k,2361) = .230_r8*rxt(k,756)*y(k,295)
    4641   254840160 :          mat(k,365) = .290_r8*rxt(k,746)*y(k,295)
    4642   254840160 :          mat(k,2300) = rxt(k,591)*y(k,302)
    4643   254840160 :          mat(k,2445) = rxt(k,599)*y(k,302)
    4644   254840160 :          mat(k,2217) = rxt(k,611)*y(k,302)
    4645   254840160 :          mat(k,2413) = rxt(k,619)*y(k,302)
    4646   254840160 :          mat(k,2539) = rxt(k,631)*y(k,302)
    4647   254840160 :          mat(k,2384) = rxt(k,639)*y(k,302)
    4648   254840160 :          mat(k,2909) = mat(k,2909) + rxt(k,693)*y(k,301) + rxt(k,701)*y(k,302)
    4649   254840160 :          mat(k,3451) = mat(k,3451) + .500_r8*rxt(k,694)*y(k,301) + rxt(k,702)*y(k,302)
    4650   254840160 :          mat(k,3358) = mat(k,3358) + .490_r8*rxt(k,703)*y(k,302)
    4651   254840160 :          mat(k,2510) = rxt(k,651)*y(k,302)
    4652   254840160 :          mat(k,2344) = rxt(k,659)*y(k,302)
    4653   254840160 :          mat(k,2575) = rxt(k,671)*y(k,302)
    4654   254840160 :          mat(k,2476) = rxt(k,679)*y(k,302)
    4655   254840160 :          mat(k,4081) = .230_r8*rxt(k,756)*y(k,202) + .290_r8*rxt(k,746)*y(k,208)
    4656             :          mat(k,2656) = .700_r8*rxt(k,696)*y(k,147) + rxt(k,697)*y(k,149) + rxt(k,693) &
    4657             :                       *y(k,252) + .500_r8*rxt(k,694)*y(k,253) + 2.000_r8*rxt(k,698) &
    4658   254840160 :                       *y(k,302) + rxt(k,699)*y(k,304) + rxt(k,700)*y(k,307)
    4659             :          mat(k,2744) = rxt(k,704)*y(k,147) + rxt(k,705)*y(k,149) + rxt(k,591)*y(k,237) &
    4660             :                       + rxt(k,599)*y(k,238) + rxt(k,611)*y(k,240) + rxt(k,619) &
    4661             :                       *y(k,241) + rxt(k,631)*y(k,245) + rxt(k,639)*y(k,246) &
    4662             :                       + rxt(k,701)*y(k,252) + rxt(k,702)*y(k,253) + .490_r8*rxt(k,703) &
    4663             :                       *y(k,258) + rxt(k,651)*y(k,281) + rxt(k,659)*y(k,282) &
    4664             :                       + rxt(k,671)*y(k,290) + rxt(k,679)*y(k,291) &
    4665             :                       + 2.000_r8*rxt(k,698)*y(k,301) + 4.000_r8*rxt(k,706)*y(k,302) &
    4666             :                       + rxt(k,724)*y(k,304) + rxt(k,733)*y(k,305) + rxt(k,743) &
    4667   254840160 :                       *y(k,306) + rxt(k,707)*y(k,307)
    4668   254840160 :          mat(k,2790) = mat(k,2790) + rxt(k,699)*y(k,301) + rxt(k,724)*y(k,302)
    4669   254840160 :          mat(k,2240) = rxt(k,733)*y(k,302)
    4670   254840160 :          mat(k,2678) = rxt(k,743)*y(k,302)
    4671   254840160 :          mat(k,2837) = mat(k,2837) + rxt(k,700)*y(k,301) + rxt(k,707)*y(k,302)
    4672             :          mat(k,2792) = -(rxt(k,592)*y(k,237) + rxt(k,600)*y(k,238) + rxt(k,612) &
    4673             :                       *y(k,240) + rxt(k,620)*y(k,241) + rxt(k,632)*y(k,245) + rxt(k,640) &
    4674             :                       *y(k,246) + rxt(k,652)*y(k,281) + rxt(k,660)*y(k,282) + rxt(k,672) &
    4675             :                       *y(k,290) + rxt(k,680)*y(k,291) + rxt(k,685)*y(k,148) + rxt(k,699) &
    4676             :                       *y(k,301) + rxt(k,715)*y(k,303) + rxt(k,719)*y(k,252) + rxt(k,720) &
    4677             :                       *y(k,253) + rxt(k,721)*y(k,258) + rxt(k,722)*y(k,147) + rxt(k,723) &
    4678             :                       *y(k,149) + rxt(k,724)*y(k,302) + 4._r8*rxt(k,725)*y(k,304) &
    4679             :                       + rxt(k,726)*y(k,307) + rxt(k,734)*y(k,305) + rxt(k,744) &
    4680   254840160 :                       *y(k,306))
    4681   254840160 :          mat(k,2302) = -rxt(k,592)*y(k,304)
    4682   254840160 :          mat(k,2447) = -rxt(k,600)*y(k,304)
    4683   254840160 :          mat(k,2219) = -rxt(k,612)*y(k,304)
    4684   254840160 :          mat(k,2415) = -rxt(k,620)*y(k,304)
    4685   254840160 :          mat(k,2541) = -rxt(k,632)*y(k,304)
    4686   254840160 :          mat(k,2386) = -rxt(k,640)*y(k,304)
    4687   254840160 :          mat(k,2512) = -rxt(k,652)*y(k,304)
    4688   254840160 :          mat(k,2346) = -rxt(k,660)*y(k,304)
    4689   254840160 :          mat(k,2577) = -rxt(k,672)*y(k,304)
    4690   254840160 :          mat(k,2478) = -rxt(k,680)*y(k,304)
    4691   254840160 :          mat(k,3649) = -rxt(k,685)*y(k,304)
    4692   254840160 :          mat(k,2658) = -rxt(k,699)*y(k,304)
    4693   254840160 :          mat(k,2703) = -rxt(k,715)*y(k,304)
    4694   254840160 :          mat(k,2911) = -rxt(k,719)*y(k,304)
    4695   254840160 :          mat(k,3453) = -rxt(k,720)*y(k,304)
    4696   254840160 :          mat(k,3360) = -rxt(k,721)*y(k,304)
    4697   254840160 :          mat(k,3101) = -rxt(k,722)*y(k,304)
    4698   254840160 :          mat(k,3597) = -rxt(k,723)*y(k,304)
    4699   254840160 :          mat(k,2746) = -rxt(k,724)*y(k,304)
    4700   254840160 :          mat(k,2839) = -rxt(k,726)*y(k,304)
    4701   254840160 :          mat(k,2242) = -rxt(k,734)*y(k,304)
    4702   254840160 :          mat(k,2680) = -rxt(k,744)*y(k,304)
    4703   254840160 :          mat(k,1078) = .330_r8*rxt(k,662)*y(k,158)
    4704   254840160 :          mat(k,3597) = mat(k,3597) + rxt(k,727)*y(k,205)
    4705   254840160 :          mat(k,3751) = .330_r8*rxt(k,662)*y(k,125)
    4706   254840160 :          mat(k,1721) = rxt(k,727)*y(k,149) + .750_r8*rxt(k,736)*y(k,295)
    4707   254840160 :          mat(k,371) = .710_r8*rxt(k,747)*y(k,295)
    4708   254840160 :          mat(k,2633) = .170_r8*rxt(k,763)*y(k,295)
    4709             :          mat(k,4083) = .750_r8*rxt(k,736)*y(k,205) + .710_r8*rxt(k,747)*y(k,209) &
    4710   254840160 :                       + .170_r8*rxt(k,763)*y(k,212)
    4711             :          mat(k,2235) = -(rxt(k,728)*y(k,252) + rxt(k,729)*y(k,253) + rxt(k,730) &
    4712             :                       *y(k,258) + rxt(k,731)*y(k,147) + rxt(k,732)*y(k,149) + rxt(k,733) &
    4713   254840160 :                       *y(k,302) + rxt(k,734)*y(k,304) + rxt(k,735)*y(k,307))
    4714   254840160 :          mat(k,2891) = -rxt(k,728)*y(k,305)
    4715   254840160 :          mat(k,3433) = -rxt(k,729)*y(k,305)
    4716   254840160 :          mat(k,3340) = -rxt(k,730)*y(k,305)
    4717   254840160 :          mat(k,3081) = -rxt(k,731)*y(k,305)
    4718   254840160 :          mat(k,3577) = -rxt(k,732)*y(k,305)
    4719   254840160 :          mat(k,2727) = -rxt(k,733)*y(k,305)
    4720   254840160 :          mat(k,2773) = -rxt(k,734)*y(k,305)
    4721   254840160 :          mat(k,2820) = -rxt(k,735)*y(k,305)
    4722   254840160 :          mat(k,3081) = mat(k,3081) + .830_r8*rxt(k,712)*y(k,303)
    4723   254840160 :          mat(k,3577) = mat(k,3577) + rxt(k,713)*y(k,303)
    4724   254840160 :          mat(k,2891) = mat(k,2891) + rxt(k,709)*y(k,303)
    4725   254840160 :          mat(k,3433) = mat(k,3433) + rxt(k,710)*y(k,303)
    4726   254840160 :          mat(k,3340) = mat(k,3340) + .380_r8*rxt(k,711)*y(k,303)
    4727   254840160 :          mat(k,2727) = mat(k,2727) + rxt(k,714)*y(k,303)
    4728             :          mat(k,2696) = .830_r8*rxt(k,712)*y(k,147) + rxt(k,713)*y(k,149) + rxt(k,709) &
    4729             :                       *y(k,252) + rxt(k,710)*y(k,253) + .380_r8*rxt(k,711)*y(k,258) &
    4730             :                       + rxt(k,714)*y(k,302) + rxt(k,715)*y(k,304) + rxt(k,716) &
    4731   254840160 :                       *y(k,307)
    4732   254840160 :          mat(k,2773) = mat(k,2773) + rxt(k,715)*y(k,303)
    4733   263009123 :          mat(k,2820) = mat(k,2820) + rxt(k,716)*y(k,303)
    4734             :       end do
    4735     8168963 :       end subroutine nlnmat16
    4736     8168963 :       subroutine nlnmat17( avec_len, mat, y, rxt )
    4737             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    4738             :       implicit none
    4739             : !----------------------------------------------
    4740             : ! ... dummy arguments
    4741             : !----------------------------------------------
    4742             :       integer, intent(in) :: avec_len
    4743             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    4744             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    4745             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    4746             : !----------------------------------------------
    4747             : ! ... local variables
    4748             : !----------------------------------------------
    4749             :       integer :: k
    4750             : !----------------------------------------------
    4751             : ! ... complete matrix entries implicit species
    4752             : !----------------------------------------------
    4753   263009123 :       do k = 1,avec_len
    4754   254840160 :          mat(k,2677) = -(rxt(k,738)*y(k,252) + rxt(k,739)*y(k,253) + rxt(k,740) &
    4755             :                       *y(k,258) + rxt(k,741)*y(k,147) + rxt(k,742)*y(k,149) + rxt(k,743) &
    4756   254840160 :                       *y(k,302) + rxt(k,745)*y(k,307))
    4757   254840160 :          mat(k,2908) = -rxt(k,738)*y(k,306)
    4758   254840160 :          mat(k,3450) = -rxt(k,739)*y(k,306)
    4759   254840160 :          mat(k,3357) = -rxt(k,740)*y(k,306)
    4760   254840160 :          mat(k,3098) = -rxt(k,741)*y(k,306)
    4761   254840160 :          mat(k,3594) = -rxt(k,742)*y(k,306)
    4762   254840160 :          mat(k,2743) = -rxt(k,743)*y(k,306)
    4763   254840160 :          mat(k,2836) = -rxt(k,745)*y(k,306)
    4764   254840160 :          mat(k,3098) = mat(k,3098) + rxt(k,722)*y(k,304) + .700_r8*rxt(k,731)*y(k,305)
    4765   254840160 :          mat(k,3594) = mat(k,3594) + rxt(k,723)*y(k,304) + rxt(k,732)*y(k,305)
    4766   254840160 :          mat(k,1720) = .250_r8*rxt(k,736)*y(k,295)
    4767   254840160 :          mat(k,370) = .290_r8*rxt(k,747)*y(k,295)
    4768   254840160 :          mat(k,2299) = rxt(k,592)*y(k,304)
    4769   254840160 :          mat(k,2444) = rxt(k,600)*y(k,304)
    4770   254840160 :          mat(k,2216) = rxt(k,612)*y(k,304)
    4771   254840160 :          mat(k,2412) = rxt(k,620)*y(k,304)
    4772   254840160 :          mat(k,2538) = rxt(k,632)*y(k,304)
    4773   254840160 :          mat(k,2383) = rxt(k,640)*y(k,304)
    4774   254840160 :          mat(k,2908) = mat(k,2908) + rxt(k,719)*y(k,304) + rxt(k,728)*y(k,305)
    4775   254840160 :          mat(k,3450) = mat(k,3450) + rxt(k,720)*y(k,304) + rxt(k,729)*y(k,305)
    4776             :          mat(k,3357) = mat(k,3357) + .490_r8*rxt(k,721)*y(k,304) + .150_r8*rxt(k,730) &
    4777   254840160 :                       *y(k,305)
    4778   254840160 :          mat(k,2509) = rxt(k,652)*y(k,304)
    4779   254840160 :          mat(k,2343) = rxt(k,660)*y(k,304)
    4780   254840160 :          mat(k,2574) = rxt(k,672)*y(k,304)
    4781   254840160 :          mat(k,2475) = rxt(k,680)*y(k,304)
    4782   254840160 :          mat(k,4080) = .250_r8*rxt(k,736)*y(k,205) + .290_r8*rxt(k,747)*y(k,209)
    4783   254840160 :          mat(k,2655) = rxt(k,699)*y(k,304)
    4784   254840160 :          mat(k,2743) = mat(k,2743) + rxt(k,724)*y(k,304) + rxt(k,733)*y(k,305)
    4785   254840160 :          mat(k,2700) = rxt(k,715)*y(k,304)
    4786             :          mat(k,2789) = rxt(k,722)*y(k,147) + rxt(k,723)*y(k,149) + rxt(k,592)*y(k,237) &
    4787             :                       + rxt(k,600)*y(k,238) + rxt(k,612)*y(k,240) + rxt(k,620) &
    4788             :                       *y(k,241) + rxt(k,632)*y(k,245) + rxt(k,640)*y(k,246) &
    4789             :                       + rxt(k,719)*y(k,252) + rxt(k,720)*y(k,253) + .490_r8*rxt(k,721) &
    4790             :                       *y(k,258) + rxt(k,652)*y(k,281) + rxt(k,660)*y(k,282) &
    4791             :                       + rxt(k,672)*y(k,290) + rxt(k,680)*y(k,291) + rxt(k,699) &
    4792             :                       *y(k,301) + rxt(k,724)*y(k,302) + rxt(k,715)*y(k,303) &
    4793             :                       + 4.000_r8*rxt(k,725)*y(k,304) + 2.000_r8*rxt(k,734)*y(k,305) &
    4794   254840160 :                       + rxt(k,726)*y(k,307)
    4795             :          mat(k,2239) = .700_r8*rxt(k,731)*y(k,147) + rxt(k,732)*y(k,149) + rxt(k,728) &
    4796             :                       *y(k,252) + rxt(k,729)*y(k,253) + .150_r8*rxt(k,730)*y(k,258) &
    4797             :                       + rxt(k,733)*y(k,302) + 2.000_r8*rxt(k,734)*y(k,304) &
    4798   254840160 :                       + rxt(k,735)*y(k,307)
    4799   254840160 :          mat(k,2836) = mat(k,2836) + rxt(k,726)*y(k,304) + rxt(k,735)*y(k,305)
    4800             :          mat(k,2840) = -(rxt(k,593)*y(k,237) + rxt(k,601)*y(k,238) + rxt(k,613) &
    4801             :                       *y(k,240) + rxt(k,621)*y(k,241) + rxt(k,633)*y(k,245) + rxt(k,641) &
    4802             :                       *y(k,246) + rxt(k,653)*y(k,281) + rxt(k,661)*y(k,282) + rxt(k,673) &
    4803             :                       *y(k,290) + rxt(k,681)*y(k,291) + rxt(k,686)*y(k,148) + rxt(k,700) &
    4804             :                       *y(k,301) + rxt(k,707)*y(k,302) + rxt(k,716)*y(k,303) + rxt(k,726) &
    4805             :                       *y(k,304) + rxt(k,735)*y(k,305) + rxt(k,745)*y(k,306) + rxt(k,749) &
    4806             :                       *y(k,252) + rxt(k,750)*y(k,253) + rxt(k,751)*y(k,258) + rxt(k,752) &
    4807   254840160 :                       *y(k,147) + rxt(k,753)*y(k,149) + 4._r8*rxt(k,754)*y(k,307))
    4808   254840160 :          mat(k,2303) = -rxt(k,593)*y(k,307)
    4809   254840160 :          mat(k,2448) = -rxt(k,601)*y(k,307)
    4810   254840160 :          mat(k,2220) = -rxt(k,613)*y(k,307)
    4811   254840160 :          mat(k,2416) = -rxt(k,621)*y(k,307)
    4812   254840160 :          mat(k,2542) = -rxt(k,633)*y(k,307)
    4813   254840160 :          mat(k,2387) = -rxt(k,641)*y(k,307)
    4814   254840160 :          mat(k,2513) = -rxt(k,653)*y(k,307)
    4815   254840160 :          mat(k,2347) = -rxt(k,661)*y(k,307)
    4816   254840160 :          mat(k,2578) = -rxt(k,673)*y(k,307)
    4817   254840160 :          mat(k,2479) = -rxt(k,681)*y(k,307)
    4818   254840160 :          mat(k,3650) = -rxt(k,686)*y(k,307)
    4819   254840160 :          mat(k,2659) = -rxt(k,700)*y(k,307)
    4820   254840160 :          mat(k,2747) = -rxt(k,707)*y(k,307)
    4821   254840160 :          mat(k,2704) = -rxt(k,716)*y(k,307)
    4822   254840160 :          mat(k,2793) = -rxt(k,726)*y(k,307)
    4823   254840160 :          mat(k,2243) = -rxt(k,735)*y(k,307)
    4824   254840160 :          mat(k,2681) = -rxt(k,745)*y(k,307)
    4825   254840160 :          mat(k,2912) = -rxt(k,749)*y(k,307)
    4826   254840160 :          mat(k,3454) = -rxt(k,750)*y(k,307)
    4827   254840160 :          mat(k,3361) = -rxt(k,751)*y(k,307)
    4828   254840160 :          mat(k,3102) = -rxt(k,752)*y(k,307)
    4829   254840160 :          mat(k,3598) = -rxt(k,753)*y(k,307)
    4830   254840160 :          mat(k,3598) = mat(k,3598) + rxt(k,755)*y(k,202)
    4831   254840160 :          mat(k,2362) = rxt(k,755)*y(k,149) + .770_r8*rxt(k,756)*y(k,295)
    4832   254840160 :          mat(k,781) = .710_r8*rxt(k,748)*y(k,295)
    4833   254840160 :          mat(k,4084) = .770_r8*rxt(k,756)*y(k,202) + .710_r8*rxt(k,748)*y(k,207)
    4834   254840160 :          mat(k,797) = -(rxt(k,760)*y(k,258) + rxt(k,761)*y(k,147))
    4835   254840160 :          mat(k,3254) = -rxt(k,760)*y(k,308)
    4836   254840160 :          mat(k,3000) = -rxt(k,761)*y(k,308)
    4837   254840160 :          mat(k,2619) = .830_r8*rxt(k,763)*y(k,295)
    4838   254840160 :          mat(k,3961) = .830_r8*rxt(k,763)*y(k,212)
    4839   254840160 :          mat(k,960) = -(rxt(k,765)*y(k,258) + rxt(k,766)*y(k,147))
    4840   254840160 :          mat(k,3268) = -rxt(k,765)*y(k,309)
    4841   254840160 :          mat(k,3013) = -rxt(k,766)*y(k,309)
    4842   254840160 :          mat(k,2590) = rxt(k,768)*y(k,295)
    4843   254840160 :          mat(k,3978) = rxt(k,768)*y(k,213)
    4844   254840160 :          mat(k,1218) = -(rxt(k,772)*y(k,258) + rxt(k,773)*y(k,147))
    4845   254840160 :          mat(k,3286) = -rxt(k,772)*y(k,310)
    4846   254840160 :          mat(k,3029) = -rxt(k,773)*y(k,310)
    4847   254840160 :          mat(k,683) = rxt(k,774)*y(k,295)
    4848   254840160 :          mat(k,4000) = rxt(k,774)*y(k,218)
    4849   254840160 :          mat(k,1015) = -(rxt(k,776)*y(k,258) + rxt(k,777)*y(k,147))
    4850   254840160 :          mat(k,3273) = -rxt(k,776)*y(k,311)
    4851   254840160 :          mat(k,3018) = -rxt(k,777)*y(k,311)
    4852   254840160 :          mat(k,784) = rxt(k,778)*y(k,295)
    4853   254840160 :          mat(k,3983) = rxt(k,778)*y(k,220)
    4854   254840160 :          mat(k,805) = -(rxt(k,780)*y(k,258) + rxt(k,781)*y(k,147))
    4855   254840160 :          mat(k,3255) = -rxt(k,780)*y(k,312)
    4856   254840160 :          mat(k,3001) = -rxt(k,781)*y(k,312)
    4857   254840160 :          mat(k,1685) = rxt(k,782)*y(k,295)
    4858   254840160 :          mat(k,3962) = rxt(k,782)*y(k,222)
    4859   254840160 :          mat(k,813) = -(rxt(k,784)*y(k,258) + rxt(k,785)*y(k,147))
    4860   254840160 :          mat(k,3256) = -rxt(k,784)*y(k,313)
    4861   254840160 :          mat(k,3002) = -rxt(k,785)*y(k,313)
    4862   254840160 :          mat(k,1697) = rxt(k,786)*y(k,295)
    4863   254840160 :          mat(k,3963) = rxt(k,786)*y(k,224)
    4864   254840160 :          mat(k,873) = -(rxt(k,571)*y(k,258) + rxt(k,572)*y(k,147))
    4865   254840160 :          mat(k,3260) = -rxt(k,571)*y(k,314)
    4866   254840160 :          mat(k,3005) = -rxt(k,572)*y(k,314)
    4867   254840160 :          mat(k,743) = rxt(k,573)*y(k,295)
    4868   254840160 :          mat(k,215) = .650_r8*rxt(k,574)*y(k,295)
    4869   254840160 :          mat(k,3968) = rxt(k,573)*y(k,227) + .650_r8*rxt(k,574)*y(k,228)
    4870   254840160 :          mat(k,107) = -(rxt(k,879)*y(k,258) + rxt(k,880)*y(k,147))
    4871   254840160 :          mat(k,3214) = -rxt(k,879)*y(k,315)
    4872   254840160 :          mat(k,2976) = -rxt(k,880)*y(k,315)
    4873   254840160 :          mat(k,210) = rxt(k,878)*y(k,295)
    4874   254840160 :          mat(k,3868) = rxt(k,878)*y(k,228)
    4875   254840160 :          mat(k,895) = -(rxt(k,577)*y(k,258) + rxt(k,578)*y(k,147))
    4876   254840160 :          mat(k,3262) = -rxt(k,577)*y(k,316)
    4877   254840160 :          mat(k,3007) = -rxt(k,578)*y(k,316)
    4878   254840160 :          mat(k,232) = .560_r8*rxt(k,576)*y(k,295)
    4879   254840160 :          mat(k,844) = rxt(k,579)*y(k,295)
    4880   254840160 :          mat(k,3970) = .560_r8*rxt(k,576)*y(k,229) + rxt(k,579)*y(k,230)
    4881   254840160 :          mat(k,113) = -(rxt(k,882)*y(k,258) + rxt(k,883)*y(k,147))
    4882   254840160 :          mat(k,3215) = -rxt(k,882)*y(k,317)
    4883   254840160 :          mat(k,2977) = -rxt(k,883)*y(k,317)
    4884   254840160 :          mat(k,227) = rxt(k,881)*y(k,295)
    4885   254840160 :          mat(k,3869) = rxt(k,881)*y(k,229)
    4886   254840160 :          mat(k,536) = -(rxt(k,580)*y(k,258) + rxt(k,581)*y(k,147))
    4887   254840160 :          mat(k,3238) = -rxt(k,580)*y(k,318)
    4888   254840160 :          mat(k,2989) = -rxt(k,581)*y(k,318)
    4889   254840160 :          mat(k,239) = .300_r8*rxt(k,582)*y(k,295)
    4890   254840160 :          mat(k,430) = rxt(k,583)*y(k,295)
    4891   254840160 :          mat(k,3931) = .300_r8*rxt(k,582)*y(k,231) + rxt(k,583)*y(k,232)
    4892             :          mat(k,4128) = -(rxt(k,169)*y(k,294) + rxt(k,277)*y(k,75) + rxt(k,809) &
    4893   254840160 :                       *y(k,176))
    4894   254840160 :          mat(k,3811) = -rxt(k,169)*y(k,319)
    4895   254840160 :          mat(k,1250) = -rxt(k,277)*y(k,319)
    4896   254840160 :          mat(k,282) = -rxt(k,809)*y(k,319)
    4897   254840160 :          mat(k,321) = rxt(k,331)*y(k,295)
    4898   254840160 :          mat(k,416) = rxt(k,358)*y(k,295)
    4899   254840160 :          mat(k,133) = rxt(k,359)*y(k,295)
    4900   254840160 :          mat(k,501) = rxt(k,282)*y(k,295)
    4901   254840160 :          mat(k,3199) = rxt(k,301)*y(k,295)
    4902   254840160 :          mat(k,654) = rxt(k,284)*y(k,295)
    4903   254840160 :          mat(k,149) = rxt(k,285)*y(k,295)
    4904   254840160 :          mat(k,1439) = rxt(k,333)*y(k,295)
    4905   254840160 :          mat(k,400) = rxt(k,287)*y(k,295)
    4906   254840160 :          mat(k,2288) = rxt(k,373)*y(k,295)
    4907   254840160 :          mat(k,1933) = rxt(k,361)*y(k,295)
    4908   254840160 :          mat(k,795) = rxt(k,339)*y(k,295)
    4909   254840160 :          mat(k,708) = rxt(k,340)*y(k,295)
    4910   254840160 :          mat(k,454) = rxt(k,307)*y(k,295)
    4911   254840160 :          mat(k,2271) = rxt(k,308)*y(k,295)
    4912   254840160 :          mat(k,2943) = rxt(k,180)*y(k,258)
    4913   254840160 :          mat(k,1684) = rxt(k,185)*y(k,295)
    4914   254840160 :          mat(k,1493) = rxt(k,186)*y(k,295)
    4915   254840160 :          mat(k,1157) = rxt(k,268)*y(k,295)
    4916   254840160 :          mat(k,331) = rxt(k,292)*y(k,295)
    4917             :          mat(k,3142) = (rxt(k,892)+rxt(k,897))*y(k,95) + (rxt(k,885)+rxt(k,891) &
    4918   254840160 :                        +rxt(k,896))*y(k,96) + rxt(k,239)*y(k,295)
    4919   254840160 :          mat(k,1381) = rxt(k,310)*y(k,295)
    4920   254840160 :          mat(k,1215) = rxt(k,311)*y(k,295)
    4921   254840160 :          mat(k,2961) = rxt(k,215)*y(k,295)
    4922   254840160 :          mat(k,448) = rxt(k,193)*y(k,295)
    4923   254840160 :          mat(k,1002) = (rxt(k,892)+rxt(k,897))*y(k,87)
    4924             :          mat(k,1165) = (rxt(k,885)+rxt(k,891)+rxt(k,896))*y(k,87) + rxt(k,242) &
    4925   254840160 :                       *y(k,295)
    4926   254840160 :          mat(k,2030) = .450_r8*rxt(k,386)*y(k,295)
    4927   254840160 :          mat(k,119) = rxt(k,810)*y(k,295)
    4928   254840160 :          mat(k,584) = rxt(k,367)*y(k,295)
    4929   254840160 :          mat(k,410) = rxt(k,371)*y(k,295)
    4930   254840160 :          mat(k,993) = rxt(k,775)*y(k,295)
    4931   254840160 :          mat(k,1149) = rxt(k,779)*y(k,295)
    4932             :          mat(k,3379) = rxt(k,180)*y(k,78) + .300_r8*rxt(k,312)*y(k,259) + rxt(k,187) &
    4933   254840160 :                       *y(k,295)
    4934   254840160 :          mat(k,701) = .300_r8*rxt(k,312)*y(k,258)
    4935             :          mat(k,4102) = rxt(k,331)*y(k,29) + rxt(k,358)*y(k,31) + rxt(k,359)*y(k,32) &
    4936             :                       + rxt(k,282)*y(k,42) + rxt(k,301)*y(k,43) + rxt(k,284)*y(k,44) &
    4937             :                       + rxt(k,285)*y(k,45) + rxt(k,333)*y(k,46) + rxt(k,287)*y(k,47) &
    4938             :                       + rxt(k,373)*y(k,49) + rxt(k,361)*y(k,50) + rxt(k,339)*y(k,51) &
    4939             :                       + rxt(k,340)*y(k,52) + rxt(k,307)*y(k,54) + rxt(k,308)*y(k,55) &
    4940             :                       + rxt(k,185)*y(k,79) + rxt(k,186)*y(k,81) + rxt(k,268)*y(k,83) &
    4941             :                       + rxt(k,292)*y(k,86) + rxt(k,239)*y(k,87) + rxt(k,310)*y(k,90) &
    4942             :                       + rxt(k,311)*y(k,92) + rxt(k,215)*y(k,93) + rxt(k,193)*y(k,94) &
    4943             :                       + rxt(k,242)*y(k,96) + .450_r8*rxt(k,386)*y(k,126) + rxt(k,810) &
    4944             :                       *y(k,143) + rxt(k,367)*y(k,170) + rxt(k,371)*y(k,171) &
    4945             :                       + rxt(k,775)*y(k,217) + rxt(k,779)*y(k,219) + rxt(k,187) &
    4946   263009123 :                       *y(k,258) + 2.000_r8*rxt(k,190)*y(k,295)
    4947             :       end do
    4948     8168963 :       end subroutine nlnmat17
    4949     8168963 :       subroutine nlnmat_finit( avec_len, mat, lmat, dti )
    4950             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    4951             :       implicit none
    4952             : !----------------------------------------------
    4953             : ! ... dummy arguments
    4954             : !----------------------------------------------
    4955             :       integer, intent(in) :: avec_len
    4956             :       real(r8), intent(in) :: dti(veclen)
    4957             :       real(r8), intent(in) :: lmat(veclen,nzcnt)
    4958             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    4959             : !----------------------------------------------
    4960             : ! ... local variables
    4961             : !----------------------------------------------
    4962             :       integer :: k
    4963             : !----------------------------------------------
    4964             : ! ... complete matrix entries implicit species
    4965             : !----------------------------------------------
    4966   263009123 :       do k = 1,avec_len
    4967   254840160 :          mat(k, 1) = lmat(k, 1)
    4968   254840160 :          mat(k, 2) = lmat(k, 2)
    4969   254840160 :          mat(k, 3) = lmat(k, 3)
    4970   254840160 :          mat(k, 4) = lmat(k, 4)
    4971   254840160 :          mat(k, 5) = lmat(k, 5)
    4972   254840160 :          mat(k, 6) = lmat(k, 6)
    4973   254840160 :          mat(k, 7) = lmat(k, 7)
    4974   254840160 :          mat(k, 8) = lmat(k, 8)
    4975   254840160 :          mat(k, 9) = lmat(k, 9)
    4976   254840160 :          mat(k, 10) = lmat(k, 10)
    4977   254840160 :          mat(k, 11) = lmat(k, 11)
    4978   254840160 :          mat(k, 12) = lmat(k, 12)
    4979   254840160 :          mat(k, 13) = lmat(k, 13)
    4980   254840160 :          mat(k, 14) = lmat(k, 14)
    4981   254840160 :          mat(k, 15) = lmat(k, 15)
    4982   254840160 :          mat(k, 16) = lmat(k, 16)
    4983   254840160 :          mat(k, 17) = lmat(k, 17)
    4984   254840160 :          mat(k, 18) = lmat(k, 18)
    4985   254840160 :          mat(k, 19) = lmat(k, 19)
    4986   254840160 :          mat(k, 20) = lmat(k, 20)
    4987   254840160 :          mat(k, 21) = lmat(k, 21)
    4988   254840160 :          mat(k, 22) = lmat(k, 22)
    4989   254840160 :          mat(k, 23) = lmat(k, 23)
    4990   254840160 :          mat(k, 24) = lmat(k, 24)
    4991   254840160 :          mat(k, 25) = lmat(k, 25)
    4992   254840160 :          mat(k, 26) = lmat(k, 26)
    4993   254840160 :          mat(k, 27) = lmat(k, 27)
    4994   254840160 :          mat(k, 28) = lmat(k, 28)
    4995   254840160 :          mat(k, 29) = lmat(k, 29)
    4996   254840160 :          mat(k, 30) = lmat(k, 30)
    4997   254840160 :          mat(k, 31) = lmat(k, 31)
    4998   254840160 :          mat(k, 32) = lmat(k, 32)
    4999   254840160 :          mat(k, 33) = lmat(k, 33)
    5000   254840160 :          mat(k, 34) = lmat(k, 34)
    5001   254840160 :          mat(k, 35) = lmat(k, 35)
    5002   254840160 :          mat(k, 36) = lmat(k, 36)
    5003   254840160 :          mat(k, 37) = lmat(k, 37)
    5004   254840160 :          mat(k, 38) = lmat(k, 38)
    5005   254840160 :          mat(k, 39) = lmat(k, 39)
    5006   254840160 :          mat(k, 40) = lmat(k, 40)
    5007   254840160 :          mat(k, 41) = lmat(k, 41)
    5008   254840160 :          mat(k, 42) = lmat(k, 42)
    5009   254840160 :          mat(k, 43) = lmat(k, 43)
    5010   254840160 :          mat(k, 44) = lmat(k, 44)
    5011   254840160 :          mat(k, 45) = lmat(k, 45)
    5012   254840160 :          mat(k, 51) = mat(k, 51) + lmat(k, 51)
    5013   254840160 :          mat(k, 57) = mat(k, 57) + lmat(k, 57)
    5014   254840160 :          mat(k, 63) = mat(k, 63) + lmat(k, 63)
    5015   254840160 :          mat(k, 69) = mat(k, 69) + lmat(k, 69)
    5016   254840160 :          mat(k, 75) = mat(k, 75) + lmat(k, 75)
    5017   254840160 :          mat(k, 81) = mat(k, 81) + lmat(k, 81)
    5018   254840160 :          mat(k, 87) = mat(k, 87) + lmat(k, 87)
    5019   254840160 :          mat(k, 89) = mat(k, 89) + lmat(k, 89)
    5020   254840160 :          mat(k, 95) = mat(k, 95) + lmat(k, 95)
    5021   254840160 :          mat(k, 101) = mat(k, 101) + lmat(k, 101)
    5022   254840160 :          mat(k, 107) = mat(k, 107) + lmat(k, 107)
    5023   254840160 :          mat(k, 113) = mat(k, 113) + lmat(k, 113)
    5024   254840160 :          mat(k, 114) = lmat(k, 114)
    5025   254840160 :          mat(k, 115) = lmat(k, 115)
    5026   254840160 :          mat(k, 116) = lmat(k, 116)
    5027   254840160 :          mat(k, 117) = mat(k, 117) + lmat(k, 117)
    5028   254840160 :          mat(k, 120) = mat(k, 120) + lmat(k, 120)
    5029   254840160 :          mat(k, 122) = mat(k, 122) + lmat(k, 122)
    5030   254840160 :          mat(k, 123) = mat(k, 123) + lmat(k, 123)
    5031   254840160 :          mat(k, 126) = mat(k, 126) + lmat(k, 126)
    5032   254840160 :          mat(k, 127) = mat(k, 127) + lmat(k, 127)
    5033   254840160 :          mat(k, 128) = mat(k, 128) + lmat(k, 128)
    5034   254840160 :          mat(k, 130) = mat(k, 130) + lmat(k, 130)
    5035   254840160 :          mat(k, 134) = mat(k, 134) + lmat(k, 134)
    5036   254840160 :          mat(k, 135) = mat(k, 135) + lmat(k, 135)
    5037   254840160 :          mat(k, 137) = mat(k, 137) + lmat(k, 137)
    5038   254840160 :          mat(k, 138) = mat(k, 138) + lmat(k, 138)
    5039   254840160 :          mat(k, 139) = mat(k, 139) + lmat(k, 139)
    5040   254840160 :          mat(k, 141) = mat(k, 141) + lmat(k, 141)
    5041   254840160 :          mat(k, 142) = mat(k, 142) + lmat(k, 142)
    5042   254840160 :          mat(k, 143) = mat(k, 143) + lmat(k, 143)
    5043   254840160 :          mat(k, 145) = mat(k, 145) + lmat(k, 145)
    5044   254840160 :          mat(k, 146) = mat(k, 146) + lmat(k, 146)
    5045   254840160 :          mat(k, 147) = mat(k, 147) + lmat(k, 147)
    5046   254840160 :          mat(k, 150) = lmat(k, 150)
    5047   254840160 :          mat(k, 151) = lmat(k, 151)
    5048   254840160 :          mat(k, 152) = lmat(k, 152)
    5049   254840160 :          mat(k, 153) = lmat(k, 153)
    5050   254840160 :          mat(k, 154) = lmat(k, 154)
    5051   254840160 :          mat(k, 155) = lmat(k, 155)
    5052   254840160 :          mat(k, 156) = lmat(k, 156)
    5053   254840160 :          mat(k, 157) = lmat(k, 157)
    5054   254840160 :          mat(k, 158) = lmat(k, 158)
    5055   254840160 :          mat(k, 159) = mat(k, 159) + lmat(k, 159)
    5056   254840160 :          mat(k, 160) = mat(k, 160) + lmat(k, 160)
    5057   254840160 :          mat(k, 161) = mat(k, 161) + lmat(k, 161)
    5058   254840160 :          mat(k, 163) = mat(k, 163) + lmat(k, 163)
    5059   254840160 :          mat(k, 164) = mat(k, 164) + lmat(k, 164)
    5060   254840160 :          mat(k, 165) = mat(k, 165) + lmat(k, 165)
    5061   254840160 :          mat(k, 166) = mat(k, 166) + lmat(k, 166)
    5062   254840160 :          mat(k, 167) = mat(k, 167) + lmat(k, 167)
    5063   254840160 :          mat(k, 169) = mat(k, 169) + lmat(k, 169)
    5064   254840160 :          mat(k, 170) = mat(k, 170) + lmat(k, 170)
    5065   254840160 :          mat(k, 171) = mat(k, 171) + lmat(k, 171)
    5066   254840160 :          mat(k, 173) = mat(k, 173) + lmat(k, 173)
    5067   254840160 :          mat(k, 174) = mat(k, 174) + lmat(k, 174)
    5068   254840160 :          mat(k, 175) = mat(k, 175) + lmat(k, 175)
    5069   254840160 :          mat(k, 176) = mat(k, 176) + lmat(k, 176)
    5070   254840160 :          mat(k, 178) = mat(k, 178) + lmat(k, 178)
    5071   254840160 :          mat(k, 179) = lmat(k, 179)
    5072   254840160 :          mat(k, 180) = lmat(k, 180)
    5073   254840160 :          mat(k, 182) = mat(k, 182) + lmat(k, 182)
    5074   254840160 :          mat(k, 188) = lmat(k, 188)
    5075   254840160 :          mat(k, 189) = lmat(k, 189)
    5076   254840160 :          mat(k, 190) = lmat(k, 190)
    5077   254840160 :          mat(k, 191) = lmat(k, 191)
    5078   254840160 :          mat(k, 192) = mat(k, 192) + lmat(k, 192)
    5079   254840160 :          mat(k, 197) = mat(k, 197) + lmat(k, 197)
    5080   254840160 :          mat(k, 201) = mat(k, 201) + lmat(k, 201)
    5081   254840160 :          mat(k, 203) = mat(k, 203) + lmat(k, 203)
    5082   254840160 :          mat(k, 204) = mat(k, 204) + lmat(k, 204)
    5083   254840160 :          mat(k, 207) = lmat(k, 207)
    5084   254840160 :          mat(k, 208) = lmat(k, 208)
    5085   254840160 :          mat(k, 209) = lmat(k, 209)
    5086   254840160 :          mat(k, 211) = mat(k, 211) + lmat(k, 211)
    5087   254840160 :          mat(k, 218) = mat(k, 218) + lmat(k, 218)
    5088   254840160 :          mat(k, 223) = lmat(k, 223)
    5089   254840160 :          mat(k, 224) = lmat(k, 224)
    5090   254840160 :          mat(k, 225) = lmat(k, 225)
    5091   254840160 :          mat(k, 226) = lmat(k, 226)
    5092   254840160 :          mat(k, 229) = mat(k, 229) + lmat(k, 229)
    5093   254840160 :          mat(k, 237) = mat(k, 237) + lmat(k, 237)
    5094   254840160 :          mat(k, 242) = lmat(k, 242)
    5095   254840160 :          mat(k, 243) = lmat(k, 243)
    5096   254840160 :          mat(k, 244) = lmat(k, 244)
    5097   254840160 :          mat(k, 245) = mat(k, 245) + lmat(k, 245)
    5098   254840160 :          mat(k, 248) = mat(k, 248) + lmat(k, 248)
    5099   254840160 :          mat(k, 249) = mat(k, 249) + lmat(k, 249)
    5100   254840160 :          mat(k, 251) = mat(k, 251) + lmat(k, 251)
    5101   254840160 :          mat(k, 252) = mat(k, 252) + lmat(k, 252)
    5102   254840160 :          mat(k, 254) = mat(k, 254) + lmat(k, 254)
    5103   254840160 :          mat(k, 256) = mat(k, 256) + lmat(k, 256)
    5104   254840160 :          mat(k, 257) = mat(k, 257) + lmat(k, 257)
    5105   254840160 :          mat(k, 259) = mat(k, 259) + lmat(k, 259)
    5106   254840160 :          mat(k, 260) = mat(k, 260) + lmat(k, 260)
    5107   254840160 :          mat(k, 261) = mat(k, 261) + lmat(k, 261)
    5108   254840160 :          mat(k, 264) = mat(k, 264) + lmat(k, 264)
    5109   254840160 :          mat(k, 266) = lmat(k, 266)
    5110   254840160 :          mat(k, 267) = lmat(k, 267)
    5111   254840160 :          mat(k, 268) = lmat(k, 268)
    5112   254840160 :          mat(k, 269) = lmat(k, 269)
    5113   254840160 :          mat(k, 270) = lmat(k, 270)
    5114   254840160 :          mat(k, 271) = lmat(k, 271)
    5115   254840160 :          mat(k, 272) = lmat(k, 272)
    5116   254840160 :          mat(k, 273) = lmat(k, 273)
    5117   254840160 :          mat(k, 274) = lmat(k, 274)
    5118   254840160 :          mat(k, 275) = lmat(k, 275)
    5119   254840160 :          mat(k, 276) = lmat(k, 276)
    5120   254840160 :          mat(k, 277) = lmat(k, 277)
    5121   254840160 :          mat(k, 279) = mat(k, 279) + lmat(k, 279)
    5122   254840160 :          mat(k, 280) = lmat(k, 280)
    5123   254840160 :          mat(k, 281) = lmat(k, 281)
    5124   254840160 :          mat(k, 283) = mat(k, 283) + lmat(k, 283)
    5125   254840160 :          mat(k, 287) = mat(k, 287) + lmat(k, 287)
    5126   254840160 :          mat(k, 288) = lmat(k, 288)
    5127   254840160 :          mat(k, 290) = mat(k, 290) + lmat(k, 290)
    5128   254840160 :          mat(k, 291) = lmat(k, 291)
    5129   254840160 :          mat(k, 292) = lmat(k, 292)
    5130   254840160 :          mat(k, 293) = lmat(k, 293)
    5131   254840160 :          mat(k, 294) = lmat(k, 294)
    5132   254840160 :          mat(k, 295) = lmat(k, 295)
    5133   254840160 :          mat(k, 296) = lmat(k, 296)
    5134   254840160 :          mat(k, 297) = lmat(k, 297)
    5135   254840160 :          mat(k, 298) = lmat(k, 298)
    5136   254840160 :          mat(k, 299) = lmat(k, 299)
    5137   254840160 :          mat(k, 300) = lmat(k, 300)
    5138   254840160 :          mat(k, 301) = lmat(k, 301)
    5139   254840160 :          mat(k, 302) = lmat(k, 302)
    5140   254840160 :          mat(k, 303) = lmat(k, 303)
    5141   254840160 :          mat(k, 304) = mat(k, 304) + lmat(k, 304)
    5142   254840160 :          mat(k, 310) = mat(k, 310) + lmat(k, 310)
    5143   254840160 :          mat(k, 316) = mat(k, 316) + lmat(k, 316)
    5144   254840160 :          mat(k, 322) = lmat(k, 322)
    5145   254840160 :          mat(k, 323) = lmat(k, 323)
    5146   254840160 :          mat(k, 324) = lmat(k, 324)
    5147   254840160 :          mat(k, 325) = mat(k, 325) + lmat(k, 325)
    5148   254840160 :          mat(k, 326) = mat(k, 326) + lmat(k, 326)
    5149   254840160 :          mat(k, 329) = mat(k, 329) + lmat(k, 329)
    5150   254840160 :          mat(k, 332) = mat(k, 332) + lmat(k, 332)
    5151   254840160 :          mat(k, 334) = lmat(k, 334)
    5152   254840160 :          mat(k, 335) = lmat(k, 335)
    5153   254840160 :          mat(k, 336) = mat(k, 336) + lmat(k, 336)
    5154   254840160 :          mat(k, 337) = lmat(k, 337)
    5155   254840160 :          mat(k, 338) = lmat(k, 338)
    5156   254840160 :          mat(k, 339) = lmat(k, 339)
    5157   254840160 :          mat(k, 340) = lmat(k, 340)
    5158   254840160 :          mat(k, 341) = lmat(k, 341)
    5159   254840160 :          mat(k, 342) = mat(k, 342) + lmat(k, 342)
    5160   254840160 :          mat(k, 345) = lmat(k, 345)
    5161   254840160 :          mat(k, 346) = mat(k, 346) + lmat(k, 346)
    5162   254840160 :          mat(k, 347) = mat(k, 347) + lmat(k, 347)
    5163   254840160 :          mat(k, 349) = lmat(k, 349)
    5164   254840160 :          mat(k, 350) = lmat(k, 350)
    5165   254840160 :          mat(k, 351) = mat(k, 351) + lmat(k, 351)
    5166   254840160 :          mat(k, 352) = lmat(k, 352)
    5167   254840160 :          mat(k, 353) = mat(k, 353) + lmat(k, 353)
    5168   254840160 :          mat(k, 356) = lmat(k, 356)
    5169   254840160 :          mat(k, 357) = mat(k, 357) + lmat(k, 357)
    5170   254840160 :          mat(k, 358) = mat(k, 358) + lmat(k, 358)
    5171   254840160 :          mat(k, 360) = mat(k, 360) + lmat(k, 360)
    5172   254840160 :          mat(k, 361) = lmat(k, 361)
    5173   254840160 :          mat(k, 362) = mat(k, 362) + lmat(k, 362)
    5174   254840160 :          mat(k, 363) = mat(k, 363) + lmat(k, 363)
    5175   254840160 :          mat(k, 364) = mat(k, 364) + lmat(k, 364)
    5176   254840160 :          mat(k, 365) = mat(k, 365) + lmat(k, 365)
    5177   254840160 :          mat(k, 367) = mat(k, 367) + lmat(k, 367)
    5178   254840160 :          mat(k, 368) = mat(k, 368) + lmat(k, 368)
    5179   254840160 :          mat(k, 369) = mat(k, 369) + lmat(k, 369)
    5180   254840160 :          mat(k, 370) = mat(k, 370) + lmat(k, 370)
    5181   254840160 :          mat(k, 372) = mat(k, 372) + lmat(k, 372)
    5182   254840160 :          mat(k, 373) = mat(k, 373) + lmat(k, 373)
    5183   254840160 :          mat(k, 374) = mat(k, 374) + lmat(k, 374)
    5184   254840160 :          mat(k, 375) = lmat(k, 375)
    5185   254840160 :          mat(k, 376) = lmat(k, 376)
    5186   254840160 :          mat(k, 377) = mat(k, 377) + lmat(k, 377)
    5187   254840160 :          mat(k, 385) = mat(k, 385) + lmat(k, 385)
    5188   254840160 :          mat(k, 386) = lmat(k, 386)
    5189   254840160 :          mat(k, 389) = mat(k, 389) + lmat(k, 389)
    5190   254840160 :          mat(k, 393) = mat(k, 393) + lmat(k, 393)
    5191   254840160 :          mat(k, 397) = lmat(k, 397)
    5192   254840160 :          mat(k, 398) = mat(k, 398) + lmat(k, 398)
    5193   254840160 :          mat(k, 401) = lmat(k, 401)
    5194   254840160 :          mat(k, 402) = lmat(k, 402)
    5195   254840160 :          mat(k, 403) = lmat(k, 403)
    5196   254840160 :          mat(k, 404) = lmat(k, 404)
    5197   254840160 :          mat(k, 405) = mat(k, 405) + lmat(k, 405)
    5198   254840160 :          mat(k, 407) = lmat(k, 407)
    5199   254840160 :          mat(k, 408) = lmat(k, 408)
    5200   254840160 :          mat(k, 409) = mat(k, 409) + lmat(k, 409)
    5201   254840160 :          mat(k, 411) = mat(k, 411) + lmat(k, 411)
    5202   254840160 :          mat(k, 413) = lmat(k, 413)
    5203   254840160 :          mat(k, 414) = lmat(k, 414)
    5204   254840160 :          mat(k, 415) = mat(k, 415) + lmat(k, 415)
    5205   254840160 :          mat(k, 417) = mat(k, 417) + lmat(k, 417)
    5206   254840160 :          mat(k, 418) = lmat(k, 418)
    5207   254840160 :          mat(k, 420) = lmat(k, 420)
    5208   254840160 :          mat(k, 421) = lmat(k, 421)
    5209   254840160 :          mat(k, 422) = mat(k, 422) + lmat(k, 422)
    5210   254840160 :          mat(k, 423) = mat(k, 423) + lmat(k, 423)
    5211   254840160 :          mat(k, 426) = lmat(k, 426)
    5212   254840160 :          mat(k, 427) = mat(k, 427) + lmat(k, 427)
    5213   254840160 :          mat(k, 429) = mat(k, 429) + lmat(k, 429)
    5214   254840160 :          mat(k, 431) = lmat(k, 431)
    5215   254840160 :          mat(k, 432) = lmat(k, 432)
    5216   254840160 :          mat(k, 433) = lmat(k, 433)
    5217   254840160 :          mat(k, 434) = mat(k, 434) + lmat(k, 434)
    5218   254840160 :          mat(k, 437) = mat(k, 437) + lmat(k, 437)
    5219   254840160 :          mat(k, 443) = mat(k, 443) + lmat(k, 443)
    5220   254840160 :          mat(k, 444) = lmat(k, 444)
    5221   254840160 :          mat(k, 445) = lmat(k, 445)
    5222   254840160 :          mat(k, 446) = mat(k, 446) + lmat(k, 446)
    5223   254840160 :          mat(k, 447) = mat(k, 447) + lmat(k, 447)
    5224   254840160 :          mat(k, 449) = mat(k, 449) + lmat(k, 449)
    5225   254840160 :          mat(k, 450) = lmat(k, 450)
    5226   254840160 :          mat(k, 451) = mat(k, 451) + lmat(k, 451)
    5227   254840160 :          mat(k, 453) = mat(k, 453) + lmat(k, 453)
    5228   254840160 :          mat(k, 456) = mat(k, 456) + lmat(k, 456)
    5229   254840160 :          mat(k, 462) = mat(k, 462) + lmat(k, 462)
    5230   254840160 :          mat(k, 463) = mat(k, 463) + lmat(k, 463)
    5231   254840160 :          mat(k, 468) = lmat(k, 468)
    5232   254840160 :          mat(k, 469) = lmat(k, 469)
    5233   254840160 :          mat(k, 470) = lmat(k, 470)
    5234   254840160 :          mat(k, 471) = mat(k, 471) + lmat(k, 471)
    5235   254840160 :          mat(k, 473) = lmat(k, 473)
    5236   254840160 :          mat(k, 474) = lmat(k, 474)
    5237   254840160 :          mat(k, 475) = mat(k, 475) + lmat(k, 475)
    5238   254840160 :          mat(k, 477) = mat(k, 477) + lmat(k, 477)
    5239   254840160 :          mat(k, 479) = mat(k, 479) + lmat(k, 479)
    5240   254840160 :          mat(k, 480) = mat(k, 480) + lmat(k, 480)
    5241   254840160 :          mat(k, 484) = mat(k, 484) + lmat(k, 484)
    5242   254840160 :          mat(k, 488) = mat(k, 488) + lmat(k, 488)
    5243   254840160 :          mat(k, 491) = mat(k, 491) + lmat(k, 491)
    5244   254840160 :          mat(k, 492) = mat(k, 492) + lmat(k, 492)
    5245   254840160 :          mat(k, 493) = lmat(k, 493)
    5246   254840160 :          mat(k, 494) = lmat(k, 494)
    5247   254840160 :          mat(k, 495) = mat(k, 495) + lmat(k, 495)
    5248   254840160 :          mat(k, 496) = mat(k, 496) + lmat(k, 496)
    5249   254840160 :          mat(k, 502) = mat(k, 502) + lmat(k, 502)
    5250   254840160 :          mat(k, 503) = lmat(k, 503)
    5251   254840160 :          mat(k, 507) = lmat(k, 507)
    5252   254840160 :          mat(k, 509) = lmat(k, 509)
    5253   254840160 :          mat(k, 510) = mat(k, 510) + lmat(k, 510)
    5254   254840160 :          mat(k, 514) = mat(k, 514) + lmat(k, 514)
    5255   254840160 :          mat(k, 521) = mat(k, 521) + lmat(k, 521)
    5256   254840160 :          mat(k, 524) = mat(k, 524) + lmat(k, 524)
    5257   254840160 :          mat(k, 525) = mat(k, 525) + lmat(k, 525)
    5258   254840160 :          mat(k, 526) = lmat(k, 526)
    5259   254840160 :          mat(k, 527) = lmat(k, 527)
    5260   254840160 :          mat(k, 528) = mat(k, 528) + lmat(k, 528)
    5261   254840160 :          mat(k, 529) = lmat(k, 529)
    5262   254840160 :          mat(k, 533) = lmat(k, 533)
    5263   254840160 :          mat(k, 536) = mat(k, 536) + lmat(k, 536)
    5264   254840160 :          mat(k, 543) = mat(k, 543) + lmat(k, 543)
    5265   254840160 :          mat(k, 544) = mat(k, 544) + lmat(k, 544)
    5266   254840160 :          mat(k, 546) = lmat(k, 546)
    5267   254840160 :          mat(k, 550) = mat(k, 550) + lmat(k, 550)
    5268   254840160 :          mat(k, 556) = mat(k, 556) + lmat(k, 556)
    5269   254840160 :          mat(k, 558) = lmat(k, 558)
    5270   254840160 :          mat(k, 559) = lmat(k, 559)
    5271   254840160 :          mat(k, 561) = mat(k, 561) + lmat(k, 561)
    5272   254840160 :          mat(k, 562) = lmat(k, 562)
    5273   254840160 :          mat(k, 563) = lmat(k, 563)
    5274   254840160 :          mat(k, 564) = lmat(k, 564)
    5275   254840160 :          mat(k, 566) = mat(k, 566) + lmat(k, 566)
    5276   254840160 :          mat(k, 567) = mat(k, 567) + lmat(k, 567)
    5277   254840160 :          mat(k, 568) = lmat(k, 568)
    5278   254840160 :          mat(k, 569) = mat(k, 569) + lmat(k, 569)
    5279   254840160 :          mat(k, 570) = lmat(k, 570)
    5280   254840160 :          mat(k, 571) = lmat(k, 571)
    5281   254840160 :          mat(k, 573) = lmat(k, 573)
    5282   254840160 :          mat(k, 574) = mat(k, 574) + lmat(k, 574)
    5283   254840160 :          mat(k, 575) = lmat(k, 575)
    5284   254840160 :          mat(k, 577) = mat(k, 577) + lmat(k, 577)
    5285   254840160 :          mat(k, 579) = lmat(k, 579)
    5286   254840160 :          mat(k, 581) = lmat(k, 581)
    5287   254840160 :          mat(k, 582) = lmat(k, 582)
    5288   254840160 :          mat(k, 583) = mat(k, 583) + lmat(k, 583)
    5289   254840160 :          mat(k, 585) = mat(k, 585) + lmat(k, 585)
    5290   254840160 :          mat(k, 593) = mat(k, 593) + lmat(k, 593)
    5291   254840160 :          mat(k, 596) = lmat(k, 596)
    5292   254840160 :          mat(k, 597) = lmat(k, 597)
    5293   254840160 :          mat(k, 598) = lmat(k, 598)
    5294   254840160 :          mat(k, 599) = mat(k, 599) + lmat(k, 599)
    5295   254840160 :          mat(k, 601) = mat(k, 601) + lmat(k, 601)
    5296   254840160 :          mat(k, 602) = mat(k, 602) + lmat(k, 602)
    5297   254840160 :          mat(k, 603) = lmat(k, 603)
    5298   254840160 :          mat(k, 604) = lmat(k, 604)
    5299   254840160 :          mat(k, 605) = mat(k, 605) + lmat(k, 605)
    5300   254840160 :          mat(k, 613) = mat(k, 613) + lmat(k, 613)
    5301   254840160 :          mat(k, 616) = lmat(k, 616)
    5302   254840160 :          mat(k, 617) = lmat(k, 617)
    5303   254840160 :          mat(k, 618) = mat(k, 618) + lmat(k, 618)
    5304   254840160 :          mat(k, 619) = mat(k, 619) + lmat(k, 619)
    5305   254840160 :          mat(k, 621) = mat(k, 621) + lmat(k, 621)
    5306   254840160 :          mat(k, 622) = mat(k, 622) + lmat(k, 622)
    5307   254840160 :          mat(k, 623) = mat(k, 623) + lmat(k, 623)
    5308   254840160 :          mat(k, 624) = mat(k, 624) + lmat(k, 624)
    5309   254840160 :          mat(k, 625) = mat(k, 625) + lmat(k, 625)
    5310   254840160 :          mat(k, 626) = mat(k, 626) + lmat(k, 626)
    5311   254840160 :          mat(k, 630) = lmat(k, 630)
    5312   254840160 :          mat(k, 631) = mat(k, 631) + lmat(k, 631)
    5313   254840160 :          mat(k, 632) = mat(k, 632) + lmat(k, 632)
    5314   254840160 :          mat(k, 634) = mat(k, 634) + lmat(k, 634)
    5315   254840160 :          mat(k, 635) = mat(k, 635) + lmat(k, 635)
    5316   254840160 :          mat(k, 636) = mat(k, 636) + lmat(k, 636)
    5317   254840160 :          mat(k, 637) = mat(k, 637) + lmat(k, 637)
    5318   254840160 :          mat(k, 638) = mat(k, 638) + lmat(k, 638)
    5319   254840160 :          mat(k, 639) = mat(k, 639) + lmat(k, 639)
    5320   254840160 :          mat(k, 640) = mat(k, 640) + lmat(k, 640)
    5321   254840160 :          mat(k, 641) = lmat(k, 641)
    5322   254840160 :          mat(k, 642) = mat(k, 642) + lmat(k, 642)
    5323   254840160 :          mat(k, 643) = lmat(k, 643)
    5324   254840160 :          mat(k, 644) = lmat(k, 644)
    5325   254840160 :          mat(k, 645) = lmat(k, 645)
    5326   254840160 :          mat(k, 646) = mat(k, 646) + lmat(k, 646)
    5327   254840160 :          mat(k, 647) = mat(k, 647) + lmat(k, 647)
    5328   254840160 :          mat(k, 650) = lmat(k, 650)
    5329   254840160 :          mat(k, 655) = mat(k, 655) + lmat(k, 655)
    5330   254840160 :          mat(k, 659) = lmat(k, 659)
    5331   254840160 :          mat(k, 662) = mat(k, 662) + lmat(k, 662)
    5332   254840160 :          mat(k, 664) = mat(k, 664) + lmat(k, 664)
    5333   254840160 :          mat(k, 667) = lmat(k, 667)
    5334   254840160 :          mat(k, 671) = mat(k, 671) + lmat(k, 671)
    5335   254840160 :          mat(k, 673) = mat(k, 673) + lmat(k, 673)
    5336   254840160 :          mat(k, 676) = lmat(k, 676)
    5337   254840160 :          mat(k, 677) = lmat(k, 677)
    5338   254840160 :          mat(k, 678) = lmat(k, 678)
    5339   254840160 :          mat(k, 679) = lmat(k, 679)
    5340   254840160 :          mat(k, 680) = mat(k, 680) + lmat(k, 680)
    5341   254840160 :          mat(k, 682) = mat(k, 682) + lmat(k, 682)
    5342   254840160 :          mat(k, 684) = lmat(k, 684)
    5343   254840160 :          mat(k, 685) = lmat(k, 685)
    5344   254840160 :          mat(k, 686) = lmat(k, 686)
    5345   254840160 :          mat(k, 687) = lmat(k, 687)
    5346   254840160 :          mat(k, 688) = mat(k, 688) + lmat(k, 688)
    5347   254840160 :          mat(k, 689) = mat(k, 689) + lmat(k, 689)
    5348   254840160 :          mat(k, 690) = mat(k, 690) + lmat(k, 690)
    5349   254840160 :          mat(k, 691) = lmat(k, 691)
    5350   254840160 :          mat(k, 692) = lmat(k, 692)
    5351   254840160 :          mat(k, 693) = mat(k, 693) + lmat(k, 693)
    5352   254840160 :          mat(k, 697) = lmat(k, 697)
    5353   254840160 :          mat(k, 698) = mat(k, 698) + lmat(k, 698)
    5354   254840160 :          mat(k, 702) = mat(k, 702) + lmat(k, 702)
    5355   254840160 :          mat(k, 703) = mat(k, 703) + lmat(k, 703)
    5356   254840160 :          mat(k, 706) = lmat(k, 706)
    5357   254840160 :          mat(k, 707) = mat(k, 707) + lmat(k, 707)
    5358   254840160 :          mat(k, 711) = mat(k, 711) + lmat(k, 711)
    5359   254840160 :          mat(k, 717) = lmat(k, 717)
    5360   254840160 :          mat(k, 718) = mat(k, 718) + lmat(k, 718)
    5361   254840160 :          mat(k, 722) = lmat(k, 722)
    5362   254840160 :          mat(k, 723) = lmat(k, 723)
    5363   254840160 :          mat(k, 725) = lmat(k, 725)
    5364   254840160 :          mat(k, 726) = lmat(k, 726)
    5365   254840160 :          mat(k, 727) = mat(k, 727) + lmat(k, 727)
    5366   254840160 :          mat(k, 728) = mat(k, 728) + lmat(k, 728)
    5367   254840160 :          mat(k, 731) = lmat(k, 731)
    5368   254840160 :          mat(k, 732) = lmat(k, 732)
    5369   254840160 :          mat(k, 734) = lmat(k, 734)
    5370   254840160 :          mat(k, 735) = mat(k, 735) + lmat(k, 735)
    5371   254840160 :          mat(k, 736) = lmat(k, 736)
    5372   254840160 :          mat(k, 738) = lmat(k, 738)
    5373   254840160 :          mat(k, 739) = lmat(k, 739)
    5374   254840160 :          mat(k, 740) = lmat(k, 740)
    5375   254840160 :          mat(k, 741) = mat(k, 741) + lmat(k, 741)
    5376   254840160 :          mat(k, 746) = lmat(k, 746)
    5377   254840160 :          mat(k, 747) = lmat(k, 747)
    5378   254840160 :          mat(k, 749) = lmat(k, 749)
    5379   254840160 :          mat(k, 750) = mat(k, 750) + lmat(k, 750)
    5380   254840160 :          mat(k, 751) = lmat(k, 751)
    5381   254840160 :          mat(k, 752) = mat(k, 752) + lmat(k, 752)
    5382   254840160 :          mat(k, 755) = mat(k, 755) + lmat(k, 755)
    5383   254840160 :          mat(k, 756) = mat(k, 756) + lmat(k, 756)
    5384   254840160 :          mat(k, 758) = mat(k, 758) + lmat(k, 758)
    5385   254840160 :          mat(k, 759) = lmat(k, 759)
    5386   254840160 :          mat(k, 760) = mat(k, 760) + lmat(k, 760)
    5387   254840160 :          mat(k, 763) = mat(k, 763) + lmat(k, 763)
    5388   254840160 :          mat(k, 770) = mat(k, 770) + lmat(k, 770)
    5389   254840160 :          mat(k, 771) = lmat(k, 771)
    5390   254840160 :          mat(k, 772) = lmat(k, 772)
    5391   254840160 :          mat(k, 773) = mat(k, 773) + lmat(k, 773)
    5392   254840160 :          mat(k, 774) = mat(k, 774) + lmat(k, 774)
    5393   254840160 :          mat(k, 776) = lmat(k, 776)
    5394   254840160 :          mat(k, 777) = lmat(k, 777)
    5395   254840160 :          mat(k, 778) = mat(k, 778) + lmat(k, 778)
    5396   254840160 :          mat(k, 779) = mat(k, 779) + lmat(k, 779)
    5397   254840160 :          mat(k, 780) = mat(k, 780) + lmat(k, 780)
    5398   254840160 :          mat(k, 782) = mat(k, 782) + lmat(k, 782)
    5399   254840160 :          mat(k, 783) = mat(k, 783) + lmat(k, 783)
    5400   254840160 :          mat(k, 785) = lmat(k, 785)
    5401   254840160 :          mat(k, 786) = lmat(k, 786)
    5402   254840160 :          mat(k, 787) = lmat(k, 787)
    5403   254840160 :          mat(k, 788) = lmat(k, 788)
    5404   254840160 :          mat(k, 789) = lmat(k, 789)
    5405   254840160 :          mat(k, 790) = mat(k, 790) + lmat(k, 790)
    5406   254840160 :          mat(k, 791) = mat(k, 791) + lmat(k, 791)
    5407   254840160 :          mat(k, 797) = mat(k, 797) + lmat(k, 797)
    5408   254840160 :          mat(k, 805) = mat(k, 805) + lmat(k, 805)
    5409   254840160 :          mat(k, 813) = mat(k, 813) + lmat(k, 813)
    5410   254840160 :          mat(k, 827) = mat(k, 827) + lmat(k, 827)
    5411   254840160 :          mat(k, 838) = lmat(k, 838)
    5412   254840160 :          mat(k, 839) = lmat(k, 839)
    5413   254840160 :          mat(k, 840) = lmat(k, 840)
    5414   254840160 :          mat(k, 841) = lmat(k, 841)
    5415   254840160 :          mat(k, 842) = mat(k, 842) + lmat(k, 842)
    5416   254840160 :          mat(k, 847) = lmat(k, 847)
    5417   254840160 :          mat(k, 848) = lmat(k, 848)
    5418   254840160 :          mat(k, 851) = lmat(k, 851)
    5419   254840160 :          mat(k, 852) = mat(k, 852) + lmat(k, 852)
    5420   254840160 :          mat(k, 855) = mat(k, 855) + lmat(k, 855)
    5421   254840160 :          mat(k, 862) = mat(k, 862) + lmat(k, 862)
    5422   254840160 :          mat(k, 873) = mat(k, 873) + lmat(k, 873)
    5423   254840160 :          mat(k, 883) = mat(k, 883) + lmat(k, 883)
    5424   254840160 :          mat(k, 885) = mat(k, 885) + lmat(k, 885)
    5425   254840160 :          mat(k, 886) = mat(k, 886) + lmat(k, 886)
    5426   254840160 :          mat(k, 887) = mat(k, 887) + lmat(k, 887)
    5427   254840160 :          mat(k, 888) = mat(k, 888) + lmat(k, 888)
    5428   254840160 :          mat(k, 895) = mat(k, 895) + lmat(k, 895)
    5429   254840160 :          mat(k, 906) = mat(k, 906) + lmat(k, 906)
    5430   254840160 :          mat(k, 914) = mat(k, 914) + lmat(k, 914)
    5431   254840160 :          mat(k, 919) = mat(k, 919) + lmat(k, 919)
    5432   254840160 :          mat(k, 924) = mat(k, 924) + lmat(k, 924)
    5433   254840160 :          mat(k, 926) = mat(k, 926) + lmat(k, 926)
    5434   254840160 :          mat(k, 927) = mat(k, 927) + lmat(k, 927)
    5435   254840160 :          mat(k, 928) = mat(k, 928) + lmat(k, 928)
    5436   254840160 :          mat(k, 929) = mat(k, 929) + lmat(k, 929)
    5437   254840160 :          mat(k, 939) = mat(k, 939) + lmat(k, 939)
    5438   254840160 :          mat(k, 951) = mat(k, 951) + lmat(k, 951)
    5439   254840160 :          mat(k, 960) = mat(k, 960) + lmat(k, 960)
    5440   254840160 :          mat(k, 969) = mat(k, 969) + lmat(k, 969)
    5441   254840160 :          mat(k, 970) = mat(k, 970) + lmat(k, 970)
    5442   254840160 :          mat(k, 971) = lmat(k, 971)
    5443   254840160 :          mat(k, 972) = lmat(k, 972)
    5444   254840160 :          mat(k, 974) = mat(k, 974) + lmat(k, 974)
    5445   254840160 :          mat(k, 975) = lmat(k, 975)
    5446   254840160 :          mat(k, 976) = lmat(k, 976)
    5447   254840160 :          mat(k, 977) = lmat(k, 977)
    5448   254840160 :          mat(k, 978) = lmat(k, 978)
    5449   254840160 :          mat(k, 979) = lmat(k, 979)
    5450   254840160 :          mat(k, 980) = lmat(k, 980)
    5451   254840160 :          mat(k, 981) = lmat(k, 981)
    5452   254840160 :          mat(k, 982) = lmat(k, 982)
    5453   254840160 :          mat(k, 983) = mat(k, 983) + lmat(k, 983)
    5454   254840160 :          mat(k, 984) = lmat(k, 984)
    5455   254840160 :          mat(k, 986) = mat(k, 986) + lmat(k, 986)
    5456   254840160 :          mat(k, 987) = lmat(k, 987)
    5457   254840160 :          mat(k, 988) = lmat(k, 988)
    5458   254840160 :          mat(k, 990) = lmat(k, 990)
    5459   254840160 :          mat(k, 991) = lmat(k, 991)
    5460   254840160 :          mat(k, 992) = mat(k, 992) + lmat(k, 992)
    5461   254840160 :          mat(k, 995) = mat(k, 995) + lmat(k, 995)
    5462   254840160 :          mat(k, 996) = lmat(k, 996)
    5463   254840160 :          mat(k,1001) = mat(k,1001) + lmat(k,1001)
    5464   254840160 :          mat(k,1006) = mat(k,1006) + lmat(k,1006)
    5465   254840160 :          mat(k,1015) = mat(k,1015) + lmat(k,1015)
    5466   254840160 :          mat(k,1024) = mat(k,1024) + lmat(k,1024)
    5467   254840160 :          mat(k,1041) = mat(k,1041) + lmat(k,1041)
    5468   254840160 :          mat(k,1054) = mat(k,1054) + lmat(k,1054)
    5469   254840160 :          mat(k,1057) = lmat(k,1057)
    5470   254840160 :          mat(k,1061) = mat(k,1061) + lmat(k,1061)
    5471   254840160 :          mat(k,1071) = mat(k,1071) + lmat(k,1071)
    5472   254840160 :          mat(k,1092) = mat(k,1092) + lmat(k,1092)
    5473   254840160 :          mat(k,1106) = mat(k,1106) + lmat(k,1106)
    5474   254840160 :          mat(k,1110) = mat(k,1110) + lmat(k,1110)
    5475   254840160 :          mat(k,1111) = lmat(k,1111)
    5476   254840160 :          mat(k,1112) = lmat(k,1112)
    5477   254840160 :          mat(k,1113) = lmat(k,1113)
    5478   254840160 :          mat(k,1116) = lmat(k,1116)
    5479   254840160 :          mat(k,1118) = lmat(k,1118)
    5480   254840160 :          mat(k,1119) = mat(k,1119) + lmat(k,1119)
    5481   254840160 :          mat(k,1121) = mat(k,1121) + lmat(k,1121)
    5482   254840160 :          mat(k,1122) = mat(k,1122) + lmat(k,1122)
    5483   254840160 :          mat(k,1129) = mat(k,1129) + lmat(k,1129)
    5484   254840160 :          mat(k,1132) = mat(k,1132) + lmat(k,1132)
    5485   254840160 :          mat(k,1134) = mat(k,1134) + lmat(k,1134)
    5486   254840160 :          mat(k,1140) = mat(k,1140) + lmat(k,1140)
    5487   254840160 :          mat(k,1143) = mat(k,1143) + lmat(k,1143)
    5488   254840160 :          mat(k,1145) = lmat(k,1145)
    5489   254840160 :          mat(k,1146) = lmat(k,1146)
    5490   254840160 :          mat(k,1147) = lmat(k,1147)
    5491   254840160 :          mat(k,1148) = lmat(k,1148)
    5492   254840160 :          mat(k,1150) = mat(k,1150) + lmat(k,1150)
    5493   254840160 :          mat(k,1151) = mat(k,1151) + lmat(k,1151)
    5494   254840160 :          mat(k,1152) = mat(k,1152) + lmat(k,1152)
    5495   254840160 :          mat(k,1159) = mat(k,1159) + lmat(k,1159)
    5496   254840160 :          mat(k,1163) = mat(k,1163) + lmat(k,1163)
    5497   254840160 :          mat(k,1164) = mat(k,1164) + lmat(k,1164)
    5498   254840160 :          mat(k,1166) = mat(k,1166) + lmat(k,1166)
    5499   254840160 :          mat(k,1172) = lmat(k,1172)
    5500   254840160 :          mat(k,1175) = mat(k,1175) + lmat(k,1175)
    5501   254840160 :          mat(k,1182) = mat(k,1182) + lmat(k,1182)
    5502   254840160 :          mat(k,1194) = mat(k,1194) + lmat(k,1194)
    5503   254840160 :          mat(k,1200) = lmat(k,1200)
    5504   254840160 :          mat(k,1201) = lmat(k,1201)
    5505   254840160 :          mat(k,1206) = lmat(k,1206)
    5506   254840160 :          mat(k,1208) = lmat(k,1208)
    5507   254840160 :          mat(k,1209) = mat(k,1209) + lmat(k,1209)
    5508   254840160 :          mat(k,1210) = mat(k,1210) + lmat(k,1210)
    5509   254840160 :          mat(k,1212) = mat(k,1212) + lmat(k,1212)
    5510   254840160 :          mat(k,1214) = mat(k,1214) + lmat(k,1214)
    5511   254840160 :          mat(k,1218) = mat(k,1218) + lmat(k,1218)
    5512   254840160 :          mat(k,1228) = mat(k,1228) + lmat(k,1228)
    5513   254840160 :          mat(k,1229) = mat(k,1229) + lmat(k,1229)
    5514   254840160 :          mat(k,1230) = lmat(k,1230)
    5515   254840160 :          mat(k,1231) = lmat(k,1231)
    5516   254840160 :          mat(k,1232) = mat(k,1232) + lmat(k,1232)
    5517   254840160 :          mat(k,1235) = mat(k,1235) + lmat(k,1235)
    5518   254840160 :          mat(k,1236) = lmat(k,1236)
    5519   254840160 :          mat(k,1237) = lmat(k,1237)
    5520   254840160 :          mat(k,1242) = mat(k,1242) + lmat(k,1242)
    5521   254840160 :          mat(k,1251) = lmat(k,1251)
    5522   254840160 :          mat(k,1252) = mat(k,1252) + lmat(k,1252)
    5523   254840160 :          mat(k,1260) = lmat(k,1260)
    5524   254840160 :          mat(k,1262) = mat(k,1262) + lmat(k,1262)
    5525   254840160 :          mat(k,1263) = mat(k,1263) + lmat(k,1263)
    5526   254840160 :          mat(k,1272) = mat(k,1272) + lmat(k,1272)
    5527   254840160 :          mat(k,1289) = mat(k,1289) + lmat(k,1289)
    5528   254840160 :          mat(k,1290) = lmat(k,1290)
    5529   254840160 :          mat(k,1291) = lmat(k,1291)
    5530   254840160 :          mat(k,1294) = lmat(k,1294)
    5531   254840160 :          mat(k,1298) = mat(k,1298) + lmat(k,1298)
    5532   254840160 :          mat(k,1309) = mat(k,1309) + lmat(k,1309)
    5533   254840160 :          mat(k,1311) = mat(k,1311) + lmat(k,1311)
    5534   254840160 :          mat(k,1322) = mat(k,1322) + lmat(k,1322)
    5535   254840160 :          mat(k,1324) = mat(k,1324) + lmat(k,1324)
    5536   254840160 :          mat(k,1325) = mat(k,1325) + lmat(k,1325)
    5537   254840160 :          mat(k,1326) = mat(k,1326) + lmat(k,1326)
    5538   254840160 :          mat(k,1329) = mat(k,1329) + lmat(k,1329)
    5539   254840160 :          mat(k,1330) = mat(k,1330) + lmat(k,1330)
    5540   254840160 :          mat(k,1331) = lmat(k,1331)
    5541   254840160 :          mat(k,1332) = mat(k,1332) + lmat(k,1332)
    5542   254840160 :          mat(k,1336) = mat(k,1336) + lmat(k,1336)
    5543   254840160 :          mat(k,1350) = mat(k,1350) + lmat(k,1350)
    5544   254840160 :          mat(k,1361) = mat(k,1361) + lmat(k,1361)
    5545   254840160 :          mat(k,1363) = mat(k,1363) + lmat(k,1363)
    5546   254840160 :          mat(k,1376) = mat(k,1376) + lmat(k,1376)
    5547   254840160 :          mat(k,1377) = mat(k,1377) + lmat(k,1377)
    5548   254840160 :          mat(k,1385) = mat(k,1385) + lmat(k,1385)
    5549   254840160 :          mat(k,1410) = mat(k,1410) + lmat(k,1410)
    5550   254840160 :          mat(k,1431) = mat(k,1431) + lmat(k,1431)
    5551   254840160 :          mat(k,1432) = lmat(k,1432)
    5552   254840160 :          mat(k,1435) = lmat(k,1435)
    5553   254840160 :          mat(k,1436) = lmat(k,1436)
    5554   254840160 :          mat(k,1440) = mat(k,1440) + lmat(k,1440)
    5555   254840160 :          mat(k,1454) = mat(k,1454) + lmat(k,1454)
    5556   254840160 :          mat(k,1456) = lmat(k,1456)
    5557   254840160 :          mat(k,1457) = mat(k,1457) + lmat(k,1457)
    5558   254840160 :          mat(k,1458) = lmat(k,1458)
    5559   254840160 :          mat(k,1459) = mat(k,1459) + lmat(k,1459)
    5560   254840160 :          mat(k,1461) = mat(k,1461) + lmat(k,1461)
    5561   254840160 :          mat(k,1462) = mat(k,1462) + lmat(k,1462)
    5562   254840160 :          mat(k,1463) = lmat(k,1463)
    5563   254840160 :          mat(k,1464) = mat(k,1464) + lmat(k,1464)
    5564   254840160 :          mat(k,1465) = lmat(k,1465)
    5565   254840160 :          mat(k,1466) = lmat(k,1466)
    5566   254840160 :          mat(k,1467) = lmat(k,1467)
    5567   254840160 :          mat(k,1468) = mat(k,1468) + lmat(k,1468)
    5568   254840160 :          mat(k,1469) = lmat(k,1469)
    5569   254840160 :          mat(k,1470) = lmat(k,1470)
    5570   254840160 :          mat(k,1473) = lmat(k,1473)
    5571   254840160 :          mat(k,1474) = mat(k,1474) + lmat(k,1474)
    5572   254840160 :          mat(k,1475) = lmat(k,1475)
    5573   254840160 :          mat(k,1476) = mat(k,1476) + lmat(k,1476)
    5574   254840160 :          mat(k,1478) = mat(k,1478) + lmat(k,1478)
    5575   254840160 :          mat(k,1479) = mat(k,1479) + lmat(k,1479)
    5576   254840160 :          mat(k,1481) = mat(k,1481) + lmat(k,1481)
    5577   254840160 :          mat(k,1483) = lmat(k,1483)
    5578   254840160 :          mat(k,1484) = lmat(k,1484)
    5579   254840160 :          mat(k,1485) = mat(k,1485) + lmat(k,1485)
    5580   254840160 :          mat(k,1487) = mat(k,1487) + lmat(k,1487)
    5581   254840160 :          mat(k,1492) = mat(k,1492) + lmat(k,1492)
    5582   254840160 :          mat(k,1494) = mat(k,1494) + lmat(k,1494)
    5583   254840160 :          mat(k,1498) = mat(k,1498) + lmat(k,1498)
    5584   254840160 :          mat(k,1499) = lmat(k,1499)
    5585   254840160 :          mat(k,1500) = mat(k,1500) + lmat(k,1500)
    5586   254840160 :          mat(k,1502) = mat(k,1502) + lmat(k,1502)
    5587   254840160 :          mat(k,1503) = lmat(k,1503)
    5588   254840160 :          mat(k,1504) = mat(k,1504) + lmat(k,1504)
    5589   254840160 :          mat(k,1505) = mat(k,1505) + lmat(k,1505)
    5590   254840160 :          mat(k,1508) = mat(k,1508) + lmat(k,1508)
    5591   254840160 :          mat(k,1524) = mat(k,1524) + lmat(k,1524)
    5592   254840160 :          mat(k,1536) = mat(k,1536) + lmat(k,1536)
    5593   254840160 :          mat(k,1537) = mat(k,1537) + lmat(k,1537)
    5594   254840160 :          mat(k,1538) = lmat(k,1538)
    5595   254840160 :          mat(k,1539) = lmat(k,1539)
    5596   254840160 :          mat(k,1540) = mat(k,1540) + lmat(k,1540)
    5597   254840160 :          mat(k,1543) = mat(k,1543) + lmat(k,1543)
    5598   254840160 :          mat(k,1545) = mat(k,1545) + lmat(k,1545)
    5599   254840160 :          mat(k,1548) = mat(k,1548) + lmat(k,1548)
    5600   254840160 :          mat(k,1556) = mat(k,1556) + lmat(k,1556)
    5601   254840160 :          mat(k,1557) = mat(k,1557) + lmat(k,1557)
    5602   254840160 :          mat(k,1558) = mat(k,1558) + lmat(k,1558)
    5603   254840160 :          mat(k,1559) = lmat(k,1559)
    5604   254840160 :          mat(k,1560) = mat(k,1560) + lmat(k,1560)
    5605   254840160 :          mat(k,1572) = mat(k,1572) + lmat(k,1572)
    5606   254840160 :          mat(k,1583) = mat(k,1583) + lmat(k,1583)
    5607   254840160 :          mat(k,1586) = lmat(k,1586)
    5608   254840160 :          mat(k,1591) = lmat(k,1591)
    5609   254840160 :          mat(k,1595) = mat(k,1595) + lmat(k,1595)
    5610   254840160 :          mat(k,1598) = lmat(k,1598)
    5611   254840160 :          mat(k,1599) = mat(k,1599) + lmat(k,1599)
    5612   254840160 :          mat(k,1600) = mat(k,1600) + lmat(k,1600)
    5613   254840160 :          mat(k,1604) = lmat(k,1604)
    5614   254840160 :          mat(k,1613) = lmat(k,1613)
    5615   254840160 :          mat(k,1614) = lmat(k,1614)
    5616   254840160 :          mat(k,1615) = lmat(k,1615)
    5617   254840160 :          mat(k,1620) = mat(k,1620) + lmat(k,1620)
    5618   254840160 :          mat(k,1640) = mat(k,1640) + lmat(k,1640)
    5619   254840160 :          mat(k,1643) = mat(k,1643) + lmat(k,1643)
    5620   254840160 :          mat(k,1645) = mat(k,1645) + lmat(k,1645)
    5621   254840160 :          mat(k,1647) = mat(k,1647) + lmat(k,1647)
    5622   254840160 :          mat(k,1655) = mat(k,1655) + lmat(k,1655)
    5623   254840160 :          mat(k,1659) = mat(k,1659) + lmat(k,1659)
    5624   254840160 :          mat(k,1660) = lmat(k,1660)
    5625   254840160 :          mat(k,1661) = lmat(k,1661)
    5626   254840160 :          mat(k,1666) = lmat(k,1666)
    5627   254840160 :          mat(k,1669) = lmat(k,1669)
    5628   254840160 :          mat(k,1673) = mat(k,1673) + lmat(k,1673)
    5629   254840160 :          mat(k,1689) = mat(k,1689) + lmat(k,1689)
    5630   254840160 :          mat(k,1691) = lmat(k,1691)
    5631   254840160 :          mat(k,1694) = lmat(k,1694)
    5632   254840160 :          mat(k,1695) = lmat(k,1695)
    5633   254840160 :          mat(k,1702) = mat(k,1702) + lmat(k,1702)
    5634   254840160 :          mat(k,1704) = lmat(k,1704)
    5635   254840160 :          mat(k,1705) = lmat(k,1705)
    5636   254840160 :          mat(k,1707) = lmat(k,1707)
    5637   254840160 :          mat(k,1708) = lmat(k,1708)
    5638   254840160 :          mat(k,1712) = mat(k,1712) + lmat(k,1712)
    5639   254840160 :          mat(k,1713) = lmat(k,1713)
    5640   254840160 :          mat(k,1715) = mat(k,1715) + lmat(k,1715)
    5641   254840160 :          mat(k,1716) = mat(k,1716) + lmat(k,1716)
    5642   254840160 :          mat(k,1718) = mat(k,1718) + lmat(k,1718)
    5643   254840160 :          mat(k,1719) = lmat(k,1719)
    5644   254840160 :          mat(k,1720) = mat(k,1720) + lmat(k,1720)
    5645   254840160 :          mat(k,1723) = lmat(k,1723)
    5646   254840160 :          mat(k,1726) = lmat(k,1726)
    5647   254840160 :          mat(k,1732) = mat(k,1732) + lmat(k,1732)
    5648   254840160 :          mat(k,1748) = lmat(k,1748)
    5649   254840160 :          mat(k,1754) = mat(k,1754) + lmat(k,1754)
    5650   254840160 :          mat(k,1770) = mat(k,1770) + lmat(k,1770)
    5651   254840160 :          mat(k,1772) = lmat(k,1772)
    5652   254840160 :          mat(k,1773) = lmat(k,1773)
    5653   254840160 :          mat(k,1774) = mat(k,1774) + lmat(k,1774)
    5654   254840160 :          mat(k,1776) = mat(k,1776) + lmat(k,1776)
    5655   254840160 :          mat(k,1777) = mat(k,1777) + lmat(k,1777)
    5656   254840160 :          mat(k,1778) = mat(k,1778) + lmat(k,1778)
    5657   254840160 :          mat(k,1779) = lmat(k,1779)
    5658   254840160 :          mat(k,1780) = mat(k,1780) + lmat(k,1780)
    5659   254840160 :          mat(k,1782) = lmat(k,1782)
    5660   254840160 :          mat(k,1783) = mat(k,1783) + lmat(k,1783)
    5661   254840160 :          mat(k,1784) = mat(k,1784) + lmat(k,1784)
    5662   254840160 :          mat(k,1787) = lmat(k,1787)
    5663   254840160 :          mat(k,1790) = lmat(k,1790)
    5664   254840160 :          mat(k,1791) = lmat(k,1791)
    5665   254840160 :          mat(k,1793) = mat(k,1793) + lmat(k,1793)
    5666   254840160 :          mat(k,1795) = lmat(k,1795)
    5667   254840160 :          mat(k,1801) = mat(k,1801) + lmat(k,1801)
    5668   254840160 :          mat(k,1802) = mat(k,1802) + lmat(k,1802)
    5669   254840160 :          mat(k,1803) = lmat(k,1803)
    5670   254840160 :          mat(k,1804) = lmat(k,1804)
    5671   254840160 :          mat(k,1805) = lmat(k,1805)
    5672   254840160 :          mat(k,1806) = lmat(k,1806)
    5673   254840160 :          mat(k,1817) = mat(k,1817) + lmat(k,1817)
    5674   254840160 :          mat(k,1823) = mat(k,1823) + lmat(k,1823)
    5675   254840160 :          mat(k,1830) = mat(k,1830) + lmat(k,1830)
    5676   254840160 :          mat(k,1833) = mat(k,1833) + lmat(k,1833)
    5677   254840160 :          mat(k,1834) = lmat(k,1834)
    5678   254840160 :          mat(k,1835) = lmat(k,1835)
    5679   254840160 :          mat(k,1836) = lmat(k,1836)
    5680   254840160 :          mat(k,1837) = lmat(k,1837)
    5681   254840160 :          mat(k,1848) = mat(k,1848) + lmat(k,1848)
    5682   254840160 :          mat(k,1855) = mat(k,1855) + lmat(k,1855)
    5683   254840160 :          mat(k,1861) = mat(k,1861) + lmat(k,1861)
    5684   254840160 :          mat(k,1864) = mat(k,1864) + lmat(k,1864)
    5685   254840160 :          mat(k,1868) = mat(k,1868) + lmat(k,1868)
    5686   254840160 :          mat(k,1869) = lmat(k,1869)
    5687   254840160 :          mat(k,1870) = mat(k,1870) + lmat(k,1870)
    5688   254840160 :          mat(k,1872) = mat(k,1872) + lmat(k,1872)
    5689   254840160 :          mat(k,1874) = mat(k,1874) + lmat(k,1874)
    5690   254840160 :          mat(k,1875) = mat(k,1875) + lmat(k,1875)
    5691   254840160 :          mat(k,1876) = lmat(k,1876)
    5692   254840160 :          mat(k,1880) = mat(k,1880) + lmat(k,1880)
    5693   254840160 :          mat(k,1882) = mat(k,1882) + lmat(k,1882)
    5694   254840160 :          mat(k,1896) = mat(k,1896) + lmat(k,1896)
    5695   254840160 :          mat(k,1901) = lmat(k,1901)
    5696   254840160 :          mat(k,1902) = lmat(k,1902)
    5697   254840160 :          mat(k,1907) = lmat(k,1907)
    5698   254840160 :          mat(k,1908) = mat(k,1908) + lmat(k,1908)
    5699   254840160 :          mat(k,1910) = mat(k,1910) + lmat(k,1910)
    5700   254840160 :          mat(k,1912) = lmat(k,1912)
    5701   254840160 :          mat(k,1915) = lmat(k,1915)
    5702   254840160 :          mat(k,1916) = mat(k,1916) + lmat(k,1916)
    5703   254840160 :          mat(k,1917) = lmat(k,1917)
    5704   254840160 :          mat(k,1919) = lmat(k,1919)
    5705   254840160 :          mat(k,1922) = lmat(k,1922)
    5706   254840160 :          mat(k,1923) = mat(k,1923) + lmat(k,1923)
    5707   254840160 :          mat(k,1924) = lmat(k,1924)
    5708   254840160 :          mat(k,1926) = mat(k,1926) + lmat(k,1926)
    5709   254840160 :          mat(k,1927) = mat(k,1927) + lmat(k,1927)
    5710   254840160 :          mat(k,1928) = mat(k,1928) + lmat(k,1928)
    5711   254840160 :          mat(k,1930) = lmat(k,1930)
    5712   254840160 :          mat(k,1934) = lmat(k,1934)
    5713   254840160 :          mat(k,1935) = lmat(k,1935)
    5714   254840160 :          mat(k,1953) = mat(k,1953) + lmat(k,1953)
    5715   254840160 :          mat(k,1956) = mat(k,1956) + lmat(k,1956)
    5716   254840160 :          mat(k,1963) = mat(k,1963) + lmat(k,1963)
    5717   254840160 :          mat(k,1968) = mat(k,1968) + lmat(k,1968)
    5718   254840160 :          mat(k,1970) = lmat(k,1970)
    5719   254840160 :          mat(k,1971) = lmat(k,1971)
    5720   254840160 :          mat(k,1991) = mat(k,1991) + lmat(k,1991)
    5721   254840160 :          mat(k,1992) = mat(k,1992) + lmat(k,1992)
    5722   254840160 :          mat(k,2002) = mat(k,2002) + lmat(k,2002)
    5723   254840160 :          mat(k,2007) = mat(k,2007) + lmat(k,2007)
    5724   254840160 :          mat(k,2012) = mat(k,2012) + lmat(k,2012)
    5725   254840160 :          mat(k,2016) = mat(k,2016) + lmat(k,2016)
    5726   254840160 :          mat(k,2017) = mat(k,2017) + lmat(k,2017)
    5727   254840160 :          mat(k,2019) = mat(k,2019) + lmat(k,2019)
    5728   254840160 :          mat(k,2023) = mat(k,2023) + lmat(k,2023)
    5729   254840160 :          mat(k,2024) = mat(k,2024) + lmat(k,2024)
    5730   254840160 :          mat(k,2025) = lmat(k,2025)
    5731   254840160 :          mat(k,2032) = lmat(k,2032)
    5732   254840160 :          mat(k,2041) = mat(k,2041) + lmat(k,2041)
    5733   254840160 :          mat(k,2042) = mat(k,2042) + lmat(k,2042)
    5734   254840160 :          mat(k,2044) = mat(k,2044) + lmat(k,2044)
    5735   254840160 :          mat(k,2050) = lmat(k,2050)
    5736   254840160 :          mat(k,2057) = mat(k,2057) + lmat(k,2057)
    5737   254840160 :          mat(k,2062) = lmat(k,2062)
    5738   254840160 :          mat(k,2074) = lmat(k,2074)
    5739   254840160 :          mat(k,2077) = mat(k,2077) + lmat(k,2077)
    5740   254840160 :          mat(k,2078) = mat(k,2078) + lmat(k,2078)
    5741   254840160 :          mat(k,2081) = lmat(k,2081)
    5742   254840160 :          mat(k,2086) = mat(k,2086) + lmat(k,2086)
    5743   254840160 :          mat(k,2088) = mat(k,2088) + lmat(k,2088)
    5744   254840160 :          mat(k,2091) = mat(k,2091) + lmat(k,2091)
    5745   254840160 :          mat(k,2098) = lmat(k,2098)
    5746   254840160 :          mat(k,2106) = lmat(k,2106)
    5747   254840160 :          mat(k,2109) = mat(k,2109) + lmat(k,2109)
    5748   254840160 :          mat(k,2110) = mat(k,2110) + lmat(k,2110)
    5749   254840160 :          mat(k,2113) = lmat(k,2113)
    5750   254840160 :          mat(k,2118) = mat(k,2118) + lmat(k,2118)
    5751   254840160 :          mat(k,2120) = mat(k,2120) + lmat(k,2120)
    5752   254840160 :          mat(k,2123) = mat(k,2123) + lmat(k,2123)
    5753   254840160 :          mat(k,2136) = lmat(k,2136)
    5754   254840160 :          mat(k,2140) = mat(k,2140) + lmat(k,2140)
    5755   254840160 :          mat(k,2142) = lmat(k,2142)
    5756   254840160 :          mat(k,2147) = mat(k,2147) + lmat(k,2147)
    5757   254840160 :          mat(k,2149) = mat(k,2149) + lmat(k,2149)
    5758   254840160 :          mat(k,2180) = mat(k,2180) + lmat(k,2180)
    5759   254840160 :          mat(k,2199) = mat(k,2199) + lmat(k,2199)
    5760   254840160 :          mat(k,2213) = mat(k,2213) + lmat(k,2213)
    5761   254840160 :          mat(k,2235) = mat(k,2235) + lmat(k,2235)
    5762   254840160 :          mat(k,2256) = lmat(k,2256)
    5763   254840160 :          mat(k,2257) = mat(k,2257) + lmat(k,2257)
    5764   254840160 :          mat(k,2258) = lmat(k,2258)
    5765   254840160 :          mat(k,2259) = mat(k,2259) + lmat(k,2259)
    5766   254840160 :          mat(k,2260) = mat(k,2260) + lmat(k,2260)
    5767   254840160 :          mat(k,2263) = lmat(k,2263)
    5768   254840160 :          mat(k,2264) = mat(k,2264) + lmat(k,2264)
    5769   254840160 :          mat(k,2266) = mat(k,2266) + lmat(k,2266)
    5770   254840160 :          mat(k,2270) = mat(k,2270) + lmat(k,2270)
    5771   254840160 :          mat(k,2271) = mat(k,2271) + lmat(k,2271)
    5772   254840160 :          mat(k,2277) = mat(k,2277) + lmat(k,2277)
    5773   254840160 :          mat(k,2278) = lmat(k,2278)
    5774   254840160 :          mat(k,2284) = lmat(k,2284)
    5775   254840160 :          mat(k,2296) = mat(k,2296) + lmat(k,2296)
    5776   254840160 :          mat(k,2320) = mat(k,2320) + lmat(k,2320)
    5777   254840160 :          mat(k,2322) = lmat(k,2322)
    5778   254840160 :          mat(k,2329) = lmat(k,2329)
    5779   254840160 :          mat(k,2332) = mat(k,2332) + lmat(k,2332)
    5780   254840160 :          mat(k,2339) = mat(k,2339) + lmat(k,2339)
    5781   254840160 :          mat(k,2358) = lmat(k,2358)
    5782   254840160 :          mat(k,2359) = mat(k,2359) + lmat(k,2359)
    5783   254840160 :          mat(k,2360) = lmat(k,2360)
    5784   254840160 :          mat(k,2365) = lmat(k,2365)
    5785   254840160 :          mat(k,2380) = mat(k,2380) + lmat(k,2380)
    5786   254840160 :          mat(k,2408) = mat(k,2408) + lmat(k,2408)
    5787   254840160 :          mat(k,2441) = mat(k,2441) + lmat(k,2441)
    5788   254840160 :          mat(k,2471) = mat(k,2471) + lmat(k,2471)
    5789   254840160 :          mat(k,2505) = mat(k,2505) + lmat(k,2505)
    5790   254840160 :          mat(k,2536) = mat(k,2536) + lmat(k,2536)
    5791   254840160 :          mat(k,2570) = mat(k,2570) + lmat(k,2570)
    5792   254840160 :          mat(k,2600) = mat(k,2600) + lmat(k,2600)
    5793   254840160 :          mat(k,2629) = mat(k,2629) + lmat(k,2629)
    5794   254840160 :          mat(k,2654) = mat(k,2654) + lmat(k,2654)
    5795   254840160 :          mat(k,2677) = mat(k,2677) + lmat(k,2677)
    5796   254840160 :          mat(k,2701) = mat(k,2701) + lmat(k,2701)
    5797   254840160 :          mat(k,2745) = mat(k,2745) + lmat(k,2745)
    5798   254840160 :          mat(k,2792) = mat(k,2792) + lmat(k,2792)
    5799   254840160 :          mat(k,2840) = mat(k,2840) + lmat(k,2840)
    5800   254840160 :          mat(k,2913) = mat(k,2913) + lmat(k,2913)
    5801   254840160 :          mat(k,2931) = mat(k,2931) + lmat(k,2931)
    5802   254840160 :          mat(k,2936) = mat(k,2936) + lmat(k,2936)
    5803   254840160 :          mat(k,2949) = mat(k,2949) + lmat(k,2949)
    5804   254840160 :          mat(k,2956) = lmat(k,2956)
    5805   254840160 :          mat(k,2960) = mat(k,2960) + lmat(k,2960)
    5806   254840160 :          mat(k,2986) = mat(k,2986) + lmat(k,2986)
    5807   254840160 :          mat(k,3106) = mat(k,3106) + lmat(k,3106)
    5808   254840160 :          mat(k,3108) = mat(k,3108) + lmat(k,3108)
    5809   254840160 :          mat(k,3127) = mat(k,3127) + lmat(k,3127)
    5810   254840160 :          mat(k,3129) = mat(k,3129) + lmat(k,3129)
    5811   254840160 :          mat(k,3140) = mat(k,3140) + lmat(k,3140)
    5812   254840160 :          mat(k,3161) = mat(k,3161) + lmat(k,3161)
    5813   254840160 :          mat(k,3169) = mat(k,3169) + lmat(k,3169)
    5814   254840160 :          mat(k,3179) = lmat(k,3179)
    5815   254840160 :          mat(k,3180) = mat(k,3180) + lmat(k,3180)
    5816   254840160 :          mat(k,3183) = mat(k,3183) + lmat(k,3183)
    5817   254840160 :          mat(k,3188) = mat(k,3188) + lmat(k,3188)
    5818   254840160 :          mat(k,3369) = mat(k,3369) + lmat(k,3369)
    5819   254840160 :          mat(k,3379) = mat(k,3379) + lmat(k,3379)
    5820   254840160 :          mat(k,3463) = mat(k,3463) + lmat(k,3463)
    5821   254840160 :          mat(k,3479) = mat(k,3479) + lmat(k,3479)
    5822   254840160 :          mat(k,3484) = mat(k,3484) + lmat(k,3484)
    5823   254840160 :          mat(k,3488) = mat(k,3488) + lmat(k,3488)
    5824   254840160 :          mat(k,3510) = mat(k,3510) + lmat(k,3510)
    5825   254840160 :          mat(k,3515) = mat(k,3515) + lmat(k,3515)
    5826   254840160 :          mat(k,3520) = mat(k,3520) + lmat(k,3520)
    5827   254840160 :          mat(k,3601) = mat(k,3601) + lmat(k,3601)
    5828   254840160 :          mat(k,3602) = mat(k,3602) + lmat(k,3602)
    5829   254840160 :          mat(k,3604) = mat(k,3604) + lmat(k,3604)
    5830   254840160 :          mat(k,3610) = mat(k,3610) + lmat(k,3610)
    5831   254840160 :          mat(k,3611) = mat(k,3611) + lmat(k,3611)
    5832   254840160 :          mat(k,3653) = mat(k,3653) + lmat(k,3653)
    5833   254840160 :          mat(k,3654) = mat(k,3654) + lmat(k,3654)
    5834   254840160 :          mat(k,3656) = mat(k,3656) + lmat(k,3656)
    5835   254840160 :          mat(k,3663) = mat(k,3663) + lmat(k,3663)
    5836   254840160 :          mat(k,3667) = mat(k,3667) + lmat(k,3667)
    5837   254840160 :          mat(k,3758) = mat(k,3758) + lmat(k,3758)
    5838   254840160 :          mat(k,3766) = mat(k,3766) + lmat(k,3766)
    5839   254840160 :          mat(k,3767) = mat(k,3767) + lmat(k,3767)
    5840   254840160 :          mat(k,3799) = lmat(k,3799)
    5841   254840160 :          mat(k,3808) = mat(k,3808) + lmat(k,3808)
    5842   254840160 :          mat(k,3850) = mat(k,3850) + lmat(k,3850)
    5843   254840160 :          mat(k,4101) = mat(k,4101) + lmat(k,4101)
    5844   254840160 :          mat(k,4109) = lmat(k,4109)
    5845   254840160 :          mat(k,4112) = lmat(k,4112)
    5846   254840160 :          mat(k,4116) = lmat(k,4116)
    5847   254840160 :          mat(k,4125) = mat(k,4125) + lmat(k,4125)
    5848   254840160 :          mat(k,4127) = mat(k,4127) + lmat(k,4127)
    5849   254840160 :          mat(k,4128) = mat(k,4128) + lmat(k,4128)
    5850   254840160 :          mat(k, 233) = 0._r8
    5851   254840160 :          mat(k, 234) = 0._r8
    5852   254840160 :          mat(k, 262) = 0._r8
    5853   254840160 :          mat(k, 327) = 0._r8
    5854   254840160 :          mat(k, 355) = 0._r8
    5855   254840160 :          mat(k, 438) = 0._r8
    5856   254840160 :          mat(k, 442) = 0._r8
    5857   254840160 :          mat(k, 461) = 0._r8
    5858   254840160 :          mat(k, 482) = 0._r8
    5859   254840160 :          mat(k, 515) = 0._r8
    5860   254840160 :          mat(k, 520) = 0._r8
    5861   254840160 :          mat(k, 542) = 0._r8
    5862   254840160 :          mat(k, 715) = 0._r8
    5863   254840160 :          mat(k, 716) = 0._r8
    5864   254840160 :          mat(k, 719) = 0._r8
    5865   254840160 :          mat(k, 721) = 0._r8
    5866   254840160 :          mat(k, 724) = 0._r8
    5867   254840160 :          mat(k, 742) = 0._r8
    5868   254840160 :          mat(k, 744) = 0._r8
    5869   254840160 :          mat(k, 745) = 0._r8
    5870   254840160 :          mat(k, 748) = 0._r8
    5871   254840160 :          mat(k, 753) = 0._r8
    5872   254840160 :          mat(k, 754) = 0._r8
    5873   254840160 :          mat(k, 757) = 0._r8
    5874   254840160 :          mat(k, 843) = 0._r8
    5875   254840160 :          mat(k, 845) = 0._r8
    5876   254840160 :          mat(k, 846) = 0._r8
    5877   254840160 :          mat(k, 849) = 0._r8
    5878   254840160 :          mat(k, 850) = 0._r8
    5879   254840160 :          mat(k, 856) = 0._r8
    5880   254840160 :          mat(k, 861) = 0._r8
    5881   254840160 :          mat(k, 872) = 0._r8
    5882   254840160 :          mat(k, 874) = 0._r8
    5883   254840160 :          mat(k, 875) = 0._r8
    5884   254840160 :          mat(k, 878) = 0._r8
    5885   254840160 :          mat(k, 882) = 0._r8
    5886   254840160 :          mat(k, 894) = 0._r8
    5887   254840160 :          mat(k, 896) = 0._r8
    5888   254840160 :          mat(k, 897) = 0._r8
    5889   254840160 :          mat(k, 900) = 0._r8
    5890   254840160 :          mat(k, 901) = 0._r8
    5891   254840160 :          mat(k, 905) = 0._r8
    5892   254840160 :          mat(k, 941) = 0._r8
    5893   254840160 :          mat(k, 946) = 0._r8
    5894   254840160 :          mat(k, 947) = 0._r8
    5895   254840160 :          mat(k, 950) = 0._r8
    5896   254840160 :          mat(k, 953) = 0._r8
    5897   254840160 :          mat(k, 954) = 0._r8
    5898   254840160 :          mat(k,1000) = 0._r8
    5899   254840160 :          mat(k,1004) = 0._r8
    5900   254840160 :          mat(k,1007) = 0._r8
    5901   254840160 :          mat(k,1009) = 0._r8
    5902   254840160 :          mat(k,1018) = 0._r8
    5903   254840160 :          mat(k,1032) = 0._r8
    5904   254840160 :          mat(k,1033) = 0._r8
    5905   254840160 :          mat(k,1043) = 0._r8
    5906   254840160 :          mat(k,1047) = 0._r8
    5907   254840160 :          mat(k,1048) = 0._r8
    5908   254840160 :          mat(k,1073) = 0._r8
    5909   254840160 :          mat(k,1077) = 0._r8
    5910   254840160 :          mat(k,1079) = 0._r8
    5911   254840160 :          mat(k,1094) = 0._r8
    5912   254840160 :          mat(k,1181) = 0._r8
    5913   254840160 :          mat(k,1183) = 0._r8
    5914   254840160 :          mat(k,1186) = 0._r8
    5915   254840160 :          mat(k,1191) = 0._r8
    5916   254840160 :          mat(k,1193) = 0._r8
    5917   254840160 :          mat(k,1196) = 0._r8
    5918   254840160 :          mat(k,1197) = 0._r8
    5919   254840160 :          mat(k,1198) = 0._r8
    5920   254840160 :          mat(k,1199) = 0._r8
    5921   254840160 :          mat(k,1202) = 0._r8
    5922   254840160 :          mat(k,1205) = 0._r8
    5923   254840160 :          mat(k,1207) = 0._r8
    5924   254840160 :          mat(k,1220) = 0._r8
    5925   254840160 :          mat(k,1221) = 0._r8
    5926   254840160 :          mat(k,1222) = 0._r8
    5927   254840160 :          mat(k,1227) = 0._r8
    5928   254840160 :          mat(k,1240) = 0._r8
    5929   254840160 :          mat(k,1258) = 0._r8
    5930   254840160 :          mat(k,1275) = 0._r8
    5931   254840160 :          mat(k,1280) = 0._r8
    5932   254840160 :          mat(k,1283) = 0._r8
    5933   254840160 :          mat(k,1334) = 0._r8
    5934   254840160 :          mat(k,1347) = 0._r8
    5935   254840160 :          mat(k,1358) = 0._r8
    5936   254840160 :          mat(k,1364) = 0._r8
    5937   254840160 :          mat(k,1369) = 0._r8
    5938   254840160 :          mat(k,1370) = 0._r8
    5939   254840160 :          mat(k,1371) = 0._r8
    5940   254840160 :          mat(k,1389) = 0._r8
    5941   254840160 :          mat(k,1392) = 0._r8
    5942   254840160 :          mat(k,1397) = 0._r8
    5943   254840160 :          mat(k,1400) = 0._r8
    5944   254840160 :          mat(k,1413) = 0._r8
    5945   254840160 :          mat(k,1414) = 0._r8
    5946   254840160 :          mat(k,1415) = 0._r8
    5947   254840160 :          mat(k,1416) = 0._r8
    5948   254840160 :          mat(k,1417) = 0._r8
    5949   254840160 :          mat(k,1418) = 0._r8
    5950   254840160 :          mat(k,1430) = 0._r8
    5951   254840160 :          mat(k,1523) = 0._r8
    5952   254840160 :          mat(k,1525) = 0._r8
    5953   254840160 :          mat(k,1526) = 0._r8
    5954   254840160 :          mat(k,1527) = 0._r8
    5955   254840160 :          mat(k,1528) = 0._r8
    5956   254840160 :          mat(k,1529) = 0._r8
    5957   254840160 :          mat(k,1530) = 0._r8
    5958   254840160 :          mat(k,1531) = 0._r8
    5959   254840160 :          mat(k,1532) = 0._r8
    5960   254840160 :          mat(k,1534) = 0._r8
    5961   254840160 :          mat(k,1567) = 0._r8
    5962   254840160 :          mat(k,1573) = 0._r8
    5963   254840160 :          mat(k,1574) = 0._r8
    5964   254840160 :          mat(k,1575) = 0._r8
    5965   254840160 :          mat(k,1576) = 0._r8
    5966   254840160 :          mat(k,1577) = 0._r8
    5967   254840160 :          mat(k,1578) = 0._r8
    5968   254840160 :          mat(k,1579) = 0._r8
    5969   254840160 :          mat(k,1580) = 0._r8
    5970   254840160 :          mat(k,1582) = 0._r8
    5971   254840160 :          mat(k,1585) = 0._r8
    5972   254840160 :          mat(k,1587) = 0._r8
    5973   254840160 :          mat(k,1588) = 0._r8
    5974   254840160 :          mat(k,1589) = 0._r8
    5975   254840160 :          mat(k,1590) = 0._r8
    5976   254840160 :          mat(k,1594) = 0._r8
    5977   254840160 :          mat(k,1596) = 0._r8
    5978   254840160 :          mat(k,1605) = 0._r8
    5979   254840160 :          mat(k,1612) = 0._r8
    5980   254840160 :          mat(k,1621) = 0._r8
    5981   254840160 :          mat(k,1625) = 0._r8
    5982   254840160 :          mat(k,1633) = 0._r8
    5983   254840160 :          mat(k,1639) = 0._r8
    5984   254840160 :          mat(k,1641) = 0._r8
    5985   254840160 :          mat(k,1642) = 0._r8
    5986   254840160 :          mat(k,1644) = 0._r8
    5987   254840160 :          mat(k,1648) = 0._r8
    5988   254840160 :          mat(k,1649) = 0._r8
    5989   254840160 :          mat(k,1651) = 0._r8
    5990   254840160 :          mat(k,1652) = 0._r8
    5991   254840160 :          mat(k,1657) = 0._r8
    5992   254840160 :          mat(k,1658) = 0._r8
    5993   254840160 :          mat(k,1662) = 0._r8
    5994   254840160 :          mat(k,1663) = 0._r8
    5995   254840160 :          mat(k,1664) = 0._r8
    5996   254840160 :          mat(k,1665) = 0._r8
    5997   254840160 :          mat(k,1667) = 0._r8
    5998   254840160 :          mat(k,1674) = 0._r8
    5999   254840160 :          mat(k,1676) = 0._r8
    6000   254840160 :          mat(k,1679) = 0._r8
    6001   254840160 :          mat(k,1680) = 0._r8
    6002   254840160 :          mat(k,1686) = 0._r8
    6003   254840160 :          mat(k,1687) = 0._r8
    6004   254840160 :          mat(k,1688) = 0._r8
    6005   254840160 :          mat(k,1690) = 0._r8
    6006   254840160 :          mat(k,1692) = 0._r8
    6007   254840160 :          mat(k,1693) = 0._r8
    6008   254840160 :          mat(k,1698) = 0._r8
    6009   254840160 :          mat(k,1699) = 0._r8
    6010   254840160 :          mat(k,1700) = 0._r8
    6011   254840160 :          mat(k,1701) = 0._r8
    6012   254840160 :          mat(k,1703) = 0._r8
    6013   254840160 :          mat(k,1706) = 0._r8
    6014   254840160 :          mat(k,1714) = 0._r8
    6015   254840160 :          mat(k,1731) = 0._r8
    6016   254840160 :          mat(k,1733) = 0._r8
    6017   254840160 :          mat(k,1736) = 0._r8
    6018   254840160 :          mat(k,1737) = 0._r8
    6019   254840160 :          mat(k,1742) = 0._r8
    6020   254840160 :          mat(k,1753) = 0._r8
    6021   254840160 :          mat(k,1755) = 0._r8
    6022   254840160 :          mat(k,1758) = 0._r8
    6023   254840160 :          mat(k,1759) = 0._r8
    6024   254840160 :          mat(k,1764) = 0._r8
    6025   254840160 :          mat(k,1781) = 0._r8
    6026   254840160 :          mat(k,1789) = 0._r8
    6027   254840160 :          mat(k,1797) = 0._r8
    6028   254840160 :          mat(k,1798) = 0._r8
    6029   254840160 :          mat(k,1799) = 0._r8
    6030   254840160 :          mat(k,1800) = 0._r8
    6031   254840160 :          mat(k,1807) = 0._r8
    6032   254840160 :          mat(k,1809) = 0._r8
    6033   254840160 :          mat(k,1812) = 0._r8
    6034   254840160 :          mat(k,1814) = 0._r8
    6035   254840160 :          mat(k,1815) = 0._r8
    6036   254840160 :          mat(k,1816) = 0._r8
    6037   254840160 :          mat(k,1820) = 0._r8
    6038   254840160 :          mat(k,1821) = 0._r8
    6039   254840160 :          mat(k,1822) = 0._r8
    6040   254840160 :          mat(k,1825) = 0._r8
    6041   254840160 :          mat(k,1828) = 0._r8
    6042   254840160 :          mat(k,1838) = 0._r8
    6043   254840160 :          mat(k,1840) = 0._r8
    6044   254840160 :          mat(k,1841) = 0._r8
    6045   254840160 :          mat(k,1844) = 0._r8
    6046   254840160 :          mat(k,1846) = 0._r8
    6047   254840160 :          mat(k,1847) = 0._r8
    6048   254840160 :          mat(k,1851) = 0._r8
    6049   254840160 :          mat(k,1852) = 0._r8
    6050   254840160 :          mat(k,1853) = 0._r8
    6051   254840160 :          mat(k,1854) = 0._r8
    6052   254840160 :          mat(k,1859) = 0._r8
    6053   254840160 :          mat(k,1865) = 0._r8
    6054   254840160 :          mat(k,1867) = 0._r8
    6055   254840160 :          mat(k,1871) = 0._r8
    6056   254840160 :          mat(k,1873) = 0._r8
    6057   254840160 :          mat(k,1877) = 0._r8
    6058   254840160 :          mat(k,1878) = 0._r8
    6059   254840160 :          mat(k,1879) = 0._r8
    6060   254840160 :          mat(k,1881) = 0._r8
    6061   254840160 :          mat(k,1886) = 0._r8
    6062   254840160 :          mat(k,1887) = 0._r8
    6063   254840160 :          mat(k,1888) = 0._r8
    6064   254840160 :          mat(k,1889) = 0._r8
    6065   254840160 :          mat(k,1891) = 0._r8
    6066   254840160 :          mat(k,1894) = 0._r8
    6067   254840160 :          mat(k,1897) = 0._r8
    6068   254840160 :          mat(k,1898) = 0._r8
    6069   254840160 :          mat(k,1903) = 0._r8
    6070   254840160 :          mat(k,1904) = 0._r8
    6071   254840160 :          mat(k,1905) = 0._r8
    6072   254840160 :          mat(k,1906) = 0._r8
    6073   254840160 :          mat(k,1909) = 0._r8
    6074   254840160 :          mat(k,1914) = 0._r8
    6075   254840160 :          mat(k,1920) = 0._r8
    6076   254840160 :          mat(k,1921) = 0._r8
    6077   254840160 :          mat(k,1938) = 0._r8
    6078   254840160 :          mat(k,1939) = 0._r8
    6079   254840160 :          mat(k,1940) = 0._r8
    6080   254840160 :          mat(k,1942) = 0._r8
    6081   254840160 :          mat(k,1943) = 0._r8
    6082   254840160 :          mat(k,1944) = 0._r8
    6083   254840160 :          mat(k,1945) = 0._r8
    6084   254840160 :          mat(k,1946) = 0._r8
    6085   254840160 :          mat(k,1947) = 0._r8
    6086   254840160 :          mat(k,1948) = 0._r8
    6087   254840160 :          mat(k,1949) = 0._r8
    6088   254840160 :          mat(k,1951) = 0._r8
    6089   254840160 :          mat(k,1952) = 0._r8
    6090   254840160 :          mat(k,1954) = 0._r8
    6091   254840160 :          mat(k,1955) = 0._r8
    6092   254840160 :          mat(k,1957) = 0._r8
    6093   254840160 :          mat(k,1958) = 0._r8
    6094   254840160 :          mat(k,1960) = 0._r8
    6095   254840160 :          mat(k,1962) = 0._r8
    6096   254840160 :          mat(k,1966) = 0._r8
    6097   254840160 :          mat(k,1969) = 0._r8
    6098   254840160 :          mat(k,1974) = 0._r8
    6099   254840160 :          mat(k,1975) = 0._r8
    6100   254840160 :          mat(k,1977) = 0._r8
    6101   254840160 :          mat(k,1979) = 0._r8
    6102   254840160 :          mat(k,1980) = 0._r8
    6103   254840160 :          mat(k,1981) = 0._r8
    6104   254840160 :          mat(k,1982) = 0._r8
    6105   254840160 :          mat(k,1983) = 0._r8
    6106   254840160 :          mat(k,1984) = 0._r8
    6107   254840160 :          mat(k,1985) = 0._r8
    6108   254840160 :          mat(k,1988) = 0._r8
    6109   254840160 :          mat(k,1989) = 0._r8
    6110   254840160 :          mat(k,1990) = 0._r8
    6111   254840160 :          mat(k,1993) = 0._r8
    6112   254840160 :          mat(k,1994) = 0._r8
    6113   254840160 :          mat(k,1995) = 0._r8
    6114   254840160 :          mat(k,1996) = 0._r8
    6115   254840160 :          mat(k,1997) = 0._r8
    6116   254840160 :          mat(k,1999) = 0._r8
    6117   254840160 :          mat(k,2001) = 0._r8
    6118   254840160 :          mat(k,2005) = 0._r8
    6119   254840160 :          mat(k,2008) = 0._r8
    6120   254840160 :          mat(k,2011) = 0._r8
    6121   254840160 :          mat(k,2013) = 0._r8
    6122   254840160 :          mat(k,2014) = 0._r8
    6123   254840160 :          mat(k,2018) = 0._r8
    6124   254840160 :          mat(k,2020) = 0._r8
    6125   254840160 :          mat(k,2021) = 0._r8
    6126   254840160 :          mat(k,2022) = 0._r8
    6127   254840160 :          mat(k,2026) = 0._r8
    6128   254840160 :          mat(k,2027) = 0._r8
    6129   254840160 :          mat(k,2034) = 0._r8
    6130   254840160 :          mat(k,2037) = 0._r8
    6131   254840160 :          mat(k,2038) = 0._r8
    6132   254840160 :          mat(k,2039) = 0._r8
    6133   254840160 :          mat(k,2043) = 0._r8
    6134   254840160 :          mat(k,2045) = 0._r8
    6135   254840160 :          mat(k,2046) = 0._r8
    6136   254840160 :          mat(k,2047) = 0._r8
    6137   254840160 :          mat(k,2051) = 0._r8
    6138   254840160 :          mat(k,2052) = 0._r8
    6139   254840160 :          mat(k,2055) = 0._r8
    6140   254840160 :          mat(k,2058) = 0._r8
    6141   254840160 :          mat(k,2063) = 0._r8
    6142   254840160 :          mat(k,2068) = 0._r8
    6143   254840160 :          mat(k,2069) = 0._r8
    6144   254840160 :          mat(k,2071) = 0._r8
    6145   254840160 :          mat(k,2073) = 0._r8
    6146   254840160 :          mat(k,2075) = 0._r8
    6147   254840160 :          mat(k,2080) = 0._r8
    6148   254840160 :          mat(k,2082) = 0._r8
    6149   254840160 :          mat(k,2083) = 0._r8
    6150   254840160 :          mat(k,2084) = 0._r8
    6151   254840160 :          mat(k,2085) = 0._r8
    6152   254840160 :          mat(k,2087) = 0._r8
    6153   254840160 :          mat(k,2090) = 0._r8
    6154   254840160 :          mat(k,2092) = 0._r8
    6155   254840160 :          mat(k,2095) = 0._r8
    6156   254840160 :          mat(k,2100) = 0._r8
    6157   254840160 :          mat(k,2101) = 0._r8
    6158   254840160 :          mat(k,2102) = 0._r8
    6159   254840160 :          mat(k,2104) = 0._r8
    6160   254840160 :          mat(k,2105) = 0._r8
    6161   254840160 :          mat(k,2112) = 0._r8
    6162   254840160 :          mat(k,2114) = 0._r8
    6163   254840160 :          mat(k,2115) = 0._r8
    6164   254840160 :          mat(k,2116) = 0._r8
    6165   254840160 :          mat(k,2117) = 0._r8
    6166   254840160 :          mat(k,2119) = 0._r8
    6167   254840160 :          mat(k,2122) = 0._r8
    6168   254840160 :          mat(k,2124) = 0._r8
    6169   254840160 :          mat(k,2132) = 0._r8
    6170   254840160 :          mat(k,2133) = 0._r8
    6171   254840160 :          mat(k,2135) = 0._r8
    6172   254840160 :          mat(k,2143) = 0._r8
    6173   254840160 :          mat(k,2144) = 0._r8
    6174   254840160 :          mat(k,2145) = 0._r8
    6175   254840160 :          mat(k,2146) = 0._r8
    6176   254840160 :          mat(k,2148) = 0._r8
    6177   254840160 :          mat(k,2151) = 0._r8
    6178   254840160 :          mat(k,2153) = 0._r8
    6179   254840160 :          mat(k,2156) = 0._r8
    6180   254840160 :          mat(k,2157) = 0._r8
    6181   254840160 :          mat(k,2158) = 0._r8
    6182   254840160 :          mat(k,2159) = 0._r8
    6183   254840160 :          mat(k,2160) = 0._r8
    6184   254840160 :          mat(k,2161) = 0._r8
    6185   254840160 :          mat(k,2162) = 0._r8
    6186   254840160 :          mat(k,2166) = 0._r8
    6187   254840160 :          mat(k,2168) = 0._r8
    6188   254840160 :          mat(k,2169) = 0._r8
    6189   254840160 :          mat(k,2170) = 0._r8
    6190   254840160 :          mat(k,2171) = 0._r8
    6191   254840160 :          mat(k,2172) = 0._r8
    6192   254840160 :          mat(k,2173) = 0._r8
    6193   254840160 :          mat(k,2176) = 0._r8
    6194   254840160 :          mat(k,2181) = 0._r8
    6195   254840160 :          mat(k,2182) = 0._r8
    6196   254840160 :          mat(k,2184) = 0._r8
    6197   254840160 :          mat(k,2186) = 0._r8
    6198   254840160 :          mat(k,2187) = 0._r8
    6199   254840160 :          mat(k,2193) = 0._r8
    6200   254840160 :          mat(k,2194) = 0._r8
    6201   254840160 :          mat(k,2196) = 0._r8
    6202   254840160 :          mat(k,2200) = 0._r8
    6203   254840160 :          mat(k,2201) = 0._r8
    6204   254840160 :          mat(k,2206) = 0._r8
    6205   254840160 :          mat(k,2207) = 0._r8
    6206   254840160 :          mat(k,2208) = 0._r8
    6207   254840160 :          mat(k,2212) = 0._r8
    6208   254840160 :          mat(k,2223) = 0._r8
    6209   254840160 :          mat(k,2233) = 0._r8
    6210   254840160 :          mat(k,2234) = 0._r8
    6211   254840160 :          mat(k,2237) = 0._r8
    6212   254840160 :          mat(k,2245) = 0._r8
    6213   254840160 :          mat(k,2247) = 0._r8
    6214   254840160 :          mat(k,2261) = 0._r8
    6215   254840160 :          mat(k,2267) = 0._r8
    6216   254840160 :          mat(k,2273) = 0._r8
    6217   254840160 :          mat(k,2274) = 0._r8
    6218   254840160 :          mat(k,2275) = 0._r8
    6219   254840160 :          mat(k,2276) = 0._r8
    6220   254840160 :          mat(k,2279) = 0._r8
    6221   254840160 :          mat(k,2280) = 0._r8
    6222   254840160 :          mat(k,2281) = 0._r8
    6223   254840160 :          mat(k,2282) = 0._r8
    6224   254840160 :          mat(k,2283) = 0._r8
    6225   254840160 :          mat(k,2285) = 0._r8
    6226   254840160 :          mat(k,2286) = 0._r8
    6227   254840160 :          mat(k,2295) = 0._r8
    6228   254840160 :          mat(k,2305) = 0._r8
    6229   254840160 :          mat(k,2307) = 0._r8
    6230   254840160 :          mat(k,2314) = 0._r8
    6231   254840160 :          mat(k,2316) = 0._r8
    6232   254840160 :          mat(k,2317) = 0._r8
    6233   254840160 :          mat(k,2318) = 0._r8
    6234   254840160 :          mat(k,2319) = 0._r8
    6235   254840160 :          mat(k,2321) = 0._r8
    6236   254840160 :          mat(k,2323) = 0._r8
    6237   254840160 :          mat(k,2324) = 0._r8
    6238   254840160 :          mat(k,2325) = 0._r8
    6239   254840160 :          mat(k,2326) = 0._r8
    6240   254840160 :          mat(k,2327) = 0._r8
    6241   254840160 :          mat(k,2328) = 0._r8
    6242   254840160 :          mat(k,2330) = 0._r8
    6243   254840160 :          mat(k,2331) = 0._r8
    6244   254840160 :          mat(k,2337) = 0._r8
    6245   254840160 :          mat(k,2340) = 0._r8
    6246   254840160 :          mat(k,2349) = 0._r8
    6247   254840160 :          mat(k,2351) = 0._r8
    6248   254840160 :          mat(k,2364) = 0._r8
    6249   254840160 :          mat(k,2376) = 0._r8
    6250   254840160 :          mat(k,2379) = 0._r8
    6251   254840160 :          mat(k,2389) = 0._r8
    6252   254840160 :          mat(k,2391) = 0._r8
    6253   254840160 :          mat(k,2398) = 0._r8
    6254   254840160 :          mat(k,2401) = 0._r8
    6255   254840160 :          mat(k,2403) = 0._r8
    6256   254840160 :          mat(k,2405) = 0._r8
    6257   254840160 :          mat(k,2406) = 0._r8
    6258   254840160 :          mat(k,2407) = 0._r8
    6259   254840160 :          mat(k,2410) = 0._r8
    6260   254840160 :          mat(k,2418) = 0._r8
    6261   254840160 :          mat(k,2420) = 0._r8
    6262   254840160 :          mat(k,2437) = 0._r8
    6263   254840160 :          mat(k,2450) = 0._r8
    6264   254840160 :          mat(k,2452) = 0._r8
    6265   254840160 :          mat(k,2459) = 0._r8
    6266   254840160 :          mat(k,2461) = 0._r8
    6267   254840160 :          mat(k,2463) = 0._r8
    6268   254840160 :          mat(k,2467) = 0._r8
    6269   254840160 :          mat(k,2469) = 0._r8
    6270   254840160 :          mat(k,2470) = 0._r8
    6271   254840160 :          mat(k,2473) = 0._r8
    6272   254840160 :          mat(k,2481) = 0._r8
    6273   254840160 :          mat(k,2483) = 0._r8
    6274   254840160 :          mat(k,2490) = 0._r8
    6275   254840160 :          mat(k,2493) = 0._r8
    6276   254840160 :          mat(k,2494) = 0._r8
    6277   254840160 :          mat(k,2495) = 0._r8
    6278   254840160 :          mat(k,2498) = 0._r8
    6279   254840160 :          mat(k,2499) = 0._r8
    6280   254840160 :          mat(k,2503) = 0._r8
    6281   254840160 :          mat(k,2504) = 0._r8
    6282   254840160 :          mat(k,2506) = 0._r8
    6283   254840160 :          mat(k,2515) = 0._r8
    6284   254840160 :          mat(k,2517) = 0._r8
    6285   254840160 :          mat(k,2524) = 0._r8
    6286   254840160 :          mat(k,2534) = 0._r8
    6287   254840160 :          mat(k,2535) = 0._r8
    6288   254840160 :          mat(k,2544) = 0._r8
    6289   254840160 :          mat(k,2546) = 0._r8
    6290   254840160 :          mat(k,2553) = 0._r8
    6291   254840160 :          mat(k,2556) = 0._r8
    6292   254840160 :          mat(k,2557) = 0._r8
    6293   254840160 :          mat(k,2558) = 0._r8
    6294   254840160 :          mat(k,2561) = 0._r8
    6295   254840160 :          mat(k,2562) = 0._r8
    6296   254840160 :          mat(k,2566) = 0._r8
    6297   254840160 :          mat(k,2568) = 0._r8
    6298   254840160 :          mat(k,2569) = 0._r8
    6299   254840160 :          mat(k,2572) = 0._r8
    6300   254840160 :          mat(k,2580) = 0._r8
    6301   254840160 :          mat(k,2582) = 0._r8
    6302   254840160 :          mat(k,2589) = 0._r8
    6303   254840160 :          mat(k,2594) = 0._r8
    6304   254840160 :          mat(k,2596) = 0._r8
    6305   254840160 :          mat(k,2597) = 0._r8
    6306   254840160 :          mat(k,2598) = 0._r8
    6307   254840160 :          mat(k,2599) = 0._r8
    6308   254840160 :          mat(k,2602) = 0._r8
    6309   254840160 :          mat(k,2603) = 0._r8
    6310   254840160 :          mat(k,2604) = 0._r8
    6311   254840160 :          mat(k,2605) = 0._r8
    6312   254840160 :          mat(k,2606) = 0._r8
    6313   254840160 :          mat(k,2607) = 0._r8
    6314   254840160 :          mat(k,2608) = 0._r8
    6315   254840160 :          mat(k,2609) = 0._r8
    6316   254840160 :          mat(k,2610) = 0._r8
    6317   254840160 :          mat(k,2616) = 0._r8
    6318   254840160 :          mat(k,2618) = 0._r8
    6319   254840160 :          mat(k,2620) = 0._r8
    6320   254840160 :          mat(k,2624) = 0._r8
    6321   254840160 :          mat(k,2625) = 0._r8
    6322   254840160 :          mat(k,2627) = 0._r8
    6323   254840160 :          mat(k,2628) = 0._r8
    6324   254840160 :          mat(k,2630) = 0._r8
    6325   254840160 :          mat(k,2631) = 0._r8
    6326   254840160 :          mat(k,2632) = 0._r8
    6327   254840160 :          mat(k,2634) = 0._r8
    6328   254840160 :          mat(k,2635) = 0._r8
    6329   254840160 :          mat(k,2636) = 0._r8
    6330   254840160 :          mat(k,2637) = 0._r8
    6331   254840160 :          mat(k,2638) = 0._r8
    6332   254840160 :          mat(k,2640) = 0._r8
    6333   254840160 :          mat(k,2644) = 0._r8
    6334   254840160 :          mat(k,2646) = 0._r8
    6335   254840160 :          mat(k,2652) = 0._r8
    6336   254840160 :          mat(k,2653) = 0._r8
    6337   254840160 :          mat(k,2661) = 0._r8
    6338   254840160 :          mat(k,2663) = 0._r8
    6339   254840160 :          mat(k,2669) = 0._r8
    6340   254840160 :          mat(k,2673) = 0._r8
    6341   254840160 :          mat(k,2675) = 0._r8
    6342   254840160 :          mat(k,2683) = 0._r8
    6343   254840160 :          mat(k,2685) = 0._r8
    6344   254840160 :          mat(k,2695) = 0._r8
    6345   254840160 :          mat(k,2697) = 0._r8
    6346   254840160 :          mat(k,2698) = 0._r8
    6347   254840160 :          mat(k,2706) = 0._r8
    6348   254840160 :          mat(k,2708) = 0._r8
    6349   254840160 :          mat(k,2715) = 0._r8
    6350   254840160 :          mat(k,2749) = 0._r8
    6351   254840160 :          mat(k,2751) = 0._r8
    6352   254840160 :          mat(k,2752) = 0._r8
    6353   254840160 :          mat(k,2759) = 0._r8
    6354   254840160 :          mat(k,2761) = 0._r8
    6355   254840160 :          mat(k,2795) = 0._r8
    6356   254840160 :          mat(k,2797) = 0._r8
    6357   254840160 :          mat(k,2798) = 0._r8
    6358   254840160 :          mat(k,2805) = 0._r8
    6359   254840160 :          mat(k,2807) = 0._r8
    6360   254840160 :          mat(k,2811) = 0._r8
    6361   254840160 :          mat(k,2842) = 0._r8
    6362   254840160 :          mat(k,2844) = 0._r8
    6363   254840160 :          mat(k,2845) = 0._r8
    6364   254840160 :          mat(k,2852) = 0._r8
    6365   254840160 :          mat(k,2854) = 0._r8
    6366   254840160 :          mat(k,2874) = 0._r8
    6367   254840160 :          mat(k,2878) = 0._r8
    6368   254840160 :          mat(k,2879) = 0._r8
    6369   254840160 :          mat(k,2886) = 0._r8
    6370   254840160 :          mat(k,2887) = 0._r8
    6371   254840160 :          mat(k,2892) = 0._r8
    6372   254840160 :          mat(k,2914) = 0._r8
    6373   254840160 :          mat(k,2915) = 0._r8
    6374   254840160 :          mat(k,2917) = 0._r8
    6375   254840160 :          mat(k,2918) = 0._r8
    6376   254840160 :          mat(k,2922) = 0._r8
    6377   254840160 :          mat(k,2925) = 0._r8
    6378   254840160 :          mat(k,2926) = 0._r8
    6379   254840160 :          mat(k,2928) = 0._r8
    6380   254840160 :          mat(k,2930) = 0._r8
    6381   254840160 :          mat(k,2932) = 0._r8
    6382   254840160 :          mat(k,2933) = 0._r8
    6383   254840160 :          mat(k,2935) = 0._r8
    6384   254840160 :          mat(k,2937) = 0._r8
    6385   254840160 :          mat(k,2938) = 0._r8
    6386   254840160 :          mat(k,2940) = 0._r8
    6387   254840160 :          mat(k,2941) = 0._r8
    6388   254840160 :          mat(k,2946) = 0._r8
    6389   254840160 :          mat(k,2947) = 0._r8
    6390   254840160 :          mat(k,2948) = 0._r8
    6391   254840160 :          mat(k,2950) = 0._r8
    6392   254840160 :          mat(k,2951) = 0._r8
    6393   254840160 :          mat(k,2952) = 0._r8
    6394   254840160 :          mat(k,2953) = 0._r8
    6395   254840160 :          mat(k,2954) = 0._r8
    6396   254840160 :          mat(k,2957) = 0._r8
    6397   254840160 :          mat(k,2958) = 0._r8
    6398   254840160 :          mat(k,2959) = 0._r8
    6399   254840160 :          mat(k,3028) = 0._r8
    6400   254840160 :          mat(k,3041) = 0._r8
    6401   254840160 :          mat(k,3044) = 0._r8
    6402   254840160 :          mat(k,3047) = 0._r8
    6403   254840160 :          mat(k,3067) = 0._r8
    6404   254840160 :          mat(k,3082) = 0._r8
    6405   254840160 :          mat(k,3104) = 0._r8
    6406   254840160 :          mat(k,3105) = 0._r8
    6407   254840160 :          mat(k,3107) = 0._r8
    6408   254840160 :          mat(k,3117) = 0._r8
    6409   254840160 :          mat(k,3120) = 0._r8
    6410   254840160 :          mat(k,3126) = 0._r8
    6411   254840160 :          mat(k,3131) = 0._r8
    6412   254840160 :          mat(k,3132) = 0._r8
    6413   254840160 :          mat(k,3133) = 0._r8
    6414   254840160 :          mat(k,3134) = 0._r8
    6415   254840160 :          mat(k,3136) = 0._r8
    6416   254840160 :          mat(k,3137) = 0._r8
    6417   254840160 :          mat(k,3138) = 0._r8
    6418   254840160 :          mat(k,3144) = 0._r8
    6419   254840160 :          mat(k,3149) = 0._r8
    6420   254840160 :          mat(k,3156) = 0._r8
    6421   254840160 :          mat(k,3158) = 0._r8
    6422   254840160 :          mat(k,3164) = 0._r8
    6423   254840160 :          mat(k,3170) = 0._r8
    6424   254840160 :          mat(k,3173) = 0._r8
    6425   254840160 :          mat(k,3176) = 0._r8
    6426   254840160 :          mat(k,3177) = 0._r8
    6427   254840160 :          mat(k,3178) = 0._r8
    6428   254840160 :          mat(k,3182) = 0._r8
    6429   254840160 :          mat(k,3185) = 0._r8
    6430   254840160 :          mat(k,3190) = 0._r8
    6431   254840160 :          mat(k,3191) = 0._r8
    6432   254840160 :          mat(k,3192) = 0._r8
    6433   254840160 :          mat(k,3194) = 0._r8
    6434   254840160 :          mat(k,3195) = 0._r8
    6435   254840160 :          mat(k,3196) = 0._r8
    6436   254840160 :          mat(k,3218) = 0._r8
    6437   254840160 :          mat(k,3234) = 0._r8
    6438   254840160 :          mat(k,3236) = 0._r8
    6439   254840160 :          mat(k,3287) = 0._r8
    6440   254840160 :          mat(k,3302) = 0._r8
    6441   254840160 :          mat(k,3312) = 0._r8
    6442   254840160 :          mat(k,3322) = 0._r8
    6443   254840160 :          mat(k,3325) = 0._r8
    6444   254840160 :          mat(k,3334) = 0._r8
    6445   254840160 :          mat(k,3335) = 0._r8
    6446   254840160 :          mat(k,3336) = 0._r8
    6447   254840160 :          mat(k,3341) = 0._r8
    6448   254840160 :          mat(k,3364) = 0._r8
    6449   254840160 :          mat(k,3376) = 0._r8
    6450   254840160 :          mat(k,3388) = 0._r8
    6451   254840160 :          mat(k,3393) = 0._r8
    6452   254840160 :          mat(k,3394) = 0._r8
    6453   254840160 :          mat(k,3396) = 0._r8
    6454   254840160 :          mat(k,3397) = 0._r8
    6455   254840160 :          mat(k,3406) = 0._r8
    6456   254840160 :          mat(k,3407) = 0._r8
    6457   254840160 :          mat(k,3415) = 0._r8
    6458   254840160 :          mat(k,3416) = 0._r8
    6459   254840160 :          mat(k,3420) = 0._r8
    6460   254840160 :          mat(k,3421) = 0._r8
    6461   254840160 :          mat(k,3434) = 0._r8
    6462   254840160 :          mat(k,3456) = 0._r8
    6463   254840160 :          mat(k,3457) = 0._r8
    6464   254840160 :          mat(k,3459) = 0._r8
    6465   254840160 :          mat(k,3460) = 0._r8
    6466   254840160 :          mat(k,3464) = 0._r8
    6467   254840160 :          mat(k,3466) = 0._r8
    6468   254840160 :          mat(k,3468) = 0._r8
    6469   254840160 :          mat(k,3469) = 0._r8
    6470   254840160 :          mat(k,3472) = 0._r8
    6471   254840160 :          mat(k,3480) = 0._r8
    6472   254840160 :          mat(k,3481) = 0._r8
    6473   254840160 :          mat(k,3483) = 0._r8
    6474   254840160 :          mat(k,3485) = 0._r8
    6475   254840160 :          mat(k,3487) = 0._r8
    6476   254840160 :          mat(k,3490) = 0._r8
    6477   254840160 :          mat(k,3492) = 0._r8
    6478   254840160 :          mat(k,3493) = 0._r8
    6479   254840160 :          mat(k,3496) = 0._r8
    6480   254840160 :          mat(k,3506) = 0._r8
    6481   254840160 :          mat(k,3507) = 0._r8
    6482   254840160 :          mat(k,3516) = 0._r8
    6483   254840160 :          mat(k,3518) = 0._r8
    6484   254840160 :          mat(k,3519) = 0._r8
    6485   254840160 :          mat(k,3522) = 0._r8
    6486   254840160 :          mat(k,3528) = 0._r8
    6487   254840160 :          mat(k,3530) = 0._r8
    6488   254840160 :          mat(k,3535) = 0._r8
    6489   254840160 :          mat(k,3536) = 0._r8
    6490   254840160 :          mat(k,3540) = 0._r8
    6491   254840160 :          mat(k,3541) = 0._r8
    6492   254840160 :          mat(k,3546) = 0._r8
    6493   254840160 :          mat(k,3547) = 0._r8
    6494   254840160 :          mat(k,3550) = 0._r8
    6495   254840160 :          mat(k,3555) = 0._r8
    6496   254840160 :          mat(k,3557) = 0._r8
    6497   254840160 :          mat(k,3558) = 0._r8
    6498   254840160 :          mat(k,3559) = 0._r8
    6499   254840160 :          mat(k,3560) = 0._r8
    6500   254840160 :          mat(k,3561) = 0._r8
    6501   254840160 :          mat(k,3562) = 0._r8
    6502   254840160 :          mat(k,3563) = 0._r8
    6503   254840160 :          mat(k,3564) = 0._r8
    6504   254840160 :          mat(k,3566) = 0._r8
    6505   254840160 :          mat(k,3567) = 0._r8
    6506   254840160 :          mat(k,3571) = 0._r8
    6507   254840160 :          mat(k,3572) = 0._r8
    6508   254840160 :          mat(k,3575) = 0._r8
    6509   254840160 :          mat(k,3578) = 0._r8
    6510   254840160 :          mat(k,3600) = 0._r8
    6511   254840160 :          mat(k,3603) = 0._r8
    6512   254840160 :          mat(k,3608) = 0._r8
    6513   254840160 :          mat(k,3609) = 0._r8
    6514   254840160 :          mat(k,3612) = 0._r8
    6515   254840160 :          mat(k,3613) = 0._r8
    6516   254840160 :          mat(k,3614) = 0._r8
    6517   254840160 :          mat(k,3616) = 0._r8
    6518   254840160 :          mat(k,3630) = 0._r8
    6519   254840160 :          mat(k,3634) = 0._r8
    6520   254840160 :          mat(k,3636) = 0._r8
    6521   254840160 :          mat(k,3638) = 0._r8
    6522   254840160 :          mat(k,3640) = 0._r8
    6523   254840160 :          mat(k,3642) = 0._r8
    6524   254840160 :          mat(k,3643) = 0._r8
    6525   254840160 :          mat(k,3644) = 0._r8
    6526   254840160 :          mat(k,3645) = 0._r8
    6527   254840160 :          mat(k,3646) = 0._r8
    6528   254840160 :          mat(k,3647) = 0._r8
    6529   254840160 :          mat(k,3652) = 0._r8
    6530   254840160 :          mat(k,3655) = 0._r8
    6531   254840160 :          mat(k,3657) = 0._r8
    6532   254840160 :          mat(k,3659) = 0._r8
    6533   254840160 :          mat(k,3665) = 0._r8
    6534   254840160 :          mat(k,3666) = 0._r8
    6535   254840160 :          mat(k,3668) = 0._r8
    6536   254840160 :          mat(k,3682) = 0._r8
    6537   254840160 :          mat(k,3689) = 0._r8
    6538   254840160 :          mat(k,3694) = 0._r8
    6539   254840160 :          mat(k,3703) = 0._r8
    6540   254840160 :          mat(k,3707) = 0._r8
    6541   254840160 :          mat(k,3708) = 0._r8
    6542   254840160 :          mat(k,3711) = 0._r8
    6543   254840160 :          mat(k,3712) = 0._r8
    6544   254840160 :          mat(k,3714) = 0._r8
    6545   254840160 :          mat(k,3715) = 0._r8
    6546   254840160 :          mat(k,3716) = 0._r8
    6547   254840160 :          mat(k,3717) = 0._r8
    6548   254840160 :          mat(k,3718) = 0._r8
    6549   254840160 :          mat(k,3719) = 0._r8
    6550   254840160 :          mat(k,3720) = 0._r8
    6551   254840160 :          mat(k,3722) = 0._r8
    6552   254840160 :          mat(k,3723) = 0._r8
    6553   254840160 :          mat(k,3730) = 0._r8
    6554   254840160 :          mat(k,3732) = 0._r8
    6555   254840160 :          mat(k,3735) = 0._r8
    6556   254840160 :          mat(k,3736) = 0._r8
    6557   254840160 :          mat(k,3738) = 0._r8
    6558   254840160 :          mat(k,3739) = 0._r8
    6559   254840160 :          mat(k,3740) = 0._r8
    6560   254840160 :          mat(k,3741) = 0._r8
    6561   254840160 :          mat(k,3742) = 0._r8
    6562   254840160 :          mat(k,3743) = 0._r8
    6563   254840160 :          mat(k,3744) = 0._r8
    6564   254840160 :          mat(k,3747) = 0._r8
    6565   254840160 :          mat(k,3748) = 0._r8
    6566   254840160 :          mat(k,3752) = 0._r8
    6567   254840160 :          mat(k,3755) = 0._r8
    6568   254840160 :          mat(k,3757) = 0._r8
    6569   254840160 :          mat(k,3770) = 0._r8
    6570   254840160 :          mat(k,3796) = 0._r8
    6571   254840160 :          mat(k,3805) = 0._r8
    6572   254840160 :          mat(k,3806) = 0._r8
    6573   254840160 :          mat(k,3820) = 0._r8
    6574   254840160 :          mat(k,3824) = 0._r8
    6575   254840160 :          mat(k,3825) = 0._r8
    6576   254840160 :          mat(k,3826) = 0._r8
    6577   254840160 :          mat(k,3828) = 0._r8
    6578   254840160 :          mat(k,3829) = 0._r8
    6579   254840160 :          mat(k,3831) = 0._r8
    6580   254840160 :          mat(k,3835) = 0._r8
    6581   254840160 :          mat(k,3837) = 0._r8
    6582   254840160 :          mat(k,3838) = 0._r8
    6583   254840160 :          mat(k,3840) = 0._r8
    6584   254840160 :          mat(k,3844) = 0._r8
    6585   254840160 :          mat(k,3847) = 0._r8
    6586   254840160 :          mat(k,3849) = 0._r8
    6587   254840160 :          mat(k,3852) = 0._r8
    6588   254840160 :          mat(k,3921) = 0._r8
    6589   254840160 :          mat(k,3967) = 0._r8
    6590   254840160 :          mat(k,3971) = 0._r8
    6591   254840160 :          mat(k,3975) = 0._r8
    6592   254840160 :          mat(k,4003) = 0._r8
    6593   254840160 :          mat(k,4042) = 0._r8
    6594   254840160 :          mat(k,4043) = 0._r8
    6595   254840160 :          mat(k,4047) = 0._r8
    6596   254840160 :          mat(k,4048) = 0._r8
    6597   254840160 :          mat(k,4063) = 0._r8
    6598   254840160 :          mat(k,4066) = 0._r8
    6599   254840160 :          mat(k,4074) = 0._r8
    6600   254840160 :          mat(k,4076) = 0._r8
    6601   254840160 :          mat(k,4099) = 0._r8
    6602   254840160 :          mat(k,4106) = 0._r8
    6603   254840160 :          mat(k,4108) = 0._r8
    6604   254840160 :          mat(k,4110) = 0._r8
    6605   254840160 :          mat(k,4111) = 0._r8
    6606   254840160 :          mat(k,4113) = 0._r8
    6607   254840160 :          mat(k,4114) = 0._r8
    6608   254840160 :          mat(k,4115) = 0._r8
    6609   254840160 :          mat(k,4117) = 0._r8
    6610   254840160 :          mat(k,4118) = 0._r8
    6611   254840160 :          mat(k,4119) = 0._r8
    6612   254840160 :          mat(k,4120) = 0._r8
    6613   254840160 :          mat(k,4121) = 0._r8
    6614   254840160 :          mat(k,4122) = 0._r8
    6615   254840160 :          mat(k,4123) = 0._r8
    6616   254840160 :          mat(k,4124) = 0._r8
    6617   254840160 :          mat(k,4126) = 0._r8
    6618   254840160 :          mat(k, 1) = mat(k, 1) - dti(k)
    6619   254840160 :          mat(k, 2) = mat(k, 2) - dti(k)
    6620   254840160 :          mat(k, 3) = mat(k, 3) - dti(k)
    6621   254840160 :          mat(k, 4) = mat(k, 4) - dti(k)
    6622   254840160 :          mat(k, 5) = mat(k, 5) - dti(k)
    6623   254840160 :          mat(k, 6) = mat(k, 6) - dti(k)
    6624   254840160 :          mat(k, 7) = mat(k, 7) - dti(k)
    6625   254840160 :          mat(k, 8) = mat(k, 8) - dti(k)
    6626   254840160 :          mat(k, 9) = mat(k, 9) - dti(k)
    6627   254840160 :          mat(k, 10) = mat(k, 10) - dti(k)
    6628   254840160 :          mat(k, 11) = mat(k, 11) - dti(k)
    6629   254840160 :          mat(k, 12) = mat(k, 12) - dti(k)
    6630   254840160 :          mat(k, 13) = mat(k, 13) - dti(k)
    6631   254840160 :          mat(k, 14) = mat(k, 14) - dti(k)
    6632   254840160 :          mat(k, 15) = mat(k, 15) - dti(k)
    6633   254840160 :          mat(k, 16) = mat(k, 16) - dti(k)
    6634   254840160 :          mat(k, 17) = mat(k, 17) - dti(k)
    6635   254840160 :          mat(k, 18) = mat(k, 18) - dti(k)
    6636   254840160 :          mat(k, 19) = mat(k, 19) - dti(k)
    6637   254840160 :          mat(k, 20) = mat(k, 20) - dti(k)
    6638   254840160 :          mat(k, 21) = mat(k, 21) - dti(k)
    6639   254840160 :          mat(k, 22) = mat(k, 22) - dti(k)
    6640   254840160 :          mat(k, 23) = mat(k, 23) - dti(k)
    6641   254840160 :          mat(k, 24) = mat(k, 24) - dti(k)
    6642   254840160 :          mat(k, 25) = mat(k, 25) - dti(k)
    6643   254840160 :          mat(k, 26) = mat(k, 26) - dti(k)
    6644   254840160 :          mat(k, 27) = mat(k, 27) - dti(k)
    6645   254840160 :          mat(k, 28) = mat(k, 28) - dti(k)
    6646   254840160 :          mat(k, 29) = mat(k, 29) - dti(k)
    6647   254840160 :          mat(k, 30) = mat(k, 30) - dti(k)
    6648   254840160 :          mat(k, 31) = mat(k, 31) - dti(k)
    6649   254840160 :          mat(k, 32) = mat(k, 32) - dti(k)
    6650   254840160 :          mat(k, 33) = mat(k, 33) - dti(k)
    6651   254840160 :          mat(k, 34) = mat(k, 34) - dti(k)
    6652   254840160 :          mat(k, 35) = mat(k, 35) - dti(k)
    6653   254840160 :          mat(k, 36) = mat(k, 36) - dti(k)
    6654   254840160 :          mat(k, 37) = mat(k, 37) - dti(k)
    6655   254840160 :          mat(k, 38) = mat(k, 38) - dti(k)
    6656   254840160 :          mat(k, 39) = mat(k, 39) - dti(k)
    6657   254840160 :          mat(k, 40) = mat(k, 40) - dti(k)
    6658   254840160 :          mat(k, 41) = mat(k, 41) - dti(k)
    6659   254840160 :          mat(k, 42) = mat(k, 42) - dti(k)
    6660   254840160 :          mat(k, 43) = mat(k, 43) - dti(k)
    6661   254840160 :          mat(k, 44) = mat(k, 44) - dti(k)
    6662   254840160 :          mat(k, 45) = mat(k, 45) - dti(k)
    6663   254840160 :          mat(k, 51) = mat(k, 51) - dti(k)
    6664   254840160 :          mat(k, 57) = mat(k, 57) - dti(k)
    6665   254840160 :          mat(k, 63) = mat(k, 63) - dti(k)
    6666   254840160 :          mat(k, 69) = mat(k, 69) - dti(k)
    6667   254840160 :          mat(k, 75) = mat(k, 75) - dti(k)
    6668   254840160 :          mat(k, 81) = mat(k, 81) - dti(k)
    6669   254840160 :          mat(k, 87) = mat(k, 87) - dti(k)
    6670   254840160 :          mat(k, 89) = mat(k, 89) - dti(k)
    6671   254840160 :          mat(k, 95) = mat(k, 95) - dti(k)
    6672   254840160 :          mat(k, 101) = mat(k, 101) - dti(k)
    6673   254840160 :          mat(k, 107) = mat(k, 107) - dti(k)
    6674   254840160 :          mat(k, 113) = mat(k, 113) - dti(k)
    6675   254840160 :          mat(k, 114) = mat(k, 114) - dti(k)
    6676   254840160 :          mat(k, 117) = mat(k, 117) - dti(k)
    6677   254840160 :          mat(k, 120) = mat(k, 120) - dti(k)
    6678   254840160 :          mat(k, 123) = mat(k, 123) - dti(k)
    6679   254840160 :          mat(k, 126) = mat(k, 126) - dti(k)
    6680   254840160 :          mat(k, 130) = mat(k, 130) - dti(k)
    6681   254840160 :          mat(k, 134) = mat(k, 134) - dti(k)
    6682   254840160 :          mat(k, 138) = mat(k, 138) - dti(k)
    6683   254840160 :          mat(k, 142) = mat(k, 142) - dti(k)
    6684   254840160 :          mat(k, 146) = mat(k, 146) - dti(k)
    6685   254840160 :          mat(k, 150) = mat(k, 150) - dti(k)
    6686   254840160 :          mat(k, 153) = mat(k, 153) - dti(k)
    6687   254840160 :          mat(k, 156) = mat(k, 156) - dti(k)
    6688   254840160 :          mat(k, 159) = mat(k, 159) - dti(k)
    6689   254840160 :          mat(k, 164) = mat(k, 164) - dti(k)
    6690   254840160 :          mat(k, 169) = mat(k, 169) - dti(k)
    6691   254840160 :          mat(k, 174) = mat(k, 174) - dti(k)
    6692   254840160 :          mat(k, 179) = mat(k, 179) - dti(k)
    6693   254840160 :          mat(k, 182) = mat(k, 182) - dti(k)
    6694   254840160 :          mat(k, 188) = mat(k, 188) - dti(k)
    6695   254840160 :          mat(k, 192) = mat(k, 192) - dti(k)
    6696   254840160 :          mat(k, 197) = mat(k, 197) - dti(k)
    6697   254840160 :          mat(k, 201) = mat(k, 201) - dti(k)
    6698   254840160 :          mat(k, 204) = mat(k, 204) - dti(k)
    6699   254840160 :          mat(k, 207) = mat(k, 207) - dti(k)
    6700   254840160 :          mat(k, 211) = mat(k, 211) - dti(k)
    6701   254840160 :          mat(k, 218) = mat(k, 218) - dti(k)
    6702   254840160 :          mat(k, 223) = mat(k, 223) - dti(k)
    6703   254840160 :          mat(k, 229) = mat(k, 229) - dti(k)
    6704   254840160 :          mat(k, 237) = mat(k, 237) - dti(k)
    6705   254840160 :          mat(k, 242) = mat(k, 242) - dti(k)
    6706   254840160 :          mat(k, 245) = mat(k, 245) - dti(k)
    6707   254840160 :          mat(k, 248) = mat(k, 248) - dti(k)
    6708   254840160 :          mat(k, 251) = mat(k, 251) - dti(k)
    6709   254840160 :          mat(k, 256) = mat(k, 256) - dti(k)
    6710   254840160 :          mat(k, 261) = mat(k, 261) - dti(k)
    6711   254840160 :          mat(k, 266) = mat(k, 266) - dti(k)
    6712   254840160 :          mat(k, 269) = mat(k, 269) - dti(k)
    6713   254840160 :          mat(k, 272) = mat(k, 272) - dti(k)
    6714   254840160 :          mat(k, 275) = mat(k, 275) - dti(k)
    6715   254840160 :          mat(k, 279) = mat(k, 279) - dti(k)
    6716   254840160 :          mat(k, 283) = mat(k, 283) - dti(k)
    6717   254840160 :          mat(k, 287) = mat(k, 287) - dti(k)
    6718   254840160 :          mat(k, 291) = mat(k, 291) - dti(k)
    6719   254840160 :          mat(k, 295) = mat(k, 295) - dti(k)
    6720   254840160 :          mat(k, 301) = mat(k, 301) - dti(k)
    6721   254840160 :          mat(k, 304) = mat(k, 304) - dti(k)
    6722   254840160 :          mat(k, 310) = mat(k, 310) - dti(k)
    6723   254840160 :          mat(k, 316) = mat(k, 316) - dti(k)
    6724   254840160 :          mat(k, 322) = mat(k, 322) - dti(k)
    6725   254840160 :          mat(k, 326) = mat(k, 326) - dti(k)
    6726   254840160 :          mat(k, 332) = mat(k, 332) - dti(k)
    6727   254840160 :          mat(k, 337) = mat(k, 337) - dti(k)
    6728   254840160 :          mat(k, 342) = mat(k, 342) - dti(k)
    6729   254840160 :          mat(k, 347) = mat(k, 347) - dti(k)
    6730   254840160 :          mat(k, 353) = mat(k, 353) - dti(k)
    6731   254840160 :          mat(k, 358) = mat(k, 358) - dti(k)
    6732   254840160 :          mat(k, 363) = mat(k, 363) - dti(k)
    6733   254840160 :          mat(k, 368) = mat(k, 368) - dti(k)
    6734   254840160 :          mat(k, 373) = mat(k, 373) - dti(k)
    6735   254840160 :          mat(k, 377) = mat(k, 377) - dti(k)
    6736   254840160 :          mat(k, 385) = mat(k, 385) - dti(k)
    6737   254840160 :          mat(k, 393) = mat(k, 393) - dti(k)
    6738   254840160 :          mat(k, 401) = mat(k, 401) - dti(k)
    6739   254840160 :          mat(k, 405) = mat(k, 405) - dti(k)
    6740   254840160 :          mat(k, 411) = mat(k, 411) - dti(k)
    6741   254840160 :          mat(k, 417) = mat(k, 417) - dti(k)
    6742   254840160 :          mat(k, 423) = mat(k, 423) - dti(k)
    6743   254840160 :          mat(k, 429) = mat(k, 429) - dti(k)
    6744   254840160 :          mat(k, 437) = mat(k, 437) - dti(k)
    6745   254840160 :          mat(k, 443) = mat(k, 443) - dti(k)
    6746   254840160 :          mat(k, 449) = mat(k, 449) - dti(k)
    6747   254840160 :          mat(k, 456) = mat(k, 456) - dti(k)
    6748   254840160 :          mat(k, 462) = mat(k, 462) - dti(k)
    6749   254840160 :          mat(k, 468) = mat(k, 468) - dti(k)
    6750   254840160 :          mat(k, 471) = mat(k, 471) - dti(k)
    6751   254840160 :          mat(k, 477) = mat(k, 477) - dti(k)
    6752   254840160 :          mat(k, 484) = mat(k, 484) - dti(k)
    6753   254840160 :          mat(k, 488) = mat(k, 488) - dti(k)
    6754   254840160 :          mat(k, 495) = mat(k, 495) - dti(k)
    6755   254840160 :          mat(k, 502) = mat(k, 502) - dti(k)
    6756   254840160 :          mat(k, 514) = mat(k, 514) - dti(k)
    6757   254840160 :          mat(k, 521) = mat(k, 521) - dti(k)
    6758   254840160 :          mat(k, 528) = mat(k, 528) - dti(k)
    6759   254840160 :          mat(k, 536) = mat(k, 536) - dti(k)
    6760   254840160 :          mat(k, 543) = mat(k, 543) - dti(k)
    6761   254840160 :          mat(k, 550) = mat(k, 550) - dti(k)
    6762   254840160 :          mat(k, 556) = mat(k, 556) - dti(k)
    6763   254840160 :          mat(k, 561) = mat(k, 561) - dti(k)
    6764   254840160 :          mat(k, 569) = mat(k, 569) - dti(k)
    6765   254840160 :          mat(k, 577) = mat(k, 577) - dti(k)
    6766   254840160 :          mat(k, 585) = mat(k, 585) - dti(k)
    6767   254840160 :          mat(k, 593) = mat(k, 593) - dti(k)
    6768   254840160 :          mat(k, 601) = mat(k, 601) - dti(k)
    6769   254840160 :          mat(k, 605) = mat(k, 605) - dti(k)
    6770   254840160 :          mat(k, 613) = mat(k, 613) - dti(k)
    6771   254840160 :          mat(k, 626) = mat(k, 626) - dti(k)
    6772   254840160 :          mat(k, 639) = mat(k, 639) - dti(k)
    6773   254840160 :          mat(k, 646) = mat(k, 646) - dti(k)
    6774   254840160 :          mat(k, 655) = mat(k, 655) - dti(k)
    6775   254840160 :          mat(k, 664) = mat(k, 664) - dti(k)
    6776   254840160 :          mat(k, 673) = mat(k, 673) - dti(k)
    6777   254840160 :          mat(k, 682) = mat(k, 682) - dti(k)
    6778   254840160 :          mat(k, 689) = mat(k, 689) - dti(k)
    6779   254840160 :          mat(k, 693) = mat(k, 693) - dti(k)
    6780   254840160 :          mat(k, 702) = mat(k, 702) - dti(k)
    6781   254840160 :          mat(k, 711) = mat(k, 711) - dti(k)
    6782   254840160 :          mat(k, 718) = mat(k, 718) - dti(k)
    6783   254840160 :          mat(k, 728) = mat(k, 728) - dti(k)
    6784   254840160 :          mat(k, 741) = mat(k, 741) - dti(k)
    6785   254840160 :          mat(k, 752) = mat(k, 752) - dti(k)
    6786   254840160 :          mat(k, 763) = mat(k, 763) - dti(k)
    6787   254840160 :          mat(k, 770) = mat(k, 770) - dti(k)
    6788   254840160 :          mat(k, 778) = mat(k, 778) - dti(k)
    6789   254840160 :          mat(k, 783) = mat(k, 783) - dti(k)
    6790   254840160 :          mat(k, 791) = mat(k, 791) - dti(k)
    6791   254840160 :          mat(k, 797) = mat(k, 797) - dti(k)
    6792   254840160 :          mat(k, 805) = mat(k, 805) - dti(k)
    6793   254840160 :          mat(k, 813) = mat(k, 813) - dti(k)
    6794   254840160 :          mat(k, 827) = mat(k, 827) - dti(k)
    6795   254840160 :          mat(k, 842) = mat(k, 842) - dti(k)
    6796   254840160 :          mat(k, 855) = mat(k, 855) - dti(k)
    6797   254840160 :          mat(k, 862) = mat(k, 862) - dti(k)
    6798   254840160 :          mat(k, 873) = mat(k, 873) - dti(k)
    6799   254840160 :          mat(k, 883) = mat(k, 883) - dti(k)
    6800   254840160 :          mat(k, 895) = mat(k, 895) - dti(k)
    6801   254840160 :          mat(k, 906) = mat(k, 906) - dti(k)
    6802   254840160 :          mat(k, 914) = mat(k, 914) - dti(k)
    6803   254840160 :          mat(k, 919) = mat(k, 919) - dti(k)
    6804   254840160 :          mat(k, 924) = mat(k, 924) - dti(k)
    6805   254840160 :          mat(k, 929) = mat(k, 929) - dti(k)
    6806   254840160 :          mat(k, 939) = mat(k, 939) - dti(k)
    6807   254840160 :          mat(k, 951) = mat(k, 951) - dti(k)
    6808   254840160 :          mat(k, 960) = mat(k, 960) - dti(k)
    6809   254840160 :          mat(k, 969) = mat(k, 969) - dti(k)
    6810   254840160 :          mat(k, 974) = mat(k, 974) - dti(k)
    6811   254840160 :          mat(k, 986) = mat(k, 986) - dti(k)
    6812   254840160 :          mat(k, 995) = mat(k, 995) - dti(k)
    6813   254840160 :          mat(k,1006) = mat(k,1006) - dti(k)
    6814   254840160 :          mat(k,1015) = mat(k,1015) - dti(k)
    6815   254840160 :          mat(k,1024) = mat(k,1024) - dti(k)
    6816   254840160 :          mat(k,1041) = mat(k,1041) - dti(k)
    6817   254840160 :          mat(k,1054) = mat(k,1054) - dti(k)
    6818   254840160 :          mat(k,1071) = mat(k,1071) - dti(k)
    6819   254840160 :          mat(k,1092) = mat(k,1092) - dti(k)
    6820   254840160 :          mat(k,1106) = mat(k,1106) - dti(k)
    6821   254840160 :          mat(k,1110) = mat(k,1110) - dti(k)
    6822   254840160 :          mat(k,1121) = mat(k,1121) - dti(k)
    6823   254840160 :          mat(k,1132) = mat(k,1132) - dti(k)
    6824   254840160 :          mat(k,1143) = mat(k,1143) - dti(k)
    6825   254840160 :          mat(k,1150) = mat(k,1150) - dti(k)
    6826   254840160 :          mat(k,1159) = mat(k,1159) - dti(k)
    6827   254840160 :          mat(k,1166) = mat(k,1166) - dti(k)
    6828   254840160 :          mat(k,1182) = mat(k,1182) - dti(k)
    6829   254840160 :          mat(k,1194) = mat(k,1194) - dti(k)
    6830   254840160 :          mat(k,1210) = mat(k,1210) - dti(k)
    6831   254840160 :          mat(k,1218) = mat(k,1218) - dti(k)
    6832   254840160 :          mat(k,1228) = mat(k,1228) - dti(k)
    6833   254840160 :          mat(k,1235) = mat(k,1235) - dti(k)
    6834   254840160 :          mat(k,1242) = mat(k,1242) - dti(k)
    6835   254840160 :          mat(k,1252) = mat(k,1252) - dti(k)
    6836   254840160 :          mat(k,1272) = mat(k,1272) - dti(k)
    6837   254840160 :          mat(k,1289) = mat(k,1289) - dti(k)
    6838   254840160 :          mat(k,1298) = mat(k,1298) - dti(k)
    6839   254840160 :          mat(k,1309) = mat(k,1309) - dti(k)
    6840   254840160 :          mat(k,1325) = mat(k,1325) - dti(k)
    6841   254840160 :          mat(k,1336) = mat(k,1336) - dti(k)
    6842   254840160 :          mat(k,1350) = mat(k,1350) - dti(k)
    6843   254840160 :          mat(k,1361) = mat(k,1361) - dti(k)
    6844   254840160 :          mat(k,1377) = mat(k,1377) - dti(k)
    6845   254840160 :          mat(k,1385) = mat(k,1385) - dti(k)
    6846   254840160 :          mat(k,1410) = mat(k,1410) - dti(k)
    6847   254840160 :          mat(k,1431) = mat(k,1431) - dti(k)
    6848   254840160 :          mat(k,1440) = mat(k,1440) - dti(k)
    6849   254840160 :          mat(k,1454) = mat(k,1454) - dti(k)
    6850   254840160 :          mat(k,1461) = mat(k,1461) - dti(k)
    6851   254840160 :          mat(k,1468) = mat(k,1468) - dti(k)
    6852   254840160 :          mat(k,1476) = mat(k,1476) - dti(k)
    6853   254840160 :          mat(k,1481) = mat(k,1481) - dti(k)
    6854   254840160 :          mat(k,1487) = mat(k,1487) - dti(k)
    6855   254840160 :          mat(k,1494) = mat(k,1494) - dti(k)
    6856   254840160 :          mat(k,1498) = mat(k,1498) - dti(k)
    6857   254840160 :          mat(k,1508) = mat(k,1508) - dti(k)
    6858   254840160 :          mat(k,1524) = mat(k,1524) - dti(k)
    6859   254840160 :          mat(k,1536) = mat(k,1536) - dti(k)
    6860   254840160 :          mat(k,1543) = mat(k,1543) - dti(k)
    6861   254840160 :          mat(k,1557) = mat(k,1557) - dti(k)
    6862   254840160 :          mat(k,1572) = mat(k,1572) - dti(k)
    6863   254840160 :          mat(k,1600) = mat(k,1600) - dti(k)
    6864   254840160 :          mat(k,1613) = mat(k,1613) - dti(k)
    6865   254840160 :          mat(k,1620) = mat(k,1620) - dti(k)
    6866   254840160 :          mat(k,1640) = mat(k,1640) - dti(k)
    6867   254840160 :          mat(k,1659) = mat(k,1659) - dti(k)
    6868   254840160 :          mat(k,1673) = mat(k,1673) - dti(k)
    6869   254840160 :          mat(k,1689) = mat(k,1689) - dti(k)
    6870   254840160 :          mat(k,1702) = mat(k,1702) - dti(k)
    6871   254840160 :          mat(k,1712) = mat(k,1712) - dti(k)
    6872   254840160 :          mat(k,1718) = mat(k,1718) - dti(k)
    6873   254840160 :          mat(k,1732) = mat(k,1732) - dti(k)
    6874   254840160 :          mat(k,1754) = mat(k,1754) - dti(k)
    6875   254840160 :          mat(k,1770) = mat(k,1770) - dti(k)
    6876   254840160 :          mat(k,1778) = mat(k,1778) - dti(k)
    6877   254840160 :          mat(k,1793) = mat(k,1793) - dti(k)
    6878   254840160 :          mat(k,1817) = mat(k,1817) - dti(k)
    6879   254840160 :          mat(k,1848) = mat(k,1848) - dti(k)
    6880   254840160 :          mat(k,1872) = mat(k,1872) - dti(k)
    6881   254840160 :          mat(k,1896) = mat(k,1896) - dti(k)
    6882   254840160 :          mat(k,1916) = mat(k,1916) - dti(k)
    6883   254840160 :          mat(k,1926) = mat(k,1926) - dti(k)
    6884   254840160 :          mat(k,1953) = mat(k,1953) - dti(k)
    6885   254840160 :          mat(k,1991) = mat(k,1991) - dti(k)
    6886   254840160 :          mat(k,2016) = mat(k,2016) - dti(k)
    6887   254840160 :          mat(k,2041) = mat(k,2041) - dti(k)
    6888   254840160 :          mat(k,2057) = mat(k,2057) - dti(k)
    6889   254840160 :          mat(k,2078) = mat(k,2078) - dti(k)
    6890   254840160 :          mat(k,2110) = mat(k,2110) - dti(k)
    6891   254840160 :          mat(k,2140) = mat(k,2140) - dti(k)
    6892   254840160 :          mat(k,2180) = mat(k,2180) - dti(k)
    6893   254840160 :          mat(k,2199) = mat(k,2199) - dti(k)
    6894   254840160 :          mat(k,2213) = mat(k,2213) - dti(k)
    6895   254840160 :          mat(k,2235) = mat(k,2235) - dti(k)
    6896   254840160 :          mat(k,2259) = mat(k,2259) - dti(k)
    6897   254840160 :          mat(k,2277) = mat(k,2277) - dti(k)
    6898   254840160 :          mat(k,2296) = mat(k,2296) - dti(k)
    6899   254840160 :          mat(k,2320) = mat(k,2320) - dti(k)
    6900   254840160 :          mat(k,2339) = mat(k,2339) - dti(k)
    6901   254840160 :          mat(k,2359) = mat(k,2359) - dti(k)
    6902   254840160 :          mat(k,2380) = mat(k,2380) - dti(k)
    6903   254840160 :          mat(k,2408) = mat(k,2408) - dti(k)
    6904   254840160 :          mat(k,2441) = mat(k,2441) - dti(k)
    6905   254840160 :          mat(k,2471) = mat(k,2471) - dti(k)
    6906   254840160 :          mat(k,2505) = mat(k,2505) - dti(k)
    6907   254840160 :          mat(k,2536) = mat(k,2536) - dti(k)
    6908   254840160 :          mat(k,2570) = mat(k,2570) - dti(k)
    6909   254840160 :          mat(k,2600) = mat(k,2600) - dti(k)
    6910   254840160 :          mat(k,2629) = mat(k,2629) - dti(k)
    6911   254840160 :          mat(k,2654) = mat(k,2654) - dti(k)
    6912   254840160 :          mat(k,2677) = mat(k,2677) - dti(k)
    6913   254840160 :          mat(k,2701) = mat(k,2701) - dti(k)
    6914   254840160 :          mat(k,2745) = mat(k,2745) - dti(k)
    6915   254840160 :          mat(k,2792) = mat(k,2792) - dti(k)
    6916   254840160 :          mat(k,2840) = mat(k,2840) - dti(k)
    6917   254840160 :          mat(k,2913) = mat(k,2913) - dti(k)
    6918   254840160 :          mat(k,2931) = mat(k,2931) - dti(k)
    6919   254840160 :          mat(k,2949) = mat(k,2949) - dti(k)
    6920   254840160 :          mat(k,3106) = mat(k,3106) - dti(k)
    6921   254840160 :          mat(k,3129) = mat(k,3129) - dti(k)
    6922   254840160 :          mat(k,3161) = mat(k,3161) - dti(k)
    6923   254840160 :          mat(k,3188) = mat(k,3188) - dti(k)
    6924   254840160 :          mat(k,3369) = mat(k,3369) - dti(k)
    6925   254840160 :          mat(k,3463) = mat(k,3463) - dti(k)
    6926   254840160 :          mat(k,3488) = mat(k,3488) - dti(k)
    6927   254840160 :          mat(k,3515) = mat(k,3515) - dti(k)
    6928   254840160 :          mat(k,3610) = mat(k,3610) - dti(k)
    6929   254840160 :          mat(k,3663) = mat(k,3663) - dti(k)
    6930   254840160 :          mat(k,3766) = mat(k,3766) - dti(k)
    6931   254840160 :          mat(k,3808) = mat(k,3808) - dti(k)
    6932   254840160 :          mat(k,3850) = mat(k,3850) - dti(k)
    6933   254840160 :          mat(k,4101) = mat(k,4101) - dti(k)
    6934   263009123 :          mat(k,4128) = mat(k,4128) - dti(k)
    6935             :       end do
    6936     8168963 :       end subroutine nlnmat_finit
    6937     8168963 :       subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti )
    6938             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    6939             :       implicit none
    6940             : !----------------------------------------------
    6941             : ! ... dummy arguments
    6942             : !----------------------------------------------
    6943             :       integer, intent(in) :: avec_len
    6944             :       real(r8), intent(in) :: dti(veclen)
    6945             :       real(r8), intent(in) :: lmat(veclen,nzcnt)
    6946             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    6947             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    6948             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    6949     8168963 :       call nlnmat01( avec_len, mat, y, rxt )
    6950     8168963 :       call nlnmat02( avec_len, mat, y, rxt )
    6951     8168963 :       call nlnmat03( avec_len, mat, y, rxt )
    6952     8168963 :       call nlnmat04( avec_len, mat, y, rxt )
    6953     8168963 :       call nlnmat05( avec_len, mat, y, rxt )
    6954     8168963 :       call nlnmat06( avec_len, mat, y, rxt )
    6955     8168963 :       call nlnmat07( avec_len, mat, y, rxt )
    6956     8168963 :       call nlnmat08( avec_len, mat, y, rxt )
    6957     8168963 :       call nlnmat09( avec_len, mat, y, rxt )
    6958     8168963 :       call nlnmat10( avec_len, mat, y, rxt )
    6959     8168963 :       call nlnmat11( avec_len, mat, y, rxt )
    6960     8168963 :       call nlnmat12( avec_len, mat, y, rxt )
    6961     8168963 :       call nlnmat13( avec_len, mat, y, rxt )
    6962     8168963 :       call nlnmat14( avec_len, mat, y, rxt )
    6963     8168963 :       call nlnmat15( avec_len, mat, y, rxt )
    6964     8168963 :       call nlnmat16( avec_len, mat, y, rxt )
    6965     8168963 :       call nlnmat17( avec_len, mat, y, rxt )
    6966     8168963 :       call nlnmat_finit( avec_len, mat, lmat, dti )
    6967     8168963 :       end subroutine nlnmat
    6968             :       end module mo_nln_matrix

Generated by: LCOV version 1.14