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 8168963 : 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 263009123 : do k = 1,avec_len
25 254840160 : mat(k,752) = -(rxt(k,408)*y(k,295))
26 254840160 : mat(k,3955) = -rxt(k,408)*y(k,1)
27 254840160 : mat(k,2998) = rxt(k,411)*y(k,236)
28 254840160 : mat(k,1180) = rxt(k,411)*y(k,147)
29 254840160 : mat(k,718) = -(rxt(k,412)*y(k,295))
30 254840160 : mat(k,3952) = -rxt(k,412)*y(k,2)
31 254840160 : mat(k,1179) = rxt(k,409)*y(k,258)
32 254840160 : mat(k,3247) = rxt(k,409)*y(k,236)
33 : mat(k,1272) = -(rxt(k,584)*y(k,149) + rxt(k,602)*y(k,158) + rxt(k,603) &
34 254840160 : *y(k,295))
35 254840160 : mat(k,3538) = -rxt(k,584)*y(k,4)
36 254840160 : mat(k,3692) = -rxt(k,602)*y(k,4)
37 254840160 : mat(k,4005) = -rxt(k,603)*y(k,4)
38 : mat(k,1041) = -(rxt(k,604)*y(k,149) + rxt(k,622)*y(k,158) + rxt(k,623) &
39 254840160 : *y(k,295))
40 254840160 : mat(k,3531) = -rxt(k,604)*y(k,7)
41 254840160 : mat(k,3685) = -rxt(k,622)*y(k,7)
42 254840160 : mat(k,3985) = -rxt(k,623)*y(k,7)
43 254840160 : mat(k,182) = -(rxt(k,543)*y(k,295))
44 254840160 : mat(k,3874) = -rxt(k,543)*y(k,8)
45 254840160 : mat(k,417) = -(rxt(k,546)*y(k,295))
46 254840160 : mat(k,3913) = -rxt(k,546)*y(k,9)
47 254840160 : mat(k,512) = rxt(k,544)*y(k,258)
48 254840160 : mat(k,3228) = rxt(k,544)*y(k,243)
49 254840160 : mat(k,183) = .120_r8*rxt(k,543)*y(k,295)
50 254840160 : mat(k,3875) = .120_r8*rxt(k,543)*y(k,8)
51 : mat(k,2985) = .500_r8*rxt(k,545)*y(k,243) + .200_r8*rxt(k,572)*y(k,314) &
52 254840160 : + .060_r8*rxt(k,578)*y(k,316)
53 254840160 : mat(k,513) = .500_r8*rxt(k,545)*y(k,147)
54 254840160 : mat(k,870) = .200_r8*rxt(k,572)*y(k,147)
55 254840160 : mat(k,892) = .060_r8*rxt(k,578)*y(k,147)
56 254840160 : mat(k,2980) = .200_r8*rxt(k,572)*y(k,314) + .200_r8*rxt(k,578)*y(k,316)
57 254840160 : mat(k,868) = .200_r8*rxt(k,572)*y(k,147)
58 254840160 : mat(k,889) = .200_r8*rxt(k,578)*y(k,147)
59 254840160 : mat(k,2982) = .200_r8*rxt(k,572)*y(k,314) + .150_r8*rxt(k,578)*y(k,316)
60 254840160 : mat(k,869) = .200_r8*rxt(k,572)*y(k,147)
61 254840160 : mat(k,891) = .150_r8*rxt(k,578)*y(k,147)
62 254840160 : mat(k,2981) = .210_r8*rxt(k,578)*y(k,316)
63 254840160 : mat(k,890) = .210_r8*rxt(k,578)*y(k,147)
64 254840160 : mat(k,204) = -(rxt(k,413)*y(k,295))
65 254840160 : mat(k,3878) = -rxt(k,413)*y(k,15)
66 254840160 : mat(k,1091) = .190_r8*rxt(k,642)*y(k,158)
67 254840160 : mat(k,3674) = .190_r8*rxt(k,642)*y(k,17)
68 254840160 : mat(k,377) = -(rxt(k,374)*y(k,149) + rxt(k,375)*y(k,295))
69 254840160 : mat(k,3527) = -rxt(k,374)*y(k,16)
70 254840160 : mat(k,3908) = -rxt(k,375)*y(k,16)
71 : mat(k,1092) = -(rxt(k,624)*y(k,149) + rxt(k,642)*y(k,158) + rxt(k,643) &
72 254840160 : *y(k,295))
73 254840160 : mat(k,3533) = -rxt(k,624)*y(k,17)
74 254840160 : mat(k,3687) = -rxt(k,642)*y(k,17)
75 254840160 : mat(k,3988) = -rxt(k,643)*y(k,17)
76 : mat(k,2199) = -(rxt(k,254)*y(k,43) + rxt(k,255)*y(k,258) + rxt(k,256) &
77 254840160 : *y(k,158))
78 254840160 : mat(k,3181) = -rxt(k,254)*y(k,18)
79 254840160 : mat(k,3338) = -rxt(k,255)*y(k,18)
80 254840160 : mat(k,3731) = -rxt(k,256)*y(k,18)
81 : mat(k,3479) = 4.000_r8*rxt(k,257)*y(k,20) + (rxt(k,258)+rxt(k,259))*y(k,60) &
82 : + rxt(k,262)*y(k,147) + rxt(k,265)*y(k,157) + rxt(k,800) &
83 254840160 : *y(k,174) + rxt(k,266)*y(k,295)
84 254840160 : mat(k,161) = rxt(k,244)*y(k,294)
85 254840160 : mat(k,167) = rxt(k,270)*y(k,294)
86 : mat(k,496) = 2.000_r8*rxt(k,281)*y(k,57) + 2.000_r8*rxt(k,293)*y(k,294) &
87 254840160 : + 2.000_r8*rxt(k,282)*y(k,295)
88 254840160 : mat(k,647) = rxt(k,283)*y(k,57) + rxt(k,294)*y(k,294) + rxt(k,284)*y(k,295)
89 : mat(k,463) = 3.000_r8*rxt(k,288)*y(k,57) + 3.000_r8*rxt(k,271)*y(k,294) &
90 254840160 : + 3.000_r8*rxt(k,289)*y(k,295)
91 : mat(k,3833) = 2.000_r8*rxt(k,281)*y(k,42) + rxt(k,283)*y(k,44) &
92 254840160 : + 3.000_r8*rxt(k,288)*y(k,56)
93 254840160 : mat(k,3505) = (rxt(k,258)+rxt(k,259))*y(k,20)
94 254840160 : mat(k,128) = 2.000_r8*rxt(k,272)*y(k,294)
95 254840160 : mat(k,1151) = rxt(k,267)*y(k,157) + rxt(k,273)*y(k,294) + rxt(k,268)*y(k,295)
96 254840160 : mat(k,3079) = rxt(k,262)*y(k,20)
97 254840160 : mat(k,3155) = rxt(k,265)*y(k,20) + rxt(k,267)*y(k,83)
98 254840160 : mat(k,1601) = rxt(k,800)*y(k,20)
99 : mat(k,3793) = rxt(k,244)*y(k,35) + rxt(k,270)*y(k,36) + 2.000_r8*rxt(k,293) &
100 : *y(k,42) + rxt(k,294)*y(k,44) + 3.000_r8*rxt(k,271)*y(k,56) &
101 254840160 : + 2.000_r8*rxt(k,272)*y(k,80) + rxt(k,273)*y(k,83)
102 : mat(k,4062) = rxt(k,266)*y(k,20) + 2.000_r8*rxt(k,282)*y(k,42) + rxt(k,284) &
103 254840160 : *y(k,44) + 3.000_r8*rxt(k,289)*y(k,56) + rxt(k,268)*y(k,83)
104 254840160 : mat(k,3473) = rxt(k,260)*y(k,60)
105 254840160 : mat(k,3499) = rxt(k,260)*y(k,20)
106 254840160 : mat(k,3122) = (rxt(k,892)+rxt(k,897))*y(k,95)
107 254840160 : mat(k,994) = (rxt(k,892)+rxt(k,897))*y(k,87)
108 : mat(k,3488) = -(4._r8*rxt(k,257)*y(k,20) + (rxt(k,258) + rxt(k,259) + rxt(k,260) &
109 : ) * y(k,60) + rxt(k,261)*y(k,258) + rxt(k,262)*y(k,147) &
110 : + rxt(k,263)*y(k,148) + rxt(k,265)*y(k,157) + rxt(k,266) &
111 254840160 : *y(k,295) + rxt(k,800)*y(k,174))
112 254840160 : mat(k,3514) = -(rxt(k,258) + rxt(k,259) + rxt(k,260)) * y(k,20)
113 254840160 : mat(k,3371) = -rxt(k,261)*y(k,20)
114 254840160 : mat(k,3112) = -rxt(k,262)*y(k,20)
115 254840160 : mat(k,3660) = -rxt(k,263)*y(k,20)
116 254840160 : mat(k,3165) = -rxt(k,265)*y(k,20)
117 254840160 : mat(k,4094) = -rxt(k,266)*y(k,20)
118 254840160 : mat(k,1606) = -rxt(k,800)*y(k,20)
119 254840160 : mat(k,2204) = rxt(k,256)*y(k,158)
120 254840160 : mat(k,566) = rxt(k,264)*y(k,157)
121 254840160 : mat(k,1154) = rxt(k,274)*y(k,294)
122 254840160 : mat(k,999) = rxt(k,269)*y(k,157)
123 254840160 : mat(k,3165) = mat(k,3165) + rxt(k,264)*y(k,21) + rxt(k,269)*y(k,95)
124 254840160 : mat(k,3762) = rxt(k,256)*y(k,18)
125 254840160 : mat(k,3803) = rxt(k,274)*y(k,83)
126 254840160 : mat(k,561) = -(rxt(k,264)*y(k,157))
127 254840160 : mat(k,3145) = -rxt(k,264)*y(k,21)
128 254840160 : mat(k,3475) = rxt(k,263)*y(k,148)
129 254840160 : mat(k,3626) = rxt(k,263)*y(k,20)
130 254840160 : mat(k,245) = -(rxt(k,547)*y(k,295))
131 254840160 : mat(k,3885) = -rxt(k,547)*y(k,23)
132 254840160 : mat(k,2978) = rxt(k,550)*y(k,248)
133 254840160 : mat(k,435) = rxt(k,550)*y(k,147)
134 254840160 : mat(k,353) = -(rxt(k,549)*y(k,295))
135 254840160 : mat(k,3903) = -rxt(k,549)*y(k,24)
136 254840160 : mat(k,436) = rxt(k,548)*y(k,258)
137 254840160 : mat(k,3221) = rxt(k,548)*y(k,248)
138 254840160 : mat(k,310) = -(rxt(k,320)*y(k,57) + rxt(k,321)*y(k,295))
139 254840160 : mat(k,3813) = -rxt(k,320)*y(k,25)
140 254840160 : mat(k,3898) = -rxt(k,321)*y(k,25)
141 254840160 : mat(k,585) = -(rxt(k,322)*y(k,57) + rxt(k,323)*y(k,158) + rxt(k,350)*y(k,295))
142 254840160 : mat(k,3818) = -rxt(k,322)*y(k,26)
143 254840160 : mat(k,3677) = -rxt(k,323)*y(k,26)
144 254840160 : mat(k,3937) = -rxt(k,350)*y(k,26)
145 254840160 : mat(k,283) = -(rxt(k,328)*y(k,295))
146 254840160 : mat(k,3895) = -rxt(k,328)*y(k,27)
147 254840160 : mat(k,1348) = .800_r8*rxt(k,324)*y(k,249) + .200_r8*rxt(k,325)*y(k,253)
148 254840160 : mat(k,3381) = .200_r8*rxt(k,325)*y(k,249)
149 254840160 : mat(k,358) = -(rxt(k,329)*y(k,295))
150 254840160 : mat(k,3904) = -rxt(k,329)*y(k,28)
151 254840160 : mat(k,1349) = rxt(k,326)*y(k,258)
152 254840160 : mat(k,3222) = rxt(k,326)*y(k,249)
153 254840160 : mat(k,316) = -(rxt(k,330)*y(k,57) + rxt(k,331)*y(k,295))
154 254840160 : mat(k,3814) = -rxt(k,330)*y(k,29)
155 254840160 : mat(k,3899) = -rxt(k,331)*y(k,29)
156 : mat(k,1385) = -(rxt(k,353)*y(k,149) + rxt(k,354)*y(k,158) + rxt(k,372) &
157 254840160 : *y(k,295))
158 254840160 : mat(k,3542) = -rxt(k,353)*y(k,30)
159 254840160 : mat(k,3696) = -rxt(k,354)*y(k,30)
160 254840160 : mat(k,4014) = -rxt(k,372)*y(k,30)
161 254840160 : mat(k,411) = -(rxt(k,358)*y(k,295))
162 254840160 : mat(k,3912) = -rxt(k,358)*y(k,31)
163 254840160 : mat(k,1023) = rxt(k,356)*y(k,258)
164 254840160 : mat(k,3227) = rxt(k,356)*y(k,250)
165 254840160 : mat(k,130) = -(rxt(k,359)*y(k,295))
166 254840160 : mat(k,3872) = -rxt(k,359)*y(k,32)
167 254840160 : mat(k,287) = -(rxt(k,553)*y(k,295))
168 254840160 : mat(k,3896) = -rxt(k,553)*y(k,33)
169 254840160 : mat(k,709) = rxt(k,551)*y(k,258)
170 254840160 : mat(k,3217) = rxt(k,551)*y(k,251)
171 254840160 : mat(k,120) = -(rxt(k,243)*y(k,294))
172 254840160 : mat(k,3771) = -rxt(k,243)*y(k,34)
173 254840160 : mat(k,159) = -(rxt(k,244)*y(k,294))
174 254840160 : mat(k,3776) = -rxt(k,244)*y(k,35)
175 254840160 : mat(k,164) = -(rxt(k,270)*y(k,294))
176 254840160 : mat(k,3777) = -rxt(k,270)*y(k,36)
177 254840160 : mat(k,134) = -(rxt(k,245)*y(k,294))
178 254840160 : mat(k,3773) = -rxt(k,245)*y(k,37)
179 254840160 : mat(k,169) = -(rxt(k,246)*y(k,294))
180 254840160 : mat(k,3778) = -rxt(k,246)*y(k,38)
181 254840160 : mat(k,138) = -(rxt(k,247)*y(k,294))
182 254840160 : mat(k,3774) = -rxt(k,247)*y(k,39)
183 254840160 : mat(k,174) = -(rxt(k,248)*y(k,294))
184 254840160 : mat(k,3779) = -rxt(k,248)*y(k,40)
185 254840160 : mat(k,142) = -(rxt(k,249)*y(k,294))
186 254840160 : mat(k,3775) = -rxt(k,249)*y(k,41)
187 254840160 : mat(k,495) = -(rxt(k,281)*y(k,57) + rxt(k,282)*y(k,295) + rxt(k,293)*y(k,294))
188 254840160 : mat(k,3817) = -rxt(k,281)*y(k,42)
189 254840160 : mat(k,3926) = -rxt(k,282)*y(k,42)
190 254840160 : mat(k,3788) = -rxt(k,293)*y(k,42)
191 : mat(k,3188) = -(rxt(k,218)*y(k,57) + rxt(k,254)*y(k,18) + rxt(k,298)*y(k,258) &
192 : + rxt(k,299)*y(k,149) + rxt(k,300)*y(k,157) + rxt(k,301) &
193 254840160 : *y(k,295))
194 254840160 : mat(k,3841) = -rxt(k,218)*y(k,43)
195 254840160 : mat(k,2202) = -rxt(k,254)*y(k,43)
196 254840160 : mat(k,3368) = -rxt(k,298)*y(k,43)
197 254840160 : mat(k,3605) = -rxt(k,299)*y(k,43)
198 254840160 : mat(k,3162) = -rxt(k,300)*y(k,43)
199 254840160 : mat(k,4091) = -rxt(k,301)*y(k,43)
200 254840160 : mat(k,758) = .400_r8*rxt(k,408)*y(k,295)
201 254840160 : mat(k,1284) = .270_r8*rxt(k,602)*y(k,158)
202 254840160 : mat(k,1049) = .080_r8*rxt(k,622)*y(k,158)
203 254840160 : mat(k,381) = .500_r8*rxt(k,374)*y(k,149)
204 254840160 : mat(k,1102) = .810_r8*rxt(k,642)*y(k,158)
205 254840160 : mat(k,589) = rxt(k,323)*y(k,158)
206 254840160 : mat(k,1393) = .500_r8*rxt(k,354)*y(k,158)
207 254840160 : mat(k,705) = .500_r8*rxt(k,340)*y(k,295)
208 254840160 : mat(k,1495) = rxt(k,306)*y(k,295)
209 254840160 : mat(k,451) = .300_r8*rxt(k,307)*y(k,295)
210 254840160 : mat(k,2264) = (rxt(k,316)+rxt(k,317))*y(k,294)
211 254840160 : mat(k,3511) = rxt(k,225)*y(k,253)
212 254840160 : mat(k,1715) = .800_r8*rxt(k,345)*y(k,295)
213 254840160 : mat(k,886) = .110_r8*rxt(k,347)*y(k,295)
214 254840160 : mat(k,1212) = .500_r8*rxt(k,311)*y(k,295)
215 254840160 : mat(k,927) = .300_r8*rxt(k,363)*y(k,295)
216 254840160 : mat(k,918) = .500_r8*rxt(k,419)*y(k,295)
217 254840160 : mat(k,508) = .400_r8*rxt(k,422)*y(k,295)
218 254840160 : mat(k,1261) = .590_r8*rxt(k,423)*y(k,295)
219 254840160 : mat(k,1424) = 1.010_r8*rxt(k,486)*y(k,158)
220 254840160 : mat(k,1081) = .330_r8*rxt(k,662)*y(k,158)
221 254840160 : mat(k,2023) = .120_r8*rxt(k,385)*y(k,158)
222 254840160 : mat(k,2048) = .600_r8*rxt(k,403)*y(k,158)
223 254840160 : mat(k,833) = .390_r8*rxt(k,682)*y(k,158)
224 : mat(k,3109) = .100_r8*rxt(k,410)*y(k,236) + .210_r8*rxt(k,597)*y(k,238) &
225 : + .020_r8*rxt(k,629)*y(k,245) + .490_r8*rxt(k,637)*y(k,246) &
226 : + rxt(k,305)*y(k,253) + .500_r8*rxt(k,377)*y(k,255) &
227 : + .500_r8*rxt(k,342)*y(k,257) + rxt(k,505)*y(k,261) + rxt(k,507) &
228 : *y(k,262) + .060_r8*rxt(k,513)*y(k,269) + .270_r8*rxt(k,515) &
229 : *y(k,270) + rxt(k,517)*y(k,271) + .130_r8*rxt(k,519)*y(k,272) &
230 : + .330_r8*rxt(k,521)*y(k,273) + .460_r8*rxt(k,523)*y(k,274) &
231 : + .530_r8*rxt(k,525)*y(k,275) + .040_r8*rxt(k,527)*y(k,276) &
232 : + .430_r8*rxt(k,657)*y(k,282) + .140_r8*rxt(k,535)*y(k,284) &
233 : + rxt(k,392)*y(k,286) + .240_r8*rxt(k,537)*y(k,289) &
234 : + .040_r8*rxt(k,669)*y(k,290) + .300_r8*rxt(k,677)*y(k,291) &
235 : + rxt(k,366)*y(k,297) + rxt(k,370)*y(k,298) + .310_r8*rxt(k,688) &
236 : *y(k,299) + 1.820_r8*rxt(k,741)*y(k,306) + .310_r8*rxt(k,761) &
237 254840160 : *y(k,308)
238 : mat(k,3605) = mat(k,3605) + .500_r8*rxt(k,374)*y(k,16) + .440_r8*rxt(k,759) &
239 : *y(k,212) + .500_r8*rxt(k,764)*y(k,213) + .270_r8*rxt(k,598) &
240 : *y(k,238) + .020_r8*rxt(k,630)*y(k,245) + .650_r8*rxt(k,638) &
241 : *y(k,246) + .460_r8*rxt(k,478)*y(k,274) + .560_r8*rxt(k,658) &
242 : *y(k,282) + rxt(k,393)*y(k,286) + .040_r8*rxt(k,670)*y(k,290) &
243 254840160 : + .420_r8*rxt(k,678)*y(k,291) + 2.000_r8*rxt(k,742)*y(k,306)
244 254840160 : mat(k,1457) = rxt(k,348)*y(k,295)
245 : mat(k,3759) = .270_r8*rxt(k,602)*y(k,4) + .080_r8*rxt(k,622)*y(k,7) &
246 : + .810_r8*rxt(k,642)*y(k,17) + rxt(k,323)*y(k,26) &
247 : + .500_r8*rxt(k,354)*y(k,30) + 1.010_r8*rxt(k,486)*y(k,109) &
248 : + .330_r8*rxt(k,662)*y(k,125) + .120_r8*rxt(k,385)*y(k,126) &
249 : + .600_r8*rxt(k,403)*y(k,132) + .390_r8*rxt(k,682)*y(k,135) &
250 254840160 : + .620_r8*rxt(k,762)*y(k,212) + .340_r8*rxt(k,767)*y(k,213)
251 254840160 : mat(k,572) = rxt(k,349)*y(k,295)
252 254840160 : mat(k,660) = 2.000_r8*rxt(k,718)*y(k,295)
253 254840160 : mat(k,669) = rxt(k,737)*y(k,295)
254 254840160 : mat(k,2639) = .440_r8*rxt(k,759)*y(k,149) + .620_r8*rxt(k,762)*y(k,158)
255 254840160 : mat(k,2611) = .500_r8*rxt(k,764)*y(k,149) + .340_r8*rxt(k,767)*y(k,158)
256 254840160 : mat(k,1188) = .100_r8*rxt(k,410)*y(k,147)
257 254840160 : mat(k,2308) = .950_r8*rxt(k,587)*y(k,253)
258 : mat(k,2453) = .210_r8*rxt(k,597)*y(k,147) + .270_r8*rxt(k,598)*y(k,149) &
259 : + .270_r8*rxt(k,594)*y(k,252) + .830_r8*rxt(k,595)*y(k,253) &
260 : + .080_r8*rxt(k,596)*y(k,258) + .270_r8*rxt(k,599)*y(k,302) &
261 254840160 : + .270_r8*rxt(k,600)*y(k,304) + .270_r8*rxt(k,601)*y(k,307)
262 254840160 : mat(k,2224) = .950_r8*rxt(k,607)*y(k,253)
263 254840160 : mat(k,2421) = .750_r8*rxt(k,615)*y(k,253)
264 : mat(k,2547) = .020_r8*rxt(k,629)*y(k,147) + .020_r8*rxt(k,630)*y(k,149) &
265 : + .080_r8*rxt(k,625)*y(k,245) + .020_r8*rxt(k,626)*y(k,252) &
266 : + .990_r8*rxt(k,627)*y(k,253) + .020_r8*rxt(k,628)*y(k,258) &
267 : + .020_r8*rxt(k,631)*y(k,302) + .020_r8*rxt(k,632)*y(k,304) &
268 254840160 : + .020_r8*rxt(k,633)*y(k,307)
269 : mat(k,2392) = .490_r8*rxt(k,637)*y(k,147) + .650_r8*rxt(k,638)*y(k,149) &
270 : + .650_r8*rxt(k,634)*y(k,252) + 1.400_r8*rxt(k,635)*y(k,253) &
271 : + .030_r8*rxt(k,636)*y(k,258) + .650_r8*rxt(k,639)*y(k,302) &
272 254840160 : + .650_r8*rxt(k,640)*y(k,304) + .650_r8*rxt(k,641)*y(k,307)
273 254840160 : mat(k,1354) = .700_r8*rxt(k,325)*y(k,253)
274 254840160 : mat(k,1028) = rxt(k,355)*y(k,253)
275 : mat(k,2919) = .270_r8*rxt(k,594)*y(k,238) + .020_r8*rxt(k,626)*y(k,245) &
276 : + .650_r8*rxt(k,634)*y(k,246) + rxt(k,336)*y(k,253) + rxt(k,424) &
277 : *y(k,261) + rxt(k,430)*y(k,262) + .460_r8*rxt(k,474)*y(k,274) &
278 : + .560_r8*rxt(k,654)*y(k,282) + .140_r8*rxt(k,381)*y(k,284) &
279 : + rxt(k,388)*y(k,286) + .250_r8*rxt(k,400)*y(k,289) &
280 : + .040_r8*rxt(k,665)*y(k,290) + .420_r8*rxt(k,674)*y(k,291) &
281 254840160 : + 2.000_r8*rxt(k,738)*y(k,306)
282 : mat(k,3461) = rxt(k,225)*y(k,60) + rxt(k,305)*y(k,147) + .950_r8*rxt(k,587) &
283 : *y(k,237) + .830_r8*rxt(k,595)*y(k,238) + .950_r8*rxt(k,607) &
284 : *y(k,240) + .750_r8*rxt(k,615)*y(k,241) + .990_r8*rxt(k,627) &
285 : *y(k,245) + 1.400_r8*rxt(k,635)*y(k,246) + .700_r8*rxt(k,325) &
286 : *y(k,249) + rxt(k,355)*y(k,250) + rxt(k,336)*y(k,252) + ( &
287 : + 4.000_r8*rxt(k,302)+2.000_r8*rxt(k,303))*y(k,253) &
288 : + 1.750_r8*rxt(k,425)*y(k,261) + 1.250_r8*rxt(k,431)*y(k,262) &
289 : + .750_r8*rxt(k,445)*y(k,267) + .750_r8*rxt(k,449)*y(k,268) &
290 : + .710_r8*rxt(k,475)*y(k,274) + .750_r8*rxt(k,492)*y(k,278) &
291 : + .750_r8*rxt(k,496)*y(k,279) + .910_r8*rxt(k,646)*y(k,281) &
292 : + 1.030_r8*rxt(k,655)*y(k,282) + 1.100_r8*rxt(k,382)*y(k,284) &
293 : + 2.000_r8*rxt(k,389)*y(k,286) + .870_r8*rxt(k,401)*y(k,289) &
294 : + .980_r8*rxt(k,666)*y(k,290) + .750_r8*rxt(k,675)*y(k,291) &
295 : + .800_r8*rxt(k,368)*y(k,298) + .750_r8*rxt(k,694)*y(k,301) &
296 : + rxt(k,702)*y(k,302) + rxt(k,710)*y(k,303) + rxt(k,720) &
297 : *y(k,304) + rxt(k,729)*y(k,305) + 3.000_r8*rxt(k,739)*y(k,306) &
298 254840160 : + rxt(k,750)*y(k,307)
299 254840160 : mat(k,610) = .500_r8*rxt(k,377)*y(k,147)
300 254840160 : mat(k,858) = .500_r8*rxt(k,342)*y(k,147)
301 : mat(k,3368) = mat(k,3368) + .080_r8*rxt(k,596)*y(k,238) + .020_r8*rxt(k,628) &
302 : *y(k,245) + .030_r8*rxt(k,636)*y(k,246) + .060_r8*rxt(k,426) &
303 : *y(k,261) + .060_r8*rxt(k,432)*y(k,262) + .030_r8*rxt(k,457) &
304 : *y(k,269) + .060_r8*rxt(k,461)*y(k,270) + .600_r8*rxt(k,464) &
305 : *y(k,271) + .060_r8*rxt(k,467)*y(k,272) + .100_r8*rxt(k,471) &
306 : *y(k,273) + .240_r8*rxt(k,476)*y(k,274) + .170_r8*rxt(k,479) &
307 : *y(k,275) + .030_r8*rxt(k,482)*y(k,276) + .060_r8*rxt(k,656) &
308 : *y(k,282) + .080_r8*rxt(k,383)*y(k,284) + .490_r8*rxt(k,390) &
309 : *y(k,286) + .050_r8*rxt(k,402)*y(k,289) + .020_r8*rxt(k,667) &
310 : *y(k,290) + .040_r8*rxt(k,676)*y(k,291) + .150_r8*rxt(k,369) &
311 : *y(k,298) + .080_r8*rxt(k,687)*y(k,299) + 1.060_r8*rxt(k,740) &
312 254840160 : *y(k,306) + .040_r8*rxt(k,760)*y(k,308)
313 : mat(k,1963) = rxt(k,505)*y(k,147) + rxt(k,424)*y(k,252) + 1.750_r8*rxt(k,425) &
314 254840160 : *y(k,253) + .060_r8*rxt(k,426)*y(k,258)
315 : mat(k,2002) = rxt(k,507)*y(k,147) + rxt(k,430)*y(k,252) + 1.250_r8*rxt(k,431) &
316 254840160 : *y(k,253) + .060_r8*rxt(k,432)*y(k,258)
317 254840160 : mat(k,1743) = .750_r8*rxt(k,445)*y(k,253)
318 254840160 : mat(k,1765) = .750_r8*rxt(k,449)*y(k,253)
319 254840160 : mat(k,1128) = .060_r8*rxt(k,513)*y(k,147) + .030_r8*rxt(k,457)*y(k,258)
320 254840160 : mat(k,1174) = .270_r8*rxt(k,515)*y(k,147) + .060_r8*rxt(k,461)*y(k,258)
321 254840160 : mat(k,1060) = rxt(k,517)*y(k,147) + .600_r8*rxt(k,464)*y(k,258)
322 254840160 : mat(k,1139) = .130_r8*rxt(k,519)*y(k,147) + .060_r8*rxt(k,467)*y(k,258)
323 254840160 : mat(k,1450) = .330_r8*rxt(k,521)*y(k,147) + .100_r8*rxt(k,471)*y(k,258)
324 : mat(k,2188) = .460_r8*rxt(k,523)*y(k,147) + .460_r8*rxt(k,478)*y(k,149) &
325 : + .460_r8*rxt(k,474)*y(k,252) + .710_r8*rxt(k,475)*y(k,253) &
326 254840160 : + .240_r8*rxt(k,476)*y(k,258) + .320_r8*rxt(k,477)*y(k,274)
327 254840160 : mat(k,1319) = .530_r8*rxt(k,525)*y(k,147) + .170_r8*rxt(k,479)*y(k,258)
328 254840160 : mat(k,1373) = .040_r8*rxt(k,527)*y(k,147) + .030_r8*rxt(k,482)*y(k,258)
329 254840160 : mat(k,1860) = .750_r8*rxt(k,492)*y(k,253)
330 254840160 : mat(k,1829) = .750_r8*rxt(k,496)*y(k,253)
331 254840160 : mat(k,2518) = .910_r8*rxt(k,646)*y(k,253)
332 : mat(k,2352) = .430_r8*rxt(k,657)*y(k,147) + .560_r8*rxt(k,658)*y(k,149) &
333 : + .560_r8*rxt(k,654)*y(k,252) + 1.030_r8*rxt(k,655)*y(k,253) &
334 : + .060_r8*rxt(k,656)*y(k,258) + .560_r8*rxt(k,659)*y(k,302) &
335 254840160 : + .560_r8*rxt(k,660)*y(k,304) + .560_r8*rxt(k,661)*y(k,307)
336 : mat(k,1552) = .140_r8*rxt(k,535)*y(k,147) + .140_r8*rxt(k,381)*y(k,252) &
337 254840160 : + 1.100_r8*rxt(k,382)*y(k,253) + .080_r8*rxt(k,383)*y(k,258)
338 : mat(k,1626) = rxt(k,392)*y(k,147) + rxt(k,393)*y(k,149) + rxt(k,388)*y(k,252) &
339 : + 2.000_r8*rxt(k,389)*y(k,253) + .490_r8*rxt(k,390)*y(k,258) &
340 254840160 : + 4.000_r8*rxt(k,391)*y(k,286)
341 : mat(k,1516) = .240_r8*rxt(k,537)*y(k,147) + .250_r8*rxt(k,400)*y(k,252) &
342 254840160 : + .870_r8*rxt(k,401)*y(k,253) + .050_r8*rxt(k,402)*y(k,258)
343 : mat(k,2583) = .040_r8*rxt(k,669)*y(k,147) + .040_r8*rxt(k,670)*y(k,149) &
344 : + .040_r8*rxt(k,665)*y(k,252) + .980_r8*rxt(k,666)*y(k,253) &
345 : + .020_r8*rxt(k,667)*y(k,258) + .120_r8*rxt(k,668)*y(k,290) &
346 : + .040_r8*rxt(k,671)*y(k,302) + .040_r8*rxt(k,672)*y(k,304) &
347 254840160 : + .040_r8*rxt(k,673)*y(k,307)
348 : mat(k,2484) = .300_r8*rxt(k,677)*y(k,147) + .420_r8*rxt(k,678)*y(k,149) &
349 : + .420_r8*rxt(k,674)*y(k,252) + .750_r8*rxt(k,675)*y(k,253) &
350 : + .040_r8*rxt(k,676)*y(k,258) + .420_r8*rxt(k,679)*y(k,302) &
351 254840160 : + .420_r8*rxt(k,680)*y(k,304) + .420_r8*rxt(k,681)*y(k,307)
352 254840160 : mat(k,3800) = (rxt(k,316)+rxt(k,317))*y(k,55)
353 : mat(k,4091) = mat(k,4091) + .400_r8*rxt(k,408)*y(k,1) + .500_r8*rxt(k,340) &
354 : *y(k,52) + rxt(k,306)*y(k,53) + .300_r8*rxt(k,307)*y(k,54) &
355 : + .800_r8*rxt(k,345)*y(k,76) + .110_r8*rxt(k,347)*y(k,89) &
356 : + .500_r8*rxt(k,311)*y(k,92) + .300_r8*rxt(k,363)*y(k,104) &
357 : + .500_r8*rxt(k,419)*y(k,105) + .400_r8*rxt(k,422)*y(k,107) &
358 : + .590_r8*rxt(k,423)*y(k,108) + rxt(k,348)*y(k,150) + rxt(k,349) &
359 254840160 : *y(k,163) + 2.000_r8*rxt(k,718)*y(k,204) + rxt(k,737)*y(k,206)
360 254840160 : mat(k,943) = rxt(k,366)*y(k,147)
361 : mat(k,1342) = rxt(k,370)*y(k,147) + .800_r8*rxt(k,368)*y(k,253) &
362 254840160 : + .150_r8*rxt(k,369)*y(k,258)
363 254840160 : mat(k,956) = .310_r8*rxt(k,688)*y(k,147) + .080_r8*rxt(k,687)*y(k,258)
364 254840160 : mat(k,2664) = .750_r8*rxt(k,694)*y(k,253)
365 : mat(k,2753) = .270_r8*rxt(k,599)*y(k,238) + .020_r8*rxt(k,631)*y(k,245) &
366 : + .650_r8*rxt(k,639)*y(k,246) + rxt(k,702)*y(k,253) &
367 : + .560_r8*rxt(k,659)*y(k,282) + .040_r8*rxt(k,671)*y(k,290) &
368 254840160 : + .420_r8*rxt(k,679)*y(k,291) + 2.000_r8*rxt(k,743)*y(k,306)
369 254840160 : mat(k,2709) = rxt(k,710)*y(k,253)
370 : mat(k,2799) = .270_r8*rxt(k,600)*y(k,238) + .020_r8*rxt(k,632)*y(k,245) &
371 : + .650_r8*rxt(k,640)*y(k,246) + rxt(k,720)*y(k,253) &
372 : + .560_r8*rxt(k,660)*y(k,282) + .040_r8*rxt(k,672)*y(k,290) &
373 254840160 : + .420_r8*rxt(k,680)*y(k,291) + 2.000_r8*rxt(k,744)*y(k,306)
374 254840160 : mat(k,2248) = rxt(k,729)*y(k,253)
375 : mat(k,2686) = 1.820_r8*rxt(k,741)*y(k,147) + 2.000_r8*rxt(k,742)*y(k,149) &
376 : + 2.000_r8*rxt(k,738)*y(k,252) + 3.000_r8*rxt(k,739)*y(k,253) &
377 : + 1.060_r8*rxt(k,740)*y(k,258) + 2.000_r8*rxt(k,743)*y(k,302) &
378 254840160 : + 2.000_r8*rxt(k,744)*y(k,304) + 2.000_r8*rxt(k,745)*y(k,307)
379 : mat(k,2846) = .270_r8*rxt(k,601)*y(k,238) + .020_r8*rxt(k,633)*y(k,245) &
380 : + .650_r8*rxt(k,641)*y(k,246) + rxt(k,750)*y(k,253) &
381 : + .560_r8*rxt(k,661)*y(k,282) + .040_r8*rxt(k,673)*y(k,290) &
382 254840160 : + .420_r8*rxt(k,681)*y(k,291) + 2.000_r8*rxt(k,745)*y(k,306)
383 263009123 : mat(k,801) = .310_r8*rxt(k,761)*y(k,147) + .040_r8*rxt(k,760)*y(k,258)
384 : end do
385 8168963 : end subroutine nlnmat01
386 8168963 : subroutine nlnmat02( avec_len, mat, y, rxt )
387 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
388 : implicit none
389 : !----------------------------------------------
390 : ! ... dummy arguments
391 : !----------------------------------------------
392 : integer, intent(in) :: avec_len
393 : real(r8), intent(in) :: y(veclen,gas_pcnst)
394 : real(r8), intent(in) :: rxt(veclen,rxntot)
395 : real(r8), intent(inout) :: mat(veclen,nzcnt)
396 : !----------------------------------------------
397 : ! ... local variables
398 : !----------------------------------------------
399 : integer :: k
400 : !----------------------------------------------
401 : ! ... complete matrix entries implicit species
402 : !----------------------------------------------
403 263009123 : do k = 1,avec_len
404 254840160 : mat(k,646) = -(rxt(k,283)*y(k,57) + rxt(k,284)*y(k,295) + rxt(k,294)*y(k,294))
405 254840160 : mat(k,3819) = -rxt(k,283)*y(k,44)
406 254840160 : mat(k,3944) = -rxt(k,284)*y(k,44)
407 254840160 : mat(k,3789) = -rxt(k,294)*y(k,44)
408 254840160 : mat(k,146) = -(rxt(k,285)*y(k,295))
409 254840160 : mat(k,3873) = -rxt(k,285)*y(k,45)
410 254840160 : mat(k,1431) = -(rxt(k,332)*y(k,149) + rxt(k,333)*y(k,295))
411 254840160 : mat(k,3544) = -rxt(k,332)*y(k,46)
412 254840160 : mat(k,4016) = -rxt(k,333)*y(k,46)
413 254840160 : mat(k,755) = .800_r8*rxt(k,408)*y(k,295)
414 254840160 : mat(k,379) = rxt(k,374)*y(k,149)
415 254840160 : mat(k,284) = rxt(k,328)*y(k,295)
416 254840160 : mat(k,360) = .500_r8*rxt(k,329)*y(k,295)
417 254840160 : mat(k,1386) = .500_r8*rxt(k,354)*y(k,158)
418 254840160 : mat(k,2033) = .100_r8*rxt(k,403)*y(k,158)
419 : mat(k,3037) = .400_r8*rxt(k,410)*y(k,236) + rxt(k,327)*y(k,249) &
420 : + .270_r8*rxt(k,357)*y(k,250) + rxt(k,377)*y(k,255) + rxt(k,395) &
421 254840160 : *y(k,288) + rxt(k,366)*y(k,297)
422 254840160 : mat(k,3544) = mat(k,3544) + rxt(k,374)*y(k,16)
423 254840160 : mat(k,3698) = .500_r8*rxt(k,354)*y(k,30) + .100_r8*rxt(k,403)*y(k,132)
424 254840160 : mat(k,1184) = .400_r8*rxt(k,410)*y(k,147)
425 : mat(k,1351) = rxt(k,327)*y(k,147) + 3.200_r8*rxt(k,324)*y(k,249) &
426 254840160 : + .800_r8*rxt(k,325)*y(k,253)
427 254840160 : mat(k,1025) = .270_r8*rxt(k,357)*y(k,147)
428 254840160 : mat(k,3392) = .800_r8*rxt(k,325)*y(k,249)
429 254840160 : mat(k,607) = rxt(k,377)*y(k,147)
430 254840160 : mat(k,3294) = .200_r8*rxt(k,394)*y(k,288)
431 254840160 : mat(k,764) = rxt(k,395)*y(k,147) + .200_r8*rxt(k,394)*y(k,258)
432 : mat(k,4016) = mat(k,4016) + .800_r8*rxt(k,408)*y(k,1) + rxt(k,328)*y(k,27) &
433 254840160 : + .500_r8*rxt(k,329)*y(k,28)
434 254840160 : mat(k,940) = rxt(k,366)*y(k,147)
435 254840160 : mat(k,393) = -(rxt(k,286)*y(k,57) + rxt(k,287)*y(k,295))
436 254840160 : mat(k,3815) = -rxt(k,286)*y(k,47)
437 254840160 : mat(k,3910) = -rxt(k,287)*y(k,47)
438 254840160 : mat(k,123) = -(rxt(k,334)*y(k,295))
439 254840160 : mat(k,3871) = -rxt(k,334)*y(k,48)
440 254840160 : mat(k,2277) = -(rxt(k,373)*y(k,295))
441 254840160 : mat(k,4065) = -rxt(k,373)*y(k,49)
442 254840160 : mat(k,756) = .800_r8*rxt(k,408)*y(k,295)
443 254840160 : mat(k,380) = .500_r8*rxt(k,374)*y(k,149)
444 254840160 : mat(k,829) = .250_r8*rxt(k,682)*y(k,158)
445 : mat(k,3083) = .250_r8*rxt(k,410)*y(k,236) + .090_r8*rxt(k,597)*y(k,238) &
446 : + .080_r8*rxt(k,637)*y(k,246) + .820_r8*rxt(k,357)*y(k,250) &
447 : + .500_r8*rxt(k,377)*y(k,255) + .850_r8*rxt(k,669)*y(k,290) &
448 254840160 : + .330_r8*rxt(k,677)*y(k,291) + .700_r8*rxt(k,731)*y(k,305)
449 : mat(k,3579) = .500_r8*rxt(k,374)*y(k,16) + .120_r8*rxt(k,598)*y(k,238) &
450 : + .110_r8*rxt(k,638)*y(k,246) + .910_r8*rxt(k,670)*y(k,290) &
451 254840160 : + .460_r8*rxt(k,678)*y(k,291) + rxt(k,732)*y(k,305)
452 254840160 : mat(k,3734) = .250_r8*rxt(k,682)*y(k,135)
453 254840160 : mat(k,658) = rxt(k,718)*y(k,295)
454 254840160 : mat(k,1185) = .250_r8*rxt(k,410)*y(k,147)
455 : mat(k,2438) = .090_r8*rxt(k,597)*y(k,147) + .120_r8*rxt(k,598)*y(k,149) &
456 : + .120_r8*rxt(k,594)*y(k,252) + .060_r8*rxt(k,595)*y(k,253) &
457 : + .060_r8*rxt(k,596)*y(k,258) + .120_r8*rxt(k,599)*y(k,302) &
458 254840160 : + .120_r8*rxt(k,600)*y(k,304) + .120_r8*rxt(k,601)*y(k,307)
459 : mat(k,2377) = .080_r8*rxt(k,637)*y(k,147) + .110_r8*rxt(k,638)*y(k,149) &
460 : + .110_r8*rxt(k,634)*y(k,252) + .080_r8*rxt(k,635)*y(k,253) &
461 : + .110_r8*rxt(k,639)*y(k,302) + .110_r8*rxt(k,640)*y(k,304) &
462 254840160 : + .110_r8*rxt(k,641)*y(k,307)
463 254840160 : mat(k,1026) = .820_r8*rxt(k,357)*y(k,147) + .820_r8*rxt(k,355)*y(k,253)
464 : mat(k,2893) = .120_r8*rxt(k,594)*y(k,238) + .110_r8*rxt(k,634)*y(k,246) &
465 : + .910_r8*rxt(k,665)*y(k,290) + .460_r8*rxt(k,674)*y(k,291) &
466 254840160 : + rxt(k,728)*y(k,305)
467 : mat(k,3435) = .060_r8*rxt(k,595)*y(k,238) + .080_r8*rxt(k,635)*y(k,246) &
468 : + .820_r8*rxt(k,355)*y(k,250) + .100_r8*rxt(k,382)*y(k,284) &
469 254840160 : + .740_r8*rxt(k,666)*y(k,290) + rxt(k,729)*y(k,305)
470 254840160 : mat(k,608) = .500_r8*rxt(k,377)*y(k,147)
471 : mat(k,3342) = .060_r8*rxt(k,596)*y(k,238) + .460_r8*rxt(k,667)*y(k,290) &
472 254840160 : + .050_r8*rxt(k,676)*y(k,291) + .150_r8*rxt(k,730)*y(k,305)
473 254840160 : mat(k,1549) = .100_r8*rxt(k,382)*y(k,253)
474 : mat(k,2567) = .850_r8*rxt(k,669)*y(k,147) + .910_r8*rxt(k,670)*y(k,149) &
475 : + .910_r8*rxt(k,665)*y(k,252) + .740_r8*rxt(k,666)*y(k,253) &
476 : + .460_r8*rxt(k,667)*y(k,258) + 2.960_r8*rxt(k,668)*y(k,290) &
477 : + .910_r8*rxt(k,671)*y(k,302) + .910_r8*rxt(k,672)*y(k,304) &
478 254840160 : + .910_r8*rxt(k,673)*y(k,307)
479 : mat(k,2468) = .330_r8*rxt(k,677)*y(k,147) + .460_r8*rxt(k,678)*y(k,149) &
480 : + .460_r8*rxt(k,674)*y(k,252) + .050_r8*rxt(k,676)*y(k,258) &
481 : + .460_r8*rxt(k,679)*y(k,302) + .460_r8*rxt(k,680)*y(k,304) &
482 254840160 : + .460_r8*rxt(k,681)*y(k,307)
483 254840160 : mat(k,4065) = mat(k,4065) + .800_r8*rxt(k,408)*y(k,1) + rxt(k,718)*y(k,204)
484 : mat(k,2728) = .120_r8*rxt(k,599)*y(k,238) + .110_r8*rxt(k,639)*y(k,246) &
485 : + .910_r8*rxt(k,671)*y(k,290) + .460_r8*rxt(k,679)*y(k,291) &
486 254840160 : + rxt(k,733)*y(k,305)
487 : mat(k,2774) = .120_r8*rxt(k,600)*y(k,238) + .110_r8*rxt(k,640)*y(k,246) &
488 : + .910_r8*rxt(k,672)*y(k,290) + .460_r8*rxt(k,680)*y(k,291) &
489 254840160 : + rxt(k,734)*y(k,305)
490 : mat(k,2236) = .700_r8*rxt(k,731)*y(k,147) + rxt(k,732)*y(k,149) + rxt(k,728) &
491 : *y(k,252) + rxt(k,729)*y(k,253) + .150_r8*rxt(k,730)*y(k,258) &
492 : + rxt(k,733)*y(k,302) + rxt(k,734)*y(k,304) + rxt(k,735) &
493 254840160 : *y(k,307)
494 : mat(k,2821) = .120_r8*rxt(k,601)*y(k,238) + .110_r8*rxt(k,641)*y(k,246) &
495 : + .910_r8*rxt(k,673)*y(k,290) + .460_r8*rxt(k,681)*y(k,291) &
496 254840160 : + rxt(k,735)*y(k,305)
497 254840160 : mat(k,1926) = -(rxt(k,360)*y(k,149) + rxt(k,361)*y(k,295))
498 254840160 : mat(k,3565) = -rxt(k,360)*y(k,50)
499 254840160 : mat(k,4052) = -rxt(k,361)*y(k,50)
500 254840160 : mat(k,619) = .380_r8*rxt(k,414)*y(k,295)
501 254840160 : mat(k,632) = .030_r8*rxt(k,415)*y(k,295)
502 254840160 : mat(k,1771) = rxt(k,362)*y(k,295)
503 254840160 : mat(k,1874) = .460_r8*rxt(k,418)*y(k,295)
504 254840160 : mat(k,925) = .700_r8*rxt(k,363)*y(k,295)
505 254840160 : mat(k,916) = .500_r8*rxt(k,419)*y(k,295)
506 254840160 : mat(k,506) = .400_r8*rxt(k,422)*y(k,295)
507 254840160 : mat(k,774) = .720_r8*rxt(k,456)*y(k,295)
508 254840160 : mat(k,2076) = .170_r8*rxt(k,459)*y(k,158)
509 254840160 : mat(k,2108) = .170_r8*rxt(k,469)*y(k,158)
510 254840160 : mat(k,1581) = .170_r8*rxt(k,484)*y(k,158)
511 254840160 : mat(k,2015) = .880_r8*rxt(k,385)*y(k,158)
512 254840160 : mat(k,2040) = .500_r8*rxt(k,403)*y(k,158)
513 254840160 : mat(k,1500) = .440_r8*rxt(k,405)*y(k,295)
514 254840160 : mat(k,2138) = .340_r8*rxt(k,501)*y(k,158)
515 : mat(k,3069) = .170_r8*rxt(k,556)*y(k,254) + .710_r8*rxt(k,503)*y(k,260) &
516 : + .140_r8*rxt(k,535)*y(k,284) + .170_r8*rxt(k,562)*y(k,287) &
517 : + .240_r8*rxt(k,537)*y(k,289) + .120_r8*rxt(k,539)*y(k,293) &
518 : + .400_r8*rxt(k,572)*y(k,314) + .540_r8*rxt(k,578)*y(k,316) &
519 254840160 : + .510_r8*rxt(k,581)*y(k,318)
520 254840160 : mat(k,1482) = rxt(k,364)*y(k,295)
521 : mat(k,3721) = .170_r8*rxt(k,459)*y(k,115) + .170_r8*rxt(k,469)*y(k,118) &
522 : + .170_r8*rxt(k,484)*y(k,121) + .880_r8*rxt(k,385)*y(k,126) &
523 254840160 : + .500_r8*rxt(k,403)*y(k,132) + .340_r8*rxt(k,501)*y(k,139)
524 254840160 : mat(k,2880) = .140_r8*rxt(k,381)*y(k,284) + .250_r8*rxt(k,400)*y(k,289)
525 254840160 : mat(k,3422) = .120_r8*rxt(k,401)*y(k,289) + .500_r8*rxt(k,368)*y(k,298)
526 254840160 : mat(k,907) = .170_r8*rxt(k,556)*y(k,147) + .070_r8*rxt(k,555)*y(k,258)
527 : mat(k,3328) = .070_r8*rxt(k,555)*y(k,254) + .460_r8*rxt(k,421)*y(k,260) &
528 : + .080_r8*rxt(k,383)*y(k,284) + .070_r8*rxt(k,561)*y(k,287) &
529 254840160 : + .050_r8*rxt(k,402)*y(k,289) + .100_r8*rxt(k,499)*y(k,293)
530 254840160 : mat(k,1303) = .710_r8*rxt(k,503)*y(k,147) + .460_r8*rxt(k,421)*y(k,258)
531 : mat(k,1547) = .140_r8*rxt(k,535)*y(k,147) + .140_r8*rxt(k,381)*y(k,252) &
532 254840160 : + .080_r8*rxt(k,383)*y(k,258)
533 254840160 : mat(k,931) = .170_r8*rxt(k,562)*y(k,147) + .070_r8*rxt(k,561)*y(k,258)
534 : mat(k,1512) = .240_r8*rxt(k,537)*y(k,147) + .250_r8*rxt(k,400)*y(k,252) &
535 254840160 : + .120_r8*rxt(k,401)*y(k,253) + .050_r8*rxt(k,402)*y(k,258)
536 254840160 : mat(k,1646) = .120_r8*rxt(k,539)*y(k,147) + .100_r8*rxt(k,499)*y(k,258)
537 : mat(k,4052) = mat(k,4052) + .380_r8*rxt(k,414)*y(k,98) + .030_r8*rxt(k,415) &
538 : *y(k,99) + rxt(k,362)*y(k,102) + .460_r8*rxt(k,418)*y(k,103) &
539 : + .700_r8*rxt(k,363)*y(k,104) + .500_r8*rxt(k,419)*y(k,105) &
540 : + .400_r8*rxt(k,422)*y(k,107) + .720_r8*rxt(k,456)*y(k,114) &
541 254840160 : + .440_r8*rxt(k,405)*y(k,134) + rxt(k,364)*y(k,151)
542 254840160 : mat(k,1339) = .500_r8*rxt(k,368)*y(k,253)
543 254840160 : mat(k,877) = .400_r8*rxt(k,572)*y(k,147)
544 254840160 : mat(k,899) = .540_r8*rxt(k,578)*y(k,147)
545 254840160 : mat(k,538) = .510_r8*rxt(k,581)*y(k,147)
546 254840160 : mat(k,791) = -(rxt(k,339)*y(k,295))
547 254840160 : mat(k,3960) = -rxt(k,339)*y(k,51)
548 254840160 : mat(k,1382) = .120_r8*rxt(k,354)*y(k,158)
549 254840160 : mat(k,3680) = .120_r8*rxt(k,354)*y(k,30)
550 254840160 : mat(k,2857) = .100_r8*rxt(k,336)*y(k,253) + .150_r8*rxt(k,337)*y(k,258)
551 254840160 : mat(k,3384) = .100_r8*rxt(k,336)*y(k,252)
552 254840160 : mat(k,3253) = .150_r8*rxt(k,337)*y(k,252) + .150_r8*rxt(k,390)*y(k,286)
553 254840160 : mat(k,1618) = .150_r8*rxt(k,390)*y(k,258)
554 254840160 : mat(k,702) = -(rxt(k,340)*y(k,295))
555 254840160 : mat(k,3950) = -rxt(k,340)*y(k,52)
556 254840160 : mat(k,2856) = .360_r8*rxt(k,337)*y(k,258)
557 254840160 : mat(k,3245) = .360_r8*rxt(k,337)*y(k,252) + .360_r8*rxt(k,390)*y(k,286)
558 254840160 : mat(k,1617) = .360_r8*rxt(k,390)*y(k,258)
559 254840160 : mat(k,1494) = -(rxt(k,306)*y(k,295))
560 254840160 : mat(k,4024) = -rxt(k,306)*y(k,53)
561 254840160 : mat(k,2291) = .050_r8*rxt(k,587)*y(k,253)
562 254840160 : mat(k,2430) = .170_r8*rxt(k,595)*y(k,253)
563 254840160 : mat(k,2210) = .050_r8*rxt(k,607)*y(k,253)
564 254840160 : mat(k,2402) = .250_r8*rxt(k,615)*y(k,253)
565 254840160 : mat(k,2529) = .030_r8*rxt(k,627)*y(k,253)
566 254840160 : mat(k,1352) = .300_r8*rxt(k,325)*y(k,253)
567 : mat(k,3398) = .050_r8*rxt(k,587)*y(k,237) + .170_r8*rxt(k,595)*y(k,238) &
568 : + .050_r8*rxt(k,607)*y(k,240) + .250_r8*rxt(k,615)*y(k,241) &
569 : + .030_r8*rxt(k,627)*y(k,245) + .300_r8*rxt(k,325)*y(k,249) &
570 : + 2.000_r8*rxt(k,303)*y(k,253) + .250_r8*rxt(k,431)*y(k,262) &
571 : + .250_r8*rxt(k,445)*y(k,267) + .250_r8*rxt(k,449)*y(k,268) &
572 : + .360_r8*rxt(k,475)*y(k,274) + .250_r8*rxt(k,492)*y(k,278) &
573 : + .250_r8*rxt(k,496)*y(k,279) + .090_r8*rxt(k,646)*y(k,281) &
574 : + .250_r8*rxt(k,655)*y(k,282) + .250_r8*rxt(k,401)*y(k,289) &
575 : + .050_r8*rxt(k,666)*y(k,290) + .250_r8*rxt(k,675)*y(k,291) &
576 254840160 : + .500_r8*rxt(k,368)*y(k,298) + .250_r8*rxt(k,694)*y(k,301)
577 254840160 : mat(k,1976) = .250_r8*rxt(k,431)*y(k,253)
578 254840160 : mat(k,1728) = .250_r8*rxt(k,445)*y(k,253)
579 254840160 : mat(k,1751) = .250_r8*rxt(k,449)*y(k,253)
580 254840160 : mat(k,2163) = .360_r8*rxt(k,475)*y(k,253)
581 254840160 : mat(k,1842) = .250_r8*rxt(k,492)*y(k,253)
582 254840160 : mat(k,1811) = .250_r8*rxt(k,496)*y(k,253)
583 254840160 : mat(k,2497) = .090_r8*rxt(k,646)*y(k,253)
584 254840160 : mat(k,2333) = .250_r8*rxt(k,655)*y(k,253)
585 254840160 : mat(k,1506) = .250_r8*rxt(k,401)*y(k,253)
586 254840160 : mat(k,2560) = .050_r8*rxt(k,666)*y(k,253)
587 254840160 : mat(k,2462) = .250_r8*rxt(k,675)*y(k,253)
588 254840160 : mat(k,1337) = .500_r8*rxt(k,368)*y(k,253)
589 254840160 : mat(k,2649) = .250_r8*rxt(k,694)*y(k,253)
590 254840160 : mat(k,449) = -(rxt(k,307)*y(k,295))
591 254840160 : mat(k,3918) = -rxt(k,307)*y(k,54)
592 254840160 : mat(k,3382) = rxt(k,304)*y(k,258)
593 254840160 : mat(k,3232) = rxt(k,304)*y(k,253)
594 : mat(k,2259) = -(rxt(k,219)*y(k,57) + rxt(k,275)*y(k,75) + rxt(k,308)*y(k,295) &
595 254840160 : + (rxt(k,315) + rxt(k,316) + rxt(k,317)) * y(k,294))
596 254840160 : mat(k,3834) = -rxt(k,219)*y(k,55)
597 254840160 : mat(k,1244) = -rxt(k,275)*y(k,55)
598 254840160 : mat(k,4064) = -rxt(k,308)*y(k,55)
599 254840160 : mat(k,3794) = -(rxt(k,315) + rxt(k,316) + rxt(k,317)) * y(k,55)
600 254840160 : mat(k,1391) = .100_r8*rxt(k,354)*y(k,158)
601 254840160 : mat(k,3733) = .100_r8*rxt(k,354)*y(k,30)
602 254840160 : mat(k,462) = -(rxt(k,271)*y(k,294) + rxt(k,288)*y(k,57) + rxt(k,289)*y(k,295))
603 254840160 : mat(k,3787) = -rxt(k,271)*y(k,56)
604 254840160 : mat(k,3816) = -rxt(k,288)*y(k,56)
605 254840160 : mat(k,3920) = -rxt(k,289)*y(k,56)
606 : mat(k,3850) = -(rxt(k,218)*y(k,43) + rxt(k,219)*y(k,55) + rxt(k,220)*y(k,79) &
607 : + rxt(k,221)*y(k,81) + (rxt(k,222) + rxt(k,223)) * y(k,258) &
608 : + rxt(k,224)*y(k,158) + rxt(k,231)*y(k,61) + rxt(k,240)*y(k,96) &
609 : + rxt(k,281)*y(k,42) + rxt(k,283)*y(k,44) + rxt(k,286)*y(k,47) &
610 254840160 : + rxt(k,288)*y(k,56) + rxt(k,330)*y(k,29))
611 254840160 : mat(k,3197) = -rxt(k,218)*y(k,57)
612 254840160 : mat(k,2269) = -rxt(k,219)*y(k,57)
613 254840160 : mat(k,1682) = -rxt(k,220)*y(k,57)
614 254840160 : mat(k,1491) = -rxt(k,221)*y(k,57)
615 254840160 : mat(k,3377) = -(rxt(k,222) + rxt(k,223)) * y(k,57)
616 254840160 : mat(k,3768) = -rxt(k,224)*y(k,57)
617 254840160 : mat(k,1332) = -rxt(k,231)*y(k,57)
618 254840160 : mat(k,1163) = -rxt(k,240)*y(k,57)
619 254840160 : mat(k,499) = -rxt(k,281)*y(k,57)
620 254840160 : mat(k,652) = -rxt(k,283)*y(k,57)
621 254840160 : mat(k,398) = -rxt(k,286)*y(k,57)
622 254840160 : mat(k,466) = -rxt(k,288)*y(k,57)
623 254840160 : mat(k,319) = -rxt(k,330)*y(k,57)
624 254840160 : mat(k,3494) = rxt(k,259)*y(k,60)
625 254840160 : mat(k,122) = 4.000_r8*rxt(k,243)*y(k,294)
626 254840160 : mat(k,163) = rxt(k,244)*y(k,294)
627 254840160 : mat(k,137) = 2.000_r8*rxt(k,245)*y(k,294)
628 254840160 : mat(k,173) = 2.000_r8*rxt(k,246)*y(k,294)
629 254840160 : mat(k,141) = 2.000_r8*rxt(k,247)*y(k,294)
630 254840160 : mat(k,178) = rxt(k,248)*y(k,294)
631 254840160 : mat(k,145) = 2.000_r8*rxt(k,249)*y(k,294)
632 254840160 : mat(k,147) = 3.000_r8*rxt(k,285)*y(k,295)
633 254840160 : mat(k,398) = mat(k,398) + rxt(k,287)*y(k,295)
634 : mat(k,3520) = rxt(k,259)*y(k,20) + (4.000_r8*rxt(k,226)+2.000_r8*rxt(k,228)) &
635 : *y(k,60) + rxt(k,230)*y(k,147) + rxt(k,235)*y(k,157) &
636 : + rxt(k,801)*y(k,174) + rxt(k,225)*y(k,253) + rxt(k,236) &
637 254840160 : *y(k,295)
638 254840160 : mat(k,259) = rxt(k,280)*y(k,294)
639 254840160 : mat(k,254) = rxt(k,295)*y(k,294) + rxt(k,290)*y(k,295)
640 254840160 : mat(k,264) = rxt(k,296)*y(k,294) + rxt(k,291)*y(k,295)
641 254840160 : mat(k,329) = rxt(k,297)*y(k,294) + rxt(k,292)*y(k,295)
642 254840160 : mat(k,3140) = rxt(k,238)*y(k,157) + rxt(k,250)*y(k,294) + rxt(k,239)*y(k,295)
643 254840160 : mat(k,3118) = rxt(k,230)*y(k,60)
644 254840160 : mat(k,3171) = rxt(k,235)*y(k,60) + rxt(k,238)*y(k,87)
645 254840160 : mat(k,1610) = rxt(k,801)*y(k,60)
646 254840160 : mat(k,3470) = rxt(k,225)*y(k,60)
647 : mat(k,3809) = 4.000_r8*rxt(k,243)*y(k,34) + rxt(k,244)*y(k,35) &
648 : + 2.000_r8*rxt(k,245)*y(k,37) + 2.000_r8*rxt(k,246)*y(k,38) &
649 : + 2.000_r8*rxt(k,247)*y(k,39) + rxt(k,248)*y(k,40) &
650 : + 2.000_r8*rxt(k,249)*y(k,41) + rxt(k,280)*y(k,66) + rxt(k,295) &
651 : *y(k,84) + rxt(k,296)*y(k,85) + rxt(k,297)*y(k,86) + rxt(k,250) &
652 254840160 : *y(k,87)
653 : mat(k,4100) = 3.000_r8*rxt(k,285)*y(k,45) + rxt(k,287)*y(k,47) + rxt(k,236) &
654 : *y(k,60) + rxt(k,290)*y(k,84) + rxt(k,291)*y(k,85) + rxt(k,292) &
655 263009123 : *y(k,86) + rxt(k,239)*y(k,87)
656 : end do
657 8168963 : end subroutine nlnmat02
658 8168963 : subroutine nlnmat03( avec_len, mat, y, rxt )
659 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
660 : implicit none
661 : !----------------------------------------------
662 : ! ... dummy arguments
663 : !----------------------------------------------
664 : integer, intent(in) :: avec_len
665 : real(r8), intent(in) :: y(veclen,gas_pcnst)
666 : real(r8), intent(in) :: rxt(veclen,rxntot)
667 : real(r8), intent(inout) :: mat(veclen,nzcnt)
668 : !----------------------------------------------
669 : ! ... local variables
670 : !----------------------------------------------
671 : integer :: k
672 : !----------------------------------------------
673 : ! ... complete matrix entries implicit species
674 : !----------------------------------------------
675 263009123 : do k = 1,avec_len
676 254840160 : mat(k,3812) = rxt(k,231)*y(k,61)
677 254840160 : mat(k,3498) = 2.000_r8*rxt(k,227)*y(k,60)
678 254840160 : mat(k,1323) = rxt(k,231)*y(k,57) + (rxt(k,890)+rxt(k,895)+rxt(k,900))*y(k,87)
679 : mat(k,3121) = (rxt(k,890)+rxt(k,895)+rxt(k,900))*y(k,61) + (rxt(k,885) &
680 254840160 : +rxt(k,891)+rxt(k,896))*y(k,96)
681 254840160 : mat(k,1158) = (rxt(k,885)+rxt(k,891)+rxt(k,896))*y(k,87)
682 254840160 : mat(k,3497) = 2.000_r8*rxt(k,252)*y(k,60)
683 : mat(k,3515) = -(rxt(k,225)*y(k,253) + (4._r8*rxt(k,226) + 4._r8*rxt(k,227) &
684 : + 4._r8*rxt(k,228) + 4._r8*rxt(k,252)) * y(k,60) + rxt(k,229) &
685 : *y(k,258) + rxt(k,230)*y(k,147) + rxt(k,232)*y(k,148) + rxt(k,235) &
686 : *y(k,157) + (rxt(k,236) + rxt(k,237)) * y(k,295) + (rxt(k,258) &
687 254840160 : + rxt(k,259) + rxt(k,260)) * y(k,20) + rxt(k,801)*y(k,174))
688 254840160 : mat(k,3465) = -rxt(k,225)*y(k,60)
689 254840160 : mat(k,3372) = -rxt(k,229)*y(k,60)
690 254840160 : mat(k,3113) = -rxt(k,230)*y(k,60)
691 254840160 : mat(k,3661) = -rxt(k,232)*y(k,60)
692 254840160 : mat(k,3166) = -rxt(k,235)*y(k,60)
693 254840160 : mat(k,4095) = -(rxt(k,236) + rxt(k,237)) * y(k,60)
694 254840160 : mat(k,3489) = -(rxt(k,258) + rxt(k,259) + rxt(k,260)) * y(k,60)
695 254840160 : mat(k,1607) = -rxt(k,801)*y(k,60)
696 254840160 : mat(k,3845) = rxt(k,240)*y(k,96) + rxt(k,224)*y(k,158) + rxt(k,223)*y(k,258)
697 254840160 : mat(k,1329) = rxt(k,233)*y(k,157)
698 254840160 : mat(k,3135) = rxt(k,251)*y(k,294)
699 254840160 : mat(k,1162) = rxt(k,240)*y(k,57) + rxt(k,241)*y(k,157) + rxt(k,242)*y(k,295)
700 254840160 : mat(k,3166) = mat(k,3166) + rxt(k,233)*y(k,61) + rxt(k,241)*y(k,96)
701 254840160 : mat(k,3763) = rxt(k,224)*y(k,57)
702 254840160 : mat(k,346) = rxt(k,806)*y(k,174)
703 254840160 : mat(k,1607) = mat(k,1607) + rxt(k,806)*y(k,160)
704 254840160 : mat(k,3372) = mat(k,3372) + rxt(k,223)*y(k,57)
705 254840160 : mat(k,3804) = rxt(k,251)*y(k,87)
706 254840160 : mat(k,4095) = mat(k,4095) + rxt(k,242)*y(k,96)
707 : mat(k,1325) = -(rxt(k,231)*y(k,57) + rxt(k,233)*y(k,157) + rxt(k,234) &
708 254840160 : *y(k,295) + (rxt(k,890) + rxt(k,895) + rxt(k,900)) * y(k,87))
709 254840160 : mat(k,3822) = -rxt(k,231)*y(k,61)
710 254840160 : mat(k,3150) = -rxt(k,233)*y(k,61)
711 254840160 : mat(k,4009) = -rxt(k,234)*y(k,61)
712 254840160 : mat(k,3125) = -(rxt(k,890) + rxt(k,895) + rxt(k,900)) * y(k,61)
713 254840160 : mat(k,3503) = rxt(k,232)*y(k,148)
714 254840160 : mat(k,3637) = rxt(k,232)*y(k,60)
715 254840160 : mat(k,2057) = -(rxt(k,319)*y(k,295))
716 254840160 : mat(k,4057) = -rxt(k,319)*y(k,63)
717 254840160 : mat(k,1276) = .170_r8*rxt(k,602)*y(k,158)
718 254840160 : mat(k,2198) = rxt(k,254)*y(k,43)
719 254840160 : mat(k,313) = .350_r8*rxt(k,321)*y(k,295)
720 254840160 : mat(k,588) = .630_r8*rxt(k,323)*y(k,158)
721 254840160 : mat(k,1390) = .560_r8*rxt(k,354)*y(k,158)
722 : mat(k,3180) = rxt(k,254)*y(k,18) + rxt(k,218)*y(k,57) + rxt(k,299)*y(k,149) &
723 254840160 : + rxt(k,300)*y(k,157) + rxt(k,301)*y(k,295)
724 254840160 : mat(k,394) = rxt(k,286)*y(k,57)
725 254840160 : mat(k,1927) = rxt(k,360)*y(k,149) + rxt(k,361)*y(k,295)
726 254840160 : mat(k,3832) = rxt(k,218)*y(k,43) + rxt(k,286)*y(k,47)
727 254840160 : mat(k,642) = rxt(k,376)*y(k,295)
728 254840160 : mat(k,1478) = rxt(k,346)*y(k,295)
729 254840160 : mat(k,885) = .110_r8*rxt(k,347)*y(k,295)
730 254840160 : mat(k,621) = 1.060_r8*rxt(k,414)*y(k,295)
731 254840160 : mat(k,634) = .760_r8*rxt(k,415)*y(k,295)
732 254840160 : mat(k,492) = .420_r8*rxt(k,416)*y(k,295)
733 254840160 : mat(k,525) = .230_r8*rxt(k,417)*y(k,295)
734 254840160 : mat(k,1875) = rxt(k,418)*y(k,295)
735 254840160 : mat(k,917) = 1.500_r8*rxt(k,419)*y(k,295)
736 254840160 : mat(k,1259) = .350_r8*rxt(k,423)*y(k,295)
737 254840160 : mat(k,1421) = .350_r8*rxt(k,486)*y(k,158)
738 254840160 : mat(k,1117) = rxt(k,452)*y(k,295)
739 254840160 : mat(k,1796) = rxt(k,454)*y(k,295)
740 254840160 : mat(k,775) = 2.000_r8*rxt(k,456)*y(k,295)
741 254840160 : mat(k,2077) = .060_r8*rxt(k,460)*y(k,295)
742 254840160 : mat(k,2109) = .040_r8*rxt(k,470)*y(k,295)
743 254840160 : mat(k,2017) = .650_r8*rxt(k,385)*y(k,158)
744 254840160 : mat(k,1780) = rxt(k,380)*y(k,295)
745 254840160 : mat(k,1464) = rxt(k,387)*y(k,295)
746 254840160 : mat(k,531) = .250_r8*rxt(k,398)*y(k,295)
747 254840160 : mat(k,2042) = .560_r8*rxt(k,403)*y(k,158)
748 254840160 : mat(k,1918) = .500_r8*rxt(k,399)*y(k,295)
749 254840160 : mat(k,1501) = 1.560_r8*rxt(k,405)*y(k,295)
750 254840160 : mat(k,2139) = .300_r8*rxt(k,501)*y(k,158) + .630_r8*rxt(k,502)*y(k,295)
751 : mat(k,3074) = .170_r8*rxt(k,556)*y(k,254) + .400_r8*rxt(k,503)*y(k,260) &
752 : + .550_r8*rxt(k,509)*y(k,267) + .550_r8*rxt(k,511)*y(k,268) &
753 : + .550_r8*rxt(k,530)*y(k,278) + .550_r8*rxt(k,533)*y(k,279) &
754 : + .860_r8*rxt(k,535)*y(k,284) + .400_r8*rxt(k,559)*y(k,285) &
755 : + .650_r8*rxt(k,392)*y(k,286) + .350_r8*rxt(k,562)*y(k,287) &
756 254840160 : + .750_r8*rxt(k,539)*y(k,293) + .910_r8*rxt(k,741)*y(k,306)
757 : mat(k,3570) = rxt(k,299)*y(k,43) + rxt(k,360)*y(k,50) + .650_r8*rxt(k,393) &
758 254840160 : *y(k,286) + rxt(k,742)*y(k,306)
759 254840160 : mat(k,3154) = rxt(k,300)*y(k,43) + rxt(k,795)*y(k,161)
760 : mat(k,3726) = .170_r8*rxt(k,602)*y(k,4) + .630_r8*rxt(k,323)*y(k,26) &
761 : + .560_r8*rxt(k,354)*y(k,30) + .350_r8*rxt(k,486)*y(k,109) &
762 : + .650_r8*rxt(k,385)*y(k,126) + .560_r8*rxt(k,403)*y(k,132) &
763 254840160 : + .300_r8*rxt(k,501)*y(k,139)
764 254840160 : mat(k,389) = rxt(k,795)*y(k,157) + rxt(k,796)*y(k,295)
765 254840160 : mat(k,657) = 2.000_r8*rxt(k,718)*y(k,295)
766 254840160 : mat(k,666) = rxt(k,737)*y(k,295)
767 254840160 : mat(k,425) = rxt(k,757)*y(k,295)
768 : mat(k,2885) = .550_r8*rxt(k,444)*y(k,267) + .550_r8*rxt(k,448)*y(k,268) &
769 : + .550_r8*rxt(k,491)*y(k,278) + .550_r8*rxt(k,495)*y(k,279) &
770 : + .860_r8*rxt(k,381)*y(k,284) + .650_r8*rxt(k,388)*y(k,286) &
771 254840160 : + rxt(k,738)*y(k,306)
772 : mat(k,3427) = .280_r8*rxt(k,445)*y(k,267) + .280_r8*rxt(k,449)*y(k,268) &
773 : + .280_r8*rxt(k,492)*y(k,278) + .280_r8*rxt(k,496)*y(k,279) &
774 : + .900_r8*rxt(k,382)*y(k,284) + .650_r8*rxt(k,389)*y(k,286) &
775 254840160 : + rxt(k,401)*y(k,289) + rxt(k,739)*y(k,306)
776 254840160 : mat(k,908) = .170_r8*rxt(k,556)*y(k,147) + .070_r8*rxt(k,555)*y(k,258)
777 : mat(k,3333) = .070_r8*rxt(k,555)*y(k,254) + .260_r8*rxt(k,421)*y(k,260) &
778 : + .510_r8*rxt(k,383)*y(k,284) + .160_r8*rxt(k,558)*y(k,285) &
779 : + .320_r8*rxt(k,390)*y(k,286) + .140_r8*rxt(k,561)*y(k,287) &
780 : + .260_r8*rxt(k,402)*y(k,289) + .600_r8*rxt(k,499)*y(k,293) &
781 254840160 : + .530_r8*rxt(k,740)*y(k,306)
782 254840160 : mat(k,1304) = .400_r8*rxt(k,503)*y(k,147) + .260_r8*rxt(k,421)*y(k,258)
783 : mat(k,1738) = .550_r8*rxt(k,509)*y(k,147) + .550_r8*rxt(k,444)*y(k,252) &
784 254840160 : + .280_r8*rxt(k,445)*y(k,253)
785 : mat(k,1760) = .550_r8*rxt(k,511)*y(k,147) + .550_r8*rxt(k,448)*y(k,252) &
786 254840160 : + .280_r8*rxt(k,449)*y(k,253)
787 : mat(k,1855) = .550_r8*rxt(k,530)*y(k,147) + .550_r8*rxt(k,491)*y(k,252) &
788 254840160 : + .280_r8*rxt(k,492)*y(k,253)
789 : mat(k,1823) = .550_r8*rxt(k,533)*y(k,147) + .550_r8*rxt(k,495)*y(k,252) &
790 254840160 : + .280_r8*rxt(k,496)*y(k,253)
791 : mat(k,1548) = .860_r8*rxt(k,535)*y(k,147) + .860_r8*rxt(k,381)*y(k,252) &
792 254840160 : + .900_r8*rxt(k,382)*y(k,253) + .510_r8*rxt(k,383)*y(k,258)
793 254840160 : mat(k,864) = .400_r8*rxt(k,559)*y(k,147) + .160_r8*rxt(k,558)*y(k,258)
794 : mat(k,1622) = .650_r8*rxt(k,392)*y(k,147) + .650_r8*rxt(k,393)*y(k,149) &
795 : + .650_r8*rxt(k,388)*y(k,252) + .650_r8*rxt(k,389)*y(k,253) &
796 254840160 : + .320_r8*rxt(k,390)*y(k,258) + 2.600_r8*rxt(k,391)*y(k,286)
797 254840160 : mat(k,932) = .350_r8*rxt(k,562)*y(k,147) + .140_r8*rxt(k,561)*y(k,258)
798 254840160 : mat(k,1513) = rxt(k,401)*y(k,253) + .260_r8*rxt(k,402)*y(k,258)
799 254840160 : mat(k,1647) = .750_r8*rxt(k,539)*y(k,147) + .600_r8*rxt(k,499)*y(k,258)
800 : mat(k,4057) = mat(k,4057) + .350_r8*rxt(k,321)*y(k,25) + rxt(k,301)*y(k,43) &
801 : + rxt(k,361)*y(k,50) + rxt(k,376)*y(k,68) + rxt(k,346)*y(k,77) &
802 : + .110_r8*rxt(k,347)*y(k,89) + 1.060_r8*rxt(k,414)*y(k,98) &
803 : + .760_r8*rxt(k,415)*y(k,99) + .420_r8*rxt(k,416)*y(k,100) &
804 : + .230_r8*rxt(k,417)*y(k,101) + rxt(k,418)*y(k,103) &
805 : + 1.500_r8*rxt(k,419)*y(k,105) + .350_r8*rxt(k,423)*y(k,108) &
806 : + rxt(k,452)*y(k,111) + rxt(k,454)*y(k,112) &
807 : + 2.000_r8*rxt(k,456)*y(k,114) + .060_r8*rxt(k,460)*y(k,115) &
808 : + .040_r8*rxt(k,470)*y(k,118) + rxt(k,380)*y(k,127) + rxt(k,387) &
809 : *y(k,128) + .250_r8*rxt(k,398)*y(k,131) + .500_r8*rxt(k,399) &
810 : *y(k,133) + 1.560_r8*rxt(k,405)*y(k,134) + .630_r8*rxt(k,502) &
811 : *y(k,139) + rxt(k,796)*y(k,161) + 2.000_r8*rxt(k,718)*y(k,204) &
812 254840160 : + rxt(k,737)*y(k,206) + rxt(k,757)*y(k,210)
813 254840160 : mat(k,2725) = rxt(k,743)*y(k,306)
814 254840160 : mat(k,2771) = rxt(k,744)*y(k,306)
815 : mat(k,2674) = .910_r8*rxt(k,741)*y(k,147) + rxt(k,742)*y(k,149) + rxt(k,738) &
816 : *y(k,252) + rxt(k,739)*y(k,253) + .530_r8*rxt(k,740)*y(k,258) &
817 : + rxt(k,743)*y(k,302) + rxt(k,744)*y(k,304) + rxt(k,745) &
818 254840160 : *y(k,307)
819 254840160 : mat(k,2818) = rxt(k,745)*y(k,306)
820 254840160 : mat(k,1098) = .190_r8*rxt(k,642)*y(k,158)
821 254840160 : mat(k,1388) = .200_r8*rxt(k,354)*y(k,158)
822 254840160 : mat(k,792) = rxt(k,339)*y(k,295)
823 254840160 : mat(k,703) = .500_r8*rxt(k,340)*y(k,295)
824 254840160 : mat(k,2056) = rxt(k,319)*y(k,295)
825 254840160 : mat(k,1711) = .800_r8*rxt(k,345)*y(k,295)
826 254840160 : mat(k,1477) = rxt(k,346)*y(k,295)
827 254840160 : mat(k,1378) = rxt(k,310)*y(k,295)
828 254840160 : mat(k,618) = .540_r8*rxt(k,414)*y(k,295)
829 254840160 : mat(k,631) = .540_r8*rxt(k,415)*y(k,295)
830 254840160 : mat(k,1868) = .360_r8*rxt(k,418)*y(k,295)
831 254840160 : mat(k,1254) = .190_r8*rxt(k,423)*y(k,295)
832 254840160 : mat(k,1412) = .420_r8*rxt(k,486)*y(k,158)
833 254840160 : mat(k,2036) = .100_r8*rxt(k,403)*y(k,158)
834 254840160 : mat(k,2130) = .450_r8*rxt(k,502)*y(k,295)
835 : mat(k,3051) = rxt(k,338)*y(k,252) + rxt(k,392)*y(k,286) + rxt(k,704)*y(k,302) &
836 254840160 : + rxt(k,722)*y(k,304) + rxt(k,752)*y(k,307)
837 : mat(k,3551) = rxt(k,393)*y(k,286) + rxt(k,705)*y(k,302) + rxt(k,723)*y(k,304) &
838 254840160 : + rxt(k,753)*y(k,307)
839 254840160 : mat(k,1455) = rxt(k,348)*y(k,295)
840 : mat(k,3706) = .190_r8*rxt(k,642)*y(k,17) + .200_r8*rxt(k,354)*y(k,30) &
841 254840160 : + .420_r8*rxt(k,486)*y(k,109) + .100_r8*rxt(k,403)*y(k,132)
842 254840160 : mat(k,656) = 2.000_r8*rxt(k,718)*y(k,295)
843 254840160 : mat(k,665) = 3.000_r8*rxt(k,737)*y(k,295)
844 254840160 : mat(k,779) = .290_r8*rxt(k,748)*y(k,295)
845 254840160 : mat(k,364) = .290_r8*rxt(k,746)*y(k,295)
846 254840160 : mat(k,369) = .290_r8*rxt(k,747)*y(k,295)
847 : mat(k,2294) = rxt(k,586)*y(k,252) + rxt(k,591)*y(k,302) + rxt(k,592)*y(k,304) &
848 254840160 : + rxt(k,593)*y(k,307)
849 : mat(k,2433) = rxt(k,594)*y(k,252) + rxt(k,599)*y(k,302) + rxt(k,600)*y(k,304) &
850 254840160 : + rxt(k,601)*y(k,307)
851 : mat(k,2211) = rxt(k,606)*y(k,252) + rxt(k,611)*y(k,302) + rxt(k,612)*y(k,304) &
852 254840160 : + rxt(k,613)*y(k,307)
853 : mat(k,2404) = rxt(k,614)*y(k,252) + rxt(k,619)*y(k,302) + rxt(k,620)*y(k,304) &
854 254840160 : + rxt(k,621)*y(k,307)
855 : mat(k,2532) = rxt(k,626)*y(k,252) + rxt(k,631)*y(k,302) + rxt(k,632)*y(k,304) &
856 254840160 : + rxt(k,633)*y(k,307)
857 : mat(k,2372) = rxt(k,634)*y(k,252) + rxt(k,639)*y(k,302) + rxt(k,640)*y(k,304) &
858 254840160 : + rxt(k,641)*y(k,307)
859 : mat(k,2865) = rxt(k,338)*y(k,147) + rxt(k,586)*y(k,237) + rxt(k,594)*y(k,238) &
860 : + rxt(k,606)*y(k,240) + rxt(k,614)*y(k,241) + rxt(k,626) &
861 : *y(k,245) + rxt(k,634)*y(k,246) + 4.000_r8*rxt(k,335)*y(k,252) &
862 : + .900_r8*rxt(k,336)*y(k,253) + .490_r8*rxt(k,337)*y(k,258) &
863 : + rxt(k,424)*y(k,261) + rxt(k,430)*y(k,262) + rxt(k,444) &
864 : *y(k,267) + rxt(k,448)*y(k,268) + rxt(k,474)*y(k,274) &
865 : + rxt(k,491)*y(k,278) + rxt(k,495)*y(k,279) + rxt(k,645) &
866 : *y(k,281) + rxt(k,654)*y(k,282) + rxt(k,381)*y(k,284) &
867 : + 2.000_r8*rxt(k,388)*y(k,286) + rxt(k,400)*y(k,289) &
868 : + rxt(k,665)*y(k,290) + rxt(k,674)*y(k,291) + rxt(k,693) &
869 : *y(k,301) + 2.000_r8*rxt(k,701)*y(k,302) + rxt(k,709)*y(k,303) &
870 : + 2.000_r8*rxt(k,719)*y(k,304) + rxt(k,728)*y(k,305) &
871 254840160 : + rxt(k,738)*y(k,306) + 2.000_r8*rxt(k,749)*y(k,307)
872 : mat(k,3404) = .900_r8*rxt(k,336)*y(k,252) + rxt(k,389)*y(k,286) + rxt(k,702) &
873 254840160 : *y(k,302) + rxt(k,720)*y(k,304) + rxt(k,750)*y(k,307)
874 : mat(k,3309) = .490_r8*rxt(k,337)*y(k,252) + .490_r8*rxt(k,390)*y(k,286) &
875 : + .490_r8*rxt(k,703)*y(k,302) + .490_r8*rxt(k,721)*y(k,304) &
876 254840160 : + .490_r8*rxt(k,751)*y(k,307)
877 254840160 : mat(k,1941) = rxt(k,424)*y(k,252)
878 254840160 : mat(k,1978) = rxt(k,430)*y(k,252)
879 254840160 : mat(k,1730) = rxt(k,444)*y(k,252)
880 254840160 : mat(k,1752) = rxt(k,448)*y(k,252)
881 254840160 : mat(k,2165) = rxt(k,474)*y(k,252)
882 254840160 : mat(k,1845) = rxt(k,491)*y(k,252)
883 254840160 : mat(k,1813) = rxt(k,495)*y(k,252)
884 : mat(k,2500) = rxt(k,645)*y(k,252) + rxt(k,651)*y(k,302) + rxt(k,652)*y(k,304) &
885 254840160 : + rxt(k,653)*y(k,307)
886 : mat(k,2334) = rxt(k,654)*y(k,252) + rxt(k,659)*y(k,302) + rxt(k,660)*y(k,304) &
887 254840160 : + rxt(k,661)*y(k,307)
888 254840160 : mat(k,1544) = rxt(k,381)*y(k,252)
889 : mat(k,1619) = rxt(k,392)*y(k,147) + rxt(k,393)*y(k,149) + 2.000_r8*rxt(k,388) &
890 : *y(k,252) + rxt(k,389)*y(k,253) + .490_r8*rxt(k,390)*y(k,258) &
891 254840160 : + 4.000_r8*rxt(k,391)*y(k,286)
892 254840160 : mat(k,1509) = rxt(k,400)*y(k,252)
893 : mat(k,2563) = rxt(k,665)*y(k,252) + rxt(k,671)*y(k,302) + rxt(k,672)*y(k,304) &
894 254840160 : + rxt(k,673)*y(k,307)
895 : mat(k,2464) = rxt(k,674)*y(k,252) + rxt(k,679)*y(k,302) + rxt(k,680)*y(k,304) &
896 254840160 : + rxt(k,681)*y(k,307)
897 : mat(k,4033) = rxt(k,339)*y(k,51) + .500_r8*rxt(k,340)*y(k,52) + rxt(k,319) &
898 : *y(k,63) + .800_r8*rxt(k,345)*y(k,76) + rxt(k,346)*y(k,77) &
899 : + rxt(k,310)*y(k,90) + .540_r8*rxt(k,414)*y(k,98) &
900 : + .540_r8*rxt(k,415)*y(k,99) + .360_r8*rxt(k,418)*y(k,103) &
901 : + .190_r8*rxt(k,423)*y(k,108) + .450_r8*rxt(k,502)*y(k,139) &
902 : + rxt(k,348)*y(k,150) + 2.000_r8*rxt(k,718)*y(k,204) &
903 : + 3.000_r8*rxt(k,737)*y(k,206) + .290_r8*rxt(k,748)*y(k,207) &
904 254840160 : + .290_r8*rxt(k,746)*y(k,208) + .290_r8*rxt(k,747)*y(k,209)
905 : mat(k,2651) = rxt(k,693)*y(k,252) + rxt(k,698)*y(k,302) + rxt(k,699)*y(k,304) &
906 254840160 : + rxt(k,700)*y(k,307)
907 : mat(k,2721) = rxt(k,704)*y(k,147) + rxt(k,705)*y(k,149) + rxt(k,591)*y(k,237) &
908 : + rxt(k,599)*y(k,238) + rxt(k,611)*y(k,240) + rxt(k,619) &
909 : *y(k,241) + rxt(k,631)*y(k,245) + rxt(k,639)*y(k,246) &
910 : + 2.000_r8*rxt(k,701)*y(k,252) + rxt(k,702)*y(k,253) &
911 : + .490_r8*rxt(k,703)*y(k,258) + rxt(k,651)*y(k,281) + rxt(k,659) &
912 : *y(k,282) + rxt(k,671)*y(k,290) + rxt(k,679)*y(k,291) &
913 : + rxt(k,698)*y(k,301) + 4.000_r8*rxt(k,706)*y(k,302) &
914 : + rxt(k,714)*y(k,303) + 2.000_r8*rxt(k,724)*y(k,304) &
915 : + rxt(k,733)*y(k,305) + rxt(k,743)*y(k,306) &
916 254840160 : + 2.000_r8*rxt(k,707)*y(k,307)
917 : mat(k,2694) = rxt(k,709)*y(k,252) + rxt(k,714)*y(k,302) + rxt(k,715)*y(k,304) &
918 254840160 : + rxt(k,716)*y(k,307)
919 : mat(k,2767) = rxt(k,722)*y(k,147) + rxt(k,723)*y(k,149) + rxt(k,592)*y(k,237) &
920 : + rxt(k,600)*y(k,238) + rxt(k,612)*y(k,240) + rxt(k,620) &
921 : *y(k,241) + rxt(k,632)*y(k,245) + rxt(k,640)*y(k,246) &
922 : + 2.000_r8*rxt(k,719)*y(k,252) + rxt(k,720)*y(k,253) &
923 : + .490_r8*rxt(k,721)*y(k,258) + rxt(k,652)*y(k,281) + rxt(k,660) &
924 : *y(k,282) + rxt(k,672)*y(k,290) + rxt(k,680)*y(k,291) &
925 : + rxt(k,699)*y(k,301) + 2.000_r8*rxt(k,724)*y(k,302) &
926 : + rxt(k,715)*y(k,303) + 4.000_r8*rxt(k,725)*y(k,304) &
927 : + rxt(k,734)*y(k,305) + rxt(k,744)*y(k,306) &
928 254840160 : + 2.000_r8*rxt(k,726)*y(k,307)
929 : mat(k,2232) = rxt(k,728)*y(k,252) + rxt(k,733)*y(k,302) + rxt(k,734)*y(k,304) &
930 254840160 : + rxt(k,735)*y(k,307)
931 : mat(k,2672) = rxt(k,738)*y(k,252) + rxt(k,743)*y(k,302) + rxt(k,744)*y(k,304) &
932 254840160 : + rxt(k,745)*y(k,307)
933 : mat(k,2814) = rxt(k,752)*y(k,147) + rxt(k,753)*y(k,149) + rxt(k,593)*y(k,237) &
934 : + rxt(k,601)*y(k,238) + rxt(k,613)*y(k,240) + rxt(k,621) &
935 : *y(k,241) + rxt(k,633)*y(k,245) + rxt(k,641)*y(k,246) &
936 : + 2.000_r8*rxt(k,749)*y(k,252) + rxt(k,750)*y(k,253) &
937 : + .490_r8*rxt(k,751)*y(k,258) + rxt(k,653)*y(k,281) + rxt(k,661) &
938 : *y(k,282) + rxt(k,673)*y(k,290) + rxt(k,681)*y(k,291) &
939 : + rxt(k,700)*y(k,301) + 2.000_r8*rxt(k,707)*y(k,302) &
940 : + rxt(k,716)*y(k,303) + 2.000_r8*rxt(k,726)*y(k,304) &
941 : + rxt(k,735)*y(k,305) + rxt(k,745)*y(k,306) &
942 263009123 : + 4.000_r8*rxt(k,754)*y(k,307)
943 : end do
944 8168963 : end subroutine nlnmat03
945 8168963 : subroutine nlnmat04( avec_len, mat, y, rxt )
946 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
947 : implicit none
948 : !----------------------------------------------
949 : ! ... dummy arguments
950 : !----------------------------------------------
951 : integer, intent(in) :: avec_len
952 : real(r8), intent(in) :: y(veclen,gas_pcnst)
953 : real(r8), intent(in) :: rxt(veclen,rxntot)
954 : real(r8), intent(inout) :: mat(veclen,nzcnt)
955 : !----------------------------------------------
956 : ! ... local variables
957 : !----------------------------------------------
958 : integer :: k
959 : !----------------------------------------------
960 : ! ... complete matrix entries implicit species
961 : !----------------------------------------------
962 263009123 : do k = 1,avec_len
963 254840160 : mat(k,248) = -(rxt(k,279)*y(k,294))
964 254840160 : mat(k,3782) = -rxt(k,279)*y(k,65)
965 254840160 : mat(k,160) = rxt(k,244)*y(k,294)
966 254840160 : mat(k,165) = rxt(k,270)*y(k,294)
967 254840160 : mat(k,170) = rxt(k,246)*y(k,294)
968 254840160 : mat(k,139) = 2.000_r8*rxt(k,247)*y(k,294)
969 254840160 : mat(k,175) = 2.000_r8*rxt(k,248)*y(k,294)
970 254840160 : mat(k,143) = rxt(k,249)*y(k,294)
971 254840160 : mat(k,127) = 2.000_r8*rxt(k,272)*y(k,294)
972 254840160 : mat(k,260) = rxt(k,296)*y(k,294) + rxt(k,291)*y(k,295)
973 254840160 : mat(k,325) = rxt(k,297)*y(k,294) + rxt(k,292)*y(k,295)
974 : mat(k,3782) = mat(k,3782) + rxt(k,244)*y(k,35) + rxt(k,270)*y(k,36) &
975 : + rxt(k,246)*y(k,38) + 2.000_r8*rxt(k,247)*y(k,39) &
976 : + 2.000_r8*rxt(k,248)*y(k,40) + rxt(k,249)*y(k,41) &
977 : + 2.000_r8*rxt(k,272)*y(k,80) + rxt(k,296)*y(k,85) + rxt(k,297) &
978 254840160 : *y(k,86)
979 254840160 : mat(k,3886) = rxt(k,291)*y(k,85) + rxt(k,292)*y(k,86)
980 254840160 : mat(k,256) = -(rxt(k,280)*y(k,294))
981 254840160 : mat(k,3784) = -rxt(k,280)*y(k,66)
982 254840160 : mat(k,135) = rxt(k,245)*y(k,294)
983 254840160 : mat(k,171) = rxt(k,246)*y(k,294)
984 254840160 : mat(k,252) = rxt(k,295)*y(k,294) + rxt(k,290)*y(k,295)
985 : mat(k,3784) = mat(k,3784) + rxt(k,245)*y(k,37) + rxt(k,246)*y(k,38) &
986 254840160 : + rxt(k,295)*y(k,84)
987 254840160 : mat(k,3888) = rxt(k,290)*y(k,84)
988 254840160 : mat(k,218) = -(rxt(k,554)*y(k,295))
989 254840160 : mat(k,3881) = -rxt(k,554)*y(k,67)
990 254840160 : mat(k,212) = .180_r8*rxt(k,574)*y(k,295)
991 254840160 : mat(k,3881) = mat(k,3881) + .180_r8*rxt(k,574)*y(k,228)
992 254840160 : mat(k,639) = -(rxt(k,376)*y(k,295))
993 254840160 : mat(k,3943) = -rxt(k,376)*y(k,68)
994 254840160 : mat(k,614) = .070_r8*rxt(k,414)*y(k,295)
995 254840160 : mat(k,627) = .170_r8*rxt(k,415)*y(k,295)
996 : mat(k,3943) = mat(k,3943) + .070_r8*rxt(k,414)*y(k,98) + .170_r8*rxt(k,415) &
997 254840160 : *y(k,99)
998 254840160 : mat(k,304) = -(rxt(k,793)*y(k,149) + (rxt(k,794) + rxt(k,808)) * y(k,295))
999 254840160 : mat(k,3526) = -rxt(k,793)*y(k,69)
1000 254840160 : mat(k,3897) = -(rxt(k,794) + rxt(k,808)) * y(k,69)
1001 254840160 : mat(k,853) = rxt(k,341)*y(k,258)
1002 254840160 : mat(k,3216) = rxt(k,341)*y(k,257)
1003 : mat(k,1242) = -(rxt(k,275)*y(k,55) + rxt(k,276)*y(k,79) + rxt(k,277)*y(k,319) &
1004 254840160 : + rxt(k,278)*y(k,93))
1005 254840160 : mat(k,2255) = -rxt(k,275)*y(k,75)
1006 254840160 : mat(k,1672) = -rxt(k,276)*y(k,75)
1007 254840160 : mat(k,4107) = -rxt(k,277)*y(k,75)
1008 254840160 : mat(k,2945) = -rxt(k,278)*y(k,75)
1009 254840160 : mat(k,166) = rxt(k,270)*y(k,294)
1010 254840160 : mat(k,176) = rxt(k,248)*y(k,294)
1011 254840160 : mat(k,249) = 2.000_r8*rxt(k,279)*y(k,294)
1012 254840160 : mat(k,257) = rxt(k,280)*y(k,294)
1013 : mat(k,3791) = rxt(k,270)*y(k,36) + rxt(k,248)*y(k,40) + 2.000_r8*rxt(k,279) &
1014 254840160 : *y(k,65) + rxt(k,280)*y(k,66)
1015 254840160 : mat(k,1712) = -(rxt(k,345)*y(k,295))
1016 254840160 : mat(k,4040) = -rxt(k,345)*y(k,76)
1017 254840160 : mat(k,2070) = .830_r8*rxt(k,459)*y(k,158)
1018 254840160 : mat(k,920) = rxt(k,488)*y(k,295)
1019 254840160 : mat(k,1892) = .070_r8*rxt(k,490)*y(k,295)
1020 : mat(k,3057) = .570_r8*rxt(k,503)*y(k,260) + .940_r8*rxt(k,513)*y(k,269) &
1021 : + .730_r8*rxt(k,515)*y(k,270) + .340_r8*rxt(k,521)*y(k,273) &
1022 254840160 : + .400_r8*rxt(k,525)*y(k,275) + .760_r8*rxt(k,537)*y(k,289)
1023 254840160 : mat(k,3709) = .830_r8*rxt(k,459)*y(k,115)
1024 254840160 : mat(k,2869) = .750_r8*rxt(k,400)*y(k,289)
1025 254840160 : mat(k,3410) = .380_r8*rxt(k,401)*y(k,289)
1026 : mat(k,3316) = .370_r8*rxt(k,421)*y(k,260) + .550_r8*rxt(k,457)*y(k,269) &
1027 : + .460_r8*rxt(k,461)*y(k,270) + .150_r8*rxt(k,471)*y(k,273) &
1028 254840160 : + .280_r8*rxt(k,479)*y(k,275) + .360_r8*rxt(k,402)*y(k,289)
1029 254840160 : mat(k,1300) = .570_r8*rxt(k,503)*y(k,147) + .370_r8*rxt(k,421)*y(k,258)
1030 254840160 : mat(k,1125) = .940_r8*rxt(k,513)*y(k,147) + .550_r8*rxt(k,457)*y(k,258)
1031 254840160 : mat(k,1169) = .730_r8*rxt(k,515)*y(k,147) + .460_r8*rxt(k,461)*y(k,258)
1032 254840160 : mat(k,1445) = .340_r8*rxt(k,521)*y(k,147) + .150_r8*rxt(k,471)*y(k,258)
1033 254840160 : mat(k,1314) = .400_r8*rxt(k,525)*y(k,147) + .280_r8*rxt(k,479)*y(k,258)
1034 : mat(k,1510) = .760_r8*rxt(k,537)*y(k,147) + .750_r8*rxt(k,400)*y(k,252) &
1035 254840160 : + .380_r8*rxt(k,401)*y(k,253) + .360_r8*rxt(k,402)*y(k,258)
1036 254840160 : mat(k,4040) = mat(k,4040) + rxt(k,488)*y(k,122) + .070_r8*rxt(k,490)*y(k,123)
1037 254840160 : mat(k,1476) = -(rxt(k,346)*y(k,295))
1038 254840160 : mat(k,4021) = -rxt(k,346)*y(k,77)
1039 254840160 : mat(k,312) = .650_r8*rxt(k,321)*y(k,295)
1040 254840160 : mat(k,1710) = .200_r8*rxt(k,345)*y(k,295)
1041 254840160 : mat(k,884) = .890_r8*rxt(k,347)*y(k,295)
1042 254840160 : mat(k,2064) = .170_r8*rxt(k,459)*y(k,158)
1043 254840160 : mat(k,2096) = .170_r8*rxt(k,469)*y(k,158)
1044 254840160 : mat(k,1568) = .170_r8*rxt(k,484)*y(k,158)
1045 254840160 : mat(k,2127) = .660_r8*rxt(k,501)*y(k,158)
1046 : mat(k,3042) = rxt(k,545)*y(k,243) + .230_r8*rxt(k,503)*y(k,260) &
1047 : + .400_r8*rxt(k,559)*y(k,285) + .170_r8*rxt(k,562)*y(k,287) &
1048 : + .130_r8*rxt(k,539)*y(k,293) + .700_r8*rxt(k,565)*y(k,296) &
1049 : + .600_r8*rxt(k,572)*y(k,314) + .340_r8*rxt(k,578)*y(k,316) &
1050 254840160 : + .170_r8*rxt(k,581)*y(k,318)
1051 : mat(k,3700) = .170_r8*rxt(k,459)*y(k,115) + .170_r8*rxt(k,469)*y(k,118) &
1052 254840160 : + .170_r8*rxt(k,484)*y(k,121) + .660_r8*rxt(k,501)*y(k,139)
1053 254840160 : mat(k,516) = rxt(k,545)*y(k,147)
1054 : mat(k,3299) = .150_r8*rxt(k,421)*y(k,260) + .160_r8*rxt(k,558)*y(k,285) &
1055 254840160 : + .070_r8*rxt(k,561)*y(k,287) + .100_r8*rxt(k,499)*y(k,293)
1056 254840160 : mat(k,1299) = .230_r8*rxt(k,503)*y(k,147) + .150_r8*rxt(k,421)*y(k,258)
1057 254840160 : mat(k,863) = .400_r8*rxt(k,559)*y(k,147) + .160_r8*rxt(k,558)*y(k,258)
1058 254840160 : mat(k,930) = .170_r8*rxt(k,562)*y(k,147) + .070_r8*rxt(k,561)*y(k,258)
1059 254840160 : mat(k,1637) = .130_r8*rxt(k,539)*y(k,147) + .100_r8*rxt(k,499)*y(k,258)
1060 : mat(k,4021) = mat(k,4021) + .650_r8*rxt(k,321)*y(k,25) + .200_r8*rxt(k,345) &
1061 254840160 : *y(k,76) + .890_r8*rxt(k,347)*y(k,89)
1062 254840160 : mat(k,457) = .700_r8*rxt(k,565)*y(k,147)
1063 254840160 : mat(k,876) = .600_r8*rxt(k,572)*y(k,147)
1064 254840160 : mat(k,898) = .340_r8*rxt(k,578)*y(k,147)
1065 254840160 : mat(k,537) = .170_r8*rxt(k,581)*y(k,147)
1066 : mat(k,2931) = -((rxt(k,178) + rxt(k,179) + rxt(k,180)) * y(k,258) + rxt(k,184) &
1067 254840160 : *y(k,158))
1068 254840160 : mat(k,3363) = -(rxt(k,178) + rxt(k,179) + rxt(k,180)) * y(k,78)
1069 254840160 : mat(k,3754) = -rxt(k,184)*y(k,78)
1070 254840160 : mat(k,3183) = rxt(k,301)*y(k,295)
1071 254840160 : mat(k,2260) = rxt(k,316)*y(k,294)
1072 254840160 : mat(k,3836) = rxt(k,220)*y(k,79)
1073 254840160 : mat(k,1245) = rxt(k,276)*y(k,79)
1074 : mat(k,1675) = rxt(k,220)*y(k,57) + rxt(k,276)*y(k,75) + rxt(k,176)*y(k,157) &
1075 254840160 : + rxt(k,168)*y(k,294) + rxt(k,185)*y(k,295)
1076 254840160 : mat(k,1152) = rxt(k,274)*y(k,294)
1077 254840160 : mat(k,3127) = rxt(k,251)*y(k,294)
1078 254840160 : mat(k,478) = rxt(k,206)*y(k,295)
1079 254840160 : mat(k,3157) = rxt(k,176)*y(k,79) + rxt(k,188)*y(k,295)
1080 254840160 : mat(k,390) = rxt(k,796)*y(k,295)
1081 254840160 : mat(k,545) = rxt(k,802)*y(k,295)
1082 254840160 : mat(k,1602) = rxt(k,807)*y(k,295)
1083 : mat(k,3795) = rxt(k,316)*y(k,55) + rxt(k,168)*y(k,79) + rxt(k,274)*y(k,83) &
1084 254840160 : + rxt(k,251)*y(k,87)
1085 : mat(k,4086) = rxt(k,301)*y(k,43) + rxt(k,185)*y(k,79) + rxt(k,206)*y(k,136) &
1086 : + rxt(k,188)*y(k,157) + rxt(k,796)*y(k,161) + rxt(k,802) &
1087 254840160 : *y(k,172) + rxt(k,807)*y(k,174)
1088 : mat(k,1673) = -(rxt(k,168)*y(k,294) + rxt(k,176)*y(k,157) + rxt(k,185) &
1089 254840160 : *y(k,295) + rxt(k,220)*y(k,57) + rxt(k,276)*y(k,75))
1090 254840160 : mat(k,3792) = -rxt(k,168)*y(k,79)
1091 254840160 : mat(k,3153) = -rxt(k,176)*y(k,79)
1092 254840160 : mat(k,4037) = -rxt(k,185)*y(k,79)
1093 254840160 : mat(k,3830) = -rxt(k,220)*y(k,79)
1094 254840160 : mat(k,1243) = -rxt(k,276)*y(k,79)
1095 254840160 : mat(k,2257) = rxt(k,317)*y(k,294)
1096 254840160 : mat(k,2929) = rxt(k,178)*y(k,258)
1097 254840160 : mat(k,3313) = rxt(k,178)*y(k,78)
1098 254840160 : mat(k,3792) = mat(k,3792) + rxt(k,317)*y(k,55)
1099 254840160 : mat(k,126) = -(rxt(k,272)*y(k,294))
1100 254840160 : mat(k,3772) = -rxt(k,272)*y(k,80)
1101 : mat(k,1487) = -(rxt(k,177)*y(k,157) + rxt(k,186)*y(k,295) + rxt(k,221) &
1102 254840160 : *y(k,57))
1103 254840160 : mat(k,3151) = -rxt(k,177)*y(k,81)
1104 254840160 : mat(k,4023) = -rxt(k,186)*y(k,81)
1105 254840160 : mat(k,3827) = -rxt(k,221)*y(k,81)
1106 254840160 : mat(k,1274) = .220_r8*rxt(k,602)*y(k,158)
1107 254840160 : mat(k,1042) = .170_r8*rxt(k,622)*y(k,158)
1108 254840160 : mat(k,1097) = .320_r8*rxt(k,642)*y(k,158)
1109 254840160 : mat(k,1411) = .030_r8*rxt(k,486)*y(k,158)
1110 254840160 : mat(k,2066) = .660_r8*rxt(k,459)*y(k,158)
1111 254840160 : mat(k,2097) = .660_r8*rxt(k,469)*y(k,158)
1112 254840160 : mat(k,1570) = .660_r8*rxt(k,484)*y(k,158)
1113 254840160 : mat(k,1072) = .330_r8*rxt(k,662)*y(k,158)
1114 254840160 : mat(k,2129) = .660_r8*rxt(k,501)*y(k,158)
1115 : mat(k,3702) = .220_r8*rxt(k,602)*y(k,4) + .170_r8*rxt(k,622)*y(k,7) &
1116 : + .320_r8*rxt(k,642)*y(k,17) + .030_r8*rxt(k,486)*y(k,109) &
1117 : + .660_r8*rxt(k,459)*y(k,115) + .660_r8*rxt(k,469)*y(k,118) &
1118 : + .660_r8*rxt(k,484)*y(k,121) + .330_r8*rxt(k,662)*y(k,125) &
1119 : + .660_r8*rxt(k,501)*y(k,139) + .020_r8*rxt(k,762)*y(k,212) &
1120 254840160 : + .040_r8*rxt(k,767)*y(k,213)
1121 254840160 : mat(k,2623) = .020_r8*rxt(k,762)*y(k,158)
1122 254840160 : mat(k,2593) = .040_r8*rxt(k,767)*y(k,158)
1123 254840160 : mat(k,3301) = 2.000_r8*rxt(k,192)*y(k,258)
1124 254840160 : mat(k,4023) = mat(k,4023) + 2.000_r8*rxt(k,191)*y(k,295)
1125 254840160 : mat(k,278) = rxt(k,809)*y(k,319)
1126 254840160 : mat(k,4103) = rxt(k,809)*y(k,176)
1127 : mat(k,1150) = -(rxt(k,267)*y(k,157) + rxt(k,268)*y(k,295) + (rxt(k,273) &
1128 254840160 : + rxt(k,274)) * y(k,294))
1129 254840160 : mat(k,3147) = -rxt(k,267)*y(k,83)
1130 254840160 : mat(k,3994) = -rxt(k,268)*y(k,83)
1131 254840160 : mat(k,3790) = -(rxt(k,273) + rxt(k,274)) * y(k,83)
1132 254840160 : mat(k,2197) = rxt(k,254)*y(k,43) + rxt(k,255)*y(k,258)
1133 254840160 : mat(k,3175) = rxt(k,254)*y(k,18)
1134 254840160 : mat(k,3280) = rxt(k,255)*y(k,18)
1135 254840160 : mat(k,251) = -(rxt(k,290)*y(k,295) + rxt(k,295)*y(k,294))
1136 254840160 : mat(k,3887) = -rxt(k,290)*y(k,84)
1137 254840160 : mat(k,3783) = -rxt(k,295)*y(k,84)
1138 254840160 : mat(k,261) = -(rxt(k,291)*y(k,295) + rxt(k,296)*y(k,294))
1139 254840160 : mat(k,3889) = -rxt(k,291)*y(k,85)
1140 254840160 : mat(k,3785) = -rxt(k,296)*y(k,85)
1141 254840160 : mat(k,326) = -(rxt(k,292)*y(k,295) + rxt(k,297)*y(k,294))
1142 254840160 : mat(k,3900) = -rxt(k,292)*y(k,86)
1143 254840160 : mat(k,3786) = -rxt(k,297)*y(k,86)
1144 : mat(k,3129) = -(rxt(k,238)*y(k,157) + rxt(k,239)*y(k,295) + (rxt(k,250) &
1145 : + rxt(k,251)) * y(k,294) + (rxt(k,885) + rxt(k,891) + rxt(k,896) &
1146 : ) * y(k,96) + (rxt(k,890) + rxt(k,895) + rxt(k,900)) * y(k,61) &
1147 254840160 : + (rxt(k,892) + rxt(k,897)) * y(k,95))
1148 254840160 : mat(k,3160) = -rxt(k,238)*y(k,87)
1149 254840160 : mat(k,4089) = -rxt(k,239)*y(k,87)
1150 254840160 : mat(k,3798) = -(rxt(k,250) + rxt(k,251)) * y(k,87)
1151 254840160 : mat(k,1160) = -(rxt(k,885) + rxt(k,891) + rxt(k,896)) * y(k,87)
1152 254840160 : mat(k,1327) = -(rxt(k,890) + rxt(k,895) + rxt(k,900)) * y(k,87)
1153 254840160 : mat(k,997) = -(rxt(k,892) + rxt(k,897)) * y(k,87)
1154 254840160 : mat(k,318) = rxt(k,330)*y(k,57)
1155 254840160 : mat(k,497) = rxt(k,281)*y(k,57)
1156 254840160 : mat(k,3186) = rxt(k,218)*y(k,57)
1157 254840160 : mat(k,648) = rxt(k,283)*y(k,57)
1158 254840160 : mat(k,395) = 2.000_r8*rxt(k,286)*y(k,57)
1159 254840160 : mat(k,2262) = rxt(k,219)*y(k,57)
1160 254840160 : mat(k,464) = rxt(k,288)*y(k,57)
1161 : mat(k,3839) = rxt(k,330)*y(k,29) + rxt(k,281)*y(k,42) + rxt(k,218)*y(k,43) &
1162 : + rxt(k,283)*y(k,44) + 2.000_r8*rxt(k,286)*y(k,47) + rxt(k,219) &
1163 : *y(k,55) + rxt(k,288)*y(k,56) + rxt(k,220)*y(k,79) + rxt(k,221) &
1164 254840160 : *y(k,81) + rxt(k,240)*y(k,96) + rxt(k,222)*y(k,258)
1165 254840160 : mat(k,3509) = rxt(k,237)*y(k,295)
1166 254840160 : mat(k,1677) = rxt(k,220)*y(k,57)
1167 254840160 : mat(k,1488) = rxt(k,221)*y(k,57)
1168 254840160 : mat(k,1160) = mat(k,1160) + rxt(k,240)*y(k,57)
1169 254840160 : mat(k,3366) = rxt(k,222)*y(k,57)
1170 263009123 : mat(k,4089) = mat(k,4089) + rxt(k,237)*y(k,60)
1171 : end do
1172 8168963 : end subroutine nlnmat04
1173 8168963 : subroutine nlnmat05( avec_len, mat, y, rxt )
1174 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1175 : implicit none
1176 : !----------------------------------------------
1177 : ! ... dummy arguments
1178 : !----------------------------------------------
1179 : integer, intent(in) :: avec_len
1180 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1181 : real(r8), intent(in) :: rxt(veclen,rxntot)
1182 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1183 : !----------------------------------------------
1184 : ! ... local variables
1185 : !----------------------------------------------
1186 : integer :: k
1187 : !----------------------------------------------
1188 : ! ... complete matrix entries implicit species
1189 : !----------------------------------------------
1190 263009123 : do k = 1,avec_len
1191 254840160 : mat(k,197) = -(rxt(k,309)*y(k,295) + rxt(k,318)*y(k,294))
1192 254840160 : mat(k,3877) = -rxt(k,309)*y(k,88)
1193 254840160 : mat(k,3780) = -rxt(k,318)*y(k,88)
1194 254840160 : mat(k,883) = -(rxt(k,347)*y(k,295))
1195 254840160 : mat(k,3969) = -rxt(k,347)*y(k,89)
1196 254840160 : mat(k,1562) = .700_r8*rxt(k,484)*y(k,158)
1197 254840160 : mat(k,3006) = .810_r8*rxt(k,527)*y(k,276)
1198 254840160 : mat(k,3683) = .700_r8*rxt(k,484)*y(k,121)
1199 254840160 : mat(k,3261) = .680_r8*rxt(k,482)*y(k,276)
1200 254840160 : mat(k,1359) = .810_r8*rxt(k,527)*y(k,147) + .680_r8*rxt(k,482)*y(k,258)
1201 254840160 : mat(k,1377) = -(rxt(k,310)*y(k,295))
1202 254840160 : mat(k,4013) = -rxt(k,310)*y(k,90)
1203 254840160 : mat(k,1096) = .080_r8*rxt(k,642)*y(k,158)
1204 254840160 : mat(k,311) = .350_r8*rxt(k,321)*y(k,295)
1205 254840160 : mat(k,587) = .370_r8*rxt(k,323)*y(k,158)
1206 254840160 : mat(k,1384) = .120_r8*rxt(k,354)*y(k,158)
1207 254840160 : mat(k,1211) = .500_r8*rxt(k,311)*y(k,295)
1208 254840160 : mat(k,504) = .400_r8*rxt(k,422)*y(k,295)
1209 254840160 : mat(k,1409) = .220_r8*rxt(k,486)*y(k,158)
1210 254840160 : mat(k,2009) = .330_r8*rxt(k,385)*y(k,158)
1211 254840160 : mat(k,2031) = .120_r8*rxt(k,403)*y(k,158)
1212 254840160 : mat(k,3036) = rxt(k,314)*y(k,259)
1213 : mat(k,3695) = .080_r8*rxt(k,642)*y(k,17) + .370_r8*rxt(k,323)*y(k,26) &
1214 : + .120_r8*rxt(k,354)*y(k,30) + .220_r8*rxt(k,486)*y(k,109) &
1215 : + .330_r8*rxt(k,385)*y(k,126) + .120_r8*rxt(k,403)*y(k,132) &
1216 254840160 : + .150_r8*rxt(k,762)*y(k,212) + .260_r8*rxt(k,767)*y(k,213)
1217 254840160 : mat(k,2622) = .150_r8*rxt(k,762)*y(k,158)
1218 254840160 : mat(k,2592) = .260_r8*rxt(k,767)*y(k,158)
1219 254840160 : mat(k,3293) = .500_r8*rxt(k,312)*y(k,259)
1220 254840160 : mat(k,695) = rxt(k,314)*y(k,147) + .500_r8*rxt(k,312)*y(k,258)
1221 : mat(k,4013) = mat(k,4013) + .350_r8*rxt(k,321)*y(k,25) + .500_r8*rxt(k,311) &
1222 254840160 : *y(k,92) + .400_r8*rxt(k,422)*y(k,107)
1223 254840160 : mat(k,2254) = rxt(k,275)*y(k,75)
1224 : mat(k,1241) = rxt(k,275)*y(k,55) + rxt(k,276)*y(k,79) + rxt(k,278)*y(k,93) &
1225 254840160 : + rxt(k,277)*y(k,319)
1226 254840160 : mat(k,1671) = rxt(k,276)*y(k,75)
1227 254840160 : mat(k,2944) = rxt(k,278)*y(k,75)
1228 254840160 : mat(k,4105) = rxt(k,277)*y(k,75)
1229 254840160 : mat(k,1210) = -(rxt(k,311)*y(k,295))
1230 254840160 : mat(k,3999) = -rxt(k,311)*y(k,92)
1231 254840160 : mat(k,1095) = .110_r8*rxt(k,642)*y(k,158)
1232 254840160 : mat(k,1408) = .330_r8*rxt(k,486)*y(k,158)
1233 : mat(k,3690) = .110_r8*rxt(k,642)*y(k,17) + .330_r8*rxt(k,486)*y(k,109) &
1234 254840160 : + .230_r8*rxt(k,762)*y(k,212) + .400_r8*rxt(k,767)*y(k,213)
1235 254840160 : mat(k,2621) = .230_r8*rxt(k,762)*y(k,158)
1236 254840160 : mat(k,2591) = .400_r8*rxt(k,767)*y(k,158)
1237 254840160 : mat(k,3285) = .500_r8*rxt(k,312)*y(k,259)
1238 254840160 : mat(k,694) = .500_r8*rxt(k,312)*y(k,258)
1239 254840160 : mat(k,2949) = -(rxt(k,215)*y(k,295) + rxt(k,278)*y(k,75))
1240 254840160 : mat(k,4087) = -rxt(k,215)*y(k,93)
1241 254840160 : mat(k,1246) = -rxt(k,278)*y(k,93)
1242 254840160 : mat(k,3184) = rxt(k,299)*y(k,149)
1243 254840160 : mat(k,1434) = rxt(k,332)*y(k,149)
1244 254840160 : mat(k,1929) = rxt(k,360)*y(k,149)
1245 254840160 : mat(k,1326) = (rxt(k,890)+rxt(k,895)+rxt(k,900))*y(k,87)
1246 254840160 : mat(k,306) = rxt(k,793)*y(k,149)
1247 254840160 : mat(k,3128) = (rxt(k,890)+rxt(k,895)+rxt(k,900))*y(k,61)
1248 254840160 : mat(k,3653) = rxt(k,214)*y(k,295)
1249 : mat(k,3601) = rxt(k,299)*y(k,43) + rxt(k,332)*y(k,46) + rxt(k,360)*y(k,50) &
1250 : + rxt(k,793)*y(k,69) + rxt(k,755)*y(k,202) + rxt(k,708)*y(k,203) &
1251 254840160 : + rxt(k,727)*y(k,205)
1252 254840160 : mat(k,2363) = rxt(k,755)*y(k,149)
1253 254840160 : mat(k,1293) = rxt(k,708)*y(k,149)
1254 254840160 : mat(k,1722) = rxt(k,727)*y(k,149)
1255 254840160 : mat(k,4087) = mat(k,4087) + rxt(k,214)*y(k,148)
1256 254840160 : mat(k,443) = -(rxt(k,193)*y(k,295))
1257 254840160 : mat(k,3917) = -rxt(k,193)*y(k,94)
1258 254840160 : mat(k,3621) = rxt(k,212)*y(k,258)
1259 254840160 : mat(k,3231) = rxt(k,212)*y(k,148)
1260 254840160 : mat(k,995) = -(rxt(k,269)*y(k,157) + (rxt(k,892) + rxt(k,897)) * y(k,87))
1261 254840160 : mat(k,3146) = -rxt(k,269)*y(k,95)
1262 254840160 : mat(k,3123) = -(rxt(k,892) + rxt(k,897)) * y(k,95)
1263 254840160 : mat(k,3476) = rxt(k,261)*y(k,258)
1264 254840160 : mat(k,3271) = rxt(k,261)*y(k,20)
1265 : mat(k,1159) = -(rxt(k,240)*y(k,57) + rxt(k,241)*y(k,157) + rxt(k,242) &
1266 254840160 : *y(k,295) + (rxt(k,885) + rxt(k,891) + rxt(k,896)) * y(k,87))
1267 254840160 : mat(k,3821) = -rxt(k,240)*y(k,96)
1268 254840160 : mat(k,3148) = -rxt(k,241)*y(k,96)
1269 254840160 : mat(k,3995) = -rxt(k,242)*y(k,96)
1270 254840160 : mat(k,3124) = -(rxt(k,885) + rxt(k,891) + rxt(k,896)) * y(k,96)
1271 254840160 : mat(k,3501) = rxt(k,229)*y(k,258)
1272 254840160 : mat(k,1324) = rxt(k,234)*y(k,295)
1273 254840160 : mat(k,3281) = rxt(k,229)*y(k,60)
1274 254840160 : mat(k,3995) = mat(k,3995) + rxt(k,234)*y(k,61)
1275 254840160 : mat(k,974) = -(rxt(k,379)*y(k,295))
1276 254840160 : mat(k,3980) = -rxt(k,379)*y(k,97)
1277 254840160 : mat(k,3015) = rxt(k,378)*y(k,255)
1278 254840160 : mat(k,606) = rxt(k,378)*y(k,147)
1279 254840160 : mat(k,613) = -(rxt(k,414)*y(k,295))
1280 254840160 : mat(k,3941) = -rxt(k,414)*y(k,98)
1281 254840160 : mat(k,626) = -(rxt(k,415)*y(k,295))
1282 254840160 : mat(k,3942) = -rxt(k,415)*y(k,99)
1283 254840160 : mat(k,488) = -(rxt(k,416)*y(k,295))
1284 254840160 : mat(k,3925) = -rxt(k,416)*y(k,100)
1285 254840160 : mat(k,1883) = .090_r8*rxt(k,489)*y(k,295)
1286 254840160 : mat(k,3925) = mat(k,3925) + .090_r8*rxt(k,489)*y(k,123)
1287 254840160 : mat(k,521) = -(rxt(k,417)*y(k,295))
1288 254840160 : mat(k,3929) = -rxt(k,417)*y(k,101)
1289 254840160 : mat(k,1884) = .090_r8*rxt(k,489)*y(k,295)
1290 254840160 : mat(k,3929) = mat(k,3929) + .090_r8*rxt(k,489)*y(k,123)
1291 254840160 : mat(k,1770) = -(rxt(k,362)*y(k,295))
1292 254840160 : mat(k,4044) = -rxt(k,362)*y(k,102)
1293 254840160 : mat(k,1870) = .220_r8*rxt(k,418)*y(k,295)
1294 254840160 : mat(k,915) = .500_r8*rxt(k,419)*y(k,295)
1295 254840160 : mat(k,1256) = .190_r8*rxt(k,423)*y(k,295)
1296 254840160 : mat(k,773) = .280_r8*rxt(k,456)*y(k,295)
1297 254840160 : mat(k,2103) = .830_r8*rxt(k,469)*y(k,158)
1298 254840160 : mat(k,921) = rxt(k,488)*y(k,295)
1299 254840160 : mat(k,1893) = .070_r8*rxt(k,490)*y(k,295)
1300 254840160 : mat(k,1777) = .500_r8*rxt(k,380)*y(k,295)
1301 254840160 : mat(k,1462) = rxt(k,387)*y(k,295)
1302 254840160 : mat(k,530) = .250_r8*rxt(k,398)*y(k,295)
1303 254840160 : mat(k,828) = .180_r8*rxt(k,682)*y(k,158)
1304 : mat(k,3061) = .290_r8*rxt(k,503)*y(k,260) + .730_r8*rxt(k,515)*y(k,270) &
1305 : + .870_r8*rxt(k,519)*y(k,272) + .330_r8*rxt(k,521)*y(k,273) &
1306 254840160 : + .070_r8*rxt(k,525)*y(k,275) + .860_r8*rxt(k,535)*y(k,284)
1307 254840160 : mat(k,3713) = .830_r8*rxt(k,469)*y(k,118) + .180_r8*rxt(k,682)*y(k,135)
1308 254840160 : mat(k,580) = .500_r8*rxt(k,367)*y(k,295)
1309 254840160 : mat(k,2873) = .860_r8*rxt(k,381)*y(k,284)
1310 254840160 : mat(k,3414) = .900_r8*rxt(k,382)*y(k,284) + .200_r8*rxt(k,368)*y(k,298)
1311 : mat(k,3320) = .190_r8*rxt(k,421)*y(k,260) + .460_r8*rxt(k,461)*y(k,270) &
1312 : + .440_r8*rxt(k,467)*y(k,272) + .150_r8*rxt(k,471)*y(k,273) &
1313 254840160 : + .060_r8*rxt(k,479)*y(k,275) + .510_r8*rxt(k,383)*y(k,284)
1314 254840160 : mat(k,1301) = .290_r8*rxt(k,503)*y(k,147) + .190_r8*rxt(k,421)*y(k,258)
1315 254840160 : mat(k,1170) = .730_r8*rxt(k,515)*y(k,147) + .460_r8*rxt(k,461)*y(k,258)
1316 254840160 : mat(k,1136) = .870_r8*rxt(k,519)*y(k,147) + .440_r8*rxt(k,467)*y(k,258)
1317 254840160 : mat(k,1446) = .330_r8*rxt(k,521)*y(k,147) + .150_r8*rxt(k,471)*y(k,258)
1318 254840160 : mat(k,1315) = .070_r8*rxt(k,525)*y(k,147) + .060_r8*rxt(k,479)*y(k,258)
1319 : mat(k,1545) = .860_r8*rxt(k,535)*y(k,147) + .860_r8*rxt(k,381)*y(k,252) &
1320 254840160 : + .900_r8*rxt(k,382)*y(k,253) + .510_r8*rxt(k,383)*y(k,258)
1321 : mat(k,4044) = mat(k,4044) + .220_r8*rxt(k,418)*y(k,103) + .500_r8*rxt(k,419) &
1322 : *y(k,105) + .190_r8*rxt(k,423)*y(k,108) + .280_r8*rxt(k,456) &
1323 : *y(k,114) + rxt(k,488)*y(k,122) + .070_r8*rxt(k,490)*y(k,123) &
1324 : + .500_r8*rxt(k,380)*y(k,127) + rxt(k,387)*y(k,128) &
1325 254840160 : + .250_r8*rxt(k,398)*y(k,131) + .500_r8*rxt(k,367)*y(k,170)
1326 254840160 : mat(k,1338) = .200_r8*rxt(k,368)*y(k,253)
1327 254840160 : mat(k,1872) = -(rxt(k,418)*y(k,295))
1328 254840160 : mat(k,4049) = -rxt(k,418)*y(k,103)
1329 254840160 : mat(k,1895) = .130_r8*rxt(k,489)*y(k,295)
1330 : mat(k,3066) = .450_r8*rxt(k,509)*y(k,267) + .450_r8*rxt(k,511)*y(k,268) &
1331 254840160 : + .450_r8*rxt(k,530)*y(k,278) + .450_r8*rxt(k,533)*y(k,279)
1332 : mat(k,2877) = .450_r8*rxt(k,444)*y(k,267) + .450_r8*rxt(k,448)*y(k,268) &
1333 254840160 : + .450_r8*rxt(k,491)*y(k,278) + .450_r8*rxt(k,495)*y(k,279)
1334 : mat(k,3419) = .250_r8*rxt(k,431)*y(k,262) + .470_r8*rxt(k,445)*y(k,267) &
1335 : + .470_r8*rxt(k,449)*y(k,268) + .470_r8*rxt(k,492)*y(k,278) &
1336 254840160 : + .470_r8*rxt(k,496)*y(k,279)
1337 254840160 : mat(k,1986) = .250_r8*rxt(k,431)*y(k,253)
1338 : mat(k,1734) = .450_r8*rxt(k,509)*y(k,147) + .450_r8*rxt(k,444)*y(k,252) &
1339 254840160 : + .470_r8*rxt(k,445)*y(k,253)
1340 : mat(k,1756) = .450_r8*rxt(k,511)*y(k,147) + .450_r8*rxt(k,448)*y(k,252) &
1341 254840160 : + .470_r8*rxt(k,449)*y(k,253)
1342 : mat(k,1849) = .450_r8*rxt(k,530)*y(k,147) + .450_r8*rxt(k,491)*y(k,252) &
1343 254840160 : + .470_r8*rxt(k,492)*y(k,253)
1344 : mat(k,1818) = .450_r8*rxt(k,533)*y(k,147) + .450_r8*rxt(k,495)*y(k,252) &
1345 254840160 : + .470_r8*rxt(k,496)*y(k,253)
1346 254840160 : mat(k,4049) = mat(k,4049) + .130_r8*rxt(k,489)*y(k,123)
1347 254840160 : mat(k,924) = -(rxt(k,363)*y(k,295))
1348 254840160 : mat(k,3974) = -rxt(k,363)*y(k,104)
1349 254840160 : mat(k,640) = rxt(k,376)*y(k,295)
1350 254840160 : mat(k,629) = .150_r8*rxt(k,415)*y(k,295)
1351 254840160 : mat(k,1563) = .130_r8*rxt(k,484)*y(k,158)
1352 254840160 : mat(k,3009) = .150_r8*rxt(k,527)*y(k,276)
1353 254840160 : mat(k,3684) = .130_r8*rxt(k,484)*y(k,121)
1354 254840160 : mat(k,3264) = .120_r8*rxt(k,482)*y(k,276)
1355 254840160 : mat(k,1360) = .150_r8*rxt(k,527)*y(k,147) + .120_r8*rxt(k,482)*y(k,258)
1356 254840160 : mat(k,3974) = mat(k,3974) + rxt(k,376)*y(k,68) + .150_r8*rxt(k,415)*y(k,99)
1357 254840160 : mat(k,914) = -(rxt(k,419)*y(k,295))
1358 254840160 : mat(k,3972) = -rxt(k,419)*y(k,105)
1359 254840160 : mat(k,615) = .080_r8*rxt(k,414)*y(k,295)
1360 254840160 : mat(k,628) = .180_r8*rxt(k,415)*y(k,295)
1361 254840160 : mat(k,489) = .580_r8*rxt(k,416)*y(k,295)
1362 254840160 : mat(k,522) = .770_r8*rxt(k,417)*y(k,295)
1363 254840160 : mat(k,1521) = .190_r8*rxt(k,420)*y(k,295)
1364 254840160 : mat(k,2125) = .040_r8*rxt(k,502)*y(k,295)
1365 : mat(k,3972) = mat(k,3972) + .080_r8*rxt(k,414)*y(k,98) + .180_r8*rxt(k,415) &
1366 : *y(k,99) + .580_r8*rxt(k,416)*y(k,100) + .770_r8*rxt(k,417) &
1367 : *y(k,101) + .190_r8*rxt(k,420)*y(k,106) + .040_r8*rxt(k,502) &
1368 254840160 : *y(k,139)
1369 254840160 : mat(k,1524) = -(rxt(k,420)*y(k,295))
1370 254840160 : mat(k,4027) = -rxt(k,420)*y(k,106)
1371 254840160 : mat(k,2067) = .080_r8*rxt(k,460)*y(k,295)
1372 254840160 : mat(k,675) = .150_r8*rxt(k,463)*y(k,295)
1373 254840160 : mat(k,595) = .130_r8*rxt(k,466)*y(k,295)
1374 254840160 : mat(k,2099) = .040_r8*rxt(k,470)*y(k,295)
1375 254840160 : mat(k,1571) = .070_r8*rxt(k,485)*y(k,295)
1376 254840160 : mat(k,1890) = .850_r8*rxt(k,490)*y(k,295)
1377 : mat(k,4027) = mat(k,4027) + .080_r8*rxt(k,460)*y(k,115) + .150_r8*rxt(k,463) &
1378 : *y(k,116) + .130_r8*rxt(k,466)*y(k,117) + .040_r8*rxt(k,470) &
1379 : *y(k,118) + .070_r8*rxt(k,485)*y(k,121) + .850_r8*rxt(k,490) &
1380 254840160 : *y(k,123)
1381 254840160 : mat(k,502) = -(rxt(k,422)*y(k,295))
1382 254840160 : mat(k,3927) = -rxt(k,422)*y(k,107)
1383 254840160 : mat(k,502) = mat(k,502) + .200_r8*rxt(k,422)*y(k,295)
1384 254840160 : mat(k,1192) = .400_r8*rxt(k,481)*y(k,295)
1385 : mat(k,3927) = mat(k,3927) + .200_r8*rxt(k,422)*y(k,107) + .400_r8*rxt(k,481) &
1386 254840160 : *y(k,120)
1387 254840160 : mat(k,1252) = -(rxt(k,423)*y(k,295))
1388 254840160 : mat(k,4004) = -rxt(k,423)*y(k,108)
1389 254840160 : mat(k,1252) = mat(k,1252) + .060_r8*rxt(k,423)*y(k,295)
1390 254840160 : mat(k,729) = .030_r8*rxt(k,472)*y(k,295)
1391 254840160 : mat(k,1564) = .200_r8*rxt(k,485)*y(k,295)
1392 : mat(k,4004) = mat(k,4004) + .060_r8*rxt(k,423)*y(k,108) + .030_r8*rxt(k,472) &
1393 263009123 : *y(k,119) + .200_r8*rxt(k,485)*y(k,121)
1394 : end do
1395 8168963 : end subroutine nlnmat05
1396 8168963 : subroutine nlnmat06( avec_len, mat, y, rxt )
1397 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1398 : implicit none
1399 : !----------------------------------------------
1400 : ! ... dummy arguments
1401 : !----------------------------------------------
1402 : integer, intent(in) :: avec_len
1403 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1404 : real(r8), intent(in) :: rxt(veclen,rxntot)
1405 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1406 : !----------------------------------------------
1407 : ! ... local variables
1408 : !----------------------------------------------
1409 : integer :: k
1410 : !----------------------------------------------
1411 : ! ... complete matrix entries implicit species
1412 : !----------------------------------------------
1413 263009123 : do k = 1,avec_len
1414 254840160 : mat(k,1410) = -(rxt(k,473)*y(k,149) + rxt(k,486)*y(k,158) + rxt(k,487) &
1415 254840160 : *y(k,295))
1416 254840160 : mat(k,3543) = -rxt(k,473)*y(k,109)
1417 254840160 : mat(k,3697) = -rxt(k,486)*y(k,109)
1418 254840160 : mat(k,4015) = -rxt(k,487)*y(k,109)
1419 254840160 : mat(k,1659) = -(rxt(k,453)*y(k,295))
1420 254840160 : mat(k,4036) = -rxt(k,453)*y(k,110)
1421 : mat(k,3054) = rxt(k,514)*y(k,269) + rxt(k,516)*y(k,270) + rxt(k,518)*y(k,271) &
1422 : + rxt(k,520)*y(k,272) + rxt(k,522)*y(k,273) + rxt(k,524) &
1423 254840160 : *y(k,274) + rxt(k,526)*y(k,275) + rxt(k,528)*y(k,276)
1424 254840160 : mat(k,1124) = rxt(k,514)*y(k,147)
1425 254840160 : mat(k,1168) = rxt(k,516)*y(k,147)
1426 254840160 : mat(k,1056) = rxt(k,518)*y(k,147)
1427 254840160 : mat(k,1135) = rxt(k,520)*y(k,147)
1428 254840160 : mat(k,1444) = rxt(k,522)*y(k,147)
1429 254840160 : mat(k,2167) = rxt(k,524)*y(k,147)
1430 254840160 : mat(k,1313) = rxt(k,526)*y(k,147)
1431 254840160 : mat(k,1366) = rxt(k,528)*y(k,147)
1432 254840160 : mat(k,1110) = -(rxt(k,452)*y(k,295))
1433 254840160 : mat(k,3990) = -rxt(k,452)*y(k,111)
1434 254840160 : mat(k,1656) = rxt(k,453)*y(k,295)
1435 254840160 : mat(k,3022) = rxt(k,540)*y(k,293)
1436 254840160 : mat(k,1634) = rxt(k,540)*y(k,147)
1437 254840160 : mat(k,3990) = mat(k,3990) + rxt(k,453)*y(k,110)
1438 254840160 : mat(k,1793) = -(rxt(k,454)*y(k,295))
1439 254840160 : mat(k,4046) = -rxt(k,454)*y(k,112)
1440 254840160 : mat(k,1471) = rxt(k,455)*y(k,295)
1441 254840160 : mat(k,3063) = rxt(k,504)*y(k,260)
1442 254840160 : mat(k,1302) = rxt(k,504)*y(k,147)
1443 254840160 : mat(k,4046) = mat(k,4046) + rxt(k,455)*y(k,113)
1444 254840160 : mat(k,1468) = -(rxt(k,455)*y(k,295))
1445 254840160 : mat(k,4020) = -rxt(k,455)*y(k,113)
1446 : mat(k,3298) = .420_r8*rxt(k,457)*y(k,269) + .480_r8*rxt(k,461)*y(k,270) &
1447 : + .400_r8*rxt(k,464)*y(k,271) + .500_r8*rxt(k,467)*y(k,272) &
1448 : + .600_r8*rxt(k,471)*y(k,273) + .490_r8*rxt(k,479)*y(k,275) &
1449 254840160 : + .170_r8*rxt(k,482)*y(k,276) + .200_r8*rxt(k,499)*y(k,293)
1450 254840160 : mat(k,1122) = .420_r8*rxt(k,457)*y(k,258)
1451 254840160 : mat(k,1167) = .480_r8*rxt(k,461)*y(k,258)
1452 254840160 : mat(k,1055) = .400_r8*rxt(k,464)*y(k,258)
1453 254840160 : mat(k,1134) = .500_r8*rxt(k,467)*y(k,258)
1454 254840160 : mat(k,1442) = .600_r8*rxt(k,471)*y(k,258)
1455 254840160 : mat(k,1311) = .490_r8*rxt(k,479)*y(k,258)
1456 254840160 : mat(k,1363) = .170_r8*rxt(k,482)*y(k,258)
1457 254840160 : mat(k,1636) = .200_r8*rxt(k,499)*y(k,258)
1458 254840160 : mat(k,770) = -(rxt(k,456)*y(k,295))
1459 254840160 : mat(k,3957) = -rxt(k,456)*y(k,114)
1460 254840160 : mat(k,1885) = .080_r8*rxt(k,490)*y(k,295)
1461 254840160 : mat(k,3250) = .350_r8*rxt(k,421)*y(k,260)
1462 254840160 : mat(k,1297) = .350_r8*rxt(k,421)*y(k,258)
1463 254840160 : mat(k,3957) = mat(k,3957) + .080_r8*rxt(k,490)*y(k,123)
1464 254840160 : mat(k,2078) = -(rxt(k,459)*y(k,158) + rxt(k,460)*y(k,295))
1465 254840160 : mat(k,3727) = -rxt(k,459)*y(k,115)
1466 254840160 : mat(k,4058) = -rxt(k,460)*y(k,115)
1467 254840160 : mat(k,3075) = rxt(k,512)*y(k,268) + rxt(k,534)*y(k,279)
1468 254840160 : mat(k,3428) = .280_r8*rxt(k,475)*y(k,274)
1469 254840160 : mat(k,1761) = rxt(k,512)*y(k,147)
1470 254840160 : mat(k,2177) = .280_r8*rxt(k,475)*y(k,253) + 1.060_r8*rxt(k,477)*y(k,274)
1471 254840160 : mat(k,1824) = rxt(k,534)*y(k,147)
1472 254840160 : mat(k,673) = -(rxt(k,463)*y(k,295))
1473 254840160 : mat(k,3947) = -rxt(k,463)*y(k,116)
1474 254840160 : mat(k,2995) = rxt(k,506)*y(k,261)
1475 254840160 : mat(k,1936) = rxt(k,506)*y(k,147)
1476 254840160 : mat(k,593) = -(rxt(k,466)*y(k,295))
1477 254840160 : mat(k,3938) = -rxt(k,466)*y(k,117)
1478 254840160 : mat(k,2992) = rxt(k,508)*y(k,262)
1479 254840160 : mat(k,1972) = rxt(k,508)*y(k,147)
1480 254840160 : mat(k,2110) = -(rxt(k,469)*y(k,158) + rxt(k,470)*y(k,295))
1481 254840160 : mat(k,3728) = -rxt(k,469)*y(k,118)
1482 254840160 : mat(k,4059) = -rxt(k,470)*y(k,118)
1483 254840160 : mat(k,3076) = rxt(k,510)*y(k,267) + rxt(k,531)*y(k,278)
1484 254840160 : mat(k,3429) = .050_r8*rxt(k,475)*y(k,274)
1485 254840160 : mat(k,1739) = rxt(k,510)*y(k,147)
1486 254840160 : mat(k,2178) = .050_r8*rxt(k,475)*y(k,253) + .180_r8*rxt(k,477)*y(k,274)
1487 254840160 : mat(k,1856) = rxt(k,531)*y(k,147)
1488 254840160 : mat(k,728) = -(rxt(k,472)*y(k,295))
1489 254840160 : mat(k,3953) = -rxt(k,472)*y(k,119)
1490 254840160 : mat(k,3383) = .070_r8*rxt(k,475)*y(k,274)
1491 254840160 : mat(k,2154) = .070_r8*rxt(k,475)*y(k,253) + .300_r8*rxt(k,477)*y(k,274)
1492 254840160 : mat(k,1194) = -(rxt(k,481)*y(k,295))
1493 254840160 : mat(k,3998) = -rxt(k,481)*y(k,120)
1494 254840160 : mat(k,3284) = .230_r8*rxt(k,476)*y(k,274)
1495 254840160 : mat(k,2155) = .230_r8*rxt(k,476)*y(k,258)
1496 254840160 : mat(k,1572) = -(rxt(k,484)*y(k,158) + rxt(k,485)*y(k,295))
1497 254840160 : mat(k,3704) = -rxt(k,484)*y(k,121)
1498 254840160 : mat(k,4031) = -rxt(k,485)*y(k,121)
1499 254840160 : mat(k,3308) = .530_r8*rxt(k,476)*y(k,274)
1500 254840160 : mat(k,2164) = .530_r8*rxt(k,476)*y(k,258)
1501 254840160 : mat(k,919) = -(rxt(k,488)*y(k,295))
1502 254840160 : mat(k,3973) = -rxt(k,488)*y(k,122)
1503 : mat(k,3385) = .250_r8*rxt(k,425)*y(k,261) + .250_r8*rxt(k,431)*y(k,262) &
1504 : + .250_r8*rxt(k,445)*y(k,267) + .250_r8*rxt(k,449)*y(k,268) &
1505 254840160 : + .250_r8*rxt(k,492)*y(k,278) + .250_r8*rxt(k,496)*y(k,279)
1506 254840160 : mat(k,1937) = .250_r8*rxt(k,425)*y(k,253)
1507 254840160 : mat(k,1973) = .250_r8*rxt(k,431)*y(k,253)
1508 254840160 : mat(k,1727) = .250_r8*rxt(k,445)*y(k,253)
1509 254840160 : mat(k,1749) = .250_r8*rxt(k,449)*y(k,253)
1510 254840160 : mat(k,1839) = .250_r8*rxt(k,492)*y(k,253)
1511 254840160 : mat(k,1808) = .250_r8*rxt(k,496)*y(k,253)
1512 254840160 : mat(k,1896) = -((rxt(k,489) + rxt(k,490)) * y(k,295))
1513 254840160 : mat(k,4050) = -(rxt(k,489) + rxt(k,490)) * y(k,123)
1514 : mat(k,3326) = .940_r8*rxt(k,426)*y(k,261) + .940_r8*rxt(k,432)*y(k,262) &
1515 : + rxt(k,446)*y(k,267) + rxt(k,450)*y(k,268) + rxt(k,493) &
1516 254840160 : *y(k,278) + rxt(k,497)*y(k,279)
1517 254840160 : mat(k,1950) = .940_r8*rxt(k,426)*y(k,258)
1518 254840160 : mat(k,1987) = .940_r8*rxt(k,432)*y(k,258)
1519 254840160 : mat(k,1735) = rxt(k,446)*y(k,258)
1520 254840160 : mat(k,1757) = rxt(k,450)*y(k,258)
1521 254840160 : mat(k,1850) = rxt(k,493)*y(k,258)
1522 254840160 : mat(k,1819) = rxt(k,497)*y(k,258)
1523 254840160 : mat(k,89) = -(rxt(k,866)*y(k,295))
1524 254840160 : mat(k,3865) = -rxt(k,866)*y(k,124)
1525 : mat(k,1071) = -(rxt(k,644)*y(k,149) + rxt(k,662)*y(k,158) + rxt(k,663) &
1526 254840160 : *y(k,295))
1527 254840160 : mat(k,3532) = -rxt(k,644)*y(k,125)
1528 254840160 : mat(k,3686) = -rxt(k,662)*y(k,125)
1529 254840160 : mat(k,3987) = -rxt(k,663)*y(k,125)
1530 254840160 : mat(k,2016) = -(rxt(k,385)*y(k,158) + rxt(k,386)*y(k,295))
1531 254840160 : mat(k,3724) = -rxt(k,385)*y(k,126)
1532 254840160 : mat(k,4055) = -rxt(k,386)*y(k,126)
1533 254840160 : mat(k,633) = .350_r8*rxt(k,415)*y(k,295)
1534 254840160 : mat(k,524) = .140_r8*rxt(k,417)*y(k,295)
1535 254840160 : mat(k,1419) = .410_r8*rxt(k,486)*y(k,158)
1536 254840160 : mat(k,3072) = rxt(k,507)*y(k,262) + .040_r8*rxt(k,523)*y(k,274)
1537 254840160 : mat(k,3568) = .040_r8*rxt(k,478)*y(k,274)
1538 254840160 : mat(k,3724) = mat(k,3724) + .410_r8*rxt(k,486)*y(k,109)
1539 254840160 : mat(k,2883) = rxt(k,430)*y(k,262) + .040_r8*rxt(k,474)*y(k,274)
1540 254840160 : mat(k,3425) = .500_r8*rxt(k,431)*y(k,262) + .020_r8*rxt(k,475)*y(k,274)
1541 254840160 : mat(k,3331) = .060_r8*rxt(k,432)*y(k,262) + .020_r8*rxt(k,476)*y(k,274)
1542 : mat(k,1992) = rxt(k,507)*y(k,147) + rxt(k,430)*y(k,252) + .500_r8*rxt(k,431) &
1543 254840160 : *y(k,253) + .060_r8*rxt(k,432)*y(k,258)
1544 : mat(k,2174) = .040_r8*rxt(k,523)*y(k,147) + .040_r8*rxt(k,478)*y(k,149) &
1545 : + .040_r8*rxt(k,474)*y(k,252) + .020_r8*rxt(k,475)*y(k,253) &
1546 254840160 : + .020_r8*rxt(k,476)*y(k,258) + .320_r8*rxt(k,477)*y(k,274)
1547 : mat(k,4055) = mat(k,4055) + .350_r8*rxt(k,415)*y(k,99) + .140_r8*rxt(k,417) &
1548 254840160 : *y(k,101)
1549 254840160 : mat(k,1778) = -(rxt(k,380)*y(k,295))
1550 254840160 : mat(k,4045) = -rxt(k,380)*y(k,127)
1551 254840160 : mat(k,1114) = .500_r8*rxt(k,452)*y(k,295)
1552 254840160 : mat(k,1792) = .250_r8*rxt(k,454)*y(k,295)
1553 254840160 : mat(k,2072) = .060_r8*rxt(k,460)*y(k,295)
1554 254840160 : mat(k,2134) = .240_r8*rxt(k,502)*y(k,295)
1555 : mat(k,3062) = .060_r8*rxt(k,513)*y(k,269) + .270_r8*rxt(k,515)*y(k,270) &
1556 : + .210_r8*rxt(k,521)*y(k,273) + .490_r8*rxt(k,525)*y(k,275) &
1557 : + .020_r8*rxt(k,527)*y(k,276) + rxt(k,536)*y(k,284) &
1558 254840160 : + .390_r8*rxt(k,539)*y(k,293)
1559 : mat(k,3321) = .030_r8*rxt(k,457)*y(k,269) + .060_r8*rxt(k,461)*y(k,270) &
1560 : + .060_r8*rxt(k,471)*y(k,273) + .150_r8*rxt(k,479)*y(k,275) &
1561 254840160 : + .020_r8*rxt(k,482)*y(k,276) + .290_r8*rxt(k,499)*y(k,293)
1562 254840160 : mat(k,1126) = .060_r8*rxt(k,513)*y(k,147) + .030_r8*rxt(k,457)*y(k,258)
1563 254840160 : mat(k,1171) = .270_r8*rxt(k,515)*y(k,147) + .060_r8*rxt(k,461)*y(k,258)
1564 254840160 : mat(k,1447) = .210_r8*rxt(k,521)*y(k,147) + .060_r8*rxt(k,471)*y(k,258)
1565 254840160 : mat(k,1316) = .490_r8*rxt(k,525)*y(k,147) + .150_r8*rxt(k,479)*y(k,258)
1566 254840160 : mat(k,1367) = .020_r8*rxt(k,527)*y(k,147) + .020_r8*rxt(k,482)*y(k,258)
1567 254840160 : mat(k,1546) = rxt(k,536)*y(k,147)
1568 254840160 : mat(k,1643) = .390_r8*rxt(k,539)*y(k,147) + .290_r8*rxt(k,499)*y(k,258)
1569 : mat(k,4045) = mat(k,4045) + .500_r8*rxt(k,452)*y(k,111) + .250_r8*rxt(k,454) &
1570 : *y(k,112) + .060_r8*rxt(k,460)*y(k,115) + .240_r8*rxt(k,502) &
1571 254840160 : *y(k,139)
1572 254840160 : mat(k,1461) = -(rxt(k,387)*y(k,295))
1573 254840160 : mat(k,4019) = -rxt(k,387)*y(k,128)
1574 254840160 : mat(k,523) = .090_r8*rxt(k,417)*y(k,295)
1575 254840160 : mat(k,1786) = .250_r8*rxt(k,454)*y(k,295)
1576 254840160 : mat(k,3040) = .550_r8*rxt(k,511)*y(k,268) + .550_r8*rxt(k,533)*y(k,279)
1577 254840160 : mat(k,2859) = .550_r8*rxt(k,448)*y(k,268) + .550_r8*rxt(k,495)*y(k,279)
1578 254840160 : mat(k,3395) = .280_r8*rxt(k,449)*y(k,268) + .280_r8*rxt(k,496)*y(k,279)
1579 254840160 : mat(k,3297) = .410_r8*rxt(k,383)*y(k,284)
1580 : mat(k,1750) = .550_r8*rxt(k,511)*y(k,147) + .550_r8*rxt(k,448)*y(k,252) &
1581 254840160 : + .280_r8*rxt(k,449)*y(k,253)
1582 : mat(k,1810) = .550_r8*rxt(k,533)*y(k,147) + .550_r8*rxt(k,495)*y(k,252) &
1583 254840160 : + .280_r8*rxt(k,496)*y(k,253)
1584 254840160 : mat(k,1542) = .410_r8*rxt(k,383)*y(k,258)
1585 : mat(k,4019) = mat(k,4019) + .090_r8*rxt(k,417)*y(k,101) + .250_r8*rxt(k,454) &
1586 254840160 : *y(k,112)
1587 254840160 : mat(k,556) = -(rxt(k,396)*y(k,295))
1588 254840160 : mat(k,3934) = -rxt(k,396)*y(k,129)
1589 254840160 : mat(k,2991) = .800_r8*rxt(k,410)*y(k,236)
1590 254840160 : mat(k,1178) = .800_r8*rxt(k,410)*y(k,147)
1591 254840160 : mat(k,332) = -(rxt(k,397)*y(k,295))
1592 254840160 : mat(k,3901) = -rxt(k,397)*y(k,130)
1593 254840160 : mat(k,3219) = .800_r8*rxt(k,394)*y(k,288)
1594 254840160 : mat(k,762) = .800_r8*rxt(k,394)*y(k,258)
1595 254840160 : mat(k,528) = -(rxt(k,398)*y(k,295))
1596 254840160 : mat(k,3930) = -rxt(k,398)*y(k,131)
1597 254840160 : mat(k,3624) = rxt(k,406)*y(k,286)
1598 254840160 : mat(k,1616) = rxt(k,406)*y(k,148)
1599 254840160 : mat(k,2041) = -(rxt(k,403)*y(k,158) + rxt(k,404)*y(k,295))
1600 254840160 : mat(k,3725) = -rxt(k,403)*y(k,132)
1601 254840160 : mat(k,4056) = -rxt(k,404)*y(k,132)
1602 254840160 : mat(k,620) = .350_r8*rxt(k,414)*y(k,295)
1603 254840160 : mat(k,491) = .230_r8*rxt(k,416)*y(k,295)
1604 254840160 : mat(k,1420) = .170_r8*rxt(k,486)*y(k,158)
1605 254840160 : mat(k,3073) = rxt(k,505)*y(k,261) + .420_r8*rxt(k,523)*y(k,274)
1606 254840160 : mat(k,3569) = .420_r8*rxt(k,478)*y(k,274)
1607 254840160 : mat(k,3725) = mat(k,3725) + .170_r8*rxt(k,486)*y(k,109)
1608 254840160 : mat(k,2884) = rxt(k,424)*y(k,261) + .420_r8*rxt(k,474)*y(k,274)
1609 254840160 : mat(k,3426) = .750_r8*rxt(k,425)*y(k,261) + .050_r8*rxt(k,475)*y(k,274)
1610 254840160 : mat(k,3332) = .060_r8*rxt(k,426)*y(k,261) + .220_r8*rxt(k,476)*y(k,274)
1611 : mat(k,1956) = rxt(k,505)*y(k,147) + rxt(k,424)*y(k,252) + .750_r8*rxt(k,425) &
1612 254840160 : *y(k,253) + .060_r8*rxt(k,426)*y(k,258)
1613 : mat(k,2175) = .420_r8*rxt(k,523)*y(k,147) + .420_r8*rxt(k,478)*y(k,149) &
1614 : + .420_r8*rxt(k,474)*y(k,252) + .050_r8*rxt(k,475)*y(k,253) &
1615 254840160 : + .220_r8*rxt(k,476)*y(k,258)
1616 : mat(k,4056) = mat(k,4056) + .350_r8*rxt(k,414)*y(k,98) + .230_r8*rxt(k,416) &
1617 263009123 : *y(k,100)
1618 : end do
1619 8168963 : end subroutine nlnmat06
1620 8168963 : subroutine nlnmat07( avec_len, mat, y, rxt )
1621 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
1622 : implicit none
1623 : !----------------------------------------------
1624 : ! ... dummy arguments
1625 : !----------------------------------------------
1626 : integer, intent(in) :: avec_len
1627 : real(r8), intent(in) :: y(veclen,gas_pcnst)
1628 : real(r8), intent(in) :: rxt(veclen,rxntot)
1629 : real(r8), intent(inout) :: mat(veclen,nzcnt)
1630 : !----------------------------------------------
1631 : ! ... local variables
1632 : !----------------------------------------------
1633 : integer :: k
1634 : !----------------------------------------------
1635 : ! ... complete matrix entries implicit species
1636 : !----------------------------------------------
1637 263009123 : do k = 1,avec_len
1638 254840160 : mat(k,1916) = -(rxt(k,399)*y(k,295))
1639 254840160 : mat(k,4051) = -rxt(k,399)*y(k,133)
1640 254840160 : mat(k,1257) = .050_r8*rxt(k,423)*y(k,295)
1641 254840160 : mat(k,1115) = .500_r8*rxt(k,452)*y(k,295)
1642 254840160 : mat(k,1794) = .250_r8*rxt(k,454)*y(k,295)
1643 254840160 : mat(k,2107) = .040_r8*rxt(k,470)*y(k,295)
1644 254840160 : mat(k,2137) = .040_r8*rxt(k,502)*y(k,295)
1645 : mat(k,3068) = rxt(k,517)*y(k,271) + .130_r8*rxt(k,519)*y(k,272) &
1646 : + .120_r8*rxt(k,521)*y(k,273) + .040_r8*rxt(k,525)*y(k,275) &
1647 : + .020_r8*rxt(k,527)*y(k,276) + rxt(k,538)*y(k,289) &
1648 254840160 : + .360_r8*rxt(k,539)*y(k,293)
1649 : mat(k,3327) = .600_r8*rxt(k,464)*y(k,271) + .060_r8*rxt(k,467)*y(k,272) &
1650 : + .040_r8*rxt(k,471)*y(k,273) + .020_r8*rxt(k,479)*y(k,275) &
1651 254840160 : + .010_r8*rxt(k,482)*y(k,276) + .310_r8*rxt(k,499)*y(k,293)
1652 254840160 : mat(k,1058) = rxt(k,517)*y(k,147) + .600_r8*rxt(k,464)*y(k,258)
1653 254840160 : mat(k,1137) = .130_r8*rxt(k,519)*y(k,147) + .060_r8*rxt(k,467)*y(k,258)
1654 254840160 : mat(k,1448) = .120_r8*rxt(k,521)*y(k,147) + .040_r8*rxt(k,471)*y(k,258)
1655 254840160 : mat(k,1317) = .040_r8*rxt(k,525)*y(k,147) + .020_r8*rxt(k,479)*y(k,258)
1656 254840160 : mat(k,1368) = .020_r8*rxt(k,527)*y(k,147) + .010_r8*rxt(k,482)*y(k,258)
1657 254840160 : mat(k,1511) = rxt(k,538)*y(k,147)
1658 254840160 : mat(k,1645) = .360_r8*rxt(k,539)*y(k,147) + .310_r8*rxt(k,499)*y(k,258)
1659 : mat(k,4051) = mat(k,4051) + .050_r8*rxt(k,423)*y(k,108) + .500_r8*rxt(k,452) &
1660 : *y(k,111) + .250_r8*rxt(k,454)*y(k,112) + .040_r8*rxt(k,470) &
1661 254840160 : *y(k,118) + .040_r8*rxt(k,502)*y(k,139)
1662 254840160 : mat(k,1498) = -(rxt(k,405)*y(k,295))
1663 254840160 : mat(k,4025) = -rxt(k,405)*y(k,134)
1664 254840160 : mat(k,490) = .190_r8*rxt(k,416)*y(k,295)
1665 254840160 : mat(k,1788) = .250_r8*rxt(k,454)*y(k,295)
1666 254840160 : mat(k,3045) = .550_r8*rxt(k,509)*y(k,267) + .550_r8*rxt(k,530)*y(k,278)
1667 254840160 : mat(k,2860) = .550_r8*rxt(k,444)*y(k,267) + .550_r8*rxt(k,491)*y(k,278)
1668 254840160 : mat(k,3399) = .280_r8*rxt(k,445)*y(k,267) + .280_r8*rxt(k,492)*y(k,278)
1669 254840160 : mat(k,3303) = .460_r8*rxt(k,402)*y(k,289)
1670 : mat(k,1729) = .550_r8*rxt(k,509)*y(k,147) + .550_r8*rxt(k,444)*y(k,252) &
1671 254840160 : + .280_r8*rxt(k,445)*y(k,253)
1672 : mat(k,1843) = .550_r8*rxt(k,530)*y(k,147) + .550_r8*rxt(k,491)*y(k,252) &
1673 254840160 : + .280_r8*rxt(k,492)*y(k,253)
1674 254840160 : mat(k,1507) = .460_r8*rxt(k,402)*y(k,258)
1675 : mat(k,4025) = mat(k,4025) + .190_r8*rxt(k,416)*y(k,100) + .250_r8*rxt(k,454) &
1676 254840160 : *y(k,112)
1677 : mat(k,827) = -(rxt(k,664)*y(k,149) + rxt(k,682)*y(k,158) + rxt(k,683) &
1678 254840160 : *y(k,295))
1679 254840160 : mat(k,3529) = -rxt(k,664)*y(k,135)
1680 254840160 : mat(k,3681) = -rxt(k,682)*y(k,135)
1681 254840160 : mat(k,3964) = -rxt(k,683)*y(k,135)
1682 : mat(k,477) = -(rxt(k,194)*y(k,147) + (rxt(k,195) + rxt(k,196) + rxt(k,197) &
1683 254840160 : ) * y(k,148) + rxt(k,206)*y(k,295))
1684 254840160 : mat(k,2986) = -rxt(k,194)*y(k,136)
1685 254840160 : mat(k,3622) = -(rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,136)
1686 254840160 : mat(k,3923) = -rxt(k,206)*y(k,136)
1687 254840160 : mat(k,201) = -((rxt(k,210) + rxt(k,211)) * y(k,294))
1688 254840160 : mat(k,3781) = -(rxt(k,210) + rxt(k,211)) * y(k,137)
1689 254840160 : mat(k,476) = rxt(k,195)*y(k,148)
1690 254840160 : mat(k,3618) = rxt(k,195)*y(k,136)
1691 254840160 : mat(k,3619) = rxt(k,213)*y(k,149)
1692 254840160 : mat(k,3525) = rxt(k,213)*y(k,148)
1693 254840160 : mat(k,2140) = -(rxt(k,501)*y(k,158) + rxt(k,502)*y(k,295))
1694 254840160 : mat(k,3729) = -rxt(k,501)*y(k,139)
1695 254840160 : mat(k,4060) = -rxt(k,502)*y(k,139)
1696 254840160 : mat(k,2079) = .040_r8*rxt(k,460)*y(k,295)
1697 254840160 : mat(k,2111) = .030_r8*rxt(k,470)*y(k,295)
1698 254840160 : mat(k,733) = .050_r8*rxt(k,472)*y(k,295)
1699 254840160 : mat(k,1203) = .020_r8*rxt(k,481)*y(k,295)
1700 254840160 : mat(k,1583) = .090_r8*rxt(k,485)*y(k,295)
1701 254840160 : mat(k,3077) = .540_r8*rxt(k,523)*y(k,274)
1702 254840160 : mat(k,3573) = .540_r8*rxt(k,478)*y(k,274)
1703 254840160 : mat(k,2888) = .540_r8*rxt(k,474)*y(k,274)
1704 254840160 : mat(k,3430) = .530_r8*rxt(k,475)*y(k,274)
1705 : mat(k,2179) = .540_r8*rxt(k,523)*y(k,147) + .540_r8*rxt(k,478)*y(k,149) &
1706 : + .540_r8*rxt(k,474)*y(k,252) + .530_r8*rxt(k,475)*y(k,253) &
1707 254840160 : + 2.140_r8*rxt(k,477)*y(k,274)
1708 : mat(k,4060) = mat(k,4060) + .040_r8*rxt(k,460)*y(k,115) + .030_r8*rxt(k,470) &
1709 : *y(k,118) + .050_r8*rxt(k,472)*y(k,119) + .020_r8*rxt(k,481) &
1710 254840160 : *y(k,120) + .090_r8*rxt(k,485)*y(k,121)
1711 254840160 : mat(k,117) = -(rxt(k,810)*y(k,295))
1712 254840160 : mat(k,3870) = -rxt(k,810)*y(k,143)
1713 : mat(k,3106) = -(rxt(k,194)*y(k,136) + rxt(k,203)*y(k,149) + rxt(k,207) &
1714 : *y(k,258) + rxt(k,208)*y(k,158) + rxt(k,209)*y(k,157) + rxt(k,230) &
1715 : *y(k,60) + rxt(k,262)*y(k,20) + rxt(k,305)*y(k,253) + rxt(k,314) &
1716 : *y(k,259) + rxt(k,327)*y(k,249) + rxt(k,338)*y(k,252) + rxt(k,342) &
1717 : *y(k,257) + rxt(k,357)*y(k,250) + rxt(k,366)*y(k,297) + rxt(k,370) &
1718 : *y(k,298) + (rxt(k,377) + rxt(k,378)) * y(k,255) + rxt(k,392) &
1719 : *y(k,286) + rxt(k,395)*y(k,288) + (rxt(k,410) + rxt(k,411) &
1720 : ) * y(k,236) + (rxt(k,503) + rxt(k,504)) * y(k,260) + (rxt(k,505) &
1721 : + rxt(k,506)) * y(k,261) + (rxt(k,507) + rxt(k,508)) * y(k,262) &
1722 : + (rxt(k,509) + rxt(k,510)) * y(k,267) + (rxt(k,511) + rxt(k,512) &
1723 : ) * y(k,268) + (rxt(k,513) + rxt(k,514)) * y(k,269) + (rxt(k,515) &
1724 : + rxt(k,516)) * y(k,270) + (rxt(k,517) + rxt(k,518)) * y(k,271) &
1725 : + (rxt(k,519) + rxt(k,520)) * y(k,272) + (rxt(k,521) + rxt(k,522) &
1726 : ) * y(k,273) + (rxt(k,523) + rxt(k,524)) * y(k,274) + (rxt(k,525) &
1727 : + rxt(k,526)) * y(k,275) + (rxt(k,527) + rxt(k,528)) * y(k,276) &
1728 : + (rxt(k,530) + rxt(k,531)) * y(k,278) + (rxt(k,533) + rxt(k,534) &
1729 : ) * y(k,279) + (rxt(k,535) + rxt(k,536)) * y(k,284) + (rxt(k,537) &
1730 : + rxt(k,538)) * y(k,289) + (rxt(k,539) + rxt(k,540)) * y(k,293) &
1731 : + rxt(k,542)*y(k,235) + rxt(k,545)*y(k,243) + rxt(k,550) &
1732 : *y(k,248) + rxt(k,552)*y(k,251) + rxt(k,556)*y(k,254) + rxt(k,559) &
1733 : *y(k,285) + rxt(k,562)*y(k,287) + rxt(k,565)*y(k,296) + rxt(k,572) &
1734 : *y(k,314) + rxt(k,578)*y(k,316) + rxt(k,581)*y(k,318) + rxt(k,589) &
1735 : *y(k,237) + rxt(k,597)*y(k,238) + rxt(k,609)*y(k,240) + rxt(k,617) &
1736 : *y(k,241) + rxt(k,629)*y(k,245) + rxt(k,637)*y(k,246) + rxt(k,649) &
1737 : *y(k,281) + rxt(k,657)*y(k,282) + rxt(k,669)*y(k,290) + rxt(k,677) &
1738 : *y(k,291) + rxt(k,688)*y(k,299) + rxt(k,692)*y(k,300) + rxt(k,696) &
1739 : *y(k,301) + rxt(k,704)*y(k,302) + rxt(k,712)*y(k,303) + rxt(k,722) &
1740 : *y(k,304) + rxt(k,731)*y(k,305) + rxt(k,741)*y(k,306) + rxt(k,752) &
1741 : *y(k,307) + rxt(k,761)*y(k,308) + rxt(k,766)*y(k,309) + rxt(k,773) &
1742 : *y(k,310) + rxt(k,777)*y(k,311) + rxt(k,781)*y(k,312) + rxt(k,785) &
1743 254840160 : *y(k,313))
1744 254840160 : mat(k,479) = -rxt(k,194)*y(k,147)
1745 254840160 : mat(k,3602) = -rxt(k,203)*y(k,147)
1746 254840160 : mat(k,3365) = -rxt(k,207)*y(k,147)
1747 254840160 : mat(k,3756) = -rxt(k,208)*y(k,147)
1748 254840160 : mat(k,3159) = -rxt(k,209)*y(k,147)
1749 254840160 : mat(k,3508) = -rxt(k,230)*y(k,147)
1750 254840160 : mat(k,3482) = -rxt(k,262)*y(k,147)
1751 254840160 : mat(k,3458) = -rxt(k,305)*y(k,147)
1752 254840160 : mat(k,696) = -rxt(k,314)*y(k,147)
1753 254840160 : mat(k,1353) = -rxt(k,327)*y(k,147)
1754 254840160 : mat(k,2916) = -rxt(k,338)*y(k,147)
1755 254840160 : mat(k,857) = -rxt(k,342)*y(k,147)
1756 254840160 : mat(k,1027) = -rxt(k,357)*y(k,147)
1757 254840160 : mat(k,942) = -rxt(k,366)*y(k,147)
1758 254840160 : mat(k,1341) = -rxt(k,370)*y(k,147)
1759 254840160 : mat(k,609) = -(rxt(k,377) + rxt(k,378)) * y(k,147)
1760 254840160 : mat(k,1624) = -rxt(k,392)*y(k,147)
1761 254840160 : mat(k,766) = -rxt(k,395)*y(k,147)
1762 254840160 : mat(k,1187) = -(rxt(k,410) + rxt(k,411)) * y(k,147)
1763 254840160 : mat(k,1305) = -(rxt(k,503) + rxt(k,504)) * y(k,147)
1764 254840160 : mat(k,1961) = -(rxt(k,505) + rxt(k,506)) * y(k,147)
1765 254840160 : mat(k,2000) = -(rxt(k,507) + rxt(k,508)) * y(k,147)
1766 254840160 : mat(k,1741) = -(rxt(k,509) + rxt(k,510)) * y(k,147)
1767 254840160 : mat(k,1763) = -(rxt(k,511) + rxt(k,512)) * y(k,147)
1768 254840160 : mat(k,1127) = -(rxt(k,513) + rxt(k,514)) * y(k,147)
1769 254840160 : mat(k,1173) = -(rxt(k,515) + rxt(k,516)) * y(k,147)
1770 254840160 : mat(k,1059) = -(rxt(k,517) + rxt(k,518)) * y(k,147)
1771 254840160 : mat(k,1138) = -(rxt(k,519) + rxt(k,520)) * y(k,147)
1772 254840160 : mat(k,1449) = -(rxt(k,521) + rxt(k,522)) * y(k,147)
1773 254840160 : mat(k,2185) = -(rxt(k,523) + rxt(k,524)) * y(k,147)
1774 254840160 : mat(k,1318) = -(rxt(k,525) + rxt(k,526)) * y(k,147)
1775 254840160 : mat(k,1372) = -(rxt(k,527) + rxt(k,528)) * y(k,147)
1776 254840160 : mat(k,1858) = -(rxt(k,530) + rxt(k,531)) * y(k,147)
1777 254840160 : mat(k,1827) = -(rxt(k,533) + rxt(k,534)) * y(k,147)
1778 254840160 : mat(k,1551) = -(rxt(k,535) + rxt(k,536)) * y(k,147)
1779 254840160 : mat(k,1515) = -(rxt(k,537) + rxt(k,538)) * y(k,147)
1780 254840160 : mat(k,1650) = -(rxt(k,539) + rxt(k,540)) * y(k,147)
1781 254840160 : mat(k,552) = -rxt(k,542)*y(k,147)
1782 254840160 : mat(k,517) = -rxt(k,545)*y(k,147)
1783 254840160 : mat(k,439) = -rxt(k,550)*y(k,147)
1784 254840160 : mat(k,712) = -rxt(k,552)*y(k,147)
1785 254840160 : mat(k,909) = -rxt(k,556)*y(k,147)
1786 254840160 : mat(k,865) = -rxt(k,559)*y(k,147)
1787 254840160 : mat(k,933) = -rxt(k,562)*y(k,147)
1788 254840160 : mat(k,458) = -rxt(k,565)*y(k,147)
1789 254840160 : mat(k,879) = -rxt(k,572)*y(k,147)
1790 254840160 : mat(k,902) = -rxt(k,578)*y(k,147)
1791 254840160 : mat(k,539) = -rxt(k,581)*y(k,147)
1792 254840160 : mat(k,2306) = -rxt(k,589)*y(k,147)
1793 254840160 : mat(k,2451) = -rxt(k,597)*y(k,147)
1794 254840160 : mat(k,2222) = -rxt(k,609)*y(k,147)
1795 254840160 : mat(k,2419) = -rxt(k,617)*y(k,147)
1796 254840160 : mat(k,2545) = -rxt(k,629)*y(k,147)
1797 254840160 : mat(k,2390) = -rxt(k,637)*y(k,147)
1798 254840160 : mat(k,2516) = -rxt(k,649)*y(k,147)
1799 254840160 : mat(k,2350) = -rxt(k,657)*y(k,147)
1800 254840160 : mat(k,2581) = -rxt(k,669)*y(k,147)
1801 254840160 : mat(k,2482) = -rxt(k,677)*y(k,147)
1802 254840160 : mat(k,955) = -rxt(k,688)*y(k,147)
1803 254840160 : mat(k,1010) = -rxt(k,692)*y(k,147)
1804 254840160 : mat(k,2662) = -rxt(k,696)*y(k,147)
1805 254840160 : mat(k,2750) = -rxt(k,704)*y(k,147)
1806 254840160 : mat(k,2707) = -rxt(k,712)*y(k,147)
1807 254840160 : mat(k,2796) = -rxt(k,722)*y(k,147)
1808 254840160 : mat(k,2246) = -rxt(k,731)*y(k,147)
1809 254840160 : mat(k,2684) = -rxt(k,741)*y(k,147)
1810 254840160 : mat(k,2843) = -rxt(k,752)*y(k,147)
1811 254840160 : mat(k,800) = -rxt(k,761)*y(k,147)
1812 254840160 : mat(k,965) = -rxt(k,766)*y(k,147)
1813 254840160 : mat(k,1223) = -rxt(k,773)*y(k,147)
1814 254840160 : mat(k,1019) = -rxt(k,777)*y(k,147)
1815 254840160 : mat(k,809) = -rxt(k,781)*y(k,147)
1816 254840160 : mat(k,817) = -rxt(k,785)*y(k,147)
1817 254840160 : mat(k,479) = mat(k,479) + 2.000_r8*rxt(k,196)*y(k,148) + rxt(k,206)*y(k,295)
1818 254840160 : mat(k,202) = 2.000_r8*rxt(k,210)*y(k,294)
1819 : mat(k,3654) = 2.000_r8*rxt(k,196)*y(k,136) + rxt(k,199)*y(k,157) + rxt(k,803) &
1820 254840160 : *y(k,174)
1821 254840160 : mat(k,3159) = mat(k,3159) + rxt(k,199)*y(k,148)
1822 254840160 : mat(k,1603) = rxt(k,803)*y(k,148)
1823 254840160 : mat(k,3797) = 2.000_r8*rxt(k,210)*y(k,137)
1824 254840160 : mat(k,4088) = rxt(k,206)*y(k,136)
1825 : mat(k,3663) = -((rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,136) + (rxt(k,199) &
1826 : + rxt(k,201)) * y(k,157) + rxt(k,200)*y(k,158) + rxt(k,212) &
1827 : *y(k,258) + rxt(k,213)*y(k,149) + rxt(k,214)*y(k,295) + rxt(k,232) &
1828 : *y(k,60) + rxt(k,263)*y(k,20) + rxt(k,351)*y(k,252) + rxt(k,406) &
1829 : *y(k,286) + rxt(k,557)*y(k,254) + rxt(k,560)*y(k,285) + rxt(k,563) &
1830 : *y(k,287) + rxt(k,567)*y(k,165) + rxt(k,570)*y(k,235) + rxt(k,684) &
1831 : *y(k,302) + rxt(k,685)*y(k,304) + rxt(k,686)*y(k,307) + rxt(k,803) &
1832 254840160 : *y(k,174))
1833 254840160 : mat(k,481) = -(rxt(k,195) + rxt(k,196) + rxt(k,197)) * y(k,148)
1834 254840160 : mat(k,3168) = -(rxt(k,199) + rxt(k,201)) * y(k,148)
1835 254840160 : mat(k,3765) = -rxt(k,200)*y(k,148)
1836 254840160 : mat(k,3374) = -rxt(k,212)*y(k,148)
1837 254840160 : mat(k,3611) = -rxt(k,213)*y(k,148)
1838 254840160 : mat(k,4097) = -rxt(k,214)*y(k,148)
1839 254840160 : mat(k,3517) = -rxt(k,232)*y(k,148)
1840 254840160 : mat(k,3491) = -rxt(k,263)*y(k,148)
1841 254840160 : mat(k,2923) = -rxt(k,351)*y(k,148)
1842 254840160 : mat(k,1630) = -rxt(k,406)*y(k,148)
1843 254840160 : mat(k,912) = -rxt(k,557)*y(k,148)
1844 254840160 : mat(k,867) = -rxt(k,560)*y(k,148)
1845 254840160 : mat(k,936) = -rxt(k,563)*y(k,148)
1846 254840160 : mat(k,486) = -rxt(k,567)*y(k,148)
1847 254840160 : mat(k,554) = -rxt(k,570)*y(k,148)
1848 254840160 : mat(k,2757) = -rxt(k,684)*y(k,148)
1849 254840160 : mat(k,2803) = -rxt(k,685)*y(k,148)
1850 254840160 : mat(k,2850) = -rxt(k,686)*y(k,148)
1851 254840160 : mat(k,1608) = -rxt(k,803)*y(k,148)
1852 254840160 : mat(k,760) = rxt(k,408)*y(k,295)
1853 254840160 : mat(k,383) = rxt(k,374)*y(k,149)
1854 254840160 : mat(k,3491) = mat(k,3491) + rxt(k,262)*y(k,147)
1855 254840160 : mat(k,3517) = mat(k,3517) + rxt(k,230)*y(k,147)
1856 254840160 : mat(k,446) = rxt(k,193)*y(k,295)
1857 254840160 : mat(k,510) = .400_r8*rxt(k,422)*y(k,295)
1858 254840160 : mat(k,1263) = .190_r8*rxt(k,423)*y(k,295)
1859 254840160 : mat(k,1119) = rxt(k,452)*y(k,295)
1860 254840160 : mat(k,1801) = .500_r8*rxt(k,454)*y(k,295)
1861 254840160 : mat(k,2088) = .170_r8*rxt(k,459)*y(k,158) + .080_r8*rxt(k,460)*y(k,295)
1862 254840160 : mat(k,680) = .150_r8*rxt(k,463)*y(k,295)
1863 254840160 : mat(k,599) = .130_r8*rxt(k,466)*y(k,295)
1864 254840160 : mat(k,2120) = .170_r8*rxt(k,469)*y(k,158) + .040_r8*rxt(k,470)*y(k,295)
1865 254840160 : mat(k,1592) = .170_r8*rxt(k,484)*y(k,158) + .070_r8*rxt(k,485)*y(k,295)
1866 254840160 : mat(k,1784) = .500_r8*rxt(k,380)*y(k,295)
1867 254840160 : mat(k,2149) = .170_r8*rxt(k,501)*y(k,158) + .040_r8*rxt(k,502)*y(k,295)
1868 : mat(k,3115) = rxt(k,262)*y(k,20) + rxt(k,230)*y(k,60) + 2.000_r8*rxt(k,203) &
1869 : *y(k,149) + rxt(k,209)*y(k,157) + rxt(k,208)*y(k,158) &
1870 : + rxt(k,542)*y(k,235) + rxt(k,410)*y(k,236) &
1871 : + 1.860_r8*rxt(k,589)*y(k,237) + .770_r8*rxt(k,597)*y(k,238) &
1872 : + 1.860_r8*rxt(k,609)*y(k,240) + .700_r8*rxt(k,617)*y(k,241) &
1873 : + rxt(k,545)*y(k,243) + 1.390_r8*rxt(k,629)*y(k,245) &
1874 : + .750_r8*rxt(k,637)*y(k,246) + rxt(k,550)*y(k,248) + rxt(k,327) &
1875 : *y(k,249) + rxt(k,357)*y(k,250) + rxt(k,552)*y(k,251) &
1876 : + rxt(k,338)*y(k,252) + rxt(k,305)*y(k,253) + rxt(k,556) &
1877 : *y(k,254) + rxt(k,377)*y(k,255) + rxt(k,342)*y(k,257) &
1878 : + rxt(k,207)*y(k,258) + rxt(k,314)*y(k,259) + rxt(k,503) &
1879 : *y(k,260) + rxt(k,505)*y(k,261) + rxt(k,507)*y(k,262) &
1880 : + rxt(k,509)*y(k,267) + rxt(k,511)*y(k,268) + rxt(k,513) &
1881 : *y(k,269) + 1.730_r8*rxt(k,515)*y(k,270) + rxt(k,517)*y(k,271) &
1882 : + rxt(k,519)*y(k,272) + rxt(k,521)*y(k,273) &
1883 : + 1.460_r8*rxt(k,523)*y(k,274) + rxt(k,525)*y(k,275) &
1884 : + rxt(k,527)*y(k,276) + rxt(k,530)*y(k,278) + rxt(k,533) &
1885 : *y(k,279) + 1.360_r8*rxt(k,649)*y(k,281) + .770_r8*rxt(k,657) &
1886 : *y(k,282) + rxt(k,535)*y(k,284) + rxt(k,559)*y(k,285) &
1887 : + rxt(k,392)*y(k,286) + rxt(k,562)*y(k,287) + rxt(k,395) &
1888 : *y(k,288) + rxt(k,537)*y(k,289) + 1.820_r8*rxt(k,669)*y(k,290) &
1889 : + .710_r8*rxt(k,677)*y(k,291) + rxt(k,539)*y(k,293) + rxt(k,565) &
1890 : *y(k,296) + rxt(k,366)*y(k,297) + rxt(k,370)*y(k,298) &
1891 : + .700_r8*rxt(k,688)*y(k,299) + .700_r8*rxt(k,692)*y(k,300) &
1892 : + .700_r8*rxt(k,696)*y(k,301) + rxt(k,704)*y(k,302) &
1893 : + .830_r8*rxt(k,712)*y(k,303) + rxt(k,722)*y(k,304) &
1894 : + .700_r8*rxt(k,731)*y(k,305) + .910_r8*rxt(k,741)*y(k,306) &
1895 : + rxt(k,752)*y(k,307) + .700_r8*rxt(k,761)*y(k,308) &
1896 : + .700_r8*rxt(k,766)*y(k,309) + .700_r8*rxt(k,773)*y(k,310) &
1897 : + .700_r8*rxt(k,777)*y(k,311) + .700_r8*rxt(k,781)*y(k,312) &
1898 : + .700_r8*rxt(k,785)*y(k,313) + rxt(k,572)*y(k,314) + rxt(k,578) &
1899 254840160 : *y(k,316) + rxt(k,581)*y(k,318)
1900 : mat(k,3611) = mat(k,3611) + rxt(k,374)*y(k,16) + 2.000_r8*rxt(k,203)*y(k,147) &
1901 : + rxt(k,204)*y(k,157) + rxt(k,759)*y(k,212) + .500_r8*rxt(k,764) &
1902 : *y(k,213) + 2.000_r8*rxt(k,590)*y(k,237) + rxt(k,598)*y(k,238) &
1903 : + 2.000_r8*rxt(k,610)*y(k,240) + rxt(k,618)*y(k,241) &
1904 : + 1.500_r8*rxt(k,630)*y(k,245) + rxt(k,638)*y(k,246) &
1905 : + rxt(k,202)*y(k,258) + 1.460_r8*rxt(k,478)*y(k,274) &
1906 : + 1.460_r8*rxt(k,650)*y(k,281) + rxt(k,658)*y(k,282) &
1907 : + rxt(k,393)*y(k,286) + 1.950_r8*rxt(k,670)*y(k,290) &
1908 : + rxt(k,678)*y(k,291) + rxt(k,205)*y(k,295) + rxt(k,697) &
1909 : *y(k,301) + rxt(k,705)*y(k,302) + rxt(k,713)*y(k,303) &
1910 : + rxt(k,723)*y(k,304) + rxt(k,732)*y(k,305) + rxt(k,742) &
1911 254840160 : *y(k,306) + rxt(k,753)*y(k,307)
1912 254840160 : mat(k,1459) = rxt(k,348)*y(k,295)
1913 254840160 : mat(k,1485) = rxt(k,364)*y(k,295)
1914 254840160 : mat(k,3168) = mat(k,3168) + rxt(k,209)*y(k,147) + rxt(k,204)*y(k,149)
1915 : mat(k,3765) = mat(k,3765) + .170_r8*rxt(k,459)*y(k,115) + .170_r8*rxt(k,469) &
1916 : *y(k,118) + .170_r8*rxt(k,484)*y(k,121) + .170_r8*rxt(k,501) &
1917 254840160 : *y(k,139) + rxt(k,208)*y(k,147)
1918 254840160 : mat(k,662) = rxt(k,718)*y(k,295)
1919 254840160 : mat(k,671) = rxt(k,737)*y(k,295)
1920 254840160 : mat(k,427) = rxt(k,757)*y(k,295)
1921 254840160 : mat(k,2642) = rxt(k,759)*y(k,149)
1922 254840160 : mat(k,2614) = .500_r8*rxt(k,764)*y(k,149)
1923 254840160 : mat(k,1232) = rxt(k,769)*y(k,295)
1924 254840160 : mat(k,1560) = rxt(k,783)*y(k,295)
1925 254840160 : mat(k,1540) = rxt(k,787)*y(k,295)
1926 254840160 : mat(k,554) = mat(k,554) + rxt(k,542)*y(k,147)
1927 254840160 : mat(k,1190) = rxt(k,410)*y(k,147)
1928 : mat(k,2312) = 1.860_r8*rxt(k,589)*y(k,147) + 2.000_r8*rxt(k,590)*y(k,149) &
1929 : + 3.280_r8*rxt(k,585)*y(k,237) + rxt(k,586)*y(k,252) &
1930 : + .820_r8*rxt(k,587)*y(k,253) + .700_r8*rxt(k,588)*y(k,258) &
1931 : + rxt(k,591)*y(k,302) + rxt(k,592)*y(k,304) + rxt(k,593) &
1932 254840160 : *y(k,307)
1933 254840160 : mat(k,2457) = .770_r8*rxt(k,597)*y(k,147) + rxt(k,598)*y(k,149)
1934 : mat(k,2228) = 1.860_r8*rxt(k,609)*y(k,147) + 2.000_r8*rxt(k,610)*y(k,149) &
1935 : + 3.280_r8*rxt(k,605)*y(k,240) + rxt(k,606)*y(k,252) &
1936 : + .820_r8*rxt(k,607)*y(k,253) + .500_r8*rxt(k,608)*y(k,258) &
1937 : + rxt(k,611)*y(k,302) + rxt(k,612)*y(k,304) + rxt(k,613) &
1938 254840160 : *y(k,307)
1939 254840160 : mat(k,2425) = .700_r8*rxt(k,617)*y(k,147) + rxt(k,618)*y(k,149)
1940 254840160 : mat(k,519) = rxt(k,545)*y(k,147)
1941 : mat(k,2551) = 1.390_r8*rxt(k,629)*y(k,147) + 1.500_r8*rxt(k,630)*y(k,149) &
1942 : + 1.880_r8*rxt(k,625)*y(k,245) + .500_r8*rxt(k,626)*y(k,252) &
1943 : + .360_r8*rxt(k,627)*y(k,253) + .240_r8*rxt(k,628)*y(k,258) &
1944 : + .500_r8*rxt(k,631)*y(k,302) + .500_r8*rxt(k,632)*y(k,304) &
1945 254840160 : + .500_r8*rxt(k,633)*y(k,307)
1946 254840160 : mat(k,2396) = .750_r8*rxt(k,637)*y(k,147) + rxt(k,638)*y(k,149)
1947 254840160 : mat(k,441) = rxt(k,550)*y(k,147)
1948 254840160 : mat(k,1357) = rxt(k,327)*y(k,147)
1949 254840160 : mat(k,1031) = rxt(k,357)*y(k,147)
1950 254840160 : mat(k,714) = rxt(k,552)*y(k,147)
1951 : mat(k,2923) = mat(k,2923) + rxt(k,338)*y(k,147) + rxt(k,586)*y(k,237) &
1952 : + rxt(k,606)*y(k,240) + .500_r8*rxt(k,626)*y(k,245) &
1953 : + .460_r8*rxt(k,474)*y(k,274) + .460_r8*rxt(k,645)*y(k,281) &
1954 254840160 : + .950_r8*rxt(k,665)*y(k,290)
1955 : mat(k,3467) = rxt(k,305)*y(k,147) + .820_r8*rxt(k,587)*y(k,237) &
1956 : + .820_r8*rxt(k,607)*y(k,240) + .360_r8*rxt(k,627)*y(k,245) &
1957 : + .070_r8*rxt(k,475)*y(k,274) + .310_r8*rxt(k,646)*y(k,281) &
1958 254840160 : + .770_r8*rxt(k,666)*y(k,290)
1959 254840160 : mat(k,912) = mat(k,912) + rxt(k,556)*y(k,147)
1960 254840160 : mat(k,612) = rxt(k,377)*y(k,147)
1961 254840160 : mat(k,860) = rxt(k,342)*y(k,147)
1962 : mat(k,3374) = mat(k,3374) + rxt(k,207)*y(k,147) + rxt(k,202)*y(k,149) &
1963 : + .700_r8*rxt(k,588)*y(k,237) + .500_r8*rxt(k,608)*y(k,240) &
1964 : + .240_r8*rxt(k,628)*y(k,245) + .460_r8*rxt(k,461)*y(k,270) &
1965 : + .240_r8*rxt(k,476)*y(k,274) + .230_r8*rxt(k,647)*y(k,281) &
1966 254840160 : + .480_r8*rxt(k,667)*y(k,290)
1967 254840160 : mat(k,699) = rxt(k,314)*y(k,147)
1968 254840160 : mat(k,1307) = rxt(k,503)*y(k,147)
1969 254840160 : mat(k,1967) = rxt(k,505)*y(k,147)
1970 254840160 : mat(k,2006) = rxt(k,507)*y(k,147)
1971 254840160 : mat(k,1746) = rxt(k,509)*y(k,147)
1972 254840160 : mat(k,1768) = rxt(k,511)*y(k,147)
1973 254840160 : mat(k,1130) = rxt(k,513)*y(k,147)
1974 254840160 : mat(k,1176) = 1.730_r8*rxt(k,515)*y(k,147) + .460_r8*rxt(k,461)*y(k,258)
1975 254840160 : mat(k,1062) = rxt(k,517)*y(k,147)
1976 254840160 : mat(k,1141) = rxt(k,519)*y(k,147)
1977 254840160 : mat(k,1452) = rxt(k,521)*y(k,147)
1978 : mat(k,2192) = 1.460_r8*rxt(k,523)*y(k,147) + 1.460_r8*rxt(k,478)*y(k,149) &
1979 : + .460_r8*rxt(k,474)*y(k,252) + .070_r8*rxt(k,475)*y(k,253) &
1980 254840160 : + .240_r8*rxt(k,476)*y(k,258) + .320_r8*rxt(k,477)*y(k,274)
1981 254840160 : mat(k,1321) = rxt(k,525)*y(k,147)
1982 254840160 : mat(k,1375) = rxt(k,527)*y(k,147)
1983 254840160 : mat(k,1863) = rxt(k,530)*y(k,147)
1984 254840160 : mat(k,1832) = rxt(k,533)*y(k,147)
1985 : mat(k,2522) = 1.360_r8*rxt(k,649)*y(k,147) + 1.460_r8*rxt(k,650)*y(k,149) &
1986 : + .460_r8*rxt(k,645)*y(k,252) + .310_r8*rxt(k,646)*y(k,253) &
1987 : + .230_r8*rxt(k,647)*y(k,258) + 1.720_r8*rxt(k,648)*y(k,281) &
1988 : + .460_r8*rxt(k,651)*y(k,302) + .460_r8*rxt(k,652)*y(k,304) &
1989 254840160 : + .460_r8*rxt(k,653)*y(k,307)
1990 254840160 : mat(k,2356) = .770_r8*rxt(k,657)*y(k,147) + rxt(k,658)*y(k,149)
1991 254840160 : mat(k,1555) = rxt(k,535)*y(k,147)
1992 254840160 : mat(k,867) = mat(k,867) + rxt(k,559)*y(k,147)
1993 254840160 : mat(k,1630) = mat(k,1630) + rxt(k,392)*y(k,147) + rxt(k,393)*y(k,149)
1994 254840160 : mat(k,936) = mat(k,936) + rxt(k,562)*y(k,147)
1995 254840160 : mat(k,768) = rxt(k,395)*y(k,147)
1996 254840160 : mat(k,1519) = rxt(k,537)*y(k,147)
1997 : mat(k,2587) = 1.820_r8*rxt(k,669)*y(k,147) + 1.950_r8*rxt(k,670)*y(k,149) &
1998 : + .950_r8*rxt(k,665)*y(k,252) + .770_r8*rxt(k,666)*y(k,253) &
1999 : + .480_r8*rxt(k,667)*y(k,258) + 3.080_r8*rxt(k,668)*y(k,290) &
2000 : + .950_r8*rxt(k,671)*y(k,302) + .950_r8*rxt(k,672)*y(k,304) &
2001 254840160 : + .950_r8*rxt(k,673)*y(k,307)
2002 254840160 : mat(k,2488) = .710_r8*rxt(k,677)*y(k,147) + rxt(k,678)*y(k,149)
2003 254840160 : mat(k,1654) = rxt(k,539)*y(k,147)
2004 : mat(k,4097) = mat(k,4097) + rxt(k,408)*y(k,1) + rxt(k,193)*y(k,94) &
2005 : + .400_r8*rxt(k,422)*y(k,107) + .190_r8*rxt(k,423)*y(k,108) &
2006 : + rxt(k,452)*y(k,111) + .500_r8*rxt(k,454)*y(k,112) &
2007 : + .080_r8*rxt(k,460)*y(k,115) + .150_r8*rxt(k,463)*y(k,116) &
2008 : + .130_r8*rxt(k,466)*y(k,117) + .040_r8*rxt(k,470)*y(k,118) &
2009 : + .070_r8*rxt(k,485)*y(k,121) + .500_r8*rxt(k,380)*y(k,127) &
2010 : + .040_r8*rxt(k,502)*y(k,139) + rxt(k,205)*y(k,149) + rxt(k,348) &
2011 : *y(k,150) + rxt(k,364)*y(k,151) + rxt(k,718)*y(k,204) &
2012 : + rxt(k,737)*y(k,206) + rxt(k,757)*y(k,210) + rxt(k,769) &
2013 254840160 : *y(k,214) + rxt(k,783)*y(k,221) + rxt(k,787)*y(k,223)
2014 254840160 : mat(k,460) = rxt(k,565)*y(k,147)
2015 254840160 : mat(k,945) = rxt(k,366)*y(k,147)
2016 254840160 : mat(k,1345) = rxt(k,370)*y(k,147)
2017 254840160 : mat(k,958) = .700_r8*rxt(k,688)*y(k,147)
2018 254840160 : mat(k,1012) = .700_r8*rxt(k,692)*y(k,147)
2019 254840160 : mat(k,2668) = .700_r8*rxt(k,696)*y(k,147) + rxt(k,697)*y(k,149)
2020 : mat(k,2757) = mat(k,2757) + rxt(k,704)*y(k,147) + rxt(k,705)*y(k,149) &
2021 : + rxt(k,591)*y(k,237) + rxt(k,611)*y(k,240) + .500_r8*rxt(k,631) &
2022 : *y(k,245) + .460_r8*rxt(k,651)*y(k,281) + .950_r8*rxt(k,671) &
2023 254840160 : *y(k,290)
2024 254840160 : mat(k,2713) = .830_r8*rxt(k,712)*y(k,147) + rxt(k,713)*y(k,149)
2025 : mat(k,2803) = mat(k,2803) + rxt(k,722)*y(k,147) + rxt(k,723)*y(k,149) &
2026 : + rxt(k,592)*y(k,237) + rxt(k,612)*y(k,240) + .500_r8*rxt(k,632) &
2027 : *y(k,245) + .460_r8*rxt(k,652)*y(k,281) + .950_r8*rxt(k,672) &
2028 254840160 : *y(k,290)
2029 254840160 : mat(k,2252) = .700_r8*rxt(k,731)*y(k,147) + rxt(k,732)*y(k,149)
2030 254840160 : mat(k,2690) = .910_r8*rxt(k,741)*y(k,147) + rxt(k,742)*y(k,149)
2031 : mat(k,2850) = mat(k,2850) + rxt(k,752)*y(k,147) + rxt(k,753)*y(k,149) &
2032 : + rxt(k,593)*y(k,237) + rxt(k,613)*y(k,240) + .500_r8*rxt(k,633) &
2033 : *y(k,245) + .460_r8*rxt(k,653)*y(k,281) + .950_r8*rxt(k,673) &
2034 254840160 : *y(k,290)
2035 254840160 : mat(k,803) = .700_r8*rxt(k,761)*y(k,147)
2036 254840160 : mat(k,967) = .700_r8*rxt(k,766)*y(k,147)
2037 254840160 : mat(k,1225) = .700_r8*rxt(k,773)*y(k,147)
2038 254840160 : mat(k,1021) = .700_r8*rxt(k,777)*y(k,147)
2039 254840160 : mat(k,811) = .700_r8*rxt(k,781)*y(k,147)
2040 254840160 : mat(k,819) = .700_r8*rxt(k,785)*y(k,147)
2041 254840160 : mat(k,881) = rxt(k,572)*y(k,147)
2042 254840160 : mat(k,904) = rxt(k,578)*y(k,147)
2043 263009123 : mat(k,541) = rxt(k,581)*y(k,147)
2044 : end do
2045 8168963 : end subroutine nlnmat07
2046 8168963 : subroutine nlnmat08( avec_len, mat, y, rxt )
2047 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
2048 : implicit none
2049 : !----------------------------------------------
2050 : ! ... dummy arguments
2051 : !----------------------------------------------
2052 : integer, intent(in) :: avec_len
2053 : real(r8), intent(in) :: y(veclen,gas_pcnst)
2054 : real(r8), intent(in) :: rxt(veclen,rxntot)
2055 : real(r8), intent(inout) :: mat(veclen,nzcnt)
2056 : !----------------------------------------------
2057 : ! ... local variables
2058 : !----------------------------------------------
2059 : integer :: k
2060 : !----------------------------------------------
2061 : ! ... complete matrix entries implicit species
2062 : !----------------------------------------------
2063 263009123 : do k = 1,avec_len
2064 254840160 : mat(k,3610) = -(rxt(k,202)*y(k,258) + rxt(k,203)*y(k,147) + rxt(k,204) &
2065 : *y(k,157) + rxt(k,205)*y(k,295) + rxt(k,213)*y(k,148) + rxt(k,299) &
2066 : *y(k,43) + rxt(k,332)*y(k,46) + rxt(k,353)*y(k,30) + rxt(k,360) &
2067 : *y(k,50) + rxt(k,374)*y(k,16) + rxt(k,393)*y(k,286) + rxt(k,473) &
2068 : *y(k,109) + rxt(k,478)*y(k,274) + rxt(k,584)*y(k,4) + rxt(k,590) &
2069 : *y(k,237) + rxt(k,598)*y(k,238) + rxt(k,604)*y(k,7) + rxt(k,610) &
2070 : *y(k,240) + rxt(k,618)*y(k,241) + rxt(k,624)*y(k,17) + rxt(k,630) &
2071 : *y(k,245) + rxt(k,638)*y(k,246) + rxt(k,644)*y(k,125) + rxt(k,650) &
2072 : *y(k,281) + rxt(k,658)*y(k,282) + rxt(k,664)*y(k,135) + rxt(k,670) &
2073 : *y(k,290) + rxt(k,678)*y(k,291) + rxt(k,697)*y(k,301) + rxt(k,705) &
2074 : *y(k,302) + rxt(k,708)*y(k,203) + rxt(k,713)*y(k,303) + rxt(k,723) &
2075 : *y(k,304) + rxt(k,727)*y(k,205) + rxt(k,732)*y(k,305) + rxt(k,742) &
2076 : *y(k,306) + rxt(k,753)*y(k,307) + rxt(k,755)*y(k,202) + rxt(k,759) &
2077 254840160 : *y(k,212) + rxt(k,764)*y(k,213) + rxt(k,793)*y(k,69))
2078 254840160 : mat(k,3373) = -rxt(k,202)*y(k,149)
2079 254840160 : mat(k,3114) = -rxt(k,203)*y(k,149)
2080 254840160 : mat(k,3167) = -rxt(k,204)*y(k,149)
2081 254840160 : mat(k,4096) = -rxt(k,205)*y(k,149)
2082 254840160 : mat(k,3662) = -rxt(k,213)*y(k,149)
2083 254840160 : mat(k,3193) = -rxt(k,299)*y(k,149)
2084 254840160 : mat(k,1437) = -rxt(k,332)*y(k,149)
2085 254840160 : mat(k,1396) = -rxt(k,353)*y(k,149)
2086 254840160 : mat(k,1931) = -rxt(k,360)*y(k,149)
2087 254840160 : mat(k,382) = -rxt(k,374)*y(k,149)
2088 254840160 : mat(k,1629) = -rxt(k,393)*y(k,149)
2089 254840160 : mat(k,1427) = -rxt(k,473)*y(k,149)
2090 254840160 : mat(k,2191) = -rxt(k,478)*y(k,149)
2091 254840160 : mat(k,1286) = -rxt(k,584)*y(k,149)
2092 254840160 : mat(k,2311) = -rxt(k,590)*y(k,149)
2093 254840160 : mat(k,2456) = -rxt(k,598)*y(k,149)
2094 254840160 : mat(k,1051) = -rxt(k,604)*y(k,149)
2095 254840160 : mat(k,2227) = -rxt(k,610)*y(k,149)
2096 254840160 : mat(k,2424) = -rxt(k,618)*y(k,149)
2097 254840160 : mat(k,1103) = -rxt(k,624)*y(k,149)
2098 254840160 : mat(k,2550) = -rxt(k,630)*y(k,149)
2099 254840160 : mat(k,2395) = -rxt(k,638)*y(k,149)
2100 254840160 : mat(k,1082) = -rxt(k,644)*y(k,149)
2101 254840160 : mat(k,2521) = -rxt(k,650)*y(k,149)
2102 254840160 : mat(k,2355) = -rxt(k,658)*y(k,149)
2103 254840160 : mat(k,835) = -rxt(k,664)*y(k,149)
2104 254840160 : mat(k,2586) = -rxt(k,670)*y(k,149)
2105 254840160 : mat(k,2487) = -rxt(k,678)*y(k,149)
2106 254840160 : mat(k,2667) = -rxt(k,697)*y(k,149)
2107 254840160 : mat(k,2756) = -rxt(k,705)*y(k,149)
2108 254840160 : mat(k,1295) = -rxt(k,708)*y(k,149)
2109 254840160 : mat(k,2712) = -rxt(k,713)*y(k,149)
2110 254840160 : mat(k,2802) = -rxt(k,723)*y(k,149)
2111 254840160 : mat(k,1724) = -rxt(k,727)*y(k,149)
2112 254840160 : mat(k,2251) = -rxt(k,732)*y(k,149)
2113 254840160 : mat(k,2689) = -rxt(k,742)*y(k,149)
2114 254840160 : mat(k,2849) = -rxt(k,753)*y(k,149)
2115 254840160 : mat(k,2366) = -rxt(k,755)*y(k,149)
2116 254840160 : mat(k,2641) = -rxt(k,759)*y(k,149)
2117 254840160 : mat(k,2613) = -rxt(k,764)*y(k,149)
2118 254840160 : mat(k,308) = -rxt(k,793)*y(k,149)
2119 254840160 : mat(k,567) = rxt(k,264)*y(k,157)
2120 254840160 : mat(k,3846) = rxt(k,231)*y(k,61)
2121 254840160 : mat(k,1330) = rxt(k,231)*y(k,57) + rxt(k,233)*y(k,157) + rxt(k,234)*y(k,295)
2122 254840160 : mat(k,1248) = rxt(k,278)*y(k,93)
2123 254840160 : mat(k,2955) = rxt(k,278)*y(k,75) + rxt(k,215)*y(k,295)
2124 254840160 : mat(k,532) = rxt(k,398)*y(k,295)
2125 254840160 : mat(k,3662) = mat(k,3662) + rxt(k,201)*y(k,157) + rxt(k,200)*y(k,158)
2126 : mat(k,3167) = mat(k,3167) + rxt(k,264)*y(k,21) + rxt(k,233)*y(k,61) &
2127 254840160 : + rxt(k,201)*y(k,148)
2128 254840160 : mat(k,3764) = rxt(k,200)*y(k,148)
2129 254840160 : mat(k,574) = rxt(k,349)*y(k,295)
2130 : mat(k,4096) = mat(k,4096) + rxt(k,234)*y(k,61) + rxt(k,215)*y(k,93) &
2131 254840160 : + rxt(k,398)*y(k,131) + rxt(k,349)*y(k,163)
2132 254840160 : mat(k,1454) = -(rxt(k,348)*y(k,295))
2133 254840160 : mat(k,4018) = -rxt(k,348)*y(k,150)
2134 254840160 : mat(k,2094) = .830_r8*rxt(k,469)*y(k,158)
2135 254840160 : mat(k,1566) = .130_r8*rxt(k,484)*y(k,158)
2136 254840160 : mat(k,2126) = .220_r8*rxt(k,501)*y(k,158) + .100_r8*rxt(k,502)*y(k,295)
2137 : mat(k,3039) = .870_r8*rxt(k,519)*y(k,272) + .330_r8*rxt(k,521)*y(k,273) &
2138 : + .070_r8*rxt(k,525)*y(k,275) + .150_r8*rxt(k,527)*y(k,276) &
2139 254840160 : + .120_r8*rxt(k,539)*y(k,293)
2140 : mat(k,3699) = .830_r8*rxt(k,469)*y(k,118) + .130_r8*rxt(k,484)*y(k,121) &
2141 254840160 : + .220_r8*rxt(k,501)*y(k,139)
2142 : mat(k,3296) = .440_r8*rxt(k,467)*y(k,272) + .150_r8*rxt(k,471)*y(k,273) &
2143 : + .060_r8*rxt(k,479)*y(k,275) + .120_r8*rxt(k,482)*y(k,276) &
2144 254840160 : + .100_r8*rxt(k,499)*y(k,293)
2145 254840160 : mat(k,1133) = .870_r8*rxt(k,519)*y(k,147) + .440_r8*rxt(k,467)*y(k,258)
2146 254840160 : mat(k,1441) = .330_r8*rxt(k,521)*y(k,147) + .150_r8*rxt(k,471)*y(k,258)
2147 254840160 : mat(k,1310) = .070_r8*rxt(k,525)*y(k,147) + .060_r8*rxt(k,479)*y(k,258)
2148 254840160 : mat(k,1362) = .150_r8*rxt(k,527)*y(k,147) + .120_r8*rxt(k,482)*y(k,258)
2149 254840160 : mat(k,1635) = .120_r8*rxt(k,539)*y(k,147) + .100_r8*rxt(k,499)*y(k,258)
2150 254840160 : mat(k,4018) = mat(k,4018) + .100_r8*rxt(k,502)*y(k,139)
2151 254840160 : mat(k,1481) = -(rxt(k,364)*y(k,295))
2152 254840160 : mat(k,4022) = -rxt(k,364)*y(k,151)
2153 254840160 : mat(k,1387) = rxt(k,353)*y(k,149)
2154 254840160 : mat(k,1253) = .350_r8*rxt(k,423)*y(k,295)
2155 254840160 : mat(k,2065) = .830_r8*rxt(k,459)*y(k,158)
2156 254840160 : mat(k,1569) = .700_r8*rxt(k,484)*y(k,158)
2157 254840160 : mat(k,1776) = .500_r8*rxt(k,380)*y(k,295)
2158 254840160 : mat(k,1913) = .500_r8*rxt(k,399)*y(k,295)
2159 254840160 : mat(k,2128) = .610_r8*rxt(k,501)*y(k,158) + .350_r8*rxt(k,502)*y(k,295)
2160 : mat(k,3043) = .940_r8*rxt(k,513)*y(k,269) + .340_r8*rxt(k,521)*y(k,273) &
2161 : + .400_r8*rxt(k,525)*y(k,275) + .810_r8*rxt(k,527)*y(k,276) &
2162 254840160 : + .130_r8*rxt(k,539)*y(k,293)
2163 254840160 : mat(k,3545) = rxt(k,353)*y(k,30)
2164 : mat(k,3701) = .830_r8*rxt(k,459)*y(k,115) + .700_r8*rxt(k,484)*y(k,121) &
2165 254840160 : + .610_r8*rxt(k,501)*y(k,139)
2166 : mat(k,3300) = .550_r8*rxt(k,457)*y(k,269) + .150_r8*rxt(k,471)*y(k,273) &
2167 : + .280_r8*rxt(k,479)*y(k,275) + .680_r8*rxt(k,482)*y(k,276) &
2168 254840160 : + .100_r8*rxt(k,499)*y(k,293)
2169 254840160 : mat(k,1123) = .940_r8*rxt(k,513)*y(k,147) + .550_r8*rxt(k,457)*y(k,258)
2170 254840160 : mat(k,1443) = .340_r8*rxt(k,521)*y(k,147) + .150_r8*rxt(k,471)*y(k,258)
2171 254840160 : mat(k,1312) = .400_r8*rxt(k,525)*y(k,147) + .280_r8*rxt(k,479)*y(k,258)
2172 254840160 : mat(k,1365) = .810_r8*rxt(k,527)*y(k,147) + .680_r8*rxt(k,482)*y(k,258)
2173 254840160 : mat(k,1638) = .130_r8*rxt(k,539)*y(k,147) + .100_r8*rxt(k,499)*y(k,258)
2174 : mat(k,4022) = mat(k,4022) + .350_r8*rxt(k,423)*y(k,108) + .500_r8*rxt(k,380) &
2175 : *y(k,127) + .500_r8*rxt(k,399)*y(k,133) + .350_r8*rxt(k,502) &
2176 254840160 : *y(k,139)
2177 : mat(k,3161) = -(rxt(k,173)*y(k,158) + 4._r8*rxt(k,174)*y(k,157) + rxt(k,176) &
2178 : *y(k,79) + rxt(k,177)*y(k,81) + rxt(k,182)*y(k,258) + rxt(k,188) &
2179 : *y(k,295) + (rxt(k,199) + rxt(k,201)) * y(k,148) + rxt(k,204) &
2180 : *y(k,149) + rxt(k,209)*y(k,147) + rxt(k,233)*y(k,61) + rxt(k,235) &
2181 : *y(k,60) + rxt(k,238)*y(k,87) + rxt(k,241)*y(k,96) + rxt(k,264) &
2182 : *y(k,21) + rxt(k,265)*y(k,20) + rxt(k,267)*y(k,83) + rxt(k,269) &
2183 254840160 : *y(k,95) + rxt(k,300)*y(k,43) + rxt(k,795)*y(k,161))
2184 254840160 : mat(k,3758) = -rxt(k,173)*y(k,157)
2185 254840160 : mat(k,1678) = -rxt(k,176)*y(k,157)
2186 254840160 : mat(k,1489) = -rxt(k,177)*y(k,157)
2187 254840160 : mat(k,3367) = -rxt(k,182)*y(k,157)
2188 254840160 : mat(k,4090) = -rxt(k,188)*y(k,157)
2189 254840160 : mat(k,3656) = -(rxt(k,199) + rxt(k,201)) * y(k,157)
2190 254840160 : mat(k,3604) = -rxt(k,204)*y(k,157)
2191 254840160 : mat(k,3108) = -rxt(k,209)*y(k,157)
2192 254840160 : mat(k,1328) = -rxt(k,233)*y(k,157)
2193 254840160 : mat(k,3510) = -rxt(k,235)*y(k,157)
2194 254840160 : mat(k,3130) = -rxt(k,238)*y(k,157)
2195 254840160 : mat(k,1161) = -rxt(k,241)*y(k,157)
2196 254840160 : mat(k,565) = -rxt(k,264)*y(k,157)
2197 254840160 : mat(k,3484) = -rxt(k,265)*y(k,157)
2198 254840160 : mat(k,1153) = -rxt(k,267)*y(k,157)
2199 254840160 : mat(k,998) = -rxt(k,269)*y(k,157)
2200 254840160 : mat(k,3187) = -rxt(k,300)*y(k,157)
2201 254840160 : mat(k,391) = -rxt(k,795)*y(k,157)
2202 254840160 : mat(k,2934) = rxt(k,180)*y(k,258)
2203 254840160 : mat(k,480) = rxt(k,194)*y(k,147) + rxt(k,195)*y(k,148)
2204 254840160 : mat(k,3108) = mat(k,3108) + rxt(k,194)*y(k,136)
2205 254840160 : mat(k,3656) = mat(k,3656) + rxt(k,195)*y(k,136)
2206 254840160 : mat(k,3367) = mat(k,3367) + rxt(k,180)*y(k,78)
2207 254840160 : mat(k,4090) = mat(k,4090) + 2.000_r8*rxt(k,190)*y(k,295)
2208 : mat(k,3766) = -(rxt(k,172)*y(k,294) + rxt(k,173)*y(k,157) + rxt(k,183) &
2209 : *y(k,258) + rxt(k,184)*y(k,78) + rxt(k,189)*y(k,295) + rxt(k,200) &
2210 : *y(k,148) + rxt(k,208)*y(k,147) + rxt(k,224)*y(k,57) + rxt(k,256) &
2211 : *y(k,18) + rxt(k,323)*y(k,26) + rxt(k,354)*y(k,30) + rxt(k,385) &
2212 : *y(k,126) + rxt(k,403)*y(k,132) + rxt(k,459)*y(k,115) + rxt(k,469) &
2213 : *y(k,118) + rxt(k,484)*y(k,121) + rxt(k,486)*y(k,109) + rxt(k,501) &
2214 : *y(k,139) + rxt(k,568)*y(k,165) + rxt(k,602)*y(k,4) + rxt(k,622) &
2215 : *y(k,7) + rxt(k,642)*y(k,17) + rxt(k,662)*y(k,125) + rxt(k,682) &
2216 : *y(k,135) + rxt(k,762)*y(k,212) + rxt(k,767)*y(k,213) + rxt(k,799) &
2217 254840160 : *y(k,172) + rxt(k,805)*y(k,174))
2218 254840160 : mat(k,3807) = -rxt(k,172)*y(k,158)
2219 254840160 : mat(k,3169) = -rxt(k,173)*y(k,158)
2220 254840160 : mat(k,3375) = -rxt(k,183)*y(k,158)
2221 254840160 : mat(k,2939) = -rxt(k,184)*y(k,158)
2222 254840160 : mat(k,4098) = -rxt(k,189)*y(k,158)
2223 254840160 : mat(k,3664) = -rxt(k,200)*y(k,158)
2224 254840160 : mat(k,3116) = -rxt(k,208)*y(k,158)
2225 254840160 : mat(k,3848) = -rxt(k,224)*y(k,158)
2226 254840160 : mat(k,2205) = -rxt(k,256)*y(k,158)
2227 254840160 : mat(k,591) = -rxt(k,323)*y(k,158)
2228 254840160 : mat(k,1398) = -rxt(k,354)*y(k,158)
2229 254840160 : mat(k,2028) = -rxt(k,385)*y(k,158)
2230 254840160 : mat(k,2053) = -rxt(k,403)*y(k,158)
2231 254840160 : mat(k,2089) = -rxt(k,459)*y(k,158)
2232 254840160 : mat(k,2121) = -rxt(k,469)*y(k,158)
2233 254840160 : mat(k,1593) = -rxt(k,484)*y(k,158)
2234 254840160 : mat(k,1428) = -rxt(k,486)*y(k,158)
2235 254840160 : mat(k,2150) = -rxt(k,501)*y(k,158)
2236 254840160 : mat(k,487) = -rxt(k,568)*y(k,158)
2237 254840160 : mat(k,1287) = -rxt(k,602)*y(k,158)
2238 254840160 : mat(k,1052) = -rxt(k,622)*y(k,158)
2239 254840160 : mat(k,1104) = -rxt(k,642)*y(k,158)
2240 254840160 : mat(k,1083) = -rxt(k,662)*y(k,158)
2241 254840160 : mat(k,836) = -rxt(k,682)*y(k,158)
2242 254840160 : mat(k,2643) = -rxt(k,762)*y(k,158)
2243 254840160 : mat(k,2615) = -rxt(k,767)*y(k,158)
2244 254840160 : mat(k,547) = -rxt(k,799)*y(k,158)
2245 254840160 : mat(k,1609) = -rxt(k,805)*y(k,158)
2246 254840160 : mat(k,2924) = .150_r8*rxt(k,337)*y(k,258)
2247 : mat(k,3375) = mat(k,3375) + .150_r8*rxt(k,337)*y(k,252) + .150_r8*rxt(k,390) &
2248 : *y(k,286) + .150_r8*rxt(k,703)*y(k,302) + .150_r8*rxt(k,721) &
2249 254840160 : *y(k,304) + .150_r8*rxt(k,751)*y(k,307)
2250 254840160 : mat(k,1631) = .150_r8*rxt(k,390)*y(k,258)
2251 254840160 : mat(k,2758) = .150_r8*rxt(k,703)*y(k,258)
2252 254840160 : mat(k,2804) = .150_r8*rxt(k,721)*y(k,258)
2253 254840160 : mat(k,2851) = .150_r8*rxt(k,751)*y(k,258)
2254 254840160 : mat(k,342) = -(rxt(k,806)*y(k,174))
2255 254840160 : mat(k,1597) = -rxt(k,806)*y(k,160)
2256 254840160 : mat(k,3474) = rxt(k,258)*y(k,60)
2257 254840160 : mat(k,3500) = rxt(k,258)*y(k,20) + 2.000_r8*rxt(k,228)*y(k,60)
2258 254840160 : mat(k,385) = -(rxt(k,795)*y(k,157) + rxt(k,796)*y(k,295))
2259 254840160 : mat(k,3143) = -rxt(k,795)*y(k,161)
2260 254840160 : mat(k,3909) = -rxt(k,796)*y(k,161)
2261 254840160 : mat(k,973) = rxt(k,379)*y(k,295)
2262 254840160 : mat(k,1911) = .500_r8*rxt(k,399)*y(k,295)
2263 254840160 : mat(k,3879) = rxt(k,379)*y(k,97) + .500_r8*rxt(k,399)*y(k,133)
2264 254840160 : mat(k,569) = -(rxt(k,349)*y(k,295))
2265 254840160 : mat(k,3935) = -rxt(k,349)*y(k,163)
2266 254840160 : mat(k,3627) = rxt(k,351)*y(k,252)
2267 263009123 : mat(k,2855) = rxt(k,351)*y(k,148)
2268 : end do
2269 8168963 : end subroutine nlnmat08
2270 8168963 : subroutine nlnmat09( avec_len, mat, y, rxt )
2271 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
2272 : implicit none
2273 : !----------------------------------------------
2274 : ! ... dummy arguments
2275 : !----------------------------------------------
2276 : integer, intent(in) :: avec_len
2277 : real(r8), intent(in) :: y(veclen,gas_pcnst)
2278 : real(r8), intent(in) :: rxt(veclen,rxntot)
2279 : real(r8), intent(inout) :: mat(veclen,nzcnt)
2280 : !----------------------------------------------
2281 : ! ... local variables
2282 : !----------------------------------------------
2283 : integer :: k
2284 : !----------------------------------------------
2285 : ! ... complete matrix entries implicit species
2286 : !----------------------------------------------
2287 263009123 : do k = 1,avec_len
2288 254840160 : mat(k,3617) = rxt(k,570)*y(k,235)
2289 254840160 : mat(k,549) = rxt(k,570)*y(k,148)
2290 254840160 : mat(k,484) = -(rxt(k,567)*y(k,148) + rxt(k,568)*y(k,158))
2291 254840160 : mat(k,3623) = -rxt(k,567)*y(k,165)
2292 254840160 : mat(k,3675) = -rxt(k,568)*y(k,165)
2293 254840160 : mat(k,220) = .070_r8*rxt(k,554)*y(k,295)
2294 254840160 : mat(k,2987) = rxt(k,552)*y(k,251)
2295 254840160 : mat(k,194) = .060_r8*rxt(k,566)*y(k,295)
2296 254840160 : mat(k,238) = .070_r8*rxt(k,582)*y(k,295)
2297 254840160 : mat(k,710) = rxt(k,552)*y(k,147)
2298 : mat(k,3924) = .070_r8*rxt(k,554)*y(k,67) + .060_r8*rxt(k,566)*y(k,166) &
2299 254840160 : + .070_r8*rxt(k,582)*y(k,231)
2300 254840160 : mat(k,192) = -(rxt(k,566)*y(k,295))
2301 254840160 : mat(k,3876) = -rxt(k,566)*y(k,166)
2302 254840160 : mat(k,184) = .530_r8*rxt(k,543)*y(k,295)
2303 254840160 : mat(k,3876) = mat(k,3876) + .530_r8*rxt(k,543)*y(k,8)
2304 254840160 : mat(k,347) = -(rxt(k,569)*y(k,295))
2305 254840160 : mat(k,3902) = -rxt(k,569)*y(k,167)
2306 254840160 : mat(k,3220) = rxt(k,564)*y(k,296)
2307 254840160 : mat(k,455) = rxt(k,564)*y(k,258)
2308 254840160 : mat(k,577) = -(rxt(k,367)*y(k,295))
2309 254840160 : mat(k,3936) = -rxt(k,367)*y(k,170)
2310 254840160 : mat(k,3240) = rxt(k,365)*y(k,297)
2311 254840160 : mat(k,938) = rxt(k,365)*y(k,258)
2312 254840160 : mat(k,405) = -(rxt(k,371)*y(k,295))
2313 254840160 : mat(k,3911) = -rxt(k,371)*y(k,171)
2314 254840160 : mat(k,3226) = .850_r8*rxt(k,369)*y(k,298)
2315 254840160 : mat(k,1335) = .850_r8*rxt(k,369)*y(k,258)
2316 254840160 : mat(k,543) = -(rxt(k,799)*y(k,158) + rxt(k,802)*y(k,295))
2317 254840160 : mat(k,3676) = -rxt(k,799)*y(k,172)
2318 254840160 : mat(k,3932) = -rxt(k,802)*y(k,172)
2319 : mat(k,1600) = -(rxt(k,800)*y(k,20) + rxt(k,801)*y(k,60) + rxt(k,803)*y(k,148) &
2320 : + rxt(k,805)*y(k,158) + rxt(k,806)*y(k,160) + rxt(k,807) &
2321 254840160 : *y(k,295))
2322 254840160 : mat(k,3478) = -rxt(k,800)*y(k,174)
2323 254840160 : mat(k,3504) = -rxt(k,801)*y(k,174)
2324 254840160 : mat(k,3639) = -rxt(k,803)*y(k,174)
2325 254840160 : mat(k,3705) = -rxt(k,805)*y(k,174)
2326 254840160 : mat(k,344) = -rxt(k,806)*y(k,174)
2327 254840160 : mat(k,4032) = -rxt(k,807)*y(k,174)
2328 254840160 : mat(k,3152) = rxt(k,795)*y(k,161)
2329 254840160 : mat(k,3705) = mat(k,3705) + rxt(k,799)*y(k,172)
2330 254840160 : mat(k,388) = rxt(k,795)*y(k,157)
2331 254840160 : mat(k,544) = rxt(k,799)*y(k,158) + rxt(k,802)*y(k,295)
2332 254840160 : mat(k,4032) = mat(k,4032) + rxt(k,802)*y(k,172)
2333 254840160 : mat(k,1235) = -(rxt(k,798)*y(k,295))
2334 254840160 : mat(k,4002) = -rxt(k,798)*y(k,175)
2335 254840160 : mat(k,3477) = rxt(k,800)*y(k,174)
2336 254840160 : mat(k,3502) = rxt(k,801)*y(k,174)
2337 254840160 : mat(k,305) = rxt(k,793)*y(k,149) + (rxt(k,794)+.500_r8*rxt(k,808))*y(k,295)
2338 254840160 : mat(k,3635) = rxt(k,803)*y(k,174)
2339 254840160 : mat(k,3537) = rxt(k,793)*y(k,69)
2340 254840160 : mat(k,3691) = rxt(k,805)*y(k,174)
2341 254840160 : mat(k,343) = rxt(k,806)*y(k,174)
2342 254840160 : mat(k,387) = rxt(k,796)*y(k,295)
2343 : mat(k,1599) = rxt(k,800)*y(k,20) + rxt(k,801)*y(k,60) + rxt(k,803)*y(k,148) &
2344 : + rxt(k,805)*y(k,158) + rxt(k,806)*y(k,160) + rxt(k,807) &
2345 254840160 : *y(k,295)
2346 : mat(k,4002) = mat(k,4002) + (rxt(k,794)+.500_r8*rxt(k,808))*y(k,69) &
2347 254840160 : + rxt(k,796)*y(k,161) + rxt(k,807)*y(k,174)
2348 254840160 : mat(k,279) = -(rxt(k,809)*y(k,319))
2349 254840160 : mat(k,4104) = -rxt(k,809)*y(k,176)
2350 254840160 : mat(k,1234) = rxt(k,798)*y(k,295)
2351 254840160 : mat(k,3894) = rxt(k,798)*y(k,175)
2352 254840160 : mat(k,1265) = .0508005_r8*rxt(k,844)*y(k,158)
2353 254840160 : mat(k,1034) = .2202005_r8*rxt(k,849)*y(k,158)
2354 254840160 : mat(k,1085) = .0508005_r8*rxt(k,857)*y(k,158)
2355 254840160 : mat(k,1064) = .0508005_r8*rxt(k,870)*y(k,158)
2356 254840160 : mat(k,821) = .0508005_r8*rxt(k,875)*y(k,158)
2357 : mat(k,2962) = .0245005_r8*rxt(k,843)*y(k,239) + .1279005_r8*rxt(k,848) &
2358 : *y(k,242) + .0097005_r8*rxt(k,853)*y(k,244) &
2359 : + .0245005_r8*rxt(k,856)*y(k,247) + .0003005_r8*rxt(k,861) &
2360 : *y(k,277) + .1056005_r8*rxt(k,865)*y(k,280) &
2361 : + .0245005_r8*rxt(k,869)*y(k,283) + .0245005_r8*rxt(k,874) &
2362 : *y(k,292) + .0154005_r8*rxt(k,880)*y(k,315) &
2363 254840160 : + .0063005_r8*rxt(k,883)*y(k,317)
2364 : mat(k,3669) = .0508005_r8*rxt(k,844)*y(k,4) + .2202005_r8*rxt(k,849)*y(k,7) &
2365 : + .0508005_r8*rxt(k,857)*y(k,17) + .0508005_r8*rxt(k,870) &
2366 254840160 : *y(k,125) + .0508005_r8*rxt(k,875)*y(k,135)
2367 254840160 : mat(k,46) = .5931005_r8*rxt(k,877)*y(k,295)
2368 254840160 : mat(k,52) = .0245005_r8*rxt(k,843)*y(k,147) + .0508005_r8*rxt(k,842)*y(k,258)
2369 254840160 : mat(k,58) = .1279005_r8*rxt(k,848)*y(k,147) + .2202005_r8*rxt(k,847)*y(k,258)
2370 254840160 : mat(k,64) = .0097005_r8*rxt(k,853)*y(k,147) + .0023005_r8*rxt(k,852)*y(k,258)
2371 254840160 : mat(k,70) = .0245005_r8*rxt(k,856)*y(k,147) + .0508005_r8*rxt(k,855)*y(k,258)
2372 : mat(k,3200) = .0508005_r8*rxt(k,842)*y(k,239) + .2202005_r8*rxt(k,847) &
2373 : *y(k,242) + .0023005_r8*rxt(k,852)*y(k,244) &
2374 : + .0508005_r8*rxt(k,855)*y(k,247) + .0031005_r8*rxt(k,860) &
2375 : *y(k,277) + .2381005_r8*rxt(k,864)*y(k,280) &
2376 : + .0508005_r8*rxt(k,868)*y(k,283) + .0508005_r8*rxt(k,873) &
2377 : *y(k,292) + .1364005_r8*rxt(k,879)*y(k,315) &
2378 254840160 : + .1677005_r8*rxt(k,882)*y(k,317)
2379 254840160 : mat(k,76) = .0003005_r8*rxt(k,861)*y(k,147) + .0031005_r8*rxt(k,860)*y(k,258)
2380 254840160 : mat(k,82) = .1056005_r8*rxt(k,865)*y(k,147) + .2381005_r8*rxt(k,864)*y(k,258)
2381 254840160 : mat(k,90) = .0245005_r8*rxt(k,869)*y(k,147) + .0508005_r8*rxt(k,868)*y(k,258)
2382 254840160 : mat(k,96) = .0245005_r8*rxt(k,874)*y(k,147) + .0508005_r8*rxt(k,873)*y(k,258)
2383 254840160 : mat(k,3853) = .5931005_r8*rxt(k,877)*y(k,198)
2384 : mat(k,102) = .0154005_r8*rxt(k,880)*y(k,147) + .1364005_r8*rxt(k,879) &
2385 254840160 : *y(k,258)
2386 : mat(k,108) = .0063005_r8*rxt(k,883)*y(k,147) + .1677005_r8*rxt(k,882) &
2387 254840160 : *y(k,258)
2388 254840160 : mat(k,1266) = .1149005_r8*rxt(k,844)*y(k,158)
2389 254840160 : mat(k,1035) = .2067005_r8*rxt(k,849)*y(k,158)
2390 254840160 : mat(k,1086) = .1149005_r8*rxt(k,857)*y(k,158)
2391 254840160 : mat(k,1065) = .1149005_r8*rxt(k,870)*y(k,158)
2392 254840160 : mat(k,822) = .1149005_r8*rxt(k,875)*y(k,158)
2393 : mat(k,2963) = .0082005_r8*rxt(k,843)*y(k,239) + .1792005_r8*rxt(k,848) &
2394 : *y(k,242) + .0034005_r8*rxt(k,853)*y(k,244) &
2395 : + .0082005_r8*rxt(k,856)*y(k,247) + .0003005_r8*rxt(k,861) &
2396 : *y(k,277) + .1026005_r8*rxt(k,865)*y(k,280) &
2397 : + .0082005_r8*rxt(k,869)*y(k,283) + .0082005_r8*rxt(k,874) &
2398 : *y(k,292) + .0452005_r8*rxt(k,880)*y(k,315) &
2399 254840160 : + .0237005_r8*rxt(k,883)*y(k,317)
2400 : mat(k,3670) = .1149005_r8*rxt(k,844)*y(k,4) + .2067005_r8*rxt(k,849)*y(k,7) &
2401 : + .1149005_r8*rxt(k,857)*y(k,17) + .1149005_r8*rxt(k,870) &
2402 254840160 : *y(k,125) + .1149005_r8*rxt(k,875)*y(k,135)
2403 254840160 : mat(k,47) = .1534005_r8*rxt(k,877)*y(k,295)
2404 254840160 : mat(k,53) = .0082005_r8*rxt(k,843)*y(k,147) + .1149005_r8*rxt(k,842)*y(k,258)
2405 254840160 : mat(k,59) = .1792005_r8*rxt(k,848)*y(k,147) + .2067005_r8*rxt(k,847)*y(k,258)
2406 254840160 : mat(k,65) = .0034005_r8*rxt(k,853)*y(k,147) + .0008005_r8*rxt(k,852)*y(k,258)
2407 254840160 : mat(k,71) = .0082005_r8*rxt(k,856)*y(k,147) + .1149005_r8*rxt(k,855)*y(k,258)
2408 : mat(k,3201) = .1149005_r8*rxt(k,842)*y(k,239) + .2067005_r8*rxt(k,847) &
2409 : *y(k,242) + .0008005_r8*rxt(k,852)*y(k,244) &
2410 : + .1149005_r8*rxt(k,855)*y(k,247) + .0035005_r8*rxt(k,860) &
2411 : *y(k,277) + .1308005_r8*rxt(k,864)*y(k,280) &
2412 : + .1149005_r8*rxt(k,868)*y(k,283) + .1149005_r8*rxt(k,873) &
2413 : *y(k,292) + .0101005_r8*rxt(k,879)*y(k,315) &
2414 254840160 : + .0174005_r8*rxt(k,882)*y(k,317)
2415 254840160 : mat(k,77) = .0003005_r8*rxt(k,861)*y(k,147) + .0035005_r8*rxt(k,860)*y(k,258)
2416 254840160 : mat(k,83) = .1026005_r8*rxt(k,865)*y(k,147) + .1308005_r8*rxt(k,864)*y(k,258)
2417 254840160 : mat(k,91) = .0082005_r8*rxt(k,869)*y(k,147) + .1149005_r8*rxt(k,868)*y(k,258)
2418 254840160 : mat(k,97) = .0082005_r8*rxt(k,874)*y(k,147) + .1149005_r8*rxt(k,873)*y(k,258)
2419 254840160 : mat(k,3854) = .1534005_r8*rxt(k,877)*y(k,198)
2420 : mat(k,103) = .0452005_r8*rxt(k,880)*y(k,147) + .0101005_r8*rxt(k,879) &
2421 254840160 : *y(k,258)
2422 : mat(k,109) = .0237005_r8*rxt(k,883)*y(k,147) + .0174005_r8*rxt(k,882) &
2423 254840160 : *y(k,258)
2424 254840160 : mat(k,1267) = .0348005_r8*rxt(k,844)*y(k,158)
2425 254840160 : mat(k,1036) = .0653005_r8*rxt(k,849)*y(k,158)
2426 254840160 : mat(k,1087) = .0348005_r8*rxt(k,857)*y(k,158)
2427 254840160 : mat(k,1066) = .0348005_r8*rxt(k,870)*y(k,158)
2428 254840160 : mat(k,823) = .0348005_r8*rxt(k,875)*y(k,158)
2429 : mat(k,2964) = .0772005_r8*rxt(k,843)*y(k,239) + .0676005_r8*rxt(k,848) &
2430 : *y(k,242) + .1579005_r8*rxt(k,853)*y(k,244) &
2431 : + .0772005_r8*rxt(k,856)*y(k,247) + .0073005_r8*rxt(k,861) &
2432 : *y(k,277) + .0521005_r8*rxt(k,865)*y(k,280) &
2433 : + .0772005_r8*rxt(k,869)*y(k,283) + .0772005_r8*rxt(k,874) &
2434 : *y(k,292) + .0966005_r8*rxt(k,880)*y(k,315) &
2435 254840160 : + .0025005_r8*rxt(k,883)*y(k,317)
2436 : mat(k,3671) = .0348005_r8*rxt(k,844)*y(k,4) + .0653005_r8*rxt(k,849)*y(k,7) &
2437 : + .0348005_r8*rxt(k,857)*y(k,17) + .0348005_r8*rxt(k,870) &
2438 254840160 : *y(k,125) + .0348005_r8*rxt(k,875)*y(k,135)
2439 254840160 : mat(k,48) = .0459005_r8*rxt(k,877)*y(k,295)
2440 254840160 : mat(k,54) = .0772005_r8*rxt(k,843)*y(k,147) + .0348005_r8*rxt(k,842)*y(k,258)
2441 254840160 : mat(k,60) = .0676005_r8*rxt(k,848)*y(k,147) + .0653005_r8*rxt(k,847)*y(k,258)
2442 254840160 : mat(k,66) = .1579005_r8*rxt(k,853)*y(k,147) + .0843005_r8*rxt(k,852)*y(k,258)
2443 254840160 : mat(k,72) = .0772005_r8*rxt(k,856)*y(k,147) + .0348005_r8*rxt(k,855)*y(k,258)
2444 : mat(k,3202) = .0348005_r8*rxt(k,842)*y(k,239) + .0653005_r8*rxt(k,847) &
2445 : *y(k,242) + .0843005_r8*rxt(k,852)*y(k,244) &
2446 : + .0348005_r8*rxt(k,855)*y(k,247) + .0003005_r8*rxt(k,860) &
2447 : *y(k,277) + .0348005_r8*rxt(k,864)*y(k,280) &
2448 : + .0348005_r8*rxt(k,868)*y(k,283) + .0348005_r8*rxt(k,873) &
2449 : *y(k,292) + .0763005_r8*rxt(k,879)*y(k,315) + .086_r8*rxt(k,882) &
2450 254840160 : *y(k,317)
2451 254840160 : mat(k,78) = .0073005_r8*rxt(k,861)*y(k,147) + .0003005_r8*rxt(k,860)*y(k,258)
2452 254840160 : mat(k,84) = .0521005_r8*rxt(k,865)*y(k,147) + .0348005_r8*rxt(k,864)*y(k,258)
2453 254840160 : mat(k,92) = .0772005_r8*rxt(k,869)*y(k,147) + .0348005_r8*rxt(k,868)*y(k,258)
2454 254840160 : mat(k,98) = .0772005_r8*rxt(k,874)*y(k,147) + .0348005_r8*rxt(k,873)*y(k,258)
2455 254840160 : mat(k,3855) = .0459005_r8*rxt(k,877)*y(k,198)
2456 : mat(k,104) = .0966005_r8*rxt(k,880)*y(k,147) + .0763005_r8*rxt(k,879) &
2457 254840160 : *y(k,258)
2458 254840160 : mat(k,110) = .0025005_r8*rxt(k,883)*y(k,147) + .086_r8*rxt(k,882)*y(k,258)
2459 : mat(k,1268) = .1749305_r8*rxt(k,841)*y(k,149) + .0554005_r8*rxt(k,844) &
2460 254840160 : *y(k,158)
2461 : mat(k,1037) = .1749305_r8*rxt(k,846)*y(k,149) + .1284005_r8*rxt(k,849) &
2462 254840160 : *y(k,158)
2463 : mat(k,1088) = .1749305_r8*rxt(k,854)*y(k,149) + .0554005_r8*rxt(k,857) &
2464 254840160 : *y(k,158)
2465 : mat(k,1401) = .0590245_r8*rxt(k,859)*y(k,149) + .0033005_r8*rxt(k,862) &
2466 254840160 : *y(k,158)
2467 : mat(k,1067) = .1749305_r8*rxt(k,867)*y(k,149) + .0554005_r8*rxt(k,870) &
2468 254840160 : *y(k,158)
2469 : mat(k,824) = .1749305_r8*rxt(k,872)*y(k,149) + .0554005_r8*rxt(k,875) &
2470 254840160 : *y(k,158)
2471 : mat(k,2965) = .0332005_r8*rxt(k,843)*y(k,239) + .079_r8*rxt(k,848)*y(k,242) &
2472 : + .0059005_r8*rxt(k,853)*y(k,244) + .0332005_r8*rxt(k,856) &
2473 : *y(k,247) + .0057005_r8*rxt(k,861)*y(k,277) &
2474 : + .0143005_r8*rxt(k,865)*y(k,280) + .0332005_r8*rxt(k,869) &
2475 : *y(k,283) + .0332005_r8*rxt(k,874)*y(k,292) &
2476 254840160 : + .0073005_r8*rxt(k,880)*y(k,315) + .011_r8*rxt(k,883)*y(k,317)
2477 : mat(k,3523) = .1749305_r8*rxt(k,841)*y(k,4) + .1749305_r8*rxt(k,846)*y(k,7) &
2478 : + .1749305_r8*rxt(k,854)*y(k,17) + .0590245_r8*rxt(k,859) &
2479 : *y(k,109) + .1749305_r8*rxt(k,867)*y(k,125) &
2480 254840160 : + .1749305_r8*rxt(k,872)*y(k,135)
2481 : mat(k,3672) = .0554005_r8*rxt(k,844)*y(k,4) + .1284005_r8*rxt(k,849)*y(k,7) &
2482 : + .0554005_r8*rxt(k,857)*y(k,17) + .0033005_r8*rxt(k,862) &
2483 : *y(k,109) + .0554005_r8*rxt(k,870)*y(k,125) &
2484 254840160 : + .0554005_r8*rxt(k,875)*y(k,135)
2485 254840160 : mat(k,49) = .0085005_r8*rxt(k,877)*y(k,295)
2486 254840160 : mat(k,55) = .0332005_r8*rxt(k,843)*y(k,147) + .0554005_r8*rxt(k,842)*y(k,258)
2487 254840160 : mat(k,61) = .079_r8*rxt(k,848)*y(k,147) + .1284005_r8*rxt(k,847)*y(k,258)
2488 254840160 : mat(k,67) = .0059005_r8*rxt(k,853)*y(k,147) + .0443005_r8*rxt(k,852)*y(k,258)
2489 254840160 : mat(k,73) = .0332005_r8*rxt(k,856)*y(k,147) + .0554005_r8*rxt(k,855)*y(k,258)
2490 : mat(k,3203) = .0554005_r8*rxt(k,842)*y(k,239) + .1284005_r8*rxt(k,847) &
2491 : *y(k,242) + .0443005_r8*rxt(k,852)*y(k,244) &
2492 : + .0554005_r8*rxt(k,855)*y(k,247) + .0271005_r8*rxt(k,860) &
2493 : *y(k,277) + .0076005_r8*rxt(k,864)*y(k,280) &
2494 : + .0554005_r8*rxt(k,868)*y(k,283) + .0554005_r8*rxt(k,873) &
2495 : *y(k,292) + .2157005_r8*rxt(k,879)*y(k,315) &
2496 254840160 : + .0512005_r8*rxt(k,882)*y(k,317)
2497 254840160 : mat(k,79) = .0057005_r8*rxt(k,861)*y(k,147) + .0271005_r8*rxt(k,860)*y(k,258)
2498 254840160 : mat(k,85) = .0143005_r8*rxt(k,865)*y(k,147) + .0076005_r8*rxt(k,864)*y(k,258)
2499 254840160 : mat(k,93) = .0332005_r8*rxt(k,869)*y(k,147) + .0554005_r8*rxt(k,868)*y(k,258)
2500 254840160 : mat(k,99) = .0332005_r8*rxt(k,874)*y(k,147) + .0554005_r8*rxt(k,873)*y(k,258)
2501 254840160 : mat(k,3856) = .0085005_r8*rxt(k,877)*y(k,198)
2502 : mat(k,105) = .0073005_r8*rxt(k,880)*y(k,147) + .2157005_r8*rxt(k,879) &
2503 254840160 : *y(k,258)
2504 263009123 : mat(k,111) = .011_r8*rxt(k,883)*y(k,147) + .0512005_r8*rxt(k,882)*y(k,258)
2505 : end do
2506 8168963 : end subroutine nlnmat09
2507 8168963 : subroutine nlnmat10( avec_len, mat, y, rxt )
2508 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
2509 : implicit none
2510 : !----------------------------------------------
2511 : ! ... dummy arguments
2512 : !----------------------------------------------
2513 : integer, intent(in) :: avec_len
2514 : real(r8), intent(in) :: y(veclen,gas_pcnst)
2515 : real(r8), intent(in) :: rxt(veclen,rxntot)
2516 : real(r8), intent(inout) :: mat(veclen,nzcnt)
2517 : !----------------------------------------------
2518 : ! ... local variables
2519 : !----------------------------------------------
2520 : integer :: k
2521 : !----------------------------------------------
2522 : ! ... complete matrix entries implicit species
2523 : !----------------------------------------------
2524 263009123 : do k = 1,avec_len
2525 254840160 : mat(k,1269) = .5901905_r8*rxt(k,841)*y(k,149) + .1278005_r8*rxt(k,844) &
2526 254840160 : *y(k,158)
2527 254840160 : mat(k,1038) = .5901905_r8*rxt(k,846)*y(k,149) + .114_r8*rxt(k,849)*y(k,158)
2528 : mat(k,1089) = .5901905_r8*rxt(k,854)*y(k,149) + .1278005_r8*rxt(k,857) &
2529 254840160 : *y(k,158)
2530 254840160 : mat(k,1402) = .0250245_r8*rxt(k,859)*y(k,149)
2531 : mat(k,1068) = .5901905_r8*rxt(k,867)*y(k,149) + .1278005_r8*rxt(k,870) &
2532 254840160 : *y(k,158)
2533 : mat(k,825) = .5901905_r8*rxt(k,872)*y(k,149) + .1278005_r8*rxt(k,875) &
2534 254840160 : *y(k,158)
2535 : mat(k,2966) = .130_r8*rxt(k,843)*y(k,239) + .1254005_r8*rxt(k,848)*y(k,242) &
2536 : + .0536005_r8*rxt(k,853)*y(k,244) + .130_r8*rxt(k,856)*y(k,247) &
2537 : + .0623005_r8*rxt(k,861)*y(k,277) + .0166005_r8*rxt(k,865) &
2538 : *y(k,280) + .130_r8*rxt(k,869)*y(k,283) + .130_r8*rxt(k,874) &
2539 : *y(k,292) + .238_r8*rxt(k,880)*y(k,315) + .1185005_r8*rxt(k,883) &
2540 254840160 : *y(k,317)
2541 : mat(k,3524) = .5901905_r8*rxt(k,841)*y(k,4) + .5901905_r8*rxt(k,846)*y(k,7) &
2542 : + .5901905_r8*rxt(k,854)*y(k,17) + .0250245_r8*rxt(k,859) &
2543 : *y(k,109) + .5901905_r8*rxt(k,867)*y(k,125) &
2544 254840160 : + .5901905_r8*rxt(k,872)*y(k,135)
2545 : mat(k,3673) = .1278005_r8*rxt(k,844)*y(k,4) + .114_r8*rxt(k,849)*y(k,7) &
2546 : + .1278005_r8*rxt(k,857)*y(k,17) + .1278005_r8*rxt(k,870) &
2547 254840160 : *y(k,125) + .1278005_r8*rxt(k,875)*y(k,135)
2548 254840160 : mat(k,50) = .0128005_r8*rxt(k,877)*y(k,295)
2549 254840160 : mat(k,56) = .130_r8*rxt(k,843)*y(k,147) + .1278005_r8*rxt(k,842)*y(k,258)
2550 254840160 : mat(k,62) = .1254005_r8*rxt(k,848)*y(k,147) + .114_r8*rxt(k,847)*y(k,258)
2551 254840160 : mat(k,68) = .0536005_r8*rxt(k,853)*y(k,147) + .1621005_r8*rxt(k,852)*y(k,258)
2552 254840160 : mat(k,74) = .130_r8*rxt(k,856)*y(k,147) + .1278005_r8*rxt(k,855)*y(k,258)
2553 : mat(k,3204) = .1278005_r8*rxt(k,842)*y(k,239) + .114_r8*rxt(k,847)*y(k,242) &
2554 : + .1621005_r8*rxt(k,852)*y(k,244) + .1278005_r8*rxt(k,855) &
2555 : *y(k,247) + .0474005_r8*rxt(k,860)*y(k,277) &
2556 : + .0113005_r8*rxt(k,864)*y(k,280) + .1278005_r8*rxt(k,868) &
2557 : *y(k,283) + .1278005_r8*rxt(k,873)*y(k,292) &
2558 : + .0738005_r8*rxt(k,879)*y(k,315) + .1598005_r8*rxt(k,882) &
2559 254840160 : *y(k,317)
2560 254840160 : mat(k,80) = .0623005_r8*rxt(k,861)*y(k,147) + .0474005_r8*rxt(k,860)*y(k,258)
2561 254840160 : mat(k,86) = .0166005_r8*rxt(k,865)*y(k,147) + .0113005_r8*rxt(k,864)*y(k,258)
2562 254840160 : mat(k,94) = .130_r8*rxt(k,869)*y(k,147) + .1278005_r8*rxt(k,868)*y(k,258)
2563 254840160 : mat(k,100) = .130_r8*rxt(k,874)*y(k,147) + .1278005_r8*rxt(k,873)*y(k,258)
2564 254840160 : mat(k,3857) = .0128005_r8*rxt(k,877)*y(k,198)
2565 254840160 : mat(k,106) = .238_r8*rxt(k,880)*y(k,147) + .0738005_r8*rxt(k,879)*y(k,258)
2566 : mat(k,112) = .1185005_r8*rxt(k,883)*y(k,147) + .1598005_r8*rxt(k,882) &
2567 254840160 : *y(k,258)
2568 254840160 : mat(k,2967) = .070_r8*rxt(k,609)*y(k,240) + .300_r8*rxt(k,617)*y(k,241)
2569 : mat(k,2209) = .070_r8*rxt(k,609)*y(k,147) + .720_r8*rxt(k,605)*y(k,240) &
2570 254840160 : + .180_r8*rxt(k,607)*y(k,253) + .500_r8*rxt(k,608)*y(k,258)
2571 254840160 : mat(k,2399) = .300_r8*rxt(k,617)*y(k,147)
2572 254840160 : mat(k,3380) = .180_r8*rxt(k,607)*y(k,240)
2573 254840160 : mat(k,3205) = .500_r8*rxt(k,608)*y(k,240)
2574 254840160 : mat(k,51) = -(rxt(k,877)*y(k,295))
2575 254840160 : mat(k,3858) = -rxt(k,877)*y(k,198)
2576 254840160 : mat(k,213) = .100_r8*rxt(k,574)*y(k,295)
2577 254840160 : mat(k,228) = .230_r8*rxt(k,576)*y(k,295)
2578 254840160 : mat(k,3882) = .100_r8*rxt(k,574)*y(k,228) + .230_r8*rxt(k,576)*y(k,229)
2579 254840160 : mat(k,2320) = -(rxt(k,689)*y(k,295))
2580 254840160 : mat(k,4067) = -rxt(k,689)*y(k,200)
2581 254840160 : mat(k,3085) = .110_r8*rxt(k,597)*y(k,238) + .700_r8*rxt(k,692)*y(k,300)
2582 254840160 : mat(k,3581) = .140_r8*rxt(k,598)*y(k,238)
2583 : mat(k,2439) = .110_r8*rxt(k,597)*y(k,147) + .140_r8*rxt(k,598)*y(k,149) &
2584 : + .140_r8*rxt(k,594)*y(k,252) + .130_r8*rxt(k,595)*y(k,253) &
2585 : + .250_r8*rxt(k,596)*y(k,258) + .140_r8*rxt(k,599)*y(k,302) &
2586 254840160 : + .140_r8*rxt(k,600)*y(k,304) + .140_r8*rxt(k,601)*y(k,307)
2587 254840160 : mat(k,2378) = .680_r8*rxt(k,636)*y(k,258)
2588 254840160 : mat(k,2895) = .140_r8*rxt(k,594)*y(k,238)
2589 254840160 : mat(k,3437) = .130_r8*rxt(k,595)*y(k,238)
2590 : mat(k,3344) = .250_r8*rxt(k,596)*y(k,238) + .680_r8*rxt(k,636)*y(k,246) &
2591 : + .900_r8*rxt(k,656)*y(k,282) + .180_r8*rxt(k,691)*y(k,300) &
2592 254840160 : + .900_r8*rxt(k,765)*y(k,309)
2593 254840160 : mat(k,2338) = .900_r8*rxt(k,656)*y(k,258)
2594 254840160 : mat(k,1008) = .700_r8*rxt(k,692)*y(k,147) + .180_r8*rxt(k,691)*y(k,258)
2595 254840160 : mat(k,2730) = .140_r8*rxt(k,599)*y(k,238)
2596 254840160 : mat(k,2776) = .140_r8*rxt(k,600)*y(k,238)
2597 254840160 : mat(k,2823) = .140_r8*rxt(k,601)*y(k,238)
2598 254840160 : mat(k,963) = .900_r8*rxt(k,765)*y(k,258)
2599 254840160 : mat(k,471) = -(rxt(k,690)*y(k,295))
2600 254840160 : mat(k,3922) = -rxt(k,690)*y(k,201)
2601 254840160 : mat(k,2400) = .900_r8*rxt(k,616)*y(k,258)
2602 254840160 : mat(k,3235) = .900_r8*rxt(k,616)*y(k,241) + .900_r8*rxt(k,676)*y(k,291)
2603 254840160 : mat(k,2460) = .900_r8*rxt(k,676)*y(k,258)
2604 254840160 : mat(k,2359) = -(rxt(k,755)*y(k,149) + rxt(k,756)*y(k,295))
2605 254840160 : mat(k,3583) = -rxt(k,755)*y(k,202)
2606 254840160 : mat(k,4069) = -rxt(k,756)*y(k,202)
2607 254840160 : mat(k,1278) = .220_r8*rxt(k,602)*y(k,158)
2608 254840160 : mat(k,3087) = .930_r8*rxt(k,589)*y(k,237) + .300_r8*rxt(k,597)*y(k,238)
2609 254840160 : mat(k,3583) = mat(k,3583) + rxt(k,590)*y(k,237) + .390_r8*rxt(k,598)*y(k,238)
2610 254840160 : mat(k,3737) = .220_r8*rxt(k,602)*y(k,4)
2611 254840160 : mat(k,1558) = rxt(k,783)*y(k,295)
2612 254840160 : mat(k,1537) = rxt(k,787)*y(k,295)
2613 254840160 : mat(k,690) = rxt(k,789)*y(k,295)
2614 : mat(k,2297) = .930_r8*rxt(k,589)*y(k,147) + rxt(k,590)*y(k,149) &
2615 : + 3.280_r8*rxt(k,585)*y(k,237) + rxt(k,586)*y(k,252) &
2616 : + .820_r8*rxt(k,587)*y(k,253) + .700_r8*rxt(k,588)*y(k,258) &
2617 : + rxt(k,591)*y(k,302) + rxt(k,592)*y(k,304) + rxt(k,593) &
2618 254840160 : *y(k,307)
2619 : mat(k,2440) = .300_r8*rxt(k,597)*y(k,147) + .390_r8*rxt(k,598)*y(k,149) &
2620 : + .390_r8*rxt(k,594)*y(k,252) + .420_r8*rxt(k,595)*y(k,253) &
2621 : + .290_r8*rxt(k,596)*y(k,258) + .390_r8*rxt(k,599)*y(k,302) &
2622 254840160 : + .390_r8*rxt(k,600)*y(k,304) + .390_r8*rxt(k,601)*y(k,307)
2623 254840160 : mat(k,2897) = rxt(k,586)*y(k,237) + .390_r8*rxt(k,594)*y(k,238)
2624 254840160 : mat(k,3439) = .820_r8*rxt(k,587)*y(k,237) + .420_r8*rxt(k,595)*y(k,238)
2625 254840160 : mat(k,3346) = .700_r8*rxt(k,588)*y(k,237) + .290_r8*rxt(k,596)*y(k,238)
2626 : mat(k,4069) = mat(k,4069) + rxt(k,783)*y(k,221) + rxt(k,787)*y(k,223) &
2627 254840160 : + rxt(k,789)*y(k,225)
2628 254840160 : mat(k,2732) = rxt(k,591)*y(k,237) + .390_r8*rxt(k,599)*y(k,238)
2629 254840160 : mat(k,2778) = rxt(k,592)*y(k,237) + .390_r8*rxt(k,600)*y(k,238)
2630 254840160 : mat(k,2825) = rxt(k,593)*y(k,237) + .390_r8*rxt(k,601)*y(k,238)
2631 254840160 : mat(k,1289) = -(rxt(k,708)*y(k,149) + rxt(k,717)*y(k,295))
2632 254840160 : mat(k,3539) = -rxt(k,708)*y(k,203)
2633 254840160 : mat(k,4006) = -rxt(k,717)*y(k,203)
2634 254840160 : mat(k,1273) = .170_r8*rxt(k,602)*y(k,158)
2635 254840160 : mat(k,3693) = .170_r8*rxt(k,602)*y(k,4)
2636 254840160 : mat(k,424) = rxt(k,757)*y(k,295)
2637 254840160 : mat(k,3389) = .500_r8*rxt(k,694)*y(k,301)
2638 254840160 : mat(k,4006) = mat(k,4006) + rxt(k,757)*y(k,210)
2639 254840160 : mat(k,2648) = .500_r8*rxt(k,694)*y(k,253)
2640 254840160 : mat(k,655) = -(rxt(k,718)*y(k,295))
2641 254840160 : mat(k,3945) = -rxt(k,718)*y(k,204)
2642 254840160 : mat(k,3628) = rxt(k,684)*y(k,302)
2643 254840160 : mat(k,2717) = rxt(k,684)*y(k,148)
2644 254840160 : mat(k,1718) = -(rxt(k,727)*y(k,149) + rxt(k,736)*y(k,295))
2645 254840160 : mat(k,3556) = -rxt(k,727)*y(k,205)
2646 254840160 : mat(k,4041) = -rxt(k,736)*y(k,205)
2647 : mat(k,3058) = .270_r8*rxt(k,597)*y(k,238) + .440_r8*rxt(k,629)*y(k,245) &
2648 254840160 : + .310_r8*rxt(k,637)*y(k,246) + .700_r8*rxt(k,761)*y(k,308)
2649 : mat(k,3556) = mat(k,3556) + rxt(k,759)*y(k,212) + .350_r8*rxt(k,598)*y(k,238) &
2650 254840160 : + .480_r8*rxt(k,630)*y(k,245) + .410_r8*rxt(k,638)*y(k,246)
2651 254840160 : mat(k,3710) = rxt(k,762)*y(k,212)
2652 254840160 : mat(k,2626) = rxt(k,759)*y(k,149) + rxt(k,762)*y(k,158)
2653 254840160 : mat(k,602) = rxt(k,788)*y(k,295)
2654 : mat(k,2436) = .270_r8*rxt(k,597)*y(k,147) + .350_r8*rxt(k,598)*y(k,149) &
2655 : + .350_r8*rxt(k,594)*y(k,252) + .200_r8*rxt(k,595)*y(k,253) &
2656 : + .350_r8*rxt(k,599)*y(k,302) + .350_r8*rxt(k,600)*y(k,304) &
2657 254840160 : + .350_r8*rxt(k,601)*y(k,307)
2658 : mat(k,2533) = .440_r8*rxt(k,629)*y(k,147) + .480_r8*rxt(k,630)*y(k,149) &
2659 : + 1.800_r8*rxt(k,625)*y(k,245) + .480_r8*rxt(k,626)*y(k,252) &
2660 : + .340_r8*rxt(k,627)*y(k,253) + .220_r8*rxt(k,628)*y(k,258) &
2661 : + .480_r8*rxt(k,631)*y(k,302) + .480_r8*rxt(k,632)*y(k,304) &
2662 254840160 : + .480_r8*rxt(k,633)*y(k,307)
2663 : mat(k,2375) = .310_r8*rxt(k,637)*y(k,147) + .410_r8*rxt(k,638)*y(k,149) &
2664 : + .410_r8*rxt(k,634)*y(k,252) + .310_r8*rxt(k,635)*y(k,253) &
2665 : + .410_r8*rxt(k,639)*y(k,302) + .410_r8*rxt(k,640)*y(k,304) &
2666 254840160 : + .410_r8*rxt(k,641)*y(k,307)
2667 : mat(k,2870) = .350_r8*rxt(k,594)*y(k,238) + .480_r8*rxt(k,626)*y(k,245) &
2668 254840160 : + .410_r8*rxt(k,634)*y(k,246)
2669 : mat(k,3411) = .200_r8*rxt(k,595)*y(k,238) + .340_r8*rxt(k,627)*y(k,245) &
2670 254840160 : + .310_r8*rxt(k,635)*y(k,246)
2671 254840160 : mat(k,3317) = .220_r8*rxt(k,628)*y(k,245) + .100_r8*rxt(k,760)*y(k,308)
2672 254840160 : mat(k,4041) = mat(k,4041) + rxt(k,788)*y(k,226)
2673 : mat(k,2724) = .350_r8*rxt(k,599)*y(k,238) + .480_r8*rxt(k,631)*y(k,245) &
2674 254840160 : + .410_r8*rxt(k,639)*y(k,246)
2675 : mat(k,2770) = .350_r8*rxt(k,600)*y(k,238) + .480_r8*rxt(k,632)*y(k,245) &
2676 254840160 : + .410_r8*rxt(k,640)*y(k,246)
2677 : mat(k,2817) = .350_r8*rxt(k,601)*y(k,238) + .480_r8*rxt(k,633)*y(k,245) &
2678 254840160 : + .410_r8*rxt(k,641)*y(k,246)
2679 254840160 : mat(k,799) = .700_r8*rxt(k,761)*y(k,147) + .100_r8*rxt(k,760)*y(k,258)
2680 254840160 : mat(k,664) = -(rxt(k,737)*y(k,295))
2681 254840160 : mat(k,3946) = -rxt(k,737)*y(k,206)
2682 254840160 : mat(k,3629) = rxt(k,685)*y(k,304)
2683 254840160 : mat(k,2763) = rxt(k,685)*y(k,148)
2684 254840160 : mat(k,778) = -(rxt(k,748)*y(k,295))
2685 254840160 : mat(k,3958) = -rxt(k,748)*y(k,207)
2686 254840160 : mat(k,1271) = .010_r8*rxt(k,602)*y(k,158)
2687 254840160 : mat(k,1040) = .130_r8*rxt(k,622)*y(k,158)
2688 254840160 : mat(k,1070) = .010_r8*rxt(k,662)*y(k,158)
2689 : mat(k,3679) = .010_r8*rxt(k,602)*y(k,4) + .130_r8*rxt(k,622)*y(k,7) &
2690 254840160 : + .010_r8*rxt(k,662)*y(k,125)
2691 254840160 : mat(k,3251) = .510_r8*rxt(k,751)*y(k,307)
2692 254840160 : mat(k,2809) = .510_r8*rxt(k,751)*y(k,258)
2693 254840160 : mat(k,363) = -(rxt(k,746)*y(k,295))
2694 254840160 : mat(k,3905) = -rxt(k,746)*y(k,208)
2695 254840160 : mat(k,3223) = .510_r8*rxt(k,703)*y(k,302)
2696 254840160 : mat(k,2716) = .510_r8*rxt(k,703)*y(k,258)
2697 254840160 : mat(k,368) = -(rxt(k,747)*y(k,295))
2698 254840160 : mat(k,3906) = -rxt(k,747)*y(k,209)
2699 254840160 : mat(k,3224) = .510_r8*rxt(k,721)*y(k,304)
2700 254840160 : mat(k,2762) = .510_r8*rxt(k,721)*y(k,258)
2701 254840160 : mat(k,423) = -(rxt(k,757)*y(k,295))
2702 254840160 : mat(k,3914) = -rxt(k,757)*y(k,210)
2703 254840160 : mat(k,3620) = rxt(k,686)*y(k,307)
2704 254840160 : mat(k,2808) = rxt(k,686)*y(k,148)
2705 254840160 : mat(k,373) = -(rxt(k,758)*y(k,295))
2706 254840160 : mat(k,3907) = -rxt(k,758)*y(k,211)
2707 254840160 : mat(k,3225) = .820_r8*rxt(k,687)*y(k,299) + .820_r8*rxt(k,691)*y(k,300)
2708 254840160 : mat(k,948) = .820_r8*rxt(k,687)*y(k,258)
2709 254840160 : mat(k,1003) = .820_r8*rxt(k,691)*y(k,258)
2710 : mat(k,2629) = -(rxt(k,759)*y(k,149) + rxt(k,762)*y(k,158) + rxt(k,763) &
2711 254840160 : *y(k,295))
2712 254840160 : mat(k,3592) = -rxt(k,759)*y(k,212)
2713 254840160 : mat(k,3746) = -rxt(k,762)*y(k,212)
2714 254840160 : mat(k,4078) = -rxt(k,763)*y(k,212)
2715 254840160 : mat(k,1076) = .660_r8*rxt(k,662)*y(k,158)
2716 : mat(k,3096) = .090_r8*rxt(k,597)*y(k,238) + .200_r8*rxt(k,637)*y(k,246) &
2717 : + .430_r8*rxt(k,649)*y(k,281) + .770_r8*rxt(k,657)*y(k,282) &
2718 254840160 : + .700_r8*rxt(k,766)*y(k,309)
2719 : mat(k,3592) = mat(k,3592) + .500_r8*rxt(k,764)*y(k,213) + .120_r8*rxt(k,598) &
2720 : *y(k,238) + .270_r8*rxt(k,638)*y(k,246) + .460_r8*rxt(k,650) &
2721 254840160 : *y(k,281) + rxt(k,658)*y(k,282)
2722 254840160 : mat(k,3746) = mat(k,3746) + .660_r8*rxt(k,662)*y(k,125) + rxt(k,767)*y(k,213)
2723 254840160 : mat(k,2601) = .500_r8*rxt(k,764)*y(k,149) + rxt(k,767)*y(k,158)
2724 : mat(k,2442) = .090_r8*rxt(k,597)*y(k,147) + .120_r8*rxt(k,598)*y(k,149) &
2725 : + .120_r8*rxt(k,594)*y(k,252) + .140_r8*rxt(k,595)*y(k,253) &
2726 : + .060_r8*rxt(k,596)*y(k,258) + .120_r8*rxt(k,599)*y(k,302) &
2727 254840160 : + .120_r8*rxt(k,600)*y(k,304) + .120_r8*rxt(k,601)*y(k,307)
2728 : mat(k,2381) = .200_r8*rxt(k,637)*y(k,147) + .270_r8*rxt(k,638)*y(k,149) &
2729 : + .270_r8*rxt(k,634)*y(k,252) + .370_r8*rxt(k,635)*y(k,253) &
2730 : + .270_r8*rxt(k,639)*y(k,302) + .270_r8*rxt(k,640)*y(k,304) &
2731 254840160 : + .270_r8*rxt(k,641)*y(k,307)
2732 : mat(k,2906) = .120_r8*rxt(k,594)*y(k,238) + .270_r8*rxt(k,634)*y(k,246) &
2733 254840160 : + .460_r8*rxt(k,645)*y(k,281) + rxt(k,654)*y(k,282)
2734 : mat(k,3448) = .140_r8*rxt(k,595)*y(k,238) + .370_r8*rxt(k,635)*y(k,246) &
2735 254840160 : + .310_r8*rxt(k,646)*y(k,281) + rxt(k,655)*y(k,282)
2736 : mat(k,3355) = .060_r8*rxt(k,596)*y(k,238) + .230_r8*rxt(k,647)*y(k,281) &
2737 254840160 : + .100_r8*rxt(k,656)*y(k,282) + .100_r8*rxt(k,765)*y(k,309)
2738 : mat(k,2507) = .430_r8*rxt(k,649)*y(k,147) + .460_r8*rxt(k,650)*y(k,149) &
2739 : + .460_r8*rxt(k,645)*y(k,252) + .310_r8*rxt(k,646)*y(k,253) &
2740 : + .230_r8*rxt(k,647)*y(k,258) + 1.720_r8*rxt(k,648)*y(k,281) &
2741 : + .460_r8*rxt(k,651)*y(k,302) + .460_r8*rxt(k,652)*y(k,304) &
2742 254840160 : + .460_r8*rxt(k,653)*y(k,307)
2743 : mat(k,2341) = .770_r8*rxt(k,657)*y(k,147) + rxt(k,658)*y(k,149) + rxt(k,654) &
2744 : *y(k,252) + rxt(k,655)*y(k,253) + .100_r8*rxt(k,656)*y(k,258) &
2745 : + rxt(k,659)*y(k,302) + rxt(k,660)*y(k,304) + rxt(k,661) &
2746 254840160 : *y(k,307)
2747 : mat(k,2741) = .120_r8*rxt(k,599)*y(k,238) + .270_r8*rxt(k,639)*y(k,246) &
2748 254840160 : + .460_r8*rxt(k,651)*y(k,281) + rxt(k,659)*y(k,282)
2749 : mat(k,2787) = .120_r8*rxt(k,600)*y(k,238) + .270_r8*rxt(k,640)*y(k,246) &
2750 254840160 : + .460_r8*rxt(k,652)*y(k,281) + rxt(k,660)*y(k,282)
2751 : mat(k,2834) = .120_r8*rxt(k,601)*y(k,238) + .270_r8*rxt(k,641)*y(k,246) &
2752 254840160 : + .460_r8*rxt(k,653)*y(k,281) + rxt(k,661)*y(k,282)
2753 263009123 : mat(k,964) = .700_r8*rxt(k,766)*y(k,147) + .100_r8*rxt(k,765)*y(k,258)
2754 : end do
2755 8168963 : end subroutine nlnmat10
2756 8168963 : subroutine nlnmat11( avec_len, mat, y, rxt )
2757 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
2758 : implicit none
2759 : !----------------------------------------------
2760 : ! ... dummy arguments
2761 : !----------------------------------------------
2762 : integer, intent(in) :: avec_len
2763 : real(r8), intent(in) :: y(veclen,gas_pcnst)
2764 : real(r8), intent(in) :: rxt(veclen,rxntot)
2765 : real(r8), intent(inout) :: mat(veclen,nzcnt)
2766 : !----------------------------------------------
2767 : ! ... local variables
2768 : !----------------------------------------------
2769 : integer :: k
2770 : !----------------------------------------------
2771 : ! ... complete matrix entries implicit species
2772 : !----------------------------------------------
2773 263009123 : do k = 1,avec_len
2774 254840160 : mat(k,2600) = -(rxt(k,764)*y(k,149) + rxt(k,767)*y(k,158) + rxt(k,768) &
2775 254840160 : *y(k,295))
2776 254840160 : mat(k,3591) = -rxt(k,764)*y(k,213)
2777 254840160 : mat(k,3745) = -rxt(k,767)*y(k,213)
2778 254840160 : mat(k,4077) = -rxt(k,768)*y(k,213)
2779 254840160 : mat(k,1046) = .870_r8*rxt(k,622)*y(k,158)
2780 254840160 : mat(k,832) = rxt(k,682)*y(k,158)
2781 : mat(k,3095) = .930_r8*rxt(k,609)*y(k,240) + .700_r8*rxt(k,617)*y(k,241) &
2782 254840160 : + .890_r8*rxt(k,669)*y(k,290) + .710_r8*rxt(k,677)*y(k,291)
2783 : mat(k,3591) = mat(k,3591) + rxt(k,610)*y(k,240) + rxt(k,618)*y(k,241) &
2784 254840160 : + .950_r8*rxt(k,670)*y(k,290) + rxt(k,678)*y(k,291)
2785 254840160 : mat(k,3745) = mat(k,3745) + .870_r8*rxt(k,622)*y(k,7) + rxt(k,682)*y(k,135)
2786 : mat(k,2214) = .930_r8*rxt(k,609)*y(k,147) + rxt(k,610)*y(k,149) &
2787 : + 3.280_r8*rxt(k,605)*y(k,240) + rxt(k,606)*y(k,252) &
2788 : + .820_r8*rxt(k,607)*y(k,253) + .500_r8*rxt(k,608)*y(k,258) &
2789 : + rxt(k,611)*y(k,302) + rxt(k,612)*y(k,304) + rxt(k,613) &
2790 254840160 : *y(k,307)
2791 : mat(k,2409) = .700_r8*rxt(k,617)*y(k,147) + rxt(k,618)*y(k,149) + rxt(k,614) &
2792 : *y(k,252) + rxt(k,615)*y(k,253) + .100_r8*rxt(k,616)*y(k,258) &
2793 : + rxt(k,619)*y(k,302) + rxt(k,620)*y(k,304) + rxt(k,621) &
2794 254840160 : *y(k,307)
2795 : mat(k,2905) = rxt(k,606)*y(k,240) + rxt(k,614)*y(k,241) + .950_r8*rxt(k,665) &
2796 254840160 : *y(k,290) + rxt(k,674)*y(k,291)
2797 : mat(k,3447) = .820_r8*rxt(k,607)*y(k,240) + rxt(k,615)*y(k,241) &
2798 254840160 : + .770_r8*rxt(k,666)*y(k,290) + rxt(k,675)*y(k,291)
2799 : mat(k,3354) = .500_r8*rxt(k,608)*y(k,240) + .100_r8*rxt(k,616)*y(k,241) &
2800 254840160 : + .480_r8*rxt(k,667)*y(k,290) + .100_r8*rxt(k,676)*y(k,291)
2801 : mat(k,2571) = .890_r8*rxt(k,669)*y(k,147) + .950_r8*rxt(k,670)*y(k,149) &
2802 : + .950_r8*rxt(k,665)*y(k,252) + .770_r8*rxt(k,666)*y(k,253) &
2803 : + .480_r8*rxt(k,667)*y(k,258) + 3.080_r8*rxt(k,668)*y(k,290) &
2804 : + .950_r8*rxt(k,671)*y(k,302) + .950_r8*rxt(k,672)*y(k,304) &
2805 254840160 : + .950_r8*rxt(k,673)*y(k,307)
2806 : mat(k,2472) = .710_r8*rxt(k,677)*y(k,147) + rxt(k,678)*y(k,149) + rxt(k,674) &
2807 : *y(k,252) + rxt(k,675)*y(k,253) + .100_r8*rxt(k,676)*y(k,258) &
2808 : + rxt(k,679)*y(k,302) + rxt(k,680)*y(k,304) + rxt(k,681) &
2809 254840160 : *y(k,307)
2810 : mat(k,2740) = rxt(k,611)*y(k,240) + rxt(k,619)*y(k,241) + .950_r8*rxt(k,671) &
2811 254840160 : *y(k,290) + rxt(k,679)*y(k,291)
2812 : mat(k,2786) = rxt(k,612)*y(k,240) + rxt(k,620)*y(k,241) + .950_r8*rxt(k,672) &
2813 254840160 : *y(k,290) + rxt(k,680)*y(k,291)
2814 : mat(k,2833) = rxt(k,613)*y(k,240) + rxt(k,621)*y(k,241) + .950_r8*rxt(k,673) &
2815 254840160 : *y(k,290) + rxt(k,681)*y(k,291)
2816 254840160 : mat(k,1228) = -(rxt(k,769)*y(k,295))
2817 254840160 : mat(k,4001) = -rxt(k,769)*y(k,214)
2818 : mat(k,3030) = .070_r8*rxt(k,589)*y(k,237) + .070_r8*rxt(k,629)*y(k,245) &
2819 : + .070_r8*rxt(k,649)*y(k,281) + .070_r8*rxt(k,669)*y(k,290) &
2820 : + .300_r8*rxt(k,773)*y(k,310) + .300_r8*rxt(k,777)*y(k,311) &
2821 254840160 : + .300_r8*rxt(k,781)*y(k,312) + .300_r8*rxt(k,785)*y(k,313)
2822 254840160 : mat(k,2290) = .070_r8*rxt(k,589)*y(k,147)
2823 254840160 : mat(k,2528) = .070_r8*rxt(k,629)*y(k,147)
2824 254840160 : mat(k,2496) = .070_r8*rxt(k,649)*y(k,147)
2825 254840160 : mat(k,2559) = .070_r8*rxt(k,669)*y(k,147)
2826 254840160 : mat(k,1219) = .300_r8*rxt(k,773)*y(k,147)
2827 254840160 : mat(k,1017) = .300_r8*rxt(k,777)*y(k,147)
2828 254840160 : mat(k,807) = .300_r8*rxt(k,781)*y(k,147)
2829 254840160 : mat(k,815) = .300_r8*rxt(k,785)*y(k,147)
2830 254840160 : mat(k,969) = -(rxt(k,770)*y(k,295))
2831 254840160 : mat(k,3979) = -rxt(k,770)*y(k,215)
2832 : mat(k,3014) = .010_r8*rxt(k,597)*y(k,238) + .300_r8*rxt(k,688)*y(k,299) &
2833 254840160 : + .300_r8*rxt(k,692)*y(k,300) + .300_r8*rxt(k,761)*y(k,308)
2834 254840160 : mat(k,2428) = .010_r8*rxt(k,597)*y(k,147)
2835 : mat(k,3269) = .900_r8*rxt(k,772)*y(k,310) + .900_r8*rxt(k,776)*y(k,311) &
2836 254840160 : + .900_r8*rxt(k,780)*y(k,312) + .900_r8*rxt(k,784)*y(k,313)
2837 254840160 : mat(k,952) = .300_r8*rxt(k,688)*y(k,147)
2838 254840160 : mat(k,1005) = .300_r8*rxt(k,692)*y(k,147)
2839 254840160 : mat(k,798) = .300_r8*rxt(k,761)*y(k,147)
2840 254840160 : mat(k,1216) = .900_r8*rxt(k,772)*y(k,258)
2841 254840160 : mat(k,1014) = .900_r8*rxt(k,776)*y(k,258)
2842 254840160 : mat(k,806) = .900_r8*rxt(k,780)*y(k,258)
2843 254840160 : mat(k,814) = .900_r8*rxt(k,784)*y(k,258)
2844 254840160 : mat(k,1106) = -(rxt(k,771)*y(k,295))
2845 254840160 : mat(k,3989) = -rxt(k,771)*y(k,216)
2846 254840160 : mat(k,1093) = .510_r8*rxt(k,642)*y(k,158)
2847 254840160 : mat(k,3021) = .020_r8*rxt(k,629)*y(k,245) + .240_r8*rxt(k,637)*y(k,246)
2848 254840160 : mat(k,3534) = .020_r8*rxt(k,630)*y(k,245) + .320_r8*rxt(k,638)*y(k,246)
2849 254840160 : mat(k,3688) = .510_r8*rxt(k,642)*y(k,17)
2850 254840160 : mat(k,2429) = .110_r8*rxt(k,595)*y(k,253)
2851 : mat(k,2526) = .020_r8*rxt(k,629)*y(k,147) + .020_r8*rxt(k,630)*y(k,149) &
2852 : + .080_r8*rxt(k,625)*y(k,245) + .020_r8*rxt(k,626)*y(k,252) &
2853 : + .020_r8*rxt(k,627)*y(k,253) + .020_r8*rxt(k,628)*y(k,258) &
2854 : + .020_r8*rxt(k,631)*y(k,302) + .020_r8*rxt(k,632)*y(k,304) &
2855 254840160 : + .020_r8*rxt(k,633)*y(k,307)
2856 : mat(k,2369) = .240_r8*rxt(k,637)*y(k,147) + .320_r8*rxt(k,638)*y(k,149) &
2857 : + .320_r8*rxt(k,634)*y(k,252) + .320_r8*rxt(k,635)*y(k,253) &
2858 : + .030_r8*rxt(k,636)*y(k,258) + .320_r8*rxt(k,639)*y(k,302) &
2859 254840160 : + .320_r8*rxt(k,640)*y(k,304) + .320_r8*rxt(k,641)*y(k,307)
2860 254840160 : mat(k,2858) = .020_r8*rxt(k,626)*y(k,245) + .320_r8*rxt(k,634)*y(k,246)
2861 : mat(k,3387) = .110_r8*rxt(k,595)*y(k,238) + .020_r8*rxt(k,627)*y(k,245) &
2862 254840160 : + .320_r8*rxt(k,635)*y(k,246)
2863 254840160 : mat(k,3276) = .020_r8*rxt(k,628)*y(k,245) + .030_r8*rxt(k,636)*y(k,246)
2864 254840160 : mat(k,2718) = .020_r8*rxt(k,631)*y(k,245) + .320_r8*rxt(k,639)*y(k,246)
2865 254840160 : mat(k,2764) = .020_r8*rxt(k,632)*y(k,245) + .320_r8*rxt(k,640)*y(k,246)
2866 254840160 : mat(k,2810) = .020_r8*rxt(k,633)*y(k,245) + .320_r8*rxt(k,641)*y(k,246)
2867 254840160 : mat(k,986) = -(rxt(k,775)*y(k,295))
2868 254840160 : mat(k,3981) = -rxt(k,775)*y(k,217)
2869 254840160 : mat(k,3016) = .700_r8*rxt(k,773)*y(k,310)
2870 254840160 : mat(k,2525) = .450_r8*rxt(k,628)*y(k,258)
2871 254840160 : mat(k,3270) = .450_r8*rxt(k,628)*y(k,245) + .100_r8*rxt(k,772)*y(k,310)
2872 254840160 : mat(k,1217) = .700_r8*rxt(k,773)*y(k,147) + .100_r8*rxt(k,772)*y(k,258)
2873 254840160 : mat(k,682) = -(rxt(k,774)*y(k,295))
2874 254840160 : mat(k,3948) = -rxt(k,774)*y(k,218)
2875 254840160 : mat(k,3242) = .320_r8*rxt(k,647)*y(k,281) + .360_r8*rxt(k,667)*y(k,290)
2876 254840160 : mat(k,2491) = .320_r8*rxt(k,647)*y(k,258)
2877 254840160 : mat(k,2554) = .360_r8*rxt(k,667)*y(k,258)
2878 254840160 : mat(k,1143) = -(rxt(k,779)*y(k,295))
2879 254840160 : mat(k,3993) = -rxt(k,779)*y(k,219)
2880 254840160 : mat(k,3025) = .700_r8*rxt(k,777)*y(k,311)
2881 254840160 : mat(k,2289) = .300_r8*rxt(k,588)*y(k,258)
2882 254840160 : mat(k,2527) = .080_r8*rxt(k,628)*y(k,258)
2883 : mat(k,3279) = .300_r8*rxt(k,588)*y(k,237) + .080_r8*rxt(k,628)*y(k,245) &
2884 254840160 : + .100_r8*rxt(k,776)*y(k,311)
2885 254840160 : mat(k,1016) = .700_r8*rxt(k,777)*y(k,147) + .100_r8*rxt(k,776)*y(k,258)
2886 254840160 : mat(k,783) = -(rxt(k,778)*y(k,295))
2887 254840160 : mat(k,3959) = -rxt(k,778)*y(k,220)
2888 254840160 : mat(k,3252) = .180_r8*rxt(k,647)*y(k,281) + .160_r8*rxt(k,667)*y(k,290)
2889 254840160 : mat(k,2492) = .180_r8*rxt(k,647)*y(k,258)
2890 254840160 : mat(k,2555) = .160_r8*rxt(k,667)*y(k,258)
2891 254840160 : mat(k,1557) = -(rxt(k,783)*y(k,295))
2892 254840160 : mat(k,4030) = -rxt(k,783)*y(k,221)
2893 : mat(k,3050) = .100_r8*rxt(k,597)*y(k,238) + .420_r8*rxt(k,629)*y(k,245) &
2894 : + .020_r8*rxt(k,637)*y(k,246) + .300_r8*rxt(k,696)*y(k,301) &
2895 254840160 : + .090_r8*rxt(k,741)*y(k,306) + .700_r8*rxt(k,781)*y(k,312)
2896 254840160 : mat(k,3549) = .450_r8*rxt(k,630)*y(k,245)
2897 254840160 : mat(k,1229) = rxt(k,769)*y(k,295)
2898 254840160 : mat(k,970) = rxt(k,770)*y(k,295)
2899 254840160 : mat(k,2293) = .180_r8*rxt(k,585)*y(k,237) + .090_r8*rxt(k,587)*y(k,253)
2900 254840160 : mat(k,2432) = .100_r8*rxt(k,597)*y(k,147)
2901 : mat(k,2531) = .420_r8*rxt(k,629)*y(k,147) + .450_r8*rxt(k,630)*y(k,149) &
2902 : + 1.840_r8*rxt(k,625)*y(k,245) + .450_r8*rxt(k,626)*y(k,252) &
2903 : + .560_r8*rxt(k,627)*y(k,253) + .230_r8*rxt(k,628)*y(k,258) &
2904 : + .450_r8*rxt(k,631)*y(k,302) + .450_r8*rxt(k,632)*y(k,304) &
2905 254840160 : + .450_r8*rxt(k,633)*y(k,307)
2906 254840160 : mat(k,2371) = .020_r8*rxt(k,637)*y(k,147)
2907 254840160 : mat(k,2864) = .450_r8*rxt(k,626)*y(k,245)
2908 254840160 : mat(k,3403) = .090_r8*rxt(k,587)*y(k,237) + .560_r8*rxt(k,627)*y(k,245)
2909 254840160 : mat(k,3307) = .230_r8*rxt(k,628)*y(k,245) + .100_r8*rxt(k,780)*y(k,312)
2910 254840160 : mat(k,4030) = mat(k,4030) + rxt(k,769)*y(k,214) + rxt(k,770)*y(k,215)
2911 254840160 : mat(k,2650) = .300_r8*rxt(k,696)*y(k,147)
2912 254840160 : mat(k,2720) = .450_r8*rxt(k,631)*y(k,245)
2913 254840160 : mat(k,2766) = .450_r8*rxt(k,632)*y(k,245)
2914 254840160 : mat(k,2671) = .090_r8*rxt(k,741)*y(k,147)
2915 254840160 : mat(k,2813) = .450_r8*rxt(k,633)*y(k,245)
2916 254840160 : mat(k,808) = .700_r8*rxt(k,781)*y(k,147) + .100_r8*rxt(k,780)*y(k,258)
2917 254840160 : mat(k,1689) = -(rxt(k,782)*y(k,295))
2918 254840160 : mat(k,4038) = -rxt(k,782)*y(k,222)
2919 : mat(k,3055) = .020_r8*rxt(k,597)*y(k,238) + .040_r8*rxt(k,637)*y(k,246) &
2920 : + .330_r8*rxt(k,649)*y(k,281) + .060_r8*rxt(k,657)*y(k,282) &
2921 : + .040_r8*rxt(k,669)*y(k,290) + .100_r8*rxt(k,677)*y(k,291) &
2922 254840160 : + .120_r8*rxt(k,766)*y(k,309)
2923 : mat(k,3553) = .500_r8*rxt(k,764)*y(k,213) + .350_r8*rxt(k,650)*y(k,281) &
2924 254840160 : + .050_r8*rxt(k,670)*y(k,290)
2925 254840160 : mat(k,2595) = .500_r8*rxt(k,764)*y(k,149)
2926 254840160 : mat(k,2434) = .020_r8*rxt(k,597)*y(k,147)
2927 254840160 : mat(k,2373) = .040_r8*rxt(k,637)*y(k,147)
2928 254840160 : mat(k,2867) = .350_r8*rxt(k,645)*y(k,281) + .050_r8*rxt(k,665)*y(k,290)
2929 254840160 : mat(k,3408) = .420_r8*rxt(k,646)*y(k,281) + .140_r8*rxt(k,666)*y(k,290)
2930 254840160 : mat(k,3314) = .180_r8*rxt(k,647)*y(k,281)
2931 : mat(k,2501) = .330_r8*rxt(k,649)*y(k,147) + .350_r8*rxt(k,650)*y(k,149) &
2932 : + .350_r8*rxt(k,645)*y(k,252) + .420_r8*rxt(k,646)*y(k,253) &
2933 : + .180_r8*rxt(k,647)*y(k,258) + 1.440_r8*rxt(k,648)*y(k,281) &
2934 : + .350_r8*rxt(k,651)*y(k,302) + .350_r8*rxt(k,652)*y(k,304) &
2935 254840160 : + .350_r8*rxt(k,653)*y(k,307)
2936 254840160 : mat(k,2335) = .060_r8*rxt(k,657)*y(k,147)
2937 : mat(k,2564) = .040_r8*rxt(k,669)*y(k,147) + .050_r8*rxt(k,670)*y(k,149) &
2938 : + .050_r8*rxt(k,665)*y(k,252) + .140_r8*rxt(k,666)*y(k,253) &
2939 : + .380_r8*rxt(k,668)*y(k,290) + .050_r8*rxt(k,671)*y(k,302) &
2940 254840160 : + .050_r8*rxt(k,672)*y(k,304) + .050_r8*rxt(k,673)*y(k,307)
2941 254840160 : mat(k,2465) = .100_r8*rxt(k,677)*y(k,147)
2942 254840160 : mat(k,2722) = .350_r8*rxt(k,651)*y(k,281) + .050_r8*rxt(k,671)*y(k,290)
2943 254840160 : mat(k,2768) = .350_r8*rxt(k,652)*y(k,281) + .050_r8*rxt(k,672)*y(k,290)
2944 254840160 : mat(k,2815) = .350_r8*rxt(k,653)*y(k,281) + .050_r8*rxt(k,673)*y(k,290)
2945 254840160 : mat(k,961) = .120_r8*rxt(k,766)*y(k,147)
2946 254840160 : mat(k,1536) = -(rxt(k,787)*y(k,295))
2947 254840160 : mat(k,4028) = -rxt(k,787)*y(k,223)
2948 : mat(k,3048) = .050_r8*rxt(k,597)*y(k,238) + .050_r8*rxt(k,629)*y(k,245) &
2949 : + .060_r8*rxt(k,637)*y(k,246) + .170_r8*rxt(k,712)*y(k,303) &
2950 254840160 : + .300_r8*rxt(k,731)*y(k,305) + .700_r8*rxt(k,785)*y(k,313)
2951 254840160 : mat(k,3548) = .050_r8*rxt(k,630)*y(k,245)
2952 254840160 : mat(k,1144) = rxt(k,779)*y(k,295)
2953 254840160 : mat(k,2292) = .540_r8*rxt(k,585)*y(k,237) + .090_r8*rxt(k,587)*y(k,253)
2954 254840160 : mat(k,2431) = .050_r8*rxt(k,597)*y(k,147)
2955 : mat(k,2530) = .050_r8*rxt(k,629)*y(k,147) + .050_r8*rxt(k,630)*y(k,149) &
2956 : + .280_r8*rxt(k,625)*y(k,245) + .050_r8*rxt(k,626)*y(k,252) &
2957 : + .080_r8*rxt(k,627)*y(k,253) + .050_r8*rxt(k,631)*y(k,302) &
2958 254840160 : + .050_r8*rxt(k,632)*y(k,304) + .050_r8*rxt(k,633)*y(k,307)
2959 254840160 : mat(k,2370) = .060_r8*rxt(k,637)*y(k,147)
2960 254840160 : mat(k,2862) = .050_r8*rxt(k,626)*y(k,245)
2961 254840160 : mat(k,3401) = .090_r8*rxt(k,587)*y(k,237) + .080_r8*rxt(k,627)*y(k,245)
2962 254840160 : mat(k,3305) = .100_r8*rxt(k,784)*y(k,313)
2963 254840160 : mat(k,4028) = mat(k,4028) + rxt(k,779)*y(k,219)
2964 254840160 : mat(k,2719) = .050_r8*rxt(k,631)*y(k,245)
2965 254840160 : mat(k,2693) = .170_r8*rxt(k,712)*y(k,147)
2966 254840160 : mat(k,2765) = .050_r8*rxt(k,632)*y(k,245)
2967 254840160 : mat(k,2231) = .300_r8*rxt(k,731)*y(k,147)
2968 254840160 : mat(k,2812) = .050_r8*rxt(k,633)*y(k,245)
2969 254840160 : mat(k,816) = .700_r8*rxt(k,785)*y(k,147) + .100_r8*rxt(k,784)*y(k,258)
2970 254840160 : mat(k,1702) = -(rxt(k,786)*y(k,295))
2971 254840160 : mat(k,4039) = -rxt(k,786)*y(k,224)
2972 : mat(k,3056) = .050_r8*rxt(k,597)*y(k,238) + .130_r8*rxt(k,637)*y(k,246) &
2973 : + .170_r8*rxt(k,649)*y(k,281) + .170_r8*rxt(k,657)*y(k,282) &
2974 254840160 : + .190_r8*rxt(k,677)*y(k,291) + .180_r8*rxt(k,766)*y(k,309)
2975 254840160 : mat(k,3554) = .190_r8*rxt(k,650)*y(k,281)
2976 254840160 : mat(k,2435) = .050_r8*rxt(k,597)*y(k,147)
2977 254840160 : mat(k,2374) = .130_r8*rxt(k,637)*y(k,147)
2978 254840160 : mat(k,2868) = .190_r8*rxt(k,645)*y(k,281)
2979 254840160 : mat(k,3409) = .270_r8*rxt(k,646)*y(k,281) + .090_r8*rxt(k,666)*y(k,290)
2980 254840160 : mat(k,3315) = .090_r8*rxt(k,647)*y(k,281)
2981 : mat(k,2502) = .170_r8*rxt(k,649)*y(k,147) + .190_r8*rxt(k,650)*y(k,149) &
2982 : + .190_r8*rxt(k,645)*y(k,252) + .270_r8*rxt(k,646)*y(k,253) &
2983 : + .090_r8*rxt(k,647)*y(k,258) + .840_r8*rxt(k,648)*y(k,281) &
2984 : + .190_r8*rxt(k,651)*y(k,302) + .190_r8*rxt(k,652)*y(k,304) &
2985 254840160 : + .190_r8*rxt(k,653)*y(k,307)
2986 254840160 : mat(k,2336) = .170_r8*rxt(k,657)*y(k,147)
2987 254840160 : mat(k,2565) = .090_r8*rxt(k,666)*y(k,253) + .540_r8*rxt(k,668)*y(k,290)
2988 254840160 : mat(k,2466) = .190_r8*rxt(k,677)*y(k,147)
2989 254840160 : mat(k,2723) = .190_r8*rxt(k,651)*y(k,281)
2990 254840160 : mat(k,2769) = .190_r8*rxt(k,652)*y(k,281)
2991 254840160 : mat(k,2816) = .190_r8*rxt(k,653)*y(k,281)
2992 263009123 : mat(k,962) = .180_r8*rxt(k,766)*y(k,147)
2993 : end do
2994 8168963 : end subroutine nlnmat11
2995 8168963 : subroutine nlnmat12( avec_len, mat, y, rxt )
2996 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
2997 : implicit none
2998 : !----------------------------------------------
2999 : ! ... dummy arguments
3000 : !----------------------------------------------
3001 : integer, intent(in) :: avec_len
3002 : real(r8), intent(in) :: y(veclen,gas_pcnst)
3003 : real(r8), intent(in) :: rxt(veclen,rxntot)
3004 : real(r8), intent(inout) :: mat(veclen,nzcnt)
3005 : !----------------------------------------------
3006 : ! ... local variables
3007 : !----------------------------------------------
3008 : integer :: k
3009 : !----------------------------------------------
3010 : ! ... complete matrix entries implicit species
3011 : !----------------------------------------------
3012 263009123 : do k = 1,avec_len
3013 254840160 : mat(k,689) = -(rxt(k,789)*y(k,295))
3014 254840160 : mat(k,3949) = -rxt(k,789)*y(k,225)
3015 254840160 : mat(k,374) = rxt(k,758)*y(k,295)
3016 254840160 : mat(k,2427) = .400_r8*rxt(k,596)*y(k,258)
3017 254840160 : mat(k,2368) = .290_r8*rxt(k,636)*y(k,258)
3018 : mat(k,3243) = .400_r8*rxt(k,596)*y(k,238) + .290_r8*rxt(k,636)*y(k,246) &
3019 254840160 : + rxt(k,695)*y(k,301) + .620_r8*rxt(k,711)*y(k,303)
3020 254840160 : mat(k,3949) = mat(k,3949) + rxt(k,758)*y(k,211)
3021 254840160 : mat(k,2647) = rxt(k,695)*y(k,258)
3022 254840160 : mat(k,2692) = .620_r8*rxt(k,711)*y(k,258)
3023 254840160 : mat(k,601) = -(rxt(k,788)*y(k,295))
3024 254840160 : mat(k,3939) = -rxt(k,788)*y(k,226)
3025 254840160 : mat(k,2993) = .700_r8*rxt(k,688)*y(k,299)
3026 : mat(k,3241) = .180_r8*rxt(k,687)*y(k,299) + .850_r8*rxt(k,730)*y(k,305) &
3027 254840160 : + .470_r8*rxt(k,740)*y(k,306) + .900_r8*rxt(k,760)*y(k,308)
3028 254840160 : mat(k,949) = .700_r8*rxt(k,688)*y(k,147) + .180_r8*rxt(k,687)*y(k,258)
3029 254840160 : mat(k,2230) = .850_r8*rxt(k,730)*y(k,258)
3030 254840160 : mat(k,2670) = .470_r8*rxt(k,740)*y(k,258)
3031 254840160 : mat(k,796) = .900_r8*rxt(k,760)*y(k,258)
3032 254840160 : mat(k,741) = -(rxt(k,573)*y(k,295))
3033 254840160 : mat(k,3954) = -rxt(k,573)*y(k,227)
3034 254840160 : mat(k,3248) = rxt(k,571)*y(k,314)
3035 254840160 : mat(k,871) = rxt(k,571)*y(k,258)
3036 254840160 : mat(k,211) = -(rxt(k,574)*y(k,295))
3037 254840160 : mat(k,3880) = -rxt(k,574)*y(k,228)
3038 254840160 : mat(k,229) = -(rxt(k,576)*y(k,295))
3039 254840160 : mat(k,3883) = -rxt(k,576)*y(k,229)
3040 254840160 : mat(k,842) = -(rxt(k,579)*y(k,295))
3041 254840160 : mat(k,3965) = -rxt(k,579)*y(k,230)
3042 254840160 : mat(k,3257) = rxt(k,577)*y(k,316)
3043 254840160 : mat(k,893) = rxt(k,577)*y(k,258)
3044 254840160 : mat(k,237) = -(rxt(k,582)*y(k,295))
3045 254840160 : mat(k,3884) = -rxt(k,582)*y(k,231)
3046 254840160 : mat(k,230) = .150_r8*rxt(k,576)*y(k,295)
3047 254840160 : mat(k,3884) = mat(k,3884) + .150_r8*rxt(k,576)*y(k,229)
3048 254840160 : mat(k,429) = -(rxt(k,583)*y(k,295))
3049 254840160 : mat(k,3915) = -rxt(k,583)*y(k,232)
3050 254840160 : mat(k,3229) = rxt(k,580)*y(k,318)
3051 254840160 : mat(k,535) = rxt(k,580)*y(k,258)
3052 : mat(k,550) = -(rxt(k,541)*y(k,258) + rxt(k,542)*y(k,147) + rxt(k,570) &
3053 254840160 : *y(k,148))
3054 254840160 : mat(k,3239) = -rxt(k,541)*y(k,235)
3055 254840160 : mat(k,2990) = -rxt(k,542)*y(k,235)
3056 254840160 : mat(k,3625) = -rxt(k,570)*y(k,235)
3057 254840160 : mat(k,246) = rxt(k,547)*y(k,295)
3058 254840160 : mat(k,3933) = rxt(k,547)*y(k,23)
3059 254840160 : mat(k,1182) = -(rxt(k,409)*y(k,258) + (rxt(k,410) + rxt(k,411)) * y(k,147))
3060 254840160 : mat(k,3283) = -rxt(k,409)*y(k,236)
3061 254840160 : mat(k,3027) = -(rxt(k,410) + rxt(k,411)) * y(k,236)
3062 254840160 : mat(k,720) = rxt(k,412)*y(k,295)
3063 254840160 : mat(k,205) = rxt(k,413)*y(k,295)
3064 254840160 : mat(k,3997) = rxt(k,412)*y(k,2) + rxt(k,413)*y(k,15)
3065 : mat(k,2296) = -(4._r8*rxt(k,585)*y(k,237) + rxt(k,586)*y(k,252) + rxt(k,587) &
3066 : *y(k,253) + rxt(k,588)*y(k,258) + rxt(k,589)*y(k,147) + rxt(k,590) &
3067 : *y(k,149) + rxt(k,591)*y(k,302) + rxt(k,592)*y(k,304) + rxt(k,593) &
3068 254840160 : *y(k,307))
3069 254840160 : mat(k,2894) = -rxt(k,586)*y(k,237)
3070 254840160 : mat(k,3436) = -rxt(k,587)*y(k,237)
3071 254840160 : mat(k,3343) = -rxt(k,588)*y(k,237)
3072 254840160 : mat(k,3084) = -rxt(k,589)*y(k,237)
3073 254840160 : mat(k,3580) = -rxt(k,590)*y(k,237)
3074 254840160 : mat(k,2729) = -rxt(k,591)*y(k,237)
3075 254840160 : mat(k,2775) = -rxt(k,592)*y(k,237)
3076 254840160 : mat(k,2822) = -rxt(k,593)*y(k,237)
3077 254840160 : mat(k,1277) = rxt(k,584)*y(k,149)
3078 254840160 : mat(k,3580) = mat(k,3580) + rxt(k,584)*y(k,4)
3079 : mat(k,2441) = -(rxt(k,594)*y(k,252) + rxt(k,595)*y(k,253) + rxt(k,596) &
3080 : *y(k,258) + rxt(k,597)*y(k,147) + rxt(k,598)*y(k,149) + rxt(k,599) &
3081 254840160 : *y(k,302) + rxt(k,600)*y(k,304) + rxt(k,601)*y(k,307))
3082 254840160 : mat(k,2900) = -rxt(k,594)*y(k,238)
3083 254840160 : mat(k,3442) = -rxt(k,595)*y(k,238)
3084 254840160 : mat(k,3349) = -rxt(k,596)*y(k,238)
3085 254840160 : mat(k,3090) = -rxt(k,597)*y(k,238)
3086 254840160 : mat(k,3586) = -rxt(k,598)*y(k,238)
3087 254840160 : mat(k,2735) = -rxt(k,599)*y(k,238)
3088 254840160 : mat(k,2781) = -rxt(k,600)*y(k,238)
3089 254840160 : mat(k,2828) = -rxt(k,601)*y(k,238)
3090 254840160 : mat(k,1279) = rxt(k,603)*y(k,295)
3091 254840160 : mat(k,4072) = rxt(k,603)*y(k,4)
3092 254840160 : mat(k,57) = -(rxt(k,842)*y(k,258) + rxt(k,843)*y(k,147))
3093 254840160 : mat(k,3206) = -rxt(k,842)*y(k,239)
3094 254840160 : mat(k,2968) = -rxt(k,843)*y(k,239)
3095 254840160 : mat(k,1270) = rxt(k,845)*y(k,295)
3096 254840160 : mat(k,3859) = rxt(k,845)*y(k,4)
3097 : mat(k,2213) = -(4._r8*rxt(k,605)*y(k,240) + rxt(k,606)*y(k,252) + rxt(k,607) &
3098 : *y(k,253) + rxt(k,608)*y(k,258) + rxt(k,609)*y(k,147) + rxt(k,610) &
3099 : *y(k,149) + rxt(k,611)*y(k,302) + rxt(k,612)*y(k,304) + rxt(k,613) &
3100 254840160 : *y(k,307))
3101 254840160 : mat(k,2890) = -rxt(k,606)*y(k,240)
3102 254840160 : mat(k,3432) = -rxt(k,607)*y(k,240)
3103 254840160 : mat(k,3339) = -rxt(k,608)*y(k,240)
3104 254840160 : mat(k,3080) = -rxt(k,609)*y(k,240)
3105 254840160 : mat(k,3576) = -rxt(k,610)*y(k,240)
3106 254840160 : mat(k,2726) = -rxt(k,611)*y(k,240)
3107 254840160 : mat(k,2772) = -rxt(k,612)*y(k,240)
3108 254840160 : mat(k,2819) = -rxt(k,613)*y(k,240)
3109 254840160 : mat(k,1044) = rxt(k,604)*y(k,149)
3110 254840160 : mat(k,3576) = mat(k,3576) + rxt(k,604)*y(k,7)
3111 : mat(k,2408) = -(rxt(k,614)*y(k,252) + rxt(k,615)*y(k,253) + rxt(k,616) &
3112 : *y(k,258) + rxt(k,617)*y(k,147) + rxt(k,618)*y(k,149) + rxt(k,619) &
3113 254840160 : *y(k,302) + rxt(k,620)*y(k,304) + rxt(k,621)*y(k,307))
3114 254840160 : mat(k,2899) = -rxt(k,614)*y(k,241)
3115 254840160 : mat(k,3441) = -rxt(k,615)*y(k,241)
3116 254840160 : mat(k,3348) = -rxt(k,616)*y(k,241)
3117 254840160 : mat(k,3089) = -rxt(k,617)*y(k,241)
3118 254840160 : mat(k,3585) = -rxt(k,618)*y(k,241)
3119 254840160 : mat(k,2734) = -rxt(k,619)*y(k,241)
3120 254840160 : mat(k,2780) = -rxt(k,620)*y(k,241)
3121 254840160 : mat(k,2827) = -rxt(k,621)*y(k,241)
3122 254840160 : mat(k,1045) = rxt(k,623)*y(k,295)
3123 254840160 : mat(k,4071) = rxt(k,623)*y(k,7)
3124 254840160 : mat(k,63) = -(rxt(k,847)*y(k,258) + rxt(k,848)*y(k,147))
3125 254840160 : mat(k,3207) = -rxt(k,847)*y(k,242)
3126 254840160 : mat(k,2969) = -rxt(k,848)*y(k,242)
3127 254840160 : mat(k,1039) = rxt(k,850)*y(k,295)
3128 254840160 : mat(k,3860) = rxt(k,850)*y(k,7)
3129 254840160 : mat(k,514) = -(rxt(k,544)*y(k,258) + rxt(k,545)*y(k,147))
3130 254840160 : mat(k,3237) = -rxt(k,544)*y(k,243)
3131 254840160 : mat(k,2988) = -rxt(k,545)*y(k,243)
3132 254840160 : mat(k,185) = .350_r8*rxt(k,543)*y(k,295)
3133 254840160 : mat(k,419) = rxt(k,546)*y(k,295)
3134 254840160 : mat(k,3928) = .350_r8*rxt(k,543)*y(k,8) + rxt(k,546)*y(k,9)
3135 254840160 : mat(k,69) = -(rxt(k,852)*y(k,258) + rxt(k,853)*y(k,147))
3136 254840160 : mat(k,3208) = -rxt(k,852)*y(k,244)
3137 254840160 : mat(k,2970) = -rxt(k,853)*y(k,244)
3138 254840160 : mat(k,181) = rxt(k,851)*y(k,295)
3139 254840160 : mat(k,3861) = rxt(k,851)*y(k,8)
3140 : mat(k,2536) = -(4._r8*rxt(k,625)*y(k,245) + rxt(k,626)*y(k,252) + rxt(k,627) &
3141 : *y(k,253) + rxt(k,628)*y(k,258) + rxt(k,629)*y(k,147) + rxt(k,630) &
3142 : *y(k,149) + rxt(k,631)*y(k,302) + rxt(k,632)*y(k,304) + rxt(k,633) &
3143 254840160 : *y(k,307))
3144 254840160 : mat(k,2903) = -rxt(k,626)*y(k,245)
3145 254840160 : mat(k,3445) = -rxt(k,627)*y(k,245)
3146 254840160 : mat(k,3352) = -rxt(k,628)*y(k,245)
3147 254840160 : mat(k,3093) = -rxt(k,629)*y(k,245)
3148 254840160 : mat(k,3589) = -rxt(k,630)*y(k,245)
3149 254840160 : mat(k,2738) = -rxt(k,631)*y(k,245)
3150 254840160 : mat(k,2784) = -rxt(k,632)*y(k,245)
3151 254840160 : mat(k,2831) = -rxt(k,633)*y(k,245)
3152 254840160 : mat(k,1100) = rxt(k,624)*y(k,149)
3153 254840160 : mat(k,3589) = mat(k,3589) + rxt(k,624)*y(k,17)
3154 254840160 : mat(k,989) = rxt(k,775)*y(k,295)
3155 254840160 : mat(k,4075) = rxt(k,775)*y(k,217)
3156 : mat(k,2380) = -(rxt(k,634)*y(k,252) + rxt(k,635)*y(k,253) + rxt(k,636) &
3157 : *y(k,258) + rxt(k,637)*y(k,147) + rxt(k,638)*y(k,149) + rxt(k,639) &
3158 254840160 : *y(k,302) + rxt(k,640)*y(k,304) + rxt(k,641)*y(k,307))
3159 254840160 : mat(k,2898) = -rxt(k,634)*y(k,246)
3160 254840160 : mat(k,3440) = -rxt(k,635)*y(k,246)
3161 254840160 : mat(k,3347) = -rxt(k,636)*y(k,246)
3162 254840160 : mat(k,3088) = -rxt(k,637)*y(k,246)
3163 254840160 : mat(k,3584) = -rxt(k,638)*y(k,246)
3164 254840160 : mat(k,2733) = -rxt(k,639)*y(k,246)
3165 254840160 : mat(k,2779) = -rxt(k,640)*y(k,246)
3166 254840160 : mat(k,2826) = -rxt(k,641)*y(k,246)
3167 254840160 : mat(k,1099) = rxt(k,643)*y(k,295)
3168 254840160 : mat(k,4070) = rxt(k,643)*y(k,17)
3169 254840160 : mat(k,75) = -(rxt(k,855)*y(k,258) + rxt(k,856)*y(k,147))
3170 254840160 : mat(k,3209) = -rxt(k,855)*y(k,247)
3171 254840160 : mat(k,2971) = -rxt(k,856)*y(k,247)
3172 254840160 : mat(k,1090) = rxt(k,858)*y(k,295)
3173 254840160 : mat(k,3862) = rxt(k,858)*y(k,17)
3174 254840160 : mat(k,437) = -(rxt(k,548)*y(k,258) + rxt(k,550)*y(k,147))
3175 254840160 : mat(k,3230) = -rxt(k,548)*y(k,248)
3176 254840160 : mat(k,2983) = -rxt(k,550)*y(k,248)
3177 254840160 : mat(k,354) = rxt(k,549)*y(k,295)
3178 254840160 : mat(k,214) = .070_r8*rxt(k,574)*y(k,295)
3179 254840160 : mat(k,231) = .060_r8*rxt(k,576)*y(k,295)
3180 : mat(k,3916) = rxt(k,549)*y(k,24) + .070_r8*rxt(k,574)*y(k,228) &
3181 254840160 : + .060_r8*rxt(k,576)*y(k,229)
3182 : mat(k,1350) = -(4._r8*rxt(k,324)*y(k,249) + rxt(k,325)*y(k,253) + rxt(k,326) &
3183 254840160 : *y(k,258) + rxt(k,327)*y(k,147))
3184 254840160 : mat(k,3391) = -rxt(k,325)*y(k,249)
3185 254840160 : mat(k,3291) = -rxt(k,326)*y(k,249)
3186 254840160 : mat(k,3034) = -rxt(k,327)*y(k,249)
3187 254840160 : mat(k,359) = .500_r8*rxt(k,329)*y(k,295)
3188 254840160 : mat(k,317) = rxt(k,330)*y(k,57) + rxt(k,331)*y(k,295)
3189 254840160 : mat(k,3823) = rxt(k,330)*y(k,29)
3190 254840160 : mat(k,4011) = .500_r8*rxt(k,329)*y(k,28) + rxt(k,331)*y(k,29)
3191 : mat(k,1024) = -(rxt(k,355)*y(k,253) + rxt(k,356)*y(k,258) + rxt(k,357) &
3192 254840160 : *y(k,147))
3193 254840160 : mat(k,3386) = -rxt(k,355)*y(k,250)
3194 254840160 : mat(k,3274) = -rxt(k,356)*y(k,250)
3195 254840160 : mat(k,3019) = -rxt(k,357)*y(k,250)
3196 254840160 : mat(k,412) = rxt(k,358)*y(k,295)
3197 254840160 : mat(k,131) = rxt(k,359)*y(k,295)
3198 254840160 : mat(k,3984) = rxt(k,358)*y(k,31) + rxt(k,359)*y(k,32)
3199 254840160 : mat(k,711) = -(rxt(k,551)*y(k,258) + rxt(k,552)*y(k,147))
3200 254840160 : mat(k,3246) = -rxt(k,551)*y(k,251)
3201 254840160 : mat(k,2997) = -rxt(k,552)*y(k,251)
3202 254840160 : mat(k,289) = rxt(k,553)*y(k,295)
3203 254840160 : mat(k,2997) = mat(k,2997) + rxt(k,542)*y(k,235)
3204 254840160 : mat(k,3678) = rxt(k,568)*y(k,165)
3205 254840160 : mat(k,485) = rxt(k,568)*y(k,158)
3206 254840160 : mat(k,551) = rxt(k,542)*y(k,147) + .400_r8*rxt(k,541)*y(k,258)
3207 254840160 : mat(k,3246) = mat(k,3246) + .400_r8*rxt(k,541)*y(k,235)
3208 254840160 : mat(k,3951) = rxt(k,553)*y(k,33)
3209 : mat(k,2913) = -(4._r8*rxt(k,335)*y(k,252) + rxt(k,336)*y(k,253) + rxt(k,337) &
3210 : *y(k,258) + rxt(k,338)*y(k,147) + rxt(k,351)*y(k,148) + rxt(k,381) &
3211 : *y(k,284) + rxt(k,388)*y(k,286) + rxt(k,400)*y(k,289) + rxt(k,424) &
3212 : *y(k,261) + rxt(k,430)*y(k,262) + rxt(k,444)*y(k,267) + rxt(k,448) &
3213 : *y(k,268) + rxt(k,474)*y(k,274) + rxt(k,491)*y(k,278) + rxt(k,495) &
3214 : *y(k,279) + rxt(k,586)*y(k,237) + rxt(k,594)*y(k,238) + rxt(k,606) &
3215 : *y(k,240) + rxt(k,614)*y(k,241) + rxt(k,626)*y(k,245) + rxt(k,634) &
3216 : *y(k,246) + rxt(k,645)*y(k,281) + rxt(k,654)*y(k,282) + rxt(k,665) &
3217 : *y(k,290) + rxt(k,674)*y(k,291) + rxt(k,693)*y(k,301) + rxt(k,701) &
3218 : *y(k,302) + rxt(k,709)*y(k,303) + rxt(k,719)*y(k,304) + rxt(k,728) &
3219 254840160 : *y(k,305) + rxt(k,749)*y(k,307))
3220 254840160 : mat(k,3455) = -rxt(k,336)*y(k,252)
3221 254840160 : mat(k,3362) = -rxt(k,337)*y(k,252)
3222 254840160 : mat(k,3103) = -rxt(k,338)*y(k,252)
3223 254840160 : mat(k,3651) = -rxt(k,351)*y(k,252)
3224 254840160 : mat(k,1550) = -rxt(k,381)*y(k,252)
3225 254840160 : mat(k,1623) = -rxt(k,388)*y(k,252)
3226 254840160 : mat(k,1514) = -rxt(k,400)*y(k,252)
3227 254840160 : mat(k,1959) = -rxt(k,424)*y(k,252)
3228 254840160 : mat(k,1998) = -rxt(k,430)*y(k,252)
3229 254840160 : mat(k,1740) = -rxt(k,444)*y(k,252)
3230 254840160 : mat(k,1762) = -rxt(k,448)*y(k,252)
3231 254840160 : mat(k,2183) = -rxt(k,474)*y(k,252)
3232 254840160 : mat(k,1857) = -rxt(k,491)*y(k,252)
3233 254840160 : mat(k,1826) = -rxt(k,495)*y(k,252)
3234 254840160 : mat(k,2304) = -rxt(k,586)*y(k,252)
3235 254840160 : mat(k,2449) = -rxt(k,594)*y(k,252)
3236 254840160 : mat(k,2221) = -rxt(k,606)*y(k,252)
3237 254840160 : mat(k,2417) = -rxt(k,614)*y(k,252)
3238 254840160 : mat(k,2543) = -rxt(k,626)*y(k,252)
3239 254840160 : mat(k,2388) = -rxt(k,634)*y(k,252)
3240 254840160 : mat(k,2514) = -rxt(k,645)*y(k,252)
3241 254840160 : mat(k,2348) = -rxt(k,654)*y(k,252)
3242 254840160 : mat(k,2579) = -rxt(k,665)*y(k,252)
3243 254840160 : mat(k,2480) = -rxt(k,674)*y(k,252)
3244 254840160 : mat(k,2660) = -rxt(k,693)*y(k,252)
3245 254840160 : mat(k,2748) = -rxt(k,701)*y(k,252)
3246 254840160 : mat(k,2705) = -rxt(k,709)*y(k,252)
3247 254840160 : mat(k,2794) = -rxt(k,719)*y(k,252)
3248 254840160 : mat(k,2244) = -rxt(k,728)*y(k,252)
3249 254840160 : mat(k,2841) = -rxt(k,749)*y(k,252)
3250 254840160 : mat(k,1433) = rxt(k,332)*y(k,149) + rxt(k,333)*y(k,295)
3251 254840160 : mat(k,1928) = rxt(k,360)*y(k,149) + rxt(k,361)*y(k,295)
3252 254840160 : mat(k,704) = .500_r8*rxt(k,340)*y(k,295)
3253 254840160 : mat(k,622) = .060_r8*rxt(k,414)*y(k,295)
3254 254840160 : mat(k,635) = .060_r8*rxt(k,415)*y(k,295)
3255 254840160 : mat(k,926) = .300_r8*rxt(k,363)*y(k,295)
3256 254840160 : mat(k,1423) = .070_r8*rxt(k,486)*y(k,158)
3257 254840160 : mat(k,1080) = .330_r8*rxt(k,662)*y(k,158)
3258 254840160 : mat(k,2019) = .100_r8*rxt(k,385)*y(k,158)
3259 254840160 : mat(k,2044) = .280_r8*rxt(k,403)*y(k,158)
3260 254840160 : mat(k,1502) = .560_r8*rxt(k,405)*y(k,295)
3261 254840160 : mat(k,2141) = .040_r8*rxt(k,501)*y(k,158) + .100_r8*rxt(k,502)*y(k,295)
3262 : mat(k,3103) = mat(k,3103) + .350_r8*rxt(k,392)*y(k,286) + rxt(k,395)*y(k,288) &
3263 : + .760_r8*rxt(k,537)*y(k,289) + rxt(k,370)*y(k,298) &
3264 254840160 : + .910_r8*rxt(k,741)*y(k,306)
3265 : mat(k,3599) = rxt(k,332)*y(k,46) + rxt(k,360)*y(k,50) + .350_r8*rxt(k,393) &
3266 254840160 : *y(k,286) + rxt(k,742)*y(k,306)
3267 : mat(k,3753) = .070_r8*rxt(k,486)*y(k,109) + .330_r8*rxt(k,662)*y(k,125) &
3268 : + .100_r8*rxt(k,385)*y(k,126) + .280_r8*rxt(k,403)*y(k,132) &
3269 254840160 : + .040_r8*rxt(k,501)*y(k,139)
3270 254840160 : mat(k,668) = 2.000_r8*rxt(k,737)*y(k,295)
3271 : mat(k,2913) = mat(k,2913) + .350_r8*rxt(k,388)*y(k,286) + .750_r8*rxt(k,400) &
3272 254840160 : *y(k,289)
3273 : mat(k,3455) = mat(k,3455) + .350_r8*rxt(k,389)*y(k,286) + .880_r8*rxt(k,401) &
3274 254840160 : *y(k,289) + .300_r8*rxt(k,368)*y(k,298) + rxt(k,739)*y(k,306)
3275 : mat(k,3362) = mat(k,3362) + .170_r8*rxt(k,390)*y(k,286) + .200_r8*rxt(k,394) &
3276 : *y(k,288) + .490_r8*rxt(k,402)*y(k,289) + .150_r8*rxt(k,369) &
3277 254840160 : *y(k,298) + .530_r8*rxt(k,740)*y(k,306)
3278 : mat(k,1623) = mat(k,1623) + .350_r8*rxt(k,392)*y(k,147) + .350_r8*rxt(k,393) &
3279 : *y(k,149) + .350_r8*rxt(k,388)*y(k,252) + .350_r8*rxt(k,389) &
3280 : *y(k,253) + .170_r8*rxt(k,390)*y(k,258) + 1.400_r8*rxt(k,391) &
3281 254840160 : *y(k,286)
3282 254840160 : mat(k,765) = rxt(k,395)*y(k,147) + .200_r8*rxt(k,394)*y(k,258)
3283 : mat(k,1514) = mat(k,1514) + .760_r8*rxt(k,537)*y(k,147) + .750_r8*rxt(k,400) &
3284 : *y(k,252) + .880_r8*rxt(k,401)*y(k,253) + .490_r8*rxt(k,402) &
3285 254840160 : *y(k,258)
3286 : mat(k,4085) = rxt(k,333)*y(k,46) + rxt(k,361)*y(k,50) + .500_r8*rxt(k,340) &
3287 : *y(k,52) + .060_r8*rxt(k,414)*y(k,98) + .060_r8*rxt(k,415) &
3288 : *y(k,99) + .300_r8*rxt(k,363)*y(k,104) + .560_r8*rxt(k,405) &
3289 : *y(k,134) + .100_r8*rxt(k,502)*y(k,139) + 2.000_r8*rxt(k,737) &
3290 254840160 : *y(k,206)
3291 : mat(k,1340) = rxt(k,370)*y(k,147) + .300_r8*rxt(k,368)*y(k,253) &
3292 254840160 : + .150_r8*rxt(k,369)*y(k,258)
3293 254840160 : mat(k,2748) = mat(k,2748) + rxt(k,743)*y(k,306)
3294 254840160 : mat(k,2794) = mat(k,2794) + rxt(k,744)*y(k,306)
3295 : mat(k,2682) = .910_r8*rxt(k,741)*y(k,147) + rxt(k,742)*y(k,149) + rxt(k,739) &
3296 : *y(k,253) + .530_r8*rxt(k,740)*y(k,258) + rxt(k,743)*y(k,302) &
3297 254840160 : + rxt(k,744)*y(k,304) + rxt(k,745)*y(k,307)
3298 263009123 : mat(k,2841) = mat(k,2841) + rxt(k,745)*y(k,306)
3299 : end do
3300 8168963 : end subroutine nlnmat12
3301 8168963 : subroutine nlnmat13( avec_len, mat, y, rxt )
3302 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
3303 : implicit none
3304 : !----------------------------------------------
3305 : ! ... dummy arguments
3306 : !----------------------------------------------
3307 : integer, intent(in) :: avec_len
3308 : real(r8), intent(in) :: y(veclen,gas_pcnst)
3309 : real(r8), intent(in) :: rxt(veclen,rxntot)
3310 : real(r8), intent(inout) :: mat(veclen,nzcnt)
3311 : !----------------------------------------------
3312 : ! ... local variables
3313 : !----------------------------------------------
3314 : integer :: k
3315 : !----------------------------------------------
3316 : ! ... complete matrix entries implicit species
3317 : !----------------------------------------------
3318 263009123 : do k = 1,avec_len
3319 254840160 : mat(k,3463) = -(rxt(k,225)*y(k,60) + (4._r8*rxt(k,302) + 4._r8*rxt(k,303) &
3320 : ) * y(k,253) + rxt(k,304)*y(k,258) + rxt(k,305)*y(k,147) &
3321 : + rxt(k,325)*y(k,249) + rxt(k,336)*y(k,252) + rxt(k,355) &
3322 : *y(k,250) + rxt(k,368)*y(k,298) + rxt(k,382)*y(k,284) + rxt(k,389) &
3323 : *y(k,286) + rxt(k,401)*y(k,289) + rxt(k,425)*y(k,261) + rxt(k,431) &
3324 : *y(k,262) + rxt(k,445)*y(k,267) + rxt(k,449)*y(k,268) + rxt(k,475) &
3325 : *y(k,274) + rxt(k,492)*y(k,278) + rxt(k,496)*y(k,279) + rxt(k,587) &
3326 : *y(k,237) + rxt(k,595)*y(k,238) + rxt(k,607)*y(k,240) + rxt(k,615) &
3327 : *y(k,241) + rxt(k,627)*y(k,245) + rxt(k,635)*y(k,246) + rxt(k,646) &
3328 : *y(k,281) + rxt(k,655)*y(k,282) + rxt(k,666)*y(k,290) + rxt(k,675) &
3329 : *y(k,291) + rxt(k,694)*y(k,301) + rxt(k,702)*y(k,302) + rxt(k,710) &
3330 : *y(k,303) + rxt(k,720)*y(k,304) + rxt(k,729)*y(k,305) + rxt(k,739) &
3331 254840160 : *y(k,306) + rxt(k,750)*y(k,307))
3332 254840160 : mat(k,3513) = -rxt(k,225)*y(k,253)
3333 254840160 : mat(k,3370) = -rxt(k,304)*y(k,253)
3334 254840160 : mat(k,3111) = -rxt(k,305)*y(k,253)
3335 254840160 : mat(k,1356) = -rxt(k,325)*y(k,253)
3336 254840160 : mat(k,2921) = -rxt(k,336)*y(k,253)
3337 254840160 : mat(k,1030) = -rxt(k,355)*y(k,253)
3338 254840160 : mat(k,1344) = -rxt(k,368)*y(k,253)
3339 254840160 : mat(k,1554) = -rxt(k,382)*y(k,253)
3340 254840160 : mat(k,1628) = -rxt(k,389)*y(k,253)
3341 254840160 : mat(k,1518) = -rxt(k,401)*y(k,253)
3342 254840160 : mat(k,1965) = -rxt(k,425)*y(k,253)
3343 254840160 : mat(k,2004) = -rxt(k,431)*y(k,253)
3344 254840160 : mat(k,1745) = -rxt(k,445)*y(k,253)
3345 254840160 : mat(k,1767) = -rxt(k,449)*y(k,253)
3346 254840160 : mat(k,2190) = -rxt(k,475)*y(k,253)
3347 254840160 : mat(k,1862) = -rxt(k,492)*y(k,253)
3348 254840160 : mat(k,1831) = -rxt(k,496)*y(k,253)
3349 254840160 : mat(k,2310) = -rxt(k,587)*y(k,253)
3350 254840160 : mat(k,2455) = -rxt(k,595)*y(k,253)
3351 254840160 : mat(k,2226) = -rxt(k,607)*y(k,253)
3352 254840160 : mat(k,2423) = -rxt(k,615)*y(k,253)
3353 254840160 : mat(k,2549) = -rxt(k,627)*y(k,253)
3354 254840160 : mat(k,2394) = -rxt(k,635)*y(k,253)
3355 254840160 : mat(k,2520) = -rxt(k,646)*y(k,253)
3356 254840160 : mat(k,2354) = -rxt(k,655)*y(k,253)
3357 254840160 : mat(k,2585) = -rxt(k,666)*y(k,253)
3358 254840160 : mat(k,2486) = -rxt(k,675)*y(k,253)
3359 254840160 : mat(k,2666) = -rxt(k,694)*y(k,253)
3360 254840160 : mat(k,2755) = -rxt(k,702)*y(k,253)
3361 254840160 : mat(k,2711) = -rxt(k,710)*y(k,253)
3362 254840160 : mat(k,2801) = -rxt(k,720)*y(k,253)
3363 254840160 : mat(k,2250) = -rxt(k,729)*y(k,253)
3364 254840160 : mat(k,2688) = -rxt(k,739)*y(k,253)
3365 254840160 : mat(k,2848) = -rxt(k,750)*y(k,253)
3366 254840160 : mat(k,1395) = .280_r8*rxt(k,354)*y(k,158)
3367 254840160 : mat(k,793) = rxt(k,339)*y(k,295)
3368 254840160 : mat(k,452) = .700_r8*rxt(k,307)*y(k,295)
3369 : mat(k,2266) = rxt(k,219)*y(k,57) + rxt(k,275)*y(k,75) + rxt(k,315)*y(k,294) &
3370 254840160 : + rxt(k,308)*y(k,295)
3371 254840160 : mat(k,3843) = rxt(k,219)*y(k,55)
3372 254840160 : mat(k,1247) = rxt(k,275)*y(k,55)
3373 254840160 : mat(k,624) = .060_r8*rxt(k,414)*y(k,295)
3374 254840160 : mat(k,637) = .060_r8*rxt(k,415)*y(k,295)
3375 254840160 : mat(k,1426) = .210_r8*rxt(k,486)*y(k,158)
3376 : mat(k,3111) = mat(k,3111) + rxt(k,338)*y(k,252) + .830_r8*rxt(k,556)*y(k,254) &
3377 254840160 : + .650_r8*rxt(k,392)*y(k,286) + .170_r8*rxt(k,562)*y(k,287)
3378 254840160 : mat(k,3607) = .650_r8*rxt(k,393)*y(k,286)
3379 254840160 : mat(k,3761) = .280_r8*rxt(k,354)*y(k,30) + .210_r8*rxt(k,486)*y(k,109)
3380 254840160 : mat(k,2310) = mat(k,2310) + rxt(k,586)*y(k,252)
3381 254840160 : mat(k,2455) = mat(k,2455) + rxt(k,594)*y(k,252)
3382 254840160 : mat(k,2226) = mat(k,2226) + rxt(k,606)*y(k,252)
3383 254840160 : mat(k,2423) = mat(k,2423) + rxt(k,614)*y(k,252)
3384 254840160 : mat(k,2549) = mat(k,2549) + rxt(k,626)*y(k,252)
3385 254840160 : mat(k,2394) = mat(k,2394) + rxt(k,634)*y(k,252)
3386 : mat(k,2921) = mat(k,2921) + rxt(k,338)*y(k,147) + rxt(k,586)*y(k,237) &
3387 : + rxt(k,594)*y(k,238) + rxt(k,606)*y(k,240) + rxt(k,614) &
3388 : *y(k,241) + rxt(k,626)*y(k,245) + rxt(k,634)*y(k,246) &
3389 : + 4.000_r8*rxt(k,335)*y(k,252) + .900_r8*rxt(k,336)*y(k,253) &
3390 : + .490_r8*rxt(k,337)*y(k,258) + rxt(k,424)*y(k,261) + rxt(k,430) &
3391 : *y(k,262) + rxt(k,444)*y(k,267) + rxt(k,448)*y(k,268) &
3392 : + rxt(k,474)*y(k,274) + rxt(k,491)*y(k,278) + rxt(k,495) &
3393 : *y(k,279) + rxt(k,645)*y(k,281) + rxt(k,654)*y(k,282) &
3394 : + rxt(k,381)*y(k,284) + 1.650_r8*rxt(k,388)*y(k,286) &
3395 : + rxt(k,400)*y(k,289) + rxt(k,665)*y(k,290) + rxt(k,674) &
3396 : *y(k,291) + rxt(k,693)*y(k,301) + rxt(k,701)*y(k,302) &
3397 : + rxt(k,709)*y(k,303) + rxt(k,719)*y(k,304) + rxt(k,728) &
3398 254840160 : *y(k,305) + rxt(k,738)*y(k,306) + rxt(k,749)*y(k,307)
3399 : mat(k,3463) = mat(k,3463) + .900_r8*rxt(k,336)*y(k,252) + .650_r8*rxt(k,389) &
3400 254840160 : *y(k,286)
3401 254840160 : mat(k,911) = .830_r8*rxt(k,556)*y(k,147) + .330_r8*rxt(k,555)*y(k,258)
3402 : mat(k,3370) = mat(k,3370) + .490_r8*rxt(k,337)*y(k,252) + .330_r8*rxt(k,555) &
3403 : *y(k,254) + .320_r8*rxt(k,390)*y(k,286) + .070_r8*rxt(k,561) &
3404 254840160 : *y(k,287)
3405 254840160 : mat(k,1965) = mat(k,1965) + rxt(k,424)*y(k,252)
3406 254840160 : mat(k,2004) = mat(k,2004) + rxt(k,430)*y(k,252)
3407 254840160 : mat(k,1745) = mat(k,1745) + rxt(k,444)*y(k,252)
3408 254840160 : mat(k,1767) = mat(k,1767) + rxt(k,448)*y(k,252)
3409 254840160 : mat(k,2190) = mat(k,2190) + rxt(k,474)*y(k,252)
3410 254840160 : mat(k,1862) = mat(k,1862) + rxt(k,491)*y(k,252)
3411 254840160 : mat(k,1831) = mat(k,1831) + rxt(k,495)*y(k,252)
3412 254840160 : mat(k,2520) = mat(k,2520) + rxt(k,645)*y(k,252)
3413 254840160 : mat(k,2354) = mat(k,2354) + rxt(k,654)*y(k,252)
3414 254840160 : mat(k,1554) = mat(k,1554) + rxt(k,381)*y(k,252)
3415 : mat(k,1628) = mat(k,1628) + .650_r8*rxt(k,392)*y(k,147) + .650_r8*rxt(k,393) &
3416 : *y(k,149) + 1.650_r8*rxt(k,388)*y(k,252) + .650_r8*rxt(k,389) &
3417 : *y(k,253) + .320_r8*rxt(k,390)*y(k,258) + 2.600_r8*rxt(k,391) &
3418 254840160 : *y(k,286)
3419 254840160 : mat(k,935) = .170_r8*rxt(k,562)*y(k,147) + .070_r8*rxt(k,561)*y(k,258)
3420 254840160 : mat(k,1518) = mat(k,1518) + rxt(k,400)*y(k,252)
3421 254840160 : mat(k,2585) = mat(k,2585) + rxt(k,665)*y(k,252)
3422 254840160 : mat(k,2486) = mat(k,2486) + rxt(k,674)*y(k,252)
3423 254840160 : mat(k,3802) = rxt(k,315)*y(k,55)
3424 : mat(k,4093) = rxt(k,339)*y(k,51) + .700_r8*rxt(k,307)*y(k,54) + rxt(k,308) &
3425 : *y(k,55) + .060_r8*rxt(k,414)*y(k,98) + .060_r8*rxt(k,415) &
3426 254840160 : *y(k,99)
3427 254840160 : mat(k,2666) = mat(k,2666) + rxt(k,693)*y(k,252)
3428 254840160 : mat(k,2755) = mat(k,2755) + rxt(k,701)*y(k,252)
3429 254840160 : mat(k,2711) = mat(k,2711) + rxt(k,709)*y(k,252)
3430 254840160 : mat(k,2801) = mat(k,2801) + rxt(k,719)*y(k,252)
3431 254840160 : mat(k,2250) = mat(k,2250) + rxt(k,728)*y(k,252)
3432 254840160 : mat(k,2688) = mat(k,2688) + rxt(k,738)*y(k,252)
3433 254840160 : mat(k,2848) = mat(k,2848) + rxt(k,749)*y(k,252)
3434 : mat(k,906) = -(rxt(k,555)*y(k,258) + rxt(k,556)*y(k,147) + rxt(k,557) &
3435 254840160 : *y(k,148))
3436 254840160 : mat(k,3263) = -rxt(k,555)*y(k,254)
3437 254840160 : mat(k,3008) = -rxt(k,556)*y(k,254)
3438 254840160 : mat(k,3632) = -rxt(k,557)*y(k,254)
3439 254840160 : mat(k,605) = -((rxt(k,377) + rxt(k,378)) * y(k,147))
3440 254840160 : mat(k,2994) = -(rxt(k,377) + rxt(k,378)) * y(k,255)
3441 254840160 : mat(k,378) = rxt(k,375)*y(k,295)
3442 254840160 : mat(k,3940) = rxt(k,375)*y(k,16)
3443 254840160 : mat(k,2979) = .750_r8*rxt(k,342)*y(k,257)
3444 254840160 : mat(k,854) = .750_r8*rxt(k,342)*y(k,147)
3445 254840160 : mat(k,855) = -(rxt(k,341)*y(k,258) + rxt(k,342)*y(k,147))
3446 254840160 : mat(k,3258) = -rxt(k,341)*y(k,257)
3447 254840160 : mat(k,3003) = -rxt(k,342)*y(k,257)
3448 254840160 : mat(k,586) = rxt(k,350)*y(k,295)
3449 254840160 : mat(k,3966) = rxt(k,350)*y(k,26)
3450 : mat(k,3369) = -((rxt(k,178) + rxt(k,179) + rxt(k,180)) * y(k,78) + rxt(k,182) &
3451 : *y(k,157) + rxt(k,183)*y(k,158) + rxt(k,187)*y(k,295) &
3452 : + 4._r8*rxt(k,192)*y(k,258) + rxt(k,202)*y(k,149) + rxt(k,207) &
3453 : *y(k,147) + rxt(k,212)*y(k,148) + (rxt(k,222) + rxt(k,223) &
3454 : ) * y(k,57) + rxt(k,229)*y(k,60) + rxt(k,255)*y(k,18) + rxt(k,261) &
3455 : *y(k,20) + rxt(k,298)*y(k,43) + rxt(k,304)*y(k,253) + rxt(k,312) &
3456 : *y(k,259) + rxt(k,326)*y(k,249) + rxt(k,337)*y(k,252) + rxt(k,341) &
3457 : *y(k,257) + rxt(k,356)*y(k,250) + rxt(k,365)*y(k,297) + rxt(k,369) &
3458 : *y(k,298) + rxt(k,383)*y(k,284) + rxt(k,390)*y(k,286) + rxt(k,394) &
3459 : *y(k,288) + rxt(k,402)*y(k,289) + rxt(k,409)*y(k,236) + rxt(k,421) &
3460 : *y(k,260) + rxt(k,426)*y(k,261) + rxt(k,432)*y(k,262) + rxt(k,446) &
3461 : *y(k,267) + rxt(k,450)*y(k,268) + rxt(k,457)*y(k,269) + rxt(k,461) &
3462 : *y(k,270) + rxt(k,464)*y(k,271) + rxt(k,467)*y(k,272) + rxt(k,471) &
3463 : *y(k,273) + rxt(k,476)*y(k,274) + rxt(k,479)*y(k,275) + rxt(k,482) &
3464 : *y(k,276) + rxt(k,493)*y(k,278) + rxt(k,497)*y(k,279) + rxt(k,499) &
3465 : *y(k,293) + rxt(k,541)*y(k,235) + rxt(k,544)*y(k,243) + rxt(k,548) &
3466 : *y(k,248) + rxt(k,551)*y(k,251) + rxt(k,555)*y(k,254) + rxt(k,558) &
3467 : *y(k,285) + rxt(k,561)*y(k,287) + rxt(k,564)*y(k,296) + rxt(k,571) &
3468 : *y(k,314) + rxt(k,577)*y(k,316) + rxt(k,580)*y(k,318) + rxt(k,588) &
3469 : *y(k,237) + rxt(k,596)*y(k,238) + rxt(k,608)*y(k,240) + rxt(k,616) &
3470 : *y(k,241) + rxt(k,628)*y(k,245) + rxt(k,636)*y(k,246) + rxt(k,647) &
3471 : *y(k,281) + rxt(k,656)*y(k,282) + rxt(k,667)*y(k,290) + rxt(k,676) &
3472 : *y(k,291) + rxt(k,687)*y(k,299) + rxt(k,691)*y(k,300) + rxt(k,695) &
3473 : *y(k,301) + rxt(k,703)*y(k,302) + rxt(k,711)*y(k,303) + rxt(k,721) &
3474 : *y(k,304) + rxt(k,730)*y(k,305) + rxt(k,740)*y(k,306) + rxt(k,751) &
3475 : *y(k,307) + rxt(k,760)*y(k,308) + rxt(k,765)*y(k,309) + rxt(k,772) &
3476 : *y(k,310) + rxt(k,776)*y(k,311) + rxt(k,780)*y(k,312) + rxt(k,784) &
3477 254840160 : *y(k,313))
3478 254840160 : mat(k,2936) = -(rxt(k,178) + rxt(k,179) + rxt(k,180)) * y(k,258)
3479 254840160 : mat(k,3163) = -rxt(k,182)*y(k,258)
3480 254840160 : mat(k,3760) = -rxt(k,183)*y(k,258)
3481 254840160 : mat(k,4092) = -rxt(k,187)*y(k,258)
3482 254840160 : mat(k,3606) = -rxt(k,202)*y(k,258)
3483 254840160 : mat(k,3110) = -rxt(k,207)*y(k,258)
3484 254840160 : mat(k,3658) = -rxt(k,212)*y(k,258)
3485 254840160 : mat(k,3842) = -(rxt(k,222) + rxt(k,223)) * y(k,258)
3486 254840160 : mat(k,3512) = -rxt(k,229)*y(k,258)
3487 254840160 : mat(k,2203) = -rxt(k,255)*y(k,258)
3488 254840160 : mat(k,3486) = -rxt(k,261)*y(k,258)
3489 254840160 : mat(k,3189) = -rxt(k,298)*y(k,258)
3490 254840160 : mat(k,3462) = -rxt(k,304)*y(k,258)
3491 254840160 : mat(k,698) = -rxt(k,312)*y(k,258)
3492 254840160 : mat(k,1355) = -rxt(k,326)*y(k,258)
3493 254840160 : mat(k,2920) = -rxt(k,337)*y(k,258)
3494 254840160 : mat(k,859) = -rxt(k,341)*y(k,258)
3495 254840160 : mat(k,1029) = -rxt(k,356)*y(k,258)
3496 254840160 : mat(k,944) = -rxt(k,365)*y(k,258)
3497 254840160 : mat(k,1343) = -rxt(k,369)*y(k,258)
3498 254840160 : mat(k,1553) = -rxt(k,383)*y(k,258)
3499 254840160 : mat(k,1627) = -rxt(k,390)*y(k,258)
3500 254840160 : mat(k,767) = -rxt(k,394)*y(k,258)
3501 254840160 : mat(k,1517) = -rxt(k,402)*y(k,258)
3502 254840160 : mat(k,1189) = -rxt(k,409)*y(k,258)
3503 254840160 : mat(k,1306) = -rxt(k,421)*y(k,258)
3504 254840160 : mat(k,1964) = -rxt(k,426)*y(k,258)
3505 254840160 : mat(k,2003) = -rxt(k,432)*y(k,258)
3506 254840160 : mat(k,1744) = -rxt(k,446)*y(k,258)
3507 254840160 : mat(k,1766) = -rxt(k,450)*y(k,258)
3508 254840160 : mat(k,1129) = -rxt(k,457)*y(k,258)
3509 254840160 : mat(k,1175) = -rxt(k,461)*y(k,258)
3510 254840160 : mat(k,1061) = -rxt(k,464)*y(k,258)
3511 254840160 : mat(k,1140) = -rxt(k,467)*y(k,258)
3512 254840160 : mat(k,1451) = -rxt(k,471)*y(k,258)
3513 254840160 : mat(k,2189) = -rxt(k,476)*y(k,258)
3514 254840160 : mat(k,1320) = -rxt(k,479)*y(k,258)
3515 254840160 : mat(k,1374) = -rxt(k,482)*y(k,258)
3516 254840160 : mat(k,1861) = -rxt(k,493)*y(k,258)
3517 254840160 : mat(k,1830) = -rxt(k,497)*y(k,258)
3518 254840160 : mat(k,1653) = -rxt(k,499)*y(k,258)
3519 254840160 : mat(k,553) = -rxt(k,541)*y(k,258)
3520 254840160 : mat(k,518) = -rxt(k,544)*y(k,258)
3521 254840160 : mat(k,440) = -rxt(k,548)*y(k,258)
3522 254840160 : mat(k,713) = -rxt(k,551)*y(k,258)
3523 254840160 : mat(k,910) = -rxt(k,555)*y(k,258)
3524 254840160 : mat(k,866) = -rxt(k,558)*y(k,258)
3525 254840160 : mat(k,934) = -rxt(k,561)*y(k,258)
3526 254840160 : mat(k,459) = -rxt(k,564)*y(k,258)
3527 254840160 : mat(k,880) = -rxt(k,571)*y(k,258)
3528 254840160 : mat(k,903) = -rxt(k,577)*y(k,258)
3529 254840160 : mat(k,540) = -rxt(k,580)*y(k,258)
3530 254840160 : mat(k,2309) = -rxt(k,588)*y(k,258)
3531 254840160 : mat(k,2454) = -rxt(k,596)*y(k,258)
3532 254840160 : mat(k,2225) = -rxt(k,608)*y(k,258)
3533 254840160 : mat(k,2422) = -rxt(k,616)*y(k,258)
3534 254840160 : mat(k,2548) = -rxt(k,628)*y(k,258)
3535 254840160 : mat(k,2393) = -rxt(k,636)*y(k,258)
3536 254840160 : mat(k,2519) = -rxt(k,647)*y(k,258)
3537 254840160 : mat(k,2353) = -rxt(k,656)*y(k,258)
3538 254840160 : mat(k,2584) = -rxt(k,667)*y(k,258)
3539 254840160 : mat(k,2485) = -rxt(k,676)*y(k,258)
3540 254840160 : mat(k,957) = -rxt(k,687)*y(k,258)
3541 254840160 : mat(k,1011) = -rxt(k,691)*y(k,258)
3542 254840160 : mat(k,2665) = -rxt(k,695)*y(k,258)
3543 254840160 : mat(k,2754) = -rxt(k,703)*y(k,258)
3544 254840160 : mat(k,2710) = -rxt(k,711)*y(k,258)
3545 254840160 : mat(k,2800) = -rxt(k,721)*y(k,258)
3546 254840160 : mat(k,2249) = -rxt(k,730)*y(k,258)
3547 254840160 : mat(k,2687) = -rxt(k,740)*y(k,258)
3548 254840160 : mat(k,2847) = -rxt(k,751)*y(k,258)
3549 254840160 : mat(k,802) = -rxt(k,760)*y(k,258)
3550 254840160 : mat(k,966) = -rxt(k,765)*y(k,258)
3551 254840160 : mat(k,1224) = -rxt(k,772)*y(k,258)
3552 254840160 : mat(k,1020) = -rxt(k,776)*y(k,258)
3553 254840160 : mat(k,810) = -rxt(k,780)*y(k,258)
3554 254840160 : mat(k,818) = -rxt(k,784)*y(k,258)
3555 254840160 : mat(k,1285) = .170_r8*rxt(k,602)*y(k,158)
3556 254840160 : mat(k,1050) = .080_r8*rxt(k,622)*y(k,158)
3557 254840160 : mat(k,186) = .650_r8*rxt(k,543)*y(k,295)
3558 254840160 : mat(k,2203) = mat(k,2203) + rxt(k,254)*y(k,43)
3559 254840160 : mat(k,3486) = mat(k,3486) + rxt(k,266)*y(k,295)
3560 254840160 : mat(k,314) = .350_r8*rxt(k,321)*y(k,295)
3561 254840160 : mat(k,590) = .130_r8*rxt(k,323)*y(k,158)
3562 254840160 : mat(k,285) = rxt(k,328)*y(k,295)
3563 254840160 : mat(k,1394) = .280_r8*rxt(k,354)*y(k,158)
3564 : mat(k,3189) = mat(k,3189) + rxt(k,254)*y(k,18) + rxt(k,218)*y(k,57) &
3565 254840160 : + rxt(k,299)*y(k,149) + rxt(k,300)*y(k,157)
3566 254840160 : mat(k,649) = rxt(k,283)*y(k,57) + rxt(k,284)*y(k,295)
3567 254840160 : mat(k,396) = rxt(k,286)*y(k,57) + rxt(k,287)*y(k,295)
3568 254840160 : mat(k,124) = rxt(k,334)*y(k,295)
3569 254840160 : mat(k,1496) = rxt(k,306)*y(k,295)
3570 254840160 : mat(k,2265) = rxt(k,316)*y(k,294)
3571 : mat(k,3842) = mat(k,3842) + rxt(k,218)*y(k,43) + rxt(k,283)*y(k,44) &
3572 254840160 : + rxt(k,286)*y(k,47) + rxt(k,221)*y(k,81)
3573 254840160 : mat(k,3512) = mat(k,3512) + rxt(k,225)*y(k,253) + rxt(k,236)*y(k,295)
3574 254840160 : mat(k,2059) = rxt(k,319)*y(k,295)
3575 254840160 : mat(k,221) = .730_r8*rxt(k,554)*y(k,295)
3576 254840160 : mat(k,307) = .500_r8*rxt(k,808)*y(k,295)
3577 254840160 : mat(k,1716) = rxt(k,345)*y(k,295)
3578 254840160 : mat(k,1479) = rxt(k,346)*y(k,295)
3579 254840160 : mat(k,1490) = rxt(k,221)*y(k,57) + rxt(k,177)*y(k,157) + rxt(k,186)*y(k,295)
3580 254840160 : mat(k,198) = rxt(k,309)*y(k,295)
3581 254840160 : mat(k,887) = .110_r8*rxt(k,347)*y(k,295)
3582 254840160 : mat(k,1379) = rxt(k,310)*y(k,295)
3583 254840160 : mat(k,1213) = .500_r8*rxt(k,311)*y(k,295)
3584 254840160 : mat(k,983) = rxt(k,379)*y(k,295)
3585 254840160 : mat(k,623) = .510_r8*rxt(k,414)*y(k,295)
3586 254840160 : mat(k,636) = .410_r8*rxt(k,415)*y(k,295)
3587 254840160 : mat(k,1774) = rxt(k,362)*y(k,295)
3588 254840160 : mat(k,1880) = .320_r8*rxt(k,418)*y(k,295)
3589 254840160 : mat(k,1533) = .190_r8*rxt(k,420)*y(k,295)
3590 254840160 : mat(k,1262) = .400_r8*rxt(k,423)*y(k,295)
3591 254840160 : mat(k,1425) = .420_r8*rxt(k,486)*y(k,158)
3592 254840160 : mat(k,1668) = rxt(k,453)*y(k,295)
3593 254840160 : mat(k,1472) = rxt(k,455)*y(k,295)
3594 254840160 : mat(k,2086) = .170_r8*rxt(k,459)*y(k,158) + .040_r8*rxt(k,460)*y(k,295)
3595 254840160 : mat(k,2118) = .170_r8*rxt(k,469)*y(k,158) + .030_r8*rxt(k,470)*y(k,295)
3596 254840160 : mat(k,735) = .050_r8*rxt(k,472)*y(k,295)
3597 254840160 : mat(k,922) = rxt(k,488)*y(k,295)
3598 254840160 : mat(k,1908) = .180_r8*rxt(k,489)*y(k,295)
3599 254840160 : mat(k,2024) = .140_r8*rxt(k,385)*y(k,158)
3600 254840160 : mat(k,1783) = .500_r8*rxt(k,380)*y(k,295)
3601 254840160 : mat(k,2049) = .280_r8*rxt(k,403)*y(k,158)
3602 254840160 : mat(k,1923) = rxt(k,399)*y(k,295)
3603 254840160 : mat(k,1504) = .440_r8*rxt(k,405)*y(k,295)
3604 254840160 : mat(k,834) = .630_r8*rxt(k,682)*y(k,158)
3605 254840160 : mat(k,2147) = .130_r8*rxt(k,501)*y(k,158) + .630_r8*rxt(k,502)*y(k,295)
3606 : mat(k,3110) = mat(k,3110) + rxt(k,410)*y(k,236) + .770_r8*rxt(k,597)*y(k,238) &
3607 : + .700_r8*rxt(k,617)*y(k,241) + rxt(k,545)*y(k,243) &
3608 : + .470_r8*rxt(k,629)*y(k,245) + .750_r8*rxt(k,637)*y(k,246) &
3609 : + rxt(k,550)*y(k,248) + rxt(k,327)*y(k,249) + rxt(k,357) &
3610 : *y(k,250) + rxt(k,305)*y(k,253) + .170_r8*rxt(k,556)*y(k,254) &
3611 : + rxt(k,377)*y(k,255) + .250_r8*rxt(k,342)*y(k,257) + rxt(k,314) &
3612 : *y(k,259) + rxt(k,503)*y(k,260) + rxt(k,505)*y(k,261) &
3613 : + rxt(k,507)*y(k,262) + .450_r8*rxt(k,509)*y(k,267) &
3614 : + .450_r8*rxt(k,511)*y(k,268) + rxt(k,513)*y(k,269) &
3615 : + .270_r8*rxt(k,515)*y(k,270) + rxt(k,517)*y(k,271) + rxt(k,519) &
3616 : *y(k,272) + rxt(k,521)*y(k,273) + .540_r8*rxt(k,523)*y(k,274) &
3617 : + .530_r8*rxt(k,525)*y(k,275) + .960_r8*rxt(k,527)*y(k,276) &
3618 : + .450_r8*rxt(k,530)*y(k,278) + .450_r8*rxt(k,533)*y(k,279) &
3619 : + .500_r8*rxt(k,649)*y(k,281) + .770_r8*rxt(k,657)*y(k,282) &
3620 : + rxt(k,535)*y(k,284) + .400_r8*rxt(k,559)*y(k,285) &
3621 : + .830_r8*rxt(k,562)*y(k,287) + .240_r8*rxt(k,537)*y(k,289) &
3622 : + .040_r8*rxt(k,669)*y(k,290) + .710_r8*rxt(k,677)*y(k,291) &
3623 : + rxt(k,539)*y(k,293) + rxt(k,565)*y(k,296) + rxt(k,366) &
3624 : *y(k,297) + .700_r8*rxt(k,688)*y(k,299) + .700_r8*rxt(k,692) &
3625 : *y(k,300) + .910_r8*rxt(k,741)*y(k,306) + .700_r8*rxt(k,761) &
3626 : *y(k,308) + .700_r8*rxt(k,766)*y(k,309) + .700_r8*rxt(k,773) &
3627 : *y(k,310) + .700_r8*rxt(k,777)*y(k,311) + .700_r8*rxt(k,781) &
3628 : *y(k,312) + .700_r8*rxt(k,785)*y(k,313) + rxt(k,572)*y(k,314) &
3629 254840160 : + rxt(k,578)*y(k,316) + rxt(k,581)*y(k,318)
3630 : mat(k,3606) = mat(k,3606) + rxt(k,299)*y(k,43) + .500_r8*rxt(k,764)*y(k,213) &
3631 : + rxt(k,598)*y(k,238) + rxt(k,618)*y(k,241) + .500_r8*rxt(k,630) &
3632 : *y(k,245) + rxt(k,638)*y(k,246) + .540_r8*rxt(k,478)*y(k,274) &
3633 : + .540_r8*rxt(k,650)*y(k,281) + rxt(k,658)*y(k,282) &
3634 : + .050_r8*rxt(k,670)*y(k,290) + rxt(k,678)*y(k,291) + rxt(k,205) &
3635 254840160 : *y(k,295) + rxt(k,742)*y(k,306)
3636 254840160 : mat(k,3163) = mat(k,3163) + rxt(k,300)*y(k,43) + rxt(k,177)*y(k,81)
3637 : mat(k,3760) = mat(k,3760) + .170_r8*rxt(k,602)*y(k,4) + .080_r8*rxt(k,622) &
3638 : *y(k,7) + .130_r8*rxt(k,323)*y(k,26) + .280_r8*rxt(k,354) &
3639 : *y(k,30) + .420_r8*rxt(k,486)*y(k,109) + .170_r8*rxt(k,459) &
3640 : *y(k,115) + .170_r8*rxt(k,469)*y(k,118) + .140_r8*rxt(k,385) &
3641 : *y(k,126) + .280_r8*rxt(k,403)*y(k,132) + .630_r8*rxt(k,682) &
3642 254840160 : *y(k,135) + .130_r8*rxt(k,501)*y(k,139) + rxt(k,189)*y(k,295)
3643 254840160 : mat(k,195) = .800_r8*rxt(k,566)*y(k,295)
3644 254840160 : mat(k,1238) = rxt(k,798)*y(k,295)
3645 254840160 : mat(k,661) = rxt(k,718)*y(k,295)
3646 254840160 : mat(k,670) = rxt(k,737)*y(k,295)
3647 254840160 : mat(k,2612) = .500_r8*rxt(k,764)*y(k,149)
3648 254840160 : mat(k,216) = .280_r8*rxt(k,574)*y(k,295)
3649 254840160 : mat(k,235) = .380_r8*rxt(k,576)*y(k,295)
3650 254840160 : mat(k,240) = .630_r8*rxt(k,582)*y(k,295)
3651 254840160 : mat(k,1189) = mat(k,1189) + rxt(k,410)*y(k,147)
3652 254840160 : mat(k,2309) = mat(k,2309) + .820_r8*rxt(k,587)*y(k,253)
3653 : mat(k,2454) = mat(k,2454) + .770_r8*rxt(k,597)*y(k,147) + rxt(k,598)*y(k,149) &
3654 : + rxt(k,594)*y(k,252) + 1.160_r8*rxt(k,595)*y(k,253) &
3655 : + .480_r8*rxt(k,596)*y(k,258) + rxt(k,599)*y(k,302) + rxt(k,600) &
3656 254840160 : *y(k,304) + rxt(k,601)*y(k,307)
3657 254840160 : mat(k,2225) = mat(k,2225) + .820_r8*rxt(k,607)*y(k,253)
3658 : mat(k,2422) = mat(k,2422) + .700_r8*rxt(k,617)*y(k,147) + rxt(k,618)*y(k,149) &
3659 : + rxt(k,614)*y(k,252) + rxt(k,615)*y(k,253) + .100_r8*rxt(k,616) &
3660 : *y(k,258) + rxt(k,619)*y(k,302) + rxt(k,620)*y(k,304) &
3661 254840160 : + rxt(k,621)*y(k,307)
3662 254840160 : mat(k,518) = mat(k,518) + rxt(k,545)*y(k,147)
3663 : mat(k,2548) = mat(k,2548) + .470_r8*rxt(k,629)*y(k,147) + .500_r8*rxt(k,630) &
3664 : *y(k,149) + 1.880_r8*rxt(k,625)*y(k,245) + .500_r8*rxt(k,626) &
3665 : *y(k,252) + 1.100_r8*rxt(k,627)*y(k,253) + .500_r8*rxt(k,631) &
3666 : *y(k,302) + .500_r8*rxt(k,632)*y(k,304) + .500_r8*rxt(k,633) &
3667 254840160 : *y(k,307)
3668 : mat(k,2393) = mat(k,2393) + .750_r8*rxt(k,637)*y(k,147) + rxt(k,638)*y(k,149) &
3669 : + rxt(k,634)*y(k,252) + 1.500_r8*rxt(k,635)*y(k,253) &
3670 : + .030_r8*rxt(k,636)*y(k,258) + rxt(k,639)*y(k,302) + rxt(k,640) &
3671 254840160 : *y(k,304) + rxt(k,641)*y(k,307)
3672 254840160 : mat(k,440) = mat(k,440) + rxt(k,550)*y(k,147)
3673 : mat(k,1355) = mat(k,1355) + rxt(k,327)*y(k,147) + 2.400_r8*rxt(k,324) &
3674 254840160 : *y(k,249) + rxt(k,325)*y(k,253)
3675 254840160 : mat(k,1029) = mat(k,1029) + rxt(k,357)*y(k,147) + rxt(k,355)*y(k,253)
3676 : mat(k,2920) = mat(k,2920) + rxt(k,594)*y(k,238) + rxt(k,614)*y(k,241) &
3677 : + .500_r8*rxt(k,626)*y(k,245) + rxt(k,634)*y(k,246) &
3678 : + .900_r8*rxt(k,336)*y(k,253) + rxt(k,424)*y(k,261) + rxt(k,430) &
3679 : *y(k,262) + .450_r8*rxt(k,444)*y(k,267) + .450_r8*rxt(k,448) &
3680 : *y(k,268) + .540_r8*rxt(k,474)*y(k,274) + .450_r8*rxt(k,491) &
3681 : *y(k,278) + .450_r8*rxt(k,495)*y(k,279) + .540_r8*rxt(k,645) &
3682 : *y(k,281) + rxt(k,654)*y(k,282) + rxt(k,381)*y(k,284) &
3683 : + .250_r8*rxt(k,400)*y(k,289) + .050_r8*rxt(k,665)*y(k,290) &
3684 254840160 : + rxt(k,674)*y(k,291) + rxt(k,738)*y(k,306)
3685 : mat(k,3462) = mat(k,3462) + rxt(k,225)*y(k,60) + rxt(k,305)*y(k,147) &
3686 : + .820_r8*rxt(k,587)*y(k,237) + 1.160_r8*rxt(k,595)*y(k,238) &
3687 : + .820_r8*rxt(k,607)*y(k,240) + rxt(k,615)*y(k,241) &
3688 : + 1.100_r8*rxt(k,627)*y(k,245) + 1.500_r8*rxt(k,635)*y(k,246) &
3689 : + rxt(k,325)*y(k,249) + rxt(k,355)*y(k,250) + .900_r8*rxt(k,336) &
3690 : *y(k,252) + 4.000_r8*rxt(k,302)*y(k,253) + 1.500_r8*rxt(k,425) &
3691 : *y(k,261) + rxt(k,431)*y(k,262) + .720_r8*rxt(k,445)*y(k,267) &
3692 : + .720_r8*rxt(k,449)*y(k,268) + .400_r8*rxt(k,475)*y(k,274) &
3693 : + .720_r8*rxt(k,492)*y(k,278) + .720_r8*rxt(k,496)*y(k,279) &
3694 : + 1.010_r8*rxt(k,646)*y(k,281) + rxt(k,655)*y(k,282) &
3695 : + 1.500_r8*rxt(k,382)*y(k,284) + rxt(k,389)*y(k,286) &
3696 : + .620_r8*rxt(k,401)*y(k,289) + .870_r8*rxt(k,666)*y(k,290) &
3697 : + rxt(k,675)*y(k,291) + .300_r8*rxt(k,368)*y(k,298) &
3698 : + .500_r8*rxt(k,694)*y(k,301) + rxt(k,702)*y(k,302) + rxt(k,710) &
3699 : *y(k,303) + rxt(k,720)*y(k,304) + rxt(k,729)*y(k,305) &
3700 254840160 : + 2.000_r8*rxt(k,739)*y(k,306) + rxt(k,750)*y(k,307)
3701 : mat(k,910) = mat(k,910) + .170_r8*rxt(k,556)*y(k,147) + .070_r8*rxt(k,555) &
3702 254840160 : *y(k,258)
3703 254840160 : mat(k,611) = rxt(k,377)*y(k,147)
3704 254840160 : mat(k,859) = mat(k,859) + .250_r8*rxt(k,342)*y(k,147)
3705 : mat(k,3369) = mat(k,3369) + .480_r8*rxt(k,596)*y(k,238) + .100_r8*rxt(k,616) &
3706 : *y(k,241) + .030_r8*rxt(k,636)*y(k,246) + .070_r8*rxt(k,555) &
3707 : *y(k,254) + .200_r8*rxt(k,312)*y(k,259) + .650_r8*rxt(k,421) &
3708 : *y(k,260) + .060_r8*rxt(k,426)*y(k,261) + .060_r8*rxt(k,432) &
3709 : *y(k,262) + .580_r8*rxt(k,457)*y(k,269) + .060_r8*rxt(k,461) &
3710 : *y(k,270) + .600_r8*rxt(k,464)*y(k,271) + .500_r8*rxt(k,467) &
3711 : *y(k,272) + .400_r8*rxt(k,471)*y(k,273) + .170_r8*rxt(k,479) &
3712 : *y(k,275) + .800_r8*rxt(k,482)*y(k,276) + .270_r8*rxt(k,647) &
3713 : *y(k,281) + .100_r8*rxt(k,656)*y(k,282) + .590_r8*rxt(k,383) &
3714 : *y(k,284) + .160_r8*rxt(k,558)*y(k,285) + .330_r8*rxt(k,561) &
3715 : *y(k,287) + .180_r8*rxt(k,402)*y(k,289) + .100_r8*rxt(k,676) &
3716 : *y(k,291) + .800_r8*rxt(k,499)*y(k,293) + .180_r8*rxt(k,687) &
3717 : *y(k,299) + .180_r8*rxt(k,691)*y(k,300) + .530_r8*rxt(k,740) &
3718 : *y(k,306) + .100_r8*rxt(k,760)*y(k,308) + .100_r8*rxt(k,765) &
3719 : *y(k,309) + .100_r8*rxt(k,772)*y(k,310) + .100_r8*rxt(k,776) &
3720 : *y(k,311) + .100_r8*rxt(k,780)*y(k,312) + .100_r8*rxt(k,784) &
3721 254840160 : *y(k,313)
3722 254840160 : mat(k,698) = mat(k,698) + rxt(k,314)*y(k,147) + .200_r8*rxt(k,312)*y(k,258)
3723 254840160 : mat(k,1306) = mat(k,1306) + rxt(k,503)*y(k,147) + .650_r8*rxt(k,421)*y(k,258)
3724 : mat(k,1964) = mat(k,1964) + rxt(k,505)*y(k,147) + rxt(k,424)*y(k,252) &
3725 254840160 : + 1.500_r8*rxt(k,425)*y(k,253) + .060_r8*rxt(k,426)*y(k,258)
3726 : mat(k,2003) = mat(k,2003) + rxt(k,507)*y(k,147) + rxt(k,430)*y(k,252) &
3727 254840160 : + rxt(k,431)*y(k,253) + .060_r8*rxt(k,432)*y(k,258)
3728 : mat(k,1744) = mat(k,1744) + .450_r8*rxt(k,509)*y(k,147) + .450_r8*rxt(k,444) &
3729 254840160 : *y(k,252) + .720_r8*rxt(k,445)*y(k,253)
3730 : mat(k,1766) = mat(k,1766) + .450_r8*rxt(k,511)*y(k,147) + .450_r8*rxt(k,448) &
3731 254840160 : *y(k,252) + .720_r8*rxt(k,449)*y(k,253)
3732 254840160 : mat(k,1129) = mat(k,1129) + rxt(k,513)*y(k,147) + .580_r8*rxt(k,457)*y(k,258)
3733 : mat(k,1175) = mat(k,1175) + .270_r8*rxt(k,515)*y(k,147) + .060_r8*rxt(k,461) &
3734 254840160 : *y(k,258)
3735 254840160 : mat(k,1061) = mat(k,1061) + rxt(k,517)*y(k,147) + .600_r8*rxt(k,464)*y(k,258)
3736 254840160 : mat(k,1140) = mat(k,1140) + rxt(k,519)*y(k,147) + .500_r8*rxt(k,467)*y(k,258)
3737 254840160 : mat(k,1451) = mat(k,1451) + rxt(k,521)*y(k,147) + .400_r8*rxt(k,471)*y(k,258)
3738 : mat(k,2189) = mat(k,2189) + .540_r8*rxt(k,523)*y(k,147) + .540_r8*rxt(k,478) &
3739 : *y(k,149) + .540_r8*rxt(k,474)*y(k,252) + .400_r8*rxt(k,475) &
3740 254840160 : *y(k,253) + .800_r8*rxt(k,477)*y(k,274)
3741 : mat(k,1320) = mat(k,1320) + .530_r8*rxt(k,525)*y(k,147) + .170_r8*rxt(k,479) &
3742 254840160 : *y(k,258)
3743 : mat(k,1374) = mat(k,1374) + .960_r8*rxt(k,527)*y(k,147) + .800_r8*rxt(k,482) &
3744 254840160 : *y(k,258)
3745 : mat(k,1861) = mat(k,1861) + .450_r8*rxt(k,530)*y(k,147) + .450_r8*rxt(k,491) &
3746 254840160 : *y(k,252) + .720_r8*rxt(k,492)*y(k,253)
3747 : mat(k,1830) = mat(k,1830) + .450_r8*rxt(k,533)*y(k,147) + .450_r8*rxt(k,495) &
3748 254840160 : *y(k,252) + .720_r8*rxt(k,496)*y(k,253)
3749 : mat(k,2519) = mat(k,2519) + .500_r8*rxt(k,649)*y(k,147) + .540_r8*rxt(k,650) &
3750 : *y(k,149) + .540_r8*rxt(k,645)*y(k,252) + 1.010_r8*rxt(k,646) &
3751 : *y(k,253) + .270_r8*rxt(k,647)*y(k,258) + 1.980_r8*rxt(k,648) &
3752 : *y(k,281) + .540_r8*rxt(k,651)*y(k,302) + .540_r8*rxt(k,652) &
3753 254840160 : *y(k,304) + .540_r8*rxt(k,653)*y(k,307)
3754 : mat(k,2353) = mat(k,2353) + .770_r8*rxt(k,657)*y(k,147) + rxt(k,658)*y(k,149) &
3755 : + rxt(k,654)*y(k,252) + rxt(k,655)*y(k,253) + .100_r8*rxt(k,656) &
3756 : *y(k,258) + rxt(k,659)*y(k,302) + rxt(k,660)*y(k,304) &
3757 254840160 : + rxt(k,661)*y(k,307)
3758 : mat(k,1553) = mat(k,1553) + rxt(k,535)*y(k,147) + rxt(k,381)*y(k,252) &
3759 254840160 : + 1.500_r8*rxt(k,382)*y(k,253) + .590_r8*rxt(k,383)*y(k,258)
3760 : mat(k,866) = mat(k,866) + .400_r8*rxt(k,559)*y(k,147) + .160_r8*rxt(k,558) &
3761 254840160 : *y(k,258)
3762 254840160 : mat(k,1627) = mat(k,1627) + rxt(k,389)*y(k,253)
3763 : mat(k,934) = mat(k,934) + .830_r8*rxt(k,562)*y(k,147) + .330_r8*rxt(k,561) &
3764 254840160 : *y(k,258)
3765 : mat(k,1517) = mat(k,1517) + .240_r8*rxt(k,537)*y(k,147) + .250_r8*rxt(k,400) &
3766 : *y(k,252) + .620_r8*rxt(k,401)*y(k,253) + .180_r8*rxt(k,402) &
3767 254840160 : *y(k,258)
3768 : mat(k,2584) = mat(k,2584) + .040_r8*rxt(k,669)*y(k,147) + .050_r8*rxt(k,670) &
3769 : *y(k,149) + .050_r8*rxt(k,665)*y(k,252) + .870_r8*rxt(k,666) &
3770 : *y(k,253) + .050_r8*rxt(k,671)*y(k,302) + .050_r8*rxt(k,672) &
3771 254840160 : *y(k,304) + .050_r8*rxt(k,673)*y(k,307)
3772 : mat(k,2485) = mat(k,2485) + .710_r8*rxt(k,677)*y(k,147) + rxt(k,678)*y(k,149) &
3773 : + rxt(k,674)*y(k,252) + rxt(k,675)*y(k,253) + .100_r8*rxt(k,676) &
3774 : *y(k,258) + rxt(k,679)*y(k,302) + rxt(k,680)*y(k,304) &
3775 254840160 : + rxt(k,681)*y(k,307)
3776 254840160 : mat(k,1653) = mat(k,1653) + rxt(k,539)*y(k,147) + .800_r8*rxt(k,499)*y(k,258)
3777 254840160 : mat(k,3801) = rxt(k,316)*y(k,55)
3778 : mat(k,4092) = mat(k,4092) + .650_r8*rxt(k,543)*y(k,8) + rxt(k,266)*y(k,20) &
3779 : + .350_r8*rxt(k,321)*y(k,25) + rxt(k,328)*y(k,27) + rxt(k,284) &
3780 : *y(k,44) + rxt(k,287)*y(k,47) + rxt(k,334)*y(k,48) + rxt(k,306) &
3781 : *y(k,53) + rxt(k,236)*y(k,60) + rxt(k,319)*y(k,63) &
3782 : + .730_r8*rxt(k,554)*y(k,67) + .500_r8*rxt(k,808)*y(k,69) &
3783 : + rxt(k,345)*y(k,76) + rxt(k,346)*y(k,77) + rxt(k,186)*y(k,81) &
3784 : + rxt(k,309)*y(k,88) + .110_r8*rxt(k,347)*y(k,89) + rxt(k,310) &
3785 : *y(k,90) + .500_r8*rxt(k,311)*y(k,92) + rxt(k,379)*y(k,97) &
3786 : + .510_r8*rxt(k,414)*y(k,98) + .410_r8*rxt(k,415)*y(k,99) &
3787 : + rxt(k,362)*y(k,102) + .320_r8*rxt(k,418)*y(k,103) &
3788 : + .190_r8*rxt(k,420)*y(k,106) + .400_r8*rxt(k,423)*y(k,108) &
3789 : + rxt(k,453)*y(k,110) + rxt(k,455)*y(k,113) + .040_r8*rxt(k,460) &
3790 : *y(k,115) + .030_r8*rxt(k,470)*y(k,118) + .050_r8*rxt(k,472) &
3791 : *y(k,119) + rxt(k,488)*y(k,122) + .180_r8*rxt(k,489)*y(k,123) &
3792 : + .500_r8*rxt(k,380)*y(k,127) + rxt(k,399)*y(k,133) &
3793 : + .440_r8*rxt(k,405)*y(k,134) + .630_r8*rxt(k,502)*y(k,139) &
3794 : + rxt(k,205)*y(k,149) + rxt(k,189)*y(k,158) + .800_r8*rxt(k,566) &
3795 : *y(k,166) + rxt(k,798)*y(k,175) + rxt(k,718)*y(k,204) &
3796 : + rxt(k,737)*y(k,206) + .280_r8*rxt(k,574)*y(k,228) &
3797 254840160 : + .380_r8*rxt(k,576)*y(k,229) + .630_r8*rxt(k,582)*y(k,231)
3798 254840160 : mat(k,459) = mat(k,459) + rxt(k,565)*y(k,147)
3799 254840160 : mat(k,944) = mat(k,944) + rxt(k,366)*y(k,147)
3800 254840160 : mat(k,1343) = mat(k,1343) + .300_r8*rxt(k,368)*y(k,253)
3801 : mat(k,957) = mat(k,957) + .700_r8*rxt(k,688)*y(k,147) + .180_r8*rxt(k,687) &
3802 254840160 : *y(k,258)
3803 : mat(k,1011) = mat(k,1011) + .700_r8*rxt(k,692)*y(k,147) + .180_r8*rxt(k,691) &
3804 254840160 : *y(k,258)
3805 254840160 : mat(k,2665) = mat(k,2665) + .500_r8*rxt(k,694)*y(k,253)
3806 : mat(k,2754) = mat(k,2754) + rxt(k,599)*y(k,238) + rxt(k,619)*y(k,241) &
3807 : + .500_r8*rxt(k,631)*y(k,245) + rxt(k,639)*y(k,246) + rxt(k,702) &
3808 : *y(k,253) + .540_r8*rxt(k,651)*y(k,281) + rxt(k,659)*y(k,282) &
3809 : + .050_r8*rxt(k,671)*y(k,290) + rxt(k,679)*y(k,291) + rxt(k,743) &
3810 254840160 : *y(k,306)
3811 254840160 : mat(k,2710) = mat(k,2710) + rxt(k,710)*y(k,253)
3812 : mat(k,2800) = mat(k,2800) + rxt(k,600)*y(k,238) + rxt(k,620)*y(k,241) &
3813 : + .500_r8*rxt(k,632)*y(k,245) + rxt(k,640)*y(k,246) + rxt(k,720) &
3814 : *y(k,253) + .540_r8*rxt(k,652)*y(k,281) + rxt(k,660)*y(k,282) &
3815 : + .050_r8*rxt(k,672)*y(k,290) + rxt(k,680)*y(k,291) + rxt(k,744) &
3816 254840160 : *y(k,306)
3817 254840160 : mat(k,2249) = mat(k,2249) + rxt(k,729)*y(k,253)
3818 : mat(k,2687) = mat(k,2687) + .910_r8*rxt(k,741)*y(k,147) + rxt(k,742)*y(k,149) &
3819 : + rxt(k,738)*y(k,252) + 2.000_r8*rxt(k,739)*y(k,253) &
3820 : + .530_r8*rxt(k,740)*y(k,258) + rxt(k,743)*y(k,302) + rxt(k,744) &
3821 254840160 : *y(k,304) + rxt(k,745)*y(k,307)
3822 : mat(k,2847) = mat(k,2847) + rxt(k,601)*y(k,238) + rxt(k,621)*y(k,241) &
3823 : + .500_r8*rxt(k,633)*y(k,245) + rxt(k,641)*y(k,246) + rxt(k,750) &
3824 : *y(k,253) + .540_r8*rxt(k,653)*y(k,281) + rxt(k,661)*y(k,282) &
3825 : + .050_r8*rxt(k,673)*y(k,290) + rxt(k,681)*y(k,291) + rxt(k,745) &
3826 254840160 : *y(k,306)
3827 : mat(k,802) = mat(k,802) + .700_r8*rxt(k,761)*y(k,147) + .100_r8*rxt(k,760) &
3828 254840160 : *y(k,258)
3829 : mat(k,966) = mat(k,966) + .700_r8*rxt(k,766)*y(k,147) + .100_r8*rxt(k,765) &
3830 254840160 : *y(k,258)
3831 : mat(k,1224) = mat(k,1224) + .700_r8*rxt(k,773)*y(k,147) + .100_r8*rxt(k,772) &
3832 254840160 : *y(k,258)
3833 : mat(k,1020) = mat(k,1020) + .700_r8*rxt(k,777)*y(k,147) + .100_r8*rxt(k,776) &
3834 254840160 : *y(k,258)
3835 : mat(k,810) = mat(k,810) + .700_r8*rxt(k,781)*y(k,147) + .100_r8*rxt(k,780) &
3836 254840160 : *y(k,258)
3837 : mat(k,818) = mat(k,818) + .700_r8*rxt(k,785)*y(k,147) + .100_r8*rxt(k,784) &
3838 254840160 : *y(k,258)
3839 254840160 : mat(k,880) = mat(k,880) + rxt(k,572)*y(k,147)
3840 254840160 : mat(k,903) = mat(k,903) + rxt(k,578)*y(k,147)
3841 263009123 : mat(k,540) = mat(k,540) + rxt(k,581)*y(k,147)
3842 : end do
3843 8168963 : end subroutine nlnmat13
3844 8168963 : subroutine nlnmat14( avec_len, mat, y, rxt )
3845 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
3846 : implicit none
3847 : !----------------------------------------------
3848 : ! ... dummy arguments
3849 : !----------------------------------------------
3850 : integer, intent(in) :: avec_len
3851 : real(r8), intent(in) :: y(veclen,gas_pcnst)
3852 : real(r8), intent(in) :: rxt(veclen,rxntot)
3853 : real(r8), intent(inout) :: mat(veclen,nzcnt)
3854 : !----------------------------------------------
3855 : ! ... local variables
3856 : !----------------------------------------------
3857 : integer :: k
3858 : !----------------------------------------------
3859 : ! ... complete matrix entries implicit species
3860 : !----------------------------------------------
3861 263009123 : do k = 1,avec_len
3862 254840160 : mat(k,693) = -(rxt(k,312)*y(k,258) + rxt(k,314)*y(k,147))
3863 254840160 : mat(k,3244) = -rxt(k,312)*y(k,259)
3864 254840160 : mat(k,2996) = -rxt(k,314)*y(k,259)
3865 254840160 : mat(k,3174) = rxt(k,298)*y(k,258)
3866 254840160 : mat(k,3244) = mat(k,3244) + rxt(k,298)*y(k,43)
3867 254840160 : mat(k,1298) = -(rxt(k,421)*y(k,258) + (rxt(k,503) + rxt(k,504)) * y(k,147))
3868 254840160 : mat(k,3288) = -rxt(k,421)*y(k,260)
3869 254840160 : mat(k,3031) = -(rxt(k,503) + rxt(k,504)) * y(k,260)
3870 254840160 : mat(k,1866) = .320_r8*rxt(k,418)*y(k,295)
3871 254840160 : mat(k,1522) = .810_r8*rxt(k,420)*y(k,295)
3872 254840160 : mat(k,4007) = .320_r8*rxt(k,418)*y(k,103) + .810_r8*rxt(k,420)*y(k,106)
3873 : mat(k,1953) = -(rxt(k,424)*y(k,252) + rxt(k,425)*y(k,253) + rxt(k,426) &
3874 254840160 : *y(k,258) + (rxt(k,505) + rxt(k,506)) * y(k,147))
3875 254840160 : mat(k,2881) = -rxt(k,424)*y(k,261)
3876 254840160 : mat(k,3423) = -rxt(k,425)*y(k,261)
3877 254840160 : mat(k,3329) = -rxt(k,426)*y(k,261)
3878 254840160 : mat(k,3070) = -(rxt(k,505) + rxt(k,506)) * y(k,261)
3879 254840160 : mat(k,1899) = .530_r8*rxt(k,489)*y(k,295)
3880 254840160 : mat(k,4053) = .530_r8*rxt(k,489)*y(k,123)
3881 : mat(k,1991) = -(rxt(k,430)*y(k,252) + rxt(k,431)*y(k,253) + rxt(k,432) &
3882 254840160 : *y(k,258) + (rxt(k,507) + rxt(k,508)) * y(k,147))
3883 254840160 : mat(k,2882) = -rxt(k,430)*y(k,262)
3884 254840160 : mat(k,3424) = -rxt(k,431)*y(k,262)
3885 254840160 : mat(k,3330) = -rxt(k,432)*y(k,262)
3886 254840160 : mat(k,3071) = -(rxt(k,507) + rxt(k,508)) * y(k,262)
3887 254840160 : mat(k,1900) = .160_r8*rxt(k,489)*y(k,295)
3888 254840160 : mat(k,4054) = .160_r8*rxt(k,489)*y(k,123)
3889 254840160 : mat(k,1404) = .315_r8*rxt(k,487)*y(k,295)
3890 254840160 : mat(k,3890) = .315_r8*rxt(k,487)*y(k,109)
3891 254840160 : mat(k,1405) = .315_r8*rxt(k,487)*y(k,295)
3892 254840160 : mat(k,3891) = .315_r8*rxt(k,487)*y(k,109)
3893 254840160 : mat(k,1406) = .259_r8*rxt(k,487)*y(k,295)
3894 254840160 : mat(k,3892) = .259_r8*rxt(k,487)*y(k,109)
3895 254840160 : mat(k,1407) = .111_r8*rxt(k,487)*y(k,295)
3896 254840160 : mat(k,3893) = .111_r8*rxt(k,487)*y(k,109)
3897 : mat(k,1732) = -(rxt(k,444)*y(k,252) + rxt(k,445)*y(k,253) + rxt(k,446) &
3898 254840160 : *y(k,258) + (rxt(k,509) + rxt(k,510)) * y(k,147))
3899 254840160 : mat(k,2871) = -rxt(k,444)*y(k,267)
3900 254840160 : mat(k,3412) = -rxt(k,445)*y(k,267)
3901 254840160 : mat(k,3318) = -rxt(k,446)*y(k,267)
3902 254840160 : mat(k,3059) = -(rxt(k,509) + rxt(k,510)) * y(k,267)
3903 : mat(k,1754) = -(rxt(k,448)*y(k,252) + rxt(k,449)*y(k,253) + rxt(k,450) &
3904 254840160 : *y(k,258) + (rxt(k,511) + rxt(k,512)) * y(k,147))
3905 254840160 : mat(k,2872) = -rxt(k,448)*y(k,268)
3906 254840160 : mat(k,3413) = -rxt(k,449)*y(k,268)
3907 254840160 : mat(k,3319) = -rxt(k,450)*y(k,268)
3908 254840160 : mat(k,3060) = -(rxt(k,511) + rxt(k,512)) * y(k,268)
3909 254840160 : mat(k,1121) = -(rxt(k,457)*y(k,258) + (rxt(k,513) + rxt(k,514)) * y(k,147))
3910 254840160 : mat(k,3277) = -rxt(k,457)*y(k,269)
3911 254840160 : mat(k,3023) = -(rxt(k,513) + rxt(k,514)) * y(k,269)
3912 254840160 : mat(k,2061) = .820_r8*rxt(k,460)*y(k,295)
3913 254840160 : mat(k,3991) = .820_r8*rxt(k,460)*y(k,115)
3914 254840160 : mat(k,1166) = -(rxt(k,461)*y(k,258) + (rxt(k,515) + rxt(k,516)) * y(k,147))
3915 254840160 : mat(k,3282) = -rxt(k,461)*y(k,270)
3916 254840160 : mat(k,3026) = -(rxt(k,515) + rxt(k,516)) * y(k,270)
3917 254840160 : mat(k,674) = .850_r8*rxt(k,463)*y(k,295)
3918 254840160 : mat(k,3996) = .850_r8*rxt(k,463)*y(k,116)
3919 254840160 : mat(k,1054) = -(rxt(k,464)*y(k,258) + (rxt(k,517) + rxt(k,518)) * y(k,147))
3920 254840160 : mat(k,3275) = -rxt(k,464)*y(k,271)
3921 254840160 : mat(k,3020) = -(rxt(k,517) + rxt(k,518)) * y(k,271)
3922 254840160 : mat(k,594) = .870_r8*rxt(k,466)*y(k,295)
3923 254840160 : mat(k,3986) = .870_r8*rxt(k,466)*y(k,117)
3924 254840160 : mat(k,1132) = -(rxt(k,467)*y(k,258) + (rxt(k,519) + rxt(k,520)) * y(k,147))
3925 254840160 : mat(k,3278) = -rxt(k,467)*y(k,272)
3926 254840160 : mat(k,3024) = -(rxt(k,519) + rxt(k,520)) * y(k,272)
3927 254840160 : mat(k,2093) = .890_r8*rxt(k,470)*y(k,295)
3928 254840160 : mat(k,3992) = .890_r8*rxt(k,470)*y(k,118)
3929 254840160 : mat(k,1440) = -(rxt(k,471)*y(k,258) + (rxt(k,521) + rxt(k,522)) * y(k,147))
3930 254840160 : mat(k,3295) = -rxt(k,471)*y(k,273)
3931 254840160 : mat(k,3038) = -(rxt(k,521) + rxt(k,522)) * y(k,273)
3932 254840160 : mat(k,730) = .920_r8*rxt(k,472)*y(k,295)
3933 254840160 : mat(k,4017) = .920_r8*rxt(k,472)*y(k,119)
3934 : mat(k,2180) = -(rxt(k,474)*y(k,252) + rxt(k,475)*y(k,253) + rxt(k,476) &
3935 : *y(k,258) + 4._r8*rxt(k,477)*y(k,274) + rxt(k,478)*y(k,149) &
3936 254840160 : + (rxt(k,523) + rxt(k,524)) * y(k,147))
3937 254840160 : mat(k,2889) = -rxt(k,474)*y(k,274)
3938 254840160 : mat(k,3431) = -rxt(k,475)*y(k,274)
3939 254840160 : mat(k,3337) = -rxt(k,476)*y(k,274)
3940 254840160 : mat(k,3574) = -rxt(k,478)*y(k,274)
3941 254840160 : mat(k,3078) = -(rxt(k,523) + rxt(k,524)) * y(k,274)
3942 254840160 : mat(k,1422) = rxt(k,473)*y(k,149)
3943 254840160 : mat(k,1204) = .170_r8*rxt(k,481)*y(k,295)
3944 254840160 : mat(k,1584) = .070_r8*rxt(k,485)*y(k,295)
3945 254840160 : mat(k,3574) = mat(k,3574) + rxt(k,473)*y(k,109)
3946 254840160 : mat(k,4061) = .170_r8*rxt(k,481)*y(k,120) + .070_r8*rxt(k,485)*y(k,121)
3947 254840160 : mat(k,1309) = -(rxt(k,479)*y(k,258) + (rxt(k,525) + rxt(k,526)) * y(k,147))
3948 254840160 : mat(k,3289) = -rxt(k,479)*y(k,275)
3949 254840160 : mat(k,3032) = -(rxt(k,525) + rxt(k,526)) * y(k,275)
3950 254840160 : mat(k,1195) = .410_r8*rxt(k,481)*y(k,295)
3951 254840160 : mat(k,4008) = .410_r8*rxt(k,481)*y(k,120)
3952 254840160 : mat(k,1361) = -(rxt(k,482)*y(k,258) + (rxt(k,527) + rxt(k,528)) * y(k,147))
3953 254840160 : mat(k,3292) = -rxt(k,482)*y(k,276)
3954 254840160 : mat(k,3035) = -(rxt(k,527) + rxt(k,528)) * y(k,276)
3955 254840160 : mat(k,1565) = .570_r8*rxt(k,485)*y(k,295)
3956 254840160 : mat(k,4012) = .570_r8*rxt(k,485)*y(k,121)
3957 254840160 : mat(k,81) = -(rxt(k,860)*y(k,258) + rxt(k,861)*y(k,147))
3958 254840160 : mat(k,3210) = -rxt(k,860)*y(k,277)
3959 254840160 : mat(k,2972) = -rxt(k,861)*y(k,277)
3960 254840160 : mat(k,1403) = rxt(k,863)*y(k,295)
3961 254840160 : mat(k,3863) = rxt(k,863)*y(k,109)
3962 : mat(k,1848) = -(rxt(k,491)*y(k,252) + rxt(k,492)*y(k,253) + rxt(k,493) &
3963 254840160 : *y(k,258) + (rxt(k,530) + rxt(k,531)) * y(k,147))
3964 254840160 : mat(k,2876) = -rxt(k,491)*y(k,278)
3965 254840160 : mat(k,3418) = -rxt(k,492)*y(k,278)
3966 254840160 : mat(k,3324) = -rxt(k,493)*y(k,278)
3967 254840160 : mat(k,3065) = -(rxt(k,530) + rxt(k,531)) * y(k,278)
3968 : mat(k,1817) = -(rxt(k,495)*y(k,252) + rxt(k,496)*y(k,253) + rxt(k,497) &
3969 254840160 : *y(k,258) + (rxt(k,533) + rxt(k,534)) * y(k,147))
3970 254840160 : mat(k,2875) = -rxt(k,495)*y(k,279)
3971 254840160 : mat(k,3417) = -rxt(k,496)*y(k,279)
3972 254840160 : mat(k,3323) = -rxt(k,497)*y(k,279)
3973 254840160 : mat(k,3064) = -(rxt(k,533) + rxt(k,534)) * y(k,279)
3974 254840160 : mat(k,87) = -(rxt(k,864)*y(k,258) + rxt(k,865)*y(k,147))
3975 254840160 : mat(k,3211) = -rxt(k,864)*y(k,280)
3976 254840160 : mat(k,2973) = -rxt(k,865)*y(k,280)
3977 254840160 : mat(k,88) = rxt(k,866)*y(k,295)
3978 254840160 : mat(k,3864) = rxt(k,866)*y(k,124)
3979 : mat(k,2505) = -(rxt(k,645)*y(k,252) + rxt(k,646)*y(k,253) + rxt(k,647) &
3980 : *y(k,258) + 4._r8*rxt(k,648)*y(k,281) + rxt(k,649)*y(k,147) &
3981 : + rxt(k,650)*y(k,149) + rxt(k,651)*y(k,302) + rxt(k,652) &
3982 254840160 : *y(k,304) + rxt(k,653)*y(k,307))
3983 254840160 : mat(k,2902) = -rxt(k,645)*y(k,281)
3984 254840160 : mat(k,3444) = -rxt(k,646)*y(k,281)
3985 254840160 : mat(k,3351) = -rxt(k,647)*y(k,281)
3986 254840160 : mat(k,3092) = -rxt(k,649)*y(k,281)
3987 254840160 : mat(k,3588) = -rxt(k,650)*y(k,281)
3988 254840160 : mat(k,2737) = -rxt(k,651)*y(k,281)
3989 254840160 : mat(k,2783) = -rxt(k,652)*y(k,281)
3990 254840160 : mat(k,2830) = -rxt(k,653)*y(k,281)
3991 254840160 : mat(k,1075) = rxt(k,644)*y(k,149)
3992 254840160 : mat(k,3588) = mat(k,3588) + rxt(k,644)*y(k,125)
3993 : mat(k,2339) = -(rxt(k,654)*y(k,252) + rxt(k,655)*y(k,253) + rxt(k,656) &
3994 : *y(k,258) + rxt(k,657)*y(k,147) + rxt(k,658)*y(k,149) + rxt(k,659) &
3995 254840160 : *y(k,302) + rxt(k,660)*y(k,304) + rxt(k,661)*y(k,307))
3996 254840160 : mat(k,2896) = -rxt(k,654)*y(k,282)
3997 254840160 : mat(k,3438) = -rxt(k,655)*y(k,282)
3998 254840160 : mat(k,3345) = -rxt(k,656)*y(k,282)
3999 254840160 : mat(k,3086) = -rxt(k,657)*y(k,282)
4000 254840160 : mat(k,3582) = -rxt(k,658)*y(k,282)
4001 254840160 : mat(k,2731) = -rxt(k,659)*y(k,282)
4002 254840160 : mat(k,2777) = -rxt(k,660)*y(k,282)
4003 254840160 : mat(k,2824) = -rxt(k,661)*y(k,282)
4004 254840160 : mat(k,1074) = rxt(k,663)*y(k,295)
4005 254840160 : mat(k,4068) = rxt(k,663)*y(k,125)
4006 254840160 : mat(k,95) = -(rxt(k,868)*y(k,258) + rxt(k,869)*y(k,147))
4007 254840160 : mat(k,3212) = -rxt(k,868)*y(k,283)
4008 254840160 : mat(k,2974) = -rxt(k,869)*y(k,283)
4009 254840160 : mat(k,1069) = rxt(k,871)*y(k,295)
4010 254840160 : mat(k,3866) = rxt(k,871)*y(k,125)
4011 : mat(k,1543) = -(rxt(k,381)*y(k,252) + rxt(k,382)*y(k,253) + rxt(k,383) &
4012 254840160 : *y(k,258) + (rxt(k,535) + rxt(k,536)) * y(k,147))
4013 254840160 : mat(k,2863) = -rxt(k,381)*y(k,284)
4014 254840160 : mat(k,3402) = -rxt(k,382)*y(k,284)
4015 254840160 : mat(k,3306) = -rxt(k,383)*y(k,284)
4016 254840160 : mat(k,3049) = -(rxt(k,535) + rxt(k,536)) * y(k,284)
4017 254840160 : mat(k,2010) = .550_r8*rxt(k,386)*y(k,295)
4018 254840160 : mat(k,4029) = .550_r8*rxt(k,386)*y(k,126)
4019 : mat(k,862) = -(rxt(k,558)*y(k,258) + rxt(k,559)*y(k,147) + rxt(k,560) &
4020 254840160 : *y(k,148))
4021 254840160 : mat(k,3259) = -rxt(k,558)*y(k,285)
4022 254840160 : mat(k,3004) = -rxt(k,559)*y(k,285)
4023 254840160 : mat(k,3631) = -rxt(k,560)*y(k,285)
4024 : mat(k,1620) = -(rxt(k,388)*y(k,252) + rxt(k,389)*y(k,253) + rxt(k,390) &
4025 : *y(k,258) + 4._r8*rxt(k,391)*y(k,286) + rxt(k,392)*y(k,147) &
4026 254840160 : + rxt(k,393)*y(k,149) + rxt(k,406)*y(k,148))
4027 254840160 : mat(k,2866) = -rxt(k,388)*y(k,286)
4028 254840160 : mat(k,3405) = -rxt(k,389)*y(k,286)
4029 254840160 : mat(k,3310) = -rxt(k,390)*y(k,286)
4030 254840160 : mat(k,3052) = -rxt(k,392)*y(k,286)
4031 254840160 : mat(k,3552) = -rxt(k,393)*y(k,286)
4032 254840160 : mat(k,3641) = -rxt(k,406)*y(k,286)
4033 254840160 : mat(k,2012) = .450_r8*rxt(k,386)*y(k,295)
4034 254840160 : mat(k,4034) = .450_r8*rxt(k,386)*y(k,126)
4035 : mat(k,929) = -(rxt(k,561)*y(k,258) + rxt(k,562)*y(k,147) + rxt(k,563) &
4036 254840160 : *y(k,148))
4037 254840160 : mat(k,3265) = -rxt(k,561)*y(k,287)
4038 254840160 : mat(k,3010) = -rxt(k,562)*y(k,287)
4039 254840160 : mat(k,3633) = -rxt(k,563)*y(k,287)
4040 254840160 : mat(k,763) = -(rxt(k,394)*y(k,258) + rxt(k,395)*y(k,147))
4041 254840160 : mat(k,3249) = -rxt(k,394)*y(k,288)
4042 254840160 : mat(k,2999) = -rxt(k,395)*y(k,288)
4043 254840160 : mat(k,557) = rxt(k,396)*y(k,295)
4044 254840160 : mat(k,333) = rxt(k,397)*y(k,295)
4045 254840160 : mat(k,3956) = rxt(k,396)*y(k,129) + rxt(k,397)*y(k,130)
4046 : mat(k,1508) = -(rxt(k,400)*y(k,252) + rxt(k,401)*y(k,253) + rxt(k,402) &
4047 254840160 : *y(k,258) + (rxt(k,537) + rxt(k,538)) * y(k,147))
4048 254840160 : mat(k,2861) = -rxt(k,400)*y(k,289)
4049 254840160 : mat(k,3400) = -rxt(k,401)*y(k,289)
4050 254840160 : mat(k,3304) = -rxt(k,402)*y(k,289)
4051 254840160 : mat(k,3046) = -(rxt(k,537) + rxt(k,538)) * y(k,289)
4052 254840160 : mat(k,2035) = rxt(k,404)*y(k,295)
4053 254840160 : mat(k,4026) = rxt(k,404)*y(k,132)
4054 : mat(k,2570) = -(rxt(k,665)*y(k,252) + rxt(k,666)*y(k,253) + rxt(k,667) &
4055 : *y(k,258) + 4._r8*rxt(k,668)*y(k,290) + rxt(k,669)*y(k,147) &
4056 : + rxt(k,670)*y(k,149) + rxt(k,671)*y(k,302) + rxt(k,672) &
4057 254840160 : *y(k,304) + rxt(k,673)*y(k,307))
4058 254840160 : mat(k,2904) = -rxt(k,665)*y(k,290)
4059 254840160 : mat(k,3446) = -rxt(k,666)*y(k,290)
4060 254840160 : mat(k,3353) = -rxt(k,667)*y(k,290)
4061 254840160 : mat(k,3094) = -rxt(k,669)*y(k,290)
4062 254840160 : mat(k,3590) = -rxt(k,670)*y(k,290)
4063 254840160 : mat(k,2739) = -rxt(k,671)*y(k,290)
4064 254840160 : mat(k,2785) = -rxt(k,672)*y(k,290)
4065 254840160 : mat(k,2832) = -rxt(k,673)*y(k,290)
4066 254840160 : mat(k,831) = rxt(k,664)*y(k,149)
4067 263009123 : mat(k,3590) = mat(k,3590) + rxt(k,664)*y(k,135)
4068 : end do
4069 8168963 : end subroutine nlnmat14
4070 8168963 : subroutine nlnmat15( avec_len, mat, y, rxt )
4071 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
4072 : implicit none
4073 : !----------------------------------------------
4074 : ! ... dummy arguments
4075 : !----------------------------------------------
4076 : integer, intent(in) :: avec_len
4077 : real(r8), intent(in) :: y(veclen,gas_pcnst)
4078 : real(r8), intent(in) :: rxt(veclen,rxntot)
4079 : real(r8), intent(inout) :: mat(veclen,nzcnt)
4080 : !----------------------------------------------
4081 : ! ... local variables
4082 : !----------------------------------------------
4083 : integer :: k
4084 : !----------------------------------------------
4085 : ! ... complete matrix entries implicit species
4086 : !----------------------------------------------
4087 263009123 : do k = 1,avec_len
4088 254840160 : mat(k,2471) = -(rxt(k,674)*y(k,252) + rxt(k,675)*y(k,253) + rxt(k,676) &
4089 : *y(k,258) + rxt(k,677)*y(k,147) + rxt(k,678)*y(k,149) + rxt(k,679) &
4090 254840160 : *y(k,302) + rxt(k,680)*y(k,304) + rxt(k,681)*y(k,307))
4091 254840160 : mat(k,2901) = -rxt(k,674)*y(k,291)
4092 254840160 : mat(k,3443) = -rxt(k,675)*y(k,291)
4093 254840160 : mat(k,3350) = -rxt(k,676)*y(k,291)
4094 254840160 : mat(k,3091) = -rxt(k,677)*y(k,291)
4095 254840160 : mat(k,3587) = -rxt(k,678)*y(k,291)
4096 254840160 : mat(k,2736) = -rxt(k,679)*y(k,291)
4097 254840160 : mat(k,2782) = -rxt(k,680)*y(k,291)
4098 254840160 : mat(k,2829) = -rxt(k,681)*y(k,291)
4099 254840160 : mat(k,830) = rxt(k,683)*y(k,295)
4100 254840160 : mat(k,4073) = rxt(k,683)*y(k,135)
4101 254840160 : mat(k,101) = -(rxt(k,873)*y(k,258) + rxt(k,874)*y(k,147))
4102 254840160 : mat(k,3213) = -rxt(k,873)*y(k,292)
4103 254840160 : mat(k,2975) = -rxt(k,874)*y(k,292)
4104 254840160 : mat(k,826) = rxt(k,876)*y(k,295)
4105 254840160 : mat(k,3867) = rxt(k,876)*y(k,135)
4106 254840160 : mat(k,1640) = -(rxt(k,499)*y(k,258) + (rxt(k,539) + rxt(k,540)) * y(k,147))
4107 254840160 : mat(k,3311) = -rxt(k,499)*y(k,293)
4108 254840160 : mat(k,3053) = -(rxt(k,539) + rxt(k,540)) * y(k,293)
4109 254840160 : mat(k,505) = .400_r8*rxt(k,422)*y(k,295)
4110 254840160 : mat(k,1255) = .350_r8*rxt(k,423)*y(k,295)
4111 254840160 : mat(k,2131) = .230_r8*rxt(k,502)*y(k,295)
4112 : mat(k,4035) = .400_r8*rxt(k,422)*y(k,107) + .350_r8*rxt(k,423)*y(k,108) &
4113 254840160 : + .230_r8*rxt(k,502)*y(k,139)
4114 : mat(k,3808) = -(rxt(k,168)*y(k,79) + rxt(k,169)*y(k,319) + rxt(k,172) &
4115 : *y(k,158) + (rxt(k,210) + rxt(k,211)) * y(k,137) + rxt(k,243) &
4116 : *y(k,34) + rxt(k,244)*y(k,35) + rxt(k,245)*y(k,37) + rxt(k,246) &
4117 : *y(k,38) + rxt(k,247)*y(k,39) + rxt(k,248)*y(k,40) + rxt(k,249) &
4118 : *y(k,41) + (rxt(k,250) + rxt(k,251)) * y(k,87) + rxt(k,270) &
4119 : *y(k,36) + rxt(k,271)*y(k,56) + rxt(k,272)*y(k,80) + (rxt(k,273) &
4120 : + rxt(k,274)) * y(k,83) + rxt(k,279)*y(k,65) + rxt(k,280) &
4121 : *y(k,66) + rxt(k,293)*y(k,42) + rxt(k,294)*y(k,44) + rxt(k,295) &
4122 : *y(k,84) + rxt(k,296)*y(k,85) + rxt(k,297)*y(k,86) + (rxt(k,315) &
4123 254840160 : + rxt(k,316) + rxt(k,317)) * y(k,55) + rxt(k,318)*y(k,88))
4124 254840160 : mat(k,1681) = -rxt(k,168)*y(k,294)
4125 254840160 : mat(k,4125) = -rxt(k,169)*y(k,294)
4126 254840160 : mat(k,3767) = -rxt(k,172)*y(k,294)
4127 254840160 : mat(k,203) = -(rxt(k,210) + rxt(k,211)) * y(k,294)
4128 254840160 : mat(k,121) = -rxt(k,243)*y(k,294)
4129 254840160 : mat(k,162) = -rxt(k,244)*y(k,294)
4130 254840160 : mat(k,136) = -rxt(k,245)*y(k,294)
4131 254840160 : mat(k,172) = -rxt(k,246)*y(k,294)
4132 254840160 : mat(k,140) = -rxt(k,247)*y(k,294)
4133 254840160 : mat(k,177) = -rxt(k,248)*y(k,294)
4134 254840160 : mat(k,144) = -rxt(k,249)*y(k,294)
4135 254840160 : mat(k,3139) = -(rxt(k,250) + rxt(k,251)) * y(k,294)
4136 254840160 : mat(k,168) = -rxt(k,270)*y(k,294)
4137 254840160 : mat(k,465) = -rxt(k,271)*y(k,294)
4138 254840160 : mat(k,129) = -rxt(k,272)*y(k,294)
4139 254840160 : mat(k,1155) = -(rxt(k,273) + rxt(k,274)) * y(k,294)
4140 254840160 : mat(k,250) = -rxt(k,279)*y(k,294)
4141 254840160 : mat(k,258) = -rxt(k,280)*y(k,294)
4142 254840160 : mat(k,498) = -rxt(k,293)*y(k,294)
4143 254840160 : mat(k,651) = -rxt(k,294)*y(k,294)
4144 254840160 : mat(k,253) = -rxt(k,295)*y(k,294)
4145 254840160 : mat(k,263) = -rxt(k,296)*y(k,294)
4146 254840160 : mat(k,328) = -rxt(k,297)*y(k,294)
4147 254840160 : mat(k,2268) = -(rxt(k,315) + rxt(k,316) + rxt(k,317)) * y(k,294)
4148 254840160 : mat(k,199) = -rxt(k,318)*y(k,294)
4149 : mat(k,4101) = -(rxt(k,185)*y(k,79) + rxt(k,186)*y(k,81) + rxt(k,187)*y(k,258) &
4150 : + rxt(k,188)*y(k,157) + rxt(k,189)*y(k,158) + (4._r8*rxt(k,190) &
4151 : + 4._r8*rxt(k,191)) * y(k,295) + rxt(k,193)*y(k,94) + rxt(k,205) &
4152 : *y(k,149) + rxt(k,206)*y(k,136) + rxt(k,214)*y(k,148) + rxt(k,215) &
4153 : *y(k,93) + rxt(k,234)*y(k,61) + (rxt(k,236) + rxt(k,237) &
4154 : ) * y(k,60) + rxt(k,239)*y(k,87) + rxt(k,242)*y(k,96) + rxt(k,266) &
4155 : *y(k,20) + rxt(k,268)*y(k,83) + rxt(k,282)*y(k,42) + rxt(k,284) &
4156 : *y(k,44) + rxt(k,285)*y(k,45) + rxt(k,287)*y(k,47) + rxt(k,289) &
4157 : *y(k,56) + rxt(k,290)*y(k,84) + rxt(k,291)*y(k,85) + rxt(k,292) &
4158 : *y(k,86) + rxt(k,301)*y(k,43) + rxt(k,306)*y(k,53) + rxt(k,307) &
4159 : *y(k,54) + rxt(k,308)*y(k,55) + rxt(k,309)*y(k,88) + rxt(k,310) &
4160 : *y(k,90) + rxt(k,311)*y(k,92) + rxt(k,319)*y(k,63) + rxt(k,321) &
4161 : *y(k,25) + rxt(k,328)*y(k,27) + rxt(k,329)*y(k,28) + rxt(k,331) &
4162 : *y(k,29) + rxt(k,333)*y(k,46) + rxt(k,334)*y(k,48) + rxt(k,339) &
4163 : *y(k,51) + rxt(k,340)*y(k,52) + rxt(k,345)*y(k,76) + rxt(k,346) &
4164 : *y(k,77) + rxt(k,347)*y(k,89) + rxt(k,348)*y(k,150) + rxt(k,349) &
4165 : *y(k,163) + rxt(k,350)*y(k,26) + rxt(k,358)*y(k,31) + rxt(k,359) &
4166 : *y(k,32) + rxt(k,361)*y(k,50) + rxt(k,362)*y(k,102) + rxt(k,363) &
4167 : *y(k,104) + rxt(k,364)*y(k,151) + rxt(k,367)*y(k,170) + rxt(k,371) &
4168 : *y(k,171) + rxt(k,372)*y(k,30) + rxt(k,373)*y(k,49) + rxt(k,375) &
4169 : *y(k,16) + rxt(k,379)*y(k,97) + rxt(k,380)*y(k,127) + rxt(k,386) &
4170 : *y(k,126) + rxt(k,396)*y(k,129) + rxt(k,397)*y(k,130) + rxt(k,398) &
4171 : *y(k,131) + rxt(k,399)*y(k,133) + rxt(k,404)*y(k,132) + rxt(k,405) &
4172 : *y(k,134) + rxt(k,408)*y(k,1) + rxt(k,412)*y(k,2) + rxt(k,413) &
4173 : *y(k,15) + rxt(k,414)*y(k,98) + rxt(k,415)*y(k,99) + rxt(k,418) &
4174 : *y(k,103) + rxt(k,420)*y(k,106) + rxt(k,422)*y(k,107) + rxt(k,423) &
4175 : *y(k,108) + rxt(k,452)*y(k,111) + rxt(k,453)*y(k,110) + rxt(k,454) &
4176 : *y(k,112) + rxt(k,455)*y(k,113) + rxt(k,460)*y(k,115) + rxt(k,463) &
4177 : *y(k,116) + rxt(k,466)*y(k,117) + rxt(k,470)*y(k,118) + rxt(k,472) &
4178 : *y(k,119) + rxt(k,481)*y(k,120) + rxt(k,485)*y(k,121) + rxt(k,487) &
4179 : *y(k,109) + rxt(k,488)*y(k,122) + (rxt(k,489) + rxt(k,490) &
4180 : ) * y(k,123) + rxt(k,502)*y(k,139) + rxt(k,543)*y(k,8) + rxt(k,546) &
4181 : *y(k,9) + rxt(k,547)*y(k,23) + rxt(k,549)*y(k,24) + rxt(k,553) &
4182 : *y(k,33) + rxt(k,554)*y(k,67) + rxt(k,566)*y(k,166) + rxt(k,569) &
4183 : *y(k,167) + rxt(k,573)*y(k,227) + rxt(k,574)*y(k,228) + rxt(k,576) &
4184 : *y(k,229) + rxt(k,579)*y(k,230) + rxt(k,582)*y(k,231) + rxt(k,583) &
4185 : *y(k,232) + rxt(k,603)*y(k,4) + rxt(k,623)*y(k,7) + rxt(k,643) &
4186 : *y(k,17) + rxt(k,663)*y(k,125) + rxt(k,683)*y(k,135) + rxt(k,689) &
4187 : *y(k,200) + rxt(k,690)*y(k,201) + rxt(k,717)*y(k,203) + rxt(k,718) &
4188 : *y(k,204) + rxt(k,736)*y(k,205) + rxt(k,737)*y(k,206) + rxt(k,746) &
4189 : *y(k,208) + rxt(k,747)*y(k,209) + rxt(k,748)*y(k,207) + rxt(k,756) &
4190 : *y(k,202) + rxt(k,757)*y(k,210) + rxt(k,763)*y(k,212) + rxt(k,768) &
4191 : *y(k,213) + rxt(k,769)*y(k,214) + rxt(k,771)*y(k,216) + rxt(k,774) &
4192 : *y(k,218) + rxt(k,775)*y(k,217) + rxt(k,778)*y(k,220) + rxt(k,782) &
4193 : *y(k,222) + rxt(k,783)*y(k,221) + rxt(k,786)*y(k,224) + rxt(k,787) &
4194 : *y(k,223) + (rxt(k,794) + rxt(k,808)) * y(k,69) + rxt(k,796) &
4195 : *y(k,161) + rxt(k,798)*y(k,175) + rxt(k,802)*y(k,172) + rxt(k,807) &
4196 254840160 : *y(k,174) + rxt(k,810)*y(k,143))
4197 254840160 : mat(k,1683) = -rxt(k,185)*y(k,295)
4198 254840160 : mat(k,1492) = -rxt(k,186)*y(k,295)
4199 254840160 : mat(k,3378) = -rxt(k,187)*y(k,295)
4200 254840160 : mat(k,3172) = -rxt(k,188)*y(k,295)
4201 254840160 : mat(k,3769) = -rxt(k,189)*y(k,295)
4202 254840160 : mat(k,447) = -rxt(k,193)*y(k,295)
4203 254840160 : mat(k,3615) = -rxt(k,205)*y(k,295)
4204 254840160 : mat(k,483) = -rxt(k,206)*y(k,295)
4205 254840160 : mat(k,3667) = -rxt(k,214)*y(k,295)
4206 254840160 : mat(k,2960) = -rxt(k,215)*y(k,295)
4207 254840160 : mat(k,1333) = -rxt(k,234)*y(k,295)
4208 254840160 : mat(k,3521) = -(rxt(k,236) + rxt(k,237)) * y(k,295)
4209 254840160 : mat(k,3141) = -rxt(k,239)*y(k,295)
4210 254840160 : mat(k,1164) = -rxt(k,242)*y(k,295)
4211 254840160 : mat(k,3495) = -rxt(k,266)*y(k,295)
4212 254840160 : mat(k,1156) = -rxt(k,268)*y(k,295)
4213 254840160 : mat(k,500) = -rxt(k,282)*y(k,295)
4214 254840160 : mat(k,653) = -rxt(k,284)*y(k,295)
4215 254840160 : mat(k,148) = -rxt(k,285)*y(k,295)
4216 254840160 : mat(k,399) = -rxt(k,287)*y(k,295)
4217 254840160 : mat(k,467) = -rxt(k,289)*y(k,295)
4218 254840160 : mat(k,255) = -rxt(k,290)*y(k,295)
4219 254840160 : mat(k,265) = -rxt(k,291)*y(k,295)
4220 254840160 : mat(k,330) = -rxt(k,292)*y(k,295)
4221 254840160 : mat(k,3198) = -rxt(k,301)*y(k,295)
4222 254840160 : mat(k,1497) = -rxt(k,306)*y(k,295)
4223 254840160 : mat(k,453) = -rxt(k,307)*y(k,295)
4224 254840160 : mat(k,2270) = -rxt(k,308)*y(k,295)
4225 254840160 : mat(k,200) = -rxt(k,309)*y(k,295)
4226 254840160 : mat(k,1380) = -rxt(k,310)*y(k,295)
4227 254840160 : mat(k,1214) = -rxt(k,311)*y(k,295)
4228 254840160 : mat(k,2060) = -rxt(k,319)*y(k,295)
4229 254840160 : mat(k,315) = -rxt(k,321)*y(k,295)
4230 254840160 : mat(k,286) = -rxt(k,328)*y(k,295)
4231 254840160 : mat(k,362) = -rxt(k,329)*y(k,295)
4232 254840160 : mat(k,320) = -rxt(k,331)*y(k,295)
4233 254840160 : mat(k,1438) = -rxt(k,333)*y(k,295)
4234 254840160 : mat(k,125) = -rxt(k,334)*y(k,295)
4235 254840160 : mat(k,794) = -rxt(k,339)*y(k,295)
4236 254840160 : mat(k,707) = -rxt(k,340)*y(k,295)
4237 254840160 : mat(k,1717) = -rxt(k,345)*y(k,295)
4238 254840160 : mat(k,1480) = -rxt(k,346)*y(k,295)
4239 254840160 : mat(k,888) = -rxt(k,347)*y(k,295)
4240 254840160 : mat(k,1460) = -rxt(k,348)*y(k,295)
4241 254840160 : mat(k,576) = -rxt(k,349)*y(k,295)
4242 254840160 : mat(k,592) = -rxt(k,350)*y(k,295)
4243 254840160 : mat(k,415) = -rxt(k,358)*y(k,295)
4244 254840160 : mat(k,132) = -rxt(k,359)*y(k,295)
4245 254840160 : mat(k,1932) = -rxt(k,361)*y(k,295)
4246 254840160 : mat(k,1775) = -rxt(k,362)*y(k,295)
4247 254840160 : mat(k,928) = -rxt(k,363)*y(k,295)
4248 254840160 : mat(k,1486) = -rxt(k,364)*y(k,295)
4249 254840160 : mat(k,583) = -rxt(k,367)*y(k,295)
4250 254840160 : mat(k,409) = -rxt(k,371)*y(k,295)
4251 254840160 : mat(k,1399) = -rxt(k,372)*y(k,295)
4252 254840160 : mat(k,2287) = -rxt(k,373)*y(k,295)
4253 254840160 : mat(k,384) = -rxt(k,375)*y(k,295)
4254 254840160 : mat(k,985) = -rxt(k,379)*y(k,295)
4255 254840160 : mat(k,1785) = -rxt(k,380)*y(k,295)
4256 254840160 : mat(k,2029) = -rxt(k,386)*y(k,295)
4257 254840160 : mat(k,560) = -rxt(k,396)*y(k,295)
4258 254840160 : mat(k,336) = -rxt(k,397)*y(k,295)
4259 254840160 : mat(k,534) = -rxt(k,398)*y(k,295)
4260 254840160 : mat(k,1925) = -rxt(k,399)*y(k,295)
4261 254840160 : mat(k,2054) = -rxt(k,404)*y(k,295)
4262 254840160 : mat(k,1505) = -rxt(k,405)*y(k,295)
4263 254840160 : mat(k,761) = -rxt(k,408)*y(k,295)
4264 254840160 : mat(k,727) = -rxt(k,412)*y(k,295)
4265 254840160 : mat(k,206) = -rxt(k,413)*y(k,295)
4266 254840160 : mat(k,625) = -rxt(k,414)*y(k,295)
4267 254840160 : mat(k,638) = -rxt(k,415)*y(k,295)
4268 254840160 : mat(k,1882) = -rxt(k,418)*y(k,295)
4269 254840160 : mat(k,1535) = -rxt(k,420)*y(k,295)
4270 254840160 : mat(k,511) = -rxt(k,422)*y(k,295)
4271 254840160 : mat(k,1264) = -rxt(k,423)*y(k,295)
4272 254840160 : mat(k,1120) = -rxt(k,452)*y(k,295)
4273 254840160 : mat(k,1670) = -rxt(k,453)*y(k,295)
4274 254840160 : mat(k,1802) = -rxt(k,454)*y(k,295)
4275 254840160 : mat(k,1474) = -rxt(k,455)*y(k,295)
4276 254840160 : mat(k,2091) = -rxt(k,460)*y(k,295)
4277 254840160 : mat(k,681) = -rxt(k,463)*y(k,295)
4278 254840160 : mat(k,600) = -rxt(k,466)*y(k,295)
4279 254840160 : mat(k,2123) = -rxt(k,470)*y(k,295)
4280 254840160 : mat(k,737) = -rxt(k,472)*y(k,295)
4281 254840160 : mat(k,1209) = -rxt(k,481)*y(k,295)
4282 254840160 : mat(k,1595) = -rxt(k,485)*y(k,295)
4283 254840160 : mat(k,1429) = -rxt(k,487)*y(k,295)
4284 254840160 : mat(k,923) = -rxt(k,488)*y(k,295)
4285 254840160 : mat(k,1910) = -(rxt(k,489) + rxt(k,490)) * y(k,295)
4286 254840160 : mat(k,2152) = -rxt(k,502)*y(k,295)
4287 254840160 : mat(k,187) = -rxt(k,543)*y(k,295)
4288 254840160 : mat(k,422) = -rxt(k,546)*y(k,295)
4289 254840160 : mat(k,247) = -rxt(k,547)*y(k,295)
4290 254840160 : mat(k,357) = -rxt(k,549)*y(k,295)
4291 254840160 : mat(k,290) = -rxt(k,553)*y(k,295)
4292 254840160 : mat(k,222) = -rxt(k,554)*y(k,295)
4293 254840160 : mat(k,196) = -rxt(k,566)*y(k,295)
4294 254840160 : mat(k,351) = -rxt(k,569)*y(k,295)
4295 254840160 : mat(k,750) = -rxt(k,573)*y(k,295)
4296 254840160 : mat(k,217) = -rxt(k,574)*y(k,295)
4297 254840160 : mat(k,236) = -rxt(k,576)*y(k,295)
4298 254840160 : mat(k,852) = -rxt(k,579)*y(k,295)
4299 254840160 : mat(k,241) = -rxt(k,582)*y(k,295)
4300 254840160 : mat(k,434) = -rxt(k,583)*y(k,295)
4301 254840160 : mat(k,1288) = -rxt(k,603)*y(k,295)
4302 254840160 : mat(k,1053) = -rxt(k,623)*y(k,295)
4303 254840160 : mat(k,1105) = -rxt(k,643)*y(k,295)
4304 254840160 : mat(k,1084) = -rxt(k,663)*y(k,295)
4305 254840160 : mat(k,837) = -rxt(k,683)*y(k,295)
4306 254840160 : mat(k,2332) = -rxt(k,689)*y(k,295)
4307 254840160 : mat(k,475) = -rxt(k,690)*y(k,295)
4308 254840160 : mat(k,1296) = -rxt(k,717)*y(k,295)
4309 254840160 : mat(k,663) = -rxt(k,718)*y(k,295)
4310 254840160 : mat(k,1725) = -rxt(k,736)*y(k,295)
4311 254840160 : mat(k,672) = -rxt(k,737)*y(k,295)
4312 254840160 : mat(k,367) = -rxt(k,746)*y(k,295)
4313 254840160 : mat(k,372) = -rxt(k,747)*y(k,295)
4314 254840160 : mat(k,782) = -rxt(k,748)*y(k,295)
4315 254840160 : mat(k,2367) = -rxt(k,756)*y(k,295)
4316 254840160 : mat(k,428) = -rxt(k,757)*y(k,295)
4317 254840160 : mat(k,2645) = -rxt(k,763)*y(k,295)
4318 254840160 : mat(k,2617) = -rxt(k,768)*y(k,295)
4319 254840160 : mat(k,1233) = -rxt(k,769)*y(k,295)
4320 254840160 : mat(k,1109) = -rxt(k,771)*y(k,295)
4321 254840160 : mat(k,688) = -rxt(k,774)*y(k,295)
4322 254840160 : mat(k,992) = -rxt(k,775)*y(k,295)
4323 254840160 : mat(k,790) = -rxt(k,778)*y(k,295)
4324 254840160 : mat(k,1696) = -rxt(k,782)*y(k,295)
4325 254840160 : mat(k,1561) = -rxt(k,783)*y(k,295)
4326 254840160 : mat(k,1709) = -rxt(k,786)*y(k,295)
4327 254840160 : mat(k,1541) = -rxt(k,787)*y(k,295)
4328 254840160 : mat(k,309) = -(rxt(k,794) + rxt(k,808)) * y(k,295)
4329 254840160 : mat(k,392) = -rxt(k,796)*y(k,295)
4330 254840160 : mat(k,1239) = -rxt(k,798)*y(k,295)
4331 254840160 : mat(k,548) = -rxt(k,802)*y(k,295)
4332 254840160 : mat(k,1611) = -rxt(k,807)*y(k,295)
4333 254840160 : mat(k,118) = -rxt(k,810)*y(k,295)
4334 254840160 : mat(k,1288) = mat(k,1288) + .770_r8*rxt(k,602)*y(k,158)
4335 254840160 : mat(k,1053) = mat(k,1053) + .080_r8*rxt(k,622)*y(k,158)
4336 254840160 : mat(k,1105) = mat(k,1105) + .300_r8*rxt(k,642)*y(k,158)
4337 254840160 : mat(k,315) = mat(k,315) + .650_r8*rxt(k,321)*y(k,295)
4338 254840160 : mat(k,592) = mat(k,592) + .130_r8*rxt(k,323)*y(k,158)
4339 254840160 : mat(k,362) = mat(k,362) + .500_r8*rxt(k,329)*y(k,295)
4340 254840160 : mat(k,1399) = mat(k,1399) + .360_r8*rxt(k,354)*y(k,158)
4341 254840160 : mat(k,3198) = mat(k,3198) + rxt(k,300)*y(k,157)
4342 254840160 : mat(k,453) = mat(k,453) + .300_r8*rxt(k,307)*y(k,295)
4343 254840160 : mat(k,2270) = mat(k,2270) + rxt(k,315)*y(k,294)
4344 254840160 : mat(k,3851) = rxt(k,223)*y(k,258)
4345 254840160 : mat(k,1249) = rxt(k,277)*y(k,319)
4346 254840160 : mat(k,2942) = rxt(k,184)*y(k,158) + 2.000_r8*rxt(k,179)*y(k,258)
4347 254840160 : mat(k,1683) = mat(k,1683) + rxt(k,176)*y(k,157) + rxt(k,168)*y(k,294)
4348 254840160 : mat(k,1492) = mat(k,1492) + rxt(k,177)*y(k,157)
4349 254840160 : mat(k,1156) = mat(k,1156) + rxt(k,267)*y(k,157) + rxt(k,273)*y(k,294)
4350 254840160 : mat(k,3141) = mat(k,3141) + rxt(k,238)*y(k,157) + rxt(k,250)*y(k,294)
4351 254840160 : mat(k,200) = mat(k,200) + rxt(k,318)*y(k,294)
4352 254840160 : mat(k,888) = mat(k,888) + .890_r8*rxt(k,347)*y(k,295)
4353 254840160 : mat(k,1214) = mat(k,1214) + .500_r8*rxt(k,311)*y(k,295)
4354 254840160 : mat(k,1001) = rxt(k,269)*y(k,157)
4355 254840160 : mat(k,1164) = mat(k,1164) + rxt(k,241)*y(k,157)
4356 254840160 : mat(k,625) = mat(k,625) + .430_r8*rxt(k,414)*y(k,295)
4357 254840160 : mat(k,638) = mat(k,638) + .530_r8*rxt(k,415)*y(k,295)
4358 254840160 : mat(k,1882) = mat(k,1882) + 1.080_r8*rxt(k,418)*y(k,295)
4359 254840160 : mat(k,928) = mat(k,928) + .700_r8*rxt(k,363)*y(k,295)
4360 254840160 : mat(k,1429) = mat(k,1429) + .250_r8*rxt(k,486)*y(k,158)
4361 254840160 : mat(k,1802) = mat(k,1802) + .500_r8*rxt(k,454)*y(k,295)
4362 : mat(k,2091) = mat(k,2091) + .340_r8*rxt(k,459)*y(k,158) + .060_r8*rxt(k,460) &
4363 254840160 : *y(k,295)
4364 : mat(k,2123) = mat(k,2123) + .340_r8*rxt(k,469)*y(k,158) + .040_r8*rxt(k,470) &
4365 254840160 : *y(k,295)
4366 254840160 : mat(k,737) = mat(k,737) + .030_r8*rxt(k,472)*y(k,295)
4367 254840160 : mat(k,1209) = mat(k,1209) + .420_r8*rxt(k,481)*y(k,295)
4368 : mat(k,1595) = mat(k,1595) + .510_r8*rxt(k,484)*y(k,158) + .290_r8*rxt(k,485) &
4369 254840160 : *y(k,295)
4370 254840160 : mat(k,1910) = mat(k,1910) + (.130_r8*rxt(k,489)+.920_r8*rxt(k,490))*y(k,295)
4371 254840160 : mat(k,1084) = mat(k,1084) + .660_r8*rxt(k,662)*y(k,158)
4372 254840160 : mat(k,2029) = mat(k,2029) + .240_r8*rxt(k,385)*y(k,158)
4373 254840160 : mat(k,2054) = mat(k,2054) + .360_r8*rxt(k,403)*y(k,158)
4374 254840160 : mat(k,837) = mat(k,837) + .630_r8*rxt(k,682)*y(k,158)
4375 254840160 : mat(k,2152) = mat(k,2152) + .340_r8*rxt(k,501)*y(k,158)
4376 : mat(k,3119) = rxt(k,207)*y(k,258) + .550_r8*rxt(k,509)*y(k,267) &
4377 : + .550_r8*rxt(k,511)*y(k,268) + .470_r8*rxt(k,525)*y(k,275) &
4378 : + .040_r8*rxt(k,527)*y(k,276) + .550_r8*rxt(k,530)*y(k,278) &
4379 254840160 : + .550_r8*rxt(k,533)*y(k,279)
4380 254840160 : mat(k,3615) = mat(k,3615) + rxt(k,202)*y(k,258)
4381 : mat(k,3172) = mat(k,3172) + rxt(k,300)*y(k,43) + rxt(k,176)*y(k,79) &
4382 : + rxt(k,177)*y(k,81) + rxt(k,267)*y(k,83) + rxt(k,238)*y(k,87) &
4383 254840160 : + rxt(k,269)*y(k,95) + rxt(k,241)*y(k,96) + rxt(k,182)*y(k,258)
4384 : mat(k,3769) = mat(k,3769) + .770_r8*rxt(k,602)*y(k,4) + .080_r8*rxt(k,622) &
4385 : *y(k,7) + .300_r8*rxt(k,642)*y(k,17) + .130_r8*rxt(k,323) &
4386 : *y(k,26) + .360_r8*rxt(k,354)*y(k,30) + rxt(k,184)*y(k,78) &
4387 : + .250_r8*rxt(k,486)*y(k,109) + .340_r8*rxt(k,459)*y(k,115) &
4388 : + .340_r8*rxt(k,469)*y(k,118) + .510_r8*rxt(k,484)*y(k,121) &
4389 : + .660_r8*rxt(k,662)*y(k,125) + .240_r8*rxt(k,385)*y(k,126) &
4390 : + .360_r8*rxt(k,403)*y(k,132) + .630_r8*rxt(k,682)*y(k,135) &
4391 : + .340_r8*rxt(k,501)*y(k,139) + .090_r8*rxt(k,762)*y(k,212) &
4392 254840160 : + rxt(k,183)*y(k,258)
4393 254840160 : mat(k,583) = mat(k,583) + .500_r8*rxt(k,367)*y(k,295)
4394 254840160 : mat(k,2645) = mat(k,2645) + .090_r8*rxt(k,762)*y(k,158)
4395 254840160 : mat(k,555) = .400_r8*rxt(k,541)*y(k,258)
4396 254840160 : mat(k,2313) = .700_r8*rxt(k,588)*y(k,258)
4397 254840160 : mat(k,2458) = .350_r8*rxt(k,596)*y(k,258)
4398 254840160 : mat(k,2229) = .500_r8*rxt(k,608)*y(k,258)
4399 254840160 : mat(k,2426) = .100_r8*rxt(k,616)*y(k,258)
4400 254840160 : mat(k,2552) = .470_r8*rxt(k,628)*y(k,258)
4401 254840160 : mat(k,2397) = .030_r8*rxt(k,636)*y(k,258)
4402 : mat(k,2927) = .490_r8*rxt(k,337)*y(k,258) + .550_r8*rxt(k,444)*y(k,267) &
4403 : + .550_r8*rxt(k,448)*y(k,268) + .550_r8*rxt(k,491)*y(k,278) &
4404 254840160 : + .550_r8*rxt(k,495)*y(k,279)
4405 : mat(k,3471) = .280_r8*rxt(k,445)*y(k,267) + .280_r8*rxt(k,449)*y(k,268) &
4406 254840160 : + .280_r8*rxt(k,492)*y(k,278) + .280_r8*rxt(k,496)*y(k,279)
4407 254840160 : mat(k,913) = .400_r8*rxt(k,555)*y(k,258)
4408 : mat(k,3378) = mat(k,3378) + rxt(k,223)*y(k,57) + 2.000_r8*rxt(k,179)*y(k,78) &
4409 : + rxt(k,207)*y(k,147) + rxt(k,202)*y(k,149) + rxt(k,182) &
4410 : *y(k,157) + rxt(k,183)*y(k,158) + .400_r8*rxt(k,541)*y(k,235) &
4411 : + .700_r8*rxt(k,588)*y(k,237) + .350_r8*rxt(k,596)*y(k,238) &
4412 : + .500_r8*rxt(k,608)*y(k,240) + .100_r8*rxt(k,616)*y(k,241) &
4413 : + .470_r8*rxt(k,628)*y(k,245) + .030_r8*rxt(k,636)*y(k,246) &
4414 : + .490_r8*rxt(k,337)*y(k,252) + .400_r8*rxt(k,555)*y(k,254) &
4415 : + .200_r8*rxt(k,312)*y(k,259) + .650_r8*rxt(k,421)*y(k,260) &
4416 : + .060_r8*rxt(k,426)*y(k,261) + .060_r8*rxt(k,432)*y(k,262) &
4417 : + .580_r8*rxt(k,457)*y(k,269) + .520_r8*rxt(k,461)*y(k,270) &
4418 : + .600_r8*rxt(k,464)*y(k,271) + .500_r8*rxt(k,467)*y(k,272) &
4419 : + .400_r8*rxt(k,471)*y(k,273) + .240_r8*rxt(k,476)*y(k,274) &
4420 : + .850_r8*rxt(k,479)*y(k,275) + .860_r8*rxt(k,482)*y(k,276) &
4421 : + .500_r8*rxt(k,647)*y(k,281) + .100_r8*rxt(k,656)*y(k,282) &
4422 : + .590_r8*rxt(k,383)*y(k,284) + .490_r8*rxt(k,390)*y(k,286) &
4423 : + .400_r8*rxt(k,561)*y(k,287) + .200_r8*rxt(k,394)*y(k,288) &
4424 : + .540_r8*rxt(k,402)*y(k,289) + .480_r8*rxt(k,667)*y(k,290) &
4425 : + .100_r8*rxt(k,676)*y(k,291) + .800_r8*rxt(k,499)*y(k,293) &
4426 : + .150_r8*rxt(k,369)*y(k,298) + .180_r8*rxt(k,687)*y(k,299) &
4427 : + .180_r8*rxt(k,691)*y(k,300) + .490_r8*rxt(k,703)*y(k,302) &
4428 : + .380_r8*rxt(k,711)*y(k,303) + .490_r8*rxt(k,721)*y(k,304) &
4429 : + .150_r8*rxt(k,730)*y(k,305) + .530_r8*rxt(k,740)*y(k,306) &
4430 : + .490_r8*rxt(k,751)*y(k,307) + .100_r8*rxt(k,760)*y(k,308) &
4431 : + .100_r8*rxt(k,765)*y(k,309) + .100_r8*rxt(k,772)*y(k,310) &
4432 : + .100_r8*rxt(k,776)*y(k,311) + .100_r8*rxt(k,780)*y(k,312) &
4433 254840160 : + .100_r8*rxt(k,784)*y(k,313)
4434 254840160 : mat(k,700) = .200_r8*rxt(k,312)*y(k,258)
4435 254840160 : mat(k,1308) = .650_r8*rxt(k,421)*y(k,258)
4436 254840160 : mat(k,1968) = .060_r8*rxt(k,426)*y(k,258)
4437 254840160 : mat(k,2007) = .060_r8*rxt(k,432)*y(k,258)
4438 : mat(k,1747) = .550_r8*rxt(k,509)*y(k,147) + .550_r8*rxt(k,444)*y(k,252) &
4439 254840160 : + .280_r8*rxt(k,445)*y(k,253)
4440 : mat(k,1769) = .550_r8*rxt(k,511)*y(k,147) + .550_r8*rxt(k,448)*y(k,252) &
4441 254840160 : + .280_r8*rxt(k,449)*y(k,253)
4442 254840160 : mat(k,1131) = .580_r8*rxt(k,457)*y(k,258)
4443 254840160 : mat(k,1177) = .520_r8*rxt(k,461)*y(k,258)
4444 254840160 : mat(k,1063) = .600_r8*rxt(k,464)*y(k,258)
4445 254840160 : mat(k,1142) = .500_r8*rxt(k,467)*y(k,258)
4446 254840160 : mat(k,1453) = .400_r8*rxt(k,471)*y(k,258)
4447 254840160 : mat(k,2195) = .240_r8*rxt(k,476)*y(k,258)
4448 254840160 : mat(k,1322) = .470_r8*rxt(k,525)*y(k,147) + .850_r8*rxt(k,479)*y(k,258)
4449 254840160 : mat(k,1376) = .040_r8*rxt(k,527)*y(k,147) + .860_r8*rxt(k,482)*y(k,258)
4450 : mat(k,1864) = .550_r8*rxt(k,530)*y(k,147) + .550_r8*rxt(k,491)*y(k,252) &
4451 254840160 : + .280_r8*rxt(k,492)*y(k,253)
4452 : mat(k,1833) = .550_r8*rxt(k,533)*y(k,147) + .550_r8*rxt(k,495)*y(k,252) &
4453 254840160 : + .280_r8*rxt(k,496)*y(k,253)
4454 254840160 : mat(k,2523) = .500_r8*rxt(k,647)*y(k,258)
4455 254840160 : mat(k,2357) = .100_r8*rxt(k,656)*y(k,258)
4456 254840160 : mat(k,1556) = .590_r8*rxt(k,383)*y(k,258)
4457 254840160 : mat(k,1632) = .490_r8*rxt(k,390)*y(k,258)
4458 254840160 : mat(k,937) = .400_r8*rxt(k,561)*y(k,258)
4459 254840160 : mat(k,769) = .200_r8*rxt(k,394)*y(k,258)
4460 254840160 : mat(k,1520) = .540_r8*rxt(k,402)*y(k,258)
4461 254840160 : mat(k,2588) = .480_r8*rxt(k,667)*y(k,258)
4462 254840160 : mat(k,2489) = .100_r8*rxt(k,676)*y(k,258)
4463 254840160 : mat(k,1655) = .800_r8*rxt(k,499)*y(k,258)
4464 : mat(k,3810) = rxt(k,315)*y(k,55) + rxt(k,168)*y(k,79) + rxt(k,273)*y(k,83) &
4465 : + rxt(k,250)*y(k,87) + rxt(k,318)*y(k,88) + 2.000_r8*rxt(k,169) &
4466 254840160 : *y(k,319)
4467 : mat(k,4101) = mat(k,4101) + .650_r8*rxt(k,321)*y(k,25) + .500_r8*rxt(k,329) &
4468 : *y(k,28) + .300_r8*rxt(k,307)*y(k,54) + .890_r8*rxt(k,347) &
4469 : *y(k,89) + .500_r8*rxt(k,311)*y(k,92) + .430_r8*rxt(k,414) &
4470 : *y(k,98) + .530_r8*rxt(k,415)*y(k,99) + 1.080_r8*rxt(k,418) &
4471 : *y(k,103) + .700_r8*rxt(k,363)*y(k,104) + .500_r8*rxt(k,454) &
4472 : *y(k,112) + .060_r8*rxt(k,460)*y(k,115) + .040_r8*rxt(k,470) &
4473 : *y(k,118) + .030_r8*rxt(k,472)*y(k,119) + .420_r8*rxt(k,481) &
4474 : *y(k,120) + .290_r8*rxt(k,485)*y(k,121) + (.130_r8*rxt(k,489) &
4475 254840160 : +.920_r8*rxt(k,490))*y(k,123) + .500_r8*rxt(k,367)*y(k,170)
4476 254840160 : mat(k,1346) = .150_r8*rxt(k,369)*y(k,258)
4477 254840160 : mat(k,959) = .180_r8*rxt(k,687)*y(k,258)
4478 254840160 : mat(k,1013) = .180_r8*rxt(k,691)*y(k,258)
4479 254840160 : mat(k,2760) = .490_r8*rxt(k,703)*y(k,258)
4480 254840160 : mat(k,2714) = .380_r8*rxt(k,711)*y(k,258)
4481 254840160 : mat(k,2806) = .490_r8*rxt(k,721)*y(k,258)
4482 254840160 : mat(k,2253) = .150_r8*rxt(k,730)*y(k,258)
4483 254840160 : mat(k,2691) = .530_r8*rxt(k,740)*y(k,258)
4484 254840160 : mat(k,2853) = .490_r8*rxt(k,751)*y(k,258)
4485 254840160 : mat(k,804) = .100_r8*rxt(k,760)*y(k,258)
4486 254840160 : mat(k,968) = .100_r8*rxt(k,765)*y(k,258)
4487 254840160 : mat(k,1226) = .100_r8*rxt(k,772)*y(k,258)
4488 254840160 : mat(k,1022) = .100_r8*rxt(k,776)*y(k,258)
4489 254840160 : mat(k,812) = .100_r8*rxt(k,780)*y(k,258)
4490 254840160 : mat(k,820) = .100_r8*rxt(k,784)*y(k,258)
4491 263009123 : mat(k,4127) = rxt(k,277)*y(k,75) + 2.000_r8*rxt(k,169)*y(k,294)
4492 : end do
4493 8168963 : end subroutine nlnmat15
4494 8168963 : subroutine nlnmat16( avec_len, mat, y, rxt )
4495 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
4496 : implicit none
4497 : !----------------------------------------------
4498 : ! ... dummy arguments
4499 : !----------------------------------------------
4500 : integer, intent(in) :: avec_len
4501 : real(r8), intent(in) :: y(veclen,gas_pcnst)
4502 : real(r8), intent(in) :: rxt(veclen,rxntot)
4503 : real(r8), intent(inout) :: mat(veclen,nzcnt)
4504 : !----------------------------------------------
4505 : ! ... local variables
4506 : !----------------------------------------------
4507 : integer :: k
4508 : !----------------------------------------------
4509 : ! ... complete matrix entries implicit species
4510 : !----------------------------------------------
4511 263009123 : do k = 1,avec_len
4512 254840160 : mat(k,456) = -(rxt(k,564)*y(k,258) + rxt(k,565)*y(k,147))
4513 254840160 : mat(k,3233) = -rxt(k,564)*y(k,296)
4514 254840160 : mat(k,2984) = -rxt(k,565)*y(k,296)
4515 254840160 : mat(k,219) = .200_r8*rxt(k,554)*y(k,295)
4516 254840160 : mat(k,193) = .140_r8*rxt(k,566)*y(k,295)
4517 254840160 : mat(k,348) = rxt(k,569)*y(k,295)
4518 : mat(k,3919) = .200_r8*rxt(k,554)*y(k,67) + .140_r8*rxt(k,566)*y(k,166) &
4519 254840160 : + rxt(k,569)*y(k,167)
4520 254840160 : mat(k,939) = -(rxt(k,365)*y(k,258) + rxt(k,366)*y(k,147))
4521 254840160 : mat(k,3266) = -rxt(k,365)*y(k,297)
4522 254840160 : mat(k,3011) = -rxt(k,366)*y(k,297)
4523 254840160 : mat(k,1383) = rxt(k,372)*y(k,295)
4524 254840160 : mat(k,578) = .500_r8*rxt(k,367)*y(k,295)
4525 254840160 : mat(k,3976) = rxt(k,372)*y(k,30) + .500_r8*rxt(k,367)*y(k,170)
4526 : mat(k,1336) = -(rxt(k,368)*y(k,253) + rxt(k,369)*y(k,258) + rxt(k,370) &
4527 254840160 : *y(k,147))
4528 254840160 : mat(k,3390) = -rxt(k,368)*y(k,298)
4529 254840160 : mat(k,3290) = -rxt(k,369)*y(k,298)
4530 254840160 : mat(k,3033) = -rxt(k,370)*y(k,298)
4531 254840160 : mat(k,2272) = rxt(k,373)*y(k,295)
4532 254840160 : mat(k,406) = rxt(k,371)*y(k,295)
4533 254840160 : mat(k,4010) = rxt(k,373)*y(k,49) + rxt(k,371)*y(k,171)
4534 254840160 : mat(k,951) = -(rxt(k,687)*y(k,258) + rxt(k,688)*y(k,147))
4535 254840160 : mat(k,3267) = -rxt(k,687)*y(k,299)
4536 254840160 : mat(k,3012) = -rxt(k,688)*y(k,299)
4537 254840160 : mat(k,2315) = rxt(k,689)*y(k,295)
4538 254840160 : mat(k,3977) = rxt(k,689)*y(k,200)
4539 254840160 : mat(k,1006) = -(rxt(k,691)*y(k,258) + rxt(k,692)*y(k,147))
4540 254840160 : mat(k,3272) = -rxt(k,691)*y(k,300)
4541 254840160 : mat(k,3017) = -rxt(k,692)*y(k,300)
4542 254840160 : mat(k,472) = rxt(k,690)*y(k,295)
4543 254840160 : mat(k,3982) = rxt(k,690)*y(k,201)
4544 : mat(k,2654) = -(rxt(k,693)*y(k,252) + rxt(k,694)*y(k,253) + rxt(k,695) &
4545 : *y(k,258) + rxt(k,696)*y(k,147) + rxt(k,697)*y(k,149) + rxt(k,698) &
4546 254840160 : *y(k,302) + rxt(k,699)*y(k,304))
4547 254840160 : mat(k,2907) = -rxt(k,693)*y(k,301)
4548 254840160 : mat(k,3449) = -rxt(k,694)*y(k,301)
4549 254840160 : mat(k,3356) = -rxt(k,695)*y(k,301)
4550 254840160 : mat(k,3097) = -rxt(k,696)*y(k,301)
4551 254840160 : mat(k,3593) = -rxt(k,697)*y(k,301)
4552 254840160 : mat(k,2742) = -rxt(k,698)*y(k,301)
4553 254840160 : mat(k,2788) = -rxt(k,699)*y(k,301)
4554 254840160 : mat(k,3097) = mat(k,3097) + rxt(k,752)*y(k,307)
4555 254840160 : mat(k,3593) = mat(k,3593) + rxt(k,753)*y(k,307)
4556 254840160 : mat(k,780) = .290_r8*rxt(k,748)*y(k,295)
4557 254840160 : mat(k,1107) = .860_r8*rxt(k,771)*y(k,295)
4558 254840160 : mat(k,2298) = rxt(k,593)*y(k,307)
4559 254840160 : mat(k,2443) = rxt(k,601)*y(k,307)
4560 254840160 : mat(k,2215) = rxt(k,613)*y(k,307)
4561 254840160 : mat(k,2411) = rxt(k,621)*y(k,307)
4562 254840160 : mat(k,2537) = rxt(k,633)*y(k,307)
4563 254840160 : mat(k,2382) = rxt(k,641)*y(k,307)
4564 254840160 : mat(k,2907) = mat(k,2907) + rxt(k,749)*y(k,307)
4565 254840160 : mat(k,3449) = mat(k,3449) + rxt(k,750)*y(k,307)
4566 254840160 : mat(k,3356) = mat(k,3356) + .490_r8*rxt(k,751)*y(k,307)
4567 254840160 : mat(k,2508) = rxt(k,653)*y(k,307)
4568 254840160 : mat(k,2342) = rxt(k,661)*y(k,307)
4569 254840160 : mat(k,2573) = rxt(k,673)*y(k,307)
4570 254840160 : mat(k,2474) = rxt(k,681)*y(k,307)
4571 254840160 : mat(k,4079) = .290_r8*rxt(k,748)*y(k,207) + .860_r8*rxt(k,771)*y(k,216)
4572 254840160 : mat(k,2742) = mat(k,2742) + rxt(k,707)*y(k,307)
4573 254840160 : mat(k,2699) = rxt(k,716)*y(k,307)
4574 254840160 : mat(k,2788) = mat(k,2788) + rxt(k,726)*y(k,307)
4575 254840160 : mat(k,2238) = rxt(k,735)*y(k,307)
4576 254840160 : mat(k,2676) = rxt(k,745)*y(k,307)
4577 : mat(k,2835) = rxt(k,752)*y(k,147) + rxt(k,753)*y(k,149) + rxt(k,593)*y(k,237) &
4578 : + rxt(k,601)*y(k,238) + rxt(k,613)*y(k,240) + rxt(k,621) &
4579 : *y(k,241) + rxt(k,633)*y(k,245) + rxt(k,641)*y(k,246) &
4580 : + rxt(k,749)*y(k,252) + rxt(k,750)*y(k,253) + .490_r8*rxt(k,751) &
4581 : *y(k,258) + rxt(k,653)*y(k,281) + rxt(k,661)*y(k,282) &
4582 : + rxt(k,673)*y(k,290) + rxt(k,681)*y(k,291) + rxt(k,707) &
4583 : *y(k,302) + rxt(k,716)*y(k,303) + rxt(k,726)*y(k,304) &
4584 : + rxt(k,735)*y(k,305) + rxt(k,745)*y(k,306) &
4585 254840160 : + 4.000_r8*rxt(k,754)*y(k,307)
4586 : mat(k,2745) = -(rxt(k,591)*y(k,237) + rxt(k,599)*y(k,238) + rxt(k,611) &
4587 : *y(k,240) + rxt(k,619)*y(k,241) + rxt(k,631)*y(k,245) + rxt(k,639) &
4588 : *y(k,246) + rxt(k,651)*y(k,281) + rxt(k,659)*y(k,282) + rxt(k,671) &
4589 : *y(k,290) + rxt(k,679)*y(k,291) + rxt(k,684)*y(k,148) + rxt(k,698) &
4590 : *y(k,301) + rxt(k,701)*y(k,252) + rxt(k,702)*y(k,253) + rxt(k,703) &
4591 : *y(k,258) + rxt(k,704)*y(k,147) + rxt(k,705)*y(k,149) &
4592 : + 4._r8*rxt(k,706)*y(k,302) + rxt(k,707)*y(k,307) + rxt(k,714) &
4593 : *y(k,303) + rxt(k,724)*y(k,304) + rxt(k,733)*y(k,305) + rxt(k,743) &
4594 254840160 : *y(k,306))
4595 254840160 : mat(k,2301) = -rxt(k,591)*y(k,302)
4596 254840160 : mat(k,2446) = -rxt(k,599)*y(k,302)
4597 254840160 : mat(k,2218) = -rxt(k,611)*y(k,302)
4598 254840160 : mat(k,2414) = -rxt(k,619)*y(k,302)
4599 254840160 : mat(k,2540) = -rxt(k,631)*y(k,302)
4600 254840160 : mat(k,2385) = -rxt(k,639)*y(k,302)
4601 254840160 : mat(k,2511) = -rxt(k,651)*y(k,302)
4602 254840160 : mat(k,2345) = -rxt(k,659)*y(k,302)
4603 254840160 : mat(k,2576) = -rxt(k,671)*y(k,302)
4604 254840160 : mat(k,2477) = -rxt(k,679)*y(k,302)
4605 254840160 : mat(k,3648) = -rxt(k,684)*y(k,302)
4606 254840160 : mat(k,2657) = -rxt(k,698)*y(k,302)
4607 254840160 : mat(k,2910) = -rxt(k,701)*y(k,302)
4608 254840160 : mat(k,3452) = -rxt(k,702)*y(k,302)
4609 254840160 : mat(k,3359) = -rxt(k,703)*y(k,302)
4610 254840160 : mat(k,3100) = -rxt(k,704)*y(k,302)
4611 254840160 : mat(k,3596) = -rxt(k,705)*y(k,302)
4612 254840160 : mat(k,2838) = -rxt(k,707)*y(k,302)
4613 254840160 : mat(k,2702) = -rxt(k,714)*y(k,302)
4614 254840160 : mat(k,2791) = -rxt(k,724)*y(k,302)
4615 254840160 : mat(k,2241) = -rxt(k,733)*y(k,302)
4616 254840160 : mat(k,2679) = -rxt(k,743)*y(k,302)
4617 254840160 : mat(k,1282) = .270_r8*rxt(k,602)*y(k,158)
4618 254840160 : mat(k,1101) = .300_r8*rxt(k,642)*y(k,158)
4619 254840160 : mat(k,3596) = mat(k,3596) + rxt(k,708)*y(k,203)
4620 254840160 : mat(k,3750) = .270_r8*rxt(k,602)*y(k,4) + .300_r8*rxt(k,642)*y(k,17)
4621 254840160 : mat(k,1292) = rxt(k,708)*y(k,149) + rxt(k,717)*y(k,295)
4622 254840160 : mat(k,366) = .710_r8*rxt(k,746)*y(k,295)
4623 254840160 : mat(k,1108) = .140_r8*rxt(k,771)*y(k,295)
4624 : mat(k,4082) = rxt(k,717)*y(k,203) + .710_r8*rxt(k,746)*y(k,208) &
4625 254840160 : + .140_r8*rxt(k,771)*y(k,216)
4626 : mat(k,2701) = -(rxt(k,709)*y(k,252) + rxt(k,710)*y(k,253) + rxt(k,711) &
4627 : *y(k,258) + rxt(k,712)*y(k,147) + rxt(k,713)*y(k,149) + rxt(k,715) &
4628 254840160 : *y(k,304) + rxt(k,716)*y(k,307))
4629 254840160 : mat(k,2909) = -rxt(k,709)*y(k,303)
4630 254840160 : mat(k,3451) = -rxt(k,710)*y(k,303)
4631 254840160 : mat(k,3358) = -rxt(k,711)*y(k,303)
4632 254840160 : mat(k,3099) = -rxt(k,712)*y(k,303)
4633 254840160 : mat(k,3595) = -rxt(k,713)*y(k,303)
4634 254840160 : mat(k,2790) = -rxt(k,715)*y(k,303)
4635 254840160 : mat(k,2837) = -rxt(k,716)*y(k,303)
4636 254840160 : mat(k,1281) = .330_r8*rxt(k,602)*y(k,158)
4637 254840160 : mat(k,3099) = mat(k,3099) + .700_r8*rxt(k,696)*y(k,301) + rxt(k,704)*y(k,302)
4638 254840160 : mat(k,3595) = mat(k,3595) + rxt(k,697)*y(k,301) + rxt(k,705)*y(k,302)
4639 254840160 : mat(k,3749) = .330_r8*rxt(k,602)*y(k,4)
4640 254840160 : mat(k,2361) = .230_r8*rxt(k,756)*y(k,295)
4641 254840160 : mat(k,365) = .290_r8*rxt(k,746)*y(k,295)
4642 254840160 : mat(k,2300) = rxt(k,591)*y(k,302)
4643 254840160 : mat(k,2445) = rxt(k,599)*y(k,302)
4644 254840160 : mat(k,2217) = rxt(k,611)*y(k,302)
4645 254840160 : mat(k,2413) = rxt(k,619)*y(k,302)
4646 254840160 : mat(k,2539) = rxt(k,631)*y(k,302)
4647 254840160 : mat(k,2384) = rxt(k,639)*y(k,302)
4648 254840160 : mat(k,2909) = mat(k,2909) + rxt(k,693)*y(k,301) + rxt(k,701)*y(k,302)
4649 254840160 : mat(k,3451) = mat(k,3451) + .500_r8*rxt(k,694)*y(k,301) + rxt(k,702)*y(k,302)
4650 254840160 : mat(k,3358) = mat(k,3358) + .490_r8*rxt(k,703)*y(k,302)
4651 254840160 : mat(k,2510) = rxt(k,651)*y(k,302)
4652 254840160 : mat(k,2344) = rxt(k,659)*y(k,302)
4653 254840160 : mat(k,2575) = rxt(k,671)*y(k,302)
4654 254840160 : mat(k,2476) = rxt(k,679)*y(k,302)
4655 254840160 : mat(k,4081) = .230_r8*rxt(k,756)*y(k,202) + .290_r8*rxt(k,746)*y(k,208)
4656 : mat(k,2656) = .700_r8*rxt(k,696)*y(k,147) + rxt(k,697)*y(k,149) + rxt(k,693) &
4657 : *y(k,252) + .500_r8*rxt(k,694)*y(k,253) + 2.000_r8*rxt(k,698) &
4658 254840160 : *y(k,302) + rxt(k,699)*y(k,304) + rxt(k,700)*y(k,307)
4659 : mat(k,2744) = rxt(k,704)*y(k,147) + rxt(k,705)*y(k,149) + rxt(k,591)*y(k,237) &
4660 : + rxt(k,599)*y(k,238) + rxt(k,611)*y(k,240) + rxt(k,619) &
4661 : *y(k,241) + rxt(k,631)*y(k,245) + rxt(k,639)*y(k,246) &
4662 : + rxt(k,701)*y(k,252) + rxt(k,702)*y(k,253) + .490_r8*rxt(k,703) &
4663 : *y(k,258) + rxt(k,651)*y(k,281) + rxt(k,659)*y(k,282) &
4664 : + rxt(k,671)*y(k,290) + rxt(k,679)*y(k,291) &
4665 : + 2.000_r8*rxt(k,698)*y(k,301) + 4.000_r8*rxt(k,706)*y(k,302) &
4666 : + rxt(k,724)*y(k,304) + rxt(k,733)*y(k,305) + rxt(k,743) &
4667 254840160 : *y(k,306) + rxt(k,707)*y(k,307)
4668 254840160 : mat(k,2790) = mat(k,2790) + rxt(k,699)*y(k,301) + rxt(k,724)*y(k,302)
4669 254840160 : mat(k,2240) = rxt(k,733)*y(k,302)
4670 254840160 : mat(k,2678) = rxt(k,743)*y(k,302)
4671 254840160 : mat(k,2837) = mat(k,2837) + rxt(k,700)*y(k,301) + rxt(k,707)*y(k,302)
4672 : mat(k,2792) = -(rxt(k,592)*y(k,237) + rxt(k,600)*y(k,238) + rxt(k,612) &
4673 : *y(k,240) + rxt(k,620)*y(k,241) + rxt(k,632)*y(k,245) + rxt(k,640) &
4674 : *y(k,246) + rxt(k,652)*y(k,281) + rxt(k,660)*y(k,282) + rxt(k,672) &
4675 : *y(k,290) + rxt(k,680)*y(k,291) + rxt(k,685)*y(k,148) + rxt(k,699) &
4676 : *y(k,301) + rxt(k,715)*y(k,303) + rxt(k,719)*y(k,252) + rxt(k,720) &
4677 : *y(k,253) + rxt(k,721)*y(k,258) + rxt(k,722)*y(k,147) + rxt(k,723) &
4678 : *y(k,149) + rxt(k,724)*y(k,302) + 4._r8*rxt(k,725)*y(k,304) &
4679 : + rxt(k,726)*y(k,307) + rxt(k,734)*y(k,305) + rxt(k,744) &
4680 254840160 : *y(k,306))
4681 254840160 : mat(k,2302) = -rxt(k,592)*y(k,304)
4682 254840160 : mat(k,2447) = -rxt(k,600)*y(k,304)
4683 254840160 : mat(k,2219) = -rxt(k,612)*y(k,304)
4684 254840160 : mat(k,2415) = -rxt(k,620)*y(k,304)
4685 254840160 : mat(k,2541) = -rxt(k,632)*y(k,304)
4686 254840160 : mat(k,2386) = -rxt(k,640)*y(k,304)
4687 254840160 : mat(k,2512) = -rxt(k,652)*y(k,304)
4688 254840160 : mat(k,2346) = -rxt(k,660)*y(k,304)
4689 254840160 : mat(k,2577) = -rxt(k,672)*y(k,304)
4690 254840160 : mat(k,2478) = -rxt(k,680)*y(k,304)
4691 254840160 : mat(k,3649) = -rxt(k,685)*y(k,304)
4692 254840160 : mat(k,2658) = -rxt(k,699)*y(k,304)
4693 254840160 : mat(k,2703) = -rxt(k,715)*y(k,304)
4694 254840160 : mat(k,2911) = -rxt(k,719)*y(k,304)
4695 254840160 : mat(k,3453) = -rxt(k,720)*y(k,304)
4696 254840160 : mat(k,3360) = -rxt(k,721)*y(k,304)
4697 254840160 : mat(k,3101) = -rxt(k,722)*y(k,304)
4698 254840160 : mat(k,3597) = -rxt(k,723)*y(k,304)
4699 254840160 : mat(k,2746) = -rxt(k,724)*y(k,304)
4700 254840160 : mat(k,2839) = -rxt(k,726)*y(k,304)
4701 254840160 : mat(k,2242) = -rxt(k,734)*y(k,304)
4702 254840160 : mat(k,2680) = -rxt(k,744)*y(k,304)
4703 254840160 : mat(k,1078) = .330_r8*rxt(k,662)*y(k,158)
4704 254840160 : mat(k,3597) = mat(k,3597) + rxt(k,727)*y(k,205)
4705 254840160 : mat(k,3751) = .330_r8*rxt(k,662)*y(k,125)
4706 254840160 : mat(k,1721) = rxt(k,727)*y(k,149) + .750_r8*rxt(k,736)*y(k,295)
4707 254840160 : mat(k,371) = .710_r8*rxt(k,747)*y(k,295)
4708 254840160 : mat(k,2633) = .170_r8*rxt(k,763)*y(k,295)
4709 : mat(k,4083) = .750_r8*rxt(k,736)*y(k,205) + .710_r8*rxt(k,747)*y(k,209) &
4710 254840160 : + .170_r8*rxt(k,763)*y(k,212)
4711 : mat(k,2235) = -(rxt(k,728)*y(k,252) + rxt(k,729)*y(k,253) + rxt(k,730) &
4712 : *y(k,258) + rxt(k,731)*y(k,147) + rxt(k,732)*y(k,149) + rxt(k,733) &
4713 254840160 : *y(k,302) + rxt(k,734)*y(k,304) + rxt(k,735)*y(k,307))
4714 254840160 : mat(k,2891) = -rxt(k,728)*y(k,305)
4715 254840160 : mat(k,3433) = -rxt(k,729)*y(k,305)
4716 254840160 : mat(k,3340) = -rxt(k,730)*y(k,305)
4717 254840160 : mat(k,3081) = -rxt(k,731)*y(k,305)
4718 254840160 : mat(k,3577) = -rxt(k,732)*y(k,305)
4719 254840160 : mat(k,2727) = -rxt(k,733)*y(k,305)
4720 254840160 : mat(k,2773) = -rxt(k,734)*y(k,305)
4721 254840160 : mat(k,2820) = -rxt(k,735)*y(k,305)
4722 254840160 : mat(k,3081) = mat(k,3081) + .830_r8*rxt(k,712)*y(k,303)
4723 254840160 : mat(k,3577) = mat(k,3577) + rxt(k,713)*y(k,303)
4724 254840160 : mat(k,2891) = mat(k,2891) + rxt(k,709)*y(k,303)
4725 254840160 : mat(k,3433) = mat(k,3433) + rxt(k,710)*y(k,303)
4726 254840160 : mat(k,3340) = mat(k,3340) + .380_r8*rxt(k,711)*y(k,303)
4727 254840160 : mat(k,2727) = mat(k,2727) + rxt(k,714)*y(k,303)
4728 : mat(k,2696) = .830_r8*rxt(k,712)*y(k,147) + rxt(k,713)*y(k,149) + rxt(k,709) &
4729 : *y(k,252) + rxt(k,710)*y(k,253) + .380_r8*rxt(k,711)*y(k,258) &
4730 : + rxt(k,714)*y(k,302) + rxt(k,715)*y(k,304) + rxt(k,716) &
4731 254840160 : *y(k,307)
4732 254840160 : mat(k,2773) = mat(k,2773) + rxt(k,715)*y(k,303)
4733 263009123 : mat(k,2820) = mat(k,2820) + rxt(k,716)*y(k,303)
4734 : end do
4735 8168963 : end subroutine nlnmat16
4736 8168963 : subroutine nlnmat17( avec_len, mat, y, rxt )
4737 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
4738 : implicit none
4739 : !----------------------------------------------
4740 : ! ... dummy arguments
4741 : !----------------------------------------------
4742 : integer, intent(in) :: avec_len
4743 : real(r8), intent(in) :: y(veclen,gas_pcnst)
4744 : real(r8), intent(in) :: rxt(veclen,rxntot)
4745 : real(r8), intent(inout) :: mat(veclen,nzcnt)
4746 : !----------------------------------------------
4747 : ! ... local variables
4748 : !----------------------------------------------
4749 : integer :: k
4750 : !----------------------------------------------
4751 : ! ... complete matrix entries implicit species
4752 : !----------------------------------------------
4753 263009123 : do k = 1,avec_len
4754 254840160 : mat(k,2677) = -(rxt(k,738)*y(k,252) + rxt(k,739)*y(k,253) + rxt(k,740) &
4755 : *y(k,258) + rxt(k,741)*y(k,147) + rxt(k,742)*y(k,149) + rxt(k,743) &
4756 254840160 : *y(k,302) + rxt(k,745)*y(k,307))
4757 254840160 : mat(k,2908) = -rxt(k,738)*y(k,306)
4758 254840160 : mat(k,3450) = -rxt(k,739)*y(k,306)
4759 254840160 : mat(k,3357) = -rxt(k,740)*y(k,306)
4760 254840160 : mat(k,3098) = -rxt(k,741)*y(k,306)
4761 254840160 : mat(k,3594) = -rxt(k,742)*y(k,306)
4762 254840160 : mat(k,2743) = -rxt(k,743)*y(k,306)
4763 254840160 : mat(k,2836) = -rxt(k,745)*y(k,306)
4764 254840160 : mat(k,3098) = mat(k,3098) + rxt(k,722)*y(k,304) + .700_r8*rxt(k,731)*y(k,305)
4765 254840160 : mat(k,3594) = mat(k,3594) + rxt(k,723)*y(k,304) + rxt(k,732)*y(k,305)
4766 254840160 : mat(k,1720) = .250_r8*rxt(k,736)*y(k,295)
4767 254840160 : mat(k,370) = .290_r8*rxt(k,747)*y(k,295)
4768 254840160 : mat(k,2299) = rxt(k,592)*y(k,304)
4769 254840160 : mat(k,2444) = rxt(k,600)*y(k,304)
4770 254840160 : mat(k,2216) = rxt(k,612)*y(k,304)
4771 254840160 : mat(k,2412) = rxt(k,620)*y(k,304)
4772 254840160 : mat(k,2538) = rxt(k,632)*y(k,304)
4773 254840160 : mat(k,2383) = rxt(k,640)*y(k,304)
4774 254840160 : mat(k,2908) = mat(k,2908) + rxt(k,719)*y(k,304) + rxt(k,728)*y(k,305)
4775 254840160 : mat(k,3450) = mat(k,3450) + rxt(k,720)*y(k,304) + rxt(k,729)*y(k,305)
4776 : mat(k,3357) = mat(k,3357) + .490_r8*rxt(k,721)*y(k,304) + .150_r8*rxt(k,730) &
4777 254840160 : *y(k,305)
4778 254840160 : mat(k,2509) = rxt(k,652)*y(k,304)
4779 254840160 : mat(k,2343) = rxt(k,660)*y(k,304)
4780 254840160 : mat(k,2574) = rxt(k,672)*y(k,304)
4781 254840160 : mat(k,2475) = rxt(k,680)*y(k,304)
4782 254840160 : mat(k,4080) = .250_r8*rxt(k,736)*y(k,205) + .290_r8*rxt(k,747)*y(k,209)
4783 254840160 : mat(k,2655) = rxt(k,699)*y(k,304)
4784 254840160 : mat(k,2743) = mat(k,2743) + rxt(k,724)*y(k,304) + rxt(k,733)*y(k,305)
4785 254840160 : mat(k,2700) = rxt(k,715)*y(k,304)
4786 : mat(k,2789) = rxt(k,722)*y(k,147) + rxt(k,723)*y(k,149) + rxt(k,592)*y(k,237) &
4787 : + rxt(k,600)*y(k,238) + rxt(k,612)*y(k,240) + rxt(k,620) &
4788 : *y(k,241) + rxt(k,632)*y(k,245) + rxt(k,640)*y(k,246) &
4789 : + rxt(k,719)*y(k,252) + rxt(k,720)*y(k,253) + .490_r8*rxt(k,721) &
4790 : *y(k,258) + rxt(k,652)*y(k,281) + rxt(k,660)*y(k,282) &
4791 : + rxt(k,672)*y(k,290) + rxt(k,680)*y(k,291) + rxt(k,699) &
4792 : *y(k,301) + rxt(k,724)*y(k,302) + rxt(k,715)*y(k,303) &
4793 : + 4.000_r8*rxt(k,725)*y(k,304) + 2.000_r8*rxt(k,734)*y(k,305) &
4794 254840160 : + rxt(k,726)*y(k,307)
4795 : mat(k,2239) = .700_r8*rxt(k,731)*y(k,147) + rxt(k,732)*y(k,149) + rxt(k,728) &
4796 : *y(k,252) + rxt(k,729)*y(k,253) + .150_r8*rxt(k,730)*y(k,258) &
4797 : + rxt(k,733)*y(k,302) + 2.000_r8*rxt(k,734)*y(k,304) &
4798 254840160 : + rxt(k,735)*y(k,307)
4799 254840160 : mat(k,2836) = mat(k,2836) + rxt(k,726)*y(k,304) + rxt(k,735)*y(k,305)
4800 : mat(k,2840) = -(rxt(k,593)*y(k,237) + rxt(k,601)*y(k,238) + rxt(k,613) &
4801 : *y(k,240) + rxt(k,621)*y(k,241) + rxt(k,633)*y(k,245) + rxt(k,641) &
4802 : *y(k,246) + rxt(k,653)*y(k,281) + rxt(k,661)*y(k,282) + rxt(k,673) &
4803 : *y(k,290) + rxt(k,681)*y(k,291) + rxt(k,686)*y(k,148) + rxt(k,700) &
4804 : *y(k,301) + rxt(k,707)*y(k,302) + rxt(k,716)*y(k,303) + rxt(k,726) &
4805 : *y(k,304) + rxt(k,735)*y(k,305) + rxt(k,745)*y(k,306) + rxt(k,749) &
4806 : *y(k,252) + rxt(k,750)*y(k,253) + rxt(k,751)*y(k,258) + rxt(k,752) &
4807 254840160 : *y(k,147) + rxt(k,753)*y(k,149) + 4._r8*rxt(k,754)*y(k,307))
4808 254840160 : mat(k,2303) = -rxt(k,593)*y(k,307)
4809 254840160 : mat(k,2448) = -rxt(k,601)*y(k,307)
4810 254840160 : mat(k,2220) = -rxt(k,613)*y(k,307)
4811 254840160 : mat(k,2416) = -rxt(k,621)*y(k,307)
4812 254840160 : mat(k,2542) = -rxt(k,633)*y(k,307)
4813 254840160 : mat(k,2387) = -rxt(k,641)*y(k,307)
4814 254840160 : mat(k,2513) = -rxt(k,653)*y(k,307)
4815 254840160 : mat(k,2347) = -rxt(k,661)*y(k,307)
4816 254840160 : mat(k,2578) = -rxt(k,673)*y(k,307)
4817 254840160 : mat(k,2479) = -rxt(k,681)*y(k,307)
4818 254840160 : mat(k,3650) = -rxt(k,686)*y(k,307)
4819 254840160 : mat(k,2659) = -rxt(k,700)*y(k,307)
4820 254840160 : mat(k,2747) = -rxt(k,707)*y(k,307)
4821 254840160 : mat(k,2704) = -rxt(k,716)*y(k,307)
4822 254840160 : mat(k,2793) = -rxt(k,726)*y(k,307)
4823 254840160 : mat(k,2243) = -rxt(k,735)*y(k,307)
4824 254840160 : mat(k,2681) = -rxt(k,745)*y(k,307)
4825 254840160 : mat(k,2912) = -rxt(k,749)*y(k,307)
4826 254840160 : mat(k,3454) = -rxt(k,750)*y(k,307)
4827 254840160 : mat(k,3361) = -rxt(k,751)*y(k,307)
4828 254840160 : mat(k,3102) = -rxt(k,752)*y(k,307)
4829 254840160 : mat(k,3598) = -rxt(k,753)*y(k,307)
4830 254840160 : mat(k,3598) = mat(k,3598) + rxt(k,755)*y(k,202)
4831 254840160 : mat(k,2362) = rxt(k,755)*y(k,149) + .770_r8*rxt(k,756)*y(k,295)
4832 254840160 : mat(k,781) = .710_r8*rxt(k,748)*y(k,295)
4833 254840160 : mat(k,4084) = .770_r8*rxt(k,756)*y(k,202) + .710_r8*rxt(k,748)*y(k,207)
4834 254840160 : mat(k,797) = -(rxt(k,760)*y(k,258) + rxt(k,761)*y(k,147))
4835 254840160 : mat(k,3254) = -rxt(k,760)*y(k,308)
4836 254840160 : mat(k,3000) = -rxt(k,761)*y(k,308)
4837 254840160 : mat(k,2619) = .830_r8*rxt(k,763)*y(k,295)
4838 254840160 : mat(k,3961) = .830_r8*rxt(k,763)*y(k,212)
4839 254840160 : mat(k,960) = -(rxt(k,765)*y(k,258) + rxt(k,766)*y(k,147))
4840 254840160 : mat(k,3268) = -rxt(k,765)*y(k,309)
4841 254840160 : mat(k,3013) = -rxt(k,766)*y(k,309)
4842 254840160 : mat(k,2590) = rxt(k,768)*y(k,295)
4843 254840160 : mat(k,3978) = rxt(k,768)*y(k,213)
4844 254840160 : mat(k,1218) = -(rxt(k,772)*y(k,258) + rxt(k,773)*y(k,147))
4845 254840160 : mat(k,3286) = -rxt(k,772)*y(k,310)
4846 254840160 : mat(k,3029) = -rxt(k,773)*y(k,310)
4847 254840160 : mat(k,683) = rxt(k,774)*y(k,295)
4848 254840160 : mat(k,4000) = rxt(k,774)*y(k,218)
4849 254840160 : mat(k,1015) = -(rxt(k,776)*y(k,258) + rxt(k,777)*y(k,147))
4850 254840160 : mat(k,3273) = -rxt(k,776)*y(k,311)
4851 254840160 : mat(k,3018) = -rxt(k,777)*y(k,311)
4852 254840160 : mat(k,784) = rxt(k,778)*y(k,295)
4853 254840160 : mat(k,3983) = rxt(k,778)*y(k,220)
4854 254840160 : mat(k,805) = -(rxt(k,780)*y(k,258) + rxt(k,781)*y(k,147))
4855 254840160 : mat(k,3255) = -rxt(k,780)*y(k,312)
4856 254840160 : mat(k,3001) = -rxt(k,781)*y(k,312)
4857 254840160 : mat(k,1685) = rxt(k,782)*y(k,295)
4858 254840160 : mat(k,3962) = rxt(k,782)*y(k,222)
4859 254840160 : mat(k,813) = -(rxt(k,784)*y(k,258) + rxt(k,785)*y(k,147))
4860 254840160 : mat(k,3256) = -rxt(k,784)*y(k,313)
4861 254840160 : mat(k,3002) = -rxt(k,785)*y(k,313)
4862 254840160 : mat(k,1697) = rxt(k,786)*y(k,295)
4863 254840160 : mat(k,3963) = rxt(k,786)*y(k,224)
4864 254840160 : mat(k,873) = -(rxt(k,571)*y(k,258) + rxt(k,572)*y(k,147))
4865 254840160 : mat(k,3260) = -rxt(k,571)*y(k,314)
4866 254840160 : mat(k,3005) = -rxt(k,572)*y(k,314)
4867 254840160 : mat(k,743) = rxt(k,573)*y(k,295)
4868 254840160 : mat(k,215) = .650_r8*rxt(k,574)*y(k,295)
4869 254840160 : mat(k,3968) = rxt(k,573)*y(k,227) + .650_r8*rxt(k,574)*y(k,228)
4870 254840160 : mat(k,107) = -(rxt(k,879)*y(k,258) + rxt(k,880)*y(k,147))
4871 254840160 : mat(k,3214) = -rxt(k,879)*y(k,315)
4872 254840160 : mat(k,2976) = -rxt(k,880)*y(k,315)
4873 254840160 : mat(k,210) = rxt(k,878)*y(k,295)
4874 254840160 : mat(k,3868) = rxt(k,878)*y(k,228)
4875 254840160 : mat(k,895) = -(rxt(k,577)*y(k,258) + rxt(k,578)*y(k,147))
4876 254840160 : mat(k,3262) = -rxt(k,577)*y(k,316)
4877 254840160 : mat(k,3007) = -rxt(k,578)*y(k,316)
4878 254840160 : mat(k,232) = .560_r8*rxt(k,576)*y(k,295)
4879 254840160 : mat(k,844) = rxt(k,579)*y(k,295)
4880 254840160 : mat(k,3970) = .560_r8*rxt(k,576)*y(k,229) + rxt(k,579)*y(k,230)
4881 254840160 : mat(k,113) = -(rxt(k,882)*y(k,258) + rxt(k,883)*y(k,147))
4882 254840160 : mat(k,3215) = -rxt(k,882)*y(k,317)
4883 254840160 : mat(k,2977) = -rxt(k,883)*y(k,317)
4884 254840160 : mat(k,227) = rxt(k,881)*y(k,295)
4885 254840160 : mat(k,3869) = rxt(k,881)*y(k,229)
4886 254840160 : mat(k,536) = -(rxt(k,580)*y(k,258) + rxt(k,581)*y(k,147))
4887 254840160 : mat(k,3238) = -rxt(k,580)*y(k,318)
4888 254840160 : mat(k,2989) = -rxt(k,581)*y(k,318)
4889 254840160 : mat(k,239) = .300_r8*rxt(k,582)*y(k,295)
4890 254840160 : mat(k,430) = rxt(k,583)*y(k,295)
4891 254840160 : mat(k,3931) = .300_r8*rxt(k,582)*y(k,231) + rxt(k,583)*y(k,232)
4892 : mat(k,4128) = -(rxt(k,169)*y(k,294) + rxt(k,277)*y(k,75) + rxt(k,809) &
4893 254840160 : *y(k,176))
4894 254840160 : mat(k,3811) = -rxt(k,169)*y(k,319)
4895 254840160 : mat(k,1250) = -rxt(k,277)*y(k,319)
4896 254840160 : mat(k,282) = -rxt(k,809)*y(k,319)
4897 254840160 : mat(k,321) = rxt(k,331)*y(k,295)
4898 254840160 : mat(k,416) = rxt(k,358)*y(k,295)
4899 254840160 : mat(k,133) = rxt(k,359)*y(k,295)
4900 254840160 : mat(k,501) = rxt(k,282)*y(k,295)
4901 254840160 : mat(k,3199) = rxt(k,301)*y(k,295)
4902 254840160 : mat(k,654) = rxt(k,284)*y(k,295)
4903 254840160 : mat(k,149) = rxt(k,285)*y(k,295)
4904 254840160 : mat(k,1439) = rxt(k,333)*y(k,295)
4905 254840160 : mat(k,400) = rxt(k,287)*y(k,295)
4906 254840160 : mat(k,2288) = rxt(k,373)*y(k,295)
4907 254840160 : mat(k,1933) = rxt(k,361)*y(k,295)
4908 254840160 : mat(k,795) = rxt(k,339)*y(k,295)
4909 254840160 : mat(k,708) = rxt(k,340)*y(k,295)
4910 254840160 : mat(k,454) = rxt(k,307)*y(k,295)
4911 254840160 : mat(k,2271) = rxt(k,308)*y(k,295)
4912 254840160 : mat(k,2943) = rxt(k,180)*y(k,258)
4913 254840160 : mat(k,1684) = rxt(k,185)*y(k,295)
4914 254840160 : mat(k,1493) = rxt(k,186)*y(k,295)
4915 254840160 : mat(k,1157) = rxt(k,268)*y(k,295)
4916 254840160 : mat(k,331) = rxt(k,292)*y(k,295)
4917 : mat(k,3142) = (rxt(k,892)+rxt(k,897))*y(k,95) + (rxt(k,885)+rxt(k,891) &
4918 254840160 : +rxt(k,896))*y(k,96) + rxt(k,239)*y(k,295)
4919 254840160 : mat(k,1381) = rxt(k,310)*y(k,295)
4920 254840160 : mat(k,1215) = rxt(k,311)*y(k,295)
4921 254840160 : mat(k,2961) = rxt(k,215)*y(k,295)
4922 254840160 : mat(k,448) = rxt(k,193)*y(k,295)
4923 254840160 : mat(k,1002) = (rxt(k,892)+rxt(k,897))*y(k,87)
4924 : mat(k,1165) = (rxt(k,885)+rxt(k,891)+rxt(k,896))*y(k,87) + rxt(k,242) &
4925 254840160 : *y(k,295)
4926 254840160 : mat(k,2030) = .450_r8*rxt(k,386)*y(k,295)
4927 254840160 : mat(k,119) = rxt(k,810)*y(k,295)
4928 254840160 : mat(k,584) = rxt(k,367)*y(k,295)
4929 254840160 : mat(k,410) = rxt(k,371)*y(k,295)
4930 254840160 : mat(k,993) = rxt(k,775)*y(k,295)
4931 254840160 : mat(k,1149) = rxt(k,779)*y(k,295)
4932 : mat(k,3379) = rxt(k,180)*y(k,78) + .300_r8*rxt(k,312)*y(k,259) + rxt(k,187) &
4933 254840160 : *y(k,295)
4934 254840160 : mat(k,701) = .300_r8*rxt(k,312)*y(k,258)
4935 : mat(k,4102) = rxt(k,331)*y(k,29) + rxt(k,358)*y(k,31) + rxt(k,359)*y(k,32) &
4936 : + rxt(k,282)*y(k,42) + rxt(k,301)*y(k,43) + rxt(k,284)*y(k,44) &
4937 : + rxt(k,285)*y(k,45) + rxt(k,333)*y(k,46) + rxt(k,287)*y(k,47) &
4938 : + rxt(k,373)*y(k,49) + rxt(k,361)*y(k,50) + rxt(k,339)*y(k,51) &
4939 : + rxt(k,340)*y(k,52) + rxt(k,307)*y(k,54) + rxt(k,308)*y(k,55) &
4940 : + rxt(k,185)*y(k,79) + rxt(k,186)*y(k,81) + rxt(k,268)*y(k,83) &
4941 : + rxt(k,292)*y(k,86) + rxt(k,239)*y(k,87) + rxt(k,310)*y(k,90) &
4942 : + rxt(k,311)*y(k,92) + rxt(k,215)*y(k,93) + rxt(k,193)*y(k,94) &
4943 : + rxt(k,242)*y(k,96) + .450_r8*rxt(k,386)*y(k,126) + rxt(k,810) &
4944 : *y(k,143) + rxt(k,367)*y(k,170) + rxt(k,371)*y(k,171) &
4945 : + rxt(k,775)*y(k,217) + rxt(k,779)*y(k,219) + rxt(k,187) &
4946 263009123 : *y(k,258) + 2.000_r8*rxt(k,190)*y(k,295)
4947 : end do
4948 8168963 : end subroutine nlnmat17
4949 8168963 : subroutine nlnmat_finit( avec_len, mat, lmat, dti )
4950 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
4951 : implicit none
4952 : !----------------------------------------------
4953 : ! ... dummy arguments
4954 : !----------------------------------------------
4955 : integer, intent(in) :: avec_len
4956 : real(r8), intent(in) :: dti(veclen)
4957 : real(r8), intent(in) :: lmat(veclen,nzcnt)
4958 : real(r8), intent(inout) :: mat(veclen,nzcnt)
4959 : !----------------------------------------------
4960 : ! ... local variables
4961 : !----------------------------------------------
4962 : integer :: k
4963 : !----------------------------------------------
4964 : ! ... complete matrix entries implicit species
4965 : !----------------------------------------------
4966 263009123 : do k = 1,avec_len
4967 254840160 : mat(k, 1) = lmat(k, 1)
4968 254840160 : mat(k, 2) = lmat(k, 2)
4969 254840160 : mat(k, 3) = lmat(k, 3)
4970 254840160 : mat(k, 4) = lmat(k, 4)
4971 254840160 : mat(k, 5) = lmat(k, 5)
4972 254840160 : mat(k, 6) = lmat(k, 6)
4973 254840160 : mat(k, 7) = lmat(k, 7)
4974 254840160 : mat(k, 8) = lmat(k, 8)
4975 254840160 : mat(k, 9) = lmat(k, 9)
4976 254840160 : mat(k, 10) = lmat(k, 10)
4977 254840160 : mat(k, 11) = lmat(k, 11)
4978 254840160 : mat(k, 12) = lmat(k, 12)
4979 254840160 : mat(k, 13) = lmat(k, 13)
4980 254840160 : mat(k, 14) = lmat(k, 14)
4981 254840160 : mat(k, 15) = lmat(k, 15)
4982 254840160 : mat(k, 16) = lmat(k, 16)
4983 254840160 : mat(k, 17) = lmat(k, 17)
4984 254840160 : mat(k, 18) = lmat(k, 18)
4985 254840160 : mat(k, 19) = lmat(k, 19)
4986 254840160 : mat(k, 20) = lmat(k, 20)
4987 254840160 : mat(k, 21) = lmat(k, 21)
4988 254840160 : mat(k, 22) = lmat(k, 22)
4989 254840160 : mat(k, 23) = lmat(k, 23)
4990 254840160 : mat(k, 24) = lmat(k, 24)
4991 254840160 : mat(k, 25) = lmat(k, 25)
4992 254840160 : mat(k, 26) = lmat(k, 26)
4993 254840160 : mat(k, 27) = lmat(k, 27)
4994 254840160 : mat(k, 28) = lmat(k, 28)
4995 254840160 : mat(k, 29) = lmat(k, 29)
4996 254840160 : mat(k, 30) = lmat(k, 30)
4997 254840160 : mat(k, 31) = lmat(k, 31)
4998 254840160 : mat(k, 32) = lmat(k, 32)
4999 254840160 : mat(k, 33) = lmat(k, 33)
5000 254840160 : mat(k, 34) = lmat(k, 34)
5001 254840160 : mat(k, 35) = lmat(k, 35)
5002 254840160 : mat(k, 36) = lmat(k, 36)
5003 254840160 : mat(k, 37) = lmat(k, 37)
5004 254840160 : mat(k, 38) = lmat(k, 38)
5005 254840160 : mat(k, 39) = lmat(k, 39)
5006 254840160 : mat(k, 40) = lmat(k, 40)
5007 254840160 : mat(k, 41) = lmat(k, 41)
5008 254840160 : mat(k, 42) = lmat(k, 42)
5009 254840160 : mat(k, 43) = lmat(k, 43)
5010 254840160 : mat(k, 44) = lmat(k, 44)
5011 254840160 : mat(k, 45) = lmat(k, 45)
5012 254840160 : mat(k, 51) = mat(k, 51) + lmat(k, 51)
5013 254840160 : mat(k, 57) = mat(k, 57) + lmat(k, 57)
5014 254840160 : mat(k, 63) = mat(k, 63) + lmat(k, 63)
5015 254840160 : mat(k, 69) = mat(k, 69) + lmat(k, 69)
5016 254840160 : mat(k, 75) = mat(k, 75) + lmat(k, 75)
5017 254840160 : mat(k, 81) = mat(k, 81) + lmat(k, 81)
5018 254840160 : mat(k, 87) = mat(k, 87) + lmat(k, 87)
5019 254840160 : mat(k, 89) = mat(k, 89) + lmat(k, 89)
5020 254840160 : mat(k, 95) = mat(k, 95) + lmat(k, 95)
5021 254840160 : mat(k, 101) = mat(k, 101) + lmat(k, 101)
5022 254840160 : mat(k, 107) = mat(k, 107) + lmat(k, 107)
5023 254840160 : mat(k, 113) = mat(k, 113) + lmat(k, 113)
5024 254840160 : mat(k, 114) = lmat(k, 114)
5025 254840160 : mat(k, 115) = lmat(k, 115)
5026 254840160 : mat(k, 116) = lmat(k, 116)
5027 254840160 : mat(k, 117) = mat(k, 117) + lmat(k, 117)
5028 254840160 : mat(k, 120) = mat(k, 120) + lmat(k, 120)
5029 254840160 : mat(k, 122) = mat(k, 122) + lmat(k, 122)
5030 254840160 : mat(k, 123) = mat(k, 123) + lmat(k, 123)
5031 254840160 : mat(k, 126) = mat(k, 126) + lmat(k, 126)
5032 254840160 : mat(k, 127) = mat(k, 127) + lmat(k, 127)
5033 254840160 : mat(k, 128) = mat(k, 128) + lmat(k, 128)
5034 254840160 : mat(k, 130) = mat(k, 130) + lmat(k, 130)
5035 254840160 : mat(k, 134) = mat(k, 134) + lmat(k, 134)
5036 254840160 : mat(k, 135) = mat(k, 135) + lmat(k, 135)
5037 254840160 : mat(k, 137) = mat(k, 137) + lmat(k, 137)
5038 254840160 : mat(k, 138) = mat(k, 138) + lmat(k, 138)
5039 254840160 : mat(k, 139) = mat(k, 139) + lmat(k, 139)
5040 254840160 : mat(k, 141) = mat(k, 141) + lmat(k, 141)
5041 254840160 : mat(k, 142) = mat(k, 142) + lmat(k, 142)
5042 254840160 : mat(k, 143) = mat(k, 143) + lmat(k, 143)
5043 254840160 : mat(k, 145) = mat(k, 145) + lmat(k, 145)
5044 254840160 : mat(k, 146) = mat(k, 146) + lmat(k, 146)
5045 254840160 : mat(k, 147) = mat(k, 147) + lmat(k, 147)
5046 254840160 : mat(k, 150) = lmat(k, 150)
5047 254840160 : mat(k, 151) = lmat(k, 151)
5048 254840160 : mat(k, 152) = lmat(k, 152)
5049 254840160 : mat(k, 153) = lmat(k, 153)
5050 254840160 : mat(k, 154) = lmat(k, 154)
5051 254840160 : mat(k, 155) = lmat(k, 155)
5052 254840160 : mat(k, 156) = lmat(k, 156)
5053 254840160 : mat(k, 157) = lmat(k, 157)
5054 254840160 : mat(k, 158) = lmat(k, 158)
5055 254840160 : mat(k, 159) = mat(k, 159) + lmat(k, 159)
5056 254840160 : mat(k, 160) = mat(k, 160) + lmat(k, 160)
5057 254840160 : mat(k, 161) = mat(k, 161) + lmat(k, 161)
5058 254840160 : mat(k, 163) = mat(k, 163) + lmat(k, 163)
5059 254840160 : mat(k, 164) = mat(k, 164) + lmat(k, 164)
5060 254840160 : mat(k, 165) = mat(k, 165) + lmat(k, 165)
5061 254840160 : mat(k, 166) = mat(k, 166) + lmat(k, 166)
5062 254840160 : mat(k, 167) = mat(k, 167) + lmat(k, 167)
5063 254840160 : mat(k, 169) = mat(k, 169) + lmat(k, 169)
5064 254840160 : mat(k, 170) = mat(k, 170) + lmat(k, 170)
5065 254840160 : mat(k, 171) = mat(k, 171) + lmat(k, 171)
5066 254840160 : mat(k, 173) = mat(k, 173) + lmat(k, 173)
5067 254840160 : mat(k, 174) = mat(k, 174) + lmat(k, 174)
5068 254840160 : mat(k, 175) = mat(k, 175) + lmat(k, 175)
5069 254840160 : mat(k, 176) = mat(k, 176) + lmat(k, 176)
5070 254840160 : mat(k, 178) = mat(k, 178) + lmat(k, 178)
5071 254840160 : mat(k, 179) = lmat(k, 179)
5072 254840160 : mat(k, 180) = lmat(k, 180)
5073 254840160 : mat(k, 182) = mat(k, 182) + lmat(k, 182)
5074 254840160 : mat(k, 188) = lmat(k, 188)
5075 254840160 : mat(k, 189) = lmat(k, 189)
5076 254840160 : mat(k, 190) = lmat(k, 190)
5077 254840160 : mat(k, 191) = lmat(k, 191)
5078 254840160 : mat(k, 192) = mat(k, 192) + lmat(k, 192)
5079 254840160 : mat(k, 197) = mat(k, 197) + lmat(k, 197)
5080 254840160 : mat(k, 201) = mat(k, 201) + lmat(k, 201)
5081 254840160 : mat(k, 203) = mat(k, 203) + lmat(k, 203)
5082 254840160 : mat(k, 204) = mat(k, 204) + lmat(k, 204)
5083 254840160 : mat(k, 207) = lmat(k, 207)
5084 254840160 : mat(k, 208) = lmat(k, 208)
5085 254840160 : mat(k, 209) = lmat(k, 209)
5086 254840160 : mat(k, 211) = mat(k, 211) + lmat(k, 211)
5087 254840160 : mat(k, 218) = mat(k, 218) + lmat(k, 218)
5088 254840160 : mat(k, 223) = lmat(k, 223)
5089 254840160 : mat(k, 224) = lmat(k, 224)
5090 254840160 : mat(k, 225) = lmat(k, 225)
5091 254840160 : mat(k, 226) = lmat(k, 226)
5092 254840160 : mat(k, 229) = mat(k, 229) + lmat(k, 229)
5093 254840160 : mat(k, 237) = mat(k, 237) + lmat(k, 237)
5094 254840160 : mat(k, 242) = lmat(k, 242)
5095 254840160 : mat(k, 243) = lmat(k, 243)
5096 254840160 : mat(k, 244) = lmat(k, 244)
5097 254840160 : mat(k, 245) = mat(k, 245) + lmat(k, 245)
5098 254840160 : mat(k, 248) = mat(k, 248) + lmat(k, 248)
5099 254840160 : mat(k, 249) = mat(k, 249) + lmat(k, 249)
5100 254840160 : mat(k, 251) = mat(k, 251) + lmat(k, 251)
5101 254840160 : mat(k, 252) = mat(k, 252) + lmat(k, 252)
5102 254840160 : mat(k, 254) = mat(k, 254) + lmat(k, 254)
5103 254840160 : mat(k, 256) = mat(k, 256) + lmat(k, 256)
5104 254840160 : mat(k, 257) = mat(k, 257) + lmat(k, 257)
5105 254840160 : mat(k, 259) = mat(k, 259) + lmat(k, 259)
5106 254840160 : mat(k, 260) = mat(k, 260) + lmat(k, 260)
5107 254840160 : mat(k, 261) = mat(k, 261) + lmat(k, 261)
5108 254840160 : mat(k, 264) = mat(k, 264) + lmat(k, 264)
5109 254840160 : mat(k, 266) = lmat(k, 266)
5110 254840160 : mat(k, 267) = lmat(k, 267)
5111 254840160 : mat(k, 268) = lmat(k, 268)
5112 254840160 : mat(k, 269) = lmat(k, 269)
5113 254840160 : mat(k, 270) = lmat(k, 270)
5114 254840160 : mat(k, 271) = lmat(k, 271)
5115 254840160 : mat(k, 272) = lmat(k, 272)
5116 254840160 : mat(k, 273) = lmat(k, 273)
5117 254840160 : mat(k, 274) = lmat(k, 274)
5118 254840160 : mat(k, 275) = lmat(k, 275)
5119 254840160 : mat(k, 276) = lmat(k, 276)
5120 254840160 : mat(k, 277) = lmat(k, 277)
5121 254840160 : mat(k, 279) = mat(k, 279) + lmat(k, 279)
5122 254840160 : mat(k, 280) = lmat(k, 280)
5123 254840160 : mat(k, 281) = lmat(k, 281)
5124 254840160 : mat(k, 283) = mat(k, 283) + lmat(k, 283)
5125 254840160 : mat(k, 287) = mat(k, 287) + lmat(k, 287)
5126 254840160 : mat(k, 288) = lmat(k, 288)
5127 254840160 : mat(k, 290) = mat(k, 290) + lmat(k, 290)
5128 254840160 : mat(k, 291) = lmat(k, 291)
5129 254840160 : mat(k, 292) = lmat(k, 292)
5130 254840160 : mat(k, 293) = lmat(k, 293)
5131 254840160 : mat(k, 294) = lmat(k, 294)
5132 254840160 : mat(k, 295) = lmat(k, 295)
5133 254840160 : mat(k, 296) = lmat(k, 296)
5134 254840160 : mat(k, 297) = lmat(k, 297)
5135 254840160 : mat(k, 298) = lmat(k, 298)
5136 254840160 : mat(k, 299) = lmat(k, 299)
5137 254840160 : mat(k, 300) = lmat(k, 300)
5138 254840160 : mat(k, 301) = lmat(k, 301)
5139 254840160 : mat(k, 302) = lmat(k, 302)
5140 254840160 : mat(k, 303) = lmat(k, 303)
5141 254840160 : mat(k, 304) = mat(k, 304) + lmat(k, 304)
5142 254840160 : mat(k, 310) = mat(k, 310) + lmat(k, 310)
5143 254840160 : mat(k, 316) = mat(k, 316) + lmat(k, 316)
5144 254840160 : mat(k, 322) = lmat(k, 322)
5145 254840160 : mat(k, 323) = lmat(k, 323)
5146 254840160 : mat(k, 324) = lmat(k, 324)
5147 254840160 : mat(k, 325) = mat(k, 325) + lmat(k, 325)
5148 254840160 : mat(k, 326) = mat(k, 326) + lmat(k, 326)
5149 254840160 : mat(k, 329) = mat(k, 329) + lmat(k, 329)
5150 254840160 : mat(k, 332) = mat(k, 332) + lmat(k, 332)
5151 254840160 : mat(k, 334) = lmat(k, 334)
5152 254840160 : mat(k, 335) = lmat(k, 335)
5153 254840160 : mat(k, 336) = mat(k, 336) + lmat(k, 336)
5154 254840160 : mat(k, 337) = lmat(k, 337)
5155 254840160 : mat(k, 338) = lmat(k, 338)
5156 254840160 : mat(k, 339) = lmat(k, 339)
5157 254840160 : mat(k, 340) = lmat(k, 340)
5158 254840160 : mat(k, 341) = lmat(k, 341)
5159 254840160 : mat(k, 342) = mat(k, 342) + lmat(k, 342)
5160 254840160 : mat(k, 345) = lmat(k, 345)
5161 254840160 : mat(k, 346) = mat(k, 346) + lmat(k, 346)
5162 254840160 : mat(k, 347) = mat(k, 347) + lmat(k, 347)
5163 254840160 : mat(k, 349) = lmat(k, 349)
5164 254840160 : mat(k, 350) = lmat(k, 350)
5165 254840160 : mat(k, 351) = mat(k, 351) + lmat(k, 351)
5166 254840160 : mat(k, 352) = lmat(k, 352)
5167 254840160 : mat(k, 353) = mat(k, 353) + lmat(k, 353)
5168 254840160 : mat(k, 356) = lmat(k, 356)
5169 254840160 : mat(k, 357) = mat(k, 357) + lmat(k, 357)
5170 254840160 : mat(k, 358) = mat(k, 358) + lmat(k, 358)
5171 254840160 : mat(k, 360) = mat(k, 360) + lmat(k, 360)
5172 254840160 : mat(k, 361) = lmat(k, 361)
5173 254840160 : mat(k, 362) = mat(k, 362) + lmat(k, 362)
5174 254840160 : mat(k, 363) = mat(k, 363) + lmat(k, 363)
5175 254840160 : mat(k, 364) = mat(k, 364) + lmat(k, 364)
5176 254840160 : mat(k, 365) = mat(k, 365) + lmat(k, 365)
5177 254840160 : mat(k, 367) = mat(k, 367) + lmat(k, 367)
5178 254840160 : mat(k, 368) = mat(k, 368) + lmat(k, 368)
5179 254840160 : mat(k, 369) = mat(k, 369) + lmat(k, 369)
5180 254840160 : mat(k, 370) = mat(k, 370) + lmat(k, 370)
5181 254840160 : mat(k, 372) = mat(k, 372) + lmat(k, 372)
5182 254840160 : mat(k, 373) = mat(k, 373) + lmat(k, 373)
5183 254840160 : mat(k, 374) = mat(k, 374) + lmat(k, 374)
5184 254840160 : mat(k, 375) = lmat(k, 375)
5185 254840160 : mat(k, 376) = lmat(k, 376)
5186 254840160 : mat(k, 377) = mat(k, 377) + lmat(k, 377)
5187 254840160 : mat(k, 385) = mat(k, 385) + lmat(k, 385)
5188 254840160 : mat(k, 386) = lmat(k, 386)
5189 254840160 : mat(k, 389) = mat(k, 389) + lmat(k, 389)
5190 254840160 : mat(k, 393) = mat(k, 393) + lmat(k, 393)
5191 254840160 : mat(k, 397) = lmat(k, 397)
5192 254840160 : mat(k, 398) = mat(k, 398) + lmat(k, 398)
5193 254840160 : mat(k, 401) = lmat(k, 401)
5194 254840160 : mat(k, 402) = lmat(k, 402)
5195 254840160 : mat(k, 403) = lmat(k, 403)
5196 254840160 : mat(k, 404) = lmat(k, 404)
5197 254840160 : mat(k, 405) = mat(k, 405) + lmat(k, 405)
5198 254840160 : mat(k, 407) = lmat(k, 407)
5199 254840160 : mat(k, 408) = lmat(k, 408)
5200 254840160 : mat(k, 409) = mat(k, 409) + lmat(k, 409)
5201 254840160 : mat(k, 411) = mat(k, 411) + lmat(k, 411)
5202 254840160 : mat(k, 413) = lmat(k, 413)
5203 254840160 : mat(k, 414) = lmat(k, 414)
5204 254840160 : mat(k, 415) = mat(k, 415) + lmat(k, 415)
5205 254840160 : mat(k, 417) = mat(k, 417) + lmat(k, 417)
5206 254840160 : mat(k, 418) = lmat(k, 418)
5207 254840160 : mat(k, 420) = lmat(k, 420)
5208 254840160 : mat(k, 421) = lmat(k, 421)
5209 254840160 : mat(k, 422) = mat(k, 422) + lmat(k, 422)
5210 254840160 : mat(k, 423) = mat(k, 423) + lmat(k, 423)
5211 254840160 : mat(k, 426) = lmat(k, 426)
5212 254840160 : mat(k, 427) = mat(k, 427) + lmat(k, 427)
5213 254840160 : mat(k, 429) = mat(k, 429) + lmat(k, 429)
5214 254840160 : mat(k, 431) = lmat(k, 431)
5215 254840160 : mat(k, 432) = lmat(k, 432)
5216 254840160 : mat(k, 433) = lmat(k, 433)
5217 254840160 : mat(k, 434) = mat(k, 434) + lmat(k, 434)
5218 254840160 : mat(k, 437) = mat(k, 437) + lmat(k, 437)
5219 254840160 : mat(k, 443) = mat(k, 443) + lmat(k, 443)
5220 254840160 : mat(k, 444) = lmat(k, 444)
5221 254840160 : mat(k, 445) = lmat(k, 445)
5222 254840160 : mat(k, 446) = mat(k, 446) + lmat(k, 446)
5223 254840160 : mat(k, 447) = mat(k, 447) + lmat(k, 447)
5224 254840160 : mat(k, 449) = mat(k, 449) + lmat(k, 449)
5225 254840160 : mat(k, 450) = lmat(k, 450)
5226 254840160 : mat(k, 451) = mat(k, 451) + lmat(k, 451)
5227 254840160 : mat(k, 453) = mat(k, 453) + lmat(k, 453)
5228 254840160 : mat(k, 456) = mat(k, 456) + lmat(k, 456)
5229 254840160 : mat(k, 462) = mat(k, 462) + lmat(k, 462)
5230 254840160 : mat(k, 463) = mat(k, 463) + lmat(k, 463)
5231 254840160 : mat(k, 468) = lmat(k, 468)
5232 254840160 : mat(k, 469) = lmat(k, 469)
5233 254840160 : mat(k, 470) = lmat(k, 470)
5234 254840160 : mat(k, 471) = mat(k, 471) + lmat(k, 471)
5235 254840160 : mat(k, 473) = lmat(k, 473)
5236 254840160 : mat(k, 474) = lmat(k, 474)
5237 254840160 : mat(k, 475) = mat(k, 475) + lmat(k, 475)
5238 254840160 : mat(k, 477) = mat(k, 477) + lmat(k, 477)
5239 254840160 : mat(k, 479) = mat(k, 479) + lmat(k, 479)
5240 254840160 : mat(k, 480) = mat(k, 480) + lmat(k, 480)
5241 254840160 : mat(k, 484) = mat(k, 484) + lmat(k, 484)
5242 254840160 : mat(k, 488) = mat(k, 488) + lmat(k, 488)
5243 254840160 : mat(k, 491) = mat(k, 491) + lmat(k, 491)
5244 254840160 : mat(k, 492) = mat(k, 492) + lmat(k, 492)
5245 254840160 : mat(k, 493) = lmat(k, 493)
5246 254840160 : mat(k, 494) = lmat(k, 494)
5247 254840160 : mat(k, 495) = mat(k, 495) + lmat(k, 495)
5248 254840160 : mat(k, 496) = mat(k, 496) + lmat(k, 496)
5249 254840160 : mat(k, 502) = mat(k, 502) + lmat(k, 502)
5250 254840160 : mat(k, 503) = lmat(k, 503)
5251 254840160 : mat(k, 507) = lmat(k, 507)
5252 254840160 : mat(k, 509) = lmat(k, 509)
5253 254840160 : mat(k, 510) = mat(k, 510) + lmat(k, 510)
5254 254840160 : mat(k, 514) = mat(k, 514) + lmat(k, 514)
5255 254840160 : mat(k, 521) = mat(k, 521) + lmat(k, 521)
5256 254840160 : mat(k, 524) = mat(k, 524) + lmat(k, 524)
5257 254840160 : mat(k, 525) = mat(k, 525) + lmat(k, 525)
5258 254840160 : mat(k, 526) = lmat(k, 526)
5259 254840160 : mat(k, 527) = lmat(k, 527)
5260 254840160 : mat(k, 528) = mat(k, 528) + lmat(k, 528)
5261 254840160 : mat(k, 529) = lmat(k, 529)
5262 254840160 : mat(k, 533) = lmat(k, 533)
5263 254840160 : mat(k, 536) = mat(k, 536) + lmat(k, 536)
5264 254840160 : mat(k, 543) = mat(k, 543) + lmat(k, 543)
5265 254840160 : mat(k, 544) = mat(k, 544) + lmat(k, 544)
5266 254840160 : mat(k, 546) = lmat(k, 546)
5267 254840160 : mat(k, 550) = mat(k, 550) + lmat(k, 550)
5268 254840160 : mat(k, 556) = mat(k, 556) + lmat(k, 556)
5269 254840160 : mat(k, 558) = lmat(k, 558)
5270 254840160 : mat(k, 559) = lmat(k, 559)
5271 254840160 : mat(k, 561) = mat(k, 561) + lmat(k, 561)
5272 254840160 : mat(k, 562) = lmat(k, 562)
5273 254840160 : mat(k, 563) = lmat(k, 563)
5274 254840160 : mat(k, 564) = lmat(k, 564)
5275 254840160 : mat(k, 566) = mat(k, 566) + lmat(k, 566)
5276 254840160 : mat(k, 567) = mat(k, 567) + lmat(k, 567)
5277 254840160 : mat(k, 568) = lmat(k, 568)
5278 254840160 : mat(k, 569) = mat(k, 569) + lmat(k, 569)
5279 254840160 : mat(k, 570) = lmat(k, 570)
5280 254840160 : mat(k, 571) = lmat(k, 571)
5281 254840160 : mat(k, 573) = lmat(k, 573)
5282 254840160 : mat(k, 574) = mat(k, 574) + lmat(k, 574)
5283 254840160 : mat(k, 575) = lmat(k, 575)
5284 254840160 : mat(k, 577) = mat(k, 577) + lmat(k, 577)
5285 254840160 : mat(k, 579) = lmat(k, 579)
5286 254840160 : mat(k, 581) = lmat(k, 581)
5287 254840160 : mat(k, 582) = lmat(k, 582)
5288 254840160 : mat(k, 583) = mat(k, 583) + lmat(k, 583)
5289 254840160 : mat(k, 585) = mat(k, 585) + lmat(k, 585)
5290 254840160 : mat(k, 593) = mat(k, 593) + lmat(k, 593)
5291 254840160 : mat(k, 596) = lmat(k, 596)
5292 254840160 : mat(k, 597) = lmat(k, 597)
5293 254840160 : mat(k, 598) = lmat(k, 598)
5294 254840160 : mat(k, 599) = mat(k, 599) + lmat(k, 599)
5295 254840160 : mat(k, 601) = mat(k, 601) + lmat(k, 601)
5296 254840160 : mat(k, 602) = mat(k, 602) + lmat(k, 602)
5297 254840160 : mat(k, 603) = lmat(k, 603)
5298 254840160 : mat(k, 604) = lmat(k, 604)
5299 254840160 : mat(k, 605) = mat(k, 605) + lmat(k, 605)
5300 254840160 : mat(k, 613) = mat(k, 613) + lmat(k, 613)
5301 254840160 : mat(k, 616) = lmat(k, 616)
5302 254840160 : mat(k, 617) = lmat(k, 617)
5303 254840160 : mat(k, 618) = mat(k, 618) + lmat(k, 618)
5304 254840160 : mat(k, 619) = mat(k, 619) + lmat(k, 619)
5305 254840160 : mat(k, 621) = mat(k, 621) + lmat(k, 621)
5306 254840160 : mat(k, 622) = mat(k, 622) + lmat(k, 622)
5307 254840160 : mat(k, 623) = mat(k, 623) + lmat(k, 623)
5308 254840160 : mat(k, 624) = mat(k, 624) + lmat(k, 624)
5309 254840160 : mat(k, 625) = mat(k, 625) + lmat(k, 625)
5310 254840160 : mat(k, 626) = mat(k, 626) + lmat(k, 626)
5311 254840160 : mat(k, 630) = lmat(k, 630)
5312 254840160 : mat(k, 631) = mat(k, 631) + lmat(k, 631)
5313 254840160 : mat(k, 632) = mat(k, 632) + lmat(k, 632)
5314 254840160 : mat(k, 634) = mat(k, 634) + lmat(k, 634)
5315 254840160 : mat(k, 635) = mat(k, 635) + lmat(k, 635)
5316 254840160 : mat(k, 636) = mat(k, 636) + lmat(k, 636)
5317 254840160 : mat(k, 637) = mat(k, 637) + lmat(k, 637)
5318 254840160 : mat(k, 638) = mat(k, 638) + lmat(k, 638)
5319 254840160 : mat(k, 639) = mat(k, 639) + lmat(k, 639)
5320 254840160 : mat(k, 640) = mat(k, 640) + lmat(k, 640)
5321 254840160 : mat(k, 641) = lmat(k, 641)
5322 254840160 : mat(k, 642) = mat(k, 642) + lmat(k, 642)
5323 254840160 : mat(k, 643) = lmat(k, 643)
5324 254840160 : mat(k, 644) = lmat(k, 644)
5325 254840160 : mat(k, 645) = lmat(k, 645)
5326 254840160 : mat(k, 646) = mat(k, 646) + lmat(k, 646)
5327 254840160 : mat(k, 647) = mat(k, 647) + lmat(k, 647)
5328 254840160 : mat(k, 650) = lmat(k, 650)
5329 254840160 : mat(k, 655) = mat(k, 655) + lmat(k, 655)
5330 254840160 : mat(k, 659) = lmat(k, 659)
5331 254840160 : mat(k, 662) = mat(k, 662) + lmat(k, 662)
5332 254840160 : mat(k, 664) = mat(k, 664) + lmat(k, 664)
5333 254840160 : mat(k, 667) = lmat(k, 667)
5334 254840160 : mat(k, 671) = mat(k, 671) + lmat(k, 671)
5335 254840160 : mat(k, 673) = mat(k, 673) + lmat(k, 673)
5336 254840160 : mat(k, 676) = lmat(k, 676)
5337 254840160 : mat(k, 677) = lmat(k, 677)
5338 254840160 : mat(k, 678) = lmat(k, 678)
5339 254840160 : mat(k, 679) = lmat(k, 679)
5340 254840160 : mat(k, 680) = mat(k, 680) + lmat(k, 680)
5341 254840160 : mat(k, 682) = mat(k, 682) + lmat(k, 682)
5342 254840160 : mat(k, 684) = lmat(k, 684)
5343 254840160 : mat(k, 685) = lmat(k, 685)
5344 254840160 : mat(k, 686) = lmat(k, 686)
5345 254840160 : mat(k, 687) = lmat(k, 687)
5346 254840160 : mat(k, 688) = mat(k, 688) + lmat(k, 688)
5347 254840160 : mat(k, 689) = mat(k, 689) + lmat(k, 689)
5348 254840160 : mat(k, 690) = mat(k, 690) + lmat(k, 690)
5349 254840160 : mat(k, 691) = lmat(k, 691)
5350 254840160 : mat(k, 692) = lmat(k, 692)
5351 254840160 : mat(k, 693) = mat(k, 693) + lmat(k, 693)
5352 254840160 : mat(k, 697) = lmat(k, 697)
5353 254840160 : mat(k, 698) = mat(k, 698) + lmat(k, 698)
5354 254840160 : mat(k, 702) = mat(k, 702) + lmat(k, 702)
5355 254840160 : mat(k, 703) = mat(k, 703) + lmat(k, 703)
5356 254840160 : mat(k, 706) = lmat(k, 706)
5357 254840160 : mat(k, 707) = mat(k, 707) + lmat(k, 707)
5358 254840160 : mat(k, 711) = mat(k, 711) + lmat(k, 711)
5359 254840160 : mat(k, 717) = lmat(k, 717)
5360 254840160 : mat(k, 718) = mat(k, 718) + lmat(k, 718)
5361 254840160 : mat(k, 722) = lmat(k, 722)
5362 254840160 : mat(k, 723) = lmat(k, 723)
5363 254840160 : mat(k, 725) = lmat(k, 725)
5364 254840160 : mat(k, 726) = lmat(k, 726)
5365 254840160 : mat(k, 727) = mat(k, 727) + lmat(k, 727)
5366 254840160 : mat(k, 728) = mat(k, 728) + lmat(k, 728)
5367 254840160 : mat(k, 731) = lmat(k, 731)
5368 254840160 : mat(k, 732) = lmat(k, 732)
5369 254840160 : mat(k, 734) = lmat(k, 734)
5370 254840160 : mat(k, 735) = mat(k, 735) + lmat(k, 735)
5371 254840160 : mat(k, 736) = lmat(k, 736)
5372 254840160 : mat(k, 738) = lmat(k, 738)
5373 254840160 : mat(k, 739) = lmat(k, 739)
5374 254840160 : mat(k, 740) = lmat(k, 740)
5375 254840160 : mat(k, 741) = mat(k, 741) + lmat(k, 741)
5376 254840160 : mat(k, 746) = lmat(k, 746)
5377 254840160 : mat(k, 747) = lmat(k, 747)
5378 254840160 : mat(k, 749) = lmat(k, 749)
5379 254840160 : mat(k, 750) = mat(k, 750) + lmat(k, 750)
5380 254840160 : mat(k, 751) = lmat(k, 751)
5381 254840160 : mat(k, 752) = mat(k, 752) + lmat(k, 752)
5382 254840160 : mat(k, 755) = mat(k, 755) + lmat(k, 755)
5383 254840160 : mat(k, 756) = mat(k, 756) + lmat(k, 756)
5384 254840160 : mat(k, 758) = mat(k, 758) + lmat(k, 758)
5385 254840160 : mat(k, 759) = lmat(k, 759)
5386 254840160 : mat(k, 760) = mat(k, 760) + lmat(k, 760)
5387 254840160 : mat(k, 763) = mat(k, 763) + lmat(k, 763)
5388 254840160 : mat(k, 770) = mat(k, 770) + lmat(k, 770)
5389 254840160 : mat(k, 771) = lmat(k, 771)
5390 254840160 : mat(k, 772) = lmat(k, 772)
5391 254840160 : mat(k, 773) = mat(k, 773) + lmat(k, 773)
5392 254840160 : mat(k, 774) = mat(k, 774) + lmat(k, 774)
5393 254840160 : mat(k, 776) = lmat(k, 776)
5394 254840160 : mat(k, 777) = lmat(k, 777)
5395 254840160 : mat(k, 778) = mat(k, 778) + lmat(k, 778)
5396 254840160 : mat(k, 779) = mat(k, 779) + lmat(k, 779)
5397 254840160 : mat(k, 780) = mat(k, 780) + lmat(k, 780)
5398 254840160 : mat(k, 782) = mat(k, 782) + lmat(k, 782)
5399 254840160 : mat(k, 783) = mat(k, 783) + lmat(k, 783)
5400 254840160 : mat(k, 785) = lmat(k, 785)
5401 254840160 : mat(k, 786) = lmat(k, 786)
5402 254840160 : mat(k, 787) = lmat(k, 787)
5403 254840160 : mat(k, 788) = lmat(k, 788)
5404 254840160 : mat(k, 789) = lmat(k, 789)
5405 254840160 : mat(k, 790) = mat(k, 790) + lmat(k, 790)
5406 254840160 : mat(k, 791) = mat(k, 791) + lmat(k, 791)
5407 254840160 : mat(k, 797) = mat(k, 797) + lmat(k, 797)
5408 254840160 : mat(k, 805) = mat(k, 805) + lmat(k, 805)
5409 254840160 : mat(k, 813) = mat(k, 813) + lmat(k, 813)
5410 254840160 : mat(k, 827) = mat(k, 827) + lmat(k, 827)
5411 254840160 : mat(k, 838) = lmat(k, 838)
5412 254840160 : mat(k, 839) = lmat(k, 839)
5413 254840160 : mat(k, 840) = lmat(k, 840)
5414 254840160 : mat(k, 841) = lmat(k, 841)
5415 254840160 : mat(k, 842) = mat(k, 842) + lmat(k, 842)
5416 254840160 : mat(k, 847) = lmat(k, 847)
5417 254840160 : mat(k, 848) = lmat(k, 848)
5418 254840160 : mat(k, 851) = lmat(k, 851)
5419 254840160 : mat(k, 852) = mat(k, 852) + lmat(k, 852)
5420 254840160 : mat(k, 855) = mat(k, 855) + lmat(k, 855)
5421 254840160 : mat(k, 862) = mat(k, 862) + lmat(k, 862)
5422 254840160 : mat(k, 873) = mat(k, 873) + lmat(k, 873)
5423 254840160 : mat(k, 883) = mat(k, 883) + lmat(k, 883)
5424 254840160 : mat(k, 885) = mat(k, 885) + lmat(k, 885)
5425 254840160 : mat(k, 886) = mat(k, 886) + lmat(k, 886)
5426 254840160 : mat(k, 887) = mat(k, 887) + lmat(k, 887)
5427 254840160 : mat(k, 888) = mat(k, 888) + lmat(k, 888)
5428 254840160 : mat(k, 895) = mat(k, 895) + lmat(k, 895)
5429 254840160 : mat(k, 906) = mat(k, 906) + lmat(k, 906)
5430 254840160 : mat(k, 914) = mat(k, 914) + lmat(k, 914)
5431 254840160 : mat(k, 919) = mat(k, 919) + lmat(k, 919)
5432 254840160 : mat(k, 924) = mat(k, 924) + lmat(k, 924)
5433 254840160 : mat(k, 926) = mat(k, 926) + lmat(k, 926)
5434 254840160 : mat(k, 927) = mat(k, 927) + lmat(k, 927)
5435 254840160 : mat(k, 928) = mat(k, 928) + lmat(k, 928)
5436 254840160 : mat(k, 929) = mat(k, 929) + lmat(k, 929)
5437 254840160 : mat(k, 939) = mat(k, 939) + lmat(k, 939)
5438 254840160 : mat(k, 951) = mat(k, 951) + lmat(k, 951)
5439 254840160 : mat(k, 960) = mat(k, 960) + lmat(k, 960)
5440 254840160 : mat(k, 969) = mat(k, 969) + lmat(k, 969)
5441 254840160 : mat(k, 970) = mat(k, 970) + lmat(k, 970)
5442 254840160 : mat(k, 971) = lmat(k, 971)
5443 254840160 : mat(k, 972) = lmat(k, 972)
5444 254840160 : mat(k, 974) = mat(k, 974) + lmat(k, 974)
5445 254840160 : mat(k, 975) = lmat(k, 975)
5446 254840160 : mat(k, 976) = lmat(k, 976)
5447 254840160 : mat(k, 977) = lmat(k, 977)
5448 254840160 : mat(k, 978) = lmat(k, 978)
5449 254840160 : mat(k, 979) = lmat(k, 979)
5450 254840160 : mat(k, 980) = lmat(k, 980)
5451 254840160 : mat(k, 981) = lmat(k, 981)
5452 254840160 : mat(k, 982) = lmat(k, 982)
5453 254840160 : mat(k, 983) = mat(k, 983) + lmat(k, 983)
5454 254840160 : mat(k, 984) = lmat(k, 984)
5455 254840160 : mat(k, 986) = mat(k, 986) + lmat(k, 986)
5456 254840160 : mat(k, 987) = lmat(k, 987)
5457 254840160 : mat(k, 988) = lmat(k, 988)
5458 254840160 : mat(k, 990) = lmat(k, 990)
5459 254840160 : mat(k, 991) = lmat(k, 991)
5460 254840160 : mat(k, 992) = mat(k, 992) + lmat(k, 992)
5461 254840160 : mat(k, 995) = mat(k, 995) + lmat(k, 995)
5462 254840160 : mat(k, 996) = lmat(k, 996)
5463 254840160 : mat(k,1001) = mat(k,1001) + lmat(k,1001)
5464 254840160 : mat(k,1006) = mat(k,1006) + lmat(k,1006)
5465 254840160 : mat(k,1015) = mat(k,1015) + lmat(k,1015)
5466 254840160 : mat(k,1024) = mat(k,1024) + lmat(k,1024)
5467 254840160 : mat(k,1041) = mat(k,1041) + lmat(k,1041)
5468 254840160 : mat(k,1054) = mat(k,1054) + lmat(k,1054)
5469 254840160 : mat(k,1057) = lmat(k,1057)
5470 254840160 : mat(k,1061) = mat(k,1061) + lmat(k,1061)
5471 254840160 : mat(k,1071) = mat(k,1071) + lmat(k,1071)
5472 254840160 : mat(k,1092) = mat(k,1092) + lmat(k,1092)
5473 254840160 : mat(k,1106) = mat(k,1106) + lmat(k,1106)
5474 254840160 : mat(k,1110) = mat(k,1110) + lmat(k,1110)
5475 254840160 : mat(k,1111) = lmat(k,1111)
5476 254840160 : mat(k,1112) = lmat(k,1112)
5477 254840160 : mat(k,1113) = lmat(k,1113)
5478 254840160 : mat(k,1116) = lmat(k,1116)
5479 254840160 : mat(k,1118) = lmat(k,1118)
5480 254840160 : mat(k,1119) = mat(k,1119) + lmat(k,1119)
5481 254840160 : mat(k,1121) = mat(k,1121) + lmat(k,1121)
5482 254840160 : mat(k,1122) = mat(k,1122) + lmat(k,1122)
5483 254840160 : mat(k,1129) = mat(k,1129) + lmat(k,1129)
5484 254840160 : mat(k,1132) = mat(k,1132) + lmat(k,1132)
5485 254840160 : mat(k,1134) = mat(k,1134) + lmat(k,1134)
5486 254840160 : mat(k,1140) = mat(k,1140) + lmat(k,1140)
5487 254840160 : mat(k,1143) = mat(k,1143) + lmat(k,1143)
5488 254840160 : mat(k,1145) = lmat(k,1145)
5489 254840160 : mat(k,1146) = lmat(k,1146)
5490 254840160 : mat(k,1147) = lmat(k,1147)
5491 254840160 : mat(k,1148) = lmat(k,1148)
5492 254840160 : mat(k,1150) = mat(k,1150) + lmat(k,1150)
5493 254840160 : mat(k,1151) = mat(k,1151) + lmat(k,1151)
5494 254840160 : mat(k,1152) = mat(k,1152) + lmat(k,1152)
5495 254840160 : mat(k,1159) = mat(k,1159) + lmat(k,1159)
5496 254840160 : mat(k,1163) = mat(k,1163) + lmat(k,1163)
5497 254840160 : mat(k,1164) = mat(k,1164) + lmat(k,1164)
5498 254840160 : mat(k,1166) = mat(k,1166) + lmat(k,1166)
5499 254840160 : mat(k,1172) = lmat(k,1172)
5500 254840160 : mat(k,1175) = mat(k,1175) + lmat(k,1175)
5501 254840160 : mat(k,1182) = mat(k,1182) + lmat(k,1182)
5502 254840160 : mat(k,1194) = mat(k,1194) + lmat(k,1194)
5503 254840160 : mat(k,1200) = lmat(k,1200)
5504 254840160 : mat(k,1201) = lmat(k,1201)
5505 254840160 : mat(k,1206) = lmat(k,1206)
5506 254840160 : mat(k,1208) = lmat(k,1208)
5507 254840160 : mat(k,1209) = mat(k,1209) + lmat(k,1209)
5508 254840160 : mat(k,1210) = mat(k,1210) + lmat(k,1210)
5509 254840160 : mat(k,1212) = mat(k,1212) + lmat(k,1212)
5510 254840160 : mat(k,1214) = mat(k,1214) + lmat(k,1214)
5511 254840160 : mat(k,1218) = mat(k,1218) + lmat(k,1218)
5512 254840160 : mat(k,1228) = mat(k,1228) + lmat(k,1228)
5513 254840160 : mat(k,1229) = mat(k,1229) + lmat(k,1229)
5514 254840160 : mat(k,1230) = lmat(k,1230)
5515 254840160 : mat(k,1231) = lmat(k,1231)
5516 254840160 : mat(k,1232) = mat(k,1232) + lmat(k,1232)
5517 254840160 : mat(k,1235) = mat(k,1235) + lmat(k,1235)
5518 254840160 : mat(k,1236) = lmat(k,1236)
5519 254840160 : mat(k,1237) = lmat(k,1237)
5520 254840160 : mat(k,1242) = mat(k,1242) + lmat(k,1242)
5521 254840160 : mat(k,1251) = lmat(k,1251)
5522 254840160 : mat(k,1252) = mat(k,1252) + lmat(k,1252)
5523 254840160 : mat(k,1260) = lmat(k,1260)
5524 254840160 : mat(k,1262) = mat(k,1262) + lmat(k,1262)
5525 254840160 : mat(k,1263) = mat(k,1263) + lmat(k,1263)
5526 254840160 : mat(k,1272) = mat(k,1272) + lmat(k,1272)
5527 254840160 : mat(k,1289) = mat(k,1289) + lmat(k,1289)
5528 254840160 : mat(k,1290) = lmat(k,1290)
5529 254840160 : mat(k,1291) = lmat(k,1291)
5530 254840160 : mat(k,1294) = lmat(k,1294)
5531 254840160 : mat(k,1298) = mat(k,1298) + lmat(k,1298)
5532 254840160 : mat(k,1309) = mat(k,1309) + lmat(k,1309)
5533 254840160 : mat(k,1311) = mat(k,1311) + lmat(k,1311)
5534 254840160 : mat(k,1322) = mat(k,1322) + lmat(k,1322)
5535 254840160 : mat(k,1324) = mat(k,1324) + lmat(k,1324)
5536 254840160 : mat(k,1325) = mat(k,1325) + lmat(k,1325)
5537 254840160 : mat(k,1326) = mat(k,1326) + lmat(k,1326)
5538 254840160 : mat(k,1329) = mat(k,1329) + lmat(k,1329)
5539 254840160 : mat(k,1330) = mat(k,1330) + lmat(k,1330)
5540 254840160 : mat(k,1331) = lmat(k,1331)
5541 254840160 : mat(k,1332) = mat(k,1332) + lmat(k,1332)
5542 254840160 : mat(k,1336) = mat(k,1336) + lmat(k,1336)
5543 254840160 : mat(k,1350) = mat(k,1350) + lmat(k,1350)
5544 254840160 : mat(k,1361) = mat(k,1361) + lmat(k,1361)
5545 254840160 : mat(k,1363) = mat(k,1363) + lmat(k,1363)
5546 254840160 : mat(k,1376) = mat(k,1376) + lmat(k,1376)
5547 254840160 : mat(k,1377) = mat(k,1377) + lmat(k,1377)
5548 254840160 : mat(k,1385) = mat(k,1385) + lmat(k,1385)
5549 254840160 : mat(k,1410) = mat(k,1410) + lmat(k,1410)
5550 254840160 : mat(k,1431) = mat(k,1431) + lmat(k,1431)
5551 254840160 : mat(k,1432) = lmat(k,1432)
5552 254840160 : mat(k,1435) = lmat(k,1435)
5553 254840160 : mat(k,1436) = lmat(k,1436)
5554 254840160 : mat(k,1440) = mat(k,1440) + lmat(k,1440)
5555 254840160 : mat(k,1454) = mat(k,1454) + lmat(k,1454)
5556 254840160 : mat(k,1456) = lmat(k,1456)
5557 254840160 : mat(k,1457) = mat(k,1457) + lmat(k,1457)
5558 254840160 : mat(k,1458) = lmat(k,1458)
5559 254840160 : mat(k,1459) = mat(k,1459) + lmat(k,1459)
5560 254840160 : mat(k,1461) = mat(k,1461) + lmat(k,1461)
5561 254840160 : mat(k,1462) = mat(k,1462) + lmat(k,1462)
5562 254840160 : mat(k,1463) = lmat(k,1463)
5563 254840160 : mat(k,1464) = mat(k,1464) + lmat(k,1464)
5564 254840160 : mat(k,1465) = lmat(k,1465)
5565 254840160 : mat(k,1466) = lmat(k,1466)
5566 254840160 : mat(k,1467) = lmat(k,1467)
5567 254840160 : mat(k,1468) = mat(k,1468) + lmat(k,1468)
5568 254840160 : mat(k,1469) = lmat(k,1469)
5569 254840160 : mat(k,1470) = lmat(k,1470)
5570 254840160 : mat(k,1473) = lmat(k,1473)
5571 254840160 : mat(k,1474) = mat(k,1474) + lmat(k,1474)
5572 254840160 : mat(k,1475) = lmat(k,1475)
5573 254840160 : mat(k,1476) = mat(k,1476) + lmat(k,1476)
5574 254840160 : mat(k,1478) = mat(k,1478) + lmat(k,1478)
5575 254840160 : mat(k,1479) = mat(k,1479) + lmat(k,1479)
5576 254840160 : mat(k,1481) = mat(k,1481) + lmat(k,1481)
5577 254840160 : mat(k,1483) = lmat(k,1483)
5578 254840160 : mat(k,1484) = lmat(k,1484)
5579 254840160 : mat(k,1485) = mat(k,1485) + lmat(k,1485)
5580 254840160 : mat(k,1487) = mat(k,1487) + lmat(k,1487)
5581 254840160 : mat(k,1492) = mat(k,1492) + lmat(k,1492)
5582 254840160 : mat(k,1494) = mat(k,1494) + lmat(k,1494)
5583 254840160 : mat(k,1498) = mat(k,1498) + lmat(k,1498)
5584 254840160 : mat(k,1499) = lmat(k,1499)
5585 254840160 : mat(k,1500) = mat(k,1500) + lmat(k,1500)
5586 254840160 : mat(k,1502) = mat(k,1502) + lmat(k,1502)
5587 254840160 : mat(k,1503) = lmat(k,1503)
5588 254840160 : mat(k,1504) = mat(k,1504) + lmat(k,1504)
5589 254840160 : mat(k,1505) = mat(k,1505) + lmat(k,1505)
5590 254840160 : mat(k,1508) = mat(k,1508) + lmat(k,1508)
5591 254840160 : mat(k,1524) = mat(k,1524) + lmat(k,1524)
5592 254840160 : mat(k,1536) = mat(k,1536) + lmat(k,1536)
5593 254840160 : mat(k,1537) = mat(k,1537) + lmat(k,1537)
5594 254840160 : mat(k,1538) = lmat(k,1538)
5595 254840160 : mat(k,1539) = lmat(k,1539)
5596 254840160 : mat(k,1540) = mat(k,1540) + lmat(k,1540)
5597 254840160 : mat(k,1543) = mat(k,1543) + lmat(k,1543)
5598 254840160 : mat(k,1545) = mat(k,1545) + lmat(k,1545)
5599 254840160 : mat(k,1548) = mat(k,1548) + lmat(k,1548)
5600 254840160 : mat(k,1556) = mat(k,1556) + lmat(k,1556)
5601 254840160 : mat(k,1557) = mat(k,1557) + lmat(k,1557)
5602 254840160 : mat(k,1558) = mat(k,1558) + lmat(k,1558)
5603 254840160 : mat(k,1559) = lmat(k,1559)
5604 254840160 : mat(k,1560) = mat(k,1560) + lmat(k,1560)
5605 254840160 : mat(k,1572) = mat(k,1572) + lmat(k,1572)
5606 254840160 : mat(k,1583) = mat(k,1583) + lmat(k,1583)
5607 254840160 : mat(k,1586) = lmat(k,1586)
5608 254840160 : mat(k,1591) = lmat(k,1591)
5609 254840160 : mat(k,1595) = mat(k,1595) + lmat(k,1595)
5610 254840160 : mat(k,1598) = lmat(k,1598)
5611 254840160 : mat(k,1599) = mat(k,1599) + lmat(k,1599)
5612 254840160 : mat(k,1600) = mat(k,1600) + lmat(k,1600)
5613 254840160 : mat(k,1604) = lmat(k,1604)
5614 254840160 : mat(k,1613) = lmat(k,1613)
5615 254840160 : mat(k,1614) = lmat(k,1614)
5616 254840160 : mat(k,1615) = lmat(k,1615)
5617 254840160 : mat(k,1620) = mat(k,1620) + lmat(k,1620)
5618 254840160 : mat(k,1640) = mat(k,1640) + lmat(k,1640)
5619 254840160 : mat(k,1643) = mat(k,1643) + lmat(k,1643)
5620 254840160 : mat(k,1645) = mat(k,1645) + lmat(k,1645)
5621 254840160 : mat(k,1647) = mat(k,1647) + lmat(k,1647)
5622 254840160 : mat(k,1655) = mat(k,1655) + lmat(k,1655)
5623 254840160 : mat(k,1659) = mat(k,1659) + lmat(k,1659)
5624 254840160 : mat(k,1660) = lmat(k,1660)
5625 254840160 : mat(k,1661) = lmat(k,1661)
5626 254840160 : mat(k,1666) = lmat(k,1666)
5627 254840160 : mat(k,1669) = lmat(k,1669)
5628 254840160 : mat(k,1673) = mat(k,1673) + lmat(k,1673)
5629 254840160 : mat(k,1689) = mat(k,1689) + lmat(k,1689)
5630 254840160 : mat(k,1691) = lmat(k,1691)
5631 254840160 : mat(k,1694) = lmat(k,1694)
5632 254840160 : mat(k,1695) = lmat(k,1695)
5633 254840160 : mat(k,1702) = mat(k,1702) + lmat(k,1702)
5634 254840160 : mat(k,1704) = lmat(k,1704)
5635 254840160 : mat(k,1705) = lmat(k,1705)
5636 254840160 : mat(k,1707) = lmat(k,1707)
5637 254840160 : mat(k,1708) = lmat(k,1708)
5638 254840160 : mat(k,1712) = mat(k,1712) + lmat(k,1712)
5639 254840160 : mat(k,1713) = lmat(k,1713)
5640 254840160 : mat(k,1715) = mat(k,1715) + lmat(k,1715)
5641 254840160 : mat(k,1716) = mat(k,1716) + lmat(k,1716)
5642 254840160 : mat(k,1718) = mat(k,1718) + lmat(k,1718)
5643 254840160 : mat(k,1719) = lmat(k,1719)
5644 254840160 : mat(k,1720) = mat(k,1720) + lmat(k,1720)
5645 254840160 : mat(k,1723) = lmat(k,1723)
5646 254840160 : mat(k,1726) = lmat(k,1726)
5647 254840160 : mat(k,1732) = mat(k,1732) + lmat(k,1732)
5648 254840160 : mat(k,1748) = lmat(k,1748)
5649 254840160 : mat(k,1754) = mat(k,1754) + lmat(k,1754)
5650 254840160 : mat(k,1770) = mat(k,1770) + lmat(k,1770)
5651 254840160 : mat(k,1772) = lmat(k,1772)
5652 254840160 : mat(k,1773) = lmat(k,1773)
5653 254840160 : mat(k,1774) = mat(k,1774) + lmat(k,1774)
5654 254840160 : mat(k,1776) = mat(k,1776) + lmat(k,1776)
5655 254840160 : mat(k,1777) = mat(k,1777) + lmat(k,1777)
5656 254840160 : mat(k,1778) = mat(k,1778) + lmat(k,1778)
5657 254840160 : mat(k,1779) = lmat(k,1779)
5658 254840160 : mat(k,1780) = mat(k,1780) + lmat(k,1780)
5659 254840160 : mat(k,1782) = lmat(k,1782)
5660 254840160 : mat(k,1783) = mat(k,1783) + lmat(k,1783)
5661 254840160 : mat(k,1784) = mat(k,1784) + lmat(k,1784)
5662 254840160 : mat(k,1787) = lmat(k,1787)
5663 254840160 : mat(k,1790) = lmat(k,1790)
5664 254840160 : mat(k,1791) = lmat(k,1791)
5665 254840160 : mat(k,1793) = mat(k,1793) + lmat(k,1793)
5666 254840160 : mat(k,1795) = lmat(k,1795)
5667 254840160 : mat(k,1801) = mat(k,1801) + lmat(k,1801)
5668 254840160 : mat(k,1802) = mat(k,1802) + lmat(k,1802)
5669 254840160 : mat(k,1803) = lmat(k,1803)
5670 254840160 : mat(k,1804) = lmat(k,1804)
5671 254840160 : mat(k,1805) = lmat(k,1805)
5672 254840160 : mat(k,1806) = lmat(k,1806)
5673 254840160 : mat(k,1817) = mat(k,1817) + lmat(k,1817)
5674 254840160 : mat(k,1823) = mat(k,1823) + lmat(k,1823)
5675 254840160 : mat(k,1830) = mat(k,1830) + lmat(k,1830)
5676 254840160 : mat(k,1833) = mat(k,1833) + lmat(k,1833)
5677 254840160 : mat(k,1834) = lmat(k,1834)
5678 254840160 : mat(k,1835) = lmat(k,1835)
5679 254840160 : mat(k,1836) = lmat(k,1836)
5680 254840160 : mat(k,1837) = lmat(k,1837)
5681 254840160 : mat(k,1848) = mat(k,1848) + lmat(k,1848)
5682 254840160 : mat(k,1855) = mat(k,1855) + lmat(k,1855)
5683 254840160 : mat(k,1861) = mat(k,1861) + lmat(k,1861)
5684 254840160 : mat(k,1864) = mat(k,1864) + lmat(k,1864)
5685 254840160 : mat(k,1868) = mat(k,1868) + lmat(k,1868)
5686 254840160 : mat(k,1869) = lmat(k,1869)
5687 254840160 : mat(k,1870) = mat(k,1870) + lmat(k,1870)
5688 254840160 : mat(k,1872) = mat(k,1872) + lmat(k,1872)
5689 254840160 : mat(k,1874) = mat(k,1874) + lmat(k,1874)
5690 254840160 : mat(k,1875) = mat(k,1875) + lmat(k,1875)
5691 254840160 : mat(k,1876) = lmat(k,1876)
5692 254840160 : mat(k,1880) = mat(k,1880) + lmat(k,1880)
5693 254840160 : mat(k,1882) = mat(k,1882) + lmat(k,1882)
5694 254840160 : mat(k,1896) = mat(k,1896) + lmat(k,1896)
5695 254840160 : mat(k,1901) = lmat(k,1901)
5696 254840160 : mat(k,1902) = lmat(k,1902)
5697 254840160 : mat(k,1907) = lmat(k,1907)
5698 254840160 : mat(k,1908) = mat(k,1908) + lmat(k,1908)
5699 254840160 : mat(k,1910) = mat(k,1910) + lmat(k,1910)
5700 254840160 : mat(k,1912) = lmat(k,1912)
5701 254840160 : mat(k,1915) = lmat(k,1915)
5702 254840160 : mat(k,1916) = mat(k,1916) + lmat(k,1916)
5703 254840160 : mat(k,1917) = lmat(k,1917)
5704 254840160 : mat(k,1919) = lmat(k,1919)
5705 254840160 : mat(k,1922) = lmat(k,1922)
5706 254840160 : mat(k,1923) = mat(k,1923) + lmat(k,1923)
5707 254840160 : mat(k,1924) = lmat(k,1924)
5708 254840160 : mat(k,1926) = mat(k,1926) + lmat(k,1926)
5709 254840160 : mat(k,1927) = mat(k,1927) + lmat(k,1927)
5710 254840160 : mat(k,1928) = mat(k,1928) + lmat(k,1928)
5711 254840160 : mat(k,1930) = lmat(k,1930)
5712 254840160 : mat(k,1934) = lmat(k,1934)
5713 254840160 : mat(k,1935) = lmat(k,1935)
5714 254840160 : mat(k,1953) = mat(k,1953) + lmat(k,1953)
5715 254840160 : mat(k,1956) = mat(k,1956) + lmat(k,1956)
5716 254840160 : mat(k,1963) = mat(k,1963) + lmat(k,1963)
5717 254840160 : mat(k,1968) = mat(k,1968) + lmat(k,1968)
5718 254840160 : mat(k,1970) = lmat(k,1970)
5719 254840160 : mat(k,1971) = lmat(k,1971)
5720 254840160 : mat(k,1991) = mat(k,1991) + lmat(k,1991)
5721 254840160 : mat(k,1992) = mat(k,1992) + lmat(k,1992)
5722 254840160 : mat(k,2002) = mat(k,2002) + lmat(k,2002)
5723 254840160 : mat(k,2007) = mat(k,2007) + lmat(k,2007)
5724 254840160 : mat(k,2012) = mat(k,2012) + lmat(k,2012)
5725 254840160 : mat(k,2016) = mat(k,2016) + lmat(k,2016)
5726 254840160 : mat(k,2017) = mat(k,2017) + lmat(k,2017)
5727 254840160 : mat(k,2019) = mat(k,2019) + lmat(k,2019)
5728 254840160 : mat(k,2023) = mat(k,2023) + lmat(k,2023)
5729 254840160 : mat(k,2024) = mat(k,2024) + lmat(k,2024)
5730 254840160 : mat(k,2025) = lmat(k,2025)
5731 254840160 : mat(k,2032) = lmat(k,2032)
5732 254840160 : mat(k,2041) = mat(k,2041) + lmat(k,2041)
5733 254840160 : mat(k,2042) = mat(k,2042) + lmat(k,2042)
5734 254840160 : mat(k,2044) = mat(k,2044) + lmat(k,2044)
5735 254840160 : mat(k,2050) = lmat(k,2050)
5736 254840160 : mat(k,2057) = mat(k,2057) + lmat(k,2057)
5737 254840160 : mat(k,2062) = lmat(k,2062)
5738 254840160 : mat(k,2074) = lmat(k,2074)
5739 254840160 : mat(k,2077) = mat(k,2077) + lmat(k,2077)
5740 254840160 : mat(k,2078) = mat(k,2078) + lmat(k,2078)
5741 254840160 : mat(k,2081) = lmat(k,2081)
5742 254840160 : mat(k,2086) = mat(k,2086) + lmat(k,2086)
5743 254840160 : mat(k,2088) = mat(k,2088) + lmat(k,2088)
5744 254840160 : mat(k,2091) = mat(k,2091) + lmat(k,2091)
5745 254840160 : mat(k,2098) = lmat(k,2098)
5746 254840160 : mat(k,2106) = lmat(k,2106)
5747 254840160 : mat(k,2109) = mat(k,2109) + lmat(k,2109)
5748 254840160 : mat(k,2110) = mat(k,2110) + lmat(k,2110)
5749 254840160 : mat(k,2113) = lmat(k,2113)
5750 254840160 : mat(k,2118) = mat(k,2118) + lmat(k,2118)
5751 254840160 : mat(k,2120) = mat(k,2120) + lmat(k,2120)
5752 254840160 : mat(k,2123) = mat(k,2123) + lmat(k,2123)
5753 254840160 : mat(k,2136) = lmat(k,2136)
5754 254840160 : mat(k,2140) = mat(k,2140) + lmat(k,2140)
5755 254840160 : mat(k,2142) = lmat(k,2142)
5756 254840160 : mat(k,2147) = mat(k,2147) + lmat(k,2147)
5757 254840160 : mat(k,2149) = mat(k,2149) + lmat(k,2149)
5758 254840160 : mat(k,2180) = mat(k,2180) + lmat(k,2180)
5759 254840160 : mat(k,2199) = mat(k,2199) + lmat(k,2199)
5760 254840160 : mat(k,2213) = mat(k,2213) + lmat(k,2213)
5761 254840160 : mat(k,2235) = mat(k,2235) + lmat(k,2235)
5762 254840160 : mat(k,2256) = lmat(k,2256)
5763 254840160 : mat(k,2257) = mat(k,2257) + lmat(k,2257)
5764 254840160 : mat(k,2258) = lmat(k,2258)
5765 254840160 : mat(k,2259) = mat(k,2259) + lmat(k,2259)
5766 254840160 : mat(k,2260) = mat(k,2260) + lmat(k,2260)
5767 254840160 : mat(k,2263) = lmat(k,2263)
5768 254840160 : mat(k,2264) = mat(k,2264) + lmat(k,2264)
5769 254840160 : mat(k,2266) = mat(k,2266) + lmat(k,2266)
5770 254840160 : mat(k,2270) = mat(k,2270) + lmat(k,2270)
5771 254840160 : mat(k,2271) = mat(k,2271) + lmat(k,2271)
5772 254840160 : mat(k,2277) = mat(k,2277) + lmat(k,2277)
5773 254840160 : mat(k,2278) = lmat(k,2278)
5774 254840160 : mat(k,2284) = lmat(k,2284)
5775 254840160 : mat(k,2296) = mat(k,2296) + lmat(k,2296)
5776 254840160 : mat(k,2320) = mat(k,2320) + lmat(k,2320)
5777 254840160 : mat(k,2322) = lmat(k,2322)
5778 254840160 : mat(k,2329) = lmat(k,2329)
5779 254840160 : mat(k,2332) = mat(k,2332) + lmat(k,2332)
5780 254840160 : mat(k,2339) = mat(k,2339) + lmat(k,2339)
5781 254840160 : mat(k,2358) = lmat(k,2358)
5782 254840160 : mat(k,2359) = mat(k,2359) + lmat(k,2359)
5783 254840160 : mat(k,2360) = lmat(k,2360)
5784 254840160 : mat(k,2365) = lmat(k,2365)
5785 254840160 : mat(k,2380) = mat(k,2380) + lmat(k,2380)
5786 254840160 : mat(k,2408) = mat(k,2408) + lmat(k,2408)
5787 254840160 : mat(k,2441) = mat(k,2441) + lmat(k,2441)
5788 254840160 : mat(k,2471) = mat(k,2471) + lmat(k,2471)
5789 254840160 : mat(k,2505) = mat(k,2505) + lmat(k,2505)
5790 254840160 : mat(k,2536) = mat(k,2536) + lmat(k,2536)
5791 254840160 : mat(k,2570) = mat(k,2570) + lmat(k,2570)
5792 254840160 : mat(k,2600) = mat(k,2600) + lmat(k,2600)
5793 254840160 : mat(k,2629) = mat(k,2629) + lmat(k,2629)
5794 254840160 : mat(k,2654) = mat(k,2654) + lmat(k,2654)
5795 254840160 : mat(k,2677) = mat(k,2677) + lmat(k,2677)
5796 254840160 : mat(k,2701) = mat(k,2701) + lmat(k,2701)
5797 254840160 : mat(k,2745) = mat(k,2745) + lmat(k,2745)
5798 254840160 : mat(k,2792) = mat(k,2792) + lmat(k,2792)
5799 254840160 : mat(k,2840) = mat(k,2840) + lmat(k,2840)
5800 254840160 : mat(k,2913) = mat(k,2913) + lmat(k,2913)
5801 254840160 : mat(k,2931) = mat(k,2931) + lmat(k,2931)
5802 254840160 : mat(k,2936) = mat(k,2936) + lmat(k,2936)
5803 254840160 : mat(k,2949) = mat(k,2949) + lmat(k,2949)
5804 254840160 : mat(k,2956) = lmat(k,2956)
5805 254840160 : mat(k,2960) = mat(k,2960) + lmat(k,2960)
5806 254840160 : mat(k,2986) = mat(k,2986) + lmat(k,2986)
5807 254840160 : mat(k,3106) = mat(k,3106) + lmat(k,3106)
5808 254840160 : mat(k,3108) = mat(k,3108) + lmat(k,3108)
5809 254840160 : mat(k,3127) = mat(k,3127) + lmat(k,3127)
5810 254840160 : mat(k,3129) = mat(k,3129) + lmat(k,3129)
5811 254840160 : mat(k,3140) = mat(k,3140) + lmat(k,3140)
5812 254840160 : mat(k,3161) = mat(k,3161) + lmat(k,3161)
5813 254840160 : mat(k,3169) = mat(k,3169) + lmat(k,3169)
5814 254840160 : mat(k,3179) = lmat(k,3179)
5815 254840160 : mat(k,3180) = mat(k,3180) + lmat(k,3180)
5816 254840160 : mat(k,3183) = mat(k,3183) + lmat(k,3183)
5817 254840160 : mat(k,3188) = mat(k,3188) + lmat(k,3188)
5818 254840160 : mat(k,3369) = mat(k,3369) + lmat(k,3369)
5819 254840160 : mat(k,3379) = mat(k,3379) + lmat(k,3379)
5820 254840160 : mat(k,3463) = mat(k,3463) + lmat(k,3463)
5821 254840160 : mat(k,3479) = mat(k,3479) + lmat(k,3479)
5822 254840160 : mat(k,3484) = mat(k,3484) + lmat(k,3484)
5823 254840160 : mat(k,3488) = mat(k,3488) + lmat(k,3488)
5824 254840160 : mat(k,3510) = mat(k,3510) + lmat(k,3510)
5825 254840160 : mat(k,3515) = mat(k,3515) + lmat(k,3515)
5826 254840160 : mat(k,3520) = mat(k,3520) + lmat(k,3520)
5827 254840160 : mat(k,3601) = mat(k,3601) + lmat(k,3601)
5828 254840160 : mat(k,3602) = mat(k,3602) + lmat(k,3602)
5829 254840160 : mat(k,3604) = mat(k,3604) + lmat(k,3604)
5830 254840160 : mat(k,3610) = mat(k,3610) + lmat(k,3610)
5831 254840160 : mat(k,3611) = mat(k,3611) + lmat(k,3611)
5832 254840160 : mat(k,3653) = mat(k,3653) + lmat(k,3653)
5833 254840160 : mat(k,3654) = mat(k,3654) + lmat(k,3654)
5834 254840160 : mat(k,3656) = mat(k,3656) + lmat(k,3656)
5835 254840160 : mat(k,3663) = mat(k,3663) + lmat(k,3663)
5836 254840160 : mat(k,3667) = mat(k,3667) + lmat(k,3667)
5837 254840160 : mat(k,3758) = mat(k,3758) + lmat(k,3758)
5838 254840160 : mat(k,3766) = mat(k,3766) + lmat(k,3766)
5839 254840160 : mat(k,3767) = mat(k,3767) + lmat(k,3767)
5840 254840160 : mat(k,3799) = lmat(k,3799)
5841 254840160 : mat(k,3808) = mat(k,3808) + lmat(k,3808)
5842 254840160 : mat(k,3850) = mat(k,3850) + lmat(k,3850)
5843 254840160 : mat(k,4101) = mat(k,4101) + lmat(k,4101)
5844 254840160 : mat(k,4109) = lmat(k,4109)
5845 254840160 : mat(k,4112) = lmat(k,4112)
5846 254840160 : mat(k,4116) = lmat(k,4116)
5847 254840160 : mat(k,4125) = mat(k,4125) + lmat(k,4125)
5848 254840160 : mat(k,4127) = mat(k,4127) + lmat(k,4127)
5849 254840160 : mat(k,4128) = mat(k,4128) + lmat(k,4128)
5850 254840160 : mat(k, 233) = 0._r8
5851 254840160 : mat(k, 234) = 0._r8
5852 254840160 : mat(k, 262) = 0._r8
5853 254840160 : mat(k, 327) = 0._r8
5854 254840160 : mat(k, 355) = 0._r8
5855 254840160 : mat(k, 438) = 0._r8
5856 254840160 : mat(k, 442) = 0._r8
5857 254840160 : mat(k, 461) = 0._r8
5858 254840160 : mat(k, 482) = 0._r8
5859 254840160 : mat(k, 515) = 0._r8
5860 254840160 : mat(k, 520) = 0._r8
5861 254840160 : mat(k, 542) = 0._r8
5862 254840160 : mat(k, 715) = 0._r8
5863 254840160 : mat(k, 716) = 0._r8
5864 254840160 : mat(k, 719) = 0._r8
5865 254840160 : mat(k, 721) = 0._r8
5866 254840160 : mat(k, 724) = 0._r8
5867 254840160 : mat(k, 742) = 0._r8
5868 254840160 : mat(k, 744) = 0._r8
5869 254840160 : mat(k, 745) = 0._r8
5870 254840160 : mat(k, 748) = 0._r8
5871 254840160 : mat(k, 753) = 0._r8
5872 254840160 : mat(k, 754) = 0._r8
5873 254840160 : mat(k, 757) = 0._r8
5874 254840160 : mat(k, 843) = 0._r8
5875 254840160 : mat(k, 845) = 0._r8
5876 254840160 : mat(k, 846) = 0._r8
5877 254840160 : mat(k, 849) = 0._r8
5878 254840160 : mat(k, 850) = 0._r8
5879 254840160 : mat(k, 856) = 0._r8
5880 254840160 : mat(k, 861) = 0._r8
5881 254840160 : mat(k, 872) = 0._r8
5882 254840160 : mat(k, 874) = 0._r8
5883 254840160 : mat(k, 875) = 0._r8
5884 254840160 : mat(k, 878) = 0._r8
5885 254840160 : mat(k, 882) = 0._r8
5886 254840160 : mat(k, 894) = 0._r8
5887 254840160 : mat(k, 896) = 0._r8
5888 254840160 : mat(k, 897) = 0._r8
5889 254840160 : mat(k, 900) = 0._r8
5890 254840160 : mat(k, 901) = 0._r8
5891 254840160 : mat(k, 905) = 0._r8
5892 254840160 : mat(k, 941) = 0._r8
5893 254840160 : mat(k, 946) = 0._r8
5894 254840160 : mat(k, 947) = 0._r8
5895 254840160 : mat(k, 950) = 0._r8
5896 254840160 : mat(k, 953) = 0._r8
5897 254840160 : mat(k, 954) = 0._r8
5898 254840160 : mat(k,1000) = 0._r8
5899 254840160 : mat(k,1004) = 0._r8
5900 254840160 : mat(k,1007) = 0._r8
5901 254840160 : mat(k,1009) = 0._r8
5902 254840160 : mat(k,1018) = 0._r8
5903 254840160 : mat(k,1032) = 0._r8
5904 254840160 : mat(k,1033) = 0._r8
5905 254840160 : mat(k,1043) = 0._r8
5906 254840160 : mat(k,1047) = 0._r8
5907 254840160 : mat(k,1048) = 0._r8
5908 254840160 : mat(k,1073) = 0._r8
5909 254840160 : mat(k,1077) = 0._r8
5910 254840160 : mat(k,1079) = 0._r8
5911 254840160 : mat(k,1094) = 0._r8
5912 254840160 : mat(k,1181) = 0._r8
5913 254840160 : mat(k,1183) = 0._r8
5914 254840160 : mat(k,1186) = 0._r8
5915 254840160 : mat(k,1191) = 0._r8
5916 254840160 : mat(k,1193) = 0._r8
5917 254840160 : mat(k,1196) = 0._r8
5918 254840160 : mat(k,1197) = 0._r8
5919 254840160 : mat(k,1198) = 0._r8
5920 254840160 : mat(k,1199) = 0._r8
5921 254840160 : mat(k,1202) = 0._r8
5922 254840160 : mat(k,1205) = 0._r8
5923 254840160 : mat(k,1207) = 0._r8
5924 254840160 : mat(k,1220) = 0._r8
5925 254840160 : mat(k,1221) = 0._r8
5926 254840160 : mat(k,1222) = 0._r8
5927 254840160 : mat(k,1227) = 0._r8
5928 254840160 : mat(k,1240) = 0._r8
5929 254840160 : mat(k,1258) = 0._r8
5930 254840160 : mat(k,1275) = 0._r8
5931 254840160 : mat(k,1280) = 0._r8
5932 254840160 : mat(k,1283) = 0._r8
5933 254840160 : mat(k,1334) = 0._r8
5934 254840160 : mat(k,1347) = 0._r8
5935 254840160 : mat(k,1358) = 0._r8
5936 254840160 : mat(k,1364) = 0._r8
5937 254840160 : mat(k,1369) = 0._r8
5938 254840160 : mat(k,1370) = 0._r8
5939 254840160 : mat(k,1371) = 0._r8
5940 254840160 : mat(k,1389) = 0._r8
5941 254840160 : mat(k,1392) = 0._r8
5942 254840160 : mat(k,1397) = 0._r8
5943 254840160 : mat(k,1400) = 0._r8
5944 254840160 : mat(k,1413) = 0._r8
5945 254840160 : mat(k,1414) = 0._r8
5946 254840160 : mat(k,1415) = 0._r8
5947 254840160 : mat(k,1416) = 0._r8
5948 254840160 : mat(k,1417) = 0._r8
5949 254840160 : mat(k,1418) = 0._r8
5950 254840160 : mat(k,1430) = 0._r8
5951 254840160 : mat(k,1523) = 0._r8
5952 254840160 : mat(k,1525) = 0._r8
5953 254840160 : mat(k,1526) = 0._r8
5954 254840160 : mat(k,1527) = 0._r8
5955 254840160 : mat(k,1528) = 0._r8
5956 254840160 : mat(k,1529) = 0._r8
5957 254840160 : mat(k,1530) = 0._r8
5958 254840160 : mat(k,1531) = 0._r8
5959 254840160 : mat(k,1532) = 0._r8
5960 254840160 : mat(k,1534) = 0._r8
5961 254840160 : mat(k,1567) = 0._r8
5962 254840160 : mat(k,1573) = 0._r8
5963 254840160 : mat(k,1574) = 0._r8
5964 254840160 : mat(k,1575) = 0._r8
5965 254840160 : mat(k,1576) = 0._r8
5966 254840160 : mat(k,1577) = 0._r8
5967 254840160 : mat(k,1578) = 0._r8
5968 254840160 : mat(k,1579) = 0._r8
5969 254840160 : mat(k,1580) = 0._r8
5970 254840160 : mat(k,1582) = 0._r8
5971 254840160 : mat(k,1585) = 0._r8
5972 254840160 : mat(k,1587) = 0._r8
5973 254840160 : mat(k,1588) = 0._r8
5974 254840160 : mat(k,1589) = 0._r8
5975 254840160 : mat(k,1590) = 0._r8
5976 254840160 : mat(k,1594) = 0._r8
5977 254840160 : mat(k,1596) = 0._r8
5978 254840160 : mat(k,1605) = 0._r8
5979 254840160 : mat(k,1612) = 0._r8
5980 254840160 : mat(k,1621) = 0._r8
5981 254840160 : mat(k,1625) = 0._r8
5982 254840160 : mat(k,1633) = 0._r8
5983 254840160 : mat(k,1639) = 0._r8
5984 254840160 : mat(k,1641) = 0._r8
5985 254840160 : mat(k,1642) = 0._r8
5986 254840160 : mat(k,1644) = 0._r8
5987 254840160 : mat(k,1648) = 0._r8
5988 254840160 : mat(k,1649) = 0._r8
5989 254840160 : mat(k,1651) = 0._r8
5990 254840160 : mat(k,1652) = 0._r8
5991 254840160 : mat(k,1657) = 0._r8
5992 254840160 : mat(k,1658) = 0._r8
5993 254840160 : mat(k,1662) = 0._r8
5994 254840160 : mat(k,1663) = 0._r8
5995 254840160 : mat(k,1664) = 0._r8
5996 254840160 : mat(k,1665) = 0._r8
5997 254840160 : mat(k,1667) = 0._r8
5998 254840160 : mat(k,1674) = 0._r8
5999 254840160 : mat(k,1676) = 0._r8
6000 254840160 : mat(k,1679) = 0._r8
6001 254840160 : mat(k,1680) = 0._r8
6002 254840160 : mat(k,1686) = 0._r8
6003 254840160 : mat(k,1687) = 0._r8
6004 254840160 : mat(k,1688) = 0._r8
6005 254840160 : mat(k,1690) = 0._r8
6006 254840160 : mat(k,1692) = 0._r8
6007 254840160 : mat(k,1693) = 0._r8
6008 254840160 : mat(k,1698) = 0._r8
6009 254840160 : mat(k,1699) = 0._r8
6010 254840160 : mat(k,1700) = 0._r8
6011 254840160 : mat(k,1701) = 0._r8
6012 254840160 : mat(k,1703) = 0._r8
6013 254840160 : mat(k,1706) = 0._r8
6014 254840160 : mat(k,1714) = 0._r8
6015 254840160 : mat(k,1731) = 0._r8
6016 254840160 : mat(k,1733) = 0._r8
6017 254840160 : mat(k,1736) = 0._r8
6018 254840160 : mat(k,1737) = 0._r8
6019 254840160 : mat(k,1742) = 0._r8
6020 254840160 : mat(k,1753) = 0._r8
6021 254840160 : mat(k,1755) = 0._r8
6022 254840160 : mat(k,1758) = 0._r8
6023 254840160 : mat(k,1759) = 0._r8
6024 254840160 : mat(k,1764) = 0._r8
6025 254840160 : mat(k,1781) = 0._r8
6026 254840160 : mat(k,1789) = 0._r8
6027 254840160 : mat(k,1797) = 0._r8
6028 254840160 : mat(k,1798) = 0._r8
6029 254840160 : mat(k,1799) = 0._r8
6030 254840160 : mat(k,1800) = 0._r8
6031 254840160 : mat(k,1807) = 0._r8
6032 254840160 : mat(k,1809) = 0._r8
6033 254840160 : mat(k,1812) = 0._r8
6034 254840160 : mat(k,1814) = 0._r8
6035 254840160 : mat(k,1815) = 0._r8
6036 254840160 : mat(k,1816) = 0._r8
6037 254840160 : mat(k,1820) = 0._r8
6038 254840160 : mat(k,1821) = 0._r8
6039 254840160 : mat(k,1822) = 0._r8
6040 254840160 : mat(k,1825) = 0._r8
6041 254840160 : mat(k,1828) = 0._r8
6042 254840160 : mat(k,1838) = 0._r8
6043 254840160 : mat(k,1840) = 0._r8
6044 254840160 : mat(k,1841) = 0._r8
6045 254840160 : mat(k,1844) = 0._r8
6046 254840160 : mat(k,1846) = 0._r8
6047 254840160 : mat(k,1847) = 0._r8
6048 254840160 : mat(k,1851) = 0._r8
6049 254840160 : mat(k,1852) = 0._r8
6050 254840160 : mat(k,1853) = 0._r8
6051 254840160 : mat(k,1854) = 0._r8
6052 254840160 : mat(k,1859) = 0._r8
6053 254840160 : mat(k,1865) = 0._r8
6054 254840160 : mat(k,1867) = 0._r8
6055 254840160 : mat(k,1871) = 0._r8
6056 254840160 : mat(k,1873) = 0._r8
6057 254840160 : mat(k,1877) = 0._r8
6058 254840160 : mat(k,1878) = 0._r8
6059 254840160 : mat(k,1879) = 0._r8
6060 254840160 : mat(k,1881) = 0._r8
6061 254840160 : mat(k,1886) = 0._r8
6062 254840160 : mat(k,1887) = 0._r8
6063 254840160 : mat(k,1888) = 0._r8
6064 254840160 : mat(k,1889) = 0._r8
6065 254840160 : mat(k,1891) = 0._r8
6066 254840160 : mat(k,1894) = 0._r8
6067 254840160 : mat(k,1897) = 0._r8
6068 254840160 : mat(k,1898) = 0._r8
6069 254840160 : mat(k,1903) = 0._r8
6070 254840160 : mat(k,1904) = 0._r8
6071 254840160 : mat(k,1905) = 0._r8
6072 254840160 : mat(k,1906) = 0._r8
6073 254840160 : mat(k,1909) = 0._r8
6074 254840160 : mat(k,1914) = 0._r8
6075 254840160 : mat(k,1920) = 0._r8
6076 254840160 : mat(k,1921) = 0._r8
6077 254840160 : mat(k,1938) = 0._r8
6078 254840160 : mat(k,1939) = 0._r8
6079 254840160 : mat(k,1940) = 0._r8
6080 254840160 : mat(k,1942) = 0._r8
6081 254840160 : mat(k,1943) = 0._r8
6082 254840160 : mat(k,1944) = 0._r8
6083 254840160 : mat(k,1945) = 0._r8
6084 254840160 : mat(k,1946) = 0._r8
6085 254840160 : mat(k,1947) = 0._r8
6086 254840160 : mat(k,1948) = 0._r8
6087 254840160 : mat(k,1949) = 0._r8
6088 254840160 : mat(k,1951) = 0._r8
6089 254840160 : mat(k,1952) = 0._r8
6090 254840160 : mat(k,1954) = 0._r8
6091 254840160 : mat(k,1955) = 0._r8
6092 254840160 : mat(k,1957) = 0._r8
6093 254840160 : mat(k,1958) = 0._r8
6094 254840160 : mat(k,1960) = 0._r8
6095 254840160 : mat(k,1962) = 0._r8
6096 254840160 : mat(k,1966) = 0._r8
6097 254840160 : mat(k,1969) = 0._r8
6098 254840160 : mat(k,1974) = 0._r8
6099 254840160 : mat(k,1975) = 0._r8
6100 254840160 : mat(k,1977) = 0._r8
6101 254840160 : mat(k,1979) = 0._r8
6102 254840160 : mat(k,1980) = 0._r8
6103 254840160 : mat(k,1981) = 0._r8
6104 254840160 : mat(k,1982) = 0._r8
6105 254840160 : mat(k,1983) = 0._r8
6106 254840160 : mat(k,1984) = 0._r8
6107 254840160 : mat(k,1985) = 0._r8
6108 254840160 : mat(k,1988) = 0._r8
6109 254840160 : mat(k,1989) = 0._r8
6110 254840160 : mat(k,1990) = 0._r8
6111 254840160 : mat(k,1993) = 0._r8
6112 254840160 : mat(k,1994) = 0._r8
6113 254840160 : mat(k,1995) = 0._r8
6114 254840160 : mat(k,1996) = 0._r8
6115 254840160 : mat(k,1997) = 0._r8
6116 254840160 : mat(k,1999) = 0._r8
6117 254840160 : mat(k,2001) = 0._r8
6118 254840160 : mat(k,2005) = 0._r8
6119 254840160 : mat(k,2008) = 0._r8
6120 254840160 : mat(k,2011) = 0._r8
6121 254840160 : mat(k,2013) = 0._r8
6122 254840160 : mat(k,2014) = 0._r8
6123 254840160 : mat(k,2018) = 0._r8
6124 254840160 : mat(k,2020) = 0._r8
6125 254840160 : mat(k,2021) = 0._r8
6126 254840160 : mat(k,2022) = 0._r8
6127 254840160 : mat(k,2026) = 0._r8
6128 254840160 : mat(k,2027) = 0._r8
6129 254840160 : mat(k,2034) = 0._r8
6130 254840160 : mat(k,2037) = 0._r8
6131 254840160 : mat(k,2038) = 0._r8
6132 254840160 : mat(k,2039) = 0._r8
6133 254840160 : mat(k,2043) = 0._r8
6134 254840160 : mat(k,2045) = 0._r8
6135 254840160 : mat(k,2046) = 0._r8
6136 254840160 : mat(k,2047) = 0._r8
6137 254840160 : mat(k,2051) = 0._r8
6138 254840160 : mat(k,2052) = 0._r8
6139 254840160 : mat(k,2055) = 0._r8
6140 254840160 : mat(k,2058) = 0._r8
6141 254840160 : mat(k,2063) = 0._r8
6142 254840160 : mat(k,2068) = 0._r8
6143 254840160 : mat(k,2069) = 0._r8
6144 254840160 : mat(k,2071) = 0._r8
6145 254840160 : mat(k,2073) = 0._r8
6146 254840160 : mat(k,2075) = 0._r8
6147 254840160 : mat(k,2080) = 0._r8
6148 254840160 : mat(k,2082) = 0._r8
6149 254840160 : mat(k,2083) = 0._r8
6150 254840160 : mat(k,2084) = 0._r8
6151 254840160 : mat(k,2085) = 0._r8
6152 254840160 : mat(k,2087) = 0._r8
6153 254840160 : mat(k,2090) = 0._r8
6154 254840160 : mat(k,2092) = 0._r8
6155 254840160 : mat(k,2095) = 0._r8
6156 254840160 : mat(k,2100) = 0._r8
6157 254840160 : mat(k,2101) = 0._r8
6158 254840160 : mat(k,2102) = 0._r8
6159 254840160 : mat(k,2104) = 0._r8
6160 254840160 : mat(k,2105) = 0._r8
6161 254840160 : mat(k,2112) = 0._r8
6162 254840160 : mat(k,2114) = 0._r8
6163 254840160 : mat(k,2115) = 0._r8
6164 254840160 : mat(k,2116) = 0._r8
6165 254840160 : mat(k,2117) = 0._r8
6166 254840160 : mat(k,2119) = 0._r8
6167 254840160 : mat(k,2122) = 0._r8
6168 254840160 : mat(k,2124) = 0._r8
6169 254840160 : mat(k,2132) = 0._r8
6170 254840160 : mat(k,2133) = 0._r8
6171 254840160 : mat(k,2135) = 0._r8
6172 254840160 : mat(k,2143) = 0._r8
6173 254840160 : mat(k,2144) = 0._r8
6174 254840160 : mat(k,2145) = 0._r8
6175 254840160 : mat(k,2146) = 0._r8
6176 254840160 : mat(k,2148) = 0._r8
6177 254840160 : mat(k,2151) = 0._r8
6178 254840160 : mat(k,2153) = 0._r8
6179 254840160 : mat(k,2156) = 0._r8
6180 254840160 : mat(k,2157) = 0._r8
6181 254840160 : mat(k,2158) = 0._r8
6182 254840160 : mat(k,2159) = 0._r8
6183 254840160 : mat(k,2160) = 0._r8
6184 254840160 : mat(k,2161) = 0._r8
6185 254840160 : mat(k,2162) = 0._r8
6186 254840160 : mat(k,2166) = 0._r8
6187 254840160 : mat(k,2168) = 0._r8
6188 254840160 : mat(k,2169) = 0._r8
6189 254840160 : mat(k,2170) = 0._r8
6190 254840160 : mat(k,2171) = 0._r8
6191 254840160 : mat(k,2172) = 0._r8
6192 254840160 : mat(k,2173) = 0._r8
6193 254840160 : mat(k,2176) = 0._r8
6194 254840160 : mat(k,2181) = 0._r8
6195 254840160 : mat(k,2182) = 0._r8
6196 254840160 : mat(k,2184) = 0._r8
6197 254840160 : mat(k,2186) = 0._r8
6198 254840160 : mat(k,2187) = 0._r8
6199 254840160 : mat(k,2193) = 0._r8
6200 254840160 : mat(k,2194) = 0._r8
6201 254840160 : mat(k,2196) = 0._r8
6202 254840160 : mat(k,2200) = 0._r8
6203 254840160 : mat(k,2201) = 0._r8
6204 254840160 : mat(k,2206) = 0._r8
6205 254840160 : mat(k,2207) = 0._r8
6206 254840160 : mat(k,2208) = 0._r8
6207 254840160 : mat(k,2212) = 0._r8
6208 254840160 : mat(k,2223) = 0._r8
6209 254840160 : mat(k,2233) = 0._r8
6210 254840160 : mat(k,2234) = 0._r8
6211 254840160 : mat(k,2237) = 0._r8
6212 254840160 : mat(k,2245) = 0._r8
6213 254840160 : mat(k,2247) = 0._r8
6214 254840160 : mat(k,2261) = 0._r8
6215 254840160 : mat(k,2267) = 0._r8
6216 254840160 : mat(k,2273) = 0._r8
6217 254840160 : mat(k,2274) = 0._r8
6218 254840160 : mat(k,2275) = 0._r8
6219 254840160 : mat(k,2276) = 0._r8
6220 254840160 : mat(k,2279) = 0._r8
6221 254840160 : mat(k,2280) = 0._r8
6222 254840160 : mat(k,2281) = 0._r8
6223 254840160 : mat(k,2282) = 0._r8
6224 254840160 : mat(k,2283) = 0._r8
6225 254840160 : mat(k,2285) = 0._r8
6226 254840160 : mat(k,2286) = 0._r8
6227 254840160 : mat(k,2295) = 0._r8
6228 254840160 : mat(k,2305) = 0._r8
6229 254840160 : mat(k,2307) = 0._r8
6230 254840160 : mat(k,2314) = 0._r8
6231 254840160 : mat(k,2316) = 0._r8
6232 254840160 : mat(k,2317) = 0._r8
6233 254840160 : mat(k,2318) = 0._r8
6234 254840160 : mat(k,2319) = 0._r8
6235 254840160 : mat(k,2321) = 0._r8
6236 254840160 : mat(k,2323) = 0._r8
6237 254840160 : mat(k,2324) = 0._r8
6238 254840160 : mat(k,2325) = 0._r8
6239 254840160 : mat(k,2326) = 0._r8
6240 254840160 : mat(k,2327) = 0._r8
6241 254840160 : mat(k,2328) = 0._r8
6242 254840160 : mat(k,2330) = 0._r8
6243 254840160 : mat(k,2331) = 0._r8
6244 254840160 : mat(k,2337) = 0._r8
6245 254840160 : mat(k,2340) = 0._r8
6246 254840160 : mat(k,2349) = 0._r8
6247 254840160 : mat(k,2351) = 0._r8
6248 254840160 : mat(k,2364) = 0._r8
6249 254840160 : mat(k,2376) = 0._r8
6250 254840160 : mat(k,2379) = 0._r8
6251 254840160 : mat(k,2389) = 0._r8
6252 254840160 : mat(k,2391) = 0._r8
6253 254840160 : mat(k,2398) = 0._r8
6254 254840160 : mat(k,2401) = 0._r8
6255 254840160 : mat(k,2403) = 0._r8
6256 254840160 : mat(k,2405) = 0._r8
6257 254840160 : mat(k,2406) = 0._r8
6258 254840160 : mat(k,2407) = 0._r8
6259 254840160 : mat(k,2410) = 0._r8
6260 254840160 : mat(k,2418) = 0._r8
6261 254840160 : mat(k,2420) = 0._r8
6262 254840160 : mat(k,2437) = 0._r8
6263 254840160 : mat(k,2450) = 0._r8
6264 254840160 : mat(k,2452) = 0._r8
6265 254840160 : mat(k,2459) = 0._r8
6266 254840160 : mat(k,2461) = 0._r8
6267 254840160 : mat(k,2463) = 0._r8
6268 254840160 : mat(k,2467) = 0._r8
6269 254840160 : mat(k,2469) = 0._r8
6270 254840160 : mat(k,2470) = 0._r8
6271 254840160 : mat(k,2473) = 0._r8
6272 254840160 : mat(k,2481) = 0._r8
6273 254840160 : mat(k,2483) = 0._r8
6274 254840160 : mat(k,2490) = 0._r8
6275 254840160 : mat(k,2493) = 0._r8
6276 254840160 : mat(k,2494) = 0._r8
6277 254840160 : mat(k,2495) = 0._r8
6278 254840160 : mat(k,2498) = 0._r8
6279 254840160 : mat(k,2499) = 0._r8
6280 254840160 : mat(k,2503) = 0._r8
6281 254840160 : mat(k,2504) = 0._r8
6282 254840160 : mat(k,2506) = 0._r8
6283 254840160 : mat(k,2515) = 0._r8
6284 254840160 : mat(k,2517) = 0._r8
6285 254840160 : mat(k,2524) = 0._r8
6286 254840160 : mat(k,2534) = 0._r8
6287 254840160 : mat(k,2535) = 0._r8
6288 254840160 : mat(k,2544) = 0._r8
6289 254840160 : mat(k,2546) = 0._r8
6290 254840160 : mat(k,2553) = 0._r8
6291 254840160 : mat(k,2556) = 0._r8
6292 254840160 : mat(k,2557) = 0._r8
6293 254840160 : mat(k,2558) = 0._r8
6294 254840160 : mat(k,2561) = 0._r8
6295 254840160 : mat(k,2562) = 0._r8
6296 254840160 : mat(k,2566) = 0._r8
6297 254840160 : mat(k,2568) = 0._r8
6298 254840160 : mat(k,2569) = 0._r8
6299 254840160 : mat(k,2572) = 0._r8
6300 254840160 : mat(k,2580) = 0._r8
6301 254840160 : mat(k,2582) = 0._r8
6302 254840160 : mat(k,2589) = 0._r8
6303 254840160 : mat(k,2594) = 0._r8
6304 254840160 : mat(k,2596) = 0._r8
6305 254840160 : mat(k,2597) = 0._r8
6306 254840160 : mat(k,2598) = 0._r8
6307 254840160 : mat(k,2599) = 0._r8
6308 254840160 : mat(k,2602) = 0._r8
6309 254840160 : mat(k,2603) = 0._r8
6310 254840160 : mat(k,2604) = 0._r8
6311 254840160 : mat(k,2605) = 0._r8
6312 254840160 : mat(k,2606) = 0._r8
6313 254840160 : mat(k,2607) = 0._r8
6314 254840160 : mat(k,2608) = 0._r8
6315 254840160 : mat(k,2609) = 0._r8
6316 254840160 : mat(k,2610) = 0._r8
6317 254840160 : mat(k,2616) = 0._r8
6318 254840160 : mat(k,2618) = 0._r8
6319 254840160 : mat(k,2620) = 0._r8
6320 254840160 : mat(k,2624) = 0._r8
6321 254840160 : mat(k,2625) = 0._r8
6322 254840160 : mat(k,2627) = 0._r8
6323 254840160 : mat(k,2628) = 0._r8
6324 254840160 : mat(k,2630) = 0._r8
6325 254840160 : mat(k,2631) = 0._r8
6326 254840160 : mat(k,2632) = 0._r8
6327 254840160 : mat(k,2634) = 0._r8
6328 254840160 : mat(k,2635) = 0._r8
6329 254840160 : mat(k,2636) = 0._r8
6330 254840160 : mat(k,2637) = 0._r8
6331 254840160 : mat(k,2638) = 0._r8
6332 254840160 : mat(k,2640) = 0._r8
6333 254840160 : mat(k,2644) = 0._r8
6334 254840160 : mat(k,2646) = 0._r8
6335 254840160 : mat(k,2652) = 0._r8
6336 254840160 : mat(k,2653) = 0._r8
6337 254840160 : mat(k,2661) = 0._r8
6338 254840160 : mat(k,2663) = 0._r8
6339 254840160 : mat(k,2669) = 0._r8
6340 254840160 : mat(k,2673) = 0._r8
6341 254840160 : mat(k,2675) = 0._r8
6342 254840160 : mat(k,2683) = 0._r8
6343 254840160 : mat(k,2685) = 0._r8
6344 254840160 : mat(k,2695) = 0._r8
6345 254840160 : mat(k,2697) = 0._r8
6346 254840160 : mat(k,2698) = 0._r8
6347 254840160 : mat(k,2706) = 0._r8
6348 254840160 : mat(k,2708) = 0._r8
6349 254840160 : mat(k,2715) = 0._r8
6350 254840160 : mat(k,2749) = 0._r8
6351 254840160 : mat(k,2751) = 0._r8
6352 254840160 : mat(k,2752) = 0._r8
6353 254840160 : mat(k,2759) = 0._r8
6354 254840160 : mat(k,2761) = 0._r8
6355 254840160 : mat(k,2795) = 0._r8
6356 254840160 : mat(k,2797) = 0._r8
6357 254840160 : mat(k,2798) = 0._r8
6358 254840160 : mat(k,2805) = 0._r8
6359 254840160 : mat(k,2807) = 0._r8
6360 254840160 : mat(k,2811) = 0._r8
6361 254840160 : mat(k,2842) = 0._r8
6362 254840160 : mat(k,2844) = 0._r8
6363 254840160 : mat(k,2845) = 0._r8
6364 254840160 : mat(k,2852) = 0._r8
6365 254840160 : mat(k,2854) = 0._r8
6366 254840160 : mat(k,2874) = 0._r8
6367 254840160 : mat(k,2878) = 0._r8
6368 254840160 : mat(k,2879) = 0._r8
6369 254840160 : mat(k,2886) = 0._r8
6370 254840160 : mat(k,2887) = 0._r8
6371 254840160 : mat(k,2892) = 0._r8
6372 254840160 : mat(k,2914) = 0._r8
6373 254840160 : mat(k,2915) = 0._r8
6374 254840160 : mat(k,2917) = 0._r8
6375 254840160 : mat(k,2918) = 0._r8
6376 254840160 : mat(k,2922) = 0._r8
6377 254840160 : mat(k,2925) = 0._r8
6378 254840160 : mat(k,2926) = 0._r8
6379 254840160 : mat(k,2928) = 0._r8
6380 254840160 : mat(k,2930) = 0._r8
6381 254840160 : mat(k,2932) = 0._r8
6382 254840160 : mat(k,2933) = 0._r8
6383 254840160 : mat(k,2935) = 0._r8
6384 254840160 : mat(k,2937) = 0._r8
6385 254840160 : mat(k,2938) = 0._r8
6386 254840160 : mat(k,2940) = 0._r8
6387 254840160 : mat(k,2941) = 0._r8
6388 254840160 : mat(k,2946) = 0._r8
6389 254840160 : mat(k,2947) = 0._r8
6390 254840160 : mat(k,2948) = 0._r8
6391 254840160 : mat(k,2950) = 0._r8
6392 254840160 : mat(k,2951) = 0._r8
6393 254840160 : mat(k,2952) = 0._r8
6394 254840160 : mat(k,2953) = 0._r8
6395 254840160 : mat(k,2954) = 0._r8
6396 254840160 : mat(k,2957) = 0._r8
6397 254840160 : mat(k,2958) = 0._r8
6398 254840160 : mat(k,2959) = 0._r8
6399 254840160 : mat(k,3028) = 0._r8
6400 254840160 : mat(k,3041) = 0._r8
6401 254840160 : mat(k,3044) = 0._r8
6402 254840160 : mat(k,3047) = 0._r8
6403 254840160 : mat(k,3067) = 0._r8
6404 254840160 : mat(k,3082) = 0._r8
6405 254840160 : mat(k,3104) = 0._r8
6406 254840160 : mat(k,3105) = 0._r8
6407 254840160 : mat(k,3107) = 0._r8
6408 254840160 : mat(k,3117) = 0._r8
6409 254840160 : mat(k,3120) = 0._r8
6410 254840160 : mat(k,3126) = 0._r8
6411 254840160 : mat(k,3131) = 0._r8
6412 254840160 : mat(k,3132) = 0._r8
6413 254840160 : mat(k,3133) = 0._r8
6414 254840160 : mat(k,3134) = 0._r8
6415 254840160 : mat(k,3136) = 0._r8
6416 254840160 : mat(k,3137) = 0._r8
6417 254840160 : mat(k,3138) = 0._r8
6418 254840160 : mat(k,3144) = 0._r8
6419 254840160 : mat(k,3149) = 0._r8
6420 254840160 : mat(k,3156) = 0._r8
6421 254840160 : mat(k,3158) = 0._r8
6422 254840160 : mat(k,3164) = 0._r8
6423 254840160 : mat(k,3170) = 0._r8
6424 254840160 : mat(k,3173) = 0._r8
6425 254840160 : mat(k,3176) = 0._r8
6426 254840160 : mat(k,3177) = 0._r8
6427 254840160 : mat(k,3178) = 0._r8
6428 254840160 : mat(k,3182) = 0._r8
6429 254840160 : mat(k,3185) = 0._r8
6430 254840160 : mat(k,3190) = 0._r8
6431 254840160 : mat(k,3191) = 0._r8
6432 254840160 : mat(k,3192) = 0._r8
6433 254840160 : mat(k,3194) = 0._r8
6434 254840160 : mat(k,3195) = 0._r8
6435 254840160 : mat(k,3196) = 0._r8
6436 254840160 : mat(k,3218) = 0._r8
6437 254840160 : mat(k,3234) = 0._r8
6438 254840160 : mat(k,3236) = 0._r8
6439 254840160 : mat(k,3287) = 0._r8
6440 254840160 : mat(k,3302) = 0._r8
6441 254840160 : mat(k,3312) = 0._r8
6442 254840160 : mat(k,3322) = 0._r8
6443 254840160 : mat(k,3325) = 0._r8
6444 254840160 : mat(k,3334) = 0._r8
6445 254840160 : mat(k,3335) = 0._r8
6446 254840160 : mat(k,3336) = 0._r8
6447 254840160 : mat(k,3341) = 0._r8
6448 254840160 : mat(k,3364) = 0._r8
6449 254840160 : mat(k,3376) = 0._r8
6450 254840160 : mat(k,3388) = 0._r8
6451 254840160 : mat(k,3393) = 0._r8
6452 254840160 : mat(k,3394) = 0._r8
6453 254840160 : mat(k,3396) = 0._r8
6454 254840160 : mat(k,3397) = 0._r8
6455 254840160 : mat(k,3406) = 0._r8
6456 254840160 : mat(k,3407) = 0._r8
6457 254840160 : mat(k,3415) = 0._r8
6458 254840160 : mat(k,3416) = 0._r8
6459 254840160 : mat(k,3420) = 0._r8
6460 254840160 : mat(k,3421) = 0._r8
6461 254840160 : mat(k,3434) = 0._r8
6462 254840160 : mat(k,3456) = 0._r8
6463 254840160 : mat(k,3457) = 0._r8
6464 254840160 : mat(k,3459) = 0._r8
6465 254840160 : mat(k,3460) = 0._r8
6466 254840160 : mat(k,3464) = 0._r8
6467 254840160 : mat(k,3466) = 0._r8
6468 254840160 : mat(k,3468) = 0._r8
6469 254840160 : mat(k,3469) = 0._r8
6470 254840160 : mat(k,3472) = 0._r8
6471 254840160 : mat(k,3480) = 0._r8
6472 254840160 : mat(k,3481) = 0._r8
6473 254840160 : mat(k,3483) = 0._r8
6474 254840160 : mat(k,3485) = 0._r8
6475 254840160 : mat(k,3487) = 0._r8
6476 254840160 : mat(k,3490) = 0._r8
6477 254840160 : mat(k,3492) = 0._r8
6478 254840160 : mat(k,3493) = 0._r8
6479 254840160 : mat(k,3496) = 0._r8
6480 254840160 : mat(k,3506) = 0._r8
6481 254840160 : mat(k,3507) = 0._r8
6482 254840160 : mat(k,3516) = 0._r8
6483 254840160 : mat(k,3518) = 0._r8
6484 254840160 : mat(k,3519) = 0._r8
6485 254840160 : mat(k,3522) = 0._r8
6486 254840160 : mat(k,3528) = 0._r8
6487 254840160 : mat(k,3530) = 0._r8
6488 254840160 : mat(k,3535) = 0._r8
6489 254840160 : mat(k,3536) = 0._r8
6490 254840160 : mat(k,3540) = 0._r8
6491 254840160 : mat(k,3541) = 0._r8
6492 254840160 : mat(k,3546) = 0._r8
6493 254840160 : mat(k,3547) = 0._r8
6494 254840160 : mat(k,3550) = 0._r8
6495 254840160 : mat(k,3555) = 0._r8
6496 254840160 : mat(k,3557) = 0._r8
6497 254840160 : mat(k,3558) = 0._r8
6498 254840160 : mat(k,3559) = 0._r8
6499 254840160 : mat(k,3560) = 0._r8
6500 254840160 : mat(k,3561) = 0._r8
6501 254840160 : mat(k,3562) = 0._r8
6502 254840160 : mat(k,3563) = 0._r8
6503 254840160 : mat(k,3564) = 0._r8
6504 254840160 : mat(k,3566) = 0._r8
6505 254840160 : mat(k,3567) = 0._r8
6506 254840160 : mat(k,3571) = 0._r8
6507 254840160 : mat(k,3572) = 0._r8
6508 254840160 : mat(k,3575) = 0._r8
6509 254840160 : mat(k,3578) = 0._r8
6510 254840160 : mat(k,3600) = 0._r8
6511 254840160 : mat(k,3603) = 0._r8
6512 254840160 : mat(k,3608) = 0._r8
6513 254840160 : mat(k,3609) = 0._r8
6514 254840160 : mat(k,3612) = 0._r8
6515 254840160 : mat(k,3613) = 0._r8
6516 254840160 : mat(k,3614) = 0._r8
6517 254840160 : mat(k,3616) = 0._r8
6518 254840160 : mat(k,3630) = 0._r8
6519 254840160 : mat(k,3634) = 0._r8
6520 254840160 : mat(k,3636) = 0._r8
6521 254840160 : mat(k,3638) = 0._r8
6522 254840160 : mat(k,3640) = 0._r8
6523 254840160 : mat(k,3642) = 0._r8
6524 254840160 : mat(k,3643) = 0._r8
6525 254840160 : mat(k,3644) = 0._r8
6526 254840160 : mat(k,3645) = 0._r8
6527 254840160 : mat(k,3646) = 0._r8
6528 254840160 : mat(k,3647) = 0._r8
6529 254840160 : mat(k,3652) = 0._r8
6530 254840160 : mat(k,3655) = 0._r8
6531 254840160 : mat(k,3657) = 0._r8
6532 254840160 : mat(k,3659) = 0._r8
6533 254840160 : mat(k,3665) = 0._r8
6534 254840160 : mat(k,3666) = 0._r8
6535 254840160 : mat(k,3668) = 0._r8
6536 254840160 : mat(k,3682) = 0._r8
6537 254840160 : mat(k,3689) = 0._r8
6538 254840160 : mat(k,3694) = 0._r8
6539 254840160 : mat(k,3703) = 0._r8
6540 254840160 : mat(k,3707) = 0._r8
6541 254840160 : mat(k,3708) = 0._r8
6542 254840160 : mat(k,3711) = 0._r8
6543 254840160 : mat(k,3712) = 0._r8
6544 254840160 : mat(k,3714) = 0._r8
6545 254840160 : mat(k,3715) = 0._r8
6546 254840160 : mat(k,3716) = 0._r8
6547 254840160 : mat(k,3717) = 0._r8
6548 254840160 : mat(k,3718) = 0._r8
6549 254840160 : mat(k,3719) = 0._r8
6550 254840160 : mat(k,3720) = 0._r8
6551 254840160 : mat(k,3722) = 0._r8
6552 254840160 : mat(k,3723) = 0._r8
6553 254840160 : mat(k,3730) = 0._r8
6554 254840160 : mat(k,3732) = 0._r8
6555 254840160 : mat(k,3735) = 0._r8
6556 254840160 : mat(k,3736) = 0._r8
6557 254840160 : mat(k,3738) = 0._r8
6558 254840160 : mat(k,3739) = 0._r8
6559 254840160 : mat(k,3740) = 0._r8
6560 254840160 : mat(k,3741) = 0._r8
6561 254840160 : mat(k,3742) = 0._r8
6562 254840160 : mat(k,3743) = 0._r8
6563 254840160 : mat(k,3744) = 0._r8
6564 254840160 : mat(k,3747) = 0._r8
6565 254840160 : mat(k,3748) = 0._r8
6566 254840160 : mat(k,3752) = 0._r8
6567 254840160 : mat(k,3755) = 0._r8
6568 254840160 : mat(k,3757) = 0._r8
6569 254840160 : mat(k,3770) = 0._r8
6570 254840160 : mat(k,3796) = 0._r8
6571 254840160 : mat(k,3805) = 0._r8
6572 254840160 : mat(k,3806) = 0._r8
6573 254840160 : mat(k,3820) = 0._r8
6574 254840160 : mat(k,3824) = 0._r8
6575 254840160 : mat(k,3825) = 0._r8
6576 254840160 : mat(k,3826) = 0._r8
6577 254840160 : mat(k,3828) = 0._r8
6578 254840160 : mat(k,3829) = 0._r8
6579 254840160 : mat(k,3831) = 0._r8
6580 254840160 : mat(k,3835) = 0._r8
6581 254840160 : mat(k,3837) = 0._r8
6582 254840160 : mat(k,3838) = 0._r8
6583 254840160 : mat(k,3840) = 0._r8
6584 254840160 : mat(k,3844) = 0._r8
6585 254840160 : mat(k,3847) = 0._r8
6586 254840160 : mat(k,3849) = 0._r8
6587 254840160 : mat(k,3852) = 0._r8
6588 254840160 : mat(k,3921) = 0._r8
6589 254840160 : mat(k,3967) = 0._r8
6590 254840160 : mat(k,3971) = 0._r8
6591 254840160 : mat(k,3975) = 0._r8
6592 254840160 : mat(k,4003) = 0._r8
6593 254840160 : mat(k,4042) = 0._r8
6594 254840160 : mat(k,4043) = 0._r8
6595 254840160 : mat(k,4047) = 0._r8
6596 254840160 : mat(k,4048) = 0._r8
6597 254840160 : mat(k,4063) = 0._r8
6598 254840160 : mat(k,4066) = 0._r8
6599 254840160 : mat(k,4074) = 0._r8
6600 254840160 : mat(k,4076) = 0._r8
6601 254840160 : mat(k,4099) = 0._r8
6602 254840160 : mat(k,4106) = 0._r8
6603 254840160 : mat(k,4108) = 0._r8
6604 254840160 : mat(k,4110) = 0._r8
6605 254840160 : mat(k,4111) = 0._r8
6606 254840160 : mat(k,4113) = 0._r8
6607 254840160 : mat(k,4114) = 0._r8
6608 254840160 : mat(k,4115) = 0._r8
6609 254840160 : mat(k,4117) = 0._r8
6610 254840160 : mat(k,4118) = 0._r8
6611 254840160 : mat(k,4119) = 0._r8
6612 254840160 : mat(k,4120) = 0._r8
6613 254840160 : mat(k,4121) = 0._r8
6614 254840160 : mat(k,4122) = 0._r8
6615 254840160 : mat(k,4123) = 0._r8
6616 254840160 : mat(k,4124) = 0._r8
6617 254840160 : mat(k,4126) = 0._r8
6618 254840160 : mat(k, 1) = mat(k, 1) - dti(k)
6619 254840160 : mat(k, 2) = mat(k, 2) - dti(k)
6620 254840160 : mat(k, 3) = mat(k, 3) - dti(k)
6621 254840160 : mat(k, 4) = mat(k, 4) - dti(k)
6622 254840160 : mat(k, 5) = mat(k, 5) - dti(k)
6623 254840160 : mat(k, 6) = mat(k, 6) - dti(k)
6624 254840160 : mat(k, 7) = mat(k, 7) - dti(k)
6625 254840160 : mat(k, 8) = mat(k, 8) - dti(k)
6626 254840160 : mat(k, 9) = mat(k, 9) - dti(k)
6627 254840160 : mat(k, 10) = mat(k, 10) - dti(k)
6628 254840160 : mat(k, 11) = mat(k, 11) - dti(k)
6629 254840160 : mat(k, 12) = mat(k, 12) - dti(k)
6630 254840160 : mat(k, 13) = mat(k, 13) - dti(k)
6631 254840160 : mat(k, 14) = mat(k, 14) - dti(k)
6632 254840160 : mat(k, 15) = mat(k, 15) - dti(k)
6633 254840160 : mat(k, 16) = mat(k, 16) - dti(k)
6634 254840160 : mat(k, 17) = mat(k, 17) - dti(k)
6635 254840160 : mat(k, 18) = mat(k, 18) - dti(k)
6636 254840160 : mat(k, 19) = mat(k, 19) - dti(k)
6637 254840160 : mat(k, 20) = mat(k, 20) - dti(k)
6638 254840160 : mat(k, 21) = mat(k, 21) - dti(k)
6639 254840160 : mat(k, 22) = mat(k, 22) - dti(k)
6640 254840160 : mat(k, 23) = mat(k, 23) - dti(k)
6641 254840160 : mat(k, 24) = mat(k, 24) - dti(k)
6642 254840160 : mat(k, 25) = mat(k, 25) - dti(k)
6643 254840160 : mat(k, 26) = mat(k, 26) - dti(k)
6644 254840160 : mat(k, 27) = mat(k, 27) - dti(k)
6645 254840160 : mat(k, 28) = mat(k, 28) - dti(k)
6646 254840160 : mat(k, 29) = mat(k, 29) - dti(k)
6647 254840160 : mat(k, 30) = mat(k, 30) - dti(k)
6648 254840160 : mat(k, 31) = mat(k, 31) - dti(k)
6649 254840160 : mat(k, 32) = mat(k, 32) - dti(k)
6650 254840160 : mat(k, 33) = mat(k, 33) - dti(k)
6651 254840160 : mat(k, 34) = mat(k, 34) - dti(k)
6652 254840160 : mat(k, 35) = mat(k, 35) - dti(k)
6653 254840160 : mat(k, 36) = mat(k, 36) - dti(k)
6654 254840160 : mat(k, 37) = mat(k, 37) - dti(k)
6655 254840160 : mat(k, 38) = mat(k, 38) - dti(k)
6656 254840160 : mat(k, 39) = mat(k, 39) - dti(k)
6657 254840160 : mat(k, 40) = mat(k, 40) - dti(k)
6658 254840160 : mat(k, 41) = mat(k, 41) - dti(k)
6659 254840160 : mat(k, 42) = mat(k, 42) - dti(k)
6660 254840160 : mat(k, 43) = mat(k, 43) - dti(k)
6661 254840160 : mat(k, 44) = mat(k, 44) - dti(k)
6662 254840160 : mat(k, 45) = mat(k, 45) - dti(k)
6663 254840160 : mat(k, 51) = mat(k, 51) - dti(k)
6664 254840160 : mat(k, 57) = mat(k, 57) - dti(k)
6665 254840160 : mat(k, 63) = mat(k, 63) - dti(k)
6666 254840160 : mat(k, 69) = mat(k, 69) - dti(k)
6667 254840160 : mat(k, 75) = mat(k, 75) - dti(k)
6668 254840160 : mat(k, 81) = mat(k, 81) - dti(k)
6669 254840160 : mat(k, 87) = mat(k, 87) - dti(k)
6670 254840160 : mat(k, 89) = mat(k, 89) - dti(k)
6671 254840160 : mat(k, 95) = mat(k, 95) - dti(k)
6672 254840160 : mat(k, 101) = mat(k, 101) - dti(k)
6673 254840160 : mat(k, 107) = mat(k, 107) - dti(k)
6674 254840160 : mat(k, 113) = mat(k, 113) - dti(k)
6675 254840160 : mat(k, 114) = mat(k, 114) - dti(k)
6676 254840160 : mat(k, 117) = mat(k, 117) - dti(k)
6677 254840160 : mat(k, 120) = mat(k, 120) - dti(k)
6678 254840160 : mat(k, 123) = mat(k, 123) - dti(k)
6679 254840160 : mat(k, 126) = mat(k, 126) - dti(k)
6680 254840160 : mat(k, 130) = mat(k, 130) - dti(k)
6681 254840160 : mat(k, 134) = mat(k, 134) - dti(k)
6682 254840160 : mat(k, 138) = mat(k, 138) - dti(k)
6683 254840160 : mat(k, 142) = mat(k, 142) - dti(k)
6684 254840160 : mat(k, 146) = mat(k, 146) - dti(k)
6685 254840160 : mat(k, 150) = mat(k, 150) - dti(k)
6686 254840160 : mat(k, 153) = mat(k, 153) - dti(k)
6687 254840160 : mat(k, 156) = mat(k, 156) - dti(k)
6688 254840160 : mat(k, 159) = mat(k, 159) - dti(k)
6689 254840160 : mat(k, 164) = mat(k, 164) - dti(k)
6690 254840160 : mat(k, 169) = mat(k, 169) - dti(k)
6691 254840160 : mat(k, 174) = mat(k, 174) - dti(k)
6692 254840160 : mat(k, 179) = mat(k, 179) - dti(k)
6693 254840160 : mat(k, 182) = mat(k, 182) - dti(k)
6694 254840160 : mat(k, 188) = mat(k, 188) - dti(k)
6695 254840160 : mat(k, 192) = mat(k, 192) - dti(k)
6696 254840160 : mat(k, 197) = mat(k, 197) - dti(k)
6697 254840160 : mat(k, 201) = mat(k, 201) - dti(k)
6698 254840160 : mat(k, 204) = mat(k, 204) - dti(k)
6699 254840160 : mat(k, 207) = mat(k, 207) - dti(k)
6700 254840160 : mat(k, 211) = mat(k, 211) - dti(k)
6701 254840160 : mat(k, 218) = mat(k, 218) - dti(k)
6702 254840160 : mat(k, 223) = mat(k, 223) - dti(k)
6703 254840160 : mat(k, 229) = mat(k, 229) - dti(k)
6704 254840160 : mat(k, 237) = mat(k, 237) - dti(k)
6705 254840160 : mat(k, 242) = mat(k, 242) - dti(k)
6706 254840160 : mat(k, 245) = mat(k, 245) - dti(k)
6707 254840160 : mat(k, 248) = mat(k, 248) - dti(k)
6708 254840160 : mat(k, 251) = mat(k, 251) - dti(k)
6709 254840160 : mat(k, 256) = mat(k, 256) - dti(k)
6710 254840160 : mat(k, 261) = mat(k, 261) - dti(k)
6711 254840160 : mat(k, 266) = mat(k, 266) - dti(k)
6712 254840160 : mat(k, 269) = mat(k, 269) - dti(k)
6713 254840160 : mat(k, 272) = mat(k, 272) - dti(k)
6714 254840160 : mat(k, 275) = mat(k, 275) - dti(k)
6715 254840160 : mat(k, 279) = mat(k, 279) - dti(k)
6716 254840160 : mat(k, 283) = mat(k, 283) - dti(k)
6717 254840160 : mat(k, 287) = mat(k, 287) - dti(k)
6718 254840160 : mat(k, 291) = mat(k, 291) - dti(k)
6719 254840160 : mat(k, 295) = mat(k, 295) - dti(k)
6720 254840160 : mat(k, 301) = mat(k, 301) - dti(k)
6721 254840160 : mat(k, 304) = mat(k, 304) - dti(k)
6722 254840160 : mat(k, 310) = mat(k, 310) - dti(k)
6723 254840160 : mat(k, 316) = mat(k, 316) - dti(k)
6724 254840160 : mat(k, 322) = mat(k, 322) - dti(k)
6725 254840160 : mat(k, 326) = mat(k, 326) - dti(k)
6726 254840160 : mat(k, 332) = mat(k, 332) - dti(k)
6727 254840160 : mat(k, 337) = mat(k, 337) - dti(k)
6728 254840160 : mat(k, 342) = mat(k, 342) - dti(k)
6729 254840160 : mat(k, 347) = mat(k, 347) - dti(k)
6730 254840160 : mat(k, 353) = mat(k, 353) - dti(k)
6731 254840160 : mat(k, 358) = mat(k, 358) - dti(k)
6732 254840160 : mat(k, 363) = mat(k, 363) - dti(k)
6733 254840160 : mat(k, 368) = mat(k, 368) - dti(k)
6734 254840160 : mat(k, 373) = mat(k, 373) - dti(k)
6735 254840160 : mat(k, 377) = mat(k, 377) - dti(k)
6736 254840160 : mat(k, 385) = mat(k, 385) - dti(k)
6737 254840160 : mat(k, 393) = mat(k, 393) - dti(k)
6738 254840160 : mat(k, 401) = mat(k, 401) - dti(k)
6739 254840160 : mat(k, 405) = mat(k, 405) - dti(k)
6740 254840160 : mat(k, 411) = mat(k, 411) - dti(k)
6741 254840160 : mat(k, 417) = mat(k, 417) - dti(k)
6742 254840160 : mat(k, 423) = mat(k, 423) - dti(k)
6743 254840160 : mat(k, 429) = mat(k, 429) - dti(k)
6744 254840160 : mat(k, 437) = mat(k, 437) - dti(k)
6745 254840160 : mat(k, 443) = mat(k, 443) - dti(k)
6746 254840160 : mat(k, 449) = mat(k, 449) - dti(k)
6747 254840160 : mat(k, 456) = mat(k, 456) - dti(k)
6748 254840160 : mat(k, 462) = mat(k, 462) - dti(k)
6749 254840160 : mat(k, 468) = mat(k, 468) - dti(k)
6750 254840160 : mat(k, 471) = mat(k, 471) - dti(k)
6751 254840160 : mat(k, 477) = mat(k, 477) - dti(k)
6752 254840160 : mat(k, 484) = mat(k, 484) - dti(k)
6753 254840160 : mat(k, 488) = mat(k, 488) - dti(k)
6754 254840160 : mat(k, 495) = mat(k, 495) - dti(k)
6755 254840160 : mat(k, 502) = mat(k, 502) - dti(k)
6756 254840160 : mat(k, 514) = mat(k, 514) - dti(k)
6757 254840160 : mat(k, 521) = mat(k, 521) - dti(k)
6758 254840160 : mat(k, 528) = mat(k, 528) - dti(k)
6759 254840160 : mat(k, 536) = mat(k, 536) - dti(k)
6760 254840160 : mat(k, 543) = mat(k, 543) - dti(k)
6761 254840160 : mat(k, 550) = mat(k, 550) - dti(k)
6762 254840160 : mat(k, 556) = mat(k, 556) - dti(k)
6763 254840160 : mat(k, 561) = mat(k, 561) - dti(k)
6764 254840160 : mat(k, 569) = mat(k, 569) - dti(k)
6765 254840160 : mat(k, 577) = mat(k, 577) - dti(k)
6766 254840160 : mat(k, 585) = mat(k, 585) - dti(k)
6767 254840160 : mat(k, 593) = mat(k, 593) - dti(k)
6768 254840160 : mat(k, 601) = mat(k, 601) - dti(k)
6769 254840160 : mat(k, 605) = mat(k, 605) - dti(k)
6770 254840160 : mat(k, 613) = mat(k, 613) - dti(k)
6771 254840160 : mat(k, 626) = mat(k, 626) - dti(k)
6772 254840160 : mat(k, 639) = mat(k, 639) - dti(k)
6773 254840160 : mat(k, 646) = mat(k, 646) - dti(k)
6774 254840160 : mat(k, 655) = mat(k, 655) - dti(k)
6775 254840160 : mat(k, 664) = mat(k, 664) - dti(k)
6776 254840160 : mat(k, 673) = mat(k, 673) - dti(k)
6777 254840160 : mat(k, 682) = mat(k, 682) - dti(k)
6778 254840160 : mat(k, 689) = mat(k, 689) - dti(k)
6779 254840160 : mat(k, 693) = mat(k, 693) - dti(k)
6780 254840160 : mat(k, 702) = mat(k, 702) - dti(k)
6781 254840160 : mat(k, 711) = mat(k, 711) - dti(k)
6782 254840160 : mat(k, 718) = mat(k, 718) - dti(k)
6783 254840160 : mat(k, 728) = mat(k, 728) - dti(k)
6784 254840160 : mat(k, 741) = mat(k, 741) - dti(k)
6785 254840160 : mat(k, 752) = mat(k, 752) - dti(k)
6786 254840160 : mat(k, 763) = mat(k, 763) - dti(k)
6787 254840160 : mat(k, 770) = mat(k, 770) - dti(k)
6788 254840160 : mat(k, 778) = mat(k, 778) - dti(k)
6789 254840160 : mat(k, 783) = mat(k, 783) - dti(k)
6790 254840160 : mat(k, 791) = mat(k, 791) - dti(k)
6791 254840160 : mat(k, 797) = mat(k, 797) - dti(k)
6792 254840160 : mat(k, 805) = mat(k, 805) - dti(k)
6793 254840160 : mat(k, 813) = mat(k, 813) - dti(k)
6794 254840160 : mat(k, 827) = mat(k, 827) - dti(k)
6795 254840160 : mat(k, 842) = mat(k, 842) - dti(k)
6796 254840160 : mat(k, 855) = mat(k, 855) - dti(k)
6797 254840160 : mat(k, 862) = mat(k, 862) - dti(k)
6798 254840160 : mat(k, 873) = mat(k, 873) - dti(k)
6799 254840160 : mat(k, 883) = mat(k, 883) - dti(k)
6800 254840160 : mat(k, 895) = mat(k, 895) - dti(k)
6801 254840160 : mat(k, 906) = mat(k, 906) - dti(k)
6802 254840160 : mat(k, 914) = mat(k, 914) - dti(k)
6803 254840160 : mat(k, 919) = mat(k, 919) - dti(k)
6804 254840160 : mat(k, 924) = mat(k, 924) - dti(k)
6805 254840160 : mat(k, 929) = mat(k, 929) - dti(k)
6806 254840160 : mat(k, 939) = mat(k, 939) - dti(k)
6807 254840160 : mat(k, 951) = mat(k, 951) - dti(k)
6808 254840160 : mat(k, 960) = mat(k, 960) - dti(k)
6809 254840160 : mat(k, 969) = mat(k, 969) - dti(k)
6810 254840160 : mat(k, 974) = mat(k, 974) - dti(k)
6811 254840160 : mat(k, 986) = mat(k, 986) - dti(k)
6812 254840160 : mat(k, 995) = mat(k, 995) - dti(k)
6813 254840160 : mat(k,1006) = mat(k,1006) - dti(k)
6814 254840160 : mat(k,1015) = mat(k,1015) - dti(k)
6815 254840160 : mat(k,1024) = mat(k,1024) - dti(k)
6816 254840160 : mat(k,1041) = mat(k,1041) - dti(k)
6817 254840160 : mat(k,1054) = mat(k,1054) - dti(k)
6818 254840160 : mat(k,1071) = mat(k,1071) - dti(k)
6819 254840160 : mat(k,1092) = mat(k,1092) - dti(k)
6820 254840160 : mat(k,1106) = mat(k,1106) - dti(k)
6821 254840160 : mat(k,1110) = mat(k,1110) - dti(k)
6822 254840160 : mat(k,1121) = mat(k,1121) - dti(k)
6823 254840160 : mat(k,1132) = mat(k,1132) - dti(k)
6824 254840160 : mat(k,1143) = mat(k,1143) - dti(k)
6825 254840160 : mat(k,1150) = mat(k,1150) - dti(k)
6826 254840160 : mat(k,1159) = mat(k,1159) - dti(k)
6827 254840160 : mat(k,1166) = mat(k,1166) - dti(k)
6828 254840160 : mat(k,1182) = mat(k,1182) - dti(k)
6829 254840160 : mat(k,1194) = mat(k,1194) - dti(k)
6830 254840160 : mat(k,1210) = mat(k,1210) - dti(k)
6831 254840160 : mat(k,1218) = mat(k,1218) - dti(k)
6832 254840160 : mat(k,1228) = mat(k,1228) - dti(k)
6833 254840160 : mat(k,1235) = mat(k,1235) - dti(k)
6834 254840160 : mat(k,1242) = mat(k,1242) - dti(k)
6835 254840160 : mat(k,1252) = mat(k,1252) - dti(k)
6836 254840160 : mat(k,1272) = mat(k,1272) - dti(k)
6837 254840160 : mat(k,1289) = mat(k,1289) - dti(k)
6838 254840160 : mat(k,1298) = mat(k,1298) - dti(k)
6839 254840160 : mat(k,1309) = mat(k,1309) - dti(k)
6840 254840160 : mat(k,1325) = mat(k,1325) - dti(k)
6841 254840160 : mat(k,1336) = mat(k,1336) - dti(k)
6842 254840160 : mat(k,1350) = mat(k,1350) - dti(k)
6843 254840160 : mat(k,1361) = mat(k,1361) - dti(k)
6844 254840160 : mat(k,1377) = mat(k,1377) - dti(k)
6845 254840160 : mat(k,1385) = mat(k,1385) - dti(k)
6846 254840160 : mat(k,1410) = mat(k,1410) - dti(k)
6847 254840160 : mat(k,1431) = mat(k,1431) - dti(k)
6848 254840160 : mat(k,1440) = mat(k,1440) - dti(k)
6849 254840160 : mat(k,1454) = mat(k,1454) - dti(k)
6850 254840160 : mat(k,1461) = mat(k,1461) - dti(k)
6851 254840160 : mat(k,1468) = mat(k,1468) - dti(k)
6852 254840160 : mat(k,1476) = mat(k,1476) - dti(k)
6853 254840160 : mat(k,1481) = mat(k,1481) - dti(k)
6854 254840160 : mat(k,1487) = mat(k,1487) - dti(k)
6855 254840160 : mat(k,1494) = mat(k,1494) - dti(k)
6856 254840160 : mat(k,1498) = mat(k,1498) - dti(k)
6857 254840160 : mat(k,1508) = mat(k,1508) - dti(k)
6858 254840160 : mat(k,1524) = mat(k,1524) - dti(k)
6859 254840160 : mat(k,1536) = mat(k,1536) - dti(k)
6860 254840160 : mat(k,1543) = mat(k,1543) - dti(k)
6861 254840160 : mat(k,1557) = mat(k,1557) - dti(k)
6862 254840160 : mat(k,1572) = mat(k,1572) - dti(k)
6863 254840160 : mat(k,1600) = mat(k,1600) - dti(k)
6864 254840160 : mat(k,1613) = mat(k,1613) - dti(k)
6865 254840160 : mat(k,1620) = mat(k,1620) - dti(k)
6866 254840160 : mat(k,1640) = mat(k,1640) - dti(k)
6867 254840160 : mat(k,1659) = mat(k,1659) - dti(k)
6868 254840160 : mat(k,1673) = mat(k,1673) - dti(k)
6869 254840160 : mat(k,1689) = mat(k,1689) - dti(k)
6870 254840160 : mat(k,1702) = mat(k,1702) - dti(k)
6871 254840160 : mat(k,1712) = mat(k,1712) - dti(k)
6872 254840160 : mat(k,1718) = mat(k,1718) - dti(k)
6873 254840160 : mat(k,1732) = mat(k,1732) - dti(k)
6874 254840160 : mat(k,1754) = mat(k,1754) - dti(k)
6875 254840160 : mat(k,1770) = mat(k,1770) - dti(k)
6876 254840160 : mat(k,1778) = mat(k,1778) - dti(k)
6877 254840160 : mat(k,1793) = mat(k,1793) - dti(k)
6878 254840160 : mat(k,1817) = mat(k,1817) - dti(k)
6879 254840160 : mat(k,1848) = mat(k,1848) - dti(k)
6880 254840160 : mat(k,1872) = mat(k,1872) - dti(k)
6881 254840160 : mat(k,1896) = mat(k,1896) - dti(k)
6882 254840160 : mat(k,1916) = mat(k,1916) - dti(k)
6883 254840160 : mat(k,1926) = mat(k,1926) - dti(k)
6884 254840160 : mat(k,1953) = mat(k,1953) - dti(k)
6885 254840160 : mat(k,1991) = mat(k,1991) - dti(k)
6886 254840160 : mat(k,2016) = mat(k,2016) - dti(k)
6887 254840160 : mat(k,2041) = mat(k,2041) - dti(k)
6888 254840160 : mat(k,2057) = mat(k,2057) - dti(k)
6889 254840160 : mat(k,2078) = mat(k,2078) - dti(k)
6890 254840160 : mat(k,2110) = mat(k,2110) - dti(k)
6891 254840160 : mat(k,2140) = mat(k,2140) - dti(k)
6892 254840160 : mat(k,2180) = mat(k,2180) - dti(k)
6893 254840160 : mat(k,2199) = mat(k,2199) - dti(k)
6894 254840160 : mat(k,2213) = mat(k,2213) - dti(k)
6895 254840160 : mat(k,2235) = mat(k,2235) - dti(k)
6896 254840160 : mat(k,2259) = mat(k,2259) - dti(k)
6897 254840160 : mat(k,2277) = mat(k,2277) - dti(k)
6898 254840160 : mat(k,2296) = mat(k,2296) - dti(k)
6899 254840160 : mat(k,2320) = mat(k,2320) - dti(k)
6900 254840160 : mat(k,2339) = mat(k,2339) - dti(k)
6901 254840160 : mat(k,2359) = mat(k,2359) - dti(k)
6902 254840160 : mat(k,2380) = mat(k,2380) - dti(k)
6903 254840160 : mat(k,2408) = mat(k,2408) - dti(k)
6904 254840160 : mat(k,2441) = mat(k,2441) - dti(k)
6905 254840160 : mat(k,2471) = mat(k,2471) - dti(k)
6906 254840160 : mat(k,2505) = mat(k,2505) - dti(k)
6907 254840160 : mat(k,2536) = mat(k,2536) - dti(k)
6908 254840160 : mat(k,2570) = mat(k,2570) - dti(k)
6909 254840160 : mat(k,2600) = mat(k,2600) - dti(k)
6910 254840160 : mat(k,2629) = mat(k,2629) - dti(k)
6911 254840160 : mat(k,2654) = mat(k,2654) - dti(k)
6912 254840160 : mat(k,2677) = mat(k,2677) - dti(k)
6913 254840160 : mat(k,2701) = mat(k,2701) - dti(k)
6914 254840160 : mat(k,2745) = mat(k,2745) - dti(k)
6915 254840160 : mat(k,2792) = mat(k,2792) - dti(k)
6916 254840160 : mat(k,2840) = mat(k,2840) - dti(k)
6917 254840160 : mat(k,2913) = mat(k,2913) - dti(k)
6918 254840160 : mat(k,2931) = mat(k,2931) - dti(k)
6919 254840160 : mat(k,2949) = mat(k,2949) - dti(k)
6920 254840160 : mat(k,3106) = mat(k,3106) - dti(k)
6921 254840160 : mat(k,3129) = mat(k,3129) - dti(k)
6922 254840160 : mat(k,3161) = mat(k,3161) - dti(k)
6923 254840160 : mat(k,3188) = mat(k,3188) - dti(k)
6924 254840160 : mat(k,3369) = mat(k,3369) - dti(k)
6925 254840160 : mat(k,3463) = mat(k,3463) - dti(k)
6926 254840160 : mat(k,3488) = mat(k,3488) - dti(k)
6927 254840160 : mat(k,3515) = mat(k,3515) - dti(k)
6928 254840160 : mat(k,3610) = mat(k,3610) - dti(k)
6929 254840160 : mat(k,3663) = mat(k,3663) - dti(k)
6930 254840160 : mat(k,3766) = mat(k,3766) - dti(k)
6931 254840160 : mat(k,3808) = mat(k,3808) - dti(k)
6932 254840160 : mat(k,3850) = mat(k,3850) - dti(k)
6933 254840160 : mat(k,4101) = mat(k,4101) - dti(k)
6934 263009123 : mat(k,4128) = mat(k,4128) - dti(k)
6935 : end do
6936 8168963 : end subroutine nlnmat_finit
6937 8168963 : subroutine nlnmat( avec_len, mat, y, rxt, lmat, dti )
6938 : use chem_mods, only : gas_pcnst, rxntot, nzcnt
6939 : implicit none
6940 : !----------------------------------------------
6941 : ! ... dummy arguments
6942 : !----------------------------------------------
6943 : integer, intent(in) :: avec_len
6944 : real(r8), intent(in) :: dti(veclen)
6945 : real(r8), intent(in) :: lmat(veclen,nzcnt)
6946 : real(r8), intent(in) :: y(veclen,gas_pcnst)
6947 : real(r8), intent(in) :: rxt(veclen,rxntot)
6948 : real(r8), intent(inout) :: mat(veclen,nzcnt)
6949 8168963 : call nlnmat01( avec_len, mat, y, rxt )
6950 8168963 : call nlnmat02( avec_len, mat, y, rxt )
6951 8168963 : call nlnmat03( avec_len, mat, y, rxt )
6952 8168963 : call nlnmat04( avec_len, mat, y, rxt )
6953 8168963 : call nlnmat05( avec_len, mat, y, rxt )
6954 8168963 : call nlnmat06( avec_len, mat, y, rxt )
6955 8168963 : call nlnmat07( avec_len, mat, y, rxt )
6956 8168963 : call nlnmat08( avec_len, mat, y, rxt )
6957 8168963 : call nlnmat09( avec_len, mat, y, rxt )
6958 8168963 : call nlnmat10( avec_len, mat, y, rxt )
6959 8168963 : call nlnmat11( avec_len, mat, y, rxt )
6960 8168963 : call nlnmat12( avec_len, mat, y, rxt )
6961 8168963 : call nlnmat13( avec_len, mat, y, rxt )
6962 8168963 : call nlnmat14( avec_len, mat, y, rxt )
6963 8168963 : call nlnmat15( avec_len, mat, y, rxt )
6964 8168963 : call nlnmat16( avec_len, mat, y, rxt )
6965 8168963 : call nlnmat17( avec_len, mat, y, rxt )
6966 8168963 : call nlnmat_finit( avec_len, mat, lmat, dti )
6967 8168963 : end subroutine nlnmat
6968 : end module mo_nln_matrix
|