LCOV - code coverage report
Current view: top level - chemistry/pp_trop_strat_noaero - mo_nln_matrix.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 2679 2679 100.0 %
Date: 2025-03-14 01:30:37 Functions: 11 11 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     4409738 :       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   145521354 :       do k = 1,avec_len
      25   141111616 :          mat(k,532) = -(rxt(k,346)*y(k,190))
      26   141111616 :          mat(k,1442) = -rxt(k,346)*y(k,1)
      27   141111616 :          mat(k,1755) = rxt(k,349)*y(k,162)
      28   141111616 :          mat(k,805) = rxt(k,349)*y(k,116)
      29   141111616 :          mat(k,521) = -(rxt(k,350)*y(k,190))
      30   141111616 :          mat(k,1441) = -rxt(k,350)*y(k,2)
      31   141111616 :          mat(k,804) = rxt(k,347)*y(k,176)
      32   141111616 :          mat(k,1635) = rxt(k,347)*y(k,162)
      33             :          mat(k,759) = -(rxt(k,429)*y(k,118) + rxt(k,430)*y(k,122) + rxt(k,431) &
      34   141111616 :                       *y(k,190))
      35   141111616 :          mat(k,1980) = -rxt(k,429)*y(k,4)
      36   141111616 :          mat(k,1828) = -rxt(k,430)*y(k,4)
      37   141111616 :          mat(k,1464) = -rxt(k,431)*y(k,4)
      38   141111616 :          mat(k,88) = -(rxt(k,388)*y(k,190))
      39   141111616 :          mat(k,1377) = -rxt(k,388)*y(k,5)
      40   141111616 :          mat(k,313) = -(rxt(k,391)*y(k,190))
      41   141111616 :          mat(k,1414) = -rxt(k,391)*y(k,6)
      42   141111616 :          mat(k,373) = rxt(k,389)*y(k,176)
      43   141111616 :          mat(k,1616) = rxt(k,389)*y(k,164)
      44   141111616 :          mat(k,89) = .120_r8*rxt(k,388)*y(k,190)
      45   141111616 :          mat(k,1378) = .120_r8*rxt(k,388)*y(k,5)
      46   141111616 :          mat(k,756) = .100_r8*rxt(k,430)*y(k,122)
      47   141111616 :          mat(k,783) = .100_r8*rxt(k,433)*y(k,122)
      48   141111616 :          mat(k,1817) = .100_r8*rxt(k,430)*y(k,4) + .100_r8*rxt(k,433)*y(k,105)
      49             :          mat(k,1743) = .500_r8*rxt(k,390)*y(k,164) + .200_r8*rxt(k,417)*y(k,196) &
      50   141111616 :                       + .060_r8*rxt(k,423)*y(k,199)
      51   141111616 :          mat(k,374) = .500_r8*rxt(k,390)*y(k,116)
      52   141111616 :          mat(k,581) = .200_r8*rxt(k,417)*y(k,116)
      53   141111616 :          mat(k,605) = .060_r8*rxt(k,423)*y(k,116)
      54   141111616 :          mat(k,1736) = .200_r8*rxt(k,417)*y(k,196) + .200_r8*rxt(k,423)*y(k,199)
      55   141111616 :          mat(k,580) = .200_r8*rxt(k,417)*y(k,116)
      56   141111616 :          mat(k,603) = .200_r8*rxt(k,423)*y(k,116)
      57   141111616 :          mat(k,1752) = .200_r8*rxt(k,417)*y(k,196) + .150_r8*rxt(k,423)*y(k,199)
      58   141111616 :          mat(k,583) = .200_r8*rxt(k,417)*y(k,116)
      59   141111616 :          mat(k,606) = .150_r8*rxt(k,423)*y(k,116)
      60   141111616 :          mat(k,1738) = .210_r8*rxt(k,423)*y(k,199)
      61   141111616 :          mat(k,604) = .210_r8*rxt(k,423)*y(k,116)
      62   141111616 :          mat(k,154) = -(rxt(k,351)*y(k,190))
      63   141111616 :          mat(k,1389) = -rxt(k,351)*y(k,13)
      64   141111616 :          mat(k,755) = .050_r8*rxt(k,430)*y(k,122)
      65   141111616 :          mat(k,782) = .050_r8*rxt(k,433)*y(k,122)
      66   141111616 :          mat(k,1816) = .050_r8*rxt(k,430)*y(k,4) + .050_r8*rxt(k,433)*y(k,105)
      67   141111616 :          mat(k,257) = -(rxt(k,317)*y(k,118) + rxt(k,318)*y(k,190))
      68   141111616 :          mat(k,1974) = -rxt(k,317)*y(k,14)
      69   141111616 :          mat(k,1405) = -rxt(k,318)*y(k,14)
      70             :          mat(k,1247) = -(rxt(k,200)*y(k,40) + rxt(k,201)*y(k,176) + rxt(k,202) &
      71   141111616 :                       *y(k,122))
      72   141111616 :          mat(k,1541) = -rxt(k,200)*y(k,15)
      73   141111616 :          mat(k,1677) = -rxt(k,201)*y(k,15)
      74   141111616 :          mat(k,1853) = -rxt(k,202)*y(k,15)
      75             :          mat(k,1518) = 4.000_r8*rxt(k,203)*y(k,17) + (rxt(k,204)+rxt(k,205))*y(k,57) &
      76             :                       + rxt(k,208)*y(k,116) + rxt(k,211)*y(k,121) + rxt(k,458) &
      77   141111616 :                       *y(k,136) + rxt(k,212)*y(k,190)
      78   141111616 :          mat(k,1703) = (rxt(k,204)+rxt(k,205))*y(k,17)
      79   141111616 :          mat(k,695) = rxt(k,213)*y(k,121) + rxt(k,219)*y(k,189) + rxt(k,214)*y(k,190)
      80   141111616 :          mat(k,1793) = rxt(k,208)*y(k,17)
      81   141111616 :          mat(k,1571) = rxt(k,211)*y(k,17) + rxt(k,213)*y(k,76)
      82   141111616 :          mat(k,1084) = rxt(k,458)*y(k,17)
      83   141111616 :          mat(k,1340) = rxt(k,219)*y(k,76)
      84   141111616 :          mat(k,1494) = rxt(k,212)*y(k,17) + rxt(k,214)*y(k,76)
      85   141111616 :          mat(k,1512) = rxt(k,206)*y(k,57)
      86   141111616 :          mat(k,1697) = rxt(k,206)*y(k,17)
      87   141111616 :          mat(k,1913) = (rxt(k,520)+rxt(k,525))*y(k,86)
      88   141111616 :          mat(k,647) = (rxt(k,520)+rxt(k,525))*y(k,80)
      89             :          mat(k,1524) = -(4._r8*rxt(k,203)*y(k,17) + (rxt(k,204) + rxt(k,205) + rxt(k,206) &
      90             :                       ) * y(k,57) + rxt(k,207)*y(k,176) + rxt(k,208)*y(k,116) &
      91             :                       + rxt(k,209)*y(k,117) + rxt(k,211)*y(k,121) + rxt(k,212) &
      92   141111616 :                       *y(k,190) + rxt(k,458)*y(k,136))
      93   141111616 :          mat(k,1709) = -(rxt(k,204) + rxt(k,205) + rxt(k,206)) * y(k,17)
      94   141111616 :          mat(k,1683) = -rxt(k,207)*y(k,17)
      95   141111616 :          mat(k,1799) = -rxt(k,208)*y(k,17)
      96   141111616 :          mat(k,1900) = -rxt(k,209)*y(k,17)
      97   141111616 :          mat(k,1577) = -rxt(k,211)*y(k,17)
      98   141111616 :          mat(k,1500) = -rxt(k,212)*y(k,17)
      99   141111616 :          mat(k,1087) = -rxt(k,458)*y(k,17)
     100   141111616 :          mat(k,1251) = rxt(k,202)*y(k,122)
     101   141111616 :          mat(k,418) = rxt(k,210)*y(k,121)
     102   141111616 :          mat(k,699) = rxt(k,220)*y(k,189)
     103   141111616 :          mat(k,651) = rxt(k,215)*y(k,121)
     104   141111616 :          mat(k,1577) = mat(k,1577) + rxt(k,210)*y(k,18) + rxt(k,215)*y(k,86)
     105   141111616 :          mat(k,1859) = rxt(k,202)*y(k,15)
     106   141111616 :          mat(k,1346) = rxt(k,220)*y(k,76)
     107   141111616 :          mat(k,414) = -(rxt(k,210)*y(k,121))
     108   141111616 :          mat(k,1561) = -rxt(k,210)*y(k,18)
     109   141111616 :          mat(k,1514) = rxt(k,209)*y(k,117)
     110   141111616 :          mat(k,1878) = rxt(k,209)*y(k,17)
     111   141111616 :          mat(k,157) = -(rxt(k,392)*y(k,190))
     112   141111616 :          mat(k,1390) = -rxt(k,392)*y(k,20)
     113   141111616 :          mat(k,1733) = rxt(k,395)*y(k,166)
     114   141111616 :          mat(k,331) = rxt(k,395)*y(k,116)
     115   141111616 :          mat(k,239) = -(rxt(k,394)*y(k,190))
     116   141111616 :          mat(k,1403) = -rxt(k,394)*y(k,21)
     117   141111616 :          mat(k,332) = rxt(k,393)*y(k,176)
     118   141111616 :          mat(k,1609) = rxt(k,393)*y(k,166)
     119   141111616 :          mat(k,201) = -(rxt(k,266)*y(k,54) + rxt(k,267)*y(k,190))
     120   141111616 :          mat(k,1937) = -rxt(k,266)*y(k,22)
     121   141111616 :          mat(k,1397) = -rxt(k,267)*y(k,22)
     122   141111616 :          mat(k,442) = -(rxt(k,268)*y(k,54) + rxt(k,269)*y(k,122) + rxt(k,294)*y(k,190))
     123   141111616 :          mat(k,1938) = -rxt(k,268)*y(k,23)
     124   141111616 :          mat(k,1821) = -rxt(k,269)*y(k,23)
     125   141111616 :          mat(k,1431) = -rxt(k,294)*y(k,23)
     126   141111616 :          mat(k,166) = -(rxt(k,274)*y(k,190))
     127   141111616 :          mat(k,1392) = -rxt(k,274)*y(k,24)
     128   141111616 :          mat(k,683) = .800_r8*rxt(k,270)*y(k,167) + .200_r8*rxt(k,271)*y(k,171)
     129   141111616 :          mat(k,1285) = .200_r8*rxt(k,271)*y(k,167)
     130   141111616 :          mat(k,213) = -(rxt(k,275)*y(k,190))
     131   141111616 :          mat(k,1399) = -rxt(k,275)*y(k,25)
     132   141111616 :          mat(k,684) = rxt(k,272)*y(k,176)
     133   141111616 :          mat(k,1605) = rxt(k,272)*y(k,167)
     134   141111616 :          mat(k,195) = -(rxt(k,276)*y(k,54) + rxt(k,277)*y(k,190))
     135   141111616 :          mat(k,1936) = -rxt(k,276)*y(k,26)
     136   141111616 :          mat(k,1396) = -rxt(k,277)*y(k,26)
     137             :          mat(k,840) = -(rxt(k,297)*y(k,118) + rxt(k,298)*y(k,122) + rxt(k,315) &
     138   141111616 :                       *y(k,190))
     139   141111616 :          mat(k,1984) = -rxt(k,297)*y(k,27)
     140   141111616 :          mat(k,1832) = -rxt(k,298)*y(k,27)
     141   141111616 :          mat(k,1469) = -rxt(k,315)*y(k,27)
     142   141111616 :          mat(k,707) = .130_r8*rxt(k,375)*y(k,122)
     143   141111616 :          mat(k,1832) = mat(k,1832) + .130_r8*rxt(k,375)*y(k,93)
     144   141111616 :          mat(k,307) = -(rxt(k,302)*y(k,190))
     145   141111616 :          mat(k,1413) = -rxt(k,302)*y(k,28)
     146   141111616 :          mat(k,660) = rxt(k,300)*y(k,176)
     147   141111616 :          mat(k,1615) = rxt(k,300)*y(k,168)
     148   141111616 :          mat(k,66) = -(rxt(k,303)*y(k,190))
     149   141111616 :          mat(k,1374) = -rxt(k,303)*y(k,29)
     150   141111616 :          mat(k,170) = -(rxt(k,398)*y(k,190))
     151   141111616 :          mat(k,1393) = -rxt(k,398)*y(k,30)
     152   141111616 :          mat(k,512) = rxt(k,396)*y(k,176)
     153   141111616 :          mat(k,1603) = rxt(k,396)*y(k,169)
     154             :          mat(k,1548) = -(rxt(k,164)*y(k,54) + rxt(k,200)*y(k,15) + rxt(k,244)*y(k,176) &
     155             :                       + rxt(k,245)*y(k,118) + rxt(k,246)*y(k,121) + rxt(k,247) &
     156   141111616 :                       *y(k,190))
     157   141111616 :          mat(k,1958) = -rxt(k,164)*y(k,40)
     158   141111616 :          mat(k,1252) = -rxt(k,200)*y(k,40)
     159   141111616 :          mat(k,1684) = -rxt(k,244)*y(k,40)
     160   141111616 :          mat(k,2015) = -rxt(k,245)*y(k,40)
     161   141111616 :          mat(k,1578) = -rxt(k,246)*y(k,40)
     162   141111616 :          mat(k,1501) = -rxt(k,247)*y(k,40)
     163   141111616 :          mat(k,539) = .400_r8*rxt(k,346)*y(k,190)
     164   141111616 :          mat(k,771) = .340_r8*rxt(k,430)*y(k,122)
     165   141111616 :          mat(k,262) = .500_r8*rxt(k,317)*y(k,118)
     166   141111616 :          mat(k,447) = rxt(k,269)*y(k,122)
     167   141111616 :          mat(k,848) = .500_r8*rxt(k,298)*y(k,122)
     168   141111616 :          mat(k,405) = .500_r8*rxt(k,286)*y(k,190)
     169   141111616 :          mat(k,658) = rxt(k,252)*y(k,190)
     170   141111616 :          mat(k,299) = .300_r8*rxt(k,253)*y(k,190)
     171   141111616 :          mat(k,1710) = rxt(k,171)*y(k,171)
     172   141111616 :          mat(k,867) = .800_r8*rxt(k,291)*y(k,190)
     173   141111616 :          mat(k,717) = .910_r8*rxt(k,375)*y(k,122)
     174   141111616 :          mat(k,479) = .300_r8*rxt(k,366)*y(k,190)
     175   141111616 :          mat(k,1053) = .800_r8*rxt(k,370)*y(k,171)
     176   141111616 :          mat(k,1067) = .120_r8*rxt(k,328)*y(k,122)
     177   141111616 :          mat(k,462) = .500_r8*rxt(k,341)*y(k,190)
     178   141111616 :          mat(k,798) = .340_r8*rxt(k,433)*y(k,122)
     179   141111616 :          mat(k,1142) = .600_r8*rxt(k,342)*y(k,122)
     180             :          mat(k,1800) = .100_r8*rxt(k,348)*y(k,162) + rxt(k,251)*y(k,171) &
     181             :                       + .500_r8*rxt(k,319)*y(k,173) + .500_r8*rxt(k,288)*y(k,175) &
     182             :                       + .920_r8*rxt(k,358)*y(k,178) + .250_r8*rxt(k,326)*y(k,182) &
     183             :                       + rxt(k,335)*y(k,184) + rxt(k,309)*y(k,192) + rxt(k,313) &
     184             :                       *y(k,193) + .340_r8*rxt(k,442)*y(k,194) + .320_r8*rxt(k,447) &
     185   141111616 :                       *y(k,195) + .250_r8*rxt(k,383)*y(k,198)
     186             :          mat(k,2015) = mat(k,2015) + .500_r8*rxt(k,317)*y(k,14) + rxt(k,359)*y(k,178) &
     187   141111616 :                       + .250_r8*rxt(k,325)*y(k,182) + rxt(k,336)*y(k,184)
     188             :          mat(k,1860) = .340_r8*rxt(k,430)*y(k,4) + rxt(k,269)*y(k,23) &
     189             :                       + .500_r8*rxt(k,298)*y(k,27) + .910_r8*rxt(k,375)*y(k,93) &
     190             :                       + .120_r8*rxt(k,328)*y(k,100) + .340_r8*rxt(k,433)*y(k,105) &
     191   141111616 :                       + .600_r8*rxt(k,342)*y(k,106)
     192   141111616 :          mat(k,359) = rxt(k,293)*y(k,190)
     193   141111616 :          mat(k,891) = .680_r8*rxt(k,451)*y(k,190)
     194   141111616 :          mat(k,814) = .100_r8*rxt(k,348)*y(k,116)
     195   141111616 :          mat(k,690) = .700_r8*rxt(k,271)*y(k,171)
     196   141111616 :          mat(k,666) = rxt(k,299)*y(k,171)
     197             :          mat(k,1238) = rxt(k,282)*y(k,171) + rxt(k,355)*y(k,178) + .250_r8*rxt(k,322) &
     198   141111616 :                       *y(k,182) + rxt(k,331)*y(k,184) + .250_r8*rxt(k,380)*y(k,198)
     199             :          mat(k,1323) = rxt(k,171)*y(k,57) + .800_r8*rxt(k,370)*y(k,96) + rxt(k,251) &
     200             :                       *y(k,116) + .700_r8*rxt(k,271)*y(k,167) + rxt(k,299)*y(k,168) &
     201             :                       + rxt(k,282)*y(k,170) + (4.000_r8*rxt(k,248)+2.000_r8*rxt(k,249)) &
     202             :                       *y(k,171) + 1.500_r8*rxt(k,356)*y(k,178) + .750_r8*rxt(k,361) &
     203             :                       *y(k,179) + .880_r8*rxt(k,323)*y(k,182) + 2.000_r8*rxt(k,332) &
     204             :                       *y(k,184) + .750_r8*rxt(k,435)*y(k,188) + .800_r8*rxt(k,311) &
     205             :                       *y(k,193) + .930_r8*rxt(k,440)*y(k,194) + .950_r8*rxt(k,445) &
     206   141111616 :                       *y(k,195) + .800_r8*rxt(k,381)*y(k,198)
     207   141111616 :          mat(k,454) = .500_r8*rxt(k,319)*y(k,116)
     208   141111616 :          mat(k,570) = .500_r8*rxt(k,288)*y(k,116)
     209             :          mat(k,1684) = mat(k,1684) + .450_r8*rxt(k,333)*y(k,184) + .150_r8*rxt(k,312) &
     210   141111616 :                       *y(k,193)
     211             :          mat(k,1190) = .920_r8*rxt(k,358)*y(k,116) + rxt(k,359)*y(k,118) + rxt(k,355) &
     212   141111616 :                       *y(k,170) + 1.500_r8*rxt(k,356)*y(k,171)
     213   141111616 :          mat(k,1122) = .750_r8*rxt(k,361)*y(k,171)
     214             :          mat(k,1164) = .250_r8*rxt(k,326)*y(k,116) + .250_r8*rxt(k,325)*y(k,118) &
     215   141111616 :                       + .250_r8*rxt(k,322)*y(k,170) + .880_r8*rxt(k,323)*y(k,171)
     216             :          mat(k,1208) = rxt(k,335)*y(k,116) + rxt(k,336)*y(k,118) + rxt(k,331)*y(k,170) &
     217             :                       + 2.000_r8*rxt(k,332)*y(k,171) + .450_r8*rxt(k,333)*y(k,176) &
     218   141111616 :                       + 4.000_r8*rxt(k,334)*y(k,184)
     219   141111616 :          mat(k,986) = .750_r8*rxt(k,435)*y(k,171)
     220             :          mat(k,1501) = mat(k,1501) + .400_r8*rxt(k,346)*y(k,1) + .500_r8*rxt(k,286) &
     221             :                       *y(k,49) + rxt(k,252)*y(k,50) + .300_r8*rxt(k,253)*y(k,51) &
     222             :                       + .800_r8*rxt(k,291)*y(k,69) + .300_r8*rxt(k,366)*y(k,94) &
     223             :                       + .500_r8*rxt(k,341)*y(k,104) + rxt(k,293)*y(k,127) &
     224   141111616 :                       + .680_r8*rxt(k,451)*y(k,151)
     225   141111616 :          mat(k,633) = rxt(k,309)*y(k,116)
     226             :          mat(k,1000) = rxt(k,313)*y(k,116) + .800_r8*rxt(k,311)*y(k,171) &
     227   141111616 :                       + .150_r8*rxt(k,312)*y(k,176)
     228   141111616 :          mat(k,967) = .340_r8*rxt(k,442)*y(k,116) + .930_r8*rxt(k,440)*y(k,171)
     229   141111616 :          mat(k,947) = .320_r8*rxt(k,447)*y(k,116) + .950_r8*rxt(k,445)*y(k,171)
     230             :          mat(k,1017) = .250_r8*rxt(k,383)*y(k,116) + .250_r8*rxt(k,380)*y(k,170) &
     231   145521354 :                       + .800_r8*rxt(k,381)*y(k,171)
     232             :       end do
     233     4409738 :       end subroutine nlnmat01
     234     4409738 :       subroutine nlnmat02( avec_len, mat, y, rxt )
     235             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
     236             :       implicit none
     237             : !----------------------------------------------
     238             : ! ... dummy arguments
     239             : !----------------------------------------------
     240             :       integer, intent(in) :: avec_len
     241             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
     242             :       real(r8), intent(in) :: rxt(veclen,rxntot)
     243             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
     244             : !----------------------------------------------
     245             : ! ... local variables
     246             : !----------------------------------------------
     247             :       integer :: k
     248             : !----------------------------------------------
     249             : ! ... complete matrix entries implicit species
     250             : !----------------------------------------------
     251   145521354 :       do k = 1,avec_len
     252   141111616 :          mat(k,894) = -(rxt(k,278)*y(k,118) + rxt(k,279)*y(k,190))
     253   141111616 :          mat(k,1989) = -rxt(k,278)*y(k,43)
     254   141111616 :          mat(k,1474) = -rxt(k,279)*y(k,43)
     255   141111616 :          mat(k,536) = .800_r8*rxt(k,346)*y(k,190)
     256   141111616 :          mat(k,260) = rxt(k,317)*y(k,118)
     257   141111616 :          mat(k,167) = rxt(k,274)*y(k,190)
     258   141111616 :          mat(k,215) = .500_r8*rxt(k,275)*y(k,190)
     259   141111616 :          mat(k,841) = .500_r8*rxt(k,298)*y(k,122)
     260   141111616 :          mat(k,1131) = .100_r8*rxt(k,342)*y(k,122)
     261             :          mat(k,1775) = .400_r8*rxt(k,348)*y(k,162) + rxt(k,273)*y(k,167) &
     262             :                       + .270_r8*rxt(k,301)*y(k,168) + rxt(k,319)*y(k,173) + rxt(k,338) &
     263   141111616 :                       *y(k,186) + rxt(k,309)*y(k,192)
     264   141111616 :          mat(k,1989) = mat(k,1989) + rxt(k,317)*y(k,14)
     265   141111616 :          mat(k,1836) = .500_r8*rxt(k,298)*y(k,27) + .100_r8*rxt(k,342)*y(k,106)
     266   141111616 :          mat(k,810) = .400_r8*rxt(k,348)*y(k,116)
     267             :          mat(k,687) = rxt(k,273)*y(k,116) + 3.200_r8*rxt(k,270)*y(k,167) &
     268   141111616 :                       + .800_r8*rxt(k,271)*y(k,171)
     269   141111616 :          mat(k,663) = .270_r8*rxt(k,301)*y(k,116)
     270   141111616 :          mat(k,1301) = .800_r8*rxt(k,271)*y(k,167)
     271   141111616 :          mat(k,452) = rxt(k,319)*y(k,116)
     272   141111616 :          mat(k,1659) = .200_r8*rxt(k,337)*y(k,186)
     273   141111616 :          mat(k,544) = rxt(k,338)*y(k,116) + .200_r8*rxt(k,337)*y(k,176)
     274             :          mat(k,1474) = mat(k,1474) + .800_r8*rxt(k,346)*y(k,1) + rxt(k,274)*y(k,24) &
     275   141111616 :                       + .500_r8*rxt(k,275)*y(k,25)
     276   141111616 :          mat(k,630) = rxt(k,309)*y(k,116)
     277   141111616 :          mat(k,57) = -(rxt(k,280)*y(k,190))
     278   141111616 :          mat(k,1372) = -rxt(k,280)*y(k,45)
     279   141111616 :          mat(k,818) = -(rxt(k,316)*y(k,190))
     280   141111616 :          mat(k,1467) = -rxt(k,316)*y(k,46)
     281   141111616 :          mat(k,535) = .800_r8*rxt(k,346)*y(k,190)
     282   141111616 :          mat(k,761) = .520_r8*rxt(k,430)*y(k,122)
     283   141111616 :          mat(k,259) = .500_r8*rxt(k,317)*y(k,118)
     284   141111616 :          mat(k,788) = .520_r8*rxt(k,433)*y(k,122)
     285             :          mat(k,1770) = .250_r8*rxt(k,348)*y(k,162) + .820_r8*rxt(k,301)*y(k,168) &
     286             :                       + .500_r8*rxt(k,319)*y(k,173) + .270_r8*rxt(k,442)*y(k,194) &
     287   141111616 :                       + .040_r8*rxt(k,447)*y(k,195)
     288   141111616 :          mat(k,1983) = .500_r8*rxt(k,317)*y(k,14)
     289   141111616 :          mat(k,1831) = .520_r8*rxt(k,430)*y(k,4) + .520_r8*rxt(k,433)*y(k,105)
     290   141111616 :          mat(k,884) = .500_r8*rxt(k,451)*y(k,190)
     291   141111616 :          mat(k,809) = .250_r8*rxt(k,348)*y(k,116)
     292   141111616 :          mat(k,662) = .820_r8*rxt(k,301)*y(k,116) + .820_r8*rxt(k,299)*y(k,171)
     293             :          mat(k,1296) = .820_r8*rxt(k,299)*y(k,168) + .150_r8*rxt(k,440)*y(k,194) &
     294   141111616 :                       + .025_r8*rxt(k,445)*y(k,195)
     295   141111616 :          mat(k,451) = .500_r8*rxt(k,319)*y(k,116)
     296             :          mat(k,1467) = mat(k,1467) + .800_r8*rxt(k,346)*y(k,1) + .500_r8*rxt(k,451) &
     297   141111616 :                       *y(k,151)
     298   141111616 :          mat(k,956) = .270_r8*rxt(k,442)*y(k,116) + .150_r8*rxt(k,440)*y(k,171)
     299   141111616 :          mat(k,934) = .040_r8*rxt(k,447)*y(k,116) + .025_r8*rxt(k,445)*y(k,171)
     300   141111616 :          mat(k,1072) = -(rxt(k,304)*y(k,118) + rxt(k,305)*y(k,190))
     301   141111616 :          mat(k,2000) = -rxt(k,304)*y(k,47)
     302   141111616 :          mat(k,1486) = -rxt(k,305)*y(k,47)
     303   141111616 :          mat(k,926) = rxt(k,306)*y(k,190)
     304   141111616 :          mat(k,1061) = .880_r8*rxt(k,328)*y(k,122)
     305   141111616 :          mat(k,1134) = .500_r8*rxt(k,342)*y(k,122)
     306             :          mat(k,1786) = .170_r8*rxt(k,401)*y(k,172) + .050_r8*rxt(k,364)*y(k,179) &
     307             :                       + .250_r8*rxt(k,326)*y(k,182) + .170_r8*rxt(k,407)*y(k,185) &
     308             :                       + .400_r8*rxt(k,417)*y(k,196) + .250_r8*rxt(k,383)*y(k,198) &
     309   141111616 :                       + .540_r8*rxt(k,423)*y(k,199) + .510_r8*rxt(k,426)*y(k,201)
     310             :          mat(k,2000) = mat(k,2000) + .050_r8*rxt(k,365)*y(k,179) + .250_r8*rxt(k,325) &
     311   141111616 :                       *y(k,182) + .250_r8*rxt(k,384)*y(k,198)
     312   141111616 :          mat(k,730) = rxt(k,307)*y(k,190)
     313   141111616 :          mat(k,1845) = .880_r8*rxt(k,328)*y(k,100) + .500_r8*rxt(k,342)*y(k,106)
     314   141111616 :          mat(k,1227) = .250_r8*rxt(k,322)*y(k,182) + .250_r8*rxt(k,380)*y(k,198)
     315             :          mat(k,1311) = .240_r8*rxt(k,323)*y(k,182) + .500_r8*rxt(k,311)*y(k,193) &
     316   141111616 :                       + .100_r8*rxt(k,381)*y(k,198)
     317   141111616 :          mat(k,622) = .170_r8*rxt(k,401)*y(k,116) + .070_r8*rxt(k,400)*y(k,176)
     318   141111616 :          mat(k,1670) = .070_r8*rxt(k,400)*y(k,172) + .070_r8*rxt(k,406)*y(k,185)
     319   141111616 :          mat(k,1112) = .050_r8*rxt(k,364)*y(k,116) + .050_r8*rxt(k,365)*y(k,118)
     320             :          mat(k,1156) = .250_r8*rxt(k,326)*y(k,116) + .250_r8*rxt(k,325)*y(k,118) &
     321   141111616 :                       + .250_r8*rxt(k,322)*y(k,170) + .240_r8*rxt(k,323)*y(k,171)
     322   141111616 :          mat(k,743) = .170_r8*rxt(k,407)*y(k,116) + .070_r8*rxt(k,406)*y(k,176)
     323   141111616 :          mat(k,1486) = mat(k,1486) + rxt(k,306)*y(k,90) + rxt(k,307)*y(k,119)
     324   141111616 :          mat(k,996) = .500_r8*rxt(k,311)*y(k,171)
     325   141111616 :          mat(k,590) = .400_r8*rxt(k,417)*y(k,116)
     326             :          mat(k,1012) = .250_r8*rxt(k,383)*y(k,116) + .250_r8*rxt(k,384)*y(k,118) &
     327   141111616 :                       + .250_r8*rxt(k,380)*y(k,170) + .100_r8*rxt(k,381)*y(k,171)
     328   141111616 :          mat(k,614) = .540_r8*rxt(k,423)*y(k,116)
     329   141111616 :          mat(k,385) = .510_r8*rxt(k,426)*y(k,116)
     330   141111616 :          mat(k,430) = -(rxt(k,285)*y(k,190))
     331   141111616 :          mat(k,1429) = -rxt(k,285)*y(k,48)
     332   141111616 :          mat(k,836) = .120_r8*rxt(k,298)*y(k,122)
     333   141111616 :          mat(k,1820) = .120_r8*rxt(k,298)*y(k,27)
     334   141111616 :          mat(k,1218) = .100_r8*rxt(k,282)*y(k,171) + .150_r8*rxt(k,283)*y(k,176)
     335   141111616 :          mat(k,1289) = .100_r8*rxt(k,282)*y(k,170)
     336   141111616 :          mat(k,1629) = .150_r8*rxt(k,283)*y(k,170) + .150_r8*rxt(k,333)*y(k,184)
     337   141111616 :          mat(k,1198) = .150_r8*rxt(k,333)*y(k,176)
     338   141111616 :          mat(k,401) = -(rxt(k,286)*y(k,190))
     339   141111616 :          mat(k,1426) = -rxt(k,286)*y(k,49)
     340   141111616 :          mat(k,1217) = .400_r8*rxt(k,283)*y(k,176)
     341   141111616 :          mat(k,1626) = .400_r8*rxt(k,283)*y(k,170) + .400_r8*rxt(k,333)*y(k,184)
     342   141111616 :          mat(k,1197) = .400_r8*rxt(k,333)*y(k,176)
     343   141111616 :          mat(k,656) = -(rxt(k,252)*y(k,190))
     344   141111616 :          mat(k,1453) = -rxt(k,252)*y(k,50)
     345   141111616 :          mat(k,1038) = .200_r8*rxt(k,370)*y(k,171)
     346   141111616 :          mat(k,685) = .300_r8*rxt(k,271)*y(k,171)
     347             :          mat(k,1291) = .200_r8*rxt(k,370)*y(k,96) + .300_r8*rxt(k,271)*y(k,167) &
     348             :                       + 2.000_r8*rxt(k,249)*y(k,171) + .250_r8*rxt(k,356)*y(k,178) &
     349             :                       + .250_r8*rxt(k,361)*y(k,179) + .250_r8*rxt(k,323)*y(k,182) &
     350             :                       + .250_r8*rxt(k,435)*y(k,188) + .500_r8*rxt(k,311)*y(k,193) &
     351             :                       + .250_r8*rxt(k,440)*y(k,194) + .250_r8*rxt(k,445)*y(k,195) &
     352   141111616 :                       + .300_r8*rxt(k,381)*y(k,198)
     353   141111616 :          mat(k,1172) = .250_r8*rxt(k,356)*y(k,171)
     354   141111616 :          mat(k,1101) = .250_r8*rxt(k,361)*y(k,171)
     355   141111616 :          mat(k,1150) = .250_r8*rxt(k,323)*y(k,171)
     356   141111616 :          mat(k,974) = .250_r8*rxt(k,435)*y(k,171)
     357   141111616 :          mat(k,993) = .500_r8*rxt(k,311)*y(k,171)
     358   141111616 :          mat(k,955) = .250_r8*rxt(k,440)*y(k,171)
     359   141111616 :          mat(k,933) = .250_r8*rxt(k,445)*y(k,171)
     360   141111616 :          mat(k,1006) = .300_r8*rxt(k,381)*y(k,171)
     361   141111616 :          mat(k,295) = -(rxt(k,253)*y(k,190))
     362   141111616 :          mat(k,1411) = -rxt(k,253)*y(k,51)
     363   141111616 :          mat(k,1288) = rxt(k,250)*y(k,176)
     364   141111616 :          mat(k,1613) = rxt(k,250)*y(k,171)
     365             :          mat(k,1966) = -(rxt(k,164)*y(k,40) + rxt(k,166)*y(k,72) + rxt(k,167)*y(k,74) &
     366             :                       + (rxt(k,168) + rxt(k,169)) * y(k,176) + rxt(k,170)*y(k,122) &
     367   141111616 :                       + rxt(k,177)*y(k,58) + rxt(k,186)*y(k,87) + rxt(k,276)*y(k,26))
     368   141111616 :          mat(k,1556) = -rxt(k,164)*y(k,54)
     369   141111616 :          mat(k,1032) = -rxt(k,166)*y(k,54)
     370   141111616 :          mat(k,471) = -rxt(k,167)*y(k,54)
     371   141111616 :          mat(k,1692) = -(rxt(k,168) + rxt(k,169)) * y(k,54)
     372   141111616 :          mat(k,1868) = -rxt(k,170)*y(k,54)
     373   141111616 :          mat(k,833) = -rxt(k,177)*y(k,54)
     374   141111616 :          mat(k,681) = -rxt(k,186)*y(k,54)
     375   141111616 :          mat(k,199) = -rxt(k,276)*y(k,54)
     376   141111616 :          mat(k,1533) = rxt(k,205)*y(k,57)
     377             :          mat(k,1718) = rxt(k,205)*y(k,17) + (4.000_r8*rxt(k,172)+2.000_r8*rxt(k,174)) &
     378             :                       *y(k,57) + rxt(k,176)*y(k,116) + rxt(k,181)*y(k,121) &
     379             :                       + rxt(k,459)*y(k,136) + rxt(k,171)*y(k,171) + rxt(k,182) &
     380   141111616 :                       *y(k,190)
     381   141111616 :          mat(k,106) = rxt(k,226)*y(k,189)
     382   141111616 :          mat(k,1932) = rxt(k,184)*y(k,121) + rxt(k,196)*y(k,189) + rxt(k,185)*y(k,190)
     383   141111616 :          mat(k,1808) = rxt(k,176)*y(k,57)
     384   141111616 :          mat(k,1586) = rxt(k,181)*y(k,57) + rxt(k,184)*y(k,80)
     385   141111616 :          mat(k,1094) = rxt(k,459)*y(k,57)
     386   141111616 :          mat(k,1331) = rxt(k,171)*y(k,57)
     387   141111616 :          mat(k,1355) = rxt(k,226)*y(k,63) + rxt(k,196)*y(k,80)
     388   141111616 :          mat(k,1509) = rxt(k,182)*y(k,57) + rxt(k,185)*y(k,80)
     389   141111616 :          mat(k,1935) = rxt(k,177)*y(k,58)
     390   141111616 :          mat(k,1696) = 2.000_r8*rxt(k,173)*y(k,57)
     391   141111616 :          mat(k,824) = rxt(k,177)*y(k,54) + (rxt(k,518)+rxt(k,523)+rxt(k,528))*y(k,80)
     392             :          mat(k,1912) = (rxt(k,518)+rxt(k,523)+rxt(k,528))*y(k,58) + (rxt(k,513) &
     393   141111616 :                        +rxt(k,519)+rxt(k,524))*y(k,87)
     394   141111616 :          mat(k,675) = (rxt(k,513)+rxt(k,519)+rxt(k,524))*y(k,80)
     395   141111616 :          mat(k,1695) = 2.000_r8*rxt(k,198)*y(k,57)
     396             :          mat(k,1713) = -(rxt(k,171)*y(k,171) + (4._r8*rxt(k,172) + 4._r8*rxt(k,173) &
     397             :                       + 4._r8*rxt(k,174) + 4._r8*rxt(k,198)) * y(k,57) + rxt(k,175) &
     398             :                       *y(k,176) + rxt(k,176)*y(k,116) + rxt(k,178)*y(k,117) + rxt(k,181) &
     399             :                       *y(k,121) + (rxt(k,182) + rxt(k,183)) * y(k,190) + (rxt(k,204) &
     400   141111616 :                       + rxt(k,205) + rxt(k,206)) * y(k,17) + rxt(k,459)*y(k,136))
     401   141111616 :          mat(k,1326) = -rxt(k,171)*y(k,57)
     402   141111616 :          mat(k,1687) = -rxt(k,175)*y(k,57)
     403   141111616 :          mat(k,1803) = -rxt(k,176)*y(k,57)
     404   141111616 :          mat(k,1904) = -rxt(k,178)*y(k,57)
     405   141111616 :          mat(k,1581) = -rxt(k,181)*y(k,57)
     406   141111616 :          mat(k,1504) = -(rxt(k,182) + rxt(k,183)) * y(k,57)
     407   141111616 :          mat(k,1528) = -(rxt(k,204) + rxt(k,205) + rxt(k,206)) * y(k,57)
     408   141111616 :          mat(k,1090) = -rxt(k,459)*y(k,57)
     409   141111616 :          mat(k,1961) = rxt(k,186)*y(k,87) + rxt(k,170)*y(k,122) + rxt(k,169)*y(k,176)
     410   141111616 :          mat(k,830) = rxt(k,179)*y(k,121)
     411   141111616 :          mat(k,1927) = rxt(k,197)*y(k,189)
     412   141111616 :          mat(k,679) = rxt(k,186)*y(k,54) + rxt(k,187)*y(k,121) + rxt(k,188)*y(k,190)
     413   141111616 :          mat(k,1581) = mat(k,1581) + rxt(k,179)*y(k,58) + rxt(k,187)*y(k,87)
     414   141111616 :          mat(k,1863) = rxt(k,170)*y(k,54)
     415   141111616 :          mat(k,232) = rxt(k,464)*y(k,136)
     416   141111616 :          mat(k,1090) = mat(k,1090) + rxt(k,464)*y(k,124)
     417   141111616 :          mat(k,1687) = mat(k,1687) + rxt(k,169)*y(k,54)
     418   141111616 :          mat(k,1350) = rxt(k,197)*y(k,80)
     419   141111616 :          mat(k,1504) = mat(k,1504) + rxt(k,188)*y(k,87)
     420             :          mat(k,826) = -(rxt(k,177)*y(k,54) + rxt(k,179)*y(k,121) + rxt(k,180)*y(k,190) &
     421   141111616 :                       + (rxt(k,518) + rxt(k,523) + rxt(k,528)) * y(k,80))
     422   141111616 :          mat(k,1945) = -rxt(k,177)*y(k,58)
     423   141111616 :          mat(k,1567) = -rxt(k,179)*y(k,58)
     424   141111616 :          mat(k,1468) = -rxt(k,180)*y(k,58)
     425   141111616 :          mat(k,1916) = -(rxt(k,518) + rxt(k,523) + rxt(k,528)) * y(k,58)
     426   141111616 :          mat(k,1701) = rxt(k,178)*y(k,117)
     427   141111616 :          mat(k,1887) = rxt(k,178)*y(k,57)
     428   141111616 :          mat(k,903) = -((rxt(k,255) + rxt(k,265)) * y(k,190))
     429   141111616 :          mat(k,1475) = -(rxt(k,255) + rxt(k,265)) * y(k,60)
     430   141111616 :          mat(k,764) = .230_r8*rxt(k,430)*y(k,122)
     431   141111616 :          mat(k,1246) = rxt(k,200)*y(k,40)
     432   141111616 :          mat(k,204) = .350_r8*rxt(k,267)*y(k,190)
     433   141111616 :          mat(k,445) = .630_r8*rxt(k,269)*y(k,122)
     434   141111616 :          mat(k,842) = .560_r8*rxt(k,298)*y(k,122)
     435             :          mat(k,1539) = rxt(k,200)*y(k,15) + rxt(k,164)*y(k,54) + rxt(k,245)*y(k,118) &
     436   141111616 :                       + rxt(k,246)*y(k,121) + rxt(k,247)*y(k,190)
     437   141111616 :          mat(k,1071) = rxt(k,304)*y(k,118) + rxt(k,305)*y(k,190)
     438   141111616 :          mat(k,1948) = rxt(k,164)*y(k,40)
     439   141111616 :          mat(k,737) = rxt(k,292)*y(k,190)
     440   141111616 :          mat(k,708) = .620_r8*rxt(k,375)*y(k,122)
     441   141111616 :          mat(k,1059) = .650_r8*rxt(k,328)*y(k,122)
     442   141111616 :          mat(k,791) = .230_r8*rxt(k,433)*y(k,122)
     443   141111616 :          mat(k,1132) = .560_r8*rxt(k,342)*y(k,122)
     444             :          mat(k,1776) = .170_r8*rxt(k,401)*y(k,172) + .220_r8*rxt(k,326)*y(k,182) &
     445             :                       + .400_r8*rxt(k,404)*y(k,183) + .350_r8*rxt(k,407)*y(k,185) &
     446   141111616 :                       + .225_r8*rxt(k,442)*y(k,194) + .250_r8*rxt(k,383)*y(k,198)
     447             :          mat(k,1990) = rxt(k,245)*y(k,40) + rxt(k,304)*y(k,47) + .220_r8*rxt(k,325) &
     448   141111616 :                       *y(k,182) + .500_r8*rxt(k,384)*y(k,198)
     449   141111616 :          mat(k,1568) = rxt(k,246)*y(k,40) + rxt(k,454)*y(k,125)
     450             :          mat(k,1837) = .230_r8*rxt(k,430)*y(k,4) + .630_r8*rxt(k,269)*y(k,23) &
     451             :                       + .560_r8*rxt(k,298)*y(k,27) + .620_r8*rxt(k,375)*y(k,93) &
     452             :                       + .650_r8*rxt(k,328)*y(k,100) + .230_r8*rxt(k,433)*y(k,105) &
     453   141111616 :                       + .560_r8*rxt(k,342)*y(k,106)
     454   141111616 :          mat(k,252) = rxt(k,454)*y(k,121) + rxt(k,455)*y(k,190)
     455   141111616 :          mat(k,886) = .700_r8*rxt(k,451)*y(k,190)
     456   141111616 :          mat(k,1222) = .220_r8*rxt(k,322)*y(k,182) + .250_r8*rxt(k,380)*y(k,198)
     457             :          mat(k,1302) = .110_r8*rxt(k,323)*y(k,182) + .125_r8*rxt(k,440)*y(k,194) &
     458   141111616 :                       + .200_r8*rxt(k,381)*y(k,198)
     459   141111616 :          mat(k,621) = .170_r8*rxt(k,401)*y(k,116) + .070_r8*rxt(k,400)*y(k,176)
     460             :          mat(k,1660) = .070_r8*rxt(k,400)*y(k,172) + .160_r8*rxt(k,403)*y(k,183) &
     461   141111616 :                       + .140_r8*rxt(k,406)*y(k,185)
     462             :          mat(k,1152) = .220_r8*rxt(k,326)*y(k,116) + .220_r8*rxt(k,325)*y(k,118) &
     463   141111616 :                       + .220_r8*rxt(k,322)*y(k,170) + .110_r8*rxt(k,323)*y(k,171)
     464   141111616 :          mat(k,576) = .400_r8*rxt(k,404)*y(k,116) + .160_r8*rxt(k,403)*y(k,176)
     465   141111616 :          mat(k,742) = .350_r8*rxt(k,407)*y(k,116) + .140_r8*rxt(k,406)*y(k,176)
     466             :          mat(k,1475) = mat(k,1475) + .350_r8*rxt(k,267)*y(k,22) + rxt(k,247)*y(k,40) &
     467             :                       + rxt(k,305)*y(k,47) + rxt(k,292)*y(k,70) + rxt(k,455)*y(k,125) &
     468   141111616 :                       + .700_r8*rxt(k,451)*y(k,151)
     469   141111616 :          mat(k,959) = .225_r8*rxt(k,442)*y(k,116) + .125_r8*rxt(k,440)*y(k,171)
     470             :          mat(k,1009) = .250_r8*rxt(k,383)*y(k,116) + .500_r8*rxt(k,384)*y(k,118) &
     471   145521354 :                       + .250_r8*rxt(k,380)*y(k,170) + .200_r8*rxt(k,381)*y(k,171)
     472             :       end do
     473     4409738 :       end subroutine nlnmat02
     474     4409738 :       subroutine nlnmat03( avec_len, mat, y, rxt )
     475             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
     476             :       implicit none
     477             : !----------------------------------------------
     478             : ! ... dummy arguments
     479             : !----------------------------------------------
     480             :       integer, intent(in) :: avec_len
     481             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
     482             :       real(r8), intent(in) :: rxt(veclen,rxntot)
     483             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
     484             : !----------------------------------------------
     485             : ! ... local variables
     486             : !----------------------------------------------
     487             :       integer :: k
     488             : !----------------------------------------------
     489             : ! ... complete matrix entries implicit species
     490             : !----------------------------------------------
     491   145521354 :       do k = 1,avec_len
     492   141111616 :          mat(k,70) = -(rxt(k,225)*y(k,189))
     493   141111616 :          mat(k,1334) = -rxt(k,225)*y(k,62)
     494   141111616 :          mat(k,103) = -(rxt(k,226)*y(k,189))
     495   141111616 :          mat(k,1335) = -rxt(k,226)*y(k,63)
     496   141111616 :          mat(k,119) = -(rxt(k,399)*y(k,190))
     497   141111616 :          mat(k,1383) = -rxt(k,399)*y(k,64)
     498   141111616 :          mat(k,113) = .180_r8*rxt(k,419)*y(k,190)
     499   141111616 :          mat(k,1383) = mat(k,1383) + .180_r8*rxt(k,419)*y(k,153)
     500   141111616 :          mat(k,183) = -(rxt(k,452)*y(k,118) + (rxt(k,453) + rxt(k,466)) * y(k,190))
     501   141111616 :          mat(k,1971) = -rxt(k,452)*y(k,65)
     502   141111616 :          mat(k,1395) = -(rxt(k,453) + rxt(k,466)) * y(k,65)
     503   141111616 :          mat(k,565) = rxt(k,287)*y(k,176)
     504   141111616 :          mat(k,1601) = rxt(k,287)*y(k,175)
     505   141111616 :          mat(k,639) = -(rxt(k,222)*y(k,72) + rxt(k,223)*y(k,202) + rxt(k,224)*y(k,84))
     506   141111616 :          mat(k,1023) = -rxt(k,222)*y(k,68)
     507   141111616 :          mat(k,2029) = -rxt(k,223)*y(k,68)
     508   141111616 :          mat(k,1258) = -rxt(k,224)*y(k,68)
     509   141111616 :          mat(k,71) = 2.000_r8*rxt(k,225)*y(k,189)
     510   141111616 :          mat(k,104) = rxt(k,226)*y(k,189)
     511   141111616 :          mat(k,1337) = 2.000_r8*rxt(k,225)*y(k,62) + rxt(k,226)*y(k,63)
     512   141111616 :          mat(k,864) = -(rxt(k,291)*y(k,190))
     513   141111616 :          mat(k,1471) = -rxt(k,291)*y(k,69)
     514   141111616 :          mat(k,474) = .700_r8*rxt(k,366)*y(k,190)
     515   141111616 :          mat(k,436) = .500_r8*rxt(k,367)*y(k,190)
     516   141111616 :          mat(k,285) = rxt(k,378)*y(k,190)
     517             :          mat(k,1772) = .050_r8*rxt(k,364)*y(k,179) + .530_r8*rxt(k,326)*y(k,182) &
     518   141111616 :                       + .225_r8*rxt(k,442)*y(k,194) + .250_r8*rxt(k,383)*y(k,198)
     519             :          mat(k,1986) = .050_r8*rxt(k,365)*y(k,179) + .530_r8*rxt(k,325)*y(k,182) &
     520   141111616 :                       + .250_r8*rxt(k,384)*y(k,198)
     521   141111616 :          mat(k,1220) = .530_r8*rxt(k,322)*y(k,182) + .250_r8*rxt(k,380)*y(k,198)
     522             :          mat(k,1298) = .260_r8*rxt(k,323)*y(k,182) + .125_r8*rxt(k,440)*y(k,194) &
     523   141111616 :                       + .100_r8*rxt(k,381)*y(k,198)
     524   141111616 :          mat(k,1105) = .050_r8*rxt(k,364)*y(k,116) + .050_r8*rxt(k,365)*y(k,118)
     525             :          mat(k,1151) = .530_r8*rxt(k,326)*y(k,116) + .530_r8*rxt(k,325)*y(k,118) &
     526   141111616 :                       + .530_r8*rxt(k,322)*y(k,170) + .260_r8*rxt(k,323)*y(k,171)
     527             :          mat(k,1471) = mat(k,1471) + .700_r8*rxt(k,366)*y(k,94) + .500_r8*rxt(k,367) &
     528   141111616 :                       *y(k,95) + rxt(k,378)*y(k,110)
     529   141111616 :          mat(k,957) = .225_r8*rxt(k,442)*y(k,116) + .125_r8*rxt(k,440)*y(k,171)
     530             :          mat(k,1008) = .250_r8*rxt(k,383)*y(k,116) + .250_r8*rxt(k,384)*y(k,118) &
     531   141111616 :                       + .250_r8*rxt(k,380)*y(k,170) + .100_r8*rxt(k,381)*y(k,171)
     532   141111616 :          mat(k,736) = -(rxt(k,292)*y(k,190))
     533   141111616 :          mat(k,1462) = -rxt(k,292)*y(k,70)
     534   141111616 :          mat(k,203) = .650_r8*rxt(k,267)*y(k,190)
     535   141111616 :          mat(k,863) = .200_r8*rxt(k,291)*y(k,190)
     536   141111616 :          mat(k,871) = rxt(k,379)*y(k,190)
     537             :          mat(k,1767) = rxt(k,390)*y(k,164) + .050_r8*rxt(k,364)*y(k,179) &
     538             :                       + .400_r8*rxt(k,404)*y(k,183) + .170_r8*rxt(k,407)*y(k,185) &
     539             :                       + .700_r8*rxt(k,410)*y(k,191) + .600_r8*rxt(k,417)*y(k,196) &
     540             :                       + .250_r8*rxt(k,383)*y(k,198) + .340_r8*rxt(k,423)*y(k,199) &
     541   141111616 :                       + .170_r8*rxt(k,426)*y(k,201)
     542   141111616 :          mat(k,1979) = .050_r8*rxt(k,365)*y(k,179) + .250_r8*rxt(k,384)*y(k,198)
     543   141111616 :          mat(k,377) = rxt(k,390)*y(k,116)
     544   141111616 :          mat(k,1219) = .250_r8*rxt(k,380)*y(k,198)
     545   141111616 :          mat(k,1295) = .100_r8*rxt(k,381)*y(k,198)
     546   141111616 :          mat(k,1652) = .160_r8*rxt(k,403)*y(k,183) + .070_r8*rxt(k,406)*y(k,185)
     547   141111616 :          mat(k,1103) = .050_r8*rxt(k,364)*y(k,116) + .050_r8*rxt(k,365)*y(k,118)
     548   141111616 :          mat(k,575) = .400_r8*rxt(k,404)*y(k,116) + .160_r8*rxt(k,403)*y(k,176)
     549   141111616 :          mat(k,740) = .170_r8*rxt(k,407)*y(k,116) + .070_r8*rxt(k,406)*y(k,176)
     550             :          mat(k,1462) = mat(k,1462) + .650_r8*rxt(k,267)*y(k,22) + .200_r8*rxt(k,291) &
     551   141111616 :                       *y(k,69) + rxt(k,379)*y(k,111)
     552   141111616 :          mat(k,347) = .700_r8*rxt(k,410)*y(k,116)
     553   141111616 :          mat(k,587) = .600_r8*rxt(k,417)*y(k,116)
     554             :          mat(k,1007) = .250_r8*rxt(k,383)*y(k,116) + .250_r8*rxt(k,384)*y(k,118) &
     555   141111616 :                       + .250_r8*rxt(k,380)*y(k,170) + .100_r8*rxt(k,381)*y(k,171)
     556   141111616 :          mat(k,611) = .340_r8*rxt(k,423)*y(k,116)
     557   141111616 :          mat(k,384) = .170_r8*rxt(k,426)*y(k,116)
     558             :          mat(k,1273) = -((rxt(k,124) + rxt(k,125) + rxt(k,126)) * y(k,176) + rxt(k,130) &
     559   141111616 :                       *y(k,122))
     560   141111616 :          mat(k,1679) = -(rxt(k,124) + rxt(k,125) + rxt(k,126)) * y(k,71)
     561   141111616 :          mat(k,1855) = -rxt(k,130)*y(k,71)
     562   141111616 :          mat(k,1543) = rxt(k,247)*y(k,190)
     563   141111616 :          mat(k,1953) = rxt(k,166)*y(k,72)
     564   141111616 :          mat(k,904) = rxt(k,265)*y(k,190)
     565   141111616 :          mat(k,642) = rxt(k,222)*y(k,72)
     566             :          mat(k,1026) = rxt(k,166)*y(k,54) + rxt(k,222)*y(k,68) + rxt(k,122)*y(k,121) &
     567   141111616 :                       + rxt(k,114)*y(k,189) + rxt(k,131)*y(k,190)
     568   141111616 :          mat(k,696) = rxt(k,220)*y(k,189)
     569   141111616 :          mat(k,1919) = rxt(k,197)*y(k,189)
     570   141111616 :          mat(k,278) = rxt(k,152)*y(k,190)
     571   141111616 :          mat(k,1573) = rxt(k,122)*y(k,72) + rxt(k,134)*y(k,190)
     572   141111616 :          mat(k,254) = rxt(k,455)*y(k,190)
     573   141111616 :          mat(k,392) = rxt(k,460)*y(k,190)
     574   141111616 :          mat(k,1085) = rxt(k,465)*y(k,190)
     575   141111616 :          mat(k,1342) = rxt(k,114)*y(k,72) + rxt(k,220)*y(k,76) + rxt(k,197)*y(k,80)
     576             :          mat(k,1496) = rxt(k,247)*y(k,40) + rxt(k,265)*y(k,60) + rxt(k,131)*y(k,72) &
     577             :                       + rxt(k,152)*y(k,107) + rxt(k,134)*y(k,121) + rxt(k,455) &
     578   141111616 :                       *y(k,125) + rxt(k,460)*y(k,134) + rxt(k,465)*y(k,136)
     579             :          mat(k,1024) = -(rxt(k,114)*y(k,189) + rxt(k,122)*y(k,121) + rxt(k,131) &
     580   141111616 :                       *y(k,190) + rxt(k,166)*y(k,54) + rxt(k,222)*y(k,68))
     581   141111616 :          mat(k,1339) = -rxt(k,114)*y(k,72)
     582   141111616 :          mat(k,1569) = -rxt(k,122)*y(k,72)
     583   141111616 :          mat(k,1483) = -rxt(k,131)*y(k,72)
     584   141111616 :          mat(k,1949) = -rxt(k,166)*y(k,72)
     585   141111616 :          mat(k,640) = -rxt(k,222)*y(k,72)
     586   141111616 :          mat(k,1271) = rxt(k,124)*y(k,176)
     587   141111616 :          mat(k,1667) = rxt(k,124)*y(k,71)
     588   141111616 :          mat(k,466) = -(rxt(k,123)*y(k,121) + rxt(k,132)*y(k,190) + rxt(k,167)*y(k,54))
     589   141111616 :          mat(k,1562) = -rxt(k,123)*y(k,74)
     590   141111616 :          mat(k,1434) = -rxt(k,132)*y(k,74)
     591   141111616 :          mat(k,1939) = -rxt(k,167)*y(k,74)
     592   141111616 :          mat(k,1630) = 2.000_r8*rxt(k,138)*y(k,176)
     593   141111616 :          mat(k,1434) = mat(k,1434) + 2.000_r8*rxt(k,137)*y(k,190)
     594   141111616 :          mat(k,174) = rxt(k,468)*y(k,202)
     595   141111616 :          mat(k,2026) = rxt(k,468)*y(k,138)
     596             :          mat(k,694) = -(rxt(k,213)*y(k,121) + rxt(k,214)*y(k,190) + (rxt(k,219) &
     597   141111616 :                       + rxt(k,220)) * y(k,189))
     598   141111616 :          mat(k,1565) = -rxt(k,213)*y(k,76)
     599   141111616 :          mat(k,1458) = -rxt(k,214)*y(k,76)
     600   141111616 :          mat(k,1338) = -(rxt(k,219) + rxt(k,220)) * y(k,76)
     601   141111616 :          mat(k,1245) = rxt(k,200)*y(k,40) + rxt(k,201)*y(k,176)
     602   141111616 :          mat(k,1538) = rxt(k,200)*y(k,15)
     603   141111616 :          mat(k,1650) = rxt(k,201)*y(k,15)
     604             :          mat(k,1931) = -(rxt(k,184)*y(k,121) + rxt(k,185)*y(k,190) + (rxt(k,196) &
     605             :                       + rxt(k,197)) * y(k,189) + (rxt(k,513) + rxt(k,519) + rxt(k,524) &
     606             :                       ) * y(k,87) + (rxt(k,518) + rxt(k,523) + rxt(k,528)) * y(k,58) &
     607   141111616 :                       + (rxt(k,520) + rxt(k,525)) * y(k,86))
     608   141111616 :          mat(k,1585) = -rxt(k,184)*y(k,80)
     609   141111616 :          mat(k,1508) = -rxt(k,185)*y(k,80)
     610   141111616 :          mat(k,1354) = -(rxt(k,196) + rxt(k,197)) * y(k,80)
     611   141111616 :          mat(k,680) = -(rxt(k,513) + rxt(k,519) + rxt(k,524)) * y(k,80)
     612   141111616 :          mat(k,832) = -(rxt(k,518) + rxt(k,523) + rxt(k,528)) * y(k,80)
     613   141111616 :          mat(k,653) = -(rxt(k,520) + rxt(k,525)) * y(k,80)
     614   141111616 :          mat(k,198) = rxt(k,276)*y(k,54)
     615   141111616 :          mat(k,1555) = rxt(k,164)*y(k,54)
     616             :          mat(k,1965) = rxt(k,276)*y(k,26) + rxt(k,164)*y(k,40) + rxt(k,166)*y(k,72) &
     617   141111616 :                       + rxt(k,167)*y(k,74) + rxt(k,186)*y(k,87) + rxt(k,168)*y(k,176)
     618   141111616 :          mat(k,1717) = rxt(k,183)*y(k,190)
     619   141111616 :          mat(k,1031) = rxt(k,166)*y(k,54)
     620   141111616 :          mat(k,470) = rxt(k,167)*y(k,54)
     621   141111616 :          mat(k,680) = mat(k,680) + rxt(k,186)*y(k,54)
     622   141111616 :          mat(k,1691) = rxt(k,168)*y(k,54)
     623   141111616 :          mat(k,1508) = mat(k,1508) + rxt(k,183)*y(k,57)
     624   141111616 :          mat(k,107) = -(rxt(k,256)*y(k,190) + rxt(k,264)*y(k,189))
     625   141111616 :          mat(k,1381) = -rxt(k,256)*y(k,81)
     626   141111616 :          mat(k,1336) = -rxt(k,264)*y(k,81)
     627   141111616 :          mat(k,671) = -(rxt(k,257)*y(k,190))
     628   141111616 :          mat(k,1455) = -rxt(k,257)*y(k,82)
     629   141111616 :          mat(k,757) = .050_r8*rxt(k,430)*y(k,122)
     630   141111616 :          mat(k,202) = .350_r8*rxt(k,267)*y(k,190)
     631   141111616 :          mat(k,444) = .370_r8*rxt(k,269)*y(k,122)
     632   141111616 :          mat(k,838) = .120_r8*rxt(k,298)*y(k,122)
     633   141111616 :          mat(k,705) = .110_r8*rxt(k,375)*y(k,122)
     634   141111616 :          mat(k,1058) = .330_r8*rxt(k,328)*y(k,122)
     635   141111616 :          mat(k,784) = .050_r8*rxt(k,433)*y(k,122)
     636   141111616 :          mat(k,1129) = .120_r8*rxt(k,342)*y(k,122)
     637   141111616 :          mat(k,1764) = rxt(k,260)*y(k,177)
     638             :          mat(k,1824) = .050_r8*rxt(k,430)*y(k,4) + .370_r8*rxt(k,269)*y(k,23) &
     639             :                       + .120_r8*rxt(k,298)*y(k,27) + .110_r8*rxt(k,375)*y(k,93) &
     640             :                       + .330_r8*rxt(k,328)*y(k,100) + .050_r8*rxt(k,433)*y(k,105) &
     641   141111616 :                       + .120_r8*rxt(k,342)*y(k,106)
     642   141111616 :          mat(k,1647) = rxt(k,258)*y(k,177)
     643   141111616 :          mat(k,340) = rxt(k,260)*y(k,116) + rxt(k,258)*y(k,176)
     644   141111616 :          mat(k,1455) = mat(k,1455) + .350_r8*rxt(k,267)*y(k,22)
     645   141111616 :          mat(k,638) = rxt(k,222)*y(k,72) + rxt(k,224)*y(k,84) + rxt(k,223)*y(k,202)
     646   141111616 :          mat(k,1022) = rxt(k,222)*y(k,68)
     647   141111616 :          mat(k,1257) = rxt(k,224)*y(k,68)
     648   141111616 :          mat(k,2027) = rxt(k,223)*y(k,68)
     649   141111616 :          mat(k,1260) = -(rxt(k,161)*y(k,190) + rxt(k,224)*y(k,68))
     650   141111616 :          mat(k,1495) = -rxt(k,161)*y(k,84)
     651   141111616 :          mat(k,641) = -rxt(k,224)*y(k,84)
     652   141111616 :          mat(k,1542) = rxt(k,245)*y(k,118)
     653   141111616 :          mat(k,897) = rxt(k,278)*y(k,118)
     654   141111616 :          mat(k,1074) = rxt(k,304)*y(k,118)
     655   141111616 :          mat(k,827) = (rxt(k,518)+rxt(k,523)+rxt(k,528))*y(k,80)
     656   141111616 :          mat(k,185) = rxt(k,452)*y(k,118)
     657   141111616 :          mat(k,1918) = (rxt(k,518)+rxt(k,523)+rxt(k,528))*y(k,58)
     658   141111616 :          mat(k,1895) = rxt(k,160)*y(k,190)
     659             :          mat(k,2009) = rxt(k,245)*y(k,40) + rxt(k,278)*y(k,43) + rxt(k,304)*y(k,47) &
     660   141111616 :                       + rxt(k,452)*y(k,65)
     661   141111616 :          mat(k,1495) = mat(k,1495) + rxt(k,160)*y(k,117)
     662   141111616 :          mat(k,265) = -(rxt(k,139)*y(k,190))
     663   141111616 :          mat(k,1406) = -rxt(k,139)*y(k,85)
     664   141111616 :          mat(k,1873) = rxt(k,158)*y(k,176)
     665   141111616 :          mat(k,1610) = rxt(k,158)*y(k,117)
     666   141111616 :          mat(k,648) = -(rxt(k,215)*y(k,121) + (rxt(k,520) + rxt(k,525)) * y(k,80))
     667   141111616 :          mat(k,1563) = -rxt(k,215)*y(k,86)
     668   141111616 :          mat(k,1914) = -(rxt(k,520) + rxt(k,525)) * y(k,86)
     669   141111616 :          mat(k,1515) = rxt(k,207)*y(k,176)
     670   141111616 :          mat(k,1645) = rxt(k,207)*y(k,17)
     671             :          mat(k,676) = -(rxt(k,186)*y(k,54) + rxt(k,187)*y(k,121) + rxt(k,188)*y(k,190) &
     672   141111616 :                       + (rxt(k,513) + rxt(k,519) + rxt(k,524)) * y(k,80))
     673   141111616 :          mat(k,1942) = -rxt(k,186)*y(k,87)
     674   141111616 :          mat(k,1564) = -rxt(k,187)*y(k,87)
     675   141111616 :          mat(k,1456) = -rxt(k,188)*y(k,87)
     676   141111616 :          mat(k,1915) = -(rxt(k,513) + rxt(k,519) + rxt(k,524)) * y(k,87)
     677   141111616 :          mat(k,1699) = rxt(k,175)*y(k,176)
     678   141111616 :          mat(k,825) = rxt(k,180)*y(k,190)
     679   141111616 :          mat(k,1648) = rxt(k,175)*y(k,57)
     680   141111616 :          mat(k,1456) = mat(k,1456) + rxt(k,180)*y(k,58)
     681   141111616 :          mat(k,912) = -(rxt(k,321)*y(k,190))
     682   141111616 :          mat(k,1476) = -rxt(k,321)*y(k,88)
     683   141111616 :          mat(k,475) = .300_r8*rxt(k,366)*y(k,190)
     684   141111616 :          mat(k,437) = .500_r8*rxt(k,367)*y(k,190)
     685   141111616 :          mat(k,1777) = rxt(k,320)*y(k,173) + rxt(k,327)*y(k,182)
     686   141111616 :          mat(k,453) = rxt(k,320)*y(k,116)
     687   141111616 :          mat(k,1153) = rxt(k,327)*y(k,116)
     688             :          mat(k,1476) = mat(k,1476) + .300_r8*rxt(k,366)*y(k,94) + .500_r8*rxt(k,367) &
     689   141111616 :                       *y(k,95)
     690   141111616 :          mat(k,149) = -(rxt(k,352)*y(k,190))
     691   141111616 :          mat(k,1388) = -rxt(k,352)*y(k,89)
     692   141111616 :          mat(k,925) = -(rxt(k,306)*y(k,190))
     693   141111616 :          mat(k,1477) = -rxt(k,306)*y(k,90)
     694   141111616 :          mat(k,476) = .700_r8*rxt(k,366)*y(k,190)
     695   141111616 :          mat(k,438) = .500_r8*rxt(k,367)*y(k,190)
     696   141111616 :          mat(k,459) = .500_r8*rxt(k,341)*y(k,190)
     697             :          mat(k,1778) = .050_r8*rxt(k,364)*y(k,179) + .220_r8*rxt(k,326)*y(k,182) &
     698   141111616 :                       + .250_r8*rxt(k,383)*y(k,198)
     699             :          mat(k,1992) = .050_r8*rxt(k,365)*y(k,179) + .220_r8*rxt(k,325)*y(k,182) &
     700   141111616 :                       + .250_r8*rxt(k,384)*y(k,198)
     701   141111616 :          mat(k,425) = .500_r8*rxt(k,310)*y(k,190)
     702   141111616 :          mat(k,1223) = .220_r8*rxt(k,322)*y(k,182) + .250_r8*rxt(k,380)*y(k,198)
     703             :          mat(k,1303) = .230_r8*rxt(k,323)*y(k,182) + .200_r8*rxt(k,311)*y(k,193) &
     704   141111616 :                       + .100_r8*rxt(k,381)*y(k,198)
     705   141111616 :          mat(k,1108) = .050_r8*rxt(k,364)*y(k,116) + .050_r8*rxt(k,365)*y(k,118)
     706             :          mat(k,1154) = .220_r8*rxt(k,326)*y(k,116) + .220_r8*rxt(k,325)*y(k,118) &
     707   141111616 :                       + .220_r8*rxt(k,322)*y(k,170) + .230_r8*rxt(k,323)*y(k,171)
     708             :          mat(k,1477) = mat(k,1477) + .700_r8*rxt(k,366)*y(k,94) + .500_r8*rxt(k,367) &
     709             :                       *y(k,95) + .500_r8*rxt(k,341)*y(k,104) + .500_r8*rxt(k,310) &
     710   141111616 :                       *y(k,132)
     711   141111616 :          mat(k,994) = .200_r8*rxt(k,311)*y(k,171)
     712             :          mat(k,1010) = .250_r8*rxt(k,383)*y(k,116) + .250_r8*rxt(k,384)*y(k,118) &
     713   145521354 :                       + .250_r8*rxt(k,380)*y(k,170) + .100_r8*rxt(k,381)*y(k,171)
     714             :       end do
     715     4409738 :       end subroutine nlnmat03
     716     4409738 :       subroutine nlnmat04( avec_len, mat, y, rxt )
     717             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
     718             :       implicit none
     719             : !----------------------------------------------
     720             : ! ... dummy arguments
     721             : !----------------------------------------------
     722             :       integer, intent(in) :: avec_len
     723             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
     724             :       real(r8), intent(in) :: rxt(veclen,rxntot)
     725             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
     726             : !----------------------------------------------
     727             : ! ... local variables
     728             : !----------------------------------------------
     729             :       integer :: k
     730             : !----------------------------------------------
     731             : ! ... complete matrix entries implicit species
     732             : !----------------------------------------------
     733   145521354 :       do k = 1,avec_len
     734   141111616 :          mat(k,210) = -(rxt(k,353)*y(k,190))
     735   141111616 :          mat(k,1398) = -rxt(k,353)*y(k,91)
     736   141111616 :          mat(k,1737) = .870_r8*rxt(k,364)*y(k,179)
     737   141111616 :          mat(k,1973) = .950_r8*rxt(k,365)*y(k,179)
     738   141111616 :          mat(k,1215) = rxt(k,360)*y(k,179)
     739   141111616 :          mat(k,1286) = .750_r8*rxt(k,361)*y(k,179)
     740             :          mat(k,1097) = .870_r8*rxt(k,364)*y(k,116) + .950_r8*rxt(k,365)*y(k,118) &
     741   141111616 :                       + rxt(k,360)*y(k,170) + .750_r8*rxt(k,361)*y(k,171)
     742   141111616 :          mat(k,79) = -(rxt(k,354)*y(k,190))
     743   141111616 :          mat(k,1376) = -rxt(k,354)*y(k,92)
     744   141111616 :          mat(k,595) = .600_r8*rxt(k,377)*y(k,190)
     745   141111616 :          mat(k,1376) = mat(k,1376) + .600_r8*rxt(k,377)*y(k,98)
     746             :          mat(k,706) = -(rxt(k,368)*y(k,118) + rxt(k,375)*y(k,122) + rxt(k,376) &
     747   141111616 :                       *y(k,190))
     748   141111616 :          mat(k,1976) = -rxt(k,368)*y(k,93)
     749   141111616 :          mat(k,1825) = -rxt(k,375)*y(k,93)
     750   141111616 :          mat(k,1459) = -rxt(k,376)*y(k,93)
     751   141111616 :          mat(k,473) = -(rxt(k,366)*y(k,190))
     752   141111616 :          mat(k,1435) = -rxt(k,366)*y(k,94)
     753   141111616 :          mat(k,1751) = .080_r8*rxt(k,358)*y(k,178)
     754   141111616 :          mat(k,1170) = .080_r8*rxt(k,358)*y(k,116)
     755   141111616 :          mat(k,434) = -(rxt(k,367)*y(k,190))
     756   141111616 :          mat(k,1430) = -rxt(k,367)*y(k,95)
     757   141111616 :          mat(k,1749) = .080_r8*rxt(k,364)*y(k,179)
     758   141111616 :          mat(k,1098) = .080_r8*rxt(k,364)*y(k,116)
     759             :          mat(k,1044) = -(rxt(k,369)*y(k,170) + rxt(k,370)*y(k,171) + rxt(k,371) &
     760   141111616 :                       *y(k,176) + rxt(k,372)*y(k,116) + rxt(k,373)*y(k,118))
     761   141111616 :          mat(k,1225) = -rxt(k,369)*y(k,96)
     762   141111616 :          mat(k,1309) = -rxt(k,370)*y(k,96)
     763   141111616 :          mat(k,1668) = -rxt(k,371)*y(k,96)
     764   141111616 :          mat(k,1784) = -rxt(k,372)*y(k,96)
     765   141111616 :          mat(k,1998) = -rxt(k,373)*y(k,96)
     766   141111616 :          mat(k,709) = rxt(k,368)*y(k,118)
     767   141111616 :          mat(k,1998) = mat(k,1998) + rxt(k,368)*y(k,93)
     768   141111616 :          mat(k,271) = -(rxt(k,374)*y(k,190))
     769   141111616 :          mat(k,1407) = -rxt(k,374)*y(k,97)
     770   141111616 :          mat(k,1035) = rxt(k,371)*y(k,176)
     771   141111616 :          mat(k,1611) = rxt(k,371)*y(k,96)
     772   141111616 :          mat(k,596) = -(rxt(k,377)*y(k,190))
     773   141111616 :          mat(k,1448) = -rxt(k,377)*y(k,98)
     774   141111616 :          mat(k,1641) = rxt(k,357)*y(k,178) + rxt(k,362)*y(k,179)
     775   141111616 :          mat(k,1171) = rxt(k,357)*y(k,176)
     776   141111616 :          mat(k,1100) = rxt(k,362)*y(k,176)
     777   141111616 :          mat(k,38) = -(rxt(k,499)*y(k,190))
     778   141111616 :          mat(k,1368) = -rxt(k,499)*y(k,99)
     779   141111616 :          mat(k,1060) = -(rxt(k,328)*y(k,122) + rxt(k,329)*y(k,190))
     780   141111616 :          mat(k,1844) = -rxt(k,328)*y(k,100)
     781   141111616 :          mat(k,1485) = -rxt(k,329)*y(k,100)
     782   141111616 :          mat(k,710) = .300_r8*rxt(k,375)*y(k,122)
     783   141111616 :          mat(k,1785) = .360_r8*rxt(k,358)*y(k,178)
     784   141111616 :          mat(k,1999) = .400_r8*rxt(k,359)*y(k,178)
     785   141111616 :          mat(k,1844) = mat(k,1844) + .300_r8*rxt(k,375)*y(k,93)
     786   141111616 :          mat(k,1226) = .390_r8*rxt(k,355)*y(k,178)
     787   141111616 :          mat(k,1310) = .310_r8*rxt(k,356)*y(k,178)
     788             :          mat(k,1179) = .360_r8*rxt(k,358)*y(k,116) + .400_r8*rxt(k,359)*y(k,118) &
     789   141111616 :                       + .390_r8*rxt(k,355)*y(k,170) + .310_r8*rxt(k,356)*y(k,171)
     790   141111616 :          mat(k,218) = -(rxt(k,330)*y(k,190))
     791   141111616 :          mat(k,1400) = -rxt(k,330)*y(k,101)
     792   141111616 :          mat(k,1606) = rxt(k,324)*y(k,182)
     793   141111616 :          mat(k,1149) = rxt(k,324)*y(k,176)
     794   141111616 :          mat(k,396) = -(rxt(k,339)*y(k,190))
     795   141111616 :          mat(k,1425) = -rxt(k,339)*y(k,102)
     796   141111616 :          mat(k,1747) = .800_r8*rxt(k,348)*y(k,162)
     797   141111616 :          mat(k,803) = .800_r8*rxt(k,348)*y(k,116)
     798   141111616 :          mat(k,223) = -(rxt(k,340)*y(k,190))
     799   141111616 :          mat(k,1401) = -rxt(k,340)*y(k,103)
     800   141111616 :          mat(k,1607) = .800_r8*rxt(k,337)*y(k,186)
     801   141111616 :          mat(k,542) = .800_r8*rxt(k,337)*y(k,176)
     802   141111616 :          mat(k,458) = -(rxt(k,341)*y(k,190))
     803   141111616 :          mat(k,1433) = -rxt(k,341)*y(k,104)
     804   141111616 :          mat(k,1879) = rxt(k,344)*y(k,184)
     805   141111616 :          mat(k,1199) = rxt(k,344)*y(k,117)
     806             :          mat(k,786) = -(rxt(k,432)*y(k,118) + rxt(k,433)*y(k,122) + rxt(k,434) &
     807   141111616 :                       *y(k,190))
     808   141111616 :          mat(k,1981) = -rxt(k,432)*y(k,105)
     809   141111616 :          mat(k,1829) = -rxt(k,433)*y(k,105)
     810   141111616 :          mat(k,1465) = -rxt(k,434)*y(k,105)
     811   141111616 :          mat(k,1135) = -(rxt(k,342)*y(k,122) + rxt(k,343)*y(k,190))
     812   141111616 :          mat(k,1848) = -rxt(k,342)*y(k,106)
     813   141111616 :          mat(k,1489) = -rxt(k,343)*y(k,106)
     814   141111616 :          mat(k,712) = .200_r8*rxt(k,375)*y(k,122)
     815   141111616 :          mat(k,1788) = .560_r8*rxt(k,358)*y(k,178)
     816   141111616 :          mat(k,2003) = .600_r8*rxt(k,359)*y(k,178)
     817   141111616 :          mat(k,1848) = mat(k,1848) + .200_r8*rxt(k,375)*y(k,93)
     818   141111616 :          mat(k,1229) = .610_r8*rxt(k,355)*y(k,178)
     819   141111616 :          mat(k,1313) = .440_r8*rxt(k,356)*y(k,178)
     820             :          mat(k,1181) = .560_r8*rxt(k,358)*y(k,116) + .600_r8*rxt(k,359)*y(k,118) &
     821   141111616 :                       + .610_r8*rxt(k,355)*y(k,170) + .440_r8*rxt(k,356)*y(k,171)
     822             :          mat(k,277) = -(rxt(k,140)*y(k,116) + (rxt(k,141) + rxt(k,142) + rxt(k,143) &
     823   141111616 :                       ) * y(k,117) + rxt(k,152)*y(k,190))
     824   141111616 :          mat(k,1739) = -rxt(k,140)*y(k,107)
     825   141111616 :          mat(k,1874) = -(rxt(k,141) + rxt(k,142) + rxt(k,143)) * y(k,107)
     826   141111616 :          mat(k,1408) = -rxt(k,152)*y(k,107)
     827   141111616 :          mat(k,1872) = rxt(k,159)*y(k,118)
     828   141111616 :          mat(k,1972) = rxt(k,159)*y(k,117)
     829   141111616 :          mat(k,283) = -(rxt(k,378)*y(k,190))
     830   141111616 :          mat(k,1409) = -rxt(k,378)*y(k,110)
     831   141111616 :          mat(k,1036) = .200_r8*rxt(k,370)*y(k,171)
     832   141111616 :          mat(k,1287) = .200_r8*rxt(k,370)*y(k,96)
     833   141111616 :          mat(k,873) = -(rxt(k,379)*y(k,190))
     834   141111616 :          mat(k,1472) = -rxt(k,379)*y(k,111)
     835             :          mat(k,1041) = rxt(k,372)*y(k,116) + rxt(k,373)*y(k,118) + rxt(k,369)*y(k,170) &
     836   141111616 :                       + .800_r8*rxt(k,370)*y(k,171)
     837   141111616 :          mat(k,1773) = rxt(k,372)*y(k,96)
     838   141111616 :          mat(k,1987) = rxt(k,373)*y(k,96)
     839   141111616 :          mat(k,1221) = rxt(k,369)*y(k,96)
     840   141111616 :          mat(k,1299) = .800_r8*rxt(k,370)*y(k,96)
     841   141111616 :          mat(k,63) = -(rxt(k,469)*y(k,190))
     842   141111616 :          mat(k,1373) = -rxt(k,469)*y(k,112)
     843             :          mat(k,1804) = -(rxt(k,140)*y(k,107) + rxt(k,149)*y(k,118) + rxt(k,153) &
     844             :                       *y(k,176) + rxt(k,154)*y(k,122) + rxt(k,155)*y(k,121) + rxt(k,176) &
     845             :                       *y(k,57) + rxt(k,208)*y(k,17) + rxt(k,251)*y(k,171) + rxt(k,260) &
     846             :                       *y(k,177) + rxt(k,273)*y(k,167) + rxt(k,284)*y(k,170) + rxt(k,288) &
     847             :                       *y(k,175) + rxt(k,301)*y(k,168) + rxt(k,309)*y(k,192) + rxt(k,313) &
     848             :                       *y(k,193) + (rxt(k,319) + rxt(k,320)) * y(k,173) + (rxt(k,326) &
     849             :                       + rxt(k,327)) * y(k,182) + rxt(k,335)*y(k,184) + rxt(k,338) &
     850             :                       *y(k,186) + (rxt(k,348) + rxt(k,349)) * y(k,162) + rxt(k,358) &
     851             :                       *y(k,178) + rxt(k,364)*y(k,179) + rxt(k,372)*y(k,96) + rxt(k,383) &
     852             :                       *y(k,198) + rxt(k,387)*y(k,161) + rxt(k,390)*y(k,164) + rxt(k,395) &
     853             :                       *y(k,166) + rxt(k,397)*y(k,169) + rxt(k,401)*y(k,172) + rxt(k,404) &
     854             :                       *y(k,183) + rxt(k,407)*y(k,185) + rxt(k,410)*y(k,191) + rxt(k,417) &
     855             :                       *y(k,196) + rxt(k,423)*y(k,199) + rxt(k,426)*y(k,201) + rxt(k,437) &
     856   141111616 :                       *y(k,188) + rxt(k,442)*y(k,194) + rxt(k,447)*y(k,195))
     857   141111616 :          mat(k,281) = -rxt(k,140)*y(k,116)
     858   141111616 :          mat(k,2019) = -rxt(k,149)*y(k,116)
     859   141111616 :          mat(k,1688) = -rxt(k,153)*y(k,116)
     860   141111616 :          mat(k,1864) = -rxt(k,154)*y(k,116)
     861   141111616 :          mat(k,1582) = -rxt(k,155)*y(k,116)
     862   141111616 :          mat(k,1714) = -rxt(k,176)*y(k,116)
     863   141111616 :          mat(k,1529) = -rxt(k,208)*y(k,116)
     864   141111616 :          mat(k,1327) = -rxt(k,251)*y(k,116)
     865   141111616 :          mat(k,343) = -rxt(k,260)*y(k,116)
     866   141111616 :          mat(k,692) = -rxt(k,273)*y(k,116)
     867   141111616 :          mat(k,1240) = -rxt(k,284)*y(k,116)
     868   141111616 :          mat(k,572) = -rxt(k,288)*y(k,116)
     869   141111616 :          mat(k,668) = -rxt(k,301)*y(k,116)
     870   141111616 :          mat(k,635) = -rxt(k,309)*y(k,116)
     871   141111616 :          mat(k,1002) = -rxt(k,313)*y(k,116)
     872   141111616 :          mat(k,456) = -(rxt(k,319) + rxt(k,320)) * y(k,116)
     873   141111616 :          mat(k,1166) = -(rxt(k,326) + rxt(k,327)) * y(k,116)
     874   141111616 :          mat(k,1210) = -rxt(k,335)*y(k,116)
     875   141111616 :          mat(k,548) = -rxt(k,338)*y(k,116)
     876   141111616 :          mat(k,816) = -(rxt(k,348) + rxt(k,349)) * y(k,116)
     877   141111616 :          mat(k,1192) = -rxt(k,358)*y(k,116)
     878   141111616 :          mat(k,1124) = -rxt(k,364)*y(k,116)
     879   141111616 :          mat(k,1055) = -rxt(k,372)*y(k,116)
     880   141111616 :          mat(k,1019) = -rxt(k,383)*y(k,116)
     881   141111616 :          mat(k,412) = -rxt(k,387)*y(k,116)
     882   141111616 :          mat(k,380) = -rxt(k,390)*y(k,116)
     883   141111616 :          mat(k,337) = -rxt(k,395)*y(k,116)
     884   141111616 :          mat(k,517) = -rxt(k,397)*y(k,116)
     885   141111616 :          mat(k,626) = -rxt(k,401)*y(k,116)
     886   141111616 :          mat(k,578) = -rxt(k,404)*y(k,116)
     887   141111616 :          mat(k,747) = -rxt(k,407)*y(k,116)
     888   141111616 :          mat(k,350) = -rxt(k,410)*y(k,116)
     889   141111616 :          mat(k,593) = -rxt(k,417)*y(k,116)
     890   141111616 :          mat(k,618) = -rxt(k,423)*y(k,116)
     891   141111616 :          mat(k,388) = -rxt(k,426)*y(k,116)
     892   141111616 :          mat(k,988) = -rxt(k,437)*y(k,116)
     893   141111616 :          mat(k,969) = -rxt(k,442)*y(k,116)
     894   141111616 :          mat(k,949) = -rxt(k,447)*y(k,116)
     895   141111616 :          mat(k,281) = mat(k,281) + 2.000_r8*rxt(k,142)*y(k,117) + rxt(k,152)*y(k,190)
     896             :          mat(k,1905) = 2.000_r8*rxt(k,142)*y(k,107) + rxt(k,145)*y(k,121) + rxt(k,461) &
     897   141111616 :                       *y(k,136)
     898   141111616 :          mat(k,1582) = mat(k,1582) + rxt(k,145)*y(k,117)
     899   141111616 :          mat(k,1091) = rxt(k,461)*y(k,117)
     900   141111616 :          mat(k,1505) = rxt(k,152)*y(k,107)
     901             :          mat(k,1907) = -((rxt(k,141) + rxt(k,142) + rxt(k,143)) * y(k,107) + (rxt(k,145) &
     902             :                       + rxt(k,147)) * y(k,121) + rxt(k,146)*y(k,122) + rxt(k,158) &
     903             :                       *y(k,176) + rxt(k,159)*y(k,118) + rxt(k,160)*y(k,190) + rxt(k,178) &
     904             :                       *y(k,57) + rxt(k,209)*y(k,17) + rxt(k,295)*y(k,170) + rxt(k,344) &
     905             :                       *y(k,184) + rxt(k,402)*y(k,172) + rxt(k,405)*y(k,183) + rxt(k,408) &
     906             :                       *y(k,185) + rxt(k,412)*y(k,129) + rxt(k,415)*y(k,161) + rxt(k,461) &
     907   141111616 :                       *y(k,136))
     908   141111616 :          mat(k,282) = -(rxt(k,141) + rxt(k,142) + rxt(k,143)) * y(k,117)
     909   141111616 :          mat(k,1584) = -(rxt(k,145) + rxt(k,147)) * y(k,117)
     910   141111616 :          mat(k,1866) = -rxt(k,146)*y(k,117)
     911   141111616 :          mat(k,1690) = -rxt(k,158)*y(k,117)
     912   141111616 :          mat(k,2021) = -rxt(k,159)*y(k,117)
     913   141111616 :          mat(k,1507) = -rxt(k,160)*y(k,117)
     914   141111616 :          mat(k,1716) = -rxt(k,178)*y(k,117)
     915   141111616 :          mat(k,1531) = -rxt(k,209)*y(k,117)
     916   141111616 :          mat(k,1242) = -rxt(k,295)*y(k,117)
     917   141111616 :          mat(k,1212) = -rxt(k,344)*y(k,117)
     918   141111616 :          mat(k,627) = -rxt(k,402)*y(k,117)
     919   141111616 :          mat(k,579) = -rxt(k,405)*y(k,117)
     920   141111616 :          mat(k,748) = -rxt(k,408)*y(k,117)
     921   141111616 :          mat(k,365) = -rxt(k,412)*y(k,117)
     922   141111616 :          mat(k,413) = -rxt(k,415)*y(k,117)
     923   141111616 :          mat(k,1093) = -rxt(k,461)*y(k,117)
     924   141111616 :          mat(k,541) = rxt(k,346)*y(k,190)
     925   141111616 :          mat(k,263) = rxt(k,317)*y(k,118)
     926   141111616 :          mat(k,1531) = mat(k,1531) + rxt(k,208)*y(k,116)
     927   141111616 :          mat(k,1716) = mat(k,1716) + rxt(k,176)*y(k,116)
     928   141111616 :          mat(k,268) = rxt(k,139)*y(k,190)
     929   141111616 :          mat(k,481) = .700_r8*rxt(k,366)*y(k,190)
     930   141111616 :          mat(k,1056) = rxt(k,372)*y(k,116) + rxt(k,373)*y(k,118)
     931             :          mat(k,1806) = rxt(k,208)*y(k,17) + rxt(k,176)*y(k,57) + rxt(k,372)*y(k,96) &
     932             :                       + 2.000_r8*rxt(k,149)*y(k,118) + rxt(k,155)*y(k,121) &
     933             :                       + rxt(k,154)*y(k,122) + rxt(k,387)*y(k,161) + rxt(k,348) &
     934             :                       *y(k,162) + rxt(k,390)*y(k,164) + rxt(k,395)*y(k,166) &
     935             :                       + rxt(k,273)*y(k,167) + rxt(k,301)*y(k,168) + rxt(k,397) &
     936             :                       *y(k,169) + rxt(k,284)*y(k,170) + rxt(k,251)*y(k,171) &
     937             :                       + rxt(k,401)*y(k,172) + rxt(k,319)*y(k,173) + rxt(k,288) &
     938             :                       *y(k,175) + rxt(k,153)*y(k,176) + rxt(k,260)*y(k,177) &
     939             :                       + .920_r8*rxt(k,358)*y(k,178) + .920_r8*rxt(k,364)*y(k,179) &
     940             :                       + rxt(k,326)*y(k,182) + rxt(k,404)*y(k,183) + rxt(k,335) &
     941             :                       *y(k,184) + rxt(k,407)*y(k,185) + rxt(k,338)*y(k,186) &
     942             :                       + 1.600_r8*rxt(k,437)*y(k,188) + rxt(k,410)*y(k,191) &
     943             :                       + rxt(k,309)*y(k,192) + rxt(k,313)*y(k,193) + .900_r8*rxt(k,442) &
     944             :                       *y(k,194) + .800_r8*rxt(k,447)*y(k,195) + rxt(k,417)*y(k,196) &
     945             :                       + rxt(k,383)*y(k,198) + rxt(k,423)*y(k,199) + rxt(k,426) &
     946   141111616 :                       *y(k,201)
     947             :          mat(k,2021) = mat(k,2021) + rxt(k,317)*y(k,14) + rxt(k,373)*y(k,96) &
     948             :                       + 2.000_r8*rxt(k,149)*y(k,116) + rxt(k,150)*y(k,121) &
     949             :                       + rxt(k,148)*y(k,176) + rxt(k,359)*y(k,178) + rxt(k,365) &
     950             :                       *y(k,179) + rxt(k,325)*y(k,182) + rxt(k,336)*y(k,184) &
     951             :                       + 2.000_r8*rxt(k,438)*y(k,188) + rxt(k,151)*y(k,190) &
     952   141111616 :                       + rxt(k,384)*y(k,198)
     953   141111616 :          mat(k,734) = rxt(k,307)*y(k,190)
     954   141111616 :          mat(k,1584) = mat(k,1584) + rxt(k,155)*y(k,116) + rxt(k,150)*y(k,118)
     955   141111616 :          mat(k,1866) = mat(k,1866) + rxt(k,154)*y(k,116)
     956   141111616 :          mat(k,511) = rxt(k,444)*y(k,190)
     957   141111616 :          mat(k,413) = mat(k,413) + rxt(k,387)*y(k,116)
     958   141111616 :          mat(k,817) = rxt(k,348)*y(k,116)
     959   141111616 :          mat(k,381) = rxt(k,390)*y(k,116)
     960   141111616 :          mat(k,338) = rxt(k,395)*y(k,116)
     961   141111616 :          mat(k,693) = rxt(k,273)*y(k,116)
     962   141111616 :          mat(k,669) = rxt(k,301)*y(k,116)
     963   141111616 :          mat(k,519) = rxt(k,397)*y(k,116)
     964   141111616 :          mat(k,1242) = mat(k,1242) + rxt(k,284)*y(k,116)
     965   141111616 :          mat(k,1329) = rxt(k,251)*y(k,116) + .500_r8*rxt(k,435)*y(k,188)
     966   141111616 :          mat(k,627) = mat(k,627) + rxt(k,401)*y(k,116)
     967   141111616 :          mat(k,457) = rxt(k,319)*y(k,116)
     968   141111616 :          mat(k,573) = rxt(k,288)*y(k,116)
     969   141111616 :          mat(k,1690) = mat(k,1690) + rxt(k,153)*y(k,116) + rxt(k,148)*y(k,118)
     970   141111616 :          mat(k,344) = rxt(k,260)*y(k,116)
     971   141111616 :          mat(k,1194) = .920_r8*rxt(k,358)*y(k,116) + rxt(k,359)*y(k,118)
     972   141111616 :          mat(k,1126) = .920_r8*rxt(k,364)*y(k,116) + rxt(k,365)*y(k,118)
     973   141111616 :          mat(k,1167) = rxt(k,326)*y(k,116) + rxt(k,325)*y(k,118)
     974   141111616 :          mat(k,579) = mat(k,579) + rxt(k,404)*y(k,116)
     975   141111616 :          mat(k,1212) = mat(k,1212) + rxt(k,335)*y(k,116) + rxt(k,336)*y(k,118)
     976   141111616 :          mat(k,748) = mat(k,748) + rxt(k,407)*y(k,116)
     977   141111616 :          mat(k,549) = rxt(k,338)*y(k,116)
     978             :          mat(k,989) = 1.600_r8*rxt(k,437)*y(k,116) + 2.000_r8*rxt(k,438)*y(k,118) &
     979   141111616 :                       + .500_r8*rxt(k,435)*y(k,171)
     980             :          mat(k,1507) = mat(k,1507) + rxt(k,346)*y(k,1) + rxt(k,139)*y(k,85) &
     981             :                       + .700_r8*rxt(k,366)*y(k,94) + rxt(k,151)*y(k,118) + rxt(k,307) &
     982   141111616 :                       *y(k,119) + rxt(k,444)*y(k,148)
     983   141111616 :          mat(k,351) = rxt(k,410)*y(k,116)
     984   141111616 :          mat(k,636) = rxt(k,309)*y(k,116)
     985   141111616 :          mat(k,1003) = rxt(k,313)*y(k,116)
     986   141111616 :          mat(k,970) = .900_r8*rxt(k,442)*y(k,116)
     987   141111616 :          mat(k,950) = .800_r8*rxt(k,447)*y(k,116)
     988   141111616 :          mat(k,594) = rxt(k,417)*y(k,116)
     989   141111616 :          mat(k,1020) = rxt(k,383)*y(k,116) + rxt(k,384)*y(k,118)
     990   141111616 :          mat(k,619) = rxt(k,423)*y(k,116)
     991   145521354 :          mat(k,389) = rxt(k,426)*y(k,116)
     992             :       end do
     993     4409738 :       end subroutine nlnmat04
     994     4409738 :       subroutine nlnmat05( avec_len, mat, y, rxt )
     995             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
     996             :       implicit none
     997             : !----------------------------------------------
     998             : ! ... dummy arguments
     999             : !----------------------------------------------
    1000             :       integer, intent(in) :: avec_len
    1001             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    1002             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    1003             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    1004             : !----------------------------------------------
    1005             : ! ... local variables
    1006             : !----------------------------------------------
    1007             :       integer :: k
    1008             : !----------------------------------------------
    1009             : ! ... complete matrix entries implicit species
    1010             : !----------------------------------------------
    1011   145521354 :       do k = 1,avec_len
    1012   141111616 :          mat(k,2024) = -(rxt(k,148)*y(k,176) + rxt(k,149)*y(k,116) + rxt(k,150) &
    1013             :                       *y(k,121) + rxt(k,151)*y(k,190) + rxt(k,159)*y(k,117) + rxt(k,245) &
    1014             :                       *y(k,40) + rxt(k,278)*y(k,43) + rxt(k,297)*y(k,27) + rxt(k,304) &
    1015             :                       *y(k,47) + rxt(k,317)*y(k,14) + rxt(k,325)*y(k,182) + rxt(k,336) &
    1016             :                       *y(k,184) + rxt(k,359)*y(k,178) + rxt(k,365)*y(k,179) + rxt(k,368) &
    1017             :                       *y(k,93) + rxt(k,373)*y(k,96) + rxt(k,384)*y(k,198) + rxt(k,429) &
    1018             :                       *y(k,4) + rxt(k,432)*y(k,105) + rxt(k,438)*y(k,188) + rxt(k,449) &
    1019   141111616 :                       *y(k,150) + rxt(k,452)*y(k,65))
    1020   141111616 :          mat(k,1693) = -rxt(k,148)*y(k,118)
    1021   141111616 :          mat(k,1809) = -rxt(k,149)*y(k,118)
    1022   141111616 :          mat(k,1587) = -rxt(k,150)*y(k,118)
    1023   141111616 :          mat(k,1510) = -rxt(k,151)*y(k,118)
    1024   141111616 :          mat(k,1910) = -rxt(k,159)*y(k,118)
    1025   141111616 :          mat(k,1557) = -rxt(k,245)*y(k,118)
    1026   141111616 :          mat(k,901) = -rxt(k,278)*y(k,118)
    1027   141111616 :          mat(k,853) = -rxt(k,297)*y(k,118)
    1028   141111616 :          mat(k,1078) = -rxt(k,304)*y(k,118)
    1029   141111616 :          mat(k,264) = -rxt(k,317)*y(k,118)
    1030   141111616 :          mat(k,1168) = -rxt(k,325)*y(k,118)
    1031   141111616 :          mat(k,1213) = -rxt(k,336)*y(k,118)
    1032   141111616 :          mat(k,1195) = -rxt(k,359)*y(k,118)
    1033   141111616 :          mat(k,1127) = -rxt(k,365)*y(k,118)
    1034   141111616 :          mat(k,720) = -rxt(k,368)*y(k,118)
    1035   141111616 :          mat(k,1057) = -rxt(k,373)*y(k,118)
    1036   141111616 :          mat(k,1021) = -rxt(k,384)*y(k,118)
    1037   141111616 :          mat(k,774) = -rxt(k,429)*y(k,118)
    1038   141111616 :          mat(k,801) = -rxt(k,432)*y(k,118)
    1039   141111616 :          mat(k,990) = -rxt(k,438)*y(k,118)
    1040   141111616 :          mat(k,862) = -rxt(k,449)*y(k,118)
    1041   141111616 :          mat(k,188) = -rxt(k,452)*y(k,118)
    1042   141111616 :          mat(k,421) = rxt(k,210)*y(k,121)
    1043   141111616 :          mat(k,1967) = rxt(k,177)*y(k,58)
    1044   141111616 :          mat(k,834) = rxt(k,177)*y(k,54) + rxt(k,179)*y(k,121) + rxt(k,180)*y(k,190)
    1045   141111616 :          mat(k,645) = rxt(k,224)*y(k,84)
    1046   141111616 :          mat(k,1269) = rxt(k,224)*y(k,68) + rxt(k,161)*y(k,190)
    1047   141111616 :          mat(k,465) = .500_r8*rxt(k,341)*y(k,190)
    1048   141111616 :          mat(k,1910) = mat(k,1910) + rxt(k,147)*y(k,121) + rxt(k,146)*y(k,122)
    1049             :          mat(k,1587) = mat(k,1587) + rxt(k,210)*y(k,18) + rxt(k,179)*y(k,58) &
    1050   141111616 :                       + rxt(k,147)*y(k,117)
    1051   141111616 :          mat(k,1869) = rxt(k,146)*y(k,117)
    1052   141111616 :          mat(k,361) = rxt(k,293)*y(k,190)
    1053             :          mat(k,1510) = mat(k,1510) + rxt(k,180)*y(k,58) + rxt(k,161)*y(k,84) &
    1054   141111616 :                       + .500_r8*rxt(k,341)*y(k,104) + rxt(k,293)*y(k,127)
    1055   141111616 :          mat(k,729) = -(rxt(k,307)*y(k,190))
    1056   141111616 :          mat(k,1461) = -rxt(k,307)*y(k,119)
    1057   141111616 :          mat(k,839) = rxt(k,297)*y(k,118)
    1058   141111616 :          mat(k,435) = .500_r8*rxt(k,367)*y(k,190)
    1059   141111616 :          mat(k,273) = rxt(k,374)*y(k,190)
    1060   141111616 :          mat(k,284) = rxt(k,378)*y(k,190)
    1061   141111616 :          mat(k,870) = rxt(k,379)*y(k,190)
    1062   141111616 :          mat(k,1978) = rxt(k,297)*y(k,27)
    1063             :          mat(k,1461) = mat(k,1461) + .500_r8*rxt(k,367)*y(k,95) + rxt(k,374)*y(k,97) &
    1064   141111616 :                       + rxt(k,378)*y(k,110) + rxt(k,379)*y(k,111)
    1065   141111616 :          mat(k,289) = -(rxt(k,439)*y(k,190))
    1066   141111616 :          mat(k,1410) = -rxt(k,439)*y(k,120)
    1067   141111616 :          mat(k,1612) = rxt(k,436)*y(k,188)
    1068   141111616 :          mat(k,972) = rxt(k,436)*y(k,176)
    1069             :          mat(k,1579) = -(rxt(k,119)*y(k,122) + 4._r8*rxt(k,120)*y(k,121) + rxt(k,122) &
    1070             :                       *y(k,72) + rxt(k,123)*y(k,74) + rxt(k,128)*y(k,176) + rxt(k,134) &
    1071             :                       *y(k,190) + (rxt(k,145) + rxt(k,147)) * y(k,117) + rxt(k,150) &
    1072             :                       *y(k,118) + rxt(k,155)*y(k,116) + rxt(k,179)*y(k,58) + rxt(k,181) &
    1073             :                       *y(k,57) + rxt(k,184)*y(k,80) + rxt(k,187)*y(k,87) + rxt(k,210) &
    1074             :                       *y(k,18) + rxt(k,211)*y(k,17) + rxt(k,213)*y(k,76) + rxt(k,215) &
    1075   141111616 :                       *y(k,86) + rxt(k,246)*y(k,40) + rxt(k,454)*y(k,125))
    1076   141111616 :          mat(k,1861) = -rxt(k,119)*y(k,121)
    1077   141111616 :          mat(k,1030) = -rxt(k,122)*y(k,121)
    1078   141111616 :          mat(k,468) = -rxt(k,123)*y(k,121)
    1079   141111616 :          mat(k,1685) = -rxt(k,128)*y(k,121)
    1080   141111616 :          mat(k,1502) = -rxt(k,134)*y(k,121)
    1081   141111616 :          mat(k,1902) = -(rxt(k,145) + rxt(k,147)) * y(k,121)
    1082   141111616 :          mat(k,2016) = -rxt(k,150)*y(k,121)
    1083   141111616 :          mat(k,1801) = -rxt(k,155)*y(k,121)
    1084   141111616 :          mat(k,829) = -rxt(k,179)*y(k,121)
    1085   141111616 :          mat(k,1711) = -rxt(k,181)*y(k,121)
    1086   141111616 :          mat(k,1925) = -rxt(k,184)*y(k,121)
    1087   141111616 :          mat(k,678) = -rxt(k,187)*y(k,121)
    1088   141111616 :          mat(k,419) = -rxt(k,210)*y(k,121)
    1089   141111616 :          mat(k,1526) = -rxt(k,211)*y(k,121)
    1090   141111616 :          mat(k,700) = -rxt(k,213)*y(k,121)
    1091   141111616 :          mat(k,652) = -rxt(k,215)*y(k,121)
    1092   141111616 :          mat(k,1549) = -rxt(k,246)*y(k,121)
    1093   141111616 :          mat(k,256) = -rxt(k,454)*y(k,121)
    1094   141111616 :          mat(k,1277) = rxt(k,126)*y(k,176)
    1095   141111616 :          mat(k,280) = rxt(k,140)*y(k,116) + rxt(k,141)*y(k,117)
    1096   141111616 :          mat(k,1801) = mat(k,1801) + rxt(k,140)*y(k,107)
    1097   141111616 :          mat(k,1902) = mat(k,1902) + rxt(k,141)*y(k,107)
    1098   141111616 :          mat(k,1685) = mat(k,1685) + rxt(k,126)*y(k,71)
    1099   141111616 :          mat(k,1502) = mat(k,1502) + 2.000_r8*rxt(k,136)*y(k,190)
    1100             :          mat(k,1865) = -(rxt(k,118)*y(k,189) + rxt(k,119)*y(k,121) + rxt(k,129) &
    1101             :                       *y(k,176) + rxt(k,130)*y(k,71) + rxt(k,135)*y(k,190) + rxt(k,146) &
    1102             :                       *y(k,117) + rxt(k,154)*y(k,116) + rxt(k,170)*y(k,54) + rxt(k,202) &
    1103             :                       *y(k,15) + rxt(k,269)*y(k,23) + rxt(k,298)*y(k,27) + rxt(k,328) &
    1104             :                       *y(k,100) + rxt(k,342)*y(k,106) + rxt(k,375)*y(k,93) + rxt(k,413) &
    1105             :                       *y(k,129) + rxt(k,430)*y(k,4) + rxt(k,433)*y(k,105) + rxt(k,457) &
    1106   141111616 :                       *y(k,134) + rxt(k,463)*y(k,136))
    1107   141111616 :          mat(k,1352) = -rxt(k,118)*y(k,122)
    1108   141111616 :          mat(k,1583) = -rxt(k,119)*y(k,122)
    1109   141111616 :          mat(k,1689) = -rxt(k,129)*y(k,122)
    1110   141111616 :          mat(k,1279) = -rxt(k,130)*y(k,122)
    1111   141111616 :          mat(k,1506) = -rxt(k,135)*y(k,122)
    1112   141111616 :          mat(k,1906) = -rxt(k,146)*y(k,122)
    1113   141111616 :          mat(k,1805) = -rxt(k,154)*y(k,122)
    1114   141111616 :          mat(k,1963) = -rxt(k,170)*y(k,122)
    1115   141111616 :          mat(k,1255) = -rxt(k,202)*y(k,122)
    1116   141111616 :          mat(k,449) = -rxt(k,269)*y(k,122)
    1117   141111616 :          mat(k,851) = -rxt(k,298)*y(k,122)
    1118   141111616 :          mat(k,1069) = -rxt(k,328)*y(k,122)
    1119   141111616 :          mat(k,1145) = -rxt(k,342)*y(k,122)
    1120   141111616 :          mat(k,719) = -rxt(k,375)*y(k,122)
    1121   141111616 :          mat(k,364) = -rxt(k,413)*y(k,122)
    1122   141111616 :          mat(k,773) = -rxt(k,430)*y(k,122)
    1123   141111616 :          mat(k,800) = -rxt(k,433)*y(k,122)
    1124   141111616 :          mat(k,395) = -rxt(k,457)*y(k,122)
    1125   141111616 :          mat(k,1092) = -rxt(k,463)*y(k,122)
    1126   141111616 :          mat(k,1241) = .150_r8*rxt(k,283)*y(k,176)
    1127             :          mat(k,1689) = mat(k,1689) + .150_r8*rxt(k,283)*y(k,170) + .150_r8*rxt(k,333) &
    1128   141111616 :                       *y(k,184)
    1129   141111616 :          mat(k,1211) = .150_r8*rxt(k,333)*y(k,176)
    1130   141111616 :          mat(k,228) = -(rxt(k,464)*y(k,136))
    1131   141111616 :          mat(k,1080) = -rxt(k,464)*y(k,124)
    1132   141111616 :          mat(k,1513) = rxt(k,204)*y(k,57)
    1133   141111616 :          mat(k,1698) = rxt(k,204)*y(k,17) + 2.000_r8*rxt(k,174)*y(k,57)
    1134   141111616 :          mat(k,249) = -(rxt(k,454)*y(k,121) + rxt(k,455)*y(k,190))
    1135   141111616 :          mat(k,1559) = -rxt(k,454)*y(k,125)
    1136   141111616 :          mat(k,1404) = -rxt(k,455)*y(k,125)
    1137   141111616 :          mat(k,907) = rxt(k,321)*y(k,190)
    1138   141111616 :          mat(k,1734) = .100_r8*rxt(k,442)*y(k,194)
    1139   141111616 :          mat(k,1391) = rxt(k,321)*y(k,88)
    1140   141111616 :          mat(k,953) = .100_r8*rxt(k,442)*y(k,116)
    1141   141111616 :          mat(k,355) = -(rxt(k,293)*y(k,190))
    1142   141111616 :          mat(k,1419) = -rxt(k,293)*y(k,127)
    1143   141111616 :          mat(k,1875) = rxt(k,295)*y(k,170)
    1144   141111616 :          mat(k,1216) = rxt(k,295)*y(k,117)
    1145   141111616 :          mat(k,1871) = rxt(k,415)*y(k,161)
    1146   141111616 :          mat(k,407) = rxt(k,415)*y(k,117)
    1147   141111616 :          mat(k,362) = -(rxt(k,412)*y(k,117) + rxt(k,413)*y(k,122))
    1148   141111616 :          mat(k,1876) = -rxt(k,412)*y(k,129)
    1149   141111616 :          mat(k,1818) = -rxt(k,413)*y(k,129)
    1150   141111616 :          mat(k,121) = .070_r8*rxt(k,399)*y(k,190)
    1151   141111616 :          mat(k,1744) = rxt(k,397)*y(k,169)
    1152   141111616 :          mat(k,100) = .060_r8*rxt(k,411)*y(k,190)
    1153   141111616 :          mat(k,142) = .070_r8*rxt(k,427)*y(k,190)
    1154   141111616 :          mat(k,513) = rxt(k,397)*y(k,116)
    1155             :          mat(k,1420) = .070_r8*rxt(k,399)*y(k,64) + .060_r8*rxt(k,411)*y(k,130) &
    1156   141111616 :                       + .070_r8*rxt(k,427)*y(k,157)
    1157   141111616 :          mat(k,98) = -(rxt(k,411)*y(k,190))
    1158   141111616 :          mat(k,1379) = -rxt(k,411)*y(k,130)
    1159   141111616 :          mat(k,90) = .530_r8*rxt(k,388)*y(k,190)
    1160   141111616 :          mat(k,1379) = mat(k,1379) + .530_r8*rxt(k,388)*y(k,5)
    1161   141111616 :          mat(k,233) = -(rxt(k,414)*y(k,190))
    1162   141111616 :          mat(k,1402) = -rxt(k,414)*y(k,131)
    1163   141111616 :          mat(k,1608) = rxt(k,409)*y(k,191)
    1164   141111616 :          mat(k,345) = rxt(k,409)*y(k,176)
    1165   141111616 :          mat(k,422) = -(rxt(k,310)*y(k,190))
    1166   141111616 :          mat(k,1428) = -rxt(k,310)*y(k,132)
    1167   141111616 :          mat(k,1628) = rxt(k,308)*y(k,192)
    1168   141111616 :          mat(k,628) = rxt(k,308)*y(k,176)
    1169   141111616 :          mat(k,301) = -(rxt(k,314)*y(k,190))
    1170   141111616 :          mat(k,1412) = -rxt(k,314)*y(k,133)
    1171   141111616 :          mat(k,1614) = .850_r8*rxt(k,312)*y(k,193)
    1172   141111616 :          mat(k,992) = .850_r8*rxt(k,312)*y(k,176)
    1173   141111616 :          mat(k,390) = -(rxt(k,457)*y(k,122) + rxt(k,460)*y(k,190))
    1174   141111616 :          mat(k,1819) = -rxt(k,457)*y(k,134)
    1175   141111616 :          mat(k,1424) = -rxt(k,460)*y(k,134)
    1176             :          mat(k,1083) = -(rxt(k,458)*y(k,17) + rxt(k,459)*y(k,57) + rxt(k,461)*y(k,117) &
    1177             :                       + rxt(k,463)*y(k,122) + rxt(k,464)*y(k,124) + rxt(k,465) &
    1178   141111616 :                       *y(k,190))
    1179   141111616 :          mat(k,1517) = -rxt(k,458)*y(k,136)
    1180   141111616 :          mat(k,1702) = -rxt(k,459)*y(k,136)
    1181   141111616 :          mat(k,1891) = -rxt(k,461)*y(k,136)
    1182   141111616 :          mat(k,1846) = -rxt(k,463)*y(k,136)
    1183   141111616 :          mat(k,230) = -rxt(k,464)*y(k,136)
    1184   141111616 :          mat(k,1487) = -rxt(k,465)*y(k,136)
    1185   141111616 :          mat(k,1570) = rxt(k,454)*y(k,125)
    1186   141111616 :          mat(k,1846) = mat(k,1846) + rxt(k,457)*y(k,134)
    1187   141111616 :          mat(k,253) = rxt(k,454)*y(k,121)
    1188   141111616 :          mat(k,391) = rxt(k,457)*y(k,122) + rxt(k,460)*y(k,190)
    1189   141111616 :          mat(k,1487) = mat(k,1487) + rxt(k,460)*y(k,134)
    1190   141111616 :          mat(k,723) = -(rxt(k,467)*y(k,190))
    1191   141111616 :          mat(k,1460) = -rxt(k,467)*y(k,137)
    1192   141111616 :          mat(k,1516) = rxt(k,458)*y(k,136)
    1193   141111616 :          mat(k,1700) = rxt(k,459)*y(k,136)
    1194   141111616 :          mat(k,184) = rxt(k,452)*y(k,118) + (rxt(k,453)+.500_r8*rxt(k,466))*y(k,190)
    1195   141111616 :          mat(k,1884) = rxt(k,461)*y(k,136)
    1196   141111616 :          mat(k,1977) = rxt(k,452)*y(k,65)
    1197   141111616 :          mat(k,1826) = rxt(k,463)*y(k,136)
    1198   141111616 :          mat(k,229) = rxt(k,464)*y(k,136)
    1199   141111616 :          mat(k,251) = rxt(k,455)*y(k,190)
    1200             :          mat(k,1082) = rxt(k,458)*y(k,17) + rxt(k,459)*y(k,57) + rxt(k,461)*y(k,117) &
    1201             :                       + rxt(k,463)*y(k,122) + rxt(k,464)*y(k,124) + rxt(k,465) &
    1202   141111616 :                       *y(k,190)
    1203             :          mat(k,1460) = mat(k,1460) + (rxt(k,453)+.500_r8*rxt(k,466))*y(k,65) &
    1204   141111616 :                       + rxt(k,455)*y(k,125) + rxt(k,465)*y(k,136)
    1205   141111616 :          mat(k,175) = -(rxt(k,468)*y(k,202))
    1206   141111616 :          mat(k,2028) = -rxt(k,468)*y(k,138)
    1207   141111616 :          mat(k,722) = rxt(k,467)*y(k,190)
    1208   141111616 :          mat(k,1394) = rxt(k,467)*y(k,137)
    1209   141111616 :          mat(k,749) = .2202005_r8*rxt(k,487)*y(k,122)
    1210   141111616 :          mat(k,776) = .0508005_r8*rxt(k,503)*y(k,122)
    1211             :          mat(k,1721) = .1279005_r8*rxt(k,486)*y(k,163) + .0097005_r8*rxt(k,491) &
    1212             :                       *y(k,165) + .0003005_r8*rxt(k,494)*y(k,180) &
    1213             :                       + .1056005_r8*rxt(k,498)*y(k,181) + .0245005_r8*rxt(k,502) &
    1214             :                       *y(k,187) + .0154005_r8*rxt(k,508)*y(k,197) &
    1215   141111616 :                       + .0063005_r8*rxt(k,511)*y(k,200)
    1216   141111616 :          mat(k,1811) = .2202005_r8*rxt(k,487)*y(k,4) + .0508005_r8*rxt(k,503)*y(k,105)
    1217   141111616 :          mat(k,7) = .5931005_r8*rxt(k,505)*y(k,190)
    1218   141111616 :          mat(k,13) = .1279005_r8*rxt(k,486)*y(k,116) + .2202005_r8*rxt(k,485)*y(k,176)
    1219   141111616 :          mat(k,19) = .0097005_r8*rxt(k,491)*y(k,116) + .0023005_r8*rxt(k,490)*y(k,176)
    1220             :          mat(k,1589) = .2202005_r8*rxt(k,485)*y(k,163) + .0023005_r8*rxt(k,490) &
    1221             :                       *y(k,165) + .0031005_r8*rxt(k,493)*y(k,180) &
    1222             :                       + .2381005_r8*rxt(k,497)*y(k,181) + .0508005_r8*rxt(k,501) &
    1223             :                       *y(k,187) + .1364005_r8*rxt(k,507)*y(k,197) &
    1224   141111616 :                       + .1677005_r8*rxt(k,510)*y(k,200)
    1225   141111616 :          mat(k,25) = .0003005_r8*rxt(k,494)*y(k,116) + .0031005_r8*rxt(k,493)*y(k,176)
    1226   141111616 :          mat(k,31) = .1056005_r8*rxt(k,498)*y(k,116) + .2381005_r8*rxt(k,497)*y(k,176)
    1227   141111616 :          mat(k,39) = .0245005_r8*rxt(k,502)*y(k,116) + .0508005_r8*rxt(k,501)*y(k,176)
    1228   141111616 :          mat(k,1358) = .5931005_r8*rxt(k,505)*y(k,145)
    1229   141111616 :          mat(k,45) = .0154005_r8*rxt(k,508)*y(k,116) + .1364005_r8*rxt(k,507)*y(k,176)
    1230   145521354 :          mat(k,51) = .0063005_r8*rxt(k,511)*y(k,116) + .1677005_r8*rxt(k,510)*y(k,176)
    1231             :       end do
    1232     4409738 :       end subroutine nlnmat05
    1233     4409738 :       subroutine nlnmat06( avec_len, mat, y, rxt )
    1234             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    1235             :       implicit none
    1236             : !----------------------------------------------
    1237             : ! ... dummy arguments
    1238             : !----------------------------------------------
    1239             :       integer, intent(in) :: avec_len
    1240             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    1241             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    1242             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    1243             : !----------------------------------------------
    1244             : ! ... local variables
    1245             : !----------------------------------------------
    1246             :       integer :: k
    1247             : !----------------------------------------------
    1248             : ! ... complete matrix entries implicit species
    1249             : !----------------------------------------------
    1250   145521354 :       do k = 1,avec_len
    1251   141111616 :          mat(k,750) = .2067005_r8*rxt(k,487)*y(k,122)
    1252   141111616 :          mat(k,777) = .1149005_r8*rxt(k,503)*y(k,122)
    1253             :          mat(k,1722) = .1792005_r8*rxt(k,486)*y(k,163) + .0034005_r8*rxt(k,491) &
    1254             :                       *y(k,165) + .0003005_r8*rxt(k,494)*y(k,180) &
    1255             :                       + .1026005_r8*rxt(k,498)*y(k,181) + .0082005_r8*rxt(k,502) &
    1256             :                       *y(k,187) + .0452005_r8*rxt(k,508)*y(k,197) &
    1257   141111616 :                       + .0237005_r8*rxt(k,511)*y(k,200)
    1258   141111616 :          mat(k,1812) = .2067005_r8*rxt(k,487)*y(k,4) + .1149005_r8*rxt(k,503)*y(k,105)
    1259   141111616 :          mat(k,8) = .1534005_r8*rxt(k,505)*y(k,190)
    1260   141111616 :          mat(k,14) = .1792005_r8*rxt(k,486)*y(k,116) + .2067005_r8*rxt(k,485)*y(k,176)
    1261   141111616 :          mat(k,20) = .0034005_r8*rxt(k,491)*y(k,116) + .0008005_r8*rxt(k,490)*y(k,176)
    1262             :          mat(k,1590) = .2067005_r8*rxt(k,485)*y(k,163) + .0008005_r8*rxt(k,490) &
    1263             :                       *y(k,165) + .0035005_r8*rxt(k,493)*y(k,180) &
    1264             :                       + .1308005_r8*rxt(k,497)*y(k,181) + .1149005_r8*rxt(k,501) &
    1265             :                       *y(k,187) + .0101005_r8*rxt(k,507)*y(k,197) &
    1266   141111616 :                       + .0174005_r8*rxt(k,510)*y(k,200)
    1267   141111616 :          mat(k,26) = .0003005_r8*rxt(k,494)*y(k,116) + .0035005_r8*rxt(k,493)*y(k,176)
    1268   141111616 :          mat(k,32) = .1026005_r8*rxt(k,498)*y(k,116) + .1308005_r8*rxt(k,497)*y(k,176)
    1269   141111616 :          mat(k,40) = .0082005_r8*rxt(k,502)*y(k,116) + .1149005_r8*rxt(k,501)*y(k,176)
    1270   141111616 :          mat(k,1359) = .1534005_r8*rxt(k,505)*y(k,145)
    1271   141111616 :          mat(k,46) = .0452005_r8*rxt(k,508)*y(k,116) + .0101005_r8*rxt(k,507)*y(k,176)
    1272   141111616 :          mat(k,52) = .0237005_r8*rxt(k,511)*y(k,116) + .0174005_r8*rxt(k,510)*y(k,176)
    1273   141111616 :          mat(k,751) = .0653005_r8*rxt(k,487)*y(k,122)
    1274   141111616 :          mat(k,778) = .0348005_r8*rxt(k,503)*y(k,122)
    1275             :          mat(k,1723) = .0676005_r8*rxt(k,486)*y(k,163) + .1579005_r8*rxt(k,491) &
    1276             :                       *y(k,165) + .0073005_r8*rxt(k,494)*y(k,180) &
    1277             :                       + .0521005_r8*rxt(k,498)*y(k,181) + .0772005_r8*rxt(k,502) &
    1278             :                       *y(k,187) + .0966005_r8*rxt(k,508)*y(k,197) &
    1279   141111616 :                       + .0025005_r8*rxt(k,511)*y(k,200)
    1280   141111616 :          mat(k,1813) = .0653005_r8*rxt(k,487)*y(k,4) + .0348005_r8*rxt(k,503)*y(k,105)
    1281   141111616 :          mat(k,9) = .0459005_r8*rxt(k,505)*y(k,190)
    1282   141111616 :          mat(k,15) = .0676005_r8*rxt(k,486)*y(k,116) + .0653005_r8*rxt(k,485)*y(k,176)
    1283   141111616 :          mat(k,21) = .1579005_r8*rxt(k,491)*y(k,116) + .0843005_r8*rxt(k,490)*y(k,176)
    1284             :          mat(k,1591) = .0653005_r8*rxt(k,485)*y(k,163) + .0843005_r8*rxt(k,490) &
    1285             :                       *y(k,165) + .0003005_r8*rxt(k,493)*y(k,180) &
    1286             :                       + .0348005_r8*rxt(k,497)*y(k,181) + .0348005_r8*rxt(k,501) &
    1287             :                       *y(k,187) + .0763005_r8*rxt(k,507)*y(k,197) + .086_r8*rxt(k,510) &
    1288   141111616 :                       *y(k,200)
    1289   141111616 :          mat(k,27) = .0073005_r8*rxt(k,494)*y(k,116) + .0003005_r8*rxt(k,493)*y(k,176)
    1290   141111616 :          mat(k,33) = .0521005_r8*rxt(k,498)*y(k,116) + .0348005_r8*rxt(k,497)*y(k,176)
    1291   141111616 :          mat(k,41) = .0772005_r8*rxt(k,502)*y(k,116) + .0348005_r8*rxt(k,501)*y(k,176)
    1292   141111616 :          mat(k,1360) = .0459005_r8*rxt(k,505)*y(k,145)
    1293   141111616 :          mat(k,47) = .0966005_r8*rxt(k,508)*y(k,116) + .0763005_r8*rxt(k,507)*y(k,176)
    1294   141111616 :          mat(k,53) = .0025005_r8*rxt(k,511)*y(k,116) + .086_r8*rxt(k,510)*y(k,176)
    1295             :          mat(k,752) = .1749305_r8*rxt(k,484)*y(k,118) + .1284005_r8*rxt(k,487) &
    1296   141111616 :                       *y(k,122)
    1297             :          mat(k,702) = .0590245_r8*rxt(k,492)*y(k,118) + .0033005_r8*rxt(k,495) &
    1298   141111616 :                       *y(k,122)
    1299             :          mat(k,779) = .1749305_r8*rxt(k,500)*y(k,118) + .0554005_r8*rxt(k,503) &
    1300   141111616 :                       *y(k,122)
    1301             :          mat(k,1724) = .079_r8*rxt(k,486)*y(k,163) + .0059005_r8*rxt(k,491)*y(k,165) &
    1302             :                       + .0057005_r8*rxt(k,494)*y(k,180) + .0143005_r8*rxt(k,498) &
    1303             :                       *y(k,181) + .0332005_r8*rxt(k,502)*y(k,187) &
    1304   141111616 :                       + .0073005_r8*rxt(k,508)*y(k,197) + .011_r8*rxt(k,511)*y(k,200)
    1305             :          mat(k,1969) = .1749305_r8*rxt(k,484)*y(k,4) + .0590245_r8*rxt(k,492)*y(k,93) &
    1306   141111616 :                       + .1749305_r8*rxt(k,500)*y(k,105)
    1307             :          mat(k,1814) = .1284005_r8*rxt(k,487)*y(k,4) + .0033005_r8*rxt(k,495)*y(k,93) &
    1308   141111616 :                       + .0554005_r8*rxt(k,503)*y(k,105)
    1309   141111616 :          mat(k,10) = .0085005_r8*rxt(k,505)*y(k,190)
    1310   141111616 :          mat(k,16) = .079_r8*rxt(k,486)*y(k,116) + .1284005_r8*rxt(k,485)*y(k,176)
    1311   141111616 :          mat(k,22) = .0059005_r8*rxt(k,491)*y(k,116) + .0443005_r8*rxt(k,490)*y(k,176)
    1312             :          mat(k,1592) = .1284005_r8*rxt(k,485)*y(k,163) + .0443005_r8*rxt(k,490) &
    1313             :                       *y(k,165) + .0271005_r8*rxt(k,493)*y(k,180) &
    1314             :                       + .0076005_r8*rxt(k,497)*y(k,181) + .0554005_r8*rxt(k,501) &
    1315             :                       *y(k,187) + .2157005_r8*rxt(k,507)*y(k,197) &
    1316   141111616 :                       + .0512005_r8*rxt(k,510)*y(k,200)
    1317   141111616 :          mat(k,28) = .0057005_r8*rxt(k,494)*y(k,116) + .0271005_r8*rxt(k,493)*y(k,176)
    1318   141111616 :          mat(k,34) = .0143005_r8*rxt(k,498)*y(k,116) + .0076005_r8*rxt(k,497)*y(k,176)
    1319   141111616 :          mat(k,42) = .0332005_r8*rxt(k,502)*y(k,116) + .0554005_r8*rxt(k,501)*y(k,176)
    1320   141111616 :          mat(k,1361) = .0085005_r8*rxt(k,505)*y(k,145)
    1321   141111616 :          mat(k,48) = .0073005_r8*rxt(k,508)*y(k,116) + .2157005_r8*rxt(k,507)*y(k,176)
    1322   141111616 :          mat(k,54) = .011_r8*rxt(k,511)*y(k,116) + .0512005_r8*rxt(k,510)*y(k,176)
    1323   141111616 :          mat(k,753) = .5901905_r8*rxt(k,484)*y(k,118) + .114_r8*rxt(k,487)*y(k,122)
    1324   141111616 :          mat(k,703) = .0250245_r8*rxt(k,492)*y(k,118)
    1325             :          mat(k,780) = .5901905_r8*rxt(k,500)*y(k,118) + .1278005_r8*rxt(k,503) &
    1326   141111616 :                       *y(k,122)
    1327             :          mat(k,1725) = .1254005_r8*rxt(k,486)*y(k,163) + .0536005_r8*rxt(k,491) &
    1328             :                       *y(k,165) + .0623005_r8*rxt(k,494)*y(k,180) &
    1329             :                       + .0166005_r8*rxt(k,498)*y(k,181) + .130_r8*rxt(k,502)*y(k,187) &
    1330   141111616 :                       + .238_r8*rxt(k,508)*y(k,197) + .1185005_r8*rxt(k,511)*y(k,200)
    1331             :          mat(k,1970) = .5901905_r8*rxt(k,484)*y(k,4) + .0250245_r8*rxt(k,492)*y(k,93) &
    1332   141111616 :                       + .5901905_r8*rxt(k,500)*y(k,105)
    1333   141111616 :          mat(k,1815) = .114_r8*rxt(k,487)*y(k,4) + .1278005_r8*rxt(k,503)*y(k,105)
    1334   141111616 :          mat(k,11) = .0128005_r8*rxt(k,505)*y(k,190)
    1335   141111616 :          mat(k,17) = .1254005_r8*rxt(k,486)*y(k,116) + .114_r8*rxt(k,485)*y(k,176)
    1336   141111616 :          mat(k,23) = .0536005_r8*rxt(k,491)*y(k,116) + .1621005_r8*rxt(k,490)*y(k,176)
    1337             :          mat(k,1593) = .114_r8*rxt(k,485)*y(k,163) + .1621005_r8*rxt(k,490)*y(k,165) &
    1338             :                       + .0474005_r8*rxt(k,493)*y(k,180) + .0113005_r8*rxt(k,497) &
    1339             :                       *y(k,181) + .1278005_r8*rxt(k,501)*y(k,187) &
    1340             :                       + .0738005_r8*rxt(k,507)*y(k,197) + .1598005_r8*rxt(k,510) &
    1341   141111616 :                       *y(k,200)
    1342   141111616 :          mat(k,29) = .0623005_r8*rxt(k,494)*y(k,116) + .0474005_r8*rxt(k,493)*y(k,176)
    1343   141111616 :          mat(k,35) = .0166005_r8*rxt(k,498)*y(k,116) + .0113005_r8*rxt(k,497)*y(k,176)
    1344   141111616 :          mat(k,43) = .130_r8*rxt(k,502)*y(k,116) + .1278005_r8*rxt(k,501)*y(k,176)
    1345   141111616 :          mat(k,1362) = .0128005_r8*rxt(k,505)*y(k,145)
    1346   141111616 :          mat(k,49) = .238_r8*rxt(k,508)*y(k,116) + .0738005_r8*rxt(k,507)*y(k,176)
    1347   141111616 :          mat(k,55) = .1185005_r8*rxt(k,511)*y(k,116) + .1598005_r8*rxt(k,510)*y(k,176)
    1348   141111616 :          mat(k,12) = -(rxt(k,505)*y(k,190))
    1349   141111616 :          mat(k,1363) = -rxt(k,505)*y(k,145)
    1350   141111616 :          mat(k,114) = .100_r8*rxt(k,419)*y(k,190)
    1351   141111616 :          mat(k,132) = .230_r8*rxt(k,421)*y(k,190)
    1352   141111616 :          mat(k,1384) = .100_r8*rxt(k,419)*y(k,153) + .230_r8*rxt(k,421)*y(k,155)
    1353   141111616 :          mat(k,482) = -(rxt(k,443)*y(k,190))
    1354   141111616 :          mat(k,1436) = -rxt(k,443)*y(k,147)
    1355   141111616 :          mat(k,1631) = rxt(k,441)*y(k,194)
    1356   141111616 :          mat(k,954) = rxt(k,441)*y(k,176)
    1357   141111616 :          mat(k,506) = -(rxt(k,444)*y(k,190))
    1358   141111616 :          mat(k,1439) = -rxt(k,444)*y(k,148)
    1359   141111616 :          mat(k,1753) = .200_r8*rxt(k,437)*y(k,188) + .200_r8*rxt(k,447)*y(k,195)
    1360   141111616 :          mat(k,1290) = .500_r8*rxt(k,435)*y(k,188)
    1361   141111616 :          mat(k,973) = .200_r8*rxt(k,437)*y(k,116) + .500_r8*rxt(k,435)*y(k,171)
    1362   141111616 :          mat(k,932) = .200_r8*rxt(k,447)*y(k,116)
    1363   141111616 :          mat(k,366) = -(rxt(k,448)*y(k,190))
    1364   141111616 :          mat(k,1421) = -rxt(k,448)*y(k,149)
    1365   141111616 :          mat(k,1623) = rxt(k,446)*y(k,195)
    1366   141111616 :          mat(k,931) = rxt(k,446)*y(k,176)
    1367   141111616 :          mat(k,855) = -(rxt(k,449)*y(k,118) + rxt(k,450)*y(k,190))
    1368   141111616 :          mat(k,1985) = -rxt(k,449)*y(k,150)
    1369   141111616 :          mat(k,1470) = -rxt(k,450)*y(k,150)
    1370   141111616 :          mat(k,762) = .330_r8*rxt(k,430)*y(k,122)
    1371   141111616 :          mat(k,789) = .330_r8*rxt(k,433)*y(k,122)
    1372   141111616 :          mat(k,1771) = .800_r8*rxt(k,437)*y(k,188) + .800_r8*rxt(k,447)*y(k,195)
    1373   141111616 :          mat(k,1985) = mat(k,1985) + rxt(k,438)*y(k,188)
    1374   141111616 :          mat(k,1833) = .330_r8*rxt(k,430)*y(k,4) + .330_r8*rxt(k,433)*y(k,105)
    1375   141111616 :          mat(k,507) = rxt(k,444)*y(k,190)
    1376   141111616 :          mat(k,1297) = .500_r8*rxt(k,435)*y(k,188) + rxt(k,445)*y(k,195)
    1377             :          mat(k,975) = .800_r8*rxt(k,437)*y(k,116) + rxt(k,438)*y(k,118) &
    1378   141111616 :                       + .500_r8*rxt(k,435)*y(k,171)
    1379   141111616 :          mat(k,1470) = mat(k,1470) + rxt(k,444)*y(k,148)
    1380   141111616 :          mat(k,935) = .800_r8*rxt(k,447)*y(k,116) + rxt(k,445)*y(k,171)
    1381   141111616 :          mat(k,885) = -(rxt(k,451)*y(k,190))
    1382   141111616 :          mat(k,1473) = -rxt(k,451)*y(k,151)
    1383   141111616 :          mat(k,763) = .300_r8*rxt(k,430)*y(k,122)
    1384   141111616 :          mat(k,790) = .300_r8*rxt(k,433)*y(k,122)
    1385   141111616 :          mat(k,1774) = .900_r8*rxt(k,442)*y(k,194)
    1386   141111616 :          mat(k,1835) = .300_r8*rxt(k,430)*y(k,4) + .300_r8*rxt(k,433)*y(k,105)
    1387   141111616 :          mat(k,1300) = rxt(k,440)*y(k,194)
    1388   141111616 :          mat(k,958) = .900_r8*rxt(k,442)*y(k,116) + rxt(k,440)*y(k,171)
    1389   141111616 :          mat(k,493) = -(rxt(k,418)*y(k,190))
    1390   141111616 :          mat(k,1437) = -rxt(k,418)*y(k,152)
    1391   141111616 :          mat(k,1632) = rxt(k,416)*y(k,196)
    1392   141111616 :          mat(k,582) = rxt(k,416)*y(k,176)
    1393   141111616 :          mat(k,112) = -(rxt(k,419)*y(k,190))
    1394   141111616 :          mat(k,1382) = -rxt(k,419)*y(k,153)
    1395   141111616 :          mat(k,128) = -(rxt(k,385)*y(k,190))
    1396   141111616 :          mat(k,1385) = -rxt(k,385)*y(k,154)
    1397   141111616 :          mat(k,1602) = rxt(k,382)*y(k,198)
    1398   141111616 :          mat(k,1005) = rxt(k,382)*y(k,176)
    1399   141111616 :          mat(k,133) = -(rxt(k,421)*y(k,190))
    1400   141111616 :          mat(k,1386) = -rxt(k,421)*y(k,155)
    1401   141111616 :          mat(k,554) = -(rxt(k,424)*y(k,190))
    1402   141111616 :          mat(k,1444) = -rxt(k,424)*y(k,156)
    1403   141111616 :          mat(k,1637) = rxt(k,422)*y(k,199)
    1404   141111616 :          mat(k,607) = rxt(k,422)*y(k,176)
    1405   141111616 :          mat(k,141) = -(rxt(k,427)*y(k,190))
    1406   141111616 :          mat(k,1387) = -rxt(k,427)*y(k,157)
    1407   141111616 :          mat(k,134) = .150_r8*rxt(k,421)*y(k,190)
    1408   141111616 :          mat(k,1387) = mat(k,1387) + .150_r8*rxt(k,421)*y(k,155)
    1409   141111616 :          mat(k,325) = -(rxt(k,428)*y(k,190))
    1410   141111616 :          mat(k,1415) = -rxt(k,428)*y(k,158)
    1411   141111616 :          mat(k,1617) = rxt(k,425)*y(k,201)
    1412   141111616 :          mat(k,382) = rxt(k,425)*y(k,176)
    1413             :          mat(k,408) = -(rxt(k,386)*y(k,176) + rxt(k,387)*y(k,116) + rxt(k,415) &
    1414   141111616 :                       *y(k,117))
    1415   141111616 :          mat(k,1627) = -rxt(k,386)*y(k,161)
    1416   141111616 :          mat(k,1748) = -rxt(k,387)*y(k,161)
    1417   141111616 :          mat(k,1877) = -rxt(k,415)*y(k,161)
    1418   141111616 :          mat(k,158) = rxt(k,392)*y(k,190)
    1419   141111616 :          mat(k,1427) = rxt(k,392)*y(k,20)
    1420   141111616 :          mat(k,808) = -(rxt(k,347)*y(k,176) + (rxt(k,348) + rxt(k,349)) * y(k,116))
    1421   141111616 :          mat(k,1654) = -rxt(k,347)*y(k,162)
    1422   141111616 :          mat(k,1769) = -(rxt(k,348) + rxt(k,349)) * y(k,162)
    1423   141111616 :          mat(k,524) = rxt(k,350)*y(k,190)
    1424   141111616 :          mat(k,155) = rxt(k,351)*y(k,190)
    1425   141111616 :          mat(k,1466) = rxt(k,350)*y(k,2) + rxt(k,351)*y(k,13)
    1426   141111616 :          mat(k,18) = -(rxt(k,485)*y(k,176) + rxt(k,486)*y(k,116))
    1427   141111616 :          mat(k,1594) = -rxt(k,485)*y(k,163)
    1428   141111616 :          mat(k,1726) = -rxt(k,486)*y(k,163)
    1429   141111616 :          mat(k,754) = rxt(k,488)*y(k,190)
    1430   141111616 :          mat(k,1364) = rxt(k,488)*y(k,4)
    1431   141111616 :          mat(k,375) = -(rxt(k,389)*y(k,176) + rxt(k,390)*y(k,116))
    1432   141111616 :          mat(k,1624) = -rxt(k,389)*y(k,164)
    1433   141111616 :          mat(k,1745) = -rxt(k,390)*y(k,164)
    1434   141111616 :          mat(k,91) = .350_r8*rxt(k,388)*y(k,190)
    1435   141111616 :          mat(k,315) = rxt(k,391)*y(k,190)
    1436   141111616 :          mat(k,1422) = .350_r8*rxt(k,388)*y(k,5) + rxt(k,391)*y(k,6)
    1437   141111616 :          mat(k,24) = -(rxt(k,490)*y(k,176) + rxt(k,491)*y(k,116))
    1438   141111616 :          mat(k,1595) = -rxt(k,490)*y(k,165)
    1439   141111616 :          mat(k,1727) = -rxt(k,491)*y(k,165)
    1440   141111616 :          mat(k,87) = rxt(k,489)*y(k,190)
    1441   141111616 :          mat(k,1365) = rxt(k,489)*y(k,5)
    1442   141111616 :          mat(k,333) = -(rxt(k,393)*y(k,176) + rxt(k,395)*y(k,116))
    1443   141111616 :          mat(k,1618) = -rxt(k,393)*y(k,166)
    1444   141111616 :          mat(k,1740) = -rxt(k,395)*y(k,166)
    1445   141111616 :          mat(k,240) = rxt(k,394)*y(k,190)
    1446   141111616 :          mat(k,115) = .070_r8*rxt(k,419)*y(k,190)
    1447   141111616 :          mat(k,135) = .060_r8*rxt(k,421)*y(k,190)
    1448             :          mat(k,1416) = rxt(k,394)*y(k,21) + .070_r8*rxt(k,419)*y(k,153) &
    1449   141111616 :                       + .060_r8*rxt(k,421)*y(k,155)
    1450             :          mat(k,686) = -(4._r8*rxt(k,270)*y(k,167) + rxt(k,271)*y(k,171) + rxt(k,272) &
    1451   141111616 :                       *y(k,176) + rxt(k,273)*y(k,116))
    1452   141111616 :          mat(k,1293) = -rxt(k,271)*y(k,167)
    1453   141111616 :          mat(k,1649) = -rxt(k,272)*y(k,167)
    1454   141111616 :          mat(k,1765) = -rxt(k,273)*y(k,167)
    1455   141111616 :          mat(k,214) = .500_r8*rxt(k,275)*y(k,190)
    1456   141111616 :          mat(k,196) = rxt(k,276)*y(k,54) + rxt(k,277)*y(k,190)
    1457   141111616 :          mat(k,1943) = rxt(k,276)*y(k,26)
    1458   145521354 :          mat(k,1457) = .500_r8*rxt(k,275)*y(k,25) + rxt(k,277)*y(k,26)
    1459             :       end do
    1460     4409738 :       end subroutine nlnmat06
    1461     4409738 :       subroutine nlnmat07( avec_len, mat, y, rxt )
    1462             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    1463             :       implicit none
    1464             : !----------------------------------------------
    1465             : ! ... dummy arguments
    1466             : !----------------------------------------------
    1467             :       integer, intent(in) :: avec_len
    1468             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    1469             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    1470             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    1471             : !----------------------------------------------
    1472             : ! ... local variables
    1473             : !----------------------------------------------
    1474             :       integer :: k
    1475             : !----------------------------------------------
    1476             : ! ... complete matrix entries implicit species
    1477             : !----------------------------------------------
    1478   145521354 :       do k = 1,avec_len
    1479   141111616 :          mat(k,661) = -(rxt(k,299)*y(k,171) + rxt(k,300)*y(k,176) + rxt(k,301) &
    1480   141111616 :                       *y(k,116))
    1481   141111616 :          mat(k,1292) = -rxt(k,299)*y(k,168)
    1482   141111616 :          mat(k,1646) = -rxt(k,300)*y(k,168)
    1483   141111616 :          mat(k,1763) = -rxt(k,301)*y(k,168)
    1484   141111616 :          mat(k,308) = rxt(k,302)*y(k,190)
    1485   141111616 :          mat(k,67) = rxt(k,303)*y(k,190)
    1486   141111616 :          mat(k,1454) = rxt(k,302)*y(k,28) + rxt(k,303)*y(k,29)
    1487   141111616 :          mat(k,514) = -(rxt(k,396)*y(k,176) + rxt(k,397)*y(k,116))
    1488   141111616 :          mat(k,1634) = -rxt(k,396)*y(k,169)
    1489   141111616 :          mat(k,1754) = -rxt(k,397)*y(k,169)
    1490   141111616 :          mat(k,172) = rxt(k,398)*y(k,190)
    1491   141111616 :          mat(k,1754) = mat(k,1754) + rxt(k,387)*y(k,161)
    1492   141111616 :          mat(k,1822) = rxt(k,413)*y(k,129)
    1493   141111616 :          mat(k,363) = rxt(k,413)*y(k,122)
    1494   141111616 :          mat(k,409) = rxt(k,387)*y(k,116) + .400_r8*rxt(k,386)*y(k,176)
    1495   141111616 :          mat(k,1634) = mat(k,1634) + .400_r8*rxt(k,386)*y(k,161)
    1496   141111616 :          mat(k,1440) = rxt(k,398)*y(k,30)
    1497             :          mat(k,1233) = -(4._r8*rxt(k,281)*y(k,170) + rxt(k,282)*y(k,171) + rxt(k,283) &
    1498             :                       *y(k,176) + rxt(k,284)*y(k,116) + rxt(k,295)*y(k,117) + rxt(k,322) &
    1499             :                       *y(k,182) + rxt(k,355)*y(k,178) + rxt(k,360)*y(k,179) + rxt(k,369) &
    1500   141111616 :                       *y(k,96) + rxt(k,380)*y(k,198))
    1501   141111616 :          mat(k,1317) = -rxt(k,282)*y(k,170)
    1502   141111616 :          mat(k,1676) = -rxt(k,283)*y(k,170)
    1503   141111616 :          mat(k,1792) = -rxt(k,284)*y(k,170)
    1504   141111616 :          mat(k,1893) = -rxt(k,295)*y(k,170)
    1505   141111616 :          mat(k,1159) = -rxt(k,322)*y(k,170)
    1506   141111616 :          mat(k,1185) = -rxt(k,355)*y(k,170)
    1507   141111616 :          mat(k,1117) = -rxt(k,360)*y(k,170)
    1508   141111616 :          mat(k,1048) = -rxt(k,369)*y(k,170)
    1509   141111616 :          mat(k,1013) = -rxt(k,380)*y(k,170)
    1510   141111616 :          mat(k,769) = .060_r8*rxt(k,430)*y(k,122)
    1511   141111616 :          mat(k,896) = rxt(k,278)*y(k,118) + rxt(k,279)*y(k,190)
    1512   141111616 :          mat(k,1073) = rxt(k,304)*y(k,118) + rxt(k,305)*y(k,190)
    1513   141111616 :          mat(k,402) = .500_r8*rxt(k,286)*y(k,190)
    1514   141111616 :          mat(k,714) = .080_r8*rxt(k,375)*y(k,122)
    1515   141111616 :          mat(k,1064) = .100_r8*rxt(k,328)*y(k,122)
    1516   141111616 :          mat(k,796) = .060_r8*rxt(k,433)*y(k,122)
    1517   141111616 :          mat(k,1137) = .280_r8*rxt(k,342)*y(k,122)
    1518             :          mat(k,1792) = mat(k,1792) + .530_r8*rxt(k,326)*y(k,182) + rxt(k,335)*y(k,184) &
    1519   141111616 :                       + rxt(k,338)*y(k,186) + rxt(k,313)*y(k,193)
    1520             :          mat(k,2007) = rxt(k,278)*y(k,43) + rxt(k,304)*y(k,47) + .530_r8*rxt(k,325) &
    1521   141111616 :                       *y(k,182) + rxt(k,336)*y(k,184)
    1522             :          mat(k,1852) = .060_r8*rxt(k,430)*y(k,4) + .080_r8*rxt(k,375)*y(k,93) &
    1523             :                       + .100_r8*rxt(k,328)*y(k,100) + .060_r8*rxt(k,433)*y(k,105) &
    1524   141111616 :                       + .280_r8*rxt(k,342)*y(k,106)
    1525   141111616 :          mat(k,888) = .650_r8*rxt(k,451)*y(k,190)
    1526   141111616 :          mat(k,1233) = mat(k,1233) + .530_r8*rxt(k,322)*y(k,182)
    1527             :          mat(k,1317) = mat(k,1317) + .260_r8*rxt(k,323)*y(k,182) + rxt(k,332)*y(k,184) &
    1528   141111616 :                       + .300_r8*rxt(k,311)*y(k,193)
    1529             :          mat(k,1676) = mat(k,1676) + .450_r8*rxt(k,333)*y(k,184) + .200_r8*rxt(k,337) &
    1530   141111616 :                       *y(k,186) + .150_r8*rxt(k,312)*y(k,193)
    1531             :          mat(k,1159) = mat(k,1159) + .530_r8*rxt(k,326)*y(k,116) + .530_r8*rxt(k,325) &
    1532             :                       *y(k,118) + .530_r8*rxt(k,322)*y(k,170) + .260_r8*rxt(k,323) &
    1533   141111616 :                       *y(k,171)
    1534             :          mat(k,1203) = rxt(k,335)*y(k,116) + rxt(k,336)*y(k,118) + rxt(k,332)*y(k,171) &
    1535   141111616 :                       + .450_r8*rxt(k,333)*y(k,176) + 4.000_r8*rxt(k,334)*y(k,184)
    1536   141111616 :          mat(k,545) = rxt(k,338)*y(k,116) + .200_r8*rxt(k,337)*y(k,176)
    1537             :          mat(k,1493) = rxt(k,279)*y(k,43) + rxt(k,305)*y(k,47) + .500_r8*rxt(k,286) &
    1538   141111616 :                       *y(k,49) + .650_r8*rxt(k,451)*y(k,151)
    1539             :          mat(k,997) = rxt(k,313)*y(k,116) + .300_r8*rxt(k,311)*y(k,171) &
    1540   141111616 :                       + .150_r8*rxt(k,312)*y(k,176)
    1541             :          mat(k,1320) = -(rxt(k,171)*y(k,57) + (4._r8*rxt(k,248) + 4._r8*rxt(k,249) &
    1542             :                       ) * y(k,171) + rxt(k,250)*y(k,176) + rxt(k,251)*y(k,116) &
    1543             :                       + rxt(k,271)*y(k,167) + rxt(k,282)*y(k,170) + rxt(k,299) &
    1544             :                       *y(k,168) + rxt(k,311)*y(k,193) + rxt(k,323)*y(k,182) + rxt(k,332) &
    1545             :                       *y(k,184) + rxt(k,356)*y(k,178) + rxt(k,361)*y(k,179) + rxt(k,370) &
    1546             :                       *y(k,96) + rxt(k,381)*y(k,198) + rxt(k,435)*y(k,188) + rxt(k,440) &
    1547   141111616 :                       *y(k,194) + rxt(k,445)*y(k,195))
    1548   141111616 :          mat(k,1706) = -rxt(k,171)*y(k,171)
    1549   141111616 :          mat(k,1680) = -rxt(k,250)*y(k,171)
    1550   141111616 :          mat(k,1796) = -rxt(k,251)*y(k,171)
    1551   141111616 :          mat(k,688) = -rxt(k,271)*y(k,171)
    1552   141111616 :          mat(k,1236) = -rxt(k,282)*y(k,171)
    1553   141111616 :          mat(k,664) = -rxt(k,299)*y(k,171)
    1554   141111616 :          mat(k,998) = -rxt(k,311)*y(k,171)
    1555   141111616 :          mat(k,1162) = -rxt(k,323)*y(k,171)
    1556   141111616 :          mat(k,1206) = -rxt(k,332)*y(k,171)
    1557   141111616 :          mat(k,1188) = -rxt(k,356)*y(k,171)
    1558   141111616 :          mat(k,1120) = -rxt(k,361)*y(k,171)
    1559   141111616 :          mat(k,1051) = -rxt(k,370)*y(k,171)
    1560   141111616 :          mat(k,1015) = -rxt(k,381)*y(k,171)
    1561   141111616 :          mat(k,984) = -rxt(k,435)*y(k,171)
    1562   141111616 :          mat(k,965) = -rxt(k,440)*y(k,171)
    1563   141111616 :          mat(k,945) = -rxt(k,445)*y(k,171)
    1564   141111616 :          mat(k,846) = .280_r8*rxt(k,298)*y(k,122)
    1565   141111616 :          mat(k,431) = rxt(k,285)*y(k,190)
    1566   141111616 :          mat(k,297) = .700_r8*rxt(k,253)*y(k,190)
    1567   141111616 :          mat(k,715) = .050_r8*rxt(k,375)*y(k,122)
    1568   141111616 :          mat(k,1051) = mat(k,1051) + rxt(k,369)*y(k,170)
    1569             :          mat(k,1796) = mat(k,1796) + rxt(k,284)*y(k,170) + .830_r8*rxt(k,401)*y(k,172) &
    1570   141111616 :                       + .170_r8*rxt(k,407)*y(k,185)
    1571   141111616 :          mat(k,1856) = .280_r8*rxt(k,298)*y(k,27) + .050_r8*rxt(k,375)*y(k,93)
    1572             :          mat(k,1236) = mat(k,1236) + rxt(k,369)*y(k,96) + rxt(k,284)*y(k,116) &
    1573             :                       + 4.000_r8*rxt(k,281)*y(k,170) + .900_r8*rxt(k,282)*y(k,171) &
    1574             :                       + .450_r8*rxt(k,283)*y(k,176) + rxt(k,355)*y(k,178) + rxt(k,360) &
    1575             :                       *y(k,179) + rxt(k,322)*y(k,182) + rxt(k,331)*y(k,184) &
    1576   141111616 :                       + rxt(k,380)*y(k,198)
    1577   141111616 :          mat(k,1320) = mat(k,1320) + .900_r8*rxt(k,282)*y(k,170)
    1578   141111616 :          mat(k,623) = .830_r8*rxt(k,401)*y(k,116) + .330_r8*rxt(k,400)*y(k,176)
    1579             :          mat(k,1680) = mat(k,1680) + .450_r8*rxt(k,283)*y(k,170) + .330_r8*rxt(k,400) &
    1580   141111616 :                       *y(k,172) + .070_r8*rxt(k,406)*y(k,185)
    1581   141111616 :          mat(k,1188) = mat(k,1188) + rxt(k,355)*y(k,170)
    1582   141111616 :          mat(k,1120) = mat(k,1120) + rxt(k,360)*y(k,170)
    1583   141111616 :          mat(k,1162) = mat(k,1162) + rxt(k,322)*y(k,170)
    1584   141111616 :          mat(k,1206) = mat(k,1206) + rxt(k,331)*y(k,170)
    1585   141111616 :          mat(k,744) = .170_r8*rxt(k,407)*y(k,116) + .070_r8*rxt(k,406)*y(k,176)
    1586   141111616 :          mat(k,1497) = rxt(k,285)*y(k,48) + .700_r8*rxt(k,253)*y(k,51)
    1587   141111616 :          mat(k,1015) = mat(k,1015) + rxt(k,380)*y(k,170)
    1588             :          mat(k,620) = -(rxt(k,400)*y(k,176) + rxt(k,401)*y(k,116) + rxt(k,402) &
    1589   141111616 :                       *y(k,117))
    1590   141111616 :          mat(k,1643) = -rxt(k,400)*y(k,172)
    1591   141111616 :          mat(k,1761) = -rxt(k,401)*y(k,172)
    1592   141111616 :          mat(k,1882) = -rxt(k,402)*y(k,172)
    1593   141111616 :          mat(k,450) = -((rxt(k,319) + rxt(k,320)) * y(k,116))
    1594   141111616 :          mat(k,1750) = -(rxt(k,319) + rxt(k,320)) * y(k,173)
    1595   141111616 :          mat(k,258) = rxt(k,318)*y(k,190)
    1596   141111616 :          mat(k,1432) = rxt(k,318)*y(k,14)
    1597   141111616 :          mat(k,1735) = .750_r8*rxt(k,288)*y(k,175)
    1598   141111616 :          mat(k,566) = .750_r8*rxt(k,288)*y(k,116)
    1599   141111616 :          mat(k,567) = -(rxt(k,287)*y(k,176) + rxt(k,288)*y(k,116))
    1600   141111616 :          mat(k,1638) = -rxt(k,287)*y(k,175)
    1601   141111616 :          mat(k,1757) = -rxt(k,288)*y(k,175)
    1602   141111616 :          mat(k,443) = rxt(k,294)*y(k,190)
    1603   141111616 :          mat(k,1445) = rxt(k,294)*y(k,23)
    1604             :          mat(k,1686) = -((rxt(k,124) + rxt(k,125) + rxt(k,126)) * y(k,71) + rxt(k,128) &
    1605             :                       *y(k,121) + rxt(k,129)*y(k,122) + rxt(k,133)*y(k,190) &
    1606             :                       + 4._r8*rxt(k,138)*y(k,176) + rxt(k,148)*y(k,118) + rxt(k,153) &
    1607             :                       *y(k,116) + rxt(k,158)*y(k,117) + (rxt(k,168) + rxt(k,169) &
    1608             :                       ) * y(k,54) + rxt(k,175)*y(k,57) + rxt(k,201)*y(k,15) + rxt(k,207) &
    1609             :                       *y(k,17) + rxt(k,244)*y(k,40) + rxt(k,250)*y(k,171) + rxt(k,258) &
    1610             :                       *y(k,177) + rxt(k,272)*y(k,167) + rxt(k,283)*y(k,170) + rxt(k,287) &
    1611             :                       *y(k,175) + rxt(k,300)*y(k,168) + rxt(k,308)*y(k,192) + rxt(k,312) &
    1612             :                       *y(k,193) + rxt(k,324)*y(k,182) + rxt(k,333)*y(k,184) + rxt(k,337) &
    1613             :                       *y(k,186) + rxt(k,347)*y(k,162) + rxt(k,357)*y(k,178) + rxt(k,362) &
    1614             :                       *y(k,179) + rxt(k,371)*y(k,96) + rxt(k,382)*y(k,198) + rxt(k,386) &
    1615             :                       *y(k,161) + rxt(k,389)*y(k,164) + rxt(k,393)*y(k,166) + rxt(k,396) &
    1616             :                       *y(k,169) + rxt(k,400)*y(k,172) + rxt(k,403)*y(k,183) + rxt(k,406) &
    1617             :                       *y(k,185) + rxt(k,409)*y(k,191) + rxt(k,416)*y(k,196) + rxt(k,422) &
    1618             :                       *y(k,199) + rxt(k,425)*y(k,201) + rxt(k,436)*y(k,188) + rxt(k,441) &
    1619   141111616 :                       *y(k,194) + rxt(k,446)*y(k,195))
    1620   141111616 :          mat(k,1278) = -(rxt(k,124) + rxt(k,125) + rxt(k,126)) * y(k,176)
    1621   141111616 :          mat(k,1580) = -rxt(k,128)*y(k,176)
    1622   141111616 :          mat(k,1862) = -rxt(k,129)*y(k,176)
    1623   141111616 :          mat(k,1503) = -rxt(k,133)*y(k,176)
    1624   141111616 :          mat(k,2017) = -rxt(k,148)*y(k,176)
    1625   141111616 :          mat(k,1802) = -rxt(k,153)*y(k,176)
    1626   141111616 :          mat(k,1903) = -rxt(k,158)*y(k,176)
    1627   141111616 :          mat(k,1960) = -(rxt(k,168) + rxt(k,169)) * y(k,176)
    1628   141111616 :          mat(k,1712) = -rxt(k,175)*y(k,176)
    1629   141111616 :          mat(k,1254) = -rxt(k,201)*y(k,176)
    1630   141111616 :          mat(k,1527) = -rxt(k,207)*y(k,176)
    1631   141111616 :          mat(k,1550) = -rxt(k,244)*y(k,176)
    1632   141111616 :          mat(k,1325) = -rxt(k,250)*y(k,176)
    1633   141111616 :          mat(k,342) = -rxt(k,258)*y(k,176)
    1634   141111616 :          mat(k,691) = -rxt(k,272)*y(k,176)
    1635   141111616 :          mat(k,1239) = -rxt(k,283)*y(k,176)
    1636   141111616 :          mat(k,571) = -rxt(k,287)*y(k,176)
    1637   141111616 :          mat(k,667) = -rxt(k,300)*y(k,176)
    1638   141111616 :          mat(k,634) = -rxt(k,308)*y(k,176)
    1639   141111616 :          mat(k,1001) = -rxt(k,312)*y(k,176)
    1640   141111616 :          mat(k,1165) = -rxt(k,324)*y(k,176)
    1641   141111616 :          mat(k,1209) = -rxt(k,333)*y(k,176)
    1642   141111616 :          mat(k,547) = -rxt(k,337)*y(k,176)
    1643   141111616 :          mat(k,815) = -rxt(k,347)*y(k,176)
    1644   141111616 :          mat(k,1191) = -rxt(k,357)*y(k,176)
    1645   141111616 :          mat(k,1123) = -rxt(k,362)*y(k,176)
    1646   141111616 :          mat(k,1054) = -rxt(k,371)*y(k,176)
    1647   141111616 :          mat(k,1018) = -rxt(k,382)*y(k,176)
    1648   141111616 :          mat(k,411) = -rxt(k,386)*y(k,176)
    1649   141111616 :          mat(k,379) = -rxt(k,389)*y(k,176)
    1650   141111616 :          mat(k,336) = -rxt(k,393)*y(k,176)
    1651   141111616 :          mat(k,516) = -rxt(k,396)*y(k,176)
    1652   141111616 :          mat(k,625) = -rxt(k,400)*y(k,176)
    1653   141111616 :          mat(k,577) = -rxt(k,403)*y(k,176)
    1654   141111616 :          mat(k,746) = -rxt(k,406)*y(k,176)
    1655   141111616 :          mat(k,349) = -rxt(k,409)*y(k,176)
    1656   141111616 :          mat(k,592) = -rxt(k,416)*y(k,176)
    1657   141111616 :          mat(k,617) = -rxt(k,422)*y(k,176)
    1658   141111616 :          mat(k,387) = -rxt(k,425)*y(k,176)
    1659   141111616 :          mat(k,987) = -rxt(k,436)*y(k,176)
    1660   141111616 :          mat(k,968) = -rxt(k,441)*y(k,176)
    1661   141111616 :          mat(k,948) = -rxt(k,446)*y(k,176)
    1662   141111616 :          mat(k,772) = .570_r8*rxt(k,430)*y(k,122)
    1663   141111616 :          mat(k,93) = .650_r8*rxt(k,388)*y(k,190)
    1664   141111616 :          mat(k,1254) = mat(k,1254) + rxt(k,200)*y(k,40)
    1665   141111616 :          mat(k,1527) = mat(k,1527) + rxt(k,212)*y(k,190)
    1666   141111616 :          mat(k,206) = .350_r8*rxt(k,267)*y(k,190)
    1667   141111616 :          mat(k,448) = .130_r8*rxt(k,269)*y(k,122)
    1668   141111616 :          mat(k,169) = rxt(k,274)*y(k,190)
    1669   141111616 :          mat(k,849) = .280_r8*rxt(k,298)*y(k,122)
    1670             :          mat(k,1550) = mat(k,1550) + rxt(k,200)*y(k,15) + rxt(k,164)*y(k,54) &
    1671   141111616 :                       + rxt(k,245)*y(k,118) + rxt(k,246)*y(k,121)
    1672   141111616 :          mat(k,59) = rxt(k,280)*y(k,190)
    1673   141111616 :          mat(k,659) = rxt(k,252)*y(k,190)
    1674   141111616 :          mat(k,1960) = mat(k,1960) + rxt(k,164)*y(k,40) + rxt(k,167)*y(k,74)
    1675   141111616 :          mat(k,1712) = mat(k,1712) + rxt(k,171)*y(k,171) + rxt(k,182)*y(k,190)
    1676   141111616 :          mat(k,906) = rxt(k,255)*y(k,190)
    1677   141111616 :          mat(k,123) = .730_r8*rxt(k,399)*y(k,190)
    1678   141111616 :          mat(k,187) = .500_r8*rxt(k,466)*y(k,190)
    1679   141111616 :          mat(k,868) = rxt(k,291)*y(k,190)
    1680   141111616 :          mat(k,739) = rxt(k,292)*y(k,190)
    1681   141111616 :          mat(k,469) = rxt(k,167)*y(k,54) + rxt(k,123)*y(k,121) + rxt(k,132)*y(k,190)
    1682   141111616 :          mat(k,110) = rxt(k,256)*y(k,190)
    1683   141111616 :          mat(k,673) = rxt(k,257)*y(k,190)
    1684   141111616 :          mat(k,921) = rxt(k,321)*y(k,190)
    1685   141111616 :          mat(k,930) = rxt(k,306)*y(k,190)
    1686   141111616 :          mat(k,718) = .370_r8*rxt(k,375)*y(k,122)
    1687   141111616 :          mat(k,480) = .300_r8*rxt(k,366)*y(k,190)
    1688   141111616 :          mat(k,441) = rxt(k,367)*y(k,190)
    1689             :          mat(k,1054) = mat(k,1054) + rxt(k,372)*y(k,116) + rxt(k,373)*y(k,118) &
    1690   141111616 :                       + rxt(k,369)*y(k,170) + 1.200_r8*rxt(k,370)*y(k,171)
    1691   141111616 :          mat(k,275) = rxt(k,374)*y(k,190)
    1692   141111616 :          mat(k,1068) = .140_r8*rxt(k,328)*y(k,122)
    1693   141111616 :          mat(k,222) = .200_r8*rxt(k,330)*y(k,190)
    1694   141111616 :          mat(k,463) = .500_r8*rxt(k,341)*y(k,190)
    1695   141111616 :          mat(k,799) = .570_r8*rxt(k,433)*y(k,122)
    1696   141111616 :          mat(k,1143) = .280_r8*rxt(k,342)*y(k,122)
    1697   141111616 :          mat(k,288) = rxt(k,378)*y(k,190)
    1698   141111616 :          mat(k,881) = rxt(k,379)*y(k,190)
    1699             :          mat(k,1802) = mat(k,1802) + rxt(k,372)*y(k,96) + rxt(k,348)*y(k,162) &
    1700             :                       + rxt(k,390)*y(k,164) + rxt(k,395)*y(k,166) + rxt(k,273) &
    1701             :                       *y(k,167) + rxt(k,301)*y(k,168) + rxt(k,251)*y(k,171) &
    1702             :                       + .170_r8*rxt(k,401)*y(k,172) + rxt(k,319)*y(k,173) &
    1703             :                       + .250_r8*rxt(k,288)*y(k,175) + rxt(k,260)*y(k,177) &
    1704             :                       + .920_r8*rxt(k,358)*y(k,178) + .920_r8*rxt(k,364)*y(k,179) &
    1705             :                       + .470_r8*rxt(k,326)*y(k,182) + .400_r8*rxt(k,404)*y(k,183) &
    1706             :                       + .830_r8*rxt(k,407)*y(k,185) + rxt(k,410)*y(k,191) + rxt(k,309) &
    1707             :                       *y(k,192) + .900_r8*rxt(k,442)*y(k,194) + .800_r8*rxt(k,447) &
    1708             :                       *y(k,195) + rxt(k,417)*y(k,196) + rxt(k,383)*y(k,198) &
    1709   141111616 :                       + rxt(k,423)*y(k,199) + rxt(k,426)*y(k,201)
    1710             :          mat(k,2017) = mat(k,2017) + rxt(k,245)*y(k,40) + rxt(k,373)*y(k,96) &
    1711             :                       + rxt(k,359)*y(k,178) + rxt(k,365)*y(k,179) + .470_r8*rxt(k,325) &
    1712   141111616 :                       *y(k,182) + rxt(k,151)*y(k,190) + rxt(k,384)*y(k,198)
    1713   141111616 :          mat(k,1580) = mat(k,1580) + rxt(k,246)*y(k,40) + rxt(k,123)*y(k,74)
    1714             :          mat(k,1862) = mat(k,1862) + .570_r8*rxt(k,430)*y(k,4) + .130_r8*rxt(k,269) &
    1715             :                       *y(k,23) + .280_r8*rxt(k,298)*y(k,27) + .370_r8*rxt(k,375) &
    1716             :                       *y(k,93) + .140_r8*rxt(k,328)*y(k,100) + .570_r8*rxt(k,433) &
    1717   141111616 :                       *y(k,105) + .280_r8*rxt(k,342)*y(k,106) + rxt(k,135)*y(k,190)
    1718   141111616 :          mat(k,102) = .800_r8*rxt(k,411)*y(k,190)
    1719   141111616 :          mat(k,727) = rxt(k,467)*y(k,190)
    1720   141111616 :          mat(k,892) = .200_r8*rxt(k,451)*y(k,190)
    1721   141111616 :          mat(k,118) = .280_r8*rxt(k,419)*y(k,190)
    1722   141111616 :          mat(k,140) = .380_r8*rxt(k,421)*y(k,190)
    1723   141111616 :          mat(k,145) = .630_r8*rxt(k,427)*y(k,190)
    1724   141111616 :          mat(k,815) = mat(k,815) + rxt(k,348)*y(k,116)
    1725   141111616 :          mat(k,379) = mat(k,379) + rxt(k,390)*y(k,116)
    1726   141111616 :          mat(k,336) = mat(k,336) + rxt(k,395)*y(k,116)
    1727             :          mat(k,691) = mat(k,691) + rxt(k,273)*y(k,116) + 2.400_r8*rxt(k,270)*y(k,167) &
    1728   141111616 :                       + rxt(k,271)*y(k,171)
    1729   141111616 :          mat(k,667) = mat(k,667) + rxt(k,301)*y(k,116) + rxt(k,299)*y(k,171)
    1730             :          mat(k,1239) = mat(k,1239) + rxt(k,369)*y(k,96) + .900_r8*rxt(k,282)*y(k,171) &
    1731             :                       + rxt(k,355)*y(k,178) + rxt(k,360)*y(k,179) + .470_r8*rxt(k,322) &
    1732   141111616 :                       *y(k,182) + rxt(k,380)*y(k,198)
    1733             :          mat(k,1325) = mat(k,1325) + rxt(k,171)*y(k,57) + 1.200_r8*rxt(k,370)*y(k,96) &
    1734             :                       + rxt(k,251)*y(k,116) + rxt(k,271)*y(k,167) + rxt(k,299) &
    1735             :                       *y(k,168) + .900_r8*rxt(k,282)*y(k,170) + 4.000_r8*rxt(k,248) &
    1736             :                       *y(k,171) + rxt(k,356)*y(k,178) + rxt(k,361)*y(k,179) &
    1737             :                       + .730_r8*rxt(k,323)*y(k,182) + rxt(k,332)*y(k,184) &
    1738             :                       + .500_r8*rxt(k,435)*y(k,188) + .300_r8*rxt(k,311)*y(k,193) &
    1739             :                       + rxt(k,440)*y(k,194) + rxt(k,445)*y(k,195) + .800_r8*rxt(k,381) &
    1740   141111616 :                       *y(k,198)
    1741             :          mat(k,625) = mat(k,625) + .170_r8*rxt(k,401)*y(k,116) + .070_r8*rxt(k,400) &
    1742   141111616 :                       *y(k,176)
    1743   141111616 :          mat(k,455) = rxt(k,319)*y(k,116)
    1744   141111616 :          mat(k,571) = mat(k,571) + .250_r8*rxt(k,288)*y(k,116)
    1745             :          mat(k,1686) = mat(k,1686) + .070_r8*rxt(k,400)*y(k,172) + .160_r8*rxt(k,403) &
    1746   141111616 :                       *y(k,183) + .330_r8*rxt(k,406)*y(k,185)
    1747   141111616 :          mat(k,342) = mat(k,342) + rxt(k,260)*y(k,116)
    1748             :          mat(k,1191) = mat(k,1191) + .920_r8*rxt(k,358)*y(k,116) + rxt(k,359)*y(k,118) &
    1749   141111616 :                       + rxt(k,355)*y(k,170) + rxt(k,356)*y(k,171)
    1750             :          mat(k,1123) = mat(k,1123) + .920_r8*rxt(k,364)*y(k,116) + rxt(k,365)*y(k,118) &
    1751   141111616 :                       + rxt(k,360)*y(k,170) + rxt(k,361)*y(k,171)
    1752             :          mat(k,1165) = mat(k,1165) + .470_r8*rxt(k,326)*y(k,116) + .470_r8*rxt(k,325) &
    1753             :                       *y(k,118) + .470_r8*rxt(k,322)*y(k,170) + .730_r8*rxt(k,323) &
    1754   141111616 :                       *y(k,171)
    1755             :          mat(k,577) = mat(k,577) + .400_r8*rxt(k,404)*y(k,116) + .160_r8*rxt(k,403) &
    1756   141111616 :                       *y(k,176)
    1757   141111616 :          mat(k,1209) = mat(k,1209) + rxt(k,332)*y(k,171)
    1758             :          mat(k,746) = mat(k,746) + .830_r8*rxt(k,407)*y(k,116) + .330_r8*rxt(k,406) &
    1759   141111616 :                       *y(k,176)
    1760   141111616 :          mat(k,987) = mat(k,987) + .500_r8*rxt(k,435)*y(k,171)
    1761             :          mat(k,1503) = mat(k,1503) + .650_r8*rxt(k,388)*y(k,5) + rxt(k,212)*y(k,17) &
    1762             :                       + .350_r8*rxt(k,267)*y(k,22) + rxt(k,274)*y(k,24) + rxt(k,280) &
    1763             :                       *y(k,45) + rxt(k,252)*y(k,50) + rxt(k,182)*y(k,57) + rxt(k,255) &
    1764             :                       *y(k,60) + .730_r8*rxt(k,399)*y(k,64) + .500_r8*rxt(k,466) &
    1765             :                       *y(k,65) + rxt(k,291)*y(k,69) + rxt(k,292)*y(k,70) + rxt(k,132) &
    1766             :                       *y(k,74) + rxt(k,256)*y(k,81) + rxt(k,257)*y(k,82) + rxt(k,321) &
    1767             :                       *y(k,88) + rxt(k,306)*y(k,90) + .300_r8*rxt(k,366)*y(k,94) &
    1768             :                       + rxt(k,367)*y(k,95) + rxt(k,374)*y(k,97) + .200_r8*rxt(k,330) &
    1769             :                       *y(k,101) + .500_r8*rxt(k,341)*y(k,104) + rxt(k,378)*y(k,110) &
    1770             :                       + rxt(k,379)*y(k,111) + rxt(k,151)*y(k,118) + rxt(k,135) &
    1771             :                       *y(k,122) + .800_r8*rxt(k,411)*y(k,130) + rxt(k,467)*y(k,137) &
    1772             :                       + .200_r8*rxt(k,451)*y(k,151) + .280_r8*rxt(k,419)*y(k,153) &
    1773   141111616 :                       + .380_r8*rxt(k,421)*y(k,155) + .630_r8*rxt(k,427)*y(k,157)
    1774   141111616 :          mat(k,349) = mat(k,349) + rxt(k,410)*y(k,116)
    1775   141111616 :          mat(k,634) = mat(k,634) + rxt(k,309)*y(k,116)
    1776   141111616 :          mat(k,1001) = mat(k,1001) + .300_r8*rxt(k,311)*y(k,171)
    1777   141111616 :          mat(k,968) = mat(k,968) + .900_r8*rxt(k,442)*y(k,116) + rxt(k,440)*y(k,171)
    1778   141111616 :          mat(k,948) = mat(k,948) + .800_r8*rxt(k,447)*y(k,116) + rxt(k,445)*y(k,171)
    1779   141111616 :          mat(k,592) = mat(k,592) + rxt(k,417)*y(k,116)
    1780             :          mat(k,1018) = mat(k,1018) + rxt(k,383)*y(k,116) + rxt(k,384)*y(k,118) &
    1781   141111616 :                       + rxt(k,380)*y(k,170) + .800_r8*rxt(k,381)*y(k,171)
    1782   141111616 :          mat(k,617) = mat(k,617) + rxt(k,423)*y(k,116)
    1783   145521354 :          mat(k,387) = mat(k,387) + rxt(k,426)*y(k,116)
    1784             :       end do
    1785     4409738 :       end subroutine nlnmat07
    1786     4409738 :       subroutine nlnmat08( avec_len, mat, y, rxt )
    1787             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    1788             :       implicit none
    1789             : !----------------------------------------------
    1790             : ! ... dummy arguments
    1791             : !----------------------------------------------
    1792             :       integer, intent(in) :: avec_len
    1793             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    1794             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    1795             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    1796             : !----------------------------------------------
    1797             : ! ... local variables
    1798             : !----------------------------------------------
    1799             :       integer :: k
    1800             : !----------------------------------------------
    1801             : ! ... complete matrix entries implicit species
    1802             : !----------------------------------------------
    1803   145521354 :       do k = 1,avec_len
    1804   141111616 :          mat(k,339) = -(rxt(k,258)*y(k,176) + rxt(k,260)*y(k,116))
    1805   141111616 :          mat(k,1619) = -rxt(k,258)*y(k,177)
    1806   141111616 :          mat(k,1741) = -rxt(k,260)*y(k,177)
    1807   141111616 :          mat(k,1536) = rxt(k,244)*y(k,176)
    1808   141111616 :          mat(k,1619) = mat(k,1619) + rxt(k,244)*y(k,40)
    1809             :          mat(k,1183) = -(rxt(k,355)*y(k,170) + rxt(k,356)*y(k,171) + rxt(k,357) &
    1810   141111616 :                       *y(k,176) + rxt(k,358)*y(k,116) + rxt(k,359)*y(k,118))
    1811   141111616 :          mat(k,1231) = -rxt(k,355)*y(k,178)
    1812   141111616 :          mat(k,1315) = -rxt(k,356)*y(k,178)
    1813   141111616 :          mat(k,1674) = -rxt(k,357)*y(k,178)
    1814   141111616 :          mat(k,1790) = -rxt(k,358)*y(k,178)
    1815   141111616 :          mat(k,2005) = -rxt(k,359)*y(k,178)
    1816   141111616 :          mat(k,713) = .600_r8*rxt(k,376)*y(k,190)
    1817   141111616 :          mat(k,1491) = .600_r8*rxt(k,376)*y(k,93)
    1818             :          mat(k,1113) = -(rxt(k,360)*y(k,170) + rxt(k,361)*y(k,171) + rxt(k,362) &
    1819   141111616 :                       *y(k,176) + rxt(k,364)*y(k,116) + rxt(k,365)*y(k,118))
    1820   141111616 :          mat(k,1228) = -rxt(k,360)*y(k,179)
    1821   141111616 :          mat(k,1312) = -rxt(k,361)*y(k,179)
    1822   141111616 :          mat(k,1671) = -rxt(k,362)*y(k,179)
    1823   141111616 :          mat(k,1787) = -rxt(k,364)*y(k,179)
    1824   141111616 :          mat(k,2002) = -rxt(k,365)*y(k,179)
    1825   141111616 :          mat(k,711) = .400_r8*rxt(k,376)*y(k,190)
    1826   141111616 :          mat(k,1488) = .400_r8*rxt(k,376)*y(k,93)
    1827   141111616 :          mat(k,30) = -(rxt(k,493)*y(k,176) + rxt(k,494)*y(k,116))
    1828   141111616 :          mat(k,1596) = -rxt(k,493)*y(k,180)
    1829   141111616 :          mat(k,1728) = -rxt(k,494)*y(k,180)
    1830   141111616 :          mat(k,704) = rxt(k,496)*y(k,190)
    1831   141111616 :          mat(k,1366) = rxt(k,496)*y(k,93)
    1832   141111616 :          mat(k,36) = -(rxt(k,497)*y(k,176) + rxt(k,498)*y(k,116))
    1833   141111616 :          mat(k,1597) = -rxt(k,497)*y(k,181)
    1834   141111616 :          mat(k,1729) = -rxt(k,498)*y(k,181)
    1835   141111616 :          mat(k,37) = rxt(k,499)*y(k,190)
    1836   141111616 :          mat(k,1367) = rxt(k,499)*y(k,99)
    1837             :          mat(k,1157) = -(rxt(k,322)*y(k,170) + rxt(k,323)*y(k,171) + rxt(k,324) &
    1838             :                       *y(k,176) + rxt(k,325)*y(k,118) + (rxt(k,326) + rxt(k,327) &
    1839   141111616 :                       ) * y(k,116))
    1840   141111616 :          mat(k,1230) = -rxt(k,322)*y(k,182)
    1841   141111616 :          mat(k,1314) = -rxt(k,323)*y(k,182)
    1842   141111616 :          mat(k,1673) = -rxt(k,324)*y(k,182)
    1843   141111616 :          mat(k,2004) = -rxt(k,325)*y(k,182)
    1844   141111616 :          mat(k,1789) = -(rxt(k,326) + rxt(k,327)) * y(k,182)
    1845   141111616 :          mat(k,1062) = .500_r8*rxt(k,329)*y(k,190)
    1846   141111616 :          mat(k,219) = .200_r8*rxt(k,330)*y(k,190)
    1847   141111616 :          mat(k,1136) = rxt(k,343)*y(k,190)
    1848             :          mat(k,1490) = .500_r8*rxt(k,329)*y(k,100) + .200_r8*rxt(k,330)*y(k,101) &
    1849   141111616 :                       + rxt(k,343)*y(k,106)
    1850             :          mat(k,574) = -(rxt(k,403)*y(k,176) + rxt(k,404)*y(k,116) + rxt(k,405) &
    1851   141111616 :                       *y(k,117))
    1852   141111616 :          mat(k,1639) = -rxt(k,403)*y(k,183)
    1853   141111616 :          mat(k,1758) = -rxt(k,404)*y(k,183)
    1854   141111616 :          mat(k,1881) = -rxt(k,405)*y(k,183)
    1855             :          mat(k,1202) = -(rxt(k,331)*y(k,170) + rxt(k,332)*y(k,171) + rxt(k,333) &
    1856             :                       *y(k,176) + 4._r8*rxt(k,334)*y(k,184) + rxt(k,335)*y(k,116) &
    1857   141111616 :                       + rxt(k,336)*y(k,118) + rxt(k,344)*y(k,117))
    1858   141111616 :          mat(k,1232) = -rxt(k,331)*y(k,184)
    1859   141111616 :          mat(k,1316) = -rxt(k,332)*y(k,184)
    1860   141111616 :          mat(k,1675) = -rxt(k,333)*y(k,184)
    1861   141111616 :          mat(k,1791) = -rxt(k,335)*y(k,184)
    1862   141111616 :          mat(k,2006) = -rxt(k,336)*y(k,184)
    1863   141111616 :          mat(k,1892) = -rxt(k,344)*y(k,184)
    1864   141111616 :          mat(k,1063) = .500_r8*rxt(k,329)*y(k,190)
    1865   141111616 :          mat(k,220) = .500_r8*rxt(k,330)*y(k,190)
    1866   141111616 :          mat(k,1492) = .500_r8*rxt(k,329)*y(k,100) + .500_r8*rxt(k,330)*y(k,101)
    1867             :          mat(k,741) = -(rxt(k,406)*y(k,176) + rxt(k,407)*y(k,116) + rxt(k,408) &
    1868   141111616 :                       *y(k,117))
    1869   141111616 :          mat(k,1653) = -rxt(k,406)*y(k,185)
    1870   141111616 :          mat(k,1768) = -rxt(k,407)*y(k,185)
    1871   141111616 :          mat(k,1886) = -rxt(k,408)*y(k,185)
    1872   141111616 :          mat(k,543) = -(rxt(k,337)*y(k,176) + rxt(k,338)*y(k,116))
    1873   141111616 :          mat(k,1636) = -rxt(k,337)*y(k,186)
    1874   141111616 :          mat(k,1756) = -rxt(k,338)*y(k,186)
    1875   141111616 :          mat(k,397) = rxt(k,339)*y(k,190)
    1876   141111616 :          mat(k,224) = rxt(k,340)*y(k,190)
    1877   141111616 :          mat(k,1443) = rxt(k,339)*y(k,102) + rxt(k,340)*y(k,103)
    1878   141111616 :          mat(k,44) = -(rxt(k,501)*y(k,176) + rxt(k,502)*y(k,116))
    1879   141111616 :          mat(k,1598) = -rxt(k,501)*y(k,187)
    1880   141111616 :          mat(k,1730) = -rxt(k,502)*y(k,187)
    1881   141111616 :          mat(k,781) = rxt(k,504)*y(k,190)
    1882   141111616 :          mat(k,1369) = rxt(k,504)*y(k,105)
    1883             :          mat(k,979) = -(rxt(k,435)*y(k,171) + rxt(k,436)*y(k,176) + rxt(k,437) &
    1884   141111616 :                       *y(k,116) + rxt(k,438)*y(k,118))
    1885   141111616 :          mat(k,1306) = -rxt(k,435)*y(k,188)
    1886   141111616 :          mat(k,1664) = -rxt(k,436)*y(k,188)
    1887   141111616 :          mat(k,1781) = -rxt(k,437)*y(k,188)
    1888   141111616 :          mat(k,1995) = -rxt(k,438)*y(k,188)
    1889   141111616 :          mat(k,766) = rxt(k,429)*y(k,118)
    1890   141111616 :          mat(k,793) = rxt(k,432)*y(k,118)
    1891             :          mat(k,1995) = mat(k,1995) + rxt(k,429)*y(k,4) + rxt(k,432)*y(k,105) &
    1892   141111616 :                       + .500_r8*rxt(k,449)*y(k,150)
    1893   141111616 :          mat(k,291) = rxt(k,439)*y(k,190)
    1894   141111616 :          mat(k,859) = .500_r8*rxt(k,449)*y(k,118)
    1895   141111616 :          mat(k,1480) = rxt(k,439)*y(k,120)
    1896             :          mat(k,1344) = -(rxt(k,114)*y(k,72) + rxt(k,115)*y(k,202) + rxt(k,118) &
    1897             :                       *y(k,122) + (rxt(k,196) + rxt(k,197)) * y(k,80) + (rxt(k,219) &
    1898             :                       + rxt(k,220)) * y(k,76) + rxt(k,225)*y(k,62) + rxt(k,226) &
    1899   141111616 :                       *y(k,63) + rxt(k,264)*y(k,81))
    1900   141111616 :          mat(k,1028) = -rxt(k,114)*y(k,189)
    1901   141111616 :          mat(k,2037) = -rxt(k,115)*y(k,189)
    1902   141111616 :          mat(k,1857) = -rxt(k,118)*y(k,189)
    1903   141111616 :          mat(k,1921) = -(rxt(k,196) + rxt(k,197)) * y(k,189)
    1904   141111616 :          mat(k,697) = -(rxt(k,219) + rxt(k,220)) * y(k,189)
    1905   141111616 :          mat(k,72) = -rxt(k,225)*y(k,189)
    1906   141111616 :          mat(k,105) = -rxt(k,226)*y(k,189)
    1907   141111616 :          mat(k,108) = -rxt(k,264)*y(k,189)
    1908             :          mat(k,1499) = -(rxt(k,131)*y(k,72) + rxt(k,132)*y(k,74) + rxt(k,133)*y(k,176) &
    1909             :                       + rxt(k,134)*y(k,121) + rxt(k,135)*y(k,122) + (4._r8*rxt(k,136) &
    1910             :                       + 4._r8*rxt(k,137)) * y(k,190) + rxt(k,139)*y(k,85) + rxt(k,151) &
    1911             :                       *y(k,118) + rxt(k,152)*y(k,107) + rxt(k,160)*y(k,117) + rxt(k,161) &
    1912             :                       *y(k,84) + rxt(k,180)*y(k,58) + (rxt(k,182) + rxt(k,183) &
    1913             :                       ) * y(k,57) + rxt(k,185)*y(k,80) + rxt(k,188)*y(k,87) + rxt(k,212) &
    1914             :                       *y(k,17) + rxt(k,214)*y(k,76) + rxt(k,247)*y(k,40) + rxt(k,252) &
    1915             :                       *y(k,50) + rxt(k,253)*y(k,51) + (rxt(k,255) + rxt(k,265) &
    1916             :                       ) * y(k,60) + rxt(k,256)*y(k,81) + rxt(k,257)*y(k,82) + rxt(k,267) &
    1917             :                       *y(k,22) + rxt(k,274)*y(k,24) + rxt(k,275)*y(k,25) + rxt(k,277) &
    1918             :                       *y(k,26) + rxt(k,279)*y(k,43) + rxt(k,280)*y(k,45) + rxt(k,285) &
    1919             :                       *y(k,48) + rxt(k,286)*y(k,49) + rxt(k,291)*y(k,69) + rxt(k,292) &
    1920             :                       *y(k,70) + rxt(k,293)*y(k,127) + rxt(k,294)*y(k,23) + rxt(k,302) &
    1921             :                       *y(k,28) + rxt(k,303)*y(k,29) + rxt(k,305)*y(k,47) + rxt(k,306) &
    1922             :                       *y(k,90) + rxt(k,307)*y(k,119) + rxt(k,310)*y(k,132) + rxt(k,314) &
    1923             :                       *y(k,133) + rxt(k,315)*y(k,27) + rxt(k,316)*y(k,46) + rxt(k,318) &
    1924             :                       *y(k,14) + rxt(k,321)*y(k,88) + rxt(k,329)*y(k,100) + rxt(k,330) &
    1925             :                       *y(k,101) + rxt(k,339)*y(k,102) + rxt(k,340)*y(k,103) + rxt(k,341) &
    1926             :                       *y(k,104) + rxt(k,343)*y(k,106) + rxt(k,346)*y(k,1) + rxt(k,350) &
    1927             :                       *y(k,2) + rxt(k,351)*y(k,13) + rxt(k,352)*y(k,89) + rxt(k,353) &
    1928             :                       *y(k,91) + rxt(k,354)*y(k,92) + rxt(k,366)*y(k,94) + rxt(k,367) &
    1929             :                       *y(k,95) + rxt(k,374)*y(k,97) + rxt(k,376)*y(k,93) + rxt(k,377) &
    1930             :                       *y(k,98) + rxt(k,378)*y(k,110) + rxt(k,379)*y(k,111) + rxt(k,385) &
    1931             :                       *y(k,154) + rxt(k,388)*y(k,5) + rxt(k,391)*y(k,6) + rxt(k,392) &
    1932             :                       *y(k,20) + rxt(k,394)*y(k,21) + rxt(k,398)*y(k,30) + rxt(k,399) &
    1933             :                       *y(k,64) + rxt(k,411)*y(k,130) + rxt(k,414)*y(k,131) + rxt(k,418) &
    1934             :                       *y(k,152) + rxt(k,419)*y(k,153) + rxt(k,421)*y(k,155) + rxt(k,424) &
    1935             :                       *y(k,156) + rxt(k,427)*y(k,157) + rxt(k,428)*y(k,158) + rxt(k,431) &
    1936             :                       *y(k,4) + rxt(k,434)*y(k,105) + rxt(k,439)*y(k,120) + rxt(k,443) &
    1937             :                       *y(k,147) + rxt(k,444)*y(k,148) + rxt(k,448)*y(k,149) + rxt(k,450) &
    1938             :                       *y(k,150) + rxt(k,451)*y(k,151) + (rxt(k,453) + rxt(k,466) &
    1939             :                       ) * y(k,65) + rxt(k,455)*y(k,125) + rxt(k,460)*y(k,134) &
    1940             :                       + rxt(k,465)*y(k,136) + rxt(k,467)*y(k,137) + rxt(k,469) &
    1941   141111616 :                       *y(k,112))
    1942   141111616 :          mat(k,1029) = -rxt(k,131)*y(k,190)
    1943   141111616 :          mat(k,467) = -rxt(k,132)*y(k,190)
    1944   141111616 :          mat(k,1682) = -rxt(k,133)*y(k,190)
    1945   141111616 :          mat(k,1576) = -rxt(k,134)*y(k,190)
    1946   141111616 :          mat(k,1858) = -rxt(k,135)*y(k,190)
    1947   141111616 :          mat(k,266) = -rxt(k,139)*y(k,190)
    1948   141111616 :          mat(k,2013) = -rxt(k,151)*y(k,190)
    1949   141111616 :          mat(k,279) = -rxt(k,152)*y(k,190)
    1950   141111616 :          mat(k,1899) = -rxt(k,160)*y(k,190)
    1951   141111616 :          mat(k,1264) = -rxt(k,161)*y(k,190)
    1952   141111616 :          mat(k,828) = -rxt(k,180)*y(k,190)
    1953   141111616 :          mat(k,1708) = -(rxt(k,182) + rxt(k,183)) * y(k,190)
    1954   141111616 :          mat(k,1922) = -rxt(k,185)*y(k,190)
    1955   141111616 :          mat(k,677) = -rxt(k,188)*y(k,190)
    1956   141111616 :          mat(k,1523) = -rxt(k,212)*y(k,190)
    1957   141111616 :          mat(k,698) = -rxt(k,214)*y(k,190)
    1958   141111616 :          mat(k,1546) = -rxt(k,247)*y(k,190)
    1959   141111616 :          mat(k,657) = -rxt(k,252)*y(k,190)
    1960   141111616 :          mat(k,298) = -rxt(k,253)*y(k,190)
    1961   141111616 :          mat(k,905) = -(rxt(k,255) + rxt(k,265)) * y(k,190)
    1962   141111616 :          mat(k,109) = -rxt(k,256)*y(k,190)
    1963   141111616 :          mat(k,672) = -rxt(k,257)*y(k,190)
    1964   141111616 :          mat(k,205) = -rxt(k,267)*y(k,190)
    1965   141111616 :          mat(k,168) = -rxt(k,274)*y(k,190)
    1966   141111616 :          mat(k,216) = -rxt(k,275)*y(k,190)
    1967   141111616 :          mat(k,197) = -rxt(k,277)*y(k,190)
    1968   141111616 :          mat(k,899) = -rxt(k,279)*y(k,190)
    1969   141111616 :          mat(k,58) = -rxt(k,280)*y(k,190)
    1970   141111616 :          mat(k,432) = -rxt(k,285)*y(k,190)
    1971   141111616 :          mat(k,404) = -rxt(k,286)*y(k,190)
    1972   141111616 :          mat(k,866) = -rxt(k,291)*y(k,190)
    1973   141111616 :          mat(k,738) = -rxt(k,292)*y(k,190)
    1974   141111616 :          mat(k,358) = -rxt(k,293)*y(k,190)
    1975   141111616 :          mat(k,446) = -rxt(k,294)*y(k,190)
    1976   141111616 :          mat(k,310) = -rxt(k,302)*y(k,190)
    1977   141111616 :          mat(k,68) = -rxt(k,303)*y(k,190)
    1978   141111616 :          mat(k,1076) = -rxt(k,305)*y(k,190)
    1979   141111616 :          mat(k,928) = -rxt(k,306)*y(k,190)
    1980   141111616 :          mat(k,732) = -rxt(k,307)*y(k,190)
    1981   141111616 :          mat(k,426) = -rxt(k,310)*y(k,190)
    1982   141111616 :          mat(k,304) = -rxt(k,314)*y(k,190)
    1983   141111616 :          mat(k,847) = -rxt(k,315)*y(k,190)
    1984   141111616 :          mat(k,822) = -rxt(k,316)*y(k,190)
    1985   141111616 :          mat(k,261) = -rxt(k,318)*y(k,190)
    1986   141111616 :          mat(k,919) = -rxt(k,321)*y(k,190)
    1987   141111616 :          mat(k,1066) = -rxt(k,329)*y(k,190)
    1988   141111616 :          mat(k,221) = -rxt(k,330)*y(k,190)
    1989   141111616 :          mat(k,400) = -rxt(k,339)*y(k,190)
    1990   141111616 :          mat(k,227) = -rxt(k,340)*y(k,190)
    1991   141111616 :          mat(k,461) = -rxt(k,341)*y(k,190)
    1992   141111616 :          mat(k,1141) = -rxt(k,343)*y(k,190)
    1993   141111616 :          mat(k,538) = -rxt(k,346)*y(k,190)
    1994   141111616 :          mat(k,528) = -rxt(k,350)*y(k,190)
    1995   141111616 :          mat(k,156) = -rxt(k,351)*y(k,190)
    1996   141111616 :          mat(k,152) = -rxt(k,352)*y(k,190)
    1997   141111616 :          mat(k,212) = -rxt(k,353)*y(k,190)
    1998   141111616 :          mat(k,81) = -rxt(k,354)*y(k,190)
    1999   141111616 :          mat(k,478) = -rxt(k,366)*y(k,190)
    2000   141111616 :          mat(k,440) = -rxt(k,367)*y(k,190)
    2001   141111616 :          mat(k,274) = -rxt(k,374)*y(k,190)
    2002   141111616 :          mat(k,716) = -rxt(k,376)*y(k,190)
    2003   141111616 :          mat(k,600) = -rxt(k,377)*y(k,190)
    2004   141111616 :          mat(k,287) = -rxt(k,378)*y(k,190)
    2005   141111616 :          mat(k,879) = -rxt(k,379)*y(k,190)
    2006   141111616 :          mat(k,130) = -rxt(k,385)*y(k,190)
    2007   141111616 :          mat(k,92) = -rxt(k,388)*y(k,190)
    2008   141111616 :          mat(k,317) = -rxt(k,391)*y(k,190)
    2009   141111616 :          mat(k,159) = -rxt(k,392)*y(k,190)
    2010   141111616 :          mat(k,242) = -rxt(k,394)*y(k,190)
    2011   141111616 :          mat(k,173) = -rxt(k,398)*y(k,190)
    2012   141111616 :          mat(k,122) = -rxt(k,399)*y(k,190)
    2013   141111616 :          mat(k,101) = -rxt(k,411)*y(k,190)
    2014   141111616 :          mat(k,236) = -rxt(k,414)*y(k,190)
    2015   141111616 :          mat(k,500) = -rxt(k,418)*y(k,190)
    2016   141111616 :          mat(k,117) = -rxt(k,419)*y(k,190)
    2017   141111616 :          mat(k,139) = -rxt(k,421)*y(k,190)
    2018   141111616 :          mat(k,563) = -rxt(k,424)*y(k,190)
    2019   141111616 :          mat(k,144) = -rxt(k,427)*y(k,190)
    2020   141111616 :          mat(k,329) = -rxt(k,428)*y(k,190)
    2021   141111616 :          mat(k,770) = -rxt(k,431)*y(k,190)
    2022   141111616 :          mat(k,797) = -rxt(k,434)*y(k,190)
    2023   141111616 :          mat(k,293) = -rxt(k,439)*y(k,190)
    2024   141111616 :          mat(k,488) = -rxt(k,443)*y(k,190)
    2025   141111616 :          mat(k,509) = -rxt(k,444)*y(k,190)
    2026   141111616 :          mat(k,370) = -rxt(k,448)*y(k,190)
    2027   141111616 :          mat(k,860) = -rxt(k,450)*y(k,190)
    2028   141111616 :          mat(k,890) = -rxt(k,451)*y(k,190)
    2029   141111616 :          mat(k,186) = -(rxt(k,453) + rxt(k,466)) * y(k,190)
    2030   141111616 :          mat(k,255) = -rxt(k,455)*y(k,190)
    2031   141111616 :          mat(k,393) = -rxt(k,460)*y(k,190)
    2032   141111616 :          mat(k,1086) = -rxt(k,465)*y(k,190)
    2033   141111616 :          mat(k,725) = -rxt(k,467)*y(k,190)
    2034   141111616 :          mat(k,64) = -rxt(k,469)*y(k,190)
    2035   141111616 :          mat(k,770) = mat(k,770) + .630_r8*rxt(k,430)*y(k,122)
    2036   141111616 :          mat(k,205) = mat(k,205) + .650_r8*rxt(k,267)*y(k,190)
    2037   141111616 :          mat(k,446) = mat(k,446) + .130_r8*rxt(k,269)*y(k,122)
    2038   141111616 :          mat(k,216) = mat(k,216) + .500_r8*rxt(k,275)*y(k,190)
    2039   141111616 :          mat(k,847) = mat(k,847) + .360_r8*rxt(k,298)*y(k,122)
    2040   141111616 :          mat(k,1546) = mat(k,1546) + rxt(k,246)*y(k,121)
    2041   141111616 :          mat(k,298) = mat(k,298) + .300_r8*rxt(k,253)*y(k,190)
    2042   141111616 :          mat(k,1956) = rxt(k,169)*y(k,176)
    2043   141111616 :          mat(k,644) = rxt(k,223)*y(k,202)
    2044   141111616 :          mat(k,1276) = rxt(k,130)*y(k,122) + 2.000_r8*rxt(k,125)*y(k,176)
    2045   141111616 :          mat(k,1029) = mat(k,1029) + rxt(k,122)*y(k,121) + rxt(k,114)*y(k,189)
    2046   141111616 :          mat(k,467) = mat(k,467) + rxt(k,123)*y(k,121)
    2047   141111616 :          mat(k,698) = mat(k,698) + rxt(k,213)*y(k,121) + rxt(k,219)*y(k,189)
    2048   141111616 :          mat(k,1922) = mat(k,1922) + rxt(k,184)*y(k,121) + rxt(k,196)*y(k,189)
    2049   141111616 :          mat(k,109) = mat(k,109) + rxt(k,264)*y(k,189)
    2050   141111616 :          mat(k,650) = rxt(k,215)*y(k,121)
    2051   141111616 :          mat(k,677) = mat(k,677) + rxt(k,187)*y(k,121)
    2052   141111616 :          mat(k,716) = mat(k,716) + .320_r8*rxt(k,375)*y(k,122)
    2053   141111616 :          mat(k,600) = mat(k,600) + .600_r8*rxt(k,377)*y(k,190)
    2054   141111616 :          mat(k,1066) = mat(k,1066) + .240_r8*rxt(k,328)*y(k,122)
    2055   141111616 :          mat(k,221) = mat(k,221) + .100_r8*rxt(k,330)*y(k,190)
    2056   141111616 :          mat(k,797) = mat(k,797) + .630_r8*rxt(k,433)*y(k,122)
    2057   141111616 :          mat(k,1141) = mat(k,1141) + .360_r8*rxt(k,342)*y(k,122)
    2058   141111616 :          mat(k,1798) = rxt(k,153)*y(k,176)
    2059   141111616 :          mat(k,2013) = mat(k,2013) + rxt(k,148)*y(k,176)
    2060             :          mat(k,1576) = mat(k,1576) + rxt(k,246)*y(k,40) + rxt(k,122)*y(k,72) &
    2061             :                       + rxt(k,123)*y(k,74) + rxt(k,213)*y(k,76) + rxt(k,184)*y(k,80) &
    2062   141111616 :                       + rxt(k,215)*y(k,86) + rxt(k,187)*y(k,87) + rxt(k,128)*y(k,176)
    2063             :          mat(k,1858) = mat(k,1858) + .630_r8*rxt(k,430)*y(k,4) + .130_r8*rxt(k,269) &
    2064             :                       *y(k,23) + .360_r8*rxt(k,298)*y(k,27) + rxt(k,130)*y(k,71) &
    2065             :                       + .320_r8*rxt(k,375)*y(k,93) + .240_r8*rxt(k,328)*y(k,100) &
    2066             :                       + .630_r8*rxt(k,433)*y(k,105) + .360_r8*rxt(k,342)*y(k,106) &
    2067   141111616 :                       + rxt(k,129)*y(k,176)
    2068   141111616 :          mat(k,426) = mat(k,426) + .500_r8*rxt(k,310)*y(k,190)
    2069   141111616 :          mat(k,130) = mat(k,130) + .500_r8*rxt(k,385)*y(k,190)
    2070   141111616 :          mat(k,410) = .400_r8*rxt(k,386)*y(k,176)
    2071   141111616 :          mat(k,1237) = .450_r8*rxt(k,283)*y(k,176)
    2072   141111616 :          mat(k,624) = .400_r8*rxt(k,400)*y(k,176)
    2073             :          mat(k,1682) = mat(k,1682) + rxt(k,169)*y(k,54) + 2.000_r8*rxt(k,125)*y(k,71) &
    2074             :                       + rxt(k,153)*y(k,116) + rxt(k,148)*y(k,118) + rxt(k,128) &
    2075             :                       *y(k,121) + rxt(k,129)*y(k,122) + .400_r8*rxt(k,386)*y(k,161) &
    2076             :                       + .450_r8*rxt(k,283)*y(k,170) + .400_r8*rxt(k,400)*y(k,172) &
    2077             :                       + .450_r8*rxt(k,333)*y(k,184) + .400_r8*rxt(k,406)*y(k,185) &
    2078   141111616 :                       + .200_r8*rxt(k,337)*y(k,186) + .150_r8*rxt(k,312)*y(k,193)
    2079   141111616 :          mat(k,1207) = .450_r8*rxt(k,333)*y(k,176)
    2080   141111616 :          mat(k,745) = .400_r8*rxt(k,406)*y(k,176)
    2081   141111616 :          mat(k,546) = .200_r8*rxt(k,337)*y(k,176)
    2082             :          mat(k,1345) = rxt(k,114)*y(k,72) + rxt(k,219)*y(k,76) + rxt(k,196)*y(k,80) &
    2083   141111616 :                       + rxt(k,264)*y(k,81) + 2.000_r8*rxt(k,115)*y(k,202)
    2084             :          mat(k,1499) = mat(k,1499) + .650_r8*rxt(k,267)*y(k,22) + .500_r8*rxt(k,275) &
    2085             :                       *y(k,25) + .300_r8*rxt(k,253)*y(k,51) + .600_r8*rxt(k,377) &
    2086             :                       *y(k,98) + .100_r8*rxt(k,330)*y(k,101) + .500_r8*rxt(k,310) &
    2087   141111616 :                       *y(k,132) + .500_r8*rxt(k,385)*y(k,154)
    2088   141111616 :          mat(k,999) = .150_r8*rxt(k,312)*y(k,176)
    2089   145521354 :          mat(k,2038) = rxt(k,223)*y(k,68) + 2.000_r8*rxt(k,115)*y(k,189)
    2090             :       end do
    2091     4409738 :       end subroutine nlnmat08
    2092     4409738 :       subroutine nlnmat09( avec_len, mat, y, rxt )
    2093             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    2094             :       implicit none
    2095             : !----------------------------------------------
    2096             : ! ... dummy arguments
    2097             : !----------------------------------------------
    2098             :       integer, intent(in) :: avec_len
    2099             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    2100             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    2101             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    2102             : !----------------------------------------------
    2103             : ! ... local variables
    2104             : !----------------------------------------------
    2105             :       integer :: k
    2106             : !----------------------------------------------
    2107             : ! ... complete matrix entries implicit species
    2108             : !----------------------------------------------
    2109   145521354 :       do k = 1,avec_len
    2110   141111616 :          mat(k,346) = -(rxt(k,409)*y(k,176) + rxt(k,410)*y(k,116))
    2111   141111616 :          mat(k,1620) = -rxt(k,409)*y(k,191)
    2112   141111616 :          mat(k,1742) = -rxt(k,410)*y(k,191)
    2113   141111616 :          mat(k,120) = .200_r8*rxt(k,399)*y(k,190)
    2114   141111616 :          mat(k,99) = .140_r8*rxt(k,411)*y(k,190)
    2115   141111616 :          mat(k,234) = rxt(k,414)*y(k,190)
    2116             :          mat(k,1417) = .200_r8*rxt(k,399)*y(k,64) + .140_r8*rxt(k,411)*y(k,130) &
    2117   141111616 :                       + rxt(k,414)*y(k,131)
    2118   141111616 :          mat(k,629) = -(rxt(k,308)*y(k,176) + rxt(k,309)*y(k,116))
    2119   141111616 :          mat(k,1644) = -rxt(k,308)*y(k,192)
    2120   141111616 :          mat(k,1762) = -rxt(k,309)*y(k,192)
    2121   141111616 :          mat(k,837) = rxt(k,315)*y(k,190)
    2122   141111616 :          mat(k,423) = .500_r8*rxt(k,310)*y(k,190)
    2123   141111616 :          mat(k,1451) = rxt(k,315)*y(k,27) + .500_r8*rxt(k,310)*y(k,132)
    2124             :          mat(k,995) = -(rxt(k,311)*y(k,171) + rxt(k,312)*y(k,176) + rxt(k,313) &
    2125   141111616 :                       *y(k,116))
    2126   141111616 :          mat(k,1307) = -rxt(k,311)*y(k,193)
    2127   141111616 :          mat(k,1665) = -rxt(k,312)*y(k,193)
    2128   141111616 :          mat(k,1782) = -rxt(k,313)*y(k,193)
    2129   141111616 :          mat(k,767) = .060_r8*rxt(k,430)*y(k,122)
    2130   141111616 :          mat(k,819) = rxt(k,316)*y(k,190)
    2131   141111616 :          mat(k,794) = .060_r8*rxt(k,433)*y(k,122)
    2132   141111616 :          mat(k,1842) = .060_r8*rxt(k,430)*y(k,4) + .060_r8*rxt(k,433)*y(k,105)
    2133   141111616 :          mat(k,302) = rxt(k,314)*y(k,190)
    2134   141111616 :          mat(k,887) = .150_r8*rxt(k,451)*y(k,190)
    2135             :          mat(k,1481) = rxt(k,316)*y(k,46) + rxt(k,314)*y(k,133) + .150_r8*rxt(k,451) &
    2136   141111616 :                       *y(k,151)
    2137             :          mat(k,960) = -(rxt(k,440)*y(k,171) + rxt(k,441)*y(k,176) + rxt(k,442) &
    2138   141111616 :                       *y(k,116))
    2139   141111616 :          mat(k,1305) = -rxt(k,440)*y(k,194)
    2140   141111616 :          mat(k,1663) = -rxt(k,441)*y(k,194)
    2141   141111616 :          mat(k,1780) = -rxt(k,442)*y(k,194)
    2142   141111616 :          mat(k,1994) = .500_r8*rxt(k,449)*y(k,150)
    2143   141111616 :          mat(k,487) = rxt(k,443)*y(k,190)
    2144   141111616 :          mat(k,858) = .500_r8*rxt(k,449)*y(k,118) + rxt(k,450)*y(k,190)
    2145   141111616 :          mat(k,1479) = rxt(k,443)*y(k,147) + rxt(k,450)*y(k,150)
    2146             :          mat(k,938) = -(rxt(k,445)*y(k,171) + rxt(k,446)*y(k,176) + rxt(k,447) &
    2147   141111616 :                       *y(k,116))
    2148   141111616 :          mat(k,1304) = -rxt(k,445)*y(k,195)
    2149   141111616 :          mat(k,1662) = -rxt(k,446)*y(k,195)
    2150   141111616 :          mat(k,1779) = -rxt(k,447)*y(k,195)
    2151   141111616 :          mat(k,765) = rxt(k,431)*y(k,190)
    2152   141111616 :          mat(k,792) = rxt(k,434)*y(k,190)
    2153   141111616 :          mat(k,369) = rxt(k,448)*y(k,190)
    2154   141111616 :          mat(k,1478) = rxt(k,431)*y(k,4) + rxt(k,434)*y(k,105) + rxt(k,448)*y(k,149)
    2155   141111616 :          mat(k,585) = -(rxt(k,416)*y(k,176) + rxt(k,417)*y(k,116))
    2156   141111616 :          mat(k,1640) = -rxt(k,416)*y(k,196)
    2157   141111616 :          mat(k,1759) = -rxt(k,417)*y(k,196)
    2158   141111616 :          mat(k,496) = rxt(k,418)*y(k,190)
    2159   141111616 :          mat(k,116) = .650_r8*rxt(k,419)*y(k,190)
    2160   141111616 :          mat(k,1447) = rxt(k,418)*y(k,152) + .650_r8*rxt(k,419)*y(k,153)
    2161   141111616 :          mat(k,50) = -(rxt(k,507)*y(k,176) + rxt(k,508)*y(k,116))
    2162   141111616 :          mat(k,1599) = -rxt(k,507)*y(k,197)
    2163   141111616 :          mat(k,1731) = -rxt(k,508)*y(k,197)
    2164   141111616 :          mat(k,111) = rxt(k,506)*y(k,190)
    2165   141111616 :          mat(k,1370) = rxt(k,506)*y(k,153)
    2166             :          mat(k,1011) = -(rxt(k,380)*y(k,170) + rxt(k,381)*y(k,171) + rxt(k,382) &
    2167   141111616 :                       *y(k,176) + rxt(k,383)*y(k,116) + rxt(k,384)*y(k,118))
    2168   141111616 :          mat(k,1224) = -rxt(k,380)*y(k,198)
    2169   141111616 :          mat(k,1308) = -rxt(k,381)*y(k,198)
    2170   141111616 :          mat(k,1666) = -rxt(k,382)*y(k,198)
    2171   141111616 :          mat(k,1783) = -rxt(k,383)*y(k,198)
    2172   141111616 :          mat(k,1997) = -rxt(k,384)*y(k,198)
    2173   141111616 :          mat(k,151) = rxt(k,352)*y(k,190)
    2174   141111616 :          mat(k,211) = rxt(k,353)*y(k,190)
    2175   141111616 :          mat(k,80) = rxt(k,354)*y(k,190)
    2176   141111616 :          mat(k,597) = .400_r8*rxt(k,377)*y(k,190)
    2177   141111616 :          mat(k,129) = .500_r8*rxt(k,385)*y(k,190)
    2178             :          mat(k,1482) = rxt(k,352)*y(k,89) + rxt(k,353)*y(k,91) + rxt(k,354)*y(k,92) &
    2179   141111616 :                       + .400_r8*rxt(k,377)*y(k,98) + .500_r8*rxt(k,385)*y(k,154)
    2180   141111616 :          mat(k,609) = -(rxt(k,422)*y(k,176) + rxt(k,423)*y(k,116))
    2181   141111616 :          mat(k,1642) = -rxt(k,422)*y(k,199)
    2182   141111616 :          mat(k,1760) = -rxt(k,423)*y(k,199)
    2183   141111616 :          mat(k,136) = .560_r8*rxt(k,421)*y(k,190)
    2184   141111616 :          mat(k,556) = rxt(k,424)*y(k,190)
    2185   141111616 :          mat(k,1449) = .560_r8*rxt(k,421)*y(k,155) + rxt(k,424)*y(k,156)
    2186   141111616 :          mat(k,56) = -(rxt(k,510)*y(k,176) + rxt(k,511)*y(k,116))
    2187   141111616 :          mat(k,1600) = -rxt(k,510)*y(k,200)
    2188   141111616 :          mat(k,1732) = -rxt(k,511)*y(k,200)
    2189   141111616 :          mat(k,131) = rxt(k,509)*y(k,190)
    2190   141111616 :          mat(k,1371) = rxt(k,509)*y(k,155)
    2191   141111616 :          mat(k,383) = -(rxt(k,425)*y(k,176) + rxt(k,426)*y(k,116))
    2192   141111616 :          mat(k,1625) = -rxt(k,425)*y(k,201)
    2193   141111616 :          mat(k,1746) = -rxt(k,426)*y(k,201)
    2194   141111616 :          mat(k,143) = .300_r8*rxt(k,427)*y(k,190)
    2195   141111616 :          mat(k,326) = rxt(k,428)*y(k,190)
    2196   141111616 :          mat(k,1423) = .300_r8*rxt(k,427)*y(k,157) + rxt(k,428)*y(k,158)
    2197             :          mat(k,2050) = -(rxt(k,115)*y(k,189) + rxt(k,223)*y(k,68) + rxt(k,468) &
    2198   141111616 :                       *y(k,138))
    2199   141111616 :          mat(k,1357) = -rxt(k,115)*y(k,202)
    2200   141111616 :          mat(k,646) = -rxt(k,223)*y(k,202)
    2201   141111616 :          mat(k,178) = -rxt(k,468)*y(k,202)
    2202   141111616 :          mat(k,200) = rxt(k,277)*y(k,190)
    2203   141111616 :          mat(k,312) = rxt(k,302)*y(k,190)
    2204   141111616 :          mat(k,69) = rxt(k,303)*y(k,190)
    2205   141111616 :          mat(k,1558) = rxt(k,247)*y(k,190)
    2206   141111616 :          mat(k,902) = rxt(k,279)*y(k,190)
    2207   141111616 :          mat(k,823) = rxt(k,316)*y(k,190)
    2208   141111616 :          mat(k,1079) = rxt(k,305)*y(k,190)
    2209   141111616 :          mat(k,433) = rxt(k,285)*y(k,190)
    2210   141111616 :          mat(k,406) = rxt(k,286)*y(k,190)
    2211   141111616 :          mat(k,300) = rxt(k,253)*y(k,190)
    2212   141111616 :          mat(k,1284) = rxt(k,126)*y(k,176)
    2213   141111616 :          mat(k,1034) = rxt(k,131)*y(k,190)
    2214   141111616 :          mat(k,472) = rxt(k,132)*y(k,190)
    2215   141111616 :          mat(k,701) = rxt(k,214)*y(k,190)
    2216             :          mat(k,1934) = (rxt(k,520)+rxt(k,525))*y(k,86) + (rxt(k,513)+rxt(k,519) &
    2217   141111616 :                        +rxt(k,524))*y(k,87) + rxt(k,185)*y(k,190)
    2218   141111616 :          mat(k,674) = rxt(k,257)*y(k,190)
    2219   141111616 :          mat(k,1270) = rxt(k,161)*y(k,190)
    2220   141111616 :          mat(k,270) = rxt(k,139)*y(k,190)
    2221   141111616 :          mat(k,655) = (rxt(k,520)+rxt(k,525))*y(k,80)
    2222   141111616 :          mat(k,682) = (rxt(k,513)+rxt(k,519)+rxt(k,524))*y(k,80) + rxt(k,188)*y(k,190)
    2223   141111616 :          mat(k,1070) = .500_r8*rxt(k,329)*y(k,190)
    2224   141111616 :          mat(k,65) = rxt(k,469)*y(k,190)
    2225   141111616 :          mat(k,429) = rxt(k,310)*y(k,190)
    2226   141111616 :          mat(k,306) = rxt(k,314)*y(k,190)
    2227   141111616 :          mat(k,1694) = rxt(k,126)*y(k,71) + rxt(k,133)*y(k,190)
    2228             :          mat(k,1511) = rxt(k,277)*y(k,26) + rxt(k,302)*y(k,28) + rxt(k,303)*y(k,29) &
    2229             :                       + rxt(k,247)*y(k,40) + rxt(k,279)*y(k,43) + rxt(k,316)*y(k,46) &
    2230             :                       + rxt(k,305)*y(k,47) + rxt(k,285)*y(k,48) + rxt(k,286)*y(k,49) &
    2231             :                       + rxt(k,253)*y(k,51) + rxt(k,131)*y(k,72) + rxt(k,132)*y(k,74) &
    2232             :                       + rxt(k,214)*y(k,76) + rxt(k,185)*y(k,80) + rxt(k,257)*y(k,82) &
    2233             :                       + rxt(k,161)*y(k,84) + rxt(k,139)*y(k,85) + rxt(k,188)*y(k,87) &
    2234             :                       + .500_r8*rxt(k,329)*y(k,100) + rxt(k,469)*y(k,112) + rxt(k,310) &
    2235             :                       *y(k,132) + rxt(k,314)*y(k,133) + rxt(k,133)*y(k,176) &
    2236   145521354 :                       + 2.000_r8*rxt(k,136)*y(k,190)
    2237             :       end do
    2238     4409738 :       end subroutine nlnmat09
    2239     4409738 :       subroutine nlnmat_finit( avec_len, mat, lmat, dti )
    2240             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    2241             :       implicit none
    2242             : !----------------------------------------------
    2243             : ! ... dummy arguments
    2244             : !----------------------------------------------
    2245             :       integer, intent(in) :: avec_len
    2246             :       real(r8), intent(in) :: dti(veclen)
    2247             :       real(r8), intent(in) :: lmat(veclen,nzcnt)
    2248             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    2249             : !----------------------------------------------
    2250             : ! ... local variables
    2251             : !----------------------------------------------
    2252             :       integer :: k
    2253             : !----------------------------------------------
    2254             : ! ... complete matrix entries implicit species
    2255             : !----------------------------------------------
    2256   145521354 :       do k = 1,avec_len
    2257   141111616 :          mat(k, 1) = lmat(k, 1)
    2258   141111616 :          mat(k, 2) = lmat(k, 2)
    2259   141111616 :          mat(k, 3) = lmat(k, 3)
    2260   141111616 :          mat(k, 4) = lmat(k, 4)
    2261   141111616 :          mat(k, 5) = lmat(k, 5)
    2262   141111616 :          mat(k, 6) = lmat(k, 6)
    2263   141111616 :          mat(k, 12) = mat(k, 12) + lmat(k, 12)
    2264   141111616 :          mat(k, 18) = mat(k, 18) + lmat(k, 18)
    2265   141111616 :          mat(k, 24) = mat(k, 24) + lmat(k, 24)
    2266   141111616 :          mat(k, 30) = mat(k, 30) + lmat(k, 30)
    2267   141111616 :          mat(k, 36) = mat(k, 36) + lmat(k, 36)
    2268   141111616 :          mat(k, 38) = mat(k, 38) + lmat(k, 38)
    2269   141111616 :          mat(k, 44) = mat(k, 44) + lmat(k, 44)
    2270   141111616 :          mat(k, 50) = mat(k, 50) + lmat(k, 50)
    2271   141111616 :          mat(k, 56) = mat(k, 56) + lmat(k, 56)
    2272   141111616 :          mat(k, 57) = mat(k, 57) + lmat(k, 57)
    2273   141111616 :          mat(k, 60) = lmat(k, 60)
    2274   141111616 :          mat(k, 61) = lmat(k, 61)
    2275   141111616 :          mat(k, 62) = lmat(k, 62)
    2276   141111616 :          mat(k, 63) = mat(k, 63) + lmat(k, 63)
    2277   141111616 :          mat(k, 66) = mat(k, 66) + lmat(k, 66)
    2278   141111616 :          mat(k, 70) = mat(k, 70) + lmat(k, 70)
    2279   141111616 :          mat(k, 71) = mat(k, 71) + lmat(k, 71)
    2280   141111616 :          mat(k, 73) = lmat(k, 73)
    2281   141111616 :          mat(k, 74) = lmat(k, 74)
    2282   141111616 :          mat(k, 75) = lmat(k, 75)
    2283   141111616 :          mat(k, 76) = lmat(k, 76)
    2284   141111616 :          mat(k, 77) = lmat(k, 77)
    2285   141111616 :          mat(k, 78) = lmat(k, 78)
    2286   141111616 :          mat(k, 79) = mat(k, 79) + lmat(k, 79)
    2287   141111616 :          mat(k, 82) = lmat(k, 82)
    2288   141111616 :          mat(k, 83) = lmat(k, 83)
    2289   141111616 :          mat(k, 84) = lmat(k, 84)
    2290   141111616 :          mat(k, 85) = lmat(k, 85)
    2291   141111616 :          mat(k, 86) = lmat(k, 86)
    2292   141111616 :          mat(k, 88) = mat(k, 88) + lmat(k, 88)
    2293   141111616 :          mat(k, 94) = lmat(k, 94)
    2294   141111616 :          mat(k, 95) = lmat(k, 95)
    2295   141111616 :          mat(k, 96) = lmat(k, 96)
    2296   141111616 :          mat(k, 97) = lmat(k, 97)
    2297   141111616 :          mat(k, 98) = mat(k, 98) + lmat(k, 98)
    2298   141111616 :          mat(k, 103) = mat(k, 103) + lmat(k, 103)
    2299   141111616 :          mat(k, 104) = mat(k, 104) + lmat(k, 104)
    2300   141111616 :          mat(k, 106) = mat(k, 106) + lmat(k, 106)
    2301   141111616 :          mat(k, 107) = mat(k, 107) + lmat(k, 107)
    2302   141111616 :          mat(k, 112) = mat(k, 112) + lmat(k, 112)
    2303   141111616 :          mat(k, 119) = mat(k, 119) + lmat(k, 119)
    2304   141111616 :          mat(k, 124) = lmat(k, 124)
    2305   141111616 :          mat(k, 125) = lmat(k, 125)
    2306   141111616 :          mat(k, 126) = lmat(k, 126)
    2307   141111616 :          mat(k, 127) = lmat(k, 127)
    2308   141111616 :          mat(k, 128) = mat(k, 128) + lmat(k, 128)
    2309   141111616 :          mat(k, 130) = mat(k, 130) + lmat(k, 130)
    2310   141111616 :          mat(k, 133) = mat(k, 133) + lmat(k, 133)
    2311   141111616 :          mat(k, 141) = mat(k, 141) + lmat(k, 141)
    2312   141111616 :          mat(k, 146) = lmat(k, 146)
    2313   141111616 :          mat(k, 147) = lmat(k, 147)
    2314   141111616 :          mat(k, 148) = lmat(k, 148)
    2315   141111616 :          mat(k, 149) = mat(k, 149) + lmat(k, 149)
    2316   141111616 :          mat(k, 150) = lmat(k, 150)
    2317   141111616 :          mat(k, 152) = mat(k, 152) + lmat(k, 152)
    2318   141111616 :          mat(k, 153) = lmat(k, 153)
    2319   141111616 :          mat(k, 154) = mat(k, 154) + lmat(k, 154)
    2320   141111616 :          mat(k, 157) = mat(k, 157) + lmat(k, 157)
    2321   141111616 :          mat(k, 160) = lmat(k, 160)
    2322   141111616 :          mat(k, 161) = lmat(k, 161)
    2323   141111616 :          mat(k, 162) = lmat(k, 162)
    2324   141111616 :          mat(k, 163) = lmat(k, 163)
    2325   141111616 :          mat(k, 164) = lmat(k, 164)
    2326   141111616 :          mat(k, 165) = lmat(k, 165)
    2327   141111616 :          mat(k, 166) = mat(k, 166) + lmat(k, 166)
    2328   141111616 :          mat(k, 170) = mat(k, 170) + lmat(k, 170)
    2329   141111616 :          mat(k, 171) = lmat(k, 171)
    2330   141111616 :          mat(k, 173) = mat(k, 173) + lmat(k, 173)
    2331   141111616 :          mat(k, 175) = mat(k, 175) + lmat(k, 175)
    2332   141111616 :          mat(k, 176) = lmat(k, 176)
    2333   141111616 :          mat(k, 177) = lmat(k, 177)
    2334   141111616 :          mat(k, 179) = lmat(k, 179)
    2335   141111616 :          mat(k, 180) = lmat(k, 180)
    2336   141111616 :          mat(k, 181) = lmat(k, 181)
    2337   141111616 :          mat(k, 182) = lmat(k, 182)
    2338   141111616 :          mat(k, 183) = mat(k, 183) + lmat(k, 183)
    2339   141111616 :          mat(k, 189) = lmat(k, 189)
    2340   141111616 :          mat(k, 190) = lmat(k, 190)
    2341   141111616 :          mat(k, 191) = lmat(k, 191)
    2342   141111616 :          mat(k, 192) = lmat(k, 192)
    2343   141111616 :          mat(k, 193) = lmat(k, 193)
    2344   141111616 :          mat(k, 194) = lmat(k, 194)
    2345   141111616 :          mat(k, 195) = mat(k, 195) + lmat(k, 195)
    2346   141111616 :          mat(k, 201) = mat(k, 201) + lmat(k, 201)
    2347   141111616 :          mat(k, 207) = lmat(k, 207)
    2348   141111616 :          mat(k, 208) = lmat(k, 208)
    2349   141111616 :          mat(k, 209) = lmat(k, 209)
    2350   141111616 :          mat(k, 210) = mat(k, 210) + lmat(k, 210)
    2351   141111616 :          mat(k, 213) = mat(k, 213) + lmat(k, 213)
    2352   141111616 :          mat(k, 215) = mat(k, 215) + lmat(k, 215)
    2353   141111616 :          mat(k, 216) = mat(k, 216) + lmat(k, 216)
    2354   141111616 :          mat(k, 217) = lmat(k, 217)
    2355   141111616 :          mat(k, 218) = mat(k, 218) + lmat(k, 218)
    2356   141111616 :          mat(k, 223) = mat(k, 223) + lmat(k, 223)
    2357   141111616 :          mat(k, 225) = lmat(k, 225)
    2358   141111616 :          mat(k, 226) = lmat(k, 226)
    2359   141111616 :          mat(k, 227) = mat(k, 227) + lmat(k, 227)
    2360   141111616 :          mat(k, 228) = mat(k, 228) + lmat(k, 228)
    2361   141111616 :          mat(k, 231) = lmat(k, 231)
    2362   141111616 :          mat(k, 232) = mat(k, 232) + lmat(k, 232)
    2363   141111616 :          mat(k, 233) = mat(k, 233) + lmat(k, 233)
    2364   141111616 :          mat(k, 235) = lmat(k, 235)
    2365   141111616 :          mat(k, 236) = mat(k, 236) + lmat(k, 236)
    2366   141111616 :          mat(k, 237) = lmat(k, 237)
    2367   141111616 :          mat(k, 238) = lmat(k, 238)
    2368   141111616 :          mat(k, 239) = mat(k, 239) + lmat(k, 239)
    2369   141111616 :          mat(k, 242) = mat(k, 242) + lmat(k, 242)
    2370   141111616 :          mat(k, 243) = lmat(k, 243)
    2371   141111616 :          mat(k, 244) = lmat(k, 244)
    2372   141111616 :          mat(k, 245) = lmat(k, 245)
    2373   141111616 :          mat(k, 246) = lmat(k, 246)
    2374   141111616 :          mat(k, 247) = lmat(k, 247)
    2375   141111616 :          mat(k, 248) = lmat(k, 248)
    2376   141111616 :          mat(k, 249) = mat(k, 249) + lmat(k, 249)
    2377   141111616 :          mat(k, 250) = lmat(k, 250)
    2378   141111616 :          mat(k, 252) = mat(k, 252) + lmat(k, 252)
    2379   141111616 :          mat(k, 257) = mat(k, 257) + lmat(k, 257)
    2380   141111616 :          mat(k, 265) = mat(k, 265) + lmat(k, 265)
    2381   141111616 :          mat(k, 266) = mat(k, 266) + lmat(k, 266)
    2382   141111616 :          mat(k, 267) = lmat(k, 267)
    2383   141111616 :          mat(k, 268) = mat(k, 268) + lmat(k, 268)
    2384   141111616 :          mat(k, 269) = lmat(k, 269)
    2385   141111616 :          mat(k, 271) = mat(k, 271) + lmat(k, 271)
    2386   141111616 :          mat(k, 272) = lmat(k, 272)
    2387   141111616 :          mat(k, 275) = mat(k, 275) + lmat(k, 275)
    2388   141111616 :          mat(k, 276) = lmat(k, 276)
    2389   141111616 :          mat(k, 277) = mat(k, 277) + lmat(k, 277)
    2390   141111616 :          mat(k, 280) = mat(k, 280) + lmat(k, 280)
    2391   141111616 :          mat(k, 281) = mat(k, 281) + lmat(k, 281)
    2392   141111616 :          mat(k, 283) = mat(k, 283) + lmat(k, 283)
    2393   141111616 :          mat(k, 286) = lmat(k, 286)
    2394   141111616 :          mat(k, 289) = mat(k, 289) + lmat(k, 289)
    2395   141111616 :          mat(k, 290) = lmat(k, 290)
    2396   141111616 :          mat(k, 292) = lmat(k, 292)
    2397   141111616 :          mat(k, 293) = mat(k, 293) + lmat(k, 293)
    2398   141111616 :          mat(k, 294) = lmat(k, 294)
    2399   141111616 :          mat(k, 295) = mat(k, 295) + lmat(k, 295)
    2400   141111616 :          mat(k, 296) = lmat(k, 296)
    2401   141111616 :          mat(k, 298) = mat(k, 298) + lmat(k, 298)
    2402   141111616 :          mat(k, 299) = mat(k, 299) + lmat(k, 299)
    2403   141111616 :          mat(k, 301) = mat(k, 301) + lmat(k, 301)
    2404   141111616 :          mat(k, 303) = lmat(k, 303)
    2405   141111616 :          mat(k, 304) = mat(k, 304) + lmat(k, 304)
    2406   141111616 :          mat(k, 305) = lmat(k, 305)
    2407   141111616 :          mat(k, 307) = mat(k, 307) + lmat(k, 307)
    2408   141111616 :          mat(k, 309) = lmat(k, 309)
    2409   141111616 :          mat(k, 310) = mat(k, 310) + lmat(k, 310)
    2410   141111616 :          mat(k, 311) = lmat(k, 311)
    2411   141111616 :          mat(k, 313) = mat(k, 313) + lmat(k, 313)
    2412   141111616 :          mat(k, 314) = lmat(k, 314)
    2413   141111616 :          mat(k, 316) = lmat(k, 316)
    2414   141111616 :          mat(k, 317) = mat(k, 317) + lmat(k, 317)
    2415   141111616 :          mat(k, 318) = lmat(k, 318)
    2416   141111616 :          mat(k, 319) = lmat(k, 319)
    2417   141111616 :          mat(k, 320) = lmat(k, 320)
    2418   141111616 :          mat(k, 321) = lmat(k, 321)
    2419   141111616 :          mat(k, 322) = lmat(k, 322)
    2420   141111616 :          mat(k, 323) = lmat(k, 323)
    2421   141111616 :          mat(k, 324) = lmat(k, 324)
    2422   141111616 :          mat(k, 325) = mat(k, 325) + lmat(k, 325)
    2423   141111616 :          mat(k, 327) = lmat(k, 327)
    2424   141111616 :          mat(k, 328) = lmat(k, 328)
    2425   141111616 :          mat(k, 329) = mat(k, 329) + lmat(k, 329)
    2426   141111616 :          mat(k, 330) = lmat(k, 330)
    2427   141111616 :          mat(k, 333) = mat(k, 333) + lmat(k, 333)
    2428   141111616 :          mat(k, 339) = mat(k, 339) + lmat(k, 339)
    2429   141111616 :          mat(k, 341) = lmat(k, 341)
    2430   141111616 :          mat(k, 342) = mat(k, 342) + lmat(k, 342)
    2431   141111616 :          mat(k, 346) = mat(k, 346) + lmat(k, 346)
    2432   141111616 :          mat(k, 352) = lmat(k, 352)
    2433   141111616 :          mat(k, 353) = lmat(k, 353)
    2434   141111616 :          mat(k, 354) = lmat(k, 354)
    2435   141111616 :          mat(k, 355) = mat(k, 355) + lmat(k, 355)
    2436   141111616 :          mat(k, 356) = lmat(k, 356)
    2437   141111616 :          mat(k, 357) = lmat(k, 357)
    2438   141111616 :          mat(k, 360) = lmat(k, 360)
    2439   141111616 :          mat(k, 361) = mat(k, 361) + lmat(k, 361)
    2440   141111616 :          mat(k, 362) = mat(k, 362) + lmat(k, 362)
    2441   141111616 :          mat(k, 366) = mat(k, 366) + lmat(k, 366)
    2442   141111616 :          mat(k, 367) = lmat(k, 367)
    2443   141111616 :          mat(k, 368) = lmat(k, 368)
    2444   141111616 :          mat(k, 370) = mat(k, 370) + lmat(k, 370)
    2445   141111616 :          mat(k, 371) = lmat(k, 371)
    2446   141111616 :          mat(k, 372) = lmat(k, 372)
    2447   141111616 :          mat(k, 375) = mat(k, 375) + lmat(k, 375)
    2448   141111616 :          mat(k, 383) = mat(k, 383) + lmat(k, 383)
    2449   141111616 :          mat(k, 390) = mat(k, 390) + lmat(k, 390)
    2450   141111616 :          mat(k, 391) = mat(k, 391) + lmat(k, 391)
    2451   141111616 :          mat(k, 394) = lmat(k, 394)
    2452   141111616 :          mat(k, 396) = mat(k, 396) + lmat(k, 396)
    2453   141111616 :          mat(k, 398) = lmat(k, 398)
    2454   141111616 :          mat(k, 399) = lmat(k, 399)
    2455   141111616 :          mat(k, 401) = mat(k, 401) + lmat(k, 401)
    2456   141111616 :          mat(k, 403) = lmat(k, 403)
    2457   141111616 :          mat(k, 404) = mat(k, 404) + lmat(k, 404)
    2458   141111616 :          mat(k, 408) = mat(k, 408) + lmat(k, 408)
    2459   141111616 :          mat(k, 414) = mat(k, 414) + lmat(k, 414)
    2460   141111616 :          mat(k, 415) = lmat(k, 415)
    2461   141111616 :          mat(k, 416) = lmat(k, 416)
    2462   141111616 :          mat(k, 417) = lmat(k, 417)
    2463   141111616 :          mat(k, 418) = mat(k, 418) + lmat(k, 418)
    2464   141111616 :          mat(k, 420) = lmat(k, 420)
    2465   141111616 :          mat(k, 421) = mat(k, 421) + lmat(k, 421)
    2466   141111616 :          mat(k, 422) = mat(k, 422) + lmat(k, 422)
    2467   141111616 :          mat(k, 424) = lmat(k, 424)
    2468   141111616 :          mat(k, 426) = mat(k, 426) + lmat(k, 426)
    2469   141111616 :          mat(k, 427) = lmat(k, 427)
    2470   141111616 :          mat(k, 428) = lmat(k, 428)
    2471   141111616 :          mat(k, 430) = mat(k, 430) + lmat(k, 430)
    2472   141111616 :          mat(k, 434) = mat(k, 434) + lmat(k, 434)
    2473   141111616 :          mat(k, 439) = lmat(k, 439)
    2474   141111616 :          mat(k, 442) = mat(k, 442) + lmat(k, 442)
    2475   141111616 :          mat(k, 450) = mat(k, 450) + lmat(k, 450)
    2476   141111616 :          mat(k, 458) = mat(k, 458) + lmat(k, 458)
    2477   141111616 :          mat(k, 460) = lmat(k, 460)
    2478   141111616 :          mat(k, 464) = lmat(k, 464)
    2479   141111616 :          mat(k, 466) = mat(k, 466) + lmat(k, 466)
    2480   141111616 :          mat(k, 467) = mat(k, 467) + lmat(k, 467)
    2481   141111616 :          mat(k, 473) = mat(k, 473) + lmat(k, 473)
    2482   141111616 :          mat(k, 477) = lmat(k, 477)
    2483   141111616 :          mat(k, 482) = mat(k, 482) + lmat(k, 482)
    2484   141111616 :          mat(k, 483) = lmat(k, 483)
    2485   141111616 :          mat(k, 484) = lmat(k, 484)
    2486   141111616 :          mat(k, 485) = lmat(k, 485)
    2487   141111616 :          mat(k, 486) = lmat(k, 486)
    2488   141111616 :          mat(k, 488) = mat(k, 488) + lmat(k, 488)
    2489   141111616 :          mat(k, 489) = lmat(k, 489)
    2490   141111616 :          mat(k, 490) = lmat(k, 490)
    2491   141111616 :          mat(k, 491) = lmat(k, 491)
    2492   141111616 :          mat(k, 492) = lmat(k, 492)
    2493   141111616 :          mat(k, 493) = mat(k, 493) + lmat(k, 493)
    2494   141111616 :          mat(k, 494) = lmat(k, 494)
    2495   141111616 :          mat(k, 498) = lmat(k, 498)
    2496   141111616 :          mat(k, 499) = lmat(k, 499)
    2497   141111616 :          mat(k, 500) = mat(k, 500) + lmat(k, 500)
    2498   141111616 :          mat(k, 501) = lmat(k, 501)
    2499   141111616 :          mat(k, 502) = lmat(k, 502)
    2500   141111616 :          mat(k, 503) = lmat(k, 503)
    2501   141111616 :          mat(k, 504) = lmat(k, 504)
    2502   141111616 :          mat(k, 505) = lmat(k, 505)
    2503   141111616 :          mat(k, 506) = mat(k, 506) + lmat(k, 506)
    2504   141111616 :          mat(k, 507) = mat(k, 507) + lmat(k, 507)
    2505   141111616 :          mat(k, 508) = lmat(k, 508)
    2506   141111616 :          mat(k, 510) = lmat(k, 510)
    2507   141111616 :          mat(k, 511) = mat(k, 511) + lmat(k, 511)
    2508   141111616 :          mat(k, 514) = mat(k, 514) + lmat(k, 514)
    2509   141111616 :          mat(k, 520) = lmat(k, 520)
    2510   141111616 :          mat(k, 521) = mat(k, 521) + lmat(k, 521)
    2511   141111616 :          mat(k, 525) = lmat(k, 525)
    2512   141111616 :          mat(k, 526) = lmat(k, 526)
    2513   141111616 :          mat(k, 528) = mat(k, 528) + lmat(k, 528)
    2514   141111616 :          mat(k, 529) = lmat(k, 529)
    2515   141111616 :          mat(k, 530) = lmat(k, 530)
    2516   141111616 :          mat(k, 531) = lmat(k, 531)
    2517   141111616 :          mat(k, 532) = mat(k, 532) + lmat(k, 532)
    2518   141111616 :          mat(k, 535) = mat(k, 535) + lmat(k, 535)
    2519   141111616 :          mat(k, 536) = mat(k, 536) + lmat(k, 536)
    2520   141111616 :          mat(k, 539) = mat(k, 539) + lmat(k, 539)
    2521   141111616 :          mat(k, 540) = lmat(k, 540)
    2522   141111616 :          mat(k, 541) = mat(k, 541) + lmat(k, 541)
    2523   141111616 :          mat(k, 543) = mat(k, 543) + lmat(k, 543)
    2524   141111616 :          mat(k, 550) = lmat(k, 550)
    2525   141111616 :          mat(k, 551) = lmat(k, 551)
    2526   141111616 :          mat(k, 552) = lmat(k, 552)
    2527   141111616 :          mat(k, 553) = lmat(k, 553)
    2528   141111616 :          mat(k, 554) = mat(k, 554) + lmat(k, 554)
    2529   141111616 :          mat(k, 558) = lmat(k, 558)
    2530   141111616 :          mat(k, 561) = lmat(k, 561)
    2531   141111616 :          mat(k, 563) = mat(k, 563) + lmat(k, 563)
    2532   141111616 :          mat(k, 564) = lmat(k, 564)
    2533   141111616 :          mat(k, 567) = mat(k, 567) + lmat(k, 567)
    2534   141111616 :          mat(k, 574) = mat(k, 574) + lmat(k, 574)
    2535   141111616 :          mat(k, 585) = mat(k, 585) + lmat(k, 585)
    2536   141111616 :          mat(k, 596) = mat(k, 596) + lmat(k, 596)
    2537   141111616 :          mat(k, 598) = lmat(k, 598)
    2538   141111616 :          mat(k, 599) = lmat(k, 599)
    2539   141111616 :          mat(k, 601) = lmat(k, 601)
    2540   141111616 :          mat(k, 602) = lmat(k, 602)
    2541   141111616 :          mat(k, 609) = mat(k, 609) + lmat(k, 609)
    2542   141111616 :          mat(k, 620) = mat(k, 620) + lmat(k, 620)
    2543   141111616 :          mat(k, 629) = mat(k, 629) + lmat(k, 629)
    2544   141111616 :          mat(k, 638) = mat(k, 638) + lmat(k, 638)
    2545   141111616 :          mat(k, 639) = mat(k, 639) + lmat(k, 639)
    2546   141111616 :          mat(k, 643) = lmat(k, 643)
    2547   141111616 :          mat(k, 648) = mat(k, 648) + lmat(k, 648)
    2548   141111616 :          mat(k, 649) = lmat(k, 649)
    2549   141111616 :          mat(k, 650) = mat(k, 650) + lmat(k, 650)
    2550   141111616 :          mat(k, 656) = mat(k, 656) + lmat(k, 656)
    2551   141111616 :          mat(k, 661) = mat(k, 661) + lmat(k, 661)
    2552   141111616 :          mat(k, 671) = mat(k, 671) + lmat(k, 671)
    2553   141111616 :          mat(k, 676) = mat(k, 676) + lmat(k, 676)
    2554   141111616 :          mat(k, 677) = mat(k, 677) + lmat(k, 677)
    2555   141111616 :          mat(k, 681) = mat(k, 681) + lmat(k, 681)
    2556   141111616 :          mat(k, 686) = mat(k, 686) + lmat(k, 686)
    2557   141111616 :          mat(k, 694) = mat(k, 694) + lmat(k, 694)
    2558   141111616 :          mat(k, 695) = mat(k, 695) + lmat(k, 695)
    2559   141111616 :          mat(k, 696) = mat(k, 696) + lmat(k, 696)
    2560   141111616 :          mat(k, 706) = mat(k, 706) + lmat(k, 706)
    2561   141111616 :          mat(k, 723) = mat(k, 723) + lmat(k, 723)
    2562   141111616 :          mat(k, 724) = lmat(k, 724)
    2563   141111616 :          mat(k, 726) = lmat(k, 726)
    2564   141111616 :          mat(k, 729) = mat(k, 729) + lmat(k, 729)
    2565   141111616 :          mat(k, 731) = lmat(k, 731)
    2566   141111616 :          mat(k, 733) = lmat(k, 733)
    2567   141111616 :          mat(k, 734) = mat(k, 734) + lmat(k, 734)
    2568   141111616 :          mat(k, 735) = lmat(k, 735)
    2569   141111616 :          mat(k, 736) = mat(k, 736) + lmat(k, 736)
    2570   141111616 :          mat(k, 737) = mat(k, 737) + lmat(k, 737)
    2571   141111616 :          mat(k, 739) = mat(k, 739) + lmat(k, 739)
    2572   141111616 :          mat(k, 741) = mat(k, 741) + lmat(k, 741)
    2573   141111616 :          mat(k, 759) = mat(k, 759) + lmat(k, 759)
    2574   141111616 :          mat(k, 786) = mat(k, 786) + lmat(k, 786)
    2575   141111616 :          mat(k, 808) = mat(k, 808) + lmat(k, 808)
    2576   141111616 :          mat(k, 818) = mat(k, 818) + lmat(k, 818)
    2577   141111616 :          mat(k, 820) = lmat(k, 820)
    2578   141111616 :          mat(k, 821) = lmat(k, 821)
    2579   141111616 :          mat(k, 825) = mat(k, 825) + lmat(k, 825)
    2580   141111616 :          mat(k, 826) = mat(k, 826) + lmat(k, 826)
    2581   141111616 :          mat(k, 827) = mat(k, 827) + lmat(k, 827)
    2582   141111616 :          mat(k, 830) = mat(k, 830) + lmat(k, 830)
    2583   141111616 :          mat(k, 831) = lmat(k, 831)
    2584   141111616 :          mat(k, 833) = mat(k, 833) + lmat(k, 833)
    2585   141111616 :          mat(k, 834) = mat(k, 834) + lmat(k, 834)
    2586   141111616 :          mat(k, 840) = mat(k, 840) + lmat(k, 840)
    2587   141111616 :          mat(k, 855) = mat(k, 855) + lmat(k, 855)
    2588   141111616 :          mat(k, 856) = lmat(k, 856)
    2589   141111616 :          mat(k, 857) = lmat(k, 857)
    2590   141111616 :          mat(k, 861) = lmat(k, 861)
    2591   141111616 :          mat(k, 864) = mat(k, 864) + lmat(k, 864)
    2592   141111616 :          mat(k, 865) = lmat(k, 865)
    2593   141111616 :          mat(k, 867) = mat(k, 867) + lmat(k, 867)
    2594   141111616 :          mat(k, 868) = mat(k, 868) + lmat(k, 868)
    2595   141111616 :          mat(k, 869) = lmat(k, 869)
    2596   141111616 :          mat(k, 873) = mat(k, 873) + lmat(k, 873)
    2597   141111616 :          mat(k, 877) = lmat(k, 877)
    2598   141111616 :          mat(k, 881) = mat(k, 881) + lmat(k, 881)
    2599   141111616 :          mat(k, 883) = lmat(k, 883)
    2600   141111616 :          mat(k, 884) = mat(k, 884) + lmat(k, 884)
    2601   141111616 :          mat(k, 885) = mat(k, 885) + lmat(k, 885)
    2602   141111616 :          mat(k, 886) = mat(k, 886) + lmat(k, 886)
    2603   141111616 :          mat(k, 887) = mat(k, 887) + lmat(k, 887)
    2604   141111616 :          mat(k, 888) = mat(k, 888) + lmat(k, 888)
    2605   141111616 :          mat(k, 891) = mat(k, 891) + lmat(k, 891)
    2606   141111616 :          mat(k, 892) = mat(k, 892) + lmat(k, 892)
    2607   141111616 :          mat(k, 894) = mat(k, 894) + lmat(k, 894)
    2608   141111616 :          mat(k, 895) = lmat(k, 895)
    2609   141111616 :          mat(k, 898) = lmat(k, 898)
    2610   141111616 :          mat(k, 900) = lmat(k, 900)
    2611   141111616 :          mat(k, 903) = mat(k, 903) + lmat(k, 903)
    2612   141111616 :          mat(k, 908) = lmat(k, 908)
    2613   141111616 :          mat(k, 909) = lmat(k, 909)
    2614   141111616 :          mat(k, 910) = lmat(k, 910)
    2615   141111616 :          mat(k, 911) = lmat(k, 911)
    2616   141111616 :          mat(k, 912) = mat(k, 912) + lmat(k, 912)
    2617   141111616 :          mat(k, 913) = lmat(k, 913)
    2618   141111616 :          mat(k, 915) = lmat(k, 915)
    2619   141111616 :          mat(k, 916) = lmat(k, 916)
    2620   141111616 :          mat(k, 920) = lmat(k, 920)
    2621   141111616 :          mat(k, 921) = mat(k, 921) + lmat(k, 921)
    2622   141111616 :          mat(k, 922) = lmat(k, 922)
    2623   141111616 :          mat(k, 925) = mat(k, 925) + lmat(k, 925)
    2624   141111616 :          mat(k, 927) = lmat(k, 927)
    2625   141111616 :          mat(k, 929) = lmat(k, 929)
    2626   141111616 :          mat(k, 930) = mat(k, 930) + lmat(k, 930)
    2627   141111616 :          mat(k, 938) = mat(k, 938) + lmat(k, 938)
    2628   141111616 :          mat(k, 960) = mat(k, 960) + lmat(k, 960)
    2629   141111616 :          mat(k, 979) = mat(k, 979) + lmat(k, 979)
    2630   141111616 :          mat(k, 995) = mat(k, 995) + lmat(k, 995)
    2631   141111616 :          mat(k,1011) = mat(k,1011) + lmat(k,1011)
    2632   141111616 :          mat(k,1024) = mat(k,1024) + lmat(k,1024)
    2633   141111616 :          mat(k,1044) = mat(k,1044) + lmat(k,1044)
    2634   141111616 :          mat(k,1059) = mat(k,1059) + lmat(k,1059)
    2635   141111616 :          mat(k,1060) = mat(k,1060) + lmat(k,1060)
    2636   141111616 :          mat(k,1063) = mat(k,1063) + lmat(k,1063)
    2637   141111616 :          mat(k,1064) = mat(k,1064) + lmat(k,1064)
    2638   141111616 :          mat(k,1067) = mat(k,1067) + lmat(k,1067)
    2639   141111616 :          mat(k,1068) = mat(k,1068) + lmat(k,1068)
    2640   141111616 :          mat(k,1071) = mat(k,1071) + lmat(k,1071)
    2641   141111616 :          mat(k,1072) = mat(k,1072) + lmat(k,1072)
    2642   141111616 :          mat(k,1073) = mat(k,1073) + lmat(k,1073)
    2643   141111616 :          mat(k,1077) = lmat(k,1077)
    2644   141111616 :          mat(k,1081) = lmat(k,1081)
    2645   141111616 :          mat(k,1082) = mat(k,1082) + lmat(k,1082)
    2646   141111616 :          mat(k,1083) = mat(k,1083) + lmat(k,1083)
    2647   141111616 :          mat(k,1088) = lmat(k,1088)
    2648   141111616 :          mat(k,1096) = lmat(k,1096)
    2649   141111616 :          mat(k,1113) = mat(k,1113) + lmat(k,1113)
    2650   141111616 :          mat(k,1123) = mat(k,1123) + lmat(k,1123)
    2651   141111616 :          mat(k,1130) = lmat(k,1130)
    2652   141111616 :          mat(k,1132) = mat(k,1132) + lmat(k,1132)
    2653   141111616 :          mat(k,1135) = mat(k,1135) + lmat(k,1135)
    2654   141111616 :          mat(k,1137) = mat(k,1137) + lmat(k,1137)
    2655   141111616 :          mat(k,1140) = lmat(k,1140)
    2656   141111616 :          mat(k,1157) = mat(k,1157) + lmat(k,1157)
    2657   141111616 :          mat(k,1183) = mat(k,1183) + lmat(k,1183)
    2658   141111616 :          mat(k,1202) = mat(k,1202) + lmat(k,1202)
    2659   141111616 :          mat(k,1233) = mat(k,1233) + lmat(k,1233)
    2660   141111616 :          mat(k,1247) = mat(k,1247) + lmat(k,1247)
    2661   141111616 :          mat(k,1260) = mat(k,1260) + lmat(k,1260)
    2662   141111616 :          mat(k,1264) = mat(k,1264) + lmat(k,1264)
    2663   141111616 :          mat(k,1266) = lmat(k,1266)
    2664   141111616 :          mat(k,1273) = mat(k,1273) + lmat(k,1273)
    2665   141111616 :          mat(k,1278) = mat(k,1278) + lmat(k,1278)
    2666   141111616 :          mat(k,1320) = mat(k,1320) + lmat(k,1320)
    2667   141111616 :          mat(k,1334) = mat(k,1334) + lmat(k,1334)
    2668   141111616 :          mat(k,1335) = mat(k,1335) + lmat(k,1335)
    2669   141111616 :          mat(k,1337) = mat(k,1337) + lmat(k,1337)
    2670   141111616 :          mat(k,1339) = mat(k,1339) + lmat(k,1339)
    2671   141111616 :          mat(k,1340) = mat(k,1340) + lmat(k,1340)
    2672   141111616 :          mat(k,1342) = mat(k,1342) + lmat(k,1342)
    2673   141111616 :          mat(k,1343) = lmat(k,1343)
    2674   141111616 :          mat(k,1344) = mat(k,1344) + lmat(k,1344)
    2675   141111616 :          mat(k,1345) = mat(k,1345) + lmat(k,1345)
    2676   141111616 :          mat(k,1347) = lmat(k,1347)
    2677   141111616 :          mat(k,1348) = lmat(k,1348)
    2678   141111616 :          mat(k,1349) = lmat(k,1349)
    2679   141111616 :          mat(k,1351) = lmat(k,1351)
    2680   141111616 :          mat(k,1355) = mat(k,1355) + lmat(k,1355)
    2681   141111616 :          mat(k,1375) = lmat(k,1375)
    2682   141111616 :          mat(k,1380) = lmat(k,1380)
    2683   141111616 :          mat(k,1494) = mat(k,1494) + lmat(k,1494)
    2684   141111616 :          mat(k,1497) = mat(k,1497) + lmat(k,1497)
    2685   141111616 :          mat(k,1499) = mat(k,1499) + lmat(k,1499)
    2686   141111616 :          mat(k,1503) = mat(k,1503) + lmat(k,1503)
    2687   141111616 :          mat(k,1509) = mat(k,1509) + lmat(k,1509)
    2688   141111616 :          mat(k,1511) = mat(k,1511) + lmat(k,1511)
    2689   141111616 :          mat(k,1518) = mat(k,1518) + lmat(k,1518)
    2690   141111616 :          mat(k,1524) = mat(k,1524) + lmat(k,1524)
    2691   141111616 :          mat(k,1526) = mat(k,1526) + lmat(k,1526)
    2692   141111616 :          mat(k,1539) = mat(k,1539) + lmat(k,1539)
    2693   141111616 :          mat(k,1540) = lmat(k,1540)
    2694   141111616 :          mat(k,1543) = mat(k,1543) + lmat(k,1543)
    2695   141111616 :          mat(k,1548) = mat(k,1548) + lmat(k,1548)
    2696   141111616 :          mat(k,1579) = mat(k,1579) + lmat(k,1579)
    2697   141111616 :          mat(k,1583) = mat(k,1583) + lmat(k,1583)
    2698   141111616 :          mat(k,1686) = mat(k,1686) + lmat(k,1686)
    2699   141111616 :          mat(k,1694) = mat(k,1694) + lmat(k,1694)
    2700   141111616 :          mat(k,1711) = mat(k,1711) + lmat(k,1711)
    2701   141111616 :          mat(k,1713) = mat(k,1713) + lmat(k,1713)
    2702   141111616 :          mat(k,1718) = mat(k,1718) + lmat(k,1718)
    2703   141111616 :          mat(k,1739) = mat(k,1739) + lmat(k,1739)
    2704   141111616 :          mat(k,1801) = mat(k,1801) + lmat(k,1801)
    2705   141111616 :          mat(k,1804) = mat(k,1804) + lmat(k,1804)
    2706   141111616 :          mat(k,1857) = mat(k,1857) + lmat(k,1857)
    2707   141111616 :          mat(k,1861) = mat(k,1861) + lmat(k,1861)
    2708   141111616 :          mat(k,1865) = mat(k,1865) + lmat(k,1865)
    2709   141111616 :          mat(k,1895) = mat(k,1895) + lmat(k,1895)
    2710   141111616 :          mat(k,1899) = mat(k,1899) + lmat(k,1899)
    2711   141111616 :          mat(k,1902) = mat(k,1902) + lmat(k,1902)
    2712   141111616 :          mat(k,1905) = mat(k,1905) + lmat(k,1905)
    2713   141111616 :          mat(k,1907) = mat(k,1907) + lmat(k,1907)
    2714   141111616 :          mat(k,1919) = mat(k,1919) + lmat(k,1919)
    2715   141111616 :          mat(k,1931) = mat(k,1931) + lmat(k,1931)
    2716   141111616 :          mat(k,1932) = mat(k,1932) + lmat(k,1932)
    2717   141111616 :          mat(k,1948) = mat(k,1948) + lmat(k,1948)
    2718   141111616 :          mat(k,1951) = lmat(k,1951)
    2719   141111616 :          mat(k,1954) = lmat(k,1954)
    2720   141111616 :          mat(k,1960) = mat(k,1960) + lmat(k,1960)
    2721   141111616 :          mat(k,1965) = mat(k,1965) + lmat(k,1965)
    2722   141111616 :          mat(k,1966) = mat(k,1966) + lmat(k,1966)
    2723   141111616 :          mat(k,2009) = mat(k,2009) + lmat(k,2009)
    2724   141111616 :          mat(k,2016) = mat(k,2016) + lmat(k,2016)
    2725   141111616 :          mat(k,2019) = mat(k,2019) + lmat(k,2019)
    2726   141111616 :          mat(k,2021) = mat(k,2021) + lmat(k,2021)
    2727   141111616 :          mat(k,2024) = mat(k,2024) + lmat(k,2024)
    2728   141111616 :          mat(k,2031) = lmat(k,2031)
    2729   141111616 :          mat(k,2035) = lmat(k,2035)
    2730   141111616 :          mat(k,2037) = mat(k,2037) + lmat(k,2037)
    2731   141111616 :          mat(k,2038) = mat(k,2038) + lmat(k,2038)
    2732   141111616 :          mat(k,2041) = lmat(k,2041)
    2733   141111616 :          mat(k,2050) = mat(k,2050) + lmat(k,2050)
    2734   141111616 :          mat(k, 137) = 0._r8
    2735   141111616 :          mat(k, 138) = 0._r8
    2736   141111616 :          mat(k, 241) = 0._r8
    2737   141111616 :          mat(k, 334) = 0._r8
    2738   141111616 :          mat(k, 335) = 0._r8
    2739   141111616 :          mat(k, 348) = 0._r8
    2740   141111616 :          mat(k, 376) = 0._r8
    2741   141111616 :          mat(k, 378) = 0._r8
    2742   141111616 :          mat(k, 386) = 0._r8
    2743   141111616 :          mat(k, 495) = 0._r8
    2744   141111616 :          mat(k, 497) = 0._r8
    2745   141111616 :          mat(k, 515) = 0._r8
    2746   141111616 :          mat(k, 518) = 0._r8
    2747   141111616 :          mat(k, 522) = 0._r8
    2748   141111616 :          mat(k, 523) = 0._r8
    2749   141111616 :          mat(k, 527) = 0._r8
    2750   141111616 :          mat(k, 533) = 0._r8
    2751   141111616 :          mat(k, 534) = 0._r8
    2752   141111616 :          mat(k, 537) = 0._r8
    2753   141111616 :          mat(k, 555) = 0._r8
    2754   141111616 :          mat(k, 557) = 0._r8
    2755   141111616 :          mat(k, 559) = 0._r8
    2756   141111616 :          mat(k, 560) = 0._r8
    2757   141111616 :          mat(k, 562) = 0._r8
    2758   141111616 :          mat(k, 568) = 0._r8
    2759   141111616 :          mat(k, 569) = 0._r8
    2760   141111616 :          mat(k, 584) = 0._r8
    2761   141111616 :          mat(k, 586) = 0._r8
    2762   141111616 :          mat(k, 588) = 0._r8
    2763   141111616 :          mat(k, 589) = 0._r8
    2764   141111616 :          mat(k, 591) = 0._r8
    2765   141111616 :          mat(k, 608) = 0._r8
    2766   141111616 :          mat(k, 610) = 0._r8
    2767   141111616 :          mat(k, 612) = 0._r8
    2768   141111616 :          mat(k, 613) = 0._r8
    2769   141111616 :          mat(k, 615) = 0._r8
    2770   141111616 :          mat(k, 616) = 0._r8
    2771   141111616 :          mat(k, 631) = 0._r8
    2772   141111616 :          mat(k, 632) = 0._r8
    2773   141111616 :          mat(k, 637) = 0._r8
    2774   141111616 :          mat(k, 654) = 0._r8
    2775   141111616 :          mat(k, 665) = 0._r8
    2776   141111616 :          mat(k, 670) = 0._r8
    2777   141111616 :          mat(k, 689) = 0._r8
    2778   141111616 :          mat(k, 721) = 0._r8
    2779   141111616 :          mat(k, 728) = 0._r8
    2780   141111616 :          mat(k, 758) = 0._r8
    2781   141111616 :          mat(k, 760) = 0._r8
    2782   141111616 :          mat(k, 768) = 0._r8
    2783   141111616 :          mat(k, 775) = 0._r8
    2784   141111616 :          mat(k, 785) = 0._r8
    2785   141111616 :          mat(k, 787) = 0._r8
    2786   141111616 :          mat(k, 795) = 0._r8
    2787   141111616 :          mat(k, 802) = 0._r8
    2788   141111616 :          mat(k, 806) = 0._r8
    2789   141111616 :          mat(k, 807) = 0._r8
    2790   141111616 :          mat(k, 811) = 0._r8
    2791   141111616 :          mat(k, 812) = 0._r8
    2792   141111616 :          mat(k, 813) = 0._r8
    2793   141111616 :          mat(k, 835) = 0._r8
    2794   141111616 :          mat(k, 843) = 0._r8
    2795   141111616 :          mat(k, 844) = 0._r8
    2796   141111616 :          mat(k, 845) = 0._r8
    2797   141111616 :          mat(k, 850) = 0._r8
    2798   141111616 :          mat(k, 852) = 0._r8
    2799   141111616 :          mat(k, 854) = 0._r8
    2800   141111616 :          mat(k, 872) = 0._r8
    2801   141111616 :          mat(k, 874) = 0._r8
    2802   141111616 :          mat(k, 875) = 0._r8
    2803   141111616 :          mat(k, 876) = 0._r8
    2804   141111616 :          mat(k, 878) = 0._r8
    2805   141111616 :          mat(k, 880) = 0._r8
    2806   141111616 :          mat(k, 882) = 0._r8
    2807   141111616 :          mat(k, 889) = 0._r8
    2808   141111616 :          mat(k, 893) = 0._r8
    2809   141111616 :          mat(k, 914) = 0._r8
    2810   141111616 :          mat(k, 917) = 0._r8
    2811   141111616 :          mat(k, 918) = 0._r8
    2812   141111616 :          mat(k, 923) = 0._r8
    2813   141111616 :          mat(k, 924) = 0._r8
    2814   141111616 :          mat(k, 936) = 0._r8
    2815   141111616 :          mat(k, 937) = 0._r8
    2816   141111616 :          mat(k, 939) = 0._r8
    2817   141111616 :          mat(k, 940) = 0._r8
    2818   141111616 :          mat(k, 941) = 0._r8
    2819   141111616 :          mat(k, 942) = 0._r8
    2820   141111616 :          mat(k, 943) = 0._r8
    2821   141111616 :          mat(k, 944) = 0._r8
    2822   141111616 :          mat(k, 946) = 0._r8
    2823   141111616 :          mat(k, 951) = 0._r8
    2824   141111616 :          mat(k, 952) = 0._r8
    2825   141111616 :          mat(k, 961) = 0._r8
    2826   141111616 :          mat(k, 962) = 0._r8
    2827   141111616 :          mat(k, 963) = 0._r8
    2828   141111616 :          mat(k, 964) = 0._r8
    2829   141111616 :          mat(k, 966) = 0._r8
    2830   141111616 :          mat(k, 971) = 0._r8
    2831   141111616 :          mat(k, 976) = 0._r8
    2832   141111616 :          mat(k, 977) = 0._r8
    2833   141111616 :          mat(k, 978) = 0._r8
    2834   141111616 :          mat(k, 980) = 0._r8
    2835   141111616 :          mat(k, 981) = 0._r8
    2836   141111616 :          mat(k, 982) = 0._r8
    2837   141111616 :          mat(k, 983) = 0._r8
    2838   141111616 :          mat(k, 985) = 0._r8
    2839   141111616 :          mat(k, 991) = 0._r8
    2840   141111616 :          mat(k,1004) = 0._r8
    2841   141111616 :          mat(k,1014) = 0._r8
    2842   141111616 :          mat(k,1016) = 0._r8
    2843   141111616 :          mat(k,1025) = 0._r8
    2844   141111616 :          mat(k,1027) = 0._r8
    2845   141111616 :          mat(k,1033) = 0._r8
    2846   141111616 :          mat(k,1037) = 0._r8
    2847   141111616 :          mat(k,1039) = 0._r8
    2848   141111616 :          mat(k,1040) = 0._r8
    2849   141111616 :          mat(k,1042) = 0._r8
    2850   141111616 :          mat(k,1043) = 0._r8
    2851   141111616 :          mat(k,1045) = 0._r8
    2852   141111616 :          mat(k,1046) = 0._r8
    2853   141111616 :          mat(k,1047) = 0._r8
    2854   141111616 :          mat(k,1049) = 0._r8
    2855   141111616 :          mat(k,1050) = 0._r8
    2856   141111616 :          mat(k,1052) = 0._r8
    2857   141111616 :          mat(k,1065) = 0._r8
    2858   141111616 :          mat(k,1075) = 0._r8
    2859   141111616 :          mat(k,1089) = 0._r8
    2860   141111616 :          mat(k,1095) = 0._r8
    2861   141111616 :          mat(k,1099) = 0._r8
    2862   141111616 :          mat(k,1102) = 0._r8
    2863   141111616 :          mat(k,1104) = 0._r8
    2864   141111616 :          mat(k,1106) = 0._r8
    2865   141111616 :          mat(k,1107) = 0._r8
    2866   141111616 :          mat(k,1109) = 0._r8
    2867   141111616 :          mat(k,1110) = 0._r8
    2868   141111616 :          mat(k,1111) = 0._r8
    2869   141111616 :          mat(k,1114) = 0._r8
    2870   141111616 :          mat(k,1115) = 0._r8
    2871   141111616 :          mat(k,1116) = 0._r8
    2872   141111616 :          mat(k,1118) = 0._r8
    2873   141111616 :          mat(k,1119) = 0._r8
    2874   141111616 :          mat(k,1121) = 0._r8
    2875   141111616 :          mat(k,1125) = 0._r8
    2876   141111616 :          mat(k,1128) = 0._r8
    2877   141111616 :          mat(k,1133) = 0._r8
    2878   141111616 :          mat(k,1138) = 0._r8
    2879   141111616 :          mat(k,1139) = 0._r8
    2880   141111616 :          mat(k,1144) = 0._r8
    2881   141111616 :          mat(k,1146) = 0._r8
    2882   141111616 :          mat(k,1147) = 0._r8
    2883   141111616 :          mat(k,1148) = 0._r8
    2884   141111616 :          mat(k,1155) = 0._r8
    2885   141111616 :          mat(k,1158) = 0._r8
    2886   141111616 :          mat(k,1160) = 0._r8
    2887   141111616 :          mat(k,1161) = 0._r8
    2888   141111616 :          mat(k,1163) = 0._r8
    2889   141111616 :          mat(k,1169) = 0._r8
    2890   141111616 :          mat(k,1173) = 0._r8
    2891   141111616 :          mat(k,1174) = 0._r8
    2892   141111616 :          mat(k,1175) = 0._r8
    2893   141111616 :          mat(k,1176) = 0._r8
    2894   141111616 :          mat(k,1177) = 0._r8
    2895   141111616 :          mat(k,1178) = 0._r8
    2896   141111616 :          mat(k,1180) = 0._r8
    2897   141111616 :          mat(k,1182) = 0._r8
    2898   141111616 :          mat(k,1184) = 0._r8
    2899   141111616 :          mat(k,1186) = 0._r8
    2900   141111616 :          mat(k,1187) = 0._r8
    2901   141111616 :          mat(k,1189) = 0._r8
    2902   141111616 :          mat(k,1193) = 0._r8
    2903   141111616 :          mat(k,1196) = 0._r8
    2904   141111616 :          mat(k,1200) = 0._r8
    2905   141111616 :          mat(k,1201) = 0._r8
    2906   141111616 :          mat(k,1204) = 0._r8
    2907   141111616 :          mat(k,1205) = 0._r8
    2908   141111616 :          mat(k,1214) = 0._r8
    2909   141111616 :          mat(k,1234) = 0._r8
    2910   141111616 :          mat(k,1235) = 0._r8
    2911   141111616 :          mat(k,1243) = 0._r8
    2912   141111616 :          mat(k,1244) = 0._r8
    2913   141111616 :          mat(k,1248) = 0._r8
    2914   141111616 :          mat(k,1249) = 0._r8
    2915   141111616 :          mat(k,1250) = 0._r8
    2916   141111616 :          mat(k,1253) = 0._r8
    2917   141111616 :          mat(k,1256) = 0._r8
    2918   141111616 :          mat(k,1259) = 0._r8
    2919   141111616 :          mat(k,1261) = 0._r8
    2920   141111616 :          mat(k,1262) = 0._r8
    2921   141111616 :          mat(k,1263) = 0._r8
    2922   141111616 :          mat(k,1265) = 0._r8
    2923   141111616 :          mat(k,1267) = 0._r8
    2924   141111616 :          mat(k,1268) = 0._r8
    2925   141111616 :          mat(k,1272) = 0._r8
    2926   141111616 :          mat(k,1274) = 0._r8
    2927   141111616 :          mat(k,1275) = 0._r8
    2928   141111616 :          mat(k,1280) = 0._r8
    2929   141111616 :          mat(k,1281) = 0._r8
    2930   141111616 :          mat(k,1282) = 0._r8
    2931   141111616 :          mat(k,1283) = 0._r8
    2932   141111616 :          mat(k,1294) = 0._r8
    2933   141111616 :          mat(k,1318) = 0._r8
    2934   141111616 :          mat(k,1319) = 0._r8
    2935   141111616 :          mat(k,1321) = 0._r8
    2936   141111616 :          mat(k,1322) = 0._r8
    2937   141111616 :          mat(k,1324) = 0._r8
    2938   141111616 :          mat(k,1328) = 0._r8
    2939   141111616 :          mat(k,1330) = 0._r8
    2940   141111616 :          mat(k,1332) = 0._r8
    2941   141111616 :          mat(k,1333) = 0._r8
    2942   141111616 :          mat(k,1341) = 0._r8
    2943   141111616 :          mat(k,1353) = 0._r8
    2944   141111616 :          mat(k,1356) = 0._r8
    2945   141111616 :          mat(k,1418) = 0._r8
    2946   141111616 :          mat(k,1438) = 0._r8
    2947   141111616 :          mat(k,1446) = 0._r8
    2948   141111616 :          mat(k,1450) = 0._r8
    2949   141111616 :          mat(k,1452) = 0._r8
    2950   141111616 :          mat(k,1463) = 0._r8
    2951   141111616 :          mat(k,1484) = 0._r8
    2952   141111616 :          mat(k,1498) = 0._r8
    2953   141111616 :          mat(k,1519) = 0._r8
    2954   141111616 :          mat(k,1520) = 0._r8
    2955   141111616 :          mat(k,1521) = 0._r8
    2956   141111616 :          mat(k,1522) = 0._r8
    2957   141111616 :          mat(k,1525) = 0._r8
    2958   141111616 :          mat(k,1530) = 0._r8
    2959   141111616 :          mat(k,1532) = 0._r8
    2960   141111616 :          mat(k,1534) = 0._r8
    2961   141111616 :          mat(k,1535) = 0._r8
    2962   141111616 :          mat(k,1537) = 0._r8
    2963   141111616 :          mat(k,1544) = 0._r8
    2964   141111616 :          mat(k,1545) = 0._r8
    2965   141111616 :          mat(k,1547) = 0._r8
    2966   141111616 :          mat(k,1551) = 0._r8
    2967   141111616 :          mat(k,1552) = 0._r8
    2968   141111616 :          mat(k,1553) = 0._r8
    2969   141111616 :          mat(k,1554) = 0._r8
    2970   141111616 :          mat(k,1560) = 0._r8
    2971   141111616 :          mat(k,1566) = 0._r8
    2972   141111616 :          mat(k,1572) = 0._r8
    2973   141111616 :          mat(k,1574) = 0._r8
    2974   141111616 :          mat(k,1575) = 0._r8
    2975   141111616 :          mat(k,1588) = 0._r8
    2976   141111616 :          mat(k,1604) = 0._r8
    2977   141111616 :          mat(k,1621) = 0._r8
    2978   141111616 :          mat(k,1622) = 0._r8
    2979   141111616 :          mat(k,1633) = 0._r8
    2980   141111616 :          mat(k,1651) = 0._r8
    2981   141111616 :          mat(k,1655) = 0._r8
    2982   141111616 :          mat(k,1656) = 0._r8
    2983   141111616 :          mat(k,1657) = 0._r8
    2984   141111616 :          mat(k,1658) = 0._r8
    2985   141111616 :          mat(k,1661) = 0._r8
    2986   141111616 :          mat(k,1669) = 0._r8
    2987   141111616 :          mat(k,1672) = 0._r8
    2988   141111616 :          mat(k,1678) = 0._r8
    2989   141111616 :          mat(k,1681) = 0._r8
    2990   141111616 :          mat(k,1704) = 0._r8
    2991   141111616 :          mat(k,1705) = 0._r8
    2992   141111616 :          mat(k,1707) = 0._r8
    2993   141111616 :          mat(k,1715) = 0._r8
    2994   141111616 :          mat(k,1719) = 0._r8
    2995   141111616 :          mat(k,1720) = 0._r8
    2996   141111616 :          mat(k,1766) = 0._r8
    2997   141111616 :          mat(k,1794) = 0._r8
    2998   141111616 :          mat(k,1795) = 0._r8
    2999   141111616 :          mat(k,1797) = 0._r8
    3000   141111616 :          mat(k,1807) = 0._r8
    3001   141111616 :          mat(k,1810) = 0._r8
    3002   141111616 :          mat(k,1823) = 0._r8
    3003   141111616 :          mat(k,1827) = 0._r8
    3004   141111616 :          mat(k,1830) = 0._r8
    3005   141111616 :          mat(k,1834) = 0._r8
    3006   141111616 :          mat(k,1838) = 0._r8
    3007   141111616 :          mat(k,1839) = 0._r8
    3008   141111616 :          mat(k,1840) = 0._r8
    3009   141111616 :          mat(k,1841) = 0._r8
    3010   141111616 :          mat(k,1843) = 0._r8
    3011   141111616 :          mat(k,1847) = 0._r8
    3012   141111616 :          mat(k,1849) = 0._r8
    3013   141111616 :          mat(k,1850) = 0._r8
    3014   141111616 :          mat(k,1851) = 0._r8
    3015   141111616 :          mat(k,1854) = 0._r8
    3016   141111616 :          mat(k,1867) = 0._r8
    3017   141111616 :          mat(k,1870) = 0._r8
    3018   141111616 :          mat(k,1880) = 0._r8
    3019   141111616 :          mat(k,1883) = 0._r8
    3020   141111616 :          mat(k,1885) = 0._r8
    3021   141111616 :          mat(k,1888) = 0._r8
    3022   141111616 :          mat(k,1889) = 0._r8
    3023   141111616 :          mat(k,1890) = 0._r8
    3024   141111616 :          mat(k,1894) = 0._r8
    3025   141111616 :          mat(k,1896) = 0._r8
    3026   141111616 :          mat(k,1897) = 0._r8
    3027   141111616 :          mat(k,1898) = 0._r8
    3028   141111616 :          mat(k,1901) = 0._r8
    3029   141111616 :          mat(k,1908) = 0._r8
    3030   141111616 :          mat(k,1909) = 0._r8
    3031   141111616 :          mat(k,1911) = 0._r8
    3032   141111616 :          mat(k,1917) = 0._r8
    3033   141111616 :          mat(k,1920) = 0._r8
    3034   141111616 :          mat(k,1923) = 0._r8
    3035   141111616 :          mat(k,1924) = 0._r8
    3036   141111616 :          mat(k,1926) = 0._r8
    3037   141111616 :          mat(k,1928) = 0._r8
    3038   141111616 :          mat(k,1929) = 0._r8
    3039   141111616 :          mat(k,1930) = 0._r8
    3040   141111616 :          mat(k,1933) = 0._r8
    3041   141111616 :          mat(k,1940) = 0._r8
    3042   141111616 :          mat(k,1941) = 0._r8
    3043   141111616 :          mat(k,1944) = 0._r8
    3044   141111616 :          mat(k,1946) = 0._r8
    3045   141111616 :          mat(k,1947) = 0._r8
    3046   141111616 :          mat(k,1950) = 0._r8
    3047   141111616 :          mat(k,1952) = 0._r8
    3048   141111616 :          mat(k,1955) = 0._r8
    3049   141111616 :          mat(k,1957) = 0._r8
    3050   141111616 :          mat(k,1959) = 0._r8
    3051   141111616 :          mat(k,1962) = 0._r8
    3052   141111616 :          mat(k,1964) = 0._r8
    3053   141111616 :          mat(k,1968) = 0._r8
    3054   141111616 :          mat(k,1975) = 0._r8
    3055   141111616 :          mat(k,1982) = 0._r8
    3056   141111616 :          mat(k,1988) = 0._r8
    3057   141111616 :          mat(k,1991) = 0._r8
    3058   141111616 :          mat(k,1993) = 0._r8
    3059   141111616 :          mat(k,1996) = 0._r8
    3060   141111616 :          mat(k,2001) = 0._r8
    3061   141111616 :          mat(k,2008) = 0._r8
    3062   141111616 :          mat(k,2010) = 0._r8
    3063   141111616 :          mat(k,2011) = 0._r8
    3064   141111616 :          mat(k,2012) = 0._r8
    3065   141111616 :          mat(k,2014) = 0._r8
    3066   141111616 :          mat(k,2018) = 0._r8
    3067   141111616 :          mat(k,2020) = 0._r8
    3068   141111616 :          mat(k,2022) = 0._r8
    3069   141111616 :          mat(k,2023) = 0._r8
    3070   141111616 :          mat(k,2025) = 0._r8
    3071   141111616 :          mat(k,2030) = 0._r8
    3072   141111616 :          mat(k,2032) = 0._r8
    3073   141111616 :          mat(k,2033) = 0._r8
    3074   141111616 :          mat(k,2034) = 0._r8
    3075   141111616 :          mat(k,2036) = 0._r8
    3076   141111616 :          mat(k,2039) = 0._r8
    3077   141111616 :          mat(k,2040) = 0._r8
    3078   141111616 :          mat(k,2042) = 0._r8
    3079   141111616 :          mat(k,2043) = 0._r8
    3080   141111616 :          mat(k,2044) = 0._r8
    3081   141111616 :          mat(k,2045) = 0._r8
    3082   141111616 :          mat(k,2046) = 0._r8
    3083   141111616 :          mat(k,2047) = 0._r8
    3084   141111616 :          mat(k,2048) = 0._r8
    3085   141111616 :          mat(k,2049) = 0._r8
    3086   141111616 :          mat(k, 1) = mat(k, 1) - dti(k)
    3087   141111616 :          mat(k, 2) = mat(k, 2) - dti(k)
    3088   141111616 :          mat(k, 3) = mat(k, 3) - dti(k)
    3089   141111616 :          mat(k, 4) = mat(k, 4) - dti(k)
    3090   141111616 :          mat(k, 5) = mat(k, 5) - dti(k)
    3091   141111616 :          mat(k, 6) = mat(k, 6) - dti(k)
    3092   141111616 :          mat(k, 12) = mat(k, 12) - dti(k)
    3093   141111616 :          mat(k, 18) = mat(k, 18) - dti(k)
    3094   141111616 :          mat(k, 24) = mat(k, 24) - dti(k)
    3095   141111616 :          mat(k, 30) = mat(k, 30) - dti(k)
    3096   141111616 :          mat(k, 36) = mat(k, 36) - dti(k)
    3097   141111616 :          mat(k, 38) = mat(k, 38) - dti(k)
    3098   141111616 :          mat(k, 44) = mat(k, 44) - dti(k)
    3099   141111616 :          mat(k, 50) = mat(k, 50) - dti(k)
    3100   141111616 :          mat(k, 56) = mat(k, 56) - dti(k)
    3101   141111616 :          mat(k, 57) = mat(k, 57) - dti(k)
    3102   141111616 :          mat(k, 60) = mat(k, 60) - dti(k)
    3103   141111616 :          mat(k, 63) = mat(k, 63) - dti(k)
    3104   141111616 :          mat(k, 66) = mat(k, 66) - dti(k)
    3105   141111616 :          mat(k, 70) = mat(k, 70) - dti(k)
    3106   141111616 :          mat(k, 73) = mat(k, 73) - dti(k)
    3107   141111616 :          mat(k, 76) = mat(k, 76) - dti(k)
    3108   141111616 :          mat(k, 79) = mat(k, 79) - dti(k)
    3109   141111616 :          mat(k, 82) = mat(k, 82) - dti(k)
    3110   141111616 :          mat(k, 85) = mat(k, 85) - dti(k)
    3111   141111616 :          mat(k, 88) = mat(k, 88) - dti(k)
    3112   141111616 :          mat(k, 94) = mat(k, 94) - dti(k)
    3113   141111616 :          mat(k, 98) = mat(k, 98) - dti(k)
    3114   141111616 :          mat(k, 103) = mat(k, 103) - dti(k)
    3115   141111616 :          mat(k, 107) = mat(k, 107) - dti(k)
    3116   141111616 :          mat(k, 112) = mat(k, 112) - dti(k)
    3117   141111616 :          mat(k, 119) = mat(k, 119) - dti(k)
    3118   141111616 :          mat(k, 124) = mat(k, 124) - dti(k)
    3119   141111616 :          mat(k, 128) = mat(k, 128) - dti(k)
    3120   141111616 :          mat(k, 133) = mat(k, 133) - dti(k)
    3121   141111616 :          mat(k, 141) = mat(k, 141) - dti(k)
    3122   141111616 :          mat(k, 146) = mat(k, 146) - dti(k)
    3123   141111616 :          mat(k, 149) = mat(k, 149) - dti(k)
    3124   141111616 :          mat(k, 154) = mat(k, 154) - dti(k)
    3125   141111616 :          mat(k, 157) = mat(k, 157) - dti(k)
    3126   141111616 :          mat(k, 160) = mat(k, 160) - dti(k)
    3127   141111616 :          mat(k, 163) = mat(k, 163) - dti(k)
    3128   141111616 :          mat(k, 166) = mat(k, 166) - dti(k)
    3129   141111616 :          mat(k, 170) = mat(k, 170) - dti(k)
    3130   141111616 :          mat(k, 175) = mat(k, 175) - dti(k)
    3131   141111616 :          mat(k, 179) = mat(k, 179) - dti(k)
    3132   141111616 :          mat(k, 183) = mat(k, 183) - dti(k)
    3133   141111616 :          mat(k, 189) = mat(k, 189) - dti(k)
    3134   141111616 :          mat(k, 195) = mat(k, 195) - dti(k)
    3135   141111616 :          mat(k, 201) = mat(k, 201) - dti(k)
    3136   141111616 :          mat(k, 207) = mat(k, 207) - dti(k)
    3137   141111616 :          mat(k, 210) = mat(k, 210) - dti(k)
    3138   141111616 :          mat(k, 213) = mat(k, 213) - dti(k)
    3139   141111616 :          mat(k, 218) = mat(k, 218) - dti(k)
    3140   141111616 :          mat(k, 223) = mat(k, 223) - dti(k)
    3141   141111616 :          mat(k, 228) = mat(k, 228) - dti(k)
    3142   141111616 :          mat(k, 233) = mat(k, 233) - dti(k)
    3143   141111616 :          mat(k, 239) = mat(k, 239) - dti(k)
    3144   141111616 :          mat(k, 244) = mat(k, 244) - dti(k)
    3145   141111616 :          mat(k, 249) = mat(k, 249) - dti(k)
    3146   141111616 :          mat(k, 257) = mat(k, 257) - dti(k)
    3147   141111616 :          mat(k, 265) = mat(k, 265) - dti(k)
    3148   141111616 :          mat(k, 271) = mat(k, 271) - dti(k)
    3149   141111616 :          mat(k, 277) = mat(k, 277) - dti(k)
    3150   141111616 :          mat(k, 283) = mat(k, 283) - dti(k)
    3151   141111616 :          mat(k, 289) = mat(k, 289) - dti(k)
    3152   141111616 :          mat(k, 295) = mat(k, 295) - dti(k)
    3153   141111616 :          mat(k, 301) = mat(k, 301) - dti(k)
    3154   141111616 :          mat(k, 307) = mat(k, 307) - dti(k)
    3155   141111616 :          mat(k, 313) = mat(k, 313) - dti(k)
    3156   141111616 :          mat(k, 319) = mat(k, 319) - dti(k)
    3157   141111616 :          mat(k, 325) = mat(k, 325) - dti(k)
    3158   141111616 :          mat(k, 333) = mat(k, 333) - dti(k)
    3159   141111616 :          mat(k, 339) = mat(k, 339) - dti(k)
    3160   141111616 :          mat(k, 346) = mat(k, 346) - dti(k)
    3161   141111616 :          mat(k, 352) = mat(k, 352) - dti(k)
    3162   141111616 :          mat(k, 355) = mat(k, 355) - dti(k)
    3163   141111616 :          mat(k, 362) = mat(k, 362) - dti(k)
    3164   141111616 :          mat(k, 366) = mat(k, 366) - dti(k)
    3165   141111616 :          mat(k, 375) = mat(k, 375) - dti(k)
    3166   141111616 :          mat(k, 383) = mat(k, 383) - dti(k)
    3167   141111616 :          mat(k, 390) = mat(k, 390) - dti(k)
    3168   141111616 :          mat(k, 396) = mat(k, 396) - dti(k)
    3169   141111616 :          mat(k, 401) = mat(k, 401) - dti(k)
    3170   141111616 :          mat(k, 408) = mat(k, 408) - dti(k)
    3171   141111616 :          mat(k, 414) = mat(k, 414) - dti(k)
    3172   141111616 :          mat(k, 422) = mat(k, 422) - dti(k)
    3173   141111616 :          mat(k, 430) = mat(k, 430) - dti(k)
    3174   141111616 :          mat(k, 434) = mat(k, 434) - dti(k)
    3175   141111616 :          mat(k, 442) = mat(k, 442) - dti(k)
    3176   141111616 :          mat(k, 450) = mat(k, 450) - dti(k)
    3177   141111616 :          mat(k, 458) = mat(k, 458) - dti(k)
    3178   141111616 :          mat(k, 466) = mat(k, 466) - dti(k)
    3179   141111616 :          mat(k, 473) = mat(k, 473) - dti(k)
    3180   141111616 :          mat(k, 482) = mat(k, 482) - dti(k)
    3181   141111616 :          mat(k, 493) = mat(k, 493) - dti(k)
    3182   141111616 :          mat(k, 502) = mat(k, 502) - dti(k)
    3183   141111616 :          mat(k, 506) = mat(k, 506) - dti(k)
    3184   141111616 :          mat(k, 514) = mat(k, 514) - dti(k)
    3185   141111616 :          mat(k, 521) = mat(k, 521) - dti(k)
    3186   141111616 :          mat(k, 532) = mat(k, 532) - dti(k)
    3187   141111616 :          mat(k, 543) = mat(k, 543) - dti(k)
    3188   141111616 :          mat(k, 554) = mat(k, 554) - dti(k)
    3189   141111616 :          mat(k, 567) = mat(k, 567) - dti(k)
    3190   141111616 :          mat(k, 574) = mat(k, 574) - dti(k)
    3191   141111616 :          mat(k, 585) = mat(k, 585) - dti(k)
    3192   141111616 :          mat(k, 596) = mat(k, 596) - dti(k)
    3193   141111616 :          mat(k, 609) = mat(k, 609) - dti(k)
    3194   141111616 :          mat(k, 620) = mat(k, 620) - dti(k)
    3195   141111616 :          mat(k, 629) = mat(k, 629) - dti(k)
    3196   141111616 :          mat(k, 639) = mat(k, 639) - dti(k)
    3197   141111616 :          mat(k, 648) = mat(k, 648) - dti(k)
    3198   141111616 :          mat(k, 656) = mat(k, 656) - dti(k)
    3199   141111616 :          mat(k, 661) = mat(k, 661) - dti(k)
    3200   141111616 :          mat(k, 671) = mat(k, 671) - dti(k)
    3201   141111616 :          mat(k, 676) = mat(k, 676) - dti(k)
    3202   141111616 :          mat(k, 686) = mat(k, 686) - dti(k)
    3203   141111616 :          mat(k, 694) = mat(k, 694) - dti(k)
    3204   141111616 :          mat(k, 706) = mat(k, 706) - dti(k)
    3205   141111616 :          mat(k, 723) = mat(k, 723) - dti(k)
    3206   141111616 :          mat(k, 729) = mat(k, 729) - dti(k)
    3207   141111616 :          mat(k, 736) = mat(k, 736) - dti(k)
    3208   141111616 :          mat(k, 741) = mat(k, 741) - dti(k)
    3209   141111616 :          mat(k, 759) = mat(k, 759) - dti(k)
    3210   141111616 :          mat(k, 786) = mat(k, 786) - dti(k)
    3211   141111616 :          mat(k, 808) = mat(k, 808) - dti(k)
    3212   141111616 :          mat(k, 818) = mat(k, 818) - dti(k)
    3213   141111616 :          mat(k, 826) = mat(k, 826) - dti(k)
    3214   141111616 :          mat(k, 840) = mat(k, 840) - dti(k)
    3215   141111616 :          mat(k, 855) = mat(k, 855) - dti(k)
    3216   141111616 :          mat(k, 864) = mat(k, 864) - dti(k)
    3217   141111616 :          mat(k, 873) = mat(k, 873) - dti(k)
    3218   141111616 :          mat(k, 885) = mat(k, 885) - dti(k)
    3219   141111616 :          mat(k, 894) = mat(k, 894) - dti(k)
    3220   141111616 :          mat(k, 903) = mat(k, 903) - dti(k)
    3221   141111616 :          mat(k, 912) = mat(k, 912) - dti(k)
    3222   141111616 :          mat(k, 925) = mat(k, 925) - dti(k)
    3223   141111616 :          mat(k, 938) = mat(k, 938) - dti(k)
    3224   141111616 :          mat(k, 960) = mat(k, 960) - dti(k)
    3225   141111616 :          mat(k, 979) = mat(k, 979) - dti(k)
    3226   141111616 :          mat(k, 995) = mat(k, 995) - dti(k)
    3227   141111616 :          mat(k,1011) = mat(k,1011) - dti(k)
    3228   141111616 :          mat(k,1024) = mat(k,1024) - dti(k)
    3229   141111616 :          mat(k,1044) = mat(k,1044) - dti(k)
    3230   141111616 :          mat(k,1060) = mat(k,1060) - dti(k)
    3231   141111616 :          mat(k,1072) = mat(k,1072) - dti(k)
    3232   141111616 :          mat(k,1083) = mat(k,1083) - dti(k)
    3233   141111616 :          mat(k,1113) = mat(k,1113) - dti(k)
    3234   141111616 :          mat(k,1135) = mat(k,1135) - dti(k)
    3235   141111616 :          mat(k,1157) = mat(k,1157) - dti(k)
    3236   141111616 :          mat(k,1183) = mat(k,1183) - dti(k)
    3237   141111616 :          mat(k,1202) = mat(k,1202) - dti(k)
    3238   141111616 :          mat(k,1233) = mat(k,1233) - dti(k)
    3239   141111616 :          mat(k,1247) = mat(k,1247) - dti(k)
    3240   141111616 :          mat(k,1260) = mat(k,1260) - dti(k)
    3241   141111616 :          mat(k,1273) = mat(k,1273) - dti(k)
    3242   141111616 :          mat(k,1320) = mat(k,1320) - dti(k)
    3243   141111616 :          mat(k,1344) = mat(k,1344) - dti(k)
    3244   141111616 :          mat(k,1499) = mat(k,1499) - dti(k)
    3245   141111616 :          mat(k,1524) = mat(k,1524) - dti(k)
    3246   141111616 :          mat(k,1548) = mat(k,1548) - dti(k)
    3247   141111616 :          mat(k,1579) = mat(k,1579) - dti(k)
    3248   141111616 :          mat(k,1686) = mat(k,1686) - dti(k)
    3249   141111616 :          mat(k,1713) = mat(k,1713) - dti(k)
    3250   141111616 :          mat(k,1804) = mat(k,1804) - dti(k)
    3251   141111616 :          mat(k,1865) = mat(k,1865) - dti(k)
    3252   141111616 :          mat(k,1907) = mat(k,1907) - dti(k)
    3253   141111616 :          mat(k,1931) = mat(k,1931) - dti(k)
    3254   141111616 :          mat(k,1966) = mat(k,1966) - dti(k)
    3255   141111616 :          mat(k,2024) = mat(k,2024) - dti(k)
    3256   145521354 :          mat(k,2050) = mat(k,2050) - dti(k)
    3257             :       end do
    3258     4409738 :       end subroutine nlnmat_finit
    3259     4409738 :       subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti )
    3260             :       use chem_mods, only : gas_pcnst, rxntot, nzcnt
    3261             :       implicit none
    3262             : !----------------------------------------------
    3263             : ! ... dummy arguments
    3264             : !----------------------------------------------
    3265             :       integer, intent(in) :: avec_len
    3266             :       real(r8), intent(in) :: dti(veclen)
    3267             :       real(r8), intent(in) :: lmat(veclen,nzcnt)
    3268             :       real(r8), intent(in) :: y(veclen,gas_pcnst)
    3269             :       real(r8), intent(in) :: rxt(veclen,rxntot)
    3270             :       real(r8), intent(inout) :: mat(veclen,nzcnt)
    3271     4409738 :       call nlnmat01( avec_len, mat, y, rxt )
    3272     4409738 :       call nlnmat02( avec_len, mat, y, rxt )
    3273     4409738 :       call nlnmat03( avec_len, mat, y, rxt )
    3274     4409738 :       call nlnmat04( avec_len, mat, y, rxt )
    3275     4409738 :       call nlnmat05( avec_len, mat, y, rxt )
    3276     4409738 :       call nlnmat06( avec_len, mat, y, rxt )
    3277     4409738 :       call nlnmat07( avec_len, mat, y, rxt )
    3278     4409738 :       call nlnmat08( avec_len, mat, y, rxt )
    3279     4409738 :       call nlnmat09( avec_len, mat, y, rxt )
    3280     4409738 :       call nlnmat_finit( avec_len, mat, lmat, dti )
    3281     4409738 :       end subroutine nlnmat
    3282             :       end module mo_nln_matrix

Generated by: LCOV version 1.14