Line data Source code
1 : module mo_nln_matrix
2 : use shr_kind_mod, only : r8 => shr_kind_r8
3 : use chem_mods, only: veclen
4 : private
5 : public :: nlnmat
6 : contains
7 9949925 : subroutine nlnmat01( avec_len, mat, y, rxt )
8 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
9 : implicit none
10 : !----------------------------------------------
11 : ! ... dummy arguments
12 : !----------------------------------------------
13 : integer, intent(in) :: avec_len
14 : real(r8), intent(in) :: y(veclen,gas_pcnst)
15 : real(r8), intent(in) :: rxt(veclen,rxntot)
16 : real(r8), intent(inout) :: mat(veclen,nzcnt)
17 : !----------------------------------------------
18 : ! ... local variables
19 : !----------------------------------------------
20 : integer :: k
21 : !----------------------------------------------
22 : ! ... complete matrix entries implicit species
23 : !----------------------------------------------
24 325174377 : do k = 1,avec_len
25 315224452 : mat(k,642) = -(rxt(k,396)*y(k,228))
26 315224452 : mat(k,1753) = -rxt(k,396)*y(k,1)
27 315224452 : mat(k,1865) = rxt(k,399)*y(k,192)
28 315224452 : mat(k,1038) = rxt(k,399)*y(k,124)
29 315224452 : mat(k,687) = -(rxt(k,400)*y(k,228))
30 315224452 : mat(k,1756) = -rxt(k,400)*y(k,2)
31 315224452 : mat(k,2307) = rxt(k,397)*y(k,192)
32 315224452 : mat(k,1039) = rxt(k,397)*y(k,90)
33 : mat(k,974) = -(rxt(k,479)*y(k,126) + rxt(k,480)*y(k,136) + rxt(k,481) &
34 315224452 : *y(k,228))
35 315224452 : mat(k,1618) = -rxt(k,479)*y(k,6)
36 315224452 : mat(k,2192) = -rxt(k,480)*y(k,6)
37 315224452 : mat(k,1780) = -rxt(k,481)*y(k,6)
38 315224452 : mat(k,160) = -(rxt(k,438)*y(k,228))
39 315224452 : mat(k,1685) = -rxt(k,438)*y(k,7)
40 315224452 : mat(k,415) = -(rxt(k,441)*y(k,228))
41 315224452 : mat(k,1725) = -rxt(k,441)*y(k,8)
42 315224452 : mat(k,2287) = rxt(k,439)*y(k,194)
43 315224452 : mat(k,493) = rxt(k,439)*y(k,90)
44 315224452 : mat(k,161) = .120_r8*rxt(k,438)*y(k,228)
45 315224452 : mat(k,1686) = .120_r8*rxt(k,438)*y(k,7)
46 315224452 : mat(k,972) = .100_r8*rxt(k,480)*y(k,136)
47 315224452 : mat(k,1016) = .100_r8*rxt(k,483)*y(k,136)
48 315224452 : mat(k,2182) = .100_r8*rxt(k,480)*y(k,6) + .100_r8*rxt(k,483)*y(k,110)
49 : mat(k,1853) = .500_r8*rxt(k,440)*y(k,194) + .200_r8*rxt(k,467)*y(k,235) &
50 315224452 : + .060_r8*rxt(k,473)*y(k,238)
51 315224452 : mat(k,494) = .500_r8*rxt(k,440)*y(k,124)
52 315224452 : mat(k,747) = .200_r8*rxt(k,467)*y(k,124)
53 315224452 : mat(k,763) = .060_r8*rxt(k,473)*y(k,124)
54 315224452 : mat(k,1846) = .200_r8*rxt(k,467)*y(k,235) + .200_r8*rxt(k,473)*y(k,238)
55 315224452 : mat(k,746) = .200_r8*rxt(k,467)*y(k,124)
56 315224452 : mat(k,761) = .200_r8*rxt(k,473)*y(k,124)
57 315224452 : mat(k,1862) = .200_r8*rxt(k,467)*y(k,235) + .150_r8*rxt(k,473)*y(k,238)
58 315224452 : mat(k,748) = .200_r8*rxt(k,467)*y(k,124)
59 315224452 : mat(k,764) = .150_r8*rxt(k,473)*y(k,124)
60 315224452 : mat(k,1848) = .210_r8*rxt(k,473)*y(k,238)
61 315224452 : mat(k,762) = .210_r8*rxt(k,473)*y(k,124)
62 315224452 : mat(k,226) = -(rxt(k,401)*y(k,228))
63 315224452 : mat(k,1696) = -rxt(k,401)*y(k,15)
64 315224452 : mat(k,971) = .050_r8*rxt(k,480)*y(k,136)
65 315224452 : mat(k,1015) = .050_r8*rxt(k,483)*y(k,136)
66 315224452 : mat(k,2181) = .050_r8*rxt(k,480)*y(k,6) + .050_r8*rxt(k,483)*y(k,110)
67 315224452 : mat(k,355) = -(rxt(k,367)*y(k,126) + rxt(k,368)*y(k,228))
68 315224452 : mat(k,1612) = -rxt(k,367)*y(k,16)
69 315224452 : mat(k,1717) = -rxt(k,368)*y(k,16)
70 315224452 : mat(k,1511) = -(rxt(k,250)*y(k,42) + rxt(k,251)*y(k,90) + rxt(k,252)*y(k,136))
71 315224452 : mat(k,1979) = -rxt(k,250)*y(k,17)
72 315224452 : mat(k,2352) = -rxt(k,251)*y(k,17)
73 315224452 : mat(k,2219) = -rxt(k,252)*y(k,17)
74 : mat(k,1563) = 4.000_r8*rxt(k,253)*y(k,19) + (rxt(k,254)+rxt(k,255))*y(k,59) &
75 : + rxt(k,258)*y(k,124) + rxt(k,261)*y(k,134) + rxt(k,509) &
76 315224452 : *y(k,152) + rxt(k,262)*y(k,228)
77 315224452 : mat(k,141) = rxt(k,240)*y(k,224)
78 315224452 : mat(k,147) = rxt(k,266)*y(k,224)
79 : mat(k,481) = 2.000_r8*rxt(k,277)*y(k,56) + 2.000_r8*rxt(k,289)*y(k,224) &
80 315224452 : + 2.000_r8*rxt(k,278)*y(k,228)
81 315224452 : mat(k,604) = rxt(k,279)*y(k,56) + rxt(k,290)*y(k,224) + rxt(k,280)*y(k,228)
82 : mat(k,387) = 3.000_r8*rxt(k,284)*y(k,56) + 3.000_r8*rxt(k,267)*y(k,224) &
83 315224452 : + 3.000_r8*rxt(k,285)*y(k,228)
84 : mat(k,2155) = 2.000_r8*rxt(k,277)*y(k,41) + rxt(k,279)*y(k,43) &
85 315224452 : + 3.000_r8*rxt(k,284)*y(k,55)
86 315224452 : mat(k,1589) = (rxt(k,254)+rxt(k,255))*y(k,19)
87 315224452 : mat(k,109) = 2.000_r8*rxt(k,268)*y(k,224)
88 315224452 : mat(k,829) = rxt(k,263)*y(k,134) + rxt(k,269)*y(k,224) + rxt(k,264)*y(k,228)
89 315224452 : mat(k,1908) = rxt(k,258)*y(k,19)
90 315224452 : mat(k,2088) = rxt(k,261)*y(k,19) + rxt(k,263)*y(k,81)
91 315224452 : mat(k,1477) = rxt(k,509)*y(k,19)
92 : mat(k,2022) = rxt(k,240)*y(k,34) + rxt(k,266)*y(k,35) + 2.000_r8*rxt(k,289) &
93 : *y(k,41) + rxt(k,290)*y(k,43) + 3.000_r8*rxt(k,267)*y(k,55) &
94 315224452 : + 2.000_r8*rxt(k,268)*y(k,78) + rxt(k,269)*y(k,81)
95 : mat(k,1813) = rxt(k,262)*y(k,19) + 2.000_r8*rxt(k,278)*y(k,41) + rxt(k,280) &
96 315224452 : *y(k,43) + 3.000_r8*rxt(k,285)*y(k,55) + rxt(k,264)*y(k,81)
97 315224452 : mat(k,1556) = rxt(k,256)*y(k,59)
98 315224452 : mat(k,1582) = rxt(k,256)*y(k,19)
99 315224452 : mat(k,1491) = (rxt(k,570)+rxt(k,575))*y(k,92)
100 315224452 : mat(k,786) = (rxt(k,570)+rxt(k,575))*y(k,85)
101 : mat(k,1565) = -(4._r8*rxt(k,253)*y(k,19) + (rxt(k,254) + rxt(k,255) + rxt(k,256) &
102 : ) * y(k,59) + rxt(k,257)*y(k,90) + rxt(k,258)*y(k,124) + rxt(k,259) &
103 : *y(k,125) + rxt(k,261)*y(k,134) + rxt(k,262)*y(k,228) + rxt(k,509) &
104 315224452 : *y(k,152))
105 315224452 : mat(k,1591) = -(rxt(k,254) + rxt(k,255) + rxt(k,256)) * y(k,19)
106 315224452 : mat(k,2354) = -rxt(k,257)*y(k,19)
107 315224452 : mat(k,1910) = -rxt(k,258)*y(k,19)
108 315224452 : mat(k,1955) = -rxt(k,259)*y(k,19)
109 315224452 : mat(k,2090) = -rxt(k,261)*y(k,19)
110 315224452 : mat(k,1815) = -rxt(k,262)*y(k,19)
111 315224452 : mat(k,1479) = -rxt(k,509)*y(k,19)
112 315224452 : mat(k,1513) = rxt(k,252)*y(k,136)
113 315224452 : mat(k,569) = rxt(k,260)*y(k,134)
114 315224452 : mat(k,830) = rxt(k,270)*y(k,224)
115 315224452 : mat(k,790) = rxt(k,265)*y(k,134)
116 315224452 : mat(k,2090) = mat(k,2090) + rxt(k,260)*y(k,20) + rxt(k,265)*y(k,92)
117 315224452 : mat(k,2221) = rxt(k,252)*y(k,17)
118 315224452 : mat(k,2024) = rxt(k,270)*y(k,81)
119 315224452 : mat(k,566) = -(rxt(k,260)*y(k,134))
120 315224452 : mat(k,2069) = -rxt(k,260)*y(k,20)
121 315224452 : mat(k,1558) = rxt(k,259)*y(k,125)
122 315224452 : mat(k,1934) = rxt(k,259)*y(k,19)
123 315224452 : mat(k,235) = -(rxt(k,442)*y(k,228))
124 315224452 : mat(k,1698) = -rxt(k,442)*y(k,22)
125 315224452 : mat(k,1845) = rxt(k,445)*y(k,196)
126 315224452 : mat(k,433) = rxt(k,445)*y(k,124)
127 315224452 : mat(k,345) = -(rxt(k,444)*y(k,228))
128 315224452 : mat(k,1715) = -rxt(k,444)*y(k,23)
129 315224452 : mat(k,2281) = rxt(k,443)*y(k,196)
130 315224452 : mat(k,434) = rxt(k,443)*y(k,90)
131 315224452 : mat(k,285) = -(rxt(k,315)*y(k,56) + rxt(k,316)*y(k,228))
132 315224452 : mat(k,2129) = -rxt(k,315)*y(k,24)
133 315224452 : mat(k,1706) = -rxt(k,316)*y(k,24)
134 315224452 : mat(k,550) = -(rxt(k,317)*y(k,56) + rxt(k,318)*y(k,136) + rxt(k,343)*y(k,228))
135 315224452 : mat(k,2135) = -rxt(k,317)*y(k,25)
136 315224452 : mat(k,2184) = -rxt(k,318)*y(k,25)
137 315224452 : mat(k,1742) = -rxt(k,343)*y(k,25)
138 315224452 : mat(k,265) = -(rxt(k,323)*y(k,228))
139 315224452 : mat(k,1704) = -rxt(k,323)*y(k,26)
140 315224452 : mat(k,898) = .800_r8*rxt(k,319)*y(k,197) + .200_r8*rxt(k,320)*y(k,201)
141 315224452 : mat(k,2371) = .200_r8*rxt(k,320)*y(k,197)
142 315224452 : mat(k,350) = -(rxt(k,324)*y(k,228))
143 315224452 : mat(k,1716) = -rxt(k,324)*y(k,27)
144 315224452 : mat(k,2282) = rxt(k,321)*y(k,197)
145 315224452 : mat(k,899) = rxt(k,321)*y(k,90)
146 315224452 : mat(k,298) = -(rxt(k,325)*y(k,56) + rxt(k,326)*y(k,228))
147 315224452 : mat(k,2130) = -rxt(k,325)*y(k,28)
148 315224452 : mat(k,1708) = -rxt(k,326)*y(k,28)
149 : mat(k,1133) = -(rxt(k,346)*y(k,126) + rxt(k,347)*y(k,136) + rxt(k,365) &
150 315224452 : *y(k,228))
151 315224452 : mat(k,1628) = -rxt(k,346)*y(k,29)
152 315224452 : mat(k,2201) = -rxt(k,347)*y(k,29)
153 315224452 : mat(k,1791) = -rxt(k,365)*y(k,29)
154 315224452 : mat(k,878) = .130_r8*rxt(k,425)*y(k,136)
155 315224452 : mat(k,2201) = mat(k,2201) + .130_r8*rxt(k,425)*y(k,99)
156 315224452 : mat(k,409) = -(rxt(k,351)*y(k,228))
157 315224452 : mat(k,1724) = -rxt(k,351)*y(k,30)
158 315224452 : mat(k,2286) = rxt(k,349)*y(k,198)
159 315224452 : mat(k,934) = rxt(k,349)*y(k,90)
160 315224452 : mat(k,304) = -(rxt(k,352)*y(k,228) + rxt(k,355)*y(k,56))
161 315224452 : mat(k,1709) = -rxt(k,352)*y(k,31)
162 315224452 : mat(k,2131) = -rxt(k,355)*y(k,31)
163 315224452 : mat(k,269) = -(rxt(k,448)*y(k,228))
164 315224452 : mat(k,1705) = -rxt(k,448)*y(k,32)
165 315224452 : mat(k,2277) = rxt(k,446)*y(k,199)
166 315224452 : mat(k,633) = rxt(k,446)*y(k,90)
167 315224452 : mat(k,101) = -(rxt(k,239)*y(k,224))
168 315224452 : mat(k,1998) = -rxt(k,239)*y(k,33)
169 315224452 : mat(k,139) = -(rxt(k,240)*y(k,224))
170 315224452 : mat(k,2003) = -rxt(k,240)*y(k,34)
171 315224452 : mat(k,144) = -(rxt(k,266)*y(k,224))
172 315224452 : mat(k,2004) = -rxt(k,266)*y(k,35)
173 315224452 : mat(k,111) = -(rxt(k,241)*y(k,224))
174 315224452 : mat(k,2000) = -rxt(k,241)*y(k,36)
175 315224452 : mat(k,149) = -(rxt(k,242)*y(k,224))
176 315224452 : mat(k,2005) = -rxt(k,242)*y(k,37)
177 315224452 : mat(k,115) = -(rxt(k,243)*y(k,224))
178 315224452 : mat(k,2001) = -rxt(k,243)*y(k,38)
179 315224452 : mat(k,154) = -(rxt(k,244)*y(k,224))
180 315224452 : mat(k,2006) = -rxt(k,244)*y(k,39)
181 315224452 : mat(k,119) = -(rxt(k,245)*y(k,224))
182 315224452 : mat(k,2002) = -rxt(k,245)*y(k,40)
183 315224452 : mat(k,479) = -(rxt(k,277)*y(k,56) + rxt(k,278)*y(k,228) + rxt(k,289)*y(k,224))
184 315224452 : mat(k,2134) = -rxt(k,277)*y(k,41)
185 315224452 : mat(k,1734) = -rxt(k,278)*y(k,41)
186 315224452 : mat(k,2016) = -rxt(k,289)*y(k,41)
187 : mat(k,1987) = -(rxt(k,214)*y(k,56) + rxt(k,250)*y(k,17) + rxt(k,294)*y(k,90) &
188 : + rxt(k,295)*y(k,126) + rxt(k,296)*y(k,134) + rxt(k,297) &
189 315224452 : *y(k,228))
190 315224452 : mat(k,2163) = -rxt(k,214)*y(k,42)
191 315224452 : mat(k,1517) = -rxt(k,250)*y(k,42)
192 315224452 : mat(k,2360) = -rxt(k,294)*y(k,42)
193 315224452 : mat(k,1656) = -rxt(k,295)*y(k,42)
194 315224452 : mat(k,2096) = -rxt(k,296)*y(k,42)
195 315224452 : mat(k,1821) = -rxt(k,297)*y(k,42)
196 315224452 : mat(k,650) = .400_r8*rxt(k,396)*y(k,228)
197 315224452 : mat(k,989) = .340_r8*rxt(k,480)*y(k,136)
198 315224452 : mat(k,362) = .500_r8*rxt(k,367)*y(k,126)
199 315224452 : mat(k,555) = rxt(k,318)*y(k,136)
200 315224452 : mat(k,1145) = .500_r8*rxt(k,347)*y(k,136)
201 315224452 : mat(k,624) = .500_r8*rxt(k,335)*y(k,228)
202 315224452 : mat(k,826) = rxt(k,302)*y(k,228)
203 315224452 : mat(k,456) = .300_r8*rxt(k,303)*y(k,228)
204 315224452 : mat(k,2252) = (rxt(k,311)+rxt(k,312))*y(k,224)
205 315224452 : mat(k,1597) = rxt(k,221)*y(k,201)
206 315224452 : mat(k,1169) = .800_r8*rxt(k,340)*y(k,228)
207 : mat(k,2360) = mat(k,2360) + .450_r8*rxt(k,383)*y(k,215) + .150_r8*rxt(k,362) &
208 315224452 : *y(k,232)
209 315224452 : mat(k,888) = .910_r8*rxt(k,425)*y(k,136)
210 315224452 : mat(k,595) = .300_r8*rxt(k,416)*y(k,228)
211 315224452 : mat(k,1276) = .120_r8*rxt(k,378)*y(k,136)
212 315224452 : mat(k,618) = .500_r8*rxt(k,391)*y(k,228)
213 315224452 : mat(k,1033) = .340_r8*rxt(k,483)*y(k,136)
214 315224452 : mat(k,1385) = .600_r8*rxt(k,392)*y(k,136)
215 : mat(k,1916) = .100_r8*rxt(k,398)*y(k,192) + rxt(k,301)*y(k,201) &
216 : + .500_r8*rxt(k,369)*y(k,204) + .500_r8*rxt(k,337)*y(k,206) &
217 : + .920_r8*rxt(k,408)*y(k,208) + .250_r8*rxt(k,376)*y(k,213) &
218 : + rxt(k,385)*y(k,215) + rxt(k,359)*y(k,231) + rxt(k,363) &
219 : *y(k,232) + .340_r8*rxt(k,492)*y(k,233) + .320_r8*rxt(k,497) &
220 315224452 : *y(k,234) + .250_r8*rxt(k,433)*y(k,237)
221 : mat(k,1656) = mat(k,1656) + .500_r8*rxt(k,367)*y(k,16) + rxt(k,409)*y(k,208) &
222 315224452 : + .250_r8*rxt(k,375)*y(k,213) + rxt(k,386)*y(k,215)
223 : mat(k,2227) = .340_r8*rxt(k,480)*y(k,6) + rxt(k,318)*y(k,25) &
224 : + .500_r8*rxt(k,347)*y(k,29) + .910_r8*rxt(k,425)*y(k,99) &
225 : + .120_r8*rxt(k,378)*y(k,105) + .340_r8*rxt(k,483)*y(k,110) &
226 315224452 : + .600_r8*rxt(k,392)*y(k,111)
227 315224452 : mat(k,540) = rxt(k,342)*y(k,228)
228 315224452 : mat(k,1125) = .680_r8*rxt(k,501)*y(k,228)
229 315224452 : mat(k,1050) = .100_r8*rxt(k,398)*y(k,124)
230 315224452 : mat(k,907) = .700_r8*rxt(k,320)*y(k,201)
231 315224452 : mat(k,942) = rxt(k,348)*y(k,201)
232 : mat(k,1435) = rxt(k,331)*y(k,201) + rxt(k,405)*y(k,208) + .250_r8*rxt(k,372) &
233 315224452 : *y(k,213) + rxt(k,381)*y(k,215) + .250_r8*rxt(k,430)*y(k,237)
234 : mat(k,2412) = rxt(k,221)*y(k,59) + rxt(k,301)*y(k,124) + .700_r8*rxt(k,320) &
235 : *y(k,197) + rxt(k,348)*y(k,198) + rxt(k,331)*y(k,200) + ( &
236 : + 4.000_r8*rxt(k,298)+2.000_r8*rxt(k,299))*y(k,201) &
237 : + 1.500_r8*rxt(k,406)*y(k,208) + .750_r8*rxt(k,411)*y(k,209) &
238 : + .800_r8*rxt(k,420)*y(k,210) + .880_r8*rxt(k,373)*y(k,213) &
239 : + 2.000_r8*rxt(k,382)*y(k,215) + .750_r8*rxt(k,485)*y(k,223) &
240 : + .800_r8*rxt(k,361)*y(k,232) + .930_r8*rxt(k,490)*y(k,233) &
241 315224452 : + .950_r8*rxt(k,495)*y(k,234) + .800_r8*rxt(k,431)*y(k,237)
242 315224452 : mat(k,580) = .500_r8*rxt(k,369)*y(k,124)
243 315224452 : mat(k,803) = .500_r8*rxt(k,337)*y(k,124)
244 : mat(k,1309) = .920_r8*rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126) + rxt(k,405) &
245 315224452 : *y(k,200) + 1.500_r8*rxt(k,406)*y(k,201)
246 315224452 : mat(k,1342) = .750_r8*rxt(k,411)*y(k,201)
247 315224452 : mat(k,1263) = .800_r8*rxt(k,420)*y(k,201)
248 : mat(k,1364) = .250_r8*rxt(k,376)*y(k,124) + .250_r8*rxt(k,375)*y(k,126) &
249 315224452 : + .250_r8*rxt(k,372)*y(k,200) + .880_r8*rxt(k,373)*y(k,201)
250 : mat(k,1404) = .450_r8*rxt(k,383)*y(k,90) + rxt(k,385)*y(k,124) + rxt(k,386) &
251 : *y(k,126) + rxt(k,381)*y(k,200) + 2.000_r8*rxt(k,382)*y(k,201) &
252 315224452 : + 4.000_r8*rxt(k,384)*y(k,215)
253 315224452 : mat(k,1114) = .750_r8*rxt(k,485)*y(k,201)
254 315224452 : mat(k,2030) = (rxt(k,311)+rxt(k,312))*y(k,54)
255 : mat(k,1821) = mat(k,1821) + .400_r8*rxt(k,396)*y(k,1) + .500_r8*rxt(k,335) &
256 : *y(k,51) + rxt(k,302)*y(k,52) + .300_r8*rxt(k,303)*y(k,53) &
257 : + .800_r8*rxt(k,340)*y(k,74) + .300_r8*rxt(k,416)*y(k,100) &
258 : + .500_r8*rxt(k,391)*y(k,109) + rxt(k,342)*y(k,141) &
259 315224452 : + .680_r8*rxt(k,501)*y(k,181)
260 315224452 : mat(k,821) = rxt(k,359)*y(k,124)
261 : mat(k,1223) = .150_r8*rxt(k,362)*y(k,90) + rxt(k,363)*y(k,124) &
262 315224452 : + .800_r8*rxt(k,361)*y(k,201)
263 315224452 : mat(k,1185) = .340_r8*rxt(k,492)*y(k,124) + .930_r8*rxt(k,490)*y(k,201)
264 315224452 : mat(k,1068) = .320_r8*rxt(k,497)*y(k,124) + .950_r8*rxt(k,495)*y(k,201)
265 : mat(k,1241) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,430)*y(k,200) &
266 325174377 : + .800_r8*rxt(k,431)*y(k,201)
267 : end do
268 9949925 : end subroutine nlnmat01
269 9949925 : subroutine nlnmat02( avec_len, mat, y, rxt )
270 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
271 : implicit none
272 : !----------------------------------------------
273 : ! ... dummy arguments
274 : !----------------------------------------------
275 : integer, intent(in) :: avec_len
276 : real(r8), intent(in) :: y(veclen,gas_pcnst)
277 : real(r8), intent(in) :: rxt(veclen,rxntot)
278 : real(r8), intent(inout) :: mat(veclen,nzcnt)
279 : !----------------------------------------------
280 : ! ... local variables
281 : !----------------------------------------------
282 : integer :: k
283 : !----------------------------------------------
284 : ! ... complete matrix entries implicit species
285 : !----------------------------------------------
286 325174377 : do k = 1,avec_len
287 315224452 : mat(k,602) = -(rxt(k,279)*y(k,56) + rxt(k,280)*y(k,228) + rxt(k,290)*y(k,224))
288 315224452 : mat(k,2137) = -rxt(k,279)*y(k,43)
289 315224452 : mat(k,1748) = -rxt(k,280)*y(k,43)
290 315224452 : mat(k,2017) = -rxt(k,290)*y(k,43)
291 315224452 : mat(k,123) = -(rxt(k,281)*y(k,228))
292 315224452 : mat(k,1683) = -rxt(k,281)*y(k,44)
293 315224452 : mat(k,1151) = -(rxt(k,327)*y(k,126) + rxt(k,328)*y(k,228))
294 315224452 : mat(k,1629) = -rxt(k,327)*y(k,45)
295 315224452 : mat(k,1792) = -rxt(k,328)*y(k,45)
296 315224452 : mat(k,646) = .800_r8*rxt(k,396)*y(k,228)
297 315224452 : mat(k,358) = rxt(k,367)*y(k,126)
298 315224452 : mat(k,266) = rxt(k,323)*y(k,228)
299 315224452 : mat(k,352) = .500_r8*rxt(k,324)*y(k,228)
300 315224452 : mat(k,1134) = .500_r8*rxt(k,347)*y(k,136)
301 315224452 : mat(k,2333) = .200_r8*rxt(k,387)*y(k,217)
302 315224452 : mat(k,1371) = .100_r8*rxt(k,392)*y(k,136)
303 : mat(k,1890) = .400_r8*rxt(k,398)*y(k,192) + rxt(k,322)*y(k,197) &
304 : + .270_r8*rxt(k,350)*y(k,198) + rxt(k,369)*y(k,204) + rxt(k,388) &
305 315224452 : *y(k,217) + rxt(k,359)*y(k,231)
306 315224452 : mat(k,1629) = mat(k,1629) + rxt(k,367)*y(k,16)
307 315224452 : mat(k,2202) = .500_r8*rxt(k,347)*y(k,29) + .100_r8*rxt(k,392)*y(k,111)
308 315224452 : mat(k,1044) = .400_r8*rxt(k,398)*y(k,124)
309 : mat(k,902) = rxt(k,322)*y(k,124) + 3.200_r8*rxt(k,319)*y(k,197) &
310 315224452 : + .800_r8*rxt(k,320)*y(k,201)
311 315224452 : mat(k,937) = .270_r8*rxt(k,350)*y(k,124)
312 315224452 : mat(k,2388) = .800_r8*rxt(k,320)*y(k,197)
313 315224452 : mat(k,576) = rxt(k,369)*y(k,124)
314 315224452 : mat(k,699) = .200_r8*rxt(k,387)*y(k,90) + rxt(k,388)*y(k,124)
315 : mat(k,1792) = mat(k,1792) + .800_r8*rxt(k,396)*y(k,1) + rxt(k,323)*y(k,26) &
316 315224452 : + .500_r8*rxt(k,324)*y(k,27)
317 315224452 : mat(k,815) = rxt(k,359)*y(k,124)
318 315224452 : mat(k,371) = -(rxt(k,282)*y(k,56) + rxt(k,283)*y(k,228))
319 315224452 : mat(k,2132) = -rxt(k,282)*y(k,46)
320 315224452 : mat(k,1719) = -rxt(k,283)*y(k,46)
321 315224452 : mat(k,104) = -(rxt(k,329)*y(k,228))
322 315224452 : mat(k,1682) = -rxt(k,329)*y(k,47)
323 315224452 : mat(k,1080) = -(rxt(k,366)*y(k,228))
324 315224452 : mat(k,1787) = -rxt(k,366)*y(k,48)
325 315224452 : mat(k,645) = .800_r8*rxt(k,396)*y(k,228)
326 315224452 : mat(k,979) = .520_r8*rxt(k,480)*y(k,136)
327 315224452 : mat(k,357) = .500_r8*rxt(k,367)*y(k,126)
328 315224452 : mat(k,1023) = .520_r8*rxt(k,483)*y(k,136)
329 : mat(k,1886) = .250_r8*rxt(k,398)*y(k,192) + .820_r8*rxt(k,350)*y(k,198) &
330 : + .500_r8*rxt(k,369)*y(k,204) + .270_r8*rxt(k,492)*y(k,233) &
331 315224452 : + .040_r8*rxt(k,497)*y(k,234)
332 315224452 : mat(k,1624) = .500_r8*rxt(k,367)*y(k,16)
333 315224452 : mat(k,2198) = .520_r8*rxt(k,480)*y(k,6) + .520_r8*rxt(k,483)*y(k,110)
334 315224452 : mat(k,1118) = .500_r8*rxt(k,501)*y(k,228)
335 315224452 : mat(k,1043) = .250_r8*rxt(k,398)*y(k,124)
336 315224452 : mat(k,936) = .820_r8*rxt(k,350)*y(k,124) + .820_r8*rxt(k,348)*y(k,201)
337 : mat(k,2384) = .820_r8*rxt(k,348)*y(k,198) + .150_r8*rxt(k,490)*y(k,233) &
338 315224452 : + .025_r8*rxt(k,495)*y(k,234)
339 315224452 : mat(k,575) = .500_r8*rxt(k,369)*y(k,124)
340 : mat(k,1787) = mat(k,1787) + .800_r8*rxt(k,396)*y(k,1) + .500_r8*rxt(k,501) &
341 315224452 : *y(k,181)
342 315224452 : mat(k,1174) = .270_r8*rxt(k,492)*y(k,124) + .150_r8*rxt(k,490)*y(k,201)
343 315224452 : mat(k,1064) = .040_r8*rxt(k,497)*y(k,124) + .025_r8*rxt(k,495)*y(k,201)
344 315224452 : mat(k,1281) = -(rxt(k,353)*y(k,126) + rxt(k,354)*y(k,228))
345 315224452 : mat(k,1639) = -rxt(k,353)*y(k,49)
346 315224452 : mat(k,1802) = -rxt(k,354)*y(k,49)
347 315224452 : mat(k,2342) = .070_r8*rxt(k,450)*y(k,202) + .070_r8*rxt(k,456)*y(k,216)
348 315224452 : mat(k,1209) = rxt(k,356)*y(k,228)
349 315224452 : mat(k,1270) = .880_r8*rxt(k,378)*y(k,136)
350 315224452 : mat(k,1374) = .500_r8*rxt(k,392)*y(k,136)
351 : mat(k,1900) = .170_r8*rxt(k,451)*y(k,202) + .050_r8*rxt(k,414)*y(k,209) &
352 : + .250_r8*rxt(k,376)*y(k,213) + .170_r8*rxt(k,457)*y(k,216) &
353 : + .400_r8*rxt(k,467)*y(k,235) + .250_r8*rxt(k,433)*y(k,237) &
354 315224452 : + .540_r8*rxt(k,473)*y(k,238) + .510_r8*rxt(k,476)*y(k,240)
355 : mat(k,1639) = mat(k,1639) + .050_r8*rxt(k,415)*y(k,209) + .250_r8*rxt(k,375) &
356 315224452 : *y(k,213) + .250_r8*rxt(k,434)*y(k,237)
357 315224452 : mat(k,893) = rxt(k,357)*y(k,228)
358 315224452 : mat(k,2210) = .880_r8*rxt(k,378)*y(k,105) + .500_r8*rxt(k,392)*y(k,111)
359 315224452 : mat(k,1422) = .250_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237)
360 : mat(k,2397) = .240_r8*rxt(k,373)*y(k,213) + .500_r8*rxt(k,361)*y(k,232) &
361 315224452 : + .100_r8*rxt(k,431)*y(k,237)
362 315224452 : mat(k,780) = .070_r8*rxt(k,450)*y(k,90) + .170_r8*rxt(k,451)*y(k,124)
363 315224452 : mat(k,1331) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126)
364 : mat(k,1355) = .250_r8*rxt(k,376)*y(k,124) + .250_r8*rxt(k,375)*y(k,126) &
365 315224452 : + .250_r8*rxt(k,372)*y(k,200) + .240_r8*rxt(k,373)*y(k,201)
366 315224452 : mat(k,913) = .070_r8*rxt(k,456)*y(k,90) + .170_r8*rxt(k,457)*y(k,124)
367 315224452 : mat(k,1802) = mat(k,1802) + rxt(k,356)*y(k,96) + rxt(k,357)*y(k,127)
368 315224452 : mat(k,1218) = .500_r8*rxt(k,361)*y(k,201)
369 315224452 : mat(k,756) = .400_r8*rxt(k,467)*y(k,124)
370 : mat(k,1234) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) &
371 315224452 : + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201)
372 315224452 : mat(k,772) = .540_r8*rxt(k,473)*y(k,124)
373 315224452 : mat(k,512) = .510_r8*rxt(k,476)*y(k,124)
374 315224452 : mat(k,705) = -(rxt(k,334)*y(k,228))
375 315224452 : mat(k,1758) = -rxt(k,334)*y(k,50)
376 315224452 : mat(k,1129) = .120_r8*rxt(k,347)*y(k,136)
377 315224452 : mat(k,2309) = .150_r8*rxt(k,332)*y(k,200) + .150_r8*rxt(k,383)*y(k,215)
378 315224452 : mat(k,2186) = .120_r8*rxt(k,347)*y(k,29)
379 315224452 : mat(k,1413) = .150_r8*rxt(k,332)*y(k,90) + .100_r8*rxt(k,331)*y(k,201)
380 315224452 : mat(k,2376) = .100_r8*rxt(k,331)*y(k,200)
381 315224452 : mat(k,1394) = .150_r8*rxt(k,383)*y(k,90)
382 315224452 : mat(k,620) = -(rxt(k,335)*y(k,228))
383 315224452 : mat(k,1750) = -rxt(k,335)*y(k,51)
384 315224452 : mat(k,2303) = .400_r8*rxt(k,332)*y(k,200) + .400_r8*rxt(k,383)*y(k,215)
385 315224452 : mat(k,1412) = .400_r8*rxt(k,332)*y(k,90)
386 315224452 : mat(k,1393) = .400_r8*rxt(k,383)*y(k,90)
387 315224452 : mat(k,824) = -(rxt(k,302)*y(k,228))
388 315224452 : mat(k,1768) = -rxt(k,302)*y(k,52)
389 315224452 : mat(k,900) = .300_r8*rxt(k,320)*y(k,201)
390 : mat(k,2377) = .300_r8*rxt(k,320)*y(k,197) + 2.000_r8*rxt(k,299)*y(k,201) &
391 : + .250_r8*rxt(k,406)*y(k,208) + .250_r8*rxt(k,411)*y(k,209) &
392 : + .200_r8*rxt(k,420)*y(k,210) + .250_r8*rxt(k,373)*y(k,213) &
393 : + .250_r8*rxt(k,485)*y(k,223) + .500_r8*rxt(k,361)*y(k,232) &
394 : + .250_r8*rxt(k,490)*y(k,233) + .250_r8*rxt(k,495)*y(k,234) &
395 315224452 : + .300_r8*rxt(k,431)*y(k,237)
396 315224452 : mat(k,1291) = .250_r8*rxt(k,406)*y(k,201)
397 315224452 : mat(k,1320) = .250_r8*rxt(k,411)*y(k,201)
398 315224452 : mat(k,1247) = .200_r8*rxt(k,420)*y(k,201)
399 315224452 : mat(k,1349) = .250_r8*rxt(k,373)*y(k,201)
400 315224452 : mat(k,1104) = .250_r8*rxt(k,485)*y(k,201)
401 315224452 : mat(k,1215) = .500_r8*rxt(k,361)*y(k,201)
402 315224452 : mat(k,1173) = .250_r8*rxt(k,490)*y(k,201)
403 315224452 : mat(k,1061) = .250_r8*rxt(k,495)*y(k,201)
404 315224452 : mat(k,1228) = .300_r8*rxt(k,431)*y(k,201)
405 315224452 : mat(k,454) = -(rxt(k,303)*y(k,228))
406 315224452 : mat(k,1730) = -rxt(k,303)*y(k,53)
407 315224452 : mat(k,2292) = rxt(k,300)*y(k,201)
408 315224452 : mat(k,2374) = rxt(k,300)*y(k,90)
409 : mat(k,2259) = -(rxt(k,215)*y(k,56) + rxt(k,271)*y(k,73) + rxt(k,304)*y(k,228) &
410 315224452 : + (rxt(k,310) + rxt(k,311) + rxt(k,312)) * y(k,224))
411 315224452 : mat(k,2170) = -rxt(k,215)*y(k,54)
412 315224452 : mat(k,931) = -rxt(k,271)*y(k,54)
413 315224452 : mat(k,1828) = -rxt(k,304)*y(k,54)
414 315224452 : mat(k,2037) = -(rxt(k,310) + rxt(k,311) + rxt(k,312)) * y(k,54)
415 315224452 : mat(k,1147) = .100_r8*rxt(k,347)*y(k,136)
416 315224452 : mat(k,2234) = .100_r8*rxt(k,347)*y(k,29)
417 315224452 : mat(k,385) = -(rxt(k,267)*y(k,224) + rxt(k,284)*y(k,56) + rxt(k,285)*y(k,228))
418 315224452 : mat(k,2015) = -rxt(k,267)*y(k,55)
419 315224452 : mat(k,2133) = -rxt(k,284)*y(k,55)
420 315224452 : mat(k,1720) = -rxt(k,285)*y(k,55)
421 : mat(k,2168) = -(rxt(k,214)*y(k,42) + rxt(k,215)*y(k,54) + rxt(k,216)*y(k,77) &
422 : + rxt(k,217)*y(k,79) + (rxt(k,218) + rxt(k,219)) * y(k,90) &
423 : + rxt(k,220)*y(k,136) + rxt(k,227)*y(k,60) + rxt(k,236)*y(k,93) &
424 : + rxt(k,277)*y(k,41) + rxt(k,279)*y(k,43) + rxt(k,282)*y(k,46) &
425 315224452 : + rxt(k,284)*y(k,55) + rxt(k,325)*y(k,28) + rxt(k,355)*y(k,31))
426 315224452 : mat(k,1992) = -rxt(k,214)*y(k,56)
427 315224452 : mat(k,2257) = -rxt(k,215)*y(k,56)
428 315224452 : mat(k,1469) = -rxt(k,216)*y(k,56)
429 315224452 : mat(k,586) = -rxt(k,217)*y(k,56)
430 315224452 : mat(k,2365) = -(rxt(k,218) + rxt(k,219)) * y(k,56)
431 315224452 : mat(k,2232) = -rxt(k,220)*y(k,56)
432 315224452 : mat(k,963) = -rxt(k,227)*y(k,56)
433 315224452 : mat(k,842) = -rxt(k,236)*y(k,56)
434 315224452 : mat(k,484) = -rxt(k,277)*y(k,56)
435 315224452 : mat(k,607) = -rxt(k,279)*y(k,56)
436 315224452 : mat(k,375) = -rxt(k,282)*y(k,56)
437 315224452 : mat(k,390) = -rxt(k,284)*y(k,56)
438 315224452 : mat(k,302) = -rxt(k,325)*y(k,56)
439 315224452 : mat(k,308) = -rxt(k,355)*y(k,56)
440 315224452 : mat(k,1576) = rxt(k,255)*y(k,59)
441 315224452 : mat(k,103) = 4.000_r8*rxt(k,239)*y(k,224)
442 315224452 : mat(k,143) = rxt(k,240)*y(k,224)
443 315224452 : mat(k,114) = 2.000_r8*rxt(k,241)*y(k,224)
444 315224452 : mat(k,153) = 2.000_r8*rxt(k,242)*y(k,224)
445 315224452 : mat(k,118) = 2.000_r8*rxt(k,243)*y(k,224)
446 315224452 : mat(k,158) = rxt(k,244)*y(k,224)
447 315224452 : mat(k,122) = 2.000_r8*rxt(k,245)*y(k,224)
448 315224452 : mat(k,125) = 3.000_r8*rxt(k,281)*y(k,228)
449 315224452 : mat(k,375) = mat(k,375) + rxt(k,283)*y(k,228)
450 : mat(k,1602) = rxt(k,255)*y(k,19) + (4.000_r8*rxt(k,222)+2.000_r8*rxt(k,224)) &
451 : *y(k,59) + rxt(k,226)*y(k,124) + rxt(k,231)*y(k,134) &
452 : + rxt(k,510)*y(k,152) + rxt(k,221)*y(k,201) + rxt(k,232) &
453 315224452 : *y(k,228)
454 315224452 : mat(k,249) = rxt(k,276)*y(k,224)
455 315224452 : mat(k,245) = rxt(k,291)*y(k,224) + rxt(k,286)*y(k,228)
456 315224452 : mat(k,255) = rxt(k,292)*y(k,224) + rxt(k,287)*y(k,228)
457 315224452 : mat(k,296) = rxt(k,293)*y(k,224) + rxt(k,288)*y(k,228)
458 315224452 : mat(k,1506) = rxt(k,234)*y(k,134) + rxt(k,246)*y(k,224) + rxt(k,235)*y(k,228)
459 315224452 : mat(k,1921) = rxt(k,226)*y(k,59)
460 315224452 : mat(k,2101) = rxt(k,231)*y(k,59) + rxt(k,234)*y(k,85)
461 315224452 : mat(k,1486) = rxt(k,510)*y(k,59)
462 315224452 : mat(k,2417) = rxt(k,221)*y(k,59)
463 : mat(k,2035) = 4.000_r8*rxt(k,239)*y(k,33) + rxt(k,240)*y(k,34) &
464 : + 2.000_r8*rxt(k,241)*y(k,36) + 2.000_r8*rxt(k,242)*y(k,37) &
465 : + 2.000_r8*rxt(k,243)*y(k,38) + rxt(k,244)*y(k,39) &
466 : + 2.000_r8*rxt(k,245)*y(k,40) + rxt(k,276)*y(k,65) + rxt(k,291) &
467 : *y(k,82) + rxt(k,292)*y(k,83) + rxt(k,293)*y(k,84) + rxt(k,246) &
468 315224452 : *y(k,85)
469 : mat(k,1826) = 3.000_r8*rxt(k,281)*y(k,44) + rxt(k,283)*y(k,46) + rxt(k,232) &
470 : *y(k,59) + rxt(k,286)*y(k,82) + rxt(k,287)*y(k,83) + rxt(k,288) &
471 315224452 : *y(k,84) + rxt(k,235)*y(k,85)
472 315224452 : mat(k,2128) = rxt(k,227)*y(k,60)
473 315224452 : mat(k,1581) = 2.000_r8*rxt(k,223)*y(k,59)
474 315224452 : mat(k,953) = rxt(k,227)*y(k,56) + (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,85)
475 : mat(k,1490) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,60) + (rxt(k,563) &
476 315224452 : +rxt(k,569)+rxt(k,574))*y(k,93)
477 315224452 : mat(k,836) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,85)
478 315224452 : mat(k,1580) = 2.000_r8*rxt(k,248)*y(k,59)
479 : mat(k,1592) = -(rxt(k,221)*y(k,201) + (4._r8*rxt(k,222) + 4._r8*rxt(k,223) &
480 : + 4._r8*rxt(k,224) + 4._r8*rxt(k,248)) * y(k,59) + rxt(k,225) &
481 : *y(k,90) + rxt(k,226)*y(k,124) + rxt(k,228)*y(k,125) + rxt(k,231) &
482 : *y(k,134) + (rxt(k,232) + rxt(k,233)) * y(k,228) + (rxt(k,254) &
483 315224452 : + rxt(k,255) + rxt(k,256)) * y(k,19) + rxt(k,510)*y(k,152))
484 315224452 : mat(k,2407) = -rxt(k,221)*y(k,59)
485 315224452 : mat(k,2355) = -rxt(k,225)*y(k,59)
486 315224452 : mat(k,1911) = -rxt(k,226)*y(k,59)
487 315224452 : mat(k,1956) = -rxt(k,228)*y(k,59)
488 315224452 : mat(k,2091) = -rxt(k,231)*y(k,59)
489 315224452 : mat(k,1816) = -(rxt(k,232) + rxt(k,233)) * y(k,59)
490 315224452 : mat(k,1566) = -(rxt(k,254) + rxt(k,255) + rxt(k,256)) * y(k,59)
491 315224452 : mat(k,1480) = -rxt(k,510)*y(k,59)
492 315224452 : mat(k,2158) = rxt(k,219)*y(k,90) + rxt(k,236)*y(k,93) + rxt(k,220)*y(k,136)
493 315224452 : mat(k,957) = rxt(k,229)*y(k,134)
494 315224452 : mat(k,1498) = rxt(k,247)*y(k,224)
495 315224452 : mat(k,2355) = mat(k,2355) + rxt(k,219)*y(k,56)
496 315224452 : mat(k,839) = rxt(k,236)*y(k,56) + rxt(k,237)*y(k,134) + rxt(k,238)*y(k,228)
497 315224452 : mat(k,2091) = mat(k,2091) + rxt(k,229)*y(k,60) + rxt(k,237)*y(k,93)
498 315224452 : mat(k,2222) = rxt(k,220)*y(k,56)
499 315224452 : mat(k,337) = rxt(k,515)*y(k,152)
500 315224452 : mat(k,1480) = mat(k,1480) + rxt(k,515)*y(k,138)
501 315224452 : mat(k,2025) = rxt(k,247)*y(k,85)
502 325174377 : mat(k,1816) = mat(k,1816) + rxt(k,238)*y(k,93)
503 : end do
504 9949925 : end subroutine nlnmat02
505 9949925 : subroutine nlnmat03( avec_len, mat, y, rxt )
506 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
507 : implicit none
508 : !----------------------------------------------
509 : ! ... dummy arguments
510 : !----------------------------------------------
511 : integer, intent(in) :: avec_len
512 : real(r8), intent(in) :: y(veclen,gas_pcnst)
513 : real(r8), intent(in) :: rxt(veclen,rxntot)
514 : real(r8), intent(inout) :: mat(veclen,nzcnt)
515 : !----------------------------------------------
516 : ! ... local variables
517 : !----------------------------------------------
518 : integer :: k
519 : !----------------------------------------------
520 : ! ... complete matrix entries implicit species
521 : !----------------------------------------------
522 325174377 : do k = 1,avec_len
523 315224452 : mat(k,955) = -(rxt(k,227)*y(k,56) + rxt(k,229)*y(k,134) + rxt(k,230)*y(k,228) &
524 315224452 : + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,85))
525 315224452 : mat(k,2143) = -rxt(k,227)*y(k,60)
526 315224452 : mat(k,2081) = -rxt(k,229)*y(k,60)
527 315224452 : mat(k,1779) = -rxt(k,230)*y(k,60)
528 315224452 : mat(k,1494) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,60)
529 315224452 : mat(k,1586) = rxt(k,228)*y(k,125)
530 315224452 : mat(k,1942) = rxt(k,228)*y(k,59)
531 315224452 : mat(k,1160) = -(rxt(k,314)*y(k,228))
532 315224452 : mat(k,1793) = -rxt(k,314)*y(k,62)
533 315224452 : mat(k,982) = .230_r8*rxt(k,480)*y(k,136)
534 315224452 : mat(k,1509) = rxt(k,250)*y(k,42)
535 315224452 : mat(k,288) = .350_r8*rxt(k,316)*y(k,228)
536 315224452 : mat(k,553) = .630_r8*rxt(k,318)*y(k,136)
537 315224452 : mat(k,1135) = .560_r8*rxt(k,347)*y(k,136)
538 : mat(k,1975) = rxt(k,250)*y(k,17) + rxt(k,214)*y(k,56) + rxt(k,295)*y(k,126) &
539 315224452 : + rxt(k,296)*y(k,134) + rxt(k,297)*y(k,228)
540 315224452 : mat(k,372) = rxt(k,282)*y(k,56)
541 315224452 : mat(k,1280) = rxt(k,353)*y(k,126) + rxt(k,354)*y(k,228)
542 315224452 : mat(k,2147) = rxt(k,214)*y(k,42) + rxt(k,282)*y(k,46)
543 315224452 : mat(k,1449) = rxt(k,591)*y(k,229)
544 315224452 : mat(k,1055) = rxt(k,341)*y(k,228)
545 : mat(k,2334) = .070_r8*rxt(k,450)*y(k,202) + .160_r8*rxt(k,453)*y(k,214) &
546 315224452 : + .140_r8*rxt(k,456)*y(k,216)
547 315224452 : mat(k,879) = .620_r8*rxt(k,425)*y(k,136)
548 315224452 : mat(k,1268) = .650_r8*rxt(k,378)*y(k,136)
549 315224452 : mat(k,1026) = .230_r8*rxt(k,483)*y(k,136)
550 315224452 : mat(k,1372) = .560_r8*rxt(k,392)*y(k,136)
551 : mat(k,1891) = .170_r8*rxt(k,451)*y(k,202) + .220_r8*rxt(k,376)*y(k,213) &
552 : + .400_r8*rxt(k,454)*y(k,214) + .350_r8*rxt(k,457)*y(k,216) &
553 315224452 : + .225_r8*rxt(k,492)*y(k,233) + .250_r8*rxt(k,433)*y(k,237)
554 : mat(k,1630) = rxt(k,295)*y(k,42) + rxt(k,353)*y(k,49) + .220_r8*rxt(k,375) &
555 315224452 : *y(k,213) + .500_r8*rxt(k,434)*y(k,237)
556 315224452 : mat(k,2083) = rxt(k,296)*y(k,42) + rxt(k,504)*y(k,139)
557 : mat(k,2203) = .230_r8*rxt(k,480)*y(k,6) + .630_r8*rxt(k,318)*y(k,25) &
558 : + .560_r8*rxt(k,347)*y(k,29) + .620_r8*rxt(k,425)*y(k,99) &
559 : + .650_r8*rxt(k,378)*y(k,105) + .230_r8*rxt(k,483)*y(k,110) &
560 315224452 : + .560_r8*rxt(k,392)*y(k,111)
561 315224452 : mat(k,366) = rxt(k,504)*y(k,134) + rxt(k,505)*y(k,228)
562 315224452 : mat(k,1120) = .700_r8*rxt(k,501)*y(k,228)
563 315224452 : mat(k,1416) = .220_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237)
564 : mat(k,2389) = .110_r8*rxt(k,373)*y(k,213) + .125_r8*rxt(k,490)*y(k,233) &
565 315224452 : + .200_r8*rxt(k,431)*y(k,237)
566 315224452 : mat(k,779) = .070_r8*rxt(k,450)*y(k,90) + .170_r8*rxt(k,451)*y(k,124)
567 : mat(k,1350) = .220_r8*rxt(k,376)*y(k,124) + .220_r8*rxt(k,375)*y(k,126) &
568 315224452 : + .220_r8*rxt(k,372)*y(k,200) + .110_r8*rxt(k,373)*y(k,201)
569 315224452 : mat(k,742) = .160_r8*rxt(k,453)*y(k,90) + .400_r8*rxt(k,454)*y(k,124)
570 315224452 : mat(k,912) = .140_r8*rxt(k,456)*y(k,90) + .350_r8*rxt(k,457)*y(k,124)
571 : mat(k,1793) = mat(k,1793) + .350_r8*rxt(k,316)*y(k,24) + rxt(k,297)*y(k,42) &
572 : + rxt(k,354)*y(k,49) + rxt(k,341)*y(k,75) + rxt(k,505)*y(k,139) &
573 315224452 : + .700_r8*rxt(k,501)*y(k,181)
574 315224452 : mat(k,809) = rxt(k,591)*y(k,63)
575 315224452 : mat(k,1176) = .225_r8*rxt(k,492)*y(k,124) + .125_r8*rxt(k,490)*y(k,201)
576 : mat(k,1230) = .250_r8*rxt(k,433)*y(k,124) + .500_r8*rxt(k,434)*y(k,126) &
577 315224452 : + .250_r8*rxt(k,430)*y(k,200) + .200_r8*rxt(k,431)*y(k,201)
578 315224452 : mat(k,1450) = -(rxt(k,591)*y(k,229))
579 315224452 : mat(k,810) = -rxt(k,591)*y(k,63)
580 315224452 : mat(k,986) = .270_r8*rxt(k,480)*y(k,136)
581 315224452 : mat(k,1139) = .200_r8*rxt(k,347)*y(k,136)
582 315224452 : mat(k,706) = rxt(k,334)*y(k,228)
583 315224452 : mat(k,622) = .500_r8*rxt(k,335)*y(k,228)
584 315224452 : mat(k,1161) = rxt(k,314)*y(k,228)
585 315224452 : mat(k,1167) = .800_r8*rxt(k,340)*y(k,228)
586 315224452 : mat(k,1056) = rxt(k,341)*y(k,228)
587 315224452 : mat(k,920) = rxt(k,306)*y(k,228)
588 315224452 : mat(k,2349) = .450_r8*rxt(k,383)*y(k,215)
589 315224452 : mat(k,614) = .500_r8*rxt(k,391)*y(k,228)
590 315224452 : mat(k,1030) = .270_r8*rxt(k,483)*y(k,136)
591 315224452 : mat(k,1379) = .100_r8*rxt(k,392)*y(k,136)
592 315224452 : mat(k,1907) = rxt(k,333)*y(k,200) + .900_r8*rxt(k,492)*y(k,233)
593 : mat(k,2217) = .270_r8*rxt(k,480)*y(k,6) + .200_r8*rxt(k,347)*y(k,29) &
594 315224452 : + .270_r8*rxt(k,483)*y(k,110) + .100_r8*rxt(k,392)*y(k,111)
595 315224452 : mat(k,1123) = 1.800_r8*rxt(k,501)*y(k,228)
596 : mat(k,1429) = rxt(k,333)*y(k,124) + 4.000_r8*rxt(k,330)*y(k,200) &
597 : + .900_r8*rxt(k,331)*y(k,201) + rxt(k,405)*y(k,208) &
598 315224452 : + 2.000_r8*rxt(k,381)*y(k,215) + rxt(k,430)*y(k,237)
599 : mat(k,2404) = .900_r8*rxt(k,331)*y(k,200) + rxt(k,382)*y(k,215) &
600 315224452 : + .500_r8*rxt(k,490)*y(k,233)
601 315224452 : mat(k,1304) = rxt(k,405)*y(k,200)
602 : mat(k,1399) = .450_r8*rxt(k,383)*y(k,90) + 2.000_r8*rxt(k,381)*y(k,200) &
603 315224452 : + rxt(k,382)*y(k,201) + 4.000_r8*rxt(k,384)*y(k,215)
604 : mat(k,1809) = rxt(k,334)*y(k,50) + .500_r8*rxt(k,335)*y(k,51) + rxt(k,314) &
605 : *y(k,62) + .800_r8*rxt(k,340)*y(k,74) + rxt(k,341)*y(k,75) &
606 : + rxt(k,306)*y(k,87) + .500_r8*rxt(k,391)*y(k,109) &
607 315224452 : + 1.800_r8*rxt(k,501)*y(k,181)
608 315224452 : mat(k,1181) = .900_r8*rxt(k,492)*y(k,124) + .500_r8*rxt(k,490)*y(k,201)
609 315224452 : mat(k,1236) = rxt(k,430)*y(k,200)
610 315224452 : mat(k,238) = -(rxt(k,275)*y(k,224))
611 315224452 : mat(k,2009) = -rxt(k,275)*y(k,64)
612 315224452 : mat(k,140) = rxt(k,240)*y(k,224)
613 315224452 : mat(k,145) = rxt(k,266)*y(k,224)
614 315224452 : mat(k,150) = rxt(k,242)*y(k,224)
615 315224452 : mat(k,116) = 2.000_r8*rxt(k,243)*y(k,224)
616 315224452 : mat(k,155) = 2.000_r8*rxt(k,244)*y(k,224)
617 315224452 : mat(k,120) = rxt(k,245)*y(k,224)
618 315224452 : mat(k,108) = 2.000_r8*rxt(k,268)*y(k,224)
619 315224452 : mat(k,250) = rxt(k,292)*y(k,224) + rxt(k,287)*y(k,228)
620 315224452 : mat(k,291) = rxt(k,293)*y(k,224) + rxt(k,288)*y(k,228)
621 : mat(k,2009) = mat(k,2009) + rxt(k,240)*y(k,34) + rxt(k,266)*y(k,35) &
622 : + rxt(k,242)*y(k,37) + 2.000_r8*rxt(k,243)*y(k,38) &
623 : + 2.000_r8*rxt(k,244)*y(k,39) + rxt(k,245)*y(k,40) &
624 : + 2.000_r8*rxt(k,268)*y(k,78) + rxt(k,292)*y(k,83) + rxt(k,293) &
625 315224452 : *y(k,84)
626 315224452 : mat(k,1699) = rxt(k,287)*y(k,83) + rxt(k,288)*y(k,84)
627 315224452 : mat(k,246) = -(rxt(k,276)*y(k,224))
628 315224452 : mat(k,2011) = -rxt(k,276)*y(k,65)
629 315224452 : mat(k,112) = rxt(k,241)*y(k,224)
630 315224452 : mat(k,151) = rxt(k,242)*y(k,224)
631 315224452 : mat(k,242) = rxt(k,291)*y(k,224) + rxt(k,286)*y(k,228)
632 : mat(k,2011) = mat(k,2011) + rxt(k,241)*y(k,36) + rxt(k,242)*y(k,37) &
633 315224452 : + rxt(k,291)*y(k,82)
634 315224452 : mat(k,1701) = rxt(k,286)*y(k,82)
635 315224452 : mat(k,194) = -(rxt(k,449)*y(k,228))
636 315224452 : mat(k,1690) = -rxt(k,449)*y(k,66)
637 315224452 : mat(k,188) = .180_r8*rxt(k,469)*y(k,228)
638 315224452 : mat(k,1690) = mat(k,1690) + .180_r8*rxt(k,469)*y(k,183)
639 315224452 : mat(k,310) = -(rxt(k,502)*y(k,126) + (rxt(k,503) + rxt(k,517)) * y(k,228))
640 315224452 : mat(k,1610) = -rxt(k,502)*y(k,67)
641 315224452 : mat(k,1710) = -(rxt(k,503) + rxt(k,517)) * y(k,67)
642 315224452 : mat(k,2275) = rxt(k,336)*y(k,206)
643 315224452 : mat(k,795) = rxt(k,336)*y(k,90)
644 : mat(k,925) = -(rxt(k,271)*y(k,54) + rxt(k,272)*y(k,77) + rxt(k,273)*y(k,241) &
645 315224452 : + rxt(k,274)*y(k,89))
646 315224452 : mat(k,2239) = -rxt(k,271)*y(k,73)
647 315224452 : mat(k,1460) = -rxt(k,272)*y(k,73)
648 315224452 : mat(k,2426) = -rxt(k,273)*y(k,73)
649 315224452 : mat(k,2042) = -rxt(k,274)*y(k,73)
650 315224452 : mat(k,146) = rxt(k,266)*y(k,224)
651 315224452 : mat(k,156) = rxt(k,244)*y(k,224)
652 315224452 : mat(k,239) = 2.000_r8*rxt(k,275)*y(k,224)
653 315224452 : mat(k,247) = rxt(k,276)*y(k,224)
654 : mat(k,2019) = rxt(k,266)*y(k,35) + rxt(k,244)*y(k,39) + 2.000_r8*rxt(k,275) &
655 315224452 : *y(k,64) + rxt(k,276)*y(k,65)
656 315224452 : mat(k,1166) = -(rxt(k,340)*y(k,228))
657 315224452 : mat(k,1794) = -rxt(k,340)*y(k,74)
658 315224452 : mat(k,590) = .700_r8*rxt(k,416)*y(k,228)
659 315224452 : mat(k,560) = .500_r8*rxt(k,417)*y(k,228)
660 315224452 : mat(k,429) = rxt(k,428)*y(k,228)
661 : mat(k,1892) = .050_r8*rxt(k,414)*y(k,209) + .530_r8*rxt(k,376)*y(k,213) &
662 315224452 : + .225_r8*rxt(k,492)*y(k,233) + .250_r8*rxt(k,433)*y(k,237)
663 : mat(k,1631) = .050_r8*rxt(k,415)*y(k,209) + .530_r8*rxt(k,375)*y(k,213) &
664 315224452 : + .250_r8*rxt(k,434)*y(k,237)
665 315224452 : mat(k,1538) = rxt(k,339)*y(k,205)
666 315224452 : mat(k,1417) = .530_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237)
667 : mat(k,2390) = .260_r8*rxt(k,373)*y(k,213) + .125_r8*rxt(k,490)*y(k,233) &
668 315224452 : + .100_r8*rxt(k,431)*y(k,237)
669 315224452 : mat(k,461) = rxt(k,339)*y(k,135)
670 315224452 : mat(k,1325) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126)
671 : mat(k,1351) = .530_r8*rxt(k,376)*y(k,124) + .530_r8*rxt(k,375)*y(k,126) &
672 315224452 : + .530_r8*rxt(k,372)*y(k,200) + .260_r8*rxt(k,373)*y(k,201)
673 : mat(k,1794) = mat(k,1794) + .700_r8*rxt(k,416)*y(k,100) + .500_r8*rxt(k,417) &
674 315224452 : *y(k,101) + rxt(k,428)*y(k,115)
675 315224452 : mat(k,1177) = .225_r8*rxt(k,492)*y(k,124) + .125_r8*rxt(k,490)*y(k,201)
676 : mat(k,1231) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) &
677 315224452 : + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201)
678 315224452 : mat(k,1054) = -(rxt(k,341)*y(k,228))
679 315224452 : mat(k,1784) = -rxt(k,341)*y(k,75)
680 315224452 : mat(k,287) = .650_r8*rxt(k,316)*y(k,228)
681 315224452 : mat(k,1164) = .200_r8*rxt(k,340)*y(k,228)
682 315224452 : mat(k,2327) = .160_r8*rxt(k,453)*y(k,214) + .070_r8*rxt(k,456)*y(k,216)
683 315224452 : mat(k,1089) = rxt(k,429)*y(k,228)
684 : mat(k,1883) = rxt(k,440)*y(k,194) + .050_r8*rxt(k,414)*y(k,209) &
685 : + .400_r8*rxt(k,454)*y(k,214) + .170_r8*rxt(k,457)*y(k,216) &
686 : + .700_r8*rxt(k,460)*y(k,230) + .600_r8*rxt(k,467)*y(k,235) &
687 : + .250_r8*rxt(k,433)*y(k,237) + .340_r8*rxt(k,473)*y(k,238) &
688 315224452 : + .170_r8*rxt(k,476)*y(k,240)
689 315224452 : mat(k,1621) = .050_r8*rxt(k,415)*y(k,209) + .250_r8*rxt(k,434)*y(k,237)
690 315224452 : mat(k,497) = rxt(k,440)*y(k,124)
691 315224452 : mat(k,1414) = .250_r8*rxt(k,430)*y(k,237)
692 315224452 : mat(k,2381) = .100_r8*rxt(k,431)*y(k,237)
693 315224452 : mat(k,1323) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126)
694 315224452 : mat(k,741) = .160_r8*rxt(k,453)*y(k,90) + .400_r8*rxt(k,454)*y(k,124)
695 315224452 : mat(k,911) = .070_r8*rxt(k,456)*y(k,90) + .170_r8*rxt(k,457)*y(k,124)
696 : mat(k,1784) = mat(k,1784) + .650_r8*rxt(k,316)*y(k,24) + .200_r8*rxt(k,340) &
697 315224452 : *y(k,74) + rxt(k,429)*y(k,116)
698 315224452 : mat(k,449) = .700_r8*rxt(k,460)*y(k,124)
699 315224452 : mat(k,754) = .600_r8*rxt(k,467)*y(k,124)
700 : mat(k,1229) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) &
701 315224452 : + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201)
702 315224452 : mat(k,770) = .340_r8*rxt(k,473)*y(k,124)
703 315224452 : mat(k,511) = .170_r8*rxt(k,476)*y(k,124)
704 : mat(k,2121) = -((rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,90) + rxt(k,175) &
705 315224452 : *y(k,135) + rxt(k,178)*y(k,136))
706 315224452 : mat(k,2364) = -(rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,76)
707 315224452 : mat(k,1551) = -rxt(k,175)*y(k,76)
708 315224452 : mat(k,2231) = -rxt(k,178)*y(k,76)
709 315224452 : mat(k,1991) = rxt(k,297)*y(k,228)
710 315224452 : mat(k,2256) = rxt(k,311)*y(k,224)
711 315224452 : mat(k,2167) = rxt(k,216)*y(k,77)
712 315224452 : mat(k,930) = rxt(k,272)*y(k,77)
713 : mat(k,1468) = rxt(k,216)*y(k,56) + rxt(k,272)*y(k,73) + rxt(k,170)*y(k,134) &
714 315224452 : + rxt(k,153)*y(k,224) + rxt(k,179)*y(k,228)
715 315224452 : mat(k,834) = rxt(k,270)*y(k,224)
716 315224452 : mat(k,1505) = rxt(k,247)*y(k,224)
717 315224452 : mat(k,1008) = rxt(k,202)*y(k,228)
718 315224452 : mat(k,2100) = rxt(k,170)*y(k,77) + rxt(k,182)*y(k,228)
719 315224452 : mat(k,370) = rxt(k,505)*y(k,228)
720 315224452 : mat(k,723) = rxt(k,511)*y(k,228)
721 315224452 : mat(k,1485) = rxt(k,516)*y(k,228)
722 : mat(k,2034) = rxt(k,311)*y(k,54) + rxt(k,153)*y(k,77) + rxt(k,270)*y(k,81) &
723 315224452 : + rxt(k,247)*y(k,85)
724 : mat(k,1825) = rxt(k,297)*y(k,42) + rxt(k,179)*y(k,77) + rxt(k,202)*y(k,112) &
725 : + rxt(k,182)*y(k,134) + rxt(k,505)*y(k,139) + rxt(k,511) &
726 325174377 : *y(k,150) + rxt(k,516)*y(k,152)
727 : end do
728 9949925 : end subroutine nlnmat03
729 9949925 : subroutine nlnmat04( avec_len, mat, y, rxt )
730 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
731 : implicit none
732 : !----------------------------------------------
733 : ! ... dummy arguments
734 : !----------------------------------------------
735 : integer, intent(in) :: avec_len
736 : real(r8), intent(in) :: y(veclen,gas_pcnst)
737 : real(r8), intent(in) :: rxt(veclen,rxntot)
738 : real(r8), intent(inout) :: mat(veclen,nzcnt)
739 : !----------------------------------------------
740 : ! ... local variables
741 : !----------------------------------------------
742 : integer :: k
743 : !----------------------------------------------
744 : ! ... complete matrix entries implicit species
745 : !----------------------------------------------
746 325174377 : do k = 1,avec_len
747 315224452 : mat(k,1461) = -(rxt(k,153)*y(k,224) + rxt(k,170)*y(k,134) + rxt(k,179) &
748 315224452 : *y(k,228) + rxt(k,216)*y(k,56) + rxt(k,272)*y(k,73))
749 315224452 : mat(k,2020) = -rxt(k,153)*y(k,77)
750 315224452 : mat(k,2085) = -rxt(k,170)*y(k,77)
751 315224452 : mat(k,1810) = -rxt(k,179)*y(k,77)
752 315224452 : mat(k,2153) = -rxt(k,216)*y(k,77)
753 315224452 : mat(k,926) = -rxt(k,272)*y(k,77)
754 315224452 : mat(k,2242) = rxt(k,312)*y(k,224)
755 315224452 : mat(k,2107) = rxt(k,172)*y(k,90)
756 315224452 : mat(k,2350) = rxt(k,172)*y(k,76)
757 315224452 : mat(k,2020) = mat(k,2020) + rxt(k,312)*y(k,54)
758 315224452 : mat(k,107) = -(rxt(k,268)*y(k,224))
759 315224452 : mat(k,1999) = -rxt(k,268)*y(k,78)
760 315224452 : mat(k,582) = -(rxt(k,171)*y(k,134) + rxt(k,180)*y(k,228) + rxt(k,217)*y(k,56))
761 315224452 : mat(k,2070) = -rxt(k,171)*y(k,79)
762 315224452 : mat(k,1745) = -rxt(k,180)*y(k,79)
763 315224452 : mat(k,2136) = -rxt(k,217)*y(k,79)
764 315224452 : mat(k,2302) = 2.000_r8*rxt(k,186)*y(k,90)
765 315224452 : mat(k,1745) = mat(k,1745) + 2.000_r8*rxt(k,185)*y(k,228)
766 315224452 : mat(k,260) = rxt(k,518)*y(k,241)
767 315224452 : mat(k,2423) = rxt(k,518)*y(k,154)
768 : mat(k,828) = -(rxt(k,263)*y(k,134) + rxt(k,264)*y(k,228) + (rxt(k,269) &
769 315224452 : + rxt(k,270)) * y(k,224))
770 315224452 : mat(k,2075) = -rxt(k,263)*y(k,81)
771 315224452 : mat(k,1769) = -rxt(k,264)*y(k,81)
772 315224452 : mat(k,2018) = -(rxt(k,269) + rxt(k,270)) * y(k,81)
773 315224452 : mat(k,1508) = rxt(k,250)*y(k,42) + rxt(k,251)*y(k,90)
774 315224452 : mat(k,1973) = rxt(k,250)*y(k,17)
775 315224452 : mat(k,2319) = rxt(k,251)*y(k,17)
776 315224452 : mat(k,241) = -(rxt(k,286)*y(k,228) + rxt(k,291)*y(k,224))
777 315224452 : mat(k,1700) = -rxt(k,286)*y(k,82)
778 315224452 : mat(k,2010) = -rxt(k,291)*y(k,82)
779 315224452 : mat(k,251) = -(rxt(k,287)*y(k,228) + rxt(k,292)*y(k,224))
780 315224452 : mat(k,1702) = -rxt(k,287)*y(k,83)
781 315224452 : mat(k,2012) = -rxt(k,292)*y(k,83)
782 315224452 : mat(k,292) = -(rxt(k,288)*y(k,228) + rxt(k,293)*y(k,224))
783 315224452 : mat(k,1707) = -rxt(k,288)*y(k,84)
784 315224452 : mat(k,2014) = -rxt(k,293)*y(k,84)
785 : mat(k,1495) = -(rxt(k,234)*y(k,134) + rxt(k,235)*y(k,228) + (rxt(k,246) &
786 : + rxt(k,247)) * y(k,224) + (rxt(k,563) + rxt(k,569) + rxt(k,574) &
787 : ) * y(k,93) + (rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,60) &
788 315224452 : + (rxt(k,570) + rxt(k,575)) * y(k,92))
789 315224452 : mat(k,2087) = -rxt(k,234)*y(k,85)
790 315224452 : mat(k,1812) = -rxt(k,235)*y(k,85)
791 315224452 : mat(k,2021) = -(rxt(k,246) + rxt(k,247)) * y(k,85)
792 315224452 : mat(k,838) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,85)
793 315224452 : mat(k,956) = -(rxt(k,568) + rxt(k,573) + rxt(k,578)) * y(k,85)
794 315224452 : mat(k,788) = -(rxt(k,570) + rxt(k,575)) * y(k,85)
795 315224452 : mat(k,300) = rxt(k,325)*y(k,56)
796 315224452 : mat(k,306) = rxt(k,355)*y(k,56)
797 315224452 : mat(k,480) = rxt(k,277)*y(k,56)
798 315224452 : mat(k,1978) = rxt(k,214)*y(k,56)
799 315224452 : mat(k,603) = rxt(k,279)*y(k,56)
800 315224452 : mat(k,373) = 2.000_r8*rxt(k,282)*y(k,56)
801 315224452 : mat(k,2243) = rxt(k,215)*y(k,56)
802 315224452 : mat(k,386) = rxt(k,284)*y(k,56)
803 : mat(k,2154) = rxt(k,325)*y(k,28) + rxt(k,355)*y(k,31) + rxt(k,277)*y(k,41) &
804 : + rxt(k,214)*y(k,42) + rxt(k,279)*y(k,43) + 2.000_r8*rxt(k,282) &
805 : *y(k,46) + rxt(k,215)*y(k,54) + rxt(k,284)*y(k,55) + rxt(k,216) &
806 : *y(k,77) + rxt(k,217)*y(k,79) + rxt(k,218)*y(k,90) + rxt(k,236) &
807 315224452 : *y(k,93)
808 315224452 : mat(k,1588) = rxt(k,233)*y(k,228)
809 315224452 : mat(k,1462) = rxt(k,216)*y(k,56)
810 315224452 : mat(k,583) = rxt(k,217)*y(k,56)
811 315224452 : mat(k,2351) = rxt(k,218)*y(k,56)
812 315224452 : mat(k,838) = mat(k,838) + rxt(k,236)*y(k,56)
813 315224452 : mat(k,1812) = mat(k,1812) + rxt(k,233)*y(k,59)
814 315224452 : mat(k,182) = -(rxt(k,305)*y(k,228) + rxt(k,313)*y(k,224))
815 315224452 : mat(k,1688) = -rxt(k,305)*y(k,86)
816 315224452 : mat(k,2008) = -rxt(k,313)*y(k,86)
817 315224452 : mat(k,919) = -(rxt(k,306)*y(k,228))
818 315224452 : mat(k,1775) = -rxt(k,306)*y(k,87)
819 315224452 : mat(k,973) = .050_r8*rxt(k,480)*y(k,136)
820 315224452 : mat(k,286) = .350_r8*rxt(k,316)*y(k,228)
821 315224452 : mat(k,552) = .370_r8*rxt(k,318)*y(k,136)
822 315224452 : mat(k,1132) = .120_r8*rxt(k,347)*y(k,136)
823 315224452 : mat(k,2324) = rxt(k,307)*y(k,207)
824 315224452 : mat(k,877) = .110_r8*rxt(k,425)*y(k,136)
825 315224452 : mat(k,1267) = .330_r8*rxt(k,378)*y(k,136)
826 315224452 : mat(k,1017) = .050_r8*rxt(k,483)*y(k,136)
827 315224452 : mat(k,1369) = .120_r8*rxt(k,392)*y(k,136)
828 315224452 : mat(k,1879) = rxt(k,309)*y(k,207)
829 : mat(k,2190) = .050_r8*rxt(k,480)*y(k,6) + .370_r8*rxt(k,318)*y(k,25) &
830 : + .120_r8*rxt(k,347)*y(k,29) + .110_r8*rxt(k,425)*y(k,99) &
831 : + .330_r8*rxt(k,378)*y(k,105) + .050_r8*rxt(k,483)*y(k,110) &
832 315224452 : + .120_r8*rxt(k,392)*y(k,111)
833 315224452 : mat(k,442) = rxt(k,307)*y(k,90) + rxt(k,309)*y(k,124)
834 315224452 : mat(k,1775) = mat(k,1775) + .350_r8*rxt(k,316)*y(k,24)
835 315224452 : mat(k,2238) = rxt(k,271)*y(k,73)
836 : mat(k,924) = rxt(k,271)*y(k,54) + rxt(k,272)*y(k,77) + rxt(k,274)*y(k,89) &
837 315224452 : + rxt(k,273)*y(k,241)
838 315224452 : mat(k,1459) = rxt(k,272)*y(k,73)
839 315224452 : mat(k,2041) = rxt(k,274)*y(k,73)
840 315224452 : mat(k,2425) = rxt(k,273)*y(k,73)
841 315224452 : mat(k,2055) = -(rxt(k,211)*y(k,228) + rxt(k,274)*y(k,73))
842 315224452 : mat(k,1823) = -rxt(k,211)*y(k,89)
843 315224452 : mat(k,929) = -rxt(k,274)*y(k,89)
844 315224452 : mat(k,1989) = rxt(k,295)*y(k,126)
845 315224452 : mat(k,1156) = rxt(k,327)*y(k,126)
846 315224452 : mat(k,1286) = rxt(k,353)*y(k,126)
847 315224452 : mat(k,961) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,85)
848 315224452 : mat(k,314) = rxt(k,502)*y(k,126)
849 315224452 : mat(k,1503) = (rxt(k,568)+rxt(k,573)+rxt(k,578))*y(k,60)
850 315224452 : mat(k,1963) = rxt(k,210)*y(k,228)
851 : mat(k,1658) = rxt(k,295)*y(k,42) + rxt(k,327)*y(k,45) + rxt(k,353)*y(k,49) &
852 315224452 : + rxt(k,502)*y(k,67)
853 315224452 : mat(k,1823) = mat(k,1823) + rxt(k,210)*y(k,125)
854 : mat(k,2368) = -((rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,76) + rxt(k,176) &
855 : *y(k,134) + rxt(k,177)*y(k,136) + rxt(k,181)*y(k,228) &
856 : + 4._r8*rxt(k,186)*y(k,90) + rxt(k,198)*y(k,126) + rxt(k,203) &
857 : *y(k,124) + rxt(k,208)*y(k,125) + (rxt(k,218) + rxt(k,219) &
858 : ) * y(k,56) + rxt(k,225)*y(k,59) + rxt(k,251)*y(k,17) + rxt(k,257) &
859 : *y(k,19) + rxt(k,294)*y(k,42) + rxt(k,300)*y(k,201) + rxt(k,307) &
860 : *y(k,207) + rxt(k,321)*y(k,197) + rxt(k,332)*y(k,200) + rxt(k,336) &
861 : *y(k,206) + rxt(k,349)*y(k,198) + rxt(k,358)*y(k,231) + rxt(k,362) &
862 : *y(k,232) + rxt(k,374)*y(k,213) + rxt(k,383)*y(k,215) + rxt(k,387) &
863 : *y(k,217) + rxt(k,397)*y(k,192) + rxt(k,407)*y(k,208) + rxt(k,412) &
864 : *y(k,209) + rxt(k,421)*y(k,210) + rxt(k,432)*y(k,237) + rxt(k,436) &
865 : *y(k,191) + rxt(k,439)*y(k,194) + rxt(k,443)*y(k,196) + rxt(k,446) &
866 : *y(k,199) + rxt(k,450)*y(k,202) + rxt(k,453)*y(k,214) + rxt(k,456) &
867 : *y(k,216) + rxt(k,459)*y(k,230) + rxt(k,466)*y(k,235) + rxt(k,472) &
868 : *y(k,238) + rxt(k,475)*y(k,240) + rxt(k,486)*y(k,223) + rxt(k,491) &
869 315224452 : *y(k,233) + rxt(k,496)*y(k,234))
870 315224452 : mat(k,2125) = -(rxt(k,172) + rxt(k,173) + rxt(k,174)) * y(k,90)
871 315224452 : mat(k,2104) = -rxt(k,176)*y(k,90)
872 315224452 : mat(k,2235) = -rxt(k,177)*y(k,90)
873 315224452 : mat(k,1829) = -rxt(k,181)*y(k,90)
874 315224452 : mat(k,1664) = -rxt(k,198)*y(k,90)
875 315224452 : mat(k,1924) = -rxt(k,203)*y(k,90)
876 315224452 : mat(k,1969) = -rxt(k,208)*y(k,90)
877 315224452 : mat(k,2171) = -(rxt(k,218) + rxt(k,219)) * y(k,90)
878 315224452 : mat(k,1604) = -rxt(k,225)*y(k,90)
879 315224452 : mat(k,1522) = -rxt(k,251)*y(k,90)
880 315224452 : mat(k,1578) = -rxt(k,257)*y(k,90)
881 315224452 : mat(k,1995) = -rxt(k,294)*y(k,90)
882 315224452 : mat(k,2420) = -rxt(k,300)*y(k,90)
883 315224452 : mat(k,446) = -rxt(k,307)*y(k,90)
884 315224452 : mat(k,908) = -rxt(k,321)*y(k,90)
885 315224452 : mat(k,1439) = -rxt(k,332)*y(k,90)
886 315224452 : mat(k,804) = -rxt(k,336)*y(k,90)
887 315224452 : mat(k,943) = -rxt(k,349)*y(k,90)
888 315224452 : mat(k,822) = -rxt(k,358)*y(k,90)
889 315224452 : mat(k,1224) = -rxt(k,362)*y(k,90)
890 315224452 : mat(k,1366) = -rxt(k,374)*y(k,90)
891 315224452 : mat(k,1407) = -rxt(k,383)*y(k,90)
892 315224452 : mat(k,704) = -rxt(k,387)*y(k,90)
893 315224452 : mat(k,1051) = -rxt(k,397)*y(k,90)
894 315224452 : mat(k,1312) = -rxt(k,407)*y(k,90)
895 315224452 : mat(k,1345) = -rxt(k,412)*y(k,90)
896 315224452 : mat(k,1265) = -rxt(k,421)*y(k,90)
897 315224452 : mat(k,1242) = -rxt(k,432)*y(k,90)
898 315224452 : mat(k,528) = -rxt(k,436)*y(k,90)
899 315224452 : mat(k,501) = -rxt(k,439)*y(k,90)
900 315224452 : mat(k,440) = -rxt(k,443)*y(k,90)
901 315224452 : mat(k,640) = -rxt(k,446)*y(k,90)
902 315224452 : mat(k,784) = -rxt(k,450)*y(k,90)
903 315224452 : mat(k,745) = -rxt(k,453)*y(k,90)
904 315224452 : mat(k,917) = -rxt(k,456)*y(k,90)
905 315224452 : mat(k,453) = -rxt(k,459)*y(k,90)
906 315224452 : mat(k,760) = -rxt(k,466)*y(k,90)
907 315224452 : mat(k,777) = -rxt(k,472)*y(k,90)
908 315224452 : mat(k,516) = -rxt(k,475)*y(k,90)
909 315224452 : mat(k,1116) = -rxt(k,486)*y(k,90)
910 315224452 : mat(k,1187) = -rxt(k,491)*y(k,90)
911 315224452 : mat(k,1070) = -rxt(k,496)*y(k,90)
912 315224452 : mat(k,991) = .570_r8*rxt(k,480)*y(k,136)
913 315224452 : mat(k,165) = .650_r8*rxt(k,438)*y(k,228)
914 315224452 : mat(k,1522) = mat(k,1522) + rxt(k,250)*y(k,42)
915 315224452 : mat(k,1578) = mat(k,1578) + rxt(k,262)*y(k,228)
916 315224452 : mat(k,290) = .350_r8*rxt(k,316)*y(k,228)
917 315224452 : mat(k,557) = .130_r8*rxt(k,318)*y(k,136)
918 315224452 : mat(k,268) = rxt(k,323)*y(k,228)
919 315224452 : mat(k,1148) = .280_r8*rxt(k,347)*y(k,136)
920 : mat(k,1995) = mat(k,1995) + rxt(k,250)*y(k,17) + rxt(k,214)*y(k,56) &
921 315224452 : + rxt(k,295)*y(k,126) + rxt(k,296)*y(k,134)
922 315224452 : mat(k,608) = rxt(k,279)*y(k,56) + rxt(k,280)*y(k,228)
923 315224452 : mat(k,376) = rxt(k,282)*y(k,56) + rxt(k,283)*y(k,228)
924 315224452 : mat(k,106) = rxt(k,329)*y(k,228)
925 315224452 : mat(k,827) = rxt(k,302)*y(k,228)
926 315224452 : mat(k,2260) = rxt(k,311)*y(k,224)
927 : mat(k,2171) = mat(k,2171) + rxt(k,214)*y(k,42) + rxt(k,279)*y(k,43) &
928 315224452 : + rxt(k,282)*y(k,46) + rxt(k,217)*y(k,79)
929 315224452 : mat(k,1604) = mat(k,1604) + rxt(k,221)*y(k,201) + rxt(k,232)*y(k,228)
930 315224452 : mat(k,1163) = rxt(k,314)*y(k,228)
931 315224452 : mat(k,198) = .730_r8*rxt(k,449)*y(k,228)
932 315224452 : mat(k,315) = .500_r8*rxt(k,517)*y(k,228)
933 315224452 : mat(k,1170) = rxt(k,340)*y(k,228)
934 315224452 : mat(k,1058) = rxt(k,341)*y(k,228)
935 315224452 : mat(k,2125) = mat(k,2125) + rxt(k,175)*y(k,135)
936 315224452 : mat(k,587) = rxt(k,217)*y(k,56) + rxt(k,171)*y(k,134) + rxt(k,180)*y(k,228)
937 315224452 : mat(k,185) = rxt(k,305)*y(k,228)
938 315224452 : mat(k,922) = rxt(k,306)*y(k,228)
939 : mat(k,2368) = mat(k,2368) + .070_r8*rxt(k,450)*y(k,202) + .160_r8*rxt(k,453) &
940 315224452 : *y(k,214) + .330_r8*rxt(k,456)*y(k,216)
941 315224452 : mat(k,1205) = rxt(k,371)*y(k,228)
942 315224452 : mat(k,1213) = rxt(k,356)*y(k,228)
943 315224452 : mat(k,890) = .370_r8*rxt(k,425)*y(k,136)
944 315224452 : mat(k,597) = .300_r8*rxt(k,416)*y(k,228)
945 315224452 : mat(k,565) = rxt(k,417)*y(k,228)
946 315224452 : mat(k,408) = rxt(k,424)*y(k,228)
947 315224452 : mat(k,1278) = .140_r8*rxt(k,378)*y(k,136)
948 315224452 : mat(k,320) = .200_r8*rxt(k,380)*y(k,228)
949 315224452 : mat(k,619) = .500_r8*rxt(k,391)*y(k,228)
950 315224452 : mat(k,1035) = .570_r8*rxt(k,483)*y(k,136)
951 315224452 : mat(k,1389) = .280_r8*rxt(k,392)*y(k,136)
952 315224452 : mat(k,432) = rxt(k,428)*y(k,228)
953 315224452 : mat(k,1100) = rxt(k,429)*y(k,228)
954 : mat(k,1924) = mat(k,1924) + rxt(k,398)*y(k,192) + rxt(k,440)*y(k,194) &
955 : + rxt(k,445)*y(k,196) + rxt(k,322)*y(k,197) + rxt(k,350) &
956 : *y(k,198) + rxt(k,301)*y(k,201) + .170_r8*rxt(k,451)*y(k,202) &
957 : + rxt(k,369)*y(k,204) + .250_r8*rxt(k,337)*y(k,206) + rxt(k,309) &
958 : *y(k,207) + .920_r8*rxt(k,408)*y(k,208) + .920_r8*rxt(k,414) &
959 : *y(k,209) + rxt(k,422)*y(k,210) + .470_r8*rxt(k,376)*y(k,213) &
960 : + .400_r8*rxt(k,454)*y(k,214) + .830_r8*rxt(k,457)*y(k,216) &
961 : + rxt(k,460)*y(k,230) + rxt(k,359)*y(k,231) + .900_r8*rxt(k,492) &
962 : *y(k,233) + .800_r8*rxt(k,497)*y(k,234) + rxt(k,467)*y(k,235) &
963 : + rxt(k,433)*y(k,237) + rxt(k,473)*y(k,238) + rxt(k,476) &
964 315224452 : *y(k,240)
965 : mat(k,1664) = mat(k,1664) + rxt(k,295)*y(k,42) + rxt(k,409)*y(k,208) &
966 : + rxt(k,415)*y(k,209) + rxt(k,423)*y(k,210) + .470_r8*rxt(k,375) &
967 315224452 : *y(k,213) + rxt(k,201)*y(k,228) + rxt(k,434)*y(k,237)
968 315224452 : mat(k,2104) = mat(k,2104) + rxt(k,296)*y(k,42) + rxt(k,171)*y(k,79)
969 315224452 : mat(k,1554) = rxt(k,175)*y(k,76) + rxt(k,339)*y(k,205)
970 : mat(k,2235) = mat(k,2235) + .570_r8*rxt(k,480)*y(k,6) + .130_r8*rxt(k,318) &
971 : *y(k,25) + .280_r8*rxt(k,347)*y(k,29) + .370_r8*rxt(k,425) &
972 : *y(k,99) + .140_r8*rxt(k,378)*y(k,105) + .570_r8*rxt(k,483) &
973 315224452 : *y(k,110) + .280_r8*rxt(k,392)*y(k,111) + rxt(k,183)*y(k,228)
974 315224452 : mat(k,174) = .800_r8*rxt(k,461)*y(k,228)
975 315224452 : mat(k,951) = rxt(k,507)*y(k,228)
976 315224452 : mat(k,1126) = .200_r8*rxt(k,501)*y(k,228)
977 315224452 : mat(k,193) = .280_r8*rxt(k,469)*y(k,228)
978 315224452 : mat(k,215) = .380_r8*rxt(k,471)*y(k,228)
979 315224452 : mat(k,220) = .630_r8*rxt(k,477)*y(k,228)
980 315224452 : mat(k,1051) = mat(k,1051) + rxt(k,398)*y(k,124)
981 315224452 : mat(k,501) = mat(k,501) + rxt(k,440)*y(k,124)
982 315224452 : mat(k,440) = mat(k,440) + rxt(k,445)*y(k,124)
983 : mat(k,908) = mat(k,908) + rxt(k,322)*y(k,124) + 2.400_r8*rxt(k,319)*y(k,197) &
984 315224452 : + rxt(k,320)*y(k,201)
985 315224452 : mat(k,943) = mat(k,943) + rxt(k,350)*y(k,124) + rxt(k,348)*y(k,201)
986 : mat(k,1439) = mat(k,1439) + .900_r8*rxt(k,331)*y(k,201) + rxt(k,405)*y(k,208) &
987 : + rxt(k,410)*y(k,209) + rxt(k,419)*y(k,210) + .470_r8*rxt(k,372) &
988 315224452 : *y(k,213) + rxt(k,430)*y(k,237)
989 : mat(k,2420) = mat(k,2420) + rxt(k,221)*y(k,59) + rxt(k,301)*y(k,124) &
990 : + rxt(k,320)*y(k,197) + rxt(k,348)*y(k,198) + .900_r8*rxt(k,331) &
991 : *y(k,200) + 4.000_r8*rxt(k,298)*y(k,201) + rxt(k,406)*y(k,208) &
992 : + rxt(k,411)*y(k,209) + 1.200_r8*rxt(k,420)*y(k,210) &
993 : + .730_r8*rxt(k,373)*y(k,213) + rxt(k,382)*y(k,215) &
994 : + .500_r8*rxt(k,485)*y(k,223) + .300_r8*rxt(k,361)*y(k,232) &
995 : + rxt(k,490)*y(k,233) + rxt(k,495)*y(k,234) + .800_r8*rxt(k,431) &
996 315224452 : *y(k,237)
997 : mat(k,784) = mat(k,784) + .070_r8*rxt(k,450)*y(k,90) + .170_r8*rxt(k,451) &
998 315224452 : *y(k,124)
999 315224452 : mat(k,581) = rxt(k,369)*y(k,124)
1000 315224452 : mat(k,464) = rxt(k,339)*y(k,135)
1001 315224452 : mat(k,804) = mat(k,804) + .250_r8*rxt(k,337)*y(k,124)
1002 315224452 : mat(k,446) = mat(k,446) + rxt(k,309)*y(k,124)
1003 : mat(k,1312) = mat(k,1312) + .920_r8*rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126) &
1004 315224452 : + rxt(k,405)*y(k,200) + rxt(k,406)*y(k,201)
1005 : mat(k,1345) = mat(k,1345) + .920_r8*rxt(k,414)*y(k,124) + rxt(k,415)*y(k,126) &
1006 315224452 : + rxt(k,410)*y(k,200) + rxt(k,411)*y(k,201)
1007 : mat(k,1265) = mat(k,1265) + rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126) &
1008 315224452 : + rxt(k,419)*y(k,200) + 1.200_r8*rxt(k,420)*y(k,201)
1009 : mat(k,1366) = mat(k,1366) + .470_r8*rxt(k,376)*y(k,124) + .470_r8*rxt(k,375) &
1010 : *y(k,126) + .470_r8*rxt(k,372)*y(k,200) + .730_r8*rxt(k,373) &
1011 315224452 : *y(k,201)
1012 : mat(k,745) = mat(k,745) + .160_r8*rxt(k,453)*y(k,90) + .400_r8*rxt(k,454) &
1013 315224452 : *y(k,124)
1014 315224452 : mat(k,1407) = mat(k,1407) + rxt(k,382)*y(k,201)
1015 : mat(k,917) = mat(k,917) + .330_r8*rxt(k,456)*y(k,90) + .830_r8*rxt(k,457) &
1016 315224452 : *y(k,124)
1017 315224452 : mat(k,1116) = mat(k,1116) + .500_r8*rxt(k,485)*y(k,201)
1018 315224452 : mat(k,2038) = rxt(k,311)*y(k,54)
1019 : mat(k,1829) = mat(k,1829) + .650_r8*rxt(k,438)*y(k,7) + rxt(k,262)*y(k,19) &
1020 : + .350_r8*rxt(k,316)*y(k,24) + rxt(k,323)*y(k,26) + rxt(k,280) &
1021 : *y(k,43) + rxt(k,283)*y(k,46) + rxt(k,329)*y(k,47) + rxt(k,302) &
1022 : *y(k,52) + rxt(k,232)*y(k,59) + rxt(k,314)*y(k,62) &
1023 : + .730_r8*rxt(k,449)*y(k,66) + .500_r8*rxt(k,517)*y(k,67) &
1024 : + rxt(k,340)*y(k,74) + rxt(k,341)*y(k,75) + rxt(k,180)*y(k,79) &
1025 : + rxt(k,305)*y(k,86) + rxt(k,306)*y(k,87) + rxt(k,371)*y(k,94) &
1026 : + rxt(k,356)*y(k,96) + .300_r8*rxt(k,416)*y(k,100) + rxt(k,417) &
1027 : *y(k,101) + rxt(k,424)*y(k,102) + .200_r8*rxt(k,380)*y(k,106) &
1028 : + .500_r8*rxt(k,391)*y(k,109) + rxt(k,428)*y(k,115) + rxt(k,429) &
1029 : *y(k,116) + rxt(k,201)*y(k,126) + rxt(k,183)*y(k,136) &
1030 : + .800_r8*rxt(k,461)*y(k,144) + rxt(k,507)*y(k,153) &
1031 : + .200_r8*rxt(k,501)*y(k,181) + .280_r8*rxt(k,469)*y(k,183) &
1032 315224452 : + .380_r8*rxt(k,471)*y(k,185) + .630_r8*rxt(k,477)*y(k,187)
1033 315224452 : mat(k,453) = mat(k,453) + rxt(k,460)*y(k,124)
1034 315224452 : mat(k,822) = mat(k,822) + rxt(k,359)*y(k,124)
1035 315224452 : mat(k,1224) = mat(k,1224) + .300_r8*rxt(k,361)*y(k,201)
1036 315224452 : mat(k,1187) = mat(k,1187) + .900_r8*rxt(k,492)*y(k,124) + rxt(k,490)*y(k,201)
1037 315224452 : mat(k,1070) = mat(k,1070) + .800_r8*rxt(k,497)*y(k,124) + rxt(k,495)*y(k,201)
1038 315224452 : mat(k,760) = mat(k,760) + rxt(k,467)*y(k,124)
1039 : mat(k,1242) = mat(k,1242) + rxt(k,433)*y(k,124) + rxt(k,434)*y(k,126) &
1040 315224452 : + rxt(k,430)*y(k,200) + .800_r8*rxt(k,431)*y(k,201)
1041 315224452 : mat(k,777) = mat(k,777) + rxt(k,473)*y(k,124)
1042 325174377 : mat(k,516) = mat(k,516) + rxt(k,476)*y(k,124)
1043 : end do
1044 9949925 : end subroutine nlnmat04
1045 9949925 : subroutine nlnmat05( avec_len, mat, y, rxt )
1046 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1047 : implicit none
1048 : !----------------------------------------------
1049 : ! ... dummy arguments
1050 : !----------------------------------------------
1051 : integer, intent(in) :: avec_len
1052 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1053 : real(r8), intent(in) :: rxt(veclen,rxntot)
1054 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1055 : !----------------------------------------------
1056 : ! ... local variables
1057 : !----------------------------------------------
1058 : integer :: k
1059 : !----------------------------------------------
1060 : ! ... complete matrix entries implicit species
1061 : !----------------------------------------------
1062 325174377 : do k = 1,avec_len
1063 315224452 : mat(k,472) = -(rxt(k,187)*y(k,228))
1064 315224452 : mat(k,1733) = -rxt(k,187)*y(k,91)
1065 315224452 : mat(k,2296) = rxt(k,208)*y(k,125)
1066 315224452 : mat(k,1931) = rxt(k,208)*y(k,90)
1067 315224452 : mat(k,787) = -(rxt(k,265)*y(k,134) + (rxt(k,570) + rxt(k,575)) * y(k,85))
1068 315224452 : mat(k,2073) = -rxt(k,265)*y(k,92)
1069 315224452 : mat(k,1492) = -(rxt(k,570) + rxt(k,575)) * y(k,92)
1070 315224452 : mat(k,1559) = rxt(k,257)*y(k,90)
1071 315224452 : mat(k,2316) = rxt(k,257)*y(k,19)
1072 : mat(k,837) = -(rxt(k,236)*y(k,56) + rxt(k,237)*y(k,134) + rxt(k,238)*y(k,228) &
1073 315224452 : + (rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,85))
1074 315224452 : mat(k,2139) = -rxt(k,236)*y(k,93)
1075 315224452 : mat(k,2076) = -rxt(k,237)*y(k,93)
1076 315224452 : mat(k,1770) = -rxt(k,238)*y(k,93)
1077 315224452 : mat(k,1493) = -(rxt(k,563) + rxt(k,569) + rxt(k,574)) * y(k,93)
1078 315224452 : mat(k,1584) = rxt(k,225)*y(k,90)
1079 315224452 : mat(k,954) = rxt(k,230)*y(k,228)
1080 315224452 : mat(k,2320) = rxt(k,225)*y(k,59)
1081 315224452 : mat(k,1770) = mat(k,1770) + rxt(k,230)*y(k,60)
1082 315224452 : mat(k,1195) = -(rxt(k,371)*y(k,228))
1083 315224452 : mat(k,1796) = -rxt(k,371)*y(k,94)
1084 315224452 : mat(k,591) = .300_r8*rxt(k,416)*y(k,228)
1085 315224452 : mat(k,561) = .500_r8*rxt(k,417)*y(k,228)
1086 315224452 : mat(k,1894) = rxt(k,370)*y(k,204) + rxt(k,377)*y(k,213)
1087 315224452 : mat(k,577) = rxt(k,370)*y(k,124)
1088 315224452 : mat(k,1352) = rxt(k,377)*y(k,124)
1089 : mat(k,1796) = mat(k,1796) + .300_r8*rxt(k,416)*y(k,100) + .500_r8*rxt(k,417) &
1090 315224452 : *y(k,101)
1091 315224452 : mat(k,221) = -(rxt(k,402)*y(k,228))
1092 315224452 : mat(k,1695) = -rxt(k,402)*y(k,95)
1093 315224452 : mat(k,1208) = -(rxt(k,356)*y(k,228))
1094 315224452 : mat(k,1797) = -rxt(k,356)*y(k,96)
1095 315224452 : mat(k,592) = .700_r8*rxt(k,416)*y(k,228)
1096 315224452 : mat(k,562) = .500_r8*rxt(k,417)*y(k,228)
1097 315224452 : mat(k,612) = .500_r8*rxt(k,391)*y(k,228)
1098 : mat(k,1895) = .050_r8*rxt(k,414)*y(k,209) + .220_r8*rxt(k,376)*y(k,213) &
1099 315224452 : + .250_r8*rxt(k,433)*y(k,237)
1100 : mat(k,1634) = .050_r8*rxt(k,415)*y(k,209) + .220_r8*rxt(k,375)*y(k,213) &
1101 315224452 : + .250_r8*rxt(k,434)*y(k,237)
1102 315224452 : mat(k,545) = .500_r8*rxt(k,360)*y(k,228)
1103 315224452 : mat(k,1418) = .220_r8*rxt(k,372)*y(k,213) + .250_r8*rxt(k,430)*y(k,237)
1104 : mat(k,2392) = .230_r8*rxt(k,373)*y(k,213) + .200_r8*rxt(k,361)*y(k,232) &
1105 315224452 : + .100_r8*rxt(k,431)*y(k,237)
1106 315224452 : mat(k,1327) = .050_r8*rxt(k,414)*y(k,124) + .050_r8*rxt(k,415)*y(k,126)
1107 : mat(k,1353) = .220_r8*rxt(k,376)*y(k,124) + .220_r8*rxt(k,375)*y(k,126) &
1108 315224452 : + .220_r8*rxt(k,372)*y(k,200) + .230_r8*rxt(k,373)*y(k,201)
1109 : mat(k,1797) = mat(k,1797) + .700_r8*rxt(k,416)*y(k,100) + .500_r8*rxt(k,417) &
1110 : *y(k,101) + .500_r8*rxt(k,391)*y(k,109) + .500_r8*rxt(k,360) &
1111 315224452 : *y(k,148)
1112 315224452 : mat(k,1216) = .200_r8*rxt(k,361)*y(k,201)
1113 : mat(k,1232) = .250_r8*rxt(k,433)*y(k,124) + .250_r8*rxt(k,434)*y(k,126) &
1114 315224452 : + .250_r8*rxt(k,430)*y(k,200) + .100_r8*rxt(k,431)*y(k,201)
1115 315224452 : mat(k,326) = -(rxt(k,403)*y(k,228))
1116 315224452 : mat(k,1713) = -rxt(k,403)*y(k,97)
1117 315224452 : mat(k,1847) = .870_r8*rxt(k,414)*y(k,209)
1118 315224452 : mat(k,1611) = .950_r8*rxt(k,415)*y(k,209)
1119 315224452 : mat(k,1410) = rxt(k,410)*y(k,209)
1120 315224452 : mat(k,2372) = .750_r8*rxt(k,411)*y(k,209)
1121 : mat(k,1316) = .870_r8*rxt(k,414)*y(k,124) + .950_r8*rxt(k,415)*y(k,126) &
1122 315224452 : + rxt(k,410)*y(k,200) + .750_r8*rxt(k,411)*y(k,201)
1123 315224452 : mat(k,133) = -(rxt(k,404)*y(k,228))
1124 315224452 : mat(k,1684) = -rxt(k,404)*y(k,98)
1125 315224452 : mat(k,710) = .600_r8*rxt(k,427)*y(k,228)
1126 315224452 : mat(k,1684) = mat(k,1684) + .600_r8*rxt(k,427)*y(k,103)
1127 : mat(k,876) = -(rxt(k,418)*y(k,126) + rxt(k,425)*y(k,136) + rxt(k,426) &
1128 315224452 : *y(k,228))
1129 315224452 : mat(k,1614) = -rxt(k,418)*y(k,99)
1130 315224452 : mat(k,2189) = -rxt(k,425)*y(k,99)
1131 315224452 : mat(k,1771) = -rxt(k,426)*y(k,99)
1132 315224452 : mat(k,589) = -(rxt(k,416)*y(k,228))
1133 315224452 : mat(k,1746) = -rxt(k,416)*y(k,100)
1134 315224452 : mat(k,1861) = .080_r8*rxt(k,408)*y(k,208)
1135 315224452 : mat(k,1289) = .080_r8*rxt(k,408)*y(k,124)
1136 315224452 : mat(k,558) = -(rxt(k,417)*y(k,228))
1137 315224452 : mat(k,1743) = -rxt(k,417)*y(k,101)
1138 315224452 : mat(k,1859) = .080_r8*rxt(k,414)*y(k,209)
1139 315224452 : mat(k,1317) = .080_r8*rxt(k,414)*y(k,124)
1140 315224452 : mat(k,403) = -(rxt(k,424)*y(k,228))
1141 315224452 : mat(k,1723) = -rxt(k,424)*y(k,102)
1142 315224452 : mat(k,2285) = rxt(k,421)*y(k,210)
1143 315224452 : mat(k,1244) = rxt(k,421)*y(k,90)
1144 315224452 : mat(k,711) = -(rxt(k,427)*y(k,228))
1145 315224452 : mat(k,1759) = -rxt(k,427)*y(k,103)
1146 315224452 : mat(k,2310) = rxt(k,407)*y(k,208) + rxt(k,412)*y(k,209)
1147 315224452 : mat(k,1290) = rxt(k,407)*y(k,90)
1148 315224452 : mat(k,1319) = rxt(k,412)*y(k,90)
1149 315224452 : mat(k,76) = -(rxt(k,549)*y(k,228))
1150 315224452 : mat(k,1677) = -rxt(k,549)*y(k,104)
1151 315224452 : mat(k,1269) = -(rxt(k,378)*y(k,136) + rxt(k,379)*y(k,228))
1152 315224452 : mat(k,2209) = -rxt(k,378)*y(k,105)
1153 315224452 : mat(k,1801) = -rxt(k,379)*y(k,105)
1154 315224452 : mat(k,881) = .300_r8*rxt(k,425)*y(k,136)
1155 315224452 : mat(k,1899) = .360_r8*rxt(k,408)*y(k,208)
1156 315224452 : mat(k,1638) = .400_r8*rxt(k,409)*y(k,208)
1157 315224452 : mat(k,2209) = mat(k,2209) + .300_r8*rxt(k,425)*y(k,99)
1158 315224452 : mat(k,1421) = .390_r8*rxt(k,405)*y(k,208)
1159 315224452 : mat(k,2396) = .310_r8*rxt(k,406)*y(k,208)
1160 : mat(k,1297) = .360_r8*rxt(k,408)*y(k,124) + .400_r8*rxt(k,409)*y(k,126) &
1161 315224452 : + .390_r8*rxt(k,405)*y(k,200) + .310_r8*rxt(k,406)*y(k,201)
1162 315224452 : mat(k,316) = -(rxt(k,380)*y(k,228))
1163 315224452 : mat(k,1711) = -rxt(k,380)*y(k,106)
1164 315224452 : mat(k,2278) = rxt(k,374)*y(k,213)
1165 315224452 : mat(k,1348) = rxt(k,374)*y(k,90)
1166 315224452 : mat(k,517) = -(rxt(k,389)*y(k,228))
1167 315224452 : mat(k,1738) = -rxt(k,389)*y(k,107)
1168 315224452 : mat(k,1857) = .800_r8*rxt(k,398)*y(k,192)
1169 315224452 : mat(k,1037) = .800_r8*rxt(k,398)*y(k,124)
1170 315224452 : mat(k,321) = -(rxt(k,390)*y(k,228))
1171 315224452 : mat(k,1712) = -rxt(k,390)*y(k,108)
1172 315224452 : mat(k,2279) = .800_r8*rxt(k,387)*y(k,217)
1173 315224452 : mat(k,697) = .800_r8*rxt(k,387)*y(k,90)
1174 315224452 : mat(k,611) = -(rxt(k,391)*y(k,228))
1175 315224452 : mat(k,1749) = -rxt(k,391)*y(k,109)
1176 315224452 : mat(k,1935) = rxt(k,394)*y(k,215)
1177 315224452 : mat(k,1392) = rxt(k,394)*y(k,125)
1178 : mat(k,1018) = -(rxt(k,482)*y(k,126) + rxt(k,483)*y(k,136) + rxt(k,484) &
1179 315224452 : *y(k,228))
1180 315224452 : mat(k,1619) = -rxt(k,482)*y(k,110)
1181 315224452 : mat(k,2193) = -rxt(k,483)*y(k,110)
1182 315224452 : mat(k,1782) = -rxt(k,484)*y(k,110)
1183 315224452 : mat(k,1376) = -(rxt(k,392)*y(k,136) + rxt(k,393)*y(k,228))
1184 315224452 : mat(k,2214) = -rxt(k,392)*y(k,111)
1185 315224452 : mat(k,1806) = -rxt(k,393)*y(k,111)
1186 315224452 : mat(k,884) = .200_r8*rxt(k,425)*y(k,136)
1187 315224452 : mat(k,1904) = .560_r8*rxt(k,408)*y(k,208)
1188 315224452 : mat(k,1643) = .600_r8*rxt(k,409)*y(k,208)
1189 315224452 : mat(k,2214) = mat(k,2214) + .200_r8*rxt(k,425)*y(k,99)
1190 315224452 : mat(k,1426) = .610_r8*rxt(k,405)*y(k,208)
1191 315224452 : mat(k,2401) = .440_r8*rxt(k,406)*y(k,208)
1192 : mat(k,1301) = .560_r8*rxt(k,408)*y(k,124) + .600_r8*rxt(k,409)*y(k,126) &
1193 315224452 : + .610_r8*rxt(k,405)*y(k,200) + .440_r8*rxt(k,406)*y(k,201)
1194 : mat(k,999) = -(rxt(k,190)*y(k,124) + (rxt(k,191) + rxt(k,192) + rxt(k,193) &
1195 : ) * y(k,125) + rxt(k,194)*y(k,135) + rxt(k,202)*y(k,228) &
1196 315224452 : + rxt(k,588)*y(k,227))
1197 315224452 : mat(k,1881) = -rxt(k,190)*y(k,112)
1198 315224452 : mat(k,1943) = -(rxt(k,191) + rxt(k,192) + rxt(k,193)) * y(k,112)
1199 315224452 : mat(k,1536) = -rxt(k,194)*y(k,112)
1200 315224452 : mat(k,1781) = -rxt(k,202)*y(k,112)
1201 315224452 : mat(k,855) = -rxt(k,588)*y(k,112)
1202 315224452 : mat(k,2082) = rxt(k,188)*y(k,219) + rxt(k,585)*y(k,222)
1203 315224452 : mat(k,1536) = mat(k,1536) + rxt(k,586)*y(k,222)
1204 315224452 : mat(k,866) = 1.100_r8*rxt(k,581)*y(k,220) + .200_r8*rxt(k,579)*y(k,221)
1205 315224452 : mat(k,530) = rxt(k,188)*y(k,134)
1206 315224452 : mat(k,681) = 1.100_r8*rxt(k,581)*y(k,203)
1207 315224452 : mat(k,847) = .200_r8*rxt(k,579)*y(k,203)
1208 315224452 : mat(k,506) = rxt(k,585)*y(k,134) + rxt(k,586)*y(k,135)
1209 315224452 : mat(k,256) = -((rxt(k,206) + rxt(k,207)) * y(k,224))
1210 315224452 : mat(k,2013) = -(rxt(k,206) + rxt(k,207)) * y(k,113)
1211 315224452 : mat(k,993) = rxt(k,191)*y(k,125)
1212 315224452 : mat(k,1928) = rxt(k,191)*y(k,112)
1213 315224452 : mat(k,1929) = rxt(k,209)*y(k,126)
1214 315224452 : mat(k,1609) = rxt(k,209)*y(k,125)
1215 315224452 : mat(k,427) = -(rxt(k,428)*y(k,228))
1216 315224452 : mat(k,1727) = -rxt(k,428)*y(k,115)
1217 315224452 : mat(k,2373) = .200_r8*rxt(k,420)*y(k,210)
1218 315224452 : mat(k,1245) = .200_r8*rxt(k,420)*y(k,201)
1219 315224452 : mat(k,1090) = -(rxt(k,429)*y(k,228))
1220 315224452 : mat(k,1788) = -rxt(k,429)*y(k,116)
1221 315224452 : mat(k,1887) = rxt(k,422)*y(k,210)
1222 315224452 : mat(k,1625) = rxt(k,423)*y(k,210)
1223 315224452 : mat(k,1415) = rxt(k,419)*y(k,210)
1224 315224452 : mat(k,2385) = .800_r8*rxt(k,420)*y(k,210)
1225 : mat(k,1249) = rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126) + rxt(k,419)*y(k,200) &
1226 315224452 : + .800_r8*rxt(k,420)*y(k,201)
1227 315224452 : mat(k,98) = -(rxt(k,519)*y(k,228))
1228 315224452 : mat(k,1681) = -rxt(k,519)*y(k,120)
1229 : mat(k,1914) = -(rxt(k,190)*y(k,112) + rxt(k,199)*y(k,126) + rxt(k,203) &
1230 : *y(k,90) + rxt(k,204)*y(k,136) + rxt(k,205)*y(k,134) + rxt(k,226) &
1231 : *y(k,59) + rxt(k,258)*y(k,19) + rxt(k,301)*y(k,201) + rxt(k,309) &
1232 : *y(k,207) + rxt(k,322)*y(k,197) + rxt(k,333)*y(k,200) + rxt(k,337) &
1233 : *y(k,206) + rxt(k,350)*y(k,198) + rxt(k,359)*y(k,231) + rxt(k,363) &
1234 : *y(k,232) + (rxt(k,369) + rxt(k,370)) * y(k,204) + (rxt(k,376) &
1235 : + rxt(k,377)) * y(k,213) + rxt(k,385)*y(k,215) + rxt(k,388) &
1236 : *y(k,217) + (rxt(k,398) + rxt(k,399)) * y(k,192) + rxt(k,408) &
1237 : *y(k,208) + rxt(k,414)*y(k,209) + rxt(k,422)*y(k,210) + rxt(k,433) &
1238 : *y(k,237) + rxt(k,437)*y(k,191) + rxt(k,440)*y(k,194) + rxt(k,445) &
1239 : *y(k,196) + rxt(k,447)*y(k,199) + rxt(k,451)*y(k,202) + rxt(k,454) &
1240 : *y(k,214) + rxt(k,457)*y(k,216) + rxt(k,460)*y(k,230) + rxt(k,467) &
1241 : *y(k,235) + rxt(k,473)*y(k,238) + rxt(k,476)*y(k,240) + rxt(k,487) &
1242 : *y(k,223) + rxt(k,492)*y(k,233) + rxt(k,497)*y(k,234) + rxt(k,590) &
1243 315224452 : *y(k,227))
1244 315224452 : mat(k,1004) = -rxt(k,190)*y(k,124)
1245 315224452 : mat(k,1654) = -rxt(k,199)*y(k,124)
1246 315224452 : mat(k,2358) = -rxt(k,203)*y(k,124)
1247 315224452 : mat(k,2225) = -rxt(k,204)*y(k,124)
1248 315224452 : mat(k,2094) = -rxt(k,205)*y(k,124)
1249 315224452 : mat(k,1595) = -rxt(k,226)*y(k,124)
1250 315224452 : mat(k,1569) = -rxt(k,258)*y(k,124)
1251 315224452 : mat(k,2410) = -rxt(k,301)*y(k,124)
1252 315224452 : mat(k,443) = -rxt(k,309)*y(k,124)
1253 315224452 : mat(k,905) = -rxt(k,322)*y(k,124)
1254 315224452 : mat(k,1433) = -rxt(k,333)*y(k,124)
1255 315224452 : mat(k,801) = -rxt(k,337)*y(k,124)
1256 315224452 : mat(k,940) = -rxt(k,350)*y(k,124)
1257 315224452 : mat(k,819) = -rxt(k,359)*y(k,124)
1258 315224452 : mat(k,1221) = -rxt(k,363)*y(k,124)
1259 315224452 : mat(k,578) = -(rxt(k,369) + rxt(k,370)) * y(k,124)
1260 315224452 : mat(k,1362) = -(rxt(k,376) + rxt(k,377)) * y(k,124)
1261 315224452 : mat(k,1402) = -rxt(k,385)*y(k,124)
1262 315224452 : mat(k,702) = -rxt(k,388)*y(k,124)
1263 315224452 : mat(k,1048) = -(rxt(k,398) + rxt(k,399)) * y(k,124)
1264 315224452 : mat(k,1307) = -rxt(k,408)*y(k,124)
1265 315224452 : mat(k,1340) = -rxt(k,414)*y(k,124)
1266 315224452 : mat(k,1261) = -rxt(k,422)*y(k,124)
1267 315224452 : mat(k,1239) = -rxt(k,433)*y(k,124)
1268 315224452 : mat(k,526) = -rxt(k,437)*y(k,124)
1269 315224452 : mat(k,499) = -rxt(k,440)*y(k,124)
1270 315224452 : mat(k,438) = -rxt(k,445)*y(k,124)
1271 315224452 : mat(k,637) = -rxt(k,447)*y(k,124)
1272 315224452 : mat(k,782) = -rxt(k,451)*y(k,124)
1273 315224452 : mat(k,743) = -rxt(k,454)*y(k,124)
1274 315224452 : mat(k,915) = -rxt(k,457)*y(k,124)
1275 315224452 : mat(k,451) = -rxt(k,460)*y(k,124)
1276 315224452 : mat(k,758) = -rxt(k,467)*y(k,124)
1277 315224452 : mat(k,775) = -rxt(k,473)*y(k,124)
1278 315224452 : mat(k,514) = -rxt(k,476)*y(k,124)
1279 315224452 : mat(k,1112) = -rxt(k,487)*y(k,124)
1280 315224452 : mat(k,1183) = -rxt(k,492)*y(k,124)
1281 315224452 : mat(k,1066) = -rxt(k,497)*y(k,124)
1282 315224452 : mat(k,857) = -rxt(k,590)*y(k,124)
1283 : mat(k,1004) = mat(k,1004) + 2.000_r8*rxt(k,192)*y(k,125) + rxt(k,194) &
1284 315224452 : *y(k,135) + rxt(k,202)*y(k,228)
1285 315224452 : mat(k,258) = 2.000_r8*rxt(k,206)*y(k,224)
1286 : mat(k,1959) = 2.000_r8*rxt(k,192)*y(k,112) + rxt(k,195)*y(k,134) + rxt(k,512) &
1287 315224452 : *y(k,152)
1288 315224452 : mat(k,2094) = mat(k,2094) + rxt(k,195)*y(k,125)
1289 315224452 : mat(k,1546) = rxt(k,194)*y(k,112) + rxt(k,189)*y(k,219)
1290 315224452 : mat(k,1482) = rxt(k,512)*y(k,125)
1291 315224452 : mat(k,532) = rxt(k,189)*y(k,135)
1292 315224452 : mat(k,2028) = 2.000_r8*rxt(k,206)*y(k,113)
1293 325174377 : mat(k,1819) = rxt(k,202)*y(k,112)
1294 : end do
1295 9949925 : end subroutine nlnmat05
1296 9949925 : subroutine nlnmat06( avec_len, mat, y, rxt )
1297 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1298 : implicit none
1299 : !----------------------------------------------
1300 : ! ... dummy arguments
1301 : !----------------------------------------------
1302 : integer, intent(in) :: avec_len
1303 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1304 : real(r8), intent(in) :: rxt(veclen,rxntot)
1305 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1306 : !----------------------------------------------
1307 : ! ... local variables
1308 : !----------------------------------------------
1309 : integer :: k
1310 : !----------------------------------------------
1311 : ! ... complete matrix entries implicit species
1312 : !----------------------------------------------
1313 325174377 : do k = 1,avec_len
1314 315224452 : mat(k,1960) = -((rxt(k,191) + rxt(k,192) + rxt(k,193)) * y(k,112) + (rxt(k,195) &
1315 : + rxt(k,197)) * y(k,134) + rxt(k,196)*y(k,136) + rxt(k,208) &
1316 : *y(k,90) + rxt(k,209)*y(k,126) + rxt(k,210)*y(k,228) + rxt(k,228) &
1317 : *y(k,59) + rxt(k,259)*y(k,19) + rxt(k,344)*y(k,200) + rxt(k,394) &
1318 : *y(k,215) + rxt(k,452)*y(k,202) + rxt(k,455)*y(k,214) + rxt(k,458) &
1319 : *y(k,216) + rxt(k,462)*y(k,143) + rxt(k,465)*y(k,191) + rxt(k,512) &
1320 315224452 : *y(k,152))
1321 315224452 : mat(k,1005) = -(rxt(k,191) + rxt(k,192) + rxt(k,193)) * y(k,125)
1322 315224452 : mat(k,2095) = -(rxt(k,195) + rxt(k,197)) * y(k,125)
1323 315224452 : mat(k,2226) = -rxt(k,196)*y(k,125)
1324 315224452 : mat(k,2359) = -rxt(k,208)*y(k,125)
1325 315224452 : mat(k,1655) = -rxt(k,209)*y(k,125)
1326 315224452 : mat(k,1820) = -rxt(k,210)*y(k,125)
1327 315224452 : mat(k,1596) = -rxt(k,228)*y(k,125)
1328 315224452 : mat(k,1570) = -rxt(k,259)*y(k,125)
1329 315224452 : mat(k,1434) = -rxt(k,344)*y(k,125)
1330 315224452 : mat(k,1403) = -rxt(k,394)*y(k,125)
1331 315224452 : mat(k,783) = -rxt(k,452)*y(k,125)
1332 315224452 : mat(k,744) = -rxt(k,455)*y(k,125)
1333 315224452 : mat(k,916) = -rxt(k,458)*y(k,125)
1334 315224452 : mat(k,470) = -rxt(k,462)*y(k,125)
1335 315224452 : mat(k,527) = -rxt(k,465)*y(k,125)
1336 315224452 : mat(k,1483) = -rxt(k,512)*y(k,125)
1337 315224452 : mat(k,649) = rxt(k,396)*y(k,228)
1338 315224452 : mat(k,361) = rxt(k,367)*y(k,126)
1339 315224452 : mat(k,1570) = mat(k,1570) + rxt(k,258)*y(k,124)
1340 315224452 : mat(k,1596) = mat(k,1596) + rxt(k,226)*y(k,124)
1341 315224452 : mat(k,2359) = mat(k,2359) + rxt(k,203)*y(k,124) + rxt(k,198)*y(k,126)
1342 315224452 : mat(k,476) = rxt(k,187)*y(k,228)
1343 315224452 : mat(k,594) = .700_r8*rxt(k,416)*y(k,228)
1344 : mat(k,1915) = rxt(k,258)*y(k,19) + rxt(k,226)*y(k,59) + rxt(k,203)*y(k,90) &
1345 : + 2.000_r8*rxt(k,199)*y(k,126) + rxt(k,205)*y(k,134) &
1346 : + rxt(k,204)*y(k,136) + rxt(k,437)*y(k,191) + rxt(k,398) &
1347 : *y(k,192) + rxt(k,440)*y(k,194) + rxt(k,445)*y(k,196) &
1348 : + rxt(k,322)*y(k,197) + rxt(k,350)*y(k,198) + rxt(k,447) &
1349 : *y(k,199) + rxt(k,333)*y(k,200) + rxt(k,301)*y(k,201) &
1350 : + rxt(k,451)*y(k,202) + rxt(k,369)*y(k,204) + rxt(k,337) &
1351 : *y(k,206) + rxt(k,309)*y(k,207) + .920_r8*rxt(k,408)*y(k,208) &
1352 : + .920_r8*rxt(k,414)*y(k,209) + rxt(k,422)*y(k,210) + rxt(k,376) &
1353 : *y(k,213) + rxt(k,454)*y(k,214) + rxt(k,385)*y(k,215) &
1354 : + rxt(k,457)*y(k,216) + rxt(k,388)*y(k,217) &
1355 : + 1.600_r8*rxt(k,487)*y(k,223) + rxt(k,460)*y(k,230) &
1356 : + rxt(k,359)*y(k,231) + rxt(k,363)*y(k,232) + .900_r8*rxt(k,492) &
1357 : *y(k,233) + .800_r8*rxt(k,497)*y(k,234) + rxt(k,467)*y(k,235) &
1358 : + rxt(k,433)*y(k,237) + rxt(k,473)*y(k,238) + rxt(k,476) &
1359 315224452 : *y(k,240)
1360 : mat(k,1655) = mat(k,1655) + rxt(k,367)*y(k,16) + rxt(k,198)*y(k,90) &
1361 : + 2.000_r8*rxt(k,199)*y(k,124) + rxt(k,200)*y(k,134) &
1362 : + rxt(k,409)*y(k,208) + rxt(k,415)*y(k,209) + rxt(k,423) &
1363 : *y(k,210) + rxt(k,375)*y(k,213) + rxt(k,386)*y(k,215) &
1364 : + 2.000_r8*rxt(k,488)*y(k,223) + rxt(k,201)*y(k,228) &
1365 315224452 : + rxt(k,434)*y(k,237)
1366 315224452 : mat(k,896) = rxt(k,357)*y(k,228)
1367 315224452 : mat(k,2095) = mat(k,2095) + rxt(k,205)*y(k,124) + rxt(k,200)*y(k,126)
1368 315224452 : mat(k,2226) = mat(k,2226) + rxt(k,204)*y(k,124)
1369 315224452 : mat(k,630) = rxt(k,494)*y(k,228)
1370 315224452 : mat(k,527) = mat(k,527) + rxt(k,437)*y(k,124)
1371 315224452 : mat(k,1049) = rxt(k,398)*y(k,124)
1372 315224452 : mat(k,500) = rxt(k,440)*y(k,124)
1373 315224452 : mat(k,439) = rxt(k,445)*y(k,124)
1374 315224452 : mat(k,906) = rxt(k,322)*y(k,124)
1375 315224452 : mat(k,941) = rxt(k,350)*y(k,124)
1376 315224452 : mat(k,638) = rxt(k,447)*y(k,124)
1377 315224452 : mat(k,1434) = mat(k,1434) + rxt(k,333)*y(k,124)
1378 315224452 : mat(k,2411) = rxt(k,301)*y(k,124) + .500_r8*rxt(k,485)*y(k,223)
1379 315224452 : mat(k,783) = mat(k,783) + rxt(k,451)*y(k,124)
1380 315224452 : mat(k,579) = rxt(k,369)*y(k,124)
1381 315224452 : mat(k,802) = rxt(k,337)*y(k,124)
1382 315224452 : mat(k,444) = rxt(k,309)*y(k,124)
1383 315224452 : mat(k,1308) = .920_r8*rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126)
1384 315224452 : mat(k,1341) = .920_r8*rxt(k,414)*y(k,124) + rxt(k,415)*y(k,126)
1385 315224452 : mat(k,1262) = rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126)
1386 315224452 : mat(k,1363) = rxt(k,376)*y(k,124) + rxt(k,375)*y(k,126)
1387 315224452 : mat(k,744) = mat(k,744) + rxt(k,454)*y(k,124)
1388 315224452 : mat(k,1403) = mat(k,1403) + rxt(k,385)*y(k,124) + rxt(k,386)*y(k,126)
1389 315224452 : mat(k,916) = mat(k,916) + rxt(k,457)*y(k,124)
1390 315224452 : mat(k,703) = rxt(k,388)*y(k,124)
1391 : mat(k,1113) = 1.600_r8*rxt(k,487)*y(k,124) + 2.000_r8*rxt(k,488)*y(k,126) &
1392 315224452 : + .500_r8*rxt(k,485)*y(k,201)
1393 : mat(k,1820) = mat(k,1820) + rxt(k,396)*y(k,1) + rxt(k,187)*y(k,91) &
1394 : + .700_r8*rxt(k,416)*y(k,100) + rxt(k,201)*y(k,126) + rxt(k,357) &
1395 315224452 : *y(k,127) + rxt(k,494)*y(k,178)
1396 315224452 : mat(k,452) = rxt(k,460)*y(k,124)
1397 315224452 : mat(k,820) = rxt(k,359)*y(k,124)
1398 315224452 : mat(k,1222) = rxt(k,363)*y(k,124)
1399 315224452 : mat(k,1184) = .900_r8*rxt(k,492)*y(k,124)
1400 315224452 : mat(k,1067) = .800_r8*rxt(k,497)*y(k,124)
1401 315224452 : mat(k,759) = rxt(k,467)*y(k,124)
1402 315224452 : mat(k,1240) = rxt(k,433)*y(k,124) + rxt(k,434)*y(k,126)
1403 315224452 : mat(k,776) = rxt(k,473)*y(k,124)
1404 315224452 : mat(k,515) = rxt(k,476)*y(k,124)
1405 : mat(k,1652) = -(rxt(k,198)*y(k,90) + rxt(k,199)*y(k,124) + rxt(k,200) &
1406 : *y(k,134) + rxt(k,201)*y(k,228) + rxt(k,209)*y(k,125) + rxt(k,295) &
1407 : *y(k,42) + rxt(k,327)*y(k,45) + rxt(k,346)*y(k,29) + rxt(k,353) &
1408 : *y(k,49) + rxt(k,367)*y(k,16) + rxt(k,375)*y(k,213) + rxt(k,386) &
1409 : *y(k,215) + rxt(k,409)*y(k,208) + rxt(k,415)*y(k,209) + rxt(k,418) &
1410 : *y(k,99) + rxt(k,423)*y(k,210) + rxt(k,434)*y(k,237) + rxt(k,479) &
1411 : *y(k,6) + rxt(k,482)*y(k,110) + rxt(k,488)*y(k,223) + rxt(k,499) &
1412 315224452 : *y(k,180) + rxt(k,502)*y(k,67))
1413 315224452 : mat(k,2356) = -rxt(k,198)*y(k,126)
1414 315224452 : mat(k,1912) = -rxt(k,199)*y(k,126)
1415 315224452 : mat(k,2092) = -rxt(k,200)*y(k,126)
1416 315224452 : mat(k,1817) = -rxt(k,201)*y(k,126)
1417 315224452 : mat(k,1957) = -rxt(k,209)*y(k,126)
1418 315224452 : mat(k,1983) = -rxt(k,295)*y(k,126)
1419 315224452 : mat(k,1154) = -rxt(k,327)*y(k,126)
1420 315224452 : mat(k,1141) = -rxt(k,346)*y(k,126)
1421 315224452 : mat(k,1284) = -rxt(k,353)*y(k,126)
1422 315224452 : mat(k,359) = -rxt(k,367)*y(k,126)
1423 315224452 : mat(k,1360) = -rxt(k,375)*y(k,126)
1424 315224452 : mat(k,1400) = -rxt(k,386)*y(k,126)
1425 315224452 : mat(k,1305) = -rxt(k,409)*y(k,126)
1426 315224452 : mat(k,1338) = -rxt(k,415)*y(k,126)
1427 315224452 : mat(k,886) = -rxt(k,418)*y(k,126)
1428 315224452 : mat(k,1259) = -rxt(k,423)*y(k,126)
1429 315224452 : mat(k,1237) = -rxt(k,434)*y(k,126)
1430 315224452 : mat(k,987) = -rxt(k,479)*y(k,126)
1431 315224452 : mat(k,1031) = -rxt(k,482)*y(k,126)
1432 315224452 : mat(k,1110) = -rxt(k,488)*y(k,126)
1433 315224452 : mat(k,1077) = -rxt(k,499)*y(k,126)
1434 315224452 : mat(k,312) = -rxt(k,502)*y(k,126)
1435 315224452 : mat(k,570) = rxt(k,260)*y(k,134)
1436 315224452 : mat(k,2159) = rxt(k,227)*y(k,60)
1437 315224452 : mat(k,958) = rxt(k,227)*y(k,56) + rxt(k,229)*y(k,134) + rxt(k,230)*y(k,228)
1438 315224452 : mat(k,927) = rxt(k,274)*y(k,89)
1439 315224452 : mat(k,2049) = rxt(k,274)*y(k,73) + rxt(k,211)*y(k,228)
1440 315224452 : mat(k,615) = .500_r8*rxt(k,391)*y(k,228)
1441 315224452 : mat(k,1957) = mat(k,1957) + rxt(k,197)*y(k,134) + rxt(k,196)*y(k,136)
1442 : mat(k,2092) = mat(k,2092) + rxt(k,260)*y(k,20) + rxt(k,229)*y(k,60) &
1443 315224452 : + rxt(k,197)*y(k,125)
1444 315224452 : mat(k,2223) = rxt(k,196)*y(k,125)
1445 315224452 : mat(k,537) = rxt(k,342)*y(k,228)
1446 : mat(k,1817) = mat(k,1817) + rxt(k,230)*y(k,60) + rxt(k,211)*y(k,89) &
1447 315224452 : + .500_r8*rxt(k,391)*y(k,109) + rxt(k,342)*y(k,141)
1448 315224452 : mat(k,892) = -(rxt(k,357)*y(k,228))
1449 315224452 : mat(k,1772) = -rxt(k,357)*y(k,127)
1450 315224452 : mat(k,1131) = rxt(k,346)*y(k,126)
1451 315224452 : mat(k,559) = .500_r8*rxt(k,417)*y(k,228)
1452 315224452 : mat(k,405) = rxt(k,424)*y(k,228)
1453 315224452 : mat(k,428) = rxt(k,428)*y(k,228)
1454 315224452 : mat(k,1087) = rxt(k,429)*y(k,228)
1455 315224452 : mat(k,1615) = rxt(k,346)*y(k,29)
1456 : mat(k,1772) = mat(k,1772) + .500_r8*rxt(k,417)*y(k,101) + rxt(k,424)*y(k,102) &
1457 315224452 : + rxt(k,428)*y(k,115) + rxt(k,429)*y(k,116)
1458 315224452 : mat(k,391) = -(rxt(k,489)*y(k,228))
1459 315224452 : mat(k,1721) = -rxt(k,489)*y(k,128)
1460 315224452 : mat(k,2283) = rxt(k,486)*y(k,223)
1461 315224452 : mat(k,1102) = rxt(k,486)*y(k,90)
1462 : mat(k,2099) = -(rxt(k,167)*y(k,136) + 4._r8*rxt(k,168)*y(k,134) + rxt(k,169) &
1463 : *y(k,135) + rxt(k,170)*y(k,77) + rxt(k,171)*y(k,79) + rxt(k,176) &
1464 : *y(k,90) + rxt(k,182)*y(k,228) + (rxt(k,195) + rxt(k,197) &
1465 : ) * y(k,125) + rxt(k,200)*y(k,126) + rxt(k,205)*y(k,124) &
1466 : + rxt(k,229)*y(k,60) + rxt(k,231)*y(k,59) + rxt(k,234)*y(k,85) &
1467 : + rxt(k,237)*y(k,93) + rxt(k,260)*y(k,20) + rxt(k,261)*y(k,19) &
1468 : + rxt(k,263)*y(k,81) + rxt(k,265)*y(k,92) + rxt(k,296)*y(k,42) &
1469 : + rxt(k,504)*y(k,139) + (rxt(k,583) + rxt(k,584)) * y(k,220) &
1470 315224452 : + rxt(k,585)*y(k,222))
1471 315224452 : mat(k,2230) = -rxt(k,167)*y(k,134)
1472 315224452 : mat(k,1550) = -rxt(k,169)*y(k,134)
1473 315224452 : mat(k,1467) = -rxt(k,170)*y(k,134)
1474 315224452 : mat(k,585) = -rxt(k,171)*y(k,134)
1475 315224452 : mat(k,2363) = -rxt(k,176)*y(k,134)
1476 315224452 : mat(k,1824) = -rxt(k,182)*y(k,134)
1477 315224452 : mat(k,1964) = -(rxt(k,195) + rxt(k,197)) * y(k,134)
1478 315224452 : mat(k,1659) = -rxt(k,200)*y(k,134)
1479 315224452 : mat(k,1919) = -rxt(k,205)*y(k,134)
1480 315224452 : mat(k,962) = -rxt(k,229)*y(k,134)
1481 315224452 : mat(k,1600) = -rxt(k,231)*y(k,134)
1482 315224452 : mat(k,1504) = -rxt(k,234)*y(k,134)
1483 315224452 : mat(k,841) = -rxt(k,237)*y(k,134)
1484 315224452 : mat(k,573) = -rxt(k,260)*y(k,134)
1485 315224452 : mat(k,1574) = -rxt(k,261)*y(k,134)
1486 315224452 : mat(k,833) = -rxt(k,263)*y(k,134)
1487 315224452 : mat(k,792) = -rxt(k,265)*y(k,134)
1488 315224452 : mat(k,1990) = -rxt(k,296)*y(k,134)
1489 315224452 : mat(k,369) = -rxt(k,504)*y(k,134)
1490 315224452 : mat(k,685) = -(rxt(k,583) + rxt(k,584)) * y(k,134)
1491 315224452 : mat(k,508) = -rxt(k,585)*y(k,134)
1492 315224452 : mat(k,2120) = rxt(k,174)*y(k,90)
1493 315224452 : mat(k,2363) = mat(k,2363) + rxt(k,174)*y(k,76)
1494 : mat(k,1007) = rxt(k,190)*y(k,124) + rxt(k,191)*y(k,125) + rxt(k,194)*y(k,135) &
1495 315224452 : + rxt(k,588)*y(k,227)
1496 315224452 : mat(k,1919) = mat(k,1919) + rxt(k,190)*y(k,112)
1497 315224452 : mat(k,1964) = mat(k,1964) + rxt(k,191)*y(k,112)
1498 : mat(k,1550) = mat(k,1550) + rxt(k,194)*y(k,112) + rxt(k,506)*y(k,150) &
1499 : + rxt(k,513)*y(k,152) + rxt(k,587)*y(k,222) + (rxt(k,156) &
1500 315224452 : +rxt(k,157))*y(k,224) + rxt(k,593)*y(k,229)
1501 315224452 : mat(k,722) = rxt(k,506)*y(k,135)
1502 315224452 : mat(k,1484) = rxt(k,513)*y(k,135)
1503 315224452 : mat(k,872) = rxt(k,579)*y(k,221) + 1.150_r8*rxt(k,580)*y(k,227)
1504 315224452 : mat(k,851) = rxt(k,579)*y(k,203)
1505 315224452 : mat(k,508) = mat(k,508) + rxt(k,587)*y(k,135)
1506 315224452 : mat(k,2033) = (rxt(k,156)+rxt(k,157))*y(k,135)
1507 315224452 : mat(k,859) = rxt(k,588)*y(k,112) + 1.150_r8*rxt(k,580)*y(k,203)
1508 315224452 : mat(k,1824) = mat(k,1824) + 2.000_r8*rxt(k,184)*y(k,228)
1509 315224452 : mat(k,812) = rxt(k,593)*y(k,135)
1510 : mat(k,1542) = -(rxt(k,156)*y(k,224) + rxt(k,161)*y(k,225) + rxt(k,169) &
1511 : *y(k,134) + rxt(k,175)*y(k,76) + rxt(k,189)*y(k,219) + rxt(k,194) &
1512 : *y(k,112) + rxt(k,339)*y(k,205) + rxt(k,506)*y(k,150) + rxt(k,513) &
1513 : *y(k,152) + rxt(k,582)*y(k,220) + (rxt(k,586) + rxt(k,587) &
1514 315224452 : ) * y(k,222) + rxt(k,593)*y(k,229))
1515 315224452 : mat(k,2023) = -rxt(k,156)*y(k,135)
1516 315224452 : mat(k,178) = -rxt(k,161)*y(k,135)
1517 315224452 : mat(k,2089) = -rxt(k,169)*y(k,135)
1518 315224452 : mat(k,2110) = -rxt(k,175)*y(k,135)
1519 315224452 : mat(k,531) = -rxt(k,189)*y(k,135)
1520 315224452 : mat(k,1002) = -rxt(k,194)*y(k,135)
1521 315224452 : mat(k,462) = -rxt(k,339)*y(k,135)
1522 315224452 : mat(k,720) = -rxt(k,506)*y(k,135)
1523 315224452 : mat(k,1478) = -rxt(k,513)*y(k,135)
1524 315224452 : mat(k,682) = -rxt(k,582)*y(k,135)
1525 315224452 : mat(k,507) = -(rxt(k,586) + rxt(k,587)) * y(k,135)
1526 315224452 : mat(k,811) = -rxt(k,593)*y(k,135)
1527 315224452 : mat(k,1512) = rxt(k,251)*y(k,90) + rxt(k,252)*y(k,136)
1528 : mat(k,1564) = 2.000_r8*rxt(k,253)*y(k,19) + (rxt(k,255)+rxt(k,256))*y(k,59) &
1529 315224452 : + rxt(k,257)*y(k,90) + rxt(k,261)*y(k,134)
1530 315224452 : mat(k,2156) = rxt(k,218)*y(k,90) + rxt(k,220)*y(k,136)
1531 : mat(k,1590) = (rxt(k,255)+rxt(k,256))*y(k,19) + (2.000_r8*rxt(k,222) &
1532 : +2.000_r8*rxt(k,223))*y(k,59) + rxt(k,225)*y(k,90) + rxt(k,231) &
1533 315224452 : *y(k,134) + rxt(k,233)*y(k,228)
1534 315224452 : mat(k,2110) = mat(k,2110) + rxt(k,172)*y(k,90) + rxt(k,178)*y(k,136)
1535 : mat(k,2353) = rxt(k,251)*y(k,17) + rxt(k,257)*y(k,19) + rxt(k,218)*y(k,56) &
1536 : + rxt(k,225)*y(k,59) + rxt(k,172)*y(k,76) + 2.000_r8*rxt(k,186) &
1537 : *y(k,90) + rxt(k,198)*y(k,126) + rxt(k,176)*y(k,134) &
1538 : + 2.000_r8*rxt(k,177)*y(k,136) + rxt(k,321)*y(k,197) &
1539 : + rxt(k,349)*y(k,198) + rxt(k,300)*y(k,201) + rxt(k,181) &
1540 315224452 : *y(k,228) + rxt(k,358)*y(k,231)
1541 315224452 : mat(k,473) = rxt(k,187)*y(k,228)
1542 315224452 : mat(k,1002) = mat(k,1002) + rxt(k,193)*y(k,125)
1543 315224452 : mat(k,257) = rxt(k,207)*y(k,224)
1544 315224452 : mat(k,1909) = rxt(k,204)*y(k,136) + rxt(k,590)*y(k,227)
1545 315224452 : mat(k,1954) = rxt(k,193)*y(k,112) + rxt(k,195)*y(k,134) + rxt(k,196)*y(k,136)
1546 315224452 : mat(k,1649) = rxt(k,198)*y(k,90) + rxt(k,200)*y(k,134)
1547 : mat(k,2089) = mat(k,2089) + rxt(k,261)*y(k,19) + rxt(k,231)*y(k,59) &
1548 : + rxt(k,176)*y(k,90) + rxt(k,195)*y(k,125) + rxt(k,200)*y(k,126) &
1549 : + 2.000_r8*rxt(k,168)*y(k,134) + 2.000_r8*rxt(k,167)*y(k,136) &
1550 315224452 : + rxt(k,160)*y(k,225) + rxt(k,182)*y(k,228)
1551 315224452 : mat(k,1542) = mat(k,1542) + 2.000_r8*rxt(k,161)*y(k,225)
1552 : mat(k,2220) = rxt(k,252)*y(k,17) + rxt(k,220)*y(k,56) + rxt(k,178)*y(k,76) &
1553 : + 2.000_r8*rxt(k,177)*y(k,90) + rxt(k,204)*y(k,124) + rxt(k,196) &
1554 : *y(k,125) + 2.000_r8*rxt(k,167)*y(k,134) + rxt(k,508)*y(k,150) &
1555 : + rxt(k,514)*y(k,152) + 2.000_r8*rxt(k,158)*y(k,224) &
1556 315224452 : + rxt(k,183)*y(k,228)
1557 315224452 : mat(k,720) = mat(k,720) + rxt(k,508)*y(k,136)
1558 315224452 : mat(k,1478) = mat(k,1478) + rxt(k,514)*y(k,136)
1559 315224452 : mat(k,903) = rxt(k,321)*y(k,90)
1560 315224452 : mat(k,938) = rxt(k,349)*y(k,90)
1561 315224452 : mat(k,2405) = rxt(k,300)*y(k,90)
1562 : mat(k,2023) = mat(k,2023) + rxt(k,207)*y(k,113) + 2.000_r8*rxt(k,158) &
1563 315224452 : *y(k,136)
1564 315224452 : mat(k,178) = mat(k,178) + rxt(k,160)*y(k,134) + 2.000_r8*rxt(k,161)*y(k,135)
1565 315224452 : mat(k,856) = rxt(k,590)*y(k,124)
1566 : mat(k,1814) = rxt(k,233)*y(k,59) + rxt(k,181)*y(k,90) + rxt(k,187)*y(k,91) &
1567 315224452 : + rxt(k,182)*y(k,134) + rxt(k,183)*y(k,136)
1568 325174377 : mat(k,817) = rxt(k,358)*y(k,90)
1569 : end do
1570 9949925 : end subroutine nlnmat06
1571 9949925 : subroutine nlnmat07( avec_len, mat, y, rxt )
1572 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1573 : implicit none
1574 : !----------------------------------------------
1575 : ! ... dummy arguments
1576 : !----------------------------------------------
1577 : integer, intent(in) :: avec_len
1578 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1579 : real(r8), intent(in) :: rxt(veclen,rxntot)
1580 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1581 : !----------------------------------------------
1582 : ! ... local variables
1583 : !----------------------------------------------
1584 : integer :: k
1585 : !----------------------------------------------
1586 : ! ... complete matrix entries implicit species
1587 : !----------------------------------------------
1588 325174377 : do k = 1,avec_len
1589 315224452 : mat(k,2233) = -(rxt(k,158)*y(k,224) + rxt(k,167)*y(k,134) + rxt(k,177) &
1590 : *y(k,90) + rxt(k,178)*y(k,76) + rxt(k,183)*y(k,228) + rxt(k,196) &
1591 : *y(k,125) + rxt(k,204)*y(k,124) + rxt(k,220)*y(k,56) + rxt(k,252) &
1592 : *y(k,17) + rxt(k,318)*y(k,25) + rxt(k,347)*y(k,29) + rxt(k,378) &
1593 : *y(k,105) + rxt(k,392)*y(k,111) + rxt(k,425)*y(k,99) + rxt(k,463) &
1594 : *y(k,143) + rxt(k,480)*y(k,6) + rxt(k,483)*y(k,110) + rxt(k,508) &
1595 315224452 : *y(k,150) + rxt(k,514)*y(k,152))
1596 315224452 : mat(k,2036) = -rxt(k,158)*y(k,136)
1597 315224452 : mat(k,2102) = -rxt(k,167)*y(k,136)
1598 315224452 : mat(k,2366) = -rxt(k,177)*y(k,136)
1599 315224452 : mat(k,2123) = -rxt(k,178)*y(k,136)
1600 315224452 : mat(k,1827) = -rxt(k,183)*y(k,136)
1601 315224452 : mat(k,1967) = -rxt(k,196)*y(k,136)
1602 315224452 : mat(k,1922) = -rxt(k,204)*y(k,136)
1603 315224452 : mat(k,2169) = -rxt(k,220)*y(k,136)
1604 315224452 : mat(k,1521) = -rxt(k,252)*y(k,136)
1605 315224452 : mat(k,556) = -rxt(k,318)*y(k,136)
1606 315224452 : mat(k,1146) = -rxt(k,347)*y(k,136)
1607 315224452 : mat(k,1277) = -rxt(k,378)*y(k,136)
1608 315224452 : mat(k,1387) = -rxt(k,392)*y(k,136)
1609 315224452 : mat(k,889) = -rxt(k,425)*y(k,136)
1610 315224452 : mat(k,471) = -rxt(k,463)*y(k,136)
1611 315224452 : mat(k,990) = -rxt(k,480)*y(k,136)
1612 315224452 : mat(k,1034) = -rxt(k,483)*y(k,136)
1613 315224452 : mat(k,724) = -rxt(k,508)*y(k,136)
1614 315224452 : mat(k,1487) = -rxt(k,514)*y(k,136)
1615 : mat(k,2366) = mat(k,2366) + .150_r8*rxt(k,332)*y(k,200) + .150_r8*rxt(k,383) &
1616 315224452 : *y(k,215)
1617 315224452 : mat(k,2102) = mat(k,2102) + rxt(k,169)*y(k,135)
1618 315224452 : mat(k,1553) = rxt(k,169)*y(k,134)
1619 315224452 : mat(k,1437) = .150_r8*rxt(k,332)*y(k,90)
1620 315224452 : mat(k,1406) = .150_r8*rxt(k,383)*y(k,90)
1621 315224452 : mat(k,334) = -(rxt(k,515)*y(k,152))
1622 315224452 : mat(k,1473) = -rxt(k,515)*y(k,138)
1623 315224452 : mat(k,1557) = rxt(k,254)*y(k,59)
1624 315224452 : mat(k,1583) = rxt(k,254)*y(k,19) + 2.000_r8*rxt(k,224)*y(k,59)
1625 315224452 : mat(k,363) = -(rxt(k,504)*y(k,134) + rxt(k,505)*y(k,228))
1626 315224452 : mat(k,2066) = -rxt(k,504)*y(k,139)
1627 315224452 : mat(k,1718) = -rxt(k,505)*y(k,139)
1628 315224452 : mat(k,1190) = rxt(k,371)*y(k,228)
1629 315224452 : mat(k,1844) = .100_r8*rxt(k,492)*y(k,233)
1630 315224452 : mat(k,1697) = rxt(k,371)*y(k,94)
1631 315224452 : mat(k,1171) = .100_r8*rxt(k,492)*y(k,124)
1632 315224452 : mat(k,534) = -(rxt(k,342)*y(k,228))
1633 315224452 : mat(k,1740) = -rxt(k,342)*y(k,141)
1634 315224452 : mat(k,1933) = rxt(k,344)*y(k,200)
1635 315224452 : mat(k,1411) = rxt(k,344)*y(k,125)
1636 315224452 : mat(k,1927) = rxt(k,465)*y(k,191)
1637 315224452 : mat(k,522) = rxt(k,465)*y(k,125)
1638 315224452 : mat(k,468) = -(rxt(k,462)*y(k,125) + rxt(k,463)*y(k,136))
1639 315224452 : mat(k,1930) = -rxt(k,462)*y(k,143)
1640 315224452 : mat(k,2183) = -rxt(k,463)*y(k,143)
1641 315224452 : mat(k,196) = .070_r8*rxt(k,449)*y(k,228)
1642 315224452 : mat(k,1854) = rxt(k,447)*y(k,199)
1643 315224452 : mat(k,172) = .060_r8*rxt(k,461)*y(k,228)
1644 315224452 : mat(k,217) = .070_r8*rxt(k,477)*y(k,228)
1645 315224452 : mat(k,634) = rxt(k,447)*y(k,124)
1646 : mat(k,1732) = .070_r8*rxt(k,449)*y(k,66) + .060_r8*rxt(k,461)*y(k,144) &
1647 315224452 : + .070_r8*rxt(k,477)*y(k,187)
1648 315224452 : mat(k,170) = -(rxt(k,461)*y(k,228))
1649 315224452 : mat(k,1687) = -rxt(k,461)*y(k,144)
1650 315224452 : mat(k,162) = .530_r8*rxt(k,438)*y(k,228)
1651 315224452 : mat(k,1687) = mat(k,1687) + .530_r8*rxt(k,438)*y(k,7)
1652 315224452 : mat(k,339) = -(rxt(k,464)*y(k,228))
1653 315224452 : mat(k,1714) = -rxt(k,464)*y(k,145)
1654 315224452 : mat(k,2280) = rxt(k,459)*y(k,230)
1655 315224452 : mat(k,447) = rxt(k,459)*y(k,90)
1656 315224452 : mat(k,542) = -(rxt(k,360)*y(k,228))
1657 315224452 : mat(k,1741) = -rxt(k,360)*y(k,148)
1658 315224452 : mat(k,2301) = rxt(k,358)*y(k,231)
1659 315224452 : mat(k,813) = rxt(k,358)*y(k,90)
1660 315224452 : mat(k,397) = -(rxt(k,364)*y(k,228))
1661 315224452 : mat(k,1722) = -rxt(k,364)*y(k,149)
1662 315224452 : mat(k,2284) = .850_r8*rxt(k,362)*y(k,232)
1663 315224452 : mat(k,1214) = .850_r8*rxt(k,362)*y(k,90)
1664 : mat(k,718) = -(rxt(k,506)*y(k,135) + rxt(k,508)*y(k,136) + rxt(k,511) &
1665 315224452 : *y(k,228))
1666 315224452 : mat(k,1530) = -rxt(k,506)*y(k,150)
1667 315224452 : mat(k,2187) = -rxt(k,508)*y(k,150)
1668 315224452 : mat(k,1760) = -rxt(k,511)*y(k,150)
1669 : mat(k,1476) = -(rxt(k,509)*y(k,19) + rxt(k,510)*y(k,59) + rxt(k,512)*y(k,125) &
1670 : + rxt(k,513)*y(k,135) + rxt(k,514)*y(k,136) + rxt(k,515) &
1671 315224452 : *y(k,138) + rxt(k,516)*y(k,228))
1672 315224452 : mat(k,1561) = -rxt(k,509)*y(k,152)
1673 315224452 : mat(k,1587) = -rxt(k,510)*y(k,152)
1674 315224452 : mat(k,1951) = -rxt(k,512)*y(k,152)
1675 315224452 : mat(k,1540) = -rxt(k,513)*y(k,152)
1676 315224452 : mat(k,2218) = -rxt(k,514)*y(k,152)
1677 315224452 : mat(k,336) = -rxt(k,515)*y(k,152)
1678 315224452 : mat(k,1811) = -rxt(k,516)*y(k,152)
1679 315224452 : mat(k,2086) = rxt(k,504)*y(k,139)
1680 315224452 : mat(k,1540) = mat(k,1540) + rxt(k,506)*y(k,150)
1681 315224452 : mat(k,2218) = mat(k,2218) + rxt(k,508)*y(k,150)
1682 315224452 : mat(k,367) = rxt(k,504)*y(k,134)
1683 315224452 : mat(k,719) = rxt(k,506)*y(k,135) + rxt(k,508)*y(k,136) + rxt(k,511)*y(k,228)
1684 315224452 : mat(k,1811) = mat(k,1811) + rxt(k,511)*y(k,150)
1685 315224452 : mat(k,947) = -(rxt(k,507)*y(k,228))
1686 315224452 : mat(k,1778) = -rxt(k,507)*y(k,153)
1687 315224452 : mat(k,1560) = rxt(k,509)*y(k,152)
1688 315224452 : mat(k,1585) = rxt(k,510)*y(k,152)
1689 315224452 : mat(k,311) = rxt(k,502)*y(k,126) + (rxt(k,503)+.500_r8*rxt(k,517))*y(k,228)
1690 315224452 : mat(k,1941) = rxt(k,512)*y(k,152)
1691 315224452 : mat(k,1617) = rxt(k,502)*y(k,67)
1692 315224452 : mat(k,1535) = rxt(k,513)*y(k,152)
1693 315224452 : mat(k,2191) = rxt(k,514)*y(k,152)
1694 315224452 : mat(k,335) = rxt(k,515)*y(k,152)
1695 315224452 : mat(k,365) = rxt(k,505)*y(k,228)
1696 : mat(k,1475) = rxt(k,509)*y(k,19) + rxt(k,510)*y(k,59) + rxt(k,512)*y(k,125) &
1697 : + rxt(k,513)*y(k,135) + rxt(k,514)*y(k,136) + rxt(k,515) &
1698 315224452 : *y(k,138) + rxt(k,516)*y(k,228)
1699 : mat(k,1778) = mat(k,1778) + (rxt(k,503)+.500_r8*rxt(k,517))*y(k,67) &
1700 315224452 : + rxt(k,505)*y(k,139) + rxt(k,516)*y(k,152)
1701 315224452 : mat(k,261) = -(rxt(k,518)*y(k,241))
1702 315224452 : mat(k,2424) = -rxt(k,518)*y(k,154)
1703 315224452 : mat(k,946) = rxt(k,507)*y(k,228)
1704 315224452 : mat(k,1703) = rxt(k,507)*y(k,153)
1705 315224452 : mat(k,965) = .2202005_r8*rxt(k,537)*y(k,136)
1706 : mat(k,2263) = .2202005_r8*rxt(k,535)*y(k,193) + .0023005_r8*rxt(k,540) &
1707 : *y(k,195) + .0031005_r8*rxt(k,543)*y(k,211) &
1708 : + .2381005_r8*rxt(k,547)*y(k,212) + .0508005_r8*rxt(k,551) &
1709 : *y(k,218) + .1364005_r8*rxt(k,557)*y(k,236) &
1710 315224452 : + .1677005_r8*rxt(k,560)*y(k,239)
1711 315224452 : mat(k,1009) = .0508005_r8*rxt(k,553)*y(k,136)
1712 : mat(k,1832) = .1279005_r8*rxt(k,536)*y(k,193) + .0097005_r8*rxt(k,541) &
1713 : *y(k,195) + .0003005_r8*rxt(k,544)*y(k,211) &
1714 : + .1056005_r8*rxt(k,548)*y(k,212) + .0245005_r8*rxt(k,552) &
1715 : *y(k,218) + .0154005_r8*rxt(k,558)*y(k,236) &
1716 315224452 : + .0063005_r8*rxt(k,561)*y(k,239)
1717 315224452 : mat(k,2174) = .2202005_r8*rxt(k,537)*y(k,6) + .0508005_r8*rxt(k,553)*y(k,110)
1718 315224452 : mat(k,45) = .5931005_r8*rxt(k,555)*y(k,228)
1719 315224452 : mat(k,51) = .2202005_r8*rxt(k,535)*y(k,90) + .1279005_r8*rxt(k,536)*y(k,124)
1720 315224452 : mat(k,57) = .0023005_r8*rxt(k,540)*y(k,90) + .0097005_r8*rxt(k,541)*y(k,124)
1721 315224452 : mat(k,63) = .0031005_r8*rxt(k,543)*y(k,90) + .0003005_r8*rxt(k,544)*y(k,124)
1722 315224452 : mat(k,69) = .2381005_r8*rxt(k,547)*y(k,90) + .1056005_r8*rxt(k,548)*y(k,124)
1723 315224452 : mat(k,77) = .0508005_r8*rxt(k,551)*y(k,90) + .0245005_r8*rxt(k,552)*y(k,124)
1724 315224452 : mat(k,1667) = .5931005_r8*rxt(k,555)*y(k,175)
1725 315224452 : mat(k,83) = .1364005_r8*rxt(k,557)*y(k,90) + .0154005_r8*rxt(k,558)*y(k,124)
1726 315224452 : mat(k,89) = .1677005_r8*rxt(k,560)*y(k,90) + .0063005_r8*rxt(k,561)*y(k,124)
1727 315224452 : mat(k,966) = .2067005_r8*rxt(k,537)*y(k,136)
1728 : mat(k,2264) = .2067005_r8*rxt(k,535)*y(k,193) + .0008005_r8*rxt(k,540) &
1729 : *y(k,195) + .0035005_r8*rxt(k,543)*y(k,211) &
1730 : + .1308005_r8*rxt(k,547)*y(k,212) + .1149005_r8*rxt(k,551) &
1731 : *y(k,218) + .0101005_r8*rxt(k,557)*y(k,236) &
1732 315224452 : + .0174005_r8*rxt(k,560)*y(k,239)
1733 315224452 : mat(k,1010) = .1149005_r8*rxt(k,553)*y(k,136)
1734 : mat(k,1833) = .1792005_r8*rxt(k,536)*y(k,193) + .0034005_r8*rxt(k,541) &
1735 : *y(k,195) + .0003005_r8*rxt(k,544)*y(k,211) &
1736 : + .1026005_r8*rxt(k,548)*y(k,212) + .0082005_r8*rxt(k,552) &
1737 : *y(k,218) + .0452005_r8*rxt(k,558)*y(k,236) &
1738 315224452 : + .0237005_r8*rxt(k,561)*y(k,239)
1739 315224452 : mat(k,2175) = .2067005_r8*rxt(k,537)*y(k,6) + .1149005_r8*rxt(k,553)*y(k,110)
1740 315224452 : mat(k,46) = .1534005_r8*rxt(k,555)*y(k,228)
1741 315224452 : mat(k,52) = .2067005_r8*rxt(k,535)*y(k,90) + .1792005_r8*rxt(k,536)*y(k,124)
1742 315224452 : mat(k,58) = .0008005_r8*rxt(k,540)*y(k,90) + .0034005_r8*rxt(k,541)*y(k,124)
1743 315224452 : mat(k,64) = .0035005_r8*rxt(k,543)*y(k,90) + .0003005_r8*rxt(k,544)*y(k,124)
1744 315224452 : mat(k,70) = .1308005_r8*rxt(k,547)*y(k,90) + .1026005_r8*rxt(k,548)*y(k,124)
1745 315224452 : mat(k,78) = .1149005_r8*rxt(k,551)*y(k,90) + .0082005_r8*rxt(k,552)*y(k,124)
1746 315224452 : mat(k,1668) = .1534005_r8*rxt(k,555)*y(k,175)
1747 315224452 : mat(k,84) = .0101005_r8*rxt(k,557)*y(k,90) + .0452005_r8*rxt(k,558)*y(k,124)
1748 315224452 : mat(k,90) = .0174005_r8*rxt(k,560)*y(k,90) + .0237005_r8*rxt(k,561)*y(k,124)
1749 315224452 : mat(k,967) = .0653005_r8*rxt(k,537)*y(k,136)
1750 : mat(k,2265) = .0653005_r8*rxt(k,535)*y(k,193) + .0843005_r8*rxt(k,540) &
1751 : *y(k,195) + .0003005_r8*rxt(k,543)*y(k,211) &
1752 : + .0348005_r8*rxt(k,547)*y(k,212) + .0348005_r8*rxt(k,551) &
1753 : *y(k,218) + .0763005_r8*rxt(k,557)*y(k,236) + .086_r8*rxt(k,560) &
1754 315224452 : *y(k,239)
1755 315224452 : mat(k,1011) = .0348005_r8*rxt(k,553)*y(k,136)
1756 : mat(k,1834) = .0676005_r8*rxt(k,536)*y(k,193) + .1579005_r8*rxt(k,541) &
1757 : *y(k,195) + .0073005_r8*rxt(k,544)*y(k,211) &
1758 : + .0521005_r8*rxt(k,548)*y(k,212) + .0772005_r8*rxt(k,552) &
1759 : *y(k,218) + .0966005_r8*rxt(k,558)*y(k,236) &
1760 315224452 : + .0025005_r8*rxt(k,561)*y(k,239)
1761 315224452 : mat(k,2176) = .0653005_r8*rxt(k,537)*y(k,6) + .0348005_r8*rxt(k,553)*y(k,110)
1762 315224452 : mat(k,47) = .0459005_r8*rxt(k,555)*y(k,228)
1763 315224452 : mat(k,53) = .0653005_r8*rxt(k,535)*y(k,90) + .0676005_r8*rxt(k,536)*y(k,124)
1764 315224452 : mat(k,59) = .0843005_r8*rxt(k,540)*y(k,90) + .1579005_r8*rxt(k,541)*y(k,124)
1765 315224452 : mat(k,65) = .0003005_r8*rxt(k,543)*y(k,90) + .0073005_r8*rxt(k,544)*y(k,124)
1766 315224452 : mat(k,71) = .0348005_r8*rxt(k,547)*y(k,90) + .0521005_r8*rxt(k,548)*y(k,124)
1767 315224452 : mat(k,79) = .0348005_r8*rxt(k,551)*y(k,90) + .0772005_r8*rxt(k,552)*y(k,124)
1768 315224452 : mat(k,1669) = .0459005_r8*rxt(k,555)*y(k,175)
1769 315224452 : mat(k,85) = .0763005_r8*rxt(k,557)*y(k,90) + .0966005_r8*rxt(k,558)*y(k,124)
1770 315224452 : mat(k,91) = .086_r8*rxt(k,560)*y(k,90) + .0025005_r8*rxt(k,561)*y(k,124)
1771 : mat(k,968) = .1749305_r8*rxt(k,534)*y(k,126) + .1284005_r8*rxt(k,537) &
1772 315224452 : *y(k,136)
1773 : mat(k,2266) = .1284005_r8*rxt(k,535)*y(k,193) + .0443005_r8*rxt(k,540) &
1774 : *y(k,195) + .0271005_r8*rxt(k,543)*y(k,211) &
1775 : + .0076005_r8*rxt(k,547)*y(k,212) + .0554005_r8*rxt(k,551) &
1776 : *y(k,218) + .2157005_r8*rxt(k,557)*y(k,236) &
1777 315224452 : + .0512005_r8*rxt(k,560)*y(k,239)
1778 : mat(k,873) = .0590245_r8*rxt(k,542)*y(k,126) + .0033005_r8*rxt(k,545) &
1779 315224452 : *y(k,136)
1780 : mat(k,1012) = .1749305_r8*rxt(k,550)*y(k,126) + .0554005_r8*rxt(k,553) &
1781 315224452 : *y(k,136)
1782 : mat(k,1835) = .079_r8*rxt(k,536)*y(k,193) + .0059005_r8*rxt(k,541)*y(k,195) &
1783 : + .0057005_r8*rxt(k,544)*y(k,211) + .0143005_r8*rxt(k,548) &
1784 : *y(k,212) + .0332005_r8*rxt(k,552)*y(k,218) &
1785 315224452 : + .0073005_r8*rxt(k,558)*y(k,236) + .011_r8*rxt(k,561)*y(k,239)
1786 : mat(k,1607) = .1749305_r8*rxt(k,534)*y(k,6) + .0590245_r8*rxt(k,542)*y(k,99) &
1787 315224452 : + .1749305_r8*rxt(k,550)*y(k,110)
1788 : mat(k,2177) = .1284005_r8*rxt(k,537)*y(k,6) + .0033005_r8*rxt(k,545)*y(k,99) &
1789 315224452 : + .0554005_r8*rxt(k,553)*y(k,110)
1790 315224452 : mat(k,48) = .0085005_r8*rxt(k,555)*y(k,228)
1791 315224452 : mat(k,54) = .1284005_r8*rxt(k,535)*y(k,90) + .079_r8*rxt(k,536)*y(k,124)
1792 315224452 : mat(k,60) = .0443005_r8*rxt(k,540)*y(k,90) + .0059005_r8*rxt(k,541)*y(k,124)
1793 315224452 : mat(k,66) = .0271005_r8*rxt(k,543)*y(k,90) + .0057005_r8*rxt(k,544)*y(k,124)
1794 315224452 : mat(k,72) = .0076005_r8*rxt(k,547)*y(k,90) + .0143005_r8*rxt(k,548)*y(k,124)
1795 315224452 : mat(k,80) = .0554005_r8*rxt(k,551)*y(k,90) + .0332005_r8*rxt(k,552)*y(k,124)
1796 315224452 : mat(k,1670) = .0085005_r8*rxt(k,555)*y(k,175)
1797 315224452 : mat(k,86) = .2157005_r8*rxt(k,557)*y(k,90) + .0073005_r8*rxt(k,558)*y(k,124)
1798 325174377 : mat(k,92) = .0512005_r8*rxt(k,560)*y(k,90) + .011_r8*rxt(k,561)*y(k,124)
1799 : end do
1800 9949925 : end subroutine nlnmat07
1801 9949925 : subroutine nlnmat08( avec_len, mat, y, rxt )
1802 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1803 : implicit none
1804 : !----------------------------------------------
1805 : ! ... dummy arguments
1806 : !----------------------------------------------
1807 : integer, intent(in) :: avec_len
1808 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1809 : real(r8), intent(in) :: rxt(veclen,rxntot)
1810 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1811 : !----------------------------------------------
1812 : ! ... local variables
1813 : !----------------------------------------------
1814 : integer :: k
1815 : !----------------------------------------------
1816 : ! ... complete matrix entries implicit species
1817 : !----------------------------------------------
1818 325174377 : do k = 1,avec_len
1819 315224452 : mat(k,969) = .5901905_r8*rxt(k,534)*y(k,126) + .114_r8*rxt(k,537)*y(k,136)
1820 : mat(k,2267) = .114_r8*rxt(k,535)*y(k,193) + .1621005_r8*rxt(k,540)*y(k,195) &
1821 : + .0474005_r8*rxt(k,543)*y(k,211) + .0113005_r8*rxt(k,547) &
1822 : *y(k,212) + .1278005_r8*rxt(k,551)*y(k,218) &
1823 : + .0738005_r8*rxt(k,557)*y(k,236) + .1598005_r8*rxt(k,560) &
1824 315224452 : *y(k,239)
1825 315224452 : mat(k,874) = .0250245_r8*rxt(k,542)*y(k,126)
1826 : mat(k,1013) = .5901905_r8*rxt(k,550)*y(k,126) + .1278005_r8*rxt(k,553) &
1827 315224452 : *y(k,136)
1828 : mat(k,1836) = .1254005_r8*rxt(k,536)*y(k,193) + .0536005_r8*rxt(k,541) &
1829 : *y(k,195) + .0623005_r8*rxt(k,544)*y(k,211) &
1830 : + .0166005_r8*rxt(k,548)*y(k,212) + .130_r8*rxt(k,552)*y(k,218) &
1831 315224452 : + .238_r8*rxt(k,558)*y(k,236) + .1185005_r8*rxt(k,561)*y(k,239)
1832 : mat(k,1608) = .5901905_r8*rxt(k,534)*y(k,6) + .0250245_r8*rxt(k,542)*y(k,99) &
1833 315224452 : + .5901905_r8*rxt(k,550)*y(k,110)
1834 315224452 : mat(k,2178) = .114_r8*rxt(k,537)*y(k,6) + .1278005_r8*rxt(k,553)*y(k,110)
1835 315224452 : mat(k,49) = .0128005_r8*rxt(k,555)*y(k,228)
1836 315224452 : mat(k,55) = .114_r8*rxt(k,535)*y(k,90) + .1254005_r8*rxt(k,536)*y(k,124)
1837 315224452 : mat(k,61) = .1621005_r8*rxt(k,540)*y(k,90) + .0536005_r8*rxt(k,541)*y(k,124)
1838 315224452 : mat(k,67) = .0474005_r8*rxt(k,543)*y(k,90) + .0623005_r8*rxt(k,544)*y(k,124)
1839 315224452 : mat(k,73) = .0113005_r8*rxt(k,547)*y(k,90) + .0166005_r8*rxt(k,548)*y(k,124)
1840 315224452 : mat(k,81) = .1278005_r8*rxt(k,551)*y(k,90) + .130_r8*rxt(k,552)*y(k,124)
1841 315224452 : mat(k,1671) = .0128005_r8*rxt(k,555)*y(k,175)
1842 315224452 : mat(k,87) = .0738005_r8*rxt(k,557)*y(k,90) + .238_r8*rxt(k,558)*y(k,124)
1843 315224452 : mat(k,93) = .1598005_r8*rxt(k,560)*y(k,90) + .1185005_r8*rxt(k,561)*y(k,124)
1844 315224452 : mat(k,50) = -(rxt(k,555)*y(k,228))
1845 315224452 : mat(k,1672) = -rxt(k,555)*y(k,175)
1846 315224452 : mat(k,189) = .100_r8*rxt(k,469)*y(k,228)
1847 315224452 : mat(k,207) = .230_r8*rxt(k,471)*y(k,228)
1848 315224452 : mat(k,1691) = .100_r8*rxt(k,469)*y(k,183) + .230_r8*rxt(k,471)*y(k,185)
1849 315224452 : mat(k,652) = -(rxt(k,493)*y(k,228))
1850 315224452 : mat(k,1754) = -rxt(k,493)*y(k,177)
1851 315224452 : mat(k,2305) = rxt(k,491)*y(k,233)
1852 315224452 : mat(k,1172) = rxt(k,491)*y(k,90)
1853 315224452 : mat(k,627) = -(rxt(k,494)*y(k,228))
1854 315224452 : mat(k,1751) = -rxt(k,494)*y(k,178)
1855 315224452 : mat(k,1863) = .200_r8*rxt(k,487)*y(k,223) + .200_r8*rxt(k,497)*y(k,234)
1856 315224452 : mat(k,2375) = .500_r8*rxt(k,485)*y(k,223)
1857 315224452 : mat(k,1103) = .200_r8*rxt(k,487)*y(k,124) + .500_r8*rxt(k,485)*y(k,201)
1858 315224452 : mat(k,1060) = .200_r8*rxt(k,497)*y(k,124)
1859 315224452 : mat(k,486) = -(rxt(k,498)*y(k,228))
1860 315224452 : mat(k,1735) = -rxt(k,498)*y(k,179)
1861 315224452 : mat(k,2297) = rxt(k,496)*y(k,234)
1862 315224452 : mat(k,1059) = rxt(k,496)*y(k,90)
1863 315224452 : mat(k,1072) = -(rxt(k,499)*y(k,126) + rxt(k,500)*y(k,228))
1864 315224452 : mat(k,1623) = -rxt(k,499)*y(k,180)
1865 315224452 : mat(k,1786) = -rxt(k,500)*y(k,180)
1866 315224452 : mat(k,978) = .330_r8*rxt(k,480)*y(k,136)
1867 315224452 : mat(k,1022) = .330_r8*rxt(k,483)*y(k,136)
1868 315224452 : mat(k,1885) = .800_r8*rxt(k,487)*y(k,223) + .800_r8*rxt(k,497)*y(k,234)
1869 315224452 : mat(k,1623) = mat(k,1623) + rxt(k,488)*y(k,223)
1870 315224452 : mat(k,2197) = .330_r8*rxt(k,480)*y(k,6) + .330_r8*rxt(k,483)*y(k,110)
1871 315224452 : mat(k,628) = rxt(k,494)*y(k,228)
1872 315224452 : mat(k,2383) = .500_r8*rxt(k,485)*y(k,223) + rxt(k,495)*y(k,234)
1873 : mat(k,1105) = .800_r8*rxt(k,487)*y(k,124) + rxt(k,488)*y(k,126) &
1874 315224452 : + .500_r8*rxt(k,485)*y(k,201)
1875 315224452 : mat(k,1786) = mat(k,1786) + rxt(k,494)*y(k,178)
1876 315224452 : mat(k,1063) = .800_r8*rxt(k,497)*y(k,124) + rxt(k,495)*y(k,201)
1877 315224452 : mat(k,1119) = -(rxt(k,501)*y(k,228))
1878 315224452 : mat(k,1790) = -rxt(k,501)*y(k,181)
1879 315224452 : mat(k,981) = .300_r8*rxt(k,480)*y(k,136)
1880 315224452 : mat(k,1025) = .300_r8*rxt(k,483)*y(k,136)
1881 315224452 : mat(k,1889) = .900_r8*rxt(k,492)*y(k,233)
1882 315224452 : mat(k,2200) = .300_r8*rxt(k,480)*y(k,6) + .300_r8*rxt(k,483)*y(k,110)
1883 315224452 : mat(k,2387) = rxt(k,490)*y(k,233)
1884 315224452 : mat(k,1175) = .900_r8*rxt(k,492)*y(k,124) + rxt(k,490)*y(k,201)
1885 315224452 : mat(k,665) = -(rxt(k,468)*y(k,228))
1886 315224452 : mat(k,1755) = -rxt(k,468)*y(k,182)
1887 315224452 : mat(k,2306) = rxt(k,466)*y(k,235)
1888 315224452 : mat(k,749) = rxt(k,466)*y(k,90)
1889 315224452 : mat(k,187) = -(rxt(k,469)*y(k,228))
1890 315224452 : mat(k,1689) = -rxt(k,469)*y(k,183)
1891 315224452 : mat(k,203) = -(rxt(k,435)*y(k,228))
1892 315224452 : mat(k,1692) = -rxt(k,435)*y(k,184)
1893 315224452 : mat(k,2276) = rxt(k,432)*y(k,237)
1894 315224452 : mat(k,1227) = rxt(k,432)*y(k,90)
1895 315224452 : mat(k,208) = -(rxt(k,471)*y(k,228))
1896 315224452 : mat(k,1693) = -rxt(k,471)*y(k,185)
1897 315224452 : mat(k,729) = -(rxt(k,474)*y(k,228))
1898 315224452 : mat(k,1761) = -rxt(k,474)*y(k,186)
1899 315224452 : mat(k,2311) = rxt(k,472)*y(k,238)
1900 315224452 : mat(k,765) = rxt(k,472)*y(k,90)
1901 315224452 : mat(k,216) = -(rxt(k,477)*y(k,228))
1902 315224452 : mat(k,1694) = -rxt(k,477)*y(k,187)
1903 315224452 : mat(k,209) = .150_r8*rxt(k,471)*y(k,228)
1904 315224452 : mat(k,1694) = mat(k,1694) + .150_r8*rxt(k,471)*y(k,185)
1905 315224452 : mat(k,421) = -(rxt(k,478)*y(k,228))
1906 315224452 : mat(k,1726) = -rxt(k,478)*y(k,188)
1907 315224452 : mat(k,2288) = rxt(k,475)*y(k,240)
1908 315224452 : mat(k,509) = rxt(k,475)*y(k,90)
1909 315224452 : mat(k,523) = -(rxt(k,436)*y(k,90) + rxt(k,437)*y(k,124) + rxt(k,465)*y(k,125))
1910 315224452 : mat(k,2300) = -rxt(k,436)*y(k,191)
1911 315224452 : mat(k,1858) = -rxt(k,437)*y(k,191)
1912 315224452 : mat(k,1932) = -rxt(k,465)*y(k,191)
1913 315224452 : mat(k,236) = rxt(k,442)*y(k,228)
1914 315224452 : mat(k,1739) = rxt(k,442)*y(k,22)
1915 315224452 : mat(k,1042) = -(rxt(k,397)*y(k,90) + (rxt(k,398) + rxt(k,399)) * y(k,124))
1916 315224452 : mat(k,2326) = -rxt(k,397)*y(k,192)
1917 315224452 : mat(k,1882) = -(rxt(k,398) + rxt(k,399)) * y(k,192)
1918 315224452 : mat(k,690) = rxt(k,400)*y(k,228)
1919 315224452 : mat(k,227) = rxt(k,401)*y(k,228)
1920 315224452 : mat(k,1783) = rxt(k,400)*y(k,2) + rxt(k,401)*y(k,15)
1921 315224452 : mat(k,56) = -(rxt(k,535)*y(k,90) + rxt(k,536)*y(k,124))
1922 315224452 : mat(k,2268) = -rxt(k,535)*y(k,193)
1923 315224452 : mat(k,1837) = -rxt(k,536)*y(k,193)
1924 315224452 : mat(k,970) = rxt(k,538)*y(k,228)
1925 315224452 : mat(k,1673) = rxt(k,538)*y(k,6)
1926 315224452 : mat(k,495) = -(rxt(k,439)*y(k,90) + rxt(k,440)*y(k,124))
1927 315224452 : mat(k,2298) = -rxt(k,439)*y(k,194)
1928 315224452 : mat(k,1855) = -rxt(k,440)*y(k,194)
1929 315224452 : mat(k,163) = .350_r8*rxt(k,438)*y(k,228)
1930 315224452 : mat(k,417) = rxt(k,441)*y(k,228)
1931 315224452 : mat(k,1736) = .350_r8*rxt(k,438)*y(k,7) + rxt(k,441)*y(k,8)
1932 315224452 : mat(k,62) = -(rxt(k,540)*y(k,90) + rxt(k,541)*y(k,124))
1933 315224452 : mat(k,2269) = -rxt(k,540)*y(k,195)
1934 315224452 : mat(k,1838) = -rxt(k,541)*y(k,195)
1935 315224452 : mat(k,159) = rxt(k,539)*y(k,228)
1936 315224452 : mat(k,1674) = rxt(k,539)*y(k,7)
1937 315224452 : mat(k,435) = -(rxt(k,443)*y(k,90) + rxt(k,445)*y(k,124))
1938 315224452 : mat(k,2289) = -rxt(k,443)*y(k,196)
1939 315224452 : mat(k,1849) = -rxt(k,445)*y(k,196)
1940 315224452 : mat(k,346) = rxt(k,444)*y(k,228)
1941 315224452 : mat(k,190) = .070_r8*rxt(k,469)*y(k,228)
1942 315224452 : mat(k,210) = .060_r8*rxt(k,471)*y(k,228)
1943 : mat(k,1728) = rxt(k,444)*y(k,23) + .070_r8*rxt(k,469)*y(k,183) &
1944 315224452 : + .060_r8*rxt(k,471)*y(k,185)
1945 : mat(k,901) = -(4._r8*rxt(k,319)*y(k,197) + rxt(k,320)*y(k,201) + rxt(k,321) &
1946 315224452 : *y(k,90) + rxt(k,322)*y(k,124))
1947 315224452 : mat(k,2379) = -rxt(k,320)*y(k,197)
1948 315224452 : mat(k,2322) = -rxt(k,321)*y(k,197)
1949 315224452 : mat(k,1877) = -rxt(k,322)*y(k,197)
1950 315224452 : mat(k,351) = .500_r8*rxt(k,324)*y(k,228)
1951 315224452 : mat(k,299) = rxt(k,325)*y(k,56) + rxt(k,326)*y(k,228)
1952 315224452 : mat(k,2140) = rxt(k,325)*y(k,28)
1953 315224452 : mat(k,1773) = .500_r8*rxt(k,324)*y(k,27) + rxt(k,326)*y(k,28)
1954 315224452 : mat(k,935) = -(rxt(k,348)*y(k,201) + rxt(k,349)*y(k,90) + rxt(k,350)*y(k,124))
1955 315224452 : mat(k,2380) = -rxt(k,348)*y(k,198)
1956 315224452 : mat(k,2325) = -rxt(k,349)*y(k,198)
1957 315224452 : mat(k,1880) = -rxt(k,350)*y(k,198)
1958 315224452 : mat(k,410) = rxt(k,351)*y(k,228)
1959 315224452 : mat(k,305) = rxt(k,355)*y(k,56) + rxt(k,352)*y(k,228)
1960 315224452 : mat(k,2142) = rxt(k,355)*y(k,31)
1961 315224452 : mat(k,1777) = rxt(k,351)*y(k,30) + rxt(k,352)*y(k,31)
1962 315224452 : mat(k,635) = -(rxt(k,446)*y(k,90) + rxt(k,447)*y(k,124))
1963 315224452 : mat(k,2304) = -rxt(k,446)*y(k,199)
1964 315224452 : mat(k,1864) = -rxt(k,447)*y(k,199)
1965 315224452 : mat(k,271) = rxt(k,448)*y(k,228)
1966 315224452 : mat(k,2304) = mat(k,2304) + .400_r8*rxt(k,436)*y(k,191)
1967 315224452 : mat(k,1864) = mat(k,1864) + rxt(k,437)*y(k,191)
1968 315224452 : mat(k,2185) = rxt(k,463)*y(k,143)
1969 315224452 : mat(k,469) = rxt(k,463)*y(k,136)
1970 315224452 : mat(k,524) = .400_r8*rxt(k,436)*y(k,90) + rxt(k,437)*y(k,124)
1971 315224452 : mat(k,1752) = rxt(k,448)*y(k,32)
1972 : mat(k,1428) = -(4._r8*rxt(k,330)*y(k,200) + rxt(k,331)*y(k,201) + rxt(k,332) &
1973 : *y(k,90) + rxt(k,333)*y(k,124) + rxt(k,344)*y(k,125) + rxt(k,372) &
1974 : *y(k,213) + rxt(k,405)*y(k,208) + rxt(k,410)*y(k,209) + rxt(k,419) &
1975 315224452 : *y(k,210) + rxt(k,430)*y(k,237))
1976 315224452 : mat(k,2403) = -rxt(k,331)*y(k,200)
1977 315224452 : mat(k,2348) = -rxt(k,332)*y(k,200)
1978 315224452 : mat(k,1906) = -rxt(k,333)*y(k,200)
1979 315224452 : mat(k,1949) = -rxt(k,344)*y(k,200)
1980 315224452 : mat(k,1358) = -rxt(k,372)*y(k,200)
1981 315224452 : mat(k,1303) = -rxt(k,405)*y(k,200)
1982 315224452 : mat(k,1336) = -rxt(k,410)*y(k,200)
1983 315224452 : mat(k,1257) = -rxt(k,419)*y(k,200)
1984 315224452 : mat(k,1235) = -rxt(k,430)*y(k,200)
1985 315224452 : mat(k,985) = .060_r8*rxt(k,480)*y(k,136)
1986 315224452 : mat(k,1153) = rxt(k,327)*y(k,126) + rxt(k,328)*y(k,228)
1987 315224452 : mat(k,1282) = rxt(k,353)*y(k,126) + rxt(k,354)*y(k,228)
1988 315224452 : mat(k,621) = .500_r8*rxt(k,335)*y(k,228)
1989 : mat(k,2348) = mat(k,2348) + .450_r8*rxt(k,383)*y(k,215) + .200_r8*rxt(k,387) &
1990 315224452 : *y(k,217) + .150_r8*rxt(k,362)*y(k,232)
1991 315224452 : mat(k,885) = .080_r8*rxt(k,425)*y(k,136)
1992 315224452 : mat(k,1273) = .100_r8*rxt(k,378)*y(k,136)
1993 315224452 : mat(k,1029) = .060_r8*rxt(k,483)*y(k,136)
1994 315224452 : mat(k,1378) = .280_r8*rxt(k,392)*y(k,136)
1995 : mat(k,1906) = mat(k,1906) + .530_r8*rxt(k,376)*y(k,213) + rxt(k,385)*y(k,215) &
1996 315224452 : + rxt(k,388)*y(k,217) + rxt(k,363)*y(k,232)
1997 : mat(k,1645) = rxt(k,327)*y(k,45) + rxt(k,353)*y(k,49) + .530_r8*rxt(k,375) &
1998 315224452 : *y(k,213) + rxt(k,386)*y(k,215)
1999 : mat(k,2216) = .060_r8*rxt(k,480)*y(k,6) + .080_r8*rxt(k,425)*y(k,99) &
2000 : + .100_r8*rxt(k,378)*y(k,105) + .060_r8*rxt(k,483)*y(k,110) &
2001 315224452 : + .280_r8*rxt(k,392)*y(k,111)
2002 315224452 : mat(k,1122) = .650_r8*rxt(k,501)*y(k,228)
2003 315224452 : mat(k,1428) = mat(k,1428) + .530_r8*rxt(k,372)*y(k,213)
2004 : mat(k,2403) = mat(k,2403) + .260_r8*rxt(k,373)*y(k,213) + rxt(k,382)*y(k,215) &
2005 315224452 : + .300_r8*rxt(k,361)*y(k,232)
2006 : mat(k,1358) = mat(k,1358) + .530_r8*rxt(k,376)*y(k,124) + .530_r8*rxt(k,375) &
2007 : *y(k,126) + .530_r8*rxt(k,372)*y(k,200) + .260_r8*rxt(k,373) &
2008 315224452 : *y(k,201)
2009 : mat(k,1398) = .450_r8*rxt(k,383)*y(k,90) + rxt(k,385)*y(k,124) + rxt(k,386) &
2010 315224452 : *y(k,126) + rxt(k,382)*y(k,201) + 4.000_r8*rxt(k,384)*y(k,215)
2011 315224452 : mat(k,700) = .200_r8*rxt(k,387)*y(k,90) + rxt(k,388)*y(k,124)
2012 : mat(k,1808) = rxt(k,328)*y(k,45) + rxt(k,354)*y(k,49) + .500_r8*rxt(k,335) &
2013 315224452 : *y(k,51) + .650_r8*rxt(k,501)*y(k,181)
2014 : mat(k,1219) = .150_r8*rxt(k,362)*y(k,90) + rxt(k,363)*y(k,124) &
2015 315224452 : + .300_r8*rxt(k,361)*y(k,201)
2016 : mat(k,2421) = -(rxt(k,221)*y(k,59) + (4._r8*rxt(k,298) + 4._r8*rxt(k,299) &
2017 : ) * y(k,201) + rxt(k,300)*y(k,90) + rxt(k,301)*y(k,124) &
2018 : + rxt(k,320)*y(k,197) + rxt(k,331)*y(k,200) + rxt(k,348) &
2019 : *y(k,198) + rxt(k,361)*y(k,232) + rxt(k,373)*y(k,213) + rxt(k,382) &
2020 : *y(k,215) + rxt(k,406)*y(k,208) + rxt(k,411)*y(k,209) + rxt(k,420) &
2021 : *y(k,210) + rxt(k,431)*y(k,237) + rxt(k,485)*y(k,223) + rxt(k,490) &
2022 315224452 : *y(k,233) + rxt(k,495)*y(k,234))
2023 315224452 : mat(k,1605) = -rxt(k,221)*y(k,201)
2024 315224452 : mat(k,2369) = -rxt(k,300)*y(k,201)
2025 315224452 : mat(k,1925) = -rxt(k,301)*y(k,201)
2026 315224452 : mat(k,909) = -rxt(k,320)*y(k,201)
2027 315224452 : mat(k,1440) = -rxt(k,331)*y(k,201)
2028 315224452 : mat(k,944) = -rxt(k,348)*y(k,201)
2029 315224452 : mat(k,1225) = -rxt(k,361)*y(k,201)
2030 315224452 : mat(k,1367) = -rxt(k,373)*y(k,201)
2031 315224452 : mat(k,1408) = -rxt(k,382)*y(k,201)
2032 315224452 : mat(k,1313) = -rxt(k,406)*y(k,201)
2033 315224452 : mat(k,1346) = -rxt(k,411)*y(k,201)
2034 315224452 : mat(k,1266) = -rxt(k,420)*y(k,201)
2035 315224452 : mat(k,1243) = -rxt(k,431)*y(k,201)
2036 315224452 : mat(k,1117) = -rxt(k,485)*y(k,201)
2037 315224452 : mat(k,1188) = -rxt(k,490)*y(k,201)
2038 315224452 : mat(k,1071) = -rxt(k,495)*y(k,201)
2039 315224452 : mat(k,1149) = .280_r8*rxt(k,347)*y(k,136)
2040 315224452 : mat(k,708) = rxt(k,334)*y(k,228)
2041 315224452 : mat(k,458) = .700_r8*rxt(k,303)*y(k,228)
2042 : mat(k,2261) = rxt(k,215)*y(k,56) + rxt(k,271)*y(k,73) + rxt(k,310)*y(k,224) &
2043 315224452 : + rxt(k,304)*y(k,228)
2044 315224452 : mat(k,2172) = rxt(k,215)*y(k,54)
2045 315224452 : mat(k,932) = rxt(k,271)*y(k,54)
2046 : mat(k,2369) = mat(k,2369) + .450_r8*rxt(k,332)*y(k,200) + .330_r8*rxt(k,450) &
2047 315224452 : *y(k,202) + .070_r8*rxt(k,456)*y(k,216)
2048 315224452 : mat(k,891) = .050_r8*rxt(k,425)*y(k,136)
2049 : mat(k,1925) = mat(k,1925) + rxt(k,333)*y(k,200) + .830_r8*rxt(k,451)*y(k,202) &
2050 315224452 : + .170_r8*rxt(k,457)*y(k,216)
2051 315224452 : mat(k,2236) = .280_r8*rxt(k,347)*y(k,29) + .050_r8*rxt(k,425)*y(k,99)
2052 : mat(k,1440) = mat(k,1440) + .450_r8*rxt(k,332)*y(k,90) + rxt(k,333)*y(k,124) &
2053 : + 4.000_r8*rxt(k,330)*y(k,200) + .900_r8*rxt(k,331)*y(k,201) &
2054 : + rxt(k,405)*y(k,208) + rxt(k,410)*y(k,209) + rxt(k,419) &
2055 : *y(k,210) + rxt(k,372)*y(k,213) + rxt(k,381)*y(k,215) &
2056 315224452 : + rxt(k,430)*y(k,237)
2057 315224452 : mat(k,2421) = mat(k,2421) + .900_r8*rxt(k,331)*y(k,200)
2058 315224452 : mat(k,785) = .330_r8*rxt(k,450)*y(k,90) + .830_r8*rxt(k,451)*y(k,124)
2059 315224452 : mat(k,1313) = mat(k,1313) + rxt(k,405)*y(k,200)
2060 315224452 : mat(k,1346) = mat(k,1346) + rxt(k,410)*y(k,200)
2061 315224452 : mat(k,1266) = mat(k,1266) + rxt(k,419)*y(k,200)
2062 315224452 : mat(k,1367) = mat(k,1367) + rxt(k,372)*y(k,200)
2063 315224452 : mat(k,1408) = mat(k,1408) + rxt(k,381)*y(k,200)
2064 315224452 : mat(k,918) = .070_r8*rxt(k,456)*y(k,90) + .170_r8*rxt(k,457)*y(k,124)
2065 315224452 : mat(k,2039) = rxt(k,310)*y(k,54)
2066 : mat(k,1830) = rxt(k,334)*y(k,50) + .700_r8*rxt(k,303)*y(k,53) + rxt(k,304) &
2067 315224452 : *y(k,54)
2068 325174377 : mat(k,1243) = mat(k,1243) + rxt(k,430)*y(k,200)
2069 : end do
2070 9949925 : end subroutine nlnmat08
2071 9949925 : subroutine nlnmat09( avec_len, mat, y, rxt )
2072 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
2073 : implicit none
2074 : !----------------------------------------------
2075 : ! ... dummy arguments
2076 : !----------------------------------------------
2077 : integer, intent(in) :: avec_len
2078 : real(r8), intent(in) :: y(veclen,gas_pcnst)
2079 : real(r8), intent(in) :: rxt(veclen,rxntot)
2080 : real(r8), intent(inout) :: mat(veclen,nzcnt)
2081 : !----------------------------------------------
2082 : ! ... local variables
2083 : !----------------------------------------------
2084 : integer :: k
2085 : !----------------------------------------------
2086 : ! ... complete matrix entries implicit species
2087 : !----------------------------------------------
2088 325174377 : do k = 1,avec_len
2089 315224452 : mat(k,778) = -(rxt(k,450)*y(k,90) + rxt(k,451)*y(k,124) + rxt(k,452)*y(k,125))
2090 315224452 : mat(k,2315) = -rxt(k,450)*y(k,202)
2091 315224452 : mat(k,1870) = -rxt(k,451)*y(k,202)
2092 315224452 : mat(k,1938) = -rxt(k,452)*y(k,202)
2093 : mat(k,865) = -(rxt(k,579)*y(k,221) + rxt(k,580)*y(k,227) + rxt(k,581) &
2094 315224452 : *y(k,220))
2095 315224452 : mat(k,846) = -rxt(k,579)*y(k,203)
2096 315224452 : mat(k,854) = -rxt(k,580)*y(k,203)
2097 315224452 : mat(k,680) = -rxt(k,581)*y(k,203)
2098 315224452 : mat(k,574) = -((rxt(k,369) + rxt(k,370)) * y(k,124))
2099 315224452 : mat(k,1860) = -(rxt(k,369) + rxt(k,370)) * y(k,204)
2100 315224452 : mat(k,356) = rxt(k,368)*y(k,228)
2101 315224452 : mat(k,1744) = rxt(k,368)*y(k,16)
2102 315224452 : mat(k,460) = -(rxt(k,339)*y(k,135))
2103 315224452 : mat(k,1526) = -rxt(k,339)*y(k,205)
2104 315224452 : mat(k,1852) = .750_r8*rxt(k,337)*y(k,206)
2105 315224452 : mat(k,796) = .750_r8*rxt(k,337)*y(k,124)
2106 315224452 : mat(k,797) = -(rxt(k,336)*y(k,90) + rxt(k,337)*y(k,124))
2107 315224452 : mat(k,2317) = -rxt(k,336)*y(k,206)
2108 315224452 : mat(k,1871) = -rxt(k,337)*y(k,206)
2109 315224452 : mat(k,551) = rxt(k,343)*y(k,228)
2110 315224452 : mat(k,1766) = rxt(k,343)*y(k,25)
2111 315224452 : mat(k,441) = -(rxt(k,307)*y(k,90) + rxt(k,309)*y(k,124))
2112 315224452 : mat(k,2290) = -rxt(k,307)*y(k,207)
2113 315224452 : mat(k,1850) = -rxt(k,309)*y(k,207)
2114 315224452 : mat(k,1972) = rxt(k,294)*y(k,90)
2115 315224452 : mat(k,2290) = mat(k,2290) + rxt(k,294)*y(k,42)
2116 : mat(k,1299) = -(rxt(k,405)*y(k,200) + rxt(k,406)*y(k,201) + rxt(k,407) &
2117 315224452 : *y(k,90) + rxt(k,408)*y(k,124) + rxt(k,409)*y(k,126))
2118 315224452 : mat(k,1423) = -rxt(k,405)*y(k,208)
2119 315224452 : mat(k,2398) = -rxt(k,406)*y(k,208)
2120 315224452 : mat(k,2343) = -rxt(k,407)*y(k,208)
2121 315224452 : mat(k,1901) = -rxt(k,408)*y(k,208)
2122 315224452 : mat(k,1640) = -rxt(k,409)*y(k,208)
2123 315224452 : mat(k,882) = .600_r8*rxt(k,426)*y(k,228)
2124 315224452 : mat(k,1803) = .600_r8*rxt(k,426)*y(k,99)
2125 : mat(k,1332) = -(rxt(k,410)*y(k,200) + rxt(k,411)*y(k,201) + rxt(k,412) &
2126 315224452 : *y(k,90) + rxt(k,414)*y(k,124) + rxt(k,415)*y(k,126))
2127 315224452 : mat(k,1424) = -rxt(k,410)*y(k,209)
2128 315224452 : mat(k,2399) = -rxt(k,411)*y(k,209)
2129 315224452 : mat(k,2344) = -rxt(k,412)*y(k,209)
2130 315224452 : mat(k,1902) = -rxt(k,414)*y(k,209)
2131 315224452 : mat(k,1641) = -rxt(k,415)*y(k,209)
2132 315224452 : mat(k,883) = .400_r8*rxt(k,426)*y(k,228)
2133 315224452 : mat(k,1804) = .400_r8*rxt(k,426)*y(k,99)
2134 : mat(k,1253) = -(rxt(k,419)*y(k,200) + rxt(k,420)*y(k,201) + rxt(k,421) &
2135 315224452 : *y(k,90) + rxt(k,422)*y(k,124) + rxt(k,423)*y(k,126))
2136 315224452 : mat(k,1420) = -rxt(k,419)*y(k,210)
2137 315224452 : mat(k,2395) = -rxt(k,420)*y(k,210)
2138 315224452 : mat(k,2340) = -rxt(k,421)*y(k,210)
2139 315224452 : mat(k,1898) = -rxt(k,422)*y(k,210)
2140 315224452 : mat(k,1637) = -rxt(k,423)*y(k,210)
2141 315224452 : mat(k,880) = rxt(k,418)*y(k,126)
2142 315224452 : mat(k,1637) = mat(k,1637) + rxt(k,418)*y(k,99)
2143 315224452 : mat(k,68) = -(rxt(k,543)*y(k,90) + rxt(k,544)*y(k,124))
2144 315224452 : mat(k,2270) = -rxt(k,543)*y(k,211)
2145 315224452 : mat(k,1839) = -rxt(k,544)*y(k,211)
2146 315224452 : mat(k,875) = rxt(k,546)*y(k,228)
2147 315224452 : mat(k,1675) = rxt(k,546)*y(k,99)
2148 315224452 : mat(k,74) = -(rxt(k,547)*y(k,90) + rxt(k,548)*y(k,124))
2149 315224452 : mat(k,2271) = -rxt(k,547)*y(k,212)
2150 315224452 : mat(k,1840) = -rxt(k,548)*y(k,212)
2151 315224452 : mat(k,75) = rxt(k,549)*y(k,228)
2152 315224452 : mat(k,1676) = rxt(k,549)*y(k,104)
2153 : mat(k,1356) = -(rxt(k,372)*y(k,200) + rxt(k,373)*y(k,201) + rxt(k,374) &
2154 : *y(k,90) + rxt(k,375)*y(k,126) + (rxt(k,376) + rxt(k,377) &
2155 315224452 : ) * y(k,124))
2156 315224452 : mat(k,1425) = -rxt(k,372)*y(k,213)
2157 315224452 : mat(k,2400) = -rxt(k,373)*y(k,213)
2158 315224452 : mat(k,2345) = -rxt(k,374)*y(k,213)
2159 315224452 : mat(k,1642) = -rxt(k,375)*y(k,213)
2160 315224452 : mat(k,1903) = -(rxt(k,376) + rxt(k,377)) * y(k,213)
2161 315224452 : mat(k,1271) = .500_r8*rxt(k,379)*y(k,228)
2162 315224452 : mat(k,317) = .200_r8*rxt(k,380)*y(k,228)
2163 315224452 : mat(k,1375) = rxt(k,393)*y(k,228)
2164 : mat(k,1805) = .500_r8*rxt(k,379)*y(k,105) + .200_r8*rxt(k,380)*y(k,106) &
2165 315224452 : + rxt(k,393)*y(k,111)
2166 315224452 : mat(k,740) = -(rxt(k,453)*y(k,90) + rxt(k,454)*y(k,124) + rxt(k,455)*y(k,125))
2167 315224452 : mat(k,2312) = -rxt(k,453)*y(k,214)
2168 315224452 : mat(k,1867) = -rxt(k,454)*y(k,214)
2169 315224452 : mat(k,1937) = -rxt(k,455)*y(k,214)
2170 : mat(k,1397) = -(rxt(k,381)*y(k,200) + rxt(k,382)*y(k,201) + rxt(k,383) &
2171 : *y(k,90) + 4._r8*rxt(k,384)*y(k,215) + rxt(k,385)*y(k,124) &
2172 315224452 : + rxt(k,386)*y(k,126) + rxt(k,394)*y(k,125))
2173 315224452 : mat(k,1427) = -rxt(k,381)*y(k,215)
2174 315224452 : mat(k,2402) = -rxt(k,382)*y(k,215)
2175 315224452 : mat(k,2347) = -rxt(k,383)*y(k,215)
2176 315224452 : mat(k,1905) = -rxt(k,385)*y(k,215)
2177 315224452 : mat(k,1644) = -rxt(k,386)*y(k,215)
2178 315224452 : mat(k,1948) = -rxt(k,394)*y(k,215)
2179 315224452 : mat(k,1272) = .500_r8*rxt(k,379)*y(k,228)
2180 315224452 : mat(k,318) = .500_r8*rxt(k,380)*y(k,228)
2181 315224452 : mat(k,1807) = .500_r8*rxt(k,379)*y(k,105) + .500_r8*rxt(k,380)*y(k,106)
2182 315224452 : mat(k,910) = -(rxt(k,456)*y(k,90) + rxt(k,457)*y(k,124) + rxt(k,458)*y(k,125))
2183 315224452 : mat(k,2323) = -rxt(k,456)*y(k,216)
2184 315224452 : mat(k,1878) = -rxt(k,457)*y(k,216)
2185 315224452 : mat(k,1940) = -rxt(k,458)*y(k,216)
2186 315224452 : mat(k,698) = -(rxt(k,387)*y(k,90) + rxt(k,388)*y(k,124))
2187 315224452 : mat(k,2308) = -rxt(k,387)*y(k,217)
2188 315224452 : mat(k,1866) = -rxt(k,388)*y(k,217)
2189 315224452 : mat(k,518) = rxt(k,389)*y(k,228)
2190 315224452 : mat(k,322) = rxt(k,390)*y(k,228)
2191 315224452 : mat(k,1757) = rxt(k,389)*y(k,107) + rxt(k,390)*y(k,108)
2192 315224452 : mat(k,82) = -(rxt(k,551)*y(k,90) + rxt(k,552)*y(k,124))
2193 315224452 : mat(k,2272) = -rxt(k,551)*y(k,218)
2194 315224452 : mat(k,1841) = -rxt(k,552)*y(k,218)
2195 315224452 : mat(k,1014) = rxt(k,554)*y(k,228)
2196 315224452 : mat(k,1678) = rxt(k,554)*y(k,110)
2197 315224452 : mat(k,529) = -(rxt(k,188)*y(k,134) + rxt(k,189)*y(k,135))
2198 315224452 : mat(k,2068) = -rxt(k,188)*y(k,219)
2199 315224452 : mat(k,1528) = -rxt(k,189)*y(k,219)
2200 315224452 : mat(k,2068) = mat(k,2068) + rxt(k,583)*y(k,220)
2201 315224452 : mat(k,860) = .900_r8*rxt(k,581)*y(k,220) + .800_r8*rxt(k,579)*y(k,221)
2202 315224452 : mat(k,675) = rxt(k,583)*y(k,134) + .900_r8*rxt(k,581)*y(k,203)
2203 315224452 : mat(k,844) = .800_r8*rxt(k,579)*y(k,203)
2204 : mat(k,676) = -(rxt(k,581)*y(k,203) + rxt(k,582)*y(k,135) + (rxt(k,583) &
2205 315224452 : + rxt(k,584)) * y(k,134))
2206 315224452 : mat(k,861) = -rxt(k,581)*y(k,220)
2207 315224452 : mat(k,1529) = -rxt(k,582)*y(k,220)
2208 315224452 : mat(k,2071) = -(rxt(k,583) + rxt(k,584)) * y(k,220)
2209 315224452 : mat(k,845) = -(rxt(k,579)*y(k,203))
2210 315224452 : mat(k,863) = -rxt(k,579)*y(k,221)
2211 315224452 : mat(k,996) = rxt(k,588)*y(k,227)
2212 315224452 : mat(k,1873) = rxt(k,590)*y(k,227)
2213 315224452 : mat(k,2077) = rxt(k,583)*y(k,220)
2214 315224452 : mat(k,1532) = rxt(k,587)*y(k,222)
2215 315224452 : mat(k,678) = rxt(k,583)*y(k,134)
2216 315224452 : mat(k,504) = rxt(k,587)*y(k,135)
2217 315224452 : mat(k,852) = rxt(k,588)*y(k,112) + rxt(k,590)*y(k,124)
2218 315224452 : mat(k,502) = -(rxt(k,585)*y(k,134) + (rxt(k,586) + rxt(k,587)) * y(k,135))
2219 315224452 : mat(k,2067) = -rxt(k,585)*y(k,222)
2220 315224452 : mat(k,1527) = -(rxt(k,586) + rxt(k,587)) * y(k,222)
2221 : mat(k,1106) = -(rxt(k,485)*y(k,201) + rxt(k,486)*y(k,90) + rxt(k,487) &
2222 315224452 : *y(k,124) + rxt(k,488)*y(k,126))
2223 315224452 : mat(k,2386) = -rxt(k,485)*y(k,223)
2224 315224452 : mat(k,2331) = -rxt(k,486)*y(k,223)
2225 315224452 : mat(k,1888) = -rxt(k,487)*y(k,223)
2226 315224452 : mat(k,1626) = -rxt(k,488)*y(k,223)
2227 315224452 : mat(k,980) = rxt(k,479)*y(k,126)
2228 315224452 : mat(k,1024) = rxt(k,482)*y(k,126)
2229 : mat(k,1626) = mat(k,1626) + rxt(k,479)*y(k,6) + rxt(k,482)*y(k,110) &
2230 315224452 : + .500_r8*rxt(k,499)*y(k,180)
2231 315224452 : mat(k,393) = rxt(k,489)*y(k,228)
2232 315224452 : mat(k,1073) = .500_r8*rxt(k,499)*y(k,126)
2233 315224452 : mat(k,1789) = rxt(k,489)*y(k,128)
2234 : mat(k,2031) = -(rxt(k,153)*y(k,77) + rxt(k,154)*y(k,241) + (rxt(k,156) &
2235 : + rxt(k,157)) * y(k,135) + rxt(k,158)*y(k,136) + (rxt(k,206) &
2236 : + rxt(k,207)) * y(k,113) + rxt(k,239)*y(k,33) + rxt(k,240) &
2237 : *y(k,34) + rxt(k,241)*y(k,36) + rxt(k,242)*y(k,37) + rxt(k,243) &
2238 : *y(k,38) + rxt(k,244)*y(k,39) + rxt(k,245)*y(k,40) + (rxt(k,246) &
2239 : + rxt(k,247)) * y(k,85) + rxt(k,266)*y(k,35) + rxt(k,267) &
2240 : *y(k,55) + rxt(k,268)*y(k,78) + (rxt(k,269) + rxt(k,270) &
2241 : ) * y(k,81) + rxt(k,275)*y(k,64) + rxt(k,276)*y(k,65) + rxt(k,289) &
2242 : *y(k,41) + rxt(k,290)*y(k,43) + rxt(k,291)*y(k,82) + rxt(k,292) &
2243 : *y(k,83) + rxt(k,293)*y(k,84) + (rxt(k,310) + rxt(k,311) &
2244 315224452 : + rxt(k,312)) * y(k,54) + rxt(k,313)*y(k,86))
2245 315224452 : mat(k,1465) = -rxt(k,153)*y(k,224)
2246 315224452 : mat(k,2440) = -rxt(k,154)*y(k,224)
2247 315224452 : mat(k,1549) = -(rxt(k,156) + rxt(k,157)) * y(k,224)
2248 315224452 : mat(k,2228) = -rxt(k,158)*y(k,224)
2249 315224452 : mat(k,259) = -(rxt(k,206) + rxt(k,207)) * y(k,224)
2250 315224452 : mat(k,102) = -rxt(k,239)*y(k,224)
2251 315224452 : mat(k,142) = -rxt(k,240)*y(k,224)
2252 315224452 : mat(k,113) = -rxt(k,241)*y(k,224)
2253 315224452 : mat(k,152) = -rxt(k,242)*y(k,224)
2254 315224452 : mat(k,117) = -rxt(k,243)*y(k,224)
2255 315224452 : mat(k,157) = -rxt(k,244)*y(k,224)
2256 315224452 : mat(k,121) = -rxt(k,245)*y(k,224)
2257 315224452 : mat(k,1502) = -(rxt(k,246) + rxt(k,247)) * y(k,224)
2258 315224452 : mat(k,148) = -rxt(k,266)*y(k,224)
2259 315224452 : mat(k,389) = -rxt(k,267)*y(k,224)
2260 315224452 : mat(k,110) = -rxt(k,268)*y(k,224)
2261 315224452 : mat(k,832) = -(rxt(k,269) + rxt(k,270)) * y(k,224)
2262 315224452 : mat(k,240) = -rxt(k,275)*y(k,224)
2263 315224452 : mat(k,248) = -rxt(k,276)*y(k,224)
2264 315224452 : mat(k,483) = -rxt(k,289)*y(k,224)
2265 315224452 : mat(k,606) = -rxt(k,290)*y(k,224)
2266 315224452 : mat(k,244) = -rxt(k,291)*y(k,224)
2267 315224452 : mat(k,254) = -rxt(k,292)*y(k,224)
2268 315224452 : mat(k,295) = -rxt(k,293)*y(k,224)
2269 315224452 : mat(k,2253) = -(rxt(k,310) + rxt(k,311) + rxt(k,312)) * y(k,224)
2270 315224452 : mat(k,184) = -rxt(k,313)*y(k,224)
2271 315224452 : mat(k,1549) = mat(k,1549) + rxt(k,189)*y(k,219)
2272 315224452 : mat(k,871) = .850_r8*rxt(k,580)*y(k,227)
2273 315224452 : mat(k,533) = rxt(k,189)*y(k,135)
2274 315224452 : mat(k,858) = .850_r8*rxt(k,580)*y(k,203)
2275 315224452 : mat(k,177) = -(rxt(k,160)*y(k,134) + rxt(k,161)*y(k,135))
2276 315224452 : mat(k,2064) = -rxt(k,160)*y(k,225)
2277 315224452 : mat(k,1524) = -rxt(k,161)*y(k,225)
2278 315224452 : mat(k,1442) = rxt(k,162)*y(k,226)
2279 315224452 : mat(k,2064) = mat(k,2064) + rxt(k,164)*y(k,226)
2280 315224452 : mat(k,1524) = mat(k,1524) + rxt(k,165)*y(k,226)
2281 315224452 : mat(k,2179) = rxt(k,166)*y(k,226)
2282 : mat(k,179) = rxt(k,162)*y(k,63) + rxt(k,164)*y(k,134) + rxt(k,165)*y(k,135) &
2283 315224452 : + rxt(k,166)*y(k,136)
2284 : mat(k,180) = -(rxt(k,162)*y(k,63) + rxt(k,164)*y(k,134) + rxt(k,165)*y(k,135) &
2285 315224452 : + rxt(k,166)*y(k,136))
2286 315224452 : mat(k,1443) = -rxt(k,162)*y(k,226)
2287 315224452 : mat(k,2065) = -rxt(k,164)*y(k,226)
2288 315224452 : mat(k,1525) = -rxt(k,165)*y(k,226)
2289 315224452 : mat(k,2180) = -rxt(k,166)*y(k,226)
2290 315224452 : mat(k,1525) = mat(k,1525) + rxt(k,156)*y(k,224)
2291 325174377 : mat(k,2007) = rxt(k,156)*y(k,135)
2292 : end do
2293 9949925 : end subroutine nlnmat09
2294 9949925 : subroutine nlnmat10( avec_len, mat, y, rxt )
2295 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
2296 : implicit none
2297 : !----------------------------------------------
2298 : ! ... dummy arguments
2299 : !----------------------------------------------
2300 : integer, intent(in) :: avec_len
2301 : real(r8), intent(in) :: y(veclen,gas_pcnst)
2302 : real(r8), intent(in) :: rxt(veclen,rxntot)
2303 : real(r8), intent(inout) :: mat(veclen,nzcnt)
2304 : !----------------------------------------------
2305 : ! ... local variables
2306 : !----------------------------------------------
2307 : integer :: k
2308 : !----------------------------------------------
2309 : ! ... complete matrix entries implicit species
2310 : !----------------------------------------------
2311 325174377 : do k = 1,avec_len
2312 315224452 : mat(k,853) = -(rxt(k,580)*y(k,203) + rxt(k,588)*y(k,112) + rxt(k,590) &
2313 315224452 : *y(k,124))
2314 315224452 : mat(k,864) = -rxt(k,580)*y(k,227)
2315 315224452 : mat(k,997) = -rxt(k,588)*y(k,227)
2316 315224452 : mat(k,1874) = -rxt(k,590)*y(k,227)
2317 315224452 : mat(k,1446) = rxt(k,591)*y(k,229)
2318 315224452 : mat(k,1533) = rxt(k,582)*y(k,220) + rxt(k,586)*y(k,222) + rxt(k,593)*y(k,229)
2319 315224452 : mat(k,679) = rxt(k,582)*y(k,135)
2320 315224452 : mat(k,505) = rxt(k,586)*y(k,135)
2321 315224452 : mat(k,807) = rxt(k,591)*y(k,63) + rxt(k,593)*y(k,135)
2322 : mat(k,1818) = -(rxt(k,179)*y(k,77) + rxt(k,180)*y(k,79) + rxt(k,181)*y(k,90) &
2323 : + rxt(k,182)*y(k,134) + rxt(k,183)*y(k,136) + (4._r8*rxt(k,184) &
2324 : + 4._r8*rxt(k,185)) * y(k,228) + rxt(k,187)*y(k,91) + rxt(k,201) &
2325 : *y(k,126) + rxt(k,202)*y(k,112) + rxt(k,210)*y(k,125) + rxt(k,211) &
2326 : *y(k,89) + rxt(k,230)*y(k,60) + (rxt(k,232) + rxt(k,233) &
2327 : ) * y(k,59) + rxt(k,235)*y(k,85) + rxt(k,238)*y(k,93) + rxt(k,262) &
2328 : *y(k,19) + rxt(k,264)*y(k,81) + rxt(k,278)*y(k,41) + rxt(k,280) &
2329 : *y(k,43) + rxt(k,281)*y(k,44) + rxt(k,283)*y(k,46) + rxt(k,285) &
2330 : *y(k,55) + rxt(k,286)*y(k,82) + rxt(k,287)*y(k,83) + rxt(k,288) &
2331 : *y(k,84) + rxt(k,297)*y(k,42) + rxt(k,302)*y(k,52) + rxt(k,303) &
2332 : *y(k,53) + rxt(k,304)*y(k,54) + rxt(k,305)*y(k,86) + rxt(k,306) &
2333 : *y(k,87) + rxt(k,314)*y(k,62) + rxt(k,316)*y(k,24) + rxt(k,323) &
2334 : *y(k,26) + rxt(k,324)*y(k,27) + rxt(k,326)*y(k,28) + rxt(k,328) &
2335 : *y(k,45) + rxt(k,329)*y(k,47) + rxt(k,334)*y(k,50) + rxt(k,335) &
2336 : *y(k,51) + rxt(k,340)*y(k,74) + rxt(k,341)*y(k,75) + rxt(k,342) &
2337 : *y(k,141) + rxt(k,343)*y(k,25) + rxt(k,351)*y(k,30) + rxt(k,352) &
2338 : *y(k,31) + rxt(k,354)*y(k,49) + rxt(k,356)*y(k,96) + rxt(k,357) &
2339 : *y(k,127) + rxt(k,360)*y(k,148) + rxt(k,364)*y(k,149) + rxt(k,365) &
2340 : *y(k,29) + rxt(k,366)*y(k,48) + rxt(k,368)*y(k,16) + rxt(k,371) &
2341 : *y(k,94) + rxt(k,379)*y(k,105) + rxt(k,380)*y(k,106) + rxt(k,389) &
2342 : *y(k,107) + rxt(k,390)*y(k,108) + rxt(k,391)*y(k,109) + rxt(k,393) &
2343 : *y(k,111) + rxt(k,396)*y(k,1) + rxt(k,400)*y(k,2) + rxt(k,401) &
2344 : *y(k,15) + rxt(k,402)*y(k,95) + rxt(k,403)*y(k,97) + rxt(k,404) &
2345 : *y(k,98) + rxt(k,416)*y(k,100) + rxt(k,417)*y(k,101) + rxt(k,424) &
2346 : *y(k,102) + rxt(k,426)*y(k,99) + rxt(k,427)*y(k,103) + rxt(k,428) &
2347 : *y(k,115) + rxt(k,429)*y(k,116) + rxt(k,435)*y(k,184) + rxt(k,438) &
2348 : *y(k,7) + rxt(k,441)*y(k,8) + rxt(k,442)*y(k,22) + rxt(k,444) &
2349 : *y(k,23) + rxt(k,448)*y(k,32) + rxt(k,449)*y(k,66) + rxt(k,461) &
2350 : *y(k,144) + rxt(k,464)*y(k,145) + rxt(k,468)*y(k,182) + rxt(k,469) &
2351 : *y(k,183) + rxt(k,471)*y(k,185) + rxt(k,474)*y(k,186) + rxt(k,477) &
2352 : *y(k,187) + rxt(k,478)*y(k,188) + rxt(k,481)*y(k,6) + rxt(k,484) &
2353 : *y(k,110) + rxt(k,489)*y(k,128) + rxt(k,493)*y(k,177) + rxt(k,494) &
2354 : *y(k,178) + rxt(k,498)*y(k,179) + rxt(k,500)*y(k,180) + rxt(k,501) &
2355 : *y(k,181) + (rxt(k,503) + rxt(k,517)) * y(k,67) + rxt(k,505) &
2356 : *y(k,139) + rxt(k,507)*y(k,153) + rxt(k,511)*y(k,150) + rxt(k,516) &
2357 315224452 : *y(k,152) + rxt(k,519)*y(k,120))
2358 315224452 : mat(k,1464) = -rxt(k,179)*y(k,228)
2359 315224452 : mat(k,584) = -rxt(k,180)*y(k,228)
2360 315224452 : mat(k,2357) = -rxt(k,181)*y(k,228)
2361 315224452 : mat(k,2093) = -rxt(k,182)*y(k,228)
2362 315224452 : mat(k,2224) = -rxt(k,183)*y(k,228)
2363 315224452 : mat(k,475) = -rxt(k,187)*y(k,228)
2364 315224452 : mat(k,1653) = -rxt(k,201)*y(k,228)
2365 315224452 : mat(k,1003) = -rxt(k,202)*y(k,228)
2366 315224452 : mat(k,1958) = -rxt(k,210)*y(k,228)
2367 315224452 : mat(k,2050) = -rxt(k,211)*y(k,228)
2368 315224452 : mat(k,959) = -rxt(k,230)*y(k,228)
2369 315224452 : mat(k,1594) = -(rxt(k,232) + rxt(k,233)) * y(k,228)
2370 315224452 : mat(k,1500) = -rxt(k,235)*y(k,228)
2371 315224452 : mat(k,840) = -rxt(k,238)*y(k,228)
2372 315224452 : mat(k,1568) = -rxt(k,262)*y(k,228)
2373 315224452 : mat(k,831) = -rxt(k,264)*y(k,228)
2374 315224452 : mat(k,482) = -rxt(k,278)*y(k,228)
2375 315224452 : mat(k,605) = -rxt(k,280)*y(k,228)
2376 315224452 : mat(k,124) = -rxt(k,281)*y(k,228)
2377 315224452 : mat(k,374) = -rxt(k,283)*y(k,228)
2378 315224452 : mat(k,388) = -rxt(k,285)*y(k,228)
2379 315224452 : mat(k,243) = -rxt(k,286)*y(k,228)
2380 315224452 : mat(k,253) = -rxt(k,287)*y(k,228)
2381 315224452 : mat(k,294) = -rxt(k,288)*y(k,228)
2382 315224452 : mat(k,1984) = -rxt(k,297)*y(k,228)
2383 315224452 : mat(k,825) = -rxt(k,302)*y(k,228)
2384 315224452 : mat(k,455) = -rxt(k,303)*y(k,228)
2385 315224452 : mat(k,2249) = -rxt(k,304)*y(k,228)
2386 315224452 : mat(k,183) = -rxt(k,305)*y(k,228)
2387 315224452 : mat(k,921) = -rxt(k,306)*y(k,228)
2388 315224452 : mat(k,1162) = -rxt(k,314)*y(k,228)
2389 315224452 : mat(k,289) = -rxt(k,316)*y(k,228)
2390 315224452 : mat(k,267) = -rxt(k,323)*y(k,228)
2391 315224452 : mat(k,353) = -rxt(k,324)*y(k,228)
2392 315224452 : mat(k,301) = -rxt(k,326)*y(k,228)
2393 315224452 : mat(k,1155) = -rxt(k,328)*y(k,228)
2394 315224452 : mat(k,105) = -rxt(k,329)*y(k,228)
2395 315224452 : mat(k,707) = -rxt(k,334)*y(k,228)
2396 315224452 : mat(k,623) = -rxt(k,335)*y(k,228)
2397 315224452 : mat(k,1168) = -rxt(k,340)*y(k,228)
2398 315224452 : mat(k,1057) = -rxt(k,341)*y(k,228)
2399 315224452 : mat(k,538) = -rxt(k,342)*y(k,228)
2400 315224452 : mat(k,554) = -rxt(k,343)*y(k,228)
2401 315224452 : mat(k,412) = -rxt(k,351)*y(k,228)
2402 315224452 : mat(k,307) = -rxt(k,352)*y(k,228)
2403 315224452 : mat(k,1285) = -rxt(k,354)*y(k,228)
2404 315224452 : mat(k,1211) = -rxt(k,356)*y(k,228)
2405 315224452 : mat(k,895) = -rxt(k,357)*y(k,228)
2406 315224452 : mat(k,546) = -rxt(k,360)*y(k,228)
2407 315224452 : mat(k,400) = -rxt(k,364)*y(k,228)
2408 315224452 : mat(k,1142) = -rxt(k,365)*y(k,228)
2409 315224452 : mat(k,1083) = -rxt(k,366)*y(k,228)
2410 315224452 : mat(k,360) = -rxt(k,368)*y(k,228)
2411 315224452 : mat(k,1201) = -rxt(k,371)*y(k,228)
2412 315224452 : mat(k,1275) = -rxt(k,379)*y(k,228)
2413 315224452 : mat(k,319) = -rxt(k,380)*y(k,228)
2414 315224452 : mat(k,521) = -rxt(k,389)*y(k,228)
2415 315224452 : mat(k,325) = -rxt(k,390)*y(k,228)
2416 315224452 : mat(k,616) = -rxt(k,391)*y(k,228)
2417 315224452 : mat(k,1382) = -rxt(k,393)*y(k,228)
2418 315224452 : mat(k,648) = -rxt(k,396)*y(k,228)
2419 315224452 : mat(k,694) = -rxt(k,400)*y(k,228)
2420 315224452 : mat(k,228) = -rxt(k,401)*y(k,228)
2421 315224452 : mat(k,224) = -rxt(k,402)*y(k,228)
2422 315224452 : mat(k,328) = -rxt(k,403)*y(k,228)
2423 315224452 : mat(k,135) = -rxt(k,404)*y(k,228)
2424 315224452 : mat(k,593) = -rxt(k,416)*y(k,228)
2425 315224452 : mat(k,563) = -rxt(k,417)*y(k,228)
2426 315224452 : mat(k,406) = -rxt(k,424)*y(k,228)
2427 315224452 : mat(k,887) = -rxt(k,426)*y(k,228)
2428 315224452 : mat(k,715) = -rxt(k,427)*y(k,228)
2429 315224452 : mat(k,430) = -rxt(k,428)*y(k,228)
2430 315224452 : mat(k,1095) = -rxt(k,429)*y(k,228)
2431 315224452 : mat(k,205) = -rxt(k,435)*y(k,228)
2432 315224452 : mat(k,164) = -rxt(k,438)*y(k,228)
2433 315224452 : mat(k,419) = -rxt(k,441)*y(k,228)
2434 315224452 : mat(k,237) = -rxt(k,442)*y(k,228)
2435 315224452 : mat(k,348) = -rxt(k,444)*y(k,228)
2436 315224452 : mat(k,272) = -rxt(k,448)*y(k,228)
2437 315224452 : mat(k,197) = -rxt(k,449)*y(k,228)
2438 315224452 : mat(k,173) = -rxt(k,461)*y(k,228)
2439 315224452 : mat(k,342) = -rxt(k,464)*y(k,228)
2440 315224452 : mat(k,673) = -rxt(k,468)*y(k,228)
2441 315224452 : mat(k,192) = -rxt(k,469)*y(k,228)
2442 315224452 : mat(k,214) = -rxt(k,471)*y(k,228)
2443 315224452 : mat(k,738) = -rxt(k,474)*y(k,228)
2444 315224452 : mat(k,219) = -rxt(k,477)*y(k,228)
2445 315224452 : mat(k,425) = -rxt(k,478)*y(k,228)
2446 315224452 : mat(k,988) = -rxt(k,481)*y(k,228)
2447 315224452 : mat(k,1032) = -rxt(k,484)*y(k,228)
2448 315224452 : mat(k,394) = -rxt(k,489)*y(k,228)
2449 315224452 : mat(k,659) = -rxt(k,493)*y(k,228)
2450 315224452 : mat(k,629) = -rxt(k,494)*y(k,228)
2451 315224452 : mat(k,490) = -rxt(k,498)*y(k,228)
2452 315224452 : mat(k,1078) = -rxt(k,500)*y(k,228)
2453 315224452 : mat(k,1124) = -rxt(k,501)*y(k,228)
2454 315224452 : mat(k,313) = -(rxt(k,503) + rxt(k,517)) * y(k,228)
2455 315224452 : mat(k,368) = -rxt(k,505)*y(k,228)
2456 315224452 : mat(k,949) = -rxt(k,507)*y(k,228)
2457 315224452 : mat(k,721) = -rxt(k,511)*y(k,228)
2458 315224452 : mat(k,1481) = -rxt(k,516)*y(k,228)
2459 315224452 : mat(k,99) = -rxt(k,519)*y(k,228)
2460 315224452 : mat(k,988) = mat(k,988) + .630_r8*rxt(k,480)*y(k,136)
2461 315224452 : mat(k,289) = mat(k,289) + .650_r8*rxt(k,316)*y(k,228)
2462 315224452 : mat(k,554) = mat(k,554) + .130_r8*rxt(k,318)*y(k,136)
2463 315224452 : mat(k,353) = mat(k,353) + .500_r8*rxt(k,324)*y(k,228)
2464 315224452 : mat(k,1142) = mat(k,1142) + .360_r8*rxt(k,347)*y(k,136)
2465 315224452 : mat(k,1984) = mat(k,1984) + rxt(k,296)*y(k,134)
2466 315224452 : mat(k,455) = mat(k,455) + .300_r8*rxt(k,303)*y(k,228)
2467 315224452 : mat(k,2249) = mat(k,2249) + rxt(k,310)*y(k,224)
2468 315224452 : mat(k,2160) = rxt(k,219)*y(k,90)
2469 315224452 : mat(k,928) = rxt(k,273)*y(k,241)
2470 315224452 : mat(k,2114) = 2.000_r8*rxt(k,173)*y(k,90) + rxt(k,178)*y(k,136)
2471 315224452 : mat(k,1464) = mat(k,1464) + rxt(k,170)*y(k,134) + rxt(k,153)*y(k,224)
2472 315224452 : mat(k,584) = mat(k,584) + rxt(k,171)*y(k,134)
2473 315224452 : mat(k,831) = mat(k,831) + rxt(k,263)*y(k,134) + rxt(k,269)*y(k,224)
2474 315224452 : mat(k,1500) = mat(k,1500) + rxt(k,234)*y(k,134) + rxt(k,246)*y(k,224)
2475 315224452 : mat(k,183) = mat(k,183) + rxt(k,313)*y(k,224)
2476 : mat(k,2357) = mat(k,2357) + rxt(k,219)*y(k,56) + 2.000_r8*rxt(k,173)*y(k,76) &
2477 : + rxt(k,203)*y(k,124) + rxt(k,198)*y(k,126) + rxt(k,176) &
2478 : *y(k,134) + rxt(k,177)*y(k,136) + .400_r8*rxt(k,436)*y(k,191) &
2479 : + .450_r8*rxt(k,332)*y(k,200) + .400_r8*rxt(k,450)*y(k,202) &
2480 : + .450_r8*rxt(k,383)*y(k,215) + .400_r8*rxt(k,456)*y(k,216) &
2481 315224452 : + .200_r8*rxt(k,387)*y(k,217) + .150_r8*rxt(k,362)*y(k,232)
2482 315224452 : mat(k,791) = rxt(k,265)*y(k,134)
2483 315224452 : mat(k,840) = mat(k,840) + rxt(k,237)*y(k,134)
2484 315224452 : mat(k,887) = mat(k,887) + .320_r8*rxt(k,425)*y(k,136)
2485 315224452 : mat(k,715) = mat(k,715) + .600_r8*rxt(k,427)*y(k,228)
2486 315224452 : mat(k,1275) = mat(k,1275) + .240_r8*rxt(k,378)*y(k,136)
2487 315224452 : mat(k,319) = mat(k,319) + .100_r8*rxt(k,380)*y(k,228)
2488 315224452 : mat(k,1032) = mat(k,1032) + .630_r8*rxt(k,483)*y(k,136)
2489 315224452 : mat(k,1382) = mat(k,1382) + .360_r8*rxt(k,392)*y(k,136)
2490 315224452 : mat(k,1913) = rxt(k,203)*y(k,90)
2491 315224452 : mat(k,1653) = mat(k,1653) + rxt(k,198)*y(k,90)
2492 : mat(k,2093) = mat(k,2093) + rxt(k,296)*y(k,42) + rxt(k,170)*y(k,77) &
2493 : + rxt(k,171)*y(k,79) + rxt(k,263)*y(k,81) + rxt(k,234)*y(k,85) &
2494 315224452 : + rxt(k,176)*y(k,90) + rxt(k,265)*y(k,92) + rxt(k,237)*y(k,93)
2495 : mat(k,2224) = mat(k,2224) + .630_r8*rxt(k,480)*y(k,6) + .130_r8*rxt(k,318) &
2496 : *y(k,25) + .360_r8*rxt(k,347)*y(k,29) + rxt(k,178)*y(k,76) &
2497 : + rxt(k,177)*y(k,90) + .320_r8*rxt(k,425)*y(k,99) &
2498 : + .240_r8*rxt(k,378)*y(k,105) + .630_r8*rxt(k,483)*y(k,110) &
2499 315224452 : + .360_r8*rxt(k,392)*y(k,111)
2500 315224452 : mat(k,546) = mat(k,546) + .500_r8*rxt(k,360)*y(k,228)
2501 315224452 : mat(k,205) = mat(k,205) + .500_r8*rxt(k,435)*y(k,228)
2502 315224452 : mat(k,525) = .400_r8*rxt(k,436)*y(k,90)
2503 315224452 : mat(k,1432) = .450_r8*rxt(k,332)*y(k,90)
2504 315224452 : mat(k,781) = .400_r8*rxt(k,450)*y(k,90)
2505 315224452 : mat(k,1401) = .450_r8*rxt(k,383)*y(k,90)
2506 315224452 : mat(k,914) = .400_r8*rxt(k,456)*y(k,90)
2507 315224452 : mat(k,701) = .200_r8*rxt(k,387)*y(k,90)
2508 : mat(k,2027) = rxt(k,310)*y(k,54) + rxt(k,153)*y(k,77) + rxt(k,269)*y(k,81) &
2509 : + rxt(k,246)*y(k,85) + rxt(k,313)*y(k,86) + 2.000_r8*rxt(k,154) &
2510 315224452 : *y(k,241)
2511 : mat(k,1818) = mat(k,1818) + .650_r8*rxt(k,316)*y(k,24) + .500_r8*rxt(k,324) &
2512 : *y(k,27) + .300_r8*rxt(k,303)*y(k,53) + .600_r8*rxt(k,427) &
2513 : *y(k,103) + .100_r8*rxt(k,380)*y(k,106) + .500_r8*rxt(k,360) &
2514 315224452 : *y(k,148) + .500_r8*rxt(k,435)*y(k,184)
2515 315224452 : mat(k,1220) = .150_r8*rxt(k,362)*y(k,90)
2516 325174377 : mat(k,2436) = rxt(k,273)*y(k,73) + 2.000_r8*rxt(k,154)*y(k,224)
2517 : end do
2518 9949925 : end subroutine nlnmat10
2519 9949925 : subroutine nlnmat11( avec_len, mat, y, rxt )
2520 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
2521 : implicit none
2522 : !----------------------------------------------
2523 : ! ... dummy arguments
2524 : !----------------------------------------------
2525 : integer, intent(in) :: avec_len
2526 : real(r8), intent(in) :: y(veclen,gas_pcnst)
2527 : real(r8), intent(in) :: rxt(veclen,rxntot)
2528 : real(r8), intent(inout) :: mat(veclen,nzcnt)
2529 : !----------------------------------------------
2530 : ! ... local variables
2531 : !----------------------------------------------
2532 : integer :: k
2533 : !----------------------------------------------
2534 : ! ... complete matrix entries implicit species
2535 : !----------------------------------------------
2536 325174377 : do k = 1,avec_len
2537 315224452 : mat(k,805) = -(rxt(k,591)*y(k,63) + rxt(k,593)*y(k,135))
2538 315224452 : mat(k,1444) = -rxt(k,591)*y(k,229)
2539 315224452 : mat(k,1531) = -rxt(k,593)*y(k,229)
2540 315224452 : mat(k,2074) = rxt(k,584)*y(k,220) + rxt(k,585)*y(k,222)
2541 315224452 : mat(k,677) = rxt(k,584)*y(k,134)
2542 315224452 : mat(k,503) = rxt(k,585)*y(k,134)
2543 315224452 : mat(k,448) = -(rxt(k,459)*y(k,90) + rxt(k,460)*y(k,124))
2544 315224452 : mat(k,2291) = -rxt(k,459)*y(k,230)
2545 315224452 : mat(k,1851) = -rxt(k,460)*y(k,230)
2546 315224452 : mat(k,195) = .200_r8*rxt(k,449)*y(k,228)
2547 315224452 : mat(k,171) = .140_r8*rxt(k,461)*y(k,228)
2548 315224452 : mat(k,340) = rxt(k,464)*y(k,228)
2549 : mat(k,1729) = .200_r8*rxt(k,449)*y(k,66) + .140_r8*rxt(k,461)*y(k,144) &
2550 315224452 : + rxt(k,464)*y(k,145)
2551 315224452 : mat(k,814) = -(rxt(k,358)*y(k,90) + rxt(k,359)*y(k,124))
2552 315224452 : mat(k,2318) = -rxt(k,358)*y(k,231)
2553 315224452 : mat(k,1872) = -rxt(k,359)*y(k,231)
2554 315224452 : mat(k,1130) = rxt(k,365)*y(k,228)
2555 315224452 : mat(k,543) = .500_r8*rxt(k,360)*y(k,228)
2556 315224452 : mat(k,1767) = rxt(k,365)*y(k,29) + .500_r8*rxt(k,360)*y(k,148)
2557 : mat(k,1217) = -(rxt(k,361)*y(k,201) + rxt(k,362)*y(k,90) + rxt(k,363) &
2558 315224452 : *y(k,124))
2559 315224452 : mat(k,2393) = -rxt(k,361)*y(k,232)
2560 315224452 : mat(k,2338) = -rxt(k,362)*y(k,232)
2561 315224452 : mat(k,1896) = -rxt(k,363)*y(k,232)
2562 315224452 : mat(k,983) = .060_r8*rxt(k,480)*y(k,136)
2563 315224452 : mat(k,1081) = rxt(k,366)*y(k,228)
2564 315224452 : mat(k,1027) = .060_r8*rxt(k,483)*y(k,136)
2565 315224452 : mat(k,2207) = .060_r8*rxt(k,480)*y(k,6) + .060_r8*rxt(k,483)*y(k,110)
2566 315224452 : mat(k,398) = rxt(k,364)*y(k,228)
2567 315224452 : mat(k,1121) = .150_r8*rxt(k,501)*y(k,228)
2568 : mat(k,1798) = rxt(k,366)*y(k,48) + rxt(k,364)*y(k,149) + .150_r8*rxt(k,501) &
2569 315224452 : *y(k,181)
2570 : mat(k,1178) = -(rxt(k,490)*y(k,201) + rxt(k,491)*y(k,90) + rxt(k,492) &
2571 315224452 : *y(k,124))
2572 315224452 : mat(k,2391) = -rxt(k,490)*y(k,233)
2573 315224452 : mat(k,2336) = -rxt(k,491)*y(k,233)
2574 315224452 : mat(k,1893) = -rxt(k,492)*y(k,233)
2575 315224452 : mat(k,1632) = .500_r8*rxt(k,499)*y(k,180)
2576 315224452 : mat(k,657) = rxt(k,493)*y(k,228)
2577 315224452 : mat(k,1076) = .500_r8*rxt(k,499)*y(k,126) + rxt(k,500)*y(k,228)
2578 315224452 : mat(k,1795) = rxt(k,493)*y(k,177) + rxt(k,500)*y(k,180)
2579 : mat(k,1062) = -(rxt(k,495)*y(k,201) + rxt(k,496)*y(k,90) + rxt(k,497) &
2580 315224452 : *y(k,124))
2581 315224452 : mat(k,2382) = -rxt(k,495)*y(k,234)
2582 315224452 : mat(k,2328) = -rxt(k,496)*y(k,234)
2583 315224452 : mat(k,1884) = -rxt(k,497)*y(k,234)
2584 315224452 : mat(k,977) = rxt(k,481)*y(k,228)
2585 315224452 : mat(k,1021) = rxt(k,484)*y(k,228)
2586 315224452 : mat(k,487) = rxt(k,498)*y(k,228)
2587 315224452 : mat(k,1785) = rxt(k,481)*y(k,6) + rxt(k,484)*y(k,110) + rxt(k,498)*y(k,179)
2588 315224452 : mat(k,751) = -(rxt(k,466)*y(k,90) + rxt(k,467)*y(k,124))
2589 315224452 : mat(k,2313) = -rxt(k,466)*y(k,235)
2590 315224452 : mat(k,1868) = -rxt(k,467)*y(k,235)
2591 315224452 : mat(k,667) = rxt(k,468)*y(k,228)
2592 315224452 : mat(k,191) = .650_r8*rxt(k,469)*y(k,228)
2593 315224452 : mat(k,1763) = rxt(k,468)*y(k,182) + .650_r8*rxt(k,469)*y(k,183)
2594 315224452 : mat(k,88) = -(rxt(k,557)*y(k,90) + rxt(k,558)*y(k,124))
2595 315224452 : mat(k,2273) = -rxt(k,557)*y(k,236)
2596 315224452 : mat(k,1842) = -rxt(k,558)*y(k,236)
2597 315224452 : mat(k,186) = rxt(k,556)*y(k,228)
2598 315224452 : mat(k,1679) = rxt(k,556)*y(k,183)
2599 : mat(k,1233) = -(rxt(k,430)*y(k,200) + rxt(k,431)*y(k,201) + rxt(k,432) &
2600 315224452 : *y(k,90) + rxt(k,433)*y(k,124) + rxt(k,434)*y(k,126))
2601 315224452 : mat(k,1419) = -rxt(k,430)*y(k,237)
2602 315224452 : mat(k,2394) = -rxt(k,431)*y(k,237)
2603 315224452 : mat(k,2339) = -rxt(k,432)*y(k,237)
2604 315224452 : mat(k,1897) = -rxt(k,433)*y(k,237)
2605 315224452 : mat(k,1636) = -rxt(k,434)*y(k,237)
2606 315224452 : mat(k,223) = rxt(k,402)*y(k,228)
2607 315224452 : mat(k,327) = rxt(k,403)*y(k,228)
2608 315224452 : mat(k,134) = rxt(k,404)*y(k,228)
2609 315224452 : mat(k,712) = .400_r8*rxt(k,427)*y(k,228)
2610 315224452 : mat(k,204) = .500_r8*rxt(k,435)*y(k,228)
2611 : mat(k,1799) = rxt(k,402)*y(k,95) + rxt(k,403)*y(k,97) + rxt(k,404)*y(k,98) &
2612 315224452 : + .400_r8*rxt(k,427)*y(k,103) + .500_r8*rxt(k,435)*y(k,184)
2613 315224452 : mat(k,767) = -(rxt(k,472)*y(k,90) + rxt(k,473)*y(k,124))
2614 315224452 : mat(k,2314) = -rxt(k,472)*y(k,238)
2615 315224452 : mat(k,1869) = -rxt(k,473)*y(k,238)
2616 315224452 : mat(k,211) = .560_r8*rxt(k,471)*y(k,228)
2617 315224452 : mat(k,731) = rxt(k,474)*y(k,228)
2618 315224452 : mat(k,1764) = .560_r8*rxt(k,471)*y(k,185) + rxt(k,474)*y(k,186)
2619 315224452 : mat(k,94) = -(rxt(k,560)*y(k,90) + rxt(k,561)*y(k,124))
2620 315224452 : mat(k,2274) = -rxt(k,560)*y(k,239)
2621 315224452 : mat(k,1843) = -rxt(k,561)*y(k,239)
2622 315224452 : mat(k,206) = rxt(k,559)*y(k,228)
2623 315224452 : mat(k,1680) = rxt(k,559)*y(k,185)
2624 315224452 : mat(k,510) = -(rxt(k,475)*y(k,90) + rxt(k,476)*y(k,124))
2625 315224452 : mat(k,2299) = -rxt(k,475)*y(k,240)
2626 315224452 : mat(k,1856) = -rxt(k,476)*y(k,240)
2627 315224452 : mat(k,218) = .300_r8*rxt(k,477)*y(k,228)
2628 315224452 : mat(k,422) = rxt(k,478)*y(k,228)
2629 315224452 : mat(k,1737) = .300_r8*rxt(k,477)*y(k,187) + rxt(k,478)*y(k,188)
2630 : mat(k,2449) = -(rxt(k,154)*y(k,224) + rxt(k,273)*y(k,73) + rxt(k,518) &
2631 315224452 : *y(k,154))
2632 315224452 : mat(k,2040) = -rxt(k,154)*y(k,241)
2633 315224452 : mat(k,933) = -rxt(k,273)*y(k,241)
2634 315224452 : mat(k,264) = -rxt(k,518)*y(k,241)
2635 315224452 : mat(k,303) = rxt(k,326)*y(k,228)
2636 315224452 : mat(k,414) = rxt(k,351)*y(k,228)
2637 315224452 : mat(k,309) = rxt(k,352)*y(k,228)
2638 315224452 : mat(k,485) = rxt(k,278)*y(k,228)
2639 315224452 : mat(k,1997) = rxt(k,297)*y(k,228)
2640 315224452 : mat(k,610) = rxt(k,280)*y(k,228)
2641 315224452 : mat(k,126) = rxt(k,281)*y(k,228)
2642 315224452 : mat(k,1159) = rxt(k,328)*y(k,228)
2643 315224452 : mat(k,378) = rxt(k,283)*y(k,228)
2644 315224452 : mat(k,1085) = rxt(k,366)*y(k,228)
2645 315224452 : mat(k,1288) = rxt(k,354)*y(k,228)
2646 315224452 : mat(k,709) = rxt(k,334)*y(k,228)
2647 315224452 : mat(k,626) = rxt(k,335)*y(k,228)
2648 315224452 : mat(k,459) = rxt(k,303)*y(k,228)
2649 315224452 : mat(k,2262) = rxt(k,304)*y(k,228)
2650 315224452 : mat(k,2127) = rxt(k,174)*y(k,90)
2651 315224452 : mat(k,1472) = rxt(k,179)*y(k,228)
2652 315224452 : mat(k,588) = rxt(k,180)*y(k,228)
2653 315224452 : mat(k,835) = rxt(k,264)*y(k,228)
2654 315224452 : mat(k,297) = rxt(k,288)*y(k,228)
2655 : mat(k,1507) = (rxt(k,570)+rxt(k,575))*y(k,92) + (rxt(k,563)+rxt(k,569) &
2656 315224452 : +rxt(k,574))*y(k,93) + rxt(k,235)*y(k,228)
2657 315224452 : mat(k,923) = rxt(k,306)*y(k,228)
2658 315224452 : mat(k,2063) = rxt(k,211)*y(k,228)
2659 315224452 : mat(k,2370) = rxt(k,174)*y(k,76) + rxt(k,181)*y(k,228)
2660 315224452 : mat(k,478) = rxt(k,187)*y(k,228)
2661 315224452 : mat(k,794) = (rxt(k,570)+rxt(k,575))*y(k,85)
2662 315224452 : mat(k,843) = (rxt(k,563)+rxt(k,569)+rxt(k,574))*y(k,85) + rxt(k,238)*y(k,228)
2663 315224452 : mat(k,1279) = .500_r8*rxt(k,379)*y(k,228)
2664 315224452 : mat(k,100) = rxt(k,519)*y(k,228)
2665 315224452 : mat(k,549) = rxt(k,360)*y(k,228)
2666 315224452 : mat(k,402) = rxt(k,364)*y(k,228)
2667 : mat(k,1831) = rxt(k,326)*y(k,28) + rxt(k,351)*y(k,30) + rxt(k,352)*y(k,31) &
2668 : + rxt(k,278)*y(k,41) + rxt(k,297)*y(k,42) + rxt(k,280)*y(k,43) &
2669 : + rxt(k,281)*y(k,44) + rxt(k,328)*y(k,45) + rxt(k,283)*y(k,46) &
2670 : + rxt(k,366)*y(k,48) + rxt(k,354)*y(k,49) + rxt(k,334)*y(k,50) &
2671 : + rxt(k,335)*y(k,51) + rxt(k,303)*y(k,53) + rxt(k,304)*y(k,54) &
2672 : + rxt(k,179)*y(k,77) + rxt(k,180)*y(k,79) + rxt(k,264)*y(k,81) &
2673 : + rxt(k,288)*y(k,84) + rxt(k,235)*y(k,85) + rxt(k,306)*y(k,87) &
2674 : + rxt(k,211)*y(k,89) + rxt(k,181)*y(k,90) + rxt(k,187)*y(k,91) &
2675 : + rxt(k,238)*y(k,93) + .500_r8*rxt(k,379)*y(k,105) + rxt(k,519) &
2676 : *y(k,120) + rxt(k,360)*y(k,148) + rxt(k,364)*y(k,149) &
2677 325174377 : + 2.000_r8*rxt(k,184)*y(k,228)
2678 : end do
2679 9949925 : end subroutine nlnmat11
2680 9949925 : subroutine nlnmat_finit( avec_len, mat, lmat, dti )
2681 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
2682 : implicit none
2683 : !----------------------------------------------
2684 : ! ... dummy arguments
2685 : !----------------------------------------------
2686 : integer, intent(in) :: avec_len
2687 : real(r8), intent(in) :: dti(veclen)
2688 : real(r8), intent(in) :: lmat(veclen,nzcnt)
2689 : real(r8), intent(inout) :: mat(veclen,nzcnt)
2690 : !----------------------------------------------
2691 : ! ... local variables
2692 : !----------------------------------------------
2693 : integer :: k
2694 : !----------------------------------------------
2695 : ! ... complete matrix entries implicit species
2696 : !----------------------------------------------
2697 325174377 : do k = 1,avec_len
2698 315224452 : mat(k, 1) = lmat(k, 1)
2699 315224452 : mat(k, 2) = lmat(k, 2)
2700 315224452 : mat(k, 3) = lmat(k, 3)
2701 315224452 : mat(k, 4) = lmat(k, 4)
2702 315224452 : mat(k, 5) = lmat(k, 5)
2703 315224452 : mat(k, 6) = lmat(k, 6)
2704 315224452 : mat(k, 7) = lmat(k, 7)
2705 315224452 : mat(k, 8) = lmat(k, 8)
2706 315224452 : mat(k, 9) = lmat(k, 9)
2707 315224452 : mat(k, 10) = lmat(k, 10)
2708 315224452 : mat(k, 11) = lmat(k, 11)
2709 315224452 : mat(k, 12) = lmat(k, 12)
2710 315224452 : mat(k, 13) = lmat(k, 13)
2711 315224452 : mat(k, 14) = lmat(k, 14)
2712 315224452 : mat(k, 15) = lmat(k, 15)
2713 315224452 : mat(k, 16) = lmat(k, 16)
2714 315224452 : mat(k, 17) = lmat(k, 17)
2715 315224452 : mat(k, 18) = lmat(k, 18)
2716 315224452 : mat(k, 19) = lmat(k, 19)
2717 315224452 : mat(k, 20) = lmat(k, 20)
2718 315224452 : mat(k, 21) = lmat(k, 21)
2719 315224452 : mat(k, 22) = lmat(k, 22)
2720 315224452 : mat(k, 23) = lmat(k, 23)
2721 315224452 : mat(k, 24) = lmat(k, 24)
2722 315224452 : mat(k, 25) = lmat(k, 25)
2723 315224452 : mat(k, 26) = lmat(k, 26)
2724 315224452 : mat(k, 27) = lmat(k, 27)
2725 315224452 : mat(k, 28) = lmat(k, 28)
2726 315224452 : mat(k, 29) = lmat(k, 29)
2727 315224452 : mat(k, 30) = lmat(k, 30)
2728 315224452 : mat(k, 31) = lmat(k, 31)
2729 315224452 : mat(k, 32) = lmat(k, 32)
2730 315224452 : mat(k, 33) = lmat(k, 33)
2731 315224452 : mat(k, 34) = lmat(k, 34)
2732 315224452 : mat(k, 35) = lmat(k, 35)
2733 315224452 : mat(k, 36) = lmat(k, 36)
2734 315224452 : mat(k, 37) = lmat(k, 37)
2735 315224452 : mat(k, 38) = lmat(k, 38)
2736 315224452 : mat(k, 39) = lmat(k, 39)
2737 315224452 : mat(k, 40) = lmat(k, 40)
2738 315224452 : mat(k, 41) = lmat(k, 41)
2739 315224452 : mat(k, 42) = lmat(k, 42)
2740 315224452 : mat(k, 43) = lmat(k, 43)
2741 315224452 : mat(k, 44) = lmat(k, 44)
2742 315224452 : mat(k, 50) = mat(k, 50) + lmat(k, 50)
2743 315224452 : mat(k, 56) = mat(k, 56) + lmat(k, 56)
2744 315224452 : mat(k, 62) = mat(k, 62) + lmat(k, 62)
2745 315224452 : mat(k, 68) = mat(k, 68) + lmat(k, 68)
2746 315224452 : mat(k, 74) = mat(k, 74) + lmat(k, 74)
2747 315224452 : mat(k, 76) = mat(k, 76) + lmat(k, 76)
2748 315224452 : mat(k, 82) = mat(k, 82) + lmat(k, 82)
2749 315224452 : mat(k, 88) = mat(k, 88) + lmat(k, 88)
2750 315224452 : mat(k, 94) = mat(k, 94) + lmat(k, 94)
2751 315224452 : mat(k, 95) = lmat(k, 95)
2752 315224452 : mat(k, 96) = lmat(k, 96)
2753 315224452 : mat(k, 97) = lmat(k, 97)
2754 315224452 : mat(k, 98) = mat(k, 98) + lmat(k, 98)
2755 315224452 : mat(k, 101) = mat(k, 101) + lmat(k, 101)
2756 315224452 : mat(k, 103) = mat(k, 103) + lmat(k, 103)
2757 315224452 : mat(k, 104) = mat(k, 104) + lmat(k, 104)
2758 315224452 : mat(k, 107) = mat(k, 107) + lmat(k, 107)
2759 315224452 : mat(k, 108) = mat(k, 108) + lmat(k, 108)
2760 315224452 : mat(k, 109) = mat(k, 109) + lmat(k, 109)
2761 315224452 : mat(k, 111) = mat(k, 111) + lmat(k, 111)
2762 315224452 : mat(k, 112) = mat(k, 112) + lmat(k, 112)
2763 315224452 : mat(k, 114) = mat(k, 114) + lmat(k, 114)
2764 315224452 : mat(k, 115) = mat(k, 115) + lmat(k, 115)
2765 315224452 : mat(k, 116) = mat(k, 116) + lmat(k, 116)
2766 315224452 : mat(k, 118) = mat(k, 118) + lmat(k, 118)
2767 315224452 : mat(k, 119) = mat(k, 119) + lmat(k, 119)
2768 315224452 : mat(k, 120) = mat(k, 120) + lmat(k, 120)
2769 315224452 : mat(k, 122) = mat(k, 122) + lmat(k, 122)
2770 315224452 : mat(k, 123) = mat(k, 123) + lmat(k, 123)
2771 315224452 : mat(k, 125) = mat(k, 125) + lmat(k, 125)
2772 315224452 : mat(k, 127) = lmat(k, 127)
2773 315224452 : mat(k, 128) = lmat(k, 128)
2774 315224452 : mat(k, 129) = lmat(k, 129)
2775 315224452 : mat(k, 130) = lmat(k, 130)
2776 315224452 : mat(k, 131) = lmat(k, 131)
2777 315224452 : mat(k, 132) = lmat(k, 132)
2778 315224452 : mat(k, 133) = mat(k, 133) + lmat(k, 133)
2779 315224452 : mat(k, 136) = lmat(k, 136)
2780 315224452 : mat(k, 137) = lmat(k, 137)
2781 315224452 : mat(k, 138) = lmat(k, 138)
2782 315224452 : mat(k, 139) = mat(k, 139) + lmat(k, 139)
2783 315224452 : mat(k, 140) = mat(k, 140) + lmat(k, 140)
2784 315224452 : mat(k, 141) = mat(k, 141) + lmat(k, 141)
2785 315224452 : mat(k, 143) = mat(k, 143) + lmat(k, 143)
2786 315224452 : mat(k, 144) = mat(k, 144) + lmat(k, 144)
2787 315224452 : mat(k, 145) = mat(k, 145) + lmat(k, 145)
2788 315224452 : mat(k, 146) = mat(k, 146) + lmat(k, 146)
2789 315224452 : mat(k, 147) = mat(k, 147) + lmat(k, 147)
2790 315224452 : mat(k, 149) = mat(k, 149) + lmat(k, 149)
2791 315224452 : mat(k, 150) = mat(k, 150) + lmat(k, 150)
2792 315224452 : mat(k, 151) = mat(k, 151) + lmat(k, 151)
2793 315224452 : mat(k, 153) = mat(k, 153) + lmat(k, 153)
2794 315224452 : mat(k, 154) = mat(k, 154) + lmat(k, 154)
2795 315224452 : mat(k, 155) = mat(k, 155) + lmat(k, 155)
2796 315224452 : mat(k, 156) = mat(k, 156) + lmat(k, 156)
2797 315224452 : mat(k, 158) = mat(k, 158) + lmat(k, 158)
2798 315224452 : mat(k, 160) = mat(k, 160) + lmat(k, 160)
2799 315224452 : mat(k, 166) = lmat(k, 166)
2800 315224452 : mat(k, 167) = lmat(k, 167)
2801 315224452 : mat(k, 168) = lmat(k, 168)
2802 315224452 : mat(k, 169) = lmat(k, 169)
2803 315224452 : mat(k, 170) = mat(k, 170) + lmat(k, 170)
2804 315224452 : mat(k, 175) = lmat(k, 175)
2805 315224452 : mat(k, 176) = lmat(k, 176)
2806 315224452 : mat(k, 177) = mat(k, 177) + lmat(k, 177)
2807 315224452 : mat(k, 178) = mat(k, 178) + lmat(k, 178)
2808 315224452 : mat(k, 179) = mat(k, 179) + lmat(k, 179)
2809 315224452 : mat(k, 180) = mat(k, 180) + lmat(k, 180)
2810 315224452 : mat(k, 181) = lmat(k, 181)
2811 315224452 : mat(k, 182) = mat(k, 182) + lmat(k, 182)
2812 315224452 : mat(k, 187) = mat(k, 187) + lmat(k, 187)
2813 315224452 : mat(k, 194) = mat(k, 194) + lmat(k, 194)
2814 315224452 : mat(k, 199) = lmat(k, 199)
2815 315224452 : mat(k, 200) = lmat(k, 200)
2816 315224452 : mat(k, 201) = lmat(k, 201)
2817 315224452 : mat(k, 202) = lmat(k, 202)
2818 315224452 : mat(k, 203) = mat(k, 203) + lmat(k, 203)
2819 315224452 : mat(k, 205) = mat(k, 205) + lmat(k, 205)
2820 315224452 : mat(k, 208) = mat(k, 208) + lmat(k, 208)
2821 315224452 : mat(k, 216) = mat(k, 216) + lmat(k, 216)
2822 315224452 : mat(k, 221) = mat(k, 221) + lmat(k, 221)
2823 315224452 : mat(k, 222) = lmat(k, 222)
2824 315224452 : mat(k, 224) = mat(k, 224) + lmat(k, 224)
2825 315224452 : mat(k, 225) = lmat(k, 225)
2826 315224452 : mat(k, 226) = mat(k, 226) + lmat(k, 226)
2827 315224452 : mat(k, 229) = lmat(k, 229)
2828 315224452 : mat(k, 230) = lmat(k, 230)
2829 315224452 : mat(k, 231) = lmat(k, 231)
2830 315224452 : mat(k, 232) = lmat(k, 232)
2831 315224452 : mat(k, 233) = lmat(k, 233)
2832 315224452 : mat(k, 234) = lmat(k, 234)
2833 315224452 : mat(k, 235) = mat(k, 235) + lmat(k, 235)
2834 315224452 : mat(k, 238) = mat(k, 238) + lmat(k, 238)
2835 315224452 : mat(k, 239) = mat(k, 239) + lmat(k, 239)
2836 315224452 : mat(k, 241) = mat(k, 241) + lmat(k, 241)
2837 315224452 : mat(k, 242) = mat(k, 242) + lmat(k, 242)
2838 315224452 : mat(k, 245) = mat(k, 245) + lmat(k, 245)
2839 315224452 : mat(k, 246) = mat(k, 246) + lmat(k, 246)
2840 315224452 : mat(k, 247) = mat(k, 247) + lmat(k, 247)
2841 315224452 : mat(k, 249) = mat(k, 249) + lmat(k, 249)
2842 315224452 : mat(k, 250) = mat(k, 250) + lmat(k, 250)
2843 315224452 : mat(k, 251) = mat(k, 251) + lmat(k, 251)
2844 315224452 : mat(k, 255) = mat(k, 255) + lmat(k, 255)
2845 315224452 : mat(k, 256) = mat(k, 256) + lmat(k, 256)
2846 315224452 : mat(k, 259) = mat(k, 259) + lmat(k, 259)
2847 315224452 : mat(k, 261) = mat(k, 261) + lmat(k, 261)
2848 315224452 : mat(k, 262) = lmat(k, 262)
2849 315224452 : mat(k, 263) = lmat(k, 263)
2850 315224452 : mat(k, 265) = mat(k, 265) + lmat(k, 265)
2851 315224452 : mat(k, 269) = mat(k, 269) + lmat(k, 269)
2852 315224452 : mat(k, 270) = lmat(k, 270)
2853 315224452 : mat(k, 272) = mat(k, 272) + lmat(k, 272)
2854 315224452 : mat(k, 273) = lmat(k, 273)
2855 315224452 : mat(k, 274) = lmat(k, 274)
2856 315224452 : mat(k, 275) = lmat(k, 275)
2857 315224452 : mat(k, 276) = lmat(k, 276)
2858 315224452 : mat(k, 277) = lmat(k, 277)
2859 315224452 : mat(k, 278) = lmat(k, 278)
2860 315224452 : mat(k, 279) = lmat(k, 279)
2861 315224452 : mat(k, 280) = lmat(k, 280)
2862 315224452 : mat(k, 281) = lmat(k, 281)
2863 315224452 : mat(k, 282) = lmat(k, 282)
2864 315224452 : mat(k, 283) = lmat(k, 283)
2865 315224452 : mat(k, 284) = lmat(k, 284)
2866 315224452 : mat(k, 285) = mat(k, 285) + lmat(k, 285)
2867 315224452 : mat(k, 291) = mat(k, 291) + lmat(k, 291)
2868 315224452 : mat(k, 292) = mat(k, 292) + lmat(k, 292)
2869 315224452 : mat(k, 296) = mat(k, 296) + lmat(k, 296)
2870 315224452 : mat(k, 298) = mat(k, 298) + lmat(k, 298)
2871 315224452 : mat(k, 304) = mat(k, 304) + lmat(k, 304)
2872 315224452 : mat(k, 310) = mat(k, 310) + lmat(k, 310)
2873 315224452 : mat(k, 316) = mat(k, 316) + lmat(k, 316)
2874 315224452 : mat(k, 321) = mat(k, 321) + lmat(k, 321)
2875 315224452 : mat(k, 323) = lmat(k, 323)
2876 315224452 : mat(k, 324) = lmat(k, 324)
2877 315224452 : mat(k, 325) = mat(k, 325) + lmat(k, 325)
2878 315224452 : mat(k, 326) = mat(k, 326) + lmat(k, 326)
2879 315224452 : mat(k, 329) = lmat(k, 329)
2880 315224452 : mat(k, 330) = lmat(k, 330)
2881 315224452 : mat(k, 331) = lmat(k, 331)
2882 315224452 : mat(k, 332) = lmat(k, 332)
2883 315224452 : mat(k, 333) = lmat(k, 333)
2884 315224452 : mat(k, 334) = mat(k, 334) + lmat(k, 334)
2885 315224452 : mat(k, 337) = mat(k, 337) + lmat(k, 337)
2886 315224452 : mat(k, 338) = lmat(k, 338)
2887 315224452 : mat(k, 339) = mat(k, 339) + lmat(k, 339)
2888 315224452 : mat(k, 341) = lmat(k, 341)
2889 315224452 : mat(k, 342) = mat(k, 342) + lmat(k, 342)
2890 315224452 : mat(k, 343) = lmat(k, 343)
2891 315224452 : mat(k, 344) = lmat(k, 344)
2892 315224452 : mat(k, 345) = mat(k, 345) + lmat(k, 345)
2893 315224452 : mat(k, 348) = mat(k, 348) + lmat(k, 348)
2894 315224452 : mat(k, 349) = lmat(k, 349)
2895 315224452 : mat(k, 350) = mat(k, 350) + lmat(k, 350)
2896 315224452 : mat(k, 352) = mat(k, 352) + lmat(k, 352)
2897 315224452 : mat(k, 353) = mat(k, 353) + lmat(k, 353)
2898 315224452 : mat(k, 354) = lmat(k, 354)
2899 315224452 : mat(k, 355) = mat(k, 355) + lmat(k, 355)
2900 315224452 : mat(k, 363) = mat(k, 363) + lmat(k, 363)
2901 315224452 : mat(k, 364) = lmat(k, 364)
2902 315224452 : mat(k, 366) = mat(k, 366) + lmat(k, 366)
2903 315224452 : mat(k, 371) = mat(k, 371) + lmat(k, 371)
2904 315224452 : mat(k, 375) = mat(k, 375) + lmat(k, 375)
2905 315224452 : mat(k, 377) = lmat(k, 377)
2906 315224452 : mat(k, 379) = lmat(k, 379)
2907 315224452 : mat(k, 380) = lmat(k, 380)
2908 315224452 : mat(k, 381) = lmat(k, 381)
2909 315224452 : mat(k, 382) = lmat(k, 382)
2910 315224452 : mat(k, 383) = lmat(k, 383)
2911 315224452 : mat(k, 384) = lmat(k, 384)
2912 315224452 : mat(k, 385) = mat(k, 385) + lmat(k, 385)
2913 315224452 : mat(k, 387) = mat(k, 387) + lmat(k, 387)
2914 315224452 : mat(k, 391) = mat(k, 391) + lmat(k, 391)
2915 315224452 : mat(k, 392) = lmat(k, 392)
2916 315224452 : mat(k, 394) = mat(k, 394) + lmat(k, 394)
2917 315224452 : mat(k, 395) = lmat(k, 395)
2918 315224452 : mat(k, 396) = lmat(k, 396)
2919 315224452 : mat(k, 397) = mat(k, 397) + lmat(k, 397)
2920 315224452 : mat(k, 399) = lmat(k, 399)
2921 315224452 : mat(k, 400) = mat(k, 400) + lmat(k, 400)
2922 315224452 : mat(k, 401) = lmat(k, 401)
2923 315224452 : mat(k, 403) = mat(k, 403) + lmat(k, 403)
2924 315224452 : mat(k, 404) = lmat(k, 404)
2925 315224452 : mat(k, 407) = lmat(k, 407)
2926 315224452 : mat(k, 408) = mat(k, 408) + lmat(k, 408)
2927 315224452 : mat(k, 409) = mat(k, 409) + lmat(k, 409)
2928 315224452 : mat(k, 411) = lmat(k, 411)
2929 315224452 : mat(k, 412) = mat(k, 412) + lmat(k, 412)
2930 315224452 : mat(k, 413) = lmat(k, 413)
2931 315224452 : mat(k, 415) = mat(k, 415) + lmat(k, 415)
2932 315224452 : mat(k, 416) = lmat(k, 416)
2933 315224452 : mat(k, 418) = lmat(k, 418)
2934 315224452 : mat(k, 419) = mat(k, 419) + lmat(k, 419)
2935 315224452 : mat(k, 420) = lmat(k, 420)
2936 315224452 : mat(k, 421) = mat(k, 421) + lmat(k, 421)
2937 315224452 : mat(k, 423) = lmat(k, 423)
2938 315224452 : mat(k, 424) = lmat(k, 424)
2939 315224452 : mat(k, 425) = mat(k, 425) + lmat(k, 425)
2940 315224452 : mat(k, 426) = lmat(k, 426)
2941 315224452 : mat(k, 427) = mat(k, 427) + lmat(k, 427)
2942 315224452 : mat(k, 431) = lmat(k, 431)
2943 315224452 : mat(k, 435) = mat(k, 435) + lmat(k, 435)
2944 315224452 : mat(k, 441) = mat(k, 441) + lmat(k, 441)
2945 315224452 : mat(k, 445) = lmat(k, 445)
2946 315224452 : mat(k, 446) = mat(k, 446) + lmat(k, 446)
2947 315224452 : mat(k, 448) = mat(k, 448) + lmat(k, 448)
2948 315224452 : mat(k, 454) = mat(k, 454) + lmat(k, 454)
2949 315224452 : mat(k, 455) = mat(k, 455) + lmat(k, 455)
2950 315224452 : mat(k, 456) = mat(k, 456) + lmat(k, 456)
2951 315224452 : mat(k, 457) = lmat(k, 457)
2952 315224452 : mat(k, 460) = mat(k, 460) + lmat(k, 460)
2953 315224452 : mat(k, 463) = lmat(k, 463)
2954 315224452 : mat(k, 464) = mat(k, 464) + lmat(k, 464)
2955 315224452 : mat(k, 465) = lmat(k, 465)
2956 315224452 : mat(k, 466) = lmat(k, 466)
2957 315224452 : mat(k, 467) = lmat(k, 467)
2958 315224452 : mat(k, 468) = mat(k, 468) + lmat(k, 468)
2959 315224452 : mat(k, 472) = mat(k, 472) + lmat(k, 472)
2960 315224452 : mat(k, 474) = lmat(k, 474)
2961 315224452 : mat(k, 475) = mat(k, 475) + lmat(k, 475)
2962 315224452 : mat(k, 476) = mat(k, 476) + lmat(k, 476)
2963 315224452 : mat(k, 477) = lmat(k, 477)
2964 315224452 : mat(k, 479) = mat(k, 479) + lmat(k, 479)
2965 315224452 : mat(k, 481) = mat(k, 481) + lmat(k, 481)
2966 315224452 : mat(k, 486) = mat(k, 486) + lmat(k, 486)
2967 315224452 : mat(k, 488) = lmat(k, 488)
2968 315224452 : mat(k, 489) = lmat(k, 489)
2969 315224452 : mat(k, 490) = mat(k, 490) + lmat(k, 490)
2970 315224452 : mat(k, 491) = lmat(k, 491)
2971 315224452 : mat(k, 492) = lmat(k, 492)
2972 315224452 : mat(k, 495) = mat(k, 495) + lmat(k, 495)
2973 315224452 : mat(k, 502) = mat(k, 502) + lmat(k, 502)
2974 315224452 : mat(k, 510) = mat(k, 510) + lmat(k, 510)
2975 315224452 : mat(k, 517) = mat(k, 517) + lmat(k, 517)
2976 315224452 : mat(k, 519) = lmat(k, 519)
2977 315224452 : mat(k, 520) = lmat(k, 520)
2978 315224452 : mat(k, 523) = mat(k, 523) + lmat(k, 523)
2979 315224452 : mat(k, 529) = mat(k, 529) + lmat(k, 529)
2980 315224452 : mat(k, 534) = mat(k, 534) + lmat(k, 534)
2981 315224452 : mat(k, 535) = lmat(k, 535)
2982 315224452 : mat(k, 536) = lmat(k, 536)
2983 315224452 : mat(k, 537) = mat(k, 537) + lmat(k, 537)
2984 315224452 : mat(k, 539) = lmat(k, 539)
2985 315224452 : mat(k, 541) = lmat(k, 541)
2986 315224452 : mat(k, 542) = mat(k, 542) + lmat(k, 542)
2987 315224452 : mat(k, 544) = lmat(k, 544)
2988 315224452 : mat(k, 546) = mat(k, 546) + lmat(k, 546)
2989 315224452 : mat(k, 547) = lmat(k, 547)
2990 315224452 : mat(k, 548) = lmat(k, 548)
2991 315224452 : mat(k, 550) = mat(k, 550) + lmat(k, 550)
2992 315224452 : mat(k, 558) = mat(k, 558) + lmat(k, 558)
2993 315224452 : mat(k, 564) = lmat(k, 564)
2994 315224452 : mat(k, 566) = mat(k, 566) + lmat(k, 566)
2995 315224452 : mat(k, 567) = lmat(k, 567)
2996 315224452 : mat(k, 568) = lmat(k, 568)
2997 315224452 : mat(k, 569) = mat(k, 569) + lmat(k, 569)
2998 315224452 : mat(k, 570) = mat(k, 570) + lmat(k, 570)
2999 315224452 : mat(k, 571) = lmat(k, 571)
3000 315224452 : mat(k, 572) = lmat(k, 572)
3001 315224452 : mat(k, 574) = mat(k, 574) + lmat(k, 574)
3002 315224452 : mat(k, 582) = mat(k, 582) + lmat(k, 582)
3003 315224452 : mat(k, 584) = mat(k, 584) + lmat(k, 584)
3004 315224452 : mat(k, 589) = mat(k, 589) + lmat(k, 589)
3005 315224452 : mat(k, 596) = lmat(k, 596)
3006 315224452 : mat(k, 598) = lmat(k, 598)
3007 315224452 : mat(k, 599) = lmat(k, 599)
3008 315224452 : mat(k, 600) = lmat(k, 600)
3009 315224452 : mat(k, 601) = lmat(k, 601)
3010 315224452 : mat(k, 602) = mat(k, 602) + lmat(k, 602)
3011 315224452 : mat(k, 604) = mat(k, 604) + lmat(k, 604)
3012 315224452 : mat(k, 609) = lmat(k, 609)
3013 315224452 : mat(k, 611) = mat(k, 611) + lmat(k, 611)
3014 315224452 : mat(k, 613) = lmat(k, 613)
3015 315224452 : mat(k, 617) = lmat(k, 617)
3016 315224452 : mat(k, 620) = mat(k, 620) + lmat(k, 620)
3017 315224452 : mat(k, 622) = mat(k, 622) + lmat(k, 622)
3018 315224452 : mat(k, 623) = mat(k, 623) + lmat(k, 623)
3019 315224452 : mat(k, 625) = lmat(k, 625)
3020 315224452 : mat(k, 627) = mat(k, 627) + lmat(k, 627)
3021 315224452 : mat(k, 628) = mat(k, 628) + lmat(k, 628)
3022 315224452 : mat(k, 630) = mat(k, 630) + lmat(k, 630)
3023 315224452 : mat(k, 631) = lmat(k, 631)
3024 315224452 : mat(k, 632) = lmat(k, 632)
3025 315224452 : mat(k, 635) = mat(k, 635) + lmat(k, 635)
3026 315224452 : mat(k, 641) = lmat(k, 641)
3027 315224452 : mat(k, 642) = mat(k, 642) + lmat(k, 642)
3028 315224452 : mat(k, 645) = mat(k, 645) + lmat(k, 645)
3029 315224452 : mat(k, 646) = mat(k, 646) + lmat(k, 646)
3030 315224452 : mat(k, 649) = mat(k, 649) + lmat(k, 649)
3031 315224452 : mat(k, 650) = mat(k, 650) + lmat(k, 650)
3032 315224452 : mat(k, 651) = lmat(k, 651)
3033 315224452 : mat(k, 652) = mat(k, 652) + lmat(k, 652)
3034 315224452 : mat(k, 653) = lmat(k, 653)
3035 315224452 : mat(k, 654) = lmat(k, 654)
3036 315224452 : mat(k, 655) = lmat(k, 655)
3037 315224452 : mat(k, 656) = lmat(k, 656)
3038 315224452 : mat(k, 658) = lmat(k, 658)
3039 315224452 : mat(k, 659) = mat(k, 659) + lmat(k, 659)
3040 315224452 : mat(k, 660) = lmat(k, 660)
3041 315224452 : mat(k, 661) = lmat(k, 661)
3042 315224452 : mat(k, 662) = lmat(k, 662)
3043 315224452 : mat(k, 663) = lmat(k, 663)
3044 315224452 : mat(k, 664) = lmat(k, 664)
3045 315224452 : mat(k, 665) = mat(k, 665) + lmat(k, 665)
3046 315224452 : mat(k, 670) = lmat(k, 670)
3047 315224452 : mat(k, 672) = lmat(k, 672)
3048 315224452 : mat(k, 673) = mat(k, 673) + lmat(k, 673)
3049 315224452 : mat(k, 674) = lmat(k, 674)
3050 315224452 : mat(k, 676) = mat(k, 676) + lmat(k, 676)
3051 315224452 : mat(k, 686) = lmat(k, 686)
3052 315224452 : mat(k, 687) = mat(k, 687) + lmat(k, 687)
3053 315224452 : mat(k, 691) = lmat(k, 691)
3054 315224452 : mat(k, 692) = lmat(k, 692)
3055 315224452 : mat(k, 694) = mat(k, 694) + lmat(k, 694)
3056 315224452 : mat(k, 695) = lmat(k, 695)
3057 315224452 : mat(k, 696) = lmat(k, 696)
3058 315224452 : mat(k, 698) = mat(k, 698) + lmat(k, 698)
3059 315224452 : mat(k, 705) = mat(k, 705) + lmat(k, 705)
3060 315224452 : mat(k, 711) = mat(k, 711) + lmat(k, 711)
3061 315224452 : mat(k, 713) = lmat(k, 713)
3062 315224452 : mat(k, 714) = lmat(k, 714)
3063 315224452 : mat(k, 715) = mat(k, 715) + lmat(k, 715)
3064 315224452 : mat(k, 716) = lmat(k, 716)
3065 315224452 : mat(k, 717) = lmat(k, 717)
3066 315224452 : mat(k, 718) = mat(k, 718) + lmat(k, 718)
3067 315224452 : mat(k, 725) = lmat(k, 725)
3068 315224452 : mat(k, 726) = lmat(k, 726)
3069 315224452 : mat(k, 727) = lmat(k, 727)
3070 315224452 : mat(k, 728) = lmat(k, 728)
3071 315224452 : mat(k, 729) = mat(k, 729) + lmat(k, 729)
3072 315224452 : mat(k, 734) = lmat(k, 734)
3073 315224452 : mat(k, 736) = lmat(k, 736)
3074 315224452 : mat(k, 738) = mat(k, 738) + lmat(k, 738)
3075 315224452 : mat(k, 739) = lmat(k, 739)
3076 315224452 : mat(k, 740) = mat(k, 740) + lmat(k, 740)
3077 315224452 : mat(k, 751) = mat(k, 751) + lmat(k, 751)
3078 315224452 : mat(k, 767) = mat(k, 767) + lmat(k, 767)
3079 315224452 : mat(k, 778) = mat(k, 778) + lmat(k, 778)
3080 315224452 : mat(k, 787) = mat(k, 787) + lmat(k, 787)
3081 315224452 : mat(k, 789) = lmat(k, 789)
3082 315224452 : mat(k, 791) = mat(k, 791) + lmat(k, 791)
3083 315224452 : mat(k, 797) = mat(k, 797) + lmat(k, 797)
3084 315224452 : mat(k, 805) = mat(k, 805) + lmat(k, 805)
3085 315224452 : mat(k, 806) = lmat(k, 806)
3086 315224452 : mat(k, 808) = lmat(k, 808)
3087 315224452 : mat(k, 814) = mat(k, 814) + lmat(k, 814)
3088 315224452 : mat(k, 824) = mat(k, 824) + lmat(k, 824)
3089 315224452 : mat(k, 828) = mat(k, 828) + lmat(k, 828)
3090 315224452 : mat(k, 829) = mat(k, 829) + lmat(k, 829)
3091 315224452 : mat(k, 834) = mat(k, 834) + lmat(k, 834)
3092 315224452 : mat(k, 837) = mat(k, 837) + lmat(k, 837)
3093 315224452 : mat(k, 840) = mat(k, 840) + lmat(k, 840)
3094 315224452 : mat(k, 842) = mat(k, 842) + lmat(k, 842)
3095 315224452 : mat(k, 845) = mat(k, 845) + lmat(k, 845)
3096 315224452 : mat(k, 852) = mat(k, 852) + lmat(k, 852)
3097 315224452 : mat(k, 853) = mat(k, 853) + lmat(k, 853)
3098 315224452 : mat(k, 857) = mat(k, 857) + lmat(k, 857)
3099 315224452 : mat(k, 865) = mat(k, 865) + lmat(k, 865)
3100 315224452 : mat(k, 876) = mat(k, 876) + lmat(k, 876)
3101 315224452 : mat(k, 892) = mat(k, 892) + lmat(k, 892)
3102 315224452 : mat(k, 894) = lmat(k, 894)
3103 315224452 : mat(k, 896) = mat(k, 896) + lmat(k, 896)
3104 315224452 : mat(k, 897) = lmat(k, 897)
3105 315224452 : mat(k, 901) = mat(k, 901) + lmat(k, 901)
3106 315224452 : mat(k, 910) = mat(k, 910) + lmat(k, 910)
3107 315224452 : mat(k, 919) = mat(k, 919) + lmat(k, 919)
3108 315224452 : mat(k, 925) = mat(k, 925) + lmat(k, 925)
3109 315224452 : mat(k, 935) = mat(k, 935) + lmat(k, 935)
3110 315224452 : mat(k, 947) = mat(k, 947) + lmat(k, 947)
3111 315224452 : mat(k, 948) = lmat(k, 948)
3112 315224452 : mat(k, 950) = lmat(k, 950)
3113 315224452 : mat(k, 954) = mat(k, 954) + lmat(k, 954)
3114 315224452 : mat(k, 955) = mat(k, 955) + lmat(k, 955)
3115 315224452 : mat(k, 957) = mat(k, 957) + lmat(k, 957)
3116 315224452 : mat(k, 958) = mat(k, 958) + lmat(k, 958)
3117 315224452 : mat(k, 960) = lmat(k, 960)
3118 315224452 : mat(k, 961) = mat(k, 961) + lmat(k, 961)
3119 315224452 : mat(k, 963) = mat(k, 963) + lmat(k, 963)
3120 315224452 : mat(k, 974) = mat(k, 974) + lmat(k, 974)
3121 315224452 : mat(k, 994) = lmat(k, 994)
3122 315224452 : mat(k, 998) = lmat(k, 998)
3123 315224452 : mat(k, 999) = mat(k, 999) + lmat(k, 999)
3124 315224452 : mat(k,1018) = mat(k,1018) + lmat(k,1018)
3125 315224452 : mat(k,1042) = mat(k,1042) + lmat(k,1042)
3126 315224452 : mat(k,1053) = lmat(k,1053)
3127 315224452 : mat(k,1054) = mat(k,1054) + lmat(k,1054)
3128 315224452 : mat(k,1055) = mat(k,1055) + lmat(k,1055)
3129 315224452 : mat(k,1058) = mat(k,1058) + lmat(k,1058)
3130 315224452 : mat(k,1062) = mat(k,1062) + lmat(k,1062)
3131 315224452 : mat(k,1072) = mat(k,1072) + lmat(k,1072)
3132 315224452 : mat(k,1074) = lmat(k,1074)
3133 315224452 : mat(k,1075) = lmat(k,1075)
3134 315224452 : mat(k,1079) = lmat(k,1079)
3135 315224452 : mat(k,1080) = mat(k,1080) + lmat(k,1080)
3136 315224452 : mat(k,1082) = lmat(k,1082)
3137 315224452 : mat(k,1084) = lmat(k,1084)
3138 315224452 : mat(k,1086) = lmat(k,1086)
3139 315224452 : mat(k,1090) = mat(k,1090) + lmat(k,1090)
3140 315224452 : mat(k,1097) = lmat(k,1097)
3141 315224452 : mat(k,1099) = lmat(k,1099)
3142 315224452 : mat(k,1100) = mat(k,1100) + lmat(k,1100)
3143 315224452 : mat(k,1106) = mat(k,1106) + lmat(k,1106)
3144 315224452 : mat(k,1118) = mat(k,1118) + lmat(k,1118)
3145 315224452 : mat(k,1119) = mat(k,1119) + lmat(k,1119)
3146 315224452 : mat(k,1120) = mat(k,1120) + lmat(k,1120)
3147 315224452 : mat(k,1121) = mat(k,1121) + lmat(k,1121)
3148 315224452 : mat(k,1122) = mat(k,1122) + lmat(k,1122)
3149 315224452 : mat(k,1123) = mat(k,1123) + lmat(k,1123)
3150 315224452 : mat(k,1125) = mat(k,1125) + lmat(k,1125)
3151 315224452 : mat(k,1126) = mat(k,1126) + lmat(k,1126)
3152 315224452 : mat(k,1133) = mat(k,1133) + lmat(k,1133)
3153 315224452 : mat(k,1151) = mat(k,1151) + lmat(k,1151)
3154 315224452 : mat(k,1152) = lmat(k,1152)
3155 315224452 : mat(k,1157) = lmat(k,1157)
3156 315224452 : mat(k,1158) = lmat(k,1158)
3157 315224452 : mat(k,1160) = mat(k,1160) + lmat(k,1160)
3158 315224452 : mat(k,1165) = lmat(k,1165)
3159 315224452 : mat(k,1166) = mat(k,1166) + lmat(k,1166)
3160 315224452 : mat(k,1169) = mat(k,1169) + lmat(k,1169)
3161 315224452 : mat(k,1170) = mat(k,1170) + lmat(k,1170)
3162 315224452 : mat(k,1178) = mat(k,1178) + lmat(k,1178)
3163 315224452 : mat(k,1191) = lmat(k,1191)
3164 315224452 : mat(k,1192) = lmat(k,1192)
3165 315224452 : mat(k,1193) = lmat(k,1193)
3166 315224452 : mat(k,1194) = lmat(k,1194)
3167 315224452 : mat(k,1195) = mat(k,1195) + lmat(k,1195)
3168 315224452 : mat(k,1196) = lmat(k,1196)
3169 315224452 : mat(k,1198) = lmat(k,1198)
3170 315224452 : mat(k,1202) = lmat(k,1202)
3171 315224452 : mat(k,1203) = lmat(k,1203)
3172 315224452 : mat(k,1204) = lmat(k,1204)
3173 315224452 : mat(k,1205) = mat(k,1205) + lmat(k,1205)
3174 315224452 : mat(k,1208) = mat(k,1208) + lmat(k,1208)
3175 315224452 : mat(k,1210) = lmat(k,1210)
3176 315224452 : mat(k,1212) = lmat(k,1212)
3177 315224452 : mat(k,1213) = mat(k,1213) + lmat(k,1213)
3178 315224452 : mat(k,1217) = mat(k,1217) + lmat(k,1217)
3179 315224452 : mat(k,1233) = mat(k,1233) + lmat(k,1233)
3180 315224452 : mat(k,1253) = mat(k,1253) + lmat(k,1253)
3181 315224452 : mat(k,1268) = mat(k,1268) + lmat(k,1268)
3182 315224452 : mat(k,1269) = mat(k,1269) + lmat(k,1269)
3183 315224452 : mat(k,1272) = mat(k,1272) + lmat(k,1272)
3184 315224452 : mat(k,1273) = mat(k,1273) + lmat(k,1273)
3185 315224452 : mat(k,1276) = mat(k,1276) + lmat(k,1276)
3186 315224452 : mat(k,1278) = mat(k,1278) + lmat(k,1278)
3187 315224452 : mat(k,1280) = mat(k,1280) + lmat(k,1280)
3188 315224452 : mat(k,1281) = mat(k,1281) + lmat(k,1281)
3189 315224452 : mat(k,1282) = mat(k,1282) + lmat(k,1282)
3190 315224452 : mat(k,1287) = lmat(k,1287)
3191 315224452 : mat(k,1299) = mat(k,1299) + lmat(k,1299)
3192 315224452 : mat(k,1315) = lmat(k,1315)
3193 315224452 : mat(k,1332) = mat(k,1332) + lmat(k,1332)
3194 315224452 : mat(k,1345) = mat(k,1345) + lmat(k,1345)
3195 315224452 : mat(k,1356) = mat(k,1356) + lmat(k,1356)
3196 315224452 : mat(k,1370) = lmat(k,1370)
3197 315224452 : mat(k,1372) = mat(k,1372) + lmat(k,1372)
3198 315224452 : mat(k,1376) = mat(k,1376) + lmat(k,1376)
3199 315224452 : mat(k,1378) = mat(k,1378) + lmat(k,1378)
3200 315224452 : mat(k,1390) = lmat(k,1390)
3201 315224452 : mat(k,1397) = mat(k,1397) + lmat(k,1397)
3202 315224452 : mat(k,1428) = mat(k,1428) + lmat(k,1428)
3203 315224452 : mat(k,1449) = mat(k,1449) + lmat(k,1449)
3204 315224452 : mat(k,1450) = mat(k,1450) + lmat(k,1450)
3205 315224452 : mat(k,1456) = lmat(k,1456)
3206 315224452 : mat(k,1461) = mat(k,1461) + lmat(k,1461)
3207 315224452 : mat(k,1474) = lmat(k,1474)
3208 315224452 : mat(k,1476) = mat(k,1476) + lmat(k,1476)
3209 315224452 : mat(k,1484) = mat(k,1484) + lmat(k,1484)
3210 315224452 : mat(k,1495) = mat(k,1495) + lmat(k,1495)
3211 315224452 : mat(k,1505) = mat(k,1505) + lmat(k,1505)
3212 315224452 : mat(k,1506) = mat(k,1506) + lmat(k,1506)
3213 315224452 : mat(k,1511) = mat(k,1511) + lmat(k,1511)
3214 315224452 : mat(k,1531) = mat(k,1531) + lmat(k,1531)
3215 315224452 : mat(k,1533) = mat(k,1533) + lmat(k,1533)
3216 315224452 : mat(k,1534) = lmat(k,1534)
3217 315224452 : mat(k,1542) = mat(k,1542) + lmat(k,1542)
3218 315224452 : mat(k,1549) = mat(k,1549) + lmat(k,1549)
3219 315224452 : mat(k,1550) = mat(k,1550) + lmat(k,1550)
3220 315224452 : mat(k,1563) = mat(k,1563) + lmat(k,1563)
3221 315224452 : mat(k,1565) = mat(k,1565) + lmat(k,1565)
3222 315224452 : mat(k,1574) = mat(k,1574) + lmat(k,1574)
3223 315224452 : mat(k,1592) = mat(k,1592) + lmat(k,1592)
3224 315224452 : mat(k,1600) = mat(k,1600) + lmat(k,1600)
3225 315224452 : mat(k,1602) = mat(k,1602) + lmat(k,1602)
3226 315224452 : mat(k,1649) = mat(k,1649) + lmat(k,1649)
3227 315224452 : mat(k,1652) = mat(k,1652) + lmat(k,1652)
3228 315224452 : mat(k,1654) = mat(k,1654) + lmat(k,1654)
3229 315224452 : mat(k,1655) = mat(k,1655) + lmat(k,1655)
3230 315224452 : mat(k,1658) = mat(k,1658) + lmat(k,1658)
3231 315224452 : mat(k,1659) = mat(k,1659) + lmat(k,1659)
3232 315224452 : mat(k,1818) = mat(k,1818) + lmat(k,1818)
3233 315224452 : mat(k,1873) = mat(k,1873) + lmat(k,1873)
3234 315224452 : mat(k,1875) = lmat(k,1875)
3235 315224452 : mat(k,1881) = mat(k,1881) + lmat(k,1881)
3236 315224452 : mat(k,1914) = mat(k,1914) + lmat(k,1914)
3237 315224452 : mat(k,1919) = mat(k,1919) + lmat(k,1919)
3238 315224452 : mat(k,1958) = mat(k,1958) + lmat(k,1958)
3239 315224452 : mat(k,1959) = mat(k,1959) + lmat(k,1959)
3240 315224452 : mat(k,1960) = mat(k,1960) + lmat(k,1960)
3241 315224452 : mat(k,1963) = mat(k,1963) + lmat(k,1963)
3242 315224452 : mat(k,1964) = mat(k,1964) + lmat(k,1964)
3243 315224452 : mat(k,1975) = mat(k,1975) + lmat(k,1975)
3244 315224452 : mat(k,1977) = lmat(k,1977)
3245 315224452 : mat(k,1987) = mat(k,1987) + lmat(k,1987)
3246 315224452 : mat(k,1991) = mat(k,1991) + lmat(k,1991)
3247 315224452 : mat(k,2031) = mat(k,2031) + lmat(k,2031)
3248 315224452 : mat(k,2033) = mat(k,2033) + lmat(k,2033)
3249 315224452 : mat(k,2050) = mat(k,2050) + lmat(k,2050)
3250 315224452 : mat(k,2052) = lmat(k,2052)
3251 315224452 : mat(k,2055) = mat(k,2055) + lmat(k,2055)
3252 315224452 : mat(k,2074) = mat(k,2074) + lmat(k,2074)
3253 315224452 : mat(k,2079) = lmat(k,2079)
3254 315224452 : mat(k,2099) = mat(k,2099) + lmat(k,2099)
3255 315224452 : mat(k,2121) = mat(k,2121) + lmat(k,2121)
3256 315224452 : mat(k,2168) = mat(k,2168) + lmat(k,2168)
3257 315224452 : mat(k,2179) = mat(k,2179) + lmat(k,2179)
3258 315224452 : mat(k,2220) = mat(k,2220) + lmat(k,2220)
3259 315224452 : mat(k,2228) = mat(k,2228) + lmat(k,2228)
3260 315224452 : mat(k,2230) = mat(k,2230) + lmat(k,2230)
3261 315224452 : mat(k,2233) = mat(k,2233) + lmat(k,2233)
3262 315224452 : mat(k,2240) = lmat(k,2240)
3263 315224452 : mat(k,2241) = lmat(k,2241)
3264 315224452 : mat(k,2242) = mat(k,2242) + lmat(k,2242)
3265 315224452 : mat(k,2249) = mat(k,2249) + lmat(k,2249)
3266 315224452 : mat(k,2252) = mat(k,2252) + lmat(k,2252)
3267 315224452 : mat(k,2255) = lmat(k,2255)
3268 315224452 : mat(k,2256) = mat(k,2256) + lmat(k,2256)
3269 315224452 : mat(k,2259) = mat(k,2259) + lmat(k,2259)
3270 315224452 : mat(k,2261) = mat(k,2261) + lmat(k,2261)
3271 315224452 : mat(k,2262) = mat(k,2262) + lmat(k,2262)
3272 315224452 : mat(k,2368) = mat(k,2368) + lmat(k,2368)
3273 315224452 : mat(k,2370) = mat(k,2370) + lmat(k,2370)
3274 315224452 : mat(k,2421) = mat(k,2421) + lmat(k,2421)
3275 315224452 : mat(k,2428) = lmat(k,2428)
3276 315224452 : mat(k,2436) = mat(k,2436) + lmat(k,2436)
3277 315224452 : mat(k,2440) = mat(k,2440) + lmat(k,2440)
3278 315224452 : mat(k,2442) = lmat(k,2442)
3279 315224452 : mat(k,2443) = lmat(k,2443)
3280 315224452 : mat(k,2449) = mat(k,2449) + lmat(k,2449)
3281 315224452 : mat(k, 212) = 0._r8
3282 315224452 : mat(k, 213) = 0._r8
3283 315224452 : mat(k, 252) = 0._r8
3284 315224452 : mat(k, 293) = 0._r8
3285 315224452 : mat(k, 347) = 0._r8
3286 315224452 : mat(k, 436) = 0._r8
3287 315224452 : mat(k, 437) = 0._r8
3288 315224452 : mat(k, 450) = 0._r8
3289 315224452 : mat(k, 496) = 0._r8
3290 315224452 : mat(k, 498) = 0._r8
3291 315224452 : mat(k, 513) = 0._r8
3292 315224452 : mat(k, 636) = 0._r8
3293 315224452 : mat(k, 639) = 0._r8
3294 315224452 : mat(k, 643) = 0._r8
3295 315224452 : mat(k, 644) = 0._r8
3296 315224452 : mat(k, 647) = 0._r8
3297 315224452 : mat(k, 666) = 0._r8
3298 315224452 : mat(k, 668) = 0._r8
3299 315224452 : mat(k, 669) = 0._r8
3300 315224452 : mat(k, 671) = 0._r8
3301 315224452 : mat(k, 683) = 0._r8
3302 315224452 : mat(k, 684) = 0._r8
3303 315224452 : mat(k, 688) = 0._r8
3304 315224452 : mat(k, 689) = 0._r8
3305 315224452 : mat(k, 693) = 0._r8
3306 315224452 : mat(k, 730) = 0._r8
3307 315224452 : mat(k, 732) = 0._r8
3308 315224452 : mat(k, 733) = 0._r8
3309 315224452 : mat(k, 735) = 0._r8
3310 315224452 : mat(k, 737) = 0._r8
3311 315224452 : mat(k, 750) = 0._r8
3312 315224452 : mat(k, 752) = 0._r8
3313 315224452 : mat(k, 753) = 0._r8
3314 315224452 : mat(k, 755) = 0._r8
3315 315224452 : mat(k, 757) = 0._r8
3316 315224452 : mat(k, 766) = 0._r8
3317 315224452 : mat(k, 768) = 0._r8
3318 315224452 : mat(k, 769) = 0._r8
3319 315224452 : mat(k, 771) = 0._r8
3320 315224452 : mat(k, 773) = 0._r8
3321 315224452 : mat(k, 774) = 0._r8
3322 315224452 : mat(k, 793) = 0._r8
3323 315224452 : mat(k, 798) = 0._r8
3324 315224452 : mat(k, 799) = 0._r8
3325 315224452 : mat(k, 800) = 0._r8
3326 315224452 : mat(k, 816) = 0._r8
3327 315224452 : mat(k, 818) = 0._r8
3328 315224452 : mat(k, 823) = 0._r8
3329 315224452 : mat(k, 848) = 0._r8
3330 315224452 : mat(k, 849) = 0._r8
3331 315224452 : mat(k, 850) = 0._r8
3332 315224452 : mat(k, 862) = 0._r8
3333 315224452 : mat(k, 867) = 0._r8
3334 315224452 : mat(k, 868) = 0._r8
3335 315224452 : mat(k, 869) = 0._r8
3336 315224452 : mat(k, 870) = 0._r8
3337 315224452 : mat(k, 904) = 0._r8
3338 315224452 : mat(k, 939) = 0._r8
3339 315224452 : mat(k, 945) = 0._r8
3340 315224452 : mat(k, 952) = 0._r8
3341 315224452 : mat(k, 964) = 0._r8
3342 315224452 : mat(k, 975) = 0._r8
3343 315224452 : mat(k, 976) = 0._r8
3344 315224452 : mat(k, 984) = 0._r8
3345 315224452 : mat(k, 992) = 0._r8
3346 315224452 : mat(k, 995) = 0._r8
3347 315224452 : mat(k,1000) = 0._r8
3348 315224452 : mat(k,1001) = 0._r8
3349 315224452 : mat(k,1006) = 0._r8
3350 315224452 : mat(k,1019) = 0._r8
3351 315224452 : mat(k,1020) = 0._r8
3352 315224452 : mat(k,1028) = 0._r8
3353 315224452 : mat(k,1036) = 0._r8
3354 315224452 : mat(k,1040) = 0._r8
3355 315224452 : mat(k,1041) = 0._r8
3356 315224452 : mat(k,1045) = 0._r8
3357 315224452 : mat(k,1046) = 0._r8
3358 315224452 : mat(k,1047) = 0._r8
3359 315224452 : mat(k,1052) = 0._r8
3360 315224452 : mat(k,1065) = 0._r8
3361 315224452 : mat(k,1069) = 0._r8
3362 315224452 : mat(k,1088) = 0._r8
3363 315224452 : mat(k,1091) = 0._r8
3364 315224452 : mat(k,1092) = 0._r8
3365 315224452 : mat(k,1093) = 0._r8
3366 315224452 : mat(k,1094) = 0._r8
3367 315224452 : mat(k,1096) = 0._r8
3368 315224452 : mat(k,1098) = 0._r8
3369 315224452 : mat(k,1101) = 0._r8
3370 315224452 : mat(k,1107) = 0._r8
3371 315224452 : mat(k,1108) = 0._r8
3372 315224452 : mat(k,1109) = 0._r8
3373 315224452 : mat(k,1111) = 0._r8
3374 315224452 : mat(k,1115) = 0._r8
3375 315224452 : mat(k,1127) = 0._r8
3376 315224452 : mat(k,1128) = 0._r8
3377 315224452 : mat(k,1136) = 0._r8
3378 315224452 : mat(k,1137) = 0._r8
3379 315224452 : mat(k,1138) = 0._r8
3380 315224452 : mat(k,1140) = 0._r8
3381 315224452 : mat(k,1143) = 0._r8
3382 315224452 : mat(k,1144) = 0._r8
3383 315224452 : mat(k,1150) = 0._r8
3384 315224452 : mat(k,1179) = 0._r8
3385 315224452 : mat(k,1180) = 0._r8
3386 315224452 : mat(k,1182) = 0._r8
3387 315224452 : mat(k,1186) = 0._r8
3388 315224452 : mat(k,1189) = 0._r8
3389 315224452 : mat(k,1197) = 0._r8
3390 315224452 : mat(k,1199) = 0._r8
3391 315224452 : mat(k,1200) = 0._r8
3392 315224452 : mat(k,1206) = 0._r8
3393 315224452 : mat(k,1207) = 0._r8
3394 315224452 : mat(k,1226) = 0._r8
3395 315224452 : mat(k,1238) = 0._r8
3396 315224452 : mat(k,1246) = 0._r8
3397 315224452 : mat(k,1248) = 0._r8
3398 315224452 : mat(k,1250) = 0._r8
3399 315224452 : mat(k,1251) = 0._r8
3400 315224452 : mat(k,1252) = 0._r8
3401 315224452 : mat(k,1254) = 0._r8
3402 315224452 : mat(k,1255) = 0._r8
3403 315224452 : mat(k,1256) = 0._r8
3404 315224452 : mat(k,1258) = 0._r8
3405 315224452 : mat(k,1260) = 0._r8
3406 315224452 : mat(k,1264) = 0._r8
3407 315224452 : mat(k,1274) = 0._r8
3408 315224452 : mat(k,1283) = 0._r8
3409 315224452 : mat(k,1292) = 0._r8
3410 315224452 : mat(k,1293) = 0._r8
3411 315224452 : mat(k,1294) = 0._r8
3412 315224452 : mat(k,1295) = 0._r8
3413 315224452 : mat(k,1296) = 0._r8
3414 315224452 : mat(k,1298) = 0._r8
3415 315224452 : mat(k,1300) = 0._r8
3416 315224452 : mat(k,1302) = 0._r8
3417 315224452 : mat(k,1306) = 0._r8
3418 315224452 : mat(k,1310) = 0._r8
3419 315224452 : mat(k,1311) = 0._r8
3420 315224452 : mat(k,1314) = 0._r8
3421 315224452 : mat(k,1318) = 0._r8
3422 315224452 : mat(k,1321) = 0._r8
3423 315224452 : mat(k,1322) = 0._r8
3424 315224452 : mat(k,1324) = 0._r8
3425 315224452 : mat(k,1326) = 0._r8
3426 315224452 : mat(k,1328) = 0._r8
3427 315224452 : mat(k,1329) = 0._r8
3428 315224452 : mat(k,1330) = 0._r8
3429 315224452 : mat(k,1333) = 0._r8
3430 315224452 : mat(k,1334) = 0._r8
3431 315224452 : mat(k,1335) = 0._r8
3432 315224452 : mat(k,1337) = 0._r8
3433 315224452 : mat(k,1339) = 0._r8
3434 315224452 : mat(k,1343) = 0._r8
3435 315224452 : mat(k,1344) = 0._r8
3436 315224452 : mat(k,1347) = 0._r8
3437 315224452 : mat(k,1354) = 0._r8
3438 315224452 : mat(k,1357) = 0._r8
3439 315224452 : mat(k,1359) = 0._r8
3440 315224452 : mat(k,1361) = 0._r8
3441 315224452 : mat(k,1365) = 0._r8
3442 315224452 : mat(k,1368) = 0._r8
3443 315224452 : mat(k,1373) = 0._r8
3444 315224452 : mat(k,1377) = 0._r8
3445 315224452 : mat(k,1380) = 0._r8
3446 315224452 : mat(k,1381) = 0._r8
3447 315224452 : mat(k,1383) = 0._r8
3448 315224452 : mat(k,1384) = 0._r8
3449 315224452 : mat(k,1386) = 0._r8
3450 315224452 : mat(k,1388) = 0._r8
3451 315224452 : mat(k,1391) = 0._r8
3452 315224452 : mat(k,1395) = 0._r8
3453 315224452 : mat(k,1396) = 0._r8
3454 315224452 : mat(k,1405) = 0._r8
3455 315224452 : mat(k,1409) = 0._r8
3456 315224452 : mat(k,1430) = 0._r8
3457 315224452 : mat(k,1431) = 0._r8
3458 315224452 : mat(k,1436) = 0._r8
3459 315224452 : mat(k,1438) = 0._r8
3460 315224452 : mat(k,1441) = 0._r8
3461 315224452 : mat(k,1445) = 0._r8
3462 315224452 : mat(k,1447) = 0._r8
3463 315224452 : mat(k,1448) = 0._r8
3464 315224452 : mat(k,1451) = 0._r8
3465 315224452 : mat(k,1452) = 0._r8
3466 315224452 : mat(k,1453) = 0._r8
3467 315224452 : mat(k,1454) = 0._r8
3468 315224452 : mat(k,1455) = 0._r8
3469 315224452 : mat(k,1457) = 0._r8
3470 315224452 : mat(k,1458) = 0._r8
3471 315224452 : mat(k,1463) = 0._r8
3472 315224452 : mat(k,1466) = 0._r8
3473 315224452 : mat(k,1470) = 0._r8
3474 315224452 : mat(k,1471) = 0._r8
3475 315224452 : mat(k,1488) = 0._r8
3476 315224452 : mat(k,1489) = 0._r8
3477 315224452 : mat(k,1496) = 0._r8
3478 315224452 : mat(k,1497) = 0._r8
3479 315224452 : mat(k,1499) = 0._r8
3480 315224452 : mat(k,1501) = 0._r8
3481 315224452 : mat(k,1510) = 0._r8
3482 315224452 : mat(k,1514) = 0._r8
3483 315224452 : mat(k,1515) = 0._r8
3484 315224452 : mat(k,1516) = 0._r8
3485 315224452 : mat(k,1518) = 0._r8
3486 315224452 : mat(k,1519) = 0._r8
3487 315224452 : mat(k,1520) = 0._r8
3488 315224452 : mat(k,1523) = 0._r8
3489 315224452 : mat(k,1537) = 0._r8
3490 315224452 : mat(k,1539) = 0._r8
3491 315224452 : mat(k,1541) = 0._r8
3492 315224452 : mat(k,1543) = 0._r8
3493 315224452 : mat(k,1544) = 0._r8
3494 315224452 : mat(k,1545) = 0._r8
3495 315224452 : mat(k,1547) = 0._r8
3496 315224452 : mat(k,1548) = 0._r8
3497 315224452 : mat(k,1552) = 0._r8
3498 315224452 : mat(k,1555) = 0._r8
3499 315224452 : mat(k,1562) = 0._r8
3500 315224452 : mat(k,1567) = 0._r8
3501 315224452 : mat(k,1571) = 0._r8
3502 315224452 : mat(k,1572) = 0._r8
3503 315224452 : mat(k,1573) = 0._r8
3504 315224452 : mat(k,1575) = 0._r8
3505 315224452 : mat(k,1577) = 0._r8
3506 315224452 : mat(k,1579) = 0._r8
3507 315224452 : mat(k,1593) = 0._r8
3508 315224452 : mat(k,1598) = 0._r8
3509 315224452 : mat(k,1599) = 0._r8
3510 315224452 : mat(k,1601) = 0._r8
3511 315224452 : mat(k,1603) = 0._r8
3512 315224452 : mat(k,1606) = 0._r8
3513 315224452 : mat(k,1613) = 0._r8
3514 315224452 : mat(k,1616) = 0._r8
3515 315224452 : mat(k,1620) = 0._r8
3516 315224452 : mat(k,1622) = 0._r8
3517 315224452 : mat(k,1627) = 0._r8
3518 315224452 : mat(k,1633) = 0._r8
3519 315224452 : mat(k,1635) = 0._r8
3520 315224452 : mat(k,1646) = 0._r8
3521 315224452 : mat(k,1647) = 0._r8
3522 315224452 : mat(k,1648) = 0._r8
3523 315224452 : mat(k,1650) = 0._r8
3524 315224452 : mat(k,1651) = 0._r8
3525 315224452 : mat(k,1657) = 0._r8
3526 315224452 : mat(k,1660) = 0._r8
3527 315224452 : mat(k,1661) = 0._r8
3528 315224452 : mat(k,1662) = 0._r8
3529 315224452 : mat(k,1663) = 0._r8
3530 315224452 : mat(k,1665) = 0._r8
3531 315224452 : mat(k,1666) = 0._r8
3532 315224452 : mat(k,1731) = 0._r8
3533 315224452 : mat(k,1747) = 0._r8
3534 315224452 : mat(k,1762) = 0._r8
3535 315224452 : mat(k,1765) = 0._r8
3536 315224452 : mat(k,1774) = 0._r8
3537 315224452 : mat(k,1776) = 0._r8
3538 315224452 : mat(k,1800) = 0._r8
3539 315224452 : mat(k,1822) = 0._r8
3540 315224452 : mat(k,1876) = 0._r8
3541 315224452 : mat(k,1917) = 0._r8
3542 315224452 : mat(k,1918) = 0._r8
3543 315224452 : mat(k,1920) = 0._r8
3544 315224452 : mat(k,1923) = 0._r8
3545 315224452 : mat(k,1926) = 0._r8
3546 315224452 : mat(k,1936) = 0._r8
3547 315224452 : mat(k,1939) = 0._r8
3548 315224452 : mat(k,1944) = 0._r8
3549 315224452 : mat(k,1945) = 0._r8
3550 315224452 : mat(k,1946) = 0._r8
3551 315224452 : mat(k,1947) = 0._r8
3552 315224452 : mat(k,1950) = 0._r8
3553 315224452 : mat(k,1952) = 0._r8
3554 315224452 : mat(k,1953) = 0._r8
3555 315224452 : mat(k,1961) = 0._r8
3556 315224452 : mat(k,1962) = 0._r8
3557 315224452 : mat(k,1965) = 0._r8
3558 315224452 : mat(k,1966) = 0._r8
3559 315224452 : mat(k,1968) = 0._r8
3560 315224452 : mat(k,1970) = 0._r8
3561 315224452 : mat(k,1971) = 0._r8
3562 315224452 : mat(k,1974) = 0._r8
3563 315224452 : mat(k,1976) = 0._r8
3564 315224452 : mat(k,1980) = 0._r8
3565 315224452 : mat(k,1981) = 0._r8
3566 315224452 : mat(k,1982) = 0._r8
3567 315224452 : mat(k,1985) = 0._r8
3568 315224452 : mat(k,1986) = 0._r8
3569 315224452 : mat(k,1988) = 0._r8
3570 315224452 : mat(k,1993) = 0._r8
3571 315224452 : mat(k,1994) = 0._r8
3572 315224452 : mat(k,1996) = 0._r8
3573 315224452 : mat(k,2026) = 0._r8
3574 315224452 : mat(k,2029) = 0._r8
3575 315224452 : mat(k,2032) = 0._r8
3576 315224452 : mat(k,2043) = 0._r8
3577 315224452 : mat(k,2044) = 0._r8
3578 315224452 : mat(k,2045) = 0._r8
3579 315224452 : mat(k,2046) = 0._r8
3580 315224452 : mat(k,2047) = 0._r8
3581 315224452 : mat(k,2048) = 0._r8
3582 315224452 : mat(k,2051) = 0._r8
3583 315224452 : mat(k,2053) = 0._r8
3584 315224452 : mat(k,2054) = 0._r8
3585 315224452 : mat(k,2056) = 0._r8
3586 315224452 : mat(k,2057) = 0._r8
3587 315224452 : mat(k,2058) = 0._r8
3588 315224452 : mat(k,2059) = 0._r8
3589 315224452 : mat(k,2060) = 0._r8
3590 315224452 : mat(k,2061) = 0._r8
3591 315224452 : mat(k,2062) = 0._r8
3592 315224452 : mat(k,2072) = 0._r8
3593 315224452 : mat(k,2078) = 0._r8
3594 315224452 : mat(k,2080) = 0._r8
3595 315224452 : mat(k,2084) = 0._r8
3596 315224452 : mat(k,2097) = 0._r8
3597 315224452 : mat(k,2098) = 0._r8
3598 315224452 : mat(k,2103) = 0._r8
3599 315224452 : mat(k,2105) = 0._r8
3600 315224452 : mat(k,2106) = 0._r8
3601 315224452 : mat(k,2108) = 0._r8
3602 315224452 : mat(k,2109) = 0._r8
3603 315224452 : mat(k,2111) = 0._r8
3604 315224452 : mat(k,2112) = 0._r8
3605 315224452 : mat(k,2113) = 0._r8
3606 315224452 : mat(k,2115) = 0._r8
3607 315224452 : mat(k,2116) = 0._r8
3608 315224452 : mat(k,2117) = 0._r8
3609 315224452 : mat(k,2118) = 0._r8
3610 315224452 : mat(k,2119) = 0._r8
3611 315224452 : mat(k,2122) = 0._r8
3612 315224452 : mat(k,2124) = 0._r8
3613 315224452 : mat(k,2126) = 0._r8
3614 315224452 : mat(k,2138) = 0._r8
3615 315224452 : mat(k,2141) = 0._r8
3616 315224452 : mat(k,2144) = 0._r8
3617 315224452 : mat(k,2145) = 0._r8
3618 315224452 : mat(k,2146) = 0._r8
3619 315224452 : mat(k,2148) = 0._r8
3620 315224452 : mat(k,2149) = 0._r8
3621 315224452 : mat(k,2150) = 0._r8
3622 315224452 : mat(k,2151) = 0._r8
3623 315224452 : mat(k,2152) = 0._r8
3624 315224452 : mat(k,2157) = 0._r8
3625 315224452 : mat(k,2161) = 0._r8
3626 315224452 : mat(k,2162) = 0._r8
3627 315224452 : mat(k,2164) = 0._r8
3628 315224452 : mat(k,2165) = 0._r8
3629 315224452 : mat(k,2166) = 0._r8
3630 315224452 : mat(k,2173) = 0._r8
3631 315224452 : mat(k,2188) = 0._r8
3632 315224452 : mat(k,2194) = 0._r8
3633 315224452 : mat(k,2195) = 0._r8
3634 315224452 : mat(k,2196) = 0._r8
3635 315224452 : mat(k,2199) = 0._r8
3636 315224452 : mat(k,2204) = 0._r8
3637 315224452 : mat(k,2205) = 0._r8
3638 315224452 : mat(k,2206) = 0._r8
3639 315224452 : mat(k,2208) = 0._r8
3640 315224452 : mat(k,2211) = 0._r8
3641 315224452 : mat(k,2212) = 0._r8
3642 315224452 : mat(k,2213) = 0._r8
3643 315224452 : mat(k,2215) = 0._r8
3644 315224452 : mat(k,2229) = 0._r8
3645 315224452 : mat(k,2237) = 0._r8
3646 315224452 : mat(k,2244) = 0._r8
3647 315224452 : mat(k,2245) = 0._r8
3648 315224452 : mat(k,2246) = 0._r8
3649 315224452 : mat(k,2247) = 0._r8
3650 315224452 : mat(k,2248) = 0._r8
3651 315224452 : mat(k,2250) = 0._r8
3652 315224452 : mat(k,2251) = 0._r8
3653 315224452 : mat(k,2254) = 0._r8
3654 315224452 : mat(k,2258) = 0._r8
3655 315224452 : mat(k,2293) = 0._r8
3656 315224452 : mat(k,2294) = 0._r8
3657 315224452 : mat(k,2295) = 0._r8
3658 315224452 : mat(k,2321) = 0._r8
3659 315224452 : mat(k,2329) = 0._r8
3660 315224452 : mat(k,2330) = 0._r8
3661 315224452 : mat(k,2332) = 0._r8
3662 315224452 : mat(k,2335) = 0._r8
3663 315224452 : mat(k,2337) = 0._r8
3664 315224452 : mat(k,2341) = 0._r8
3665 315224452 : mat(k,2346) = 0._r8
3666 315224452 : mat(k,2361) = 0._r8
3667 315224452 : mat(k,2362) = 0._r8
3668 315224452 : mat(k,2367) = 0._r8
3669 315224452 : mat(k,2378) = 0._r8
3670 315224452 : mat(k,2406) = 0._r8
3671 315224452 : mat(k,2408) = 0._r8
3672 315224452 : mat(k,2409) = 0._r8
3673 315224452 : mat(k,2413) = 0._r8
3674 315224452 : mat(k,2414) = 0._r8
3675 315224452 : mat(k,2415) = 0._r8
3676 315224452 : mat(k,2416) = 0._r8
3677 315224452 : mat(k,2418) = 0._r8
3678 315224452 : mat(k,2419) = 0._r8
3679 315224452 : mat(k,2422) = 0._r8
3680 315224452 : mat(k,2427) = 0._r8
3681 315224452 : mat(k,2429) = 0._r8
3682 315224452 : mat(k,2430) = 0._r8
3683 315224452 : mat(k,2431) = 0._r8
3684 315224452 : mat(k,2432) = 0._r8
3685 315224452 : mat(k,2433) = 0._r8
3686 315224452 : mat(k,2434) = 0._r8
3687 315224452 : mat(k,2435) = 0._r8
3688 315224452 : mat(k,2437) = 0._r8
3689 315224452 : mat(k,2438) = 0._r8
3690 315224452 : mat(k,2439) = 0._r8
3691 315224452 : mat(k,2441) = 0._r8
3692 315224452 : mat(k,2444) = 0._r8
3693 315224452 : mat(k,2445) = 0._r8
3694 315224452 : mat(k,2446) = 0._r8
3695 315224452 : mat(k,2447) = 0._r8
3696 315224452 : mat(k,2448) = 0._r8
3697 315224452 : mat(k, 1) = mat(k, 1) - dti(k)
3698 315224452 : mat(k, 2) = mat(k, 2) - dti(k)
3699 315224452 : mat(k, 3) = mat(k, 3) - dti(k)
3700 315224452 : mat(k, 4) = mat(k, 4) - dti(k)
3701 315224452 : mat(k, 5) = mat(k, 5) - dti(k)
3702 315224452 : mat(k, 6) = mat(k, 6) - dti(k)
3703 315224452 : mat(k, 7) = mat(k, 7) - dti(k)
3704 315224452 : mat(k, 8) = mat(k, 8) - dti(k)
3705 315224452 : mat(k, 9) = mat(k, 9) - dti(k)
3706 315224452 : mat(k, 10) = mat(k, 10) - dti(k)
3707 315224452 : mat(k, 11) = mat(k, 11) - dti(k)
3708 315224452 : mat(k, 12) = mat(k, 12) - dti(k)
3709 315224452 : mat(k, 13) = mat(k, 13) - dti(k)
3710 315224452 : mat(k, 14) = mat(k, 14) - dti(k)
3711 315224452 : mat(k, 15) = mat(k, 15) - dti(k)
3712 315224452 : mat(k, 16) = mat(k, 16) - dti(k)
3713 315224452 : mat(k, 17) = mat(k, 17) - dti(k)
3714 315224452 : mat(k, 18) = mat(k, 18) - dti(k)
3715 315224452 : mat(k, 19) = mat(k, 19) - dti(k)
3716 315224452 : mat(k, 20) = mat(k, 20) - dti(k)
3717 315224452 : mat(k, 21) = mat(k, 21) - dti(k)
3718 315224452 : mat(k, 22) = mat(k, 22) - dti(k)
3719 315224452 : mat(k, 23) = mat(k, 23) - dti(k)
3720 315224452 : mat(k, 24) = mat(k, 24) - dti(k)
3721 315224452 : mat(k, 25) = mat(k, 25) - dti(k)
3722 315224452 : mat(k, 26) = mat(k, 26) - dti(k)
3723 315224452 : mat(k, 27) = mat(k, 27) - dti(k)
3724 315224452 : mat(k, 28) = mat(k, 28) - dti(k)
3725 315224452 : mat(k, 29) = mat(k, 29) - dti(k)
3726 315224452 : mat(k, 30) = mat(k, 30) - dti(k)
3727 315224452 : mat(k, 31) = mat(k, 31) - dti(k)
3728 315224452 : mat(k, 32) = mat(k, 32) - dti(k)
3729 315224452 : mat(k, 33) = mat(k, 33) - dti(k)
3730 315224452 : mat(k, 34) = mat(k, 34) - dti(k)
3731 315224452 : mat(k, 35) = mat(k, 35) - dti(k)
3732 315224452 : mat(k, 36) = mat(k, 36) - dti(k)
3733 315224452 : mat(k, 37) = mat(k, 37) - dti(k)
3734 315224452 : mat(k, 38) = mat(k, 38) - dti(k)
3735 315224452 : mat(k, 39) = mat(k, 39) - dti(k)
3736 315224452 : mat(k, 40) = mat(k, 40) - dti(k)
3737 315224452 : mat(k, 41) = mat(k, 41) - dti(k)
3738 315224452 : mat(k, 42) = mat(k, 42) - dti(k)
3739 315224452 : mat(k, 43) = mat(k, 43) - dti(k)
3740 315224452 : mat(k, 44) = mat(k, 44) - dti(k)
3741 315224452 : mat(k, 50) = mat(k, 50) - dti(k)
3742 315224452 : mat(k, 56) = mat(k, 56) - dti(k)
3743 315224452 : mat(k, 62) = mat(k, 62) - dti(k)
3744 315224452 : mat(k, 68) = mat(k, 68) - dti(k)
3745 315224452 : mat(k, 74) = mat(k, 74) - dti(k)
3746 315224452 : mat(k, 76) = mat(k, 76) - dti(k)
3747 315224452 : mat(k, 82) = mat(k, 82) - dti(k)
3748 315224452 : mat(k, 88) = mat(k, 88) - dti(k)
3749 315224452 : mat(k, 94) = mat(k, 94) - dti(k)
3750 315224452 : mat(k, 95) = mat(k, 95) - dti(k)
3751 315224452 : mat(k, 98) = mat(k, 98) - dti(k)
3752 315224452 : mat(k, 101) = mat(k, 101) - dti(k)
3753 315224452 : mat(k, 104) = mat(k, 104) - dti(k)
3754 315224452 : mat(k, 107) = mat(k, 107) - dti(k)
3755 315224452 : mat(k, 111) = mat(k, 111) - dti(k)
3756 315224452 : mat(k, 115) = mat(k, 115) - dti(k)
3757 315224452 : mat(k, 119) = mat(k, 119) - dti(k)
3758 315224452 : mat(k, 123) = mat(k, 123) - dti(k)
3759 315224452 : mat(k, 127) = mat(k, 127) - dti(k)
3760 315224452 : mat(k, 130) = mat(k, 130) - dti(k)
3761 315224452 : mat(k, 133) = mat(k, 133) - dti(k)
3762 315224452 : mat(k, 136) = mat(k, 136) - dti(k)
3763 315224452 : mat(k, 139) = mat(k, 139) - dti(k)
3764 315224452 : mat(k, 144) = mat(k, 144) - dti(k)
3765 315224452 : mat(k, 149) = mat(k, 149) - dti(k)
3766 315224452 : mat(k, 154) = mat(k, 154) - dti(k)
3767 315224452 : mat(k, 160) = mat(k, 160) - dti(k)
3768 315224452 : mat(k, 166) = mat(k, 166) - dti(k)
3769 315224452 : mat(k, 170) = mat(k, 170) - dti(k)
3770 315224452 : mat(k, 175) = mat(k, 175) - dti(k)
3771 315224452 : mat(k, 177) = mat(k, 177) - dti(k)
3772 315224452 : mat(k, 180) = mat(k, 180) - dti(k)
3773 315224452 : mat(k, 182) = mat(k, 182) - dti(k)
3774 315224452 : mat(k, 187) = mat(k, 187) - dti(k)
3775 315224452 : mat(k, 194) = mat(k, 194) - dti(k)
3776 315224452 : mat(k, 199) = mat(k, 199) - dti(k)
3777 315224452 : mat(k, 203) = mat(k, 203) - dti(k)
3778 315224452 : mat(k, 208) = mat(k, 208) - dti(k)
3779 315224452 : mat(k, 216) = mat(k, 216) - dti(k)
3780 315224452 : mat(k, 221) = mat(k, 221) - dti(k)
3781 315224452 : mat(k, 226) = mat(k, 226) - dti(k)
3782 315224452 : mat(k, 229) = mat(k, 229) - dti(k)
3783 315224452 : mat(k, 232) = mat(k, 232) - dti(k)
3784 315224452 : mat(k, 235) = mat(k, 235) - dti(k)
3785 315224452 : mat(k, 238) = mat(k, 238) - dti(k)
3786 315224452 : mat(k, 241) = mat(k, 241) - dti(k)
3787 315224452 : mat(k, 246) = mat(k, 246) - dti(k)
3788 315224452 : mat(k, 251) = mat(k, 251) - dti(k)
3789 315224452 : mat(k, 256) = mat(k, 256) - dti(k)
3790 315224452 : mat(k, 261) = mat(k, 261) - dti(k)
3791 315224452 : mat(k, 265) = mat(k, 265) - dti(k)
3792 315224452 : mat(k, 269) = mat(k, 269) - dti(k)
3793 315224452 : mat(k, 273) = mat(k, 273) - dti(k)
3794 315224452 : mat(k, 279) = mat(k, 279) - dti(k)
3795 315224452 : mat(k, 282) = mat(k, 282) - dti(k)
3796 315224452 : mat(k, 285) = mat(k, 285) - dti(k)
3797 315224452 : mat(k, 292) = mat(k, 292) - dti(k)
3798 315224452 : mat(k, 298) = mat(k, 298) - dti(k)
3799 315224452 : mat(k, 304) = mat(k, 304) - dti(k)
3800 315224452 : mat(k, 310) = mat(k, 310) - dti(k)
3801 315224452 : mat(k, 316) = mat(k, 316) - dti(k)
3802 315224452 : mat(k, 321) = mat(k, 321) - dti(k)
3803 315224452 : mat(k, 326) = mat(k, 326) - dti(k)
3804 315224452 : mat(k, 329) = mat(k, 329) - dti(k)
3805 315224452 : mat(k, 334) = mat(k, 334) - dti(k)
3806 315224452 : mat(k, 339) = mat(k, 339) - dti(k)
3807 315224452 : mat(k, 345) = mat(k, 345) - dti(k)
3808 315224452 : mat(k, 350) = mat(k, 350) - dti(k)
3809 315224452 : mat(k, 355) = mat(k, 355) - dti(k)
3810 315224452 : mat(k, 363) = mat(k, 363) - dti(k)
3811 315224452 : mat(k, 371) = mat(k, 371) - dti(k)
3812 315224452 : mat(k, 379) = mat(k, 379) - dti(k)
3813 315224452 : mat(k, 385) = mat(k, 385) - dti(k)
3814 315224452 : mat(k, 391) = mat(k, 391) - dti(k)
3815 315224452 : mat(k, 397) = mat(k, 397) - dti(k)
3816 315224452 : mat(k, 403) = mat(k, 403) - dti(k)
3817 315224452 : mat(k, 409) = mat(k, 409) - dti(k)
3818 315224452 : mat(k, 415) = mat(k, 415) - dti(k)
3819 315224452 : mat(k, 421) = mat(k, 421) - dti(k)
3820 315224452 : mat(k, 427) = mat(k, 427) - dti(k)
3821 315224452 : mat(k, 435) = mat(k, 435) - dti(k)
3822 315224452 : mat(k, 441) = mat(k, 441) - dti(k)
3823 315224452 : mat(k, 448) = mat(k, 448) - dti(k)
3824 315224452 : mat(k, 454) = mat(k, 454) - dti(k)
3825 315224452 : mat(k, 460) = mat(k, 460) - dti(k)
3826 315224452 : mat(k, 465) = mat(k, 465) - dti(k)
3827 315224452 : mat(k, 468) = mat(k, 468) - dti(k)
3828 315224452 : mat(k, 472) = mat(k, 472) - dti(k)
3829 315224452 : mat(k, 479) = mat(k, 479) - dti(k)
3830 315224452 : mat(k, 486) = mat(k, 486) - dti(k)
3831 315224452 : mat(k, 495) = mat(k, 495) - dti(k)
3832 315224452 : mat(k, 502) = mat(k, 502) - dti(k)
3833 315224452 : mat(k, 510) = mat(k, 510) - dti(k)
3834 315224452 : mat(k, 517) = mat(k, 517) - dti(k)
3835 315224452 : mat(k, 523) = mat(k, 523) - dti(k)
3836 315224452 : mat(k, 529) = mat(k, 529) - dti(k)
3837 315224452 : mat(k, 534) = mat(k, 534) - dti(k)
3838 315224452 : mat(k, 542) = mat(k, 542) - dti(k)
3839 315224452 : mat(k, 550) = mat(k, 550) - dti(k)
3840 315224452 : mat(k, 558) = mat(k, 558) - dti(k)
3841 315224452 : mat(k, 566) = mat(k, 566) - dti(k)
3842 315224452 : mat(k, 574) = mat(k, 574) - dti(k)
3843 315224452 : mat(k, 582) = mat(k, 582) - dti(k)
3844 315224452 : mat(k, 589) = mat(k, 589) - dti(k)
3845 315224452 : mat(k, 598) = mat(k, 598) - dti(k)
3846 315224452 : mat(k, 602) = mat(k, 602) - dti(k)
3847 315224452 : mat(k, 611) = mat(k, 611) - dti(k)
3848 315224452 : mat(k, 620) = mat(k, 620) - dti(k)
3849 315224452 : mat(k, 627) = mat(k, 627) - dti(k)
3850 315224452 : mat(k, 635) = mat(k, 635) - dti(k)
3851 315224452 : mat(k, 642) = mat(k, 642) - dti(k)
3852 315224452 : mat(k, 652) = mat(k, 652) - dti(k)
3853 315224452 : mat(k, 665) = mat(k, 665) - dti(k)
3854 315224452 : mat(k, 676) = mat(k, 676) - dti(k)
3855 315224452 : mat(k, 687) = mat(k, 687) - dti(k)
3856 315224452 : mat(k, 698) = mat(k, 698) - dti(k)
3857 315224452 : mat(k, 705) = mat(k, 705) - dti(k)
3858 315224452 : mat(k, 711) = mat(k, 711) - dti(k)
3859 315224452 : mat(k, 718) = mat(k, 718) - dti(k)
3860 315224452 : mat(k, 729) = mat(k, 729) - dti(k)
3861 315224452 : mat(k, 740) = mat(k, 740) - dti(k)
3862 315224452 : mat(k, 751) = mat(k, 751) - dti(k)
3863 315224452 : mat(k, 767) = mat(k, 767) - dti(k)
3864 315224452 : mat(k, 778) = mat(k, 778) - dti(k)
3865 315224452 : mat(k, 787) = mat(k, 787) - dti(k)
3866 315224452 : mat(k, 797) = mat(k, 797) - dti(k)
3867 315224452 : mat(k, 805) = mat(k, 805) - dti(k)
3868 315224452 : mat(k, 814) = mat(k, 814) - dti(k)
3869 315224452 : mat(k, 824) = mat(k, 824) - dti(k)
3870 315224452 : mat(k, 828) = mat(k, 828) - dti(k)
3871 315224452 : mat(k, 837) = mat(k, 837) - dti(k)
3872 315224452 : mat(k, 845) = mat(k, 845) - dti(k)
3873 315224452 : mat(k, 853) = mat(k, 853) - dti(k)
3874 315224452 : mat(k, 865) = mat(k, 865) - dti(k)
3875 315224452 : mat(k, 876) = mat(k, 876) - dti(k)
3876 315224452 : mat(k, 892) = mat(k, 892) - dti(k)
3877 315224452 : mat(k, 901) = mat(k, 901) - dti(k)
3878 315224452 : mat(k, 910) = mat(k, 910) - dti(k)
3879 315224452 : mat(k, 919) = mat(k, 919) - dti(k)
3880 315224452 : mat(k, 925) = mat(k, 925) - dti(k)
3881 315224452 : mat(k, 935) = mat(k, 935) - dti(k)
3882 315224452 : mat(k, 947) = mat(k, 947) - dti(k)
3883 315224452 : mat(k, 955) = mat(k, 955) - dti(k)
3884 315224452 : mat(k, 974) = mat(k, 974) - dti(k)
3885 315224452 : mat(k, 999) = mat(k, 999) - dti(k)
3886 315224452 : mat(k,1018) = mat(k,1018) - dti(k)
3887 315224452 : mat(k,1042) = mat(k,1042) - dti(k)
3888 315224452 : mat(k,1054) = mat(k,1054) - dti(k)
3889 315224452 : mat(k,1062) = mat(k,1062) - dti(k)
3890 315224452 : mat(k,1072) = mat(k,1072) - dti(k)
3891 315224452 : mat(k,1080) = mat(k,1080) - dti(k)
3892 315224452 : mat(k,1090) = mat(k,1090) - dti(k)
3893 315224452 : mat(k,1106) = mat(k,1106) - dti(k)
3894 315224452 : mat(k,1119) = mat(k,1119) - dti(k)
3895 315224452 : mat(k,1133) = mat(k,1133) - dti(k)
3896 315224452 : mat(k,1151) = mat(k,1151) - dti(k)
3897 315224452 : mat(k,1160) = mat(k,1160) - dti(k)
3898 315224452 : mat(k,1166) = mat(k,1166) - dti(k)
3899 315224452 : mat(k,1178) = mat(k,1178) - dti(k)
3900 315224452 : mat(k,1195) = mat(k,1195) - dti(k)
3901 315224452 : mat(k,1208) = mat(k,1208) - dti(k)
3902 315224452 : mat(k,1217) = mat(k,1217) - dti(k)
3903 315224452 : mat(k,1233) = mat(k,1233) - dti(k)
3904 315224452 : mat(k,1253) = mat(k,1253) - dti(k)
3905 315224452 : mat(k,1269) = mat(k,1269) - dti(k)
3906 315224452 : mat(k,1281) = mat(k,1281) - dti(k)
3907 315224452 : mat(k,1299) = mat(k,1299) - dti(k)
3908 315224452 : mat(k,1332) = mat(k,1332) - dti(k)
3909 315224452 : mat(k,1356) = mat(k,1356) - dti(k)
3910 315224452 : mat(k,1376) = mat(k,1376) - dti(k)
3911 315224452 : mat(k,1397) = mat(k,1397) - dti(k)
3912 315224452 : mat(k,1428) = mat(k,1428) - dti(k)
3913 315224452 : mat(k,1450) = mat(k,1450) - dti(k)
3914 315224452 : mat(k,1461) = mat(k,1461) - dti(k)
3915 315224452 : mat(k,1476) = mat(k,1476) - dti(k)
3916 315224452 : mat(k,1495) = mat(k,1495) - dti(k)
3917 315224452 : mat(k,1511) = mat(k,1511) - dti(k)
3918 315224452 : mat(k,1542) = mat(k,1542) - dti(k)
3919 315224452 : mat(k,1565) = mat(k,1565) - dti(k)
3920 315224452 : mat(k,1592) = mat(k,1592) - dti(k)
3921 315224452 : mat(k,1652) = mat(k,1652) - dti(k)
3922 315224452 : mat(k,1818) = mat(k,1818) - dti(k)
3923 315224452 : mat(k,1914) = mat(k,1914) - dti(k)
3924 315224452 : mat(k,1960) = mat(k,1960) - dti(k)
3925 315224452 : mat(k,1987) = mat(k,1987) - dti(k)
3926 315224452 : mat(k,2031) = mat(k,2031) - dti(k)
3927 315224452 : mat(k,2055) = mat(k,2055) - dti(k)
3928 315224452 : mat(k,2099) = mat(k,2099) - dti(k)
3929 315224452 : mat(k,2121) = mat(k,2121) - dti(k)
3930 315224452 : mat(k,2168) = mat(k,2168) - dti(k)
3931 315224452 : mat(k,2233) = mat(k,2233) - dti(k)
3932 315224452 : mat(k,2259) = mat(k,2259) - dti(k)
3933 315224452 : mat(k,2368) = mat(k,2368) - dti(k)
3934 315224452 : mat(k,2421) = mat(k,2421) - dti(k)
3935 325174377 : mat(k,2449) = mat(k,2449) - dti(k)
3936 : end do
3937 9949925 : end subroutine nlnmat_finit
3938 9949925 : subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti )
3939 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
3940 : implicit none
3941 : !----------------------------------------------
3942 : ! ... dummy arguments
3943 : !----------------------------------------------
3944 : integer, intent(in) :: avec_len
3945 : real(r8), intent(in) :: dti(veclen)
3946 : real(r8), intent(in) :: lmat(veclen,nzcnt)
3947 : real(r8), intent(in) :: y(veclen,gas_pcnst)
3948 : real(r8), intent(in) :: rxt(veclen,rxntot)
3949 : real(r8), intent(inout) :: mat(veclen,nzcnt)
3950 9949925 : call nlnmat01( avec_len, mat, y, rxt )
3951 9949925 : call nlnmat02( avec_len, mat, y, rxt )
3952 9949925 : call nlnmat03( avec_len, mat, y, rxt )
3953 9949925 : call nlnmat04( avec_len, mat, y, rxt )
3954 9949925 : call nlnmat05( avec_len, mat, y, rxt )
3955 9949925 : call nlnmat06( avec_len, mat, y, rxt )
3956 9949925 : call nlnmat07( avec_len, mat, y, rxt )
3957 9949925 : call nlnmat08( avec_len, mat, y, rxt )
3958 9949925 : call nlnmat09( avec_len, mat, y, rxt )
3959 9949925 : call nlnmat10( avec_len, mat, y, rxt )
3960 9949925 : call nlnmat11( avec_len, mat, y, rxt )
3961 9949925 : call nlnmat_finit( avec_len, mat, lmat, dti )
3962 9949925 : end subroutine nlnmat
3963 : end module mo_nln_matrix
|