LCOV - code coverage report
Current view: top level - chemistry/pp_waccm_tsmlt_mam5 - mo_nln_matrix.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 3248 3248 100.0 %
Date: 2025-03-14 01:23:43 Functions: 13 13 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     9949925 :       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   325174377 :       do k = 1,avec_len
      25   315224452 :          mat(k,642) = -(rxt(k,396)*y(k,228))
      26   315224452 :          mat(k,1753) = -rxt(k,396)*y(k,1)
      27   315224452 :          mat(k,1865) = rxt(k,399)*y(k,192)
      28   315224452 :          mat(k,1038) = rxt(k,399)*y(k,124)
      29   315224452 :          mat(k,687) = -(rxt(k,400)*y(k,228))
      30   315224452 :          mat(k,1756) = -rxt(k,400)*y(k,2)
      31   315224452 :          mat(k,2307) = rxt(k,397)*y(k,192)
      32   315224452 :          mat(k,1039) = rxt(k,397)*y(k,90)
      33             :          mat(k,974) = -(rxt(k,479)*y(k,126) + rxt(k,480)*y(k,136) + rxt(k,481) &
      34   315224452 :                       *y(k,228))
      35   315224452 :          mat(k,1618) = -rxt(k,479)*y(k,6)
      36   315224452 :          mat(k,2192) = -rxt(k,480)*y(k,6)
      37   315224452 :          mat(k,1780) = -rxt(k,481)*y(k,6)
      38   315224452 :          mat(k,160) = -(rxt(k,438)*y(k,228))
      39   315224452 :          mat(k,1685) = -rxt(k,438)*y(k,7)
      40   315224452 :          mat(k,415) = -(rxt(k,441)*y(k,228))
      41   315224452 :          mat(k,1725) = -rxt(k,441)*y(k,8)
      42   315224452 :          mat(k,2287) = rxt(k,439)*y(k,194)
      43   315224452 :          mat(k,493) = rxt(k,439)*y(k,90)
      44   315224452 :          mat(k,161) = .120_r8*rxt(k,438)*y(k,228)
      45   315224452 :          mat(k,1686) = .120_r8*rxt(k,438)*y(k,7)
      46   315224452 :          mat(k,972) = .100_r8*rxt(k,480)*y(k,136)
      47   315224452 :          mat(k,1016) = .100_r8*rxt(k,483)*y(k,136)
      48   315224452 :          mat(k,2182) = .100_r8*rxt(k,480)*y(k,6) + .100_r8*rxt(k,483)*y(k,110)
      49             :          mat(k,1853) = .500_r8*rxt(k,440)*y(k,194) + .200_r8*rxt(k,467)*y(k,235) &
      50   315224452 :                       + .060_r8*rxt(k,473)*y(k,238)
      51   315224452 :          mat(k,494) = .500_r8*rxt(k,440)*y(k,124)
      52   315224452 :          mat(k,747) = .200_r8*rxt(k,467)*y(k,124)
      53   315224452 :          mat(k,763) = .060_r8*rxt(k,473)*y(k,124)
      54   315224452 :          mat(k,1846) = .200_r8*rxt(k,467)*y(k,235) + .200_r8*rxt(k,473)*y(k,238)
      55   315224452 :          mat(k,746) = .200_r8*rxt(k,467)*y(k,124)
      56   315224452 :          mat(k,761) = .200_r8*rxt(k,473)*y(k,124)
      57   315224452 :          mat(k,1862) = .200_r8*rxt(k,467)*y(k,235) + .150_r8*rxt(k,473)*y(k,238)
      58   315224452 :          mat(k,748) = .200_r8*rxt(k,467)*y(k,124)
      59   315224452 :          mat(k,764) = .150_r8*rxt(k,473)*y(k,124)
      60   315224452 :          mat(k,1848) = .210_r8*rxt(k,473)*y(k,238)
      61   315224452 :          mat(k,762) = .210_r8*rxt(k,473)*y(k,124)
      62   315224452 :          mat(k,226) = -(rxt(k,401)*y(k,228))
      63   315224452 :          mat(k,1696) = -rxt(k,401)*y(k,15)
      64   315224452 :          mat(k,971) = .050_r8*rxt(k,480)*y(k,136)
      65   315224452 :          mat(k,1015) = .050_r8*rxt(k,483)*y(k,136)
      66   315224452 :          mat(k,2181) = .050_r8*rxt(k,480)*y(k,6) + .050_r8*rxt(k,483)*y(k,110)
      67   315224452 :          mat(k,355) = -(rxt(k,367)*y(k,126) + rxt(k,368)*y(k,228))
      68   315224452 :          mat(k,1612) = -rxt(k,367)*y(k,16)
      69   315224452 :          mat(k,1717) = -rxt(k,368)*y(k,16)
      70   315224452 :          mat(k,1511) = -(rxt(k,250)*y(k,42) + rxt(k,251)*y(k,90) + rxt(k,252)*y(k,136))
      71   315224452 :          mat(k,1979) = -rxt(k,250)*y(k,17)
      72   315224452 :          mat(k,2352) = -rxt(k,251)*y(k,17)
      73   315224452 :          mat(k,2219) = -rxt(k,252)*y(k,17)
      74             :          mat(k,1563) = 4.000_r8*rxt(k,253)*y(k,19) + (rxt(k,254)+rxt(k,255))*y(k,59) &
      75             :                       + rxt(k,258)*y(k,124) + rxt(k,261)*y(k,134) + rxt(k,509) &
      76   315224452 :                       *y(k,152) + rxt(k,262)*y(k,228)
      77   315224452 :          mat(k,141) = rxt(k,240)*y(k,224)
      78   315224452 :          mat(k,147) = rxt(k,266)*y(k,224)
      79             :          mat(k,481) = 2.000_r8*rxt(k,277)*y(k,56) + 2.000_r8*rxt(k,289)*y(k,224) &
      80   315224452 :                       + 2.000_r8*rxt(k,278)*y(k,228)
      81   315224452 :          mat(k,604) = rxt(k,279)*y(k,56) + rxt(k,290)*y(k,224) + rxt(k,280)*y(k,228)
      82             :          mat(k,387) = 3.000_r8*rxt(k,284)*y(k,56) + 3.000_r8*rxt(k,267)*y(k,224) &
      83   315224452 :                       + 3.000_r8*rxt(k,285)*y(k,228)
      84             :          mat(k,2155) = 2.000_r8*rxt(k,277)*y(k,41) + rxt(k,279)*y(k,43) &
      85   315224452 :                       + 3.000_r8*rxt(k,284)*y(k,55)
      86   315224452 :          mat(k,1589) = (rxt(k,254)+rxt(k,255))*y(k,19)
      87   315224452 :          mat(k,109) = 2.000_r8*rxt(k,268)*y(k,224)
      88   315224452 :          mat(k,829) = rxt(k,263)*y(k,134) + rxt(k,269)*y(k,224) + rxt(k,264)*y(k,228)
      89   315224452 :          mat(k,1908) = rxt(k,258)*y(k,19)
      90   315224452 :          mat(k,2088) = rxt(k,261)*y(k,19) + rxt(k,263)*y(k,81)
      91   315224452 :          mat(k,1477) = rxt(k,509)*y(k,19)
      92             :          mat(k,2022) = rxt(k,240)*y(k,34) + rxt(k,266)*y(k,35) + 2.000_r8*rxt(k,289) &
      93             :                       *y(k,41) + rxt(k,290)*y(k,43) + 3.000_r8*rxt(k,267)*y(k,55) &
      94   315224452 :                       + 2.000_r8*rxt(k,268)*y(k,78) + rxt(k,269)*y(k,81)
      95             :          mat(k,1813) = rxt(k,262)*y(k,19) + 2.000_r8*rxt(k,278)*y(k,41) + rxt(k,280) &
      96   315224452 :                       *y(k,43) + 3.000_r8*rxt(k,285)*y(k,55) + rxt(k,264)*y(k,81)
      97   315224452 :          mat(k,1556) = rxt(k,256)*y(k,59)
      98   315224452 :          mat(k,1582) = rxt(k,256)*y(k,19)
      99   315224452 :          mat(k,1491) = (rxt(k,570)+rxt(k,575))*y(k,92)
     100   315224452 :          mat(k,786) = (rxt(k,570)+rxt(k,575))*y(k,85)
     101             :          mat(k,1565) = -(4._r8*rxt(k,253)*y(k,19) + (rxt(k,254) + rxt(k,255) + rxt(k,256) &
     102             :                       ) * y(k,59) + rxt(k,257)*y(k,90) + rxt(k,258)*y(k,124) + rxt(k,259) &
     103             :                       *y(k,125) + rxt(k,261)*y(k,134) + rxt(k,262)*y(k,228) + rxt(k,509) &
     104   315224452 :                       *y(k,152))
     105   315224452 :          mat(k,1591) = -(rxt(k,254) + rxt(k,255) + rxt(k,256)) * y(k,19)
     106   315224452 :          mat(k,2354) = -rxt(k,257)*y(k,19)
     107   315224452 :          mat(k,1910) = -rxt(k,258)*y(k,19)
     108   315224452 :          mat(k,1955) = -rxt(k,259)*y(k,19)
     109   315224452 :          mat(k,2090) = -rxt(k,261)*y(k,19)
     110   315224452 :          mat(k,1815) = -rxt(k,262)*y(k,19)
     111   315224452 :          mat(k,1479) = -rxt(k,509)*y(k,19)
     112   315224452 :          mat(k,1513) = rxt(k,252)*y(k,136)
     113   315224452 :          mat(k,569) = rxt(k,260)*y(k,134)
     114   315224452 :          mat(k,830) = rxt(k,270)*y(k,224)
     115   315224452 :          mat(k,790) = rxt(k,265)*y(k,134)
     116   315224452 :          mat(k,2090) = mat(k,2090) + rxt(k,260)*y(k,20) + rxt(k,265)*y(k,92)
     117   315224452 :          mat(k,2221) = rxt(k,252)*y(k,17)
     118   315224452 :          mat(k,2024) = rxt(k,270)*y(k,81)
     119   315224452 :          mat(k,566) = -(rxt(k,260)*y(k,134))
     120   315224452 :          mat(k,2069) = -rxt(k,260)*y(k,20)
     121   315224452 :          mat(k,1558) = rxt(k,259)*y(k,125)
     122   315224452 :          mat(k,1934) = rxt(k,259)*y(k,19)
     123   315224452 :          mat(k,235) = -(rxt(k,442)*y(k,228))
     124   315224452 :          mat(k,1698) = -rxt(k,442)*y(k,22)
     125   315224452 :          mat(k,1845) = rxt(k,445)*y(k,196)
     126   315224452 :          mat(k,433) = rxt(k,445)*y(k,124)
     127   315224452 :          mat(k,345) = -(rxt(k,444)*y(k,228))
     128   315224452 :          mat(k,1715) = -rxt(k,444)*y(k,23)
     129   315224452 :          mat(k,2281) = rxt(k,443)*y(k,196)
     130   315224452 :          mat(k,434) = rxt(k,443)*y(k,90)
     131   315224452 :          mat(k,285) = -(rxt(k,315)*y(k,56) + rxt(k,316)*y(k,228))
     132   315224452 :          mat(k,2129) = -rxt(k,315)*y(k,24)
     133   315224452 :          mat(k,1706) = -rxt(k,316)*y(k,24)
     134   315224452 :          mat(k,550) = -(rxt(k,317)*y(k,56) + rxt(k,318)*y(k,136) + rxt(k,343)*y(k,228))
     135   315224452 :          mat(k,2135) = -rxt(k,317)*y(k,25)
     136   315224452 :          mat(k,2184) = -rxt(k,318)*y(k,25)
     137   315224452 :          mat(k,1742) = -rxt(k,343)*y(k,25)
     138   315224452 :          mat(k,265) = -(rxt(k,323)*y(k,228))
     139   315224452 :          mat(k,1704) = -rxt(k,323)*y(k,26)
     140   315224452 :          mat(k,898) = .800_r8*rxt(k,319)*y(k,197) + .200_r8*rxt(k,320)*y(k,201)
     141   315224452 :          mat(k,2371) = .200_r8*rxt(k,320)*y(k,197)
     142   315224452 :          mat(k,350) = -(rxt(k,324)*y(k,228))
     143   315224452 :          mat(k,1716) = -rxt(k,324)*y(k,27)
     144   315224452 :          mat(k,2282) = rxt(k,321)*y(k,197)
     145   315224452 :          mat(k,899) = rxt(k,321)*y(k,90)
     146   315224452 :          mat(k,298) = -(rxt(k,325)*y(k,56) + rxt(k,326)*y(k,228))
     147   315224452 :          mat(k,2130) = -rxt(k,325)*y(k,28)
     148   315224452 :          mat(k,1708) = -rxt(k,326)*y(k,28)
     149             :          mat(k,1133) = -(rxt(k,346)*y(k,126) + rxt(k,347)*y(k,136) + rxt(k,365) &
     150   315224452 :                       *y(k,228))
     151   315224452 :          mat(k,1628) = -rxt(k,346)*y(k,29)
     152   315224452 :          mat(k,2201) = -rxt(k,347)*y(k,29)
     153   315224452 :          mat(k,1791) = -rxt(k,365)*y(k,29)
     154   315224452 :          mat(k,878) = .130_r8*rxt(k,425)*y(k,136)
     155   315224452 :          mat(k,2201) = mat(k,2201) + .130_r8*rxt(k,425)*y(k,99)
     156   315224452 :          mat(k,409) = -(rxt(k,351)*y(k,228))
     157   315224452 :          mat(k,1724) = -rxt(k,351)*y(k,30)
     158   315224452 :          mat(k,2286) = rxt(k,349)*y(k,198)
     159   315224452 :          mat(k,934) = rxt(k,349)*y(k,90)
     160   315224452 :          mat(k,304) = -(rxt(k,352)*y(k,228) + rxt(k,355)*y(k,56))
     161   315224452 :          mat(k,1709) = -rxt(k,352)*y(k,31)
     162   315224452 :          mat(k,2131) = -rxt(k,355)*y(k,31)
     163   315224452 :          mat(k,269) = -(rxt(k,448)*y(k,228))
     164   315224452 :          mat(k,1705) = -rxt(k,448)*y(k,32)
     165   315224452 :          mat(k,2277) = rxt(k,446)*y(k,199)
     166   315224452 :          mat(k,633) = rxt(k,446)*y(k,90)
     167   315224452 :          mat(k,101) = -(rxt(k,239)*y(k,224))
     168   315224452 :          mat(k,1998) = -rxt(k,239)*y(k,33)
     169   315224452 :          mat(k,139) = -(rxt(k,240)*y(k,224))
     170   315224452 :          mat(k,2003) = -rxt(k,240)*y(k,34)
     171   315224452 :          mat(k,144) = -(rxt(k,266)*y(k,224))
     172   315224452 :          mat(k,2004) = -rxt(k,266)*y(k,35)
     173   315224452 :          mat(k,111) = -(rxt(k,241)*y(k,224))
     174   315224452 :          mat(k,2000) = -rxt(k,241)*y(k,36)
     175   315224452 :          mat(k,149) = -(rxt(k,242)*y(k,224))
     176   315224452 :          mat(k,2005) = -rxt(k,242)*y(k,37)
     177   315224452 :          mat(k,115) = -(rxt(k,243)*y(k,224))
     178   315224452 :          mat(k,2001) = -rxt(k,243)*y(k,38)
     179   315224452 :          mat(k,154) = -(rxt(k,244)*y(k,224))
     180   315224452 :          mat(k,2006) = -rxt(k,244)*y(k,39)
     181   315224452 :          mat(k,119) = -(rxt(k,245)*y(k,224))
     182   315224452 :          mat(k,2002) = -rxt(k,245)*y(k,40)
     183   315224452 :          mat(k,479) = -(rxt(k,277)*y(k,56) + rxt(k,278)*y(k,228) + rxt(k,289)*y(k,224))
     184   315224452 :          mat(k,2134) = -rxt(k,277)*y(k,41)
     185   315224452 :          mat(k,1734) = -rxt(k,278)*y(k,41)
     186   315224452 :          mat(k,2016) = -rxt(k,289)*y(k,41)
     187             :          mat(k,1987) = -(rxt(k,214)*y(k,56) + rxt(k,250)*y(k,17) + rxt(k,294)*y(k,90) &
     188             :                       + rxt(k,295)*y(k,126) + rxt(k,296)*y(k,134) + rxt(k,297) &
     189   315224452 :                       *y(k,228))
     190   315224452 :          mat(k,2163) = -rxt(k,214)*y(k,42)
     191   315224452 :          mat(k,1517) = -rxt(k,250)*y(k,42)
     192   315224452 :          mat(k,2360) = -rxt(k,294)*y(k,42)
     193   315224452 :          mat(k,1656) = -rxt(k,295)*y(k,42)
     194   315224452 :          mat(k,2096) = -rxt(k,296)*y(k,42)
     195   315224452 :          mat(k,1821) = -rxt(k,297)*y(k,42)
     196   315224452 :          mat(k,650) = .400_r8*rxt(k,396)*y(k,228)
     197   315224452 :          mat(k,989) = .340_r8*rxt(k,480)*y(k,136)
     198   315224452 :          mat(k,362) = .500_r8*rxt(k,367)*y(k,126)
     199   315224452 :          mat(k,555) = rxt(k,318)*y(k,136)
     200   315224452 :          mat(k,1145) = .500_r8*rxt(k,347)*y(k,136)
     201   315224452 :          mat(k,624) = .500_r8*rxt(k,335)*y(k,228)
     202   315224452 :          mat(k,826) = rxt(k,302)*y(k,228)
     203   315224452 :          mat(k,456) = .300_r8*rxt(k,303)*y(k,228)
     204   315224452 :          mat(k,2252) = (rxt(k,311)+rxt(k,312))*y(k,224)
     205   315224452 :          mat(k,1597) = rxt(k,221)*y(k,201)
     206   315224452 :          mat(k,1169) = .800_r8*rxt(k,340)*y(k,228)
     207             :          mat(k,2360) = mat(k,2360) + .450_r8*rxt(k,383)*y(k,215) + .150_r8*rxt(k,362) &
     208   315224452 :                       *y(k,232)
     209   315224452 :          mat(k,888) = .910_r8*rxt(k,425)*y(k,136)
     210   315224452 :          mat(k,595) = .300_r8*rxt(k,416)*y(k,228)
     211   315224452 :          mat(k,1276) = .120_r8*rxt(k,378)*y(k,136)
     212   315224452 :          mat(k,618) = .500_r8*rxt(k,391)*y(k,228)
     213   315224452 :          mat(k,1033) = .340_r8*rxt(k,483)*y(k,136)
     214   315224452 :          mat(k,1385) = .600_r8*rxt(k,392)*y(k,136)
     215             :          mat(k,1916) = .100_r8*rxt(k,398)*y(k,192) + rxt(k,301)*y(k,201) &
     216             :                       + .500_r8*rxt(k,369)*y(k,204) + .500_r8*rxt(k,337)*y(k,206) &
     217             :                       + .920_r8*rxt(k,408)*y(k,208) + .250_r8*rxt(k,376)*y(k,213) &
     218             :                       + rxt(k,385)*y(k,215) + rxt(k,359)*y(k,231) + rxt(k,363) &
     219             :                       *y(k,232) + .340_r8*rxt(k,492)*y(k,233) + .320_r8*rxt(k,497) &
     220   315224452 :                       *y(k,234) + .250_r8*rxt(k,433)*y(k,237)
     221             :          mat(k,1656) = mat(k,1656) + .500_r8*rxt(k,367)*y(k,16) + rxt(k,409)*y(k,208) &
     222   315224452 :                       + .250_r8*rxt(k,375)*y(k,213) + rxt(k,386)*y(k,215)
     223             :          mat(k,2227) = .340_r8*rxt(k,480)*y(k,6) + rxt(k,318)*y(k,25) &
     224             :                       + .500_r8*rxt(k,347)*y(k,29) + .910_r8*rxt(k,425)*y(k,99) &
     225             :                       + .120_r8*rxt(k,378)*y(k,105) + .340_r8*rxt(k,483)*y(k,110) &
     226   315224452 :                       + .600_r8*rxt(k,392)*y(k,111)
     227   315224452 :          mat(k,540) = rxt(k,342)*y(k,228)
     228   315224452 :          mat(k,1125) = .680_r8*rxt(k,501)*y(k,228)
     229   315224452 :          mat(k,1050) = .100_r8*rxt(k,398)*y(k,124)
     230   315224452 :          mat(k,907) = .700_r8*rxt(k,320)*y(k,201)
     231   315224452 :          mat(k,942) = rxt(k,348)*y(k,201)
     232             :          mat(k,1435) = rxt(k,331)*y(k,201) + rxt(k,405)*y(k,208) + .250_r8*rxt(k,372) &
     233   315224452 :                       *y(k,213) + rxt(k,381)*y(k,215) + .250_r8*rxt(k,430)*y(k,237)
     234             :          mat(k,2412) = rxt(k,221)*y(k,59) + rxt(k,301)*y(k,124) + .700_r8*rxt(k,320) &
     235             :                       *y(k,197) + rxt(k,348)*y(k,198) + rxt(k,331)*y(k,200) + ( &
     236             :                       + 4.000_r8*rxt(k,298)+2.000_r8*rxt(k,299))*y(k,201) &
     237             :                       + 1.500_r8*rxt(k,406)*y(k,208) + .750_r8*rxt(k,411)*y(k,209) &
     238             :                       + .800_r8*rxt(k,420)*y(k,210) + .880_r8*rxt(k,373)*y(k,213) &
     239             :                       + 2.000_r8*rxt(k,382)*y(k,215) + .750_r8*rxt(k,485)*y(k,223) &
     240             :                       + .800_r8*rxt(k,361)*y(k,232) + .930_r8*rxt(k,490)*y(k,233) &
     241   315224452 :                       + .950_r8*rxt(k,495)*y(k,234) + .800_r8*rxt(k,431)*y(k,237)
     242   315224452 :          mat(k,580) = .500_r8*rxt(k,369)*y(k,124)
     243   315224452 :          mat(k,803) = .500_r8*rxt(k,337)*y(k,124)
     244             :          mat(k,1309) = .920_r8*rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126) + rxt(k,405) &
     245   315224452 :                       *y(k,200) + 1.500_r8*rxt(k,406)*y(k,201)
     246   315224452 :          mat(k,1342) = .750_r8*rxt(k,411)*y(k,201)
     247   315224452 :          mat(k,1263) = .800_r8*rxt(k,420)*y(k,201)
     248             :          mat(k,1364) = .250_r8*rxt(k,376)*y(k,124) + .250_r8*rxt(k,375)*y(k,126) &
     249   315224452 :                       + .250_r8*rxt(k,372)*y(k,200) + .880_r8*rxt(k,373)*y(k,201)
     250             :          mat(k,1404) = .450_r8*rxt(k,383)*y(k,90) + rxt(k,385)*y(k,124) + rxt(k,386) &
     251             :                       *y(k,126) + rxt(k,381)*y(k,200) + 2.000_r8*rxt(k,382)*y(k,201) &
     252   315224452 :                       + 4.000_r8*rxt(k,384)*y(k,215)
     253   315224452 :          mat(k,1114) = .750_r8*rxt(k,485)*y(k,201)
     254   315224452 :          mat(k,2030) = (rxt(k,311)+rxt(k,312))*y(k,54)
     255             :          mat(k,1821) = mat(k,1821) + .400_r8*rxt(k,396)*y(k,1) + .500_r8*rxt(k,335) &
     256             :                       *y(k,51) + rxt(k,302)*y(k,52) + .300_r8*rxt(k,303)*y(k,53) &
     257             :                       + .800_r8*rxt(k,340)*y(k,74) + .300_r8*rxt(k,416)*y(k,100) &
     258             :                       + .500_r8*rxt(k,391)*y(k,109) + rxt(k,342)*y(k,141) &
     259   315224452 :                       + .680_r8*rxt(k,501)*y(k,181)
     260   315224452 :          mat(k,821) = rxt(k,359)*y(k,124)
     261             :          mat(k,1223) = .150_r8*rxt(k,362)*y(k,90) + rxt(k,363)*y(k,124) &
     262   315224452 :                       + .800_r8*rxt(k,361)*y(k,201)
     263   315224452 :          mat(k,1185) = .340_r8*rxt(k,492)*y(k,124) + .930_r8*rxt(k,490)*y(k,201)
     264   315224452 :          mat(k,1068) = .320_r8*rxt(k,497)*y(k,124) + .950_r8*rxt(k,495)*y(k,201)
     265             :          mat(k,1241) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,430)*y(k,200) &
     266   325174377 :                       + .800_r8*rxt(k,431)*y(k,201)
     267             :       end do
     268     9949925 :       end subroutine nlnmat01
     269     9949925 :       subroutine nlnmat02( avec_len, mat, y, rxt )
     270             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
     271             :       implicit none
     272             : !----------------------------------------------
     273             : ! ... dummy arguments
     274             : !----------------------------------------------
     275             :       integer, intent(in) :: avec_len
     276             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
     277             :       real(r8), intent(in) :: rxt(veclen,rxntot)
     278             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
     279             : !----------------------------------------------
     280             : ! ... local variables
     281             : !----------------------------------------------
     282             :       integer :: k
     283             : !----------------------------------------------
     284             : ! ... complete matrix entries implicit species
     285             : !----------------------------------------------
     286   325174377 :       do k = 1,avec_len
     287   315224452 :          mat(k,602) = -(rxt(k,279)*y(k,56) + rxt(k,280)*y(k,228) + rxt(k,290)*y(k,224))
     288   315224452 :          mat(k,2137) = -rxt(k,279)*y(k,43)
     289   315224452 :          mat(k,1748) = -rxt(k,280)*y(k,43)
     290   315224452 :          mat(k,2017) = -rxt(k,290)*y(k,43)
     291   315224452 :          mat(k,123) = -(rxt(k,281)*y(k,228))
     292   315224452 :          mat(k,1683) = -rxt(k,281)*y(k,44)
     293   315224452 :          mat(k,1151) = -(rxt(k,327)*y(k,126) + rxt(k,328)*y(k,228))
     294   315224452 :          mat(k,1629) = -rxt(k,327)*y(k,45)
     295   315224452 :          mat(k,1792) = -rxt(k,328)*y(k,45)
     296   315224452 :          mat(k,646) = .800_r8*rxt(k,396)*y(k,228)
     297   315224452 :          mat(k,358) = rxt(k,367)*y(k,126)
     298   315224452 :          mat(k,266) = rxt(k,323)*y(k,228)
     299   315224452 :          mat(k,352) = .500_r8*rxt(k,324)*y(k,228)
     300   315224452 :          mat(k,1134) = .500_r8*rxt(k,347)*y(k,136)
     301   315224452 :          mat(k,2333) = .200_r8*rxt(k,387)*y(k,217)
     302   315224452 :          mat(k,1371) = .100_r8*rxt(k,392)*y(k,136)
     303             :          mat(k,1890) = .400_r8*rxt(k,398)*y(k,192) + rxt(k,322)*y(k,197) &
     304             :                       + .270_r8*rxt(k,350)*y(k,198) + rxt(k,369)*y(k,204) + rxt(k,388) &
     305   315224452 :                       *y(k,217) + rxt(k,359)*y(k,231)
     306   315224452 :          mat(k,1629) = mat(k,1629) + rxt(k,367)*y(k,16)
     307   315224452 :          mat(k,2202) = .500_r8*rxt(k,347)*y(k,29) + .100_r8*rxt(k,392)*y(k,111)
     308   315224452 :          mat(k,1044) = .400_r8*rxt(k,398)*y(k,124)
     309             :          mat(k,902) = rxt(k,322)*y(k,124) + 3.200_r8*rxt(k,319)*y(k,197) &
     310   315224452 :                       + .800_r8*rxt(k,320)*y(k,201)
     311   315224452 :          mat(k,937) = .270_r8*rxt(k,350)*y(k,124)
     312   315224452 :          mat(k,2388) = .800_r8*rxt(k,320)*y(k,197)
     313   315224452 :          mat(k,576) = rxt(k,369)*y(k,124)
     314   315224452 :          mat(k,699) = .200_r8*rxt(k,387)*y(k,90) + rxt(k,388)*y(k,124)
     315             :          mat(k,1792) = mat(k,1792) + .800_r8*rxt(k,396)*y(k,1) + rxt(k,323)*y(k,26) &
     316   315224452 :                       + .500_r8*rxt(k,324)*y(k,27)
     317   315224452 :          mat(k,815) = rxt(k,359)*y(k,124)
     318   315224452 :          mat(k,371) = -(rxt(k,282)*y(k,56) + rxt(k,283)*y(k,228))
     319   315224452 :          mat(k,2132) = -rxt(k,282)*y(k,46)
     320   315224452 :          mat(k,1719) = -rxt(k,283)*y(k,46)
     321   315224452 :          mat(k,104) = -(rxt(k,329)*y(k,228))
     322   315224452 :          mat(k,1682) = -rxt(k,329)*y(k,47)
     323   315224452 :          mat(k,1080) = -(rxt(k,366)*y(k,228))
     324   315224452 :          mat(k,1787) = -rxt(k,366)*y(k,48)
     325   315224452 :          mat(k,645) = .800_r8*rxt(k,396)*y(k,228)
     326   315224452 :          mat(k,979) = .520_r8*rxt(k,480)*y(k,136)
     327   315224452 :          mat(k,357) = .500_r8*rxt(k,367)*y(k,126)
     328   315224452 :          mat(k,1023) = .520_r8*rxt(k,483)*y(k,136)
     329             :          mat(k,1886) = .250_r8*rxt(k,398)*y(k,192) + .820_r8*rxt(k,350)*y(k,198) &
     330             :                       + .500_r8*rxt(k,369)*y(k,204) + .270_r8*rxt(k,492)*y(k,233) &
     331   315224452 :                       + .040_r8*rxt(k,497)*y(k,234)
     332   315224452 :          mat(k,1624) = .500_r8*rxt(k,367)*y(k,16)
     333   315224452 :          mat(k,2198) = .520_r8*rxt(k,480)*y(k,6) + .520_r8*rxt(k,483)*y(k,110)
     334   315224452 :          mat(k,1118) = .500_r8*rxt(k,501)*y(k,228)
     335   315224452 :          mat(k,1043) = .250_r8*rxt(k,398)*y(k,124)
     336   315224452 :          mat(k,936) = .820_r8*rxt(k,350)*y(k,124) + .820_r8*rxt(k,348)*y(k,201)
     337             :          mat(k,2384) = .820_r8*rxt(k,348)*y(k,198) + .150_r8*rxt(k,490)*y(k,233) &
     338   315224452 :                       + .025_r8*rxt(k,495)*y(k,234)
     339   315224452 :          mat(k,575) = .500_r8*rxt(k,369)*y(k,124)
     340             :          mat(k,1787) = mat(k,1787) + .800_r8*rxt(k,396)*y(k,1) + .500_r8*rxt(k,501) &
     341   315224452 :                       *y(k,181)
     342   315224452 :          mat(k,1174) = .270_r8*rxt(k,492)*y(k,124) + .150_r8*rxt(k,490)*y(k,201)
     343   315224452 :          mat(k,1064) = .040_r8*rxt(k,497)*y(k,124) + .025_r8*rxt(k,495)*y(k,201)
     344   315224452 :          mat(k,1281) = -(rxt(k,353)*y(k,126) + rxt(k,354)*y(k,228))
     345   315224452 :          mat(k,1639) = -rxt(k,353)*y(k,49)
     346   315224452 :          mat(k,1802) = -rxt(k,354)*y(k,49)
     347   315224452 :          mat(k,2342) = .070_r8*rxt(k,450)*y(k,202) + .070_r8*rxt(k,456)*y(k,216)
     348   315224452 :          mat(k,1209) = rxt(k,356)*y(k,228)
     349   315224452 :          mat(k,1270) = .880_r8*rxt(k,378)*y(k,136)
     350   315224452 :          mat(k,1374) = .500_r8*rxt(k,392)*y(k,136)
     351             :          mat(k,1900) = .170_r8*rxt(k,451)*y(k,202) + .050_r8*rxt(k,414)*y(k,209) &
     352             :                       + .250_r8*rxt(k,376)*y(k,213) + .170_r8*rxt(k,457)*y(k,216) &
     353             :                       + .400_r8*rxt(k,467)*y(k,235) + .250_r8*rxt(k,433)*y(k,237) &
     354   315224452 :                       + .540_r8*rxt(k,473)*y(k,238) + .510_r8*rxt(k,476)*y(k,240)
     355             :          mat(k,1639) = mat(k,1639) + .050_r8*rxt(k,415)*y(k,209) + .250_r8*rxt(k,375) &
     356   315224452 :                       *y(k,213) + .250_r8*rxt(k,434)*y(k,237)
     357   315224452 :          mat(k,893) = rxt(k,357)*y(k,228)
     358   315224452 :          mat(k,2210) = .880_r8*rxt(k,378)*y(k,105) + .500_r8*rxt(k,392)*y(k,111)
     359   315224452 :          mat(k,1422) = .250_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237)
     360             :          mat(k,2397) = .240_r8*rxt(k,373)*y(k,213) + .500_r8*rxt(k,361)*y(k,232) &
     361   315224452 :                       + .100_r8*rxt(k,431)*y(k,237)
     362   315224452 :          mat(k,780) = .070_r8*rxt(k,450)*y(k,90) + .170_r8*rxt(k,451)*y(k,124)
     363   315224452 :          mat(k,1331) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126)
     364             :          mat(k,1355) = .250_r8*rxt(k,376)*y(k,124) + .250_r8*rxt(k,375)*y(k,126) &
     365   315224452 :                       + .250_r8*rxt(k,372)*y(k,200) + .240_r8*rxt(k,373)*y(k,201)
     366   315224452 :          mat(k,913) = .070_r8*rxt(k,456)*y(k,90) + .170_r8*rxt(k,457)*y(k,124)
     367   315224452 :          mat(k,1802) = mat(k,1802) + rxt(k,356)*y(k,96) + rxt(k,357)*y(k,127)
     368   315224452 :          mat(k,1218) = .500_r8*rxt(k,361)*y(k,201)
     369   315224452 :          mat(k,756) = .400_r8*rxt(k,467)*y(k,124)
     370             :          mat(k,1234) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) &
     371   315224452 :                       + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201)
     372   315224452 :          mat(k,772) = .540_r8*rxt(k,473)*y(k,124)
     373   315224452 :          mat(k,512) = .510_r8*rxt(k,476)*y(k,124)
     374   315224452 :          mat(k,705) = -(rxt(k,334)*y(k,228))
     375   315224452 :          mat(k,1758) = -rxt(k,334)*y(k,50)
     376   315224452 :          mat(k,1129) = .120_r8*rxt(k,347)*y(k,136)
     377   315224452 :          mat(k,2309) = .150_r8*rxt(k,332)*y(k,200) + .150_r8*rxt(k,383)*y(k,215)
     378   315224452 :          mat(k,2186) = .120_r8*rxt(k,347)*y(k,29)
     379   315224452 :          mat(k,1413) = .150_r8*rxt(k,332)*y(k,90) + .100_r8*rxt(k,331)*y(k,201)
     380   315224452 :          mat(k,2376) = .100_r8*rxt(k,331)*y(k,200)
     381   315224452 :          mat(k,1394) = .150_r8*rxt(k,383)*y(k,90)
     382   315224452 :          mat(k,620) = -(rxt(k,335)*y(k,228))
     383   315224452 :          mat(k,1750) = -rxt(k,335)*y(k,51)
     384   315224452 :          mat(k,2303) = .400_r8*rxt(k,332)*y(k,200) + .400_r8*rxt(k,383)*y(k,215)
     385   315224452 :          mat(k,1412) = .400_r8*rxt(k,332)*y(k,90)
     386   315224452 :          mat(k,1393) = .400_r8*rxt(k,383)*y(k,90)
     387   315224452 :          mat(k,824) = -(rxt(k,302)*y(k,228))
     388   315224452 :          mat(k,1768) = -rxt(k,302)*y(k,52)
     389   315224452 :          mat(k,900) = .300_r8*rxt(k,320)*y(k,201)
     390             :          mat(k,2377) = .300_r8*rxt(k,320)*y(k,197) + 2.000_r8*rxt(k,299)*y(k,201) &
     391             :                       + .250_r8*rxt(k,406)*y(k,208) + .250_r8*rxt(k,411)*y(k,209) &
     392             :                       + .200_r8*rxt(k,420)*y(k,210) + .250_r8*rxt(k,373)*y(k,213) &
     393             :                       + .250_r8*rxt(k,485)*y(k,223) + .500_r8*rxt(k,361)*y(k,232) &
     394             :                       + .250_r8*rxt(k,490)*y(k,233) + .250_r8*rxt(k,495)*y(k,234) &
     395   315224452 :                       + .300_r8*rxt(k,431)*y(k,237)
     396   315224452 :          mat(k,1291) = .250_r8*rxt(k,406)*y(k,201)
     397   315224452 :          mat(k,1320) = .250_r8*rxt(k,411)*y(k,201)
     398   315224452 :          mat(k,1247) = .200_r8*rxt(k,420)*y(k,201)
     399   315224452 :          mat(k,1349) = .250_r8*rxt(k,373)*y(k,201)
     400   315224452 :          mat(k,1104) = .250_r8*rxt(k,485)*y(k,201)
     401   315224452 :          mat(k,1215) = .500_r8*rxt(k,361)*y(k,201)
     402   315224452 :          mat(k,1173) = .250_r8*rxt(k,490)*y(k,201)
     403   315224452 :          mat(k,1061) = .250_r8*rxt(k,495)*y(k,201)
     404   315224452 :          mat(k,1228) = .300_r8*rxt(k,431)*y(k,201)
     405   315224452 :          mat(k,454) = -(rxt(k,303)*y(k,228))
     406   315224452 :          mat(k,1730) = -rxt(k,303)*y(k,53)
     407   315224452 :          mat(k,2292) = rxt(k,300)*y(k,201)
     408   315224452 :          mat(k,2374) = rxt(k,300)*y(k,90)
     409             :          mat(k,2259) = -(rxt(k,215)*y(k,56) + rxt(k,271)*y(k,73) + rxt(k,304)*y(k,228) &
     410   315224452 :                       + (rxt(k,310) + rxt(k,311) + rxt(k,312)) * y(k,224))
     411   315224452 :          mat(k,2170) = -rxt(k,215)*y(k,54)
     412   315224452 :          mat(k,931) = -rxt(k,271)*y(k,54)
     413   315224452 :          mat(k,1828) = -rxt(k,304)*y(k,54)
     414   315224452 :          mat(k,2037) = -(rxt(k,310) + rxt(k,311) + rxt(k,312)) * y(k,54)
     415   315224452 :          mat(k,1147) = .100_r8*rxt(k,347)*y(k,136)
     416   315224452 :          mat(k,2234) = .100_r8*rxt(k,347)*y(k,29)
     417   315224452 :          mat(k,385) = -(rxt(k,267)*y(k,224) + rxt(k,284)*y(k,56) + rxt(k,285)*y(k,228))
     418   315224452 :          mat(k,2015) = -rxt(k,267)*y(k,55)
     419   315224452 :          mat(k,2133) = -rxt(k,284)*y(k,55)
     420   315224452 :          mat(k,1720) = -rxt(k,285)*y(k,55)
     421             :          mat(k,2168) = -(rxt(k,214)*y(k,42) + rxt(k,215)*y(k,54) + rxt(k,216)*y(k,77) &
     422             :                       + rxt(k,217)*y(k,79) + (rxt(k,218) + rxt(k,219)) * y(k,90) &
     423             :                       + rxt(k,220)*y(k,136) + rxt(k,227)*y(k,60) + rxt(k,236)*y(k,93) &
     424             :                       + rxt(k,277)*y(k,41) + rxt(k,279)*y(k,43) + rxt(k,282)*y(k,46) &
     425   315224452 :                       + rxt(k,284)*y(k,55) + rxt(k,325)*y(k,28) + rxt(k,355)*y(k,31))
     426   315224452 :          mat(k,1992) = -rxt(k,214)*y(k,56)
     427   315224452 :          mat(k,2257) = -rxt(k,215)*y(k,56)
     428   315224452 :          mat(k,1469) = -rxt(k,216)*y(k,56)
     429   315224452 :          mat(k,586) = -rxt(k,217)*y(k,56)
     430   315224452 :          mat(k,2365) = -(rxt(k,218) + rxt(k,219)) * y(k,56)
     431   315224452 :          mat(k,2232) = -rxt(k,220)*y(k,56)
     432   315224452 :          mat(k,963) = -rxt(k,227)*y(k,56)
     433   315224452 :          mat(k,842) = -rxt(k,236)*y(k,56)
     434   315224452 :          mat(k,484) = -rxt(k,277)*y(k,56)
     435   315224452 :          mat(k,607) = -rxt(k,279)*y(k,56)
     436   315224452 :          mat(k,375) = -rxt(k,282)*y(k,56)
     437   315224452 :          mat(k,390) = -rxt(k,284)*y(k,56)
     438   315224452 :          mat(k,302) = -rxt(k,325)*y(k,56)
     439   315224452 :          mat(k,308) = -rxt(k,355)*y(k,56)
     440   315224452 :          mat(k,1576) = rxt(k,255)*y(k,59)
     441   315224452 :          mat(k,103) = 4.000_r8*rxt(k,239)*y(k,224)
     442   315224452 :          mat(k,143) = rxt(k,240)*y(k,224)
     443   315224452 :          mat(k,114) = 2.000_r8*rxt(k,241)*y(k,224)
     444   315224452 :          mat(k,153) = 2.000_r8*rxt(k,242)*y(k,224)
     445   315224452 :          mat(k,118) = 2.000_r8*rxt(k,243)*y(k,224)
     446   315224452 :          mat(k,158) = rxt(k,244)*y(k,224)
     447   315224452 :          mat(k,122) = 2.000_r8*rxt(k,245)*y(k,224)
     448   315224452 :          mat(k,125) = 3.000_r8*rxt(k,281)*y(k,228)
     449   315224452 :          mat(k,375) = mat(k,375) + rxt(k,283)*y(k,228)
     450             :          mat(k,1602) = rxt(k,255)*y(k,19) + (4.000_r8*rxt(k,222)+2.000_r8*rxt(k,224)) &
     451             :                       *y(k,59) + rxt(k,226)*y(k,124) + rxt(k,231)*y(k,134) &
     452             :                       + rxt(k,510)*y(k,152) + rxt(k,221)*y(k,201) + rxt(k,232) &
     453   315224452 :                       *y(k,228)
     454   315224452 :          mat(k,249) = rxt(k,276)*y(k,224)
     455   315224452 :          mat(k,245) = rxt(k,291)*y(k,224) + rxt(k,286)*y(k,228)
     456   315224452 :          mat(k,255) = rxt(k,292)*y(k,224) + rxt(k,287)*y(k,228)
     457   315224452 :          mat(k,296) = rxt(k,293)*y(k,224) + rxt(k,288)*y(k,228)
     458   315224452 :          mat(k,1506) = rxt(k,234)*y(k,134) + rxt(k,246)*y(k,224) + rxt(k,235)*y(k,228)
     459   315224452 :          mat(k,1921) = rxt(k,226)*y(k,59)
     460   315224452 :          mat(k,2101) = rxt(k,231)*y(k,59) + rxt(k,234)*y(k,85)
     461   315224452 :          mat(k,1486) = rxt(k,510)*y(k,59)
     462   315224452 :          mat(k,2417) = rxt(k,221)*y(k,59)
     463             :          mat(k,2035) = 4.000_r8*rxt(k,239)*y(k,33) + rxt(k,240)*y(k,34) &
     464             :                       + 2.000_r8*rxt(k,241)*y(k,36) + 2.000_r8*rxt(k,242)*y(k,37) &
     465             :                       + 2.000_r8*rxt(k,243)*y(k,38) + rxt(k,244)*y(k,39) &
     466             :                       + 2.000_r8*rxt(k,245)*y(k,40) + rxt(k,276)*y(k,65) + rxt(k,291) &
     467             :                       *y(k,82) + rxt(k,292)*y(k,83) + rxt(k,293)*y(k,84) + rxt(k,246) &
     468   315224452 :                       *y(k,85)
     469             :          mat(k,1826) = 3.000_r8*rxt(k,281)*y(k,44) + rxt(k,283)*y(k,46) + rxt(k,232) &
     470             :                       *y(k,59) + rxt(k,286)*y(k,82) + rxt(k,287)*y(k,83) + rxt(k,288) &
     471   315224452 :                       *y(k,84) + rxt(k,235)*y(k,85)
     472   315224452 :          mat(k,2128) = rxt(k,227)*y(k,60)
     473   315224452 :          mat(k,1581) = 2.000_r8*rxt(k,223)*y(k,59)
     474   315224452 :          mat(k,953) = rxt(k,227)*y(k,56) + (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,85)
     475             :          mat(k,1490) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,60) + (rxt(k,563) &
     476   315224452 :                        +rxt(k,569)+rxt(k,574))*y(k,93)
     477   315224452 :          mat(k,836) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,85)
     478   315224452 :          mat(k,1580) = 2.000_r8*rxt(k,248)*y(k,59)
     479             :          mat(k,1592) = -(rxt(k,221)*y(k,201) + (4._r8*rxt(k,222) + 4._r8*rxt(k,223) &
     480             :                       + 4._r8*rxt(k,224) + 4._r8*rxt(k,248)) * y(k,59) + rxt(k,225) &
     481             :                       *y(k,90) + rxt(k,226)*y(k,124) + rxt(k,228)*y(k,125) + rxt(k,231) &
     482             :                       *y(k,134) + (rxt(k,232) + rxt(k,233)) * y(k,228) + (rxt(k,254) &
     483   315224452 :                       + rxt(k,255) + rxt(k,256)) * y(k,19) + rxt(k,510)*y(k,152))
     484   315224452 :          mat(k,2407) = -rxt(k,221)*y(k,59)
     485   315224452 :          mat(k,2355) = -rxt(k,225)*y(k,59)
     486   315224452 :          mat(k,1911) = -rxt(k,226)*y(k,59)
     487   315224452 :          mat(k,1956) = -rxt(k,228)*y(k,59)
     488   315224452 :          mat(k,2091) = -rxt(k,231)*y(k,59)
     489   315224452 :          mat(k,1816) = -(rxt(k,232) + rxt(k,233)) * y(k,59)
     490   315224452 :          mat(k,1566) = -(rxt(k,254) + rxt(k,255) + rxt(k,256)) * y(k,59)
     491   315224452 :          mat(k,1480) = -rxt(k,510)*y(k,59)
     492   315224452 :          mat(k,2158) = rxt(k,219)*y(k,90) + rxt(k,236)*y(k,93) + rxt(k,220)*y(k,136)
     493   315224452 :          mat(k,957) = rxt(k,229)*y(k,134)
     494   315224452 :          mat(k,1498) = rxt(k,247)*y(k,224)
     495   315224452 :          mat(k,2355) = mat(k,2355) + rxt(k,219)*y(k,56)
     496   315224452 :          mat(k,839) = rxt(k,236)*y(k,56) + rxt(k,237)*y(k,134) + rxt(k,238)*y(k,228)
     497   315224452 :          mat(k,2091) = mat(k,2091) + rxt(k,229)*y(k,60) + rxt(k,237)*y(k,93)
     498   315224452 :          mat(k,2222) = rxt(k,220)*y(k,56)
     499   315224452 :          mat(k,337) = rxt(k,515)*y(k,152)
     500   315224452 :          mat(k,1480) = mat(k,1480) + rxt(k,515)*y(k,138)
     501   315224452 :          mat(k,2025) = rxt(k,247)*y(k,85)
     502   325174377 :          mat(k,1816) = mat(k,1816) + rxt(k,238)*y(k,93)
     503             :       end do
     504     9949925 :       end subroutine nlnmat02
     505     9949925 :       subroutine nlnmat03( avec_len, mat, y, rxt )
     506             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
     507             :       implicit none
     508             : !----------------------------------------------
     509             : ! ... dummy arguments
     510             : !----------------------------------------------
     511             :       integer, intent(in) :: avec_len
     512             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
     513             :       real(r8), intent(in) :: rxt(veclen,rxntot)
     514             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
     515             : !----------------------------------------------
     516             : ! ... local variables
     517             : !----------------------------------------------
     518             :       integer :: k
     519             : !----------------------------------------------
     520             : ! ... complete matrix entries implicit species
     521             : !----------------------------------------------
     522   325174377 :       do k = 1,avec_len
     523   315224452 :          mat(k,955) = -(rxt(k,227)*y(k,56) + rxt(k,229)*y(k,134) + rxt(k,230)*y(k,228) &
     524   315224452 :                       + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,85))
     525   315224452 :          mat(k,2143) = -rxt(k,227)*y(k,60)
     526   315224452 :          mat(k,2081) = -rxt(k,229)*y(k,60)
     527   315224452 :          mat(k,1779) = -rxt(k,230)*y(k,60)
     528   315224452 :          mat(k,1494) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,60)
     529   315224452 :          mat(k,1586) = rxt(k,228)*y(k,125)
     530   315224452 :          mat(k,1942) = rxt(k,228)*y(k,59)
     531   315224452 :          mat(k,1160) = -(rxt(k,314)*y(k,228))
     532   315224452 :          mat(k,1793) = -rxt(k,314)*y(k,62)
     533   315224452 :          mat(k,982) = .230_r8*rxt(k,480)*y(k,136)
     534   315224452 :          mat(k,1509) = rxt(k,250)*y(k,42)
     535   315224452 :          mat(k,288) = .350_r8*rxt(k,316)*y(k,228)
     536   315224452 :          mat(k,553) = .630_r8*rxt(k,318)*y(k,136)
     537   315224452 :          mat(k,1135) = .560_r8*rxt(k,347)*y(k,136)
     538             :          mat(k,1975) = rxt(k,250)*y(k,17) + rxt(k,214)*y(k,56) + rxt(k,295)*y(k,126) &
     539   315224452 :                       + rxt(k,296)*y(k,134) + rxt(k,297)*y(k,228)
     540   315224452 :          mat(k,372) = rxt(k,282)*y(k,56)
     541   315224452 :          mat(k,1280) = rxt(k,353)*y(k,126) + rxt(k,354)*y(k,228)
     542   315224452 :          mat(k,2147) = rxt(k,214)*y(k,42) + rxt(k,282)*y(k,46)
     543   315224452 :          mat(k,1449) = rxt(k,591)*y(k,229)
     544   315224452 :          mat(k,1055) = rxt(k,341)*y(k,228)
     545             :          mat(k,2334) = .070_r8*rxt(k,450)*y(k,202) + .160_r8*rxt(k,453)*y(k,214) &
     546   315224452 :                       + .140_r8*rxt(k,456)*y(k,216)
     547   315224452 :          mat(k,879) = .620_r8*rxt(k,425)*y(k,136)
     548   315224452 :          mat(k,1268) = .650_r8*rxt(k,378)*y(k,136)
     549   315224452 :          mat(k,1026) = .230_r8*rxt(k,483)*y(k,136)
     550   315224452 :          mat(k,1372) = .560_r8*rxt(k,392)*y(k,136)
     551             :          mat(k,1891) = .170_r8*rxt(k,451)*y(k,202) + .220_r8*rxt(k,376)*y(k,213) &
     552             :                       + .400_r8*rxt(k,454)*y(k,214) + .350_r8*rxt(k,457)*y(k,216) &
     553   315224452 :                       + .225_r8*rxt(k,492)*y(k,233) + .250_r8*rxt(k,433)*y(k,237)
     554             :          mat(k,1630) = rxt(k,295)*y(k,42) + rxt(k,353)*y(k,49) + .220_r8*rxt(k,375) &
     555   315224452 :                       *y(k,213) + .500_r8*rxt(k,434)*y(k,237)
     556   315224452 :          mat(k,2083) = rxt(k,296)*y(k,42) + rxt(k,504)*y(k,139)
     557             :          mat(k,2203) = .230_r8*rxt(k,480)*y(k,6) + .630_r8*rxt(k,318)*y(k,25) &
     558             :                       + .560_r8*rxt(k,347)*y(k,29) + .620_r8*rxt(k,425)*y(k,99) &
     559             :                       + .650_r8*rxt(k,378)*y(k,105) + .230_r8*rxt(k,483)*y(k,110) &
     560   315224452 :                       + .560_r8*rxt(k,392)*y(k,111)
     561   315224452 :          mat(k,366) = rxt(k,504)*y(k,134) + rxt(k,505)*y(k,228)
     562   315224452 :          mat(k,1120) = .700_r8*rxt(k,501)*y(k,228)
     563   315224452 :          mat(k,1416) = .220_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237)
     564             :          mat(k,2389) = .110_r8*rxt(k,373)*y(k,213) + .125_r8*rxt(k,490)*y(k,233) &
     565   315224452 :                       + .200_r8*rxt(k,431)*y(k,237)
     566   315224452 :          mat(k,779) = .070_r8*rxt(k,450)*y(k,90) + .170_r8*rxt(k,451)*y(k,124)
     567             :          mat(k,1350) = .220_r8*rxt(k,376)*y(k,124) + .220_r8*rxt(k,375)*y(k,126) &
     568   315224452 :                       + .220_r8*rxt(k,372)*y(k,200) + .110_r8*rxt(k,373)*y(k,201)
     569   315224452 :          mat(k,742) = .160_r8*rxt(k,453)*y(k,90) + .400_r8*rxt(k,454)*y(k,124)
     570   315224452 :          mat(k,912) = .140_r8*rxt(k,456)*y(k,90) + .350_r8*rxt(k,457)*y(k,124)
     571             :          mat(k,1793) = mat(k,1793) + .350_r8*rxt(k,316)*y(k,24) + rxt(k,297)*y(k,42) &
     572             :                       + rxt(k,354)*y(k,49) + rxt(k,341)*y(k,75) + rxt(k,505)*y(k,139) &
     573   315224452 :                       + .700_r8*rxt(k,501)*y(k,181)
     574   315224452 :          mat(k,809) = rxt(k,591)*y(k,63)
     575   315224452 :          mat(k,1176) = .225_r8*rxt(k,492)*y(k,124) + .125_r8*rxt(k,490)*y(k,201)
     576             :          mat(k,1230) = .250_r8*rxt(k,433)*y(k,124) + .500_r8*rxt(k,434)*y(k,126) &
     577   315224452 :                       + .250_r8*rxt(k,430)*y(k,200) + .200_r8*rxt(k,431)*y(k,201)
     578   315224452 :          mat(k,1450) = -(rxt(k,591)*y(k,229))
     579   315224452 :          mat(k,810) = -rxt(k,591)*y(k,63)
     580   315224452 :          mat(k,986) = .270_r8*rxt(k,480)*y(k,136)
     581   315224452 :          mat(k,1139) = .200_r8*rxt(k,347)*y(k,136)
     582   315224452 :          mat(k,706) = rxt(k,334)*y(k,228)
     583   315224452 :          mat(k,622) = .500_r8*rxt(k,335)*y(k,228)
     584   315224452 :          mat(k,1161) = rxt(k,314)*y(k,228)
     585   315224452 :          mat(k,1167) = .800_r8*rxt(k,340)*y(k,228)
     586   315224452 :          mat(k,1056) = rxt(k,341)*y(k,228)
     587   315224452 :          mat(k,920) = rxt(k,306)*y(k,228)
     588   315224452 :          mat(k,2349) = .450_r8*rxt(k,383)*y(k,215)
     589   315224452 :          mat(k,614) = .500_r8*rxt(k,391)*y(k,228)
     590   315224452 :          mat(k,1030) = .270_r8*rxt(k,483)*y(k,136)
     591   315224452 :          mat(k,1379) = .100_r8*rxt(k,392)*y(k,136)
     592   315224452 :          mat(k,1907) = rxt(k,333)*y(k,200) + .900_r8*rxt(k,492)*y(k,233)
     593             :          mat(k,2217) = .270_r8*rxt(k,480)*y(k,6) + .200_r8*rxt(k,347)*y(k,29) &
     594   315224452 :                       + .270_r8*rxt(k,483)*y(k,110) + .100_r8*rxt(k,392)*y(k,111)
     595   315224452 :          mat(k,1123) = 1.800_r8*rxt(k,501)*y(k,228)
     596             :          mat(k,1429) = rxt(k,333)*y(k,124) + 4.000_r8*rxt(k,330)*y(k,200) &
     597             :                       + .900_r8*rxt(k,331)*y(k,201) + rxt(k,405)*y(k,208) &
     598   315224452 :                       + 2.000_r8*rxt(k,381)*y(k,215) + rxt(k,430)*y(k,237)
     599             :          mat(k,2404) = .900_r8*rxt(k,331)*y(k,200) + rxt(k,382)*y(k,215) &
     600   315224452 :                       + .500_r8*rxt(k,490)*y(k,233)
     601   315224452 :          mat(k,1304) = rxt(k,405)*y(k,200)
     602             :          mat(k,1399) = .450_r8*rxt(k,383)*y(k,90) + 2.000_r8*rxt(k,381)*y(k,200) &
     603   315224452 :                       + rxt(k,382)*y(k,201) + 4.000_r8*rxt(k,384)*y(k,215)
     604             :          mat(k,1809) = rxt(k,334)*y(k,50) + .500_r8*rxt(k,335)*y(k,51) + rxt(k,314) &
     605             :                       *y(k,62) + .800_r8*rxt(k,340)*y(k,74) + rxt(k,341)*y(k,75) &
     606             :                       + rxt(k,306)*y(k,87) + .500_r8*rxt(k,391)*y(k,109) &
     607   315224452 :                       + 1.800_r8*rxt(k,501)*y(k,181)
     608   315224452 :          mat(k,1181) = .900_r8*rxt(k,492)*y(k,124) + .500_r8*rxt(k,490)*y(k,201)
     609   315224452 :          mat(k,1236) = rxt(k,430)*y(k,200)
     610   315224452 :          mat(k,238) = -(rxt(k,275)*y(k,224))
     611   315224452 :          mat(k,2009) = -rxt(k,275)*y(k,64)
     612   315224452 :          mat(k,140) = rxt(k,240)*y(k,224)
     613   315224452 :          mat(k,145) = rxt(k,266)*y(k,224)
     614   315224452 :          mat(k,150) = rxt(k,242)*y(k,224)
     615   315224452 :          mat(k,116) = 2.000_r8*rxt(k,243)*y(k,224)
     616   315224452 :          mat(k,155) = 2.000_r8*rxt(k,244)*y(k,224)
     617   315224452 :          mat(k,120) = rxt(k,245)*y(k,224)
     618   315224452 :          mat(k,108) = 2.000_r8*rxt(k,268)*y(k,224)
     619   315224452 :          mat(k,250) = rxt(k,292)*y(k,224) + rxt(k,287)*y(k,228)
     620   315224452 :          mat(k,291) = rxt(k,293)*y(k,224) + rxt(k,288)*y(k,228)
     621             :          mat(k,2009) = mat(k,2009) + rxt(k,240)*y(k,34) + rxt(k,266)*y(k,35) &
     622             :                       + rxt(k,242)*y(k,37) + 2.000_r8*rxt(k,243)*y(k,38) &
     623             :                       + 2.000_r8*rxt(k,244)*y(k,39) + rxt(k,245)*y(k,40) &
     624             :                       + 2.000_r8*rxt(k,268)*y(k,78) + rxt(k,292)*y(k,83) + rxt(k,293) &
     625   315224452 :                       *y(k,84)
     626   315224452 :          mat(k,1699) = rxt(k,287)*y(k,83) + rxt(k,288)*y(k,84)
     627   315224452 :          mat(k,246) = -(rxt(k,276)*y(k,224))
     628   315224452 :          mat(k,2011) = -rxt(k,276)*y(k,65)
     629   315224452 :          mat(k,112) = rxt(k,241)*y(k,224)
     630   315224452 :          mat(k,151) = rxt(k,242)*y(k,224)
     631   315224452 :          mat(k,242) = rxt(k,291)*y(k,224) + rxt(k,286)*y(k,228)
     632             :          mat(k,2011) = mat(k,2011) + rxt(k,241)*y(k,36) + rxt(k,242)*y(k,37) &
     633   315224452 :                       + rxt(k,291)*y(k,82)
     634   315224452 :          mat(k,1701) = rxt(k,286)*y(k,82)
     635   315224452 :          mat(k,194) = -(rxt(k,449)*y(k,228))
     636   315224452 :          mat(k,1690) = -rxt(k,449)*y(k,66)
     637   315224452 :          mat(k,188) = .180_r8*rxt(k,469)*y(k,228)
     638   315224452 :          mat(k,1690) = mat(k,1690) + .180_r8*rxt(k,469)*y(k,183)
     639   315224452 :          mat(k,310) = -(rxt(k,502)*y(k,126) + (rxt(k,503) + rxt(k,517)) * y(k,228))
     640   315224452 :          mat(k,1610) = -rxt(k,502)*y(k,67)
     641   315224452 :          mat(k,1710) = -(rxt(k,503) + rxt(k,517)) * y(k,67)
     642   315224452 :          mat(k,2275) = rxt(k,336)*y(k,206)
     643   315224452 :          mat(k,795) = rxt(k,336)*y(k,90)
     644             :          mat(k,925) = -(rxt(k,271)*y(k,54) + rxt(k,272)*y(k,77) + rxt(k,273)*y(k,241) &
     645   315224452 :                       + rxt(k,274)*y(k,89))
     646   315224452 :          mat(k,2239) = -rxt(k,271)*y(k,73)
     647   315224452 :          mat(k,1460) = -rxt(k,272)*y(k,73)
     648   315224452 :          mat(k,2426) = -rxt(k,273)*y(k,73)
     649   315224452 :          mat(k,2042) = -rxt(k,274)*y(k,73)
     650   315224452 :          mat(k,146) = rxt(k,266)*y(k,224)
     651   315224452 :          mat(k,156) = rxt(k,244)*y(k,224)
     652   315224452 :          mat(k,239) = 2.000_r8*rxt(k,275)*y(k,224)
     653   315224452 :          mat(k,247) = rxt(k,276)*y(k,224)
     654             :          mat(k,2019) = rxt(k,266)*y(k,35) + rxt(k,244)*y(k,39) + 2.000_r8*rxt(k,275) &
     655   315224452 :                       *y(k,64) + rxt(k,276)*y(k,65)
     656   315224452 :          mat(k,1166) = -(rxt(k,340)*y(k,228))
     657   315224452 :          mat(k,1794) = -rxt(k,340)*y(k,74)
     658   315224452 :          mat(k,590) = .700_r8*rxt(k,416)*y(k,228)
     659   315224452 :          mat(k,560) = .500_r8*rxt(k,417)*y(k,228)
     660   315224452 :          mat(k,429) = rxt(k,428)*y(k,228)
     661             :          mat(k,1892) = .050_r8*rxt(k,414)*y(k,209) + .530_r8*rxt(k,376)*y(k,213) &
     662   315224452 :                       + .225_r8*rxt(k,492)*y(k,233) + .250_r8*rxt(k,433)*y(k,237)
     663             :          mat(k,1631) = .050_r8*rxt(k,415)*y(k,209) + .530_r8*rxt(k,375)*y(k,213) &
     664   315224452 :                       + .250_r8*rxt(k,434)*y(k,237)
     665   315224452 :          mat(k,1538) = rxt(k,339)*y(k,205)
     666   315224452 :          mat(k,1417) = .530_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237)
     667             :          mat(k,2390) = .260_r8*rxt(k,373)*y(k,213) + .125_r8*rxt(k,490)*y(k,233) &
     668   315224452 :                       + .100_r8*rxt(k,431)*y(k,237)
     669   315224452 :          mat(k,461) = rxt(k,339)*y(k,135)
     670   315224452 :          mat(k,1325) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126)
     671             :          mat(k,1351) = .530_r8*rxt(k,376)*y(k,124) + .530_r8*rxt(k,375)*y(k,126) &
     672   315224452 :                       + .530_r8*rxt(k,372)*y(k,200) + .260_r8*rxt(k,373)*y(k,201)
     673             :          mat(k,1794) = mat(k,1794) + .700_r8*rxt(k,416)*y(k,100) + .500_r8*rxt(k,417) &
     674   315224452 :                       *y(k,101) + rxt(k,428)*y(k,115)
     675   315224452 :          mat(k,1177) = .225_r8*rxt(k,492)*y(k,124) + .125_r8*rxt(k,490)*y(k,201)
     676             :          mat(k,1231) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) &
     677   315224452 :                       + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201)
     678   315224452 :          mat(k,1054) = -(rxt(k,341)*y(k,228))
     679   315224452 :          mat(k,1784) = -rxt(k,341)*y(k,75)
     680   315224452 :          mat(k,287) = .650_r8*rxt(k,316)*y(k,228)
     681   315224452 :          mat(k,1164) = .200_r8*rxt(k,340)*y(k,228)
     682   315224452 :          mat(k,2327) = .160_r8*rxt(k,453)*y(k,214) + .070_r8*rxt(k,456)*y(k,216)
     683   315224452 :          mat(k,1089) = rxt(k,429)*y(k,228)
     684             :          mat(k,1883) = rxt(k,440)*y(k,194) + .050_r8*rxt(k,414)*y(k,209) &
     685             :                       + .400_r8*rxt(k,454)*y(k,214) + .170_r8*rxt(k,457)*y(k,216) &
     686             :                       + .700_r8*rxt(k,460)*y(k,230) + .600_r8*rxt(k,467)*y(k,235) &
     687             :                       + .250_r8*rxt(k,433)*y(k,237) + .340_r8*rxt(k,473)*y(k,238) &
     688   315224452 :                       + .170_r8*rxt(k,476)*y(k,240)
     689   315224452 :          mat(k,1621) = .050_r8*rxt(k,415)*y(k,209) + .250_r8*rxt(k,434)*y(k,237)
     690   315224452 :          mat(k,497) = rxt(k,440)*y(k,124)
     691   315224452 :          mat(k,1414) = .250_r8*rxt(k,430)*y(k,237)
     692   315224452 :          mat(k,2381) = .100_r8*rxt(k,431)*y(k,237)
     693   315224452 :          mat(k,1323) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126)
     694   315224452 :          mat(k,741) = .160_r8*rxt(k,453)*y(k,90) + .400_r8*rxt(k,454)*y(k,124)
     695   315224452 :          mat(k,911) = .070_r8*rxt(k,456)*y(k,90) + .170_r8*rxt(k,457)*y(k,124)
     696             :          mat(k,1784) = mat(k,1784) + .650_r8*rxt(k,316)*y(k,24) + .200_r8*rxt(k,340) &
     697   315224452 :                       *y(k,74) + rxt(k,429)*y(k,116)
     698   315224452 :          mat(k,449) = .700_r8*rxt(k,460)*y(k,124)
     699   315224452 :          mat(k,754) = .600_r8*rxt(k,467)*y(k,124)
     700             :          mat(k,1229) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) &
     701   315224452 :                       + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201)
     702   315224452 :          mat(k,770) = .340_r8*rxt(k,473)*y(k,124)
     703   315224452 :          mat(k,511) = .170_r8*rxt(k,476)*y(k,124)
     704             :          mat(k,2121) = -((rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,90) + rxt(k,175) &
     705   315224452 :                       *y(k,135) + rxt(k,178)*y(k,136))
     706   315224452 :          mat(k,2364) = -(rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,76)
     707   315224452 :          mat(k,1551) = -rxt(k,175)*y(k,76)
     708   315224452 :          mat(k,2231) = -rxt(k,178)*y(k,76)
     709   315224452 :          mat(k,1991) = rxt(k,297)*y(k,228)
     710   315224452 :          mat(k,2256) = rxt(k,311)*y(k,224)
     711   315224452 :          mat(k,2167) = rxt(k,216)*y(k,77)
     712   315224452 :          mat(k,930) = rxt(k,272)*y(k,77)
     713             :          mat(k,1468) = rxt(k,216)*y(k,56) + rxt(k,272)*y(k,73) + rxt(k,170)*y(k,134) &
     714   315224452 :                       + rxt(k,153)*y(k,224) + rxt(k,179)*y(k,228)
     715   315224452 :          mat(k,834) = rxt(k,270)*y(k,224)
     716   315224452 :          mat(k,1505) = rxt(k,247)*y(k,224)
     717   315224452 :          mat(k,1008) = rxt(k,202)*y(k,228)
     718   315224452 :          mat(k,2100) = rxt(k,170)*y(k,77) + rxt(k,182)*y(k,228)
     719   315224452 :          mat(k,370) = rxt(k,505)*y(k,228)
     720   315224452 :          mat(k,723) = rxt(k,511)*y(k,228)
     721   315224452 :          mat(k,1485) = rxt(k,516)*y(k,228)
     722             :          mat(k,2034) = rxt(k,311)*y(k,54) + rxt(k,153)*y(k,77) + rxt(k,270)*y(k,81) &
     723   315224452 :                       + rxt(k,247)*y(k,85)
     724             :          mat(k,1825) = rxt(k,297)*y(k,42) + rxt(k,179)*y(k,77) + rxt(k,202)*y(k,112) &
     725             :                       + rxt(k,182)*y(k,134) + rxt(k,505)*y(k,139) + rxt(k,511) &
     726   325174377 :                       *y(k,150) + rxt(k,516)*y(k,152)
     727             :       end do
     728     9949925 :       end subroutine nlnmat03
     729     9949925 :       subroutine nlnmat04( avec_len, mat, y, rxt )
     730             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
     731             :       implicit none
     732             : !----------------------------------------------
     733             : ! ... dummy arguments
     734             : !----------------------------------------------
     735             :       integer, intent(in) :: avec_len
     736             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
     737             :       real(r8), intent(in) :: rxt(veclen,rxntot)
     738             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
     739             : !----------------------------------------------
     740             : ! ... local variables
     741             : !----------------------------------------------
     742             :       integer :: k
     743             : !----------------------------------------------
     744             : ! ... complete matrix entries implicit species
     745             : !----------------------------------------------
     746   325174377 :       do k = 1,avec_len
     747   315224452 :          mat(k,1461) = -(rxt(k,153)*y(k,224) + rxt(k,170)*y(k,134) + rxt(k,179) &
     748   315224452 :                       *y(k,228) + rxt(k,216)*y(k,56) + rxt(k,272)*y(k,73))
     749   315224452 :          mat(k,2020) = -rxt(k,153)*y(k,77)
     750   315224452 :          mat(k,2085) = -rxt(k,170)*y(k,77)
     751   315224452 :          mat(k,1810) = -rxt(k,179)*y(k,77)
     752   315224452 :          mat(k,2153) = -rxt(k,216)*y(k,77)
     753   315224452 :          mat(k,926) = -rxt(k,272)*y(k,77)
     754   315224452 :          mat(k,2242) = rxt(k,312)*y(k,224)
     755   315224452 :          mat(k,2107) = rxt(k,172)*y(k,90)
     756   315224452 :          mat(k,2350) = rxt(k,172)*y(k,76)
     757   315224452 :          mat(k,2020) = mat(k,2020) + rxt(k,312)*y(k,54)
     758   315224452 :          mat(k,107) = -(rxt(k,268)*y(k,224))
     759   315224452 :          mat(k,1999) = -rxt(k,268)*y(k,78)
     760   315224452 :          mat(k,582) = -(rxt(k,171)*y(k,134) + rxt(k,180)*y(k,228) + rxt(k,217)*y(k,56))
     761   315224452 :          mat(k,2070) = -rxt(k,171)*y(k,79)
     762   315224452 :          mat(k,1745) = -rxt(k,180)*y(k,79)
     763   315224452 :          mat(k,2136) = -rxt(k,217)*y(k,79)
     764   315224452 :          mat(k,2302) = 2.000_r8*rxt(k,186)*y(k,90)
     765   315224452 :          mat(k,1745) = mat(k,1745) + 2.000_r8*rxt(k,185)*y(k,228)
     766   315224452 :          mat(k,260) = rxt(k,518)*y(k,241)
     767   315224452 :          mat(k,2423) = rxt(k,518)*y(k,154)
     768             :          mat(k,828) = -(rxt(k,263)*y(k,134) + rxt(k,264)*y(k,228) + (rxt(k,269) &
     769   315224452 :                       + rxt(k,270)) * y(k,224))
     770   315224452 :          mat(k,2075) = -rxt(k,263)*y(k,81)
     771   315224452 :          mat(k,1769) = -rxt(k,264)*y(k,81)
     772   315224452 :          mat(k,2018) = -(rxt(k,269) + rxt(k,270)) * y(k,81)
     773   315224452 :          mat(k,1508) = rxt(k,250)*y(k,42) + rxt(k,251)*y(k,90)
     774   315224452 :          mat(k,1973) = rxt(k,250)*y(k,17)
     775   315224452 :          mat(k,2319) = rxt(k,251)*y(k,17)
     776   315224452 :          mat(k,241) = -(rxt(k,286)*y(k,228) + rxt(k,291)*y(k,224))
     777   315224452 :          mat(k,1700) = -rxt(k,286)*y(k,82)
     778   315224452 :          mat(k,2010) = -rxt(k,291)*y(k,82)
     779   315224452 :          mat(k,251) = -(rxt(k,287)*y(k,228) + rxt(k,292)*y(k,224))
     780   315224452 :          mat(k,1702) = -rxt(k,287)*y(k,83)
     781   315224452 :          mat(k,2012) = -rxt(k,292)*y(k,83)
     782   315224452 :          mat(k,292) = -(rxt(k,288)*y(k,228) + rxt(k,293)*y(k,224))
     783   315224452 :          mat(k,1707) = -rxt(k,288)*y(k,84)
     784   315224452 :          mat(k,2014) = -rxt(k,293)*y(k,84)
     785             :          mat(k,1495) = -(rxt(k,234)*y(k,134) + rxt(k,235)*y(k,228) + (rxt(k,246) &
     786             :                       + rxt(k,247)) * y(k,224) + (rxt(k,563) + rxt(k,569) + rxt(k,574) &
     787             :                       ) * y(k,93) + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,60) &
     788   315224452 :                       + (rxt(k,570) + rxt(k,575)) * y(k,92))
     789   315224452 :          mat(k,2087) = -rxt(k,234)*y(k,85)
     790   315224452 :          mat(k,1812) = -rxt(k,235)*y(k,85)
     791   315224452 :          mat(k,2021) = -(rxt(k,246) + rxt(k,247)) * y(k,85)
     792   315224452 :          mat(k,838) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,85)
     793   315224452 :          mat(k,956) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,85)
     794   315224452 :          mat(k,788) = -(rxt(k,570) + rxt(k,575)) * y(k,85)
     795   315224452 :          mat(k,300) = rxt(k,325)*y(k,56)
     796   315224452 :          mat(k,306) = rxt(k,355)*y(k,56)
     797   315224452 :          mat(k,480) = rxt(k,277)*y(k,56)
     798   315224452 :          mat(k,1978) = rxt(k,214)*y(k,56)
     799   315224452 :          mat(k,603) = rxt(k,279)*y(k,56)
     800   315224452 :          mat(k,373) = 2.000_r8*rxt(k,282)*y(k,56)
     801   315224452 :          mat(k,2243) = rxt(k,215)*y(k,56)
     802   315224452 :          mat(k,386) = rxt(k,284)*y(k,56)
     803             :          mat(k,2154) = rxt(k,325)*y(k,28) + rxt(k,355)*y(k,31) + rxt(k,277)*y(k,41) &
     804             :                       + rxt(k,214)*y(k,42) + rxt(k,279)*y(k,43) + 2.000_r8*rxt(k,282) &
     805             :                       *y(k,46) + rxt(k,215)*y(k,54) + rxt(k,284)*y(k,55) + rxt(k,216) &
     806             :                       *y(k,77) + rxt(k,217)*y(k,79) + rxt(k,218)*y(k,90) + rxt(k,236) &
     807   315224452 :                       *y(k,93)
     808   315224452 :          mat(k,1588) = rxt(k,233)*y(k,228)
     809   315224452 :          mat(k,1462) = rxt(k,216)*y(k,56)
     810   315224452 :          mat(k,583) = rxt(k,217)*y(k,56)
     811   315224452 :          mat(k,2351) = rxt(k,218)*y(k,56)
     812   315224452 :          mat(k,838) = mat(k,838) + rxt(k,236)*y(k,56)
     813   315224452 :          mat(k,1812) = mat(k,1812) + rxt(k,233)*y(k,59)
     814   315224452 :          mat(k,182) = -(rxt(k,305)*y(k,228) + rxt(k,313)*y(k,224))
     815   315224452 :          mat(k,1688) = -rxt(k,305)*y(k,86)
     816   315224452 :          mat(k,2008) = -rxt(k,313)*y(k,86)
     817   315224452 :          mat(k,919) = -(rxt(k,306)*y(k,228))
     818   315224452 :          mat(k,1775) = -rxt(k,306)*y(k,87)
     819   315224452 :          mat(k,973) = .050_r8*rxt(k,480)*y(k,136)
     820   315224452 :          mat(k,286) = .350_r8*rxt(k,316)*y(k,228)
     821   315224452 :          mat(k,552) = .370_r8*rxt(k,318)*y(k,136)
     822   315224452 :          mat(k,1132) = .120_r8*rxt(k,347)*y(k,136)
     823   315224452 :          mat(k,2324) = rxt(k,307)*y(k,207)
     824   315224452 :          mat(k,877) = .110_r8*rxt(k,425)*y(k,136)
     825   315224452 :          mat(k,1267) = .330_r8*rxt(k,378)*y(k,136)
     826   315224452 :          mat(k,1017) = .050_r8*rxt(k,483)*y(k,136)
     827   315224452 :          mat(k,1369) = .120_r8*rxt(k,392)*y(k,136)
     828   315224452 :          mat(k,1879) = rxt(k,309)*y(k,207)
     829             :          mat(k,2190) = .050_r8*rxt(k,480)*y(k,6) + .370_r8*rxt(k,318)*y(k,25) &
     830             :                       + .120_r8*rxt(k,347)*y(k,29) + .110_r8*rxt(k,425)*y(k,99) &
     831             :                       + .330_r8*rxt(k,378)*y(k,105) + .050_r8*rxt(k,483)*y(k,110) &
     832   315224452 :                       + .120_r8*rxt(k,392)*y(k,111)
     833   315224452 :          mat(k,442) = rxt(k,307)*y(k,90) + rxt(k,309)*y(k,124)
     834   315224452 :          mat(k,1775) = mat(k,1775) + .350_r8*rxt(k,316)*y(k,24)
     835   315224452 :          mat(k,2238) = rxt(k,271)*y(k,73)
     836             :          mat(k,924) = rxt(k,271)*y(k,54) + rxt(k,272)*y(k,77) + rxt(k,274)*y(k,89) &
     837   315224452 :                       + rxt(k,273)*y(k,241)
     838   315224452 :          mat(k,1459) = rxt(k,272)*y(k,73)
     839   315224452 :          mat(k,2041) = rxt(k,274)*y(k,73)
     840   315224452 :          mat(k,2425) = rxt(k,273)*y(k,73)
     841   315224452 :          mat(k,2055) = -(rxt(k,211)*y(k,228) + rxt(k,274)*y(k,73))
     842   315224452 :          mat(k,1823) = -rxt(k,211)*y(k,89)
     843   315224452 :          mat(k,929) = -rxt(k,274)*y(k,89)
     844   315224452 :          mat(k,1989) = rxt(k,295)*y(k,126)
     845   315224452 :          mat(k,1156) = rxt(k,327)*y(k,126)
     846   315224452 :          mat(k,1286) = rxt(k,353)*y(k,126)
     847   315224452 :          mat(k,961) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,85)
     848   315224452 :          mat(k,314) = rxt(k,502)*y(k,126)
     849   315224452 :          mat(k,1503) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,60)
     850   315224452 :          mat(k,1963) = rxt(k,210)*y(k,228)
     851             :          mat(k,1658) = rxt(k,295)*y(k,42) + rxt(k,327)*y(k,45) + rxt(k,353)*y(k,49) &
     852   315224452 :                       + rxt(k,502)*y(k,67)
     853   315224452 :          mat(k,1823) = mat(k,1823) + rxt(k,210)*y(k,125)
     854             :          mat(k,2368) = -((rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,76) + rxt(k,176) &
     855             :                       *y(k,134) + rxt(k,177)*y(k,136) + rxt(k,181)*y(k,228) &
     856             :                       + 4._r8*rxt(k,186)*y(k,90) + rxt(k,198)*y(k,126) + rxt(k,203) &
     857             :                       *y(k,124) + rxt(k,208)*y(k,125) + (rxt(k,218) + rxt(k,219) &
     858             :                       ) * y(k,56) + rxt(k,225)*y(k,59) + rxt(k,251)*y(k,17) + rxt(k,257) &
     859             :                       *y(k,19) + rxt(k,294)*y(k,42) + rxt(k,300)*y(k,201) + rxt(k,307) &
     860             :                       *y(k,207) + rxt(k,321)*y(k,197) + rxt(k,332)*y(k,200) + rxt(k,336) &
     861             :                       *y(k,206) + rxt(k,349)*y(k,198) + rxt(k,358)*y(k,231) + rxt(k,362) &
     862             :                       *y(k,232) + rxt(k,374)*y(k,213) + rxt(k,383)*y(k,215) + rxt(k,387) &
     863             :                       *y(k,217) + rxt(k,397)*y(k,192) + rxt(k,407)*y(k,208) + rxt(k,412) &
     864             :                       *y(k,209) + rxt(k,421)*y(k,210) + rxt(k,432)*y(k,237) + rxt(k,436) &
     865             :                       *y(k,191) + rxt(k,439)*y(k,194) + rxt(k,443)*y(k,196) + rxt(k,446) &
     866             :                       *y(k,199) + rxt(k,450)*y(k,202) + rxt(k,453)*y(k,214) + rxt(k,456) &
     867             :                       *y(k,216) + rxt(k,459)*y(k,230) + rxt(k,466)*y(k,235) + rxt(k,472) &
     868             :                       *y(k,238) + rxt(k,475)*y(k,240) + rxt(k,486)*y(k,223) + rxt(k,491) &
     869   315224452 :                       *y(k,233) + rxt(k,496)*y(k,234))
     870   315224452 :          mat(k,2125) = -(rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,90)
     871   315224452 :          mat(k,2104) = -rxt(k,176)*y(k,90)
     872   315224452 :          mat(k,2235) = -rxt(k,177)*y(k,90)
     873   315224452 :          mat(k,1829) = -rxt(k,181)*y(k,90)
     874   315224452 :          mat(k,1664) = -rxt(k,198)*y(k,90)
     875   315224452 :          mat(k,1924) = -rxt(k,203)*y(k,90)
     876   315224452 :          mat(k,1969) = -rxt(k,208)*y(k,90)
     877   315224452 :          mat(k,2171) = -(rxt(k,218) + rxt(k,219)) * y(k,90)
     878   315224452 :          mat(k,1604) = -rxt(k,225)*y(k,90)
     879   315224452 :          mat(k,1522) = -rxt(k,251)*y(k,90)
     880   315224452 :          mat(k,1578) = -rxt(k,257)*y(k,90)
     881   315224452 :          mat(k,1995) = -rxt(k,294)*y(k,90)
     882   315224452 :          mat(k,2420) = -rxt(k,300)*y(k,90)
     883   315224452 :          mat(k,446) = -rxt(k,307)*y(k,90)
     884   315224452 :          mat(k,908) = -rxt(k,321)*y(k,90)
     885   315224452 :          mat(k,1439) = -rxt(k,332)*y(k,90)
     886   315224452 :          mat(k,804) = -rxt(k,336)*y(k,90)
     887   315224452 :          mat(k,943) = -rxt(k,349)*y(k,90)
     888   315224452 :          mat(k,822) = -rxt(k,358)*y(k,90)
     889   315224452 :          mat(k,1224) = -rxt(k,362)*y(k,90)
     890   315224452 :          mat(k,1366) = -rxt(k,374)*y(k,90)
     891   315224452 :          mat(k,1407) = -rxt(k,383)*y(k,90)
     892   315224452 :          mat(k,704) = -rxt(k,387)*y(k,90)
     893   315224452 :          mat(k,1051) = -rxt(k,397)*y(k,90)
     894   315224452 :          mat(k,1312) = -rxt(k,407)*y(k,90)
     895   315224452 :          mat(k,1345) = -rxt(k,412)*y(k,90)
     896   315224452 :          mat(k,1265) = -rxt(k,421)*y(k,90)
     897   315224452 :          mat(k,1242) = -rxt(k,432)*y(k,90)
     898   315224452 :          mat(k,528) = -rxt(k,436)*y(k,90)
     899   315224452 :          mat(k,501) = -rxt(k,439)*y(k,90)
     900   315224452 :          mat(k,440) = -rxt(k,443)*y(k,90)
     901   315224452 :          mat(k,640) = -rxt(k,446)*y(k,90)
     902   315224452 :          mat(k,784) = -rxt(k,450)*y(k,90)
     903   315224452 :          mat(k,745) = -rxt(k,453)*y(k,90)
     904   315224452 :          mat(k,917) = -rxt(k,456)*y(k,90)
     905   315224452 :          mat(k,453) = -rxt(k,459)*y(k,90)
     906   315224452 :          mat(k,760) = -rxt(k,466)*y(k,90)
     907   315224452 :          mat(k,777) = -rxt(k,472)*y(k,90)
     908   315224452 :          mat(k,516) = -rxt(k,475)*y(k,90)
     909   315224452 :          mat(k,1116) = -rxt(k,486)*y(k,90)
     910   315224452 :          mat(k,1187) = -rxt(k,491)*y(k,90)
     911   315224452 :          mat(k,1070) = -rxt(k,496)*y(k,90)
     912   315224452 :          mat(k,991) = .570_r8*rxt(k,480)*y(k,136)
     913   315224452 :          mat(k,165) = .650_r8*rxt(k,438)*y(k,228)
     914   315224452 :          mat(k,1522) = mat(k,1522) + rxt(k,250)*y(k,42)
     915   315224452 :          mat(k,1578) = mat(k,1578) + rxt(k,262)*y(k,228)
     916   315224452 :          mat(k,290) = .350_r8*rxt(k,316)*y(k,228)
     917   315224452 :          mat(k,557) = .130_r8*rxt(k,318)*y(k,136)
     918   315224452 :          mat(k,268) = rxt(k,323)*y(k,228)
     919   315224452 :          mat(k,1148) = .280_r8*rxt(k,347)*y(k,136)
     920             :          mat(k,1995) = mat(k,1995) + rxt(k,250)*y(k,17) + rxt(k,214)*y(k,56) &
     921   315224452 :                       + rxt(k,295)*y(k,126) + rxt(k,296)*y(k,134)
     922   315224452 :          mat(k,608) = rxt(k,279)*y(k,56) + rxt(k,280)*y(k,228)
     923   315224452 :          mat(k,376) = rxt(k,282)*y(k,56) + rxt(k,283)*y(k,228)
     924   315224452 :          mat(k,106) = rxt(k,329)*y(k,228)
     925   315224452 :          mat(k,827) = rxt(k,302)*y(k,228)
     926   315224452 :          mat(k,2260) = rxt(k,311)*y(k,224)
     927             :          mat(k,2171) = mat(k,2171) + rxt(k,214)*y(k,42) + rxt(k,279)*y(k,43) &
     928   315224452 :                       + rxt(k,282)*y(k,46) + rxt(k,217)*y(k,79)
     929   315224452 :          mat(k,1604) = mat(k,1604) + rxt(k,221)*y(k,201) + rxt(k,232)*y(k,228)
     930   315224452 :          mat(k,1163) = rxt(k,314)*y(k,228)
     931   315224452 :          mat(k,198) = .730_r8*rxt(k,449)*y(k,228)
     932   315224452 :          mat(k,315) = .500_r8*rxt(k,517)*y(k,228)
     933   315224452 :          mat(k,1170) = rxt(k,340)*y(k,228)
     934   315224452 :          mat(k,1058) = rxt(k,341)*y(k,228)
     935   315224452 :          mat(k,2125) = mat(k,2125) + rxt(k,175)*y(k,135)
     936   315224452 :          mat(k,587) = rxt(k,217)*y(k,56) + rxt(k,171)*y(k,134) + rxt(k,180)*y(k,228)
     937   315224452 :          mat(k,185) = rxt(k,305)*y(k,228)
     938   315224452 :          mat(k,922) = rxt(k,306)*y(k,228)
     939             :          mat(k,2368) = mat(k,2368) + .070_r8*rxt(k,450)*y(k,202) + .160_r8*rxt(k,453) &
     940   315224452 :                       *y(k,214) + .330_r8*rxt(k,456)*y(k,216)
     941   315224452 :          mat(k,1205) = rxt(k,371)*y(k,228)
     942   315224452 :          mat(k,1213) = rxt(k,356)*y(k,228)
     943   315224452 :          mat(k,890) = .370_r8*rxt(k,425)*y(k,136)
     944   315224452 :          mat(k,597) = .300_r8*rxt(k,416)*y(k,228)
     945   315224452 :          mat(k,565) = rxt(k,417)*y(k,228)
     946   315224452 :          mat(k,408) = rxt(k,424)*y(k,228)
     947   315224452 :          mat(k,1278) = .140_r8*rxt(k,378)*y(k,136)
     948   315224452 :          mat(k,320) = .200_r8*rxt(k,380)*y(k,228)
     949   315224452 :          mat(k,619) = .500_r8*rxt(k,391)*y(k,228)
     950   315224452 :          mat(k,1035) = .570_r8*rxt(k,483)*y(k,136)
     951   315224452 :          mat(k,1389) = .280_r8*rxt(k,392)*y(k,136)
     952   315224452 :          mat(k,432) = rxt(k,428)*y(k,228)
     953   315224452 :          mat(k,1100) = rxt(k,429)*y(k,228)
     954             :          mat(k,1924) = mat(k,1924) + rxt(k,398)*y(k,192) + rxt(k,440)*y(k,194) &
     955             :                       + rxt(k,445)*y(k,196) + rxt(k,322)*y(k,197) + rxt(k,350) &
     956             :                       *y(k,198) + rxt(k,301)*y(k,201) + .170_r8*rxt(k,451)*y(k,202) &
     957             :                       + rxt(k,369)*y(k,204) + .250_r8*rxt(k,337)*y(k,206) + rxt(k,309) &
     958             :                       *y(k,207) + .920_r8*rxt(k,408)*y(k,208) + .920_r8*rxt(k,414) &
     959             :                       *y(k,209) + rxt(k,422)*y(k,210) + .470_r8*rxt(k,376)*y(k,213) &
     960             :                       + .400_r8*rxt(k,454)*y(k,214) + .830_r8*rxt(k,457)*y(k,216) &
     961             :                       + rxt(k,460)*y(k,230) + rxt(k,359)*y(k,231) + .900_r8*rxt(k,492) &
     962             :                       *y(k,233) + .800_r8*rxt(k,497)*y(k,234) + rxt(k,467)*y(k,235) &
     963             :                       + rxt(k,433)*y(k,237) + rxt(k,473)*y(k,238) + rxt(k,476) &
     964   315224452 :                       *y(k,240)
     965             :          mat(k,1664) = mat(k,1664) + rxt(k,295)*y(k,42) + rxt(k,409)*y(k,208) &
     966             :                       + rxt(k,415)*y(k,209) + rxt(k,423)*y(k,210) + .470_r8*rxt(k,375) &
     967   315224452 :                       *y(k,213) + rxt(k,201)*y(k,228) + rxt(k,434)*y(k,237)
     968   315224452 :          mat(k,2104) = mat(k,2104) + rxt(k,296)*y(k,42) + rxt(k,171)*y(k,79)
     969   315224452 :          mat(k,1554) = rxt(k,175)*y(k,76) + rxt(k,339)*y(k,205)
     970             :          mat(k,2235) = mat(k,2235) + .570_r8*rxt(k,480)*y(k,6) + .130_r8*rxt(k,318) &
     971             :                       *y(k,25) + .280_r8*rxt(k,347)*y(k,29) + .370_r8*rxt(k,425) &
     972             :                       *y(k,99) + .140_r8*rxt(k,378)*y(k,105) + .570_r8*rxt(k,483) &
     973   315224452 :                       *y(k,110) + .280_r8*rxt(k,392)*y(k,111) + rxt(k,183)*y(k,228)
     974   315224452 :          mat(k,174) = .800_r8*rxt(k,461)*y(k,228)
     975   315224452 :          mat(k,951) = rxt(k,507)*y(k,228)
     976   315224452 :          mat(k,1126) = .200_r8*rxt(k,501)*y(k,228)
     977   315224452 :          mat(k,193) = .280_r8*rxt(k,469)*y(k,228)
     978   315224452 :          mat(k,215) = .380_r8*rxt(k,471)*y(k,228)
     979   315224452 :          mat(k,220) = .630_r8*rxt(k,477)*y(k,228)
     980   315224452 :          mat(k,1051) = mat(k,1051) + rxt(k,398)*y(k,124)
     981   315224452 :          mat(k,501) = mat(k,501) + rxt(k,440)*y(k,124)
     982   315224452 :          mat(k,440) = mat(k,440) + rxt(k,445)*y(k,124)
     983             :          mat(k,908) = mat(k,908) + rxt(k,322)*y(k,124) + 2.400_r8*rxt(k,319)*y(k,197) &
     984   315224452 :                       + rxt(k,320)*y(k,201)
     985   315224452 :          mat(k,943) = mat(k,943) + rxt(k,350)*y(k,124) + rxt(k,348)*y(k,201)
     986             :          mat(k,1439) = mat(k,1439) + .900_r8*rxt(k,331)*y(k,201) + rxt(k,405)*y(k,208) &
     987             :                       + rxt(k,410)*y(k,209) + rxt(k,419)*y(k,210) + .470_r8*rxt(k,372) &
     988   315224452 :                       *y(k,213) + rxt(k,430)*y(k,237)
     989             :          mat(k,2420) = mat(k,2420) + rxt(k,221)*y(k,59) + rxt(k,301)*y(k,124) &
     990             :                       + rxt(k,320)*y(k,197) + rxt(k,348)*y(k,198) + .900_r8*rxt(k,331) &
     991             :                       *y(k,200) + 4.000_r8*rxt(k,298)*y(k,201) + rxt(k,406)*y(k,208) &
     992             :                       + rxt(k,411)*y(k,209) + 1.200_r8*rxt(k,420)*y(k,210) &
     993             :                       + .730_r8*rxt(k,373)*y(k,213) + rxt(k,382)*y(k,215) &
     994             :                       + .500_r8*rxt(k,485)*y(k,223) + .300_r8*rxt(k,361)*y(k,232) &
     995             :                       + rxt(k,490)*y(k,233) + rxt(k,495)*y(k,234) + .800_r8*rxt(k,431) &
     996   315224452 :                       *y(k,237)
     997             :          mat(k,784) = mat(k,784) + .070_r8*rxt(k,450)*y(k,90) + .170_r8*rxt(k,451) &
     998   315224452 :                       *y(k,124)
     999   315224452 :          mat(k,581) = rxt(k,369)*y(k,124)
    1000   315224452 :          mat(k,464) = rxt(k,339)*y(k,135)
    1001   315224452 :          mat(k,804) = mat(k,804) + .250_r8*rxt(k,337)*y(k,124)
    1002   315224452 :          mat(k,446) = mat(k,446) + rxt(k,309)*y(k,124)
    1003             :          mat(k,1312) = mat(k,1312) + .920_r8*rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126) &
    1004   315224452 :                       + rxt(k,405)*y(k,200) + rxt(k,406)*y(k,201)
    1005             :          mat(k,1345) = mat(k,1345) + .920_r8*rxt(k,414)*y(k,124) + rxt(k,415)*y(k,126) &
    1006   315224452 :                       + rxt(k,410)*y(k,200) + rxt(k,411)*y(k,201)
    1007             :          mat(k,1265) = mat(k,1265) + rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126) &
    1008   315224452 :                       + rxt(k,419)*y(k,200) + 1.200_r8*rxt(k,420)*y(k,201)
    1009             :          mat(k,1366) = mat(k,1366) + .470_r8*rxt(k,376)*y(k,124) + .470_r8*rxt(k,375) &
    1010             :                       *y(k,126) + .470_r8*rxt(k,372)*y(k,200) + .730_r8*rxt(k,373) &
    1011   315224452 :                       *y(k,201)
    1012             :          mat(k,745) = mat(k,745) + .160_r8*rxt(k,453)*y(k,90) + .400_r8*rxt(k,454) &
    1013   315224452 :                       *y(k,124)
    1014   315224452 :          mat(k,1407) = mat(k,1407) + rxt(k,382)*y(k,201)
    1015             :          mat(k,917) = mat(k,917) + .330_r8*rxt(k,456)*y(k,90) + .830_r8*rxt(k,457) &
    1016   315224452 :                       *y(k,124)
    1017   315224452 :          mat(k,1116) = mat(k,1116) + .500_r8*rxt(k,485)*y(k,201)
    1018   315224452 :          mat(k,2038) = rxt(k,311)*y(k,54)
    1019             :          mat(k,1829) = mat(k,1829) + .650_r8*rxt(k,438)*y(k,7) + rxt(k,262)*y(k,19) &
    1020             :                       + .350_r8*rxt(k,316)*y(k,24) + rxt(k,323)*y(k,26) + rxt(k,280) &
    1021             :                       *y(k,43) + rxt(k,283)*y(k,46) + rxt(k,329)*y(k,47) + rxt(k,302) &
    1022             :                       *y(k,52) + rxt(k,232)*y(k,59) + rxt(k,314)*y(k,62) &
    1023             :                       + .730_r8*rxt(k,449)*y(k,66) + .500_r8*rxt(k,517)*y(k,67) &
    1024             :                       + rxt(k,340)*y(k,74) + rxt(k,341)*y(k,75) + rxt(k,180)*y(k,79) &
    1025             :                       + rxt(k,305)*y(k,86) + rxt(k,306)*y(k,87) + rxt(k,371)*y(k,94) &
    1026             :                       + rxt(k,356)*y(k,96) + .300_r8*rxt(k,416)*y(k,100) + rxt(k,417) &
    1027             :                       *y(k,101) + rxt(k,424)*y(k,102) + .200_r8*rxt(k,380)*y(k,106) &
    1028             :                       + .500_r8*rxt(k,391)*y(k,109) + rxt(k,428)*y(k,115) + rxt(k,429) &
    1029             :                       *y(k,116) + rxt(k,201)*y(k,126) + rxt(k,183)*y(k,136) &
    1030             :                       + .800_r8*rxt(k,461)*y(k,144) + rxt(k,507)*y(k,153) &
    1031             :                       + .200_r8*rxt(k,501)*y(k,181) + .280_r8*rxt(k,469)*y(k,183) &
    1032   315224452 :                       + .380_r8*rxt(k,471)*y(k,185) + .630_r8*rxt(k,477)*y(k,187)
    1033   315224452 :          mat(k,453) = mat(k,453) + rxt(k,460)*y(k,124)
    1034   315224452 :          mat(k,822) = mat(k,822) + rxt(k,359)*y(k,124)
    1035   315224452 :          mat(k,1224) = mat(k,1224) + .300_r8*rxt(k,361)*y(k,201)
    1036   315224452 :          mat(k,1187) = mat(k,1187) + .900_r8*rxt(k,492)*y(k,124) + rxt(k,490)*y(k,201)
    1037   315224452 :          mat(k,1070) = mat(k,1070) + .800_r8*rxt(k,497)*y(k,124) + rxt(k,495)*y(k,201)
    1038   315224452 :          mat(k,760) = mat(k,760) + rxt(k,467)*y(k,124)
    1039             :          mat(k,1242) = mat(k,1242) + rxt(k,433)*y(k,124) + rxt(k,434)*y(k,126) &
    1040   315224452 :                       + rxt(k,430)*y(k,200) + .800_r8*rxt(k,431)*y(k,201)
    1041   315224452 :          mat(k,777) = mat(k,777) + rxt(k,473)*y(k,124)
    1042   325174377 :          mat(k,516) = mat(k,516) + rxt(k,476)*y(k,124)
    1043             :       end do
    1044     9949925 :       end subroutine nlnmat04
    1045     9949925 :       subroutine nlnmat05( avec_len, mat, y, rxt )
    1046             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    1047             :       implicit none
    1048             : !----------------------------------------------
    1049             : ! ... dummy arguments
    1050             : !----------------------------------------------
    1051             :       integer, intent(in) :: avec_len
    1052             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    1053             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    1054             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    1055             : !----------------------------------------------
    1056             : ! ... local variables
    1057             : !----------------------------------------------
    1058             :       integer :: k
    1059             : !----------------------------------------------
    1060             : ! ... complete matrix entries implicit species
    1061             : !----------------------------------------------
    1062   325174377 :       do k = 1,avec_len
    1063   315224452 :          mat(k,472) = -(rxt(k,187)*y(k,228))
    1064   315224452 :          mat(k,1733) = -rxt(k,187)*y(k,91)
    1065   315224452 :          mat(k,2296) = rxt(k,208)*y(k,125)
    1066   315224452 :          mat(k,1931) = rxt(k,208)*y(k,90)
    1067   315224452 :          mat(k,787) = -(rxt(k,265)*y(k,134) + (rxt(k,570) + rxt(k,575)) * y(k,85))
    1068   315224452 :          mat(k,2073) = -rxt(k,265)*y(k,92)
    1069   315224452 :          mat(k,1492) = -(rxt(k,570) + rxt(k,575)) * y(k,92)
    1070   315224452 :          mat(k,1559) = rxt(k,257)*y(k,90)
    1071   315224452 :          mat(k,2316) = rxt(k,257)*y(k,19)
    1072             :          mat(k,837) = -(rxt(k,236)*y(k,56) + rxt(k,237)*y(k,134) + rxt(k,238)*y(k,228) &
    1073   315224452 :                       + (rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,85))
    1074   315224452 :          mat(k,2139) = -rxt(k,236)*y(k,93)
    1075   315224452 :          mat(k,2076) = -rxt(k,237)*y(k,93)
    1076   315224452 :          mat(k,1770) = -rxt(k,238)*y(k,93)
    1077   315224452 :          mat(k,1493) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,93)
    1078   315224452 :          mat(k,1584) = rxt(k,225)*y(k,90)
    1079   315224452 :          mat(k,954) = rxt(k,230)*y(k,228)
    1080   315224452 :          mat(k,2320) = rxt(k,225)*y(k,59)
    1081   315224452 :          mat(k,1770) = mat(k,1770) + rxt(k,230)*y(k,60)
    1082   315224452 :          mat(k,1195) = -(rxt(k,371)*y(k,228))
    1083   315224452 :          mat(k,1796) = -rxt(k,371)*y(k,94)
    1084   315224452 :          mat(k,591) = .300_r8*rxt(k,416)*y(k,228)
    1085   315224452 :          mat(k,561) = .500_r8*rxt(k,417)*y(k,228)
    1086   315224452 :          mat(k,1894) = rxt(k,370)*y(k,204) + rxt(k,377)*y(k,213)
    1087   315224452 :          mat(k,577) = rxt(k,370)*y(k,124)
    1088   315224452 :          mat(k,1352) = rxt(k,377)*y(k,124)
    1089             :          mat(k,1796) = mat(k,1796) + .300_r8*rxt(k,416)*y(k,100) + .500_r8*rxt(k,417) &
    1090   315224452 :                       *y(k,101)
    1091   315224452 :          mat(k,221) = -(rxt(k,402)*y(k,228))
    1092   315224452 :          mat(k,1695) = -rxt(k,402)*y(k,95)
    1093   315224452 :          mat(k,1208) = -(rxt(k,356)*y(k,228))
    1094   315224452 :          mat(k,1797) = -rxt(k,356)*y(k,96)
    1095   315224452 :          mat(k,592) = .700_r8*rxt(k,416)*y(k,228)
    1096   315224452 :          mat(k,562) = .500_r8*rxt(k,417)*y(k,228)
    1097   315224452 :          mat(k,612) = .500_r8*rxt(k,391)*y(k,228)
    1098             :          mat(k,1895) = .050_r8*rxt(k,414)*y(k,209) + .220_r8*rxt(k,376)*y(k,213) &
    1099   315224452 :                       + .250_r8*rxt(k,433)*y(k,237)
    1100             :          mat(k,1634) = .050_r8*rxt(k,415)*y(k,209) + .220_r8*rxt(k,375)*y(k,213) &
    1101   315224452 :                       + .250_r8*rxt(k,434)*y(k,237)
    1102   315224452 :          mat(k,545) = .500_r8*rxt(k,360)*y(k,228)
    1103   315224452 :          mat(k,1418) = .220_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237)
    1104             :          mat(k,2392) = .230_r8*rxt(k,373)*y(k,213) + .200_r8*rxt(k,361)*y(k,232) &
    1105   315224452 :                       + .100_r8*rxt(k,431)*y(k,237)
    1106   315224452 :          mat(k,1327) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126)
    1107             :          mat(k,1353) = .220_r8*rxt(k,376)*y(k,124) + .220_r8*rxt(k,375)*y(k,126) &
    1108   315224452 :                       + .220_r8*rxt(k,372)*y(k,200) + .230_r8*rxt(k,373)*y(k,201)
    1109             :          mat(k,1797) = mat(k,1797) + .700_r8*rxt(k,416)*y(k,100) + .500_r8*rxt(k,417) &
    1110             :                       *y(k,101) + .500_r8*rxt(k,391)*y(k,109) + .500_r8*rxt(k,360) &
    1111   315224452 :                       *y(k,148)
    1112   315224452 :          mat(k,1216) = .200_r8*rxt(k,361)*y(k,201)
    1113             :          mat(k,1232) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) &
    1114   315224452 :                       + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201)
    1115   315224452 :          mat(k,326) = -(rxt(k,403)*y(k,228))
    1116   315224452 :          mat(k,1713) = -rxt(k,403)*y(k,97)
    1117   315224452 :          mat(k,1847) = .870_r8*rxt(k,414)*y(k,209)
    1118   315224452 :          mat(k,1611) = .950_r8*rxt(k,415)*y(k,209)
    1119   315224452 :          mat(k,1410) = rxt(k,410)*y(k,209)
    1120   315224452 :          mat(k,2372) = .750_r8*rxt(k,411)*y(k,209)
    1121             :          mat(k,1316) = .870_r8*rxt(k,414)*y(k,124) + .950_r8*rxt(k,415)*y(k,126) &
    1122   315224452 :                       + rxt(k,410)*y(k,200) + .750_r8*rxt(k,411)*y(k,201)
    1123   315224452 :          mat(k,133) = -(rxt(k,404)*y(k,228))
    1124   315224452 :          mat(k,1684) = -rxt(k,404)*y(k,98)
    1125   315224452 :          mat(k,710) = .600_r8*rxt(k,427)*y(k,228)
    1126   315224452 :          mat(k,1684) = mat(k,1684) + .600_r8*rxt(k,427)*y(k,103)
    1127             :          mat(k,876) = -(rxt(k,418)*y(k,126) + rxt(k,425)*y(k,136) + rxt(k,426) &
    1128   315224452 :                       *y(k,228))
    1129   315224452 :          mat(k,1614) = -rxt(k,418)*y(k,99)
    1130   315224452 :          mat(k,2189) = -rxt(k,425)*y(k,99)
    1131   315224452 :          mat(k,1771) = -rxt(k,426)*y(k,99)
    1132   315224452 :          mat(k,589) = -(rxt(k,416)*y(k,228))
    1133   315224452 :          mat(k,1746) = -rxt(k,416)*y(k,100)
    1134   315224452 :          mat(k,1861) = .080_r8*rxt(k,408)*y(k,208)
    1135   315224452 :          mat(k,1289) = .080_r8*rxt(k,408)*y(k,124)
    1136   315224452 :          mat(k,558) = -(rxt(k,417)*y(k,228))
    1137   315224452 :          mat(k,1743) = -rxt(k,417)*y(k,101)
    1138   315224452 :          mat(k,1859) = .080_r8*rxt(k,414)*y(k,209)
    1139   315224452 :          mat(k,1317) = .080_r8*rxt(k,414)*y(k,124)
    1140   315224452 :          mat(k,403) = -(rxt(k,424)*y(k,228))
    1141   315224452 :          mat(k,1723) = -rxt(k,424)*y(k,102)
    1142   315224452 :          mat(k,2285) = rxt(k,421)*y(k,210)
    1143   315224452 :          mat(k,1244) = rxt(k,421)*y(k,90)
    1144   315224452 :          mat(k,711) = -(rxt(k,427)*y(k,228))
    1145   315224452 :          mat(k,1759) = -rxt(k,427)*y(k,103)
    1146   315224452 :          mat(k,2310) = rxt(k,407)*y(k,208) + rxt(k,412)*y(k,209)
    1147   315224452 :          mat(k,1290) = rxt(k,407)*y(k,90)
    1148   315224452 :          mat(k,1319) = rxt(k,412)*y(k,90)
    1149   315224452 :          mat(k,76) = -(rxt(k,549)*y(k,228))
    1150   315224452 :          mat(k,1677) = -rxt(k,549)*y(k,104)
    1151   315224452 :          mat(k,1269) = -(rxt(k,378)*y(k,136) + rxt(k,379)*y(k,228))
    1152   315224452 :          mat(k,2209) = -rxt(k,378)*y(k,105)
    1153   315224452 :          mat(k,1801) = -rxt(k,379)*y(k,105)
    1154   315224452 :          mat(k,881) = .300_r8*rxt(k,425)*y(k,136)
    1155   315224452 :          mat(k,1899) = .360_r8*rxt(k,408)*y(k,208)
    1156   315224452 :          mat(k,1638) = .400_r8*rxt(k,409)*y(k,208)
    1157   315224452 :          mat(k,2209) = mat(k,2209) + .300_r8*rxt(k,425)*y(k,99)
    1158   315224452 :          mat(k,1421) = .390_r8*rxt(k,405)*y(k,208)
    1159   315224452 :          mat(k,2396) = .310_r8*rxt(k,406)*y(k,208)
    1160             :          mat(k,1297) = .360_r8*rxt(k,408)*y(k,124) + .400_r8*rxt(k,409)*y(k,126) &
    1161   315224452 :                       + .390_r8*rxt(k,405)*y(k,200) + .310_r8*rxt(k,406)*y(k,201)
    1162   315224452 :          mat(k,316) = -(rxt(k,380)*y(k,228))
    1163   315224452 :          mat(k,1711) = -rxt(k,380)*y(k,106)
    1164   315224452 :          mat(k,2278) = rxt(k,374)*y(k,213)
    1165   315224452 :          mat(k,1348) = rxt(k,374)*y(k,90)
    1166   315224452 :          mat(k,517) = -(rxt(k,389)*y(k,228))
    1167   315224452 :          mat(k,1738) = -rxt(k,389)*y(k,107)
    1168   315224452 :          mat(k,1857) = .800_r8*rxt(k,398)*y(k,192)
    1169   315224452 :          mat(k,1037) = .800_r8*rxt(k,398)*y(k,124)
    1170   315224452 :          mat(k,321) = -(rxt(k,390)*y(k,228))
    1171   315224452 :          mat(k,1712) = -rxt(k,390)*y(k,108)
    1172   315224452 :          mat(k,2279) = .800_r8*rxt(k,387)*y(k,217)
    1173   315224452 :          mat(k,697) = .800_r8*rxt(k,387)*y(k,90)
    1174   315224452 :          mat(k,611) = -(rxt(k,391)*y(k,228))
    1175   315224452 :          mat(k,1749) = -rxt(k,391)*y(k,109)
    1176   315224452 :          mat(k,1935) = rxt(k,394)*y(k,215)
    1177   315224452 :          mat(k,1392) = rxt(k,394)*y(k,125)
    1178             :          mat(k,1018) = -(rxt(k,482)*y(k,126) + rxt(k,483)*y(k,136) + rxt(k,484) &
    1179   315224452 :                       *y(k,228))
    1180   315224452 :          mat(k,1619) = -rxt(k,482)*y(k,110)
    1181   315224452 :          mat(k,2193) = -rxt(k,483)*y(k,110)
    1182   315224452 :          mat(k,1782) = -rxt(k,484)*y(k,110)
    1183   315224452 :          mat(k,1376) = -(rxt(k,392)*y(k,136) + rxt(k,393)*y(k,228))
    1184   315224452 :          mat(k,2214) = -rxt(k,392)*y(k,111)
    1185   315224452 :          mat(k,1806) = -rxt(k,393)*y(k,111)
    1186   315224452 :          mat(k,884) = .200_r8*rxt(k,425)*y(k,136)
    1187   315224452 :          mat(k,1904) = .560_r8*rxt(k,408)*y(k,208)
    1188   315224452 :          mat(k,1643) = .600_r8*rxt(k,409)*y(k,208)
    1189   315224452 :          mat(k,2214) = mat(k,2214) + .200_r8*rxt(k,425)*y(k,99)
    1190   315224452 :          mat(k,1426) = .610_r8*rxt(k,405)*y(k,208)
    1191   315224452 :          mat(k,2401) = .440_r8*rxt(k,406)*y(k,208)
    1192             :          mat(k,1301) = .560_r8*rxt(k,408)*y(k,124) + .600_r8*rxt(k,409)*y(k,126) &
    1193   315224452 :                       + .610_r8*rxt(k,405)*y(k,200) + .440_r8*rxt(k,406)*y(k,201)
    1194             :          mat(k,999) = -(rxt(k,190)*y(k,124) + (rxt(k,191) + rxt(k,192) + rxt(k,193) &
    1195             :                       ) * y(k,125) + rxt(k,194)*y(k,135) + rxt(k,202)*y(k,228) &
    1196   315224452 :                       + rxt(k,588)*y(k,227))
    1197   315224452 :          mat(k,1881) = -rxt(k,190)*y(k,112)
    1198   315224452 :          mat(k,1943) = -(rxt(k,191) + rxt(k,192) + rxt(k,193)) * y(k,112)
    1199   315224452 :          mat(k,1536) = -rxt(k,194)*y(k,112)
    1200   315224452 :          mat(k,1781) = -rxt(k,202)*y(k,112)
    1201   315224452 :          mat(k,855) = -rxt(k,588)*y(k,112)
    1202   315224452 :          mat(k,2082) = rxt(k,188)*y(k,219) + rxt(k,585)*y(k,222)
    1203   315224452 :          mat(k,1536) = mat(k,1536) + rxt(k,586)*y(k,222)
    1204   315224452 :          mat(k,866) = 1.100_r8*rxt(k,581)*y(k,220) + .200_r8*rxt(k,579)*y(k,221)
    1205   315224452 :          mat(k,530) = rxt(k,188)*y(k,134)
    1206   315224452 :          mat(k,681) = 1.100_r8*rxt(k,581)*y(k,203)
    1207   315224452 :          mat(k,847) = .200_r8*rxt(k,579)*y(k,203)
    1208   315224452 :          mat(k,506) = rxt(k,585)*y(k,134) + rxt(k,586)*y(k,135)
    1209   315224452 :          mat(k,256) = -((rxt(k,206) + rxt(k,207)) * y(k,224))
    1210   315224452 :          mat(k,2013) = -(rxt(k,206) + rxt(k,207)) * y(k,113)
    1211   315224452 :          mat(k,993) = rxt(k,191)*y(k,125)
    1212   315224452 :          mat(k,1928) = rxt(k,191)*y(k,112)
    1213   315224452 :          mat(k,1929) = rxt(k,209)*y(k,126)
    1214   315224452 :          mat(k,1609) = rxt(k,209)*y(k,125)
    1215   315224452 :          mat(k,427) = -(rxt(k,428)*y(k,228))
    1216   315224452 :          mat(k,1727) = -rxt(k,428)*y(k,115)
    1217   315224452 :          mat(k,2373) = .200_r8*rxt(k,420)*y(k,210)
    1218   315224452 :          mat(k,1245) = .200_r8*rxt(k,420)*y(k,201)
    1219   315224452 :          mat(k,1090) = -(rxt(k,429)*y(k,228))
    1220   315224452 :          mat(k,1788) = -rxt(k,429)*y(k,116)
    1221   315224452 :          mat(k,1887) = rxt(k,422)*y(k,210)
    1222   315224452 :          mat(k,1625) = rxt(k,423)*y(k,210)
    1223   315224452 :          mat(k,1415) = rxt(k,419)*y(k,210)
    1224   315224452 :          mat(k,2385) = .800_r8*rxt(k,420)*y(k,210)
    1225             :          mat(k,1249) = rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126) + rxt(k,419)*y(k,200) &
    1226   315224452 :                       + .800_r8*rxt(k,420)*y(k,201)
    1227   315224452 :          mat(k,98) = -(rxt(k,519)*y(k,228))
    1228   315224452 :          mat(k,1681) = -rxt(k,519)*y(k,120)
    1229             :          mat(k,1914) = -(rxt(k,190)*y(k,112) + rxt(k,199)*y(k,126) + rxt(k,203) &
    1230             :                       *y(k,90) + rxt(k,204)*y(k,136) + rxt(k,205)*y(k,134) + rxt(k,226) &
    1231             :                       *y(k,59) + rxt(k,258)*y(k,19) + rxt(k,301)*y(k,201) + rxt(k,309) &
    1232             :                       *y(k,207) + rxt(k,322)*y(k,197) + rxt(k,333)*y(k,200) + rxt(k,337) &
    1233             :                       *y(k,206) + rxt(k,350)*y(k,198) + rxt(k,359)*y(k,231) + rxt(k,363) &
    1234             :                       *y(k,232) + (rxt(k,369) + rxt(k,370)) * y(k,204) + (rxt(k,376) &
    1235             :                       + rxt(k,377)) * y(k,213) + rxt(k,385)*y(k,215) + rxt(k,388) &
    1236             :                       *y(k,217) + (rxt(k,398) + rxt(k,399)) * y(k,192) + rxt(k,408) &
    1237             :                       *y(k,208) + rxt(k,414)*y(k,209) + rxt(k,422)*y(k,210) + rxt(k,433) &
    1238             :                       *y(k,237) + rxt(k,437)*y(k,191) + rxt(k,440)*y(k,194) + rxt(k,445) &
    1239             :                       *y(k,196) + rxt(k,447)*y(k,199) + rxt(k,451)*y(k,202) + rxt(k,454) &
    1240             :                       *y(k,214) + rxt(k,457)*y(k,216) + rxt(k,460)*y(k,230) + rxt(k,467) &
    1241             :                       *y(k,235) + rxt(k,473)*y(k,238) + rxt(k,476)*y(k,240) + rxt(k,487) &
    1242             :                       *y(k,223) + rxt(k,492)*y(k,233) + rxt(k,497)*y(k,234) + rxt(k,590) &
    1243   315224452 :                       *y(k,227))
    1244   315224452 :          mat(k,1004) = -rxt(k,190)*y(k,124)
    1245   315224452 :          mat(k,1654) = -rxt(k,199)*y(k,124)
    1246   315224452 :          mat(k,2358) = -rxt(k,203)*y(k,124)
    1247   315224452 :          mat(k,2225) = -rxt(k,204)*y(k,124)
    1248   315224452 :          mat(k,2094) = -rxt(k,205)*y(k,124)
    1249   315224452 :          mat(k,1595) = -rxt(k,226)*y(k,124)
    1250   315224452 :          mat(k,1569) = -rxt(k,258)*y(k,124)
    1251   315224452 :          mat(k,2410) = -rxt(k,301)*y(k,124)
    1252   315224452 :          mat(k,443) = -rxt(k,309)*y(k,124)
    1253   315224452 :          mat(k,905) = -rxt(k,322)*y(k,124)
    1254   315224452 :          mat(k,1433) = -rxt(k,333)*y(k,124)
    1255   315224452 :          mat(k,801) = -rxt(k,337)*y(k,124)
    1256   315224452 :          mat(k,940) = -rxt(k,350)*y(k,124)
    1257   315224452 :          mat(k,819) = -rxt(k,359)*y(k,124)
    1258   315224452 :          mat(k,1221) = -rxt(k,363)*y(k,124)
    1259   315224452 :          mat(k,578) = -(rxt(k,369) + rxt(k,370)) * y(k,124)
    1260   315224452 :          mat(k,1362) = -(rxt(k,376) + rxt(k,377)) * y(k,124)
    1261   315224452 :          mat(k,1402) = -rxt(k,385)*y(k,124)
    1262   315224452 :          mat(k,702) = -rxt(k,388)*y(k,124)
    1263   315224452 :          mat(k,1048) = -(rxt(k,398) + rxt(k,399)) * y(k,124)
    1264   315224452 :          mat(k,1307) = -rxt(k,408)*y(k,124)
    1265   315224452 :          mat(k,1340) = -rxt(k,414)*y(k,124)
    1266   315224452 :          mat(k,1261) = -rxt(k,422)*y(k,124)
    1267   315224452 :          mat(k,1239) = -rxt(k,433)*y(k,124)
    1268   315224452 :          mat(k,526) = -rxt(k,437)*y(k,124)
    1269   315224452 :          mat(k,499) = -rxt(k,440)*y(k,124)
    1270   315224452 :          mat(k,438) = -rxt(k,445)*y(k,124)
    1271   315224452 :          mat(k,637) = -rxt(k,447)*y(k,124)
    1272   315224452 :          mat(k,782) = -rxt(k,451)*y(k,124)
    1273   315224452 :          mat(k,743) = -rxt(k,454)*y(k,124)
    1274   315224452 :          mat(k,915) = -rxt(k,457)*y(k,124)
    1275   315224452 :          mat(k,451) = -rxt(k,460)*y(k,124)
    1276   315224452 :          mat(k,758) = -rxt(k,467)*y(k,124)
    1277   315224452 :          mat(k,775) = -rxt(k,473)*y(k,124)
    1278   315224452 :          mat(k,514) = -rxt(k,476)*y(k,124)
    1279   315224452 :          mat(k,1112) = -rxt(k,487)*y(k,124)
    1280   315224452 :          mat(k,1183) = -rxt(k,492)*y(k,124)
    1281   315224452 :          mat(k,1066) = -rxt(k,497)*y(k,124)
    1282   315224452 :          mat(k,857) = -rxt(k,590)*y(k,124)
    1283             :          mat(k,1004) = mat(k,1004) + 2.000_r8*rxt(k,192)*y(k,125) + rxt(k,194) &
    1284   315224452 :                       *y(k,135) + rxt(k,202)*y(k,228)
    1285   315224452 :          mat(k,258) = 2.000_r8*rxt(k,206)*y(k,224)
    1286             :          mat(k,1959) = 2.000_r8*rxt(k,192)*y(k,112) + rxt(k,195)*y(k,134) + rxt(k,512) &
    1287   315224452 :                       *y(k,152)
    1288   315224452 :          mat(k,2094) = mat(k,2094) + rxt(k,195)*y(k,125)
    1289   315224452 :          mat(k,1546) = rxt(k,194)*y(k,112) + rxt(k,189)*y(k,219)
    1290   315224452 :          mat(k,1482) = rxt(k,512)*y(k,125)
    1291   315224452 :          mat(k,532) = rxt(k,189)*y(k,135)
    1292   315224452 :          mat(k,2028) = 2.000_r8*rxt(k,206)*y(k,113)
    1293   325174377 :          mat(k,1819) = rxt(k,202)*y(k,112)
    1294             :       end do
    1295     9949925 :       end subroutine nlnmat05
    1296     9949925 :       subroutine nlnmat06( avec_len, mat, y, rxt )
    1297             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    1298             :       implicit none
    1299             : !----------------------------------------------
    1300             : ! ... dummy arguments
    1301             : !----------------------------------------------
    1302             :       integer, intent(in) :: avec_len
    1303             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    1304             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    1305             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    1306             : !----------------------------------------------
    1307             : ! ... local variables
    1308             : !----------------------------------------------
    1309             :       integer :: k
    1310             : !----------------------------------------------
    1311             : ! ... complete matrix entries implicit species
    1312             : !----------------------------------------------
    1313   325174377 :       do k = 1,avec_len
    1314   315224452 :          mat(k,1960) = -((rxt(k,191) + rxt(k,192) + rxt(k,193)) * y(k,112) + (rxt(k,195) &
    1315             :                       + rxt(k,197)) * y(k,134) + rxt(k,196)*y(k,136) + rxt(k,208) &
    1316             :                       *y(k,90) + rxt(k,209)*y(k,126) + rxt(k,210)*y(k,228) + rxt(k,228) &
    1317             :                       *y(k,59) + rxt(k,259)*y(k,19) + rxt(k,344)*y(k,200) + rxt(k,394) &
    1318             :                       *y(k,215) + rxt(k,452)*y(k,202) + rxt(k,455)*y(k,214) + rxt(k,458) &
    1319             :                       *y(k,216) + rxt(k,462)*y(k,143) + rxt(k,465)*y(k,191) + rxt(k,512) &
    1320   315224452 :                       *y(k,152))
    1321   315224452 :          mat(k,1005) = -(rxt(k,191) + rxt(k,192) + rxt(k,193)) * y(k,125)
    1322   315224452 :          mat(k,2095) = -(rxt(k,195) + rxt(k,197)) * y(k,125)
    1323   315224452 :          mat(k,2226) = -rxt(k,196)*y(k,125)
    1324   315224452 :          mat(k,2359) = -rxt(k,208)*y(k,125)
    1325   315224452 :          mat(k,1655) = -rxt(k,209)*y(k,125)
    1326   315224452 :          mat(k,1820) = -rxt(k,210)*y(k,125)
    1327   315224452 :          mat(k,1596) = -rxt(k,228)*y(k,125)
    1328   315224452 :          mat(k,1570) = -rxt(k,259)*y(k,125)
    1329   315224452 :          mat(k,1434) = -rxt(k,344)*y(k,125)
    1330   315224452 :          mat(k,1403) = -rxt(k,394)*y(k,125)
    1331   315224452 :          mat(k,783) = -rxt(k,452)*y(k,125)
    1332   315224452 :          mat(k,744) = -rxt(k,455)*y(k,125)
    1333   315224452 :          mat(k,916) = -rxt(k,458)*y(k,125)
    1334   315224452 :          mat(k,470) = -rxt(k,462)*y(k,125)
    1335   315224452 :          mat(k,527) = -rxt(k,465)*y(k,125)
    1336   315224452 :          mat(k,1483) = -rxt(k,512)*y(k,125)
    1337   315224452 :          mat(k,649) = rxt(k,396)*y(k,228)
    1338   315224452 :          mat(k,361) = rxt(k,367)*y(k,126)
    1339   315224452 :          mat(k,1570) = mat(k,1570) + rxt(k,258)*y(k,124)
    1340   315224452 :          mat(k,1596) = mat(k,1596) + rxt(k,226)*y(k,124)
    1341   315224452 :          mat(k,2359) = mat(k,2359) + rxt(k,203)*y(k,124) + rxt(k,198)*y(k,126)
    1342   315224452 :          mat(k,476) = rxt(k,187)*y(k,228)
    1343   315224452 :          mat(k,594) = .700_r8*rxt(k,416)*y(k,228)
    1344             :          mat(k,1915) = rxt(k,258)*y(k,19) + rxt(k,226)*y(k,59) + rxt(k,203)*y(k,90) &
    1345             :                       + 2.000_r8*rxt(k,199)*y(k,126) + rxt(k,205)*y(k,134) &
    1346             :                       + rxt(k,204)*y(k,136) + rxt(k,437)*y(k,191) + rxt(k,398) &
    1347             :                       *y(k,192) + rxt(k,440)*y(k,194) + rxt(k,445)*y(k,196) &
    1348             :                       + rxt(k,322)*y(k,197) + rxt(k,350)*y(k,198) + rxt(k,447) &
    1349             :                       *y(k,199) + rxt(k,333)*y(k,200) + rxt(k,301)*y(k,201) &
    1350             :                       + rxt(k,451)*y(k,202) + rxt(k,369)*y(k,204) + rxt(k,337) &
    1351             :                       *y(k,206) + rxt(k,309)*y(k,207) + .920_r8*rxt(k,408)*y(k,208) &
    1352             :                       + .920_r8*rxt(k,414)*y(k,209) + rxt(k,422)*y(k,210) + rxt(k,376) &
    1353             :                       *y(k,213) + rxt(k,454)*y(k,214) + rxt(k,385)*y(k,215) &
    1354             :                       + rxt(k,457)*y(k,216) + rxt(k,388)*y(k,217) &
    1355             :                       + 1.600_r8*rxt(k,487)*y(k,223) + rxt(k,460)*y(k,230) &
    1356             :                       + rxt(k,359)*y(k,231) + rxt(k,363)*y(k,232) + .900_r8*rxt(k,492) &
    1357             :                       *y(k,233) + .800_r8*rxt(k,497)*y(k,234) + rxt(k,467)*y(k,235) &
    1358             :                       + rxt(k,433)*y(k,237) + rxt(k,473)*y(k,238) + rxt(k,476) &
    1359   315224452 :                       *y(k,240)
    1360             :          mat(k,1655) = mat(k,1655) + rxt(k,367)*y(k,16) + rxt(k,198)*y(k,90) &
    1361             :                       + 2.000_r8*rxt(k,199)*y(k,124) + rxt(k,200)*y(k,134) &
    1362             :                       + rxt(k,409)*y(k,208) + rxt(k,415)*y(k,209) + rxt(k,423) &
    1363             :                       *y(k,210) + rxt(k,375)*y(k,213) + rxt(k,386)*y(k,215) &
    1364             :                       + 2.000_r8*rxt(k,488)*y(k,223) + rxt(k,201)*y(k,228) &
    1365   315224452 :                       + rxt(k,434)*y(k,237)
    1366   315224452 :          mat(k,896) = rxt(k,357)*y(k,228)
    1367   315224452 :          mat(k,2095) = mat(k,2095) + rxt(k,205)*y(k,124) + rxt(k,200)*y(k,126)
    1368   315224452 :          mat(k,2226) = mat(k,2226) + rxt(k,204)*y(k,124)
    1369   315224452 :          mat(k,630) = rxt(k,494)*y(k,228)
    1370   315224452 :          mat(k,527) = mat(k,527) + rxt(k,437)*y(k,124)
    1371   315224452 :          mat(k,1049) = rxt(k,398)*y(k,124)
    1372   315224452 :          mat(k,500) = rxt(k,440)*y(k,124)
    1373   315224452 :          mat(k,439) = rxt(k,445)*y(k,124)
    1374   315224452 :          mat(k,906) = rxt(k,322)*y(k,124)
    1375   315224452 :          mat(k,941) = rxt(k,350)*y(k,124)
    1376   315224452 :          mat(k,638) = rxt(k,447)*y(k,124)
    1377   315224452 :          mat(k,1434) = mat(k,1434) + rxt(k,333)*y(k,124)
    1378   315224452 :          mat(k,2411) = rxt(k,301)*y(k,124) + .500_r8*rxt(k,485)*y(k,223)
    1379   315224452 :          mat(k,783) = mat(k,783) + rxt(k,451)*y(k,124)
    1380   315224452 :          mat(k,579) = rxt(k,369)*y(k,124)
    1381   315224452 :          mat(k,802) = rxt(k,337)*y(k,124)
    1382   315224452 :          mat(k,444) = rxt(k,309)*y(k,124)
    1383   315224452 :          mat(k,1308) = .920_r8*rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126)
    1384   315224452 :          mat(k,1341) = .920_r8*rxt(k,414)*y(k,124) + rxt(k,415)*y(k,126)
    1385   315224452 :          mat(k,1262) = rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126)
    1386   315224452 :          mat(k,1363) = rxt(k,376)*y(k,124) + rxt(k,375)*y(k,126)
    1387   315224452 :          mat(k,744) = mat(k,744) + rxt(k,454)*y(k,124)
    1388   315224452 :          mat(k,1403) = mat(k,1403) + rxt(k,385)*y(k,124) + rxt(k,386)*y(k,126)
    1389   315224452 :          mat(k,916) = mat(k,916) + rxt(k,457)*y(k,124)
    1390   315224452 :          mat(k,703) = rxt(k,388)*y(k,124)
    1391             :          mat(k,1113) = 1.600_r8*rxt(k,487)*y(k,124) + 2.000_r8*rxt(k,488)*y(k,126) &
    1392   315224452 :                       + .500_r8*rxt(k,485)*y(k,201)
    1393             :          mat(k,1820) = mat(k,1820) + rxt(k,396)*y(k,1) + rxt(k,187)*y(k,91) &
    1394             :                       + .700_r8*rxt(k,416)*y(k,100) + rxt(k,201)*y(k,126) + rxt(k,357) &
    1395   315224452 :                       *y(k,127) + rxt(k,494)*y(k,178)
    1396   315224452 :          mat(k,452) = rxt(k,460)*y(k,124)
    1397   315224452 :          mat(k,820) = rxt(k,359)*y(k,124)
    1398   315224452 :          mat(k,1222) = rxt(k,363)*y(k,124)
    1399   315224452 :          mat(k,1184) = .900_r8*rxt(k,492)*y(k,124)
    1400   315224452 :          mat(k,1067) = .800_r8*rxt(k,497)*y(k,124)
    1401   315224452 :          mat(k,759) = rxt(k,467)*y(k,124)
    1402   315224452 :          mat(k,1240) = rxt(k,433)*y(k,124) + rxt(k,434)*y(k,126)
    1403   315224452 :          mat(k,776) = rxt(k,473)*y(k,124)
    1404   315224452 :          mat(k,515) = rxt(k,476)*y(k,124)
    1405             :          mat(k,1652) = -(rxt(k,198)*y(k,90) + rxt(k,199)*y(k,124) + rxt(k,200) &
    1406             :                       *y(k,134) + rxt(k,201)*y(k,228) + rxt(k,209)*y(k,125) + rxt(k,295) &
    1407             :                       *y(k,42) + rxt(k,327)*y(k,45) + rxt(k,346)*y(k,29) + rxt(k,353) &
    1408             :                       *y(k,49) + rxt(k,367)*y(k,16) + rxt(k,375)*y(k,213) + rxt(k,386) &
    1409             :                       *y(k,215) + rxt(k,409)*y(k,208) + rxt(k,415)*y(k,209) + rxt(k,418) &
    1410             :                       *y(k,99) + rxt(k,423)*y(k,210) + rxt(k,434)*y(k,237) + rxt(k,479) &
    1411             :                       *y(k,6) + rxt(k,482)*y(k,110) + rxt(k,488)*y(k,223) + rxt(k,499) &
    1412   315224452 :                       *y(k,180) + rxt(k,502)*y(k,67))
    1413   315224452 :          mat(k,2356) = -rxt(k,198)*y(k,126)
    1414   315224452 :          mat(k,1912) = -rxt(k,199)*y(k,126)
    1415   315224452 :          mat(k,2092) = -rxt(k,200)*y(k,126)
    1416   315224452 :          mat(k,1817) = -rxt(k,201)*y(k,126)
    1417   315224452 :          mat(k,1957) = -rxt(k,209)*y(k,126)
    1418   315224452 :          mat(k,1983) = -rxt(k,295)*y(k,126)
    1419   315224452 :          mat(k,1154) = -rxt(k,327)*y(k,126)
    1420   315224452 :          mat(k,1141) = -rxt(k,346)*y(k,126)
    1421   315224452 :          mat(k,1284) = -rxt(k,353)*y(k,126)
    1422   315224452 :          mat(k,359) = -rxt(k,367)*y(k,126)
    1423   315224452 :          mat(k,1360) = -rxt(k,375)*y(k,126)
    1424   315224452 :          mat(k,1400) = -rxt(k,386)*y(k,126)
    1425   315224452 :          mat(k,1305) = -rxt(k,409)*y(k,126)
    1426   315224452 :          mat(k,1338) = -rxt(k,415)*y(k,126)
    1427   315224452 :          mat(k,886) = -rxt(k,418)*y(k,126)
    1428   315224452 :          mat(k,1259) = -rxt(k,423)*y(k,126)
    1429   315224452 :          mat(k,1237) = -rxt(k,434)*y(k,126)
    1430   315224452 :          mat(k,987) = -rxt(k,479)*y(k,126)
    1431   315224452 :          mat(k,1031) = -rxt(k,482)*y(k,126)
    1432   315224452 :          mat(k,1110) = -rxt(k,488)*y(k,126)
    1433   315224452 :          mat(k,1077) = -rxt(k,499)*y(k,126)
    1434   315224452 :          mat(k,312) = -rxt(k,502)*y(k,126)
    1435   315224452 :          mat(k,570) = rxt(k,260)*y(k,134)
    1436   315224452 :          mat(k,2159) = rxt(k,227)*y(k,60)
    1437   315224452 :          mat(k,958) = rxt(k,227)*y(k,56) + rxt(k,229)*y(k,134) + rxt(k,230)*y(k,228)
    1438   315224452 :          mat(k,927) = rxt(k,274)*y(k,89)
    1439   315224452 :          mat(k,2049) = rxt(k,274)*y(k,73) + rxt(k,211)*y(k,228)
    1440   315224452 :          mat(k,615) = .500_r8*rxt(k,391)*y(k,228)
    1441   315224452 :          mat(k,1957) = mat(k,1957) + rxt(k,197)*y(k,134) + rxt(k,196)*y(k,136)
    1442             :          mat(k,2092) = mat(k,2092) + rxt(k,260)*y(k,20) + rxt(k,229)*y(k,60) &
    1443   315224452 :                       + rxt(k,197)*y(k,125)
    1444   315224452 :          mat(k,2223) = rxt(k,196)*y(k,125)
    1445   315224452 :          mat(k,537) = rxt(k,342)*y(k,228)
    1446             :          mat(k,1817) = mat(k,1817) + rxt(k,230)*y(k,60) + rxt(k,211)*y(k,89) &
    1447   315224452 :                       + .500_r8*rxt(k,391)*y(k,109) + rxt(k,342)*y(k,141)
    1448   315224452 :          mat(k,892) = -(rxt(k,357)*y(k,228))
    1449   315224452 :          mat(k,1772) = -rxt(k,357)*y(k,127)
    1450   315224452 :          mat(k,1131) = rxt(k,346)*y(k,126)
    1451   315224452 :          mat(k,559) = .500_r8*rxt(k,417)*y(k,228)
    1452   315224452 :          mat(k,405) = rxt(k,424)*y(k,228)
    1453   315224452 :          mat(k,428) = rxt(k,428)*y(k,228)
    1454   315224452 :          mat(k,1087) = rxt(k,429)*y(k,228)
    1455   315224452 :          mat(k,1615) = rxt(k,346)*y(k,29)
    1456             :          mat(k,1772) = mat(k,1772) + .500_r8*rxt(k,417)*y(k,101) + rxt(k,424)*y(k,102) &
    1457   315224452 :                       + rxt(k,428)*y(k,115) + rxt(k,429)*y(k,116)
    1458   315224452 :          mat(k,391) = -(rxt(k,489)*y(k,228))
    1459   315224452 :          mat(k,1721) = -rxt(k,489)*y(k,128)
    1460   315224452 :          mat(k,2283) = rxt(k,486)*y(k,223)
    1461   315224452 :          mat(k,1102) = rxt(k,486)*y(k,90)
    1462             :          mat(k,2099) = -(rxt(k,167)*y(k,136) + 4._r8*rxt(k,168)*y(k,134) + rxt(k,169) &
    1463             :                       *y(k,135) + rxt(k,170)*y(k,77) + rxt(k,171)*y(k,79) + rxt(k,176) &
    1464             :                       *y(k,90) + rxt(k,182)*y(k,228) + (rxt(k,195) + rxt(k,197) &
    1465             :                       ) * y(k,125) + rxt(k,200)*y(k,126) + rxt(k,205)*y(k,124) &
    1466             :                       + rxt(k,229)*y(k,60) + rxt(k,231)*y(k,59) + rxt(k,234)*y(k,85) &
    1467             :                       + rxt(k,237)*y(k,93) + rxt(k,260)*y(k,20) + rxt(k,261)*y(k,19) &
    1468             :                       + rxt(k,263)*y(k,81) + rxt(k,265)*y(k,92) + rxt(k,296)*y(k,42) &
    1469             :                       + rxt(k,504)*y(k,139) + (rxt(k,583) + rxt(k,584)) * y(k,220) &
    1470   315224452 :                       + rxt(k,585)*y(k,222))
    1471   315224452 :          mat(k,2230) = -rxt(k,167)*y(k,134)
    1472   315224452 :          mat(k,1550) = -rxt(k,169)*y(k,134)
    1473   315224452 :          mat(k,1467) = -rxt(k,170)*y(k,134)
    1474   315224452 :          mat(k,585) = -rxt(k,171)*y(k,134)
    1475   315224452 :          mat(k,2363) = -rxt(k,176)*y(k,134)
    1476   315224452 :          mat(k,1824) = -rxt(k,182)*y(k,134)
    1477   315224452 :          mat(k,1964) = -(rxt(k,195) + rxt(k,197)) * y(k,134)
    1478   315224452 :          mat(k,1659) = -rxt(k,200)*y(k,134)
    1479   315224452 :          mat(k,1919) = -rxt(k,205)*y(k,134)
    1480   315224452 :          mat(k,962) = -rxt(k,229)*y(k,134)
    1481   315224452 :          mat(k,1600) = -rxt(k,231)*y(k,134)
    1482   315224452 :          mat(k,1504) = -rxt(k,234)*y(k,134)
    1483   315224452 :          mat(k,841) = -rxt(k,237)*y(k,134)
    1484   315224452 :          mat(k,573) = -rxt(k,260)*y(k,134)
    1485   315224452 :          mat(k,1574) = -rxt(k,261)*y(k,134)
    1486   315224452 :          mat(k,833) = -rxt(k,263)*y(k,134)
    1487   315224452 :          mat(k,792) = -rxt(k,265)*y(k,134)
    1488   315224452 :          mat(k,1990) = -rxt(k,296)*y(k,134)
    1489   315224452 :          mat(k,369) = -rxt(k,504)*y(k,134)
    1490   315224452 :          mat(k,685) = -(rxt(k,583) + rxt(k,584)) * y(k,134)
    1491   315224452 :          mat(k,508) = -rxt(k,585)*y(k,134)
    1492   315224452 :          mat(k,2120) = rxt(k,174)*y(k,90)
    1493   315224452 :          mat(k,2363) = mat(k,2363) + rxt(k,174)*y(k,76)
    1494             :          mat(k,1007) = rxt(k,190)*y(k,124) + rxt(k,191)*y(k,125) + rxt(k,194)*y(k,135) &
    1495   315224452 :                       + rxt(k,588)*y(k,227)
    1496   315224452 :          mat(k,1919) = mat(k,1919) + rxt(k,190)*y(k,112)
    1497   315224452 :          mat(k,1964) = mat(k,1964) + rxt(k,191)*y(k,112)
    1498             :          mat(k,1550) = mat(k,1550) + rxt(k,194)*y(k,112) + rxt(k,506)*y(k,150) &
    1499             :                       + rxt(k,513)*y(k,152) + rxt(k,587)*y(k,222) + (rxt(k,156) &
    1500   315224452 :                        +rxt(k,157))*y(k,224) + rxt(k,593)*y(k,229)
    1501   315224452 :          mat(k,722) = rxt(k,506)*y(k,135)
    1502   315224452 :          mat(k,1484) = rxt(k,513)*y(k,135)
    1503   315224452 :          mat(k,872) = rxt(k,579)*y(k,221) + 1.150_r8*rxt(k,580)*y(k,227)
    1504   315224452 :          mat(k,851) = rxt(k,579)*y(k,203)
    1505   315224452 :          mat(k,508) = mat(k,508) + rxt(k,587)*y(k,135)
    1506   315224452 :          mat(k,2033) = (rxt(k,156)+rxt(k,157))*y(k,135)
    1507   315224452 :          mat(k,859) = rxt(k,588)*y(k,112) + 1.150_r8*rxt(k,580)*y(k,203)
    1508   315224452 :          mat(k,1824) = mat(k,1824) + 2.000_r8*rxt(k,184)*y(k,228)
    1509   315224452 :          mat(k,812) = rxt(k,593)*y(k,135)
    1510             :          mat(k,1542) = -(rxt(k,156)*y(k,224) + rxt(k,161)*y(k,225) + rxt(k,169) &
    1511             :                       *y(k,134) + rxt(k,175)*y(k,76) + rxt(k,189)*y(k,219) + rxt(k,194) &
    1512             :                       *y(k,112) + rxt(k,339)*y(k,205) + rxt(k,506)*y(k,150) + rxt(k,513) &
    1513             :                       *y(k,152) + rxt(k,582)*y(k,220) + (rxt(k,586) + rxt(k,587) &
    1514   315224452 :                       ) * y(k,222) + rxt(k,593)*y(k,229))
    1515   315224452 :          mat(k,2023) = -rxt(k,156)*y(k,135)
    1516   315224452 :          mat(k,178) = -rxt(k,161)*y(k,135)
    1517   315224452 :          mat(k,2089) = -rxt(k,169)*y(k,135)
    1518   315224452 :          mat(k,2110) = -rxt(k,175)*y(k,135)
    1519   315224452 :          mat(k,531) = -rxt(k,189)*y(k,135)
    1520   315224452 :          mat(k,1002) = -rxt(k,194)*y(k,135)
    1521   315224452 :          mat(k,462) = -rxt(k,339)*y(k,135)
    1522   315224452 :          mat(k,720) = -rxt(k,506)*y(k,135)
    1523   315224452 :          mat(k,1478) = -rxt(k,513)*y(k,135)
    1524   315224452 :          mat(k,682) = -rxt(k,582)*y(k,135)
    1525   315224452 :          mat(k,507) = -(rxt(k,586) + rxt(k,587)) * y(k,135)
    1526   315224452 :          mat(k,811) = -rxt(k,593)*y(k,135)
    1527   315224452 :          mat(k,1512) = rxt(k,251)*y(k,90) + rxt(k,252)*y(k,136)
    1528             :          mat(k,1564) = 2.000_r8*rxt(k,253)*y(k,19) + (rxt(k,255)+rxt(k,256))*y(k,59) &
    1529   315224452 :                       + rxt(k,257)*y(k,90) + rxt(k,261)*y(k,134)
    1530   315224452 :          mat(k,2156) = rxt(k,218)*y(k,90) + rxt(k,220)*y(k,136)
    1531             :          mat(k,1590) = (rxt(k,255)+rxt(k,256))*y(k,19) + (2.000_r8*rxt(k,222) &
    1532             :                        +2.000_r8*rxt(k,223))*y(k,59) + rxt(k,225)*y(k,90) + rxt(k,231) &
    1533   315224452 :                       *y(k,134) + rxt(k,233)*y(k,228)
    1534   315224452 :          mat(k,2110) = mat(k,2110) + rxt(k,172)*y(k,90) + rxt(k,178)*y(k,136)
    1535             :          mat(k,2353) = rxt(k,251)*y(k,17) + rxt(k,257)*y(k,19) + rxt(k,218)*y(k,56) &
    1536             :                       + rxt(k,225)*y(k,59) + rxt(k,172)*y(k,76) + 2.000_r8*rxt(k,186) &
    1537             :                       *y(k,90) + rxt(k,198)*y(k,126) + rxt(k,176)*y(k,134) &
    1538             :                       + 2.000_r8*rxt(k,177)*y(k,136) + rxt(k,321)*y(k,197) &
    1539             :                       + rxt(k,349)*y(k,198) + rxt(k,300)*y(k,201) + rxt(k,181) &
    1540   315224452 :                       *y(k,228) + rxt(k,358)*y(k,231)
    1541   315224452 :          mat(k,473) = rxt(k,187)*y(k,228)
    1542   315224452 :          mat(k,1002) = mat(k,1002) + rxt(k,193)*y(k,125)
    1543   315224452 :          mat(k,257) = rxt(k,207)*y(k,224)
    1544   315224452 :          mat(k,1909) = rxt(k,204)*y(k,136) + rxt(k,590)*y(k,227)
    1545   315224452 :          mat(k,1954) = rxt(k,193)*y(k,112) + rxt(k,195)*y(k,134) + rxt(k,196)*y(k,136)
    1546   315224452 :          mat(k,1649) = rxt(k,198)*y(k,90) + rxt(k,200)*y(k,134)
    1547             :          mat(k,2089) = mat(k,2089) + rxt(k,261)*y(k,19) + rxt(k,231)*y(k,59) &
    1548             :                       + rxt(k,176)*y(k,90) + rxt(k,195)*y(k,125) + rxt(k,200)*y(k,126) &
    1549             :                       + 2.000_r8*rxt(k,168)*y(k,134) + 2.000_r8*rxt(k,167)*y(k,136) &
    1550   315224452 :                       + rxt(k,160)*y(k,225) + rxt(k,182)*y(k,228)
    1551   315224452 :          mat(k,1542) = mat(k,1542) + 2.000_r8*rxt(k,161)*y(k,225)
    1552             :          mat(k,2220) = rxt(k,252)*y(k,17) + rxt(k,220)*y(k,56) + rxt(k,178)*y(k,76) &
    1553             :                       + 2.000_r8*rxt(k,177)*y(k,90) + rxt(k,204)*y(k,124) + rxt(k,196) &
    1554             :                       *y(k,125) + 2.000_r8*rxt(k,167)*y(k,134) + rxt(k,508)*y(k,150) &
    1555             :                       + rxt(k,514)*y(k,152) + 2.000_r8*rxt(k,158)*y(k,224) &
    1556   315224452 :                       + rxt(k,183)*y(k,228)
    1557   315224452 :          mat(k,720) = mat(k,720) + rxt(k,508)*y(k,136)
    1558   315224452 :          mat(k,1478) = mat(k,1478) + rxt(k,514)*y(k,136)
    1559   315224452 :          mat(k,903) = rxt(k,321)*y(k,90)
    1560   315224452 :          mat(k,938) = rxt(k,349)*y(k,90)
    1561   315224452 :          mat(k,2405) = rxt(k,300)*y(k,90)
    1562             :          mat(k,2023) = mat(k,2023) + rxt(k,207)*y(k,113) + 2.000_r8*rxt(k,158) &
    1563   315224452 :                       *y(k,136)
    1564   315224452 :          mat(k,178) = mat(k,178) + rxt(k,160)*y(k,134) + 2.000_r8*rxt(k,161)*y(k,135)
    1565   315224452 :          mat(k,856) = rxt(k,590)*y(k,124)
    1566             :          mat(k,1814) = rxt(k,233)*y(k,59) + rxt(k,181)*y(k,90) + rxt(k,187)*y(k,91) &
    1567   315224452 :                       + rxt(k,182)*y(k,134) + rxt(k,183)*y(k,136)
    1568   325174377 :          mat(k,817) = rxt(k,358)*y(k,90)
    1569             :       end do
    1570     9949925 :       end subroutine nlnmat06
    1571     9949925 :       subroutine nlnmat07( avec_len, mat, y, rxt )
    1572             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    1573             :       implicit none
    1574             : !----------------------------------------------
    1575             : ! ... dummy arguments
    1576             : !----------------------------------------------
    1577             :       integer, intent(in) :: avec_len
    1578             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    1579             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    1580             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    1581             : !----------------------------------------------
    1582             : ! ... local variables
    1583             : !----------------------------------------------
    1584             :       integer :: k
    1585             : !----------------------------------------------
    1586             : ! ... complete matrix entries implicit species
    1587             : !----------------------------------------------
    1588   325174377 :       do k = 1,avec_len
    1589   315224452 :          mat(k,2233) = -(rxt(k,158)*y(k,224) + rxt(k,167)*y(k,134) + rxt(k,177) &
    1590             :                       *y(k,90) + rxt(k,178)*y(k,76) + rxt(k,183)*y(k,228) + rxt(k,196) &
    1591             :                       *y(k,125) + rxt(k,204)*y(k,124) + rxt(k,220)*y(k,56) + rxt(k,252) &
    1592             :                       *y(k,17) + rxt(k,318)*y(k,25) + rxt(k,347)*y(k,29) + rxt(k,378) &
    1593             :                       *y(k,105) + rxt(k,392)*y(k,111) + rxt(k,425)*y(k,99) + rxt(k,463) &
    1594             :                       *y(k,143) + rxt(k,480)*y(k,6) + rxt(k,483)*y(k,110) + rxt(k,508) &
    1595   315224452 :                       *y(k,150) + rxt(k,514)*y(k,152))
    1596   315224452 :          mat(k,2036) = -rxt(k,158)*y(k,136)
    1597   315224452 :          mat(k,2102) = -rxt(k,167)*y(k,136)
    1598   315224452 :          mat(k,2366) = -rxt(k,177)*y(k,136)
    1599   315224452 :          mat(k,2123) = -rxt(k,178)*y(k,136)
    1600   315224452 :          mat(k,1827) = -rxt(k,183)*y(k,136)
    1601   315224452 :          mat(k,1967) = -rxt(k,196)*y(k,136)
    1602   315224452 :          mat(k,1922) = -rxt(k,204)*y(k,136)
    1603   315224452 :          mat(k,2169) = -rxt(k,220)*y(k,136)
    1604   315224452 :          mat(k,1521) = -rxt(k,252)*y(k,136)
    1605   315224452 :          mat(k,556) = -rxt(k,318)*y(k,136)
    1606   315224452 :          mat(k,1146) = -rxt(k,347)*y(k,136)
    1607   315224452 :          mat(k,1277) = -rxt(k,378)*y(k,136)
    1608   315224452 :          mat(k,1387) = -rxt(k,392)*y(k,136)
    1609   315224452 :          mat(k,889) = -rxt(k,425)*y(k,136)
    1610   315224452 :          mat(k,471) = -rxt(k,463)*y(k,136)
    1611   315224452 :          mat(k,990) = -rxt(k,480)*y(k,136)
    1612   315224452 :          mat(k,1034) = -rxt(k,483)*y(k,136)
    1613   315224452 :          mat(k,724) = -rxt(k,508)*y(k,136)
    1614   315224452 :          mat(k,1487) = -rxt(k,514)*y(k,136)
    1615             :          mat(k,2366) = mat(k,2366) + .150_r8*rxt(k,332)*y(k,200) + .150_r8*rxt(k,383) &
    1616   315224452 :                       *y(k,215)
    1617   315224452 :          mat(k,2102) = mat(k,2102) + rxt(k,169)*y(k,135)
    1618   315224452 :          mat(k,1553) = rxt(k,169)*y(k,134)
    1619   315224452 :          mat(k,1437) = .150_r8*rxt(k,332)*y(k,90)
    1620   315224452 :          mat(k,1406) = .150_r8*rxt(k,383)*y(k,90)
    1621   315224452 :          mat(k,334) = -(rxt(k,515)*y(k,152))
    1622   315224452 :          mat(k,1473) = -rxt(k,515)*y(k,138)
    1623   315224452 :          mat(k,1557) = rxt(k,254)*y(k,59)
    1624   315224452 :          mat(k,1583) = rxt(k,254)*y(k,19) + 2.000_r8*rxt(k,224)*y(k,59)
    1625   315224452 :          mat(k,363) = -(rxt(k,504)*y(k,134) + rxt(k,505)*y(k,228))
    1626   315224452 :          mat(k,2066) = -rxt(k,504)*y(k,139)
    1627   315224452 :          mat(k,1718) = -rxt(k,505)*y(k,139)
    1628   315224452 :          mat(k,1190) = rxt(k,371)*y(k,228)
    1629   315224452 :          mat(k,1844) = .100_r8*rxt(k,492)*y(k,233)
    1630   315224452 :          mat(k,1697) = rxt(k,371)*y(k,94)
    1631   315224452 :          mat(k,1171) = .100_r8*rxt(k,492)*y(k,124)
    1632   315224452 :          mat(k,534) = -(rxt(k,342)*y(k,228))
    1633   315224452 :          mat(k,1740) = -rxt(k,342)*y(k,141)
    1634   315224452 :          mat(k,1933) = rxt(k,344)*y(k,200)
    1635   315224452 :          mat(k,1411) = rxt(k,344)*y(k,125)
    1636   315224452 :          mat(k,1927) = rxt(k,465)*y(k,191)
    1637   315224452 :          mat(k,522) = rxt(k,465)*y(k,125)
    1638   315224452 :          mat(k,468) = -(rxt(k,462)*y(k,125) + rxt(k,463)*y(k,136))
    1639   315224452 :          mat(k,1930) = -rxt(k,462)*y(k,143)
    1640   315224452 :          mat(k,2183) = -rxt(k,463)*y(k,143)
    1641   315224452 :          mat(k,196) = .070_r8*rxt(k,449)*y(k,228)
    1642   315224452 :          mat(k,1854) = rxt(k,447)*y(k,199)
    1643   315224452 :          mat(k,172) = .060_r8*rxt(k,461)*y(k,228)
    1644   315224452 :          mat(k,217) = .070_r8*rxt(k,477)*y(k,228)
    1645   315224452 :          mat(k,634) = rxt(k,447)*y(k,124)
    1646             :          mat(k,1732) = .070_r8*rxt(k,449)*y(k,66) + .060_r8*rxt(k,461)*y(k,144) &
    1647   315224452 :                       + .070_r8*rxt(k,477)*y(k,187)
    1648   315224452 :          mat(k,170) = -(rxt(k,461)*y(k,228))
    1649   315224452 :          mat(k,1687) = -rxt(k,461)*y(k,144)
    1650   315224452 :          mat(k,162) = .530_r8*rxt(k,438)*y(k,228)
    1651   315224452 :          mat(k,1687) = mat(k,1687) + .530_r8*rxt(k,438)*y(k,7)
    1652   315224452 :          mat(k,339) = -(rxt(k,464)*y(k,228))
    1653   315224452 :          mat(k,1714) = -rxt(k,464)*y(k,145)
    1654   315224452 :          mat(k,2280) = rxt(k,459)*y(k,230)
    1655   315224452 :          mat(k,447) = rxt(k,459)*y(k,90)
    1656   315224452 :          mat(k,542) = -(rxt(k,360)*y(k,228))
    1657   315224452 :          mat(k,1741) = -rxt(k,360)*y(k,148)
    1658   315224452 :          mat(k,2301) = rxt(k,358)*y(k,231)
    1659   315224452 :          mat(k,813) = rxt(k,358)*y(k,90)
    1660   315224452 :          mat(k,397) = -(rxt(k,364)*y(k,228))
    1661   315224452 :          mat(k,1722) = -rxt(k,364)*y(k,149)
    1662   315224452 :          mat(k,2284) = .850_r8*rxt(k,362)*y(k,232)
    1663   315224452 :          mat(k,1214) = .850_r8*rxt(k,362)*y(k,90)
    1664             :          mat(k,718) = -(rxt(k,506)*y(k,135) + rxt(k,508)*y(k,136) + rxt(k,511) &
    1665   315224452 :                       *y(k,228))
    1666   315224452 :          mat(k,1530) = -rxt(k,506)*y(k,150)
    1667   315224452 :          mat(k,2187) = -rxt(k,508)*y(k,150)
    1668   315224452 :          mat(k,1760) = -rxt(k,511)*y(k,150)
    1669             :          mat(k,1476) = -(rxt(k,509)*y(k,19) + rxt(k,510)*y(k,59) + rxt(k,512)*y(k,125) &
    1670             :                       + rxt(k,513)*y(k,135) + rxt(k,514)*y(k,136) + rxt(k,515) &
    1671   315224452 :                       *y(k,138) + rxt(k,516)*y(k,228))
    1672   315224452 :          mat(k,1561) = -rxt(k,509)*y(k,152)
    1673   315224452 :          mat(k,1587) = -rxt(k,510)*y(k,152)
    1674   315224452 :          mat(k,1951) = -rxt(k,512)*y(k,152)
    1675   315224452 :          mat(k,1540) = -rxt(k,513)*y(k,152)
    1676   315224452 :          mat(k,2218) = -rxt(k,514)*y(k,152)
    1677   315224452 :          mat(k,336) = -rxt(k,515)*y(k,152)
    1678   315224452 :          mat(k,1811) = -rxt(k,516)*y(k,152)
    1679   315224452 :          mat(k,2086) = rxt(k,504)*y(k,139)
    1680   315224452 :          mat(k,1540) = mat(k,1540) + rxt(k,506)*y(k,150)
    1681   315224452 :          mat(k,2218) = mat(k,2218) + rxt(k,508)*y(k,150)
    1682   315224452 :          mat(k,367) = rxt(k,504)*y(k,134)
    1683   315224452 :          mat(k,719) = rxt(k,506)*y(k,135) + rxt(k,508)*y(k,136) + rxt(k,511)*y(k,228)
    1684   315224452 :          mat(k,1811) = mat(k,1811) + rxt(k,511)*y(k,150)
    1685   315224452 :          mat(k,947) = -(rxt(k,507)*y(k,228))
    1686   315224452 :          mat(k,1778) = -rxt(k,507)*y(k,153)
    1687   315224452 :          mat(k,1560) = rxt(k,509)*y(k,152)
    1688   315224452 :          mat(k,1585) = rxt(k,510)*y(k,152)
    1689   315224452 :          mat(k,311) = rxt(k,502)*y(k,126) + (rxt(k,503)+.500_r8*rxt(k,517))*y(k,228)
    1690   315224452 :          mat(k,1941) = rxt(k,512)*y(k,152)
    1691   315224452 :          mat(k,1617) = rxt(k,502)*y(k,67)
    1692   315224452 :          mat(k,1535) = rxt(k,513)*y(k,152)
    1693   315224452 :          mat(k,2191) = rxt(k,514)*y(k,152)
    1694   315224452 :          mat(k,335) = rxt(k,515)*y(k,152)
    1695   315224452 :          mat(k,365) = rxt(k,505)*y(k,228)
    1696             :          mat(k,1475) = rxt(k,509)*y(k,19) + rxt(k,510)*y(k,59) + rxt(k,512)*y(k,125) &
    1697             :                       + rxt(k,513)*y(k,135) + rxt(k,514)*y(k,136) + rxt(k,515) &
    1698   315224452 :                       *y(k,138) + rxt(k,516)*y(k,228)
    1699             :          mat(k,1778) = mat(k,1778) + (rxt(k,503)+.500_r8*rxt(k,517))*y(k,67) &
    1700   315224452 :                       + rxt(k,505)*y(k,139) + rxt(k,516)*y(k,152)
    1701   315224452 :          mat(k,261) = -(rxt(k,518)*y(k,241))
    1702   315224452 :          mat(k,2424) = -rxt(k,518)*y(k,154)
    1703   315224452 :          mat(k,946) = rxt(k,507)*y(k,228)
    1704   315224452 :          mat(k,1703) = rxt(k,507)*y(k,153)
    1705   315224452 :          mat(k,965) = .2202005_r8*rxt(k,537)*y(k,136)
    1706             :          mat(k,2263) = .2202005_r8*rxt(k,535)*y(k,193) + .0023005_r8*rxt(k,540) &
    1707             :                       *y(k,195) + .0031005_r8*rxt(k,543)*y(k,211) &
    1708             :                       + .2381005_r8*rxt(k,547)*y(k,212) + .0508005_r8*rxt(k,551) &
    1709             :                       *y(k,218) + .1364005_r8*rxt(k,557)*y(k,236) &
    1710   315224452 :                       + .1677005_r8*rxt(k,560)*y(k,239)
    1711   315224452 :          mat(k,1009) = .0508005_r8*rxt(k,553)*y(k,136)
    1712             :          mat(k,1832) = .1279005_r8*rxt(k,536)*y(k,193) + .0097005_r8*rxt(k,541) &
    1713             :                       *y(k,195) + .0003005_r8*rxt(k,544)*y(k,211) &
    1714             :                       + .1056005_r8*rxt(k,548)*y(k,212) + .0245005_r8*rxt(k,552) &
    1715             :                       *y(k,218) + .0154005_r8*rxt(k,558)*y(k,236) &
    1716   315224452 :                       + .0063005_r8*rxt(k,561)*y(k,239)
    1717   315224452 :          mat(k,2174) = .2202005_r8*rxt(k,537)*y(k,6) + .0508005_r8*rxt(k,553)*y(k,110)
    1718   315224452 :          mat(k,45) = .5931005_r8*rxt(k,555)*y(k,228)
    1719   315224452 :          mat(k,51) = .2202005_r8*rxt(k,535)*y(k,90) + .1279005_r8*rxt(k,536)*y(k,124)
    1720   315224452 :          mat(k,57) = .0023005_r8*rxt(k,540)*y(k,90) + .0097005_r8*rxt(k,541)*y(k,124)
    1721   315224452 :          mat(k,63) = .0031005_r8*rxt(k,543)*y(k,90) + .0003005_r8*rxt(k,544)*y(k,124)
    1722   315224452 :          mat(k,69) = .2381005_r8*rxt(k,547)*y(k,90) + .1056005_r8*rxt(k,548)*y(k,124)
    1723   315224452 :          mat(k,77) = .0508005_r8*rxt(k,551)*y(k,90) + .0245005_r8*rxt(k,552)*y(k,124)
    1724   315224452 :          mat(k,1667) = .5931005_r8*rxt(k,555)*y(k,175)
    1725   315224452 :          mat(k,83) = .1364005_r8*rxt(k,557)*y(k,90) + .0154005_r8*rxt(k,558)*y(k,124)
    1726   315224452 :          mat(k,89) = .1677005_r8*rxt(k,560)*y(k,90) + .0063005_r8*rxt(k,561)*y(k,124)
    1727   315224452 :          mat(k,966) = .2067005_r8*rxt(k,537)*y(k,136)
    1728             :          mat(k,2264) = .2067005_r8*rxt(k,535)*y(k,193) + .0008005_r8*rxt(k,540) &
    1729             :                       *y(k,195) + .0035005_r8*rxt(k,543)*y(k,211) &
    1730             :                       + .1308005_r8*rxt(k,547)*y(k,212) + .1149005_r8*rxt(k,551) &
    1731             :                       *y(k,218) + .0101005_r8*rxt(k,557)*y(k,236) &
    1732   315224452 :                       + .0174005_r8*rxt(k,560)*y(k,239)
    1733   315224452 :          mat(k,1010) = .1149005_r8*rxt(k,553)*y(k,136)
    1734             :          mat(k,1833) = .1792005_r8*rxt(k,536)*y(k,193) + .0034005_r8*rxt(k,541) &
    1735             :                       *y(k,195) + .0003005_r8*rxt(k,544)*y(k,211) &
    1736             :                       + .1026005_r8*rxt(k,548)*y(k,212) + .0082005_r8*rxt(k,552) &
    1737             :                       *y(k,218) + .0452005_r8*rxt(k,558)*y(k,236) &
    1738   315224452 :                       + .0237005_r8*rxt(k,561)*y(k,239)
    1739   315224452 :          mat(k,2175) = .2067005_r8*rxt(k,537)*y(k,6) + .1149005_r8*rxt(k,553)*y(k,110)
    1740   315224452 :          mat(k,46) = .1534005_r8*rxt(k,555)*y(k,228)
    1741   315224452 :          mat(k,52) = .2067005_r8*rxt(k,535)*y(k,90) + .1792005_r8*rxt(k,536)*y(k,124)
    1742   315224452 :          mat(k,58) = .0008005_r8*rxt(k,540)*y(k,90) + .0034005_r8*rxt(k,541)*y(k,124)
    1743   315224452 :          mat(k,64) = .0035005_r8*rxt(k,543)*y(k,90) + .0003005_r8*rxt(k,544)*y(k,124)
    1744   315224452 :          mat(k,70) = .1308005_r8*rxt(k,547)*y(k,90) + .1026005_r8*rxt(k,548)*y(k,124)
    1745   315224452 :          mat(k,78) = .1149005_r8*rxt(k,551)*y(k,90) + .0082005_r8*rxt(k,552)*y(k,124)
    1746   315224452 :          mat(k,1668) = .1534005_r8*rxt(k,555)*y(k,175)
    1747   315224452 :          mat(k,84) = .0101005_r8*rxt(k,557)*y(k,90) + .0452005_r8*rxt(k,558)*y(k,124)
    1748   315224452 :          mat(k,90) = .0174005_r8*rxt(k,560)*y(k,90) + .0237005_r8*rxt(k,561)*y(k,124)
    1749   315224452 :          mat(k,967) = .0653005_r8*rxt(k,537)*y(k,136)
    1750             :          mat(k,2265) = .0653005_r8*rxt(k,535)*y(k,193) + .0843005_r8*rxt(k,540) &
    1751             :                       *y(k,195) + .0003005_r8*rxt(k,543)*y(k,211) &
    1752             :                       + .0348005_r8*rxt(k,547)*y(k,212) + .0348005_r8*rxt(k,551) &
    1753             :                       *y(k,218) + .0763005_r8*rxt(k,557)*y(k,236) + .086_r8*rxt(k,560) &
    1754   315224452 :                       *y(k,239)
    1755   315224452 :          mat(k,1011) = .0348005_r8*rxt(k,553)*y(k,136)
    1756             :          mat(k,1834) = .0676005_r8*rxt(k,536)*y(k,193) + .1579005_r8*rxt(k,541) &
    1757             :                       *y(k,195) + .0073005_r8*rxt(k,544)*y(k,211) &
    1758             :                       + .0521005_r8*rxt(k,548)*y(k,212) + .0772005_r8*rxt(k,552) &
    1759             :                       *y(k,218) + .0966005_r8*rxt(k,558)*y(k,236) &
    1760   315224452 :                       + .0025005_r8*rxt(k,561)*y(k,239)
    1761   315224452 :          mat(k,2176) = .0653005_r8*rxt(k,537)*y(k,6) + .0348005_r8*rxt(k,553)*y(k,110)
    1762   315224452 :          mat(k,47) = .0459005_r8*rxt(k,555)*y(k,228)
    1763   315224452 :          mat(k,53) = .0653005_r8*rxt(k,535)*y(k,90) + .0676005_r8*rxt(k,536)*y(k,124)
    1764   315224452 :          mat(k,59) = .0843005_r8*rxt(k,540)*y(k,90) + .1579005_r8*rxt(k,541)*y(k,124)
    1765   315224452 :          mat(k,65) = .0003005_r8*rxt(k,543)*y(k,90) + .0073005_r8*rxt(k,544)*y(k,124)
    1766   315224452 :          mat(k,71) = .0348005_r8*rxt(k,547)*y(k,90) + .0521005_r8*rxt(k,548)*y(k,124)
    1767   315224452 :          mat(k,79) = .0348005_r8*rxt(k,551)*y(k,90) + .0772005_r8*rxt(k,552)*y(k,124)
    1768   315224452 :          mat(k,1669) = .0459005_r8*rxt(k,555)*y(k,175)
    1769   315224452 :          mat(k,85) = .0763005_r8*rxt(k,557)*y(k,90) + .0966005_r8*rxt(k,558)*y(k,124)
    1770   315224452 :          mat(k,91) = .086_r8*rxt(k,560)*y(k,90) + .0025005_r8*rxt(k,561)*y(k,124)
    1771             :          mat(k,968) = .1749305_r8*rxt(k,534)*y(k,126) + .1284005_r8*rxt(k,537) &
    1772   315224452 :                       *y(k,136)
    1773             :          mat(k,2266) = .1284005_r8*rxt(k,535)*y(k,193) + .0443005_r8*rxt(k,540) &
    1774             :                       *y(k,195) + .0271005_r8*rxt(k,543)*y(k,211) &
    1775             :                       + .0076005_r8*rxt(k,547)*y(k,212) + .0554005_r8*rxt(k,551) &
    1776             :                       *y(k,218) + .2157005_r8*rxt(k,557)*y(k,236) &
    1777   315224452 :                       + .0512005_r8*rxt(k,560)*y(k,239)
    1778             :          mat(k,873) = .0590245_r8*rxt(k,542)*y(k,126) + .0033005_r8*rxt(k,545) &
    1779   315224452 :                       *y(k,136)
    1780             :          mat(k,1012) = .1749305_r8*rxt(k,550)*y(k,126) + .0554005_r8*rxt(k,553) &
    1781   315224452 :                       *y(k,136)
    1782             :          mat(k,1835) = .079_r8*rxt(k,536)*y(k,193) + .0059005_r8*rxt(k,541)*y(k,195) &
    1783             :                       + .0057005_r8*rxt(k,544)*y(k,211) + .0143005_r8*rxt(k,548) &
    1784             :                       *y(k,212) + .0332005_r8*rxt(k,552)*y(k,218) &
    1785   315224452 :                       + .0073005_r8*rxt(k,558)*y(k,236) + .011_r8*rxt(k,561)*y(k,239)
    1786             :          mat(k,1607) = .1749305_r8*rxt(k,534)*y(k,6) + .0590245_r8*rxt(k,542)*y(k,99) &
    1787   315224452 :                       + .1749305_r8*rxt(k,550)*y(k,110)
    1788             :          mat(k,2177) = .1284005_r8*rxt(k,537)*y(k,6) + .0033005_r8*rxt(k,545)*y(k,99) &
    1789   315224452 :                       + .0554005_r8*rxt(k,553)*y(k,110)
    1790   315224452 :          mat(k,48) = .0085005_r8*rxt(k,555)*y(k,228)
    1791   315224452 :          mat(k,54) = .1284005_r8*rxt(k,535)*y(k,90) + .079_r8*rxt(k,536)*y(k,124)
    1792   315224452 :          mat(k,60) = .0443005_r8*rxt(k,540)*y(k,90) + .0059005_r8*rxt(k,541)*y(k,124)
    1793   315224452 :          mat(k,66) = .0271005_r8*rxt(k,543)*y(k,90) + .0057005_r8*rxt(k,544)*y(k,124)
    1794   315224452 :          mat(k,72) = .0076005_r8*rxt(k,547)*y(k,90) + .0143005_r8*rxt(k,548)*y(k,124)
    1795   315224452 :          mat(k,80) = .0554005_r8*rxt(k,551)*y(k,90) + .0332005_r8*rxt(k,552)*y(k,124)
    1796   315224452 :          mat(k,1670) = .0085005_r8*rxt(k,555)*y(k,175)
    1797   315224452 :          mat(k,86) = .2157005_r8*rxt(k,557)*y(k,90) + .0073005_r8*rxt(k,558)*y(k,124)
    1798   325174377 :          mat(k,92) = .0512005_r8*rxt(k,560)*y(k,90) + .011_r8*rxt(k,561)*y(k,124)
    1799             :       end do
    1800     9949925 :       end subroutine nlnmat07
    1801     9949925 :       subroutine nlnmat08( avec_len, mat, y, rxt )
    1802             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    1803             :       implicit none
    1804             : !----------------------------------------------
    1805             : ! ... dummy arguments
    1806             : !----------------------------------------------
    1807             :       integer, intent(in) :: avec_len
    1808             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    1809             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    1810             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    1811             : !----------------------------------------------
    1812             : ! ... local variables
    1813             : !----------------------------------------------
    1814             :       integer :: k
    1815             : !----------------------------------------------
    1816             : ! ... complete matrix entries implicit species
    1817             : !----------------------------------------------
    1818   325174377 :       do k = 1,avec_len
    1819   315224452 :          mat(k,969) = .5901905_r8*rxt(k,534)*y(k,126) + .114_r8*rxt(k,537)*y(k,136)
    1820             :          mat(k,2267) = .114_r8*rxt(k,535)*y(k,193) + .1621005_r8*rxt(k,540)*y(k,195) &
    1821             :                       + .0474005_r8*rxt(k,543)*y(k,211) + .0113005_r8*rxt(k,547) &
    1822             :                       *y(k,212) + .1278005_r8*rxt(k,551)*y(k,218) &
    1823             :                       + .0738005_r8*rxt(k,557)*y(k,236) + .1598005_r8*rxt(k,560) &
    1824   315224452 :                       *y(k,239)
    1825   315224452 :          mat(k,874) = .0250245_r8*rxt(k,542)*y(k,126)
    1826             :          mat(k,1013) = .5901905_r8*rxt(k,550)*y(k,126) + .1278005_r8*rxt(k,553) &
    1827   315224452 :                       *y(k,136)
    1828             :          mat(k,1836) = .1254005_r8*rxt(k,536)*y(k,193) + .0536005_r8*rxt(k,541) &
    1829             :                       *y(k,195) + .0623005_r8*rxt(k,544)*y(k,211) &
    1830             :                       + .0166005_r8*rxt(k,548)*y(k,212) + .130_r8*rxt(k,552)*y(k,218) &
    1831   315224452 :                       + .238_r8*rxt(k,558)*y(k,236) + .1185005_r8*rxt(k,561)*y(k,239)
    1832             :          mat(k,1608) = .5901905_r8*rxt(k,534)*y(k,6) + .0250245_r8*rxt(k,542)*y(k,99) &
    1833   315224452 :                       + .5901905_r8*rxt(k,550)*y(k,110)
    1834   315224452 :          mat(k,2178) = .114_r8*rxt(k,537)*y(k,6) + .1278005_r8*rxt(k,553)*y(k,110)
    1835   315224452 :          mat(k,49) = .0128005_r8*rxt(k,555)*y(k,228)
    1836   315224452 :          mat(k,55) = .114_r8*rxt(k,535)*y(k,90) + .1254005_r8*rxt(k,536)*y(k,124)
    1837   315224452 :          mat(k,61) = .1621005_r8*rxt(k,540)*y(k,90) + .0536005_r8*rxt(k,541)*y(k,124)
    1838   315224452 :          mat(k,67) = .0474005_r8*rxt(k,543)*y(k,90) + .0623005_r8*rxt(k,544)*y(k,124)
    1839   315224452 :          mat(k,73) = .0113005_r8*rxt(k,547)*y(k,90) + .0166005_r8*rxt(k,548)*y(k,124)
    1840   315224452 :          mat(k,81) = .1278005_r8*rxt(k,551)*y(k,90) + .130_r8*rxt(k,552)*y(k,124)
    1841   315224452 :          mat(k,1671) = .0128005_r8*rxt(k,555)*y(k,175)
    1842   315224452 :          mat(k,87) = .0738005_r8*rxt(k,557)*y(k,90) + .238_r8*rxt(k,558)*y(k,124)
    1843   315224452 :          mat(k,93) = .1598005_r8*rxt(k,560)*y(k,90) + .1185005_r8*rxt(k,561)*y(k,124)
    1844   315224452 :          mat(k,50) = -(rxt(k,555)*y(k,228))
    1845   315224452 :          mat(k,1672) = -rxt(k,555)*y(k,175)
    1846   315224452 :          mat(k,189) = .100_r8*rxt(k,469)*y(k,228)
    1847   315224452 :          mat(k,207) = .230_r8*rxt(k,471)*y(k,228)
    1848   315224452 :          mat(k,1691) = .100_r8*rxt(k,469)*y(k,183) + .230_r8*rxt(k,471)*y(k,185)
    1849   315224452 :          mat(k,652) = -(rxt(k,493)*y(k,228))
    1850   315224452 :          mat(k,1754) = -rxt(k,493)*y(k,177)
    1851   315224452 :          mat(k,2305) = rxt(k,491)*y(k,233)
    1852   315224452 :          mat(k,1172) = rxt(k,491)*y(k,90)
    1853   315224452 :          mat(k,627) = -(rxt(k,494)*y(k,228))
    1854   315224452 :          mat(k,1751) = -rxt(k,494)*y(k,178)
    1855   315224452 :          mat(k,1863) = .200_r8*rxt(k,487)*y(k,223) + .200_r8*rxt(k,497)*y(k,234)
    1856   315224452 :          mat(k,2375) = .500_r8*rxt(k,485)*y(k,223)
    1857   315224452 :          mat(k,1103) = .200_r8*rxt(k,487)*y(k,124) + .500_r8*rxt(k,485)*y(k,201)
    1858   315224452 :          mat(k,1060) = .200_r8*rxt(k,497)*y(k,124)
    1859   315224452 :          mat(k,486) = -(rxt(k,498)*y(k,228))
    1860   315224452 :          mat(k,1735) = -rxt(k,498)*y(k,179)
    1861   315224452 :          mat(k,2297) = rxt(k,496)*y(k,234)
    1862   315224452 :          mat(k,1059) = rxt(k,496)*y(k,90)
    1863   315224452 :          mat(k,1072) = -(rxt(k,499)*y(k,126) + rxt(k,500)*y(k,228))
    1864   315224452 :          mat(k,1623) = -rxt(k,499)*y(k,180)
    1865   315224452 :          mat(k,1786) = -rxt(k,500)*y(k,180)
    1866   315224452 :          mat(k,978) = .330_r8*rxt(k,480)*y(k,136)
    1867   315224452 :          mat(k,1022) = .330_r8*rxt(k,483)*y(k,136)
    1868   315224452 :          mat(k,1885) = .800_r8*rxt(k,487)*y(k,223) + .800_r8*rxt(k,497)*y(k,234)
    1869   315224452 :          mat(k,1623) = mat(k,1623) + rxt(k,488)*y(k,223)
    1870   315224452 :          mat(k,2197) = .330_r8*rxt(k,480)*y(k,6) + .330_r8*rxt(k,483)*y(k,110)
    1871   315224452 :          mat(k,628) = rxt(k,494)*y(k,228)
    1872   315224452 :          mat(k,2383) = .500_r8*rxt(k,485)*y(k,223) + rxt(k,495)*y(k,234)
    1873             :          mat(k,1105) = .800_r8*rxt(k,487)*y(k,124) + rxt(k,488)*y(k,126) &
    1874   315224452 :                       + .500_r8*rxt(k,485)*y(k,201)
    1875   315224452 :          mat(k,1786) = mat(k,1786) + rxt(k,494)*y(k,178)
    1876   315224452 :          mat(k,1063) = .800_r8*rxt(k,497)*y(k,124) + rxt(k,495)*y(k,201)
    1877   315224452 :          mat(k,1119) = -(rxt(k,501)*y(k,228))
    1878   315224452 :          mat(k,1790) = -rxt(k,501)*y(k,181)
    1879   315224452 :          mat(k,981) = .300_r8*rxt(k,480)*y(k,136)
    1880   315224452 :          mat(k,1025) = .300_r8*rxt(k,483)*y(k,136)
    1881   315224452 :          mat(k,1889) = .900_r8*rxt(k,492)*y(k,233)
    1882   315224452 :          mat(k,2200) = .300_r8*rxt(k,480)*y(k,6) + .300_r8*rxt(k,483)*y(k,110)
    1883   315224452 :          mat(k,2387) = rxt(k,490)*y(k,233)
    1884   315224452 :          mat(k,1175) = .900_r8*rxt(k,492)*y(k,124) + rxt(k,490)*y(k,201)
    1885   315224452 :          mat(k,665) = -(rxt(k,468)*y(k,228))
    1886   315224452 :          mat(k,1755) = -rxt(k,468)*y(k,182)
    1887   315224452 :          mat(k,2306) = rxt(k,466)*y(k,235)
    1888   315224452 :          mat(k,749) = rxt(k,466)*y(k,90)
    1889   315224452 :          mat(k,187) = -(rxt(k,469)*y(k,228))
    1890   315224452 :          mat(k,1689) = -rxt(k,469)*y(k,183)
    1891   315224452 :          mat(k,203) = -(rxt(k,435)*y(k,228))
    1892   315224452 :          mat(k,1692) = -rxt(k,435)*y(k,184)
    1893   315224452 :          mat(k,2276) = rxt(k,432)*y(k,237)
    1894   315224452 :          mat(k,1227) = rxt(k,432)*y(k,90)
    1895   315224452 :          mat(k,208) = -(rxt(k,471)*y(k,228))
    1896   315224452 :          mat(k,1693) = -rxt(k,471)*y(k,185)
    1897   315224452 :          mat(k,729) = -(rxt(k,474)*y(k,228))
    1898   315224452 :          mat(k,1761) = -rxt(k,474)*y(k,186)
    1899   315224452 :          mat(k,2311) = rxt(k,472)*y(k,238)
    1900   315224452 :          mat(k,765) = rxt(k,472)*y(k,90)
    1901   315224452 :          mat(k,216) = -(rxt(k,477)*y(k,228))
    1902   315224452 :          mat(k,1694) = -rxt(k,477)*y(k,187)
    1903   315224452 :          mat(k,209) = .150_r8*rxt(k,471)*y(k,228)
    1904   315224452 :          mat(k,1694) = mat(k,1694) + .150_r8*rxt(k,471)*y(k,185)
    1905   315224452 :          mat(k,421) = -(rxt(k,478)*y(k,228))
    1906   315224452 :          mat(k,1726) = -rxt(k,478)*y(k,188)
    1907   315224452 :          mat(k,2288) = rxt(k,475)*y(k,240)
    1908   315224452 :          mat(k,509) = rxt(k,475)*y(k,90)
    1909   315224452 :          mat(k,523) = -(rxt(k,436)*y(k,90) + rxt(k,437)*y(k,124) + rxt(k,465)*y(k,125))
    1910   315224452 :          mat(k,2300) = -rxt(k,436)*y(k,191)
    1911   315224452 :          mat(k,1858) = -rxt(k,437)*y(k,191)
    1912   315224452 :          mat(k,1932) = -rxt(k,465)*y(k,191)
    1913   315224452 :          mat(k,236) = rxt(k,442)*y(k,228)
    1914   315224452 :          mat(k,1739) = rxt(k,442)*y(k,22)
    1915   315224452 :          mat(k,1042) = -(rxt(k,397)*y(k,90) + (rxt(k,398) + rxt(k,399)) * y(k,124))
    1916   315224452 :          mat(k,2326) = -rxt(k,397)*y(k,192)
    1917   315224452 :          mat(k,1882) = -(rxt(k,398) + rxt(k,399)) * y(k,192)
    1918   315224452 :          mat(k,690) = rxt(k,400)*y(k,228)
    1919   315224452 :          mat(k,227) = rxt(k,401)*y(k,228)
    1920   315224452 :          mat(k,1783) = rxt(k,400)*y(k,2) + rxt(k,401)*y(k,15)
    1921   315224452 :          mat(k,56) = -(rxt(k,535)*y(k,90) + rxt(k,536)*y(k,124))
    1922   315224452 :          mat(k,2268) = -rxt(k,535)*y(k,193)
    1923   315224452 :          mat(k,1837) = -rxt(k,536)*y(k,193)
    1924   315224452 :          mat(k,970) = rxt(k,538)*y(k,228)
    1925   315224452 :          mat(k,1673) = rxt(k,538)*y(k,6)
    1926   315224452 :          mat(k,495) = -(rxt(k,439)*y(k,90) + rxt(k,440)*y(k,124))
    1927   315224452 :          mat(k,2298) = -rxt(k,439)*y(k,194)
    1928   315224452 :          mat(k,1855) = -rxt(k,440)*y(k,194)
    1929   315224452 :          mat(k,163) = .350_r8*rxt(k,438)*y(k,228)
    1930   315224452 :          mat(k,417) = rxt(k,441)*y(k,228)
    1931   315224452 :          mat(k,1736) = .350_r8*rxt(k,438)*y(k,7) + rxt(k,441)*y(k,8)
    1932   315224452 :          mat(k,62) = -(rxt(k,540)*y(k,90) + rxt(k,541)*y(k,124))
    1933   315224452 :          mat(k,2269) = -rxt(k,540)*y(k,195)
    1934   315224452 :          mat(k,1838) = -rxt(k,541)*y(k,195)
    1935   315224452 :          mat(k,159) = rxt(k,539)*y(k,228)
    1936   315224452 :          mat(k,1674) = rxt(k,539)*y(k,7)
    1937   315224452 :          mat(k,435) = -(rxt(k,443)*y(k,90) + rxt(k,445)*y(k,124))
    1938   315224452 :          mat(k,2289) = -rxt(k,443)*y(k,196)
    1939   315224452 :          mat(k,1849) = -rxt(k,445)*y(k,196)
    1940   315224452 :          mat(k,346) = rxt(k,444)*y(k,228)
    1941   315224452 :          mat(k,190) = .070_r8*rxt(k,469)*y(k,228)
    1942   315224452 :          mat(k,210) = .060_r8*rxt(k,471)*y(k,228)
    1943             :          mat(k,1728) = rxt(k,444)*y(k,23) + .070_r8*rxt(k,469)*y(k,183) &
    1944   315224452 :                       + .060_r8*rxt(k,471)*y(k,185)
    1945             :          mat(k,901) = -(4._r8*rxt(k,319)*y(k,197) + rxt(k,320)*y(k,201) + rxt(k,321) &
    1946   315224452 :                       *y(k,90) + rxt(k,322)*y(k,124))
    1947   315224452 :          mat(k,2379) = -rxt(k,320)*y(k,197)
    1948   315224452 :          mat(k,2322) = -rxt(k,321)*y(k,197)
    1949   315224452 :          mat(k,1877) = -rxt(k,322)*y(k,197)
    1950   315224452 :          mat(k,351) = .500_r8*rxt(k,324)*y(k,228)
    1951   315224452 :          mat(k,299) = rxt(k,325)*y(k,56) + rxt(k,326)*y(k,228)
    1952   315224452 :          mat(k,2140) = rxt(k,325)*y(k,28)
    1953   315224452 :          mat(k,1773) = .500_r8*rxt(k,324)*y(k,27) + rxt(k,326)*y(k,28)
    1954   315224452 :          mat(k,935) = -(rxt(k,348)*y(k,201) + rxt(k,349)*y(k,90) + rxt(k,350)*y(k,124))
    1955   315224452 :          mat(k,2380) = -rxt(k,348)*y(k,198)
    1956   315224452 :          mat(k,2325) = -rxt(k,349)*y(k,198)
    1957   315224452 :          mat(k,1880) = -rxt(k,350)*y(k,198)
    1958   315224452 :          mat(k,410) = rxt(k,351)*y(k,228)
    1959   315224452 :          mat(k,305) = rxt(k,355)*y(k,56) + rxt(k,352)*y(k,228)
    1960   315224452 :          mat(k,2142) = rxt(k,355)*y(k,31)
    1961   315224452 :          mat(k,1777) = rxt(k,351)*y(k,30) + rxt(k,352)*y(k,31)
    1962   315224452 :          mat(k,635) = -(rxt(k,446)*y(k,90) + rxt(k,447)*y(k,124))
    1963   315224452 :          mat(k,2304) = -rxt(k,446)*y(k,199)
    1964   315224452 :          mat(k,1864) = -rxt(k,447)*y(k,199)
    1965   315224452 :          mat(k,271) = rxt(k,448)*y(k,228)
    1966   315224452 :          mat(k,2304) = mat(k,2304) + .400_r8*rxt(k,436)*y(k,191)
    1967   315224452 :          mat(k,1864) = mat(k,1864) + rxt(k,437)*y(k,191)
    1968   315224452 :          mat(k,2185) = rxt(k,463)*y(k,143)
    1969   315224452 :          mat(k,469) = rxt(k,463)*y(k,136)
    1970   315224452 :          mat(k,524) = .400_r8*rxt(k,436)*y(k,90) + rxt(k,437)*y(k,124)
    1971   315224452 :          mat(k,1752) = rxt(k,448)*y(k,32)
    1972             :          mat(k,1428) = -(4._r8*rxt(k,330)*y(k,200) + rxt(k,331)*y(k,201) + rxt(k,332) &
    1973             :                       *y(k,90) + rxt(k,333)*y(k,124) + rxt(k,344)*y(k,125) + rxt(k,372) &
    1974             :                       *y(k,213) + rxt(k,405)*y(k,208) + rxt(k,410)*y(k,209) + rxt(k,419) &
    1975   315224452 :                       *y(k,210) + rxt(k,430)*y(k,237))
    1976   315224452 :          mat(k,2403) = -rxt(k,331)*y(k,200)
    1977   315224452 :          mat(k,2348) = -rxt(k,332)*y(k,200)
    1978   315224452 :          mat(k,1906) = -rxt(k,333)*y(k,200)
    1979   315224452 :          mat(k,1949) = -rxt(k,344)*y(k,200)
    1980   315224452 :          mat(k,1358) = -rxt(k,372)*y(k,200)
    1981   315224452 :          mat(k,1303) = -rxt(k,405)*y(k,200)
    1982   315224452 :          mat(k,1336) = -rxt(k,410)*y(k,200)
    1983   315224452 :          mat(k,1257) = -rxt(k,419)*y(k,200)
    1984   315224452 :          mat(k,1235) = -rxt(k,430)*y(k,200)
    1985   315224452 :          mat(k,985) = .060_r8*rxt(k,480)*y(k,136)
    1986   315224452 :          mat(k,1153) = rxt(k,327)*y(k,126) + rxt(k,328)*y(k,228)
    1987   315224452 :          mat(k,1282) = rxt(k,353)*y(k,126) + rxt(k,354)*y(k,228)
    1988   315224452 :          mat(k,621) = .500_r8*rxt(k,335)*y(k,228)
    1989             :          mat(k,2348) = mat(k,2348) + .450_r8*rxt(k,383)*y(k,215) + .200_r8*rxt(k,387) &
    1990   315224452 :                       *y(k,217) + .150_r8*rxt(k,362)*y(k,232)
    1991   315224452 :          mat(k,885) = .080_r8*rxt(k,425)*y(k,136)
    1992   315224452 :          mat(k,1273) = .100_r8*rxt(k,378)*y(k,136)
    1993   315224452 :          mat(k,1029) = .060_r8*rxt(k,483)*y(k,136)
    1994   315224452 :          mat(k,1378) = .280_r8*rxt(k,392)*y(k,136)
    1995             :          mat(k,1906) = mat(k,1906) + .530_r8*rxt(k,376)*y(k,213) + rxt(k,385)*y(k,215) &
    1996   315224452 :                       + rxt(k,388)*y(k,217) + rxt(k,363)*y(k,232)
    1997             :          mat(k,1645) = rxt(k,327)*y(k,45) + rxt(k,353)*y(k,49) + .530_r8*rxt(k,375) &
    1998   315224452 :                       *y(k,213) + rxt(k,386)*y(k,215)
    1999             :          mat(k,2216) = .060_r8*rxt(k,480)*y(k,6) + .080_r8*rxt(k,425)*y(k,99) &
    2000             :                       + .100_r8*rxt(k,378)*y(k,105) + .060_r8*rxt(k,483)*y(k,110) &
    2001   315224452 :                       + .280_r8*rxt(k,392)*y(k,111)
    2002   315224452 :          mat(k,1122) = .650_r8*rxt(k,501)*y(k,228)
    2003   315224452 :          mat(k,1428) = mat(k,1428) + .530_r8*rxt(k,372)*y(k,213)
    2004             :          mat(k,2403) = mat(k,2403) + .260_r8*rxt(k,373)*y(k,213) + rxt(k,382)*y(k,215) &
    2005   315224452 :                       + .300_r8*rxt(k,361)*y(k,232)
    2006             :          mat(k,1358) = mat(k,1358) + .530_r8*rxt(k,376)*y(k,124) + .530_r8*rxt(k,375) &
    2007             :                       *y(k,126) + .530_r8*rxt(k,372)*y(k,200) + .260_r8*rxt(k,373) &
    2008   315224452 :                       *y(k,201)
    2009             :          mat(k,1398) = .450_r8*rxt(k,383)*y(k,90) + rxt(k,385)*y(k,124) + rxt(k,386) &
    2010   315224452 :                       *y(k,126) + rxt(k,382)*y(k,201) + 4.000_r8*rxt(k,384)*y(k,215)
    2011   315224452 :          mat(k,700) = .200_r8*rxt(k,387)*y(k,90) + rxt(k,388)*y(k,124)
    2012             :          mat(k,1808) = rxt(k,328)*y(k,45) + rxt(k,354)*y(k,49) + .500_r8*rxt(k,335) &
    2013   315224452 :                       *y(k,51) + .650_r8*rxt(k,501)*y(k,181)
    2014             :          mat(k,1219) = .150_r8*rxt(k,362)*y(k,90) + rxt(k,363)*y(k,124) &
    2015   315224452 :                       + .300_r8*rxt(k,361)*y(k,201)
    2016             :          mat(k,2421) = -(rxt(k,221)*y(k,59) + (4._r8*rxt(k,298) + 4._r8*rxt(k,299) &
    2017             :                       ) * y(k,201) + rxt(k,300)*y(k,90) + rxt(k,301)*y(k,124) &
    2018             :                       + rxt(k,320)*y(k,197) + rxt(k,331)*y(k,200) + rxt(k,348) &
    2019             :                       *y(k,198) + rxt(k,361)*y(k,232) + rxt(k,373)*y(k,213) + rxt(k,382) &
    2020             :                       *y(k,215) + rxt(k,406)*y(k,208) + rxt(k,411)*y(k,209) + rxt(k,420) &
    2021             :                       *y(k,210) + rxt(k,431)*y(k,237) + rxt(k,485)*y(k,223) + rxt(k,490) &
    2022   315224452 :                       *y(k,233) + rxt(k,495)*y(k,234))
    2023   315224452 :          mat(k,1605) = -rxt(k,221)*y(k,201)
    2024   315224452 :          mat(k,2369) = -rxt(k,300)*y(k,201)
    2025   315224452 :          mat(k,1925) = -rxt(k,301)*y(k,201)
    2026   315224452 :          mat(k,909) = -rxt(k,320)*y(k,201)
    2027   315224452 :          mat(k,1440) = -rxt(k,331)*y(k,201)
    2028   315224452 :          mat(k,944) = -rxt(k,348)*y(k,201)
    2029   315224452 :          mat(k,1225) = -rxt(k,361)*y(k,201)
    2030   315224452 :          mat(k,1367) = -rxt(k,373)*y(k,201)
    2031   315224452 :          mat(k,1408) = -rxt(k,382)*y(k,201)
    2032   315224452 :          mat(k,1313) = -rxt(k,406)*y(k,201)
    2033   315224452 :          mat(k,1346) = -rxt(k,411)*y(k,201)
    2034   315224452 :          mat(k,1266) = -rxt(k,420)*y(k,201)
    2035   315224452 :          mat(k,1243) = -rxt(k,431)*y(k,201)
    2036   315224452 :          mat(k,1117) = -rxt(k,485)*y(k,201)
    2037   315224452 :          mat(k,1188) = -rxt(k,490)*y(k,201)
    2038   315224452 :          mat(k,1071) = -rxt(k,495)*y(k,201)
    2039   315224452 :          mat(k,1149) = .280_r8*rxt(k,347)*y(k,136)
    2040   315224452 :          mat(k,708) = rxt(k,334)*y(k,228)
    2041   315224452 :          mat(k,458) = .700_r8*rxt(k,303)*y(k,228)
    2042             :          mat(k,2261) = rxt(k,215)*y(k,56) + rxt(k,271)*y(k,73) + rxt(k,310)*y(k,224) &
    2043   315224452 :                       + rxt(k,304)*y(k,228)
    2044   315224452 :          mat(k,2172) = rxt(k,215)*y(k,54)
    2045   315224452 :          mat(k,932) = rxt(k,271)*y(k,54)
    2046             :          mat(k,2369) = mat(k,2369) + .450_r8*rxt(k,332)*y(k,200) + .330_r8*rxt(k,450) &
    2047   315224452 :                       *y(k,202) + .070_r8*rxt(k,456)*y(k,216)
    2048   315224452 :          mat(k,891) = .050_r8*rxt(k,425)*y(k,136)
    2049             :          mat(k,1925) = mat(k,1925) + rxt(k,333)*y(k,200) + .830_r8*rxt(k,451)*y(k,202) &
    2050   315224452 :                       + .170_r8*rxt(k,457)*y(k,216)
    2051   315224452 :          mat(k,2236) = .280_r8*rxt(k,347)*y(k,29) + .050_r8*rxt(k,425)*y(k,99)
    2052             :          mat(k,1440) = mat(k,1440) + .450_r8*rxt(k,332)*y(k,90) + rxt(k,333)*y(k,124) &
    2053             :                       + 4.000_r8*rxt(k,330)*y(k,200) + .900_r8*rxt(k,331)*y(k,201) &
    2054             :                       + rxt(k,405)*y(k,208) + rxt(k,410)*y(k,209) + rxt(k,419) &
    2055             :                       *y(k,210) + rxt(k,372)*y(k,213) + rxt(k,381)*y(k,215) &
    2056   315224452 :                       + rxt(k,430)*y(k,237)
    2057   315224452 :          mat(k,2421) = mat(k,2421) + .900_r8*rxt(k,331)*y(k,200)
    2058   315224452 :          mat(k,785) = .330_r8*rxt(k,450)*y(k,90) + .830_r8*rxt(k,451)*y(k,124)
    2059   315224452 :          mat(k,1313) = mat(k,1313) + rxt(k,405)*y(k,200)
    2060   315224452 :          mat(k,1346) = mat(k,1346) + rxt(k,410)*y(k,200)
    2061   315224452 :          mat(k,1266) = mat(k,1266) + rxt(k,419)*y(k,200)
    2062   315224452 :          mat(k,1367) = mat(k,1367) + rxt(k,372)*y(k,200)
    2063   315224452 :          mat(k,1408) = mat(k,1408) + rxt(k,381)*y(k,200)
    2064   315224452 :          mat(k,918) = .070_r8*rxt(k,456)*y(k,90) + .170_r8*rxt(k,457)*y(k,124)
    2065   315224452 :          mat(k,2039) = rxt(k,310)*y(k,54)
    2066             :          mat(k,1830) = rxt(k,334)*y(k,50) + .700_r8*rxt(k,303)*y(k,53) + rxt(k,304) &
    2067   315224452 :                       *y(k,54)
    2068   325174377 :          mat(k,1243) = mat(k,1243) + rxt(k,430)*y(k,200)
    2069             :       end do
    2070     9949925 :       end subroutine nlnmat08
    2071     9949925 :       subroutine nlnmat09( avec_len, mat, y, rxt )
    2072             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    2073             :       implicit none
    2074             : !----------------------------------------------
    2075             : ! ... dummy arguments
    2076             : !----------------------------------------------
    2077             :       integer, intent(in) :: avec_len
    2078             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    2079             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    2080             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    2081             : !----------------------------------------------
    2082             : ! ... local variables
    2083             : !----------------------------------------------
    2084             :       integer :: k
    2085             : !----------------------------------------------
    2086             : ! ... complete matrix entries implicit species
    2087             : !----------------------------------------------
    2088   325174377 :       do k = 1,avec_len
    2089   315224452 :          mat(k,778) = -(rxt(k,450)*y(k,90) + rxt(k,451)*y(k,124) + rxt(k,452)*y(k,125))
    2090   315224452 :          mat(k,2315) = -rxt(k,450)*y(k,202)
    2091   315224452 :          mat(k,1870) = -rxt(k,451)*y(k,202)
    2092   315224452 :          mat(k,1938) = -rxt(k,452)*y(k,202)
    2093             :          mat(k,865) = -(rxt(k,579)*y(k,221) + rxt(k,580)*y(k,227) + rxt(k,581) &
    2094   315224452 :                       *y(k,220))
    2095   315224452 :          mat(k,846) = -rxt(k,579)*y(k,203)
    2096   315224452 :          mat(k,854) = -rxt(k,580)*y(k,203)
    2097   315224452 :          mat(k,680) = -rxt(k,581)*y(k,203)
    2098   315224452 :          mat(k,574) = -((rxt(k,369) + rxt(k,370)) * y(k,124))
    2099   315224452 :          mat(k,1860) = -(rxt(k,369) + rxt(k,370)) * y(k,204)
    2100   315224452 :          mat(k,356) = rxt(k,368)*y(k,228)
    2101   315224452 :          mat(k,1744) = rxt(k,368)*y(k,16)
    2102   315224452 :          mat(k,460) = -(rxt(k,339)*y(k,135))
    2103   315224452 :          mat(k,1526) = -rxt(k,339)*y(k,205)
    2104   315224452 :          mat(k,1852) = .750_r8*rxt(k,337)*y(k,206)
    2105   315224452 :          mat(k,796) = .750_r8*rxt(k,337)*y(k,124)
    2106   315224452 :          mat(k,797) = -(rxt(k,336)*y(k,90) + rxt(k,337)*y(k,124))
    2107   315224452 :          mat(k,2317) = -rxt(k,336)*y(k,206)
    2108   315224452 :          mat(k,1871) = -rxt(k,337)*y(k,206)
    2109   315224452 :          mat(k,551) = rxt(k,343)*y(k,228)
    2110   315224452 :          mat(k,1766) = rxt(k,343)*y(k,25)
    2111   315224452 :          mat(k,441) = -(rxt(k,307)*y(k,90) + rxt(k,309)*y(k,124))
    2112   315224452 :          mat(k,2290) = -rxt(k,307)*y(k,207)
    2113   315224452 :          mat(k,1850) = -rxt(k,309)*y(k,207)
    2114   315224452 :          mat(k,1972) = rxt(k,294)*y(k,90)
    2115   315224452 :          mat(k,2290) = mat(k,2290) + rxt(k,294)*y(k,42)
    2116             :          mat(k,1299) = -(rxt(k,405)*y(k,200) + rxt(k,406)*y(k,201) + rxt(k,407) &
    2117   315224452 :                       *y(k,90) + rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126))
    2118   315224452 :          mat(k,1423) = -rxt(k,405)*y(k,208)
    2119   315224452 :          mat(k,2398) = -rxt(k,406)*y(k,208)
    2120   315224452 :          mat(k,2343) = -rxt(k,407)*y(k,208)
    2121   315224452 :          mat(k,1901) = -rxt(k,408)*y(k,208)
    2122   315224452 :          mat(k,1640) = -rxt(k,409)*y(k,208)
    2123   315224452 :          mat(k,882) = .600_r8*rxt(k,426)*y(k,228)
    2124   315224452 :          mat(k,1803) = .600_r8*rxt(k,426)*y(k,99)
    2125             :          mat(k,1332) = -(rxt(k,410)*y(k,200) + rxt(k,411)*y(k,201) + rxt(k,412) &
    2126   315224452 :                       *y(k,90) + rxt(k,414)*y(k,124) + rxt(k,415)*y(k,126))
    2127   315224452 :          mat(k,1424) = -rxt(k,410)*y(k,209)
    2128   315224452 :          mat(k,2399) = -rxt(k,411)*y(k,209)
    2129   315224452 :          mat(k,2344) = -rxt(k,412)*y(k,209)
    2130   315224452 :          mat(k,1902) = -rxt(k,414)*y(k,209)
    2131   315224452 :          mat(k,1641) = -rxt(k,415)*y(k,209)
    2132   315224452 :          mat(k,883) = .400_r8*rxt(k,426)*y(k,228)
    2133   315224452 :          mat(k,1804) = .400_r8*rxt(k,426)*y(k,99)
    2134             :          mat(k,1253) = -(rxt(k,419)*y(k,200) + rxt(k,420)*y(k,201) + rxt(k,421) &
    2135   315224452 :                       *y(k,90) + rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126))
    2136   315224452 :          mat(k,1420) = -rxt(k,419)*y(k,210)
    2137   315224452 :          mat(k,2395) = -rxt(k,420)*y(k,210)
    2138   315224452 :          mat(k,2340) = -rxt(k,421)*y(k,210)
    2139   315224452 :          mat(k,1898) = -rxt(k,422)*y(k,210)
    2140   315224452 :          mat(k,1637) = -rxt(k,423)*y(k,210)
    2141   315224452 :          mat(k,880) = rxt(k,418)*y(k,126)
    2142   315224452 :          mat(k,1637) = mat(k,1637) + rxt(k,418)*y(k,99)
    2143   315224452 :          mat(k,68) = -(rxt(k,543)*y(k,90) + rxt(k,544)*y(k,124))
    2144   315224452 :          mat(k,2270) = -rxt(k,543)*y(k,211)
    2145   315224452 :          mat(k,1839) = -rxt(k,544)*y(k,211)
    2146   315224452 :          mat(k,875) = rxt(k,546)*y(k,228)
    2147   315224452 :          mat(k,1675) = rxt(k,546)*y(k,99)
    2148   315224452 :          mat(k,74) = -(rxt(k,547)*y(k,90) + rxt(k,548)*y(k,124))
    2149   315224452 :          mat(k,2271) = -rxt(k,547)*y(k,212)
    2150   315224452 :          mat(k,1840) = -rxt(k,548)*y(k,212)
    2151   315224452 :          mat(k,75) = rxt(k,549)*y(k,228)
    2152   315224452 :          mat(k,1676) = rxt(k,549)*y(k,104)
    2153             :          mat(k,1356) = -(rxt(k,372)*y(k,200) + rxt(k,373)*y(k,201) + rxt(k,374) &
    2154             :                       *y(k,90) + rxt(k,375)*y(k,126) + (rxt(k,376) + rxt(k,377) &
    2155   315224452 :                       ) * y(k,124))
    2156   315224452 :          mat(k,1425) = -rxt(k,372)*y(k,213)
    2157   315224452 :          mat(k,2400) = -rxt(k,373)*y(k,213)
    2158   315224452 :          mat(k,2345) = -rxt(k,374)*y(k,213)
    2159   315224452 :          mat(k,1642) = -rxt(k,375)*y(k,213)
    2160   315224452 :          mat(k,1903) = -(rxt(k,376) + rxt(k,377)) * y(k,213)
    2161   315224452 :          mat(k,1271) = .500_r8*rxt(k,379)*y(k,228)
    2162   315224452 :          mat(k,317) = .200_r8*rxt(k,380)*y(k,228)
    2163   315224452 :          mat(k,1375) = rxt(k,393)*y(k,228)
    2164             :          mat(k,1805) = .500_r8*rxt(k,379)*y(k,105) + .200_r8*rxt(k,380)*y(k,106) &
    2165   315224452 :                       + rxt(k,393)*y(k,111)
    2166   315224452 :          mat(k,740) = -(rxt(k,453)*y(k,90) + rxt(k,454)*y(k,124) + rxt(k,455)*y(k,125))
    2167   315224452 :          mat(k,2312) = -rxt(k,453)*y(k,214)
    2168   315224452 :          mat(k,1867) = -rxt(k,454)*y(k,214)
    2169   315224452 :          mat(k,1937) = -rxt(k,455)*y(k,214)
    2170             :          mat(k,1397) = -(rxt(k,381)*y(k,200) + rxt(k,382)*y(k,201) + rxt(k,383) &
    2171             :                       *y(k,90) + 4._r8*rxt(k,384)*y(k,215) + rxt(k,385)*y(k,124) &
    2172   315224452 :                       + rxt(k,386)*y(k,126) + rxt(k,394)*y(k,125))
    2173   315224452 :          mat(k,1427) = -rxt(k,381)*y(k,215)
    2174   315224452 :          mat(k,2402) = -rxt(k,382)*y(k,215)
    2175   315224452 :          mat(k,2347) = -rxt(k,383)*y(k,215)
    2176   315224452 :          mat(k,1905) = -rxt(k,385)*y(k,215)
    2177   315224452 :          mat(k,1644) = -rxt(k,386)*y(k,215)
    2178   315224452 :          mat(k,1948) = -rxt(k,394)*y(k,215)
    2179   315224452 :          mat(k,1272) = .500_r8*rxt(k,379)*y(k,228)
    2180   315224452 :          mat(k,318) = .500_r8*rxt(k,380)*y(k,228)
    2181   315224452 :          mat(k,1807) = .500_r8*rxt(k,379)*y(k,105) + .500_r8*rxt(k,380)*y(k,106)
    2182   315224452 :          mat(k,910) = -(rxt(k,456)*y(k,90) + rxt(k,457)*y(k,124) + rxt(k,458)*y(k,125))
    2183   315224452 :          mat(k,2323) = -rxt(k,456)*y(k,216)
    2184   315224452 :          mat(k,1878) = -rxt(k,457)*y(k,216)
    2185   315224452 :          mat(k,1940) = -rxt(k,458)*y(k,216)
    2186   315224452 :          mat(k,698) = -(rxt(k,387)*y(k,90) + rxt(k,388)*y(k,124))
    2187   315224452 :          mat(k,2308) = -rxt(k,387)*y(k,217)
    2188   315224452 :          mat(k,1866) = -rxt(k,388)*y(k,217)
    2189   315224452 :          mat(k,518) = rxt(k,389)*y(k,228)
    2190   315224452 :          mat(k,322) = rxt(k,390)*y(k,228)
    2191   315224452 :          mat(k,1757) = rxt(k,389)*y(k,107) + rxt(k,390)*y(k,108)
    2192   315224452 :          mat(k,82) = -(rxt(k,551)*y(k,90) + rxt(k,552)*y(k,124))
    2193   315224452 :          mat(k,2272) = -rxt(k,551)*y(k,218)
    2194   315224452 :          mat(k,1841) = -rxt(k,552)*y(k,218)
    2195   315224452 :          mat(k,1014) = rxt(k,554)*y(k,228)
    2196   315224452 :          mat(k,1678) = rxt(k,554)*y(k,110)
    2197   315224452 :          mat(k,529) = -(rxt(k,188)*y(k,134) + rxt(k,189)*y(k,135))
    2198   315224452 :          mat(k,2068) = -rxt(k,188)*y(k,219)
    2199   315224452 :          mat(k,1528) = -rxt(k,189)*y(k,219)
    2200   315224452 :          mat(k,2068) = mat(k,2068) + rxt(k,583)*y(k,220)
    2201   315224452 :          mat(k,860) = .900_r8*rxt(k,581)*y(k,220) + .800_r8*rxt(k,579)*y(k,221)
    2202   315224452 :          mat(k,675) = rxt(k,583)*y(k,134) + .900_r8*rxt(k,581)*y(k,203)
    2203   315224452 :          mat(k,844) = .800_r8*rxt(k,579)*y(k,203)
    2204             :          mat(k,676) = -(rxt(k,581)*y(k,203) + rxt(k,582)*y(k,135) + (rxt(k,583) &
    2205   315224452 :                       + rxt(k,584)) * y(k,134))
    2206   315224452 :          mat(k,861) = -rxt(k,581)*y(k,220)
    2207   315224452 :          mat(k,1529) = -rxt(k,582)*y(k,220)
    2208   315224452 :          mat(k,2071) = -(rxt(k,583) + rxt(k,584)) * y(k,220)
    2209   315224452 :          mat(k,845) = -(rxt(k,579)*y(k,203))
    2210   315224452 :          mat(k,863) = -rxt(k,579)*y(k,221)
    2211   315224452 :          mat(k,996) = rxt(k,588)*y(k,227)
    2212   315224452 :          mat(k,1873) = rxt(k,590)*y(k,227)
    2213   315224452 :          mat(k,2077) = rxt(k,583)*y(k,220)
    2214   315224452 :          mat(k,1532) = rxt(k,587)*y(k,222)
    2215   315224452 :          mat(k,678) = rxt(k,583)*y(k,134)
    2216   315224452 :          mat(k,504) = rxt(k,587)*y(k,135)
    2217   315224452 :          mat(k,852) = rxt(k,588)*y(k,112) + rxt(k,590)*y(k,124)
    2218   315224452 :          mat(k,502) = -(rxt(k,585)*y(k,134) + (rxt(k,586) + rxt(k,587)) * y(k,135))
    2219   315224452 :          mat(k,2067) = -rxt(k,585)*y(k,222)
    2220   315224452 :          mat(k,1527) = -(rxt(k,586) + rxt(k,587)) * y(k,222)
    2221             :          mat(k,1106) = -(rxt(k,485)*y(k,201) + rxt(k,486)*y(k,90) + rxt(k,487) &
    2222   315224452 :                       *y(k,124) + rxt(k,488)*y(k,126))
    2223   315224452 :          mat(k,2386) = -rxt(k,485)*y(k,223)
    2224   315224452 :          mat(k,2331) = -rxt(k,486)*y(k,223)
    2225   315224452 :          mat(k,1888) = -rxt(k,487)*y(k,223)
    2226   315224452 :          mat(k,1626) = -rxt(k,488)*y(k,223)
    2227   315224452 :          mat(k,980) = rxt(k,479)*y(k,126)
    2228   315224452 :          mat(k,1024) = rxt(k,482)*y(k,126)
    2229             :          mat(k,1626) = mat(k,1626) + rxt(k,479)*y(k,6) + rxt(k,482)*y(k,110) &
    2230   315224452 :                       + .500_r8*rxt(k,499)*y(k,180)
    2231   315224452 :          mat(k,393) = rxt(k,489)*y(k,228)
    2232   315224452 :          mat(k,1073) = .500_r8*rxt(k,499)*y(k,126)
    2233   315224452 :          mat(k,1789) = rxt(k,489)*y(k,128)
    2234             :          mat(k,2031) = -(rxt(k,153)*y(k,77) + rxt(k,154)*y(k,241) + (rxt(k,156) &
    2235             :                       + rxt(k,157)) * y(k,135) + rxt(k,158)*y(k,136) + (rxt(k,206) &
    2236             :                       + rxt(k,207)) * y(k,113) + rxt(k,239)*y(k,33) + rxt(k,240) &
    2237             :                       *y(k,34) + rxt(k,241)*y(k,36) + rxt(k,242)*y(k,37) + rxt(k,243) &
    2238             :                       *y(k,38) + rxt(k,244)*y(k,39) + rxt(k,245)*y(k,40) + (rxt(k,246) &
    2239             :                       + rxt(k,247)) * y(k,85) + rxt(k,266)*y(k,35) + rxt(k,267) &
    2240             :                       *y(k,55) + rxt(k,268)*y(k,78) + (rxt(k,269) + rxt(k,270) &
    2241             :                       ) * y(k,81) + rxt(k,275)*y(k,64) + rxt(k,276)*y(k,65) + rxt(k,289) &
    2242             :                       *y(k,41) + rxt(k,290)*y(k,43) + rxt(k,291)*y(k,82) + rxt(k,292) &
    2243             :                       *y(k,83) + rxt(k,293)*y(k,84) + (rxt(k,310) + rxt(k,311) &
    2244   315224452 :                       + rxt(k,312)) * y(k,54) + rxt(k,313)*y(k,86))
    2245   315224452 :          mat(k,1465) = -rxt(k,153)*y(k,224)
    2246   315224452 :          mat(k,2440) = -rxt(k,154)*y(k,224)
    2247   315224452 :          mat(k,1549) = -(rxt(k,156) + rxt(k,157)) * y(k,224)
    2248   315224452 :          mat(k,2228) = -rxt(k,158)*y(k,224)
    2249   315224452 :          mat(k,259) = -(rxt(k,206) + rxt(k,207)) * y(k,224)
    2250   315224452 :          mat(k,102) = -rxt(k,239)*y(k,224)
    2251   315224452 :          mat(k,142) = -rxt(k,240)*y(k,224)
    2252   315224452 :          mat(k,113) = -rxt(k,241)*y(k,224)
    2253   315224452 :          mat(k,152) = -rxt(k,242)*y(k,224)
    2254   315224452 :          mat(k,117) = -rxt(k,243)*y(k,224)
    2255   315224452 :          mat(k,157) = -rxt(k,244)*y(k,224)
    2256   315224452 :          mat(k,121) = -rxt(k,245)*y(k,224)
    2257   315224452 :          mat(k,1502) = -(rxt(k,246) + rxt(k,247)) * y(k,224)
    2258   315224452 :          mat(k,148) = -rxt(k,266)*y(k,224)
    2259   315224452 :          mat(k,389) = -rxt(k,267)*y(k,224)
    2260   315224452 :          mat(k,110) = -rxt(k,268)*y(k,224)
    2261   315224452 :          mat(k,832) = -(rxt(k,269) + rxt(k,270)) * y(k,224)
    2262   315224452 :          mat(k,240) = -rxt(k,275)*y(k,224)
    2263   315224452 :          mat(k,248) = -rxt(k,276)*y(k,224)
    2264   315224452 :          mat(k,483) = -rxt(k,289)*y(k,224)
    2265   315224452 :          mat(k,606) = -rxt(k,290)*y(k,224)
    2266   315224452 :          mat(k,244) = -rxt(k,291)*y(k,224)
    2267   315224452 :          mat(k,254) = -rxt(k,292)*y(k,224)
    2268   315224452 :          mat(k,295) = -rxt(k,293)*y(k,224)
    2269   315224452 :          mat(k,2253) = -(rxt(k,310) + rxt(k,311) + rxt(k,312)) * y(k,224)
    2270   315224452 :          mat(k,184) = -rxt(k,313)*y(k,224)
    2271   315224452 :          mat(k,1549) = mat(k,1549) + rxt(k,189)*y(k,219)
    2272   315224452 :          mat(k,871) = .850_r8*rxt(k,580)*y(k,227)
    2273   315224452 :          mat(k,533) = rxt(k,189)*y(k,135)
    2274   315224452 :          mat(k,858) = .850_r8*rxt(k,580)*y(k,203)
    2275   315224452 :          mat(k,177) = -(rxt(k,160)*y(k,134) + rxt(k,161)*y(k,135))
    2276   315224452 :          mat(k,2064) = -rxt(k,160)*y(k,225)
    2277   315224452 :          mat(k,1524) = -rxt(k,161)*y(k,225)
    2278   315224452 :          mat(k,1442) = rxt(k,162)*y(k,226)
    2279   315224452 :          mat(k,2064) = mat(k,2064) + rxt(k,164)*y(k,226)
    2280   315224452 :          mat(k,1524) = mat(k,1524) + rxt(k,165)*y(k,226)
    2281   315224452 :          mat(k,2179) = rxt(k,166)*y(k,226)
    2282             :          mat(k,179) = rxt(k,162)*y(k,63) + rxt(k,164)*y(k,134) + rxt(k,165)*y(k,135) &
    2283   315224452 :                       + rxt(k,166)*y(k,136)
    2284             :          mat(k,180) = -(rxt(k,162)*y(k,63) + rxt(k,164)*y(k,134) + rxt(k,165)*y(k,135) &
    2285   315224452 :                       + rxt(k,166)*y(k,136))
    2286   315224452 :          mat(k,1443) = -rxt(k,162)*y(k,226)
    2287   315224452 :          mat(k,2065) = -rxt(k,164)*y(k,226)
    2288   315224452 :          mat(k,1525) = -rxt(k,165)*y(k,226)
    2289   315224452 :          mat(k,2180) = -rxt(k,166)*y(k,226)
    2290   315224452 :          mat(k,1525) = mat(k,1525) + rxt(k,156)*y(k,224)
    2291   325174377 :          mat(k,2007) = rxt(k,156)*y(k,135)
    2292             :       end do
    2293     9949925 :       end subroutine nlnmat09
    2294     9949925 :       subroutine nlnmat10( avec_len, mat, y, rxt )
    2295             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    2296             :       implicit none
    2297             : !----------------------------------------------
    2298             : ! ... dummy arguments
    2299             : !----------------------------------------------
    2300             :       integer, intent(in) :: avec_len
    2301             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    2302             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    2303             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    2304             : !----------------------------------------------
    2305             : ! ... local variables
    2306             : !----------------------------------------------
    2307             :       integer :: k
    2308             : !----------------------------------------------
    2309             : ! ... complete matrix entries implicit species
    2310             : !----------------------------------------------
    2311   325174377 :       do k = 1,avec_len
    2312   315224452 :          mat(k,853) = -(rxt(k,580)*y(k,203) + rxt(k,588)*y(k,112) + rxt(k,590) &
    2313   315224452 :                       *y(k,124))
    2314   315224452 :          mat(k,864) = -rxt(k,580)*y(k,227)
    2315   315224452 :          mat(k,997) = -rxt(k,588)*y(k,227)
    2316   315224452 :          mat(k,1874) = -rxt(k,590)*y(k,227)
    2317   315224452 :          mat(k,1446) = rxt(k,591)*y(k,229)
    2318   315224452 :          mat(k,1533) = rxt(k,582)*y(k,220) + rxt(k,586)*y(k,222) + rxt(k,593)*y(k,229)
    2319   315224452 :          mat(k,679) = rxt(k,582)*y(k,135)
    2320   315224452 :          mat(k,505) = rxt(k,586)*y(k,135)
    2321   315224452 :          mat(k,807) = rxt(k,591)*y(k,63) + rxt(k,593)*y(k,135)
    2322             :          mat(k,1818) = -(rxt(k,179)*y(k,77) + rxt(k,180)*y(k,79) + rxt(k,181)*y(k,90) &
    2323             :                       + rxt(k,182)*y(k,134) + rxt(k,183)*y(k,136) + (4._r8*rxt(k,184) &
    2324             :                       + 4._r8*rxt(k,185)) * y(k,228) + rxt(k,187)*y(k,91) + rxt(k,201) &
    2325             :                       *y(k,126) + rxt(k,202)*y(k,112) + rxt(k,210)*y(k,125) + rxt(k,211) &
    2326             :                       *y(k,89) + rxt(k,230)*y(k,60) + (rxt(k,232) + rxt(k,233) &
    2327             :                       ) * y(k,59) + rxt(k,235)*y(k,85) + rxt(k,238)*y(k,93) + rxt(k,262) &
    2328             :                       *y(k,19) + rxt(k,264)*y(k,81) + rxt(k,278)*y(k,41) + rxt(k,280) &
    2329             :                       *y(k,43) + rxt(k,281)*y(k,44) + rxt(k,283)*y(k,46) + rxt(k,285) &
    2330             :                       *y(k,55) + rxt(k,286)*y(k,82) + rxt(k,287)*y(k,83) + rxt(k,288) &
    2331             :                       *y(k,84) + rxt(k,297)*y(k,42) + rxt(k,302)*y(k,52) + rxt(k,303) &
    2332             :                       *y(k,53) + rxt(k,304)*y(k,54) + rxt(k,305)*y(k,86) + rxt(k,306) &
    2333             :                       *y(k,87) + rxt(k,314)*y(k,62) + rxt(k,316)*y(k,24) + rxt(k,323) &
    2334             :                       *y(k,26) + rxt(k,324)*y(k,27) + rxt(k,326)*y(k,28) + rxt(k,328) &
    2335             :                       *y(k,45) + rxt(k,329)*y(k,47) + rxt(k,334)*y(k,50) + rxt(k,335) &
    2336             :                       *y(k,51) + rxt(k,340)*y(k,74) + rxt(k,341)*y(k,75) + rxt(k,342) &
    2337             :                       *y(k,141) + rxt(k,343)*y(k,25) + rxt(k,351)*y(k,30) + rxt(k,352) &
    2338             :                       *y(k,31) + rxt(k,354)*y(k,49) + rxt(k,356)*y(k,96) + rxt(k,357) &
    2339             :                       *y(k,127) + rxt(k,360)*y(k,148) + rxt(k,364)*y(k,149) + rxt(k,365) &
    2340             :                       *y(k,29) + rxt(k,366)*y(k,48) + rxt(k,368)*y(k,16) + rxt(k,371) &
    2341             :                       *y(k,94) + rxt(k,379)*y(k,105) + rxt(k,380)*y(k,106) + rxt(k,389) &
    2342             :                       *y(k,107) + rxt(k,390)*y(k,108) + rxt(k,391)*y(k,109) + rxt(k,393) &
    2343             :                       *y(k,111) + rxt(k,396)*y(k,1) + rxt(k,400)*y(k,2) + rxt(k,401) &
    2344             :                       *y(k,15) + rxt(k,402)*y(k,95) + rxt(k,403)*y(k,97) + rxt(k,404) &
    2345             :                       *y(k,98) + rxt(k,416)*y(k,100) + rxt(k,417)*y(k,101) + rxt(k,424) &
    2346             :                       *y(k,102) + rxt(k,426)*y(k,99) + rxt(k,427)*y(k,103) + rxt(k,428) &
    2347             :                       *y(k,115) + rxt(k,429)*y(k,116) + rxt(k,435)*y(k,184) + rxt(k,438) &
    2348             :                       *y(k,7) + rxt(k,441)*y(k,8) + rxt(k,442)*y(k,22) + rxt(k,444) &
    2349             :                       *y(k,23) + rxt(k,448)*y(k,32) + rxt(k,449)*y(k,66) + rxt(k,461) &
    2350             :                       *y(k,144) + rxt(k,464)*y(k,145) + rxt(k,468)*y(k,182) + rxt(k,469) &
    2351             :                       *y(k,183) + rxt(k,471)*y(k,185) + rxt(k,474)*y(k,186) + rxt(k,477) &
    2352             :                       *y(k,187) + rxt(k,478)*y(k,188) + rxt(k,481)*y(k,6) + rxt(k,484) &
    2353             :                       *y(k,110) + rxt(k,489)*y(k,128) + rxt(k,493)*y(k,177) + rxt(k,494) &
    2354             :                       *y(k,178) + rxt(k,498)*y(k,179) + rxt(k,500)*y(k,180) + rxt(k,501) &
    2355             :                       *y(k,181) + (rxt(k,503) + rxt(k,517)) * y(k,67) + rxt(k,505) &
    2356             :                       *y(k,139) + rxt(k,507)*y(k,153) + rxt(k,511)*y(k,150) + rxt(k,516) &
    2357   315224452 :                       *y(k,152) + rxt(k,519)*y(k,120))
    2358   315224452 :          mat(k,1464) = -rxt(k,179)*y(k,228)
    2359   315224452 :          mat(k,584) = -rxt(k,180)*y(k,228)
    2360   315224452 :          mat(k,2357) = -rxt(k,181)*y(k,228)
    2361   315224452 :          mat(k,2093) = -rxt(k,182)*y(k,228)
    2362   315224452 :          mat(k,2224) = -rxt(k,183)*y(k,228)
    2363   315224452 :          mat(k,475) = -rxt(k,187)*y(k,228)
    2364   315224452 :          mat(k,1653) = -rxt(k,201)*y(k,228)
    2365   315224452 :          mat(k,1003) = -rxt(k,202)*y(k,228)
    2366   315224452 :          mat(k,1958) = -rxt(k,210)*y(k,228)
    2367   315224452 :          mat(k,2050) = -rxt(k,211)*y(k,228)
    2368   315224452 :          mat(k,959) = -rxt(k,230)*y(k,228)
    2369   315224452 :          mat(k,1594) = -(rxt(k,232) + rxt(k,233)) * y(k,228)
    2370   315224452 :          mat(k,1500) = -rxt(k,235)*y(k,228)
    2371   315224452 :          mat(k,840) = -rxt(k,238)*y(k,228)
    2372   315224452 :          mat(k,1568) = -rxt(k,262)*y(k,228)
    2373   315224452 :          mat(k,831) = -rxt(k,264)*y(k,228)
    2374   315224452 :          mat(k,482) = -rxt(k,278)*y(k,228)
    2375   315224452 :          mat(k,605) = -rxt(k,280)*y(k,228)
    2376   315224452 :          mat(k,124) = -rxt(k,281)*y(k,228)
    2377   315224452 :          mat(k,374) = -rxt(k,283)*y(k,228)
    2378   315224452 :          mat(k,388) = -rxt(k,285)*y(k,228)
    2379   315224452 :          mat(k,243) = -rxt(k,286)*y(k,228)
    2380   315224452 :          mat(k,253) = -rxt(k,287)*y(k,228)
    2381   315224452 :          mat(k,294) = -rxt(k,288)*y(k,228)
    2382   315224452 :          mat(k,1984) = -rxt(k,297)*y(k,228)
    2383   315224452 :          mat(k,825) = -rxt(k,302)*y(k,228)
    2384   315224452 :          mat(k,455) = -rxt(k,303)*y(k,228)
    2385   315224452 :          mat(k,2249) = -rxt(k,304)*y(k,228)
    2386   315224452 :          mat(k,183) = -rxt(k,305)*y(k,228)
    2387   315224452 :          mat(k,921) = -rxt(k,306)*y(k,228)
    2388   315224452 :          mat(k,1162) = -rxt(k,314)*y(k,228)
    2389   315224452 :          mat(k,289) = -rxt(k,316)*y(k,228)
    2390   315224452 :          mat(k,267) = -rxt(k,323)*y(k,228)
    2391   315224452 :          mat(k,353) = -rxt(k,324)*y(k,228)
    2392   315224452 :          mat(k,301) = -rxt(k,326)*y(k,228)
    2393   315224452 :          mat(k,1155) = -rxt(k,328)*y(k,228)
    2394   315224452 :          mat(k,105) = -rxt(k,329)*y(k,228)
    2395   315224452 :          mat(k,707) = -rxt(k,334)*y(k,228)
    2396   315224452 :          mat(k,623) = -rxt(k,335)*y(k,228)
    2397   315224452 :          mat(k,1168) = -rxt(k,340)*y(k,228)
    2398   315224452 :          mat(k,1057) = -rxt(k,341)*y(k,228)
    2399   315224452 :          mat(k,538) = -rxt(k,342)*y(k,228)
    2400   315224452 :          mat(k,554) = -rxt(k,343)*y(k,228)
    2401   315224452 :          mat(k,412) = -rxt(k,351)*y(k,228)
    2402   315224452 :          mat(k,307) = -rxt(k,352)*y(k,228)
    2403   315224452 :          mat(k,1285) = -rxt(k,354)*y(k,228)
    2404   315224452 :          mat(k,1211) = -rxt(k,356)*y(k,228)
    2405   315224452 :          mat(k,895) = -rxt(k,357)*y(k,228)
    2406   315224452 :          mat(k,546) = -rxt(k,360)*y(k,228)
    2407   315224452 :          mat(k,400) = -rxt(k,364)*y(k,228)
    2408   315224452 :          mat(k,1142) = -rxt(k,365)*y(k,228)
    2409   315224452 :          mat(k,1083) = -rxt(k,366)*y(k,228)
    2410   315224452 :          mat(k,360) = -rxt(k,368)*y(k,228)
    2411   315224452 :          mat(k,1201) = -rxt(k,371)*y(k,228)
    2412   315224452 :          mat(k,1275) = -rxt(k,379)*y(k,228)
    2413   315224452 :          mat(k,319) = -rxt(k,380)*y(k,228)
    2414   315224452 :          mat(k,521) = -rxt(k,389)*y(k,228)
    2415   315224452 :          mat(k,325) = -rxt(k,390)*y(k,228)
    2416   315224452 :          mat(k,616) = -rxt(k,391)*y(k,228)
    2417   315224452 :          mat(k,1382) = -rxt(k,393)*y(k,228)
    2418   315224452 :          mat(k,648) = -rxt(k,396)*y(k,228)
    2419   315224452 :          mat(k,694) = -rxt(k,400)*y(k,228)
    2420   315224452 :          mat(k,228) = -rxt(k,401)*y(k,228)
    2421   315224452 :          mat(k,224) = -rxt(k,402)*y(k,228)
    2422   315224452 :          mat(k,328) = -rxt(k,403)*y(k,228)
    2423   315224452 :          mat(k,135) = -rxt(k,404)*y(k,228)
    2424   315224452 :          mat(k,593) = -rxt(k,416)*y(k,228)
    2425   315224452 :          mat(k,563) = -rxt(k,417)*y(k,228)
    2426   315224452 :          mat(k,406) = -rxt(k,424)*y(k,228)
    2427   315224452 :          mat(k,887) = -rxt(k,426)*y(k,228)
    2428   315224452 :          mat(k,715) = -rxt(k,427)*y(k,228)
    2429   315224452 :          mat(k,430) = -rxt(k,428)*y(k,228)
    2430   315224452 :          mat(k,1095) = -rxt(k,429)*y(k,228)
    2431   315224452 :          mat(k,205) = -rxt(k,435)*y(k,228)
    2432   315224452 :          mat(k,164) = -rxt(k,438)*y(k,228)
    2433   315224452 :          mat(k,419) = -rxt(k,441)*y(k,228)
    2434   315224452 :          mat(k,237) = -rxt(k,442)*y(k,228)
    2435   315224452 :          mat(k,348) = -rxt(k,444)*y(k,228)
    2436   315224452 :          mat(k,272) = -rxt(k,448)*y(k,228)
    2437   315224452 :          mat(k,197) = -rxt(k,449)*y(k,228)
    2438   315224452 :          mat(k,173) = -rxt(k,461)*y(k,228)
    2439   315224452 :          mat(k,342) = -rxt(k,464)*y(k,228)
    2440   315224452 :          mat(k,673) = -rxt(k,468)*y(k,228)
    2441   315224452 :          mat(k,192) = -rxt(k,469)*y(k,228)
    2442   315224452 :          mat(k,214) = -rxt(k,471)*y(k,228)
    2443   315224452 :          mat(k,738) = -rxt(k,474)*y(k,228)
    2444   315224452 :          mat(k,219) = -rxt(k,477)*y(k,228)
    2445   315224452 :          mat(k,425) = -rxt(k,478)*y(k,228)
    2446   315224452 :          mat(k,988) = -rxt(k,481)*y(k,228)
    2447   315224452 :          mat(k,1032) = -rxt(k,484)*y(k,228)
    2448   315224452 :          mat(k,394) = -rxt(k,489)*y(k,228)
    2449   315224452 :          mat(k,659) = -rxt(k,493)*y(k,228)
    2450   315224452 :          mat(k,629) = -rxt(k,494)*y(k,228)
    2451   315224452 :          mat(k,490) = -rxt(k,498)*y(k,228)
    2452   315224452 :          mat(k,1078) = -rxt(k,500)*y(k,228)
    2453   315224452 :          mat(k,1124) = -rxt(k,501)*y(k,228)
    2454   315224452 :          mat(k,313) = -(rxt(k,503) + rxt(k,517)) * y(k,228)
    2455   315224452 :          mat(k,368) = -rxt(k,505)*y(k,228)
    2456   315224452 :          mat(k,949) = -rxt(k,507)*y(k,228)
    2457   315224452 :          mat(k,721) = -rxt(k,511)*y(k,228)
    2458   315224452 :          mat(k,1481) = -rxt(k,516)*y(k,228)
    2459   315224452 :          mat(k,99) = -rxt(k,519)*y(k,228)
    2460   315224452 :          mat(k,988) = mat(k,988) + .630_r8*rxt(k,480)*y(k,136)
    2461   315224452 :          mat(k,289) = mat(k,289) + .650_r8*rxt(k,316)*y(k,228)
    2462   315224452 :          mat(k,554) = mat(k,554) + .130_r8*rxt(k,318)*y(k,136)
    2463   315224452 :          mat(k,353) = mat(k,353) + .500_r8*rxt(k,324)*y(k,228)
    2464   315224452 :          mat(k,1142) = mat(k,1142) + .360_r8*rxt(k,347)*y(k,136)
    2465   315224452 :          mat(k,1984) = mat(k,1984) + rxt(k,296)*y(k,134)
    2466   315224452 :          mat(k,455) = mat(k,455) + .300_r8*rxt(k,303)*y(k,228)
    2467   315224452 :          mat(k,2249) = mat(k,2249) + rxt(k,310)*y(k,224)
    2468   315224452 :          mat(k,2160) = rxt(k,219)*y(k,90)
    2469   315224452 :          mat(k,928) = rxt(k,273)*y(k,241)
    2470   315224452 :          mat(k,2114) = 2.000_r8*rxt(k,173)*y(k,90) + rxt(k,178)*y(k,136)
    2471   315224452 :          mat(k,1464) = mat(k,1464) + rxt(k,170)*y(k,134) + rxt(k,153)*y(k,224)
    2472   315224452 :          mat(k,584) = mat(k,584) + rxt(k,171)*y(k,134)
    2473   315224452 :          mat(k,831) = mat(k,831) + rxt(k,263)*y(k,134) + rxt(k,269)*y(k,224)
    2474   315224452 :          mat(k,1500) = mat(k,1500) + rxt(k,234)*y(k,134) + rxt(k,246)*y(k,224)
    2475   315224452 :          mat(k,183) = mat(k,183) + rxt(k,313)*y(k,224)
    2476             :          mat(k,2357) = mat(k,2357) + rxt(k,219)*y(k,56) + 2.000_r8*rxt(k,173)*y(k,76) &
    2477             :                       + rxt(k,203)*y(k,124) + rxt(k,198)*y(k,126) + rxt(k,176) &
    2478             :                       *y(k,134) + rxt(k,177)*y(k,136) + .400_r8*rxt(k,436)*y(k,191) &
    2479             :                       + .450_r8*rxt(k,332)*y(k,200) + .400_r8*rxt(k,450)*y(k,202) &
    2480             :                       + .450_r8*rxt(k,383)*y(k,215) + .400_r8*rxt(k,456)*y(k,216) &
    2481   315224452 :                       + .200_r8*rxt(k,387)*y(k,217) + .150_r8*rxt(k,362)*y(k,232)
    2482   315224452 :          mat(k,791) = rxt(k,265)*y(k,134)
    2483   315224452 :          mat(k,840) = mat(k,840) + rxt(k,237)*y(k,134)
    2484   315224452 :          mat(k,887) = mat(k,887) + .320_r8*rxt(k,425)*y(k,136)
    2485   315224452 :          mat(k,715) = mat(k,715) + .600_r8*rxt(k,427)*y(k,228)
    2486   315224452 :          mat(k,1275) = mat(k,1275) + .240_r8*rxt(k,378)*y(k,136)
    2487   315224452 :          mat(k,319) = mat(k,319) + .100_r8*rxt(k,380)*y(k,228)
    2488   315224452 :          mat(k,1032) = mat(k,1032) + .630_r8*rxt(k,483)*y(k,136)
    2489   315224452 :          mat(k,1382) = mat(k,1382) + .360_r8*rxt(k,392)*y(k,136)
    2490   315224452 :          mat(k,1913) = rxt(k,203)*y(k,90)
    2491   315224452 :          mat(k,1653) = mat(k,1653) + rxt(k,198)*y(k,90)
    2492             :          mat(k,2093) = mat(k,2093) + rxt(k,296)*y(k,42) + rxt(k,170)*y(k,77) &
    2493             :                       + rxt(k,171)*y(k,79) + rxt(k,263)*y(k,81) + rxt(k,234)*y(k,85) &
    2494   315224452 :                       + rxt(k,176)*y(k,90) + rxt(k,265)*y(k,92) + rxt(k,237)*y(k,93)
    2495             :          mat(k,2224) = mat(k,2224) + .630_r8*rxt(k,480)*y(k,6) + .130_r8*rxt(k,318) &
    2496             :                       *y(k,25) + .360_r8*rxt(k,347)*y(k,29) + rxt(k,178)*y(k,76) &
    2497             :                       + rxt(k,177)*y(k,90) + .320_r8*rxt(k,425)*y(k,99) &
    2498             :                       + .240_r8*rxt(k,378)*y(k,105) + .630_r8*rxt(k,483)*y(k,110) &
    2499   315224452 :                       + .360_r8*rxt(k,392)*y(k,111)
    2500   315224452 :          mat(k,546) = mat(k,546) + .500_r8*rxt(k,360)*y(k,228)
    2501   315224452 :          mat(k,205) = mat(k,205) + .500_r8*rxt(k,435)*y(k,228)
    2502   315224452 :          mat(k,525) = .400_r8*rxt(k,436)*y(k,90)
    2503   315224452 :          mat(k,1432) = .450_r8*rxt(k,332)*y(k,90)
    2504   315224452 :          mat(k,781) = .400_r8*rxt(k,450)*y(k,90)
    2505   315224452 :          mat(k,1401) = .450_r8*rxt(k,383)*y(k,90)
    2506   315224452 :          mat(k,914) = .400_r8*rxt(k,456)*y(k,90)
    2507   315224452 :          mat(k,701) = .200_r8*rxt(k,387)*y(k,90)
    2508             :          mat(k,2027) = rxt(k,310)*y(k,54) + rxt(k,153)*y(k,77) + rxt(k,269)*y(k,81) &
    2509             :                       + rxt(k,246)*y(k,85) + rxt(k,313)*y(k,86) + 2.000_r8*rxt(k,154) &
    2510   315224452 :                       *y(k,241)
    2511             :          mat(k,1818) = mat(k,1818) + .650_r8*rxt(k,316)*y(k,24) + .500_r8*rxt(k,324) &
    2512             :                       *y(k,27) + .300_r8*rxt(k,303)*y(k,53) + .600_r8*rxt(k,427) &
    2513             :                       *y(k,103) + .100_r8*rxt(k,380)*y(k,106) + .500_r8*rxt(k,360) &
    2514   315224452 :                       *y(k,148) + .500_r8*rxt(k,435)*y(k,184)
    2515   315224452 :          mat(k,1220) = .150_r8*rxt(k,362)*y(k,90)
    2516   325174377 :          mat(k,2436) = rxt(k,273)*y(k,73) + 2.000_r8*rxt(k,154)*y(k,224)
    2517             :       end do
    2518     9949925 :       end subroutine nlnmat10
    2519     9949925 :       subroutine nlnmat11( avec_len, mat, y, rxt )
    2520             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    2521             :       implicit none
    2522             : !----------------------------------------------
    2523             : ! ... dummy arguments
    2524             : !----------------------------------------------
    2525             :       integer, intent(in) :: avec_len
    2526             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    2527             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    2528             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    2529             : !----------------------------------------------
    2530             : ! ... local variables
    2531             : !----------------------------------------------
    2532             :       integer :: k
    2533             : !----------------------------------------------
    2534             : ! ... complete matrix entries implicit species
    2535             : !----------------------------------------------
    2536   325174377 :       do k = 1,avec_len
    2537   315224452 :          mat(k,805) = -(rxt(k,591)*y(k,63) + rxt(k,593)*y(k,135))
    2538   315224452 :          mat(k,1444) = -rxt(k,591)*y(k,229)
    2539   315224452 :          mat(k,1531) = -rxt(k,593)*y(k,229)
    2540   315224452 :          mat(k,2074) = rxt(k,584)*y(k,220) + rxt(k,585)*y(k,222)
    2541   315224452 :          mat(k,677) = rxt(k,584)*y(k,134)
    2542   315224452 :          mat(k,503) = rxt(k,585)*y(k,134)
    2543   315224452 :          mat(k,448) = -(rxt(k,459)*y(k,90) + rxt(k,460)*y(k,124))
    2544   315224452 :          mat(k,2291) = -rxt(k,459)*y(k,230)
    2545   315224452 :          mat(k,1851) = -rxt(k,460)*y(k,230)
    2546   315224452 :          mat(k,195) = .200_r8*rxt(k,449)*y(k,228)
    2547   315224452 :          mat(k,171) = .140_r8*rxt(k,461)*y(k,228)
    2548   315224452 :          mat(k,340) = rxt(k,464)*y(k,228)
    2549             :          mat(k,1729) = .200_r8*rxt(k,449)*y(k,66) + .140_r8*rxt(k,461)*y(k,144) &
    2550   315224452 :                       + rxt(k,464)*y(k,145)
    2551   315224452 :          mat(k,814) = -(rxt(k,358)*y(k,90) + rxt(k,359)*y(k,124))
    2552   315224452 :          mat(k,2318) = -rxt(k,358)*y(k,231)
    2553   315224452 :          mat(k,1872) = -rxt(k,359)*y(k,231)
    2554   315224452 :          mat(k,1130) = rxt(k,365)*y(k,228)
    2555   315224452 :          mat(k,543) = .500_r8*rxt(k,360)*y(k,228)
    2556   315224452 :          mat(k,1767) = rxt(k,365)*y(k,29) + .500_r8*rxt(k,360)*y(k,148)
    2557             :          mat(k,1217) = -(rxt(k,361)*y(k,201) + rxt(k,362)*y(k,90) + rxt(k,363) &
    2558   315224452 :                       *y(k,124))
    2559   315224452 :          mat(k,2393) = -rxt(k,361)*y(k,232)
    2560   315224452 :          mat(k,2338) = -rxt(k,362)*y(k,232)
    2561   315224452 :          mat(k,1896) = -rxt(k,363)*y(k,232)
    2562   315224452 :          mat(k,983) = .060_r8*rxt(k,480)*y(k,136)
    2563   315224452 :          mat(k,1081) = rxt(k,366)*y(k,228)
    2564   315224452 :          mat(k,1027) = .060_r8*rxt(k,483)*y(k,136)
    2565   315224452 :          mat(k,2207) = .060_r8*rxt(k,480)*y(k,6) + .060_r8*rxt(k,483)*y(k,110)
    2566   315224452 :          mat(k,398) = rxt(k,364)*y(k,228)
    2567   315224452 :          mat(k,1121) = .150_r8*rxt(k,501)*y(k,228)
    2568             :          mat(k,1798) = rxt(k,366)*y(k,48) + rxt(k,364)*y(k,149) + .150_r8*rxt(k,501) &
    2569   315224452 :                       *y(k,181)
    2570             :          mat(k,1178) = -(rxt(k,490)*y(k,201) + rxt(k,491)*y(k,90) + rxt(k,492) &
    2571   315224452 :                       *y(k,124))
    2572   315224452 :          mat(k,2391) = -rxt(k,490)*y(k,233)
    2573   315224452 :          mat(k,2336) = -rxt(k,491)*y(k,233)
    2574   315224452 :          mat(k,1893) = -rxt(k,492)*y(k,233)
    2575   315224452 :          mat(k,1632) = .500_r8*rxt(k,499)*y(k,180)
    2576   315224452 :          mat(k,657) = rxt(k,493)*y(k,228)
    2577   315224452 :          mat(k,1076) = .500_r8*rxt(k,499)*y(k,126) + rxt(k,500)*y(k,228)
    2578   315224452 :          mat(k,1795) = rxt(k,493)*y(k,177) + rxt(k,500)*y(k,180)
    2579             :          mat(k,1062) = -(rxt(k,495)*y(k,201) + rxt(k,496)*y(k,90) + rxt(k,497) &
    2580   315224452 :                       *y(k,124))
    2581   315224452 :          mat(k,2382) = -rxt(k,495)*y(k,234)
    2582   315224452 :          mat(k,2328) = -rxt(k,496)*y(k,234)
    2583   315224452 :          mat(k,1884) = -rxt(k,497)*y(k,234)
    2584   315224452 :          mat(k,977) = rxt(k,481)*y(k,228)
    2585   315224452 :          mat(k,1021) = rxt(k,484)*y(k,228)
    2586   315224452 :          mat(k,487) = rxt(k,498)*y(k,228)
    2587   315224452 :          mat(k,1785) = rxt(k,481)*y(k,6) + rxt(k,484)*y(k,110) + rxt(k,498)*y(k,179)
    2588   315224452 :          mat(k,751) = -(rxt(k,466)*y(k,90) + rxt(k,467)*y(k,124))
    2589   315224452 :          mat(k,2313) = -rxt(k,466)*y(k,235)
    2590   315224452 :          mat(k,1868) = -rxt(k,467)*y(k,235)
    2591   315224452 :          mat(k,667) = rxt(k,468)*y(k,228)
    2592   315224452 :          mat(k,191) = .650_r8*rxt(k,469)*y(k,228)
    2593   315224452 :          mat(k,1763) = rxt(k,468)*y(k,182) + .650_r8*rxt(k,469)*y(k,183)
    2594   315224452 :          mat(k,88) = -(rxt(k,557)*y(k,90) + rxt(k,558)*y(k,124))
    2595   315224452 :          mat(k,2273) = -rxt(k,557)*y(k,236)
    2596   315224452 :          mat(k,1842) = -rxt(k,558)*y(k,236)
    2597   315224452 :          mat(k,186) = rxt(k,556)*y(k,228)
    2598   315224452 :          mat(k,1679) = rxt(k,556)*y(k,183)
    2599             :          mat(k,1233) = -(rxt(k,430)*y(k,200) + rxt(k,431)*y(k,201) + rxt(k,432) &
    2600   315224452 :                       *y(k,90) + rxt(k,433)*y(k,124) + rxt(k,434)*y(k,126))
    2601   315224452 :          mat(k,1419) = -rxt(k,430)*y(k,237)
    2602   315224452 :          mat(k,2394) = -rxt(k,431)*y(k,237)
    2603   315224452 :          mat(k,2339) = -rxt(k,432)*y(k,237)
    2604   315224452 :          mat(k,1897) = -rxt(k,433)*y(k,237)
    2605   315224452 :          mat(k,1636) = -rxt(k,434)*y(k,237)
    2606   315224452 :          mat(k,223) = rxt(k,402)*y(k,228)
    2607   315224452 :          mat(k,327) = rxt(k,403)*y(k,228)
    2608   315224452 :          mat(k,134) = rxt(k,404)*y(k,228)
    2609   315224452 :          mat(k,712) = .400_r8*rxt(k,427)*y(k,228)
    2610   315224452 :          mat(k,204) = .500_r8*rxt(k,435)*y(k,228)
    2611             :          mat(k,1799) = rxt(k,402)*y(k,95) + rxt(k,403)*y(k,97) + rxt(k,404)*y(k,98) &
    2612   315224452 :                       + .400_r8*rxt(k,427)*y(k,103) + .500_r8*rxt(k,435)*y(k,184)
    2613   315224452 :          mat(k,767) = -(rxt(k,472)*y(k,90) + rxt(k,473)*y(k,124))
    2614   315224452 :          mat(k,2314) = -rxt(k,472)*y(k,238)
    2615   315224452 :          mat(k,1869) = -rxt(k,473)*y(k,238)
    2616   315224452 :          mat(k,211) = .560_r8*rxt(k,471)*y(k,228)
    2617   315224452 :          mat(k,731) = rxt(k,474)*y(k,228)
    2618   315224452 :          mat(k,1764) = .560_r8*rxt(k,471)*y(k,185) + rxt(k,474)*y(k,186)
    2619   315224452 :          mat(k,94) = -(rxt(k,560)*y(k,90) + rxt(k,561)*y(k,124))
    2620   315224452 :          mat(k,2274) = -rxt(k,560)*y(k,239)
    2621   315224452 :          mat(k,1843) = -rxt(k,561)*y(k,239)
    2622   315224452 :          mat(k,206) = rxt(k,559)*y(k,228)
    2623   315224452 :          mat(k,1680) = rxt(k,559)*y(k,185)
    2624   315224452 :          mat(k,510) = -(rxt(k,475)*y(k,90) + rxt(k,476)*y(k,124))
    2625   315224452 :          mat(k,2299) = -rxt(k,475)*y(k,240)
    2626   315224452 :          mat(k,1856) = -rxt(k,476)*y(k,240)
    2627   315224452 :          mat(k,218) = .300_r8*rxt(k,477)*y(k,228)
    2628   315224452 :          mat(k,422) = rxt(k,478)*y(k,228)
    2629   315224452 :          mat(k,1737) = .300_r8*rxt(k,477)*y(k,187) + rxt(k,478)*y(k,188)
    2630             :          mat(k,2449) = -(rxt(k,154)*y(k,224) + rxt(k,273)*y(k,73) + rxt(k,518) &
    2631   315224452 :                       *y(k,154))
    2632   315224452 :          mat(k,2040) = -rxt(k,154)*y(k,241)
    2633   315224452 :          mat(k,933) = -rxt(k,273)*y(k,241)
    2634   315224452 :          mat(k,264) = -rxt(k,518)*y(k,241)
    2635   315224452 :          mat(k,303) = rxt(k,326)*y(k,228)
    2636   315224452 :          mat(k,414) = rxt(k,351)*y(k,228)
    2637   315224452 :          mat(k,309) = rxt(k,352)*y(k,228)
    2638   315224452 :          mat(k,485) = rxt(k,278)*y(k,228)
    2639   315224452 :          mat(k,1997) = rxt(k,297)*y(k,228)
    2640   315224452 :          mat(k,610) = rxt(k,280)*y(k,228)
    2641   315224452 :          mat(k,126) = rxt(k,281)*y(k,228)
    2642   315224452 :          mat(k,1159) = rxt(k,328)*y(k,228)
    2643   315224452 :          mat(k,378) = rxt(k,283)*y(k,228)
    2644   315224452 :          mat(k,1085) = rxt(k,366)*y(k,228)
    2645   315224452 :          mat(k,1288) = rxt(k,354)*y(k,228)
    2646   315224452 :          mat(k,709) = rxt(k,334)*y(k,228)
    2647   315224452 :          mat(k,626) = rxt(k,335)*y(k,228)
    2648   315224452 :          mat(k,459) = rxt(k,303)*y(k,228)
    2649   315224452 :          mat(k,2262) = rxt(k,304)*y(k,228)
    2650   315224452 :          mat(k,2127) = rxt(k,174)*y(k,90)
    2651   315224452 :          mat(k,1472) = rxt(k,179)*y(k,228)
    2652   315224452 :          mat(k,588) = rxt(k,180)*y(k,228)
    2653   315224452 :          mat(k,835) = rxt(k,264)*y(k,228)
    2654   315224452 :          mat(k,297) = rxt(k,288)*y(k,228)
    2655             :          mat(k,1507) = (rxt(k,570)+rxt(k,575))*y(k,92) + (rxt(k,563)+rxt(k,569) &
    2656   315224452 :                        +rxt(k,574))*y(k,93) + rxt(k,235)*y(k,228)
    2657   315224452 :          mat(k,923) = rxt(k,306)*y(k,228)
    2658   315224452 :          mat(k,2063) = rxt(k,211)*y(k,228)
    2659   315224452 :          mat(k,2370) = rxt(k,174)*y(k,76) + rxt(k,181)*y(k,228)
    2660   315224452 :          mat(k,478) = rxt(k,187)*y(k,228)
    2661   315224452 :          mat(k,794) = (rxt(k,570)+rxt(k,575))*y(k,85)
    2662   315224452 :          mat(k,843) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,85) + rxt(k,238)*y(k,228)
    2663   315224452 :          mat(k,1279) = .500_r8*rxt(k,379)*y(k,228)
    2664   315224452 :          mat(k,100) = rxt(k,519)*y(k,228)
    2665   315224452 :          mat(k,549) = rxt(k,360)*y(k,228)
    2666   315224452 :          mat(k,402) = rxt(k,364)*y(k,228)
    2667             :          mat(k,1831) = rxt(k,326)*y(k,28) + rxt(k,351)*y(k,30) + rxt(k,352)*y(k,31) &
    2668             :                       + rxt(k,278)*y(k,41) + rxt(k,297)*y(k,42) + rxt(k,280)*y(k,43) &
    2669             :                       + rxt(k,281)*y(k,44) + rxt(k,328)*y(k,45) + rxt(k,283)*y(k,46) &
    2670             :                       + rxt(k,366)*y(k,48) + rxt(k,354)*y(k,49) + rxt(k,334)*y(k,50) &
    2671             :                       + rxt(k,335)*y(k,51) + rxt(k,303)*y(k,53) + rxt(k,304)*y(k,54) &
    2672             :                       + rxt(k,179)*y(k,77) + rxt(k,180)*y(k,79) + rxt(k,264)*y(k,81) &
    2673             :                       + rxt(k,288)*y(k,84) + rxt(k,235)*y(k,85) + rxt(k,306)*y(k,87) &
    2674             :                       + rxt(k,211)*y(k,89) + rxt(k,181)*y(k,90) + rxt(k,187)*y(k,91) &
    2675             :                       + rxt(k,238)*y(k,93) + .500_r8*rxt(k,379)*y(k,105) + rxt(k,519) &
    2676             :                       *y(k,120) + rxt(k,360)*y(k,148) + rxt(k,364)*y(k,149) &
    2677   325174377 :                       + 2.000_r8*rxt(k,184)*y(k,228)
    2678             :       end do
    2679     9949925 :       end subroutine nlnmat11
    2680     9949925 :       subroutine nlnmat_finit( avec_len, mat, lmat, dti )
    2681             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    2682             :       implicit none
    2683             : !----------------------------------------------
    2684             : ! ... dummy arguments
    2685             : !----------------------------------------------
    2686             :       integer, intent(in) :: avec_len
    2687             :       real(r8), intent(in) :: dti(veclen)
    2688             :       real(r8), intent(in) :: lmat(veclen,nzcnt)
    2689             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    2690             : !----------------------------------------------
    2691             : ! ... local variables
    2692             : !----------------------------------------------
    2693             :       integer :: k
    2694             : !----------------------------------------------
    2695             : ! ... complete matrix entries implicit species
    2696             : !----------------------------------------------
    2697   325174377 :       do k = 1,avec_len
    2698   315224452 :          mat(k, 1) = lmat(k, 1)
    2699   315224452 :          mat(k, 2) = lmat(k, 2)
    2700   315224452 :          mat(k, 3) = lmat(k, 3)
    2701   315224452 :          mat(k, 4) = lmat(k, 4)
    2702   315224452 :          mat(k, 5) = lmat(k, 5)
    2703   315224452 :          mat(k, 6) = lmat(k, 6)
    2704   315224452 :          mat(k, 7) = lmat(k, 7)
    2705   315224452 :          mat(k, 8) = lmat(k, 8)
    2706   315224452 :          mat(k, 9) = lmat(k, 9)
    2707   315224452 :          mat(k, 10) = lmat(k, 10)
    2708   315224452 :          mat(k, 11) = lmat(k, 11)
    2709   315224452 :          mat(k, 12) = lmat(k, 12)
    2710   315224452 :          mat(k, 13) = lmat(k, 13)
    2711   315224452 :          mat(k, 14) = lmat(k, 14)
    2712   315224452 :          mat(k, 15) = lmat(k, 15)
    2713   315224452 :          mat(k, 16) = lmat(k, 16)
    2714   315224452 :          mat(k, 17) = lmat(k, 17)
    2715   315224452 :          mat(k, 18) = lmat(k, 18)
    2716   315224452 :          mat(k, 19) = lmat(k, 19)
    2717   315224452 :          mat(k, 20) = lmat(k, 20)
    2718   315224452 :          mat(k, 21) = lmat(k, 21)
    2719   315224452 :          mat(k, 22) = lmat(k, 22)
    2720   315224452 :          mat(k, 23) = lmat(k, 23)
    2721   315224452 :          mat(k, 24) = lmat(k, 24)
    2722   315224452 :          mat(k, 25) = lmat(k, 25)
    2723   315224452 :          mat(k, 26) = lmat(k, 26)
    2724   315224452 :          mat(k, 27) = lmat(k, 27)
    2725   315224452 :          mat(k, 28) = lmat(k, 28)
    2726   315224452 :          mat(k, 29) = lmat(k, 29)
    2727   315224452 :          mat(k, 30) = lmat(k, 30)
    2728   315224452 :          mat(k, 31) = lmat(k, 31)
    2729   315224452 :          mat(k, 32) = lmat(k, 32)
    2730   315224452 :          mat(k, 33) = lmat(k, 33)
    2731   315224452 :          mat(k, 34) = lmat(k, 34)
    2732   315224452 :          mat(k, 35) = lmat(k, 35)
    2733   315224452 :          mat(k, 36) = lmat(k, 36)
    2734   315224452 :          mat(k, 37) = lmat(k, 37)
    2735   315224452 :          mat(k, 38) = lmat(k, 38)
    2736   315224452 :          mat(k, 39) = lmat(k, 39)
    2737   315224452 :          mat(k, 40) = lmat(k, 40)
    2738   315224452 :          mat(k, 41) = lmat(k, 41)
    2739   315224452 :          mat(k, 42) = lmat(k, 42)
    2740   315224452 :          mat(k, 43) = lmat(k, 43)
    2741   315224452 :          mat(k, 44) = lmat(k, 44)
    2742   315224452 :          mat(k, 50) = mat(k, 50) + lmat(k, 50)
    2743   315224452 :          mat(k, 56) = mat(k, 56) + lmat(k, 56)
    2744   315224452 :          mat(k, 62) = mat(k, 62) + lmat(k, 62)
    2745   315224452 :          mat(k, 68) = mat(k, 68) + lmat(k, 68)
    2746   315224452 :          mat(k, 74) = mat(k, 74) + lmat(k, 74)
    2747   315224452 :          mat(k, 76) = mat(k, 76) + lmat(k, 76)
    2748   315224452 :          mat(k, 82) = mat(k, 82) + lmat(k, 82)
    2749   315224452 :          mat(k, 88) = mat(k, 88) + lmat(k, 88)
    2750   315224452 :          mat(k, 94) = mat(k, 94) + lmat(k, 94)
    2751   315224452 :          mat(k, 95) = lmat(k, 95)
    2752   315224452 :          mat(k, 96) = lmat(k, 96)
    2753   315224452 :          mat(k, 97) = lmat(k, 97)
    2754   315224452 :          mat(k, 98) = mat(k, 98) + lmat(k, 98)
    2755   315224452 :          mat(k, 101) = mat(k, 101) + lmat(k, 101)
    2756   315224452 :          mat(k, 103) = mat(k, 103) + lmat(k, 103)
    2757   315224452 :          mat(k, 104) = mat(k, 104) + lmat(k, 104)
    2758   315224452 :          mat(k, 107) = mat(k, 107) + lmat(k, 107)
    2759   315224452 :          mat(k, 108) = mat(k, 108) + lmat(k, 108)
    2760   315224452 :          mat(k, 109) = mat(k, 109) + lmat(k, 109)
    2761   315224452 :          mat(k, 111) = mat(k, 111) + lmat(k, 111)
    2762   315224452 :          mat(k, 112) = mat(k, 112) + lmat(k, 112)
    2763   315224452 :          mat(k, 114) = mat(k, 114) + lmat(k, 114)
    2764   315224452 :          mat(k, 115) = mat(k, 115) + lmat(k, 115)
    2765   315224452 :          mat(k, 116) = mat(k, 116) + lmat(k, 116)
    2766   315224452 :          mat(k, 118) = mat(k, 118) + lmat(k, 118)
    2767   315224452 :          mat(k, 119) = mat(k, 119) + lmat(k, 119)
    2768   315224452 :          mat(k, 120) = mat(k, 120) + lmat(k, 120)
    2769   315224452 :          mat(k, 122) = mat(k, 122) + lmat(k, 122)
    2770   315224452 :          mat(k, 123) = mat(k, 123) + lmat(k, 123)
    2771   315224452 :          mat(k, 125) = mat(k, 125) + lmat(k, 125)
    2772   315224452 :          mat(k, 127) = lmat(k, 127)
    2773   315224452 :          mat(k, 128) = lmat(k, 128)
    2774   315224452 :          mat(k, 129) = lmat(k, 129)
    2775   315224452 :          mat(k, 130) = lmat(k, 130)
    2776   315224452 :          mat(k, 131) = lmat(k, 131)
    2777   315224452 :          mat(k, 132) = lmat(k, 132)
    2778   315224452 :          mat(k, 133) = mat(k, 133) + lmat(k, 133)
    2779   315224452 :          mat(k, 136) = lmat(k, 136)
    2780   315224452 :          mat(k, 137) = lmat(k, 137)
    2781   315224452 :          mat(k, 138) = lmat(k, 138)
    2782   315224452 :          mat(k, 139) = mat(k, 139) + lmat(k, 139)
    2783   315224452 :          mat(k, 140) = mat(k, 140) + lmat(k, 140)
    2784   315224452 :          mat(k, 141) = mat(k, 141) + lmat(k, 141)
    2785   315224452 :          mat(k, 143) = mat(k, 143) + lmat(k, 143)
    2786   315224452 :          mat(k, 144) = mat(k, 144) + lmat(k, 144)
    2787   315224452 :          mat(k, 145) = mat(k, 145) + lmat(k, 145)
    2788   315224452 :          mat(k, 146) = mat(k, 146) + lmat(k, 146)
    2789   315224452 :          mat(k, 147) = mat(k, 147) + lmat(k, 147)
    2790   315224452 :          mat(k, 149) = mat(k, 149) + lmat(k, 149)
    2791   315224452 :          mat(k, 150) = mat(k, 150) + lmat(k, 150)
    2792   315224452 :          mat(k, 151) = mat(k, 151) + lmat(k, 151)
    2793   315224452 :          mat(k, 153) = mat(k, 153) + lmat(k, 153)
    2794   315224452 :          mat(k, 154) = mat(k, 154) + lmat(k, 154)
    2795   315224452 :          mat(k, 155) = mat(k, 155) + lmat(k, 155)
    2796   315224452 :          mat(k, 156) = mat(k, 156) + lmat(k, 156)
    2797   315224452 :          mat(k, 158) = mat(k, 158) + lmat(k, 158)
    2798   315224452 :          mat(k, 160) = mat(k, 160) + lmat(k, 160)
    2799   315224452 :          mat(k, 166) = lmat(k, 166)
    2800   315224452 :          mat(k, 167) = lmat(k, 167)
    2801   315224452 :          mat(k, 168) = lmat(k, 168)
    2802   315224452 :          mat(k, 169) = lmat(k, 169)
    2803   315224452 :          mat(k, 170) = mat(k, 170) + lmat(k, 170)
    2804   315224452 :          mat(k, 175) = lmat(k, 175)
    2805   315224452 :          mat(k, 176) = lmat(k, 176)
    2806   315224452 :          mat(k, 177) = mat(k, 177) + lmat(k, 177)
    2807   315224452 :          mat(k, 178) = mat(k, 178) + lmat(k, 178)
    2808   315224452 :          mat(k, 179) = mat(k, 179) + lmat(k, 179)
    2809   315224452 :          mat(k, 180) = mat(k, 180) + lmat(k, 180)
    2810   315224452 :          mat(k, 181) = lmat(k, 181)
    2811   315224452 :          mat(k, 182) = mat(k, 182) + lmat(k, 182)
    2812   315224452 :          mat(k, 187) = mat(k, 187) + lmat(k, 187)
    2813   315224452 :          mat(k, 194) = mat(k, 194) + lmat(k, 194)
    2814   315224452 :          mat(k, 199) = lmat(k, 199)
    2815   315224452 :          mat(k, 200) = lmat(k, 200)
    2816   315224452 :          mat(k, 201) = lmat(k, 201)
    2817   315224452 :          mat(k, 202) = lmat(k, 202)
    2818   315224452 :          mat(k, 203) = mat(k, 203) + lmat(k, 203)
    2819   315224452 :          mat(k, 205) = mat(k, 205) + lmat(k, 205)
    2820   315224452 :          mat(k, 208) = mat(k, 208) + lmat(k, 208)
    2821   315224452 :          mat(k, 216) = mat(k, 216) + lmat(k, 216)
    2822   315224452 :          mat(k, 221) = mat(k, 221) + lmat(k, 221)
    2823   315224452 :          mat(k, 222) = lmat(k, 222)
    2824   315224452 :          mat(k, 224) = mat(k, 224) + lmat(k, 224)
    2825   315224452 :          mat(k, 225) = lmat(k, 225)
    2826   315224452 :          mat(k, 226) = mat(k, 226) + lmat(k, 226)
    2827   315224452 :          mat(k, 229) = lmat(k, 229)
    2828   315224452 :          mat(k, 230) = lmat(k, 230)
    2829   315224452 :          mat(k, 231) = lmat(k, 231)
    2830   315224452 :          mat(k, 232) = lmat(k, 232)
    2831   315224452 :          mat(k, 233) = lmat(k, 233)
    2832   315224452 :          mat(k, 234) = lmat(k, 234)
    2833   315224452 :          mat(k, 235) = mat(k, 235) + lmat(k, 235)
    2834   315224452 :          mat(k, 238) = mat(k, 238) + lmat(k, 238)
    2835   315224452 :          mat(k, 239) = mat(k, 239) + lmat(k, 239)
    2836   315224452 :          mat(k, 241) = mat(k, 241) + lmat(k, 241)
    2837   315224452 :          mat(k, 242) = mat(k, 242) + lmat(k, 242)
    2838   315224452 :          mat(k, 245) = mat(k, 245) + lmat(k, 245)
    2839   315224452 :          mat(k, 246) = mat(k, 246) + lmat(k, 246)
    2840   315224452 :          mat(k, 247) = mat(k, 247) + lmat(k, 247)
    2841   315224452 :          mat(k, 249) = mat(k, 249) + lmat(k, 249)
    2842   315224452 :          mat(k, 250) = mat(k, 250) + lmat(k, 250)
    2843   315224452 :          mat(k, 251) = mat(k, 251) + lmat(k, 251)
    2844   315224452 :          mat(k, 255) = mat(k, 255) + lmat(k, 255)
    2845   315224452 :          mat(k, 256) = mat(k, 256) + lmat(k, 256)
    2846   315224452 :          mat(k, 259) = mat(k, 259) + lmat(k, 259)
    2847   315224452 :          mat(k, 261) = mat(k, 261) + lmat(k, 261)
    2848   315224452 :          mat(k, 262) = lmat(k, 262)
    2849   315224452 :          mat(k, 263) = lmat(k, 263)
    2850   315224452 :          mat(k, 265) = mat(k, 265) + lmat(k, 265)
    2851   315224452 :          mat(k, 269) = mat(k, 269) + lmat(k, 269)
    2852   315224452 :          mat(k, 270) = lmat(k, 270)
    2853   315224452 :          mat(k, 272) = mat(k, 272) + lmat(k, 272)
    2854   315224452 :          mat(k, 273) = lmat(k, 273)
    2855   315224452 :          mat(k, 274) = lmat(k, 274)
    2856   315224452 :          mat(k, 275) = lmat(k, 275)
    2857   315224452 :          mat(k, 276) = lmat(k, 276)
    2858   315224452 :          mat(k, 277) = lmat(k, 277)
    2859   315224452 :          mat(k, 278) = lmat(k, 278)
    2860   315224452 :          mat(k, 279) = lmat(k, 279)
    2861   315224452 :          mat(k, 280) = lmat(k, 280)
    2862   315224452 :          mat(k, 281) = lmat(k, 281)
    2863   315224452 :          mat(k, 282) = lmat(k, 282)
    2864   315224452 :          mat(k, 283) = lmat(k, 283)
    2865   315224452 :          mat(k, 284) = lmat(k, 284)
    2866   315224452 :          mat(k, 285) = mat(k, 285) + lmat(k, 285)
    2867   315224452 :          mat(k, 291) = mat(k, 291) + lmat(k, 291)
    2868   315224452 :          mat(k, 292) = mat(k, 292) + lmat(k, 292)
    2869   315224452 :          mat(k, 296) = mat(k, 296) + lmat(k, 296)
    2870   315224452 :          mat(k, 298) = mat(k, 298) + lmat(k, 298)
    2871   315224452 :          mat(k, 304) = mat(k, 304) + lmat(k, 304)
    2872   315224452 :          mat(k, 310) = mat(k, 310) + lmat(k, 310)
    2873   315224452 :          mat(k, 316) = mat(k, 316) + lmat(k, 316)
    2874   315224452 :          mat(k, 321) = mat(k, 321) + lmat(k, 321)
    2875   315224452 :          mat(k, 323) = lmat(k, 323)
    2876   315224452 :          mat(k, 324) = lmat(k, 324)
    2877   315224452 :          mat(k, 325) = mat(k, 325) + lmat(k, 325)
    2878   315224452 :          mat(k, 326) = mat(k, 326) + lmat(k, 326)
    2879   315224452 :          mat(k, 329) = lmat(k, 329)
    2880   315224452 :          mat(k, 330) = lmat(k, 330)
    2881   315224452 :          mat(k, 331) = lmat(k, 331)
    2882   315224452 :          mat(k, 332) = lmat(k, 332)
    2883   315224452 :          mat(k, 333) = lmat(k, 333)
    2884   315224452 :          mat(k, 334) = mat(k, 334) + lmat(k, 334)
    2885   315224452 :          mat(k, 337) = mat(k, 337) + lmat(k, 337)
    2886   315224452 :          mat(k, 338) = lmat(k, 338)
    2887   315224452 :          mat(k, 339) = mat(k, 339) + lmat(k, 339)
    2888   315224452 :          mat(k, 341) = lmat(k, 341)
    2889   315224452 :          mat(k, 342) = mat(k, 342) + lmat(k, 342)
    2890   315224452 :          mat(k, 343) = lmat(k, 343)
    2891   315224452 :          mat(k, 344) = lmat(k, 344)
    2892   315224452 :          mat(k, 345) = mat(k, 345) + lmat(k, 345)
    2893   315224452 :          mat(k, 348) = mat(k, 348) + lmat(k, 348)
    2894   315224452 :          mat(k, 349) = lmat(k, 349)
    2895   315224452 :          mat(k, 350) = mat(k, 350) + lmat(k, 350)
    2896   315224452 :          mat(k, 352) = mat(k, 352) + lmat(k, 352)
    2897   315224452 :          mat(k, 353) = mat(k, 353) + lmat(k, 353)
    2898   315224452 :          mat(k, 354) = lmat(k, 354)
    2899   315224452 :          mat(k, 355) = mat(k, 355) + lmat(k, 355)
    2900   315224452 :          mat(k, 363) = mat(k, 363) + lmat(k, 363)
    2901   315224452 :          mat(k, 364) = lmat(k, 364)
    2902   315224452 :          mat(k, 366) = mat(k, 366) + lmat(k, 366)
    2903   315224452 :          mat(k, 371) = mat(k, 371) + lmat(k, 371)
    2904   315224452 :          mat(k, 375) = mat(k, 375) + lmat(k, 375)
    2905   315224452 :          mat(k, 377) = lmat(k, 377)
    2906   315224452 :          mat(k, 379) = lmat(k, 379)
    2907   315224452 :          mat(k, 380) = lmat(k, 380)
    2908   315224452 :          mat(k, 381) = lmat(k, 381)
    2909   315224452 :          mat(k, 382) = lmat(k, 382)
    2910   315224452 :          mat(k, 383) = lmat(k, 383)
    2911   315224452 :          mat(k, 384) = lmat(k, 384)
    2912   315224452 :          mat(k, 385) = mat(k, 385) + lmat(k, 385)
    2913   315224452 :          mat(k, 387) = mat(k, 387) + lmat(k, 387)
    2914   315224452 :          mat(k, 391) = mat(k, 391) + lmat(k, 391)
    2915   315224452 :          mat(k, 392) = lmat(k, 392)
    2916   315224452 :          mat(k, 394) = mat(k, 394) + lmat(k, 394)
    2917   315224452 :          mat(k, 395) = lmat(k, 395)
    2918   315224452 :          mat(k, 396) = lmat(k, 396)
    2919   315224452 :          mat(k, 397) = mat(k, 397) + lmat(k, 397)
    2920   315224452 :          mat(k, 399) = lmat(k, 399)
    2921   315224452 :          mat(k, 400) = mat(k, 400) + lmat(k, 400)
    2922   315224452 :          mat(k, 401) = lmat(k, 401)
    2923   315224452 :          mat(k, 403) = mat(k, 403) + lmat(k, 403)
    2924   315224452 :          mat(k, 404) = lmat(k, 404)
    2925   315224452 :          mat(k, 407) = lmat(k, 407)
    2926   315224452 :          mat(k, 408) = mat(k, 408) + lmat(k, 408)
    2927   315224452 :          mat(k, 409) = mat(k, 409) + lmat(k, 409)
    2928   315224452 :          mat(k, 411) = lmat(k, 411)
    2929   315224452 :          mat(k, 412) = mat(k, 412) + lmat(k, 412)
    2930   315224452 :          mat(k, 413) = lmat(k, 413)
    2931   315224452 :          mat(k, 415) = mat(k, 415) + lmat(k, 415)
    2932   315224452 :          mat(k, 416) = lmat(k, 416)
    2933   315224452 :          mat(k, 418) = lmat(k, 418)
    2934   315224452 :          mat(k, 419) = mat(k, 419) + lmat(k, 419)
    2935   315224452 :          mat(k, 420) = lmat(k, 420)
    2936   315224452 :          mat(k, 421) = mat(k, 421) + lmat(k, 421)
    2937   315224452 :          mat(k, 423) = lmat(k, 423)
    2938   315224452 :          mat(k, 424) = lmat(k, 424)
    2939   315224452 :          mat(k, 425) = mat(k, 425) + lmat(k, 425)
    2940   315224452 :          mat(k, 426) = lmat(k, 426)
    2941   315224452 :          mat(k, 427) = mat(k, 427) + lmat(k, 427)
    2942   315224452 :          mat(k, 431) = lmat(k, 431)
    2943   315224452 :          mat(k, 435) = mat(k, 435) + lmat(k, 435)
    2944   315224452 :          mat(k, 441) = mat(k, 441) + lmat(k, 441)
    2945   315224452 :          mat(k, 445) = lmat(k, 445)
    2946   315224452 :          mat(k, 446) = mat(k, 446) + lmat(k, 446)
    2947   315224452 :          mat(k, 448) = mat(k, 448) + lmat(k, 448)
    2948   315224452 :          mat(k, 454) = mat(k, 454) + lmat(k, 454)
    2949   315224452 :          mat(k, 455) = mat(k, 455) + lmat(k, 455)
    2950   315224452 :          mat(k, 456) = mat(k, 456) + lmat(k, 456)
    2951   315224452 :          mat(k, 457) = lmat(k, 457)
    2952   315224452 :          mat(k, 460) = mat(k, 460) + lmat(k, 460)
    2953   315224452 :          mat(k, 463) = lmat(k, 463)
    2954   315224452 :          mat(k, 464) = mat(k, 464) + lmat(k, 464)
    2955   315224452 :          mat(k, 465) = lmat(k, 465)
    2956   315224452 :          mat(k, 466) = lmat(k, 466)
    2957   315224452 :          mat(k, 467) = lmat(k, 467)
    2958   315224452 :          mat(k, 468) = mat(k, 468) + lmat(k, 468)
    2959   315224452 :          mat(k, 472) = mat(k, 472) + lmat(k, 472)
    2960   315224452 :          mat(k, 474) = lmat(k, 474)
    2961   315224452 :          mat(k, 475) = mat(k, 475) + lmat(k, 475)
    2962   315224452 :          mat(k, 476) = mat(k, 476) + lmat(k, 476)
    2963   315224452 :          mat(k, 477) = lmat(k, 477)
    2964   315224452 :          mat(k, 479) = mat(k, 479) + lmat(k, 479)
    2965   315224452 :          mat(k, 481) = mat(k, 481) + lmat(k, 481)
    2966   315224452 :          mat(k, 486) = mat(k, 486) + lmat(k, 486)
    2967   315224452 :          mat(k, 488) = lmat(k, 488)
    2968   315224452 :          mat(k, 489) = lmat(k, 489)
    2969   315224452 :          mat(k, 490) = mat(k, 490) + lmat(k, 490)
    2970   315224452 :          mat(k, 491) = lmat(k, 491)
    2971   315224452 :          mat(k, 492) = lmat(k, 492)
    2972   315224452 :          mat(k, 495) = mat(k, 495) + lmat(k, 495)
    2973   315224452 :          mat(k, 502) = mat(k, 502) + lmat(k, 502)
    2974   315224452 :          mat(k, 510) = mat(k, 510) + lmat(k, 510)
    2975   315224452 :          mat(k, 517) = mat(k, 517) + lmat(k, 517)
    2976   315224452 :          mat(k, 519) = lmat(k, 519)
    2977   315224452 :          mat(k, 520) = lmat(k, 520)
    2978   315224452 :          mat(k, 523) = mat(k, 523) + lmat(k, 523)
    2979   315224452 :          mat(k, 529) = mat(k, 529) + lmat(k, 529)
    2980   315224452 :          mat(k, 534) = mat(k, 534) + lmat(k, 534)
    2981   315224452 :          mat(k, 535) = lmat(k, 535)
    2982   315224452 :          mat(k, 536) = lmat(k, 536)
    2983   315224452 :          mat(k, 537) = mat(k, 537) + lmat(k, 537)
    2984   315224452 :          mat(k, 539) = lmat(k, 539)
    2985   315224452 :          mat(k, 541) = lmat(k, 541)
    2986   315224452 :          mat(k, 542) = mat(k, 542) + lmat(k, 542)
    2987   315224452 :          mat(k, 544) = lmat(k, 544)
    2988   315224452 :          mat(k, 546) = mat(k, 546) + lmat(k, 546)
    2989   315224452 :          mat(k, 547) = lmat(k, 547)
    2990   315224452 :          mat(k, 548) = lmat(k, 548)
    2991   315224452 :          mat(k, 550) = mat(k, 550) + lmat(k, 550)
    2992   315224452 :          mat(k, 558) = mat(k, 558) + lmat(k, 558)
    2993   315224452 :          mat(k, 564) = lmat(k, 564)
    2994   315224452 :          mat(k, 566) = mat(k, 566) + lmat(k, 566)
    2995   315224452 :          mat(k, 567) = lmat(k, 567)
    2996   315224452 :          mat(k, 568) = lmat(k, 568)
    2997   315224452 :          mat(k, 569) = mat(k, 569) + lmat(k, 569)
    2998   315224452 :          mat(k, 570) = mat(k, 570) + lmat(k, 570)
    2999   315224452 :          mat(k, 571) = lmat(k, 571)
    3000   315224452 :          mat(k, 572) = lmat(k, 572)
    3001   315224452 :          mat(k, 574) = mat(k, 574) + lmat(k, 574)
    3002   315224452 :          mat(k, 582) = mat(k, 582) + lmat(k, 582)
    3003   315224452 :          mat(k, 584) = mat(k, 584) + lmat(k, 584)
    3004   315224452 :          mat(k, 589) = mat(k, 589) + lmat(k, 589)
    3005   315224452 :          mat(k, 596) = lmat(k, 596)
    3006   315224452 :          mat(k, 598) = lmat(k, 598)
    3007   315224452 :          mat(k, 599) = lmat(k, 599)
    3008   315224452 :          mat(k, 600) = lmat(k, 600)
    3009   315224452 :          mat(k, 601) = lmat(k, 601)
    3010   315224452 :          mat(k, 602) = mat(k, 602) + lmat(k, 602)
    3011   315224452 :          mat(k, 604) = mat(k, 604) + lmat(k, 604)
    3012   315224452 :          mat(k, 609) = lmat(k, 609)
    3013   315224452 :          mat(k, 611) = mat(k, 611) + lmat(k, 611)
    3014   315224452 :          mat(k, 613) = lmat(k, 613)
    3015   315224452 :          mat(k, 617) = lmat(k, 617)
    3016   315224452 :          mat(k, 620) = mat(k, 620) + lmat(k, 620)
    3017   315224452 :          mat(k, 622) = mat(k, 622) + lmat(k, 622)
    3018   315224452 :          mat(k, 623) = mat(k, 623) + lmat(k, 623)
    3019   315224452 :          mat(k, 625) = lmat(k, 625)
    3020   315224452 :          mat(k, 627) = mat(k, 627) + lmat(k, 627)
    3021   315224452 :          mat(k, 628) = mat(k, 628) + lmat(k, 628)
    3022   315224452 :          mat(k, 630) = mat(k, 630) + lmat(k, 630)
    3023   315224452 :          mat(k, 631) = lmat(k, 631)
    3024   315224452 :          mat(k, 632) = lmat(k, 632)
    3025   315224452 :          mat(k, 635) = mat(k, 635) + lmat(k, 635)
    3026   315224452 :          mat(k, 641) = lmat(k, 641)
    3027   315224452 :          mat(k, 642) = mat(k, 642) + lmat(k, 642)
    3028   315224452 :          mat(k, 645) = mat(k, 645) + lmat(k, 645)
    3029   315224452 :          mat(k, 646) = mat(k, 646) + lmat(k, 646)
    3030   315224452 :          mat(k, 649) = mat(k, 649) + lmat(k, 649)
    3031   315224452 :          mat(k, 650) = mat(k, 650) + lmat(k, 650)
    3032   315224452 :          mat(k, 651) = lmat(k, 651)
    3033   315224452 :          mat(k, 652) = mat(k, 652) + lmat(k, 652)
    3034   315224452 :          mat(k, 653) = lmat(k, 653)
    3035   315224452 :          mat(k, 654) = lmat(k, 654)
    3036   315224452 :          mat(k, 655) = lmat(k, 655)
    3037   315224452 :          mat(k, 656) = lmat(k, 656)
    3038   315224452 :          mat(k, 658) = lmat(k, 658)
    3039   315224452 :          mat(k, 659) = mat(k, 659) + lmat(k, 659)
    3040   315224452 :          mat(k, 660) = lmat(k, 660)
    3041   315224452 :          mat(k, 661) = lmat(k, 661)
    3042   315224452 :          mat(k, 662) = lmat(k, 662)
    3043   315224452 :          mat(k, 663) = lmat(k, 663)
    3044   315224452 :          mat(k, 664) = lmat(k, 664)
    3045   315224452 :          mat(k, 665) = mat(k, 665) + lmat(k, 665)
    3046   315224452 :          mat(k, 670) = lmat(k, 670)
    3047   315224452 :          mat(k, 672) = lmat(k, 672)
    3048   315224452 :          mat(k, 673) = mat(k, 673) + lmat(k, 673)
    3049   315224452 :          mat(k, 674) = lmat(k, 674)
    3050   315224452 :          mat(k, 676) = mat(k, 676) + lmat(k, 676)
    3051   315224452 :          mat(k, 686) = lmat(k, 686)
    3052   315224452 :          mat(k, 687) = mat(k, 687) + lmat(k, 687)
    3053   315224452 :          mat(k, 691) = lmat(k, 691)
    3054   315224452 :          mat(k, 692) = lmat(k, 692)
    3055   315224452 :          mat(k, 694) = mat(k, 694) + lmat(k, 694)
    3056   315224452 :          mat(k, 695) = lmat(k, 695)
    3057   315224452 :          mat(k, 696) = lmat(k, 696)
    3058   315224452 :          mat(k, 698) = mat(k, 698) + lmat(k, 698)
    3059   315224452 :          mat(k, 705) = mat(k, 705) + lmat(k, 705)
    3060   315224452 :          mat(k, 711) = mat(k, 711) + lmat(k, 711)
    3061   315224452 :          mat(k, 713) = lmat(k, 713)
    3062   315224452 :          mat(k, 714) = lmat(k, 714)
    3063   315224452 :          mat(k, 715) = mat(k, 715) + lmat(k, 715)
    3064   315224452 :          mat(k, 716) = lmat(k, 716)
    3065   315224452 :          mat(k, 717) = lmat(k, 717)
    3066   315224452 :          mat(k, 718) = mat(k, 718) + lmat(k, 718)
    3067   315224452 :          mat(k, 725) = lmat(k, 725)
    3068   315224452 :          mat(k, 726) = lmat(k, 726)
    3069   315224452 :          mat(k, 727) = lmat(k, 727)
    3070   315224452 :          mat(k, 728) = lmat(k, 728)
    3071   315224452 :          mat(k, 729) = mat(k, 729) + lmat(k, 729)
    3072   315224452 :          mat(k, 734) = lmat(k, 734)
    3073   315224452 :          mat(k, 736) = lmat(k, 736)
    3074   315224452 :          mat(k, 738) = mat(k, 738) + lmat(k, 738)
    3075   315224452 :          mat(k, 739) = lmat(k, 739)
    3076   315224452 :          mat(k, 740) = mat(k, 740) + lmat(k, 740)
    3077   315224452 :          mat(k, 751) = mat(k, 751) + lmat(k, 751)
    3078   315224452 :          mat(k, 767) = mat(k, 767) + lmat(k, 767)
    3079   315224452 :          mat(k, 778) = mat(k, 778) + lmat(k, 778)
    3080   315224452 :          mat(k, 787) = mat(k, 787) + lmat(k, 787)
    3081   315224452 :          mat(k, 789) = lmat(k, 789)
    3082   315224452 :          mat(k, 791) = mat(k, 791) + lmat(k, 791)
    3083   315224452 :          mat(k, 797) = mat(k, 797) + lmat(k, 797)
    3084   315224452 :          mat(k, 805) = mat(k, 805) + lmat(k, 805)
    3085   315224452 :          mat(k, 806) = lmat(k, 806)
    3086   315224452 :          mat(k, 808) = lmat(k, 808)
    3087   315224452 :          mat(k, 814) = mat(k, 814) + lmat(k, 814)
    3088   315224452 :          mat(k, 824) = mat(k, 824) + lmat(k, 824)
    3089   315224452 :          mat(k, 828) = mat(k, 828) + lmat(k, 828)
    3090   315224452 :          mat(k, 829) = mat(k, 829) + lmat(k, 829)
    3091   315224452 :          mat(k, 834) = mat(k, 834) + lmat(k, 834)
    3092   315224452 :          mat(k, 837) = mat(k, 837) + lmat(k, 837)
    3093   315224452 :          mat(k, 840) = mat(k, 840) + lmat(k, 840)
    3094   315224452 :          mat(k, 842) = mat(k, 842) + lmat(k, 842)
    3095   315224452 :          mat(k, 845) = mat(k, 845) + lmat(k, 845)
    3096   315224452 :          mat(k, 852) = mat(k, 852) + lmat(k, 852)
    3097   315224452 :          mat(k, 853) = mat(k, 853) + lmat(k, 853)
    3098   315224452 :          mat(k, 857) = mat(k, 857) + lmat(k, 857)
    3099   315224452 :          mat(k, 865) = mat(k, 865) + lmat(k, 865)
    3100   315224452 :          mat(k, 876) = mat(k, 876) + lmat(k, 876)
    3101   315224452 :          mat(k, 892) = mat(k, 892) + lmat(k, 892)
    3102   315224452 :          mat(k, 894) = lmat(k, 894)
    3103   315224452 :          mat(k, 896) = mat(k, 896) + lmat(k, 896)
    3104   315224452 :          mat(k, 897) = lmat(k, 897)
    3105   315224452 :          mat(k, 901) = mat(k, 901) + lmat(k, 901)
    3106   315224452 :          mat(k, 910) = mat(k, 910) + lmat(k, 910)
    3107   315224452 :          mat(k, 919) = mat(k, 919) + lmat(k, 919)
    3108   315224452 :          mat(k, 925) = mat(k, 925) + lmat(k, 925)
    3109   315224452 :          mat(k, 935) = mat(k, 935) + lmat(k, 935)
    3110   315224452 :          mat(k, 947) = mat(k, 947) + lmat(k, 947)
    3111   315224452 :          mat(k, 948) = lmat(k, 948)
    3112   315224452 :          mat(k, 950) = lmat(k, 950)
    3113   315224452 :          mat(k, 954) = mat(k, 954) + lmat(k, 954)
    3114   315224452 :          mat(k, 955) = mat(k, 955) + lmat(k, 955)
    3115   315224452 :          mat(k, 957) = mat(k, 957) + lmat(k, 957)
    3116   315224452 :          mat(k, 958) = mat(k, 958) + lmat(k, 958)
    3117   315224452 :          mat(k, 960) = lmat(k, 960)
    3118   315224452 :          mat(k, 961) = mat(k, 961) + lmat(k, 961)
    3119   315224452 :          mat(k, 963) = mat(k, 963) + lmat(k, 963)
    3120   315224452 :          mat(k, 974) = mat(k, 974) + lmat(k, 974)
    3121   315224452 :          mat(k, 994) = lmat(k, 994)
    3122   315224452 :          mat(k, 998) = lmat(k, 998)
    3123   315224452 :          mat(k, 999) = mat(k, 999) + lmat(k, 999)
    3124   315224452 :          mat(k,1018) = mat(k,1018) + lmat(k,1018)
    3125   315224452 :          mat(k,1042) = mat(k,1042) + lmat(k,1042)
    3126   315224452 :          mat(k,1053) = lmat(k,1053)
    3127   315224452 :          mat(k,1054) = mat(k,1054) + lmat(k,1054)
    3128   315224452 :          mat(k,1055) = mat(k,1055) + lmat(k,1055)
    3129   315224452 :          mat(k,1058) = mat(k,1058) + lmat(k,1058)
    3130   315224452 :          mat(k,1062) = mat(k,1062) + lmat(k,1062)
    3131   315224452 :          mat(k,1072) = mat(k,1072) + lmat(k,1072)
    3132   315224452 :          mat(k,1074) = lmat(k,1074)
    3133   315224452 :          mat(k,1075) = lmat(k,1075)
    3134   315224452 :          mat(k,1079) = lmat(k,1079)
    3135   315224452 :          mat(k,1080) = mat(k,1080) + lmat(k,1080)
    3136   315224452 :          mat(k,1082) = lmat(k,1082)
    3137   315224452 :          mat(k,1084) = lmat(k,1084)
    3138   315224452 :          mat(k,1086) = lmat(k,1086)
    3139   315224452 :          mat(k,1090) = mat(k,1090) + lmat(k,1090)
    3140   315224452 :          mat(k,1097) = lmat(k,1097)
    3141   315224452 :          mat(k,1099) = lmat(k,1099)
    3142   315224452 :          mat(k,1100) = mat(k,1100) + lmat(k,1100)
    3143   315224452 :          mat(k,1106) = mat(k,1106) + lmat(k,1106)
    3144   315224452 :          mat(k,1118) = mat(k,1118) + lmat(k,1118)
    3145   315224452 :          mat(k,1119) = mat(k,1119) + lmat(k,1119)
    3146   315224452 :          mat(k,1120) = mat(k,1120) + lmat(k,1120)
    3147   315224452 :          mat(k,1121) = mat(k,1121) + lmat(k,1121)
    3148   315224452 :          mat(k,1122) = mat(k,1122) + lmat(k,1122)
    3149   315224452 :          mat(k,1123) = mat(k,1123) + lmat(k,1123)
    3150   315224452 :          mat(k,1125) = mat(k,1125) + lmat(k,1125)
    3151   315224452 :          mat(k,1126) = mat(k,1126) + lmat(k,1126)
    3152   315224452 :          mat(k,1133) = mat(k,1133) + lmat(k,1133)
    3153   315224452 :          mat(k,1151) = mat(k,1151) + lmat(k,1151)
    3154   315224452 :          mat(k,1152) = lmat(k,1152)
    3155   315224452 :          mat(k,1157) = lmat(k,1157)
    3156   315224452 :          mat(k,1158) = lmat(k,1158)
    3157   315224452 :          mat(k,1160) = mat(k,1160) + lmat(k,1160)
    3158   315224452 :          mat(k,1165) = lmat(k,1165)
    3159   315224452 :          mat(k,1166) = mat(k,1166) + lmat(k,1166)
    3160   315224452 :          mat(k,1169) = mat(k,1169) + lmat(k,1169)
    3161   315224452 :          mat(k,1170) = mat(k,1170) + lmat(k,1170)
    3162   315224452 :          mat(k,1178) = mat(k,1178) + lmat(k,1178)
    3163   315224452 :          mat(k,1191) = lmat(k,1191)
    3164   315224452 :          mat(k,1192) = lmat(k,1192)
    3165   315224452 :          mat(k,1193) = lmat(k,1193)
    3166   315224452 :          mat(k,1194) = lmat(k,1194)
    3167   315224452 :          mat(k,1195) = mat(k,1195) + lmat(k,1195)
    3168   315224452 :          mat(k,1196) = lmat(k,1196)
    3169   315224452 :          mat(k,1198) = lmat(k,1198)
    3170   315224452 :          mat(k,1202) = lmat(k,1202)
    3171   315224452 :          mat(k,1203) = lmat(k,1203)
    3172   315224452 :          mat(k,1204) = lmat(k,1204)
    3173   315224452 :          mat(k,1205) = mat(k,1205) + lmat(k,1205)
    3174   315224452 :          mat(k,1208) = mat(k,1208) + lmat(k,1208)
    3175   315224452 :          mat(k,1210) = lmat(k,1210)
    3176   315224452 :          mat(k,1212) = lmat(k,1212)
    3177   315224452 :          mat(k,1213) = mat(k,1213) + lmat(k,1213)
    3178   315224452 :          mat(k,1217) = mat(k,1217) + lmat(k,1217)
    3179   315224452 :          mat(k,1233) = mat(k,1233) + lmat(k,1233)
    3180   315224452 :          mat(k,1253) = mat(k,1253) + lmat(k,1253)
    3181   315224452 :          mat(k,1268) = mat(k,1268) + lmat(k,1268)
    3182   315224452 :          mat(k,1269) = mat(k,1269) + lmat(k,1269)
    3183   315224452 :          mat(k,1272) = mat(k,1272) + lmat(k,1272)
    3184   315224452 :          mat(k,1273) = mat(k,1273) + lmat(k,1273)
    3185   315224452 :          mat(k,1276) = mat(k,1276) + lmat(k,1276)
    3186   315224452 :          mat(k,1278) = mat(k,1278) + lmat(k,1278)
    3187   315224452 :          mat(k,1280) = mat(k,1280) + lmat(k,1280)
    3188   315224452 :          mat(k,1281) = mat(k,1281) + lmat(k,1281)
    3189   315224452 :          mat(k,1282) = mat(k,1282) + lmat(k,1282)
    3190   315224452 :          mat(k,1287) = lmat(k,1287)
    3191   315224452 :          mat(k,1299) = mat(k,1299) + lmat(k,1299)
    3192   315224452 :          mat(k,1315) = lmat(k,1315)
    3193   315224452 :          mat(k,1332) = mat(k,1332) + lmat(k,1332)
    3194   315224452 :          mat(k,1345) = mat(k,1345) + lmat(k,1345)
    3195   315224452 :          mat(k,1356) = mat(k,1356) + lmat(k,1356)
    3196   315224452 :          mat(k,1370) = lmat(k,1370)
    3197   315224452 :          mat(k,1372) = mat(k,1372) + lmat(k,1372)
    3198   315224452 :          mat(k,1376) = mat(k,1376) + lmat(k,1376)
    3199   315224452 :          mat(k,1378) = mat(k,1378) + lmat(k,1378)
    3200   315224452 :          mat(k,1390) = lmat(k,1390)
    3201   315224452 :          mat(k,1397) = mat(k,1397) + lmat(k,1397)
    3202   315224452 :          mat(k,1428) = mat(k,1428) + lmat(k,1428)
    3203   315224452 :          mat(k,1449) = mat(k,1449) + lmat(k,1449)
    3204   315224452 :          mat(k,1450) = mat(k,1450) + lmat(k,1450)
    3205   315224452 :          mat(k,1456) = lmat(k,1456)
    3206   315224452 :          mat(k,1461) = mat(k,1461) + lmat(k,1461)
    3207   315224452 :          mat(k,1474) = lmat(k,1474)
    3208   315224452 :          mat(k,1476) = mat(k,1476) + lmat(k,1476)
    3209   315224452 :          mat(k,1484) = mat(k,1484) + lmat(k,1484)
    3210   315224452 :          mat(k,1495) = mat(k,1495) + lmat(k,1495)
    3211   315224452 :          mat(k,1505) = mat(k,1505) + lmat(k,1505)
    3212   315224452 :          mat(k,1506) = mat(k,1506) + lmat(k,1506)
    3213   315224452 :          mat(k,1511) = mat(k,1511) + lmat(k,1511)
    3214   315224452 :          mat(k,1531) = mat(k,1531) + lmat(k,1531)
    3215   315224452 :          mat(k,1533) = mat(k,1533) + lmat(k,1533)
    3216   315224452 :          mat(k,1534) = lmat(k,1534)
    3217   315224452 :          mat(k,1542) = mat(k,1542) + lmat(k,1542)
    3218   315224452 :          mat(k,1549) = mat(k,1549) + lmat(k,1549)
    3219   315224452 :          mat(k,1550) = mat(k,1550) + lmat(k,1550)
    3220   315224452 :          mat(k,1563) = mat(k,1563) + lmat(k,1563)
    3221   315224452 :          mat(k,1565) = mat(k,1565) + lmat(k,1565)
    3222   315224452 :          mat(k,1574) = mat(k,1574) + lmat(k,1574)
    3223   315224452 :          mat(k,1592) = mat(k,1592) + lmat(k,1592)
    3224   315224452 :          mat(k,1600) = mat(k,1600) + lmat(k,1600)
    3225   315224452 :          mat(k,1602) = mat(k,1602) + lmat(k,1602)
    3226   315224452 :          mat(k,1649) = mat(k,1649) + lmat(k,1649)
    3227   315224452 :          mat(k,1652) = mat(k,1652) + lmat(k,1652)
    3228   315224452 :          mat(k,1654) = mat(k,1654) + lmat(k,1654)
    3229   315224452 :          mat(k,1655) = mat(k,1655) + lmat(k,1655)
    3230   315224452 :          mat(k,1658) = mat(k,1658) + lmat(k,1658)
    3231   315224452 :          mat(k,1659) = mat(k,1659) + lmat(k,1659)
    3232   315224452 :          mat(k,1818) = mat(k,1818) + lmat(k,1818)
    3233   315224452 :          mat(k,1873) = mat(k,1873) + lmat(k,1873)
    3234   315224452 :          mat(k,1875) = lmat(k,1875)
    3235   315224452 :          mat(k,1881) = mat(k,1881) + lmat(k,1881)
    3236   315224452 :          mat(k,1914) = mat(k,1914) + lmat(k,1914)
    3237   315224452 :          mat(k,1919) = mat(k,1919) + lmat(k,1919)
    3238   315224452 :          mat(k,1958) = mat(k,1958) + lmat(k,1958)
    3239   315224452 :          mat(k,1959) = mat(k,1959) + lmat(k,1959)
    3240   315224452 :          mat(k,1960) = mat(k,1960) + lmat(k,1960)
    3241   315224452 :          mat(k,1963) = mat(k,1963) + lmat(k,1963)
    3242   315224452 :          mat(k,1964) = mat(k,1964) + lmat(k,1964)
    3243   315224452 :          mat(k,1975) = mat(k,1975) + lmat(k,1975)
    3244   315224452 :          mat(k,1977) = lmat(k,1977)
    3245   315224452 :          mat(k,1987) = mat(k,1987) + lmat(k,1987)
    3246   315224452 :          mat(k,1991) = mat(k,1991) + lmat(k,1991)
    3247   315224452 :          mat(k,2031) = mat(k,2031) + lmat(k,2031)
    3248   315224452 :          mat(k,2033) = mat(k,2033) + lmat(k,2033)
    3249   315224452 :          mat(k,2050) = mat(k,2050) + lmat(k,2050)
    3250   315224452 :          mat(k,2052) = lmat(k,2052)
    3251   315224452 :          mat(k,2055) = mat(k,2055) + lmat(k,2055)
    3252   315224452 :          mat(k,2074) = mat(k,2074) + lmat(k,2074)
    3253   315224452 :          mat(k,2079) = lmat(k,2079)
    3254   315224452 :          mat(k,2099) = mat(k,2099) + lmat(k,2099)
    3255   315224452 :          mat(k,2121) = mat(k,2121) + lmat(k,2121)
    3256   315224452 :          mat(k,2168) = mat(k,2168) + lmat(k,2168)
    3257   315224452 :          mat(k,2179) = mat(k,2179) + lmat(k,2179)
    3258   315224452 :          mat(k,2220) = mat(k,2220) + lmat(k,2220)
    3259   315224452 :          mat(k,2228) = mat(k,2228) + lmat(k,2228)
    3260   315224452 :          mat(k,2230) = mat(k,2230) + lmat(k,2230)
    3261   315224452 :          mat(k,2233) = mat(k,2233) + lmat(k,2233)
    3262   315224452 :          mat(k,2240) = lmat(k,2240)
    3263   315224452 :          mat(k,2241) = lmat(k,2241)
    3264   315224452 :          mat(k,2242) = mat(k,2242) + lmat(k,2242)
    3265   315224452 :          mat(k,2249) = mat(k,2249) + lmat(k,2249)
    3266   315224452 :          mat(k,2252) = mat(k,2252) + lmat(k,2252)
    3267   315224452 :          mat(k,2255) = lmat(k,2255)
    3268   315224452 :          mat(k,2256) = mat(k,2256) + lmat(k,2256)
    3269   315224452 :          mat(k,2259) = mat(k,2259) + lmat(k,2259)
    3270   315224452 :          mat(k,2261) = mat(k,2261) + lmat(k,2261)
    3271   315224452 :          mat(k,2262) = mat(k,2262) + lmat(k,2262)
    3272   315224452 :          mat(k,2368) = mat(k,2368) + lmat(k,2368)
    3273   315224452 :          mat(k,2370) = mat(k,2370) + lmat(k,2370)
    3274   315224452 :          mat(k,2421) = mat(k,2421) + lmat(k,2421)
    3275   315224452 :          mat(k,2428) = lmat(k,2428)
    3276   315224452 :          mat(k,2436) = mat(k,2436) + lmat(k,2436)
    3277   315224452 :          mat(k,2440) = mat(k,2440) + lmat(k,2440)
    3278   315224452 :          mat(k,2442) = lmat(k,2442)
    3279   315224452 :          mat(k,2443) = lmat(k,2443)
    3280   315224452 :          mat(k,2449) = mat(k,2449) + lmat(k,2449)
    3281   315224452 :          mat(k, 212) = 0._r8
    3282   315224452 :          mat(k, 213) = 0._r8
    3283   315224452 :          mat(k, 252) = 0._r8
    3284   315224452 :          mat(k, 293) = 0._r8
    3285   315224452 :          mat(k, 347) = 0._r8
    3286   315224452 :          mat(k, 436) = 0._r8
    3287   315224452 :          mat(k, 437) = 0._r8
    3288   315224452 :          mat(k, 450) = 0._r8
    3289   315224452 :          mat(k, 496) = 0._r8
    3290   315224452 :          mat(k, 498) = 0._r8
    3291   315224452 :          mat(k, 513) = 0._r8
    3292   315224452 :          mat(k, 636) = 0._r8
    3293   315224452 :          mat(k, 639) = 0._r8
    3294   315224452 :          mat(k, 643) = 0._r8
    3295   315224452 :          mat(k, 644) = 0._r8
    3296   315224452 :          mat(k, 647) = 0._r8
    3297   315224452 :          mat(k, 666) = 0._r8
    3298   315224452 :          mat(k, 668) = 0._r8
    3299   315224452 :          mat(k, 669) = 0._r8
    3300   315224452 :          mat(k, 671) = 0._r8
    3301   315224452 :          mat(k, 683) = 0._r8
    3302   315224452 :          mat(k, 684) = 0._r8
    3303   315224452 :          mat(k, 688) = 0._r8
    3304   315224452 :          mat(k, 689) = 0._r8
    3305   315224452 :          mat(k, 693) = 0._r8
    3306   315224452 :          mat(k, 730) = 0._r8
    3307   315224452 :          mat(k, 732) = 0._r8
    3308   315224452 :          mat(k, 733) = 0._r8
    3309   315224452 :          mat(k, 735) = 0._r8
    3310   315224452 :          mat(k, 737) = 0._r8
    3311   315224452 :          mat(k, 750) = 0._r8
    3312   315224452 :          mat(k, 752) = 0._r8
    3313   315224452 :          mat(k, 753) = 0._r8
    3314   315224452 :          mat(k, 755) = 0._r8
    3315   315224452 :          mat(k, 757) = 0._r8
    3316   315224452 :          mat(k, 766) = 0._r8
    3317   315224452 :          mat(k, 768) = 0._r8
    3318   315224452 :          mat(k, 769) = 0._r8
    3319   315224452 :          mat(k, 771) = 0._r8
    3320   315224452 :          mat(k, 773) = 0._r8
    3321   315224452 :          mat(k, 774) = 0._r8
    3322   315224452 :          mat(k, 793) = 0._r8
    3323   315224452 :          mat(k, 798) = 0._r8
    3324   315224452 :          mat(k, 799) = 0._r8
    3325   315224452 :          mat(k, 800) = 0._r8
    3326   315224452 :          mat(k, 816) = 0._r8
    3327   315224452 :          mat(k, 818) = 0._r8
    3328   315224452 :          mat(k, 823) = 0._r8
    3329   315224452 :          mat(k, 848) = 0._r8
    3330   315224452 :          mat(k, 849) = 0._r8
    3331   315224452 :          mat(k, 850) = 0._r8
    3332   315224452 :          mat(k, 862) = 0._r8
    3333   315224452 :          mat(k, 867) = 0._r8
    3334   315224452 :          mat(k, 868) = 0._r8
    3335   315224452 :          mat(k, 869) = 0._r8
    3336   315224452 :          mat(k, 870) = 0._r8
    3337   315224452 :          mat(k, 904) = 0._r8
    3338   315224452 :          mat(k, 939) = 0._r8
    3339   315224452 :          mat(k, 945) = 0._r8
    3340   315224452 :          mat(k, 952) = 0._r8
    3341   315224452 :          mat(k, 964) = 0._r8
    3342   315224452 :          mat(k, 975) = 0._r8
    3343   315224452 :          mat(k, 976) = 0._r8
    3344   315224452 :          mat(k, 984) = 0._r8
    3345   315224452 :          mat(k, 992) = 0._r8
    3346   315224452 :          mat(k, 995) = 0._r8
    3347   315224452 :          mat(k,1000) = 0._r8
    3348   315224452 :          mat(k,1001) = 0._r8
    3349   315224452 :          mat(k,1006) = 0._r8
    3350   315224452 :          mat(k,1019) = 0._r8
    3351   315224452 :          mat(k,1020) = 0._r8
    3352   315224452 :          mat(k,1028) = 0._r8
    3353   315224452 :          mat(k,1036) = 0._r8
    3354   315224452 :          mat(k,1040) = 0._r8
    3355   315224452 :          mat(k,1041) = 0._r8
    3356   315224452 :          mat(k,1045) = 0._r8
    3357   315224452 :          mat(k,1046) = 0._r8
    3358   315224452 :          mat(k,1047) = 0._r8
    3359   315224452 :          mat(k,1052) = 0._r8
    3360   315224452 :          mat(k,1065) = 0._r8
    3361   315224452 :          mat(k,1069) = 0._r8
    3362   315224452 :          mat(k,1088) = 0._r8
    3363   315224452 :          mat(k,1091) = 0._r8
    3364   315224452 :          mat(k,1092) = 0._r8
    3365   315224452 :          mat(k,1093) = 0._r8
    3366   315224452 :          mat(k,1094) = 0._r8
    3367   315224452 :          mat(k,1096) = 0._r8
    3368   315224452 :          mat(k,1098) = 0._r8
    3369   315224452 :          mat(k,1101) = 0._r8
    3370   315224452 :          mat(k,1107) = 0._r8
    3371   315224452 :          mat(k,1108) = 0._r8
    3372   315224452 :          mat(k,1109) = 0._r8
    3373   315224452 :          mat(k,1111) = 0._r8
    3374   315224452 :          mat(k,1115) = 0._r8
    3375   315224452 :          mat(k,1127) = 0._r8
    3376   315224452 :          mat(k,1128) = 0._r8
    3377   315224452 :          mat(k,1136) = 0._r8
    3378   315224452 :          mat(k,1137) = 0._r8
    3379   315224452 :          mat(k,1138) = 0._r8
    3380   315224452 :          mat(k,1140) = 0._r8
    3381   315224452 :          mat(k,1143) = 0._r8
    3382   315224452 :          mat(k,1144) = 0._r8
    3383   315224452 :          mat(k,1150) = 0._r8
    3384   315224452 :          mat(k,1179) = 0._r8
    3385   315224452 :          mat(k,1180) = 0._r8
    3386   315224452 :          mat(k,1182) = 0._r8
    3387   315224452 :          mat(k,1186) = 0._r8
    3388   315224452 :          mat(k,1189) = 0._r8
    3389   315224452 :          mat(k,1197) = 0._r8
    3390   315224452 :          mat(k,1199) = 0._r8
    3391   315224452 :          mat(k,1200) = 0._r8
    3392   315224452 :          mat(k,1206) = 0._r8
    3393   315224452 :          mat(k,1207) = 0._r8
    3394   315224452 :          mat(k,1226) = 0._r8
    3395   315224452 :          mat(k,1238) = 0._r8
    3396   315224452 :          mat(k,1246) = 0._r8
    3397   315224452 :          mat(k,1248) = 0._r8
    3398   315224452 :          mat(k,1250) = 0._r8
    3399   315224452 :          mat(k,1251) = 0._r8
    3400   315224452 :          mat(k,1252) = 0._r8
    3401   315224452 :          mat(k,1254) = 0._r8
    3402   315224452 :          mat(k,1255) = 0._r8
    3403   315224452 :          mat(k,1256) = 0._r8
    3404   315224452 :          mat(k,1258) = 0._r8
    3405   315224452 :          mat(k,1260) = 0._r8
    3406   315224452 :          mat(k,1264) = 0._r8
    3407   315224452 :          mat(k,1274) = 0._r8
    3408   315224452 :          mat(k,1283) = 0._r8
    3409   315224452 :          mat(k,1292) = 0._r8
    3410   315224452 :          mat(k,1293) = 0._r8
    3411   315224452 :          mat(k,1294) = 0._r8
    3412   315224452 :          mat(k,1295) = 0._r8
    3413   315224452 :          mat(k,1296) = 0._r8
    3414   315224452 :          mat(k,1298) = 0._r8
    3415   315224452 :          mat(k,1300) = 0._r8
    3416   315224452 :          mat(k,1302) = 0._r8
    3417   315224452 :          mat(k,1306) = 0._r8
    3418   315224452 :          mat(k,1310) = 0._r8
    3419   315224452 :          mat(k,1311) = 0._r8
    3420   315224452 :          mat(k,1314) = 0._r8
    3421   315224452 :          mat(k,1318) = 0._r8
    3422   315224452 :          mat(k,1321) = 0._r8
    3423   315224452 :          mat(k,1322) = 0._r8
    3424   315224452 :          mat(k,1324) = 0._r8
    3425   315224452 :          mat(k,1326) = 0._r8
    3426   315224452 :          mat(k,1328) = 0._r8
    3427   315224452 :          mat(k,1329) = 0._r8
    3428   315224452 :          mat(k,1330) = 0._r8
    3429   315224452 :          mat(k,1333) = 0._r8
    3430   315224452 :          mat(k,1334) = 0._r8
    3431   315224452 :          mat(k,1335) = 0._r8
    3432   315224452 :          mat(k,1337) = 0._r8
    3433   315224452 :          mat(k,1339) = 0._r8
    3434   315224452 :          mat(k,1343) = 0._r8
    3435   315224452 :          mat(k,1344) = 0._r8
    3436   315224452 :          mat(k,1347) = 0._r8
    3437   315224452 :          mat(k,1354) = 0._r8
    3438   315224452 :          mat(k,1357) = 0._r8
    3439   315224452 :          mat(k,1359) = 0._r8
    3440   315224452 :          mat(k,1361) = 0._r8
    3441   315224452 :          mat(k,1365) = 0._r8
    3442   315224452 :          mat(k,1368) = 0._r8
    3443   315224452 :          mat(k,1373) = 0._r8
    3444   315224452 :          mat(k,1377) = 0._r8
    3445   315224452 :          mat(k,1380) = 0._r8
    3446   315224452 :          mat(k,1381) = 0._r8
    3447   315224452 :          mat(k,1383) = 0._r8
    3448   315224452 :          mat(k,1384) = 0._r8
    3449   315224452 :          mat(k,1386) = 0._r8
    3450   315224452 :          mat(k,1388) = 0._r8
    3451   315224452 :          mat(k,1391) = 0._r8
    3452   315224452 :          mat(k,1395) = 0._r8
    3453   315224452 :          mat(k,1396) = 0._r8
    3454   315224452 :          mat(k,1405) = 0._r8
    3455   315224452 :          mat(k,1409) = 0._r8
    3456   315224452 :          mat(k,1430) = 0._r8
    3457   315224452 :          mat(k,1431) = 0._r8
    3458   315224452 :          mat(k,1436) = 0._r8
    3459   315224452 :          mat(k,1438) = 0._r8
    3460   315224452 :          mat(k,1441) = 0._r8
    3461   315224452 :          mat(k,1445) = 0._r8
    3462   315224452 :          mat(k,1447) = 0._r8
    3463   315224452 :          mat(k,1448) = 0._r8
    3464   315224452 :          mat(k,1451) = 0._r8
    3465   315224452 :          mat(k,1452) = 0._r8
    3466   315224452 :          mat(k,1453) = 0._r8
    3467   315224452 :          mat(k,1454) = 0._r8
    3468   315224452 :          mat(k,1455) = 0._r8
    3469   315224452 :          mat(k,1457) = 0._r8
    3470   315224452 :          mat(k,1458) = 0._r8
    3471   315224452 :          mat(k,1463) = 0._r8
    3472   315224452 :          mat(k,1466) = 0._r8
    3473   315224452 :          mat(k,1470) = 0._r8
    3474   315224452 :          mat(k,1471) = 0._r8
    3475   315224452 :          mat(k,1488) = 0._r8
    3476   315224452 :          mat(k,1489) = 0._r8
    3477   315224452 :          mat(k,1496) = 0._r8
    3478   315224452 :          mat(k,1497) = 0._r8
    3479   315224452 :          mat(k,1499) = 0._r8
    3480   315224452 :          mat(k,1501) = 0._r8
    3481   315224452 :          mat(k,1510) = 0._r8
    3482   315224452 :          mat(k,1514) = 0._r8
    3483   315224452 :          mat(k,1515) = 0._r8
    3484   315224452 :          mat(k,1516) = 0._r8
    3485   315224452 :          mat(k,1518) = 0._r8
    3486   315224452 :          mat(k,1519) = 0._r8
    3487   315224452 :          mat(k,1520) = 0._r8
    3488   315224452 :          mat(k,1523) = 0._r8
    3489   315224452 :          mat(k,1537) = 0._r8
    3490   315224452 :          mat(k,1539) = 0._r8
    3491   315224452 :          mat(k,1541) = 0._r8
    3492   315224452 :          mat(k,1543) = 0._r8
    3493   315224452 :          mat(k,1544) = 0._r8
    3494   315224452 :          mat(k,1545) = 0._r8
    3495   315224452 :          mat(k,1547) = 0._r8
    3496   315224452 :          mat(k,1548) = 0._r8
    3497   315224452 :          mat(k,1552) = 0._r8
    3498   315224452 :          mat(k,1555) = 0._r8
    3499   315224452 :          mat(k,1562) = 0._r8
    3500   315224452 :          mat(k,1567) = 0._r8
    3501   315224452 :          mat(k,1571) = 0._r8
    3502   315224452 :          mat(k,1572) = 0._r8
    3503   315224452 :          mat(k,1573) = 0._r8
    3504   315224452 :          mat(k,1575) = 0._r8
    3505   315224452 :          mat(k,1577) = 0._r8
    3506   315224452 :          mat(k,1579) = 0._r8
    3507   315224452 :          mat(k,1593) = 0._r8
    3508   315224452 :          mat(k,1598) = 0._r8
    3509   315224452 :          mat(k,1599) = 0._r8
    3510   315224452 :          mat(k,1601) = 0._r8
    3511   315224452 :          mat(k,1603) = 0._r8
    3512   315224452 :          mat(k,1606) = 0._r8
    3513   315224452 :          mat(k,1613) = 0._r8
    3514   315224452 :          mat(k,1616) = 0._r8
    3515   315224452 :          mat(k,1620) = 0._r8
    3516   315224452 :          mat(k,1622) = 0._r8
    3517   315224452 :          mat(k,1627) = 0._r8
    3518   315224452 :          mat(k,1633) = 0._r8
    3519   315224452 :          mat(k,1635) = 0._r8
    3520   315224452 :          mat(k,1646) = 0._r8
    3521   315224452 :          mat(k,1647) = 0._r8
    3522   315224452 :          mat(k,1648) = 0._r8
    3523   315224452 :          mat(k,1650) = 0._r8
    3524   315224452 :          mat(k,1651) = 0._r8
    3525   315224452 :          mat(k,1657) = 0._r8
    3526   315224452 :          mat(k,1660) = 0._r8
    3527   315224452 :          mat(k,1661) = 0._r8
    3528   315224452 :          mat(k,1662) = 0._r8
    3529   315224452 :          mat(k,1663) = 0._r8
    3530   315224452 :          mat(k,1665) = 0._r8
    3531   315224452 :          mat(k,1666) = 0._r8
    3532   315224452 :          mat(k,1731) = 0._r8
    3533   315224452 :          mat(k,1747) = 0._r8
    3534   315224452 :          mat(k,1762) = 0._r8
    3535   315224452 :          mat(k,1765) = 0._r8
    3536   315224452 :          mat(k,1774) = 0._r8
    3537   315224452 :          mat(k,1776) = 0._r8
    3538   315224452 :          mat(k,1800) = 0._r8
    3539   315224452 :          mat(k,1822) = 0._r8
    3540   315224452 :          mat(k,1876) = 0._r8
    3541   315224452 :          mat(k,1917) = 0._r8
    3542   315224452 :          mat(k,1918) = 0._r8
    3543   315224452 :          mat(k,1920) = 0._r8
    3544   315224452 :          mat(k,1923) = 0._r8
    3545   315224452 :          mat(k,1926) = 0._r8
    3546   315224452 :          mat(k,1936) = 0._r8
    3547   315224452 :          mat(k,1939) = 0._r8
    3548   315224452 :          mat(k,1944) = 0._r8
    3549   315224452 :          mat(k,1945) = 0._r8
    3550   315224452 :          mat(k,1946) = 0._r8
    3551   315224452 :          mat(k,1947) = 0._r8
    3552   315224452 :          mat(k,1950) = 0._r8
    3553   315224452 :          mat(k,1952) = 0._r8
    3554   315224452 :          mat(k,1953) = 0._r8
    3555   315224452 :          mat(k,1961) = 0._r8
    3556   315224452 :          mat(k,1962) = 0._r8
    3557   315224452 :          mat(k,1965) = 0._r8
    3558   315224452 :          mat(k,1966) = 0._r8
    3559   315224452 :          mat(k,1968) = 0._r8
    3560   315224452 :          mat(k,1970) = 0._r8
    3561   315224452 :          mat(k,1971) = 0._r8
    3562   315224452 :          mat(k,1974) = 0._r8
    3563   315224452 :          mat(k,1976) = 0._r8
    3564   315224452 :          mat(k,1980) = 0._r8
    3565   315224452 :          mat(k,1981) = 0._r8
    3566   315224452 :          mat(k,1982) = 0._r8
    3567   315224452 :          mat(k,1985) = 0._r8
    3568   315224452 :          mat(k,1986) = 0._r8
    3569   315224452 :          mat(k,1988) = 0._r8
    3570   315224452 :          mat(k,1993) = 0._r8
    3571   315224452 :          mat(k,1994) = 0._r8
    3572   315224452 :          mat(k,1996) = 0._r8
    3573   315224452 :          mat(k,2026) = 0._r8
    3574   315224452 :          mat(k,2029) = 0._r8
    3575   315224452 :          mat(k,2032) = 0._r8
    3576   315224452 :          mat(k,2043) = 0._r8
    3577   315224452 :          mat(k,2044) = 0._r8
    3578   315224452 :          mat(k,2045) = 0._r8
    3579   315224452 :          mat(k,2046) = 0._r8
    3580   315224452 :          mat(k,2047) = 0._r8
    3581   315224452 :          mat(k,2048) = 0._r8
    3582   315224452 :          mat(k,2051) = 0._r8
    3583   315224452 :          mat(k,2053) = 0._r8
    3584   315224452 :          mat(k,2054) = 0._r8
    3585   315224452 :          mat(k,2056) = 0._r8
    3586   315224452 :          mat(k,2057) = 0._r8
    3587   315224452 :          mat(k,2058) = 0._r8
    3588   315224452 :          mat(k,2059) = 0._r8
    3589   315224452 :          mat(k,2060) = 0._r8
    3590   315224452 :          mat(k,2061) = 0._r8
    3591   315224452 :          mat(k,2062) = 0._r8
    3592   315224452 :          mat(k,2072) = 0._r8
    3593   315224452 :          mat(k,2078) = 0._r8
    3594   315224452 :          mat(k,2080) = 0._r8
    3595   315224452 :          mat(k,2084) = 0._r8
    3596   315224452 :          mat(k,2097) = 0._r8
    3597   315224452 :          mat(k,2098) = 0._r8
    3598   315224452 :          mat(k,2103) = 0._r8
    3599   315224452 :          mat(k,2105) = 0._r8
    3600   315224452 :          mat(k,2106) = 0._r8
    3601   315224452 :          mat(k,2108) = 0._r8
    3602   315224452 :          mat(k,2109) = 0._r8
    3603   315224452 :          mat(k,2111) = 0._r8
    3604   315224452 :          mat(k,2112) = 0._r8
    3605   315224452 :          mat(k,2113) = 0._r8
    3606   315224452 :          mat(k,2115) = 0._r8
    3607   315224452 :          mat(k,2116) = 0._r8
    3608   315224452 :          mat(k,2117) = 0._r8
    3609   315224452 :          mat(k,2118) = 0._r8
    3610   315224452 :          mat(k,2119) = 0._r8
    3611   315224452 :          mat(k,2122) = 0._r8
    3612   315224452 :          mat(k,2124) = 0._r8
    3613   315224452 :          mat(k,2126) = 0._r8
    3614   315224452 :          mat(k,2138) = 0._r8
    3615   315224452 :          mat(k,2141) = 0._r8
    3616   315224452 :          mat(k,2144) = 0._r8
    3617   315224452 :          mat(k,2145) = 0._r8
    3618   315224452 :          mat(k,2146) = 0._r8
    3619   315224452 :          mat(k,2148) = 0._r8
    3620   315224452 :          mat(k,2149) = 0._r8
    3621   315224452 :          mat(k,2150) = 0._r8
    3622   315224452 :          mat(k,2151) = 0._r8
    3623   315224452 :          mat(k,2152) = 0._r8
    3624   315224452 :          mat(k,2157) = 0._r8
    3625   315224452 :          mat(k,2161) = 0._r8
    3626   315224452 :          mat(k,2162) = 0._r8
    3627   315224452 :          mat(k,2164) = 0._r8
    3628   315224452 :          mat(k,2165) = 0._r8
    3629   315224452 :          mat(k,2166) = 0._r8
    3630   315224452 :          mat(k,2173) = 0._r8
    3631   315224452 :          mat(k,2188) = 0._r8
    3632   315224452 :          mat(k,2194) = 0._r8
    3633   315224452 :          mat(k,2195) = 0._r8
    3634   315224452 :          mat(k,2196) = 0._r8
    3635   315224452 :          mat(k,2199) = 0._r8
    3636   315224452 :          mat(k,2204) = 0._r8
    3637   315224452 :          mat(k,2205) = 0._r8
    3638   315224452 :          mat(k,2206) = 0._r8
    3639   315224452 :          mat(k,2208) = 0._r8
    3640   315224452 :          mat(k,2211) = 0._r8
    3641   315224452 :          mat(k,2212) = 0._r8
    3642   315224452 :          mat(k,2213) = 0._r8
    3643   315224452 :          mat(k,2215) = 0._r8
    3644   315224452 :          mat(k,2229) = 0._r8
    3645   315224452 :          mat(k,2237) = 0._r8
    3646   315224452 :          mat(k,2244) = 0._r8
    3647   315224452 :          mat(k,2245) = 0._r8
    3648   315224452 :          mat(k,2246) = 0._r8
    3649   315224452 :          mat(k,2247) = 0._r8
    3650   315224452 :          mat(k,2248) = 0._r8
    3651   315224452 :          mat(k,2250) = 0._r8
    3652   315224452 :          mat(k,2251) = 0._r8
    3653   315224452 :          mat(k,2254) = 0._r8
    3654   315224452 :          mat(k,2258) = 0._r8
    3655   315224452 :          mat(k,2293) = 0._r8
    3656   315224452 :          mat(k,2294) = 0._r8
    3657   315224452 :          mat(k,2295) = 0._r8
    3658   315224452 :          mat(k,2321) = 0._r8
    3659   315224452 :          mat(k,2329) = 0._r8
    3660   315224452 :          mat(k,2330) = 0._r8
    3661   315224452 :          mat(k,2332) = 0._r8
    3662   315224452 :          mat(k,2335) = 0._r8
    3663   315224452 :          mat(k,2337) = 0._r8
    3664   315224452 :          mat(k,2341) = 0._r8
    3665   315224452 :          mat(k,2346) = 0._r8
    3666   315224452 :          mat(k,2361) = 0._r8
    3667   315224452 :          mat(k,2362) = 0._r8
    3668   315224452 :          mat(k,2367) = 0._r8
    3669   315224452 :          mat(k,2378) = 0._r8
    3670   315224452 :          mat(k,2406) = 0._r8
    3671   315224452 :          mat(k,2408) = 0._r8
    3672   315224452 :          mat(k,2409) = 0._r8
    3673   315224452 :          mat(k,2413) = 0._r8
    3674   315224452 :          mat(k,2414) = 0._r8
    3675   315224452 :          mat(k,2415) = 0._r8
    3676   315224452 :          mat(k,2416) = 0._r8
    3677   315224452 :          mat(k,2418) = 0._r8
    3678   315224452 :          mat(k,2419) = 0._r8
    3679   315224452 :          mat(k,2422) = 0._r8
    3680   315224452 :          mat(k,2427) = 0._r8
    3681   315224452 :          mat(k,2429) = 0._r8
    3682   315224452 :          mat(k,2430) = 0._r8
    3683   315224452 :          mat(k,2431) = 0._r8
    3684   315224452 :          mat(k,2432) = 0._r8
    3685   315224452 :          mat(k,2433) = 0._r8
    3686   315224452 :          mat(k,2434) = 0._r8
    3687   315224452 :          mat(k,2435) = 0._r8
    3688   315224452 :          mat(k,2437) = 0._r8
    3689   315224452 :          mat(k,2438) = 0._r8
    3690   315224452 :          mat(k,2439) = 0._r8
    3691   315224452 :          mat(k,2441) = 0._r8
    3692   315224452 :          mat(k,2444) = 0._r8
    3693   315224452 :          mat(k,2445) = 0._r8
    3694   315224452 :          mat(k,2446) = 0._r8
    3695   315224452 :          mat(k,2447) = 0._r8
    3696   315224452 :          mat(k,2448) = 0._r8
    3697   315224452 :          mat(k, 1) = mat(k, 1) - dti(k)
    3698   315224452 :          mat(k, 2) = mat(k, 2) - dti(k)
    3699   315224452 :          mat(k, 3) = mat(k, 3) - dti(k)
    3700   315224452 :          mat(k, 4) = mat(k, 4) - dti(k)
    3701   315224452 :          mat(k, 5) = mat(k, 5) - dti(k)
    3702   315224452 :          mat(k, 6) = mat(k, 6) - dti(k)
    3703   315224452 :          mat(k, 7) = mat(k, 7) - dti(k)
    3704   315224452 :          mat(k, 8) = mat(k, 8) - dti(k)
    3705   315224452 :          mat(k, 9) = mat(k, 9) - dti(k)
    3706   315224452 :          mat(k, 10) = mat(k, 10) - dti(k)
    3707   315224452 :          mat(k, 11) = mat(k, 11) - dti(k)
    3708   315224452 :          mat(k, 12) = mat(k, 12) - dti(k)
    3709   315224452 :          mat(k, 13) = mat(k, 13) - dti(k)
    3710   315224452 :          mat(k, 14) = mat(k, 14) - dti(k)
    3711   315224452 :          mat(k, 15) = mat(k, 15) - dti(k)
    3712   315224452 :          mat(k, 16) = mat(k, 16) - dti(k)
    3713   315224452 :          mat(k, 17) = mat(k, 17) - dti(k)
    3714   315224452 :          mat(k, 18) = mat(k, 18) - dti(k)
    3715   315224452 :          mat(k, 19) = mat(k, 19) - dti(k)
    3716   315224452 :          mat(k, 20) = mat(k, 20) - dti(k)
    3717   315224452 :          mat(k, 21) = mat(k, 21) - dti(k)
    3718   315224452 :          mat(k, 22) = mat(k, 22) - dti(k)
    3719   315224452 :          mat(k, 23) = mat(k, 23) - dti(k)
    3720   315224452 :          mat(k, 24) = mat(k, 24) - dti(k)
    3721   315224452 :          mat(k, 25) = mat(k, 25) - dti(k)
    3722   315224452 :          mat(k, 26) = mat(k, 26) - dti(k)
    3723   315224452 :          mat(k, 27) = mat(k, 27) - dti(k)
    3724   315224452 :          mat(k, 28) = mat(k, 28) - dti(k)
    3725   315224452 :          mat(k, 29) = mat(k, 29) - dti(k)
    3726   315224452 :          mat(k, 30) = mat(k, 30) - dti(k)
    3727   315224452 :          mat(k, 31) = mat(k, 31) - dti(k)
    3728   315224452 :          mat(k, 32) = mat(k, 32) - dti(k)
    3729   315224452 :          mat(k, 33) = mat(k, 33) - dti(k)
    3730   315224452 :          mat(k, 34) = mat(k, 34) - dti(k)
    3731   315224452 :          mat(k, 35) = mat(k, 35) - dti(k)
    3732   315224452 :          mat(k, 36) = mat(k, 36) - dti(k)
    3733   315224452 :          mat(k, 37) = mat(k, 37) - dti(k)
    3734   315224452 :          mat(k, 38) = mat(k, 38) - dti(k)
    3735   315224452 :          mat(k, 39) = mat(k, 39) - dti(k)
    3736   315224452 :          mat(k, 40) = mat(k, 40) - dti(k)
    3737   315224452 :          mat(k, 41) = mat(k, 41) - dti(k)
    3738   315224452 :          mat(k, 42) = mat(k, 42) - dti(k)
    3739   315224452 :          mat(k, 43) = mat(k, 43) - dti(k)
    3740   315224452 :          mat(k, 44) = mat(k, 44) - dti(k)
    3741   315224452 :          mat(k, 50) = mat(k, 50) - dti(k)
    3742   315224452 :          mat(k, 56) = mat(k, 56) - dti(k)
    3743   315224452 :          mat(k, 62) = mat(k, 62) - dti(k)
    3744   315224452 :          mat(k, 68) = mat(k, 68) - dti(k)
    3745   315224452 :          mat(k, 74) = mat(k, 74) - dti(k)
    3746   315224452 :          mat(k, 76) = mat(k, 76) - dti(k)
    3747   315224452 :          mat(k, 82) = mat(k, 82) - dti(k)
    3748   315224452 :          mat(k, 88) = mat(k, 88) - dti(k)
    3749   315224452 :          mat(k, 94) = mat(k, 94) - dti(k)
    3750   315224452 :          mat(k, 95) = mat(k, 95) - dti(k)
    3751   315224452 :          mat(k, 98) = mat(k, 98) - dti(k)
    3752   315224452 :          mat(k, 101) = mat(k, 101) - dti(k)
    3753   315224452 :          mat(k, 104) = mat(k, 104) - dti(k)
    3754   315224452 :          mat(k, 107) = mat(k, 107) - dti(k)
    3755   315224452 :          mat(k, 111) = mat(k, 111) - dti(k)
    3756   315224452 :          mat(k, 115) = mat(k, 115) - dti(k)
    3757   315224452 :          mat(k, 119) = mat(k, 119) - dti(k)
    3758   315224452 :          mat(k, 123) = mat(k, 123) - dti(k)
    3759   315224452 :          mat(k, 127) = mat(k, 127) - dti(k)
    3760   315224452 :          mat(k, 130) = mat(k, 130) - dti(k)
    3761   315224452 :          mat(k, 133) = mat(k, 133) - dti(k)
    3762   315224452 :          mat(k, 136) = mat(k, 136) - dti(k)
    3763   315224452 :          mat(k, 139) = mat(k, 139) - dti(k)
    3764   315224452 :          mat(k, 144) = mat(k, 144) - dti(k)
    3765   315224452 :          mat(k, 149) = mat(k, 149) - dti(k)
    3766   315224452 :          mat(k, 154) = mat(k, 154) - dti(k)
    3767   315224452 :          mat(k, 160) = mat(k, 160) - dti(k)
    3768   315224452 :          mat(k, 166) = mat(k, 166) - dti(k)
    3769   315224452 :          mat(k, 170) = mat(k, 170) - dti(k)
    3770   315224452 :          mat(k, 175) = mat(k, 175) - dti(k)
    3771   315224452 :          mat(k, 177) = mat(k, 177) - dti(k)
    3772   315224452 :          mat(k, 180) = mat(k, 180) - dti(k)
    3773   315224452 :          mat(k, 182) = mat(k, 182) - dti(k)
    3774   315224452 :          mat(k, 187) = mat(k, 187) - dti(k)
    3775   315224452 :          mat(k, 194) = mat(k, 194) - dti(k)
    3776   315224452 :          mat(k, 199) = mat(k, 199) - dti(k)
    3777   315224452 :          mat(k, 203) = mat(k, 203) - dti(k)
    3778   315224452 :          mat(k, 208) = mat(k, 208) - dti(k)
    3779   315224452 :          mat(k, 216) = mat(k, 216) - dti(k)
    3780   315224452 :          mat(k, 221) = mat(k, 221) - dti(k)
    3781   315224452 :          mat(k, 226) = mat(k, 226) - dti(k)
    3782   315224452 :          mat(k, 229) = mat(k, 229) - dti(k)
    3783   315224452 :          mat(k, 232) = mat(k, 232) - dti(k)
    3784   315224452 :          mat(k, 235) = mat(k, 235) - dti(k)
    3785   315224452 :          mat(k, 238) = mat(k, 238) - dti(k)
    3786   315224452 :          mat(k, 241) = mat(k, 241) - dti(k)
    3787   315224452 :          mat(k, 246) = mat(k, 246) - dti(k)
    3788   315224452 :          mat(k, 251) = mat(k, 251) - dti(k)
    3789   315224452 :          mat(k, 256) = mat(k, 256) - dti(k)
    3790   315224452 :          mat(k, 261) = mat(k, 261) - dti(k)
    3791   315224452 :          mat(k, 265) = mat(k, 265) - dti(k)
    3792   315224452 :          mat(k, 269) = mat(k, 269) - dti(k)
    3793   315224452 :          mat(k, 273) = mat(k, 273) - dti(k)
    3794   315224452 :          mat(k, 279) = mat(k, 279) - dti(k)
    3795   315224452 :          mat(k, 282) = mat(k, 282) - dti(k)
    3796   315224452 :          mat(k, 285) = mat(k, 285) - dti(k)
    3797   315224452 :          mat(k, 292) = mat(k, 292) - dti(k)
    3798   315224452 :          mat(k, 298) = mat(k, 298) - dti(k)
    3799   315224452 :          mat(k, 304) = mat(k, 304) - dti(k)
    3800   315224452 :          mat(k, 310) = mat(k, 310) - dti(k)
    3801   315224452 :          mat(k, 316) = mat(k, 316) - dti(k)
    3802   315224452 :          mat(k, 321) = mat(k, 321) - dti(k)
    3803   315224452 :          mat(k, 326) = mat(k, 326) - dti(k)
    3804   315224452 :          mat(k, 329) = mat(k, 329) - dti(k)
    3805   315224452 :          mat(k, 334) = mat(k, 334) - dti(k)
    3806   315224452 :          mat(k, 339) = mat(k, 339) - dti(k)
    3807   315224452 :          mat(k, 345) = mat(k, 345) - dti(k)
    3808   315224452 :          mat(k, 350) = mat(k, 350) - dti(k)
    3809   315224452 :          mat(k, 355) = mat(k, 355) - dti(k)
    3810   315224452 :          mat(k, 363) = mat(k, 363) - dti(k)
    3811   315224452 :          mat(k, 371) = mat(k, 371) - dti(k)
    3812   315224452 :          mat(k, 379) = mat(k, 379) - dti(k)
    3813   315224452 :          mat(k, 385) = mat(k, 385) - dti(k)
    3814   315224452 :          mat(k, 391) = mat(k, 391) - dti(k)
    3815   315224452 :          mat(k, 397) = mat(k, 397) - dti(k)
    3816   315224452 :          mat(k, 403) = mat(k, 403) - dti(k)
    3817   315224452 :          mat(k, 409) = mat(k, 409) - dti(k)
    3818   315224452 :          mat(k, 415) = mat(k, 415) - dti(k)
    3819   315224452 :          mat(k, 421) = mat(k, 421) - dti(k)
    3820   315224452 :          mat(k, 427) = mat(k, 427) - dti(k)
    3821   315224452 :          mat(k, 435) = mat(k, 435) - dti(k)
    3822   315224452 :          mat(k, 441) = mat(k, 441) - dti(k)
    3823   315224452 :          mat(k, 448) = mat(k, 448) - dti(k)
    3824   315224452 :          mat(k, 454) = mat(k, 454) - dti(k)
    3825   315224452 :          mat(k, 460) = mat(k, 460) - dti(k)
    3826   315224452 :          mat(k, 465) = mat(k, 465) - dti(k)
    3827   315224452 :          mat(k, 468) = mat(k, 468) - dti(k)
    3828   315224452 :          mat(k, 472) = mat(k, 472) - dti(k)
    3829   315224452 :          mat(k, 479) = mat(k, 479) - dti(k)
    3830   315224452 :          mat(k, 486) = mat(k, 486) - dti(k)
    3831   315224452 :          mat(k, 495) = mat(k, 495) - dti(k)
    3832   315224452 :          mat(k, 502) = mat(k, 502) - dti(k)
    3833   315224452 :          mat(k, 510) = mat(k, 510) - dti(k)
    3834   315224452 :          mat(k, 517) = mat(k, 517) - dti(k)
    3835   315224452 :          mat(k, 523) = mat(k, 523) - dti(k)
    3836   315224452 :          mat(k, 529) = mat(k, 529) - dti(k)
    3837   315224452 :          mat(k, 534) = mat(k, 534) - dti(k)
    3838   315224452 :          mat(k, 542) = mat(k, 542) - dti(k)
    3839   315224452 :          mat(k, 550) = mat(k, 550) - dti(k)
    3840   315224452 :          mat(k, 558) = mat(k, 558) - dti(k)
    3841   315224452 :          mat(k, 566) = mat(k, 566) - dti(k)
    3842   315224452 :          mat(k, 574) = mat(k, 574) - dti(k)
    3843   315224452 :          mat(k, 582) = mat(k, 582) - dti(k)
    3844   315224452 :          mat(k, 589) = mat(k, 589) - dti(k)
    3845   315224452 :          mat(k, 598) = mat(k, 598) - dti(k)
    3846   315224452 :          mat(k, 602) = mat(k, 602) - dti(k)
    3847   315224452 :          mat(k, 611) = mat(k, 611) - dti(k)
    3848   315224452 :          mat(k, 620) = mat(k, 620) - dti(k)
    3849   315224452 :          mat(k, 627) = mat(k, 627) - dti(k)
    3850   315224452 :          mat(k, 635) = mat(k, 635) - dti(k)
    3851   315224452 :          mat(k, 642) = mat(k, 642) - dti(k)
    3852   315224452 :          mat(k, 652) = mat(k, 652) - dti(k)
    3853   315224452 :          mat(k, 665) = mat(k, 665) - dti(k)
    3854   315224452 :          mat(k, 676) = mat(k, 676) - dti(k)
    3855   315224452 :          mat(k, 687) = mat(k, 687) - dti(k)
    3856   315224452 :          mat(k, 698) = mat(k, 698) - dti(k)
    3857   315224452 :          mat(k, 705) = mat(k, 705) - dti(k)
    3858   315224452 :          mat(k, 711) = mat(k, 711) - dti(k)
    3859   315224452 :          mat(k, 718) = mat(k, 718) - dti(k)
    3860   315224452 :          mat(k, 729) = mat(k, 729) - dti(k)
    3861   315224452 :          mat(k, 740) = mat(k, 740) - dti(k)
    3862   315224452 :          mat(k, 751) = mat(k, 751) - dti(k)
    3863   315224452 :          mat(k, 767) = mat(k, 767) - dti(k)
    3864   315224452 :          mat(k, 778) = mat(k, 778) - dti(k)
    3865   315224452 :          mat(k, 787) = mat(k, 787) - dti(k)
    3866   315224452 :          mat(k, 797) = mat(k, 797) - dti(k)
    3867   315224452 :          mat(k, 805) = mat(k, 805) - dti(k)
    3868   315224452 :          mat(k, 814) = mat(k, 814) - dti(k)
    3869   315224452 :          mat(k, 824) = mat(k, 824) - dti(k)
    3870   315224452 :          mat(k, 828) = mat(k, 828) - dti(k)
    3871   315224452 :          mat(k, 837) = mat(k, 837) - dti(k)
    3872   315224452 :          mat(k, 845) = mat(k, 845) - dti(k)
    3873   315224452 :          mat(k, 853) = mat(k, 853) - dti(k)
    3874   315224452 :          mat(k, 865) = mat(k, 865) - dti(k)
    3875   315224452 :          mat(k, 876) = mat(k, 876) - dti(k)
    3876   315224452 :          mat(k, 892) = mat(k, 892) - dti(k)
    3877   315224452 :          mat(k, 901) = mat(k, 901) - dti(k)
    3878   315224452 :          mat(k, 910) = mat(k, 910) - dti(k)
    3879   315224452 :          mat(k, 919) = mat(k, 919) - dti(k)
    3880   315224452 :          mat(k, 925) = mat(k, 925) - dti(k)
    3881   315224452 :          mat(k, 935) = mat(k, 935) - dti(k)
    3882   315224452 :          mat(k, 947) = mat(k, 947) - dti(k)
    3883   315224452 :          mat(k, 955) = mat(k, 955) - dti(k)
    3884   315224452 :          mat(k, 974) = mat(k, 974) - dti(k)
    3885   315224452 :          mat(k, 999) = mat(k, 999) - dti(k)
    3886   315224452 :          mat(k,1018) = mat(k,1018) - dti(k)
    3887   315224452 :          mat(k,1042) = mat(k,1042) - dti(k)
    3888   315224452 :          mat(k,1054) = mat(k,1054) - dti(k)
    3889   315224452 :          mat(k,1062) = mat(k,1062) - dti(k)
    3890   315224452 :          mat(k,1072) = mat(k,1072) - dti(k)
    3891   315224452 :          mat(k,1080) = mat(k,1080) - dti(k)
    3892   315224452 :          mat(k,1090) = mat(k,1090) - dti(k)
    3893   315224452 :          mat(k,1106) = mat(k,1106) - dti(k)
    3894   315224452 :          mat(k,1119) = mat(k,1119) - dti(k)
    3895   315224452 :          mat(k,1133) = mat(k,1133) - dti(k)
    3896   315224452 :          mat(k,1151) = mat(k,1151) - dti(k)
    3897   315224452 :          mat(k,1160) = mat(k,1160) - dti(k)
    3898   315224452 :          mat(k,1166) = mat(k,1166) - dti(k)
    3899   315224452 :          mat(k,1178) = mat(k,1178) - dti(k)
    3900   315224452 :          mat(k,1195) = mat(k,1195) - dti(k)
    3901   315224452 :          mat(k,1208) = mat(k,1208) - dti(k)
    3902   315224452 :          mat(k,1217) = mat(k,1217) - dti(k)
    3903   315224452 :          mat(k,1233) = mat(k,1233) - dti(k)
    3904   315224452 :          mat(k,1253) = mat(k,1253) - dti(k)
    3905   315224452 :          mat(k,1269) = mat(k,1269) - dti(k)
    3906   315224452 :          mat(k,1281) = mat(k,1281) - dti(k)
    3907   315224452 :          mat(k,1299) = mat(k,1299) - dti(k)
    3908   315224452 :          mat(k,1332) = mat(k,1332) - dti(k)
    3909   315224452 :          mat(k,1356) = mat(k,1356) - dti(k)
    3910   315224452 :          mat(k,1376) = mat(k,1376) - dti(k)
    3911   315224452 :          mat(k,1397) = mat(k,1397) - dti(k)
    3912   315224452 :          mat(k,1428) = mat(k,1428) - dti(k)
    3913   315224452 :          mat(k,1450) = mat(k,1450) - dti(k)
    3914   315224452 :          mat(k,1461) = mat(k,1461) - dti(k)
    3915   315224452 :          mat(k,1476) = mat(k,1476) - dti(k)
    3916   315224452 :          mat(k,1495) = mat(k,1495) - dti(k)
    3917   315224452 :          mat(k,1511) = mat(k,1511) - dti(k)
    3918   315224452 :          mat(k,1542) = mat(k,1542) - dti(k)
    3919   315224452 :          mat(k,1565) = mat(k,1565) - dti(k)
    3920   315224452 :          mat(k,1592) = mat(k,1592) - dti(k)
    3921   315224452 :          mat(k,1652) = mat(k,1652) - dti(k)
    3922   315224452 :          mat(k,1818) = mat(k,1818) - dti(k)
    3923   315224452 :          mat(k,1914) = mat(k,1914) - dti(k)
    3924   315224452 :          mat(k,1960) = mat(k,1960) - dti(k)
    3925   315224452 :          mat(k,1987) = mat(k,1987) - dti(k)
    3926   315224452 :          mat(k,2031) = mat(k,2031) - dti(k)
    3927   315224452 :          mat(k,2055) = mat(k,2055) - dti(k)
    3928   315224452 :          mat(k,2099) = mat(k,2099) - dti(k)
    3929   315224452 :          mat(k,2121) = mat(k,2121) - dti(k)
    3930   315224452 :          mat(k,2168) = mat(k,2168) - dti(k)
    3931   315224452 :          mat(k,2233) = mat(k,2233) - dti(k)
    3932   315224452 :          mat(k,2259) = mat(k,2259) - dti(k)
    3933   315224452 :          mat(k,2368) = mat(k,2368) - dti(k)
    3934   315224452 :          mat(k,2421) = mat(k,2421) - dti(k)
    3935   325174377 :          mat(k,2449) = mat(k,2449) - dti(k)
    3936             :       end do
    3937     9949925 :       end subroutine nlnmat_finit
    3938     9949925 :       subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti )
    3939             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    3940             :       implicit none
    3941             : !----------------------------------------------
    3942             : ! ... dummy arguments
    3943             : !----------------------------------------------
    3944             :       integer, intent(in) :: avec_len
    3945             :       real(r8), intent(in) :: dti(veclen)
    3946             :       real(r8), intent(in) :: lmat(veclen,nzcnt)
    3947             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    3948             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    3949             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    3950     9949925 :       call nlnmat01( avec_len, mat, y, rxt )
    3951     9949925 :       call nlnmat02( avec_len, mat, y, rxt )
    3952     9949925 :       call nlnmat03( avec_len, mat, y, rxt )
    3953     9949925 :       call nlnmat04( avec_len, mat, y, rxt )
    3954     9949925 :       call nlnmat05( avec_len, mat, y, rxt )
    3955     9949925 :       call nlnmat06( avec_len, mat, y, rxt )
    3956     9949925 :       call nlnmat07( avec_len, mat, y, rxt )
    3957     9949925 :       call nlnmat08( avec_len, mat, y, rxt )
    3958     9949925 :       call nlnmat09( avec_len, mat, y, rxt )
    3959     9949925 :       call nlnmat10( avec_len, mat, y, rxt )
    3960     9949925 :       call nlnmat11( avec_len, mat, y, rxt )
    3961     9949925 :       call nlnmat_finit( avec_len, mat, lmat, dti )
    3962     9949925 :       end subroutine nlnmat
    3963             :       end module mo_nln_matrix

Generated by: LCOV version 1.14