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

Generated by: LCOV version 1.14