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

Generated by: LCOV version 1.14