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