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