Line data Source code
1 : module mo_lu_factor
2 : use chem_mods, only: veclen
3 : private
4 : public :: lu_fac
5 : contains
6 8168963 : subroutine lu_fac01( avec_len, lu )
7 : use chem_mods, only : nzcnt
8 : use shr_kind_mod, only : r8 => shr_kind_r8
9 : implicit none
10 : !-----------------------------------------------------------------------
11 : ! ... dummy args
12 : !-----------------------------------------------------------------------
13 : integer, intent(in) :: avec_len
14 : real(r8), intent(inout) :: lu(veclen,nzcnt)
15 : !-----------------------------------------------------------------------
16 : ! ... local variables
17 : !-----------------------------------------------------------------------
18 : integer :: k
19 263009123 : do k = 1,avec_len
20 254840160 : lu(k,1) = 1._r8 / lu(k,1)
21 254840160 : lu(k,2) = 1._r8 / lu(k,2)
22 254840160 : lu(k,3) = 1._r8 / lu(k,3)
23 254840160 : lu(k,4) = 1._r8 / lu(k,4)
24 254840160 : lu(k,5) = 1._r8 / lu(k,5)
25 254840160 : lu(k,6) = 1._r8 / lu(k,6)
26 254840160 : lu(k,7) = 1._r8 / lu(k,7)
27 254840160 : lu(k,8) = 1._r8 / lu(k,8)
28 254840160 : lu(k,9) = 1._r8 / lu(k,9)
29 254840160 : lu(k,10) = 1._r8 / lu(k,10)
30 254840160 : lu(k,11) = 1._r8 / lu(k,11)
31 254840160 : lu(k,12) = 1._r8 / lu(k,12)
32 254840160 : lu(k,13) = 1._r8 / lu(k,13)
33 254840160 : lu(k,14) = 1._r8 / lu(k,14)
34 254840160 : lu(k,15) = 1._r8 / lu(k,15)
35 254840160 : lu(k,16) = 1._r8 / lu(k,16)
36 254840160 : lu(k,17) = 1._r8 / lu(k,17)
37 254840160 : lu(k,18) = 1._r8 / lu(k,18)
38 254840160 : lu(k,19) = 1._r8 / lu(k,19)
39 254840160 : lu(k,20) = 1._r8 / lu(k,20)
40 254840160 : lu(k,21) = 1._r8 / lu(k,21)
41 254840160 : lu(k,22) = 1._r8 / lu(k,22)
42 254840160 : lu(k,23) = 1._r8 / lu(k,23)
43 254840160 : lu(k,24) = 1._r8 / lu(k,24)
44 254840160 : lu(k,25) = 1._r8 / lu(k,25)
45 254840160 : lu(k,26) = 1._r8 / lu(k,26)
46 254840160 : lu(k,27) = 1._r8 / lu(k,27)
47 254840160 : lu(k,28) = 1._r8 / lu(k,28)
48 254840160 : lu(k,29) = 1._r8 / lu(k,29)
49 254840160 : lu(k,30) = 1._r8 / lu(k,30)
50 254840160 : lu(k,31) = 1._r8 / lu(k,31)
51 254840160 : lu(k,32) = 1._r8 / lu(k,32)
52 254840160 : lu(k,33) = 1._r8 / lu(k,33)
53 254840160 : lu(k,34) = 1._r8 / lu(k,34)
54 254840160 : lu(k,35) = 1._r8 / lu(k,35)
55 254840160 : lu(k,36) = 1._r8 / lu(k,36)
56 254840160 : lu(k,37) = 1._r8 / lu(k,37)
57 254840160 : lu(k,38) = 1._r8 / lu(k,38)
58 254840160 : lu(k,39) = 1._r8 / lu(k,39)
59 254840160 : lu(k,40) = 1._r8 / lu(k,40)
60 254840160 : lu(k,41) = 1._r8 / lu(k,41)
61 254840160 : lu(k,42) = 1._r8 / lu(k,42)
62 254840160 : lu(k,43) = 1._r8 / lu(k,43)
63 254840160 : lu(k,44) = 1._r8 / lu(k,44)
64 254840160 : lu(k,45) = 1._r8 / lu(k,45)
65 254840160 : lu(k,51) = 1._r8 / lu(k,51)
66 254840160 : lu(k,57) = 1._r8 / lu(k,57)
67 254840160 : lu(k,63) = 1._r8 / lu(k,63)
68 254840160 : lu(k,69) = 1._r8 / lu(k,69)
69 254840160 : lu(k,75) = 1._r8 / lu(k,75)
70 263009123 : lu(k,81) = 1._r8 / lu(k,81)
71 : end do
72 8168963 : end subroutine lu_fac01
73 8168963 : subroutine lu_fac02( avec_len, lu )
74 : use chem_mods, only : nzcnt
75 : use shr_kind_mod, only : r8 => shr_kind_r8
76 : implicit none
77 : !-----------------------------------------------------------------------
78 : ! ... dummy args
79 : !-----------------------------------------------------------------------
80 : integer, intent(in) :: avec_len
81 : real(r8), intent(inout) :: lu(veclen,nzcnt)
82 : !-----------------------------------------------------------------------
83 : ! ... local variables
84 : !-----------------------------------------------------------------------
85 : integer :: k
86 263009123 : do k = 1,avec_len
87 254840160 : lu(k,87) = 1._r8 / lu(k,87)
88 254840160 : lu(k,89) = 1._r8 / lu(k,89)
89 254840160 : lu(k,95) = 1._r8 / lu(k,95)
90 254840160 : lu(k,101) = 1._r8 / lu(k,101)
91 254840160 : lu(k,107) = 1._r8 / lu(k,107)
92 254840160 : lu(k,113) = 1._r8 / lu(k,113)
93 254840160 : lu(k,114) = 1._r8 / lu(k,114)
94 254840160 : lu(k,115) = lu(k,115) * lu(k,114)
95 254840160 : lu(k,116) = lu(k,116) * lu(k,114)
96 254840160 : lu(k,3515) = lu(k,3515) - lu(k,115) * lu(k,3497)
97 254840160 : lu(k,3520) = lu(k,3520) - lu(k,116) * lu(k,3497)
98 254840160 : lu(k,117) = 1._r8 / lu(k,117)
99 254840160 : lu(k,118) = lu(k,118) * lu(k,117)
100 254840160 : lu(k,119) = lu(k,119) * lu(k,117)
101 254840160 : lu(k,4101) = lu(k,4101) - lu(k,118) * lu(k,3870)
102 254840160 : lu(k,4102) = lu(k,4102) - lu(k,119) * lu(k,3870)
103 254840160 : lu(k,120) = 1._r8 / lu(k,120)
104 254840160 : lu(k,121) = lu(k,121) * lu(k,120)
105 254840160 : lu(k,122) = lu(k,122) * lu(k,120)
106 254840160 : lu(k,3808) = lu(k,3808) - lu(k,121) * lu(k,3771)
107 254840160 : lu(k,3809) = lu(k,3809) - lu(k,122) * lu(k,3771)
108 254840160 : lu(k,123) = 1._r8 / lu(k,123)
109 254840160 : lu(k,124) = lu(k,124) * lu(k,123)
110 254840160 : lu(k,125) = lu(k,125) * lu(k,123)
111 254840160 : lu(k,4092) = lu(k,4092) - lu(k,124) * lu(k,3871)
112 254840160 : lu(k,4101) = lu(k,4101) - lu(k,125) * lu(k,3871)
113 254840160 : lu(k,126) = 1._r8 / lu(k,126)
114 254840160 : lu(k,127) = lu(k,127) * lu(k,126)
115 254840160 : lu(k,128) = lu(k,128) * lu(k,126)
116 254840160 : lu(k,129) = lu(k,129) * lu(k,126)
117 254840160 : lu(k,3782) = lu(k,3782) - lu(k,127) * lu(k,3772)
118 254840160 : lu(k,3793) = lu(k,3793) - lu(k,128) * lu(k,3772)
119 254840160 : lu(k,3808) = lu(k,3808) - lu(k,129) * lu(k,3772)
120 254840160 : lu(k,130) = 1._r8 / lu(k,130)
121 254840160 : lu(k,131) = lu(k,131) * lu(k,130)
122 254840160 : lu(k,132) = lu(k,132) * lu(k,130)
123 254840160 : lu(k,133) = lu(k,133) * lu(k,130)
124 254840160 : lu(k,3984) = lu(k,3984) - lu(k,131) * lu(k,3872)
125 254840160 : lu(k,4101) = lu(k,4101) - lu(k,132) * lu(k,3872)
126 254840160 : lu(k,4102) = lu(k,4102) - lu(k,133) * lu(k,3872)
127 254840160 : lu(k,134) = 1._r8 / lu(k,134)
128 254840160 : lu(k,135) = lu(k,135) * lu(k,134)
129 254840160 : lu(k,136) = lu(k,136) * lu(k,134)
130 254840160 : lu(k,137) = lu(k,137) * lu(k,134)
131 254840160 : lu(k,3784) = lu(k,3784) - lu(k,135) * lu(k,3773)
132 254840160 : lu(k,3808) = lu(k,3808) - lu(k,136) * lu(k,3773)
133 254840160 : lu(k,3809) = lu(k,3809) - lu(k,137) * lu(k,3773)
134 254840160 : lu(k,138) = 1._r8 / lu(k,138)
135 254840160 : lu(k,139) = lu(k,139) * lu(k,138)
136 254840160 : lu(k,140) = lu(k,140) * lu(k,138)
137 254840160 : lu(k,141) = lu(k,141) * lu(k,138)
138 254840160 : lu(k,3782) = lu(k,3782) - lu(k,139) * lu(k,3774)
139 254840160 : lu(k,3808) = lu(k,3808) - lu(k,140) * lu(k,3774)
140 254840160 : lu(k,3809) = lu(k,3809) - lu(k,141) * lu(k,3774)
141 254840160 : lu(k,142) = 1._r8 / lu(k,142)
142 254840160 : lu(k,143) = lu(k,143) * lu(k,142)
143 254840160 : lu(k,144) = lu(k,144) * lu(k,142)
144 254840160 : lu(k,145) = lu(k,145) * lu(k,142)
145 254840160 : lu(k,3782) = lu(k,3782) - lu(k,143) * lu(k,3775)
146 254840160 : lu(k,3808) = lu(k,3808) - lu(k,144) * lu(k,3775)
147 254840160 : lu(k,3809) = lu(k,3809) - lu(k,145) * lu(k,3775)
148 254840160 : lu(k,146) = 1._r8 / lu(k,146)
149 254840160 : lu(k,147) = lu(k,147) * lu(k,146)
150 254840160 : lu(k,148) = lu(k,148) * lu(k,146)
151 254840160 : lu(k,149) = lu(k,149) * lu(k,146)
152 254840160 : lu(k,4100) = lu(k,4100) - lu(k,147) * lu(k,3873)
153 254840160 : lu(k,4101) = lu(k,4101) - lu(k,148) * lu(k,3873)
154 254840160 : lu(k,4102) = lu(k,4102) - lu(k,149) * lu(k,3873)
155 254840160 : lu(k,150) = 1._r8 / lu(k,150)
156 254840160 : lu(k,151) = lu(k,151) * lu(k,150)
157 254840160 : lu(k,152) = lu(k,152) * lu(k,150)
158 254840160 : lu(k,854) = lu(k,854) - lu(k,151) * lu(k,853)
159 254840160 : lu(k,861) = - lu(k,152) * lu(k,853)
160 254840160 : lu(k,3218) = - lu(k,151) * lu(k,3216)
161 254840160 : lu(k,3378) = lu(k,3378) - lu(k,152) * lu(k,3216)
162 254840160 : lu(k,153) = 1._r8 / lu(k,153)
163 254840160 : lu(k,154) = lu(k,154) * lu(k,153)
164 254840160 : lu(k,155) = lu(k,155) * lu(k,153)
165 254840160 : lu(k,279) = lu(k,279) - lu(k,154) * lu(k,278)
166 254840160 : lu(k,282) = lu(k,282) - lu(k,155) * lu(k,278)
167 254840160 : lu(k,4104) = lu(k,4104) - lu(k,154) * lu(k,4103)
168 254840160 : lu(k,4128) = lu(k,4128) - lu(k,155) * lu(k,4103)
169 254840160 : lu(k,156) = 1._r8 / lu(k,156)
170 254840160 : lu(k,157) = lu(k,157) * lu(k,156)
171 254840160 : lu(k,158) = lu(k,158) * lu(k,156)
172 254840160 : lu(k,550) = lu(k,550) - lu(k,157) * lu(k,549)
173 254840160 : lu(k,554) = lu(k,554) - lu(k,158) * lu(k,549)
174 254840160 : lu(k,3625) = lu(k,3625) - lu(k,157) * lu(k,3617)
175 263009123 : lu(k,3663) = lu(k,3663) - lu(k,158) * lu(k,3617)
176 : end do
177 8168963 : end subroutine lu_fac02
178 8168963 : subroutine lu_fac03( avec_len, lu )
179 : use chem_mods, only : nzcnt
180 : use shr_kind_mod, only : r8 => shr_kind_r8
181 : implicit none
182 : !-----------------------------------------------------------------------
183 : ! ... dummy args
184 : !-----------------------------------------------------------------------
185 : integer, intent(in) :: avec_len
186 : real(r8), intent(inout) :: lu(veclen,nzcnt)
187 : !-----------------------------------------------------------------------
188 : ! ... local variables
189 : !-----------------------------------------------------------------------
190 : integer :: k
191 263009123 : do k = 1,avec_len
192 254840160 : lu(k,159) = 1._r8 / lu(k,159)
193 254840160 : lu(k,160) = lu(k,160) * lu(k,159)
194 254840160 : lu(k,161) = lu(k,161) * lu(k,159)
195 254840160 : lu(k,162) = lu(k,162) * lu(k,159)
196 254840160 : lu(k,163) = lu(k,163) * lu(k,159)
197 254840160 : lu(k,3782) = lu(k,3782) - lu(k,160) * lu(k,3776)
198 254840160 : lu(k,3793) = lu(k,3793) - lu(k,161) * lu(k,3776)
199 254840160 : lu(k,3808) = lu(k,3808) - lu(k,162) * lu(k,3776)
200 254840160 : lu(k,3809) = lu(k,3809) - lu(k,163) * lu(k,3776)
201 254840160 : lu(k,164) = 1._r8 / lu(k,164)
202 254840160 : lu(k,165) = lu(k,165) * lu(k,164)
203 254840160 : lu(k,166) = lu(k,166) * lu(k,164)
204 254840160 : lu(k,167) = lu(k,167) * lu(k,164)
205 254840160 : lu(k,168) = lu(k,168) * lu(k,164)
206 254840160 : lu(k,3782) = lu(k,3782) - lu(k,165) * lu(k,3777)
207 254840160 : lu(k,3791) = lu(k,3791) - lu(k,166) * lu(k,3777)
208 254840160 : lu(k,3793) = lu(k,3793) - lu(k,167) * lu(k,3777)
209 254840160 : lu(k,3808) = lu(k,3808) - lu(k,168) * lu(k,3777)
210 254840160 : lu(k,169) = 1._r8 / lu(k,169)
211 254840160 : lu(k,170) = lu(k,170) * lu(k,169)
212 254840160 : lu(k,171) = lu(k,171) * lu(k,169)
213 254840160 : lu(k,172) = lu(k,172) * lu(k,169)
214 254840160 : lu(k,173) = lu(k,173) * lu(k,169)
215 254840160 : lu(k,3782) = lu(k,3782) - lu(k,170) * lu(k,3778)
216 254840160 : lu(k,3784) = lu(k,3784) - lu(k,171) * lu(k,3778)
217 254840160 : lu(k,3808) = lu(k,3808) - lu(k,172) * lu(k,3778)
218 254840160 : lu(k,3809) = lu(k,3809) - lu(k,173) * lu(k,3778)
219 254840160 : lu(k,174) = 1._r8 / lu(k,174)
220 254840160 : lu(k,175) = lu(k,175) * lu(k,174)
221 254840160 : lu(k,176) = lu(k,176) * lu(k,174)
222 254840160 : lu(k,177) = lu(k,177) * lu(k,174)
223 254840160 : lu(k,178) = lu(k,178) * lu(k,174)
224 254840160 : lu(k,3782) = lu(k,3782) - lu(k,175) * lu(k,3779)
225 254840160 : lu(k,3791) = lu(k,3791) - lu(k,176) * lu(k,3779)
226 254840160 : lu(k,3808) = lu(k,3808) - lu(k,177) * lu(k,3779)
227 254840160 : lu(k,3809) = lu(k,3809) - lu(k,178) * lu(k,3779)
228 254840160 : lu(k,179) = 1._r8 / lu(k,179)
229 254840160 : lu(k,180) = lu(k,180) * lu(k,179)
230 254840160 : lu(k,1163) = lu(k,1163) - lu(k,180) * lu(k,1158)
231 254840160 : lu(k,1332) = lu(k,1332) - lu(k,180) * lu(k,1323)
232 254840160 : lu(k,3140) = lu(k,3140) - lu(k,180) * lu(k,3121)
233 254840160 : lu(k,3520) = lu(k,3520) - lu(k,180) * lu(k,3498)
234 254840160 : lu(k,3850) = lu(k,3850) - lu(k,180) * lu(k,3812)
235 254840160 : lu(k,182) = 1._r8 / lu(k,182)
236 254840160 : lu(k,183) = lu(k,183) * lu(k,182)
237 254840160 : lu(k,184) = lu(k,184) * lu(k,182)
238 254840160 : lu(k,185) = lu(k,185) * lu(k,182)
239 254840160 : lu(k,186) = lu(k,186) * lu(k,182)
240 254840160 : lu(k,187) = lu(k,187) * lu(k,182)
241 254840160 : lu(k,3875) = lu(k,3875) - lu(k,183) * lu(k,3874)
242 254840160 : lu(k,3876) = lu(k,3876) - lu(k,184) * lu(k,3874)
243 254840160 : lu(k,3928) = lu(k,3928) - lu(k,185) * lu(k,3874)
244 254840160 : lu(k,4092) = lu(k,4092) - lu(k,186) * lu(k,3874)
245 254840160 : lu(k,4101) = lu(k,4101) - lu(k,187) * lu(k,3874)
246 254840160 : lu(k,188) = 1._r8 / lu(k,188)
247 254840160 : lu(k,189) = lu(k,189) * lu(k,188)
248 254840160 : lu(k,190) = lu(k,190) * lu(k,188)
249 254840160 : lu(k,191) = lu(k,191) * lu(k,188)
250 254840160 : lu(k,3921) = - lu(k,189) * lu(k,3875)
251 254840160 : lu(k,4057) = lu(k,4057) - lu(k,190) * lu(k,3875)
252 254840160 : lu(k,4092) = lu(k,4092) - lu(k,191) * lu(k,3875)
253 254840160 : lu(k,192) = 1._r8 / lu(k,192)
254 254840160 : lu(k,193) = lu(k,193) * lu(k,192)
255 254840160 : lu(k,194) = lu(k,194) * lu(k,192)
256 254840160 : lu(k,195) = lu(k,195) * lu(k,192)
257 254840160 : lu(k,196) = lu(k,196) * lu(k,192)
258 254840160 : lu(k,3919) = lu(k,3919) - lu(k,193) * lu(k,3876)
259 254840160 : lu(k,3924) = lu(k,3924) - lu(k,194) * lu(k,3876)
260 254840160 : lu(k,4092) = lu(k,4092) - lu(k,195) * lu(k,3876)
261 254840160 : lu(k,4101) = lu(k,4101) - lu(k,196) * lu(k,3876)
262 254840160 : lu(k,197) = 1._r8 / lu(k,197)
263 254840160 : lu(k,198) = lu(k,198) * lu(k,197)
264 254840160 : lu(k,199) = lu(k,199) * lu(k,197)
265 254840160 : lu(k,200) = lu(k,200) * lu(k,197)
266 254840160 : lu(k,3801) = lu(k,3801) - lu(k,198) * lu(k,3780)
267 254840160 : lu(k,3808) = lu(k,3808) - lu(k,199) * lu(k,3780)
268 254840160 : lu(k,3810) = lu(k,3810) - lu(k,200) * lu(k,3780)
269 254840160 : lu(k,4092) = lu(k,4092) - lu(k,198) * lu(k,3877)
270 254840160 : lu(k,4099) = - lu(k,199) * lu(k,3877)
271 254840160 : lu(k,4101) = lu(k,4101) - lu(k,200) * lu(k,3877)
272 254840160 : lu(k,201) = 1._r8 / lu(k,201)
273 254840160 : lu(k,202) = lu(k,202) * lu(k,201)
274 254840160 : lu(k,203) = lu(k,203) * lu(k,201)
275 254840160 : lu(k,479) = lu(k,479) - lu(k,202) * lu(k,476)
276 254840160 : lu(k,482) = - lu(k,203) * lu(k,476)
277 254840160 : lu(k,3654) = lu(k,3654) - lu(k,202) * lu(k,3618)
278 254840160 : lu(k,3665) = - lu(k,203) * lu(k,3618)
279 254840160 : lu(k,3797) = lu(k,3797) - lu(k,202) * lu(k,3781)
280 254840160 : lu(k,3808) = lu(k,3808) - lu(k,203) * lu(k,3781)
281 254840160 : lu(k,204) = 1._r8 / lu(k,204)
282 254840160 : lu(k,205) = lu(k,205) * lu(k,204)
283 254840160 : lu(k,206) = lu(k,206) * lu(k,204)
284 254840160 : lu(k,1094) = - lu(k,205) * lu(k,1091)
285 254840160 : lu(k,1105) = lu(k,1105) - lu(k,206) * lu(k,1091)
286 254840160 : lu(k,3689) = - lu(k,205) * lu(k,3674)
287 254840160 : lu(k,3769) = lu(k,3769) - lu(k,206) * lu(k,3674)
288 254840160 : lu(k,3997) = lu(k,3997) - lu(k,205) * lu(k,3878)
289 263009123 : lu(k,4101) = lu(k,4101) - lu(k,206) * lu(k,3878)
290 : end do
291 8168963 : end subroutine lu_fac03
292 8168963 : subroutine lu_fac04( avec_len, lu )
293 : use chem_mods, only : nzcnt
294 : use shr_kind_mod, only : r8 => shr_kind_r8
295 : implicit none
296 : !-----------------------------------------------------------------------
297 : ! ... dummy args
298 : !-----------------------------------------------------------------------
299 : integer, intent(in) :: avec_len
300 : real(r8), intent(inout) :: lu(veclen,nzcnt)
301 : !-----------------------------------------------------------------------
302 : ! ... local variables
303 : !-----------------------------------------------------------------------
304 : integer :: k
305 263009123 : do k = 1,avec_len
306 254840160 : lu(k,207) = 1._r8 / lu(k,207)
307 254840160 : lu(k,208) = lu(k,208) * lu(k,207)
308 254840160 : lu(k,209) = lu(k,209) * lu(k,207)
309 254840160 : lu(k,981) = lu(k,981) - lu(k,208) * lu(k,973)
310 254840160 : lu(k,984) = lu(k,984) - lu(k,209) * lu(k,973)
311 254840160 : lu(k,1920) = - lu(k,208) * lu(k,1911)
312 254840160 : lu(k,1924) = lu(k,1924) - lu(k,209) * lu(k,1911)
313 254840160 : lu(k,4087) = lu(k,4087) - lu(k,208) * lu(k,3879)
314 254840160 : lu(k,4097) = lu(k,4097) - lu(k,209) * lu(k,3879)
315 254840160 : lu(k,211) = 1._r8 / lu(k,211)
316 254840160 : lu(k,212) = lu(k,212) * lu(k,211)
317 254840160 : lu(k,213) = lu(k,213) * lu(k,211)
318 254840160 : lu(k,214) = lu(k,214) * lu(k,211)
319 254840160 : lu(k,215) = lu(k,215) * lu(k,211)
320 254840160 : lu(k,216) = lu(k,216) * lu(k,211)
321 254840160 : lu(k,217) = lu(k,217) * lu(k,211)
322 254840160 : lu(k,3881) = lu(k,3881) - lu(k,212) * lu(k,3880)
323 254840160 : lu(k,3882) = lu(k,3882) - lu(k,213) * lu(k,3880)
324 254840160 : lu(k,3916) = lu(k,3916) - lu(k,214) * lu(k,3880)
325 254840160 : lu(k,3968) = lu(k,3968) - lu(k,215) * lu(k,3880)
326 254840160 : lu(k,4092) = lu(k,4092) - lu(k,216) * lu(k,3880)
327 254840160 : lu(k,4101) = lu(k,4101) - lu(k,217) * lu(k,3880)
328 254840160 : lu(k,218) = 1._r8 / lu(k,218)
329 254840160 : lu(k,219) = lu(k,219) * lu(k,218)
330 254840160 : lu(k,220) = lu(k,220) * lu(k,218)
331 254840160 : lu(k,221) = lu(k,221) * lu(k,218)
332 254840160 : lu(k,222) = lu(k,222) * lu(k,218)
333 254840160 : lu(k,3919) = lu(k,3919) - lu(k,219) * lu(k,3881)
334 254840160 : lu(k,3924) = lu(k,3924) - lu(k,220) * lu(k,3881)
335 254840160 : lu(k,4092) = lu(k,4092) - lu(k,221) * lu(k,3881)
336 254840160 : lu(k,4101) = lu(k,4101) - lu(k,222) * lu(k,3881)
337 254840160 : lu(k,223) = 1._r8 / lu(k,223)
338 254840160 : lu(k,224) = lu(k,224) * lu(k,223)
339 254840160 : lu(k,225) = lu(k,225) * lu(k,223)
340 254840160 : lu(k,226) = lu(k,226) * lu(k,223)
341 254840160 : lu(k,233) = - lu(k,224) * lu(k,228)
342 254840160 : lu(k,234) = - lu(k,225) * lu(k,228)
343 254840160 : lu(k,235) = lu(k,235) - lu(k,226) * lu(k,228)
344 254840160 : lu(k,4057) = lu(k,4057) - lu(k,224) * lu(k,3882)
345 254840160 : lu(k,4085) = lu(k,4085) - lu(k,225) * lu(k,3882)
346 254840160 : lu(k,4092) = lu(k,4092) - lu(k,226) * lu(k,3882)
347 254840160 : lu(k,229) = 1._r8 / lu(k,229)
348 254840160 : lu(k,230) = lu(k,230) * lu(k,229)
349 254840160 : lu(k,231) = lu(k,231) * lu(k,229)
350 254840160 : lu(k,232) = lu(k,232) * lu(k,229)
351 254840160 : lu(k,233) = lu(k,233) * lu(k,229)
352 254840160 : lu(k,234) = lu(k,234) * lu(k,229)
353 254840160 : lu(k,235) = lu(k,235) * lu(k,229)
354 254840160 : lu(k,236) = lu(k,236) * lu(k,229)
355 254840160 : lu(k,3884) = lu(k,3884) - lu(k,230) * lu(k,3883)
356 254840160 : lu(k,3916) = lu(k,3916) - lu(k,231) * lu(k,3883)
357 254840160 : lu(k,3970) = lu(k,3970) - lu(k,232) * lu(k,3883)
358 254840160 : lu(k,4057) = lu(k,4057) - lu(k,233) * lu(k,3883)
359 254840160 : lu(k,4085) = lu(k,4085) - lu(k,234) * lu(k,3883)
360 254840160 : lu(k,4092) = lu(k,4092) - lu(k,235) * lu(k,3883)
361 254840160 : lu(k,4101) = lu(k,4101) - lu(k,236) * lu(k,3883)
362 254840160 : lu(k,237) = 1._r8 / lu(k,237)
363 254840160 : lu(k,238) = lu(k,238) * lu(k,237)
364 254840160 : lu(k,239) = lu(k,239) * lu(k,237)
365 254840160 : lu(k,240) = lu(k,240) * lu(k,237)
366 254840160 : lu(k,241) = lu(k,241) * lu(k,237)
367 254840160 : lu(k,3924) = lu(k,3924) - lu(k,238) * lu(k,3884)
368 254840160 : lu(k,3931) = lu(k,3931) - lu(k,239) * lu(k,3884)
369 254840160 : lu(k,4092) = lu(k,4092) - lu(k,240) * lu(k,3884)
370 254840160 : lu(k,4101) = lu(k,4101) - lu(k,241) * lu(k,3884)
371 254840160 : lu(k,242) = 1._r8 / lu(k,242)
372 254840160 : lu(k,243) = lu(k,243) * lu(k,242)
373 254840160 : lu(k,244) = lu(k,244) * lu(k,242)
374 254840160 : lu(k,996) = lu(k,996) - lu(k,243) * lu(k,994)
375 254840160 : lu(k,1000) = - lu(k,244) * lu(k,994)
376 254840160 : lu(k,3126) = - lu(k,243) * lu(k,3122)
377 254840160 : lu(k,3140) = lu(k,3140) - lu(k,244) * lu(k,3122)
378 254840160 : lu(k,3479) = lu(k,3479) - lu(k,243) * lu(k,3473)
379 254840160 : lu(k,3494) = lu(k,3494) - lu(k,244) * lu(k,3473)
380 254840160 : lu(k,3505) = lu(k,3505) - lu(k,243) * lu(k,3499)
381 254840160 : lu(k,3520) = lu(k,3520) - lu(k,244) * lu(k,3499)
382 254840160 : lu(k,245) = 1._r8 / lu(k,245)
383 254840160 : lu(k,246) = lu(k,246) * lu(k,245)
384 254840160 : lu(k,247) = lu(k,247) * lu(k,245)
385 254840160 : lu(k,355) = - lu(k,246) * lu(k,352)
386 254840160 : lu(k,357) = lu(k,357) - lu(k,247) * lu(k,352)
387 254840160 : lu(k,438) = - lu(k,246) * lu(k,435)
388 254840160 : lu(k,442) = - lu(k,247) * lu(k,435)
389 254840160 : lu(k,2990) = lu(k,2990) - lu(k,246) * lu(k,2978)
390 254840160 : lu(k,3119) = lu(k,3119) - lu(k,247) * lu(k,2978)
391 254840160 : lu(k,3933) = lu(k,3933) - lu(k,246) * lu(k,3885)
392 254840160 : lu(k,4101) = lu(k,4101) - lu(k,247) * lu(k,3885)
393 254840160 : lu(k,248) = 1._r8 / lu(k,248)
394 254840160 : lu(k,249) = lu(k,249) * lu(k,248)
395 254840160 : lu(k,250) = lu(k,250) * lu(k,248)
396 254840160 : lu(k,262) = - lu(k,249) * lu(k,260)
397 254840160 : lu(k,263) = lu(k,263) - lu(k,250) * lu(k,260)
398 254840160 : lu(k,327) = - lu(k,249) * lu(k,325)
399 254840160 : lu(k,328) = lu(k,328) - lu(k,250) * lu(k,325)
400 254840160 : lu(k,3791) = lu(k,3791) - lu(k,249) * lu(k,3782)
401 254840160 : lu(k,3808) = lu(k,3808) - lu(k,250) * lu(k,3782)
402 254840160 : lu(k,4003) = - lu(k,249) * lu(k,3886)
403 263009123 : lu(k,4099) = lu(k,4099) - lu(k,250) * lu(k,3886)
404 : end do
405 8168963 : end subroutine lu_fac04
406 8168963 : subroutine lu_fac05( avec_len, lu )
407 : use chem_mods, only : nzcnt
408 : use shr_kind_mod, only : r8 => shr_kind_r8
409 : implicit none
410 : !-----------------------------------------------------------------------
411 : ! ... dummy args
412 : !-----------------------------------------------------------------------
413 : integer, intent(in) :: avec_len
414 : real(r8), intent(inout) :: lu(veclen,nzcnt)
415 : !-----------------------------------------------------------------------
416 : ! ... local variables
417 : !-----------------------------------------------------------------------
418 : integer :: k
419 263009123 : do k = 1,avec_len
420 254840160 : lu(k,251) = 1._r8 / lu(k,251)
421 254840160 : lu(k,252) = lu(k,252) * lu(k,251)
422 254840160 : lu(k,253) = lu(k,253) * lu(k,251)
423 254840160 : lu(k,254) = lu(k,254) * lu(k,251)
424 254840160 : lu(k,255) = lu(k,255) * lu(k,251)
425 254840160 : lu(k,3784) = lu(k,3784) - lu(k,252) * lu(k,3783)
426 254840160 : lu(k,3808) = lu(k,3808) - lu(k,253) * lu(k,3783)
427 254840160 : lu(k,3809) = lu(k,3809) - lu(k,254) * lu(k,3783)
428 254840160 : lu(k,3810) = lu(k,3810) - lu(k,255) * lu(k,3783)
429 254840160 : lu(k,3888) = lu(k,3888) - lu(k,252) * lu(k,3887)
430 254840160 : lu(k,4099) = lu(k,4099) - lu(k,253) * lu(k,3887)
431 254840160 : lu(k,4100) = lu(k,4100) - lu(k,254) * lu(k,3887)
432 254840160 : lu(k,4101) = lu(k,4101) - lu(k,255) * lu(k,3887)
433 254840160 : lu(k,256) = 1._r8 / lu(k,256)
434 254840160 : lu(k,257) = lu(k,257) * lu(k,256)
435 254840160 : lu(k,258) = lu(k,258) * lu(k,256)
436 254840160 : lu(k,259) = lu(k,259) * lu(k,256)
437 254840160 : lu(k,3791) = lu(k,3791) - lu(k,257) * lu(k,3784)
438 254840160 : lu(k,3808) = lu(k,3808) - lu(k,258) * lu(k,3784)
439 254840160 : lu(k,3809) = lu(k,3809) - lu(k,259) * lu(k,3784)
440 254840160 : lu(k,4003) = lu(k,4003) - lu(k,257) * lu(k,3888)
441 254840160 : lu(k,4099) = lu(k,4099) - lu(k,258) * lu(k,3888)
442 254840160 : lu(k,4100) = lu(k,4100) - lu(k,259) * lu(k,3888)
443 254840160 : lu(k,261) = 1._r8 / lu(k,261)
444 254840160 : lu(k,262) = lu(k,262) * lu(k,261)
445 254840160 : lu(k,263) = lu(k,263) * lu(k,261)
446 254840160 : lu(k,264) = lu(k,264) * lu(k,261)
447 254840160 : lu(k,265) = lu(k,265) * lu(k,261)
448 254840160 : lu(k,3791) = lu(k,3791) - lu(k,262) * lu(k,3785)
449 254840160 : lu(k,3808) = lu(k,3808) - lu(k,263) * lu(k,3785)
450 254840160 : lu(k,3809) = lu(k,3809) - lu(k,264) * lu(k,3785)
451 254840160 : lu(k,3810) = lu(k,3810) - lu(k,265) * lu(k,3785)
452 254840160 : lu(k,4003) = lu(k,4003) - lu(k,262) * lu(k,3889)
453 254840160 : lu(k,4099) = lu(k,4099) - lu(k,263) * lu(k,3889)
454 254840160 : lu(k,4100) = lu(k,4100) - lu(k,264) * lu(k,3889)
455 254840160 : lu(k,4101) = lu(k,4101) - lu(k,265) * lu(k,3889)
456 254840160 : lu(k,266) = 1._r8 / lu(k,266)
457 254840160 : lu(k,267) = lu(k,267) * lu(k,266)
458 254840160 : lu(k,268) = lu(k,268) * lu(k,266)
459 254840160 : lu(k,1416) = - lu(k,267) * lu(k,1404)
460 254840160 : lu(k,1417) = - lu(k,268) * lu(k,1404)
461 254840160 : lu(k,1848) = lu(k,1848) - lu(k,267) * lu(k,1834)
462 254840160 : lu(k,1853) = - lu(k,268) * lu(k,1834)
463 254840160 : lu(k,1948) = - lu(k,267) * lu(k,1934)
464 254840160 : lu(k,1953) = lu(k,1953) - lu(k,268) * lu(k,1934)
465 254840160 : lu(k,4048) = - lu(k,267) * lu(k,3890)
466 254840160 : lu(k,4053) = lu(k,4053) - lu(k,268) * lu(k,3890)
467 254840160 : lu(k,269) = 1._r8 / lu(k,269)
468 254840160 : lu(k,270) = lu(k,270) * lu(k,269)
469 254840160 : lu(k,271) = lu(k,271) * lu(k,269)
470 254840160 : lu(k,1413) = - lu(k,270) * lu(k,1405)
471 254840160 : lu(k,1417) = lu(k,1417) - lu(k,271) * lu(k,1405)
472 254840160 : lu(k,1732) = lu(k,1732) - lu(k,270) * lu(k,1726)
473 254840160 : lu(k,1737) = - lu(k,271) * lu(k,1726)
474 254840160 : lu(k,1944) = - lu(k,270) * lu(k,1935)
475 254840160 : lu(k,1953) = lu(k,1953) - lu(k,271) * lu(k,1935)
476 254840160 : lu(k,4042) = - lu(k,270) * lu(k,3891)
477 254840160 : lu(k,4053) = lu(k,4053) - lu(k,271) * lu(k,3891)
478 254840160 : lu(k,272) = 1._r8 / lu(k,272)
479 254840160 : lu(k,273) = lu(k,273) * lu(k,272)
480 254840160 : lu(k,274) = lu(k,274) * lu(k,272)
481 254840160 : lu(k,1415) = - lu(k,273) * lu(k,1406)
482 254840160 : lu(k,1418) = - lu(k,274) * lu(k,1406)
483 254840160 : lu(k,1817) = lu(k,1817) - lu(k,273) * lu(k,1803)
484 254840160 : lu(k,1821) = - lu(k,274) * lu(k,1803)
485 254840160 : lu(k,1985) = - lu(k,273) * lu(k,1970)
486 254840160 : lu(k,1991) = lu(k,1991) - lu(k,274) * lu(k,1970)
487 254840160 : lu(k,4047) = - lu(k,273) * lu(k,3892)
488 254840160 : lu(k,4054) = lu(k,4054) - lu(k,274) * lu(k,3892)
489 254840160 : lu(k,275) = 1._r8 / lu(k,275)
490 254840160 : lu(k,276) = lu(k,276) * lu(k,275)
491 254840160 : lu(k,277) = lu(k,277) * lu(k,275)
492 254840160 : lu(k,1414) = - lu(k,276) * lu(k,1407)
493 254840160 : lu(k,1418) = lu(k,1418) - lu(k,277) * lu(k,1407)
494 254840160 : lu(k,1754) = lu(k,1754) - lu(k,276) * lu(k,1748)
495 254840160 : lu(k,1759) = - lu(k,277) * lu(k,1748)
496 254840160 : lu(k,1981) = - lu(k,276) * lu(k,1971)
497 254840160 : lu(k,1991) = lu(k,1991) - lu(k,277) * lu(k,1971)
498 254840160 : lu(k,4043) = - lu(k,276) * lu(k,3893)
499 254840160 : lu(k,4054) = lu(k,4054) - lu(k,277) * lu(k,3893)
500 254840160 : lu(k,279) = 1._r8 / lu(k,279)
501 254840160 : lu(k,280) = lu(k,280) * lu(k,279)
502 254840160 : lu(k,281) = lu(k,281) * lu(k,279)
503 254840160 : lu(k,282) = lu(k,282) * lu(k,279)
504 254840160 : lu(k,1235) = lu(k,1235) - lu(k,280) * lu(k,1234)
505 254840160 : lu(k,1237) = lu(k,1237) - lu(k,281) * lu(k,1234)
506 254840160 : lu(k,1240) = - lu(k,282) * lu(k,1234)
507 254840160 : lu(k,4002) = lu(k,4002) - lu(k,280) * lu(k,3894)
508 254840160 : lu(k,4090) = lu(k,4090) - lu(k,281) * lu(k,3894)
509 254840160 : lu(k,4102) = lu(k,4102) - lu(k,282) * lu(k,3894)
510 254840160 : lu(k,4106) = - lu(k,280) * lu(k,4104)
511 254840160 : lu(k,4116) = lu(k,4116) - lu(k,281) * lu(k,4104)
512 254840160 : lu(k,4128) = lu(k,4128) - lu(k,282) * lu(k,4104)
513 254840160 : lu(k,283) = 1._r8 / lu(k,283)
514 254840160 : lu(k,284) = lu(k,284) * lu(k,283)
515 254840160 : lu(k,285) = lu(k,285) * lu(k,283)
516 254840160 : lu(k,286) = lu(k,286) * lu(k,283)
517 254840160 : lu(k,1351) = lu(k,1351) - lu(k,284) * lu(k,1348)
518 254840160 : lu(k,1355) = lu(k,1355) - lu(k,285) * lu(k,1348)
519 254840160 : lu(k,1358) = - lu(k,286) * lu(k,1348)
520 254840160 : lu(k,3392) = lu(k,3392) - lu(k,284) * lu(k,3381)
521 254840160 : lu(k,3462) = lu(k,3462) - lu(k,285) * lu(k,3381)
522 254840160 : lu(k,3471) = lu(k,3471) - lu(k,286) * lu(k,3381)
523 254840160 : lu(k,4016) = lu(k,4016) - lu(k,284) * lu(k,3895)
524 254840160 : lu(k,4092) = lu(k,4092) - lu(k,285) * lu(k,3895)
525 263009123 : lu(k,4101) = lu(k,4101) - lu(k,286) * lu(k,3895)
526 : end do
527 8168963 : end subroutine lu_fac05
528 8168963 : subroutine lu_fac06( avec_len, lu )
529 : use chem_mods, only : nzcnt
530 : use shr_kind_mod, only : r8 => shr_kind_r8
531 : implicit none
532 : !-----------------------------------------------------------------------
533 : ! ... dummy args
534 : !-----------------------------------------------------------------------
535 : integer, intent(in) :: avec_len
536 : real(r8), intent(inout) :: lu(veclen,nzcnt)
537 : !-----------------------------------------------------------------------
538 : ! ... local variables
539 : !-----------------------------------------------------------------------
540 : integer :: k
541 263009123 : do k = 1,avec_len
542 254840160 : lu(k,287) = 1._r8 / lu(k,287)
543 254840160 : lu(k,288) = lu(k,288) * lu(k,287)
544 254840160 : lu(k,289) = lu(k,289) * lu(k,287)
545 254840160 : lu(k,290) = lu(k,290) * lu(k,287)
546 254840160 : lu(k,710) = lu(k,710) - lu(k,288) * lu(k,709)
547 254840160 : lu(k,711) = lu(k,711) - lu(k,289) * lu(k,709)
548 254840160 : lu(k,716) = - lu(k,290) * lu(k,709)
549 254840160 : lu(k,3236) = - lu(k,288) * lu(k,3217)
550 254840160 : lu(k,3246) = lu(k,3246) - lu(k,289) * lu(k,3217)
551 254840160 : lu(k,3378) = lu(k,3378) - lu(k,290) * lu(k,3217)
552 254840160 : lu(k,3924) = lu(k,3924) - lu(k,288) * lu(k,3896)
553 254840160 : lu(k,3951) = lu(k,3951) - lu(k,289) * lu(k,3896)
554 254840160 : lu(k,4101) = lu(k,4101) - lu(k,290) * lu(k,3896)
555 254840160 : lu(k,291) = 1._r8 / lu(k,291)
556 254840160 : lu(k,292) = lu(k,292) * lu(k,291)
557 254840160 : lu(k,293) = lu(k,293) * lu(k,291)
558 254840160 : lu(k,294) = lu(k,294) * lu(k,291)
559 254840160 : lu(k,856) = - lu(k,292) * lu(k,854)
560 254840160 : lu(k,858) = lu(k,858) - lu(k,293) * lu(k,854)
561 254840160 : lu(k,859) = lu(k,859) - lu(k,294) * lu(k,854)
562 254840160 : lu(k,3057) = lu(k,3057) - lu(k,292) * lu(k,2979)
563 254840160 : lu(k,3109) = lu(k,3109) - lu(k,293) * lu(k,2979)
564 254840160 : lu(k,3110) = lu(k,3110) - lu(k,294) * lu(k,2979)
565 254840160 : lu(k,3316) = lu(k,3316) - lu(k,292) * lu(k,3218)
566 254840160 : lu(k,3368) = lu(k,3368) - lu(k,293) * lu(k,3218)
567 254840160 : lu(k,3369) = lu(k,3369) - lu(k,294) * lu(k,3218)
568 254840160 : lu(k,295) = 1._r8 / lu(k,295)
569 254840160 : lu(k,296) = lu(k,296) * lu(k,295)
570 254840160 : lu(k,297) = lu(k,297) * lu(k,295)
571 254840160 : lu(k,298) = lu(k,298) * lu(k,295)
572 254840160 : lu(k,299) = lu(k,299) * lu(k,295)
573 254840160 : lu(k,300) = lu(k,300) * lu(k,295)
574 254840160 : lu(k,3601) = lu(k,3601) - lu(k,296) * lu(k,3525)
575 254840160 : lu(k,3602) = lu(k,3602) - lu(k,297) * lu(k,3525)
576 254840160 : lu(k,3604) = lu(k,3604) - lu(k,298) * lu(k,3525)
577 254840160 : lu(k,3610) = lu(k,3610) - lu(k,299) * lu(k,3525)
578 254840160 : lu(k,3611) = lu(k,3611) - lu(k,300) * lu(k,3525)
579 254840160 : lu(k,3653) = lu(k,3653) - lu(k,296) * lu(k,3619)
580 254840160 : lu(k,3654) = lu(k,3654) - lu(k,297) * lu(k,3619)
581 254840160 : lu(k,3656) = lu(k,3656) - lu(k,298) * lu(k,3619)
582 254840160 : lu(k,3662) = lu(k,3662) - lu(k,299) * lu(k,3619)
583 254840160 : lu(k,3663) = lu(k,3663) - lu(k,300) * lu(k,3619)
584 254840160 : lu(k,301) = 1._r8 / lu(k,301)
585 254840160 : lu(k,302) = lu(k,302) * lu(k,301)
586 254840160 : lu(k,303) = lu(k,303) * lu(k,301)
587 254840160 : lu(k,744) = - lu(k,302) * lu(k,738)
588 254840160 : lu(k,749) = lu(k,749) - lu(k,303) * lu(k,738)
589 254840160 : lu(k,845) = - lu(k,302) * lu(k,838)
590 254840160 : lu(k,851) = lu(k,851) - lu(k,303) * lu(k,838)
591 254840160 : lu(k,874) = - lu(k,302) * lu(k,868)
592 254840160 : lu(k,880) = lu(k,880) - lu(k,303) * lu(k,868)
593 254840160 : lu(k,896) = - lu(k,302) * lu(k,889)
594 254840160 : lu(k,903) = lu(k,903) - lu(k,303) * lu(k,889)
595 254840160 : lu(k,3008) = lu(k,3008) - lu(k,302) * lu(k,2980)
596 254840160 : lu(k,3110) = lu(k,3110) - lu(k,303) * lu(k,2980)
597 254840160 : lu(k,304) = 1._r8 / lu(k,304)
598 254840160 : lu(k,305) = lu(k,305) * lu(k,304)
599 254840160 : lu(k,306) = lu(k,306) * lu(k,304)
600 254840160 : lu(k,307) = lu(k,307) * lu(k,304)
601 254840160 : lu(k,308) = lu(k,308) * lu(k,304)
602 254840160 : lu(k,309) = lu(k,309) * lu(k,304)
603 254840160 : lu(k,3537) = lu(k,3537) - lu(k,305) * lu(k,3526)
604 254840160 : lu(k,3601) = lu(k,3601) - lu(k,306) * lu(k,3526)
605 254840160 : lu(k,3606) = lu(k,3606) - lu(k,307) * lu(k,3526)
606 254840160 : lu(k,3610) = lu(k,3610) - lu(k,308) * lu(k,3526)
607 254840160 : lu(k,3615) = lu(k,3615) - lu(k,309) * lu(k,3526)
608 254840160 : lu(k,4002) = lu(k,4002) - lu(k,305) * lu(k,3897)
609 254840160 : lu(k,4087) = lu(k,4087) - lu(k,306) * lu(k,3897)
610 254840160 : lu(k,4092) = lu(k,4092) - lu(k,307) * lu(k,3897)
611 254840160 : lu(k,4096) = lu(k,4096) - lu(k,308) * lu(k,3897)
612 254840160 : lu(k,4101) = lu(k,4101) - lu(k,309) * lu(k,3897)
613 254840160 : lu(k,310) = 1._r8 / lu(k,310)
614 254840160 : lu(k,311) = lu(k,311) * lu(k,310)
615 254840160 : lu(k,312) = lu(k,312) * lu(k,310)
616 254840160 : lu(k,313) = lu(k,313) * lu(k,310)
617 254840160 : lu(k,314) = lu(k,314) * lu(k,310)
618 254840160 : lu(k,315) = lu(k,315) * lu(k,310)
619 254840160 : lu(k,3824) = - lu(k,311) * lu(k,3813)
620 254840160 : lu(k,3826) = - lu(k,312) * lu(k,3813)
621 254840160 : lu(k,3832) = lu(k,3832) - lu(k,313) * lu(k,3813)
622 254840160 : lu(k,3842) = lu(k,3842) - lu(k,314) * lu(k,3813)
623 254840160 : lu(k,3851) = lu(k,3851) - lu(k,315) * lu(k,3813)
624 254840160 : lu(k,4013) = lu(k,4013) - lu(k,311) * lu(k,3898)
625 254840160 : lu(k,4021) = lu(k,4021) - lu(k,312) * lu(k,3898)
626 254840160 : lu(k,4057) = lu(k,4057) - lu(k,313) * lu(k,3898)
627 254840160 : lu(k,4092) = lu(k,4092) - lu(k,314) * lu(k,3898)
628 254840160 : lu(k,4101) = lu(k,4101) - lu(k,315) * lu(k,3898)
629 254840160 : lu(k,316) = 1._r8 / lu(k,316)
630 254840160 : lu(k,317) = lu(k,317) * lu(k,316)
631 254840160 : lu(k,318) = lu(k,318) * lu(k,316)
632 254840160 : lu(k,319) = lu(k,319) * lu(k,316)
633 254840160 : lu(k,320) = lu(k,320) * lu(k,316)
634 254840160 : lu(k,321) = lu(k,321) * lu(k,316)
635 254840160 : lu(k,3823) = lu(k,3823) - lu(k,317) * lu(k,3814)
636 254840160 : lu(k,3839) = lu(k,3839) - lu(k,318) * lu(k,3814)
637 254840160 : lu(k,3850) = lu(k,3850) - lu(k,319) * lu(k,3814)
638 254840160 : lu(k,3851) = lu(k,3851) - lu(k,320) * lu(k,3814)
639 254840160 : lu(k,3852) = - lu(k,321) * lu(k,3814)
640 254840160 : lu(k,4011) = lu(k,4011) - lu(k,317) * lu(k,3899)
641 254840160 : lu(k,4089) = lu(k,4089) - lu(k,318) * lu(k,3899)
642 254840160 : lu(k,4100) = lu(k,4100) - lu(k,319) * lu(k,3899)
643 254840160 : lu(k,4101) = lu(k,4101) - lu(k,320) * lu(k,3899)
644 254840160 : lu(k,4102) = lu(k,4102) - lu(k,321) * lu(k,3899)
645 254840160 : lu(k,322) = 1._r8 / lu(k,322)
646 254840160 : lu(k,323) = lu(k,323) * lu(k,322)
647 254840160 : lu(k,324) = lu(k,324) * lu(k,322)
648 254840160 : lu(k,1242) = lu(k,1242) - lu(k,323) * lu(k,1241)
649 254840160 : lu(k,1245) = lu(k,1245) - lu(k,324) * lu(k,1241)
650 254840160 : lu(k,1672) = lu(k,1672) - lu(k,323) * lu(k,1671)
651 254840160 : lu(k,1675) = lu(k,1675) - lu(k,324) * lu(k,1671)
652 254840160 : lu(k,2255) = lu(k,2255) - lu(k,323) * lu(k,2254)
653 254840160 : lu(k,2260) = lu(k,2260) - lu(k,324) * lu(k,2254)
654 254840160 : lu(k,2945) = lu(k,2945) - lu(k,323) * lu(k,2944)
655 254840160 : lu(k,2948) = - lu(k,324) * lu(k,2944)
656 254840160 : lu(k,4107) = lu(k,4107) - lu(k,323) * lu(k,4105)
657 254840160 : lu(k,4112) = lu(k,4112) - lu(k,324) * lu(k,4105)
658 254840160 : lu(k,326) = 1._r8 / lu(k,326)
659 254840160 : lu(k,327) = lu(k,327) * lu(k,326)
660 254840160 : lu(k,328) = lu(k,328) * lu(k,326)
661 254840160 : lu(k,329) = lu(k,329) * lu(k,326)
662 254840160 : lu(k,330) = lu(k,330) * lu(k,326)
663 254840160 : lu(k,331) = lu(k,331) * lu(k,326)
664 254840160 : lu(k,3791) = lu(k,3791) - lu(k,327) * lu(k,3786)
665 254840160 : lu(k,3808) = lu(k,3808) - lu(k,328) * lu(k,3786)
666 254840160 : lu(k,3809) = lu(k,3809) - lu(k,329) * lu(k,3786)
667 254840160 : lu(k,3810) = lu(k,3810) - lu(k,330) * lu(k,3786)
668 254840160 : lu(k,3811) = lu(k,3811) - lu(k,331) * lu(k,3786)
669 254840160 : lu(k,4003) = lu(k,4003) - lu(k,327) * lu(k,3900)
670 254840160 : lu(k,4099) = lu(k,4099) - lu(k,328) * lu(k,3900)
671 254840160 : lu(k,4100) = lu(k,4100) - lu(k,329) * lu(k,3900)
672 254840160 : lu(k,4101) = lu(k,4101) - lu(k,330) * lu(k,3900)
673 263009123 : lu(k,4102) = lu(k,4102) - lu(k,331) * lu(k,3900)
674 : end do
675 8168963 : end subroutine lu_fac06
676 8168963 : subroutine lu_fac07( avec_len, lu )
677 : use chem_mods, only : nzcnt
678 : use shr_kind_mod, only : r8 => shr_kind_r8
679 : implicit none
680 : !-----------------------------------------------------------------------
681 : ! ... dummy args
682 : !-----------------------------------------------------------------------
683 : integer, intent(in) :: avec_len
684 : real(r8), intent(inout) :: lu(veclen,nzcnt)
685 : !-----------------------------------------------------------------------
686 : ! ... local variables
687 : !-----------------------------------------------------------------------
688 : integer :: k
689 263009123 : do k = 1,avec_len
690 254840160 : lu(k,332) = 1._r8 / lu(k,332)
691 254840160 : lu(k,333) = lu(k,333) * lu(k,332)
692 254840160 : lu(k,334) = lu(k,334) * lu(k,332)
693 254840160 : lu(k,335) = lu(k,335) * lu(k,332)
694 254840160 : lu(k,336) = lu(k,336) * lu(k,332)
695 254840160 : lu(k,763) = lu(k,763) - lu(k,333) * lu(k,762)
696 254840160 : lu(k,764) = lu(k,764) - lu(k,334) * lu(k,762)
697 254840160 : lu(k,765) = lu(k,765) - lu(k,335) * lu(k,762)
698 254840160 : lu(k,769) = lu(k,769) - lu(k,336) * lu(k,762)
699 254840160 : lu(k,3249) = lu(k,3249) - lu(k,333) * lu(k,3219)
700 254840160 : lu(k,3294) = lu(k,3294) - lu(k,334) * lu(k,3219)
701 254840160 : lu(k,3362) = lu(k,3362) - lu(k,335) * lu(k,3219)
702 254840160 : lu(k,3378) = lu(k,3378) - lu(k,336) * lu(k,3219)
703 254840160 : lu(k,3956) = lu(k,3956) - lu(k,333) * lu(k,3901)
704 254840160 : lu(k,4016) = lu(k,4016) - lu(k,334) * lu(k,3901)
705 254840160 : lu(k,4085) = lu(k,4085) - lu(k,335) * lu(k,3901)
706 254840160 : lu(k,4101) = lu(k,4101) - lu(k,336) * lu(k,3901)
707 254840160 : lu(k,337) = 1._r8 / lu(k,337)
708 254840160 : lu(k,338) = lu(k,338) * lu(k,337)
709 254840160 : lu(k,339) = lu(k,339) * lu(k,337)
710 254840160 : lu(k,340) = lu(k,340) * lu(k,337)
711 254840160 : lu(k,341) = lu(k,341) * lu(k,337)
712 254840160 : lu(k,848) = lu(k,848) - lu(k,338) * lu(k,839)
713 254840160 : lu(k,849) = - lu(k,339) * lu(k,839)
714 254840160 : lu(k,850) = - lu(k,340) * lu(k,839)
715 254840160 : lu(k,851) = lu(k,851) - lu(k,341) * lu(k,839)
716 254840160 : lu(k,899) = lu(k,899) - lu(k,338) * lu(k,890)
717 254840160 : lu(k,900) = - lu(k,339) * lu(k,890)
718 254840160 : lu(k,901) = - lu(k,340) * lu(k,890)
719 254840160 : lu(k,903) = lu(k,903) - lu(k,341) * lu(k,890)
720 254840160 : lu(k,3069) = lu(k,3069) - lu(k,338) * lu(k,2981)
721 254840160 : lu(k,3074) = lu(k,3074) - lu(k,339) * lu(k,2981)
722 254840160 : lu(k,3103) = lu(k,3103) - lu(k,340) * lu(k,2981)
723 254840160 : lu(k,3110) = lu(k,3110) - lu(k,341) * lu(k,2981)
724 254840160 : lu(k,342) = 1._r8 / lu(k,342)
725 254840160 : lu(k,343) = lu(k,343) * lu(k,342)
726 254840160 : lu(k,344) = lu(k,344) * lu(k,342)
727 254840160 : lu(k,345) = lu(k,345) * lu(k,342)
728 254840160 : lu(k,346) = lu(k,346) * lu(k,342)
729 254840160 : lu(k,1599) = lu(k,1599) - lu(k,343) * lu(k,1597)
730 254840160 : lu(k,1600) = lu(k,1600) - lu(k,344) * lu(k,1597)
731 254840160 : lu(k,1604) = lu(k,1604) - lu(k,345) * lu(k,1597)
732 254840160 : lu(k,1607) = lu(k,1607) - lu(k,346) * lu(k,1597)
733 254840160 : lu(k,3477) = lu(k,3477) - lu(k,343) * lu(k,3474)
734 254840160 : lu(k,3478) = lu(k,3478) - lu(k,344) * lu(k,3474)
735 254840160 : lu(k,3484) = lu(k,3484) - lu(k,345) * lu(k,3474)
736 254840160 : lu(k,3489) = lu(k,3489) - lu(k,346) * lu(k,3474)
737 254840160 : lu(k,3502) = lu(k,3502) - lu(k,343) * lu(k,3500)
738 254840160 : lu(k,3504) = lu(k,3504) - lu(k,344) * lu(k,3500)
739 254840160 : lu(k,3510) = lu(k,3510) - lu(k,345) * lu(k,3500)
740 254840160 : lu(k,3515) = lu(k,3515) - lu(k,346) * lu(k,3500)
741 254840160 : lu(k,347) = 1._r8 / lu(k,347)
742 254840160 : lu(k,348) = lu(k,348) * lu(k,347)
743 254840160 : lu(k,349) = lu(k,349) * lu(k,347)
744 254840160 : lu(k,350) = lu(k,350) * lu(k,347)
745 254840160 : lu(k,351) = lu(k,351) * lu(k,347)
746 254840160 : lu(k,456) = lu(k,456) - lu(k,348) * lu(k,455)
747 254840160 : lu(k,457) = lu(k,457) - lu(k,349) * lu(k,455)
748 254840160 : lu(k,459) = lu(k,459) - lu(k,350) * lu(k,455)
749 254840160 : lu(k,461) = - lu(k,351) * lu(k,455)
750 254840160 : lu(k,3233) = lu(k,3233) - lu(k,348) * lu(k,3220)
751 254840160 : lu(k,3299) = lu(k,3299) - lu(k,349) * lu(k,3220)
752 254840160 : lu(k,3369) = lu(k,3369) - lu(k,350) * lu(k,3220)
753 254840160 : lu(k,3378) = lu(k,3378) - lu(k,351) * lu(k,3220)
754 254840160 : lu(k,3919) = lu(k,3919) - lu(k,348) * lu(k,3902)
755 254840160 : lu(k,4021) = lu(k,4021) - lu(k,349) * lu(k,3902)
756 254840160 : lu(k,4092) = lu(k,4092) - lu(k,350) * lu(k,3902)
757 254840160 : lu(k,4101) = lu(k,4101) - lu(k,351) * lu(k,3902)
758 254840160 : lu(k,353) = 1._r8 / lu(k,353)
759 254840160 : lu(k,354) = lu(k,354) * lu(k,353)
760 254840160 : lu(k,355) = lu(k,355) * lu(k,353)
761 254840160 : lu(k,356) = lu(k,356) * lu(k,353)
762 254840160 : lu(k,357) = lu(k,357) * lu(k,353)
763 254840160 : lu(k,437) = lu(k,437) - lu(k,354) * lu(k,436)
764 254840160 : lu(k,438) = lu(k,438) - lu(k,355) * lu(k,436)
765 254840160 : lu(k,440) = lu(k,440) - lu(k,356) * lu(k,436)
766 254840160 : lu(k,442) = lu(k,442) - lu(k,357) * lu(k,436)
767 254840160 : lu(k,3230) = lu(k,3230) - lu(k,354) * lu(k,3221)
768 254840160 : lu(k,3239) = lu(k,3239) - lu(k,355) * lu(k,3221)
769 254840160 : lu(k,3369) = lu(k,3369) - lu(k,356) * lu(k,3221)
770 254840160 : lu(k,3378) = lu(k,3378) - lu(k,357) * lu(k,3221)
771 254840160 : lu(k,3916) = lu(k,3916) - lu(k,354) * lu(k,3903)
772 254840160 : lu(k,3933) = lu(k,3933) - lu(k,355) * lu(k,3903)
773 254840160 : lu(k,4092) = lu(k,4092) - lu(k,356) * lu(k,3903)
774 254840160 : lu(k,4101) = lu(k,4101) - lu(k,357) * lu(k,3903)
775 254840160 : lu(k,358) = 1._r8 / lu(k,358)
776 254840160 : lu(k,359) = lu(k,359) * lu(k,358)
777 254840160 : lu(k,360) = lu(k,360) * lu(k,358)
778 254840160 : lu(k,361) = lu(k,361) * lu(k,358)
779 254840160 : lu(k,362) = lu(k,362) * lu(k,358)
780 254840160 : lu(k,1350) = lu(k,1350) - lu(k,359) * lu(k,1349)
781 254840160 : lu(k,1351) = lu(k,1351) - lu(k,360) * lu(k,1349)
782 254840160 : lu(k,1355) = lu(k,1355) - lu(k,361) * lu(k,1349)
783 254840160 : lu(k,1358) = lu(k,1358) - lu(k,362) * lu(k,1349)
784 254840160 : lu(k,3291) = lu(k,3291) - lu(k,359) * lu(k,3222)
785 254840160 : lu(k,3294) = lu(k,3294) - lu(k,360) * lu(k,3222)
786 254840160 : lu(k,3369) = lu(k,3369) - lu(k,361) * lu(k,3222)
787 254840160 : lu(k,3378) = lu(k,3378) - lu(k,362) * lu(k,3222)
788 254840160 : lu(k,4011) = lu(k,4011) - lu(k,359) * lu(k,3904)
789 254840160 : lu(k,4016) = lu(k,4016) - lu(k,360) * lu(k,3904)
790 254840160 : lu(k,4092) = lu(k,4092) - lu(k,361) * lu(k,3904)
791 254840160 : lu(k,4101) = lu(k,4101) - lu(k,362) * lu(k,3904)
792 254840160 : lu(k,363) = 1._r8 / lu(k,363)
793 254840160 : lu(k,364) = lu(k,364) * lu(k,363)
794 254840160 : lu(k,365) = lu(k,365) * lu(k,363)
795 254840160 : lu(k,366) = lu(k,366) * lu(k,363)
796 254840160 : lu(k,367) = lu(k,367) * lu(k,363)
797 254840160 : lu(k,2721) = lu(k,2721) - lu(k,364) * lu(k,2716)
798 254840160 : lu(k,2744) = lu(k,2744) - lu(k,365) * lu(k,2716)
799 254840160 : lu(k,2745) = lu(k,2745) - lu(k,366) * lu(k,2716)
800 254840160 : lu(k,2760) = lu(k,2760) - lu(k,367) * lu(k,2716)
801 254840160 : lu(k,3309) = lu(k,3309) - lu(k,364) * lu(k,3223)
802 254840160 : lu(k,3358) = lu(k,3358) - lu(k,365) * lu(k,3223)
803 254840160 : lu(k,3359) = lu(k,3359) - lu(k,366) * lu(k,3223)
804 254840160 : lu(k,3378) = lu(k,3378) - lu(k,367) * lu(k,3223)
805 254840160 : lu(k,4033) = lu(k,4033) - lu(k,364) * lu(k,3905)
806 254840160 : lu(k,4081) = lu(k,4081) - lu(k,365) * lu(k,3905)
807 254840160 : lu(k,4082) = lu(k,4082) - lu(k,366) * lu(k,3905)
808 254840160 : lu(k,4101) = lu(k,4101) - lu(k,367) * lu(k,3905)
809 254840160 : lu(k,368) = 1._r8 / lu(k,368)
810 254840160 : lu(k,369) = lu(k,369) * lu(k,368)
811 254840160 : lu(k,370) = lu(k,370) * lu(k,368)
812 254840160 : lu(k,371) = lu(k,371) * lu(k,368)
813 254840160 : lu(k,372) = lu(k,372) * lu(k,368)
814 254840160 : lu(k,2767) = lu(k,2767) - lu(k,369) * lu(k,2762)
815 254840160 : lu(k,2789) = lu(k,2789) - lu(k,370) * lu(k,2762)
816 254840160 : lu(k,2792) = lu(k,2792) - lu(k,371) * lu(k,2762)
817 254840160 : lu(k,2806) = lu(k,2806) - lu(k,372) * lu(k,2762)
818 254840160 : lu(k,3309) = lu(k,3309) - lu(k,369) * lu(k,3224)
819 254840160 : lu(k,3357) = lu(k,3357) - lu(k,370) * lu(k,3224)
820 254840160 : lu(k,3360) = lu(k,3360) - lu(k,371) * lu(k,3224)
821 254840160 : lu(k,3378) = lu(k,3378) - lu(k,372) * lu(k,3224)
822 254840160 : lu(k,4033) = lu(k,4033) - lu(k,369) * lu(k,3906)
823 254840160 : lu(k,4080) = lu(k,4080) - lu(k,370) * lu(k,3906)
824 254840160 : lu(k,4083) = lu(k,4083) - lu(k,371) * lu(k,3906)
825 254840160 : lu(k,4101) = lu(k,4101) - lu(k,372) * lu(k,3906)
826 254840160 : lu(k,373) = 1._r8 / lu(k,373)
827 254840160 : lu(k,374) = lu(k,374) * lu(k,373)
828 254840160 : lu(k,375) = lu(k,375) * lu(k,373)
829 254840160 : lu(k,376) = lu(k,376) * lu(k,373)
830 254840160 : lu(k,950) = - lu(k,374) * lu(k,948)
831 254840160 : lu(k,957) = lu(k,957) - lu(k,375) * lu(k,948)
832 254840160 : lu(k,959) = lu(k,959) - lu(k,376) * lu(k,948)
833 254840160 : lu(k,1004) = - lu(k,374) * lu(k,1003)
834 254840160 : lu(k,1011) = lu(k,1011) - lu(k,375) * lu(k,1003)
835 254840160 : lu(k,1013) = lu(k,1013) - lu(k,376) * lu(k,1003)
836 254840160 : lu(k,3243) = lu(k,3243) - lu(k,374) * lu(k,3225)
837 254840160 : lu(k,3369) = lu(k,3369) - lu(k,375) * lu(k,3225)
838 254840160 : lu(k,3378) = lu(k,3378) - lu(k,376) * lu(k,3225)
839 254840160 : lu(k,3949) = lu(k,3949) - lu(k,374) * lu(k,3907)
840 254840160 : lu(k,4092) = lu(k,4092) - lu(k,375) * lu(k,3907)
841 263009123 : lu(k,4101) = lu(k,4101) - lu(k,376) * lu(k,3907)
842 : end do
843 8168963 : end subroutine lu_fac07
844 8168963 : subroutine lu_fac08( avec_len, lu )
845 : use chem_mods, only : nzcnt
846 : use shr_kind_mod, only : r8 => shr_kind_r8
847 : implicit none
848 : !-----------------------------------------------------------------------
849 : ! ... dummy args
850 : !-----------------------------------------------------------------------
851 : integer, intent(in) :: avec_len
852 : real(r8), intent(inout) :: lu(veclen,nzcnt)
853 : !-----------------------------------------------------------------------
854 : ! ... local variables
855 : !-----------------------------------------------------------------------
856 : integer :: k
857 263009123 : do k = 1,avec_len
858 254840160 : lu(k,377) = 1._r8 / lu(k,377)
859 254840160 : lu(k,378) = lu(k,378) * lu(k,377)
860 254840160 : lu(k,379) = lu(k,379) * lu(k,377)
861 254840160 : lu(k,380) = lu(k,380) * lu(k,377)
862 254840160 : lu(k,381) = lu(k,381) * lu(k,377)
863 254840160 : lu(k,382) = lu(k,382) * lu(k,377)
864 254840160 : lu(k,383) = lu(k,383) * lu(k,377)
865 254840160 : lu(k,384) = lu(k,384) * lu(k,377)
866 254840160 : lu(k,3528) = - lu(k,378) * lu(k,3527)
867 254840160 : lu(k,3544) = lu(k,3544) - lu(k,379) * lu(k,3527)
868 254840160 : lu(k,3579) = lu(k,3579) - lu(k,380) * lu(k,3527)
869 254840160 : lu(k,3605) = lu(k,3605) - lu(k,381) * lu(k,3527)
870 254840160 : lu(k,3610) = lu(k,3610) - lu(k,382) * lu(k,3527)
871 254840160 : lu(k,3611) = lu(k,3611) - lu(k,383) * lu(k,3527)
872 254840160 : lu(k,3615) = lu(k,3615) - lu(k,384) * lu(k,3527)
873 254840160 : lu(k,3940) = lu(k,3940) - lu(k,378) * lu(k,3908)
874 254840160 : lu(k,4016) = lu(k,4016) - lu(k,379) * lu(k,3908)
875 254840160 : lu(k,4065) = lu(k,4065) - lu(k,380) * lu(k,3908)
876 254840160 : lu(k,4091) = lu(k,4091) - lu(k,381) * lu(k,3908)
877 254840160 : lu(k,4096) = lu(k,4096) - lu(k,382) * lu(k,3908)
878 254840160 : lu(k,4097) = lu(k,4097) - lu(k,383) * lu(k,3908)
879 254840160 : lu(k,4101) = lu(k,4101) - lu(k,384) * lu(k,3908)
880 254840160 : lu(k,385) = 1._r8 / lu(k,385)
881 254840160 : lu(k,386) = lu(k,386) * lu(k,385)
882 254840160 : lu(k,387) = lu(k,387) * lu(k,385)
883 254840160 : lu(k,388) = lu(k,388) * lu(k,385)
884 254840160 : lu(k,389) = lu(k,389) * lu(k,385)
885 254840160 : lu(k,390) = lu(k,390) * lu(k,385)
886 254840160 : lu(k,391) = lu(k,391) * lu(k,385)
887 254840160 : lu(k,392) = lu(k,392) * lu(k,385)
888 254840160 : lu(k,3144) = - lu(k,386) * lu(k,3143)
889 254840160 : lu(k,3149) = - lu(k,387) * lu(k,3143)
890 254840160 : lu(k,3152) = lu(k,3152) - lu(k,388) * lu(k,3143)
891 254840160 : lu(k,3154) = lu(k,3154) - lu(k,389) * lu(k,3143)
892 254840160 : lu(k,3157) = lu(k,3157) - lu(k,390) * lu(k,3143)
893 254840160 : lu(k,3161) = lu(k,3161) - lu(k,391) * lu(k,3143)
894 254840160 : lu(k,3172) = lu(k,3172) - lu(k,392) * lu(k,3143)
895 254840160 : lu(k,3932) = lu(k,3932) - lu(k,386) * lu(k,3909)
896 254840160 : lu(k,4002) = lu(k,4002) - lu(k,387) * lu(k,3909)
897 254840160 : lu(k,4032) = lu(k,4032) - lu(k,388) * lu(k,3909)
898 254840160 : lu(k,4057) = lu(k,4057) - lu(k,389) * lu(k,3909)
899 254840160 : lu(k,4086) = lu(k,4086) - lu(k,390) * lu(k,3909)
900 254840160 : lu(k,4090) = lu(k,4090) - lu(k,391) * lu(k,3909)
901 254840160 : lu(k,4101) = lu(k,4101) - lu(k,392) * lu(k,3909)
902 254840160 : lu(k,393) = 1._r8 / lu(k,393)
903 254840160 : lu(k,394) = lu(k,394) * lu(k,393)
904 254840160 : lu(k,395) = lu(k,395) * lu(k,393)
905 254840160 : lu(k,396) = lu(k,396) * lu(k,393)
906 254840160 : lu(k,397) = lu(k,397) * lu(k,393)
907 254840160 : lu(k,398) = lu(k,398) * lu(k,393)
908 254840160 : lu(k,399) = lu(k,399) * lu(k,393)
909 254840160 : lu(k,400) = lu(k,400) * lu(k,393)
910 254840160 : lu(k,3832) = lu(k,3832) - lu(k,394) * lu(k,3815)
911 254840160 : lu(k,3839) = lu(k,3839) - lu(k,395) * lu(k,3815)
912 254840160 : lu(k,3842) = lu(k,3842) - lu(k,396) * lu(k,3815)
913 254840160 : lu(k,3843) = lu(k,3843) - lu(k,397) * lu(k,3815)
914 254840160 : lu(k,3850) = lu(k,3850) - lu(k,398) * lu(k,3815)
915 254840160 : lu(k,3851) = lu(k,3851) - lu(k,399) * lu(k,3815)
916 254840160 : lu(k,3852) = lu(k,3852) - lu(k,400) * lu(k,3815)
917 254840160 : lu(k,4057) = lu(k,4057) - lu(k,394) * lu(k,3910)
918 254840160 : lu(k,4089) = lu(k,4089) - lu(k,395) * lu(k,3910)
919 254840160 : lu(k,4092) = lu(k,4092) - lu(k,396) * lu(k,3910)
920 254840160 : lu(k,4093) = lu(k,4093) - lu(k,397) * lu(k,3910)
921 254840160 : lu(k,4100) = lu(k,4100) - lu(k,398) * lu(k,3910)
922 254840160 : lu(k,4101) = lu(k,4101) - lu(k,399) * lu(k,3910)
923 254840160 : lu(k,4102) = lu(k,4102) - lu(k,400) * lu(k,3910)
924 254840160 : lu(k,401) = 1._r8 / lu(k,401)
925 254840160 : lu(k,402) = lu(k,402) * lu(k,401)
926 254840160 : lu(k,403) = lu(k,403) * lu(k,401)
927 254840160 : lu(k,404) = lu(k,404) * lu(k,401)
928 254840160 : lu(k,745) = - lu(k,402) * lu(k,739)
929 254840160 : lu(k,748) = - lu(k,403) * lu(k,739)
930 254840160 : lu(k,749) = lu(k,749) - lu(k,404) * lu(k,739)
931 254840160 : lu(k,846) = - lu(k,402) * lu(k,840)
932 254840160 : lu(k,849) = lu(k,849) - lu(k,403) * lu(k,840)
933 254840160 : lu(k,851) = lu(k,851) - lu(k,404) * lu(k,840)
934 254840160 : lu(k,875) = - lu(k,402) * lu(k,869)
935 254840160 : lu(k,878) = - lu(k,403) * lu(k,869)
936 254840160 : lu(k,880) = lu(k,880) - lu(k,404) * lu(k,869)
937 254840160 : lu(k,897) = - lu(k,402) * lu(k,891)
938 254840160 : lu(k,900) = lu(k,900) - lu(k,403) * lu(k,891)
939 254840160 : lu(k,903) = lu(k,903) - lu(k,404) * lu(k,891)
940 254840160 : lu(k,3010) = lu(k,3010) - lu(k,402) * lu(k,2982)
941 254840160 : lu(k,3074) = lu(k,3074) - lu(k,403) * lu(k,2982)
942 254840160 : lu(k,3110) = lu(k,3110) - lu(k,404) * lu(k,2982)
943 254840160 : lu(k,405) = 1._r8 / lu(k,405)
944 254840160 : lu(k,406) = lu(k,406) * lu(k,405)
945 254840160 : lu(k,407) = lu(k,407) * lu(k,405)
946 254840160 : lu(k,408) = lu(k,408) * lu(k,405)
947 254840160 : lu(k,409) = lu(k,409) * lu(k,405)
948 254840160 : lu(k,410) = lu(k,410) * lu(k,405)
949 254840160 : lu(k,1336) = lu(k,1336) - lu(k,406) * lu(k,1335)
950 254840160 : lu(k,1340) = lu(k,1340) - lu(k,407) * lu(k,1335)
951 254840160 : lu(k,1342) = lu(k,1342) - lu(k,408) * lu(k,1335)
952 254840160 : lu(k,1346) = lu(k,1346) - lu(k,409) * lu(k,1335)
953 254840160 : lu(k,1347) = - lu(k,410) * lu(k,1335)
954 254840160 : lu(k,3290) = lu(k,3290) - lu(k,406) * lu(k,3226)
955 254840160 : lu(k,3362) = lu(k,3362) - lu(k,407) * lu(k,3226)
956 254840160 : lu(k,3368) = lu(k,3368) - lu(k,408) * lu(k,3226)
957 254840160 : lu(k,3378) = lu(k,3378) - lu(k,409) * lu(k,3226)
958 254840160 : lu(k,3379) = lu(k,3379) - lu(k,410) * lu(k,3226)
959 254840160 : lu(k,4010) = lu(k,4010) - lu(k,406) * lu(k,3911)
960 254840160 : lu(k,4085) = lu(k,4085) - lu(k,407) * lu(k,3911)
961 254840160 : lu(k,4091) = lu(k,4091) - lu(k,408) * lu(k,3911)
962 254840160 : lu(k,4101) = lu(k,4101) - lu(k,409) * lu(k,3911)
963 254840160 : lu(k,4102) = lu(k,4102) - lu(k,410) * lu(k,3911)
964 254840160 : lu(k,411) = 1._r8 / lu(k,411)
965 254840160 : lu(k,412) = lu(k,412) * lu(k,411)
966 254840160 : lu(k,413) = lu(k,413) * lu(k,411)
967 254840160 : lu(k,414) = lu(k,414) * lu(k,411)
968 254840160 : lu(k,415) = lu(k,415) * lu(k,411)
969 254840160 : lu(k,416) = lu(k,416) * lu(k,411)
970 254840160 : lu(k,1024) = lu(k,1024) - lu(k,412) * lu(k,1023)
971 254840160 : lu(k,1026) = lu(k,1026) - lu(k,413) * lu(k,1023)
972 254840160 : lu(k,1029) = lu(k,1029) - lu(k,414) * lu(k,1023)
973 254840160 : lu(k,1032) = - lu(k,415) * lu(k,1023)
974 254840160 : lu(k,1033) = - lu(k,416) * lu(k,1023)
975 254840160 : lu(k,3274) = lu(k,3274) - lu(k,412) * lu(k,3227)
976 254840160 : lu(k,3342) = lu(k,3342) - lu(k,413) * lu(k,3227)
977 254840160 : lu(k,3369) = lu(k,3369) - lu(k,414) * lu(k,3227)
978 254840160 : lu(k,3378) = lu(k,3378) - lu(k,415) * lu(k,3227)
979 254840160 : lu(k,3379) = lu(k,3379) - lu(k,416) * lu(k,3227)
980 254840160 : lu(k,3984) = lu(k,3984) - lu(k,412) * lu(k,3912)
981 254840160 : lu(k,4065) = lu(k,4065) - lu(k,413) * lu(k,3912)
982 254840160 : lu(k,4092) = lu(k,4092) - lu(k,414) * lu(k,3912)
983 254840160 : lu(k,4101) = lu(k,4101) - lu(k,415) * lu(k,3912)
984 263009123 : lu(k,4102) = lu(k,4102) - lu(k,416) * lu(k,3912)
985 : end do
986 8168963 : end subroutine lu_fac08
987 8168963 : subroutine lu_fac09( avec_len, lu )
988 : use chem_mods, only : nzcnt
989 : use shr_kind_mod, only : r8 => shr_kind_r8
990 : implicit none
991 : !-----------------------------------------------------------------------
992 : ! ... dummy args
993 : !-----------------------------------------------------------------------
994 : integer, intent(in) :: avec_len
995 : real(r8), intent(inout) :: lu(veclen,nzcnt)
996 : !-----------------------------------------------------------------------
997 : ! ... local variables
998 : !-----------------------------------------------------------------------
999 : integer :: k
1000 263009123 : do k = 1,avec_len
1001 254840160 : lu(k,417) = 1._r8 / lu(k,417)
1002 254840160 : lu(k,418) = lu(k,418) * lu(k,417)
1003 254840160 : lu(k,419) = lu(k,419) * lu(k,417)
1004 254840160 : lu(k,420) = lu(k,420) * lu(k,417)
1005 254840160 : lu(k,421) = lu(k,421) * lu(k,417)
1006 254840160 : lu(k,422) = lu(k,422) * lu(k,417)
1007 254840160 : lu(k,513) = lu(k,513) - lu(k,418) * lu(k,512)
1008 254840160 : lu(k,514) = lu(k,514) - lu(k,419) * lu(k,512)
1009 254840160 : lu(k,516) = lu(k,516) - lu(k,420) * lu(k,512)
1010 254840160 : lu(k,518) = lu(k,518) - lu(k,421) * lu(k,512)
1011 254840160 : lu(k,520) = - lu(k,422) * lu(k,512)
1012 254840160 : lu(k,3234) = - lu(k,418) * lu(k,3228)
1013 254840160 : lu(k,3237) = lu(k,3237) - lu(k,419) * lu(k,3228)
1014 254840160 : lu(k,3299) = lu(k,3299) - lu(k,420) * lu(k,3228)
1015 254840160 : lu(k,3369) = lu(k,3369) - lu(k,421) * lu(k,3228)
1016 254840160 : lu(k,3378) = lu(k,3378) - lu(k,422) * lu(k,3228)
1017 254840160 : lu(k,3921) = lu(k,3921) - lu(k,418) * lu(k,3913)
1018 254840160 : lu(k,3928) = lu(k,3928) - lu(k,419) * lu(k,3913)
1019 254840160 : lu(k,4021) = lu(k,4021) - lu(k,420) * lu(k,3913)
1020 254840160 : lu(k,4092) = lu(k,4092) - lu(k,421) * lu(k,3913)
1021 254840160 : lu(k,4101) = lu(k,4101) - lu(k,422) * lu(k,3913)
1022 254840160 : lu(k,423) = 1._r8 / lu(k,423)
1023 254840160 : lu(k,424) = lu(k,424) * lu(k,423)
1024 254840160 : lu(k,425) = lu(k,425) * lu(k,423)
1025 254840160 : lu(k,426) = lu(k,426) * lu(k,423)
1026 254840160 : lu(k,427) = lu(k,427) * lu(k,423)
1027 254840160 : lu(k,428) = lu(k,428) * lu(k,423)
1028 254840160 : lu(k,2811) = - lu(k,424) * lu(k,2808)
1029 254840160 : lu(k,2818) = lu(k,2818) - lu(k,425) * lu(k,2808)
1030 254840160 : lu(k,2840) = lu(k,2840) - lu(k,426) * lu(k,2808)
1031 254840160 : lu(k,2850) = lu(k,2850) - lu(k,427) * lu(k,2808)
1032 254840160 : lu(k,2853) = lu(k,2853) - lu(k,428) * lu(k,2808)
1033 254840160 : lu(k,3636) = - lu(k,424) * lu(k,3620)
1034 254840160 : lu(k,3644) = - lu(k,425) * lu(k,3620)
1035 254840160 : lu(k,3650) = lu(k,3650) - lu(k,426) * lu(k,3620)
1036 254840160 : lu(k,3663) = lu(k,3663) - lu(k,427) * lu(k,3620)
1037 254840160 : lu(k,3667) = lu(k,3667) - lu(k,428) * lu(k,3620)
1038 254840160 : lu(k,4006) = lu(k,4006) - lu(k,424) * lu(k,3914)
1039 254840160 : lu(k,4057) = lu(k,4057) - lu(k,425) * lu(k,3914)
1040 254840160 : lu(k,4084) = lu(k,4084) - lu(k,426) * lu(k,3914)
1041 254840160 : lu(k,4097) = lu(k,4097) - lu(k,427) * lu(k,3914)
1042 254840160 : lu(k,4101) = lu(k,4101) - lu(k,428) * lu(k,3914)
1043 254840160 : lu(k,429) = 1._r8 / lu(k,429)
1044 254840160 : lu(k,430) = lu(k,430) * lu(k,429)
1045 254840160 : lu(k,431) = lu(k,431) * lu(k,429)
1046 254840160 : lu(k,432) = lu(k,432) * lu(k,429)
1047 254840160 : lu(k,433) = lu(k,433) * lu(k,429)
1048 254840160 : lu(k,434) = lu(k,434) * lu(k,429)
1049 254840160 : lu(k,536) = lu(k,536) - lu(k,430) * lu(k,535)
1050 254840160 : lu(k,537) = lu(k,537) - lu(k,431) * lu(k,535)
1051 254840160 : lu(k,538) = lu(k,538) - lu(k,432) * lu(k,535)
1052 254840160 : lu(k,540) = lu(k,540) - lu(k,433) * lu(k,535)
1053 254840160 : lu(k,542) = - lu(k,434) * lu(k,535)
1054 254840160 : lu(k,3238) = lu(k,3238) - lu(k,430) * lu(k,3229)
1055 254840160 : lu(k,3299) = lu(k,3299) - lu(k,431) * lu(k,3229)
1056 254840160 : lu(k,3328) = lu(k,3328) - lu(k,432) * lu(k,3229)
1057 254840160 : lu(k,3369) = lu(k,3369) - lu(k,433) * lu(k,3229)
1058 254840160 : lu(k,3378) = lu(k,3378) - lu(k,434) * lu(k,3229)
1059 254840160 : lu(k,3931) = lu(k,3931) - lu(k,430) * lu(k,3915)
1060 254840160 : lu(k,4021) = lu(k,4021) - lu(k,431) * lu(k,3915)
1061 254840160 : lu(k,4052) = lu(k,4052) - lu(k,432) * lu(k,3915)
1062 254840160 : lu(k,4092) = lu(k,4092) - lu(k,433) * lu(k,3915)
1063 254840160 : lu(k,4101) = lu(k,4101) - lu(k,434) * lu(k,3915)
1064 254840160 : lu(k,437) = 1._r8 / lu(k,437)
1065 254840160 : lu(k,438) = lu(k,438) * lu(k,437)
1066 254840160 : lu(k,439) = lu(k,439) * lu(k,437)
1067 254840160 : lu(k,440) = lu(k,440) * lu(k,437)
1068 254840160 : lu(k,441) = lu(k,441) * lu(k,437)
1069 254840160 : lu(k,442) = lu(k,442) * lu(k,437)
1070 254840160 : lu(k,2990) = lu(k,2990) - lu(k,438) * lu(k,2983)
1071 254840160 : lu(k,3106) = lu(k,3106) - lu(k,439) * lu(k,2983)
1072 254840160 : lu(k,3110) = lu(k,3110) - lu(k,440) * lu(k,2983)
1073 254840160 : lu(k,3115) = lu(k,3115) - lu(k,441) * lu(k,2983)
1074 254840160 : lu(k,3119) = lu(k,3119) - lu(k,442) * lu(k,2983)
1075 254840160 : lu(k,3239) = lu(k,3239) - lu(k,438) * lu(k,3230)
1076 254840160 : lu(k,3365) = lu(k,3365) - lu(k,439) * lu(k,3230)
1077 254840160 : lu(k,3369) = lu(k,3369) - lu(k,440) * lu(k,3230)
1078 254840160 : lu(k,3374) = lu(k,3374) - lu(k,441) * lu(k,3230)
1079 254840160 : lu(k,3378) = lu(k,3378) - lu(k,442) * lu(k,3230)
1080 254840160 : lu(k,3933) = lu(k,3933) - lu(k,438) * lu(k,3916)
1081 254840160 : lu(k,4088) = lu(k,4088) - lu(k,439) * lu(k,3916)
1082 254840160 : lu(k,4092) = lu(k,4092) - lu(k,440) * lu(k,3916)
1083 254840160 : lu(k,4097) = lu(k,4097) - lu(k,441) * lu(k,3916)
1084 254840160 : lu(k,4101) = lu(k,4101) - lu(k,442) * lu(k,3916)
1085 254840160 : lu(k,443) = 1._r8 / lu(k,443)
1086 254840160 : lu(k,444) = lu(k,444) * lu(k,443)
1087 254840160 : lu(k,445) = lu(k,445) * lu(k,443)
1088 254840160 : lu(k,446) = lu(k,446) * lu(k,443)
1089 254840160 : lu(k,447) = lu(k,447) * lu(k,443)
1090 254840160 : lu(k,448) = lu(k,448) * lu(k,443)
1091 254840160 : lu(k,3369) = lu(k,3369) - lu(k,444) * lu(k,3231)
1092 254840160 : lu(k,3373) = lu(k,3373) - lu(k,445) * lu(k,3231)
1093 254840160 : lu(k,3374) = lu(k,3374) - lu(k,446) * lu(k,3231)
1094 254840160 : lu(k,3378) = lu(k,3378) - lu(k,447) * lu(k,3231)
1095 254840160 : lu(k,3379) = lu(k,3379) - lu(k,448) * lu(k,3231)
1096 254840160 : lu(k,3658) = lu(k,3658) - lu(k,444) * lu(k,3621)
1097 254840160 : lu(k,3662) = lu(k,3662) - lu(k,445) * lu(k,3621)
1098 254840160 : lu(k,3663) = lu(k,3663) - lu(k,446) * lu(k,3621)
1099 254840160 : lu(k,3667) = lu(k,3667) - lu(k,447) * lu(k,3621)
1100 254840160 : lu(k,3668) = - lu(k,448) * lu(k,3621)
1101 254840160 : lu(k,4092) = lu(k,4092) - lu(k,444) * lu(k,3917)
1102 254840160 : lu(k,4096) = lu(k,4096) - lu(k,445) * lu(k,3917)
1103 254840160 : lu(k,4097) = lu(k,4097) - lu(k,446) * lu(k,3917)
1104 254840160 : lu(k,4101) = lu(k,4101) - lu(k,447) * lu(k,3917)
1105 254840160 : lu(k,4102) = lu(k,4102) - lu(k,448) * lu(k,3917)
1106 254840160 : lu(k,449) = 1._r8 / lu(k,449)
1107 254840160 : lu(k,450) = lu(k,450) * lu(k,449)
1108 254840160 : lu(k,451) = lu(k,451) * lu(k,449)
1109 254840160 : lu(k,452) = lu(k,452) * lu(k,449)
1110 254840160 : lu(k,453) = lu(k,453) * lu(k,449)
1111 254840160 : lu(k,454) = lu(k,454) * lu(k,449)
1112 254840160 : lu(k,3363) = lu(k,3363) - lu(k,450) * lu(k,3232)
1113 254840160 : lu(k,3368) = lu(k,3368) - lu(k,451) * lu(k,3232)
1114 254840160 : lu(k,3370) = lu(k,3370) - lu(k,452) * lu(k,3232)
1115 254840160 : lu(k,3378) = lu(k,3378) - lu(k,453) * lu(k,3232)
1116 254840160 : lu(k,3379) = lu(k,3379) - lu(k,454) * lu(k,3232)
1117 254840160 : lu(k,3456) = - lu(k,450) * lu(k,3382)
1118 254840160 : lu(k,3461) = lu(k,3461) - lu(k,451) * lu(k,3382)
1119 254840160 : lu(k,3463) = lu(k,3463) - lu(k,452) * lu(k,3382)
1120 254840160 : lu(k,3471) = lu(k,3471) - lu(k,453) * lu(k,3382)
1121 254840160 : lu(k,3472) = - lu(k,454) * lu(k,3382)
1122 254840160 : lu(k,4086) = lu(k,4086) - lu(k,450) * lu(k,3918)
1123 254840160 : lu(k,4091) = lu(k,4091) - lu(k,451) * lu(k,3918)
1124 254840160 : lu(k,4093) = lu(k,4093) - lu(k,452) * lu(k,3918)
1125 254840160 : lu(k,4101) = lu(k,4101) - lu(k,453) * lu(k,3918)
1126 254840160 : lu(k,4102) = lu(k,4102) - lu(k,454) * lu(k,3918)
1127 254840160 : lu(k,456) = 1._r8 / lu(k,456)
1128 254840160 : lu(k,457) = lu(k,457) * lu(k,456)
1129 254840160 : lu(k,458) = lu(k,458) * lu(k,456)
1130 254840160 : lu(k,459) = lu(k,459) * lu(k,456)
1131 254840160 : lu(k,460) = lu(k,460) * lu(k,456)
1132 254840160 : lu(k,461) = lu(k,461) * lu(k,456)
1133 254840160 : lu(k,3042) = lu(k,3042) - lu(k,457) * lu(k,2984)
1134 254840160 : lu(k,3106) = lu(k,3106) - lu(k,458) * lu(k,2984)
1135 254840160 : lu(k,3110) = lu(k,3110) - lu(k,459) * lu(k,2984)
1136 254840160 : lu(k,3115) = lu(k,3115) - lu(k,460) * lu(k,2984)
1137 254840160 : lu(k,3119) = lu(k,3119) - lu(k,461) * lu(k,2984)
1138 254840160 : lu(k,3299) = lu(k,3299) - lu(k,457) * lu(k,3233)
1139 254840160 : lu(k,3365) = lu(k,3365) - lu(k,458) * lu(k,3233)
1140 254840160 : lu(k,3369) = lu(k,3369) - lu(k,459) * lu(k,3233)
1141 254840160 : lu(k,3374) = lu(k,3374) - lu(k,460) * lu(k,3233)
1142 254840160 : lu(k,3378) = lu(k,3378) - lu(k,461) * lu(k,3233)
1143 254840160 : lu(k,4021) = lu(k,4021) - lu(k,457) * lu(k,3919)
1144 254840160 : lu(k,4088) = lu(k,4088) - lu(k,458) * lu(k,3919)
1145 254840160 : lu(k,4092) = lu(k,4092) - lu(k,459) * lu(k,3919)
1146 254840160 : lu(k,4097) = lu(k,4097) - lu(k,460) * lu(k,3919)
1147 263009123 : lu(k,4101) = lu(k,4101) - lu(k,461) * lu(k,3919)
1148 : end do
1149 8168963 : end subroutine lu_fac09
1150 8168963 : subroutine lu_fac10( avec_len, lu )
1151 : use chem_mods, only : nzcnt
1152 : use shr_kind_mod, only : r8 => shr_kind_r8
1153 : implicit none
1154 : !-----------------------------------------------------------------------
1155 : ! ... dummy args
1156 : !-----------------------------------------------------------------------
1157 : integer, intent(in) :: avec_len
1158 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1159 : !-----------------------------------------------------------------------
1160 : ! ... local variables
1161 : !-----------------------------------------------------------------------
1162 : integer :: k
1163 263009123 : do k = 1,avec_len
1164 254840160 : lu(k,462) = 1._r8 / lu(k,462)
1165 254840160 : lu(k,463) = lu(k,463) * lu(k,462)
1166 254840160 : lu(k,464) = lu(k,464) * lu(k,462)
1167 254840160 : lu(k,465) = lu(k,465) * lu(k,462)
1168 254840160 : lu(k,466) = lu(k,466) * lu(k,462)
1169 254840160 : lu(k,467) = lu(k,467) * lu(k,462)
1170 254840160 : lu(k,3793) = lu(k,3793) - lu(k,463) * lu(k,3787)
1171 254840160 : lu(k,3798) = lu(k,3798) - lu(k,464) * lu(k,3787)
1172 254840160 : lu(k,3808) = lu(k,3808) - lu(k,465) * lu(k,3787)
1173 254840160 : lu(k,3809) = lu(k,3809) - lu(k,466) * lu(k,3787)
1174 254840160 : lu(k,3810) = lu(k,3810) - lu(k,467) * lu(k,3787)
1175 254840160 : lu(k,3833) = lu(k,3833) - lu(k,463) * lu(k,3816)
1176 254840160 : lu(k,3839) = lu(k,3839) - lu(k,464) * lu(k,3816)
1177 254840160 : lu(k,3849) = - lu(k,465) * lu(k,3816)
1178 254840160 : lu(k,3850) = lu(k,3850) - lu(k,466) * lu(k,3816)
1179 254840160 : lu(k,3851) = lu(k,3851) - lu(k,467) * lu(k,3816)
1180 254840160 : lu(k,4062) = lu(k,4062) - lu(k,463) * lu(k,3920)
1181 254840160 : lu(k,4089) = lu(k,4089) - lu(k,464) * lu(k,3920)
1182 254840160 : lu(k,4099) = lu(k,4099) - lu(k,465) * lu(k,3920)
1183 254840160 : lu(k,4100) = lu(k,4100) - lu(k,466) * lu(k,3920)
1184 254840160 : lu(k,4101) = lu(k,4101) - lu(k,467) * lu(k,3920)
1185 254840160 : lu(k,468) = 1._r8 / lu(k,468)
1186 254840160 : lu(k,469) = lu(k,469) * lu(k,468)
1187 254840160 : lu(k,470) = lu(k,470) * lu(k,468)
1188 254840160 : lu(k,515) = - lu(k,469) * lu(k,513)
1189 254840160 : lu(k,518) = lu(k,518) - lu(k,470) * lu(k,513)
1190 254840160 : lu(k,742) = - lu(k,469) * lu(k,740)
1191 254840160 : lu(k,749) = lu(k,749) - lu(k,470) * lu(k,740)
1192 254840160 : lu(k,843) = - lu(k,469) * lu(k,841)
1193 254840160 : lu(k,851) = lu(k,851) - lu(k,470) * lu(k,841)
1194 254840160 : lu(k,872) = - lu(k,469) * lu(k,870)
1195 254840160 : lu(k,880) = lu(k,880) - lu(k,470) * lu(k,870)
1196 254840160 : lu(k,894) = - lu(k,469) * lu(k,892)
1197 254840160 : lu(k,903) = lu(k,903) - lu(k,470) * lu(k,892)
1198 254840160 : lu(k,3004) = lu(k,3004) - lu(k,469) * lu(k,2985)
1199 254840160 : lu(k,3110) = lu(k,3110) - lu(k,470) * lu(k,2985)
1200 254840160 : lu(k,3259) = lu(k,3259) - lu(k,469) * lu(k,3234)
1201 254840160 : lu(k,3369) = lu(k,3369) - lu(k,470) * lu(k,3234)
1202 254840160 : lu(k,3967) = - lu(k,469) * lu(k,3921)
1203 254840160 : lu(k,4092) = lu(k,4092) - lu(k,470) * lu(k,3921)
1204 254840160 : lu(k,471) = 1._r8 / lu(k,471)
1205 254840160 : lu(k,472) = lu(k,472) * lu(k,471)
1206 254840160 : lu(k,473) = lu(k,473) * lu(k,471)
1207 254840160 : lu(k,474) = lu(k,474) * lu(k,471)
1208 254840160 : lu(k,475) = lu(k,475) * lu(k,471)
1209 254840160 : lu(k,2401) = - lu(k,472) * lu(k,2400)
1210 254840160 : lu(k,2409) = lu(k,2409) - lu(k,473) * lu(k,2400)
1211 254840160 : lu(k,2422) = lu(k,2422) - lu(k,474) * lu(k,2400)
1212 254840160 : lu(k,2426) = lu(k,2426) - lu(k,475) * lu(k,2400)
1213 254840160 : lu(k,2461) = - lu(k,472) * lu(k,2460)
1214 254840160 : lu(k,2472) = lu(k,2472) - lu(k,473) * lu(k,2460)
1215 254840160 : lu(k,2485) = lu(k,2485) - lu(k,474) * lu(k,2460)
1216 254840160 : lu(k,2489) = lu(k,2489) - lu(k,475) * lu(k,2460)
1217 254840160 : lu(k,3272) = lu(k,3272) - lu(k,472) * lu(k,3235)
1218 254840160 : lu(k,3354) = lu(k,3354) - lu(k,473) * lu(k,3235)
1219 254840160 : lu(k,3369) = lu(k,3369) - lu(k,474) * lu(k,3235)
1220 254840160 : lu(k,3378) = lu(k,3378) - lu(k,475) * lu(k,3235)
1221 254840160 : lu(k,3982) = lu(k,3982) - lu(k,472) * lu(k,3922)
1222 254840160 : lu(k,4077) = lu(k,4077) - lu(k,473) * lu(k,3922)
1223 254840160 : lu(k,4092) = lu(k,4092) - lu(k,474) * lu(k,3922)
1224 254840160 : lu(k,4101) = lu(k,4101) - lu(k,475) * lu(k,3922)
1225 254840160 : lu(k,477) = 1._r8 / lu(k,477)
1226 254840160 : lu(k,478) = lu(k,478) * lu(k,477)
1227 254840160 : lu(k,479) = lu(k,479) * lu(k,477)
1228 254840160 : lu(k,480) = lu(k,480) * lu(k,477)
1229 254840160 : lu(k,481) = lu(k,481) * lu(k,477)
1230 254840160 : lu(k,482) = lu(k,482) * lu(k,477)
1231 254840160 : lu(k,483) = lu(k,483) * lu(k,477)
1232 254840160 : lu(k,3104) = - lu(k,478) * lu(k,2986)
1233 254840160 : lu(k,3106) = lu(k,3106) - lu(k,479) * lu(k,2986)
1234 254840160 : lu(k,3108) = lu(k,3108) - lu(k,480) * lu(k,2986)
1235 254840160 : lu(k,3115) = lu(k,3115) - lu(k,481) * lu(k,2986)
1236 254840160 : lu(k,3117) = - lu(k,482) * lu(k,2986)
1237 254840160 : lu(k,3119) = lu(k,3119) - lu(k,483) * lu(k,2986)
1238 254840160 : lu(k,3652) = - lu(k,478) * lu(k,3622)
1239 254840160 : lu(k,3654) = lu(k,3654) - lu(k,479) * lu(k,3622)
1240 254840160 : lu(k,3656) = lu(k,3656) - lu(k,480) * lu(k,3622)
1241 254840160 : lu(k,3663) = lu(k,3663) - lu(k,481) * lu(k,3622)
1242 254840160 : lu(k,3665) = lu(k,3665) - lu(k,482) * lu(k,3622)
1243 254840160 : lu(k,3667) = lu(k,3667) - lu(k,483) * lu(k,3622)
1244 254840160 : lu(k,4086) = lu(k,4086) - lu(k,478) * lu(k,3923)
1245 254840160 : lu(k,4088) = lu(k,4088) - lu(k,479) * lu(k,3923)
1246 254840160 : lu(k,4090) = lu(k,4090) - lu(k,480) * lu(k,3923)
1247 254840160 : lu(k,4097) = lu(k,4097) - lu(k,481) * lu(k,3923)
1248 254840160 : lu(k,4099) = lu(k,4099) - lu(k,482) * lu(k,3923)
1249 254840160 : lu(k,4101) = lu(k,4101) - lu(k,483) * lu(k,3923)
1250 254840160 : lu(k,484) = 1._r8 / lu(k,484)
1251 254840160 : lu(k,485) = lu(k,485) * lu(k,484)
1252 254840160 : lu(k,486) = lu(k,486) * lu(k,484)
1253 254840160 : lu(k,487) = lu(k,487) * lu(k,484)
1254 254840160 : lu(k,711) = lu(k,711) - lu(k,485) * lu(k,710)
1255 254840160 : lu(k,714) = lu(k,714) - lu(k,486) * lu(k,710)
1256 254840160 : lu(k,715) = - lu(k,487) * lu(k,710)
1257 254840160 : lu(k,2997) = lu(k,2997) - lu(k,485) * lu(k,2987)
1258 254840160 : lu(k,3115) = lu(k,3115) - lu(k,486) * lu(k,2987)
1259 254840160 : lu(k,3116) = lu(k,3116) - lu(k,487) * lu(k,2987)
1260 254840160 : lu(k,3246) = lu(k,3246) - lu(k,485) * lu(k,3236)
1261 254840160 : lu(k,3374) = lu(k,3374) - lu(k,486) * lu(k,3236)
1262 254840160 : lu(k,3375) = lu(k,3375) - lu(k,487) * lu(k,3236)
1263 254840160 : lu(k,3630) = - lu(k,485) * lu(k,3623)
1264 254840160 : lu(k,3663) = lu(k,3663) - lu(k,486) * lu(k,3623)
1265 254840160 : lu(k,3664) = lu(k,3664) - lu(k,487) * lu(k,3623)
1266 254840160 : lu(k,3678) = lu(k,3678) - lu(k,485) * lu(k,3675)
1267 254840160 : lu(k,3765) = lu(k,3765) - lu(k,486) * lu(k,3675)
1268 254840160 : lu(k,3766) = lu(k,3766) - lu(k,487) * lu(k,3675)
1269 254840160 : lu(k,3951) = lu(k,3951) - lu(k,485) * lu(k,3924)
1270 254840160 : lu(k,4097) = lu(k,4097) - lu(k,486) * lu(k,3924)
1271 254840160 : lu(k,4098) = lu(k,4098) - lu(k,487) * lu(k,3924)
1272 254840160 : lu(k,488) = 1._r8 / lu(k,488)
1273 254840160 : lu(k,489) = lu(k,489) * lu(k,488)
1274 254840160 : lu(k,490) = lu(k,490) * lu(k,488)
1275 254840160 : lu(k,491) = lu(k,491) * lu(k,488)
1276 254840160 : lu(k,492) = lu(k,492) * lu(k,488)
1277 254840160 : lu(k,493) = lu(k,493) * lu(k,488)
1278 254840160 : lu(k,494) = lu(k,494) * lu(k,488)
1279 254840160 : lu(k,1838) = - lu(k,489) * lu(k,1835)
1280 254840160 : lu(k,1843) = lu(k,1843) - lu(k,490) * lu(k,1835)
1281 254840160 : lu(k,1854) = - lu(k,491) * lu(k,1835)
1282 254840160 : lu(k,1855) = lu(k,1855) - lu(k,492) * lu(k,1835)
1283 254840160 : lu(k,1861) = lu(k,1861) - lu(k,493) * lu(k,1835)
1284 254840160 : lu(k,1864) = lu(k,1864) - lu(k,494) * lu(k,1835)
1285 254840160 : lu(k,1886) = - lu(k,489) * lu(k,1883)
1286 254840160 : lu(k,1889) = - lu(k,490) * lu(k,1883)
1287 254840160 : lu(k,1902) = lu(k,1902) - lu(k,491) * lu(k,1883)
1288 254840160 : lu(k,1903) = - lu(k,492) * lu(k,1883)
1289 254840160 : lu(k,1908) = lu(k,1908) - lu(k,493) * lu(k,1883)
1290 254840160 : lu(k,1910) = lu(k,1910) - lu(k,494) * lu(k,1883)
1291 254840160 : lu(k,3972) = lu(k,3972) - lu(k,489) * lu(k,3925)
1292 254840160 : lu(k,4025) = lu(k,4025) - lu(k,490) * lu(k,3925)
1293 254840160 : lu(k,4056) = lu(k,4056) - lu(k,491) * lu(k,3925)
1294 254840160 : lu(k,4057) = lu(k,4057) - lu(k,492) * lu(k,3925)
1295 254840160 : lu(k,4092) = lu(k,4092) - lu(k,493) * lu(k,3925)
1296 263009123 : lu(k,4101) = lu(k,4101) - lu(k,494) * lu(k,3925)
1297 : end do
1298 8168963 : end subroutine lu_fac10
1299 8168963 : subroutine lu_fac11( avec_len, lu )
1300 : use chem_mods, only : nzcnt
1301 : use shr_kind_mod, only : r8 => shr_kind_r8
1302 : implicit none
1303 : !-----------------------------------------------------------------------
1304 : ! ... dummy args
1305 : !-----------------------------------------------------------------------
1306 : integer, intent(in) :: avec_len
1307 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1308 : !-----------------------------------------------------------------------
1309 : ! ... local variables
1310 : !-----------------------------------------------------------------------
1311 : integer :: k
1312 263009123 : do k = 1,avec_len
1313 254840160 : lu(k,495) = 1._r8 / lu(k,495)
1314 254840160 : lu(k,496) = lu(k,496) * lu(k,495)
1315 254840160 : lu(k,497) = lu(k,497) * lu(k,495)
1316 254840160 : lu(k,498) = lu(k,498) * lu(k,495)
1317 254840160 : lu(k,499) = lu(k,499) * lu(k,495)
1318 254840160 : lu(k,500) = lu(k,500) * lu(k,495)
1319 254840160 : lu(k,501) = lu(k,501) * lu(k,495)
1320 254840160 : lu(k,3793) = lu(k,3793) - lu(k,496) * lu(k,3788)
1321 254840160 : lu(k,3798) = lu(k,3798) - lu(k,497) * lu(k,3788)
1322 254840160 : lu(k,3808) = lu(k,3808) - lu(k,498) * lu(k,3788)
1323 254840160 : lu(k,3809) = lu(k,3809) - lu(k,499) * lu(k,3788)
1324 254840160 : lu(k,3810) = lu(k,3810) - lu(k,500) * lu(k,3788)
1325 254840160 : lu(k,3811) = lu(k,3811) - lu(k,501) * lu(k,3788)
1326 254840160 : lu(k,3833) = lu(k,3833) - lu(k,496) * lu(k,3817)
1327 254840160 : lu(k,3839) = lu(k,3839) - lu(k,497) * lu(k,3817)
1328 254840160 : lu(k,3849) = lu(k,3849) - lu(k,498) * lu(k,3817)
1329 254840160 : lu(k,3850) = lu(k,3850) - lu(k,499) * lu(k,3817)
1330 254840160 : lu(k,3851) = lu(k,3851) - lu(k,500) * lu(k,3817)
1331 254840160 : lu(k,3852) = lu(k,3852) - lu(k,501) * lu(k,3817)
1332 254840160 : lu(k,4062) = lu(k,4062) - lu(k,496) * lu(k,3926)
1333 254840160 : lu(k,4089) = lu(k,4089) - lu(k,497) * lu(k,3926)
1334 254840160 : lu(k,4099) = lu(k,4099) - lu(k,498) * lu(k,3926)
1335 254840160 : lu(k,4100) = lu(k,4100) - lu(k,499) * lu(k,3926)
1336 254840160 : lu(k,4101) = lu(k,4101) - lu(k,500) * lu(k,3926)
1337 254840160 : lu(k,4102) = lu(k,4102) - lu(k,501) * lu(k,3926)
1338 254840160 : lu(k,502) = 1._r8 / lu(k,502)
1339 254840160 : lu(k,503) = lu(k,503) * lu(k,502)
1340 254840160 : lu(k,504) = lu(k,504) * lu(k,502)
1341 254840160 : lu(k,505) = lu(k,505) * lu(k,502)
1342 254840160 : lu(k,506) = lu(k,506) * lu(k,502)
1343 254840160 : lu(k,507) = lu(k,507) * lu(k,502)
1344 254840160 : lu(k,508) = lu(k,508) * lu(k,502)
1345 254840160 : lu(k,509) = lu(k,509) * lu(k,502)
1346 254840160 : lu(k,510) = lu(k,510) * lu(k,502)
1347 254840160 : lu(k,511) = lu(k,511) * lu(k,502)
1348 254840160 : lu(k,1193) = - lu(k,503) * lu(k,1192)
1349 254840160 : lu(k,1196) = - lu(k,504) * lu(k,1192)
1350 254840160 : lu(k,1197) = - lu(k,505) * lu(k,1192)
1351 254840160 : lu(k,1199) = - lu(k,506) * lu(k,1192)
1352 254840160 : lu(k,1205) = - lu(k,507) * lu(k,1192)
1353 254840160 : lu(k,1206) = lu(k,1206) - lu(k,508) * lu(k,1192)
1354 254840160 : lu(k,1207) = - lu(k,509) * lu(k,1192)
1355 254840160 : lu(k,1208) = lu(k,1208) - lu(k,510) * lu(k,1192)
1356 254840160 : lu(k,1209) = lu(k,1209) - lu(k,511) * lu(k,1192)
1357 254840160 : lu(k,3972) = lu(k,3972) - lu(k,503) * lu(k,3927)
1358 254840160 : lu(k,4013) = lu(k,4013) - lu(k,504) * lu(k,3927)
1359 254840160 : lu(k,4035) = lu(k,4035) - lu(k,505) * lu(k,3927)
1360 254840160 : lu(k,4052) = lu(k,4052) - lu(k,506) * lu(k,3927)
1361 254840160 : lu(k,4087) = lu(k,4087) - lu(k,507) * lu(k,3927)
1362 254840160 : lu(k,4091) = lu(k,4091) - lu(k,508) * lu(k,3927)
1363 254840160 : lu(k,4092) = lu(k,4092) - lu(k,509) * lu(k,3927)
1364 254840160 : lu(k,4097) = lu(k,4097) - lu(k,510) * lu(k,3927)
1365 254840160 : lu(k,4101) = lu(k,4101) - lu(k,511) * lu(k,3927)
1366 254840160 : lu(k,514) = 1._r8 / lu(k,514)
1367 254840160 : lu(k,515) = lu(k,515) * lu(k,514)
1368 254840160 : lu(k,516) = lu(k,516) * lu(k,514)
1369 254840160 : lu(k,517) = lu(k,517) * lu(k,514)
1370 254840160 : lu(k,518) = lu(k,518) * lu(k,514)
1371 254840160 : lu(k,519) = lu(k,519) * lu(k,514)
1372 254840160 : lu(k,520) = lu(k,520) * lu(k,514)
1373 254840160 : lu(k,3004) = lu(k,3004) - lu(k,515) * lu(k,2988)
1374 254840160 : lu(k,3042) = lu(k,3042) - lu(k,516) * lu(k,2988)
1375 254840160 : lu(k,3106) = lu(k,3106) - lu(k,517) * lu(k,2988)
1376 254840160 : lu(k,3110) = lu(k,3110) - lu(k,518) * lu(k,2988)
1377 254840160 : lu(k,3115) = lu(k,3115) - lu(k,519) * lu(k,2988)
1378 254840160 : lu(k,3119) = lu(k,3119) - lu(k,520) * lu(k,2988)
1379 254840160 : lu(k,3259) = lu(k,3259) - lu(k,515) * lu(k,3237)
1380 254840160 : lu(k,3299) = lu(k,3299) - lu(k,516) * lu(k,3237)
1381 254840160 : lu(k,3365) = lu(k,3365) - lu(k,517) * lu(k,3237)
1382 254840160 : lu(k,3369) = lu(k,3369) - lu(k,518) * lu(k,3237)
1383 254840160 : lu(k,3374) = lu(k,3374) - lu(k,519) * lu(k,3237)
1384 254840160 : lu(k,3378) = lu(k,3378) - lu(k,520) * lu(k,3237)
1385 254840160 : lu(k,3967) = lu(k,3967) - lu(k,515) * lu(k,3928)
1386 254840160 : lu(k,4021) = lu(k,4021) - lu(k,516) * lu(k,3928)
1387 254840160 : lu(k,4088) = lu(k,4088) - lu(k,517) * lu(k,3928)
1388 254840160 : lu(k,4092) = lu(k,4092) - lu(k,518) * lu(k,3928)
1389 254840160 : lu(k,4097) = lu(k,4097) - lu(k,519) * lu(k,3928)
1390 254840160 : lu(k,4101) = lu(k,4101) - lu(k,520) * lu(k,3928)
1391 254840160 : lu(k,521) = 1._r8 / lu(k,521)
1392 254840160 : lu(k,522) = lu(k,522) * lu(k,521)
1393 254840160 : lu(k,523) = lu(k,523) * lu(k,521)
1394 254840160 : lu(k,524) = lu(k,524) * lu(k,521)
1395 254840160 : lu(k,525) = lu(k,525) * lu(k,521)
1396 254840160 : lu(k,526) = lu(k,526) * lu(k,521)
1397 254840160 : lu(k,527) = lu(k,527) * lu(k,521)
1398 254840160 : lu(k,1807) = - lu(k,522) * lu(k,1804)
1399 254840160 : lu(k,1810) = lu(k,1810) - lu(k,523) * lu(k,1804)
1400 254840160 : lu(k,1822) = - lu(k,524) * lu(k,1804)
1401 254840160 : lu(k,1823) = lu(k,1823) - lu(k,525) * lu(k,1804)
1402 254840160 : lu(k,1830) = lu(k,1830) - lu(k,526) * lu(k,1804)
1403 254840160 : lu(k,1833) = lu(k,1833) - lu(k,527) * lu(k,1804)
1404 254840160 : lu(k,1886) = lu(k,1886) - lu(k,522) * lu(k,1884)
1405 254840160 : lu(k,1887) = - lu(k,523) * lu(k,1884)
1406 254840160 : lu(k,1901) = lu(k,1901) - lu(k,524) * lu(k,1884)
1407 254840160 : lu(k,1903) = lu(k,1903) - lu(k,525) * lu(k,1884)
1408 254840160 : lu(k,1908) = lu(k,1908) - lu(k,526) * lu(k,1884)
1409 254840160 : lu(k,1910) = lu(k,1910) - lu(k,527) * lu(k,1884)
1410 254840160 : lu(k,3972) = lu(k,3972) - lu(k,522) * lu(k,3929)
1411 254840160 : lu(k,4019) = lu(k,4019) - lu(k,523) * lu(k,3929)
1412 254840160 : lu(k,4055) = lu(k,4055) - lu(k,524) * lu(k,3929)
1413 254840160 : lu(k,4057) = lu(k,4057) - lu(k,525) * lu(k,3929)
1414 254840160 : lu(k,4092) = lu(k,4092) - lu(k,526) * lu(k,3929)
1415 254840160 : lu(k,4101) = lu(k,4101) - lu(k,527) * lu(k,3929)
1416 254840160 : lu(k,528) = 1._r8 / lu(k,528)
1417 254840160 : lu(k,529) = lu(k,529) * lu(k,528)
1418 254840160 : lu(k,530) = lu(k,530) * lu(k,528)
1419 254840160 : lu(k,531) = lu(k,531) * lu(k,528)
1420 254840160 : lu(k,532) = lu(k,532) * lu(k,528)
1421 254840160 : lu(k,533) = lu(k,533) * lu(k,528)
1422 254840160 : lu(k,534) = lu(k,534) * lu(k,528)
1423 254840160 : lu(k,1620) = lu(k,1620) - lu(k,529) * lu(k,1616)
1424 254840160 : lu(k,1621) = - lu(k,530) * lu(k,1616)
1425 254840160 : lu(k,1622) = lu(k,1622) - lu(k,531) * lu(k,1616)
1426 254840160 : lu(k,1629) = lu(k,1629) - lu(k,532) * lu(k,1616)
1427 254840160 : lu(k,1630) = lu(k,1630) - lu(k,533) * lu(k,1616)
1428 254840160 : lu(k,1632) = lu(k,1632) - lu(k,534) * lu(k,1616)
1429 254840160 : lu(k,3641) = lu(k,3641) - lu(k,529) * lu(k,3624)
1430 254840160 : lu(k,3642) = - lu(k,530) * lu(k,3624)
1431 254840160 : lu(k,3644) = lu(k,3644) - lu(k,531) * lu(k,3624)
1432 254840160 : lu(k,3662) = lu(k,3662) - lu(k,532) * lu(k,3624)
1433 254840160 : lu(k,3663) = lu(k,3663) - lu(k,533) * lu(k,3624)
1434 254840160 : lu(k,3667) = lu(k,3667) - lu(k,534) * lu(k,3624)
1435 254840160 : lu(k,4034) = lu(k,4034) - lu(k,529) * lu(k,3930)
1436 254840160 : lu(k,4044) = lu(k,4044) - lu(k,530) * lu(k,3930)
1437 254840160 : lu(k,4057) = lu(k,4057) - lu(k,531) * lu(k,3930)
1438 254840160 : lu(k,4096) = lu(k,4096) - lu(k,532) * lu(k,3930)
1439 254840160 : lu(k,4097) = lu(k,4097) - lu(k,533) * lu(k,3930)
1440 254840160 : lu(k,4101) = lu(k,4101) - lu(k,534) * lu(k,3930)
1441 254840160 : lu(k,536) = 1._r8 / lu(k,536)
1442 254840160 : lu(k,537) = lu(k,537) * lu(k,536)
1443 254840160 : lu(k,538) = lu(k,538) * lu(k,536)
1444 254840160 : lu(k,539) = lu(k,539) * lu(k,536)
1445 254840160 : lu(k,540) = lu(k,540) * lu(k,536)
1446 254840160 : lu(k,541) = lu(k,541) * lu(k,536)
1447 254840160 : lu(k,542) = lu(k,542) * lu(k,536)
1448 254840160 : lu(k,3042) = lu(k,3042) - lu(k,537) * lu(k,2989)
1449 254840160 : lu(k,3069) = lu(k,3069) - lu(k,538) * lu(k,2989)
1450 254840160 : lu(k,3106) = lu(k,3106) - lu(k,539) * lu(k,2989)
1451 254840160 : lu(k,3110) = lu(k,3110) - lu(k,540) * lu(k,2989)
1452 254840160 : lu(k,3115) = lu(k,3115) - lu(k,541) * lu(k,2989)
1453 254840160 : lu(k,3119) = lu(k,3119) - lu(k,542) * lu(k,2989)
1454 254840160 : lu(k,3299) = lu(k,3299) - lu(k,537) * lu(k,3238)
1455 254840160 : lu(k,3328) = lu(k,3328) - lu(k,538) * lu(k,3238)
1456 254840160 : lu(k,3365) = lu(k,3365) - lu(k,539) * lu(k,3238)
1457 254840160 : lu(k,3369) = lu(k,3369) - lu(k,540) * lu(k,3238)
1458 254840160 : lu(k,3374) = lu(k,3374) - lu(k,541) * lu(k,3238)
1459 254840160 : lu(k,3378) = lu(k,3378) - lu(k,542) * lu(k,3238)
1460 254840160 : lu(k,4021) = lu(k,4021) - lu(k,537) * lu(k,3931)
1461 254840160 : lu(k,4052) = lu(k,4052) - lu(k,538) * lu(k,3931)
1462 254840160 : lu(k,4088) = lu(k,4088) - lu(k,539) * lu(k,3931)
1463 254840160 : lu(k,4092) = lu(k,4092) - lu(k,540) * lu(k,3931)
1464 254840160 : lu(k,4097) = lu(k,4097) - lu(k,541) * lu(k,3931)
1465 263009123 : lu(k,4101) = lu(k,4101) - lu(k,542) * lu(k,3931)
1466 : end do
1467 8168963 : end subroutine lu_fac11
1468 8168963 : subroutine lu_fac12( avec_len, lu )
1469 : use chem_mods, only : nzcnt
1470 : use shr_kind_mod, only : r8 => shr_kind_r8
1471 : implicit none
1472 : !-----------------------------------------------------------------------
1473 : ! ... dummy args
1474 : !-----------------------------------------------------------------------
1475 : integer, intent(in) :: avec_len
1476 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1477 : !-----------------------------------------------------------------------
1478 : ! ... local variables
1479 : !-----------------------------------------------------------------------
1480 : integer :: k
1481 263009123 : do k = 1,avec_len
1482 254840160 : lu(k,543) = 1._r8 / lu(k,543)
1483 254840160 : lu(k,544) = lu(k,544) * lu(k,543)
1484 254840160 : lu(k,545) = lu(k,545) * lu(k,543)
1485 254840160 : lu(k,546) = lu(k,546) * lu(k,543)
1486 254840160 : lu(k,547) = lu(k,547) * lu(k,543)
1487 254840160 : lu(k,548) = lu(k,548) * lu(k,543)
1488 254840160 : lu(k,1600) = lu(k,1600) - lu(k,544) * lu(k,1598)
1489 254840160 : lu(k,1602) = lu(k,1602) - lu(k,545) * lu(k,1598)
1490 254840160 : lu(k,1604) = lu(k,1604) - lu(k,546) * lu(k,1598)
1491 254840160 : lu(k,1609) = lu(k,1609) - lu(k,547) * lu(k,1598)
1492 254840160 : lu(k,1611) = lu(k,1611) - lu(k,548) * lu(k,1598)
1493 254840160 : lu(k,3152) = lu(k,3152) - lu(k,544) * lu(k,3144)
1494 254840160 : lu(k,3157) = lu(k,3157) - lu(k,545) * lu(k,3144)
1495 254840160 : lu(k,3161) = lu(k,3161) - lu(k,546) * lu(k,3144)
1496 254840160 : lu(k,3169) = lu(k,3169) - lu(k,547) * lu(k,3144)
1497 254840160 : lu(k,3172) = lu(k,3172) - lu(k,548) * lu(k,3144)
1498 254840160 : lu(k,3705) = lu(k,3705) - lu(k,544) * lu(k,3676)
1499 254840160 : lu(k,3754) = lu(k,3754) - lu(k,545) * lu(k,3676)
1500 254840160 : lu(k,3758) = lu(k,3758) - lu(k,546) * lu(k,3676)
1501 254840160 : lu(k,3766) = lu(k,3766) - lu(k,547) * lu(k,3676)
1502 254840160 : lu(k,3769) = lu(k,3769) - lu(k,548) * lu(k,3676)
1503 254840160 : lu(k,4032) = lu(k,4032) - lu(k,544) * lu(k,3932)
1504 254840160 : lu(k,4086) = lu(k,4086) - lu(k,545) * lu(k,3932)
1505 254840160 : lu(k,4090) = lu(k,4090) - lu(k,546) * lu(k,3932)
1506 254840160 : lu(k,4098) = lu(k,4098) - lu(k,547) * lu(k,3932)
1507 254840160 : lu(k,4101) = lu(k,4101) - lu(k,548) * lu(k,3932)
1508 254840160 : lu(k,550) = 1._r8 / lu(k,550)
1509 254840160 : lu(k,551) = lu(k,551) * lu(k,550)
1510 254840160 : lu(k,552) = lu(k,552) * lu(k,550)
1511 254840160 : lu(k,553) = lu(k,553) * lu(k,550)
1512 254840160 : lu(k,554) = lu(k,554) * lu(k,550)
1513 254840160 : lu(k,555) = lu(k,555) * lu(k,550)
1514 254840160 : lu(k,2997) = lu(k,2997) - lu(k,551) * lu(k,2990)
1515 254840160 : lu(k,3106) = lu(k,3106) - lu(k,552) * lu(k,2990)
1516 254840160 : lu(k,3110) = lu(k,3110) - lu(k,553) * lu(k,2990)
1517 254840160 : lu(k,3115) = lu(k,3115) - lu(k,554) * lu(k,2990)
1518 254840160 : lu(k,3119) = lu(k,3119) - lu(k,555) * lu(k,2990)
1519 254840160 : lu(k,3246) = lu(k,3246) - lu(k,551) * lu(k,3239)
1520 254840160 : lu(k,3365) = lu(k,3365) - lu(k,552) * lu(k,3239)
1521 254840160 : lu(k,3369) = lu(k,3369) - lu(k,553) * lu(k,3239)
1522 254840160 : lu(k,3374) = lu(k,3374) - lu(k,554) * lu(k,3239)
1523 254840160 : lu(k,3378) = lu(k,3378) - lu(k,555) * lu(k,3239)
1524 254840160 : lu(k,3630) = lu(k,3630) - lu(k,551) * lu(k,3625)
1525 254840160 : lu(k,3654) = lu(k,3654) - lu(k,552) * lu(k,3625)
1526 254840160 : lu(k,3658) = lu(k,3658) - lu(k,553) * lu(k,3625)
1527 254840160 : lu(k,3663) = lu(k,3663) - lu(k,554) * lu(k,3625)
1528 254840160 : lu(k,3667) = lu(k,3667) - lu(k,555) * lu(k,3625)
1529 254840160 : lu(k,3951) = lu(k,3951) - lu(k,551) * lu(k,3933)
1530 254840160 : lu(k,4088) = lu(k,4088) - lu(k,552) * lu(k,3933)
1531 254840160 : lu(k,4092) = lu(k,4092) - lu(k,553) * lu(k,3933)
1532 254840160 : lu(k,4097) = lu(k,4097) - lu(k,554) * lu(k,3933)
1533 254840160 : lu(k,4101) = lu(k,4101) - lu(k,555) * lu(k,3933)
1534 254840160 : lu(k,556) = 1._r8 / lu(k,556)
1535 254840160 : lu(k,557) = lu(k,557) * lu(k,556)
1536 254840160 : lu(k,558) = lu(k,558) * lu(k,556)
1537 254840160 : lu(k,559) = lu(k,559) * lu(k,556)
1538 254840160 : lu(k,560) = lu(k,560) * lu(k,556)
1539 254840160 : lu(k,719) = - lu(k,557) * lu(k,717)
1540 254840160 : lu(k,721) = - lu(k,558) * lu(k,717)
1541 254840160 : lu(k,724) = - lu(k,559) * lu(k,717)
1542 254840160 : lu(k,727) = lu(k,727) - lu(k,560) * lu(k,717)
1543 254840160 : lu(k,753) = - lu(k,557) * lu(k,751)
1544 254840160 : lu(k,754) = - lu(k,558) * lu(k,751)
1545 254840160 : lu(k,757) = - lu(k,559) * lu(k,751)
1546 254840160 : lu(k,761) = lu(k,761) - lu(k,560) * lu(k,751)
1547 254840160 : lu(k,1181) = - lu(k,557) * lu(k,1178)
1548 254840160 : lu(k,1183) = - lu(k,558) * lu(k,1178)
1549 254840160 : lu(k,1186) = - lu(k,559) * lu(k,1178)
1550 254840160 : lu(k,1191) = - lu(k,560) * lu(k,1178)
1551 254840160 : lu(k,2999) = lu(k,2999) - lu(k,557) * lu(k,2991)
1552 254840160 : lu(k,3034) = lu(k,3034) - lu(k,558) * lu(k,2991)
1553 254840160 : lu(k,3103) = lu(k,3103) - lu(k,559) * lu(k,2991)
1554 254840160 : lu(k,3119) = lu(k,3119) - lu(k,560) * lu(k,2991)
1555 254840160 : lu(k,3956) = lu(k,3956) - lu(k,557) * lu(k,3934)
1556 254840160 : lu(k,4011) = lu(k,4011) - lu(k,558) * lu(k,3934)
1557 254840160 : lu(k,4085) = lu(k,4085) - lu(k,559) * lu(k,3934)
1558 254840160 : lu(k,4101) = lu(k,4101) - lu(k,560) * lu(k,3934)
1559 254840160 : lu(k,561) = 1._r8 / lu(k,561)
1560 254840160 : lu(k,562) = lu(k,562) * lu(k,561)
1561 254840160 : lu(k,563) = lu(k,563) * lu(k,561)
1562 254840160 : lu(k,564) = lu(k,564) * lu(k,561)
1563 254840160 : lu(k,565) = lu(k,565) * lu(k,561)
1564 254840160 : lu(k,566) = lu(k,566) * lu(k,561)
1565 254840160 : lu(k,567) = lu(k,567) * lu(k,561)
1566 254840160 : lu(k,568) = lu(k,568) * lu(k,561)
1567 254840160 : lu(k,3146) = lu(k,3146) - lu(k,562) * lu(k,3145)
1568 254840160 : lu(k,3155) = lu(k,3155) - lu(k,563) * lu(k,3145)
1569 254840160 : lu(k,3158) = - lu(k,564) * lu(k,3145)
1570 254840160 : lu(k,3161) = lu(k,3161) - lu(k,565) * lu(k,3145)
1571 254840160 : lu(k,3165) = lu(k,3165) - lu(k,566) * lu(k,3145)
1572 254840160 : lu(k,3167) = lu(k,3167) - lu(k,567) * lu(k,3145)
1573 254840160 : lu(k,3168) = lu(k,3168) - lu(k,568) * lu(k,3145)
1574 254840160 : lu(k,3476) = lu(k,3476) - lu(k,562) * lu(k,3475)
1575 254840160 : lu(k,3479) = lu(k,3479) - lu(k,563) * lu(k,3475)
1576 254840160 : lu(k,3481) = - lu(k,564) * lu(k,3475)
1577 254840160 : lu(k,3484) = lu(k,3484) - lu(k,565) * lu(k,3475)
1578 254840160 : lu(k,3488) = lu(k,3488) - lu(k,566) * lu(k,3475)
1579 254840160 : lu(k,3490) = - lu(k,567) * lu(k,3475)
1580 254840160 : lu(k,3491) = lu(k,3491) - lu(k,568) * lu(k,3475)
1581 254840160 : lu(k,3634) = - lu(k,562) * lu(k,3626)
1582 254840160 : lu(k,3645) = - lu(k,563) * lu(k,3626)
1583 254840160 : lu(k,3653) = lu(k,3653) - lu(k,564) * lu(k,3626)
1584 254840160 : lu(k,3656) = lu(k,3656) - lu(k,565) * lu(k,3626)
1585 254840160 : lu(k,3660) = lu(k,3660) - lu(k,566) * lu(k,3626)
1586 254840160 : lu(k,3662) = lu(k,3662) - lu(k,567) * lu(k,3626)
1587 254840160 : lu(k,3663) = lu(k,3663) - lu(k,568) * lu(k,3626)
1588 254840160 : lu(k,569) = 1._r8 / lu(k,569)
1589 254840160 : lu(k,570) = lu(k,570) * lu(k,569)
1590 254840160 : lu(k,571) = lu(k,571) * lu(k,569)
1591 254840160 : lu(k,572) = lu(k,572) * lu(k,569)
1592 254840160 : lu(k,573) = lu(k,573) * lu(k,569)
1593 254840160 : lu(k,574) = lu(k,574) * lu(k,569)
1594 254840160 : lu(k,575) = lu(k,575) * lu(k,569)
1595 254840160 : lu(k,576) = lu(k,576) * lu(k,569)
1596 254840160 : lu(k,2865) = lu(k,2865) - lu(k,570) * lu(k,2855)
1597 254840160 : lu(k,2913) = lu(k,2913) - lu(k,571) * lu(k,2855)
1598 254840160 : lu(k,2919) = lu(k,2919) - lu(k,572) * lu(k,2855)
1599 254840160 : lu(k,2921) = lu(k,2921) - lu(k,573) * lu(k,2855)
1600 254840160 : lu(k,2922) = - lu(k,574) * lu(k,2855)
1601 254840160 : lu(k,2923) = lu(k,2923) - lu(k,575) * lu(k,2855)
1602 254840160 : lu(k,2927) = lu(k,2927) - lu(k,576) * lu(k,2855)
1603 254840160 : lu(k,3640) = - lu(k,570) * lu(k,3627)
1604 254840160 : lu(k,3651) = lu(k,3651) - lu(k,571) * lu(k,3627)
1605 254840160 : lu(k,3657) = - lu(k,572) * lu(k,3627)
1606 254840160 : lu(k,3659) = - lu(k,573) * lu(k,3627)
1607 254840160 : lu(k,3662) = lu(k,3662) - lu(k,574) * lu(k,3627)
1608 254840160 : lu(k,3663) = lu(k,3663) - lu(k,575) * lu(k,3627)
1609 254840160 : lu(k,3667) = lu(k,3667) - lu(k,576) * lu(k,3627)
1610 254840160 : lu(k,4033) = lu(k,4033) - lu(k,570) * lu(k,3935)
1611 254840160 : lu(k,4085) = lu(k,4085) - lu(k,571) * lu(k,3935)
1612 254840160 : lu(k,4091) = lu(k,4091) - lu(k,572) * lu(k,3935)
1613 254840160 : lu(k,4093) = lu(k,4093) - lu(k,573) * lu(k,3935)
1614 254840160 : lu(k,4096) = lu(k,4096) - lu(k,574) * lu(k,3935)
1615 254840160 : lu(k,4097) = lu(k,4097) - lu(k,575) * lu(k,3935)
1616 263009123 : lu(k,4101) = lu(k,4101) - lu(k,576) * lu(k,3935)
1617 : end do
1618 8168963 : end subroutine lu_fac12
1619 8168963 : subroutine lu_fac13( avec_len, lu )
1620 : use chem_mods, only : nzcnt
1621 : use shr_kind_mod, only : r8 => shr_kind_r8
1622 : implicit none
1623 : !-----------------------------------------------------------------------
1624 : ! ... dummy args
1625 : !-----------------------------------------------------------------------
1626 : integer, intent(in) :: avec_len
1627 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1628 : !-----------------------------------------------------------------------
1629 : ! ... local variables
1630 : !-----------------------------------------------------------------------
1631 : integer :: k
1632 263009123 : do k = 1,avec_len
1633 254840160 : lu(k,577) = 1._r8 / lu(k,577)
1634 254840160 : lu(k,578) = lu(k,578) * lu(k,577)
1635 254840160 : lu(k,579) = lu(k,579) * lu(k,577)
1636 254840160 : lu(k,580) = lu(k,580) * lu(k,577)
1637 254840160 : lu(k,581) = lu(k,581) * lu(k,577)
1638 254840160 : lu(k,582) = lu(k,582) * lu(k,577)
1639 254840160 : lu(k,583) = lu(k,583) * lu(k,577)
1640 254840160 : lu(k,584) = lu(k,584) * lu(k,577)
1641 254840160 : lu(k,939) = lu(k,939) - lu(k,578) * lu(k,938)
1642 254840160 : lu(k,940) = lu(k,940) - lu(k,579) * lu(k,938)
1643 254840160 : lu(k,941) = - lu(k,580) * lu(k,938)
1644 254840160 : lu(k,943) = lu(k,943) - lu(k,581) * lu(k,938)
1645 254840160 : lu(k,944) = lu(k,944) - lu(k,582) * lu(k,938)
1646 254840160 : lu(k,946) = - lu(k,583) * lu(k,938)
1647 254840160 : lu(k,947) = - lu(k,584) * lu(k,938)
1648 254840160 : lu(k,3266) = lu(k,3266) - lu(k,578) * lu(k,3240)
1649 254840160 : lu(k,3294) = lu(k,3294) - lu(k,579) * lu(k,3240)
1650 254840160 : lu(k,3320) = lu(k,3320) - lu(k,580) * lu(k,3240)
1651 254840160 : lu(k,3368) = lu(k,3368) - lu(k,581) * lu(k,3240)
1652 254840160 : lu(k,3369) = lu(k,3369) - lu(k,582) * lu(k,3240)
1653 254840160 : lu(k,3378) = lu(k,3378) - lu(k,583) * lu(k,3240)
1654 254840160 : lu(k,3379) = lu(k,3379) - lu(k,584) * lu(k,3240)
1655 254840160 : lu(k,3976) = lu(k,3976) - lu(k,578) * lu(k,3936)
1656 254840160 : lu(k,4016) = lu(k,4016) - lu(k,579) * lu(k,3936)
1657 254840160 : lu(k,4044) = lu(k,4044) - lu(k,580) * lu(k,3936)
1658 254840160 : lu(k,4091) = lu(k,4091) - lu(k,581) * lu(k,3936)
1659 254840160 : lu(k,4092) = lu(k,4092) - lu(k,582) * lu(k,3936)
1660 254840160 : lu(k,4101) = lu(k,4101) - lu(k,583) * lu(k,3936)
1661 254840160 : lu(k,4102) = lu(k,4102) - lu(k,584) * lu(k,3936)
1662 254840160 : lu(k,585) = 1._r8 / lu(k,585)
1663 254840160 : lu(k,586) = lu(k,586) * lu(k,585)
1664 254840160 : lu(k,587) = lu(k,587) * lu(k,585)
1665 254840160 : lu(k,588) = lu(k,588) * lu(k,585)
1666 254840160 : lu(k,589) = lu(k,589) * lu(k,585)
1667 254840160 : lu(k,590) = lu(k,590) * lu(k,585)
1668 254840160 : lu(k,591) = lu(k,591) * lu(k,585)
1669 254840160 : lu(k,592) = lu(k,592) * lu(k,585)
1670 254840160 : lu(k,3682) = - lu(k,586) * lu(k,3677)
1671 254840160 : lu(k,3695) = lu(k,3695) - lu(k,587) * lu(k,3677)
1672 254840160 : lu(k,3726) = lu(k,3726) - lu(k,588) * lu(k,3677)
1673 254840160 : lu(k,3759) = lu(k,3759) - lu(k,589) * lu(k,3677)
1674 254840160 : lu(k,3760) = lu(k,3760) - lu(k,590) * lu(k,3677)
1675 254840160 : lu(k,3766) = lu(k,3766) - lu(k,591) * lu(k,3677)
1676 254840160 : lu(k,3769) = lu(k,3769) - lu(k,592) * lu(k,3677)
1677 254840160 : lu(k,3820) = - lu(k,586) * lu(k,3818)
1678 254840160 : lu(k,3824) = lu(k,3824) - lu(k,587) * lu(k,3818)
1679 254840160 : lu(k,3832) = lu(k,3832) - lu(k,588) * lu(k,3818)
1680 254840160 : lu(k,3841) = lu(k,3841) - lu(k,589) * lu(k,3818)
1681 254840160 : lu(k,3842) = lu(k,3842) - lu(k,590) * lu(k,3818)
1682 254840160 : lu(k,3848) = lu(k,3848) - lu(k,591) * lu(k,3818)
1683 254840160 : lu(k,3851) = lu(k,3851) - lu(k,592) * lu(k,3818)
1684 254840160 : lu(k,3966) = lu(k,3966) - lu(k,586) * lu(k,3937)
1685 254840160 : lu(k,4013) = lu(k,4013) - lu(k,587) * lu(k,3937)
1686 254840160 : lu(k,4057) = lu(k,4057) - lu(k,588) * lu(k,3937)
1687 254840160 : lu(k,4091) = lu(k,4091) - lu(k,589) * lu(k,3937)
1688 254840160 : lu(k,4092) = lu(k,4092) - lu(k,590) * lu(k,3937)
1689 254840160 : lu(k,4098) = lu(k,4098) - lu(k,591) * lu(k,3937)
1690 254840160 : lu(k,4101) = lu(k,4101) - lu(k,592) * lu(k,3937)
1691 254840160 : lu(k,593) = 1._r8 / lu(k,593)
1692 254840160 : lu(k,594) = lu(k,594) * lu(k,593)
1693 254840160 : lu(k,595) = lu(k,595) * lu(k,593)
1694 254840160 : lu(k,596) = lu(k,596) * lu(k,593)
1695 254840160 : lu(k,597) = lu(k,597) * lu(k,593)
1696 254840160 : lu(k,598) = lu(k,598) * lu(k,593)
1697 254840160 : lu(k,599) = lu(k,599) * lu(k,593)
1698 254840160 : lu(k,600) = lu(k,600) * lu(k,593)
1699 254840160 : lu(k,1974) = - lu(k,594) * lu(k,1972)
1700 254840160 : lu(k,1977) = - lu(k,595) * lu(k,1972)
1701 254840160 : lu(k,1992) = lu(k,1992) - lu(k,596) * lu(k,1972)
1702 254840160 : lu(k,2002) = lu(k,2002) - lu(k,597) * lu(k,1972)
1703 254840160 : lu(k,2003) = lu(k,2003) - lu(k,598) * lu(k,1972)
1704 254840160 : lu(k,2006) = lu(k,2006) - lu(k,599) * lu(k,1972)
1705 254840160 : lu(k,2007) = lu(k,2007) - lu(k,600) * lu(k,1972)
1706 254840160 : lu(k,3020) = lu(k,3020) - lu(k,594) * lu(k,2992)
1707 254840160 : lu(k,3047) = - lu(k,595) * lu(k,2992)
1708 254840160 : lu(k,3072) = lu(k,3072) - lu(k,596) * lu(k,2992)
1709 254840160 : lu(k,3109) = lu(k,3109) - lu(k,597) * lu(k,2992)
1710 254840160 : lu(k,3110) = lu(k,3110) - lu(k,598) * lu(k,2992)
1711 254840160 : lu(k,3115) = lu(k,3115) - lu(k,599) * lu(k,2992)
1712 254840160 : lu(k,3119) = lu(k,3119) - lu(k,600) * lu(k,2992)
1713 254840160 : lu(k,3986) = lu(k,3986) - lu(k,594) * lu(k,3938)
1714 254840160 : lu(k,4027) = lu(k,4027) - lu(k,595) * lu(k,3938)
1715 254840160 : lu(k,4055) = lu(k,4055) - lu(k,596) * lu(k,3938)
1716 254840160 : lu(k,4091) = lu(k,4091) - lu(k,597) * lu(k,3938)
1717 254840160 : lu(k,4092) = lu(k,4092) - lu(k,598) * lu(k,3938)
1718 254840160 : lu(k,4097) = lu(k,4097) - lu(k,599) * lu(k,3938)
1719 254840160 : lu(k,4101) = lu(k,4101) - lu(k,600) * lu(k,3938)
1720 254840160 : lu(k,601) = 1._r8 / lu(k,601)
1721 254840160 : lu(k,602) = lu(k,602) * lu(k,601)
1722 254840160 : lu(k,603) = lu(k,603) * lu(k,601)
1723 254840160 : lu(k,604) = lu(k,604) * lu(k,601)
1724 254840160 : lu(k,799) = lu(k,799) - lu(k,602) * lu(k,796)
1725 254840160 : lu(k,802) = lu(k,802) - lu(k,603) * lu(k,796)
1726 254840160 : lu(k,804) = lu(k,804) - lu(k,604) * lu(k,796)
1727 254840160 : lu(k,953) = - lu(k,602) * lu(k,949)
1728 254840160 : lu(k,957) = lu(k,957) - lu(k,603) * lu(k,949)
1729 254840160 : lu(k,959) = lu(k,959) - lu(k,604) * lu(k,949)
1730 254840160 : lu(k,2233) = - lu(k,602) * lu(k,2230)
1731 254840160 : lu(k,2249) = lu(k,2249) - lu(k,603) * lu(k,2230)
1732 254840160 : lu(k,2253) = lu(k,2253) - lu(k,604) * lu(k,2230)
1733 254840160 : lu(k,2673) = - lu(k,602) * lu(k,2670)
1734 254840160 : lu(k,2687) = lu(k,2687) - lu(k,603) * lu(k,2670)
1735 254840160 : lu(k,2691) = lu(k,2691) - lu(k,604) * lu(k,2670)
1736 254840160 : lu(k,3058) = lu(k,3058) - lu(k,602) * lu(k,2993)
1737 254840160 : lu(k,3110) = lu(k,3110) - lu(k,603) * lu(k,2993)
1738 254840160 : lu(k,3119) = lu(k,3119) - lu(k,604) * lu(k,2993)
1739 254840160 : lu(k,3317) = lu(k,3317) - lu(k,602) * lu(k,3241)
1740 254840160 : lu(k,3369) = lu(k,3369) - lu(k,603) * lu(k,3241)
1741 254840160 : lu(k,3378) = lu(k,3378) - lu(k,604) * lu(k,3241)
1742 254840160 : lu(k,4041) = lu(k,4041) - lu(k,602) * lu(k,3939)
1743 254840160 : lu(k,4092) = lu(k,4092) - lu(k,603) * lu(k,3939)
1744 254840160 : lu(k,4101) = lu(k,4101) - lu(k,604) * lu(k,3939)
1745 254840160 : lu(k,605) = 1._r8 / lu(k,605)
1746 254840160 : lu(k,606) = lu(k,606) * lu(k,605)
1747 254840160 : lu(k,607) = lu(k,607) * lu(k,605)
1748 254840160 : lu(k,608) = lu(k,608) * lu(k,605)
1749 254840160 : lu(k,609) = lu(k,609) * lu(k,605)
1750 254840160 : lu(k,610) = lu(k,610) * lu(k,605)
1751 254840160 : lu(k,611) = lu(k,611) * lu(k,605)
1752 254840160 : lu(k,612) = lu(k,612) * lu(k,605)
1753 254840160 : lu(k,3015) = lu(k,3015) - lu(k,606) * lu(k,2994)
1754 254840160 : lu(k,3037) = lu(k,3037) - lu(k,607) * lu(k,2994)
1755 254840160 : lu(k,3083) = lu(k,3083) - lu(k,608) * lu(k,2994)
1756 254840160 : lu(k,3106) = lu(k,3106) - lu(k,609) * lu(k,2994)
1757 254840160 : lu(k,3109) = lu(k,3109) - lu(k,610) * lu(k,2994)
1758 254840160 : lu(k,3110) = lu(k,3110) - lu(k,611) * lu(k,2994)
1759 254840160 : lu(k,3115) = lu(k,3115) - lu(k,612) * lu(k,2994)
1760 254840160 : lu(k,3530) = - lu(k,606) * lu(k,3528)
1761 254840160 : lu(k,3544) = lu(k,3544) - lu(k,607) * lu(k,3528)
1762 254840160 : lu(k,3579) = lu(k,3579) - lu(k,608) * lu(k,3528)
1763 254840160 : lu(k,3602) = lu(k,3602) - lu(k,609) * lu(k,3528)
1764 254840160 : lu(k,3605) = lu(k,3605) - lu(k,610) * lu(k,3528)
1765 254840160 : lu(k,3606) = lu(k,3606) - lu(k,611) * lu(k,3528)
1766 254840160 : lu(k,3611) = lu(k,3611) - lu(k,612) * lu(k,3528)
1767 254840160 : lu(k,3980) = lu(k,3980) - lu(k,606) * lu(k,3940)
1768 254840160 : lu(k,4016) = lu(k,4016) - lu(k,607) * lu(k,3940)
1769 254840160 : lu(k,4065) = lu(k,4065) - lu(k,608) * lu(k,3940)
1770 254840160 : lu(k,4088) = lu(k,4088) - lu(k,609) * lu(k,3940)
1771 254840160 : lu(k,4091) = lu(k,4091) - lu(k,610) * lu(k,3940)
1772 254840160 : lu(k,4092) = lu(k,4092) - lu(k,611) * lu(k,3940)
1773 254840160 : lu(k,4097) = lu(k,4097) - lu(k,612) * lu(k,3940)
1774 254840160 : lu(k,613) = 1._r8 / lu(k,613)
1775 254840160 : lu(k,614) = lu(k,614) * lu(k,613)
1776 254840160 : lu(k,615) = lu(k,615) * lu(k,613)
1777 254840160 : lu(k,616) = lu(k,616) * lu(k,613)
1778 254840160 : lu(k,617) = lu(k,617) * lu(k,613)
1779 254840160 : lu(k,618) = lu(k,618) * lu(k,613)
1780 254840160 : lu(k,619) = lu(k,619) * lu(k,613)
1781 254840160 : lu(k,620) = lu(k,620) * lu(k,613)
1782 254840160 : lu(k,621) = lu(k,621) * lu(k,613)
1783 254840160 : lu(k,622) = lu(k,622) * lu(k,613)
1784 254840160 : lu(k,623) = lu(k,623) * lu(k,613)
1785 254840160 : lu(k,624) = lu(k,624) * lu(k,613)
1786 254840160 : lu(k,625) = lu(k,625) * lu(k,613)
1787 254840160 : lu(k,1837) = lu(k,1837) - lu(k,614) * lu(k,1836)
1788 254840160 : lu(k,1838) = lu(k,1838) - lu(k,615) * lu(k,1836)
1789 254840160 : lu(k,1841) = - lu(k,616) * lu(k,1836)
1790 254840160 : lu(k,1844) = - lu(k,617) * lu(k,1836)
1791 254840160 : lu(k,1845) = lu(k,1845) - lu(k,618) * lu(k,1836)
1792 254840160 : lu(k,1852) = - lu(k,619) * lu(k,1836)
1793 254840160 : lu(k,1854) = lu(k,1854) - lu(k,620) * lu(k,1836)
1794 254840160 : lu(k,1855) = lu(k,1855) - lu(k,621) * lu(k,1836)
1795 254840160 : lu(k,1857) = lu(k,1857) - lu(k,622) * lu(k,1836)
1796 254840160 : lu(k,1861) = lu(k,1861) - lu(k,623) * lu(k,1836)
1797 254840160 : lu(k,1862) = lu(k,1862) - lu(k,624) * lu(k,1836)
1798 254840160 : lu(k,1864) = lu(k,1864) - lu(k,625) * lu(k,1836)
1799 254840160 : lu(k,3943) = lu(k,3943) - lu(k,614) * lu(k,3941)
1800 254840160 : lu(k,3972) = lu(k,3972) - lu(k,615) * lu(k,3941)
1801 254840160 : lu(k,4013) = lu(k,4013) - lu(k,616) * lu(k,3941)
1802 254840160 : lu(k,4026) = lu(k,4026) - lu(k,617) * lu(k,3941)
1803 254840160 : lu(k,4033) = lu(k,4033) - lu(k,618) * lu(k,3941)
1804 254840160 : lu(k,4052) = lu(k,4052) - lu(k,619) * lu(k,3941)
1805 254840160 : lu(k,4056) = lu(k,4056) - lu(k,620) * lu(k,3941)
1806 254840160 : lu(k,4057) = lu(k,4057) - lu(k,621) * lu(k,3941)
1807 254840160 : lu(k,4085) = lu(k,4085) - lu(k,622) * lu(k,3941)
1808 254840160 : lu(k,4092) = lu(k,4092) - lu(k,623) * lu(k,3941)
1809 254840160 : lu(k,4093) = lu(k,4093) - lu(k,624) * lu(k,3941)
1810 263009123 : lu(k,4101) = lu(k,4101) - lu(k,625) * lu(k,3941)
1811 : end do
1812 8168963 : end subroutine lu_fac13
1813 8168963 : subroutine lu_fac14( avec_len, lu )
1814 : use chem_mods, only : nzcnt
1815 : use shr_kind_mod, only : r8 => shr_kind_r8
1816 : implicit none
1817 : !-----------------------------------------------------------------------
1818 : ! ... dummy args
1819 : !-----------------------------------------------------------------------
1820 : integer, intent(in) :: avec_len
1821 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1822 : !-----------------------------------------------------------------------
1823 : ! ... local variables
1824 : !-----------------------------------------------------------------------
1825 : integer :: k
1826 263009123 : do k = 1,avec_len
1827 254840160 : lu(k,626) = 1._r8 / lu(k,626)
1828 254840160 : lu(k,627) = lu(k,627) * lu(k,626)
1829 254840160 : lu(k,628) = lu(k,628) * lu(k,626)
1830 254840160 : lu(k,629) = lu(k,629) * lu(k,626)
1831 254840160 : lu(k,630) = lu(k,630) * lu(k,626)
1832 254840160 : lu(k,631) = lu(k,631) * lu(k,626)
1833 254840160 : lu(k,632) = lu(k,632) * lu(k,626)
1834 254840160 : lu(k,633) = lu(k,633) * lu(k,626)
1835 254840160 : lu(k,634) = lu(k,634) * lu(k,626)
1836 254840160 : lu(k,635) = lu(k,635) * lu(k,626)
1837 254840160 : lu(k,636) = lu(k,636) * lu(k,626)
1838 254840160 : lu(k,637) = lu(k,637) * lu(k,626)
1839 254840160 : lu(k,638) = lu(k,638) * lu(k,626)
1840 254840160 : lu(k,1806) = lu(k,1806) - lu(k,627) * lu(k,1805)
1841 254840160 : lu(k,1807) = lu(k,1807) - lu(k,628) * lu(k,1805)
1842 254840160 : lu(k,1809) = - lu(k,629) * lu(k,1805)
1843 254840160 : lu(k,1812) = - lu(k,630) * lu(k,1805)
1844 254840160 : lu(k,1813) = lu(k,1813) - lu(k,631) * lu(k,1805)
1845 254840160 : lu(k,1820) = - lu(k,632) * lu(k,1805)
1846 254840160 : lu(k,1822) = lu(k,1822) - lu(k,633) * lu(k,1805)
1847 254840160 : lu(k,1823) = lu(k,1823) - lu(k,634) * lu(k,1805)
1848 254840160 : lu(k,1826) = lu(k,1826) - lu(k,635) * lu(k,1805)
1849 254840160 : lu(k,1830) = lu(k,1830) - lu(k,636) * lu(k,1805)
1850 254840160 : lu(k,1831) = lu(k,1831) - lu(k,637) * lu(k,1805)
1851 254840160 : lu(k,1833) = lu(k,1833) - lu(k,638) * lu(k,1805)
1852 254840160 : lu(k,3943) = lu(k,3943) - lu(k,627) * lu(k,3942)
1853 254840160 : lu(k,3972) = lu(k,3972) - lu(k,628) * lu(k,3942)
1854 254840160 : lu(k,3974) = lu(k,3974) - lu(k,629) * lu(k,3942)
1855 254840160 : lu(k,4029) = lu(k,4029) - lu(k,630) * lu(k,3942)
1856 254840160 : lu(k,4033) = lu(k,4033) - lu(k,631) * lu(k,3942)
1857 254840160 : lu(k,4052) = lu(k,4052) - lu(k,632) * lu(k,3942)
1858 254840160 : lu(k,4055) = lu(k,4055) - lu(k,633) * lu(k,3942)
1859 254840160 : lu(k,4057) = lu(k,4057) - lu(k,634) * lu(k,3942)
1860 254840160 : lu(k,4085) = lu(k,4085) - lu(k,635) * lu(k,3942)
1861 254840160 : lu(k,4092) = lu(k,4092) - lu(k,636) * lu(k,3942)
1862 254840160 : lu(k,4093) = lu(k,4093) - lu(k,637) * lu(k,3942)
1863 254840160 : lu(k,4101) = lu(k,4101) - lu(k,638) * lu(k,3942)
1864 254840160 : lu(k,639) = 1._r8 / lu(k,639)
1865 254840160 : lu(k,640) = lu(k,640) * lu(k,639)
1866 254840160 : lu(k,641) = lu(k,641) * lu(k,639)
1867 254840160 : lu(k,642) = lu(k,642) * lu(k,639)
1868 254840160 : lu(k,643) = lu(k,643) * lu(k,639)
1869 254840160 : lu(k,644) = lu(k,644) * lu(k,639)
1870 254840160 : lu(k,645) = lu(k,645) * lu(k,639)
1871 254840160 : lu(k,1809) = lu(k,1809) - lu(k,640) * lu(k,1806)
1872 254840160 : lu(k,1820) = lu(k,1820) - lu(k,641) * lu(k,1806)
1873 254840160 : lu(k,1823) = lu(k,1823) - lu(k,642) * lu(k,1806)
1874 254840160 : lu(k,1829) = lu(k,1829) - lu(k,643) * lu(k,1806)
1875 254840160 : lu(k,1830) = lu(k,1830) - lu(k,644) * lu(k,1806)
1876 254840160 : lu(k,1833) = lu(k,1833) - lu(k,645) * lu(k,1806)
1877 254840160 : lu(k,1840) = - lu(k,640) * lu(k,1837)
1878 254840160 : lu(k,1852) = lu(k,1852) - lu(k,641) * lu(k,1837)
1879 254840160 : lu(k,1855) = lu(k,1855) - lu(k,642) * lu(k,1837)
1880 254840160 : lu(k,1860) = lu(k,1860) - lu(k,643) * lu(k,1837)
1881 254840160 : lu(k,1861) = lu(k,1861) - lu(k,644) * lu(k,1837)
1882 254840160 : lu(k,1864) = lu(k,1864) - lu(k,645) * lu(k,1837)
1883 254840160 : lu(k,3974) = lu(k,3974) - lu(k,640) * lu(k,3943)
1884 254840160 : lu(k,4052) = lu(k,4052) - lu(k,641) * lu(k,3943)
1885 254840160 : lu(k,4057) = lu(k,4057) - lu(k,642) * lu(k,3943)
1886 254840160 : lu(k,4091) = lu(k,4091) - lu(k,643) * lu(k,3943)
1887 254840160 : lu(k,4092) = lu(k,4092) - lu(k,644) * lu(k,3943)
1888 254840160 : lu(k,4101) = lu(k,4101) - lu(k,645) * lu(k,3943)
1889 254840160 : lu(k,646) = 1._r8 / lu(k,646)
1890 254840160 : lu(k,647) = lu(k,647) * lu(k,646)
1891 254840160 : lu(k,648) = lu(k,648) * lu(k,646)
1892 254840160 : lu(k,649) = lu(k,649) * lu(k,646)
1893 254840160 : lu(k,650) = lu(k,650) * lu(k,646)
1894 254840160 : lu(k,651) = lu(k,651) * lu(k,646)
1895 254840160 : lu(k,652) = lu(k,652) * lu(k,646)
1896 254840160 : lu(k,653) = lu(k,653) * lu(k,646)
1897 254840160 : lu(k,654) = lu(k,654) * lu(k,646)
1898 254840160 : lu(k,3793) = lu(k,3793) - lu(k,647) * lu(k,3789)
1899 254840160 : lu(k,3798) = lu(k,3798) - lu(k,648) * lu(k,3789)
1900 254840160 : lu(k,3801) = lu(k,3801) - lu(k,649) * lu(k,3789)
1901 254840160 : lu(k,3802) = lu(k,3802) - lu(k,650) * lu(k,3789)
1902 254840160 : lu(k,3808) = lu(k,3808) - lu(k,651) * lu(k,3789)
1903 254840160 : lu(k,3809) = lu(k,3809) - lu(k,652) * lu(k,3789)
1904 254840160 : lu(k,3810) = lu(k,3810) - lu(k,653) * lu(k,3789)
1905 254840160 : lu(k,3811) = lu(k,3811) - lu(k,654) * lu(k,3789)
1906 254840160 : lu(k,3833) = lu(k,3833) - lu(k,647) * lu(k,3819)
1907 254840160 : lu(k,3839) = lu(k,3839) - lu(k,648) * lu(k,3819)
1908 254840160 : lu(k,3842) = lu(k,3842) - lu(k,649) * lu(k,3819)
1909 254840160 : lu(k,3843) = lu(k,3843) - lu(k,650) * lu(k,3819)
1910 254840160 : lu(k,3849) = lu(k,3849) - lu(k,651) * lu(k,3819)
1911 254840160 : lu(k,3850) = lu(k,3850) - lu(k,652) * lu(k,3819)
1912 254840160 : lu(k,3851) = lu(k,3851) - lu(k,653) * lu(k,3819)
1913 254840160 : lu(k,3852) = lu(k,3852) - lu(k,654) * lu(k,3819)
1914 254840160 : lu(k,4062) = lu(k,4062) - lu(k,647) * lu(k,3944)
1915 254840160 : lu(k,4089) = lu(k,4089) - lu(k,648) * lu(k,3944)
1916 254840160 : lu(k,4092) = lu(k,4092) - lu(k,649) * lu(k,3944)
1917 254840160 : lu(k,4093) = lu(k,4093) - lu(k,650) * lu(k,3944)
1918 254840160 : lu(k,4099) = lu(k,4099) - lu(k,651) * lu(k,3944)
1919 254840160 : lu(k,4100) = lu(k,4100) - lu(k,652) * lu(k,3944)
1920 254840160 : lu(k,4101) = lu(k,4101) - lu(k,653) * lu(k,3944)
1921 254840160 : lu(k,4102) = lu(k,4102) - lu(k,654) * lu(k,3944)
1922 254840160 : lu(k,655) = 1._r8 / lu(k,655)
1923 254840160 : lu(k,656) = lu(k,656) * lu(k,655)
1924 254840160 : lu(k,657) = lu(k,657) * lu(k,655)
1925 254840160 : lu(k,658) = lu(k,658) * lu(k,655)
1926 254840160 : lu(k,659) = lu(k,659) * lu(k,655)
1927 254840160 : lu(k,660) = lu(k,660) * lu(k,655)
1928 254840160 : lu(k,661) = lu(k,661) * lu(k,655)
1929 254840160 : lu(k,662) = lu(k,662) * lu(k,655)
1930 254840160 : lu(k,663) = lu(k,663) * lu(k,655)
1931 254840160 : lu(k,2721) = lu(k,2721) - lu(k,656) * lu(k,2717)
1932 254840160 : lu(k,2725) = lu(k,2725) - lu(k,657) * lu(k,2717)
1933 254840160 : lu(k,2728) = lu(k,2728) - lu(k,658) * lu(k,2717)
1934 254840160 : lu(k,2745) = lu(k,2745) - lu(k,659) * lu(k,2717)
1935 254840160 : lu(k,2753) = lu(k,2753) - lu(k,660) * lu(k,2717)
1936 254840160 : lu(k,2754) = lu(k,2754) - lu(k,661) * lu(k,2717)
1937 254840160 : lu(k,2757) = lu(k,2757) - lu(k,662) * lu(k,2717)
1938 254840160 : lu(k,2760) = lu(k,2760) - lu(k,663) * lu(k,2717)
1939 254840160 : lu(k,3640) = lu(k,3640) - lu(k,656) * lu(k,3628)
1940 254840160 : lu(k,3644) = lu(k,3644) - lu(k,657) * lu(k,3628)
1941 254840160 : lu(k,3646) = - lu(k,658) * lu(k,3628)
1942 254840160 : lu(k,3648) = lu(k,3648) - lu(k,659) * lu(k,3628)
1943 254840160 : lu(k,3657) = lu(k,3657) - lu(k,660) * lu(k,3628)
1944 254840160 : lu(k,3658) = lu(k,3658) - lu(k,661) * lu(k,3628)
1945 254840160 : lu(k,3663) = lu(k,3663) - lu(k,662) * lu(k,3628)
1946 254840160 : lu(k,3667) = lu(k,3667) - lu(k,663) * lu(k,3628)
1947 254840160 : lu(k,4033) = lu(k,4033) - lu(k,656) * lu(k,3945)
1948 254840160 : lu(k,4057) = lu(k,4057) - lu(k,657) * lu(k,3945)
1949 254840160 : lu(k,4065) = lu(k,4065) - lu(k,658) * lu(k,3945)
1950 254840160 : lu(k,4082) = lu(k,4082) - lu(k,659) * lu(k,3945)
1951 254840160 : lu(k,4091) = lu(k,4091) - lu(k,660) * lu(k,3945)
1952 254840160 : lu(k,4092) = lu(k,4092) - lu(k,661) * lu(k,3945)
1953 254840160 : lu(k,4097) = lu(k,4097) - lu(k,662) * lu(k,3945)
1954 254840160 : lu(k,4101) = lu(k,4101) - lu(k,663) * lu(k,3945)
1955 254840160 : lu(k,664) = 1._r8 / lu(k,664)
1956 254840160 : lu(k,665) = lu(k,665) * lu(k,664)
1957 254840160 : lu(k,666) = lu(k,666) * lu(k,664)
1958 254840160 : lu(k,667) = lu(k,667) * lu(k,664)
1959 254840160 : lu(k,668) = lu(k,668) * lu(k,664)
1960 254840160 : lu(k,669) = lu(k,669) * lu(k,664)
1961 254840160 : lu(k,670) = lu(k,670) * lu(k,664)
1962 254840160 : lu(k,671) = lu(k,671) * lu(k,664)
1963 254840160 : lu(k,672) = lu(k,672) * lu(k,664)
1964 254840160 : lu(k,2767) = lu(k,2767) - lu(k,665) * lu(k,2763)
1965 254840160 : lu(k,2771) = lu(k,2771) - lu(k,666) * lu(k,2763)
1966 254840160 : lu(k,2792) = lu(k,2792) - lu(k,667) * lu(k,2763)
1967 254840160 : lu(k,2794) = lu(k,2794) - lu(k,668) * lu(k,2763)
1968 254840160 : lu(k,2799) = lu(k,2799) - lu(k,669) * lu(k,2763)
1969 254840160 : lu(k,2800) = lu(k,2800) - lu(k,670) * lu(k,2763)
1970 254840160 : lu(k,2803) = lu(k,2803) - lu(k,671) * lu(k,2763)
1971 254840160 : lu(k,2806) = lu(k,2806) - lu(k,672) * lu(k,2763)
1972 254840160 : lu(k,3640) = lu(k,3640) - lu(k,665) * lu(k,3629)
1973 254840160 : lu(k,3644) = lu(k,3644) - lu(k,666) * lu(k,3629)
1974 254840160 : lu(k,3649) = lu(k,3649) - lu(k,667) * lu(k,3629)
1975 254840160 : lu(k,3651) = lu(k,3651) - lu(k,668) * lu(k,3629)
1976 254840160 : lu(k,3657) = lu(k,3657) - lu(k,669) * lu(k,3629)
1977 254840160 : lu(k,3658) = lu(k,3658) - lu(k,670) * lu(k,3629)
1978 254840160 : lu(k,3663) = lu(k,3663) - lu(k,671) * lu(k,3629)
1979 254840160 : lu(k,3667) = lu(k,3667) - lu(k,672) * lu(k,3629)
1980 254840160 : lu(k,4033) = lu(k,4033) - lu(k,665) * lu(k,3946)
1981 254840160 : lu(k,4057) = lu(k,4057) - lu(k,666) * lu(k,3946)
1982 254840160 : lu(k,4083) = lu(k,4083) - lu(k,667) * lu(k,3946)
1983 254840160 : lu(k,4085) = lu(k,4085) - lu(k,668) * lu(k,3946)
1984 254840160 : lu(k,4091) = lu(k,4091) - lu(k,669) * lu(k,3946)
1985 254840160 : lu(k,4092) = lu(k,4092) - lu(k,670) * lu(k,3946)
1986 254840160 : lu(k,4097) = lu(k,4097) - lu(k,671) * lu(k,3946)
1987 263009123 : lu(k,4101) = lu(k,4101) - lu(k,672) * lu(k,3946)
1988 : end do
1989 8168963 : end subroutine lu_fac14
1990 8168963 : subroutine lu_fac15( avec_len, lu )
1991 : use chem_mods, only : nzcnt
1992 : use shr_kind_mod, only : r8 => shr_kind_r8
1993 : implicit none
1994 : !-----------------------------------------------------------------------
1995 : ! ... dummy args
1996 : !-----------------------------------------------------------------------
1997 : integer, intent(in) :: avec_len
1998 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1999 : !-----------------------------------------------------------------------
2000 : ! ... local variables
2001 : !-----------------------------------------------------------------------
2002 : integer :: k
2003 263009123 : do k = 1,avec_len
2004 254840160 : lu(k,673) = 1._r8 / lu(k,673)
2005 254840160 : lu(k,674) = lu(k,674) * lu(k,673)
2006 254840160 : lu(k,675) = lu(k,675) * lu(k,673)
2007 254840160 : lu(k,676) = lu(k,676) * lu(k,673)
2008 254840160 : lu(k,677) = lu(k,677) * lu(k,673)
2009 254840160 : lu(k,678) = lu(k,678) * lu(k,673)
2010 254840160 : lu(k,679) = lu(k,679) * lu(k,673)
2011 254840160 : lu(k,680) = lu(k,680) * lu(k,673)
2012 254840160 : lu(k,681) = lu(k,681) * lu(k,673)
2013 254840160 : lu(k,1938) = - lu(k,674) * lu(k,1936)
2014 254840160 : lu(k,1940) = - lu(k,675) * lu(k,1936)
2015 254840160 : lu(k,1956) = lu(k,1956) - lu(k,676) * lu(k,1936)
2016 254840160 : lu(k,1960) = - lu(k,677) * lu(k,1936)
2017 254840160 : lu(k,1963) = lu(k,1963) - lu(k,678) * lu(k,1936)
2018 254840160 : lu(k,1964) = lu(k,1964) - lu(k,679) * lu(k,1936)
2019 254840160 : lu(k,1967) = lu(k,1967) - lu(k,680) * lu(k,1936)
2020 254840160 : lu(k,1968) = lu(k,1968) - lu(k,681) * lu(k,1936)
2021 254840160 : lu(k,3026) = lu(k,3026) - lu(k,674) * lu(k,2995)
2022 254840160 : lu(k,3047) = lu(k,3047) - lu(k,675) * lu(k,2995)
2023 254840160 : lu(k,3073) = lu(k,3073) - lu(k,676) * lu(k,2995)
2024 254840160 : lu(k,3105) = - lu(k,677) * lu(k,2995)
2025 254840160 : lu(k,3109) = lu(k,3109) - lu(k,678) * lu(k,2995)
2026 254840160 : lu(k,3110) = lu(k,3110) - lu(k,679) * lu(k,2995)
2027 254840160 : lu(k,3115) = lu(k,3115) - lu(k,680) * lu(k,2995)
2028 254840160 : lu(k,3119) = lu(k,3119) - lu(k,681) * lu(k,2995)
2029 254840160 : lu(k,3996) = lu(k,3996) - lu(k,674) * lu(k,3947)
2030 254840160 : lu(k,4027) = lu(k,4027) - lu(k,675) * lu(k,3947)
2031 254840160 : lu(k,4056) = lu(k,4056) - lu(k,676) * lu(k,3947)
2032 254840160 : lu(k,4087) = lu(k,4087) - lu(k,677) * lu(k,3947)
2033 254840160 : lu(k,4091) = lu(k,4091) - lu(k,678) * lu(k,3947)
2034 254840160 : lu(k,4092) = lu(k,4092) - lu(k,679) * lu(k,3947)
2035 254840160 : lu(k,4097) = lu(k,4097) - lu(k,680) * lu(k,3947)
2036 254840160 : lu(k,4101) = lu(k,4101) - lu(k,681) * lu(k,3947)
2037 254840160 : lu(k,682) = 1._r8 / lu(k,682)
2038 254840160 : lu(k,683) = lu(k,683) * lu(k,682)
2039 254840160 : lu(k,684) = lu(k,684) * lu(k,682)
2040 254840160 : lu(k,685) = lu(k,685) * lu(k,682)
2041 254840160 : lu(k,686) = lu(k,686) * lu(k,682)
2042 254840160 : lu(k,687) = lu(k,687) * lu(k,682)
2043 254840160 : lu(k,688) = lu(k,688) * lu(k,682)
2044 254840160 : lu(k,2495) = - lu(k,683) * lu(k,2491)
2045 254840160 : lu(k,2501) = lu(k,2501) - lu(k,684) * lu(k,2491)
2046 254840160 : lu(k,2507) = lu(k,2507) - lu(k,685) * lu(k,2491)
2047 254840160 : lu(k,2519) = lu(k,2519) - lu(k,686) * lu(k,2491)
2048 254840160 : lu(k,2522) = lu(k,2522) - lu(k,687) * lu(k,2491)
2049 254840160 : lu(k,2523) = lu(k,2523) - lu(k,688) * lu(k,2491)
2050 254840160 : lu(k,2558) = - lu(k,683) * lu(k,2554)
2051 254840160 : lu(k,2564) = lu(k,2564) - lu(k,684) * lu(k,2554)
2052 254840160 : lu(k,2572) = - lu(k,685) * lu(k,2554)
2053 254840160 : lu(k,2584) = lu(k,2584) - lu(k,686) * lu(k,2554)
2054 254840160 : lu(k,2587) = lu(k,2587) - lu(k,687) * lu(k,2554)
2055 254840160 : lu(k,2588) = lu(k,2588) - lu(k,688) * lu(k,2554)
2056 254840160 : lu(k,3286) = lu(k,3286) - lu(k,683) * lu(k,3242)
2057 254840160 : lu(k,3314) = lu(k,3314) - lu(k,684) * lu(k,3242)
2058 254840160 : lu(k,3355) = lu(k,3355) - lu(k,685) * lu(k,3242)
2059 254840160 : lu(k,3369) = lu(k,3369) - lu(k,686) * lu(k,3242)
2060 254840160 : lu(k,3374) = lu(k,3374) - lu(k,687) * lu(k,3242)
2061 254840160 : lu(k,3378) = lu(k,3378) - lu(k,688) * lu(k,3242)
2062 254840160 : lu(k,4000) = lu(k,4000) - lu(k,683) * lu(k,3948)
2063 254840160 : lu(k,4038) = lu(k,4038) - lu(k,684) * lu(k,3948)
2064 254840160 : lu(k,4078) = lu(k,4078) - lu(k,685) * lu(k,3948)
2065 254840160 : lu(k,4092) = lu(k,4092) - lu(k,686) * lu(k,3948)
2066 254840160 : lu(k,4097) = lu(k,4097) - lu(k,687) * lu(k,3948)
2067 254840160 : lu(k,4101) = lu(k,4101) - lu(k,688) * lu(k,3948)
2068 254840160 : lu(k,689) = 1._r8 / lu(k,689)
2069 254840160 : lu(k,690) = lu(k,690) * lu(k,689)
2070 254840160 : lu(k,691) = lu(k,691) * lu(k,689)
2071 254840160 : lu(k,692) = lu(k,692) * lu(k,689)
2072 254840160 : lu(k,954) = - lu(k,690) * lu(k,950)
2073 254840160 : lu(k,957) = lu(k,957) - lu(k,691) * lu(k,950)
2074 254840160 : lu(k,959) = lu(k,959) - lu(k,692) * lu(k,950)
2075 254840160 : lu(k,1009) = - lu(k,690) * lu(k,1004)
2076 254840160 : lu(k,1011) = lu(k,1011) - lu(k,691) * lu(k,1004)
2077 254840160 : lu(k,1013) = lu(k,1013) - lu(k,692) * lu(k,1004)
2078 254840160 : lu(k,2379) = - lu(k,690) * lu(k,2368)
2079 254840160 : lu(k,2393) = lu(k,2393) - lu(k,691) * lu(k,2368)
2080 254840160 : lu(k,2397) = lu(k,2397) - lu(k,692) * lu(k,2368)
2081 254840160 : lu(k,2440) = lu(k,2440) - lu(k,690) * lu(k,2427)
2082 254840160 : lu(k,2454) = lu(k,2454) - lu(k,691) * lu(k,2427)
2083 254840160 : lu(k,2458) = lu(k,2458) - lu(k,692) * lu(k,2427)
2084 254840160 : lu(k,2653) = - lu(k,690) * lu(k,2647)
2085 254840160 : lu(k,2665) = lu(k,2665) - lu(k,691) * lu(k,2647)
2086 254840160 : lu(k,2669) = - lu(k,692) * lu(k,2647)
2087 254840160 : lu(k,2698) = - lu(k,690) * lu(k,2692)
2088 254840160 : lu(k,2710) = lu(k,2710) - lu(k,691) * lu(k,2692)
2089 254840160 : lu(k,2714) = lu(k,2714) - lu(k,692) * lu(k,2692)
2090 254840160 : lu(k,3346) = lu(k,3346) - lu(k,690) * lu(k,3243)
2091 254840160 : lu(k,3369) = lu(k,3369) - lu(k,691) * lu(k,3243)
2092 254840160 : lu(k,3378) = lu(k,3378) - lu(k,692) * lu(k,3243)
2093 254840160 : lu(k,4069) = lu(k,4069) - lu(k,690) * lu(k,3949)
2094 254840160 : lu(k,4092) = lu(k,4092) - lu(k,691) * lu(k,3949)
2095 254840160 : lu(k,4101) = lu(k,4101) - lu(k,692) * lu(k,3949)
2096 254840160 : lu(k,693) = 1._r8 / lu(k,693)
2097 254840160 : lu(k,694) = lu(k,694) * lu(k,693)
2098 254840160 : lu(k,695) = lu(k,695) * lu(k,693)
2099 254840160 : lu(k,696) = lu(k,696) * lu(k,693)
2100 254840160 : lu(k,697) = lu(k,697) * lu(k,693)
2101 254840160 : lu(k,698) = lu(k,698) * lu(k,693)
2102 254840160 : lu(k,699) = lu(k,699) * lu(k,693)
2103 254840160 : lu(k,700) = lu(k,700) * lu(k,693)
2104 254840160 : lu(k,701) = lu(k,701) * lu(k,693)
2105 254840160 : lu(k,3028) = - lu(k,694) * lu(k,2996)
2106 254840160 : lu(k,3036) = lu(k,3036) - lu(k,695) * lu(k,2996)
2107 254840160 : lu(k,3106) = lu(k,3106) - lu(k,696) * lu(k,2996)
2108 254840160 : lu(k,3109) = lu(k,3109) - lu(k,697) * lu(k,2996)
2109 254840160 : lu(k,3110) = lu(k,3110) - lu(k,698) * lu(k,2996)
2110 254840160 : lu(k,3115) = lu(k,3115) - lu(k,699) * lu(k,2996)
2111 254840160 : lu(k,3119) = lu(k,3119) - lu(k,700) * lu(k,2996)
2112 254840160 : lu(k,3120) = - lu(k,701) * lu(k,2996)
2113 254840160 : lu(k,3176) = - lu(k,694) * lu(k,3174)
2114 254840160 : lu(k,3177) = - lu(k,695) * lu(k,3174)
2115 254840160 : lu(k,3185) = - lu(k,696) * lu(k,3174)
2116 254840160 : lu(k,3188) = lu(k,3188) - lu(k,697) * lu(k,3174)
2117 254840160 : lu(k,3189) = lu(k,3189) - lu(k,698) * lu(k,3174)
2118 254840160 : lu(k,3194) = - lu(k,699) * lu(k,3174)
2119 254840160 : lu(k,3198) = lu(k,3198) - lu(k,700) * lu(k,3174)
2120 254840160 : lu(k,3199) = lu(k,3199) - lu(k,701) * lu(k,3174)
2121 254840160 : lu(k,3285) = lu(k,3285) - lu(k,694) * lu(k,3244)
2122 254840160 : lu(k,3293) = lu(k,3293) - lu(k,695) * lu(k,3244)
2123 254840160 : lu(k,3365) = lu(k,3365) - lu(k,696) * lu(k,3244)
2124 254840160 : lu(k,3368) = lu(k,3368) - lu(k,697) * lu(k,3244)
2125 254840160 : lu(k,3369) = lu(k,3369) - lu(k,698) * lu(k,3244)
2126 254840160 : lu(k,3374) = lu(k,3374) - lu(k,699) * lu(k,3244)
2127 254840160 : lu(k,3378) = lu(k,3378) - lu(k,700) * lu(k,3244)
2128 254840160 : lu(k,3379) = lu(k,3379) - lu(k,701) * lu(k,3244)
2129 254840160 : lu(k,702) = 1._r8 / lu(k,702)
2130 254840160 : lu(k,703) = lu(k,703) * lu(k,702)
2131 254840160 : lu(k,704) = lu(k,704) * lu(k,702)
2132 254840160 : lu(k,705) = lu(k,705) * lu(k,702)
2133 254840160 : lu(k,706) = lu(k,706) * lu(k,702)
2134 254840160 : lu(k,707) = lu(k,707) * lu(k,702)
2135 254840160 : lu(k,708) = lu(k,708) * lu(k,702)
2136 254840160 : lu(k,1619) = lu(k,1619) - lu(k,703) * lu(k,1617)
2137 254840160 : lu(k,1623) = lu(k,1623) - lu(k,704) * lu(k,1617)
2138 254840160 : lu(k,1626) = lu(k,1626) - lu(k,705) * lu(k,1617)
2139 254840160 : lu(k,1628) = lu(k,1628) - lu(k,706) * lu(k,1617)
2140 254840160 : lu(k,1632) = lu(k,1632) - lu(k,707) * lu(k,1617)
2141 254840160 : lu(k,1633) = - lu(k,708) * lu(k,1617)
2142 254840160 : lu(k,2865) = lu(k,2865) - lu(k,703) * lu(k,2856)
2143 254840160 : lu(k,2913) = lu(k,2913) - lu(k,704) * lu(k,2856)
2144 254840160 : lu(k,2919) = lu(k,2919) - lu(k,705) * lu(k,2856)
2145 254840160 : lu(k,2921) = lu(k,2921) - lu(k,706) * lu(k,2856)
2146 254840160 : lu(k,2927) = lu(k,2927) - lu(k,707) * lu(k,2856)
2147 254840160 : lu(k,2928) = - lu(k,708) * lu(k,2856)
2148 254840160 : lu(k,3309) = lu(k,3309) - lu(k,703) * lu(k,3245)
2149 254840160 : lu(k,3362) = lu(k,3362) - lu(k,704) * lu(k,3245)
2150 254840160 : lu(k,3368) = lu(k,3368) - lu(k,705) * lu(k,3245)
2151 254840160 : lu(k,3370) = lu(k,3370) - lu(k,706) * lu(k,3245)
2152 254840160 : lu(k,3378) = lu(k,3378) - lu(k,707) * lu(k,3245)
2153 254840160 : lu(k,3379) = lu(k,3379) - lu(k,708) * lu(k,3245)
2154 254840160 : lu(k,4033) = lu(k,4033) - lu(k,703) * lu(k,3950)
2155 254840160 : lu(k,4085) = lu(k,4085) - lu(k,704) * lu(k,3950)
2156 254840160 : lu(k,4091) = lu(k,4091) - lu(k,705) * lu(k,3950)
2157 254840160 : lu(k,4093) = lu(k,4093) - lu(k,706) * lu(k,3950)
2158 254840160 : lu(k,4101) = lu(k,4101) - lu(k,707) * lu(k,3950)
2159 263009123 : lu(k,4102) = lu(k,4102) - lu(k,708) * lu(k,3950)
2160 : end do
2161 8168963 : end subroutine lu_fac15
2162 8168963 : subroutine lu_fac16( avec_len, lu )
2163 : use chem_mods, only : nzcnt
2164 : use shr_kind_mod, only : r8 => shr_kind_r8
2165 : implicit none
2166 : !-----------------------------------------------------------------------
2167 : ! ... dummy args
2168 : !-----------------------------------------------------------------------
2169 : integer, intent(in) :: avec_len
2170 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2171 : !-----------------------------------------------------------------------
2172 : ! ... local variables
2173 : !-----------------------------------------------------------------------
2174 : integer :: k
2175 263009123 : do k = 1,avec_len
2176 254840160 : lu(k,711) = 1._r8 / lu(k,711)
2177 254840160 : lu(k,712) = lu(k,712) * lu(k,711)
2178 254840160 : lu(k,713) = lu(k,713) * lu(k,711)
2179 254840160 : lu(k,714) = lu(k,714) * lu(k,711)
2180 254840160 : lu(k,715) = lu(k,715) * lu(k,711)
2181 254840160 : lu(k,716) = lu(k,716) * lu(k,711)
2182 254840160 : lu(k,3106) = lu(k,3106) - lu(k,712) * lu(k,2997)
2183 254840160 : lu(k,3110) = lu(k,3110) - lu(k,713) * lu(k,2997)
2184 254840160 : lu(k,3115) = lu(k,3115) - lu(k,714) * lu(k,2997)
2185 254840160 : lu(k,3116) = lu(k,3116) - lu(k,715) * lu(k,2997)
2186 254840160 : lu(k,3119) = lu(k,3119) - lu(k,716) * lu(k,2997)
2187 254840160 : lu(k,3365) = lu(k,3365) - lu(k,712) * lu(k,3246)
2188 254840160 : lu(k,3369) = lu(k,3369) - lu(k,713) * lu(k,3246)
2189 254840160 : lu(k,3374) = lu(k,3374) - lu(k,714) * lu(k,3246)
2190 254840160 : lu(k,3375) = lu(k,3375) - lu(k,715) * lu(k,3246)
2191 254840160 : lu(k,3378) = lu(k,3378) - lu(k,716) * lu(k,3246)
2192 254840160 : lu(k,3654) = lu(k,3654) - lu(k,712) * lu(k,3630)
2193 254840160 : lu(k,3658) = lu(k,3658) - lu(k,713) * lu(k,3630)
2194 254840160 : lu(k,3663) = lu(k,3663) - lu(k,714) * lu(k,3630)
2195 254840160 : lu(k,3664) = lu(k,3664) - lu(k,715) * lu(k,3630)
2196 254840160 : lu(k,3667) = lu(k,3667) - lu(k,716) * lu(k,3630)
2197 254840160 : lu(k,3756) = lu(k,3756) - lu(k,712) * lu(k,3678)
2198 254840160 : lu(k,3760) = lu(k,3760) - lu(k,713) * lu(k,3678)
2199 254840160 : lu(k,3765) = lu(k,3765) - lu(k,714) * lu(k,3678)
2200 254840160 : lu(k,3766) = lu(k,3766) - lu(k,715) * lu(k,3678)
2201 254840160 : lu(k,3769) = lu(k,3769) - lu(k,716) * lu(k,3678)
2202 254840160 : lu(k,4088) = lu(k,4088) - lu(k,712) * lu(k,3951)
2203 254840160 : lu(k,4092) = lu(k,4092) - lu(k,713) * lu(k,3951)
2204 254840160 : lu(k,4097) = lu(k,4097) - lu(k,714) * lu(k,3951)
2205 254840160 : lu(k,4098) = lu(k,4098) - lu(k,715) * lu(k,3951)
2206 254840160 : lu(k,4101) = lu(k,4101) - lu(k,716) * lu(k,3951)
2207 254840160 : lu(k,718) = 1._r8 / lu(k,718)
2208 254840160 : lu(k,719) = lu(k,719) * lu(k,718)
2209 254840160 : lu(k,720) = lu(k,720) * lu(k,718)
2210 254840160 : lu(k,721) = lu(k,721) * lu(k,718)
2211 254840160 : lu(k,722) = lu(k,722) * lu(k,718)
2212 254840160 : lu(k,723) = lu(k,723) * lu(k,718)
2213 254840160 : lu(k,724) = lu(k,724) * lu(k,718)
2214 254840160 : lu(k,725) = lu(k,725) * lu(k,718)
2215 254840160 : lu(k,726) = lu(k,726) * lu(k,718)
2216 254840160 : lu(k,727) = lu(k,727) * lu(k,718)
2217 254840160 : lu(k,1181) = lu(k,1181) - lu(k,719) * lu(k,1179)
2218 254840160 : lu(k,1182) = lu(k,1182) - lu(k,720) * lu(k,1179)
2219 254840160 : lu(k,1183) = lu(k,1183) - lu(k,721) * lu(k,1179)
2220 254840160 : lu(k,1184) = lu(k,1184) - lu(k,722) * lu(k,1179)
2221 254840160 : lu(k,1185) = lu(k,1185) - lu(k,723) * lu(k,1179)
2222 254840160 : lu(k,1186) = lu(k,1186) - lu(k,724) * lu(k,1179)
2223 254840160 : lu(k,1188) = lu(k,1188) - lu(k,725) * lu(k,1179)
2224 254840160 : lu(k,1189) = lu(k,1189) - lu(k,726) * lu(k,1179)
2225 254840160 : lu(k,1191) = lu(k,1191) - lu(k,727) * lu(k,1179)
2226 254840160 : lu(k,3249) = lu(k,3249) - lu(k,719) * lu(k,3247)
2227 254840160 : lu(k,3283) = lu(k,3283) - lu(k,720) * lu(k,3247)
2228 254840160 : lu(k,3291) = lu(k,3291) - lu(k,721) * lu(k,3247)
2229 254840160 : lu(k,3294) = lu(k,3294) - lu(k,722) * lu(k,3247)
2230 254840160 : lu(k,3342) = lu(k,3342) - lu(k,723) * lu(k,3247)
2231 254840160 : lu(k,3362) = lu(k,3362) - lu(k,724) * lu(k,3247)
2232 254840160 : lu(k,3368) = lu(k,3368) - lu(k,725) * lu(k,3247)
2233 254840160 : lu(k,3369) = lu(k,3369) - lu(k,726) * lu(k,3247)
2234 254840160 : lu(k,3378) = lu(k,3378) - lu(k,727) * lu(k,3247)
2235 254840160 : lu(k,3956) = lu(k,3956) - lu(k,719) * lu(k,3952)
2236 254840160 : lu(k,3997) = lu(k,3997) - lu(k,720) * lu(k,3952)
2237 254840160 : lu(k,4011) = lu(k,4011) - lu(k,721) * lu(k,3952)
2238 254840160 : lu(k,4016) = lu(k,4016) - lu(k,722) * lu(k,3952)
2239 254840160 : lu(k,4065) = lu(k,4065) - lu(k,723) * lu(k,3952)
2240 254840160 : lu(k,4085) = lu(k,4085) - lu(k,724) * lu(k,3952)
2241 254840160 : lu(k,4091) = lu(k,4091) - lu(k,725) * lu(k,3952)
2242 254840160 : lu(k,4092) = lu(k,4092) - lu(k,726) * lu(k,3952)
2243 254840160 : lu(k,4101) = lu(k,4101) - lu(k,727) * lu(k,3952)
2244 254840160 : lu(k,728) = 1._r8 / lu(k,728)
2245 254840160 : lu(k,729) = lu(k,729) * lu(k,728)
2246 254840160 : lu(k,730) = lu(k,730) * lu(k,728)
2247 254840160 : lu(k,731) = lu(k,731) * lu(k,728)
2248 254840160 : lu(k,732) = lu(k,732) * lu(k,728)
2249 254840160 : lu(k,733) = lu(k,733) * lu(k,728)
2250 254840160 : lu(k,734) = lu(k,734) * lu(k,728)
2251 254840160 : lu(k,735) = lu(k,735) * lu(k,728)
2252 254840160 : lu(k,736) = lu(k,736) * lu(k,728)
2253 254840160 : lu(k,737) = lu(k,737) * lu(k,728)
2254 254840160 : lu(k,2156) = - lu(k,729) * lu(k,2154)
2255 254840160 : lu(k,2159) = - lu(k,730) * lu(k,2154)
2256 254840160 : lu(k,2174) = lu(k,2174) - lu(k,731) * lu(k,2154)
2257 254840160 : lu(k,2175) = lu(k,2175) - lu(k,732) * lu(k,2154)
2258 254840160 : lu(k,2179) = lu(k,2179) - lu(k,733) * lu(k,2154)
2259 254840160 : lu(k,2188) = lu(k,2188) - lu(k,734) * lu(k,2154)
2260 254840160 : lu(k,2189) = lu(k,2189) - lu(k,735) * lu(k,2154)
2261 254840160 : lu(k,2192) = lu(k,2192) - lu(k,736) * lu(k,2154)
2262 254840160 : lu(k,2195) = lu(k,2195) - lu(k,737) * lu(k,2154)
2263 254840160 : lu(k,3388) = - lu(k,729) * lu(k,3383)
2264 254840160 : lu(k,3393) = - lu(k,730) * lu(k,3383)
2265 254840160 : lu(k,3425) = lu(k,3425) - lu(k,731) * lu(k,3383)
2266 254840160 : lu(k,3426) = lu(k,3426) - lu(k,732) * lu(k,3383)
2267 254840160 : lu(k,3430) = lu(k,3430) - lu(k,733) * lu(k,3383)
2268 254840160 : lu(k,3461) = lu(k,3461) - lu(k,734) * lu(k,3383)
2269 254840160 : lu(k,3462) = lu(k,3462) - lu(k,735) * lu(k,3383)
2270 254840160 : lu(k,3467) = lu(k,3467) - lu(k,736) * lu(k,3383)
2271 254840160 : lu(k,3471) = lu(k,3471) - lu(k,737) * lu(k,3383)
2272 254840160 : lu(k,4004) = lu(k,4004) - lu(k,729) * lu(k,3953)
2273 254840160 : lu(k,4017) = lu(k,4017) - lu(k,730) * lu(k,3953)
2274 254840160 : lu(k,4055) = lu(k,4055) - lu(k,731) * lu(k,3953)
2275 254840160 : lu(k,4056) = lu(k,4056) - lu(k,732) * lu(k,3953)
2276 254840160 : lu(k,4060) = lu(k,4060) - lu(k,733) * lu(k,3953)
2277 254840160 : lu(k,4091) = lu(k,4091) - lu(k,734) * lu(k,3953)
2278 254840160 : lu(k,4092) = lu(k,4092) - lu(k,735) * lu(k,3953)
2279 254840160 : lu(k,4097) = lu(k,4097) - lu(k,736) * lu(k,3953)
2280 254840160 : lu(k,4101) = lu(k,4101) - lu(k,737) * lu(k,3953)
2281 254840160 : lu(k,741) = 1._r8 / lu(k,741)
2282 254840160 : lu(k,742) = lu(k,742) * lu(k,741)
2283 254840160 : lu(k,743) = lu(k,743) * lu(k,741)
2284 254840160 : lu(k,744) = lu(k,744) * lu(k,741)
2285 254840160 : lu(k,745) = lu(k,745) * lu(k,741)
2286 254840160 : lu(k,746) = lu(k,746) * lu(k,741)
2287 254840160 : lu(k,747) = lu(k,747) * lu(k,741)
2288 254840160 : lu(k,748) = lu(k,748) * lu(k,741)
2289 254840160 : lu(k,749) = lu(k,749) * lu(k,741)
2290 254840160 : lu(k,750) = lu(k,750) * lu(k,741)
2291 254840160 : lu(k,872) = lu(k,872) - lu(k,742) * lu(k,871)
2292 254840160 : lu(k,873) = lu(k,873) - lu(k,743) * lu(k,871)
2293 254840160 : lu(k,874) = lu(k,874) - lu(k,744) * lu(k,871)
2294 254840160 : lu(k,875) = lu(k,875) - lu(k,745) * lu(k,871)
2295 254840160 : lu(k,876) = lu(k,876) - lu(k,746) * lu(k,871)
2296 254840160 : lu(k,877) = lu(k,877) - lu(k,747) * lu(k,871)
2297 254840160 : lu(k,878) = lu(k,878) - lu(k,748) * lu(k,871)
2298 254840160 : lu(k,880) = lu(k,880) - lu(k,749) * lu(k,871)
2299 254840160 : lu(k,882) = - lu(k,750) * lu(k,871)
2300 254840160 : lu(k,3259) = lu(k,3259) - lu(k,742) * lu(k,3248)
2301 254840160 : lu(k,3260) = lu(k,3260) - lu(k,743) * lu(k,3248)
2302 254840160 : lu(k,3263) = lu(k,3263) - lu(k,744) * lu(k,3248)
2303 254840160 : lu(k,3265) = lu(k,3265) - lu(k,745) * lu(k,3248)
2304 254840160 : lu(k,3299) = lu(k,3299) - lu(k,746) * lu(k,3248)
2305 254840160 : lu(k,3328) = lu(k,3328) - lu(k,747) * lu(k,3248)
2306 254840160 : lu(k,3333) = lu(k,3333) - lu(k,748) * lu(k,3248)
2307 254840160 : lu(k,3369) = lu(k,3369) - lu(k,749) * lu(k,3248)
2308 254840160 : lu(k,3378) = lu(k,3378) - lu(k,750) * lu(k,3248)
2309 254840160 : lu(k,3967) = lu(k,3967) - lu(k,742) * lu(k,3954)
2310 254840160 : lu(k,3968) = lu(k,3968) - lu(k,743) * lu(k,3954)
2311 254840160 : lu(k,3971) = - lu(k,744) * lu(k,3954)
2312 254840160 : lu(k,3975) = - lu(k,745) * lu(k,3954)
2313 254840160 : lu(k,4021) = lu(k,4021) - lu(k,746) * lu(k,3954)
2314 254840160 : lu(k,4052) = lu(k,4052) - lu(k,747) * lu(k,3954)
2315 254840160 : lu(k,4057) = lu(k,4057) - lu(k,748) * lu(k,3954)
2316 254840160 : lu(k,4092) = lu(k,4092) - lu(k,749) * lu(k,3954)
2317 254840160 : lu(k,4101) = lu(k,4101) - lu(k,750) * lu(k,3954)
2318 254840160 : lu(k,752) = 1._r8 / lu(k,752)
2319 254840160 : lu(k,753) = lu(k,753) * lu(k,752)
2320 254840160 : lu(k,754) = lu(k,754) * lu(k,752)
2321 254840160 : lu(k,755) = lu(k,755) * lu(k,752)
2322 254840160 : lu(k,756) = lu(k,756) * lu(k,752)
2323 254840160 : lu(k,757) = lu(k,757) * lu(k,752)
2324 254840160 : lu(k,758) = lu(k,758) * lu(k,752)
2325 254840160 : lu(k,759) = lu(k,759) * lu(k,752)
2326 254840160 : lu(k,760) = lu(k,760) * lu(k,752)
2327 254840160 : lu(k,761) = lu(k,761) * lu(k,752)
2328 254840160 : lu(k,1181) = lu(k,1181) - lu(k,753) * lu(k,1180)
2329 254840160 : lu(k,1183) = lu(k,1183) - lu(k,754) * lu(k,1180)
2330 254840160 : lu(k,1184) = lu(k,1184) - lu(k,755) * lu(k,1180)
2331 254840160 : lu(k,1185) = lu(k,1185) - lu(k,756) * lu(k,1180)
2332 254840160 : lu(k,1186) = lu(k,1186) - lu(k,757) * lu(k,1180)
2333 254840160 : lu(k,1188) = lu(k,1188) - lu(k,758) * lu(k,1180)
2334 254840160 : lu(k,1189) = lu(k,1189) - lu(k,759) * lu(k,1180)
2335 254840160 : lu(k,1190) = lu(k,1190) - lu(k,760) * lu(k,1180)
2336 254840160 : lu(k,1191) = lu(k,1191) - lu(k,761) * lu(k,1180)
2337 254840160 : lu(k,2999) = lu(k,2999) - lu(k,753) * lu(k,2998)
2338 254840160 : lu(k,3034) = lu(k,3034) - lu(k,754) * lu(k,2998)
2339 254840160 : lu(k,3037) = lu(k,3037) - lu(k,755) * lu(k,2998)
2340 254840160 : lu(k,3083) = lu(k,3083) - lu(k,756) * lu(k,2998)
2341 254840160 : lu(k,3103) = lu(k,3103) - lu(k,757) * lu(k,2998)
2342 254840160 : lu(k,3109) = lu(k,3109) - lu(k,758) * lu(k,2998)
2343 254840160 : lu(k,3110) = lu(k,3110) - lu(k,759) * lu(k,2998)
2344 254840160 : lu(k,3115) = lu(k,3115) - lu(k,760) * lu(k,2998)
2345 254840160 : lu(k,3119) = lu(k,3119) - lu(k,761) * lu(k,2998)
2346 254840160 : lu(k,3956) = lu(k,3956) - lu(k,753) * lu(k,3955)
2347 254840160 : lu(k,4011) = lu(k,4011) - lu(k,754) * lu(k,3955)
2348 254840160 : lu(k,4016) = lu(k,4016) - lu(k,755) * lu(k,3955)
2349 254840160 : lu(k,4065) = lu(k,4065) - lu(k,756) * lu(k,3955)
2350 254840160 : lu(k,4085) = lu(k,4085) - lu(k,757) * lu(k,3955)
2351 254840160 : lu(k,4091) = lu(k,4091) - lu(k,758) * lu(k,3955)
2352 254840160 : lu(k,4092) = lu(k,4092) - lu(k,759) * lu(k,3955)
2353 254840160 : lu(k,4097) = lu(k,4097) - lu(k,760) * lu(k,3955)
2354 263009123 : lu(k,4101) = lu(k,4101) - lu(k,761) * lu(k,3955)
2355 : end do
2356 8168963 : end subroutine lu_fac16
2357 8168963 : subroutine lu_fac17( avec_len, lu )
2358 : use chem_mods, only : nzcnt
2359 : use shr_kind_mod, only : r8 => shr_kind_r8
2360 : implicit none
2361 : !-----------------------------------------------------------------------
2362 : ! ... dummy args
2363 : !-----------------------------------------------------------------------
2364 : integer, intent(in) :: avec_len
2365 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2366 : !-----------------------------------------------------------------------
2367 : ! ... local variables
2368 : !-----------------------------------------------------------------------
2369 : integer :: k
2370 263009123 : do k = 1,avec_len
2371 254840160 : lu(k,763) = 1._r8 / lu(k,763)
2372 254840160 : lu(k,764) = lu(k,764) * lu(k,763)
2373 254840160 : lu(k,765) = lu(k,765) * lu(k,763)
2374 254840160 : lu(k,766) = lu(k,766) * lu(k,763)
2375 254840160 : lu(k,767) = lu(k,767) * lu(k,763)
2376 254840160 : lu(k,768) = lu(k,768) * lu(k,763)
2377 254840160 : lu(k,769) = lu(k,769) * lu(k,763)
2378 254840160 : lu(k,1184) = lu(k,1184) - lu(k,764) * lu(k,1181)
2379 254840160 : lu(k,1186) = lu(k,1186) - lu(k,765) * lu(k,1181)
2380 254840160 : lu(k,1187) = lu(k,1187) - lu(k,766) * lu(k,1181)
2381 254840160 : lu(k,1189) = lu(k,1189) - lu(k,767) * lu(k,1181)
2382 254840160 : lu(k,1190) = lu(k,1190) - lu(k,768) * lu(k,1181)
2383 254840160 : lu(k,1191) = lu(k,1191) - lu(k,769) * lu(k,1181)
2384 254840160 : lu(k,3037) = lu(k,3037) - lu(k,764) * lu(k,2999)
2385 254840160 : lu(k,3103) = lu(k,3103) - lu(k,765) * lu(k,2999)
2386 254840160 : lu(k,3106) = lu(k,3106) - lu(k,766) * lu(k,2999)
2387 254840160 : lu(k,3110) = lu(k,3110) - lu(k,767) * lu(k,2999)
2388 254840160 : lu(k,3115) = lu(k,3115) - lu(k,768) * lu(k,2999)
2389 254840160 : lu(k,3119) = lu(k,3119) - lu(k,769) * lu(k,2999)
2390 254840160 : lu(k,3294) = lu(k,3294) - lu(k,764) * lu(k,3249)
2391 254840160 : lu(k,3362) = lu(k,3362) - lu(k,765) * lu(k,3249)
2392 254840160 : lu(k,3365) = lu(k,3365) - lu(k,766) * lu(k,3249)
2393 254840160 : lu(k,3369) = lu(k,3369) - lu(k,767) * lu(k,3249)
2394 254840160 : lu(k,3374) = lu(k,3374) - lu(k,768) * lu(k,3249)
2395 254840160 : lu(k,3378) = lu(k,3378) - lu(k,769) * lu(k,3249)
2396 254840160 : lu(k,4016) = lu(k,4016) - lu(k,764) * lu(k,3956)
2397 254840160 : lu(k,4085) = lu(k,4085) - lu(k,765) * lu(k,3956)
2398 254840160 : lu(k,4088) = lu(k,4088) - lu(k,766) * lu(k,3956)
2399 254840160 : lu(k,4092) = lu(k,4092) - lu(k,767) * lu(k,3956)
2400 254840160 : lu(k,4097) = lu(k,4097) - lu(k,768) * lu(k,3956)
2401 254840160 : lu(k,4101) = lu(k,4101) - lu(k,769) * lu(k,3956)
2402 254840160 : lu(k,770) = 1._r8 / lu(k,770)
2403 254840160 : lu(k,771) = lu(k,771) * lu(k,770)
2404 254840160 : lu(k,772) = lu(k,772) * lu(k,770)
2405 254840160 : lu(k,773) = lu(k,773) * lu(k,770)
2406 254840160 : lu(k,774) = lu(k,774) * lu(k,770)
2407 254840160 : lu(k,775) = lu(k,775) * lu(k,770)
2408 254840160 : lu(k,776) = lu(k,776) * lu(k,770)
2409 254840160 : lu(k,777) = lu(k,777) * lu(k,770)
2410 254840160 : lu(k,1299) = lu(k,1299) - lu(k,771) * lu(k,1297)
2411 254840160 : lu(k,1300) = lu(k,1300) - lu(k,772) * lu(k,1297)
2412 254840160 : lu(k,1301) = lu(k,1301) - lu(k,773) * lu(k,1297)
2413 254840160 : lu(k,1303) = lu(k,1303) - lu(k,774) * lu(k,1297)
2414 254840160 : lu(k,1304) = lu(k,1304) - lu(k,775) * lu(k,1297)
2415 254840160 : lu(k,1306) = lu(k,1306) - lu(k,776) * lu(k,1297)
2416 254840160 : lu(k,1308) = lu(k,1308) - lu(k,777) * lu(k,1297)
2417 254840160 : lu(k,1888) = - lu(k,771) * lu(k,1885)
2418 254840160 : lu(k,1892) = lu(k,1892) - lu(k,772) * lu(k,1885)
2419 254840160 : lu(k,1893) = lu(k,1893) - lu(k,773) * lu(k,1885)
2420 254840160 : lu(k,1898) = - lu(k,774) * lu(k,1885)
2421 254840160 : lu(k,1903) = lu(k,1903) - lu(k,775) * lu(k,1885)
2422 254840160 : lu(k,1908) = lu(k,1908) - lu(k,776) * lu(k,1885)
2423 254840160 : lu(k,1910) = lu(k,1910) - lu(k,777) * lu(k,1885)
2424 254840160 : lu(k,3299) = lu(k,3299) - lu(k,771) * lu(k,3250)
2425 254840160 : lu(k,3316) = lu(k,3316) - lu(k,772) * lu(k,3250)
2426 254840160 : lu(k,3320) = lu(k,3320) - lu(k,773) * lu(k,3250)
2427 254840160 : lu(k,3328) = lu(k,3328) - lu(k,774) * lu(k,3250)
2428 254840160 : lu(k,3333) = lu(k,3333) - lu(k,775) * lu(k,3250)
2429 254840160 : lu(k,3369) = lu(k,3369) - lu(k,776) * lu(k,3250)
2430 254840160 : lu(k,3378) = lu(k,3378) - lu(k,777) * lu(k,3250)
2431 254840160 : lu(k,4021) = lu(k,4021) - lu(k,771) * lu(k,3957)
2432 254840160 : lu(k,4040) = lu(k,4040) - lu(k,772) * lu(k,3957)
2433 254840160 : lu(k,4044) = lu(k,4044) - lu(k,773) * lu(k,3957)
2434 254840160 : lu(k,4052) = lu(k,4052) - lu(k,774) * lu(k,3957)
2435 254840160 : lu(k,4057) = lu(k,4057) - lu(k,775) * lu(k,3957)
2436 254840160 : lu(k,4092) = lu(k,4092) - lu(k,776) * lu(k,3957)
2437 254840160 : lu(k,4101) = lu(k,4101) - lu(k,777) * lu(k,3957)
2438 254840160 : lu(k,778) = 1._r8 / lu(k,778)
2439 254840160 : lu(k,779) = lu(k,779) * lu(k,778)
2440 254840160 : lu(k,780) = lu(k,780) * lu(k,778)
2441 254840160 : lu(k,781) = lu(k,781) * lu(k,778)
2442 254840160 : lu(k,782) = lu(k,782) * lu(k,778)
2443 254840160 : lu(k,1043) = - lu(k,779) * lu(k,1040)
2444 254840160 : lu(k,1047) = - lu(k,780) * lu(k,1040)
2445 254840160 : lu(k,1048) = - lu(k,781) * lu(k,1040)
2446 254840160 : lu(k,1053) = lu(k,1053) - lu(k,782) * lu(k,1040)
2447 254840160 : lu(k,1073) = - lu(k,779) * lu(k,1070)
2448 254840160 : lu(k,1077) = - lu(k,780) * lu(k,1070)
2449 254840160 : lu(k,1079) = - lu(k,781) * lu(k,1070)
2450 254840160 : lu(k,1084) = lu(k,1084) - lu(k,782) * lu(k,1070)
2451 254840160 : lu(k,1275) = - lu(k,779) * lu(k,1271)
2452 254840160 : lu(k,1280) = - lu(k,780) * lu(k,1271)
2453 254840160 : lu(k,1283) = - lu(k,781) * lu(k,1271)
2454 254840160 : lu(k,1288) = lu(k,1288) - lu(k,782) * lu(k,1271)
2455 254840160 : lu(k,2814) = lu(k,2814) - lu(k,779) * lu(k,2809)
2456 254840160 : lu(k,2835) = lu(k,2835) - lu(k,780) * lu(k,2809)
2457 254840160 : lu(k,2840) = lu(k,2840) - lu(k,781) * lu(k,2809)
2458 254840160 : lu(k,2853) = lu(k,2853) - lu(k,782) * lu(k,2809)
2459 254840160 : lu(k,3309) = lu(k,3309) - lu(k,779) * lu(k,3251)
2460 254840160 : lu(k,3356) = lu(k,3356) - lu(k,780) * lu(k,3251)
2461 254840160 : lu(k,3361) = lu(k,3361) - lu(k,781) * lu(k,3251)
2462 254840160 : lu(k,3378) = lu(k,3378) - lu(k,782) * lu(k,3251)
2463 254840160 : lu(k,3706) = lu(k,3706) - lu(k,779) * lu(k,3679)
2464 254840160 : lu(k,3747) = - lu(k,780) * lu(k,3679)
2465 254840160 : lu(k,3752) = - lu(k,781) * lu(k,3679)
2466 254840160 : lu(k,3769) = lu(k,3769) - lu(k,782) * lu(k,3679)
2467 254840160 : lu(k,4033) = lu(k,4033) - lu(k,779) * lu(k,3958)
2468 254840160 : lu(k,4079) = lu(k,4079) - lu(k,780) * lu(k,3958)
2469 254840160 : lu(k,4084) = lu(k,4084) - lu(k,781) * lu(k,3958)
2470 254840160 : lu(k,4101) = lu(k,4101) - lu(k,782) * lu(k,3958)
2471 254840160 : lu(k,783) = 1._r8 / lu(k,783)
2472 254840160 : lu(k,784) = lu(k,784) * lu(k,783)
2473 254840160 : lu(k,785) = lu(k,785) * lu(k,783)
2474 254840160 : lu(k,786) = lu(k,786) * lu(k,783)
2475 254840160 : lu(k,787) = lu(k,787) * lu(k,783)
2476 254840160 : lu(k,788) = lu(k,788) * lu(k,783)
2477 254840160 : lu(k,789) = lu(k,789) * lu(k,783)
2478 254840160 : lu(k,790) = lu(k,790) * lu(k,783)
2479 254840160 : lu(k,2493) = - lu(k,784) * lu(k,2492)
2480 254840160 : lu(k,2502) = lu(k,2502) - lu(k,785) * lu(k,2492)
2481 254840160 : lu(k,2507) = lu(k,2507) - lu(k,786) * lu(k,2492)
2482 254840160 : lu(k,2515) = - lu(k,787) * lu(k,2492)
2483 254840160 : lu(k,2519) = lu(k,2519) - lu(k,788) * lu(k,2492)
2484 254840160 : lu(k,2522) = lu(k,2522) - lu(k,789) * lu(k,2492)
2485 254840160 : lu(k,2523) = lu(k,2523) - lu(k,790) * lu(k,2492)
2486 254840160 : lu(k,2556) = - lu(k,784) * lu(k,2555)
2487 254840160 : lu(k,2565) = lu(k,2565) - lu(k,785) * lu(k,2555)
2488 254840160 : lu(k,2572) = lu(k,2572) - lu(k,786) * lu(k,2555)
2489 254840160 : lu(k,2580) = - lu(k,787) * lu(k,2555)
2490 254840160 : lu(k,2584) = lu(k,2584) - lu(k,788) * lu(k,2555)
2491 254840160 : lu(k,2587) = lu(k,2587) - lu(k,789) * lu(k,2555)
2492 254840160 : lu(k,2588) = lu(k,2588) - lu(k,790) * lu(k,2555)
2493 254840160 : lu(k,3273) = lu(k,3273) - lu(k,784) * lu(k,3252)
2494 254840160 : lu(k,3315) = lu(k,3315) - lu(k,785) * lu(k,3252)
2495 254840160 : lu(k,3355) = lu(k,3355) - lu(k,786) * lu(k,3252)
2496 254840160 : lu(k,3364) = - lu(k,787) * lu(k,3252)
2497 254840160 : lu(k,3369) = lu(k,3369) - lu(k,788) * lu(k,3252)
2498 254840160 : lu(k,3374) = lu(k,3374) - lu(k,789) * lu(k,3252)
2499 254840160 : lu(k,3378) = lu(k,3378) - lu(k,790) * lu(k,3252)
2500 254840160 : lu(k,3983) = lu(k,3983) - lu(k,784) * lu(k,3959)
2501 254840160 : lu(k,4039) = lu(k,4039) - lu(k,785) * lu(k,3959)
2502 254840160 : lu(k,4078) = lu(k,4078) - lu(k,786) * lu(k,3959)
2503 254840160 : lu(k,4087) = lu(k,4087) - lu(k,787) * lu(k,3959)
2504 254840160 : lu(k,4092) = lu(k,4092) - lu(k,788) * lu(k,3959)
2505 254840160 : lu(k,4097) = lu(k,4097) - lu(k,789) * lu(k,3959)
2506 254840160 : lu(k,4101) = lu(k,4101) - lu(k,790) * lu(k,3959)
2507 254840160 : lu(k,791) = 1._r8 / lu(k,791)
2508 254840160 : lu(k,792) = lu(k,792) * lu(k,791)
2509 254840160 : lu(k,793) = lu(k,793) * lu(k,791)
2510 254840160 : lu(k,794) = lu(k,794) * lu(k,791)
2511 254840160 : lu(k,795) = lu(k,795) * lu(k,791)
2512 254840160 : lu(k,1388) = lu(k,1388) - lu(k,792) * lu(k,1382)
2513 254840160 : lu(k,1395) = lu(k,1395) - lu(k,793) * lu(k,1382)
2514 254840160 : lu(k,1399) = lu(k,1399) - lu(k,794) * lu(k,1382)
2515 254840160 : lu(k,1400) = - lu(k,795) * lu(k,1382)
2516 254840160 : lu(k,1619) = lu(k,1619) - lu(k,792) * lu(k,1618)
2517 254840160 : lu(k,1628) = lu(k,1628) - lu(k,793) * lu(k,1618)
2518 254840160 : lu(k,1632) = lu(k,1632) - lu(k,794) * lu(k,1618)
2519 254840160 : lu(k,1633) = lu(k,1633) - lu(k,795) * lu(k,1618)
2520 254840160 : lu(k,2865) = lu(k,2865) - lu(k,792) * lu(k,2857)
2521 254840160 : lu(k,2921) = lu(k,2921) - lu(k,793) * lu(k,2857)
2522 254840160 : lu(k,2927) = lu(k,2927) - lu(k,794) * lu(k,2857)
2523 254840160 : lu(k,2928) = lu(k,2928) - lu(k,795) * lu(k,2857)
2524 254840160 : lu(k,3309) = lu(k,3309) - lu(k,792) * lu(k,3253)
2525 254840160 : lu(k,3370) = lu(k,3370) - lu(k,793) * lu(k,3253)
2526 254840160 : lu(k,3378) = lu(k,3378) - lu(k,794) * lu(k,3253)
2527 254840160 : lu(k,3379) = lu(k,3379) - lu(k,795) * lu(k,3253)
2528 254840160 : lu(k,3404) = lu(k,3404) - lu(k,792) * lu(k,3384)
2529 254840160 : lu(k,3463) = lu(k,3463) - lu(k,793) * lu(k,3384)
2530 254840160 : lu(k,3471) = lu(k,3471) - lu(k,794) * lu(k,3384)
2531 254840160 : lu(k,3472) = lu(k,3472) - lu(k,795) * lu(k,3384)
2532 254840160 : lu(k,3706) = lu(k,3706) - lu(k,792) * lu(k,3680)
2533 254840160 : lu(k,3761) = lu(k,3761) - lu(k,793) * lu(k,3680)
2534 254840160 : lu(k,3769) = lu(k,3769) - lu(k,794) * lu(k,3680)
2535 254840160 : lu(k,3770) = - lu(k,795) * lu(k,3680)
2536 254840160 : lu(k,4033) = lu(k,4033) - lu(k,792) * lu(k,3960)
2537 254840160 : lu(k,4093) = lu(k,4093) - lu(k,793) * lu(k,3960)
2538 254840160 : lu(k,4101) = lu(k,4101) - lu(k,794) * lu(k,3960)
2539 263009123 : lu(k,4102) = lu(k,4102) - lu(k,795) * lu(k,3960)
2540 : end do
2541 8168963 : end subroutine lu_fac17
2542 8168963 : subroutine lu_fac18( avec_len, lu )
2543 : use chem_mods, only : nzcnt
2544 : use shr_kind_mod, only : r8 => shr_kind_r8
2545 : implicit none
2546 : !-----------------------------------------------------------------------
2547 : ! ... dummy args
2548 : !-----------------------------------------------------------------------
2549 : integer, intent(in) :: avec_len
2550 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2551 : !-----------------------------------------------------------------------
2552 : ! ... local variables
2553 : !-----------------------------------------------------------------------
2554 : integer :: k
2555 263009123 : do k = 1,avec_len
2556 254840160 : lu(k,797) = 1._r8 / lu(k,797)
2557 254840160 : lu(k,798) = lu(k,798) * lu(k,797)
2558 254840160 : lu(k,799) = lu(k,799) * lu(k,797)
2559 254840160 : lu(k,800) = lu(k,800) * lu(k,797)
2560 254840160 : lu(k,801) = lu(k,801) * lu(k,797)
2561 254840160 : lu(k,802) = lu(k,802) * lu(k,797)
2562 254840160 : lu(k,803) = lu(k,803) * lu(k,797)
2563 254840160 : lu(k,804) = lu(k,804) * lu(k,797)
2564 254840160 : lu(k,2620) = - lu(k,798) * lu(k,2619)
2565 254840160 : lu(k,2626) = lu(k,2626) - lu(k,799) * lu(k,2619)
2566 254840160 : lu(k,2636) = - lu(k,800) * lu(k,2619)
2567 254840160 : lu(k,2639) = lu(k,2639) - lu(k,801) * lu(k,2619)
2568 254840160 : lu(k,2640) = - lu(k,802) * lu(k,2619)
2569 254840160 : lu(k,2642) = lu(k,2642) - lu(k,803) * lu(k,2619)
2570 254840160 : lu(k,2645) = lu(k,2645) - lu(k,804) * lu(k,2619)
2571 254840160 : lu(k,3014) = lu(k,3014) - lu(k,798) * lu(k,3000)
2572 254840160 : lu(k,3058) = lu(k,3058) - lu(k,799) * lu(k,3000)
2573 254840160 : lu(k,3106) = lu(k,3106) - lu(k,800) * lu(k,3000)
2574 254840160 : lu(k,3109) = lu(k,3109) - lu(k,801) * lu(k,3000)
2575 254840160 : lu(k,3110) = lu(k,3110) - lu(k,802) * lu(k,3000)
2576 254840160 : lu(k,3115) = lu(k,3115) - lu(k,803) * lu(k,3000)
2577 254840160 : lu(k,3119) = lu(k,3119) - lu(k,804) * lu(k,3000)
2578 254840160 : lu(k,3269) = lu(k,3269) - lu(k,798) * lu(k,3254)
2579 254840160 : lu(k,3317) = lu(k,3317) - lu(k,799) * lu(k,3254)
2580 254840160 : lu(k,3365) = lu(k,3365) - lu(k,800) * lu(k,3254)
2581 254840160 : lu(k,3368) = lu(k,3368) - lu(k,801) * lu(k,3254)
2582 254840160 : lu(k,3369) = lu(k,3369) - lu(k,802) * lu(k,3254)
2583 254840160 : lu(k,3374) = lu(k,3374) - lu(k,803) * lu(k,3254)
2584 254840160 : lu(k,3378) = lu(k,3378) - lu(k,804) * lu(k,3254)
2585 254840160 : lu(k,3979) = lu(k,3979) - lu(k,798) * lu(k,3961)
2586 254840160 : lu(k,4041) = lu(k,4041) - lu(k,799) * lu(k,3961)
2587 254840160 : lu(k,4088) = lu(k,4088) - lu(k,800) * lu(k,3961)
2588 254840160 : lu(k,4091) = lu(k,4091) - lu(k,801) * lu(k,3961)
2589 254840160 : lu(k,4092) = lu(k,4092) - lu(k,802) * lu(k,3961)
2590 254840160 : lu(k,4097) = lu(k,4097) - lu(k,803) * lu(k,3961)
2591 254840160 : lu(k,4101) = lu(k,4101) - lu(k,804) * lu(k,3961)
2592 254840160 : lu(k,805) = 1._r8 / lu(k,805)
2593 254840160 : lu(k,806) = lu(k,806) * lu(k,805)
2594 254840160 : lu(k,807) = lu(k,807) * lu(k,805)
2595 254840160 : lu(k,808) = lu(k,808) * lu(k,805)
2596 254840160 : lu(k,809) = lu(k,809) * lu(k,805)
2597 254840160 : lu(k,810) = lu(k,810) * lu(k,805)
2598 254840160 : lu(k,811) = lu(k,811) * lu(k,805)
2599 254840160 : lu(k,812) = lu(k,812) * lu(k,805)
2600 254840160 : lu(k,1686) = - lu(k,806) * lu(k,1685)
2601 254840160 : lu(k,1687) = - lu(k,807) * lu(k,1685)
2602 254840160 : lu(k,1688) = - lu(k,808) * lu(k,1685)
2603 254840160 : lu(k,1693) = - lu(k,809) * lu(k,1685)
2604 254840160 : lu(k,1694) = lu(k,1694) - lu(k,810) * lu(k,1685)
2605 254840160 : lu(k,1695) = lu(k,1695) - lu(k,811) * lu(k,1685)
2606 254840160 : lu(k,1696) = lu(k,1696) - lu(k,812) * lu(k,1685)
2607 254840160 : lu(k,3014) = lu(k,3014) - lu(k,806) * lu(k,3001)
2608 254840160 : lu(k,3030) = lu(k,3030) - lu(k,807) * lu(k,3001)
2609 254840160 : lu(k,3050) = lu(k,3050) - lu(k,808) * lu(k,3001)
2610 254840160 : lu(k,3106) = lu(k,3106) - lu(k,809) * lu(k,3001)
2611 254840160 : lu(k,3110) = lu(k,3110) - lu(k,810) * lu(k,3001)
2612 254840160 : lu(k,3115) = lu(k,3115) - lu(k,811) * lu(k,3001)
2613 254840160 : lu(k,3119) = lu(k,3119) - lu(k,812) * lu(k,3001)
2614 254840160 : lu(k,3269) = lu(k,3269) - lu(k,806) * lu(k,3255)
2615 254840160 : lu(k,3287) = - lu(k,807) * lu(k,3255)
2616 254840160 : lu(k,3307) = lu(k,3307) - lu(k,808) * lu(k,3255)
2617 254840160 : lu(k,3365) = lu(k,3365) - lu(k,809) * lu(k,3255)
2618 254840160 : lu(k,3369) = lu(k,3369) - lu(k,810) * lu(k,3255)
2619 254840160 : lu(k,3374) = lu(k,3374) - lu(k,811) * lu(k,3255)
2620 254840160 : lu(k,3378) = lu(k,3378) - lu(k,812) * lu(k,3255)
2621 254840160 : lu(k,3979) = lu(k,3979) - lu(k,806) * lu(k,3962)
2622 254840160 : lu(k,4001) = lu(k,4001) - lu(k,807) * lu(k,3962)
2623 254840160 : lu(k,4030) = lu(k,4030) - lu(k,808) * lu(k,3962)
2624 254840160 : lu(k,4088) = lu(k,4088) - lu(k,809) * lu(k,3962)
2625 254840160 : lu(k,4092) = lu(k,4092) - lu(k,810) * lu(k,3962)
2626 254840160 : lu(k,4097) = lu(k,4097) - lu(k,811) * lu(k,3962)
2627 254840160 : lu(k,4101) = lu(k,4101) - lu(k,812) * lu(k,3962)
2628 254840160 : lu(k,813) = 1._r8 / lu(k,813)
2629 254840160 : lu(k,814) = lu(k,814) * lu(k,813)
2630 254840160 : lu(k,815) = lu(k,815) * lu(k,813)
2631 254840160 : lu(k,816) = lu(k,816) * lu(k,813)
2632 254840160 : lu(k,817) = lu(k,817) * lu(k,813)
2633 254840160 : lu(k,818) = lu(k,818) * lu(k,813)
2634 254840160 : lu(k,819) = lu(k,819) * lu(k,813)
2635 254840160 : lu(k,820) = lu(k,820) * lu(k,813)
2636 254840160 : lu(k,1698) = - lu(k,814) * lu(k,1697)
2637 254840160 : lu(k,1699) = - lu(k,815) * lu(k,1697)
2638 254840160 : lu(k,1700) = - lu(k,816) * lu(k,1697)
2639 254840160 : lu(k,1706) = - lu(k,817) * lu(k,1697)
2640 254840160 : lu(k,1707) = lu(k,1707) - lu(k,818) * lu(k,1697)
2641 254840160 : lu(k,1708) = lu(k,1708) - lu(k,819) * lu(k,1697)
2642 254840160 : lu(k,1709) = lu(k,1709) - lu(k,820) * lu(k,1697)
2643 254840160 : lu(k,3014) = lu(k,3014) - lu(k,814) * lu(k,3002)
2644 254840160 : lu(k,3030) = lu(k,3030) - lu(k,815) * lu(k,3002)
2645 254840160 : lu(k,3048) = lu(k,3048) - lu(k,816) * lu(k,3002)
2646 254840160 : lu(k,3106) = lu(k,3106) - lu(k,817) * lu(k,3002)
2647 254840160 : lu(k,3110) = lu(k,3110) - lu(k,818) * lu(k,3002)
2648 254840160 : lu(k,3115) = lu(k,3115) - lu(k,819) * lu(k,3002)
2649 254840160 : lu(k,3119) = lu(k,3119) - lu(k,820) * lu(k,3002)
2650 254840160 : lu(k,3269) = lu(k,3269) - lu(k,814) * lu(k,3256)
2651 254840160 : lu(k,3287) = lu(k,3287) - lu(k,815) * lu(k,3256)
2652 254840160 : lu(k,3305) = lu(k,3305) - lu(k,816) * lu(k,3256)
2653 254840160 : lu(k,3365) = lu(k,3365) - lu(k,817) * lu(k,3256)
2654 254840160 : lu(k,3369) = lu(k,3369) - lu(k,818) * lu(k,3256)
2655 254840160 : lu(k,3374) = lu(k,3374) - lu(k,819) * lu(k,3256)
2656 254840160 : lu(k,3378) = lu(k,3378) - lu(k,820) * lu(k,3256)
2657 254840160 : lu(k,3979) = lu(k,3979) - lu(k,814) * lu(k,3963)
2658 254840160 : lu(k,4001) = lu(k,4001) - lu(k,815) * lu(k,3963)
2659 254840160 : lu(k,4028) = lu(k,4028) - lu(k,816) * lu(k,3963)
2660 254840160 : lu(k,4088) = lu(k,4088) - lu(k,817) * lu(k,3963)
2661 254840160 : lu(k,4092) = lu(k,4092) - lu(k,818) * lu(k,3963)
2662 254840160 : lu(k,4097) = lu(k,4097) - lu(k,819) * lu(k,3963)
2663 254840160 : lu(k,4101) = lu(k,4101) - lu(k,820) * lu(k,3963)
2664 254840160 : lu(k,827) = 1._r8 / lu(k,827)
2665 254840160 : lu(k,828) = lu(k,828) * lu(k,827)
2666 254840160 : lu(k,829) = lu(k,829) * lu(k,827)
2667 254840160 : lu(k,830) = lu(k,830) * lu(k,827)
2668 254840160 : lu(k,831) = lu(k,831) * lu(k,827)
2669 254840160 : lu(k,832) = lu(k,832) * lu(k,827)
2670 254840160 : lu(k,833) = lu(k,833) * lu(k,827)
2671 254840160 : lu(k,834) = lu(k,834) * lu(k,827)
2672 254840160 : lu(k,835) = lu(k,835) * lu(k,827)
2673 254840160 : lu(k,836) = lu(k,836) * lu(k,827)
2674 254840160 : lu(k,837) = lu(k,837) * lu(k,827)
2675 254840160 : lu(k,3559) = - lu(k,828) * lu(k,3529)
2676 254840160 : lu(k,3579) = lu(k,3579) - lu(k,829) * lu(k,3529)
2677 254840160 : lu(k,3587) = lu(k,3587) - lu(k,830) * lu(k,3529)
2678 254840160 : lu(k,3590) = lu(k,3590) - lu(k,831) * lu(k,3529)
2679 254840160 : lu(k,3591) = lu(k,3591) - lu(k,832) * lu(k,3529)
2680 254840160 : lu(k,3605) = lu(k,3605) - lu(k,833) * lu(k,3529)
2681 254840160 : lu(k,3606) = lu(k,3606) - lu(k,834) * lu(k,3529)
2682 254840160 : lu(k,3610) = lu(k,3610) - lu(k,835) * lu(k,3529)
2683 254840160 : lu(k,3612) = - lu(k,836) * lu(k,3529)
2684 254840160 : lu(k,3615) = lu(k,3615) - lu(k,837) * lu(k,3529)
2685 254840160 : lu(k,3713) = lu(k,3713) - lu(k,828) * lu(k,3681)
2686 254840160 : lu(k,3734) = lu(k,3734) - lu(k,829) * lu(k,3681)
2687 254840160 : lu(k,3741) = - lu(k,830) * lu(k,3681)
2688 254840160 : lu(k,3744) = - lu(k,831) * lu(k,3681)
2689 254840160 : lu(k,3745) = lu(k,3745) - lu(k,832) * lu(k,3681)
2690 254840160 : lu(k,3759) = lu(k,3759) - lu(k,833) * lu(k,3681)
2691 254840160 : lu(k,3760) = lu(k,3760) - lu(k,834) * lu(k,3681)
2692 254840160 : lu(k,3764) = lu(k,3764) - lu(k,835) * lu(k,3681)
2693 254840160 : lu(k,3766) = lu(k,3766) - lu(k,836) * lu(k,3681)
2694 254840160 : lu(k,3769) = lu(k,3769) - lu(k,837) * lu(k,3681)
2695 254840160 : lu(k,4044) = lu(k,4044) - lu(k,828) * lu(k,3964)
2696 254840160 : lu(k,4065) = lu(k,4065) - lu(k,829) * lu(k,3964)
2697 254840160 : lu(k,4073) = lu(k,4073) - lu(k,830) * lu(k,3964)
2698 254840160 : lu(k,4076) = - lu(k,831) * lu(k,3964)
2699 254840160 : lu(k,4077) = lu(k,4077) - lu(k,832) * lu(k,3964)
2700 254840160 : lu(k,4091) = lu(k,4091) - lu(k,833) * lu(k,3964)
2701 254840160 : lu(k,4092) = lu(k,4092) - lu(k,834) * lu(k,3964)
2702 254840160 : lu(k,4096) = lu(k,4096) - lu(k,835) * lu(k,3964)
2703 254840160 : lu(k,4098) = lu(k,4098) - lu(k,836) * lu(k,3964)
2704 263009123 : lu(k,4101) = lu(k,4101) - lu(k,837) * lu(k,3964)
2705 : end do
2706 8168963 : end subroutine lu_fac18
2707 8168963 : subroutine lu_fac19( avec_len, lu )
2708 : use chem_mods, only : nzcnt
2709 : use shr_kind_mod, only : r8 => shr_kind_r8
2710 : implicit none
2711 : !-----------------------------------------------------------------------
2712 : ! ... dummy args
2713 : !-----------------------------------------------------------------------
2714 : integer, intent(in) :: avec_len
2715 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2716 : !-----------------------------------------------------------------------
2717 : ! ... local variables
2718 : !-----------------------------------------------------------------------
2719 : integer :: k
2720 263009123 : do k = 1,avec_len
2721 254840160 : lu(k,842) = 1._r8 / lu(k,842)
2722 254840160 : lu(k,843) = lu(k,843) * lu(k,842)
2723 254840160 : lu(k,844) = lu(k,844) * lu(k,842)
2724 254840160 : lu(k,845) = lu(k,845) * lu(k,842)
2725 254840160 : lu(k,846) = lu(k,846) * lu(k,842)
2726 254840160 : lu(k,847) = lu(k,847) * lu(k,842)
2727 254840160 : lu(k,848) = lu(k,848) * lu(k,842)
2728 254840160 : lu(k,849) = lu(k,849) * lu(k,842)
2729 254840160 : lu(k,850) = lu(k,850) * lu(k,842)
2730 254840160 : lu(k,851) = lu(k,851) * lu(k,842)
2731 254840160 : lu(k,852) = lu(k,852) * lu(k,842)
2732 254840160 : lu(k,894) = lu(k,894) - lu(k,843) * lu(k,893)
2733 254840160 : lu(k,895) = lu(k,895) - lu(k,844) * lu(k,893)
2734 254840160 : lu(k,896) = lu(k,896) - lu(k,845) * lu(k,893)
2735 254840160 : lu(k,897) = lu(k,897) - lu(k,846) * lu(k,893)
2736 254840160 : lu(k,898) = lu(k,898) - lu(k,847) * lu(k,893)
2737 254840160 : lu(k,899) = lu(k,899) - lu(k,848) * lu(k,893)
2738 254840160 : lu(k,900) = lu(k,900) - lu(k,849) * lu(k,893)
2739 254840160 : lu(k,901) = lu(k,901) - lu(k,850) * lu(k,893)
2740 254840160 : lu(k,903) = lu(k,903) - lu(k,851) * lu(k,893)
2741 254840160 : lu(k,905) = - lu(k,852) * lu(k,893)
2742 254840160 : lu(k,3259) = lu(k,3259) - lu(k,843) * lu(k,3257)
2743 254840160 : lu(k,3262) = lu(k,3262) - lu(k,844) * lu(k,3257)
2744 254840160 : lu(k,3263) = lu(k,3263) - lu(k,845) * lu(k,3257)
2745 254840160 : lu(k,3265) = lu(k,3265) - lu(k,846) * lu(k,3257)
2746 254840160 : lu(k,3299) = lu(k,3299) - lu(k,847) * lu(k,3257)
2747 254840160 : lu(k,3328) = lu(k,3328) - lu(k,848) * lu(k,3257)
2748 254840160 : lu(k,3333) = lu(k,3333) - lu(k,849) * lu(k,3257)
2749 254840160 : lu(k,3362) = lu(k,3362) - lu(k,850) * lu(k,3257)
2750 254840160 : lu(k,3369) = lu(k,3369) - lu(k,851) * lu(k,3257)
2751 254840160 : lu(k,3378) = lu(k,3378) - lu(k,852) * lu(k,3257)
2752 254840160 : lu(k,3967) = lu(k,3967) - lu(k,843) * lu(k,3965)
2753 254840160 : lu(k,3970) = lu(k,3970) - lu(k,844) * lu(k,3965)
2754 254840160 : lu(k,3971) = lu(k,3971) - lu(k,845) * lu(k,3965)
2755 254840160 : lu(k,3975) = lu(k,3975) - lu(k,846) * lu(k,3965)
2756 254840160 : lu(k,4021) = lu(k,4021) - lu(k,847) * lu(k,3965)
2757 254840160 : lu(k,4052) = lu(k,4052) - lu(k,848) * lu(k,3965)
2758 254840160 : lu(k,4057) = lu(k,4057) - lu(k,849) * lu(k,3965)
2759 254840160 : lu(k,4085) = lu(k,4085) - lu(k,850) * lu(k,3965)
2760 254840160 : lu(k,4092) = lu(k,4092) - lu(k,851) * lu(k,3965)
2761 254840160 : lu(k,4101) = lu(k,4101) - lu(k,852) * lu(k,3965)
2762 254840160 : lu(k,855) = 1._r8 / lu(k,855)
2763 254840160 : lu(k,856) = lu(k,856) * lu(k,855)
2764 254840160 : lu(k,857) = lu(k,857) * lu(k,855)
2765 254840160 : lu(k,858) = lu(k,858) * lu(k,855)
2766 254840160 : lu(k,859) = lu(k,859) * lu(k,855)
2767 254840160 : lu(k,860) = lu(k,860) * lu(k,855)
2768 254840160 : lu(k,861) = lu(k,861) * lu(k,855)
2769 254840160 : lu(k,3057) = lu(k,3057) - lu(k,856) * lu(k,3003)
2770 254840160 : lu(k,3106) = lu(k,3106) - lu(k,857) * lu(k,3003)
2771 254840160 : lu(k,3109) = lu(k,3109) - lu(k,858) * lu(k,3003)
2772 254840160 : lu(k,3110) = lu(k,3110) - lu(k,859) * lu(k,3003)
2773 254840160 : lu(k,3115) = lu(k,3115) - lu(k,860) * lu(k,3003)
2774 254840160 : lu(k,3119) = lu(k,3119) - lu(k,861) * lu(k,3003)
2775 254840160 : lu(k,3316) = lu(k,3316) - lu(k,856) * lu(k,3258)
2776 254840160 : lu(k,3365) = lu(k,3365) - lu(k,857) * lu(k,3258)
2777 254840160 : lu(k,3368) = lu(k,3368) - lu(k,858) * lu(k,3258)
2778 254840160 : lu(k,3369) = lu(k,3369) - lu(k,859) * lu(k,3258)
2779 254840160 : lu(k,3374) = lu(k,3374) - lu(k,860) * lu(k,3258)
2780 254840160 : lu(k,3378) = lu(k,3378) - lu(k,861) * lu(k,3258)
2781 254840160 : lu(k,3709) = lu(k,3709) - lu(k,856) * lu(k,3682)
2782 254840160 : lu(k,3756) = lu(k,3756) - lu(k,857) * lu(k,3682)
2783 254840160 : lu(k,3759) = lu(k,3759) - lu(k,858) * lu(k,3682)
2784 254840160 : lu(k,3760) = lu(k,3760) - lu(k,859) * lu(k,3682)
2785 254840160 : lu(k,3765) = lu(k,3765) - lu(k,860) * lu(k,3682)
2786 254840160 : lu(k,3769) = lu(k,3769) - lu(k,861) * lu(k,3682)
2787 254840160 : lu(k,3831) = - lu(k,856) * lu(k,3820)
2788 254840160 : lu(k,3838) = - lu(k,857) * lu(k,3820)
2789 254840160 : lu(k,3841) = lu(k,3841) - lu(k,858) * lu(k,3820)
2790 254840160 : lu(k,3842) = lu(k,3842) - lu(k,859) * lu(k,3820)
2791 254840160 : lu(k,3847) = - lu(k,860) * lu(k,3820)
2792 254840160 : lu(k,3851) = lu(k,3851) - lu(k,861) * lu(k,3820)
2793 254840160 : lu(k,4040) = lu(k,4040) - lu(k,856) * lu(k,3966)
2794 254840160 : lu(k,4088) = lu(k,4088) - lu(k,857) * lu(k,3966)
2795 254840160 : lu(k,4091) = lu(k,4091) - lu(k,858) * lu(k,3966)
2796 254840160 : lu(k,4092) = lu(k,4092) - lu(k,859) * lu(k,3966)
2797 254840160 : lu(k,4097) = lu(k,4097) - lu(k,860) * lu(k,3966)
2798 254840160 : lu(k,4101) = lu(k,4101) - lu(k,861) * lu(k,3966)
2799 254840160 : lu(k,862) = 1._r8 / lu(k,862)
2800 254840160 : lu(k,863) = lu(k,863) * lu(k,862)
2801 254840160 : lu(k,864) = lu(k,864) * lu(k,862)
2802 254840160 : lu(k,865) = lu(k,865) * lu(k,862)
2803 254840160 : lu(k,866) = lu(k,866) * lu(k,862)
2804 254840160 : lu(k,867) = lu(k,867) * lu(k,862)
2805 254840160 : lu(k,876) = lu(k,876) - lu(k,863) * lu(k,872)
2806 254840160 : lu(k,878) = lu(k,878) - lu(k,864) * lu(k,872)
2807 254840160 : lu(k,879) = lu(k,879) - lu(k,865) * lu(k,872)
2808 254840160 : lu(k,880) = lu(k,880) - lu(k,866) * lu(k,872)
2809 254840160 : lu(k,881) = lu(k,881) - lu(k,867) * lu(k,872)
2810 254840160 : lu(k,898) = lu(k,898) - lu(k,863) * lu(k,894)
2811 254840160 : lu(k,900) = lu(k,900) - lu(k,864) * lu(k,894)
2812 254840160 : lu(k,902) = lu(k,902) - lu(k,865) * lu(k,894)
2813 254840160 : lu(k,903) = lu(k,903) - lu(k,866) * lu(k,894)
2814 254840160 : lu(k,904) = lu(k,904) - lu(k,867) * lu(k,894)
2815 254840160 : lu(k,3042) = lu(k,3042) - lu(k,863) * lu(k,3004)
2816 254840160 : lu(k,3074) = lu(k,3074) - lu(k,864) * lu(k,3004)
2817 254840160 : lu(k,3106) = lu(k,3106) - lu(k,865) * lu(k,3004)
2818 254840160 : lu(k,3110) = lu(k,3110) - lu(k,866) * lu(k,3004)
2819 254840160 : lu(k,3115) = lu(k,3115) - lu(k,867) * lu(k,3004)
2820 254840160 : lu(k,3299) = lu(k,3299) - lu(k,863) * lu(k,3259)
2821 254840160 : lu(k,3333) = lu(k,3333) - lu(k,864) * lu(k,3259)
2822 254840160 : lu(k,3365) = lu(k,3365) - lu(k,865) * lu(k,3259)
2823 254840160 : lu(k,3369) = lu(k,3369) - lu(k,866) * lu(k,3259)
2824 254840160 : lu(k,3374) = lu(k,3374) - lu(k,867) * lu(k,3259)
2825 254840160 : lu(k,3638) = - lu(k,863) * lu(k,3631)
2826 254840160 : lu(k,3644) = lu(k,3644) - lu(k,864) * lu(k,3631)
2827 254840160 : lu(k,3654) = lu(k,3654) - lu(k,865) * lu(k,3631)
2828 254840160 : lu(k,3658) = lu(k,3658) - lu(k,866) * lu(k,3631)
2829 254840160 : lu(k,3663) = lu(k,3663) - lu(k,867) * lu(k,3631)
2830 254840160 : lu(k,4021) = lu(k,4021) - lu(k,863) * lu(k,3967)
2831 254840160 : lu(k,4057) = lu(k,4057) - lu(k,864) * lu(k,3967)
2832 254840160 : lu(k,4088) = lu(k,4088) - lu(k,865) * lu(k,3967)
2833 254840160 : lu(k,4092) = lu(k,4092) - lu(k,866) * lu(k,3967)
2834 254840160 : lu(k,4097) = lu(k,4097) - lu(k,867) * lu(k,3967)
2835 254840160 : lu(k,873) = 1._r8 / lu(k,873)
2836 254840160 : lu(k,874) = lu(k,874) * lu(k,873)
2837 254840160 : lu(k,875) = lu(k,875) * lu(k,873)
2838 254840160 : lu(k,876) = lu(k,876) * lu(k,873)
2839 254840160 : lu(k,877) = lu(k,877) * lu(k,873)
2840 254840160 : lu(k,878) = lu(k,878) * lu(k,873)
2841 254840160 : lu(k,879) = lu(k,879) * lu(k,873)
2842 254840160 : lu(k,880) = lu(k,880) * lu(k,873)
2843 254840160 : lu(k,881) = lu(k,881) * lu(k,873)
2844 254840160 : lu(k,882) = lu(k,882) * lu(k,873)
2845 254840160 : lu(k,3008) = lu(k,3008) - lu(k,874) * lu(k,3005)
2846 254840160 : lu(k,3010) = lu(k,3010) - lu(k,875) * lu(k,3005)
2847 254840160 : lu(k,3042) = lu(k,3042) - lu(k,876) * lu(k,3005)
2848 254840160 : lu(k,3069) = lu(k,3069) - lu(k,877) * lu(k,3005)
2849 254840160 : lu(k,3074) = lu(k,3074) - lu(k,878) * lu(k,3005)
2850 254840160 : lu(k,3106) = lu(k,3106) - lu(k,879) * lu(k,3005)
2851 254840160 : lu(k,3110) = lu(k,3110) - lu(k,880) * lu(k,3005)
2852 254840160 : lu(k,3115) = lu(k,3115) - lu(k,881) * lu(k,3005)
2853 254840160 : lu(k,3119) = lu(k,3119) - lu(k,882) * lu(k,3005)
2854 254840160 : lu(k,3263) = lu(k,3263) - lu(k,874) * lu(k,3260)
2855 254840160 : lu(k,3265) = lu(k,3265) - lu(k,875) * lu(k,3260)
2856 254840160 : lu(k,3299) = lu(k,3299) - lu(k,876) * lu(k,3260)
2857 254840160 : lu(k,3328) = lu(k,3328) - lu(k,877) * lu(k,3260)
2858 254840160 : lu(k,3333) = lu(k,3333) - lu(k,878) * lu(k,3260)
2859 254840160 : lu(k,3365) = lu(k,3365) - lu(k,879) * lu(k,3260)
2860 254840160 : lu(k,3369) = lu(k,3369) - lu(k,880) * lu(k,3260)
2861 254840160 : lu(k,3374) = lu(k,3374) - lu(k,881) * lu(k,3260)
2862 254840160 : lu(k,3378) = lu(k,3378) - lu(k,882) * lu(k,3260)
2863 254840160 : lu(k,3971) = lu(k,3971) - lu(k,874) * lu(k,3968)
2864 254840160 : lu(k,3975) = lu(k,3975) - lu(k,875) * lu(k,3968)
2865 254840160 : lu(k,4021) = lu(k,4021) - lu(k,876) * lu(k,3968)
2866 254840160 : lu(k,4052) = lu(k,4052) - lu(k,877) * lu(k,3968)
2867 254840160 : lu(k,4057) = lu(k,4057) - lu(k,878) * lu(k,3968)
2868 254840160 : lu(k,4088) = lu(k,4088) - lu(k,879) * lu(k,3968)
2869 254840160 : lu(k,4092) = lu(k,4092) - lu(k,880) * lu(k,3968)
2870 254840160 : lu(k,4097) = lu(k,4097) - lu(k,881) * lu(k,3968)
2871 254840160 : lu(k,4101) = lu(k,4101) - lu(k,882) * lu(k,3968)
2872 254840160 : lu(k,883) = 1._r8 / lu(k,883)
2873 254840160 : lu(k,884) = lu(k,884) * lu(k,883)
2874 254840160 : lu(k,885) = lu(k,885) * lu(k,883)
2875 254840160 : lu(k,886) = lu(k,886) * lu(k,883)
2876 254840160 : lu(k,887) = lu(k,887) * lu(k,883)
2877 254840160 : lu(k,888) = lu(k,888) * lu(k,883)
2878 254840160 : lu(k,1364) = - lu(k,884) * lu(k,1359)
2879 254840160 : lu(k,1370) = - lu(k,885) * lu(k,1359)
2880 254840160 : lu(k,1373) = lu(k,1373) - lu(k,886) * lu(k,1359)
2881 254840160 : lu(k,1374) = lu(k,1374) - lu(k,887) * lu(k,1359)
2882 254840160 : lu(k,1376) = lu(k,1376) - lu(k,888) * lu(k,1359)
2883 254840160 : lu(k,1568) = lu(k,1568) - lu(k,884) * lu(k,1562)
2884 254840160 : lu(k,1582) = - lu(k,885) * lu(k,1562)
2885 254840160 : lu(k,1590) = - lu(k,886) * lu(k,1562)
2886 254840160 : lu(k,1591) = lu(k,1591) - lu(k,887) * lu(k,1562)
2887 254840160 : lu(k,1595) = lu(k,1595) - lu(k,888) * lu(k,1562)
2888 254840160 : lu(k,3042) = lu(k,3042) - lu(k,884) * lu(k,3006)
2889 254840160 : lu(k,3074) = lu(k,3074) - lu(k,885) * lu(k,3006)
2890 254840160 : lu(k,3109) = lu(k,3109) - lu(k,886) * lu(k,3006)
2891 254840160 : lu(k,3110) = lu(k,3110) - lu(k,887) * lu(k,3006)
2892 254840160 : lu(k,3119) = lu(k,3119) - lu(k,888) * lu(k,3006)
2893 254840160 : lu(k,3299) = lu(k,3299) - lu(k,884) * lu(k,3261)
2894 254840160 : lu(k,3333) = lu(k,3333) - lu(k,885) * lu(k,3261)
2895 254840160 : lu(k,3368) = lu(k,3368) - lu(k,886) * lu(k,3261)
2896 254840160 : lu(k,3369) = lu(k,3369) - lu(k,887) * lu(k,3261)
2897 254840160 : lu(k,3378) = lu(k,3378) - lu(k,888) * lu(k,3261)
2898 254840160 : lu(k,3700) = lu(k,3700) - lu(k,884) * lu(k,3683)
2899 254840160 : lu(k,3726) = lu(k,3726) - lu(k,885) * lu(k,3683)
2900 254840160 : lu(k,3759) = lu(k,3759) - lu(k,886) * lu(k,3683)
2901 254840160 : lu(k,3760) = lu(k,3760) - lu(k,887) * lu(k,3683)
2902 254840160 : lu(k,3769) = lu(k,3769) - lu(k,888) * lu(k,3683)
2903 254840160 : lu(k,4021) = lu(k,4021) - lu(k,884) * lu(k,3969)
2904 254840160 : lu(k,4057) = lu(k,4057) - lu(k,885) * lu(k,3969)
2905 254840160 : lu(k,4091) = lu(k,4091) - lu(k,886) * lu(k,3969)
2906 254840160 : lu(k,4092) = lu(k,4092) - lu(k,887) * lu(k,3969)
2907 254840160 : lu(k,4101) = lu(k,4101) - lu(k,888) * lu(k,3969)
2908 254840160 : lu(k,895) = 1._r8 / lu(k,895)
2909 254840160 : lu(k,896) = lu(k,896) * lu(k,895)
2910 254840160 : lu(k,897) = lu(k,897) * lu(k,895)
2911 254840160 : lu(k,898) = lu(k,898) * lu(k,895)
2912 254840160 : lu(k,899) = lu(k,899) * lu(k,895)
2913 254840160 : lu(k,900) = lu(k,900) * lu(k,895)
2914 254840160 : lu(k,901) = lu(k,901) * lu(k,895)
2915 254840160 : lu(k,902) = lu(k,902) * lu(k,895)
2916 254840160 : lu(k,903) = lu(k,903) * lu(k,895)
2917 254840160 : lu(k,904) = lu(k,904) * lu(k,895)
2918 254840160 : lu(k,905) = lu(k,905) * lu(k,895)
2919 254840160 : lu(k,3008) = lu(k,3008) - lu(k,896) * lu(k,3007)
2920 254840160 : lu(k,3010) = lu(k,3010) - lu(k,897) * lu(k,3007)
2921 254840160 : lu(k,3042) = lu(k,3042) - lu(k,898) * lu(k,3007)
2922 254840160 : lu(k,3069) = lu(k,3069) - lu(k,899) * lu(k,3007)
2923 254840160 : lu(k,3074) = lu(k,3074) - lu(k,900) * lu(k,3007)
2924 254840160 : lu(k,3103) = lu(k,3103) - lu(k,901) * lu(k,3007)
2925 254840160 : lu(k,3106) = lu(k,3106) - lu(k,902) * lu(k,3007)
2926 254840160 : lu(k,3110) = lu(k,3110) - lu(k,903) * lu(k,3007)
2927 254840160 : lu(k,3115) = lu(k,3115) - lu(k,904) * lu(k,3007)
2928 254840160 : lu(k,3119) = lu(k,3119) - lu(k,905) * lu(k,3007)
2929 254840160 : lu(k,3263) = lu(k,3263) - lu(k,896) * lu(k,3262)
2930 254840160 : lu(k,3265) = lu(k,3265) - lu(k,897) * lu(k,3262)
2931 254840160 : lu(k,3299) = lu(k,3299) - lu(k,898) * lu(k,3262)
2932 254840160 : lu(k,3328) = lu(k,3328) - lu(k,899) * lu(k,3262)
2933 254840160 : lu(k,3333) = lu(k,3333) - lu(k,900) * lu(k,3262)
2934 254840160 : lu(k,3362) = lu(k,3362) - lu(k,901) * lu(k,3262)
2935 254840160 : lu(k,3365) = lu(k,3365) - lu(k,902) * lu(k,3262)
2936 254840160 : lu(k,3369) = lu(k,3369) - lu(k,903) * lu(k,3262)
2937 254840160 : lu(k,3374) = lu(k,3374) - lu(k,904) * lu(k,3262)
2938 254840160 : lu(k,3378) = lu(k,3378) - lu(k,905) * lu(k,3262)
2939 254840160 : lu(k,3971) = lu(k,3971) - lu(k,896) * lu(k,3970)
2940 254840160 : lu(k,3975) = lu(k,3975) - lu(k,897) * lu(k,3970)
2941 254840160 : lu(k,4021) = lu(k,4021) - lu(k,898) * lu(k,3970)
2942 254840160 : lu(k,4052) = lu(k,4052) - lu(k,899) * lu(k,3970)
2943 254840160 : lu(k,4057) = lu(k,4057) - lu(k,900) * lu(k,3970)
2944 254840160 : lu(k,4085) = lu(k,4085) - lu(k,901) * lu(k,3970)
2945 254840160 : lu(k,4088) = lu(k,4088) - lu(k,902) * lu(k,3970)
2946 254840160 : lu(k,4092) = lu(k,4092) - lu(k,903) * lu(k,3970)
2947 254840160 : lu(k,4097) = lu(k,4097) - lu(k,904) * lu(k,3970)
2948 263009123 : lu(k,4101) = lu(k,4101) - lu(k,905) * lu(k,3970)
2949 : end do
2950 8168963 : end subroutine lu_fac19
2951 8168963 : subroutine lu_fac20( avec_len, lu )
2952 : use chem_mods, only : nzcnt
2953 : use shr_kind_mod, only : r8 => shr_kind_r8
2954 : implicit none
2955 : !-----------------------------------------------------------------------
2956 : ! ... dummy args
2957 : !-----------------------------------------------------------------------
2958 : integer, intent(in) :: avec_len
2959 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2960 : !-----------------------------------------------------------------------
2961 : ! ... local variables
2962 : !-----------------------------------------------------------------------
2963 : integer :: k
2964 263009123 : do k = 1,avec_len
2965 254840160 : lu(k,906) = 1._r8 / lu(k,906)
2966 254840160 : lu(k,907) = lu(k,907) * lu(k,906)
2967 254840160 : lu(k,908) = lu(k,908) * lu(k,906)
2968 254840160 : lu(k,909) = lu(k,909) * lu(k,906)
2969 254840160 : lu(k,910) = lu(k,910) * lu(k,906)
2970 254840160 : lu(k,911) = lu(k,911) * lu(k,906)
2971 254840160 : lu(k,912) = lu(k,912) * lu(k,906)
2972 254840160 : lu(k,913) = lu(k,913) * lu(k,906)
2973 254840160 : lu(k,3069) = lu(k,3069) - lu(k,907) * lu(k,3008)
2974 254840160 : lu(k,3074) = lu(k,3074) - lu(k,908) * lu(k,3008)
2975 254840160 : lu(k,3106) = lu(k,3106) - lu(k,909) * lu(k,3008)
2976 254840160 : lu(k,3110) = lu(k,3110) - lu(k,910) * lu(k,3008)
2977 254840160 : lu(k,3111) = lu(k,3111) - lu(k,911) * lu(k,3008)
2978 254840160 : lu(k,3115) = lu(k,3115) - lu(k,912) * lu(k,3008)
2979 254840160 : lu(k,3119) = lu(k,3119) - lu(k,913) * lu(k,3008)
2980 254840160 : lu(k,3328) = lu(k,3328) - lu(k,907) * lu(k,3263)
2981 254840160 : lu(k,3333) = lu(k,3333) - lu(k,908) * lu(k,3263)
2982 254840160 : lu(k,3365) = lu(k,3365) - lu(k,909) * lu(k,3263)
2983 254840160 : lu(k,3369) = lu(k,3369) - lu(k,910) * lu(k,3263)
2984 254840160 : lu(k,3370) = lu(k,3370) - lu(k,911) * lu(k,3263)
2985 254840160 : lu(k,3374) = lu(k,3374) - lu(k,912) * lu(k,3263)
2986 254840160 : lu(k,3378) = lu(k,3378) - lu(k,913) * lu(k,3263)
2987 254840160 : lu(k,3643) = - lu(k,907) * lu(k,3632)
2988 254840160 : lu(k,3644) = lu(k,3644) - lu(k,908) * lu(k,3632)
2989 254840160 : lu(k,3654) = lu(k,3654) - lu(k,909) * lu(k,3632)
2990 254840160 : lu(k,3658) = lu(k,3658) - lu(k,910) * lu(k,3632)
2991 254840160 : lu(k,3659) = lu(k,3659) - lu(k,911) * lu(k,3632)
2992 254840160 : lu(k,3663) = lu(k,3663) - lu(k,912) * lu(k,3632)
2993 254840160 : lu(k,3667) = lu(k,3667) - lu(k,913) * lu(k,3632)
2994 254840160 : lu(k,4052) = lu(k,4052) - lu(k,907) * lu(k,3971)
2995 254840160 : lu(k,4057) = lu(k,4057) - lu(k,908) * lu(k,3971)
2996 254840160 : lu(k,4088) = lu(k,4088) - lu(k,909) * lu(k,3971)
2997 254840160 : lu(k,4092) = lu(k,4092) - lu(k,910) * lu(k,3971)
2998 254840160 : lu(k,4093) = lu(k,4093) - lu(k,911) * lu(k,3971)
2999 254840160 : lu(k,4097) = lu(k,4097) - lu(k,912) * lu(k,3971)
3000 254840160 : lu(k,4101) = lu(k,4101) - lu(k,913) * lu(k,3971)
3001 254840160 : lu(k,914) = 1._r8 / lu(k,914)
3002 254840160 : lu(k,915) = lu(k,915) * lu(k,914)
3003 254840160 : lu(k,916) = lu(k,916) * lu(k,914)
3004 254840160 : lu(k,917) = lu(k,917) * lu(k,914)
3005 254840160 : lu(k,918) = lu(k,918) * lu(k,914)
3006 254840160 : lu(k,1198) = - lu(k,915) * lu(k,1193)
3007 254840160 : lu(k,1199) = lu(k,1199) - lu(k,916) * lu(k,1193)
3008 254840160 : lu(k,1202) = - lu(k,917) * lu(k,1193)
3009 254840160 : lu(k,1206) = lu(k,1206) - lu(k,918) * lu(k,1193)
3010 254840160 : lu(k,1256) = lu(k,1256) - lu(k,915) * lu(k,1251)
3011 254840160 : lu(k,1258) = - lu(k,916) * lu(k,1251)
3012 254840160 : lu(k,1259) = lu(k,1259) - lu(k,917) * lu(k,1251)
3013 254840160 : lu(k,1261) = lu(k,1261) - lu(k,918) * lu(k,1251)
3014 254840160 : lu(k,1527) = - lu(k,915) * lu(k,1521)
3015 254840160 : lu(k,1529) = - lu(k,916) * lu(k,1521)
3016 254840160 : lu(k,1530) = - lu(k,917) * lu(k,1521)
3017 254840160 : lu(k,1532) = - lu(k,918) * lu(k,1521)
3018 254840160 : lu(k,1815) = - lu(k,915) * lu(k,1807)
3019 254840160 : lu(k,1820) = lu(k,1820) - lu(k,916) * lu(k,1807)
3020 254840160 : lu(k,1823) = lu(k,1823) - lu(k,917) * lu(k,1807)
3021 254840160 : lu(k,1829) = lu(k,1829) - lu(k,918) * lu(k,1807)
3022 254840160 : lu(k,1847) = - lu(k,915) * lu(k,1838)
3023 254840160 : lu(k,1852) = lu(k,1852) - lu(k,916) * lu(k,1838)
3024 254840160 : lu(k,1855) = lu(k,1855) - lu(k,917) * lu(k,1838)
3025 254840160 : lu(k,1860) = lu(k,1860) - lu(k,918) * lu(k,1838)
3026 254840160 : lu(k,1893) = lu(k,1893) - lu(k,915) * lu(k,1886)
3027 254840160 : lu(k,1898) = lu(k,1898) - lu(k,916) * lu(k,1886)
3028 254840160 : lu(k,1903) = lu(k,1903) - lu(k,917) * lu(k,1886)
3029 254840160 : lu(k,1907) = lu(k,1907) - lu(k,918) * lu(k,1886)
3030 254840160 : lu(k,2133) = - lu(k,915) * lu(k,2125)
3031 254840160 : lu(k,2138) = lu(k,2138) - lu(k,916) * lu(k,2125)
3032 254840160 : lu(k,2139) = lu(k,2139) - lu(k,917) * lu(k,2125)
3033 254840160 : lu(k,2146) = - lu(k,918) * lu(k,2125)
3034 254840160 : lu(k,4044) = lu(k,4044) - lu(k,915) * lu(k,3972)
3035 254840160 : lu(k,4052) = lu(k,4052) - lu(k,916) * lu(k,3972)
3036 254840160 : lu(k,4057) = lu(k,4057) - lu(k,917) * lu(k,3972)
3037 254840160 : lu(k,4091) = lu(k,4091) - lu(k,918) * lu(k,3972)
3038 254840160 : lu(k,919) = 1._r8 / lu(k,919)
3039 254840160 : lu(k,920) = lu(k,920) * lu(k,919)
3040 254840160 : lu(k,921) = lu(k,921) * lu(k,919)
3041 254840160 : lu(k,922) = lu(k,922) * lu(k,919)
3042 254840160 : lu(k,923) = lu(k,923) * lu(k,919)
3043 254840160 : lu(k,1731) = - lu(k,920) * lu(k,1727)
3044 254840160 : lu(k,1733) = - lu(k,921) * lu(k,1727)
3045 254840160 : lu(k,1744) = lu(k,1744) - lu(k,922) * lu(k,1727)
3046 254840160 : lu(k,1747) = lu(k,1747) - lu(k,923) * lu(k,1727)
3047 254840160 : lu(k,1753) = - lu(k,920) * lu(k,1749)
3048 254840160 : lu(k,1755) = - lu(k,921) * lu(k,1749)
3049 254840160 : lu(k,1766) = lu(k,1766) - lu(k,922) * lu(k,1749)
3050 254840160 : lu(k,1769) = lu(k,1769) - lu(k,923) * lu(k,1749)
3051 254840160 : lu(k,1814) = - lu(k,920) * lu(k,1808)
3052 254840160 : lu(k,1815) = lu(k,1815) - lu(k,921) * lu(k,1808)
3053 254840160 : lu(k,1830) = lu(k,1830) - lu(k,922) * lu(k,1808)
3054 254840160 : lu(k,1833) = lu(k,1833) - lu(k,923) * lu(k,1808)
3055 254840160 : lu(k,1846) = - lu(k,920) * lu(k,1839)
3056 254840160 : lu(k,1847) = lu(k,1847) - lu(k,921) * lu(k,1839)
3057 254840160 : lu(k,1861) = lu(k,1861) - lu(k,922) * lu(k,1839)
3058 254840160 : lu(k,1864) = lu(k,1864) - lu(k,923) * lu(k,1839)
3059 254840160 : lu(k,1943) = - lu(k,920) * lu(k,1937)
3060 254840160 : lu(k,1945) = - lu(k,921) * lu(k,1937)
3061 254840160 : lu(k,1964) = lu(k,1964) - lu(k,922) * lu(k,1937)
3062 254840160 : lu(k,1968) = lu(k,1968) - lu(k,923) * lu(k,1937)
3063 254840160 : lu(k,1980) = - lu(k,920) * lu(k,1973)
3064 254840160 : lu(k,1982) = - lu(k,921) * lu(k,1973)
3065 254840160 : lu(k,2003) = lu(k,2003) - lu(k,922) * lu(k,1973)
3066 254840160 : lu(k,2007) = lu(k,2007) - lu(k,923) * lu(k,1973)
3067 254840160 : lu(k,3410) = lu(k,3410) - lu(k,920) * lu(k,3385)
3068 254840160 : lu(k,3414) = lu(k,3414) - lu(k,921) * lu(k,3385)
3069 254840160 : lu(k,3462) = lu(k,3462) - lu(k,922) * lu(k,3385)
3070 254840160 : lu(k,3471) = lu(k,3471) - lu(k,923) * lu(k,3385)
3071 254840160 : lu(k,4040) = lu(k,4040) - lu(k,920) * lu(k,3973)
3072 254840160 : lu(k,4044) = lu(k,4044) - lu(k,921) * lu(k,3973)
3073 254840160 : lu(k,4092) = lu(k,4092) - lu(k,922) * lu(k,3973)
3074 254840160 : lu(k,4101) = lu(k,4101) - lu(k,923) * lu(k,3973)
3075 254840160 : lu(k,924) = 1._r8 / lu(k,924)
3076 254840160 : lu(k,925) = lu(k,925) * lu(k,924)
3077 254840160 : lu(k,926) = lu(k,926) * lu(k,924)
3078 254840160 : lu(k,927) = lu(k,927) * lu(k,924)
3079 254840160 : lu(k,928) = lu(k,928) * lu(k,924)
3080 254840160 : lu(k,1369) = - lu(k,925) * lu(k,1360)
3081 254840160 : lu(k,1371) = - lu(k,926) * lu(k,1360)
3082 254840160 : lu(k,1373) = lu(k,1373) - lu(k,927) * lu(k,1360)
3083 254840160 : lu(k,1376) = lu(k,1376) - lu(k,928) * lu(k,1360)
3084 254840160 : lu(k,1581) = lu(k,1581) - lu(k,925) * lu(k,1563)
3085 254840160 : lu(k,1585) = - lu(k,926) * lu(k,1563)
3086 254840160 : lu(k,1590) = lu(k,1590) - lu(k,927) * lu(k,1563)
3087 254840160 : lu(k,1595) = lu(k,1595) - lu(k,928) * lu(k,1563)
3088 254840160 : lu(k,1820) = lu(k,1820) - lu(k,925) * lu(k,1809)
3089 254840160 : lu(k,1826) = lu(k,1826) - lu(k,926) * lu(k,1809)
3090 254840160 : lu(k,1829) = lu(k,1829) - lu(k,927) * lu(k,1809)
3091 254840160 : lu(k,1833) = lu(k,1833) - lu(k,928) * lu(k,1809)
3092 254840160 : lu(k,1852) = lu(k,1852) - lu(k,925) * lu(k,1840)
3093 254840160 : lu(k,1857) = lu(k,1857) - lu(k,926) * lu(k,1840)
3094 254840160 : lu(k,1860) = lu(k,1860) - lu(k,927) * lu(k,1840)
3095 254840160 : lu(k,1864) = lu(k,1864) - lu(k,928) * lu(k,1840)
3096 254840160 : lu(k,3069) = lu(k,3069) - lu(k,925) * lu(k,3009)
3097 254840160 : lu(k,3103) = lu(k,3103) - lu(k,926) * lu(k,3009)
3098 254840160 : lu(k,3109) = lu(k,3109) - lu(k,927) * lu(k,3009)
3099 254840160 : lu(k,3119) = lu(k,3119) - lu(k,928) * lu(k,3009)
3100 254840160 : lu(k,3328) = lu(k,3328) - lu(k,925) * lu(k,3264)
3101 254840160 : lu(k,3362) = lu(k,3362) - lu(k,926) * lu(k,3264)
3102 254840160 : lu(k,3368) = lu(k,3368) - lu(k,927) * lu(k,3264)
3103 254840160 : lu(k,3378) = lu(k,3378) - lu(k,928) * lu(k,3264)
3104 254840160 : lu(k,3721) = lu(k,3721) - lu(k,925) * lu(k,3684)
3105 254840160 : lu(k,3753) = lu(k,3753) - lu(k,926) * lu(k,3684)
3106 254840160 : lu(k,3759) = lu(k,3759) - lu(k,927) * lu(k,3684)
3107 254840160 : lu(k,3769) = lu(k,3769) - lu(k,928) * lu(k,3684)
3108 254840160 : lu(k,4052) = lu(k,4052) - lu(k,925) * lu(k,3974)
3109 254840160 : lu(k,4085) = lu(k,4085) - lu(k,926) * lu(k,3974)
3110 254840160 : lu(k,4091) = lu(k,4091) - lu(k,927) * lu(k,3974)
3111 254840160 : lu(k,4101) = lu(k,4101) - lu(k,928) * lu(k,3974)
3112 254840160 : lu(k,929) = 1._r8 / lu(k,929)
3113 254840160 : lu(k,930) = lu(k,930) * lu(k,929)
3114 254840160 : lu(k,931) = lu(k,931) * lu(k,929)
3115 254840160 : lu(k,932) = lu(k,932) * lu(k,929)
3116 254840160 : lu(k,933) = lu(k,933) * lu(k,929)
3117 254840160 : lu(k,934) = lu(k,934) * lu(k,929)
3118 254840160 : lu(k,935) = lu(k,935) * lu(k,929)
3119 254840160 : lu(k,936) = lu(k,936) * lu(k,929)
3120 254840160 : lu(k,937) = lu(k,937) * lu(k,929)
3121 254840160 : lu(k,3042) = lu(k,3042) - lu(k,930) * lu(k,3010)
3122 254840160 : lu(k,3069) = lu(k,3069) - lu(k,931) * lu(k,3010)
3123 254840160 : lu(k,3074) = lu(k,3074) - lu(k,932) * lu(k,3010)
3124 254840160 : lu(k,3106) = lu(k,3106) - lu(k,933) * lu(k,3010)
3125 254840160 : lu(k,3110) = lu(k,3110) - lu(k,934) * lu(k,3010)
3126 254840160 : lu(k,3111) = lu(k,3111) - lu(k,935) * lu(k,3010)
3127 254840160 : lu(k,3115) = lu(k,3115) - lu(k,936) * lu(k,3010)
3128 254840160 : lu(k,3119) = lu(k,3119) - lu(k,937) * lu(k,3010)
3129 254840160 : lu(k,3299) = lu(k,3299) - lu(k,930) * lu(k,3265)
3130 254840160 : lu(k,3328) = lu(k,3328) - lu(k,931) * lu(k,3265)
3131 254840160 : lu(k,3333) = lu(k,3333) - lu(k,932) * lu(k,3265)
3132 254840160 : lu(k,3365) = lu(k,3365) - lu(k,933) * lu(k,3265)
3133 254840160 : lu(k,3369) = lu(k,3369) - lu(k,934) * lu(k,3265)
3134 254840160 : lu(k,3370) = lu(k,3370) - lu(k,935) * lu(k,3265)
3135 254840160 : lu(k,3374) = lu(k,3374) - lu(k,936) * lu(k,3265)
3136 254840160 : lu(k,3378) = lu(k,3378) - lu(k,937) * lu(k,3265)
3137 254840160 : lu(k,3638) = lu(k,3638) - lu(k,930) * lu(k,3633)
3138 254840160 : lu(k,3643) = lu(k,3643) - lu(k,931) * lu(k,3633)
3139 254840160 : lu(k,3644) = lu(k,3644) - lu(k,932) * lu(k,3633)
3140 254840160 : lu(k,3654) = lu(k,3654) - lu(k,933) * lu(k,3633)
3141 254840160 : lu(k,3658) = lu(k,3658) - lu(k,934) * lu(k,3633)
3142 254840160 : lu(k,3659) = lu(k,3659) - lu(k,935) * lu(k,3633)
3143 254840160 : lu(k,3663) = lu(k,3663) - lu(k,936) * lu(k,3633)
3144 254840160 : lu(k,3667) = lu(k,3667) - lu(k,937) * lu(k,3633)
3145 254840160 : lu(k,4021) = lu(k,4021) - lu(k,930) * lu(k,3975)
3146 254840160 : lu(k,4052) = lu(k,4052) - lu(k,931) * lu(k,3975)
3147 254840160 : lu(k,4057) = lu(k,4057) - lu(k,932) * lu(k,3975)
3148 254840160 : lu(k,4088) = lu(k,4088) - lu(k,933) * lu(k,3975)
3149 254840160 : lu(k,4092) = lu(k,4092) - lu(k,934) * lu(k,3975)
3150 254840160 : lu(k,4093) = lu(k,4093) - lu(k,935) * lu(k,3975)
3151 254840160 : lu(k,4097) = lu(k,4097) - lu(k,936) * lu(k,3975)
3152 263009123 : lu(k,4101) = lu(k,4101) - lu(k,937) * lu(k,3975)
3153 : end do
3154 8168963 : end subroutine lu_fac20
3155 8168963 : subroutine lu_fac21( avec_len, lu )
3156 : use chem_mods, only : nzcnt
3157 : use shr_kind_mod, only : r8 => shr_kind_r8
3158 : implicit none
3159 : !-----------------------------------------------------------------------
3160 : ! ... dummy args
3161 : !-----------------------------------------------------------------------
3162 : integer, intent(in) :: avec_len
3163 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3164 : !-----------------------------------------------------------------------
3165 : ! ... local variables
3166 : !-----------------------------------------------------------------------
3167 : integer :: k
3168 263009123 : do k = 1,avec_len
3169 254840160 : lu(k,939) = 1._r8 / lu(k,939)
3170 254840160 : lu(k,940) = lu(k,940) * lu(k,939)
3171 254840160 : lu(k,941) = lu(k,941) * lu(k,939)
3172 254840160 : lu(k,942) = lu(k,942) * lu(k,939)
3173 254840160 : lu(k,943) = lu(k,943) * lu(k,939)
3174 254840160 : lu(k,944) = lu(k,944) * lu(k,939)
3175 254840160 : lu(k,945) = lu(k,945) * lu(k,939)
3176 254840160 : lu(k,946) = lu(k,946) * lu(k,939)
3177 254840160 : lu(k,947) = lu(k,947) * lu(k,939)
3178 254840160 : lu(k,1386) = lu(k,1386) - lu(k,940) * lu(k,1383)
3179 254840160 : lu(k,1389) = - lu(k,941) * lu(k,1383)
3180 254840160 : lu(k,1392) = - lu(k,942) * lu(k,1383)
3181 254840160 : lu(k,1393) = lu(k,1393) - lu(k,943) * lu(k,1383)
3182 254840160 : lu(k,1394) = lu(k,1394) - lu(k,944) * lu(k,1383)
3183 254840160 : lu(k,1397) = - lu(k,945) * lu(k,1383)
3184 254840160 : lu(k,1399) = lu(k,1399) - lu(k,946) * lu(k,1383)
3185 254840160 : lu(k,1400) = lu(k,1400) - lu(k,947) * lu(k,1383)
3186 254840160 : lu(k,3037) = lu(k,3037) - lu(k,940) * lu(k,3011)
3187 254840160 : lu(k,3061) = lu(k,3061) - lu(k,941) * lu(k,3011)
3188 254840160 : lu(k,3106) = lu(k,3106) - lu(k,942) * lu(k,3011)
3189 254840160 : lu(k,3109) = lu(k,3109) - lu(k,943) * lu(k,3011)
3190 254840160 : lu(k,3110) = lu(k,3110) - lu(k,944) * lu(k,3011)
3191 254840160 : lu(k,3115) = lu(k,3115) - lu(k,945) * lu(k,3011)
3192 254840160 : lu(k,3119) = lu(k,3119) - lu(k,946) * lu(k,3011)
3193 254840160 : lu(k,3120) = lu(k,3120) - lu(k,947) * lu(k,3011)
3194 254840160 : lu(k,3294) = lu(k,3294) - lu(k,940) * lu(k,3266)
3195 254840160 : lu(k,3320) = lu(k,3320) - lu(k,941) * lu(k,3266)
3196 254840160 : lu(k,3365) = lu(k,3365) - lu(k,942) * lu(k,3266)
3197 254840160 : lu(k,3368) = lu(k,3368) - lu(k,943) * lu(k,3266)
3198 254840160 : lu(k,3369) = lu(k,3369) - lu(k,944) * lu(k,3266)
3199 254840160 : lu(k,3374) = lu(k,3374) - lu(k,945) * lu(k,3266)
3200 254840160 : lu(k,3378) = lu(k,3378) - lu(k,946) * lu(k,3266)
3201 254840160 : lu(k,3379) = lu(k,3379) - lu(k,947) * lu(k,3266)
3202 254840160 : lu(k,4016) = lu(k,4016) - lu(k,940) * lu(k,3976)
3203 254840160 : lu(k,4044) = lu(k,4044) - lu(k,941) * lu(k,3976)
3204 254840160 : lu(k,4088) = lu(k,4088) - lu(k,942) * lu(k,3976)
3205 254840160 : lu(k,4091) = lu(k,4091) - lu(k,943) * lu(k,3976)
3206 254840160 : lu(k,4092) = lu(k,4092) - lu(k,944) * lu(k,3976)
3207 254840160 : lu(k,4097) = lu(k,4097) - lu(k,945) * lu(k,3976)
3208 254840160 : lu(k,4101) = lu(k,4101) - lu(k,946) * lu(k,3976)
3209 254840160 : lu(k,4102) = lu(k,4102) - lu(k,947) * lu(k,3976)
3210 254840160 : lu(k,951) = 1._r8 / lu(k,951)
3211 254840160 : lu(k,952) = lu(k,952) * lu(k,951)
3212 254840160 : lu(k,953) = lu(k,953) * lu(k,951)
3213 254840160 : lu(k,954) = lu(k,954) * lu(k,951)
3214 254840160 : lu(k,955) = lu(k,955) * lu(k,951)
3215 254840160 : lu(k,956) = lu(k,956) * lu(k,951)
3216 254840160 : lu(k,957) = lu(k,957) * lu(k,951)
3217 254840160 : lu(k,958) = lu(k,958) * lu(k,951)
3218 254840160 : lu(k,959) = lu(k,959) * lu(k,951)
3219 254840160 : lu(k,2316) = - lu(k,952) * lu(k,2315)
3220 254840160 : lu(k,2318) = - lu(k,953) * lu(k,2315)
3221 254840160 : lu(k,2321) = - lu(k,954) * lu(k,2315)
3222 254840160 : lu(k,2326) = - lu(k,955) * lu(k,2315)
3223 254840160 : lu(k,2328) = - lu(k,956) * lu(k,2315)
3224 254840160 : lu(k,2329) = lu(k,2329) - lu(k,957) * lu(k,2315)
3225 254840160 : lu(k,2331) = - lu(k,958) * lu(k,2315)
3226 254840160 : lu(k,2332) = lu(k,2332) - lu(k,959) * lu(k,2315)
3227 254840160 : lu(k,3014) = lu(k,3014) - lu(k,952) * lu(k,3012)
3228 254840160 : lu(k,3058) = lu(k,3058) - lu(k,953) * lu(k,3012)
3229 254840160 : lu(k,3087) = lu(k,3087) - lu(k,954) * lu(k,3012)
3230 254840160 : lu(k,3106) = lu(k,3106) - lu(k,955) * lu(k,3012)
3231 254840160 : lu(k,3109) = lu(k,3109) - lu(k,956) * lu(k,3012)
3232 254840160 : lu(k,3110) = lu(k,3110) - lu(k,957) * lu(k,3012)
3233 254840160 : lu(k,3115) = lu(k,3115) - lu(k,958) * lu(k,3012)
3234 254840160 : lu(k,3119) = lu(k,3119) - lu(k,959) * lu(k,3012)
3235 254840160 : lu(k,3269) = lu(k,3269) - lu(k,952) * lu(k,3267)
3236 254840160 : lu(k,3317) = lu(k,3317) - lu(k,953) * lu(k,3267)
3237 254840160 : lu(k,3346) = lu(k,3346) - lu(k,954) * lu(k,3267)
3238 254840160 : lu(k,3365) = lu(k,3365) - lu(k,955) * lu(k,3267)
3239 254840160 : lu(k,3368) = lu(k,3368) - lu(k,956) * lu(k,3267)
3240 254840160 : lu(k,3369) = lu(k,3369) - lu(k,957) * lu(k,3267)
3241 254840160 : lu(k,3374) = lu(k,3374) - lu(k,958) * lu(k,3267)
3242 254840160 : lu(k,3378) = lu(k,3378) - lu(k,959) * lu(k,3267)
3243 254840160 : lu(k,3979) = lu(k,3979) - lu(k,952) * lu(k,3977)
3244 254840160 : lu(k,4041) = lu(k,4041) - lu(k,953) * lu(k,3977)
3245 254840160 : lu(k,4069) = lu(k,4069) - lu(k,954) * lu(k,3977)
3246 254840160 : lu(k,4088) = lu(k,4088) - lu(k,955) * lu(k,3977)
3247 254840160 : lu(k,4091) = lu(k,4091) - lu(k,956) * lu(k,3977)
3248 254840160 : lu(k,4092) = lu(k,4092) - lu(k,957) * lu(k,3977)
3249 254840160 : lu(k,4097) = lu(k,4097) - lu(k,958) * lu(k,3977)
3250 254840160 : lu(k,4101) = lu(k,4101) - lu(k,959) * lu(k,3977)
3251 254840160 : lu(k,960) = 1._r8 / lu(k,960)
3252 254840160 : lu(k,961) = lu(k,961) * lu(k,960)
3253 254840160 : lu(k,962) = lu(k,962) * lu(k,960)
3254 254840160 : lu(k,963) = lu(k,963) * lu(k,960)
3255 254840160 : lu(k,964) = lu(k,964) * lu(k,960)
3256 254840160 : lu(k,965) = lu(k,965) * lu(k,960)
3257 254840160 : lu(k,966) = lu(k,966) * lu(k,960)
3258 254840160 : lu(k,967) = lu(k,967) * lu(k,960)
3259 254840160 : lu(k,968) = lu(k,968) * lu(k,960)
3260 254840160 : lu(k,2595) = lu(k,2595) - lu(k,961) * lu(k,2590)
3261 254840160 : lu(k,2596) = - lu(k,962) * lu(k,2590)
3262 254840160 : lu(k,2598) = - lu(k,963) * lu(k,2590)
3263 254840160 : lu(k,2601) = lu(k,2601) - lu(k,964) * lu(k,2590)
3264 254840160 : lu(k,2608) = - lu(k,965) * lu(k,2590)
3265 254840160 : lu(k,2612) = lu(k,2612) - lu(k,966) * lu(k,2590)
3266 254840160 : lu(k,2614) = lu(k,2614) - lu(k,967) * lu(k,2590)
3267 254840160 : lu(k,2617) = lu(k,2617) - lu(k,968) * lu(k,2590)
3268 254840160 : lu(k,3055) = lu(k,3055) - lu(k,961) * lu(k,3013)
3269 254840160 : lu(k,3056) = lu(k,3056) - lu(k,962) * lu(k,3013)
3270 254840160 : lu(k,3085) = lu(k,3085) - lu(k,963) * lu(k,3013)
3271 254840160 : lu(k,3096) = lu(k,3096) - lu(k,964) * lu(k,3013)
3272 254840160 : lu(k,3106) = lu(k,3106) - lu(k,965) * lu(k,3013)
3273 254840160 : lu(k,3110) = lu(k,3110) - lu(k,966) * lu(k,3013)
3274 254840160 : lu(k,3115) = lu(k,3115) - lu(k,967) * lu(k,3013)
3275 254840160 : lu(k,3119) = lu(k,3119) - lu(k,968) * lu(k,3013)
3276 254840160 : lu(k,3314) = lu(k,3314) - lu(k,961) * lu(k,3268)
3277 254840160 : lu(k,3315) = lu(k,3315) - lu(k,962) * lu(k,3268)
3278 254840160 : lu(k,3344) = lu(k,3344) - lu(k,963) * lu(k,3268)
3279 254840160 : lu(k,3355) = lu(k,3355) - lu(k,964) * lu(k,3268)
3280 254840160 : lu(k,3365) = lu(k,3365) - lu(k,965) * lu(k,3268)
3281 254840160 : lu(k,3369) = lu(k,3369) - lu(k,966) * lu(k,3268)
3282 254840160 : lu(k,3374) = lu(k,3374) - lu(k,967) * lu(k,3268)
3283 254840160 : lu(k,3378) = lu(k,3378) - lu(k,968) * lu(k,3268)
3284 254840160 : lu(k,4038) = lu(k,4038) - lu(k,961) * lu(k,3978)
3285 254840160 : lu(k,4039) = lu(k,4039) - lu(k,962) * lu(k,3978)
3286 254840160 : lu(k,4067) = lu(k,4067) - lu(k,963) * lu(k,3978)
3287 254840160 : lu(k,4078) = lu(k,4078) - lu(k,964) * lu(k,3978)
3288 254840160 : lu(k,4088) = lu(k,4088) - lu(k,965) * lu(k,3978)
3289 254840160 : lu(k,4092) = lu(k,4092) - lu(k,966) * lu(k,3978)
3290 254840160 : lu(k,4097) = lu(k,4097) - lu(k,967) * lu(k,3978)
3291 254840160 : lu(k,4101) = lu(k,4101) - lu(k,968) * lu(k,3978)
3292 254840160 : lu(k,969) = 1._r8 / lu(k,969)
3293 254840160 : lu(k,970) = lu(k,970) * lu(k,969)
3294 254840160 : lu(k,971) = lu(k,971) * lu(k,969)
3295 254840160 : lu(k,972) = lu(k,972) * lu(k,969)
3296 254840160 : lu(k,1007) = - lu(k,970) * lu(k,1005)
3297 254840160 : lu(k,1011) = lu(k,1011) - lu(k,971) * lu(k,1005)
3298 254840160 : lu(k,1013) = lu(k,1013) - lu(k,972) * lu(k,1005)
3299 254840160 : lu(k,1018) = - lu(k,970) * lu(k,1014)
3300 254840160 : lu(k,1020) = lu(k,1020) - lu(k,971) * lu(k,1014)
3301 254840160 : lu(k,1022) = lu(k,1022) - lu(k,972) * lu(k,1014)
3302 254840160 : lu(k,1220) = - lu(k,970) * lu(k,1216)
3303 254840160 : lu(k,1224) = lu(k,1224) - lu(k,971) * lu(k,1216)
3304 254840160 : lu(k,1226) = lu(k,1226) - lu(k,972) * lu(k,1216)
3305 254840160 : lu(k,1688) = lu(k,1688) - lu(k,970) * lu(k,1686)
3306 254840160 : lu(k,1694) = lu(k,1694) - lu(k,971) * lu(k,1686)
3307 254840160 : lu(k,1696) = lu(k,1696) - lu(k,972) * lu(k,1686)
3308 254840160 : lu(k,1701) = - lu(k,970) * lu(k,1698)
3309 254840160 : lu(k,1707) = lu(k,1707) - lu(k,971) * lu(k,1698)
3310 254840160 : lu(k,1709) = lu(k,1709) - lu(k,972) * lu(k,1698)
3311 254840160 : lu(k,2317) = - lu(k,970) * lu(k,2316)
3312 254840160 : lu(k,2329) = lu(k,2329) - lu(k,971) * lu(k,2316)
3313 254840160 : lu(k,2332) = lu(k,2332) - lu(k,972) * lu(k,2316)
3314 254840160 : lu(k,2432) = lu(k,2432) - lu(k,970) * lu(k,2428)
3315 254840160 : lu(k,2454) = lu(k,2454) - lu(k,971) * lu(k,2428)
3316 254840160 : lu(k,2458) = lu(k,2458) - lu(k,972) * lu(k,2428)
3317 254840160 : lu(k,2624) = - lu(k,970) * lu(k,2620)
3318 254840160 : lu(k,2640) = lu(k,2640) - lu(k,971) * lu(k,2620)
3319 254840160 : lu(k,2645) = lu(k,2645) - lu(k,972) * lu(k,2620)
3320 254840160 : lu(k,3050) = lu(k,3050) - lu(k,970) * lu(k,3014)
3321 254840160 : lu(k,3110) = lu(k,3110) - lu(k,971) * lu(k,3014)
3322 254840160 : lu(k,3119) = lu(k,3119) - lu(k,972) * lu(k,3014)
3323 254840160 : lu(k,3307) = lu(k,3307) - lu(k,970) * lu(k,3269)
3324 254840160 : lu(k,3369) = lu(k,3369) - lu(k,971) * lu(k,3269)
3325 254840160 : lu(k,3378) = lu(k,3378) - lu(k,972) * lu(k,3269)
3326 254840160 : lu(k,4030) = lu(k,4030) - lu(k,970) * lu(k,3979)
3327 254840160 : lu(k,4092) = lu(k,4092) - lu(k,971) * lu(k,3979)
3328 254840160 : lu(k,4101) = lu(k,4101) - lu(k,972) * lu(k,3979)
3329 254840160 : lu(k,974) = 1._r8 / lu(k,974)
3330 254840160 : lu(k,975) = lu(k,975) * lu(k,974)
3331 254840160 : lu(k,976) = lu(k,976) * lu(k,974)
3332 254840160 : lu(k,977) = lu(k,977) * lu(k,974)
3333 254840160 : lu(k,978) = lu(k,978) * lu(k,974)
3334 254840160 : lu(k,979) = lu(k,979) * lu(k,974)
3335 254840160 : lu(k,980) = lu(k,980) * lu(k,974)
3336 254840160 : lu(k,981) = lu(k,981) * lu(k,974)
3337 254840160 : lu(k,982) = lu(k,982) * lu(k,974)
3338 254840160 : lu(k,983) = lu(k,983) * lu(k,974)
3339 254840160 : lu(k,984) = lu(k,984) * lu(k,974)
3340 254840160 : lu(k,985) = lu(k,985) * lu(k,974)
3341 254840160 : lu(k,3037) = lu(k,3037) - lu(k,975) * lu(k,3015)
3342 254840160 : lu(k,3057) = lu(k,3057) - lu(k,976) * lu(k,3015)
3343 254840160 : lu(k,3061) = lu(k,3061) - lu(k,977) * lu(k,3015)
3344 254840160 : lu(k,3074) = lu(k,3074) - lu(k,978) * lu(k,3015)
3345 254840160 : lu(k,3083) = lu(k,3083) - lu(k,979) * lu(k,3015)
3346 254840160 : lu(k,3103) = lu(k,3103) - lu(k,980) * lu(k,3015)
3347 254840160 : lu(k,3105) = lu(k,3105) - lu(k,981) * lu(k,3015)
3348 254840160 : lu(k,3109) = lu(k,3109) - lu(k,982) * lu(k,3015)
3349 254840160 : lu(k,3110) = lu(k,3110) - lu(k,983) * lu(k,3015)
3350 254840160 : lu(k,3115) = lu(k,3115) - lu(k,984) * lu(k,3015)
3351 254840160 : lu(k,3119) = lu(k,3119) - lu(k,985) * lu(k,3015)
3352 254840160 : lu(k,3544) = lu(k,3544) - lu(k,975) * lu(k,3530)
3353 254840160 : lu(k,3555) = - lu(k,976) * lu(k,3530)
3354 254840160 : lu(k,3559) = lu(k,3559) - lu(k,977) * lu(k,3530)
3355 254840160 : lu(k,3570) = lu(k,3570) - lu(k,978) * lu(k,3530)
3356 254840160 : lu(k,3579) = lu(k,3579) - lu(k,979) * lu(k,3530)
3357 254840160 : lu(k,3599) = lu(k,3599) - lu(k,980) * lu(k,3530)
3358 254840160 : lu(k,3601) = lu(k,3601) - lu(k,981) * lu(k,3530)
3359 254840160 : lu(k,3605) = lu(k,3605) - lu(k,982) * lu(k,3530)
3360 254840160 : lu(k,3606) = lu(k,3606) - lu(k,983) * lu(k,3530)
3361 254840160 : lu(k,3611) = lu(k,3611) - lu(k,984) * lu(k,3530)
3362 254840160 : lu(k,3615) = lu(k,3615) - lu(k,985) * lu(k,3530)
3363 254840160 : lu(k,4016) = lu(k,4016) - lu(k,975) * lu(k,3980)
3364 254840160 : lu(k,4040) = lu(k,4040) - lu(k,976) * lu(k,3980)
3365 254840160 : lu(k,4044) = lu(k,4044) - lu(k,977) * lu(k,3980)
3366 254840160 : lu(k,4057) = lu(k,4057) - lu(k,978) * lu(k,3980)
3367 254840160 : lu(k,4065) = lu(k,4065) - lu(k,979) * lu(k,3980)
3368 254840160 : lu(k,4085) = lu(k,4085) - lu(k,980) * lu(k,3980)
3369 254840160 : lu(k,4087) = lu(k,4087) - lu(k,981) * lu(k,3980)
3370 254840160 : lu(k,4091) = lu(k,4091) - lu(k,982) * lu(k,3980)
3371 254840160 : lu(k,4092) = lu(k,4092) - lu(k,983) * lu(k,3980)
3372 254840160 : lu(k,4097) = lu(k,4097) - lu(k,984) * lu(k,3980)
3373 263009123 : lu(k,4101) = lu(k,4101) - lu(k,985) * lu(k,3980)
3374 : end do
3375 8168963 : end subroutine lu_fac21
3376 8168963 : subroutine lu_fac22( avec_len, lu )
3377 : use chem_mods, only : nzcnt
3378 : use shr_kind_mod, only : r8 => shr_kind_r8
3379 : implicit none
3380 : !-----------------------------------------------------------------------
3381 : ! ... dummy args
3382 : !-----------------------------------------------------------------------
3383 : integer, intent(in) :: avec_len
3384 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3385 : !-----------------------------------------------------------------------
3386 : ! ... local variables
3387 : !-----------------------------------------------------------------------
3388 : integer :: k
3389 263009123 : do k = 1,avec_len
3390 254840160 : lu(k,986) = 1._r8 / lu(k,986)
3391 254840160 : lu(k,987) = lu(k,987) * lu(k,986)
3392 254840160 : lu(k,988) = lu(k,988) * lu(k,986)
3393 254840160 : lu(k,989) = lu(k,989) * lu(k,986)
3394 254840160 : lu(k,990) = lu(k,990) * lu(k,986)
3395 254840160 : lu(k,991) = lu(k,991) * lu(k,986)
3396 254840160 : lu(k,992) = lu(k,992) * lu(k,986)
3397 254840160 : lu(k,993) = lu(k,993) * lu(k,986)
3398 254840160 : lu(k,1220) = lu(k,1220) - lu(k,987) * lu(k,1217)
3399 254840160 : lu(k,1221) = - lu(k,988) * lu(k,1217)
3400 254840160 : lu(k,1222) = - lu(k,989) * lu(k,1217)
3401 254840160 : lu(k,1224) = lu(k,1224) - lu(k,990) * lu(k,1217)
3402 254840160 : lu(k,1225) = lu(k,1225) - lu(k,991) * lu(k,1217)
3403 254840160 : lu(k,1226) = lu(k,1226) - lu(k,992) * lu(k,1217)
3404 254840160 : lu(k,1227) = - lu(k,993) * lu(k,1217)
3405 254840160 : lu(k,2531) = lu(k,2531) - lu(k,987) * lu(k,2525)
3406 254840160 : lu(k,2535) = - lu(k,988) * lu(k,2525)
3407 254840160 : lu(k,2536) = lu(k,2536) - lu(k,989) * lu(k,2525)
3408 254840160 : lu(k,2548) = lu(k,2548) - lu(k,990) * lu(k,2525)
3409 254840160 : lu(k,2551) = lu(k,2551) - lu(k,991) * lu(k,2525)
3410 254840160 : lu(k,2552) = lu(k,2552) - lu(k,992) * lu(k,2525)
3411 254840160 : lu(k,2553) = - lu(k,993) * lu(k,2525)
3412 254840160 : lu(k,3050) = lu(k,3050) - lu(k,987) * lu(k,3016)
3413 254840160 : lu(k,3087) = lu(k,3087) - lu(k,988) * lu(k,3016)
3414 254840160 : lu(k,3093) = lu(k,3093) - lu(k,989) * lu(k,3016)
3415 254840160 : lu(k,3110) = lu(k,3110) - lu(k,990) * lu(k,3016)
3416 254840160 : lu(k,3115) = lu(k,3115) - lu(k,991) * lu(k,3016)
3417 254840160 : lu(k,3119) = lu(k,3119) - lu(k,992) * lu(k,3016)
3418 254840160 : lu(k,3120) = lu(k,3120) - lu(k,993) * lu(k,3016)
3419 254840160 : lu(k,3307) = lu(k,3307) - lu(k,987) * lu(k,3270)
3420 254840160 : lu(k,3346) = lu(k,3346) - lu(k,988) * lu(k,3270)
3421 254840160 : lu(k,3352) = lu(k,3352) - lu(k,989) * lu(k,3270)
3422 254840160 : lu(k,3369) = lu(k,3369) - lu(k,990) * lu(k,3270)
3423 254840160 : lu(k,3374) = lu(k,3374) - lu(k,991) * lu(k,3270)
3424 254840160 : lu(k,3378) = lu(k,3378) - lu(k,992) * lu(k,3270)
3425 254840160 : lu(k,3379) = lu(k,3379) - lu(k,993) * lu(k,3270)
3426 254840160 : lu(k,4030) = lu(k,4030) - lu(k,987) * lu(k,3981)
3427 254840160 : lu(k,4069) = lu(k,4069) - lu(k,988) * lu(k,3981)
3428 254840160 : lu(k,4075) = lu(k,4075) - lu(k,989) * lu(k,3981)
3429 254840160 : lu(k,4092) = lu(k,4092) - lu(k,990) * lu(k,3981)
3430 254840160 : lu(k,4097) = lu(k,4097) - lu(k,991) * lu(k,3981)
3431 254840160 : lu(k,4101) = lu(k,4101) - lu(k,992) * lu(k,3981)
3432 254840160 : lu(k,4102) = lu(k,4102) - lu(k,993) * lu(k,3981)
3433 254840160 : lu(k,995) = 1._r8 / lu(k,995)
3434 254840160 : lu(k,996) = lu(k,996) * lu(k,995)
3435 254840160 : lu(k,997) = lu(k,997) * lu(k,995)
3436 254840160 : lu(k,998) = lu(k,998) * lu(k,995)
3437 254840160 : lu(k,999) = lu(k,999) * lu(k,995)
3438 254840160 : lu(k,1000) = lu(k,1000) * lu(k,995)
3439 254840160 : lu(k,1001) = lu(k,1001) * lu(k,995)
3440 254840160 : lu(k,1002) = lu(k,1002) * lu(k,995)
3441 254840160 : lu(k,3126) = lu(k,3126) - lu(k,996) * lu(k,3123)
3442 254840160 : lu(k,3129) = lu(k,3129) - lu(k,997) * lu(k,3123)
3443 254840160 : lu(k,3130) = lu(k,3130) - lu(k,998) * lu(k,3123)
3444 254840160 : lu(k,3134) = - lu(k,999) * lu(k,3123)
3445 254840160 : lu(k,3140) = lu(k,3140) - lu(k,1000) * lu(k,3123)
3446 254840160 : lu(k,3141) = lu(k,3141) - lu(k,1001) * lu(k,3123)
3447 254840160 : lu(k,3142) = lu(k,3142) - lu(k,1002) * lu(k,3123)
3448 254840160 : lu(k,3155) = lu(k,3155) - lu(k,996) * lu(k,3146)
3449 254840160 : lu(k,3160) = lu(k,3160) - lu(k,997) * lu(k,3146)
3450 254840160 : lu(k,3161) = lu(k,3161) - lu(k,998) * lu(k,3146)
3451 254840160 : lu(k,3165) = lu(k,3165) - lu(k,999) * lu(k,3146)
3452 254840160 : lu(k,3171) = lu(k,3171) - lu(k,1000) * lu(k,3146)
3453 254840160 : lu(k,3172) = lu(k,3172) - lu(k,1001) * lu(k,3146)
3454 254840160 : lu(k,3173) = - lu(k,1002) * lu(k,3146)
3455 254840160 : lu(k,3338) = lu(k,3338) - lu(k,996) * lu(k,3271)
3456 254840160 : lu(k,3366) = lu(k,3366) - lu(k,997) * lu(k,3271)
3457 254840160 : lu(k,3367) = lu(k,3367) - lu(k,998) * lu(k,3271)
3458 254840160 : lu(k,3371) = lu(k,3371) - lu(k,999) * lu(k,3271)
3459 254840160 : lu(k,3377) = lu(k,3377) - lu(k,1000) * lu(k,3271)
3460 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1001) * lu(k,3271)
3461 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1002) * lu(k,3271)
3462 254840160 : lu(k,3479) = lu(k,3479) - lu(k,996) * lu(k,3476)
3463 254840160 : lu(k,3483) = - lu(k,997) * lu(k,3476)
3464 254840160 : lu(k,3484) = lu(k,3484) - lu(k,998) * lu(k,3476)
3465 254840160 : lu(k,3488) = lu(k,3488) - lu(k,999) * lu(k,3476)
3466 254840160 : lu(k,3494) = lu(k,3494) - lu(k,1000) * lu(k,3476)
3467 254840160 : lu(k,3495) = lu(k,3495) - lu(k,1001) * lu(k,3476)
3468 254840160 : lu(k,3496) = - lu(k,1002) * lu(k,3476)
3469 254840160 : lu(k,3645) = lu(k,3645) - lu(k,996) * lu(k,3634)
3470 254840160 : lu(k,3655) = - lu(k,997) * lu(k,3634)
3471 254840160 : lu(k,3656) = lu(k,3656) - lu(k,998) * lu(k,3634)
3472 254840160 : lu(k,3660) = lu(k,3660) - lu(k,999) * lu(k,3634)
3473 254840160 : lu(k,3666) = - lu(k,1000) * lu(k,3634)
3474 254840160 : lu(k,3667) = lu(k,3667) - lu(k,1001) * lu(k,3634)
3475 254840160 : lu(k,3668) = lu(k,3668) - lu(k,1002) * lu(k,3634)
3476 254840160 : lu(k,1006) = 1._r8 / lu(k,1006)
3477 254840160 : lu(k,1007) = lu(k,1007) * lu(k,1006)
3478 254840160 : lu(k,1008) = lu(k,1008) * lu(k,1006)
3479 254840160 : lu(k,1009) = lu(k,1009) * lu(k,1006)
3480 254840160 : lu(k,1010) = lu(k,1010) * lu(k,1006)
3481 254840160 : lu(k,1011) = lu(k,1011) * lu(k,1006)
3482 254840160 : lu(k,1012) = lu(k,1012) * lu(k,1006)
3483 254840160 : lu(k,1013) = lu(k,1013) * lu(k,1006)
3484 254840160 : lu(k,2403) = - lu(k,1007) * lu(k,2401)
3485 254840160 : lu(k,2406) = - lu(k,1008) * lu(k,2401)
3486 254840160 : lu(k,2407) = - lu(k,1009) * lu(k,2401)
3487 254840160 : lu(k,2419) = lu(k,2419) - lu(k,1010) * lu(k,2401)
3488 254840160 : lu(k,2422) = lu(k,2422) - lu(k,1011) * lu(k,2401)
3489 254840160 : lu(k,2425) = lu(k,2425) - lu(k,1012) * lu(k,2401)
3490 254840160 : lu(k,2426) = lu(k,2426) - lu(k,1013) * lu(k,2401)
3491 254840160 : lu(k,2463) = - lu(k,1007) * lu(k,2461)
3492 254840160 : lu(k,2469) = - lu(k,1008) * lu(k,2461)
3493 254840160 : lu(k,2470) = - lu(k,1009) * lu(k,2461)
3494 254840160 : lu(k,2482) = lu(k,2482) - lu(k,1010) * lu(k,2461)
3495 254840160 : lu(k,2485) = lu(k,2485) - lu(k,1011) * lu(k,2461)
3496 254840160 : lu(k,2488) = lu(k,2488) - lu(k,1012) * lu(k,2461)
3497 254840160 : lu(k,2489) = lu(k,2489) - lu(k,1013) * lu(k,2461)
3498 254840160 : lu(k,3050) = lu(k,3050) - lu(k,1007) * lu(k,3017)
3499 254840160 : lu(k,3085) = lu(k,3085) - lu(k,1008) * lu(k,3017)
3500 254840160 : lu(k,3087) = lu(k,3087) - lu(k,1009) * lu(k,3017)
3501 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1010) * lu(k,3017)
3502 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1011) * lu(k,3017)
3503 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1012) * lu(k,3017)
3504 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1013) * lu(k,3017)
3505 254840160 : lu(k,3307) = lu(k,3307) - lu(k,1007) * lu(k,3272)
3506 254840160 : lu(k,3344) = lu(k,3344) - lu(k,1008) * lu(k,3272)
3507 254840160 : lu(k,3346) = lu(k,3346) - lu(k,1009) * lu(k,3272)
3508 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1010) * lu(k,3272)
3509 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1011) * lu(k,3272)
3510 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1012) * lu(k,3272)
3511 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1013) * lu(k,3272)
3512 254840160 : lu(k,4030) = lu(k,4030) - lu(k,1007) * lu(k,3982)
3513 254840160 : lu(k,4067) = lu(k,4067) - lu(k,1008) * lu(k,3982)
3514 254840160 : lu(k,4069) = lu(k,4069) - lu(k,1009) * lu(k,3982)
3515 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1010) * lu(k,3982)
3516 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1011) * lu(k,3982)
3517 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1012) * lu(k,3982)
3518 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1013) * lu(k,3982)
3519 254840160 : lu(k,1015) = 1._r8 / lu(k,1015)
3520 254840160 : lu(k,1016) = lu(k,1016) * lu(k,1015)
3521 254840160 : lu(k,1017) = lu(k,1017) * lu(k,1015)
3522 254840160 : lu(k,1018) = lu(k,1018) * lu(k,1015)
3523 254840160 : lu(k,1019) = lu(k,1019) * lu(k,1015)
3524 254840160 : lu(k,1020) = lu(k,1020) * lu(k,1015)
3525 254840160 : lu(k,1021) = lu(k,1021) * lu(k,1015)
3526 254840160 : lu(k,1022) = lu(k,1022) * lu(k,1015)
3527 254840160 : lu(k,2494) = - lu(k,1016) * lu(k,2493)
3528 254840160 : lu(k,2496) = lu(k,2496) - lu(k,1017) * lu(k,2493)
3529 254840160 : lu(k,2499) = - lu(k,1018) * lu(k,2493)
3530 254840160 : lu(k,2516) = lu(k,2516) - lu(k,1019) * lu(k,2493)
3531 254840160 : lu(k,2519) = lu(k,2519) - lu(k,1020) * lu(k,2493)
3532 254840160 : lu(k,2522) = lu(k,2522) - lu(k,1021) * lu(k,2493)
3533 254840160 : lu(k,2523) = lu(k,2523) - lu(k,1022) * lu(k,2493)
3534 254840160 : lu(k,2557) = - lu(k,1016) * lu(k,2556)
3535 254840160 : lu(k,2559) = lu(k,2559) - lu(k,1017) * lu(k,2556)
3536 254840160 : lu(k,2562) = - lu(k,1018) * lu(k,2556)
3537 254840160 : lu(k,2581) = lu(k,2581) - lu(k,1019) * lu(k,2556)
3538 254840160 : lu(k,2584) = lu(k,2584) - lu(k,1020) * lu(k,2556)
3539 254840160 : lu(k,2587) = lu(k,2587) - lu(k,1021) * lu(k,2556)
3540 254840160 : lu(k,2588) = lu(k,2588) - lu(k,1022) * lu(k,2556)
3541 254840160 : lu(k,3025) = lu(k,3025) - lu(k,1016) * lu(k,3018)
3542 254840160 : lu(k,3030) = lu(k,3030) - lu(k,1017) * lu(k,3018)
3543 254840160 : lu(k,3050) = lu(k,3050) - lu(k,1018) * lu(k,3018)
3544 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1019) * lu(k,3018)
3545 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1020) * lu(k,3018)
3546 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1021) * lu(k,3018)
3547 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1022) * lu(k,3018)
3548 254840160 : lu(k,3279) = lu(k,3279) - lu(k,1016) * lu(k,3273)
3549 254840160 : lu(k,3287) = lu(k,3287) - lu(k,1017) * lu(k,3273)
3550 254840160 : lu(k,3307) = lu(k,3307) - lu(k,1018) * lu(k,3273)
3551 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1019) * lu(k,3273)
3552 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1020) * lu(k,3273)
3553 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1021) * lu(k,3273)
3554 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1022) * lu(k,3273)
3555 254840160 : lu(k,3993) = lu(k,3993) - lu(k,1016) * lu(k,3983)
3556 254840160 : lu(k,4001) = lu(k,4001) - lu(k,1017) * lu(k,3983)
3557 254840160 : lu(k,4030) = lu(k,4030) - lu(k,1018) * lu(k,3983)
3558 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1019) * lu(k,3983)
3559 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1020) * lu(k,3983)
3560 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1021) * lu(k,3983)
3561 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1022) * lu(k,3983)
3562 : end do
3563 8168963 : end subroutine lu_fac22
3564 8168963 : subroutine lu_fac23( avec_len, lu )
3565 : use chem_mods, only : nzcnt
3566 : use shr_kind_mod, only : r8 => shr_kind_r8
3567 : implicit none
3568 : !-----------------------------------------------------------------------
3569 : ! ... dummy args
3570 : !-----------------------------------------------------------------------
3571 : integer, intent(in) :: avec_len
3572 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3573 : !-----------------------------------------------------------------------
3574 : ! ... local variables
3575 : !-----------------------------------------------------------------------
3576 : integer :: k
3577 263009123 : do k = 1,avec_len
3578 254840160 : lu(k,1024) = 1._r8 / lu(k,1024)
3579 254840160 : lu(k,1025) = lu(k,1025) * lu(k,1024)
3580 254840160 : lu(k,1026) = lu(k,1026) * lu(k,1024)
3581 254840160 : lu(k,1027) = lu(k,1027) * lu(k,1024)
3582 254840160 : lu(k,1028) = lu(k,1028) * lu(k,1024)
3583 254840160 : lu(k,1029) = lu(k,1029) * lu(k,1024)
3584 254840160 : lu(k,1030) = lu(k,1030) * lu(k,1024)
3585 254840160 : lu(k,1031) = lu(k,1031) * lu(k,1024)
3586 254840160 : lu(k,1032) = lu(k,1032) * lu(k,1024)
3587 254840160 : lu(k,1033) = lu(k,1033) * lu(k,1024)
3588 254840160 : lu(k,3037) = lu(k,3037) - lu(k,1025) * lu(k,3019)
3589 254840160 : lu(k,3083) = lu(k,3083) - lu(k,1026) * lu(k,3019)
3590 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1027) * lu(k,3019)
3591 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1028) * lu(k,3019)
3592 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1029) * lu(k,3019)
3593 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1030) * lu(k,3019)
3594 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1031) * lu(k,3019)
3595 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1032) * lu(k,3019)
3596 254840160 : lu(k,3120) = lu(k,3120) - lu(k,1033) * lu(k,3019)
3597 254840160 : lu(k,3294) = lu(k,3294) - lu(k,1025) * lu(k,3274)
3598 254840160 : lu(k,3342) = lu(k,3342) - lu(k,1026) * lu(k,3274)
3599 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1027) * lu(k,3274)
3600 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1028) * lu(k,3274)
3601 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1029) * lu(k,3274)
3602 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1030) * lu(k,3274)
3603 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1031) * lu(k,3274)
3604 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1032) * lu(k,3274)
3605 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1033) * lu(k,3274)
3606 254840160 : lu(k,3392) = lu(k,3392) - lu(k,1025) * lu(k,3386)
3607 254840160 : lu(k,3435) = lu(k,3435) - lu(k,1026) * lu(k,3386)
3608 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1027) * lu(k,3386)
3609 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1028) * lu(k,3386)
3610 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1029) * lu(k,3386)
3611 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1030) * lu(k,3386)
3612 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1031) * lu(k,3386)
3613 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1032) * lu(k,3386)
3614 254840160 : lu(k,3472) = lu(k,3472) - lu(k,1033) * lu(k,3386)
3615 254840160 : lu(k,4016) = lu(k,4016) - lu(k,1025) * lu(k,3984)
3616 254840160 : lu(k,4065) = lu(k,4065) - lu(k,1026) * lu(k,3984)
3617 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1027) * lu(k,3984)
3618 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1028) * lu(k,3984)
3619 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1029) * lu(k,3984)
3620 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1030) * lu(k,3984)
3621 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1031) * lu(k,3984)
3622 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1032) * lu(k,3984)
3623 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1033) * lu(k,3984)
3624 254840160 : lu(k,1041) = 1._r8 / lu(k,1041)
3625 254840160 : lu(k,1042) = lu(k,1042) * lu(k,1041)
3626 254840160 : lu(k,1043) = lu(k,1043) * lu(k,1041)
3627 254840160 : lu(k,1044) = lu(k,1044) * lu(k,1041)
3628 254840160 : lu(k,1045) = lu(k,1045) * lu(k,1041)
3629 254840160 : lu(k,1046) = lu(k,1046) * lu(k,1041)
3630 254840160 : lu(k,1047) = lu(k,1047) * lu(k,1041)
3631 254840160 : lu(k,1048) = lu(k,1048) * lu(k,1041)
3632 254840160 : lu(k,1049) = lu(k,1049) * lu(k,1041)
3633 254840160 : lu(k,1050) = lu(k,1050) * lu(k,1041)
3634 254840160 : lu(k,1051) = lu(k,1051) * lu(k,1041)
3635 254840160 : lu(k,1052) = lu(k,1052) * lu(k,1041)
3636 254840160 : lu(k,1053) = lu(k,1053) * lu(k,1041)
3637 254840160 : lu(k,3546) = - lu(k,1042) * lu(k,3531)
3638 254840160 : lu(k,3551) = lu(k,3551) - lu(k,1043) * lu(k,3531)
3639 254840160 : lu(k,3576) = lu(k,3576) - lu(k,1044) * lu(k,3531)
3640 254840160 : lu(k,3585) = lu(k,3585) - lu(k,1045) * lu(k,3531)
3641 254840160 : lu(k,3591) = lu(k,3591) - lu(k,1046) * lu(k,3531)
3642 254840160 : lu(k,3593) = lu(k,3593) - lu(k,1047) * lu(k,3531)
3643 254840160 : lu(k,3598) = lu(k,3598) - lu(k,1048) * lu(k,3531)
3644 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1049) * lu(k,3531)
3645 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1050) * lu(k,3531)
3646 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1051) * lu(k,3531)
3647 254840160 : lu(k,3612) = lu(k,3612) - lu(k,1052) * lu(k,3531)
3648 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1053) * lu(k,3531)
3649 254840160 : lu(k,3702) = lu(k,3702) - lu(k,1042) * lu(k,3685)
3650 254840160 : lu(k,3706) = lu(k,3706) - lu(k,1043) * lu(k,3685)
3651 254840160 : lu(k,3732) = - lu(k,1044) * lu(k,3685)
3652 254840160 : lu(k,3739) = - lu(k,1045) * lu(k,3685)
3653 254840160 : lu(k,3745) = lu(k,3745) - lu(k,1046) * lu(k,3685)
3654 254840160 : lu(k,3747) = lu(k,3747) - lu(k,1047) * lu(k,3685)
3655 254840160 : lu(k,3752) = lu(k,3752) - lu(k,1048) * lu(k,3685)
3656 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1049) * lu(k,3685)
3657 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1050) * lu(k,3685)
3658 254840160 : lu(k,3764) = lu(k,3764) - lu(k,1051) * lu(k,3685)
3659 254840160 : lu(k,3766) = lu(k,3766) - lu(k,1052) * lu(k,3685)
3660 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1053) * lu(k,3685)
3661 254840160 : lu(k,4023) = lu(k,4023) - lu(k,1042) * lu(k,3985)
3662 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1043) * lu(k,3985)
3663 254840160 : lu(k,4063) = - lu(k,1044) * lu(k,3985)
3664 254840160 : lu(k,4071) = lu(k,4071) - lu(k,1045) * lu(k,3985)
3665 254840160 : lu(k,4077) = lu(k,4077) - lu(k,1046) * lu(k,3985)
3666 254840160 : lu(k,4079) = lu(k,4079) - lu(k,1047) * lu(k,3985)
3667 254840160 : lu(k,4084) = lu(k,4084) - lu(k,1048) * lu(k,3985)
3668 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1049) * lu(k,3985)
3669 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1050) * lu(k,3985)
3670 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1051) * lu(k,3985)
3671 254840160 : lu(k,4098) = lu(k,4098) - lu(k,1052) * lu(k,3985)
3672 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1053) * lu(k,3985)
3673 254840160 : lu(k,1054) = 1._r8 / lu(k,1054)
3674 254840160 : lu(k,1055) = lu(k,1055) * lu(k,1054)
3675 254840160 : lu(k,1056) = lu(k,1056) * lu(k,1054)
3676 254840160 : lu(k,1057) = lu(k,1057) * lu(k,1054)
3677 254840160 : lu(k,1058) = lu(k,1058) * lu(k,1054)
3678 254840160 : lu(k,1059) = lu(k,1059) * lu(k,1054)
3679 254840160 : lu(k,1060) = lu(k,1060) * lu(k,1054)
3680 254840160 : lu(k,1061) = lu(k,1061) * lu(k,1054)
3681 254840160 : lu(k,1062) = lu(k,1062) * lu(k,1054)
3682 254840160 : lu(k,1063) = lu(k,1063) * lu(k,1054)
3683 254840160 : lu(k,1975) = - lu(k,1055) * lu(k,1974)
3684 254840160 : lu(k,1979) = - lu(k,1056) * lu(k,1974)
3685 254840160 : lu(k,1984) = - lu(k,1057) * lu(k,1974)
3686 254840160 : lu(k,1988) = - lu(k,1058) * lu(k,1974)
3687 254840160 : lu(k,2000) = lu(k,2000) - lu(k,1059) * lu(k,1974)
3688 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1060) * lu(k,1974)
3689 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1061) * lu(k,1974)
3690 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1062) * lu(k,1974)
3691 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1063) * lu(k,1974)
3692 254840160 : lu(k,3041) = - lu(k,1055) * lu(k,3020)
3693 254840160 : lu(k,3054) = lu(k,3054) - lu(k,1056) * lu(k,3020)
3694 254840160 : lu(k,3063) = lu(k,3063) - lu(k,1057) * lu(k,3020)
3695 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1058) * lu(k,3020)
3696 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1059) * lu(k,3020)
3697 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1060) * lu(k,3020)
3698 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1061) * lu(k,3020)
3699 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1062) * lu(k,3020)
3700 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1063) * lu(k,3020)
3701 254840160 : lu(k,3298) = lu(k,3298) - lu(k,1055) * lu(k,3275)
3702 254840160 : lu(k,3312) = - lu(k,1056) * lu(k,3275)
3703 254840160 : lu(k,3322) = - lu(k,1057) * lu(k,3275)
3704 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1058) * lu(k,3275)
3705 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1059) * lu(k,3275)
3706 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1060) * lu(k,3275)
3707 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1061) * lu(k,3275)
3708 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1062) * lu(k,3275)
3709 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1063) * lu(k,3275)
3710 254840160 : lu(k,4020) = lu(k,4020) - lu(k,1055) * lu(k,3986)
3711 254840160 : lu(k,4036) = lu(k,4036) - lu(k,1056) * lu(k,3986)
3712 254840160 : lu(k,4046) = lu(k,4046) - lu(k,1057) * lu(k,3986)
3713 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1058) * lu(k,3986)
3714 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1059) * lu(k,3986)
3715 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1060) * lu(k,3986)
3716 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1061) * lu(k,3986)
3717 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1062) * lu(k,3986)
3718 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1063) * lu(k,3986)
3719 254840160 : lu(k,1071) = 1._r8 / lu(k,1071)
3720 254840160 : lu(k,1072) = lu(k,1072) * lu(k,1071)
3721 254840160 : lu(k,1073) = lu(k,1073) * lu(k,1071)
3722 254840160 : lu(k,1074) = lu(k,1074) * lu(k,1071)
3723 254840160 : lu(k,1075) = lu(k,1075) * lu(k,1071)
3724 254840160 : lu(k,1076) = lu(k,1076) * lu(k,1071)
3725 254840160 : lu(k,1077) = lu(k,1077) * lu(k,1071)
3726 254840160 : lu(k,1078) = lu(k,1078) * lu(k,1071)
3727 254840160 : lu(k,1079) = lu(k,1079) * lu(k,1071)
3728 254840160 : lu(k,1080) = lu(k,1080) * lu(k,1071)
3729 254840160 : lu(k,1081) = lu(k,1081) * lu(k,1071)
3730 254840160 : lu(k,1082) = lu(k,1082) * lu(k,1071)
3731 254840160 : lu(k,1083) = lu(k,1083) * lu(k,1071)
3732 254840160 : lu(k,1084) = lu(k,1084) * lu(k,1071)
3733 254840160 : lu(k,3546) = lu(k,3546) - lu(k,1072) * lu(k,3532)
3734 254840160 : lu(k,3551) = lu(k,3551) - lu(k,1073) * lu(k,3532)
3735 254840160 : lu(k,3582) = lu(k,3582) - lu(k,1074) * lu(k,3532)
3736 254840160 : lu(k,3588) = lu(k,3588) - lu(k,1075) * lu(k,3532)
3737 254840160 : lu(k,3592) = lu(k,3592) - lu(k,1076) * lu(k,3532)
3738 254840160 : lu(k,3593) = lu(k,3593) - lu(k,1077) * lu(k,3532)
3739 254840160 : lu(k,3597) = lu(k,3597) - lu(k,1078) * lu(k,3532)
3740 254840160 : lu(k,3598) = lu(k,3598) - lu(k,1079) * lu(k,3532)
3741 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1080) * lu(k,3532)
3742 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1081) * lu(k,3532)
3743 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1082) * lu(k,3532)
3744 254840160 : lu(k,3612) = lu(k,3612) - lu(k,1083) * lu(k,3532)
3745 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1084) * lu(k,3532)
3746 254840160 : lu(k,3702) = lu(k,3702) - lu(k,1072) * lu(k,3686)
3747 254840160 : lu(k,3706) = lu(k,3706) - lu(k,1073) * lu(k,3686)
3748 254840160 : lu(k,3736) = - lu(k,1074) * lu(k,3686)
3749 254840160 : lu(k,3742) = - lu(k,1075) * lu(k,3686)
3750 254840160 : lu(k,3746) = lu(k,3746) - lu(k,1076) * lu(k,3686)
3751 254840160 : lu(k,3747) = lu(k,3747) - lu(k,1077) * lu(k,3686)
3752 254840160 : lu(k,3751) = lu(k,3751) - lu(k,1078) * lu(k,3686)
3753 254840160 : lu(k,3752) = lu(k,3752) - lu(k,1079) * lu(k,3686)
3754 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1080) * lu(k,3686)
3755 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1081) * lu(k,3686)
3756 254840160 : lu(k,3764) = lu(k,3764) - lu(k,1082) * lu(k,3686)
3757 254840160 : lu(k,3766) = lu(k,3766) - lu(k,1083) * lu(k,3686)
3758 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1084) * lu(k,3686)
3759 254840160 : lu(k,4023) = lu(k,4023) - lu(k,1072) * lu(k,3987)
3760 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1073) * lu(k,3987)
3761 254840160 : lu(k,4068) = lu(k,4068) - lu(k,1074) * lu(k,3987)
3762 254840160 : lu(k,4074) = - lu(k,1075) * lu(k,3987)
3763 254840160 : lu(k,4078) = lu(k,4078) - lu(k,1076) * lu(k,3987)
3764 254840160 : lu(k,4079) = lu(k,4079) - lu(k,1077) * lu(k,3987)
3765 254840160 : lu(k,4083) = lu(k,4083) - lu(k,1078) * lu(k,3987)
3766 254840160 : lu(k,4084) = lu(k,4084) - lu(k,1079) * lu(k,3987)
3767 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1080) * lu(k,3987)
3768 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1081) * lu(k,3987)
3769 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1082) * lu(k,3987)
3770 254840160 : lu(k,4098) = lu(k,4098) - lu(k,1083) * lu(k,3987)
3771 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1084) * lu(k,3987)
3772 : end do
3773 8168963 : end subroutine lu_fac23
3774 8168963 : subroutine lu_fac24( avec_len, lu )
3775 : use chem_mods, only : nzcnt
3776 : use shr_kind_mod, only : r8 => shr_kind_r8
3777 : implicit none
3778 : !-----------------------------------------------------------------------
3779 : ! ... dummy args
3780 : !-----------------------------------------------------------------------
3781 : integer, intent(in) :: avec_len
3782 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3783 : !-----------------------------------------------------------------------
3784 : ! ... local variables
3785 : !-----------------------------------------------------------------------
3786 : integer :: k
3787 263009123 : do k = 1,avec_len
3788 254840160 : lu(k,1092) = 1._r8 / lu(k,1092)
3789 254840160 : lu(k,1093) = lu(k,1093) * lu(k,1092)
3790 254840160 : lu(k,1094) = lu(k,1094) * lu(k,1092)
3791 254840160 : lu(k,1095) = lu(k,1095) * lu(k,1092)
3792 254840160 : lu(k,1096) = lu(k,1096) * lu(k,1092)
3793 254840160 : lu(k,1097) = lu(k,1097) * lu(k,1092)
3794 254840160 : lu(k,1098) = lu(k,1098) * lu(k,1092)
3795 254840160 : lu(k,1099) = lu(k,1099) * lu(k,1092)
3796 254840160 : lu(k,1100) = lu(k,1100) * lu(k,1092)
3797 254840160 : lu(k,1101) = lu(k,1101) * lu(k,1092)
3798 254840160 : lu(k,1102) = lu(k,1102) * lu(k,1092)
3799 254840160 : lu(k,1103) = lu(k,1103) * lu(k,1092)
3800 254840160 : lu(k,1104) = lu(k,1104) * lu(k,1092)
3801 254840160 : lu(k,1105) = lu(k,1105) * lu(k,1092)
3802 254840160 : lu(k,3534) = lu(k,3534) - lu(k,1093) * lu(k,3533)
3803 254840160 : lu(k,3535) = - lu(k,1094) * lu(k,3533)
3804 254840160 : lu(k,3536) = - lu(k,1095) * lu(k,3533)
3805 254840160 : lu(k,3541) = - lu(k,1096) * lu(k,3533)
3806 254840160 : lu(k,3546) = lu(k,3546) - lu(k,1097) * lu(k,3533)
3807 254840160 : lu(k,3551) = lu(k,3551) - lu(k,1098) * lu(k,3533)
3808 254840160 : lu(k,3584) = lu(k,3584) - lu(k,1099) * lu(k,3533)
3809 254840160 : lu(k,3589) = lu(k,3589) - lu(k,1100) * lu(k,3533)
3810 254840160 : lu(k,3596) = lu(k,3596) - lu(k,1101) * lu(k,3533)
3811 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1102) * lu(k,3533)
3812 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1103) * lu(k,3533)
3813 254840160 : lu(k,3612) = lu(k,3612) - lu(k,1104) * lu(k,3533)
3814 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1105) * lu(k,3533)
3815 254840160 : lu(k,3688) = lu(k,3688) - lu(k,1093) * lu(k,3687)
3816 254840160 : lu(k,3689) = lu(k,3689) - lu(k,1094) * lu(k,3687)
3817 254840160 : lu(k,3690) = lu(k,3690) - lu(k,1095) * lu(k,3687)
3818 254840160 : lu(k,3695) = lu(k,3695) - lu(k,1096) * lu(k,3687)
3819 254840160 : lu(k,3702) = lu(k,3702) - lu(k,1097) * lu(k,3687)
3820 254840160 : lu(k,3706) = lu(k,3706) - lu(k,1098) * lu(k,3687)
3821 254840160 : lu(k,3738) = - lu(k,1099) * lu(k,3687)
3822 254840160 : lu(k,3743) = - lu(k,1100) * lu(k,3687)
3823 254840160 : lu(k,3750) = lu(k,3750) - lu(k,1101) * lu(k,3687)
3824 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1102) * lu(k,3687)
3825 254840160 : lu(k,3764) = lu(k,3764) - lu(k,1103) * lu(k,3687)
3826 254840160 : lu(k,3766) = lu(k,3766) - lu(k,1104) * lu(k,3687)
3827 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1105) * lu(k,3687)
3828 254840160 : lu(k,3989) = lu(k,3989) - lu(k,1093) * lu(k,3988)
3829 254840160 : lu(k,3997) = lu(k,3997) - lu(k,1094) * lu(k,3988)
3830 254840160 : lu(k,3999) = lu(k,3999) - lu(k,1095) * lu(k,3988)
3831 254840160 : lu(k,4013) = lu(k,4013) - lu(k,1096) * lu(k,3988)
3832 254840160 : lu(k,4023) = lu(k,4023) - lu(k,1097) * lu(k,3988)
3833 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1098) * lu(k,3988)
3834 254840160 : lu(k,4070) = lu(k,4070) - lu(k,1099) * lu(k,3988)
3835 254840160 : lu(k,4075) = lu(k,4075) - lu(k,1100) * lu(k,3988)
3836 254840160 : lu(k,4082) = lu(k,4082) - lu(k,1101) * lu(k,3988)
3837 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1102) * lu(k,3988)
3838 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1103) * lu(k,3988)
3839 254840160 : lu(k,4098) = lu(k,4098) - lu(k,1104) * lu(k,3988)
3840 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1105) * lu(k,3988)
3841 254840160 : lu(k,1106) = 1._r8 / lu(k,1106)
3842 254840160 : lu(k,1107) = lu(k,1107) * lu(k,1106)
3843 254840160 : lu(k,1108) = lu(k,1108) * lu(k,1106)
3844 254840160 : lu(k,1109) = lu(k,1109) * lu(k,1106)
3845 254840160 : lu(k,2382) = lu(k,2382) - lu(k,1107) * lu(k,2369)
3846 254840160 : lu(k,2385) = lu(k,2385) - lu(k,1108) * lu(k,2369)
3847 254840160 : lu(k,2397) = lu(k,2397) - lu(k,1109) * lu(k,2369)
3848 254840160 : lu(k,2443) = lu(k,2443) - lu(k,1107) * lu(k,2429)
3849 254840160 : lu(k,2446) = lu(k,2446) - lu(k,1108) * lu(k,2429)
3850 254840160 : lu(k,2458) = lu(k,2458) - lu(k,1109) * lu(k,2429)
3851 254840160 : lu(k,2537) = lu(k,2537) - lu(k,1107) * lu(k,2526)
3852 254840160 : lu(k,2540) = lu(k,2540) - lu(k,1108) * lu(k,2526)
3853 254840160 : lu(k,2552) = lu(k,2552) - lu(k,1109) * lu(k,2526)
3854 254840160 : lu(k,2742) = lu(k,2742) - lu(k,1107) * lu(k,2718)
3855 254840160 : lu(k,2745) = lu(k,2745) - lu(k,1108) * lu(k,2718)
3856 254840160 : lu(k,2760) = lu(k,2760) - lu(k,1109) * lu(k,2718)
3857 254840160 : lu(k,2788) = lu(k,2788) - lu(k,1107) * lu(k,2764)
3858 254840160 : lu(k,2791) = lu(k,2791) - lu(k,1108) * lu(k,2764)
3859 254840160 : lu(k,2806) = lu(k,2806) - lu(k,1109) * lu(k,2764)
3860 254840160 : lu(k,2835) = lu(k,2835) - lu(k,1107) * lu(k,2810)
3861 254840160 : lu(k,2838) = lu(k,2838) - lu(k,1108) * lu(k,2810)
3862 254840160 : lu(k,2853) = lu(k,2853) - lu(k,1109) * lu(k,2810)
3863 254840160 : lu(k,2907) = lu(k,2907) - lu(k,1107) * lu(k,2858)
3864 254840160 : lu(k,2910) = lu(k,2910) - lu(k,1108) * lu(k,2858)
3865 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1109) * lu(k,2858)
3866 254840160 : lu(k,3097) = lu(k,3097) - lu(k,1107) * lu(k,3021)
3867 254840160 : lu(k,3100) = lu(k,3100) - lu(k,1108) * lu(k,3021)
3868 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1109) * lu(k,3021)
3869 254840160 : lu(k,3356) = lu(k,3356) - lu(k,1107) * lu(k,3276)
3870 254840160 : lu(k,3359) = lu(k,3359) - lu(k,1108) * lu(k,3276)
3871 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1109) * lu(k,3276)
3872 254840160 : lu(k,3449) = lu(k,3449) - lu(k,1107) * lu(k,3387)
3873 254840160 : lu(k,3452) = lu(k,3452) - lu(k,1108) * lu(k,3387)
3874 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1109) * lu(k,3387)
3875 254840160 : lu(k,3593) = lu(k,3593) - lu(k,1107) * lu(k,3534)
3876 254840160 : lu(k,3596) = lu(k,3596) - lu(k,1108) * lu(k,3534)
3877 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1109) * lu(k,3534)
3878 254840160 : lu(k,3747) = lu(k,3747) - lu(k,1107) * lu(k,3688)
3879 254840160 : lu(k,3750) = lu(k,3750) - lu(k,1108) * lu(k,3688)
3880 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1109) * lu(k,3688)
3881 254840160 : lu(k,4079) = lu(k,4079) - lu(k,1107) * lu(k,3989)
3882 254840160 : lu(k,4082) = lu(k,4082) - lu(k,1108) * lu(k,3989)
3883 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1109) * lu(k,3989)
3884 254840160 : lu(k,1110) = 1._r8 / lu(k,1110)
3885 254840160 : lu(k,1111) = lu(k,1111) * lu(k,1110)
3886 254840160 : lu(k,1112) = lu(k,1112) * lu(k,1110)
3887 254840160 : lu(k,1113) = lu(k,1113) * lu(k,1110)
3888 254840160 : lu(k,1114) = lu(k,1114) * lu(k,1110)
3889 254840160 : lu(k,1115) = lu(k,1115) * lu(k,1110)
3890 254840160 : lu(k,1116) = lu(k,1116) * lu(k,1110)
3891 254840160 : lu(k,1117) = lu(k,1117) * lu(k,1110)
3892 254840160 : lu(k,1118) = lu(k,1118) * lu(k,1110)
3893 254840160 : lu(k,1119) = lu(k,1119) * lu(k,1110)
3894 254840160 : lu(k,1120) = lu(k,1120) * lu(k,1110)
3895 254840160 : lu(k,1637) = lu(k,1637) - lu(k,1111) * lu(k,1634)
3896 254840160 : lu(k,1641) = - lu(k,1112) * lu(k,1634)
3897 254840160 : lu(k,1642) = - lu(k,1113) * lu(k,1634)
3898 254840160 : lu(k,1643) = lu(k,1643) - lu(k,1114) * lu(k,1634)
3899 254840160 : lu(k,1645) = lu(k,1645) - lu(k,1115) * lu(k,1634)
3900 254840160 : lu(k,1646) = lu(k,1646) - lu(k,1116) * lu(k,1634)
3901 254840160 : lu(k,1647) = lu(k,1647) - lu(k,1117) * lu(k,1634)
3902 254840160 : lu(k,1649) = - lu(k,1118) * lu(k,1634)
3903 254840160 : lu(k,1654) = lu(k,1654) - lu(k,1119) * lu(k,1634)
3904 254840160 : lu(k,1655) = lu(k,1655) - lu(k,1120) * lu(k,1634)
3905 254840160 : lu(k,1657) = - lu(k,1111) * lu(k,1656)
3906 254840160 : lu(k,1660) = lu(k,1660) - lu(k,1112) * lu(k,1656)
3907 254840160 : lu(k,1661) = lu(k,1661) - lu(k,1113) * lu(k,1656)
3908 254840160 : lu(k,1662) = - lu(k,1114) * lu(k,1656)
3909 254840160 : lu(k,1663) = - lu(k,1115) * lu(k,1656)
3910 254840160 : lu(k,1664) = - lu(k,1116) * lu(k,1656)
3911 254840160 : lu(k,1665) = - lu(k,1117) * lu(k,1656)
3912 254840160 : lu(k,1666) = lu(k,1666) - lu(k,1118) * lu(k,1656)
3913 254840160 : lu(k,1669) = lu(k,1669) - lu(k,1119) * lu(k,1656)
3914 254840160 : lu(k,1670) = lu(k,1670) - lu(k,1120) * lu(k,1656)
3915 254840160 : lu(k,3042) = lu(k,3042) - lu(k,1111) * lu(k,3022)
3916 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1112) * lu(k,3022)
3917 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1113) * lu(k,3022)
3918 254840160 : lu(k,3062) = lu(k,3062) - lu(k,1114) * lu(k,3022)
3919 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1115) * lu(k,3022)
3920 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1116) * lu(k,3022)
3921 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1117) * lu(k,3022)
3922 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1118) * lu(k,3022)
3923 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1119) * lu(k,3022)
3924 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1120) * lu(k,3022)
3925 254840160 : lu(k,4021) = lu(k,4021) - lu(k,1111) * lu(k,3990)
3926 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1112) * lu(k,3990)
3927 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1113) * lu(k,3990)
3928 254840160 : lu(k,4045) = lu(k,4045) - lu(k,1114) * lu(k,3990)
3929 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1115) * lu(k,3990)
3930 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1116) * lu(k,3990)
3931 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1117) * lu(k,3990)
3932 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1118) * lu(k,3990)
3933 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1119) * lu(k,3990)
3934 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1120) * lu(k,3990)
3935 254840160 : lu(k,1121) = 1._r8 / lu(k,1121)
3936 254840160 : lu(k,1122) = lu(k,1122) * lu(k,1121)
3937 254840160 : lu(k,1123) = lu(k,1123) * lu(k,1121)
3938 254840160 : lu(k,1124) = lu(k,1124) * lu(k,1121)
3939 254840160 : lu(k,1125) = lu(k,1125) * lu(k,1121)
3940 254840160 : lu(k,1126) = lu(k,1126) * lu(k,1121)
3941 254840160 : lu(k,1127) = lu(k,1127) * lu(k,1121)
3942 254840160 : lu(k,1128) = lu(k,1128) * lu(k,1121)
3943 254840160 : lu(k,1129) = lu(k,1129) * lu(k,1121)
3944 254840160 : lu(k,1130) = lu(k,1130) * lu(k,1121)
3945 254840160 : lu(k,1131) = lu(k,1131) * lu(k,1121)
3946 254840160 : lu(k,2063) = - lu(k,1122) * lu(k,2061)
3947 254840160 : lu(k,2065) = lu(k,2065) - lu(k,1123) * lu(k,2061)
3948 254840160 : lu(k,2069) = - lu(k,1124) * lu(k,2061)
3949 254840160 : lu(k,2070) = lu(k,2070) - lu(k,1125) * lu(k,2061)
3950 254840160 : lu(k,2072) = lu(k,2072) - lu(k,1126) * lu(k,2061)
3951 254840160 : lu(k,2082) = - lu(k,1127) * lu(k,2061)
3952 254840160 : lu(k,2085) = - lu(k,1128) * lu(k,2061)
3953 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1129) * lu(k,2061)
3954 254840160 : lu(k,2088) = lu(k,2088) - lu(k,1130) * lu(k,2061)
3955 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1131) * lu(k,2061)
3956 254840160 : lu(k,3041) = lu(k,3041) - lu(k,1122) * lu(k,3023)
3957 254840160 : lu(k,3043) = lu(k,3043) - lu(k,1123) * lu(k,3023)
3958 254840160 : lu(k,3054) = lu(k,3054) - lu(k,1124) * lu(k,3023)
3959 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1125) * lu(k,3023)
3960 254840160 : lu(k,3062) = lu(k,3062) - lu(k,1126) * lu(k,3023)
3961 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1127) * lu(k,3023)
3962 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1128) * lu(k,3023)
3963 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1129) * lu(k,3023)
3964 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1130) * lu(k,3023)
3965 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1131) * lu(k,3023)
3966 254840160 : lu(k,3298) = lu(k,3298) - lu(k,1122) * lu(k,3277)
3967 254840160 : lu(k,3300) = lu(k,3300) - lu(k,1123) * lu(k,3277)
3968 254840160 : lu(k,3312) = lu(k,3312) - lu(k,1124) * lu(k,3277)
3969 254840160 : lu(k,3316) = lu(k,3316) - lu(k,1125) * lu(k,3277)
3970 254840160 : lu(k,3321) = lu(k,3321) - lu(k,1126) * lu(k,3277)
3971 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1127) * lu(k,3277)
3972 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1128) * lu(k,3277)
3973 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1129) * lu(k,3277)
3974 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1130) * lu(k,3277)
3975 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1131) * lu(k,3277)
3976 254840160 : lu(k,4020) = lu(k,4020) - lu(k,1122) * lu(k,3991)
3977 254840160 : lu(k,4022) = lu(k,4022) - lu(k,1123) * lu(k,3991)
3978 254840160 : lu(k,4036) = lu(k,4036) - lu(k,1124) * lu(k,3991)
3979 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1125) * lu(k,3991)
3980 254840160 : lu(k,4045) = lu(k,4045) - lu(k,1126) * lu(k,3991)
3981 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1127) * lu(k,3991)
3982 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1128) * lu(k,3991)
3983 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1129) * lu(k,3991)
3984 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1130) * lu(k,3991)
3985 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1131) * lu(k,3991)
3986 : end do
3987 8168963 : end subroutine lu_fac24
3988 8168963 : subroutine lu_fac25( avec_len, lu )
3989 : use chem_mods, only : nzcnt
3990 : use shr_kind_mod, only : r8 => shr_kind_r8
3991 : implicit none
3992 : !-----------------------------------------------------------------------
3993 : ! ... dummy args
3994 : !-----------------------------------------------------------------------
3995 : integer, intent(in) :: avec_len
3996 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3997 : !-----------------------------------------------------------------------
3998 : ! ... local variables
3999 : !-----------------------------------------------------------------------
4000 : integer :: k
4001 263009123 : do k = 1,avec_len
4002 254840160 : lu(k,1132) = 1._r8 / lu(k,1132)
4003 254840160 : lu(k,1133) = lu(k,1133) * lu(k,1132)
4004 254840160 : lu(k,1134) = lu(k,1134) * lu(k,1132)
4005 254840160 : lu(k,1135) = lu(k,1135) * lu(k,1132)
4006 254840160 : lu(k,1136) = lu(k,1136) * lu(k,1132)
4007 254840160 : lu(k,1137) = lu(k,1137) * lu(k,1132)
4008 254840160 : lu(k,1138) = lu(k,1138) * lu(k,1132)
4009 254840160 : lu(k,1139) = lu(k,1139) * lu(k,1132)
4010 254840160 : lu(k,1140) = lu(k,1140) * lu(k,1132)
4011 254840160 : lu(k,1141) = lu(k,1141) * lu(k,1132)
4012 254840160 : lu(k,1142) = lu(k,1142) * lu(k,1132)
4013 254840160 : lu(k,2094) = lu(k,2094) - lu(k,1133) * lu(k,2093)
4014 254840160 : lu(k,2095) = - lu(k,1134) * lu(k,2093)
4015 254840160 : lu(k,2101) = - lu(k,1135) * lu(k,2093)
4016 254840160 : lu(k,2103) = lu(k,2103) - lu(k,1136) * lu(k,2093)
4017 254840160 : lu(k,2107) = lu(k,2107) - lu(k,1137) * lu(k,2093)
4018 254840160 : lu(k,2114) = - lu(k,1138) * lu(k,2093)
4019 254840160 : lu(k,2117) = - lu(k,1139) * lu(k,2093)
4020 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1140) * lu(k,2093)
4021 254840160 : lu(k,2120) = lu(k,2120) - lu(k,1141) * lu(k,2093)
4022 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1142) * lu(k,2093)
4023 254840160 : lu(k,3039) = lu(k,3039) - lu(k,1133) * lu(k,3024)
4024 254840160 : lu(k,3041) = lu(k,3041) - lu(k,1134) * lu(k,3024)
4025 254840160 : lu(k,3054) = lu(k,3054) - lu(k,1135) * lu(k,3024)
4026 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1136) * lu(k,3024)
4027 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1137) * lu(k,3024)
4028 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1138) * lu(k,3024)
4029 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1139) * lu(k,3024)
4030 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1140) * lu(k,3024)
4031 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1141) * lu(k,3024)
4032 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1142) * lu(k,3024)
4033 254840160 : lu(k,3296) = lu(k,3296) - lu(k,1133) * lu(k,3278)
4034 254840160 : lu(k,3298) = lu(k,3298) - lu(k,1134) * lu(k,3278)
4035 254840160 : lu(k,3312) = lu(k,3312) - lu(k,1135) * lu(k,3278)
4036 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1136) * lu(k,3278)
4037 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1137) * lu(k,3278)
4038 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1138) * lu(k,3278)
4039 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1139) * lu(k,3278)
4040 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1140) * lu(k,3278)
4041 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1141) * lu(k,3278)
4042 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1142) * lu(k,3278)
4043 254840160 : lu(k,4018) = lu(k,4018) - lu(k,1133) * lu(k,3992)
4044 254840160 : lu(k,4020) = lu(k,4020) - lu(k,1134) * lu(k,3992)
4045 254840160 : lu(k,4036) = lu(k,4036) - lu(k,1135) * lu(k,3992)
4046 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1136) * lu(k,3992)
4047 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1137) * lu(k,3992)
4048 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1138) * lu(k,3992)
4049 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1139) * lu(k,3992)
4050 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1140) * lu(k,3992)
4051 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1141) * lu(k,3992)
4052 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1142) * lu(k,3992)
4053 254840160 : lu(k,1143) = 1._r8 / lu(k,1143)
4054 254840160 : lu(k,1144) = lu(k,1144) * lu(k,1143)
4055 254840160 : lu(k,1145) = lu(k,1145) * lu(k,1143)
4056 254840160 : lu(k,1146) = lu(k,1146) * lu(k,1143)
4057 254840160 : lu(k,1147) = lu(k,1147) * lu(k,1143)
4058 254840160 : lu(k,1148) = lu(k,1148) * lu(k,1143)
4059 254840160 : lu(k,1149) = lu(k,1149) * lu(k,1143)
4060 254840160 : lu(k,2292) = lu(k,2292) - lu(k,1144) * lu(k,2289)
4061 254840160 : lu(k,2297) = lu(k,2297) - lu(k,1145) * lu(k,2289)
4062 254840160 : lu(k,2305) = - lu(k,1146) * lu(k,2289)
4063 254840160 : lu(k,2312) = lu(k,2312) - lu(k,1147) * lu(k,2289)
4064 254840160 : lu(k,2313) = lu(k,2313) - lu(k,1148) * lu(k,2289)
4065 254840160 : lu(k,2314) = - lu(k,1149) * lu(k,2289)
4066 254840160 : lu(k,2498) = - lu(k,1144) * lu(k,2494)
4067 254840160 : lu(k,2504) = - lu(k,1145) * lu(k,2494)
4068 254840160 : lu(k,2515) = lu(k,2515) - lu(k,1146) * lu(k,2494)
4069 254840160 : lu(k,2522) = lu(k,2522) - lu(k,1147) * lu(k,2494)
4070 254840160 : lu(k,2523) = lu(k,2523) - lu(k,1148) * lu(k,2494)
4071 254840160 : lu(k,2524) = - lu(k,1149) * lu(k,2494)
4072 254840160 : lu(k,2530) = lu(k,2530) - lu(k,1144) * lu(k,2527)
4073 254840160 : lu(k,2535) = lu(k,2535) - lu(k,1145) * lu(k,2527)
4074 254840160 : lu(k,2544) = - lu(k,1146) * lu(k,2527)
4075 254840160 : lu(k,2551) = lu(k,2551) - lu(k,1147) * lu(k,2527)
4076 254840160 : lu(k,2552) = lu(k,2552) - lu(k,1148) * lu(k,2527)
4077 254840160 : lu(k,2553) = lu(k,2553) - lu(k,1149) * lu(k,2527)
4078 254840160 : lu(k,2561) = - lu(k,1144) * lu(k,2557)
4079 254840160 : lu(k,2568) = - lu(k,1145) * lu(k,2557)
4080 254840160 : lu(k,2580) = lu(k,2580) - lu(k,1146) * lu(k,2557)
4081 254840160 : lu(k,2587) = lu(k,2587) - lu(k,1147) * lu(k,2557)
4082 254840160 : lu(k,2588) = lu(k,2588) - lu(k,1148) * lu(k,2557)
4083 254840160 : lu(k,2589) = - lu(k,1149) * lu(k,2557)
4084 254840160 : lu(k,3048) = lu(k,3048) - lu(k,1144) * lu(k,3025)
4085 254840160 : lu(k,3087) = lu(k,3087) - lu(k,1145) * lu(k,3025)
4086 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1146) * lu(k,3025)
4087 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1147) * lu(k,3025)
4088 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1148) * lu(k,3025)
4089 254840160 : lu(k,3120) = lu(k,3120) - lu(k,1149) * lu(k,3025)
4090 254840160 : lu(k,3305) = lu(k,3305) - lu(k,1144) * lu(k,3279)
4091 254840160 : lu(k,3346) = lu(k,3346) - lu(k,1145) * lu(k,3279)
4092 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1146) * lu(k,3279)
4093 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1147) * lu(k,3279)
4094 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1148) * lu(k,3279)
4095 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1149) * lu(k,3279)
4096 254840160 : lu(k,4028) = lu(k,4028) - lu(k,1144) * lu(k,3993)
4097 254840160 : lu(k,4069) = lu(k,4069) - lu(k,1145) * lu(k,3993)
4098 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1146) * lu(k,3993)
4099 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1147) * lu(k,3993)
4100 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1148) * lu(k,3993)
4101 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1149) * lu(k,3993)
4102 254840160 : lu(k,1150) = 1._r8 / lu(k,1150)
4103 254840160 : lu(k,1151) = lu(k,1151) * lu(k,1150)
4104 254840160 : lu(k,1152) = lu(k,1152) * lu(k,1150)
4105 254840160 : lu(k,1153) = lu(k,1153) * lu(k,1150)
4106 254840160 : lu(k,1154) = lu(k,1154) * lu(k,1150)
4107 254840160 : lu(k,1155) = lu(k,1155) * lu(k,1150)
4108 254840160 : lu(k,1156) = lu(k,1156) * lu(k,1150)
4109 254840160 : lu(k,1157) = lu(k,1157) * lu(k,1150)
4110 254840160 : lu(k,2199) = lu(k,2199) - lu(k,1151) * lu(k,2197)
4111 254840160 : lu(k,2200) = - lu(k,1152) * lu(k,2197)
4112 254840160 : lu(k,2201) = - lu(k,1153) * lu(k,2197)
4113 254840160 : lu(k,2204) = lu(k,2204) - lu(k,1154) * lu(k,2197)
4114 254840160 : lu(k,2206) = - lu(k,1155) * lu(k,2197)
4115 254840160 : lu(k,2207) = - lu(k,1156) * lu(k,2197)
4116 254840160 : lu(k,2208) = - lu(k,1157) * lu(k,2197)
4117 254840160 : lu(k,3155) = lu(k,3155) - lu(k,1151) * lu(k,3147)
4118 254840160 : lu(k,3157) = lu(k,3157) - lu(k,1152) * lu(k,3147)
4119 254840160 : lu(k,3161) = lu(k,3161) - lu(k,1153) * lu(k,3147)
4120 254840160 : lu(k,3165) = lu(k,3165) - lu(k,1154) * lu(k,3147)
4121 254840160 : lu(k,3170) = - lu(k,1155) * lu(k,3147)
4122 254840160 : lu(k,3172) = lu(k,3172) - lu(k,1156) * lu(k,3147)
4123 254840160 : lu(k,3173) = lu(k,3173) - lu(k,1157) * lu(k,3147)
4124 254840160 : lu(k,3181) = lu(k,3181) - lu(k,1151) * lu(k,3175)
4125 254840160 : lu(k,3183) = lu(k,3183) - lu(k,1152) * lu(k,3175)
4126 254840160 : lu(k,3187) = lu(k,3187) - lu(k,1153) * lu(k,3175)
4127 254840160 : lu(k,3191) = - lu(k,1154) * lu(k,3175)
4128 254840160 : lu(k,3196) = - lu(k,1155) * lu(k,3175)
4129 254840160 : lu(k,3198) = lu(k,3198) - lu(k,1156) * lu(k,3175)
4130 254840160 : lu(k,3199) = lu(k,3199) - lu(k,1157) * lu(k,3175)
4131 254840160 : lu(k,3338) = lu(k,3338) - lu(k,1151) * lu(k,3280)
4132 254840160 : lu(k,3363) = lu(k,3363) - lu(k,1152) * lu(k,3280)
4133 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1153) * lu(k,3280)
4134 254840160 : lu(k,3371) = lu(k,3371) - lu(k,1154) * lu(k,3280)
4135 254840160 : lu(k,3376) = - lu(k,1155) * lu(k,3280)
4136 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1156) * lu(k,3280)
4137 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1157) * lu(k,3280)
4138 254840160 : lu(k,3793) = lu(k,3793) - lu(k,1151) * lu(k,3790)
4139 254840160 : lu(k,3795) = lu(k,3795) - lu(k,1152) * lu(k,3790)
4140 254840160 : lu(k,3799) = lu(k,3799) - lu(k,1153) * lu(k,3790)
4141 254840160 : lu(k,3803) = lu(k,3803) - lu(k,1154) * lu(k,3790)
4142 254840160 : lu(k,3808) = lu(k,3808) - lu(k,1155) * lu(k,3790)
4143 254840160 : lu(k,3810) = lu(k,3810) - lu(k,1156) * lu(k,3790)
4144 254840160 : lu(k,3811) = lu(k,3811) - lu(k,1157) * lu(k,3790)
4145 254840160 : lu(k,4062) = lu(k,4062) - lu(k,1151) * lu(k,3994)
4146 254840160 : lu(k,4086) = lu(k,4086) - lu(k,1152) * lu(k,3994)
4147 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1153) * lu(k,3994)
4148 254840160 : lu(k,4094) = lu(k,4094) - lu(k,1154) * lu(k,3994)
4149 254840160 : lu(k,4099) = lu(k,4099) - lu(k,1155) * lu(k,3994)
4150 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1156) * lu(k,3994)
4151 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1157) * lu(k,3994)
4152 254840160 : lu(k,1159) = 1._r8 / lu(k,1159)
4153 254840160 : lu(k,1160) = lu(k,1160) * lu(k,1159)
4154 254840160 : lu(k,1161) = lu(k,1161) * lu(k,1159)
4155 254840160 : lu(k,1162) = lu(k,1162) * lu(k,1159)
4156 254840160 : lu(k,1163) = lu(k,1163) * lu(k,1159)
4157 254840160 : lu(k,1164) = lu(k,1164) * lu(k,1159)
4158 254840160 : lu(k,1165) = lu(k,1165) * lu(k,1159)
4159 254840160 : lu(k,1327) = lu(k,1327) - lu(k,1160) * lu(k,1324)
4160 254840160 : lu(k,1328) = lu(k,1328) - lu(k,1161) * lu(k,1324)
4161 254840160 : lu(k,1329) = lu(k,1329) - lu(k,1162) * lu(k,1324)
4162 254840160 : lu(k,1332) = lu(k,1332) - lu(k,1163) * lu(k,1324)
4163 254840160 : lu(k,1333) = lu(k,1333) - lu(k,1164) * lu(k,1324)
4164 254840160 : lu(k,1334) = - lu(k,1165) * lu(k,1324)
4165 254840160 : lu(k,3129) = lu(k,3129) - lu(k,1160) * lu(k,3124)
4166 254840160 : lu(k,3130) = lu(k,3130) - lu(k,1161) * lu(k,3124)
4167 254840160 : lu(k,3135) = lu(k,3135) - lu(k,1162) * lu(k,3124)
4168 254840160 : lu(k,3140) = lu(k,3140) - lu(k,1163) * lu(k,3124)
4169 254840160 : lu(k,3141) = lu(k,3141) - lu(k,1164) * lu(k,3124)
4170 254840160 : lu(k,3142) = lu(k,3142) - lu(k,1165) * lu(k,3124)
4171 254840160 : lu(k,3160) = lu(k,3160) - lu(k,1160) * lu(k,3148)
4172 254840160 : lu(k,3161) = lu(k,3161) - lu(k,1161) * lu(k,3148)
4173 254840160 : lu(k,3166) = lu(k,3166) - lu(k,1162) * lu(k,3148)
4174 254840160 : lu(k,3171) = lu(k,3171) - lu(k,1163) * lu(k,3148)
4175 254840160 : lu(k,3172) = lu(k,3172) - lu(k,1164) * lu(k,3148)
4176 254840160 : lu(k,3173) = lu(k,3173) - lu(k,1165) * lu(k,3148)
4177 254840160 : lu(k,3366) = lu(k,3366) - lu(k,1160) * lu(k,3281)
4178 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1161) * lu(k,3281)
4179 254840160 : lu(k,3372) = lu(k,3372) - lu(k,1162) * lu(k,3281)
4180 254840160 : lu(k,3377) = lu(k,3377) - lu(k,1163) * lu(k,3281)
4181 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1164) * lu(k,3281)
4182 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1165) * lu(k,3281)
4183 254840160 : lu(k,3509) = lu(k,3509) - lu(k,1160) * lu(k,3501)
4184 254840160 : lu(k,3510) = lu(k,3510) - lu(k,1161) * lu(k,3501)
4185 254840160 : lu(k,3515) = lu(k,3515) - lu(k,1162) * lu(k,3501)
4186 254840160 : lu(k,3520) = lu(k,3520) - lu(k,1163) * lu(k,3501)
4187 254840160 : lu(k,3521) = lu(k,3521) - lu(k,1164) * lu(k,3501)
4188 254840160 : lu(k,3522) = - lu(k,1165) * lu(k,3501)
4189 254840160 : lu(k,3839) = lu(k,3839) - lu(k,1160) * lu(k,3821)
4190 254840160 : lu(k,3840) = - lu(k,1161) * lu(k,3821)
4191 254840160 : lu(k,3845) = lu(k,3845) - lu(k,1162) * lu(k,3821)
4192 254840160 : lu(k,3850) = lu(k,3850) - lu(k,1163) * lu(k,3821)
4193 254840160 : lu(k,3851) = lu(k,3851) - lu(k,1164) * lu(k,3821)
4194 254840160 : lu(k,3852) = lu(k,3852) - lu(k,1165) * lu(k,3821)
4195 254840160 : lu(k,4089) = lu(k,4089) - lu(k,1160) * lu(k,3995)
4196 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1161) * lu(k,3995)
4197 254840160 : lu(k,4095) = lu(k,4095) - lu(k,1162) * lu(k,3995)
4198 254840160 : lu(k,4100) = lu(k,4100) - lu(k,1163) * lu(k,3995)
4199 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1164) * lu(k,3995)
4200 263009123 : lu(k,4102) = lu(k,4102) - lu(k,1165) * lu(k,3995)
4201 : end do
4202 8168963 : end subroutine lu_fac25
4203 8168963 : subroutine lu_fac26( avec_len, lu )
4204 : use chem_mods, only : nzcnt
4205 : use shr_kind_mod, only : r8 => shr_kind_r8
4206 : implicit none
4207 : !-----------------------------------------------------------------------
4208 : ! ... dummy args
4209 : !-----------------------------------------------------------------------
4210 : integer, intent(in) :: avec_len
4211 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4212 : !-----------------------------------------------------------------------
4213 : ! ... local variables
4214 : !-----------------------------------------------------------------------
4215 : integer :: k
4216 263009123 : do k = 1,avec_len
4217 254840160 : lu(k,1166) = 1._r8 / lu(k,1166)
4218 254840160 : lu(k,1167) = lu(k,1167) * lu(k,1166)
4219 254840160 : lu(k,1168) = lu(k,1168) * lu(k,1166)
4220 254840160 : lu(k,1169) = lu(k,1169) * lu(k,1166)
4221 254840160 : lu(k,1170) = lu(k,1170) * lu(k,1166)
4222 254840160 : lu(k,1171) = lu(k,1171) * lu(k,1166)
4223 254840160 : lu(k,1172) = lu(k,1172) * lu(k,1166)
4224 254840160 : lu(k,1173) = lu(k,1173) * lu(k,1166)
4225 254840160 : lu(k,1174) = lu(k,1174) * lu(k,1166)
4226 254840160 : lu(k,1175) = lu(k,1175) * lu(k,1166)
4227 254840160 : lu(k,1176) = lu(k,1176) * lu(k,1166)
4228 254840160 : lu(k,1177) = lu(k,1177) * lu(k,1166)
4229 254840160 : lu(k,1939) = - lu(k,1167) * lu(k,1938)
4230 254840160 : lu(k,1942) = - lu(k,1168) * lu(k,1938)
4231 254840160 : lu(k,1943) = lu(k,1943) - lu(k,1169) * lu(k,1938)
4232 254840160 : lu(k,1945) = lu(k,1945) - lu(k,1170) * lu(k,1938)
4233 254840160 : lu(k,1946) = - lu(k,1171) * lu(k,1938)
4234 254840160 : lu(k,1947) = - lu(k,1172) * lu(k,1938)
4235 254840160 : lu(k,1961) = lu(k,1961) - lu(k,1173) * lu(k,1938)
4236 254840160 : lu(k,1963) = lu(k,1963) - lu(k,1174) * lu(k,1938)
4237 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1175) * lu(k,1938)
4238 254840160 : lu(k,1967) = lu(k,1967) - lu(k,1176) * lu(k,1938)
4239 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1177) * lu(k,1938)
4240 254840160 : lu(k,3041) = lu(k,3041) - lu(k,1167) * lu(k,3026)
4241 254840160 : lu(k,3054) = lu(k,3054) - lu(k,1168) * lu(k,3026)
4242 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1169) * lu(k,3026)
4243 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1170) * lu(k,3026)
4244 254840160 : lu(k,3062) = lu(k,3062) - lu(k,1171) * lu(k,3026)
4245 254840160 : lu(k,3063) = lu(k,3063) - lu(k,1172) * lu(k,3026)
4246 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1173) * lu(k,3026)
4247 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1174) * lu(k,3026)
4248 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1175) * lu(k,3026)
4249 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1176) * lu(k,3026)
4250 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1177) * lu(k,3026)
4251 254840160 : lu(k,3298) = lu(k,3298) - lu(k,1167) * lu(k,3282)
4252 254840160 : lu(k,3312) = lu(k,3312) - lu(k,1168) * lu(k,3282)
4253 254840160 : lu(k,3316) = lu(k,3316) - lu(k,1169) * lu(k,3282)
4254 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1170) * lu(k,3282)
4255 254840160 : lu(k,3321) = lu(k,3321) - lu(k,1171) * lu(k,3282)
4256 254840160 : lu(k,3322) = lu(k,3322) - lu(k,1172) * lu(k,3282)
4257 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1173) * lu(k,3282)
4258 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1174) * lu(k,3282)
4259 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1175) * lu(k,3282)
4260 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1176) * lu(k,3282)
4261 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1177) * lu(k,3282)
4262 254840160 : lu(k,4020) = lu(k,4020) - lu(k,1167) * lu(k,3996)
4263 254840160 : lu(k,4036) = lu(k,4036) - lu(k,1168) * lu(k,3996)
4264 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1169) * lu(k,3996)
4265 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1170) * lu(k,3996)
4266 254840160 : lu(k,4045) = lu(k,4045) - lu(k,1171) * lu(k,3996)
4267 254840160 : lu(k,4046) = lu(k,4046) - lu(k,1172) * lu(k,3996)
4268 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1173) * lu(k,3996)
4269 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1174) * lu(k,3996)
4270 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1175) * lu(k,3996)
4271 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1176) * lu(k,3996)
4272 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1177) * lu(k,3996)
4273 254840160 : lu(k,1182) = 1._r8 / lu(k,1182)
4274 254840160 : lu(k,1183) = lu(k,1183) * lu(k,1182)
4275 254840160 : lu(k,1184) = lu(k,1184) * lu(k,1182)
4276 254840160 : lu(k,1185) = lu(k,1185) * lu(k,1182)
4277 254840160 : lu(k,1186) = lu(k,1186) * lu(k,1182)
4278 254840160 : lu(k,1187) = lu(k,1187) * lu(k,1182)
4279 254840160 : lu(k,1188) = lu(k,1188) * lu(k,1182)
4280 254840160 : lu(k,1189) = lu(k,1189) * lu(k,1182)
4281 254840160 : lu(k,1190) = lu(k,1190) * lu(k,1182)
4282 254840160 : lu(k,1191) = lu(k,1191) * lu(k,1182)
4283 254840160 : lu(k,3034) = lu(k,3034) - lu(k,1183) * lu(k,3027)
4284 254840160 : lu(k,3037) = lu(k,3037) - lu(k,1184) * lu(k,3027)
4285 254840160 : lu(k,3083) = lu(k,3083) - lu(k,1185) * lu(k,3027)
4286 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1186) * lu(k,3027)
4287 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1187) * lu(k,3027)
4288 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1188) * lu(k,3027)
4289 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1189) * lu(k,3027)
4290 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1190) * lu(k,3027)
4291 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1191) * lu(k,3027)
4292 254840160 : lu(k,3291) = lu(k,3291) - lu(k,1183) * lu(k,3283)
4293 254840160 : lu(k,3294) = lu(k,3294) - lu(k,1184) * lu(k,3283)
4294 254840160 : lu(k,3342) = lu(k,3342) - lu(k,1185) * lu(k,3283)
4295 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1186) * lu(k,3283)
4296 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1187) * lu(k,3283)
4297 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1188) * lu(k,3283)
4298 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1189) * lu(k,3283)
4299 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1190) * lu(k,3283)
4300 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1191) * lu(k,3283)
4301 254840160 : lu(k,3540) = - lu(k,1183) * lu(k,3535)
4302 254840160 : lu(k,3544) = lu(k,3544) - lu(k,1184) * lu(k,3535)
4303 254840160 : lu(k,3579) = lu(k,3579) - lu(k,1185) * lu(k,3535)
4304 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1186) * lu(k,3535)
4305 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1187) * lu(k,3535)
4306 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1188) * lu(k,3535)
4307 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1189) * lu(k,3535)
4308 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1190) * lu(k,3535)
4309 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1191) * lu(k,3535)
4310 254840160 : lu(k,3694) = - lu(k,1183) * lu(k,3689)
4311 254840160 : lu(k,3698) = lu(k,3698) - lu(k,1184) * lu(k,3689)
4312 254840160 : lu(k,3734) = lu(k,3734) - lu(k,1185) * lu(k,3689)
4313 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1186) * lu(k,3689)
4314 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1187) * lu(k,3689)
4315 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1188) * lu(k,3689)
4316 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1189) * lu(k,3689)
4317 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1190) * lu(k,3689)
4318 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1191) * lu(k,3689)
4319 254840160 : lu(k,4011) = lu(k,4011) - lu(k,1183) * lu(k,3997)
4320 254840160 : lu(k,4016) = lu(k,4016) - lu(k,1184) * lu(k,3997)
4321 254840160 : lu(k,4065) = lu(k,4065) - lu(k,1185) * lu(k,3997)
4322 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1186) * lu(k,3997)
4323 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1187) * lu(k,3997)
4324 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1188) * lu(k,3997)
4325 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1189) * lu(k,3997)
4326 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1190) * lu(k,3997)
4327 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1191) * lu(k,3997)
4328 254840160 : lu(k,1194) = 1._r8 / lu(k,1194)
4329 254840160 : lu(k,1195) = lu(k,1195) * lu(k,1194)
4330 254840160 : lu(k,1196) = lu(k,1196) * lu(k,1194)
4331 254840160 : lu(k,1197) = lu(k,1197) * lu(k,1194)
4332 254840160 : lu(k,1198) = lu(k,1198) * lu(k,1194)
4333 254840160 : lu(k,1199) = lu(k,1199) * lu(k,1194)
4334 254840160 : lu(k,1200) = lu(k,1200) * lu(k,1194)
4335 254840160 : lu(k,1201) = lu(k,1201) * lu(k,1194)
4336 254840160 : lu(k,1202) = lu(k,1202) * lu(k,1194)
4337 254840160 : lu(k,1203) = lu(k,1203) * lu(k,1194)
4338 254840160 : lu(k,1204) = lu(k,1204) * lu(k,1194)
4339 254840160 : lu(k,1205) = lu(k,1205) * lu(k,1194)
4340 254840160 : lu(k,1206) = lu(k,1206) * lu(k,1194)
4341 254840160 : lu(k,1207) = lu(k,1207) * lu(k,1194)
4342 254840160 : lu(k,1208) = lu(k,1208) * lu(k,1194)
4343 254840160 : lu(k,1209) = lu(k,1209) * lu(k,1194)
4344 254840160 : lu(k,2157) = - lu(k,1195) * lu(k,2155)
4345 254840160 : lu(k,2158) = - lu(k,1196) * lu(k,2155)
4346 254840160 : lu(k,2166) = - lu(k,1197) * lu(k,2155)
4347 254840160 : lu(k,2169) = - lu(k,1198) * lu(k,2155)
4348 254840160 : lu(k,2173) = - lu(k,1199) * lu(k,2155)
4349 254840160 : lu(k,2174) = lu(k,2174) - lu(k,1200) * lu(k,2155)
4350 254840160 : lu(k,2175) = lu(k,2175) - lu(k,1201) * lu(k,2155)
4351 254840160 : lu(k,2176) = - lu(k,1202) * lu(k,2155)
4352 254840160 : lu(k,2179) = lu(k,2179) - lu(k,1203) * lu(k,2155)
4353 254840160 : lu(k,2180) = lu(k,2180) - lu(k,1204) * lu(k,2155)
4354 254840160 : lu(k,2184) = - lu(k,1205) * lu(k,2155)
4355 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1206) * lu(k,2155)
4356 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1207) * lu(k,2155)
4357 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1208) * lu(k,2155)
4358 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1209) * lu(k,2155)
4359 254840160 : lu(k,3289) = lu(k,3289) - lu(k,1195) * lu(k,3284)
4360 254840160 : lu(k,3293) = lu(k,3293) - lu(k,1196) * lu(k,3284)
4361 254840160 : lu(k,3311) = lu(k,3311) - lu(k,1197) * lu(k,3284)
4362 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1198) * lu(k,3284)
4363 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1199) * lu(k,3284)
4364 254840160 : lu(k,3331) = lu(k,3331) - lu(k,1200) * lu(k,3284)
4365 254840160 : lu(k,3332) = lu(k,3332) - lu(k,1201) * lu(k,3284)
4366 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1202) * lu(k,3284)
4367 254840160 : lu(k,3336) = - lu(k,1203) * lu(k,3284)
4368 254840160 : lu(k,3337) = lu(k,3337) - lu(k,1204) * lu(k,3284)
4369 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1205) * lu(k,3284)
4370 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1206) * lu(k,3284)
4371 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1207) * lu(k,3284)
4372 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1208) * lu(k,3284)
4373 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1209) * lu(k,3284)
4374 254840160 : lu(k,4008) = lu(k,4008) - lu(k,1195) * lu(k,3998)
4375 254840160 : lu(k,4013) = lu(k,4013) - lu(k,1196) * lu(k,3998)
4376 254840160 : lu(k,4035) = lu(k,4035) - lu(k,1197) * lu(k,3998)
4377 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1198) * lu(k,3998)
4378 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1199) * lu(k,3998)
4379 254840160 : lu(k,4055) = lu(k,4055) - lu(k,1200) * lu(k,3998)
4380 254840160 : lu(k,4056) = lu(k,4056) - lu(k,1201) * lu(k,3998)
4381 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1202) * lu(k,3998)
4382 254840160 : lu(k,4060) = lu(k,4060) - lu(k,1203) * lu(k,3998)
4383 254840160 : lu(k,4061) = lu(k,4061) - lu(k,1204) * lu(k,3998)
4384 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1205) * lu(k,3998)
4385 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1206) * lu(k,3998)
4386 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1207) * lu(k,3998)
4387 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1208) * lu(k,3998)
4388 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1209) * lu(k,3998)
4389 : end do
4390 8168963 : end subroutine lu_fac26
4391 8168963 : subroutine lu_fac27( avec_len, lu )
4392 : use chem_mods, only : nzcnt
4393 : use shr_kind_mod, only : r8 => shr_kind_r8
4394 : implicit none
4395 : !-----------------------------------------------------------------------
4396 : ! ... dummy args
4397 : !-----------------------------------------------------------------------
4398 : integer, intent(in) :: avec_len
4399 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4400 : !-----------------------------------------------------------------------
4401 : ! ... local variables
4402 : !-----------------------------------------------------------------------
4403 : integer :: k
4404 263009123 : do k = 1,avec_len
4405 254840160 : lu(k,1210) = 1._r8 / lu(k,1210)
4406 254840160 : lu(k,1211) = lu(k,1211) * lu(k,1210)
4407 254840160 : lu(k,1212) = lu(k,1212) * lu(k,1210)
4408 254840160 : lu(k,1213) = lu(k,1213) * lu(k,1210)
4409 254840160 : lu(k,1214) = lu(k,1214) * lu(k,1210)
4410 254840160 : lu(k,1215) = lu(k,1215) * lu(k,1210)
4411 254840160 : lu(k,1409) = lu(k,1409) - lu(k,1211) * lu(k,1408)
4412 254840160 : lu(k,1424) = lu(k,1424) - lu(k,1212) * lu(k,1408)
4413 254840160 : lu(k,1425) = lu(k,1425) - lu(k,1213) * lu(k,1408)
4414 254840160 : lu(k,1429) = lu(k,1429) - lu(k,1214) * lu(k,1408)
4415 254840160 : lu(k,1430) = - lu(k,1215) * lu(k,1408)
4416 254840160 : lu(k,2592) = lu(k,2592) - lu(k,1211) * lu(k,2591)
4417 254840160 : lu(k,2611) = lu(k,2611) - lu(k,1212) * lu(k,2591)
4418 254840160 : lu(k,2612) = lu(k,2612) - lu(k,1213) * lu(k,2591)
4419 254840160 : lu(k,2617) = lu(k,2617) - lu(k,1214) * lu(k,2591)
4420 254840160 : lu(k,2618) = - lu(k,1215) * lu(k,2591)
4421 254840160 : lu(k,2622) = lu(k,2622) - lu(k,1211) * lu(k,2621)
4422 254840160 : lu(k,2639) = lu(k,2639) - lu(k,1212) * lu(k,2621)
4423 254840160 : lu(k,2640) = lu(k,2640) - lu(k,1213) * lu(k,2621)
4424 254840160 : lu(k,2645) = lu(k,2645) - lu(k,1214) * lu(k,2621)
4425 254840160 : lu(k,2646) = - lu(k,1215) * lu(k,2621)
4426 254840160 : lu(k,3036) = lu(k,3036) - lu(k,1211) * lu(k,3028)
4427 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1212) * lu(k,3028)
4428 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1213) * lu(k,3028)
4429 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1214) * lu(k,3028)
4430 254840160 : lu(k,3120) = lu(k,3120) - lu(k,1215) * lu(k,3028)
4431 254840160 : lu(k,3177) = lu(k,3177) - lu(k,1211) * lu(k,3176)
4432 254840160 : lu(k,3188) = lu(k,3188) - lu(k,1212) * lu(k,3176)
4433 254840160 : lu(k,3189) = lu(k,3189) - lu(k,1213) * lu(k,3176)
4434 254840160 : lu(k,3198) = lu(k,3198) - lu(k,1214) * lu(k,3176)
4435 254840160 : lu(k,3199) = lu(k,3199) - lu(k,1215) * lu(k,3176)
4436 254840160 : lu(k,3293) = lu(k,3293) - lu(k,1211) * lu(k,3285)
4437 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1212) * lu(k,3285)
4438 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1213) * lu(k,3285)
4439 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1214) * lu(k,3285)
4440 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1215) * lu(k,3285)
4441 254840160 : lu(k,3541) = lu(k,3541) - lu(k,1211) * lu(k,3536)
4442 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1212) * lu(k,3536)
4443 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1213) * lu(k,3536)
4444 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1214) * lu(k,3536)
4445 254840160 : lu(k,3616) = - lu(k,1215) * lu(k,3536)
4446 254840160 : lu(k,3695) = lu(k,3695) - lu(k,1211) * lu(k,3690)
4447 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1212) * lu(k,3690)
4448 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1213) * lu(k,3690)
4449 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1214) * lu(k,3690)
4450 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1215) * lu(k,3690)
4451 254840160 : lu(k,4013) = lu(k,4013) - lu(k,1211) * lu(k,3999)
4452 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1212) * lu(k,3999)
4453 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1213) * lu(k,3999)
4454 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1214) * lu(k,3999)
4455 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1215) * lu(k,3999)
4456 254840160 : lu(k,1218) = 1._r8 / lu(k,1218)
4457 254840160 : lu(k,1219) = lu(k,1219) * lu(k,1218)
4458 254840160 : lu(k,1220) = lu(k,1220) * lu(k,1218)
4459 254840160 : lu(k,1221) = lu(k,1221) * lu(k,1218)
4460 254840160 : lu(k,1222) = lu(k,1222) * lu(k,1218)
4461 254840160 : lu(k,1223) = lu(k,1223) * lu(k,1218)
4462 254840160 : lu(k,1224) = lu(k,1224) * lu(k,1218)
4463 254840160 : lu(k,1225) = lu(k,1225) * lu(k,1218)
4464 254840160 : lu(k,1226) = lu(k,1226) * lu(k,1218)
4465 254840160 : lu(k,1227) = lu(k,1227) * lu(k,1218)
4466 254840160 : lu(k,2496) = lu(k,2496) - lu(k,1219) * lu(k,2495)
4467 254840160 : lu(k,2499) = lu(k,2499) - lu(k,1220) * lu(k,2495)
4468 254840160 : lu(k,2504) = lu(k,2504) - lu(k,1221) * lu(k,2495)
4469 254840160 : lu(k,2506) = - lu(k,1222) * lu(k,2495)
4470 254840160 : lu(k,2516) = lu(k,2516) - lu(k,1223) * lu(k,2495)
4471 254840160 : lu(k,2519) = lu(k,2519) - lu(k,1224) * lu(k,2495)
4472 254840160 : lu(k,2522) = lu(k,2522) - lu(k,1225) * lu(k,2495)
4473 254840160 : lu(k,2523) = lu(k,2523) - lu(k,1226) * lu(k,2495)
4474 254840160 : lu(k,2524) = lu(k,2524) - lu(k,1227) * lu(k,2495)
4475 254840160 : lu(k,2559) = lu(k,2559) - lu(k,1219) * lu(k,2558)
4476 254840160 : lu(k,2562) = lu(k,2562) - lu(k,1220) * lu(k,2558)
4477 254840160 : lu(k,2568) = lu(k,2568) - lu(k,1221) * lu(k,2558)
4478 254840160 : lu(k,2569) = - lu(k,1222) * lu(k,2558)
4479 254840160 : lu(k,2581) = lu(k,2581) - lu(k,1223) * lu(k,2558)
4480 254840160 : lu(k,2584) = lu(k,2584) - lu(k,1224) * lu(k,2558)
4481 254840160 : lu(k,2587) = lu(k,2587) - lu(k,1225) * lu(k,2558)
4482 254840160 : lu(k,2588) = lu(k,2588) - lu(k,1226) * lu(k,2558)
4483 254840160 : lu(k,2589) = lu(k,2589) - lu(k,1227) * lu(k,2558)
4484 254840160 : lu(k,3030) = lu(k,3030) - lu(k,1219) * lu(k,3029)
4485 254840160 : lu(k,3050) = lu(k,3050) - lu(k,1220) * lu(k,3029)
4486 254840160 : lu(k,3087) = lu(k,3087) - lu(k,1221) * lu(k,3029)
4487 254840160 : lu(k,3093) = lu(k,3093) - lu(k,1222) * lu(k,3029)
4488 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1223) * lu(k,3029)
4489 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1224) * lu(k,3029)
4490 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1225) * lu(k,3029)
4491 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1226) * lu(k,3029)
4492 254840160 : lu(k,3120) = lu(k,3120) - lu(k,1227) * lu(k,3029)
4493 254840160 : lu(k,3287) = lu(k,3287) - lu(k,1219) * lu(k,3286)
4494 254840160 : lu(k,3307) = lu(k,3307) - lu(k,1220) * lu(k,3286)
4495 254840160 : lu(k,3346) = lu(k,3346) - lu(k,1221) * lu(k,3286)
4496 254840160 : lu(k,3352) = lu(k,3352) - lu(k,1222) * lu(k,3286)
4497 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1223) * lu(k,3286)
4498 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1224) * lu(k,3286)
4499 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1225) * lu(k,3286)
4500 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1226) * lu(k,3286)
4501 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1227) * lu(k,3286)
4502 254840160 : lu(k,4001) = lu(k,4001) - lu(k,1219) * lu(k,4000)
4503 254840160 : lu(k,4030) = lu(k,4030) - lu(k,1220) * lu(k,4000)
4504 254840160 : lu(k,4069) = lu(k,4069) - lu(k,1221) * lu(k,4000)
4505 254840160 : lu(k,4075) = lu(k,4075) - lu(k,1222) * lu(k,4000)
4506 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1223) * lu(k,4000)
4507 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1224) * lu(k,4000)
4508 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1225) * lu(k,4000)
4509 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1226) * lu(k,4000)
4510 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1227) * lu(k,4000)
4511 254840160 : lu(k,1228) = 1._r8 / lu(k,1228)
4512 254840160 : lu(k,1229) = lu(k,1229) * lu(k,1228)
4513 254840160 : lu(k,1230) = lu(k,1230) * lu(k,1228)
4514 254840160 : lu(k,1231) = lu(k,1231) * lu(k,1228)
4515 254840160 : lu(k,1232) = lu(k,1232) * lu(k,1228)
4516 254840160 : lu(k,1233) = lu(k,1233) * lu(k,1228)
4517 254840160 : lu(k,1688) = lu(k,1688) - lu(k,1229) * lu(k,1687)
4518 254840160 : lu(k,1692) = - lu(k,1230) * lu(k,1687)
4519 254840160 : lu(k,1694) = lu(k,1694) - lu(k,1231) * lu(k,1687)
4520 254840160 : lu(k,1695) = lu(k,1695) - lu(k,1232) * lu(k,1687)
4521 254840160 : lu(k,1696) = lu(k,1696) - lu(k,1233) * lu(k,1687)
4522 254840160 : lu(k,1701) = lu(k,1701) - lu(k,1229) * lu(k,1699)
4523 254840160 : lu(k,1705) = lu(k,1705) - lu(k,1230) * lu(k,1699)
4524 254840160 : lu(k,1707) = lu(k,1707) - lu(k,1231) * lu(k,1699)
4525 254840160 : lu(k,1708) = lu(k,1708) - lu(k,1232) * lu(k,1699)
4526 254840160 : lu(k,1709) = lu(k,1709) - lu(k,1233) * lu(k,1699)
4527 254840160 : lu(k,2293) = lu(k,2293) - lu(k,1229) * lu(k,2290)
4528 254840160 : lu(k,2305) = lu(k,2305) - lu(k,1230) * lu(k,2290)
4529 254840160 : lu(k,2309) = lu(k,2309) - lu(k,1231) * lu(k,2290)
4530 254840160 : lu(k,2312) = lu(k,2312) - lu(k,1232) * lu(k,2290)
4531 254840160 : lu(k,2313) = lu(k,2313) - lu(k,1233) * lu(k,2290)
4532 254840160 : lu(k,2499) = lu(k,2499) - lu(k,1229) * lu(k,2496)
4533 254840160 : lu(k,2515) = lu(k,2515) - lu(k,1230) * lu(k,2496)
4534 254840160 : lu(k,2519) = lu(k,2519) - lu(k,1231) * lu(k,2496)
4535 254840160 : lu(k,2522) = lu(k,2522) - lu(k,1232) * lu(k,2496)
4536 254840160 : lu(k,2523) = lu(k,2523) - lu(k,1233) * lu(k,2496)
4537 254840160 : lu(k,2531) = lu(k,2531) - lu(k,1229) * lu(k,2528)
4538 254840160 : lu(k,2544) = lu(k,2544) - lu(k,1230) * lu(k,2528)
4539 254840160 : lu(k,2548) = lu(k,2548) - lu(k,1231) * lu(k,2528)
4540 254840160 : lu(k,2551) = lu(k,2551) - lu(k,1232) * lu(k,2528)
4541 254840160 : lu(k,2552) = lu(k,2552) - lu(k,1233) * lu(k,2528)
4542 254840160 : lu(k,2562) = lu(k,2562) - lu(k,1229) * lu(k,2559)
4543 254840160 : lu(k,2580) = lu(k,2580) - lu(k,1230) * lu(k,2559)
4544 254840160 : lu(k,2584) = lu(k,2584) - lu(k,1231) * lu(k,2559)
4545 254840160 : lu(k,2587) = lu(k,2587) - lu(k,1232) * lu(k,2559)
4546 254840160 : lu(k,2588) = lu(k,2588) - lu(k,1233) * lu(k,2559)
4547 254840160 : lu(k,3050) = lu(k,3050) - lu(k,1229) * lu(k,3030)
4548 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1230) * lu(k,3030)
4549 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1231) * lu(k,3030)
4550 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1232) * lu(k,3030)
4551 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1233) * lu(k,3030)
4552 254840160 : lu(k,3307) = lu(k,3307) - lu(k,1229) * lu(k,3287)
4553 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1230) * lu(k,3287)
4554 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1231) * lu(k,3287)
4555 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1232) * lu(k,3287)
4556 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1233) * lu(k,3287)
4557 254840160 : lu(k,4030) = lu(k,4030) - lu(k,1229) * lu(k,4001)
4558 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1230) * lu(k,4001)
4559 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1231) * lu(k,4001)
4560 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1232) * lu(k,4001)
4561 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1233) * lu(k,4001)
4562 254840160 : lu(k,1235) = 1._r8 / lu(k,1235)
4563 254840160 : lu(k,1236) = lu(k,1236) * lu(k,1235)
4564 254840160 : lu(k,1237) = lu(k,1237) * lu(k,1235)
4565 254840160 : lu(k,1238) = lu(k,1238) * lu(k,1235)
4566 254840160 : lu(k,1239) = lu(k,1239) * lu(k,1235)
4567 254840160 : lu(k,1240) = lu(k,1240) * lu(k,1235)
4568 254840160 : lu(k,1600) = lu(k,1600) - lu(k,1236) * lu(k,1599)
4569 254840160 : lu(k,1604) = lu(k,1604) - lu(k,1237) * lu(k,1599)
4570 254840160 : lu(k,1605) = - lu(k,1238) * lu(k,1599)
4571 254840160 : lu(k,1611) = lu(k,1611) - lu(k,1239) * lu(k,1599)
4572 254840160 : lu(k,1612) = - lu(k,1240) * lu(k,1599)
4573 254840160 : lu(k,3152) = lu(k,3152) - lu(k,1236) * lu(k,3149)
4574 254840160 : lu(k,3161) = lu(k,3161) - lu(k,1237) * lu(k,3149)
4575 254840160 : lu(k,3163) = lu(k,3163) - lu(k,1238) * lu(k,3149)
4576 254840160 : lu(k,3172) = lu(k,3172) - lu(k,1239) * lu(k,3149)
4577 254840160 : lu(k,3173) = lu(k,3173) - lu(k,1240) * lu(k,3149)
4578 254840160 : lu(k,3478) = lu(k,3478) - lu(k,1236) * lu(k,3477)
4579 254840160 : lu(k,3484) = lu(k,3484) - lu(k,1237) * lu(k,3477)
4580 254840160 : lu(k,3486) = lu(k,3486) - lu(k,1238) * lu(k,3477)
4581 254840160 : lu(k,3495) = lu(k,3495) - lu(k,1239) * lu(k,3477)
4582 254840160 : lu(k,3496) = lu(k,3496) - lu(k,1240) * lu(k,3477)
4583 254840160 : lu(k,3504) = lu(k,3504) - lu(k,1236) * lu(k,3502)
4584 254840160 : lu(k,3510) = lu(k,3510) - lu(k,1237) * lu(k,3502)
4585 254840160 : lu(k,3512) = lu(k,3512) - lu(k,1238) * lu(k,3502)
4586 254840160 : lu(k,3521) = lu(k,3521) - lu(k,1239) * lu(k,3502)
4587 254840160 : lu(k,3522) = lu(k,3522) - lu(k,1240) * lu(k,3502)
4588 254840160 : lu(k,3550) = - lu(k,1236) * lu(k,3537)
4589 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1237) * lu(k,3537)
4590 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1238) * lu(k,3537)
4591 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1239) * lu(k,3537)
4592 254840160 : lu(k,3616) = lu(k,3616) - lu(k,1240) * lu(k,3537)
4593 254840160 : lu(k,3639) = lu(k,3639) - lu(k,1236) * lu(k,3635)
4594 254840160 : lu(k,3656) = lu(k,3656) - lu(k,1237) * lu(k,3635)
4595 254840160 : lu(k,3658) = lu(k,3658) - lu(k,1238) * lu(k,3635)
4596 254840160 : lu(k,3667) = lu(k,3667) - lu(k,1239) * lu(k,3635)
4597 254840160 : lu(k,3668) = lu(k,3668) - lu(k,1240) * lu(k,3635)
4598 254840160 : lu(k,3705) = lu(k,3705) - lu(k,1236) * lu(k,3691)
4599 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1237) * lu(k,3691)
4600 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1238) * lu(k,3691)
4601 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1239) * lu(k,3691)
4602 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1240) * lu(k,3691)
4603 254840160 : lu(k,4032) = lu(k,4032) - lu(k,1236) * lu(k,4002)
4604 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1237) * lu(k,4002)
4605 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1238) * lu(k,4002)
4606 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1239) * lu(k,4002)
4607 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1240) * lu(k,4002)
4608 254840160 : lu(k,4108) = - lu(k,1236) * lu(k,4106)
4609 254840160 : lu(k,4116) = lu(k,4116) - lu(k,1237) * lu(k,4106)
4610 254840160 : lu(k,4118) = - lu(k,1238) * lu(k,4106)
4611 254840160 : lu(k,4127) = lu(k,4127) - lu(k,1239) * lu(k,4106)
4612 254840160 : lu(k,4128) = lu(k,4128) - lu(k,1240) * lu(k,4106)
4613 254840160 : lu(k,1242) = 1._r8 / lu(k,1242)
4614 254840160 : lu(k,1243) = lu(k,1243) * lu(k,1242)
4615 254840160 : lu(k,1244) = lu(k,1244) * lu(k,1242)
4616 254840160 : lu(k,1245) = lu(k,1245) * lu(k,1242)
4617 254840160 : lu(k,1246) = lu(k,1246) * lu(k,1242)
4618 254840160 : lu(k,1247) = lu(k,1247) * lu(k,1242)
4619 254840160 : lu(k,1248) = lu(k,1248) * lu(k,1242)
4620 254840160 : lu(k,1249) = lu(k,1249) * lu(k,1242)
4621 254840160 : lu(k,1250) = lu(k,1250) * lu(k,1242)
4622 254840160 : lu(k,1673) = lu(k,1673) - lu(k,1243) * lu(k,1672)
4623 254840160 : lu(k,1674) = - lu(k,1244) * lu(k,1672)
4624 254840160 : lu(k,1675) = lu(k,1675) - lu(k,1245) * lu(k,1672)
4625 254840160 : lu(k,1676) = - lu(k,1246) * lu(k,1672)
4626 254840160 : lu(k,1679) = - lu(k,1247) * lu(k,1672)
4627 254840160 : lu(k,1680) = - lu(k,1248) * lu(k,1672)
4628 254840160 : lu(k,1683) = lu(k,1683) - lu(k,1249) * lu(k,1672)
4629 254840160 : lu(k,1684) = lu(k,1684) - lu(k,1250) * lu(k,1672)
4630 254840160 : lu(k,2257) = lu(k,2257) - lu(k,1243) * lu(k,2255)
4631 254840160 : lu(k,2259) = lu(k,2259) - lu(k,1244) * lu(k,2255)
4632 254840160 : lu(k,2260) = lu(k,2260) - lu(k,1245) * lu(k,2255)
4633 254840160 : lu(k,2261) = - lu(k,1246) * lu(k,2255)
4634 254840160 : lu(k,2266) = lu(k,2266) - lu(k,1247) * lu(k,2255)
4635 254840160 : lu(k,2267) = - lu(k,1248) * lu(k,2255)
4636 254840160 : lu(k,2270) = lu(k,2270) - lu(k,1249) * lu(k,2255)
4637 254840160 : lu(k,2271) = lu(k,2271) - lu(k,1250) * lu(k,2255)
4638 254840160 : lu(k,2946) = - lu(k,1243) * lu(k,2945)
4639 254840160 : lu(k,2947) = - lu(k,1244) * lu(k,2945)
4640 254840160 : lu(k,2948) = lu(k,2948) - lu(k,1245) * lu(k,2945)
4641 254840160 : lu(k,2949) = lu(k,2949) - lu(k,1246) * lu(k,2945)
4642 254840160 : lu(k,2954) = - lu(k,1247) * lu(k,2945)
4643 254840160 : lu(k,2955) = lu(k,2955) - lu(k,1248) * lu(k,2945)
4644 254840160 : lu(k,2960) = lu(k,2960) - lu(k,1249) * lu(k,2945)
4645 254840160 : lu(k,2961) = lu(k,2961) - lu(k,1250) * lu(k,2945)
4646 254840160 : lu(k,3792) = lu(k,3792) - lu(k,1243) * lu(k,3791)
4647 254840160 : lu(k,3794) = lu(k,3794) - lu(k,1244) * lu(k,3791)
4648 254840160 : lu(k,3795) = lu(k,3795) - lu(k,1245) * lu(k,3791)
4649 254840160 : lu(k,3796) = - lu(k,1246) * lu(k,3791)
4650 254840160 : lu(k,3802) = lu(k,3802) - lu(k,1247) * lu(k,3791)
4651 254840160 : lu(k,3805) = - lu(k,1248) * lu(k,3791)
4652 254840160 : lu(k,3810) = lu(k,3810) - lu(k,1249) * lu(k,3791)
4653 254840160 : lu(k,3811) = lu(k,3811) - lu(k,1250) * lu(k,3791)
4654 254840160 : lu(k,4037) = lu(k,4037) - lu(k,1243) * lu(k,4003)
4655 254840160 : lu(k,4064) = lu(k,4064) - lu(k,1244) * lu(k,4003)
4656 254840160 : lu(k,4086) = lu(k,4086) - lu(k,1245) * lu(k,4003)
4657 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1246) * lu(k,4003)
4658 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1247) * lu(k,4003)
4659 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1248) * lu(k,4003)
4660 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1249) * lu(k,4003)
4661 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1250) * lu(k,4003)
4662 254840160 : lu(k,4109) = lu(k,4109) - lu(k,1243) * lu(k,4107)
4663 254840160 : lu(k,4111) = - lu(k,1244) * lu(k,4107)
4664 254840160 : lu(k,4112) = lu(k,4112) - lu(k,1245) * lu(k,4107)
4665 254840160 : lu(k,4113) = - lu(k,1246) * lu(k,4107)
4666 254840160 : lu(k,4119) = - lu(k,1247) * lu(k,4107)
4667 254840160 : lu(k,4122) = - lu(k,1248) * lu(k,4107)
4668 254840160 : lu(k,4127) = lu(k,4127) - lu(k,1249) * lu(k,4107)
4669 263009123 : lu(k,4128) = lu(k,4128) - lu(k,1250) * lu(k,4107)
4670 : end do
4671 8168963 : end subroutine lu_fac27
4672 8168963 : subroutine lu_fac28( avec_len, lu )
4673 : use chem_mods, only : nzcnt
4674 : use shr_kind_mod, only : r8 => shr_kind_r8
4675 : implicit none
4676 : !-----------------------------------------------------------------------
4677 : ! ... dummy args
4678 : !-----------------------------------------------------------------------
4679 : integer, intent(in) :: avec_len
4680 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4681 : !-----------------------------------------------------------------------
4682 : ! ... local variables
4683 : !-----------------------------------------------------------------------
4684 : integer :: k
4685 263009123 : do k = 1,avec_len
4686 254840160 : lu(k,1252) = 1._r8 / lu(k,1252)
4687 254840160 : lu(k,1253) = lu(k,1253) * lu(k,1252)
4688 254840160 : lu(k,1254) = lu(k,1254) * lu(k,1252)
4689 254840160 : lu(k,1255) = lu(k,1255) * lu(k,1252)
4690 254840160 : lu(k,1256) = lu(k,1256) * lu(k,1252)
4691 254840160 : lu(k,1257) = lu(k,1257) * lu(k,1252)
4692 254840160 : lu(k,1258) = lu(k,1258) * lu(k,1252)
4693 254840160 : lu(k,1259) = lu(k,1259) * lu(k,1252)
4694 254840160 : lu(k,1260) = lu(k,1260) * lu(k,1252)
4695 254840160 : lu(k,1261) = lu(k,1261) * lu(k,1252)
4696 254840160 : lu(k,1262) = lu(k,1262) * lu(k,1252)
4697 254840160 : lu(k,1263) = lu(k,1263) * lu(k,1252)
4698 254840160 : lu(k,1264) = lu(k,1264) * lu(k,1252)
4699 254840160 : lu(k,1569) = lu(k,1569) - lu(k,1253) * lu(k,1564)
4700 254840160 : lu(k,1573) = - lu(k,1254) * lu(k,1564)
4701 254840160 : lu(k,1574) = - lu(k,1255) * lu(k,1564)
4702 254840160 : lu(k,1577) = - lu(k,1256) * lu(k,1564)
4703 254840160 : lu(k,1580) = - lu(k,1257) * lu(k,1564)
4704 254840160 : lu(k,1581) = lu(k,1581) - lu(k,1258) * lu(k,1564)
4705 254840160 : lu(k,1582) = lu(k,1582) - lu(k,1259) * lu(k,1564)
4706 254840160 : lu(k,1586) = lu(k,1586) - lu(k,1260) * lu(k,1564)
4707 254840160 : lu(k,1590) = lu(k,1590) - lu(k,1261) * lu(k,1564)
4708 254840160 : lu(k,1591) = lu(k,1591) - lu(k,1262) * lu(k,1564)
4709 254840160 : lu(k,1592) = lu(k,1592) - lu(k,1263) * lu(k,1564)
4710 254840160 : lu(k,1595) = lu(k,1595) - lu(k,1264) * lu(k,1564)
4711 254840160 : lu(k,2162) = - lu(k,1253) * lu(k,2156)
4712 254840160 : lu(k,2165) = lu(k,2165) - lu(k,1254) * lu(k,2156)
4713 254840160 : lu(k,2166) = lu(k,2166) - lu(k,1255) * lu(k,2156)
4714 254840160 : lu(k,2169) = lu(k,2169) - lu(k,1256) * lu(k,2156)
4715 254840160 : lu(k,2172) = - lu(k,1257) * lu(k,2156)
4716 254840160 : lu(k,2173) = lu(k,2173) - lu(k,1258) * lu(k,2156)
4717 254840160 : lu(k,2176) = lu(k,2176) - lu(k,1259) * lu(k,2156)
4718 254840160 : lu(k,2184) = lu(k,2184) - lu(k,1260) * lu(k,2156)
4719 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1261) * lu(k,2156)
4720 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1262) * lu(k,2156)
4721 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1263) * lu(k,2156)
4722 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1264) * lu(k,2156)
4723 254840160 : lu(k,3397) = - lu(k,1253) * lu(k,3388)
4724 254840160 : lu(k,3404) = lu(k,3404) - lu(k,1254) * lu(k,3388)
4725 254840160 : lu(k,3406) = - lu(k,1255) * lu(k,3388)
4726 254840160 : lu(k,3414) = lu(k,3414) - lu(k,1256) * lu(k,3388)
4727 254840160 : lu(k,3421) = - lu(k,1257) * lu(k,3388)
4728 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1258) * lu(k,3388)
4729 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1259) * lu(k,3388)
4730 254840160 : lu(k,3457) = - lu(k,1260) * lu(k,3388)
4731 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1261) * lu(k,3388)
4732 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1262) * lu(k,3388)
4733 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1263) * lu(k,3388)
4734 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1264) * lu(k,3388)
4735 254840160 : lu(k,4022) = lu(k,4022) - lu(k,1253) * lu(k,4004)
4736 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1254) * lu(k,4004)
4737 254840160 : lu(k,4035) = lu(k,4035) - lu(k,1255) * lu(k,4004)
4738 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1256) * lu(k,4004)
4739 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1257) * lu(k,4004)
4740 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1258) * lu(k,4004)
4741 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1259) * lu(k,4004)
4742 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1260) * lu(k,4004)
4743 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1261) * lu(k,4004)
4744 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1262) * lu(k,4004)
4745 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1263) * lu(k,4004)
4746 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1264) * lu(k,4004)
4747 254840160 : lu(k,1272) = 1._r8 / lu(k,1272)
4748 254840160 : lu(k,1273) = lu(k,1273) * lu(k,1272)
4749 254840160 : lu(k,1274) = lu(k,1274) * lu(k,1272)
4750 254840160 : lu(k,1275) = lu(k,1275) * lu(k,1272)
4751 254840160 : lu(k,1276) = lu(k,1276) * lu(k,1272)
4752 254840160 : lu(k,1277) = lu(k,1277) * lu(k,1272)
4753 254840160 : lu(k,1278) = lu(k,1278) * lu(k,1272)
4754 254840160 : lu(k,1279) = lu(k,1279) * lu(k,1272)
4755 254840160 : lu(k,1280) = lu(k,1280) * lu(k,1272)
4756 254840160 : lu(k,1281) = lu(k,1281) * lu(k,1272)
4757 254840160 : lu(k,1282) = lu(k,1282) * lu(k,1272)
4758 254840160 : lu(k,1283) = lu(k,1283) * lu(k,1272)
4759 254840160 : lu(k,1284) = lu(k,1284) * lu(k,1272)
4760 254840160 : lu(k,1285) = lu(k,1285) * lu(k,1272)
4761 254840160 : lu(k,1286) = lu(k,1286) * lu(k,1272)
4762 254840160 : lu(k,1287) = lu(k,1287) * lu(k,1272)
4763 254840160 : lu(k,1288) = lu(k,1288) * lu(k,1272)
4764 254840160 : lu(k,3539) = lu(k,3539) - lu(k,1273) * lu(k,3538)
4765 254840160 : lu(k,3546) = lu(k,3546) - lu(k,1274) * lu(k,3538)
4766 254840160 : lu(k,3551) = lu(k,3551) - lu(k,1275) * lu(k,3538)
4767 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1276) * lu(k,3538)
4768 254840160 : lu(k,3580) = lu(k,3580) - lu(k,1277) * lu(k,3538)
4769 254840160 : lu(k,3583) = lu(k,3583) - lu(k,1278) * lu(k,3538)
4770 254840160 : lu(k,3586) = lu(k,3586) - lu(k,1279) * lu(k,3538)
4771 254840160 : lu(k,3593) = lu(k,3593) - lu(k,1280) * lu(k,3538)
4772 254840160 : lu(k,3595) = lu(k,3595) - lu(k,1281) * lu(k,3538)
4773 254840160 : lu(k,3596) = lu(k,3596) - lu(k,1282) * lu(k,3538)
4774 254840160 : lu(k,3598) = lu(k,3598) - lu(k,1283) * lu(k,3538)
4775 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1284) * lu(k,3538)
4776 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1285) * lu(k,3538)
4777 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1286) * lu(k,3538)
4778 254840160 : lu(k,3612) = lu(k,3612) - lu(k,1287) * lu(k,3538)
4779 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1288) * lu(k,3538)
4780 254840160 : lu(k,3693) = lu(k,3693) - lu(k,1273) * lu(k,3692)
4781 254840160 : lu(k,3702) = lu(k,3702) - lu(k,1274) * lu(k,3692)
4782 254840160 : lu(k,3706) = lu(k,3706) - lu(k,1275) * lu(k,3692)
4783 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1276) * lu(k,3692)
4784 254840160 : lu(k,3735) = - lu(k,1277) * lu(k,3692)
4785 254840160 : lu(k,3737) = lu(k,3737) - lu(k,1278) * lu(k,3692)
4786 254840160 : lu(k,3740) = - lu(k,1279) * lu(k,3692)
4787 254840160 : lu(k,3747) = lu(k,3747) - lu(k,1280) * lu(k,3692)
4788 254840160 : lu(k,3749) = lu(k,3749) - lu(k,1281) * lu(k,3692)
4789 254840160 : lu(k,3750) = lu(k,3750) - lu(k,1282) * lu(k,3692)
4790 254840160 : lu(k,3752) = lu(k,3752) - lu(k,1283) * lu(k,3692)
4791 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1284) * lu(k,3692)
4792 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1285) * lu(k,3692)
4793 254840160 : lu(k,3764) = lu(k,3764) - lu(k,1286) * lu(k,3692)
4794 254840160 : lu(k,3766) = lu(k,3766) - lu(k,1287) * lu(k,3692)
4795 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1288) * lu(k,3692)
4796 254840160 : lu(k,4006) = lu(k,4006) - lu(k,1273) * lu(k,4005)
4797 254840160 : lu(k,4023) = lu(k,4023) - lu(k,1274) * lu(k,4005)
4798 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1275) * lu(k,4005)
4799 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1276) * lu(k,4005)
4800 254840160 : lu(k,4066) = - lu(k,1277) * lu(k,4005)
4801 254840160 : lu(k,4069) = lu(k,4069) - lu(k,1278) * lu(k,4005)
4802 254840160 : lu(k,4072) = lu(k,4072) - lu(k,1279) * lu(k,4005)
4803 254840160 : lu(k,4079) = lu(k,4079) - lu(k,1280) * lu(k,4005)
4804 254840160 : lu(k,4081) = lu(k,4081) - lu(k,1281) * lu(k,4005)
4805 254840160 : lu(k,4082) = lu(k,4082) - lu(k,1282) * lu(k,4005)
4806 254840160 : lu(k,4084) = lu(k,4084) - lu(k,1283) * lu(k,4005)
4807 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1284) * lu(k,4005)
4808 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1285) * lu(k,4005)
4809 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1286) * lu(k,4005)
4810 254840160 : lu(k,4098) = lu(k,4098) - lu(k,1287) * lu(k,4005)
4811 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1288) * lu(k,4005)
4812 254840160 : lu(k,1289) = 1._r8 / lu(k,1289)
4813 254840160 : lu(k,1290) = lu(k,1290) * lu(k,1289)
4814 254840160 : lu(k,1291) = lu(k,1291) * lu(k,1289)
4815 254840160 : lu(k,1292) = lu(k,1292) * lu(k,1289)
4816 254840160 : lu(k,1293) = lu(k,1293) * lu(k,1289)
4817 254840160 : lu(k,1294) = lu(k,1294) * lu(k,1289)
4818 254840160 : lu(k,1295) = lu(k,1295) * lu(k,1289)
4819 254840160 : lu(k,1296) = lu(k,1296) * lu(k,1289)
4820 254840160 : lu(k,2652) = - lu(k,1290) * lu(k,2648)
4821 254840160 : lu(k,2656) = lu(k,2656) - lu(k,1291) * lu(k,2648)
4822 254840160 : lu(k,2657) = lu(k,2657) - lu(k,1292) * lu(k,2648)
4823 254840160 : lu(k,2661) = - lu(k,1293) * lu(k,2648)
4824 254840160 : lu(k,2665) = lu(k,2665) - lu(k,1294) * lu(k,2648)
4825 254840160 : lu(k,2667) = lu(k,2667) - lu(k,1295) * lu(k,2648)
4826 254840160 : lu(k,2669) = lu(k,2669) - lu(k,1296) * lu(k,2648)
4827 254840160 : lu(k,2818) = lu(k,2818) - lu(k,1290) * lu(k,2811)
4828 254840160 : lu(k,2837) = lu(k,2837) - lu(k,1291) * lu(k,2811)
4829 254840160 : lu(k,2838) = lu(k,2838) - lu(k,1292) * lu(k,2811)
4830 254840160 : lu(k,2842) = - lu(k,1293) * lu(k,2811)
4831 254840160 : lu(k,2847) = lu(k,2847) - lu(k,1294) * lu(k,2811)
4832 254840160 : lu(k,2849) = lu(k,2849) - lu(k,1295) * lu(k,2811)
4833 254840160 : lu(k,2853) = lu(k,2853) - lu(k,1296) * lu(k,2811)
4834 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1290) * lu(k,3389)
4835 254840160 : lu(k,3451) = lu(k,3451) - lu(k,1291) * lu(k,3389)
4836 254840160 : lu(k,3452) = lu(k,3452) - lu(k,1292) * lu(k,3389)
4837 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1293) * lu(k,3389)
4838 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1294) * lu(k,3389)
4839 254840160 : lu(k,3466) = - lu(k,1295) * lu(k,3389)
4840 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1296) * lu(k,3389)
4841 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1290) * lu(k,3539)
4842 254840160 : lu(k,3595) = lu(k,3595) - lu(k,1291) * lu(k,3539)
4843 254840160 : lu(k,3596) = lu(k,3596) - lu(k,1292) * lu(k,3539)
4844 254840160 : lu(k,3601) = lu(k,3601) - lu(k,1293) * lu(k,3539)
4845 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1294) * lu(k,3539)
4846 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1295) * lu(k,3539)
4847 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1296) * lu(k,3539)
4848 254840160 : lu(k,3644) = lu(k,3644) - lu(k,1290) * lu(k,3636)
4849 254840160 : lu(k,3647) = - lu(k,1291) * lu(k,3636)
4850 254840160 : lu(k,3648) = lu(k,3648) - lu(k,1292) * lu(k,3636)
4851 254840160 : lu(k,3653) = lu(k,3653) - lu(k,1293) * lu(k,3636)
4852 254840160 : lu(k,3658) = lu(k,3658) - lu(k,1294) * lu(k,3636)
4853 254840160 : lu(k,3662) = lu(k,3662) - lu(k,1295) * lu(k,3636)
4854 254840160 : lu(k,3667) = lu(k,3667) - lu(k,1296) * lu(k,3636)
4855 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1290) * lu(k,3693)
4856 254840160 : lu(k,3749) = lu(k,3749) - lu(k,1291) * lu(k,3693)
4857 254840160 : lu(k,3750) = lu(k,3750) - lu(k,1292) * lu(k,3693)
4858 254840160 : lu(k,3755) = - lu(k,1293) * lu(k,3693)
4859 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1294) * lu(k,3693)
4860 254840160 : lu(k,3764) = lu(k,3764) - lu(k,1295) * lu(k,3693)
4861 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1296) * lu(k,3693)
4862 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1290) * lu(k,4006)
4863 254840160 : lu(k,4081) = lu(k,4081) - lu(k,1291) * lu(k,4006)
4864 254840160 : lu(k,4082) = lu(k,4082) - lu(k,1292) * lu(k,4006)
4865 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1293) * lu(k,4006)
4866 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1294) * lu(k,4006)
4867 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1295) * lu(k,4006)
4868 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1296) * lu(k,4006)
4869 : end do
4870 8168963 : end subroutine lu_fac28
4871 8168963 : subroutine lu_fac29( avec_len, lu )
4872 : use chem_mods, only : nzcnt
4873 : use shr_kind_mod, only : r8 => shr_kind_r8
4874 : implicit none
4875 : !-----------------------------------------------------------------------
4876 : ! ... dummy args
4877 : !-----------------------------------------------------------------------
4878 : integer, intent(in) :: avec_len
4879 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4880 : !-----------------------------------------------------------------------
4881 : ! ... local variables
4882 : !-----------------------------------------------------------------------
4883 : integer :: k
4884 263009123 : do k = 1,avec_len
4885 254840160 : lu(k,1298) = 1._r8 / lu(k,1298)
4886 254840160 : lu(k,1299) = lu(k,1299) * lu(k,1298)
4887 254840160 : lu(k,1300) = lu(k,1300) * lu(k,1298)
4888 254840160 : lu(k,1301) = lu(k,1301) * lu(k,1298)
4889 254840160 : lu(k,1302) = lu(k,1302) * lu(k,1298)
4890 254840160 : lu(k,1303) = lu(k,1303) * lu(k,1298)
4891 254840160 : lu(k,1304) = lu(k,1304) * lu(k,1298)
4892 254840160 : lu(k,1305) = lu(k,1305) * lu(k,1298)
4893 254840160 : lu(k,1306) = lu(k,1306) * lu(k,1298)
4894 254840160 : lu(k,1307) = lu(k,1307) * lu(k,1298)
4895 254840160 : lu(k,1308) = lu(k,1308) * lu(k,1298)
4896 254840160 : lu(k,1523) = - lu(k,1299) * lu(k,1522)
4897 254840160 : lu(k,1526) = - lu(k,1300) * lu(k,1522)
4898 254840160 : lu(k,1527) = lu(k,1527) - lu(k,1301) * lu(k,1522)
4899 254840160 : lu(k,1528) = - lu(k,1302) * lu(k,1522)
4900 254840160 : lu(k,1529) = lu(k,1529) - lu(k,1303) * lu(k,1522)
4901 254840160 : lu(k,1530) = lu(k,1530) - lu(k,1304) * lu(k,1522)
4902 254840160 : lu(k,1531) = - lu(k,1305) * lu(k,1522)
4903 254840160 : lu(k,1533) = lu(k,1533) - lu(k,1306) * lu(k,1522)
4904 254840160 : lu(k,1534) = - lu(k,1307) * lu(k,1522)
4905 254840160 : lu(k,1535) = lu(k,1535) - lu(k,1308) * lu(k,1522)
4906 254840160 : lu(k,1867) = - lu(k,1299) * lu(k,1866)
4907 254840160 : lu(k,1869) = lu(k,1869) - lu(k,1300) * lu(k,1866)
4908 254840160 : lu(k,1870) = lu(k,1870) - lu(k,1301) * lu(k,1866)
4909 254840160 : lu(k,1871) = - lu(k,1302) * lu(k,1866)
4910 254840160 : lu(k,1874) = lu(k,1874) - lu(k,1303) * lu(k,1866)
4911 254840160 : lu(k,1875) = lu(k,1875) - lu(k,1304) * lu(k,1866)
4912 254840160 : lu(k,1877) = - lu(k,1305) * lu(k,1866)
4913 254840160 : lu(k,1880) = lu(k,1880) - lu(k,1306) * lu(k,1866)
4914 254840160 : lu(k,1881) = - lu(k,1307) * lu(k,1866)
4915 254840160 : lu(k,1882) = lu(k,1882) - lu(k,1308) * lu(k,1866)
4916 254840160 : lu(k,3042) = lu(k,3042) - lu(k,1299) * lu(k,3031)
4917 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1300) * lu(k,3031)
4918 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1301) * lu(k,3031)
4919 254840160 : lu(k,3063) = lu(k,3063) - lu(k,1302) * lu(k,3031)
4920 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1303) * lu(k,3031)
4921 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1304) * lu(k,3031)
4922 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1305) * lu(k,3031)
4923 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1306) * lu(k,3031)
4924 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1307) * lu(k,3031)
4925 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1308) * lu(k,3031)
4926 254840160 : lu(k,3299) = lu(k,3299) - lu(k,1299) * lu(k,3288)
4927 254840160 : lu(k,3316) = lu(k,3316) - lu(k,1300) * lu(k,3288)
4928 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1301) * lu(k,3288)
4929 254840160 : lu(k,3322) = lu(k,3322) - lu(k,1302) * lu(k,3288)
4930 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1303) * lu(k,3288)
4931 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1304) * lu(k,3288)
4932 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1305) * lu(k,3288)
4933 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1306) * lu(k,3288)
4934 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1307) * lu(k,3288)
4935 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1308) * lu(k,3288)
4936 254840160 : lu(k,4021) = lu(k,4021) - lu(k,1299) * lu(k,4007)
4937 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1300) * lu(k,4007)
4938 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1301) * lu(k,4007)
4939 254840160 : lu(k,4046) = lu(k,4046) - lu(k,1302) * lu(k,4007)
4940 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1303) * lu(k,4007)
4941 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1304) * lu(k,4007)
4942 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1305) * lu(k,4007)
4943 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1306) * lu(k,4007)
4944 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1307) * lu(k,4007)
4945 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1308) * lu(k,4007)
4946 254840160 : lu(k,1309) = 1._r8 / lu(k,1309)
4947 254840160 : lu(k,1310) = lu(k,1310) * lu(k,1309)
4948 254840160 : lu(k,1311) = lu(k,1311) * lu(k,1309)
4949 254840160 : lu(k,1312) = lu(k,1312) * lu(k,1309)
4950 254840160 : lu(k,1313) = lu(k,1313) * lu(k,1309)
4951 254840160 : lu(k,1314) = lu(k,1314) * lu(k,1309)
4952 254840160 : lu(k,1315) = lu(k,1315) * lu(k,1309)
4953 254840160 : lu(k,1316) = lu(k,1316) * lu(k,1309)
4954 254840160 : lu(k,1317) = lu(k,1317) * lu(k,1309)
4955 254840160 : lu(k,1318) = lu(k,1318) * lu(k,1309)
4956 254840160 : lu(k,1319) = lu(k,1319) * lu(k,1309)
4957 254840160 : lu(k,1320) = lu(k,1320) * lu(k,1309)
4958 254840160 : lu(k,1321) = lu(k,1321) * lu(k,1309)
4959 254840160 : lu(k,1322) = lu(k,1322) * lu(k,1309)
4960 254840160 : lu(k,2160) = - lu(k,1310) * lu(k,2157)
4961 254840160 : lu(k,2161) = - lu(k,1311) * lu(k,2157)
4962 254840160 : lu(k,2162) = lu(k,2162) - lu(k,1312) * lu(k,2157)
4963 254840160 : lu(k,2167) = lu(k,2167) - lu(k,1313) * lu(k,2157)
4964 254840160 : lu(k,2168) = - lu(k,1314) * lu(k,2157)
4965 254840160 : lu(k,2169) = lu(k,2169) - lu(k,1315) * lu(k,2157)
4966 254840160 : lu(k,2170) = - lu(k,1316) * lu(k,2157)
4967 254840160 : lu(k,2172) = lu(k,2172) - lu(k,1317) * lu(k,2157)
4968 254840160 : lu(k,2185) = lu(k,2185) - lu(k,1318) * lu(k,2157)
4969 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1319) * lu(k,2157)
4970 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1320) * lu(k,2157)
4971 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1321) * lu(k,2157)
4972 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1322) * lu(k,2157)
4973 254840160 : lu(k,3039) = lu(k,3039) - lu(k,1310) * lu(k,3032)
4974 254840160 : lu(k,3041) = lu(k,3041) - lu(k,1311) * lu(k,3032)
4975 254840160 : lu(k,3043) = lu(k,3043) - lu(k,1312) * lu(k,3032)
4976 254840160 : lu(k,3054) = lu(k,3054) - lu(k,1313) * lu(k,3032)
4977 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1314) * lu(k,3032)
4978 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1315) * lu(k,3032)
4979 254840160 : lu(k,3062) = lu(k,3062) - lu(k,1316) * lu(k,3032)
4980 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1317) * lu(k,3032)
4981 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1318) * lu(k,3032)
4982 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1319) * lu(k,3032)
4983 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1320) * lu(k,3032)
4984 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1321) * lu(k,3032)
4985 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1322) * lu(k,3032)
4986 254840160 : lu(k,3296) = lu(k,3296) - lu(k,1310) * lu(k,3289)
4987 254840160 : lu(k,3298) = lu(k,3298) - lu(k,1311) * lu(k,3289)
4988 254840160 : lu(k,3300) = lu(k,3300) - lu(k,1312) * lu(k,3289)
4989 254840160 : lu(k,3312) = lu(k,3312) - lu(k,1313) * lu(k,3289)
4990 254840160 : lu(k,3316) = lu(k,3316) - lu(k,1314) * lu(k,3289)
4991 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1315) * lu(k,3289)
4992 254840160 : lu(k,3321) = lu(k,3321) - lu(k,1316) * lu(k,3289)
4993 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1317) * lu(k,3289)
4994 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1318) * lu(k,3289)
4995 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1319) * lu(k,3289)
4996 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1320) * lu(k,3289)
4997 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1321) * lu(k,3289)
4998 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1322) * lu(k,3289)
4999 254840160 : lu(k,4018) = lu(k,4018) - lu(k,1310) * lu(k,4008)
5000 254840160 : lu(k,4020) = lu(k,4020) - lu(k,1311) * lu(k,4008)
5001 254840160 : lu(k,4022) = lu(k,4022) - lu(k,1312) * lu(k,4008)
5002 254840160 : lu(k,4036) = lu(k,4036) - lu(k,1313) * lu(k,4008)
5003 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1314) * lu(k,4008)
5004 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1315) * lu(k,4008)
5005 254840160 : lu(k,4045) = lu(k,4045) - lu(k,1316) * lu(k,4008)
5006 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1317) * lu(k,4008)
5007 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1318) * lu(k,4008)
5008 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1319) * lu(k,4008)
5009 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1320) * lu(k,4008)
5010 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1321) * lu(k,4008)
5011 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1322) * lu(k,4008)
5012 254840160 : lu(k,1325) = 1._r8 / lu(k,1325)
5013 254840160 : lu(k,1326) = lu(k,1326) * lu(k,1325)
5014 254840160 : lu(k,1327) = lu(k,1327) * lu(k,1325)
5015 254840160 : lu(k,1328) = lu(k,1328) * lu(k,1325)
5016 254840160 : lu(k,1329) = lu(k,1329) * lu(k,1325)
5017 254840160 : lu(k,1330) = lu(k,1330) * lu(k,1325)
5018 254840160 : lu(k,1331) = lu(k,1331) * lu(k,1325)
5019 254840160 : lu(k,1332) = lu(k,1332) * lu(k,1325)
5020 254840160 : lu(k,1333) = lu(k,1333) * lu(k,1325)
5021 254840160 : lu(k,1334) = lu(k,1334) * lu(k,1325)
5022 254840160 : lu(k,3128) = lu(k,3128) - lu(k,1326) * lu(k,3125)
5023 254840160 : lu(k,3129) = lu(k,3129) - lu(k,1327) * lu(k,3125)
5024 254840160 : lu(k,3130) = lu(k,3130) - lu(k,1328) * lu(k,3125)
5025 254840160 : lu(k,3135) = lu(k,3135) - lu(k,1329) * lu(k,3125)
5026 254840160 : lu(k,3136) = - lu(k,1330) * lu(k,3125)
5027 254840160 : lu(k,3137) = - lu(k,1331) * lu(k,3125)
5028 254840160 : lu(k,3140) = lu(k,3140) - lu(k,1332) * lu(k,3125)
5029 254840160 : lu(k,3141) = lu(k,3141) - lu(k,1333) * lu(k,3125)
5030 254840160 : lu(k,3142) = lu(k,3142) - lu(k,1334) * lu(k,3125)
5031 254840160 : lu(k,3158) = lu(k,3158) - lu(k,1326) * lu(k,3150)
5032 254840160 : lu(k,3160) = lu(k,3160) - lu(k,1327) * lu(k,3150)
5033 254840160 : lu(k,3161) = lu(k,3161) - lu(k,1328) * lu(k,3150)
5034 254840160 : lu(k,3166) = lu(k,3166) - lu(k,1329) * lu(k,3150)
5035 254840160 : lu(k,3167) = lu(k,3167) - lu(k,1330) * lu(k,3150)
5036 254840160 : lu(k,3168) = lu(k,3168) - lu(k,1331) * lu(k,3150)
5037 254840160 : lu(k,3171) = lu(k,3171) - lu(k,1332) * lu(k,3150)
5038 254840160 : lu(k,3172) = lu(k,3172) - lu(k,1333) * lu(k,3150)
5039 254840160 : lu(k,3173) = lu(k,3173) - lu(k,1334) * lu(k,3150)
5040 254840160 : lu(k,3507) = - lu(k,1326) * lu(k,3503)
5041 254840160 : lu(k,3509) = lu(k,3509) - lu(k,1327) * lu(k,3503)
5042 254840160 : lu(k,3510) = lu(k,3510) - lu(k,1328) * lu(k,3503)
5043 254840160 : lu(k,3515) = lu(k,3515) - lu(k,1329) * lu(k,3503)
5044 254840160 : lu(k,3516) = - lu(k,1330) * lu(k,3503)
5045 254840160 : lu(k,3517) = lu(k,3517) - lu(k,1331) * lu(k,3503)
5046 254840160 : lu(k,3520) = lu(k,3520) - lu(k,1332) * lu(k,3503)
5047 254840160 : lu(k,3521) = lu(k,3521) - lu(k,1333) * lu(k,3503)
5048 254840160 : lu(k,3522) = lu(k,3522) - lu(k,1334) * lu(k,3503)
5049 254840160 : lu(k,3653) = lu(k,3653) - lu(k,1326) * lu(k,3637)
5050 254840160 : lu(k,3655) = lu(k,3655) - lu(k,1327) * lu(k,3637)
5051 254840160 : lu(k,3656) = lu(k,3656) - lu(k,1328) * lu(k,3637)
5052 254840160 : lu(k,3661) = lu(k,3661) - lu(k,1329) * lu(k,3637)
5053 254840160 : lu(k,3662) = lu(k,3662) - lu(k,1330) * lu(k,3637)
5054 254840160 : lu(k,3663) = lu(k,3663) - lu(k,1331) * lu(k,3637)
5055 254840160 : lu(k,3666) = lu(k,3666) - lu(k,1332) * lu(k,3637)
5056 254840160 : lu(k,3667) = lu(k,3667) - lu(k,1333) * lu(k,3637)
5057 254840160 : lu(k,3668) = lu(k,3668) - lu(k,1334) * lu(k,3637)
5058 254840160 : lu(k,3837) = - lu(k,1326) * lu(k,3822)
5059 254840160 : lu(k,3839) = lu(k,3839) - lu(k,1327) * lu(k,3822)
5060 254840160 : lu(k,3840) = lu(k,3840) - lu(k,1328) * lu(k,3822)
5061 254840160 : lu(k,3845) = lu(k,3845) - lu(k,1329) * lu(k,3822)
5062 254840160 : lu(k,3846) = lu(k,3846) - lu(k,1330) * lu(k,3822)
5063 254840160 : lu(k,3847) = lu(k,3847) - lu(k,1331) * lu(k,3822)
5064 254840160 : lu(k,3850) = lu(k,3850) - lu(k,1332) * lu(k,3822)
5065 254840160 : lu(k,3851) = lu(k,3851) - lu(k,1333) * lu(k,3822)
5066 254840160 : lu(k,3852) = lu(k,3852) - lu(k,1334) * lu(k,3822)
5067 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1326) * lu(k,4009)
5068 254840160 : lu(k,4089) = lu(k,4089) - lu(k,1327) * lu(k,4009)
5069 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1328) * lu(k,4009)
5070 254840160 : lu(k,4095) = lu(k,4095) - lu(k,1329) * lu(k,4009)
5071 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1330) * lu(k,4009)
5072 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1331) * lu(k,4009)
5073 254840160 : lu(k,4100) = lu(k,4100) - lu(k,1332) * lu(k,4009)
5074 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1333) * lu(k,4009)
5075 263009123 : lu(k,4102) = lu(k,4102) - lu(k,1334) * lu(k,4009)
5076 : end do
5077 8168963 : end subroutine lu_fac29
5078 8168963 : subroutine lu_fac30( avec_len, lu )
5079 : use chem_mods, only : nzcnt
5080 : use shr_kind_mod, only : r8 => shr_kind_r8
5081 : implicit none
5082 : !-----------------------------------------------------------------------
5083 : ! ... dummy args
5084 : !-----------------------------------------------------------------------
5085 : integer, intent(in) :: avec_len
5086 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5087 : !-----------------------------------------------------------------------
5088 : ! ... local variables
5089 : !-----------------------------------------------------------------------
5090 : integer :: k
5091 263009123 : do k = 1,avec_len
5092 254840160 : lu(k,1336) = 1._r8 / lu(k,1336)
5093 254840160 : lu(k,1337) = lu(k,1337) * lu(k,1336)
5094 254840160 : lu(k,1338) = lu(k,1338) * lu(k,1336)
5095 254840160 : lu(k,1339) = lu(k,1339) * lu(k,1336)
5096 254840160 : lu(k,1340) = lu(k,1340) * lu(k,1336)
5097 254840160 : lu(k,1341) = lu(k,1341) * lu(k,1336)
5098 254840160 : lu(k,1342) = lu(k,1342) * lu(k,1336)
5099 254840160 : lu(k,1343) = lu(k,1343) * lu(k,1336)
5100 254840160 : lu(k,1344) = lu(k,1344) * lu(k,1336)
5101 254840160 : lu(k,1345) = lu(k,1345) * lu(k,1336)
5102 254840160 : lu(k,1346) = lu(k,1346) * lu(k,1336)
5103 254840160 : lu(k,1347) = lu(k,1347) * lu(k,1336)
5104 254840160 : lu(k,2273) = - lu(k,1337) * lu(k,2272)
5105 254840160 : lu(k,2274) = - lu(k,1338) * lu(k,2272)
5106 254840160 : lu(k,2275) = - lu(k,1339) * lu(k,2272)
5107 254840160 : lu(k,2278) = lu(k,2278) - lu(k,1340) * lu(k,2272)
5108 254840160 : lu(k,2280) = - lu(k,1341) * lu(k,2272)
5109 254840160 : lu(k,2282) = - lu(k,1342) * lu(k,2272)
5110 254840160 : lu(k,2283) = - lu(k,1343) * lu(k,2272)
5111 254840160 : lu(k,2284) = lu(k,2284) - lu(k,1344) * lu(k,2272)
5112 254840160 : lu(k,2286) = - lu(k,1345) * lu(k,2272)
5113 254840160 : lu(k,2287) = lu(k,2287) - lu(k,1346) * lu(k,2272)
5114 254840160 : lu(k,2288) = lu(k,2288) - lu(k,1347) * lu(k,2272)
5115 254840160 : lu(k,3044) = - lu(k,1337) * lu(k,3033)
5116 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1338) * lu(k,3033)
5117 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1339) * lu(k,3033)
5118 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1340) * lu(k,3033)
5119 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1341) * lu(k,3033)
5120 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1342) * lu(k,3033)
5121 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1343) * lu(k,3033)
5122 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1344) * lu(k,3033)
5123 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1345) * lu(k,3033)
5124 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1346) * lu(k,3033)
5125 254840160 : lu(k,3120) = lu(k,3120) - lu(k,1347) * lu(k,3033)
5126 254840160 : lu(k,3302) = - lu(k,1337) * lu(k,3290)
5127 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1338) * lu(k,3290)
5128 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1339) * lu(k,3290)
5129 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1340) * lu(k,3290)
5130 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1341) * lu(k,3290)
5131 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1342) * lu(k,3290)
5132 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1343) * lu(k,3290)
5133 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1344) * lu(k,3290)
5134 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1345) * lu(k,3290)
5135 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1346) * lu(k,3290)
5136 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1347) * lu(k,3290)
5137 254840160 : lu(k,3398) = lu(k,3398) - lu(k,1337) * lu(k,3390)
5138 254840160 : lu(k,3414) = lu(k,3414) - lu(k,1338) * lu(k,3390)
5139 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1339) * lu(k,3390)
5140 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1340) * lu(k,3390)
5141 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1341) * lu(k,3390)
5142 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1342) * lu(k,3390)
5143 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1343) * lu(k,3390)
5144 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1344) * lu(k,3390)
5145 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1345) * lu(k,3390)
5146 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1346) * lu(k,3390)
5147 254840160 : lu(k,3472) = lu(k,3472) - lu(k,1347) * lu(k,3390)
5148 254840160 : lu(k,4024) = lu(k,4024) - lu(k,1337) * lu(k,4010)
5149 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1338) * lu(k,4010)
5150 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1339) * lu(k,4010)
5151 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1340) * lu(k,4010)
5152 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1341) * lu(k,4010)
5153 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1342) * lu(k,4010)
5154 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1343) * lu(k,4010)
5155 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1344) * lu(k,4010)
5156 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1345) * lu(k,4010)
5157 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1346) * lu(k,4010)
5158 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1347) * lu(k,4010)
5159 254840160 : lu(k,1350) = 1._r8 / lu(k,1350)
5160 254840160 : lu(k,1351) = lu(k,1351) * lu(k,1350)
5161 254840160 : lu(k,1352) = lu(k,1352) * lu(k,1350)
5162 254840160 : lu(k,1353) = lu(k,1353) * lu(k,1350)
5163 254840160 : lu(k,1354) = lu(k,1354) * lu(k,1350)
5164 254840160 : lu(k,1355) = lu(k,1355) * lu(k,1350)
5165 254840160 : lu(k,1356) = lu(k,1356) * lu(k,1350)
5166 254840160 : lu(k,1357) = lu(k,1357) * lu(k,1350)
5167 254840160 : lu(k,1358) = lu(k,1358) * lu(k,1350)
5168 254840160 : lu(k,3037) = lu(k,3037) - lu(k,1351) * lu(k,3034)
5169 254840160 : lu(k,3044) = lu(k,3044) - lu(k,1352) * lu(k,3034)
5170 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1353) * lu(k,3034)
5171 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1354) * lu(k,3034)
5172 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1355) * lu(k,3034)
5173 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1356) * lu(k,3034)
5174 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1357) * lu(k,3034)
5175 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1358) * lu(k,3034)
5176 254840160 : lu(k,3294) = lu(k,3294) - lu(k,1351) * lu(k,3291)
5177 254840160 : lu(k,3302) = lu(k,3302) - lu(k,1352) * lu(k,3291)
5178 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1353) * lu(k,3291)
5179 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1354) * lu(k,3291)
5180 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1355) * lu(k,3291)
5181 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1356) * lu(k,3291)
5182 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1357) * lu(k,3291)
5183 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1358) * lu(k,3291)
5184 254840160 : lu(k,3392) = lu(k,3392) - lu(k,1351) * lu(k,3391)
5185 254840160 : lu(k,3398) = lu(k,3398) - lu(k,1352) * lu(k,3391)
5186 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1353) * lu(k,3391)
5187 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1354) * lu(k,3391)
5188 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1355) * lu(k,3391)
5189 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1356) * lu(k,3391)
5190 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1357) * lu(k,3391)
5191 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1358) * lu(k,3391)
5192 254840160 : lu(k,3544) = lu(k,3544) - lu(k,1351) * lu(k,3540)
5193 254840160 : lu(k,3547) = - lu(k,1352) * lu(k,3540)
5194 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1353) * lu(k,3540)
5195 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1354) * lu(k,3540)
5196 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1355) * lu(k,3540)
5197 254840160 : lu(k,3607) = lu(k,3607) - lu(k,1356) * lu(k,3540)
5198 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1357) * lu(k,3540)
5199 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1358) * lu(k,3540)
5200 254840160 : lu(k,3698) = lu(k,3698) - lu(k,1351) * lu(k,3694)
5201 254840160 : lu(k,3703) = - lu(k,1352) * lu(k,3694)
5202 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1353) * lu(k,3694)
5203 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1354) * lu(k,3694)
5204 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1355) * lu(k,3694)
5205 254840160 : lu(k,3761) = lu(k,3761) - lu(k,1356) * lu(k,3694)
5206 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1357) * lu(k,3694)
5207 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1358) * lu(k,3694)
5208 254840160 : lu(k,3825) = - lu(k,1351) * lu(k,3823)
5209 254840160 : lu(k,3828) = - lu(k,1352) * lu(k,3823)
5210 254840160 : lu(k,3838) = lu(k,3838) - lu(k,1353) * lu(k,3823)
5211 254840160 : lu(k,3841) = lu(k,3841) - lu(k,1354) * lu(k,3823)
5212 254840160 : lu(k,3842) = lu(k,3842) - lu(k,1355) * lu(k,3823)
5213 254840160 : lu(k,3843) = lu(k,3843) - lu(k,1356) * lu(k,3823)
5214 254840160 : lu(k,3847) = lu(k,3847) - lu(k,1357) * lu(k,3823)
5215 254840160 : lu(k,3851) = lu(k,3851) - lu(k,1358) * lu(k,3823)
5216 254840160 : lu(k,4016) = lu(k,4016) - lu(k,1351) * lu(k,4011)
5217 254840160 : lu(k,4024) = lu(k,4024) - lu(k,1352) * lu(k,4011)
5218 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1353) * lu(k,4011)
5219 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1354) * lu(k,4011)
5220 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1355) * lu(k,4011)
5221 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1356) * lu(k,4011)
5222 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1357) * lu(k,4011)
5223 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1358) * lu(k,4011)
5224 254840160 : lu(k,1361) = 1._r8 / lu(k,1361)
5225 254840160 : lu(k,1362) = lu(k,1362) * lu(k,1361)
5226 254840160 : lu(k,1363) = lu(k,1363) * lu(k,1361)
5227 254840160 : lu(k,1364) = lu(k,1364) * lu(k,1361)
5228 254840160 : lu(k,1365) = lu(k,1365) * lu(k,1361)
5229 254840160 : lu(k,1366) = lu(k,1366) * lu(k,1361)
5230 254840160 : lu(k,1367) = lu(k,1367) * lu(k,1361)
5231 254840160 : lu(k,1368) = lu(k,1368) * lu(k,1361)
5232 254840160 : lu(k,1369) = lu(k,1369) * lu(k,1361)
5233 254840160 : lu(k,1370) = lu(k,1370) * lu(k,1361)
5234 254840160 : lu(k,1371) = lu(k,1371) * lu(k,1361)
5235 254840160 : lu(k,1372) = lu(k,1372) * lu(k,1361)
5236 254840160 : lu(k,1373) = lu(k,1373) * lu(k,1361)
5237 254840160 : lu(k,1374) = lu(k,1374) * lu(k,1361)
5238 254840160 : lu(k,1375) = lu(k,1375) * lu(k,1361)
5239 254840160 : lu(k,1376) = lu(k,1376) * lu(k,1361)
5240 254840160 : lu(k,1566) = lu(k,1566) - lu(k,1362) * lu(k,1565)
5241 254840160 : lu(k,1567) = - lu(k,1363) * lu(k,1565)
5242 254840160 : lu(k,1568) = lu(k,1568) - lu(k,1364) * lu(k,1565)
5243 254840160 : lu(k,1569) = lu(k,1569) - lu(k,1365) * lu(k,1565)
5244 254840160 : lu(k,1575) = - lu(k,1366) * lu(k,1565)
5245 254840160 : lu(k,1578) = - lu(k,1367) * lu(k,1565)
5246 254840160 : lu(k,1580) = lu(k,1580) - lu(k,1368) * lu(k,1565)
5247 254840160 : lu(k,1581) = lu(k,1581) - lu(k,1369) * lu(k,1565)
5248 254840160 : lu(k,1582) = lu(k,1582) - lu(k,1370) * lu(k,1565)
5249 254840160 : lu(k,1585) = lu(k,1585) - lu(k,1371) * lu(k,1565)
5250 254840160 : lu(k,1587) = - lu(k,1372) * lu(k,1565)
5251 254840160 : lu(k,1590) = lu(k,1590) - lu(k,1373) * lu(k,1565)
5252 254840160 : lu(k,1591) = lu(k,1591) - lu(k,1374) * lu(k,1565)
5253 254840160 : lu(k,1592) = lu(k,1592) - lu(k,1375) * lu(k,1565)
5254 254840160 : lu(k,1595) = lu(k,1595) - lu(k,1376) * lu(k,1565)
5255 254840160 : lu(k,3039) = lu(k,3039) - lu(k,1362) * lu(k,3035)
5256 254840160 : lu(k,3041) = lu(k,3041) - lu(k,1363) * lu(k,3035)
5257 254840160 : lu(k,3042) = lu(k,3042) - lu(k,1364) * lu(k,3035)
5258 254840160 : lu(k,3043) = lu(k,3043) - lu(k,1365) * lu(k,3035)
5259 254840160 : lu(k,3054) = lu(k,3054) - lu(k,1366) * lu(k,3035)
5260 254840160 : lu(k,3062) = lu(k,3062) - lu(k,1367) * lu(k,3035)
5261 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1368) * lu(k,3035)
5262 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1369) * lu(k,3035)
5263 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1370) * lu(k,3035)
5264 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1371) * lu(k,3035)
5265 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1372) * lu(k,3035)
5266 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1373) * lu(k,3035)
5267 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1374) * lu(k,3035)
5268 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1375) * lu(k,3035)
5269 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1376) * lu(k,3035)
5270 254840160 : lu(k,3296) = lu(k,3296) - lu(k,1362) * lu(k,3292)
5271 254840160 : lu(k,3298) = lu(k,3298) - lu(k,1363) * lu(k,3292)
5272 254840160 : lu(k,3299) = lu(k,3299) - lu(k,1364) * lu(k,3292)
5273 254840160 : lu(k,3300) = lu(k,3300) - lu(k,1365) * lu(k,3292)
5274 254840160 : lu(k,3312) = lu(k,3312) - lu(k,1366) * lu(k,3292)
5275 254840160 : lu(k,3321) = lu(k,3321) - lu(k,1367) * lu(k,3292)
5276 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1368) * lu(k,3292)
5277 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1369) * lu(k,3292)
5278 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1370) * lu(k,3292)
5279 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1371) * lu(k,3292)
5280 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1372) * lu(k,3292)
5281 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1373) * lu(k,3292)
5282 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1374) * lu(k,3292)
5283 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1375) * lu(k,3292)
5284 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1376) * lu(k,3292)
5285 254840160 : lu(k,4018) = lu(k,4018) - lu(k,1362) * lu(k,4012)
5286 254840160 : lu(k,4020) = lu(k,4020) - lu(k,1363) * lu(k,4012)
5287 254840160 : lu(k,4021) = lu(k,4021) - lu(k,1364) * lu(k,4012)
5288 254840160 : lu(k,4022) = lu(k,4022) - lu(k,1365) * lu(k,4012)
5289 254840160 : lu(k,4036) = lu(k,4036) - lu(k,1366) * lu(k,4012)
5290 254840160 : lu(k,4045) = lu(k,4045) - lu(k,1367) * lu(k,4012)
5291 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1368) * lu(k,4012)
5292 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1369) * lu(k,4012)
5293 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1370) * lu(k,4012)
5294 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1371) * lu(k,4012)
5295 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1372) * lu(k,4012)
5296 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1373) * lu(k,4012)
5297 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1374) * lu(k,4012)
5298 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1375) * lu(k,4012)
5299 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1376) * lu(k,4012)
5300 : end do
5301 8168963 : end subroutine lu_fac30
5302 8168963 : subroutine lu_fac31( avec_len, lu )
5303 : use chem_mods, only : nzcnt
5304 : use shr_kind_mod, only : r8 => shr_kind_r8
5305 : implicit none
5306 : !-----------------------------------------------------------------------
5307 : ! ... dummy args
5308 : !-----------------------------------------------------------------------
5309 : integer, intent(in) :: avec_len
5310 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5311 : !-----------------------------------------------------------------------
5312 : ! ... local variables
5313 : !-----------------------------------------------------------------------
5314 : integer :: k
5315 263009123 : do k = 1,avec_len
5316 254840160 : lu(k,1377) = 1._r8 / lu(k,1377)
5317 254840160 : lu(k,1378) = lu(k,1378) * lu(k,1377)
5318 254840160 : lu(k,1379) = lu(k,1379) * lu(k,1377)
5319 254840160 : lu(k,1380) = lu(k,1380) * lu(k,1377)
5320 254840160 : lu(k,1381) = lu(k,1381) * lu(k,1377)
5321 254840160 : lu(k,1388) = lu(k,1388) - lu(k,1378) * lu(k,1384)
5322 254840160 : lu(k,1394) = lu(k,1394) - lu(k,1379) * lu(k,1384)
5323 254840160 : lu(k,1399) = lu(k,1399) - lu(k,1380) * lu(k,1384)
5324 254840160 : lu(k,1400) = lu(k,1400) - lu(k,1381) * lu(k,1384)
5325 254840160 : lu(k,1412) = lu(k,1412) - lu(k,1378) * lu(k,1409)
5326 254840160 : lu(k,1425) = lu(k,1425) - lu(k,1379) * lu(k,1409)
5327 254840160 : lu(k,1429) = lu(k,1429) - lu(k,1380) * lu(k,1409)
5328 254840160 : lu(k,1430) = lu(k,1430) - lu(k,1381) * lu(k,1409)
5329 254840160 : lu(k,1845) = lu(k,1845) - lu(k,1378) * lu(k,1841)
5330 254840160 : lu(k,1861) = lu(k,1861) - lu(k,1379) * lu(k,1841)
5331 254840160 : lu(k,1864) = lu(k,1864) - lu(k,1380) * lu(k,1841)
5332 254840160 : lu(k,1865) = - lu(k,1381) * lu(k,1841)
5333 254840160 : lu(k,2011) = - lu(k,1378) * lu(k,2009)
5334 254840160 : lu(k,2024) = lu(k,2024) - lu(k,1379) * lu(k,2009)
5335 254840160 : lu(k,2029) = lu(k,2029) - lu(k,1380) * lu(k,2009)
5336 254840160 : lu(k,2030) = lu(k,2030) - lu(k,1381) * lu(k,2009)
5337 254840160 : lu(k,2036) = lu(k,2036) - lu(k,1378) * lu(k,2031)
5338 254840160 : lu(k,2049) = lu(k,2049) - lu(k,1379) * lu(k,2031)
5339 254840160 : lu(k,2054) = lu(k,2054) - lu(k,1380) * lu(k,2031)
5340 254840160 : lu(k,2055) = - lu(k,1381) * lu(k,2031)
5341 254840160 : lu(k,2165) = lu(k,2165) - lu(k,1378) * lu(k,2158)
5342 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1379) * lu(k,2158)
5343 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1380) * lu(k,2158)
5344 254840160 : lu(k,2196) = - lu(k,1381) * lu(k,2158)
5345 254840160 : lu(k,2594) = - lu(k,1378) * lu(k,2592)
5346 254840160 : lu(k,2612) = lu(k,2612) - lu(k,1379) * lu(k,2592)
5347 254840160 : lu(k,2617) = lu(k,2617) - lu(k,1380) * lu(k,2592)
5348 254840160 : lu(k,2618) = lu(k,2618) - lu(k,1381) * lu(k,2592)
5349 254840160 : lu(k,2625) = - lu(k,1378) * lu(k,2622)
5350 254840160 : lu(k,2640) = lu(k,2640) - lu(k,1379) * lu(k,2622)
5351 254840160 : lu(k,2645) = lu(k,2645) - lu(k,1380) * lu(k,2622)
5352 254840160 : lu(k,2646) = lu(k,2646) - lu(k,1381) * lu(k,2622)
5353 254840160 : lu(k,3051) = lu(k,3051) - lu(k,1378) * lu(k,3036)
5354 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1379) * lu(k,3036)
5355 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1380) * lu(k,3036)
5356 254840160 : lu(k,3120) = lu(k,3120) - lu(k,1381) * lu(k,3036)
5357 254840160 : lu(k,3178) = - lu(k,1378) * lu(k,3177)
5358 254840160 : lu(k,3189) = lu(k,3189) - lu(k,1379) * lu(k,3177)
5359 254840160 : lu(k,3198) = lu(k,3198) - lu(k,1380) * lu(k,3177)
5360 254840160 : lu(k,3199) = lu(k,3199) - lu(k,1381) * lu(k,3177)
5361 254840160 : lu(k,3309) = lu(k,3309) - lu(k,1378) * lu(k,3293)
5362 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1379) * lu(k,3293)
5363 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1380) * lu(k,3293)
5364 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1381) * lu(k,3293)
5365 254840160 : lu(k,3551) = lu(k,3551) - lu(k,1378) * lu(k,3541)
5366 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1379) * lu(k,3541)
5367 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1380) * lu(k,3541)
5368 254840160 : lu(k,3616) = lu(k,3616) - lu(k,1381) * lu(k,3541)
5369 254840160 : lu(k,3706) = lu(k,3706) - lu(k,1378) * lu(k,3695)
5370 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1379) * lu(k,3695)
5371 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1380) * lu(k,3695)
5372 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1381) * lu(k,3695)
5373 254840160 : lu(k,3829) = - lu(k,1378) * lu(k,3824)
5374 254840160 : lu(k,3842) = lu(k,3842) - lu(k,1379) * lu(k,3824)
5375 254840160 : lu(k,3851) = lu(k,3851) - lu(k,1380) * lu(k,3824)
5376 254840160 : lu(k,3852) = lu(k,3852) - lu(k,1381) * lu(k,3824)
5377 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1378) * lu(k,4013)
5378 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1379) * lu(k,4013)
5379 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1380) * lu(k,4013)
5380 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1381) * lu(k,4013)
5381 254840160 : lu(k,1385) = 1._r8 / lu(k,1385)
5382 254840160 : lu(k,1386) = lu(k,1386) * lu(k,1385)
5383 254840160 : lu(k,1387) = lu(k,1387) * lu(k,1385)
5384 254840160 : lu(k,1388) = lu(k,1388) * lu(k,1385)
5385 254840160 : lu(k,1389) = lu(k,1389) * lu(k,1385)
5386 254840160 : lu(k,1390) = lu(k,1390) * lu(k,1385)
5387 254840160 : lu(k,1391) = lu(k,1391) * lu(k,1385)
5388 254840160 : lu(k,1392) = lu(k,1392) * lu(k,1385)
5389 254840160 : lu(k,1393) = lu(k,1393) * lu(k,1385)
5390 254840160 : lu(k,1394) = lu(k,1394) * lu(k,1385)
5391 254840160 : lu(k,1395) = lu(k,1395) * lu(k,1385)
5392 254840160 : lu(k,1396) = lu(k,1396) * lu(k,1385)
5393 254840160 : lu(k,1397) = lu(k,1397) * lu(k,1385)
5394 254840160 : lu(k,1398) = lu(k,1398) * lu(k,1385)
5395 254840160 : lu(k,1399) = lu(k,1399) * lu(k,1385)
5396 254840160 : lu(k,1400) = lu(k,1400) * lu(k,1385)
5397 254840160 : lu(k,2033) = lu(k,2033) - lu(k,1386) * lu(k,2032)
5398 254840160 : lu(k,2034) = - lu(k,1387) * lu(k,2032)
5399 254840160 : lu(k,2036) = lu(k,2036) - lu(k,1388) * lu(k,2032)
5400 254840160 : lu(k,2038) = - lu(k,1389) * lu(k,2032)
5401 254840160 : lu(k,2042) = lu(k,2042) - lu(k,1390) * lu(k,2032)
5402 254840160 : lu(k,2043) = - lu(k,1391) * lu(k,2032)
5403 254840160 : lu(k,2046) = - lu(k,1392) * lu(k,2032)
5404 254840160 : lu(k,2048) = lu(k,2048) - lu(k,1393) * lu(k,2032)
5405 254840160 : lu(k,2049) = lu(k,2049) - lu(k,1394) * lu(k,2032)
5406 254840160 : lu(k,2050) = lu(k,2050) - lu(k,1395) * lu(k,2032)
5407 254840160 : lu(k,2051) = - lu(k,1396) * lu(k,2032)
5408 254840160 : lu(k,2052) = - lu(k,1397) * lu(k,2032)
5409 254840160 : lu(k,2053) = lu(k,2053) - lu(k,1398) * lu(k,2032)
5410 254840160 : lu(k,2054) = lu(k,2054) - lu(k,1399) * lu(k,2032)
5411 254840160 : lu(k,2055) = lu(k,2055) - lu(k,1400) * lu(k,2032)
5412 254840160 : lu(k,3544) = lu(k,3544) - lu(k,1386) * lu(k,3542)
5413 254840160 : lu(k,3545) = lu(k,3545) - lu(k,1387) * lu(k,3542)
5414 254840160 : lu(k,3551) = lu(k,3551) - lu(k,1388) * lu(k,3542)
5415 254840160 : lu(k,3559) = lu(k,3559) - lu(k,1389) * lu(k,3542)
5416 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1390) * lu(k,3542)
5417 254840160 : lu(k,3578) = - lu(k,1391) * lu(k,3542)
5418 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1392) * lu(k,3542)
5419 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1393) * lu(k,3542)
5420 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1394) * lu(k,3542)
5421 254840160 : lu(k,3607) = lu(k,3607) - lu(k,1395) * lu(k,3542)
5422 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1396) * lu(k,3542)
5423 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1397) * lu(k,3542)
5424 254840160 : lu(k,3612) = lu(k,3612) - lu(k,1398) * lu(k,3542)
5425 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1399) * lu(k,3542)
5426 254840160 : lu(k,3616) = lu(k,3616) - lu(k,1400) * lu(k,3542)
5427 254840160 : lu(k,3698) = lu(k,3698) - lu(k,1386) * lu(k,3696)
5428 254840160 : lu(k,3701) = lu(k,3701) - lu(k,1387) * lu(k,3696)
5429 254840160 : lu(k,3706) = lu(k,3706) - lu(k,1388) * lu(k,3696)
5430 254840160 : lu(k,3713) = lu(k,3713) - lu(k,1389) * lu(k,3696)
5431 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1390) * lu(k,3696)
5432 254840160 : lu(k,3733) = lu(k,3733) - lu(k,1391) * lu(k,3696)
5433 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1392) * lu(k,3696)
5434 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1393) * lu(k,3696)
5435 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1394) * lu(k,3696)
5436 254840160 : lu(k,3761) = lu(k,3761) - lu(k,1395) * lu(k,3696)
5437 254840160 : lu(k,3764) = lu(k,3764) - lu(k,1396) * lu(k,3696)
5438 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1397) * lu(k,3696)
5439 254840160 : lu(k,3766) = lu(k,3766) - lu(k,1398) * lu(k,3696)
5440 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1399) * lu(k,3696)
5441 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1400) * lu(k,3696)
5442 254840160 : lu(k,4016) = lu(k,4016) - lu(k,1386) * lu(k,4014)
5443 254840160 : lu(k,4022) = lu(k,4022) - lu(k,1387) * lu(k,4014)
5444 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1388) * lu(k,4014)
5445 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1389) * lu(k,4014)
5446 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1390) * lu(k,4014)
5447 254840160 : lu(k,4064) = lu(k,4064) - lu(k,1391) * lu(k,4014)
5448 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1392) * lu(k,4014)
5449 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1393) * lu(k,4014)
5450 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1394) * lu(k,4014)
5451 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1395) * lu(k,4014)
5452 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1396) * lu(k,4014)
5453 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1397) * lu(k,4014)
5454 254840160 : lu(k,4098) = lu(k,4098) - lu(k,1398) * lu(k,4014)
5455 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1399) * lu(k,4014)
5456 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1400) * lu(k,4014)
5457 254840160 : lu(k,1410) = 1._r8 / lu(k,1410)
5458 254840160 : lu(k,1411) = lu(k,1411) * lu(k,1410)
5459 254840160 : lu(k,1412) = lu(k,1412) * lu(k,1410)
5460 254840160 : lu(k,1413) = lu(k,1413) * lu(k,1410)
5461 254840160 : lu(k,1414) = lu(k,1414) * lu(k,1410)
5462 254840160 : lu(k,1415) = lu(k,1415) * lu(k,1410)
5463 254840160 : lu(k,1416) = lu(k,1416) * lu(k,1410)
5464 254840160 : lu(k,1417) = lu(k,1417) * lu(k,1410)
5465 254840160 : lu(k,1418) = lu(k,1418) * lu(k,1410)
5466 254840160 : lu(k,1419) = lu(k,1419) * lu(k,1410)
5467 254840160 : lu(k,1420) = lu(k,1420) * lu(k,1410)
5468 254840160 : lu(k,1421) = lu(k,1421) * lu(k,1410)
5469 254840160 : lu(k,1422) = lu(k,1422) * lu(k,1410)
5470 254840160 : lu(k,1423) = lu(k,1423) * lu(k,1410)
5471 254840160 : lu(k,1424) = lu(k,1424) * lu(k,1410)
5472 254840160 : lu(k,1425) = lu(k,1425) * lu(k,1410)
5473 254840160 : lu(k,1426) = lu(k,1426) * lu(k,1410)
5474 254840160 : lu(k,1427) = lu(k,1427) * lu(k,1410)
5475 254840160 : lu(k,1428) = lu(k,1428) * lu(k,1410)
5476 254840160 : lu(k,1429) = lu(k,1429) * lu(k,1410)
5477 254840160 : lu(k,1430) = lu(k,1430) * lu(k,1410)
5478 254840160 : lu(k,3546) = lu(k,3546) - lu(k,1411) * lu(k,3543)
5479 254840160 : lu(k,3551) = lu(k,3551) - lu(k,1412) * lu(k,3543)
5480 254840160 : lu(k,3557) = - lu(k,1413) * lu(k,3543)
5481 254840160 : lu(k,3558) = - lu(k,1414) * lu(k,3543)
5482 254840160 : lu(k,3560) = - lu(k,1415) * lu(k,3543)
5483 254840160 : lu(k,3561) = - lu(k,1416) * lu(k,3543)
5484 254840160 : lu(k,3566) = - lu(k,1417) * lu(k,3543)
5485 254840160 : lu(k,3567) = - lu(k,1418) * lu(k,3543)
5486 254840160 : lu(k,3568) = lu(k,3568) - lu(k,1419) * lu(k,3543)
5487 254840160 : lu(k,3569) = lu(k,3569) - lu(k,1420) * lu(k,3543)
5488 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1421) * lu(k,3543)
5489 254840160 : lu(k,3574) = lu(k,3574) - lu(k,1422) * lu(k,3543)
5490 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1423) * lu(k,3543)
5491 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1424) * lu(k,3543)
5492 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1425) * lu(k,3543)
5493 254840160 : lu(k,3607) = lu(k,3607) - lu(k,1426) * lu(k,3543)
5494 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1427) * lu(k,3543)
5495 254840160 : lu(k,3612) = lu(k,3612) - lu(k,1428) * lu(k,3543)
5496 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1429) * lu(k,3543)
5497 254840160 : lu(k,3616) = lu(k,3616) - lu(k,1430) * lu(k,3543)
5498 254840160 : lu(k,3702) = lu(k,3702) - lu(k,1411) * lu(k,3697)
5499 254840160 : lu(k,3706) = lu(k,3706) - lu(k,1412) * lu(k,3697)
5500 254840160 : lu(k,3711) = - lu(k,1413) * lu(k,3697)
5501 254840160 : lu(k,3712) = - lu(k,1414) * lu(k,3697)
5502 254840160 : lu(k,3716) = - lu(k,1415) * lu(k,3697)
5503 254840160 : lu(k,3717) = - lu(k,1416) * lu(k,3697)
5504 254840160 : lu(k,3722) = - lu(k,1417) * lu(k,3697)
5505 254840160 : lu(k,3723) = - lu(k,1418) * lu(k,3697)
5506 254840160 : lu(k,3724) = lu(k,3724) - lu(k,1419) * lu(k,3697)
5507 254840160 : lu(k,3725) = lu(k,3725) - lu(k,1420) * lu(k,3697)
5508 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1421) * lu(k,3697)
5509 254840160 : lu(k,3730) = - lu(k,1422) * lu(k,3697)
5510 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1423) * lu(k,3697)
5511 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1424) * lu(k,3697)
5512 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1425) * lu(k,3697)
5513 254840160 : lu(k,3761) = lu(k,3761) - lu(k,1426) * lu(k,3697)
5514 254840160 : lu(k,3764) = lu(k,3764) - lu(k,1427) * lu(k,3697)
5515 254840160 : lu(k,3766) = lu(k,3766) - lu(k,1428) * lu(k,3697)
5516 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1429) * lu(k,3697)
5517 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1430) * lu(k,3697)
5518 254840160 : lu(k,4023) = lu(k,4023) - lu(k,1411) * lu(k,4015)
5519 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1412) * lu(k,4015)
5520 254840160 : lu(k,4042) = lu(k,4042) - lu(k,1413) * lu(k,4015)
5521 254840160 : lu(k,4043) = lu(k,4043) - lu(k,1414) * lu(k,4015)
5522 254840160 : lu(k,4047) = lu(k,4047) - lu(k,1415) * lu(k,4015)
5523 254840160 : lu(k,4048) = lu(k,4048) - lu(k,1416) * lu(k,4015)
5524 254840160 : lu(k,4053) = lu(k,4053) - lu(k,1417) * lu(k,4015)
5525 254840160 : lu(k,4054) = lu(k,4054) - lu(k,1418) * lu(k,4015)
5526 254840160 : lu(k,4055) = lu(k,4055) - lu(k,1419) * lu(k,4015)
5527 254840160 : lu(k,4056) = lu(k,4056) - lu(k,1420) * lu(k,4015)
5528 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1421) * lu(k,4015)
5529 254840160 : lu(k,4061) = lu(k,4061) - lu(k,1422) * lu(k,4015)
5530 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1423) * lu(k,4015)
5531 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1424) * lu(k,4015)
5532 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1425) * lu(k,4015)
5533 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1426) * lu(k,4015)
5534 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1427) * lu(k,4015)
5535 254840160 : lu(k,4098) = lu(k,4098) - lu(k,1428) * lu(k,4015)
5536 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1429) * lu(k,4015)
5537 263009123 : lu(k,4102) = lu(k,4102) - lu(k,1430) * lu(k,4015)
5538 : end do
5539 8168963 : end subroutine lu_fac31
5540 8168963 : subroutine lu_fac32( avec_len, lu )
5541 : use chem_mods, only : nzcnt
5542 : use shr_kind_mod, only : r8 => shr_kind_r8
5543 : implicit none
5544 : !-----------------------------------------------------------------------
5545 : ! ... dummy args
5546 : !-----------------------------------------------------------------------
5547 : integer, intent(in) :: avec_len
5548 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5549 : !-----------------------------------------------------------------------
5550 : ! ... local variables
5551 : !-----------------------------------------------------------------------
5552 : integer :: k
5553 263009123 : do k = 1,avec_len
5554 254840160 : lu(k,1431) = 1._r8 / lu(k,1431)
5555 254840160 : lu(k,1432) = lu(k,1432) * lu(k,1431)
5556 254840160 : lu(k,1433) = lu(k,1433) * lu(k,1431)
5557 254840160 : lu(k,1434) = lu(k,1434) * lu(k,1431)
5558 254840160 : lu(k,1435) = lu(k,1435) * lu(k,1431)
5559 254840160 : lu(k,1436) = lu(k,1436) * lu(k,1431)
5560 254840160 : lu(k,1437) = lu(k,1437) * lu(k,1431)
5561 254840160 : lu(k,1438) = lu(k,1438) * lu(k,1431)
5562 254840160 : lu(k,1439) = lu(k,1439) * lu(k,1431)
5563 254840160 : lu(k,2042) = lu(k,2042) - lu(k,1432) * lu(k,2033)
5564 254840160 : lu(k,2044) = lu(k,2044) - lu(k,1433) * lu(k,2033)
5565 254840160 : lu(k,2045) = - lu(k,1434) * lu(k,2033)
5566 254840160 : lu(k,2049) = lu(k,2049) - lu(k,1435) * lu(k,2033)
5567 254840160 : lu(k,2050) = lu(k,2050) - lu(k,1436) * lu(k,2033)
5568 254840160 : lu(k,2051) = lu(k,2051) - lu(k,1437) * lu(k,2033)
5569 254840160 : lu(k,2054) = lu(k,2054) - lu(k,1438) * lu(k,2033)
5570 254840160 : lu(k,2055) = lu(k,2055) - lu(k,1439) * lu(k,2033)
5571 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1432) * lu(k,3037)
5572 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1433) * lu(k,3037)
5573 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1434) * lu(k,3037)
5574 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1435) * lu(k,3037)
5575 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1436) * lu(k,3037)
5576 254840160 : lu(k,3114) = lu(k,3114) - lu(k,1437) * lu(k,3037)
5577 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1438) * lu(k,3037)
5578 254840160 : lu(k,3120) = lu(k,3120) - lu(k,1439) * lu(k,3037)
5579 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1432) * lu(k,3294)
5580 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1433) * lu(k,3294)
5581 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1434) * lu(k,3294)
5582 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1435) * lu(k,3294)
5583 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1436) * lu(k,3294)
5584 254840160 : lu(k,3373) = lu(k,3373) - lu(k,1437) * lu(k,3294)
5585 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1438) * lu(k,3294)
5586 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1439) * lu(k,3294)
5587 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1432) * lu(k,3392)
5588 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1433) * lu(k,3392)
5589 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1434) * lu(k,3392)
5590 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1435) * lu(k,3392)
5591 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1436) * lu(k,3392)
5592 254840160 : lu(k,3466) = lu(k,3466) - lu(k,1437) * lu(k,3392)
5593 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1438) * lu(k,3392)
5594 254840160 : lu(k,3472) = lu(k,3472) - lu(k,1439) * lu(k,3392)
5595 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1432) * lu(k,3544)
5596 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1433) * lu(k,3544)
5597 254840160 : lu(k,3601) = lu(k,3601) - lu(k,1434) * lu(k,3544)
5598 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1435) * lu(k,3544)
5599 254840160 : lu(k,3607) = lu(k,3607) - lu(k,1436) * lu(k,3544)
5600 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1437) * lu(k,3544)
5601 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1438) * lu(k,3544)
5602 254840160 : lu(k,3616) = lu(k,3616) - lu(k,1439) * lu(k,3544)
5603 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1432) * lu(k,3698)
5604 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1433) * lu(k,3698)
5605 254840160 : lu(k,3755) = lu(k,3755) - lu(k,1434) * lu(k,3698)
5606 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1435) * lu(k,3698)
5607 254840160 : lu(k,3761) = lu(k,3761) - lu(k,1436) * lu(k,3698)
5608 254840160 : lu(k,3764) = lu(k,3764) - lu(k,1437) * lu(k,3698)
5609 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1438) * lu(k,3698)
5610 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1439) * lu(k,3698)
5611 254840160 : lu(k,3832) = lu(k,3832) - lu(k,1432) * lu(k,3825)
5612 254840160 : lu(k,3835) = - lu(k,1433) * lu(k,3825)
5613 254840160 : lu(k,3837) = lu(k,3837) - lu(k,1434) * lu(k,3825)
5614 254840160 : lu(k,3842) = lu(k,3842) - lu(k,1435) * lu(k,3825)
5615 254840160 : lu(k,3843) = lu(k,3843) - lu(k,1436) * lu(k,3825)
5616 254840160 : lu(k,3846) = lu(k,3846) - lu(k,1437) * lu(k,3825)
5617 254840160 : lu(k,3851) = lu(k,3851) - lu(k,1438) * lu(k,3825)
5618 254840160 : lu(k,3852) = lu(k,3852) - lu(k,1439) * lu(k,3825)
5619 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1432) * lu(k,4016)
5620 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1433) * lu(k,4016)
5621 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1434) * lu(k,4016)
5622 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1435) * lu(k,4016)
5623 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1436) * lu(k,4016)
5624 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1437) * lu(k,4016)
5625 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1438) * lu(k,4016)
5626 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1439) * lu(k,4016)
5627 254840160 : lu(k,1440) = 1._r8 / lu(k,1440)
5628 254840160 : lu(k,1441) = lu(k,1441) * lu(k,1440)
5629 254840160 : lu(k,1442) = lu(k,1442) * lu(k,1440)
5630 254840160 : lu(k,1443) = lu(k,1443) * lu(k,1440)
5631 254840160 : lu(k,1444) = lu(k,1444) * lu(k,1440)
5632 254840160 : lu(k,1445) = lu(k,1445) * lu(k,1440)
5633 254840160 : lu(k,1446) = lu(k,1446) * lu(k,1440)
5634 254840160 : lu(k,1447) = lu(k,1447) * lu(k,1440)
5635 254840160 : lu(k,1448) = lu(k,1448) * lu(k,1440)
5636 254840160 : lu(k,1449) = lu(k,1449) * lu(k,1440)
5637 254840160 : lu(k,1450) = lu(k,1450) * lu(k,1440)
5638 254840160 : lu(k,1451) = lu(k,1451) * lu(k,1440)
5639 254840160 : lu(k,1452) = lu(k,1452) * lu(k,1440)
5640 254840160 : lu(k,1453) = lu(k,1453) * lu(k,1440)
5641 254840160 : lu(k,2160) = lu(k,2160) - lu(k,1441) * lu(k,2159)
5642 254840160 : lu(k,2161) = lu(k,2161) - lu(k,1442) * lu(k,2159)
5643 254840160 : lu(k,2162) = lu(k,2162) - lu(k,1443) * lu(k,2159)
5644 254840160 : lu(k,2167) = lu(k,2167) - lu(k,1444) * lu(k,2159)
5645 254840160 : lu(k,2168) = lu(k,2168) - lu(k,1445) * lu(k,2159)
5646 254840160 : lu(k,2169) = lu(k,2169) - lu(k,1446) * lu(k,2159)
5647 254840160 : lu(k,2170) = lu(k,2170) - lu(k,1447) * lu(k,2159)
5648 254840160 : lu(k,2172) = lu(k,2172) - lu(k,1448) * lu(k,2159)
5649 254840160 : lu(k,2185) = lu(k,2185) - lu(k,1449) * lu(k,2159)
5650 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1450) * lu(k,2159)
5651 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1451) * lu(k,2159)
5652 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1452) * lu(k,2159)
5653 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1453) * lu(k,2159)
5654 254840160 : lu(k,3039) = lu(k,3039) - lu(k,1441) * lu(k,3038)
5655 254840160 : lu(k,3041) = lu(k,3041) - lu(k,1442) * lu(k,3038)
5656 254840160 : lu(k,3043) = lu(k,3043) - lu(k,1443) * lu(k,3038)
5657 254840160 : lu(k,3054) = lu(k,3054) - lu(k,1444) * lu(k,3038)
5658 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1445) * lu(k,3038)
5659 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1446) * lu(k,3038)
5660 254840160 : lu(k,3062) = lu(k,3062) - lu(k,1447) * lu(k,3038)
5661 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1448) * lu(k,3038)
5662 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1449) * lu(k,3038)
5663 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1450) * lu(k,3038)
5664 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1451) * lu(k,3038)
5665 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1452) * lu(k,3038)
5666 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1453) * lu(k,3038)
5667 254840160 : lu(k,3296) = lu(k,3296) - lu(k,1441) * lu(k,3295)
5668 254840160 : lu(k,3298) = lu(k,3298) - lu(k,1442) * lu(k,3295)
5669 254840160 : lu(k,3300) = lu(k,3300) - lu(k,1443) * lu(k,3295)
5670 254840160 : lu(k,3312) = lu(k,3312) - lu(k,1444) * lu(k,3295)
5671 254840160 : lu(k,3316) = lu(k,3316) - lu(k,1445) * lu(k,3295)
5672 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1446) * lu(k,3295)
5673 254840160 : lu(k,3321) = lu(k,3321) - lu(k,1447) * lu(k,3295)
5674 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1448) * lu(k,3295)
5675 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1449) * lu(k,3295)
5676 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1450) * lu(k,3295)
5677 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1451) * lu(k,3295)
5678 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1452) * lu(k,3295)
5679 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1453) * lu(k,3295)
5680 254840160 : lu(k,3394) = - lu(k,1441) * lu(k,3393)
5681 254840160 : lu(k,3396) = - lu(k,1442) * lu(k,3393)
5682 254840160 : lu(k,3397) = lu(k,3397) - lu(k,1443) * lu(k,3393)
5683 254840160 : lu(k,3407) = - lu(k,1444) * lu(k,3393)
5684 254840160 : lu(k,3410) = lu(k,3410) - lu(k,1445) * lu(k,3393)
5685 254840160 : lu(k,3414) = lu(k,3414) - lu(k,1446) * lu(k,3393)
5686 254840160 : lu(k,3415) = - lu(k,1447) * lu(k,3393)
5687 254840160 : lu(k,3421) = lu(k,3421) - lu(k,1448) * lu(k,3393)
5688 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1449) * lu(k,3393)
5689 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1450) * lu(k,3393)
5690 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1451) * lu(k,3393)
5691 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1452) * lu(k,3393)
5692 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1453) * lu(k,3393)
5693 254840160 : lu(k,4018) = lu(k,4018) - lu(k,1441) * lu(k,4017)
5694 254840160 : lu(k,4020) = lu(k,4020) - lu(k,1442) * lu(k,4017)
5695 254840160 : lu(k,4022) = lu(k,4022) - lu(k,1443) * lu(k,4017)
5696 254840160 : lu(k,4036) = lu(k,4036) - lu(k,1444) * lu(k,4017)
5697 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1445) * lu(k,4017)
5698 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1446) * lu(k,4017)
5699 254840160 : lu(k,4045) = lu(k,4045) - lu(k,1447) * lu(k,4017)
5700 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1448) * lu(k,4017)
5701 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1449) * lu(k,4017)
5702 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1450) * lu(k,4017)
5703 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1451) * lu(k,4017)
5704 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1452) * lu(k,4017)
5705 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1453) * lu(k,4017)
5706 254840160 : lu(k,1454) = 1._r8 / lu(k,1454)
5707 254840160 : lu(k,1455) = lu(k,1455) * lu(k,1454)
5708 254840160 : lu(k,1456) = lu(k,1456) * lu(k,1454)
5709 254840160 : lu(k,1457) = lu(k,1457) * lu(k,1454)
5710 254840160 : lu(k,1458) = lu(k,1458) * lu(k,1454)
5711 254840160 : lu(k,1459) = lu(k,1459) * lu(k,1454)
5712 254840160 : lu(k,1460) = lu(k,1460) * lu(k,1454)
5713 254840160 : lu(k,1573) = lu(k,1573) - lu(k,1455) * lu(k,1566)
5714 254840160 : lu(k,1582) = lu(k,1582) - lu(k,1456) * lu(k,1566)
5715 254840160 : lu(k,1590) = lu(k,1590) - lu(k,1457) * lu(k,1566)
5716 254840160 : lu(k,1591) = lu(k,1591) - lu(k,1458) * lu(k,1566)
5717 254840160 : lu(k,1592) = lu(k,1592) - lu(k,1459) * lu(k,1566)
5718 254840160 : lu(k,1595) = lu(k,1595) - lu(k,1460) * lu(k,1566)
5719 254840160 : lu(k,1639) = - lu(k,1455) * lu(k,1635)
5720 254840160 : lu(k,1647) = lu(k,1647) - lu(k,1456) * lu(k,1635)
5721 254840160 : lu(k,1652) = - lu(k,1457) * lu(k,1635)
5722 254840160 : lu(k,1653) = lu(k,1653) - lu(k,1458) * lu(k,1635)
5723 254840160 : lu(k,1654) = lu(k,1654) - lu(k,1459) * lu(k,1635)
5724 254840160 : lu(k,1655) = lu(k,1655) - lu(k,1460) * lu(k,1635)
5725 254840160 : lu(k,1914) = - lu(k,1455) * lu(k,1912)
5726 254840160 : lu(k,1918) = lu(k,1918) - lu(k,1456) * lu(k,1912)
5727 254840160 : lu(k,1922) = lu(k,1922) - lu(k,1457) * lu(k,1912)
5728 254840160 : lu(k,1923) = lu(k,1923) - lu(k,1458) * lu(k,1912)
5729 254840160 : lu(k,1924) = lu(k,1924) - lu(k,1459) * lu(k,1912)
5730 254840160 : lu(k,1925) = lu(k,1925) - lu(k,1460) * lu(k,1912)
5731 254840160 : lu(k,2100) = - lu(k,1455) * lu(k,2094)
5732 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1456) * lu(k,2094)
5733 254840160 : lu(k,2117) = lu(k,2117) - lu(k,1457) * lu(k,2094)
5734 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1458) * lu(k,2094)
5735 254840160 : lu(k,2120) = lu(k,2120) - lu(k,1459) * lu(k,2094)
5736 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1460) * lu(k,2094)
5737 254840160 : lu(k,2130) = lu(k,2130) - lu(k,1455) * lu(k,2126)
5738 254840160 : lu(k,2139) = lu(k,2139) - lu(k,1456) * lu(k,2126)
5739 254840160 : lu(k,2146) = lu(k,2146) - lu(k,1457) * lu(k,2126)
5740 254840160 : lu(k,2147) = lu(k,2147) - lu(k,1458) * lu(k,2126)
5741 254840160 : lu(k,2149) = lu(k,2149) - lu(k,1459) * lu(k,2126)
5742 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1460) * lu(k,2126)
5743 254840160 : lu(k,2165) = lu(k,2165) - lu(k,1455) * lu(k,2160)
5744 254840160 : lu(k,2176) = lu(k,2176) - lu(k,1456) * lu(k,2160)
5745 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1457) * lu(k,2160)
5746 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1458) * lu(k,2160)
5747 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1459) * lu(k,2160)
5748 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1460) * lu(k,2160)
5749 254840160 : lu(k,3051) = lu(k,3051) - lu(k,1455) * lu(k,3039)
5750 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1456) * lu(k,3039)
5751 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1457) * lu(k,3039)
5752 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1458) * lu(k,3039)
5753 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1459) * lu(k,3039)
5754 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1460) * lu(k,3039)
5755 254840160 : lu(k,3309) = lu(k,3309) - lu(k,1455) * lu(k,3296)
5756 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1456) * lu(k,3296)
5757 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1457) * lu(k,3296)
5758 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1458) * lu(k,3296)
5759 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1459) * lu(k,3296)
5760 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1460) * lu(k,3296)
5761 254840160 : lu(k,3404) = lu(k,3404) - lu(k,1455) * lu(k,3394)
5762 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1456) * lu(k,3394)
5763 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1457) * lu(k,3394)
5764 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1458) * lu(k,3394)
5765 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1459) * lu(k,3394)
5766 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1460) * lu(k,3394)
5767 254840160 : lu(k,3706) = lu(k,3706) - lu(k,1455) * lu(k,3699)
5768 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1456) * lu(k,3699)
5769 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1457) * lu(k,3699)
5770 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1458) * lu(k,3699)
5771 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1459) * lu(k,3699)
5772 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1460) * lu(k,3699)
5773 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1455) * lu(k,4018)
5774 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1456) * lu(k,4018)
5775 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1457) * lu(k,4018)
5776 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1458) * lu(k,4018)
5777 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1459) * lu(k,4018)
5778 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1460) * lu(k,4018)
5779 254840160 : lu(k,1461) = 1._r8 / lu(k,1461)
5780 254840160 : lu(k,1462) = lu(k,1462) * lu(k,1461)
5781 254840160 : lu(k,1463) = lu(k,1463) * lu(k,1461)
5782 254840160 : lu(k,1464) = lu(k,1464) * lu(k,1461)
5783 254840160 : lu(k,1465) = lu(k,1465) * lu(k,1461)
5784 254840160 : lu(k,1466) = lu(k,1466) * lu(k,1461)
5785 254840160 : lu(k,1467) = lu(k,1467) * lu(k,1461)
5786 254840160 : lu(k,1545) = lu(k,1545) - lu(k,1462) * lu(k,1542)
5787 254840160 : lu(k,1547) = lu(k,1547) - lu(k,1463) * lu(k,1542)
5788 254840160 : lu(k,1548) = lu(k,1548) - lu(k,1464) * lu(k,1542)
5789 254840160 : lu(k,1552) = lu(k,1552) - lu(k,1465) * lu(k,1542)
5790 254840160 : lu(k,1553) = lu(k,1553) - lu(k,1466) * lu(k,1542)
5791 254840160 : lu(k,1556) = lu(k,1556) - lu(k,1467) * lu(k,1542)
5792 254840160 : lu(k,1755) = lu(k,1755) - lu(k,1462) * lu(k,1750)
5793 254840160 : lu(k,1758) = - lu(k,1463) * lu(k,1750)
5794 254840160 : lu(k,1760) = lu(k,1760) - lu(k,1464) * lu(k,1750)
5795 254840160 : lu(k,1765) = lu(k,1765) - lu(k,1465) * lu(k,1750)
5796 254840160 : lu(k,1766) = lu(k,1766) - lu(k,1466) * lu(k,1750)
5797 254840160 : lu(k,1769) = lu(k,1769) - lu(k,1467) * lu(k,1750)
5798 254840160 : lu(k,1791) = lu(k,1791) - lu(k,1462) * lu(k,1786)
5799 254840160 : lu(k,1795) = lu(k,1795) - lu(k,1463) * lu(k,1786)
5800 254840160 : lu(k,1796) = lu(k,1796) - lu(k,1464) * lu(k,1786)
5801 254840160 : lu(k,1799) = - lu(k,1465) * lu(k,1786)
5802 254840160 : lu(k,1800) = - lu(k,1466) * lu(k,1786)
5803 254840160 : lu(k,1802) = lu(k,1802) - lu(k,1467) * lu(k,1786)
5804 254840160 : lu(k,1815) = lu(k,1815) - lu(k,1462) * lu(k,1810)
5805 254840160 : lu(k,1820) = lu(k,1820) - lu(k,1463) * lu(k,1810)
5806 254840160 : lu(k,1823) = lu(k,1823) - lu(k,1464) * lu(k,1810)
5807 254840160 : lu(k,1829) = lu(k,1829) - lu(k,1465) * lu(k,1810)
5808 254840160 : lu(k,1830) = lu(k,1830) - lu(k,1466) * lu(k,1810)
5809 254840160 : lu(k,1833) = lu(k,1833) - lu(k,1467) * lu(k,1810)
5810 254840160 : lu(k,1893) = lu(k,1893) - lu(k,1462) * lu(k,1887)
5811 254840160 : lu(k,1898) = lu(k,1898) - lu(k,1463) * lu(k,1887)
5812 254840160 : lu(k,1903) = lu(k,1903) - lu(k,1464) * lu(k,1887)
5813 254840160 : lu(k,1907) = lu(k,1907) - lu(k,1465) * lu(k,1887)
5814 254840160 : lu(k,1908) = lu(k,1908) - lu(k,1466) * lu(k,1887)
5815 254840160 : lu(k,1910) = lu(k,1910) - lu(k,1467) * lu(k,1887)
5816 254840160 : lu(k,2071) = - lu(k,1462) * lu(k,2062)
5817 254840160 : lu(k,2076) = lu(k,2076) - lu(k,1463) * lu(k,2062)
5818 254840160 : lu(k,2077) = lu(k,2077) - lu(k,1464) * lu(k,2062)
5819 254840160 : lu(k,2085) = lu(k,2085) - lu(k,1465) * lu(k,2062)
5820 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1466) * lu(k,2062)
5821 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1467) * lu(k,2062)
5822 254840160 : lu(k,2873) = lu(k,2873) - lu(k,1462) * lu(k,2859)
5823 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1463) * lu(k,2859)
5824 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1464) * lu(k,2859)
5825 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1465) * lu(k,2859)
5826 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1466) * lu(k,2859)
5827 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1467) * lu(k,2859)
5828 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1462) * lu(k,3040)
5829 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1463) * lu(k,3040)
5830 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1464) * lu(k,3040)
5831 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1465) * lu(k,3040)
5832 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1466) * lu(k,3040)
5833 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1467) * lu(k,3040)
5834 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1462) * lu(k,3297)
5835 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1463) * lu(k,3297)
5836 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1464) * lu(k,3297)
5837 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1465) * lu(k,3297)
5838 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1466) * lu(k,3297)
5839 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1467) * lu(k,3297)
5840 254840160 : lu(k,3414) = lu(k,3414) - lu(k,1462) * lu(k,3395)
5841 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1463) * lu(k,3395)
5842 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1464) * lu(k,3395)
5843 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1465) * lu(k,3395)
5844 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1466) * lu(k,3395)
5845 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1467) * lu(k,3395)
5846 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1462) * lu(k,4019)
5847 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1463) * lu(k,4019)
5848 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1464) * lu(k,4019)
5849 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1465) * lu(k,4019)
5850 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1466) * lu(k,4019)
5851 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1467) * lu(k,4019)
5852 : end do
5853 8168963 : end subroutine lu_fac32
5854 8168963 : subroutine lu_fac33( avec_len, lu )
5855 : use chem_mods, only : nzcnt
5856 : use shr_kind_mod, only : r8 => shr_kind_r8
5857 : implicit none
5858 : !-----------------------------------------------------------------------
5859 : ! ... dummy args
5860 : !-----------------------------------------------------------------------
5861 : integer, intent(in) :: avec_len
5862 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5863 : !-----------------------------------------------------------------------
5864 : ! ... local variables
5865 : !-----------------------------------------------------------------------
5866 : integer :: k
5867 263009123 : do k = 1,avec_len
5868 254840160 : lu(k,1468) = 1._r8 / lu(k,1468)
5869 254840160 : lu(k,1469) = lu(k,1469) * lu(k,1468)
5870 254840160 : lu(k,1470) = lu(k,1470) * lu(k,1468)
5871 254840160 : lu(k,1471) = lu(k,1471) * lu(k,1468)
5872 254840160 : lu(k,1472) = lu(k,1472) * lu(k,1468)
5873 254840160 : lu(k,1473) = lu(k,1473) * lu(k,1468)
5874 254840160 : lu(k,1474) = lu(k,1474) * lu(k,1468)
5875 254840160 : lu(k,1576) = - lu(k,1469) * lu(k,1567)
5876 254840160 : lu(k,1577) = lu(k,1577) - lu(k,1470) * lu(k,1567)
5877 254840160 : lu(k,1579) = - lu(k,1471) * lu(k,1567)
5878 254840160 : lu(k,1591) = lu(k,1591) - lu(k,1472) * lu(k,1567)
5879 254840160 : lu(k,1592) = lu(k,1592) - lu(k,1473) * lu(k,1567)
5880 254840160 : lu(k,1595) = lu(k,1595) - lu(k,1474) * lu(k,1567)
5881 254840160 : lu(k,1641) = lu(k,1641) - lu(k,1469) * lu(k,1636)
5882 254840160 : lu(k,1642) = lu(k,1642) - lu(k,1470) * lu(k,1636)
5883 254840160 : lu(k,1644) = - lu(k,1471) * lu(k,1636)
5884 254840160 : lu(k,1653) = lu(k,1653) - lu(k,1472) * lu(k,1636)
5885 254840160 : lu(k,1654) = lu(k,1654) - lu(k,1473) * lu(k,1636)
5886 254840160 : lu(k,1655) = lu(k,1655) - lu(k,1474) * lu(k,1636)
5887 254840160 : lu(k,1943) = lu(k,1943) - lu(k,1469) * lu(k,1939)
5888 254840160 : lu(k,1945) = lu(k,1945) - lu(k,1470) * lu(k,1939)
5889 254840160 : lu(k,1947) = lu(k,1947) - lu(k,1471) * lu(k,1939)
5890 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1472) * lu(k,1939)
5891 254840160 : lu(k,1967) = lu(k,1967) - lu(k,1473) * lu(k,1939)
5892 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1474) * lu(k,1939)
5893 254840160 : lu(k,1980) = lu(k,1980) - lu(k,1469) * lu(k,1975)
5894 254840160 : lu(k,1982) = lu(k,1982) - lu(k,1470) * lu(k,1975)
5895 254840160 : lu(k,1984) = lu(k,1984) - lu(k,1471) * lu(k,1975)
5896 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1472) * lu(k,1975)
5897 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1473) * lu(k,1975)
5898 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1474) * lu(k,1975)
5899 254840160 : lu(k,2070) = lu(k,2070) - lu(k,1469) * lu(k,2063)
5900 254840160 : lu(k,2071) = lu(k,2071) - lu(k,1470) * lu(k,2063)
5901 254840160 : lu(k,2073) = - lu(k,1471) * lu(k,2063)
5902 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1472) * lu(k,2063)
5903 254840160 : lu(k,2088) = lu(k,2088) - lu(k,1473) * lu(k,2063)
5904 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1474) * lu(k,2063)
5905 254840160 : lu(k,2102) = - lu(k,1469) * lu(k,2095)
5906 254840160 : lu(k,2103) = lu(k,2103) - lu(k,1470) * lu(k,2095)
5907 254840160 : lu(k,2105) = - lu(k,1471) * lu(k,2095)
5908 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1472) * lu(k,2095)
5909 254840160 : lu(k,2120) = lu(k,2120) - lu(k,1473) * lu(k,2095)
5910 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1474) * lu(k,2095)
5911 254840160 : lu(k,2168) = lu(k,2168) - lu(k,1469) * lu(k,2161)
5912 254840160 : lu(k,2169) = lu(k,2169) - lu(k,1470) * lu(k,2161)
5913 254840160 : lu(k,2171) = - lu(k,1471) * lu(k,2161)
5914 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1472) * lu(k,2161)
5915 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1473) * lu(k,2161)
5916 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1474) * lu(k,2161)
5917 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1469) * lu(k,3041)
5918 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1470) * lu(k,3041)
5919 254840160 : lu(k,3063) = lu(k,3063) - lu(k,1471) * lu(k,3041)
5920 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1472) * lu(k,3041)
5921 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1473) * lu(k,3041)
5922 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1474) * lu(k,3041)
5923 254840160 : lu(k,3316) = lu(k,3316) - lu(k,1469) * lu(k,3298)
5924 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1470) * lu(k,3298)
5925 254840160 : lu(k,3322) = lu(k,3322) - lu(k,1471) * lu(k,3298)
5926 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1472) * lu(k,3298)
5927 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1473) * lu(k,3298)
5928 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1474) * lu(k,3298)
5929 254840160 : lu(k,3410) = lu(k,3410) - lu(k,1469) * lu(k,3396)
5930 254840160 : lu(k,3414) = lu(k,3414) - lu(k,1470) * lu(k,3396)
5931 254840160 : lu(k,3416) = - lu(k,1471) * lu(k,3396)
5932 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1472) * lu(k,3396)
5933 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1473) * lu(k,3396)
5934 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1474) * lu(k,3396)
5935 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1469) * lu(k,4020)
5936 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1470) * lu(k,4020)
5937 254840160 : lu(k,4046) = lu(k,4046) - lu(k,1471) * lu(k,4020)
5938 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1472) * lu(k,4020)
5939 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1473) * lu(k,4020)
5940 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1474) * lu(k,4020)
5941 254840160 : lu(k,1476) = 1._r8 / lu(k,1476)
5942 254840160 : lu(k,1477) = lu(k,1477) * lu(k,1476)
5943 254840160 : lu(k,1478) = lu(k,1478) * lu(k,1476)
5944 254840160 : lu(k,1479) = lu(k,1479) * lu(k,1476)
5945 254840160 : lu(k,1480) = lu(k,1480) * lu(k,1476)
5946 254840160 : lu(k,1525) = - lu(k,1477) * lu(k,1523)
5947 254840160 : lu(k,1530) = lu(k,1530) - lu(k,1478) * lu(k,1523)
5948 254840160 : lu(k,1533) = lu(k,1533) - lu(k,1479) * lu(k,1523)
5949 254840160 : lu(k,1535) = lu(k,1535) - lu(k,1480) * lu(k,1523)
5950 254840160 : lu(k,1573) = lu(k,1573) - lu(k,1477) * lu(k,1568)
5951 254840160 : lu(k,1582) = lu(k,1582) - lu(k,1478) * lu(k,1568)
5952 254840160 : lu(k,1591) = lu(k,1591) - lu(k,1479) * lu(k,1568)
5953 254840160 : lu(k,1595) = lu(k,1595) - lu(k,1480) * lu(k,1568)
5954 254840160 : lu(k,1639) = lu(k,1639) - lu(k,1477) * lu(k,1637)
5955 254840160 : lu(k,1647) = lu(k,1647) - lu(k,1478) * lu(k,1637)
5956 254840160 : lu(k,1653) = lu(k,1653) - lu(k,1479) * lu(k,1637)
5957 254840160 : lu(k,1655) = lu(k,1655) - lu(k,1480) * lu(k,1637)
5958 254840160 : lu(k,1658) = - lu(k,1477) * lu(k,1657)
5959 254840160 : lu(k,1665) = lu(k,1665) - lu(k,1478) * lu(k,1657)
5960 254840160 : lu(k,1668) = lu(k,1668) - lu(k,1479) * lu(k,1657)
5961 254840160 : lu(k,1670) = lu(k,1670) - lu(k,1480) * lu(k,1657)
5962 254840160 : lu(k,1711) = lu(k,1711) - lu(k,1477) * lu(k,1710)
5963 254840160 : lu(k,1713) = lu(k,1713) - lu(k,1478) * lu(k,1710)
5964 254840160 : lu(k,1716) = lu(k,1716) - lu(k,1479) * lu(k,1710)
5965 254840160 : lu(k,1717) = lu(k,1717) - lu(k,1480) * lu(k,1710)
5966 254840160 : lu(k,1789) = - lu(k,1477) * lu(k,1787)
5967 254840160 : lu(k,1796) = lu(k,1796) - lu(k,1478) * lu(k,1787)
5968 254840160 : lu(k,1800) = lu(k,1800) - lu(k,1479) * lu(k,1787)
5969 254840160 : lu(k,1802) = lu(k,1802) - lu(k,1480) * lu(k,1787)
5970 254840160 : lu(k,1868) = lu(k,1868) - lu(k,1477) * lu(k,1867)
5971 254840160 : lu(k,1875) = lu(k,1875) - lu(k,1478) * lu(k,1867)
5972 254840160 : lu(k,1880) = lu(k,1880) - lu(k,1479) * lu(k,1867)
5973 254840160 : lu(k,1882) = lu(k,1882) - lu(k,1480) * lu(k,1867)
5974 254840160 : lu(k,1891) = - lu(k,1477) * lu(k,1888)
5975 254840160 : lu(k,1903) = lu(k,1903) - lu(k,1478) * lu(k,1888)
5976 254840160 : lu(k,1908) = lu(k,1908) - lu(k,1479) * lu(k,1888)
5977 254840160 : lu(k,1910) = lu(k,1910) - lu(k,1480) * lu(k,1888)
5978 254840160 : lu(k,2068) = - lu(k,1477) * lu(k,2064)
5979 254840160 : lu(k,2077) = lu(k,2077) - lu(k,1478) * lu(k,2064)
5980 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1479) * lu(k,2064)
5981 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1480) * lu(k,2064)
5982 254840160 : lu(k,2100) = lu(k,2100) - lu(k,1477) * lu(k,2096)
5983 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1478) * lu(k,2096)
5984 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1479) * lu(k,2096)
5985 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1480) * lu(k,2096)
5986 254840160 : lu(k,2130) = lu(k,2130) - lu(k,1477) * lu(k,2127)
5987 254840160 : lu(k,2139) = lu(k,2139) - lu(k,1478) * lu(k,2127)
5988 254840160 : lu(k,2147) = lu(k,2147) - lu(k,1479) * lu(k,2127)
5989 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1480) * lu(k,2127)
5990 254840160 : lu(k,3051) = lu(k,3051) - lu(k,1477) * lu(k,3042)
5991 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1478) * lu(k,3042)
5992 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1479) * lu(k,3042)
5993 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1480) * lu(k,3042)
5994 254840160 : lu(k,3309) = lu(k,3309) - lu(k,1477) * lu(k,3299)
5995 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1478) * lu(k,3299)
5996 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1479) * lu(k,3299)
5997 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1480) * lu(k,3299)
5998 254840160 : lu(k,3640) = lu(k,3640) - lu(k,1477) * lu(k,3638)
5999 254840160 : lu(k,3644) = lu(k,3644) - lu(k,1478) * lu(k,3638)
6000 254840160 : lu(k,3658) = lu(k,3658) - lu(k,1479) * lu(k,3638)
6001 254840160 : lu(k,3667) = lu(k,3667) - lu(k,1480) * lu(k,3638)
6002 254840160 : lu(k,3706) = lu(k,3706) - lu(k,1477) * lu(k,3700)
6003 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1478) * lu(k,3700)
6004 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1479) * lu(k,3700)
6005 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1480) * lu(k,3700)
6006 254840160 : lu(k,3829) = lu(k,3829) - lu(k,1477) * lu(k,3826)
6007 254840160 : lu(k,3832) = lu(k,3832) - lu(k,1478) * lu(k,3826)
6008 254840160 : lu(k,3842) = lu(k,3842) - lu(k,1479) * lu(k,3826)
6009 254840160 : lu(k,3851) = lu(k,3851) - lu(k,1480) * lu(k,3826)
6010 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1477) * lu(k,4021)
6011 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1478) * lu(k,4021)
6012 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1479) * lu(k,4021)
6013 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1480) * lu(k,4021)
6014 254840160 : lu(k,1481) = 1._r8 / lu(k,1481)
6015 254840160 : lu(k,1482) = lu(k,1482) * lu(k,1481)
6016 254840160 : lu(k,1483) = lu(k,1483) * lu(k,1481)
6017 254840160 : lu(k,1484) = lu(k,1484) * lu(k,1481)
6018 254840160 : lu(k,1485) = lu(k,1485) * lu(k,1481)
6019 254840160 : lu(k,1486) = lu(k,1486) * lu(k,1481)
6020 254840160 : lu(k,1581) = lu(k,1581) - lu(k,1482) * lu(k,1569)
6021 254840160 : lu(k,1585) = lu(k,1585) - lu(k,1483) * lu(k,1569)
6022 254840160 : lu(k,1590) = lu(k,1590) - lu(k,1484) * lu(k,1569)
6023 254840160 : lu(k,1592) = lu(k,1592) - lu(k,1485) * lu(k,1569)
6024 254840160 : lu(k,1595) = lu(k,1595) - lu(k,1486) * lu(k,1569)
6025 254840160 : lu(k,1646) = lu(k,1646) - lu(k,1482) * lu(k,1638)
6026 254840160 : lu(k,1648) = - lu(k,1483) * lu(k,1638)
6027 254840160 : lu(k,1652) = lu(k,1652) - lu(k,1484) * lu(k,1638)
6028 254840160 : lu(k,1654) = lu(k,1654) - lu(k,1485) * lu(k,1638)
6029 254840160 : lu(k,1655) = lu(k,1655) - lu(k,1486) * lu(k,1638)
6030 254840160 : lu(k,1779) = lu(k,1779) - lu(k,1482) * lu(k,1776)
6031 254840160 : lu(k,1781) = - lu(k,1483) * lu(k,1776)
6032 254840160 : lu(k,1782) = lu(k,1782) - lu(k,1484) * lu(k,1776)
6033 254840160 : lu(k,1784) = lu(k,1784) - lu(k,1485) * lu(k,1776)
6034 254840160 : lu(k,1785) = lu(k,1785) - lu(k,1486) * lu(k,1776)
6035 254840160 : lu(k,1917) = lu(k,1917) - lu(k,1482) * lu(k,1913)
6036 254840160 : lu(k,1919) = lu(k,1919) - lu(k,1483) * lu(k,1913)
6037 254840160 : lu(k,1922) = lu(k,1922) - lu(k,1484) * lu(k,1913)
6038 254840160 : lu(k,1924) = lu(k,1924) - lu(k,1485) * lu(k,1913)
6039 254840160 : lu(k,1925) = lu(k,1925) - lu(k,1486) * lu(k,1913)
6040 254840160 : lu(k,2040) = lu(k,2040) - lu(k,1482) * lu(k,2034)
6041 254840160 : lu(k,2044) = lu(k,2044) - lu(k,1483) * lu(k,2034)
6042 254840160 : lu(k,2048) = lu(k,2048) - lu(k,1484) * lu(k,2034)
6043 254840160 : lu(k,2052) = lu(k,2052) - lu(k,1485) * lu(k,2034)
6044 254840160 : lu(k,2054) = lu(k,2054) - lu(k,1486) * lu(k,2034)
6045 254840160 : lu(k,2076) = lu(k,2076) - lu(k,1482) * lu(k,2065)
6046 254840160 : lu(k,2080) = - lu(k,1483) * lu(k,2065)
6047 254840160 : lu(k,2085) = lu(k,2085) - lu(k,1484) * lu(k,2065)
6048 254840160 : lu(k,2088) = lu(k,2088) - lu(k,1485) * lu(k,2065)
6049 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1486) * lu(k,2065)
6050 254840160 : lu(k,2138) = lu(k,2138) - lu(k,1482) * lu(k,2128)
6051 254840160 : lu(k,2141) = lu(k,2141) - lu(k,1483) * lu(k,2128)
6052 254840160 : lu(k,2146) = lu(k,2146) - lu(k,1484) * lu(k,2128)
6053 254840160 : lu(k,2149) = lu(k,2149) - lu(k,1485) * lu(k,2128)
6054 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1486) * lu(k,2128)
6055 254840160 : lu(k,2173) = lu(k,2173) - lu(k,1482) * lu(k,2162)
6056 254840160 : lu(k,2183) = lu(k,2183) - lu(k,1483) * lu(k,2162)
6057 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1484) * lu(k,2162)
6058 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1485) * lu(k,2162)
6059 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1486) * lu(k,2162)
6060 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1482) * lu(k,3043)
6061 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1483) * lu(k,3043)
6062 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1484) * lu(k,3043)
6063 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1485) * lu(k,3043)
6064 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1486) * lu(k,3043)
6065 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1482) * lu(k,3300)
6066 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1483) * lu(k,3300)
6067 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1484) * lu(k,3300)
6068 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1485) * lu(k,3300)
6069 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1486) * lu(k,3300)
6070 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1482) * lu(k,3397)
6071 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1483) * lu(k,3397)
6072 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1484) * lu(k,3397)
6073 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1485) * lu(k,3397)
6074 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1486) * lu(k,3397)
6075 254840160 : lu(k,3565) = lu(k,3565) - lu(k,1482) * lu(k,3545)
6076 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1483) * lu(k,3545)
6077 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1484) * lu(k,3545)
6078 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1485) * lu(k,3545)
6079 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1486) * lu(k,3545)
6080 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1482) * lu(k,3701)
6081 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1483) * lu(k,3701)
6082 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1484) * lu(k,3701)
6083 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1485) * lu(k,3701)
6084 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1486) * lu(k,3701)
6085 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1482) * lu(k,4022)
6086 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1483) * lu(k,4022)
6087 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1484) * lu(k,4022)
6088 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1485) * lu(k,4022)
6089 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1486) * lu(k,4022)
6090 254840160 : lu(k,1487) = 1._r8 / lu(k,1487)
6091 254840160 : lu(k,1488) = lu(k,1488) * lu(k,1487)
6092 254840160 : lu(k,1489) = lu(k,1489) * lu(k,1487)
6093 254840160 : lu(k,1490) = lu(k,1490) * lu(k,1487)
6094 254840160 : lu(k,1491) = lu(k,1491) * lu(k,1487)
6095 254840160 : lu(k,1492) = lu(k,1492) * lu(k,1487)
6096 254840160 : lu(k,1493) = lu(k,1493) * lu(k,1487)
6097 254840160 : lu(k,1588) = - lu(k,1488) * lu(k,1570)
6098 254840160 : lu(k,1589) = - lu(k,1489) * lu(k,1570)
6099 254840160 : lu(k,1591) = lu(k,1591) - lu(k,1490) * lu(k,1570)
6100 254840160 : lu(k,1594) = - lu(k,1491) * lu(k,1570)
6101 254840160 : lu(k,1595) = lu(k,1595) - lu(k,1492) * lu(k,1570)
6102 254840160 : lu(k,1596) = - lu(k,1493) * lu(k,1570)
6103 254840160 : lu(k,2083) = - lu(k,1488) * lu(k,2066)
6104 254840160 : lu(k,2084) = - lu(k,1489) * lu(k,2066)
6105 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1490) * lu(k,2066)
6106 254840160 : lu(k,2090) = - lu(k,1491) * lu(k,2066)
6107 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1492) * lu(k,2066)
6108 254840160 : lu(k,2092) = - lu(k,1493) * lu(k,2066)
6109 254840160 : lu(k,2115) = - lu(k,1488) * lu(k,2097)
6110 254840160 : lu(k,2116) = - lu(k,1489) * lu(k,2097)
6111 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1490) * lu(k,2097)
6112 254840160 : lu(k,2122) = - lu(k,1491) * lu(k,2097)
6113 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1492) * lu(k,2097)
6114 254840160 : lu(k,2124) = - lu(k,1493) * lu(k,2097)
6115 254840160 : lu(k,2144) = - lu(k,1488) * lu(k,2129)
6116 254840160 : lu(k,2145) = - lu(k,1489) * lu(k,2129)
6117 254840160 : lu(k,2147) = lu(k,2147) - lu(k,1490) * lu(k,2129)
6118 254840160 : lu(k,2151) = - lu(k,1491) * lu(k,2129)
6119 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1492) * lu(k,2129)
6120 254840160 : lu(k,2153) = - lu(k,1493) * lu(k,2129)
6121 254840160 : lu(k,2609) = - lu(k,1488) * lu(k,2593)
6122 254840160 : lu(k,2610) = - lu(k,1489) * lu(k,2593)
6123 254840160 : lu(k,2612) = lu(k,2612) - lu(k,1490) * lu(k,2593)
6124 254840160 : lu(k,2616) = - lu(k,1491) * lu(k,2593)
6125 254840160 : lu(k,2617) = lu(k,2617) - lu(k,1492) * lu(k,2593)
6126 254840160 : lu(k,2618) = lu(k,2618) - lu(k,1493) * lu(k,2593)
6127 254840160 : lu(k,2637) = - lu(k,1488) * lu(k,2623)
6128 254840160 : lu(k,2638) = - lu(k,1489) * lu(k,2623)
6129 254840160 : lu(k,2640) = lu(k,2640) - lu(k,1490) * lu(k,2623)
6130 254840160 : lu(k,2644) = - lu(k,1491) * lu(k,2623)
6131 254840160 : lu(k,2645) = lu(k,2645) - lu(k,1492) * lu(k,2623)
6132 254840160 : lu(k,2646) = lu(k,2646) - lu(k,1493) * lu(k,2623)
6133 254840160 : lu(k,3160) = lu(k,3160) - lu(k,1488) * lu(k,3151)
6134 254840160 : lu(k,3161) = lu(k,3161) - lu(k,1489) * lu(k,3151)
6135 254840160 : lu(k,3163) = lu(k,3163) - lu(k,1490) * lu(k,3151)
6136 254840160 : lu(k,3171) = lu(k,3171) - lu(k,1491) * lu(k,3151)
6137 254840160 : lu(k,3172) = lu(k,3172) - lu(k,1492) * lu(k,3151)
6138 254840160 : lu(k,3173) = lu(k,3173) - lu(k,1493) * lu(k,3151)
6139 254840160 : lu(k,3366) = lu(k,3366) - lu(k,1488) * lu(k,3301)
6140 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1489) * lu(k,3301)
6141 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1490) * lu(k,3301)
6142 254840160 : lu(k,3377) = lu(k,3377) - lu(k,1491) * lu(k,3301)
6143 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1492) * lu(k,3301)
6144 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1493) * lu(k,3301)
6145 254840160 : lu(k,3603) = - lu(k,1488) * lu(k,3546)
6146 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1489) * lu(k,3546)
6147 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1490) * lu(k,3546)
6148 254840160 : lu(k,3614) = - lu(k,1491) * lu(k,3546)
6149 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1492) * lu(k,3546)
6150 254840160 : lu(k,3616) = lu(k,3616) - lu(k,1493) * lu(k,3546)
6151 254840160 : lu(k,3757) = - lu(k,1488) * lu(k,3702)
6152 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1489) * lu(k,3702)
6153 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1490) * lu(k,3702)
6154 254840160 : lu(k,3768) = lu(k,3768) - lu(k,1491) * lu(k,3702)
6155 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1492) * lu(k,3702)
6156 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1493) * lu(k,3702)
6157 254840160 : lu(k,3839) = lu(k,3839) - lu(k,1488) * lu(k,3827)
6158 254840160 : lu(k,3840) = lu(k,3840) - lu(k,1489) * lu(k,3827)
6159 254840160 : lu(k,3842) = lu(k,3842) - lu(k,1490) * lu(k,3827)
6160 254840160 : lu(k,3850) = lu(k,3850) - lu(k,1491) * lu(k,3827)
6161 254840160 : lu(k,3851) = lu(k,3851) - lu(k,1492) * lu(k,3827)
6162 254840160 : lu(k,3852) = lu(k,3852) - lu(k,1493) * lu(k,3827)
6163 254840160 : lu(k,4089) = lu(k,4089) - lu(k,1488) * lu(k,4023)
6164 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1489) * lu(k,4023)
6165 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1490) * lu(k,4023)
6166 254840160 : lu(k,4100) = lu(k,4100) - lu(k,1491) * lu(k,4023)
6167 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1492) * lu(k,4023)
6168 263009123 : lu(k,4102) = lu(k,4102) - lu(k,1493) * lu(k,4023)
6169 : end do
6170 8168963 : end subroutine lu_fac33
6171 8168963 : subroutine lu_fac34( avec_len, lu )
6172 : use chem_mods, only : nzcnt
6173 : use shr_kind_mod, only : r8 => shr_kind_r8
6174 : implicit none
6175 : !-----------------------------------------------------------------------
6176 : ! ... dummy args
6177 : !-----------------------------------------------------------------------
6178 : integer, intent(in) :: avec_len
6179 : real(r8), intent(inout) :: lu(veclen,nzcnt)
6180 : !-----------------------------------------------------------------------
6181 : ! ... local variables
6182 : !-----------------------------------------------------------------------
6183 : integer :: k
6184 263009123 : do k = 1,avec_len
6185 254840160 : lu(k,1494) = 1._r8 / lu(k,1494)
6186 254840160 : lu(k,1495) = lu(k,1495) * lu(k,1494)
6187 254840160 : lu(k,1496) = lu(k,1496) * lu(k,1494)
6188 254840160 : lu(k,1497) = lu(k,1497) * lu(k,1494)
6189 254840160 : lu(k,1516) = lu(k,1516) - lu(k,1495) * lu(k,1506)
6190 254840160 : lu(k,1517) = lu(k,1517) - lu(k,1496) * lu(k,1506)
6191 254840160 : lu(k,1520) = lu(k,1520) - lu(k,1497) * lu(k,1506)
6192 254840160 : lu(k,1743) = lu(k,1743) - lu(k,1495) * lu(k,1728)
6193 254840160 : lu(k,1744) = lu(k,1744) - lu(k,1496) * lu(k,1728)
6194 254840160 : lu(k,1747) = lu(k,1747) - lu(k,1497) * lu(k,1728)
6195 254840160 : lu(k,1765) = lu(k,1765) - lu(k,1495) * lu(k,1751)
6196 254840160 : lu(k,1766) = lu(k,1766) - lu(k,1496) * lu(k,1751)
6197 254840160 : lu(k,1769) = lu(k,1769) - lu(k,1497) * lu(k,1751)
6198 254840160 : lu(k,1829) = lu(k,1829) - lu(k,1495) * lu(k,1811)
6199 254840160 : lu(k,1830) = lu(k,1830) - lu(k,1496) * lu(k,1811)
6200 254840160 : lu(k,1833) = lu(k,1833) - lu(k,1497) * lu(k,1811)
6201 254840160 : lu(k,1860) = lu(k,1860) - lu(k,1495) * lu(k,1842)
6202 254840160 : lu(k,1861) = lu(k,1861) - lu(k,1496) * lu(k,1842)
6203 254840160 : lu(k,1864) = lu(k,1864) - lu(k,1497) * lu(k,1842)
6204 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1495) * lu(k,1976)
6205 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1496) * lu(k,1976)
6206 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1497) * lu(k,1976)
6207 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1495) * lu(k,2163)
6208 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1496) * lu(k,2163)
6209 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1497) * lu(k,2163)
6210 254840160 : lu(k,2224) = lu(k,2224) - lu(k,1495) * lu(k,2210)
6211 254840160 : lu(k,2225) = lu(k,2225) - lu(k,1496) * lu(k,2210)
6212 254840160 : lu(k,2229) = lu(k,2229) - lu(k,1497) * lu(k,2210)
6213 254840160 : lu(k,2282) = lu(k,2282) - lu(k,1495) * lu(k,2273)
6214 254840160 : lu(k,2283) = lu(k,2283) - lu(k,1496) * lu(k,2273)
6215 254840160 : lu(k,2287) = lu(k,2287) - lu(k,1497) * lu(k,2273)
6216 254840160 : lu(k,2308) = lu(k,2308) - lu(k,1495) * lu(k,2291)
6217 254840160 : lu(k,2309) = lu(k,2309) - lu(k,1496) * lu(k,2291)
6218 254840160 : lu(k,2313) = lu(k,2313) - lu(k,1497) * lu(k,2291)
6219 254840160 : lu(k,2352) = lu(k,2352) - lu(k,1495) * lu(k,2333)
6220 254840160 : lu(k,2353) = lu(k,2353) - lu(k,1496) * lu(k,2333)
6221 254840160 : lu(k,2357) = lu(k,2357) - lu(k,1497) * lu(k,2333)
6222 254840160 : lu(k,2421) = lu(k,2421) - lu(k,1495) * lu(k,2402)
6223 254840160 : lu(k,2422) = lu(k,2422) - lu(k,1496) * lu(k,2402)
6224 254840160 : lu(k,2426) = lu(k,2426) - lu(k,1497) * lu(k,2402)
6225 254840160 : lu(k,2453) = lu(k,2453) - lu(k,1495) * lu(k,2430)
6226 254840160 : lu(k,2454) = lu(k,2454) - lu(k,1496) * lu(k,2430)
6227 254840160 : lu(k,2458) = lu(k,2458) - lu(k,1497) * lu(k,2430)
6228 254840160 : lu(k,2484) = lu(k,2484) - lu(k,1495) * lu(k,2462)
6229 254840160 : lu(k,2485) = lu(k,2485) - lu(k,1496) * lu(k,2462)
6230 254840160 : lu(k,2489) = lu(k,2489) - lu(k,1497) * lu(k,2462)
6231 254840160 : lu(k,2518) = lu(k,2518) - lu(k,1495) * lu(k,2497)
6232 254840160 : lu(k,2519) = lu(k,2519) - lu(k,1496) * lu(k,2497)
6233 254840160 : lu(k,2523) = lu(k,2523) - lu(k,1497) * lu(k,2497)
6234 254840160 : lu(k,2547) = lu(k,2547) - lu(k,1495) * lu(k,2529)
6235 254840160 : lu(k,2548) = lu(k,2548) - lu(k,1496) * lu(k,2529)
6236 254840160 : lu(k,2552) = lu(k,2552) - lu(k,1497) * lu(k,2529)
6237 254840160 : lu(k,2583) = lu(k,2583) - lu(k,1495) * lu(k,2560)
6238 254840160 : lu(k,2584) = lu(k,2584) - lu(k,1496) * lu(k,2560)
6239 254840160 : lu(k,2588) = lu(k,2588) - lu(k,1497) * lu(k,2560)
6240 254840160 : lu(k,2664) = lu(k,2664) - lu(k,1495) * lu(k,2649)
6241 254840160 : lu(k,2665) = lu(k,2665) - lu(k,1496) * lu(k,2649)
6242 254840160 : lu(k,2669) = lu(k,2669) - lu(k,1497) * lu(k,2649)
6243 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1495) * lu(k,3044)
6244 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1496) * lu(k,3044)
6245 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1497) * lu(k,3044)
6246 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1495) * lu(k,3302)
6247 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1496) * lu(k,3302)
6248 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1497) * lu(k,3302)
6249 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1495) * lu(k,3398)
6250 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1496) * lu(k,3398)
6251 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1497) * lu(k,3398)
6252 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1495) * lu(k,3547)
6253 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1496) * lu(k,3547)
6254 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1497) * lu(k,3547)
6255 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1495) * lu(k,3703)
6256 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1496) * lu(k,3703)
6257 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1497) * lu(k,3703)
6258 254840160 : lu(k,3841) = lu(k,3841) - lu(k,1495) * lu(k,3828)
6259 254840160 : lu(k,3842) = lu(k,3842) - lu(k,1496) * lu(k,3828)
6260 254840160 : lu(k,3851) = lu(k,3851) - lu(k,1497) * lu(k,3828)
6261 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1495) * lu(k,4024)
6262 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1496) * lu(k,4024)
6263 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1497) * lu(k,4024)
6264 254840160 : lu(k,1498) = 1._r8 / lu(k,1498)
6265 254840160 : lu(k,1499) = lu(k,1499) * lu(k,1498)
6266 254840160 : lu(k,1500) = lu(k,1500) * lu(k,1498)
6267 254840160 : lu(k,1501) = lu(k,1501) * lu(k,1498)
6268 254840160 : lu(k,1502) = lu(k,1502) * lu(k,1498)
6269 254840160 : lu(k,1503) = lu(k,1503) * lu(k,1498)
6270 254840160 : lu(k,1504) = lu(k,1504) * lu(k,1498)
6271 254840160 : lu(k,1505) = lu(k,1505) * lu(k,1498)
6272 254840160 : lu(k,1510) = lu(k,1510) - lu(k,1499) * lu(k,1507)
6273 254840160 : lu(k,1512) = lu(k,1512) - lu(k,1500) * lu(k,1507)
6274 254840160 : lu(k,1513) = lu(k,1513) - lu(k,1501) * lu(k,1507)
6275 254840160 : lu(k,1514) = lu(k,1514) - lu(k,1502) * lu(k,1507)
6276 254840160 : lu(k,1516) = lu(k,1516) - lu(k,1503) * lu(k,1507)
6277 254840160 : lu(k,1517) = lu(k,1517) - lu(k,1504) * lu(k,1507)
6278 254840160 : lu(k,1520) = lu(k,1520) - lu(k,1505) * lu(k,1507)
6279 254840160 : lu(k,1731) = lu(k,1731) - lu(k,1499) * lu(k,1729)
6280 254840160 : lu(k,1736) = - lu(k,1500) * lu(k,1729)
6281 254840160 : lu(k,1738) = lu(k,1738) - lu(k,1501) * lu(k,1729)
6282 254840160 : lu(k,1740) = lu(k,1740) - lu(k,1502) * lu(k,1729)
6283 254840160 : lu(k,1743) = lu(k,1743) - lu(k,1503) * lu(k,1729)
6284 254840160 : lu(k,1744) = lu(k,1744) - lu(k,1504) * lu(k,1729)
6285 254840160 : lu(k,1747) = lu(k,1747) - lu(k,1505) * lu(k,1729)
6286 254840160 : lu(k,1790) = lu(k,1790) - lu(k,1499) * lu(k,1788)
6287 254840160 : lu(k,1795) = lu(k,1795) - lu(k,1500) * lu(k,1788)
6288 254840160 : lu(k,1796) = lu(k,1796) - lu(k,1501) * lu(k,1788)
6289 254840160 : lu(k,1797) = - lu(k,1502) * lu(k,1788)
6290 254840160 : lu(k,1799) = lu(k,1799) - lu(k,1503) * lu(k,1788)
6291 254840160 : lu(k,1800) = lu(k,1800) - lu(k,1504) * lu(k,1788)
6292 254840160 : lu(k,1802) = lu(k,1802) - lu(k,1505) * lu(k,1788)
6293 254840160 : lu(k,1846) = lu(k,1846) - lu(k,1499) * lu(k,1843)
6294 254840160 : lu(k,1852) = lu(k,1852) - lu(k,1500) * lu(k,1843)
6295 254840160 : lu(k,1855) = lu(k,1855) - lu(k,1501) * lu(k,1843)
6296 254840160 : lu(k,1857) = lu(k,1857) - lu(k,1502) * lu(k,1843)
6297 254840160 : lu(k,1860) = lu(k,1860) - lu(k,1503) * lu(k,1843)
6298 254840160 : lu(k,1861) = lu(k,1861) - lu(k,1504) * lu(k,1843)
6299 254840160 : lu(k,1864) = lu(k,1864) - lu(k,1505) * lu(k,1843)
6300 254840160 : lu(k,1892) = lu(k,1892) - lu(k,1499) * lu(k,1889)
6301 254840160 : lu(k,1898) = lu(k,1898) - lu(k,1500) * lu(k,1889)
6302 254840160 : lu(k,1903) = lu(k,1903) - lu(k,1501) * lu(k,1889)
6303 254840160 : lu(k,1904) = - lu(k,1502) * lu(k,1889)
6304 254840160 : lu(k,1907) = lu(k,1907) - lu(k,1503) * lu(k,1889)
6305 254840160 : lu(k,1908) = lu(k,1908) - lu(k,1504) * lu(k,1889)
6306 254840160 : lu(k,1910) = lu(k,1910) - lu(k,1505) * lu(k,1889)
6307 254840160 : lu(k,2102) = lu(k,2102) - lu(k,1499) * lu(k,2098)
6308 254840160 : lu(k,2108) = lu(k,2108) - lu(k,1500) * lu(k,2098)
6309 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1501) * lu(k,2098)
6310 254840160 : lu(k,2112) = - lu(k,1502) * lu(k,2098)
6311 254840160 : lu(k,2117) = lu(k,2117) - lu(k,1503) * lu(k,2098)
6312 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1504) * lu(k,2098)
6313 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1505) * lu(k,2098)
6314 254840160 : lu(k,2869) = lu(k,2869) - lu(k,1499) * lu(k,2860)
6315 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1500) * lu(k,2860)
6316 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1501) * lu(k,2860)
6317 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1502) * lu(k,2860)
6318 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1503) * lu(k,2860)
6319 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1504) * lu(k,2860)
6320 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1505) * lu(k,2860)
6321 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1499) * lu(k,3045)
6322 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1500) * lu(k,3045)
6323 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1501) * lu(k,3045)
6324 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1502) * lu(k,3045)
6325 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1503) * lu(k,3045)
6326 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1504) * lu(k,3045)
6327 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1505) * lu(k,3045)
6328 254840160 : lu(k,3316) = lu(k,3316) - lu(k,1499) * lu(k,3303)
6329 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1500) * lu(k,3303)
6330 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1501) * lu(k,3303)
6331 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1502) * lu(k,3303)
6332 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1503) * lu(k,3303)
6333 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1504) * lu(k,3303)
6334 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1505) * lu(k,3303)
6335 254840160 : lu(k,3410) = lu(k,3410) - lu(k,1499) * lu(k,3399)
6336 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1500) * lu(k,3399)
6337 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1501) * lu(k,3399)
6338 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1502) * lu(k,3399)
6339 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1503) * lu(k,3399)
6340 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1504) * lu(k,3399)
6341 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1505) * lu(k,3399)
6342 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1499) * lu(k,4025)
6343 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1500) * lu(k,4025)
6344 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1501) * lu(k,4025)
6345 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1502) * lu(k,4025)
6346 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1503) * lu(k,4025)
6347 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1504) * lu(k,4025)
6348 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1505) * lu(k,4025)
6349 254840160 : lu(k,1508) = 1._r8 / lu(k,1508)
6350 254840160 : lu(k,1509) = lu(k,1509) * lu(k,1508)
6351 254840160 : lu(k,1510) = lu(k,1510) * lu(k,1508)
6352 254840160 : lu(k,1511) = lu(k,1511) * lu(k,1508)
6353 254840160 : lu(k,1512) = lu(k,1512) * lu(k,1508)
6354 254840160 : lu(k,1513) = lu(k,1513) * lu(k,1508)
6355 254840160 : lu(k,1514) = lu(k,1514) * lu(k,1508)
6356 254840160 : lu(k,1515) = lu(k,1515) * lu(k,1508)
6357 254840160 : lu(k,1516) = lu(k,1516) * lu(k,1508)
6358 254840160 : lu(k,1517) = lu(k,1517) * lu(k,1508)
6359 254840160 : lu(k,1518) = lu(k,1518) * lu(k,1508)
6360 254840160 : lu(k,1519) = lu(k,1519) * lu(k,1508)
6361 254840160 : lu(k,1520) = lu(k,1520) * lu(k,1508)
6362 254840160 : lu(k,1845) = lu(k,1845) - lu(k,1509) * lu(k,1844)
6363 254840160 : lu(k,1846) = lu(k,1846) - lu(k,1510) * lu(k,1844)
6364 254840160 : lu(k,1851) = - lu(k,1511) * lu(k,1844)
6365 254840160 : lu(k,1852) = lu(k,1852) - lu(k,1512) * lu(k,1844)
6366 254840160 : lu(k,1855) = lu(k,1855) - lu(k,1513) * lu(k,1844)
6367 254840160 : lu(k,1857) = lu(k,1857) - lu(k,1514) * lu(k,1844)
6368 254840160 : lu(k,1858) = lu(k,1858) - lu(k,1515) * lu(k,1844)
6369 254840160 : lu(k,1860) = lu(k,1860) - lu(k,1516) * lu(k,1844)
6370 254840160 : lu(k,1861) = lu(k,1861) - lu(k,1517) * lu(k,1844)
6371 254840160 : lu(k,1862) = lu(k,1862) - lu(k,1518) * lu(k,1844)
6372 254840160 : lu(k,1863) = lu(k,1863) - lu(k,1519) * lu(k,1844)
6373 254840160 : lu(k,1864) = lu(k,1864) - lu(k,1520) * lu(k,1844)
6374 254840160 : lu(k,2036) = lu(k,2036) - lu(k,1509) * lu(k,2035)
6375 254840160 : lu(k,2037) = - lu(k,1510) * lu(k,2035)
6376 254840160 : lu(k,2039) = - lu(k,1511) * lu(k,2035)
6377 254840160 : lu(k,2040) = lu(k,2040) - lu(k,1512) * lu(k,2035)
6378 254840160 : lu(k,2042) = lu(k,2042) - lu(k,1513) * lu(k,2035)
6379 254840160 : lu(k,2044) = lu(k,2044) - lu(k,1514) * lu(k,2035)
6380 254840160 : lu(k,2046) = lu(k,2046) - lu(k,1515) * lu(k,2035)
6381 254840160 : lu(k,2048) = lu(k,2048) - lu(k,1516) * lu(k,2035)
6382 254840160 : lu(k,2049) = lu(k,2049) - lu(k,1517) * lu(k,2035)
6383 254840160 : lu(k,2050) = lu(k,2050) - lu(k,1518) * lu(k,2035)
6384 254840160 : lu(k,2052) = lu(k,2052) - lu(k,1519) * lu(k,2035)
6385 254840160 : lu(k,2054) = lu(k,2054) - lu(k,1520) * lu(k,2035)
6386 254840160 : lu(k,2865) = lu(k,2865) - lu(k,1509) * lu(k,2861)
6387 254840160 : lu(k,2869) = lu(k,2869) - lu(k,1510) * lu(k,2861)
6388 254840160 : lu(k,2879) = - lu(k,1511) * lu(k,2861)
6389 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1512) * lu(k,2861)
6390 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1513) * lu(k,2861)
6391 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1514) * lu(k,2861)
6392 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1515) * lu(k,2861)
6393 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1516) * lu(k,2861)
6394 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1517) * lu(k,2861)
6395 254840160 : lu(k,2921) = lu(k,2921) - lu(k,1518) * lu(k,2861)
6396 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1519) * lu(k,2861)
6397 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1520) * lu(k,2861)
6398 254840160 : lu(k,3051) = lu(k,3051) - lu(k,1509) * lu(k,3046)
6399 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1510) * lu(k,3046)
6400 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1511) * lu(k,3046)
6401 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1512) * lu(k,3046)
6402 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1513) * lu(k,3046)
6403 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1514) * lu(k,3046)
6404 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1515) * lu(k,3046)
6405 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1516) * lu(k,3046)
6406 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1517) * lu(k,3046)
6407 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1518) * lu(k,3046)
6408 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1519) * lu(k,3046)
6409 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1520) * lu(k,3046)
6410 254840160 : lu(k,3309) = lu(k,3309) - lu(k,1509) * lu(k,3304)
6411 254840160 : lu(k,3316) = lu(k,3316) - lu(k,1510) * lu(k,3304)
6412 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1511) * lu(k,3304)
6413 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1512) * lu(k,3304)
6414 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1513) * lu(k,3304)
6415 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1514) * lu(k,3304)
6416 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1515) * lu(k,3304)
6417 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1516) * lu(k,3304)
6418 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1517) * lu(k,3304)
6419 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1518) * lu(k,3304)
6420 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1519) * lu(k,3304)
6421 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1520) * lu(k,3304)
6422 254840160 : lu(k,3404) = lu(k,3404) - lu(k,1509) * lu(k,3400)
6423 254840160 : lu(k,3410) = lu(k,3410) - lu(k,1510) * lu(k,3400)
6424 254840160 : lu(k,3421) = lu(k,3421) - lu(k,1511) * lu(k,3400)
6425 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1512) * lu(k,3400)
6426 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1513) * lu(k,3400)
6427 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1514) * lu(k,3400)
6428 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1515) * lu(k,3400)
6429 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1516) * lu(k,3400)
6430 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1517) * lu(k,3400)
6431 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1518) * lu(k,3400)
6432 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1519) * lu(k,3400)
6433 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1520) * lu(k,3400)
6434 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1509) * lu(k,4026)
6435 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1510) * lu(k,4026)
6436 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1511) * lu(k,4026)
6437 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1512) * lu(k,4026)
6438 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1513) * lu(k,4026)
6439 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1514) * lu(k,4026)
6440 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1515) * lu(k,4026)
6441 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1516) * lu(k,4026)
6442 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1517) * lu(k,4026)
6443 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1518) * lu(k,4026)
6444 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1519) * lu(k,4026)
6445 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1520) * lu(k,4026)
6446 254840160 : lu(k,1524) = 1._r8 / lu(k,1524)
6447 254840160 : lu(k,1525) = lu(k,1525) * lu(k,1524)
6448 254840160 : lu(k,1526) = lu(k,1526) * lu(k,1524)
6449 254840160 : lu(k,1527) = lu(k,1527) * lu(k,1524)
6450 254840160 : lu(k,1528) = lu(k,1528) * lu(k,1524)
6451 254840160 : lu(k,1529) = lu(k,1529) * lu(k,1524)
6452 254840160 : lu(k,1530) = lu(k,1530) * lu(k,1524)
6453 254840160 : lu(k,1531) = lu(k,1531) * lu(k,1524)
6454 254840160 : lu(k,1532) = lu(k,1532) * lu(k,1524)
6455 254840160 : lu(k,1533) = lu(k,1533) * lu(k,1524)
6456 254840160 : lu(k,1534) = lu(k,1534) * lu(k,1524)
6457 254840160 : lu(k,1535) = lu(k,1535) * lu(k,1524)
6458 254840160 : lu(k,1573) = lu(k,1573) - lu(k,1525) * lu(k,1571)
6459 254840160 : lu(k,1576) = lu(k,1576) - lu(k,1526) * lu(k,1571)
6460 254840160 : lu(k,1577) = lu(k,1577) - lu(k,1527) * lu(k,1571)
6461 254840160 : lu(k,1579) = lu(k,1579) - lu(k,1528) * lu(k,1571)
6462 254840160 : lu(k,1581) = lu(k,1581) - lu(k,1529) * lu(k,1571)
6463 254840160 : lu(k,1582) = lu(k,1582) - lu(k,1530) * lu(k,1571)
6464 254840160 : lu(k,1587) = lu(k,1587) - lu(k,1531) * lu(k,1571)
6465 254840160 : lu(k,1590) = lu(k,1590) - lu(k,1532) * lu(k,1571)
6466 254840160 : lu(k,1591) = lu(k,1591) - lu(k,1533) * lu(k,1571)
6467 254840160 : lu(k,1592) = lu(k,1592) - lu(k,1534) * lu(k,1571)
6468 254840160 : lu(k,1595) = lu(k,1595) - lu(k,1535) * lu(k,1571)
6469 254840160 : lu(k,1891) = lu(k,1891) - lu(k,1525) * lu(k,1890)
6470 254840160 : lu(k,1892) = lu(k,1892) - lu(k,1526) * lu(k,1890)
6471 254840160 : lu(k,1893) = lu(k,1893) - lu(k,1527) * lu(k,1890)
6472 254840160 : lu(k,1894) = - lu(k,1528) * lu(k,1890)
6473 254840160 : lu(k,1898) = lu(k,1898) - lu(k,1529) * lu(k,1890)
6474 254840160 : lu(k,1903) = lu(k,1903) - lu(k,1530) * lu(k,1890)
6475 254840160 : lu(k,1905) = - lu(k,1531) * lu(k,1890)
6476 254840160 : lu(k,1907) = lu(k,1907) - lu(k,1532) * lu(k,1890)
6477 254840160 : lu(k,1908) = lu(k,1908) - lu(k,1533) * lu(k,1890)
6478 254840160 : lu(k,1909) = - lu(k,1534) * lu(k,1890)
6479 254840160 : lu(k,1910) = lu(k,1910) - lu(k,1535) * lu(k,1890)
6480 254840160 : lu(k,1941) = lu(k,1941) - lu(k,1525) * lu(k,1940)
6481 254840160 : lu(k,1943) = lu(k,1943) - lu(k,1526) * lu(k,1940)
6482 254840160 : lu(k,1945) = lu(k,1945) - lu(k,1527) * lu(k,1940)
6483 254840160 : lu(k,1947) = lu(k,1947) - lu(k,1528) * lu(k,1940)
6484 254840160 : lu(k,1952) = - lu(k,1529) * lu(k,1940)
6485 254840160 : lu(k,1957) = - lu(k,1530) * lu(k,1940)
6486 254840160 : lu(k,1961) = lu(k,1961) - lu(k,1531) * lu(k,1940)
6487 254840160 : lu(k,1963) = lu(k,1963) - lu(k,1532) * lu(k,1940)
6488 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1533) * lu(k,1940)
6489 254840160 : lu(k,1967) = lu(k,1967) - lu(k,1534) * lu(k,1940)
6490 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1535) * lu(k,1940)
6491 254840160 : lu(k,1978) = lu(k,1978) - lu(k,1525) * lu(k,1977)
6492 254840160 : lu(k,1980) = lu(k,1980) - lu(k,1526) * lu(k,1977)
6493 254840160 : lu(k,1982) = lu(k,1982) - lu(k,1527) * lu(k,1977)
6494 254840160 : lu(k,1984) = lu(k,1984) - lu(k,1528) * lu(k,1977)
6495 254840160 : lu(k,1989) = - lu(k,1529) * lu(k,1977)
6496 254840160 : lu(k,1994) = - lu(k,1530) * lu(k,1977)
6497 254840160 : lu(k,2000) = lu(k,2000) - lu(k,1531) * lu(k,1977)
6498 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1532) * lu(k,1977)
6499 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1533) * lu(k,1977)
6500 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1534) * lu(k,1977)
6501 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1535) * lu(k,1977)
6502 254840160 : lu(k,2068) = lu(k,2068) - lu(k,1525) * lu(k,2067)
6503 254840160 : lu(k,2070) = lu(k,2070) - lu(k,1526) * lu(k,2067)
6504 254840160 : lu(k,2071) = lu(k,2071) - lu(k,1527) * lu(k,2067)
6505 254840160 : lu(k,2073) = lu(k,2073) - lu(k,1528) * lu(k,2067)
6506 254840160 : lu(k,2076) = lu(k,2076) - lu(k,1529) * lu(k,2067)
6507 254840160 : lu(k,2077) = lu(k,2077) - lu(k,1530) * lu(k,2067)
6508 254840160 : lu(k,2082) = lu(k,2082) - lu(k,1531) * lu(k,2067)
6509 254840160 : lu(k,2085) = lu(k,2085) - lu(k,1532) * lu(k,2067)
6510 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1533) * lu(k,2067)
6511 254840160 : lu(k,2088) = lu(k,2088) - lu(k,1534) * lu(k,2067)
6512 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1535) * lu(k,2067)
6513 254840160 : lu(k,2100) = lu(k,2100) - lu(k,1525) * lu(k,2099)
6514 254840160 : lu(k,2102) = lu(k,2102) - lu(k,1526) * lu(k,2099)
6515 254840160 : lu(k,2103) = lu(k,2103) - lu(k,1527) * lu(k,2099)
6516 254840160 : lu(k,2105) = lu(k,2105) - lu(k,1528) * lu(k,2099)
6517 254840160 : lu(k,2108) = lu(k,2108) - lu(k,1529) * lu(k,2099)
6518 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1530) * lu(k,2099)
6519 254840160 : lu(k,2114) = lu(k,2114) - lu(k,1531) * lu(k,2099)
6520 254840160 : lu(k,2117) = lu(k,2117) - lu(k,1532) * lu(k,2099)
6521 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1533) * lu(k,2099)
6522 254840160 : lu(k,2120) = lu(k,2120) - lu(k,1534) * lu(k,2099)
6523 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1535) * lu(k,2099)
6524 254840160 : lu(k,3051) = lu(k,3051) - lu(k,1525) * lu(k,3047)
6525 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1526) * lu(k,3047)
6526 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1527) * lu(k,3047)
6527 254840160 : lu(k,3063) = lu(k,3063) - lu(k,1528) * lu(k,3047)
6528 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1529) * lu(k,3047)
6529 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1530) * lu(k,3047)
6530 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1531) * lu(k,3047)
6531 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1532) * lu(k,3047)
6532 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1533) * lu(k,3047)
6533 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1534) * lu(k,3047)
6534 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1535) * lu(k,3047)
6535 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1525) * lu(k,4027)
6536 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1526) * lu(k,4027)
6537 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1527) * lu(k,4027)
6538 254840160 : lu(k,4046) = lu(k,4046) - lu(k,1528) * lu(k,4027)
6539 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1529) * lu(k,4027)
6540 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1530) * lu(k,4027)
6541 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1531) * lu(k,4027)
6542 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1532) * lu(k,4027)
6543 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1533) * lu(k,4027)
6544 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1534) * lu(k,4027)
6545 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1535) * lu(k,4027)
6546 : end do
6547 8168963 : end subroutine lu_fac34
6548 8168963 : subroutine lu_fac35( avec_len, lu )
6549 : use chem_mods, only : nzcnt
6550 : use shr_kind_mod, only : r8 => shr_kind_r8
6551 : implicit none
6552 : !-----------------------------------------------------------------------
6553 : ! ... dummy args
6554 : !-----------------------------------------------------------------------
6555 : integer, intent(in) :: avec_len
6556 : real(r8), intent(inout) :: lu(veclen,nzcnt)
6557 : !-----------------------------------------------------------------------
6558 : ! ... local variables
6559 : !-----------------------------------------------------------------------
6560 : integer :: k
6561 263009123 : do k = 1,avec_len
6562 254840160 : lu(k,1536) = 1._r8 / lu(k,1536)
6563 254840160 : lu(k,1537) = lu(k,1537) * lu(k,1536)
6564 254840160 : lu(k,1538) = lu(k,1538) * lu(k,1536)
6565 254840160 : lu(k,1539) = lu(k,1539) * lu(k,1536)
6566 254840160 : lu(k,1540) = lu(k,1540) * lu(k,1536)
6567 254840160 : lu(k,1541) = lu(k,1541) * lu(k,1536)
6568 254840160 : lu(k,1703) = - lu(k,1537) * lu(k,1700)
6569 254840160 : lu(k,1705) = lu(k,1705) - lu(k,1538) * lu(k,1700)
6570 254840160 : lu(k,1707) = lu(k,1707) - lu(k,1539) * lu(k,1700)
6571 254840160 : lu(k,1708) = lu(k,1708) - lu(k,1540) * lu(k,1700)
6572 254840160 : lu(k,1709) = lu(k,1709) - lu(k,1541) * lu(k,1700)
6573 254840160 : lu(k,2237) = - lu(k,1537) * lu(k,2231)
6574 254840160 : lu(k,2245) = - lu(k,1538) * lu(k,2231)
6575 254840160 : lu(k,2249) = lu(k,2249) - lu(k,1539) * lu(k,2231)
6576 254840160 : lu(k,2252) = lu(k,2252) - lu(k,1540) * lu(k,2231)
6577 254840160 : lu(k,2253) = lu(k,2253) - lu(k,1541) * lu(k,2231)
6578 254840160 : lu(k,2297) = lu(k,2297) - lu(k,1537) * lu(k,2292)
6579 254840160 : lu(k,2305) = lu(k,2305) - lu(k,1538) * lu(k,2292)
6580 254840160 : lu(k,2309) = lu(k,2309) - lu(k,1539) * lu(k,2292)
6581 254840160 : lu(k,2312) = lu(k,2312) - lu(k,1540) * lu(k,2292)
6582 254840160 : lu(k,2313) = lu(k,2313) - lu(k,1541) * lu(k,2292)
6583 254840160 : lu(k,2379) = lu(k,2379) - lu(k,1537) * lu(k,2370)
6584 254840160 : lu(k,2389) = - lu(k,1538) * lu(k,2370)
6585 254840160 : lu(k,2393) = lu(k,2393) - lu(k,1539) * lu(k,2370)
6586 254840160 : lu(k,2396) = lu(k,2396) - lu(k,1540) * lu(k,2370)
6587 254840160 : lu(k,2397) = lu(k,2397) - lu(k,1541) * lu(k,2370)
6588 254840160 : lu(k,2440) = lu(k,2440) - lu(k,1537) * lu(k,2431)
6589 254840160 : lu(k,2450) = - lu(k,1538) * lu(k,2431)
6590 254840160 : lu(k,2454) = lu(k,2454) - lu(k,1539) * lu(k,2431)
6591 254840160 : lu(k,2457) = lu(k,2457) - lu(k,1540) * lu(k,2431)
6592 254840160 : lu(k,2458) = lu(k,2458) - lu(k,1541) * lu(k,2431)
6593 254840160 : lu(k,2504) = lu(k,2504) - lu(k,1537) * lu(k,2498)
6594 254840160 : lu(k,2515) = lu(k,2515) - lu(k,1538) * lu(k,2498)
6595 254840160 : lu(k,2519) = lu(k,2519) - lu(k,1539) * lu(k,2498)
6596 254840160 : lu(k,2522) = lu(k,2522) - lu(k,1540) * lu(k,2498)
6597 254840160 : lu(k,2523) = lu(k,2523) - lu(k,1541) * lu(k,2498)
6598 254840160 : lu(k,2535) = lu(k,2535) - lu(k,1537) * lu(k,2530)
6599 254840160 : lu(k,2544) = lu(k,2544) - lu(k,1538) * lu(k,2530)
6600 254840160 : lu(k,2548) = lu(k,2548) - lu(k,1539) * lu(k,2530)
6601 254840160 : lu(k,2551) = lu(k,2551) - lu(k,1540) * lu(k,2530)
6602 254840160 : lu(k,2552) = lu(k,2552) - lu(k,1541) * lu(k,2530)
6603 254840160 : lu(k,2568) = lu(k,2568) - lu(k,1537) * lu(k,2561)
6604 254840160 : lu(k,2580) = lu(k,2580) - lu(k,1538) * lu(k,2561)
6605 254840160 : lu(k,2584) = lu(k,2584) - lu(k,1539) * lu(k,2561)
6606 254840160 : lu(k,2587) = lu(k,2587) - lu(k,1540) * lu(k,2561)
6607 254840160 : lu(k,2588) = lu(k,2588) - lu(k,1541) * lu(k,2561)
6608 254840160 : lu(k,2698) = lu(k,2698) - lu(k,1537) * lu(k,2693)
6609 254840160 : lu(k,2706) = - lu(k,1538) * lu(k,2693)
6610 254840160 : lu(k,2710) = lu(k,2710) - lu(k,1539) * lu(k,2693)
6611 254840160 : lu(k,2713) = lu(k,2713) - lu(k,1540) * lu(k,2693)
6612 254840160 : lu(k,2714) = lu(k,2714) - lu(k,1541) * lu(k,2693)
6613 254840160 : lu(k,2732) = lu(k,2732) - lu(k,1537) * lu(k,2719)
6614 254840160 : lu(k,2749) = - lu(k,1538) * lu(k,2719)
6615 254840160 : lu(k,2754) = lu(k,2754) - lu(k,1539) * lu(k,2719)
6616 254840160 : lu(k,2757) = lu(k,2757) - lu(k,1540) * lu(k,2719)
6617 254840160 : lu(k,2760) = lu(k,2760) - lu(k,1541) * lu(k,2719)
6618 254840160 : lu(k,2778) = lu(k,2778) - lu(k,1537) * lu(k,2765)
6619 254840160 : lu(k,2795) = - lu(k,1538) * lu(k,2765)
6620 254840160 : lu(k,2800) = lu(k,2800) - lu(k,1539) * lu(k,2765)
6621 254840160 : lu(k,2803) = lu(k,2803) - lu(k,1540) * lu(k,2765)
6622 254840160 : lu(k,2806) = lu(k,2806) - lu(k,1541) * lu(k,2765)
6623 254840160 : lu(k,2825) = lu(k,2825) - lu(k,1537) * lu(k,2812)
6624 254840160 : lu(k,2842) = lu(k,2842) - lu(k,1538) * lu(k,2812)
6625 254840160 : lu(k,2847) = lu(k,2847) - lu(k,1539) * lu(k,2812)
6626 254840160 : lu(k,2850) = lu(k,2850) - lu(k,1540) * lu(k,2812)
6627 254840160 : lu(k,2853) = lu(k,2853) - lu(k,1541) * lu(k,2812)
6628 254840160 : lu(k,2897) = lu(k,2897) - lu(k,1537) * lu(k,2862)
6629 254840160 : lu(k,2915) = - lu(k,1538) * lu(k,2862)
6630 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1539) * lu(k,2862)
6631 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1540) * lu(k,2862)
6632 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1541) * lu(k,2862)
6633 254840160 : lu(k,3087) = lu(k,3087) - lu(k,1537) * lu(k,3048)
6634 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1538) * lu(k,3048)
6635 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1539) * lu(k,3048)
6636 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1540) * lu(k,3048)
6637 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1541) * lu(k,3048)
6638 254840160 : lu(k,3346) = lu(k,3346) - lu(k,1537) * lu(k,3305)
6639 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1538) * lu(k,3305)
6640 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1539) * lu(k,3305)
6641 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1540) * lu(k,3305)
6642 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1541) * lu(k,3305)
6643 254840160 : lu(k,3439) = lu(k,3439) - lu(k,1537) * lu(k,3401)
6644 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1538) * lu(k,3401)
6645 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1539) * lu(k,3401)
6646 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1540) * lu(k,3401)
6647 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1541) * lu(k,3401)
6648 254840160 : lu(k,3583) = lu(k,3583) - lu(k,1537) * lu(k,3548)
6649 254840160 : lu(k,3601) = lu(k,3601) - lu(k,1538) * lu(k,3548)
6650 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1539) * lu(k,3548)
6651 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1540) * lu(k,3548)
6652 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1541) * lu(k,3548)
6653 254840160 : lu(k,4069) = lu(k,4069) - lu(k,1537) * lu(k,4028)
6654 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1538) * lu(k,4028)
6655 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1539) * lu(k,4028)
6656 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1540) * lu(k,4028)
6657 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1541) * lu(k,4028)
6658 254840160 : lu(k,1543) = 1._r8 / lu(k,1543)
6659 254840160 : lu(k,1544) = lu(k,1544) * lu(k,1543)
6660 254840160 : lu(k,1545) = lu(k,1545) * lu(k,1543)
6661 254840160 : lu(k,1546) = lu(k,1546) * lu(k,1543)
6662 254840160 : lu(k,1547) = lu(k,1547) * lu(k,1543)
6663 254840160 : lu(k,1548) = lu(k,1548) * lu(k,1543)
6664 254840160 : lu(k,1549) = lu(k,1549) * lu(k,1543)
6665 254840160 : lu(k,1550) = lu(k,1550) * lu(k,1543)
6666 254840160 : lu(k,1551) = lu(k,1551) * lu(k,1543)
6667 254840160 : lu(k,1552) = lu(k,1552) * lu(k,1543)
6668 254840160 : lu(k,1553) = lu(k,1553) * lu(k,1543)
6669 254840160 : lu(k,1554) = lu(k,1554) * lu(k,1543)
6670 254840160 : lu(k,1555) = lu(k,1555) * lu(k,1543)
6671 254840160 : lu(k,1556) = lu(k,1556) * lu(k,1543)
6672 254840160 : lu(k,1813) = lu(k,1813) - lu(k,1544) * lu(k,1812)
6673 254840160 : lu(k,1815) = lu(k,1815) - lu(k,1545) * lu(k,1812)
6674 254840160 : lu(k,1816) = - lu(k,1546) * lu(k,1812)
6675 254840160 : lu(k,1820) = lu(k,1820) - lu(k,1547) * lu(k,1812)
6676 254840160 : lu(k,1823) = lu(k,1823) - lu(k,1548) * lu(k,1812)
6677 254840160 : lu(k,1825) = - lu(k,1549) * lu(k,1812)
6678 254840160 : lu(k,1826) = lu(k,1826) - lu(k,1550) * lu(k,1812)
6679 254840160 : lu(k,1827) = lu(k,1827) - lu(k,1551) * lu(k,1812)
6680 254840160 : lu(k,1829) = lu(k,1829) - lu(k,1552) * lu(k,1812)
6681 254840160 : lu(k,1830) = lu(k,1830) - lu(k,1553) * lu(k,1812)
6682 254840160 : lu(k,1831) = lu(k,1831) - lu(k,1554) * lu(k,1812)
6683 254840160 : lu(k,1832) = lu(k,1832) - lu(k,1555) * lu(k,1812)
6684 254840160 : lu(k,1833) = lu(k,1833) - lu(k,1556) * lu(k,1812)
6685 254840160 : lu(k,2011) = lu(k,2011) - lu(k,1544) * lu(k,2010)
6686 254840160 : lu(k,2013) = - lu(k,1545) * lu(k,2010)
6687 254840160 : lu(k,2014) = - lu(k,1546) * lu(k,2010)
6688 254840160 : lu(k,2015) = lu(k,2015) - lu(k,1547) * lu(k,2010)
6689 254840160 : lu(k,2017) = lu(k,2017) - lu(k,1548) * lu(k,2010)
6690 254840160 : lu(k,2018) = - lu(k,1549) * lu(k,2010)
6691 254840160 : lu(k,2019) = lu(k,2019) - lu(k,1550) * lu(k,2010)
6692 254840160 : lu(k,2021) = - lu(k,1551) * lu(k,2010)
6693 254840160 : lu(k,2023) = lu(k,2023) - lu(k,1552) * lu(k,2010)
6694 254840160 : lu(k,2024) = lu(k,2024) - lu(k,1553) * lu(k,2010)
6695 254840160 : lu(k,2025) = lu(k,2025) - lu(k,1554) * lu(k,2010)
6696 254840160 : lu(k,2027) = - lu(k,1555) * lu(k,2010)
6697 254840160 : lu(k,2029) = lu(k,2029) - lu(k,1556) * lu(k,2010)
6698 254840160 : lu(k,2865) = lu(k,2865) - lu(k,1544) * lu(k,2863)
6699 254840160 : lu(k,2873) = lu(k,2873) - lu(k,1545) * lu(k,2863)
6700 254840160 : lu(k,2874) = - lu(k,1546) * lu(k,2863)
6701 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1547) * lu(k,2863)
6702 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1548) * lu(k,2863)
6703 254840160 : lu(k,2893) = lu(k,2893) - lu(k,1549) * lu(k,2863)
6704 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1550) * lu(k,2863)
6705 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1551) * lu(k,2863)
6706 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1552) * lu(k,2863)
6707 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1553) * lu(k,2863)
6708 254840160 : lu(k,2921) = lu(k,2921) - lu(k,1554) * lu(k,2863)
6709 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1555) * lu(k,2863)
6710 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1556) * lu(k,2863)
6711 254840160 : lu(k,3051) = lu(k,3051) - lu(k,1544) * lu(k,3049)
6712 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1545) * lu(k,3049)
6713 254840160 : lu(k,3062) = lu(k,3062) - lu(k,1546) * lu(k,3049)
6714 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1547) * lu(k,3049)
6715 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1548) * lu(k,3049)
6716 254840160 : lu(k,3083) = lu(k,3083) - lu(k,1549) * lu(k,3049)
6717 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1550) * lu(k,3049)
6718 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1551) * lu(k,3049)
6719 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1552) * lu(k,3049)
6720 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1553) * lu(k,3049)
6721 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1554) * lu(k,3049)
6722 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1555) * lu(k,3049)
6723 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1556) * lu(k,3049)
6724 254840160 : lu(k,3309) = lu(k,3309) - lu(k,1544) * lu(k,3306)
6725 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1545) * lu(k,3306)
6726 254840160 : lu(k,3321) = lu(k,3321) - lu(k,1546) * lu(k,3306)
6727 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1547) * lu(k,3306)
6728 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1548) * lu(k,3306)
6729 254840160 : lu(k,3342) = lu(k,3342) - lu(k,1549) * lu(k,3306)
6730 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1550) * lu(k,3306)
6731 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1551) * lu(k,3306)
6732 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1552) * lu(k,3306)
6733 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1553) * lu(k,3306)
6734 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1554) * lu(k,3306)
6735 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1555) * lu(k,3306)
6736 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1556) * lu(k,3306)
6737 254840160 : lu(k,3404) = lu(k,3404) - lu(k,1544) * lu(k,3402)
6738 254840160 : lu(k,3414) = lu(k,3414) - lu(k,1545) * lu(k,3402)
6739 254840160 : lu(k,3415) = lu(k,3415) - lu(k,1546) * lu(k,3402)
6740 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1547) * lu(k,3402)
6741 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1548) * lu(k,3402)
6742 254840160 : lu(k,3435) = lu(k,3435) - lu(k,1549) * lu(k,3402)
6743 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1550) * lu(k,3402)
6744 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1551) * lu(k,3402)
6745 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1552) * lu(k,3402)
6746 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1553) * lu(k,3402)
6747 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1554) * lu(k,3402)
6748 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1555) * lu(k,3402)
6749 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1556) * lu(k,3402)
6750 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1544) * lu(k,4029)
6751 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1545) * lu(k,4029)
6752 254840160 : lu(k,4045) = lu(k,4045) - lu(k,1546) * lu(k,4029)
6753 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1547) * lu(k,4029)
6754 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1548) * lu(k,4029)
6755 254840160 : lu(k,4065) = lu(k,4065) - lu(k,1549) * lu(k,4029)
6756 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1550) * lu(k,4029)
6757 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1551) * lu(k,4029)
6758 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1552) * lu(k,4029)
6759 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1553) * lu(k,4029)
6760 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1554) * lu(k,4029)
6761 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1555) * lu(k,4029)
6762 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1556) * lu(k,4029)
6763 254840160 : lu(k,1557) = 1._r8 / lu(k,1557)
6764 254840160 : lu(k,1558) = lu(k,1558) * lu(k,1557)
6765 254840160 : lu(k,1559) = lu(k,1559) * lu(k,1557)
6766 254840160 : lu(k,1560) = lu(k,1560) * lu(k,1557)
6767 254840160 : lu(k,1561) = lu(k,1561) * lu(k,1557)
6768 254840160 : lu(k,1690) = - lu(k,1558) * lu(k,1688)
6769 254840160 : lu(k,1694) = lu(k,1694) - lu(k,1559) * lu(k,1688)
6770 254840160 : lu(k,1695) = lu(k,1695) - lu(k,1560) * lu(k,1688)
6771 254840160 : lu(k,1696) = lu(k,1696) - lu(k,1561) * lu(k,1688)
6772 254840160 : lu(k,1703) = lu(k,1703) - lu(k,1558) * lu(k,1701)
6773 254840160 : lu(k,1707) = lu(k,1707) - lu(k,1559) * lu(k,1701)
6774 254840160 : lu(k,1708) = lu(k,1708) - lu(k,1560) * lu(k,1701)
6775 254840160 : lu(k,1709) = lu(k,1709) - lu(k,1561) * lu(k,1701)
6776 254840160 : lu(k,2297) = lu(k,2297) - lu(k,1558) * lu(k,2293)
6777 254840160 : lu(k,2309) = lu(k,2309) - lu(k,1559) * lu(k,2293)
6778 254840160 : lu(k,2312) = lu(k,2312) - lu(k,1560) * lu(k,2293)
6779 254840160 : lu(k,2313) = lu(k,2313) - lu(k,1561) * lu(k,2293)
6780 254840160 : lu(k,2321) = lu(k,2321) - lu(k,1558) * lu(k,2317)
6781 254840160 : lu(k,2329) = lu(k,2329) - lu(k,1559) * lu(k,2317)
6782 254840160 : lu(k,2331) = lu(k,2331) - lu(k,1560) * lu(k,2317)
6783 254840160 : lu(k,2332) = lu(k,2332) - lu(k,1561) * lu(k,2317)
6784 254840160 : lu(k,2379) = lu(k,2379) - lu(k,1558) * lu(k,2371)
6785 254840160 : lu(k,2393) = lu(k,2393) - lu(k,1559) * lu(k,2371)
6786 254840160 : lu(k,2396) = lu(k,2396) - lu(k,1560) * lu(k,2371)
6787 254840160 : lu(k,2397) = lu(k,2397) - lu(k,1561) * lu(k,2371)
6788 254840160 : lu(k,2407) = lu(k,2407) - lu(k,1558) * lu(k,2403)
6789 254840160 : lu(k,2422) = lu(k,2422) - lu(k,1559) * lu(k,2403)
6790 254840160 : lu(k,2425) = lu(k,2425) - lu(k,1560) * lu(k,2403)
6791 254840160 : lu(k,2426) = lu(k,2426) - lu(k,1561) * lu(k,2403)
6792 254840160 : lu(k,2440) = lu(k,2440) - lu(k,1558) * lu(k,2432)
6793 254840160 : lu(k,2454) = lu(k,2454) - lu(k,1559) * lu(k,2432)
6794 254840160 : lu(k,2457) = lu(k,2457) - lu(k,1560) * lu(k,2432)
6795 254840160 : lu(k,2458) = lu(k,2458) - lu(k,1561) * lu(k,2432)
6796 254840160 : lu(k,2470) = lu(k,2470) - lu(k,1558) * lu(k,2463)
6797 254840160 : lu(k,2485) = lu(k,2485) - lu(k,1559) * lu(k,2463)
6798 254840160 : lu(k,2488) = lu(k,2488) - lu(k,1560) * lu(k,2463)
6799 254840160 : lu(k,2489) = lu(k,2489) - lu(k,1561) * lu(k,2463)
6800 254840160 : lu(k,2504) = lu(k,2504) - lu(k,1558) * lu(k,2499)
6801 254840160 : lu(k,2519) = lu(k,2519) - lu(k,1559) * lu(k,2499)
6802 254840160 : lu(k,2522) = lu(k,2522) - lu(k,1560) * lu(k,2499)
6803 254840160 : lu(k,2523) = lu(k,2523) - lu(k,1561) * lu(k,2499)
6804 254840160 : lu(k,2535) = lu(k,2535) - lu(k,1558) * lu(k,2531)
6805 254840160 : lu(k,2548) = lu(k,2548) - lu(k,1559) * lu(k,2531)
6806 254840160 : lu(k,2551) = lu(k,2551) - lu(k,1560) * lu(k,2531)
6807 254840160 : lu(k,2552) = lu(k,2552) - lu(k,1561) * lu(k,2531)
6808 254840160 : lu(k,2568) = lu(k,2568) - lu(k,1558) * lu(k,2562)
6809 254840160 : lu(k,2584) = lu(k,2584) - lu(k,1559) * lu(k,2562)
6810 254840160 : lu(k,2587) = lu(k,2587) - lu(k,1560) * lu(k,2562)
6811 254840160 : lu(k,2588) = lu(k,2588) - lu(k,1561) * lu(k,2562)
6812 254840160 : lu(k,2628) = - lu(k,1558) * lu(k,2624)
6813 254840160 : lu(k,2640) = lu(k,2640) - lu(k,1559) * lu(k,2624)
6814 254840160 : lu(k,2642) = lu(k,2642) - lu(k,1560) * lu(k,2624)
6815 254840160 : lu(k,2645) = lu(k,2645) - lu(k,1561) * lu(k,2624)
6816 254840160 : lu(k,2653) = lu(k,2653) - lu(k,1558) * lu(k,2650)
6817 254840160 : lu(k,2665) = lu(k,2665) - lu(k,1559) * lu(k,2650)
6818 254840160 : lu(k,2668) = lu(k,2668) - lu(k,1560) * lu(k,2650)
6819 254840160 : lu(k,2669) = lu(k,2669) - lu(k,1561) * lu(k,2650)
6820 254840160 : lu(k,2675) = - lu(k,1558) * lu(k,2671)
6821 254840160 : lu(k,2687) = lu(k,2687) - lu(k,1559) * lu(k,2671)
6822 254840160 : lu(k,2690) = lu(k,2690) - lu(k,1560) * lu(k,2671)
6823 254840160 : lu(k,2691) = lu(k,2691) - lu(k,1561) * lu(k,2671)
6824 254840160 : lu(k,2732) = lu(k,2732) - lu(k,1558) * lu(k,2720)
6825 254840160 : lu(k,2754) = lu(k,2754) - lu(k,1559) * lu(k,2720)
6826 254840160 : lu(k,2757) = lu(k,2757) - lu(k,1560) * lu(k,2720)
6827 254840160 : lu(k,2760) = lu(k,2760) - lu(k,1561) * lu(k,2720)
6828 254840160 : lu(k,2778) = lu(k,2778) - lu(k,1558) * lu(k,2766)
6829 254840160 : lu(k,2800) = lu(k,2800) - lu(k,1559) * lu(k,2766)
6830 254840160 : lu(k,2803) = lu(k,2803) - lu(k,1560) * lu(k,2766)
6831 254840160 : lu(k,2806) = lu(k,2806) - lu(k,1561) * lu(k,2766)
6832 254840160 : lu(k,2825) = lu(k,2825) - lu(k,1558) * lu(k,2813)
6833 254840160 : lu(k,2847) = lu(k,2847) - lu(k,1559) * lu(k,2813)
6834 254840160 : lu(k,2850) = lu(k,2850) - lu(k,1560) * lu(k,2813)
6835 254840160 : lu(k,2853) = lu(k,2853) - lu(k,1561) * lu(k,2813)
6836 254840160 : lu(k,2897) = lu(k,2897) - lu(k,1558) * lu(k,2864)
6837 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1559) * lu(k,2864)
6838 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1560) * lu(k,2864)
6839 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1561) * lu(k,2864)
6840 254840160 : lu(k,3087) = lu(k,3087) - lu(k,1558) * lu(k,3050)
6841 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1559) * lu(k,3050)
6842 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1560) * lu(k,3050)
6843 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1561) * lu(k,3050)
6844 254840160 : lu(k,3346) = lu(k,3346) - lu(k,1558) * lu(k,3307)
6845 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1559) * lu(k,3307)
6846 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1560) * lu(k,3307)
6847 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1561) * lu(k,3307)
6848 254840160 : lu(k,3439) = lu(k,3439) - lu(k,1558) * lu(k,3403)
6849 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1559) * lu(k,3403)
6850 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1560) * lu(k,3403)
6851 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1561) * lu(k,3403)
6852 254840160 : lu(k,3583) = lu(k,3583) - lu(k,1558) * lu(k,3549)
6853 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1559) * lu(k,3549)
6854 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1560) * lu(k,3549)
6855 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1561) * lu(k,3549)
6856 254840160 : lu(k,4069) = lu(k,4069) - lu(k,1558) * lu(k,4030)
6857 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1559) * lu(k,4030)
6858 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1560) * lu(k,4030)
6859 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1561) * lu(k,4030)
6860 254840160 : lu(k,1572) = 1._r8 / lu(k,1572)
6861 254840160 : lu(k,1573) = lu(k,1573) * lu(k,1572)
6862 254840160 : lu(k,1574) = lu(k,1574) * lu(k,1572)
6863 254840160 : lu(k,1575) = lu(k,1575) * lu(k,1572)
6864 254840160 : lu(k,1576) = lu(k,1576) * lu(k,1572)
6865 254840160 : lu(k,1577) = lu(k,1577) * lu(k,1572)
6866 254840160 : lu(k,1578) = lu(k,1578) * lu(k,1572)
6867 254840160 : lu(k,1579) = lu(k,1579) * lu(k,1572)
6868 254840160 : lu(k,1580) = lu(k,1580) * lu(k,1572)
6869 254840160 : lu(k,1581) = lu(k,1581) * lu(k,1572)
6870 254840160 : lu(k,1582) = lu(k,1582) * lu(k,1572)
6871 254840160 : lu(k,1583) = lu(k,1583) * lu(k,1572)
6872 254840160 : lu(k,1584) = lu(k,1584) * lu(k,1572)
6873 254840160 : lu(k,1585) = lu(k,1585) * lu(k,1572)
6874 254840160 : lu(k,1586) = lu(k,1586) * lu(k,1572)
6875 254840160 : lu(k,1587) = lu(k,1587) * lu(k,1572)
6876 254840160 : lu(k,1588) = lu(k,1588) * lu(k,1572)
6877 254840160 : lu(k,1589) = lu(k,1589) * lu(k,1572)
6878 254840160 : lu(k,1590) = lu(k,1590) * lu(k,1572)
6879 254840160 : lu(k,1591) = lu(k,1591) * lu(k,1572)
6880 254840160 : lu(k,1592) = lu(k,1592) * lu(k,1572)
6881 254840160 : lu(k,1593) = lu(k,1593) * lu(k,1572)
6882 254840160 : lu(k,1594) = lu(k,1594) * lu(k,1572)
6883 254840160 : lu(k,1595) = lu(k,1595) * lu(k,1572)
6884 254840160 : lu(k,1596) = lu(k,1596) * lu(k,1572)
6885 254840160 : lu(k,2165) = lu(k,2165) - lu(k,1573) * lu(k,2164)
6886 254840160 : lu(k,2166) = lu(k,2166) - lu(k,1574) * lu(k,2164)
6887 254840160 : lu(k,2167) = lu(k,2167) - lu(k,1575) * lu(k,2164)
6888 254840160 : lu(k,2168) = lu(k,2168) - lu(k,1576) * lu(k,2164)
6889 254840160 : lu(k,2169) = lu(k,2169) - lu(k,1577) * lu(k,2164)
6890 254840160 : lu(k,2170) = lu(k,2170) - lu(k,1578) * lu(k,2164)
6891 254840160 : lu(k,2171) = lu(k,2171) - lu(k,1579) * lu(k,2164)
6892 254840160 : lu(k,2172) = lu(k,2172) - lu(k,1580) * lu(k,2164)
6893 254840160 : lu(k,2173) = lu(k,2173) - lu(k,1581) * lu(k,2164)
6894 254840160 : lu(k,2176) = lu(k,2176) - lu(k,1582) * lu(k,2164)
6895 254840160 : lu(k,2179) = lu(k,2179) - lu(k,1583) * lu(k,2164)
6896 254840160 : lu(k,2180) = lu(k,2180) - lu(k,1584) * lu(k,2164)
6897 254840160 : lu(k,2183) = lu(k,2183) - lu(k,1585) * lu(k,2164)
6898 254840160 : lu(k,2184) = lu(k,2184) - lu(k,1586) * lu(k,2164)
6899 254840160 : lu(k,2185) = lu(k,2185) - lu(k,1587) * lu(k,2164)
6900 254840160 : lu(k,2186) = - lu(k,1588) * lu(k,2164)
6901 254840160 : lu(k,2187) = - lu(k,1589) * lu(k,2164)
6902 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1590) * lu(k,2164)
6903 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1591) * lu(k,2164)
6904 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1592) * lu(k,2164)
6905 254840160 : lu(k,2193) = - lu(k,1593) * lu(k,2164)
6906 254840160 : lu(k,2194) = - lu(k,1594) * lu(k,2164)
6907 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1595) * lu(k,2164)
6908 254840160 : lu(k,2196) = lu(k,2196) - lu(k,1596) * lu(k,2164)
6909 254840160 : lu(k,3309) = lu(k,3309) - lu(k,1573) * lu(k,3308)
6910 254840160 : lu(k,3311) = lu(k,3311) - lu(k,1574) * lu(k,3308)
6911 254840160 : lu(k,3312) = lu(k,3312) - lu(k,1575) * lu(k,3308)
6912 254840160 : lu(k,3316) = lu(k,3316) - lu(k,1576) * lu(k,3308)
6913 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1577) * lu(k,3308)
6914 254840160 : lu(k,3321) = lu(k,3321) - lu(k,1578) * lu(k,3308)
6915 254840160 : lu(k,3322) = lu(k,3322) - lu(k,1579) * lu(k,3308)
6916 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1580) * lu(k,3308)
6917 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1581) * lu(k,3308)
6918 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1582) * lu(k,3308)
6919 254840160 : lu(k,3336) = lu(k,3336) - lu(k,1583) * lu(k,3308)
6920 254840160 : lu(k,3337) = lu(k,3337) - lu(k,1584) * lu(k,3308)
6921 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1585) * lu(k,3308)
6922 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1586) * lu(k,3308)
6923 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1587) * lu(k,3308)
6924 254840160 : lu(k,3366) = lu(k,3366) - lu(k,1588) * lu(k,3308)
6925 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1589) * lu(k,3308)
6926 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1590) * lu(k,3308)
6927 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1591) * lu(k,3308)
6928 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1592) * lu(k,3308)
6929 254840160 : lu(k,3375) = lu(k,3375) - lu(k,1593) * lu(k,3308)
6930 254840160 : lu(k,3377) = lu(k,3377) - lu(k,1594) * lu(k,3308)
6931 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1595) * lu(k,3308)
6932 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1596) * lu(k,3308)
6933 254840160 : lu(k,3706) = lu(k,3706) - lu(k,1573) * lu(k,3704)
6934 254840160 : lu(k,3707) = - lu(k,1574) * lu(k,3704)
6935 254840160 : lu(k,3708) = - lu(k,1575) * lu(k,3704)
6936 254840160 : lu(k,3709) = lu(k,3709) - lu(k,1576) * lu(k,3704)
6937 254840160 : lu(k,3713) = lu(k,3713) - lu(k,1577) * lu(k,3704)
6938 254840160 : lu(k,3714) = - lu(k,1578) * lu(k,3704)
6939 254840160 : lu(k,3715) = - lu(k,1579) * lu(k,3704)
6940 254840160 : lu(k,3720) = - lu(k,1580) * lu(k,3704)
6941 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1581) * lu(k,3704)
6942 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1582) * lu(k,3704)
6943 254840160 : lu(k,3729) = lu(k,3729) - lu(k,1583) * lu(k,3704)
6944 254840160 : lu(k,3730) = lu(k,3730) - lu(k,1584) * lu(k,3704)
6945 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1585) * lu(k,3704)
6946 254840160 : lu(k,3755) = lu(k,3755) - lu(k,1586) * lu(k,3704)
6947 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1587) * lu(k,3704)
6948 254840160 : lu(k,3757) = lu(k,3757) - lu(k,1588) * lu(k,3704)
6949 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1589) * lu(k,3704)
6950 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1590) * lu(k,3704)
6951 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1591) * lu(k,3704)
6952 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1592) * lu(k,3704)
6953 254840160 : lu(k,3766) = lu(k,3766) - lu(k,1593) * lu(k,3704)
6954 254840160 : lu(k,3768) = lu(k,3768) - lu(k,1594) * lu(k,3704)
6955 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1595) * lu(k,3704)
6956 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1596) * lu(k,3704)
6957 254840160 : lu(k,4033) = lu(k,4033) - lu(k,1573) * lu(k,4031)
6958 254840160 : lu(k,4035) = lu(k,4035) - lu(k,1574) * lu(k,4031)
6959 254840160 : lu(k,4036) = lu(k,4036) - lu(k,1575) * lu(k,4031)
6960 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1576) * lu(k,4031)
6961 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1577) * lu(k,4031)
6962 254840160 : lu(k,4045) = lu(k,4045) - lu(k,1578) * lu(k,4031)
6963 254840160 : lu(k,4046) = lu(k,4046) - lu(k,1579) * lu(k,4031)
6964 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1580) * lu(k,4031)
6965 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1581) * lu(k,4031)
6966 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1582) * lu(k,4031)
6967 254840160 : lu(k,4060) = lu(k,4060) - lu(k,1583) * lu(k,4031)
6968 254840160 : lu(k,4061) = lu(k,4061) - lu(k,1584) * lu(k,4031)
6969 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1585) * lu(k,4031)
6970 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1586) * lu(k,4031)
6971 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1587) * lu(k,4031)
6972 254840160 : lu(k,4089) = lu(k,4089) - lu(k,1588) * lu(k,4031)
6973 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1589) * lu(k,4031)
6974 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1590) * lu(k,4031)
6975 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1591) * lu(k,4031)
6976 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1592) * lu(k,4031)
6977 254840160 : lu(k,4098) = lu(k,4098) - lu(k,1593) * lu(k,4031)
6978 254840160 : lu(k,4100) = lu(k,4100) - lu(k,1594) * lu(k,4031)
6979 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1595) * lu(k,4031)
6980 263009123 : lu(k,4102) = lu(k,4102) - lu(k,1596) * lu(k,4031)
6981 : end do
6982 8168963 : end subroutine lu_fac35
6983 8168963 : subroutine lu_fac36( avec_len, lu )
6984 : use chem_mods, only : nzcnt
6985 : use shr_kind_mod, only : r8 => shr_kind_r8
6986 : implicit none
6987 : !-----------------------------------------------------------------------
6988 : ! ... dummy args
6989 : !-----------------------------------------------------------------------
6990 : integer, intent(in) :: avec_len
6991 : real(r8), intent(inout) :: lu(veclen,nzcnt)
6992 : !-----------------------------------------------------------------------
6993 : ! ... local variables
6994 : !-----------------------------------------------------------------------
6995 : integer :: k
6996 263009123 : do k = 1,avec_len
6997 254840160 : lu(k,1600) = 1._r8 / lu(k,1600)
6998 254840160 : lu(k,1601) = lu(k,1601) * lu(k,1600)
6999 254840160 : lu(k,1602) = lu(k,1602) * lu(k,1600)
7000 254840160 : lu(k,1603) = lu(k,1603) * lu(k,1600)
7001 254840160 : lu(k,1604) = lu(k,1604) * lu(k,1600)
7002 254840160 : lu(k,1605) = lu(k,1605) * lu(k,1600)
7003 254840160 : lu(k,1606) = lu(k,1606) * lu(k,1600)
7004 254840160 : lu(k,1607) = lu(k,1607) * lu(k,1600)
7005 254840160 : lu(k,1608) = lu(k,1608) * lu(k,1600)
7006 254840160 : lu(k,1609) = lu(k,1609) * lu(k,1600)
7007 254840160 : lu(k,1610) = lu(k,1610) * lu(k,1600)
7008 254840160 : lu(k,1611) = lu(k,1611) * lu(k,1600)
7009 254840160 : lu(k,1612) = lu(k,1612) * lu(k,1600)
7010 254840160 : lu(k,3155) = lu(k,3155) - lu(k,1601) * lu(k,3152)
7011 254840160 : lu(k,3157) = lu(k,3157) - lu(k,1602) * lu(k,3152)
7012 254840160 : lu(k,3159) = lu(k,3159) - lu(k,1603) * lu(k,3152)
7013 254840160 : lu(k,3161) = lu(k,3161) - lu(k,1604) * lu(k,3152)
7014 254840160 : lu(k,3163) = lu(k,3163) - lu(k,1605) * lu(k,3152)
7015 254840160 : lu(k,3165) = lu(k,3165) - lu(k,1606) * lu(k,3152)
7016 254840160 : lu(k,3166) = lu(k,3166) - lu(k,1607) * lu(k,3152)
7017 254840160 : lu(k,3168) = lu(k,3168) - lu(k,1608) * lu(k,3152)
7018 254840160 : lu(k,3169) = lu(k,3169) - lu(k,1609) * lu(k,3152)
7019 254840160 : lu(k,3171) = lu(k,3171) - lu(k,1610) * lu(k,3152)
7020 254840160 : lu(k,3172) = lu(k,3172) - lu(k,1611) * lu(k,3152)
7021 254840160 : lu(k,3173) = lu(k,3173) - lu(k,1612) * lu(k,3152)
7022 254840160 : lu(k,3479) = lu(k,3479) - lu(k,1601) * lu(k,3478)
7023 254840160 : lu(k,3480) = - lu(k,1602) * lu(k,3478)
7024 254840160 : lu(k,3482) = lu(k,3482) - lu(k,1603) * lu(k,3478)
7025 254840160 : lu(k,3484) = lu(k,3484) - lu(k,1604) * lu(k,3478)
7026 254840160 : lu(k,3486) = lu(k,3486) - lu(k,1605) * lu(k,3478)
7027 254840160 : lu(k,3488) = lu(k,3488) - lu(k,1606) * lu(k,3478)
7028 254840160 : lu(k,3489) = lu(k,3489) - lu(k,1607) * lu(k,3478)
7029 254840160 : lu(k,3491) = lu(k,3491) - lu(k,1608) * lu(k,3478)
7030 254840160 : lu(k,3492) = - lu(k,1609) * lu(k,3478)
7031 254840160 : lu(k,3494) = lu(k,3494) - lu(k,1610) * lu(k,3478)
7032 254840160 : lu(k,3495) = lu(k,3495) - lu(k,1611) * lu(k,3478)
7033 254840160 : lu(k,3496) = lu(k,3496) - lu(k,1612) * lu(k,3478)
7034 254840160 : lu(k,3505) = lu(k,3505) - lu(k,1601) * lu(k,3504)
7035 254840160 : lu(k,3506) = - lu(k,1602) * lu(k,3504)
7036 254840160 : lu(k,3508) = lu(k,3508) - lu(k,1603) * lu(k,3504)
7037 254840160 : lu(k,3510) = lu(k,3510) - lu(k,1604) * lu(k,3504)
7038 254840160 : lu(k,3512) = lu(k,3512) - lu(k,1605) * lu(k,3504)
7039 254840160 : lu(k,3514) = lu(k,3514) - lu(k,1606) * lu(k,3504)
7040 254840160 : lu(k,3515) = lu(k,3515) - lu(k,1607) * lu(k,3504)
7041 254840160 : lu(k,3517) = lu(k,3517) - lu(k,1608) * lu(k,3504)
7042 254840160 : lu(k,3518) = - lu(k,1609) * lu(k,3504)
7043 254840160 : lu(k,3520) = lu(k,3520) - lu(k,1610) * lu(k,3504)
7044 254840160 : lu(k,3521) = lu(k,3521) - lu(k,1611) * lu(k,3504)
7045 254840160 : lu(k,3522) = lu(k,3522) - lu(k,1612) * lu(k,3504)
7046 254840160 : lu(k,3575) = - lu(k,1601) * lu(k,3550)
7047 254840160 : lu(k,3600) = - lu(k,1602) * lu(k,3550)
7048 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1603) * lu(k,3550)
7049 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1604) * lu(k,3550)
7050 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1605) * lu(k,3550)
7051 254840160 : lu(k,3608) = - lu(k,1606) * lu(k,3550)
7052 254840160 : lu(k,3609) = - lu(k,1607) * lu(k,3550)
7053 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1608) * lu(k,3550)
7054 254840160 : lu(k,3612) = lu(k,3612) - lu(k,1609) * lu(k,3550)
7055 254840160 : lu(k,3614) = lu(k,3614) - lu(k,1610) * lu(k,3550)
7056 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1611) * lu(k,3550)
7057 254840160 : lu(k,3616) = lu(k,3616) - lu(k,1612) * lu(k,3550)
7058 254840160 : lu(k,3645) = lu(k,3645) - lu(k,1601) * lu(k,3639)
7059 254840160 : lu(k,3652) = lu(k,3652) - lu(k,1602) * lu(k,3639)
7060 254840160 : lu(k,3654) = lu(k,3654) - lu(k,1603) * lu(k,3639)
7061 254840160 : lu(k,3656) = lu(k,3656) - lu(k,1604) * lu(k,3639)
7062 254840160 : lu(k,3658) = lu(k,3658) - lu(k,1605) * lu(k,3639)
7063 254840160 : lu(k,3660) = lu(k,3660) - lu(k,1606) * lu(k,3639)
7064 254840160 : lu(k,3661) = lu(k,3661) - lu(k,1607) * lu(k,3639)
7065 254840160 : lu(k,3663) = lu(k,3663) - lu(k,1608) * lu(k,3639)
7066 254840160 : lu(k,3664) = lu(k,3664) - lu(k,1609) * lu(k,3639)
7067 254840160 : lu(k,3666) = lu(k,3666) - lu(k,1610) * lu(k,3639)
7068 254840160 : lu(k,3667) = lu(k,3667) - lu(k,1611) * lu(k,3639)
7069 254840160 : lu(k,3668) = lu(k,3668) - lu(k,1612) * lu(k,3639)
7070 254840160 : lu(k,3731) = lu(k,3731) - lu(k,1601) * lu(k,3705)
7071 254840160 : lu(k,3754) = lu(k,3754) - lu(k,1602) * lu(k,3705)
7072 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1603) * lu(k,3705)
7073 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1604) * lu(k,3705)
7074 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1605) * lu(k,3705)
7075 254840160 : lu(k,3762) = lu(k,3762) - lu(k,1606) * lu(k,3705)
7076 254840160 : lu(k,3763) = lu(k,3763) - lu(k,1607) * lu(k,3705)
7077 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1608) * lu(k,3705)
7078 254840160 : lu(k,3766) = lu(k,3766) - lu(k,1609) * lu(k,3705)
7079 254840160 : lu(k,3768) = lu(k,3768) - lu(k,1610) * lu(k,3705)
7080 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1611) * lu(k,3705)
7081 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1612) * lu(k,3705)
7082 254840160 : lu(k,4062) = lu(k,4062) - lu(k,1601) * lu(k,4032)
7083 254840160 : lu(k,4086) = lu(k,4086) - lu(k,1602) * lu(k,4032)
7084 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1603) * lu(k,4032)
7085 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1604) * lu(k,4032)
7086 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1605) * lu(k,4032)
7087 254840160 : lu(k,4094) = lu(k,4094) - lu(k,1606) * lu(k,4032)
7088 254840160 : lu(k,4095) = lu(k,4095) - lu(k,1607) * lu(k,4032)
7089 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1608) * lu(k,4032)
7090 254840160 : lu(k,4098) = lu(k,4098) - lu(k,1609) * lu(k,4032)
7091 254840160 : lu(k,4100) = lu(k,4100) - lu(k,1610) * lu(k,4032)
7092 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1611) * lu(k,4032)
7093 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1612) * lu(k,4032)
7094 254840160 : lu(k,4110) = - lu(k,1601) * lu(k,4108)
7095 254840160 : lu(k,4112) = lu(k,4112) - lu(k,1602) * lu(k,4108)
7096 254840160 : lu(k,4114) = - lu(k,1603) * lu(k,4108)
7097 254840160 : lu(k,4116) = lu(k,4116) - lu(k,1604) * lu(k,4108)
7098 254840160 : lu(k,4118) = lu(k,4118) - lu(k,1605) * lu(k,4108)
7099 254840160 : lu(k,4120) = - lu(k,1606) * lu(k,4108)
7100 254840160 : lu(k,4121) = - lu(k,1607) * lu(k,4108)
7101 254840160 : lu(k,4123) = - lu(k,1608) * lu(k,4108)
7102 254840160 : lu(k,4124) = - lu(k,1609) * lu(k,4108)
7103 254840160 : lu(k,4126) = - lu(k,1610) * lu(k,4108)
7104 254840160 : lu(k,4127) = lu(k,4127) - lu(k,1611) * lu(k,4108)
7105 254840160 : lu(k,4128) = lu(k,4128) - lu(k,1612) * lu(k,4108)
7106 254840160 : lu(k,1613) = 1._r8 / lu(k,1613)
7107 254840160 : lu(k,1614) = lu(k,1614) * lu(k,1613)
7108 254840160 : lu(k,1615) = lu(k,1615) * lu(k,1613)
7109 254840160 : lu(k,1622) = lu(k,1622) - lu(k,1614) * lu(k,1619)
7110 254840160 : lu(k,1625) = - lu(k,1615) * lu(k,1619)
7111 254840160 : lu(k,1647) = lu(k,1647) - lu(k,1614) * lu(k,1639)
7112 254840160 : lu(k,1651) = - lu(k,1615) * lu(k,1639)
7113 254840160 : lu(k,1665) = lu(k,1665) - lu(k,1614) * lu(k,1658)
7114 254840160 : lu(k,1667) = - lu(k,1615) * lu(k,1658)
7115 254840160 : lu(k,1713) = lu(k,1713) - lu(k,1614) * lu(k,1711)
7116 254840160 : lu(k,1714) = - lu(k,1615) * lu(k,1711)
7117 254840160 : lu(k,1738) = lu(k,1738) - lu(k,1614) * lu(k,1730)
7118 254840160 : lu(k,1742) = - lu(k,1615) * lu(k,1730)
7119 254840160 : lu(k,1760) = lu(k,1760) - lu(k,1614) * lu(k,1752)
7120 254840160 : lu(k,1764) = - lu(k,1615) * lu(k,1752)
7121 254840160 : lu(k,1796) = lu(k,1796) - lu(k,1614) * lu(k,1789)
7122 254840160 : lu(k,1798) = - lu(k,1615) * lu(k,1789)
7123 254840160 : lu(k,1823) = lu(k,1823) - lu(k,1614) * lu(k,1813)
7124 254840160 : lu(k,1828) = - lu(k,1615) * lu(k,1813)
7125 254840160 : lu(k,1855) = lu(k,1855) - lu(k,1614) * lu(k,1845)
7126 254840160 : lu(k,1859) = - lu(k,1615) * lu(k,1845)
7127 254840160 : lu(k,1875) = lu(k,1875) - lu(k,1614) * lu(k,1868)
7128 254840160 : lu(k,1878) = - lu(k,1615) * lu(k,1868)
7129 254840160 : lu(k,1903) = lu(k,1903) - lu(k,1614) * lu(k,1891)
7130 254840160 : lu(k,1906) = - lu(k,1615) * lu(k,1891)
7131 254840160 : lu(k,1918) = lu(k,1918) - lu(k,1614) * lu(k,1914)
7132 254840160 : lu(k,1921) = - lu(k,1615) * lu(k,1914)
7133 254840160 : lu(k,1957) = lu(k,1957) - lu(k,1614) * lu(k,1941)
7134 254840160 : lu(k,1962) = - lu(k,1615) * lu(k,1941)
7135 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1614) * lu(k,1978)
7136 254840160 : lu(k,2001) = - lu(k,1615) * lu(k,1978)
7137 254840160 : lu(k,2017) = lu(k,2017) - lu(k,1614) * lu(k,2011)
7138 254840160 : lu(k,2022) = - lu(k,1615) * lu(k,2011)
7139 254840160 : lu(k,2042) = lu(k,2042) - lu(k,1614) * lu(k,2036)
7140 254840160 : lu(k,2047) = - lu(k,1615) * lu(k,2036)
7141 254840160 : lu(k,2057) = lu(k,2057) - lu(k,1614) * lu(k,2056)
7142 254840160 : lu(k,2058) = - lu(k,1615) * lu(k,2056)
7143 254840160 : lu(k,2077) = lu(k,2077) - lu(k,1614) * lu(k,2068)
7144 254840160 : lu(k,2084) = lu(k,2084) - lu(k,1615) * lu(k,2068)
7145 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1614) * lu(k,2100)
7146 254840160 : lu(k,2116) = lu(k,2116) - lu(k,1615) * lu(k,2100)
7147 254840160 : lu(k,2139) = lu(k,2139) - lu(k,1614) * lu(k,2130)
7148 254840160 : lu(k,2145) = lu(k,2145) - lu(k,1615) * lu(k,2130)
7149 254840160 : lu(k,2176) = lu(k,2176) - lu(k,1614) * lu(k,2165)
7150 254840160 : lu(k,2187) = lu(k,2187) - lu(k,1615) * lu(k,2165)
7151 254840160 : lu(k,2212) = - lu(k,1614) * lu(k,2211)
7152 254840160 : lu(k,2223) = - lu(k,1615) * lu(k,2211)
7153 254840160 : lu(k,2234) = - lu(k,1614) * lu(k,2232)
7154 254840160 : lu(k,2247) = - lu(k,1615) * lu(k,2232)
7155 254840160 : lu(k,2258) = lu(k,2258) - lu(k,1614) * lu(k,2256)
7156 254840160 : lu(k,2263) = lu(k,2263) - lu(k,1615) * lu(k,2256)
7157 254840160 : lu(k,2295) = - lu(k,1614) * lu(k,2294)
7158 254840160 : lu(k,2307) = - lu(k,1615) * lu(k,2294)
7159 254840160 : lu(k,2337) = - lu(k,1614) * lu(k,2334)
7160 254840160 : lu(k,2351) = - lu(k,1615) * lu(k,2334)
7161 254840160 : lu(k,2376) = - lu(k,1614) * lu(k,2372)
7162 254840160 : lu(k,2391) = - lu(k,1615) * lu(k,2372)
7163 254840160 : lu(k,2405) = - lu(k,1614) * lu(k,2404)
7164 254840160 : lu(k,2420) = - lu(k,1615) * lu(k,2404)
7165 254840160 : lu(k,2437) = - lu(k,1614) * lu(k,2433)
7166 254840160 : lu(k,2452) = - lu(k,1615) * lu(k,2433)
7167 254840160 : lu(k,2467) = - lu(k,1614) * lu(k,2464)
7168 254840160 : lu(k,2483) = - lu(k,1615) * lu(k,2464)
7169 254840160 : lu(k,2503) = - lu(k,1614) * lu(k,2500)
7170 254840160 : lu(k,2517) = - lu(k,1615) * lu(k,2500)
7171 254840160 : lu(k,2534) = - lu(k,1614) * lu(k,2532)
7172 254840160 : lu(k,2546) = - lu(k,1615) * lu(k,2532)
7173 254840160 : lu(k,2566) = - lu(k,1614) * lu(k,2563)
7174 254840160 : lu(k,2582) = - lu(k,1615) * lu(k,2563)
7175 254840160 : lu(k,2597) = - lu(k,1614) * lu(k,2594)
7176 254840160 : lu(k,2610) = lu(k,2610) - lu(k,1615) * lu(k,2594)
7177 254840160 : lu(k,2627) = - lu(k,1614) * lu(k,2625)
7178 254840160 : lu(k,2638) = lu(k,2638) - lu(k,1615) * lu(k,2625)
7179 254840160 : lu(k,2652) = lu(k,2652) - lu(k,1614) * lu(k,2651)
7180 254840160 : lu(k,2663) = - lu(k,1615) * lu(k,2651)
7181 254840160 : lu(k,2674) = lu(k,2674) - lu(k,1614) * lu(k,2672)
7182 254840160 : lu(k,2685) = - lu(k,1615) * lu(k,2672)
7183 254840160 : lu(k,2695) = - lu(k,1614) * lu(k,2694)
7184 254840160 : lu(k,2708) = - lu(k,1615) * lu(k,2694)
7185 254840160 : lu(k,2725) = lu(k,2725) - lu(k,1614) * lu(k,2721)
7186 254840160 : lu(k,2752) = - lu(k,1615) * lu(k,2721)
7187 254840160 : lu(k,2771) = lu(k,2771) - lu(k,1614) * lu(k,2767)
7188 254840160 : lu(k,2798) = - lu(k,1615) * lu(k,2767)
7189 254840160 : lu(k,2818) = lu(k,2818) - lu(k,1614) * lu(k,2814)
7190 254840160 : lu(k,2845) = - lu(k,1615) * lu(k,2814)
7191 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1614) * lu(k,2865)
7192 254840160 : lu(k,2918) = - lu(k,1615) * lu(k,2865)
7193 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1614) * lu(k,3051)
7194 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1615) * lu(k,3051)
7195 254840160 : lu(k,3180) = lu(k,3180) - lu(k,1614) * lu(k,3178)
7196 254840160 : lu(k,3187) = lu(k,3187) - lu(k,1615) * lu(k,3178)
7197 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1614) * lu(k,3309)
7198 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1615) * lu(k,3309)
7199 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1614) * lu(k,3404)
7200 254840160 : lu(k,3460) = - lu(k,1615) * lu(k,3404)
7201 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1614) * lu(k,3551)
7202 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1615) * lu(k,3551)
7203 254840160 : lu(k,3644) = lu(k,3644) - lu(k,1614) * lu(k,3640)
7204 254840160 : lu(k,3656) = lu(k,3656) - lu(k,1615) * lu(k,3640)
7205 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1614) * lu(k,3706)
7206 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1615) * lu(k,3706)
7207 254840160 : lu(k,3832) = lu(k,3832) - lu(k,1614) * lu(k,3829)
7208 254840160 : lu(k,3840) = lu(k,3840) - lu(k,1615) * lu(k,3829)
7209 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1614) * lu(k,4033)
7210 263009123 : lu(k,4090) = lu(k,4090) - lu(k,1615) * lu(k,4033)
7211 : end do
7212 8168963 : end subroutine lu_fac36
7213 8168963 : subroutine lu_fac37( avec_len, lu )
7214 : use chem_mods, only : nzcnt
7215 : use shr_kind_mod, only : r8 => shr_kind_r8
7216 : implicit none
7217 : !-----------------------------------------------------------------------
7218 : ! ... dummy args
7219 : !-----------------------------------------------------------------------
7220 : integer, intent(in) :: avec_len
7221 : real(r8), intent(inout) :: lu(veclen,nzcnt)
7222 : !-----------------------------------------------------------------------
7223 : ! ... local variables
7224 : !-----------------------------------------------------------------------
7225 : integer :: k
7226 263009123 : do k = 1,avec_len
7227 254840160 : lu(k,1620) = 1._r8 / lu(k,1620)
7228 254840160 : lu(k,1621) = lu(k,1621) * lu(k,1620)
7229 254840160 : lu(k,1622) = lu(k,1622) * lu(k,1620)
7230 254840160 : lu(k,1623) = lu(k,1623) * lu(k,1620)
7231 254840160 : lu(k,1624) = lu(k,1624) * lu(k,1620)
7232 254840160 : lu(k,1625) = lu(k,1625) * lu(k,1620)
7233 254840160 : lu(k,1626) = lu(k,1626) * lu(k,1620)
7234 254840160 : lu(k,1627) = lu(k,1627) * lu(k,1620)
7235 254840160 : lu(k,1628) = lu(k,1628) * lu(k,1620)
7236 254840160 : lu(k,1629) = lu(k,1629) * lu(k,1620)
7237 254840160 : lu(k,1630) = lu(k,1630) * lu(k,1620)
7238 254840160 : lu(k,1631) = lu(k,1631) * lu(k,1620)
7239 254840160 : lu(k,1632) = lu(k,1632) * lu(k,1620)
7240 254840160 : lu(k,1633) = lu(k,1633) * lu(k,1620)
7241 254840160 : lu(k,2013) = lu(k,2013) - lu(k,1621) * lu(k,2012)
7242 254840160 : lu(k,2017) = lu(k,2017) - lu(k,1622) * lu(k,2012)
7243 254840160 : lu(k,2019) = lu(k,2019) - lu(k,1623) * lu(k,2012)
7244 254840160 : lu(k,2021) = lu(k,2021) - lu(k,1624) * lu(k,2012)
7245 254840160 : lu(k,2022) = lu(k,2022) - lu(k,1625) * lu(k,2012)
7246 254840160 : lu(k,2023) = lu(k,2023) - lu(k,1626) * lu(k,2012)
7247 254840160 : lu(k,2024) = lu(k,2024) - lu(k,1627) * lu(k,2012)
7248 254840160 : lu(k,2025) = lu(k,2025) - lu(k,1628) * lu(k,2012)
7249 254840160 : lu(k,2026) = - lu(k,1629) * lu(k,2012)
7250 254840160 : lu(k,2027) = lu(k,2027) - lu(k,1630) * lu(k,2012)
7251 254840160 : lu(k,2028) = lu(k,2028) - lu(k,1631) * lu(k,2012)
7252 254840160 : lu(k,2029) = lu(k,2029) - lu(k,1632) * lu(k,2012)
7253 254840160 : lu(k,2030) = lu(k,2030) - lu(k,1633) * lu(k,2012)
7254 254840160 : lu(k,2873) = lu(k,2873) - lu(k,1621) * lu(k,2866)
7255 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1622) * lu(k,2866)
7256 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1623) * lu(k,2866)
7257 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1624) * lu(k,2866)
7258 254840160 : lu(k,2918) = lu(k,2918) - lu(k,1625) * lu(k,2866)
7259 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1626) * lu(k,2866)
7260 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1627) * lu(k,2866)
7261 254840160 : lu(k,2921) = lu(k,2921) - lu(k,1628) * lu(k,2866)
7262 254840160 : lu(k,2922) = lu(k,2922) - lu(k,1629) * lu(k,2866)
7263 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1630) * lu(k,2866)
7264 254840160 : lu(k,2924) = lu(k,2924) - lu(k,1631) * lu(k,2866)
7265 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1632) * lu(k,2866)
7266 254840160 : lu(k,2928) = lu(k,2928) - lu(k,1633) * lu(k,2866)
7267 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1621) * lu(k,3052)
7268 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1622) * lu(k,3052)
7269 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1623) * lu(k,3052)
7270 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1624) * lu(k,3052)
7271 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1625) * lu(k,3052)
7272 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1626) * lu(k,3052)
7273 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1627) * lu(k,3052)
7274 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1628) * lu(k,3052)
7275 254840160 : lu(k,3114) = lu(k,3114) - lu(k,1629) * lu(k,3052)
7276 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1630) * lu(k,3052)
7277 254840160 : lu(k,3116) = lu(k,3116) - lu(k,1631) * lu(k,3052)
7278 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1632) * lu(k,3052)
7279 254840160 : lu(k,3120) = lu(k,3120) - lu(k,1633) * lu(k,3052)
7280 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1621) * lu(k,3310)
7281 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1622) * lu(k,3310)
7282 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1623) * lu(k,3310)
7283 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1624) * lu(k,3310)
7284 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1625) * lu(k,3310)
7285 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1626) * lu(k,3310)
7286 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1627) * lu(k,3310)
7287 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1628) * lu(k,3310)
7288 254840160 : lu(k,3373) = lu(k,3373) - lu(k,1629) * lu(k,3310)
7289 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1630) * lu(k,3310)
7290 254840160 : lu(k,3375) = lu(k,3375) - lu(k,1631) * lu(k,3310)
7291 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1632) * lu(k,3310)
7292 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1633) * lu(k,3310)
7293 254840160 : lu(k,3414) = lu(k,3414) - lu(k,1621) * lu(k,3405)
7294 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1622) * lu(k,3405)
7295 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1623) * lu(k,3405)
7296 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1624) * lu(k,3405)
7297 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1625) * lu(k,3405)
7298 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1626) * lu(k,3405)
7299 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1627) * lu(k,3405)
7300 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1628) * lu(k,3405)
7301 254840160 : lu(k,3466) = lu(k,3466) - lu(k,1629) * lu(k,3405)
7302 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1630) * lu(k,3405)
7303 254840160 : lu(k,3468) = - lu(k,1631) * lu(k,3405)
7304 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1632) * lu(k,3405)
7305 254840160 : lu(k,3472) = lu(k,3472) - lu(k,1633) * lu(k,3405)
7306 254840160 : lu(k,3559) = lu(k,3559) - lu(k,1621) * lu(k,3552)
7307 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1622) * lu(k,3552)
7308 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1623) * lu(k,3552)
7309 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1624) * lu(k,3552)
7310 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1625) * lu(k,3552)
7311 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1626) * lu(k,3552)
7312 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1627) * lu(k,3552)
7313 254840160 : lu(k,3607) = lu(k,3607) - lu(k,1628) * lu(k,3552)
7314 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1629) * lu(k,3552)
7315 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1630) * lu(k,3552)
7316 254840160 : lu(k,3612) = lu(k,3612) - lu(k,1631) * lu(k,3552)
7317 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1632) * lu(k,3552)
7318 254840160 : lu(k,3616) = lu(k,3616) - lu(k,1633) * lu(k,3552)
7319 254840160 : lu(k,3642) = lu(k,3642) - lu(k,1621) * lu(k,3641)
7320 254840160 : lu(k,3644) = lu(k,3644) - lu(k,1622) * lu(k,3641)
7321 254840160 : lu(k,3651) = lu(k,3651) - lu(k,1623) * lu(k,3641)
7322 254840160 : lu(k,3654) = lu(k,3654) - lu(k,1624) * lu(k,3641)
7323 254840160 : lu(k,3656) = lu(k,3656) - lu(k,1625) * lu(k,3641)
7324 254840160 : lu(k,3657) = lu(k,3657) - lu(k,1626) * lu(k,3641)
7325 254840160 : lu(k,3658) = lu(k,3658) - lu(k,1627) * lu(k,3641)
7326 254840160 : lu(k,3659) = lu(k,3659) - lu(k,1628) * lu(k,3641)
7327 254840160 : lu(k,3662) = lu(k,3662) - lu(k,1629) * lu(k,3641)
7328 254840160 : lu(k,3663) = lu(k,3663) - lu(k,1630) * lu(k,3641)
7329 254840160 : lu(k,3664) = lu(k,3664) - lu(k,1631) * lu(k,3641)
7330 254840160 : lu(k,3667) = lu(k,3667) - lu(k,1632) * lu(k,3641)
7331 254840160 : lu(k,3668) = lu(k,3668) - lu(k,1633) * lu(k,3641)
7332 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1621) * lu(k,4034)
7333 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1622) * lu(k,4034)
7334 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1623) * lu(k,4034)
7335 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1624) * lu(k,4034)
7336 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1625) * lu(k,4034)
7337 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1626) * lu(k,4034)
7338 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1627) * lu(k,4034)
7339 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1628) * lu(k,4034)
7340 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1629) * lu(k,4034)
7341 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1630) * lu(k,4034)
7342 254840160 : lu(k,4098) = lu(k,4098) - lu(k,1631) * lu(k,4034)
7343 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1632) * lu(k,4034)
7344 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1633) * lu(k,4034)
7345 254840160 : lu(k,1640) = 1._r8 / lu(k,1640)
7346 254840160 : lu(k,1641) = lu(k,1641) * lu(k,1640)
7347 254840160 : lu(k,1642) = lu(k,1642) * lu(k,1640)
7348 254840160 : lu(k,1643) = lu(k,1643) * lu(k,1640)
7349 254840160 : lu(k,1644) = lu(k,1644) * lu(k,1640)
7350 254840160 : lu(k,1645) = lu(k,1645) * lu(k,1640)
7351 254840160 : lu(k,1646) = lu(k,1646) * lu(k,1640)
7352 254840160 : lu(k,1647) = lu(k,1647) * lu(k,1640)
7353 254840160 : lu(k,1648) = lu(k,1648) * lu(k,1640)
7354 254840160 : lu(k,1649) = lu(k,1649) * lu(k,1640)
7355 254840160 : lu(k,1650) = lu(k,1650) * lu(k,1640)
7356 254840160 : lu(k,1651) = lu(k,1651) * lu(k,1640)
7357 254840160 : lu(k,1652) = lu(k,1652) * lu(k,1640)
7358 254840160 : lu(k,1653) = lu(k,1653) * lu(k,1640)
7359 254840160 : lu(k,1654) = lu(k,1654) * lu(k,1640)
7360 254840160 : lu(k,1655) = lu(k,1655) * lu(k,1640)
7361 254840160 : lu(k,2132) = - lu(k,1641) * lu(k,2131)
7362 254840160 : lu(k,2133) = lu(k,2133) - lu(k,1642) * lu(k,2131)
7363 254840160 : lu(k,2134) = lu(k,2134) - lu(k,1643) * lu(k,2131)
7364 254840160 : lu(k,2135) = - lu(k,1644) * lu(k,2131)
7365 254840160 : lu(k,2137) = lu(k,2137) - lu(k,1645) * lu(k,2131)
7366 254840160 : lu(k,2138) = lu(k,2138) - lu(k,1646) * lu(k,2131)
7367 254840160 : lu(k,2139) = lu(k,2139) - lu(k,1647) * lu(k,2131)
7368 254840160 : lu(k,2141) = lu(k,2141) - lu(k,1648) * lu(k,2131)
7369 254840160 : lu(k,2142) = lu(k,2142) - lu(k,1649) * lu(k,2131)
7370 254840160 : lu(k,2143) = - lu(k,1650) * lu(k,2131)
7371 254840160 : lu(k,2145) = lu(k,2145) - lu(k,1651) * lu(k,2131)
7372 254840160 : lu(k,2146) = lu(k,2146) - lu(k,1652) * lu(k,2131)
7373 254840160 : lu(k,2147) = lu(k,2147) - lu(k,1653) * lu(k,2131)
7374 254840160 : lu(k,2149) = lu(k,2149) - lu(k,1654) * lu(k,2131)
7375 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1655) * lu(k,2131)
7376 254840160 : lu(k,2168) = lu(k,2168) - lu(k,1641) * lu(k,2166)
7377 254840160 : lu(k,2169) = lu(k,2169) - lu(k,1642) * lu(k,2166)
7378 254840160 : lu(k,2170) = lu(k,2170) - lu(k,1643) * lu(k,2166)
7379 254840160 : lu(k,2171) = lu(k,2171) - lu(k,1644) * lu(k,2166)
7380 254840160 : lu(k,2172) = lu(k,2172) - lu(k,1645) * lu(k,2166)
7381 254840160 : lu(k,2173) = lu(k,2173) - lu(k,1646) * lu(k,2166)
7382 254840160 : lu(k,2176) = lu(k,2176) - lu(k,1647) * lu(k,2166)
7383 254840160 : lu(k,2183) = lu(k,2183) - lu(k,1648) * lu(k,2166)
7384 254840160 : lu(k,2184) = lu(k,2184) - lu(k,1649) * lu(k,2166)
7385 254840160 : lu(k,2185) = lu(k,2185) - lu(k,1650) * lu(k,2166)
7386 254840160 : lu(k,2187) = lu(k,2187) - lu(k,1651) * lu(k,2166)
7387 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1652) * lu(k,2166)
7388 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1653) * lu(k,2166)
7389 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1654) * lu(k,2166)
7390 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1655) * lu(k,2166)
7391 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1641) * lu(k,3053)
7392 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1642) * lu(k,3053)
7393 254840160 : lu(k,3062) = lu(k,3062) - lu(k,1643) * lu(k,3053)
7394 254840160 : lu(k,3063) = lu(k,3063) - lu(k,1644) * lu(k,3053)
7395 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1645) * lu(k,3053)
7396 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1646) * lu(k,3053)
7397 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1647) * lu(k,3053)
7398 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1648) * lu(k,3053)
7399 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1649) * lu(k,3053)
7400 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1650) * lu(k,3053)
7401 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1651) * lu(k,3053)
7402 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1652) * lu(k,3053)
7403 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1653) * lu(k,3053)
7404 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1654) * lu(k,3053)
7405 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1655) * lu(k,3053)
7406 254840160 : lu(k,3316) = lu(k,3316) - lu(k,1641) * lu(k,3311)
7407 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1642) * lu(k,3311)
7408 254840160 : lu(k,3321) = lu(k,3321) - lu(k,1643) * lu(k,3311)
7409 254840160 : lu(k,3322) = lu(k,3322) - lu(k,1644) * lu(k,3311)
7410 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1645) * lu(k,3311)
7411 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1646) * lu(k,3311)
7412 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1647) * lu(k,3311)
7413 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1648) * lu(k,3311)
7414 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1649) * lu(k,3311)
7415 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1650) * lu(k,3311)
7416 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1651) * lu(k,3311)
7417 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1652) * lu(k,3311)
7418 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1653) * lu(k,3311)
7419 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1654) * lu(k,3311)
7420 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1655) * lu(k,3311)
7421 254840160 : lu(k,3410) = lu(k,3410) - lu(k,1641) * lu(k,3406)
7422 254840160 : lu(k,3414) = lu(k,3414) - lu(k,1642) * lu(k,3406)
7423 254840160 : lu(k,3415) = lu(k,3415) - lu(k,1643) * lu(k,3406)
7424 254840160 : lu(k,3416) = lu(k,3416) - lu(k,1644) * lu(k,3406)
7425 254840160 : lu(k,3421) = lu(k,3421) - lu(k,1645) * lu(k,3406)
7426 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1646) * lu(k,3406)
7427 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1647) * lu(k,3406)
7428 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1648) * lu(k,3406)
7429 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1649) * lu(k,3406)
7430 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1650) * lu(k,3406)
7431 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1651) * lu(k,3406)
7432 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1652) * lu(k,3406)
7433 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1653) * lu(k,3406)
7434 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1654) * lu(k,3406)
7435 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1655) * lu(k,3406)
7436 254840160 : lu(k,3709) = lu(k,3709) - lu(k,1641) * lu(k,3707)
7437 254840160 : lu(k,3713) = lu(k,3713) - lu(k,1642) * lu(k,3707)
7438 254840160 : lu(k,3714) = lu(k,3714) - lu(k,1643) * lu(k,3707)
7439 254840160 : lu(k,3715) = lu(k,3715) - lu(k,1644) * lu(k,3707)
7440 254840160 : lu(k,3720) = lu(k,3720) - lu(k,1645) * lu(k,3707)
7441 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1646) * lu(k,3707)
7442 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1647) * lu(k,3707)
7443 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1648) * lu(k,3707)
7444 254840160 : lu(k,3755) = lu(k,3755) - lu(k,1649) * lu(k,3707)
7445 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1650) * lu(k,3707)
7446 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1651) * lu(k,3707)
7447 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1652) * lu(k,3707)
7448 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1653) * lu(k,3707)
7449 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1654) * lu(k,3707)
7450 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1655) * lu(k,3707)
7451 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1641) * lu(k,4035)
7452 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1642) * lu(k,4035)
7453 254840160 : lu(k,4045) = lu(k,4045) - lu(k,1643) * lu(k,4035)
7454 254840160 : lu(k,4046) = lu(k,4046) - lu(k,1644) * lu(k,4035)
7455 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1645) * lu(k,4035)
7456 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1646) * lu(k,4035)
7457 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1647) * lu(k,4035)
7458 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1648) * lu(k,4035)
7459 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1649) * lu(k,4035)
7460 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1650) * lu(k,4035)
7461 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1651) * lu(k,4035)
7462 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1652) * lu(k,4035)
7463 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1653) * lu(k,4035)
7464 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1654) * lu(k,4035)
7465 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1655) * lu(k,4035)
7466 254840160 : lu(k,1659) = 1._r8 / lu(k,1659)
7467 254840160 : lu(k,1660) = lu(k,1660) * lu(k,1659)
7468 254840160 : lu(k,1661) = lu(k,1661) * lu(k,1659)
7469 254840160 : lu(k,1662) = lu(k,1662) * lu(k,1659)
7470 254840160 : lu(k,1663) = lu(k,1663) * lu(k,1659)
7471 254840160 : lu(k,1664) = lu(k,1664) * lu(k,1659)
7472 254840160 : lu(k,1665) = lu(k,1665) * lu(k,1659)
7473 254840160 : lu(k,1666) = lu(k,1666) * lu(k,1659)
7474 254840160 : lu(k,1667) = lu(k,1667) * lu(k,1659)
7475 254840160 : lu(k,1668) = lu(k,1668) * lu(k,1659)
7476 254840160 : lu(k,1669) = lu(k,1669) * lu(k,1659)
7477 254840160 : lu(k,1670) = lu(k,1670) * lu(k,1659)
7478 254840160 : lu(k,1943) = lu(k,1943) - lu(k,1660) * lu(k,1942)
7479 254840160 : lu(k,1945) = lu(k,1945) - lu(k,1661) * lu(k,1942)
7480 254840160 : lu(k,1946) = lu(k,1946) - lu(k,1662) * lu(k,1942)
7481 254840160 : lu(k,1951) = - lu(k,1663) * lu(k,1942)
7482 254840160 : lu(k,1952) = lu(k,1952) - lu(k,1664) * lu(k,1942)
7483 254840160 : lu(k,1957) = lu(k,1957) - lu(k,1665) * lu(k,1942)
7484 254840160 : lu(k,1960) = lu(k,1960) - lu(k,1666) * lu(k,1942)
7485 254840160 : lu(k,1962) = lu(k,1962) - lu(k,1667) * lu(k,1942)
7486 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1668) * lu(k,1942)
7487 254840160 : lu(k,1967) = lu(k,1967) - lu(k,1669) * lu(k,1942)
7488 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1670) * lu(k,1942)
7489 254840160 : lu(k,1980) = lu(k,1980) - lu(k,1660) * lu(k,1979)
7490 254840160 : lu(k,1982) = lu(k,1982) - lu(k,1661) * lu(k,1979)
7491 254840160 : lu(k,1983) = - lu(k,1662) * lu(k,1979)
7492 254840160 : lu(k,1988) = lu(k,1988) - lu(k,1663) * lu(k,1979)
7493 254840160 : lu(k,1989) = lu(k,1989) - lu(k,1664) * lu(k,1979)
7494 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1665) * lu(k,1979)
7495 254840160 : lu(k,1999) = - lu(k,1666) * lu(k,1979)
7496 254840160 : lu(k,2001) = lu(k,2001) - lu(k,1667) * lu(k,1979)
7497 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1668) * lu(k,1979)
7498 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1669) * lu(k,1979)
7499 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1670) * lu(k,1979)
7500 254840160 : lu(k,2070) = lu(k,2070) - lu(k,1660) * lu(k,2069)
7501 254840160 : lu(k,2071) = lu(k,2071) - lu(k,1661) * lu(k,2069)
7502 254840160 : lu(k,2072) = lu(k,2072) - lu(k,1662) * lu(k,2069)
7503 254840160 : lu(k,2075) = - lu(k,1663) * lu(k,2069)
7504 254840160 : lu(k,2076) = lu(k,2076) - lu(k,1664) * lu(k,2069)
7505 254840160 : lu(k,2077) = lu(k,2077) - lu(k,1665) * lu(k,2069)
7506 254840160 : lu(k,2081) = lu(k,2081) - lu(k,1666) * lu(k,2069)
7507 254840160 : lu(k,2084) = lu(k,2084) - lu(k,1667) * lu(k,2069)
7508 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1668) * lu(k,2069)
7509 254840160 : lu(k,2088) = lu(k,2088) - lu(k,1669) * lu(k,2069)
7510 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1670) * lu(k,2069)
7511 254840160 : lu(k,2102) = lu(k,2102) - lu(k,1660) * lu(k,2101)
7512 254840160 : lu(k,2103) = lu(k,2103) - lu(k,1661) * lu(k,2101)
7513 254840160 : lu(k,2104) = - lu(k,1662) * lu(k,2101)
7514 254840160 : lu(k,2107) = lu(k,2107) - lu(k,1663) * lu(k,2101)
7515 254840160 : lu(k,2108) = lu(k,2108) - lu(k,1664) * lu(k,2101)
7516 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1665) * lu(k,2101)
7517 254840160 : lu(k,2113) = lu(k,2113) - lu(k,1666) * lu(k,2101)
7518 254840160 : lu(k,2116) = lu(k,2116) - lu(k,1667) * lu(k,2101)
7519 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1668) * lu(k,2101)
7520 254840160 : lu(k,2120) = lu(k,2120) - lu(k,1669) * lu(k,2101)
7521 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1670) * lu(k,2101)
7522 254840160 : lu(k,2168) = lu(k,2168) - lu(k,1660) * lu(k,2167)
7523 254840160 : lu(k,2169) = lu(k,2169) - lu(k,1661) * lu(k,2167)
7524 254840160 : lu(k,2170) = lu(k,2170) - lu(k,1662) * lu(k,2167)
7525 254840160 : lu(k,2172) = lu(k,2172) - lu(k,1663) * lu(k,2167)
7526 254840160 : lu(k,2173) = lu(k,2173) - lu(k,1664) * lu(k,2167)
7527 254840160 : lu(k,2176) = lu(k,2176) - lu(k,1665) * lu(k,2167)
7528 254840160 : lu(k,2184) = lu(k,2184) - lu(k,1666) * lu(k,2167)
7529 254840160 : lu(k,2187) = lu(k,2187) - lu(k,1667) * lu(k,2167)
7530 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1668) * lu(k,2167)
7531 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1669) * lu(k,2167)
7532 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1670) * lu(k,2167)
7533 254840160 : lu(k,3057) = lu(k,3057) - lu(k,1660) * lu(k,3054)
7534 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1661) * lu(k,3054)
7535 254840160 : lu(k,3062) = lu(k,3062) - lu(k,1662) * lu(k,3054)
7536 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1663) * lu(k,3054)
7537 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1664) * lu(k,3054)
7538 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1665) * lu(k,3054)
7539 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1666) * lu(k,3054)
7540 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1667) * lu(k,3054)
7541 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1668) * lu(k,3054)
7542 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1669) * lu(k,3054)
7543 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1670) * lu(k,3054)
7544 254840160 : lu(k,3316) = lu(k,3316) - lu(k,1660) * lu(k,3312)
7545 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1661) * lu(k,3312)
7546 254840160 : lu(k,3321) = lu(k,3321) - lu(k,1662) * lu(k,3312)
7547 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1663) * lu(k,3312)
7548 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1664) * lu(k,3312)
7549 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1665) * lu(k,3312)
7550 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1666) * lu(k,3312)
7551 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1667) * lu(k,3312)
7552 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1668) * lu(k,3312)
7553 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1669) * lu(k,3312)
7554 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1670) * lu(k,3312)
7555 254840160 : lu(k,3410) = lu(k,3410) - lu(k,1660) * lu(k,3407)
7556 254840160 : lu(k,3414) = lu(k,3414) - lu(k,1661) * lu(k,3407)
7557 254840160 : lu(k,3415) = lu(k,3415) - lu(k,1662) * lu(k,3407)
7558 254840160 : lu(k,3421) = lu(k,3421) - lu(k,1663) * lu(k,3407)
7559 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1664) * lu(k,3407)
7560 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1665) * lu(k,3407)
7561 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1666) * lu(k,3407)
7562 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1667) * lu(k,3407)
7563 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1668) * lu(k,3407)
7564 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1669) * lu(k,3407)
7565 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1670) * lu(k,3407)
7566 254840160 : lu(k,3709) = lu(k,3709) - lu(k,1660) * lu(k,3708)
7567 254840160 : lu(k,3713) = lu(k,3713) - lu(k,1661) * lu(k,3708)
7568 254840160 : lu(k,3714) = lu(k,3714) - lu(k,1662) * lu(k,3708)
7569 254840160 : lu(k,3720) = lu(k,3720) - lu(k,1663) * lu(k,3708)
7570 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1664) * lu(k,3708)
7571 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1665) * lu(k,3708)
7572 254840160 : lu(k,3755) = lu(k,3755) - lu(k,1666) * lu(k,3708)
7573 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1667) * lu(k,3708)
7574 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1668) * lu(k,3708)
7575 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1669) * lu(k,3708)
7576 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1670) * lu(k,3708)
7577 254840160 : lu(k,4040) = lu(k,4040) - lu(k,1660) * lu(k,4036)
7578 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1661) * lu(k,4036)
7579 254840160 : lu(k,4045) = lu(k,4045) - lu(k,1662) * lu(k,4036)
7580 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1663) * lu(k,4036)
7581 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1664) * lu(k,4036)
7582 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1665) * lu(k,4036)
7583 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1666) * lu(k,4036)
7584 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1667) * lu(k,4036)
7585 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1668) * lu(k,4036)
7586 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1669) * lu(k,4036)
7587 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1670) * lu(k,4036)
7588 : end do
7589 8168963 : end subroutine lu_fac37
7590 8168963 : subroutine lu_fac38( avec_len, lu )
7591 : use chem_mods, only : nzcnt
7592 : use shr_kind_mod, only : r8 => shr_kind_r8
7593 : implicit none
7594 : !-----------------------------------------------------------------------
7595 : ! ... dummy args
7596 : !-----------------------------------------------------------------------
7597 : integer, intent(in) :: avec_len
7598 : real(r8), intent(inout) :: lu(veclen,nzcnt)
7599 : !-----------------------------------------------------------------------
7600 : ! ... local variables
7601 : !-----------------------------------------------------------------------
7602 : integer :: k
7603 263009123 : do k = 1,avec_len
7604 254840160 : lu(k,1673) = 1._r8 / lu(k,1673)
7605 254840160 : lu(k,1674) = lu(k,1674) * lu(k,1673)
7606 254840160 : lu(k,1675) = lu(k,1675) * lu(k,1673)
7607 254840160 : lu(k,1676) = lu(k,1676) * lu(k,1673)
7608 254840160 : lu(k,1677) = lu(k,1677) * lu(k,1673)
7609 254840160 : lu(k,1678) = lu(k,1678) * lu(k,1673)
7610 254840160 : lu(k,1679) = lu(k,1679) * lu(k,1673)
7611 254840160 : lu(k,1680) = lu(k,1680) * lu(k,1673)
7612 254840160 : lu(k,1681) = lu(k,1681) * lu(k,1673)
7613 254840160 : lu(k,1682) = lu(k,1682) * lu(k,1673)
7614 254840160 : lu(k,1683) = lu(k,1683) * lu(k,1673)
7615 254840160 : lu(k,1684) = lu(k,1684) * lu(k,1673)
7616 254840160 : lu(k,2259) = lu(k,2259) - lu(k,1674) * lu(k,2257)
7617 254840160 : lu(k,2260) = lu(k,2260) - lu(k,1675) * lu(k,2257)
7618 254840160 : lu(k,2261) = lu(k,2261) - lu(k,1676) * lu(k,2257)
7619 254840160 : lu(k,2262) = lu(k,2262) - lu(k,1677) * lu(k,2257)
7620 254840160 : lu(k,2263) = lu(k,2263) - lu(k,1678) * lu(k,2257)
7621 254840160 : lu(k,2266) = lu(k,2266) - lu(k,1679) * lu(k,2257)
7622 254840160 : lu(k,2267) = lu(k,2267) - lu(k,1680) * lu(k,2257)
7623 254840160 : lu(k,2268) = lu(k,2268) - lu(k,1681) * lu(k,2257)
7624 254840160 : lu(k,2269) = lu(k,2269) - lu(k,1682) * lu(k,2257)
7625 254840160 : lu(k,2270) = lu(k,2270) - lu(k,1683) * lu(k,2257)
7626 254840160 : lu(k,2271) = lu(k,2271) - lu(k,1684) * lu(k,2257)
7627 254840160 : lu(k,2930) = - lu(k,1674) * lu(k,2929)
7628 254840160 : lu(k,2931) = lu(k,2931) - lu(k,1675) * lu(k,2929)
7629 254840160 : lu(k,2932) = - lu(k,1676) * lu(k,2929)
7630 254840160 : lu(k,2933) = - lu(k,1677) * lu(k,2929)
7631 254840160 : lu(k,2934) = lu(k,2934) - lu(k,1678) * lu(k,2929)
7632 254840160 : lu(k,2937) = - lu(k,1679) * lu(k,2929)
7633 254840160 : lu(k,2938) = - lu(k,1680) * lu(k,2929)
7634 254840160 : lu(k,2940) = - lu(k,1681) * lu(k,2929)
7635 254840160 : lu(k,2941) = - lu(k,1682) * lu(k,2929)
7636 254840160 : lu(k,2942) = lu(k,2942) - lu(k,1683) * lu(k,2929)
7637 254840160 : lu(k,2943) = lu(k,2943) - lu(k,1684) * lu(k,2929)
7638 254840160 : lu(k,2947) = lu(k,2947) - lu(k,1674) * lu(k,2946)
7639 254840160 : lu(k,2948) = lu(k,2948) - lu(k,1675) * lu(k,2946)
7640 254840160 : lu(k,2949) = lu(k,2949) - lu(k,1676) * lu(k,2946)
7641 254840160 : lu(k,2950) = - lu(k,1677) * lu(k,2946)
7642 254840160 : lu(k,2951) = - lu(k,1678) * lu(k,2946)
7643 254840160 : lu(k,2954) = lu(k,2954) - lu(k,1679) * lu(k,2946)
7644 254840160 : lu(k,2955) = lu(k,2955) - lu(k,1680) * lu(k,2946)
7645 254840160 : lu(k,2958) = - lu(k,1681) * lu(k,2946)
7646 254840160 : lu(k,2959) = - lu(k,1682) * lu(k,2946)
7647 254840160 : lu(k,2960) = lu(k,2960) - lu(k,1683) * lu(k,2946)
7648 254840160 : lu(k,2961) = lu(k,2961) - lu(k,1684) * lu(k,2946)
7649 254840160 : lu(k,3156) = - lu(k,1674) * lu(k,3153)
7650 254840160 : lu(k,3157) = lu(k,3157) - lu(k,1675) * lu(k,3153)
7651 254840160 : lu(k,3158) = lu(k,3158) - lu(k,1676) * lu(k,3153)
7652 254840160 : lu(k,3160) = lu(k,3160) - lu(k,1677) * lu(k,3153)
7653 254840160 : lu(k,3161) = lu(k,3161) - lu(k,1678) * lu(k,3153)
7654 254840160 : lu(k,3164) = - lu(k,1679) * lu(k,3153)
7655 254840160 : lu(k,3167) = lu(k,3167) - lu(k,1680) * lu(k,3153)
7656 254840160 : lu(k,3170) = lu(k,3170) - lu(k,1681) * lu(k,3153)
7657 254840160 : lu(k,3171) = lu(k,3171) - lu(k,1682) * lu(k,3153)
7658 254840160 : lu(k,3172) = lu(k,3172) - lu(k,1683) * lu(k,3153)
7659 254840160 : lu(k,3173) = lu(k,3173) - lu(k,1684) * lu(k,3153)
7660 254840160 : lu(k,3182) = - lu(k,1674) * lu(k,3179)
7661 254840160 : lu(k,3183) = lu(k,3183) - lu(k,1675) * lu(k,3179)
7662 254840160 : lu(k,3184) = lu(k,3184) - lu(k,1676) * lu(k,3179)
7663 254840160 : lu(k,3186) = lu(k,3186) - lu(k,1677) * lu(k,3179)
7664 254840160 : lu(k,3187) = lu(k,3187) - lu(k,1678) * lu(k,3179)
7665 254840160 : lu(k,3190) = - lu(k,1679) * lu(k,3179)
7666 254840160 : lu(k,3193) = lu(k,3193) - lu(k,1680) * lu(k,3179)
7667 254840160 : lu(k,3196) = lu(k,3196) - lu(k,1681) * lu(k,3179)
7668 254840160 : lu(k,3197) = lu(k,3197) - lu(k,1682) * lu(k,3179)
7669 254840160 : lu(k,3198) = lu(k,3198) - lu(k,1683) * lu(k,3179)
7670 254840160 : lu(k,3199) = lu(k,3199) - lu(k,1684) * lu(k,3179)
7671 254840160 : lu(k,3341) = - lu(k,1674) * lu(k,3313)
7672 254840160 : lu(k,3363) = lu(k,3363) - lu(k,1675) * lu(k,3313)
7673 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1676) * lu(k,3313)
7674 254840160 : lu(k,3366) = lu(k,3366) - lu(k,1677) * lu(k,3313)
7675 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1678) * lu(k,3313)
7676 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1679) * lu(k,3313)
7677 254840160 : lu(k,3373) = lu(k,3373) - lu(k,1680) * lu(k,3313)
7678 254840160 : lu(k,3376) = lu(k,3376) - lu(k,1681) * lu(k,3313)
7679 254840160 : lu(k,3377) = lu(k,3377) - lu(k,1682) * lu(k,3313)
7680 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1683) * lu(k,3313)
7681 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1684) * lu(k,3313)
7682 254840160 : lu(k,3794) = lu(k,3794) - lu(k,1674) * lu(k,3792)
7683 254840160 : lu(k,3795) = lu(k,3795) - lu(k,1675) * lu(k,3792)
7684 254840160 : lu(k,3796) = lu(k,3796) - lu(k,1676) * lu(k,3792)
7685 254840160 : lu(k,3798) = lu(k,3798) - lu(k,1677) * lu(k,3792)
7686 254840160 : lu(k,3799) = lu(k,3799) - lu(k,1678) * lu(k,3792)
7687 254840160 : lu(k,3802) = lu(k,3802) - lu(k,1679) * lu(k,3792)
7688 254840160 : lu(k,3805) = lu(k,3805) - lu(k,1680) * lu(k,3792)
7689 254840160 : lu(k,3808) = lu(k,3808) - lu(k,1681) * lu(k,3792)
7690 254840160 : lu(k,3809) = lu(k,3809) - lu(k,1682) * lu(k,3792)
7691 254840160 : lu(k,3810) = lu(k,3810) - lu(k,1683) * lu(k,3792)
7692 254840160 : lu(k,3811) = lu(k,3811) - lu(k,1684) * lu(k,3792)
7693 254840160 : lu(k,3834) = lu(k,3834) - lu(k,1674) * lu(k,3830)
7694 254840160 : lu(k,3836) = lu(k,3836) - lu(k,1675) * lu(k,3830)
7695 254840160 : lu(k,3837) = lu(k,3837) - lu(k,1676) * lu(k,3830)
7696 254840160 : lu(k,3839) = lu(k,3839) - lu(k,1677) * lu(k,3830)
7697 254840160 : lu(k,3840) = lu(k,3840) - lu(k,1678) * lu(k,3830)
7698 254840160 : lu(k,3843) = lu(k,3843) - lu(k,1679) * lu(k,3830)
7699 254840160 : lu(k,3846) = lu(k,3846) - lu(k,1680) * lu(k,3830)
7700 254840160 : lu(k,3849) = lu(k,3849) - lu(k,1681) * lu(k,3830)
7701 254840160 : lu(k,3850) = lu(k,3850) - lu(k,1682) * lu(k,3830)
7702 254840160 : lu(k,3851) = lu(k,3851) - lu(k,1683) * lu(k,3830)
7703 254840160 : lu(k,3852) = lu(k,3852) - lu(k,1684) * lu(k,3830)
7704 254840160 : lu(k,4064) = lu(k,4064) - lu(k,1674) * lu(k,4037)
7705 254840160 : lu(k,4086) = lu(k,4086) - lu(k,1675) * lu(k,4037)
7706 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1676) * lu(k,4037)
7707 254840160 : lu(k,4089) = lu(k,4089) - lu(k,1677) * lu(k,4037)
7708 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1678) * lu(k,4037)
7709 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1679) * lu(k,4037)
7710 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1680) * lu(k,4037)
7711 254840160 : lu(k,4099) = lu(k,4099) - lu(k,1681) * lu(k,4037)
7712 254840160 : lu(k,4100) = lu(k,4100) - lu(k,1682) * lu(k,4037)
7713 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1683) * lu(k,4037)
7714 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1684) * lu(k,4037)
7715 254840160 : lu(k,4111) = lu(k,4111) - lu(k,1674) * lu(k,4109)
7716 254840160 : lu(k,4112) = lu(k,4112) - lu(k,1675) * lu(k,4109)
7717 254840160 : lu(k,4113) = lu(k,4113) - lu(k,1676) * lu(k,4109)
7718 254840160 : lu(k,4115) = - lu(k,1677) * lu(k,4109)
7719 254840160 : lu(k,4116) = lu(k,4116) - lu(k,1678) * lu(k,4109)
7720 254840160 : lu(k,4119) = lu(k,4119) - lu(k,1679) * lu(k,4109)
7721 254840160 : lu(k,4122) = lu(k,4122) - lu(k,1680) * lu(k,4109)
7722 254840160 : lu(k,4125) = lu(k,4125) - lu(k,1681) * lu(k,4109)
7723 254840160 : lu(k,4126) = lu(k,4126) - lu(k,1682) * lu(k,4109)
7724 254840160 : lu(k,4127) = lu(k,4127) - lu(k,1683) * lu(k,4109)
7725 254840160 : lu(k,4128) = lu(k,4128) - lu(k,1684) * lu(k,4109)
7726 254840160 : lu(k,1689) = 1._r8 / lu(k,1689)
7727 254840160 : lu(k,1690) = lu(k,1690) * lu(k,1689)
7728 254840160 : lu(k,1691) = lu(k,1691) * lu(k,1689)
7729 254840160 : lu(k,1692) = lu(k,1692) * lu(k,1689)
7730 254840160 : lu(k,1693) = lu(k,1693) * lu(k,1689)
7731 254840160 : lu(k,1694) = lu(k,1694) * lu(k,1689)
7732 254840160 : lu(k,1695) = lu(k,1695) * lu(k,1689)
7733 254840160 : lu(k,1696) = lu(k,1696) * lu(k,1689)
7734 254840160 : lu(k,2340) = - lu(k,1690) * lu(k,2335)
7735 254840160 : lu(k,2341) = lu(k,2341) - lu(k,1691) * lu(k,2335)
7736 254840160 : lu(k,2349) = - lu(k,1692) * lu(k,2335)
7737 254840160 : lu(k,2350) = lu(k,2350) - lu(k,1693) * lu(k,2335)
7738 254840160 : lu(k,2353) = lu(k,2353) - lu(k,1694) * lu(k,2335)
7739 254840160 : lu(k,2356) = lu(k,2356) - lu(k,1695) * lu(k,2335)
7740 254840160 : lu(k,2357) = lu(k,2357) - lu(k,1696) * lu(k,2335)
7741 254840160 : lu(k,2379) = lu(k,2379) - lu(k,1690) * lu(k,2373)
7742 254840160 : lu(k,2381) = lu(k,2381) - lu(k,1691) * lu(k,2373)
7743 254840160 : lu(k,2389) = lu(k,2389) - lu(k,1692) * lu(k,2373)
7744 254840160 : lu(k,2390) = lu(k,2390) - lu(k,1693) * lu(k,2373)
7745 254840160 : lu(k,2393) = lu(k,2393) - lu(k,1694) * lu(k,2373)
7746 254840160 : lu(k,2396) = lu(k,2396) - lu(k,1695) * lu(k,2373)
7747 254840160 : lu(k,2397) = lu(k,2397) - lu(k,1696) * lu(k,2373)
7748 254840160 : lu(k,2440) = lu(k,2440) - lu(k,1690) * lu(k,2434)
7749 254840160 : lu(k,2442) = lu(k,2442) - lu(k,1691) * lu(k,2434)
7750 254840160 : lu(k,2450) = lu(k,2450) - lu(k,1692) * lu(k,2434)
7751 254840160 : lu(k,2451) = lu(k,2451) - lu(k,1693) * lu(k,2434)
7752 254840160 : lu(k,2454) = lu(k,2454) - lu(k,1694) * lu(k,2434)
7753 254840160 : lu(k,2457) = lu(k,2457) - lu(k,1695) * lu(k,2434)
7754 254840160 : lu(k,2458) = lu(k,2458) - lu(k,1696) * lu(k,2434)
7755 254840160 : lu(k,2470) = lu(k,2470) - lu(k,1690) * lu(k,2465)
7756 254840160 : lu(k,2473) = - lu(k,1691) * lu(k,2465)
7757 254840160 : lu(k,2481) = - lu(k,1692) * lu(k,2465)
7758 254840160 : lu(k,2482) = lu(k,2482) - lu(k,1693) * lu(k,2465)
7759 254840160 : lu(k,2485) = lu(k,2485) - lu(k,1694) * lu(k,2465)
7760 254840160 : lu(k,2488) = lu(k,2488) - lu(k,1695) * lu(k,2465)
7761 254840160 : lu(k,2489) = lu(k,2489) - lu(k,1696) * lu(k,2465)
7762 254840160 : lu(k,2504) = lu(k,2504) - lu(k,1690) * lu(k,2501)
7763 254840160 : lu(k,2507) = lu(k,2507) - lu(k,1691) * lu(k,2501)
7764 254840160 : lu(k,2515) = lu(k,2515) - lu(k,1692) * lu(k,2501)
7765 254840160 : lu(k,2516) = lu(k,2516) - lu(k,1693) * lu(k,2501)
7766 254840160 : lu(k,2519) = lu(k,2519) - lu(k,1694) * lu(k,2501)
7767 254840160 : lu(k,2522) = lu(k,2522) - lu(k,1695) * lu(k,2501)
7768 254840160 : lu(k,2523) = lu(k,2523) - lu(k,1696) * lu(k,2501)
7769 254840160 : lu(k,2568) = lu(k,2568) - lu(k,1690) * lu(k,2564)
7770 254840160 : lu(k,2572) = lu(k,2572) - lu(k,1691) * lu(k,2564)
7771 254840160 : lu(k,2580) = lu(k,2580) - lu(k,1692) * lu(k,2564)
7772 254840160 : lu(k,2581) = lu(k,2581) - lu(k,1693) * lu(k,2564)
7773 254840160 : lu(k,2584) = lu(k,2584) - lu(k,1694) * lu(k,2564)
7774 254840160 : lu(k,2587) = lu(k,2587) - lu(k,1695) * lu(k,2564)
7775 254840160 : lu(k,2588) = lu(k,2588) - lu(k,1696) * lu(k,2564)
7776 254840160 : lu(k,2599) = - lu(k,1690) * lu(k,2595)
7777 254840160 : lu(k,2601) = lu(k,2601) - lu(k,1691) * lu(k,2595)
7778 254840160 : lu(k,2607) = - lu(k,1692) * lu(k,2595)
7779 254840160 : lu(k,2608) = lu(k,2608) - lu(k,1693) * lu(k,2595)
7780 254840160 : lu(k,2612) = lu(k,2612) - lu(k,1694) * lu(k,2595)
7781 254840160 : lu(k,2614) = lu(k,2614) - lu(k,1695) * lu(k,2595)
7782 254840160 : lu(k,2617) = lu(k,2617) - lu(k,1696) * lu(k,2595)
7783 254840160 : lu(k,2732) = lu(k,2732) - lu(k,1690) * lu(k,2722)
7784 254840160 : lu(k,2741) = lu(k,2741) - lu(k,1691) * lu(k,2722)
7785 254840160 : lu(k,2749) = lu(k,2749) - lu(k,1692) * lu(k,2722)
7786 254840160 : lu(k,2750) = lu(k,2750) - lu(k,1693) * lu(k,2722)
7787 254840160 : lu(k,2754) = lu(k,2754) - lu(k,1694) * lu(k,2722)
7788 254840160 : lu(k,2757) = lu(k,2757) - lu(k,1695) * lu(k,2722)
7789 254840160 : lu(k,2760) = lu(k,2760) - lu(k,1696) * lu(k,2722)
7790 254840160 : lu(k,2778) = lu(k,2778) - lu(k,1690) * lu(k,2768)
7791 254840160 : lu(k,2787) = lu(k,2787) - lu(k,1691) * lu(k,2768)
7792 254840160 : lu(k,2795) = lu(k,2795) - lu(k,1692) * lu(k,2768)
7793 254840160 : lu(k,2796) = lu(k,2796) - lu(k,1693) * lu(k,2768)
7794 254840160 : lu(k,2800) = lu(k,2800) - lu(k,1694) * lu(k,2768)
7795 254840160 : lu(k,2803) = lu(k,2803) - lu(k,1695) * lu(k,2768)
7796 254840160 : lu(k,2806) = lu(k,2806) - lu(k,1696) * lu(k,2768)
7797 254840160 : lu(k,2825) = lu(k,2825) - lu(k,1690) * lu(k,2815)
7798 254840160 : lu(k,2834) = lu(k,2834) - lu(k,1691) * lu(k,2815)
7799 254840160 : lu(k,2842) = lu(k,2842) - lu(k,1692) * lu(k,2815)
7800 254840160 : lu(k,2843) = lu(k,2843) - lu(k,1693) * lu(k,2815)
7801 254840160 : lu(k,2847) = lu(k,2847) - lu(k,1694) * lu(k,2815)
7802 254840160 : lu(k,2850) = lu(k,2850) - lu(k,1695) * lu(k,2815)
7803 254840160 : lu(k,2853) = lu(k,2853) - lu(k,1696) * lu(k,2815)
7804 254840160 : lu(k,2897) = lu(k,2897) - lu(k,1690) * lu(k,2867)
7805 254840160 : lu(k,2906) = lu(k,2906) - lu(k,1691) * lu(k,2867)
7806 254840160 : lu(k,2915) = lu(k,2915) - lu(k,1692) * lu(k,2867)
7807 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1693) * lu(k,2867)
7808 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1694) * lu(k,2867)
7809 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1695) * lu(k,2867)
7810 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1696) * lu(k,2867)
7811 254840160 : lu(k,3087) = lu(k,3087) - lu(k,1690) * lu(k,3055)
7812 254840160 : lu(k,3096) = lu(k,3096) - lu(k,1691) * lu(k,3055)
7813 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1692) * lu(k,3055)
7814 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1693) * lu(k,3055)
7815 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1694) * lu(k,3055)
7816 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1695) * lu(k,3055)
7817 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1696) * lu(k,3055)
7818 254840160 : lu(k,3346) = lu(k,3346) - lu(k,1690) * lu(k,3314)
7819 254840160 : lu(k,3355) = lu(k,3355) - lu(k,1691) * lu(k,3314)
7820 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1692) * lu(k,3314)
7821 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1693) * lu(k,3314)
7822 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1694) * lu(k,3314)
7823 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1695) * lu(k,3314)
7824 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1696) * lu(k,3314)
7825 254840160 : lu(k,3439) = lu(k,3439) - lu(k,1690) * lu(k,3408)
7826 254840160 : lu(k,3448) = lu(k,3448) - lu(k,1691) * lu(k,3408)
7827 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1692) * lu(k,3408)
7828 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1693) * lu(k,3408)
7829 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1694) * lu(k,3408)
7830 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1695) * lu(k,3408)
7831 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1696) * lu(k,3408)
7832 254840160 : lu(k,3583) = lu(k,3583) - lu(k,1690) * lu(k,3553)
7833 254840160 : lu(k,3592) = lu(k,3592) - lu(k,1691) * lu(k,3553)
7834 254840160 : lu(k,3601) = lu(k,3601) - lu(k,1692) * lu(k,3553)
7835 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1693) * lu(k,3553)
7836 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1694) * lu(k,3553)
7837 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1695) * lu(k,3553)
7838 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1696) * lu(k,3553)
7839 254840160 : lu(k,4069) = lu(k,4069) - lu(k,1690) * lu(k,4038)
7840 254840160 : lu(k,4078) = lu(k,4078) - lu(k,1691) * lu(k,4038)
7841 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1692) * lu(k,4038)
7842 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1693) * lu(k,4038)
7843 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1694) * lu(k,4038)
7844 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1695) * lu(k,4038)
7845 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1696) * lu(k,4038)
7846 254840160 : lu(k,1702) = 1._r8 / lu(k,1702)
7847 254840160 : lu(k,1703) = lu(k,1703) * lu(k,1702)
7848 254840160 : lu(k,1704) = lu(k,1704) * lu(k,1702)
7849 254840160 : lu(k,1705) = lu(k,1705) * lu(k,1702)
7850 254840160 : lu(k,1706) = lu(k,1706) * lu(k,1702)
7851 254840160 : lu(k,1707) = lu(k,1707) * lu(k,1702)
7852 254840160 : lu(k,1708) = lu(k,1708) * lu(k,1702)
7853 254840160 : lu(k,1709) = lu(k,1709) * lu(k,1702)
7854 254840160 : lu(k,2340) = lu(k,2340) - lu(k,1703) * lu(k,2336)
7855 254840160 : lu(k,2341) = lu(k,2341) - lu(k,1704) * lu(k,2336)
7856 254840160 : lu(k,2349) = lu(k,2349) - lu(k,1705) * lu(k,2336)
7857 254840160 : lu(k,2350) = lu(k,2350) - lu(k,1706) * lu(k,2336)
7858 254840160 : lu(k,2353) = lu(k,2353) - lu(k,1707) * lu(k,2336)
7859 254840160 : lu(k,2356) = lu(k,2356) - lu(k,1708) * lu(k,2336)
7860 254840160 : lu(k,2357) = lu(k,2357) - lu(k,1709) * lu(k,2336)
7861 254840160 : lu(k,2379) = lu(k,2379) - lu(k,1703) * lu(k,2374)
7862 254840160 : lu(k,2381) = lu(k,2381) - lu(k,1704) * lu(k,2374)
7863 254840160 : lu(k,2389) = lu(k,2389) - lu(k,1705) * lu(k,2374)
7864 254840160 : lu(k,2390) = lu(k,2390) - lu(k,1706) * lu(k,2374)
7865 254840160 : lu(k,2393) = lu(k,2393) - lu(k,1707) * lu(k,2374)
7866 254840160 : lu(k,2396) = lu(k,2396) - lu(k,1708) * lu(k,2374)
7867 254840160 : lu(k,2397) = lu(k,2397) - lu(k,1709) * lu(k,2374)
7868 254840160 : lu(k,2440) = lu(k,2440) - lu(k,1703) * lu(k,2435)
7869 254840160 : lu(k,2442) = lu(k,2442) - lu(k,1704) * lu(k,2435)
7870 254840160 : lu(k,2450) = lu(k,2450) - lu(k,1705) * lu(k,2435)
7871 254840160 : lu(k,2451) = lu(k,2451) - lu(k,1706) * lu(k,2435)
7872 254840160 : lu(k,2454) = lu(k,2454) - lu(k,1707) * lu(k,2435)
7873 254840160 : lu(k,2457) = lu(k,2457) - lu(k,1708) * lu(k,2435)
7874 254840160 : lu(k,2458) = lu(k,2458) - lu(k,1709) * lu(k,2435)
7875 254840160 : lu(k,2470) = lu(k,2470) - lu(k,1703) * lu(k,2466)
7876 254840160 : lu(k,2473) = lu(k,2473) - lu(k,1704) * lu(k,2466)
7877 254840160 : lu(k,2481) = lu(k,2481) - lu(k,1705) * lu(k,2466)
7878 254840160 : lu(k,2482) = lu(k,2482) - lu(k,1706) * lu(k,2466)
7879 254840160 : lu(k,2485) = lu(k,2485) - lu(k,1707) * lu(k,2466)
7880 254840160 : lu(k,2488) = lu(k,2488) - lu(k,1708) * lu(k,2466)
7881 254840160 : lu(k,2489) = lu(k,2489) - lu(k,1709) * lu(k,2466)
7882 254840160 : lu(k,2504) = lu(k,2504) - lu(k,1703) * lu(k,2502)
7883 254840160 : lu(k,2507) = lu(k,2507) - lu(k,1704) * lu(k,2502)
7884 254840160 : lu(k,2515) = lu(k,2515) - lu(k,1705) * lu(k,2502)
7885 254840160 : lu(k,2516) = lu(k,2516) - lu(k,1706) * lu(k,2502)
7886 254840160 : lu(k,2519) = lu(k,2519) - lu(k,1707) * lu(k,2502)
7887 254840160 : lu(k,2522) = lu(k,2522) - lu(k,1708) * lu(k,2502)
7888 254840160 : lu(k,2523) = lu(k,2523) - lu(k,1709) * lu(k,2502)
7889 254840160 : lu(k,2568) = lu(k,2568) - lu(k,1703) * lu(k,2565)
7890 254840160 : lu(k,2572) = lu(k,2572) - lu(k,1704) * lu(k,2565)
7891 254840160 : lu(k,2580) = lu(k,2580) - lu(k,1705) * lu(k,2565)
7892 254840160 : lu(k,2581) = lu(k,2581) - lu(k,1706) * lu(k,2565)
7893 254840160 : lu(k,2584) = lu(k,2584) - lu(k,1707) * lu(k,2565)
7894 254840160 : lu(k,2587) = lu(k,2587) - lu(k,1708) * lu(k,2565)
7895 254840160 : lu(k,2588) = lu(k,2588) - lu(k,1709) * lu(k,2565)
7896 254840160 : lu(k,2599) = lu(k,2599) - lu(k,1703) * lu(k,2596)
7897 254840160 : lu(k,2601) = lu(k,2601) - lu(k,1704) * lu(k,2596)
7898 254840160 : lu(k,2607) = lu(k,2607) - lu(k,1705) * lu(k,2596)
7899 254840160 : lu(k,2608) = lu(k,2608) - lu(k,1706) * lu(k,2596)
7900 254840160 : lu(k,2612) = lu(k,2612) - lu(k,1707) * lu(k,2596)
7901 254840160 : lu(k,2614) = lu(k,2614) - lu(k,1708) * lu(k,2596)
7902 254840160 : lu(k,2617) = lu(k,2617) - lu(k,1709) * lu(k,2596)
7903 254840160 : lu(k,2732) = lu(k,2732) - lu(k,1703) * lu(k,2723)
7904 254840160 : lu(k,2741) = lu(k,2741) - lu(k,1704) * lu(k,2723)
7905 254840160 : lu(k,2749) = lu(k,2749) - lu(k,1705) * lu(k,2723)
7906 254840160 : lu(k,2750) = lu(k,2750) - lu(k,1706) * lu(k,2723)
7907 254840160 : lu(k,2754) = lu(k,2754) - lu(k,1707) * lu(k,2723)
7908 254840160 : lu(k,2757) = lu(k,2757) - lu(k,1708) * lu(k,2723)
7909 254840160 : lu(k,2760) = lu(k,2760) - lu(k,1709) * lu(k,2723)
7910 254840160 : lu(k,2778) = lu(k,2778) - lu(k,1703) * lu(k,2769)
7911 254840160 : lu(k,2787) = lu(k,2787) - lu(k,1704) * lu(k,2769)
7912 254840160 : lu(k,2795) = lu(k,2795) - lu(k,1705) * lu(k,2769)
7913 254840160 : lu(k,2796) = lu(k,2796) - lu(k,1706) * lu(k,2769)
7914 254840160 : lu(k,2800) = lu(k,2800) - lu(k,1707) * lu(k,2769)
7915 254840160 : lu(k,2803) = lu(k,2803) - lu(k,1708) * lu(k,2769)
7916 254840160 : lu(k,2806) = lu(k,2806) - lu(k,1709) * lu(k,2769)
7917 254840160 : lu(k,2825) = lu(k,2825) - lu(k,1703) * lu(k,2816)
7918 254840160 : lu(k,2834) = lu(k,2834) - lu(k,1704) * lu(k,2816)
7919 254840160 : lu(k,2842) = lu(k,2842) - lu(k,1705) * lu(k,2816)
7920 254840160 : lu(k,2843) = lu(k,2843) - lu(k,1706) * lu(k,2816)
7921 254840160 : lu(k,2847) = lu(k,2847) - lu(k,1707) * lu(k,2816)
7922 254840160 : lu(k,2850) = lu(k,2850) - lu(k,1708) * lu(k,2816)
7923 254840160 : lu(k,2853) = lu(k,2853) - lu(k,1709) * lu(k,2816)
7924 254840160 : lu(k,2897) = lu(k,2897) - lu(k,1703) * lu(k,2868)
7925 254840160 : lu(k,2906) = lu(k,2906) - lu(k,1704) * lu(k,2868)
7926 254840160 : lu(k,2915) = lu(k,2915) - lu(k,1705) * lu(k,2868)
7927 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1706) * lu(k,2868)
7928 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1707) * lu(k,2868)
7929 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1708) * lu(k,2868)
7930 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1709) * lu(k,2868)
7931 254840160 : lu(k,3087) = lu(k,3087) - lu(k,1703) * lu(k,3056)
7932 254840160 : lu(k,3096) = lu(k,3096) - lu(k,1704) * lu(k,3056)
7933 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1705) * lu(k,3056)
7934 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1706) * lu(k,3056)
7935 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1707) * lu(k,3056)
7936 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1708) * lu(k,3056)
7937 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1709) * lu(k,3056)
7938 254840160 : lu(k,3346) = lu(k,3346) - lu(k,1703) * lu(k,3315)
7939 254840160 : lu(k,3355) = lu(k,3355) - lu(k,1704) * lu(k,3315)
7940 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1705) * lu(k,3315)
7941 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1706) * lu(k,3315)
7942 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1707) * lu(k,3315)
7943 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1708) * lu(k,3315)
7944 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1709) * lu(k,3315)
7945 254840160 : lu(k,3439) = lu(k,3439) - lu(k,1703) * lu(k,3409)
7946 254840160 : lu(k,3448) = lu(k,3448) - lu(k,1704) * lu(k,3409)
7947 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1705) * lu(k,3409)
7948 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1706) * lu(k,3409)
7949 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1707) * lu(k,3409)
7950 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1708) * lu(k,3409)
7951 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1709) * lu(k,3409)
7952 254840160 : lu(k,3583) = lu(k,3583) - lu(k,1703) * lu(k,3554)
7953 254840160 : lu(k,3592) = lu(k,3592) - lu(k,1704) * lu(k,3554)
7954 254840160 : lu(k,3601) = lu(k,3601) - lu(k,1705) * lu(k,3554)
7955 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1706) * lu(k,3554)
7956 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1707) * lu(k,3554)
7957 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1708) * lu(k,3554)
7958 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1709) * lu(k,3554)
7959 254840160 : lu(k,4069) = lu(k,4069) - lu(k,1703) * lu(k,4039)
7960 254840160 : lu(k,4078) = lu(k,4078) - lu(k,1704) * lu(k,4039)
7961 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1705) * lu(k,4039)
7962 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1706) * lu(k,4039)
7963 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1707) * lu(k,4039)
7964 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1708) * lu(k,4039)
7965 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1709) * lu(k,4039)
7966 : end do
7967 8168963 : end subroutine lu_fac38
7968 8168963 : subroutine lu_fac39( avec_len, lu )
7969 : use chem_mods, only : nzcnt
7970 : use shr_kind_mod, only : r8 => shr_kind_r8
7971 : implicit none
7972 : !-----------------------------------------------------------------------
7973 : ! ... dummy args
7974 : !-----------------------------------------------------------------------
7975 : integer, intent(in) :: avec_len
7976 : real(r8), intent(inout) :: lu(veclen,nzcnt)
7977 : !-----------------------------------------------------------------------
7978 : ! ... local variables
7979 : !-----------------------------------------------------------------------
7980 : integer :: k
7981 263009123 : do k = 1,avec_len
7982 254840160 : lu(k,1712) = 1._r8 / lu(k,1712)
7983 254840160 : lu(k,1713) = lu(k,1713) * lu(k,1712)
7984 254840160 : lu(k,1714) = lu(k,1714) * lu(k,1712)
7985 254840160 : lu(k,1715) = lu(k,1715) * lu(k,1712)
7986 254840160 : lu(k,1716) = lu(k,1716) * lu(k,1712)
7987 254840160 : lu(k,1717) = lu(k,1717) * lu(k,1712)
7988 254840160 : lu(k,1738) = lu(k,1738) - lu(k,1713) * lu(k,1731)
7989 254840160 : lu(k,1742) = lu(k,1742) - lu(k,1714) * lu(k,1731)
7990 254840160 : lu(k,1743) = lu(k,1743) - lu(k,1715) * lu(k,1731)
7991 254840160 : lu(k,1744) = lu(k,1744) - lu(k,1716) * lu(k,1731)
7992 254840160 : lu(k,1747) = lu(k,1747) - lu(k,1717) * lu(k,1731)
7993 254840160 : lu(k,1760) = lu(k,1760) - lu(k,1713) * lu(k,1753)
7994 254840160 : lu(k,1764) = lu(k,1764) - lu(k,1714) * lu(k,1753)
7995 254840160 : lu(k,1765) = lu(k,1765) - lu(k,1715) * lu(k,1753)
7996 254840160 : lu(k,1766) = lu(k,1766) - lu(k,1716) * lu(k,1753)
7997 254840160 : lu(k,1769) = lu(k,1769) - lu(k,1717) * lu(k,1753)
7998 254840160 : lu(k,1796) = lu(k,1796) - lu(k,1713) * lu(k,1790)
7999 254840160 : lu(k,1798) = lu(k,1798) - lu(k,1714) * lu(k,1790)
8000 254840160 : lu(k,1799) = lu(k,1799) - lu(k,1715) * lu(k,1790)
8001 254840160 : lu(k,1800) = lu(k,1800) - lu(k,1716) * lu(k,1790)
8002 254840160 : lu(k,1802) = lu(k,1802) - lu(k,1717) * lu(k,1790)
8003 254840160 : lu(k,1823) = lu(k,1823) - lu(k,1713) * lu(k,1814)
8004 254840160 : lu(k,1828) = lu(k,1828) - lu(k,1714) * lu(k,1814)
8005 254840160 : lu(k,1829) = lu(k,1829) - lu(k,1715) * lu(k,1814)
8006 254840160 : lu(k,1830) = lu(k,1830) - lu(k,1716) * lu(k,1814)
8007 254840160 : lu(k,1833) = lu(k,1833) - lu(k,1717) * lu(k,1814)
8008 254840160 : lu(k,1855) = lu(k,1855) - lu(k,1713) * lu(k,1846)
8009 254840160 : lu(k,1859) = lu(k,1859) - lu(k,1714) * lu(k,1846)
8010 254840160 : lu(k,1860) = lu(k,1860) - lu(k,1715) * lu(k,1846)
8011 254840160 : lu(k,1861) = lu(k,1861) - lu(k,1716) * lu(k,1846)
8012 254840160 : lu(k,1864) = lu(k,1864) - lu(k,1717) * lu(k,1846)
8013 254840160 : lu(k,1875) = lu(k,1875) - lu(k,1713) * lu(k,1869)
8014 254840160 : lu(k,1878) = lu(k,1878) - lu(k,1714) * lu(k,1869)
8015 254840160 : lu(k,1879) = - lu(k,1715) * lu(k,1869)
8016 254840160 : lu(k,1880) = lu(k,1880) - lu(k,1716) * lu(k,1869)
8017 254840160 : lu(k,1882) = lu(k,1882) - lu(k,1717) * lu(k,1869)
8018 254840160 : lu(k,1903) = lu(k,1903) - lu(k,1713) * lu(k,1892)
8019 254840160 : lu(k,1906) = lu(k,1906) - lu(k,1714) * lu(k,1892)
8020 254840160 : lu(k,1907) = lu(k,1907) - lu(k,1715) * lu(k,1892)
8021 254840160 : lu(k,1908) = lu(k,1908) - lu(k,1716) * lu(k,1892)
8022 254840160 : lu(k,1910) = lu(k,1910) - lu(k,1717) * lu(k,1892)
8023 254840160 : lu(k,1918) = lu(k,1918) - lu(k,1713) * lu(k,1915)
8024 254840160 : lu(k,1921) = lu(k,1921) - lu(k,1714) * lu(k,1915)
8025 254840160 : lu(k,1922) = lu(k,1922) - lu(k,1715) * lu(k,1915)
8026 254840160 : lu(k,1923) = lu(k,1923) - lu(k,1716) * lu(k,1915)
8027 254840160 : lu(k,1925) = lu(k,1925) - lu(k,1717) * lu(k,1915)
8028 254840160 : lu(k,1957) = lu(k,1957) - lu(k,1713) * lu(k,1943)
8029 254840160 : lu(k,1962) = lu(k,1962) - lu(k,1714) * lu(k,1943)
8030 254840160 : lu(k,1963) = lu(k,1963) - lu(k,1715) * lu(k,1943)
8031 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1716) * lu(k,1943)
8032 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1717) * lu(k,1943)
8033 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1713) * lu(k,1980)
8034 254840160 : lu(k,2001) = lu(k,2001) - lu(k,1714) * lu(k,1980)
8035 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1715) * lu(k,1980)
8036 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1716) * lu(k,1980)
8037 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1717) * lu(k,1980)
8038 254840160 : lu(k,2042) = lu(k,2042) - lu(k,1713) * lu(k,2037)
8039 254840160 : lu(k,2047) = lu(k,2047) - lu(k,1714) * lu(k,2037)
8040 254840160 : lu(k,2048) = lu(k,2048) - lu(k,1715) * lu(k,2037)
8041 254840160 : lu(k,2049) = lu(k,2049) - lu(k,1716) * lu(k,2037)
8042 254840160 : lu(k,2054) = lu(k,2054) - lu(k,1717) * lu(k,2037)
8043 254840160 : lu(k,2077) = lu(k,2077) - lu(k,1713) * lu(k,2070)
8044 254840160 : lu(k,2084) = lu(k,2084) - lu(k,1714) * lu(k,2070)
8045 254840160 : lu(k,2085) = lu(k,2085) - lu(k,1715) * lu(k,2070)
8046 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1716) * lu(k,2070)
8047 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1717) * lu(k,2070)
8048 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1713) * lu(k,2102)
8049 254840160 : lu(k,2116) = lu(k,2116) - lu(k,1714) * lu(k,2102)
8050 254840160 : lu(k,2117) = lu(k,2117) - lu(k,1715) * lu(k,2102)
8051 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1716) * lu(k,2102)
8052 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1717) * lu(k,2102)
8053 254840160 : lu(k,2139) = lu(k,2139) - lu(k,1713) * lu(k,2132)
8054 254840160 : lu(k,2145) = lu(k,2145) - lu(k,1714) * lu(k,2132)
8055 254840160 : lu(k,2146) = lu(k,2146) - lu(k,1715) * lu(k,2132)
8056 254840160 : lu(k,2147) = lu(k,2147) - lu(k,1716) * lu(k,2132)
8057 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1717) * lu(k,2132)
8058 254840160 : lu(k,2176) = lu(k,2176) - lu(k,1713) * lu(k,2168)
8059 254840160 : lu(k,2187) = lu(k,2187) - lu(k,1714) * lu(k,2168)
8060 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1715) * lu(k,2168)
8061 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1716) * lu(k,2168)
8062 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1717) * lu(k,2168)
8063 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1713) * lu(k,2869)
8064 254840160 : lu(k,2918) = lu(k,2918) - lu(k,1714) * lu(k,2869)
8065 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1715) * lu(k,2869)
8066 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1716) * lu(k,2869)
8067 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1717) * lu(k,2869)
8068 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1713) * lu(k,3057)
8069 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1714) * lu(k,3057)
8070 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1715) * lu(k,3057)
8071 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1716) * lu(k,3057)
8072 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1717) * lu(k,3057)
8073 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1713) * lu(k,3316)
8074 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1714) * lu(k,3316)
8075 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1715) * lu(k,3316)
8076 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1716) * lu(k,3316)
8077 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1717) * lu(k,3316)
8078 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1713) * lu(k,3410)
8079 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1714) * lu(k,3410)
8080 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1715) * lu(k,3410)
8081 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1716) * lu(k,3410)
8082 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1717) * lu(k,3410)
8083 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1713) * lu(k,3555)
8084 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1714) * lu(k,3555)
8085 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1715) * lu(k,3555)
8086 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1716) * lu(k,3555)
8087 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1717) * lu(k,3555)
8088 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1713) * lu(k,3709)
8089 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1714) * lu(k,3709)
8090 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1715) * lu(k,3709)
8091 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1716) * lu(k,3709)
8092 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1717) * lu(k,3709)
8093 254840160 : lu(k,3832) = lu(k,3832) - lu(k,1713) * lu(k,3831)
8094 254840160 : lu(k,3840) = lu(k,3840) - lu(k,1714) * lu(k,3831)
8095 254840160 : lu(k,3841) = lu(k,3841) - lu(k,1715) * lu(k,3831)
8096 254840160 : lu(k,3842) = lu(k,3842) - lu(k,1716) * lu(k,3831)
8097 254840160 : lu(k,3851) = lu(k,3851) - lu(k,1717) * lu(k,3831)
8098 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1713) * lu(k,4040)
8099 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1714) * lu(k,4040)
8100 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1715) * lu(k,4040)
8101 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1716) * lu(k,4040)
8102 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1717) * lu(k,4040)
8103 254840160 : lu(k,1718) = 1._r8 / lu(k,1718)
8104 254840160 : lu(k,1719) = lu(k,1719) * lu(k,1718)
8105 254840160 : lu(k,1720) = lu(k,1720) * lu(k,1718)
8106 254840160 : lu(k,1721) = lu(k,1721) * lu(k,1718)
8107 254840160 : lu(k,1722) = lu(k,1722) * lu(k,1718)
8108 254840160 : lu(k,1723) = lu(k,1723) * lu(k,1718)
8109 254840160 : lu(k,1724) = lu(k,1724) * lu(k,1718)
8110 254840160 : lu(k,1725) = lu(k,1725) * lu(k,1718)
8111 254840160 : lu(k,2234) = lu(k,2234) - lu(k,1719) * lu(k,2233)
8112 254840160 : lu(k,2239) = lu(k,2239) - lu(k,1720) * lu(k,2233)
8113 254840160 : lu(k,2242) = lu(k,2242) - lu(k,1721) * lu(k,2233)
8114 254840160 : lu(k,2245) = lu(k,2245) - lu(k,1722) * lu(k,2233)
8115 254840160 : lu(k,2249) = lu(k,2249) - lu(k,1723) * lu(k,2233)
8116 254840160 : lu(k,2251) = lu(k,2251) - lu(k,1724) * lu(k,2233)
8117 254840160 : lu(k,2253) = lu(k,2253) - lu(k,1725) * lu(k,2233)
8118 254840160 : lu(k,2319) = - lu(k,1719) * lu(k,2318)
8119 254840160 : lu(k,2323) = - lu(k,1720) * lu(k,2318)
8120 254840160 : lu(k,2324) = - lu(k,1721) * lu(k,2318)
8121 254840160 : lu(k,2325) = - lu(k,1722) * lu(k,2318)
8122 254840160 : lu(k,2329) = lu(k,2329) - lu(k,1723) * lu(k,2318)
8123 254840160 : lu(k,2330) = - lu(k,1724) * lu(k,2318)
8124 254840160 : lu(k,2332) = lu(k,2332) - lu(k,1725) * lu(k,2318)
8125 254840160 : lu(k,2376) = lu(k,2376) - lu(k,1719) * lu(k,2375)
8126 254840160 : lu(k,2383) = lu(k,2383) - lu(k,1720) * lu(k,2375)
8127 254840160 : lu(k,2386) = lu(k,2386) - lu(k,1721) * lu(k,2375)
8128 254840160 : lu(k,2389) = lu(k,2389) - lu(k,1722) * lu(k,2375)
8129 254840160 : lu(k,2393) = lu(k,2393) - lu(k,1723) * lu(k,2375)
8130 254840160 : lu(k,2395) = lu(k,2395) - lu(k,1724) * lu(k,2375)
8131 254840160 : lu(k,2397) = lu(k,2397) - lu(k,1725) * lu(k,2375)
8132 254840160 : lu(k,2437) = lu(k,2437) - lu(k,1719) * lu(k,2436)
8133 254840160 : lu(k,2444) = lu(k,2444) - lu(k,1720) * lu(k,2436)
8134 254840160 : lu(k,2447) = lu(k,2447) - lu(k,1721) * lu(k,2436)
8135 254840160 : lu(k,2450) = lu(k,2450) - lu(k,1722) * lu(k,2436)
8136 254840160 : lu(k,2454) = lu(k,2454) - lu(k,1723) * lu(k,2436)
8137 254840160 : lu(k,2456) = lu(k,2456) - lu(k,1724) * lu(k,2436)
8138 254840160 : lu(k,2458) = lu(k,2458) - lu(k,1725) * lu(k,2436)
8139 254840160 : lu(k,2534) = lu(k,2534) - lu(k,1719) * lu(k,2533)
8140 254840160 : lu(k,2538) = lu(k,2538) - lu(k,1720) * lu(k,2533)
8141 254840160 : lu(k,2541) = lu(k,2541) - lu(k,1721) * lu(k,2533)
8142 254840160 : lu(k,2544) = lu(k,2544) - lu(k,1722) * lu(k,2533)
8143 254840160 : lu(k,2548) = lu(k,2548) - lu(k,1723) * lu(k,2533)
8144 254840160 : lu(k,2550) = lu(k,2550) - lu(k,1724) * lu(k,2533)
8145 254840160 : lu(k,2552) = lu(k,2552) - lu(k,1725) * lu(k,2533)
8146 254840160 : lu(k,2627) = lu(k,2627) - lu(k,1719) * lu(k,2626)
8147 254840160 : lu(k,2631) = - lu(k,1720) * lu(k,2626)
8148 254840160 : lu(k,2633) = lu(k,2633) - lu(k,1721) * lu(k,2626)
8149 254840160 : lu(k,2635) = - lu(k,1722) * lu(k,2626)
8150 254840160 : lu(k,2640) = lu(k,2640) - lu(k,1723) * lu(k,2626)
8151 254840160 : lu(k,2641) = lu(k,2641) - lu(k,1724) * lu(k,2626)
8152 254840160 : lu(k,2645) = lu(k,2645) - lu(k,1725) * lu(k,2626)
8153 254840160 : lu(k,2674) = lu(k,2674) - lu(k,1719) * lu(k,2673)
8154 254840160 : lu(k,2677) = lu(k,2677) - lu(k,1720) * lu(k,2673)
8155 254840160 : lu(k,2680) = lu(k,2680) - lu(k,1721) * lu(k,2673)
8156 254840160 : lu(k,2683) = - lu(k,1722) * lu(k,2673)
8157 254840160 : lu(k,2687) = lu(k,2687) - lu(k,1723) * lu(k,2673)
8158 254840160 : lu(k,2689) = lu(k,2689) - lu(k,1724) * lu(k,2673)
8159 254840160 : lu(k,2691) = lu(k,2691) - lu(k,1725) * lu(k,2673)
8160 254840160 : lu(k,2725) = lu(k,2725) - lu(k,1719) * lu(k,2724)
8161 254840160 : lu(k,2743) = lu(k,2743) - lu(k,1720) * lu(k,2724)
8162 254840160 : lu(k,2746) = lu(k,2746) - lu(k,1721) * lu(k,2724)
8163 254840160 : lu(k,2749) = lu(k,2749) - lu(k,1722) * lu(k,2724)
8164 254840160 : lu(k,2754) = lu(k,2754) - lu(k,1723) * lu(k,2724)
8165 254840160 : lu(k,2756) = lu(k,2756) - lu(k,1724) * lu(k,2724)
8166 254840160 : lu(k,2760) = lu(k,2760) - lu(k,1725) * lu(k,2724)
8167 254840160 : lu(k,2771) = lu(k,2771) - lu(k,1719) * lu(k,2770)
8168 254840160 : lu(k,2789) = lu(k,2789) - lu(k,1720) * lu(k,2770)
8169 254840160 : lu(k,2792) = lu(k,2792) - lu(k,1721) * lu(k,2770)
8170 254840160 : lu(k,2795) = lu(k,2795) - lu(k,1722) * lu(k,2770)
8171 254840160 : lu(k,2800) = lu(k,2800) - lu(k,1723) * lu(k,2770)
8172 254840160 : lu(k,2802) = lu(k,2802) - lu(k,1724) * lu(k,2770)
8173 254840160 : lu(k,2806) = lu(k,2806) - lu(k,1725) * lu(k,2770)
8174 254840160 : lu(k,2818) = lu(k,2818) - lu(k,1719) * lu(k,2817)
8175 254840160 : lu(k,2836) = lu(k,2836) - lu(k,1720) * lu(k,2817)
8176 254840160 : lu(k,2839) = lu(k,2839) - lu(k,1721) * lu(k,2817)
8177 254840160 : lu(k,2842) = lu(k,2842) - lu(k,1722) * lu(k,2817)
8178 254840160 : lu(k,2847) = lu(k,2847) - lu(k,1723) * lu(k,2817)
8179 254840160 : lu(k,2849) = lu(k,2849) - lu(k,1724) * lu(k,2817)
8180 254840160 : lu(k,2853) = lu(k,2853) - lu(k,1725) * lu(k,2817)
8181 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1719) * lu(k,2870)
8182 254840160 : lu(k,2908) = lu(k,2908) - lu(k,1720) * lu(k,2870)
8183 254840160 : lu(k,2911) = lu(k,2911) - lu(k,1721) * lu(k,2870)
8184 254840160 : lu(k,2915) = lu(k,2915) - lu(k,1722) * lu(k,2870)
8185 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1723) * lu(k,2870)
8186 254840160 : lu(k,2922) = lu(k,2922) - lu(k,1724) * lu(k,2870)
8187 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1725) * lu(k,2870)
8188 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1719) * lu(k,3058)
8189 254840160 : lu(k,3098) = lu(k,3098) - lu(k,1720) * lu(k,3058)
8190 254840160 : lu(k,3101) = lu(k,3101) - lu(k,1721) * lu(k,3058)
8191 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1722) * lu(k,3058)
8192 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1723) * lu(k,3058)
8193 254840160 : lu(k,3114) = lu(k,3114) - lu(k,1724) * lu(k,3058)
8194 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1725) * lu(k,3058)
8195 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1719) * lu(k,3317)
8196 254840160 : lu(k,3357) = lu(k,3357) - lu(k,1720) * lu(k,3317)
8197 254840160 : lu(k,3360) = lu(k,3360) - lu(k,1721) * lu(k,3317)
8198 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1722) * lu(k,3317)
8199 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1723) * lu(k,3317)
8200 254840160 : lu(k,3373) = lu(k,3373) - lu(k,1724) * lu(k,3317)
8201 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1725) * lu(k,3317)
8202 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1719) * lu(k,3411)
8203 254840160 : lu(k,3450) = lu(k,3450) - lu(k,1720) * lu(k,3411)
8204 254840160 : lu(k,3453) = lu(k,3453) - lu(k,1721) * lu(k,3411)
8205 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1722) * lu(k,3411)
8206 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1723) * lu(k,3411)
8207 254840160 : lu(k,3466) = lu(k,3466) - lu(k,1724) * lu(k,3411)
8208 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1725) * lu(k,3411)
8209 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1719) * lu(k,3556)
8210 254840160 : lu(k,3594) = lu(k,3594) - lu(k,1720) * lu(k,3556)
8211 254840160 : lu(k,3597) = lu(k,3597) - lu(k,1721) * lu(k,3556)
8212 254840160 : lu(k,3601) = lu(k,3601) - lu(k,1722) * lu(k,3556)
8213 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1723) * lu(k,3556)
8214 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1724) * lu(k,3556)
8215 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1725) * lu(k,3556)
8216 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1719) * lu(k,3710)
8217 254840160 : lu(k,3748) = - lu(k,1720) * lu(k,3710)
8218 254840160 : lu(k,3751) = lu(k,3751) - lu(k,1721) * lu(k,3710)
8219 254840160 : lu(k,3755) = lu(k,3755) - lu(k,1722) * lu(k,3710)
8220 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1723) * lu(k,3710)
8221 254840160 : lu(k,3764) = lu(k,3764) - lu(k,1724) * lu(k,3710)
8222 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1725) * lu(k,3710)
8223 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1719) * lu(k,4041)
8224 254840160 : lu(k,4080) = lu(k,4080) - lu(k,1720) * lu(k,4041)
8225 254840160 : lu(k,4083) = lu(k,4083) - lu(k,1721) * lu(k,4041)
8226 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1722) * lu(k,4041)
8227 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1723) * lu(k,4041)
8228 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1724) * lu(k,4041)
8229 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1725) * lu(k,4041)
8230 254840160 : lu(k,1732) = 1._r8 / lu(k,1732)
8231 254840160 : lu(k,1733) = lu(k,1733) * lu(k,1732)
8232 254840160 : lu(k,1734) = lu(k,1734) * lu(k,1732)
8233 254840160 : lu(k,1735) = lu(k,1735) * lu(k,1732)
8234 254840160 : lu(k,1736) = lu(k,1736) * lu(k,1732)
8235 254840160 : lu(k,1737) = lu(k,1737) * lu(k,1732)
8236 254840160 : lu(k,1738) = lu(k,1738) * lu(k,1732)
8237 254840160 : lu(k,1739) = lu(k,1739) * lu(k,1732)
8238 254840160 : lu(k,1740) = lu(k,1740) * lu(k,1732)
8239 254840160 : lu(k,1741) = lu(k,1741) * lu(k,1732)
8240 254840160 : lu(k,1742) = lu(k,1742) * lu(k,1732)
8241 254840160 : lu(k,1743) = lu(k,1743) * lu(k,1732)
8242 254840160 : lu(k,1744) = lu(k,1744) * lu(k,1732)
8243 254840160 : lu(k,1745) = lu(k,1745) * lu(k,1732)
8244 254840160 : lu(k,1746) = lu(k,1746) * lu(k,1732)
8245 254840160 : lu(k,1747) = lu(k,1747) * lu(k,1732)
8246 254840160 : lu(k,1945) = lu(k,1945) - lu(k,1733) * lu(k,1944)
8247 254840160 : lu(k,1949) = - lu(k,1734) * lu(k,1944)
8248 254840160 : lu(k,1950) = lu(k,1950) - lu(k,1735) * lu(k,1944)
8249 254840160 : lu(k,1952) = lu(k,1952) - lu(k,1736) * lu(k,1944)
8250 254840160 : lu(k,1953) = lu(k,1953) - lu(k,1737) * lu(k,1944)
8251 254840160 : lu(k,1957) = lu(k,1957) - lu(k,1738) * lu(k,1944)
8252 254840160 : lu(k,1958) = - lu(k,1739) * lu(k,1944)
8253 254840160 : lu(k,1959) = lu(k,1959) - lu(k,1740) * lu(k,1944)
8254 254840160 : lu(k,1961) = lu(k,1961) - lu(k,1741) * lu(k,1944)
8255 254840160 : lu(k,1962) = lu(k,1962) - lu(k,1742) * lu(k,1944)
8256 254840160 : lu(k,1963) = lu(k,1963) - lu(k,1743) * lu(k,1944)
8257 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1744) * lu(k,1944)
8258 254840160 : lu(k,1965) = lu(k,1965) - lu(k,1745) * lu(k,1944)
8259 254840160 : lu(k,1967) = lu(k,1967) - lu(k,1746) * lu(k,1944)
8260 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1747) * lu(k,1944)
8261 254840160 : lu(k,2873) = lu(k,2873) - lu(k,1733) * lu(k,2871)
8262 254840160 : lu(k,2877) = lu(k,2877) - lu(k,1734) * lu(k,2871)
8263 254840160 : lu(k,2878) = - lu(k,1735) * lu(k,2871)
8264 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1736) * lu(k,2871)
8265 254840160 : lu(k,2881) = lu(k,2881) - lu(k,1737) * lu(k,2871)
8266 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1738) * lu(k,2871)
8267 254840160 : lu(k,2887) = - lu(k,1739) * lu(k,2871)
8268 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1740) * lu(k,2871)
8269 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1741) * lu(k,2871)
8270 254840160 : lu(k,2918) = lu(k,2918) - lu(k,1742) * lu(k,2871)
8271 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1743) * lu(k,2871)
8272 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1744) * lu(k,2871)
8273 254840160 : lu(k,2921) = lu(k,2921) - lu(k,1745) * lu(k,2871)
8274 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1746) * lu(k,2871)
8275 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1747) * lu(k,2871)
8276 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1733) * lu(k,3059)
8277 254840160 : lu(k,3066) = lu(k,3066) - lu(k,1734) * lu(k,3059)
8278 254840160 : lu(k,3067) = - lu(k,1735) * lu(k,3059)
8279 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1736) * lu(k,3059)
8280 254840160 : lu(k,3070) = lu(k,3070) - lu(k,1737) * lu(k,3059)
8281 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1738) * lu(k,3059)
8282 254840160 : lu(k,3076) = lu(k,3076) - lu(k,1739) * lu(k,3059)
8283 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1740) * lu(k,3059)
8284 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1741) * lu(k,3059)
8285 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1742) * lu(k,3059)
8286 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1743) * lu(k,3059)
8287 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1744) * lu(k,3059)
8288 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1745) * lu(k,3059)
8289 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1746) * lu(k,3059)
8290 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1747) * lu(k,3059)
8291 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1733) * lu(k,3318)
8292 254840160 : lu(k,3325) = - lu(k,1734) * lu(k,3318)
8293 254840160 : lu(k,3326) = lu(k,3326) - lu(k,1735) * lu(k,3318)
8294 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1736) * lu(k,3318)
8295 254840160 : lu(k,3329) = lu(k,3329) - lu(k,1737) * lu(k,3318)
8296 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1738) * lu(k,3318)
8297 254840160 : lu(k,3335) = - lu(k,1739) * lu(k,3318)
8298 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1740) * lu(k,3318)
8299 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1741) * lu(k,3318)
8300 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1742) * lu(k,3318)
8301 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1743) * lu(k,3318)
8302 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1744) * lu(k,3318)
8303 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1745) * lu(k,3318)
8304 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1746) * lu(k,3318)
8305 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1747) * lu(k,3318)
8306 254840160 : lu(k,3414) = lu(k,3414) - lu(k,1733) * lu(k,3412)
8307 254840160 : lu(k,3419) = lu(k,3419) - lu(k,1734) * lu(k,3412)
8308 254840160 : lu(k,3420) = - lu(k,1735) * lu(k,3412)
8309 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1736) * lu(k,3412)
8310 254840160 : lu(k,3423) = lu(k,3423) - lu(k,1737) * lu(k,3412)
8311 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1738) * lu(k,3412)
8312 254840160 : lu(k,3429) = lu(k,3429) - lu(k,1739) * lu(k,3412)
8313 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1740) * lu(k,3412)
8314 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1741) * lu(k,3412)
8315 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1742) * lu(k,3412)
8316 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1743) * lu(k,3412)
8317 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1744) * lu(k,3412)
8318 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1745) * lu(k,3412)
8319 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1746) * lu(k,3412)
8320 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1747) * lu(k,3412)
8321 254840160 : lu(k,3559) = lu(k,3559) - lu(k,1733) * lu(k,3557)
8322 254840160 : lu(k,3562) = - lu(k,1734) * lu(k,3557)
8323 254840160 : lu(k,3563) = - lu(k,1735) * lu(k,3557)
8324 254840160 : lu(k,3565) = lu(k,3565) - lu(k,1736) * lu(k,3557)
8325 254840160 : lu(k,3566) = lu(k,3566) - lu(k,1737) * lu(k,3557)
8326 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1738) * lu(k,3557)
8327 254840160 : lu(k,3572) = - lu(k,1739) * lu(k,3557)
8328 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1740) * lu(k,3557)
8329 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1741) * lu(k,3557)
8330 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1742) * lu(k,3557)
8331 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1743) * lu(k,3557)
8332 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1744) * lu(k,3557)
8333 254840160 : lu(k,3607) = lu(k,3607) - lu(k,1745) * lu(k,3557)
8334 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1746) * lu(k,3557)
8335 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1747) * lu(k,3557)
8336 254840160 : lu(k,3713) = lu(k,3713) - lu(k,1733) * lu(k,3711)
8337 254840160 : lu(k,3718) = - lu(k,1734) * lu(k,3711)
8338 254840160 : lu(k,3719) = - lu(k,1735) * lu(k,3711)
8339 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1736) * lu(k,3711)
8340 254840160 : lu(k,3722) = lu(k,3722) - lu(k,1737) * lu(k,3711)
8341 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1738) * lu(k,3711)
8342 254840160 : lu(k,3728) = lu(k,3728) - lu(k,1739) * lu(k,3711)
8343 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1740) * lu(k,3711)
8344 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1741) * lu(k,3711)
8345 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1742) * lu(k,3711)
8346 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1743) * lu(k,3711)
8347 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1744) * lu(k,3711)
8348 254840160 : lu(k,3761) = lu(k,3761) - lu(k,1745) * lu(k,3711)
8349 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1746) * lu(k,3711)
8350 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1747) * lu(k,3711)
8351 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1733) * lu(k,4042)
8352 254840160 : lu(k,4049) = lu(k,4049) - lu(k,1734) * lu(k,4042)
8353 254840160 : lu(k,4050) = lu(k,4050) - lu(k,1735) * lu(k,4042)
8354 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1736) * lu(k,4042)
8355 254840160 : lu(k,4053) = lu(k,4053) - lu(k,1737) * lu(k,4042)
8356 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1738) * lu(k,4042)
8357 254840160 : lu(k,4059) = lu(k,4059) - lu(k,1739) * lu(k,4042)
8358 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1740) * lu(k,4042)
8359 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1741) * lu(k,4042)
8360 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1742) * lu(k,4042)
8361 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1743) * lu(k,4042)
8362 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1744) * lu(k,4042)
8363 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1745) * lu(k,4042)
8364 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1746) * lu(k,4042)
8365 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1747) * lu(k,4042)
8366 : end do
8367 8168963 : end subroutine lu_fac39
8368 8168963 : subroutine lu_fac40( avec_len, lu )
8369 : use chem_mods, only : nzcnt
8370 : use shr_kind_mod, only : r8 => shr_kind_r8
8371 : implicit none
8372 : !-----------------------------------------------------------------------
8373 : ! ... dummy args
8374 : !-----------------------------------------------------------------------
8375 : integer, intent(in) :: avec_len
8376 : real(r8), intent(inout) :: lu(veclen,nzcnt)
8377 : !-----------------------------------------------------------------------
8378 : ! ... local variables
8379 : !-----------------------------------------------------------------------
8380 : integer :: k
8381 263009123 : do k = 1,avec_len
8382 254840160 : lu(k,1754) = 1._r8 / lu(k,1754)
8383 254840160 : lu(k,1755) = lu(k,1755) * lu(k,1754)
8384 254840160 : lu(k,1756) = lu(k,1756) * lu(k,1754)
8385 254840160 : lu(k,1757) = lu(k,1757) * lu(k,1754)
8386 254840160 : lu(k,1758) = lu(k,1758) * lu(k,1754)
8387 254840160 : lu(k,1759) = lu(k,1759) * lu(k,1754)
8388 254840160 : lu(k,1760) = lu(k,1760) * lu(k,1754)
8389 254840160 : lu(k,1761) = lu(k,1761) * lu(k,1754)
8390 254840160 : lu(k,1762) = lu(k,1762) * lu(k,1754)
8391 254840160 : lu(k,1763) = lu(k,1763) * lu(k,1754)
8392 254840160 : lu(k,1764) = lu(k,1764) * lu(k,1754)
8393 254840160 : lu(k,1765) = lu(k,1765) * lu(k,1754)
8394 254840160 : lu(k,1766) = lu(k,1766) * lu(k,1754)
8395 254840160 : lu(k,1767) = lu(k,1767) * lu(k,1754)
8396 254840160 : lu(k,1768) = lu(k,1768) * lu(k,1754)
8397 254840160 : lu(k,1769) = lu(k,1769) * lu(k,1754)
8398 254840160 : lu(k,1982) = lu(k,1982) - lu(k,1755) * lu(k,1981)
8399 254840160 : lu(k,1986) = lu(k,1986) - lu(k,1756) * lu(k,1981)
8400 254840160 : lu(k,1987) = lu(k,1987) - lu(k,1757) * lu(k,1981)
8401 254840160 : lu(k,1989) = lu(k,1989) - lu(k,1758) * lu(k,1981)
8402 254840160 : lu(k,1991) = lu(k,1991) - lu(k,1759) * lu(k,1981)
8403 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1760) * lu(k,1981)
8404 254840160 : lu(k,1995) = - lu(k,1761) * lu(k,1981)
8405 254840160 : lu(k,1998) = lu(k,1998) - lu(k,1762) * lu(k,1981)
8406 254840160 : lu(k,2000) = lu(k,2000) - lu(k,1763) * lu(k,1981)
8407 254840160 : lu(k,2001) = lu(k,2001) - lu(k,1764) * lu(k,1981)
8408 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1765) * lu(k,1981)
8409 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1766) * lu(k,1981)
8410 254840160 : lu(k,2004) = lu(k,2004) - lu(k,1767) * lu(k,1981)
8411 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1768) * lu(k,1981)
8412 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1769) * lu(k,1981)
8413 254840160 : lu(k,2873) = lu(k,2873) - lu(k,1755) * lu(k,2872)
8414 254840160 : lu(k,2877) = lu(k,2877) - lu(k,1756) * lu(k,2872)
8415 254840160 : lu(k,2878) = lu(k,2878) - lu(k,1757) * lu(k,2872)
8416 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1758) * lu(k,2872)
8417 254840160 : lu(k,2882) = lu(k,2882) - lu(k,1759) * lu(k,2872)
8418 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1760) * lu(k,2872)
8419 254840160 : lu(k,2886) = - lu(k,1761) * lu(k,2872)
8420 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1762) * lu(k,2872)
8421 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1763) * lu(k,2872)
8422 254840160 : lu(k,2918) = lu(k,2918) - lu(k,1764) * lu(k,2872)
8423 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1765) * lu(k,2872)
8424 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1766) * lu(k,2872)
8425 254840160 : lu(k,2921) = lu(k,2921) - lu(k,1767) * lu(k,2872)
8426 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1768) * lu(k,2872)
8427 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1769) * lu(k,2872)
8428 254840160 : lu(k,3061) = lu(k,3061) - lu(k,1755) * lu(k,3060)
8429 254840160 : lu(k,3066) = lu(k,3066) - lu(k,1756) * lu(k,3060)
8430 254840160 : lu(k,3067) = lu(k,3067) - lu(k,1757) * lu(k,3060)
8431 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1758) * lu(k,3060)
8432 254840160 : lu(k,3071) = lu(k,3071) - lu(k,1759) * lu(k,3060)
8433 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1760) * lu(k,3060)
8434 254840160 : lu(k,3075) = lu(k,3075) - lu(k,1761) * lu(k,3060)
8435 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1762) * lu(k,3060)
8436 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1763) * lu(k,3060)
8437 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1764) * lu(k,3060)
8438 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1765) * lu(k,3060)
8439 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1766) * lu(k,3060)
8440 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1767) * lu(k,3060)
8441 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1768) * lu(k,3060)
8442 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1769) * lu(k,3060)
8443 254840160 : lu(k,3320) = lu(k,3320) - lu(k,1755) * lu(k,3319)
8444 254840160 : lu(k,3325) = lu(k,3325) - lu(k,1756) * lu(k,3319)
8445 254840160 : lu(k,3326) = lu(k,3326) - lu(k,1757) * lu(k,3319)
8446 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1758) * lu(k,3319)
8447 254840160 : lu(k,3330) = lu(k,3330) - lu(k,1759) * lu(k,3319)
8448 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1760) * lu(k,3319)
8449 254840160 : lu(k,3334) = - lu(k,1761) * lu(k,3319)
8450 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1762) * lu(k,3319)
8451 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1763) * lu(k,3319)
8452 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1764) * lu(k,3319)
8453 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1765) * lu(k,3319)
8454 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1766) * lu(k,3319)
8455 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1767) * lu(k,3319)
8456 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1768) * lu(k,3319)
8457 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1769) * lu(k,3319)
8458 254840160 : lu(k,3414) = lu(k,3414) - lu(k,1755) * lu(k,3413)
8459 254840160 : lu(k,3419) = lu(k,3419) - lu(k,1756) * lu(k,3413)
8460 254840160 : lu(k,3420) = lu(k,3420) - lu(k,1757) * lu(k,3413)
8461 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1758) * lu(k,3413)
8462 254840160 : lu(k,3424) = lu(k,3424) - lu(k,1759) * lu(k,3413)
8463 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1760) * lu(k,3413)
8464 254840160 : lu(k,3428) = lu(k,3428) - lu(k,1761) * lu(k,3413)
8465 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1762) * lu(k,3413)
8466 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1763) * lu(k,3413)
8467 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1764) * lu(k,3413)
8468 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1765) * lu(k,3413)
8469 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1766) * lu(k,3413)
8470 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1767) * lu(k,3413)
8471 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1768) * lu(k,3413)
8472 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1769) * lu(k,3413)
8473 254840160 : lu(k,3559) = lu(k,3559) - lu(k,1755) * lu(k,3558)
8474 254840160 : lu(k,3562) = lu(k,3562) - lu(k,1756) * lu(k,3558)
8475 254840160 : lu(k,3563) = lu(k,3563) - lu(k,1757) * lu(k,3558)
8476 254840160 : lu(k,3565) = lu(k,3565) - lu(k,1758) * lu(k,3558)
8477 254840160 : lu(k,3567) = lu(k,3567) - lu(k,1759) * lu(k,3558)
8478 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1760) * lu(k,3558)
8479 254840160 : lu(k,3571) = - lu(k,1761) * lu(k,3558)
8480 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1762) * lu(k,3558)
8481 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1763) * lu(k,3558)
8482 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1764) * lu(k,3558)
8483 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1765) * lu(k,3558)
8484 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1766) * lu(k,3558)
8485 254840160 : lu(k,3607) = lu(k,3607) - lu(k,1767) * lu(k,3558)
8486 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1768) * lu(k,3558)
8487 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1769) * lu(k,3558)
8488 254840160 : lu(k,3713) = lu(k,3713) - lu(k,1755) * lu(k,3712)
8489 254840160 : lu(k,3718) = lu(k,3718) - lu(k,1756) * lu(k,3712)
8490 254840160 : lu(k,3719) = lu(k,3719) - lu(k,1757) * lu(k,3712)
8491 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1758) * lu(k,3712)
8492 254840160 : lu(k,3723) = lu(k,3723) - lu(k,1759) * lu(k,3712)
8493 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1760) * lu(k,3712)
8494 254840160 : lu(k,3727) = lu(k,3727) - lu(k,1761) * lu(k,3712)
8495 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1762) * lu(k,3712)
8496 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1763) * lu(k,3712)
8497 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1764) * lu(k,3712)
8498 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1765) * lu(k,3712)
8499 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1766) * lu(k,3712)
8500 254840160 : lu(k,3761) = lu(k,3761) - lu(k,1767) * lu(k,3712)
8501 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1768) * lu(k,3712)
8502 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1769) * lu(k,3712)
8503 254840160 : lu(k,4044) = lu(k,4044) - lu(k,1755) * lu(k,4043)
8504 254840160 : lu(k,4049) = lu(k,4049) - lu(k,1756) * lu(k,4043)
8505 254840160 : lu(k,4050) = lu(k,4050) - lu(k,1757) * lu(k,4043)
8506 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1758) * lu(k,4043)
8507 254840160 : lu(k,4054) = lu(k,4054) - lu(k,1759) * lu(k,4043)
8508 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1760) * lu(k,4043)
8509 254840160 : lu(k,4058) = lu(k,4058) - lu(k,1761) * lu(k,4043)
8510 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1762) * lu(k,4043)
8511 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1763) * lu(k,4043)
8512 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1764) * lu(k,4043)
8513 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1765) * lu(k,4043)
8514 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1766) * lu(k,4043)
8515 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1767) * lu(k,4043)
8516 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1768) * lu(k,4043)
8517 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1769) * lu(k,4043)
8518 254840160 : lu(k,1770) = 1._r8 / lu(k,1770)
8519 254840160 : lu(k,1771) = lu(k,1771) * lu(k,1770)
8520 254840160 : lu(k,1772) = lu(k,1772) * lu(k,1770)
8521 254840160 : lu(k,1773) = lu(k,1773) * lu(k,1770)
8522 254840160 : lu(k,1774) = lu(k,1774) * lu(k,1770)
8523 254840160 : lu(k,1775) = lu(k,1775) * lu(k,1770)
8524 254840160 : lu(k,1779) = lu(k,1779) - lu(k,1771) * lu(k,1777)
8525 254840160 : lu(k,1781) = lu(k,1781) - lu(k,1772) * lu(k,1777)
8526 254840160 : lu(k,1782) = lu(k,1782) - lu(k,1773) * lu(k,1777)
8527 254840160 : lu(k,1783) = lu(k,1783) - lu(k,1774) * lu(k,1777)
8528 254840160 : lu(k,1785) = lu(k,1785) - lu(k,1775) * lu(k,1777)
8529 254840160 : lu(k,1795) = lu(k,1795) - lu(k,1771) * lu(k,1791)
8530 254840160 : lu(k,1797) = lu(k,1797) - lu(k,1772) * lu(k,1791)
8531 254840160 : lu(k,1799) = lu(k,1799) - lu(k,1773) * lu(k,1791)
8532 254840160 : lu(k,1800) = lu(k,1800) - lu(k,1774) * lu(k,1791)
8533 254840160 : lu(k,1802) = lu(k,1802) - lu(k,1775) * lu(k,1791)
8534 254840160 : lu(k,1820) = lu(k,1820) - lu(k,1771) * lu(k,1815)
8535 254840160 : lu(k,1826) = lu(k,1826) - lu(k,1772) * lu(k,1815)
8536 254840160 : lu(k,1829) = lu(k,1829) - lu(k,1773) * lu(k,1815)
8537 254840160 : lu(k,1830) = lu(k,1830) - lu(k,1774) * lu(k,1815)
8538 254840160 : lu(k,1833) = lu(k,1833) - lu(k,1775) * lu(k,1815)
8539 254840160 : lu(k,1852) = lu(k,1852) - lu(k,1771) * lu(k,1847)
8540 254840160 : lu(k,1857) = lu(k,1857) - lu(k,1772) * lu(k,1847)
8541 254840160 : lu(k,1860) = lu(k,1860) - lu(k,1773) * lu(k,1847)
8542 254840160 : lu(k,1861) = lu(k,1861) - lu(k,1774) * lu(k,1847)
8543 254840160 : lu(k,1864) = lu(k,1864) - lu(k,1775) * lu(k,1847)
8544 254840160 : lu(k,1874) = lu(k,1874) - lu(k,1771) * lu(k,1870)
8545 254840160 : lu(k,1876) = lu(k,1876) - lu(k,1772) * lu(k,1870)
8546 254840160 : lu(k,1879) = lu(k,1879) - lu(k,1773) * lu(k,1870)
8547 254840160 : lu(k,1880) = lu(k,1880) - lu(k,1774) * lu(k,1870)
8548 254840160 : lu(k,1882) = lu(k,1882) - lu(k,1775) * lu(k,1870)
8549 254840160 : lu(k,1898) = lu(k,1898) - lu(k,1771) * lu(k,1893)
8550 254840160 : lu(k,1904) = lu(k,1904) - lu(k,1772) * lu(k,1893)
8551 254840160 : lu(k,1907) = lu(k,1907) - lu(k,1773) * lu(k,1893)
8552 254840160 : lu(k,1908) = lu(k,1908) - lu(k,1774) * lu(k,1893)
8553 254840160 : lu(k,1910) = lu(k,1910) - lu(k,1775) * lu(k,1893)
8554 254840160 : lu(k,1952) = lu(k,1952) - lu(k,1771) * lu(k,1945)
8555 254840160 : lu(k,1959) = lu(k,1959) - lu(k,1772) * lu(k,1945)
8556 254840160 : lu(k,1963) = lu(k,1963) - lu(k,1773) * lu(k,1945)
8557 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1774) * lu(k,1945)
8558 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1775) * lu(k,1945)
8559 254840160 : lu(k,1989) = lu(k,1989) - lu(k,1771) * lu(k,1982)
8560 254840160 : lu(k,1998) = lu(k,1998) - lu(k,1772) * lu(k,1982)
8561 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1773) * lu(k,1982)
8562 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1774) * lu(k,1982)
8563 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1775) * lu(k,1982)
8564 254840160 : lu(k,2015) = lu(k,2015) - lu(k,1771) * lu(k,2013)
8565 254840160 : lu(k,2019) = lu(k,2019) - lu(k,1772) * lu(k,2013)
8566 254840160 : lu(k,2023) = lu(k,2023) - lu(k,1773) * lu(k,2013)
8567 254840160 : lu(k,2024) = lu(k,2024) - lu(k,1774) * lu(k,2013)
8568 254840160 : lu(k,2029) = lu(k,2029) - lu(k,1775) * lu(k,2013)
8569 254840160 : lu(k,2040) = lu(k,2040) - lu(k,1771) * lu(k,2038)
8570 254840160 : lu(k,2044) = lu(k,2044) - lu(k,1772) * lu(k,2038)
8571 254840160 : lu(k,2048) = lu(k,2048) - lu(k,1773) * lu(k,2038)
8572 254840160 : lu(k,2049) = lu(k,2049) - lu(k,1774) * lu(k,2038)
8573 254840160 : lu(k,2054) = lu(k,2054) - lu(k,1775) * lu(k,2038)
8574 254840160 : lu(k,2076) = lu(k,2076) - lu(k,1771) * lu(k,2071)
8575 254840160 : lu(k,2080) = lu(k,2080) - lu(k,1772) * lu(k,2071)
8576 254840160 : lu(k,2085) = lu(k,2085) - lu(k,1773) * lu(k,2071)
8577 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1774) * lu(k,2071)
8578 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1775) * lu(k,2071)
8579 254840160 : lu(k,2108) = lu(k,2108) - lu(k,1771) * lu(k,2103)
8580 254840160 : lu(k,2112) = lu(k,2112) - lu(k,1772) * lu(k,2103)
8581 254840160 : lu(k,2117) = lu(k,2117) - lu(k,1773) * lu(k,2103)
8582 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1774) * lu(k,2103)
8583 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1775) * lu(k,2103)
8584 254840160 : lu(k,2138) = lu(k,2138) - lu(k,1771) * lu(k,2133)
8585 254840160 : lu(k,2141) = lu(k,2141) - lu(k,1772) * lu(k,2133)
8586 254840160 : lu(k,2146) = lu(k,2146) - lu(k,1773) * lu(k,2133)
8587 254840160 : lu(k,2147) = lu(k,2147) - lu(k,1774) * lu(k,2133)
8588 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1775) * lu(k,2133)
8589 254840160 : lu(k,2173) = lu(k,2173) - lu(k,1771) * lu(k,2169)
8590 254840160 : lu(k,2183) = lu(k,2183) - lu(k,1772) * lu(k,2169)
8591 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1773) * lu(k,2169)
8592 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1774) * lu(k,2169)
8593 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1775) * lu(k,2169)
8594 254840160 : lu(k,2275) = lu(k,2275) - lu(k,1771) * lu(k,2274)
8595 254840160 : lu(k,2278) = lu(k,2278) - lu(k,1772) * lu(k,2274)
8596 254840160 : lu(k,2282) = lu(k,2282) - lu(k,1773) * lu(k,2274)
8597 254840160 : lu(k,2283) = lu(k,2283) - lu(k,1774) * lu(k,2274)
8598 254840160 : lu(k,2287) = lu(k,2287) - lu(k,1775) * lu(k,2274)
8599 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1771) * lu(k,2873)
8600 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1772) * lu(k,2873)
8601 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1773) * lu(k,2873)
8602 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1774) * lu(k,2873)
8603 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1775) * lu(k,2873)
8604 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1771) * lu(k,3061)
8605 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1772) * lu(k,3061)
8606 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1773) * lu(k,3061)
8607 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1774) * lu(k,3061)
8608 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1775) * lu(k,3061)
8609 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1771) * lu(k,3320)
8610 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1772) * lu(k,3320)
8611 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1773) * lu(k,3320)
8612 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1774) * lu(k,3320)
8613 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1775) * lu(k,3320)
8614 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1771) * lu(k,3414)
8615 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1772) * lu(k,3414)
8616 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1773) * lu(k,3414)
8617 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1774) * lu(k,3414)
8618 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1775) * lu(k,3414)
8619 254840160 : lu(k,3565) = lu(k,3565) - lu(k,1771) * lu(k,3559)
8620 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1772) * lu(k,3559)
8621 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1773) * lu(k,3559)
8622 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1774) * lu(k,3559)
8623 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1775) * lu(k,3559)
8624 254840160 : lu(k,3643) = lu(k,3643) - lu(k,1771) * lu(k,3642)
8625 254840160 : lu(k,3651) = lu(k,3651) - lu(k,1772) * lu(k,3642)
8626 254840160 : lu(k,3657) = lu(k,3657) - lu(k,1773) * lu(k,3642)
8627 254840160 : lu(k,3658) = lu(k,3658) - lu(k,1774) * lu(k,3642)
8628 254840160 : lu(k,3667) = lu(k,3667) - lu(k,1775) * lu(k,3642)
8629 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1771) * lu(k,3713)
8630 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1772) * lu(k,3713)
8631 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1773) * lu(k,3713)
8632 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1774) * lu(k,3713)
8633 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1775) * lu(k,3713)
8634 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1771) * lu(k,4044)
8635 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1772) * lu(k,4044)
8636 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1773) * lu(k,4044)
8637 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1774) * lu(k,4044)
8638 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1775) * lu(k,4044)
8639 254840160 : lu(k,1778) = 1._r8 / lu(k,1778)
8640 254840160 : lu(k,1779) = lu(k,1779) * lu(k,1778)
8641 254840160 : lu(k,1780) = lu(k,1780) * lu(k,1778)
8642 254840160 : lu(k,1781) = lu(k,1781) * lu(k,1778)
8643 254840160 : lu(k,1782) = lu(k,1782) * lu(k,1778)
8644 254840160 : lu(k,1783) = lu(k,1783) * lu(k,1778)
8645 254840160 : lu(k,1784) = lu(k,1784) * lu(k,1778)
8646 254840160 : lu(k,1785) = lu(k,1785) * lu(k,1778)
8647 254840160 : lu(k,1795) = lu(k,1795) - lu(k,1779) * lu(k,1792)
8648 254840160 : lu(k,1796) = lu(k,1796) - lu(k,1780) * lu(k,1792)
8649 254840160 : lu(k,1797) = lu(k,1797) - lu(k,1781) * lu(k,1792)
8650 254840160 : lu(k,1799) = lu(k,1799) - lu(k,1782) * lu(k,1792)
8651 254840160 : lu(k,1800) = lu(k,1800) - lu(k,1783) * lu(k,1792)
8652 254840160 : lu(k,1801) = lu(k,1801) - lu(k,1784) * lu(k,1792)
8653 254840160 : lu(k,1802) = lu(k,1802) - lu(k,1785) * lu(k,1792)
8654 254840160 : lu(k,1820) = lu(k,1820) - lu(k,1779) * lu(k,1816)
8655 254840160 : lu(k,1823) = lu(k,1823) - lu(k,1780) * lu(k,1816)
8656 254840160 : lu(k,1826) = lu(k,1826) - lu(k,1781) * lu(k,1816)
8657 254840160 : lu(k,1829) = lu(k,1829) - lu(k,1782) * lu(k,1816)
8658 254840160 : lu(k,1830) = lu(k,1830) - lu(k,1783) * lu(k,1816)
8659 254840160 : lu(k,1832) = lu(k,1832) - lu(k,1784) * lu(k,1816)
8660 254840160 : lu(k,1833) = lu(k,1833) - lu(k,1785) * lu(k,1816)
8661 254840160 : lu(k,1952) = lu(k,1952) - lu(k,1779) * lu(k,1946)
8662 254840160 : lu(k,1957) = lu(k,1957) - lu(k,1780) * lu(k,1946)
8663 254840160 : lu(k,1959) = lu(k,1959) - lu(k,1781) * lu(k,1946)
8664 254840160 : lu(k,1963) = lu(k,1963) - lu(k,1782) * lu(k,1946)
8665 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1783) * lu(k,1946)
8666 254840160 : lu(k,1967) = lu(k,1967) - lu(k,1784) * lu(k,1946)
8667 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1785) * lu(k,1946)
8668 254840160 : lu(k,1989) = lu(k,1989) - lu(k,1779) * lu(k,1983)
8669 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1780) * lu(k,1983)
8670 254840160 : lu(k,1998) = lu(k,1998) - lu(k,1781) * lu(k,1983)
8671 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1782) * lu(k,1983)
8672 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1783) * lu(k,1983)
8673 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1784) * lu(k,1983)
8674 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1785) * lu(k,1983)
8675 254840160 : lu(k,2015) = lu(k,2015) - lu(k,1779) * lu(k,2014)
8676 254840160 : lu(k,2017) = lu(k,2017) - lu(k,1780) * lu(k,2014)
8677 254840160 : lu(k,2019) = lu(k,2019) - lu(k,1781) * lu(k,2014)
8678 254840160 : lu(k,2023) = lu(k,2023) - lu(k,1782) * lu(k,2014)
8679 254840160 : lu(k,2024) = lu(k,2024) - lu(k,1783) * lu(k,2014)
8680 254840160 : lu(k,2027) = lu(k,2027) - lu(k,1784) * lu(k,2014)
8681 254840160 : lu(k,2029) = lu(k,2029) - lu(k,1785) * lu(k,2014)
8682 254840160 : lu(k,2076) = lu(k,2076) - lu(k,1779) * lu(k,2072)
8683 254840160 : lu(k,2077) = lu(k,2077) - lu(k,1780) * lu(k,2072)
8684 254840160 : lu(k,2080) = lu(k,2080) - lu(k,1781) * lu(k,2072)
8685 254840160 : lu(k,2085) = lu(k,2085) - lu(k,1782) * lu(k,2072)
8686 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1783) * lu(k,2072)
8687 254840160 : lu(k,2088) = lu(k,2088) - lu(k,1784) * lu(k,2072)
8688 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1785) * lu(k,2072)
8689 254840160 : lu(k,2108) = lu(k,2108) - lu(k,1779) * lu(k,2104)
8690 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1780) * lu(k,2104)
8691 254840160 : lu(k,2112) = lu(k,2112) - lu(k,1781) * lu(k,2104)
8692 254840160 : lu(k,2117) = lu(k,2117) - lu(k,1782) * lu(k,2104)
8693 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1783) * lu(k,2104)
8694 254840160 : lu(k,2120) = lu(k,2120) - lu(k,1784) * lu(k,2104)
8695 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1785) * lu(k,2104)
8696 254840160 : lu(k,2138) = lu(k,2138) - lu(k,1779) * lu(k,2134)
8697 254840160 : lu(k,2139) = lu(k,2139) - lu(k,1780) * lu(k,2134)
8698 254840160 : lu(k,2141) = lu(k,2141) - lu(k,1781) * lu(k,2134)
8699 254840160 : lu(k,2146) = lu(k,2146) - lu(k,1782) * lu(k,2134)
8700 254840160 : lu(k,2147) = lu(k,2147) - lu(k,1783) * lu(k,2134)
8701 254840160 : lu(k,2149) = lu(k,2149) - lu(k,1784) * lu(k,2134)
8702 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1785) * lu(k,2134)
8703 254840160 : lu(k,2173) = lu(k,2173) - lu(k,1779) * lu(k,2170)
8704 254840160 : lu(k,2176) = lu(k,2176) - lu(k,1780) * lu(k,2170)
8705 254840160 : lu(k,2183) = lu(k,2183) - lu(k,1781) * lu(k,2170)
8706 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1782) * lu(k,2170)
8707 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1783) * lu(k,2170)
8708 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1784) * lu(k,2170)
8709 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1785) * lu(k,2170)
8710 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1779) * lu(k,2874)
8711 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1780) * lu(k,2874)
8712 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1781) * lu(k,2874)
8713 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1782) * lu(k,2874)
8714 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1783) * lu(k,2874)
8715 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1784) * lu(k,2874)
8716 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1785) * lu(k,2874)
8717 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1779) * lu(k,3062)
8718 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1780) * lu(k,3062)
8719 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1781) * lu(k,3062)
8720 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1782) * lu(k,3062)
8721 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1783) * lu(k,3062)
8722 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1784) * lu(k,3062)
8723 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1785) * lu(k,3062)
8724 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1779) * lu(k,3321)
8725 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1780) * lu(k,3321)
8726 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1781) * lu(k,3321)
8727 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1782) * lu(k,3321)
8728 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1783) * lu(k,3321)
8729 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1784) * lu(k,3321)
8730 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1785) * lu(k,3321)
8731 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1779) * lu(k,3415)
8732 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1780) * lu(k,3415)
8733 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1781) * lu(k,3415)
8734 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1782) * lu(k,3415)
8735 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1783) * lu(k,3415)
8736 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1784) * lu(k,3415)
8737 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1785) * lu(k,3415)
8738 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1779) * lu(k,3714)
8739 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1780) * lu(k,3714)
8740 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1781) * lu(k,3714)
8741 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1782) * lu(k,3714)
8742 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1783) * lu(k,3714)
8743 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1784) * lu(k,3714)
8744 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1785) * lu(k,3714)
8745 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1779) * lu(k,4045)
8746 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1780) * lu(k,4045)
8747 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1781) * lu(k,4045)
8748 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1782) * lu(k,4045)
8749 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1783) * lu(k,4045)
8750 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1784) * lu(k,4045)
8751 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1785) * lu(k,4045)
8752 254840160 : lu(k,1793) = 1._r8 / lu(k,1793)
8753 254840160 : lu(k,1794) = lu(k,1794) * lu(k,1793)
8754 254840160 : lu(k,1795) = lu(k,1795) * lu(k,1793)
8755 254840160 : lu(k,1796) = lu(k,1796) * lu(k,1793)
8756 254840160 : lu(k,1797) = lu(k,1797) * lu(k,1793)
8757 254840160 : lu(k,1798) = lu(k,1798) * lu(k,1793)
8758 254840160 : lu(k,1799) = lu(k,1799) * lu(k,1793)
8759 254840160 : lu(k,1800) = lu(k,1800) * lu(k,1793)
8760 254840160 : lu(k,1801) = lu(k,1801) * lu(k,1793)
8761 254840160 : lu(k,1802) = lu(k,1802) * lu(k,1793)
8762 254840160 : lu(k,1873) = - lu(k,1794) * lu(k,1871)
8763 254840160 : lu(k,1874) = lu(k,1874) - lu(k,1795) * lu(k,1871)
8764 254840160 : lu(k,1875) = lu(k,1875) - lu(k,1796) * lu(k,1871)
8765 254840160 : lu(k,1876) = lu(k,1876) - lu(k,1797) * lu(k,1871)
8766 254840160 : lu(k,1878) = lu(k,1878) - lu(k,1798) * lu(k,1871)
8767 254840160 : lu(k,1879) = lu(k,1879) - lu(k,1799) * lu(k,1871)
8768 254840160 : lu(k,1880) = lu(k,1880) - lu(k,1800) * lu(k,1871)
8769 254840160 : lu(k,1881) = lu(k,1881) - lu(k,1801) * lu(k,1871)
8770 254840160 : lu(k,1882) = lu(k,1882) - lu(k,1802) * lu(k,1871)
8771 254840160 : lu(k,1897) = - lu(k,1794) * lu(k,1894)
8772 254840160 : lu(k,1898) = lu(k,1898) - lu(k,1795) * lu(k,1894)
8773 254840160 : lu(k,1903) = lu(k,1903) - lu(k,1796) * lu(k,1894)
8774 254840160 : lu(k,1904) = lu(k,1904) - lu(k,1797) * lu(k,1894)
8775 254840160 : lu(k,1906) = lu(k,1906) - lu(k,1798) * lu(k,1894)
8776 254840160 : lu(k,1907) = lu(k,1907) - lu(k,1799) * lu(k,1894)
8777 254840160 : lu(k,1908) = lu(k,1908) - lu(k,1800) * lu(k,1894)
8778 254840160 : lu(k,1909) = lu(k,1909) - lu(k,1801) * lu(k,1894)
8779 254840160 : lu(k,1910) = lu(k,1910) - lu(k,1802) * lu(k,1894)
8780 254840160 : lu(k,1951) = lu(k,1951) - lu(k,1794) * lu(k,1947)
8781 254840160 : lu(k,1952) = lu(k,1952) - lu(k,1795) * lu(k,1947)
8782 254840160 : lu(k,1957) = lu(k,1957) - lu(k,1796) * lu(k,1947)
8783 254840160 : lu(k,1959) = lu(k,1959) - lu(k,1797) * lu(k,1947)
8784 254840160 : lu(k,1962) = lu(k,1962) - lu(k,1798) * lu(k,1947)
8785 254840160 : lu(k,1963) = lu(k,1963) - lu(k,1799) * lu(k,1947)
8786 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1800) * lu(k,1947)
8787 254840160 : lu(k,1967) = lu(k,1967) - lu(k,1801) * lu(k,1947)
8788 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1802) * lu(k,1947)
8789 254840160 : lu(k,1988) = lu(k,1988) - lu(k,1794) * lu(k,1984)
8790 254840160 : lu(k,1989) = lu(k,1989) - lu(k,1795) * lu(k,1984)
8791 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1796) * lu(k,1984)
8792 254840160 : lu(k,1998) = lu(k,1998) - lu(k,1797) * lu(k,1984)
8793 254840160 : lu(k,2001) = lu(k,2001) - lu(k,1798) * lu(k,1984)
8794 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1799) * lu(k,1984)
8795 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1800) * lu(k,1984)
8796 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1801) * lu(k,1984)
8797 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1802) * lu(k,1984)
8798 254840160 : lu(k,2075) = lu(k,2075) - lu(k,1794) * lu(k,2073)
8799 254840160 : lu(k,2076) = lu(k,2076) - lu(k,1795) * lu(k,2073)
8800 254840160 : lu(k,2077) = lu(k,2077) - lu(k,1796) * lu(k,2073)
8801 254840160 : lu(k,2080) = lu(k,2080) - lu(k,1797) * lu(k,2073)
8802 254840160 : lu(k,2084) = lu(k,2084) - lu(k,1798) * lu(k,2073)
8803 254840160 : lu(k,2085) = lu(k,2085) - lu(k,1799) * lu(k,2073)
8804 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1800) * lu(k,2073)
8805 254840160 : lu(k,2088) = lu(k,2088) - lu(k,1801) * lu(k,2073)
8806 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1802) * lu(k,2073)
8807 254840160 : lu(k,2107) = lu(k,2107) - lu(k,1794) * lu(k,2105)
8808 254840160 : lu(k,2108) = lu(k,2108) - lu(k,1795) * lu(k,2105)
8809 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1796) * lu(k,2105)
8810 254840160 : lu(k,2112) = lu(k,2112) - lu(k,1797) * lu(k,2105)
8811 254840160 : lu(k,2116) = lu(k,2116) - lu(k,1798) * lu(k,2105)
8812 254840160 : lu(k,2117) = lu(k,2117) - lu(k,1799) * lu(k,2105)
8813 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1800) * lu(k,2105)
8814 254840160 : lu(k,2120) = lu(k,2120) - lu(k,1801) * lu(k,2105)
8815 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1802) * lu(k,2105)
8816 254840160 : lu(k,2137) = lu(k,2137) - lu(k,1794) * lu(k,2135)
8817 254840160 : lu(k,2138) = lu(k,2138) - lu(k,1795) * lu(k,2135)
8818 254840160 : lu(k,2139) = lu(k,2139) - lu(k,1796) * lu(k,2135)
8819 254840160 : lu(k,2141) = lu(k,2141) - lu(k,1797) * lu(k,2135)
8820 254840160 : lu(k,2145) = lu(k,2145) - lu(k,1798) * lu(k,2135)
8821 254840160 : lu(k,2146) = lu(k,2146) - lu(k,1799) * lu(k,2135)
8822 254840160 : lu(k,2147) = lu(k,2147) - lu(k,1800) * lu(k,2135)
8823 254840160 : lu(k,2149) = lu(k,2149) - lu(k,1801) * lu(k,2135)
8824 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1802) * lu(k,2135)
8825 254840160 : lu(k,2172) = lu(k,2172) - lu(k,1794) * lu(k,2171)
8826 254840160 : lu(k,2173) = lu(k,2173) - lu(k,1795) * lu(k,2171)
8827 254840160 : lu(k,2176) = lu(k,2176) - lu(k,1796) * lu(k,2171)
8828 254840160 : lu(k,2183) = lu(k,2183) - lu(k,1797) * lu(k,2171)
8829 254840160 : lu(k,2187) = lu(k,2187) - lu(k,1798) * lu(k,2171)
8830 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1799) * lu(k,2171)
8831 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1800) * lu(k,2171)
8832 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1801) * lu(k,2171)
8833 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1802) * lu(k,2171)
8834 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1794) * lu(k,3063)
8835 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1795) * lu(k,3063)
8836 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1796) * lu(k,3063)
8837 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1797) * lu(k,3063)
8838 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1798) * lu(k,3063)
8839 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1799) * lu(k,3063)
8840 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1800) * lu(k,3063)
8841 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1801) * lu(k,3063)
8842 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1802) * lu(k,3063)
8843 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1794) * lu(k,3322)
8844 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1795) * lu(k,3322)
8845 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1796) * lu(k,3322)
8846 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1797) * lu(k,3322)
8847 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1798) * lu(k,3322)
8848 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1799) * lu(k,3322)
8849 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1800) * lu(k,3322)
8850 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1801) * lu(k,3322)
8851 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1802) * lu(k,3322)
8852 254840160 : lu(k,3421) = lu(k,3421) - lu(k,1794) * lu(k,3416)
8853 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1795) * lu(k,3416)
8854 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1796) * lu(k,3416)
8855 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1797) * lu(k,3416)
8856 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1798) * lu(k,3416)
8857 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1799) * lu(k,3416)
8858 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1800) * lu(k,3416)
8859 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1801) * lu(k,3416)
8860 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1802) * lu(k,3416)
8861 254840160 : lu(k,3720) = lu(k,3720) - lu(k,1794) * lu(k,3715)
8862 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1795) * lu(k,3715)
8863 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1796) * lu(k,3715)
8864 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1797) * lu(k,3715)
8865 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1798) * lu(k,3715)
8866 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1799) * lu(k,3715)
8867 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1800) * lu(k,3715)
8868 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1801) * lu(k,3715)
8869 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1802) * lu(k,3715)
8870 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1794) * lu(k,4046)
8871 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1795) * lu(k,4046)
8872 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1796) * lu(k,4046)
8873 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1797) * lu(k,4046)
8874 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1798) * lu(k,4046)
8875 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1799) * lu(k,4046)
8876 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1800) * lu(k,4046)
8877 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1801) * lu(k,4046)
8878 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1802) * lu(k,4046)
8879 254840160 : lu(k,1817) = 1._r8 / lu(k,1817)
8880 254840160 : lu(k,1818) = lu(k,1818) * lu(k,1817)
8881 254840160 : lu(k,1819) = lu(k,1819) * lu(k,1817)
8882 254840160 : lu(k,1820) = lu(k,1820) * lu(k,1817)
8883 254840160 : lu(k,1821) = lu(k,1821) * lu(k,1817)
8884 254840160 : lu(k,1822) = lu(k,1822) * lu(k,1817)
8885 254840160 : lu(k,1823) = lu(k,1823) * lu(k,1817)
8886 254840160 : lu(k,1824) = lu(k,1824) * lu(k,1817)
8887 254840160 : lu(k,1825) = lu(k,1825) * lu(k,1817)
8888 254840160 : lu(k,1826) = lu(k,1826) * lu(k,1817)
8889 254840160 : lu(k,1827) = lu(k,1827) * lu(k,1817)
8890 254840160 : lu(k,1828) = lu(k,1828) * lu(k,1817)
8891 254840160 : lu(k,1829) = lu(k,1829) * lu(k,1817)
8892 254840160 : lu(k,1830) = lu(k,1830) * lu(k,1817)
8893 254840160 : lu(k,1831) = lu(k,1831) * lu(k,1817)
8894 254840160 : lu(k,1832) = lu(k,1832) * lu(k,1817)
8895 254840160 : lu(k,1833) = lu(k,1833) * lu(k,1817)
8896 254840160 : lu(k,1986) = lu(k,1986) - lu(k,1818) * lu(k,1985)
8897 254840160 : lu(k,1987) = lu(k,1987) - lu(k,1819) * lu(k,1985)
8898 254840160 : lu(k,1989) = lu(k,1989) - lu(k,1820) * lu(k,1985)
8899 254840160 : lu(k,1991) = lu(k,1991) - lu(k,1821) * lu(k,1985)
8900 254840160 : lu(k,1992) = lu(k,1992) - lu(k,1822) * lu(k,1985)
8901 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1823) * lu(k,1985)
8902 254840160 : lu(k,1995) = lu(k,1995) - lu(k,1824) * lu(k,1985)
8903 254840160 : lu(k,1997) = - lu(k,1825) * lu(k,1985)
8904 254840160 : lu(k,1998) = lu(k,1998) - lu(k,1826) * lu(k,1985)
8905 254840160 : lu(k,2000) = lu(k,2000) - lu(k,1827) * lu(k,1985)
8906 254840160 : lu(k,2001) = lu(k,2001) - lu(k,1828) * lu(k,1985)
8907 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1829) * lu(k,1985)
8908 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1830) * lu(k,1985)
8909 254840160 : lu(k,2004) = lu(k,2004) - lu(k,1831) * lu(k,1985)
8910 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1832) * lu(k,1985)
8911 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1833) * lu(k,1985)
8912 254840160 : lu(k,2877) = lu(k,2877) - lu(k,1818) * lu(k,2875)
8913 254840160 : lu(k,2878) = lu(k,2878) - lu(k,1819) * lu(k,2875)
8914 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1820) * lu(k,2875)
8915 254840160 : lu(k,2882) = lu(k,2882) - lu(k,1821) * lu(k,2875)
8916 254840160 : lu(k,2883) = lu(k,2883) - lu(k,1822) * lu(k,2875)
8917 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1823) * lu(k,2875)
8918 254840160 : lu(k,2886) = lu(k,2886) - lu(k,1824) * lu(k,2875)
8919 254840160 : lu(k,2893) = lu(k,2893) - lu(k,1825) * lu(k,2875)
8920 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1826) * lu(k,2875)
8921 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1827) * lu(k,2875)
8922 254840160 : lu(k,2918) = lu(k,2918) - lu(k,1828) * lu(k,2875)
8923 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1829) * lu(k,2875)
8924 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1830) * lu(k,2875)
8925 254840160 : lu(k,2921) = lu(k,2921) - lu(k,1831) * lu(k,2875)
8926 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1832) * lu(k,2875)
8927 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1833) * lu(k,2875)
8928 254840160 : lu(k,3066) = lu(k,3066) - lu(k,1818) * lu(k,3064)
8929 254840160 : lu(k,3067) = lu(k,3067) - lu(k,1819) * lu(k,3064)
8930 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1820) * lu(k,3064)
8931 254840160 : lu(k,3071) = lu(k,3071) - lu(k,1821) * lu(k,3064)
8932 254840160 : lu(k,3072) = lu(k,3072) - lu(k,1822) * lu(k,3064)
8933 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1823) * lu(k,3064)
8934 254840160 : lu(k,3075) = lu(k,3075) - lu(k,1824) * lu(k,3064)
8935 254840160 : lu(k,3083) = lu(k,3083) - lu(k,1825) * lu(k,3064)
8936 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1826) * lu(k,3064)
8937 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1827) * lu(k,3064)
8938 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1828) * lu(k,3064)
8939 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1829) * lu(k,3064)
8940 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1830) * lu(k,3064)
8941 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1831) * lu(k,3064)
8942 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1832) * lu(k,3064)
8943 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1833) * lu(k,3064)
8944 254840160 : lu(k,3325) = lu(k,3325) - lu(k,1818) * lu(k,3323)
8945 254840160 : lu(k,3326) = lu(k,3326) - lu(k,1819) * lu(k,3323)
8946 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1820) * lu(k,3323)
8947 254840160 : lu(k,3330) = lu(k,3330) - lu(k,1821) * lu(k,3323)
8948 254840160 : lu(k,3331) = lu(k,3331) - lu(k,1822) * lu(k,3323)
8949 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1823) * lu(k,3323)
8950 254840160 : lu(k,3334) = lu(k,3334) - lu(k,1824) * lu(k,3323)
8951 254840160 : lu(k,3342) = lu(k,3342) - lu(k,1825) * lu(k,3323)
8952 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1826) * lu(k,3323)
8953 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1827) * lu(k,3323)
8954 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1828) * lu(k,3323)
8955 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1829) * lu(k,3323)
8956 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1830) * lu(k,3323)
8957 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1831) * lu(k,3323)
8958 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1832) * lu(k,3323)
8959 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1833) * lu(k,3323)
8960 254840160 : lu(k,3419) = lu(k,3419) - lu(k,1818) * lu(k,3417)
8961 254840160 : lu(k,3420) = lu(k,3420) - lu(k,1819) * lu(k,3417)
8962 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1820) * lu(k,3417)
8963 254840160 : lu(k,3424) = lu(k,3424) - lu(k,1821) * lu(k,3417)
8964 254840160 : lu(k,3425) = lu(k,3425) - lu(k,1822) * lu(k,3417)
8965 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1823) * lu(k,3417)
8966 254840160 : lu(k,3428) = lu(k,3428) - lu(k,1824) * lu(k,3417)
8967 254840160 : lu(k,3435) = lu(k,3435) - lu(k,1825) * lu(k,3417)
8968 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1826) * lu(k,3417)
8969 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1827) * lu(k,3417)
8970 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1828) * lu(k,3417)
8971 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1829) * lu(k,3417)
8972 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1830) * lu(k,3417)
8973 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1831) * lu(k,3417)
8974 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1832) * lu(k,3417)
8975 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1833) * lu(k,3417)
8976 254840160 : lu(k,3562) = lu(k,3562) - lu(k,1818) * lu(k,3560)
8977 254840160 : lu(k,3563) = lu(k,3563) - lu(k,1819) * lu(k,3560)
8978 254840160 : lu(k,3565) = lu(k,3565) - lu(k,1820) * lu(k,3560)
8979 254840160 : lu(k,3567) = lu(k,3567) - lu(k,1821) * lu(k,3560)
8980 254840160 : lu(k,3568) = lu(k,3568) - lu(k,1822) * lu(k,3560)
8981 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1823) * lu(k,3560)
8982 254840160 : lu(k,3571) = lu(k,3571) - lu(k,1824) * lu(k,3560)
8983 254840160 : lu(k,3579) = lu(k,3579) - lu(k,1825) * lu(k,3560)
8984 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1826) * lu(k,3560)
8985 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1827) * lu(k,3560)
8986 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1828) * lu(k,3560)
8987 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1829) * lu(k,3560)
8988 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1830) * lu(k,3560)
8989 254840160 : lu(k,3607) = lu(k,3607) - lu(k,1831) * lu(k,3560)
8990 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1832) * lu(k,3560)
8991 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1833) * lu(k,3560)
8992 254840160 : lu(k,3718) = lu(k,3718) - lu(k,1818) * lu(k,3716)
8993 254840160 : lu(k,3719) = lu(k,3719) - lu(k,1819) * lu(k,3716)
8994 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1820) * lu(k,3716)
8995 254840160 : lu(k,3723) = lu(k,3723) - lu(k,1821) * lu(k,3716)
8996 254840160 : lu(k,3724) = lu(k,3724) - lu(k,1822) * lu(k,3716)
8997 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1823) * lu(k,3716)
8998 254840160 : lu(k,3727) = lu(k,3727) - lu(k,1824) * lu(k,3716)
8999 254840160 : lu(k,3734) = lu(k,3734) - lu(k,1825) * lu(k,3716)
9000 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1826) * lu(k,3716)
9001 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1827) * lu(k,3716)
9002 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1828) * lu(k,3716)
9003 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1829) * lu(k,3716)
9004 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1830) * lu(k,3716)
9005 254840160 : lu(k,3761) = lu(k,3761) - lu(k,1831) * lu(k,3716)
9006 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1832) * lu(k,3716)
9007 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1833) * lu(k,3716)
9008 254840160 : lu(k,4049) = lu(k,4049) - lu(k,1818) * lu(k,4047)
9009 254840160 : lu(k,4050) = lu(k,4050) - lu(k,1819) * lu(k,4047)
9010 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1820) * lu(k,4047)
9011 254840160 : lu(k,4054) = lu(k,4054) - lu(k,1821) * lu(k,4047)
9012 254840160 : lu(k,4055) = lu(k,4055) - lu(k,1822) * lu(k,4047)
9013 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1823) * lu(k,4047)
9014 254840160 : lu(k,4058) = lu(k,4058) - lu(k,1824) * lu(k,4047)
9015 254840160 : lu(k,4065) = lu(k,4065) - lu(k,1825) * lu(k,4047)
9016 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1826) * lu(k,4047)
9017 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1827) * lu(k,4047)
9018 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1828) * lu(k,4047)
9019 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1829) * lu(k,4047)
9020 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1830) * lu(k,4047)
9021 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1831) * lu(k,4047)
9022 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1832) * lu(k,4047)
9023 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1833) * lu(k,4047)
9024 : end do
9025 8168963 : end subroutine lu_fac40
9026 8168963 : subroutine lu_fac41( avec_len, lu )
9027 : use chem_mods, only : nzcnt
9028 : use shr_kind_mod, only : r8 => shr_kind_r8
9029 : implicit none
9030 : !-----------------------------------------------------------------------
9031 : ! ... dummy args
9032 : !-----------------------------------------------------------------------
9033 : integer, intent(in) :: avec_len
9034 : real(r8), intent(inout) :: lu(veclen,nzcnt)
9035 : !-----------------------------------------------------------------------
9036 : ! ... local variables
9037 : !-----------------------------------------------------------------------
9038 : integer :: k
9039 263009123 : do k = 1,avec_len
9040 254840160 : lu(k,1848) = 1._r8 / lu(k,1848)
9041 254840160 : lu(k,1849) = lu(k,1849) * lu(k,1848)
9042 254840160 : lu(k,1850) = lu(k,1850) * lu(k,1848)
9043 254840160 : lu(k,1851) = lu(k,1851) * lu(k,1848)
9044 254840160 : lu(k,1852) = lu(k,1852) * lu(k,1848)
9045 254840160 : lu(k,1853) = lu(k,1853) * lu(k,1848)
9046 254840160 : lu(k,1854) = lu(k,1854) * lu(k,1848)
9047 254840160 : lu(k,1855) = lu(k,1855) * lu(k,1848)
9048 254840160 : lu(k,1856) = lu(k,1856) * lu(k,1848)
9049 254840160 : lu(k,1857) = lu(k,1857) * lu(k,1848)
9050 254840160 : lu(k,1858) = lu(k,1858) * lu(k,1848)
9051 254840160 : lu(k,1859) = lu(k,1859) * lu(k,1848)
9052 254840160 : lu(k,1860) = lu(k,1860) * lu(k,1848)
9053 254840160 : lu(k,1861) = lu(k,1861) * lu(k,1848)
9054 254840160 : lu(k,1862) = lu(k,1862) * lu(k,1848)
9055 254840160 : lu(k,1863) = lu(k,1863) * lu(k,1848)
9056 254840160 : lu(k,1864) = lu(k,1864) * lu(k,1848)
9057 254840160 : lu(k,1865) = lu(k,1865) * lu(k,1848)
9058 254840160 : lu(k,1949) = lu(k,1949) - lu(k,1849) * lu(k,1948)
9059 254840160 : lu(k,1950) = lu(k,1950) - lu(k,1850) * lu(k,1948)
9060 254840160 : lu(k,1951) = lu(k,1951) - lu(k,1851) * lu(k,1948)
9061 254840160 : lu(k,1952) = lu(k,1952) - lu(k,1852) * lu(k,1948)
9062 254840160 : lu(k,1953) = lu(k,1953) - lu(k,1853) * lu(k,1948)
9063 254840160 : lu(k,1956) = lu(k,1956) - lu(k,1854) * lu(k,1948)
9064 254840160 : lu(k,1957) = lu(k,1957) - lu(k,1855) * lu(k,1948)
9065 254840160 : lu(k,1958) = lu(k,1958) - lu(k,1856) * lu(k,1948)
9066 254840160 : lu(k,1959) = lu(k,1959) - lu(k,1857) * lu(k,1948)
9067 254840160 : lu(k,1961) = lu(k,1961) - lu(k,1858) * lu(k,1948)
9068 254840160 : lu(k,1962) = lu(k,1962) - lu(k,1859) * lu(k,1948)
9069 254840160 : lu(k,1963) = lu(k,1963) - lu(k,1860) * lu(k,1948)
9070 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1861) * lu(k,1948)
9071 254840160 : lu(k,1965) = lu(k,1965) - lu(k,1862) * lu(k,1948)
9072 254840160 : lu(k,1967) = lu(k,1967) - lu(k,1863) * lu(k,1948)
9073 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1864) * lu(k,1948)
9074 254840160 : lu(k,1969) = - lu(k,1865) * lu(k,1948)
9075 254840160 : lu(k,2877) = lu(k,2877) - lu(k,1849) * lu(k,2876)
9076 254840160 : lu(k,2878) = lu(k,2878) - lu(k,1850) * lu(k,2876)
9077 254840160 : lu(k,2879) = lu(k,2879) - lu(k,1851) * lu(k,2876)
9078 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1852) * lu(k,2876)
9079 254840160 : lu(k,2881) = lu(k,2881) - lu(k,1853) * lu(k,2876)
9080 254840160 : lu(k,2884) = lu(k,2884) - lu(k,1854) * lu(k,2876)
9081 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1855) * lu(k,2876)
9082 254840160 : lu(k,2887) = lu(k,2887) - lu(k,1856) * lu(k,2876)
9083 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1857) * lu(k,2876)
9084 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1858) * lu(k,2876)
9085 254840160 : lu(k,2918) = lu(k,2918) - lu(k,1859) * lu(k,2876)
9086 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1860) * lu(k,2876)
9087 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1861) * lu(k,2876)
9088 254840160 : lu(k,2921) = lu(k,2921) - lu(k,1862) * lu(k,2876)
9089 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1863) * lu(k,2876)
9090 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1864) * lu(k,2876)
9091 254840160 : lu(k,2928) = lu(k,2928) - lu(k,1865) * lu(k,2876)
9092 254840160 : lu(k,3066) = lu(k,3066) - lu(k,1849) * lu(k,3065)
9093 254840160 : lu(k,3067) = lu(k,3067) - lu(k,1850) * lu(k,3065)
9094 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1851) * lu(k,3065)
9095 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1852) * lu(k,3065)
9096 254840160 : lu(k,3070) = lu(k,3070) - lu(k,1853) * lu(k,3065)
9097 254840160 : lu(k,3073) = lu(k,3073) - lu(k,1854) * lu(k,3065)
9098 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1855) * lu(k,3065)
9099 254840160 : lu(k,3076) = lu(k,3076) - lu(k,1856) * lu(k,3065)
9100 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1857) * lu(k,3065)
9101 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1858) * lu(k,3065)
9102 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1859) * lu(k,3065)
9103 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1860) * lu(k,3065)
9104 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1861) * lu(k,3065)
9105 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1862) * lu(k,3065)
9106 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1863) * lu(k,3065)
9107 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1864) * lu(k,3065)
9108 254840160 : lu(k,3120) = lu(k,3120) - lu(k,1865) * lu(k,3065)
9109 254840160 : lu(k,3325) = lu(k,3325) - lu(k,1849) * lu(k,3324)
9110 254840160 : lu(k,3326) = lu(k,3326) - lu(k,1850) * lu(k,3324)
9111 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1851) * lu(k,3324)
9112 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1852) * lu(k,3324)
9113 254840160 : lu(k,3329) = lu(k,3329) - lu(k,1853) * lu(k,3324)
9114 254840160 : lu(k,3332) = lu(k,3332) - lu(k,1854) * lu(k,3324)
9115 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1855) * lu(k,3324)
9116 254840160 : lu(k,3335) = lu(k,3335) - lu(k,1856) * lu(k,3324)
9117 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1857) * lu(k,3324)
9118 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1858) * lu(k,3324)
9119 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1859) * lu(k,3324)
9120 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1860) * lu(k,3324)
9121 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1861) * lu(k,3324)
9122 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1862) * lu(k,3324)
9123 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1863) * lu(k,3324)
9124 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1864) * lu(k,3324)
9125 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1865) * lu(k,3324)
9126 254840160 : lu(k,3419) = lu(k,3419) - lu(k,1849) * lu(k,3418)
9127 254840160 : lu(k,3420) = lu(k,3420) - lu(k,1850) * lu(k,3418)
9128 254840160 : lu(k,3421) = lu(k,3421) - lu(k,1851) * lu(k,3418)
9129 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1852) * lu(k,3418)
9130 254840160 : lu(k,3423) = lu(k,3423) - lu(k,1853) * lu(k,3418)
9131 254840160 : lu(k,3426) = lu(k,3426) - lu(k,1854) * lu(k,3418)
9132 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1855) * lu(k,3418)
9133 254840160 : lu(k,3429) = lu(k,3429) - lu(k,1856) * lu(k,3418)
9134 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1857) * lu(k,3418)
9135 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1858) * lu(k,3418)
9136 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1859) * lu(k,3418)
9137 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1860) * lu(k,3418)
9138 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1861) * lu(k,3418)
9139 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1862) * lu(k,3418)
9140 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1863) * lu(k,3418)
9141 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1864) * lu(k,3418)
9142 254840160 : lu(k,3472) = lu(k,3472) - lu(k,1865) * lu(k,3418)
9143 254840160 : lu(k,3562) = lu(k,3562) - lu(k,1849) * lu(k,3561)
9144 254840160 : lu(k,3563) = lu(k,3563) - lu(k,1850) * lu(k,3561)
9145 254840160 : lu(k,3564) = - lu(k,1851) * lu(k,3561)
9146 254840160 : lu(k,3565) = lu(k,3565) - lu(k,1852) * lu(k,3561)
9147 254840160 : lu(k,3566) = lu(k,3566) - lu(k,1853) * lu(k,3561)
9148 254840160 : lu(k,3569) = lu(k,3569) - lu(k,1854) * lu(k,3561)
9149 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1855) * lu(k,3561)
9150 254840160 : lu(k,3572) = lu(k,3572) - lu(k,1856) * lu(k,3561)
9151 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1857) * lu(k,3561)
9152 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1858) * lu(k,3561)
9153 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1859) * lu(k,3561)
9154 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1860) * lu(k,3561)
9155 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1861) * lu(k,3561)
9156 254840160 : lu(k,3607) = lu(k,3607) - lu(k,1862) * lu(k,3561)
9157 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1863) * lu(k,3561)
9158 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1864) * lu(k,3561)
9159 254840160 : lu(k,3616) = lu(k,3616) - lu(k,1865) * lu(k,3561)
9160 254840160 : lu(k,3718) = lu(k,3718) - lu(k,1849) * lu(k,3717)
9161 254840160 : lu(k,3719) = lu(k,3719) - lu(k,1850) * lu(k,3717)
9162 254840160 : lu(k,3720) = lu(k,3720) - lu(k,1851) * lu(k,3717)
9163 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1852) * lu(k,3717)
9164 254840160 : lu(k,3722) = lu(k,3722) - lu(k,1853) * lu(k,3717)
9165 254840160 : lu(k,3725) = lu(k,3725) - lu(k,1854) * lu(k,3717)
9166 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1855) * lu(k,3717)
9167 254840160 : lu(k,3728) = lu(k,3728) - lu(k,1856) * lu(k,3717)
9168 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1857) * lu(k,3717)
9169 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1858) * lu(k,3717)
9170 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1859) * lu(k,3717)
9171 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1860) * lu(k,3717)
9172 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1861) * lu(k,3717)
9173 254840160 : lu(k,3761) = lu(k,3761) - lu(k,1862) * lu(k,3717)
9174 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1863) * lu(k,3717)
9175 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1864) * lu(k,3717)
9176 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1865) * lu(k,3717)
9177 254840160 : lu(k,4049) = lu(k,4049) - lu(k,1849) * lu(k,4048)
9178 254840160 : lu(k,4050) = lu(k,4050) - lu(k,1850) * lu(k,4048)
9179 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1851) * lu(k,4048)
9180 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1852) * lu(k,4048)
9181 254840160 : lu(k,4053) = lu(k,4053) - lu(k,1853) * lu(k,4048)
9182 254840160 : lu(k,4056) = lu(k,4056) - lu(k,1854) * lu(k,4048)
9183 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1855) * lu(k,4048)
9184 254840160 : lu(k,4059) = lu(k,4059) - lu(k,1856) * lu(k,4048)
9185 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1857) * lu(k,4048)
9186 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1858) * lu(k,4048)
9187 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1859) * lu(k,4048)
9188 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1860) * lu(k,4048)
9189 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1861) * lu(k,4048)
9190 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1862) * lu(k,4048)
9191 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1863) * lu(k,4048)
9192 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1864) * lu(k,4048)
9193 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1865) * lu(k,4048)
9194 254840160 : lu(k,1872) = 1._r8 / lu(k,1872)
9195 254840160 : lu(k,1873) = lu(k,1873) * lu(k,1872)
9196 254840160 : lu(k,1874) = lu(k,1874) * lu(k,1872)
9197 254840160 : lu(k,1875) = lu(k,1875) * lu(k,1872)
9198 254840160 : lu(k,1876) = lu(k,1876) * lu(k,1872)
9199 254840160 : lu(k,1877) = lu(k,1877) * lu(k,1872)
9200 254840160 : lu(k,1878) = lu(k,1878) * lu(k,1872)
9201 254840160 : lu(k,1879) = lu(k,1879) * lu(k,1872)
9202 254840160 : lu(k,1880) = lu(k,1880) * lu(k,1872)
9203 254840160 : lu(k,1881) = lu(k,1881) * lu(k,1872)
9204 254840160 : lu(k,1882) = lu(k,1882) * lu(k,1872)
9205 254840160 : lu(k,1897) = lu(k,1897) - lu(k,1873) * lu(k,1895)
9206 254840160 : lu(k,1898) = lu(k,1898) - lu(k,1874) * lu(k,1895)
9207 254840160 : lu(k,1903) = lu(k,1903) - lu(k,1875) * lu(k,1895)
9208 254840160 : lu(k,1904) = lu(k,1904) - lu(k,1876) * lu(k,1895)
9209 254840160 : lu(k,1905) = lu(k,1905) - lu(k,1877) * lu(k,1895)
9210 254840160 : lu(k,1906) = lu(k,1906) - lu(k,1878) * lu(k,1895)
9211 254840160 : lu(k,1907) = lu(k,1907) - lu(k,1879) * lu(k,1895)
9212 254840160 : lu(k,1908) = lu(k,1908) - lu(k,1880) * lu(k,1895)
9213 254840160 : lu(k,1909) = lu(k,1909) - lu(k,1881) * lu(k,1895)
9214 254840160 : lu(k,1910) = lu(k,1910) - lu(k,1882) * lu(k,1895)
9215 254840160 : lu(k,1951) = lu(k,1951) - lu(k,1873) * lu(k,1949)
9216 254840160 : lu(k,1952) = lu(k,1952) - lu(k,1874) * lu(k,1949)
9217 254840160 : lu(k,1957) = lu(k,1957) - lu(k,1875) * lu(k,1949)
9218 254840160 : lu(k,1959) = lu(k,1959) - lu(k,1876) * lu(k,1949)
9219 254840160 : lu(k,1961) = lu(k,1961) - lu(k,1877) * lu(k,1949)
9220 254840160 : lu(k,1962) = lu(k,1962) - lu(k,1878) * lu(k,1949)
9221 254840160 : lu(k,1963) = lu(k,1963) - lu(k,1879) * lu(k,1949)
9222 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1880) * lu(k,1949)
9223 254840160 : lu(k,1967) = lu(k,1967) - lu(k,1881) * lu(k,1949)
9224 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1882) * lu(k,1949)
9225 254840160 : lu(k,1988) = lu(k,1988) - lu(k,1873) * lu(k,1986)
9226 254840160 : lu(k,1989) = lu(k,1989) - lu(k,1874) * lu(k,1986)
9227 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1875) * lu(k,1986)
9228 254840160 : lu(k,1998) = lu(k,1998) - lu(k,1876) * lu(k,1986)
9229 254840160 : lu(k,2000) = lu(k,2000) - lu(k,1877) * lu(k,1986)
9230 254840160 : lu(k,2001) = lu(k,2001) - lu(k,1878) * lu(k,1986)
9231 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1879) * lu(k,1986)
9232 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1880) * lu(k,1986)
9233 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1881) * lu(k,1986)
9234 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1882) * lu(k,1986)
9235 254840160 : lu(k,2075) = lu(k,2075) - lu(k,1873) * lu(k,2074)
9236 254840160 : lu(k,2076) = lu(k,2076) - lu(k,1874) * lu(k,2074)
9237 254840160 : lu(k,2077) = lu(k,2077) - lu(k,1875) * lu(k,2074)
9238 254840160 : lu(k,2080) = lu(k,2080) - lu(k,1876) * lu(k,2074)
9239 254840160 : lu(k,2082) = lu(k,2082) - lu(k,1877) * lu(k,2074)
9240 254840160 : lu(k,2084) = lu(k,2084) - lu(k,1878) * lu(k,2074)
9241 254840160 : lu(k,2085) = lu(k,2085) - lu(k,1879) * lu(k,2074)
9242 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1880) * lu(k,2074)
9243 254840160 : lu(k,2088) = lu(k,2088) - lu(k,1881) * lu(k,2074)
9244 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1882) * lu(k,2074)
9245 254840160 : lu(k,2107) = lu(k,2107) - lu(k,1873) * lu(k,2106)
9246 254840160 : lu(k,2108) = lu(k,2108) - lu(k,1874) * lu(k,2106)
9247 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1875) * lu(k,2106)
9248 254840160 : lu(k,2112) = lu(k,2112) - lu(k,1876) * lu(k,2106)
9249 254840160 : lu(k,2114) = lu(k,2114) - lu(k,1877) * lu(k,2106)
9250 254840160 : lu(k,2116) = lu(k,2116) - lu(k,1878) * lu(k,2106)
9251 254840160 : lu(k,2117) = lu(k,2117) - lu(k,1879) * lu(k,2106)
9252 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1880) * lu(k,2106)
9253 254840160 : lu(k,2120) = lu(k,2120) - lu(k,1881) * lu(k,2106)
9254 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1882) * lu(k,2106)
9255 254840160 : lu(k,2137) = lu(k,2137) - lu(k,1873) * lu(k,2136)
9256 254840160 : lu(k,2138) = lu(k,2138) - lu(k,1874) * lu(k,2136)
9257 254840160 : lu(k,2139) = lu(k,2139) - lu(k,1875) * lu(k,2136)
9258 254840160 : lu(k,2141) = lu(k,2141) - lu(k,1876) * lu(k,2136)
9259 254840160 : lu(k,2143) = lu(k,2143) - lu(k,1877) * lu(k,2136)
9260 254840160 : lu(k,2145) = lu(k,2145) - lu(k,1878) * lu(k,2136)
9261 254840160 : lu(k,2146) = lu(k,2146) - lu(k,1879) * lu(k,2136)
9262 254840160 : lu(k,2147) = lu(k,2147) - lu(k,1880) * lu(k,2136)
9263 254840160 : lu(k,2149) = lu(k,2149) - lu(k,1881) * lu(k,2136)
9264 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1882) * lu(k,2136)
9265 254840160 : lu(k,2879) = lu(k,2879) - lu(k,1873) * lu(k,2877)
9266 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1874) * lu(k,2877)
9267 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1875) * lu(k,2877)
9268 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1876) * lu(k,2877)
9269 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1877) * lu(k,2877)
9270 254840160 : lu(k,2918) = lu(k,2918) - lu(k,1878) * lu(k,2877)
9271 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1879) * lu(k,2877)
9272 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1880) * lu(k,2877)
9273 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1881) * lu(k,2877)
9274 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1882) * lu(k,2877)
9275 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1873) * lu(k,3066)
9276 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1874) * lu(k,3066)
9277 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1875) * lu(k,3066)
9278 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1876) * lu(k,3066)
9279 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1877) * lu(k,3066)
9280 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1878) * lu(k,3066)
9281 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1879) * lu(k,3066)
9282 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1880) * lu(k,3066)
9283 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1881) * lu(k,3066)
9284 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1882) * lu(k,3066)
9285 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1873) * lu(k,3325)
9286 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1874) * lu(k,3325)
9287 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1875) * lu(k,3325)
9288 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1876) * lu(k,3325)
9289 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1877) * lu(k,3325)
9290 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1878) * lu(k,3325)
9291 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1879) * lu(k,3325)
9292 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1880) * lu(k,3325)
9293 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1881) * lu(k,3325)
9294 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1882) * lu(k,3325)
9295 254840160 : lu(k,3421) = lu(k,3421) - lu(k,1873) * lu(k,3419)
9296 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1874) * lu(k,3419)
9297 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1875) * lu(k,3419)
9298 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1876) * lu(k,3419)
9299 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1877) * lu(k,3419)
9300 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1878) * lu(k,3419)
9301 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1879) * lu(k,3419)
9302 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1880) * lu(k,3419)
9303 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1881) * lu(k,3419)
9304 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1882) * lu(k,3419)
9305 254840160 : lu(k,3564) = lu(k,3564) - lu(k,1873) * lu(k,3562)
9306 254840160 : lu(k,3565) = lu(k,3565) - lu(k,1874) * lu(k,3562)
9307 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1875) * lu(k,3562)
9308 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1876) * lu(k,3562)
9309 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1877) * lu(k,3562)
9310 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1878) * lu(k,3562)
9311 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1879) * lu(k,3562)
9312 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1880) * lu(k,3562)
9313 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1881) * lu(k,3562)
9314 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1882) * lu(k,3562)
9315 254840160 : lu(k,3720) = lu(k,3720) - lu(k,1873) * lu(k,3718)
9316 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1874) * lu(k,3718)
9317 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1875) * lu(k,3718)
9318 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1876) * lu(k,3718)
9319 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1877) * lu(k,3718)
9320 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1878) * lu(k,3718)
9321 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1879) * lu(k,3718)
9322 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1880) * lu(k,3718)
9323 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1881) * lu(k,3718)
9324 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1882) * lu(k,3718)
9325 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1873) * lu(k,4049)
9326 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1874) * lu(k,4049)
9327 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1875) * lu(k,4049)
9328 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1876) * lu(k,4049)
9329 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1877) * lu(k,4049)
9330 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1878) * lu(k,4049)
9331 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1879) * lu(k,4049)
9332 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1880) * lu(k,4049)
9333 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1881) * lu(k,4049)
9334 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1882) * lu(k,4049)
9335 254840160 : lu(k,1896) = 1._r8 / lu(k,1896)
9336 254840160 : lu(k,1897) = lu(k,1897) * lu(k,1896)
9337 254840160 : lu(k,1898) = lu(k,1898) * lu(k,1896)
9338 254840160 : lu(k,1899) = lu(k,1899) * lu(k,1896)
9339 254840160 : lu(k,1900) = lu(k,1900) * lu(k,1896)
9340 254840160 : lu(k,1901) = lu(k,1901) * lu(k,1896)
9341 254840160 : lu(k,1902) = lu(k,1902) * lu(k,1896)
9342 254840160 : lu(k,1903) = lu(k,1903) * lu(k,1896)
9343 254840160 : lu(k,1904) = lu(k,1904) * lu(k,1896)
9344 254840160 : lu(k,1905) = lu(k,1905) * lu(k,1896)
9345 254840160 : lu(k,1906) = lu(k,1906) * lu(k,1896)
9346 254840160 : lu(k,1907) = lu(k,1907) * lu(k,1896)
9347 254840160 : lu(k,1908) = lu(k,1908) * lu(k,1896)
9348 254840160 : lu(k,1909) = lu(k,1909) * lu(k,1896)
9349 254840160 : lu(k,1910) = lu(k,1910) * lu(k,1896)
9350 254840160 : lu(k,1951) = lu(k,1951) - lu(k,1897) * lu(k,1950)
9351 254840160 : lu(k,1952) = lu(k,1952) - lu(k,1898) * lu(k,1950)
9352 254840160 : lu(k,1953) = lu(k,1953) - lu(k,1899) * lu(k,1950)
9353 254840160 : lu(k,1954) = - lu(k,1900) * lu(k,1950)
9354 254840160 : lu(k,1955) = - lu(k,1901) * lu(k,1950)
9355 254840160 : lu(k,1956) = lu(k,1956) - lu(k,1902) * lu(k,1950)
9356 254840160 : lu(k,1957) = lu(k,1957) - lu(k,1903) * lu(k,1950)
9357 254840160 : lu(k,1959) = lu(k,1959) - lu(k,1904) * lu(k,1950)
9358 254840160 : lu(k,1961) = lu(k,1961) - lu(k,1905) * lu(k,1950)
9359 254840160 : lu(k,1962) = lu(k,1962) - lu(k,1906) * lu(k,1950)
9360 254840160 : lu(k,1963) = lu(k,1963) - lu(k,1907) * lu(k,1950)
9361 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1908) * lu(k,1950)
9362 254840160 : lu(k,1967) = lu(k,1967) - lu(k,1909) * lu(k,1950)
9363 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1910) * lu(k,1950)
9364 254840160 : lu(k,1988) = lu(k,1988) - lu(k,1897) * lu(k,1987)
9365 254840160 : lu(k,1989) = lu(k,1989) - lu(k,1898) * lu(k,1987)
9366 254840160 : lu(k,1990) = - lu(k,1899) * lu(k,1987)
9367 254840160 : lu(k,1991) = lu(k,1991) - lu(k,1900) * lu(k,1987)
9368 254840160 : lu(k,1992) = lu(k,1992) - lu(k,1901) * lu(k,1987)
9369 254840160 : lu(k,1993) = - lu(k,1902) * lu(k,1987)
9370 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1903) * lu(k,1987)
9371 254840160 : lu(k,1998) = lu(k,1998) - lu(k,1904) * lu(k,1987)
9372 254840160 : lu(k,2000) = lu(k,2000) - lu(k,1905) * lu(k,1987)
9373 254840160 : lu(k,2001) = lu(k,2001) - lu(k,1906) * lu(k,1987)
9374 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1907) * lu(k,1987)
9375 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1908) * lu(k,1987)
9376 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1909) * lu(k,1987)
9377 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1910) * lu(k,1987)
9378 254840160 : lu(k,2879) = lu(k,2879) - lu(k,1897) * lu(k,2878)
9379 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1898) * lu(k,2878)
9380 254840160 : lu(k,2881) = lu(k,2881) - lu(k,1899) * lu(k,2878)
9381 254840160 : lu(k,2882) = lu(k,2882) - lu(k,1900) * lu(k,2878)
9382 254840160 : lu(k,2883) = lu(k,2883) - lu(k,1901) * lu(k,2878)
9383 254840160 : lu(k,2884) = lu(k,2884) - lu(k,1902) * lu(k,2878)
9384 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1903) * lu(k,2878)
9385 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1904) * lu(k,2878)
9386 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1905) * lu(k,2878)
9387 254840160 : lu(k,2918) = lu(k,2918) - lu(k,1906) * lu(k,2878)
9388 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1907) * lu(k,2878)
9389 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1908) * lu(k,2878)
9390 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1909) * lu(k,2878)
9391 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1910) * lu(k,2878)
9392 254840160 : lu(k,3068) = lu(k,3068) - lu(k,1897) * lu(k,3067)
9393 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1898) * lu(k,3067)
9394 254840160 : lu(k,3070) = lu(k,3070) - lu(k,1899) * lu(k,3067)
9395 254840160 : lu(k,3071) = lu(k,3071) - lu(k,1900) * lu(k,3067)
9396 254840160 : lu(k,3072) = lu(k,3072) - lu(k,1901) * lu(k,3067)
9397 254840160 : lu(k,3073) = lu(k,3073) - lu(k,1902) * lu(k,3067)
9398 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1903) * lu(k,3067)
9399 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1904) * lu(k,3067)
9400 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1905) * lu(k,3067)
9401 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1906) * lu(k,3067)
9402 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1907) * lu(k,3067)
9403 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1908) * lu(k,3067)
9404 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1909) * lu(k,3067)
9405 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1910) * lu(k,3067)
9406 254840160 : lu(k,3327) = lu(k,3327) - lu(k,1897) * lu(k,3326)
9407 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1898) * lu(k,3326)
9408 254840160 : lu(k,3329) = lu(k,3329) - lu(k,1899) * lu(k,3326)
9409 254840160 : lu(k,3330) = lu(k,3330) - lu(k,1900) * lu(k,3326)
9410 254840160 : lu(k,3331) = lu(k,3331) - lu(k,1901) * lu(k,3326)
9411 254840160 : lu(k,3332) = lu(k,3332) - lu(k,1902) * lu(k,3326)
9412 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1903) * lu(k,3326)
9413 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1904) * lu(k,3326)
9414 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1905) * lu(k,3326)
9415 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1906) * lu(k,3326)
9416 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1907) * lu(k,3326)
9417 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1908) * lu(k,3326)
9418 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1909) * lu(k,3326)
9419 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1910) * lu(k,3326)
9420 254840160 : lu(k,3421) = lu(k,3421) - lu(k,1897) * lu(k,3420)
9421 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1898) * lu(k,3420)
9422 254840160 : lu(k,3423) = lu(k,3423) - lu(k,1899) * lu(k,3420)
9423 254840160 : lu(k,3424) = lu(k,3424) - lu(k,1900) * lu(k,3420)
9424 254840160 : lu(k,3425) = lu(k,3425) - lu(k,1901) * lu(k,3420)
9425 254840160 : lu(k,3426) = lu(k,3426) - lu(k,1902) * lu(k,3420)
9426 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1903) * lu(k,3420)
9427 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1904) * lu(k,3420)
9428 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1905) * lu(k,3420)
9429 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1906) * lu(k,3420)
9430 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1907) * lu(k,3420)
9431 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1908) * lu(k,3420)
9432 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1909) * lu(k,3420)
9433 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1910) * lu(k,3420)
9434 254840160 : lu(k,3564) = lu(k,3564) - lu(k,1897) * lu(k,3563)
9435 254840160 : lu(k,3565) = lu(k,3565) - lu(k,1898) * lu(k,3563)
9436 254840160 : lu(k,3566) = lu(k,3566) - lu(k,1899) * lu(k,3563)
9437 254840160 : lu(k,3567) = lu(k,3567) - lu(k,1900) * lu(k,3563)
9438 254840160 : lu(k,3568) = lu(k,3568) - lu(k,1901) * lu(k,3563)
9439 254840160 : lu(k,3569) = lu(k,3569) - lu(k,1902) * lu(k,3563)
9440 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1903) * lu(k,3563)
9441 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1904) * lu(k,3563)
9442 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1905) * lu(k,3563)
9443 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1906) * lu(k,3563)
9444 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1907) * lu(k,3563)
9445 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1908) * lu(k,3563)
9446 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1909) * lu(k,3563)
9447 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1910) * lu(k,3563)
9448 254840160 : lu(k,3720) = lu(k,3720) - lu(k,1897) * lu(k,3719)
9449 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1898) * lu(k,3719)
9450 254840160 : lu(k,3722) = lu(k,3722) - lu(k,1899) * lu(k,3719)
9451 254840160 : lu(k,3723) = lu(k,3723) - lu(k,1900) * lu(k,3719)
9452 254840160 : lu(k,3724) = lu(k,3724) - lu(k,1901) * lu(k,3719)
9453 254840160 : lu(k,3725) = lu(k,3725) - lu(k,1902) * lu(k,3719)
9454 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1903) * lu(k,3719)
9455 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1904) * lu(k,3719)
9456 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1905) * lu(k,3719)
9457 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1906) * lu(k,3719)
9458 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1907) * lu(k,3719)
9459 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1908) * lu(k,3719)
9460 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1909) * lu(k,3719)
9461 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1910) * lu(k,3719)
9462 254840160 : lu(k,4051) = lu(k,4051) - lu(k,1897) * lu(k,4050)
9463 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1898) * lu(k,4050)
9464 254840160 : lu(k,4053) = lu(k,4053) - lu(k,1899) * lu(k,4050)
9465 254840160 : lu(k,4054) = lu(k,4054) - lu(k,1900) * lu(k,4050)
9466 254840160 : lu(k,4055) = lu(k,4055) - lu(k,1901) * lu(k,4050)
9467 254840160 : lu(k,4056) = lu(k,4056) - lu(k,1902) * lu(k,4050)
9468 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1903) * lu(k,4050)
9469 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1904) * lu(k,4050)
9470 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1905) * lu(k,4050)
9471 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1906) * lu(k,4050)
9472 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1907) * lu(k,4050)
9473 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1908) * lu(k,4050)
9474 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1909) * lu(k,4050)
9475 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1910) * lu(k,4050)
9476 254840160 : lu(k,1916) = 1._r8 / lu(k,1916)
9477 254840160 : lu(k,1917) = lu(k,1917) * lu(k,1916)
9478 254840160 : lu(k,1918) = lu(k,1918) * lu(k,1916)
9479 254840160 : lu(k,1919) = lu(k,1919) * lu(k,1916)
9480 254840160 : lu(k,1920) = lu(k,1920) * lu(k,1916)
9481 254840160 : lu(k,1921) = lu(k,1921) * lu(k,1916)
9482 254840160 : lu(k,1922) = lu(k,1922) * lu(k,1916)
9483 254840160 : lu(k,1923) = lu(k,1923) * lu(k,1916)
9484 254840160 : lu(k,1924) = lu(k,1924) * lu(k,1916)
9485 254840160 : lu(k,1925) = lu(k,1925) * lu(k,1916)
9486 254840160 : lu(k,1952) = lu(k,1952) - lu(k,1917) * lu(k,1951)
9487 254840160 : lu(k,1957) = lu(k,1957) - lu(k,1918) * lu(k,1951)
9488 254840160 : lu(k,1959) = lu(k,1959) - lu(k,1919) * lu(k,1951)
9489 254840160 : lu(k,1960) = lu(k,1960) - lu(k,1920) * lu(k,1951)
9490 254840160 : lu(k,1962) = lu(k,1962) - lu(k,1921) * lu(k,1951)
9491 254840160 : lu(k,1963) = lu(k,1963) - lu(k,1922) * lu(k,1951)
9492 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1923) * lu(k,1951)
9493 254840160 : lu(k,1967) = lu(k,1967) - lu(k,1924) * lu(k,1951)
9494 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1925) * lu(k,1951)
9495 254840160 : lu(k,1989) = lu(k,1989) - lu(k,1917) * lu(k,1988)
9496 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1918) * lu(k,1988)
9497 254840160 : lu(k,1998) = lu(k,1998) - lu(k,1919) * lu(k,1988)
9498 254840160 : lu(k,1999) = lu(k,1999) - lu(k,1920) * lu(k,1988)
9499 254840160 : lu(k,2001) = lu(k,2001) - lu(k,1921) * lu(k,1988)
9500 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1922) * lu(k,1988)
9501 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1923) * lu(k,1988)
9502 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1924) * lu(k,1988)
9503 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1925) * lu(k,1988)
9504 254840160 : lu(k,2040) = lu(k,2040) - lu(k,1917) * lu(k,2039)
9505 254840160 : lu(k,2042) = lu(k,2042) - lu(k,1918) * lu(k,2039)
9506 254840160 : lu(k,2044) = lu(k,2044) - lu(k,1919) * lu(k,2039)
9507 254840160 : lu(k,2045) = lu(k,2045) - lu(k,1920) * lu(k,2039)
9508 254840160 : lu(k,2047) = lu(k,2047) - lu(k,1921) * lu(k,2039)
9509 254840160 : lu(k,2048) = lu(k,2048) - lu(k,1922) * lu(k,2039)
9510 254840160 : lu(k,2049) = lu(k,2049) - lu(k,1923) * lu(k,2039)
9511 254840160 : lu(k,2052) = lu(k,2052) - lu(k,1924) * lu(k,2039)
9512 254840160 : lu(k,2054) = lu(k,2054) - lu(k,1925) * lu(k,2039)
9513 254840160 : lu(k,2076) = lu(k,2076) - lu(k,1917) * lu(k,2075)
9514 254840160 : lu(k,2077) = lu(k,2077) - lu(k,1918) * lu(k,2075)
9515 254840160 : lu(k,2080) = lu(k,2080) - lu(k,1919) * lu(k,2075)
9516 254840160 : lu(k,2081) = lu(k,2081) - lu(k,1920) * lu(k,2075)
9517 254840160 : lu(k,2084) = lu(k,2084) - lu(k,1921) * lu(k,2075)
9518 254840160 : lu(k,2085) = lu(k,2085) - lu(k,1922) * lu(k,2075)
9519 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1923) * lu(k,2075)
9520 254840160 : lu(k,2088) = lu(k,2088) - lu(k,1924) * lu(k,2075)
9521 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1925) * lu(k,2075)
9522 254840160 : lu(k,2108) = lu(k,2108) - lu(k,1917) * lu(k,2107)
9523 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1918) * lu(k,2107)
9524 254840160 : lu(k,2112) = lu(k,2112) - lu(k,1919) * lu(k,2107)
9525 254840160 : lu(k,2113) = lu(k,2113) - lu(k,1920) * lu(k,2107)
9526 254840160 : lu(k,2116) = lu(k,2116) - lu(k,1921) * lu(k,2107)
9527 254840160 : lu(k,2117) = lu(k,2117) - lu(k,1922) * lu(k,2107)
9528 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1923) * lu(k,2107)
9529 254840160 : lu(k,2120) = lu(k,2120) - lu(k,1924) * lu(k,2107)
9530 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1925) * lu(k,2107)
9531 254840160 : lu(k,2138) = lu(k,2138) - lu(k,1917) * lu(k,2137)
9532 254840160 : lu(k,2139) = lu(k,2139) - lu(k,1918) * lu(k,2137)
9533 254840160 : lu(k,2141) = lu(k,2141) - lu(k,1919) * lu(k,2137)
9534 254840160 : lu(k,2142) = lu(k,2142) - lu(k,1920) * lu(k,2137)
9535 254840160 : lu(k,2145) = lu(k,2145) - lu(k,1921) * lu(k,2137)
9536 254840160 : lu(k,2146) = lu(k,2146) - lu(k,1922) * lu(k,2137)
9537 254840160 : lu(k,2147) = lu(k,2147) - lu(k,1923) * lu(k,2137)
9538 254840160 : lu(k,2149) = lu(k,2149) - lu(k,1924) * lu(k,2137)
9539 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1925) * lu(k,2137)
9540 254840160 : lu(k,2173) = lu(k,2173) - lu(k,1917) * lu(k,2172)
9541 254840160 : lu(k,2176) = lu(k,2176) - lu(k,1918) * lu(k,2172)
9542 254840160 : lu(k,2183) = lu(k,2183) - lu(k,1919) * lu(k,2172)
9543 254840160 : lu(k,2184) = lu(k,2184) - lu(k,1920) * lu(k,2172)
9544 254840160 : lu(k,2187) = lu(k,2187) - lu(k,1921) * lu(k,2172)
9545 254840160 : lu(k,2188) = lu(k,2188) - lu(k,1922) * lu(k,2172)
9546 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1923) * lu(k,2172)
9547 254840160 : lu(k,2192) = lu(k,2192) - lu(k,1924) * lu(k,2172)
9548 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1925) * lu(k,2172)
9549 254840160 : lu(k,2880) = lu(k,2880) - lu(k,1917) * lu(k,2879)
9550 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1918) * lu(k,2879)
9551 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1919) * lu(k,2879)
9552 254840160 : lu(k,2915) = lu(k,2915) - lu(k,1920) * lu(k,2879)
9553 254840160 : lu(k,2918) = lu(k,2918) - lu(k,1921) * lu(k,2879)
9554 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1922) * lu(k,2879)
9555 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1923) * lu(k,2879)
9556 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1924) * lu(k,2879)
9557 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1925) * lu(k,2879)
9558 254840160 : lu(k,3069) = lu(k,3069) - lu(k,1917) * lu(k,3068)
9559 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1918) * lu(k,3068)
9560 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1919) * lu(k,3068)
9561 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1920) * lu(k,3068)
9562 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1921) * lu(k,3068)
9563 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1922) * lu(k,3068)
9564 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1923) * lu(k,3068)
9565 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1924) * lu(k,3068)
9566 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1925) * lu(k,3068)
9567 254840160 : lu(k,3328) = lu(k,3328) - lu(k,1917) * lu(k,3327)
9568 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1918) * lu(k,3327)
9569 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1919) * lu(k,3327)
9570 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1920) * lu(k,3327)
9571 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1921) * lu(k,3327)
9572 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1922) * lu(k,3327)
9573 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1923) * lu(k,3327)
9574 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1924) * lu(k,3327)
9575 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1925) * lu(k,3327)
9576 254840160 : lu(k,3422) = lu(k,3422) - lu(k,1917) * lu(k,3421)
9577 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1918) * lu(k,3421)
9578 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1919) * lu(k,3421)
9579 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1920) * lu(k,3421)
9580 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1921) * lu(k,3421)
9581 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1922) * lu(k,3421)
9582 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1923) * lu(k,3421)
9583 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1924) * lu(k,3421)
9584 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1925) * lu(k,3421)
9585 254840160 : lu(k,3565) = lu(k,3565) - lu(k,1917) * lu(k,3564)
9586 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1918) * lu(k,3564)
9587 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1919) * lu(k,3564)
9588 254840160 : lu(k,3601) = lu(k,3601) - lu(k,1920) * lu(k,3564)
9589 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1921) * lu(k,3564)
9590 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1922) * lu(k,3564)
9591 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1923) * lu(k,3564)
9592 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1924) * lu(k,3564)
9593 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1925) * lu(k,3564)
9594 254840160 : lu(k,3721) = lu(k,3721) - lu(k,1917) * lu(k,3720)
9595 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1918) * lu(k,3720)
9596 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1919) * lu(k,3720)
9597 254840160 : lu(k,3755) = lu(k,3755) - lu(k,1920) * lu(k,3720)
9598 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1921) * lu(k,3720)
9599 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1922) * lu(k,3720)
9600 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1923) * lu(k,3720)
9601 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1924) * lu(k,3720)
9602 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1925) * lu(k,3720)
9603 254840160 : lu(k,4052) = lu(k,4052) - lu(k,1917) * lu(k,4051)
9604 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1918) * lu(k,4051)
9605 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1919) * lu(k,4051)
9606 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1920) * lu(k,4051)
9607 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1921) * lu(k,4051)
9608 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1922) * lu(k,4051)
9609 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1923) * lu(k,4051)
9610 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1924) * lu(k,4051)
9611 263009123 : lu(k,4101) = lu(k,4101) - lu(k,1925) * lu(k,4051)
9612 : end do
9613 8168963 : end subroutine lu_fac41
9614 8168963 : subroutine lu_fac42( avec_len, lu )
9615 : use chem_mods, only : nzcnt
9616 : use shr_kind_mod, only : r8 => shr_kind_r8
9617 : implicit none
9618 : !-----------------------------------------------------------------------
9619 : ! ... dummy args
9620 : !-----------------------------------------------------------------------
9621 : integer, intent(in) :: avec_len
9622 : real(r8), intent(inout) :: lu(veclen,nzcnt)
9623 : !-----------------------------------------------------------------------
9624 : ! ... local variables
9625 : !-----------------------------------------------------------------------
9626 : integer :: k
9627 263009123 : do k = 1,avec_len
9628 254840160 : lu(k,1926) = 1._r8 / lu(k,1926)
9629 254840160 : lu(k,1927) = lu(k,1927) * lu(k,1926)
9630 254840160 : lu(k,1928) = lu(k,1928) * lu(k,1926)
9631 254840160 : lu(k,1929) = lu(k,1929) * lu(k,1926)
9632 254840160 : lu(k,1930) = lu(k,1930) * lu(k,1926)
9633 254840160 : lu(k,1931) = lu(k,1931) * lu(k,1926)
9634 254840160 : lu(k,1932) = lu(k,1932) * lu(k,1926)
9635 254840160 : lu(k,1933) = lu(k,1933) * lu(k,1926)
9636 254840160 : lu(k,1957) = lu(k,1957) - lu(k,1927) * lu(k,1952)
9637 254840160 : lu(k,1959) = lu(k,1959) - lu(k,1928) * lu(k,1952)
9638 254840160 : lu(k,1960) = lu(k,1960) - lu(k,1929) * lu(k,1952)
9639 254840160 : lu(k,1964) = lu(k,1964) - lu(k,1930) * lu(k,1952)
9640 254840160 : lu(k,1966) = - lu(k,1931) * lu(k,1952)
9641 254840160 : lu(k,1968) = lu(k,1968) - lu(k,1932) * lu(k,1952)
9642 254840160 : lu(k,1969) = lu(k,1969) - lu(k,1933) * lu(k,1952)
9643 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1927) * lu(k,1989)
9644 254840160 : lu(k,1998) = lu(k,1998) - lu(k,1928) * lu(k,1989)
9645 254840160 : lu(k,1999) = lu(k,1999) - lu(k,1929) * lu(k,1989)
9646 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1930) * lu(k,1989)
9647 254840160 : lu(k,2005) = - lu(k,1931) * lu(k,1989)
9648 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1932) * lu(k,1989)
9649 254840160 : lu(k,2008) = - lu(k,1933) * lu(k,1989)
9650 254840160 : lu(k,2017) = lu(k,2017) - lu(k,1927) * lu(k,2015)
9651 254840160 : lu(k,2019) = lu(k,2019) - lu(k,1928) * lu(k,2015)
9652 254840160 : lu(k,2020) = - lu(k,1929) * lu(k,2015)
9653 254840160 : lu(k,2024) = lu(k,2024) - lu(k,1930) * lu(k,2015)
9654 254840160 : lu(k,2026) = lu(k,2026) - lu(k,1931) * lu(k,2015)
9655 254840160 : lu(k,2029) = lu(k,2029) - lu(k,1932) * lu(k,2015)
9656 254840160 : lu(k,2030) = lu(k,2030) - lu(k,1933) * lu(k,2015)
9657 254840160 : lu(k,2042) = lu(k,2042) - lu(k,1927) * lu(k,2040)
9658 254840160 : lu(k,2044) = lu(k,2044) - lu(k,1928) * lu(k,2040)
9659 254840160 : lu(k,2045) = lu(k,2045) - lu(k,1929) * lu(k,2040)
9660 254840160 : lu(k,2049) = lu(k,2049) - lu(k,1930) * lu(k,2040)
9661 254840160 : lu(k,2051) = lu(k,2051) - lu(k,1931) * lu(k,2040)
9662 254840160 : lu(k,2054) = lu(k,2054) - lu(k,1932) * lu(k,2040)
9663 254840160 : lu(k,2055) = lu(k,2055) - lu(k,1933) * lu(k,2040)
9664 254840160 : lu(k,2077) = lu(k,2077) - lu(k,1927) * lu(k,2076)
9665 254840160 : lu(k,2080) = lu(k,2080) - lu(k,1928) * lu(k,2076)
9666 254840160 : lu(k,2081) = lu(k,2081) - lu(k,1929) * lu(k,2076)
9667 254840160 : lu(k,2086) = lu(k,2086) - lu(k,1930) * lu(k,2076)
9668 254840160 : lu(k,2087) = - lu(k,1931) * lu(k,2076)
9669 254840160 : lu(k,2091) = lu(k,2091) - lu(k,1932) * lu(k,2076)
9670 254840160 : lu(k,2092) = lu(k,2092) - lu(k,1933) * lu(k,2076)
9671 254840160 : lu(k,2109) = lu(k,2109) - lu(k,1927) * lu(k,2108)
9672 254840160 : lu(k,2112) = lu(k,2112) - lu(k,1928) * lu(k,2108)
9673 254840160 : lu(k,2113) = lu(k,2113) - lu(k,1929) * lu(k,2108)
9674 254840160 : lu(k,2118) = lu(k,2118) - lu(k,1930) * lu(k,2108)
9675 254840160 : lu(k,2119) = - lu(k,1931) * lu(k,2108)
9676 254840160 : lu(k,2123) = lu(k,2123) - lu(k,1932) * lu(k,2108)
9677 254840160 : lu(k,2124) = lu(k,2124) - lu(k,1933) * lu(k,2108)
9678 254840160 : lu(k,2139) = lu(k,2139) - lu(k,1927) * lu(k,2138)
9679 254840160 : lu(k,2141) = lu(k,2141) - lu(k,1928) * lu(k,2138)
9680 254840160 : lu(k,2142) = lu(k,2142) - lu(k,1929) * lu(k,2138)
9681 254840160 : lu(k,2147) = lu(k,2147) - lu(k,1930) * lu(k,2138)
9682 254840160 : lu(k,2148) = - lu(k,1931) * lu(k,2138)
9683 254840160 : lu(k,2152) = lu(k,2152) - lu(k,1932) * lu(k,2138)
9684 254840160 : lu(k,2153) = lu(k,2153) - lu(k,1933) * lu(k,2138)
9685 254840160 : lu(k,2176) = lu(k,2176) - lu(k,1927) * lu(k,2173)
9686 254840160 : lu(k,2183) = lu(k,2183) - lu(k,1928) * lu(k,2173)
9687 254840160 : lu(k,2184) = lu(k,2184) - lu(k,1929) * lu(k,2173)
9688 254840160 : lu(k,2189) = lu(k,2189) - lu(k,1930) * lu(k,2173)
9689 254840160 : lu(k,2191) = lu(k,2191) - lu(k,1931) * lu(k,2173)
9690 254840160 : lu(k,2195) = lu(k,2195) - lu(k,1932) * lu(k,2173)
9691 254840160 : lu(k,2196) = lu(k,2196) - lu(k,1933) * lu(k,2173)
9692 254840160 : lu(k,2276) = - lu(k,1927) * lu(k,2275)
9693 254840160 : lu(k,2278) = lu(k,2278) - lu(k,1928) * lu(k,2275)
9694 254840160 : lu(k,2279) = - lu(k,1929) * lu(k,2275)
9695 254840160 : lu(k,2283) = lu(k,2283) - lu(k,1930) * lu(k,2275)
9696 254840160 : lu(k,2285) = - lu(k,1931) * lu(k,2275)
9697 254840160 : lu(k,2287) = lu(k,2287) - lu(k,1932) * lu(k,2275)
9698 254840160 : lu(k,2288) = lu(k,2288) - lu(k,1933) * lu(k,2275)
9699 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1927) * lu(k,2880)
9700 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1928) * lu(k,2880)
9701 254840160 : lu(k,2915) = lu(k,2915) - lu(k,1929) * lu(k,2880)
9702 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1930) * lu(k,2880)
9703 254840160 : lu(k,2922) = lu(k,2922) - lu(k,1931) * lu(k,2880)
9704 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1932) * lu(k,2880)
9705 254840160 : lu(k,2928) = lu(k,2928) - lu(k,1933) * lu(k,2880)
9706 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1927) * lu(k,3069)
9707 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1928) * lu(k,3069)
9708 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1929) * lu(k,3069)
9709 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1930) * lu(k,3069)
9710 254840160 : lu(k,3114) = lu(k,3114) - lu(k,1931) * lu(k,3069)
9711 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1932) * lu(k,3069)
9712 254840160 : lu(k,3120) = lu(k,3120) - lu(k,1933) * lu(k,3069)
9713 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1927) * lu(k,3328)
9714 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1928) * lu(k,3328)
9715 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1929) * lu(k,3328)
9716 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1930) * lu(k,3328)
9717 254840160 : lu(k,3373) = lu(k,3373) - lu(k,1931) * lu(k,3328)
9718 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1932) * lu(k,3328)
9719 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1933) * lu(k,3328)
9720 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1927) * lu(k,3422)
9721 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1928) * lu(k,3422)
9722 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1929) * lu(k,3422)
9723 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1930) * lu(k,3422)
9724 254840160 : lu(k,3466) = lu(k,3466) - lu(k,1931) * lu(k,3422)
9725 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1932) * lu(k,3422)
9726 254840160 : lu(k,3472) = lu(k,3472) - lu(k,1933) * lu(k,3422)
9727 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1927) * lu(k,3565)
9728 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1928) * lu(k,3565)
9729 254840160 : lu(k,3601) = lu(k,3601) - lu(k,1929) * lu(k,3565)
9730 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1930) * lu(k,3565)
9731 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1931) * lu(k,3565)
9732 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1932) * lu(k,3565)
9733 254840160 : lu(k,3616) = lu(k,3616) - lu(k,1933) * lu(k,3565)
9734 254840160 : lu(k,3644) = lu(k,3644) - lu(k,1927) * lu(k,3643)
9735 254840160 : lu(k,3651) = lu(k,3651) - lu(k,1928) * lu(k,3643)
9736 254840160 : lu(k,3653) = lu(k,3653) - lu(k,1929) * lu(k,3643)
9737 254840160 : lu(k,3658) = lu(k,3658) - lu(k,1930) * lu(k,3643)
9738 254840160 : lu(k,3662) = lu(k,3662) - lu(k,1931) * lu(k,3643)
9739 254840160 : lu(k,3667) = lu(k,3667) - lu(k,1932) * lu(k,3643)
9740 254840160 : lu(k,3668) = lu(k,3668) - lu(k,1933) * lu(k,3643)
9741 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1927) * lu(k,3721)
9742 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1928) * lu(k,3721)
9743 254840160 : lu(k,3755) = lu(k,3755) - lu(k,1929) * lu(k,3721)
9744 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1930) * lu(k,3721)
9745 254840160 : lu(k,3764) = lu(k,3764) - lu(k,1931) * lu(k,3721)
9746 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1932) * lu(k,3721)
9747 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1933) * lu(k,3721)
9748 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1927) * lu(k,4052)
9749 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1928) * lu(k,4052)
9750 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1929) * lu(k,4052)
9751 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1930) * lu(k,4052)
9752 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1931) * lu(k,4052)
9753 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1932) * lu(k,4052)
9754 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1933) * lu(k,4052)
9755 254840160 : lu(k,1953) = 1._r8 / lu(k,1953)
9756 254840160 : lu(k,1954) = lu(k,1954) * lu(k,1953)
9757 254840160 : lu(k,1955) = lu(k,1955) * lu(k,1953)
9758 254840160 : lu(k,1956) = lu(k,1956) * lu(k,1953)
9759 254840160 : lu(k,1957) = lu(k,1957) * lu(k,1953)
9760 254840160 : lu(k,1958) = lu(k,1958) * lu(k,1953)
9761 254840160 : lu(k,1959) = lu(k,1959) * lu(k,1953)
9762 254840160 : lu(k,1960) = lu(k,1960) * lu(k,1953)
9763 254840160 : lu(k,1961) = lu(k,1961) * lu(k,1953)
9764 254840160 : lu(k,1962) = lu(k,1962) * lu(k,1953)
9765 254840160 : lu(k,1963) = lu(k,1963) * lu(k,1953)
9766 254840160 : lu(k,1964) = lu(k,1964) * lu(k,1953)
9767 254840160 : lu(k,1965) = lu(k,1965) * lu(k,1953)
9768 254840160 : lu(k,1966) = lu(k,1966) * lu(k,1953)
9769 254840160 : lu(k,1967) = lu(k,1967) * lu(k,1953)
9770 254840160 : lu(k,1968) = lu(k,1968) * lu(k,1953)
9771 254840160 : lu(k,1969) = lu(k,1969) * lu(k,1953)
9772 254840160 : lu(k,1991) = lu(k,1991) - lu(k,1954) * lu(k,1990)
9773 254840160 : lu(k,1992) = lu(k,1992) - lu(k,1955) * lu(k,1990)
9774 254840160 : lu(k,1993) = lu(k,1993) - lu(k,1956) * lu(k,1990)
9775 254840160 : lu(k,1994) = lu(k,1994) - lu(k,1957) * lu(k,1990)
9776 254840160 : lu(k,1996) = - lu(k,1958) * lu(k,1990)
9777 254840160 : lu(k,1998) = lu(k,1998) - lu(k,1959) * lu(k,1990)
9778 254840160 : lu(k,1999) = lu(k,1999) - lu(k,1960) * lu(k,1990)
9779 254840160 : lu(k,2000) = lu(k,2000) - lu(k,1961) * lu(k,1990)
9780 254840160 : lu(k,2001) = lu(k,2001) - lu(k,1962) * lu(k,1990)
9781 254840160 : lu(k,2002) = lu(k,2002) - lu(k,1963) * lu(k,1990)
9782 254840160 : lu(k,2003) = lu(k,2003) - lu(k,1964) * lu(k,1990)
9783 254840160 : lu(k,2004) = lu(k,2004) - lu(k,1965) * lu(k,1990)
9784 254840160 : lu(k,2005) = lu(k,2005) - lu(k,1966) * lu(k,1990)
9785 254840160 : lu(k,2006) = lu(k,2006) - lu(k,1967) * lu(k,1990)
9786 254840160 : lu(k,2007) = lu(k,2007) - lu(k,1968) * lu(k,1990)
9787 254840160 : lu(k,2008) = lu(k,2008) - lu(k,1969) * lu(k,1990)
9788 254840160 : lu(k,2882) = lu(k,2882) - lu(k,1954) * lu(k,2881)
9789 254840160 : lu(k,2883) = lu(k,2883) - lu(k,1955) * lu(k,2881)
9790 254840160 : lu(k,2884) = lu(k,2884) - lu(k,1956) * lu(k,2881)
9791 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1957) * lu(k,2881)
9792 254840160 : lu(k,2887) = lu(k,2887) - lu(k,1958) * lu(k,2881)
9793 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1959) * lu(k,2881)
9794 254840160 : lu(k,2915) = lu(k,2915) - lu(k,1960) * lu(k,2881)
9795 254840160 : lu(k,2916) = lu(k,2916) - lu(k,1961) * lu(k,2881)
9796 254840160 : lu(k,2918) = lu(k,2918) - lu(k,1962) * lu(k,2881)
9797 254840160 : lu(k,2919) = lu(k,2919) - lu(k,1963) * lu(k,2881)
9798 254840160 : lu(k,2920) = lu(k,2920) - lu(k,1964) * lu(k,2881)
9799 254840160 : lu(k,2921) = lu(k,2921) - lu(k,1965) * lu(k,2881)
9800 254840160 : lu(k,2922) = lu(k,2922) - lu(k,1966) * lu(k,2881)
9801 254840160 : lu(k,2923) = lu(k,2923) - lu(k,1967) * lu(k,2881)
9802 254840160 : lu(k,2927) = lu(k,2927) - lu(k,1968) * lu(k,2881)
9803 254840160 : lu(k,2928) = lu(k,2928) - lu(k,1969) * lu(k,2881)
9804 254840160 : lu(k,3071) = lu(k,3071) - lu(k,1954) * lu(k,3070)
9805 254840160 : lu(k,3072) = lu(k,3072) - lu(k,1955) * lu(k,3070)
9806 254840160 : lu(k,3073) = lu(k,3073) - lu(k,1956) * lu(k,3070)
9807 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1957) * lu(k,3070)
9808 254840160 : lu(k,3076) = lu(k,3076) - lu(k,1958) * lu(k,3070)
9809 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1959) * lu(k,3070)
9810 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1960) * lu(k,3070)
9811 254840160 : lu(k,3106) = lu(k,3106) - lu(k,1961) * lu(k,3070)
9812 254840160 : lu(k,3108) = lu(k,3108) - lu(k,1962) * lu(k,3070)
9813 254840160 : lu(k,3109) = lu(k,3109) - lu(k,1963) * lu(k,3070)
9814 254840160 : lu(k,3110) = lu(k,3110) - lu(k,1964) * lu(k,3070)
9815 254840160 : lu(k,3111) = lu(k,3111) - lu(k,1965) * lu(k,3070)
9816 254840160 : lu(k,3114) = lu(k,3114) - lu(k,1966) * lu(k,3070)
9817 254840160 : lu(k,3115) = lu(k,3115) - lu(k,1967) * lu(k,3070)
9818 254840160 : lu(k,3119) = lu(k,3119) - lu(k,1968) * lu(k,3070)
9819 254840160 : lu(k,3120) = lu(k,3120) - lu(k,1969) * lu(k,3070)
9820 254840160 : lu(k,3330) = lu(k,3330) - lu(k,1954) * lu(k,3329)
9821 254840160 : lu(k,3331) = lu(k,3331) - lu(k,1955) * lu(k,3329)
9822 254840160 : lu(k,3332) = lu(k,3332) - lu(k,1956) * lu(k,3329)
9823 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1957) * lu(k,3329)
9824 254840160 : lu(k,3335) = lu(k,3335) - lu(k,1958) * lu(k,3329)
9825 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1959) * lu(k,3329)
9826 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1960) * lu(k,3329)
9827 254840160 : lu(k,3365) = lu(k,3365) - lu(k,1961) * lu(k,3329)
9828 254840160 : lu(k,3367) = lu(k,3367) - lu(k,1962) * lu(k,3329)
9829 254840160 : lu(k,3368) = lu(k,3368) - lu(k,1963) * lu(k,3329)
9830 254840160 : lu(k,3369) = lu(k,3369) - lu(k,1964) * lu(k,3329)
9831 254840160 : lu(k,3370) = lu(k,3370) - lu(k,1965) * lu(k,3329)
9832 254840160 : lu(k,3373) = lu(k,3373) - lu(k,1966) * lu(k,3329)
9833 254840160 : lu(k,3374) = lu(k,3374) - lu(k,1967) * lu(k,3329)
9834 254840160 : lu(k,3378) = lu(k,3378) - lu(k,1968) * lu(k,3329)
9835 254840160 : lu(k,3379) = lu(k,3379) - lu(k,1969) * lu(k,3329)
9836 254840160 : lu(k,3424) = lu(k,3424) - lu(k,1954) * lu(k,3423)
9837 254840160 : lu(k,3425) = lu(k,3425) - lu(k,1955) * lu(k,3423)
9838 254840160 : lu(k,3426) = lu(k,3426) - lu(k,1956) * lu(k,3423)
9839 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1957) * lu(k,3423)
9840 254840160 : lu(k,3429) = lu(k,3429) - lu(k,1958) * lu(k,3423)
9841 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1959) * lu(k,3423)
9842 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1960) * lu(k,3423)
9843 254840160 : lu(k,3458) = lu(k,3458) - lu(k,1961) * lu(k,3423)
9844 254840160 : lu(k,3460) = lu(k,3460) - lu(k,1962) * lu(k,3423)
9845 254840160 : lu(k,3461) = lu(k,3461) - lu(k,1963) * lu(k,3423)
9846 254840160 : lu(k,3462) = lu(k,3462) - lu(k,1964) * lu(k,3423)
9847 254840160 : lu(k,3463) = lu(k,3463) - lu(k,1965) * lu(k,3423)
9848 254840160 : lu(k,3466) = lu(k,3466) - lu(k,1966) * lu(k,3423)
9849 254840160 : lu(k,3467) = lu(k,3467) - lu(k,1967) * lu(k,3423)
9850 254840160 : lu(k,3471) = lu(k,3471) - lu(k,1968) * lu(k,3423)
9851 254840160 : lu(k,3472) = lu(k,3472) - lu(k,1969) * lu(k,3423)
9852 254840160 : lu(k,3567) = lu(k,3567) - lu(k,1954) * lu(k,3566)
9853 254840160 : lu(k,3568) = lu(k,3568) - lu(k,1955) * lu(k,3566)
9854 254840160 : lu(k,3569) = lu(k,3569) - lu(k,1956) * lu(k,3566)
9855 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1957) * lu(k,3566)
9856 254840160 : lu(k,3572) = lu(k,3572) - lu(k,1958) * lu(k,3566)
9857 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1959) * lu(k,3566)
9858 254840160 : lu(k,3601) = lu(k,3601) - lu(k,1960) * lu(k,3566)
9859 254840160 : lu(k,3602) = lu(k,3602) - lu(k,1961) * lu(k,3566)
9860 254840160 : lu(k,3604) = lu(k,3604) - lu(k,1962) * lu(k,3566)
9861 254840160 : lu(k,3605) = lu(k,3605) - lu(k,1963) * lu(k,3566)
9862 254840160 : lu(k,3606) = lu(k,3606) - lu(k,1964) * lu(k,3566)
9863 254840160 : lu(k,3607) = lu(k,3607) - lu(k,1965) * lu(k,3566)
9864 254840160 : lu(k,3610) = lu(k,3610) - lu(k,1966) * lu(k,3566)
9865 254840160 : lu(k,3611) = lu(k,3611) - lu(k,1967) * lu(k,3566)
9866 254840160 : lu(k,3615) = lu(k,3615) - lu(k,1968) * lu(k,3566)
9867 254840160 : lu(k,3616) = lu(k,3616) - lu(k,1969) * lu(k,3566)
9868 254840160 : lu(k,3723) = lu(k,3723) - lu(k,1954) * lu(k,3722)
9869 254840160 : lu(k,3724) = lu(k,3724) - lu(k,1955) * lu(k,3722)
9870 254840160 : lu(k,3725) = lu(k,3725) - lu(k,1956) * lu(k,3722)
9871 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1957) * lu(k,3722)
9872 254840160 : lu(k,3728) = lu(k,3728) - lu(k,1958) * lu(k,3722)
9873 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1959) * lu(k,3722)
9874 254840160 : lu(k,3755) = lu(k,3755) - lu(k,1960) * lu(k,3722)
9875 254840160 : lu(k,3756) = lu(k,3756) - lu(k,1961) * lu(k,3722)
9876 254840160 : lu(k,3758) = lu(k,3758) - lu(k,1962) * lu(k,3722)
9877 254840160 : lu(k,3759) = lu(k,3759) - lu(k,1963) * lu(k,3722)
9878 254840160 : lu(k,3760) = lu(k,3760) - lu(k,1964) * lu(k,3722)
9879 254840160 : lu(k,3761) = lu(k,3761) - lu(k,1965) * lu(k,3722)
9880 254840160 : lu(k,3764) = lu(k,3764) - lu(k,1966) * lu(k,3722)
9881 254840160 : lu(k,3765) = lu(k,3765) - lu(k,1967) * lu(k,3722)
9882 254840160 : lu(k,3769) = lu(k,3769) - lu(k,1968) * lu(k,3722)
9883 254840160 : lu(k,3770) = lu(k,3770) - lu(k,1969) * lu(k,3722)
9884 254840160 : lu(k,4054) = lu(k,4054) - lu(k,1954) * lu(k,4053)
9885 254840160 : lu(k,4055) = lu(k,4055) - lu(k,1955) * lu(k,4053)
9886 254840160 : lu(k,4056) = lu(k,4056) - lu(k,1956) * lu(k,4053)
9887 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1957) * lu(k,4053)
9888 254840160 : lu(k,4059) = lu(k,4059) - lu(k,1958) * lu(k,4053)
9889 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1959) * lu(k,4053)
9890 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1960) * lu(k,4053)
9891 254840160 : lu(k,4088) = lu(k,4088) - lu(k,1961) * lu(k,4053)
9892 254840160 : lu(k,4090) = lu(k,4090) - lu(k,1962) * lu(k,4053)
9893 254840160 : lu(k,4091) = lu(k,4091) - lu(k,1963) * lu(k,4053)
9894 254840160 : lu(k,4092) = lu(k,4092) - lu(k,1964) * lu(k,4053)
9895 254840160 : lu(k,4093) = lu(k,4093) - lu(k,1965) * lu(k,4053)
9896 254840160 : lu(k,4096) = lu(k,4096) - lu(k,1966) * lu(k,4053)
9897 254840160 : lu(k,4097) = lu(k,4097) - lu(k,1967) * lu(k,4053)
9898 254840160 : lu(k,4101) = lu(k,4101) - lu(k,1968) * lu(k,4053)
9899 254840160 : lu(k,4102) = lu(k,4102) - lu(k,1969) * lu(k,4053)
9900 254840160 : lu(k,1991) = 1._r8 / lu(k,1991)
9901 254840160 : lu(k,1992) = lu(k,1992) * lu(k,1991)
9902 254840160 : lu(k,1993) = lu(k,1993) * lu(k,1991)
9903 254840160 : lu(k,1994) = lu(k,1994) * lu(k,1991)
9904 254840160 : lu(k,1995) = lu(k,1995) * lu(k,1991)
9905 254840160 : lu(k,1996) = lu(k,1996) * lu(k,1991)
9906 254840160 : lu(k,1997) = lu(k,1997) * lu(k,1991)
9907 254840160 : lu(k,1998) = lu(k,1998) * lu(k,1991)
9908 254840160 : lu(k,1999) = lu(k,1999) * lu(k,1991)
9909 254840160 : lu(k,2000) = lu(k,2000) * lu(k,1991)
9910 254840160 : lu(k,2001) = lu(k,2001) * lu(k,1991)
9911 254840160 : lu(k,2002) = lu(k,2002) * lu(k,1991)
9912 254840160 : lu(k,2003) = lu(k,2003) * lu(k,1991)
9913 254840160 : lu(k,2004) = lu(k,2004) * lu(k,1991)
9914 254840160 : lu(k,2005) = lu(k,2005) * lu(k,1991)
9915 254840160 : lu(k,2006) = lu(k,2006) * lu(k,1991)
9916 254840160 : lu(k,2007) = lu(k,2007) * lu(k,1991)
9917 254840160 : lu(k,2008) = lu(k,2008) * lu(k,1991)
9918 254840160 : lu(k,2883) = lu(k,2883) - lu(k,1992) * lu(k,2882)
9919 254840160 : lu(k,2884) = lu(k,2884) - lu(k,1993) * lu(k,2882)
9920 254840160 : lu(k,2885) = lu(k,2885) - lu(k,1994) * lu(k,2882)
9921 254840160 : lu(k,2886) = lu(k,2886) - lu(k,1995) * lu(k,2882)
9922 254840160 : lu(k,2887) = lu(k,2887) - lu(k,1996) * lu(k,2882)
9923 254840160 : lu(k,2893) = lu(k,2893) - lu(k,1997) * lu(k,2882)
9924 254840160 : lu(k,2913) = lu(k,2913) - lu(k,1998) * lu(k,2882)
9925 254840160 : lu(k,2915) = lu(k,2915) - lu(k,1999) * lu(k,2882)
9926 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2000) * lu(k,2882)
9927 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2001) * lu(k,2882)
9928 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2002) * lu(k,2882)
9929 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2003) * lu(k,2882)
9930 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2004) * lu(k,2882)
9931 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2005) * lu(k,2882)
9932 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2006) * lu(k,2882)
9933 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2007) * lu(k,2882)
9934 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2008) * lu(k,2882)
9935 254840160 : lu(k,3072) = lu(k,3072) - lu(k,1992) * lu(k,3071)
9936 254840160 : lu(k,3073) = lu(k,3073) - lu(k,1993) * lu(k,3071)
9937 254840160 : lu(k,3074) = lu(k,3074) - lu(k,1994) * lu(k,3071)
9938 254840160 : lu(k,3075) = lu(k,3075) - lu(k,1995) * lu(k,3071)
9939 254840160 : lu(k,3076) = lu(k,3076) - lu(k,1996) * lu(k,3071)
9940 254840160 : lu(k,3083) = lu(k,3083) - lu(k,1997) * lu(k,3071)
9941 254840160 : lu(k,3103) = lu(k,3103) - lu(k,1998) * lu(k,3071)
9942 254840160 : lu(k,3105) = lu(k,3105) - lu(k,1999) * lu(k,3071)
9943 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2000) * lu(k,3071)
9944 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2001) * lu(k,3071)
9945 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2002) * lu(k,3071)
9946 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2003) * lu(k,3071)
9947 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2004) * lu(k,3071)
9948 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2005) * lu(k,3071)
9949 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2006) * lu(k,3071)
9950 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2007) * lu(k,3071)
9951 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2008) * lu(k,3071)
9952 254840160 : lu(k,3331) = lu(k,3331) - lu(k,1992) * lu(k,3330)
9953 254840160 : lu(k,3332) = lu(k,3332) - lu(k,1993) * lu(k,3330)
9954 254840160 : lu(k,3333) = lu(k,3333) - lu(k,1994) * lu(k,3330)
9955 254840160 : lu(k,3334) = lu(k,3334) - lu(k,1995) * lu(k,3330)
9956 254840160 : lu(k,3335) = lu(k,3335) - lu(k,1996) * lu(k,3330)
9957 254840160 : lu(k,3342) = lu(k,3342) - lu(k,1997) * lu(k,3330)
9958 254840160 : lu(k,3362) = lu(k,3362) - lu(k,1998) * lu(k,3330)
9959 254840160 : lu(k,3364) = lu(k,3364) - lu(k,1999) * lu(k,3330)
9960 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2000) * lu(k,3330)
9961 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2001) * lu(k,3330)
9962 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2002) * lu(k,3330)
9963 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2003) * lu(k,3330)
9964 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2004) * lu(k,3330)
9965 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2005) * lu(k,3330)
9966 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2006) * lu(k,3330)
9967 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2007) * lu(k,3330)
9968 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2008) * lu(k,3330)
9969 254840160 : lu(k,3425) = lu(k,3425) - lu(k,1992) * lu(k,3424)
9970 254840160 : lu(k,3426) = lu(k,3426) - lu(k,1993) * lu(k,3424)
9971 254840160 : lu(k,3427) = lu(k,3427) - lu(k,1994) * lu(k,3424)
9972 254840160 : lu(k,3428) = lu(k,3428) - lu(k,1995) * lu(k,3424)
9973 254840160 : lu(k,3429) = lu(k,3429) - lu(k,1996) * lu(k,3424)
9974 254840160 : lu(k,3435) = lu(k,3435) - lu(k,1997) * lu(k,3424)
9975 254840160 : lu(k,3455) = lu(k,3455) - lu(k,1998) * lu(k,3424)
9976 254840160 : lu(k,3457) = lu(k,3457) - lu(k,1999) * lu(k,3424)
9977 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2000) * lu(k,3424)
9978 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2001) * lu(k,3424)
9979 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2002) * lu(k,3424)
9980 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2003) * lu(k,3424)
9981 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2004) * lu(k,3424)
9982 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2005) * lu(k,3424)
9983 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2006) * lu(k,3424)
9984 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2007) * lu(k,3424)
9985 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2008) * lu(k,3424)
9986 254840160 : lu(k,3568) = lu(k,3568) - lu(k,1992) * lu(k,3567)
9987 254840160 : lu(k,3569) = lu(k,3569) - lu(k,1993) * lu(k,3567)
9988 254840160 : lu(k,3570) = lu(k,3570) - lu(k,1994) * lu(k,3567)
9989 254840160 : lu(k,3571) = lu(k,3571) - lu(k,1995) * lu(k,3567)
9990 254840160 : lu(k,3572) = lu(k,3572) - lu(k,1996) * lu(k,3567)
9991 254840160 : lu(k,3579) = lu(k,3579) - lu(k,1997) * lu(k,3567)
9992 254840160 : lu(k,3599) = lu(k,3599) - lu(k,1998) * lu(k,3567)
9993 254840160 : lu(k,3601) = lu(k,3601) - lu(k,1999) * lu(k,3567)
9994 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2000) * lu(k,3567)
9995 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2001) * lu(k,3567)
9996 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2002) * lu(k,3567)
9997 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2003) * lu(k,3567)
9998 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2004) * lu(k,3567)
9999 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2005) * lu(k,3567)
10000 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2006) * lu(k,3567)
10001 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2007) * lu(k,3567)
10002 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2008) * lu(k,3567)
10003 254840160 : lu(k,3724) = lu(k,3724) - lu(k,1992) * lu(k,3723)
10004 254840160 : lu(k,3725) = lu(k,3725) - lu(k,1993) * lu(k,3723)
10005 254840160 : lu(k,3726) = lu(k,3726) - lu(k,1994) * lu(k,3723)
10006 254840160 : lu(k,3727) = lu(k,3727) - lu(k,1995) * lu(k,3723)
10007 254840160 : lu(k,3728) = lu(k,3728) - lu(k,1996) * lu(k,3723)
10008 254840160 : lu(k,3734) = lu(k,3734) - lu(k,1997) * lu(k,3723)
10009 254840160 : lu(k,3753) = lu(k,3753) - lu(k,1998) * lu(k,3723)
10010 254840160 : lu(k,3755) = lu(k,3755) - lu(k,1999) * lu(k,3723)
10011 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2000) * lu(k,3723)
10012 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2001) * lu(k,3723)
10013 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2002) * lu(k,3723)
10014 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2003) * lu(k,3723)
10015 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2004) * lu(k,3723)
10016 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2005) * lu(k,3723)
10017 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2006) * lu(k,3723)
10018 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2007) * lu(k,3723)
10019 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2008) * lu(k,3723)
10020 254840160 : lu(k,4055) = lu(k,4055) - lu(k,1992) * lu(k,4054)
10021 254840160 : lu(k,4056) = lu(k,4056) - lu(k,1993) * lu(k,4054)
10022 254840160 : lu(k,4057) = lu(k,4057) - lu(k,1994) * lu(k,4054)
10023 254840160 : lu(k,4058) = lu(k,4058) - lu(k,1995) * lu(k,4054)
10024 254840160 : lu(k,4059) = lu(k,4059) - lu(k,1996) * lu(k,4054)
10025 254840160 : lu(k,4065) = lu(k,4065) - lu(k,1997) * lu(k,4054)
10026 254840160 : lu(k,4085) = lu(k,4085) - lu(k,1998) * lu(k,4054)
10027 254840160 : lu(k,4087) = lu(k,4087) - lu(k,1999) * lu(k,4054)
10028 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2000) * lu(k,4054)
10029 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2001) * lu(k,4054)
10030 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2002) * lu(k,4054)
10031 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2003) * lu(k,4054)
10032 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2004) * lu(k,4054)
10033 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2005) * lu(k,4054)
10034 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2006) * lu(k,4054)
10035 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2007) * lu(k,4054)
10036 263009123 : lu(k,4102) = lu(k,4102) - lu(k,2008) * lu(k,4054)
10037 : end do
10038 8168963 : end subroutine lu_fac42
10039 8168963 : subroutine lu_fac43( avec_len, lu )
10040 : use chem_mods, only : nzcnt
10041 : use shr_kind_mod, only : r8 => shr_kind_r8
10042 : implicit none
10043 : !-----------------------------------------------------------------------
10044 : ! ... dummy args
10045 : !-----------------------------------------------------------------------
10046 : integer, intent(in) :: avec_len
10047 : real(r8), intent(inout) :: lu(veclen,nzcnt)
10048 : !-----------------------------------------------------------------------
10049 : ! ... local variables
10050 : !-----------------------------------------------------------------------
10051 : integer :: k
10052 263009123 : do k = 1,avec_len
10053 254840160 : lu(k,2016) = 1._r8 / lu(k,2016)
10054 254840160 : lu(k,2017) = lu(k,2017) * lu(k,2016)
10055 254840160 : lu(k,2018) = lu(k,2018) * lu(k,2016)
10056 254840160 : lu(k,2019) = lu(k,2019) * lu(k,2016)
10057 254840160 : lu(k,2020) = lu(k,2020) * lu(k,2016)
10058 254840160 : lu(k,2021) = lu(k,2021) * lu(k,2016)
10059 254840160 : lu(k,2022) = lu(k,2022) * lu(k,2016)
10060 254840160 : lu(k,2023) = lu(k,2023) * lu(k,2016)
10061 254840160 : lu(k,2024) = lu(k,2024) * lu(k,2016)
10062 254840160 : lu(k,2025) = lu(k,2025) * lu(k,2016)
10063 254840160 : lu(k,2026) = lu(k,2026) * lu(k,2016)
10064 254840160 : lu(k,2027) = lu(k,2027) * lu(k,2016)
10065 254840160 : lu(k,2028) = lu(k,2028) * lu(k,2016)
10066 254840160 : lu(k,2029) = lu(k,2029) * lu(k,2016)
10067 254840160 : lu(k,2030) = lu(k,2030) * lu(k,2016)
10068 254840160 : lu(k,2176) = lu(k,2176) - lu(k,2017) * lu(k,2174)
10069 254840160 : lu(k,2182) = - lu(k,2018) * lu(k,2174)
10070 254840160 : lu(k,2183) = lu(k,2183) - lu(k,2019) * lu(k,2174)
10071 254840160 : lu(k,2184) = lu(k,2184) - lu(k,2020) * lu(k,2174)
10072 254840160 : lu(k,2185) = lu(k,2185) - lu(k,2021) * lu(k,2174)
10073 254840160 : lu(k,2187) = lu(k,2187) - lu(k,2022) * lu(k,2174)
10074 254840160 : lu(k,2188) = lu(k,2188) - lu(k,2023) * lu(k,2174)
10075 254840160 : lu(k,2189) = lu(k,2189) - lu(k,2024) * lu(k,2174)
10076 254840160 : lu(k,2190) = lu(k,2190) - lu(k,2025) * lu(k,2174)
10077 254840160 : lu(k,2191) = lu(k,2191) - lu(k,2026) * lu(k,2174)
10078 254840160 : lu(k,2192) = lu(k,2192) - lu(k,2027) * lu(k,2174)
10079 254840160 : lu(k,2193) = lu(k,2193) - lu(k,2028) * lu(k,2174)
10080 254840160 : lu(k,2195) = lu(k,2195) - lu(k,2029) * lu(k,2174)
10081 254840160 : lu(k,2196) = lu(k,2196) - lu(k,2030) * lu(k,2174)
10082 254840160 : lu(k,2885) = lu(k,2885) - lu(k,2017) * lu(k,2883)
10083 254840160 : lu(k,2893) = lu(k,2893) - lu(k,2018) * lu(k,2883)
10084 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2019) * lu(k,2883)
10085 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2020) * lu(k,2883)
10086 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2021) * lu(k,2883)
10087 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2022) * lu(k,2883)
10088 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2023) * lu(k,2883)
10089 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2024) * lu(k,2883)
10090 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2025) * lu(k,2883)
10091 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2026) * lu(k,2883)
10092 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2027) * lu(k,2883)
10093 254840160 : lu(k,2924) = lu(k,2924) - lu(k,2028) * lu(k,2883)
10094 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2029) * lu(k,2883)
10095 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2030) * lu(k,2883)
10096 254840160 : lu(k,3074) = lu(k,3074) - lu(k,2017) * lu(k,3072)
10097 254840160 : lu(k,3083) = lu(k,3083) - lu(k,2018) * lu(k,3072)
10098 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2019) * lu(k,3072)
10099 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2020) * lu(k,3072)
10100 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2021) * lu(k,3072)
10101 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2022) * lu(k,3072)
10102 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2023) * lu(k,3072)
10103 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2024) * lu(k,3072)
10104 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2025) * lu(k,3072)
10105 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2026) * lu(k,3072)
10106 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2027) * lu(k,3072)
10107 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2028) * lu(k,3072)
10108 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2029) * lu(k,3072)
10109 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2030) * lu(k,3072)
10110 254840160 : lu(k,3333) = lu(k,3333) - lu(k,2017) * lu(k,3331)
10111 254840160 : lu(k,3342) = lu(k,3342) - lu(k,2018) * lu(k,3331)
10112 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2019) * lu(k,3331)
10113 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2020) * lu(k,3331)
10114 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2021) * lu(k,3331)
10115 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2022) * lu(k,3331)
10116 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2023) * lu(k,3331)
10117 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2024) * lu(k,3331)
10118 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2025) * lu(k,3331)
10119 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2026) * lu(k,3331)
10120 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2027) * lu(k,3331)
10121 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2028) * lu(k,3331)
10122 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2029) * lu(k,3331)
10123 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2030) * lu(k,3331)
10124 254840160 : lu(k,3427) = lu(k,3427) - lu(k,2017) * lu(k,3425)
10125 254840160 : lu(k,3435) = lu(k,3435) - lu(k,2018) * lu(k,3425)
10126 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2019) * lu(k,3425)
10127 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2020) * lu(k,3425)
10128 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2021) * lu(k,3425)
10129 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2022) * lu(k,3425)
10130 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2023) * lu(k,3425)
10131 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2024) * lu(k,3425)
10132 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2025) * lu(k,3425)
10133 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2026) * lu(k,3425)
10134 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2027) * lu(k,3425)
10135 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2028) * lu(k,3425)
10136 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2029) * lu(k,3425)
10137 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2030) * lu(k,3425)
10138 254840160 : lu(k,3570) = lu(k,3570) - lu(k,2017) * lu(k,3568)
10139 254840160 : lu(k,3579) = lu(k,3579) - lu(k,2018) * lu(k,3568)
10140 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2019) * lu(k,3568)
10141 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2020) * lu(k,3568)
10142 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2021) * lu(k,3568)
10143 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2022) * lu(k,3568)
10144 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2023) * lu(k,3568)
10145 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2024) * lu(k,3568)
10146 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2025) * lu(k,3568)
10147 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2026) * lu(k,3568)
10148 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2027) * lu(k,3568)
10149 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2028) * lu(k,3568)
10150 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2029) * lu(k,3568)
10151 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2030) * lu(k,3568)
10152 254840160 : lu(k,3726) = lu(k,3726) - lu(k,2017) * lu(k,3724)
10153 254840160 : lu(k,3734) = lu(k,3734) - lu(k,2018) * lu(k,3724)
10154 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2019) * lu(k,3724)
10155 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2020) * lu(k,3724)
10156 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2021) * lu(k,3724)
10157 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2022) * lu(k,3724)
10158 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2023) * lu(k,3724)
10159 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2024) * lu(k,3724)
10160 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2025) * lu(k,3724)
10161 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2026) * lu(k,3724)
10162 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2027) * lu(k,3724)
10163 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2028) * lu(k,3724)
10164 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2029) * lu(k,3724)
10165 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2030) * lu(k,3724)
10166 254840160 : lu(k,4057) = lu(k,4057) - lu(k,2017) * lu(k,4055)
10167 254840160 : lu(k,4065) = lu(k,4065) - lu(k,2018) * lu(k,4055)
10168 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2019) * lu(k,4055)
10169 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2020) * lu(k,4055)
10170 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2021) * lu(k,4055)
10171 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2022) * lu(k,4055)
10172 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2023) * lu(k,4055)
10173 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2024) * lu(k,4055)
10174 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2025) * lu(k,4055)
10175 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2026) * lu(k,4055)
10176 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2027) * lu(k,4055)
10177 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2028) * lu(k,4055)
10178 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2029) * lu(k,4055)
10179 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2030) * lu(k,4055)
10180 254840160 : lu(k,2041) = 1._r8 / lu(k,2041)
10181 254840160 : lu(k,2042) = lu(k,2042) * lu(k,2041)
10182 254840160 : lu(k,2043) = lu(k,2043) * lu(k,2041)
10183 254840160 : lu(k,2044) = lu(k,2044) * lu(k,2041)
10184 254840160 : lu(k,2045) = lu(k,2045) * lu(k,2041)
10185 254840160 : lu(k,2046) = lu(k,2046) * lu(k,2041)
10186 254840160 : lu(k,2047) = lu(k,2047) * lu(k,2041)
10187 254840160 : lu(k,2048) = lu(k,2048) * lu(k,2041)
10188 254840160 : lu(k,2049) = lu(k,2049) * lu(k,2041)
10189 254840160 : lu(k,2050) = lu(k,2050) * lu(k,2041)
10190 254840160 : lu(k,2051) = lu(k,2051) * lu(k,2041)
10191 254840160 : lu(k,2052) = lu(k,2052) * lu(k,2041)
10192 254840160 : lu(k,2053) = lu(k,2053) * lu(k,2041)
10193 254840160 : lu(k,2054) = lu(k,2054) * lu(k,2041)
10194 254840160 : lu(k,2055) = lu(k,2055) * lu(k,2041)
10195 254840160 : lu(k,2176) = lu(k,2176) - lu(k,2042) * lu(k,2175)
10196 254840160 : lu(k,2181) = - lu(k,2043) * lu(k,2175)
10197 254840160 : lu(k,2183) = lu(k,2183) - lu(k,2044) * lu(k,2175)
10198 254840160 : lu(k,2184) = lu(k,2184) - lu(k,2045) * lu(k,2175)
10199 254840160 : lu(k,2185) = lu(k,2185) - lu(k,2046) * lu(k,2175)
10200 254840160 : lu(k,2187) = lu(k,2187) - lu(k,2047) * lu(k,2175)
10201 254840160 : lu(k,2188) = lu(k,2188) - lu(k,2048) * lu(k,2175)
10202 254840160 : lu(k,2189) = lu(k,2189) - lu(k,2049) * lu(k,2175)
10203 254840160 : lu(k,2190) = lu(k,2190) - lu(k,2050) * lu(k,2175)
10204 254840160 : lu(k,2191) = lu(k,2191) - lu(k,2051) * lu(k,2175)
10205 254840160 : lu(k,2192) = lu(k,2192) - lu(k,2052) * lu(k,2175)
10206 254840160 : lu(k,2193) = lu(k,2193) - lu(k,2053) * lu(k,2175)
10207 254840160 : lu(k,2195) = lu(k,2195) - lu(k,2054) * lu(k,2175)
10208 254840160 : lu(k,2196) = lu(k,2196) - lu(k,2055) * lu(k,2175)
10209 254840160 : lu(k,2885) = lu(k,2885) - lu(k,2042) * lu(k,2884)
10210 254840160 : lu(k,2892) = - lu(k,2043) * lu(k,2884)
10211 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2044) * lu(k,2884)
10212 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2045) * lu(k,2884)
10213 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2046) * lu(k,2884)
10214 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2047) * lu(k,2884)
10215 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2048) * lu(k,2884)
10216 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2049) * lu(k,2884)
10217 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2050) * lu(k,2884)
10218 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2051) * lu(k,2884)
10219 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2052) * lu(k,2884)
10220 254840160 : lu(k,2924) = lu(k,2924) - lu(k,2053) * lu(k,2884)
10221 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2054) * lu(k,2884)
10222 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2055) * lu(k,2884)
10223 254840160 : lu(k,3074) = lu(k,3074) - lu(k,2042) * lu(k,3073)
10224 254840160 : lu(k,3082) = - lu(k,2043) * lu(k,3073)
10225 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2044) * lu(k,3073)
10226 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2045) * lu(k,3073)
10227 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2046) * lu(k,3073)
10228 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2047) * lu(k,3073)
10229 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2048) * lu(k,3073)
10230 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2049) * lu(k,3073)
10231 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2050) * lu(k,3073)
10232 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2051) * lu(k,3073)
10233 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2052) * lu(k,3073)
10234 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2053) * lu(k,3073)
10235 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2054) * lu(k,3073)
10236 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2055) * lu(k,3073)
10237 254840160 : lu(k,3333) = lu(k,3333) - lu(k,2042) * lu(k,3332)
10238 254840160 : lu(k,3341) = lu(k,3341) - lu(k,2043) * lu(k,3332)
10239 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2044) * lu(k,3332)
10240 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2045) * lu(k,3332)
10241 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2046) * lu(k,3332)
10242 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2047) * lu(k,3332)
10243 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2048) * lu(k,3332)
10244 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2049) * lu(k,3332)
10245 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2050) * lu(k,3332)
10246 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2051) * lu(k,3332)
10247 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2052) * lu(k,3332)
10248 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2053) * lu(k,3332)
10249 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2054) * lu(k,3332)
10250 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2055) * lu(k,3332)
10251 254840160 : lu(k,3427) = lu(k,3427) - lu(k,2042) * lu(k,3426)
10252 254840160 : lu(k,3434) = - lu(k,2043) * lu(k,3426)
10253 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2044) * lu(k,3426)
10254 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2045) * lu(k,3426)
10255 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2046) * lu(k,3426)
10256 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2047) * lu(k,3426)
10257 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2048) * lu(k,3426)
10258 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2049) * lu(k,3426)
10259 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2050) * lu(k,3426)
10260 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2051) * lu(k,3426)
10261 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2052) * lu(k,3426)
10262 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2053) * lu(k,3426)
10263 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2054) * lu(k,3426)
10264 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2055) * lu(k,3426)
10265 254840160 : lu(k,3570) = lu(k,3570) - lu(k,2042) * lu(k,3569)
10266 254840160 : lu(k,3578) = lu(k,3578) - lu(k,2043) * lu(k,3569)
10267 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2044) * lu(k,3569)
10268 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2045) * lu(k,3569)
10269 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2046) * lu(k,3569)
10270 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2047) * lu(k,3569)
10271 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2048) * lu(k,3569)
10272 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2049) * lu(k,3569)
10273 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2050) * lu(k,3569)
10274 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2051) * lu(k,3569)
10275 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2052) * lu(k,3569)
10276 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2053) * lu(k,3569)
10277 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2054) * lu(k,3569)
10278 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2055) * lu(k,3569)
10279 254840160 : lu(k,3726) = lu(k,3726) - lu(k,2042) * lu(k,3725)
10280 254840160 : lu(k,3733) = lu(k,3733) - lu(k,2043) * lu(k,3725)
10281 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2044) * lu(k,3725)
10282 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2045) * lu(k,3725)
10283 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2046) * lu(k,3725)
10284 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2047) * lu(k,3725)
10285 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2048) * lu(k,3725)
10286 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2049) * lu(k,3725)
10287 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2050) * lu(k,3725)
10288 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2051) * lu(k,3725)
10289 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2052) * lu(k,3725)
10290 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2053) * lu(k,3725)
10291 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2054) * lu(k,3725)
10292 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2055) * lu(k,3725)
10293 254840160 : lu(k,4057) = lu(k,4057) - lu(k,2042) * lu(k,4056)
10294 254840160 : lu(k,4064) = lu(k,4064) - lu(k,2043) * lu(k,4056)
10295 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2044) * lu(k,4056)
10296 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2045) * lu(k,4056)
10297 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2046) * lu(k,4056)
10298 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2047) * lu(k,4056)
10299 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2048) * lu(k,4056)
10300 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2049) * lu(k,4056)
10301 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2050) * lu(k,4056)
10302 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2051) * lu(k,4056)
10303 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2052) * lu(k,4056)
10304 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2053) * lu(k,4056)
10305 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2054) * lu(k,4056)
10306 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2055) * lu(k,4056)
10307 254840160 : lu(k,2057) = 1._r8 / lu(k,2057)
10308 254840160 : lu(k,2058) = lu(k,2058) * lu(k,2057)
10309 254840160 : lu(k,2059) = lu(k,2059) * lu(k,2057)
10310 254840160 : lu(k,2060) = lu(k,2060) * lu(k,2057)
10311 254840160 : lu(k,2084) = lu(k,2084) - lu(k,2058) * lu(k,2077)
10312 254840160 : lu(k,2086) = lu(k,2086) - lu(k,2059) * lu(k,2077)
10313 254840160 : lu(k,2091) = lu(k,2091) - lu(k,2060) * lu(k,2077)
10314 254840160 : lu(k,2116) = lu(k,2116) - lu(k,2058) * lu(k,2109)
10315 254840160 : lu(k,2118) = lu(k,2118) - lu(k,2059) * lu(k,2109)
10316 254840160 : lu(k,2123) = lu(k,2123) - lu(k,2060) * lu(k,2109)
10317 254840160 : lu(k,2145) = lu(k,2145) - lu(k,2058) * lu(k,2139)
10318 254840160 : lu(k,2147) = lu(k,2147) - lu(k,2059) * lu(k,2139)
10319 254840160 : lu(k,2152) = lu(k,2152) - lu(k,2060) * lu(k,2139)
10320 254840160 : lu(k,2187) = lu(k,2187) - lu(k,2058) * lu(k,2176)
10321 254840160 : lu(k,2189) = lu(k,2189) - lu(k,2059) * lu(k,2176)
10322 254840160 : lu(k,2195) = lu(k,2195) - lu(k,2060) * lu(k,2176)
10323 254840160 : lu(k,2201) = lu(k,2201) - lu(k,2058) * lu(k,2198)
10324 254840160 : lu(k,2203) = lu(k,2203) - lu(k,2059) * lu(k,2198)
10325 254840160 : lu(k,2207) = lu(k,2207) - lu(k,2060) * lu(k,2198)
10326 254840160 : lu(k,2223) = lu(k,2223) - lu(k,2058) * lu(k,2212)
10327 254840160 : lu(k,2225) = lu(k,2225) - lu(k,2059) * lu(k,2212)
10328 254840160 : lu(k,2229) = lu(k,2229) - lu(k,2060) * lu(k,2212)
10329 254840160 : lu(k,2247) = lu(k,2247) - lu(k,2058) * lu(k,2234)
10330 254840160 : lu(k,2249) = lu(k,2249) - lu(k,2059) * lu(k,2234)
10331 254840160 : lu(k,2253) = lu(k,2253) - lu(k,2060) * lu(k,2234)
10332 254840160 : lu(k,2263) = lu(k,2263) - lu(k,2058) * lu(k,2258)
10333 254840160 : lu(k,2265) = lu(k,2265) - lu(k,2059) * lu(k,2258)
10334 254840160 : lu(k,2270) = lu(k,2270) - lu(k,2060) * lu(k,2258)
10335 254840160 : lu(k,2281) = - lu(k,2058) * lu(k,2276)
10336 254840160 : lu(k,2283) = lu(k,2283) - lu(k,2059) * lu(k,2276)
10337 254840160 : lu(k,2287) = lu(k,2287) - lu(k,2060) * lu(k,2276)
10338 254840160 : lu(k,2307) = lu(k,2307) - lu(k,2058) * lu(k,2295)
10339 254840160 : lu(k,2309) = lu(k,2309) - lu(k,2059) * lu(k,2295)
10340 254840160 : lu(k,2313) = lu(k,2313) - lu(k,2060) * lu(k,2295)
10341 254840160 : lu(k,2327) = - lu(k,2058) * lu(k,2319)
10342 254840160 : lu(k,2329) = lu(k,2329) - lu(k,2059) * lu(k,2319)
10343 254840160 : lu(k,2332) = lu(k,2332) - lu(k,2060) * lu(k,2319)
10344 254840160 : lu(k,2351) = lu(k,2351) - lu(k,2058) * lu(k,2337)
10345 254840160 : lu(k,2353) = lu(k,2353) - lu(k,2059) * lu(k,2337)
10346 254840160 : lu(k,2357) = lu(k,2357) - lu(k,2060) * lu(k,2337)
10347 254840160 : lu(k,2364) = - lu(k,2058) * lu(k,2358)
10348 254840160 : lu(k,2365) = lu(k,2365) - lu(k,2059) * lu(k,2358)
10349 254840160 : lu(k,2367) = lu(k,2367) - lu(k,2060) * lu(k,2358)
10350 254840160 : lu(k,2391) = lu(k,2391) - lu(k,2058) * lu(k,2376)
10351 254840160 : lu(k,2393) = lu(k,2393) - lu(k,2059) * lu(k,2376)
10352 254840160 : lu(k,2397) = lu(k,2397) - lu(k,2060) * lu(k,2376)
10353 254840160 : lu(k,2420) = lu(k,2420) - lu(k,2058) * lu(k,2405)
10354 254840160 : lu(k,2422) = lu(k,2422) - lu(k,2059) * lu(k,2405)
10355 254840160 : lu(k,2426) = lu(k,2426) - lu(k,2060) * lu(k,2405)
10356 254840160 : lu(k,2452) = lu(k,2452) - lu(k,2058) * lu(k,2437)
10357 254840160 : lu(k,2454) = lu(k,2454) - lu(k,2059) * lu(k,2437)
10358 254840160 : lu(k,2458) = lu(k,2458) - lu(k,2060) * lu(k,2437)
10359 254840160 : lu(k,2483) = lu(k,2483) - lu(k,2058) * lu(k,2467)
10360 254840160 : lu(k,2485) = lu(k,2485) - lu(k,2059) * lu(k,2467)
10361 254840160 : lu(k,2489) = lu(k,2489) - lu(k,2060) * lu(k,2467)
10362 254840160 : lu(k,2517) = lu(k,2517) - lu(k,2058) * lu(k,2503)
10363 254840160 : lu(k,2519) = lu(k,2519) - lu(k,2059) * lu(k,2503)
10364 254840160 : lu(k,2523) = lu(k,2523) - lu(k,2060) * lu(k,2503)
10365 254840160 : lu(k,2546) = lu(k,2546) - lu(k,2058) * lu(k,2534)
10366 254840160 : lu(k,2548) = lu(k,2548) - lu(k,2059) * lu(k,2534)
10367 254840160 : lu(k,2552) = lu(k,2552) - lu(k,2060) * lu(k,2534)
10368 254840160 : lu(k,2582) = lu(k,2582) - lu(k,2058) * lu(k,2566)
10369 254840160 : lu(k,2584) = lu(k,2584) - lu(k,2059) * lu(k,2566)
10370 254840160 : lu(k,2588) = lu(k,2588) - lu(k,2060) * lu(k,2566)
10371 254840160 : lu(k,2610) = lu(k,2610) - lu(k,2058) * lu(k,2597)
10372 254840160 : lu(k,2612) = lu(k,2612) - lu(k,2059) * lu(k,2597)
10373 254840160 : lu(k,2617) = lu(k,2617) - lu(k,2060) * lu(k,2597)
10374 254840160 : lu(k,2638) = lu(k,2638) - lu(k,2058) * lu(k,2627)
10375 254840160 : lu(k,2640) = lu(k,2640) - lu(k,2059) * lu(k,2627)
10376 254840160 : lu(k,2645) = lu(k,2645) - lu(k,2060) * lu(k,2627)
10377 254840160 : lu(k,2663) = lu(k,2663) - lu(k,2058) * lu(k,2652)
10378 254840160 : lu(k,2665) = lu(k,2665) - lu(k,2059) * lu(k,2652)
10379 254840160 : lu(k,2669) = lu(k,2669) - lu(k,2060) * lu(k,2652)
10380 254840160 : lu(k,2685) = lu(k,2685) - lu(k,2058) * lu(k,2674)
10381 254840160 : lu(k,2687) = lu(k,2687) - lu(k,2059) * lu(k,2674)
10382 254840160 : lu(k,2691) = lu(k,2691) - lu(k,2060) * lu(k,2674)
10383 254840160 : lu(k,2708) = lu(k,2708) - lu(k,2058) * lu(k,2695)
10384 254840160 : lu(k,2710) = lu(k,2710) - lu(k,2059) * lu(k,2695)
10385 254840160 : lu(k,2714) = lu(k,2714) - lu(k,2060) * lu(k,2695)
10386 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2058) * lu(k,2725)
10387 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2059) * lu(k,2725)
10388 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2060) * lu(k,2725)
10389 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2058) * lu(k,2771)
10390 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2059) * lu(k,2771)
10391 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2060) * lu(k,2771)
10392 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2058) * lu(k,2818)
10393 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2059) * lu(k,2818)
10394 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2060) * lu(k,2818)
10395 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2058) * lu(k,2885)
10396 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2059) * lu(k,2885)
10397 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2060) * lu(k,2885)
10398 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2058) * lu(k,3074)
10399 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2059) * lu(k,3074)
10400 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2060) * lu(k,3074)
10401 254840160 : lu(k,3161) = lu(k,3161) - lu(k,2058) * lu(k,3154)
10402 254840160 : lu(k,3163) = lu(k,3163) - lu(k,2059) * lu(k,3154)
10403 254840160 : lu(k,3172) = lu(k,3172) - lu(k,2060) * lu(k,3154)
10404 254840160 : lu(k,3187) = lu(k,3187) - lu(k,2058) * lu(k,3180)
10405 254840160 : lu(k,3189) = lu(k,3189) - lu(k,2059) * lu(k,3180)
10406 254840160 : lu(k,3198) = lu(k,3198) - lu(k,2060) * lu(k,3180)
10407 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2058) * lu(k,3333)
10408 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2059) * lu(k,3333)
10409 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2060) * lu(k,3333)
10410 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2058) * lu(k,3427)
10411 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2059) * lu(k,3427)
10412 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2060) * lu(k,3427)
10413 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2058) * lu(k,3570)
10414 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2059) * lu(k,3570)
10415 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2060) * lu(k,3570)
10416 254840160 : lu(k,3656) = lu(k,3656) - lu(k,2058) * lu(k,3644)
10417 254840160 : lu(k,3658) = lu(k,3658) - lu(k,2059) * lu(k,3644)
10418 254840160 : lu(k,3667) = lu(k,3667) - lu(k,2060) * lu(k,3644)
10419 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2058) * lu(k,3726)
10420 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2059) * lu(k,3726)
10421 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2060) * lu(k,3726)
10422 254840160 : lu(k,3840) = lu(k,3840) - lu(k,2058) * lu(k,3832)
10423 254840160 : lu(k,3842) = lu(k,3842) - lu(k,2059) * lu(k,3832)
10424 254840160 : lu(k,3851) = lu(k,3851) - lu(k,2060) * lu(k,3832)
10425 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2058) * lu(k,4057)
10426 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2059) * lu(k,4057)
10427 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2060) * lu(k,4057)
10428 254840160 : lu(k,2078) = 1._r8 / lu(k,2078)
10429 254840160 : lu(k,2079) = lu(k,2079) * lu(k,2078)
10430 254840160 : lu(k,2080) = lu(k,2080) * lu(k,2078)
10431 254840160 : lu(k,2081) = lu(k,2081) * lu(k,2078)
10432 254840160 : lu(k,2082) = lu(k,2082) * lu(k,2078)
10433 254840160 : lu(k,2083) = lu(k,2083) * lu(k,2078)
10434 254840160 : lu(k,2084) = lu(k,2084) * lu(k,2078)
10435 254840160 : lu(k,2085) = lu(k,2085) * lu(k,2078)
10436 254840160 : lu(k,2086) = lu(k,2086) * lu(k,2078)
10437 254840160 : lu(k,2087) = lu(k,2087) * lu(k,2078)
10438 254840160 : lu(k,2088) = lu(k,2088) * lu(k,2078)
10439 254840160 : lu(k,2089) = lu(k,2089) * lu(k,2078)
10440 254840160 : lu(k,2090) = lu(k,2090) * lu(k,2078)
10441 254840160 : lu(k,2091) = lu(k,2091) * lu(k,2078)
10442 254840160 : lu(k,2092) = lu(k,2092) * lu(k,2078)
10443 254840160 : lu(k,2179) = lu(k,2179) - lu(k,2079) * lu(k,2177)
10444 254840160 : lu(k,2183) = lu(k,2183) - lu(k,2080) * lu(k,2177)
10445 254840160 : lu(k,2184) = lu(k,2184) - lu(k,2081) * lu(k,2177)
10446 254840160 : lu(k,2185) = lu(k,2185) - lu(k,2082) * lu(k,2177)
10447 254840160 : lu(k,2186) = lu(k,2186) - lu(k,2083) * lu(k,2177)
10448 254840160 : lu(k,2187) = lu(k,2187) - lu(k,2084) * lu(k,2177)
10449 254840160 : lu(k,2188) = lu(k,2188) - lu(k,2085) * lu(k,2177)
10450 254840160 : lu(k,2189) = lu(k,2189) - lu(k,2086) * lu(k,2177)
10451 254840160 : lu(k,2191) = lu(k,2191) - lu(k,2087) * lu(k,2177)
10452 254840160 : lu(k,2192) = lu(k,2192) - lu(k,2088) * lu(k,2177)
10453 254840160 : lu(k,2193) = lu(k,2193) - lu(k,2089) * lu(k,2177)
10454 254840160 : lu(k,2194) = lu(k,2194) - lu(k,2090) * lu(k,2177)
10455 254840160 : lu(k,2195) = lu(k,2195) - lu(k,2091) * lu(k,2177)
10456 254840160 : lu(k,2196) = lu(k,2196) - lu(k,2092) * lu(k,2177)
10457 254840160 : lu(k,2888) = lu(k,2888) - lu(k,2079) * lu(k,2886)
10458 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2080) * lu(k,2886)
10459 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2081) * lu(k,2886)
10460 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2082) * lu(k,2886)
10461 254840160 : lu(k,2917) = - lu(k,2083) * lu(k,2886)
10462 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2084) * lu(k,2886)
10463 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2085) * lu(k,2886)
10464 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2086) * lu(k,2886)
10465 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2087) * lu(k,2886)
10466 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2088) * lu(k,2886)
10467 254840160 : lu(k,2924) = lu(k,2924) - lu(k,2089) * lu(k,2886)
10468 254840160 : lu(k,2926) = - lu(k,2090) * lu(k,2886)
10469 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2091) * lu(k,2886)
10470 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2092) * lu(k,2886)
10471 254840160 : lu(k,3077) = lu(k,3077) - lu(k,2079) * lu(k,3075)
10472 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2080) * lu(k,3075)
10473 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2081) * lu(k,3075)
10474 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2082) * lu(k,3075)
10475 254840160 : lu(k,3107) = - lu(k,2083) * lu(k,3075)
10476 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2084) * lu(k,3075)
10477 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2085) * lu(k,3075)
10478 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2086) * lu(k,3075)
10479 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2087) * lu(k,3075)
10480 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2088) * lu(k,3075)
10481 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2089) * lu(k,3075)
10482 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2090) * lu(k,3075)
10483 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2091) * lu(k,3075)
10484 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2092) * lu(k,3075)
10485 254840160 : lu(k,3336) = lu(k,3336) - lu(k,2079) * lu(k,3334)
10486 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2080) * lu(k,3334)
10487 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2081) * lu(k,3334)
10488 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2082) * lu(k,3334)
10489 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2083) * lu(k,3334)
10490 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2084) * lu(k,3334)
10491 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2085) * lu(k,3334)
10492 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2086) * lu(k,3334)
10493 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2087) * lu(k,3334)
10494 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2088) * lu(k,3334)
10495 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2089) * lu(k,3334)
10496 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2090) * lu(k,3334)
10497 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2091) * lu(k,3334)
10498 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2092) * lu(k,3334)
10499 254840160 : lu(k,3430) = lu(k,3430) - lu(k,2079) * lu(k,3428)
10500 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2080) * lu(k,3428)
10501 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2081) * lu(k,3428)
10502 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2082) * lu(k,3428)
10503 254840160 : lu(k,3459) = - lu(k,2083) * lu(k,3428)
10504 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2084) * lu(k,3428)
10505 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2085) * lu(k,3428)
10506 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2086) * lu(k,3428)
10507 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2087) * lu(k,3428)
10508 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2088) * lu(k,3428)
10509 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2089) * lu(k,3428)
10510 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2090) * lu(k,3428)
10511 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2091) * lu(k,3428)
10512 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2092) * lu(k,3428)
10513 254840160 : lu(k,3573) = lu(k,3573) - lu(k,2079) * lu(k,3571)
10514 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2080) * lu(k,3571)
10515 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2081) * lu(k,3571)
10516 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2082) * lu(k,3571)
10517 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2083) * lu(k,3571)
10518 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2084) * lu(k,3571)
10519 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2085) * lu(k,3571)
10520 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2086) * lu(k,3571)
10521 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2087) * lu(k,3571)
10522 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2088) * lu(k,3571)
10523 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2089) * lu(k,3571)
10524 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2090) * lu(k,3571)
10525 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2091) * lu(k,3571)
10526 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2092) * lu(k,3571)
10527 254840160 : lu(k,3729) = lu(k,3729) - lu(k,2079) * lu(k,3727)
10528 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2080) * lu(k,3727)
10529 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2081) * lu(k,3727)
10530 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2082) * lu(k,3727)
10531 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2083) * lu(k,3727)
10532 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2084) * lu(k,3727)
10533 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2085) * lu(k,3727)
10534 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2086) * lu(k,3727)
10535 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2087) * lu(k,3727)
10536 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2088) * lu(k,3727)
10537 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2089) * lu(k,3727)
10538 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2090) * lu(k,3727)
10539 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2091) * lu(k,3727)
10540 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2092) * lu(k,3727)
10541 254840160 : lu(k,4060) = lu(k,4060) - lu(k,2079) * lu(k,4058)
10542 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2080) * lu(k,4058)
10543 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2081) * lu(k,4058)
10544 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2082) * lu(k,4058)
10545 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2083) * lu(k,4058)
10546 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2084) * lu(k,4058)
10547 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2085) * lu(k,4058)
10548 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2086) * lu(k,4058)
10549 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2087) * lu(k,4058)
10550 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2088) * lu(k,4058)
10551 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2089) * lu(k,4058)
10552 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2090) * lu(k,4058)
10553 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2091) * lu(k,4058)
10554 263009123 : lu(k,4102) = lu(k,4102) - lu(k,2092) * lu(k,4058)
10555 : end do
10556 8168963 : end subroutine lu_fac43
10557 8168963 : subroutine lu_fac44( avec_len, lu )
10558 : use chem_mods, only : nzcnt
10559 : use shr_kind_mod, only : r8 => shr_kind_r8
10560 : implicit none
10561 : !-----------------------------------------------------------------------
10562 : ! ... dummy args
10563 : !-----------------------------------------------------------------------
10564 : integer, intent(in) :: avec_len
10565 : real(r8), intent(inout) :: lu(veclen,nzcnt)
10566 : !-----------------------------------------------------------------------
10567 : ! ... local variables
10568 : !-----------------------------------------------------------------------
10569 : integer :: k
10570 263009123 : do k = 1,avec_len
10571 254840160 : lu(k,2110) = 1._r8 / lu(k,2110)
10572 254840160 : lu(k,2111) = lu(k,2111) * lu(k,2110)
10573 254840160 : lu(k,2112) = lu(k,2112) * lu(k,2110)
10574 254840160 : lu(k,2113) = lu(k,2113) * lu(k,2110)
10575 254840160 : lu(k,2114) = lu(k,2114) * lu(k,2110)
10576 254840160 : lu(k,2115) = lu(k,2115) * lu(k,2110)
10577 254840160 : lu(k,2116) = lu(k,2116) * lu(k,2110)
10578 254840160 : lu(k,2117) = lu(k,2117) * lu(k,2110)
10579 254840160 : lu(k,2118) = lu(k,2118) * lu(k,2110)
10580 254840160 : lu(k,2119) = lu(k,2119) * lu(k,2110)
10581 254840160 : lu(k,2120) = lu(k,2120) * lu(k,2110)
10582 254840160 : lu(k,2121) = lu(k,2121) * lu(k,2110)
10583 254840160 : lu(k,2122) = lu(k,2122) * lu(k,2110)
10584 254840160 : lu(k,2123) = lu(k,2123) * lu(k,2110)
10585 254840160 : lu(k,2124) = lu(k,2124) * lu(k,2110)
10586 254840160 : lu(k,2179) = lu(k,2179) - lu(k,2111) * lu(k,2178)
10587 254840160 : lu(k,2183) = lu(k,2183) - lu(k,2112) * lu(k,2178)
10588 254840160 : lu(k,2184) = lu(k,2184) - lu(k,2113) * lu(k,2178)
10589 254840160 : lu(k,2185) = lu(k,2185) - lu(k,2114) * lu(k,2178)
10590 254840160 : lu(k,2186) = lu(k,2186) - lu(k,2115) * lu(k,2178)
10591 254840160 : lu(k,2187) = lu(k,2187) - lu(k,2116) * lu(k,2178)
10592 254840160 : lu(k,2188) = lu(k,2188) - lu(k,2117) * lu(k,2178)
10593 254840160 : lu(k,2189) = lu(k,2189) - lu(k,2118) * lu(k,2178)
10594 254840160 : lu(k,2191) = lu(k,2191) - lu(k,2119) * lu(k,2178)
10595 254840160 : lu(k,2192) = lu(k,2192) - lu(k,2120) * lu(k,2178)
10596 254840160 : lu(k,2193) = lu(k,2193) - lu(k,2121) * lu(k,2178)
10597 254840160 : lu(k,2194) = lu(k,2194) - lu(k,2122) * lu(k,2178)
10598 254840160 : lu(k,2195) = lu(k,2195) - lu(k,2123) * lu(k,2178)
10599 254840160 : lu(k,2196) = lu(k,2196) - lu(k,2124) * lu(k,2178)
10600 254840160 : lu(k,2888) = lu(k,2888) - lu(k,2111) * lu(k,2887)
10601 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2112) * lu(k,2887)
10602 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2113) * lu(k,2887)
10603 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2114) * lu(k,2887)
10604 254840160 : lu(k,2917) = lu(k,2917) - lu(k,2115) * lu(k,2887)
10605 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2116) * lu(k,2887)
10606 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2117) * lu(k,2887)
10607 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2118) * lu(k,2887)
10608 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2119) * lu(k,2887)
10609 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2120) * lu(k,2887)
10610 254840160 : lu(k,2924) = lu(k,2924) - lu(k,2121) * lu(k,2887)
10611 254840160 : lu(k,2926) = lu(k,2926) - lu(k,2122) * lu(k,2887)
10612 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2123) * lu(k,2887)
10613 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2124) * lu(k,2887)
10614 254840160 : lu(k,3077) = lu(k,3077) - lu(k,2111) * lu(k,3076)
10615 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2112) * lu(k,3076)
10616 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2113) * lu(k,3076)
10617 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2114) * lu(k,3076)
10618 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2115) * lu(k,3076)
10619 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2116) * lu(k,3076)
10620 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2117) * lu(k,3076)
10621 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2118) * lu(k,3076)
10622 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2119) * lu(k,3076)
10623 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2120) * lu(k,3076)
10624 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2121) * lu(k,3076)
10625 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2122) * lu(k,3076)
10626 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2123) * lu(k,3076)
10627 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2124) * lu(k,3076)
10628 254840160 : lu(k,3336) = lu(k,3336) - lu(k,2111) * lu(k,3335)
10629 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2112) * lu(k,3335)
10630 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2113) * lu(k,3335)
10631 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2114) * lu(k,3335)
10632 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2115) * lu(k,3335)
10633 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2116) * lu(k,3335)
10634 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2117) * lu(k,3335)
10635 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2118) * lu(k,3335)
10636 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2119) * lu(k,3335)
10637 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2120) * lu(k,3335)
10638 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2121) * lu(k,3335)
10639 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2122) * lu(k,3335)
10640 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2123) * lu(k,3335)
10641 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2124) * lu(k,3335)
10642 254840160 : lu(k,3430) = lu(k,3430) - lu(k,2111) * lu(k,3429)
10643 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2112) * lu(k,3429)
10644 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2113) * lu(k,3429)
10645 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2114) * lu(k,3429)
10646 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2115) * lu(k,3429)
10647 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2116) * lu(k,3429)
10648 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2117) * lu(k,3429)
10649 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2118) * lu(k,3429)
10650 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2119) * lu(k,3429)
10651 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2120) * lu(k,3429)
10652 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2121) * lu(k,3429)
10653 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2122) * lu(k,3429)
10654 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2123) * lu(k,3429)
10655 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2124) * lu(k,3429)
10656 254840160 : lu(k,3573) = lu(k,3573) - lu(k,2111) * lu(k,3572)
10657 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2112) * lu(k,3572)
10658 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2113) * lu(k,3572)
10659 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2114) * lu(k,3572)
10660 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2115) * lu(k,3572)
10661 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2116) * lu(k,3572)
10662 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2117) * lu(k,3572)
10663 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2118) * lu(k,3572)
10664 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2119) * lu(k,3572)
10665 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2120) * lu(k,3572)
10666 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2121) * lu(k,3572)
10667 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2122) * lu(k,3572)
10668 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2123) * lu(k,3572)
10669 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2124) * lu(k,3572)
10670 254840160 : lu(k,3729) = lu(k,3729) - lu(k,2111) * lu(k,3728)
10671 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2112) * lu(k,3728)
10672 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2113) * lu(k,3728)
10673 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2114) * lu(k,3728)
10674 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2115) * lu(k,3728)
10675 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2116) * lu(k,3728)
10676 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2117) * lu(k,3728)
10677 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2118) * lu(k,3728)
10678 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2119) * lu(k,3728)
10679 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2120) * lu(k,3728)
10680 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2121) * lu(k,3728)
10681 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2122) * lu(k,3728)
10682 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2123) * lu(k,3728)
10683 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2124) * lu(k,3728)
10684 254840160 : lu(k,4060) = lu(k,4060) - lu(k,2111) * lu(k,4059)
10685 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2112) * lu(k,4059)
10686 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2113) * lu(k,4059)
10687 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2114) * lu(k,4059)
10688 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2115) * lu(k,4059)
10689 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2116) * lu(k,4059)
10690 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2117) * lu(k,4059)
10691 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2118) * lu(k,4059)
10692 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2119) * lu(k,4059)
10693 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2120) * lu(k,4059)
10694 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2121) * lu(k,4059)
10695 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2122) * lu(k,4059)
10696 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2123) * lu(k,4059)
10697 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2124) * lu(k,4059)
10698 254840160 : lu(k,2140) = 1._r8 / lu(k,2140)
10699 254840160 : lu(k,2141) = lu(k,2141) * lu(k,2140)
10700 254840160 : lu(k,2142) = lu(k,2142) * lu(k,2140)
10701 254840160 : lu(k,2143) = lu(k,2143) * lu(k,2140)
10702 254840160 : lu(k,2144) = lu(k,2144) * lu(k,2140)
10703 254840160 : lu(k,2145) = lu(k,2145) * lu(k,2140)
10704 254840160 : lu(k,2146) = lu(k,2146) * lu(k,2140)
10705 254840160 : lu(k,2147) = lu(k,2147) * lu(k,2140)
10706 254840160 : lu(k,2148) = lu(k,2148) * lu(k,2140)
10707 254840160 : lu(k,2149) = lu(k,2149) * lu(k,2140)
10708 254840160 : lu(k,2150) = lu(k,2150) * lu(k,2140)
10709 254840160 : lu(k,2151) = lu(k,2151) * lu(k,2140)
10710 254840160 : lu(k,2152) = lu(k,2152) * lu(k,2140)
10711 254840160 : lu(k,2153) = lu(k,2153) * lu(k,2140)
10712 254840160 : lu(k,2183) = lu(k,2183) - lu(k,2141) * lu(k,2179)
10713 254840160 : lu(k,2184) = lu(k,2184) - lu(k,2142) * lu(k,2179)
10714 254840160 : lu(k,2185) = lu(k,2185) - lu(k,2143) * lu(k,2179)
10715 254840160 : lu(k,2186) = lu(k,2186) - lu(k,2144) * lu(k,2179)
10716 254840160 : lu(k,2187) = lu(k,2187) - lu(k,2145) * lu(k,2179)
10717 254840160 : lu(k,2188) = lu(k,2188) - lu(k,2146) * lu(k,2179)
10718 254840160 : lu(k,2189) = lu(k,2189) - lu(k,2147) * lu(k,2179)
10719 254840160 : lu(k,2191) = lu(k,2191) - lu(k,2148) * lu(k,2179)
10720 254840160 : lu(k,2192) = lu(k,2192) - lu(k,2149) * lu(k,2179)
10721 254840160 : lu(k,2193) = lu(k,2193) - lu(k,2150) * lu(k,2179)
10722 254840160 : lu(k,2194) = lu(k,2194) - lu(k,2151) * lu(k,2179)
10723 254840160 : lu(k,2195) = lu(k,2195) - lu(k,2152) * lu(k,2179)
10724 254840160 : lu(k,2196) = lu(k,2196) - lu(k,2153) * lu(k,2179)
10725 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2141) * lu(k,2888)
10726 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2142) * lu(k,2888)
10727 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2143) * lu(k,2888)
10728 254840160 : lu(k,2917) = lu(k,2917) - lu(k,2144) * lu(k,2888)
10729 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2145) * lu(k,2888)
10730 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2146) * lu(k,2888)
10731 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2147) * lu(k,2888)
10732 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2148) * lu(k,2888)
10733 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2149) * lu(k,2888)
10734 254840160 : lu(k,2924) = lu(k,2924) - lu(k,2150) * lu(k,2888)
10735 254840160 : lu(k,2926) = lu(k,2926) - lu(k,2151) * lu(k,2888)
10736 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2152) * lu(k,2888)
10737 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2153) * lu(k,2888)
10738 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2141) * lu(k,3077)
10739 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2142) * lu(k,3077)
10740 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2143) * lu(k,3077)
10741 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2144) * lu(k,3077)
10742 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2145) * lu(k,3077)
10743 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2146) * lu(k,3077)
10744 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2147) * lu(k,3077)
10745 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2148) * lu(k,3077)
10746 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2149) * lu(k,3077)
10747 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2150) * lu(k,3077)
10748 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2151) * lu(k,3077)
10749 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2152) * lu(k,3077)
10750 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2153) * lu(k,3077)
10751 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2141) * lu(k,3336)
10752 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2142) * lu(k,3336)
10753 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2143) * lu(k,3336)
10754 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2144) * lu(k,3336)
10755 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2145) * lu(k,3336)
10756 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2146) * lu(k,3336)
10757 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2147) * lu(k,3336)
10758 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2148) * lu(k,3336)
10759 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2149) * lu(k,3336)
10760 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2150) * lu(k,3336)
10761 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2151) * lu(k,3336)
10762 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2152) * lu(k,3336)
10763 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2153) * lu(k,3336)
10764 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2141) * lu(k,3430)
10765 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2142) * lu(k,3430)
10766 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2143) * lu(k,3430)
10767 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2144) * lu(k,3430)
10768 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2145) * lu(k,3430)
10769 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2146) * lu(k,3430)
10770 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2147) * lu(k,3430)
10771 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2148) * lu(k,3430)
10772 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2149) * lu(k,3430)
10773 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2150) * lu(k,3430)
10774 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2151) * lu(k,3430)
10775 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2152) * lu(k,3430)
10776 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2153) * lu(k,3430)
10777 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2141) * lu(k,3573)
10778 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2142) * lu(k,3573)
10779 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2143) * lu(k,3573)
10780 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2144) * lu(k,3573)
10781 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2145) * lu(k,3573)
10782 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2146) * lu(k,3573)
10783 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2147) * lu(k,3573)
10784 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2148) * lu(k,3573)
10785 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2149) * lu(k,3573)
10786 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2150) * lu(k,3573)
10787 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2151) * lu(k,3573)
10788 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2152) * lu(k,3573)
10789 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2153) * lu(k,3573)
10790 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2141) * lu(k,3729)
10791 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2142) * lu(k,3729)
10792 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2143) * lu(k,3729)
10793 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2144) * lu(k,3729)
10794 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2145) * lu(k,3729)
10795 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2146) * lu(k,3729)
10796 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2147) * lu(k,3729)
10797 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2148) * lu(k,3729)
10798 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2149) * lu(k,3729)
10799 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2150) * lu(k,3729)
10800 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2151) * lu(k,3729)
10801 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2152) * lu(k,3729)
10802 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2153) * lu(k,3729)
10803 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2141) * lu(k,4060)
10804 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2142) * lu(k,4060)
10805 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2143) * lu(k,4060)
10806 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2144) * lu(k,4060)
10807 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2145) * lu(k,4060)
10808 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2146) * lu(k,4060)
10809 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2147) * lu(k,4060)
10810 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2148) * lu(k,4060)
10811 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2149) * lu(k,4060)
10812 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2150) * lu(k,4060)
10813 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2151) * lu(k,4060)
10814 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2152) * lu(k,4060)
10815 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2153) * lu(k,4060)
10816 254840160 : lu(k,2180) = 1._r8 / lu(k,2180)
10817 254840160 : lu(k,2181) = lu(k,2181) * lu(k,2180)
10818 254840160 : lu(k,2182) = lu(k,2182) * lu(k,2180)
10819 254840160 : lu(k,2183) = lu(k,2183) * lu(k,2180)
10820 254840160 : lu(k,2184) = lu(k,2184) * lu(k,2180)
10821 254840160 : lu(k,2185) = lu(k,2185) * lu(k,2180)
10822 254840160 : lu(k,2186) = lu(k,2186) * lu(k,2180)
10823 254840160 : lu(k,2187) = lu(k,2187) * lu(k,2180)
10824 254840160 : lu(k,2188) = lu(k,2188) * lu(k,2180)
10825 254840160 : lu(k,2189) = lu(k,2189) * lu(k,2180)
10826 254840160 : lu(k,2190) = lu(k,2190) * lu(k,2180)
10827 254840160 : lu(k,2191) = lu(k,2191) * lu(k,2180)
10828 254840160 : lu(k,2192) = lu(k,2192) * lu(k,2180)
10829 254840160 : lu(k,2193) = lu(k,2193) * lu(k,2180)
10830 254840160 : lu(k,2194) = lu(k,2194) * lu(k,2180)
10831 254840160 : lu(k,2195) = lu(k,2195) * lu(k,2180)
10832 254840160 : lu(k,2196) = lu(k,2196) * lu(k,2180)
10833 254840160 : lu(k,2892) = lu(k,2892) - lu(k,2181) * lu(k,2889)
10834 254840160 : lu(k,2893) = lu(k,2893) - lu(k,2182) * lu(k,2889)
10835 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2183) * lu(k,2889)
10836 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2184) * lu(k,2889)
10837 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2185) * lu(k,2889)
10838 254840160 : lu(k,2917) = lu(k,2917) - lu(k,2186) * lu(k,2889)
10839 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2187) * lu(k,2889)
10840 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2188) * lu(k,2889)
10841 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2189) * lu(k,2889)
10842 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2190) * lu(k,2889)
10843 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2191) * lu(k,2889)
10844 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2192) * lu(k,2889)
10845 254840160 : lu(k,2924) = lu(k,2924) - lu(k,2193) * lu(k,2889)
10846 254840160 : lu(k,2926) = lu(k,2926) - lu(k,2194) * lu(k,2889)
10847 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2195) * lu(k,2889)
10848 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2196) * lu(k,2889)
10849 254840160 : lu(k,3082) = lu(k,3082) - lu(k,2181) * lu(k,3078)
10850 254840160 : lu(k,3083) = lu(k,3083) - lu(k,2182) * lu(k,3078)
10851 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2183) * lu(k,3078)
10852 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2184) * lu(k,3078)
10853 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2185) * lu(k,3078)
10854 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2186) * lu(k,3078)
10855 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2187) * lu(k,3078)
10856 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2188) * lu(k,3078)
10857 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2189) * lu(k,3078)
10858 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2190) * lu(k,3078)
10859 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2191) * lu(k,3078)
10860 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2192) * lu(k,3078)
10861 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2193) * lu(k,3078)
10862 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2194) * lu(k,3078)
10863 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2195) * lu(k,3078)
10864 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2196) * lu(k,3078)
10865 254840160 : lu(k,3341) = lu(k,3341) - lu(k,2181) * lu(k,3337)
10866 254840160 : lu(k,3342) = lu(k,3342) - lu(k,2182) * lu(k,3337)
10867 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2183) * lu(k,3337)
10868 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2184) * lu(k,3337)
10869 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2185) * lu(k,3337)
10870 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2186) * lu(k,3337)
10871 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2187) * lu(k,3337)
10872 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2188) * lu(k,3337)
10873 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2189) * lu(k,3337)
10874 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2190) * lu(k,3337)
10875 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2191) * lu(k,3337)
10876 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2192) * lu(k,3337)
10877 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2193) * lu(k,3337)
10878 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2194) * lu(k,3337)
10879 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2195) * lu(k,3337)
10880 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2196) * lu(k,3337)
10881 254840160 : lu(k,3434) = lu(k,3434) - lu(k,2181) * lu(k,3431)
10882 254840160 : lu(k,3435) = lu(k,3435) - lu(k,2182) * lu(k,3431)
10883 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2183) * lu(k,3431)
10884 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2184) * lu(k,3431)
10885 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2185) * lu(k,3431)
10886 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2186) * lu(k,3431)
10887 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2187) * lu(k,3431)
10888 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2188) * lu(k,3431)
10889 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2189) * lu(k,3431)
10890 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2190) * lu(k,3431)
10891 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2191) * lu(k,3431)
10892 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2192) * lu(k,3431)
10893 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2193) * lu(k,3431)
10894 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2194) * lu(k,3431)
10895 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2195) * lu(k,3431)
10896 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2196) * lu(k,3431)
10897 254840160 : lu(k,3578) = lu(k,3578) - lu(k,2181) * lu(k,3574)
10898 254840160 : lu(k,3579) = lu(k,3579) - lu(k,2182) * lu(k,3574)
10899 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2183) * lu(k,3574)
10900 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2184) * lu(k,3574)
10901 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2185) * lu(k,3574)
10902 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2186) * lu(k,3574)
10903 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2187) * lu(k,3574)
10904 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2188) * lu(k,3574)
10905 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2189) * lu(k,3574)
10906 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2190) * lu(k,3574)
10907 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2191) * lu(k,3574)
10908 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2192) * lu(k,3574)
10909 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2193) * lu(k,3574)
10910 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2194) * lu(k,3574)
10911 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2195) * lu(k,3574)
10912 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2196) * lu(k,3574)
10913 254840160 : lu(k,3733) = lu(k,3733) - lu(k,2181) * lu(k,3730)
10914 254840160 : lu(k,3734) = lu(k,3734) - lu(k,2182) * lu(k,3730)
10915 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2183) * lu(k,3730)
10916 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2184) * lu(k,3730)
10917 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2185) * lu(k,3730)
10918 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2186) * lu(k,3730)
10919 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2187) * lu(k,3730)
10920 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2188) * lu(k,3730)
10921 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2189) * lu(k,3730)
10922 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2190) * lu(k,3730)
10923 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2191) * lu(k,3730)
10924 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2192) * lu(k,3730)
10925 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2193) * lu(k,3730)
10926 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2194) * lu(k,3730)
10927 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2195) * lu(k,3730)
10928 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2196) * lu(k,3730)
10929 254840160 : lu(k,4064) = lu(k,4064) - lu(k,2181) * lu(k,4061)
10930 254840160 : lu(k,4065) = lu(k,4065) - lu(k,2182) * lu(k,4061)
10931 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2183) * lu(k,4061)
10932 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2184) * lu(k,4061)
10933 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2185) * lu(k,4061)
10934 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2186) * lu(k,4061)
10935 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2187) * lu(k,4061)
10936 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2188) * lu(k,4061)
10937 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2189) * lu(k,4061)
10938 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2190) * lu(k,4061)
10939 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2191) * lu(k,4061)
10940 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2192) * lu(k,4061)
10941 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2193) * lu(k,4061)
10942 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2194) * lu(k,4061)
10943 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2195) * lu(k,4061)
10944 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2196) * lu(k,4061)
10945 254840160 : lu(k,2199) = 1._r8 / lu(k,2199)
10946 254840160 : lu(k,2200) = lu(k,2200) * lu(k,2199)
10947 254840160 : lu(k,2201) = lu(k,2201) * lu(k,2199)
10948 254840160 : lu(k,2202) = lu(k,2202) * lu(k,2199)
10949 254840160 : lu(k,2203) = lu(k,2203) * lu(k,2199)
10950 254840160 : lu(k,2204) = lu(k,2204) * lu(k,2199)
10951 254840160 : lu(k,2205) = lu(k,2205) * lu(k,2199)
10952 254840160 : lu(k,2206) = lu(k,2206) * lu(k,2199)
10953 254840160 : lu(k,2207) = lu(k,2207) * lu(k,2199)
10954 254840160 : lu(k,2208) = lu(k,2208) * lu(k,2199)
10955 254840160 : lu(k,3104) = lu(k,3104) - lu(k,2200) * lu(k,3079)
10956 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2201) * lu(k,3079)
10957 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2202) * lu(k,3079)
10958 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2203) * lu(k,3079)
10959 254840160 : lu(k,3112) = lu(k,3112) - lu(k,2204) * lu(k,3079)
10960 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2205) * lu(k,3079)
10961 254840160 : lu(k,3117) = lu(k,3117) - lu(k,2206) * lu(k,3079)
10962 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2207) * lu(k,3079)
10963 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2208) * lu(k,3079)
10964 254840160 : lu(k,3127) = lu(k,3127) - lu(k,2200) * lu(k,3126)
10965 254840160 : lu(k,3130) = lu(k,3130) - lu(k,2201) * lu(k,3126)
10966 254840160 : lu(k,3131) = - lu(k,2202) * lu(k,3126)
10967 254840160 : lu(k,3132) = - lu(k,2203) * lu(k,3126)
10968 254840160 : lu(k,3134) = lu(k,3134) - lu(k,2204) * lu(k,3126)
10969 254840160 : lu(k,3138) = - lu(k,2205) * lu(k,3126)
10970 254840160 : lu(k,3139) = lu(k,3139) - lu(k,2206) * lu(k,3126)
10971 254840160 : lu(k,3141) = lu(k,3141) - lu(k,2207) * lu(k,3126)
10972 254840160 : lu(k,3142) = lu(k,3142) - lu(k,2208) * lu(k,3126)
10973 254840160 : lu(k,3157) = lu(k,3157) - lu(k,2200) * lu(k,3155)
10974 254840160 : lu(k,3161) = lu(k,3161) - lu(k,2201) * lu(k,3155)
10975 254840160 : lu(k,3162) = lu(k,3162) - lu(k,2202) * lu(k,3155)
10976 254840160 : lu(k,3163) = lu(k,3163) - lu(k,2203) * lu(k,3155)
10977 254840160 : lu(k,3165) = lu(k,3165) - lu(k,2204) * lu(k,3155)
10978 254840160 : lu(k,3169) = lu(k,3169) - lu(k,2205) * lu(k,3155)
10979 254840160 : lu(k,3170) = lu(k,3170) - lu(k,2206) * lu(k,3155)
10980 254840160 : lu(k,3172) = lu(k,3172) - lu(k,2207) * lu(k,3155)
10981 254840160 : lu(k,3173) = lu(k,3173) - lu(k,2208) * lu(k,3155)
10982 254840160 : lu(k,3183) = lu(k,3183) - lu(k,2200) * lu(k,3181)
10983 254840160 : lu(k,3187) = lu(k,3187) - lu(k,2201) * lu(k,3181)
10984 254840160 : lu(k,3188) = lu(k,3188) - lu(k,2202) * lu(k,3181)
10985 254840160 : lu(k,3189) = lu(k,3189) - lu(k,2203) * lu(k,3181)
10986 254840160 : lu(k,3191) = lu(k,3191) - lu(k,2204) * lu(k,3181)
10987 254840160 : lu(k,3195) = - lu(k,2205) * lu(k,3181)
10988 254840160 : lu(k,3196) = lu(k,3196) - lu(k,2206) * lu(k,3181)
10989 254840160 : lu(k,3198) = lu(k,3198) - lu(k,2207) * lu(k,3181)
10990 254840160 : lu(k,3199) = lu(k,3199) - lu(k,2208) * lu(k,3181)
10991 254840160 : lu(k,3363) = lu(k,3363) - lu(k,2200) * lu(k,3338)
10992 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2201) * lu(k,3338)
10993 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2202) * lu(k,3338)
10994 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2203) * lu(k,3338)
10995 254840160 : lu(k,3371) = lu(k,3371) - lu(k,2204) * lu(k,3338)
10996 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2205) * lu(k,3338)
10997 254840160 : lu(k,3376) = lu(k,3376) - lu(k,2206) * lu(k,3338)
10998 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2207) * lu(k,3338)
10999 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2208) * lu(k,3338)
11000 254840160 : lu(k,3480) = lu(k,3480) - lu(k,2200) * lu(k,3479)
11001 254840160 : lu(k,3484) = lu(k,3484) - lu(k,2201) * lu(k,3479)
11002 254840160 : lu(k,3485) = - lu(k,2202) * lu(k,3479)
11003 254840160 : lu(k,3486) = lu(k,3486) - lu(k,2203) * lu(k,3479)
11004 254840160 : lu(k,3488) = lu(k,3488) - lu(k,2204) * lu(k,3479)
11005 254840160 : lu(k,3492) = lu(k,3492) - lu(k,2205) * lu(k,3479)
11006 254840160 : lu(k,3493) = - lu(k,2206) * lu(k,3479)
11007 254840160 : lu(k,3495) = lu(k,3495) - lu(k,2207) * lu(k,3479)
11008 254840160 : lu(k,3496) = lu(k,3496) - lu(k,2208) * lu(k,3479)
11009 254840160 : lu(k,3506) = lu(k,3506) - lu(k,2200) * lu(k,3505)
11010 254840160 : lu(k,3510) = lu(k,3510) - lu(k,2201) * lu(k,3505)
11011 254840160 : lu(k,3511) = lu(k,3511) - lu(k,2202) * lu(k,3505)
11012 254840160 : lu(k,3512) = lu(k,3512) - lu(k,2203) * lu(k,3505)
11013 254840160 : lu(k,3514) = lu(k,3514) - lu(k,2204) * lu(k,3505)
11014 254840160 : lu(k,3518) = lu(k,3518) - lu(k,2205) * lu(k,3505)
11015 254840160 : lu(k,3519) = - lu(k,2206) * lu(k,3505)
11016 254840160 : lu(k,3521) = lu(k,3521) - lu(k,2207) * lu(k,3505)
11017 254840160 : lu(k,3522) = lu(k,3522) - lu(k,2208) * lu(k,3505)
11018 254840160 : lu(k,3600) = lu(k,3600) - lu(k,2200) * lu(k,3575)
11019 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2201) * lu(k,3575)
11020 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2202) * lu(k,3575)
11021 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2203) * lu(k,3575)
11022 254840160 : lu(k,3608) = lu(k,3608) - lu(k,2204) * lu(k,3575)
11023 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2205) * lu(k,3575)
11024 254840160 : lu(k,3613) = - lu(k,2206) * lu(k,3575)
11025 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2207) * lu(k,3575)
11026 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2208) * lu(k,3575)
11027 254840160 : lu(k,3652) = lu(k,3652) - lu(k,2200) * lu(k,3645)
11028 254840160 : lu(k,3656) = lu(k,3656) - lu(k,2201) * lu(k,3645)
11029 254840160 : lu(k,3657) = lu(k,3657) - lu(k,2202) * lu(k,3645)
11030 254840160 : lu(k,3658) = lu(k,3658) - lu(k,2203) * lu(k,3645)
11031 254840160 : lu(k,3660) = lu(k,3660) - lu(k,2204) * lu(k,3645)
11032 254840160 : lu(k,3664) = lu(k,3664) - lu(k,2205) * lu(k,3645)
11033 254840160 : lu(k,3665) = lu(k,3665) - lu(k,2206) * lu(k,3645)
11034 254840160 : lu(k,3667) = lu(k,3667) - lu(k,2207) * lu(k,3645)
11035 254840160 : lu(k,3668) = lu(k,3668) - lu(k,2208) * lu(k,3645)
11036 254840160 : lu(k,3754) = lu(k,3754) - lu(k,2200) * lu(k,3731)
11037 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2201) * lu(k,3731)
11038 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2202) * lu(k,3731)
11039 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2203) * lu(k,3731)
11040 254840160 : lu(k,3762) = lu(k,3762) - lu(k,2204) * lu(k,3731)
11041 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2205) * lu(k,3731)
11042 254840160 : lu(k,3767) = lu(k,3767) - lu(k,2206) * lu(k,3731)
11043 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2207) * lu(k,3731)
11044 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2208) * lu(k,3731)
11045 254840160 : lu(k,3795) = lu(k,3795) - lu(k,2200) * lu(k,3793)
11046 254840160 : lu(k,3799) = lu(k,3799) - lu(k,2201) * lu(k,3793)
11047 254840160 : lu(k,3800) = lu(k,3800) - lu(k,2202) * lu(k,3793)
11048 254840160 : lu(k,3801) = lu(k,3801) - lu(k,2203) * lu(k,3793)
11049 254840160 : lu(k,3803) = lu(k,3803) - lu(k,2204) * lu(k,3793)
11050 254840160 : lu(k,3807) = lu(k,3807) - lu(k,2205) * lu(k,3793)
11051 254840160 : lu(k,3808) = lu(k,3808) - lu(k,2206) * lu(k,3793)
11052 254840160 : lu(k,3810) = lu(k,3810) - lu(k,2207) * lu(k,3793)
11053 254840160 : lu(k,3811) = lu(k,3811) - lu(k,2208) * lu(k,3793)
11054 254840160 : lu(k,3836) = lu(k,3836) - lu(k,2200) * lu(k,3833)
11055 254840160 : lu(k,3840) = lu(k,3840) - lu(k,2201) * lu(k,3833)
11056 254840160 : lu(k,3841) = lu(k,3841) - lu(k,2202) * lu(k,3833)
11057 254840160 : lu(k,3842) = lu(k,3842) - lu(k,2203) * lu(k,3833)
11058 254840160 : lu(k,3844) = - lu(k,2204) * lu(k,3833)
11059 254840160 : lu(k,3848) = lu(k,3848) - lu(k,2205) * lu(k,3833)
11060 254840160 : lu(k,3849) = lu(k,3849) - lu(k,2206) * lu(k,3833)
11061 254840160 : lu(k,3851) = lu(k,3851) - lu(k,2207) * lu(k,3833)
11062 254840160 : lu(k,3852) = lu(k,3852) - lu(k,2208) * lu(k,3833)
11063 254840160 : lu(k,4086) = lu(k,4086) - lu(k,2200) * lu(k,4062)
11064 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2201) * lu(k,4062)
11065 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2202) * lu(k,4062)
11066 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2203) * lu(k,4062)
11067 254840160 : lu(k,4094) = lu(k,4094) - lu(k,2204) * lu(k,4062)
11068 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2205) * lu(k,4062)
11069 254840160 : lu(k,4099) = lu(k,4099) - lu(k,2206) * lu(k,4062)
11070 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2207) * lu(k,4062)
11071 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2208) * lu(k,4062)
11072 254840160 : lu(k,4112) = lu(k,4112) - lu(k,2200) * lu(k,4110)
11073 254840160 : lu(k,4116) = lu(k,4116) - lu(k,2201) * lu(k,4110)
11074 254840160 : lu(k,4117) = - lu(k,2202) * lu(k,4110)
11075 254840160 : lu(k,4118) = lu(k,4118) - lu(k,2203) * lu(k,4110)
11076 254840160 : lu(k,4120) = lu(k,4120) - lu(k,2204) * lu(k,4110)
11077 254840160 : lu(k,4124) = lu(k,4124) - lu(k,2205) * lu(k,4110)
11078 254840160 : lu(k,4125) = lu(k,4125) - lu(k,2206) * lu(k,4110)
11079 254840160 : lu(k,4127) = lu(k,4127) - lu(k,2207) * lu(k,4110)
11080 263009123 : lu(k,4128) = lu(k,4128) - lu(k,2208) * lu(k,4110)
11081 : end do
11082 8168963 : end subroutine lu_fac44
11083 8168963 : subroutine lu_fac45( avec_len, lu )
11084 : use chem_mods, only : nzcnt
11085 : use shr_kind_mod, only : r8 => shr_kind_r8
11086 : implicit none
11087 : !-----------------------------------------------------------------------
11088 : ! ... dummy args
11089 : !-----------------------------------------------------------------------
11090 : integer, intent(in) :: avec_len
11091 : real(r8), intent(inout) :: lu(veclen,nzcnt)
11092 : !-----------------------------------------------------------------------
11093 : ! ... local variables
11094 : !-----------------------------------------------------------------------
11095 : integer :: k
11096 263009123 : do k = 1,avec_len
11097 254840160 : lu(k,2213) = 1._r8 / lu(k,2213)
11098 254840160 : lu(k,2214) = lu(k,2214) * lu(k,2213)
11099 254840160 : lu(k,2215) = lu(k,2215) * lu(k,2213)
11100 254840160 : lu(k,2216) = lu(k,2216) * lu(k,2213)
11101 254840160 : lu(k,2217) = lu(k,2217) * lu(k,2213)
11102 254840160 : lu(k,2218) = lu(k,2218) * lu(k,2213)
11103 254840160 : lu(k,2219) = lu(k,2219) * lu(k,2213)
11104 254840160 : lu(k,2220) = lu(k,2220) * lu(k,2213)
11105 254840160 : lu(k,2221) = lu(k,2221) * lu(k,2213)
11106 254840160 : lu(k,2222) = lu(k,2222) * lu(k,2213)
11107 254840160 : lu(k,2223) = lu(k,2223) * lu(k,2213)
11108 254840160 : lu(k,2224) = lu(k,2224) * lu(k,2213)
11109 254840160 : lu(k,2225) = lu(k,2225) * lu(k,2213)
11110 254840160 : lu(k,2226) = lu(k,2226) * lu(k,2213)
11111 254840160 : lu(k,2227) = lu(k,2227) * lu(k,2213)
11112 254840160 : lu(k,2228) = lu(k,2228) * lu(k,2213)
11113 254840160 : lu(k,2229) = lu(k,2229) * lu(k,2213)
11114 254840160 : lu(k,2740) = lu(k,2740) - lu(k,2214) * lu(k,2726)
11115 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2215) * lu(k,2726)
11116 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2216) * lu(k,2726)
11117 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2217) * lu(k,2726)
11118 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2218) * lu(k,2726)
11119 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2219) * lu(k,2726)
11120 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2220) * lu(k,2726)
11121 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2221) * lu(k,2726)
11122 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2222) * lu(k,2726)
11123 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2223) * lu(k,2726)
11124 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2224) * lu(k,2726)
11125 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2225) * lu(k,2726)
11126 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2226) * lu(k,2726)
11127 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2227) * lu(k,2726)
11128 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2228) * lu(k,2726)
11129 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2229) * lu(k,2726)
11130 254840160 : lu(k,2786) = lu(k,2786) - lu(k,2214) * lu(k,2772)
11131 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2215) * lu(k,2772)
11132 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2216) * lu(k,2772)
11133 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2217) * lu(k,2772)
11134 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2218) * lu(k,2772)
11135 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2219) * lu(k,2772)
11136 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2220) * lu(k,2772)
11137 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2221) * lu(k,2772)
11138 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2222) * lu(k,2772)
11139 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2223) * lu(k,2772)
11140 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2224) * lu(k,2772)
11141 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2225) * lu(k,2772)
11142 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2226) * lu(k,2772)
11143 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2227) * lu(k,2772)
11144 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2228) * lu(k,2772)
11145 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2229) * lu(k,2772)
11146 254840160 : lu(k,2833) = lu(k,2833) - lu(k,2214) * lu(k,2819)
11147 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2215) * lu(k,2819)
11148 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2216) * lu(k,2819)
11149 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2217) * lu(k,2819)
11150 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2218) * lu(k,2819)
11151 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2219) * lu(k,2819)
11152 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2220) * lu(k,2819)
11153 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2221) * lu(k,2819)
11154 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2222) * lu(k,2819)
11155 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2223) * lu(k,2819)
11156 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2224) * lu(k,2819)
11157 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2225) * lu(k,2819)
11158 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2226) * lu(k,2819)
11159 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2227) * lu(k,2819)
11160 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2228) * lu(k,2819)
11161 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2229) * lu(k,2819)
11162 254840160 : lu(k,2905) = lu(k,2905) - lu(k,2214) * lu(k,2890)
11163 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2215) * lu(k,2890)
11164 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2216) * lu(k,2890)
11165 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2217) * lu(k,2890)
11166 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2218) * lu(k,2890)
11167 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2219) * lu(k,2890)
11168 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2220) * lu(k,2890)
11169 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2221) * lu(k,2890)
11170 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2222) * lu(k,2890)
11171 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2223) * lu(k,2890)
11172 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2224) * lu(k,2890)
11173 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2225) * lu(k,2890)
11174 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2226) * lu(k,2890)
11175 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2227) * lu(k,2890)
11176 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2228) * lu(k,2890)
11177 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2229) * lu(k,2890)
11178 254840160 : lu(k,3095) = lu(k,3095) - lu(k,2214) * lu(k,3080)
11179 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2215) * lu(k,3080)
11180 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2216) * lu(k,3080)
11181 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2217) * lu(k,3080)
11182 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2218) * lu(k,3080)
11183 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2219) * lu(k,3080)
11184 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2220) * lu(k,3080)
11185 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2221) * lu(k,3080)
11186 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2222) * lu(k,3080)
11187 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2223) * lu(k,3080)
11188 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2224) * lu(k,3080)
11189 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2225) * lu(k,3080)
11190 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2226) * lu(k,3080)
11191 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2227) * lu(k,3080)
11192 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2228) * lu(k,3080)
11193 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2229) * lu(k,3080)
11194 254840160 : lu(k,3354) = lu(k,3354) - lu(k,2214) * lu(k,3339)
11195 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2215) * lu(k,3339)
11196 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2216) * lu(k,3339)
11197 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2217) * lu(k,3339)
11198 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2218) * lu(k,3339)
11199 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2219) * lu(k,3339)
11200 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2220) * lu(k,3339)
11201 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2221) * lu(k,3339)
11202 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2222) * lu(k,3339)
11203 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2223) * lu(k,3339)
11204 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2224) * lu(k,3339)
11205 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2225) * lu(k,3339)
11206 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2226) * lu(k,3339)
11207 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2227) * lu(k,3339)
11208 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2228) * lu(k,3339)
11209 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2229) * lu(k,3339)
11210 254840160 : lu(k,3447) = lu(k,3447) - lu(k,2214) * lu(k,3432)
11211 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2215) * lu(k,3432)
11212 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2216) * lu(k,3432)
11213 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2217) * lu(k,3432)
11214 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2218) * lu(k,3432)
11215 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2219) * lu(k,3432)
11216 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2220) * lu(k,3432)
11217 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2221) * lu(k,3432)
11218 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2222) * lu(k,3432)
11219 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2223) * lu(k,3432)
11220 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2224) * lu(k,3432)
11221 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2225) * lu(k,3432)
11222 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2226) * lu(k,3432)
11223 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2227) * lu(k,3432)
11224 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2228) * lu(k,3432)
11225 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2229) * lu(k,3432)
11226 254840160 : lu(k,3591) = lu(k,3591) - lu(k,2214) * lu(k,3576)
11227 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2215) * lu(k,3576)
11228 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2216) * lu(k,3576)
11229 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2217) * lu(k,3576)
11230 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2218) * lu(k,3576)
11231 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2219) * lu(k,3576)
11232 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2220) * lu(k,3576)
11233 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2221) * lu(k,3576)
11234 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2222) * lu(k,3576)
11235 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2223) * lu(k,3576)
11236 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2224) * lu(k,3576)
11237 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2225) * lu(k,3576)
11238 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2226) * lu(k,3576)
11239 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2227) * lu(k,3576)
11240 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2228) * lu(k,3576)
11241 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2229) * lu(k,3576)
11242 254840160 : lu(k,3745) = lu(k,3745) - lu(k,2214) * lu(k,3732)
11243 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2215) * lu(k,3732)
11244 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2216) * lu(k,3732)
11245 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2217) * lu(k,3732)
11246 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2218) * lu(k,3732)
11247 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2219) * lu(k,3732)
11248 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2220) * lu(k,3732)
11249 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2221) * lu(k,3732)
11250 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2222) * lu(k,3732)
11251 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2223) * lu(k,3732)
11252 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2224) * lu(k,3732)
11253 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2225) * lu(k,3732)
11254 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2226) * lu(k,3732)
11255 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2227) * lu(k,3732)
11256 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2228) * lu(k,3732)
11257 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2229) * lu(k,3732)
11258 254840160 : lu(k,4077) = lu(k,4077) - lu(k,2214) * lu(k,4063)
11259 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2215) * lu(k,4063)
11260 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2216) * lu(k,4063)
11261 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2217) * lu(k,4063)
11262 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2218) * lu(k,4063)
11263 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2219) * lu(k,4063)
11264 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2220) * lu(k,4063)
11265 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2221) * lu(k,4063)
11266 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2222) * lu(k,4063)
11267 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2223) * lu(k,4063)
11268 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2224) * lu(k,4063)
11269 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2225) * lu(k,4063)
11270 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2226) * lu(k,4063)
11271 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2227) * lu(k,4063)
11272 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2228) * lu(k,4063)
11273 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2229) * lu(k,4063)
11274 254840160 : lu(k,2235) = 1._r8 / lu(k,2235)
11275 254840160 : lu(k,2236) = lu(k,2236) * lu(k,2235)
11276 254840160 : lu(k,2237) = lu(k,2237) * lu(k,2235)
11277 254840160 : lu(k,2238) = lu(k,2238) * lu(k,2235)
11278 254840160 : lu(k,2239) = lu(k,2239) * lu(k,2235)
11279 254840160 : lu(k,2240) = lu(k,2240) * lu(k,2235)
11280 254840160 : lu(k,2241) = lu(k,2241) * lu(k,2235)
11281 254840160 : lu(k,2242) = lu(k,2242) * lu(k,2235)
11282 254840160 : lu(k,2243) = lu(k,2243) * lu(k,2235)
11283 254840160 : lu(k,2244) = lu(k,2244) * lu(k,2235)
11284 254840160 : lu(k,2245) = lu(k,2245) * lu(k,2235)
11285 254840160 : lu(k,2246) = lu(k,2246) * lu(k,2235)
11286 254840160 : lu(k,2247) = lu(k,2247) * lu(k,2235)
11287 254840160 : lu(k,2248) = lu(k,2248) * lu(k,2235)
11288 254840160 : lu(k,2249) = lu(k,2249) * lu(k,2235)
11289 254840160 : lu(k,2250) = lu(k,2250) * lu(k,2235)
11290 254840160 : lu(k,2251) = lu(k,2251) * lu(k,2235)
11291 254840160 : lu(k,2252) = lu(k,2252) * lu(k,2235)
11292 254840160 : lu(k,2253) = lu(k,2253) * lu(k,2235)
11293 254840160 : lu(k,2697) = - lu(k,2236) * lu(k,2696)
11294 254840160 : lu(k,2698) = lu(k,2698) - lu(k,2237) * lu(k,2696)
11295 254840160 : lu(k,2699) = lu(k,2699) - lu(k,2238) * lu(k,2696)
11296 254840160 : lu(k,2700) = lu(k,2700) - lu(k,2239) * lu(k,2696)
11297 254840160 : lu(k,2701) = lu(k,2701) - lu(k,2240) * lu(k,2696)
11298 254840160 : lu(k,2702) = lu(k,2702) - lu(k,2241) * lu(k,2696)
11299 254840160 : lu(k,2703) = lu(k,2703) - lu(k,2242) * lu(k,2696)
11300 254840160 : lu(k,2704) = lu(k,2704) - lu(k,2243) * lu(k,2696)
11301 254840160 : lu(k,2705) = lu(k,2705) - lu(k,2244) * lu(k,2696)
11302 254840160 : lu(k,2706) = lu(k,2706) - lu(k,2245) * lu(k,2696)
11303 254840160 : lu(k,2707) = lu(k,2707) - lu(k,2246) * lu(k,2696)
11304 254840160 : lu(k,2708) = lu(k,2708) - lu(k,2247) * lu(k,2696)
11305 254840160 : lu(k,2709) = lu(k,2709) - lu(k,2248) * lu(k,2696)
11306 254840160 : lu(k,2710) = lu(k,2710) - lu(k,2249) * lu(k,2696)
11307 254840160 : lu(k,2711) = lu(k,2711) - lu(k,2250) * lu(k,2696)
11308 254840160 : lu(k,2712) = lu(k,2712) - lu(k,2251) * lu(k,2696)
11309 254840160 : lu(k,2713) = lu(k,2713) - lu(k,2252) * lu(k,2696)
11310 254840160 : lu(k,2714) = lu(k,2714) - lu(k,2253) * lu(k,2696)
11311 254840160 : lu(k,2728) = lu(k,2728) - lu(k,2236) * lu(k,2727)
11312 254840160 : lu(k,2732) = lu(k,2732) - lu(k,2237) * lu(k,2727)
11313 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2238) * lu(k,2727)
11314 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2239) * lu(k,2727)
11315 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2240) * lu(k,2727)
11316 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2241) * lu(k,2727)
11317 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2242) * lu(k,2727)
11318 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2243) * lu(k,2727)
11319 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2244) * lu(k,2727)
11320 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2245) * lu(k,2727)
11321 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2246) * lu(k,2727)
11322 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2247) * lu(k,2727)
11323 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2248) * lu(k,2727)
11324 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2249) * lu(k,2727)
11325 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2250) * lu(k,2727)
11326 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2251) * lu(k,2727)
11327 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2252) * lu(k,2727)
11328 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2253) * lu(k,2727)
11329 254840160 : lu(k,2774) = lu(k,2774) - lu(k,2236) * lu(k,2773)
11330 254840160 : lu(k,2778) = lu(k,2778) - lu(k,2237) * lu(k,2773)
11331 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2238) * lu(k,2773)
11332 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2239) * lu(k,2773)
11333 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2240) * lu(k,2773)
11334 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2241) * lu(k,2773)
11335 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2242) * lu(k,2773)
11336 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2243) * lu(k,2773)
11337 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2244) * lu(k,2773)
11338 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2245) * lu(k,2773)
11339 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2246) * lu(k,2773)
11340 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2247) * lu(k,2773)
11341 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2248) * lu(k,2773)
11342 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2249) * lu(k,2773)
11343 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2250) * lu(k,2773)
11344 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2251) * lu(k,2773)
11345 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2252) * lu(k,2773)
11346 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2253) * lu(k,2773)
11347 254840160 : lu(k,2821) = lu(k,2821) - lu(k,2236) * lu(k,2820)
11348 254840160 : lu(k,2825) = lu(k,2825) - lu(k,2237) * lu(k,2820)
11349 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2238) * lu(k,2820)
11350 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2239) * lu(k,2820)
11351 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2240) * lu(k,2820)
11352 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2241) * lu(k,2820)
11353 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2242) * lu(k,2820)
11354 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2243) * lu(k,2820)
11355 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2244) * lu(k,2820)
11356 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2245) * lu(k,2820)
11357 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2246) * lu(k,2820)
11358 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2247) * lu(k,2820)
11359 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2248) * lu(k,2820)
11360 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2249) * lu(k,2820)
11361 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2250) * lu(k,2820)
11362 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2251) * lu(k,2820)
11363 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2252) * lu(k,2820)
11364 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2253) * lu(k,2820)
11365 254840160 : lu(k,2893) = lu(k,2893) - lu(k,2236) * lu(k,2891)
11366 254840160 : lu(k,2897) = lu(k,2897) - lu(k,2237) * lu(k,2891)
11367 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2238) * lu(k,2891)
11368 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2239) * lu(k,2891)
11369 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2240) * lu(k,2891)
11370 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2241) * lu(k,2891)
11371 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2242) * lu(k,2891)
11372 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2243) * lu(k,2891)
11373 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2244) * lu(k,2891)
11374 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2245) * lu(k,2891)
11375 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2246) * lu(k,2891)
11376 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2247) * lu(k,2891)
11377 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2248) * lu(k,2891)
11378 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2249) * lu(k,2891)
11379 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2250) * lu(k,2891)
11380 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2251) * lu(k,2891)
11381 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2252) * lu(k,2891)
11382 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2253) * lu(k,2891)
11383 254840160 : lu(k,3083) = lu(k,3083) - lu(k,2236) * lu(k,3081)
11384 254840160 : lu(k,3087) = lu(k,3087) - lu(k,2237) * lu(k,3081)
11385 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2238) * lu(k,3081)
11386 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2239) * lu(k,3081)
11387 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2240) * lu(k,3081)
11388 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2241) * lu(k,3081)
11389 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2242) * lu(k,3081)
11390 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2243) * lu(k,3081)
11391 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2244) * lu(k,3081)
11392 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2245) * lu(k,3081)
11393 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2246) * lu(k,3081)
11394 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2247) * lu(k,3081)
11395 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2248) * lu(k,3081)
11396 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2249) * lu(k,3081)
11397 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2250) * lu(k,3081)
11398 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2251) * lu(k,3081)
11399 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2252) * lu(k,3081)
11400 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2253) * lu(k,3081)
11401 254840160 : lu(k,3342) = lu(k,3342) - lu(k,2236) * lu(k,3340)
11402 254840160 : lu(k,3346) = lu(k,3346) - lu(k,2237) * lu(k,3340)
11403 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2238) * lu(k,3340)
11404 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2239) * lu(k,3340)
11405 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2240) * lu(k,3340)
11406 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2241) * lu(k,3340)
11407 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2242) * lu(k,3340)
11408 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2243) * lu(k,3340)
11409 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2244) * lu(k,3340)
11410 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2245) * lu(k,3340)
11411 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2246) * lu(k,3340)
11412 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2247) * lu(k,3340)
11413 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2248) * lu(k,3340)
11414 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2249) * lu(k,3340)
11415 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2250) * lu(k,3340)
11416 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2251) * lu(k,3340)
11417 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2252) * lu(k,3340)
11418 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2253) * lu(k,3340)
11419 254840160 : lu(k,3435) = lu(k,3435) - lu(k,2236) * lu(k,3433)
11420 254840160 : lu(k,3439) = lu(k,3439) - lu(k,2237) * lu(k,3433)
11421 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2238) * lu(k,3433)
11422 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2239) * lu(k,3433)
11423 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2240) * lu(k,3433)
11424 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2241) * lu(k,3433)
11425 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2242) * lu(k,3433)
11426 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2243) * lu(k,3433)
11427 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2244) * lu(k,3433)
11428 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2245) * lu(k,3433)
11429 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2246) * lu(k,3433)
11430 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2247) * lu(k,3433)
11431 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2248) * lu(k,3433)
11432 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2249) * lu(k,3433)
11433 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2250) * lu(k,3433)
11434 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2251) * lu(k,3433)
11435 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2252) * lu(k,3433)
11436 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2253) * lu(k,3433)
11437 254840160 : lu(k,3579) = lu(k,3579) - lu(k,2236) * lu(k,3577)
11438 254840160 : lu(k,3583) = lu(k,3583) - lu(k,2237) * lu(k,3577)
11439 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2238) * lu(k,3577)
11440 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2239) * lu(k,3577)
11441 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2240) * lu(k,3577)
11442 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2241) * lu(k,3577)
11443 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2242) * lu(k,3577)
11444 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2243) * lu(k,3577)
11445 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2244) * lu(k,3577)
11446 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2245) * lu(k,3577)
11447 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2246) * lu(k,3577)
11448 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2247) * lu(k,3577)
11449 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2248) * lu(k,3577)
11450 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2249) * lu(k,3577)
11451 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2250) * lu(k,3577)
11452 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2251) * lu(k,3577)
11453 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2252) * lu(k,3577)
11454 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2253) * lu(k,3577)
11455 254840160 : lu(k,2259) = 1._r8 / lu(k,2259)
11456 254840160 : lu(k,2260) = lu(k,2260) * lu(k,2259)
11457 254840160 : lu(k,2261) = lu(k,2261) * lu(k,2259)
11458 254840160 : lu(k,2262) = lu(k,2262) * lu(k,2259)
11459 254840160 : lu(k,2263) = lu(k,2263) * lu(k,2259)
11460 254840160 : lu(k,2264) = lu(k,2264) * lu(k,2259)
11461 254840160 : lu(k,2265) = lu(k,2265) * lu(k,2259)
11462 254840160 : lu(k,2266) = lu(k,2266) * lu(k,2259)
11463 254840160 : lu(k,2267) = lu(k,2267) * lu(k,2259)
11464 254840160 : lu(k,2268) = lu(k,2268) * lu(k,2259)
11465 254840160 : lu(k,2269) = lu(k,2269) * lu(k,2259)
11466 254840160 : lu(k,2270) = lu(k,2270) * lu(k,2259)
11467 254840160 : lu(k,2271) = lu(k,2271) * lu(k,2259)
11468 254840160 : lu(k,2914) = - lu(k,2260) * lu(k,2892)
11469 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2261) * lu(k,2892)
11470 254840160 : lu(k,2917) = lu(k,2917) - lu(k,2262) * lu(k,2892)
11471 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2263) * lu(k,2892)
11472 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2264) * lu(k,2892)
11473 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2265) * lu(k,2892)
11474 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2266) * lu(k,2892)
11475 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2267) * lu(k,2892)
11476 254840160 : lu(k,2925) = - lu(k,2268) * lu(k,2892)
11477 254840160 : lu(k,2926) = lu(k,2926) - lu(k,2269) * lu(k,2892)
11478 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2270) * lu(k,2892)
11479 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2271) * lu(k,2892)
11480 254840160 : lu(k,2931) = lu(k,2931) - lu(k,2260) * lu(k,2930)
11481 254840160 : lu(k,2932) = lu(k,2932) - lu(k,2261) * lu(k,2930)
11482 254840160 : lu(k,2933) = lu(k,2933) - lu(k,2262) * lu(k,2930)
11483 254840160 : lu(k,2934) = lu(k,2934) - lu(k,2263) * lu(k,2930)
11484 254840160 : lu(k,2935) = - lu(k,2264) * lu(k,2930)
11485 254840160 : lu(k,2936) = lu(k,2936) - lu(k,2265) * lu(k,2930)
11486 254840160 : lu(k,2937) = lu(k,2937) - lu(k,2266) * lu(k,2930)
11487 254840160 : lu(k,2938) = lu(k,2938) - lu(k,2267) * lu(k,2930)
11488 254840160 : lu(k,2940) = lu(k,2940) - lu(k,2268) * lu(k,2930)
11489 254840160 : lu(k,2941) = lu(k,2941) - lu(k,2269) * lu(k,2930)
11490 254840160 : lu(k,2942) = lu(k,2942) - lu(k,2270) * lu(k,2930)
11491 254840160 : lu(k,2943) = lu(k,2943) - lu(k,2271) * lu(k,2930)
11492 254840160 : lu(k,2948) = lu(k,2948) - lu(k,2260) * lu(k,2947)
11493 254840160 : lu(k,2949) = lu(k,2949) - lu(k,2261) * lu(k,2947)
11494 254840160 : lu(k,2950) = lu(k,2950) - lu(k,2262) * lu(k,2947)
11495 254840160 : lu(k,2951) = lu(k,2951) - lu(k,2263) * lu(k,2947)
11496 254840160 : lu(k,2952) = - lu(k,2264) * lu(k,2947)
11497 254840160 : lu(k,2953) = - lu(k,2265) * lu(k,2947)
11498 254840160 : lu(k,2954) = lu(k,2954) - lu(k,2266) * lu(k,2947)
11499 254840160 : lu(k,2955) = lu(k,2955) - lu(k,2267) * lu(k,2947)
11500 254840160 : lu(k,2958) = lu(k,2958) - lu(k,2268) * lu(k,2947)
11501 254840160 : lu(k,2959) = lu(k,2959) - lu(k,2269) * lu(k,2947)
11502 254840160 : lu(k,2960) = lu(k,2960) - lu(k,2270) * lu(k,2947)
11503 254840160 : lu(k,2961) = lu(k,2961) - lu(k,2271) * lu(k,2947)
11504 254840160 : lu(k,3104) = lu(k,3104) - lu(k,2260) * lu(k,3082)
11505 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2261) * lu(k,3082)
11506 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2262) * lu(k,3082)
11507 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2263) * lu(k,3082)
11508 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2264) * lu(k,3082)
11509 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2265) * lu(k,3082)
11510 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2266) * lu(k,3082)
11511 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2267) * lu(k,3082)
11512 254840160 : lu(k,3117) = lu(k,3117) - lu(k,2268) * lu(k,3082)
11513 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2269) * lu(k,3082)
11514 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2270) * lu(k,3082)
11515 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2271) * lu(k,3082)
11516 254840160 : lu(k,3157) = lu(k,3157) - lu(k,2260) * lu(k,3156)
11517 254840160 : lu(k,3158) = lu(k,3158) - lu(k,2261) * lu(k,3156)
11518 254840160 : lu(k,3160) = lu(k,3160) - lu(k,2262) * lu(k,3156)
11519 254840160 : lu(k,3161) = lu(k,3161) - lu(k,2263) * lu(k,3156)
11520 254840160 : lu(k,3162) = lu(k,3162) - lu(k,2264) * lu(k,3156)
11521 254840160 : lu(k,3163) = lu(k,3163) - lu(k,2265) * lu(k,3156)
11522 254840160 : lu(k,3164) = lu(k,3164) - lu(k,2266) * lu(k,3156)
11523 254840160 : lu(k,3167) = lu(k,3167) - lu(k,2267) * lu(k,3156)
11524 254840160 : lu(k,3170) = lu(k,3170) - lu(k,2268) * lu(k,3156)
11525 254840160 : lu(k,3171) = lu(k,3171) - lu(k,2269) * lu(k,3156)
11526 254840160 : lu(k,3172) = lu(k,3172) - lu(k,2270) * lu(k,3156)
11527 254840160 : lu(k,3173) = lu(k,3173) - lu(k,2271) * lu(k,3156)
11528 254840160 : lu(k,3183) = lu(k,3183) - lu(k,2260) * lu(k,3182)
11529 254840160 : lu(k,3184) = lu(k,3184) - lu(k,2261) * lu(k,3182)
11530 254840160 : lu(k,3186) = lu(k,3186) - lu(k,2262) * lu(k,3182)
11531 254840160 : lu(k,3187) = lu(k,3187) - lu(k,2263) * lu(k,3182)
11532 254840160 : lu(k,3188) = lu(k,3188) - lu(k,2264) * lu(k,3182)
11533 254840160 : lu(k,3189) = lu(k,3189) - lu(k,2265) * lu(k,3182)
11534 254840160 : lu(k,3190) = lu(k,3190) - lu(k,2266) * lu(k,3182)
11535 254840160 : lu(k,3193) = lu(k,3193) - lu(k,2267) * lu(k,3182)
11536 254840160 : lu(k,3196) = lu(k,3196) - lu(k,2268) * lu(k,3182)
11537 254840160 : lu(k,3197) = lu(k,3197) - lu(k,2269) * lu(k,3182)
11538 254840160 : lu(k,3198) = lu(k,3198) - lu(k,2270) * lu(k,3182)
11539 254840160 : lu(k,3199) = lu(k,3199) - lu(k,2271) * lu(k,3182)
11540 254840160 : lu(k,3363) = lu(k,3363) - lu(k,2260) * lu(k,3341)
11541 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2261) * lu(k,3341)
11542 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2262) * lu(k,3341)
11543 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2263) * lu(k,3341)
11544 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2264) * lu(k,3341)
11545 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2265) * lu(k,3341)
11546 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2266) * lu(k,3341)
11547 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2267) * lu(k,3341)
11548 254840160 : lu(k,3376) = lu(k,3376) - lu(k,2268) * lu(k,3341)
11549 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2269) * lu(k,3341)
11550 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2270) * lu(k,3341)
11551 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2271) * lu(k,3341)
11552 254840160 : lu(k,3456) = lu(k,3456) - lu(k,2260) * lu(k,3434)
11553 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2261) * lu(k,3434)
11554 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2262) * lu(k,3434)
11555 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2263) * lu(k,3434)
11556 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2264) * lu(k,3434)
11557 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2265) * lu(k,3434)
11558 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2266) * lu(k,3434)
11559 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2267) * lu(k,3434)
11560 254840160 : lu(k,3469) = - lu(k,2268) * lu(k,3434)
11561 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2269) * lu(k,3434)
11562 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2270) * lu(k,3434)
11563 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2271) * lu(k,3434)
11564 254840160 : lu(k,3600) = lu(k,3600) - lu(k,2260) * lu(k,3578)
11565 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2261) * lu(k,3578)
11566 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2262) * lu(k,3578)
11567 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2263) * lu(k,3578)
11568 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2264) * lu(k,3578)
11569 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2265) * lu(k,3578)
11570 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2266) * lu(k,3578)
11571 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2267) * lu(k,3578)
11572 254840160 : lu(k,3613) = lu(k,3613) - lu(k,2268) * lu(k,3578)
11573 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2269) * lu(k,3578)
11574 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2270) * lu(k,3578)
11575 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2271) * lu(k,3578)
11576 254840160 : lu(k,3754) = lu(k,3754) - lu(k,2260) * lu(k,3733)
11577 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2261) * lu(k,3733)
11578 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2262) * lu(k,3733)
11579 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2263) * lu(k,3733)
11580 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2264) * lu(k,3733)
11581 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2265) * lu(k,3733)
11582 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2266) * lu(k,3733)
11583 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2267) * lu(k,3733)
11584 254840160 : lu(k,3767) = lu(k,3767) - lu(k,2268) * lu(k,3733)
11585 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2269) * lu(k,3733)
11586 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2270) * lu(k,3733)
11587 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2271) * lu(k,3733)
11588 254840160 : lu(k,3795) = lu(k,3795) - lu(k,2260) * lu(k,3794)
11589 254840160 : lu(k,3796) = lu(k,3796) - lu(k,2261) * lu(k,3794)
11590 254840160 : lu(k,3798) = lu(k,3798) - lu(k,2262) * lu(k,3794)
11591 254840160 : lu(k,3799) = lu(k,3799) - lu(k,2263) * lu(k,3794)
11592 254840160 : lu(k,3800) = lu(k,3800) - lu(k,2264) * lu(k,3794)
11593 254840160 : lu(k,3801) = lu(k,3801) - lu(k,2265) * lu(k,3794)
11594 254840160 : lu(k,3802) = lu(k,3802) - lu(k,2266) * lu(k,3794)
11595 254840160 : lu(k,3805) = lu(k,3805) - lu(k,2267) * lu(k,3794)
11596 254840160 : lu(k,3808) = lu(k,3808) - lu(k,2268) * lu(k,3794)
11597 254840160 : lu(k,3809) = lu(k,3809) - lu(k,2269) * lu(k,3794)
11598 254840160 : lu(k,3810) = lu(k,3810) - lu(k,2270) * lu(k,3794)
11599 254840160 : lu(k,3811) = lu(k,3811) - lu(k,2271) * lu(k,3794)
11600 254840160 : lu(k,3836) = lu(k,3836) - lu(k,2260) * lu(k,3834)
11601 254840160 : lu(k,3837) = lu(k,3837) - lu(k,2261) * lu(k,3834)
11602 254840160 : lu(k,3839) = lu(k,3839) - lu(k,2262) * lu(k,3834)
11603 254840160 : lu(k,3840) = lu(k,3840) - lu(k,2263) * lu(k,3834)
11604 254840160 : lu(k,3841) = lu(k,3841) - lu(k,2264) * lu(k,3834)
11605 254840160 : lu(k,3842) = lu(k,3842) - lu(k,2265) * lu(k,3834)
11606 254840160 : lu(k,3843) = lu(k,3843) - lu(k,2266) * lu(k,3834)
11607 254840160 : lu(k,3846) = lu(k,3846) - lu(k,2267) * lu(k,3834)
11608 254840160 : lu(k,3849) = lu(k,3849) - lu(k,2268) * lu(k,3834)
11609 254840160 : lu(k,3850) = lu(k,3850) - lu(k,2269) * lu(k,3834)
11610 254840160 : lu(k,3851) = lu(k,3851) - lu(k,2270) * lu(k,3834)
11611 254840160 : lu(k,3852) = lu(k,3852) - lu(k,2271) * lu(k,3834)
11612 254840160 : lu(k,4086) = lu(k,4086) - lu(k,2260) * lu(k,4064)
11613 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2261) * lu(k,4064)
11614 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2262) * lu(k,4064)
11615 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2263) * lu(k,4064)
11616 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2264) * lu(k,4064)
11617 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2265) * lu(k,4064)
11618 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2266) * lu(k,4064)
11619 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2267) * lu(k,4064)
11620 254840160 : lu(k,4099) = lu(k,4099) - lu(k,2268) * lu(k,4064)
11621 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2269) * lu(k,4064)
11622 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2270) * lu(k,4064)
11623 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2271) * lu(k,4064)
11624 254840160 : lu(k,4112) = lu(k,4112) - lu(k,2260) * lu(k,4111)
11625 254840160 : lu(k,4113) = lu(k,4113) - lu(k,2261) * lu(k,4111)
11626 254840160 : lu(k,4115) = lu(k,4115) - lu(k,2262) * lu(k,4111)
11627 254840160 : lu(k,4116) = lu(k,4116) - lu(k,2263) * lu(k,4111)
11628 254840160 : lu(k,4117) = lu(k,4117) - lu(k,2264) * lu(k,4111)
11629 254840160 : lu(k,4118) = lu(k,4118) - lu(k,2265) * lu(k,4111)
11630 254840160 : lu(k,4119) = lu(k,4119) - lu(k,2266) * lu(k,4111)
11631 254840160 : lu(k,4122) = lu(k,4122) - lu(k,2267) * lu(k,4111)
11632 254840160 : lu(k,4125) = lu(k,4125) - lu(k,2268) * lu(k,4111)
11633 254840160 : lu(k,4126) = lu(k,4126) - lu(k,2269) * lu(k,4111)
11634 254840160 : lu(k,4127) = lu(k,4127) - lu(k,2270) * lu(k,4111)
11635 263009123 : lu(k,4128) = lu(k,4128) - lu(k,2271) * lu(k,4111)
11636 : end do
11637 8168963 : end subroutine lu_fac45
11638 8168963 : subroutine lu_fac46( avec_len, lu )
11639 : use chem_mods, only : nzcnt
11640 : use shr_kind_mod, only : r8 => shr_kind_r8
11641 : implicit none
11642 : !-----------------------------------------------------------------------
11643 : ! ... dummy args
11644 : !-----------------------------------------------------------------------
11645 : integer, intent(in) :: avec_len
11646 : real(r8), intent(inout) :: lu(veclen,nzcnt)
11647 : !-----------------------------------------------------------------------
11648 : ! ... local variables
11649 : !-----------------------------------------------------------------------
11650 : integer :: k
11651 263009123 : do k = 1,avec_len
11652 254840160 : lu(k,2277) = 1._r8 / lu(k,2277)
11653 254840160 : lu(k,2278) = lu(k,2278) * lu(k,2277)
11654 254840160 : lu(k,2279) = lu(k,2279) * lu(k,2277)
11655 254840160 : lu(k,2280) = lu(k,2280) * lu(k,2277)
11656 254840160 : lu(k,2281) = lu(k,2281) * lu(k,2277)
11657 254840160 : lu(k,2282) = lu(k,2282) * lu(k,2277)
11658 254840160 : lu(k,2283) = lu(k,2283) * lu(k,2277)
11659 254840160 : lu(k,2284) = lu(k,2284) * lu(k,2277)
11660 254840160 : lu(k,2285) = lu(k,2285) * lu(k,2277)
11661 254840160 : lu(k,2286) = lu(k,2286) * lu(k,2277)
11662 254840160 : lu(k,2287) = lu(k,2287) * lu(k,2277)
11663 254840160 : lu(k,2288) = lu(k,2288) * lu(k,2277)
11664 254840160 : lu(k,2388) = lu(k,2388) - lu(k,2278) * lu(k,2377)
11665 254840160 : lu(k,2389) = lu(k,2389) - lu(k,2279) * lu(k,2377)
11666 254840160 : lu(k,2390) = lu(k,2390) - lu(k,2280) * lu(k,2377)
11667 254840160 : lu(k,2391) = lu(k,2391) - lu(k,2281) * lu(k,2377)
11668 254840160 : lu(k,2392) = lu(k,2392) - lu(k,2282) * lu(k,2377)
11669 254840160 : lu(k,2393) = lu(k,2393) - lu(k,2283) * lu(k,2377)
11670 254840160 : lu(k,2394) = lu(k,2394) - lu(k,2284) * lu(k,2377)
11671 254840160 : lu(k,2395) = lu(k,2395) - lu(k,2285) * lu(k,2377)
11672 254840160 : lu(k,2396) = lu(k,2396) - lu(k,2286) * lu(k,2377)
11673 254840160 : lu(k,2397) = lu(k,2397) - lu(k,2287) * lu(k,2377)
11674 254840160 : lu(k,2398) = - lu(k,2288) * lu(k,2377)
11675 254840160 : lu(k,2449) = lu(k,2449) - lu(k,2278) * lu(k,2438)
11676 254840160 : lu(k,2450) = lu(k,2450) - lu(k,2279) * lu(k,2438)
11677 254840160 : lu(k,2451) = lu(k,2451) - lu(k,2280) * lu(k,2438)
11678 254840160 : lu(k,2452) = lu(k,2452) - lu(k,2281) * lu(k,2438)
11679 254840160 : lu(k,2453) = lu(k,2453) - lu(k,2282) * lu(k,2438)
11680 254840160 : lu(k,2454) = lu(k,2454) - lu(k,2283) * lu(k,2438)
11681 254840160 : lu(k,2455) = lu(k,2455) - lu(k,2284) * lu(k,2438)
11682 254840160 : lu(k,2456) = lu(k,2456) - lu(k,2285) * lu(k,2438)
11683 254840160 : lu(k,2457) = lu(k,2457) - lu(k,2286) * lu(k,2438)
11684 254840160 : lu(k,2458) = lu(k,2458) - lu(k,2287) * lu(k,2438)
11685 254840160 : lu(k,2459) = - lu(k,2288) * lu(k,2438)
11686 254840160 : lu(k,2480) = lu(k,2480) - lu(k,2278) * lu(k,2468)
11687 254840160 : lu(k,2481) = lu(k,2481) - lu(k,2279) * lu(k,2468)
11688 254840160 : lu(k,2482) = lu(k,2482) - lu(k,2280) * lu(k,2468)
11689 254840160 : lu(k,2483) = lu(k,2483) - lu(k,2281) * lu(k,2468)
11690 254840160 : lu(k,2484) = lu(k,2484) - lu(k,2282) * lu(k,2468)
11691 254840160 : lu(k,2485) = lu(k,2485) - lu(k,2283) * lu(k,2468)
11692 254840160 : lu(k,2486) = lu(k,2486) - lu(k,2284) * lu(k,2468)
11693 254840160 : lu(k,2487) = lu(k,2487) - lu(k,2285) * lu(k,2468)
11694 254840160 : lu(k,2488) = lu(k,2488) - lu(k,2286) * lu(k,2468)
11695 254840160 : lu(k,2489) = lu(k,2489) - lu(k,2287) * lu(k,2468)
11696 254840160 : lu(k,2490) = - lu(k,2288) * lu(k,2468)
11697 254840160 : lu(k,2579) = lu(k,2579) - lu(k,2278) * lu(k,2567)
11698 254840160 : lu(k,2580) = lu(k,2580) - lu(k,2279) * lu(k,2567)
11699 254840160 : lu(k,2581) = lu(k,2581) - lu(k,2280) * lu(k,2567)
11700 254840160 : lu(k,2582) = lu(k,2582) - lu(k,2281) * lu(k,2567)
11701 254840160 : lu(k,2583) = lu(k,2583) - lu(k,2282) * lu(k,2567)
11702 254840160 : lu(k,2584) = lu(k,2584) - lu(k,2283) * lu(k,2567)
11703 254840160 : lu(k,2585) = lu(k,2585) - lu(k,2284) * lu(k,2567)
11704 254840160 : lu(k,2586) = lu(k,2586) - lu(k,2285) * lu(k,2567)
11705 254840160 : lu(k,2587) = lu(k,2587) - lu(k,2286) * lu(k,2567)
11706 254840160 : lu(k,2588) = lu(k,2588) - lu(k,2287) * lu(k,2567)
11707 254840160 : lu(k,2589) = lu(k,2589) - lu(k,2288) * lu(k,2567)
11708 254840160 : lu(k,2705) = lu(k,2705) - lu(k,2278) * lu(k,2697)
11709 254840160 : lu(k,2706) = lu(k,2706) - lu(k,2279) * lu(k,2697)
11710 254840160 : lu(k,2707) = lu(k,2707) - lu(k,2280) * lu(k,2697)
11711 254840160 : lu(k,2708) = lu(k,2708) - lu(k,2281) * lu(k,2697)
11712 254840160 : lu(k,2709) = lu(k,2709) - lu(k,2282) * lu(k,2697)
11713 254840160 : lu(k,2710) = lu(k,2710) - lu(k,2283) * lu(k,2697)
11714 254840160 : lu(k,2711) = lu(k,2711) - lu(k,2284) * lu(k,2697)
11715 254840160 : lu(k,2712) = lu(k,2712) - lu(k,2285) * lu(k,2697)
11716 254840160 : lu(k,2713) = lu(k,2713) - lu(k,2286) * lu(k,2697)
11717 254840160 : lu(k,2714) = lu(k,2714) - lu(k,2287) * lu(k,2697)
11718 254840160 : lu(k,2715) = - lu(k,2288) * lu(k,2697)
11719 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2278) * lu(k,2728)
11720 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2279) * lu(k,2728)
11721 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2280) * lu(k,2728)
11722 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2281) * lu(k,2728)
11723 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2282) * lu(k,2728)
11724 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2283) * lu(k,2728)
11725 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2284) * lu(k,2728)
11726 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2285) * lu(k,2728)
11727 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2286) * lu(k,2728)
11728 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2287) * lu(k,2728)
11729 254840160 : lu(k,2761) = - lu(k,2288) * lu(k,2728)
11730 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2278) * lu(k,2774)
11731 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2279) * lu(k,2774)
11732 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2280) * lu(k,2774)
11733 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2281) * lu(k,2774)
11734 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2282) * lu(k,2774)
11735 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2283) * lu(k,2774)
11736 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2284) * lu(k,2774)
11737 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2285) * lu(k,2774)
11738 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2286) * lu(k,2774)
11739 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2287) * lu(k,2774)
11740 254840160 : lu(k,2807) = - lu(k,2288) * lu(k,2774)
11741 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2278) * lu(k,2821)
11742 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2279) * lu(k,2821)
11743 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2280) * lu(k,2821)
11744 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2281) * lu(k,2821)
11745 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2282) * lu(k,2821)
11746 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2283) * lu(k,2821)
11747 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2284) * lu(k,2821)
11748 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2285) * lu(k,2821)
11749 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2286) * lu(k,2821)
11750 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2287) * lu(k,2821)
11751 254840160 : lu(k,2854) = - lu(k,2288) * lu(k,2821)
11752 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2278) * lu(k,2893)
11753 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2279) * lu(k,2893)
11754 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2280) * lu(k,2893)
11755 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2281) * lu(k,2893)
11756 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2282) * lu(k,2893)
11757 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2283) * lu(k,2893)
11758 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2284) * lu(k,2893)
11759 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2285) * lu(k,2893)
11760 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2286) * lu(k,2893)
11761 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2287) * lu(k,2893)
11762 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2288) * lu(k,2893)
11763 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2278) * lu(k,3083)
11764 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2279) * lu(k,3083)
11765 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2280) * lu(k,3083)
11766 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2281) * lu(k,3083)
11767 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2282) * lu(k,3083)
11768 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2283) * lu(k,3083)
11769 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2284) * lu(k,3083)
11770 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2285) * lu(k,3083)
11771 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2286) * lu(k,3083)
11772 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2287) * lu(k,3083)
11773 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2288) * lu(k,3083)
11774 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2278) * lu(k,3342)
11775 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2279) * lu(k,3342)
11776 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2280) * lu(k,3342)
11777 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2281) * lu(k,3342)
11778 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2282) * lu(k,3342)
11779 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2283) * lu(k,3342)
11780 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2284) * lu(k,3342)
11781 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2285) * lu(k,3342)
11782 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2286) * lu(k,3342)
11783 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2287) * lu(k,3342)
11784 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2288) * lu(k,3342)
11785 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2278) * lu(k,3435)
11786 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2279) * lu(k,3435)
11787 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2280) * lu(k,3435)
11788 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2281) * lu(k,3435)
11789 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2282) * lu(k,3435)
11790 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2283) * lu(k,3435)
11791 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2284) * lu(k,3435)
11792 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2285) * lu(k,3435)
11793 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2286) * lu(k,3435)
11794 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2287) * lu(k,3435)
11795 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2288) * lu(k,3435)
11796 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2278) * lu(k,3579)
11797 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2279) * lu(k,3579)
11798 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2280) * lu(k,3579)
11799 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2281) * lu(k,3579)
11800 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2282) * lu(k,3579)
11801 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2283) * lu(k,3579)
11802 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2284) * lu(k,3579)
11803 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2285) * lu(k,3579)
11804 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2286) * lu(k,3579)
11805 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2287) * lu(k,3579)
11806 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2288) * lu(k,3579)
11807 254840160 : lu(k,3651) = lu(k,3651) - lu(k,2278) * lu(k,3646)
11808 254840160 : lu(k,3653) = lu(k,3653) - lu(k,2279) * lu(k,3646)
11809 254840160 : lu(k,3654) = lu(k,3654) - lu(k,2280) * lu(k,3646)
11810 254840160 : lu(k,3656) = lu(k,3656) - lu(k,2281) * lu(k,3646)
11811 254840160 : lu(k,3657) = lu(k,3657) - lu(k,2282) * lu(k,3646)
11812 254840160 : lu(k,3658) = lu(k,3658) - lu(k,2283) * lu(k,3646)
11813 254840160 : lu(k,3659) = lu(k,3659) - lu(k,2284) * lu(k,3646)
11814 254840160 : lu(k,3662) = lu(k,3662) - lu(k,2285) * lu(k,3646)
11815 254840160 : lu(k,3663) = lu(k,3663) - lu(k,2286) * lu(k,3646)
11816 254840160 : lu(k,3667) = lu(k,3667) - lu(k,2287) * lu(k,3646)
11817 254840160 : lu(k,3668) = lu(k,3668) - lu(k,2288) * lu(k,3646)
11818 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2278) * lu(k,3734)
11819 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2279) * lu(k,3734)
11820 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2280) * lu(k,3734)
11821 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2281) * lu(k,3734)
11822 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2282) * lu(k,3734)
11823 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2283) * lu(k,3734)
11824 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2284) * lu(k,3734)
11825 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2285) * lu(k,3734)
11826 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2286) * lu(k,3734)
11827 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2287) * lu(k,3734)
11828 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2288) * lu(k,3734)
11829 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2278) * lu(k,4065)
11830 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2279) * lu(k,4065)
11831 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2280) * lu(k,4065)
11832 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2281) * lu(k,4065)
11833 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2282) * lu(k,4065)
11834 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2283) * lu(k,4065)
11835 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2284) * lu(k,4065)
11836 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2285) * lu(k,4065)
11837 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2286) * lu(k,4065)
11838 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2287) * lu(k,4065)
11839 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2288) * lu(k,4065)
11840 254840160 : lu(k,2296) = 1._r8 / lu(k,2296)
11841 254840160 : lu(k,2297) = lu(k,2297) * lu(k,2296)
11842 254840160 : lu(k,2298) = lu(k,2298) * lu(k,2296)
11843 254840160 : lu(k,2299) = lu(k,2299) * lu(k,2296)
11844 254840160 : lu(k,2300) = lu(k,2300) * lu(k,2296)
11845 254840160 : lu(k,2301) = lu(k,2301) * lu(k,2296)
11846 254840160 : lu(k,2302) = lu(k,2302) * lu(k,2296)
11847 254840160 : lu(k,2303) = lu(k,2303) * lu(k,2296)
11848 254840160 : lu(k,2304) = lu(k,2304) * lu(k,2296)
11849 254840160 : lu(k,2305) = lu(k,2305) * lu(k,2296)
11850 254840160 : lu(k,2306) = lu(k,2306) * lu(k,2296)
11851 254840160 : lu(k,2307) = lu(k,2307) * lu(k,2296)
11852 254840160 : lu(k,2308) = lu(k,2308) * lu(k,2296)
11853 254840160 : lu(k,2309) = lu(k,2309) * lu(k,2296)
11854 254840160 : lu(k,2310) = lu(k,2310) * lu(k,2296)
11855 254840160 : lu(k,2311) = lu(k,2311) * lu(k,2296)
11856 254840160 : lu(k,2312) = lu(k,2312) * lu(k,2296)
11857 254840160 : lu(k,2313) = lu(k,2313) * lu(k,2296)
11858 254840160 : lu(k,2314) = lu(k,2314) * lu(k,2296)
11859 254840160 : lu(k,2732) = lu(k,2732) - lu(k,2297) * lu(k,2729)
11860 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2298) * lu(k,2729)
11861 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2299) * lu(k,2729)
11862 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2300) * lu(k,2729)
11863 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2301) * lu(k,2729)
11864 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2302) * lu(k,2729)
11865 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2303) * lu(k,2729)
11866 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2304) * lu(k,2729)
11867 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2305) * lu(k,2729)
11868 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2306) * lu(k,2729)
11869 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2307) * lu(k,2729)
11870 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2308) * lu(k,2729)
11871 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2309) * lu(k,2729)
11872 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2310) * lu(k,2729)
11873 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2311) * lu(k,2729)
11874 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2312) * lu(k,2729)
11875 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2313) * lu(k,2729)
11876 254840160 : lu(k,2761) = lu(k,2761) - lu(k,2314) * lu(k,2729)
11877 254840160 : lu(k,2778) = lu(k,2778) - lu(k,2297) * lu(k,2775)
11878 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2298) * lu(k,2775)
11879 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2299) * lu(k,2775)
11880 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2300) * lu(k,2775)
11881 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2301) * lu(k,2775)
11882 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2302) * lu(k,2775)
11883 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2303) * lu(k,2775)
11884 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2304) * lu(k,2775)
11885 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2305) * lu(k,2775)
11886 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2306) * lu(k,2775)
11887 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2307) * lu(k,2775)
11888 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2308) * lu(k,2775)
11889 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2309) * lu(k,2775)
11890 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2310) * lu(k,2775)
11891 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2311) * lu(k,2775)
11892 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2312) * lu(k,2775)
11893 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2313) * lu(k,2775)
11894 254840160 : lu(k,2807) = lu(k,2807) - lu(k,2314) * lu(k,2775)
11895 254840160 : lu(k,2825) = lu(k,2825) - lu(k,2297) * lu(k,2822)
11896 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2298) * lu(k,2822)
11897 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2299) * lu(k,2822)
11898 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2300) * lu(k,2822)
11899 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2301) * lu(k,2822)
11900 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2302) * lu(k,2822)
11901 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2303) * lu(k,2822)
11902 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2304) * lu(k,2822)
11903 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2305) * lu(k,2822)
11904 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2306) * lu(k,2822)
11905 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2307) * lu(k,2822)
11906 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2308) * lu(k,2822)
11907 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2309) * lu(k,2822)
11908 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2310) * lu(k,2822)
11909 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2311) * lu(k,2822)
11910 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2312) * lu(k,2822)
11911 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2313) * lu(k,2822)
11912 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2314) * lu(k,2822)
11913 254840160 : lu(k,2897) = lu(k,2897) - lu(k,2297) * lu(k,2894)
11914 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2298) * lu(k,2894)
11915 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2299) * lu(k,2894)
11916 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2300) * lu(k,2894)
11917 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2301) * lu(k,2894)
11918 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2302) * lu(k,2894)
11919 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2303) * lu(k,2894)
11920 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2304) * lu(k,2894)
11921 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2305) * lu(k,2894)
11922 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2306) * lu(k,2894)
11923 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2307) * lu(k,2894)
11924 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2308) * lu(k,2894)
11925 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2309) * lu(k,2894)
11926 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2310) * lu(k,2894)
11927 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2311) * lu(k,2894)
11928 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2312) * lu(k,2894)
11929 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2313) * lu(k,2894)
11930 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2314) * lu(k,2894)
11931 254840160 : lu(k,3087) = lu(k,3087) - lu(k,2297) * lu(k,3084)
11932 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2298) * lu(k,3084)
11933 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2299) * lu(k,3084)
11934 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2300) * lu(k,3084)
11935 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2301) * lu(k,3084)
11936 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2302) * lu(k,3084)
11937 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2303) * lu(k,3084)
11938 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2304) * lu(k,3084)
11939 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2305) * lu(k,3084)
11940 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2306) * lu(k,3084)
11941 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2307) * lu(k,3084)
11942 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2308) * lu(k,3084)
11943 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2309) * lu(k,3084)
11944 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2310) * lu(k,3084)
11945 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2311) * lu(k,3084)
11946 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2312) * lu(k,3084)
11947 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2313) * lu(k,3084)
11948 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2314) * lu(k,3084)
11949 254840160 : lu(k,3346) = lu(k,3346) - lu(k,2297) * lu(k,3343)
11950 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2298) * lu(k,3343)
11951 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2299) * lu(k,3343)
11952 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2300) * lu(k,3343)
11953 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2301) * lu(k,3343)
11954 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2302) * lu(k,3343)
11955 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2303) * lu(k,3343)
11956 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2304) * lu(k,3343)
11957 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2305) * lu(k,3343)
11958 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2306) * lu(k,3343)
11959 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2307) * lu(k,3343)
11960 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2308) * lu(k,3343)
11961 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2309) * lu(k,3343)
11962 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2310) * lu(k,3343)
11963 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2311) * lu(k,3343)
11964 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2312) * lu(k,3343)
11965 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2313) * lu(k,3343)
11966 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2314) * lu(k,3343)
11967 254840160 : lu(k,3439) = lu(k,3439) - lu(k,2297) * lu(k,3436)
11968 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2298) * lu(k,3436)
11969 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2299) * lu(k,3436)
11970 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2300) * lu(k,3436)
11971 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2301) * lu(k,3436)
11972 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2302) * lu(k,3436)
11973 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2303) * lu(k,3436)
11974 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2304) * lu(k,3436)
11975 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2305) * lu(k,3436)
11976 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2306) * lu(k,3436)
11977 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2307) * lu(k,3436)
11978 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2308) * lu(k,3436)
11979 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2309) * lu(k,3436)
11980 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2310) * lu(k,3436)
11981 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2311) * lu(k,3436)
11982 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2312) * lu(k,3436)
11983 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2313) * lu(k,3436)
11984 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2314) * lu(k,3436)
11985 254840160 : lu(k,3583) = lu(k,3583) - lu(k,2297) * lu(k,3580)
11986 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2298) * lu(k,3580)
11987 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2299) * lu(k,3580)
11988 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2300) * lu(k,3580)
11989 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2301) * lu(k,3580)
11990 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2302) * lu(k,3580)
11991 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2303) * lu(k,3580)
11992 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2304) * lu(k,3580)
11993 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2305) * lu(k,3580)
11994 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2306) * lu(k,3580)
11995 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2307) * lu(k,3580)
11996 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2308) * lu(k,3580)
11997 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2309) * lu(k,3580)
11998 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2310) * lu(k,3580)
11999 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2311) * lu(k,3580)
12000 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2312) * lu(k,3580)
12001 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2313) * lu(k,3580)
12002 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2314) * lu(k,3580)
12003 254840160 : lu(k,3737) = lu(k,3737) - lu(k,2297) * lu(k,3735)
12004 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2298) * lu(k,3735)
12005 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2299) * lu(k,3735)
12006 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2300) * lu(k,3735)
12007 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2301) * lu(k,3735)
12008 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2302) * lu(k,3735)
12009 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2303) * lu(k,3735)
12010 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2304) * lu(k,3735)
12011 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2305) * lu(k,3735)
12012 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2306) * lu(k,3735)
12013 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2307) * lu(k,3735)
12014 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2308) * lu(k,3735)
12015 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2309) * lu(k,3735)
12016 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2310) * lu(k,3735)
12017 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2311) * lu(k,3735)
12018 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2312) * lu(k,3735)
12019 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2313) * lu(k,3735)
12020 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2314) * lu(k,3735)
12021 254840160 : lu(k,4069) = lu(k,4069) - lu(k,2297) * lu(k,4066)
12022 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2298) * lu(k,4066)
12023 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2299) * lu(k,4066)
12024 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2300) * lu(k,4066)
12025 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2301) * lu(k,4066)
12026 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2302) * lu(k,4066)
12027 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2303) * lu(k,4066)
12028 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2304) * lu(k,4066)
12029 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2305) * lu(k,4066)
12030 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2306) * lu(k,4066)
12031 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2307) * lu(k,4066)
12032 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2308) * lu(k,4066)
12033 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2309) * lu(k,4066)
12034 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2310) * lu(k,4066)
12035 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2311) * lu(k,4066)
12036 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2312) * lu(k,4066)
12037 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2313) * lu(k,4066)
12038 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2314) * lu(k,4066)
12039 254840160 : lu(k,2320) = 1._r8 / lu(k,2320)
12040 254840160 : lu(k,2321) = lu(k,2321) * lu(k,2320)
12041 254840160 : lu(k,2322) = lu(k,2322) * lu(k,2320)
12042 254840160 : lu(k,2323) = lu(k,2323) * lu(k,2320)
12043 254840160 : lu(k,2324) = lu(k,2324) * lu(k,2320)
12044 254840160 : lu(k,2325) = lu(k,2325) * lu(k,2320)
12045 254840160 : lu(k,2326) = lu(k,2326) * lu(k,2320)
12046 254840160 : lu(k,2327) = lu(k,2327) * lu(k,2320)
12047 254840160 : lu(k,2328) = lu(k,2328) * lu(k,2320)
12048 254840160 : lu(k,2329) = lu(k,2329) * lu(k,2320)
12049 254840160 : lu(k,2330) = lu(k,2330) * lu(k,2320)
12050 254840160 : lu(k,2331) = lu(k,2331) * lu(k,2320)
12051 254840160 : lu(k,2332) = lu(k,2332) * lu(k,2320)
12052 254840160 : lu(k,2340) = lu(k,2340) - lu(k,2321) * lu(k,2338)
12053 254840160 : lu(k,2341) = lu(k,2341) - lu(k,2322) * lu(k,2338)
12054 254840160 : lu(k,2343) = lu(k,2343) - lu(k,2323) * lu(k,2338)
12055 254840160 : lu(k,2346) = lu(k,2346) - lu(k,2324) * lu(k,2338)
12056 254840160 : lu(k,2349) = lu(k,2349) - lu(k,2325) * lu(k,2338)
12057 254840160 : lu(k,2350) = lu(k,2350) - lu(k,2326) * lu(k,2338)
12058 254840160 : lu(k,2351) = lu(k,2351) - lu(k,2327) * lu(k,2338)
12059 254840160 : lu(k,2352) = lu(k,2352) - lu(k,2328) * lu(k,2338)
12060 254840160 : lu(k,2353) = lu(k,2353) - lu(k,2329) * lu(k,2338)
12061 254840160 : lu(k,2355) = lu(k,2355) - lu(k,2330) * lu(k,2338)
12062 254840160 : lu(k,2356) = lu(k,2356) - lu(k,2331) * lu(k,2338)
12063 254840160 : lu(k,2357) = lu(k,2357) - lu(k,2332) * lu(k,2338)
12064 254840160 : lu(k,2379) = lu(k,2379) - lu(k,2321) * lu(k,2378)
12065 254840160 : lu(k,2381) = lu(k,2381) - lu(k,2322) * lu(k,2378)
12066 254840160 : lu(k,2383) = lu(k,2383) - lu(k,2323) * lu(k,2378)
12067 254840160 : lu(k,2386) = lu(k,2386) - lu(k,2324) * lu(k,2378)
12068 254840160 : lu(k,2389) = lu(k,2389) - lu(k,2325) * lu(k,2378)
12069 254840160 : lu(k,2390) = lu(k,2390) - lu(k,2326) * lu(k,2378)
12070 254840160 : lu(k,2391) = lu(k,2391) - lu(k,2327) * lu(k,2378)
12071 254840160 : lu(k,2392) = lu(k,2392) - lu(k,2328) * lu(k,2378)
12072 254840160 : lu(k,2393) = lu(k,2393) - lu(k,2329) * lu(k,2378)
12073 254840160 : lu(k,2395) = lu(k,2395) - lu(k,2330) * lu(k,2378)
12074 254840160 : lu(k,2396) = lu(k,2396) - lu(k,2331) * lu(k,2378)
12075 254840160 : lu(k,2397) = lu(k,2397) - lu(k,2332) * lu(k,2378)
12076 254840160 : lu(k,2407) = lu(k,2407) - lu(k,2321) * lu(k,2406)
12077 254840160 : lu(k,2410) = - lu(k,2322) * lu(k,2406)
12078 254840160 : lu(k,2412) = lu(k,2412) - lu(k,2323) * lu(k,2406)
12079 254840160 : lu(k,2415) = lu(k,2415) - lu(k,2324) * lu(k,2406)
12080 254840160 : lu(k,2418) = - lu(k,2325) * lu(k,2406)
12081 254840160 : lu(k,2419) = lu(k,2419) - lu(k,2326) * lu(k,2406)
12082 254840160 : lu(k,2420) = lu(k,2420) - lu(k,2327) * lu(k,2406)
12083 254840160 : lu(k,2421) = lu(k,2421) - lu(k,2328) * lu(k,2406)
12084 254840160 : lu(k,2422) = lu(k,2422) - lu(k,2329) * lu(k,2406)
12085 254840160 : lu(k,2424) = lu(k,2424) - lu(k,2330) * lu(k,2406)
12086 254840160 : lu(k,2425) = lu(k,2425) - lu(k,2331) * lu(k,2406)
12087 254840160 : lu(k,2426) = lu(k,2426) - lu(k,2332) * lu(k,2406)
12088 254840160 : lu(k,2440) = lu(k,2440) - lu(k,2321) * lu(k,2439)
12089 254840160 : lu(k,2442) = lu(k,2442) - lu(k,2322) * lu(k,2439)
12090 254840160 : lu(k,2444) = lu(k,2444) - lu(k,2323) * lu(k,2439)
12091 254840160 : lu(k,2447) = lu(k,2447) - lu(k,2324) * lu(k,2439)
12092 254840160 : lu(k,2450) = lu(k,2450) - lu(k,2325) * lu(k,2439)
12093 254840160 : lu(k,2451) = lu(k,2451) - lu(k,2326) * lu(k,2439)
12094 254840160 : lu(k,2452) = lu(k,2452) - lu(k,2327) * lu(k,2439)
12095 254840160 : lu(k,2453) = lu(k,2453) - lu(k,2328) * lu(k,2439)
12096 254840160 : lu(k,2454) = lu(k,2454) - lu(k,2329) * lu(k,2439)
12097 254840160 : lu(k,2456) = lu(k,2456) - lu(k,2330) * lu(k,2439)
12098 254840160 : lu(k,2457) = lu(k,2457) - lu(k,2331) * lu(k,2439)
12099 254840160 : lu(k,2458) = lu(k,2458) - lu(k,2332) * lu(k,2439)
12100 254840160 : lu(k,2470) = lu(k,2470) - lu(k,2321) * lu(k,2469)
12101 254840160 : lu(k,2473) = lu(k,2473) - lu(k,2322) * lu(k,2469)
12102 254840160 : lu(k,2475) = lu(k,2475) - lu(k,2323) * lu(k,2469)
12103 254840160 : lu(k,2478) = lu(k,2478) - lu(k,2324) * lu(k,2469)
12104 254840160 : lu(k,2481) = lu(k,2481) - lu(k,2325) * lu(k,2469)
12105 254840160 : lu(k,2482) = lu(k,2482) - lu(k,2326) * lu(k,2469)
12106 254840160 : lu(k,2483) = lu(k,2483) - lu(k,2327) * lu(k,2469)
12107 254840160 : lu(k,2484) = lu(k,2484) - lu(k,2328) * lu(k,2469)
12108 254840160 : lu(k,2485) = lu(k,2485) - lu(k,2329) * lu(k,2469)
12109 254840160 : lu(k,2487) = lu(k,2487) - lu(k,2330) * lu(k,2469)
12110 254840160 : lu(k,2488) = lu(k,2488) - lu(k,2331) * lu(k,2469)
12111 254840160 : lu(k,2489) = lu(k,2489) - lu(k,2332) * lu(k,2469)
12112 254840160 : lu(k,2599) = lu(k,2599) - lu(k,2321) * lu(k,2598)
12113 254840160 : lu(k,2601) = lu(k,2601) - lu(k,2322) * lu(k,2598)
12114 254840160 : lu(k,2603) = - lu(k,2323) * lu(k,2598)
12115 254840160 : lu(k,2605) = - lu(k,2324) * lu(k,2598)
12116 254840160 : lu(k,2607) = lu(k,2607) - lu(k,2325) * lu(k,2598)
12117 254840160 : lu(k,2608) = lu(k,2608) - lu(k,2326) * lu(k,2598)
12118 254840160 : lu(k,2610) = lu(k,2610) - lu(k,2327) * lu(k,2598)
12119 254840160 : lu(k,2611) = lu(k,2611) - lu(k,2328) * lu(k,2598)
12120 254840160 : lu(k,2612) = lu(k,2612) - lu(k,2329) * lu(k,2598)
12121 254840160 : lu(k,2613) = lu(k,2613) - lu(k,2330) * lu(k,2598)
12122 254840160 : lu(k,2614) = lu(k,2614) - lu(k,2331) * lu(k,2598)
12123 254840160 : lu(k,2617) = lu(k,2617) - lu(k,2332) * lu(k,2598)
12124 254840160 : lu(k,2732) = lu(k,2732) - lu(k,2321) * lu(k,2730)
12125 254840160 : lu(k,2741) = lu(k,2741) - lu(k,2322) * lu(k,2730)
12126 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2323) * lu(k,2730)
12127 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2324) * lu(k,2730)
12128 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2325) * lu(k,2730)
12129 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2326) * lu(k,2730)
12130 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2327) * lu(k,2730)
12131 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2328) * lu(k,2730)
12132 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2329) * lu(k,2730)
12133 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2330) * lu(k,2730)
12134 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2331) * lu(k,2730)
12135 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2332) * lu(k,2730)
12136 254840160 : lu(k,2778) = lu(k,2778) - lu(k,2321) * lu(k,2776)
12137 254840160 : lu(k,2787) = lu(k,2787) - lu(k,2322) * lu(k,2776)
12138 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2323) * lu(k,2776)
12139 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2324) * lu(k,2776)
12140 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2325) * lu(k,2776)
12141 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2326) * lu(k,2776)
12142 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2327) * lu(k,2776)
12143 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2328) * lu(k,2776)
12144 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2329) * lu(k,2776)
12145 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2330) * lu(k,2776)
12146 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2331) * lu(k,2776)
12147 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2332) * lu(k,2776)
12148 254840160 : lu(k,2825) = lu(k,2825) - lu(k,2321) * lu(k,2823)
12149 254840160 : lu(k,2834) = lu(k,2834) - lu(k,2322) * lu(k,2823)
12150 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2323) * lu(k,2823)
12151 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2324) * lu(k,2823)
12152 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2325) * lu(k,2823)
12153 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2326) * lu(k,2823)
12154 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2327) * lu(k,2823)
12155 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2328) * lu(k,2823)
12156 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2329) * lu(k,2823)
12157 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2330) * lu(k,2823)
12158 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2331) * lu(k,2823)
12159 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2332) * lu(k,2823)
12160 254840160 : lu(k,2897) = lu(k,2897) - lu(k,2321) * lu(k,2895)
12161 254840160 : lu(k,2906) = lu(k,2906) - lu(k,2322) * lu(k,2895)
12162 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2323) * lu(k,2895)
12163 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2324) * lu(k,2895)
12164 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2325) * lu(k,2895)
12165 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2326) * lu(k,2895)
12166 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2327) * lu(k,2895)
12167 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2328) * lu(k,2895)
12168 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2329) * lu(k,2895)
12169 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2330) * lu(k,2895)
12170 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2331) * lu(k,2895)
12171 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2332) * lu(k,2895)
12172 254840160 : lu(k,3087) = lu(k,3087) - lu(k,2321) * lu(k,3085)
12173 254840160 : lu(k,3096) = lu(k,3096) - lu(k,2322) * lu(k,3085)
12174 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2323) * lu(k,3085)
12175 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2324) * lu(k,3085)
12176 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2325) * lu(k,3085)
12177 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2326) * lu(k,3085)
12178 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2327) * lu(k,3085)
12179 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2328) * lu(k,3085)
12180 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2329) * lu(k,3085)
12181 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2330) * lu(k,3085)
12182 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2331) * lu(k,3085)
12183 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2332) * lu(k,3085)
12184 254840160 : lu(k,3346) = lu(k,3346) - lu(k,2321) * lu(k,3344)
12185 254840160 : lu(k,3355) = lu(k,3355) - lu(k,2322) * lu(k,3344)
12186 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2323) * lu(k,3344)
12187 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2324) * lu(k,3344)
12188 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2325) * lu(k,3344)
12189 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2326) * lu(k,3344)
12190 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2327) * lu(k,3344)
12191 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2328) * lu(k,3344)
12192 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2329) * lu(k,3344)
12193 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2330) * lu(k,3344)
12194 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2331) * lu(k,3344)
12195 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2332) * lu(k,3344)
12196 254840160 : lu(k,3439) = lu(k,3439) - lu(k,2321) * lu(k,3437)
12197 254840160 : lu(k,3448) = lu(k,3448) - lu(k,2322) * lu(k,3437)
12198 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2323) * lu(k,3437)
12199 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2324) * lu(k,3437)
12200 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2325) * lu(k,3437)
12201 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2326) * lu(k,3437)
12202 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2327) * lu(k,3437)
12203 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2328) * lu(k,3437)
12204 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2329) * lu(k,3437)
12205 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2330) * lu(k,3437)
12206 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2331) * lu(k,3437)
12207 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2332) * lu(k,3437)
12208 254840160 : lu(k,3583) = lu(k,3583) - lu(k,2321) * lu(k,3581)
12209 254840160 : lu(k,3592) = lu(k,3592) - lu(k,2322) * lu(k,3581)
12210 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2323) * lu(k,3581)
12211 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2324) * lu(k,3581)
12212 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2325) * lu(k,3581)
12213 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2326) * lu(k,3581)
12214 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2327) * lu(k,3581)
12215 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2328) * lu(k,3581)
12216 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2329) * lu(k,3581)
12217 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2330) * lu(k,3581)
12218 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2331) * lu(k,3581)
12219 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2332) * lu(k,3581)
12220 254840160 : lu(k,4069) = lu(k,4069) - lu(k,2321) * lu(k,4067)
12221 254840160 : lu(k,4078) = lu(k,4078) - lu(k,2322) * lu(k,4067)
12222 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2323) * lu(k,4067)
12223 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2324) * lu(k,4067)
12224 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2325) * lu(k,4067)
12225 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2326) * lu(k,4067)
12226 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2327) * lu(k,4067)
12227 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2328) * lu(k,4067)
12228 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2329) * lu(k,4067)
12229 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2330) * lu(k,4067)
12230 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2331) * lu(k,4067)
12231 263009123 : lu(k,4101) = lu(k,4101) - lu(k,2332) * lu(k,4067)
12232 : end do
12233 8168963 : end subroutine lu_fac46
12234 8168963 : subroutine lu_fac47( avec_len, lu )
12235 : use chem_mods, only : nzcnt
12236 : use shr_kind_mod, only : r8 => shr_kind_r8
12237 : implicit none
12238 : !-----------------------------------------------------------------------
12239 : ! ... dummy args
12240 : !-----------------------------------------------------------------------
12241 : integer, intent(in) :: avec_len
12242 : real(r8), intent(inout) :: lu(veclen,nzcnt)
12243 : !-----------------------------------------------------------------------
12244 : ! ... local variables
12245 : !-----------------------------------------------------------------------
12246 : integer :: k
12247 263009123 : do k = 1,avec_len
12248 254840160 : lu(k,2339) = 1._r8 / lu(k,2339)
12249 254840160 : lu(k,2340) = lu(k,2340) * lu(k,2339)
12250 254840160 : lu(k,2341) = lu(k,2341) * lu(k,2339)
12251 254840160 : lu(k,2342) = lu(k,2342) * lu(k,2339)
12252 254840160 : lu(k,2343) = lu(k,2343) * lu(k,2339)
12253 254840160 : lu(k,2344) = lu(k,2344) * lu(k,2339)
12254 254840160 : lu(k,2345) = lu(k,2345) * lu(k,2339)
12255 254840160 : lu(k,2346) = lu(k,2346) * lu(k,2339)
12256 254840160 : lu(k,2347) = lu(k,2347) * lu(k,2339)
12257 254840160 : lu(k,2348) = lu(k,2348) * lu(k,2339)
12258 254840160 : lu(k,2349) = lu(k,2349) * lu(k,2339)
12259 254840160 : lu(k,2350) = lu(k,2350) * lu(k,2339)
12260 254840160 : lu(k,2351) = lu(k,2351) * lu(k,2339)
12261 254840160 : lu(k,2352) = lu(k,2352) * lu(k,2339)
12262 254840160 : lu(k,2353) = lu(k,2353) * lu(k,2339)
12263 254840160 : lu(k,2354) = lu(k,2354) * lu(k,2339)
12264 254840160 : lu(k,2355) = lu(k,2355) * lu(k,2339)
12265 254840160 : lu(k,2356) = lu(k,2356) * lu(k,2339)
12266 254840160 : lu(k,2357) = lu(k,2357) * lu(k,2339)
12267 254840160 : lu(k,2732) = lu(k,2732) - lu(k,2340) * lu(k,2731)
12268 254840160 : lu(k,2741) = lu(k,2741) - lu(k,2341) * lu(k,2731)
12269 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2342) * lu(k,2731)
12270 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2343) * lu(k,2731)
12271 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2344) * lu(k,2731)
12272 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2345) * lu(k,2731)
12273 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2346) * lu(k,2731)
12274 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2347) * lu(k,2731)
12275 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2348) * lu(k,2731)
12276 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2349) * lu(k,2731)
12277 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2350) * lu(k,2731)
12278 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2351) * lu(k,2731)
12279 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2352) * lu(k,2731)
12280 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2353) * lu(k,2731)
12281 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2354) * lu(k,2731)
12282 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2355) * lu(k,2731)
12283 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2356) * lu(k,2731)
12284 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2357) * lu(k,2731)
12285 254840160 : lu(k,2778) = lu(k,2778) - lu(k,2340) * lu(k,2777)
12286 254840160 : lu(k,2787) = lu(k,2787) - lu(k,2341) * lu(k,2777)
12287 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2342) * lu(k,2777)
12288 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2343) * lu(k,2777)
12289 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2344) * lu(k,2777)
12290 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2345) * lu(k,2777)
12291 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2346) * lu(k,2777)
12292 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2347) * lu(k,2777)
12293 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2348) * lu(k,2777)
12294 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2349) * lu(k,2777)
12295 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2350) * lu(k,2777)
12296 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2351) * lu(k,2777)
12297 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2352) * lu(k,2777)
12298 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2353) * lu(k,2777)
12299 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2354) * lu(k,2777)
12300 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2355) * lu(k,2777)
12301 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2356) * lu(k,2777)
12302 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2357) * lu(k,2777)
12303 254840160 : lu(k,2825) = lu(k,2825) - lu(k,2340) * lu(k,2824)
12304 254840160 : lu(k,2834) = lu(k,2834) - lu(k,2341) * lu(k,2824)
12305 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2342) * lu(k,2824)
12306 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2343) * lu(k,2824)
12307 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2344) * lu(k,2824)
12308 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2345) * lu(k,2824)
12309 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2346) * lu(k,2824)
12310 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2347) * lu(k,2824)
12311 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2348) * lu(k,2824)
12312 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2349) * lu(k,2824)
12313 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2350) * lu(k,2824)
12314 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2351) * lu(k,2824)
12315 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2352) * lu(k,2824)
12316 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2353) * lu(k,2824)
12317 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2354) * lu(k,2824)
12318 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2355) * lu(k,2824)
12319 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2356) * lu(k,2824)
12320 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2357) * lu(k,2824)
12321 254840160 : lu(k,2897) = lu(k,2897) - lu(k,2340) * lu(k,2896)
12322 254840160 : lu(k,2906) = lu(k,2906) - lu(k,2341) * lu(k,2896)
12323 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2342) * lu(k,2896)
12324 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2343) * lu(k,2896)
12325 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2344) * lu(k,2896)
12326 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2345) * lu(k,2896)
12327 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2346) * lu(k,2896)
12328 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2347) * lu(k,2896)
12329 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2348) * lu(k,2896)
12330 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2349) * lu(k,2896)
12331 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2350) * lu(k,2896)
12332 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2351) * lu(k,2896)
12333 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2352) * lu(k,2896)
12334 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2353) * lu(k,2896)
12335 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2354) * lu(k,2896)
12336 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2355) * lu(k,2896)
12337 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2356) * lu(k,2896)
12338 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2357) * lu(k,2896)
12339 254840160 : lu(k,3087) = lu(k,3087) - lu(k,2340) * lu(k,3086)
12340 254840160 : lu(k,3096) = lu(k,3096) - lu(k,2341) * lu(k,3086)
12341 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2342) * lu(k,3086)
12342 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2343) * lu(k,3086)
12343 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2344) * lu(k,3086)
12344 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2345) * lu(k,3086)
12345 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2346) * lu(k,3086)
12346 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2347) * lu(k,3086)
12347 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2348) * lu(k,3086)
12348 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2349) * lu(k,3086)
12349 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2350) * lu(k,3086)
12350 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2351) * lu(k,3086)
12351 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2352) * lu(k,3086)
12352 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2353) * lu(k,3086)
12353 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2354) * lu(k,3086)
12354 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2355) * lu(k,3086)
12355 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2356) * lu(k,3086)
12356 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2357) * lu(k,3086)
12357 254840160 : lu(k,3346) = lu(k,3346) - lu(k,2340) * lu(k,3345)
12358 254840160 : lu(k,3355) = lu(k,3355) - lu(k,2341) * lu(k,3345)
12359 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2342) * lu(k,3345)
12360 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2343) * lu(k,3345)
12361 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2344) * lu(k,3345)
12362 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2345) * lu(k,3345)
12363 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2346) * lu(k,3345)
12364 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2347) * lu(k,3345)
12365 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2348) * lu(k,3345)
12366 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2349) * lu(k,3345)
12367 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2350) * lu(k,3345)
12368 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2351) * lu(k,3345)
12369 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2352) * lu(k,3345)
12370 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2353) * lu(k,3345)
12371 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2354) * lu(k,3345)
12372 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2355) * lu(k,3345)
12373 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2356) * lu(k,3345)
12374 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2357) * lu(k,3345)
12375 254840160 : lu(k,3439) = lu(k,3439) - lu(k,2340) * lu(k,3438)
12376 254840160 : lu(k,3448) = lu(k,3448) - lu(k,2341) * lu(k,3438)
12377 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2342) * lu(k,3438)
12378 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2343) * lu(k,3438)
12379 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2344) * lu(k,3438)
12380 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2345) * lu(k,3438)
12381 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2346) * lu(k,3438)
12382 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2347) * lu(k,3438)
12383 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2348) * lu(k,3438)
12384 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2349) * lu(k,3438)
12385 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2350) * lu(k,3438)
12386 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2351) * lu(k,3438)
12387 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2352) * lu(k,3438)
12388 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2353) * lu(k,3438)
12389 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2354) * lu(k,3438)
12390 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2355) * lu(k,3438)
12391 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2356) * lu(k,3438)
12392 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2357) * lu(k,3438)
12393 254840160 : lu(k,3583) = lu(k,3583) - lu(k,2340) * lu(k,3582)
12394 254840160 : lu(k,3592) = lu(k,3592) - lu(k,2341) * lu(k,3582)
12395 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2342) * lu(k,3582)
12396 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2343) * lu(k,3582)
12397 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2344) * lu(k,3582)
12398 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2345) * lu(k,3582)
12399 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2346) * lu(k,3582)
12400 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2347) * lu(k,3582)
12401 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2348) * lu(k,3582)
12402 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2349) * lu(k,3582)
12403 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2350) * lu(k,3582)
12404 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2351) * lu(k,3582)
12405 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2352) * lu(k,3582)
12406 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2353) * lu(k,3582)
12407 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2354) * lu(k,3582)
12408 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2355) * lu(k,3582)
12409 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2356) * lu(k,3582)
12410 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2357) * lu(k,3582)
12411 254840160 : lu(k,3737) = lu(k,3737) - lu(k,2340) * lu(k,3736)
12412 254840160 : lu(k,3746) = lu(k,3746) - lu(k,2341) * lu(k,3736)
12413 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2342) * lu(k,3736)
12414 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2343) * lu(k,3736)
12415 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2344) * lu(k,3736)
12416 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2345) * lu(k,3736)
12417 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2346) * lu(k,3736)
12418 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2347) * lu(k,3736)
12419 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2348) * lu(k,3736)
12420 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2349) * lu(k,3736)
12421 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2350) * lu(k,3736)
12422 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2351) * lu(k,3736)
12423 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2352) * lu(k,3736)
12424 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2353) * lu(k,3736)
12425 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2354) * lu(k,3736)
12426 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2355) * lu(k,3736)
12427 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2356) * lu(k,3736)
12428 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2357) * lu(k,3736)
12429 254840160 : lu(k,4069) = lu(k,4069) - lu(k,2340) * lu(k,4068)
12430 254840160 : lu(k,4078) = lu(k,4078) - lu(k,2341) * lu(k,4068)
12431 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2342) * lu(k,4068)
12432 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2343) * lu(k,4068)
12433 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2344) * lu(k,4068)
12434 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2345) * lu(k,4068)
12435 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2346) * lu(k,4068)
12436 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2347) * lu(k,4068)
12437 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2348) * lu(k,4068)
12438 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2349) * lu(k,4068)
12439 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2350) * lu(k,4068)
12440 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2351) * lu(k,4068)
12441 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2352) * lu(k,4068)
12442 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2353) * lu(k,4068)
12443 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2354) * lu(k,4068)
12444 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2355) * lu(k,4068)
12445 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2356) * lu(k,4068)
12446 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2357) * lu(k,4068)
12447 254840160 : lu(k,2359) = 1._r8 / lu(k,2359)
12448 254840160 : lu(k,2360) = lu(k,2360) * lu(k,2359)
12449 254840160 : lu(k,2361) = lu(k,2361) * lu(k,2359)
12450 254840160 : lu(k,2362) = lu(k,2362) * lu(k,2359)
12451 254840160 : lu(k,2363) = lu(k,2363) * lu(k,2359)
12452 254840160 : lu(k,2364) = lu(k,2364) * lu(k,2359)
12453 254840160 : lu(k,2365) = lu(k,2365) * lu(k,2359)
12454 254840160 : lu(k,2366) = lu(k,2366) * lu(k,2359)
12455 254840160 : lu(k,2367) = lu(k,2367) * lu(k,2359)
12456 254840160 : lu(k,2382) = lu(k,2382) - lu(k,2360) * lu(k,2379)
12457 254840160 : lu(k,2384) = lu(k,2384) - lu(k,2361) * lu(k,2379)
12458 254840160 : lu(k,2387) = lu(k,2387) - lu(k,2362) * lu(k,2379)
12459 254840160 : lu(k,2389) = lu(k,2389) - lu(k,2363) * lu(k,2379)
12460 254840160 : lu(k,2391) = lu(k,2391) - lu(k,2364) * lu(k,2379)
12461 254840160 : lu(k,2393) = lu(k,2393) - lu(k,2365) * lu(k,2379)
12462 254840160 : lu(k,2395) = lu(k,2395) - lu(k,2366) * lu(k,2379)
12463 254840160 : lu(k,2397) = lu(k,2397) - lu(k,2367) * lu(k,2379)
12464 254840160 : lu(k,2411) = lu(k,2411) - lu(k,2360) * lu(k,2407)
12465 254840160 : lu(k,2413) = lu(k,2413) - lu(k,2361) * lu(k,2407)
12466 254840160 : lu(k,2416) = lu(k,2416) - lu(k,2362) * lu(k,2407)
12467 254840160 : lu(k,2418) = lu(k,2418) - lu(k,2363) * lu(k,2407)
12468 254840160 : lu(k,2420) = lu(k,2420) - lu(k,2364) * lu(k,2407)
12469 254840160 : lu(k,2422) = lu(k,2422) - lu(k,2365) * lu(k,2407)
12470 254840160 : lu(k,2424) = lu(k,2424) - lu(k,2366) * lu(k,2407)
12471 254840160 : lu(k,2426) = lu(k,2426) - lu(k,2367) * lu(k,2407)
12472 254840160 : lu(k,2443) = lu(k,2443) - lu(k,2360) * lu(k,2440)
12473 254840160 : lu(k,2445) = lu(k,2445) - lu(k,2361) * lu(k,2440)
12474 254840160 : lu(k,2448) = lu(k,2448) - lu(k,2362) * lu(k,2440)
12475 254840160 : lu(k,2450) = lu(k,2450) - lu(k,2363) * lu(k,2440)
12476 254840160 : lu(k,2452) = lu(k,2452) - lu(k,2364) * lu(k,2440)
12477 254840160 : lu(k,2454) = lu(k,2454) - lu(k,2365) * lu(k,2440)
12478 254840160 : lu(k,2456) = lu(k,2456) - lu(k,2366) * lu(k,2440)
12479 254840160 : lu(k,2458) = lu(k,2458) - lu(k,2367) * lu(k,2440)
12480 254840160 : lu(k,2474) = lu(k,2474) - lu(k,2360) * lu(k,2470)
12481 254840160 : lu(k,2476) = lu(k,2476) - lu(k,2361) * lu(k,2470)
12482 254840160 : lu(k,2479) = lu(k,2479) - lu(k,2362) * lu(k,2470)
12483 254840160 : lu(k,2481) = lu(k,2481) - lu(k,2363) * lu(k,2470)
12484 254840160 : lu(k,2483) = lu(k,2483) - lu(k,2364) * lu(k,2470)
12485 254840160 : lu(k,2485) = lu(k,2485) - lu(k,2365) * lu(k,2470)
12486 254840160 : lu(k,2487) = lu(k,2487) - lu(k,2366) * lu(k,2470)
12487 254840160 : lu(k,2489) = lu(k,2489) - lu(k,2367) * lu(k,2470)
12488 254840160 : lu(k,2508) = lu(k,2508) - lu(k,2360) * lu(k,2504)
12489 254840160 : lu(k,2510) = lu(k,2510) - lu(k,2361) * lu(k,2504)
12490 254840160 : lu(k,2513) = lu(k,2513) - lu(k,2362) * lu(k,2504)
12491 254840160 : lu(k,2515) = lu(k,2515) - lu(k,2363) * lu(k,2504)
12492 254840160 : lu(k,2517) = lu(k,2517) - lu(k,2364) * lu(k,2504)
12493 254840160 : lu(k,2519) = lu(k,2519) - lu(k,2365) * lu(k,2504)
12494 254840160 : lu(k,2521) = lu(k,2521) - lu(k,2366) * lu(k,2504)
12495 254840160 : lu(k,2523) = lu(k,2523) - lu(k,2367) * lu(k,2504)
12496 254840160 : lu(k,2537) = lu(k,2537) - lu(k,2360) * lu(k,2535)
12497 254840160 : lu(k,2539) = lu(k,2539) - lu(k,2361) * lu(k,2535)
12498 254840160 : lu(k,2542) = lu(k,2542) - lu(k,2362) * lu(k,2535)
12499 254840160 : lu(k,2544) = lu(k,2544) - lu(k,2363) * lu(k,2535)
12500 254840160 : lu(k,2546) = lu(k,2546) - lu(k,2364) * lu(k,2535)
12501 254840160 : lu(k,2548) = lu(k,2548) - lu(k,2365) * lu(k,2535)
12502 254840160 : lu(k,2550) = lu(k,2550) - lu(k,2366) * lu(k,2535)
12503 254840160 : lu(k,2552) = lu(k,2552) - lu(k,2367) * lu(k,2535)
12504 254840160 : lu(k,2573) = lu(k,2573) - lu(k,2360) * lu(k,2568)
12505 254840160 : lu(k,2575) = lu(k,2575) - lu(k,2361) * lu(k,2568)
12506 254840160 : lu(k,2578) = lu(k,2578) - lu(k,2362) * lu(k,2568)
12507 254840160 : lu(k,2580) = lu(k,2580) - lu(k,2363) * lu(k,2568)
12508 254840160 : lu(k,2582) = lu(k,2582) - lu(k,2364) * lu(k,2568)
12509 254840160 : lu(k,2584) = lu(k,2584) - lu(k,2365) * lu(k,2568)
12510 254840160 : lu(k,2586) = lu(k,2586) - lu(k,2366) * lu(k,2568)
12511 254840160 : lu(k,2588) = lu(k,2588) - lu(k,2367) * lu(k,2568)
12512 254840160 : lu(k,2602) = - lu(k,2360) * lu(k,2599)
12513 254840160 : lu(k,2604) = - lu(k,2361) * lu(k,2599)
12514 254840160 : lu(k,2606) = - lu(k,2362) * lu(k,2599)
12515 254840160 : lu(k,2607) = lu(k,2607) - lu(k,2363) * lu(k,2599)
12516 254840160 : lu(k,2610) = lu(k,2610) - lu(k,2364) * lu(k,2599)
12517 254840160 : lu(k,2612) = lu(k,2612) - lu(k,2365) * lu(k,2599)
12518 254840160 : lu(k,2613) = lu(k,2613) - lu(k,2366) * lu(k,2599)
12519 254840160 : lu(k,2617) = lu(k,2617) - lu(k,2367) * lu(k,2599)
12520 254840160 : lu(k,2630) = - lu(k,2360) * lu(k,2628)
12521 254840160 : lu(k,2632) = - lu(k,2361) * lu(k,2628)
12522 254840160 : lu(k,2634) = - lu(k,2362) * lu(k,2628)
12523 254840160 : lu(k,2635) = lu(k,2635) - lu(k,2363) * lu(k,2628)
12524 254840160 : lu(k,2638) = lu(k,2638) - lu(k,2364) * lu(k,2628)
12525 254840160 : lu(k,2640) = lu(k,2640) - lu(k,2365) * lu(k,2628)
12526 254840160 : lu(k,2641) = lu(k,2641) - lu(k,2366) * lu(k,2628)
12527 254840160 : lu(k,2645) = lu(k,2645) - lu(k,2367) * lu(k,2628)
12528 254840160 : lu(k,2654) = lu(k,2654) - lu(k,2360) * lu(k,2653)
12529 254840160 : lu(k,2656) = lu(k,2656) - lu(k,2361) * lu(k,2653)
12530 254840160 : lu(k,2659) = lu(k,2659) - lu(k,2362) * lu(k,2653)
12531 254840160 : lu(k,2661) = lu(k,2661) - lu(k,2363) * lu(k,2653)
12532 254840160 : lu(k,2663) = lu(k,2663) - lu(k,2364) * lu(k,2653)
12533 254840160 : lu(k,2665) = lu(k,2665) - lu(k,2365) * lu(k,2653)
12534 254840160 : lu(k,2667) = lu(k,2667) - lu(k,2366) * lu(k,2653)
12535 254840160 : lu(k,2669) = lu(k,2669) - lu(k,2367) * lu(k,2653)
12536 254840160 : lu(k,2676) = lu(k,2676) - lu(k,2360) * lu(k,2675)
12537 254840160 : lu(k,2678) = lu(k,2678) - lu(k,2361) * lu(k,2675)
12538 254840160 : lu(k,2681) = lu(k,2681) - lu(k,2362) * lu(k,2675)
12539 254840160 : lu(k,2683) = lu(k,2683) - lu(k,2363) * lu(k,2675)
12540 254840160 : lu(k,2685) = lu(k,2685) - lu(k,2364) * lu(k,2675)
12541 254840160 : lu(k,2687) = lu(k,2687) - lu(k,2365) * lu(k,2675)
12542 254840160 : lu(k,2689) = lu(k,2689) - lu(k,2366) * lu(k,2675)
12543 254840160 : lu(k,2691) = lu(k,2691) - lu(k,2367) * lu(k,2675)
12544 254840160 : lu(k,2699) = lu(k,2699) - lu(k,2360) * lu(k,2698)
12545 254840160 : lu(k,2701) = lu(k,2701) - lu(k,2361) * lu(k,2698)
12546 254840160 : lu(k,2704) = lu(k,2704) - lu(k,2362) * lu(k,2698)
12547 254840160 : lu(k,2706) = lu(k,2706) - lu(k,2363) * lu(k,2698)
12548 254840160 : lu(k,2708) = lu(k,2708) - lu(k,2364) * lu(k,2698)
12549 254840160 : lu(k,2710) = lu(k,2710) - lu(k,2365) * lu(k,2698)
12550 254840160 : lu(k,2712) = lu(k,2712) - lu(k,2366) * lu(k,2698)
12551 254840160 : lu(k,2714) = lu(k,2714) - lu(k,2367) * lu(k,2698)
12552 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2360) * lu(k,2732)
12553 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2361) * lu(k,2732)
12554 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2362) * lu(k,2732)
12555 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2363) * lu(k,2732)
12556 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2364) * lu(k,2732)
12557 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2365) * lu(k,2732)
12558 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2366) * lu(k,2732)
12559 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2367) * lu(k,2732)
12560 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2360) * lu(k,2778)
12561 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2361) * lu(k,2778)
12562 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2362) * lu(k,2778)
12563 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2363) * lu(k,2778)
12564 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2364) * lu(k,2778)
12565 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2365) * lu(k,2778)
12566 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2366) * lu(k,2778)
12567 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2367) * lu(k,2778)
12568 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2360) * lu(k,2825)
12569 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2361) * lu(k,2825)
12570 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2362) * lu(k,2825)
12571 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2363) * lu(k,2825)
12572 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2364) * lu(k,2825)
12573 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2365) * lu(k,2825)
12574 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2366) * lu(k,2825)
12575 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2367) * lu(k,2825)
12576 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2360) * lu(k,2897)
12577 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2361) * lu(k,2897)
12578 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2362) * lu(k,2897)
12579 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2363) * lu(k,2897)
12580 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2364) * lu(k,2897)
12581 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2365) * lu(k,2897)
12582 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2366) * lu(k,2897)
12583 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2367) * lu(k,2897)
12584 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2360) * lu(k,3087)
12585 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2361) * lu(k,3087)
12586 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2362) * lu(k,3087)
12587 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2363) * lu(k,3087)
12588 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2364) * lu(k,3087)
12589 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2365) * lu(k,3087)
12590 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2366) * lu(k,3087)
12591 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2367) * lu(k,3087)
12592 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2360) * lu(k,3346)
12593 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2361) * lu(k,3346)
12594 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2362) * lu(k,3346)
12595 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2363) * lu(k,3346)
12596 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2364) * lu(k,3346)
12597 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2365) * lu(k,3346)
12598 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2366) * lu(k,3346)
12599 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2367) * lu(k,3346)
12600 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2360) * lu(k,3439)
12601 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2361) * lu(k,3439)
12602 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2362) * lu(k,3439)
12603 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2363) * lu(k,3439)
12604 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2364) * lu(k,3439)
12605 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2365) * lu(k,3439)
12606 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2366) * lu(k,3439)
12607 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2367) * lu(k,3439)
12608 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2360) * lu(k,3583)
12609 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2361) * lu(k,3583)
12610 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2362) * lu(k,3583)
12611 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2363) * lu(k,3583)
12612 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2364) * lu(k,3583)
12613 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2365) * lu(k,3583)
12614 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2366) * lu(k,3583)
12615 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2367) * lu(k,3583)
12616 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2360) * lu(k,3737)
12617 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2361) * lu(k,3737)
12618 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2362) * lu(k,3737)
12619 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2363) * lu(k,3737)
12620 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2364) * lu(k,3737)
12621 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2365) * lu(k,3737)
12622 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2366) * lu(k,3737)
12623 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2367) * lu(k,3737)
12624 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2360) * lu(k,4069)
12625 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2361) * lu(k,4069)
12626 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2362) * lu(k,4069)
12627 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2363) * lu(k,4069)
12628 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2364) * lu(k,4069)
12629 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2365) * lu(k,4069)
12630 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2366) * lu(k,4069)
12631 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2367) * lu(k,4069)
12632 254840160 : lu(k,2380) = 1._r8 / lu(k,2380)
12633 254840160 : lu(k,2381) = lu(k,2381) * lu(k,2380)
12634 254840160 : lu(k,2382) = lu(k,2382) * lu(k,2380)
12635 254840160 : lu(k,2383) = lu(k,2383) * lu(k,2380)
12636 254840160 : lu(k,2384) = lu(k,2384) * lu(k,2380)
12637 254840160 : lu(k,2385) = lu(k,2385) * lu(k,2380)
12638 254840160 : lu(k,2386) = lu(k,2386) * lu(k,2380)
12639 254840160 : lu(k,2387) = lu(k,2387) * lu(k,2380)
12640 254840160 : lu(k,2388) = lu(k,2388) * lu(k,2380)
12641 254840160 : lu(k,2389) = lu(k,2389) * lu(k,2380)
12642 254840160 : lu(k,2390) = lu(k,2390) * lu(k,2380)
12643 254840160 : lu(k,2391) = lu(k,2391) * lu(k,2380)
12644 254840160 : lu(k,2392) = lu(k,2392) * lu(k,2380)
12645 254840160 : lu(k,2393) = lu(k,2393) * lu(k,2380)
12646 254840160 : lu(k,2394) = lu(k,2394) * lu(k,2380)
12647 254840160 : lu(k,2395) = lu(k,2395) * lu(k,2380)
12648 254840160 : lu(k,2396) = lu(k,2396) * lu(k,2380)
12649 254840160 : lu(k,2397) = lu(k,2397) * lu(k,2380)
12650 254840160 : lu(k,2398) = lu(k,2398) * lu(k,2380)
12651 254840160 : lu(k,2741) = lu(k,2741) - lu(k,2381) * lu(k,2733)
12652 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2382) * lu(k,2733)
12653 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2383) * lu(k,2733)
12654 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2384) * lu(k,2733)
12655 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2385) * lu(k,2733)
12656 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2386) * lu(k,2733)
12657 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2387) * lu(k,2733)
12658 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2388) * lu(k,2733)
12659 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2389) * lu(k,2733)
12660 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2390) * lu(k,2733)
12661 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2391) * lu(k,2733)
12662 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2392) * lu(k,2733)
12663 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2393) * lu(k,2733)
12664 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2394) * lu(k,2733)
12665 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2395) * lu(k,2733)
12666 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2396) * lu(k,2733)
12667 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2397) * lu(k,2733)
12668 254840160 : lu(k,2761) = lu(k,2761) - lu(k,2398) * lu(k,2733)
12669 254840160 : lu(k,2787) = lu(k,2787) - lu(k,2381) * lu(k,2779)
12670 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2382) * lu(k,2779)
12671 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2383) * lu(k,2779)
12672 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2384) * lu(k,2779)
12673 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2385) * lu(k,2779)
12674 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2386) * lu(k,2779)
12675 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2387) * lu(k,2779)
12676 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2388) * lu(k,2779)
12677 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2389) * lu(k,2779)
12678 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2390) * lu(k,2779)
12679 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2391) * lu(k,2779)
12680 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2392) * lu(k,2779)
12681 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2393) * lu(k,2779)
12682 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2394) * lu(k,2779)
12683 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2395) * lu(k,2779)
12684 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2396) * lu(k,2779)
12685 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2397) * lu(k,2779)
12686 254840160 : lu(k,2807) = lu(k,2807) - lu(k,2398) * lu(k,2779)
12687 254840160 : lu(k,2834) = lu(k,2834) - lu(k,2381) * lu(k,2826)
12688 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2382) * lu(k,2826)
12689 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2383) * lu(k,2826)
12690 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2384) * lu(k,2826)
12691 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2385) * lu(k,2826)
12692 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2386) * lu(k,2826)
12693 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2387) * lu(k,2826)
12694 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2388) * lu(k,2826)
12695 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2389) * lu(k,2826)
12696 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2390) * lu(k,2826)
12697 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2391) * lu(k,2826)
12698 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2392) * lu(k,2826)
12699 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2393) * lu(k,2826)
12700 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2394) * lu(k,2826)
12701 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2395) * lu(k,2826)
12702 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2396) * lu(k,2826)
12703 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2397) * lu(k,2826)
12704 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2398) * lu(k,2826)
12705 254840160 : lu(k,2906) = lu(k,2906) - lu(k,2381) * lu(k,2898)
12706 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2382) * lu(k,2898)
12707 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2383) * lu(k,2898)
12708 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2384) * lu(k,2898)
12709 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2385) * lu(k,2898)
12710 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2386) * lu(k,2898)
12711 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2387) * lu(k,2898)
12712 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2388) * lu(k,2898)
12713 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2389) * lu(k,2898)
12714 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2390) * lu(k,2898)
12715 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2391) * lu(k,2898)
12716 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2392) * lu(k,2898)
12717 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2393) * lu(k,2898)
12718 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2394) * lu(k,2898)
12719 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2395) * lu(k,2898)
12720 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2396) * lu(k,2898)
12721 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2397) * lu(k,2898)
12722 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2398) * lu(k,2898)
12723 254840160 : lu(k,3096) = lu(k,3096) - lu(k,2381) * lu(k,3088)
12724 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2382) * lu(k,3088)
12725 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2383) * lu(k,3088)
12726 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2384) * lu(k,3088)
12727 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2385) * lu(k,3088)
12728 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2386) * lu(k,3088)
12729 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2387) * lu(k,3088)
12730 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2388) * lu(k,3088)
12731 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2389) * lu(k,3088)
12732 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2390) * lu(k,3088)
12733 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2391) * lu(k,3088)
12734 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2392) * lu(k,3088)
12735 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2393) * lu(k,3088)
12736 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2394) * lu(k,3088)
12737 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2395) * lu(k,3088)
12738 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2396) * lu(k,3088)
12739 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2397) * lu(k,3088)
12740 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2398) * lu(k,3088)
12741 254840160 : lu(k,3355) = lu(k,3355) - lu(k,2381) * lu(k,3347)
12742 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2382) * lu(k,3347)
12743 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2383) * lu(k,3347)
12744 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2384) * lu(k,3347)
12745 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2385) * lu(k,3347)
12746 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2386) * lu(k,3347)
12747 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2387) * lu(k,3347)
12748 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2388) * lu(k,3347)
12749 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2389) * lu(k,3347)
12750 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2390) * lu(k,3347)
12751 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2391) * lu(k,3347)
12752 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2392) * lu(k,3347)
12753 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2393) * lu(k,3347)
12754 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2394) * lu(k,3347)
12755 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2395) * lu(k,3347)
12756 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2396) * lu(k,3347)
12757 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2397) * lu(k,3347)
12758 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2398) * lu(k,3347)
12759 254840160 : lu(k,3448) = lu(k,3448) - lu(k,2381) * lu(k,3440)
12760 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2382) * lu(k,3440)
12761 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2383) * lu(k,3440)
12762 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2384) * lu(k,3440)
12763 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2385) * lu(k,3440)
12764 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2386) * lu(k,3440)
12765 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2387) * lu(k,3440)
12766 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2388) * lu(k,3440)
12767 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2389) * lu(k,3440)
12768 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2390) * lu(k,3440)
12769 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2391) * lu(k,3440)
12770 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2392) * lu(k,3440)
12771 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2393) * lu(k,3440)
12772 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2394) * lu(k,3440)
12773 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2395) * lu(k,3440)
12774 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2396) * lu(k,3440)
12775 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2397) * lu(k,3440)
12776 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2398) * lu(k,3440)
12777 254840160 : lu(k,3592) = lu(k,3592) - lu(k,2381) * lu(k,3584)
12778 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2382) * lu(k,3584)
12779 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2383) * lu(k,3584)
12780 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2384) * lu(k,3584)
12781 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2385) * lu(k,3584)
12782 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2386) * lu(k,3584)
12783 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2387) * lu(k,3584)
12784 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2388) * lu(k,3584)
12785 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2389) * lu(k,3584)
12786 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2390) * lu(k,3584)
12787 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2391) * lu(k,3584)
12788 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2392) * lu(k,3584)
12789 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2393) * lu(k,3584)
12790 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2394) * lu(k,3584)
12791 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2395) * lu(k,3584)
12792 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2396) * lu(k,3584)
12793 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2397) * lu(k,3584)
12794 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2398) * lu(k,3584)
12795 254840160 : lu(k,3746) = lu(k,3746) - lu(k,2381) * lu(k,3738)
12796 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2382) * lu(k,3738)
12797 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2383) * lu(k,3738)
12798 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2384) * lu(k,3738)
12799 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2385) * lu(k,3738)
12800 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2386) * lu(k,3738)
12801 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2387) * lu(k,3738)
12802 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2388) * lu(k,3738)
12803 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2389) * lu(k,3738)
12804 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2390) * lu(k,3738)
12805 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2391) * lu(k,3738)
12806 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2392) * lu(k,3738)
12807 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2393) * lu(k,3738)
12808 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2394) * lu(k,3738)
12809 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2395) * lu(k,3738)
12810 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2396) * lu(k,3738)
12811 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2397) * lu(k,3738)
12812 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2398) * lu(k,3738)
12813 254840160 : lu(k,4078) = lu(k,4078) - lu(k,2381) * lu(k,4070)
12814 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2382) * lu(k,4070)
12815 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2383) * lu(k,4070)
12816 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2384) * lu(k,4070)
12817 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2385) * lu(k,4070)
12818 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2386) * lu(k,4070)
12819 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2387) * lu(k,4070)
12820 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2388) * lu(k,4070)
12821 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2389) * lu(k,4070)
12822 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2390) * lu(k,4070)
12823 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2391) * lu(k,4070)
12824 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2392) * lu(k,4070)
12825 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2393) * lu(k,4070)
12826 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2394) * lu(k,4070)
12827 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2395) * lu(k,4070)
12828 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2396) * lu(k,4070)
12829 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2397) * lu(k,4070)
12830 263009123 : lu(k,4102) = lu(k,4102) - lu(k,2398) * lu(k,4070)
12831 : end do
12832 8168963 : end subroutine lu_fac47
12833 8168963 : subroutine lu_fac48( avec_len, lu )
12834 : use chem_mods, only : nzcnt
12835 : use shr_kind_mod, only : r8 => shr_kind_r8
12836 : implicit none
12837 : !-----------------------------------------------------------------------
12838 : ! ... dummy args
12839 : !-----------------------------------------------------------------------
12840 : integer, intent(in) :: avec_len
12841 : real(r8), intent(inout) :: lu(veclen,nzcnt)
12842 : !-----------------------------------------------------------------------
12843 : ! ... local variables
12844 : !-----------------------------------------------------------------------
12845 : integer :: k
12846 263009123 : do k = 1,avec_len
12847 254840160 : lu(k,2408) = 1._r8 / lu(k,2408)
12848 254840160 : lu(k,2409) = lu(k,2409) * lu(k,2408)
12849 254840160 : lu(k,2410) = lu(k,2410) * lu(k,2408)
12850 254840160 : lu(k,2411) = lu(k,2411) * lu(k,2408)
12851 254840160 : lu(k,2412) = lu(k,2412) * lu(k,2408)
12852 254840160 : lu(k,2413) = lu(k,2413) * lu(k,2408)
12853 254840160 : lu(k,2414) = lu(k,2414) * lu(k,2408)
12854 254840160 : lu(k,2415) = lu(k,2415) * lu(k,2408)
12855 254840160 : lu(k,2416) = lu(k,2416) * lu(k,2408)
12856 254840160 : lu(k,2417) = lu(k,2417) * lu(k,2408)
12857 254840160 : lu(k,2418) = lu(k,2418) * lu(k,2408)
12858 254840160 : lu(k,2419) = lu(k,2419) * lu(k,2408)
12859 254840160 : lu(k,2420) = lu(k,2420) * lu(k,2408)
12860 254840160 : lu(k,2421) = lu(k,2421) * lu(k,2408)
12861 254840160 : lu(k,2422) = lu(k,2422) * lu(k,2408)
12862 254840160 : lu(k,2423) = lu(k,2423) * lu(k,2408)
12863 254840160 : lu(k,2424) = lu(k,2424) * lu(k,2408)
12864 254840160 : lu(k,2425) = lu(k,2425) * lu(k,2408)
12865 254840160 : lu(k,2426) = lu(k,2426) * lu(k,2408)
12866 254840160 : lu(k,2740) = lu(k,2740) - lu(k,2409) * lu(k,2734)
12867 254840160 : lu(k,2741) = lu(k,2741) - lu(k,2410) * lu(k,2734)
12868 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2411) * lu(k,2734)
12869 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2412) * lu(k,2734)
12870 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2413) * lu(k,2734)
12871 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2414) * lu(k,2734)
12872 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2415) * lu(k,2734)
12873 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2416) * lu(k,2734)
12874 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2417) * lu(k,2734)
12875 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2418) * lu(k,2734)
12876 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2419) * lu(k,2734)
12877 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2420) * lu(k,2734)
12878 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2421) * lu(k,2734)
12879 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2422) * lu(k,2734)
12880 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2423) * lu(k,2734)
12881 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2424) * lu(k,2734)
12882 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2425) * lu(k,2734)
12883 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2426) * lu(k,2734)
12884 254840160 : lu(k,2786) = lu(k,2786) - lu(k,2409) * lu(k,2780)
12885 254840160 : lu(k,2787) = lu(k,2787) - lu(k,2410) * lu(k,2780)
12886 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2411) * lu(k,2780)
12887 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2412) * lu(k,2780)
12888 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2413) * lu(k,2780)
12889 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2414) * lu(k,2780)
12890 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2415) * lu(k,2780)
12891 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2416) * lu(k,2780)
12892 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2417) * lu(k,2780)
12893 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2418) * lu(k,2780)
12894 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2419) * lu(k,2780)
12895 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2420) * lu(k,2780)
12896 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2421) * lu(k,2780)
12897 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2422) * lu(k,2780)
12898 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2423) * lu(k,2780)
12899 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2424) * lu(k,2780)
12900 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2425) * lu(k,2780)
12901 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2426) * lu(k,2780)
12902 254840160 : lu(k,2833) = lu(k,2833) - lu(k,2409) * lu(k,2827)
12903 254840160 : lu(k,2834) = lu(k,2834) - lu(k,2410) * lu(k,2827)
12904 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2411) * lu(k,2827)
12905 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2412) * lu(k,2827)
12906 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2413) * lu(k,2827)
12907 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2414) * lu(k,2827)
12908 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2415) * lu(k,2827)
12909 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2416) * lu(k,2827)
12910 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2417) * lu(k,2827)
12911 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2418) * lu(k,2827)
12912 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2419) * lu(k,2827)
12913 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2420) * lu(k,2827)
12914 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2421) * lu(k,2827)
12915 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2422) * lu(k,2827)
12916 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2423) * lu(k,2827)
12917 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2424) * lu(k,2827)
12918 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2425) * lu(k,2827)
12919 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2426) * lu(k,2827)
12920 254840160 : lu(k,2905) = lu(k,2905) - lu(k,2409) * lu(k,2899)
12921 254840160 : lu(k,2906) = lu(k,2906) - lu(k,2410) * lu(k,2899)
12922 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2411) * lu(k,2899)
12923 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2412) * lu(k,2899)
12924 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2413) * lu(k,2899)
12925 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2414) * lu(k,2899)
12926 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2415) * lu(k,2899)
12927 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2416) * lu(k,2899)
12928 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2417) * lu(k,2899)
12929 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2418) * lu(k,2899)
12930 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2419) * lu(k,2899)
12931 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2420) * lu(k,2899)
12932 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2421) * lu(k,2899)
12933 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2422) * lu(k,2899)
12934 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2423) * lu(k,2899)
12935 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2424) * lu(k,2899)
12936 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2425) * lu(k,2899)
12937 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2426) * lu(k,2899)
12938 254840160 : lu(k,3095) = lu(k,3095) - lu(k,2409) * lu(k,3089)
12939 254840160 : lu(k,3096) = lu(k,3096) - lu(k,2410) * lu(k,3089)
12940 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2411) * lu(k,3089)
12941 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2412) * lu(k,3089)
12942 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2413) * lu(k,3089)
12943 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2414) * lu(k,3089)
12944 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2415) * lu(k,3089)
12945 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2416) * lu(k,3089)
12946 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2417) * lu(k,3089)
12947 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2418) * lu(k,3089)
12948 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2419) * lu(k,3089)
12949 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2420) * lu(k,3089)
12950 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2421) * lu(k,3089)
12951 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2422) * lu(k,3089)
12952 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2423) * lu(k,3089)
12953 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2424) * lu(k,3089)
12954 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2425) * lu(k,3089)
12955 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2426) * lu(k,3089)
12956 254840160 : lu(k,3354) = lu(k,3354) - lu(k,2409) * lu(k,3348)
12957 254840160 : lu(k,3355) = lu(k,3355) - lu(k,2410) * lu(k,3348)
12958 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2411) * lu(k,3348)
12959 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2412) * lu(k,3348)
12960 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2413) * lu(k,3348)
12961 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2414) * lu(k,3348)
12962 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2415) * lu(k,3348)
12963 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2416) * lu(k,3348)
12964 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2417) * lu(k,3348)
12965 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2418) * lu(k,3348)
12966 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2419) * lu(k,3348)
12967 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2420) * lu(k,3348)
12968 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2421) * lu(k,3348)
12969 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2422) * lu(k,3348)
12970 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2423) * lu(k,3348)
12971 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2424) * lu(k,3348)
12972 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2425) * lu(k,3348)
12973 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2426) * lu(k,3348)
12974 254840160 : lu(k,3447) = lu(k,3447) - lu(k,2409) * lu(k,3441)
12975 254840160 : lu(k,3448) = lu(k,3448) - lu(k,2410) * lu(k,3441)
12976 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2411) * lu(k,3441)
12977 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2412) * lu(k,3441)
12978 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2413) * lu(k,3441)
12979 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2414) * lu(k,3441)
12980 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2415) * lu(k,3441)
12981 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2416) * lu(k,3441)
12982 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2417) * lu(k,3441)
12983 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2418) * lu(k,3441)
12984 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2419) * lu(k,3441)
12985 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2420) * lu(k,3441)
12986 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2421) * lu(k,3441)
12987 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2422) * lu(k,3441)
12988 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2423) * lu(k,3441)
12989 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2424) * lu(k,3441)
12990 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2425) * lu(k,3441)
12991 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2426) * lu(k,3441)
12992 254840160 : lu(k,3591) = lu(k,3591) - lu(k,2409) * lu(k,3585)
12993 254840160 : lu(k,3592) = lu(k,3592) - lu(k,2410) * lu(k,3585)
12994 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2411) * lu(k,3585)
12995 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2412) * lu(k,3585)
12996 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2413) * lu(k,3585)
12997 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2414) * lu(k,3585)
12998 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2415) * lu(k,3585)
12999 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2416) * lu(k,3585)
13000 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2417) * lu(k,3585)
13001 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2418) * lu(k,3585)
13002 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2419) * lu(k,3585)
13003 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2420) * lu(k,3585)
13004 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2421) * lu(k,3585)
13005 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2422) * lu(k,3585)
13006 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2423) * lu(k,3585)
13007 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2424) * lu(k,3585)
13008 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2425) * lu(k,3585)
13009 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2426) * lu(k,3585)
13010 254840160 : lu(k,3745) = lu(k,3745) - lu(k,2409) * lu(k,3739)
13011 254840160 : lu(k,3746) = lu(k,3746) - lu(k,2410) * lu(k,3739)
13012 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2411) * lu(k,3739)
13013 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2412) * lu(k,3739)
13014 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2413) * lu(k,3739)
13015 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2414) * lu(k,3739)
13016 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2415) * lu(k,3739)
13017 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2416) * lu(k,3739)
13018 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2417) * lu(k,3739)
13019 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2418) * lu(k,3739)
13020 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2419) * lu(k,3739)
13021 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2420) * lu(k,3739)
13022 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2421) * lu(k,3739)
13023 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2422) * lu(k,3739)
13024 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2423) * lu(k,3739)
13025 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2424) * lu(k,3739)
13026 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2425) * lu(k,3739)
13027 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2426) * lu(k,3739)
13028 254840160 : lu(k,4077) = lu(k,4077) - lu(k,2409) * lu(k,4071)
13029 254840160 : lu(k,4078) = lu(k,4078) - lu(k,2410) * lu(k,4071)
13030 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2411) * lu(k,4071)
13031 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2412) * lu(k,4071)
13032 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2413) * lu(k,4071)
13033 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2414) * lu(k,4071)
13034 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2415) * lu(k,4071)
13035 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2416) * lu(k,4071)
13036 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2417) * lu(k,4071)
13037 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2418) * lu(k,4071)
13038 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2419) * lu(k,4071)
13039 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2420) * lu(k,4071)
13040 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2421) * lu(k,4071)
13041 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2422) * lu(k,4071)
13042 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2423) * lu(k,4071)
13043 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2424) * lu(k,4071)
13044 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2425) * lu(k,4071)
13045 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2426) * lu(k,4071)
13046 254840160 : lu(k,2441) = 1._r8 / lu(k,2441)
13047 254840160 : lu(k,2442) = lu(k,2442) * lu(k,2441)
13048 254840160 : lu(k,2443) = lu(k,2443) * lu(k,2441)
13049 254840160 : lu(k,2444) = lu(k,2444) * lu(k,2441)
13050 254840160 : lu(k,2445) = lu(k,2445) * lu(k,2441)
13051 254840160 : lu(k,2446) = lu(k,2446) * lu(k,2441)
13052 254840160 : lu(k,2447) = lu(k,2447) * lu(k,2441)
13053 254840160 : lu(k,2448) = lu(k,2448) * lu(k,2441)
13054 254840160 : lu(k,2449) = lu(k,2449) * lu(k,2441)
13055 254840160 : lu(k,2450) = lu(k,2450) * lu(k,2441)
13056 254840160 : lu(k,2451) = lu(k,2451) * lu(k,2441)
13057 254840160 : lu(k,2452) = lu(k,2452) * lu(k,2441)
13058 254840160 : lu(k,2453) = lu(k,2453) * lu(k,2441)
13059 254840160 : lu(k,2454) = lu(k,2454) * lu(k,2441)
13060 254840160 : lu(k,2455) = lu(k,2455) * lu(k,2441)
13061 254840160 : lu(k,2456) = lu(k,2456) * lu(k,2441)
13062 254840160 : lu(k,2457) = lu(k,2457) * lu(k,2441)
13063 254840160 : lu(k,2458) = lu(k,2458) * lu(k,2441)
13064 254840160 : lu(k,2459) = lu(k,2459) * lu(k,2441)
13065 254840160 : lu(k,2741) = lu(k,2741) - lu(k,2442) * lu(k,2735)
13066 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2443) * lu(k,2735)
13067 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2444) * lu(k,2735)
13068 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2445) * lu(k,2735)
13069 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2446) * lu(k,2735)
13070 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2447) * lu(k,2735)
13071 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2448) * lu(k,2735)
13072 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2449) * lu(k,2735)
13073 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2450) * lu(k,2735)
13074 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2451) * lu(k,2735)
13075 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2452) * lu(k,2735)
13076 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2453) * lu(k,2735)
13077 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2454) * lu(k,2735)
13078 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2455) * lu(k,2735)
13079 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2456) * lu(k,2735)
13080 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2457) * lu(k,2735)
13081 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2458) * lu(k,2735)
13082 254840160 : lu(k,2761) = lu(k,2761) - lu(k,2459) * lu(k,2735)
13083 254840160 : lu(k,2787) = lu(k,2787) - lu(k,2442) * lu(k,2781)
13084 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2443) * lu(k,2781)
13085 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2444) * lu(k,2781)
13086 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2445) * lu(k,2781)
13087 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2446) * lu(k,2781)
13088 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2447) * lu(k,2781)
13089 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2448) * lu(k,2781)
13090 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2449) * lu(k,2781)
13091 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2450) * lu(k,2781)
13092 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2451) * lu(k,2781)
13093 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2452) * lu(k,2781)
13094 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2453) * lu(k,2781)
13095 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2454) * lu(k,2781)
13096 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2455) * lu(k,2781)
13097 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2456) * lu(k,2781)
13098 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2457) * lu(k,2781)
13099 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2458) * lu(k,2781)
13100 254840160 : lu(k,2807) = lu(k,2807) - lu(k,2459) * lu(k,2781)
13101 254840160 : lu(k,2834) = lu(k,2834) - lu(k,2442) * lu(k,2828)
13102 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2443) * lu(k,2828)
13103 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2444) * lu(k,2828)
13104 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2445) * lu(k,2828)
13105 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2446) * lu(k,2828)
13106 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2447) * lu(k,2828)
13107 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2448) * lu(k,2828)
13108 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2449) * lu(k,2828)
13109 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2450) * lu(k,2828)
13110 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2451) * lu(k,2828)
13111 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2452) * lu(k,2828)
13112 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2453) * lu(k,2828)
13113 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2454) * lu(k,2828)
13114 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2455) * lu(k,2828)
13115 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2456) * lu(k,2828)
13116 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2457) * lu(k,2828)
13117 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2458) * lu(k,2828)
13118 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2459) * lu(k,2828)
13119 254840160 : lu(k,2906) = lu(k,2906) - lu(k,2442) * lu(k,2900)
13120 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2443) * lu(k,2900)
13121 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2444) * lu(k,2900)
13122 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2445) * lu(k,2900)
13123 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2446) * lu(k,2900)
13124 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2447) * lu(k,2900)
13125 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2448) * lu(k,2900)
13126 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2449) * lu(k,2900)
13127 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2450) * lu(k,2900)
13128 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2451) * lu(k,2900)
13129 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2452) * lu(k,2900)
13130 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2453) * lu(k,2900)
13131 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2454) * lu(k,2900)
13132 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2455) * lu(k,2900)
13133 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2456) * lu(k,2900)
13134 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2457) * lu(k,2900)
13135 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2458) * lu(k,2900)
13136 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2459) * lu(k,2900)
13137 254840160 : lu(k,3096) = lu(k,3096) - lu(k,2442) * lu(k,3090)
13138 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2443) * lu(k,3090)
13139 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2444) * lu(k,3090)
13140 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2445) * lu(k,3090)
13141 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2446) * lu(k,3090)
13142 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2447) * lu(k,3090)
13143 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2448) * lu(k,3090)
13144 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2449) * lu(k,3090)
13145 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2450) * lu(k,3090)
13146 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2451) * lu(k,3090)
13147 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2452) * lu(k,3090)
13148 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2453) * lu(k,3090)
13149 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2454) * lu(k,3090)
13150 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2455) * lu(k,3090)
13151 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2456) * lu(k,3090)
13152 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2457) * lu(k,3090)
13153 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2458) * lu(k,3090)
13154 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2459) * lu(k,3090)
13155 254840160 : lu(k,3355) = lu(k,3355) - lu(k,2442) * lu(k,3349)
13156 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2443) * lu(k,3349)
13157 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2444) * lu(k,3349)
13158 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2445) * lu(k,3349)
13159 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2446) * lu(k,3349)
13160 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2447) * lu(k,3349)
13161 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2448) * lu(k,3349)
13162 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2449) * lu(k,3349)
13163 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2450) * lu(k,3349)
13164 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2451) * lu(k,3349)
13165 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2452) * lu(k,3349)
13166 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2453) * lu(k,3349)
13167 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2454) * lu(k,3349)
13168 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2455) * lu(k,3349)
13169 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2456) * lu(k,3349)
13170 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2457) * lu(k,3349)
13171 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2458) * lu(k,3349)
13172 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2459) * lu(k,3349)
13173 254840160 : lu(k,3448) = lu(k,3448) - lu(k,2442) * lu(k,3442)
13174 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2443) * lu(k,3442)
13175 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2444) * lu(k,3442)
13176 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2445) * lu(k,3442)
13177 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2446) * lu(k,3442)
13178 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2447) * lu(k,3442)
13179 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2448) * lu(k,3442)
13180 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2449) * lu(k,3442)
13181 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2450) * lu(k,3442)
13182 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2451) * lu(k,3442)
13183 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2452) * lu(k,3442)
13184 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2453) * lu(k,3442)
13185 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2454) * lu(k,3442)
13186 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2455) * lu(k,3442)
13187 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2456) * lu(k,3442)
13188 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2457) * lu(k,3442)
13189 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2458) * lu(k,3442)
13190 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2459) * lu(k,3442)
13191 254840160 : lu(k,3592) = lu(k,3592) - lu(k,2442) * lu(k,3586)
13192 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2443) * lu(k,3586)
13193 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2444) * lu(k,3586)
13194 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2445) * lu(k,3586)
13195 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2446) * lu(k,3586)
13196 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2447) * lu(k,3586)
13197 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2448) * lu(k,3586)
13198 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2449) * lu(k,3586)
13199 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2450) * lu(k,3586)
13200 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2451) * lu(k,3586)
13201 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2452) * lu(k,3586)
13202 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2453) * lu(k,3586)
13203 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2454) * lu(k,3586)
13204 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2455) * lu(k,3586)
13205 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2456) * lu(k,3586)
13206 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2457) * lu(k,3586)
13207 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2458) * lu(k,3586)
13208 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2459) * lu(k,3586)
13209 254840160 : lu(k,3746) = lu(k,3746) - lu(k,2442) * lu(k,3740)
13210 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2443) * lu(k,3740)
13211 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2444) * lu(k,3740)
13212 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2445) * lu(k,3740)
13213 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2446) * lu(k,3740)
13214 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2447) * lu(k,3740)
13215 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2448) * lu(k,3740)
13216 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2449) * lu(k,3740)
13217 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2450) * lu(k,3740)
13218 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2451) * lu(k,3740)
13219 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2452) * lu(k,3740)
13220 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2453) * lu(k,3740)
13221 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2454) * lu(k,3740)
13222 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2455) * lu(k,3740)
13223 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2456) * lu(k,3740)
13224 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2457) * lu(k,3740)
13225 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2458) * lu(k,3740)
13226 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2459) * lu(k,3740)
13227 254840160 : lu(k,4078) = lu(k,4078) - lu(k,2442) * lu(k,4072)
13228 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2443) * lu(k,4072)
13229 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2444) * lu(k,4072)
13230 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2445) * lu(k,4072)
13231 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2446) * lu(k,4072)
13232 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2447) * lu(k,4072)
13233 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2448) * lu(k,4072)
13234 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2449) * lu(k,4072)
13235 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2450) * lu(k,4072)
13236 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2451) * lu(k,4072)
13237 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2452) * lu(k,4072)
13238 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2453) * lu(k,4072)
13239 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2454) * lu(k,4072)
13240 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2455) * lu(k,4072)
13241 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2456) * lu(k,4072)
13242 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2457) * lu(k,4072)
13243 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2458) * lu(k,4072)
13244 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2459) * lu(k,4072)
13245 254840160 : lu(k,2471) = 1._r8 / lu(k,2471)
13246 254840160 : lu(k,2472) = lu(k,2472) * lu(k,2471)
13247 254840160 : lu(k,2473) = lu(k,2473) * lu(k,2471)
13248 254840160 : lu(k,2474) = lu(k,2474) * lu(k,2471)
13249 254840160 : lu(k,2475) = lu(k,2475) * lu(k,2471)
13250 254840160 : lu(k,2476) = lu(k,2476) * lu(k,2471)
13251 254840160 : lu(k,2477) = lu(k,2477) * lu(k,2471)
13252 254840160 : lu(k,2478) = lu(k,2478) * lu(k,2471)
13253 254840160 : lu(k,2479) = lu(k,2479) * lu(k,2471)
13254 254840160 : lu(k,2480) = lu(k,2480) * lu(k,2471)
13255 254840160 : lu(k,2481) = lu(k,2481) * lu(k,2471)
13256 254840160 : lu(k,2482) = lu(k,2482) * lu(k,2471)
13257 254840160 : lu(k,2483) = lu(k,2483) * lu(k,2471)
13258 254840160 : lu(k,2484) = lu(k,2484) * lu(k,2471)
13259 254840160 : lu(k,2485) = lu(k,2485) * lu(k,2471)
13260 254840160 : lu(k,2486) = lu(k,2486) * lu(k,2471)
13261 254840160 : lu(k,2487) = lu(k,2487) * lu(k,2471)
13262 254840160 : lu(k,2488) = lu(k,2488) * lu(k,2471)
13263 254840160 : lu(k,2489) = lu(k,2489) * lu(k,2471)
13264 254840160 : lu(k,2490) = lu(k,2490) * lu(k,2471)
13265 254840160 : lu(k,2740) = lu(k,2740) - lu(k,2472) * lu(k,2736)
13266 254840160 : lu(k,2741) = lu(k,2741) - lu(k,2473) * lu(k,2736)
13267 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2474) * lu(k,2736)
13268 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2475) * lu(k,2736)
13269 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2476) * lu(k,2736)
13270 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2477) * lu(k,2736)
13271 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2478) * lu(k,2736)
13272 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2479) * lu(k,2736)
13273 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2480) * lu(k,2736)
13274 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2481) * lu(k,2736)
13275 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2482) * lu(k,2736)
13276 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2483) * lu(k,2736)
13277 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2484) * lu(k,2736)
13278 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2485) * lu(k,2736)
13279 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2486) * lu(k,2736)
13280 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2487) * lu(k,2736)
13281 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2488) * lu(k,2736)
13282 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2489) * lu(k,2736)
13283 254840160 : lu(k,2761) = lu(k,2761) - lu(k,2490) * lu(k,2736)
13284 254840160 : lu(k,2786) = lu(k,2786) - lu(k,2472) * lu(k,2782)
13285 254840160 : lu(k,2787) = lu(k,2787) - lu(k,2473) * lu(k,2782)
13286 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2474) * lu(k,2782)
13287 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2475) * lu(k,2782)
13288 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2476) * lu(k,2782)
13289 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2477) * lu(k,2782)
13290 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2478) * lu(k,2782)
13291 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2479) * lu(k,2782)
13292 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2480) * lu(k,2782)
13293 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2481) * lu(k,2782)
13294 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2482) * lu(k,2782)
13295 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2483) * lu(k,2782)
13296 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2484) * lu(k,2782)
13297 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2485) * lu(k,2782)
13298 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2486) * lu(k,2782)
13299 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2487) * lu(k,2782)
13300 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2488) * lu(k,2782)
13301 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2489) * lu(k,2782)
13302 254840160 : lu(k,2807) = lu(k,2807) - lu(k,2490) * lu(k,2782)
13303 254840160 : lu(k,2833) = lu(k,2833) - lu(k,2472) * lu(k,2829)
13304 254840160 : lu(k,2834) = lu(k,2834) - lu(k,2473) * lu(k,2829)
13305 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2474) * lu(k,2829)
13306 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2475) * lu(k,2829)
13307 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2476) * lu(k,2829)
13308 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2477) * lu(k,2829)
13309 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2478) * lu(k,2829)
13310 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2479) * lu(k,2829)
13311 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2480) * lu(k,2829)
13312 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2481) * lu(k,2829)
13313 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2482) * lu(k,2829)
13314 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2483) * lu(k,2829)
13315 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2484) * lu(k,2829)
13316 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2485) * lu(k,2829)
13317 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2486) * lu(k,2829)
13318 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2487) * lu(k,2829)
13319 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2488) * lu(k,2829)
13320 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2489) * lu(k,2829)
13321 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2490) * lu(k,2829)
13322 254840160 : lu(k,2905) = lu(k,2905) - lu(k,2472) * lu(k,2901)
13323 254840160 : lu(k,2906) = lu(k,2906) - lu(k,2473) * lu(k,2901)
13324 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2474) * lu(k,2901)
13325 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2475) * lu(k,2901)
13326 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2476) * lu(k,2901)
13327 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2477) * lu(k,2901)
13328 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2478) * lu(k,2901)
13329 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2479) * lu(k,2901)
13330 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2480) * lu(k,2901)
13331 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2481) * lu(k,2901)
13332 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2482) * lu(k,2901)
13333 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2483) * lu(k,2901)
13334 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2484) * lu(k,2901)
13335 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2485) * lu(k,2901)
13336 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2486) * lu(k,2901)
13337 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2487) * lu(k,2901)
13338 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2488) * lu(k,2901)
13339 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2489) * lu(k,2901)
13340 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2490) * lu(k,2901)
13341 254840160 : lu(k,3095) = lu(k,3095) - lu(k,2472) * lu(k,3091)
13342 254840160 : lu(k,3096) = lu(k,3096) - lu(k,2473) * lu(k,3091)
13343 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2474) * lu(k,3091)
13344 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2475) * lu(k,3091)
13345 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2476) * lu(k,3091)
13346 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2477) * lu(k,3091)
13347 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2478) * lu(k,3091)
13348 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2479) * lu(k,3091)
13349 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2480) * lu(k,3091)
13350 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2481) * lu(k,3091)
13351 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2482) * lu(k,3091)
13352 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2483) * lu(k,3091)
13353 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2484) * lu(k,3091)
13354 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2485) * lu(k,3091)
13355 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2486) * lu(k,3091)
13356 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2487) * lu(k,3091)
13357 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2488) * lu(k,3091)
13358 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2489) * lu(k,3091)
13359 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2490) * lu(k,3091)
13360 254840160 : lu(k,3354) = lu(k,3354) - lu(k,2472) * lu(k,3350)
13361 254840160 : lu(k,3355) = lu(k,3355) - lu(k,2473) * lu(k,3350)
13362 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2474) * lu(k,3350)
13363 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2475) * lu(k,3350)
13364 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2476) * lu(k,3350)
13365 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2477) * lu(k,3350)
13366 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2478) * lu(k,3350)
13367 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2479) * lu(k,3350)
13368 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2480) * lu(k,3350)
13369 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2481) * lu(k,3350)
13370 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2482) * lu(k,3350)
13371 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2483) * lu(k,3350)
13372 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2484) * lu(k,3350)
13373 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2485) * lu(k,3350)
13374 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2486) * lu(k,3350)
13375 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2487) * lu(k,3350)
13376 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2488) * lu(k,3350)
13377 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2489) * lu(k,3350)
13378 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2490) * lu(k,3350)
13379 254840160 : lu(k,3447) = lu(k,3447) - lu(k,2472) * lu(k,3443)
13380 254840160 : lu(k,3448) = lu(k,3448) - lu(k,2473) * lu(k,3443)
13381 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2474) * lu(k,3443)
13382 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2475) * lu(k,3443)
13383 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2476) * lu(k,3443)
13384 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2477) * lu(k,3443)
13385 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2478) * lu(k,3443)
13386 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2479) * lu(k,3443)
13387 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2480) * lu(k,3443)
13388 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2481) * lu(k,3443)
13389 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2482) * lu(k,3443)
13390 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2483) * lu(k,3443)
13391 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2484) * lu(k,3443)
13392 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2485) * lu(k,3443)
13393 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2486) * lu(k,3443)
13394 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2487) * lu(k,3443)
13395 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2488) * lu(k,3443)
13396 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2489) * lu(k,3443)
13397 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2490) * lu(k,3443)
13398 254840160 : lu(k,3591) = lu(k,3591) - lu(k,2472) * lu(k,3587)
13399 254840160 : lu(k,3592) = lu(k,3592) - lu(k,2473) * lu(k,3587)
13400 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2474) * lu(k,3587)
13401 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2475) * lu(k,3587)
13402 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2476) * lu(k,3587)
13403 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2477) * lu(k,3587)
13404 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2478) * lu(k,3587)
13405 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2479) * lu(k,3587)
13406 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2480) * lu(k,3587)
13407 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2481) * lu(k,3587)
13408 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2482) * lu(k,3587)
13409 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2483) * lu(k,3587)
13410 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2484) * lu(k,3587)
13411 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2485) * lu(k,3587)
13412 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2486) * lu(k,3587)
13413 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2487) * lu(k,3587)
13414 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2488) * lu(k,3587)
13415 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2489) * lu(k,3587)
13416 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2490) * lu(k,3587)
13417 254840160 : lu(k,3745) = lu(k,3745) - lu(k,2472) * lu(k,3741)
13418 254840160 : lu(k,3746) = lu(k,3746) - lu(k,2473) * lu(k,3741)
13419 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2474) * lu(k,3741)
13420 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2475) * lu(k,3741)
13421 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2476) * lu(k,3741)
13422 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2477) * lu(k,3741)
13423 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2478) * lu(k,3741)
13424 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2479) * lu(k,3741)
13425 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2480) * lu(k,3741)
13426 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2481) * lu(k,3741)
13427 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2482) * lu(k,3741)
13428 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2483) * lu(k,3741)
13429 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2484) * lu(k,3741)
13430 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2485) * lu(k,3741)
13431 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2486) * lu(k,3741)
13432 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2487) * lu(k,3741)
13433 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2488) * lu(k,3741)
13434 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2489) * lu(k,3741)
13435 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2490) * lu(k,3741)
13436 254840160 : lu(k,4077) = lu(k,4077) - lu(k,2472) * lu(k,4073)
13437 254840160 : lu(k,4078) = lu(k,4078) - lu(k,2473) * lu(k,4073)
13438 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2474) * lu(k,4073)
13439 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2475) * lu(k,4073)
13440 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2476) * lu(k,4073)
13441 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2477) * lu(k,4073)
13442 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2478) * lu(k,4073)
13443 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2479) * lu(k,4073)
13444 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2480) * lu(k,4073)
13445 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2481) * lu(k,4073)
13446 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2482) * lu(k,4073)
13447 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2483) * lu(k,4073)
13448 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2484) * lu(k,4073)
13449 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2485) * lu(k,4073)
13450 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2486) * lu(k,4073)
13451 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2487) * lu(k,4073)
13452 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2488) * lu(k,4073)
13453 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2489) * lu(k,4073)
13454 263009123 : lu(k,4102) = lu(k,4102) - lu(k,2490) * lu(k,4073)
13455 : end do
13456 8168963 : end subroutine lu_fac48
13457 8168963 : subroutine lu_fac49( avec_len, lu )
13458 : use chem_mods, only : nzcnt
13459 : use shr_kind_mod, only : r8 => shr_kind_r8
13460 : implicit none
13461 : !-----------------------------------------------------------------------
13462 : ! ... dummy args
13463 : !-----------------------------------------------------------------------
13464 : integer, intent(in) :: avec_len
13465 : real(r8), intent(inout) :: lu(veclen,nzcnt)
13466 : !-----------------------------------------------------------------------
13467 : ! ... local variables
13468 : !-----------------------------------------------------------------------
13469 : integer :: k
13470 263009123 : do k = 1,avec_len
13471 254840160 : lu(k,2505) = 1._r8 / lu(k,2505)
13472 254840160 : lu(k,2506) = lu(k,2506) * lu(k,2505)
13473 254840160 : lu(k,2507) = lu(k,2507) * lu(k,2505)
13474 254840160 : lu(k,2508) = lu(k,2508) * lu(k,2505)
13475 254840160 : lu(k,2509) = lu(k,2509) * lu(k,2505)
13476 254840160 : lu(k,2510) = lu(k,2510) * lu(k,2505)
13477 254840160 : lu(k,2511) = lu(k,2511) * lu(k,2505)
13478 254840160 : lu(k,2512) = lu(k,2512) * lu(k,2505)
13479 254840160 : lu(k,2513) = lu(k,2513) * lu(k,2505)
13480 254840160 : lu(k,2514) = lu(k,2514) * lu(k,2505)
13481 254840160 : lu(k,2515) = lu(k,2515) * lu(k,2505)
13482 254840160 : lu(k,2516) = lu(k,2516) * lu(k,2505)
13483 254840160 : lu(k,2517) = lu(k,2517) * lu(k,2505)
13484 254840160 : lu(k,2518) = lu(k,2518) * lu(k,2505)
13485 254840160 : lu(k,2519) = lu(k,2519) * lu(k,2505)
13486 254840160 : lu(k,2520) = lu(k,2520) * lu(k,2505)
13487 254840160 : lu(k,2521) = lu(k,2521) * lu(k,2505)
13488 254840160 : lu(k,2522) = lu(k,2522) * lu(k,2505)
13489 254840160 : lu(k,2523) = lu(k,2523) * lu(k,2505)
13490 254840160 : lu(k,2524) = lu(k,2524) * lu(k,2505)
13491 254840160 : lu(k,2738) = lu(k,2738) - lu(k,2506) * lu(k,2737)
13492 254840160 : lu(k,2741) = lu(k,2741) - lu(k,2507) * lu(k,2737)
13493 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2508) * lu(k,2737)
13494 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2509) * lu(k,2737)
13495 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2510) * lu(k,2737)
13496 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2511) * lu(k,2737)
13497 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2512) * lu(k,2737)
13498 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2513) * lu(k,2737)
13499 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2514) * lu(k,2737)
13500 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2515) * lu(k,2737)
13501 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2516) * lu(k,2737)
13502 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2517) * lu(k,2737)
13503 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2518) * lu(k,2737)
13504 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2519) * lu(k,2737)
13505 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2520) * lu(k,2737)
13506 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2521) * lu(k,2737)
13507 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2522) * lu(k,2737)
13508 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2523) * lu(k,2737)
13509 254840160 : lu(k,2761) = lu(k,2761) - lu(k,2524) * lu(k,2737)
13510 254840160 : lu(k,2784) = lu(k,2784) - lu(k,2506) * lu(k,2783)
13511 254840160 : lu(k,2787) = lu(k,2787) - lu(k,2507) * lu(k,2783)
13512 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2508) * lu(k,2783)
13513 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2509) * lu(k,2783)
13514 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2510) * lu(k,2783)
13515 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2511) * lu(k,2783)
13516 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2512) * lu(k,2783)
13517 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2513) * lu(k,2783)
13518 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2514) * lu(k,2783)
13519 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2515) * lu(k,2783)
13520 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2516) * lu(k,2783)
13521 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2517) * lu(k,2783)
13522 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2518) * lu(k,2783)
13523 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2519) * lu(k,2783)
13524 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2520) * lu(k,2783)
13525 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2521) * lu(k,2783)
13526 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2522) * lu(k,2783)
13527 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2523) * lu(k,2783)
13528 254840160 : lu(k,2807) = lu(k,2807) - lu(k,2524) * lu(k,2783)
13529 254840160 : lu(k,2831) = lu(k,2831) - lu(k,2506) * lu(k,2830)
13530 254840160 : lu(k,2834) = lu(k,2834) - lu(k,2507) * lu(k,2830)
13531 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2508) * lu(k,2830)
13532 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2509) * lu(k,2830)
13533 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2510) * lu(k,2830)
13534 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2511) * lu(k,2830)
13535 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2512) * lu(k,2830)
13536 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2513) * lu(k,2830)
13537 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2514) * lu(k,2830)
13538 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2515) * lu(k,2830)
13539 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2516) * lu(k,2830)
13540 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2517) * lu(k,2830)
13541 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2518) * lu(k,2830)
13542 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2519) * lu(k,2830)
13543 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2520) * lu(k,2830)
13544 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2521) * lu(k,2830)
13545 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2522) * lu(k,2830)
13546 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2523) * lu(k,2830)
13547 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2524) * lu(k,2830)
13548 254840160 : lu(k,2903) = lu(k,2903) - lu(k,2506) * lu(k,2902)
13549 254840160 : lu(k,2906) = lu(k,2906) - lu(k,2507) * lu(k,2902)
13550 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2508) * lu(k,2902)
13551 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2509) * lu(k,2902)
13552 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2510) * lu(k,2902)
13553 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2511) * lu(k,2902)
13554 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2512) * lu(k,2902)
13555 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2513) * lu(k,2902)
13556 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2514) * lu(k,2902)
13557 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2515) * lu(k,2902)
13558 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2516) * lu(k,2902)
13559 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2517) * lu(k,2902)
13560 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2518) * lu(k,2902)
13561 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2519) * lu(k,2902)
13562 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2520) * lu(k,2902)
13563 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2521) * lu(k,2902)
13564 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2522) * lu(k,2902)
13565 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2523) * lu(k,2902)
13566 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2524) * lu(k,2902)
13567 254840160 : lu(k,3093) = lu(k,3093) - lu(k,2506) * lu(k,3092)
13568 254840160 : lu(k,3096) = lu(k,3096) - lu(k,2507) * lu(k,3092)
13569 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2508) * lu(k,3092)
13570 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2509) * lu(k,3092)
13571 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2510) * lu(k,3092)
13572 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2511) * lu(k,3092)
13573 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2512) * lu(k,3092)
13574 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2513) * lu(k,3092)
13575 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2514) * lu(k,3092)
13576 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2515) * lu(k,3092)
13577 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2516) * lu(k,3092)
13578 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2517) * lu(k,3092)
13579 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2518) * lu(k,3092)
13580 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2519) * lu(k,3092)
13581 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2520) * lu(k,3092)
13582 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2521) * lu(k,3092)
13583 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2522) * lu(k,3092)
13584 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2523) * lu(k,3092)
13585 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2524) * lu(k,3092)
13586 254840160 : lu(k,3352) = lu(k,3352) - lu(k,2506) * lu(k,3351)
13587 254840160 : lu(k,3355) = lu(k,3355) - lu(k,2507) * lu(k,3351)
13588 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2508) * lu(k,3351)
13589 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2509) * lu(k,3351)
13590 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2510) * lu(k,3351)
13591 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2511) * lu(k,3351)
13592 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2512) * lu(k,3351)
13593 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2513) * lu(k,3351)
13594 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2514) * lu(k,3351)
13595 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2515) * lu(k,3351)
13596 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2516) * lu(k,3351)
13597 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2517) * lu(k,3351)
13598 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2518) * lu(k,3351)
13599 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2519) * lu(k,3351)
13600 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2520) * lu(k,3351)
13601 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2521) * lu(k,3351)
13602 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2522) * lu(k,3351)
13603 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2523) * lu(k,3351)
13604 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2524) * lu(k,3351)
13605 254840160 : lu(k,3445) = lu(k,3445) - lu(k,2506) * lu(k,3444)
13606 254840160 : lu(k,3448) = lu(k,3448) - lu(k,2507) * lu(k,3444)
13607 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2508) * lu(k,3444)
13608 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2509) * lu(k,3444)
13609 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2510) * lu(k,3444)
13610 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2511) * lu(k,3444)
13611 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2512) * lu(k,3444)
13612 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2513) * lu(k,3444)
13613 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2514) * lu(k,3444)
13614 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2515) * lu(k,3444)
13615 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2516) * lu(k,3444)
13616 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2517) * lu(k,3444)
13617 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2518) * lu(k,3444)
13618 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2519) * lu(k,3444)
13619 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2520) * lu(k,3444)
13620 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2521) * lu(k,3444)
13621 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2522) * lu(k,3444)
13622 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2523) * lu(k,3444)
13623 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2524) * lu(k,3444)
13624 254840160 : lu(k,3589) = lu(k,3589) - lu(k,2506) * lu(k,3588)
13625 254840160 : lu(k,3592) = lu(k,3592) - lu(k,2507) * lu(k,3588)
13626 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2508) * lu(k,3588)
13627 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2509) * lu(k,3588)
13628 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2510) * lu(k,3588)
13629 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2511) * lu(k,3588)
13630 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2512) * lu(k,3588)
13631 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2513) * lu(k,3588)
13632 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2514) * lu(k,3588)
13633 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2515) * lu(k,3588)
13634 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2516) * lu(k,3588)
13635 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2517) * lu(k,3588)
13636 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2518) * lu(k,3588)
13637 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2519) * lu(k,3588)
13638 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2520) * lu(k,3588)
13639 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2521) * lu(k,3588)
13640 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2522) * lu(k,3588)
13641 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2523) * lu(k,3588)
13642 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2524) * lu(k,3588)
13643 254840160 : lu(k,3743) = lu(k,3743) - lu(k,2506) * lu(k,3742)
13644 254840160 : lu(k,3746) = lu(k,3746) - lu(k,2507) * lu(k,3742)
13645 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2508) * lu(k,3742)
13646 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2509) * lu(k,3742)
13647 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2510) * lu(k,3742)
13648 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2511) * lu(k,3742)
13649 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2512) * lu(k,3742)
13650 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2513) * lu(k,3742)
13651 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2514) * lu(k,3742)
13652 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2515) * lu(k,3742)
13653 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2516) * lu(k,3742)
13654 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2517) * lu(k,3742)
13655 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2518) * lu(k,3742)
13656 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2519) * lu(k,3742)
13657 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2520) * lu(k,3742)
13658 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2521) * lu(k,3742)
13659 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2522) * lu(k,3742)
13660 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2523) * lu(k,3742)
13661 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2524) * lu(k,3742)
13662 254840160 : lu(k,4075) = lu(k,4075) - lu(k,2506) * lu(k,4074)
13663 254840160 : lu(k,4078) = lu(k,4078) - lu(k,2507) * lu(k,4074)
13664 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2508) * lu(k,4074)
13665 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2509) * lu(k,4074)
13666 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2510) * lu(k,4074)
13667 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2511) * lu(k,4074)
13668 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2512) * lu(k,4074)
13669 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2513) * lu(k,4074)
13670 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2514) * lu(k,4074)
13671 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2515) * lu(k,4074)
13672 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2516) * lu(k,4074)
13673 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2517) * lu(k,4074)
13674 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2518) * lu(k,4074)
13675 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2519) * lu(k,4074)
13676 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2520) * lu(k,4074)
13677 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2521) * lu(k,4074)
13678 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2522) * lu(k,4074)
13679 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2523) * lu(k,4074)
13680 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2524) * lu(k,4074)
13681 254840160 : lu(k,2536) = 1._r8 / lu(k,2536)
13682 254840160 : lu(k,2537) = lu(k,2537) * lu(k,2536)
13683 254840160 : lu(k,2538) = lu(k,2538) * lu(k,2536)
13684 254840160 : lu(k,2539) = lu(k,2539) * lu(k,2536)
13685 254840160 : lu(k,2540) = lu(k,2540) * lu(k,2536)
13686 254840160 : lu(k,2541) = lu(k,2541) * lu(k,2536)
13687 254840160 : lu(k,2542) = lu(k,2542) * lu(k,2536)
13688 254840160 : lu(k,2543) = lu(k,2543) * lu(k,2536)
13689 254840160 : lu(k,2544) = lu(k,2544) * lu(k,2536)
13690 254840160 : lu(k,2545) = lu(k,2545) * lu(k,2536)
13691 254840160 : lu(k,2546) = lu(k,2546) * lu(k,2536)
13692 254840160 : lu(k,2547) = lu(k,2547) * lu(k,2536)
13693 254840160 : lu(k,2548) = lu(k,2548) * lu(k,2536)
13694 254840160 : lu(k,2549) = lu(k,2549) * lu(k,2536)
13695 254840160 : lu(k,2550) = lu(k,2550) * lu(k,2536)
13696 254840160 : lu(k,2551) = lu(k,2551) * lu(k,2536)
13697 254840160 : lu(k,2552) = lu(k,2552) * lu(k,2536)
13698 254840160 : lu(k,2553) = lu(k,2553) * lu(k,2536)
13699 254840160 : lu(k,2573) = lu(k,2573) - lu(k,2537) * lu(k,2569)
13700 254840160 : lu(k,2574) = lu(k,2574) - lu(k,2538) * lu(k,2569)
13701 254840160 : lu(k,2575) = lu(k,2575) - lu(k,2539) * lu(k,2569)
13702 254840160 : lu(k,2576) = lu(k,2576) - lu(k,2540) * lu(k,2569)
13703 254840160 : lu(k,2577) = lu(k,2577) - lu(k,2541) * lu(k,2569)
13704 254840160 : lu(k,2578) = lu(k,2578) - lu(k,2542) * lu(k,2569)
13705 254840160 : lu(k,2579) = lu(k,2579) - lu(k,2543) * lu(k,2569)
13706 254840160 : lu(k,2580) = lu(k,2580) - lu(k,2544) * lu(k,2569)
13707 254840160 : lu(k,2581) = lu(k,2581) - lu(k,2545) * lu(k,2569)
13708 254840160 : lu(k,2582) = lu(k,2582) - lu(k,2546) * lu(k,2569)
13709 254840160 : lu(k,2583) = lu(k,2583) - lu(k,2547) * lu(k,2569)
13710 254840160 : lu(k,2584) = lu(k,2584) - lu(k,2548) * lu(k,2569)
13711 254840160 : lu(k,2585) = lu(k,2585) - lu(k,2549) * lu(k,2569)
13712 254840160 : lu(k,2586) = lu(k,2586) - lu(k,2550) * lu(k,2569)
13713 254840160 : lu(k,2587) = lu(k,2587) - lu(k,2551) * lu(k,2569)
13714 254840160 : lu(k,2588) = lu(k,2588) - lu(k,2552) * lu(k,2569)
13715 254840160 : lu(k,2589) = lu(k,2589) - lu(k,2553) * lu(k,2569)
13716 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2537) * lu(k,2738)
13717 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2538) * lu(k,2738)
13718 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2539) * lu(k,2738)
13719 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2540) * lu(k,2738)
13720 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2541) * lu(k,2738)
13721 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2542) * lu(k,2738)
13722 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2543) * lu(k,2738)
13723 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2544) * lu(k,2738)
13724 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2545) * lu(k,2738)
13725 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2546) * lu(k,2738)
13726 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2547) * lu(k,2738)
13727 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2548) * lu(k,2738)
13728 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2549) * lu(k,2738)
13729 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2550) * lu(k,2738)
13730 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2551) * lu(k,2738)
13731 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2552) * lu(k,2738)
13732 254840160 : lu(k,2761) = lu(k,2761) - lu(k,2553) * lu(k,2738)
13733 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2537) * lu(k,2784)
13734 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2538) * lu(k,2784)
13735 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2539) * lu(k,2784)
13736 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2540) * lu(k,2784)
13737 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2541) * lu(k,2784)
13738 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2542) * lu(k,2784)
13739 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2543) * lu(k,2784)
13740 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2544) * lu(k,2784)
13741 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2545) * lu(k,2784)
13742 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2546) * lu(k,2784)
13743 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2547) * lu(k,2784)
13744 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2548) * lu(k,2784)
13745 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2549) * lu(k,2784)
13746 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2550) * lu(k,2784)
13747 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2551) * lu(k,2784)
13748 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2552) * lu(k,2784)
13749 254840160 : lu(k,2807) = lu(k,2807) - lu(k,2553) * lu(k,2784)
13750 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2537) * lu(k,2831)
13751 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2538) * lu(k,2831)
13752 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2539) * lu(k,2831)
13753 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2540) * lu(k,2831)
13754 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2541) * lu(k,2831)
13755 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2542) * lu(k,2831)
13756 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2543) * lu(k,2831)
13757 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2544) * lu(k,2831)
13758 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2545) * lu(k,2831)
13759 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2546) * lu(k,2831)
13760 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2547) * lu(k,2831)
13761 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2548) * lu(k,2831)
13762 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2549) * lu(k,2831)
13763 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2550) * lu(k,2831)
13764 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2551) * lu(k,2831)
13765 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2552) * lu(k,2831)
13766 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2553) * lu(k,2831)
13767 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2537) * lu(k,2903)
13768 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2538) * lu(k,2903)
13769 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2539) * lu(k,2903)
13770 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2540) * lu(k,2903)
13771 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2541) * lu(k,2903)
13772 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2542) * lu(k,2903)
13773 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2543) * lu(k,2903)
13774 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2544) * lu(k,2903)
13775 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2545) * lu(k,2903)
13776 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2546) * lu(k,2903)
13777 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2547) * lu(k,2903)
13778 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2548) * lu(k,2903)
13779 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2549) * lu(k,2903)
13780 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2550) * lu(k,2903)
13781 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2551) * lu(k,2903)
13782 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2552) * lu(k,2903)
13783 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2553) * lu(k,2903)
13784 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2537) * lu(k,3093)
13785 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2538) * lu(k,3093)
13786 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2539) * lu(k,3093)
13787 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2540) * lu(k,3093)
13788 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2541) * lu(k,3093)
13789 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2542) * lu(k,3093)
13790 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2543) * lu(k,3093)
13791 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2544) * lu(k,3093)
13792 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2545) * lu(k,3093)
13793 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2546) * lu(k,3093)
13794 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2547) * lu(k,3093)
13795 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2548) * lu(k,3093)
13796 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2549) * lu(k,3093)
13797 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2550) * lu(k,3093)
13798 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2551) * lu(k,3093)
13799 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2552) * lu(k,3093)
13800 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2553) * lu(k,3093)
13801 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2537) * lu(k,3352)
13802 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2538) * lu(k,3352)
13803 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2539) * lu(k,3352)
13804 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2540) * lu(k,3352)
13805 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2541) * lu(k,3352)
13806 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2542) * lu(k,3352)
13807 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2543) * lu(k,3352)
13808 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2544) * lu(k,3352)
13809 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2545) * lu(k,3352)
13810 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2546) * lu(k,3352)
13811 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2547) * lu(k,3352)
13812 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2548) * lu(k,3352)
13813 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2549) * lu(k,3352)
13814 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2550) * lu(k,3352)
13815 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2551) * lu(k,3352)
13816 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2552) * lu(k,3352)
13817 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2553) * lu(k,3352)
13818 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2537) * lu(k,3445)
13819 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2538) * lu(k,3445)
13820 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2539) * lu(k,3445)
13821 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2540) * lu(k,3445)
13822 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2541) * lu(k,3445)
13823 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2542) * lu(k,3445)
13824 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2543) * lu(k,3445)
13825 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2544) * lu(k,3445)
13826 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2545) * lu(k,3445)
13827 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2546) * lu(k,3445)
13828 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2547) * lu(k,3445)
13829 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2548) * lu(k,3445)
13830 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2549) * lu(k,3445)
13831 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2550) * lu(k,3445)
13832 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2551) * lu(k,3445)
13833 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2552) * lu(k,3445)
13834 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2553) * lu(k,3445)
13835 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2537) * lu(k,3589)
13836 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2538) * lu(k,3589)
13837 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2539) * lu(k,3589)
13838 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2540) * lu(k,3589)
13839 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2541) * lu(k,3589)
13840 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2542) * lu(k,3589)
13841 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2543) * lu(k,3589)
13842 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2544) * lu(k,3589)
13843 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2545) * lu(k,3589)
13844 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2546) * lu(k,3589)
13845 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2547) * lu(k,3589)
13846 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2548) * lu(k,3589)
13847 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2549) * lu(k,3589)
13848 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2550) * lu(k,3589)
13849 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2551) * lu(k,3589)
13850 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2552) * lu(k,3589)
13851 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2553) * lu(k,3589)
13852 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2537) * lu(k,3743)
13853 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2538) * lu(k,3743)
13854 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2539) * lu(k,3743)
13855 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2540) * lu(k,3743)
13856 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2541) * lu(k,3743)
13857 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2542) * lu(k,3743)
13858 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2543) * lu(k,3743)
13859 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2544) * lu(k,3743)
13860 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2545) * lu(k,3743)
13861 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2546) * lu(k,3743)
13862 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2547) * lu(k,3743)
13863 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2548) * lu(k,3743)
13864 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2549) * lu(k,3743)
13865 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2550) * lu(k,3743)
13866 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2551) * lu(k,3743)
13867 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2552) * lu(k,3743)
13868 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2553) * lu(k,3743)
13869 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2537) * lu(k,4075)
13870 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2538) * lu(k,4075)
13871 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2539) * lu(k,4075)
13872 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2540) * lu(k,4075)
13873 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2541) * lu(k,4075)
13874 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2542) * lu(k,4075)
13875 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2543) * lu(k,4075)
13876 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2544) * lu(k,4075)
13877 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2545) * lu(k,4075)
13878 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2546) * lu(k,4075)
13879 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2547) * lu(k,4075)
13880 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2548) * lu(k,4075)
13881 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2549) * lu(k,4075)
13882 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2550) * lu(k,4075)
13883 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2551) * lu(k,4075)
13884 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2552) * lu(k,4075)
13885 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2553) * lu(k,4075)
13886 254840160 : lu(k,2570) = 1._r8 / lu(k,2570)
13887 254840160 : lu(k,2571) = lu(k,2571) * lu(k,2570)
13888 254840160 : lu(k,2572) = lu(k,2572) * lu(k,2570)
13889 254840160 : lu(k,2573) = lu(k,2573) * lu(k,2570)
13890 254840160 : lu(k,2574) = lu(k,2574) * lu(k,2570)
13891 254840160 : lu(k,2575) = lu(k,2575) * lu(k,2570)
13892 254840160 : lu(k,2576) = lu(k,2576) * lu(k,2570)
13893 254840160 : lu(k,2577) = lu(k,2577) * lu(k,2570)
13894 254840160 : lu(k,2578) = lu(k,2578) * lu(k,2570)
13895 254840160 : lu(k,2579) = lu(k,2579) * lu(k,2570)
13896 254840160 : lu(k,2580) = lu(k,2580) * lu(k,2570)
13897 254840160 : lu(k,2581) = lu(k,2581) * lu(k,2570)
13898 254840160 : lu(k,2582) = lu(k,2582) * lu(k,2570)
13899 254840160 : lu(k,2583) = lu(k,2583) * lu(k,2570)
13900 254840160 : lu(k,2584) = lu(k,2584) * lu(k,2570)
13901 254840160 : lu(k,2585) = lu(k,2585) * lu(k,2570)
13902 254840160 : lu(k,2586) = lu(k,2586) * lu(k,2570)
13903 254840160 : lu(k,2587) = lu(k,2587) * lu(k,2570)
13904 254840160 : lu(k,2588) = lu(k,2588) * lu(k,2570)
13905 254840160 : lu(k,2589) = lu(k,2589) * lu(k,2570)
13906 254840160 : lu(k,2740) = lu(k,2740) - lu(k,2571) * lu(k,2739)
13907 254840160 : lu(k,2741) = lu(k,2741) - lu(k,2572) * lu(k,2739)
13908 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2573) * lu(k,2739)
13909 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2574) * lu(k,2739)
13910 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2575) * lu(k,2739)
13911 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2576) * lu(k,2739)
13912 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2577) * lu(k,2739)
13913 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2578) * lu(k,2739)
13914 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2579) * lu(k,2739)
13915 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2580) * lu(k,2739)
13916 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2581) * lu(k,2739)
13917 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2582) * lu(k,2739)
13918 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2583) * lu(k,2739)
13919 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2584) * lu(k,2739)
13920 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2585) * lu(k,2739)
13921 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2586) * lu(k,2739)
13922 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2587) * lu(k,2739)
13923 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2588) * lu(k,2739)
13924 254840160 : lu(k,2761) = lu(k,2761) - lu(k,2589) * lu(k,2739)
13925 254840160 : lu(k,2786) = lu(k,2786) - lu(k,2571) * lu(k,2785)
13926 254840160 : lu(k,2787) = lu(k,2787) - lu(k,2572) * lu(k,2785)
13927 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2573) * lu(k,2785)
13928 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2574) * lu(k,2785)
13929 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2575) * lu(k,2785)
13930 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2576) * lu(k,2785)
13931 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2577) * lu(k,2785)
13932 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2578) * lu(k,2785)
13933 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2579) * lu(k,2785)
13934 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2580) * lu(k,2785)
13935 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2581) * lu(k,2785)
13936 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2582) * lu(k,2785)
13937 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2583) * lu(k,2785)
13938 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2584) * lu(k,2785)
13939 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2585) * lu(k,2785)
13940 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2586) * lu(k,2785)
13941 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2587) * lu(k,2785)
13942 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2588) * lu(k,2785)
13943 254840160 : lu(k,2807) = lu(k,2807) - lu(k,2589) * lu(k,2785)
13944 254840160 : lu(k,2833) = lu(k,2833) - lu(k,2571) * lu(k,2832)
13945 254840160 : lu(k,2834) = lu(k,2834) - lu(k,2572) * lu(k,2832)
13946 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2573) * lu(k,2832)
13947 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2574) * lu(k,2832)
13948 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2575) * lu(k,2832)
13949 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2576) * lu(k,2832)
13950 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2577) * lu(k,2832)
13951 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2578) * lu(k,2832)
13952 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2579) * lu(k,2832)
13953 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2580) * lu(k,2832)
13954 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2581) * lu(k,2832)
13955 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2582) * lu(k,2832)
13956 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2583) * lu(k,2832)
13957 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2584) * lu(k,2832)
13958 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2585) * lu(k,2832)
13959 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2586) * lu(k,2832)
13960 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2587) * lu(k,2832)
13961 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2588) * lu(k,2832)
13962 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2589) * lu(k,2832)
13963 254840160 : lu(k,2905) = lu(k,2905) - lu(k,2571) * lu(k,2904)
13964 254840160 : lu(k,2906) = lu(k,2906) - lu(k,2572) * lu(k,2904)
13965 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2573) * lu(k,2904)
13966 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2574) * lu(k,2904)
13967 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2575) * lu(k,2904)
13968 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2576) * lu(k,2904)
13969 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2577) * lu(k,2904)
13970 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2578) * lu(k,2904)
13971 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2579) * lu(k,2904)
13972 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2580) * lu(k,2904)
13973 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2581) * lu(k,2904)
13974 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2582) * lu(k,2904)
13975 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2583) * lu(k,2904)
13976 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2584) * lu(k,2904)
13977 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2585) * lu(k,2904)
13978 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2586) * lu(k,2904)
13979 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2587) * lu(k,2904)
13980 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2588) * lu(k,2904)
13981 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2589) * lu(k,2904)
13982 254840160 : lu(k,3095) = lu(k,3095) - lu(k,2571) * lu(k,3094)
13983 254840160 : lu(k,3096) = lu(k,3096) - lu(k,2572) * lu(k,3094)
13984 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2573) * lu(k,3094)
13985 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2574) * lu(k,3094)
13986 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2575) * lu(k,3094)
13987 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2576) * lu(k,3094)
13988 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2577) * lu(k,3094)
13989 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2578) * lu(k,3094)
13990 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2579) * lu(k,3094)
13991 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2580) * lu(k,3094)
13992 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2581) * lu(k,3094)
13993 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2582) * lu(k,3094)
13994 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2583) * lu(k,3094)
13995 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2584) * lu(k,3094)
13996 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2585) * lu(k,3094)
13997 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2586) * lu(k,3094)
13998 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2587) * lu(k,3094)
13999 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2588) * lu(k,3094)
14000 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2589) * lu(k,3094)
14001 254840160 : lu(k,3354) = lu(k,3354) - lu(k,2571) * lu(k,3353)
14002 254840160 : lu(k,3355) = lu(k,3355) - lu(k,2572) * lu(k,3353)
14003 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2573) * lu(k,3353)
14004 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2574) * lu(k,3353)
14005 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2575) * lu(k,3353)
14006 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2576) * lu(k,3353)
14007 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2577) * lu(k,3353)
14008 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2578) * lu(k,3353)
14009 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2579) * lu(k,3353)
14010 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2580) * lu(k,3353)
14011 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2581) * lu(k,3353)
14012 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2582) * lu(k,3353)
14013 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2583) * lu(k,3353)
14014 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2584) * lu(k,3353)
14015 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2585) * lu(k,3353)
14016 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2586) * lu(k,3353)
14017 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2587) * lu(k,3353)
14018 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2588) * lu(k,3353)
14019 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2589) * lu(k,3353)
14020 254840160 : lu(k,3447) = lu(k,3447) - lu(k,2571) * lu(k,3446)
14021 254840160 : lu(k,3448) = lu(k,3448) - lu(k,2572) * lu(k,3446)
14022 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2573) * lu(k,3446)
14023 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2574) * lu(k,3446)
14024 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2575) * lu(k,3446)
14025 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2576) * lu(k,3446)
14026 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2577) * lu(k,3446)
14027 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2578) * lu(k,3446)
14028 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2579) * lu(k,3446)
14029 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2580) * lu(k,3446)
14030 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2581) * lu(k,3446)
14031 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2582) * lu(k,3446)
14032 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2583) * lu(k,3446)
14033 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2584) * lu(k,3446)
14034 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2585) * lu(k,3446)
14035 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2586) * lu(k,3446)
14036 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2587) * lu(k,3446)
14037 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2588) * lu(k,3446)
14038 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2589) * lu(k,3446)
14039 254840160 : lu(k,3591) = lu(k,3591) - lu(k,2571) * lu(k,3590)
14040 254840160 : lu(k,3592) = lu(k,3592) - lu(k,2572) * lu(k,3590)
14041 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2573) * lu(k,3590)
14042 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2574) * lu(k,3590)
14043 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2575) * lu(k,3590)
14044 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2576) * lu(k,3590)
14045 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2577) * lu(k,3590)
14046 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2578) * lu(k,3590)
14047 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2579) * lu(k,3590)
14048 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2580) * lu(k,3590)
14049 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2581) * lu(k,3590)
14050 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2582) * lu(k,3590)
14051 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2583) * lu(k,3590)
14052 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2584) * lu(k,3590)
14053 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2585) * lu(k,3590)
14054 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2586) * lu(k,3590)
14055 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2587) * lu(k,3590)
14056 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2588) * lu(k,3590)
14057 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2589) * lu(k,3590)
14058 254840160 : lu(k,3745) = lu(k,3745) - lu(k,2571) * lu(k,3744)
14059 254840160 : lu(k,3746) = lu(k,3746) - lu(k,2572) * lu(k,3744)
14060 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2573) * lu(k,3744)
14061 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2574) * lu(k,3744)
14062 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2575) * lu(k,3744)
14063 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2576) * lu(k,3744)
14064 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2577) * lu(k,3744)
14065 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2578) * lu(k,3744)
14066 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2579) * lu(k,3744)
14067 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2580) * lu(k,3744)
14068 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2581) * lu(k,3744)
14069 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2582) * lu(k,3744)
14070 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2583) * lu(k,3744)
14071 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2584) * lu(k,3744)
14072 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2585) * lu(k,3744)
14073 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2586) * lu(k,3744)
14074 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2587) * lu(k,3744)
14075 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2588) * lu(k,3744)
14076 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2589) * lu(k,3744)
14077 254840160 : lu(k,4077) = lu(k,4077) - lu(k,2571) * lu(k,4076)
14078 254840160 : lu(k,4078) = lu(k,4078) - lu(k,2572) * lu(k,4076)
14079 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2573) * lu(k,4076)
14080 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2574) * lu(k,4076)
14081 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2575) * lu(k,4076)
14082 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2576) * lu(k,4076)
14083 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2577) * lu(k,4076)
14084 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2578) * lu(k,4076)
14085 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2579) * lu(k,4076)
14086 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2580) * lu(k,4076)
14087 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2581) * lu(k,4076)
14088 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2582) * lu(k,4076)
14089 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2583) * lu(k,4076)
14090 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2584) * lu(k,4076)
14091 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2585) * lu(k,4076)
14092 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2586) * lu(k,4076)
14093 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2587) * lu(k,4076)
14094 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2588) * lu(k,4076)
14095 263009123 : lu(k,4102) = lu(k,4102) - lu(k,2589) * lu(k,4076)
14096 : end do
14097 8168963 : end subroutine lu_fac49
14098 8168963 : subroutine lu_fac50( avec_len, lu )
14099 : use chem_mods, only : nzcnt
14100 : use shr_kind_mod, only : r8 => shr_kind_r8
14101 : implicit none
14102 : !-----------------------------------------------------------------------
14103 : ! ... dummy args
14104 : !-----------------------------------------------------------------------
14105 : integer, intent(in) :: avec_len
14106 : real(r8), intent(inout) :: lu(veclen,nzcnt)
14107 : !-----------------------------------------------------------------------
14108 : ! ... local variables
14109 : !-----------------------------------------------------------------------
14110 : integer :: k
14111 263009123 : do k = 1,avec_len
14112 254840160 : lu(k,2600) = 1._r8 / lu(k,2600)
14113 254840160 : lu(k,2601) = lu(k,2601) * lu(k,2600)
14114 254840160 : lu(k,2602) = lu(k,2602) * lu(k,2600)
14115 254840160 : lu(k,2603) = lu(k,2603) * lu(k,2600)
14116 254840160 : lu(k,2604) = lu(k,2604) * lu(k,2600)
14117 254840160 : lu(k,2605) = lu(k,2605) * lu(k,2600)
14118 254840160 : lu(k,2606) = lu(k,2606) * lu(k,2600)
14119 254840160 : lu(k,2607) = lu(k,2607) * lu(k,2600)
14120 254840160 : lu(k,2608) = lu(k,2608) * lu(k,2600)
14121 254840160 : lu(k,2609) = lu(k,2609) * lu(k,2600)
14122 254840160 : lu(k,2610) = lu(k,2610) * lu(k,2600)
14123 254840160 : lu(k,2611) = lu(k,2611) * lu(k,2600)
14124 254840160 : lu(k,2612) = lu(k,2612) * lu(k,2600)
14125 254840160 : lu(k,2613) = lu(k,2613) * lu(k,2600)
14126 254840160 : lu(k,2614) = lu(k,2614) * lu(k,2600)
14127 254840160 : lu(k,2615) = lu(k,2615) * lu(k,2600)
14128 254840160 : lu(k,2616) = lu(k,2616) * lu(k,2600)
14129 254840160 : lu(k,2617) = lu(k,2617) * lu(k,2600)
14130 254840160 : lu(k,2618) = lu(k,2618) * lu(k,2600)
14131 254840160 : lu(k,2741) = lu(k,2741) - lu(k,2601) * lu(k,2740)
14132 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2602) * lu(k,2740)
14133 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2603) * lu(k,2740)
14134 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2604) * lu(k,2740)
14135 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2605) * lu(k,2740)
14136 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2606) * lu(k,2740)
14137 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2607) * lu(k,2740)
14138 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2608) * lu(k,2740)
14139 254840160 : lu(k,2751) = - lu(k,2609) * lu(k,2740)
14140 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2610) * lu(k,2740)
14141 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2611) * lu(k,2740)
14142 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2612) * lu(k,2740)
14143 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2613) * lu(k,2740)
14144 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2614) * lu(k,2740)
14145 254840160 : lu(k,2758) = lu(k,2758) - lu(k,2615) * lu(k,2740)
14146 254840160 : lu(k,2759) = - lu(k,2616) * lu(k,2740)
14147 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2617) * lu(k,2740)
14148 254840160 : lu(k,2761) = lu(k,2761) - lu(k,2618) * lu(k,2740)
14149 254840160 : lu(k,2787) = lu(k,2787) - lu(k,2601) * lu(k,2786)
14150 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2602) * lu(k,2786)
14151 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2603) * lu(k,2786)
14152 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2604) * lu(k,2786)
14153 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2605) * lu(k,2786)
14154 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2606) * lu(k,2786)
14155 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2607) * lu(k,2786)
14156 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2608) * lu(k,2786)
14157 254840160 : lu(k,2797) = - lu(k,2609) * lu(k,2786)
14158 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2610) * lu(k,2786)
14159 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2611) * lu(k,2786)
14160 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2612) * lu(k,2786)
14161 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2613) * lu(k,2786)
14162 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2614) * lu(k,2786)
14163 254840160 : lu(k,2804) = lu(k,2804) - lu(k,2615) * lu(k,2786)
14164 254840160 : lu(k,2805) = - lu(k,2616) * lu(k,2786)
14165 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2617) * lu(k,2786)
14166 254840160 : lu(k,2807) = lu(k,2807) - lu(k,2618) * lu(k,2786)
14167 254840160 : lu(k,2834) = lu(k,2834) - lu(k,2601) * lu(k,2833)
14168 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2602) * lu(k,2833)
14169 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2603) * lu(k,2833)
14170 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2604) * lu(k,2833)
14171 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2605) * lu(k,2833)
14172 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2606) * lu(k,2833)
14173 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2607) * lu(k,2833)
14174 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2608) * lu(k,2833)
14175 254840160 : lu(k,2844) = - lu(k,2609) * lu(k,2833)
14176 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2610) * lu(k,2833)
14177 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2611) * lu(k,2833)
14178 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2612) * lu(k,2833)
14179 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2613) * lu(k,2833)
14180 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2614) * lu(k,2833)
14181 254840160 : lu(k,2851) = lu(k,2851) - lu(k,2615) * lu(k,2833)
14182 254840160 : lu(k,2852) = - lu(k,2616) * lu(k,2833)
14183 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2617) * lu(k,2833)
14184 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2618) * lu(k,2833)
14185 254840160 : lu(k,2906) = lu(k,2906) - lu(k,2601) * lu(k,2905)
14186 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2602) * lu(k,2905)
14187 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2603) * lu(k,2905)
14188 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2604) * lu(k,2905)
14189 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2605) * lu(k,2905)
14190 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2606) * lu(k,2905)
14191 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2607) * lu(k,2905)
14192 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2608) * lu(k,2905)
14193 254840160 : lu(k,2917) = lu(k,2917) - lu(k,2609) * lu(k,2905)
14194 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2610) * lu(k,2905)
14195 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2611) * lu(k,2905)
14196 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2612) * lu(k,2905)
14197 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2613) * lu(k,2905)
14198 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2614) * lu(k,2905)
14199 254840160 : lu(k,2924) = lu(k,2924) - lu(k,2615) * lu(k,2905)
14200 254840160 : lu(k,2926) = lu(k,2926) - lu(k,2616) * lu(k,2905)
14201 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2617) * lu(k,2905)
14202 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2618) * lu(k,2905)
14203 254840160 : lu(k,3096) = lu(k,3096) - lu(k,2601) * lu(k,3095)
14204 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2602) * lu(k,3095)
14205 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2603) * lu(k,3095)
14206 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2604) * lu(k,3095)
14207 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2605) * lu(k,3095)
14208 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2606) * lu(k,3095)
14209 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2607) * lu(k,3095)
14210 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2608) * lu(k,3095)
14211 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2609) * lu(k,3095)
14212 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2610) * lu(k,3095)
14213 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2611) * lu(k,3095)
14214 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2612) * lu(k,3095)
14215 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2613) * lu(k,3095)
14216 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2614) * lu(k,3095)
14217 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2615) * lu(k,3095)
14218 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2616) * lu(k,3095)
14219 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2617) * lu(k,3095)
14220 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2618) * lu(k,3095)
14221 254840160 : lu(k,3355) = lu(k,3355) - lu(k,2601) * lu(k,3354)
14222 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2602) * lu(k,3354)
14223 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2603) * lu(k,3354)
14224 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2604) * lu(k,3354)
14225 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2605) * lu(k,3354)
14226 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2606) * lu(k,3354)
14227 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2607) * lu(k,3354)
14228 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2608) * lu(k,3354)
14229 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2609) * lu(k,3354)
14230 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2610) * lu(k,3354)
14231 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2611) * lu(k,3354)
14232 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2612) * lu(k,3354)
14233 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2613) * lu(k,3354)
14234 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2614) * lu(k,3354)
14235 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2615) * lu(k,3354)
14236 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2616) * lu(k,3354)
14237 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2617) * lu(k,3354)
14238 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2618) * lu(k,3354)
14239 254840160 : lu(k,3448) = lu(k,3448) - lu(k,2601) * lu(k,3447)
14240 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2602) * lu(k,3447)
14241 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2603) * lu(k,3447)
14242 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2604) * lu(k,3447)
14243 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2605) * lu(k,3447)
14244 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2606) * lu(k,3447)
14245 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2607) * lu(k,3447)
14246 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2608) * lu(k,3447)
14247 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2609) * lu(k,3447)
14248 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2610) * lu(k,3447)
14249 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2611) * lu(k,3447)
14250 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2612) * lu(k,3447)
14251 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2613) * lu(k,3447)
14252 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2614) * lu(k,3447)
14253 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2615) * lu(k,3447)
14254 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2616) * lu(k,3447)
14255 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2617) * lu(k,3447)
14256 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2618) * lu(k,3447)
14257 254840160 : lu(k,3592) = lu(k,3592) - lu(k,2601) * lu(k,3591)
14258 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2602) * lu(k,3591)
14259 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2603) * lu(k,3591)
14260 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2604) * lu(k,3591)
14261 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2605) * lu(k,3591)
14262 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2606) * lu(k,3591)
14263 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2607) * lu(k,3591)
14264 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2608) * lu(k,3591)
14265 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2609) * lu(k,3591)
14266 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2610) * lu(k,3591)
14267 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2611) * lu(k,3591)
14268 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2612) * lu(k,3591)
14269 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2613) * lu(k,3591)
14270 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2614) * lu(k,3591)
14271 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2615) * lu(k,3591)
14272 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2616) * lu(k,3591)
14273 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2617) * lu(k,3591)
14274 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2618) * lu(k,3591)
14275 254840160 : lu(k,3746) = lu(k,3746) - lu(k,2601) * lu(k,3745)
14276 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2602) * lu(k,3745)
14277 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2603) * lu(k,3745)
14278 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2604) * lu(k,3745)
14279 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2605) * lu(k,3745)
14280 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2606) * lu(k,3745)
14281 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2607) * lu(k,3745)
14282 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2608) * lu(k,3745)
14283 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2609) * lu(k,3745)
14284 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2610) * lu(k,3745)
14285 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2611) * lu(k,3745)
14286 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2612) * lu(k,3745)
14287 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2613) * lu(k,3745)
14288 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2614) * lu(k,3745)
14289 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2615) * lu(k,3745)
14290 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2616) * lu(k,3745)
14291 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2617) * lu(k,3745)
14292 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2618) * lu(k,3745)
14293 254840160 : lu(k,4078) = lu(k,4078) - lu(k,2601) * lu(k,4077)
14294 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2602) * lu(k,4077)
14295 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2603) * lu(k,4077)
14296 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2604) * lu(k,4077)
14297 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2605) * lu(k,4077)
14298 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2606) * lu(k,4077)
14299 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2607) * lu(k,4077)
14300 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2608) * lu(k,4077)
14301 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2609) * lu(k,4077)
14302 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2610) * lu(k,4077)
14303 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2611) * lu(k,4077)
14304 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2612) * lu(k,4077)
14305 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2613) * lu(k,4077)
14306 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2614) * lu(k,4077)
14307 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2615) * lu(k,4077)
14308 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2616) * lu(k,4077)
14309 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2617) * lu(k,4077)
14310 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2618) * lu(k,4077)
14311 254840160 : lu(k,2629) = 1._r8 / lu(k,2629)
14312 254840160 : lu(k,2630) = lu(k,2630) * lu(k,2629)
14313 254840160 : lu(k,2631) = lu(k,2631) * lu(k,2629)
14314 254840160 : lu(k,2632) = lu(k,2632) * lu(k,2629)
14315 254840160 : lu(k,2633) = lu(k,2633) * lu(k,2629)
14316 254840160 : lu(k,2634) = lu(k,2634) * lu(k,2629)
14317 254840160 : lu(k,2635) = lu(k,2635) * lu(k,2629)
14318 254840160 : lu(k,2636) = lu(k,2636) * lu(k,2629)
14319 254840160 : lu(k,2637) = lu(k,2637) * lu(k,2629)
14320 254840160 : lu(k,2638) = lu(k,2638) * lu(k,2629)
14321 254840160 : lu(k,2639) = lu(k,2639) * lu(k,2629)
14322 254840160 : lu(k,2640) = lu(k,2640) * lu(k,2629)
14323 254840160 : lu(k,2641) = lu(k,2641) * lu(k,2629)
14324 254840160 : lu(k,2642) = lu(k,2642) * lu(k,2629)
14325 254840160 : lu(k,2643) = lu(k,2643) * lu(k,2629)
14326 254840160 : lu(k,2644) = lu(k,2644) * lu(k,2629)
14327 254840160 : lu(k,2645) = lu(k,2645) * lu(k,2629)
14328 254840160 : lu(k,2646) = lu(k,2646) * lu(k,2629)
14329 254840160 : lu(k,2742) = lu(k,2742) - lu(k,2630) * lu(k,2741)
14330 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2631) * lu(k,2741)
14331 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2632) * lu(k,2741)
14332 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2633) * lu(k,2741)
14333 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2634) * lu(k,2741)
14334 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2635) * lu(k,2741)
14335 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2636) * lu(k,2741)
14336 254840160 : lu(k,2751) = lu(k,2751) - lu(k,2637) * lu(k,2741)
14337 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2638) * lu(k,2741)
14338 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2639) * lu(k,2741)
14339 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2640) * lu(k,2741)
14340 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2641) * lu(k,2741)
14341 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2642) * lu(k,2741)
14342 254840160 : lu(k,2758) = lu(k,2758) - lu(k,2643) * lu(k,2741)
14343 254840160 : lu(k,2759) = lu(k,2759) - lu(k,2644) * lu(k,2741)
14344 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2645) * lu(k,2741)
14345 254840160 : lu(k,2761) = lu(k,2761) - lu(k,2646) * lu(k,2741)
14346 254840160 : lu(k,2788) = lu(k,2788) - lu(k,2630) * lu(k,2787)
14347 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2631) * lu(k,2787)
14348 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2632) * lu(k,2787)
14349 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2633) * lu(k,2787)
14350 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2634) * lu(k,2787)
14351 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2635) * lu(k,2787)
14352 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2636) * lu(k,2787)
14353 254840160 : lu(k,2797) = lu(k,2797) - lu(k,2637) * lu(k,2787)
14354 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2638) * lu(k,2787)
14355 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2639) * lu(k,2787)
14356 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2640) * lu(k,2787)
14357 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2641) * lu(k,2787)
14358 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2642) * lu(k,2787)
14359 254840160 : lu(k,2804) = lu(k,2804) - lu(k,2643) * lu(k,2787)
14360 254840160 : lu(k,2805) = lu(k,2805) - lu(k,2644) * lu(k,2787)
14361 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2645) * lu(k,2787)
14362 254840160 : lu(k,2807) = lu(k,2807) - lu(k,2646) * lu(k,2787)
14363 254840160 : lu(k,2835) = lu(k,2835) - lu(k,2630) * lu(k,2834)
14364 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2631) * lu(k,2834)
14365 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2632) * lu(k,2834)
14366 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2633) * lu(k,2834)
14367 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2634) * lu(k,2834)
14368 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2635) * lu(k,2834)
14369 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2636) * lu(k,2834)
14370 254840160 : lu(k,2844) = lu(k,2844) - lu(k,2637) * lu(k,2834)
14371 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2638) * lu(k,2834)
14372 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2639) * lu(k,2834)
14373 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2640) * lu(k,2834)
14374 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2641) * lu(k,2834)
14375 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2642) * lu(k,2834)
14376 254840160 : lu(k,2851) = lu(k,2851) - lu(k,2643) * lu(k,2834)
14377 254840160 : lu(k,2852) = lu(k,2852) - lu(k,2644) * lu(k,2834)
14378 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2645) * lu(k,2834)
14379 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2646) * lu(k,2834)
14380 254840160 : lu(k,2907) = lu(k,2907) - lu(k,2630) * lu(k,2906)
14381 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2631) * lu(k,2906)
14382 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2632) * lu(k,2906)
14383 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2633) * lu(k,2906)
14384 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2634) * lu(k,2906)
14385 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2635) * lu(k,2906)
14386 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2636) * lu(k,2906)
14387 254840160 : lu(k,2917) = lu(k,2917) - lu(k,2637) * lu(k,2906)
14388 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2638) * lu(k,2906)
14389 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2639) * lu(k,2906)
14390 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2640) * lu(k,2906)
14391 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2641) * lu(k,2906)
14392 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2642) * lu(k,2906)
14393 254840160 : lu(k,2924) = lu(k,2924) - lu(k,2643) * lu(k,2906)
14394 254840160 : lu(k,2926) = lu(k,2926) - lu(k,2644) * lu(k,2906)
14395 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2645) * lu(k,2906)
14396 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2646) * lu(k,2906)
14397 254840160 : lu(k,3097) = lu(k,3097) - lu(k,2630) * lu(k,3096)
14398 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2631) * lu(k,3096)
14399 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2632) * lu(k,3096)
14400 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2633) * lu(k,3096)
14401 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2634) * lu(k,3096)
14402 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2635) * lu(k,3096)
14403 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2636) * lu(k,3096)
14404 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2637) * lu(k,3096)
14405 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2638) * lu(k,3096)
14406 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2639) * lu(k,3096)
14407 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2640) * lu(k,3096)
14408 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2641) * lu(k,3096)
14409 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2642) * lu(k,3096)
14410 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2643) * lu(k,3096)
14411 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2644) * lu(k,3096)
14412 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2645) * lu(k,3096)
14413 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2646) * lu(k,3096)
14414 254840160 : lu(k,3356) = lu(k,3356) - lu(k,2630) * lu(k,3355)
14415 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2631) * lu(k,3355)
14416 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2632) * lu(k,3355)
14417 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2633) * lu(k,3355)
14418 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2634) * lu(k,3355)
14419 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2635) * lu(k,3355)
14420 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2636) * lu(k,3355)
14421 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2637) * lu(k,3355)
14422 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2638) * lu(k,3355)
14423 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2639) * lu(k,3355)
14424 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2640) * lu(k,3355)
14425 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2641) * lu(k,3355)
14426 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2642) * lu(k,3355)
14427 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2643) * lu(k,3355)
14428 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2644) * lu(k,3355)
14429 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2645) * lu(k,3355)
14430 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2646) * lu(k,3355)
14431 254840160 : lu(k,3449) = lu(k,3449) - lu(k,2630) * lu(k,3448)
14432 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2631) * lu(k,3448)
14433 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2632) * lu(k,3448)
14434 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2633) * lu(k,3448)
14435 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2634) * lu(k,3448)
14436 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2635) * lu(k,3448)
14437 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2636) * lu(k,3448)
14438 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2637) * lu(k,3448)
14439 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2638) * lu(k,3448)
14440 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2639) * lu(k,3448)
14441 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2640) * lu(k,3448)
14442 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2641) * lu(k,3448)
14443 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2642) * lu(k,3448)
14444 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2643) * lu(k,3448)
14445 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2644) * lu(k,3448)
14446 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2645) * lu(k,3448)
14447 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2646) * lu(k,3448)
14448 254840160 : lu(k,3593) = lu(k,3593) - lu(k,2630) * lu(k,3592)
14449 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2631) * lu(k,3592)
14450 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2632) * lu(k,3592)
14451 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2633) * lu(k,3592)
14452 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2634) * lu(k,3592)
14453 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2635) * lu(k,3592)
14454 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2636) * lu(k,3592)
14455 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2637) * lu(k,3592)
14456 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2638) * lu(k,3592)
14457 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2639) * lu(k,3592)
14458 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2640) * lu(k,3592)
14459 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2641) * lu(k,3592)
14460 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2642) * lu(k,3592)
14461 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2643) * lu(k,3592)
14462 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2644) * lu(k,3592)
14463 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2645) * lu(k,3592)
14464 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2646) * lu(k,3592)
14465 254840160 : lu(k,3747) = lu(k,3747) - lu(k,2630) * lu(k,3746)
14466 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2631) * lu(k,3746)
14467 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2632) * lu(k,3746)
14468 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2633) * lu(k,3746)
14469 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2634) * lu(k,3746)
14470 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2635) * lu(k,3746)
14471 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2636) * lu(k,3746)
14472 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2637) * lu(k,3746)
14473 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2638) * lu(k,3746)
14474 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2639) * lu(k,3746)
14475 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2640) * lu(k,3746)
14476 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2641) * lu(k,3746)
14477 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2642) * lu(k,3746)
14478 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2643) * lu(k,3746)
14479 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2644) * lu(k,3746)
14480 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2645) * lu(k,3746)
14481 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2646) * lu(k,3746)
14482 254840160 : lu(k,4079) = lu(k,4079) - lu(k,2630) * lu(k,4078)
14483 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2631) * lu(k,4078)
14484 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2632) * lu(k,4078)
14485 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2633) * lu(k,4078)
14486 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2634) * lu(k,4078)
14487 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2635) * lu(k,4078)
14488 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2636) * lu(k,4078)
14489 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2637) * lu(k,4078)
14490 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2638) * lu(k,4078)
14491 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2639) * lu(k,4078)
14492 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2640) * lu(k,4078)
14493 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2641) * lu(k,4078)
14494 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2642) * lu(k,4078)
14495 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2643) * lu(k,4078)
14496 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2644) * lu(k,4078)
14497 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2645) * lu(k,4078)
14498 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2646) * lu(k,4078)
14499 254840160 : lu(k,2654) = 1._r8 / lu(k,2654)
14500 254840160 : lu(k,2655) = lu(k,2655) * lu(k,2654)
14501 254840160 : lu(k,2656) = lu(k,2656) * lu(k,2654)
14502 254840160 : lu(k,2657) = lu(k,2657) * lu(k,2654)
14503 254840160 : lu(k,2658) = lu(k,2658) * lu(k,2654)
14504 254840160 : lu(k,2659) = lu(k,2659) * lu(k,2654)
14505 254840160 : lu(k,2660) = lu(k,2660) * lu(k,2654)
14506 254840160 : lu(k,2661) = lu(k,2661) * lu(k,2654)
14507 254840160 : lu(k,2662) = lu(k,2662) * lu(k,2654)
14508 254840160 : lu(k,2663) = lu(k,2663) * lu(k,2654)
14509 254840160 : lu(k,2664) = lu(k,2664) * lu(k,2654)
14510 254840160 : lu(k,2665) = lu(k,2665) * lu(k,2654)
14511 254840160 : lu(k,2666) = lu(k,2666) * lu(k,2654)
14512 254840160 : lu(k,2667) = lu(k,2667) * lu(k,2654)
14513 254840160 : lu(k,2668) = lu(k,2668) * lu(k,2654)
14514 254840160 : lu(k,2669) = lu(k,2669) * lu(k,2654)
14515 254840160 : lu(k,2677) = lu(k,2677) - lu(k,2655) * lu(k,2676)
14516 254840160 : lu(k,2678) = lu(k,2678) - lu(k,2656) * lu(k,2676)
14517 254840160 : lu(k,2679) = lu(k,2679) - lu(k,2657) * lu(k,2676)
14518 254840160 : lu(k,2680) = lu(k,2680) - lu(k,2658) * lu(k,2676)
14519 254840160 : lu(k,2681) = lu(k,2681) - lu(k,2659) * lu(k,2676)
14520 254840160 : lu(k,2682) = lu(k,2682) - lu(k,2660) * lu(k,2676)
14521 254840160 : lu(k,2683) = lu(k,2683) - lu(k,2661) * lu(k,2676)
14522 254840160 : lu(k,2684) = lu(k,2684) - lu(k,2662) * lu(k,2676)
14523 254840160 : lu(k,2685) = lu(k,2685) - lu(k,2663) * lu(k,2676)
14524 254840160 : lu(k,2686) = lu(k,2686) - lu(k,2664) * lu(k,2676)
14525 254840160 : lu(k,2687) = lu(k,2687) - lu(k,2665) * lu(k,2676)
14526 254840160 : lu(k,2688) = lu(k,2688) - lu(k,2666) * lu(k,2676)
14527 254840160 : lu(k,2689) = lu(k,2689) - lu(k,2667) * lu(k,2676)
14528 254840160 : lu(k,2690) = lu(k,2690) - lu(k,2668) * lu(k,2676)
14529 254840160 : lu(k,2691) = lu(k,2691) - lu(k,2669) * lu(k,2676)
14530 254840160 : lu(k,2700) = lu(k,2700) - lu(k,2655) * lu(k,2699)
14531 254840160 : lu(k,2701) = lu(k,2701) - lu(k,2656) * lu(k,2699)
14532 254840160 : lu(k,2702) = lu(k,2702) - lu(k,2657) * lu(k,2699)
14533 254840160 : lu(k,2703) = lu(k,2703) - lu(k,2658) * lu(k,2699)
14534 254840160 : lu(k,2704) = lu(k,2704) - lu(k,2659) * lu(k,2699)
14535 254840160 : lu(k,2705) = lu(k,2705) - lu(k,2660) * lu(k,2699)
14536 254840160 : lu(k,2706) = lu(k,2706) - lu(k,2661) * lu(k,2699)
14537 254840160 : lu(k,2707) = lu(k,2707) - lu(k,2662) * lu(k,2699)
14538 254840160 : lu(k,2708) = lu(k,2708) - lu(k,2663) * lu(k,2699)
14539 254840160 : lu(k,2709) = lu(k,2709) - lu(k,2664) * lu(k,2699)
14540 254840160 : lu(k,2710) = lu(k,2710) - lu(k,2665) * lu(k,2699)
14541 254840160 : lu(k,2711) = lu(k,2711) - lu(k,2666) * lu(k,2699)
14542 254840160 : lu(k,2712) = lu(k,2712) - lu(k,2667) * lu(k,2699)
14543 254840160 : lu(k,2713) = lu(k,2713) - lu(k,2668) * lu(k,2699)
14544 254840160 : lu(k,2714) = lu(k,2714) - lu(k,2669) * lu(k,2699)
14545 254840160 : lu(k,2743) = lu(k,2743) - lu(k,2655) * lu(k,2742)
14546 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2656) * lu(k,2742)
14547 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2657) * lu(k,2742)
14548 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2658) * lu(k,2742)
14549 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2659) * lu(k,2742)
14550 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2660) * lu(k,2742)
14551 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2661) * lu(k,2742)
14552 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2662) * lu(k,2742)
14553 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2663) * lu(k,2742)
14554 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2664) * lu(k,2742)
14555 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2665) * lu(k,2742)
14556 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2666) * lu(k,2742)
14557 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2667) * lu(k,2742)
14558 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2668) * lu(k,2742)
14559 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2669) * lu(k,2742)
14560 254840160 : lu(k,2789) = lu(k,2789) - lu(k,2655) * lu(k,2788)
14561 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2656) * lu(k,2788)
14562 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2657) * lu(k,2788)
14563 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2658) * lu(k,2788)
14564 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2659) * lu(k,2788)
14565 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2660) * lu(k,2788)
14566 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2661) * lu(k,2788)
14567 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2662) * lu(k,2788)
14568 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2663) * lu(k,2788)
14569 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2664) * lu(k,2788)
14570 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2665) * lu(k,2788)
14571 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2666) * lu(k,2788)
14572 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2667) * lu(k,2788)
14573 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2668) * lu(k,2788)
14574 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2669) * lu(k,2788)
14575 254840160 : lu(k,2836) = lu(k,2836) - lu(k,2655) * lu(k,2835)
14576 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2656) * lu(k,2835)
14577 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2657) * lu(k,2835)
14578 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2658) * lu(k,2835)
14579 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2659) * lu(k,2835)
14580 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2660) * lu(k,2835)
14581 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2661) * lu(k,2835)
14582 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2662) * lu(k,2835)
14583 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2663) * lu(k,2835)
14584 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2664) * lu(k,2835)
14585 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2665) * lu(k,2835)
14586 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2666) * lu(k,2835)
14587 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2667) * lu(k,2835)
14588 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2668) * lu(k,2835)
14589 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2669) * lu(k,2835)
14590 254840160 : lu(k,2908) = lu(k,2908) - lu(k,2655) * lu(k,2907)
14591 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2656) * lu(k,2907)
14592 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2657) * lu(k,2907)
14593 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2658) * lu(k,2907)
14594 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2659) * lu(k,2907)
14595 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2660) * lu(k,2907)
14596 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2661) * lu(k,2907)
14597 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2662) * lu(k,2907)
14598 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2663) * lu(k,2907)
14599 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2664) * lu(k,2907)
14600 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2665) * lu(k,2907)
14601 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2666) * lu(k,2907)
14602 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2667) * lu(k,2907)
14603 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2668) * lu(k,2907)
14604 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2669) * lu(k,2907)
14605 254840160 : lu(k,3098) = lu(k,3098) - lu(k,2655) * lu(k,3097)
14606 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2656) * lu(k,3097)
14607 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2657) * lu(k,3097)
14608 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2658) * lu(k,3097)
14609 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2659) * lu(k,3097)
14610 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2660) * lu(k,3097)
14611 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2661) * lu(k,3097)
14612 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2662) * lu(k,3097)
14613 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2663) * lu(k,3097)
14614 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2664) * lu(k,3097)
14615 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2665) * lu(k,3097)
14616 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2666) * lu(k,3097)
14617 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2667) * lu(k,3097)
14618 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2668) * lu(k,3097)
14619 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2669) * lu(k,3097)
14620 254840160 : lu(k,3357) = lu(k,3357) - lu(k,2655) * lu(k,3356)
14621 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2656) * lu(k,3356)
14622 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2657) * lu(k,3356)
14623 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2658) * lu(k,3356)
14624 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2659) * lu(k,3356)
14625 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2660) * lu(k,3356)
14626 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2661) * lu(k,3356)
14627 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2662) * lu(k,3356)
14628 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2663) * lu(k,3356)
14629 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2664) * lu(k,3356)
14630 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2665) * lu(k,3356)
14631 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2666) * lu(k,3356)
14632 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2667) * lu(k,3356)
14633 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2668) * lu(k,3356)
14634 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2669) * lu(k,3356)
14635 254840160 : lu(k,3450) = lu(k,3450) - lu(k,2655) * lu(k,3449)
14636 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2656) * lu(k,3449)
14637 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2657) * lu(k,3449)
14638 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2658) * lu(k,3449)
14639 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2659) * lu(k,3449)
14640 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2660) * lu(k,3449)
14641 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2661) * lu(k,3449)
14642 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2662) * lu(k,3449)
14643 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2663) * lu(k,3449)
14644 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2664) * lu(k,3449)
14645 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2665) * lu(k,3449)
14646 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2666) * lu(k,3449)
14647 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2667) * lu(k,3449)
14648 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2668) * lu(k,3449)
14649 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2669) * lu(k,3449)
14650 254840160 : lu(k,3594) = lu(k,3594) - lu(k,2655) * lu(k,3593)
14651 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2656) * lu(k,3593)
14652 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2657) * lu(k,3593)
14653 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2658) * lu(k,3593)
14654 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2659) * lu(k,3593)
14655 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2660) * lu(k,3593)
14656 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2661) * lu(k,3593)
14657 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2662) * lu(k,3593)
14658 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2663) * lu(k,3593)
14659 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2664) * lu(k,3593)
14660 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2665) * lu(k,3593)
14661 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2666) * lu(k,3593)
14662 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2667) * lu(k,3593)
14663 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2668) * lu(k,3593)
14664 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2669) * lu(k,3593)
14665 254840160 : lu(k,3748) = lu(k,3748) - lu(k,2655) * lu(k,3747)
14666 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2656) * lu(k,3747)
14667 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2657) * lu(k,3747)
14668 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2658) * lu(k,3747)
14669 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2659) * lu(k,3747)
14670 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2660) * lu(k,3747)
14671 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2661) * lu(k,3747)
14672 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2662) * lu(k,3747)
14673 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2663) * lu(k,3747)
14674 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2664) * lu(k,3747)
14675 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2665) * lu(k,3747)
14676 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2666) * lu(k,3747)
14677 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2667) * lu(k,3747)
14678 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2668) * lu(k,3747)
14679 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2669) * lu(k,3747)
14680 254840160 : lu(k,4080) = lu(k,4080) - lu(k,2655) * lu(k,4079)
14681 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2656) * lu(k,4079)
14682 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2657) * lu(k,4079)
14683 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2658) * lu(k,4079)
14684 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2659) * lu(k,4079)
14685 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2660) * lu(k,4079)
14686 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2661) * lu(k,4079)
14687 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2662) * lu(k,4079)
14688 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2663) * lu(k,4079)
14689 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2664) * lu(k,4079)
14690 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2665) * lu(k,4079)
14691 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2666) * lu(k,4079)
14692 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2667) * lu(k,4079)
14693 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2668) * lu(k,4079)
14694 263009123 : lu(k,4101) = lu(k,4101) - lu(k,2669) * lu(k,4079)
14695 : end do
14696 8168963 : end subroutine lu_fac50
14697 8168963 : subroutine lu_fac51( avec_len, lu )
14698 : use chem_mods, only : nzcnt
14699 : use shr_kind_mod, only : r8 => shr_kind_r8
14700 : implicit none
14701 : !-----------------------------------------------------------------------
14702 : ! ... dummy args
14703 : !-----------------------------------------------------------------------
14704 : integer, intent(in) :: avec_len
14705 : real(r8), intent(inout) :: lu(veclen,nzcnt)
14706 : !-----------------------------------------------------------------------
14707 : ! ... local variables
14708 : !-----------------------------------------------------------------------
14709 : integer :: k
14710 263009123 : do k = 1,avec_len
14711 254840160 : lu(k,2677) = 1._r8 / lu(k,2677)
14712 254840160 : lu(k,2678) = lu(k,2678) * lu(k,2677)
14713 254840160 : lu(k,2679) = lu(k,2679) * lu(k,2677)
14714 254840160 : lu(k,2680) = lu(k,2680) * lu(k,2677)
14715 254840160 : lu(k,2681) = lu(k,2681) * lu(k,2677)
14716 254840160 : lu(k,2682) = lu(k,2682) * lu(k,2677)
14717 254840160 : lu(k,2683) = lu(k,2683) * lu(k,2677)
14718 254840160 : lu(k,2684) = lu(k,2684) * lu(k,2677)
14719 254840160 : lu(k,2685) = lu(k,2685) * lu(k,2677)
14720 254840160 : lu(k,2686) = lu(k,2686) * lu(k,2677)
14721 254840160 : lu(k,2687) = lu(k,2687) * lu(k,2677)
14722 254840160 : lu(k,2688) = lu(k,2688) * lu(k,2677)
14723 254840160 : lu(k,2689) = lu(k,2689) * lu(k,2677)
14724 254840160 : lu(k,2690) = lu(k,2690) * lu(k,2677)
14725 254840160 : lu(k,2691) = lu(k,2691) * lu(k,2677)
14726 254840160 : lu(k,2701) = lu(k,2701) - lu(k,2678) * lu(k,2700)
14727 254840160 : lu(k,2702) = lu(k,2702) - lu(k,2679) * lu(k,2700)
14728 254840160 : lu(k,2703) = lu(k,2703) - lu(k,2680) * lu(k,2700)
14729 254840160 : lu(k,2704) = lu(k,2704) - lu(k,2681) * lu(k,2700)
14730 254840160 : lu(k,2705) = lu(k,2705) - lu(k,2682) * lu(k,2700)
14731 254840160 : lu(k,2706) = lu(k,2706) - lu(k,2683) * lu(k,2700)
14732 254840160 : lu(k,2707) = lu(k,2707) - lu(k,2684) * lu(k,2700)
14733 254840160 : lu(k,2708) = lu(k,2708) - lu(k,2685) * lu(k,2700)
14734 254840160 : lu(k,2709) = lu(k,2709) - lu(k,2686) * lu(k,2700)
14735 254840160 : lu(k,2710) = lu(k,2710) - lu(k,2687) * lu(k,2700)
14736 254840160 : lu(k,2711) = lu(k,2711) - lu(k,2688) * lu(k,2700)
14737 254840160 : lu(k,2712) = lu(k,2712) - lu(k,2689) * lu(k,2700)
14738 254840160 : lu(k,2713) = lu(k,2713) - lu(k,2690) * lu(k,2700)
14739 254840160 : lu(k,2714) = lu(k,2714) - lu(k,2691) * lu(k,2700)
14740 254840160 : lu(k,2744) = lu(k,2744) - lu(k,2678) * lu(k,2743)
14741 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2679) * lu(k,2743)
14742 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2680) * lu(k,2743)
14743 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2681) * lu(k,2743)
14744 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2682) * lu(k,2743)
14745 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2683) * lu(k,2743)
14746 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2684) * lu(k,2743)
14747 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2685) * lu(k,2743)
14748 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2686) * lu(k,2743)
14749 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2687) * lu(k,2743)
14750 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2688) * lu(k,2743)
14751 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2689) * lu(k,2743)
14752 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2690) * lu(k,2743)
14753 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2691) * lu(k,2743)
14754 254840160 : lu(k,2790) = lu(k,2790) - lu(k,2678) * lu(k,2789)
14755 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2679) * lu(k,2789)
14756 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2680) * lu(k,2789)
14757 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2681) * lu(k,2789)
14758 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2682) * lu(k,2789)
14759 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2683) * lu(k,2789)
14760 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2684) * lu(k,2789)
14761 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2685) * lu(k,2789)
14762 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2686) * lu(k,2789)
14763 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2687) * lu(k,2789)
14764 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2688) * lu(k,2789)
14765 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2689) * lu(k,2789)
14766 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2690) * lu(k,2789)
14767 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2691) * lu(k,2789)
14768 254840160 : lu(k,2837) = lu(k,2837) - lu(k,2678) * lu(k,2836)
14769 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2679) * lu(k,2836)
14770 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2680) * lu(k,2836)
14771 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2681) * lu(k,2836)
14772 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2682) * lu(k,2836)
14773 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2683) * lu(k,2836)
14774 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2684) * lu(k,2836)
14775 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2685) * lu(k,2836)
14776 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2686) * lu(k,2836)
14777 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2687) * lu(k,2836)
14778 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2688) * lu(k,2836)
14779 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2689) * lu(k,2836)
14780 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2690) * lu(k,2836)
14781 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2691) * lu(k,2836)
14782 254840160 : lu(k,2909) = lu(k,2909) - lu(k,2678) * lu(k,2908)
14783 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2679) * lu(k,2908)
14784 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2680) * lu(k,2908)
14785 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2681) * lu(k,2908)
14786 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2682) * lu(k,2908)
14787 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2683) * lu(k,2908)
14788 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2684) * lu(k,2908)
14789 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2685) * lu(k,2908)
14790 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2686) * lu(k,2908)
14791 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2687) * lu(k,2908)
14792 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2688) * lu(k,2908)
14793 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2689) * lu(k,2908)
14794 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2690) * lu(k,2908)
14795 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2691) * lu(k,2908)
14796 254840160 : lu(k,3099) = lu(k,3099) - lu(k,2678) * lu(k,3098)
14797 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2679) * lu(k,3098)
14798 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2680) * lu(k,3098)
14799 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2681) * lu(k,3098)
14800 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2682) * lu(k,3098)
14801 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2683) * lu(k,3098)
14802 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2684) * lu(k,3098)
14803 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2685) * lu(k,3098)
14804 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2686) * lu(k,3098)
14805 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2687) * lu(k,3098)
14806 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2688) * lu(k,3098)
14807 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2689) * lu(k,3098)
14808 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2690) * lu(k,3098)
14809 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2691) * lu(k,3098)
14810 254840160 : lu(k,3358) = lu(k,3358) - lu(k,2678) * lu(k,3357)
14811 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2679) * lu(k,3357)
14812 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2680) * lu(k,3357)
14813 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2681) * lu(k,3357)
14814 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2682) * lu(k,3357)
14815 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2683) * lu(k,3357)
14816 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2684) * lu(k,3357)
14817 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2685) * lu(k,3357)
14818 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2686) * lu(k,3357)
14819 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2687) * lu(k,3357)
14820 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2688) * lu(k,3357)
14821 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2689) * lu(k,3357)
14822 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2690) * lu(k,3357)
14823 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2691) * lu(k,3357)
14824 254840160 : lu(k,3451) = lu(k,3451) - lu(k,2678) * lu(k,3450)
14825 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2679) * lu(k,3450)
14826 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2680) * lu(k,3450)
14827 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2681) * lu(k,3450)
14828 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2682) * lu(k,3450)
14829 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2683) * lu(k,3450)
14830 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2684) * lu(k,3450)
14831 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2685) * lu(k,3450)
14832 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2686) * lu(k,3450)
14833 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2687) * lu(k,3450)
14834 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2688) * lu(k,3450)
14835 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2689) * lu(k,3450)
14836 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2690) * lu(k,3450)
14837 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2691) * lu(k,3450)
14838 254840160 : lu(k,3595) = lu(k,3595) - lu(k,2678) * lu(k,3594)
14839 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2679) * lu(k,3594)
14840 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2680) * lu(k,3594)
14841 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2681) * lu(k,3594)
14842 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2682) * lu(k,3594)
14843 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2683) * lu(k,3594)
14844 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2684) * lu(k,3594)
14845 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2685) * lu(k,3594)
14846 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2686) * lu(k,3594)
14847 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2687) * lu(k,3594)
14848 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2688) * lu(k,3594)
14849 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2689) * lu(k,3594)
14850 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2690) * lu(k,3594)
14851 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2691) * lu(k,3594)
14852 254840160 : lu(k,3749) = lu(k,3749) - lu(k,2678) * lu(k,3748)
14853 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2679) * lu(k,3748)
14854 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2680) * lu(k,3748)
14855 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2681) * lu(k,3748)
14856 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2682) * lu(k,3748)
14857 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2683) * lu(k,3748)
14858 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2684) * lu(k,3748)
14859 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2685) * lu(k,3748)
14860 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2686) * lu(k,3748)
14861 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2687) * lu(k,3748)
14862 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2688) * lu(k,3748)
14863 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2689) * lu(k,3748)
14864 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2690) * lu(k,3748)
14865 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2691) * lu(k,3748)
14866 254840160 : lu(k,4081) = lu(k,4081) - lu(k,2678) * lu(k,4080)
14867 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2679) * lu(k,4080)
14868 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2680) * lu(k,4080)
14869 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2681) * lu(k,4080)
14870 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2682) * lu(k,4080)
14871 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2683) * lu(k,4080)
14872 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2684) * lu(k,4080)
14873 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2685) * lu(k,4080)
14874 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2686) * lu(k,4080)
14875 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2687) * lu(k,4080)
14876 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2688) * lu(k,4080)
14877 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2689) * lu(k,4080)
14878 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2690) * lu(k,4080)
14879 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2691) * lu(k,4080)
14880 254840160 : lu(k,2701) = 1._r8 / lu(k,2701)
14881 254840160 : lu(k,2702) = lu(k,2702) * lu(k,2701)
14882 254840160 : lu(k,2703) = lu(k,2703) * lu(k,2701)
14883 254840160 : lu(k,2704) = lu(k,2704) * lu(k,2701)
14884 254840160 : lu(k,2705) = lu(k,2705) * lu(k,2701)
14885 254840160 : lu(k,2706) = lu(k,2706) * lu(k,2701)
14886 254840160 : lu(k,2707) = lu(k,2707) * lu(k,2701)
14887 254840160 : lu(k,2708) = lu(k,2708) * lu(k,2701)
14888 254840160 : lu(k,2709) = lu(k,2709) * lu(k,2701)
14889 254840160 : lu(k,2710) = lu(k,2710) * lu(k,2701)
14890 254840160 : lu(k,2711) = lu(k,2711) * lu(k,2701)
14891 254840160 : lu(k,2712) = lu(k,2712) * lu(k,2701)
14892 254840160 : lu(k,2713) = lu(k,2713) * lu(k,2701)
14893 254840160 : lu(k,2714) = lu(k,2714) * lu(k,2701)
14894 254840160 : lu(k,2715) = lu(k,2715) * lu(k,2701)
14895 254840160 : lu(k,2745) = lu(k,2745) - lu(k,2702) * lu(k,2744)
14896 254840160 : lu(k,2746) = lu(k,2746) - lu(k,2703) * lu(k,2744)
14897 254840160 : lu(k,2747) = lu(k,2747) - lu(k,2704) * lu(k,2744)
14898 254840160 : lu(k,2748) = lu(k,2748) - lu(k,2705) * lu(k,2744)
14899 254840160 : lu(k,2749) = lu(k,2749) - lu(k,2706) * lu(k,2744)
14900 254840160 : lu(k,2750) = lu(k,2750) - lu(k,2707) * lu(k,2744)
14901 254840160 : lu(k,2752) = lu(k,2752) - lu(k,2708) * lu(k,2744)
14902 254840160 : lu(k,2753) = lu(k,2753) - lu(k,2709) * lu(k,2744)
14903 254840160 : lu(k,2754) = lu(k,2754) - lu(k,2710) * lu(k,2744)
14904 254840160 : lu(k,2755) = lu(k,2755) - lu(k,2711) * lu(k,2744)
14905 254840160 : lu(k,2756) = lu(k,2756) - lu(k,2712) * lu(k,2744)
14906 254840160 : lu(k,2757) = lu(k,2757) - lu(k,2713) * lu(k,2744)
14907 254840160 : lu(k,2760) = lu(k,2760) - lu(k,2714) * lu(k,2744)
14908 254840160 : lu(k,2761) = lu(k,2761) - lu(k,2715) * lu(k,2744)
14909 254840160 : lu(k,2791) = lu(k,2791) - lu(k,2702) * lu(k,2790)
14910 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2703) * lu(k,2790)
14911 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2704) * lu(k,2790)
14912 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2705) * lu(k,2790)
14913 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2706) * lu(k,2790)
14914 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2707) * lu(k,2790)
14915 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2708) * lu(k,2790)
14916 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2709) * lu(k,2790)
14917 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2710) * lu(k,2790)
14918 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2711) * lu(k,2790)
14919 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2712) * lu(k,2790)
14920 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2713) * lu(k,2790)
14921 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2714) * lu(k,2790)
14922 254840160 : lu(k,2807) = lu(k,2807) - lu(k,2715) * lu(k,2790)
14923 254840160 : lu(k,2838) = lu(k,2838) - lu(k,2702) * lu(k,2837)
14924 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2703) * lu(k,2837)
14925 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2704) * lu(k,2837)
14926 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2705) * lu(k,2837)
14927 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2706) * lu(k,2837)
14928 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2707) * lu(k,2837)
14929 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2708) * lu(k,2837)
14930 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2709) * lu(k,2837)
14931 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2710) * lu(k,2837)
14932 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2711) * lu(k,2837)
14933 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2712) * lu(k,2837)
14934 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2713) * lu(k,2837)
14935 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2714) * lu(k,2837)
14936 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2715) * lu(k,2837)
14937 254840160 : lu(k,2910) = lu(k,2910) - lu(k,2702) * lu(k,2909)
14938 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2703) * lu(k,2909)
14939 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2704) * lu(k,2909)
14940 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2705) * lu(k,2909)
14941 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2706) * lu(k,2909)
14942 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2707) * lu(k,2909)
14943 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2708) * lu(k,2909)
14944 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2709) * lu(k,2909)
14945 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2710) * lu(k,2909)
14946 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2711) * lu(k,2909)
14947 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2712) * lu(k,2909)
14948 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2713) * lu(k,2909)
14949 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2714) * lu(k,2909)
14950 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2715) * lu(k,2909)
14951 254840160 : lu(k,3100) = lu(k,3100) - lu(k,2702) * lu(k,3099)
14952 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2703) * lu(k,3099)
14953 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2704) * lu(k,3099)
14954 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2705) * lu(k,3099)
14955 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2706) * lu(k,3099)
14956 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2707) * lu(k,3099)
14957 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2708) * lu(k,3099)
14958 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2709) * lu(k,3099)
14959 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2710) * lu(k,3099)
14960 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2711) * lu(k,3099)
14961 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2712) * lu(k,3099)
14962 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2713) * lu(k,3099)
14963 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2714) * lu(k,3099)
14964 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2715) * lu(k,3099)
14965 254840160 : lu(k,3359) = lu(k,3359) - lu(k,2702) * lu(k,3358)
14966 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2703) * lu(k,3358)
14967 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2704) * lu(k,3358)
14968 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2705) * lu(k,3358)
14969 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2706) * lu(k,3358)
14970 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2707) * lu(k,3358)
14971 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2708) * lu(k,3358)
14972 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2709) * lu(k,3358)
14973 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2710) * lu(k,3358)
14974 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2711) * lu(k,3358)
14975 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2712) * lu(k,3358)
14976 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2713) * lu(k,3358)
14977 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2714) * lu(k,3358)
14978 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2715) * lu(k,3358)
14979 254840160 : lu(k,3452) = lu(k,3452) - lu(k,2702) * lu(k,3451)
14980 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2703) * lu(k,3451)
14981 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2704) * lu(k,3451)
14982 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2705) * lu(k,3451)
14983 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2706) * lu(k,3451)
14984 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2707) * lu(k,3451)
14985 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2708) * lu(k,3451)
14986 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2709) * lu(k,3451)
14987 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2710) * lu(k,3451)
14988 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2711) * lu(k,3451)
14989 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2712) * lu(k,3451)
14990 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2713) * lu(k,3451)
14991 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2714) * lu(k,3451)
14992 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2715) * lu(k,3451)
14993 254840160 : lu(k,3596) = lu(k,3596) - lu(k,2702) * lu(k,3595)
14994 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2703) * lu(k,3595)
14995 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2704) * lu(k,3595)
14996 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2705) * lu(k,3595)
14997 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2706) * lu(k,3595)
14998 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2707) * lu(k,3595)
14999 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2708) * lu(k,3595)
15000 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2709) * lu(k,3595)
15001 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2710) * lu(k,3595)
15002 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2711) * lu(k,3595)
15003 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2712) * lu(k,3595)
15004 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2713) * lu(k,3595)
15005 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2714) * lu(k,3595)
15006 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2715) * lu(k,3595)
15007 254840160 : lu(k,3648) = lu(k,3648) - lu(k,2702) * lu(k,3647)
15008 254840160 : lu(k,3649) = lu(k,3649) - lu(k,2703) * lu(k,3647)
15009 254840160 : lu(k,3650) = lu(k,3650) - lu(k,2704) * lu(k,3647)
15010 254840160 : lu(k,3651) = lu(k,3651) - lu(k,2705) * lu(k,3647)
15011 254840160 : lu(k,3653) = lu(k,3653) - lu(k,2706) * lu(k,3647)
15012 254840160 : lu(k,3654) = lu(k,3654) - lu(k,2707) * lu(k,3647)
15013 254840160 : lu(k,3656) = lu(k,3656) - lu(k,2708) * lu(k,3647)
15014 254840160 : lu(k,3657) = lu(k,3657) - lu(k,2709) * lu(k,3647)
15015 254840160 : lu(k,3658) = lu(k,3658) - lu(k,2710) * lu(k,3647)
15016 254840160 : lu(k,3659) = lu(k,3659) - lu(k,2711) * lu(k,3647)
15017 254840160 : lu(k,3662) = lu(k,3662) - lu(k,2712) * lu(k,3647)
15018 254840160 : lu(k,3663) = lu(k,3663) - lu(k,2713) * lu(k,3647)
15019 254840160 : lu(k,3667) = lu(k,3667) - lu(k,2714) * lu(k,3647)
15020 254840160 : lu(k,3668) = lu(k,3668) - lu(k,2715) * lu(k,3647)
15021 254840160 : lu(k,3750) = lu(k,3750) - lu(k,2702) * lu(k,3749)
15022 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2703) * lu(k,3749)
15023 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2704) * lu(k,3749)
15024 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2705) * lu(k,3749)
15025 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2706) * lu(k,3749)
15026 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2707) * lu(k,3749)
15027 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2708) * lu(k,3749)
15028 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2709) * lu(k,3749)
15029 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2710) * lu(k,3749)
15030 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2711) * lu(k,3749)
15031 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2712) * lu(k,3749)
15032 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2713) * lu(k,3749)
15033 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2714) * lu(k,3749)
15034 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2715) * lu(k,3749)
15035 254840160 : lu(k,4082) = lu(k,4082) - lu(k,2702) * lu(k,4081)
15036 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2703) * lu(k,4081)
15037 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2704) * lu(k,4081)
15038 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2705) * lu(k,4081)
15039 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2706) * lu(k,4081)
15040 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2707) * lu(k,4081)
15041 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2708) * lu(k,4081)
15042 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2709) * lu(k,4081)
15043 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2710) * lu(k,4081)
15044 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2711) * lu(k,4081)
15045 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2712) * lu(k,4081)
15046 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2713) * lu(k,4081)
15047 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2714) * lu(k,4081)
15048 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2715) * lu(k,4081)
15049 254840160 : lu(k,2745) = 1._r8 / lu(k,2745)
15050 254840160 : lu(k,2746) = lu(k,2746) * lu(k,2745)
15051 254840160 : lu(k,2747) = lu(k,2747) * lu(k,2745)
15052 254840160 : lu(k,2748) = lu(k,2748) * lu(k,2745)
15053 254840160 : lu(k,2749) = lu(k,2749) * lu(k,2745)
15054 254840160 : lu(k,2750) = lu(k,2750) * lu(k,2745)
15055 254840160 : lu(k,2751) = lu(k,2751) * lu(k,2745)
15056 254840160 : lu(k,2752) = lu(k,2752) * lu(k,2745)
15057 254840160 : lu(k,2753) = lu(k,2753) * lu(k,2745)
15058 254840160 : lu(k,2754) = lu(k,2754) * lu(k,2745)
15059 254840160 : lu(k,2755) = lu(k,2755) * lu(k,2745)
15060 254840160 : lu(k,2756) = lu(k,2756) * lu(k,2745)
15061 254840160 : lu(k,2757) = lu(k,2757) * lu(k,2745)
15062 254840160 : lu(k,2758) = lu(k,2758) * lu(k,2745)
15063 254840160 : lu(k,2759) = lu(k,2759) * lu(k,2745)
15064 254840160 : lu(k,2760) = lu(k,2760) * lu(k,2745)
15065 254840160 : lu(k,2761) = lu(k,2761) * lu(k,2745)
15066 254840160 : lu(k,2792) = lu(k,2792) - lu(k,2746) * lu(k,2791)
15067 254840160 : lu(k,2793) = lu(k,2793) - lu(k,2747) * lu(k,2791)
15068 254840160 : lu(k,2794) = lu(k,2794) - lu(k,2748) * lu(k,2791)
15069 254840160 : lu(k,2795) = lu(k,2795) - lu(k,2749) * lu(k,2791)
15070 254840160 : lu(k,2796) = lu(k,2796) - lu(k,2750) * lu(k,2791)
15071 254840160 : lu(k,2797) = lu(k,2797) - lu(k,2751) * lu(k,2791)
15072 254840160 : lu(k,2798) = lu(k,2798) - lu(k,2752) * lu(k,2791)
15073 254840160 : lu(k,2799) = lu(k,2799) - lu(k,2753) * lu(k,2791)
15074 254840160 : lu(k,2800) = lu(k,2800) - lu(k,2754) * lu(k,2791)
15075 254840160 : lu(k,2801) = lu(k,2801) - lu(k,2755) * lu(k,2791)
15076 254840160 : lu(k,2802) = lu(k,2802) - lu(k,2756) * lu(k,2791)
15077 254840160 : lu(k,2803) = lu(k,2803) - lu(k,2757) * lu(k,2791)
15078 254840160 : lu(k,2804) = lu(k,2804) - lu(k,2758) * lu(k,2791)
15079 254840160 : lu(k,2805) = lu(k,2805) - lu(k,2759) * lu(k,2791)
15080 254840160 : lu(k,2806) = lu(k,2806) - lu(k,2760) * lu(k,2791)
15081 254840160 : lu(k,2807) = lu(k,2807) - lu(k,2761) * lu(k,2791)
15082 254840160 : lu(k,2839) = lu(k,2839) - lu(k,2746) * lu(k,2838)
15083 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2747) * lu(k,2838)
15084 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2748) * lu(k,2838)
15085 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2749) * lu(k,2838)
15086 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2750) * lu(k,2838)
15087 254840160 : lu(k,2844) = lu(k,2844) - lu(k,2751) * lu(k,2838)
15088 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2752) * lu(k,2838)
15089 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2753) * lu(k,2838)
15090 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2754) * lu(k,2838)
15091 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2755) * lu(k,2838)
15092 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2756) * lu(k,2838)
15093 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2757) * lu(k,2838)
15094 254840160 : lu(k,2851) = lu(k,2851) - lu(k,2758) * lu(k,2838)
15095 254840160 : lu(k,2852) = lu(k,2852) - lu(k,2759) * lu(k,2838)
15096 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2760) * lu(k,2838)
15097 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2761) * lu(k,2838)
15098 254840160 : lu(k,2911) = lu(k,2911) - lu(k,2746) * lu(k,2910)
15099 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2747) * lu(k,2910)
15100 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2748) * lu(k,2910)
15101 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2749) * lu(k,2910)
15102 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2750) * lu(k,2910)
15103 254840160 : lu(k,2917) = lu(k,2917) - lu(k,2751) * lu(k,2910)
15104 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2752) * lu(k,2910)
15105 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2753) * lu(k,2910)
15106 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2754) * lu(k,2910)
15107 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2755) * lu(k,2910)
15108 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2756) * lu(k,2910)
15109 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2757) * lu(k,2910)
15110 254840160 : lu(k,2924) = lu(k,2924) - lu(k,2758) * lu(k,2910)
15111 254840160 : lu(k,2926) = lu(k,2926) - lu(k,2759) * lu(k,2910)
15112 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2760) * lu(k,2910)
15113 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2761) * lu(k,2910)
15114 254840160 : lu(k,3101) = lu(k,3101) - lu(k,2746) * lu(k,3100)
15115 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2747) * lu(k,3100)
15116 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2748) * lu(k,3100)
15117 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2749) * lu(k,3100)
15118 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2750) * lu(k,3100)
15119 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2751) * lu(k,3100)
15120 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2752) * lu(k,3100)
15121 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2753) * lu(k,3100)
15122 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2754) * lu(k,3100)
15123 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2755) * lu(k,3100)
15124 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2756) * lu(k,3100)
15125 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2757) * lu(k,3100)
15126 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2758) * lu(k,3100)
15127 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2759) * lu(k,3100)
15128 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2760) * lu(k,3100)
15129 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2761) * lu(k,3100)
15130 254840160 : lu(k,3360) = lu(k,3360) - lu(k,2746) * lu(k,3359)
15131 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2747) * lu(k,3359)
15132 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2748) * lu(k,3359)
15133 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2749) * lu(k,3359)
15134 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2750) * lu(k,3359)
15135 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2751) * lu(k,3359)
15136 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2752) * lu(k,3359)
15137 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2753) * lu(k,3359)
15138 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2754) * lu(k,3359)
15139 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2755) * lu(k,3359)
15140 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2756) * lu(k,3359)
15141 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2757) * lu(k,3359)
15142 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2758) * lu(k,3359)
15143 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2759) * lu(k,3359)
15144 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2760) * lu(k,3359)
15145 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2761) * lu(k,3359)
15146 254840160 : lu(k,3453) = lu(k,3453) - lu(k,2746) * lu(k,3452)
15147 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2747) * lu(k,3452)
15148 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2748) * lu(k,3452)
15149 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2749) * lu(k,3452)
15150 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2750) * lu(k,3452)
15151 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2751) * lu(k,3452)
15152 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2752) * lu(k,3452)
15153 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2753) * lu(k,3452)
15154 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2754) * lu(k,3452)
15155 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2755) * lu(k,3452)
15156 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2756) * lu(k,3452)
15157 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2757) * lu(k,3452)
15158 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2758) * lu(k,3452)
15159 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2759) * lu(k,3452)
15160 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2760) * lu(k,3452)
15161 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2761) * lu(k,3452)
15162 254840160 : lu(k,3597) = lu(k,3597) - lu(k,2746) * lu(k,3596)
15163 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2747) * lu(k,3596)
15164 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2748) * lu(k,3596)
15165 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2749) * lu(k,3596)
15166 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2750) * lu(k,3596)
15167 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2751) * lu(k,3596)
15168 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2752) * lu(k,3596)
15169 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2753) * lu(k,3596)
15170 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2754) * lu(k,3596)
15171 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2755) * lu(k,3596)
15172 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2756) * lu(k,3596)
15173 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2757) * lu(k,3596)
15174 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2758) * lu(k,3596)
15175 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2759) * lu(k,3596)
15176 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2760) * lu(k,3596)
15177 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2761) * lu(k,3596)
15178 254840160 : lu(k,3649) = lu(k,3649) - lu(k,2746) * lu(k,3648)
15179 254840160 : lu(k,3650) = lu(k,3650) - lu(k,2747) * lu(k,3648)
15180 254840160 : lu(k,3651) = lu(k,3651) - lu(k,2748) * lu(k,3648)
15181 254840160 : lu(k,3653) = lu(k,3653) - lu(k,2749) * lu(k,3648)
15182 254840160 : lu(k,3654) = lu(k,3654) - lu(k,2750) * lu(k,3648)
15183 254840160 : lu(k,3655) = lu(k,3655) - lu(k,2751) * lu(k,3648)
15184 254840160 : lu(k,3656) = lu(k,3656) - lu(k,2752) * lu(k,3648)
15185 254840160 : lu(k,3657) = lu(k,3657) - lu(k,2753) * lu(k,3648)
15186 254840160 : lu(k,3658) = lu(k,3658) - lu(k,2754) * lu(k,3648)
15187 254840160 : lu(k,3659) = lu(k,3659) - lu(k,2755) * lu(k,3648)
15188 254840160 : lu(k,3662) = lu(k,3662) - lu(k,2756) * lu(k,3648)
15189 254840160 : lu(k,3663) = lu(k,3663) - lu(k,2757) * lu(k,3648)
15190 254840160 : lu(k,3664) = lu(k,3664) - lu(k,2758) * lu(k,3648)
15191 254840160 : lu(k,3666) = lu(k,3666) - lu(k,2759) * lu(k,3648)
15192 254840160 : lu(k,3667) = lu(k,3667) - lu(k,2760) * lu(k,3648)
15193 254840160 : lu(k,3668) = lu(k,3668) - lu(k,2761) * lu(k,3648)
15194 254840160 : lu(k,3751) = lu(k,3751) - lu(k,2746) * lu(k,3750)
15195 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2747) * lu(k,3750)
15196 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2748) * lu(k,3750)
15197 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2749) * lu(k,3750)
15198 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2750) * lu(k,3750)
15199 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2751) * lu(k,3750)
15200 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2752) * lu(k,3750)
15201 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2753) * lu(k,3750)
15202 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2754) * lu(k,3750)
15203 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2755) * lu(k,3750)
15204 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2756) * lu(k,3750)
15205 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2757) * lu(k,3750)
15206 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2758) * lu(k,3750)
15207 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2759) * lu(k,3750)
15208 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2760) * lu(k,3750)
15209 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2761) * lu(k,3750)
15210 254840160 : lu(k,4083) = lu(k,4083) - lu(k,2746) * lu(k,4082)
15211 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2747) * lu(k,4082)
15212 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2748) * lu(k,4082)
15213 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2749) * lu(k,4082)
15214 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2750) * lu(k,4082)
15215 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2751) * lu(k,4082)
15216 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2752) * lu(k,4082)
15217 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2753) * lu(k,4082)
15218 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2754) * lu(k,4082)
15219 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2755) * lu(k,4082)
15220 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2756) * lu(k,4082)
15221 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2757) * lu(k,4082)
15222 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2758) * lu(k,4082)
15223 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2759) * lu(k,4082)
15224 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2760) * lu(k,4082)
15225 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2761) * lu(k,4082)
15226 254840160 : lu(k,2792) = 1._r8 / lu(k,2792)
15227 254840160 : lu(k,2793) = lu(k,2793) * lu(k,2792)
15228 254840160 : lu(k,2794) = lu(k,2794) * lu(k,2792)
15229 254840160 : lu(k,2795) = lu(k,2795) * lu(k,2792)
15230 254840160 : lu(k,2796) = lu(k,2796) * lu(k,2792)
15231 254840160 : lu(k,2797) = lu(k,2797) * lu(k,2792)
15232 254840160 : lu(k,2798) = lu(k,2798) * lu(k,2792)
15233 254840160 : lu(k,2799) = lu(k,2799) * lu(k,2792)
15234 254840160 : lu(k,2800) = lu(k,2800) * lu(k,2792)
15235 254840160 : lu(k,2801) = lu(k,2801) * lu(k,2792)
15236 254840160 : lu(k,2802) = lu(k,2802) * lu(k,2792)
15237 254840160 : lu(k,2803) = lu(k,2803) * lu(k,2792)
15238 254840160 : lu(k,2804) = lu(k,2804) * lu(k,2792)
15239 254840160 : lu(k,2805) = lu(k,2805) * lu(k,2792)
15240 254840160 : lu(k,2806) = lu(k,2806) * lu(k,2792)
15241 254840160 : lu(k,2807) = lu(k,2807) * lu(k,2792)
15242 254840160 : lu(k,2840) = lu(k,2840) - lu(k,2793) * lu(k,2839)
15243 254840160 : lu(k,2841) = lu(k,2841) - lu(k,2794) * lu(k,2839)
15244 254840160 : lu(k,2842) = lu(k,2842) - lu(k,2795) * lu(k,2839)
15245 254840160 : lu(k,2843) = lu(k,2843) - lu(k,2796) * lu(k,2839)
15246 254840160 : lu(k,2844) = lu(k,2844) - lu(k,2797) * lu(k,2839)
15247 254840160 : lu(k,2845) = lu(k,2845) - lu(k,2798) * lu(k,2839)
15248 254840160 : lu(k,2846) = lu(k,2846) - lu(k,2799) * lu(k,2839)
15249 254840160 : lu(k,2847) = lu(k,2847) - lu(k,2800) * lu(k,2839)
15250 254840160 : lu(k,2848) = lu(k,2848) - lu(k,2801) * lu(k,2839)
15251 254840160 : lu(k,2849) = lu(k,2849) - lu(k,2802) * lu(k,2839)
15252 254840160 : lu(k,2850) = lu(k,2850) - lu(k,2803) * lu(k,2839)
15253 254840160 : lu(k,2851) = lu(k,2851) - lu(k,2804) * lu(k,2839)
15254 254840160 : lu(k,2852) = lu(k,2852) - lu(k,2805) * lu(k,2839)
15255 254840160 : lu(k,2853) = lu(k,2853) - lu(k,2806) * lu(k,2839)
15256 254840160 : lu(k,2854) = lu(k,2854) - lu(k,2807) * lu(k,2839)
15257 254840160 : lu(k,2912) = lu(k,2912) - lu(k,2793) * lu(k,2911)
15258 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2794) * lu(k,2911)
15259 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2795) * lu(k,2911)
15260 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2796) * lu(k,2911)
15261 254840160 : lu(k,2917) = lu(k,2917) - lu(k,2797) * lu(k,2911)
15262 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2798) * lu(k,2911)
15263 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2799) * lu(k,2911)
15264 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2800) * lu(k,2911)
15265 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2801) * lu(k,2911)
15266 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2802) * lu(k,2911)
15267 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2803) * lu(k,2911)
15268 254840160 : lu(k,2924) = lu(k,2924) - lu(k,2804) * lu(k,2911)
15269 254840160 : lu(k,2926) = lu(k,2926) - lu(k,2805) * lu(k,2911)
15270 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2806) * lu(k,2911)
15271 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2807) * lu(k,2911)
15272 254840160 : lu(k,3102) = lu(k,3102) - lu(k,2793) * lu(k,3101)
15273 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2794) * lu(k,3101)
15274 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2795) * lu(k,3101)
15275 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2796) * lu(k,3101)
15276 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2797) * lu(k,3101)
15277 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2798) * lu(k,3101)
15278 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2799) * lu(k,3101)
15279 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2800) * lu(k,3101)
15280 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2801) * lu(k,3101)
15281 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2802) * lu(k,3101)
15282 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2803) * lu(k,3101)
15283 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2804) * lu(k,3101)
15284 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2805) * lu(k,3101)
15285 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2806) * lu(k,3101)
15286 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2807) * lu(k,3101)
15287 254840160 : lu(k,3361) = lu(k,3361) - lu(k,2793) * lu(k,3360)
15288 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2794) * lu(k,3360)
15289 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2795) * lu(k,3360)
15290 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2796) * lu(k,3360)
15291 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2797) * lu(k,3360)
15292 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2798) * lu(k,3360)
15293 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2799) * lu(k,3360)
15294 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2800) * lu(k,3360)
15295 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2801) * lu(k,3360)
15296 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2802) * lu(k,3360)
15297 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2803) * lu(k,3360)
15298 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2804) * lu(k,3360)
15299 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2805) * lu(k,3360)
15300 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2806) * lu(k,3360)
15301 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2807) * lu(k,3360)
15302 254840160 : lu(k,3454) = lu(k,3454) - lu(k,2793) * lu(k,3453)
15303 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2794) * lu(k,3453)
15304 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2795) * lu(k,3453)
15305 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2796) * lu(k,3453)
15306 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2797) * lu(k,3453)
15307 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2798) * lu(k,3453)
15308 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2799) * lu(k,3453)
15309 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2800) * lu(k,3453)
15310 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2801) * lu(k,3453)
15311 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2802) * lu(k,3453)
15312 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2803) * lu(k,3453)
15313 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2804) * lu(k,3453)
15314 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2805) * lu(k,3453)
15315 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2806) * lu(k,3453)
15316 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2807) * lu(k,3453)
15317 254840160 : lu(k,3598) = lu(k,3598) - lu(k,2793) * lu(k,3597)
15318 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2794) * lu(k,3597)
15319 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2795) * lu(k,3597)
15320 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2796) * lu(k,3597)
15321 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2797) * lu(k,3597)
15322 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2798) * lu(k,3597)
15323 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2799) * lu(k,3597)
15324 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2800) * lu(k,3597)
15325 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2801) * lu(k,3597)
15326 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2802) * lu(k,3597)
15327 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2803) * lu(k,3597)
15328 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2804) * lu(k,3597)
15329 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2805) * lu(k,3597)
15330 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2806) * lu(k,3597)
15331 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2807) * lu(k,3597)
15332 254840160 : lu(k,3650) = lu(k,3650) - lu(k,2793) * lu(k,3649)
15333 254840160 : lu(k,3651) = lu(k,3651) - lu(k,2794) * lu(k,3649)
15334 254840160 : lu(k,3653) = lu(k,3653) - lu(k,2795) * lu(k,3649)
15335 254840160 : lu(k,3654) = lu(k,3654) - lu(k,2796) * lu(k,3649)
15336 254840160 : lu(k,3655) = lu(k,3655) - lu(k,2797) * lu(k,3649)
15337 254840160 : lu(k,3656) = lu(k,3656) - lu(k,2798) * lu(k,3649)
15338 254840160 : lu(k,3657) = lu(k,3657) - lu(k,2799) * lu(k,3649)
15339 254840160 : lu(k,3658) = lu(k,3658) - lu(k,2800) * lu(k,3649)
15340 254840160 : lu(k,3659) = lu(k,3659) - lu(k,2801) * lu(k,3649)
15341 254840160 : lu(k,3662) = lu(k,3662) - lu(k,2802) * lu(k,3649)
15342 254840160 : lu(k,3663) = lu(k,3663) - lu(k,2803) * lu(k,3649)
15343 254840160 : lu(k,3664) = lu(k,3664) - lu(k,2804) * lu(k,3649)
15344 254840160 : lu(k,3666) = lu(k,3666) - lu(k,2805) * lu(k,3649)
15345 254840160 : lu(k,3667) = lu(k,3667) - lu(k,2806) * lu(k,3649)
15346 254840160 : lu(k,3668) = lu(k,3668) - lu(k,2807) * lu(k,3649)
15347 254840160 : lu(k,3752) = lu(k,3752) - lu(k,2793) * lu(k,3751)
15348 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2794) * lu(k,3751)
15349 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2795) * lu(k,3751)
15350 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2796) * lu(k,3751)
15351 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2797) * lu(k,3751)
15352 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2798) * lu(k,3751)
15353 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2799) * lu(k,3751)
15354 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2800) * lu(k,3751)
15355 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2801) * lu(k,3751)
15356 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2802) * lu(k,3751)
15357 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2803) * lu(k,3751)
15358 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2804) * lu(k,3751)
15359 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2805) * lu(k,3751)
15360 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2806) * lu(k,3751)
15361 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2807) * lu(k,3751)
15362 254840160 : lu(k,4084) = lu(k,4084) - lu(k,2793) * lu(k,4083)
15363 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2794) * lu(k,4083)
15364 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2795) * lu(k,4083)
15365 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2796) * lu(k,4083)
15366 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2797) * lu(k,4083)
15367 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2798) * lu(k,4083)
15368 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2799) * lu(k,4083)
15369 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2800) * lu(k,4083)
15370 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2801) * lu(k,4083)
15371 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2802) * lu(k,4083)
15372 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2803) * lu(k,4083)
15373 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2804) * lu(k,4083)
15374 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2805) * lu(k,4083)
15375 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2806) * lu(k,4083)
15376 263009123 : lu(k,4102) = lu(k,4102) - lu(k,2807) * lu(k,4083)
15377 : end do
15378 8168963 : end subroutine lu_fac51
15379 8168963 : subroutine lu_fac52( avec_len, lu )
15380 : use chem_mods, only : nzcnt
15381 : use shr_kind_mod, only : r8 => shr_kind_r8
15382 : implicit none
15383 : !-----------------------------------------------------------------------
15384 : ! ... dummy args
15385 : !-----------------------------------------------------------------------
15386 : integer, intent(in) :: avec_len
15387 : real(r8), intent(inout) :: lu(veclen,nzcnt)
15388 : !-----------------------------------------------------------------------
15389 : ! ... local variables
15390 : !-----------------------------------------------------------------------
15391 : integer :: k
15392 263009123 : do k = 1,avec_len
15393 254840160 : lu(k,2840) = 1._r8 / lu(k,2840)
15394 254840160 : lu(k,2841) = lu(k,2841) * lu(k,2840)
15395 254840160 : lu(k,2842) = lu(k,2842) * lu(k,2840)
15396 254840160 : lu(k,2843) = lu(k,2843) * lu(k,2840)
15397 254840160 : lu(k,2844) = lu(k,2844) * lu(k,2840)
15398 254840160 : lu(k,2845) = lu(k,2845) * lu(k,2840)
15399 254840160 : lu(k,2846) = lu(k,2846) * lu(k,2840)
15400 254840160 : lu(k,2847) = lu(k,2847) * lu(k,2840)
15401 254840160 : lu(k,2848) = lu(k,2848) * lu(k,2840)
15402 254840160 : lu(k,2849) = lu(k,2849) * lu(k,2840)
15403 254840160 : lu(k,2850) = lu(k,2850) * lu(k,2840)
15404 254840160 : lu(k,2851) = lu(k,2851) * lu(k,2840)
15405 254840160 : lu(k,2852) = lu(k,2852) * lu(k,2840)
15406 254840160 : lu(k,2853) = lu(k,2853) * lu(k,2840)
15407 254840160 : lu(k,2854) = lu(k,2854) * lu(k,2840)
15408 254840160 : lu(k,2913) = lu(k,2913) - lu(k,2841) * lu(k,2912)
15409 254840160 : lu(k,2915) = lu(k,2915) - lu(k,2842) * lu(k,2912)
15410 254840160 : lu(k,2916) = lu(k,2916) - lu(k,2843) * lu(k,2912)
15411 254840160 : lu(k,2917) = lu(k,2917) - lu(k,2844) * lu(k,2912)
15412 254840160 : lu(k,2918) = lu(k,2918) - lu(k,2845) * lu(k,2912)
15413 254840160 : lu(k,2919) = lu(k,2919) - lu(k,2846) * lu(k,2912)
15414 254840160 : lu(k,2920) = lu(k,2920) - lu(k,2847) * lu(k,2912)
15415 254840160 : lu(k,2921) = lu(k,2921) - lu(k,2848) * lu(k,2912)
15416 254840160 : lu(k,2922) = lu(k,2922) - lu(k,2849) * lu(k,2912)
15417 254840160 : lu(k,2923) = lu(k,2923) - lu(k,2850) * lu(k,2912)
15418 254840160 : lu(k,2924) = lu(k,2924) - lu(k,2851) * lu(k,2912)
15419 254840160 : lu(k,2926) = lu(k,2926) - lu(k,2852) * lu(k,2912)
15420 254840160 : lu(k,2927) = lu(k,2927) - lu(k,2853) * lu(k,2912)
15421 254840160 : lu(k,2928) = lu(k,2928) - lu(k,2854) * lu(k,2912)
15422 254840160 : lu(k,3103) = lu(k,3103) - lu(k,2841) * lu(k,3102)
15423 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2842) * lu(k,3102)
15424 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2843) * lu(k,3102)
15425 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2844) * lu(k,3102)
15426 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2845) * lu(k,3102)
15427 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2846) * lu(k,3102)
15428 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2847) * lu(k,3102)
15429 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2848) * lu(k,3102)
15430 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2849) * lu(k,3102)
15431 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2850) * lu(k,3102)
15432 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2851) * lu(k,3102)
15433 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2852) * lu(k,3102)
15434 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2853) * lu(k,3102)
15435 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2854) * lu(k,3102)
15436 254840160 : lu(k,3362) = lu(k,3362) - lu(k,2841) * lu(k,3361)
15437 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2842) * lu(k,3361)
15438 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2843) * lu(k,3361)
15439 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2844) * lu(k,3361)
15440 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2845) * lu(k,3361)
15441 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2846) * lu(k,3361)
15442 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2847) * lu(k,3361)
15443 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2848) * lu(k,3361)
15444 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2849) * lu(k,3361)
15445 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2850) * lu(k,3361)
15446 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2851) * lu(k,3361)
15447 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2852) * lu(k,3361)
15448 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2853) * lu(k,3361)
15449 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2854) * lu(k,3361)
15450 254840160 : lu(k,3455) = lu(k,3455) - lu(k,2841) * lu(k,3454)
15451 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2842) * lu(k,3454)
15452 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2843) * lu(k,3454)
15453 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2844) * lu(k,3454)
15454 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2845) * lu(k,3454)
15455 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2846) * lu(k,3454)
15456 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2847) * lu(k,3454)
15457 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2848) * lu(k,3454)
15458 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2849) * lu(k,3454)
15459 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2850) * lu(k,3454)
15460 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2851) * lu(k,3454)
15461 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2852) * lu(k,3454)
15462 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2853) * lu(k,3454)
15463 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2854) * lu(k,3454)
15464 254840160 : lu(k,3599) = lu(k,3599) - lu(k,2841) * lu(k,3598)
15465 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2842) * lu(k,3598)
15466 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2843) * lu(k,3598)
15467 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2844) * lu(k,3598)
15468 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2845) * lu(k,3598)
15469 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2846) * lu(k,3598)
15470 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2847) * lu(k,3598)
15471 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2848) * lu(k,3598)
15472 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2849) * lu(k,3598)
15473 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2850) * lu(k,3598)
15474 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2851) * lu(k,3598)
15475 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2852) * lu(k,3598)
15476 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2853) * lu(k,3598)
15477 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2854) * lu(k,3598)
15478 254840160 : lu(k,3651) = lu(k,3651) - lu(k,2841) * lu(k,3650)
15479 254840160 : lu(k,3653) = lu(k,3653) - lu(k,2842) * lu(k,3650)
15480 254840160 : lu(k,3654) = lu(k,3654) - lu(k,2843) * lu(k,3650)
15481 254840160 : lu(k,3655) = lu(k,3655) - lu(k,2844) * lu(k,3650)
15482 254840160 : lu(k,3656) = lu(k,3656) - lu(k,2845) * lu(k,3650)
15483 254840160 : lu(k,3657) = lu(k,3657) - lu(k,2846) * lu(k,3650)
15484 254840160 : lu(k,3658) = lu(k,3658) - lu(k,2847) * lu(k,3650)
15485 254840160 : lu(k,3659) = lu(k,3659) - lu(k,2848) * lu(k,3650)
15486 254840160 : lu(k,3662) = lu(k,3662) - lu(k,2849) * lu(k,3650)
15487 254840160 : lu(k,3663) = lu(k,3663) - lu(k,2850) * lu(k,3650)
15488 254840160 : lu(k,3664) = lu(k,3664) - lu(k,2851) * lu(k,3650)
15489 254840160 : lu(k,3666) = lu(k,3666) - lu(k,2852) * lu(k,3650)
15490 254840160 : lu(k,3667) = lu(k,3667) - lu(k,2853) * lu(k,3650)
15491 254840160 : lu(k,3668) = lu(k,3668) - lu(k,2854) * lu(k,3650)
15492 254840160 : lu(k,3753) = lu(k,3753) - lu(k,2841) * lu(k,3752)
15493 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2842) * lu(k,3752)
15494 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2843) * lu(k,3752)
15495 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2844) * lu(k,3752)
15496 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2845) * lu(k,3752)
15497 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2846) * lu(k,3752)
15498 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2847) * lu(k,3752)
15499 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2848) * lu(k,3752)
15500 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2849) * lu(k,3752)
15501 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2850) * lu(k,3752)
15502 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2851) * lu(k,3752)
15503 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2852) * lu(k,3752)
15504 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2853) * lu(k,3752)
15505 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2854) * lu(k,3752)
15506 254840160 : lu(k,4085) = lu(k,4085) - lu(k,2841) * lu(k,4084)
15507 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2842) * lu(k,4084)
15508 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2843) * lu(k,4084)
15509 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2844) * lu(k,4084)
15510 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2845) * lu(k,4084)
15511 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2846) * lu(k,4084)
15512 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2847) * lu(k,4084)
15513 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2848) * lu(k,4084)
15514 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2849) * lu(k,4084)
15515 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2850) * lu(k,4084)
15516 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2851) * lu(k,4084)
15517 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2852) * lu(k,4084)
15518 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2853) * lu(k,4084)
15519 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2854) * lu(k,4084)
15520 254840160 : lu(k,2913) = 1._r8 / lu(k,2913)
15521 254840160 : lu(k,2914) = lu(k,2914) * lu(k,2913)
15522 254840160 : lu(k,2915) = lu(k,2915) * lu(k,2913)
15523 254840160 : lu(k,2916) = lu(k,2916) * lu(k,2913)
15524 254840160 : lu(k,2917) = lu(k,2917) * lu(k,2913)
15525 254840160 : lu(k,2918) = lu(k,2918) * lu(k,2913)
15526 254840160 : lu(k,2919) = lu(k,2919) * lu(k,2913)
15527 254840160 : lu(k,2920) = lu(k,2920) * lu(k,2913)
15528 254840160 : lu(k,2921) = lu(k,2921) * lu(k,2913)
15529 254840160 : lu(k,2922) = lu(k,2922) * lu(k,2913)
15530 254840160 : lu(k,2923) = lu(k,2923) * lu(k,2913)
15531 254840160 : lu(k,2924) = lu(k,2924) * lu(k,2913)
15532 254840160 : lu(k,2925) = lu(k,2925) * lu(k,2913)
15533 254840160 : lu(k,2926) = lu(k,2926) * lu(k,2913)
15534 254840160 : lu(k,2927) = lu(k,2927) * lu(k,2913)
15535 254840160 : lu(k,2928) = lu(k,2928) * lu(k,2913)
15536 254840160 : lu(k,3104) = lu(k,3104) - lu(k,2914) * lu(k,3103)
15537 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2915) * lu(k,3103)
15538 254840160 : lu(k,3106) = lu(k,3106) - lu(k,2916) * lu(k,3103)
15539 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2917) * lu(k,3103)
15540 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2918) * lu(k,3103)
15541 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2919) * lu(k,3103)
15542 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2920) * lu(k,3103)
15543 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2921) * lu(k,3103)
15544 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2922) * lu(k,3103)
15545 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2923) * lu(k,3103)
15546 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2924) * lu(k,3103)
15547 254840160 : lu(k,3117) = lu(k,3117) - lu(k,2925) * lu(k,3103)
15548 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2926) * lu(k,3103)
15549 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2927) * lu(k,3103)
15550 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2928) * lu(k,3103)
15551 254840160 : lu(k,3363) = lu(k,3363) - lu(k,2914) * lu(k,3362)
15552 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2915) * lu(k,3362)
15553 254840160 : lu(k,3365) = lu(k,3365) - lu(k,2916) * lu(k,3362)
15554 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2917) * lu(k,3362)
15555 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2918) * lu(k,3362)
15556 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2919) * lu(k,3362)
15557 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2920) * lu(k,3362)
15558 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2921) * lu(k,3362)
15559 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2922) * lu(k,3362)
15560 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2923) * lu(k,3362)
15561 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2924) * lu(k,3362)
15562 254840160 : lu(k,3376) = lu(k,3376) - lu(k,2925) * lu(k,3362)
15563 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2926) * lu(k,3362)
15564 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2927) * lu(k,3362)
15565 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2928) * lu(k,3362)
15566 254840160 : lu(k,3456) = lu(k,3456) - lu(k,2914) * lu(k,3455)
15567 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2915) * lu(k,3455)
15568 254840160 : lu(k,3458) = lu(k,3458) - lu(k,2916) * lu(k,3455)
15569 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2917) * lu(k,3455)
15570 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2918) * lu(k,3455)
15571 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2919) * lu(k,3455)
15572 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2920) * lu(k,3455)
15573 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2921) * lu(k,3455)
15574 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2922) * lu(k,3455)
15575 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2923) * lu(k,3455)
15576 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2924) * lu(k,3455)
15577 254840160 : lu(k,3469) = lu(k,3469) - lu(k,2925) * lu(k,3455)
15578 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2926) * lu(k,3455)
15579 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2927) * lu(k,3455)
15580 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2928) * lu(k,3455)
15581 254840160 : lu(k,3600) = lu(k,3600) - lu(k,2914) * lu(k,3599)
15582 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2915) * lu(k,3599)
15583 254840160 : lu(k,3602) = lu(k,3602) - lu(k,2916) * lu(k,3599)
15584 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2917) * lu(k,3599)
15585 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2918) * lu(k,3599)
15586 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2919) * lu(k,3599)
15587 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2920) * lu(k,3599)
15588 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2921) * lu(k,3599)
15589 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2922) * lu(k,3599)
15590 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2923) * lu(k,3599)
15591 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2924) * lu(k,3599)
15592 254840160 : lu(k,3613) = lu(k,3613) - lu(k,2925) * lu(k,3599)
15593 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2926) * lu(k,3599)
15594 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2927) * lu(k,3599)
15595 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2928) * lu(k,3599)
15596 254840160 : lu(k,3652) = lu(k,3652) - lu(k,2914) * lu(k,3651)
15597 254840160 : lu(k,3653) = lu(k,3653) - lu(k,2915) * lu(k,3651)
15598 254840160 : lu(k,3654) = lu(k,3654) - lu(k,2916) * lu(k,3651)
15599 254840160 : lu(k,3655) = lu(k,3655) - lu(k,2917) * lu(k,3651)
15600 254840160 : lu(k,3656) = lu(k,3656) - lu(k,2918) * lu(k,3651)
15601 254840160 : lu(k,3657) = lu(k,3657) - lu(k,2919) * lu(k,3651)
15602 254840160 : lu(k,3658) = lu(k,3658) - lu(k,2920) * lu(k,3651)
15603 254840160 : lu(k,3659) = lu(k,3659) - lu(k,2921) * lu(k,3651)
15604 254840160 : lu(k,3662) = lu(k,3662) - lu(k,2922) * lu(k,3651)
15605 254840160 : lu(k,3663) = lu(k,3663) - lu(k,2923) * lu(k,3651)
15606 254840160 : lu(k,3664) = lu(k,3664) - lu(k,2924) * lu(k,3651)
15607 254840160 : lu(k,3665) = lu(k,3665) - lu(k,2925) * lu(k,3651)
15608 254840160 : lu(k,3666) = lu(k,3666) - lu(k,2926) * lu(k,3651)
15609 254840160 : lu(k,3667) = lu(k,3667) - lu(k,2927) * lu(k,3651)
15610 254840160 : lu(k,3668) = lu(k,3668) - lu(k,2928) * lu(k,3651)
15611 254840160 : lu(k,3754) = lu(k,3754) - lu(k,2914) * lu(k,3753)
15612 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2915) * lu(k,3753)
15613 254840160 : lu(k,3756) = lu(k,3756) - lu(k,2916) * lu(k,3753)
15614 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2917) * lu(k,3753)
15615 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2918) * lu(k,3753)
15616 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2919) * lu(k,3753)
15617 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2920) * lu(k,3753)
15618 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2921) * lu(k,3753)
15619 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2922) * lu(k,3753)
15620 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2923) * lu(k,3753)
15621 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2924) * lu(k,3753)
15622 254840160 : lu(k,3767) = lu(k,3767) - lu(k,2925) * lu(k,3753)
15623 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2926) * lu(k,3753)
15624 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2927) * lu(k,3753)
15625 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2928) * lu(k,3753)
15626 254840160 : lu(k,3836) = lu(k,3836) - lu(k,2914) * lu(k,3835)
15627 254840160 : lu(k,3837) = lu(k,3837) - lu(k,2915) * lu(k,3835)
15628 254840160 : lu(k,3838) = lu(k,3838) - lu(k,2916) * lu(k,3835)
15629 254840160 : lu(k,3839) = lu(k,3839) - lu(k,2917) * lu(k,3835)
15630 254840160 : lu(k,3840) = lu(k,3840) - lu(k,2918) * lu(k,3835)
15631 254840160 : lu(k,3841) = lu(k,3841) - lu(k,2919) * lu(k,3835)
15632 254840160 : lu(k,3842) = lu(k,3842) - lu(k,2920) * lu(k,3835)
15633 254840160 : lu(k,3843) = lu(k,3843) - lu(k,2921) * lu(k,3835)
15634 254840160 : lu(k,3846) = lu(k,3846) - lu(k,2922) * lu(k,3835)
15635 254840160 : lu(k,3847) = lu(k,3847) - lu(k,2923) * lu(k,3835)
15636 254840160 : lu(k,3848) = lu(k,3848) - lu(k,2924) * lu(k,3835)
15637 254840160 : lu(k,3849) = lu(k,3849) - lu(k,2925) * lu(k,3835)
15638 254840160 : lu(k,3850) = lu(k,3850) - lu(k,2926) * lu(k,3835)
15639 254840160 : lu(k,3851) = lu(k,3851) - lu(k,2927) * lu(k,3835)
15640 254840160 : lu(k,3852) = lu(k,3852) - lu(k,2928) * lu(k,3835)
15641 254840160 : lu(k,4086) = lu(k,4086) - lu(k,2914) * lu(k,4085)
15642 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2915) * lu(k,4085)
15643 254840160 : lu(k,4088) = lu(k,4088) - lu(k,2916) * lu(k,4085)
15644 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2917) * lu(k,4085)
15645 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2918) * lu(k,4085)
15646 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2919) * lu(k,4085)
15647 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2920) * lu(k,4085)
15648 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2921) * lu(k,4085)
15649 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2922) * lu(k,4085)
15650 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2923) * lu(k,4085)
15651 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2924) * lu(k,4085)
15652 254840160 : lu(k,4099) = lu(k,4099) - lu(k,2925) * lu(k,4085)
15653 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2926) * lu(k,4085)
15654 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2927) * lu(k,4085)
15655 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2928) * lu(k,4085)
15656 254840160 : lu(k,2931) = 1._r8 / lu(k,2931)
15657 254840160 : lu(k,2932) = lu(k,2932) * lu(k,2931)
15658 254840160 : lu(k,2933) = lu(k,2933) * lu(k,2931)
15659 254840160 : lu(k,2934) = lu(k,2934) * lu(k,2931)
15660 254840160 : lu(k,2935) = lu(k,2935) * lu(k,2931)
15661 254840160 : lu(k,2936) = lu(k,2936) * lu(k,2931)
15662 254840160 : lu(k,2937) = lu(k,2937) * lu(k,2931)
15663 254840160 : lu(k,2938) = lu(k,2938) * lu(k,2931)
15664 254840160 : lu(k,2939) = lu(k,2939) * lu(k,2931)
15665 254840160 : lu(k,2940) = lu(k,2940) * lu(k,2931)
15666 254840160 : lu(k,2941) = lu(k,2941) * lu(k,2931)
15667 254840160 : lu(k,2942) = lu(k,2942) * lu(k,2931)
15668 254840160 : lu(k,2943) = lu(k,2943) * lu(k,2931)
15669 254840160 : lu(k,2949) = lu(k,2949) - lu(k,2932) * lu(k,2948)
15670 254840160 : lu(k,2950) = lu(k,2950) - lu(k,2933) * lu(k,2948)
15671 254840160 : lu(k,2951) = lu(k,2951) - lu(k,2934) * lu(k,2948)
15672 254840160 : lu(k,2952) = lu(k,2952) - lu(k,2935) * lu(k,2948)
15673 254840160 : lu(k,2953) = lu(k,2953) - lu(k,2936) * lu(k,2948)
15674 254840160 : lu(k,2954) = lu(k,2954) - lu(k,2937) * lu(k,2948)
15675 254840160 : lu(k,2955) = lu(k,2955) - lu(k,2938) * lu(k,2948)
15676 254840160 : lu(k,2957) = - lu(k,2939) * lu(k,2948)
15677 254840160 : lu(k,2958) = lu(k,2958) - lu(k,2940) * lu(k,2948)
15678 254840160 : lu(k,2959) = lu(k,2959) - lu(k,2941) * lu(k,2948)
15679 254840160 : lu(k,2960) = lu(k,2960) - lu(k,2942) * lu(k,2948)
15680 254840160 : lu(k,2961) = lu(k,2961) - lu(k,2943) * lu(k,2948)
15681 254840160 : lu(k,3105) = lu(k,3105) - lu(k,2932) * lu(k,3104)
15682 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2933) * lu(k,3104)
15683 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2934) * lu(k,3104)
15684 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2935) * lu(k,3104)
15685 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2936) * lu(k,3104)
15686 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2937) * lu(k,3104)
15687 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2938) * lu(k,3104)
15688 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2939) * lu(k,3104)
15689 254840160 : lu(k,3117) = lu(k,3117) - lu(k,2940) * lu(k,3104)
15690 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2941) * lu(k,3104)
15691 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2942) * lu(k,3104)
15692 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2943) * lu(k,3104)
15693 254840160 : lu(k,3128) = lu(k,3128) - lu(k,2932) * lu(k,3127)
15694 254840160 : lu(k,3129) = lu(k,3129) - lu(k,2933) * lu(k,3127)
15695 254840160 : lu(k,3130) = lu(k,3130) - lu(k,2934) * lu(k,3127)
15696 254840160 : lu(k,3131) = lu(k,3131) - lu(k,2935) * lu(k,3127)
15697 254840160 : lu(k,3132) = lu(k,3132) - lu(k,2936) * lu(k,3127)
15698 254840160 : lu(k,3133) = - lu(k,2937) * lu(k,3127)
15699 254840160 : lu(k,3136) = lu(k,3136) - lu(k,2938) * lu(k,3127)
15700 254840160 : lu(k,3138) = lu(k,3138) - lu(k,2939) * lu(k,3127)
15701 254840160 : lu(k,3139) = lu(k,3139) - lu(k,2940) * lu(k,3127)
15702 254840160 : lu(k,3140) = lu(k,3140) - lu(k,2941) * lu(k,3127)
15703 254840160 : lu(k,3141) = lu(k,3141) - lu(k,2942) * lu(k,3127)
15704 254840160 : lu(k,3142) = lu(k,3142) - lu(k,2943) * lu(k,3127)
15705 254840160 : lu(k,3158) = lu(k,3158) - lu(k,2932) * lu(k,3157)
15706 254840160 : lu(k,3160) = lu(k,3160) - lu(k,2933) * lu(k,3157)
15707 254840160 : lu(k,3161) = lu(k,3161) - lu(k,2934) * lu(k,3157)
15708 254840160 : lu(k,3162) = lu(k,3162) - lu(k,2935) * lu(k,3157)
15709 254840160 : lu(k,3163) = lu(k,3163) - lu(k,2936) * lu(k,3157)
15710 254840160 : lu(k,3164) = lu(k,3164) - lu(k,2937) * lu(k,3157)
15711 254840160 : lu(k,3167) = lu(k,3167) - lu(k,2938) * lu(k,3157)
15712 254840160 : lu(k,3169) = lu(k,3169) - lu(k,2939) * lu(k,3157)
15713 254840160 : lu(k,3170) = lu(k,3170) - lu(k,2940) * lu(k,3157)
15714 254840160 : lu(k,3171) = lu(k,3171) - lu(k,2941) * lu(k,3157)
15715 254840160 : lu(k,3172) = lu(k,3172) - lu(k,2942) * lu(k,3157)
15716 254840160 : lu(k,3173) = lu(k,3173) - lu(k,2943) * lu(k,3157)
15717 254840160 : lu(k,3184) = lu(k,3184) - lu(k,2932) * lu(k,3183)
15718 254840160 : lu(k,3186) = lu(k,3186) - lu(k,2933) * lu(k,3183)
15719 254840160 : lu(k,3187) = lu(k,3187) - lu(k,2934) * lu(k,3183)
15720 254840160 : lu(k,3188) = lu(k,3188) - lu(k,2935) * lu(k,3183)
15721 254840160 : lu(k,3189) = lu(k,3189) - lu(k,2936) * lu(k,3183)
15722 254840160 : lu(k,3190) = lu(k,3190) - lu(k,2937) * lu(k,3183)
15723 254840160 : lu(k,3193) = lu(k,3193) - lu(k,2938) * lu(k,3183)
15724 254840160 : lu(k,3195) = lu(k,3195) - lu(k,2939) * lu(k,3183)
15725 254840160 : lu(k,3196) = lu(k,3196) - lu(k,2940) * lu(k,3183)
15726 254840160 : lu(k,3197) = lu(k,3197) - lu(k,2941) * lu(k,3183)
15727 254840160 : lu(k,3198) = lu(k,3198) - lu(k,2942) * lu(k,3183)
15728 254840160 : lu(k,3199) = lu(k,3199) - lu(k,2943) * lu(k,3183)
15729 254840160 : lu(k,3364) = lu(k,3364) - lu(k,2932) * lu(k,3363)
15730 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2933) * lu(k,3363)
15731 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2934) * lu(k,3363)
15732 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2935) * lu(k,3363)
15733 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2936) * lu(k,3363)
15734 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2937) * lu(k,3363)
15735 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2938) * lu(k,3363)
15736 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2939) * lu(k,3363)
15737 254840160 : lu(k,3376) = lu(k,3376) - lu(k,2940) * lu(k,3363)
15738 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2941) * lu(k,3363)
15739 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2942) * lu(k,3363)
15740 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2943) * lu(k,3363)
15741 254840160 : lu(k,3457) = lu(k,3457) - lu(k,2932) * lu(k,3456)
15742 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2933) * lu(k,3456)
15743 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2934) * lu(k,3456)
15744 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2935) * lu(k,3456)
15745 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2936) * lu(k,3456)
15746 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2937) * lu(k,3456)
15747 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2938) * lu(k,3456)
15748 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2939) * lu(k,3456)
15749 254840160 : lu(k,3469) = lu(k,3469) - lu(k,2940) * lu(k,3456)
15750 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2941) * lu(k,3456)
15751 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2942) * lu(k,3456)
15752 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2943) * lu(k,3456)
15753 254840160 : lu(k,3481) = lu(k,3481) - lu(k,2932) * lu(k,3480)
15754 254840160 : lu(k,3483) = lu(k,3483) - lu(k,2933) * lu(k,3480)
15755 254840160 : lu(k,3484) = lu(k,3484) - lu(k,2934) * lu(k,3480)
15756 254840160 : lu(k,3485) = lu(k,3485) - lu(k,2935) * lu(k,3480)
15757 254840160 : lu(k,3486) = lu(k,3486) - lu(k,2936) * lu(k,3480)
15758 254840160 : lu(k,3487) = - lu(k,2937) * lu(k,3480)
15759 254840160 : lu(k,3490) = lu(k,3490) - lu(k,2938) * lu(k,3480)
15760 254840160 : lu(k,3492) = lu(k,3492) - lu(k,2939) * lu(k,3480)
15761 254840160 : lu(k,3493) = lu(k,3493) - lu(k,2940) * lu(k,3480)
15762 254840160 : lu(k,3494) = lu(k,3494) - lu(k,2941) * lu(k,3480)
15763 254840160 : lu(k,3495) = lu(k,3495) - lu(k,2942) * lu(k,3480)
15764 254840160 : lu(k,3496) = lu(k,3496) - lu(k,2943) * lu(k,3480)
15765 254840160 : lu(k,3507) = lu(k,3507) - lu(k,2932) * lu(k,3506)
15766 254840160 : lu(k,3509) = lu(k,3509) - lu(k,2933) * lu(k,3506)
15767 254840160 : lu(k,3510) = lu(k,3510) - lu(k,2934) * lu(k,3506)
15768 254840160 : lu(k,3511) = lu(k,3511) - lu(k,2935) * lu(k,3506)
15769 254840160 : lu(k,3512) = lu(k,3512) - lu(k,2936) * lu(k,3506)
15770 254840160 : lu(k,3513) = lu(k,3513) - lu(k,2937) * lu(k,3506)
15771 254840160 : lu(k,3516) = lu(k,3516) - lu(k,2938) * lu(k,3506)
15772 254840160 : lu(k,3518) = lu(k,3518) - lu(k,2939) * lu(k,3506)
15773 254840160 : lu(k,3519) = lu(k,3519) - lu(k,2940) * lu(k,3506)
15774 254840160 : lu(k,3520) = lu(k,3520) - lu(k,2941) * lu(k,3506)
15775 254840160 : lu(k,3521) = lu(k,3521) - lu(k,2942) * lu(k,3506)
15776 254840160 : lu(k,3522) = lu(k,3522) - lu(k,2943) * lu(k,3506)
15777 254840160 : lu(k,3601) = lu(k,3601) - lu(k,2932) * lu(k,3600)
15778 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2933) * lu(k,3600)
15779 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2934) * lu(k,3600)
15780 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2935) * lu(k,3600)
15781 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2936) * lu(k,3600)
15782 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2937) * lu(k,3600)
15783 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2938) * lu(k,3600)
15784 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2939) * lu(k,3600)
15785 254840160 : lu(k,3613) = lu(k,3613) - lu(k,2940) * lu(k,3600)
15786 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2941) * lu(k,3600)
15787 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2942) * lu(k,3600)
15788 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2943) * lu(k,3600)
15789 254840160 : lu(k,3653) = lu(k,3653) - lu(k,2932) * lu(k,3652)
15790 254840160 : lu(k,3655) = lu(k,3655) - lu(k,2933) * lu(k,3652)
15791 254840160 : lu(k,3656) = lu(k,3656) - lu(k,2934) * lu(k,3652)
15792 254840160 : lu(k,3657) = lu(k,3657) - lu(k,2935) * lu(k,3652)
15793 254840160 : lu(k,3658) = lu(k,3658) - lu(k,2936) * lu(k,3652)
15794 254840160 : lu(k,3659) = lu(k,3659) - lu(k,2937) * lu(k,3652)
15795 254840160 : lu(k,3662) = lu(k,3662) - lu(k,2938) * lu(k,3652)
15796 254840160 : lu(k,3664) = lu(k,3664) - lu(k,2939) * lu(k,3652)
15797 254840160 : lu(k,3665) = lu(k,3665) - lu(k,2940) * lu(k,3652)
15798 254840160 : lu(k,3666) = lu(k,3666) - lu(k,2941) * lu(k,3652)
15799 254840160 : lu(k,3667) = lu(k,3667) - lu(k,2942) * lu(k,3652)
15800 254840160 : lu(k,3668) = lu(k,3668) - lu(k,2943) * lu(k,3652)
15801 254840160 : lu(k,3755) = lu(k,3755) - lu(k,2932) * lu(k,3754)
15802 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2933) * lu(k,3754)
15803 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2934) * lu(k,3754)
15804 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2935) * lu(k,3754)
15805 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2936) * lu(k,3754)
15806 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2937) * lu(k,3754)
15807 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2938) * lu(k,3754)
15808 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2939) * lu(k,3754)
15809 254840160 : lu(k,3767) = lu(k,3767) - lu(k,2940) * lu(k,3754)
15810 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2941) * lu(k,3754)
15811 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2942) * lu(k,3754)
15812 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2943) * lu(k,3754)
15813 254840160 : lu(k,3796) = lu(k,3796) - lu(k,2932) * lu(k,3795)
15814 254840160 : lu(k,3798) = lu(k,3798) - lu(k,2933) * lu(k,3795)
15815 254840160 : lu(k,3799) = lu(k,3799) - lu(k,2934) * lu(k,3795)
15816 254840160 : lu(k,3800) = lu(k,3800) - lu(k,2935) * lu(k,3795)
15817 254840160 : lu(k,3801) = lu(k,3801) - lu(k,2936) * lu(k,3795)
15818 254840160 : lu(k,3802) = lu(k,3802) - lu(k,2937) * lu(k,3795)
15819 254840160 : lu(k,3805) = lu(k,3805) - lu(k,2938) * lu(k,3795)
15820 254840160 : lu(k,3807) = lu(k,3807) - lu(k,2939) * lu(k,3795)
15821 254840160 : lu(k,3808) = lu(k,3808) - lu(k,2940) * lu(k,3795)
15822 254840160 : lu(k,3809) = lu(k,3809) - lu(k,2941) * lu(k,3795)
15823 254840160 : lu(k,3810) = lu(k,3810) - lu(k,2942) * lu(k,3795)
15824 254840160 : lu(k,3811) = lu(k,3811) - lu(k,2943) * lu(k,3795)
15825 254840160 : lu(k,3837) = lu(k,3837) - lu(k,2932) * lu(k,3836)
15826 254840160 : lu(k,3839) = lu(k,3839) - lu(k,2933) * lu(k,3836)
15827 254840160 : lu(k,3840) = lu(k,3840) - lu(k,2934) * lu(k,3836)
15828 254840160 : lu(k,3841) = lu(k,3841) - lu(k,2935) * lu(k,3836)
15829 254840160 : lu(k,3842) = lu(k,3842) - lu(k,2936) * lu(k,3836)
15830 254840160 : lu(k,3843) = lu(k,3843) - lu(k,2937) * lu(k,3836)
15831 254840160 : lu(k,3846) = lu(k,3846) - lu(k,2938) * lu(k,3836)
15832 254840160 : lu(k,3848) = lu(k,3848) - lu(k,2939) * lu(k,3836)
15833 254840160 : lu(k,3849) = lu(k,3849) - lu(k,2940) * lu(k,3836)
15834 254840160 : lu(k,3850) = lu(k,3850) - lu(k,2941) * lu(k,3836)
15835 254840160 : lu(k,3851) = lu(k,3851) - lu(k,2942) * lu(k,3836)
15836 254840160 : lu(k,3852) = lu(k,3852) - lu(k,2943) * lu(k,3836)
15837 254840160 : lu(k,4087) = lu(k,4087) - lu(k,2932) * lu(k,4086)
15838 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2933) * lu(k,4086)
15839 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2934) * lu(k,4086)
15840 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2935) * lu(k,4086)
15841 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2936) * lu(k,4086)
15842 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2937) * lu(k,4086)
15843 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2938) * lu(k,4086)
15844 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2939) * lu(k,4086)
15845 254840160 : lu(k,4099) = lu(k,4099) - lu(k,2940) * lu(k,4086)
15846 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2941) * lu(k,4086)
15847 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2942) * lu(k,4086)
15848 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2943) * lu(k,4086)
15849 254840160 : lu(k,4113) = lu(k,4113) - lu(k,2932) * lu(k,4112)
15850 254840160 : lu(k,4115) = lu(k,4115) - lu(k,2933) * lu(k,4112)
15851 254840160 : lu(k,4116) = lu(k,4116) - lu(k,2934) * lu(k,4112)
15852 254840160 : lu(k,4117) = lu(k,4117) - lu(k,2935) * lu(k,4112)
15853 254840160 : lu(k,4118) = lu(k,4118) - lu(k,2936) * lu(k,4112)
15854 254840160 : lu(k,4119) = lu(k,4119) - lu(k,2937) * lu(k,4112)
15855 254840160 : lu(k,4122) = lu(k,4122) - lu(k,2938) * lu(k,4112)
15856 254840160 : lu(k,4124) = lu(k,4124) - lu(k,2939) * lu(k,4112)
15857 254840160 : lu(k,4125) = lu(k,4125) - lu(k,2940) * lu(k,4112)
15858 254840160 : lu(k,4126) = lu(k,4126) - lu(k,2941) * lu(k,4112)
15859 254840160 : lu(k,4127) = lu(k,4127) - lu(k,2942) * lu(k,4112)
15860 254840160 : lu(k,4128) = lu(k,4128) - lu(k,2943) * lu(k,4112)
15861 254840160 : lu(k,2949) = 1._r8 / lu(k,2949)
15862 254840160 : lu(k,2950) = lu(k,2950) * lu(k,2949)
15863 254840160 : lu(k,2951) = lu(k,2951) * lu(k,2949)
15864 254840160 : lu(k,2952) = lu(k,2952) * lu(k,2949)
15865 254840160 : lu(k,2953) = lu(k,2953) * lu(k,2949)
15866 254840160 : lu(k,2954) = lu(k,2954) * lu(k,2949)
15867 254840160 : lu(k,2955) = lu(k,2955) * lu(k,2949)
15868 254840160 : lu(k,2956) = lu(k,2956) * lu(k,2949)
15869 254840160 : lu(k,2957) = lu(k,2957) * lu(k,2949)
15870 254840160 : lu(k,2958) = lu(k,2958) * lu(k,2949)
15871 254840160 : lu(k,2959) = lu(k,2959) * lu(k,2949)
15872 254840160 : lu(k,2960) = lu(k,2960) * lu(k,2949)
15873 254840160 : lu(k,2961) = lu(k,2961) * lu(k,2949)
15874 254840160 : lu(k,3107) = lu(k,3107) - lu(k,2950) * lu(k,3105)
15875 254840160 : lu(k,3108) = lu(k,3108) - lu(k,2951) * lu(k,3105)
15876 254840160 : lu(k,3109) = lu(k,3109) - lu(k,2952) * lu(k,3105)
15877 254840160 : lu(k,3110) = lu(k,3110) - lu(k,2953) * lu(k,3105)
15878 254840160 : lu(k,3111) = lu(k,3111) - lu(k,2954) * lu(k,3105)
15879 254840160 : lu(k,3114) = lu(k,3114) - lu(k,2955) * lu(k,3105)
15880 254840160 : lu(k,3115) = lu(k,3115) - lu(k,2956) * lu(k,3105)
15881 254840160 : lu(k,3116) = lu(k,3116) - lu(k,2957) * lu(k,3105)
15882 254840160 : lu(k,3117) = lu(k,3117) - lu(k,2958) * lu(k,3105)
15883 254840160 : lu(k,3118) = lu(k,3118) - lu(k,2959) * lu(k,3105)
15884 254840160 : lu(k,3119) = lu(k,3119) - lu(k,2960) * lu(k,3105)
15885 254840160 : lu(k,3120) = lu(k,3120) - lu(k,2961) * lu(k,3105)
15886 254840160 : lu(k,3129) = lu(k,3129) - lu(k,2950) * lu(k,3128)
15887 254840160 : lu(k,3130) = lu(k,3130) - lu(k,2951) * lu(k,3128)
15888 254840160 : lu(k,3131) = lu(k,3131) - lu(k,2952) * lu(k,3128)
15889 254840160 : lu(k,3132) = lu(k,3132) - lu(k,2953) * lu(k,3128)
15890 254840160 : lu(k,3133) = lu(k,3133) - lu(k,2954) * lu(k,3128)
15891 254840160 : lu(k,3136) = lu(k,3136) - lu(k,2955) * lu(k,3128)
15892 254840160 : lu(k,3137) = lu(k,3137) - lu(k,2956) * lu(k,3128)
15893 254840160 : lu(k,3138) = lu(k,3138) - lu(k,2957) * lu(k,3128)
15894 254840160 : lu(k,3139) = lu(k,3139) - lu(k,2958) * lu(k,3128)
15895 254840160 : lu(k,3140) = lu(k,3140) - lu(k,2959) * lu(k,3128)
15896 254840160 : lu(k,3141) = lu(k,3141) - lu(k,2960) * lu(k,3128)
15897 254840160 : lu(k,3142) = lu(k,3142) - lu(k,2961) * lu(k,3128)
15898 254840160 : lu(k,3160) = lu(k,3160) - lu(k,2950) * lu(k,3158)
15899 254840160 : lu(k,3161) = lu(k,3161) - lu(k,2951) * lu(k,3158)
15900 254840160 : lu(k,3162) = lu(k,3162) - lu(k,2952) * lu(k,3158)
15901 254840160 : lu(k,3163) = lu(k,3163) - lu(k,2953) * lu(k,3158)
15902 254840160 : lu(k,3164) = lu(k,3164) - lu(k,2954) * lu(k,3158)
15903 254840160 : lu(k,3167) = lu(k,3167) - lu(k,2955) * lu(k,3158)
15904 254840160 : lu(k,3168) = lu(k,3168) - lu(k,2956) * lu(k,3158)
15905 254840160 : lu(k,3169) = lu(k,3169) - lu(k,2957) * lu(k,3158)
15906 254840160 : lu(k,3170) = lu(k,3170) - lu(k,2958) * lu(k,3158)
15907 254840160 : lu(k,3171) = lu(k,3171) - lu(k,2959) * lu(k,3158)
15908 254840160 : lu(k,3172) = lu(k,3172) - lu(k,2960) * lu(k,3158)
15909 254840160 : lu(k,3173) = lu(k,3173) - lu(k,2961) * lu(k,3158)
15910 254840160 : lu(k,3186) = lu(k,3186) - lu(k,2950) * lu(k,3184)
15911 254840160 : lu(k,3187) = lu(k,3187) - lu(k,2951) * lu(k,3184)
15912 254840160 : lu(k,3188) = lu(k,3188) - lu(k,2952) * lu(k,3184)
15913 254840160 : lu(k,3189) = lu(k,3189) - lu(k,2953) * lu(k,3184)
15914 254840160 : lu(k,3190) = lu(k,3190) - lu(k,2954) * lu(k,3184)
15915 254840160 : lu(k,3193) = lu(k,3193) - lu(k,2955) * lu(k,3184)
15916 254840160 : lu(k,3194) = lu(k,3194) - lu(k,2956) * lu(k,3184)
15917 254840160 : lu(k,3195) = lu(k,3195) - lu(k,2957) * lu(k,3184)
15918 254840160 : lu(k,3196) = lu(k,3196) - lu(k,2958) * lu(k,3184)
15919 254840160 : lu(k,3197) = lu(k,3197) - lu(k,2959) * lu(k,3184)
15920 254840160 : lu(k,3198) = lu(k,3198) - lu(k,2960) * lu(k,3184)
15921 254840160 : lu(k,3199) = lu(k,3199) - lu(k,2961) * lu(k,3184)
15922 254840160 : lu(k,3366) = lu(k,3366) - lu(k,2950) * lu(k,3364)
15923 254840160 : lu(k,3367) = lu(k,3367) - lu(k,2951) * lu(k,3364)
15924 254840160 : lu(k,3368) = lu(k,3368) - lu(k,2952) * lu(k,3364)
15925 254840160 : lu(k,3369) = lu(k,3369) - lu(k,2953) * lu(k,3364)
15926 254840160 : lu(k,3370) = lu(k,3370) - lu(k,2954) * lu(k,3364)
15927 254840160 : lu(k,3373) = lu(k,3373) - lu(k,2955) * lu(k,3364)
15928 254840160 : lu(k,3374) = lu(k,3374) - lu(k,2956) * lu(k,3364)
15929 254840160 : lu(k,3375) = lu(k,3375) - lu(k,2957) * lu(k,3364)
15930 254840160 : lu(k,3376) = lu(k,3376) - lu(k,2958) * lu(k,3364)
15931 254840160 : lu(k,3377) = lu(k,3377) - lu(k,2959) * lu(k,3364)
15932 254840160 : lu(k,3378) = lu(k,3378) - lu(k,2960) * lu(k,3364)
15933 254840160 : lu(k,3379) = lu(k,3379) - lu(k,2961) * lu(k,3364)
15934 254840160 : lu(k,3459) = lu(k,3459) - lu(k,2950) * lu(k,3457)
15935 254840160 : lu(k,3460) = lu(k,3460) - lu(k,2951) * lu(k,3457)
15936 254840160 : lu(k,3461) = lu(k,3461) - lu(k,2952) * lu(k,3457)
15937 254840160 : lu(k,3462) = lu(k,3462) - lu(k,2953) * lu(k,3457)
15938 254840160 : lu(k,3463) = lu(k,3463) - lu(k,2954) * lu(k,3457)
15939 254840160 : lu(k,3466) = lu(k,3466) - lu(k,2955) * lu(k,3457)
15940 254840160 : lu(k,3467) = lu(k,3467) - lu(k,2956) * lu(k,3457)
15941 254840160 : lu(k,3468) = lu(k,3468) - lu(k,2957) * lu(k,3457)
15942 254840160 : lu(k,3469) = lu(k,3469) - lu(k,2958) * lu(k,3457)
15943 254840160 : lu(k,3470) = lu(k,3470) - lu(k,2959) * lu(k,3457)
15944 254840160 : lu(k,3471) = lu(k,3471) - lu(k,2960) * lu(k,3457)
15945 254840160 : lu(k,3472) = lu(k,3472) - lu(k,2961) * lu(k,3457)
15946 254840160 : lu(k,3483) = lu(k,3483) - lu(k,2950) * lu(k,3481)
15947 254840160 : lu(k,3484) = lu(k,3484) - lu(k,2951) * lu(k,3481)
15948 254840160 : lu(k,3485) = lu(k,3485) - lu(k,2952) * lu(k,3481)
15949 254840160 : lu(k,3486) = lu(k,3486) - lu(k,2953) * lu(k,3481)
15950 254840160 : lu(k,3487) = lu(k,3487) - lu(k,2954) * lu(k,3481)
15951 254840160 : lu(k,3490) = lu(k,3490) - lu(k,2955) * lu(k,3481)
15952 254840160 : lu(k,3491) = lu(k,3491) - lu(k,2956) * lu(k,3481)
15953 254840160 : lu(k,3492) = lu(k,3492) - lu(k,2957) * lu(k,3481)
15954 254840160 : lu(k,3493) = lu(k,3493) - lu(k,2958) * lu(k,3481)
15955 254840160 : lu(k,3494) = lu(k,3494) - lu(k,2959) * lu(k,3481)
15956 254840160 : lu(k,3495) = lu(k,3495) - lu(k,2960) * lu(k,3481)
15957 254840160 : lu(k,3496) = lu(k,3496) - lu(k,2961) * lu(k,3481)
15958 254840160 : lu(k,3509) = lu(k,3509) - lu(k,2950) * lu(k,3507)
15959 254840160 : lu(k,3510) = lu(k,3510) - lu(k,2951) * lu(k,3507)
15960 254840160 : lu(k,3511) = lu(k,3511) - lu(k,2952) * lu(k,3507)
15961 254840160 : lu(k,3512) = lu(k,3512) - lu(k,2953) * lu(k,3507)
15962 254840160 : lu(k,3513) = lu(k,3513) - lu(k,2954) * lu(k,3507)
15963 254840160 : lu(k,3516) = lu(k,3516) - lu(k,2955) * lu(k,3507)
15964 254840160 : lu(k,3517) = lu(k,3517) - lu(k,2956) * lu(k,3507)
15965 254840160 : lu(k,3518) = lu(k,3518) - lu(k,2957) * lu(k,3507)
15966 254840160 : lu(k,3519) = lu(k,3519) - lu(k,2958) * lu(k,3507)
15967 254840160 : lu(k,3520) = lu(k,3520) - lu(k,2959) * lu(k,3507)
15968 254840160 : lu(k,3521) = lu(k,3521) - lu(k,2960) * lu(k,3507)
15969 254840160 : lu(k,3522) = lu(k,3522) - lu(k,2961) * lu(k,3507)
15970 254840160 : lu(k,3603) = lu(k,3603) - lu(k,2950) * lu(k,3601)
15971 254840160 : lu(k,3604) = lu(k,3604) - lu(k,2951) * lu(k,3601)
15972 254840160 : lu(k,3605) = lu(k,3605) - lu(k,2952) * lu(k,3601)
15973 254840160 : lu(k,3606) = lu(k,3606) - lu(k,2953) * lu(k,3601)
15974 254840160 : lu(k,3607) = lu(k,3607) - lu(k,2954) * lu(k,3601)
15975 254840160 : lu(k,3610) = lu(k,3610) - lu(k,2955) * lu(k,3601)
15976 254840160 : lu(k,3611) = lu(k,3611) - lu(k,2956) * lu(k,3601)
15977 254840160 : lu(k,3612) = lu(k,3612) - lu(k,2957) * lu(k,3601)
15978 254840160 : lu(k,3613) = lu(k,3613) - lu(k,2958) * lu(k,3601)
15979 254840160 : lu(k,3614) = lu(k,3614) - lu(k,2959) * lu(k,3601)
15980 254840160 : lu(k,3615) = lu(k,3615) - lu(k,2960) * lu(k,3601)
15981 254840160 : lu(k,3616) = lu(k,3616) - lu(k,2961) * lu(k,3601)
15982 254840160 : lu(k,3655) = lu(k,3655) - lu(k,2950) * lu(k,3653)
15983 254840160 : lu(k,3656) = lu(k,3656) - lu(k,2951) * lu(k,3653)
15984 254840160 : lu(k,3657) = lu(k,3657) - lu(k,2952) * lu(k,3653)
15985 254840160 : lu(k,3658) = lu(k,3658) - lu(k,2953) * lu(k,3653)
15986 254840160 : lu(k,3659) = lu(k,3659) - lu(k,2954) * lu(k,3653)
15987 254840160 : lu(k,3662) = lu(k,3662) - lu(k,2955) * lu(k,3653)
15988 254840160 : lu(k,3663) = lu(k,3663) - lu(k,2956) * lu(k,3653)
15989 254840160 : lu(k,3664) = lu(k,3664) - lu(k,2957) * lu(k,3653)
15990 254840160 : lu(k,3665) = lu(k,3665) - lu(k,2958) * lu(k,3653)
15991 254840160 : lu(k,3666) = lu(k,3666) - lu(k,2959) * lu(k,3653)
15992 254840160 : lu(k,3667) = lu(k,3667) - lu(k,2960) * lu(k,3653)
15993 254840160 : lu(k,3668) = lu(k,3668) - lu(k,2961) * lu(k,3653)
15994 254840160 : lu(k,3757) = lu(k,3757) - lu(k,2950) * lu(k,3755)
15995 254840160 : lu(k,3758) = lu(k,3758) - lu(k,2951) * lu(k,3755)
15996 254840160 : lu(k,3759) = lu(k,3759) - lu(k,2952) * lu(k,3755)
15997 254840160 : lu(k,3760) = lu(k,3760) - lu(k,2953) * lu(k,3755)
15998 254840160 : lu(k,3761) = lu(k,3761) - lu(k,2954) * lu(k,3755)
15999 254840160 : lu(k,3764) = lu(k,3764) - lu(k,2955) * lu(k,3755)
16000 254840160 : lu(k,3765) = lu(k,3765) - lu(k,2956) * lu(k,3755)
16001 254840160 : lu(k,3766) = lu(k,3766) - lu(k,2957) * lu(k,3755)
16002 254840160 : lu(k,3767) = lu(k,3767) - lu(k,2958) * lu(k,3755)
16003 254840160 : lu(k,3768) = lu(k,3768) - lu(k,2959) * lu(k,3755)
16004 254840160 : lu(k,3769) = lu(k,3769) - lu(k,2960) * lu(k,3755)
16005 254840160 : lu(k,3770) = lu(k,3770) - lu(k,2961) * lu(k,3755)
16006 254840160 : lu(k,3798) = lu(k,3798) - lu(k,2950) * lu(k,3796)
16007 254840160 : lu(k,3799) = lu(k,3799) - lu(k,2951) * lu(k,3796)
16008 254840160 : lu(k,3800) = lu(k,3800) - lu(k,2952) * lu(k,3796)
16009 254840160 : lu(k,3801) = lu(k,3801) - lu(k,2953) * lu(k,3796)
16010 254840160 : lu(k,3802) = lu(k,3802) - lu(k,2954) * lu(k,3796)
16011 254840160 : lu(k,3805) = lu(k,3805) - lu(k,2955) * lu(k,3796)
16012 254840160 : lu(k,3806) = - lu(k,2956) * lu(k,3796)
16013 254840160 : lu(k,3807) = lu(k,3807) - lu(k,2957) * lu(k,3796)
16014 254840160 : lu(k,3808) = lu(k,3808) - lu(k,2958) * lu(k,3796)
16015 254840160 : lu(k,3809) = lu(k,3809) - lu(k,2959) * lu(k,3796)
16016 254840160 : lu(k,3810) = lu(k,3810) - lu(k,2960) * lu(k,3796)
16017 254840160 : lu(k,3811) = lu(k,3811) - lu(k,2961) * lu(k,3796)
16018 254840160 : lu(k,3839) = lu(k,3839) - lu(k,2950) * lu(k,3837)
16019 254840160 : lu(k,3840) = lu(k,3840) - lu(k,2951) * lu(k,3837)
16020 254840160 : lu(k,3841) = lu(k,3841) - lu(k,2952) * lu(k,3837)
16021 254840160 : lu(k,3842) = lu(k,3842) - lu(k,2953) * lu(k,3837)
16022 254840160 : lu(k,3843) = lu(k,3843) - lu(k,2954) * lu(k,3837)
16023 254840160 : lu(k,3846) = lu(k,3846) - lu(k,2955) * lu(k,3837)
16024 254840160 : lu(k,3847) = lu(k,3847) - lu(k,2956) * lu(k,3837)
16025 254840160 : lu(k,3848) = lu(k,3848) - lu(k,2957) * lu(k,3837)
16026 254840160 : lu(k,3849) = lu(k,3849) - lu(k,2958) * lu(k,3837)
16027 254840160 : lu(k,3850) = lu(k,3850) - lu(k,2959) * lu(k,3837)
16028 254840160 : lu(k,3851) = lu(k,3851) - lu(k,2960) * lu(k,3837)
16029 254840160 : lu(k,3852) = lu(k,3852) - lu(k,2961) * lu(k,3837)
16030 254840160 : lu(k,4089) = lu(k,4089) - lu(k,2950) * lu(k,4087)
16031 254840160 : lu(k,4090) = lu(k,4090) - lu(k,2951) * lu(k,4087)
16032 254840160 : lu(k,4091) = lu(k,4091) - lu(k,2952) * lu(k,4087)
16033 254840160 : lu(k,4092) = lu(k,4092) - lu(k,2953) * lu(k,4087)
16034 254840160 : lu(k,4093) = lu(k,4093) - lu(k,2954) * lu(k,4087)
16035 254840160 : lu(k,4096) = lu(k,4096) - lu(k,2955) * lu(k,4087)
16036 254840160 : lu(k,4097) = lu(k,4097) - lu(k,2956) * lu(k,4087)
16037 254840160 : lu(k,4098) = lu(k,4098) - lu(k,2957) * lu(k,4087)
16038 254840160 : lu(k,4099) = lu(k,4099) - lu(k,2958) * lu(k,4087)
16039 254840160 : lu(k,4100) = lu(k,4100) - lu(k,2959) * lu(k,4087)
16040 254840160 : lu(k,4101) = lu(k,4101) - lu(k,2960) * lu(k,4087)
16041 254840160 : lu(k,4102) = lu(k,4102) - lu(k,2961) * lu(k,4087)
16042 254840160 : lu(k,4115) = lu(k,4115) - lu(k,2950) * lu(k,4113)
16043 254840160 : lu(k,4116) = lu(k,4116) - lu(k,2951) * lu(k,4113)
16044 254840160 : lu(k,4117) = lu(k,4117) - lu(k,2952) * lu(k,4113)
16045 254840160 : lu(k,4118) = lu(k,4118) - lu(k,2953) * lu(k,4113)
16046 254840160 : lu(k,4119) = lu(k,4119) - lu(k,2954) * lu(k,4113)
16047 254840160 : lu(k,4122) = lu(k,4122) - lu(k,2955) * lu(k,4113)
16048 254840160 : lu(k,4123) = lu(k,4123) - lu(k,2956) * lu(k,4113)
16049 254840160 : lu(k,4124) = lu(k,4124) - lu(k,2957) * lu(k,4113)
16050 254840160 : lu(k,4125) = lu(k,4125) - lu(k,2958) * lu(k,4113)
16051 254840160 : lu(k,4126) = lu(k,4126) - lu(k,2959) * lu(k,4113)
16052 254840160 : lu(k,4127) = lu(k,4127) - lu(k,2960) * lu(k,4113)
16053 263009123 : lu(k,4128) = lu(k,4128) - lu(k,2961) * lu(k,4113)
16054 : end do
16055 8168963 : end subroutine lu_fac52
16056 8168963 : subroutine lu_fac53( avec_len, lu )
16057 : use chem_mods, only : nzcnt
16058 : use shr_kind_mod, only : r8 => shr_kind_r8
16059 : implicit none
16060 : !-----------------------------------------------------------------------
16061 : ! ... dummy args
16062 : !-----------------------------------------------------------------------
16063 : integer, intent(in) :: avec_len
16064 : real(r8), intent(inout) :: lu(veclen,nzcnt)
16065 : !-----------------------------------------------------------------------
16066 : ! ... local variables
16067 : !-----------------------------------------------------------------------
16068 : integer :: k
16069 263009123 : do k = 1,avec_len
16070 254840160 : lu(k,3106) = 1._r8 / lu(k,3106)
16071 254840160 : lu(k,3107) = lu(k,3107) * lu(k,3106)
16072 254840160 : lu(k,3108) = lu(k,3108) * lu(k,3106)
16073 254840160 : lu(k,3109) = lu(k,3109) * lu(k,3106)
16074 254840160 : lu(k,3110) = lu(k,3110) * lu(k,3106)
16075 254840160 : lu(k,3111) = lu(k,3111) * lu(k,3106)
16076 254840160 : lu(k,3112) = lu(k,3112) * lu(k,3106)
16077 254840160 : lu(k,3113) = lu(k,3113) * lu(k,3106)
16078 254840160 : lu(k,3114) = lu(k,3114) * lu(k,3106)
16079 254840160 : lu(k,3115) = lu(k,3115) * lu(k,3106)
16080 254840160 : lu(k,3116) = lu(k,3116) * lu(k,3106)
16081 254840160 : lu(k,3117) = lu(k,3117) * lu(k,3106)
16082 254840160 : lu(k,3118) = lu(k,3118) * lu(k,3106)
16083 254840160 : lu(k,3119) = lu(k,3119) * lu(k,3106)
16084 254840160 : lu(k,3120) = lu(k,3120) * lu(k,3106)
16085 254840160 : lu(k,3160) = lu(k,3160) - lu(k,3107) * lu(k,3159)
16086 254840160 : lu(k,3161) = lu(k,3161) - lu(k,3108) * lu(k,3159)
16087 254840160 : lu(k,3162) = lu(k,3162) - lu(k,3109) * lu(k,3159)
16088 254840160 : lu(k,3163) = lu(k,3163) - lu(k,3110) * lu(k,3159)
16089 254840160 : lu(k,3164) = lu(k,3164) - lu(k,3111) * lu(k,3159)
16090 254840160 : lu(k,3165) = lu(k,3165) - lu(k,3112) * lu(k,3159)
16091 254840160 : lu(k,3166) = lu(k,3166) - lu(k,3113) * lu(k,3159)
16092 254840160 : lu(k,3167) = lu(k,3167) - lu(k,3114) * lu(k,3159)
16093 254840160 : lu(k,3168) = lu(k,3168) - lu(k,3115) * lu(k,3159)
16094 254840160 : lu(k,3169) = lu(k,3169) - lu(k,3116) * lu(k,3159)
16095 254840160 : lu(k,3170) = lu(k,3170) - lu(k,3117) * lu(k,3159)
16096 254840160 : lu(k,3171) = lu(k,3171) - lu(k,3118) * lu(k,3159)
16097 254840160 : lu(k,3172) = lu(k,3172) - lu(k,3119) * lu(k,3159)
16098 254840160 : lu(k,3173) = lu(k,3173) - lu(k,3120) * lu(k,3159)
16099 254840160 : lu(k,3186) = lu(k,3186) - lu(k,3107) * lu(k,3185)
16100 254840160 : lu(k,3187) = lu(k,3187) - lu(k,3108) * lu(k,3185)
16101 254840160 : lu(k,3188) = lu(k,3188) - lu(k,3109) * lu(k,3185)
16102 254840160 : lu(k,3189) = lu(k,3189) - lu(k,3110) * lu(k,3185)
16103 254840160 : lu(k,3190) = lu(k,3190) - lu(k,3111) * lu(k,3185)
16104 254840160 : lu(k,3191) = lu(k,3191) - lu(k,3112) * lu(k,3185)
16105 254840160 : lu(k,3192) = - lu(k,3113) * lu(k,3185)
16106 254840160 : lu(k,3193) = lu(k,3193) - lu(k,3114) * lu(k,3185)
16107 254840160 : lu(k,3194) = lu(k,3194) - lu(k,3115) * lu(k,3185)
16108 254840160 : lu(k,3195) = lu(k,3195) - lu(k,3116) * lu(k,3185)
16109 254840160 : lu(k,3196) = lu(k,3196) - lu(k,3117) * lu(k,3185)
16110 254840160 : lu(k,3197) = lu(k,3197) - lu(k,3118) * lu(k,3185)
16111 254840160 : lu(k,3198) = lu(k,3198) - lu(k,3119) * lu(k,3185)
16112 254840160 : lu(k,3199) = lu(k,3199) - lu(k,3120) * lu(k,3185)
16113 254840160 : lu(k,3366) = lu(k,3366) - lu(k,3107) * lu(k,3365)
16114 254840160 : lu(k,3367) = lu(k,3367) - lu(k,3108) * lu(k,3365)
16115 254840160 : lu(k,3368) = lu(k,3368) - lu(k,3109) * lu(k,3365)
16116 254840160 : lu(k,3369) = lu(k,3369) - lu(k,3110) * lu(k,3365)
16117 254840160 : lu(k,3370) = lu(k,3370) - lu(k,3111) * lu(k,3365)
16118 254840160 : lu(k,3371) = lu(k,3371) - lu(k,3112) * lu(k,3365)
16119 254840160 : lu(k,3372) = lu(k,3372) - lu(k,3113) * lu(k,3365)
16120 254840160 : lu(k,3373) = lu(k,3373) - lu(k,3114) * lu(k,3365)
16121 254840160 : lu(k,3374) = lu(k,3374) - lu(k,3115) * lu(k,3365)
16122 254840160 : lu(k,3375) = lu(k,3375) - lu(k,3116) * lu(k,3365)
16123 254840160 : lu(k,3376) = lu(k,3376) - lu(k,3117) * lu(k,3365)
16124 254840160 : lu(k,3377) = lu(k,3377) - lu(k,3118) * lu(k,3365)
16125 254840160 : lu(k,3378) = lu(k,3378) - lu(k,3119) * lu(k,3365)
16126 254840160 : lu(k,3379) = lu(k,3379) - lu(k,3120) * lu(k,3365)
16127 254840160 : lu(k,3459) = lu(k,3459) - lu(k,3107) * lu(k,3458)
16128 254840160 : lu(k,3460) = lu(k,3460) - lu(k,3108) * lu(k,3458)
16129 254840160 : lu(k,3461) = lu(k,3461) - lu(k,3109) * lu(k,3458)
16130 254840160 : lu(k,3462) = lu(k,3462) - lu(k,3110) * lu(k,3458)
16131 254840160 : lu(k,3463) = lu(k,3463) - lu(k,3111) * lu(k,3458)
16132 254840160 : lu(k,3464) = - lu(k,3112) * lu(k,3458)
16133 254840160 : lu(k,3465) = lu(k,3465) - lu(k,3113) * lu(k,3458)
16134 254840160 : lu(k,3466) = lu(k,3466) - lu(k,3114) * lu(k,3458)
16135 254840160 : lu(k,3467) = lu(k,3467) - lu(k,3115) * lu(k,3458)
16136 254840160 : lu(k,3468) = lu(k,3468) - lu(k,3116) * lu(k,3458)
16137 254840160 : lu(k,3469) = lu(k,3469) - lu(k,3117) * lu(k,3458)
16138 254840160 : lu(k,3470) = lu(k,3470) - lu(k,3118) * lu(k,3458)
16139 254840160 : lu(k,3471) = lu(k,3471) - lu(k,3119) * lu(k,3458)
16140 254840160 : lu(k,3472) = lu(k,3472) - lu(k,3120) * lu(k,3458)
16141 254840160 : lu(k,3483) = lu(k,3483) - lu(k,3107) * lu(k,3482)
16142 254840160 : lu(k,3484) = lu(k,3484) - lu(k,3108) * lu(k,3482)
16143 254840160 : lu(k,3485) = lu(k,3485) - lu(k,3109) * lu(k,3482)
16144 254840160 : lu(k,3486) = lu(k,3486) - lu(k,3110) * lu(k,3482)
16145 254840160 : lu(k,3487) = lu(k,3487) - lu(k,3111) * lu(k,3482)
16146 254840160 : lu(k,3488) = lu(k,3488) - lu(k,3112) * lu(k,3482)
16147 254840160 : lu(k,3489) = lu(k,3489) - lu(k,3113) * lu(k,3482)
16148 254840160 : lu(k,3490) = lu(k,3490) - lu(k,3114) * lu(k,3482)
16149 254840160 : lu(k,3491) = lu(k,3491) - lu(k,3115) * lu(k,3482)
16150 254840160 : lu(k,3492) = lu(k,3492) - lu(k,3116) * lu(k,3482)
16151 254840160 : lu(k,3493) = lu(k,3493) - lu(k,3117) * lu(k,3482)
16152 254840160 : lu(k,3494) = lu(k,3494) - lu(k,3118) * lu(k,3482)
16153 254840160 : lu(k,3495) = lu(k,3495) - lu(k,3119) * lu(k,3482)
16154 254840160 : lu(k,3496) = lu(k,3496) - lu(k,3120) * lu(k,3482)
16155 254840160 : lu(k,3509) = lu(k,3509) - lu(k,3107) * lu(k,3508)
16156 254840160 : lu(k,3510) = lu(k,3510) - lu(k,3108) * lu(k,3508)
16157 254840160 : lu(k,3511) = lu(k,3511) - lu(k,3109) * lu(k,3508)
16158 254840160 : lu(k,3512) = lu(k,3512) - lu(k,3110) * lu(k,3508)
16159 254840160 : lu(k,3513) = lu(k,3513) - lu(k,3111) * lu(k,3508)
16160 254840160 : lu(k,3514) = lu(k,3514) - lu(k,3112) * lu(k,3508)
16161 254840160 : lu(k,3515) = lu(k,3515) - lu(k,3113) * lu(k,3508)
16162 254840160 : lu(k,3516) = lu(k,3516) - lu(k,3114) * lu(k,3508)
16163 254840160 : lu(k,3517) = lu(k,3517) - lu(k,3115) * lu(k,3508)
16164 254840160 : lu(k,3518) = lu(k,3518) - lu(k,3116) * lu(k,3508)
16165 254840160 : lu(k,3519) = lu(k,3519) - lu(k,3117) * lu(k,3508)
16166 254840160 : lu(k,3520) = lu(k,3520) - lu(k,3118) * lu(k,3508)
16167 254840160 : lu(k,3521) = lu(k,3521) - lu(k,3119) * lu(k,3508)
16168 254840160 : lu(k,3522) = lu(k,3522) - lu(k,3120) * lu(k,3508)
16169 254840160 : lu(k,3603) = lu(k,3603) - lu(k,3107) * lu(k,3602)
16170 254840160 : lu(k,3604) = lu(k,3604) - lu(k,3108) * lu(k,3602)
16171 254840160 : lu(k,3605) = lu(k,3605) - lu(k,3109) * lu(k,3602)
16172 254840160 : lu(k,3606) = lu(k,3606) - lu(k,3110) * lu(k,3602)
16173 254840160 : lu(k,3607) = lu(k,3607) - lu(k,3111) * lu(k,3602)
16174 254840160 : lu(k,3608) = lu(k,3608) - lu(k,3112) * lu(k,3602)
16175 254840160 : lu(k,3609) = lu(k,3609) - lu(k,3113) * lu(k,3602)
16176 254840160 : lu(k,3610) = lu(k,3610) - lu(k,3114) * lu(k,3602)
16177 254840160 : lu(k,3611) = lu(k,3611) - lu(k,3115) * lu(k,3602)
16178 254840160 : lu(k,3612) = lu(k,3612) - lu(k,3116) * lu(k,3602)
16179 254840160 : lu(k,3613) = lu(k,3613) - lu(k,3117) * lu(k,3602)
16180 254840160 : lu(k,3614) = lu(k,3614) - lu(k,3118) * lu(k,3602)
16181 254840160 : lu(k,3615) = lu(k,3615) - lu(k,3119) * lu(k,3602)
16182 254840160 : lu(k,3616) = lu(k,3616) - lu(k,3120) * lu(k,3602)
16183 254840160 : lu(k,3655) = lu(k,3655) - lu(k,3107) * lu(k,3654)
16184 254840160 : lu(k,3656) = lu(k,3656) - lu(k,3108) * lu(k,3654)
16185 254840160 : lu(k,3657) = lu(k,3657) - lu(k,3109) * lu(k,3654)
16186 254840160 : lu(k,3658) = lu(k,3658) - lu(k,3110) * lu(k,3654)
16187 254840160 : lu(k,3659) = lu(k,3659) - lu(k,3111) * lu(k,3654)
16188 254840160 : lu(k,3660) = lu(k,3660) - lu(k,3112) * lu(k,3654)
16189 254840160 : lu(k,3661) = lu(k,3661) - lu(k,3113) * lu(k,3654)
16190 254840160 : lu(k,3662) = lu(k,3662) - lu(k,3114) * lu(k,3654)
16191 254840160 : lu(k,3663) = lu(k,3663) - lu(k,3115) * lu(k,3654)
16192 254840160 : lu(k,3664) = lu(k,3664) - lu(k,3116) * lu(k,3654)
16193 254840160 : lu(k,3665) = lu(k,3665) - lu(k,3117) * lu(k,3654)
16194 254840160 : lu(k,3666) = lu(k,3666) - lu(k,3118) * lu(k,3654)
16195 254840160 : lu(k,3667) = lu(k,3667) - lu(k,3119) * lu(k,3654)
16196 254840160 : lu(k,3668) = lu(k,3668) - lu(k,3120) * lu(k,3654)
16197 254840160 : lu(k,3757) = lu(k,3757) - lu(k,3107) * lu(k,3756)
16198 254840160 : lu(k,3758) = lu(k,3758) - lu(k,3108) * lu(k,3756)
16199 254840160 : lu(k,3759) = lu(k,3759) - lu(k,3109) * lu(k,3756)
16200 254840160 : lu(k,3760) = lu(k,3760) - lu(k,3110) * lu(k,3756)
16201 254840160 : lu(k,3761) = lu(k,3761) - lu(k,3111) * lu(k,3756)
16202 254840160 : lu(k,3762) = lu(k,3762) - lu(k,3112) * lu(k,3756)
16203 254840160 : lu(k,3763) = lu(k,3763) - lu(k,3113) * lu(k,3756)
16204 254840160 : lu(k,3764) = lu(k,3764) - lu(k,3114) * lu(k,3756)
16205 254840160 : lu(k,3765) = lu(k,3765) - lu(k,3115) * lu(k,3756)
16206 254840160 : lu(k,3766) = lu(k,3766) - lu(k,3116) * lu(k,3756)
16207 254840160 : lu(k,3767) = lu(k,3767) - lu(k,3117) * lu(k,3756)
16208 254840160 : lu(k,3768) = lu(k,3768) - lu(k,3118) * lu(k,3756)
16209 254840160 : lu(k,3769) = lu(k,3769) - lu(k,3119) * lu(k,3756)
16210 254840160 : lu(k,3770) = lu(k,3770) - lu(k,3120) * lu(k,3756)
16211 254840160 : lu(k,3798) = lu(k,3798) - lu(k,3107) * lu(k,3797)
16212 254840160 : lu(k,3799) = lu(k,3799) - lu(k,3108) * lu(k,3797)
16213 254840160 : lu(k,3800) = lu(k,3800) - lu(k,3109) * lu(k,3797)
16214 254840160 : lu(k,3801) = lu(k,3801) - lu(k,3110) * lu(k,3797)
16215 254840160 : lu(k,3802) = lu(k,3802) - lu(k,3111) * lu(k,3797)
16216 254840160 : lu(k,3803) = lu(k,3803) - lu(k,3112) * lu(k,3797)
16217 254840160 : lu(k,3804) = lu(k,3804) - lu(k,3113) * lu(k,3797)
16218 254840160 : lu(k,3805) = lu(k,3805) - lu(k,3114) * lu(k,3797)
16219 254840160 : lu(k,3806) = lu(k,3806) - lu(k,3115) * lu(k,3797)
16220 254840160 : lu(k,3807) = lu(k,3807) - lu(k,3116) * lu(k,3797)
16221 254840160 : lu(k,3808) = lu(k,3808) - lu(k,3117) * lu(k,3797)
16222 254840160 : lu(k,3809) = lu(k,3809) - lu(k,3118) * lu(k,3797)
16223 254840160 : lu(k,3810) = lu(k,3810) - lu(k,3119) * lu(k,3797)
16224 254840160 : lu(k,3811) = lu(k,3811) - lu(k,3120) * lu(k,3797)
16225 254840160 : lu(k,3839) = lu(k,3839) - lu(k,3107) * lu(k,3838)
16226 254840160 : lu(k,3840) = lu(k,3840) - lu(k,3108) * lu(k,3838)
16227 254840160 : lu(k,3841) = lu(k,3841) - lu(k,3109) * lu(k,3838)
16228 254840160 : lu(k,3842) = lu(k,3842) - lu(k,3110) * lu(k,3838)
16229 254840160 : lu(k,3843) = lu(k,3843) - lu(k,3111) * lu(k,3838)
16230 254840160 : lu(k,3844) = lu(k,3844) - lu(k,3112) * lu(k,3838)
16231 254840160 : lu(k,3845) = lu(k,3845) - lu(k,3113) * lu(k,3838)
16232 254840160 : lu(k,3846) = lu(k,3846) - lu(k,3114) * lu(k,3838)
16233 254840160 : lu(k,3847) = lu(k,3847) - lu(k,3115) * lu(k,3838)
16234 254840160 : lu(k,3848) = lu(k,3848) - lu(k,3116) * lu(k,3838)
16235 254840160 : lu(k,3849) = lu(k,3849) - lu(k,3117) * lu(k,3838)
16236 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3118) * lu(k,3838)
16237 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3119) * lu(k,3838)
16238 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3120) * lu(k,3838)
16239 254840160 : lu(k,4089) = lu(k,4089) - lu(k,3107) * lu(k,4088)
16240 254840160 : lu(k,4090) = lu(k,4090) - lu(k,3108) * lu(k,4088)
16241 254840160 : lu(k,4091) = lu(k,4091) - lu(k,3109) * lu(k,4088)
16242 254840160 : lu(k,4092) = lu(k,4092) - lu(k,3110) * lu(k,4088)
16243 254840160 : lu(k,4093) = lu(k,4093) - lu(k,3111) * lu(k,4088)
16244 254840160 : lu(k,4094) = lu(k,4094) - lu(k,3112) * lu(k,4088)
16245 254840160 : lu(k,4095) = lu(k,4095) - lu(k,3113) * lu(k,4088)
16246 254840160 : lu(k,4096) = lu(k,4096) - lu(k,3114) * lu(k,4088)
16247 254840160 : lu(k,4097) = lu(k,4097) - lu(k,3115) * lu(k,4088)
16248 254840160 : lu(k,4098) = lu(k,4098) - lu(k,3116) * lu(k,4088)
16249 254840160 : lu(k,4099) = lu(k,4099) - lu(k,3117) * lu(k,4088)
16250 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3118) * lu(k,4088)
16251 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3119) * lu(k,4088)
16252 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3120) * lu(k,4088)
16253 254840160 : lu(k,4115) = lu(k,4115) - lu(k,3107) * lu(k,4114)
16254 254840160 : lu(k,4116) = lu(k,4116) - lu(k,3108) * lu(k,4114)
16255 254840160 : lu(k,4117) = lu(k,4117) - lu(k,3109) * lu(k,4114)
16256 254840160 : lu(k,4118) = lu(k,4118) - lu(k,3110) * lu(k,4114)
16257 254840160 : lu(k,4119) = lu(k,4119) - lu(k,3111) * lu(k,4114)
16258 254840160 : lu(k,4120) = lu(k,4120) - lu(k,3112) * lu(k,4114)
16259 254840160 : lu(k,4121) = lu(k,4121) - lu(k,3113) * lu(k,4114)
16260 254840160 : lu(k,4122) = lu(k,4122) - lu(k,3114) * lu(k,4114)
16261 254840160 : lu(k,4123) = lu(k,4123) - lu(k,3115) * lu(k,4114)
16262 254840160 : lu(k,4124) = lu(k,4124) - lu(k,3116) * lu(k,4114)
16263 254840160 : lu(k,4125) = lu(k,4125) - lu(k,3117) * lu(k,4114)
16264 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3118) * lu(k,4114)
16265 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3119) * lu(k,4114)
16266 254840160 : lu(k,4128) = lu(k,4128) - lu(k,3120) * lu(k,4114)
16267 254840160 : lu(k,3129) = 1._r8 / lu(k,3129)
16268 254840160 : lu(k,3130) = lu(k,3130) * lu(k,3129)
16269 254840160 : lu(k,3131) = lu(k,3131) * lu(k,3129)
16270 254840160 : lu(k,3132) = lu(k,3132) * lu(k,3129)
16271 254840160 : lu(k,3133) = lu(k,3133) * lu(k,3129)
16272 254840160 : lu(k,3134) = lu(k,3134) * lu(k,3129)
16273 254840160 : lu(k,3135) = lu(k,3135) * lu(k,3129)
16274 254840160 : lu(k,3136) = lu(k,3136) * lu(k,3129)
16275 254840160 : lu(k,3137) = lu(k,3137) * lu(k,3129)
16276 254840160 : lu(k,3138) = lu(k,3138) * lu(k,3129)
16277 254840160 : lu(k,3139) = lu(k,3139) * lu(k,3129)
16278 254840160 : lu(k,3140) = lu(k,3140) * lu(k,3129)
16279 254840160 : lu(k,3141) = lu(k,3141) * lu(k,3129)
16280 254840160 : lu(k,3142) = lu(k,3142) * lu(k,3129)
16281 254840160 : lu(k,3161) = lu(k,3161) - lu(k,3130) * lu(k,3160)
16282 254840160 : lu(k,3162) = lu(k,3162) - lu(k,3131) * lu(k,3160)
16283 254840160 : lu(k,3163) = lu(k,3163) - lu(k,3132) * lu(k,3160)
16284 254840160 : lu(k,3164) = lu(k,3164) - lu(k,3133) * lu(k,3160)
16285 254840160 : lu(k,3165) = lu(k,3165) - lu(k,3134) * lu(k,3160)
16286 254840160 : lu(k,3166) = lu(k,3166) - lu(k,3135) * lu(k,3160)
16287 254840160 : lu(k,3167) = lu(k,3167) - lu(k,3136) * lu(k,3160)
16288 254840160 : lu(k,3168) = lu(k,3168) - lu(k,3137) * lu(k,3160)
16289 254840160 : lu(k,3169) = lu(k,3169) - lu(k,3138) * lu(k,3160)
16290 254840160 : lu(k,3170) = lu(k,3170) - lu(k,3139) * lu(k,3160)
16291 254840160 : lu(k,3171) = lu(k,3171) - lu(k,3140) * lu(k,3160)
16292 254840160 : lu(k,3172) = lu(k,3172) - lu(k,3141) * lu(k,3160)
16293 254840160 : lu(k,3173) = lu(k,3173) - lu(k,3142) * lu(k,3160)
16294 254840160 : lu(k,3187) = lu(k,3187) - lu(k,3130) * lu(k,3186)
16295 254840160 : lu(k,3188) = lu(k,3188) - lu(k,3131) * lu(k,3186)
16296 254840160 : lu(k,3189) = lu(k,3189) - lu(k,3132) * lu(k,3186)
16297 254840160 : lu(k,3190) = lu(k,3190) - lu(k,3133) * lu(k,3186)
16298 254840160 : lu(k,3191) = lu(k,3191) - lu(k,3134) * lu(k,3186)
16299 254840160 : lu(k,3192) = lu(k,3192) - lu(k,3135) * lu(k,3186)
16300 254840160 : lu(k,3193) = lu(k,3193) - lu(k,3136) * lu(k,3186)
16301 254840160 : lu(k,3194) = lu(k,3194) - lu(k,3137) * lu(k,3186)
16302 254840160 : lu(k,3195) = lu(k,3195) - lu(k,3138) * lu(k,3186)
16303 254840160 : lu(k,3196) = lu(k,3196) - lu(k,3139) * lu(k,3186)
16304 254840160 : lu(k,3197) = lu(k,3197) - lu(k,3140) * lu(k,3186)
16305 254840160 : lu(k,3198) = lu(k,3198) - lu(k,3141) * lu(k,3186)
16306 254840160 : lu(k,3199) = lu(k,3199) - lu(k,3142) * lu(k,3186)
16307 254840160 : lu(k,3367) = lu(k,3367) - lu(k,3130) * lu(k,3366)
16308 254840160 : lu(k,3368) = lu(k,3368) - lu(k,3131) * lu(k,3366)
16309 254840160 : lu(k,3369) = lu(k,3369) - lu(k,3132) * lu(k,3366)
16310 254840160 : lu(k,3370) = lu(k,3370) - lu(k,3133) * lu(k,3366)
16311 254840160 : lu(k,3371) = lu(k,3371) - lu(k,3134) * lu(k,3366)
16312 254840160 : lu(k,3372) = lu(k,3372) - lu(k,3135) * lu(k,3366)
16313 254840160 : lu(k,3373) = lu(k,3373) - lu(k,3136) * lu(k,3366)
16314 254840160 : lu(k,3374) = lu(k,3374) - lu(k,3137) * lu(k,3366)
16315 254840160 : lu(k,3375) = lu(k,3375) - lu(k,3138) * lu(k,3366)
16316 254840160 : lu(k,3376) = lu(k,3376) - lu(k,3139) * lu(k,3366)
16317 254840160 : lu(k,3377) = lu(k,3377) - lu(k,3140) * lu(k,3366)
16318 254840160 : lu(k,3378) = lu(k,3378) - lu(k,3141) * lu(k,3366)
16319 254840160 : lu(k,3379) = lu(k,3379) - lu(k,3142) * lu(k,3366)
16320 254840160 : lu(k,3460) = lu(k,3460) - lu(k,3130) * lu(k,3459)
16321 254840160 : lu(k,3461) = lu(k,3461) - lu(k,3131) * lu(k,3459)
16322 254840160 : lu(k,3462) = lu(k,3462) - lu(k,3132) * lu(k,3459)
16323 254840160 : lu(k,3463) = lu(k,3463) - lu(k,3133) * lu(k,3459)
16324 254840160 : lu(k,3464) = lu(k,3464) - lu(k,3134) * lu(k,3459)
16325 254840160 : lu(k,3465) = lu(k,3465) - lu(k,3135) * lu(k,3459)
16326 254840160 : lu(k,3466) = lu(k,3466) - lu(k,3136) * lu(k,3459)
16327 254840160 : lu(k,3467) = lu(k,3467) - lu(k,3137) * lu(k,3459)
16328 254840160 : lu(k,3468) = lu(k,3468) - lu(k,3138) * lu(k,3459)
16329 254840160 : lu(k,3469) = lu(k,3469) - lu(k,3139) * lu(k,3459)
16330 254840160 : lu(k,3470) = lu(k,3470) - lu(k,3140) * lu(k,3459)
16331 254840160 : lu(k,3471) = lu(k,3471) - lu(k,3141) * lu(k,3459)
16332 254840160 : lu(k,3472) = lu(k,3472) - lu(k,3142) * lu(k,3459)
16333 254840160 : lu(k,3484) = lu(k,3484) - lu(k,3130) * lu(k,3483)
16334 254840160 : lu(k,3485) = lu(k,3485) - lu(k,3131) * lu(k,3483)
16335 254840160 : lu(k,3486) = lu(k,3486) - lu(k,3132) * lu(k,3483)
16336 254840160 : lu(k,3487) = lu(k,3487) - lu(k,3133) * lu(k,3483)
16337 254840160 : lu(k,3488) = lu(k,3488) - lu(k,3134) * lu(k,3483)
16338 254840160 : lu(k,3489) = lu(k,3489) - lu(k,3135) * lu(k,3483)
16339 254840160 : lu(k,3490) = lu(k,3490) - lu(k,3136) * lu(k,3483)
16340 254840160 : lu(k,3491) = lu(k,3491) - lu(k,3137) * lu(k,3483)
16341 254840160 : lu(k,3492) = lu(k,3492) - lu(k,3138) * lu(k,3483)
16342 254840160 : lu(k,3493) = lu(k,3493) - lu(k,3139) * lu(k,3483)
16343 254840160 : lu(k,3494) = lu(k,3494) - lu(k,3140) * lu(k,3483)
16344 254840160 : lu(k,3495) = lu(k,3495) - lu(k,3141) * lu(k,3483)
16345 254840160 : lu(k,3496) = lu(k,3496) - lu(k,3142) * lu(k,3483)
16346 254840160 : lu(k,3510) = lu(k,3510) - lu(k,3130) * lu(k,3509)
16347 254840160 : lu(k,3511) = lu(k,3511) - lu(k,3131) * lu(k,3509)
16348 254840160 : lu(k,3512) = lu(k,3512) - lu(k,3132) * lu(k,3509)
16349 254840160 : lu(k,3513) = lu(k,3513) - lu(k,3133) * lu(k,3509)
16350 254840160 : lu(k,3514) = lu(k,3514) - lu(k,3134) * lu(k,3509)
16351 254840160 : lu(k,3515) = lu(k,3515) - lu(k,3135) * lu(k,3509)
16352 254840160 : lu(k,3516) = lu(k,3516) - lu(k,3136) * lu(k,3509)
16353 254840160 : lu(k,3517) = lu(k,3517) - lu(k,3137) * lu(k,3509)
16354 254840160 : lu(k,3518) = lu(k,3518) - lu(k,3138) * lu(k,3509)
16355 254840160 : lu(k,3519) = lu(k,3519) - lu(k,3139) * lu(k,3509)
16356 254840160 : lu(k,3520) = lu(k,3520) - lu(k,3140) * lu(k,3509)
16357 254840160 : lu(k,3521) = lu(k,3521) - lu(k,3141) * lu(k,3509)
16358 254840160 : lu(k,3522) = lu(k,3522) - lu(k,3142) * lu(k,3509)
16359 254840160 : lu(k,3604) = lu(k,3604) - lu(k,3130) * lu(k,3603)
16360 254840160 : lu(k,3605) = lu(k,3605) - lu(k,3131) * lu(k,3603)
16361 254840160 : lu(k,3606) = lu(k,3606) - lu(k,3132) * lu(k,3603)
16362 254840160 : lu(k,3607) = lu(k,3607) - lu(k,3133) * lu(k,3603)
16363 254840160 : lu(k,3608) = lu(k,3608) - lu(k,3134) * lu(k,3603)
16364 254840160 : lu(k,3609) = lu(k,3609) - lu(k,3135) * lu(k,3603)
16365 254840160 : lu(k,3610) = lu(k,3610) - lu(k,3136) * lu(k,3603)
16366 254840160 : lu(k,3611) = lu(k,3611) - lu(k,3137) * lu(k,3603)
16367 254840160 : lu(k,3612) = lu(k,3612) - lu(k,3138) * lu(k,3603)
16368 254840160 : lu(k,3613) = lu(k,3613) - lu(k,3139) * lu(k,3603)
16369 254840160 : lu(k,3614) = lu(k,3614) - lu(k,3140) * lu(k,3603)
16370 254840160 : lu(k,3615) = lu(k,3615) - lu(k,3141) * lu(k,3603)
16371 254840160 : lu(k,3616) = lu(k,3616) - lu(k,3142) * lu(k,3603)
16372 254840160 : lu(k,3656) = lu(k,3656) - lu(k,3130) * lu(k,3655)
16373 254840160 : lu(k,3657) = lu(k,3657) - lu(k,3131) * lu(k,3655)
16374 254840160 : lu(k,3658) = lu(k,3658) - lu(k,3132) * lu(k,3655)
16375 254840160 : lu(k,3659) = lu(k,3659) - lu(k,3133) * lu(k,3655)
16376 254840160 : lu(k,3660) = lu(k,3660) - lu(k,3134) * lu(k,3655)
16377 254840160 : lu(k,3661) = lu(k,3661) - lu(k,3135) * lu(k,3655)
16378 254840160 : lu(k,3662) = lu(k,3662) - lu(k,3136) * lu(k,3655)
16379 254840160 : lu(k,3663) = lu(k,3663) - lu(k,3137) * lu(k,3655)
16380 254840160 : lu(k,3664) = lu(k,3664) - lu(k,3138) * lu(k,3655)
16381 254840160 : lu(k,3665) = lu(k,3665) - lu(k,3139) * lu(k,3655)
16382 254840160 : lu(k,3666) = lu(k,3666) - lu(k,3140) * lu(k,3655)
16383 254840160 : lu(k,3667) = lu(k,3667) - lu(k,3141) * lu(k,3655)
16384 254840160 : lu(k,3668) = lu(k,3668) - lu(k,3142) * lu(k,3655)
16385 254840160 : lu(k,3758) = lu(k,3758) - lu(k,3130) * lu(k,3757)
16386 254840160 : lu(k,3759) = lu(k,3759) - lu(k,3131) * lu(k,3757)
16387 254840160 : lu(k,3760) = lu(k,3760) - lu(k,3132) * lu(k,3757)
16388 254840160 : lu(k,3761) = lu(k,3761) - lu(k,3133) * lu(k,3757)
16389 254840160 : lu(k,3762) = lu(k,3762) - lu(k,3134) * lu(k,3757)
16390 254840160 : lu(k,3763) = lu(k,3763) - lu(k,3135) * lu(k,3757)
16391 254840160 : lu(k,3764) = lu(k,3764) - lu(k,3136) * lu(k,3757)
16392 254840160 : lu(k,3765) = lu(k,3765) - lu(k,3137) * lu(k,3757)
16393 254840160 : lu(k,3766) = lu(k,3766) - lu(k,3138) * lu(k,3757)
16394 254840160 : lu(k,3767) = lu(k,3767) - lu(k,3139) * lu(k,3757)
16395 254840160 : lu(k,3768) = lu(k,3768) - lu(k,3140) * lu(k,3757)
16396 254840160 : lu(k,3769) = lu(k,3769) - lu(k,3141) * lu(k,3757)
16397 254840160 : lu(k,3770) = lu(k,3770) - lu(k,3142) * lu(k,3757)
16398 254840160 : lu(k,3799) = lu(k,3799) - lu(k,3130) * lu(k,3798)
16399 254840160 : lu(k,3800) = lu(k,3800) - lu(k,3131) * lu(k,3798)
16400 254840160 : lu(k,3801) = lu(k,3801) - lu(k,3132) * lu(k,3798)
16401 254840160 : lu(k,3802) = lu(k,3802) - lu(k,3133) * lu(k,3798)
16402 254840160 : lu(k,3803) = lu(k,3803) - lu(k,3134) * lu(k,3798)
16403 254840160 : lu(k,3804) = lu(k,3804) - lu(k,3135) * lu(k,3798)
16404 254840160 : lu(k,3805) = lu(k,3805) - lu(k,3136) * lu(k,3798)
16405 254840160 : lu(k,3806) = lu(k,3806) - lu(k,3137) * lu(k,3798)
16406 254840160 : lu(k,3807) = lu(k,3807) - lu(k,3138) * lu(k,3798)
16407 254840160 : lu(k,3808) = lu(k,3808) - lu(k,3139) * lu(k,3798)
16408 254840160 : lu(k,3809) = lu(k,3809) - lu(k,3140) * lu(k,3798)
16409 254840160 : lu(k,3810) = lu(k,3810) - lu(k,3141) * lu(k,3798)
16410 254840160 : lu(k,3811) = lu(k,3811) - lu(k,3142) * lu(k,3798)
16411 254840160 : lu(k,3840) = lu(k,3840) - lu(k,3130) * lu(k,3839)
16412 254840160 : lu(k,3841) = lu(k,3841) - lu(k,3131) * lu(k,3839)
16413 254840160 : lu(k,3842) = lu(k,3842) - lu(k,3132) * lu(k,3839)
16414 254840160 : lu(k,3843) = lu(k,3843) - lu(k,3133) * lu(k,3839)
16415 254840160 : lu(k,3844) = lu(k,3844) - lu(k,3134) * lu(k,3839)
16416 254840160 : lu(k,3845) = lu(k,3845) - lu(k,3135) * lu(k,3839)
16417 254840160 : lu(k,3846) = lu(k,3846) - lu(k,3136) * lu(k,3839)
16418 254840160 : lu(k,3847) = lu(k,3847) - lu(k,3137) * lu(k,3839)
16419 254840160 : lu(k,3848) = lu(k,3848) - lu(k,3138) * lu(k,3839)
16420 254840160 : lu(k,3849) = lu(k,3849) - lu(k,3139) * lu(k,3839)
16421 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3140) * lu(k,3839)
16422 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3141) * lu(k,3839)
16423 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3142) * lu(k,3839)
16424 254840160 : lu(k,4090) = lu(k,4090) - lu(k,3130) * lu(k,4089)
16425 254840160 : lu(k,4091) = lu(k,4091) - lu(k,3131) * lu(k,4089)
16426 254840160 : lu(k,4092) = lu(k,4092) - lu(k,3132) * lu(k,4089)
16427 254840160 : lu(k,4093) = lu(k,4093) - lu(k,3133) * lu(k,4089)
16428 254840160 : lu(k,4094) = lu(k,4094) - lu(k,3134) * lu(k,4089)
16429 254840160 : lu(k,4095) = lu(k,4095) - lu(k,3135) * lu(k,4089)
16430 254840160 : lu(k,4096) = lu(k,4096) - lu(k,3136) * lu(k,4089)
16431 254840160 : lu(k,4097) = lu(k,4097) - lu(k,3137) * lu(k,4089)
16432 254840160 : lu(k,4098) = lu(k,4098) - lu(k,3138) * lu(k,4089)
16433 254840160 : lu(k,4099) = lu(k,4099) - lu(k,3139) * lu(k,4089)
16434 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3140) * lu(k,4089)
16435 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3141) * lu(k,4089)
16436 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3142) * lu(k,4089)
16437 254840160 : lu(k,4116) = lu(k,4116) - lu(k,3130) * lu(k,4115)
16438 254840160 : lu(k,4117) = lu(k,4117) - lu(k,3131) * lu(k,4115)
16439 254840160 : lu(k,4118) = lu(k,4118) - lu(k,3132) * lu(k,4115)
16440 254840160 : lu(k,4119) = lu(k,4119) - lu(k,3133) * lu(k,4115)
16441 254840160 : lu(k,4120) = lu(k,4120) - lu(k,3134) * lu(k,4115)
16442 254840160 : lu(k,4121) = lu(k,4121) - lu(k,3135) * lu(k,4115)
16443 254840160 : lu(k,4122) = lu(k,4122) - lu(k,3136) * lu(k,4115)
16444 254840160 : lu(k,4123) = lu(k,4123) - lu(k,3137) * lu(k,4115)
16445 254840160 : lu(k,4124) = lu(k,4124) - lu(k,3138) * lu(k,4115)
16446 254840160 : lu(k,4125) = lu(k,4125) - lu(k,3139) * lu(k,4115)
16447 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3140) * lu(k,4115)
16448 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3141) * lu(k,4115)
16449 254840160 : lu(k,4128) = lu(k,4128) - lu(k,3142) * lu(k,4115)
16450 254840160 : lu(k,3161) = 1._r8 / lu(k,3161)
16451 254840160 : lu(k,3162) = lu(k,3162) * lu(k,3161)
16452 254840160 : lu(k,3163) = lu(k,3163) * lu(k,3161)
16453 254840160 : lu(k,3164) = lu(k,3164) * lu(k,3161)
16454 254840160 : lu(k,3165) = lu(k,3165) * lu(k,3161)
16455 254840160 : lu(k,3166) = lu(k,3166) * lu(k,3161)
16456 254840160 : lu(k,3167) = lu(k,3167) * lu(k,3161)
16457 254840160 : lu(k,3168) = lu(k,3168) * lu(k,3161)
16458 254840160 : lu(k,3169) = lu(k,3169) * lu(k,3161)
16459 254840160 : lu(k,3170) = lu(k,3170) * lu(k,3161)
16460 254840160 : lu(k,3171) = lu(k,3171) * lu(k,3161)
16461 254840160 : lu(k,3172) = lu(k,3172) * lu(k,3161)
16462 254840160 : lu(k,3173) = lu(k,3173) * lu(k,3161)
16463 254840160 : lu(k,3188) = lu(k,3188) - lu(k,3162) * lu(k,3187)
16464 254840160 : lu(k,3189) = lu(k,3189) - lu(k,3163) * lu(k,3187)
16465 254840160 : lu(k,3190) = lu(k,3190) - lu(k,3164) * lu(k,3187)
16466 254840160 : lu(k,3191) = lu(k,3191) - lu(k,3165) * lu(k,3187)
16467 254840160 : lu(k,3192) = lu(k,3192) - lu(k,3166) * lu(k,3187)
16468 254840160 : lu(k,3193) = lu(k,3193) - lu(k,3167) * lu(k,3187)
16469 254840160 : lu(k,3194) = lu(k,3194) - lu(k,3168) * lu(k,3187)
16470 254840160 : lu(k,3195) = lu(k,3195) - lu(k,3169) * lu(k,3187)
16471 254840160 : lu(k,3196) = lu(k,3196) - lu(k,3170) * lu(k,3187)
16472 254840160 : lu(k,3197) = lu(k,3197) - lu(k,3171) * lu(k,3187)
16473 254840160 : lu(k,3198) = lu(k,3198) - lu(k,3172) * lu(k,3187)
16474 254840160 : lu(k,3199) = lu(k,3199) - lu(k,3173) * lu(k,3187)
16475 254840160 : lu(k,3368) = lu(k,3368) - lu(k,3162) * lu(k,3367)
16476 254840160 : lu(k,3369) = lu(k,3369) - lu(k,3163) * lu(k,3367)
16477 254840160 : lu(k,3370) = lu(k,3370) - lu(k,3164) * lu(k,3367)
16478 254840160 : lu(k,3371) = lu(k,3371) - lu(k,3165) * lu(k,3367)
16479 254840160 : lu(k,3372) = lu(k,3372) - lu(k,3166) * lu(k,3367)
16480 254840160 : lu(k,3373) = lu(k,3373) - lu(k,3167) * lu(k,3367)
16481 254840160 : lu(k,3374) = lu(k,3374) - lu(k,3168) * lu(k,3367)
16482 254840160 : lu(k,3375) = lu(k,3375) - lu(k,3169) * lu(k,3367)
16483 254840160 : lu(k,3376) = lu(k,3376) - lu(k,3170) * lu(k,3367)
16484 254840160 : lu(k,3377) = lu(k,3377) - lu(k,3171) * lu(k,3367)
16485 254840160 : lu(k,3378) = lu(k,3378) - lu(k,3172) * lu(k,3367)
16486 254840160 : lu(k,3379) = lu(k,3379) - lu(k,3173) * lu(k,3367)
16487 254840160 : lu(k,3461) = lu(k,3461) - lu(k,3162) * lu(k,3460)
16488 254840160 : lu(k,3462) = lu(k,3462) - lu(k,3163) * lu(k,3460)
16489 254840160 : lu(k,3463) = lu(k,3463) - lu(k,3164) * lu(k,3460)
16490 254840160 : lu(k,3464) = lu(k,3464) - lu(k,3165) * lu(k,3460)
16491 254840160 : lu(k,3465) = lu(k,3465) - lu(k,3166) * lu(k,3460)
16492 254840160 : lu(k,3466) = lu(k,3466) - lu(k,3167) * lu(k,3460)
16493 254840160 : lu(k,3467) = lu(k,3467) - lu(k,3168) * lu(k,3460)
16494 254840160 : lu(k,3468) = lu(k,3468) - lu(k,3169) * lu(k,3460)
16495 254840160 : lu(k,3469) = lu(k,3469) - lu(k,3170) * lu(k,3460)
16496 254840160 : lu(k,3470) = lu(k,3470) - lu(k,3171) * lu(k,3460)
16497 254840160 : lu(k,3471) = lu(k,3471) - lu(k,3172) * lu(k,3460)
16498 254840160 : lu(k,3472) = lu(k,3472) - lu(k,3173) * lu(k,3460)
16499 254840160 : lu(k,3485) = lu(k,3485) - lu(k,3162) * lu(k,3484)
16500 254840160 : lu(k,3486) = lu(k,3486) - lu(k,3163) * lu(k,3484)
16501 254840160 : lu(k,3487) = lu(k,3487) - lu(k,3164) * lu(k,3484)
16502 254840160 : lu(k,3488) = lu(k,3488) - lu(k,3165) * lu(k,3484)
16503 254840160 : lu(k,3489) = lu(k,3489) - lu(k,3166) * lu(k,3484)
16504 254840160 : lu(k,3490) = lu(k,3490) - lu(k,3167) * lu(k,3484)
16505 254840160 : lu(k,3491) = lu(k,3491) - lu(k,3168) * lu(k,3484)
16506 254840160 : lu(k,3492) = lu(k,3492) - lu(k,3169) * lu(k,3484)
16507 254840160 : lu(k,3493) = lu(k,3493) - lu(k,3170) * lu(k,3484)
16508 254840160 : lu(k,3494) = lu(k,3494) - lu(k,3171) * lu(k,3484)
16509 254840160 : lu(k,3495) = lu(k,3495) - lu(k,3172) * lu(k,3484)
16510 254840160 : lu(k,3496) = lu(k,3496) - lu(k,3173) * lu(k,3484)
16511 254840160 : lu(k,3511) = lu(k,3511) - lu(k,3162) * lu(k,3510)
16512 254840160 : lu(k,3512) = lu(k,3512) - lu(k,3163) * lu(k,3510)
16513 254840160 : lu(k,3513) = lu(k,3513) - lu(k,3164) * lu(k,3510)
16514 254840160 : lu(k,3514) = lu(k,3514) - lu(k,3165) * lu(k,3510)
16515 254840160 : lu(k,3515) = lu(k,3515) - lu(k,3166) * lu(k,3510)
16516 254840160 : lu(k,3516) = lu(k,3516) - lu(k,3167) * lu(k,3510)
16517 254840160 : lu(k,3517) = lu(k,3517) - lu(k,3168) * lu(k,3510)
16518 254840160 : lu(k,3518) = lu(k,3518) - lu(k,3169) * lu(k,3510)
16519 254840160 : lu(k,3519) = lu(k,3519) - lu(k,3170) * lu(k,3510)
16520 254840160 : lu(k,3520) = lu(k,3520) - lu(k,3171) * lu(k,3510)
16521 254840160 : lu(k,3521) = lu(k,3521) - lu(k,3172) * lu(k,3510)
16522 254840160 : lu(k,3522) = lu(k,3522) - lu(k,3173) * lu(k,3510)
16523 254840160 : lu(k,3605) = lu(k,3605) - lu(k,3162) * lu(k,3604)
16524 254840160 : lu(k,3606) = lu(k,3606) - lu(k,3163) * lu(k,3604)
16525 254840160 : lu(k,3607) = lu(k,3607) - lu(k,3164) * lu(k,3604)
16526 254840160 : lu(k,3608) = lu(k,3608) - lu(k,3165) * lu(k,3604)
16527 254840160 : lu(k,3609) = lu(k,3609) - lu(k,3166) * lu(k,3604)
16528 254840160 : lu(k,3610) = lu(k,3610) - lu(k,3167) * lu(k,3604)
16529 254840160 : lu(k,3611) = lu(k,3611) - lu(k,3168) * lu(k,3604)
16530 254840160 : lu(k,3612) = lu(k,3612) - lu(k,3169) * lu(k,3604)
16531 254840160 : lu(k,3613) = lu(k,3613) - lu(k,3170) * lu(k,3604)
16532 254840160 : lu(k,3614) = lu(k,3614) - lu(k,3171) * lu(k,3604)
16533 254840160 : lu(k,3615) = lu(k,3615) - lu(k,3172) * lu(k,3604)
16534 254840160 : lu(k,3616) = lu(k,3616) - lu(k,3173) * lu(k,3604)
16535 254840160 : lu(k,3657) = lu(k,3657) - lu(k,3162) * lu(k,3656)
16536 254840160 : lu(k,3658) = lu(k,3658) - lu(k,3163) * lu(k,3656)
16537 254840160 : lu(k,3659) = lu(k,3659) - lu(k,3164) * lu(k,3656)
16538 254840160 : lu(k,3660) = lu(k,3660) - lu(k,3165) * lu(k,3656)
16539 254840160 : lu(k,3661) = lu(k,3661) - lu(k,3166) * lu(k,3656)
16540 254840160 : lu(k,3662) = lu(k,3662) - lu(k,3167) * lu(k,3656)
16541 254840160 : lu(k,3663) = lu(k,3663) - lu(k,3168) * lu(k,3656)
16542 254840160 : lu(k,3664) = lu(k,3664) - lu(k,3169) * lu(k,3656)
16543 254840160 : lu(k,3665) = lu(k,3665) - lu(k,3170) * lu(k,3656)
16544 254840160 : lu(k,3666) = lu(k,3666) - lu(k,3171) * lu(k,3656)
16545 254840160 : lu(k,3667) = lu(k,3667) - lu(k,3172) * lu(k,3656)
16546 254840160 : lu(k,3668) = lu(k,3668) - lu(k,3173) * lu(k,3656)
16547 254840160 : lu(k,3759) = lu(k,3759) - lu(k,3162) * lu(k,3758)
16548 254840160 : lu(k,3760) = lu(k,3760) - lu(k,3163) * lu(k,3758)
16549 254840160 : lu(k,3761) = lu(k,3761) - lu(k,3164) * lu(k,3758)
16550 254840160 : lu(k,3762) = lu(k,3762) - lu(k,3165) * lu(k,3758)
16551 254840160 : lu(k,3763) = lu(k,3763) - lu(k,3166) * lu(k,3758)
16552 254840160 : lu(k,3764) = lu(k,3764) - lu(k,3167) * lu(k,3758)
16553 254840160 : lu(k,3765) = lu(k,3765) - lu(k,3168) * lu(k,3758)
16554 254840160 : lu(k,3766) = lu(k,3766) - lu(k,3169) * lu(k,3758)
16555 254840160 : lu(k,3767) = lu(k,3767) - lu(k,3170) * lu(k,3758)
16556 254840160 : lu(k,3768) = lu(k,3768) - lu(k,3171) * lu(k,3758)
16557 254840160 : lu(k,3769) = lu(k,3769) - lu(k,3172) * lu(k,3758)
16558 254840160 : lu(k,3770) = lu(k,3770) - lu(k,3173) * lu(k,3758)
16559 254840160 : lu(k,3800) = lu(k,3800) - lu(k,3162) * lu(k,3799)
16560 254840160 : lu(k,3801) = lu(k,3801) - lu(k,3163) * lu(k,3799)
16561 254840160 : lu(k,3802) = lu(k,3802) - lu(k,3164) * lu(k,3799)
16562 254840160 : lu(k,3803) = lu(k,3803) - lu(k,3165) * lu(k,3799)
16563 254840160 : lu(k,3804) = lu(k,3804) - lu(k,3166) * lu(k,3799)
16564 254840160 : lu(k,3805) = lu(k,3805) - lu(k,3167) * lu(k,3799)
16565 254840160 : lu(k,3806) = lu(k,3806) - lu(k,3168) * lu(k,3799)
16566 254840160 : lu(k,3807) = lu(k,3807) - lu(k,3169) * lu(k,3799)
16567 254840160 : lu(k,3808) = lu(k,3808) - lu(k,3170) * lu(k,3799)
16568 254840160 : lu(k,3809) = lu(k,3809) - lu(k,3171) * lu(k,3799)
16569 254840160 : lu(k,3810) = lu(k,3810) - lu(k,3172) * lu(k,3799)
16570 254840160 : lu(k,3811) = lu(k,3811) - lu(k,3173) * lu(k,3799)
16571 254840160 : lu(k,3841) = lu(k,3841) - lu(k,3162) * lu(k,3840)
16572 254840160 : lu(k,3842) = lu(k,3842) - lu(k,3163) * lu(k,3840)
16573 254840160 : lu(k,3843) = lu(k,3843) - lu(k,3164) * lu(k,3840)
16574 254840160 : lu(k,3844) = lu(k,3844) - lu(k,3165) * lu(k,3840)
16575 254840160 : lu(k,3845) = lu(k,3845) - lu(k,3166) * lu(k,3840)
16576 254840160 : lu(k,3846) = lu(k,3846) - lu(k,3167) * lu(k,3840)
16577 254840160 : lu(k,3847) = lu(k,3847) - lu(k,3168) * lu(k,3840)
16578 254840160 : lu(k,3848) = lu(k,3848) - lu(k,3169) * lu(k,3840)
16579 254840160 : lu(k,3849) = lu(k,3849) - lu(k,3170) * lu(k,3840)
16580 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3171) * lu(k,3840)
16581 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3172) * lu(k,3840)
16582 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3173) * lu(k,3840)
16583 254840160 : lu(k,4091) = lu(k,4091) - lu(k,3162) * lu(k,4090)
16584 254840160 : lu(k,4092) = lu(k,4092) - lu(k,3163) * lu(k,4090)
16585 254840160 : lu(k,4093) = lu(k,4093) - lu(k,3164) * lu(k,4090)
16586 254840160 : lu(k,4094) = lu(k,4094) - lu(k,3165) * lu(k,4090)
16587 254840160 : lu(k,4095) = lu(k,4095) - lu(k,3166) * lu(k,4090)
16588 254840160 : lu(k,4096) = lu(k,4096) - lu(k,3167) * lu(k,4090)
16589 254840160 : lu(k,4097) = lu(k,4097) - lu(k,3168) * lu(k,4090)
16590 254840160 : lu(k,4098) = lu(k,4098) - lu(k,3169) * lu(k,4090)
16591 254840160 : lu(k,4099) = lu(k,4099) - lu(k,3170) * lu(k,4090)
16592 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3171) * lu(k,4090)
16593 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3172) * lu(k,4090)
16594 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3173) * lu(k,4090)
16595 254840160 : lu(k,4117) = lu(k,4117) - lu(k,3162) * lu(k,4116)
16596 254840160 : lu(k,4118) = lu(k,4118) - lu(k,3163) * lu(k,4116)
16597 254840160 : lu(k,4119) = lu(k,4119) - lu(k,3164) * lu(k,4116)
16598 254840160 : lu(k,4120) = lu(k,4120) - lu(k,3165) * lu(k,4116)
16599 254840160 : lu(k,4121) = lu(k,4121) - lu(k,3166) * lu(k,4116)
16600 254840160 : lu(k,4122) = lu(k,4122) - lu(k,3167) * lu(k,4116)
16601 254840160 : lu(k,4123) = lu(k,4123) - lu(k,3168) * lu(k,4116)
16602 254840160 : lu(k,4124) = lu(k,4124) - lu(k,3169) * lu(k,4116)
16603 254840160 : lu(k,4125) = lu(k,4125) - lu(k,3170) * lu(k,4116)
16604 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3171) * lu(k,4116)
16605 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3172) * lu(k,4116)
16606 254840160 : lu(k,4128) = lu(k,4128) - lu(k,3173) * lu(k,4116)
16607 254840160 : lu(k,3188) = 1._r8 / lu(k,3188)
16608 254840160 : lu(k,3189) = lu(k,3189) * lu(k,3188)
16609 254840160 : lu(k,3190) = lu(k,3190) * lu(k,3188)
16610 254840160 : lu(k,3191) = lu(k,3191) * lu(k,3188)
16611 254840160 : lu(k,3192) = lu(k,3192) * lu(k,3188)
16612 254840160 : lu(k,3193) = lu(k,3193) * lu(k,3188)
16613 254840160 : lu(k,3194) = lu(k,3194) * lu(k,3188)
16614 254840160 : lu(k,3195) = lu(k,3195) * lu(k,3188)
16615 254840160 : lu(k,3196) = lu(k,3196) * lu(k,3188)
16616 254840160 : lu(k,3197) = lu(k,3197) * lu(k,3188)
16617 254840160 : lu(k,3198) = lu(k,3198) * lu(k,3188)
16618 254840160 : lu(k,3199) = lu(k,3199) * lu(k,3188)
16619 254840160 : lu(k,3369) = lu(k,3369) - lu(k,3189) * lu(k,3368)
16620 254840160 : lu(k,3370) = lu(k,3370) - lu(k,3190) * lu(k,3368)
16621 254840160 : lu(k,3371) = lu(k,3371) - lu(k,3191) * lu(k,3368)
16622 254840160 : lu(k,3372) = lu(k,3372) - lu(k,3192) * lu(k,3368)
16623 254840160 : lu(k,3373) = lu(k,3373) - lu(k,3193) * lu(k,3368)
16624 254840160 : lu(k,3374) = lu(k,3374) - lu(k,3194) * lu(k,3368)
16625 254840160 : lu(k,3375) = lu(k,3375) - lu(k,3195) * lu(k,3368)
16626 254840160 : lu(k,3376) = lu(k,3376) - lu(k,3196) * lu(k,3368)
16627 254840160 : lu(k,3377) = lu(k,3377) - lu(k,3197) * lu(k,3368)
16628 254840160 : lu(k,3378) = lu(k,3378) - lu(k,3198) * lu(k,3368)
16629 254840160 : lu(k,3379) = lu(k,3379) - lu(k,3199) * lu(k,3368)
16630 254840160 : lu(k,3462) = lu(k,3462) - lu(k,3189) * lu(k,3461)
16631 254840160 : lu(k,3463) = lu(k,3463) - lu(k,3190) * lu(k,3461)
16632 254840160 : lu(k,3464) = lu(k,3464) - lu(k,3191) * lu(k,3461)
16633 254840160 : lu(k,3465) = lu(k,3465) - lu(k,3192) * lu(k,3461)
16634 254840160 : lu(k,3466) = lu(k,3466) - lu(k,3193) * lu(k,3461)
16635 254840160 : lu(k,3467) = lu(k,3467) - lu(k,3194) * lu(k,3461)
16636 254840160 : lu(k,3468) = lu(k,3468) - lu(k,3195) * lu(k,3461)
16637 254840160 : lu(k,3469) = lu(k,3469) - lu(k,3196) * lu(k,3461)
16638 254840160 : lu(k,3470) = lu(k,3470) - lu(k,3197) * lu(k,3461)
16639 254840160 : lu(k,3471) = lu(k,3471) - lu(k,3198) * lu(k,3461)
16640 254840160 : lu(k,3472) = lu(k,3472) - lu(k,3199) * lu(k,3461)
16641 254840160 : lu(k,3486) = lu(k,3486) - lu(k,3189) * lu(k,3485)
16642 254840160 : lu(k,3487) = lu(k,3487) - lu(k,3190) * lu(k,3485)
16643 254840160 : lu(k,3488) = lu(k,3488) - lu(k,3191) * lu(k,3485)
16644 254840160 : lu(k,3489) = lu(k,3489) - lu(k,3192) * lu(k,3485)
16645 254840160 : lu(k,3490) = lu(k,3490) - lu(k,3193) * lu(k,3485)
16646 254840160 : lu(k,3491) = lu(k,3491) - lu(k,3194) * lu(k,3485)
16647 254840160 : lu(k,3492) = lu(k,3492) - lu(k,3195) * lu(k,3485)
16648 254840160 : lu(k,3493) = lu(k,3493) - lu(k,3196) * lu(k,3485)
16649 254840160 : lu(k,3494) = lu(k,3494) - lu(k,3197) * lu(k,3485)
16650 254840160 : lu(k,3495) = lu(k,3495) - lu(k,3198) * lu(k,3485)
16651 254840160 : lu(k,3496) = lu(k,3496) - lu(k,3199) * lu(k,3485)
16652 254840160 : lu(k,3512) = lu(k,3512) - lu(k,3189) * lu(k,3511)
16653 254840160 : lu(k,3513) = lu(k,3513) - lu(k,3190) * lu(k,3511)
16654 254840160 : lu(k,3514) = lu(k,3514) - lu(k,3191) * lu(k,3511)
16655 254840160 : lu(k,3515) = lu(k,3515) - lu(k,3192) * lu(k,3511)
16656 254840160 : lu(k,3516) = lu(k,3516) - lu(k,3193) * lu(k,3511)
16657 254840160 : lu(k,3517) = lu(k,3517) - lu(k,3194) * lu(k,3511)
16658 254840160 : lu(k,3518) = lu(k,3518) - lu(k,3195) * lu(k,3511)
16659 254840160 : lu(k,3519) = lu(k,3519) - lu(k,3196) * lu(k,3511)
16660 254840160 : lu(k,3520) = lu(k,3520) - lu(k,3197) * lu(k,3511)
16661 254840160 : lu(k,3521) = lu(k,3521) - lu(k,3198) * lu(k,3511)
16662 254840160 : lu(k,3522) = lu(k,3522) - lu(k,3199) * lu(k,3511)
16663 254840160 : lu(k,3606) = lu(k,3606) - lu(k,3189) * lu(k,3605)
16664 254840160 : lu(k,3607) = lu(k,3607) - lu(k,3190) * lu(k,3605)
16665 254840160 : lu(k,3608) = lu(k,3608) - lu(k,3191) * lu(k,3605)
16666 254840160 : lu(k,3609) = lu(k,3609) - lu(k,3192) * lu(k,3605)
16667 254840160 : lu(k,3610) = lu(k,3610) - lu(k,3193) * lu(k,3605)
16668 254840160 : lu(k,3611) = lu(k,3611) - lu(k,3194) * lu(k,3605)
16669 254840160 : lu(k,3612) = lu(k,3612) - lu(k,3195) * lu(k,3605)
16670 254840160 : lu(k,3613) = lu(k,3613) - lu(k,3196) * lu(k,3605)
16671 254840160 : lu(k,3614) = lu(k,3614) - lu(k,3197) * lu(k,3605)
16672 254840160 : lu(k,3615) = lu(k,3615) - lu(k,3198) * lu(k,3605)
16673 254840160 : lu(k,3616) = lu(k,3616) - lu(k,3199) * lu(k,3605)
16674 254840160 : lu(k,3658) = lu(k,3658) - lu(k,3189) * lu(k,3657)
16675 254840160 : lu(k,3659) = lu(k,3659) - lu(k,3190) * lu(k,3657)
16676 254840160 : lu(k,3660) = lu(k,3660) - lu(k,3191) * lu(k,3657)
16677 254840160 : lu(k,3661) = lu(k,3661) - lu(k,3192) * lu(k,3657)
16678 254840160 : lu(k,3662) = lu(k,3662) - lu(k,3193) * lu(k,3657)
16679 254840160 : lu(k,3663) = lu(k,3663) - lu(k,3194) * lu(k,3657)
16680 254840160 : lu(k,3664) = lu(k,3664) - lu(k,3195) * lu(k,3657)
16681 254840160 : lu(k,3665) = lu(k,3665) - lu(k,3196) * lu(k,3657)
16682 254840160 : lu(k,3666) = lu(k,3666) - lu(k,3197) * lu(k,3657)
16683 254840160 : lu(k,3667) = lu(k,3667) - lu(k,3198) * lu(k,3657)
16684 254840160 : lu(k,3668) = lu(k,3668) - lu(k,3199) * lu(k,3657)
16685 254840160 : lu(k,3760) = lu(k,3760) - lu(k,3189) * lu(k,3759)
16686 254840160 : lu(k,3761) = lu(k,3761) - lu(k,3190) * lu(k,3759)
16687 254840160 : lu(k,3762) = lu(k,3762) - lu(k,3191) * lu(k,3759)
16688 254840160 : lu(k,3763) = lu(k,3763) - lu(k,3192) * lu(k,3759)
16689 254840160 : lu(k,3764) = lu(k,3764) - lu(k,3193) * lu(k,3759)
16690 254840160 : lu(k,3765) = lu(k,3765) - lu(k,3194) * lu(k,3759)
16691 254840160 : lu(k,3766) = lu(k,3766) - lu(k,3195) * lu(k,3759)
16692 254840160 : lu(k,3767) = lu(k,3767) - lu(k,3196) * lu(k,3759)
16693 254840160 : lu(k,3768) = lu(k,3768) - lu(k,3197) * lu(k,3759)
16694 254840160 : lu(k,3769) = lu(k,3769) - lu(k,3198) * lu(k,3759)
16695 254840160 : lu(k,3770) = lu(k,3770) - lu(k,3199) * lu(k,3759)
16696 254840160 : lu(k,3801) = lu(k,3801) - lu(k,3189) * lu(k,3800)
16697 254840160 : lu(k,3802) = lu(k,3802) - lu(k,3190) * lu(k,3800)
16698 254840160 : lu(k,3803) = lu(k,3803) - lu(k,3191) * lu(k,3800)
16699 254840160 : lu(k,3804) = lu(k,3804) - lu(k,3192) * lu(k,3800)
16700 254840160 : lu(k,3805) = lu(k,3805) - lu(k,3193) * lu(k,3800)
16701 254840160 : lu(k,3806) = lu(k,3806) - lu(k,3194) * lu(k,3800)
16702 254840160 : lu(k,3807) = lu(k,3807) - lu(k,3195) * lu(k,3800)
16703 254840160 : lu(k,3808) = lu(k,3808) - lu(k,3196) * lu(k,3800)
16704 254840160 : lu(k,3809) = lu(k,3809) - lu(k,3197) * lu(k,3800)
16705 254840160 : lu(k,3810) = lu(k,3810) - lu(k,3198) * lu(k,3800)
16706 254840160 : lu(k,3811) = lu(k,3811) - lu(k,3199) * lu(k,3800)
16707 254840160 : lu(k,3842) = lu(k,3842) - lu(k,3189) * lu(k,3841)
16708 254840160 : lu(k,3843) = lu(k,3843) - lu(k,3190) * lu(k,3841)
16709 254840160 : lu(k,3844) = lu(k,3844) - lu(k,3191) * lu(k,3841)
16710 254840160 : lu(k,3845) = lu(k,3845) - lu(k,3192) * lu(k,3841)
16711 254840160 : lu(k,3846) = lu(k,3846) - lu(k,3193) * lu(k,3841)
16712 254840160 : lu(k,3847) = lu(k,3847) - lu(k,3194) * lu(k,3841)
16713 254840160 : lu(k,3848) = lu(k,3848) - lu(k,3195) * lu(k,3841)
16714 254840160 : lu(k,3849) = lu(k,3849) - lu(k,3196) * lu(k,3841)
16715 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3197) * lu(k,3841)
16716 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3198) * lu(k,3841)
16717 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3199) * lu(k,3841)
16718 254840160 : lu(k,4092) = lu(k,4092) - lu(k,3189) * lu(k,4091)
16719 254840160 : lu(k,4093) = lu(k,4093) - lu(k,3190) * lu(k,4091)
16720 254840160 : lu(k,4094) = lu(k,4094) - lu(k,3191) * lu(k,4091)
16721 254840160 : lu(k,4095) = lu(k,4095) - lu(k,3192) * lu(k,4091)
16722 254840160 : lu(k,4096) = lu(k,4096) - lu(k,3193) * lu(k,4091)
16723 254840160 : lu(k,4097) = lu(k,4097) - lu(k,3194) * lu(k,4091)
16724 254840160 : lu(k,4098) = lu(k,4098) - lu(k,3195) * lu(k,4091)
16725 254840160 : lu(k,4099) = lu(k,4099) - lu(k,3196) * lu(k,4091)
16726 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3197) * lu(k,4091)
16727 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3198) * lu(k,4091)
16728 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3199) * lu(k,4091)
16729 254840160 : lu(k,4118) = lu(k,4118) - lu(k,3189) * lu(k,4117)
16730 254840160 : lu(k,4119) = lu(k,4119) - lu(k,3190) * lu(k,4117)
16731 254840160 : lu(k,4120) = lu(k,4120) - lu(k,3191) * lu(k,4117)
16732 254840160 : lu(k,4121) = lu(k,4121) - lu(k,3192) * lu(k,4117)
16733 254840160 : lu(k,4122) = lu(k,4122) - lu(k,3193) * lu(k,4117)
16734 254840160 : lu(k,4123) = lu(k,4123) - lu(k,3194) * lu(k,4117)
16735 254840160 : lu(k,4124) = lu(k,4124) - lu(k,3195) * lu(k,4117)
16736 254840160 : lu(k,4125) = lu(k,4125) - lu(k,3196) * lu(k,4117)
16737 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3197) * lu(k,4117)
16738 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3198) * lu(k,4117)
16739 263009123 : lu(k,4128) = lu(k,4128) - lu(k,3199) * lu(k,4117)
16740 : end do
16741 8168963 : end subroutine lu_fac53
16742 8168963 : subroutine lu_fac54( avec_len, lu )
16743 : use chem_mods, only : nzcnt
16744 : use shr_kind_mod, only : r8 => shr_kind_r8
16745 : implicit none
16746 : !-----------------------------------------------------------------------
16747 : ! ... dummy args
16748 : !-----------------------------------------------------------------------
16749 : integer, intent(in) :: avec_len
16750 : real(r8), intent(inout) :: lu(veclen,nzcnt)
16751 : !-----------------------------------------------------------------------
16752 : ! ... local variables
16753 : !-----------------------------------------------------------------------
16754 : integer :: k
16755 263009123 : do k = 1,avec_len
16756 254840160 : lu(k,3369) = 1._r8 / lu(k,3369)
16757 254840160 : lu(k,3370) = lu(k,3370) * lu(k,3369)
16758 254840160 : lu(k,3371) = lu(k,3371) * lu(k,3369)
16759 254840160 : lu(k,3372) = lu(k,3372) * lu(k,3369)
16760 254840160 : lu(k,3373) = lu(k,3373) * lu(k,3369)
16761 254840160 : lu(k,3374) = lu(k,3374) * lu(k,3369)
16762 254840160 : lu(k,3375) = lu(k,3375) * lu(k,3369)
16763 254840160 : lu(k,3376) = lu(k,3376) * lu(k,3369)
16764 254840160 : lu(k,3377) = lu(k,3377) * lu(k,3369)
16765 254840160 : lu(k,3378) = lu(k,3378) * lu(k,3369)
16766 254840160 : lu(k,3379) = lu(k,3379) * lu(k,3369)
16767 254840160 : lu(k,3463) = lu(k,3463) - lu(k,3370) * lu(k,3462)
16768 254840160 : lu(k,3464) = lu(k,3464) - lu(k,3371) * lu(k,3462)
16769 254840160 : lu(k,3465) = lu(k,3465) - lu(k,3372) * lu(k,3462)
16770 254840160 : lu(k,3466) = lu(k,3466) - lu(k,3373) * lu(k,3462)
16771 254840160 : lu(k,3467) = lu(k,3467) - lu(k,3374) * lu(k,3462)
16772 254840160 : lu(k,3468) = lu(k,3468) - lu(k,3375) * lu(k,3462)
16773 254840160 : lu(k,3469) = lu(k,3469) - lu(k,3376) * lu(k,3462)
16774 254840160 : lu(k,3470) = lu(k,3470) - lu(k,3377) * lu(k,3462)
16775 254840160 : lu(k,3471) = lu(k,3471) - lu(k,3378) * lu(k,3462)
16776 254840160 : lu(k,3472) = lu(k,3472) - lu(k,3379) * lu(k,3462)
16777 254840160 : lu(k,3487) = lu(k,3487) - lu(k,3370) * lu(k,3486)
16778 254840160 : lu(k,3488) = lu(k,3488) - lu(k,3371) * lu(k,3486)
16779 254840160 : lu(k,3489) = lu(k,3489) - lu(k,3372) * lu(k,3486)
16780 254840160 : lu(k,3490) = lu(k,3490) - lu(k,3373) * lu(k,3486)
16781 254840160 : lu(k,3491) = lu(k,3491) - lu(k,3374) * lu(k,3486)
16782 254840160 : lu(k,3492) = lu(k,3492) - lu(k,3375) * lu(k,3486)
16783 254840160 : lu(k,3493) = lu(k,3493) - lu(k,3376) * lu(k,3486)
16784 254840160 : lu(k,3494) = lu(k,3494) - lu(k,3377) * lu(k,3486)
16785 254840160 : lu(k,3495) = lu(k,3495) - lu(k,3378) * lu(k,3486)
16786 254840160 : lu(k,3496) = lu(k,3496) - lu(k,3379) * lu(k,3486)
16787 254840160 : lu(k,3513) = lu(k,3513) - lu(k,3370) * lu(k,3512)
16788 254840160 : lu(k,3514) = lu(k,3514) - lu(k,3371) * lu(k,3512)
16789 254840160 : lu(k,3515) = lu(k,3515) - lu(k,3372) * lu(k,3512)
16790 254840160 : lu(k,3516) = lu(k,3516) - lu(k,3373) * lu(k,3512)
16791 254840160 : lu(k,3517) = lu(k,3517) - lu(k,3374) * lu(k,3512)
16792 254840160 : lu(k,3518) = lu(k,3518) - lu(k,3375) * lu(k,3512)
16793 254840160 : lu(k,3519) = lu(k,3519) - lu(k,3376) * lu(k,3512)
16794 254840160 : lu(k,3520) = lu(k,3520) - lu(k,3377) * lu(k,3512)
16795 254840160 : lu(k,3521) = lu(k,3521) - lu(k,3378) * lu(k,3512)
16796 254840160 : lu(k,3522) = lu(k,3522) - lu(k,3379) * lu(k,3512)
16797 254840160 : lu(k,3607) = lu(k,3607) - lu(k,3370) * lu(k,3606)
16798 254840160 : lu(k,3608) = lu(k,3608) - lu(k,3371) * lu(k,3606)
16799 254840160 : lu(k,3609) = lu(k,3609) - lu(k,3372) * lu(k,3606)
16800 254840160 : lu(k,3610) = lu(k,3610) - lu(k,3373) * lu(k,3606)
16801 254840160 : lu(k,3611) = lu(k,3611) - lu(k,3374) * lu(k,3606)
16802 254840160 : lu(k,3612) = lu(k,3612) - lu(k,3375) * lu(k,3606)
16803 254840160 : lu(k,3613) = lu(k,3613) - lu(k,3376) * lu(k,3606)
16804 254840160 : lu(k,3614) = lu(k,3614) - lu(k,3377) * lu(k,3606)
16805 254840160 : lu(k,3615) = lu(k,3615) - lu(k,3378) * lu(k,3606)
16806 254840160 : lu(k,3616) = lu(k,3616) - lu(k,3379) * lu(k,3606)
16807 254840160 : lu(k,3659) = lu(k,3659) - lu(k,3370) * lu(k,3658)
16808 254840160 : lu(k,3660) = lu(k,3660) - lu(k,3371) * lu(k,3658)
16809 254840160 : lu(k,3661) = lu(k,3661) - lu(k,3372) * lu(k,3658)
16810 254840160 : lu(k,3662) = lu(k,3662) - lu(k,3373) * lu(k,3658)
16811 254840160 : lu(k,3663) = lu(k,3663) - lu(k,3374) * lu(k,3658)
16812 254840160 : lu(k,3664) = lu(k,3664) - lu(k,3375) * lu(k,3658)
16813 254840160 : lu(k,3665) = lu(k,3665) - lu(k,3376) * lu(k,3658)
16814 254840160 : lu(k,3666) = lu(k,3666) - lu(k,3377) * lu(k,3658)
16815 254840160 : lu(k,3667) = lu(k,3667) - lu(k,3378) * lu(k,3658)
16816 254840160 : lu(k,3668) = lu(k,3668) - lu(k,3379) * lu(k,3658)
16817 254840160 : lu(k,3761) = lu(k,3761) - lu(k,3370) * lu(k,3760)
16818 254840160 : lu(k,3762) = lu(k,3762) - lu(k,3371) * lu(k,3760)
16819 254840160 : lu(k,3763) = lu(k,3763) - lu(k,3372) * lu(k,3760)
16820 254840160 : lu(k,3764) = lu(k,3764) - lu(k,3373) * lu(k,3760)
16821 254840160 : lu(k,3765) = lu(k,3765) - lu(k,3374) * lu(k,3760)
16822 254840160 : lu(k,3766) = lu(k,3766) - lu(k,3375) * lu(k,3760)
16823 254840160 : lu(k,3767) = lu(k,3767) - lu(k,3376) * lu(k,3760)
16824 254840160 : lu(k,3768) = lu(k,3768) - lu(k,3377) * lu(k,3760)
16825 254840160 : lu(k,3769) = lu(k,3769) - lu(k,3378) * lu(k,3760)
16826 254840160 : lu(k,3770) = lu(k,3770) - lu(k,3379) * lu(k,3760)
16827 254840160 : lu(k,3802) = lu(k,3802) - lu(k,3370) * lu(k,3801)
16828 254840160 : lu(k,3803) = lu(k,3803) - lu(k,3371) * lu(k,3801)
16829 254840160 : lu(k,3804) = lu(k,3804) - lu(k,3372) * lu(k,3801)
16830 254840160 : lu(k,3805) = lu(k,3805) - lu(k,3373) * lu(k,3801)
16831 254840160 : lu(k,3806) = lu(k,3806) - lu(k,3374) * lu(k,3801)
16832 254840160 : lu(k,3807) = lu(k,3807) - lu(k,3375) * lu(k,3801)
16833 254840160 : lu(k,3808) = lu(k,3808) - lu(k,3376) * lu(k,3801)
16834 254840160 : lu(k,3809) = lu(k,3809) - lu(k,3377) * lu(k,3801)
16835 254840160 : lu(k,3810) = lu(k,3810) - lu(k,3378) * lu(k,3801)
16836 254840160 : lu(k,3811) = lu(k,3811) - lu(k,3379) * lu(k,3801)
16837 254840160 : lu(k,3843) = lu(k,3843) - lu(k,3370) * lu(k,3842)
16838 254840160 : lu(k,3844) = lu(k,3844) - lu(k,3371) * lu(k,3842)
16839 254840160 : lu(k,3845) = lu(k,3845) - lu(k,3372) * lu(k,3842)
16840 254840160 : lu(k,3846) = lu(k,3846) - lu(k,3373) * lu(k,3842)
16841 254840160 : lu(k,3847) = lu(k,3847) - lu(k,3374) * lu(k,3842)
16842 254840160 : lu(k,3848) = lu(k,3848) - lu(k,3375) * lu(k,3842)
16843 254840160 : lu(k,3849) = lu(k,3849) - lu(k,3376) * lu(k,3842)
16844 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3377) * lu(k,3842)
16845 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3378) * lu(k,3842)
16846 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3379) * lu(k,3842)
16847 254840160 : lu(k,4093) = lu(k,4093) - lu(k,3370) * lu(k,4092)
16848 254840160 : lu(k,4094) = lu(k,4094) - lu(k,3371) * lu(k,4092)
16849 254840160 : lu(k,4095) = lu(k,4095) - lu(k,3372) * lu(k,4092)
16850 254840160 : lu(k,4096) = lu(k,4096) - lu(k,3373) * lu(k,4092)
16851 254840160 : lu(k,4097) = lu(k,4097) - lu(k,3374) * lu(k,4092)
16852 254840160 : lu(k,4098) = lu(k,4098) - lu(k,3375) * lu(k,4092)
16853 254840160 : lu(k,4099) = lu(k,4099) - lu(k,3376) * lu(k,4092)
16854 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3377) * lu(k,4092)
16855 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3378) * lu(k,4092)
16856 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3379) * lu(k,4092)
16857 254840160 : lu(k,4119) = lu(k,4119) - lu(k,3370) * lu(k,4118)
16858 254840160 : lu(k,4120) = lu(k,4120) - lu(k,3371) * lu(k,4118)
16859 254840160 : lu(k,4121) = lu(k,4121) - lu(k,3372) * lu(k,4118)
16860 254840160 : lu(k,4122) = lu(k,4122) - lu(k,3373) * lu(k,4118)
16861 254840160 : lu(k,4123) = lu(k,4123) - lu(k,3374) * lu(k,4118)
16862 254840160 : lu(k,4124) = lu(k,4124) - lu(k,3375) * lu(k,4118)
16863 254840160 : lu(k,4125) = lu(k,4125) - lu(k,3376) * lu(k,4118)
16864 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3377) * lu(k,4118)
16865 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3378) * lu(k,4118)
16866 254840160 : lu(k,4128) = lu(k,4128) - lu(k,3379) * lu(k,4118)
16867 254840160 : lu(k,3463) = 1._r8 / lu(k,3463)
16868 254840160 : lu(k,3464) = lu(k,3464) * lu(k,3463)
16869 254840160 : lu(k,3465) = lu(k,3465) * lu(k,3463)
16870 254840160 : lu(k,3466) = lu(k,3466) * lu(k,3463)
16871 254840160 : lu(k,3467) = lu(k,3467) * lu(k,3463)
16872 254840160 : lu(k,3468) = lu(k,3468) * lu(k,3463)
16873 254840160 : lu(k,3469) = lu(k,3469) * lu(k,3463)
16874 254840160 : lu(k,3470) = lu(k,3470) * lu(k,3463)
16875 254840160 : lu(k,3471) = lu(k,3471) * lu(k,3463)
16876 254840160 : lu(k,3472) = lu(k,3472) * lu(k,3463)
16877 254840160 : lu(k,3488) = lu(k,3488) - lu(k,3464) * lu(k,3487)
16878 254840160 : lu(k,3489) = lu(k,3489) - lu(k,3465) * lu(k,3487)
16879 254840160 : lu(k,3490) = lu(k,3490) - lu(k,3466) * lu(k,3487)
16880 254840160 : lu(k,3491) = lu(k,3491) - lu(k,3467) * lu(k,3487)
16881 254840160 : lu(k,3492) = lu(k,3492) - lu(k,3468) * lu(k,3487)
16882 254840160 : lu(k,3493) = lu(k,3493) - lu(k,3469) * lu(k,3487)
16883 254840160 : lu(k,3494) = lu(k,3494) - lu(k,3470) * lu(k,3487)
16884 254840160 : lu(k,3495) = lu(k,3495) - lu(k,3471) * lu(k,3487)
16885 254840160 : lu(k,3496) = lu(k,3496) - lu(k,3472) * lu(k,3487)
16886 254840160 : lu(k,3514) = lu(k,3514) - lu(k,3464) * lu(k,3513)
16887 254840160 : lu(k,3515) = lu(k,3515) - lu(k,3465) * lu(k,3513)
16888 254840160 : lu(k,3516) = lu(k,3516) - lu(k,3466) * lu(k,3513)
16889 254840160 : lu(k,3517) = lu(k,3517) - lu(k,3467) * lu(k,3513)
16890 254840160 : lu(k,3518) = lu(k,3518) - lu(k,3468) * lu(k,3513)
16891 254840160 : lu(k,3519) = lu(k,3519) - lu(k,3469) * lu(k,3513)
16892 254840160 : lu(k,3520) = lu(k,3520) - lu(k,3470) * lu(k,3513)
16893 254840160 : lu(k,3521) = lu(k,3521) - lu(k,3471) * lu(k,3513)
16894 254840160 : lu(k,3522) = lu(k,3522) - lu(k,3472) * lu(k,3513)
16895 254840160 : lu(k,3608) = lu(k,3608) - lu(k,3464) * lu(k,3607)
16896 254840160 : lu(k,3609) = lu(k,3609) - lu(k,3465) * lu(k,3607)
16897 254840160 : lu(k,3610) = lu(k,3610) - lu(k,3466) * lu(k,3607)
16898 254840160 : lu(k,3611) = lu(k,3611) - lu(k,3467) * lu(k,3607)
16899 254840160 : lu(k,3612) = lu(k,3612) - lu(k,3468) * lu(k,3607)
16900 254840160 : lu(k,3613) = lu(k,3613) - lu(k,3469) * lu(k,3607)
16901 254840160 : lu(k,3614) = lu(k,3614) - lu(k,3470) * lu(k,3607)
16902 254840160 : lu(k,3615) = lu(k,3615) - lu(k,3471) * lu(k,3607)
16903 254840160 : lu(k,3616) = lu(k,3616) - lu(k,3472) * lu(k,3607)
16904 254840160 : lu(k,3660) = lu(k,3660) - lu(k,3464) * lu(k,3659)
16905 254840160 : lu(k,3661) = lu(k,3661) - lu(k,3465) * lu(k,3659)
16906 254840160 : lu(k,3662) = lu(k,3662) - lu(k,3466) * lu(k,3659)
16907 254840160 : lu(k,3663) = lu(k,3663) - lu(k,3467) * lu(k,3659)
16908 254840160 : lu(k,3664) = lu(k,3664) - lu(k,3468) * lu(k,3659)
16909 254840160 : lu(k,3665) = lu(k,3665) - lu(k,3469) * lu(k,3659)
16910 254840160 : lu(k,3666) = lu(k,3666) - lu(k,3470) * lu(k,3659)
16911 254840160 : lu(k,3667) = lu(k,3667) - lu(k,3471) * lu(k,3659)
16912 254840160 : lu(k,3668) = lu(k,3668) - lu(k,3472) * lu(k,3659)
16913 254840160 : lu(k,3762) = lu(k,3762) - lu(k,3464) * lu(k,3761)
16914 254840160 : lu(k,3763) = lu(k,3763) - lu(k,3465) * lu(k,3761)
16915 254840160 : lu(k,3764) = lu(k,3764) - lu(k,3466) * lu(k,3761)
16916 254840160 : lu(k,3765) = lu(k,3765) - lu(k,3467) * lu(k,3761)
16917 254840160 : lu(k,3766) = lu(k,3766) - lu(k,3468) * lu(k,3761)
16918 254840160 : lu(k,3767) = lu(k,3767) - lu(k,3469) * lu(k,3761)
16919 254840160 : lu(k,3768) = lu(k,3768) - lu(k,3470) * lu(k,3761)
16920 254840160 : lu(k,3769) = lu(k,3769) - lu(k,3471) * lu(k,3761)
16921 254840160 : lu(k,3770) = lu(k,3770) - lu(k,3472) * lu(k,3761)
16922 254840160 : lu(k,3803) = lu(k,3803) - lu(k,3464) * lu(k,3802)
16923 254840160 : lu(k,3804) = lu(k,3804) - lu(k,3465) * lu(k,3802)
16924 254840160 : lu(k,3805) = lu(k,3805) - lu(k,3466) * lu(k,3802)
16925 254840160 : lu(k,3806) = lu(k,3806) - lu(k,3467) * lu(k,3802)
16926 254840160 : lu(k,3807) = lu(k,3807) - lu(k,3468) * lu(k,3802)
16927 254840160 : lu(k,3808) = lu(k,3808) - lu(k,3469) * lu(k,3802)
16928 254840160 : lu(k,3809) = lu(k,3809) - lu(k,3470) * lu(k,3802)
16929 254840160 : lu(k,3810) = lu(k,3810) - lu(k,3471) * lu(k,3802)
16930 254840160 : lu(k,3811) = lu(k,3811) - lu(k,3472) * lu(k,3802)
16931 254840160 : lu(k,3844) = lu(k,3844) - lu(k,3464) * lu(k,3843)
16932 254840160 : lu(k,3845) = lu(k,3845) - lu(k,3465) * lu(k,3843)
16933 254840160 : lu(k,3846) = lu(k,3846) - lu(k,3466) * lu(k,3843)
16934 254840160 : lu(k,3847) = lu(k,3847) - lu(k,3467) * lu(k,3843)
16935 254840160 : lu(k,3848) = lu(k,3848) - lu(k,3468) * lu(k,3843)
16936 254840160 : lu(k,3849) = lu(k,3849) - lu(k,3469) * lu(k,3843)
16937 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3470) * lu(k,3843)
16938 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3471) * lu(k,3843)
16939 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3472) * lu(k,3843)
16940 254840160 : lu(k,4094) = lu(k,4094) - lu(k,3464) * lu(k,4093)
16941 254840160 : lu(k,4095) = lu(k,4095) - lu(k,3465) * lu(k,4093)
16942 254840160 : lu(k,4096) = lu(k,4096) - lu(k,3466) * lu(k,4093)
16943 254840160 : lu(k,4097) = lu(k,4097) - lu(k,3467) * lu(k,4093)
16944 254840160 : lu(k,4098) = lu(k,4098) - lu(k,3468) * lu(k,4093)
16945 254840160 : lu(k,4099) = lu(k,4099) - lu(k,3469) * lu(k,4093)
16946 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3470) * lu(k,4093)
16947 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3471) * lu(k,4093)
16948 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3472) * lu(k,4093)
16949 254840160 : lu(k,4120) = lu(k,4120) - lu(k,3464) * lu(k,4119)
16950 254840160 : lu(k,4121) = lu(k,4121) - lu(k,3465) * lu(k,4119)
16951 254840160 : lu(k,4122) = lu(k,4122) - lu(k,3466) * lu(k,4119)
16952 254840160 : lu(k,4123) = lu(k,4123) - lu(k,3467) * lu(k,4119)
16953 254840160 : lu(k,4124) = lu(k,4124) - lu(k,3468) * lu(k,4119)
16954 254840160 : lu(k,4125) = lu(k,4125) - lu(k,3469) * lu(k,4119)
16955 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3470) * lu(k,4119)
16956 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3471) * lu(k,4119)
16957 254840160 : lu(k,4128) = lu(k,4128) - lu(k,3472) * lu(k,4119)
16958 254840160 : lu(k,3488) = 1._r8 / lu(k,3488)
16959 254840160 : lu(k,3489) = lu(k,3489) * lu(k,3488)
16960 254840160 : lu(k,3490) = lu(k,3490) * lu(k,3488)
16961 254840160 : lu(k,3491) = lu(k,3491) * lu(k,3488)
16962 254840160 : lu(k,3492) = lu(k,3492) * lu(k,3488)
16963 254840160 : lu(k,3493) = lu(k,3493) * lu(k,3488)
16964 254840160 : lu(k,3494) = lu(k,3494) * lu(k,3488)
16965 254840160 : lu(k,3495) = lu(k,3495) * lu(k,3488)
16966 254840160 : lu(k,3496) = lu(k,3496) * lu(k,3488)
16967 254840160 : lu(k,3515) = lu(k,3515) - lu(k,3489) * lu(k,3514)
16968 254840160 : lu(k,3516) = lu(k,3516) - lu(k,3490) * lu(k,3514)
16969 254840160 : lu(k,3517) = lu(k,3517) - lu(k,3491) * lu(k,3514)
16970 254840160 : lu(k,3518) = lu(k,3518) - lu(k,3492) * lu(k,3514)
16971 254840160 : lu(k,3519) = lu(k,3519) - lu(k,3493) * lu(k,3514)
16972 254840160 : lu(k,3520) = lu(k,3520) - lu(k,3494) * lu(k,3514)
16973 254840160 : lu(k,3521) = lu(k,3521) - lu(k,3495) * lu(k,3514)
16974 254840160 : lu(k,3522) = lu(k,3522) - lu(k,3496) * lu(k,3514)
16975 254840160 : lu(k,3609) = lu(k,3609) - lu(k,3489) * lu(k,3608)
16976 254840160 : lu(k,3610) = lu(k,3610) - lu(k,3490) * lu(k,3608)
16977 254840160 : lu(k,3611) = lu(k,3611) - lu(k,3491) * lu(k,3608)
16978 254840160 : lu(k,3612) = lu(k,3612) - lu(k,3492) * lu(k,3608)
16979 254840160 : lu(k,3613) = lu(k,3613) - lu(k,3493) * lu(k,3608)
16980 254840160 : lu(k,3614) = lu(k,3614) - lu(k,3494) * lu(k,3608)
16981 254840160 : lu(k,3615) = lu(k,3615) - lu(k,3495) * lu(k,3608)
16982 254840160 : lu(k,3616) = lu(k,3616) - lu(k,3496) * lu(k,3608)
16983 254840160 : lu(k,3661) = lu(k,3661) - lu(k,3489) * lu(k,3660)
16984 254840160 : lu(k,3662) = lu(k,3662) - lu(k,3490) * lu(k,3660)
16985 254840160 : lu(k,3663) = lu(k,3663) - lu(k,3491) * lu(k,3660)
16986 254840160 : lu(k,3664) = lu(k,3664) - lu(k,3492) * lu(k,3660)
16987 254840160 : lu(k,3665) = lu(k,3665) - lu(k,3493) * lu(k,3660)
16988 254840160 : lu(k,3666) = lu(k,3666) - lu(k,3494) * lu(k,3660)
16989 254840160 : lu(k,3667) = lu(k,3667) - lu(k,3495) * lu(k,3660)
16990 254840160 : lu(k,3668) = lu(k,3668) - lu(k,3496) * lu(k,3660)
16991 254840160 : lu(k,3763) = lu(k,3763) - lu(k,3489) * lu(k,3762)
16992 254840160 : lu(k,3764) = lu(k,3764) - lu(k,3490) * lu(k,3762)
16993 254840160 : lu(k,3765) = lu(k,3765) - lu(k,3491) * lu(k,3762)
16994 254840160 : lu(k,3766) = lu(k,3766) - lu(k,3492) * lu(k,3762)
16995 254840160 : lu(k,3767) = lu(k,3767) - lu(k,3493) * lu(k,3762)
16996 254840160 : lu(k,3768) = lu(k,3768) - lu(k,3494) * lu(k,3762)
16997 254840160 : lu(k,3769) = lu(k,3769) - lu(k,3495) * lu(k,3762)
16998 254840160 : lu(k,3770) = lu(k,3770) - lu(k,3496) * lu(k,3762)
16999 254840160 : lu(k,3804) = lu(k,3804) - lu(k,3489) * lu(k,3803)
17000 254840160 : lu(k,3805) = lu(k,3805) - lu(k,3490) * lu(k,3803)
17001 254840160 : lu(k,3806) = lu(k,3806) - lu(k,3491) * lu(k,3803)
17002 254840160 : lu(k,3807) = lu(k,3807) - lu(k,3492) * lu(k,3803)
17003 254840160 : lu(k,3808) = lu(k,3808) - lu(k,3493) * lu(k,3803)
17004 254840160 : lu(k,3809) = lu(k,3809) - lu(k,3494) * lu(k,3803)
17005 254840160 : lu(k,3810) = lu(k,3810) - lu(k,3495) * lu(k,3803)
17006 254840160 : lu(k,3811) = lu(k,3811) - lu(k,3496) * lu(k,3803)
17007 254840160 : lu(k,3845) = lu(k,3845) - lu(k,3489) * lu(k,3844)
17008 254840160 : lu(k,3846) = lu(k,3846) - lu(k,3490) * lu(k,3844)
17009 254840160 : lu(k,3847) = lu(k,3847) - lu(k,3491) * lu(k,3844)
17010 254840160 : lu(k,3848) = lu(k,3848) - lu(k,3492) * lu(k,3844)
17011 254840160 : lu(k,3849) = lu(k,3849) - lu(k,3493) * lu(k,3844)
17012 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3494) * lu(k,3844)
17013 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3495) * lu(k,3844)
17014 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3496) * lu(k,3844)
17015 254840160 : lu(k,4095) = lu(k,4095) - lu(k,3489) * lu(k,4094)
17016 254840160 : lu(k,4096) = lu(k,4096) - lu(k,3490) * lu(k,4094)
17017 254840160 : lu(k,4097) = lu(k,4097) - lu(k,3491) * lu(k,4094)
17018 254840160 : lu(k,4098) = lu(k,4098) - lu(k,3492) * lu(k,4094)
17019 254840160 : lu(k,4099) = lu(k,4099) - lu(k,3493) * lu(k,4094)
17020 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3494) * lu(k,4094)
17021 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3495) * lu(k,4094)
17022 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3496) * lu(k,4094)
17023 254840160 : lu(k,4121) = lu(k,4121) - lu(k,3489) * lu(k,4120)
17024 254840160 : lu(k,4122) = lu(k,4122) - lu(k,3490) * lu(k,4120)
17025 254840160 : lu(k,4123) = lu(k,4123) - lu(k,3491) * lu(k,4120)
17026 254840160 : lu(k,4124) = lu(k,4124) - lu(k,3492) * lu(k,4120)
17027 254840160 : lu(k,4125) = lu(k,4125) - lu(k,3493) * lu(k,4120)
17028 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3494) * lu(k,4120)
17029 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3495) * lu(k,4120)
17030 254840160 : lu(k,4128) = lu(k,4128) - lu(k,3496) * lu(k,4120)
17031 254840160 : lu(k,3515) = 1._r8 / lu(k,3515)
17032 254840160 : lu(k,3516) = lu(k,3516) * lu(k,3515)
17033 254840160 : lu(k,3517) = lu(k,3517) * lu(k,3515)
17034 254840160 : lu(k,3518) = lu(k,3518) * lu(k,3515)
17035 254840160 : lu(k,3519) = lu(k,3519) * lu(k,3515)
17036 254840160 : lu(k,3520) = lu(k,3520) * lu(k,3515)
17037 254840160 : lu(k,3521) = lu(k,3521) * lu(k,3515)
17038 254840160 : lu(k,3522) = lu(k,3522) * lu(k,3515)
17039 254840160 : lu(k,3610) = lu(k,3610) - lu(k,3516) * lu(k,3609)
17040 254840160 : lu(k,3611) = lu(k,3611) - lu(k,3517) * lu(k,3609)
17041 254840160 : lu(k,3612) = lu(k,3612) - lu(k,3518) * lu(k,3609)
17042 254840160 : lu(k,3613) = lu(k,3613) - lu(k,3519) * lu(k,3609)
17043 254840160 : lu(k,3614) = lu(k,3614) - lu(k,3520) * lu(k,3609)
17044 254840160 : lu(k,3615) = lu(k,3615) - lu(k,3521) * lu(k,3609)
17045 254840160 : lu(k,3616) = lu(k,3616) - lu(k,3522) * lu(k,3609)
17046 254840160 : lu(k,3662) = lu(k,3662) - lu(k,3516) * lu(k,3661)
17047 254840160 : lu(k,3663) = lu(k,3663) - lu(k,3517) * lu(k,3661)
17048 254840160 : lu(k,3664) = lu(k,3664) - lu(k,3518) * lu(k,3661)
17049 254840160 : lu(k,3665) = lu(k,3665) - lu(k,3519) * lu(k,3661)
17050 254840160 : lu(k,3666) = lu(k,3666) - lu(k,3520) * lu(k,3661)
17051 254840160 : lu(k,3667) = lu(k,3667) - lu(k,3521) * lu(k,3661)
17052 254840160 : lu(k,3668) = lu(k,3668) - lu(k,3522) * lu(k,3661)
17053 254840160 : lu(k,3764) = lu(k,3764) - lu(k,3516) * lu(k,3763)
17054 254840160 : lu(k,3765) = lu(k,3765) - lu(k,3517) * lu(k,3763)
17055 254840160 : lu(k,3766) = lu(k,3766) - lu(k,3518) * lu(k,3763)
17056 254840160 : lu(k,3767) = lu(k,3767) - lu(k,3519) * lu(k,3763)
17057 254840160 : lu(k,3768) = lu(k,3768) - lu(k,3520) * lu(k,3763)
17058 254840160 : lu(k,3769) = lu(k,3769) - lu(k,3521) * lu(k,3763)
17059 254840160 : lu(k,3770) = lu(k,3770) - lu(k,3522) * lu(k,3763)
17060 254840160 : lu(k,3805) = lu(k,3805) - lu(k,3516) * lu(k,3804)
17061 254840160 : lu(k,3806) = lu(k,3806) - lu(k,3517) * lu(k,3804)
17062 254840160 : lu(k,3807) = lu(k,3807) - lu(k,3518) * lu(k,3804)
17063 254840160 : lu(k,3808) = lu(k,3808) - lu(k,3519) * lu(k,3804)
17064 254840160 : lu(k,3809) = lu(k,3809) - lu(k,3520) * lu(k,3804)
17065 254840160 : lu(k,3810) = lu(k,3810) - lu(k,3521) * lu(k,3804)
17066 254840160 : lu(k,3811) = lu(k,3811) - lu(k,3522) * lu(k,3804)
17067 254840160 : lu(k,3846) = lu(k,3846) - lu(k,3516) * lu(k,3845)
17068 254840160 : lu(k,3847) = lu(k,3847) - lu(k,3517) * lu(k,3845)
17069 254840160 : lu(k,3848) = lu(k,3848) - lu(k,3518) * lu(k,3845)
17070 254840160 : lu(k,3849) = lu(k,3849) - lu(k,3519) * lu(k,3845)
17071 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3520) * lu(k,3845)
17072 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3521) * lu(k,3845)
17073 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3522) * lu(k,3845)
17074 254840160 : lu(k,4096) = lu(k,4096) - lu(k,3516) * lu(k,4095)
17075 254840160 : lu(k,4097) = lu(k,4097) - lu(k,3517) * lu(k,4095)
17076 254840160 : lu(k,4098) = lu(k,4098) - lu(k,3518) * lu(k,4095)
17077 254840160 : lu(k,4099) = lu(k,4099) - lu(k,3519) * lu(k,4095)
17078 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3520) * lu(k,4095)
17079 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3521) * lu(k,4095)
17080 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3522) * lu(k,4095)
17081 254840160 : lu(k,4122) = lu(k,4122) - lu(k,3516) * lu(k,4121)
17082 254840160 : lu(k,4123) = lu(k,4123) - lu(k,3517) * lu(k,4121)
17083 254840160 : lu(k,4124) = lu(k,4124) - lu(k,3518) * lu(k,4121)
17084 254840160 : lu(k,4125) = lu(k,4125) - lu(k,3519) * lu(k,4121)
17085 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3520) * lu(k,4121)
17086 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3521) * lu(k,4121)
17087 254840160 : lu(k,4128) = lu(k,4128) - lu(k,3522) * lu(k,4121)
17088 254840160 : lu(k,3610) = 1._r8 / lu(k,3610)
17089 254840160 : lu(k,3611) = lu(k,3611) * lu(k,3610)
17090 254840160 : lu(k,3612) = lu(k,3612) * lu(k,3610)
17091 254840160 : lu(k,3613) = lu(k,3613) * lu(k,3610)
17092 254840160 : lu(k,3614) = lu(k,3614) * lu(k,3610)
17093 254840160 : lu(k,3615) = lu(k,3615) * lu(k,3610)
17094 254840160 : lu(k,3616) = lu(k,3616) * lu(k,3610)
17095 254840160 : lu(k,3663) = lu(k,3663) - lu(k,3611) * lu(k,3662)
17096 254840160 : lu(k,3664) = lu(k,3664) - lu(k,3612) * lu(k,3662)
17097 254840160 : lu(k,3665) = lu(k,3665) - lu(k,3613) * lu(k,3662)
17098 254840160 : lu(k,3666) = lu(k,3666) - lu(k,3614) * lu(k,3662)
17099 254840160 : lu(k,3667) = lu(k,3667) - lu(k,3615) * lu(k,3662)
17100 254840160 : lu(k,3668) = lu(k,3668) - lu(k,3616) * lu(k,3662)
17101 254840160 : lu(k,3765) = lu(k,3765) - lu(k,3611) * lu(k,3764)
17102 254840160 : lu(k,3766) = lu(k,3766) - lu(k,3612) * lu(k,3764)
17103 254840160 : lu(k,3767) = lu(k,3767) - lu(k,3613) * lu(k,3764)
17104 254840160 : lu(k,3768) = lu(k,3768) - lu(k,3614) * lu(k,3764)
17105 254840160 : lu(k,3769) = lu(k,3769) - lu(k,3615) * lu(k,3764)
17106 254840160 : lu(k,3770) = lu(k,3770) - lu(k,3616) * lu(k,3764)
17107 254840160 : lu(k,3806) = lu(k,3806) - lu(k,3611) * lu(k,3805)
17108 254840160 : lu(k,3807) = lu(k,3807) - lu(k,3612) * lu(k,3805)
17109 254840160 : lu(k,3808) = lu(k,3808) - lu(k,3613) * lu(k,3805)
17110 254840160 : lu(k,3809) = lu(k,3809) - lu(k,3614) * lu(k,3805)
17111 254840160 : lu(k,3810) = lu(k,3810) - lu(k,3615) * lu(k,3805)
17112 254840160 : lu(k,3811) = lu(k,3811) - lu(k,3616) * lu(k,3805)
17113 254840160 : lu(k,3847) = lu(k,3847) - lu(k,3611) * lu(k,3846)
17114 254840160 : lu(k,3848) = lu(k,3848) - lu(k,3612) * lu(k,3846)
17115 254840160 : lu(k,3849) = lu(k,3849) - lu(k,3613) * lu(k,3846)
17116 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3614) * lu(k,3846)
17117 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3615) * lu(k,3846)
17118 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3616) * lu(k,3846)
17119 254840160 : lu(k,4097) = lu(k,4097) - lu(k,3611) * lu(k,4096)
17120 254840160 : lu(k,4098) = lu(k,4098) - lu(k,3612) * lu(k,4096)
17121 254840160 : lu(k,4099) = lu(k,4099) - lu(k,3613) * lu(k,4096)
17122 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3614) * lu(k,4096)
17123 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3615) * lu(k,4096)
17124 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3616) * lu(k,4096)
17125 254840160 : lu(k,4123) = lu(k,4123) - lu(k,3611) * lu(k,4122)
17126 254840160 : lu(k,4124) = lu(k,4124) - lu(k,3612) * lu(k,4122)
17127 254840160 : lu(k,4125) = lu(k,4125) - lu(k,3613) * lu(k,4122)
17128 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3614) * lu(k,4122)
17129 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3615) * lu(k,4122)
17130 254840160 : lu(k,4128) = lu(k,4128) - lu(k,3616) * lu(k,4122)
17131 254840160 : lu(k,3663) = 1._r8 / lu(k,3663)
17132 254840160 : lu(k,3664) = lu(k,3664) * lu(k,3663)
17133 254840160 : lu(k,3665) = lu(k,3665) * lu(k,3663)
17134 254840160 : lu(k,3666) = lu(k,3666) * lu(k,3663)
17135 254840160 : lu(k,3667) = lu(k,3667) * lu(k,3663)
17136 254840160 : lu(k,3668) = lu(k,3668) * lu(k,3663)
17137 254840160 : lu(k,3766) = lu(k,3766) - lu(k,3664) * lu(k,3765)
17138 254840160 : lu(k,3767) = lu(k,3767) - lu(k,3665) * lu(k,3765)
17139 254840160 : lu(k,3768) = lu(k,3768) - lu(k,3666) * lu(k,3765)
17140 254840160 : lu(k,3769) = lu(k,3769) - lu(k,3667) * lu(k,3765)
17141 254840160 : lu(k,3770) = lu(k,3770) - lu(k,3668) * lu(k,3765)
17142 254840160 : lu(k,3807) = lu(k,3807) - lu(k,3664) * lu(k,3806)
17143 254840160 : lu(k,3808) = lu(k,3808) - lu(k,3665) * lu(k,3806)
17144 254840160 : lu(k,3809) = lu(k,3809) - lu(k,3666) * lu(k,3806)
17145 254840160 : lu(k,3810) = lu(k,3810) - lu(k,3667) * lu(k,3806)
17146 254840160 : lu(k,3811) = lu(k,3811) - lu(k,3668) * lu(k,3806)
17147 254840160 : lu(k,3848) = lu(k,3848) - lu(k,3664) * lu(k,3847)
17148 254840160 : lu(k,3849) = lu(k,3849) - lu(k,3665) * lu(k,3847)
17149 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3666) * lu(k,3847)
17150 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3667) * lu(k,3847)
17151 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3668) * lu(k,3847)
17152 254840160 : lu(k,4098) = lu(k,4098) - lu(k,3664) * lu(k,4097)
17153 254840160 : lu(k,4099) = lu(k,4099) - lu(k,3665) * lu(k,4097)
17154 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3666) * lu(k,4097)
17155 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3667) * lu(k,4097)
17156 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3668) * lu(k,4097)
17157 254840160 : lu(k,4124) = lu(k,4124) - lu(k,3664) * lu(k,4123)
17158 254840160 : lu(k,4125) = lu(k,4125) - lu(k,3665) * lu(k,4123)
17159 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3666) * lu(k,4123)
17160 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3667) * lu(k,4123)
17161 263009123 : lu(k,4128) = lu(k,4128) - lu(k,3668) * lu(k,4123)
17162 : end do
17163 8168963 : end subroutine lu_fac54
17164 8168963 : subroutine lu_fac55( avec_len, lu )
17165 : use chem_mods, only : nzcnt
17166 : use shr_kind_mod, only : r8 => shr_kind_r8
17167 : implicit none
17168 : !-----------------------------------------------------------------------
17169 : ! ... dummy args
17170 : !-----------------------------------------------------------------------
17171 : integer, intent(in) :: avec_len
17172 : real(r8), intent(inout) :: lu(veclen,nzcnt)
17173 : !-----------------------------------------------------------------------
17174 : ! ... local variables
17175 : !-----------------------------------------------------------------------
17176 : integer :: k
17177 263009123 : do k = 1,avec_len
17178 254840160 : lu(k,3766) = 1._r8 / lu(k,3766)
17179 254840160 : lu(k,3767) = lu(k,3767) * lu(k,3766)
17180 254840160 : lu(k,3768) = lu(k,3768) * lu(k,3766)
17181 254840160 : lu(k,3769) = lu(k,3769) * lu(k,3766)
17182 254840160 : lu(k,3770) = lu(k,3770) * lu(k,3766)
17183 254840160 : lu(k,3808) = lu(k,3808) - lu(k,3767) * lu(k,3807)
17184 254840160 : lu(k,3809) = lu(k,3809) - lu(k,3768) * lu(k,3807)
17185 254840160 : lu(k,3810) = lu(k,3810) - lu(k,3769) * lu(k,3807)
17186 254840160 : lu(k,3811) = lu(k,3811) - lu(k,3770) * lu(k,3807)
17187 254840160 : lu(k,3849) = lu(k,3849) - lu(k,3767) * lu(k,3848)
17188 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3768) * lu(k,3848)
17189 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3769) * lu(k,3848)
17190 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3770) * lu(k,3848)
17191 254840160 : lu(k,4099) = lu(k,4099) - lu(k,3767) * lu(k,4098)
17192 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3768) * lu(k,4098)
17193 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3769) * lu(k,4098)
17194 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3770) * lu(k,4098)
17195 254840160 : lu(k,4125) = lu(k,4125) - lu(k,3767) * lu(k,4124)
17196 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3768) * lu(k,4124)
17197 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3769) * lu(k,4124)
17198 254840160 : lu(k,4128) = lu(k,4128) - lu(k,3770) * lu(k,4124)
17199 254840160 : lu(k,3808) = 1._r8 / lu(k,3808)
17200 254840160 : lu(k,3809) = lu(k,3809) * lu(k,3808)
17201 254840160 : lu(k,3810) = lu(k,3810) * lu(k,3808)
17202 254840160 : lu(k,3811) = lu(k,3811) * lu(k,3808)
17203 254840160 : lu(k,3850) = lu(k,3850) - lu(k,3809) * lu(k,3849)
17204 254840160 : lu(k,3851) = lu(k,3851) - lu(k,3810) * lu(k,3849)
17205 254840160 : lu(k,3852) = lu(k,3852) - lu(k,3811) * lu(k,3849)
17206 254840160 : lu(k,4100) = lu(k,4100) - lu(k,3809) * lu(k,4099)
17207 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3810) * lu(k,4099)
17208 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3811) * lu(k,4099)
17209 254840160 : lu(k,4126) = lu(k,4126) - lu(k,3809) * lu(k,4125)
17210 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3810) * lu(k,4125)
17211 254840160 : lu(k,4128) = lu(k,4128) - lu(k,3811) * lu(k,4125)
17212 254840160 : lu(k,3850) = 1._r8 / lu(k,3850)
17213 254840160 : lu(k,3851) = lu(k,3851) * lu(k,3850)
17214 254840160 : lu(k,3852) = lu(k,3852) * lu(k,3850)
17215 254840160 : lu(k,4101) = lu(k,4101) - lu(k,3851) * lu(k,4100)
17216 254840160 : lu(k,4102) = lu(k,4102) - lu(k,3852) * lu(k,4100)
17217 254840160 : lu(k,4127) = lu(k,4127) - lu(k,3851) * lu(k,4126)
17218 254840160 : lu(k,4128) = lu(k,4128) - lu(k,3852) * lu(k,4126)
17219 254840160 : lu(k,4101) = 1._r8 / lu(k,4101)
17220 254840160 : lu(k,4102) = lu(k,4102) * lu(k,4101)
17221 254840160 : lu(k,4128) = lu(k,4128) - lu(k,4102) * lu(k,4127)
17222 263009123 : lu(k,4128) = 1._r8 / lu(k,4128)
17223 : end do
17224 8168963 : end subroutine lu_fac55
17225 8168963 : subroutine lu_fac( avec_len, lu )
17226 : use chem_mods, only : nzcnt
17227 : use shr_kind_mod, only : r8 => shr_kind_r8
17228 : implicit none
17229 : !-----------------------------------------------------------------------
17230 : ! ... dummy args
17231 : !-----------------------------------------------------------------------
17232 : integer, intent(in) :: avec_len
17233 : real(r8), intent(inout) :: lu(veclen,nzcnt)
17234 8168963 : call lu_fac01( avec_len, lu )
17235 8168963 : call lu_fac02( avec_len, lu )
17236 8168963 : call lu_fac03( avec_len, lu )
17237 8168963 : call lu_fac04( avec_len, lu )
17238 8168963 : call lu_fac05( avec_len, lu )
17239 8168963 : call lu_fac06( avec_len, lu )
17240 8168963 : call lu_fac07( avec_len, lu )
17241 8168963 : call lu_fac08( avec_len, lu )
17242 8168963 : call lu_fac09( avec_len, lu )
17243 8168963 : call lu_fac10( avec_len, lu )
17244 8168963 : call lu_fac11( avec_len, lu )
17245 8168963 : call lu_fac12( avec_len, lu )
17246 8168963 : call lu_fac13( avec_len, lu )
17247 8168963 : call lu_fac14( avec_len, lu )
17248 8168963 : call lu_fac15( avec_len, lu )
17249 8168963 : call lu_fac16( avec_len, lu )
17250 8168963 : call lu_fac17( avec_len, lu )
17251 8168963 : call lu_fac18( avec_len, lu )
17252 8168963 : call lu_fac19( avec_len, lu )
17253 8168963 : call lu_fac20( avec_len, lu )
17254 8168963 : call lu_fac21( avec_len, lu )
17255 8168963 : call lu_fac22( avec_len, lu )
17256 8168963 : call lu_fac23( avec_len, lu )
17257 8168963 : call lu_fac24( avec_len, lu )
17258 8168963 : call lu_fac25( avec_len, lu )
17259 8168963 : call lu_fac26( avec_len, lu )
17260 8168963 : call lu_fac27( avec_len, lu )
17261 8168963 : call lu_fac28( avec_len, lu )
17262 8168963 : call lu_fac29( avec_len, lu )
17263 8168963 : call lu_fac30( avec_len, lu )
17264 8168963 : call lu_fac31( avec_len, lu )
17265 8168963 : call lu_fac32( avec_len, lu )
17266 8168963 : call lu_fac33( avec_len, lu )
17267 8168963 : call lu_fac34( avec_len, lu )
17268 8168963 : call lu_fac35( avec_len, lu )
17269 8168963 : call lu_fac36( avec_len, lu )
17270 8168963 : call lu_fac37( avec_len, lu )
17271 8168963 : call lu_fac38( avec_len, lu )
17272 8168963 : call lu_fac39( avec_len, lu )
17273 8168963 : call lu_fac40( avec_len, lu )
17274 8168963 : call lu_fac41( avec_len, lu )
17275 8168963 : call lu_fac42( avec_len, lu )
17276 8168963 : call lu_fac43( avec_len, lu )
17277 8168963 : call lu_fac44( avec_len, lu )
17278 8168963 : call lu_fac45( avec_len, lu )
17279 8168963 : call lu_fac46( avec_len, lu )
17280 8168963 : call lu_fac47( avec_len, lu )
17281 8168963 : call lu_fac48( avec_len, lu )
17282 8168963 : call lu_fac49( avec_len, lu )
17283 8168963 : call lu_fac50( avec_len, lu )
17284 8168963 : call lu_fac51( avec_len, lu )
17285 8168963 : call lu_fac52( avec_len, lu )
17286 8168963 : call lu_fac53( avec_len, lu )
17287 8168963 : call lu_fac54( avec_len, lu )
17288 8168963 : call lu_fac55( avec_len, lu )
17289 8168963 : end subroutine lu_fac
17290 : end module mo_lu_factor
|