Line data Source code
1 : module mo_lu_factor
2 : use chem_mods, only: veclen
3 : private
4 : public :: lu_fac
5 : contains
6 4411704 : 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 145586232 : do k = 1,avec_len
20 141174528 : lu(k,1) = 1._r8 / lu(k,1)
21 141174528 : lu(k,2) = 1._r8 / lu(k,2)
22 141174528 : lu(k,3) = 1._r8 / lu(k,3)
23 141174528 : lu(k,4) = 1._r8 / lu(k,4)
24 141174528 : lu(k,5) = 1._r8 / lu(k,5)
25 141174528 : lu(k,6) = 1._r8 / lu(k,6)
26 141174528 : lu(k,7) = 1._r8 / lu(k,7)
27 141174528 : lu(k,8) = 1._r8 / lu(k,8)
28 141174528 : lu(k,9) = 1._r8 / lu(k,9)
29 141174528 : lu(k,10) = 1._r8 / lu(k,10)
30 141174528 : lu(k,11) = 1._r8 / lu(k,11)
31 141174528 : lu(k,12) = 1._r8 / lu(k,12)
32 141174528 : lu(k,13) = 1._r8 / lu(k,13)
33 141174528 : lu(k,14) = 1._r8 / lu(k,14)
34 141174528 : lu(k,15) = 1._r8 / lu(k,15)
35 141174528 : lu(k,16) = 1._r8 / lu(k,16)
36 141174528 : lu(k,17) = 1._r8 / lu(k,17)
37 141174528 : lu(k,18) = 1._r8 / lu(k,18)
38 141174528 : lu(k,19) = 1._r8 / lu(k,19)
39 141174528 : lu(k,20) = 1._r8 / lu(k,20)
40 141174528 : lu(k,21) = 1._r8 / lu(k,21)
41 141174528 : lu(k,22) = 1._r8 / lu(k,22)
42 141174528 : lu(k,23) = 1._r8 / lu(k,23)
43 141174528 : lu(k,24) = 1._r8 / lu(k,24)
44 141174528 : lu(k,25) = 1._r8 / lu(k,25)
45 141174528 : lu(k,26) = 1._r8 / lu(k,26)
46 141174528 : lu(k,27) = 1._r8 / lu(k,27)
47 141174528 : lu(k,28) = 1._r8 / lu(k,28)
48 141174528 : lu(k,29) = 1._r8 / lu(k,29)
49 141174528 : lu(k,30) = 1._r8 / lu(k,30)
50 141174528 : lu(k,31) = 1._r8 / lu(k,31)
51 141174528 : lu(k,32) = 1._r8 / lu(k,32)
52 141174528 : lu(k,33) = 1._r8 / lu(k,33)
53 141174528 : lu(k,34) = 1._r8 / lu(k,34)
54 141174528 : lu(k,35) = 1._r8 / lu(k,35)
55 141174528 : lu(k,36) = 1._r8 / lu(k,36)
56 141174528 : lu(k,37) = 1._r8 / lu(k,37)
57 141174528 : lu(k,38) = 1._r8 / lu(k,38)
58 141174528 : lu(k,39) = 1._r8 / lu(k,39)
59 141174528 : lu(k,40) = 1._r8 / lu(k,40)
60 141174528 : lu(k,41) = 1._r8 / lu(k,41)
61 141174528 : lu(k,42) = 1._r8 / lu(k,42)
62 141174528 : lu(k,43) = 1._r8 / lu(k,43)
63 141174528 : lu(k,44) = 1._r8 / lu(k,44)
64 141174528 : lu(k,45) = 1._r8 / lu(k,45)
65 141174528 : lu(k,46) = 1._r8 / lu(k,46)
66 141174528 : lu(k,47) = 1._r8 / lu(k,47)
67 141174528 : lu(k,48) = 1._r8 / lu(k,48)
68 141174528 : lu(k,49) = 1._r8 / lu(k,49)
69 141174528 : lu(k,50) = 1._r8 / lu(k,50)
70 145586232 : lu(k,51) = 1._r8 / lu(k,51)
71 : end do
72 4411704 : end subroutine lu_fac01
73 4411704 : 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 145586232 : do k = 1,avec_len
87 141174528 : lu(k,52) = 1._r8 / lu(k,52)
88 141174528 : lu(k,53) = 1._r8 / lu(k,53)
89 141174528 : lu(k,54) = 1._r8 / lu(k,54)
90 141174528 : lu(k,55) = 1._r8 / lu(k,55)
91 141174528 : lu(k,56) = 1._r8 / lu(k,56)
92 141174528 : lu(k,57) = 1._r8 / lu(k,57)
93 141174528 : lu(k,58) = 1._r8 / lu(k,58)
94 141174528 : lu(k,59) = 1._r8 / lu(k,59)
95 141174528 : lu(k,60) = 1._r8 / lu(k,60)
96 141174528 : lu(k,61) = 1._r8 / lu(k,61)
97 141174528 : lu(k,62) = 1._r8 / lu(k,62)
98 141174528 : lu(k,63) = 1._r8 / lu(k,63)
99 141174528 : lu(k,69) = 1._r8 / lu(k,69)
100 141174528 : lu(k,71) = 1._r8 / lu(k,71)
101 141174528 : lu(k,72) = 1._r8 / lu(k,72)
102 141174528 : lu(k,73) = 1._r8 / lu(k,73)
103 141174528 : lu(k,74) = 1._r8 / lu(k,74)
104 141174528 : lu(k,75) = 1._r8 / lu(k,75)
105 141174528 : lu(k,76) = 1._r8 / lu(k,76)
106 141174528 : lu(k,82) = 1._r8 / lu(k,82)
107 141174528 : lu(k,88) = 1._r8 / lu(k,88)
108 141174528 : lu(k,94) = 1._r8 / lu(k,94)
109 141174528 : lu(k,95) = 1._r8 / lu(k,95)
110 141174528 : lu(k,96) = 1._r8 / lu(k,96)
111 141174528 : lu(k,97) = 1._r8 / lu(k,97)
112 141174528 : lu(k,98) = 1._r8 / lu(k,98)
113 141174528 : lu(k,99) = 1._r8 / lu(k,99)
114 141174528 : lu(k,105) = 1._r8 / lu(k,105)
115 141174528 : lu(k,107) = 1._r8 / lu(k,107)
116 141174528 : lu(k,113) = 1._r8 / lu(k,113)
117 141174528 : lu(k,119) = 1._r8 / lu(k,119)
118 141174528 : lu(k,125) = 1._r8 / lu(k,125)
119 141174528 : lu(k,131) = 1._r8 / lu(k,131)
120 141174528 : lu(k,137) = 1._r8 / lu(k,137)
121 141174528 : lu(k,138) = 1._r8 / lu(k,138)
122 141174528 : lu(k,139) = lu(k,139) * lu(k,138)
123 141174528 : lu(k,140) = lu(k,140) * lu(k,138)
124 141174528 : lu(k,1823) = lu(k,1823) - lu(k,139) * lu(k,1684)
125 141174528 : lu(k,1833) = lu(k,1833) - lu(k,140) * lu(k,1684)
126 141174528 : lu(k,141) = 1._r8 / lu(k,141)
127 141174528 : lu(k,142) = lu(k,142) * lu(k,141)
128 141174528 : lu(k,143) = lu(k,143) * lu(k,141)
129 141174528 : lu(k,1650) = lu(k,1650) - lu(k,142) * lu(k,1621)
130 141174528 : lu(k,1657) = lu(k,1657) - lu(k,143) * lu(k,1621)
131 141174528 : lu(k,144) = 1._r8 / lu(k,144)
132 141174528 : lu(k,145) = lu(k,145) * lu(k,144)
133 141174528 : lu(k,146) = lu(k,146) * lu(k,144)
134 141174528 : lu(k,1823) = lu(k,1823) - lu(k,145) * lu(k,1685)
135 141174528 : lu(k,1831) = lu(k,1831) - lu(k,146) * lu(k,1685)
136 141174528 : lu(k,147) = 1._r8 / lu(k,147)
137 141174528 : lu(k,148) = lu(k,148) * lu(k,147)
138 141174528 : lu(k,149) = lu(k,149) * lu(k,147)
139 141174528 : lu(k,2335) = lu(k,2335) - lu(k,148) * lu(k,2314)
140 141174528 : lu(k,2338) = lu(k,2338) - lu(k,149) * lu(k,2314)
141 141174528 : lu(k,150) = 1._r8 / lu(k,150)
142 141174528 : lu(k,151) = lu(k,151) * lu(k,150)
143 141174528 : lu(k,152) = lu(k,152) * lu(k,150)
144 141174528 : lu(k,153) = lu(k,153) * lu(k,150)
145 141174528 : lu(k,1632) = lu(k,1632) - lu(k,151) * lu(k,1622)
146 141174528 : lu(k,1643) = lu(k,1643) - lu(k,152) * lu(k,1622)
147 141174528 : lu(k,1650) = lu(k,1650) - lu(k,153) * lu(k,1622)
148 141174528 : lu(k,154) = 1._r8 / lu(k,154)
149 141174528 : lu(k,155) = lu(k,155) * lu(k,154)
150 141174528 : lu(k,156) = lu(k,156) * lu(k,154)
151 141174528 : lu(k,157) = lu(k,157) * lu(k,154)
152 141174528 : lu(k,1773) = lu(k,1773) - lu(k,155) * lu(k,1686)
153 141174528 : lu(k,1823) = lu(k,1823) - lu(k,156) * lu(k,1686)
154 145586232 : lu(k,1833) = lu(k,1833) - lu(k,157) * lu(k,1686)
155 : end do
156 4411704 : end subroutine lu_fac02
157 4411704 : subroutine lu_fac03( avec_len, lu )
158 : use chem_mods, only : nzcnt
159 : use shr_kind_mod, only : r8 => shr_kind_r8
160 : implicit none
161 : !-----------------------------------------------------------------------
162 : ! ... dummy args
163 : !-----------------------------------------------------------------------
164 : integer, intent(in) :: avec_len
165 : real(r8), intent(inout) :: lu(veclen,nzcnt)
166 : !-----------------------------------------------------------------------
167 : ! ... local variables
168 : !-----------------------------------------------------------------------
169 : integer :: k
170 145586232 : do k = 1,avec_len
171 141174528 : lu(k,158) = 1._r8 / lu(k,158)
172 141174528 : lu(k,159) = lu(k,159) * lu(k,158)
173 141174528 : lu(k,160) = lu(k,160) * lu(k,158)
174 141174528 : lu(k,161) = lu(k,161) * lu(k,158)
175 141174528 : lu(k,1634) = lu(k,1634) - lu(k,159) * lu(k,1623)
176 141174528 : lu(k,1650) = lu(k,1650) - lu(k,160) * lu(k,1623)
177 141174528 : lu(k,1657) = lu(k,1657) - lu(k,161) * lu(k,1623)
178 141174528 : lu(k,162) = 1._r8 / lu(k,162)
179 141174528 : lu(k,163) = lu(k,163) * lu(k,162)
180 141174528 : lu(k,164) = lu(k,164) * lu(k,162)
181 141174528 : lu(k,165) = lu(k,165) * lu(k,162)
182 141174528 : lu(k,1632) = lu(k,1632) - lu(k,163) * lu(k,1624)
183 141174528 : lu(k,1650) = lu(k,1650) - lu(k,164) * lu(k,1624)
184 141174528 : lu(k,1657) = lu(k,1657) - lu(k,165) * lu(k,1624)
185 141174528 : lu(k,166) = 1._r8 / lu(k,166)
186 141174528 : lu(k,167) = lu(k,167) * lu(k,166)
187 141174528 : lu(k,168) = lu(k,168) * lu(k,166)
188 141174528 : lu(k,169) = lu(k,169) * lu(k,166)
189 141174528 : lu(k,1632) = lu(k,1632) - lu(k,167) * lu(k,1625)
190 141174528 : lu(k,1650) = lu(k,1650) - lu(k,168) * lu(k,1625)
191 141174528 : lu(k,1657) = lu(k,1657) - lu(k,169) * lu(k,1625)
192 141174528 : lu(k,170) = 1._r8 / lu(k,170)
193 141174528 : lu(k,171) = lu(k,171) * lu(k,170)
194 141174528 : lu(k,172) = lu(k,172) * lu(k,170)
195 141174528 : lu(k,173) = lu(k,173) * lu(k,170)
196 141174528 : lu(k,1823) = lu(k,1823) - lu(k,171) * lu(k,1687)
197 141174528 : lu(k,1829) = lu(k,1829) - lu(k,172) * lu(k,1687)
198 141174528 : lu(k,1833) = lu(k,1833) - lu(k,173) * lu(k,1687)
199 141174528 : lu(k,174) = 1._r8 / lu(k,174)
200 141174528 : lu(k,175) = lu(k,175) * lu(k,174)
201 141174528 : lu(k,176) = lu(k,176) * lu(k,174)
202 141174528 : lu(k,781) = lu(k,781) - lu(k,175) * lu(k,779)
203 141174528 : lu(k,785) = lu(k,785) - lu(k,176) * lu(k,779)
204 141174528 : lu(k,1803) = lu(k,1803) - lu(k,175) * lu(k,1688)
205 141174528 : lu(k,1823) = lu(k,1823) - lu(k,176) * lu(k,1688)
206 141174528 : lu(k,177) = 1._r8 / lu(k,177)
207 141174528 : lu(k,178) = lu(k,178) * lu(k,177)
208 141174528 : lu(k,179) = lu(k,179) * lu(k,177)
209 141174528 : lu(k,563) = lu(k,563) - lu(k,178) * lu(k,562)
210 141174528 : lu(k,565) = lu(k,565) - lu(k,179) * lu(k,562)
211 141174528 : lu(k,1552) = lu(k,1552) - lu(k,178) * lu(k,1546)
212 141174528 : lu(k,1576) = lu(k,1576) - lu(k,179) * lu(k,1546)
213 141174528 : lu(k,180) = 1._r8 / lu(k,180)
214 141174528 : lu(k,181) = lu(k,181) * lu(k,180)
215 141174528 : lu(k,182) = lu(k,182) * lu(k,180)
216 141174528 : lu(k,183) = lu(k,183) * lu(k,180)
217 141174528 : lu(k,184) = lu(k,184) * lu(k,180)
218 141174528 : lu(k,1632) = lu(k,1632) - lu(k,181) * lu(k,1626)
219 141174528 : lu(k,1643) = lu(k,1643) - lu(k,182) * lu(k,1626)
220 141174528 : lu(k,1650) = lu(k,1650) - lu(k,183) * lu(k,1626)
221 141174528 : lu(k,1657) = lu(k,1657) - lu(k,184) * lu(k,1626)
222 141174528 : lu(k,185) = 1._r8 / lu(k,185)
223 141174528 : lu(k,186) = lu(k,186) * lu(k,185)
224 141174528 : lu(k,187) = lu(k,187) * lu(k,185)
225 141174528 : lu(k,188) = lu(k,188) * lu(k,185)
226 141174528 : lu(k,189) = lu(k,189) * lu(k,185)
227 141174528 : lu(k,1632) = lu(k,1632) - lu(k,186) * lu(k,1627)
228 141174528 : lu(k,1641) = lu(k,1641) - lu(k,187) * lu(k,1627)
229 141174528 : lu(k,1643) = lu(k,1643) - lu(k,188) * lu(k,1627)
230 141174528 : lu(k,1650) = lu(k,1650) - lu(k,189) * lu(k,1627)
231 141174528 : lu(k,190) = 1._r8 / lu(k,190)
232 141174528 : lu(k,191) = lu(k,191) * lu(k,190)
233 141174528 : lu(k,192) = lu(k,192) * lu(k,190)
234 141174528 : lu(k,193) = lu(k,193) * lu(k,190)
235 141174528 : lu(k,194) = lu(k,194) * lu(k,190)
236 141174528 : lu(k,1632) = lu(k,1632) - lu(k,191) * lu(k,1628)
237 141174528 : lu(k,1634) = lu(k,1634) - lu(k,192) * lu(k,1628)
238 141174528 : lu(k,1650) = lu(k,1650) - lu(k,193) * lu(k,1628)
239 141174528 : lu(k,1657) = lu(k,1657) - lu(k,194) * lu(k,1628)
240 141174528 : lu(k,195) = 1._r8 / lu(k,195)
241 141174528 : lu(k,196) = lu(k,196) * lu(k,195)
242 141174528 : lu(k,197) = lu(k,197) * lu(k,195)
243 141174528 : lu(k,198) = lu(k,198) * lu(k,195)
244 141174528 : lu(k,199) = lu(k,199) * lu(k,195)
245 141174528 : lu(k,1632) = lu(k,1632) - lu(k,196) * lu(k,1629)
246 141174528 : lu(k,1641) = lu(k,1641) - lu(k,197) * lu(k,1629)
247 141174528 : lu(k,1650) = lu(k,1650) - lu(k,198) * lu(k,1629)
248 141174528 : lu(k,1657) = lu(k,1657) - lu(k,199) * lu(k,1629)
249 141174528 : lu(k,200) = 1._r8 / lu(k,200)
250 141174528 : lu(k,201) = lu(k,201) * lu(k,200)
251 141174528 : lu(k,202) = lu(k,202) * lu(k,200)
252 141174528 : lu(k,750) = lu(k,750) - lu(k,201) * lu(k,749)
253 141174528 : lu(k,755) = - lu(k,202) * lu(k,749)
254 141174528 : lu(k,2222) = - lu(k,201) * lu(k,2219)
255 141174528 : lu(k,2303) = lu(k,2303) - lu(k,202) * lu(k,2219)
256 141174528 : lu(k,203) = 1._r8 / lu(k,203)
257 141174528 : lu(k,204) = lu(k,204) * lu(k,203)
258 141174528 : lu(k,205) = lu(k,205) * lu(k,203)
259 141174528 : lu(k,302) = lu(k,302) - lu(k,204) * lu(k,301)
260 141174528 : lu(k,305) = lu(k,305) - lu(k,205) * lu(k,301)
261 141174528 : lu(k,2341) = lu(k,2341) - lu(k,204) * lu(k,2340)
262 141174528 : lu(k,2365) = lu(k,2365) - lu(k,205) * lu(k,2340)
263 141174528 : lu(k,207) = 1._r8 / lu(k,207)
264 141174528 : lu(k,208) = lu(k,208) * lu(k,207)
265 141174528 : lu(k,209) = lu(k,209) * lu(k,207)
266 141174528 : lu(k,210) = lu(k,210) * lu(k,207)
267 141174528 : lu(k,211) = lu(k,211) * lu(k,207)
268 141174528 : lu(k,212) = lu(k,212) * lu(k,207)
269 141174528 : lu(k,1690) = lu(k,1690) - lu(k,208) * lu(k,1689)
270 141174528 : lu(k,1691) = lu(k,1691) - lu(k,209) * lu(k,1689)
271 141174528 : lu(k,1740) = lu(k,1740) - lu(k,210) * lu(k,1689)
272 141174528 : lu(k,1823) = lu(k,1823) - lu(k,211) * lu(k,1689)
273 145586232 : lu(k,1831) = lu(k,1831) - lu(k,212) * lu(k,1689)
274 : end do
275 4411704 : end subroutine lu_fac03
276 4411704 : subroutine lu_fac04( avec_len, lu )
277 : use chem_mods, only : nzcnt
278 : use shr_kind_mod, only : r8 => shr_kind_r8
279 : implicit none
280 : !-----------------------------------------------------------------------
281 : ! ... dummy args
282 : !-----------------------------------------------------------------------
283 : integer, intent(in) :: avec_len
284 : real(r8), intent(inout) :: lu(veclen,nzcnt)
285 : !-----------------------------------------------------------------------
286 : ! ... local variables
287 : !-----------------------------------------------------------------------
288 : integer :: k
289 145586232 : do k = 1,avec_len
290 141174528 : lu(k,213) = 1._r8 / lu(k,213)
291 141174528 : lu(k,214) = lu(k,214) * lu(k,213)
292 141174528 : lu(k,215) = lu(k,215) * lu(k,213)
293 141174528 : lu(k,216) = lu(k,216) * lu(k,213)
294 141174528 : lu(k,1735) = - lu(k,214) * lu(k,1690)
295 141174528 : lu(k,1797) = lu(k,1797) - lu(k,215) * lu(k,1690)
296 141174528 : lu(k,1831) = lu(k,1831) - lu(k,216) * lu(k,1690)
297 141174528 : lu(k,217) = 1._r8 / lu(k,217)
298 141174528 : lu(k,218) = lu(k,218) * lu(k,217)
299 141174528 : lu(k,219) = lu(k,219) * lu(k,217)
300 141174528 : lu(k,220) = lu(k,220) * lu(k,217)
301 141174528 : lu(k,221) = lu(k,221) * lu(k,217)
302 141174528 : lu(k,1734) = lu(k,1734) - lu(k,218) * lu(k,1691)
303 141174528 : lu(k,1738) = lu(k,1738) - lu(k,219) * lu(k,1691)
304 141174528 : lu(k,1823) = lu(k,1823) - lu(k,220) * lu(k,1691)
305 141174528 : lu(k,1831) = lu(k,1831) - lu(k,221) * lu(k,1691)
306 141174528 : lu(k,222) = 1._r8 / lu(k,222)
307 141174528 : lu(k,223) = lu(k,223) * lu(k,222)
308 141174528 : lu(k,859) = lu(k,859) - lu(k,223) * lu(k,854)
309 141174528 : lu(k,979) = lu(k,979) - lu(k,223) * lu(k,970)
310 141174528 : lu(k,2031) = lu(k,2031) - lu(k,223) * lu(k,2013)
311 141174528 : lu(k,2129) = lu(k,2129) - lu(k,223) * lu(k,2095)
312 141174528 : lu(k,2335) = lu(k,2335) - lu(k,223) * lu(k,2315)
313 141174528 : lu(k,224) = 1._r8 / lu(k,224)
314 141174528 : lu(k,225) = lu(k,225) * lu(k,224)
315 141174528 : lu(k,226) = lu(k,226) * lu(k,224)
316 141174528 : lu(k,531) = - lu(k,225) * lu(k,526)
317 141174528 : lu(k,533) = lu(k,533) - lu(k,226) * lu(k,526)
318 141174528 : lu(k,1578) = - lu(k,225) * lu(k,1547)
319 141174528 : lu(k,1581) = lu(k,1581) - lu(k,226) * lu(k,1547)
320 141174528 : lu(k,1650) = lu(k,1650) - lu(k,225) * lu(k,1630)
321 141174528 : lu(k,1653) = lu(k,1653) - lu(k,226) * lu(k,1630)
322 141174528 : lu(k,227) = 1._r8 / lu(k,227)
323 141174528 : lu(k,228) = lu(k,228) * lu(k,227)
324 141174528 : lu(k,229) = lu(k,229) * lu(k,227)
325 141174528 : lu(k,230) = lu(k,230) * lu(k,227)
326 141174528 : lu(k,1650) = lu(k,1650) - lu(k,228) * lu(k,1631)
327 141174528 : lu(k,1651) = lu(k,1651) - lu(k,229) * lu(k,1631)
328 141174528 : lu(k,1659) = lu(k,1659) - lu(k,230) * lu(k,1631)
329 141174528 : lu(k,1822) = - lu(k,228) * lu(k,1692)
330 141174528 : lu(k,1823) = lu(k,1823) - lu(k,229) * lu(k,1692)
331 141174528 : lu(k,1831) = lu(k,1831) - lu(k,230) * lu(k,1692)
332 141174528 : lu(k,232) = 1._r8 / lu(k,232)
333 141174528 : lu(k,233) = lu(k,233) * lu(k,232)
334 141174528 : lu(k,234) = lu(k,234) * lu(k,232)
335 141174528 : lu(k,235) = lu(k,235) * lu(k,232)
336 141174528 : lu(k,236) = lu(k,236) * lu(k,232)
337 141174528 : lu(k,237) = lu(k,237) * lu(k,232)
338 141174528 : lu(k,238) = lu(k,238) * lu(k,232)
339 141174528 : lu(k,1694) = lu(k,1694) - lu(k,233) * lu(k,1693)
340 141174528 : lu(k,1695) = lu(k,1695) - lu(k,234) * lu(k,1693)
341 141174528 : lu(k,1733) = lu(k,1733) - lu(k,235) * lu(k,1693)
342 141174528 : lu(k,1767) = lu(k,1767) - lu(k,236) * lu(k,1693)
343 141174528 : lu(k,1823) = lu(k,1823) - lu(k,237) * lu(k,1693)
344 141174528 : lu(k,1831) = lu(k,1831) - lu(k,238) * lu(k,1693)
345 141174528 : lu(k,239) = 1._r8 / lu(k,239)
346 141174528 : lu(k,240) = lu(k,240) * lu(k,239)
347 141174528 : lu(k,241) = lu(k,241) * lu(k,239)
348 141174528 : lu(k,242) = lu(k,242) * lu(k,239)
349 141174528 : lu(k,243) = lu(k,243) * lu(k,239)
350 141174528 : lu(k,1734) = lu(k,1734) - lu(k,240) * lu(k,1694)
351 141174528 : lu(k,1738) = lu(k,1738) - lu(k,241) * lu(k,1694)
352 141174528 : lu(k,1823) = lu(k,1823) - lu(k,242) * lu(k,1694)
353 141174528 : lu(k,1831) = lu(k,1831) - lu(k,243) * lu(k,1694)
354 141174528 : lu(k,244) = 1._r8 / lu(k,244)
355 141174528 : lu(k,245) = lu(k,245) * lu(k,244)
356 141174528 : lu(k,246) = lu(k,246) * lu(k,244)
357 141174528 : lu(k,247) = lu(k,247) * lu(k,244)
358 141174528 : lu(k,257) = - lu(k,245) * lu(k,252)
359 141174528 : lu(k,258) = - lu(k,246) * lu(k,252)
360 141174528 : lu(k,260) = lu(k,260) - lu(k,247) * lu(k,252)
361 141174528 : lu(k,1797) = lu(k,1797) - lu(k,245) * lu(k,1695)
362 141174528 : lu(k,1813) = lu(k,1813) - lu(k,246) * lu(k,1695)
363 141174528 : lu(k,1831) = lu(k,1831) - lu(k,247) * lu(k,1695)
364 141174528 : lu(k,248) = 1._r8 / lu(k,248)
365 141174528 : lu(k,249) = lu(k,249) * lu(k,248)
366 141174528 : lu(k,250) = lu(k,250) * lu(k,248)
367 141174528 : lu(k,1217) = lu(k,1217) - lu(k,249) * lu(k,1210)
368 141174528 : lu(k,1223) = - lu(k,250) * lu(k,1210)
369 141174528 : lu(k,1803) = lu(k,1803) - lu(k,249) * lu(k,1696)
370 141174528 : lu(k,1823) = lu(k,1823) - lu(k,250) * lu(k,1696)
371 141174528 : lu(k,2284) = lu(k,2284) - lu(k,249) * lu(k,2220)
372 141174528 : lu(k,2303) = lu(k,2303) - lu(k,250) * lu(k,2220)
373 141174528 : lu(k,253) = 1._r8 / lu(k,253)
374 141174528 : lu(k,254) = lu(k,254) * lu(k,253)
375 141174528 : lu(k,255) = lu(k,255) * lu(k,253)
376 141174528 : lu(k,256) = lu(k,256) * lu(k,253)
377 141174528 : lu(k,257) = lu(k,257) * lu(k,253)
378 141174528 : lu(k,258) = lu(k,258) * lu(k,253)
379 141174528 : lu(k,259) = lu(k,259) * lu(k,253)
380 141174528 : lu(k,260) = lu(k,260) * lu(k,253)
381 141174528 : lu(k,1698) = lu(k,1698) - lu(k,254) * lu(k,1697)
382 141174528 : lu(k,1733) = lu(k,1733) - lu(k,255) * lu(k,1697)
383 141174528 : lu(k,1769) = lu(k,1769) - lu(k,256) * lu(k,1697)
384 141174528 : lu(k,1797) = lu(k,1797) - lu(k,257) * lu(k,1697)
385 141174528 : lu(k,1813) = lu(k,1813) - lu(k,258) * lu(k,1697)
386 141174528 : lu(k,1823) = lu(k,1823) - lu(k,259) * lu(k,1697)
387 145586232 : lu(k,1831) = lu(k,1831) - lu(k,260) * lu(k,1697)
388 : end do
389 4411704 : end subroutine lu_fac04
390 4411704 : subroutine lu_fac05( avec_len, lu )
391 : use chem_mods, only : nzcnt
392 : use shr_kind_mod, only : r8 => shr_kind_r8
393 : implicit none
394 : !-----------------------------------------------------------------------
395 : ! ... dummy args
396 : !-----------------------------------------------------------------------
397 : integer, intent(in) :: avec_len
398 : real(r8), intent(inout) :: lu(veclen,nzcnt)
399 : !-----------------------------------------------------------------------
400 : ! ... local variables
401 : !-----------------------------------------------------------------------
402 : integer :: k
403 145586232 : do k = 1,avec_len
404 141174528 : lu(k,261) = 1._r8 / lu(k,261)
405 141174528 : lu(k,262) = lu(k,262) * lu(k,261)
406 141174528 : lu(k,263) = lu(k,263) * lu(k,261)
407 141174528 : lu(k,264) = lu(k,264) * lu(k,261)
408 141174528 : lu(k,265) = lu(k,265) * lu(k,261)
409 141174528 : lu(k,1738) = lu(k,1738) - lu(k,262) * lu(k,1698)
410 141174528 : lu(k,1741) = lu(k,1741) - lu(k,263) * lu(k,1698)
411 141174528 : lu(k,1823) = lu(k,1823) - lu(k,264) * lu(k,1698)
412 141174528 : lu(k,1831) = lu(k,1831) - lu(k,265) * lu(k,1698)
413 141174528 : lu(k,266) = 1._r8 / lu(k,266)
414 141174528 : lu(k,267) = lu(k,267) * lu(k,266)
415 141174528 : lu(k,268) = lu(k,268) * lu(k,266)
416 141174528 : lu(k,937) = - lu(k,267) * lu(k,933)
417 141174528 : lu(k,951) = lu(k,951) - lu(k,268) * lu(k,933)
418 141174528 : lu(k,1011) = - lu(k,267) * lu(k,1008)
419 141174528 : lu(k,1028) = lu(k,1028) - lu(k,268) * lu(k,1008)
420 141174528 : lu(k,1784) = lu(k,1784) - lu(k,267) * lu(k,1699)
421 141174528 : lu(k,1823) = lu(k,1823) - lu(k,268) * lu(k,1699)
422 141174528 : lu(k,2151) = - lu(k,267) * lu(k,2139)
423 141174528 : lu(k,2185) = lu(k,2185) - lu(k,268) * lu(k,2139)
424 141174528 : lu(k,269) = 1._r8 / lu(k,269)
425 141174528 : lu(k,270) = lu(k,270) * lu(k,269)
426 141174528 : lu(k,271) = lu(k,271) * lu(k,269)
427 141174528 : lu(k,1140) = lu(k,1140) - lu(k,270) * lu(k,1131)
428 141174528 : lu(k,1142) = lu(k,1142) - lu(k,271) * lu(k,1131)
429 141174528 : lu(k,1166) = - lu(k,270) * lu(k,1155)
430 141174528 : lu(k,1168) = lu(k,1168) - lu(k,271) * lu(k,1155)
431 141174528 : lu(k,1817) = lu(k,1817) - lu(k,270) * lu(k,1700)
432 141174528 : lu(k,1820) = lu(k,1820) - lu(k,271) * lu(k,1700)
433 141174528 : lu(k,1944) = - lu(k,270) * lu(k,1881)
434 141174528 : lu(k,1947) = lu(k,1947) - lu(k,271) * lu(k,1881)
435 141174528 : lu(k,272) = 1._r8 / lu(k,272)
436 141174528 : lu(k,273) = lu(k,273) * lu(k,272)
437 141174528 : lu(k,274) = lu(k,274) * lu(k,272)
438 141174528 : lu(k,824) = lu(k,824) - lu(k,273) * lu(k,822)
439 141174528 : lu(k,829) = - lu(k,274) * lu(k,822)
440 141174528 : lu(k,1840) = lu(k,1840) - lu(k,273) * lu(k,1834)
441 141174528 : lu(k,1853) = lu(k,1853) - lu(k,274) * lu(k,1834)
442 141174528 : lu(k,2018) = - lu(k,273) * lu(k,2014)
443 141174528 : lu(k,2031) = lu(k,2031) - lu(k,274) * lu(k,2014)
444 141174528 : lu(k,2322) = lu(k,2322) - lu(k,273) * lu(k,2316)
445 141174528 : lu(k,2335) = lu(k,2335) - lu(k,274) * lu(k,2316)
446 141174528 : lu(k,275) = 1._r8 / lu(k,275)
447 141174528 : lu(k,276) = lu(k,276) * lu(k,275)
448 141174528 : lu(k,277) = lu(k,277) * lu(k,275)
449 141174528 : lu(k,373) = - lu(k,276) * lu(k,370)
450 141174528 : lu(k,374) = lu(k,374) - lu(k,277) * lu(k,370)
451 141174528 : lu(k,487) = - lu(k,276) * lu(k,484)
452 141174528 : lu(k,489) = - lu(k,277) * lu(k,484)
453 141174528 : lu(k,1744) = lu(k,1744) - lu(k,276) * lu(k,1701)
454 141174528 : lu(k,1823) = lu(k,1823) - lu(k,277) * lu(k,1701)
455 141174528 : lu(k,1896) = lu(k,1896) - lu(k,276) * lu(k,1882)
456 141174528 : lu(k,1950) = lu(k,1950) - lu(k,277) * lu(k,1882)
457 141174528 : lu(k,278) = 1._r8 / lu(k,278)
458 141174528 : lu(k,279) = lu(k,279) * lu(k,278)
459 141174528 : lu(k,280) = lu(k,280) * lu(k,278)
460 141174528 : lu(k,281) = lu(k,281) * lu(k,278)
461 141174528 : lu(k,282) = lu(k,282) * lu(k,278)
462 141174528 : lu(k,1320) = - lu(k,279) * lu(k,1317)
463 141174528 : lu(k,1331) = - lu(k,280) * lu(k,1317)
464 141174528 : lu(k,1343) = - lu(k,281) * lu(k,1317)
465 141174528 : lu(k,1348) = lu(k,1348) - lu(k,282) * lu(k,1317)
466 141174528 : lu(k,1753) = - lu(k,279) * lu(k,1702)
467 141174528 : lu(k,1803) = lu(k,1803) - lu(k,280) * lu(k,1702)
468 141174528 : lu(k,1823) = lu(k,1823) - lu(k,281) * lu(k,1702)
469 141174528 : lu(k,1831) = lu(k,1831) - lu(k,282) * lu(k,1702)
470 141174528 : lu(k,283) = 1._r8 / lu(k,283)
471 141174528 : lu(k,284) = lu(k,284) * lu(k,283)
472 141174528 : lu(k,285) = lu(k,285) * lu(k,283)
473 141174528 : lu(k,297) = - lu(k,284) * lu(k,295)
474 141174528 : lu(k,298) = lu(k,298) - lu(k,285) * lu(k,295)
475 141174528 : lu(k,335) = - lu(k,284) * lu(k,333)
476 141174528 : lu(k,336) = lu(k,336) - lu(k,285) * lu(k,333)
477 141174528 : lu(k,1641) = lu(k,1641) - lu(k,284) * lu(k,1632)
478 141174528 : lu(k,1650) = lu(k,1650) - lu(k,285) * lu(k,1632)
479 141174528 : lu(k,1781) = - lu(k,284) * lu(k,1703)
480 141174528 : lu(k,1822) = lu(k,1822) - lu(k,285) * lu(k,1703)
481 141174528 : lu(k,286) = 1._r8 / lu(k,286)
482 141174528 : lu(k,287) = lu(k,287) * lu(k,286)
483 141174528 : lu(k,288) = lu(k,288) * lu(k,286)
484 141174528 : lu(k,289) = lu(k,289) * lu(k,286)
485 141174528 : lu(k,290) = lu(k,290) * lu(k,286)
486 141174528 : lu(k,1634) = lu(k,1634) - lu(k,287) * lu(k,1633)
487 141174528 : lu(k,1650) = lu(k,1650) - lu(k,288) * lu(k,1633)
488 141174528 : lu(k,1651) = lu(k,1651) - lu(k,289) * lu(k,1633)
489 141174528 : lu(k,1657) = lu(k,1657) - lu(k,290) * lu(k,1633)
490 141174528 : lu(k,1705) = lu(k,1705) - lu(k,287) * lu(k,1704)
491 141174528 : lu(k,1822) = lu(k,1822) - lu(k,288) * lu(k,1704)
492 141174528 : lu(k,1823) = lu(k,1823) - lu(k,289) * lu(k,1704)
493 141174528 : lu(k,1829) = lu(k,1829) - lu(k,290) * lu(k,1704)
494 141174528 : lu(k,291) = 1._r8 / lu(k,291)
495 141174528 : lu(k,292) = lu(k,292) * lu(k,291)
496 141174528 : lu(k,293) = lu(k,293) * lu(k,291)
497 141174528 : lu(k,294) = lu(k,294) * lu(k,291)
498 141174528 : lu(k,1641) = lu(k,1641) - lu(k,292) * lu(k,1634)
499 141174528 : lu(k,1650) = lu(k,1650) - lu(k,293) * lu(k,1634)
500 141174528 : lu(k,1657) = lu(k,1657) - lu(k,294) * lu(k,1634)
501 141174528 : lu(k,1781) = lu(k,1781) - lu(k,292) * lu(k,1705)
502 141174528 : lu(k,1822) = lu(k,1822) - lu(k,293) * lu(k,1705)
503 145586232 : lu(k,1829) = lu(k,1829) - lu(k,294) * lu(k,1705)
504 : end do
505 4411704 : end subroutine lu_fac05
506 4411704 : subroutine lu_fac06( avec_len, lu )
507 : use chem_mods, only : nzcnt
508 : use shr_kind_mod, only : r8 => shr_kind_r8
509 : implicit none
510 : !-----------------------------------------------------------------------
511 : ! ... dummy args
512 : !-----------------------------------------------------------------------
513 : integer, intent(in) :: avec_len
514 : real(r8), intent(inout) :: lu(veclen,nzcnt)
515 : !-----------------------------------------------------------------------
516 : ! ... local variables
517 : !-----------------------------------------------------------------------
518 : integer :: k
519 145586232 : do k = 1,avec_len
520 141174528 : lu(k,296) = 1._r8 / lu(k,296)
521 141174528 : lu(k,297) = lu(k,297) * lu(k,296)
522 141174528 : lu(k,298) = lu(k,298) * lu(k,296)
523 141174528 : lu(k,299) = lu(k,299) * lu(k,296)
524 141174528 : lu(k,300) = lu(k,300) * lu(k,296)
525 141174528 : lu(k,1641) = lu(k,1641) - lu(k,297) * lu(k,1635)
526 141174528 : lu(k,1650) = lu(k,1650) - lu(k,298) * lu(k,1635)
527 141174528 : lu(k,1651) = lu(k,1651) - lu(k,299) * lu(k,1635)
528 141174528 : lu(k,1657) = lu(k,1657) - lu(k,300) * lu(k,1635)
529 141174528 : lu(k,1781) = lu(k,1781) - lu(k,297) * lu(k,1706)
530 141174528 : lu(k,1822) = lu(k,1822) - lu(k,298) * lu(k,1706)
531 141174528 : lu(k,1823) = lu(k,1823) - lu(k,299) * lu(k,1706)
532 141174528 : lu(k,1829) = lu(k,1829) - lu(k,300) * lu(k,1706)
533 141174528 : lu(k,302) = 1._r8 / lu(k,302)
534 141174528 : lu(k,303) = lu(k,303) * lu(k,302)
535 141174528 : lu(k,304) = lu(k,304) * lu(k,302)
536 141174528 : lu(k,305) = lu(k,305) * lu(k,302)
537 141174528 : lu(k,902) = lu(k,902) - lu(k,303) * lu(k,901)
538 141174528 : lu(k,904) = lu(k,904) - lu(k,304) * lu(k,901)
539 141174528 : lu(k,907) = - lu(k,305) * lu(k,901)
540 141174528 : lu(k,1780) = lu(k,1780) - lu(k,303) * lu(k,1707)
541 141174528 : lu(k,1821) = lu(k,1821) - lu(k,304) * lu(k,1707)
542 141174528 : lu(k,1833) = lu(k,1833) - lu(k,305) * lu(k,1707)
543 141174528 : lu(k,2343) = - lu(k,303) * lu(k,2341)
544 141174528 : lu(k,2353) = lu(k,2353) - lu(k,304) * lu(k,2341)
545 141174528 : lu(k,2365) = lu(k,2365) - lu(k,305) * lu(k,2341)
546 141174528 : lu(k,306) = 1._r8 / lu(k,306)
547 141174528 : lu(k,307) = lu(k,307) * lu(k,306)
548 141174528 : lu(k,308) = lu(k,308) * lu(k,306)
549 141174528 : lu(k,309) = lu(k,309) * lu(k,306)
550 141174528 : lu(k,866) = lu(k,866) - lu(k,307) * lu(k,862)
551 141174528 : lu(k,869) = - lu(k,308) * lu(k,862)
552 141174528 : lu(k,872) = lu(k,872) - lu(k,309) * lu(k,862)
553 141174528 : lu(k,1793) = lu(k,1793) - lu(k,307) * lu(k,1708)
554 141174528 : lu(k,1823) = lu(k,1823) - lu(k,308) * lu(k,1708)
555 141174528 : lu(k,1831) = lu(k,1831) - lu(k,309) * lu(k,1708)
556 141174528 : lu(k,1976) = lu(k,1976) - lu(k,307) * lu(k,1961)
557 141174528 : lu(k,2002) = - lu(k,308) * lu(k,1961)
558 141174528 : lu(k,2010) = lu(k,2010) - lu(k,309) * lu(k,1961)
559 141174528 : lu(k,310) = 1._r8 / lu(k,310)
560 141174528 : lu(k,311) = lu(k,311) * lu(k,310)
561 141174528 : lu(k,312) = lu(k,312) * lu(k,310)
562 141174528 : lu(k,313) = lu(k,313) * lu(k,310)
563 141174528 : lu(k,669) = lu(k,669) - lu(k,311) * lu(k,668)
564 141174528 : lu(k,670) = lu(k,670) - lu(k,312) * lu(k,668)
565 141174528 : lu(k,672) = - lu(k,313) * lu(k,668)
566 141174528 : lu(k,1738) = lu(k,1738) - lu(k,311) * lu(k,1709)
567 141174528 : lu(k,1757) = lu(k,1757) - lu(k,312) * lu(k,1709)
568 141174528 : lu(k,1823) = lu(k,1823) - lu(k,313) * lu(k,1709)
569 141174528 : lu(k,2241) = - lu(k,311) * lu(k,2221)
570 141174528 : lu(k,2248) = lu(k,2248) - lu(k,312) * lu(k,2221)
571 141174528 : lu(k,2303) = lu(k,2303) - lu(k,313) * lu(k,2221)
572 141174528 : lu(k,314) = 1._r8 / lu(k,314)
573 141174528 : lu(k,315) = lu(k,315) * lu(k,314)
574 141174528 : lu(k,316) = lu(k,316) * lu(k,314)
575 141174528 : lu(k,317) = lu(k,317) * lu(k,314)
576 141174528 : lu(k,752) = - lu(k,315) * lu(k,750)
577 141174528 : lu(k,753) = lu(k,753) - lu(k,316) * lu(k,750)
578 141174528 : lu(k,757) = lu(k,757) - lu(k,317) * lu(k,750)
579 141174528 : lu(k,1923) = lu(k,1923) - lu(k,315) * lu(k,1883)
580 141174528 : lu(k,1946) = lu(k,1946) - lu(k,316) * lu(k,1883)
581 141174528 : lu(k,1958) = lu(k,1958) - lu(k,317) * lu(k,1883)
582 141174528 : lu(k,2276) = - lu(k,315) * lu(k,2222)
583 141174528 : lu(k,2299) = lu(k,2299) - lu(k,316) * lu(k,2222)
584 141174528 : lu(k,2311) = lu(k,2311) - lu(k,317) * lu(k,2222)
585 141174528 : lu(k,318) = 1._r8 / lu(k,318)
586 141174528 : lu(k,319) = lu(k,319) * lu(k,318)
587 141174528 : lu(k,320) = lu(k,320) * lu(k,318)
588 141174528 : lu(k,722) = - lu(k,319) * lu(k,716)
589 141174528 : lu(k,728) = lu(k,728) - lu(k,320) * lu(k,716)
590 141174528 : lu(k,741) = - lu(k,319) * lu(k,734)
591 141174528 : lu(k,748) = lu(k,748) - lu(k,320) * lu(k,734)
592 141174528 : lu(k,770) = - lu(k,319) * lu(k,764)
593 141174528 : lu(k,778) = lu(k,778) - lu(k,320) * lu(k,764)
594 141174528 : lu(k,794) = - lu(k,319) * lu(k,787)
595 141174528 : lu(k,803) = lu(k,803) - lu(k,320) * lu(k,787)
596 141174528 : lu(k,1909) = lu(k,1909) - lu(k,319) * lu(k,1884)
597 141174528 : lu(k,1958) = lu(k,1958) - lu(k,320) * lu(k,1884)
598 141174528 : lu(k,321) = 1._r8 / lu(k,321)
599 141174528 : lu(k,322) = lu(k,322) * lu(k,321)
600 141174528 : lu(k,323) = lu(k,323) * lu(k,321)
601 141174528 : lu(k,324) = lu(k,324) * lu(k,321)
602 141174528 : lu(k,325) = lu(k,325) * lu(k,321)
603 141174528 : lu(k,326) = lu(k,326) * lu(k,321)
604 141174528 : lu(k,1787) = lu(k,1787) - lu(k,322) * lu(k,1710)
605 141174528 : lu(k,1788) = lu(k,1788) - lu(k,323) * lu(k,1710)
606 141174528 : lu(k,1797) = lu(k,1797) - lu(k,324) * lu(k,1710)
607 141174528 : lu(k,1823) = lu(k,1823) - lu(k,325) * lu(k,1710)
608 141174528 : lu(k,1831) = lu(k,1831) - lu(k,326) * lu(k,1710)
609 141174528 : lu(k,2108) = - lu(k,322) * lu(k,2096)
610 141174528 : lu(k,2109) = - lu(k,323) * lu(k,2096)
611 141174528 : lu(k,2112) = lu(k,2112) - lu(k,324) * lu(k,2096)
612 141174528 : lu(k,2123) = lu(k,2123) - lu(k,325) * lu(k,2096)
613 141174528 : lu(k,2131) = lu(k,2131) - lu(k,326) * lu(k,2096)
614 141174528 : lu(k,327) = 1._r8 / lu(k,327)
615 141174528 : lu(k,328) = lu(k,328) * lu(k,327)
616 141174528 : lu(k,329) = lu(k,329) * lu(k,327)
617 141174528 : lu(k,330) = lu(k,330) * lu(k,327)
618 141174528 : lu(k,331) = lu(k,331) * lu(k,327)
619 141174528 : lu(k,332) = lu(k,332) * lu(k,327)
620 141174528 : lu(k,1776) = lu(k,1776) - lu(k,328) * lu(k,1711)
621 141174528 : lu(k,1823) = lu(k,1823) - lu(k,329) * lu(k,1711)
622 141174528 : lu(k,1827) = lu(k,1827) - lu(k,330) * lu(k,1711)
623 141174528 : lu(k,1829) = lu(k,1829) - lu(k,331) * lu(k,1711)
624 141174528 : lu(k,1833) = lu(k,1833) - lu(k,332) * lu(k,1711)
625 141174528 : lu(k,2106) = lu(k,2106) - lu(k,328) * lu(k,2097)
626 141174528 : lu(k,2123) = lu(k,2123) - lu(k,329) * lu(k,2097)
627 141174528 : lu(k,2127) = lu(k,2127) - lu(k,330) * lu(k,2097)
628 141174528 : lu(k,2129) = lu(k,2129) - lu(k,331) * lu(k,2097)
629 145586232 : lu(k,2133) = - lu(k,332) * lu(k,2097)
630 : end do
631 4411704 : end subroutine lu_fac06
632 4411704 : subroutine lu_fac07( avec_len, lu )
633 : use chem_mods, only : nzcnt
634 : use shr_kind_mod, only : r8 => shr_kind_r8
635 : implicit none
636 : !-----------------------------------------------------------------------
637 : ! ... dummy args
638 : !-----------------------------------------------------------------------
639 : integer, intent(in) :: avec_len
640 : real(r8), intent(inout) :: lu(veclen,nzcnt)
641 : !-----------------------------------------------------------------------
642 : ! ... local variables
643 : !-----------------------------------------------------------------------
644 : integer :: k
645 145586232 : do k = 1,avec_len
646 141174528 : lu(k,334) = 1._r8 / lu(k,334)
647 141174528 : lu(k,335) = lu(k,335) * lu(k,334)
648 141174528 : lu(k,336) = lu(k,336) * lu(k,334)
649 141174528 : lu(k,337) = lu(k,337) * lu(k,334)
650 141174528 : lu(k,338) = lu(k,338) * lu(k,334)
651 141174528 : lu(k,339) = lu(k,339) * lu(k,334)
652 141174528 : lu(k,1641) = lu(k,1641) - lu(k,335) * lu(k,1636)
653 141174528 : lu(k,1650) = lu(k,1650) - lu(k,336) * lu(k,1636)
654 141174528 : lu(k,1651) = lu(k,1651) - lu(k,337) * lu(k,1636)
655 141174528 : lu(k,1657) = lu(k,1657) - lu(k,338) * lu(k,1636)
656 141174528 : lu(k,1661) = lu(k,1661) - lu(k,339) * lu(k,1636)
657 141174528 : lu(k,1781) = lu(k,1781) - lu(k,335) * lu(k,1712)
658 141174528 : lu(k,1822) = lu(k,1822) - lu(k,336) * lu(k,1712)
659 141174528 : lu(k,1823) = lu(k,1823) - lu(k,337) * lu(k,1712)
660 141174528 : lu(k,1829) = lu(k,1829) - lu(k,338) * lu(k,1712)
661 141174528 : lu(k,1833) = lu(k,1833) - lu(k,339) * lu(k,1712)
662 141174528 : lu(k,340) = 1._r8 / lu(k,340)
663 141174528 : lu(k,341) = lu(k,341) * lu(k,340)
664 141174528 : lu(k,342) = lu(k,342) * lu(k,340)
665 141174528 : lu(k,909) = lu(k,909) - lu(k,341) * lu(k,908)
666 141174528 : lu(k,913) = lu(k,913) - lu(k,342) * lu(k,908)
667 141174528 : lu(k,1447) = lu(k,1447) - lu(k,341) * lu(k,1446)
668 141174528 : lu(k,1451) = lu(k,1451) - lu(k,342) * lu(k,1446)
669 141174528 : lu(k,1474) = lu(k,1474) - lu(k,341) * lu(k,1472)
670 141174528 : lu(k,1479) = lu(k,1479) - lu(k,342) * lu(k,1472)
671 141174528 : lu(k,1491) = lu(k,1491) - lu(k,341) * lu(k,1490)
672 141174528 : lu(k,1495) = - lu(k,342) * lu(k,1490)
673 141174528 : lu(k,2344) = lu(k,2344) - lu(k,341) * lu(k,2342)
674 141174528 : lu(k,2350) = lu(k,2350) - lu(k,342) * lu(k,2342)
675 141174528 : lu(k,343) = 1._r8 / lu(k,343)
676 141174528 : lu(k,344) = lu(k,344) * lu(k,343)
677 141174528 : lu(k,345) = lu(k,345) * lu(k,343)
678 141174528 : lu(k,346) = lu(k,346) * lu(k,343)
679 141174528 : lu(k,347) = lu(k,347) * lu(k,343)
680 141174528 : lu(k,348) = lu(k,348) * lu(k,343)
681 141174528 : lu(k,1573) = lu(k,1573) - lu(k,344) * lu(k,1548)
682 141174528 : lu(k,1576) = lu(k,1576) - lu(k,345) * lu(k,1548)
683 141174528 : lu(k,1577) = lu(k,1577) - lu(k,346) * lu(k,1548)
684 141174528 : lu(k,1581) = lu(k,1581) - lu(k,347) * lu(k,1548)
685 141174528 : lu(k,1584) = lu(k,1584) - lu(k,348) * lu(k,1548)
686 141174528 : lu(k,2078) = lu(k,2078) - lu(k,344) * lu(k,2038)
687 141174528 : lu(k,2081) = lu(k,2081) - lu(k,345) * lu(k,2038)
688 141174528 : lu(k,2082) = lu(k,2082) - lu(k,346) * lu(k,2038)
689 141174528 : lu(k,2086) = lu(k,2086) - lu(k,347) * lu(k,2038)
690 141174528 : lu(k,2089) = lu(k,2089) - lu(k,348) * lu(k,2038)
691 141174528 : lu(k,349) = 1._r8 / lu(k,349)
692 141174528 : lu(k,350) = lu(k,350) * lu(k,349)
693 141174528 : lu(k,351) = lu(k,351) * lu(k,349)
694 141174528 : lu(k,352) = lu(k,352) * lu(k,349)
695 141174528 : lu(k,353) = lu(k,353) * lu(k,349)
696 141174528 : lu(k,354) = lu(k,354) * lu(k,349)
697 141174528 : lu(k,1780) = lu(k,1780) - lu(k,350) * lu(k,1713)
698 141174528 : lu(k,1817) = lu(k,1817) - lu(k,351) * lu(k,1713)
699 141174528 : lu(k,1823) = lu(k,1823) - lu(k,352) * lu(k,1713)
700 141174528 : lu(k,1828) = lu(k,1828) - lu(k,353) * lu(k,1713)
701 141174528 : lu(k,1831) = lu(k,1831) - lu(k,354) * lu(k,1713)
702 141174528 : lu(k,2045) = lu(k,2045) - lu(k,350) * lu(k,2039)
703 141174528 : lu(k,2078) = lu(k,2078) - lu(k,351) * lu(k,2039)
704 141174528 : lu(k,2084) = lu(k,2084) - lu(k,352) * lu(k,2039)
705 141174528 : lu(k,2089) = lu(k,2089) - lu(k,353) * lu(k,2039)
706 141174528 : lu(k,2092) = lu(k,2092) - lu(k,354) * lu(k,2039)
707 141174528 : lu(k,355) = 1._r8 / lu(k,355)
708 141174528 : lu(k,356) = lu(k,356) * lu(k,355)
709 141174528 : lu(k,357) = lu(k,357) * lu(k,355)
710 141174528 : lu(k,358) = lu(k,358) * lu(k,355)
711 141174528 : lu(k,359) = lu(k,359) * lu(k,355)
712 141174528 : lu(k,744) = - lu(k,356) * lu(k,735)
713 141174528 : lu(k,745) = lu(k,745) - lu(k,357) * lu(k,735)
714 141174528 : lu(k,746) = - lu(k,358) * lu(k,735)
715 141174528 : lu(k,748) = lu(k,748) - lu(k,359) * lu(k,735)
716 141174528 : lu(k,797) = - lu(k,356) * lu(k,788)
717 141174528 : lu(k,798) = lu(k,798) - lu(k,357) * lu(k,788)
718 141174528 : lu(k,799) = - lu(k,358) * lu(k,788)
719 141174528 : lu(k,803) = lu(k,803) - lu(k,359) * lu(k,788)
720 141174528 : lu(k,1926) = lu(k,1926) - lu(k,356) * lu(k,1885)
721 141174528 : lu(k,1935) = lu(k,1935) - lu(k,357) * lu(k,1885)
722 141174528 : lu(k,1941) = lu(k,1941) - lu(k,358) * lu(k,1885)
723 141174528 : lu(k,1958) = lu(k,1958) - lu(k,359) * lu(k,1885)
724 141174528 : lu(k,360) = 1._r8 / lu(k,360)
725 141174528 : lu(k,361) = lu(k,361) * lu(k,360)
726 141174528 : lu(k,362) = lu(k,362) * lu(k,360)
727 141174528 : lu(k,363) = lu(k,363) * lu(k,360)
728 141174528 : lu(k,364) = lu(k,364) * lu(k,360)
729 141174528 : lu(k,1275) = lu(k,1275) - lu(k,361) * lu(k,1273)
730 141174528 : lu(k,1276) = lu(k,1276) - lu(k,362) * lu(k,1273)
731 141174528 : lu(k,1280) = lu(k,1280) - lu(k,363) * lu(k,1273)
732 141174528 : lu(k,1287) = lu(k,1287) - lu(k,364) * lu(k,1273)
733 141174528 : lu(k,1838) = lu(k,1838) - lu(k,361) * lu(k,1835)
734 141174528 : lu(k,1839) = lu(k,1839) - lu(k,362) * lu(k,1835)
735 141174528 : lu(k,1845) = lu(k,1845) - lu(k,363) * lu(k,1835)
736 141174528 : lu(k,1856) = lu(k,1856) - lu(k,364) * lu(k,1835)
737 141174528 : lu(k,2319) = lu(k,2319) - lu(k,361) * lu(k,2317)
738 141174528 : lu(k,2321) = lu(k,2321) - lu(k,362) * lu(k,2317)
739 141174528 : lu(k,2327) = lu(k,2327) - lu(k,363) * lu(k,2317)
740 141174528 : lu(k,2338) = lu(k,2338) - lu(k,364) * lu(k,2317)
741 141174528 : lu(k,365) = 1._r8 / lu(k,365)
742 141174528 : lu(k,366) = lu(k,366) * lu(k,365)
743 141174528 : lu(k,367) = lu(k,367) * lu(k,365)
744 141174528 : lu(k,368) = lu(k,368) * lu(k,365)
745 141174528 : lu(k,369) = lu(k,369) * lu(k,365)
746 141174528 : lu(k,499) = lu(k,499) - lu(k,366) * lu(k,498)
747 141174528 : lu(k,500) = lu(k,500) - lu(k,367) * lu(k,498)
748 141174528 : lu(k,502) = - lu(k,368) * lu(k,498)
749 141174528 : lu(k,504) = lu(k,504) - lu(k,369) * lu(k,498)
750 141174528 : lu(k,1734) = lu(k,1734) - lu(k,366) * lu(k,1714)
751 141174528 : lu(k,1788) = lu(k,1788) - lu(k,367) * lu(k,1714)
752 141174528 : lu(k,1823) = lu(k,1823) - lu(k,368) * lu(k,1714)
753 141174528 : lu(k,1831) = lu(k,1831) - lu(k,369) * lu(k,1714)
754 141174528 : lu(k,2238) = lu(k,2238) - lu(k,366) * lu(k,2223)
755 141174528 : lu(k,2273) = lu(k,2273) - lu(k,367) * lu(k,2223)
756 141174528 : lu(k,2303) = lu(k,2303) - lu(k,368) * lu(k,2223)
757 141174528 : lu(k,2311) = lu(k,2311) - lu(k,369) * lu(k,2223)
758 141174528 : lu(k,371) = 1._r8 / lu(k,371)
759 141174528 : lu(k,372) = lu(k,372) * lu(k,371)
760 141174528 : lu(k,373) = lu(k,373) * lu(k,371)
761 141174528 : lu(k,374) = lu(k,374) * lu(k,371)
762 141174528 : lu(k,375) = lu(k,375) * lu(k,371)
763 141174528 : lu(k,486) = lu(k,486) - lu(k,372) * lu(k,485)
764 141174528 : lu(k,487) = lu(k,487) - lu(k,373) * lu(k,485)
765 141174528 : lu(k,489) = lu(k,489) - lu(k,374) * lu(k,485)
766 141174528 : lu(k,491) = lu(k,491) - lu(k,375) * lu(k,485)
767 141174528 : lu(k,1733) = lu(k,1733) - lu(k,372) * lu(k,1715)
768 141174528 : lu(k,1744) = lu(k,1744) - lu(k,373) * lu(k,1715)
769 141174528 : lu(k,1823) = lu(k,1823) - lu(k,374) * lu(k,1715)
770 141174528 : lu(k,1831) = lu(k,1831) - lu(k,375) * lu(k,1715)
771 141174528 : lu(k,2236) = lu(k,2236) - lu(k,372) * lu(k,2224)
772 141174528 : lu(k,2244) = lu(k,2244) - lu(k,373) * lu(k,2224)
773 141174528 : lu(k,2303) = lu(k,2303) - lu(k,374) * lu(k,2224)
774 141174528 : lu(k,2311) = lu(k,2311) - lu(k,375) * lu(k,2224)
775 141174528 : lu(k,376) = 1._r8 / lu(k,376)
776 141174528 : lu(k,377) = lu(k,377) * lu(k,376)
777 141174528 : lu(k,378) = lu(k,378) * lu(k,376)
778 141174528 : lu(k,379) = lu(k,379) * lu(k,376)
779 141174528 : lu(k,380) = lu(k,380) * lu(k,376)
780 141174528 : lu(k,865) = lu(k,865) - lu(k,377) * lu(k,863)
781 141174528 : lu(k,866) = lu(k,866) - lu(k,378) * lu(k,863)
782 141174528 : lu(k,869) = lu(k,869) - lu(k,379) * lu(k,863)
783 141174528 : lu(k,872) = lu(k,872) - lu(k,380) * lu(k,863)
784 141174528 : lu(k,1776) = lu(k,1776) - lu(k,377) * lu(k,1716)
785 141174528 : lu(k,1793) = lu(k,1793) - lu(k,378) * lu(k,1716)
786 141174528 : lu(k,1823) = lu(k,1823) - lu(k,379) * lu(k,1716)
787 141174528 : lu(k,1831) = lu(k,1831) - lu(k,380) * lu(k,1716)
788 141174528 : lu(k,2266) = lu(k,2266) - lu(k,377) * lu(k,2225)
789 141174528 : lu(k,2275) = lu(k,2275) - lu(k,378) * lu(k,2225)
790 141174528 : lu(k,2303) = lu(k,2303) - lu(k,379) * lu(k,2225)
791 145586232 : lu(k,2311) = lu(k,2311) - lu(k,380) * lu(k,2225)
792 : end do
793 4411704 : end subroutine lu_fac07
794 4411704 : subroutine lu_fac08( avec_len, lu )
795 : use chem_mods, only : nzcnt
796 : use shr_kind_mod, only : r8 => shr_kind_r8
797 : implicit none
798 : !-----------------------------------------------------------------------
799 : ! ... dummy args
800 : !-----------------------------------------------------------------------
801 : integer, intent(in) :: avec_len
802 : real(r8), intent(inout) :: lu(veclen,nzcnt)
803 : !-----------------------------------------------------------------------
804 : ! ... local variables
805 : !-----------------------------------------------------------------------
806 : integer :: k
807 145586232 : do k = 1,avec_len
808 141174528 : lu(k,381) = 1._r8 / lu(k,381)
809 141174528 : lu(k,382) = lu(k,382) * lu(k,381)
810 141174528 : lu(k,383) = lu(k,383) * lu(k,381)
811 141174528 : lu(k,1331) = lu(k,1331) - lu(k,382) * lu(k,1318)
812 141174528 : lu(k,1343) = lu(k,1343) - lu(k,383) * lu(k,1318)
813 141174528 : lu(k,1424) = lu(k,1424) - lu(k,382) * lu(k,1414)
814 141174528 : lu(k,1439) = lu(k,1439) - lu(k,383) * lu(k,1414)
815 141174528 : lu(k,1803) = lu(k,1803) - lu(k,382) * lu(k,1717)
816 141174528 : lu(k,1823) = lu(k,1823) - lu(k,383) * lu(k,1717)
817 141174528 : lu(k,1932) = lu(k,1932) - lu(k,382) * lu(k,1886)
818 141174528 : lu(k,1950) = lu(k,1950) - lu(k,383) * lu(k,1886)
819 141174528 : lu(k,1985) = lu(k,1985) - lu(k,382) * lu(k,1962)
820 141174528 : lu(k,2002) = lu(k,2002) - lu(k,383) * lu(k,1962)
821 141174528 : lu(k,2065) = lu(k,2065) - lu(k,382) * lu(k,2040)
822 141174528 : lu(k,2084) = lu(k,2084) - lu(k,383) * lu(k,2040)
823 141174528 : lu(k,384) = 1._r8 / lu(k,384)
824 141174528 : lu(k,385) = lu(k,385) * lu(k,384)
825 141174528 : lu(k,386) = lu(k,386) * lu(k,384)
826 141174528 : lu(k,387) = lu(k,387) * lu(k,384)
827 141174528 : lu(k,388) = lu(k,388) * lu(k,384)
828 141174528 : lu(k,1358) = lu(k,1358) - lu(k,385) * lu(k,1350)
829 141174528 : lu(k,1359) = - lu(k,386) * lu(k,1350)
830 141174528 : lu(k,1365) = - lu(k,387) * lu(k,1350)
831 141174528 : lu(k,1369) = lu(k,1369) - lu(k,388) * lu(k,1350)
832 141174528 : lu(k,1810) = lu(k,1810) - lu(k,385) * lu(k,1718)
833 141174528 : lu(k,1812) = lu(k,1812) - lu(k,386) * lu(k,1718)
834 141174528 : lu(k,1823) = lu(k,1823) - lu(k,387) * lu(k,1718)
835 141174528 : lu(k,1831) = lu(k,1831) - lu(k,388) * lu(k,1718)
836 141174528 : lu(k,2290) = lu(k,2290) - lu(k,385) * lu(k,2226)
837 141174528 : lu(k,2292) = lu(k,2292) - lu(k,386) * lu(k,2226)
838 141174528 : lu(k,2303) = lu(k,2303) - lu(k,387) * lu(k,2226)
839 141174528 : lu(k,2311) = lu(k,2311) - lu(k,388) * lu(k,2226)
840 141174528 : lu(k,389) = 1._r8 / lu(k,389)
841 141174528 : lu(k,390) = lu(k,390) * lu(k,389)
842 141174528 : lu(k,391) = lu(k,391) * lu(k,389)
843 141174528 : lu(k,392) = lu(k,392) * lu(k,389)
844 141174528 : lu(k,393) = lu(k,393) * lu(k,389)
845 141174528 : lu(k,699) = lu(k,699) - lu(k,390) * lu(k,698)
846 141174528 : lu(k,700) = lu(k,700) - lu(k,391) * lu(k,698)
847 141174528 : lu(k,701) = lu(k,701) - lu(k,392) * lu(k,698)
848 141174528 : lu(k,703) = lu(k,703) - lu(k,393) * lu(k,698)
849 141174528 : lu(k,1760) = lu(k,1760) - lu(k,390) * lu(k,1719)
850 141174528 : lu(k,1793) = lu(k,1793) - lu(k,391) * lu(k,1719)
851 141174528 : lu(k,1813) = lu(k,1813) - lu(k,392) * lu(k,1719)
852 141174528 : lu(k,1823) = lu(k,1823) - lu(k,393) * lu(k,1719)
853 141174528 : lu(k,2250) = lu(k,2250) - lu(k,390) * lu(k,2227)
854 141174528 : lu(k,2275) = lu(k,2275) - lu(k,391) * lu(k,2227)
855 141174528 : lu(k,2293) = lu(k,2293) - lu(k,392) * lu(k,2227)
856 141174528 : lu(k,2303) = lu(k,2303) - lu(k,393) * lu(k,2227)
857 141174528 : lu(k,394) = 1._r8 / lu(k,394)
858 141174528 : lu(k,395) = lu(k,395) * lu(k,394)
859 141174528 : lu(k,396) = lu(k,396) * lu(k,394)
860 141174528 : lu(k,397) = lu(k,397) * lu(k,394)
861 141174528 : lu(k,398) = lu(k,398) * lu(k,394)
862 141174528 : lu(k,399) = lu(k,399) * lu(k,394)
863 141174528 : lu(k,400) = lu(k,400) * lu(k,394)
864 141174528 : lu(k,401) = lu(k,401) * lu(k,394)
865 141174528 : lu(k,1749) = lu(k,1749) - lu(k,395) * lu(k,1720)
866 141174528 : lu(k,1786) = lu(k,1786) - lu(k,396) * lu(k,1720)
867 141174528 : lu(k,1793) = lu(k,1793) - lu(k,397) * lu(k,1720)
868 141174528 : lu(k,1819) = lu(k,1819) - lu(k,398) * lu(k,1720)
869 141174528 : lu(k,1820) = lu(k,1820) - lu(k,399) * lu(k,1720)
870 141174528 : lu(k,1823) = lu(k,1823) - lu(k,400) * lu(k,1720)
871 141174528 : lu(k,1828) = lu(k,1828) - lu(k,401) * lu(k,1720)
872 141174528 : lu(k,2042) = - lu(k,395) * lu(k,2041)
873 141174528 : lu(k,2048) = lu(k,2048) - lu(k,396) * lu(k,2041)
874 141174528 : lu(k,2055) = lu(k,2055) - lu(k,397) * lu(k,2041)
875 141174528 : lu(k,2080) = lu(k,2080) - lu(k,398) * lu(k,2041)
876 141174528 : lu(k,2081) = lu(k,2081) - lu(k,399) * lu(k,2041)
877 141174528 : lu(k,2084) = lu(k,2084) - lu(k,400) * lu(k,2041)
878 141174528 : lu(k,2089) = lu(k,2089) - lu(k,401) * lu(k,2041)
879 141174528 : lu(k,402) = 1._r8 / lu(k,402)
880 141174528 : lu(k,403) = lu(k,403) * lu(k,402)
881 141174528 : lu(k,404) = lu(k,404) * lu(k,402)
882 141174528 : lu(k,405) = lu(k,405) * lu(k,402)
883 141174528 : lu(k,406) = lu(k,406) * lu(k,402)
884 141174528 : lu(k,407) = lu(k,407) * lu(k,402)
885 141174528 : lu(k,408) = lu(k,408) * lu(k,402)
886 141174528 : lu(k,409) = lu(k,409) * lu(k,402)
887 141174528 : lu(k,1797) = lu(k,1797) - lu(k,403) * lu(k,1721)
888 141174528 : lu(k,1823) = lu(k,1823) - lu(k,404) * lu(k,1721)
889 141174528 : lu(k,1826) = lu(k,1826) - lu(k,405) * lu(k,1721)
890 141174528 : lu(k,1827) = lu(k,1827) - lu(k,406) * lu(k,1721)
891 141174528 : lu(k,1829) = lu(k,1829) - lu(k,407) * lu(k,1721)
892 141174528 : lu(k,1831) = lu(k,1831) - lu(k,408) * lu(k,1721)
893 141174528 : lu(k,1833) = lu(k,1833) - lu(k,409) * lu(k,1721)
894 141174528 : lu(k,2112) = lu(k,2112) - lu(k,403) * lu(k,2098)
895 141174528 : lu(k,2123) = lu(k,2123) - lu(k,404) * lu(k,2098)
896 141174528 : lu(k,2126) = lu(k,2126) - lu(k,405) * lu(k,2098)
897 141174528 : lu(k,2127) = lu(k,2127) - lu(k,406) * lu(k,2098)
898 141174528 : lu(k,2129) = lu(k,2129) - lu(k,407) * lu(k,2098)
899 141174528 : lu(k,2131) = lu(k,2131) - lu(k,408) * lu(k,2098)
900 141174528 : lu(k,2133) = lu(k,2133) - lu(k,409) * lu(k,2098)
901 141174528 : lu(k,410) = 1._r8 / lu(k,410)
902 141174528 : lu(k,411) = lu(k,411) * lu(k,410)
903 141174528 : lu(k,412) = lu(k,412) * lu(k,410)
904 141174528 : lu(k,413) = lu(k,413) * lu(k,410)
905 141174528 : lu(k,414) = lu(k,414) * lu(k,410)
906 141174528 : lu(k,415) = lu(k,415) * lu(k,410)
907 141174528 : lu(k,416) = lu(k,416) * lu(k,410)
908 141174528 : lu(k,417) = lu(k,417) * lu(k,410)
909 141174528 : lu(k,1591) = - lu(k,411) * lu(k,1590)
910 141174528 : lu(k,1597) = - lu(k,412) * lu(k,1590)
911 141174528 : lu(k,1599) = lu(k,1599) - lu(k,413) * lu(k,1590)
912 141174528 : lu(k,1600) = lu(k,1600) - lu(k,414) * lu(k,1590)
913 141174528 : lu(k,1605) = lu(k,1605) - lu(k,415) * lu(k,1590)
914 141174528 : lu(k,1608) = lu(k,1608) - lu(k,416) * lu(k,1590)
915 141174528 : lu(k,1610) = lu(k,1610) - lu(k,417) * lu(k,1590)
916 141174528 : lu(k,1743) = lu(k,1743) - lu(k,411) * lu(k,1722)
917 141174528 : lu(k,1780) = lu(k,1780) - lu(k,412) * lu(k,1722)
918 141174528 : lu(k,1797) = lu(k,1797) - lu(k,413) * lu(k,1722)
919 141174528 : lu(k,1807) = lu(k,1807) - lu(k,414) * lu(k,1722)
920 141174528 : lu(k,1818) = lu(k,1818) - lu(k,415) * lu(k,1722)
921 141174528 : lu(k,1821) = lu(k,1821) - lu(k,416) * lu(k,1722)
922 141174528 : lu(k,1823) = lu(k,1823) - lu(k,417) * lu(k,1722)
923 141174528 : lu(k,418) = 1._r8 / lu(k,418)
924 141174528 : lu(k,419) = lu(k,419) * lu(k,418)
925 141174528 : lu(k,420) = lu(k,420) * lu(k,418)
926 141174528 : lu(k,421) = lu(k,421) * lu(k,418)
927 141174528 : lu(k,422) = lu(k,422) * lu(k,418)
928 141174528 : lu(k,423) = lu(k,423) * lu(k,418)
929 141174528 : lu(k,1200) = lu(k,1200) - lu(k,419) * lu(k,1197)
930 141174528 : lu(k,1202) = lu(k,1202) - lu(k,420) * lu(k,1197)
931 141174528 : lu(k,1203) = lu(k,1203) - lu(k,421) * lu(k,1197)
932 141174528 : lu(k,1205) = lu(k,1205) - lu(k,422) * lu(k,1197)
933 141174528 : lu(k,1209) = - lu(k,423) * lu(k,1197)
934 141174528 : lu(k,1802) = lu(k,1802) - lu(k,419) * lu(k,1723)
935 141174528 : lu(k,1813) = lu(k,1813) - lu(k,420) * lu(k,1723)
936 141174528 : lu(k,1819) = lu(k,1819) - lu(k,421) * lu(k,1723)
937 141174528 : lu(k,1823) = lu(k,1823) - lu(k,422) * lu(k,1723)
938 141174528 : lu(k,1833) = lu(k,1833) - lu(k,423) * lu(k,1723)
939 141174528 : lu(k,2283) = lu(k,2283) - lu(k,419) * lu(k,2228)
940 141174528 : lu(k,2293) = lu(k,2293) - lu(k,420) * lu(k,2228)
941 141174528 : lu(k,2299) = lu(k,2299) - lu(k,421) * lu(k,2228)
942 141174528 : lu(k,2303) = lu(k,2303) - lu(k,422) * lu(k,2228)
943 141174528 : lu(k,2313) = lu(k,2313) - lu(k,423) * lu(k,2228)
944 141174528 : lu(k,424) = 1._r8 / lu(k,424)
945 141174528 : lu(k,425) = lu(k,425) * lu(k,424)
946 141174528 : lu(k,426) = lu(k,426) * lu(k,424)
947 141174528 : lu(k,427) = lu(k,427) * lu(k,424)
948 141174528 : lu(k,428) = lu(k,428) * lu(k,424)
949 141174528 : lu(k,429) = lu(k,429) * lu(k,424)
950 141174528 : lu(k,1230) = - lu(k,425) * lu(k,1228)
951 141174528 : lu(k,1232) = - lu(k,426) * lu(k,1228)
952 141174528 : lu(k,1244) = lu(k,1244) - lu(k,427) * lu(k,1228)
953 141174528 : lu(k,1246) = - lu(k,428) * lu(k,1228)
954 141174528 : lu(k,1250) = lu(k,1250) - lu(k,429) * lu(k,1228)
955 141174528 : lu(k,1768) = lu(k,1768) - lu(k,425) * lu(k,1724)
956 141174528 : lu(k,1779) = lu(k,1779) - lu(k,426) * lu(k,1724)
957 141174528 : lu(k,1820) = lu(k,1820) - lu(k,427) * lu(k,1724)
958 141174528 : lu(k,1823) = lu(k,1823) - lu(k,428) * lu(k,1724)
959 141174528 : lu(k,1831) = lu(k,1831) - lu(k,429) * lu(k,1724)
960 141174528 : lu(k,2258) = lu(k,2258) - lu(k,425) * lu(k,2229)
961 141174528 : lu(k,2268) = - lu(k,426) * lu(k,2229)
962 141174528 : lu(k,2300) = lu(k,2300) - lu(k,427) * lu(k,2229)
963 141174528 : lu(k,2303) = lu(k,2303) - lu(k,428) * lu(k,2229)
964 145586232 : lu(k,2311) = lu(k,2311) - lu(k,429) * lu(k,2229)
965 : end do
966 4411704 : end subroutine lu_fac08
967 4411704 : subroutine lu_fac09( avec_len, lu )
968 : use chem_mods, only : nzcnt
969 : use shr_kind_mod, only : r8 => shr_kind_r8
970 : implicit none
971 : !-----------------------------------------------------------------------
972 : ! ... dummy args
973 : !-----------------------------------------------------------------------
974 : integer, intent(in) :: avec_len
975 : real(r8), intent(inout) :: lu(veclen,nzcnt)
976 : !-----------------------------------------------------------------------
977 : ! ... local variables
978 : !-----------------------------------------------------------------------
979 : integer :: k
980 145586232 : do k = 1,avec_len
981 141174528 : lu(k,430) = 1._r8 / lu(k,430)
982 141174528 : lu(k,431) = lu(k,431) * lu(k,430)
983 141174528 : lu(k,432) = lu(k,432) * lu(k,430)
984 141174528 : lu(k,433) = lu(k,433) * lu(k,430)
985 141174528 : lu(k,434) = lu(k,434) * lu(k,430)
986 141174528 : lu(k,435) = lu(k,435) * lu(k,430)
987 141174528 : lu(k,940) = - lu(k,431) * lu(k,934)
988 141174528 : lu(k,944) = lu(k,944) - lu(k,432) * lu(k,934)
989 141174528 : lu(k,947) = - lu(k,433) * lu(k,934)
990 141174528 : lu(k,948) = lu(k,948) - lu(k,434) * lu(k,934)
991 141174528 : lu(k,954) = lu(k,954) - lu(k,435) * lu(k,934)
992 141174528 : lu(k,1014) = - lu(k,431) * lu(k,1009)
993 141174528 : lu(k,1020) = lu(k,1020) - lu(k,432) * lu(k,1009)
994 141174528 : lu(k,1023) = - lu(k,433) * lu(k,1009)
995 141174528 : lu(k,1024) = lu(k,1024) - lu(k,434) * lu(k,1009)
996 141174528 : lu(k,1033) = lu(k,1033) - lu(k,435) * lu(k,1009)
997 141174528 : lu(k,2154) = - lu(k,431) * lu(k,2140)
998 141174528 : lu(k,2162) = lu(k,2162) - lu(k,432) * lu(k,2140)
999 141174528 : lu(k,2169) = lu(k,2169) - lu(k,433) * lu(k,2140)
1000 141174528 : lu(k,2176) = lu(k,2176) - lu(k,434) * lu(k,2140)
1001 141174528 : lu(k,2193) = lu(k,2193) - lu(k,435) * lu(k,2140)
1002 141174528 : lu(k,436) = 1._r8 / lu(k,436)
1003 141174528 : lu(k,437) = lu(k,437) * lu(k,436)
1004 141174528 : lu(k,438) = lu(k,438) * lu(k,436)
1005 141174528 : lu(k,439) = lu(k,439) * lu(k,436)
1006 141174528 : lu(k,440) = lu(k,440) * lu(k,436)
1007 141174528 : lu(k,441) = lu(k,441) * lu(k,436)
1008 141174528 : lu(k,836) = lu(k,836) - lu(k,437) * lu(k,835)
1009 141174528 : lu(k,837) = lu(k,837) - lu(k,438) * lu(k,835)
1010 141174528 : lu(k,841) = - lu(k,439) * lu(k,835)
1011 141174528 : lu(k,844) = lu(k,844) - lu(k,440) * lu(k,835)
1012 141174528 : lu(k,845) = - lu(k,441) * lu(k,835)
1013 141174528 : lu(k,1773) = lu(k,1773) - lu(k,437) * lu(k,1725)
1014 141174528 : lu(k,1786) = lu(k,1786) - lu(k,438) * lu(k,1725)
1015 141174528 : lu(k,1823) = lu(k,1823) - lu(k,439) * lu(k,1725)
1016 141174528 : lu(k,1831) = lu(k,1831) - lu(k,440) * lu(k,1725)
1017 141174528 : lu(k,1833) = lu(k,1833) - lu(k,441) * lu(k,1725)
1018 141174528 : lu(k,2263) = lu(k,2263) - lu(k,437) * lu(k,2230)
1019 141174528 : lu(k,2271) = - lu(k,438) * lu(k,2230)
1020 141174528 : lu(k,2303) = lu(k,2303) - lu(k,439) * lu(k,2230)
1021 141174528 : lu(k,2311) = lu(k,2311) - lu(k,440) * lu(k,2230)
1022 141174528 : lu(k,2313) = lu(k,2313) - lu(k,441) * lu(k,2230)
1023 141174528 : lu(k,442) = 1._r8 / lu(k,442)
1024 141174528 : lu(k,443) = lu(k,443) * lu(k,442)
1025 141174528 : lu(k,444) = lu(k,444) * lu(k,442)
1026 141174528 : lu(k,445) = lu(k,445) * lu(k,442)
1027 141174528 : lu(k,446) = lu(k,446) * lu(k,442)
1028 141174528 : lu(k,447) = lu(k,447) * lu(k,442)
1029 141174528 : lu(k,1576) = lu(k,1576) - lu(k,443) * lu(k,1549)
1030 141174528 : lu(k,1579) = lu(k,1579) - lu(k,444) * lu(k,1549)
1031 141174528 : lu(k,1584) = lu(k,1584) - lu(k,445) * lu(k,1549)
1032 141174528 : lu(k,1587) = lu(k,1587) - lu(k,446) * lu(k,1549)
1033 141174528 : lu(k,1589) = - lu(k,447) * lu(k,1549)
1034 141174528 : lu(k,1820) = lu(k,1820) - lu(k,443) * lu(k,1726)
1035 141174528 : lu(k,1823) = lu(k,1823) - lu(k,444) * lu(k,1726)
1036 141174528 : lu(k,1828) = lu(k,1828) - lu(k,445) * lu(k,1726)
1037 141174528 : lu(k,1831) = lu(k,1831) - lu(k,446) * lu(k,1726)
1038 141174528 : lu(k,1833) = lu(k,1833) - lu(k,447) * lu(k,1726)
1039 141174528 : lu(k,2300) = lu(k,2300) - lu(k,443) * lu(k,2231)
1040 141174528 : lu(k,2303) = lu(k,2303) - lu(k,444) * lu(k,2231)
1041 141174528 : lu(k,2308) = lu(k,2308) - lu(k,445) * lu(k,2231)
1042 141174528 : lu(k,2311) = lu(k,2311) - lu(k,446) * lu(k,2231)
1043 141174528 : lu(k,2313) = lu(k,2313) - lu(k,447) * lu(k,2231)
1044 141174528 : lu(k,448) = 1._r8 / lu(k,448)
1045 141174528 : lu(k,449) = lu(k,449) * lu(k,448)
1046 141174528 : lu(k,450) = lu(k,450) * lu(k,448)
1047 141174528 : lu(k,451) = lu(k,451) * lu(k,448)
1048 141174528 : lu(k,452) = lu(k,452) * lu(k,448)
1049 141174528 : lu(k,453) = lu(k,453) * lu(k,448)
1050 141174528 : lu(k,1101) = lu(k,1101) - lu(k,449) * lu(k,1098)
1051 141174528 : lu(k,1102) = lu(k,1102) - lu(k,450) * lu(k,1098)
1052 141174528 : lu(k,1106) = - lu(k,451) * lu(k,1098)
1053 141174528 : lu(k,1108) = lu(k,1108) - lu(k,452) * lu(k,1098)
1054 141174528 : lu(k,1109) = - lu(k,453) * lu(k,1098)
1055 141174528 : lu(k,1790) = lu(k,1790) - lu(k,449) * lu(k,1727)
1056 141174528 : lu(k,1795) = lu(k,1795) - lu(k,450) * lu(k,1727)
1057 141174528 : lu(k,1817) = lu(k,1817) - lu(k,451) * lu(k,1727)
1058 141174528 : lu(k,1820) = lu(k,1820) - lu(k,452) * lu(k,1727)
1059 141174528 : lu(k,1823) = lu(k,1823) - lu(k,453) * lu(k,1727)
1060 141174528 : lu(k,2274) = - lu(k,449) * lu(k,2232)
1061 141174528 : lu(k,2277) = lu(k,2277) - lu(k,450) * lu(k,2232)
1062 141174528 : lu(k,2297) = - lu(k,451) * lu(k,2232)
1063 141174528 : lu(k,2300) = lu(k,2300) - lu(k,452) * lu(k,2232)
1064 141174528 : lu(k,2303) = lu(k,2303) - lu(k,453) * lu(k,2232)
1065 141174528 : lu(k,454) = 1._r8 / lu(k,454)
1066 141174528 : lu(k,455) = lu(k,455) * lu(k,454)
1067 141174528 : lu(k,456) = lu(k,456) * lu(k,454)
1068 141174528 : lu(k,457) = lu(k,457) * lu(k,454)
1069 141174528 : lu(k,458) = lu(k,458) * lu(k,454)
1070 141174528 : lu(k,459) = lu(k,459) * lu(k,454)
1071 141174528 : lu(k,1818) = lu(k,1818) - lu(k,455) * lu(k,1728)
1072 141174528 : lu(k,1819) = lu(k,1819) - lu(k,456) * lu(k,1728)
1073 141174528 : lu(k,1823) = lu(k,1823) - lu(k,457) * lu(k,1728)
1074 141174528 : lu(k,1826) = lu(k,1826) - lu(k,458) * lu(k,1728)
1075 141174528 : lu(k,1833) = lu(k,1833) - lu(k,459) * lu(k,1728)
1076 141174528 : lu(k,1997) = - lu(k,455) * lu(k,1963)
1077 141174528 : lu(k,1998) = lu(k,1998) - lu(k,456) * lu(k,1963)
1078 141174528 : lu(k,2002) = lu(k,2002) - lu(k,457) * lu(k,1963)
1079 141174528 : lu(k,2005) = lu(k,2005) - lu(k,458) * lu(k,1963)
1080 141174528 : lu(k,2012) = - lu(k,459) * lu(k,1963)
1081 141174528 : lu(k,2298) = lu(k,2298) - lu(k,455) * lu(k,2233)
1082 141174528 : lu(k,2299) = lu(k,2299) - lu(k,456) * lu(k,2233)
1083 141174528 : lu(k,2303) = lu(k,2303) - lu(k,457) * lu(k,2233)
1084 141174528 : lu(k,2306) = lu(k,2306) - lu(k,458) * lu(k,2233)
1085 141174528 : lu(k,2313) = lu(k,2313) - lu(k,459) * lu(k,2233)
1086 141174528 : lu(k,460) = 1._r8 / lu(k,460)
1087 141174528 : lu(k,461) = lu(k,461) * lu(k,460)
1088 141174528 : lu(k,462) = lu(k,462) * lu(k,460)
1089 141174528 : lu(k,463) = lu(k,463) * lu(k,460)
1090 141174528 : lu(k,464) = lu(k,464) * lu(k,460)
1091 141174528 : lu(k,465) = lu(k,465) * lu(k,460)
1092 141174528 : lu(k,1643) = lu(k,1643) - lu(k,461) * lu(k,1637)
1093 141174528 : lu(k,1650) = lu(k,1650) - lu(k,462) * lu(k,1637)
1094 141174528 : lu(k,1651) = lu(k,1651) - lu(k,463) * lu(k,1637)
1095 141174528 : lu(k,1655) = lu(k,1655) - lu(k,464) * lu(k,1637)
1096 141174528 : lu(k,1657) = lu(k,1657) - lu(k,465) * lu(k,1637)
1097 141174528 : lu(k,1815) = lu(k,1815) - lu(k,461) * lu(k,1729)
1098 141174528 : lu(k,1822) = lu(k,1822) - lu(k,462) * lu(k,1729)
1099 141174528 : lu(k,1823) = lu(k,1823) - lu(k,463) * lu(k,1729)
1100 141174528 : lu(k,1827) = lu(k,1827) - lu(k,464) * lu(k,1729)
1101 141174528 : lu(k,1829) = lu(k,1829) - lu(k,465) * lu(k,1729)
1102 141174528 : lu(k,2115) = lu(k,2115) - lu(k,461) * lu(k,2099)
1103 141174528 : lu(k,2122) = - lu(k,462) * lu(k,2099)
1104 141174528 : lu(k,2123) = lu(k,2123) - lu(k,463) * lu(k,2099)
1105 141174528 : lu(k,2127) = lu(k,2127) - lu(k,464) * lu(k,2099)
1106 145586232 : lu(k,2129) = lu(k,2129) - lu(k,465) * lu(k,2099)
1107 : end do
1108 4411704 : end subroutine lu_fac09
1109 4411704 : subroutine lu_fac10( avec_len, lu )
1110 : use chem_mods, only : nzcnt
1111 : use shr_kind_mod, only : r8 => shr_kind_r8
1112 : implicit none
1113 : !-----------------------------------------------------------------------
1114 : ! ... dummy args
1115 : !-----------------------------------------------------------------------
1116 : integer, intent(in) :: avec_len
1117 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1118 : !-----------------------------------------------------------------------
1119 : ! ... local variables
1120 : !-----------------------------------------------------------------------
1121 : integer :: k
1122 145586232 : do k = 1,avec_len
1123 141174528 : lu(k,466) = 1._r8 / lu(k,466)
1124 141174528 : lu(k,467) = lu(k,467) * lu(k,466)
1125 141174528 : lu(k,468) = lu(k,468) * lu(k,466)
1126 141174528 : lu(k,469) = lu(k,469) * lu(k,466)
1127 141174528 : lu(k,470) = lu(k,470) * lu(k,466)
1128 141174528 : lu(k,471) = lu(k,471) * lu(k,466)
1129 141174528 : lu(k,1232) = lu(k,1232) - lu(k,467) * lu(k,1229)
1130 141174528 : lu(k,1234) = - lu(k,468) * lu(k,1229)
1131 141174528 : lu(k,1242) = - lu(k,469) * lu(k,1229)
1132 141174528 : lu(k,1246) = lu(k,1246) - lu(k,470) * lu(k,1229)
1133 141174528 : lu(k,1250) = lu(k,1250) - lu(k,471) * lu(k,1229)
1134 141174528 : lu(k,1779) = lu(k,1779) - lu(k,467) * lu(k,1730)
1135 141174528 : lu(k,1794) = lu(k,1794) - lu(k,468) * lu(k,1730)
1136 141174528 : lu(k,1817) = lu(k,1817) - lu(k,469) * lu(k,1730)
1137 141174528 : lu(k,1823) = lu(k,1823) - lu(k,470) * lu(k,1730)
1138 141174528 : lu(k,1831) = lu(k,1831) - lu(k,471) * lu(k,1730)
1139 141174528 : lu(k,1971) = - lu(k,467) * lu(k,1964)
1140 141174528 : lu(k,1977) = lu(k,1977) - lu(k,468) * lu(k,1964)
1141 141174528 : lu(k,1996) = - lu(k,469) * lu(k,1964)
1142 141174528 : lu(k,2002) = lu(k,2002) - lu(k,470) * lu(k,1964)
1143 141174528 : lu(k,2010) = lu(k,2010) - lu(k,471) * lu(k,1964)
1144 141174528 : lu(k,472) = 1._r8 / lu(k,472)
1145 141174528 : lu(k,473) = lu(k,473) * lu(k,472)
1146 141174528 : lu(k,474) = lu(k,474) * lu(k,472)
1147 141174528 : lu(k,475) = lu(k,475) * lu(k,472)
1148 141174528 : lu(k,476) = lu(k,476) * lu(k,472)
1149 141174528 : lu(k,477) = lu(k,477) * lu(k,472)
1150 141174528 : lu(k,535) = lu(k,535) - lu(k,473) * lu(k,534)
1151 141174528 : lu(k,536) = lu(k,536) - lu(k,474) * lu(k,534)
1152 141174528 : lu(k,538) = lu(k,538) - lu(k,475) * lu(k,534)
1153 141174528 : lu(k,540) = - lu(k,476) * lu(k,534)
1154 141174528 : lu(k,542) = lu(k,542) - lu(k,477) * lu(k,534)
1155 141174528 : lu(k,1735) = lu(k,1735) - lu(k,473) * lu(k,1731)
1156 141174528 : lu(k,1740) = lu(k,1740) - lu(k,474) * lu(k,1731)
1157 141174528 : lu(k,1788) = lu(k,1788) - lu(k,475) * lu(k,1731)
1158 141174528 : lu(k,1823) = lu(k,1823) - lu(k,476) * lu(k,1731)
1159 141174528 : lu(k,1831) = lu(k,1831) - lu(k,477) * lu(k,1731)
1160 141174528 : lu(k,2239) = - lu(k,473) * lu(k,2234)
1161 141174528 : lu(k,2242) = lu(k,2242) - lu(k,474) * lu(k,2234)
1162 141174528 : lu(k,2273) = lu(k,2273) - lu(k,475) * lu(k,2234)
1163 141174528 : lu(k,2303) = lu(k,2303) - lu(k,476) * lu(k,2234)
1164 141174528 : lu(k,2311) = lu(k,2311) - lu(k,477) * lu(k,2234)
1165 141174528 : lu(k,478) = 1._r8 / lu(k,478)
1166 141174528 : lu(k,479) = lu(k,479) * lu(k,478)
1167 141174528 : lu(k,480) = lu(k,480) * lu(k,478)
1168 141174528 : lu(k,481) = lu(k,481) * lu(k,478)
1169 141174528 : lu(k,482) = lu(k,482) * lu(k,478)
1170 141174528 : lu(k,483) = lu(k,483) * lu(k,478)
1171 141174528 : lu(k,544) = lu(k,544) - lu(k,479) * lu(k,543)
1172 141174528 : lu(k,545) = lu(k,545) - lu(k,480) * lu(k,543)
1173 141174528 : lu(k,546) = lu(k,546) - lu(k,481) * lu(k,543)
1174 141174528 : lu(k,548) = - lu(k,482) * lu(k,543)
1175 141174528 : lu(k,550) = lu(k,550) - lu(k,483) * lu(k,543)
1176 141174528 : lu(k,1741) = lu(k,1741) - lu(k,479) * lu(k,1732)
1177 141174528 : lu(k,1788) = lu(k,1788) - lu(k,480) * lu(k,1732)
1178 141174528 : lu(k,1806) = lu(k,1806) - lu(k,481) * lu(k,1732)
1179 141174528 : lu(k,1823) = lu(k,1823) - lu(k,482) * lu(k,1732)
1180 141174528 : lu(k,1831) = lu(k,1831) - lu(k,483) * lu(k,1732)
1181 141174528 : lu(k,2243) = lu(k,2243) - lu(k,479) * lu(k,2235)
1182 141174528 : lu(k,2273) = lu(k,2273) - lu(k,480) * lu(k,2235)
1183 141174528 : lu(k,2287) = lu(k,2287) - lu(k,481) * lu(k,2235)
1184 141174528 : lu(k,2303) = lu(k,2303) - lu(k,482) * lu(k,2235)
1185 141174528 : lu(k,2311) = lu(k,2311) - lu(k,483) * lu(k,2235)
1186 141174528 : lu(k,486) = 1._r8 / lu(k,486)
1187 141174528 : lu(k,487) = lu(k,487) * lu(k,486)
1188 141174528 : lu(k,488) = lu(k,488) * lu(k,486)
1189 141174528 : lu(k,489) = lu(k,489) * lu(k,486)
1190 141174528 : lu(k,490) = lu(k,490) * lu(k,486)
1191 141174528 : lu(k,491) = lu(k,491) * lu(k,486)
1192 141174528 : lu(k,1744) = lu(k,1744) - lu(k,487) * lu(k,1733)
1193 141174528 : lu(k,1820) = lu(k,1820) - lu(k,488) * lu(k,1733)
1194 141174528 : lu(k,1823) = lu(k,1823) - lu(k,489) * lu(k,1733)
1195 141174528 : lu(k,1825) = lu(k,1825) - lu(k,490) * lu(k,1733)
1196 141174528 : lu(k,1831) = lu(k,1831) - lu(k,491) * lu(k,1733)
1197 141174528 : lu(k,1896) = lu(k,1896) - lu(k,487) * lu(k,1887)
1198 141174528 : lu(k,1947) = lu(k,1947) - lu(k,488) * lu(k,1887)
1199 141174528 : lu(k,1950) = lu(k,1950) - lu(k,489) * lu(k,1887)
1200 141174528 : lu(k,1952) = lu(k,1952) - lu(k,490) * lu(k,1887)
1201 141174528 : lu(k,1958) = lu(k,1958) - lu(k,491) * lu(k,1887)
1202 141174528 : lu(k,2244) = lu(k,2244) - lu(k,487) * lu(k,2236)
1203 141174528 : lu(k,2300) = lu(k,2300) - lu(k,488) * lu(k,2236)
1204 141174528 : lu(k,2303) = lu(k,2303) - lu(k,489) * lu(k,2236)
1205 141174528 : lu(k,2305) = lu(k,2305) - lu(k,490) * lu(k,2236)
1206 141174528 : lu(k,2311) = lu(k,2311) - lu(k,491) * lu(k,2236)
1207 141174528 : lu(k,492) = 1._r8 / lu(k,492)
1208 141174528 : lu(k,493) = lu(k,493) * lu(k,492)
1209 141174528 : lu(k,494) = lu(k,494) * lu(k,492)
1210 141174528 : lu(k,495) = lu(k,495) * lu(k,492)
1211 141174528 : lu(k,496) = lu(k,496) * lu(k,492)
1212 141174528 : lu(k,497) = lu(k,497) * lu(k,492)
1213 141174528 : lu(k,1525) = - lu(k,493) * lu(k,1523)
1214 141174528 : lu(k,1532) = lu(k,1532) - lu(k,494) * lu(k,1523)
1215 141174528 : lu(k,1533) = - lu(k,495) * lu(k,1523)
1216 141174528 : lu(k,1538) = - lu(k,496) * lu(k,1523)
1217 141174528 : lu(k,1544) = lu(k,1544) - lu(k,497) * lu(k,1523)
1218 141174528 : lu(k,1918) = lu(k,1918) - lu(k,493) * lu(k,1888)
1219 141174528 : lu(k,1946) = lu(k,1946) - lu(k,494) * lu(k,1888)
1220 141174528 : lu(k,1947) = lu(k,1947) - lu(k,495) * lu(k,1888)
1221 141174528 : lu(k,1952) = lu(k,1952) - lu(k,496) * lu(k,1888)
1222 141174528 : lu(k,1958) = lu(k,1958) - lu(k,497) * lu(k,1888)
1223 141174528 : lu(k,2272) = lu(k,2272) - lu(k,493) * lu(k,2237)
1224 141174528 : lu(k,2299) = lu(k,2299) - lu(k,494) * lu(k,2237)
1225 141174528 : lu(k,2300) = lu(k,2300) - lu(k,495) * lu(k,2237)
1226 141174528 : lu(k,2305) = lu(k,2305) - lu(k,496) * lu(k,2237)
1227 141174528 : lu(k,2311) = lu(k,2311) - lu(k,497) * lu(k,2237)
1228 141174528 : lu(k,499) = 1._r8 / lu(k,499)
1229 141174528 : lu(k,500) = lu(k,500) * lu(k,499)
1230 141174528 : lu(k,501) = lu(k,501) * lu(k,499)
1231 141174528 : lu(k,502) = lu(k,502) * lu(k,499)
1232 141174528 : lu(k,503) = lu(k,503) * lu(k,499)
1233 141174528 : lu(k,504) = lu(k,504) * lu(k,499)
1234 141174528 : lu(k,1788) = lu(k,1788) - lu(k,500) * lu(k,1734)
1235 141174528 : lu(k,1820) = lu(k,1820) - lu(k,501) * lu(k,1734)
1236 141174528 : lu(k,1823) = lu(k,1823) - lu(k,502) * lu(k,1734)
1237 141174528 : lu(k,1825) = lu(k,1825) - lu(k,503) * lu(k,1734)
1238 141174528 : lu(k,1831) = lu(k,1831) - lu(k,504) * lu(k,1734)
1239 141174528 : lu(k,1919) = lu(k,1919) - lu(k,500) * lu(k,1889)
1240 141174528 : lu(k,1947) = lu(k,1947) - lu(k,501) * lu(k,1889)
1241 141174528 : lu(k,1950) = lu(k,1950) - lu(k,502) * lu(k,1889)
1242 141174528 : lu(k,1952) = lu(k,1952) - lu(k,503) * lu(k,1889)
1243 141174528 : lu(k,1958) = lu(k,1958) - lu(k,504) * lu(k,1889)
1244 141174528 : lu(k,2273) = lu(k,2273) - lu(k,500) * lu(k,2238)
1245 141174528 : lu(k,2300) = lu(k,2300) - lu(k,501) * lu(k,2238)
1246 141174528 : lu(k,2303) = lu(k,2303) - lu(k,502) * lu(k,2238)
1247 141174528 : lu(k,2305) = lu(k,2305) - lu(k,503) * lu(k,2238)
1248 141174528 : lu(k,2311) = lu(k,2311) - lu(k,504) * lu(k,2238)
1249 141174528 : lu(k,505) = 1._r8 / lu(k,505)
1250 141174528 : lu(k,506) = lu(k,506) * lu(k,505)
1251 141174528 : lu(k,507) = lu(k,507) * lu(k,505)
1252 141174528 : lu(k,537) = - lu(k,506) * lu(k,535)
1253 141174528 : lu(k,542) = lu(k,542) - lu(k,507) * lu(k,535)
1254 141174528 : lu(k,720) = - lu(k,506) * lu(k,717)
1255 141174528 : lu(k,728) = lu(k,728) - lu(k,507) * lu(k,717)
1256 141174528 : lu(k,739) = - lu(k,506) * lu(k,736)
1257 141174528 : lu(k,748) = lu(k,748) - lu(k,507) * lu(k,736)
1258 141174528 : lu(k,768) = - lu(k,506) * lu(k,765)
1259 141174528 : lu(k,778) = lu(k,778) - lu(k,507) * lu(k,765)
1260 141174528 : lu(k,792) = - lu(k,506) * lu(k,789)
1261 141174528 : lu(k,803) = lu(k,803) - lu(k,507) * lu(k,789)
1262 141174528 : lu(k,1766) = - lu(k,506) * lu(k,1735)
1263 141174528 : lu(k,1831) = lu(k,1831) - lu(k,507) * lu(k,1735)
1264 141174528 : lu(k,1906) = lu(k,1906) - lu(k,506) * lu(k,1890)
1265 141174528 : lu(k,1958) = lu(k,1958) - lu(k,507) * lu(k,1890)
1266 141174528 : lu(k,2256) = lu(k,2256) - lu(k,506) * lu(k,2239)
1267 145586232 : lu(k,2311) = lu(k,2311) - lu(k,507) * lu(k,2239)
1268 : end do
1269 4411704 : end subroutine lu_fac10
1270 4411704 : subroutine lu_fac11( avec_len, lu )
1271 : use chem_mods, only : nzcnt
1272 : use shr_kind_mod, only : r8 => shr_kind_r8
1273 : implicit none
1274 : !-----------------------------------------------------------------------
1275 : ! ... dummy args
1276 : !-----------------------------------------------------------------------
1277 : integer, intent(in) :: avec_len
1278 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1279 : !-----------------------------------------------------------------------
1280 : ! ... local variables
1281 : !-----------------------------------------------------------------------
1282 : integer :: k
1283 145586232 : do k = 1,avec_len
1284 141174528 : lu(k,508) = 1._r8 / lu(k,508)
1285 141174528 : lu(k,509) = lu(k,509) * lu(k,508)
1286 141174528 : lu(k,510) = lu(k,510) * lu(k,508)
1287 141174528 : lu(k,511) = lu(k,511) * lu(k,508)
1288 141174528 : lu(k,512) = lu(k,512) * lu(k,508)
1289 141174528 : lu(k,513) = lu(k,513) * lu(k,508)
1290 141174528 : lu(k,514) = lu(k,514) * lu(k,508)
1291 141174528 : lu(k,1643) = lu(k,1643) - lu(k,509) * lu(k,1638)
1292 141174528 : lu(k,1650) = lu(k,1650) - lu(k,510) * lu(k,1638)
1293 141174528 : lu(k,1651) = lu(k,1651) - lu(k,511) * lu(k,1638)
1294 141174528 : lu(k,1655) = lu(k,1655) - lu(k,512) * lu(k,1638)
1295 141174528 : lu(k,1657) = lu(k,1657) - lu(k,513) * lu(k,1638)
1296 141174528 : lu(k,1661) = lu(k,1661) - lu(k,514) * lu(k,1638)
1297 141174528 : lu(k,1815) = lu(k,1815) - lu(k,509) * lu(k,1736)
1298 141174528 : lu(k,1822) = lu(k,1822) - lu(k,510) * lu(k,1736)
1299 141174528 : lu(k,1823) = lu(k,1823) - lu(k,511) * lu(k,1736)
1300 141174528 : lu(k,1827) = lu(k,1827) - lu(k,512) * lu(k,1736)
1301 141174528 : lu(k,1829) = lu(k,1829) - lu(k,513) * lu(k,1736)
1302 141174528 : lu(k,1833) = lu(k,1833) - lu(k,514) * lu(k,1736)
1303 141174528 : lu(k,2115) = lu(k,2115) - lu(k,509) * lu(k,2100)
1304 141174528 : lu(k,2122) = lu(k,2122) - lu(k,510) * lu(k,2100)
1305 141174528 : lu(k,2123) = lu(k,2123) - lu(k,511) * lu(k,2100)
1306 141174528 : lu(k,2127) = lu(k,2127) - lu(k,512) * lu(k,2100)
1307 141174528 : lu(k,2129) = lu(k,2129) - lu(k,513) * lu(k,2100)
1308 141174528 : lu(k,2133) = lu(k,2133) - lu(k,514) * lu(k,2100)
1309 141174528 : lu(k,515) = 1._r8 / lu(k,515)
1310 141174528 : lu(k,516) = lu(k,516) * lu(k,515)
1311 141174528 : lu(k,517) = lu(k,517) * lu(k,515)
1312 141174528 : lu(k,518) = lu(k,518) * lu(k,515)
1313 141174528 : lu(k,519) = lu(k,519) * lu(k,515)
1314 141174528 : lu(k,520) = lu(k,520) * lu(k,515)
1315 141174528 : lu(k,521) = lu(k,521) * lu(k,515)
1316 141174528 : lu(k,1178) = lu(k,1178) - lu(k,516) * lu(k,1175)
1317 141174528 : lu(k,1179) = lu(k,1179) - lu(k,517) * lu(k,1175)
1318 141174528 : lu(k,1184) = lu(k,1184) - lu(k,518) * lu(k,1175)
1319 141174528 : lu(k,1188) = lu(k,1188) - lu(k,519) * lu(k,1175)
1320 141174528 : lu(k,1191) = - lu(k,520) * lu(k,1175)
1321 141174528 : lu(k,1195) = lu(k,1195) - lu(k,521) * lu(k,1175)
1322 141174528 : lu(k,1786) = lu(k,1786) - lu(k,516) * lu(k,1737)
1323 141174528 : lu(k,1790) = lu(k,1790) - lu(k,517) * lu(k,1737)
1324 141174528 : lu(k,1801) = lu(k,1801) - lu(k,518) * lu(k,1737)
1325 141174528 : lu(k,1819) = lu(k,1819) - lu(k,519) * lu(k,1737)
1326 141174528 : lu(k,1823) = lu(k,1823) - lu(k,520) * lu(k,1737)
1327 141174528 : lu(k,1831) = lu(k,1831) - lu(k,521) * lu(k,1737)
1328 141174528 : lu(k,2271) = lu(k,2271) - lu(k,516) * lu(k,2240)
1329 141174528 : lu(k,2274) = lu(k,2274) - lu(k,517) * lu(k,2240)
1330 141174528 : lu(k,2282) = lu(k,2282) - lu(k,518) * lu(k,2240)
1331 141174528 : lu(k,2299) = lu(k,2299) - lu(k,519) * lu(k,2240)
1332 141174528 : lu(k,2303) = lu(k,2303) - lu(k,520) * lu(k,2240)
1333 141174528 : lu(k,2311) = lu(k,2311) - lu(k,521) * lu(k,2240)
1334 141174528 : lu(k,522) = 1._r8 / lu(k,522)
1335 141174528 : lu(k,523) = lu(k,523) * lu(k,522)
1336 141174528 : lu(k,524) = lu(k,524) * lu(k,522)
1337 141174528 : lu(k,525) = lu(k,525) * lu(k,522)
1338 141174528 : lu(k,670) = lu(k,670) - lu(k,523) * lu(k,669)
1339 141174528 : lu(k,671) = lu(k,671) - lu(k,524) * lu(k,669)
1340 141174528 : lu(k,674) = - lu(k,525) * lu(k,669)
1341 141174528 : lu(k,1556) = - lu(k,523) * lu(k,1550)
1342 141174528 : lu(k,1576) = lu(k,1576) - lu(k,524) * lu(k,1550)
1343 141174528 : lu(k,1586) = lu(k,1586) - lu(k,525) * lu(k,1550)
1344 141174528 : lu(k,1757) = lu(k,1757) - lu(k,523) * lu(k,1738)
1345 141174528 : lu(k,1820) = lu(k,1820) - lu(k,524) * lu(k,1738)
1346 141174528 : lu(k,1830) = lu(k,1830) - lu(k,525) * lu(k,1738)
1347 141174528 : lu(k,1902) = lu(k,1902) - lu(k,523) * lu(k,1891)
1348 141174528 : lu(k,1947) = lu(k,1947) - lu(k,524) * lu(k,1891)
1349 141174528 : lu(k,1957) = lu(k,1957) - lu(k,525) * lu(k,1891)
1350 141174528 : lu(k,2144) = lu(k,2144) - lu(k,523) * lu(k,2141)
1351 141174528 : lu(k,2182) = lu(k,2182) - lu(k,524) * lu(k,2141)
1352 141174528 : lu(k,2192) = lu(k,2192) - lu(k,525) * lu(k,2141)
1353 141174528 : lu(k,2248) = lu(k,2248) - lu(k,523) * lu(k,2241)
1354 141174528 : lu(k,2300) = lu(k,2300) - lu(k,524) * lu(k,2241)
1355 141174528 : lu(k,2310) = lu(k,2310) - lu(k,525) * lu(k,2241)
1356 141174528 : lu(k,527) = 1._r8 / lu(k,527)
1357 141174528 : lu(k,528) = lu(k,528) * lu(k,527)
1358 141174528 : lu(k,529) = lu(k,529) * lu(k,527)
1359 141174528 : lu(k,530) = lu(k,530) * lu(k,527)
1360 141174528 : lu(k,531) = lu(k,531) * lu(k,527)
1361 141174528 : lu(k,532) = lu(k,532) * lu(k,527)
1362 141174528 : lu(k,533) = lu(k,533) * lu(k,527)
1363 141174528 : lu(k,1574) = - lu(k,528) * lu(k,1551)
1364 141174528 : lu(k,1576) = lu(k,1576) - lu(k,529) * lu(k,1551)
1365 141174528 : lu(k,1577) = lu(k,1577) - lu(k,530) * lu(k,1551)
1366 141174528 : lu(k,1578) = lu(k,1578) - lu(k,531) * lu(k,1551)
1367 141174528 : lu(k,1579) = lu(k,1579) - lu(k,532) * lu(k,1551)
1368 141174528 : lu(k,1581) = lu(k,1581) - lu(k,533) * lu(k,1551)
1369 141174528 : lu(k,1818) = lu(k,1818) - lu(k,528) * lu(k,1739)
1370 141174528 : lu(k,1820) = lu(k,1820) - lu(k,529) * lu(k,1739)
1371 141174528 : lu(k,1821) = lu(k,1821) - lu(k,530) * lu(k,1739)
1372 141174528 : lu(k,1822) = lu(k,1822) - lu(k,531) * lu(k,1739)
1373 141174528 : lu(k,1823) = lu(k,1823) - lu(k,532) * lu(k,1739)
1374 141174528 : lu(k,1825) = lu(k,1825) - lu(k,533) * lu(k,1739)
1375 141174528 : lu(k,1945) = - lu(k,528) * lu(k,1892)
1376 141174528 : lu(k,1947) = lu(k,1947) - lu(k,529) * lu(k,1892)
1377 141174528 : lu(k,1948) = lu(k,1948) - lu(k,530) * lu(k,1892)
1378 141174528 : lu(k,1949) = - lu(k,531) * lu(k,1892)
1379 141174528 : lu(k,1950) = lu(k,1950) - lu(k,532) * lu(k,1892)
1380 141174528 : lu(k,1952) = lu(k,1952) - lu(k,533) * lu(k,1892)
1381 141174528 : lu(k,536) = 1._r8 / lu(k,536)
1382 141174528 : lu(k,537) = lu(k,537) * lu(k,536)
1383 141174528 : lu(k,538) = lu(k,538) * lu(k,536)
1384 141174528 : lu(k,539) = lu(k,539) * lu(k,536)
1385 141174528 : lu(k,540) = lu(k,540) * lu(k,536)
1386 141174528 : lu(k,541) = lu(k,541) * lu(k,536)
1387 141174528 : lu(k,542) = lu(k,542) * lu(k,536)
1388 141174528 : lu(k,1766) = lu(k,1766) - lu(k,537) * lu(k,1740)
1389 141174528 : lu(k,1788) = lu(k,1788) - lu(k,538) * lu(k,1740)
1390 141174528 : lu(k,1820) = lu(k,1820) - lu(k,539) * lu(k,1740)
1391 141174528 : lu(k,1823) = lu(k,1823) - lu(k,540) * lu(k,1740)
1392 141174528 : lu(k,1825) = lu(k,1825) - lu(k,541) * lu(k,1740)
1393 141174528 : lu(k,1831) = lu(k,1831) - lu(k,542) * lu(k,1740)
1394 141174528 : lu(k,1906) = lu(k,1906) - lu(k,537) * lu(k,1893)
1395 141174528 : lu(k,1919) = lu(k,1919) - lu(k,538) * lu(k,1893)
1396 141174528 : lu(k,1947) = lu(k,1947) - lu(k,539) * lu(k,1893)
1397 141174528 : lu(k,1950) = lu(k,1950) - lu(k,540) * lu(k,1893)
1398 141174528 : lu(k,1952) = lu(k,1952) - lu(k,541) * lu(k,1893)
1399 141174528 : lu(k,1958) = lu(k,1958) - lu(k,542) * lu(k,1893)
1400 141174528 : lu(k,2256) = lu(k,2256) - lu(k,537) * lu(k,2242)
1401 141174528 : lu(k,2273) = lu(k,2273) - lu(k,538) * lu(k,2242)
1402 141174528 : lu(k,2300) = lu(k,2300) - lu(k,539) * lu(k,2242)
1403 141174528 : lu(k,2303) = lu(k,2303) - lu(k,540) * lu(k,2242)
1404 141174528 : lu(k,2305) = lu(k,2305) - lu(k,541) * lu(k,2242)
1405 141174528 : lu(k,2311) = lu(k,2311) - lu(k,542) * lu(k,2242)
1406 141174528 : lu(k,544) = 1._r8 / lu(k,544)
1407 141174528 : lu(k,545) = lu(k,545) * lu(k,544)
1408 141174528 : lu(k,546) = lu(k,546) * lu(k,544)
1409 141174528 : lu(k,547) = lu(k,547) * lu(k,544)
1410 141174528 : lu(k,548) = lu(k,548) * lu(k,544)
1411 141174528 : lu(k,549) = lu(k,549) * lu(k,544)
1412 141174528 : lu(k,550) = lu(k,550) * lu(k,544)
1413 141174528 : lu(k,1788) = lu(k,1788) - lu(k,545) * lu(k,1741)
1414 141174528 : lu(k,1806) = lu(k,1806) - lu(k,546) * lu(k,1741)
1415 141174528 : lu(k,1820) = lu(k,1820) - lu(k,547) * lu(k,1741)
1416 141174528 : lu(k,1823) = lu(k,1823) - lu(k,548) * lu(k,1741)
1417 141174528 : lu(k,1825) = lu(k,1825) - lu(k,549) * lu(k,1741)
1418 141174528 : lu(k,1831) = lu(k,1831) - lu(k,550) * lu(k,1741)
1419 141174528 : lu(k,1919) = lu(k,1919) - lu(k,545) * lu(k,1894)
1420 141174528 : lu(k,1935) = lu(k,1935) - lu(k,546) * lu(k,1894)
1421 141174528 : lu(k,1947) = lu(k,1947) - lu(k,547) * lu(k,1894)
1422 141174528 : lu(k,1950) = lu(k,1950) - lu(k,548) * lu(k,1894)
1423 141174528 : lu(k,1952) = lu(k,1952) - lu(k,549) * lu(k,1894)
1424 141174528 : lu(k,1958) = lu(k,1958) - lu(k,550) * lu(k,1894)
1425 141174528 : lu(k,2273) = lu(k,2273) - lu(k,545) * lu(k,2243)
1426 141174528 : lu(k,2287) = lu(k,2287) - lu(k,546) * lu(k,2243)
1427 141174528 : lu(k,2300) = lu(k,2300) - lu(k,547) * lu(k,2243)
1428 141174528 : lu(k,2303) = lu(k,2303) - lu(k,548) * lu(k,2243)
1429 141174528 : lu(k,2305) = lu(k,2305) - lu(k,549) * lu(k,2243)
1430 141174528 : lu(k,2311) = lu(k,2311) - lu(k,550) * lu(k,2243)
1431 141174528 : lu(k,551) = 1._r8 / lu(k,551)
1432 141174528 : lu(k,552) = lu(k,552) * lu(k,551)
1433 141174528 : lu(k,553) = lu(k,553) * lu(k,551)
1434 141174528 : lu(k,554) = lu(k,554) * lu(k,551)
1435 141174528 : lu(k,555) = lu(k,555) * lu(k,551)
1436 141174528 : lu(k,678) = - lu(k,552) * lu(k,676)
1437 141174528 : lu(k,679) = - lu(k,553) * lu(k,676)
1438 141174528 : lu(k,683) = - lu(k,554) * lu(k,676)
1439 141174528 : lu(k,685) = lu(k,685) - lu(k,555) * lu(k,676)
1440 141174528 : lu(k,689) = - lu(k,552) * lu(k,687)
1441 141174528 : lu(k,690) = - lu(k,553) * lu(k,687)
1442 141174528 : lu(k,693) = - lu(k,554) * lu(k,687)
1443 141174528 : lu(k,696) = lu(k,696) - lu(k,555) * lu(k,687)
1444 141174528 : lu(k,958) = - lu(k,552) * lu(k,955)
1445 141174528 : lu(k,959) = - lu(k,553) * lu(k,955)
1446 141174528 : lu(k,963) = - lu(k,554) * lu(k,955)
1447 141174528 : lu(k,966) = - lu(k,555) * lu(k,955)
1448 141174528 : lu(k,1760) = lu(k,1760) - lu(k,552) * lu(k,1742)
1449 141174528 : lu(k,1776) = lu(k,1776) - lu(k,553) * lu(k,1742)
1450 141174528 : lu(k,1813) = lu(k,1813) - lu(k,554) * lu(k,1742)
1451 141174528 : lu(k,1823) = lu(k,1823) - lu(k,555) * lu(k,1742)
1452 141174528 : lu(k,1904) = lu(k,1904) - lu(k,552) * lu(k,1895)
1453 141174528 : lu(k,1912) = lu(k,1912) - lu(k,553) * lu(k,1895)
1454 141174528 : lu(k,1941) = lu(k,1941) - lu(k,554) * lu(k,1895)
1455 145586232 : lu(k,1950) = lu(k,1950) - lu(k,555) * lu(k,1895)
1456 : end do
1457 4411704 : end subroutine lu_fac11
1458 4411704 : subroutine lu_fac12( avec_len, lu )
1459 : use chem_mods, only : nzcnt
1460 : use shr_kind_mod, only : r8 => shr_kind_r8
1461 : implicit none
1462 : !-----------------------------------------------------------------------
1463 : ! ... dummy args
1464 : !-----------------------------------------------------------------------
1465 : integer, intent(in) :: avec_len
1466 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1467 : !-----------------------------------------------------------------------
1468 : ! ... local variables
1469 : !-----------------------------------------------------------------------
1470 : integer :: k
1471 145586232 : do k = 1,avec_len
1472 141174528 : lu(k,556) = 1._r8 / lu(k,556)
1473 141174528 : lu(k,557) = lu(k,557) * lu(k,556)
1474 141174528 : lu(k,558) = lu(k,558) * lu(k,556)
1475 141174528 : lu(k,559) = lu(k,559) * lu(k,556)
1476 141174528 : lu(k,560) = lu(k,560) * lu(k,556)
1477 141174528 : lu(k,561) = lu(k,561) * lu(k,556)
1478 141174528 : lu(k,1276) = lu(k,1276) - lu(k,557) * lu(k,1274)
1479 141174528 : lu(k,1278) = lu(k,1278) - lu(k,558) * lu(k,1274)
1480 141174528 : lu(k,1280) = lu(k,1280) - lu(k,559) * lu(k,1274)
1481 141174528 : lu(k,1281) = lu(k,1281) - lu(k,560) * lu(k,1274)
1482 141174528 : lu(k,1285) = lu(k,1285) - lu(k,561) * lu(k,1274)
1483 141174528 : lu(k,1600) = lu(k,1600) - lu(k,557) * lu(k,1591)
1484 141174528 : lu(k,1605) = lu(k,1605) - lu(k,558) * lu(k,1591)
1485 141174528 : lu(k,1608) = lu(k,1608) - lu(k,559) * lu(k,1591)
1486 141174528 : lu(k,1610) = lu(k,1610) - lu(k,560) * lu(k,1591)
1487 141174528 : lu(k,1617) = lu(k,1617) - lu(k,561) * lu(k,1591)
1488 141174528 : lu(k,1807) = lu(k,1807) - lu(k,557) * lu(k,1743)
1489 141174528 : lu(k,1818) = lu(k,1818) - lu(k,558) * lu(k,1743)
1490 141174528 : lu(k,1821) = lu(k,1821) - lu(k,559) * lu(k,1743)
1491 141174528 : lu(k,1823) = lu(k,1823) - lu(k,560) * lu(k,1743)
1492 141174528 : lu(k,1830) = lu(k,1830) - lu(k,561) * lu(k,1743)
1493 141174528 : lu(k,2170) = lu(k,2170) - lu(k,557) * lu(k,2142)
1494 141174528 : lu(k,2180) = lu(k,2180) - lu(k,558) * lu(k,2142)
1495 141174528 : lu(k,2183) = lu(k,2183) - lu(k,559) * lu(k,2142)
1496 141174528 : lu(k,2185) = lu(k,2185) - lu(k,560) * lu(k,2142)
1497 141174528 : lu(k,2192) = lu(k,2192) - lu(k,561) * lu(k,2142)
1498 141174528 : lu(k,563) = 1._r8 / lu(k,563)
1499 141174528 : lu(k,564) = lu(k,564) * lu(k,563)
1500 141174528 : lu(k,565) = lu(k,565) * lu(k,563)
1501 141174528 : lu(k,566) = lu(k,566) * lu(k,563)
1502 141174528 : lu(k,567) = lu(k,567) * lu(k,563)
1503 141174528 : lu(k,568) = lu(k,568) * lu(k,563)
1504 141174528 : lu(k,1556) = lu(k,1556) - lu(k,564) * lu(k,1552)
1505 141174528 : lu(k,1576) = lu(k,1576) - lu(k,565) * lu(k,1552)
1506 141174528 : lu(k,1579) = lu(k,1579) - lu(k,566) * lu(k,1552)
1507 141174528 : lu(k,1581) = lu(k,1581) - lu(k,567) * lu(k,1552)
1508 141174528 : lu(k,1587) = lu(k,1587) - lu(k,568) * lu(k,1552)
1509 141174528 : lu(k,1757) = lu(k,1757) - lu(k,564) * lu(k,1744)
1510 141174528 : lu(k,1820) = lu(k,1820) - lu(k,565) * lu(k,1744)
1511 141174528 : lu(k,1823) = lu(k,1823) - lu(k,566) * lu(k,1744)
1512 141174528 : lu(k,1825) = lu(k,1825) - lu(k,567) * lu(k,1744)
1513 141174528 : lu(k,1831) = lu(k,1831) - lu(k,568) * lu(k,1744)
1514 141174528 : lu(k,1902) = lu(k,1902) - lu(k,564) * lu(k,1896)
1515 141174528 : lu(k,1947) = lu(k,1947) - lu(k,565) * lu(k,1896)
1516 141174528 : lu(k,1950) = lu(k,1950) - lu(k,566) * lu(k,1896)
1517 141174528 : lu(k,1952) = lu(k,1952) - lu(k,567) * lu(k,1896)
1518 141174528 : lu(k,1958) = lu(k,1958) - lu(k,568) * lu(k,1896)
1519 141174528 : lu(k,2248) = lu(k,2248) - lu(k,564) * lu(k,2244)
1520 141174528 : lu(k,2300) = lu(k,2300) - lu(k,565) * lu(k,2244)
1521 141174528 : lu(k,2303) = lu(k,2303) - lu(k,566) * lu(k,2244)
1522 141174528 : lu(k,2305) = lu(k,2305) - lu(k,567) * lu(k,2244)
1523 141174528 : lu(k,2311) = lu(k,2311) - lu(k,568) * lu(k,2244)
1524 141174528 : lu(k,569) = 1._r8 / lu(k,569)
1525 141174528 : lu(k,570) = lu(k,570) * lu(k,569)
1526 141174528 : lu(k,571) = lu(k,571) * lu(k,569)
1527 141174528 : lu(k,572) = lu(k,572) * lu(k,569)
1528 141174528 : lu(k,573) = lu(k,573) * lu(k,569)
1529 141174528 : lu(k,574) = lu(k,574) * lu(k,569)
1530 141174528 : lu(k,575) = lu(k,575) * lu(k,569)
1531 141174528 : lu(k,576) = lu(k,576) * lu(k,569)
1532 141174528 : lu(k,1418) = lu(k,1418) - lu(k,570) * lu(k,1415)
1533 141174528 : lu(k,1433) = lu(k,1433) - lu(k,571) * lu(k,1415)
1534 141174528 : lu(k,1436) = lu(k,1436) - lu(k,572) * lu(k,1415)
1535 141174528 : lu(k,1437) = lu(k,1437) - lu(k,573) * lu(k,1415)
1536 141174528 : lu(k,1439) = lu(k,1439) - lu(k,574) * lu(k,1415)
1537 141174528 : lu(k,1441) = lu(k,1441) - lu(k,575) * lu(k,1415)
1538 141174528 : lu(k,1442) = - lu(k,576) * lu(k,1415)
1539 141174528 : lu(k,1560) = - lu(k,570) * lu(k,1553)
1540 141174528 : lu(k,1570) = lu(k,1570) - lu(k,571) * lu(k,1553)
1541 141174528 : lu(k,1575) = - lu(k,572) * lu(k,1553)
1542 141174528 : lu(k,1576) = lu(k,1576) - lu(k,573) * lu(k,1553)
1543 141174528 : lu(k,1579) = lu(k,1579) - lu(k,574) * lu(k,1553)
1544 141174528 : lu(k,1582) = - lu(k,575) * lu(k,1553)
1545 141174528 : lu(k,1584) = lu(k,1584) - lu(k,576) * lu(k,1553)
1546 141174528 : lu(k,1777) = lu(k,1777) - lu(k,570) * lu(k,1745)
1547 141174528 : lu(k,1813) = lu(k,1813) - lu(k,571) * lu(k,1745)
1548 141174528 : lu(k,1819) = lu(k,1819) - lu(k,572) * lu(k,1745)
1549 141174528 : lu(k,1820) = lu(k,1820) - lu(k,573) * lu(k,1745)
1550 141174528 : lu(k,1823) = lu(k,1823) - lu(k,574) * lu(k,1745)
1551 141174528 : lu(k,1826) = lu(k,1826) - lu(k,575) * lu(k,1745)
1552 141174528 : lu(k,1828) = lu(k,1828) - lu(k,576) * lu(k,1745)
1553 141174528 : lu(k,577) = 1._r8 / lu(k,577)
1554 141174528 : lu(k,578) = lu(k,578) * lu(k,577)
1555 141174528 : lu(k,579) = lu(k,579) * lu(k,577)
1556 141174528 : lu(k,580) = lu(k,580) * lu(k,577)
1557 141174528 : lu(k,581) = lu(k,581) * lu(k,577)
1558 141174528 : lu(k,582) = lu(k,582) * lu(k,577)
1559 141174528 : lu(k,583) = lu(k,583) * lu(k,577)
1560 141174528 : lu(k,584) = lu(k,584) * lu(k,577)
1561 141174528 : lu(k,1559) = - lu(k,578) * lu(k,1554)
1562 141174528 : lu(k,1571) = - lu(k,579) * lu(k,1554)
1563 141174528 : lu(k,1573) = lu(k,1573) - lu(k,580) * lu(k,1554)
1564 141174528 : lu(k,1576) = lu(k,1576) - lu(k,581) * lu(k,1554)
1565 141174528 : lu(k,1577) = lu(k,1577) - lu(k,582) * lu(k,1554)
1566 141174528 : lu(k,1580) = lu(k,1580) - lu(k,583) * lu(k,1554)
1567 141174528 : lu(k,1584) = lu(k,1584) - lu(k,584) * lu(k,1554)
1568 141174528 : lu(k,1594) = lu(k,1594) - lu(k,578) * lu(k,1592)
1569 141174528 : lu(k,1602) = lu(k,1602) - lu(k,579) * lu(k,1592)
1570 141174528 : lu(k,1604) = - lu(k,580) * lu(k,1592)
1571 141174528 : lu(k,1607) = lu(k,1607) - lu(k,581) * lu(k,1592)
1572 141174528 : lu(k,1608) = lu(k,1608) - lu(k,582) * lu(k,1592)
1573 141174528 : lu(k,1611) = lu(k,1611) - lu(k,583) * lu(k,1592)
1574 141174528 : lu(k,1615) = lu(k,1615) - lu(k,584) * lu(k,1592)
1575 141174528 : lu(k,1837) = lu(k,1837) - lu(k,578) * lu(k,1836)
1576 141174528 : lu(k,1840) = lu(k,1840) - lu(k,579) * lu(k,1836)
1577 141174528 : lu(k,1841) = - lu(k,580) * lu(k,1836)
1578 141174528 : lu(k,1844) = lu(k,1844) - lu(k,581) * lu(k,1836)
1579 141174528 : lu(k,1845) = lu(k,1845) - lu(k,582) * lu(k,1836)
1580 141174528 : lu(k,1848) = lu(k,1848) - lu(k,583) * lu(k,1836)
1581 141174528 : lu(k,1852) = - lu(k,584) * lu(k,1836)
1582 141174528 : lu(k,585) = 1._r8 / lu(k,585)
1583 141174528 : lu(k,586) = lu(k,586) * lu(k,585)
1584 141174528 : lu(k,587) = lu(k,587) * lu(k,585)
1585 141174528 : lu(k,588) = lu(k,588) * lu(k,585)
1586 141174528 : lu(k,589) = lu(k,589) * lu(k,585)
1587 141174528 : lu(k,590) = lu(k,590) * lu(k,585)
1588 141174528 : lu(k,591) = lu(k,591) * lu(k,585)
1589 141174528 : lu(k,592) = lu(k,592) * lu(k,585)
1590 141174528 : lu(k,813) = lu(k,813) - lu(k,586) * lu(k,812)
1591 141174528 : lu(k,814) = lu(k,814) - lu(k,587) * lu(k,812)
1592 141174528 : lu(k,815) = - lu(k,588) * lu(k,812)
1593 141174528 : lu(k,816) = lu(k,816) - lu(k,589) * lu(k,812)
1594 141174528 : lu(k,818) = - lu(k,590) * lu(k,812)
1595 141174528 : lu(k,820) = lu(k,820) - lu(k,591) * lu(k,812)
1596 141174528 : lu(k,821) = - lu(k,592) * lu(k,812)
1597 141174528 : lu(k,1771) = lu(k,1771) - lu(k,586) * lu(k,1746)
1598 141174528 : lu(k,1793) = lu(k,1793) - lu(k,587) * lu(k,1746)
1599 141174528 : lu(k,1799) = lu(k,1799) - lu(k,588) * lu(k,1746)
1600 141174528 : lu(k,1819) = lu(k,1819) - lu(k,589) * lu(k,1746)
1601 141174528 : lu(k,1823) = lu(k,1823) - lu(k,590) * lu(k,1746)
1602 141174528 : lu(k,1831) = lu(k,1831) - lu(k,591) * lu(k,1746)
1603 141174528 : lu(k,1833) = lu(k,1833) - lu(k,592) * lu(k,1746)
1604 141174528 : lu(k,2261) = lu(k,2261) - lu(k,586) * lu(k,2245)
1605 141174528 : lu(k,2275) = lu(k,2275) - lu(k,587) * lu(k,2245)
1606 141174528 : lu(k,2280) = - lu(k,588) * lu(k,2245)
1607 141174528 : lu(k,2299) = lu(k,2299) - lu(k,589) * lu(k,2245)
1608 141174528 : lu(k,2303) = lu(k,2303) - lu(k,590) * lu(k,2245)
1609 141174528 : lu(k,2311) = lu(k,2311) - lu(k,591) * lu(k,2245)
1610 141174528 : lu(k,2313) = lu(k,2313) - lu(k,592) * lu(k,2245)
1611 141174528 : lu(k,593) = 1._r8 / lu(k,593)
1612 141174528 : lu(k,594) = lu(k,594) * lu(k,593)
1613 141174528 : lu(k,595) = lu(k,595) * lu(k,593)
1614 141174528 : lu(k,596) = lu(k,596) * lu(k,593)
1615 141174528 : lu(k,597) = lu(k,597) * lu(k,593)
1616 141174528 : lu(k,598) = lu(k,598) * lu(k,593)
1617 141174528 : lu(k,599) = lu(k,599) * lu(k,593)
1618 141174528 : lu(k,600) = lu(k,600) * lu(k,593)
1619 141174528 : lu(k,1323) = - lu(k,594) * lu(k,1319)
1620 141174528 : lu(k,1326) = lu(k,1326) - lu(k,595) * lu(k,1319)
1621 141174528 : lu(k,1328) = - lu(k,596) * lu(k,1319)
1622 141174528 : lu(k,1329) = lu(k,1329) - lu(k,597) * lu(k,1319)
1623 141174528 : lu(k,1339) = - lu(k,598) * lu(k,1319)
1624 141174528 : lu(k,1343) = lu(k,1343) - lu(k,599) * lu(k,1319)
1625 141174528 : lu(k,1348) = lu(k,1348) - lu(k,600) * lu(k,1319)
1626 141174528 : lu(k,1779) = lu(k,1779) - lu(k,594) * lu(k,1747)
1627 141174528 : lu(k,1794) = lu(k,1794) - lu(k,595) * lu(k,1747)
1628 141174528 : lu(k,1798) = lu(k,1798) - lu(k,596) * lu(k,1747)
1629 141174528 : lu(k,1799) = lu(k,1799) - lu(k,597) * lu(k,1747)
1630 141174528 : lu(k,1817) = lu(k,1817) - lu(k,598) * lu(k,1747)
1631 141174528 : lu(k,1823) = lu(k,1823) - lu(k,599) * lu(k,1747)
1632 141174528 : lu(k,1831) = lu(k,1831) - lu(k,600) * lu(k,1747)
1633 141174528 : lu(k,1914) = - lu(k,594) * lu(k,1897)
1634 141174528 : lu(k,1923) = lu(k,1923) - lu(k,595) * lu(k,1897)
1635 141174528 : lu(k,1927) = lu(k,1927) - lu(k,596) * lu(k,1897)
1636 141174528 : lu(k,1928) = lu(k,1928) - lu(k,597) * lu(k,1897)
1637 141174528 : lu(k,1944) = lu(k,1944) - lu(k,598) * lu(k,1897)
1638 141174528 : lu(k,1950) = lu(k,1950) - lu(k,599) * lu(k,1897)
1639 145586232 : lu(k,1958) = lu(k,1958) - lu(k,600) * lu(k,1897)
1640 : end do
1641 4411704 : end subroutine lu_fac12
1642 4411704 : subroutine lu_fac13( avec_len, lu )
1643 : use chem_mods, only : nzcnt
1644 : use shr_kind_mod, only : r8 => shr_kind_r8
1645 : implicit none
1646 : !-----------------------------------------------------------------------
1647 : ! ... dummy args
1648 : !-----------------------------------------------------------------------
1649 : integer, intent(in) :: avec_len
1650 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1651 : !-----------------------------------------------------------------------
1652 : ! ... local variables
1653 : !-----------------------------------------------------------------------
1654 : integer :: k
1655 145586232 : do k = 1,avec_len
1656 141174528 : lu(k,601) = 1._r8 / lu(k,601)
1657 141174528 : lu(k,602) = lu(k,602) * lu(k,601)
1658 141174528 : lu(k,603) = lu(k,603) * lu(k,601)
1659 141174528 : lu(k,604) = lu(k,604) * lu(k,601)
1660 141174528 : lu(k,605) = lu(k,605) * lu(k,601)
1661 141174528 : lu(k,606) = lu(k,606) * lu(k,601)
1662 141174528 : lu(k,607) = lu(k,607) * lu(k,601)
1663 141174528 : lu(k,608) = lu(k,608) * lu(k,601)
1664 141174528 : lu(k,1765) = lu(k,1765) - lu(k,602) * lu(k,1748)
1665 141174528 : lu(k,1787) = lu(k,1787) - lu(k,603) * lu(k,1748)
1666 141174528 : lu(k,1797) = lu(k,1797) - lu(k,604) * lu(k,1748)
1667 141174528 : lu(k,1819) = lu(k,1819) - lu(k,605) * lu(k,1748)
1668 141174528 : lu(k,1823) = lu(k,1823) - lu(k,606) * lu(k,1748)
1669 141174528 : lu(k,1830) = lu(k,1830) - lu(k,607) * lu(k,1748)
1670 141174528 : lu(k,1831) = lu(k,1831) - lu(k,608) * lu(k,1748)
1671 141174528 : lu(k,2104) = - lu(k,602) * lu(k,2101)
1672 141174528 : lu(k,2108) = lu(k,2108) - lu(k,603) * lu(k,2101)
1673 141174528 : lu(k,2112) = lu(k,2112) - lu(k,604) * lu(k,2101)
1674 141174528 : lu(k,2119) = lu(k,2119) - lu(k,605) * lu(k,2101)
1675 141174528 : lu(k,2123) = lu(k,2123) - lu(k,606) * lu(k,2101)
1676 141174528 : lu(k,2130) = lu(k,2130) - lu(k,607) * lu(k,2101)
1677 141174528 : lu(k,2131) = lu(k,2131) - lu(k,608) * lu(k,2101)
1678 141174528 : lu(k,2146) = - lu(k,602) * lu(k,2143)
1679 141174528 : lu(k,2153) = lu(k,2153) - lu(k,603) * lu(k,2143)
1680 141174528 : lu(k,2162) = lu(k,2162) - lu(k,604) * lu(k,2143)
1681 141174528 : lu(k,2181) = lu(k,2181) - lu(k,605) * lu(k,2143)
1682 141174528 : lu(k,2185) = lu(k,2185) - lu(k,606) * lu(k,2143)
1683 141174528 : lu(k,2192) = lu(k,2192) - lu(k,607) * lu(k,2143)
1684 141174528 : lu(k,2193) = lu(k,2193) - lu(k,608) * lu(k,2143)
1685 141174528 : lu(k,609) = 1._r8 / lu(k,609)
1686 141174528 : lu(k,610) = lu(k,610) * lu(k,609)
1687 141174528 : lu(k,611) = lu(k,611) * lu(k,609)
1688 141174528 : lu(k,612) = lu(k,612) * lu(k,609)
1689 141174528 : lu(k,613) = lu(k,613) * lu(k,609)
1690 141174528 : lu(k,614) = lu(k,614) * lu(k,609)
1691 141174528 : lu(k,615) = lu(k,615) * lu(k,609)
1692 141174528 : lu(k,616) = lu(k,616) * lu(k,609)
1693 141174528 : lu(k,1786) = lu(k,1786) - lu(k,610) * lu(k,1749)
1694 141174528 : lu(k,1793) = lu(k,1793) - lu(k,611) * lu(k,1749)
1695 141174528 : lu(k,1798) = lu(k,1798) - lu(k,612) * lu(k,1749)
1696 141174528 : lu(k,1819) = lu(k,1819) - lu(k,613) * lu(k,1749)
1697 141174528 : lu(k,1820) = lu(k,1820) - lu(k,614) * lu(k,1749)
1698 141174528 : lu(k,1825) = lu(k,1825) - lu(k,615) * lu(k,1749)
1699 141174528 : lu(k,1831) = lu(k,1831) - lu(k,616) * lu(k,1749)
1700 141174528 : lu(k,1917) = lu(k,1917) - lu(k,610) * lu(k,1898)
1701 141174528 : lu(k,1922) = lu(k,1922) - lu(k,611) * lu(k,1898)
1702 141174528 : lu(k,1927) = lu(k,1927) - lu(k,612) * lu(k,1898)
1703 141174528 : lu(k,1946) = lu(k,1946) - lu(k,613) * lu(k,1898)
1704 141174528 : lu(k,1947) = lu(k,1947) - lu(k,614) * lu(k,1898)
1705 141174528 : lu(k,1952) = lu(k,1952) - lu(k,615) * lu(k,1898)
1706 141174528 : lu(k,1958) = lu(k,1958) - lu(k,616) * lu(k,1898)
1707 141174528 : lu(k,2048) = lu(k,2048) - lu(k,610) * lu(k,2042)
1708 141174528 : lu(k,2055) = lu(k,2055) - lu(k,611) * lu(k,2042)
1709 141174528 : lu(k,2060) = - lu(k,612) * lu(k,2042)
1710 141174528 : lu(k,2080) = lu(k,2080) - lu(k,613) * lu(k,2042)
1711 141174528 : lu(k,2081) = lu(k,2081) - lu(k,614) * lu(k,2042)
1712 141174528 : lu(k,2086) = lu(k,2086) - lu(k,615) * lu(k,2042)
1713 141174528 : lu(k,2092) = lu(k,2092) - lu(k,616) * lu(k,2042)
1714 141174528 : lu(k,617) = 1._r8 / lu(k,617)
1715 141174528 : lu(k,618) = lu(k,618) * lu(k,617)
1716 141174528 : lu(k,619) = lu(k,619) * lu(k,617)
1717 141174528 : lu(k,620) = lu(k,620) * lu(k,617)
1718 141174528 : lu(k,621) = lu(k,621) * lu(k,617)
1719 141174528 : lu(k,622) = lu(k,622) * lu(k,617)
1720 141174528 : lu(k,623) = lu(k,623) * lu(k,617)
1721 141174528 : lu(k,624) = lu(k,624) * lu(k,617)
1722 141174528 : lu(k,625) = lu(k,625) * lu(k,617)
1723 141174528 : lu(k,1293) = - lu(k,618) * lu(k,1289)
1724 141174528 : lu(k,1295) = - lu(k,619) * lu(k,1289)
1725 141174528 : lu(k,1296) = - lu(k,620) * lu(k,1289)
1726 141174528 : lu(k,1306) = - lu(k,621) * lu(k,1289)
1727 141174528 : lu(k,1307) = lu(k,1307) - lu(k,622) * lu(k,1289)
1728 141174528 : lu(k,1308) = lu(k,1308) - lu(k,623) * lu(k,1289)
1729 141174528 : lu(k,1310) = - lu(k,624) * lu(k,1289)
1730 141174528 : lu(k,1315) = lu(k,1315) - lu(k,625) * lu(k,1289)
1731 141174528 : lu(k,1794) = lu(k,1794) - lu(k,618) * lu(k,1750)
1732 141174528 : lu(k,1798) = lu(k,1798) - lu(k,619) * lu(k,1750)
1733 141174528 : lu(k,1799) = lu(k,1799) - lu(k,620) * lu(k,1750)
1734 141174528 : lu(k,1817) = lu(k,1817) - lu(k,621) * lu(k,1750)
1735 141174528 : lu(k,1819) = lu(k,1819) - lu(k,622) * lu(k,1750)
1736 141174528 : lu(k,1820) = lu(k,1820) - lu(k,623) * lu(k,1750)
1737 141174528 : lu(k,1823) = lu(k,1823) - lu(k,624) * lu(k,1750)
1738 141174528 : lu(k,1831) = lu(k,1831) - lu(k,625) * lu(k,1750)
1739 141174528 : lu(k,1923) = lu(k,1923) - lu(k,618) * lu(k,1899)
1740 141174528 : lu(k,1927) = lu(k,1927) - lu(k,619) * lu(k,1899)
1741 141174528 : lu(k,1928) = lu(k,1928) - lu(k,620) * lu(k,1899)
1742 141174528 : lu(k,1944) = lu(k,1944) - lu(k,621) * lu(k,1899)
1743 141174528 : lu(k,1946) = lu(k,1946) - lu(k,622) * lu(k,1899)
1744 141174528 : lu(k,1947) = lu(k,1947) - lu(k,623) * lu(k,1899)
1745 141174528 : lu(k,1950) = lu(k,1950) - lu(k,624) * lu(k,1899)
1746 141174528 : lu(k,1958) = lu(k,1958) - lu(k,625) * lu(k,1899)
1747 141174528 : lu(k,626) = 1._r8 / lu(k,626)
1748 141174528 : lu(k,627) = lu(k,627) * lu(k,626)
1749 141174528 : lu(k,628) = lu(k,628) * lu(k,626)
1750 141174528 : lu(k,629) = lu(k,629) * lu(k,626)
1751 141174528 : lu(k,630) = lu(k,630) * lu(k,626)
1752 141174528 : lu(k,631) = lu(k,631) * lu(k,626)
1753 141174528 : lu(k,632) = lu(k,632) * lu(k,626)
1754 141174528 : lu(k,633) = lu(k,633) * lu(k,626)
1755 141174528 : lu(k,634) = lu(k,634) * lu(k,626)
1756 141174528 : lu(k,1643) = lu(k,1643) - lu(k,627) * lu(k,1639)
1757 141174528 : lu(k,1650) = lu(k,1650) - lu(k,628) * lu(k,1639)
1758 141174528 : lu(k,1651) = lu(k,1651) - lu(k,629) * lu(k,1639)
1759 141174528 : lu(k,1654) = lu(k,1654) - lu(k,630) * lu(k,1639)
1760 141174528 : lu(k,1655) = lu(k,1655) - lu(k,631) * lu(k,1639)
1761 141174528 : lu(k,1657) = lu(k,1657) - lu(k,632) * lu(k,1639)
1762 141174528 : lu(k,1659) = lu(k,1659) - lu(k,633) * lu(k,1639)
1763 141174528 : lu(k,1661) = lu(k,1661) - lu(k,634) * lu(k,1639)
1764 141174528 : lu(k,1815) = lu(k,1815) - lu(k,627) * lu(k,1751)
1765 141174528 : lu(k,1822) = lu(k,1822) - lu(k,628) * lu(k,1751)
1766 141174528 : lu(k,1823) = lu(k,1823) - lu(k,629) * lu(k,1751)
1767 141174528 : lu(k,1826) = lu(k,1826) - lu(k,630) * lu(k,1751)
1768 141174528 : lu(k,1827) = lu(k,1827) - lu(k,631) * lu(k,1751)
1769 141174528 : lu(k,1829) = lu(k,1829) - lu(k,632) * lu(k,1751)
1770 141174528 : lu(k,1831) = lu(k,1831) - lu(k,633) * lu(k,1751)
1771 141174528 : lu(k,1833) = lu(k,1833) - lu(k,634) * lu(k,1751)
1772 141174528 : lu(k,2115) = lu(k,2115) - lu(k,627) * lu(k,2102)
1773 141174528 : lu(k,2122) = lu(k,2122) - lu(k,628) * lu(k,2102)
1774 141174528 : lu(k,2123) = lu(k,2123) - lu(k,629) * lu(k,2102)
1775 141174528 : lu(k,2126) = lu(k,2126) - lu(k,630) * lu(k,2102)
1776 141174528 : lu(k,2127) = lu(k,2127) - lu(k,631) * lu(k,2102)
1777 141174528 : lu(k,2129) = lu(k,2129) - lu(k,632) * lu(k,2102)
1778 141174528 : lu(k,2131) = lu(k,2131) - lu(k,633) * lu(k,2102)
1779 141174528 : lu(k,2133) = lu(k,2133) - lu(k,634) * lu(k,2102)
1780 141174528 : lu(k,635) = 1._r8 / lu(k,635)
1781 141174528 : lu(k,636) = lu(k,636) * lu(k,635)
1782 141174528 : lu(k,637) = lu(k,637) * lu(k,635)
1783 141174528 : lu(k,638) = lu(k,638) * lu(k,635)
1784 141174528 : lu(k,639) = lu(k,639) * lu(k,635)
1785 141174528 : lu(k,640) = lu(k,640) * lu(k,635)
1786 141174528 : lu(k,641) = lu(k,641) * lu(k,635)
1787 141174528 : lu(k,1397) = lu(k,1397) - lu(k,636) * lu(k,1394)
1788 141174528 : lu(k,1402) = lu(k,1402) - lu(k,637) * lu(k,1394)
1789 141174528 : lu(k,1404) = lu(k,1404) - lu(k,638) * lu(k,1394)
1790 141174528 : lu(k,1407) = lu(k,1407) - lu(k,639) * lu(k,1394)
1791 141174528 : lu(k,1409) = lu(k,1409) - lu(k,640) * lu(k,1394)
1792 141174528 : lu(k,1413) = - lu(k,641) * lu(k,1394)
1793 141174528 : lu(k,1418) = lu(k,1418) - lu(k,636) * lu(k,1416)
1794 141174528 : lu(k,1433) = lu(k,1433) - lu(k,637) * lu(k,1416)
1795 141174528 : lu(k,1436) = lu(k,1436) - lu(k,638) * lu(k,1416)
1796 141174528 : lu(k,1439) = lu(k,1439) - lu(k,639) * lu(k,1416)
1797 141174528 : lu(k,1441) = lu(k,1441) - lu(k,640) * lu(k,1416)
1798 141174528 : lu(k,1445) = - lu(k,641) * lu(k,1416)
1799 141174528 : lu(k,1777) = lu(k,1777) - lu(k,636) * lu(k,1752)
1800 141174528 : lu(k,1813) = lu(k,1813) - lu(k,637) * lu(k,1752)
1801 141174528 : lu(k,1819) = lu(k,1819) - lu(k,638) * lu(k,1752)
1802 141174528 : lu(k,1823) = lu(k,1823) - lu(k,639) * lu(k,1752)
1803 141174528 : lu(k,1826) = lu(k,1826) - lu(k,640) * lu(k,1752)
1804 141174528 : lu(k,1833) = lu(k,1833) - lu(k,641) * lu(k,1752)
1805 141174528 : lu(k,2267) = lu(k,2267) - lu(k,636) * lu(k,2246)
1806 141174528 : lu(k,2293) = lu(k,2293) - lu(k,637) * lu(k,2246)
1807 141174528 : lu(k,2299) = lu(k,2299) - lu(k,638) * lu(k,2246)
1808 141174528 : lu(k,2303) = lu(k,2303) - lu(k,639) * lu(k,2246)
1809 141174528 : lu(k,2306) = lu(k,2306) - lu(k,640) * lu(k,2246)
1810 145586232 : lu(k,2313) = lu(k,2313) - lu(k,641) * lu(k,2246)
1811 : end do
1812 4411704 : end subroutine lu_fac13
1813 4411704 : 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 145586232 : do k = 1,avec_len
1827 141174528 : lu(k,642) = 1._r8 / lu(k,642)
1828 141174528 : lu(k,643) = lu(k,643) * lu(k,642)
1829 141174528 : lu(k,644) = lu(k,644) * lu(k,642)
1830 141174528 : lu(k,645) = lu(k,645) * lu(k,642)
1831 141174528 : lu(k,723) = - lu(k,643) * lu(k,718)
1832 141174528 : lu(k,725) = - lu(k,644) * lu(k,718)
1833 141174528 : lu(k,728) = lu(k,728) - lu(k,645) * lu(k,718)
1834 141174528 : lu(k,742) = - lu(k,643) * lu(k,737)
1835 141174528 : lu(k,744) = lu(k,744) - lu(k,644) * lu(k,737)
1836 141174528 : lu(k,748) = lu(k,748) - lu(k,645) * lu(k,737)
1837 141174528 : lu(k,771) = - lu(k,643) * lu(k,766)
1838 141174528 : lu(k,773) = - lu(k,644) * lu(k,766)
1839 141174528 : lu(k,778) = lu(k,778) - lu(k,645) * lu(k,766)
1840 141174528 : lu(k,795) = - lu(k,643) * lu(k,790)
1841 141174528 : lu(k,797) = lu(k,797) - lu(k,644) * lu(k,790)
1842 141174528 : lu(k,803) = lu(k,803) - lu(k,645) * lu(k,790)
1843 141174528 : lu(k,1067) = - lu(k,643) * lu(k,1065)
1844 141174528 : lu(k,1070) = - lu(k,644) * lu(k,1065)
1845 141174528 : lu(k,1080) = lu(k,1080) - lu(k,645) * lu(k,1065)
1846 141174528 : lu(k,1324) = - lu(k,643) * lu(k,1320)
1847 141174528 : lu(k,1327) = - lu(k,644) * lu(k,1320)
1848 141174528 : lu(k,1348) = lu(k,1348) - lu(k,645) * lu(k,1320)
1849 141174528 : lu(k,1782) = - lu(k,643) * lu(k,1753)
1850 141174528 : lu(k,1797) = lu(k,1797) - lu(k,644) * lu(k,1753)
1851 141174528 : lu(k,1831) = lu(k,1831) - lu(k,645) * lu(k,1753)
1852 141174528 : lu(k,1915) = lu(k,1915) - lu(k,643) * lu(k,1900)
1853 141174528 : lu(k,1926) = lu(k,1926) - lu(k,644) * lu(k,1900)
1854 141174528 : lu(k,1958) = lu(k,1958) - lu(k,645) * lu(k,1900)
1855 141174528 : lu(k,646) = 1._r8 / lu(k,646)
1856 141174528 : lu(k,647) = lu(k,647) * lu(k,646)
1857 141174528 : lu(k,648) = lu(k,648) * lu(k,646)
1858 141174528 : lu(k,649) = lu(k,649) * lu(k,646)
1859 141174528 : lu(k,650) = lu(k,650) * lu(k,646)
1860 141174528 : lu(k,651) = lu(k,651) * lu(k,646)
1861 141174528 : lu(k,652) = lu(k,652) * lu(k,646)
1862 141174528 : lu(k,1608) = lu(k,1608) - lu(k,647) * lu(k,1593)
1863 141174528 : lu(k,1610) = lu(k,1610) - lu(k,648) * lu(k,1593)
1864 141174528 : lu(k,1614) = lu(k,1614) - lu(k,649) * lu(k,1593)
1865 141174528 : lu(k,1616) = lu(k,1616) - lu(k,650) * lu(k,1593)
1866 141174528 : lu(k,1618) = lu(k,1618) - lu(k,651) * lu(k,1593)
1867 141174528 : lu(k,1620) = - lu(k,652) * lu(k,1593)
1868 141174528 : lu(k,1821) = lu(k,1821) - lu(k,647) * lu(k,1754)
1869 141174528 : lu(k,1823) = lu(k,1823) - lu(k,648) * lu(k,1754)
1870 141174528 : lu(k,1827) = lu(k,1827) - lu(k,649) * lu(k,1754)
1871 141174528 : lu(k,1829) = lu(k,1829) - lu(k,650) * lu(k,1754)
1872 141174528 : lu(k,1831) = lu(k,1831) - lu(k,651) * lu(k,1754)
1873 141174528 : lu(k,1833) = lu(k,1833) - lu(k,652) * lu(k,1754)
1874 141174528 : lu(k,2121) = - lu(k,647) * lu(k,2103)
1875 141174528 : lu(k,2123) = lu(k,2123) - lu(k,648) * lu(k,2103)
1876 141174528 : lu(k,2127) = lu(k,2127) - lu(k,649) * lu(k,2103)
1877 141174528 : lu(k,2129) = lu(k,2129) - lu(k,650) * lu(k,2103)
1878 141174528 : lu(k,2131) = lu(k,2131) - lu(k,651) * lu(k,2103)
1879 141174528 : lu(k,2133) = lu(k,2133) - lu(k,652) * lu(k,2103)
1880 141174528 : lu(k,2301) = lu(k,2301) - lu(k,647) * lu(k,2247)
1881 141174528 : lu(k,2303) = lu(k,2303) - lu(k,648) * lu(k,2247)
1882 141174528 : lu(k,2307) = lu(k,2307) - lu(k,649) * lu(k,2247)
1883 141174528 : lu(k,2309) = lu(k,2309) - lu(k,650) * lu(k,2247)
1884 141174528 : lu(k,2311) = lu(k,2311) - lu(k,651) * lu(k,2247)
1885 141174528 : lu(k,2313) = lu(k,2313) - lu(k,652) * lu(k,2247)
1886 141174528 : lu(k,653) = 1._r8 / lu(k,653)
1887 141174528 : lu(k,654) = lu(k,654) * lu(k,653)
1888 141174528 : lu(k,655) = lu(k,655) * lu(k,653)
1889 141174528 : lu(k,656) = lu(k,656) * lu(k,653)
1890 141174528 : lu(k,657) = lu(k,657) * lu(k,653)
1891 141174528 : lu(k,658) = lu(k,658) * lu(k,653)
1892 141174528 : lu(k,659) = lu(k,659) * lu(k,653)
1893 141174528 : lu(k,660) = lu(k,660) * lu(k,653)
1894 141174528 : lu(k,661) = lu(k,661) * lu(k,653)
1895 141174528 : lu(k,1397) = lu(k,1397) - lu(k,654) * lu(k,1395)
1896 141174528 : lu(k,1399) = - lu(k,655) * lu(k,1395)
1897 141174528 : lu(k,1401) = lu(k,1401) - lu(k,656) * lu(k,1395)
1898 141174528 : lu(k,1404) = lu(k,1404) - lu(k,657) * lu(k,1395)
1899 141174528 : lu(k,1405) = lu(k,1405) - lu(k,658) * lu(k,1395)
1900 141174528 : lu(k,1407) = lu(k,1407) - lu(k,659) * lu(k,1395)
1901 141174528 : lu(k,1410) = lu(k,1410) - lu(k,660) * lu(k,1395)
1902 141174528 : lu(k,1412) = lu(k,1412) - lu(k,661) * lu(k,1395)
1903 141174528 : lu(k,1560) = lu(k,1560) - lu(k,654) * lu(k,1555)
1904 141174528 : lu(k,1566) = - lu(k,655) * lu(k,1555)
1905 141174528 : lu(k,1569) = lu(k,1569) - lu(k,656) * lu(k,1555)
1906 141174528 : lu(k,1575) = lu(k,1575) - lu(k,657) * lu(k,1555)
1907 141174528 : lu(k,1576) = lu(k,1576) - lu(k,658) * lu(k,1555)
1908 141174528 : lu(k,1579) = lu(k,1579) - lu(k,659) * lu(k,1555)
1909 141174528 : lu(k,1584) = lu(k,1584) - lu(k,660) * lu(k,1555)
1910 141174528 : lu(k,1587) = lu(k,1587) - lu(k,661) * lu(k,1555)
1911 141174528 : lu(k,1777) = lu(k,1777) - lu(k,654) * lu(k,1755)
1912 141174528 : lu(k,1799) = lu(k,1799) - lu(k,655) * lu(k,1755)
1913 141174528 : lu(k,1812) = lu(k,1812) - lu(k,656) * lu(k,1755)
1914 141174528 : lu(k,1819) = lu(k,1819) - lu(k,657) * lu(k,1755)
1915 141174528 : lu(k,1820) = lu(k,1820) - lu(k,658) * lu(k,1755)
1916 141174528 : lu(k,1823) = lu(k,1823) - lu(k,659) * lu(k,1755)
1917 141174528 : lu(k,1828) = lu(k,1828) - lu(k,660) * lu(k,1755)
1918 141174528 : lu(k,1831) = lu(k,1831) - lu(k,661) * lu(k,1755)
1919 141174528 : lu(k,662) = 1._r8 / lu(k,662)
1920 141174528 : lu(k,663) = lu(k,663) * lu(k,662)
1921 141174528 : lu(k,664) = lu(k,664) * lu(k,662)
1922 141174528 : lu(k,665) = lu(k,665) * lu(k,662)
1923 141174528 : lu(k,666) = lu(k,666) * lu(k,662)
1924 141174528 : lu(k,667) = lu(k,667) * lu(k,662)
1925 141174528 : lu(k,1101) = lu(k,1101) - lu(k,663) * lu(k,1099)
1926 141174528 : lu(k,1106) = lu(k,1106) - lu(k,664) * lu(k,1099)
1927 141174528 : lu(k,1108) = lu(k,1108) - lu(k,665) * lu(k,1099)
1928 141174528 : lu(k,1109) = lu(k,1109) - lu(k,666) * lu(k,1099)
1929 141174528 : lu(k,1113) = lu(k,1113) - lu(k,667) * lu(k,1099)
1930 141174528 : lu(k,1179) = lu(k,1179) - lu(k,663) * lu(k,1176)
1931 141174528 : lu(k,1187) = - lu(k,664) * lu(k,1176)
1932 141174528 : lu(k,1189) = lu(k,1189) - lu(k,665) * lu(k,1176)
1933 141174528 : lu(k,1191) = lu(k,1191) - lu(k,666) * lu(k,1176)
1934 141174528 : lu(k,1195) = lu(k,1195) - lu(k,667) * lu(k,1176)
1935 141174528 : lu(k,1790) = lu(k,1790) - lu(k,663) * lu(k,1756)
1936 141174528 : lu(k,1817) = lu(k,1817) - lu(k,664) * lu(k,1756)
1937 141174528 : lu(k,1820) = lu(k,1820) - lu(k,665) * lu(k,1756)
1938 141174528 : lu(k,1823) = lu(k,1823) - lu(k,666) * lu(k,1756)
1939 141174528 : lu(k,1831) = lu(k,1831) - lu(k,667) * lu(k,1756)
1940 141174528 : lu(k,1920) = lu(k,1920) - lu(k,663) * lu(k,1901)
1941 141174528 : lu(k,1944) = lu(k,1944) - lu(k,664) * lu(k,1901)
1942 141174528 : lu(k,1947) = lu(k,1947) - lu(k,665) * lu(k,1901)
1943 141174528 : lu(k,1950) = lu(k,1950) - lu(k,666) * lu(k,1901)
1944 141174528 : lu(k,1958) = lu(k,1958) - lu(k,667) * lu(k,1901)
1945 141174528 : lu(k,1974) = lu(k,1974) - lu(k,663) * lu(k,1965)
1946 141174528 : lu(k,1996) = lu(k,1996) - lu(k,664) * lu(k,1965)
1947 141174528 : lu(k,1999) = lu(k,1999) - lu(k,665) * lu(k,1965)
1948 141174528 : lu(k,2002) = lu(k,2002) - lu(k,666) * lu(k,1965)
1949 141174528 : lu(k,2010) = lu(k,2010) - lu(k,667) * lu(k,1965)
1950 141174528 : lu(k,670) = 1._r8 / lu(k,670)
1951 141174528 : lu(k,671) = lu(k,671) * lu(k,670)
1952 141174528 : lu(k,672) = lu(k,672) * lu(k,670)
1953 141174528 : lu(k,673) = lu(k,673) * lu(k,670)
1954 141174528 : lu(k,674) = lu(k,674) * lu(k,670)
1955 141174528 : lu(k,675) = lu(k,675) * lu(k,670)
1956 141174528 : lu(k,1576) = lu(k,1576) - lu(k,671) * lu(k,1556)
1957 141174528 : lu(k,1579) = lu(k,1579) - lu(k,672) * lu(k,1556)
1958 141174528 : lu(k,1581) = lu(k,1581) - lu(k,673) * lu(k,1556)
1959 141174528 : lu(k,1586) = lu(k,1586) - lu(k,674) * lu(k,1556)
1960 141174528 : lu(k,1587) = lu(k,1587) - lu(k,675) * lu(k,1556)
1961 141174528 : lu(k,1820) = lu(k,1820) - lu(k,671) * lu(k,1757)
1962 141174528 : lu(k,1823) = lu(k,1823) - lu(k,672) * lu(k,1757)
1963 141174528 : lu(k,1825) = lu(k,1825) - lu(k,673) * lu(k,1757)
1964 141174528 : lu(k,1830) = lu(k,1830) - lu(k,674) * lu(k,1757)
1965 141174528 : lu(k,1831) = lu(k,1831) - lu(k,675) * lu(k,1757)
1966 141174528 : lu(k,1947) = lu(k,1947) - lu(k,671) * lu(k,1902)
1967 141174528 : lu(k,1950) = lu(k,1950) - lu(k,672) * lu(k,1902)
1968 141174528 : lu(k,1952) = lu(k,1952) - lu(k,673) * lu(k,1902)
1969 141174528 : lu(k,1957) = lu(k,1957) - lu(k,674) * lu(k,1902)
1970 141174528 : lu(k,1958) = lu(k,1958) - lu(k,675) * lu(k,1902)
1971 141174528 : lu(k,2182) = lu(k,2182) - lu(k,671) * lu(k,2144)
1972 141174528 : lu(k,2185) = lu(k,2185) - lu(k,672) * lu(k,2144)
1973 141174528 : lu(k,2187) = lu(k,2187) - lu(k,673) * lu(k,2144)
1974 141174528 : lu(k,2192) = lu(k,2192) - lu(k,674) * lu(k,2144)
1975 141174528 : lu(k,2193) = lu(k,2193) - lu(k,675) * lu(k,2144)
1976 141174528 : lu(k,2300) = lu(k,2300) - lu(k,671) * lu(k,2248)
1977 141174528 : lu(k,2303) = lu(k,2303) - lu(k,672) * lu(k,2248)
1978 141174528 : lu(k,2305) = lu(k,2305) - lu(k,673) * lu(k,2248)
1979 141174528 : lu(k,2310) = lu(k,2310) - lu(k,674) * lu(k,2248)
1980 141174528 : lu(k,2311) = lu(k,2311) - lu(k,675) * lu(k,2248)
1981 141174528 : lu(k,677) = 1._r8 / lu(k,677)
1982 141174528 : lu(k,678) = lu(k,678) * lu(k,677)
1983 141174528 : lu(k,679) = lu(k,679) * lu(k,677)
1984 141174528 : lu(k,680) = lu(k,680) * lu(k,677)
1985 141174528 : lu(k,681) = lu(k,681) * lu(k,677)
1986 141174528 : lu(k,682) = lu(k,682) * lu(k,677)
1987 141174528 : lu(k,683) = lu(k,683) * lu(k,677)
1988 141174528 : lu(k,684) = lu(k,684) * lu(k,677)
1989 141174528 : lu(k,685) = lu(k,685) * lu(k,677)
1990 141174528 : lu(k,686) = lu(k,686) * lu(k,677)
1991 141174528 : lu(k,958) = lu(k,958) - lu(k,678) * lu(k,956)
1992 141174528 : lu(k,959) = lu(k,959) - lu(k,679) * lu(k,956)
1993 141174528 : lu(k,960) = lu(k,960) - lu(k,680) * lu(k,956)
1994 141174528 : lu(k,961) = lu(k,961) - lu(k,681) * lu(k,956)
1995 141174528 : lu(k,962) = lu(k,962) - lu(k,682) * lu(k,956)
1996 141174528 : lu(k,963) = lu(k,963) - lu(k,683) * lu(k,956)
1997 141174528 : lu(k,964) = lu(k,964) - lu(k,684) * lu(k,956)
1998 141174528 : lu(k,966) = lu(k,966) - lu(k,685) * lu(k,956)
1999 141174528 : lu(k,969) = lu(k,969) - lu(k,686) * lu(k,956)
2000 141174528 : lu(k,1760) = lu(k,1760) - lu(k,678) * lu(k,1758)
2001 141174528 : lu(k,1776) = lu(k,1776) - lu(k,679) * lu(k,1758)
2002 141174528 : lu(k,1784) = lu(k,1784) - lu(k,680) * lu(k,1758)
2003 141174528 : lu(k,1786) = lu(k,1786) - lu(k,681) * lu(k,1758)
2004 141174528 : lu(k,1793) = lu(k,1793) - lu(k,682) * lu(k,1758)
2005 141174528 : lu(k,1813) = lu(k,1813) - lu(k,683) * lu(k,1758)
2006 141174528 : lu(k,1819) = lu(k,1819) - lu(k,684) * lu(k,1758)
2007 141174528 : lu(k,1823) = lu(k,1823) - lu(k,685) * lu(k,1758)
2008 141174528 : lu(k,1831) = lu(k,1831) - lu(k,686) * lu(k,1758)
2009 141174528 : lu(k,2250) = lu(k,2250) - lu(k,678) * lu(k,2249)
2010 141174528 : lu(k,2266) = lu(k,2266) - lu(k,679) * lu(k,2249)
2011 141174528 : lu(k,2270) = lu(k,2270) - lu(k,680) * lu(k,2249)
2012 141174528 : lu(k,2271) = lu(k,2271) - lu(k,681) * lu(k,2249)
2013 141174528 : lu(k,2275) = lu(k,2275) - lu(k,682) * lu(k,2249)
2014 141174528 : lu(k,2293) = lu(k,2293) - lu(k,683) * lu(k,2249)
2015 141174528 : lu(k,2299) = lu(k,2299) - lu(k,684) * lu(k,2249)
2016 141174528 : lu(k,2303) = lu(k,2303) - lu(k,685) * lu(k,2249)
2017 145586232 : lu(k,2311) = lu(k,2311) - lu(k,686) * lu(k,2249)
2018 : end do
2019 4411704 : end subroutine lu_fac14
2020 4411704 : subroutine lu_fac15( avec_len, lu )
2021 : use chem_mods, only : nzcnt
2022 : use shr_kind_mod, only : r8 => shr_kind_r8
2023 : implicit none
2024 : !-----------------------------------------------------------------------
2025 : ! ... dummy args
2026 : !-----------------------------------------------------------------------
2027 : integer, intent(in) :: avec_len
2028 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2029 : !-----------------------------------------------------------------------
2030 : ! ... local variables
2031 : !-----------------------------------------------------------------------
2032 : integer :: k
2033 145586232 : do k = 1,avec_len
2034 141174528 : lu(k,688) = 1._r8 / lu(k,688)
2035 141174528 : lu(k,689) = lu(k,689) * lu(k,688)
2036 141174528 : lu(k,690) = lu(k,690) * lu(k,688)
2037 141174528 : lu(k,691) = lu(k,691) * lu(k,688)
2038 141174528 : lu(k,692) = lu(k,692) * lu(k,688)
2039 141174528 : lu(k,693) = lu(k,693) * lu(k,688)
2040 141174528 : lu(k,694) = lu(k,694) * lu(k,688)
2041 141174528 : lu(k,695) = lu(k,695) * lu(k,688)
2042 141174528 : lu(k,696) = lu(k,696) * lu(k,688)
2043 141174528 : lu(k,697) = lu(k,697) * lu(k,688)
2044 141174528 : lu(k,958) = lu(k,958) - lu(k,689) * lu(k,957)
2045 141174528 : lu(k,959) = lu(k,959) - lu(k,690) * lu(k,957)
2046 141174528 : lu(k,961) = lu(k,961) - lu(k,691) * lu(k,957)
2047 141174528 : lu(k,962) = lu(k,962) - lu(k,692) * lu(k,957)
2048 141174528 : lu(k,963) = lu(k,963) - lu(k,693) * lu(k,957)
2049 141174528 : lu(k,964) = lu(k,964) - lu(k,694) * lu(k,957)
2050 141174528 : lu(k,965) = lu(k,965) - lu(k,695) * lu(k,957)
2051 141174528 : lu(k,966) = lu(k,966) - lu(k,696) * lu(k,957)
2052 141174528 : lu(k,969) = lu(k,969) - lu(k,697) * lu(k,957)
2053 141174528 : lu(k,1760) = lu(k,1760) - lu(k,689) * lu(k,1759)
2054 141174528 : lu(k,1776) = lu(k,1776) - lu(k,690) * lu(k,1759)
2055 141174528 : lu(k,1786) = lu(k,1786) - lu(k,691) * lu(k,1759)
2056 141174528 : lu(k,1793) = lu(k,1793) - lu(k,692) * lu(k,1759)
2057 141174528 : lu(k,1813) = lu(k,1813) - lu(k,693) * lu(k,1759)
2058 141174528 : lu(k,1819) = lu(k,1819) - lu(k,694) * lu(k,1759)
2059 141174528 : lu(k,1820) = lu(k,1820) - lu(k,695) * lu(k,1759)
2060 141174528 : lu(k,1823) = lu(k,1823) - lu(k,696) * lu(k,1759)
2061 141174528 : lu(k,1831) = lu(k,1831) - lu(k,697) * lu(k,1759)
2062 141174528 : lu(k,1904) = lu(k,1904) - lu(k,689) * lu(k,1903)
2063 141174528 : lu(k,1912) = lu(k,1912) - lu(k,690) * lu(k,1903)
2064 141174528 : lu(k,1917) = lu(k,1917) - lu(k,691) * lu(k,1903)
2065 141174528 : lu(k,1922) = lu(k,1922) - lu(k,692) * lu(k,1903)
2066 141174528 : lu(k,1941) = lu(k,1941) - lu(k,693) * lu(k,1903)
2067 141174528 : lu(k,1946) = lu(k,1946) - lu(k,694) * lu(k,1903)
2068 141174528 : lu(k,1947) = lu(k,1947) - lu(k,695) * lu(k,1903)
2069 141174528 : lu(k,1950) = lu(k,1950) - lu(k,696) * lu(k,1903)
2070 141174528 : lu(k,1958) = lu(k,1958) - lu(k,697) * lu(k,1903)
2071 141174528 : lu(k,699) = 1._r8 / lu(k,699)
2072 141174528 : lu(k,700) = lu(k,700) * lu(k,699)
2073 141174528 : lu(k,701) = lu(k,701) * lu(k,699)
2074 141174528 : lu(k,702) = lu(k,702) * lu(k,699)
2075 141174528 : lu(k,703) = lu(k,703) * lu(k,699)
2076 141174528 : lu(k,704) = lu(k,704) * lu(k,699)
2077 141174528 : lu(k,705) = lu(k,705) * lu(k,699)
2078 141174528 : lu(k,962) = lu(k,962) - lu(k,700) * lu(k,958)
2079 141174528 : lu(k,963) = lu(k,963) - lu(k,701) * lu(k,958)
2080 141174528 : lu(k,965) = lu(k,965) - lu(k,702) * lu(k,958)
2081 141174528 : lu(k,966) = lu(k,966) - lu(k,703) * lu(k,958)
2082 141174528 : lu(k,967) = lu(k,967) - lu(k,704) * lu(k,958)
2083 141174528 : lu(k,969) = lu(k,969) - lu(k,705) * lu(k,958)
2084 141174528 : lu(k,1793) = lu(k,1793) - lu(k,700) * lu(k,1760)
2085 141174528 : lu(k,1813) = lu(k,1813) - lu(k,701) * lu(k,1760)
2086 141174528 : lu(k,1820) = lu(k,1820) - lu(k,702) * lu(k,1760)
2087 141174528 : lu(k,1823) = lu(k,1823) - lu(k,703) * lu(k,1760)
2088 141174528 : lu(k,1825) = lu(k,1825) - lu(k,704) * lu(k,1760)
2089 141174528 : lu(k,1831) = lu(k,1831) - lu(k,705) * lu(k,1760)
2090 141174528 : lu(k,1922) = lu(k,1922) - lu(k,700) * lu(k,1904)
2091 141174528 : lu(k,1941) = lu(k,1941) - lu(k,701) * lu(k,1904)
2092 141174528 : lu(k,1947) = lu(k,1947) - lu(k,702) * lu(k,1904)
2093 141174528 : lu(k,1950) = lu(k,1950) - lu(k,703) * lu(k,1904)
2094 141174528 : lu(k,1952) = lu(k,1952) - lu(k,704) * lu(k,1904)
2095 141174528 : lu(k,1958) = lu(k,1958) - lu(k,705) * lu(k,1904)
2096 141174528 : lu(k,2275) = lu(k,2275) - lu(k,700) * lu(k,2250)
2097 141174528 : lu(k,2293) = lu(k,2293) - lu(k,701) * lu(k,2250)
2098 141174528 : lu(k,2300) = lu(k,2300) - lu(k,702) * lu(k,2250)
2099 141174528 : lu(k,2303) = lu(k,2303) - lu(k,703) * lu(k,2250)
2100 141174528 : lu(k,2305) = lu(k,2305) - lu(k,704) * lu(k,2250)
2101 141174528 : lu(k,2311) = lu(k,2311) - lu(k,705) * lu(k,2250)
2102 141174528 : lu(k,706) = 1._r8 / lu(k,706)
2103 141174528 : lu(k,707) = lu(k,707) * lu(k,706)
2104 141174528 : lu(k,708) = lu(k,708) * lu(k,706)
2105 141174528 : lu(k,709) = lu(k,709) * lu(k,706)
2106 141174528 : lu(k,710) = lu(k,710) * lu(k,706)
2107 141174528 : lu(k,711) = lu(k,711) * lu(k,706)
2108 141174528 : lu(k,712) = lu(k,712) * lu(k,706)
2109 141174528 : lu(k,713) = lu(k,713) * lu(k,706)
2110 141174528 : lu(k,714) = lu(k,714) * lu(k,706)
2111 141174528 : lu(k,715) = lu(k,715) * lu(k,706)
2112 141174528 : lu(k,1158) = lu(k,1158) - lu(k,707) * lu(k,1156)
2113 141174528 : lu(k,1159) = lu(k,1159) - lu(k,708) * lu(k,1156)
2114 141174528 : lu(k,1160) = lu(k,1160) - lu(k,709) * lu(k,1156)
2115 141174528 : lu(k,1161) = lu(k,1161) - lu(k,710) * lu(k,1156)
2116 141174528 : lu(k,1162) = lu(k,1162) - lu(k,711) * lu(k,1156)
2117 141174528 : lu(k,1163) = lu(k,1163) - lu(k,712) * lu(k,1156)
2118 141174528 : lu(k,1167) = lu(k,1167) - lu(k,713) * lu(k,1156)
2119 141174528 : lu(k,1170) = - lu(k,714) * lu(k,1156)
2120 141174528 : lu(k,1173) = lu(k,1173) - lu(k,715) * lu(k,1156)
2121 141174528 : lu(k,1777) = lu(k,1777) - lu(k,707) * lu(k,1761)
2122 141174528 : lu(k,1786) = lu(k,1786) - lu(k,708) * lu(k,1761)
2123 141174528 : lu(k,1794) = lu(k,1794) - lu(k,709) * lu(k,1761)
2124 141174528 : lu(k,1796) = lu(k,1796) - lu(k,710) * lu(k,1761)
2125 141174528 : lu(k,1797) = lu(k,1797) - lu(k,711) * lu(k,1761)
2126 141174528 : lu(k,1800) = lu(k,1800) - lu(k,712) * lu(k,1761)
2127 141174528 : lu(k,1819) = lu(k,1819) - lu(k,713) * lu(k,1761)
2128 141174528 : lu(k,1823) = lu(k,1823) - lu(k,714) * lu(k,1761)
2129 141174528 : lu(k,1831) = lu(k,1831) - lu(k,715) * lu(k,1761)
2130 141174528 : lu(k,2267) = lu(k,2267) - lu(k,707) * lu(k,2251)
2131 141174528 : lu(k,2271) = lu(k,2271) - lu(k,708) * lu(k,2251)
2132 141174528 : lu(k,2276) = lu(k,2276) - lu(k,709) * lu(k,2251)
2133 141174528 : lu(k,2278) = - lu(k,710) * lu(k,2251)
2134 141174528 : lu(k,2279) = lu(k,2279) - lu(k,711) * lu(k,2251)
2135 141174528 : lu(k,2281) = lu(k,2281) - lu(k,712) * lu(k,2251)
2136 141174528 : lu(k,2299) = lu(k,2299) - lu(k,713) * lu(k,2251)
2137 141174528 : lu(k,2303) = lu(k,2303) - lu(k,714) * lu(k,2251)
2138 141174528 : lu(k,2311) = lu(k,2311) - lu(k,715) * lu(k,2251)
2139 141174528 : lu(k,719) = 1._r8 / lu(k,719)
2140 141174528 : lu(k,720) = lu(k,720) * lu(k,719)
2141 141174528 : lu(k,721) = lu(k,721) * lu(k,719)
2142 141174528 : lu(k,722) = lu(k,722) * lu(k,719)
2143 141174528 : lu(k,723) = lu(k,723) * lu(k,719)
2144 141174528 : lu(k,724) = lu(k,724) * lu(k,719)
2145 141174528 : lu(k,725) = lu(k,725) * lu(k,719)
2146 141174528 : lu(k,726) = lu(k,726) * lu(k,719)
2147 141174528 : lu(k,727) = lu(k,727) * lu(k,719)
2148 141174528 : lu(k,728) = lu(k,728) * lu(k,719)
2149 141174528 : lu(k,768) = lu(k,768) - lu(k,720) * lu(k,767)
2150 141174528 : lu(k,769) = lu(k,769) - lu(k,721) * lu(k,767)
2151 141174528 : lu(k,770) = lu(k,770) - lu(k,722) * lu(k,767)
2152 141174528 : lu(k,771) = lu(k,771) - lu(k,723) * lu(k,767)
2153 141174528 : lu(k,772) = lu(k,772) - lu(k,724) * lu(k,767)
2154 141174528 : lu(k,773) = lu(k,773) - lu(k,725) * lu(k,767)
2155 141174528 : lu(k,774) = lu(k,774) - lu(k,726) * lu(k,767)
2156 141174528 : lu(k,776) = - lu(k,727) * lu(k,767)
2157 141174528 : lu(k,778) = lu(k,778) - lu(k,728) * lu(k,767)
2158 141174528 : lu(k,1766) = lu(k,1766) - lu(k,720) * lu(k,1762)
2159 141174528 : lu(k,1767) = lu(k,1767) - lu(k,721) * lu(k,1762)
2160 141174528 : lu(k,1770) = - lu(k,722) * lu(k,1762)
2161 141174528 : lu(k,1782) = lu(k,1782) - lu(k,723) * lu(k,1762)
2162 141174528 : lu(k,1788) = lu(k,1788) - lu(k,724) * lu(k,1762)
2163 141174528 : lu(k,1797) = lu(k,1797) - lu(k,725) * lu(k,1762)
2164 141174528 : lu(k,1806) = lu(k,1806) - lu(k,726) * lu(k,1762)
2165 141174528 : lu(k,1823) = lu(k,1823) - lu(k,727) * lu(k,1762)
2166 141174528 : lu(k,1831) = lu(k,1831) - lu(k,728) * lu(k,1762)
2167 141174528 : lu(k,2256) = lu(k,2256) - lu(k,720) * lu(k,2252)
2168 141174528 : lu(k,2257) = lu(k,2257) - lu(k,721) * lu(k,2252)
2169 141174528 : lu(k,2260) = lu(k,2260) - lu(k,722) * lu(k,2252)
2170 141174528 : lu(k,2269) = lu(k,2269) - lu(k,723) * lu(k,2252)
2171 141174528 : lu(k,2273) = lu(k,2273) - lu(k,724) * lu(k,2252)
2172 141174528 : lu(k,2279) = lu(k,2279) - lu(k,725) * lu(k,2252)
2173 141174528 : lu(k,2287) = lu(k,2287) - lu(k,726) * lu(k,2252)
2174 141174528 : lu(k,2303) = lu(k,2303) - lu(k,727) * lu(k,2252)
2175 141174528 : lu(k,2311) = lu(k,2311) - lu(k,728) * lu(k,2252)
2176 141174528 : lu(k,729) = 1._r8 / lu(k,729)
2177 141174528 : lu(k,730) = lu(k,730) * lu(k,729)
2178 141174528 : lu(k,731) = lu(k,731) * lu(k,729)
2179 141174528 : lu(k,732) = lu(k,732) * lu(k,729)
2180 141174528 : lu(k,733) = lu(k,733) * lu(k,729)
2181 141174528 : lu(k,1045) = lu(k,1045) - lu(k,730) * lu(k,1043)
2182 141174528 : lu(k,1058) = lu(k,1058) - lu(k,731) * lu(k,1043)
2183 141174528 : lu(k,1060) = lu(k,1060) - lu(k,732) * lu(k,1043)
2184 141174528 : lu(k,1064) = - lu(k,733) * lu(k,1043)
2185 141174528 : lu(k,1397) = lu(k,1397) - lu(k,730) * lu(k,1396)
2186 141174528 : lu(k,1407) = lu(k,1407) - lu(k,731) * lu(k,1396)
2187 141174528 : lu(k,1409) = lu(k,1409) - lu(k,732) * lu(k,1396)
2188 141174528 : lu(k,1413) = lu(k,1413) - lu(k,733) * lu(k,1396)
2189 141174528 : lu(k,1418) = lu(k,1418) - lu(k,730) * lu(k,1417)
2190 141174528 : lu(k,1439) = lu(k,1439) - lu(k,731) * lu(k,1417)
2191 141174528 : lu(k,1441) = lu(k,1441) - lu(k,732) * lu(k,1417)
2192 141174528 : lu(k,1445) = lu(k,1445) - lu(k,733) * lu(k,1417)
2193 141174528 : lu(k,1777) = lu(k,1777) - lu(k,730) * lu(k,1763)
2194 141174528 : lu(k,1823) = lu(k,1823) - lu(k,731) * lu(k,1763)
2195 141174528 : lu(k,1826) = lu(k,1826) - lu(k,732) * lu(k,1763)
2196 141174528 : lu(k,1833) = lu(k,1833) - lu(k,733) * lu(k,1763)
2197 141174528 : lu(k,1970) = lu(k,1970) - lu(k,730) * lu(k,1966)
2198 141174528 : lu(k,2002) = lu(k,2002) - lu(k,731) * lu(k,1966)
2199 141174528 : lu(k,2005) = lu(k,2005) - lu(k,732) * lu(k,1966)
2200 141174528 : lu(k,2012) = lu(k,2012) - lu(k,733) * lu(k,1966)
2201 141174528 : lu(k,2147) = lu(k,2147) - lu(k,730) * lu(k,2145)
2202 141174528 : lu(k,2185) = lu(k,2185) - lu(k,731) * lu(k,2145)
2203 141174528 : lu(k,2188) = lu(k,2188) - lu(k,732) * lu(k,2145)
2204 141174528 : lu(k,2195) = - lu(k,733) * lu(k,2145)
2205 141174528 : lu(k,2267) = lu(k,2267) - lu(k,730) * lu(k,2253)
2206 141174528 : lu(k,2303) = lu(k,2303) - lu(k,731) * lu(k,2253)
2207 141174528 : lu(k,2306) = lu(k,2306) - lu(k,732) * lu(k,2253)
2208 141174528 : lu(k,2313) = lu(k,2313) - lu(k,733) * lu(k,2253)
2209 141174528 : lu(k,738) = 1._r8 / lu(k,738)
2210 141174528 : lu(k,739) = lu(k,739) * lu(k,738)
2211 141174528 : lu(k,740) = lu(k,740) * lu(k,738)
2212 141174528 : lu(k,741) = lu(k,741) * lu(k,738)
2213 141174528 : lu(k,742) = lu(k,742) * lu(k,738)
2214 141174528 : lu(k,743) = lu(k,743) * lu(k,738)
2215 141174528 : lu(k,744) = lu(k,744) * lu(k,738)
2216 141174528 : lu(k,745) = lu(k,745) * lu(k,738)
2217 141174528 : lu(k,746) = lu(k,746) * lu(k,738)
2218 141174528 : lu(k,747) = lu(k,747) * lu(k,738)
2219 141174528 : lu(k,748) = lu(k,748) * lu(k,738)
2220 141174528 : lu(k,792) = lu(k,792) - lu(k,739) * lu(k,791)
2221 141174528 : lu(k,793) = lu(k,793) - lu(k,740) * lu(k,791)
2222 141174528 : lu(k,794) = lu(k,794) - lu(k,741) * lu(k,791)
2223 141174528 : lu(k,795) = lu(k,795) - lu(k,742) * lu(k,791)
2224 141174528 : lu(k,796) = lu(k,796) - lu(k,743) * lu(k,791)
2225 141174528 : lu(k,797) = lu(k,797) - lu(k,744) * lu(k,791)
2226 141174528 : lu(k,798) = lu(k,798) - lu(k,745) * lu(k,791)
2227 141174528 : lu(k,799) = lu(k,799) - lu(k,746) * lu(k,791)
2228 141174528 : lu(k,801) = - lu(k,747) * lu(k,791)
2229 141174528 : lu(k,803) = lu(k,803) - lu(k,748) * lu(k,791)
2230 141174528 : lu(k,1766) = lu(k,1766) - lu(k,739) * lu(k,1764)
2231 141174528 : lu(k,1769) = lu(k,1769) - lu(k,740) * lu(k,1764)
2232 141174528 : lu(k,1770) = lu(k,1770) - lu(k,741) * lu(k,1764)
2233 141174528 : lu(k,1782) = lu(k,1782) - lu(k,742) * lu(k,1764)
2234 141174528 : lu(k,1788) = lu(k,1788) - lu(k,743) * lu(k,1764)
2235 141174528 : lu(k,1797) = lu(k,1797) - lu(k,744) * lu(k,1764)
2236 141174528 : lu(k,1806) = lu(k,1806) - lu(k,745) * lu(k,1764)
2237 141174528 : lu(k,1813) = lu(k,1813) - lu(k,746) * lu(k,1764)
2238 141174528 : lu(k,1823) = lu(k,1823) - lu(k,747) * lu(k,1764)
2239 141174528 : lu(k,1831) = lu(k,1831) - lu(k,748) * lu(k,1764)
2240 141174528 : lu(k,2256) = lu(k,2256) - lu(k,739) * lu(k,2254)
2241 141174528 : lu(k,2259) = lu(k,2259) - lu(k,740) * lu(k,2254)
2242 141174528 : lu(k,2260) = lu(k,2260) - lu(k,741) * lu(k,2254)
2243 141174528 : lu(k,2269) = lu(k,2269) - lu(k,742) * lu(k,2254)
2244 141174528 : lu(k,2273) = lu(k,2273) - lu(k,743) * lu(k,2254)
2245 141174528 : lu(k,2279) = lu(k,2279) - lu(k,744) * lu(k,2254)
2246 141174528 : lu(k,2287) = lu(k,2287) - lu(k,745) * lu(k,2254)
2247 141174528 : lu(k,2293) = lu(k,2293) - lu(k,746) * lu(k,2254)
2248 141174528 : lu(k,2303) = lu(k,2303) - lu(k,747) * lu(k,2254)
2249 145586232 : lu(k,2311) = lu(k,2311) - lu(k,748) * lu(k,2254)
2250 : end do
2251 4411704 : end subroutine lu_fac15
2252 4411704 : subroutine lu_fac16( avec_len, lu )
2253 : use chem_mods, only : nzcnt
2254 : use shr_kind_mod, only : r8 => shr_kind_r8
2255 : implicit none
2256 : !-----------------------------------------------------------------------
2257 : ! ... dummy args
2258 : !-----------------------------------------------------------------------
2259 : integer, intent(in) :: avec_len
2260 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2261 : !-----------------------------------------------------------------------
2262 : ! ... local variables
2263 : !-----------------------------------------------------------------------
2264 : integer :: k
2265 145586232 : do k = 1,avec_len
2266 141174528 : lu(k,751) = 1._r8 / lu(k,751)
2267 141174528 : lu(k,752) = lu(k,752) * lu(k,751)
2268 141174528 : lu(k,753) = lu(k,753) * lu(k,751)
2269 141174528 : lu(k,754) = lu(k,754) * lu(k,751)
2270 141174528 : lu(k,755) = lu(k,755) * lu(k,751)
2271 141174528 : lu(k,756) = lu(k,756) * lu(k,751)
2272 141174528 : lu(k,757) = lu(k,757) * lu(k,751)
2273 141174528 : lu(k,1794) = lu(k,1794) - lu(k,752) * lu(k,1765)
2274 141174528 : lu(k,1819) = lu(k,1819) - lu(k,753) * lu(k,1765)
2275 141174528 : lu(k,1820) = lu(k,1820) - lu(k,754) * lu(k,1765)
2276 141174528 : lu(k,1823) = lu(k,1823) - lu(k,755) * lu(k,1765)
2277 141174528 : lu(k,1825) = lu(k,1825) - lu(k,756) * lu(k,1765)
2278 141174528 : lu(k,1831) = lu(k,1831) - lu(k,757) * lu(k,1765)
2279 141174528 : lu(k,1923) = lu(k,1923) - lu(k,752) * lu(k,1905)
2280 141174528 : lu(k,1946) = lu(k,1946) - lu(k,753) * lu(k,1905)
2281 141174528 : lu(k,1947) = lu(k,1947) - lu(k,754) * lu(k,1905)
2282 141174528 : lu(k,1950) = lu(k,1950) - lu(k,755) * lu(k,1905)
2283 141174528 : lu(k,1952) = lu(k,1952) - lu(k,756) * lu(k,1905)
2284 141174528 : lu(k,1958) = lu(k,1958) - lu(k,757) * lu(k,1905)
2285 141174528 : lu(k,2111) = - lu(k,752) * lu(k,2104)
2286 141174528 : lu(k,2119) = lu(k,2119) - lu(k,753) * lu(k,2104)
2287 141174528 : lu(k,2120) = - lu(k,754) * lu(k,2104)
2288 141174528 : lu(k,2123) = lu(k,2123) - lu(k,755) * lu(k,2104)
2289 141174528 : lu(k,2125) = - lu(k,756) * lu(k,2104)
2290 141174528 : lu(k,2131) = lu(k,2131) - lu(k,757) * lu(k,2104)
2291 141174528 : lu(k,2159) = - lu(k,752) * lu(k,2146)
2292 141174528 : lu(k,2181) = lu(k,2181) - lu(k,753) * lu(k,2146)
2293 141174528 : lu(k,2182) = lu(k,2182) - lu(k,754) * lu(k,2146)
2294 141174528 : lu(k,2185) = lu(k,2185) - lu(k,755) * lu(k,2146)
2295 141174528 : lu(k,2187) = lu(k,2187) - lu(k,756) * lu(k,2146)
2296 141174528 : lu(k,2193) = lu(k,2193) - lu(k,757) * lu(k,2146)
2297 141174528 : lu(k,2276) = lu(k,2276) - lu(k,752) * lu(k,2255)
2298 141174528 : lu(k,2299) = lu(k,2299) - lu(k,753) * lu(k,2255)
2299 141174528 : lu(k,2300) = lu(k,2300) - lu(k,754) * lu(k,2255)
2300 141174528 : lu(k,2303) = lu(k,2303) - lu(k,755) * lu(k,2255)
2301 141174528 : lu(k,2305) = lu(k,2305) - lu(k,756) * lu(k,2255)
2302 141174528 : lu(k,2311) = lu(k,2311) - lu(k,757) * lu(k,2255)
2303 141174528 : lu(k,758) = 1._r8 / lu(k,758)
2304 141174528 : lu(k,759) = lu(k,759) * lu(k,758)
2305 141174528 : lu(k,760) = lu(k,760) * lu(k,758)
2306 141174528 : lu(k,761) = lu(k,761) * lu(k,758)
2307 141174528 : lu(k,762) = lu(k,762) * lu(k,758)
2308 141174528 : lu(k,763) = lu(k,763) * lu(k,758)
2309 141174528 : lu(k,772) = lu(k,772) - lu(k,759) * lu(k,768)
2310 141174528 : lu(k,773) = lu(k,773) - lu(k,760) * lu(k,768)
2311 141174528 : lu(k,775) = lu(k,775) - lu(k,761) * lu(k,768)
2312 141174528 : lu(k,777) = lu(k,777) - lu(k,762) * lu(k,768)
2313 141174528 : lu(k,778) = lu(k,778) - lu(k,763) * lu(k,768)
2314 141174528 : lu(k,796) = lu(k,796) - lu(k,759) * lu(k,792)
2315 141174528 : lu(k,797) = lu(k,797) - lu(k,760) * lu(k,792)
2316 141174528 : lu(k,800) = lu(k,800) - lu(k,761) * lu(k,792)
2317 141174528 : lu(k,802) = lu(k,802) - lu(k,762) * lu(k,792)
2318 141174528 : lu(k,803) = lu(k,803) - lu(k,763) * lu(k,792)
2319 141174528 : lu(k,1564) = - lu(k,759) * lu(k,1557)
2320 141174528 : lu(k,1565) = - lu(k,760) * lu(k,1557)
2321 141174528 : lu(k,1576) = lu(k,1576) - lu(k,761) * lu(k,1557)
2322 141174528 : lu(k,1581) = lu(k,1581) - lu(k,762) * lu(k,1557)
2323 141174528 : lu(k,1587) = lu(k,1587) - lu(k,763) * lu(k,1557)
2324 141174528 : lu(k,1788) = lu(k,1788) - lu(k,759) * lu(k,1766)
2325 141174528 : lu(k,1797) = lu(k,1797) - lu(k,760) * lu(k,1766)
2326 141174528 : lu(k,1820) = lu(k,1820) - lu(k,761) * lu(k,1766)
2327 141174528 : lu(k,1825) = lu(k,1825) - lu(k,762) * lu(k,1766)
2328 141174528 : lu(k,1831) = lu(k,1831) - lu(k,763) * lu(k,1766)
2329 141174528 : lu(k,1919) = lu(k,1919) - lu(k,759) * lu(k,1906)
2330 141174528 : lu(k,1926) = lu(k,1926) - lu(k,760) * lu(k,1906)
2331 141174528 : lu(k,1947) = lu(k,1947) - lu(k,761) * lu(k,1906)
2332 141174528 : lu(k,1952) = lu(k,1952) - lu(k,762) * lu(k,1906)
2333 141174528 : lu(k,1958) = lu(k,1958) - lu(k,763) * lu(k,1906)
2334 141174528 : lu(k,2273) = lu(k,2273) - lu(k,759) * lu(k,2256)
2335 141174528 : lu(k,2279) = lu(k,2279) - lu(k,760) * lu(k,2256)
2336 141174528 : lu(k,2300) = lu(k,2300) - lu(k,761) * lu(k,2256)
2337 141174528 : lu(k,2305) = lu(k,2305) - lu(k,762) * lu(k,2256)
2338 141174528 : lu(k,2311) = lu(k,2311) - lu(k,763) * lu(k,2256)
2339 141174528 : lu(k,769) = 1._r8 / lu(k,769)
2340 141174528 : lu(k,770) = lu(k,770) * lu(k,769)
2341 141174528 : lu(k,771) = lu(k,771) * lu(k,769)
2342 141174528 : lu(k,772) = lu(k,772) * lu(k,769)
2343 141174528 : lu(k,773) = lu(k,773) * lu(k,769)
2344 141174528 : lu(k,774) = lu(k,774) * lu(k,769)
2345 141174528 : lu(k,775) = lu(k,775) * lu(k,769)
2346 141174528 : lu(k,776) = lu(k,776) * lu(k,769)
2347 141174528 : lu(k,777) = lu(k,777) * lu(k,769)
2348 141174528 : lu(k,778) = lu(k,778) * lu(k,769)
2349 141174528 : lu(k,1770) = lu(k,1770) - lu(k,770) * lu(k,1767)
2350 141174528 : lu(k,1782) = lu(k,1782) - lu(k,771) * lu(k,1767)
2351 141174528 : lu(k,1788) = lu(k,1788) - lu(k,772) * lu(k,1767)
2352 141174528 : lu(k,1797) = lu(k,1797) - lu(k,773) * lu(k,1767)
2353 141174528 : lu(k,1806) = lu(k,1806) - lu(k,774) * lu(k,1767)
2354 141174528 : lu(k,1820) = lu(k,1820) - lu(k,775) * lu(k,1767)
2355 141174528 : lu(k,1823) = lu(k,1823) - lu(k,776) * lu(k,1767)
2356 141174528 : lu(k,1825) = lu(k,1825) - lu(k,777) * lu(k,1767)
2357 141174528 : lu(k,1831) = lu(k,1831) - lu(k,778) * lu(k,1767)
2358 141174528 : lu(k,1909) = lu(k,1909) - lu(k,770) * lu(k,1907)
2359 141174528 : lu(k,1915) = lu(k,1915) - lu(k,771) * lu(k,1907)
2360 141174528 : lu(k,1919) = lu(k,1919) - lu(k,772) * lu(k,1907)
2361 141174528 : lu(k,1926) = lu(k,1926) - lu(k,773) * lu(k,1907)
2362 141174528 : lu(k,1935) = lu(k,1935) - lu(k,774) * lu(k,1907)
2363 141174528 : lu(k,1947) = lu(k,1947) - lu(k,775) * lu(k,1907)
2364 141174528 : lu(k,1950) = lu(k,1950) - lu(k,776) * lu(k,1907)
2365 141174528 : lu(k,1952) = lu(k,1952) - lu(k,777) * lu(k,1907)
2366 141174528 : lu(k,1958) = lu(k,1958) - lu(k,778) * lu(k,1907)
2367 141174528 : lu(k,2260) = lu(k,2260) - lu(k,770) * lu(k,2257)
2368 141174528 : lu(k,2269) = lu(k,2269) - lu(k,771) * lu(k,2257)
2369 141174528 : lu(k,2273) = lu(k,2273) - lu(k,772) * lu(k,2257)
2370 141174528 : lu(k,2279) = lu(k,2279) - lu(k,773) * lu(k,2257)
2371 141174528 : lu(k,2287) = lu(k,2287) - lu(k,774) * lu(k,2257)
2372 141174528 : lu(k,2300) = lu(k,2300) - lu(k,775) * lu(k,2257)
2373 141174528 : lu(k,2303) = lu(k,2303) - lu(k,776) * lu(k,2257)
2374 141174528 : lu(k,2305) = lu(k,2305) - lu(k,777) * lu(k,2257)
2375 141174528 : lu(k,2311) = lu(k,2311) - lu(k,778) * lu(k,2257)
2376 141174528 : lu(k,780) = 1._r8 / lu(k,780)
2377 141174528 : lu(k,781) = lu(k,781) * lu(k,780)
2378 141174528 : lu(k,782) = lu(k,782) * lu(k,780)
2379 141174528 : lu(k,783) = lu(k,783) * lu(k,780)
2380 141174528 : lu(k,784) = lu(k,784) * lu(k,780)
2381 141174528 : lu(k,785) = lu(k,785) * lu(k,780)
2382 141174528 : lu(k,786) = lu(k,786) * lu(k,780)
2383 141174528 : lu(k,1236) = - lu(k,781) * lu(k,1230)
2384 141174528 : lu(k,1238) = - lu(k,782) * lu(k,1230)
2385 141174528 : lu(k,1240) = - lu(k,783) * lu(k,1230)
2386 141174528 : lu(k,1243) = lu(k,1243) - lu(k,784) * lu(k,1230)
2387 141174528 : lu(k,1246) = lu(k,1246) - lu(k,785) * lu(k,1230)
2388 141174528 : lu(k,1250) = lu(k,1250) - lu(k,786) * lu(k,1230)
2389 141174528 : lu(k,1298) = - lu(k,781) * lu(k,1290)
2390 141174528 : lu(k,1299) = lu(k,1299) - lu(k,782) * lu(k,1290)
2391 141174528 : lu(k,1303) = lu(k,1303) - lu(k,783) * lu(k,1290)
2392 141174528 : lu(k,1307) = lu(k,1307) - lu(k,784) * lu(k,1290)
2393 141174528 : lu(k,1310) = lu(k,1310) - lu(k,785) * lu(k,1290)
2394 141174528 : lu(k,1315) = lu(k,1315) - lu(k,786) * lu(k,1290)
2395 141174528 : lu(k,1331) = lu(k,1331) - lu(k,781) * lu(k,1321)
2396 141174528 : lu(k,1332) = - lu(k,782) * lu(k,1321)
2397 141174528 : lu(k,1336) = - lu(k,783) * lu(k,1321)
2398 141174528 : lu(k,1340) = lu(k,1340) - lu(k,784) * lu(k,1321)
2399 141174528 : lu(k,1343) = lu(k,1343) - lu(k,785) * lu(k,1321)
2400 141174528 : lu(k,1348) = lu(k,1348) - lu(k,786) * lu(k,1321)
2401 141174528 : lu(k,1803) = lu(k,1803) - lu(k,781) * lu(k,1768)
2402 141174528 : lu(k,1805) = lu(k,1805) - lu(k,782) * lu(k,1768)
2403 141174528 : lu(k,1811) = lu(k,1811) - lu(k,783) * lu(k,1768)
2404 141174528 : lu(k,1819) = lu(k,1819) - lu(k,784) * lu(k,1768)
2405 141174528 : lu(k,1823) = lu(k,1823) - lu(k,785) * lu(k,1768)
2406 141174528 : lu(k,1831) = lu(k,1831) - lu(k,786) * lu(k,1768)
2407 141174528 : lu(k,2284) = lu(k,2284) - lu(k,781) * lu(k,2258)
2408 141174528 : lu(k,2286) = - lu(k,782) * lu(k,2258)
2409 141174528 : lu(k,2291) = - lu(k,783) * lu(k,2258)
2410 141174528 : lu(k,2299) = lu(k,2299) - lu(k,784) * lu(k,2258)
2411 141174528 : lu(k,2303) = lu(k,2303) - lu(k,785) * lu(k,2258)
2412 141174528 : lu(k,2311) = lu(k,2311) - lu(k,786) * lu(k,2258)
2413 141174528 : lu(k,793) = 1._r8 / lu(k,793)
2414 141174528 : lu(k,794) = lu(k,794) * lu(k,793)
2415 141174528 : lu(k,795) = lu(k,795) * lu(k,793)
2416 141174528 : lu(k,796) = lu(k,796) * lu(k,793)
2417 141174528 : lu(k,797) = lu(k,797) * lu(k,793)
2418 141174528 : lu(k,798) = lu(k,798) * lu(k,793)
2419 141174528 : lu(k,799) = lu(k,799) * lu(k,793)
2420 141174528 : lu(k,800) = lu(k,800) * lu(k,793)
2421 141174528 : lu(k,801) = lu(k,801) * lu(k,793)
2422 141174528 : lu(k,802) = lu(k,802) * lu(k,793)
2423 141174528 : lu(k,803) = lu(k,803) * lu(k,793)
2424 141174528 : lu(k,1770) = lu(k,1770) - lu(k,794) * lu(k,1769)
2425 141174528 : lu(k,1782) = lu(k,1782) - lu(k,795) * lu(k,1769)
2426 141174528 : lu(k,1788) = lu(k,1788) - lu(k,796) * lu(k,1769)
2427 141174528 : lu(k,1797) = lu(k,1797) - lu(k,797) * lu(k,1769)
2428 141174528 : lu(k,1806) = lu(k,1806) - lu(k,798) * lu(k,1769)
2429 141174528 : lu(k,1813) = lu(k,1813) - lu(k,799) * lu(k,1769)
2430 141174528 : lu(k,1820) = lu(k,1820) - lu(k,800) * lu(k,1769)
2431 141174528 : lu(k,1823) = lu(k,1823) - lu(k,801) * lu(k,1769)
2432 141174528 : lu(k,1825) = lu(k,1825) - lu(k,802) * lu(k,1769)
2433 141174528 : lu(k,1831) = lu(k,1831) - lu(k,803) * lu(k,1769)
2434 141174528 : lu(k,1909) = lu(k,1909) - lu(k,794) * lu(k,1908)
2435 141174528 : lu(k,1915) = lu(k,1915) - lu(k,795) * lu(k,1908)
2436 141174528 : lu(k,1919) = lu(k,1919) - lu(k,796) * lu(k,1908)
2437 141174528 : lu(k,1926) = lu(k,1926) - lu(k,797) * lu(k,1908)
2438 141174528 : lu(k,1935) = lu(k,1935) - lu(k,798) * lu(k,1908)
2439 141174528 : lu(k,1941) = lu(k,1941) - lu(k,799) * lu(k,1908)
2440 141174528 : lu(k,1947) = lu(k,1947) - lu(k,800) * lu(k,1908)
2441 141174528 : lu(k,1950) = lu(k,1950) - lu(k,801) * lu(k,1908)
2442 141174528 : lu(k,1952) = lu(k,1952) - lu(k,802) * lu(k,1908)
2443 141174528 : lu(k,1958) = lu(k,1958) - lu(k,803) * lu(k,1908)
2444 141174528 : lu(k,2260) = lu(k,2260) - lu(k,794) * lu(k,2259)
2445 141174528 : lu(k,2269) = lu(k,2269) - lu(k,795) * lu(k,2259)
2446 141174528 : lu(k,2273) = lu(k,2273) - lu(k,796) * lu(k,2259)
2447 141174528 : lu(k,2279) = lu(k,2279) - lu(k,797) * lu(k,2259)
2448 141174528 : lu(k,2287) = lu(k,2287) - lu(k,798) * lu(k,2259)
2449 141174528 : lu(k,2293) = lu(k,2293) - lu(k,799) * lu(k,2259)
2450 141174528 : lu(k,2300) = lu(k,2300) - lu(k,800) * lu(k,2259)
2451 141174528 : lu(k,2303) = lu(k,2303) - lu(k,801) * lu(k,2259)
2452 141174528 : lu(k,2305) = lu(k,2305) - lu(k,802) * lu(k,2259)
2453 145586232 : lu(k,2311) = lu(k,2311) - lu(k,803) * lu(k,2259)
2454 : end do
2455 4411704 : end subroutine lu_fac16
2456 4411704 : subroutine lu_fac17( avec_len, lu )
2457 : use chem_mods, only : nzcnt
2458 : use shr_kind_mod, only : r8 => shr_kind_r8
2459 : implicit none
2460 : !-----------------------------------------------------------------------
2461 : ! ... dummy args
2462 : !-----------------------------------------------------------------------
2463 : integer, intent(in) :: avec_len
2464 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2465 : !-----------------------------------------------------------------------
2466 : ! ... local variables
2467 : !-----------------------------------------------------------------------
2468 : integer :: k
2469 145586232 : do k = 1,avec_len
2470 141174528 : lu(k,804) = 1._r8 / lu(k,804)
2471 141174528 : lu(k,805) = lu(k,805) * lu(k,804)
2472 141174528 : lu(k,806) = lu(k,806) * lu(k,804)
2473 141174528 : lu(k,807) = lu(k,807) * lu(k,804)
2474 141174528 : lu(k,808) = lu(k,808) * lu(k,804)
2475 141174528 : lu(k,809) = lu(k,809) * lu(k,804)
2476 141174528 : lu(k,810) = lu(k,810) * lu(k,804)
2477 141174528 : lu(k,811) = lu(k,811) * lu(k,804)
2478 141174528 : lu(k,1565) = lu(k,1565) - lu(k,805) * lu(k,1558)
2479 141174528 : lu(k,1567) = - lu(k,806) * lu(k,1558)
2480 141174528 : lu(k,1576) = lu(k,1576) - lu(k,807) * lu(k,1558)
2481 141174528 : lu(k,1579) = lu(k,1579) - lu(k,808) * lu(k,1558)
2482 141174528 : lu(k,1581) = lu(k,1581) - lu(k,809) * lu(k,1558)
2483 141174528 : lu(k,1582) = lu(k,1582) - lu(k,810) * lu(k,1558)
2484 141174528 : lu(k,1587) = lu(k,1587) - lu(k,811) * lu(k,1558)
2485 141174528 : lu(k,1797) = lu(k,1797) - lu(k,805) * lu(k,1770)
2486 141174528 : lu(k,1806) = lu(k,1806) - lu(k,806) * lu(k,1770)
2487 141174528 : lu(k,1820) = lu(k,1820) - lu(k,807) * lu(k,1770)
2488 141174528 : lu(k,1823) = lu(k,1823) - lu(k,808) * lu(k,1770)
2489 141174528 : lu(k,1825) = lu(k,1825) - lu(k,809) * lu(k,1770)
2490 141174528 : lu(k,1826) = lu(k,1826) - lu(k,810) * lu(k,1770)
2491 141174528 : lu(k,1831) = lu(k,1831) - lu(k,811) * lu(k,1770)
2492 141174528 : lu(k,1926) = lu(k,1926) - lu(k,805) * lu(k,1909)
2493 141174528 : lu(k,1935) = lu(k,1935) - lu(k,806) * lu(k,1909)
2494 141174528 : lu(k,1947) = lu(k,1947) - lu(k,807) * lu(k,1909)
2495 141174528 : lu(k,1950) = lu(k,1950) - lu(k,808) * lu(k,1909)
2496 141174528 : lu(k,1952) = lu(k,1952) - lu(k,809) * lu(k,1909)
2497 141174528 : lu(k,1953) = lu(k,1953) - lu(k,810) * lu(k,1909)
2498 141174528 : lu(k,1958) = lu(k,1958) - lu(k,811) * lu(k,1909)
2499 141174528 : lu(k,2279) = lu(k,2279) - lu(k,805) * lu(k,2260)
2500 141174528 : lu(k,2287) = lu(k,2287) - lu(k,806) * lu(k,2260)
2501 141174528 : lu(k,2300) = lu(k,2300) - lu(k,807) * lu(k,2260)
2502 141174528 : lu(k,2303) = lu(k,2303) - lu(k,808) * lu(k,2260)
2503 141174528 : lu(k,2305) = lu(k,2305) - lu(k,809) * lu(k,2260)
2504 141174528 : lu(k,2306) = lu(k,2306) - lu(k,810) * lu(k,2260)
2505 141174528 : lu(k,2311) = lu(k,2311) - lu(k,811) * lu(k,2260)
2506 141174528 : lu(k,813) = 1._r8 / lu(k,813)
2507 141174528 : lu(k,814) = lu(k,814) * lu(k,813)
2508 141174528 : lu(k,815) = lu(k,815) * lu(k,813)
2509 141174528 : lu(k,816) = lu(k,816) * lu(k,813)
2510 141174528 : lu(k,817) = lu(k,817) * lu(k,813)
2511 141174528 : lu(k,818) = lu(k,818) * lu(k,813)
2512 141174528 : lu(k,819) = lu(k,819) * lu(k,813)
2513 141174528 : lu(k,820) = lu(k,820) * lu(k,813)
2514 141174528 : lu(k,821) = lu(k,821) * lu(k,813)
2515 141174528 : lu(k,1049) = lu(k,1049) - lu(k,814) * lu(k,1044)
2516 141174528 : lu(k,1051) = - lu(k,815) * lu(k,1044)
2517 141174528 : lu(k,1055) = lu(k,1055) - lu(k,816) * lu(k,1044)
2518 141174528 : lu(k,1056) = - lu(k,817) * lu(k,1044)
2519 141174528 : lu(k,1058) = lu(k,1058) - lu(k,818) * lu(k,1044)
2520 141174528 : lu(k,1059) = - lu(k,819) * lu(k,1044)
2521 141174528 : lu(k,1063) = lu(k,1063) - lu(k,820) * lu(k,1044)
2522 141174528 : lu(k,1064) = lu(k,1064) - lu(k,821) * lu(k,1044)
2523 141174528 : lu(k,1793) = lu(k,1793) - lu(k,814) * lu(k,1771)
2524 141174528 : lu(k,1799) = lu(k,1799) - lu(k,815) * lu(k,1771)
2525 141174528 : lu(k,1819) = lu(k,1819) - lu(k,816) * lu(k,1771)
2526 141174528 : lu(k,1820) = lu(k,1820) - lu(k,817) * lu(k,1771)
2527 141174528 : lu(k,1823) = lu(k,1823) - lu(k,818) * lu(k,1771)
2528 141174528 : lu(k,1825) = lu(k,1825) - lu(k,819) * lu(k,1771)
2529 141174528 : lu(k,1831) = lu(k,1831) - lu(k,820) * lu(k,1771)
2530 141174528 : lu(k,1833) = lu(k,1833) - lu(k,821) * lu(k,1771)
2531 141174528 : lu(k,1922) = lu(k,1922) - lu(k,814) * lu(k,1910)
2532 141174528 : lu(k,1928) = lu(k,1928) - lu(k,815) * lu(k,1910)
2533 141174528 : lu(k,1946) = lu(k,1946) - lu(k,816) * lu(k,1910)
2534 141174528 : lu(k,1947) = lu(k,1947) - lu(k,817) * lu(k,1910)
2535 141174528 : lu(k,1950) = lu(k,1950) - lu(k,818) * lu(k,1910)
2536 141174528 : lu(k,1952) = lu(k,1952) - lu(k,819) * lu(k,1910)
2537 141174528 : lu(k,1958) = lu(k,1958) - lu(k,820) * lu(k,1910)
2538 141174528 : lu(k,1960) = - lu(k,821) * lu(k,1910)
2539 141174528 : lu(k,2275) = lu(k,2275) - lu(k,814) * lu(k,2261)
2540 141174528 : lu(k,2280) = lu(k,2280) - lu(k,815) * lu(k,2261)
2541 141174528 : lu(k,2299) = lu(k,2299) - lu(k,816) * lu(k,2261)
2542 141174528 : lu(k,2300) = lu(k,2300) - lu(k,817) * lu(k,2261)
2543 141174528 : lu(k,2303) = lu(k,2303) - lu(k,818) * lu(k,2261)
2544 141174528 : lu(k,2305) = lu(k,2305) - lu(k,819) * lu(k,2261)
2545 141174528 : lu(k,2311) = lu(k,2311) - lu(k,820) * lu(k,2261)
2546 141174528 : lu(k,2313) = lu(k,2313) - lu(k,821) * lu(k,2261)
2547 141174528 : lu(k,823) = 1._r8 / lu(k,823)
2548 141174528 : lu(k,824) = lu(k,824) * lu(k,823)
2549 141174528 : lu(k,825) = lu(k,825) * lu(k,823)
2550 141174528 : lu(k,826) = lu(k,826) * lu(k,823)
2551 141174528 : lu(k,827) = lu(k,827) * lu(k,823)
2552 141174528 : lu(k,828) = lu(k,828) * lu(k,823)
2553 141174528 : lu(k,829) = lu(k,829) * lu(k,823)
2554 141174528 : lu(k,830) = lu(k,830) * lu(k,823)
2555 141174528 : lu(k,1571) = lu(k,1571) - lu(k,824) * lu(k,1559)
2556 141174528 : lu(k,1577) = lu(k,1577) - lu(k,825) * lu(k,1559)
2557 141174528 : lu(k,1579) = lu(k,1579) - lu(k,826) * lu(k,1559)
2558 141174528 : lu(k,1580) = lu(k,1580) - lu(k,827) * lu(k,1559)
2559 141174528 : lu(k,1583) = - lu(k,828) * lu(k,1559)
2560 141174528 : lu(k,1585) = - lu(k,829) * lu(k,1559)
2561 141174528 : lu(k,1589) = lu(k,1589) - lu(k,830) * lu(k,1559)
2562 141174528 : lu(k,1602) = lu(k,1602) - lu(k,824) * lu(k,1594)
2563 141174528 : lu(k,1608) = lu(k,1608) - lu(k,825) * lu(k,1594)
2564 141174528 : lu(k,1610) = lu(k,1610) - lu(k,826) * lu(k,1594)
2565 141174528 : lu(k,1611) = lu(k,1611) - lu(k,827) * lu(k,1594)
2566 141174528 : lu(k,1614) = lu(k,1614) - lu(k,828) * lu(k,1594)
2567 141174528 : lu(k,1616) = lu(k,1616) - lu(k,829) * lu(k,1594)
2568 141174528 : lu(k,1620) = lu(k,1620) - lu(k,830) * lu(k,1594)
2569 141174528 : lu(k,1840) = lu(k,1840) - lu(k,824) * lu(k,1837)
2570 141174528 : lu(k,1845) = lu(k,1845) - lu(k,825) * lu(k,1837)
2571 141174528 : lu(k,1847) = lu(k,1847) - lu(k,826) * lu(k,1837)
2572 141174528 : lu(k,1848) = lu(k,1848) - lu(k,827) * lu(k,1837)
2573 141174528 : lu(k,1851) = - lu(k,828) * lu(k,1837)
2574 141174528 : lu(k,1853) = lu(k,1853) - lu(k,829) * lu(k,1837)
2575 141174528 : lu(k,1857) = - lu(k,830) * lu(k,1837)
2576 141174528 : lu(k,2018) = lu(k,2018) - lu(k,824) * lu(k,2015)
2577 141174528 : lu(k,2023) = lu(k,2023) - lu(k,825) * lu(k,2015)
2578 141174528 : lu(k,2025) = lu(k,2025) - lu(k,826) * lu(k,2015)
2579 141174528 : lu(k,2026) = - lu(k,827) * lu(k,2015)
2580 141174528 : lu(k,2029) = lu(k,2029) - lu(k,828) * lu(k,2015)
2581 141174528 : lu(k,2031) = lu(k,2031) - lu(k,829) * lu(k,2015)
2582 141174528 : lu(k,2035) = lu(k,2035) - lu(k,830) * lu(k,2015)
2583 141174528 : lu(k,2295) = lu(k,2295) - lu(k,824) * lu(k,2262)
2584 141174528 : lu(k,2301) = lu(k,2301) - lu(k,825) * lu(k,2262)
2585 141174528 : lu(k,2303) = lu(k,2303) - lu(k,826) * lu(k,2262)
2586 141174528 : lu(k,2304) = lu(k,2304) - lu(k,827) * lu(k,2262)
2587 141174528 : lu(k,2307) = lu(k,2307) - lu(k,828) * lu(k,2262)
2588 141174528 : lu(k,2309) = lu(k,2309) - lu(k,829) * lu(k,2262)
2589 141174528 : lu(k,2313) = lu(k,2313) - lu(k,830) * lu(k,2262)
2590 141174528 : lu(k,831) = 1._r8 / lu(k,831)
2591 141174528 : lu(k,832) = lu(k,832) * lu(k,831)
2592 141174528 : lu(k,833) = lu(k,833) * lu(k,831)
2593 141174528 : lu(k,834) = lu(k,834) * lu(k,831)
2594 141174528 : lu(k,867) = lu(k,867) - lu(k,832) * lu(k,864)
2595 141174528 : lu(k,869) = lu(k,869) - lu(k,833) * lu(k,864)
2596 141174528 : lu(k,872) = lu(k,872) - lu(k,834) * lu(k,864)
2597 141174528 : lu(k,1107) = lu(k,1107) - lu(k,832) * lu(k,1100)
2598 141174528 : lu(k,1109) = lu(k,1109) - lu(k,833) * lu(k,1100)
2599 141174528 : lu(k,1113) = lu(k,1113) - lu(k,834) * lu(k,1100)
2600 141174528 : lu(k,1167) = lu(k,1167) - lu(k,832) * lu(k,1157)
2601 141174528 : lu(k,1170) = lu(k,1170) - lu(k,833) * lu(k,1157)
2602 141174528 : lu(k,1173) = lu(k,1173) - lu(k,834) * lu(k,1157)
2603 141174528 : lu(k,1188) = lu(k,1188) - lu(k,832) * lu(k,1177)
2604 141174528 : lu(k,1191) = lu(k,1191) - lu(k,833) * lu(k,1177)
2605 141174528 : lu(k,1195) = lu(k,1195) - lu(k,834) * lu(k,1177)
2606 141174528 : lu(k,1203) = lu(k,1203) - lu(k,832) * lu(k,1198)
2607 141174528 : lu(k,1205) = lu(k,1205) - lu(k,833) * lu(k,1198)
2608 141174528 : lu(k,1208) = lu(k,1208) - lu(k,834) * lu(k,1198)
2609 141174528 : lu(k,1220) = lu(k,1220) - lu(k,832) * lu(k,1211)
2610 141174528 : lu(k,1223) = lu(k,1223) - lu(k,833) * lu(k,1211)
2611 141174528 : lu(k,1227) = lu(k,1227) - lu(k,834) * lu(k,1211)
2612 141174528 : lu(k,1243) = lu(k,1243) - lu(k,832) * lu(k,1231)
2613 141174528 : lu(k,1246) = lu(k,1246) - lu(k,833) * lu(k,1231)
2614 141174528 : lu(k,1250) = lu(k,1250) - lu(k,834) * lu(k,1231)
2615 141174528 : lu(k,1307) = lu(k,1307) - lu(k,832) * lu(k,1291)
2616 141174528 : lu(k,1310) = lu(k,1310) - lu(k,833) * lu(k,1291)
2617 141174528 : lu(k,1315) = lu(k,1315) - lu(k,834) * lu(k,1291)
2618 141174528 : lu(k,1340) = lu(k,1340) - lu(k,832) * lu(k,1322)
2619 141174528 : lu(k,1343) = lu(k,1343) - lu(k,833) * lu(k,1322)
2620 141174528 : lu(k,1348) = lu(k,1348) - lu(k,834) * lu(k,1322)
2621 141174528 : lu(k,1362) = lu(k,1362) - lu(k,832) * lu(k,1351)
2622 141174528 : lu(k,1365) = lu(k,1365) - lu(k,833) * lu(k,1351)
2623 141174528 : lu(k,1369) = lu(k,1369) - lu(k,834) * lu(k,1351)
2624 141174528 : lu(k,1819) = lu(k,1819) - lu(k,832) * lu(k,1772)
2625 141174528 : lu(k,1823) = lu(k,1823) - lu(k,833) * lu(k,1772)
2626 141174528 : lu(k,1831) = lu(k,1831) - lu(k,834) * lu(k,1772)
2627 141174528 : lu(k,1998) = lu(k,1998) - lu(k,832) * lu(k,1967)
2628 141174528 : lu(k,2002) = lu(k,2002) - lu(k,833) * lu(k,1967)
2629 141174528 : lu(k,2010) = lu(k,2010) - lu(k,834) * lu(k,1967)
2630 141174528 : lu(k,836) = 1._r8 / lu(k,836)
2631 141174528 : lu(k,837) = lu(k,837) * lu(k,836)
2632 141174528 : lu(k,838) = lu(k,838) * lu(k,836)
2633 141174528 : lu(k,839) = lu(k,839) * lu(k,836)
2634 141174528 : lu(k,840) = lu(k,840) * lu(k,836)
2635 141174528 : lu(k,841) = lu(k,841) * lu(k,836)
2636 141174528 : lu(k,842) = lu(k,842) * lu(k,836)
2637 141174528 : lu(k,843) = lu(k,843) * lu(k,836)
2638 141174528 : lu(k,844) = lu(k,844) * lu(k,836)
2639 141174528 : lu(k,845) = lu(k,845) * lu(k,836)
2640 141174528 : lu(k,1786) = lu(k,1786) - lu(k,837) * lu(k,1773)
2641 141174528 : lu(k,1793) = lu(k,1793) - lu(k,838) * lu(k,1773)
2642 141174528 : lu(k,1819) = lu(k,1819) - lu(k,839) * lu(k,1773)
2643 141174528 : lu(k,1820) = lu(k,1820) - lu(k,840) * lu(k,1773)
2644 141174528 : lu(k,1823) = lu(k,1823) - lu(k,841) * lu(k,1773)
2645 141174528 : lu(k,1825) = lu(k,1825) - lu(k,842) * lu(k,1773)
2646 141174528 : lu(k,1826) = lu(k,1826) - lu(k,843) * lu(k,1773)
2647 141174528 : lu(k,1831) = lu(k,1831) - lu(k,844) * lu(k,1773)
2648 141174528 : lu(k,1833) = lu(k,1833) - lu(k,845) * lu(k,1773)
2649 141174528 : lu(k,1917) = lu(k,1917) - lu(k,837) * lu(k,1911)
2650 141174528 : lu(k,1922) = lu(k,1922) - lu(k,838) * lu(k,1911)
2651 141174528 : lu(k,1946) = lu(k,1946) - lu(k,839) * lu(k,1911)
2652 141174528 : lu(k,1947) = lu(k,1947) - lu(k,840) * lu(k,1911)
2653 141174528 : lu(k,1950) = lu(k,1950) - lu(k,841) * lu(k,1911)
2654 141174528 : lu(k,1952) = lu(k,1952) - lu(k,842) * lu(k,1911)
2655 141174528 : lu(k,1953) = lu(k,1953) - lu(k,843) * lu(k,1911)
2656 141174528 : lu(k,1958) = lu(k,1958) - lu(k,844) * lu(k,1911)
2657 141174528 : lu(k,1960) = lu(k,1960) - lu(k,845) * lu(k,1911)
2658 141174528 : lu(k,1972) = lu(k,1972) - lu(k,837) * lu(k,1968)
2659 141174528 : lu(k,1976) = lu(k,1976) - lu(k,838) * lu(k,1968)
2660 141174528 : lu(k,1998) = lu(k,1998) - lu(k,839) * lu(k,1968)
2661 141174528 : lu(k,1999) = lu(k,1999) - lu(k,840) * lu(k,1968)
2662 141174528 : lu(k,2002) = lu(k,2002) - lu(k,841) * lu(k,1968)
2663 141174528 : lu(k,2004) = lu(k,2004) - lu(k,842) * lu(k,1968)
2664 141174528 : lu(k,2005) = lu(k,2005) - lu(k,843) * lu(k,1968)
2665 141174528 : lu(k,2010) = lu(k,2010) - lu(k,844) * lu(k,1968)
2666 141174528 : lu(k,2012) = lu(k,2012) - lu(k,845) * lu(k,1968)
2667 141174528 : lu(k,2271) = lu(k,2271) - lu(k,837) * lu(k,2263)
2668 141174528 : lu(k,2275) = lu(k,2275) - lu(k,838) * lu(k,2263)
2669 141174528 : lu(k,2299) = lu(k,2299) - lu(k,839) * lu(k,2263)
2670 141174528 : lu(k,2300) = lu(k,2300) - lu(k,840) * lu(k,2263)
2671 141174528 : lu(k,2303) = lu(k,2303) - lu(k,841) * lu(k,2263)
2672 141174528 : lu(k,2305) = lu(k,2305) - lu(k,842) * lu(k,2263)
2673 141174528 : lu(k,2306) = lu(k,2306) - lu(k,843) * lu(k,2263)
2674 141174528 : lu(k,2311) = lu(k,2311) - lu(k,844) * lu(k,2263)
2675 141174528 : lu(k,2313) = lu(k,2313) - lu(k,845) * lu(k,2263)
2676 141174528 : lu(k,846) = 1._r8 / lu(k,846)
2677 141174528 : lu(k,847) = lu(k,847) * lu(k,846)
2678 141174528 : lu(k,848) = lu(k,848) * lu(k,846)
2679 141174528 : lu(k,849) = lu(k,849) * lu(k,846)
2680 141174528 : lu(k,850) = lu(k,850) * lu(k,846)
2681 141174528 : lu(k,851) = lu(k,851) * lu(k,846)
2682 141174528 : lu(k,852) = lu(k,852) * lu(k,846)
2683 141174528 : lu(k,853) = lu(k,853) * lu(k,846)
2684 141174528 : lu(k,1462) = lu(k,1462) - lu(k,847) * lu(k,1460)
2685 141174528 : lu(k,1463) = - lu(k,848) * lu(k,1460)
2686 141174528 : lu(k,1465) = - lu(k,849) * lu(k,1460)
2687 141174528 : lu(k,1466) = - lu(k,850) * lu(k,1460)
2688 141174528 : lu(k,1467) = - lu(k,851) * lu(k,1460)
2689 141174528 : lu(k,1468) = lu(k,1468) - lu(k,852) * lu(k,1460)
2690 141174528 : lu(k,1471) = - lu(k,853) * lu(k,1460)
2691 141174528 : lu(k,1528) = lu(k,1528) - lu(k,847) * lu(k,1524)
2692 141174528 : lu(k,1531) = lu(k,1531) - lu(k,848) * lu(k,1524)
2693 141174528 : lu(k,1534) = lu(k,1534) - lu(k,849) * lu(k,1524)
2694 141174528 : lu(k,1535) = - lu(k,850) * lu(k,1524)
2695 141174528 : lu(k,1536) = lu(k,1536) - lu(k,851) * lu(k,1524)
2696 141174528 : lu(k,1537) = - lu(k,852) * lu(k,1524)
2697 141174528 : lu(k,1545) = lu(k,1545) - lu(k,853) * lu(k,1524)
2698 141174528 : lu(k,1602) = lu(k,1602) - lu(k,847) * lu(k,1595)
2699 141174528 : lu(k,1605) = lu(k,1605) - lu(k,848) * lu(k,1595)
2700 141174528 : lu(k,1608) = lu(k,1608) - lu(k,849) * lu(k,1595)
2701 141174528 : lu(k,1609) = - lu(k,850) * lu(k,1595)
2702 141174528 : lu(k,1610) = lu(k,1610) - lu(k,851) * lu(k,1595)
2703 141174528 : lu(k,1611) = lu(k,1611) - lu(k,852) * lu(k,1595)
2704 141174528 : lu(k,1620) = lu(k,1620) - lu(k,853) * lu(k,1595)
2705 141174528 : lu(k,1643) = lu(k,1643) - lu(k,847) * lu(k,1640)
2706 141174528 : lu(k,1646) = lu(k,1646) - lu(k,848) * lu(k,1640)
2707 141174528 : lu(k,1649) = lu(k,1649) - lu(k,849) * lu(k,1640)
2708 141174528 : lu(k,1650) = lu(k,1650) - lu(k,850) * lu(k,1640)
2709 141174528 : lu(k,1651) = lu(k,1651) - lu(k,851) * lu(k,1640)
2710 141174528 : lu(k,1652) = lu(k,1652) - lu(k,852) * lu(k,1640)
2711 141174528 : lu(k,1661) = lu(k,1661) - lu(k,853) * lu(k,1640)
2712 141174528 : lu(k,1815) = lu(k,1815) - lu(k,847) * lu(k,1774)
2713 141174528 : lu(k,1818) = lu(k,1818) - lu(k,848) * lu(k,1774)
2714 141174528 : lu(k,1821) = lu(k,1821) - lu(k,849) * lu(k,1774)
2715 141174528 : lu(k,1822) = lu(k,1822) - lu(k,850) * lu(k,1774)
2716 141174528 : lu(k,1823) = lu(k,1823) - lu(k,851) * lu(k,1774)
2717 141174528 : lu(k,1824) = lu(k,1824) - lu(k,852) * lu(k,1774)
2718 141174528 : lu(k,1833) = lu(k,1833) - lu(k,853) * lu(k,1774)
2719 141174528 : lu(k,2295) = lu(k,2295) - lu(k,847) * lu(k,2264)
2720 141174528 : lu(k,2298) = lu(k,2298) - lu(k,848) * lu(k,2264)
2721 141174528 : lu(k,2301) = lu(k,2301) - lu(k,849) * lu(k,2264)
2722 141174528 : lu(k,2302) = - lu(k,850) * lu(k,2264)
2723 141174528 : lu(k,2303) = lu(k,2303) - lu(k,851) * lu(k,2264)
2724 141174528 : lu(k,2304) = lu(k,2304) - lu(k,852) * lu(k,2264)
2725 145586232 : lu(k,2313) = lu(k,2313) - lu(k,853) * lu(k,2264)
2726 : end do
2727 4411704 : end subroutine lu_fac17
2728 4411704 : subroutine lu_fac18( avec_len, lu )
2729 : use chem_mods, only : nzcnt
2730 : use shr_kind_mod, only : r8 => shr_kind_r8
2731 : implicit none
2732 : !-----------------------------------------------------------------------
2733 : ! ... dummy args
2734 : !-----------------------------------------------------------------------
2735 : integer, intent(in) :: avec_len
2736 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2737 : !-----------------------------------------------------------------------
2738 : ! ... local variables
2739 : !-----------------------------------------------------------------------
2740 : integer :: k
2741 145586232 : do k = 1,avec_len
2742 141174528 : lu(k,855) = 1._r8 / lu(k,855)
2743 141174528 : lu(k,856) = lu(k,856) * lu(k,855)
2744 141174528 : lu(k,857) = lu(k,857) * lu(k,855)
2745 141174528 : lu(k,858) = lu(k,858) * lu(k,855)
2746 141174528 : lu(k,859) = lu(k,859) * lu(k,855)
2747 141174528 : lu(k,860) = lu(k,860) * lu(k,855)
2748 141174528 : lu(k,861) = lu(k,861) * lu(k,855)
2749 141174528 : lu(k,975) = lu(k,975) - lu(k,856) * lu(k,971)
2750 141174528 : lu(k,976) = lu(k,976) - lu(k,857) * lu(k,971)
2751 141174528 : lu(k,977) = lu(k,977) - lu(k,858) * lu(k,971)
2752 141174528 : lu(k,979) = lu(k,979) - lu(k,859) * lu(k,971)
2753 141174528 : lu(k,980) = lu(k,980) - lu(k,860) * lu(k,971)
2754 141174528 : lu(k,981) = - lu(k,861) * lu(k,971)
2755 141174528 : lu(k,1608) = lu(k,1608) - lu(k,856) * lu(k,1596)
2756 141174528 : lu(k,1610) = lu(k,1610) - lu(k,857) * lu(k,1596)
2757 141174528 : lu(k,1614) = lu(k,1614) - lu(k,858) * lu(k,1596)
2758 141174528 : lu(k,1616) = lu(k,1616) - lu(k,859) * lu(k,1596)
2759 141174528 : lu(k,1619) = lu(k,1619) - lu(k,860) * lu(k,1596)
2760 141174528 : lu(k,1620) = lu(k,1620) - lu(k,861) * lu(k,1596)
2761 141174528 : lu(k,1821) = lu(k,1821) - lu(k,856) * lu(k,1775)
2762 141174528 : lu(k,1823) = lu(k,1823) - lu(k,857) * lu(k,1775)
2763 141174528 : lu(k,1827) = lu(k,1827) - lu(k,858) * lu(k,1775)
2764 141174528 : lu(k,1829) = lu(k,1829) - lu(k,859) * lu(k,1775)
2765 141174528 : lu(k,1832) = lu(k,1832) - lu(k,860) * lu(k,1775)
2766 141174528 : lu(k,1833) = lu(k,1833) - lu(k,861) * lu(k,1775)
2767 141174528 : lu(k,2023) = lu(k,2023) - lu(k,856) * lu(k,2016)
2768 141174528 : lu(k,2025) = lu(k,2025) - lu(k,857) * lu(k,2016)
2769 141174528 : lu(k,2029) = lu(k,2029) - lu(k,858) * lu(k,2016)
2770 141174528 : lu(k,2031) = lu(k,2031) - lu(k,859) * lu(k,2016)
2771 141174528 : lu(k,2034) = lu(k,2034) - lu(k,860) * lu(k,2016)
2772 141174528 : lu(k,2035) = lu(k,2035) - lu(k,861) * lu(k,2016)
2773 141174528 : lu(k,2121) = lu(k,2121) - lu(k,856) * lu(k,2105)
2774 141174528 : lu(k,2123) = lu(k,2123) - lu(k,857) * lu(k,2105)
2775 141174528 : lu(k,2127) = lu(k,2127) - lu(k,858) * lu(k,2105)
2776 141174528 : lu(k,2129) = lu(k,2129) - lu(k,859) * lu(k,2105)
2777 141174528 : lu(k,2132) = lu(k,2132) - lu(k,860) * lu(k,2105)
2778 141174528 : lu(k,2133) = lu(k,2133) - lu(k,861) * lu(k,2105)
2779 141174528 : lu(k,2301) = lu(k,2301) - lu(k,856) * lu(k,2265)
2780 141174528 : lu(k,2303) = lu(k,2303) - lu(k,857) * lu(k,2265)
2781 141174528 : lu(k,2307) = lu(k,2307) - lu(k,858) * lu(k,2265)
2782 141174528 : lu(k,2309) = lu(k,2309) - lu(k,859) * lu(k,2265)
2783 141174528 : lu(k,2312) = lu(k,2312) - lu(k,860) * lu(k,2265)
2784 141174528 : lu(k,2313) = lu(k,2313) - lu(k,861) * lu(k,2265)
2785 141174528 : lu(k,2327) = lu(k,2327) - lu(k,856) * lu(k,2318)
2786 141174528 : lu(k,2329) = lu(k,2329) - lu(k,857) * lu(k,2318)
2787 141174528 : lu(k,2333) = lu(k,2333) - lu(k,858) * lu(k,2318)
2788 141174528 : lu(k,2335) = lu(k,2335) - lu(k,859) * lu(k,2318)
2789 141174528 : lu(k,2338) = lu(k,2338) - lu(k,860) * lu(k,2318)
2790 141174528 : lu(k,2339) = - lu(k,861) * lu(k,2318)
2791 141174528 : lu(k,865) = 1._r8 / lu(k,865)
2792 141174528 : lu(k,866) = lu(k,866) * lu(k,865)
2793 141174528 : lu(k,867) = lu(k,867) * lu(k,865)
2794 141174528 : lu(k,868) = lu(k,868) * lu(k,865)
2795 141174528 : lu(k,869) = lu(k,869) * lu(k,865)
2796 141174528 : lu(k,870) = lu(k,870) * lu(k,865)
2797 141174528 : lu(k,871) = lu(k,871) * lu(k,865)
2798 141174528 : lu(k,872) = lu(k,872) * lu(k,865)
2799 141174528 : lu(k,962) = lu(k,962) - lu(k,866) * lu(k,959)
2800 141174528 : lu(k,964) = lu(k,964) - lu(k,867) * lu(k,959)
2801 141174528 : lu(k,965) = lu(k,965) - lu(k,868) * lu(k,959)
2802 141174528 : lu(k,966) = lu(k,966) - lu(k,869) * lu(k,959)
2803 141174528 : lu(k,967) = lu(k,967) - lu(k,870) * lu(k,959)
2804 141174528 : lu(k,968) = - lu(k,871) * lu(k,959)
2805 141174528 : lu(k,969) = lu(k,969) - lu(k,872) * lu(k,959)
2806 141174528 : lu(k,1793) = lu(k,1793) - lu(k,866) * lu(k,1776)
2807 141174528 : lu(k,1819) = lu(k,1819) - lu(k,867) * lu(k,1776)
2808 141174528 : lu(k,1820) = lu(k,1820) - lu(k,868) * lu(k,1776)
2809 141174528 : lu(k,1823) = lu(k,1823) - lu(k,869) * lu(k,1776)
2810 141174528 : lu(k,1825) = lu(k,1825) - lu(k,870) * lu(k,1776)
2811 141174528 : lu(k,1826) = lu(k,1826) - lu(k,871) * lu(k,1776)
2812 141174528 : lu(k,1831) = lu(k,1831) - lu(k,872) * lu(k,1776)
2813 141174528 : lu(k,1922) = lu(k,1922) - lu(k,866) * lu(k,1912)
2814 141174528 : lu(k,1946) = lu(k,1946) - lu(k,867) * lu(k,1912)
2815 141174528 : lu(k,1947) = lu(k,1947) - lu(k,868) * lu(k,1912)
2816 141174528 : lu(k,1950) = lu(k,1950) - lu(k,869) * lu(k,1912)
2817 141174528 : lu(k,1952) = lu(k,1952) - lu(k,870) * lu(k,1912)
2818 141174528 : lu(k,1953) = lu(k,1953) - lu(k,871) * lu(k,1912)
2819 141174528 : lu(k,1958) = lu(k,1958) - lu(k,872) * lu(k,1912)
2820 141174528 : lu(k,1976) = lu(k,1976) - lu(k,866) * lu(k,1969)
2821 141174528 : lu(k,1998) = lu(k,1998) - lu(k,867) * lu(k,1969)
2822 141174528 : lu(k,1999) = lu(k,1999) - lu(k,868) * lu(k,1969)
2823 141174528 : lu(k,2002) = lu(k,2002) - lu(k,869) * lu(k,1969)
2824 141174528 : lu(k,2004) = lu(k,2004) - lu(k,870) * lu(k,1969)
2825 141174528 : lu(k,2005) = lu(k,2005) - lu(k,871) * lu(k,1969)
2826 141174528 : lu(k,2010) = lu(k,2010) - lu(k,872) * lu(k,1969)
2827 141174528 : lu(k,2110) = - lu(k,866) * lu(k,2106)
2828 141174528 : lu(k,2119) = lu(k,2119) - lu(k,867) * lu(k,2106)
2829 141174528 : lu(k,2120) = lu(k,2120) - lu(k,868) * lu(k,2106)
2830 141174528 : lu(k,2123) = lu(k,2123) - lu(k,869) * lu(k,2106)
2831 141174528 : lu(k,2125) = lu(k,2125) - lu(k,870) * lu(k,2106)
2832 141174528 : lu(k,2126) = lu(k,2126) - lu(k,871) * lu(k,2106)
2833 141174528 : lu(k,2131) = lu(k,2131) - lu(k,872) * lu(k,2106)
2834 141174528 : lu(k,2275) = lu(k,2275) - lu(k,866) * lu(k,2266)
2835 141174528 : lu(k,2299) = lu(k,2299) - lu(k,867) * lu(k,2266)
2836 141174528 : lu(k,2300) = lu(k,2300) - lu(k,868) * lu(k,2266)
2837 141174528 : lu(k,2303) = lu(k,2303) - lu(k,869) * lu(k,2266)
2838 141174528 : lu(k,2305) = lu(k,2305) - lu(k,870) * lu(k,2266)
2839 141174528 : lu(k,2306) = lu(k,2306) - lu(k,871) * lu(k,2266)
2840 141174528 : lu(k,2311) = lu(k,2311) - lu(k,872) * lu(k,2266)
2841 141174528 : lu(k,873) = 1._r8 / lu(k,873)
2842 141174528 : lu(k,874) = lu(k,874) * lu(k,873)
2843 141174528 : lu(k,875) = lu(k,875) * lu(k,873)
2844 141174528 : lu(k,944) = lu(k,944) - lu(k,874) * lu(k,935)
2845 141174528 : lu(k,950) = - lu(k,875) * lu(k,935)
2846 141174528 : lu(k,990) = - lu(k,874) * lu(k,988)
2847 141174528 : lu(k,991) = - lu(k,875) * lu(k,988)
2848 141174528 : lu(k,998) = lu(k,998) - lu(k,874) * lu(k,996)
2849 141174528 : lu(k,999) = - lu(k,875) * lu(k,996)
2850 141174528 : lu(k,1020) = lu(k,1020) - lu(k,874) * lu(k,1010)
2851 141174528 : lu(k,1027) = - lu(k,875) * lu(k,1010)
2852 141174528 : lu(k,1050) = lu(k,1050) - lu(k,874) * lu(k,1045)
2853 141174528 : lu(k,1057) = - lu(k,875) * lu(k,1045)
2854 141174528 : lu(k,1093) = lu(k,1093) - lu(k,874) * lu(k,1090)
2855 141174528 : lu(k,1095) = - lu(k,875) * lu(k,1090)
2856 141174528 : lu(k,1117) = lu(k,1117) - lu(k,874) * lu(k,1114)
2857 141174528 : lu(k,1121) = - lu(k,875) * lu(k,1114)
2858 141174528 : lu(k,1127) = lu(k,1127) - lu(k,874) * lu(k,1126)
2859 141174528 : lu(k,1128) = - lu(k,875) * lu(k,1126)
2860 141174528 : lu(k,1162) = lu(k,1162) - lu(k,874) * lu(k,1158)
2861 141174528 : lu(k,1169) = - lu(k,875) * lu(k,1158)
2862 141174528 : lu(k,1215) = lu(k,1215) - lu(k,874) * lu(k,1212)
2863 141174528 : lu(k,1222) = - lu(k,875) * lu(k,1212)
2864 141174528 : lu(k,1294) = - lu(k,874) * lu(k,1292)
2865 141174528 : lu(k,1309) = - lu(k,875) * lu(k,1292)
2866 141174528 : lu(k,1375) = lu(k,1375) - lu(k,874) * lu(k,1371)
2867 141174528 : lu(k,1386) = - lu(k,875) * lu(k,1371)
2868 141174528 : lu(k,1398) = - lu(k,874) * lu(k,1397)
2869 141174528 : lu(k,1406) = - lu(k,875) * lu(k,1397)
2870 141174528 : lu(k,1422) = lu(k,1422) - lu(k,874) * lu(k,1418)
2871 141174528 : lu(k,1438) = - lu(k,875) * lu(k,1418)
2872 141174528 : lu(k,1475) = lu(k,1475) - lu(k,874) * lu(k,1473)
2873 141174528 : lu(k,1481) = lu(k,1481) - lu(k,875) * lu(k,1473)
2874 141174528 : lu(k,1565) = lu(k,1565) - lu(k,874) * lu(k,1560)
2875 141174528 : lu(k,1577) = lu(k,1577) - lu(k,875) * lu(k,1560)
2876 141174528 : lu(k,1797) = lu(k,1797) - lu(k,874) * lu(k,1777)
2877 141174528 : lu(k,1821) = lu(k,1821) - lu(k,875) * lu(k,1777)
2878 141174528 : lu(k,1926) = lu(k,1926) - lu(k,874) * lu(k,1913)
2879 141174528 : lu(k,1948) = lu(k,1948) - lu(k,875) * lu(k,1913)
2880 141174528 : lu(k,1980) = lu(k,1980) - lu(k,874) * lu(k,1970)
2881 141174528 : lu(k,2000) = - lu(k,875) * lu(k,1970)
2882 141174528 : lu(k,2162) = lu(k,2162) - lu(k,874) * lu(k,2147)
2883 141174528 : lu(k,2183) = lu(k,2183) - lu(k,875) * lu(k,2147)
2884 141174528 : lu(k,2279) = lu(k,2279) - lu(k,874) * lu(k,2267)
2885 141174528 : lu(k,2301) = lu(k,2301) - lu(k,875) * lu(k,2267)
2886 141174528 : lu(k,879) = 1._r8 / lu(k,879)
2887 141174528 : lu(k,880) = lu(k,880) * lu(k,879)
2888 141174528 : lu(k,881) = lu(k,881) * lu(k,879)
2889 141174528 : lu(k,882) = lu(k,882) * lu(k,879)
2890 141174528 : lu(k,883) = lu(k,883) * lu(k,879)
2891 141174528 : lu(k,884) = lu(k,884) * lu(k,879)
2892 141174528 : lu(k,885) = lu(k,885) * lu(k,879)
2893 141174528 : lu(k,886) = lu(k,886) * lu(k,879)
2894 141174528 : lu(k,887) = lu(k,887) * lu(k,879)
2895 141174528 : lu(k,888) = lu(k,888) * lu(k,879)
2896 141174528 : lu(k,889) = lu(k,889) * lu(k,879)
2897 141174528 : lu(k,890) = lu(k,890) * lu(k,879)
2898 141174528 : lu(k,891) = lu(k,891) * lu(k,879)
2899 141174528 : lu(k,892) = lu(k,892) * lu(k,879)
2900 141174528 : lu(k,893) = lu(k,893) * lu(k,879)
2901 141174528 : lu(k,894) = lu(k,894) * lu(k,879)
2902 141174528 : lu(k,1787) = lu(k,1787) - lu(k,880) * lu(k,1778)
2903 141174528 : lu(k,1791) = lu(k,1791) - lu(k,881) * lu(k,1778)
2904 141174528 : lu(k,1797) = lu(k,1797) - lu(k,882) * lu(k,1778)
2905 141174528 : lu(k,1804) = - lu(k,883) * lu(k,1778)
2906 141174528 : lu(k,1805) = lu(k,1805) - lu(k,884) * lu(k,1778)
2907 141174528 : lu(k,1808) = lu(k,1808) - lu(k,885) * lu(k,1778)
2908 141174528 : lu(k,1809) = lu(k,1809) - lu(k,886) * lu(k,1778)
2909 141174528 : lu(k,1811) = lu(k,1811) - lu(k,887) * lu(k,1778)
2910 141174528 : lu(k,1813) = lu(k,1813) - lu(k,888) * lu(k,1778)
2911 141174528 : lu(k,1819) = lu(k,1819) - lu(k,889) * lu(k,1778)
2912 141174528 : lu(k,1823) = lu(k,1823) - lu(k,890) * lu(k,1778)
2913 141174528 : lu(k,1826) = lu(k,1826) - lu(k,891) * lu(k,1778)
2914 141174528 : lu(k,1828) = lu(k,1828) - lu(k,892) * lu(k,1778)
2915 141174528 : lu(k,1830) = lu(k,1830) - lu(k,893) * lu(k,1778)
2916 141174528 : lu(k,1831) = lu(k,1831) - lu(k,894) * lu(k,1778)
2917 141174528 : lu(k,2049) = - lu(k,880) * lu(k,2043)
2918 141174528 : lu(k,2053) = lu(k,2053) - lu(k,881) * lu(k,2043)
2919 141174528 : lu(k,2059) = lu(k,2059) - lu(k,882) * lu(k,2043)
2920 141174528 : lu(k,2066) = lu(k,2066) - lu(k,883) * lu(k,2043)
2921 141174528 : lu(k,2067) = lu(k,2067) - lu(k,884) * lu(k,2043)
2922 141174528 : lu(k,2070) = lu(k,2070) - lu(k,885) * lu(k,2043)
2923 141174528 : lu(k,2071) = lu(k,2071) - lu(k,886) * lu(k,2043)
2924 141174528 : lu(k,2073) = lu(k,2073) - lu(k,887) * lu(k,2043)
2925 141174528 : lu(k,2075) = lu(k,2075) - lu(k,888) * lu(k,2043)
2926 141174528 : lu(k,2080) = lu(k,2080) - lu(k,889) * lu(k,2043)
2927 141174528 : lu(k,2084) = lu(k,2084) - lu(k,890) * lu(k,2043)
2928 141174528 : lu(k,2087) = - lu(k,891) * lu(k,2043)
2929 141174528 : lu(k,2089) = lu(k,2089) - lu(k,892) * lu(k,2043)
2930 141174528 : lu(k,2091) = - lu(k,893) * lu(k,2043)
2931 141174528 : lu(k,2092) = lu(k,2092) - lu(k,894) * lu(k,2043)
2932 141174528 : lu(k,2153) = lu(k,2153) - lu(k,880) * lu(k,2148)
2933 141174528 : lu(k,2157) = lu(k,2157) - lu(k,881) * lu(k,2148)
2934 141174528 : lu(k,2162) = lu(k,2162) - lu(k,882) * lu(k,2148)
2935 141174528 : lu(k,2167) = - lu(k,883) * lu(k,2148)
2936 141174528 : lu(k,2168) = lu(k,2168) - lu(k,884) * lu(k,2148)
2937 141174528 : lu(k,2171) = - lu(k,885) * lu(k,2148)
2938 141174528 : lu(k,2172) = - lu(k,886) * lu(k,2148)
2939 141174528 : lu(k,2174) = lu(k,2174) - lu(k,887) * lu(k,2148)
2940 141174528 : lu(k,2176) = lu(k,2176) - lu(k,888) * lu(k,2148)
2941 141174528 : lu(k,2181) = lu(k,2181) - lu(k,889) * lu(k,2148)
2942 141174528 : lu(k,2185) = lu(k,2185) - lu(k,890) * lu(k,2148)
2943 141174528 : lu(k,2188) = lu(k,2188) - lu(k,891) * lu(k,2148)
2944 141174528 : lu(k,2190) = lu(k,2190) - lu(k,892) * lu(k,2148)
2945 141174528 : lu(k,2192) = lu(k,2192) - lu(k,893) * lu(k,2148)
2946 145586232 : lu(k,2193) = lu(k,2193) - lu(k,894) * lu(k,2148)
2947 : end do
2948 4411704 : end subroutine lu_fac18
2949 4411704 : subroutine lu_fac19( avec_len, lu )
2950 : use chem_mods, only : nzcnt
2951 : use shr_kind_mod, only : r8 => shr_kind_r8
2952 : implicit none
2953 : !-----------------------------------------------------------------------
2954 : ! ... dummy args
2955 : !-----------------------------------------------------------------------
2956 : integer, intent(in) :: avec_len
2957 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2958 : !-----------------------------------------------------------------------
2959 : ! ... local variables
2960 : !-----------------------------------------------------------------------
2961 : integer :: k
2962 145586232 : do k = 1,avec_len
2963 141174528 : lu(k,895) = 1._r8 / lu(k,895)
2964 141174528 : lu(k,896) = lu(k,896) * lu(k,895)
2965 141174528 : lu(k,897) = lu(k,897) * lu(k,895)
2966 141174528 : lu(k,898) = lu(k,898) * lu(k,895)
2967 141174528 : lu(k,899) = lu(k,899) * lu(k,895)
2968 141174528 : lu(k,900) = lu(k,900) * lu(k,895)
2969 141174528 : lu(k,1052) = - lu(k,896) * lu(k,1046)
2970 141174528 : lu(k,1053) = - lu(k,897) * lu(k,1046)
2971 141174528 : lu(k,1055) = lu(k,1055) - lu(k,898) * lu(k,1046)
2972 141174528 : lu(k,1056) = lu(k,1056) - lu(k,899) * lu(k,1046)
2973 141174528 : lu(k,1058) = lu(k,1058) - lu(k,900) * lu(k,1046)
2974 141174528 : lu(k,1071) = - lu(k,896) * lu(k,1066)
2975 141174528 : lu(k,1072) = - lu(k,897) * lu(k,1066)
2976 141174528 : lu(k,1074) = - lu(k,898) * lu(k,1066)
2977 141174528 : lu(k,1075) = lu(k,1075) - lu(k,899) * lu(k,1066)
2978 141174528 : lu(k,1077) = lu(k,1077) - lu(k,900) * lu(k,1066)
2979 141174528 : lu(k,1239) = - lu(k,896) * lu(k,1232)
2980 141174528 : lu(k,1241) = lu(k,1241) - lu(k,897) * lu(k,1232)
2981 141174528 : lu(k,1243) = lu(k,1243) - lu(k,898) * lu(k,1232)
2982 141174528 : lu(k,1244) = lu(k,1244) - lu(k,899) * lu(k,1232)
2983 141174528 : lu(k,1246) = lu(k,1246) - lu(k,900) * lu(k,1232)
2984 141174528 : lu(k,1333) = lu(k,1333) - lu(k,896) * lu(k,1323)
2985 141174528 : lu(k,1338) = lu(k,1338) - lu(k,897) * lu(k,1323)
2986 141174528 : lu(k,1340) = lu(k,1340) - lu(k,898) * lu(k,1323)
2987 141174528 : lu(k,1341) = lu(k,1341) - lu(k,899) * lu(k,1323)
2988 141174528 : lu(k,1343) = lu(k,1343) - lu(k,900) * lu(k,1323)
2989 141174528 : lu(k,1806) = lu(k,1806) - lu(k,896) * lu(k,1779)
2990 141174528 : lu(k,1813) = lu(k,1813) - lu(k,897) * lu(k,1779)
2991 141174528 : lu(k,1819) = lu(k,1819) - lu(k,898) * lu(k,1779)
2992 141174528 : lu(k,1820) = lu(k,1820) - lu(k,899) * lu(k,1779)
2993 141174528 : lu(k,1823) = lu(k,1823) - lu(k,900) * lu(k,1779)
2994 141174528 : lu(k,1935) = lu(k,1935) - lu(k,896) * lu(k,1914)
2995 141174528 : lu(k,1941) = lu(k,1941) - lu(k,897) * lu(k,1914)
2996 141174528 : lu(k,1946) = lu(k,1946) - lu(k,898) * lu(k,1914)
2997 141174528 : lu(k,1947) = lu(k,1947) - lu(k,899) * lu(k,1914)
2998 141174528 : lu(k,1950) = lu(k,1950) - lu(k,900) * lu(k,1914)
2999 141174528 : lu(k,1988) = lu(k,1988) - lu(k,896) * lu(k,1971)
3000 141174528 : lu(k,1994) = lu(k,1994) - lu(k,897) * lu(k,1971)
3001 141174528 : lu(k,1998) = lu(k,1998) - lu(k,898) * lu(k,1971)
3002 141174528 : lu(k,1999) = lu(k,1999) - lu(k,899) * lu(k,1971)
3003 141174528 : lu(k,2002) = lu(k,2002) - lu(k,900) * lu(k,1971)
3004 141174528 : lu(k,2068) = lu(k,2068) - lu(k,896) * lu(k,2044)
3005 141174528 : lu(k,2075) = lu(k,2075) - lu(k,897) * lu(k,2044)
3006 141174528 : lu(k,2080) = lu(k,2080) - lu(k,898) * lu(k,2044)
3007 141174528 : lu(k,2081) = lu(k,2081) - lu(k,899) * lu(k,2044)
3008 141174528 : lu(k,2084) = lu(k,2084) - lu(k,900) * lu(k,2044)
3009 141174528 : lu(k,2287) = lu(k,2287) - lu(k,896) * lu(k,2268)
3010 141174528 : lu(k,2293) = lu(k,2293) - lu(k,897) * lu(k,2268)
3011 141174528 : lu(k,2299) = lu(k,2299) - lu(k,898) * lu(k,2268)
3012 141174528 : lu(k,2300) = lu(k,2300) - lu(k,899) * lu(k,2268)
3013 141174528 : lu(k,2303) = lu(k,2303) - lu(k,900) * lu(k,2268)
3014 141174528 : lu(k,902) = 1._r8 / lu(k,902)
3015 141174528 : lu(k,903) = lu(k,903) * lu(k,902)
3016 141174528 : lu(k,904) = lu(k,904) * lu(k,902)
3017 141174528 : lu(k,905) = lu(k,905) * lu(k,902)
3018 141174528 : lu(k,906) = lu(k,906) * lu(k,902)
3019 141174528 : lu(k,907) = lu(k,907) * lu(k,902)
3020 141174528 : lu(k,1276) = lu(k,1276) - lu(k,903) * lu(k,1275)
3021 141174528 : lu(k,1280) = lu(k,1280) - lu(k,904) * lu(k,1275)
3022 141174528 : lu(k,1281) = lu(k,1281) - lu(k,905) * lu(k,1275)
3023 141174528 : lu(k,1286) = - lu(k,906) * lu(k,1275)
3024 141174528 : lu(k,1288) = - lu(k,907) * lu(k,1275)
3025 141174528 : lu(k,1568) = lu(k,1568) - lu(k,903) * lu(k,1561)
3026 141174528 : lu(k,1577) = lu(k,1577) - lu(k,904) * lu(k,1561)
3027 141174528 : lu(k,1579) = lu(k,1579) - lu(k,905) * lu(k,1561)
3028 141174528 : lu(k,1587) = lu(k,1587) - lu(k,906) * lu(k,1561)
3029 141174528 : lu(k,1589) = lu(k,1589) - lu(k,907) * lu(k,1561)
3030 141174528 : lu(k,1600) = lu(k,1600) - lu(k,903) * lu(k,1597)
3031 141174528 : lu(k,1608) = lu(k,1608) - lu(k,904) * lu(k,1597)
3032 141174528 : lu(k,1610) = lu(k,1610) - lu(k,905) * lu(k,1597)
3033 141174528 : lu(k,1618) = lu(k,1618) - lu(k,906) * lu(k,1597)
3034 141174528 : lu(k,1620) = lu(k,1620) - lu(k,907) * lu(k,1597)
3035 141174528 : lu(k,1807) = lu(k,1807) - lu(k,903) * lu(k,1780)
3036 141174528 : lu(k,1821) = lu(k,1821) - lu(k,904) * lu(k,1780)
3037 141174528 : lu(k,1823) = lu(k,1823) - lu(k,905) * lu(k,1780)
3038 141174528 : lu(k,1831) = lu(k,1831) - lu(k,906) * lu(k,1780)
3039 141174528 : lu(k,1833) = lu(k,1833) - lu(k,907) * lu(k,1780)
3040 141174528 : lu(k,1839) = lu(k,1839) - lu(k,903) * lu(k,1838)
3041 141174528 : lu(k,1845) = lu(k,1845) - lu(k,904) * lu(k,1838)
3042 141174528 : lu(k,1847) = lu(k,1847) - lu(k,905) * lu(k,1838)
3043 141174528 : lu(k,1855) = lu(k,1855) - lu(k,906) * lu(k,1838)
3044 141174528 : lu(k,1857) = lu(k,1857) - lu(k,907) * lu(k,1838)
3045 141174528 : lu(k,2069) = - lu(k,903) * lu(k,2045)
3046 141174528 : lu(k,2082) = lu(k,2082) - lu(k,904) * lu(k,2045)
3047 141174528 : lu(k,2084) = lu(k,2084) - lu(k,905) * lu(k,2045)
3048 141174528 : lu(k,2092) = lu(k,2092) - lu(k,906) * lu(k,2045)
3049 141174528 : lu(k,2094) = - lu(k,907) * lu(k,2045)
3050 141174528 : lu(k,2170) = lu(k,2170) - lu(k,903) * lu(k,2149)
3051 141174528 : lu(k,2183) = lu(k,2183) - lu(k,904) * lu(k,2149)
3052 141174528 : lu(k,2185) = lu(k,2185) - lu(k,905) * lu(k,2149)
3053 141174528 : lu(k,2193) = lu(k,2193) - lu(k,906) * lu(k,2149)
3054 141174528 : lu(k,2195) = lu(k,2195) - lu(k,907) * lu(k,2149)
3055 141174528 : lu(k,2321) = lu(k,2321) - lu(k,903) * lu(k,2319)
3056 141174528 : lu(k,2327) = lu(k,2327) - lu(k,904) * lu(k,2319)
3057 141174528 : lu(k,2329) = lu(k,2329) - lu(k,905) * lu(k,2319)
3058 141174528 : lu(k,2337) = lu(k,2337) - lu(k,906) * lu(k,2319)
3059 141174528 : lu(k,2339) = lu(k,2339) - lu(k,907) * lu(k,2319)
3060 141174528 : lu(k,2345) = - lu(k,903) * lu(k,2343)
3061 141174528 : lu(k,2353) = lu(k,2353) - lu(k,904) * lu(k,2343)
3062 141174528 : lu(k,2355) = lu(k,2355) - lu(k,905) * lu(k,2343)
3063 141174528 : lu(k,2363) = - lu(k,906) * lu(k,2343)
3064 141174528 : lu(k,2365) = lu(k,2365) - lu(k,907) * lu(k,2343)
3065 141174528 : lu(k,909) = 1._r8 / lu(k,909)
3066 141174528 : lu(k,910) = lu(k,910) * lu(k,909)
3067 141174528 : lu(k,911) = lu(k,911) * lu(k,909)
3068 141174528 : lu(k,912) = lu(k,912) * lu(k,909)
3069 141174528 : lu(k,913) = lu(k,913) * lu(k,909)
3070 141174528 : lu(k,914) = lu(k,914) * lu(k,909)
3071 141174528 : lu(k,915) = lu(k,915) * lu(k,909)
3072 141174528 : lu(k,916) = lu(k,916) * lu(k,909)
3073 141174528 : lu(k,917) = lu(k,917) * lu(k,909)
3074 141174528 : lu(k,1448) = lu(k,1448) - lu(k,910) * lu(k,1447)
3075 141174528 : lu(k,1449) = - lu(k,911) * lu(k,1447)
3076 141174528 : lu(k,1450) = - lu(k,912) * lu(k,1447)
3077 141174528 : lu(k,1451) = lu(k,1451) - lu(k,913) * lu(k,1447)
3078 141174528 : lu(k,1454) = lu(k,1454) - lu(k,914) * lu(k,1447)
3079 141174528 : lu(k,1455) = - lu(k,915) * lu(k,1447)
3080 141174528 : lu(k,1457) = - lu(k,916) * lu(k,1447)
3081 141174528 : lu(k,1459) = lu(k,1459) - lu(k,917) * lu(k,1447)
3082 141174528 : lu(k,1476) = lu(k,1476) - lu(k,910) * lu(k,1474)
3083 141174528 : lu(k,1477) = lu(k,1477) - lu(k,911) * lu(k,1474)
3084 141174528 : lu(k,1478) = - lu(k,912) * lu(k,1474)
3085 141174528 : lu(k,1479) = lu(k,1479) - lu(k,913) * lu(k,1474)
3086 141174528 : lu(k,1483) = lu(k,1483) - lu(k,914) * lu(k,1474)
3087 141174528 : lu(k,1484) = lu(k,1484) - lu(k,915) * lu(k,1474)
3088 141174528 : lu(k,1486) = - lu(k,916) * lu(k,1474)
3089 141174528 : lu(k,1489) = lu(k,1489) - lu(k,917) * lu(k,1474)
3090 141174528 : lu(k,1492) = - lu(k,910) * lu(k,1491)
3091 141174528 : lu(k,1493) = - lu(k,911) * lu(k,1491)
3092 141174528 : lu(k,1494) = lu(k,1494) - lu(k,912) * lu(k,1491)
3093 141174528 : lu(k,1495) = lu(k,1495) - lu(k,913) * lu(k,1491)
3094 141174528 : lu(k,1500) = lu(k,1500) - lu(k,914) * lu(k,1491)
3095 141174528 : lu(k,1501) = - lu(k,915) * lu(k,1491)
3096 141174528 : lu(k,1503) = lu(k,1503) - lu(k,916) * lu(k,1491)
3097 141174528 : lu(k,1506) = lu(k,1506) - lu(k,917) * lu(k,1491)
3098 141174528 : lu(k,1642) = lu(k,1642) - lu(k,910) * lu(k,1641)
3099 141174528 : lu(k,1644) = lu(k,1644) - lu(k,911) * lu(k,1641)
3100 141174528 : lu(k,1645) = - lu(k,912) * lu(k,1641)
3101 141174528 : lu(k,1646) = lu(k,1646) - lu(k,913) * lu(k,1641)
3102 141174528 : lu(k,1651) = lu(k,1651) - lu(k,914) * lu(k,1641)
3103 141174528 : lu(k,1654) = lu(k,1654) - lu(k,915) * lu(k,1641)
3104 141174528 : lu(k,1656) = - lu(k,916) * lu(k,1641)
3105 141174528 : lu(k,1661) = lu(k,1661) - lu(k,917) * lu(k,1641)
3106 141174528 : lu(k,1814) = lu(k,1814) - lu(k,910) * lu(k,1781)
3107 141174528 : lu(k,1816) = lu(k,1816) - lu(k,911) * lu(k,1781)
3108 141174528 : lu(k,1817) = lu(k,1817) - lu(k,912) * lu(k,1781)
3109 141174528 : lu(k,1818) = lu(k,1818) - lu(k,913) * lu(k,1781)
3110 141174528 : lu(k,1823) = lu(k,1823) - lu(k,914) * lu(k,1781)
3111 141174528 : lu(k,1826) = lu(k,1826) - lu(k,915) * lu(k,1781)
3112 141174528 : lu(k,1828) = lu(k,1828) - lu(k,916) * lu(k,1781)
3113 141174528 : lu(k,1833) = lu(k,1833) - lu(k,917) * lu(k,1781)
3114 141174528 : lu(k,2346) = lu(k,2346) - lu(k,910) * lu(k,2344)
3115 141174528 : lu(k,2348) = - lu(k,911) * lu(k,2344)
3116 141174528 : lu(k,2349) = - lu(k,912) * lu(k,2344)
3117 141174528 : lu(k,2350) = lu(k,2350) - lu(k,913) * lu(k,2344)
3118 141174528 : lu(k,2355) = lu(k,2355) - lu(k,914) * lu(k,2344)
3119 141174528 : lu(k,2358) = - lu(k,915) * lu(k,2344)
3120 141174528 : lu(k,2360) = - lu(k,916) * lu(k,2344)
3121 141174528 : lu(k,2365) = lu(k,2365) - lu(k,917) * lu(k,2344)
3122 141174528 : lu(k,918) = 1._r8 / lu(k,918)
3123 141174528 : lu(k,919) = lu(k,919) * lu(k,918)
3124 141174528 : lu(k,920) = lu(k,920) * lu(k,918)
3125 141174528 : lu(k,921) = lu(k,921) * lu(k,918)
3126 141174528 : lu(k,922) = lu(k,922) * lu(k,918)
3127 141174528 : lu(k,923) = lu(k,923) * lu(k,918)
3128 141174528 : lu(k,924) = lu(k,924) * lu(k,918)
3129 141174528 : lu(k,925) = lu(k,925) * lu(k,918)
3130 141174528 : lu(k,926) = lu(k,926) * lu(k,918)
3131 141174528 : lu(k,1068) = lu(k,1068) - lu(k,919) * lu(k,1067)
3132 141174528 : lu(k,1070) = lu(k,1070) - lu(k,920) * lu(k,1067)
3133 141174528 : lu(k,1071) = lu(k,1071) - lu(k,921) * lu(k,1067)
3134 141174528 : lu(k,1075) = lu(k,1075) - lu(k,922) * lu(k,1067)
3135 141174528 : lu(k,1077) = lu(k,1077) - lu(k,923) * lu(k,1067)
3136 141174528 : lu(k,1078) = - lu(k,924) * lu(k,1067)
3137 141174528 : lu(k,1079) = - lu(k,925) * lu(k,1067)
3138 141174528 : lu(k,1080) = lu(k,1080) - lu(k,926) * lu(k,1067)
3139 141174528 : lu(k,1325) = lu(k,1325) - lu(k,919) * lu(k,1324)
3140 141174528 : lu(k,1327) = lu(k,1327) - lu(k,920) * lu(k,1324)
3141 141174528 : lu(k,1333) = lu(k,1333) - lu(k,921) * lu(k,1324)
3142 141174528 : lu(k,1341) = lu(k,1341) - lu(k,922) * lu(k,1324)
3143 141174528 : lu(k,1343) = lu(k,1343) - lu(k,923) * lu(k,1324)
3144 141174528 : lu(k,1344) = lu(k,1344) - lu(k,924) * lu(k,1324)
3145 141174528 : lu(k,1345) = lu(k,1345) - lu(k,925) * lu(k,1324)
3146 141174528 : lu(k,1348) = lu(k,1348) - lu(k,926) * lu(k,1324)
3147 141174528 : lu(k,1564) = lu(k,1564) - lu(k,919) * lu(k,1562)
3148 141174528 : lu(k,1565) = lu(k,1565) - lu(k,920) * lu(k,1562)
3149 141174528 : lu(k,1567) = lu(k,1567) - lu(k,921) * lu(k,1562)
3150 141174528 : lu(k,1576) = lu(k,1576) - lu(k,922) * lu(k,1562)
3151 141174528 : lu(k,1579) = lu(k,1579) - lu(k,923) * lu(k,1562)
3152 141174528 : lu(k,1581) = lu(k,1581) - lu(k,924) * lu(k,1562)
3153 141174528 : lu(k,1582) = lu(k,1582) - lu(k,925) * lu(k,1562)
3154 141174528 : lu(k,1587) = lu(k,1587) - lu(k,926) * lu(k,1562)
3155 141174528 : lu(k,1788) = lu(k,1788) - lu(k,919) * lu(k,1782)
3156 141174528 : lu(k,1797) = lu(k,1797) - lu(k,920) * lu(k,1782)
3157 141174528 : lu(k,1806) = lu(k,1806) - lu(k,921) * lu(k,1782)
3158 141174528 : lu(k,1820) = lu(k,1820) - lu(k,922) * lu(k,1782)
3159 141174528 : lu(k,1823) = lu(k,1823) - lu(k,923) * lu(k,1782)
3160 141174528 : lu(k,1825) = lu(k,1825) - lu(k,924) * lu(k,1782)
3161 141174528 : lu(k,1826) = lu(k,1826) - lu(k,925) * lu(k,1782)
3162 141174528 : lu(k,1831) = lu(k,1831) - lu(k,926) * lu(k,1782)
3163 141174528 : lu(k,1919) = lu(k,1919) - lu(k,919) * lu(k,1915)
3164 141174528 : lu(k,1926) = lu(k,1926) - lu(k,920) * lu(k,1915)
3165 141174528 : lu(k,1935) = lu(k,1935) - lu(k,921) * lu(k,1915)
3166 141174528 : lu(k,1947) = lu(k,1947) - lu(k,922) * lu(k,1915)
3167 141174528 : lu(k,1950) = lu(k,1950) - lu(k,923) * lu(k,1915)
3168 141174528 : lu(k,1952) = lu(k,1952) - lu(k,924) * lu(k,1915)
3169 141174528 : lu(k,1953) = lu(k,1953) - lu(k,925) * lu(k,1915)
3170 141174528 : lu(k,1958) = lu(k,1958) - lu(k,926) * lu(k,1915)
3171 141174528 : lu(k,2273) = lu(k,2273) - lu(k,919) * lu(k,2269)
3172 141174528 : lu(k,2279) = lu(k,2279) - lu(k,920) * lu(k,2269)
3173 141174528 : lu(k,2287) = lu(k,2287) - lu(k,921) * lu(k,2269)
3174 141174528 : lu(k,2300) = lu(k,2300) - lu(k,922) * lu(k,2269)
3175 141174528 : lu(k,2303) = lu(k,2303) - lu(k,923) * lu(k,2269)
3176 141174528 : lu(k,2305) = lu(k,2305) - lu(k,924) * lu(k,2269)
3177 141174528 : lu(k,2306) = lu(k,2306) - lu(k,925) * lu(k,2269)
3178 145586232 : lu(k,2311) = lu(k,2311) - lu(k,926) * lu(k,2269)
3179 : end do
3180 4411704 : end subroutine lu_fac19
3181 4411704 : subroutine lu_fac20( avec_len, lu )
3182 : use chem_mods, only : nzcnt
3183 : use shr_kind_mod, only : r8 => shr_kind_r8
3184 : implicit none
3185 : !-----------------------------------------------------------------------
3186 : ! ... dummy args
3187 : !-----------------------------------------------------------------------
3188 : integer, intent(in) :: avec_len
3189 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3190 : !-----------------------------------------------------------------------
3191 : ! ... local variables
3192 : !-----------------------------------------------------------------------
3193 : integer :: k
3194 145586232 : do k = 1,avec_len
3195 141174528 : lu(k,936) = 1._r8 / lu(k,936)
3196 141174528 : lu(k,937) = lu(k,937) * lu(k,936)
3197 141174528 : lu(k,938) = lu(k,938) * lu(k,936)
3198 141174528 : lu(k,939) = lu(k,939) * lu(k,936)
3199 141174528 : lu(k,940) = lu(k,940) * lu(k,936)
3200 141174528 : lu(k,941) = lu(k,941) * lu(k,936)
3201 141174528 : lu(k,942) = lu(k,942) * lu(k,936)
3202 141174528 : lu(k,943) = lu(k,943) * lu(k,936)
3203 141174528 : lu(k,944) = lu(k,944) * lu(k,936)
3204 141174528 : lu(k,945) = lu(k,945) * lu(k,936)
3205 141174528 : lu(k,946) = lu(k,946) * lu(k,936)
3206 141174528 : lu(k,947) = lu(k,947) * lu(k,936)
3207 141174528 : lu(k,948) = lu(k,948) * lu(k,936)
3208 141174528 : lu(k,949) = lu(k,949) * lu(k,936)
3209 141174528 : lu(k,950) = lu(k,950) * lu(k,936)
3210 141174528 : lu(k,951) = lu(k,951) * lu(k,936)
3211 141174528 : lu(k,952) = lu(k,952) * lu(k,936)
3212 141174528 : lu(k,953) = lu(k,953) * lu(k,936)
3213 141174528 : lu(k,954) = lu(k,954) * lu(k,936)
3214 141174528 : lu(k,1784) = lu(k,1784) - lu(k,937) * lu(k,1783)
3215 141174528 : lu(k,1786) = lu(k,1786) - lu(k,938) * lu(k,1783)
3216 141174528 : lu(k,1787) = lu(k,1787) - lu(k,939) * lu(k,1783)
3217 141174528 : lu(k,1788) = lu(k,1788) - lu(k,940) * lu(k,1783)
3218 141174528 : lu(k,1790) = lu(k,1790) - lu(k,941) * lu(k,1783)
3219 141174528 : lu(k,1795) = lu(k,1795) - lu(k,942) * lu(k,1783)
3220 141174528 : lu(k,1796) = lu(k,1796) - lu(k,943) * lu(k,1783)
3221 141174528 : lu(k,1797) = lu(k,1797) - lu(k,944) * lu(k,1783)
3222 141174528 : lu(k,1801) = lu(k,1801) - lu(k,945) * lu(k,1783)
3223 141174528 : lu(k,1802) = lu(k,1802) - lu(k,946) * lu(k,1783)
3224 141174528 : lu(k,1806) = lu(k,1806) - lu(k,947) * lu(k,1783)
3225 141174528 : lu(k,1813) = lu(k,1813) - lu(k,948) * lu(k,1783)
3226 141174528 : lu(k,1819) = lu(k,1819) - lu(k,949) * lu(k,1783)
3227 141174528 : lu(k,1821) = lu(k,1821) - lu(k,950) * lu(k,1783)
3228 141174528 : lu(k,1823) = lu(k,1823) - lu(k,951) * lu(k,1783)
3229 141174528 : lu(k,1828) = lu(k,1828) - lu(k,952) * lu(k,1783)
3230 141174528 : lu(k,1830) = lu(k,1830) - lu(k,953) * lu(k,1783)
3231 141174528 : lu(k,1831) = lu(k,1831) - lu(k,954) * lu(k,1783)
3232 141174528 : lu(k,2047) = - lu(k,937) * lu(k,2046)
3233 141174528 : lu(k,2048) = lu(k,2048) - lu(k,938) * lu(k,2046)
3234 141174528 : lu(k,2049) = lu(k,2049) - lu(k,939) * lu(k,2046)
3235 141174528 : lu(k,2050) = lu(k,2050) - lu(k,940) * lu(k,2046)
3236 141174528 : lu(k,2052) = lu(k,2052) - lu(k,941) * lu(k,2046)
3237 141174528 : lu(k,2057) = lu(k,2057) - lu(k,942) * lu(k,2046)
3238 141174528 : lu(k,2058) = - lu(k,943) * lu(k,2046)
3239 141174528 : lu(k,2059) = lu(k,2059) - lu(k,944) * lu(k,2046)
3240 141174528 : lu(k,2063) = - lu(k,945) * lu(k,2046)
3241 141174528 : lu(k,2064) = - lu(k,946) * lu(k,2046)
3242 141174528 : lu(k,2068) = lu(k,2068) - lu(k,947) * lu(k,2046)
3243 141174528 : lu(k,2075) = lu(k,2075) - lu(k,948) * lu(k,2046)
3244 141174528 : lu(k,2080) = lu(k,2080) - lu(k,949) * lu(k,2046)
3245 141174528 : lu(k,2082) = lu(k,2082) - lu(k,950) * lu(k,2046)
3246 141174528 : lu(k,2084) = lu(k,2084) - lu(k,951) * lu(k,2046)
3247 141174528 : lu(k,2089) = lu(k,2089) - lu(k,952) * lu(k,2046)
3248 141174528 : lu(k,2091) = lu(k,2091) - lu(k,953) * lu(k,2046)
3249 141174528 : lu(k,2092) = lu(k,2092) - lu(k,954) * lu(k,2046)
3250 141174528 : lu(k,2151) = lu(k,2151) - lu(k,937) * lu(k,2150)
3251 141174528 : lu(k,2152) = lu(k,2152) - lu(k,938) * lu(k,2150)
3252 141174528 : lu(k,2153) = lu(k,2153) - lu(k,939) * lu(k,2150)
3253 141174528 : lu(k,2154) = lu(k,2154) - lu(k,940) * lu(k,2150)
3254 141174528 : lu(k,2156) = lu(k,2156) - lu(k,941) * lu(k,2150)
3255 141174528 : lu(k,2160) = - lu(k,942) * lu(k,2150)
3256 141174528 : lu(k,2161) = lu(k,2161) - lu(k,943) * lu(k,2150)
3257 141174528 : lu(k,2162) = lu(k,2162) - lu(k,944) * lu(k,2150)
3258 141174528 : lu(k,2165) = - lu(k,945) * lu(k,2150)
3259 141174528 : lu(k,2166) = lu(k,2166) - lu(k,946) * lu(k,2150)
3260 141174528 : lu(k,2169) = lu(k,2169) - lu(k,947) * lu(k,2150)
3261 141174528 : lu(k,2176) = lu(k,2176) - lu(k,948) * lu(k,2150)
3262 141174528 : lu(k,2181) = lu(k,2181) - lu(k,949) * lu(k,2150)
3263 141174528 : lu(k,2183) = lu(k,2183) - lu(k,950) * lu(k,2150)
3264 141174528 : lu(k,2185) = lu(k,2185) - lu(k,951) * lu(k,2150)
3265 141174528 : lu(k,2190) = lu(k,2190) - lu(k,952) * lu(k,2150)
3266 141174528 : lu(k,2192) = lu(k,2192) - lu(k,953) * lu(k,2150)
3267 141174528 : lu(k,2193) = lu(k,2193) - lu(k,954) * lu(k,2150)
3268 141174528 : lu(k,960) = 1._r8 / lu(k,960)
3269 141174528 : lu(k,961) = lu(k,961) * lu(k,960)
3270 141174528 : lu(k,962) = lu(k,962) * lu(k,960)
3271 141174528 : lu(k,963) = lu(k,963) * lu(k,960)
3272 141174528 : lu(k,964) = lu(k,964) * lu(k,960)
3273 141174528 : lu(k,965) = lu(k,965) * lu(k,960)
3274 141174528 : lu(k,966) = lu(k,966) * lu(k,960)
3275 141174528 : lu(k,967) = lu(k,967) * lu(k,960)
3276 141174528 : lu(k,968) = lu(k,968) * lu(k,960)
3277 141174528 : lu(k,969) = lu(k,969) * lu(k,960)
3278 141174528 : lu(k,1012) = lu(k,1012) - lu(k,961) * lu(k,1011)
3279 141174528 : lu(k,1017) = - lu(k,962) * lu(k,1011)
3280 141174528 : lu(k,1024) = lu(k,1024) - lu(k,963) * lu(k,1011)
3281 141174528 : lu(k,1025) = lu(k,1025) - lu(k,964) * lu(k,1011)
3282 141174528 : lu(k,1026) = - lu(k,965) * lu(k,1011)
3283 141174528 : lu(k,1028) = lu(k,1028) - lu(k,966) * lu(k,1011)
3284 141174528 : lu(k,1029) = - lu(k,967) * lu(k,1011)
3285 141174528 : lu(k,1030) = - lu(k,968) * lu(k,1011)
3286 141174528 : lu(k,1033) = lu(k,1033) - lu(k,969) * lu(k,1011)
3287 141174528 : lu(k,1786) = lu(k,1786) - lu(k,961) * lu(k,1784)
3288 141174528 : lu(k,1793) = lu(k,1793) - lu(k,962) * lu(k,1784)
3289 141174528 : lu(k,1813) = lu(k,1813) - lu(k,963) * lu(k,1784)
3290 141174528 : lu(k,1819) = lu(k,1819) - lu(k,964) * lu(k,1784)
3291 141174528 : lu(k,1820) = lu(k,1820) - lu(k,965) * lu(k,1784)
3292 141174528 : lu(k,1823) = lu(k,1823) - lu(k,966) * lu(k,1784)
3293 141174528 : lu(k,1825) = lu(k,1825) - lu(k,967) * lu(k,1784)
3294 141174528 : lu(k,1826) = lu(k,1826) - lu(k,968) * lu(k,1784)
3295 141174528 : lu(k,1831) = lu(k,1831) - lu(k,969) * lu(k,1784)
3296 141174528 : lu(k,1917) = lu(k,1917) - lu(k,961) * lu(k,1916)
3297 141174528 : lu(k,1922) = lu(k,1922) - lu(k,962) * lu(k,1916)
3298 141174528 : lu(k,1941) = lu(k,1941) - lu(k,963) * lu(k,1916)
3299 141174528 : lu(k,1946) = lu(k,1946) - lu(k,964) * lu(k,1916)
3300 141174528 : lu(k,1947) = lu(k,1947) - lu(k,965) * lu(k,1916)
3301 141174528 : lu(k,1950) = lu(k,1950) - lu(k,966) * lu(k,1916)
3302 141174528 : lu(k,1952) = lu(k,1952) - lu(k,967) * lu(k,1916)
3303 141174528 : lu(k,1953) = lu(k,1953) - lu(k,968) * lu(k,1916)
3304 141174528 : lu(k,1958) = lu(k,1958) - lu(k,969) * lu(k,1916)
3305 141174528 : lu(k,2048) = lu(k,2048) - lu(k,961) * lu(k,2047)
3306 141174528 : lu(k,2055) = lu(k,2055) - lu(k,962) * lu(k,2047)
3307 141174528 : lu(k,2075) = lu(k,2075) - lu(k,963) * lu(k,2047)
3308 141174528 : lu(k,2080) = lu(k,2080) - lu(k,964) * lu(k,2047)
3309 141174528 : lu(k,2081) = lu(k,2081) - lu(k,965) * lu(k,2047)
3310 141174528 : lu(k,2084) = lu(k,2084) - lu(k,966) * lu(k,2047)
3311 141174528 : lu(k,2086) = lu(k,2086) - lu(k,967) * lu(k,2047)
3312 141174528 : lu(k,2087) = lu(k,2087) - lu(k,968) * lu(k,2047)
3313 141174528 : lu(k,2092) = lu(k,2092) - lu(k,969) * lu(k,2047)
3314 141174528 : lu(k,2152) = lu(k,2152) - lu(k,961) * lu(k,2151)
3315 141174528 : lu(k,2158) = lu(k,2158) - lu(k,962) * lu(k,2151)
3316 141174528 : lu(k,2176) = lu(k,2176) - lu(k,963) * lu(k,2151)
3317 141174528 : lu(k,2181) = lu(k,2181) - lu(k,964) * lu(k,2151)
3318 141174528 : lu(k,2182) = lu(k,2182) - lu(k,965) * lu(k,2151)
3319 141174528 : lu(k,2185) = lu(k,2185) - lu(k,966) * lu(k,2151)
3320 141174528 : lu(k,2187) = lu(k,2187) - lu(k,967) * lu(k,2151)
3321 141174528 : lu(k,2188) = lu(k,2188) - lu(k,968) * lu(k,2151)
3322 141174528 : lu(k,2193) = lu(k,2193) - lu(k,969) * lu(k,2151)
3323 141174528 : lu(k,2271) = lu(k,2271) - lu(k,961) * lu(k,2270)
3324 141174528 : lu(k,2275) = lu(k,2275) - lu(k,962) * lu(k,2270)
3325 141174528 : lu(k,2293) = lu(k,2293) - lu(k,963) * lu(k,2270)
3326 141174528 : lu(k,2299) = lu(k,2299) - lu(k,964) * lu(k,2270)
3327 141174528 : lu(k,2300) = lu(k,2300) - lu(k,965) * lu(k,2270)
3328 141174528 : lu(k,2303) = lu(k,2303) - lu(k,966) * lu(k,2270)
3329 141174528 : lu(k,2305) = lu(k,2305) - lu(k,967) * lu(k,2270)
3330 141174528 : lu(k,2306) = lu(k,2306) - lu(k,968) * lu(k,2270)
3331 141174528 : lu(k,2311) = lu(k,2311) - lu(k,969) * lu(k,2270)
3332 141174528 : lu(k,972) = 1._r8 / lu(k,972)
3333 141174528 : lu(k,973) = lu(k,973) * lu(k,972)
3334 141174528 : lu(k,974) = lu(k,974) * lu(k,972)
3335 141174528 : lu(k,975) = lu(k,975) * lu(k,972)
3336 141174528 : lu(k,976) = lu(k,976) * lu(k,972)
3337 141174528 : lu(k,977) = lu(k,977) * lu(k,972)
3338 141174528 : lu(k,978) = lu(k,978) * lu(k,972)
3339 141174528 : lu(k,979) = lu(k,979) * lu(k,972)
3340 141174528 : lu(k,980) = lu(k,980) * lu(k,972)
3341 141174528 : lu(k,981) = lu(k,981) * lu(k,972)
3342 141174528 : lu(k,1573) = lu(k,1573) - lu(k,973) * lu(k,1563)
3343 141174528 : lu(k,1576) = lu(k,1576) - lu(k,974) * lu(k,1563)
3344 141174528 : lu(k,1577) = lu(k,1577) - lu(k,975) * lu(k,1563)
3345 141174528 : lu(k,1579) = lu(k,1579) - lu(k,976) * lu(k,1563)
3346 141174528 : lu(k,1583) = lu(k,1583) - lu(k,977) * lu(k,1563)
3347 141174528 : lu(k,1584) = lu(k,1584) - lu(k,978) * lu(k,1563)
3348 141174528 : lu(k,1585) = lu(k,1585) - lu(k,979) * lu(k,1563)
3349 141174528 : lu(k,1588) = lu(k,1588) - lu(k,980) * lu(k,1563)
3350 141174528 : lu(k,1589) = lu(k,1589) - lu(k,981) * lu(k,1563)
3351 141174528 : lu(k,1604) = lu(k,1604) - lu(k,973) * lu(k,1598)
3352 141174528 : lu(k,1607) = lu(k,1607) - lu(k,974) * lu(k,1598)
3353 141174528 : lu(k,1608) = lu(k,1608) - lu(k,975) * lu(k,1598)
3354 141174528 : lu(k,1610) = lu(k,1610) - lu(k,976) * lu(k,1598)
3355 141174528 : lu(k,1614) = lu(k,1614) - lu(k,977) * lu(k,1598)
3356 141174528 : lu(k,1615) = lu(k,1615) - lu(k,978) * lu(k,1598)
3357 141174528 : lu(k,1616) = lu(k,1616) - lu(k,979) * lu(k,1598)
3358 141174528 : lu(k,1619) = lu(k,1619) - lu(k,980) * lu(k,1598)
3359 141174528 : lu(k,1620) = lu(k,1620) - lu(k,981) * lu(k,1598)
3360 141174528 : lu(k,1817) = lu(k,1817) - lu(k,973) * lu(k,1785)
3361 141174528 : lu(k,1820) = lu(k,1820) - lu(k,974) * lu(k,1785)
3362 141174528 : lu(k,1821) = lu(k,1821) - lu(k,975) * lu(k,1785)
3363 141174528 : lu(k,1823) = lu(k,1823) - lu(k,976) * lu(k,1785)
3364 141174528 : lu(k,1827) = lu(k,1827) - lu(k,977) * lu(k,1785)
3365 141174528 : lu(k,1828) = lu(k,1828) - lu(k,978) * lu(k,1785)
3366 141174528 : lu(k,1829) = lu(k,1829) - lu(k,979) * lu(k,1785)
3367 141174528 : lu(k,1832) = lu(k,1832) - lu(k,980) * lu(k,1785)
3368 141174528 : lu(k,1833) = lu(k,1833) - lu(k,981) * lu(k,1785)
3369 141174528 : lu(k,2019) = lu(k,2019) - lu(k,973) * lu(k,2017)
3370 141174528 : lu(k,2022) = - lu(k,974) * lu(k,2017)
3371 141174528 : lu(k,2023) = lu(k,2023) - lu(k,975) * lu(k,2017)
3372 141174528 : lu(k,2025) = lu(k,2025) - lu(k,976) * lu(k,2017)
3373 141174528 : lu(k,2029) = lu(k,2029) - lu(k,977) * lu(k,2017)
3374 141174528 : lu(k,2030) = - lu(k,978) * lu(k,2017)
3375 141174528 : lu(k,2031) = lu(k,2031) - lu(k,979) * lu(k,2017)
3376 141174528 : lu(k,2034) = lu(k,2034) - lu(k,980) * lu(k,2017)
3377 141174528 : lu(k,2035) = lu(k,2035) - lu(k,981) * lu(k,2017)
3378 141174528 : lu(k,2117) = - lu(k,973) * lu(k,2107)
3379 141174528 : lu(k,2120) = lu(k,2120) - lu(k,974) * lu(k,2107)
3380 141174528 : lu(k,2121) = lu(k,2121) - lu(k,975) * lu(k,2107)
3381 141174528 : lu(k,2123) = lu(k,2123) - lu(k,976) * lu(k,2107)
3382 141174528 : lu(k,2127) = lu(k,2127) - lu(k,977) * lu(k,2107)
3383 141174528 : lu(k,2128) = lu(k,2128) - lu(k,978) * lu(k,2107)
3384 141174528 : lu(k,2129) = lu(k,2129) - lu(k,979) * lu(k,2107)
3385 141174528 : lu(k,2132) = lu(k,2132) - lu(k,980) * lu(k,2107)
3386 141174528 : lu(k,2133) = lu(k,2133) - lu(k,981) * lu(k,2107)
3387 141174528 : lu(k,2323) = - lu(k,973) * lu(k,2320)
3388 141174528 : lu(k,2326) = lu(k,2326) - lu(k,974) * lu(k,2320)
3389 141174528 : lu(k,2327) = lu(k,2327) - lu(k,975) * lu(k,2320)
3390 141174528 : lu(k,2329) = lu(k,2329) - lu(k,976) * lu(k,2320)
3391 141174528 : lu(k,2333) = lu(k,2333) - lu(k,977) * lu(k,2320)
3392 141174528 : lu(k,2334) = - lu(k,978) * lu(k,2320)
3393 141174528 : lu(k,2335) = lu(k,2335) - lu(k,979) * lu(k,2320)
3394 141174528 : lu(k,2338) = lu(k,2338) - lu(k,980) * lu(k,2320)
3395 145586232 : lu(k,2339) = lu(k,2339) - lu(k,981) * lu(k,2320)
3396 : end do
3397 4411704 : end subroutine lu_fac20
3398 4411704 : subroutine lu_fac21( avec_len, lu )
3399 : use chem_mods, only : nzcnt
3400 : use shr_kind_mod, only : r8 => shr_kind_r8
3401 : implicit none
3402 : !-----------------------------------------------------------------------
3403 : ! ... dummy args
3404 : !-----------------------------------------------------------------------
3405 : integer, intent(in) :: avec_len
3406 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3407 : !-----------------------------------------------------------------------
3408 : ! ... local variables
3409 : !-----------------------------------------------------------------------
3410 : integer :: k
3411 145586232 : do k = 1,avec_len
3412 141174528 : lu(k,982) = 1._r8 / lu(k,982)
3413 141174528 : lu(k,983) = lu(k,983) * lu(k,982)
3414 141174528 : lu(k,984) = lu(k,984) * lu(k,982)
3415 141174528 : lu(k,985) = lu(k,985) * lu(k,982)
3416 141174528 : lu(k,986) = lu(k,986) * lu(k,982)
3417 141174528 : lu(k,987) = lu(k,987) * lu(k,982)
3418 141174528 : lu(k,1022) = lu(k,1022) - lu(k,983) * lu(k,1012)
3419 141174528 : lu(k,1024) = lu(k,1024) - lu(k,984) * lu(k,1012)
3420 141174528 : lu(k,1028) = lu(k,1028) - lu(k,985) * lu(k,1012)
3421 141174528 : lu(k,1030) = lu(k,1030) - lu(k,986) * lu(k,1012)
3422 141174528 : lu(k,1034) = - lu(k,987) * lu(k,1012)
3423 141174528 : lu(k,1118) = lu(k,1118) - lu(k,983) * lu(k,1115)
3424 141174528 : lu(k,1119) = lu(k,1119) - lu(k,984) * lu(k,1115)
3425 141174528 : lu(k,1122) = lu(k,1122) - lu(k,985) * lu(k,1115)
3426 141174528 : lu(k,1123) = - lu(k,986) * lu(k,1115)
3427 141174528 : lu(k,1125) = - lu(k,987) * lu(k,1115)
3428 141174528 : lu(k,1138) = - lu(k,983) * lu(k,1132)
3429 141174528 : lu(k,1139) = lu(k,1139) - lu(k,984) * lu(k,1132)
3430 141174528 : lu(k,1144) = lu(k,1144) - lu(k,985) * lu(k,1132)
3431 141174528 : lu(k,1145) = - lu(k,986) * lu(k,1132)
3432 141174528 : lu(k,1148) = - lu(k,987) * lu(k,1132)
3433 141174528 : lu(k,1164) = - lu(k,983) * lu(k,1159)
3434 141174528 : lu(k,1165) = - lu(k,984) * lu(k,1159)
3435 141174528 : lu(k,1170) = lu(k,1170) - lu(k,985) * lu(k,1159)
3436 141174528 : lu(k,1172) = lu(k,1172) - lu(k,986) * lu(k,1159)
3437 141174528 : lu(k,1174) = - lu(k,987) * lu(k,1159)
3438 141174528 : lu(k,1185) = - lu(k,983) * lu(k,1178)
3439 141174528 : lu(k,1186) = - lu(k,984) * lu(k,1178)
3440 141174528 : lu(k,1191) = lu(k,1191) - lu(k,985) * lu(k,1178)
3441 141174528 : lu(k,1193) = lu(k,1193) - lu(k,986) * lu(k,1178)
3442 141174528 : lu(k,1196) = - lu(k,987) * lu(k,1178)
3443 141174528 : lu(k,1802) = lu(k,1802) - lu(k,983) * lu(k,1786)
3444 141174528 : lu(k,1813) = lu(k,1813) - lu(k,984) * lu(k,1786)
3445 141174528 : lu(k,1823) = lu(k,1823) - lu(k,985) * lu(k,1786)
3446 141174528 : lu(k,1826) = lu(k,1826) - lu(k,986) * lu(k,1786)
3447 141174528 : lu(k,1833) = lu(k,1833) - lu(k,987) * lu(k,1786)
3448 141174528 : lu(k,1931) = lu(k,1931) - lu(k,983) * lu(k,1917)
3449 141174528 : lu(k,1941) = lu(k,1941) - lu(k,984) * lu(k,1917)
3450 141174528 : lu(k,1950) = lu(k,1950) - lu(k,985) * lu(k,1917)
3451 141174528 : lu(k,1953) = lu(k,1953) - lu(k,986) * lu(k,1917)
3452 141174528 : lu(k,1960) = lu(k,1960) - lu(k,987) * lu(k,1917)
3453 141174528 : lu(k,1984) = lu(k,1984) - lu(k,983) * lu(k,1972)
3454 141174528 : lu(k,1994) = lu(k,1994) - lu(k,984) * lu(k,1972)
3455 141174528 : lu(k,2002) = lu(k,2002) - lu(k,985) * lu(k,1972)
3456 141174528 : lu(k,2005) = lu(k,2005) - lu(k,986) * lu(k,1972)
3457 141174528 : lu(k,2012) = lu(k,2012) - lu(k,987) * lu(k,1972)
3458 141174528 : lu(k,2064) = lu(k,2064) - lu(k,983) * lu(k,2048)
3459 141174528 : lu(k,2075) = lu(k,2075) - lu(k,984) * lu(k,2048)
3460 141174528 : lu(k,2084) = lu(k,2084) - lu(k,985) * lu(k,2048)
3461 141174528 : lu(k,2087) = lu(k,2087) - lu(k,986) * lu(k,2048)
3462 141174528 : lu(k,2094) = lu(k,2094) - lu(k,987) * lu(k,2048)
3463 141174528 : lu(k,2166) = lu(k,2166) - lu(k,983) * lu(k,2152)
3464 141174528 : lu(k,2176) = lu(k,2176) - lu(k,984) * lu(k,2152)
3465 141174528 : lu(k,2185) = lu(k,2185) - lu(k,985) * lu(k,2152)
3466 141174528 : lu(k,2188) = lu(k,2188) - lu(k,986) * lu(k,2152)
3467 141174528 : lu(k,2195) = lu(k,2195) - lu(k,987) * lu(k,2152)
3468 141174528 : lu(k,2283) = lu(k,2283) - lu(k,983) * lu(k,2271)
3469 141174528 : lu(k,2293) = lu(k,2293) - lu(k,984) * lu(k,2271)
3470 141174528 : lu(k,2303) = lu(k,2303) - lu(k,985) * lu(k,2271)
3471 141174528 : lu(k,2306) = lu(k,2306) - lu(k,986) * lu(k,2271)
3472 141174528 : lu(k,2313) = lu(k,2313) - lu(k,987) * lu(k,2271)
3473 141174528 : lu(k,989) = 1._r8 / lu(k,989)
3474 141174528 : lu(k,990) = lu(k,990) * lu(k,989)
3475 141174528 : lu(k,991) = lu(k,991) * lu(k,989)
3476 141174528 : lu(k,992) = lu(k,992) * lu(k,989)
3477 141174528 : lu(k,993) = lu(k,993) * lu(k,989)
3478 141174528 : lu(k,994) = lu(k,994) * lu(k,989)
3479 141174528 : lu(k,1020) = lu(k,1020) - lu(k,990) * lu(k,1013)
3480 141174528 : lu(k,1027) = lu(k,1027) - lu(k,991) * lu(k,1013)
3481 141174528 : lu(k,1028) = lu(k,1028) - lu(k,992) * lu(k,1013)
3482 141174528 : lu(k,1033) = lu(k,1033) - lu(k,993) * lu(k,1013)
3483 141174528 : lu(k,1034) = lu(k,1034) - lu(k,994) * lu(k,1013)
3484 141174528 : lu(k,1050) = lu(k,1050) - lu(k,990) * lu(k,1047)
3485 141174528 : lu(k,1057) = lu(k,1057) - lu(k,991) * lu(k,1047)
3486 141174528 : lu(k,1058) = lu(k,1058) - lu(k,992) * lu(k,1047)
3487 141174528 : lu(k,1063) = lu(k,1063) - lu(k,993) * lu(k,1047)
3488 141174528 : lu(k,1064) = lu(k,1064) - lu(k,994) * lu(k,1047)
3489 141174528 : lu(k,1252) = lu(k,1252) - lu(k,990) * lu(k,1251)
3490 141174528 : lu(k,1259) = - lu(k,991) * lu(k,1251)
3491 141174528 : lu(k,1260) = lu(k,1260) - lu(k,992) * lu(k,1251)
3492 141174528 : lu(k,1262) = lu(k,1262) - lu(k,993) * lu(k,1251)
3493 141174528 : lu(k,1263) = lu(k,1263) - lu(k,994) * lu(k,1251)
3494 141174528 : lu(k,1375) = lu(k,1375) - lu(k,990) * lu(k,1372)
3495 141174528 : lu(k,1386) = lu(k,1386) - lu(k,991) * lu(k,1372)
3496 141174528 : lu(k,1387) = lu(k,1387) - lu(k,992) * lu(k,1372)
3497 141174528 : lu(k,1392) = lu(k,1392) - lu(k,993) * lu(k,1372)
3498 141174528 : lu(k,1393) = - lu(k,994) * lu(k,1372)
3499 141174528 : lu(k,1526) = lu(k,1526) - lu(k,990) * lu(k,1525)
3500 141174528 : lu(k,1534) = lu(k,1534) - lu(k,991) * lu(k,1525)
3501 141174528 : lu(k,1536) = lu(k,1536) - lu(k,992) * lu(k,1525)
3502 141174528 : lu(k,1544) = lu(k,1544) - lu(k,993) * lu(k,1525)
3503 141174528 : lu(k,1545) = lu(k,1545) - lu(k,994) * lu(k,1525)
3504 141174528 : lu(k,1797) = lu(k,1797) - lu(k,990) * lu(k,1787)
3505 141174528 : lu(k,1821) = lu(k,1821) - lu(k,991) * lu(k,1787)
3506 141174528 : lu(k,1823) = lu(k,1823) - lu(k,992) * lu(k,1787)
3507 141174528 : lu(k,1831) = lu(k,1831) - lu(k,993) * lu(k,1787)
3508 141174528 : lu(k,1833) = lu(k,1833) - lu(k,994) * lu(k,1787)
3509 141174528 : lu(k,1926) = lu(k,1926) - lu(k,990) * lu(k,1918)
3510 141174528 : lu(k,1948) = lu(k,1948) - lu(k,991) * lu(k,1918)
3511 141174528 : lu(k,1950) = lu(k,1950) - lu(k,992) * lu(k,1918)
3512 141174528 : lu(k,1958) = lu(k,1958) - lu(k,993) * lu(k,1918)
3513 141174528 : lu(k,1960) = lu(k,1960) - lu(k,994) * lu(k,1918)
3514 141174528 : lu(k,2059) = lu(k,2059) - lu(k,990) * lu(k,2049)
3515 141174528 : lu(k,2082) = lu(k,2082) - lu(k,991) * lu(k,2049)
3516 141174528 : lu(k,2084) = lu(k,2084) - lu(k,992) * lu(k,2049)
3517 141174528 : lu(k,2092) = lu(k,2092) - lu(k,993) * lu(k,2049)
3518 141174528 : lu(k,2094) = lu(k,2094) - lu(k,994) * lu(k,2049)
3519 141174528 : lu(k,2112) = lu(k,2112) - lu(k,990) * lu(k,2108)
3520 141174528 : lu(k,2121) = lu(k,2121) - lu(k,991) * lu(k,2108)
3521 141174528 : lu(k,2123) = lu(k,2123) - lu(k,992) * lu(k,2108)
3522 141174528 : lu(k,2131) = lu(k,2131) - lu(k,993) * lu(k,2108)
3523 141174528 : lu(k,2133) = lu(k,2133) - lu(k,994) * lu(k,2108)
3524 141174528 : lu(k,2162) = lu(k,2162) - lu(k,990) * lu(k,2153)
3525 141174528 : lu(k,2183) = lu(k,2183) - lu(k,991) * lu(k,2153)
3526 141174528 : lu(k,2185) = lu(k,2185) - lu(k,992) * lu(k,2153)
3527 141174528 : lu(k,2193) = lu(k,2193) - lu(k,993) * lu(k,2153)
3528 141174528 : lu(k,2195) = lu(k,2195) - lu(k,994) * lu(k,2153)
3529 141174528 : lu(k,2279) = lu(k,2279) - lu(k,990) * lu(k,2272)
3530 141174528 : lu(k,2301) = lu(k,2301) - lu(k,991) * lu(k,2272)
3531 141174528 : lu(k,2303) = lu(k,2303) - lu(k,992) * lu(k,2272)
3532 141174528 : lu(k,2311) = lu(k,2311) - lu(k,993) * lu(k,2272)
3533 141174528 : lu(k,2313) = lu(k,2313) - lu(k,994) * lu(k,2272)
3534 141174528 : lu(k,997) = 1._r8 / lu(k,997)
3535 141174528 : lu(k,998) = lu(k,998) * lu(k,997)
3536 141174528 : lu(k,999) = lu(k,999) * lu(k,997)
3537 141174528 : lu(k,1000) = lu(k,1000) * lu(k,997)
3538 141174528 : lu(k,1001) = lu(k,1001) * lu(k,997)
3539 141174528 : lu(k,1020) = lu(k,1020) - lu(k,998) * lu(k,1014)
3540 141174528 : lu(k,1027) = lu(k,1027) - lu(k,999) * lu(k,1014)
3541 141174528 : lu(k,1028) = lu(k,1028) - lu(k,1000) * lu(k,1014)
3542 141174528 : lu(k,1033) = lu(k,1033) - lu(k,1001) * lu(k,1014)
3543 141174528 : lu(k,1070) = lu(k,1070) - lu(k,998) * lu(k,1068)
3544 141174528 : lu(k,1076) = - lu(k,999) * lu(k,1068)
3545 141174528 : lu(k,1077) = lu(k,1077) - lu(k,1000) * lu(k,1068)
3546 141174528 : lu(k,1080) = lu(k,1080) - lu(k,1001) * lu(k,1068)
3547 141174528 : lu(k,1093) = lu(k,1093) - lu(k,998) * lu(k,1091)
3548 141174528 : lu(k,1095) = lu(k,1095) - lu(k,999) * lu(k,1091)
3549 141174528 : lu(k,1096) = lu(k,1096) - lu(k,1000) * lu(k,1091)
3550 141174528 : lu(k,1097) = lu(k,1097) - lu(k,1001) * lu(k,1091)
3551 141174528 : lu(k,1215) = lu(k,1215) - lu(k,998) * lu(k,1213)
3552 141174528 : lu(k,1222) = lu(k,1222) - lu(k,999) * lu(k,1213)
3553 141174528 : lu(k,1223) = lu(k,1223) - lu(k,1000) * lu(k,1213)
3554 141174528 : lu(k,1227) = lu(k,1227) - lu(k,1001) * lu(k,1213)
3555 141174528 : lu(k,1327) = lu(k,1327) - lu(k,998) * lu(k,1325)
3556 141174528 : lu(k,1342) = - lu(k,999) * lu(k,1325)
3557 141174528 : lu(k,1343) = lu(k,1343) - lu(k,1000) * lu(k,1325)
3558 141174528 : lu(k,1348) = lu(k,1348) - lu(k,1001) * lu(k,1325)
3559 141174528 : lu(k,1422) = lu(k,1422) - lu(k,998) * lu(k,1419)
3560 141174528 : lu(k,1438) = lu(k,1438) - lu(k,999) * lu(k,1419)
3561 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1000) * lu(k,1419)
3562 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1001) * lu(k,1419)
3563 141174528 : lu(k,1565) = lu(k,1565) - lu(k,998) * lu(k,1564)
3564 141174528 : lu(k,1577) = lu(k,1577) - lu(k,999) * lu(k,1564)
3565 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1000) * lu(k,1564)
3566 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1001) * lu(k,1564)
3567 141174528 : lu(k,1797) = lu(k,1797) - lu(k,998) * lu(k,1788)
3568 141174528 : lu(k,1821) = lu(k,1821) - lu(k,999) * lu(k,1788)
3569 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1000) * lu(k,1788)
3570 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1001) * lu(k,1788)
3571 141174528 : lu(k,1926) = lu(k,1926) - lu(k,998) * lu(k,1919)
3572 141174528 : lu(k,1948) = lu(k,1948) - lu(k,999) * lu(k,1919)
3573 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1000) * lu(k,1919)
3574 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1001) * lu(k,1919)
3575 141174528 : lu(k,1980) = lu(k,1980) - lu(k,998) * lu(k,1973)
3576 141174528 : lu(k,2000) = lu(k,2000) - lu(k,999) * lu(k,1973)
3577 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1000) * lu(k,1973)
3578 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1001) * lu(k,1973)
3579 141174528 : lu(k,2059) = lu(k,2059) - lu(k,998) * lu(k,2050)
3580 141174528 : lu(k,2082) = lu(k,2082) - lu(k,999) * lu(k,2050)
3581 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1000) * lu(k,2050)
3582 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1001) * lu(k,2050)
3583 141174528 : lu(k,2112) = lu(k,2112) - lu(k,998) * lu(k,2109)
3584 141174528 : lu(k,2121) = lu(k,2121) - lu(k,999) * lu(k,2109)
3585 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1000) * lu(k,2109)
3586 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1001) * lu(k,2109)
3587 141174528 : lu(k,2162) = lu(k,2162) - lu(k,998) * lu(k,2154)
3588 141174528 : lu(k,2183) = lu(k,2183) - lu(k,999) * lu(k,2154)
3589 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1000) * lu(k,2154)
3590 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1001) * lu(k,2154)
3591 141174528 : lu(k,2279) = lu(k,2279) - lu(k,998) * lu(k,2273)
3592 141174528 : lu(k,2301) = lu(k,2301) - lu(k,999) * lu(k,2273)
3593 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1000) * lu(k,2273)
3594 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1001) * lu(k,2273)
3595 141174528 : lu(k,1015) = 1._r8 / lu(k,1015)
3596 141174528 : lu(k,1016) = lu(k,1016) * lu(k,1015)
3597 141174528 : lu(k,1017) = lu(k,1017) * lu(k,1015)
3598 141174528 : lu(k,1018) = lu(k,1018) * lu(k,1015)
3599 141174528 : lu(k,1019) = lu(k,1019) * lu(k,1015)
3600 141174528 : lu(k,1020) = lu(k,1020) * lu(k,1015)
3601 141174528 : lu(k,1021) = lu(k,1021) * lu(k,1015)
3602 141174528 : lu(k,1022) = lu(k,1022) * lu(k,1015)
3603 141174528 : lu(k,1023) = lu(k,1023) * lu(k,1015)
3604 141174528 : lu(k,1024) = lu(k,1024) * lu(k,1015)
3605 141174528 : lu(k,1025) = lu(k,1025) * lu(k,1015)
3606 141174528 : lu(k,1026) = lu(k,1026) * lu(k,1015)
3607 141174528 : lu(k,1027) = lu(k,1027) * lu(k,1015)
3608 141174528 : lu(k,1028) = lu(k,1028) * lu(k,1015)
3609 141174528 : lu(k,1029) = lu(k,1029) * lu(k,1015)
3610 141174528 : lu(k,1030) = lu(k,1030) * lu(k,1015)
3611 141174528 : lu(k,1031) = lu(k,1031) * lu(k,1015)
3612 141174528 : lu(k,1032) = lu(k,1032) * lu(k,1015)
3613 141174528 : lu(k,1033) = lu(k,1033) * lu(k,1015)
3614 141174528 : lu(k,1034) = lu(k,1034) * lu(k,1015)
3615 141174528 : lu(k,1790) = lu(k,1790) - lu(k,1016) * lu(k,1789)
3616 141174528 : lu(k,1793) = lu(k,1793) - lu(k,1017) * lu(k,1789)
3617 141174528 : lu(k,1795) = lu(k,1795) - lu(k,1018) * lu(k,1789)
3618 141174528 : lu(k,1796) = lu(k,1796) - lu(k,1019) * lu(k,1789)
3619 141174528 : lu(k,1797) = lu(k,1797) - lu(k,1020) * lu(k,1789)
3620 141174528 : lu(k,1801) = lu(k,1801) - lu(k,1021) * lu(k,1789)
3621 141174528 : lu(k,1802) = lu(k,1802) - lu(k,1022) * lu(k,1789)
3622 141174528 : lu(k,1806) = lu(k,1806) - lu(k,1023) * lu(k,1789)
3623 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1024) * lu(k,1789)
3624 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1025) * lu(k,1789)
3625 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1026) * lu(k,1789)
3626 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1027) * lu(k,1789)
3627 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1028) * lu(k,1789)
3628 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1029) * lu(k,1789)
3629 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1030) * lu(k,1789)
3630 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1031) * lu(k,1789)
3631 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1032) * lu(k,1789)
3632 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1033) * lu(k,1789)
3633 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1034) * lu(k,1789)
3634 141174528 : lu(k,2052) = lu(k,2052) - lu(k,1016) * lu(k,2051)
3635 141174528 : lu(k,2055) = lu(k,2055) - lu(k,1017) * lu(k,2051)
3636 141174528 : lu(k,2057) = lu(k,2057) - lu(k,1018) * lu(k,2051)
3637 141174528 : lu(k,2058) = lu(k,2058) - lu(k,1019) * lu(k,2051)
3638 141174528 : lu(k,2059) = lu(k,2059) - lu(k,1020) * lu(k,2051)
3639 141174528 : lu(k,2063) = lu(k,2063) - lu(k,1021) * lu(k,2051)
3640 141174528 : lu(k,2064) = lu(k,2064) - lu(k,1022) * lu(k,2051)
3641 141174528 : lu(k,2068) = lu(k,2068) - lu(k,1023) * lu(k,2051)
3642 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1024) * lu(k,2051)
3643 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1025) * lu(k,2051)
3644 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1026) * lu(k,2051)
3645 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1027) * lu(k,2051)
3646 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1028) * lu(k,2051)
3647 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1029) * lu(k,2051)
3648 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1030) * lu(k,2051)
3649 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1031) * lu(k,2051)
3650 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1032) * lu(k,2051)
3651 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1033) * lu(k,2051)
3652 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1034) * lu(k,2051)
3653 141174528 : lu(k,2156) = lu(k,2156) - lu(k,1016) * lu(k,2155)
3654 141174528 : lu(k,2158) = lu(k,2158) - lu(k,1017) * lu(k,2155)
3655 141174528 : lu(k,2160) = lu(k,2160) - lu(k,1018) * lu(k,2155)
3656 141174528 : lu(k,2161) = lu(k,2161) - lu(k,1019) * lu(k,2155)
3657 141174528 : lu(k,2162) = lu(k,2162) - lu(k,1020) * lu(k,2155)
3658 141174528 : lu(k,2165) = lu(k,2165) - lu(k,1021) * lu(k,2155)
3659 141174528 : lu(k,2166) = lu(k,2166) - lu(k,1022) * lu(k,2155)
3660 141174528 : lu(k,2169) = lu(k,2169) - lu(k,1023) * lu(k,2155)
3661 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1024) * lu(k,2155)
3662 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1025) * lu(k,2155)
3663 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1026) * lu(k,2155)
3664 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1027) * lu(k,2155)
3665 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1028) * lu(k,2155)
3666 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1029) * lu(k,2155)
3667 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1030) * lu(k,2155)
3668 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1031) * lu(k,2155)
3669 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1032) * lu(k,2155)
3670 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1033) * lu(k,2155)
3671 145586232 : lu(k,2195) = lu(k,2195) - lu(k,1034) * lu(k,2155)
3672 : end do
3673 4411704 : end subroutine lu_fac21
3674 4411704 : subroutine lu_fac22( avec_len, lu )
3675 : use chem_mods, only : nzcnt
3676 : use shr_kind_mod, only : r8 => shr_kind_r8
3677 : implicit none
3678 : !-----------------------------------------------------------------------
3679 : ! ... dummy args
3680 : !-----------------------------------------------------------------------
3681 : integer, intent(in) :: avec_len
3682 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3683 : !-----------------------------------------------------------------------
3684 : ! ... local variables
3685 : !-----------------------------------------------------------------------
3686 : integer :: k
3687 145586232 : do k = 1,avec_len
3688 141174528 : lu(k,1035) = 1._r8 / lu(k,1035)
3689 141174528 : lu(k,1036) = lu(k,1036) * lu(k,1035)
3690 141174528 : lu(k,1037) = lu(k,1037) * lu(k,1035)
3691 141174528 : lu(k,1038) = lu(k,1038) * lu(k,1035)
3692 141174528 : lu(k,1039) = lu(k,1039) * lu(k,1035)
3693 141174528 : lu(k,1040) = lu(k,1040) * lu(k,1035)
3694 141174528 : lu(k,1041) = lu(k,1041) * lu(k,1035)
3695 141174528 : lu(k,1042) = lu(k,1042) * lu(k,1035)
3696 141174528 : lu(k,1102) = lu(k,1102) - lu(k,1036) * lu(k,1101)
3697 141174528 : lu(k,1103) = - lu(k,1037) * lu(k,1101)
3698 141174528 : lu(k,1104) = - lu(k,1038) * lu(k,1101)
3699 141174528 : lu(k,1105) = - lu(k,1039) * lu(k,1101)
3700 141174528 : lu(k,1109) = lu(k,1109) - lu(k,1040) * lu(k,1101)
3701 141174528 : lu(k,1112) = lu(k,1112) - lu(k,1041) * lu(k,1101)
3702 141174528 : lu(k,1113) = lu(k,1113) - lu(k,1042) * lu(k,1101)
3703 141174528 : lu(k,1180) = - lu(k,1036) * lu(k,1179)
3704 141174528 : lu(k,1181) = - lu(k,1037) * lu(k,1179)
3705 141174528 : lu(k,1182) = - lu(k,1038) * lu(k,1179)
3706 141174528 : lu(k,1183) = - lu(k,1039) * lu(k,1179)
3707 141174528 : lu(k,1191) = lu(k,1191) - lu(k,1040) * lu(k,1179)
3708 141174528 : lu(k,1194) = - lu(k,1041) * lu(k,1179)
3709 141174528 : lu(k,1195) = lu(k,1195) - lu(k,1042) * lu(k,1179)
3710 141174528 : lu(k,1795) = lu(k,1795) - lu(k,1036) * lu(k,1790)
3711 141174528 : lu(k,1796) = lu(k,1796) - lu(k,1037) * lu(k,1790)
3712 141174528 : lu(k,1797) = lu(k,1797) - lu(k,1038) * lu(k,1790)
3713 141174528 : lu(k,1800) = lu(k,1800) - lu(k,1039) * lu(k,1790)
3714 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1040) * lu(k,1790)
3715 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1041) * lu(k,1790)
3716 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1042) * lu(k,1790)
3717 141174528 : lu(k,1924) = lu(k,1924) - lu(k,1036) * lu(k,1920)
3718 141174528 : lu(k,1925) = lu(k,1925) - lu(k,1037) * lu(k,1920)
3719 141174528 : lu(k,1926) = lu(k,1926) - lu(k,1038) * lu(k,1920)
3720 141174528 : lu(k,1929) = lu(k,1929) - lu(k,1039) * lu(k,1920)
3721 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1040) * lu(k,1920)
3722 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1041) * lu(k,1920)
3723 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1042) * lu(k,1920)
3724 141174528 : lu(k,1978) = lu(k,1978) - lu(k,1036) * lu(k,1974)
3725 141174528 : lu(k,1979) = lu(k,1979) - lu(k,1037) * lu(k,1974)
3726 141174528 : lu(k,1980) = lu(k,1980) - lu(k,1038) * lu(k,1974)
3727 141174528 : lu(k,1982) = lu(k,1982) - lu(k,1039) * lu(k,1974)
3728 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1040) * lu(k,1974)
3729 141174528 : lu(k,2007) = - lu(k,1041) * lu(k,1974)
3730 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1042) * lu(k,1974)
3731 141174528 : lu(k,2057) = lu(k,2057) - lu(k,1036) * lu(k,2052)
3732 141174528 : lu(k,2058) = lu(k,2058) - lu(k,1037) * lu(k,2052)
3733 141174528 : lu(k,2059) = lu(k,2059) - lu(k,1038) * lu(k,2052)
3734 141174528 : lu(k,2062) = lu(k,2062) - lu(k,1039) * lu(k,2052)
3735 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1040) * lu(k,2052)
3736 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1041) * lu(k,2052)
3737 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1042) * lu(k,2052)
3738 141174528 : lu(k,2160) = lu(k,2160) - lu(k,1036) * lu(k,2156)
3739 141174528 : lu(k,2161) = lu(k,2161) - lu(k,1037) * lu(k,2156)
3740 141174528 : lu(k,2162) = lu(k,2162) - lu(k,1038) * lu(k,2156)
3741 141174528 : lu(k,2164) = - lu(k,1039) * lu(k,2156)
3742 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1040) * lu(k,2156)
3743 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1041) * lu(k,2156)
3744 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1042) * lu(k,2156)
3745 141174528 : lu(k,2277) = lu(k,2277) - lu(k,1036) * lu(k,2274)
3746 141174528 : lu(k,2278) = lu(k,2278) - lu(k,1037) * lu(k,2274)
3747 141174528 : lu(k,2279) = lu(k,2279) - lu(k,1038) * lu(k,2274)
3748 141174528 : lu(k,2281) = lu(k,2281) - lu(k,1039) * lu(k,2274)
3749 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1040) * lu(k,2274)
3750 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1041) * lu(k,2274)
3751 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1042) * lu(k,2274)
3752 141174528 : lu(k,1048) = 1._r8 / lu(k,1048)
3753 141174528 : lu(k,1049) = lu(k,1049) * lu(k,1048)
3754 141174528 : lu(k,1050) = lu(k,1050) * lu(k,1048)
3755 141174528 : lu(k,1051) = lu(k,1051) * lu(k,1048)
3756 141174528 : lu(k,1052) = lu(k,1052) * lu(k,1048)
3757 141174528 : lu(k,1053) = lu(k,1053) * lu(k,1048)
3758 141174528 : lu(k,1054) = lu(k,1054) * lu(k,1048)
3759 141174528 : lu(k,1055) = lu(k,1055) * lu(k,1048)
3760 141174528 : lu(k,1056) = lu(k,1056) * lu(k,1048)
3761 141174528 : lu(k,1057) = lu(k,1057) * lu(k,1048)
3762 141174528 : lu(k,1058) = lu(k,1058) * lu(k,1048)
3763 141174528 : lu(k,1059) = lu(k,1059) * lu(k,1048)
3764 141174528 : lu(k,1060) = lu(k,1060) * lu(k,1048)
3765 141174528 : lu(k,1061) = lu(k,1061) * lu(k,1048)
3766 141174528 : lu(k,1062) = lu(k,1062) * lu(k,1048)
3767 141174528 : lu(k,1063) = lu(k,1063) * lu(k,1048)
3768 141174528 : lu(k,1064) = lu(k,1064) * lu(k,1048)
3769 141174528 : lu(k,1374) = lu(k,1374) - lu(k,1049) * lu(k,1373)
3770 141174528 : lu(k,1375) = lu(k,1375) - lu(k,1050) * lu(k,1373)
3771 141174528 : lu(k,1376) = - lu(k,1051) * lu(k,1373)
3772 141174528 : lu(k,1377) = lu(k,1377) - lu(k,1052) * lu(k,1373)
3773 141174528 : lu(k,1381) = lu(k,1381) - lu(k,1053) * lu(k,1373)
3774 141174528 : lu(k,1382) = - lu(k,1054) * lu(k,1373)
3775 141174528 : lu(k,1384) = lu(k,1384) - lu(k,1055) * lu(k,1373)
3776 141174528 : lu(k,1385) = - lu(k,1056) * lu(k,1373)
3777 141174528 : lu(k,1386) = lu(k,1386) - lu(k,1057) * lu(k,1373)
3778 141174528 : lu(k,1387) = lu(k,1387) - lu(k,1058) * lu(k,1373)
3779 141174528 : lu(k,1388) = - lu(k,1059) * lu(k,1373)
3780 141174528 : lu(k,1389) = lu(k,1389) - lu(k,1060) * lu(k,1373)
3781 141174528 : lu(k,1390) = - lu(k,1061) * lu(k,1373)
3782 141174528 : lu(k,1391) = lu(k,1391) - lu(k,1062) * lu(k,1373)
3783 141174528 : lu(k,1392) = lu(k,1392) - lu(k,1063) * lu(k,1373)
3784 141174528 : lu(k,1393) = lu(k,1393) - lu(k,1064) * lu(k,1373)
3785 141174528 : lu(k,1793) = lu(k,1793) - lu(k,1049) * lu(k,1791)
3786 141174528 : lu(k,1797) = lu(k,1797) - lu(k,1050) * lu(k,1791)
3787 141174528 : lu(k,1799) = lu(k,1799) - lu(k,1051) * lu(k,1791)
3788 141174528 : lu(k,1806) = lu(k,1806) - lu(k,1052) * lu(k,1791)
3789 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1053) * lu(k,1791)
3790 141174528 : lu(k,1816) = lu(k,1816) - lu(k,1054) * lu(k,1791)
3791 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1055) * lu(k,1791)
3792 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1056) * lu(k,1791)
3793 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1057) * lu(k,1791)
3794 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1058) * lu(k,1791)
3795 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1059) * lu(k,1791)
3796 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1060) * lu(k,1791)
3797 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1061) * lu(k,1791)
3798 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1062) * lu(k,1791)
3799 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1063) * lu(k,1791)
3800 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1064) * lu(k,1791)
3801 141174528 : lu(k,2055) = lu(k,2055) - lu(k,1049) * lu(k,2053)
3802 141174528 : lu(k,2059) = lu(k,2059) - lu(k,1050) * lu(k,2053)
3803 141174528 : lu(k,2061) = lu(k,2061) - lu(k,1051) * lu(k,2053)
3804 141174528 : lu(k,2068) = lu(k,2068) - lu(k,1052) * lu(k,2053)
3805 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1053) * lu(k,2053)
3806 141174528 : lu(k,2077) = - lu(k,1054) * lu(k,2053)
3807 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1055) * lu(k,2053)
3808 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1056) * lu(k,2053)
3809 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1057) * lu(k,2053)
3810 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1058) * lu(k,2053)
3811 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1059) * lu(k,2053)
3812 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1060) * lu(k,2053)
3813 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1061) * lu(k,2053)
3814 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1062) * lu(k,2053)
3815 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1063) * lu(k,2053)
3816 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1064) * lu(k,2053)
3817 141174528 : lu(k,2158) = lu(k,2158) - lu(k,1049) * lu(k,2157)
3818 141174528 : lu(k,2162) = lu(k,2162) - lu(k,1050) * lu(k,2157)
3819 141174528 : lu(k,2163) = - lu(k,1051) * lu(k,2157)
3820 141174528 : lu(k,2169) = lu(k,2169) - lu(k,1052) * lu(k,2157)
3821 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1053) * lu(k,2157)
3822 141174528 : lu(k,2178) = lu(k,2178) - lu(k,1054) * lu(k,2157)
3823 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1055) * lu(k,2157)
3824 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1056) * lu(k,2157)
3825 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1057) * lu(k,2157)
3826 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1058) * lu(k,2157)
3827 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1059) * lu(k,2157)
3828 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1060) * lu(k,2157)
3829 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1061) * lu(k,2157)
3830 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1062) * lu(k,2157)
3831 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1063) * lu(k,2157)
3832 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1064) * lu(k,2157)
3833 141174528 : lu(k,1069) = 1._r8 / lu(k,1069)
3834 141174528 : lu(k,1070) = lu(k,1070) * lu(k,1069)
3835 141174528 : lu(k,1071) = lu(k,1071) * lu(k,1069)
3836 141174528 : lu(k,1072) = lu(k,1072) * lu(k,1069)
3837 141174528 : lu(k,1073) = lu(k,1073) * lu(k,1069)
3838 141174528 : lu(k,1074) = lu(k,1074) * lu(k,1069)
3839 141174528 : lu(k,1075) = lu(k,1075) * lu(k,1069)
3840 141174528 : lu(k,1076) = lu(k,1076) * lu(k,1069)
3841 141174528 : lu(k,1077) = lu(k,1077) * lu(k,1069)
3842 141174528 : lu(k,1078) = lu(k,1078) * lu(k,1069)
3843 141174528 : lu(k,1079) = lu(k,1079) * lu(k,1069)
3844 141174528 : lu(k,1080) = lu(k,1080) * lu(k,1069)
3845 141174528 : lu(k,1235) = - lu(k,1070) * lu(k,1233)
3846 141174528 : lu(k,1239) = lu(k,1239) - lu(k,1071) * lu(k,1233)
3847 141174528 : lu(k,1241) = lu(k,1241) - lu(k,1072) * lu(k,1233)
3848 141174528 : lu(k,1242) = lu(k,1242) - lu(k,1073) * lu(k,1233)
3849 141174528 : lu(k,1243) = lu(k,1243) - lu(k,1074) * lu(k,1233)
3850 141174528 : lu(k,1244) = lu(k,1244) - lu(k,1075) * lu(k,1233)
3851 141174528 : lu(k,1245) = - lu(k,1076) * lu(k,1233)
3852 141174528 : lu(k,1246) = lu(k,1246) - lu(k,1077) * lu(k,1233)
3853 141174528 : lu(k,1247) = lu(k,1247) - lu(k,1078) * lu(k,1233)
3854 141174528 : lu(k,1248) = lu(k,1248) - lu(k,1079) * lu(k,1233)
3855 141174528 : lu(k,1250) = lu(k,1250) - lu(k,1080) * lu(k,1233)
3856 141174528 : lu(k,1422) = lu(k,1422) - lu(k,1070) * lu(k,1420)
3857 141174528 : lu(k,1427) = lu(k,1427) - lu(k,1071) * lu(k,1420)
3858 141174528 : lu(k,1433) = lu(k,1433) - lu(k,1072) * lu(k,1420)
3859 141174528 : lu(k,1435) = - lu(k,1073) * lu(k,1420)
3860 141174528 : lu(k,1436) = lu(k,1436) - lu(k,1074) * lu(k,1420)
3861 141174528 : lu(k,1437) = lu(k,1437) - lu(k,1075) * lu(k,1420)
3862 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1076) * lu(k,1420)
3863 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1077) * lu(k,1420)
3864 141174528 : lu(k,1440) = lu(k,1440) - lu(k,1078) * lu(k,1420)
3865 141174528 : lu(k,1441) = lu(k,1441) - lu(k,1079) * lu(k,1420)
3866 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1080) * lu(k,1420)
3867 141174528 : lu(k,1797) = lu(k,1797) - lu(k,1070) * lu(k,1792)
3868 141174528 : lu(k,1806) = lu(k,1806) - lu(k,1071) * lu(k,1792)
3869 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1072) * lu(k,1792)
3870 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1073) * lu(k,1792)
3871 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1074) * lu(k,1792)
3872 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1075) * lu(k,1792)
3873 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1076) * lu(k,1792)
3874 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1077) * lu(k,1792)
3875 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1078) * lu(k,1792)
3876 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1079) * lu(k,1792)
3877 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1080) * lu(k,1792)
3878 141174528 : lu(k,1926) = lu(k,1926) - lu(k,1070) * lu(k,1921)
3879 141174528 : lu(k,1935) = lu(k,1935) - lu(k,1071) * lu(k,1921)
3880 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1072) * lu(k,1921)
3881 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1073) * lu(k,1921)
3882 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1074) * lu(k,1921)
3883 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1075) * lu(k,1921)
3884 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1076) * lu(k,1921)
3885 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1077) * lu(k,1921)
3886 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1078) * lu(k,1921)
3887 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1079) * lu(k,1921)
3888 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1080) * lu(k,1921)
3889 141174528 : lu(k,1980) = lu(k,1980) - lu(k,1070) * lu(k,1975)
3890 141174528 : lu(k,1988) = lu(k,1988) - lu(k,1071) * lu(k,1975)
3891 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1072) * lu(k,1975)
3892 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1073) * lu(k,1975)
3893 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1074) * lu(k,1975)
3894 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1075) * lu(k,1975)
3895 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1076) * lu(k,1975)
3896 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1077) * lu(k,1975)
3897 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1078) * lu(k,1975)
3898 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1079) * lu(k,1975)
3899 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1080) * lu(k,1975)
3900 141174528 : lu(k,2059) = lu(k,2059) - lu(k,1070) * lu(k,2054)
3901 141174528 : lu(k,2068) = lu(k,2068) - lu(k,1071) * lu(k,2054)
3902 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1072) * lu(k,2054)
3903 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1073) * lu(k,2054)
3904 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1074) * lu(k,2054)
3905 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1075) * lu(k,2054)
3906 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1076) * lu(k,2054)
3907 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1077) * lu(k,2054)
3908 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1078) * lu(k,2054)
3909 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1079) * lu(k,2054)
3910 145586232 : lu(k,2092) = lu(k,2092) - lu(k,1080) * lu(k,2054)
3911 : end do
3912 4411704 : end subroutine lu_fac22
3913 4411704 : subroutine lu_fac23( avec_len, lu )
3914 : use chem_mods, only : nzcnt
3915 : use shr_kind_mod, only : r8 => shr_kind_r8
3916 : implicit none
3917 : !-----------------------------------------------------------------------
3918 : ! ... dummy args
3919 : !-----------------------------------------------------------------------
3920 : integer, intent(in) :: avec_len
3921 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3922 : !-----------------------------------------------------------------------
3923 : ! ... local variables
3924 : !-----------------------------------------------------------------------
3925 : integer :: k
3926 145586232 : do k = 1,avec_len
3927 141174528 : lu(k,1081) = 1._r8 / lu(k,1081)
3928 141174528 : lu(k,1082) = lu(k,1082) * lu(k,1081)
3929 141174528 : lu(k,1083) = lu(k,1083) * lu(k,1081)
3930 141174528 : lu(k,1084) = lu(k,1084) * lu(k,1081)
3931 141174528 : lu(k,1085) = lu(k,1085) * lu(k,1081)
3932 141174528 : lu(k,1086) = lu(k,1086) * lu(k,1081)
3933 141174528 : lu(k,1087) = lu(k,1087) * lu(k,1081)
3934 141174528 : lu(k,1088) = lu(k,1088) * lu(k,1081)
3935 141174528 : lu(k,1089) = lu(k,1089) * lu(k,1081)
3936 141174528 : lu(k,1135) = lu(k,1135) - lu(k,1082) * lu(k,1133)
3937 141174528 : lu(k,1139) = lu(k,1139) - lu(k,1083) * lu(k,1133)
3938 141174528 : lu(k,1140) = lu(k,1140) - lu(k,1084) * lu(k,1133)
3939 141174528 : lu(k,1144) = lu(k,1144) - lu(k,1085) * lu(k,1133)
3940 141174528 : lu(k,1145) = lu(k,1145) - lu(k,1086) * lu(k,1133)
3941 141174528 : lu(k,1146) = - lu(k,1087) * lu(k,1133)
3942 141174528 : lu(k,1147) = lu(k,1147) - lu(k,1088) * lu(k,1133)
3943 141174528 : lu(k,1148) = lu(k,1148) - lu(k,1089) * lu(k,1133)
3944 141174528 : lu(k,1375) = lu(k,1375) - lu(k,1082) * lu(k,1374)
3945 141174528 : lu(k,1381) = lu(k,1381) - lu(k,1083) * lu(k,1374)
3946 141174528 : lu(k,1383) = - lu(k,1084) * lu(k,1374)
3947 141174528 : lu(k,1387) = lu(k,1387) - lu(k,1085) * lu(k,1374)
3948 141174528 : lu(k,1389) = lu(k,1389) - lu(k,1086) * lu(k,1374)
3949 141174528 : lu(k,1390) = lu(k,1390) - lu(k,1087) * lu(k,1374)
3950 141174528 : lu(k,1392) = lu(k,1392) - lu(k,1088) * lu(k,1374)
3951 141174528 : lu(k,1393) = lu(k,1393) - lu(k,1089) * lu(k,1374)
3952 141174528 : lu(k,1797) = lu(k,1797) - lu(k,1082) * lu(k,1793)
3953 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1083) * lu(k,1793)
3954 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1084) * lu(k,1793)
3955 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1085) * lu(k,1793)
3956 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1086) * lu(k,1793)
3957 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1087) * lu(k,1793)
3958 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1088) * lu(k,1793)
3959 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1089) * lu(k,1793)
3960 141174528 : lu(k,1926) = lu(k,1926) - lu(k,1082) * lu(k,1922)
3961 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1083) * lu(k,1922)
3962 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1084) * lu(k,1922)
3963 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1085) * lu(k,1922)
3964 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1086) * lu(k,1922)
3965 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1087) * lu(k,1922)
3966 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1088) * lu(k,1922)
3967 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1089) * lu(k,1922)
3968 141174528 : lu(k,1980) = lu(k,1980) - lu(k,1082) * lu(k,1976)
3969 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1083) * lu(k,1976)
3970 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1084) * lu(k,1976)
3971 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1085) * lu(k,1976)
3972 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1086) * lu(k,1976)
3973 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1087) * lu(k,1976)
3974 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1088) * lu(k,1976)
3975 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1089) * lu(k,1976)
3976 141174528 : lu(k,2059) = lu(k,2059) - lu(k,1082) * lu(k,2055)
3977 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1083) * lu(k,2055)
3978 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1084) * lu(k,2055)
3979 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1085) * lu(k,2055)
3980 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1086) * lu(k,2055)
3981 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1087) * lu(k,2055)
3982 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1088) * lu(k,2055)
3983 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1089) * lu(k,2055)
3984 141174528 : lu(k,2112) = lu(k,2112) - lu(k,1082) * lu(k,2110)
3985 141174528 : lu(k,2113) = - lu(k,1083) * lu(k,2110)
3986 141174528 : lu(k,2117) = lu(k,2117) - lu(k,1084) * lu(k,2110)
3987 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1085) * lu(k,2110)
3988 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1086) * lu(k,2110)
3989 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1087) * lu(k,2110)
3990 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1088) * lu(k,2110)
3991 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1089) * lu(k,2110)
3992 141174528 : lu(k,2162) = lu(k,2162) - lu(k,1082) * lu(k,2158)
3993 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1083) * lu(k,2158)
3994 141174528 : lu(k,2179) = - lu(k,1084) * lu(k,2158)
3995 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1085) * lu(k,2158)
3996 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1086) * lu(k,2158)
3997 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1087) * lu(k,2158)
3998 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1088) * lu(k,2158)
3999 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1089) * lu(k,2158)
4000 141174528 : lu(k,2279) = lu(k,2279) - lu(k,1082) * lu(k,2275)
4001 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1083) * lu(k,2275)
4002 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1084) * lu(k,2275)
4003 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1085) * lu(k,2275)
4004 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1086) * lu(k,2275)
4005 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1087) * lu(k,2275)
4006 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1088) * lu(k,2275)
4007 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1089) * lu(k,2275)
4008 141174528 : lu(k,1092) = 1._r8 / lu(k,1092)
4009 141174528 : lu(k,1093) = lu(k,1093) * lu(k,1092)
4010 141174528 : lu(k,1094) = lu(k,1094) * lu(k,1092)
4011 141174528 : lu(k,1095) = lu(k,1095) * lu(k,1092)
4012 141174528 : lu(k,1096) = lu(k,1096) * lu(k,1092)
4013 141174528 : lu(k,1097) = lu(k,1097) * lu(k,1092)
4014 141174528 : lu(k,1135) = lu(k,1135) - lu(k,1093) * lu(k,1134)
4015 141174528 : lu(k,1141) = lu(k,1141) - lu(k,1094) * lu(k,1134)
4016 141174528 : lu(k,1143) = - lu(k,1095) * lu(k,1134)
4017 141174528 : lu(k,1144) = lu(k,1144) - lu(k,1096) * lu(k,1134)
4018 141174528 : lu(k,1147) = lu(k,1147) - lu(k,1097) * lu(k,1134)
4019 141174528 : lu(k,1162) = lu(k,1162) - lu(k,1093) * lu(k,1160)
4020 141174528 : lu(k,1167) = lu(k,1167) - lu(k,1094) * lu(k,1160)
4021 141174528 : lu(k,1169) = lu(k,1169) - lu(k,1095) * lu(k,1160)
4022 141174528 : lu(k,1170) = lu(k,1170) - lu(k,1096) * lu(k,1160)
4023 141174528 : lu(k,1173) = lu(k,1173) - lu(k,1097) * lu(k,1160)
4024 141174528 : lu(k,1215) = lu(k,1215) - lu(k,1093) * lu(k,1214)
4025 141174528 : lu(k,1220) = lu(k,1220) - lu(k,1094) * lu(k,1214)
4026 141174528 : lu(k,1222) = lu(k,1222) - lu(k,1095) * lu(k,1214)
4027 141174528 : lu(k,1223) = lu(k,1223) - lu(k,1096) * lu(k,1214)
4028 141174528 : lu(k,1227) = lu(k,1227) - lu(k,1097) * lu(k,1214)
4029 141174528 : lu(k,1235) = lu(k,1235) - lu(k,1093) * lu(k,1234)
4030 141174528 : lu(k,1243) = lu(k,1243) - lu(k,1094) * lu(k,1234)
4031 141174528 : lu(k,1245) = lu(k,1245) - lu(k,1095) * lu(k,1234)
4032 141174528 : lu(k,1246) = lu(k,1246) - lu(k,1096) * lu(k,1234)
4033 141174528 : lu(k,1250) = lu(k,1250) - lu(k,1097) * lu(k,1234)
4034 141174528 : lu(k,1294) = lu(k,1294) - lu(k,1093) * lu(k,1293)
4035 141174528 : lu(k,1307) = lu(k,1307) - lu(k,1094) * lu(k,1293)
4036 141174528 : lu(k,1309) = lu(k,1309) - lu(k,1095) * lu(k,1293)
4037 141174528 : lu(k,1310) = lu(k,1310) - lu(k,1096) * lu(k,1293)
4038 141174528 : lu(k,1315) = lu(k,1315) - lu(k,1097) * lu(k,1293)
4039 141174528 : lu(k,1327) = lu(k,1327) - lu(k,1093) * lu(k,1326)
4040 141174528 : lu(k,1340) = lu(k,1340) - lu(k,1094) * lu(k,1326)
4041 141174528 : lu(k,1342) = lu(k,1342) - lu(k,1095) * lu(k,1326)
4042 141174528 : lu(k,1343) = lu(k,1343) - lu(k,1096) * lu(k,1326)
4043 141174528 : lu(k,1348) = lu(k,1348) - lu(k,1097) * lu(k,1326)
4044 141174528 : lu(k,1353) = lu(k,1353) - lu(k,1093) * lu(k,1352)
4045 141174528 : lu(k,1362) = lu(k,1362) - lu(k,1094) * lu(k,1352)
4046 141174528 : lu(k,1364) = - lu(k,1095) * lu(k,1352)
4047 141174528 : lu(k,1365) = lu(k,1365) - lu(k,1096) * lu(k,1352)
4048 141174528 : lu(k,1369) = lu(k,1369) - lu(k,1097) * lu(k,1352)
4049 141174528 : lu(k,1422) = lu(k,1422) - lu(k,1093) * lu(k,1421)
4050 141174528 : lu(k,1436) = lu(k,1436) - lu(k,1094) * lu(k,1421)
4051 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1095) * lu(k,1421)
4052 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1096) * lu(k,1421)
4053 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1097) * lu(k,1421)
4054 141174528 : lu(k,1797) = lu(k,1797) - lu(k,1093) * lu(k,1794)
4055 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1094) * lu(k,1794)
4056 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1095) * lu(k,1794)
4057 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1096) * lu(k,1794)
4058 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1097) * lu(k,1794)
4059 141174528 : lu(k,1926) = lu(k,1926) - lu(k,1093) * lu(k,1923)
4060 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1094) * lu(k,1923)
4061 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1095) * lu(k,1923)
4062 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1096) * lu(k,1923)
4063 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1097) * lu(k,1923)
4064 141174528 : lu(k,1980) = lu(k,1980) - lu(k,1093) * lu(k,1977)
4065 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1094) * lu(k,1977)
4066 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1095) * lu(k,1977)
4067 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1096) * lu(k,1977)
4068 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1097) * lu(k,1977)
4069 141174528 : lu(k,2059) = lu(k,2059) - lu(k,1093) * lu(k,2056)
4070 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1094) * lu(k,2056)
4071 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1095) * lu(k,2056)
4072 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1096) * lu(k,2056)
4073 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1097) * lu(k,2056)
4074 141174528 : lu(k,2112) = lu(k,2112) - lu(k,1093) * lu(k,2111)
4075 141174528 : lu(k,2119) = lu(k,2119) - lu(k,1094) * lu(k,2111)
4076 141174528 : lu(k,2121) = lu(k,2121) - lu(k,1095) * lu(k,2111)
4077 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1096) * lu(k,2111)
4078 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1097) * lu(k,2111)
4079 141174528 : lu(k,2162) = lu(k,2162) - lu(k,1093) * lu(k,2159)
4080 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1094) * lu(k,2159)
4081 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1095) * lu(k,2159)
4082 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1096) * lu(k,2159)
4083 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1097) * lu(k,2159)
4084 141174528 : lu(k,2279) = lu(k,2279) - lu(k,1093) * lu(k,2276)
4085 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1094) * lu(k,2276)
4086 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1095) * lu(k,2276)
4087 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1096) * lu(k,2276)
4088 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1097) * lu(k,2276)
4089 141174528 : lu(k,1102) = 1._r8 / lu(k,1102)
4090 141174528 : lu(k,1103) = lu(k,1103) * lu(k,1102)
4091 141174528 : lu(k,1104) = lu(k,1104) * lu(k,1102)
4092 141174528 : lu(k,1105) = lu(k,1105) * lu(k,1102)
4093 141174528 : lu(k,1106) = lu(k,1106) * lu(k,1102)
4094 141174528 : lu(k,1107) = lu(k,1107) * lu(k,1102)
4095 141174528 : lu(k,1108) = lu(k,1108) * lu(k,1102)
4096 141174528 : lu(k,1109) = lu(k,1109) * lu(k,1102)
4097 141174528 : lu(k,1110) = lu(k,1110) * lu(k,1102)
4098 141174528 : lu(k,1111) = lu(k,1111) * lu(k,1102)
4099 141174528 : lu(k,1112) = lu(k,1112) * lu(k,1102)
4100 141174528 : lu(k,1113) = lu(k,1113) * lu(k,1102)
4101 141174528 : lu(k,1181) = lu(k,1181) - lu(k,1103) * lu(k,1180)
4102 141174528 : lu(k,1182) = lu(k,1182) - lu(k,1104) * lu(k,1180)
4103 141174528 : lu(k,1183) = lu(k,1183) - lu(k,1105) * lu(k,1180)
4104 141174528 : lu(k,1187) = lu(k,1187) - lu(k,1106) * lu(k,1180)
4105 141174528 : lu(k,1188) = lu(k,1188) - lu(k,1107) * lu(k,1180)
4106 141174528 : lu(k,1189) = lu(k,1189) - lu(k,1108) * lu(k,1180)
4107 141174528 : lu(k,1191) = lu(k,1191) - lu(k,1109) * lu(k,1180)
4108 141174528 : lu(k,1192) = lu(k,1192) - lu(k,1110) * lu(k,1180)
4109 141174528 : lu(k,1193) = lu(k,1193) - lu(k,1111) * lu(k,1180)
4110 141174528 : lu(k,1194) = lu(k,1194) - lu(k,1112) * lu(k,1180)
4111 141174528 : lu(k,1195) = lu(k,1195) - lu(k,1113) * lu(k,1180)
4112 141174528 : lu(k,1796) = lu(k,1796) - lu(k,1103) * lu(k,1795)
4113 141174528 : lu(k,1797) = lu(k,1797) - lu(k,1104) * lu(k,1795)
4114 141174528 : lu(k,1800) = lu(k,1800) - lu(k,1105) * lu(k,1795)
4115 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1106) * lu(k,1795)
4116 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1107) * lu(k,1795)
4117 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1108) * lu(k,1795)
4118 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1109) * lu(k,1795)
4119 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1110) * lu(k,1795)
4120 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1111) * lu(k,1795)
4121 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1112) * lu(k,1795)
4122 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1113) * lu(k,1795)
4123 141174528 : lu(k,1925) = lu(k,1925) - lu(k,1103) * lu(k,1924)
4124 141174528 : lu(k,1926) = lu(k,1926) - lu(k,1104) * lu(k,1924)
4125 141174528 : lu(k,1929) = lu(k,1929) - lu(k,1105) * lu(k,1924)
4126 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1106) * lu(k,1924)
4127 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1107) * lu(k,1924)
4128 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1108) * lu(k,1924)
4129 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1109) * lu(k,1924)
4130 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1110) * lu(k,1924)
4131 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1111) * lu(k,1924)
4132 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1112) * lu(k,1924)
4133 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1113) * lu(k,1924)
4134 141174528 : lu(k,1979) = lu(k,1979) - lu(k,1103) * lu(k,1978)
4135 141174528 : lu(k,1980) = lu(k,1980) - lu(k,1104) * lu(k,1978)
4136 141174528 : lu(k,1982) = lu(k,1982) - lu(k,1105) * lu(k,1978)
4137 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1106) * lu(k,1978)
4138 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1107) * lu(k,1978)
4139 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1108) * lu(k,1978)
4140 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1109) * lu(k,1978)
4141 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1110) * lu(k,1978)
4142 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1111) * lu(k,1978)
4143 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1112) * lu(k,1978)
4144 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1113) * lu(k,1978)
4145 141174528 : lu(k,2058) = lu(k,2058) - lu(k,1103) * lu(k,2057)
4146 141174528 : lu(k,2059) = lu(k,2059) - lu(k,1104) * lu(k,2057)
4147 141174528 : lu(k,2062) = lu(k,2062) - lu(k,1105) * lu(k,2057)
4148 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1106) * lu(k,2057)
4149 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1107) * lu(k,2057)
4150 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1108) * lu(k,2057)
4151 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1109) * lu(k,2057)
4152 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1110) * lu(k,2057)
4153 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1111) * lu(k,2057)
4154 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1112) * lu(k,2057)
4155 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1113) * lu(k,2057)
4156 141174528 : lu(k,2161) = lu(k,2161) - lu(k,1103) * lu(k,2160)
4157 141174528 : lu(k,2162) = lu(k,2162) - lu(k,1104) * lu(k,2160)
4158 141174528 : lu(k,2164) = lu(k,2164) - lu(k,1105) * lu(k,2160)
4159 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1106) * lu(k,2160)
4160 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1107) * lu(k,2160)
4161 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1108) * lu(k,2160)
4162 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1109) * lu(k,2160)
4163 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1110) * lu(k,2160)
4164 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1111) * lu(k,2160)
4165 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1112) * lu(k,2160)
4166 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1113) * lu(k,2160)
4167 141174528 : lu(k,2278) = lu(k,2278) - lu(k,1103) * lu(k,2277)
4168 141174528 : lu(k,2279) = lu(k,2279) - lu(k,1104) * lu(k,2277)
4169 141174528 : lu(k,2281) = lu(k,2281) - lu(k,1105) * lu(k,2277)
4170 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1106) * lu(k,2277)
4171 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1107) * lu(k,2277)
4172 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1108) * lu(k,2277)
4173 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1109) * lu(k,2277)
4174 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1110) * lu(k,2277)
4175 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1111) * lu(k,2277)
4176 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1112) * lu(k,2277)
4177 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1113) * lu(k,2277)
4178 141174528 : lu(k,1116) = 1._r8 / lu(k,1116)
4179 141174528 : lu(k,1117) = lu(k,1117) * lu(k,1116)
4180 141174528 : lu(k,1118) = lu(k,1118) * lu(k,1116)
4181 141174528 : lu(k,1119) = lu(k,1119) * lu(k,1116)
4182 141174528 : lu(k,1120) = lu(k,1120) * lu(k,1116)
4183 141174528 : lu(k,1121) = lu(k,1121) * lu(k,1116)
4184 141174528 : lu(k,1122) = lu(k,1122) * lu(k,1116)
4185 141174528 : lu(k,1123) = lu(k,1123) * lu(k,1116)
4186 141174528 : lu(k,1124) = lu(k,1124) * lu(k,1116)
4187 141174528 : lu(k,1125) = lu(k,1125) * lu(k,1116)
4188 141174528 : lu(k,1162) = lu(k,1162) - lu(k,1117) * lu(k,1161)
4189 141174528 : lu(k,1164) = lu(k,1164) - lu(k,1118) * lu(k,1161)
4190 141174528 : lu(k,1165) = lu(k,1165) - lu(k,1119) * lu(k,1161)
4191 141174528 : lu(k,1167) = lu(k,1167) - lu(k,1120) * lu(k,1161)
4192 141174528 : lu(k,1169) = lu(k,1169) - lu(k,1121) * lu(k,1161)
4193 141174528 : lu(k,1170) = lu(k,1170) - lu(k,1122) * lu(k,1161)
4194 141174528 : lu(k,1172) = lu(k,1172) - lu(k,1123) * lu(k,1161)
4195 141174528 : lu(k,1173) = lu(k,1173) - lu(k,1124) * lu(k,1161)
4196 141174528 : lu(k,1174) = lu(k,1174) - lu(k,1125) * lu(k,1161)
4197 141174528 : lu(k,1182) = lu(k,1182) - lu(k,1117) * lu(k,1181)
4198 141174528 : lu(k,1185) = lu(k,1185) - lu(k,1118) * lu(k,1181)
4199 141174528 : lu(k,1186) = lu(k,1186) - lu(k,1119) * lu(k,1181)
4200 141174528 : lu(k,1188) = lu(k,1188) - lu(k,1120) * lu(k,1181)
4201 141174528 : lu(k,1190) = - lu(k,1121) * lu(k,1181)
4202 141174528 : lu(k,1191) = lu(k,1191) - lu(k,1122) * lu(k,1181)
4203 141174528 : lu(k,1193) = lu(k,1193) - lu(k,1123) * lu(k,1181)
4204 141174528 : lu(k,1195) = lu(k,1195) - lu(k,1124) * lu(k,1181)
4205 141174528 : lu(k,1196) = lu(k,1196) - lu(k,1125) * lu(k,1181)
4206 141174528 : lu(k,1797) = lu(k,1797) - lu(k,1117) * lu(k,1796)
4207 141174528 : lu(k,1802) = lu(k,1802) - lu(k,1118) * lu(k,1796)
4208 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1119) * lu(k,1796)
4209 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1120) * lu(k,1796)
4210 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1121) * lu(k,1796)
4211 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1122) * lu(k,1796)
4212 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1123) * lu(k,1796)
4213 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1124) * lu(k,1796)
4214 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1125) * lu(k,1796)
4215 141174528 : lu(k,1926) = lu(k,1926) - lu(k,1117) * lu(k,1925)
4216 141174528 : lu(k,1931) = lu(k,1931) - lu(k,1118) * lu(k,1925)
4217 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1119) * lu(k,1925)
4218 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1120) * lu(k,1925)
4219 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1121) * lu(k,1925)
4220 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1122) * lu(k,1925)
4221 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1123) * lu(k,1925)
4222 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1124) * lu(k,1925)
4223 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1125) * lu(k,1925)
4224 141174528 : lu(k,1980) = lu(k,1980) - lu(k,1117) * lu(k,1979)
4225 141174528 : lu(k,1984) = lu(k,1984) - lu(k,1118) * lu(k,1979)
4226 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1119) * lu(k,1979)
4227 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1120) * lu(k,1979)
4228 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1121) * lu(k,1979)
4229 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1122) * lu(k,1979)
4230 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1123) * lu(k,1979)
4231 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1124) * lu(k,1979)
4232 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1125) * lu(k,1979)
4233 141174528 : lu(k,2059) = lu(k,2059) - lu(k,1117) * lu(k,2058)
4234 141174528 : lu(k,2064) = lu(k,2064) - lu(k,1118) * lu(k,2058)
4235 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1119) * lu(k,2058)
4236 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1120) * lu(k,2058)
4237 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1121) * lu(k,2058)
4238 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1122) * lu(k,2058)
4239 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1123) * lu(k,2058)
4240 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1124) * lu(k,2058)
4241 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1125) * lu(k,2058)
4242 141174528 : lu(k,2162) = lu(k,2162) - lu(k,1117) * lu(k,2161)
4243 141174528 : lu(k,2166) = lu(k,2166) - lu(k,1118) * lu(k,2161)
4244 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1119) * lu(k,2161)
4245 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1120) * lu(k,2161)
4246 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1121) * lu(k,2161)
4247 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1122) * lu(k,2161)
4248 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1123) * lu(k,2161)
4249 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1124) * lu(k,2161)
4250 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1125) * lu(k,2161)
4251 141174528 : lu(k,2279) = lu(k,2279) - lu(k,1117) * lu(k,2278)
4252 141174528 : lu(k,2283) = lu(k,2283) - lu(k,1118) * lu(k,2278)
4253 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1119) * lu(k,2278)
4254 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1120) * lu(k,2278)
4255 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1121) * lu(k,2278)
4256 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1122) * lu(k,2278)
4257 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1123) * lu(k,2278)
4258 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1124) * lu(k,2278)
4259 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1125) * lu(k,2278)
4260 141174528 : lu(k,1127) = 1._r8 / lu(k,1127)
4261 141174528 : lu(k,1128) = lu(k,1128) * lu(k,1127)
4262 141174528 : lu(k,1129) = lu(k,1129) * lu(k,1127)
4263 141174528 : lu(k,1130) = lu(k,1130) * lu(k,1127)
4264 141174528 : lu(k,1143) = lu(k,1143) - lu(k,1128) * lu(k,1135)
4265 141174528 : lu(k,1144) = lu(k,1144) - lu(k,1129) * lu(k,1135)
4266 141174528 : lu(k,1147) = lu(k,1147) - lu(k,1130) * lu(k,1135)
4267 141174528 : lu(k,1169) = lu(k,1169) - lu(k,1128) * lu(k,1162)
4268 141174528 : lu(k,1170) = lu(k,1170) - lu(k,1129) * lu(k,1162)
4269 141174528 : lu(k,1173) = lu(k,1173) - lu(k,1130) * lu(k,1162)
4270 141174528 : lu(k,1190) = lu(k,1190) - lu(k,1128) * lu(k,1182)
4271 141174528 : lu(k,1191) = lu(k,1191) - lu(k,1129) * lu(k,1182)
4272 141174528 : lu(k,1195) = lu(k,1195) - lu(k,1130) * lu(k,1182)
4273 141174528 : lu(k,1222) = lu(k,1222) - lu(k,1128) * lu(k,1215)
4274 141174528 : lu(k,1223) = lu(k,1223) - lu(k,1129) * lu(k,1215)
4275 141174528 : lu(k,1227) = lu(k,1227) - lu(k,1130) * lu(k,1215)
4276 141174528 : lu(k,1245) = lu(k,1245) - lu(k,1128) * lu(k,1235)
4277 141174528 : lu(k,1246) = lu(k,1246) - lu(k,1129) * lu(k,1235)
4278 141174528 : lu(k,1250) = lu(k,1250) - lu(k,1130) * lu(k,1235)
4279 141174528 : lu(k,1259) = lu(k,1259) - lu(k,1128) * lu(k,1252)
4280 141174528 : lu(k,1260) = lu(k,1260) - lu(k,1129) * lu(k,1252)
4281 141174528 : lu(k,1262) = lu(k,1262) - lu(k,1130) * lu(k,1252)
4282 141174528 : lu(k,1268) = - lu(k,1128) * lu(k,1264)
4283 141174528 : lu(k,1269) = lu(k,1269) - lu(k,1129) * lu(k,1264)
4284 141174528 : lu(k,1271) = lu(k,1271) - lu(k,1130) * lu(k,1264)
4285 141174528 : lu(k,1309) = lu(k,1309) - lu(k,1128) * lu(k,1294)
4286 141174528 : lu(k,1310) = lu(k,1310) - lu(k,1129) * lu(k,1294)
4287 141174528 : lu(k,1315) = lu(k,1315) - lu(k,1130) * lu(k,1294)
4288 141174528 : lu(k,1342) = lu(k,1342) - lu(k,1128) * lu(k,1327)
4289 141174528 : lu(k,1343) = lu(k,1343) - lu(k,1129) * lu(k,1327)
4290 141174528 : lu(k,1348) = lu(k,1348) - lu(k,1130) * lu(k,1327)
4291 141174528 : lu(k,1364) = lu(k,1364) - lu(k,1128) * lu(k,1353)
4292 141174528 : lu(k,1365) = lu(k,1365) - lu(k,1129) * lu(k,1353)
4293 141174528 : lu(k,1369) = lu(k,1369) - lu(k,1130) * lu(k,1353)
4294 141174528 : lu(k,1386) = lu(k,1386) - lu(k,1128) * lu(k,1375)
4295 141174528 : lu(k,1387) = lu(k,1387) - lu(k,1129) * lu(k,1375)
4296 141174528 : lu(k,1392) = lu(k,1392) - lu(k,1130) * lu(k,1375)
4297 141174528 : lu(k,1406) = lu(k,1406) - lu(k,1128) * lu(k,1398)
4298 141174528 : lu(k,1407) = lu(k,1407) - lu(k,1129) * lu(k,1398)
4299 141174528 : lu(k,1412) = lu(k,1412) - lu(k,1130) * lu(k,1398)
4300 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1128) * lu(k,1422)
4301 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1129) * lu(k,1422)
4302 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1130) * lu(k,1422)
4303 141174528 : lu(k,1465) = lu(k,1465) - lu(k,1128) * lu(k,1461)
4304 141174528 : lu(k,1467) = lu(k,1467) - lu(k,1129) * lu(k,1461)
4305 141174528 : lu(k,1470) = lu(k,1470) - lu(k,1130) * lu(k,1461)
4306 141174528 : lu(k,1481) = lu(k,1481) - lu(k,1128) * lu(k,1475)
4307 141174528 : lu(k,1483) = lu(k,1483) - lu(k,1129) * lu(k,1475)
4308 141174528 : lu(k,1488) = lu(k,1488) - lu(k,1130) * lu(k,1475)
4309 141174528 : lu(k,1534) = lu(k,1534) - lu(k,1128) * lu(k,1526)
4310 141174528 : lu(k,1536) = lu(k,1536) - lu(k,1129) * lu(k,1526)
4311 141174528 : lu(k,1544) = lu(k,1544) - lu(k,1130) * lu(k,1526)
4312 141174528 : lu(k,1577) = lu(k,1577) - lu(k,1128) * lu(k,1565)
4313 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1129) * lu(k,1565)
4314 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1130) * lu(k,1565)
4315 141174528 : lu(k,1608) = lu(k,1608) - lu(k,1128) * lu(k,1599)
4316 141174528 : lu(k,1610) = lu(k,1610) - lu(k,1129) * lu(k,1599)
4317 141174528 : lu(k,1618) = lu(k,1618) - lu(k,1130) * lu(k,1599)
4318 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1128) * lu(k,1797)
4319 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1129) * lu(k,1797)
4320 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1130) * lu(k,1797)
4321 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1128) * lu(k,1926)
4322 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1129) * lu(k,1926)
4323 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1130) * lu(k,1926)
4324 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1128) * lu(k,1980)
4325 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1129) * lu(k,1980)
4326 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1130) * lu(k,1980)
4327 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1128) * lu(k,2059)
4328 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1129) * lu(k,2059)
4329 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1130) * lu(k,2059)
4330 141174528 : lu(k,2121) = lu(k,2121) - lu(k,1128) * lu(k,2112)
4331 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1129) * lu(k,2112)
4332 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1130) * lu(k,2112)
4333 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1128) * lu(k,2162)
4334 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1129) * lu(k,2162)
4335 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1130) * lu(k,2162)
4336 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1128) * lu(k,2279)
4337 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1129) * lu(k,2279)
4338 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1130) * lu(k,2279)
4339 141174528 : lu(k,1136) = 1._r8 / lu(k,1136)
4340 141174528 : lu(k,1137) = lu(k,1137) * lu(k,1136)
4341 141174528 : lu(k,1138) = lu(k,1138) * lu(k,1136)
4342 141174528 : lu(k,1139) = lu(k,1139) * lu(k,1136)
4343 141174528 : lu(k,1140) = lu(k,1140) * lu(k,1136)
4344 141174528 : lu(k,1141) = lu(k,1141) * lu(k,1136)
4345 141174528 : lu(k,1142) = lu(k,1142) * lu(k,1136)
4346 141174528 : lu(k,1143) = lu(k,1143) * lu(k,1136)
4347 141174528 : lu(k,1144) = lu(k,1144) * lu(k,1136)
4348 141174528 : lu(k,1145) = lu(k,1145) * lu(k,1136)
4349 141174528 : lu(k,1146) = lu(k,1146) * lu(k,1136)
4350 141174528 : lu(k,1147) = lu(k,1147) * lu(k,1136)
4351 141174528 : lu(k,1148) = lu(k,1148) * lu(k,1136)
4352 141174528 : lu(k,1296) = lu(k,1296) - lu(k,1137) * lu(k,1295)
4353 141174528 : lu(k,1297) = - lu(k,1138) * lu(k,1295)
4354 141174528 : lu(k,1305) = lu(k,1305) - lu(k,1139) * lu(k,1295)
4355 141174528 : lu(k,1306) = lu(k,1306) - lu(k,1140) * lu(k,1295)
4356 141174528 : lu(k,1307) = lu(k,1307) - lu(k,1141) * lu(k,1295)
4357 141174528 : lu(k,1308) = lu(k,1308) - lu(k,1142) * lu(k,1295)
4358 141174528 : lu(k,1309) = lu(k,1309) - lu(k,1143) * lu(k,1295)
4359 141174528 : lu(k,1310) = lu(k,1310) - lu(k,1144) * lu(k,1295)
4360 141174528 : lu(k,1312) = lu(k,1312) - lu(k,1145) * lu(k,1295)
4361 141174528 : lu(k,1313) = lu(k,1313) - lu(k,1146) * lu(k,1295)
4362 141174528 : lu(k,1315) = lu(k,1315) - lu(k,1147) * lu(k,1295)
4363 141174528 : lu(k,1316) = - lu(k,1148) * lu(k,1295)
4364 141174528 : lu(k,1329) = lu(k,1329) - lu(k,1137) * lu(k,1328)
4365 141174528 : lu(k,1330) = - lu(k,1138) * lu(k,1328)
4366 141174528 : lu(k,1338) = lu(k,1338) - lu(k,1139) * lu(k,1328)
4367 141174528 : lu(k,1339) = lu(k,1339) - lu(k,1140) * lu(k,1328)
4368 141174528 : lu(k,1340) = lu(k,1340) - lu(k,1141) * lu(k,1328)
4369 141174528 : lu(k,1341) = lu(k,1341) - lu(k,1142) * lu(k,1328)
4370 141174528 : lu(k,1342) = lu(k,1342) - lu(k,1143) * lu(k,1328)
4371 141174528 : lu(k,1343) = lu(k,1343) - lu(k,1144) * lu(k,1328)
4372 141174528 : lu(k,1345) = lu(k,1345) - lu(k,1145) * lu(k,1328)
4373 141174528 : lu(k,1346) = lu(k,1346) - lu(k,1146) * lu(k,1328)
4374 141174528 : lu(k,1348) = lu(k,1348) - lu(k,1147) * lu(k,1328)
4375 141174528 : lu(k,1349) = - lu(k,1148) * lu(k,1328)
4376 141174528 : lu(k,1355) = lu(k,1355) - lu(k,1137) * lu(k,1354)
4377 141174528 : lu(k,1356) = - lu(k,1138) * lu(k,1354)
4378 141174528 : lu(k,1360) = lu(k,1360) - lu(k,1139) * lu(k,1354)
4379 141174528 : lu(k,1361) = - lu(k,1140) * lu(k,1354)
4380 141174528 : lu(k,1362) = lu(k,1362) - lu(k,1141) * lu(k,1354)
4381 141174528 : lu(k,1363) = lu(k,1363) - lu(k,1142) * lu(k,1354)
4382 141174528 : lu(k,1364) = lu(k,1364) - lu(k,1143) * lu(k,1354)
4383 141174528 : lu(k,1365) = lu(k,1365) - lu(k,1144) * lu(k,1354)
4384 141174528 : lu(k,1367) = lu(k,1367) - lu(k,1145) * lu(k,1354)
4385 141174528 : lu(k,1368) = lu(k,1368) - lu(k,1146) * lu(k,1354)
4386 141174528 : lu(k,1369) = lu(k,1369) - lu(k,1147) * lu(k,1354)
4387 141174528 : lu(k,1370) = - lu(k,1148) * lu(k,1354)
4388 141174528 : lu(k,1799) = lu(k,1799) - lu(k,1137) * lu(k,1798)
4389 141174528 : lu(k,1802) = lu(k,1802) - lu(k,1138) * lu(k,1798)
4390 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1139) * lu(k,1798)
4391 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1140) * lu(k,1798)
4392 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1141) * lu(k,1798)
4393 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1142) * lu(k,1798)
4394 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1143) * lu(k,1798)
4395 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1144) * lu(k,1798)
4396 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1145) * lu(k,1798)
4397 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1146) * lu(k,1798)
4398 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1147) * lu(k,1798)
4399 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1148) * lu(k,1798)
4400 141174528 : lu(k,1928) = lu(k,1928) - lu(k,1137) * lu(k,1927)
4401 141174528 : lu(k,1931) = lu(k,1931) - lu(k,1138) * lu(k,1927)
4402 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1139) * lu(k,1927)
4403 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1140) * lu(k,1927)
4404 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1141) * lu(k,1927)
4405 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1142) * lu(k,1927)
4406 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1143) * lu(k,1927)
4407 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1144) * lu(k,1927)
4408 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1145) * lu(k,1927)
4409 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1146) * lu(k,1927)
4410 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1147) * lu(k,1927)
4411 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1148) * lu(k,1927)
4412 141174528 : lu(k,2061) = lu(k,2061) - lu(k,1137) * lu(k,2060)
4413 141174528 : lu(k,2064) = lu(k,2064) - lu(k,1138) * lu(k,2060)
4414 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1139) * lu(k,2060)
4415 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1140) * lu(k,2060)
4416 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1141) * lu(k,2060)
4417 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1142) * lu(k,2060)
4418 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1143) * lu(k,2060)
4419 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1144) * lu(k,2060)
4420 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1145) * lu(k,2060)
4421 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1146) * lu(k,2060)
4422 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1147) * lu(k,2060)
4423 145586232 : lu(k,2094) = lu(k,2094) - lu(k,1148) * lu(k,2060)
4424 : end do
4425 4411704 : end subroutine lu_fac23
4426 4411704 : subroutine lu_fac24( avec_len, lu )
4427 : use chem_mods, only : nzcnt
4428 : use shr_kind_mod, only : r8 => shr_kind_r8
4429 : implicit none
4430 : !-----------------------------------------------------------------------
4431 : ! ... dummy args
4432 : !-----------------------------------------------------------------------
4433 : integer, intent(in) :: avec_len
4434 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4435 : !-----------------------------------------------------------------------
4436 : ! ... local variables
4437 : !-----------------------------------------------------------------------
4438 : integer :: k
4439 145586232 : do k = 1,avec_len
4440 141174528 : lu(k,1149) = 1._r8 / lu(k,1149)
4441 141174528 : lu(k,1150) = lu(k,1150) * lu(k,1149)
4442 141174528 : lu(k,1151) = lu(k,1151) * lu(k,1149)
4443 141174528 : lu(k,1152) = lu(k,1152) * lu(k,1149)
4444 141174528 : lu(k,1153) = lu(k,1153) * lu(k,1149)
4445 141174528 : lu(k,1154) = lu(k,1154) * lu(k,1149)
4446 141174528 : lu(k,1201) = lu(k,1201) - lu(k,1150) * lu(k,1199)
4447 141174528 : lu(k,1202) = lu(k,1202) - lu(k,1151) * lu(k,1199)
4448 141174528 : lu(k,1203) = lu(k,1203) - lu(k,1152) * lu(k,1199)
4449 141174528 : lu(k,1205) = lu(k,1205) - lu(k,1153) * lu(k,1199)
4450 141174528 : lu(k,1208) = lu(k,1208) - lu(k,1154) * lu(k,1199)
4451 141174528 : lu(k,1218) = lu(k,1218) - lu(k,1150) * lu(k,1216)
4452 141174528 : lu(k,1219) = lu(k,1219) - lu(k,1151) * lu(k,1216)
4453 141174528 : lu(k,1220) = lu(k,1220) - lu(k,1152) * lu(k,1216)
4454 141174528 : lu(k,1223) = lu(k,1223) - lu(k,1153) * lu(k,1216)
4455 141174528 : lu(k,1227) = lu(k,1227) - lu(k,1154) * lu(k,1216)
4456 141174528 : lu(k,1300) = - lu(k,1150) * lu(k,1296)
4457 141174528 : lu(k,1305) = lu(k,1305) - lu(k,1151) * lu(k,1296)
4458 141174528 : lu(k,1307) = lu(k,1307) - lu(k,1152) * lu(k,1296)
4459 141174528 : lu(k,1310) = lu(k,1310) - lu(k,1153) * lu(k,1296)
4460 141174528 : lu(k,1315) = lu(k,1315) - lu(k,1154) * lu(k,1296)
4461 141174528 : lu(k,1333) = lu(k,1333) - lu(k,1150) * lu(k,1329)
4462 141174528 : lu(k,1338) = lu(k,1338) - lu(k,1151) * lu(k,1329)
4463 141174528 : lu(k,1340) = lu(k,1340) - lu(k,1152) * lu(k,1329)
4464 141174528 : lu(k,1343) = lu(k,1343) - lu(k,1153) * lu(k,1329)
4465 141174528 : lu(k,1348) = lu(k,1348) - lu(k,1154) * lu(k,1329)
4466 141174528 : lu(k,1357) = lu(k,1357) - lu(k,1150) * lu(k,1355)
4467 141174528 : lu(k,1360) = lu(k,1360) - lu(k,1151) * lu(k,1355)
4468 141174528 : lu(k,1362) = lu(k,1362) - lu(k,1152) * lu(k,1355)
4469 141174528 : lu(k,1365) = lu(k,1365) - lu(k,1153) * lu(k,1355)
4470 141174528 : lu(k,1369) = lu(k,1369) - lu(k,1154) * lu(k,1355)
4471 141174528 : lu(k,1377) = lu(k,1377) - lu(k,1150) * lu(k,1376)
4472 141174528 : lu(k,1381) = lu(k,1381) - lu(k,1151) * lu(k,1376)
4473 141174528 : lu(k,1384) = lu(k,1384) - lu(k,1152) * lu(k,1376)
4474 141174528 : lu(k,1387) = lu(k,1387) - lu(k,1153) * lu(k,1376)
4475 141174528 : lu(k,1392) = lu(k,1392) - lu(k,1154) * lu(k,1376)
4476 141174528 : lu(k,1400) = - lu(k,1150) * lu(k,1399)
4477 141174528 : lu(k,1402) = lu(k,1402) - lu(k,1151) * lu(k,1399)
4478 141174528 : lu(k,1404) = lu(k,1404) - lu(k,1152) * lu(k,1399)
4479 141174528 : lu(k,1407) = lu(k,1407) - lu(k,1153) * lu(k,1399)
4480 141174528 : lu(k,1412) = lu(k,1412) - lu(k,1154) * lu(k,1399)
4481 141174528 : lu(k,1427) = lu(k,1427) - lu(k,1150) * lu(k,1423)
4482 141174528 : lu(k,1433) = lu(k,1433) - lu(k,1151) * lu(k,1423)
4483 141174528 : lu(k,1436) = lu(k,1436) - lu(k,1152) * lu(k,1423)
4484 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1153) * lu(k,1423)
4485 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1154) * lu(k,1423)
4486 141174528 : lu(k,1567) = lu(k,1567) - lu(k,1150) * lu(k,1566)
4487 141174528 : lu(k,1570) = lu(k,1570) - lu(k,1151) * lu(k,1566)
4488 141174528 : lu(k,1575) = lu(k,1575) - lu(k,1152) * lu(k,1566)
4489 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1153) * lu(k,1566)
4490 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1154) * lu(k,1566)
4491 141174528 : lu(k,1806) = lu(k,1806) - lu(k,1150) * lu(k,1799)
4492 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1151) * lu(k,1799)
4493 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1152) * lu(k,1799)
4494 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1153) * lu(k,1799)
4495 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1154) * lu(k,1799)
4496 141174528 : lu(k,1935) = lu(k,1935) - lu(k,1150) * lu(k,1928)
4497 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1151) * lu(k,1928)
4498 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1152) * lu(k,1928)
4499 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1153) * lu(k,1928)
4500 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1154) * lu(k,1928)
4501 141174528 : lu(k,1988) = lu(k,1988) - lu(k,1150) * lu(k,1981)
4502 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1151) * lu(k,1981)
4503 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1152) * lu(k,1981)
4504 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1153) * lu(k,1981)
4505 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1154) * lu(k,1981)
4506 141174528 : lu(k,2068) = lu(k,2068) - lu(k,1150) * lu(k,2061)
4507 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1151) * lu(k,2061)
4508 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1152) * lu(k,2061)
4509 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1153) * lu(k,2061)
4510 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1154) * lu(k,2061)
4511 141174528 : lu(k,2169) = lu(k,2169) - lu(k,1150) * lu(k,2163)
4512 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1151) * lu(k,2163)
4513 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1152) * lu(k,2163)
4514 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1153) * lu(k,2163)
4515 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1154) * lu(k,2163)
4516 141174528 : lu(k,2287) = lu(k,2287) - lu(k,1150) * lu(k,2280)
4517 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1151) * lu(k,2280)
4518 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1152) * lu(k,2280)
4519 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1153) * lu(k,2280)
4520 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1154) * lu(k,2280)
4521 141174528 : lu(k,1163) = 1._r8 / lu(k,1163)
4522 141174528 : lu(k,1164) = lu(k,1164) * lu(k,1163)
4523 141174528 : lu(k,1165) = lu(k,1165) * lu(k,1163)
4524 141174528 : lu(k,1166) = lu(k,1166) * lu(k,1163)
4525 141174528 : lu(k,1167) = lu(k,1167) * lu(k,1163)
4526 141174528 : lu(k,1168) = lu(k,1168) * lu(k,1163)
4527 141174528 : lu(k,1169) = lu(k,1169) * lu(k,1163)
4528 141174528 : lu(k,1170) = lu(k,1170) * lu(k,1163)
4529 141174528 : lu(k,1171) = lu(k,1171) * lu(k,1163)
4530 141174528 : lu(k,1172) = lu(k,1172) * lu(k,1163)
4531 141174528 : lu(k,1173) = lu(k,1173) * lu(k,1163)
4532 141174528 : lu(k,1174) = lu(k,1174) * lu(k,1163)
4533 141174528 : lu(k,1185) = lu(k,1185) - lu(k,1164) * lu(k,1183)
4534 141174528 : lu(k,1186) = lu(k,1186) - lu(k,1165) * lu(k,1183)
4535 141174528 : lu(k,1187) = lu(k,1187) - lu(k,1166) * lu(k,1183)
4536 141174528 : lu(k,1188) = lu(k,1188) - lu(k,1167) * lu(k,1183)
4537 141174528 : lu(k,1189) = lu(k,1189) - lu(k,1168) * lu(k,1183)
4538 141174528 : lu(k,1190) = lu(k,1190) - lu(k,1169) * lu(k,1183)
4539 141174528 : lu(k,1191) = lu(k,1191) - lu(k,1170) * lu(k,1183)
4540 141174528 : lu(k,1192) = lu(k,1192) - lu(k,1171) * lu(k,1183)
4541 141174528 : lu(k,1193) = lu(k,1193) - lu(k,1172) * lu(k,1183)
4542 141174528 : lu(k,1195) = lu(k,1195) - lu(k,1173) * lu(k,1183)
4543 141174528 : lu(k,1196) = lu(k,1196) - lu(k,1174) * lu(k,1183)
4544 141174528 : lu(k,1802) = lu(k,1802) - lu(k,1164) * lu(k,1800)
4545 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1165) * lu(k,1800)
4546 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1166) * lu(k,1800)
4547 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1167) * lu(k,1800)
4548 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1168) * lu(k,1800)
4549 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1169) * lu(k,1800)
4550 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1170) * lu(k,1800)
4551 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1171) * lu(k,1800)
4552 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1172) * lu(k,1800)
4553 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1173) * lu(k,1800)
4554 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1174) * lu(k,1800)
4555 141174528 : lu(k,1931) = lu(k,1931) - lu(k,1164) * lu(k,1929)
4556 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1165) * lu(k,1929)
4557 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1166) * lu(k,1929)
4558 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1167) * lu(k,1929)
4559 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1168) * lu(k,1929)
4560 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1169) * lu(k,1929)
4561 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1170) * lu(k,1929)
4562 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1171) * lu(k,1929)
4563 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1172) * lu(k,1929)
4564 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1173) * lu(k,1929)
4565 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1174) * lu(k,1929)
4566 141174528 : lu(k,1984) = lu(k,1984) - lu(k,1164) * lu(k,1982)
4567 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1165) * lu(k,1982)
4568 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1166) * lu(k,1982)
4569 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1167) * lu(k,1982)
4570 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1168) * lu(k,1982)
4571 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1169) * lu(k,1982)
4572 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1170) * lu(k,1982)
4573 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1171) * lu(k,1982)
4574 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1172) * lu(k,1982)
4575 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1173) * lu(k,1982)
4576 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1174) * lu(k,1982)
4577 141174528 : lu(k,2064) = lu(k,2064) - lu(k,1164) * lu(k,2062)
4578 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1165) * lu(k,2062)
4579 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1166) * lu(k,2062)
4580 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1167) * lu(k,2062)
4581 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1168) * lu(k,2062)
4582 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1169) * lu(k,2062)
4583 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1170) * lu(k,2062)
4584 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1171) * lu(k,2062)
4585 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1172) * lu(k,2062)
4586 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1173) * lu(k,2062)
4587 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1174) * lu(k,2062)
4588 141174528 : lu(k,2166) = lu(k,2166) - lu(k,1164) * lu(k,2164)
4589 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1165) * lu(k,2164)
4590 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1166) * lu(k,2164)
4591 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1167) * lu(k,2164)
4592 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1168) * lu(k,2164)
4593 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1169) * lu(k,2164)
4594 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1170) * lu(k,2164)
4595 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1171) * lu(k,2164)
4596 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1172) * lu(k,2164)
4597 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1173) * lu(k,2164)
4598 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1174) * lu(k,2164)
4599 141174528 : lu(k,2283) = lu(k,2283) - lu(k,1164) * lu(k,2281)
4600 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1165) * lu(k,2281)
4601 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1166) * lu(k,2281)
4602 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1167) * lu(k,2281)
4603 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1168) * lu(k,2281)
4604 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1169) * lu(k,2281)
4605 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1170) * lu(k,2281)
4606 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1171) * lu(k,2281)
4607 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1172) * lu(k,2281)
4608 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1173) * lu(k,2281)
4609 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1174) * lu(k,2281)
4610 141174528 : lu(k,1184) = 1._r8 / lu(k,1184)
4611 141174528 : lu(k,1185) = lu(k,1185) * lu(k,1184)
4612 141174528 : lu(k,1186) = lu(k,1186) * lu(k,1184)
4613 141174528 : lu(k,1187) = lu(k,1187) * lu(k,1184)
4614 141174528 : lu(k,1188) = lu(k,1188) * lu(k,1184)
4615 141174528 : lu(k,1189) = lu(k,1189) * lu(k,1184)
4616 141174528 : lu(k,1190) = lu(k,1190) * lu(k,1184)
4617 141174528 : lu(k,1191) = lu(k,1191) * lu(k,1184)
4618 141174528 : lu(k,1192) = lu(k,1192) * lu(k,1184)
4619 141174528 : lu(k,1193) = lu(k,1193) * lu(k,1184)
4620 141174528 : lu(k,1194) = lu(k,1194) * lu(k,1184)
4621 141174528 : lu(k,1195) = lu(k,1195) * lu(k,1184)
4622 141174528 : lu(k,1196) = lu(k,1196) * lu(k,1184)
4623 141174528 : lu(k,1802) = lu(k,1802) - lu(k,1185) * lu(k,1801)
4624 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1186) * lu(k,1801)
4625 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1187) * lu(k,1801)
4626 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1188) * lu(k,1801)
4627 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1189) * lu(k,1801)
4628 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1190) * lu(k,1801)
4629 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1191) * lu(k,1801)
4630 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1192) * lu(k,1801)
4631 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1193) * lu(k,1801)
4632 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1194) * lu(k,1801)
4633 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1195) * lu(k,1801)
4634 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1196) * lu(k,1801)
4635 141174528 : lu(k,1931) = lu(k,1931) - lu(k,1185) * lu(k,1930)
4636 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1186) * lu(k,1930)
4637 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1187) * lu(k,1930)
4638 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1188) * lu(k,1930)
4639 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1189) * lu(k,1930)
4640 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1190) * lu(k,1930)
4641 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1191) * lu(k,1930)
4642 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1192) * lu(k,1930)
4643 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1193) * lu(k,1930)
4644 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1194) * lu(k,1930)
4645 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1195) * lu(k,1930)
4646 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1196) * lu(k,1930)
4647 141174528 : lu(k,1984) = lu(k,1984) - lu(k,1185) * lu(k,1983)
4648 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1186) * lu(k,1983)
4649 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1187) * lu(k,1983)
4650 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1188) * lu(k,1983)
4651 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1189) * lu(k,1983)
4652 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1190) * lu(k,1983)
4653 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1191) * lu(k,1983)
4654 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1192) * lu(k,1983)
4655 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1193) * lu(k,1983)
4656 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1194) * lu(k,1983)
4657 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1195) * lu(k,1983)
4658 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1196) * lu(k,1983)
4659 141174528 : lu(k,2064) = lu(k,2064) - lu(k,1185) * lu(k,2063)
4660 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1186) * lu(k,2063)
4661 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1187) * lu(k,2063)
4662 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1188) * lu(k,2063)
4663 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1189) * lu(k,2063)
4664 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1190) * lu(k,2063)
4665 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1191) * lu(k,2063)
4666 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1192) * lu(k,2063)
4667 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1193) * lu(k,2063)
4668 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1194) * lu(k,2063)
4669 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1195) * lu(k,2063)
4670 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1196) * lu(k,2063)
4671 141174528 : lu(k,2166) = lu(k,2166) - lu(k,1185) * lu(k,2165)
4672 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1186) * lu(k,2165)
4673 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1187) * lu(k,2165)
4674 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1188) * lu(k,2165)
4675 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1189) * lu(k,2165)
4676 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1190) * lu(k,2165)
4677 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1191) * lu(k,2165)
4678 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1192) * lu(k,2165)
4679 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1193) * lu(k,2165)
4680 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1194) * lu(k,2165)
4681 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1195) * lu(k,2165)
4682 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1196) * lu(k,2165)
4683 141174528 : lu(k,2283) = lu(k,2283) - lu(k,1185) * lu(k,2282)
4684 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1186) * lu(k,2282)
4685 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1187) * lu(k,2282)
4686 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1188) * lu(k,2282)
4687 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1189) * lu(k,2282)
4688 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1190) * lu(k,2282)
4689 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1191) * lu(k,2282)
4690 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1192) * lu(k,2282)
4691 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1193) * lu(k,2282)
4692 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1194) * lu(k,2282)
4693 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1195) * lu(k,2282)
4694 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1196) * lu(k,2282)
4695 141174528 : lu(k,1200) = 1._r8 / lu(k,1200)
4696 141174528 : lu(k,1201) = lu(k,1201) * lu(k,1200)
4697 141174528 : lu(k,1202) = lu(k,1202) * lu(k,1200)
4698 141174528 : lu(k,1203) = lu(k,1203) * lu(k,1200)
4699 141174528 : lu(k,1204) = lu(k,1204) * lu(k,1200)
4700 141174528 : lu(k,1205) = lu(k,1205) * lu(k,1200)
4701 141174528 : lu(k,1206) = lu(k,1206) * lu(k,1200)
4702 141174528 : lu(k,1207) = lu(k,1207) * lu(k,1200)
4703 141174528 : lu(k,1208) = lu(k,1208) * lu(k,1200)
4704 141174528 : lu(k,1209) = lu(k,1209) * lu(k,1200)
4705 141174528 : lu(k,1300) = lu(k,1300) - lu(k,1201) * lu(k,1297)
4706 141174528 : lu(k,1305) = lu(k,1305) - lu(k,1202) * lu(k,1297)
4707 141174528 : lu(k,1307) = lu(k,1307) - lu(k,1203) * lu(k,1297)
4708 141174528 : lu(k,1308) = lu(k,1308) - lu(k,1204) * lu(k,1297)
4709 141174528 : lu(k,1310) = lu(k,1310) - lu(k,1205) * lu(k,1297)
4710 141174528 : lu(k,1311) = lu(k,1311) - lu(k,1206) * lu(k,1297)
4711 141174528 : lu(k,1312) = lu(k,1312) - lu(k,1207) * lu(k,1297)
4712 141174528 : lu(k,1315) = lu(k,1315) - lu(k,1208) * lu(k,1297)
4713 141174528 : lu(k,1316) = lu(k,1316) - lu(k,1209) * lu(k,1297)
4714 141174528 : lu(k,1333) = lu(k,1333) - lu(k,1201) * lu(k,1330)
4715 141174528 : lu(k,1338) = lu(k,1338) - lu(k,1202) * lu(k,1330)
4716 141174528 : lu(k,1340) = lu(k,1340) - lu(k,1203) * lu(k,1330)
4717 141174528 : lu(k,1341) = lu(k,1341) - lu(k,1204) * lu(k,1330)
4718 141174528 : lu(k,1343) = lu(k,1343) - lu(k,1205) * lu(k,1330)
4719 141174528 : lu(k,1344) = lu(k,1344) - lu(k,1206) * lu(k,1330)
4720 141174528 : lu(k,1345) = lu(k,1345) - lu(k,1207) * lu(k,1330)
4721 141174528 : lu(k,1348) = lu(k,1348) - lu(k,1208) * lu(k,1330)
4722 141174528 : lu(k,1349) = lu(k,1349) - lu(k,1209) * lu(k,1330)
4723 141174528 : lu(k,1357) = lu(k,1357) - lu(k,1201) * lu(k,1356)
4724 141174528 : lu(k,1360) = lu(k,1360) - lu(k,1202) * lu(k,1356)
4725 141174528 : lu(k,1362) = lu(k,1362) - lu(k,1203) * lu(k,1356)
4726 141174528 : lu(k,1363) = lu(k,1363) - lu(k,1204) * lu(k,1356)
4727 141174528 : lu(k,1365) = lu(k,1365) - lu(k,1205) * lu(k,1356)
4728 141174528 : lu(k,1366) = lu(k,1366) - lu(k,1206) * lu(k,1356)
4729 141174528 : lu(k,1367) = lu(k,1367) - lu(k,1207) * lu(k,1356)
4730 141174528 : lu(k,1369) = lu(k,1369) - lu(k,1208) * lu(k,1356)
4731 141174528 : lu(k,1370) = lu(k,1370) - lu(k,1209) * lu(k,1356)
4732 141174528 : lu(k,1806) = lu(k,1806) - lu(k,1201) * lu(k,1802)
4733 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1202) * lu(k,1802)
4734 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1203) * lu(k,1802)
4735 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1204) * lu(k,1802)
4736 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1205) * lu(k,1802)
4737 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1206) * lu(k,1802)
4738 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1207) * lu(k,1802)
4739 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1208) * lu(k,1802)
4740 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1209) * lu(k,1802)
4741 141174528 : lu(k,1935) = lu(k,1935) - lu(k,1201) * lu(k,1931)
4742 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1202) * lu(k,1931)
4743 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1203) * lu(k,1931)
4744 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1204) * lu(k,1931)
4745 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1205) * lu(k,1931)
4746 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1206) * lu(k,1931)
4747 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1207) * lu(k,1931)
4748 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1208) * lu(k,1931)
4749 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1209) * lu(k,1931)
4750 141174528 : lu(k,1988) = lu(k,1988) - lu(k,1201) * lu(k,1984)
4751 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1202) * lu(k,1984)
4752 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1203) * lu(k,1984)
4753 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1204) * lu(k,1984)
4754 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1205) * lu(k,1984)
4755 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1206) * lu(k,1984)
4756 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1207) * lu(k,1984)
4757 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1208) * lu(k,1984)
4758 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1209) * lu(k,1984)
4759 141174528 : lu(k,2068) = lu(k,2068) - lu(k,1201) * lu(k,2064)
4760 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1202) * lu(k,2064)
4761 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1203) * lu(k,2064)
4762 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1204) * lu(k,2064)
4763 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1205) * lu(k,2064)
4764 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1206) * lu(k,2064)
4765 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1207) * lu(k,2064)
4766 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1208) * lu(k,2064)
4767 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1209) * lu(k,2064)
4768 141174528 : lu(k,2169) = lu(k,2169) - lu(k,1201) * lu(k,2166)
4769 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1202) * lu(k,2166)
4770 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1203) * lu(k,2166)
4771 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1204) * lu(k,2166)
4772 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1205) * lu(k,2166)
4773 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1206) * lu(k,2166)
4774 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1207) * lu(k,2166)
4775 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1208) * lu(k,2166)
4776 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1209) * lu(k,2166)
4777 141174528 : lu(k,2287) = lu(k,2287) - lu(k,1201) * lu(k,2283)
4778 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1202) * lu(k,2283)
4779 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1203) * lu(k,2283)
4780 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1204) * lu(k,2283)
4781 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1205) * lu(k,2283)
4782 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1206) * lu(k,2283)
4783 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1207) * lu(k,2283)
4784 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1208) * lu(k,2283)
4785 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1209) * lu(k,2283)
4786 141174528 : lu(k,1217) = 1._r8 / lu(k,1217)
4787 141174528 : lu(k,1218) = lu(k,1218) * lu(k,1217)
4788 141174528 : lu(k,1219) = lu(k,1219) * lu(k,1217)
4789 141174528 : lu(k,1220) = lu(k,1220) * lu(k,1217)
4790 141174528 : lu(k,1221) = lu(k,1221) * lu(k,1217)
4791 141174528 : lu(k,1222) = lu(k,1222) * lu(k,1217)
4792 141174528 : lu(k,1223) = lu(k,1223) * lu(k,1217)
4793 141174528 : lu(k,1224) = lu(k,1224) * lu(k,1217)
4794 141174528 : lu(k,1225) = lu(k,1225) * lu(k,1217)
4795 141174528 : lu(k,1226) = lu(k,1226) * lu(k,1217)
4796 141174528 : lu(k,1227) = lu(k,1227) * lu(k,1217)
4797 141174528 : lu(k,1239) = lu(k,1239) - lu(k,1218) * lu(k,1236)
4798 141174528 : lu(k,1241) = lu(k,1241) - lu(k,1219) * lu(k,1236)
4799 141174528 : lu(k,1243) = lu(k,1243) - lu(k,1220) * lu(k,1236)
4800 141174528 : lu(k,1244) = lu(k,1244) - lu(k,1221) * lu(k,1236)
4801 141174528 : lu(k,1245) = lu(k,1245) - lu(k,1222) * lu(k,1236)
4802 141174528 : lu(k,1246) = lu(k,1246) - lu(k,1223) * lu(k,1236)
4803 141174528 : lu(k,1247) = lu(k,1247) - lu(k,1224) * lu(k,1236)
4804 141174528 : lu(k,1248) = lu(k,1248) - lu(k,1225) * lu(k,1236)
4805 141174528 : lu(k,1249) = lu(k,1249) - lu(k,1226) * lu(k,1236)
4806 141174528 : lu(k,1250) = lu(k,1250) - lu(k,1227) * lu(k,1236)
4807 141174528 : lu(k,1300) = lu(k,1300) - lu(k,1218) * lu(k,1298)
4808 141174528 : lu(k,1305) = lu(k,1305) - lu(k,1219) * lu(k,1298)
4809 141174528 : lu(k,1307) = lu(k,1307) - lu(k,1220) * lu(k,1298)
4810 141174528 : lu(k,1308) = lu(k,1308) - lu(k,1221) * lu(k,1298)
4811 141174528 : lu(k,1309) = lu(k,1309) - lu(k,1222) * lu(k,1298)
4812 141174528 : lu(k,1310) = lu(k,1310) - lu(k,1223) * lu(k,1298)
4813 141174528 : lu(k,1311) = lu(k,1311) - lu(k,1224) * lu(k,1298)
4814 141174528 : lu(k,1312) = lu(k,1312) - lu(k,1225) * lu(k,1298)
4815 141174528 : lu(k,1313) = lu(k,1313) - lu(k,1226) * lu(k,1298)
4816 141174528 : lu(k,1315) = lu(k,1315) - lu(k,1227) * lu(k,1298)
4817 141174528 : lu(k,1333) = lu(k,1333) - lu(k,1218) * lu(k,1331)
4818 141174528 : lu(k,1338) = lu(k,1338) - lu(k,1219) * lu(k,1331)
4819 141174528 : lu(k,1340) = lu(k,1340) - lu(k,1220) * lu(k,1331)
4820 141174528 : lu(k,1341) = lu(k,1341) - lu(k,1221) * lu(k,1331)
4821 141174528 : lu(k,1342) = lu(k,1342) - lu(k,1222) * lu(k,1331)
4822 141174528 : lu(k,1343) = lu(k,1343) - lu(k,1223) * lu(k,1331)
4823 141174528 : lu(k,1344) = lu(k,1344) - lu(k,1224) * lu(k,1331)
4824 141174528 : lu(k,1345) = lu(k,1345) - lu(k,1225) * lu(k,1331)
4825 141174528 : lu(k,1346) = lu(k,1346) - lu(k,1226) * lu(k,1331)
4826 141174528 : lu(k,1348) = lu(k,1348) - lu(k,1227) * lu(k,1331)
4827 141174528 : lu(k,1427) = lu(k,1427) - lu(k,1218) * lu(k,1424)
4828 141174528 : lu(k,1433) = lu(k,1433) - lu(k,1219) * lu(k,1424)
4829 141174528 : lu(k,1436) = lu(k,1436) - lu(k,1220) * lu(k,1424)
4830 141174528 : lu(k,1437) = lu(k,1437) - lu(k,1221) * lu(k,1424)
4831 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1222) * lu(k,1424)
4832 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1223) * lu(k,1424)
4833 141174528 : lu(k,1440) = lu(k,1440) - lu(k,1224) * lu(k,1424)
4834 141174528 : lu(k,1441) = lu(k,1441) - lu(k,1225) * lu(k,1424)
4835 141174528 : lu(k,1442) = lu(k,1442) - lu(k,1226) * lu(k,1424)
4836 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1227) * lu(k,1424)
4837 141174528 : lu(k,1806) = lu(k,1806) - lu(k,1218) * lu(k,1803)
4838 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1219) * lu(k,1803)
4839 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1220) * lu(k,1803)
4840 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1221) * lu(k,1803)
4841 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1222) * lu(k,1803)
4842 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1223) * lu(k,1803)
4843 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1224) * lu(k,1803)
4844 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1225) * lu(k,1803)
4845 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1226) * lu(k,1803)
4846 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1227) * lu(k,1803)
4847 141174528 : lu(k,1935) = lu(k,1935) - lu(k,1218) * lu(k,1932)
4848 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1219) * lu(k,1932)
4849 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1220) * lu(k,1932)
4850 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1221) * lu(k,1932)
4851 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1222) * lu(k,1932)
4852 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1223) * lu(k,1932)
4853 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1224) * lu(k,1932)
4854 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1225) * lu(k,1932)
4855 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1226) * lu(k,1932)
4856 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1227) * lu(k,1932)
4857 141174528 : lu(k,1988) = lu(k,1988) - lu(k,1218) * lu(k,1985)
4858 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1219) * lu(k,1985)
4859 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1220) * lu(k,1985)
4860 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1221) * lu(k,1985)
4861 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1222) * lu(k,1985)
4862 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1223) * lu(k,1985)
4863 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1224) * lu(k,1985)
4864 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1225) * lu(k,1985)
4865 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1226) * lu(k,1985)
4866 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1227) * lu(k,1985)
4867 141174528 : lu(k,2068) = lu(k,2068) - lu(k,1218) * lu(k,2065)
4868 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1219) * lu(k,2065)
4869 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1220) * lu(k,2065)
4870 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1221) * lu(k,2065)
4871 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1222) * lu(k,2065)
4872 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1223) * lu(k,2065)
4873 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1224) * lu(k,2065)
4874 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1225) * lu(k,2065)
4875 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1226) * lu(k,2065)
4876 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1227) * lu(k,2065)
4877 141174528 : lu(k,2287) = lu(k,2287) - lu(k,1218) * lu(k,2284)
4878 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1219) * lu(k,2284)
4879 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1220) * lu(k,2284)
4880 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1221) * lu(k,2284)
4881 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1222) * lu(k,2284)
4882 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1223) * lu(k,2284)
4883 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1224) * lu(k,2284)
4884 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1225) * lu(k,2284)
4885 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1226) * lu(k,2284)
4886 145586232 : lu(k,2311) = lu(k,2311) - lu(k,1227) * lu(k,2284)
4887 : end do
4888 4411704 : end subroutine lu_fac24
4889 4411704 : subroutine lu_fac25( avec_len, lu )
4890 : use chem_mods, only : nzcnt
4891 : use shr_kind_mod, only : r8 => shr_kind_r8
4892 : implicit none
4893 : !-----------------------------------------------------------------------
4894 : ! ... dummy args
4895 : !-----------------------------------------------------------------------
4896 : integer, intent(in) :: avec_len
4897 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4898 : !-----------------------------------------------------------------------
4899 : ! ... local variables
4900 : !-----------------------------------------------------------------------
4901 : integer :: k
4902 145586232 : do k = 1,avec_len
4903 141174528 : lu(k,1237) = 1._r8 / lu(k,1237)
4904 141174528 : lu(k,1238) = lu(k,1238) * lu(k,1237)
4905 141174528 : lu(k,1239) = lu(k,1239) * lu(k,1237)
4906 141174528 : lu(k,1240) = lu(k,1240) * lu(k,1237)
4907 141174528 : lu(k,1241) = lu(k,1241) * lu(k,1237)
4908 141174528 : lu(k,1242) = lu(k,1242) * lu(k,1237)
4909 141174528 : lu(k,1243) = lu(k,1243) * lu(k,1237)
4910 141174528 : lu(k,1244) = lu(k,1244) * lu(k,1237)
4911 141174528 : lu(k,1245) = lu(k,1245) * lu(k,1237)
4912 141174528 : lu(k,1246) = lu(k,1246) * lu(k,1237)
4913 141174528 : lu(k,1247) = lu(k,1247) * lu(k,1237)
4914 141174528 : lu(k,1248) = lu(k,1248) * lu(k,1237)
4915 141174528 : lu(k,1249) = lu(k,1249) * lu(k,1237)
4916 141174528 : lu(k,1250) = lu(k,1250) * lu(k,1237)
4917 141174528 : lu(k,1426) = lu(k,1426) - lu(k,1238) * lu(k,1425)
4918 141174528 : lu(k,1427) = lu(k,1427) - lu(k,1239) * lu(k,1425)
4919 141174528 : lu(k,1431) = lu(k,1431) - lu(k,1240) * lu(k,1425)
4920 141174528 : lu(k,1433) = lu(k,1433) - lu(k,1241) * lu(k,1425)
4921 141174528 : lu(k,1435) = lu(k,1435) - lu(k,1242) * lu(k,1425)
4922 141174528 : lu(k,1436) = lu(k,1436) - lu(k,1243) * lu(k,1425)
4923 141174528 : lu(k,1437) = lu(k,1437) - lu(k,1244) * lu(k,1425)
4924 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1245) * lu(k,1425)
4925 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1246) * lu(k,1425)
4926 141174528 : lu(k,1440) = lu(k,1440) - lu(k,1247) * lu(k,1425)
4927 141174528 : lu(k,1441) = lu(k,1441) - lu(k,1248) * lu(k,1425)
4928 141174528 : lu(k,1442) = lu(k,1442) - lu(k,1249) * lu(k,1425)
4929 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1250) * lu(k,1425)
4930 141174528 : lu(k,1805) = lu(k,1805) - lu(k,1238) * lu(k,1804)
4931 141174528 : lu(k,1806) = lu(k,1806) - lu(k,1239) * lu(k,1804)
4932 141174528 : lu(k,1811) = lu(k,1811) - lu(k,1240) * lu(k,1804)
4933 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1241) * lu(k,1804)
4934 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1242) * lu(k,1804)
4935 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1243) * lu(k,1804)
4936 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1244) * lu(k,1804)
4937 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1245) * lu(k,1804)
4938 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1246) * lu(k,1804)
4939 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1247) * lu(k,1804)
4940 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1248) * lu(k,1804)
4941 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1249) * lu(k,1804)
4942 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1250) * lu(k,1804)
4943 141174528 : lu(k,1934) = lu(k,1934) - lu(k,1238) * lu(k,1933)
4944 141174528 : lu(k,1935) = lu(k,1935) - lu(k,1239) * lu(k,1933)
4945 141174528 : lu(k,1939) = lu(k,1939) - lu(k,1240) * lu(k,1933)
4946 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1241) * lu(k,1933)
4947 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1242) * lu(k,1933)
4948 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1243) * lu(k,1933)
4949 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1244) * lu(k,1933)
4950 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1245) * lu(k,1933)
4951 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1246) * lu(k,1933)
4952 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1247) * lu(k,1933)
4953 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1248) * lu(k,1933)
4954 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1249) * lu(k,1933)
4955 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1250) * lu(k,1933)
4956 141174528 : lu(k,1987) = lu(k,1987) - lu(k,1238) * lu(k,1986)
4957 141174528 : lu(k,1988) = lu(k,1988) - lu(k,1239) * lu(k,1986)
4958 141174528 : lu(k,1992) = lu(k,1992) - lu(k,1240) * lu(k,1986)
4959 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1241) * lu(k,1986)
4960 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1242) * lu(k,1986)
4961 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1243) * lu(k,1986)
4962 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1244) * lu(k,1986)
4963 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1245) * lu(k,1986)
4964 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1246) * lu(k,1986)
4965 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1247) * lu(k,1986)
4966 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1248) * lu(k,1986)
4967 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1249) * lu(k,1986)
4968 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1250) * lu(k,1986)
4969 141174528 : lu(k,2067) = lu(k,2067) - lu(k,1238) * lu(k,2066)
4970 141174528 : lu(k,2068) = lu(k,2068) - lu(k,1239) * lu(k,2066)
4971 141174528 : lu(k,2073) = lu(k,2073) - lu(k,1240) * lu(k,2066)
4972 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1241) * lu(k,2066)
4973 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1242) * lu(k,2066)
4974 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1243) * lu(k,2066)
4975 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1244) * lu(k,2066)
4976 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1245) * lu(k,2066)
4977 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1246) * lu(k,2066)
4978 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1247) * lu(k,2066)
4979 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1248) * lu(k,2066)
4980 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1249) * lu(k,2066)
4981 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1250) * lu(k,2066)
4982 141174528 : lu(k,2168) = lu(k,2168) - lu(k,1238) * lu(k,2167)
4983 141174528 : lu(k,2169) = lu(k,2169) - lu(k,1239) * lu(k,2167)
4984 141174528 : lu(k,2174) = lu(k,2174) - lu(k,1240) * lu(k,2167)
4985 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1241) * lu(k,2167)
4986 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1242) * lu(k,2167)
4987 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1243) * lu(k,2167)
4988 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1244) * lu(k,2167)
4989 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1245) * lu(k,2167)
4990 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1246) * lu(k,2167)
4991 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1247) * lu(k,2167)
4992 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1248) * lu(k,2167)
4993 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1249) * lu(k,2167)
4994 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1250) * lu(k,2167)
4995 141174528 : lu(k,2286) = lu(k,2286) - lu(k,1238) * lu(k,2285)
4996 141174528 : lu(k,2287) = lu(k,2287) - lu(k,1239) * lu(k,2285)
4997 141174528 : lu(k,2291) = lu(k,2291) - lu(k,1240) * lu(k,2285)
4998 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1241) * lu(k,2285)
4999 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1242) * lu(k,2285)
5000 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1243) * lu(k,2285)
5001 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1244) * lu(k,2285)
5002 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1245) * lu(k,2285)
5003 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1246) * lu(k,2285)
5004 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1247) * lu(k,2285)
5005 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1248) * lu(k,2285)
5006 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1249) * lu(k,2285)
5007 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1250) * lu(k,2285)
5008 141174528 : lu(k,1253) = 1._r8 / lu(k,1253)
5009 141174528 : lu(k,1254) = lu(k,1254) * lu(k,1253)
5010 141174528 : lu(k,1255) = lu(k,1255) * lu(k,1253)
5011 141174528 : lu(k,1256) = lu(k,1256) * lu(k,1253)
5012 141174528 : lu(k,1257) = lu(k,1257) * lu(k,1253)
5013 141174528 : lu(k,1258) = lu(k,1258) * lu(k,1253)
5014 141174528 : lu(k,1259) = lu(k,1259) * lu(k,1253)
5015 141174528 : lu(k,1260) = lu(k,1260) * lu(k,1253)
5016 141174528 : lu(k,1261) = lu(k,1261) * lu(k,1253)
5017 141174528 : lu(k,1262) = lu(k,1262) * lu(k,1253)
5018 141174528 : lu(k,1263) = lu(k,1263) * lu(k,1253)
5019 141174528 : lu(k,1300) = lu(k,1300) - lu(k,1254) * lu(k,1299)
5020 141174528 : lu(k,1302) = - lu(k,1255) * lu(k,1299)
5021 141174528 : lu(k,1304) = - lu(k,1256) * lu(k,1299)
5022 141174528 : lu(k,1305) = lu(k,1305) - lu(k,1257) * lu(k,1299)
5023 141174528 : lu(k,1307) = lu(k,1307) - lu(k,1258) * lu(k,1299)
5024 141174528 : lu(k,1309) = lu(k,1309) - lu(k,1259) * lu(k,1299)
5025 141174528 : lu(k,1310) = lu(k,1310) - lu(k,1260) * lu(k,1299)
5026 141174528 : lu(k,1314) = - lu(k,1261) * lu(k,1299)
5027 141174528 : lu(k,1315) = lu(k,1315) - lu(k,1262) * lu(k,1299)
5028 141174528 : lu(k,1316) = lu(k,1316) - lu(k,1263) * lu(k,1299)
5029 141174528 : lu(k,1333) = lu(k,1333) - lu(k,1254) * lu(k,1332)
5030 141174528 : lu(k,1335) = - lu(k,1255) * lu(k,1332)
5031 141174528 : lu(k,1337) = - lu(k,1256) * lu(k,1332)
5032 141174528 : lu(k,1338) = lu(k,1338) - lu(k,1257) * lu(k,1332)
5033 141174528 : lu(k,1340) = lu(k,1340) - lu(k,1258) * lu(k,1332)
5034 141174528 : lu(k,1342) = lu(k,1342) - lu(k,1259) * lu(k,1332)
5035 141174528 : lu(k,1343) = lu(k,1343) - lu(k,1260) * lu(k,1332)
5036 141174528 : lu(k,1347) = - lu(k,1261) * lu(k,1332)
5037 141174528 : lu(k,1348) = lu(k,1348) - lu(k,1262) * lu(k,1332)
5038 141174528 : lu(k,1349) = lu(k,1349) - lu(k,1263) * lu(k,1332)
5039 141174528 : lu(k,1427) = lu(k,1427) - lu(k,1254) * lu(k,1426)
5040 141174528 : lu(k,1430) = lu(k,1430) - lu(k,1255) * lu(k,1426)
5041 141174528 : lu(k,1432) = lu(k,1432) - lu(k,1256) * lu(k,1426)
5042 141174528 : lu(k,1433) = lu(k,1433) - lu(k,1257) * lu(k,1426)
5043 141174528 : lu(k,1436) = lu(k,1436) - lu(k,1258) * lu(k,1426)
5044 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1259) * lu(k,1426)
5045 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1260) * lu(k,1426)
5046 141174528 : lu(k,1443) = lu(k,1443) - lu(k,1261) * lu(k,1426)
5047 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1262) * lu(k,1426)
5048 141174528 : lu(k,1445) = lu(k,1445) - lu(k,1263) * lu(k,1426)
5049 141174528 : lu(k,1806) = lu(k,1806) - lu(k,1254) * lu(k,1805)
5050 141174528 : lu(k,1810) = lu(k,1810) - lu(k,1255) * lu(k,1805)
5051 141174528 : lu(k,1812) = lu(k,1812) - lu(k,1256) * lu(k,1805)
5052 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1257) * lu(k,1805)
5053 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1258) * lu(k,1805)
5054 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1259) * lu(k,1805)
5055 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1260) * lu(k,1805)
5056 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1261) * lu(k,1805)
5057 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1262) * lu(k,1805)
5058 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1263) * lu(k,1805)
5059 141174528 : lu(k,1935) = lu(k,1935) - lu(k,1254) * lu(k,1934)
5060 141174528 : lu(k,1938) = lu(k,1938) - lu(k,1255) * lu(k,1934)
5061 141174528 : lu(k,1940) = lu(k,1940) - lu(k,1256) * lu(k,1934)
5062 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1257) * lu(k,1934)
5063 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1258) * lu(k,1934)
5064 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1259) * lu(k,1934)
5065 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1260) * lu(k,1934)
5066 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1261) * lu(k,1934)
5067 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1262) * lu(k,1934)
5068 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1263) * lu(k,1934)
5069 141174528 : lu(k,1988) = lu(k,1988) - lu(k,1254) * lu(k,1987)
5070 141174528 : lu(k,1991) = lu(k,1991) - lu(k,1255) * lu(k,1987)
5071 141174528 : lu(k,1993) = lu(k,1993) - lu(k,1256) * lu(k,1987)
5072 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1257) * lu(k,1987)
5073 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1258) * lu(k,1987)
5074 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1259) * lu(k,1987)
5075 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1260) * lu(k,1987)
5076 141174528 : lu(k,2009) = - lu(k,1261) * lu(k,1987)
5077 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1262) * lu(k,1987)
5078 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1263) * lu(k,1987)
5079 141174528 : lu(k,2068) = lu(k,2068) - lu(k,1254) * lu(k,2067)
5080 141174528 : lu(k,2072) = lu(k,2072) - lu(k,1255) * lu(k,2067)
5081 141174528 : lu(k,2074) = lu(k,2074) - lu(k,1256) * lu(k,2067)
5082 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1257) * lu(k,2067)
5083 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1258) * lu(k,2067)
5084 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1259) * lu(k,2067)
5085 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1260) * lu(k,2067)
5086 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1261) * lu(k,2067)
5087 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1262) * lu(k,2067)
5088 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1263) * lu(k,2067)
5089 141174528 : lu(k,2169) = lu(k,2169) - lu(k,1254) * lu(k,2168)
5090 141174528 : lu(k,2173) = - lu(k,1255) * lu(k,2168)
5091 141174528 : lu(k,2175) = - lu(k,1256) * lu(k,2168)
5092 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1257) * lu(k,2168)
5093 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1258) * lu(k,2168)
5094 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1259) * lu(k,2168)
5095 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1260) * lu(k,2168)
5096 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1261) * lu(k,2168)
5097 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1262) * lu(k,2168)
5098 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1263) * lu(k,2168)
5099 141174528 : lu(k,2287) = lu(k,2287) - lu(k,1254) * lu(k,2286)
5100 141174528 : lu(k,2290) = lu(k,2290) - lu(k,1255) * lu(k,2286)
5101 141174528 : lu(k,2292) = lu(k,2292) - lu(k,1256) * lu(k,2286)
5102 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1257) * lu(k,2286)
5103 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1258) * lu(k,2286)
5104 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1259) * lu(k,2286)
5105 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1260) * lu(k,2286)
5106 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1261) * lu(k,2286)
5107 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1262) * lu(k,2286)
5108 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1263) * lu(k,2286)
5109 141174528 : lu(k,1265) = 1._r8 / lu(k,1265)
5110 141174528 : lu(k,1266) = lu(k,1266) * lu(k,1265)
5111 141174528 : lu(k,1267) = lu(k,1267) * lu(k,1265)
5112 141174528 : lu(k,1268) = lu(k,1268) * lu(k,1265)
5113 141174528 : lu(k,1269) = lu(k,1269) * lu(k,1265)
5114 141174528 : lu(k,1270) = lu(k,1270) * lu(k,1265)
5115 141174528 : lu(k,1271) = lu(k,1271) * lu(k,1265)
5116 141174528 : lu(k,1272) = lu(k,1272) * lu(k,1265)
5117 141174528 : lu(k,1305) = lu(k,1305) - lu(k,1266) * lu(k,1300)
5118 141174528 : lu(k,1306) = lu(k,1306) - lu(k,1267) * lu(k,1300)
5119 141174528 : lu(k,1309) = lu(k,1309) - lu(k,1268) * lu(k,1300)
5120 141174528 : lu(k,1310) = lu(k,1310) - lu(k,1269) * lu(k,1300)
5121 141174528 : lu(k,1313) = lu(k,1313) - lu(k,1270) * lu(k,1300)
5122 141174528 : lu(k,1315) = lu(k,1315) - lu(k,1271) * lu(k,1300)
5123 141174528 : lu(k,1316) = lu(k,1316) - lu(k,1272) * lu(k,1300)
5124 141174528 : lu(k,1338) = lu(k,1338) - lu(k,1266) * lu(k,1333)
5125 141174528 : lu(k,1339) = lu(k,1339) - lu(k,1267) * lu(k,1333)
5126 141174528 : lu(k,1342) = lu(k,1342) - lu(k,1268) * lu(k,1333)
5127 141174528 : lu(k,1343) = lu(k,1343) - lu(k,1269) * lu(k,1333)
5128 141174528 : lu(k,1346) = lu(k,1346) - lu(k,1270) * lu(k,1333)
5129 141174528 : lu(k,1348) = lu(k,1348) - lu(k,1271) * lu(k,1333)
5130 141174528 : lu(k,1349) = lu(k,1349) - lu(k,1272) * lu(k,1333)
5131 141174528 : lu(k,1360) = lu(k,1360) - lu(k,1266) * lu(k,1357)
5132 141174528 : lu(k,1361) = lu(k,1361) - lu(k,1267) * lu(k,1357)
5133 141174528 : lu(k,1364) = lu(k,1364) - lu(k,1268) * lu(k,1357)
5134 141174528 : lu(k,1365) = lu(k,1365) - lu(k,1269) * lu(k,1357)
5135 141174528 : lu(k,1368) = lu(k,1368) - lu(k,1270) * lu(k,1357)
5136 141174528 : lu(k,1369) = lu(k,1369) - lu(k,1271) * lu(k,1357)
5137 141174528 : lu(k,1370) = lu(k,1370) - lu(k,1272) * lu(k,1357)
5138 141174528 : lu(k,1381) = lu(k,1381) - lu(k,1266) * lu(k,1377)
5139 141174528 : lu(k,1383) = lu(k,1383) - lu(k,1267) * lu(k,1377)
5140 141174528 : lu(k,1386) = lu(k,1386) - lu(k,1268) * lu(k,1377)
5141 141174528 : lu(k,1387) = lu(k,1387) - lu(k,1269) * lu(k,1377)
5142 141174528 : lu(k,1390) = lu(k,1390) - lu(k,1270) * lu(k,1377)
5143 141174528 : lu(k,1392) = lu(k,1392) - lu(k,1271) * lu(k,1377)
5144 141174528 : lu(k,1393) = lu(k,1393) - lu(k,1272) * lu(k,1377)
5145 141174528 : lu(k,1402) = lu(k,1402) - lu(k,1266) * lu(k,1400)
5146 141174528 : lu(k,1403) = - lu(k,1267) * lu(k,1400)
5147 141174528 : lu(k,1406) = lu(k,1406) - lu(k,1268) * lu(k,1400)
5148 141174528 : lu(k,1407) = lu(k,1407) - lu(k,1269) * lu(k,1400)
5149 141174528 : lu(k,1410) = lu(k,1410) - lu(k,1270) * lu(k,1400)
5150 141174528 : lu(k,1412) = lu(k,1412) - lu(k,1271) * lu(k,1400)
5151 141174528 : lu(k,1413) = lu(k,1413) - lu(k,1272) * lu(k,1400)
5152 141174528 : lu(k,1433) = lu(k,1433) - lu(k,1266) * lu(k,1427)
5153 141174528 : lu(k,1435) = lu(k,1435) - lu(k,1267) * lu(k,1427)
5154 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1268) * lu(k,1427)
5155 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1269) * lu(k,1427)
5156 141174528 : lu(k,1442) = lu(k,1442) - lu(k,1270) * lu(k,1427)
5157 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1271) * lu(k,1427)
5158 141174528 : lu(k,1445) = lu(k,1445) - lu(k,1272) * lu(k,1427)
5159 141174528 : lu(k,1570) = lu(k,1570) - lu(k,1266) * lu(k,1567)
5160 141174528 : lu(k,1573) = lu(k,1573) - lu(k,1267) * lu(k,1567)
5161 141174528 : lu(k,1577) = lu(k,1577) - lu(k,1268) * lu(k,1567)
5162 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1269) * lu(k,1567)
5163 141174528 : lu(k,1584) = lu(k,1584) - lu(k,1270) * lu(k,1567)
5164 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1271) * lu(k,1567)
5165 141174528 : lu(k,1589) = lu(k,1589) - lu(k,1272) * lu(k,1567)
5166 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1266) * lu(k,1806)
5167 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1267) * lu(k,1806)
5168 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1268) * lu(k,1806)
5169 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1269) * lu(k,1806)
5170 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1270) * lu(k,1806)
5171 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1271) * lu(k,1806)
5172 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1272) * lu(k,1806)
5173 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1266) * lu(k,1935)
5174 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1267) * lu(k,1935)
5175 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1268) * lu(k,1935)
5176 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1269) * lu(k,1935)
5177 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1270) * lu(k,1935)
5178 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1271) * lu(k,1935)
5179 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1272) * lu(k,1935)
5180 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1266) * lu(k,1988)
5181 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1267) * lu(k,1988)
5182 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1268) * lu(k,1988)
5183 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1269) * lu(k,1988)
5184 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1270) * lu(k,1988)
5185 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1271) * lu(k,1988)
5186 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1272) * lu(k,1988)
5187 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1266) * lu(k,2068)
5188 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1267) * lu(k,2068)
5189 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1268) * lu(k,2068)
5190 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1269) * lu(k,2068)
5191 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1270) * lu(k,2068)
5192 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1271) * lu(k,2068)
5193 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1272) * lu(k,2068)
5194 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1266) * lu(k,2169)
5195 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1267) * lu(k,2169)
5196 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1268) * lu(k,2169)
5197 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1269) * lu(k,2169)
5198 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1270) * lu(k,2169)
5199 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1271) * lu(k,2169)
5200 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1272) * lu(k,2169)
5201 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1266) * lu(k,2287)
5202 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1267) * lu(k,2287)
5203 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1268) * lu(k,2287)
5204 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1269) * lu(k,2287)
5205 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1270) * lu(k,2287)
5206 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1271) * lu(k,2287)
5207 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1272) * lu(k,2287)
5208 141174528 : lu(k,1276) = 1._r8 / lu(k,1276)
5209 141174528 : lu(k,1277) = lu(k,1277) * lu(k,1276)
5210 141174528 : lu(k,1278) = lu(k,1278) * lu(k,1276)
5211 141174528 : lu(k,1279) = lu(k,1279) * lu(k,1276)
5212 141174528 : lu(k,1280) = lu(k,1280) * lu(k,1276)
5213 141174528 : lu(k,1281) = lu(k,1281) * lu(k,1276)
5214 141174528 : lu(k,1282) = lu(k,1282) * lu(k,1276)
5215 141174528 : lu(k,1283) = lu(k,1283) * lu(k,1276)
5216 141174528 : lu(k,1284) = lu(k,1284) * lu(k,1276)
5217 141174528 : lu(k,1285) = lu(k,1285) * lu(k,1276)
5218 141174528 : lu(k,1286) = lu(k,1286) * lu(k,1276)
5219 141174528 : lu(k,1287) = lu(k,1287) * lu(k,1276)
5220 141174528 : lu(k,1288) = lu(k,1288) * lu(k,1276)
5221 141174528 : lu(k,1571) = lu(k,1571) - lu(k,1277) * lu(k,1568)
5222 141174528 : lu(k,1574) = lu(k,1574) - lu(k,1278) * lu(k,1568)
5223 141174528 : lu(k,1576) = lu(k,1576) - lu(k,1279) * lu(k,1568)
5224 141174528 : lu(k,1577) = lu(k,1577) - lu(k,1280) * lu(k,1568)
5225 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1281) * lu(k,1568)
5226 141174528 : lu(k,1580) = lu(k,1580) - lu(k,1282) * lu(k,1568)
5227 141174528 : lu(k,1581) = lu(k,1581) - lu(k,1283) * lu(k,1568)
5228 141174528 : lu(k,1585) = lu(k,1585) - lu(k,1284) * lu(k,1568)
5229 141174528 : lu(k,1586) = lu(k,1586) - lu(k,1285) * lu(k,1568)
5230 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1286) * lu(k,1568)
5231 141174528 : lu(k,1588) = lu(k,1588) - lu(k,1287) * lu(k,1568)
5232 141174528 : lu(k,1589) = lu(k,1589) - lu(k,1288) * lu(k,1568)
5233 141174528 : lu(k,1602) = lu(k,1602) - lu(k,1277) * lu(k,1600)
5234 141174528 : lu(k,1605) = lu(k,1605) - lu(k,1278) * lu(k,1600)
5235 141174528 : lu(k,1607) = lu(k,1607) - lu(k,1279) * lu(k,1600)
5236 141174528 : lu(k,1608) = lu(k,1608) - lu(k,1280) * lu(k,1600)
5237 141174528 : lu(k,1610) = lu(k,1610) - lu(k,1281) * lu(k,1600)
5238 141174528 : lu(k,1611) = lu(k,1611) - lu(k,1282) * lu(k,1600)
5239 141174528 : lu(k,1612) = lu(k,1612) - lu(k,1283) * lu(k,1600)
5240 141174528 : lu(k,1616) = lu(k,1616) - lu(k,1284) * lu(k,1600)
5241 141174528 : lu(k,1617) = lu(k,1617) - lu(k,1285) * lu(k,1600)
5242 141174528 : lu(k,1618) = lu(k,1618) - lu(k,1286) * lu(k,1600)
5243 141174528 : lu(k,1619) = lu(k,1619) - lu(k,1287) * lu(k,1600)
5244 141174528 : lu(k,1620) = lu(k,1620) - lu(k,1288) * lu(k,1600)
5245 141174528 : lu(k,1815) = lu(k,1815) - lu(k,1277) * lu(k,1807)
5246 141174528 : lu(k,1818) = lu(k,1818) - lu(k,1278) * lu(k,1807)
5247 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1279) * lu(k,1807)
5248 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1280) * lu(k,1807)
5249 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1281) * lu(k,1807)
5250 141174528 : lu(k,1824) = lu(k,1824) - lu(k,1282) * lu(k,1807)
5251 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1283) * lu(k,1807)
5252 141174528 : lu(k,1829) = lu(k,1829) - lu(k,1284) * lu(k,1807)
5253 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1285) * lu(k,1807)
5254 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1286) * lu(k,1807)
5255 141174528 : lu(k,1832) = lu(k,1832) - lu(k,1287) * lu(k,1807)
5256 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1288) * lu(k,1807)
5257 141174528 : lu(k,1840) = lu(k,1840) - lu(k,1277) * lu(k,1839)
5258 141174528 : lu(k,1842) = - lu(k,1278) * lu(k,1839)
5259 141174528 : lu(k,1844) = lu(k,1844) - lu(k,1279) * lu(k,1839)
5260 141174528 : lu(k,1845) = lu(k,1845) - lu(k,1280) * lu(k,1839)
5261 141174528 : lu(k,1847) = lu(k,1847) - lu(k,1281) * lu(k,1839)
5262 141174528 : lu(k,1848) = lu(k,1848) - lu(k,1282) * lu(k,1839)
5263 141174528 : lu(k,1849) = lu(k,1849) - lu(k,1283) * lu(k,1839)
5264 141174528 : lu(k,1853) = lu(k,1853) - lu(k,1284) * lu(k,1839)
5265 141174528 : lu(k,1854) = - lu(k,1285) * lu(k,1839)
5266 141174528 : lu(k,1855) = lu(k,1855) - lu(k,1286) * lu(k,1839)
5267 141174528 : lu(k,1856) = lu(k,1856) - lu(k,1287) * lu(k,1839)
5268 141174528 : lu(k,1857) = lu(k,1857) - lu(k,1288) * lu(k,1839)
5269 141174528 : lu(k,2076) = - lu(k,1277) * lu(k,2069)
5270 141174528 : lu(k,2079) = - lu(k,1278) * lu(k,2069)
5271 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1279) * lu(k,2069)
5272 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1280) * lu(k,2069)
5273 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1281) * lu(k,2069)
5274 141174528 : lu(k,2085) = - lu(k,1282) * lu(k,2069)
5275 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1283) * lu(k,2069)
5276 141174528 : lu(k,2090) = - lu(k,1284) * lu(k,2069)
5277 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1285) * lu(k,2069)
5278 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1286) * lu(k,2069)
5279 141174528 : lu(k,2093) = - lu(k,1287) * lu(k,2069)
5280 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1288) * lu(k,2069)
5281 141174528 : lu(k,2177) = lu(k,2177) - lu(k,1277) * lu(k,2170)
5282 141174528 : lu(k,2180) = lu(k,2180) - lu(k,1278) * lu(k,2170)
5283 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1279) * lu(k,2170)
5284 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1280) * lu(k,2170)
5285 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1281) * lu(k,2170)
5286 141174528 : lu(k,2186) = lu(k,2186) - lu(k,1282) * lu(k,2170)
5287 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1283) * lu(k,2170)
5288 141174528 : lu(k,2191) = lu(k,2191) - lu(k,1284) * lu(k,2170)
5289 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1285) * lu(k,2170)
5290 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1286) * lu(k,2170)
5291 141174528 : lu(k,2194) = lu(k,2194) - lu(k,1287) * lu(k,2170)
5292 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1288) * lu(k,2170)
5293 141174528 : lu(k,2322) = lu(k,2322) - lu(k,1277) * lu(k,2321)
5294 141174528 : lu(k,2324) = - lu(k,1278) * lu(k,2321)
5295 141174528 : lu(k,2326) = lu(k,2326) - lu(k,1279) * lu(k,2321)
5296 141174528 : lu(k,2327) = lu(k,2327) - lu(k,1280) * lu(k,2321)
5297 141174528 : lu(k,2329) = lu(k,2329) - lu(k,1281) * lu(k,2321)
5298 141174528 : lu(k,2330) = lu(k,2330) - lu(k,1282) * lu(k,2321)
5299 141174528 : lu(k,2331) = lu(k,2331) - lu(k,1283) * lu(k,2321)
5300 141174528 : lu(k,2335) = lu(k,2335) - lu(k,1284) * lu(k,2321)
5301 141174528 : lu(k,2336) = - lu(k,1285) * lu(k,2321)
5302 141174528 : lu(k,2337) = lu(k,2337) - lu(k,1286) * lu(k,2321)
5303 141174528 : lu(k,2338) = lu(k,2338) - lu(k,1287) * lu(k,2321)
5304 141174528 : lu(k,2339) = lu(k,2339) - lu(k,1288) * lu(k,2321)
5305 141174528 : lu(k,2347) = - lu(k,1277) * lu(k,2345)
5306 141174528 : lu(k,2350) = lu(k,2350) - lu(k,1278) * lu(k,2345)
5307 141174528 : lu(k,2352) = - lu(k,1279) * lu(k,2345)
5308 141174528 : lu(k,2353) = lu(k,2353) - lu(k,1280) * lu(k,2345)
5309 141174528 : lu(k,2355) = lu(k,2355) - lu(k,1281) * lu(k,2345)
5310 141174528 : lu(k,2356) = - lu(k,1282) * lu(k,2345)
5311 141174528 : lu(k,2357) = - lu(k,1283) * lu(k,2345)
5312 141174528 : lu(k,2361) = - lu(k,1284) * lu(k,2345)
5313 141174528 : lu(k,2362) = - lu(k,1285) * lu(k,2345)
5314 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1286) * lu(k,2345)
5315 141174528 : lu(k,2364) = - lu(k,1287) * lu(k,2345)
5316 145586232 : lu(k,2365) = lu(k,2365) - lu(k,1288) * lu(k,2345)
5317 : end do
5318 4411704 : end subroutine lu_fac25
5319 4411704 : subroutine lu_fac26( avec_len, lu )
5320 : use chem_mods, only : nzcnt
5321 : use shr_kind_mod, only : r8 => shr_kind_r8
5322 : implicit none
5323 : !-----------------------------------------------------------------------
5324 : ! ... dummy args
5325 : !-----------------------------------------------------------------------
5326 : integer, intent(in) :: avec_len
5327 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5328 : !-----------------------------------------------------------------------
5329 : ! ... local variables
5330 : !-----------------------------------------------------------------------
5331 : integer :: k
5332 145586232 : do k = 1,avec_len
5333 141174528 : lu(k,1301) = 1._r8 / lu(k,1301)
5334 141174528 : lu(k,1302) = lu(k,1302) * lu(k,1301)
5335 141174528 : lu(k,1303) = lu(k,1303) * lu(k,1301)
5336 141174528 : lu(k,1304) = lu(k,1304) * lu(k,1301)
5337 141174528 : lu(k,1305) = lu(k,1305) * lu(k,1301)
5338 141174528 : lu(k,1306) = lu(k,1306) * lu(k,1301)
5339 141174528 : lu(k,1307) = lu(k,1307) * lu(k,1301)
5340 141174528 : lu(k,1308) = lu(k,1308) * lu(k,1301)
5341 141174528 : lu(k,1309) = lu(k,1309) * lu(k,1301)
5342 141174528 : lu(k,1310) = lu(k,1310) * lu(k,1301)
5343 141174528 : lu(k,1311) = lu(k,1311) * lu(k,1301)
5344 141174528 : lu(k,1312) = lu(k,1312) * lu(k,1301)
5345 141174528 : lu(k,1313) = lu(k,1313) * lu(k,1301)
5346 141174528 : lu(k,1314) = lu(k,1314) * lu(k,1301)
5347 141174528 : lu(k,1315) = lu(k,1315) * lu(k,1301)
5348 141174528 : lu(k,1316) = lu(k,1316) * lu(k,1301)
5349 141174528 : lu(k,1430) = lu(k,1430) - lu(k,1302) * lu(k,1428)
5350 141174528 : lu(k,1431) = lu(k,1431) - lu(k,1303) * lu(k,1428)
5351 141174528 : lu(k,1432) = lu(k,1432) - lu(k,1304) * lu(k,1428)
5352 141174528 : lu(k,1433) = lu(k,1433) - lu(k,1305) * lu(k,1428)
5353 141174528 : lu(k,1435) = lu(k,1435) - lu(k,1306) * lu(k,1428)
5354 141174528 : lu(k,1436) = lu(k,1436) - lu(k,1307) * lu(k,1428)
5355 141174528 : lu(k,1437) = lu(k,1437) - lu(k,1308) * lu(k,1428)
5356 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1309) * lu(k,1428)
5357 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1310) * lu(k,1428)
5358 141174528 : lu(k,1440) = lu(k,1440) - lu(k,1311) * lu(k,1428)
5359 141174528 : lu(k,1441) = lu(k,1441) - lu(k,1312) * lu(k,1428)
5360 141174528 : lu(k,1442) = lu(k,1442) - lu(k,1313) * lu(k,1428)
5361 141174528 : lu(k,1443) = lu(k,1443) - lu(k,1314) * lu(k,1428)
5362 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1315) * lu(k,1428)
5363 141174528 : lu(k,1445) = lu(k,1445) - lu(k,1316) * lu(k,1428)
5364 141174528 : lu(k,1810) = lu(k,1810) - lu(k,1302) * lu(k,1808)
5365 141174528 : lu(k,1811) = lu(k,1811) - lu(k,1303) * lu(k,1808)
5366 141174528 : lu(k,1812) = lu(k,1812) - lu(k,1304) * lu(k,1808)
5367 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1305) * lu(k,1808)
5368 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1306) * lu(k,1808)
5369 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1307) * lu(k,1808)
5370 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1308) * lu(k,1808)
5371 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1309) * lu(k,1808)
5372 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1310) * lu(k,1808)
5373 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1311) * lu(k,1808)
5374 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1312) * lu(k,1808)
5375 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1313) * lu(k,1808)
5376 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1314) * lu(k,1808)
5377 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1315) * lu(k,1808)
5378 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1316) * lu(k,1808)
5379 141174528 : lu(k,1938) = lu(k,1938) - lu(k,1302) * lu(k,1936)
5380 141174528 : lu(k,1939) = lu(k,1939) - lu(k,1303) * lu(k,1936)
5381 141174528 : lu(k,1940) = lu(k,1940) - lu(k,1304) * lu(k,1936)
5382 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1305) * lu(k,1936)
5383 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1306) * lu(k,1936)
5384 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1307) * lu(k,1936)
5385 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1308) * lu(k,1936)
5386 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1309) * lu(k,1936)
5387 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1310) * lu(k,1936)
5388 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1311) * lu(k,1936)
5389 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1312) * lu(k,1936)
5390 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1313) * lu(k,1936)
5391 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1314) * lu(k,1936)
5392 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1315) * lu(k,1936)
5393 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1316) * lu(k,1936)
5394 141174528 : lu(k,1991) = lu(k,1991) - lu(k,1302) * lu(k,1989)
5395 141174528 : lu(k,1992) = lu(k,1992) - lu(k,1303) * lu(k,1989)
5396 141174528 : lu(k,1993) = lu(k,1993) - lu(k,1304) * lu(k,1989)
5397 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1305) * lu(k,1989)
5398 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1306) * lu(k,1989)
5399 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1307) * lu(k,1989)
5400 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1308) * lu(k,1989)
5401 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1309) * lu(k,1989)
5402 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1310) * lu(k,1989)
5403 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1311) * lu(k,1989)
5404 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1312) * lu(k,1989)
5405 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1313) * lu(k,1989)
5406 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1314) * lu(k,1989)
5407 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1315) * lu(k,1989)
5408 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1316) * lu(k,1989)
5409 141174528 : lu(k,2072) = lu(k,2072) - lu(k,1302) * lu(k,2070)
5410 141174528 : lu(k,2073) = lu(k,2073) - lu(k,1303) * lu(k,2070)
5411 141174528 : lu(k,2074) = lu(k,2074) - lu(k,1304) * lu(k,2070)
5412 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1305) * lu(k,2070)
5413 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1306) * lu(k,2070)
5414 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1307) * lu(k,2070)
5415 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1308) * lu(k,2070)
5416 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1309) * lu(k,2070)
5417 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1310) * lu(k,2070)
5418 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1311) * lu(k,2070)
5419 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1312) * lu(k,2070)
5420 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1313) * lu(k,2070)
5421 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1314) * lu(k,2070)
5422 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1315) * lu(k,2070)
5423 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1316) * lu(k,2070)
5424 141174528 : lu(k,2173) = lu(k,2173) - lu(k,1302) * lu(k,2171)
5425 141174528 : lu(k,2174) = lu(k,2174) - lu(k,1303) * lu(k,2171)
5426 141174528 : lu(k,2175) = lu(k,2175) - lu(k,1304) * lu(k,2171)
5427 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1305) * lu(k,2171)
5428 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1306) * lu(k,2171)
5429 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1307) * lu(k,2171)
5430 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1308) * lu(k,2171)
5431 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1309) * lu(k,2171)
5432 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1310) * lu(k,2171)
5433 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1311) * lu(k,2171)
5434 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1312) * lu(k,2171)
5435 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1313) * lu(k,2171)
5436 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1314) * lu(k,2171)
5437 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1315) * lu(k,2171)
5438 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1316) * lu(k,2171)
5439 141174528 : lu(k,2290) = lu(k,2290) - lu(k,1302) * lu(k,2288)
5440 141174528 : lu(k,2291) = lu(k,2291) - lu(k,1303) * lu(k,2288)
5441 141174528 : lu(k,2292) = lu(k,2292) - lu(k,1304) * lu(k,2288)
5442 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1305) * lu(k,2288)
5443 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1306) * lu(k,2288)
5444 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1307) * lu(k,2288)
5445 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1308) * lu(k,2288)
5446 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1309) * lu(k,2288)
5447 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1310) * lu(k,2288)
5448 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1311) * lu(k,2288)
5449 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1312) * lu(k,2288)
5450 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1313) * lu(k,2288)
5451 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1314) * lu(k,2288)
5452 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1315) * lu(k,2288)
5453 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1316) * lu(k,2288)
5454 141174528 : lu(k,1334) = 1._r8 / lu(k,1334)
5455 141174528 : lu(k,1335) = lu(k,1335) * lu(k,1334)
5456 141174528 : lu(k,1336) = lu(k,1336) * lu(k,1334)
5457 141174528 : lu(k,1337) = lu(k,1337) * lu(k,1334)
5458 141174528 : lu(k,1338) = lu(k,1338) * lu(k,1334)
5459 141174528 : lu(k,1339) = lu(k,1339) * lu(k,1334)
5460 141174528 : lu(k,1340) = lu(k,1340) * lu(k,1334)
5461 141174528 : lu(k,1341) = lu(k,1341) * lu(k,1334)
5462 141174528 : lu(k,1342) = lu(k,1342) * lu(k,1334)
5463 141174528 : lu(k,1343) = lu(k,1343) * lu(k,1334)
5464 141174528 : lu(k,1344) = lu(k,1344) * lu(k,1334)
5465 141174528 : lu(k,1345) = lu(k,1345) * lu(k,1334)
5466 141174528 : lu(k,1346) = lu(k,1346) * lu(k,1334)
5467 141174528 : lu(k,1347) = lu(k,1347) * lu(k,1334)
5468 141174528 : lu(k,1348) = lu(k,1348) * lu(k,1334)
5469 141174528 : lu(k,1349) = lu(k,1349) * lu(k,1334)
5470 141174528 : lu(k,1430) = lu(k,1430) - lu(k,1335) * lu(k,1429)
5471 141174528 : lu(k,1431) = lu(k,1431) - lu(k,1336) * lu(k,1429)
5472 141174528 : lu(k,1432) = lu(k,1432) - lu(k,1337) * lu(k,1429)
5473 141174528 : lu(k,1433) = lu(k,1433) - lu(k,1338) * lu(k,1429)
5474 141174528 : lu(k,1435) = lu(k,1435) - lu(k,1339) * lu(k,1429)
5475 141174528 : lu(k,1436) = lu(k,1436) - lu(k,1340) * lu(k,1429)
5476 141174528 : lu(k,1437) = lu(k,1437) - lu(k,1341) * lu(k,1429)
5477 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1342) * lu(k,1429)
5478 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1343) * lu(k,1429)
5479 141174528 : lu(k,1440) = lu(k,1440) - lu(k,1344) * lu(k,1429)
5480 141174528 : lu(k,1441) = lu(k,1441) - lu(k,1345) * lu(k,1429)
5481 141174528 : lu(k,1442) = lu(k,1442) - lu(k,1346) * lu(k,1429)
5482 141174528 : lu(k,1443) = lu(k,1443) - lu(k,1347) * lu(k,1429)
5483 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1348) * lu(k,1429)
5484 141174528 : lu(k,1445) = lu(k,1445) - lu(k,1349) * lu(k,1429)
5485 141174528 : lu(k,1810) = lu(k,1810) - lu(k,1335) * lu(k,1809)
5486 141174528 : lu(k,1811) = lu(k,1811) - lu(k,1336) * lu(k,1809)
5487 141174528 : lu(k,1812) = lu(k,1812) - lu(k,1337) * lu(k,1809)
5488 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1338) * lu(k,1809)
5489 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1339) * lu(k,1809)
5490 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1340) * lu(k,1809)
5491 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1341) * lu(k,1809)
5492 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1342) * lu(k,1809)
5493 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1343) * lu(k,1809)
5494 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1344) * lu(k,1809)
5495 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1345) * lu(k,1809)
5496 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1346) * lu(k,1809)
5497 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1347) * lu(k,1809)
5498 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1348) * lu(k,1809)
5499 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1349) * lu(k,1809)
5500 141174528 : lu(k,1938) = lu(k,1938) - lu(k,1335) * lu(k,1937)
5501 141174528 : lu(k,1939) = lu(k,1939) - lu(k,1336) * lu(k,1937)
5502 141174528 : lu(k,1940) = lu(k,1940) - lu(k,1337) * lu(k,1937)
5503 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1338) * lu(k,1937)
5504 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1339) * lu(k,1937)
5505 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1340) * lu(k,1937)
5506 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1341) * lu(k,1937)
5507 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1342) * lu(k,1937)
5508 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1343) * lu(k,1937)
5509 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1344) * lu(k,1937)
5510 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1345) * lu(k,1937)
5511 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1346) * lu(k,1937)
5512 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1347) * lu(k,1937)
5513 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1348) * lu(k,1937)
5514 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1349) * lu(k,1937)
5515 141174528 : lu(k,1991) = lu(k,1991) - lu(k,1335) * lu(k,1990)
5516 141174528 : lu(k,1992) = lu(k,1992) - lu(k,1336) * lu(k,1990)
5517 141174528 : lu(k,1993) = lu(k,1993) - lu(k,1337) * lu(k,1990)
5518 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1338) * lu(k,1990)
5519 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1339) * lu(k,1990)
5520 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1340) * lu(k,1990)
5521 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1341) * lu(k,1990)
5522 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1342) * lu(k,1990)
5523 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1343) * lu(k,1990)
5524 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1344) * lu(k,1990)
5525 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1345) * lu(k,1990)
5526 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1346) * lu(k,1990)
5527 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1347) * lu(k,1990)
5528 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1348) * lu(k,1990)
5529 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1349) * lu(k,1990)
5530 141174528 : lu(k,2072) = lu(k,2072) - lu(k,1335) * lu(k,2071)
5531 141174528 : lu(k,2073) = lu(k,2073) - lu(k,1336) * lu(k,2071)
5532 141174528 : lu(k,2074) = lu(k,2074) - lu(k,1337) * lu(k,2071)
5533 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1338) * lu(k,2071)
5534 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1339) * lu(k,2071)
5535 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1340) * lu(k,2071)
5536 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1341) * lu(k,2071)
5537 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1342) * lu(k,2071)
5538 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1343) * lu(k,2071)
5539 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1344) * lu(k,2071)
5540 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1345) * lu(k,2071)
5541 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1346) * lu(k,2071)
5542 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1347) * lu(k,2071)
5543 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1348) * lu(k,2071)
5544 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1349) * lu(k,2071)
5545 141174528 : lu(k,2173) = lu(k,2173) - lu(k,1335) * lu(k,2172)
5546 141174528 : lu(k,2174) = lu(k,2174) - lu(k,1336) * lu(k,2172)
5547 141174528 : lu(k,2175) = lu(k,2175) - lu(k,1337) * lu(k,2172)
5548 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1338) * lu(k,2172)
5549 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1339) * lu(k,2172)
5550 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1340) * lu(k,2172)
5551 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1341) * lu(k,2172)
5552 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1342) * lu(k,2172)
5553 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1343) * lu(k,2172)
5554 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1344) * lu(k,2172)
5555 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1345) * lu(k,2172)
5556 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1346) * lu(k,2172)
5557 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1347) * lu(k,2172)
5558 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1348) * lu(k,2172)
5559 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1349) * lu(k,2172)
5560 141174528 : lu(k,2290) = lu(k,2290) - lu(k,1335) * lu(k,2289)
5561 141174528 : lu(k,2291) = lu(k,2291) - lu(k,1336) * lu(k,2289)
5562 141174528 : lu(k,2292) = lu(k,2292) - lu(k,1337) * lu(k,2289)
5563 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1338) * lu(k,2289)
5564 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1339) * lu(k,2289)
5565 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1340) * lu(k,2289)
5566 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1341) * lu(k,2289)
5567 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1342) * lu(k,2289)
5568 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1343) * lu(k,2289)
5569 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1344) * lu(k,2289)
5570 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1345) * lu(k,2289)
5571 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1346) * lu(k,2289)
5572 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1347) * lu(k,2289)
5573 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1348) * lu(k,2289)
5574 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1349) * lu(k,2289)
5575 141174528 : lu(k,1358) = 1._r8 / lu(k,1358)
5576 141174528 : lu(k,1359) = lu(k,1359) * lu(k,1358)
5577 141174528 : lu(k,1360) = lu(k,1360) * lu(k,1358)
5578 141174528 : lu(k,1361) = lu(k,1361) * lu(k,1358)
5579 141174528 : lu(k,1362) = lu(k,1362) * lu(k,1358)
5580 141174528 : lu(k,1363) = lu(k,1363) * lu(k,1358)
5581 141174528 : lu(k,1364) = lu(k,1364) * lu(k,1358)
5582 141174528 : lu(k,1365) = lu(k,1365) * lu(k,1358)
5583 141174528 : lu(k,1366) = lu(k,1366) * lu(k,1358)
5584 141174528 : lu(k,1367) = lu(k,1367) * lu(k,1358)
5585 141174528 : lu(k,1368) = lu(k,1368) * lu(k,1358)
5586 141174528 : lu(k,1369) = lu(k,1369) * lu(k,1358)
5587 141174528 : lu(k,1370) = lu(k,1370) * lu(k,1358)
5588 141174528 : lu(k,1380) = - lu(k,1359) * lu(k,1378)
5589 141174528 : lu(k,1381) = lu(k,1381) - lu(k,1360) * lu(k,1378)
5590 141174528 : lu(k,1383) = lu(k,1383) - lu(k,1361) * lu(k,1378)
5591 141174528 : lu(k,1384) = lu(k,1384) - lu(k,1362) * lu(k,1378)
5592 141174528 : lu(k,1385) = lu(k,1385) - lu(k,1363) * lu(k,1378)
5593 141174528 : lu(k,1386) = lu(k,1386) - lu(k,1364) * lu(k,1378)
5594 141174528 : lu(k,1387) = lu(k,1387) - lu(k,1365) * lu(k,1378)
5595 141174528 : lu(k,1388) = lu(k,1388) - lu(k,1366) * lu(k,1378)
5596 141174528 : lu(k,1389) = lu(k,1389) - lu(k,1367) * lu(k,1378)
5597 141174528 : lu(k,1390) = lu(k,1390) - lu(k,1368) * lu(k,1378)
5598 141174528 : lu(k,1392) = lu(k,1392) - lu(k,1369) * lu(k,1378)
5599 141174528 : lu(k,1393) = lu(k,1393) - lu(k,1370) * lu(k,1378)
5600 141174528 : lu(k,1432) = lu(k,1432) - lu(k,1359) * lu(k,1430)
5601 141174528 : lu(k,1433) = lu(k,1433) - lu(k,1360) * lu(k,1430)
5602 141174528 : lu(k,1435) = lu(k,1435) - lu(k,1361) * lu(k,1430)
5603 141174528 : lu(k,1436) = lu(k,1436) - lu(k,1362) * lu(k,1430)
5604 141174528 : lu(k,1437) = lu(k,1437) - lu(k,1363) * lu(k,1430)
5605 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1364) * lu(k,1430)
5606 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1365) * lu(k,1430)
5607 141174528 : lu(k,1440) = lu(k,1440) - lu(k,1366) * lu(k,1430)
5608 141174528 : lu(k,1441) = lu(k,1441) - lu(k,1367) * lu(k,1430)
5609 141174528 : lu(k,1442) = lu(k,1442) - lu(k,1368) * lu(k,1430)
5610 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1369) * lu(k,1430)
5611 141174528 : lu(k,1445) = lu(k,1445) - lu(k,1370) * lu(k,1430)
5612 141174528 : lu(k,1812) = lu(k,1812) - lu(k,1359) * lu(k,1810)
5613 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1360) * lu(k,1810)
5614 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1361) * lu(k,1810)
5615 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1362) * lu(k,1810)
5616 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1363) * lu(k,1810)
5617 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1364) * lu(k,1810)
5618 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1365) * lu(k,1810)
5619 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1366) * lu(k,1810)
5620 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1367) * lu(k,1810)
5621 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1368) * lu(k,1810)
5622 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1369) * lu(k,1810)
5623 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1370) * lu(k,1810)
5624 141174528 : lu(k,1940) = lu(k,1940) - lu(k,1359) * lu(k,1938)
5625 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1360) * lu(k,1938)
5626 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1361) * lu(k,1938)
5627 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1362) * lu(k,1938)
5628 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1363) * lu(k,1938)
5629 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1364) * lu(k,1938)
5630 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1365) * lu(k,1938)
5631 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1366) * lu(k,1938)
5632 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1367) * lu(k,1938)
5633 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1368) * lu(k,1938)
5634 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1369) * lu(k,1938)
5635 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1370) * lu(k,1938)
5636 141174528 : lu(k,1993) = lu(k,1993) - lu(k,1359) * lu(k,1991)
5637 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1360) * lu(k,1991)
5638 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1361) * lu(k,1991)
5639 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1362) * lu(k,1991)
5640 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1363) * lu(k,1991)
5641 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1364) * lu(k,1991)
5642 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1365) * lu(k,1991)
5643 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1366) * lu(k,1991)
5644 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1367) * lu(k,1991)
5645 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1368) * lu(k,1991)
5646 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1369) * lu(k,1991)
5647 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1370) * lu(k,1991)
5648 141174528 : lu(k,2074) = lu(k,2074) - lu(k,1359) * lu(k,2072)
5649 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1360) * lu(k,2072)
5650 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1361) * lu(k,2072)
5651 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1362) * lu(k,2072)
5652 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1363) * lu(k,2072)
5653 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1364) * lu(k,2072)
5654 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1365) * lu(k,2072)
5655 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1366) * lu(k,2072)
5656 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1367) * lu(k,2072)
5657 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1368) * lu(k,2072)
5658 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1369) * lu(k,2072)
5659 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1370) * lu(k,2072)
5660 141174528 : lu(k,2175) = lu(k,2175) - lu(k,1359) * lu(k,2173)
5661 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1360) * lu(k,2173)
5662 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1361) * lu(k,2173)
5663 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1362) * lu(k,2173)
5664 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1363) * lu(k,2173)
5665 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1364) * lu(k,2173)
5666 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1365) * lu(k,2173)
5667 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1366) * lu(k,2173)
5668 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1367) * lu(k,2173)
5669 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1368) * lu(k,2173)
5670 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1369) * lu(k,2173)
5671 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1370) * lu(k,2173)
5672 141174528 : lu(k,2292) = lu(k,2292) - lu(k,1359) * lu(k,2290)
5673 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1360) * lu(k,2290)
5674 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1361) * lu(k,2290)
5675 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1362) * lu(k,2290)
5676 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1363) * lu(k,2290)
5677 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1364) * lu(k,2290)
5678 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1365) * lu(k,2290)
5679 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1366) * lu(k,2290)
5680 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1367) * lu(k,2290)
5681 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1368) * lu(k,2290)
5682 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1369) * lu(k,2290)
5683 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1370) * lu(k,2290)
5684 141174528 : lu(k,1379) = 1._r8 / lu(k,1379)
5685 141174528 : lu(k,1380) = lu(k,1380) * lu(k,1379)
5686 141174528 : lu(k,1381) = lu(k,1381) * lu(k,1379)
5687 141174528 : lu(k,1382) = lu(k,1382) * lu(k,1379)
5688 141174528 : lu(k,1383) = lu(k,1383) * lu(k,1379)
5689 141174528 : lu(k,1384) = lu(k,1384) * lu(k,1379)
5690 141174528 : lu(k,1385) = lu(k,1385) * lu(k,1379)
5691 141174528 : lu(k,1386) = lu(k,1386) * lu(k,1379)
5692 141174528 : lu(k,1387) = lu(k,1387) * lu(k,1379)
5693 141174528 : lu(k,1388) = lu(k,1388) * lu(k,1379)
5694 141174528 : lu(k,1389) = lu(k,1389) * lu(k,1379)
5695 141174528 : lu(k,1390) = lu(k,1390) * lu(k,1379)
5696 141174528 : lu(k,1391) = lu(k,1391) * lu(k,1379)
5697 141174528 : lu(k,1392) = lu(k,1392) * lu(k,1379)
5698 141174528 : lu(k,1393) = lu(k,1393) * lu(k,1379)
5699 141174528 : lu(k,1432) = lu(k,1432) - lu(k,1380) * lu(k,1431)
5700 141174528 : lu(k,1433) = lu(k,1433) - lu(k,1381) * lu(k,1431)
5701 141174528 : lu(k,1434) = - lu(k,1382) * lu(k,1431)
5702 141174528 : lu(k,1435) = lu(k,1435) - lu(k,1383) * lu(k,1431)
5703 141174528 : lu(k,1436) = lu(k,1436) - lu(k,1384) * lu(k,1431)
5704 141174528 : lu(k,1437) = lu(k,1437) - lu(k,1385) * lu(k,1431)
5705 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1386) * lu(k,1431)
5706 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1387) * lu(k,1431)
5707 141174528 : lu(k,1440) = lu(k,1440) - lu(k,1388) * lu(k,1431)
5708 141174528 : lu(k,1441) = lu(k,1441) - lu(k,1389) * lu(k,1431)
5709 141174528 : lu(k,1442) = lu(k,1442) - lu(k,1390) * lu(k,1431)
5710 141174528 : lu(k,1443) = lu(k,1443) - lu(k,1391) * lu(k,1431)
5711 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1392) * lu(k,1431)
5712 141174528 : lu(k,1445) = lu(k,1445) - lu(k,1393) * lu(k,1431)
5713 141174528 : lu(k,1812) = lu(k,1812) - lu(k,1380) * lu(k,1811)
5714 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1381) * lu(k,1811)
5715 141174528 : lu(k,1816) = lu(k,1816) - lu(k,1382) * lu(k,1811)
5716 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1383) * lu(k,1811)
5717 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1384) * lu(k,1811)
5718 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1385) * lu(k,1811)
5719 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1386) * lu(k,1811)
5720 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1387) * lu(k,1811)
5721 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1388) * lu(k,1811)
5722 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1389) * lu(k,1811)
5723 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1390) * lu(k,1811)
5724 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1391) * lu(k,1811)
5725 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1392) * lu(k,1811)
5726 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1393) * lu(k,1811)
5727 141174528 : lu(k,1940) = lu(k,1940) - lu(k,1380) * lu(k,1939)
5728 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1381) * lu(k,1939)
5729 141174528 : lu(k,1943) = - lu(k,1382) * lu(k,1939)
5730 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1383) * lu(k,1939)
5731 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1384) * lu(k,1939)
5732 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1385) * lu(k,1939)
5733 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1386) * lu(k,1939)
5734 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1387) * lu(k,1939)
5735 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1388) * lu(k,1939)
5736 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1389) * lu(k,1939)
5737 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1390) * lu(k,1939)
5738 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1391) * lu(k,1939)
5739 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1392) * lu(k,1939)
5740 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1393) * lu(k,1939)
5741 141174528 : lu(k,1993) = lu(k,1993) - lu(k,1380) * lu(k,1992)
5742 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1381) * lu(k,1992)
5743 141174528 : lu(k,1995) = - lu(k,1382) * lu(k,1992)
5744 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1383) * lu(k,1992)
5745 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1384) * lu(k,1992)
5746 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1385) * lu(k,1992)
5747 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1386) * lu(k,1992)
5748 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1387) * lu(k,1992)
5749 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1388) * lu(k,1992)
5750 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1389) * lu(k,1992)
5751 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1390) * lu(k,1992)
5752 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1391) * lu(k,1992)
5753 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1392) * lu(k,1992)
5754 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1393) * lu(k,1992)
5755 141174528 : lu(k,2074) = lu(k,2074) - lu(k,1380) * lu(k,2073)
5756 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1381) * lu(k,2073)
5757 141174528 : lu(k,2077) = lu(k,2077) - lu(k,1382) * lu(k,2073)
5758 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1383) * lu(k,2073)
5759 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1384) * lu(k,2073)
5760 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1385) * lu(k,2073)
5761 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1386) * lu(k,2073)
5762 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1387) * lu(k,2073)
5763 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1388) * lu(k,2073)
5764 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1389) * lu(k,2073)
5765 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1390) * lu(k,2073)
5766 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1391) * lu(k,2073)
5767 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1392) * lu(k,2073)
5768 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1393) * lu(k,2073)
5769 141174528 : lu(k,2175) = lu(k,2175) - lu(k,1380) * lu(k,2174)
5770 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1381) * lu(k,2174)
5771 141174528 : lu(k,2178) = lu(k,2178) - lu(k,1382) * lu(k,2174)
5772 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1383) * lu(k,2174)
5773 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1384) * lu(k,2174)
5774 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1385) * lu(k,2174)
5775 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1386) * lu(k,2174)
5776 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1387) * lu(k,2174)
5777 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1388) * lu(k,2174)
5778 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1389) * lu(k,2174)
5779 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1390) * lu(k,2174)
5780 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1391) * lu(k,2174)
5781 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1392) * lu(k,2174)
5782 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1393) * lu(k,2174)
5783 141174528 : lu(k,2292) = lu(k,2292) - lu(k,1380) * lu(k,2291)
5784 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1381) * lu(k,2291)
5785 141174528 : lu(k,2296) = - lu(k,1382) * lu(k,2291)
5786 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1383) * lu(k,2291)
5787 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1384) * lu(k,2291)
5788 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1385) * lu(k,2291)
5789 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1386) * lu(k,2291)
5790 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1387) * lu(k,2291)
5791 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1388) * lu(k,2291)
5792 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1389) * lu(k,2291)
5793 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1390) * lu(k,2291)
5794 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1391) * lu(k,2291)
5795 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1392) * lu(k,2291)
5796 145586232 : lu(k,2313) = lu(k,2313) - lu(k,1393) * lu(k,2291)
5797 : end do
5798 4411704 : end subroutine lu_fac26
5799 4411704 : subroutine lu_fac27( avec_len, lu )
5800 : use chem_mods, only : nzcnt
5801 : use shr_kind_mod, only : r8 => shr_kind_r8
5802 : implicit none
5803 : !-----------------------------------------------------------------------
5804 : ! ... dummy args
5805 : !-----------------------------------------------------------------------
5806 : integer, intent(in) :: avec_len
5807 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5808 : !-----------------------------------------------------------------------
5809 : ! ... local variables
5810 : !-----------------------------------------------------------------------
5811 : integer :: k
5812 145586232 : do k = 1,avec_len
5813 141174528 : lu(k,1401) = 1._r8 / lu(k,1401)
5814 141174528 : lu(k,1402) = lu(k,1402) * lu(k,1401)
5815 141174528 : lu(k,1403) = lu(k,1403) * lu(k,1401)
5816 141174528 : lu(k,1404) = lu(k,1404) * lu(k,1401)
5817 141174528 : lu(k,1405) = lu(k,1405) * lu(k,1401)
5818 141174528 : lu(k,1406) = lu(k,1406) * lu(k,1401)
5819 141174528 : lu(k,1407) = lu(k,1407) * lu(k,1401)
5820 141174528 : lu(k,1408) = lu(k,1408) * lu(k,1401)
5821 141174528 : lu(k,1409) = lu(k,1409) * lu(k,1401)
5822 141174528 : lu(k,1410) = lu(k,1410) * lu(k,1401)
5823 141174528 : lu(k,1411) = lu(k,1411) * lu(k,1401)
5824 141174528 : lu(k,1412) = lu(k,1412) * lu(k,1401)
5825 141174528 : lu(k,1413) = lu(k,1413) * lu(k,1401)
5826 141174528 : lu(k,1433) = lu(k,1433) - lu(k,1402) * lu(k,1432)
5827 141174528 : lu(k,1435) = lu(k,1435) - lu(k,1403) * lu(k,1432)
5828 141174528 : lu(k,1436) = lu(k,1436) - lu(k,1404) * lu(k,1432)
5829 141174528 : lu(k,1437) = lu(k,1437) - lu(k,1405) * lu(k,1432)
5830 141174528 : lu(k,1438) = lu(k,1438) - lu(k,1406) * lu(k,1432)
5831 141174528 : lu(k,1439) = lu(k,1439) - lu(k,1407) * lu(k,1432)
5832 141174528 : lu(k,1440) = lu(k,1440) - lu(k,1408) * lu(k,1432)
5833 141174528 : lu(k,1441) = lu(k,1441) - lu(k,1409) * lu(k,1432)
5834 141174528 : lu(k,1442) = lu(k,1442) - lu(k,1410) * lu(k,1432)
5835 141174528 : lu(k,1443) = lu(k,1443) - lu(k,1411) * lu(k,1432)
5836 141174528 : lu(k,1444) = lu(k,1444) - lu(k,1412) * lu(k,1432)
5837 141174528 : lu(k,1445) = lu(k,1445) - lu(k,1413) * lu(k,1432)
5838 141174528 : lu(k,1570) = lu(k,1570) - lu(k,1402) * lu(k,1569)
5839 141174528 : lu(k,1573) = lu(k,1573) - lu(k,1403) * lu(k,1569)
5840 141174528 : lu(k,1575) = lu(k,1575) - lu(k,1404) * lu(k,1569)
5841 141174528 : lu(k,1576) = lu(k,1576) - lu(k,1405) * lu(k,1569)
5842 141174528 : lu(k,1577) = lu(k,1577) - lu(k,1406) * lu(k,1569)
5843 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1407) * lu(k,1569)
5844 141174528 : lu(k,1581) = lu(k,1581) - lu(k,1408) * lu(k,1569)
5845 141174528 : lu(k,1582) = lu(k,1582) - lu(k,1409) * lu(k,1569)
5846 141174528 : lu(k,1584) = lu(k,1584) - lu(k,1410) * lu(k,1569)
5847 141174528 : lu(k,1586) = lu(k,1586) - lu(k,1411) * lu(k,1569)
5848 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1412) * lu(k,1569)
5849 141174528 : lu(k,1589) = lu(k,1589) - lu(k,1413) * lu(k,1569)
5850 141174528 : lu(k,1813) = lu(k,1813) - lu(k,1402) * lu(k,1812)
5851 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1403) * lu(k,1812)
5852 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1404) * lu(k,1812)
5853 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1405) * lu(k,1812)
5854 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1406) * lu(k,1812)
5855 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1407) * lu(k,1812)
5856 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1408) * lu(k,1812)
5857 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1409) * lu(k,1812)
5858 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1410) * lu(k,1812)
5859 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1411) * lu(k,1812)
5860 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1412) * lu(k,1812)
5861 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1413) * lu(k,1812)
5862 141174528 : lu(k,1941) = lu(k,1941) - lu(k,1402) * lu(k,1940)
5863 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1403) * lu(k,1940)
5864 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1404) * lu(k,1940)
5865 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1405) * lu(k,1940)
5866 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1406) * lu(k,1940)
5867 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1407) * lu(k,1940)
5868 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1408) * lu(k,1940)
5869 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1409) * lu(k,1940)
5870 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1410) * lu(k,1940)
5871 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1411) * lu(k,1940)
5872 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1412) * lu(k,1940)
5873 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1413) * lu(k,1940)
5874 141174528 : lu(k,1994) = lu(k,1994) - lu(k,1402) * lu(k,1993)
5875 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1403) * lu(k,1993)
5876 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1404) * lu(k,1993)
5877 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1405) * lu(k,1993)
5878 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1406) * lu(k,1993)
5879 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1407) * lu(k,1993)
5880 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1408) * lu(k,1993)
5881 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1409) * lu(k,1993)
5882 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1410) * lu(k,1993)
5883 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1411) * lu(k,1993)
5884 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1412) * lu(k,1993)
5885 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1413) * lu(k,1993)
5886 141174528 : lu(k,2075) = lu(k,2075) - lu(k,1402) * lu(k,2074)
5887 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1403) * lu(k,2074)
5888 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1404) * lu(k,2074)
5889 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1405) * lu(k,2074)
5890 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1406) * lu(k,2074)
5891 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1407) * lu(k,2074)
5892 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1408) * lu(k,2074)
5893 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1409) * lu(k,2074)
5894 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1410) * lu(k,2074)
5895 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1411) * lu(k,2074)
5896 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1412) * lu(k,2074)
5897 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1413) * lu(k,2074)
5898 141174528 : lu(k,2176) = lu(k,2176) - lu(k,1402) * lu(k,2175)
5899 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1403) * lu(k,2175)
5900 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1404) * lu(k,2175)
5901 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1405) * lu(k,2175)
5902 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1406) * lu(k,2175)
5903 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1407) * lu(k,2175)
5904 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1408) * lu(k,2175)
5905 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1409) * lu(k,2175)
5906 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1410) * lu(k,2175)
5907 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1411) * lu(k,2175)
5908 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1412) * lu(k,2175)
5909 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1413) * lu(k,2175)
5910 141174528 : lu(k,2293) = lu(k,2293) - lu(k,1402) * lu(k,2292)
5911 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1403) * lu(k,2292)
5912 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1404) * lu(k,2292)
5913 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1405) * lu(k,2292)
5914 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1406) * lu(k,2292)
5915 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1407) * lu(k,2292)
5916 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1408) * lu(k,2292)
5917 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1409) * lu(k,2292)
5918 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1410) * lu(k,2292)
5919 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1411) * lu(k,2292)
5920 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1412) * lu(k,2292)
5921 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1413) * lu(k,2292)
5922 141174528 : lu(k,1433) = 1._r8 / lu(k,1433)
5923 141174528 : lu(k,1434) = lu(k,1434) * lu(k,1433)
5924 141174528 : lu(k,1435) = lu(k,1435) * lu(k,1433)
5925 141174528 : lu(k,1436) = lu(k,1436) * lu(k,1433)
5926 141174528 : lu(k,1437) = lu(k,1437) * lu(k,1433)
5927 141174528 : lu(k,1438) = lu(k,1438) * lu(k,1433)
5928 141174528 : lu(k,1439) = lu(k,1439) * lu(k,1433)
5929 141174528 : lu(k,1440) = lu(k,1440) * lu(k,1433)
5930 141174528 : lu(k,1441) = lu(k,1441) * lu(k,1433)
5931 141174528 : lu(k,1442) = lu(k,1442) * lu(k,1433)
5932 141174528 : lu(k,1443) = lu(k,1443) * lu(k,1433)
5933 141174528 : lu(k,1444) = lu(k,1444) * lu(k,1433)
5934 141174528 : lu(k,1445) = lu(k,1445) * lu(k,1433)
5935 141174528 : lu(k,1572) = - lu(k,1434) * lu(k,1570)
5936 141174528 : lu(k,1573) = lu(k,1573) - lu(k,1435) * lu(k,1570)
5937 141174528 : lu(k,1575) = lu(k,1575) - lu(k,1436) * lu(k,1570)
5938 141174528 : lu(k,1576) = lu(k,1576) - lu(k,1437) * lu(k,1570)
5939 141174528 : lu(k,1577) = lu(k,1577) - lu(k,1438) * lu(k,1570)
5940 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1439) * lu(k,1570)
5941 141174528 : lu(k,1581) = lu(k,1581) - lu(k,1440) * lu(k,1570)
5942 141174528 : lu(k,1582) = lu(k,1582) - lu(k,1441) * lu(k,1570)
5943 141174528 : lu(k,1584) = lu(k,1584) - lu(k,1442) * lu(k,1570)
5944 141174528 : lu(k,1586) = lu(k,1586) - lu(k,1443) * lu(k,1570)
5945 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1444) * lu(k,1570)
5946 141174528 : lu(k,1589) = lu(k,1589) - lu(k,1445) * lu(k,1570)
5947 141174528 : lu(k,1816) = lu(k,1816) - lu(k,1434) * lu(k,1813)
5948 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1435) * lu(k,1813)
5949 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1436) * lu(k,1813)
5950 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1437) * lu(k,1813)
5951 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1438) * lu(k,1813)
5952 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1439) * lu(k,1813)
5953 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1440) * lu(k,1813)
5954 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1441) * lu(k,1813)
5955 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1442) * lu(k,1813)
5956 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1443) * lu(k,1813)
5957 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1444) * lu(k,1813)
5958 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1445) * lu(k,1813)
5959 141174528 : lu(k,1943) = lu(k,1943) - lu(k,1434) * lu(k,1941)
5960 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1435) * lu(k,1941)
5961 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1436) * lu(k,1941)
5962 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1437) * lu(k,1941)
5963 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1438) * lu(k,1941)
5964 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1439) * lu(k,1941)
5965 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1440) * lu(k,1941)
5966 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1441) * lu(k,1941)
5967 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1442) * lu(k,1941)
5968 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1443) * lu(k,1941)
5969 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1444) * lu(k,1941)
5970 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1445) * lu(k,1941)
5971 141174528 : lu(k,1995) = lu(k,1995) - lu(k,1434) * lu(k,1994)
5972 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1435) * lu(k,1994)
5973 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1436) * lu(k,1994)
5974 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1437) * lu(k,1994)
5975 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1438) * lu(k,1994)
5976 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1439) * lu(k,1994)
5977 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1440) * lu(k,1994)
5978 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1441) * lu(k,1994)
5979 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1442) * lu(k,1994)
5980 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1443) * lu(k,1994)
5981 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1444) * lu(k,1994)
5982 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1445) * lu(k,1994)
5983 141174528 : lu(k,2077) = lu(k,2077) - lu(k,1434) * lu(k,2075)
5984 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1435) * lu(k,2075)
5985 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1436) * lu(k,2075)
5986 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1437) * lu(k,2075)
5987 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1438) * lu(k,2075)
5988 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1439) * lu(k,2075)
5989 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1440) * lu(k,2075)
5990 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1441) * lu(k,2075)
5991 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1442) * lu(k,2075)
5992 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1443) * lu(k,2075)
5993 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1444) * lu(k,2075)
5994 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1445) * lu(k,2075)
5995 141174528 : lu(k,2116) = lu(k,2116) - lu(k,1434) * lu(k,2113)
5996 141174528 : lu(k,2117) = lu(k,2117) - lu(k,1435) * lu(k,2113)
5997 141174528 : lu(k,2119) = lu(k,2119) - lu(k,1436) * lu(k,2113)
5998 141174528 : lu(k,2120) = lu(k,2120) - lu(k,1437) * lu(k,2113)
5999 141174528 : lu(k,2121) = lu(k,2121) - lu(k,1438) * lu(k,2113)
6000 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1439) * lu(k,2113)
6001 141174528 : lu(k,2125) = lu(k,2125) - lu(k,1440) * lu(k,2113)
6002 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1441) * lu(k,2113)
6003 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1442) * lu(k,2113)
6004 141174528 : lu(k,2130) = lu(k,2130) - lu(k,1443) * lu(k,2113)
6005 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1444) * lu(k,2113)
6006 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1445) * lu(k,2113)
6007 141174528 : lu(k,2178) = lu(k,2178) - lu(k,1434) * lu(k,2176)
6008 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1435) * lu(k,2176)
6009 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1436) * lu(k,2176)
6010 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1437) * lu(k,2176)
6011 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1438) * lu(k,2176)
6012 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1439) * lu(k,2176)
6013 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1440) * lu(k,2176)
6014 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1441) * lu(k,2176)
6015 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1442) * lu(k,2176)
6016 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1443) * lu(k,2176)
6017 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1444) * lu(k,2176)
6018 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1445) * lu(k,2176)
6019 141174528 : lu(k,2296) = lu(k,2296) - lu(k,1434) * lu(k,2293)
6020 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1435) * lu(k,2293)
6021 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1436) * lu(k,2293)
6022 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1437) * lu(k,2293)
6023 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1438) * lu(k,2293)
6024 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1439) * lu(k,2293)
6025 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1440) * lu(k,2293)
6026 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1441) * lu(k,2293)
6027 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1442) * lu(k,2293)
6028 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1443) * lu(k,2293)
6029 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1444) * lu(k,2293)
6030 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1445) * lu(k,2293)
6031 141174528 : lu(k,1448) = 1._r8 / lu(k,1448)
6032 141174528 : lu(k,1449) = lu(k,1449) * lu(k,1448)
6033 141174528 : lu(k,1450) = lu(k,1450) * lu(k,1448)
6034 141174528 : lu(k,1451) = lu(k,1451) * lu(k,1448)
6035 141174528 : lu(k,1452) = lu(k,1452) * lu(k,1448)
6036 141174528 : lu(k,1453) = lu(k,1453) * lu(k,1448)
6037 141174528 : lu(k,1454) = lu(k,1454) * lu(k,1448)
6038 141174528 : lu(k,1455) = lu(k,1455) * lu(k,1448)
6039 141174528 : lu(k,1456) = lu(k,1456) * lu(k,1448)
6040 141174528 : lu(k,1457) = lu(k,1457) * lu(k,1448)
6041 141174528 : lu(k,1458) = lu(k,1458) * lu(k,1448)
6042 141174528 : lu(k,1459) = lu(k,1459) * lu(k,1448)
6043 141174528 : lu(k,1477) = lu(k,1477) - lu(k,1449) * lu(k,1476)
6044 141174528 : lu(k,1478) = lu(k,1478) - lu(k,1450) * lu(k,1476)
6045 141174528 : lu(k,1479) = lu(k,1479) - lu(k,1451) * lu(k,1476)
6046 141174528 : lu(k,1481) = lu(k,1481) - lu(k,1452) * lu(k,1476)
6047 141174528 : lu(k,1482) = lu(k,1482) - lu(k,1453) * lu(k,1476)
6048 141174528 : lu(k,1483) = lu(k,1483) - lu(k,1454) * lu(k,1476)
6049 141174528 : lu(k,1484) = lu(k,1484) - lu(k,1455) * lu(k,1476)
6050 141174528 : lu(k,1485) = lu(k,1485) - lu(k,1456) * lu(k,1476)
6051 141174528 : lu(k,1486) = lu(k,1486) - lu(k,1457) * lu(k,1476)
6052 141174528 : lu(k,1487) = lu(k,1487) - lu(k,1458) * lu(k,1476)
6053 141174528 : lu(k,1489) = lu(k,1489) - lu(k,1459) * lu(k,1476)
6054 141174528 : lu(k,1493) = lu(k,1493) - lu(k,1449) * lu(k,1492)
6055 141174528 : lu(k,1494) = lu(k,1494) - lu(k,1450) * lu(k,1492)
6056 141174528 : lu(k,1495) = lu(k,1495) - lu(k,1451) * lu(k,1492)
6057 141174528 : lu(k,1498) = - lu(k,1452) * lu(k,1492)
6058 141174528 : lu(k,1499) = - lu(k,1453) * lu(k,1492)
6059 141174528 : lu(k,1500) = lu(k,1500) - lu(k,1454) * lu(k,1492)
6060 141174528 : lu(k,1501) = lu(k,1501) - lu(k,1455) * lu(k,1492)
6061 141174528 : lu(k,1502) = - lu(k,1456) * lu(k,1492)
6062 141174528 : lu(k,1503) = lu(k,1503) - lu(k,1457) * lu(k,1492)
6063 141174528 : lu(k,1504) = - lu(k,1458) * lu(k,1492)
6064 141174528 : lu(k,1506) = lu(k,1506) - lu(k,1459) * lu(k,1492)
6065 141174528 : lu(k,1508) = - lu(k,1449) * lu(k,1507)
6066 141174528 : lu(k,1509) = - lu(k,1450) * lu(k,1507)
6067 141174528 : lu(k,1510) = lu(k,1510) - lu(k,1451) * lu(k,1507)
6068 141174528 : lu(k,1513) = lu(k,1513) - lu(k,1452) * lu(k,1507)
6069 141174528 : lu(k,1514) = - lu(k,1453) * lu(k,1507)
6070 141174528 : lu(k,1515) = lu(k,1515) - lu(k,1454) * lu(k,1507)
6071 141174528 : lu(k,1516) = - lu(k,1455) * lu(k,1507)
6072 141174528 : lu(k,1517) = - lu(k,1456) * lu(k,1507)
6073 141174528 : lu(k,1518) = - lu(k,1457) * lu(k,1507)
6074 141174528 : lu(k,1519) = - lu(k,1458) * lu(k,1507)
6075 141174528 : lu(k,1522) = lu(k,1522) - lu(k,1459) * lu(k,1507)
6076 141174528 : lu(k,1529) = - lu(k,1449) * lu(k,1527)
6077 141174528 : lu(k,1530) = lu(k,1530) - lu(k,1450) * lu(k,1527)
6078 141174528 : lu(k,1531) = lu(k,1531) - lu(k,1451) * lu(k,1527)
6079 141174528 : lu(k,1534) = lu(k,1534) - lu(k,1452) * lu(k,1527)
6080 141174528 : lu(k,1535) = lu(k,1535) - lu(k,1453) * lu(k,1527)
6081 141174528 : lu(k,1536) = lu(k,1536) - lu(k,1454) * lu(k,1527)
6082 141174528 : lu(k,1539) = - lu(k,1455) * lu(k,1527)
6083 141174528 : lu(k,1540) = lu(k,1540) - lu(k,1456) * lu(k,1527)
6084 141174528 : lu(k,1541) = lu(k,1541) - lu(k,1457) * lu(k,1527)
6085 141174528 : lu(k,1542) = lu(k,1542) - lu(k,1458) * lu(k,1527)
6086 141174528 : lu(k,1545) = lu(k,1545) - lu(k,1459) * lu(k,1527)
6087 141174528 : lu(k,1603) = - lu(k,1449) * lu(k,1601)
6088 141174528 : lu(k,1604) = lu(k,1604) - lu(k,1450) * lu(k,1601)
6089 141174528 : lu(k,1605) = lu(k,1605) - lu(k,1451) * lu(k,1601)
6090 141174528 : lu(k,1608) = lu(k,1608) - lu(k,1452) * lu(k,1601)
6091 141174528 : lu(k,1609) = lu(k,1609) - lu(k,1453) * lu(k,1601)
6092 141174528 : lu(k,1610) = lu(k,1610) - lu(k,1454) * lu(k,1601)
6093 141174528 : lu(k,1613) = - lu(k,1455) * lu(k,1601)
6094 141174528 : lu(k,1614) = lu(k,1614) - lu(k,1456) * lu(k,1601)
6095 141174528 : lu(k,1615) = lu(k,1615) - lu(k,1457) * lu(k,1601)
6096 141174528 : lu(k,1616) = lu(k,1616) - lu(k,1458) * lu(k,1601)
6097 141174528 : lu(k,1620) = lu(k,1620) - lu(k,1459) * lu(k,1601)
6098 141174528 : lu(k,1644) = lu(k,1644) - lu(k,1449) * lu(k,1642)
6099 141174528 : lu(k,1645) = lu(k,1645) - lu(k,1450) * lu(k,1642)
6100 141174528 : lu(k,1646) = lu(k,1646) - lu(k,1451) * lu(k,1642)
6101 141174528 : lu(k,1649) = lu(k,1649) - lu(k,1452) * lu(k,1642)
6102 141174528 : lu(k,1650) = lu(k,1650) - lu(k,1453) * lu(k,1642)
6103 141174528 : lu(k,1651) = lu(k,1651) - lu(k,1454) * lu(k,1642)
6104 141174528 : lu(k,1654) = lu(k,1654) - lu(k,1455) * lu(k,1642)
6105 141174528 : lu(k,1655) = lu(k,1655) - lu(k,1456) * lu(k,1642)
6106 141174528 : lu(k,1656) = lu(k,1656) - lu(k,1457) * lu(k,1642)
6107 141174528 : lu(k,1657) = lu(k,1657) - lu(k,1458) * lu(k,1642)
6108 141174528 : lu(k,1661) = lu(k,1661) - lu(k,1459) * lu(k,1642)
6109 141174528 : lu(k,1816) = lu(k,1816) - lu(k,1449) * lu(k,1814)
6110 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1450) * lu(k,1814)
6111 141174528 : lu(k,1818) = lu(k,1818) - lu(k,1451) * lu(k,1814)
6112 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1452) * lu(k,1814)
6113 141174528 : lu(k,1822) = lu(k,1822) - lu(k,1453) * lu(k,1814)
6114 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1454) * lu(k,1814)
6115 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1455) * lu(k,1814)
6116 141174528 : lu(k,1827) = lu(k,1827) - lu(k,1456) * lu(k,1814)
6117 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1457) * lu(k,1814)
6118 141174528 : lu(k,1829) = lu(k,1829) - lu(k,1458) * lu(k,1814)
6119 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1459) * lu(k,1814)
6120 141174528 : lu(k,2116) = lu(k,2116) - lu(k,1449) * lu(k,2114)
6121 141174528 : lu(k,2117) = lu(k,2117) - lu(k,1450) * lu(k,2114)
6122 141174528 : lu(k,2118) = lu(k,2118) - lu(k,1451) * lu(k,2114)
6123 141174528 : lu(k,2121) = lu(k,2121) - lu(k,1452) * lu(k,2114)
6124 141174528 : lu(k,2122) = lu(k,2122) - lu(k,1453) * lu(k,2114)
6125 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1454) * lu(k,2114)
6126 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1455) * lu(k,2114)
6127 141174528 : lu(k,2127) = lu(k,2127) - lu(k,1456) * lu(k,2114)
6128 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1457) * lu(k,2114)
6129 141174528 : lu(k,2129) = lu(k,2129) - lu(k,1458) * lu(k,2114)
6130 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1459) * lu(k,2114)
6131 141174528 : lu(k,2296) = lu(k,2296) - lu(k,1449) * lu(k,2294)
6132 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1450) * lu(k,2294)
6133 141174528 : lu(k,2298) = lu(k,2298) - lu(k,1451) * lu(k,2294)
6134 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1452) * lu(k,2294)
6135 141174528 : lu(k,2302) = lu(k,2302) - lu(k,1453) * lu(k,2294)
6136 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1454) * lu(k,2294)
6137 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1455) * lu(k,2294)
6138 141174528 : lu(k,2307) = lu(k,2307) - lu(k,1456) * lu(k,2294)
6139 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1457) * lu(k,2294)
6140 141174528 : lu(k,2309) = lu(k,2309) - lu(k,1458) * lu(k,2294)
6141 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1459) * lu(k,2294)
6142 141174528 : lu(k,2348) = lu(k,2348) - lu(k,1449) * lu(k,2346)
6143 141174528 : lu(k,2349) = lu(k,2349) - lu(k,1450) * lu(k,2346)
6144 141174528 : lu(k,2350) = lu(k,2350) - lu(k,1451) * lu(k,2346)
6145 141174528 : lu(k,2353) = lu(k,2353) - lu(k,1452) * lu(k,2346)
6146 141174528 : lu(k,2354) = lu(k,2354) - lu(k,1453) * lu(k,2346)
6147 141174528 : lu(k,2355) = lu(k,2355) - lu(k,1454) * lu(k,2346)
6148 141174528 : lu(k,2358) = lu(k,2358) - lu(k,1455) * lu(k,2346)
6149 141174528 : lu(k,2359) = - lu(k,1456) * lu(k,2346)
6150 141174528 : lu(k,2360) = lu(k,2360) - lu(k,1457) * lu(k,2346)
6151 141174528 : lu(k,2361) = lu(k,2361) - lu(k,1458) * lu(k,2346)
6152 145586232 : lu(k,2365) = lu(k,2365) - lu(k,1459) * lu(k,2346)
6153 : end do
6154 4411704 : end subroutine lu_fac27
6155 4411704 : subroutine lu_fac28( avec_len, lu )
6156 : use chem_mods, only : nzcnt
6157 : use shr_kind_mod, only : r8 => shr_kind_r8
6158 : implicit none
6159 : !-----------------------------------------------------------------------
6160 : ! ... dummy args
6161 : !-----------------------------------------------------------------------
6162 : integer, intent(in) :: avec_len
6163 : real(r8), intent(inout) :: lu(veclen,nzcnt)
6164 : !-----------------------------------------------------------------------
6165 : ! ... local variables
6166 : !-----------------------------------------------------------------------
6167 : integer :: k
6168 145586232 : do k = 1,avec_len
6169 141174528 : lu(k,1462) = 1._r8 / lu(k,1462)
6170 141174528 : lu(k,1463) = lu(k,1463) * lu(k,1462)
6171 141174528 : lu(k,1464) = lu(k,1464) * lu(k,1462)
6172 141174528 : lu(k,1465) = lu(k,1465) * lu(k,1462)
6173 141174528 : lu(k,1466) = lu(k,1466) * lu(k,1462)
6174 141174528 : lu(k,1467) = lu(k,1467) * lu(k,1462)
6175 141174528 : lu(k,1468) = lu(k,1468) * lu(k,1462)
6176 141174528 : lu(k,1469) = lu(k,1469) * lu(k,1462)
6177 141174528 : lu(k,1470) = lu(k,1470) * lu(k,1462)
6178 141174528 : lu(k,1471) = lu(k,1471) * lu(k,1462)
6179 141174528 : lu(k,1531) = lu(k,1531) - lu(k,1463) * lu(k,1528)
6180 141174528 : lu(k,1532) = lu(k,1532) - lu(k,1464) * lu(k,1528)
6181 141174528 : lu(k,1534) = lu(k,1534) - lu(k,1465) * lu(k,1528)
6182 141174528 : lu(k,1535) = lu(k,1535) - lu(k,1466) * lu(k,1528)
6183 141174528 : lu(k,1536) = lu(k,1536) - lu(k,1467) * lu(k,1528)
6184 141174528 : lu(k,1537) = lu(k,1537) - lu(k,1468) * lu(k,1528)
6185 141174528 : lu(k,1543) = - lu(k,1469) * lu(k,1528)
6186 141174528 : lu(k,1544) = lu(k,1544) - lu(k,1470) * lu(k,1528)
6187 141174528 : lu(k,1545) = lu(k,1545) - lu(k,1471) * lu(k,1528)
6188 141174528 : lu(k,1574) = lu(k,1574) - lu(k,1463) * lu(k,1571)
6189 141174528 : lu(k,1575) = lu(k,1575) - lu(k,1464) * lu(k,1571)
6190 141174528 : lu(k,1577) = lu(k,1577) - lu(k,1465) * lu(k,1571)
6191 141174528 : lu(k,1578) = lu(k,1578) - lu(k,1466) * lu(k,1571)
6192 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1467) * lu(k,1571)
6193 141174528 : lu(k,1580) = lu(k,1580) - lu(k,1468) * lu(k,1571)
6194 141174528 : lu(k,1586) = lu(k,1586) - lu(k,1469) * lu(k,1571)
6195 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1470) * lu(k,1571)
6196 141174528 : lu(k,1589) = lu(k,1589) - lu(k,1471) * lu(k,1571)
6197 141174528 : lu(k,1605) = lu(k,1605) - lu(k,1463) * lu(k,1602)
6198 141174528 : lu(k,1606) = lu(k,1606) - lu(k,1464) * lu(k,1602)
6199 141174528 : lu(k,1608) = lu(k,1608) - lu(k,1465) * lu(k,1602)
6200 141174528 : lu(k,1609) = lu(k,1609) - lu(k,1466) * lu(k,1602)
6201 141174528 : lu(k,1610) = lu(k,1610) - lu(k,1467) * lu(k,1602)
6202 141174528 : lu(k,1611) = lu(k,1611) - lu(k,1468) * lu(k,1602)
6203 141174528 : lu(k,1617) = lu(k,1617) - lu(k,1469) * lu(k,1602)
6204 141174528 : lu(k,1618) = lu(k,1618) - lu(k,1470) * lu(k,1602)
6205 141174528 : lu(k,1620) = lu(k,1620) - lu(k,1471) * lu(k,1602)
6206 141174528 : lu(k,1646) = lu(k,1646) - lu(k,1463) * lu(k,1643)
6207 141174528 : lu(k,1647) = lu(k,1647) - lu(k,1464) * lu(k,1643)
6208 141174528 : lu(k,1649) = lu(k,1649) - lu(k,1465) * lu(k,1643)
6209 141174528 : lu(k,1650) = lu(k,1650) - lu(k,1466) * lu(k,1643)
6210 141174528 : lu(k,1651) = lu(k,1651) - lu(k,1467) * lu(k,1643)
6211 141174528 : lu(k,1652) = lu(k,1652) - lu(k,1468) * lu(k,1643)
6212 141174528 : lu(k,1658) = lu(k,1658) - lu(k,1469) * lu(k,1643)
6213 141174528 : lu(k,1659) = lu(k,1659) - lu(k,1470) * lu(k,1643)
6214 141174528 : lu(k,1661) = lu(k,1661) - lu(k,1471) * lu(k,1643)
6215 141174528 : lu(k,1818) = lu(k,1818) - lu(k,1463) * lu(k,1815)
6216 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1464) * lu(k,1815)
6217 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1465) * lu(k,1815)
6218 141174528 : lu(k,1822) = lu(k,1822) - lu(k,1466) * lu(k,1815)
6219 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1467) * lu(k,1815)
6220 141174528 : lu(k,1824) = lu(k,1824) - lu(k,1468) * lu(k,1815)
6221 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1469) * lu(k,1815)
6222 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1470) * lu(k,1815)
6223 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1471) * lu(k,1815)
6224 141174528 : lu(k,1842) = lu(k,1842) - lu(k,1463) * lu(k,1840)
6225 141174528 : lu(k,1843) = - lu(k,1464) * lu(k,1840)
6226 141174528 : lu(k,1845) = lu(k,1845) - lu(k,1465) * lu(k,1840)
6227 141174528 : lu(k,1846) = - lu(k,1466) * lu(k,1840)
6228 141174528 : lu(k,1847) = lu(k,1847) - lu(k,1467) * lu(k,1840)
6229 141174528 : lu(k,1848) = lu(k,1848) - lu(k,1468) * lu(k,1840)
6230 141174528 : lu(k,1854) = lu(k,1854) - lu(k,1469) * lu(k,1840)
6231 141174528 : lu(k,1855) = lu(k,1855) - lu(k,1470) * lu(k,1840)
6232 141174528 : lu(k,1857) = lu(k,1857) - lu(k,1471) * lu(k,1840)
6233 141174528 : lu(k,1945) = lu(k,1945) - lu(k,1463) * lu(k,1942)
6234 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1464) * lu(k,1942)
6235 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1465) * lu(k,1942)
6236 141174528 : lu(k,1949) = lu(k,1949) - lu(k,1466) * lu(k,1942)
6237 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1467) * lu(k,1942)
6238 141174528 : lu(k,1951) = lu(k,1951) - lu(k,1468) * lu(k,1942)
6239 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1469) * lu(k,1942)
6240 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1470) * lu(k,1942)
6241 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1471) * lu(k,1942)
6242 141174528 : lu(k,2020) = lu(k,2020) - lu(k,1463) * lu(k,2018)
6243 141174528 : lu(k,2021) = - lu(k,1464) * lu(k,2018)
6244 141174528 : lu(k,2023) = lu(k,2023) - lu(k,1465) * lu(k,2018)
6245 141174528 : lu(k,2024) = lu(k,2024) - lu(k,1466) * lu(k,2018)
6246 141174528 : lu(k,2025) = lu(k,2025) - lu(k,1467) * lu(k,2018)
6247 141174528 : lu(k,2026) = lu(k,2026) - lu(k,1468) * lu(k,2018)
6248 141174528 : lu(k,2032) = - lu(k,1469) * lu(k,2018)
6249 141174528 : lu(k,2033) = - lu(k,1470) * lu(k,2018)
6250 141174528 : lu(k,2035) = lu(k,2035) - lu(k,1471) * lu(k,2018)
6251 141174528 : lu(k,2079) = lu(k,2079) - lu(k,1463) * lu(k,2076)
6252 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1464) * lu(k,2076)
6253 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1465) * lu(k,2076)
6254 141174528 : lu(k,2083) = - lu(k,1466) * lu(k,2076)
6255 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1467) * lu(k,2076)
6256 141174528 : lu(k,2085) = lu(k,2085) - lu(k,1468) * lu(k,2076)
6257 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1469) * lu(k,2076)
6258 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1470) * lu(k,2076)
6259 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1471) * lu(k,2076)
6260 141174528 : lu(k,2118) = lu(k,2118) - lu(k,1463) * lu(k,2115)
6261 141174528 : lu(k,2119) = lu(k,2119) - lu(k,1464) * lu(k,2115)
6262 141174528 : lu(k,2121) = lu(k,2121) - lu(k,1465) * lu(k,2115)
6263 141174528 : lu(k,2122) = lu(k,2122) - lu(k,1466) * lu(k,2115)
6264 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1467) * lu(k,2115)
6265 141174528 : lu(k,2124) = - lu(k,1468) * lu(k,2115)
6266 141174528 : lu(k,2130) = lu(k,2130) - lu(k,1469) * lu(k,2115)
6267 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1470) * lu(k,2115)
6268 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1471) * lu(k,2115)
6269 141174528 : lu(k,2180) = lu(k,2180) - lu(k,1463) * lu(k,2177)
6270 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1464) * lu(k,2177)
6271 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1465) * lu(k,2177)
6272 141174528 : lu(k,2184) = lu(k,2184) - lu(k,1466) * lu(k,2177)
6273 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1467) * lu(k,2177)
6274 141174528 : lu(k,2186) = lu(k,2186) - lu(k,1468) * lu(k,2177)
6275 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1469) * lu(k,2177)
6276 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1470) * lu(k,2177)
6277 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1471) * lu(k,2177)
6278 141174528 : lu(k,2298) = lu(k,2298) - lu(k,1463) * lu(k,2295)
6279 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1464) * lu(k,2295)
6280 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1465) * lu(k,2295)
6281 141174528 : lu(k,2302) = lu(k,2302) - lu(k,1466) * lu(k,2295)
6282 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1467) * lu(k,2295)
6283 141174528 : lu(k,2304) = lu(k,2304) - lu(k,1468) * lu(k,2295)
6284 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1469) * lu(k,2295)
6285 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1470) * lu(k,2295)
6286 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1471) * lu(k,2295)
6287 141174528 : lu(k,2324) = lu(k,2324) - lu(k,1463) * lu(k,2322)
6288 141174528 : lu(k,2325) = lu(k,2325) - lu(k,1464) * lu(k,2322)
6289 141174528 : lu(k,2327) = lu(k,2327) - lu(k,1465) * lu(k,2322)
6290 141174528 : lu(k,2328) = - lu(k,1466) * lu(k,2322)
6291 141174528 : lu(k,2329) = lu(k,2329) - lu(k,1467) * lu(k,2322)
6292 141174528 : lu(k,2330) = lu(k,2330) - lu(k,1468) * lu(k,2322)
6293 141174528 : lu(k,2336) = lu(k,2336) - lu(k,1469) * lu(k,2322)
6294 141174528 : lu(k,2337) = lu(k,2337) - lu(k,1470) * lu(k,2322)
6295 141174528 : lu(k,2339) = lu(k,2339) - lu(k,1471) * lu(k,2322)
6296 141174528 : lu(k,2350) = lu(k,2350) - lu(k,1463) * lu(k,2347)
6297 141174528 : lu(k,2351) = - lu(k,1464) * lu(k,2347)
6298 141174528 : lu(k,2353) = lu(k,2353) - lu(k,1465) * lu(k,2347)
6299 141174528 : lu(k,2354) = lu(k,2354) - lu(k,1466) * lu(k,2347)
6300 141174528 : lu(k,2355) = lu(k,2355) - lu(k,1467) * lu(k,2347)
6301 141174528 : lu(k,2356) = lu(k,2356) - lu(k,1468) * lu(k,2347)
6302 141174528 : lu(k,2362) = lu(k,2362) - lu(k,1469) * lu(k,2347)
6303 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1470) * lu(k,2347)
6304 141174528 : lu(k,2365) = lu(k,2365) - lu(k,1471) * lu(k,2347)
6305 141174528 : lu(k,1477) = 1._r8 / lu(k,1477)
6306 141174528 : lu(k,1478) = lu(k,1478) * lu(k,1477)
6307 141174528 : lu(k,1479) = lu(k,1479) * lu(k,1477)
6308 141174528 : lu(k,1480) = lu(k,1480) * lu(k,1477)
6309 141174528 : lu(k,1481) = lu(k,1481) * lu(k,1477)
6310 141174528 : lu(k,1482) = lu(k,1482) * lu(k,1477)
6311 141174528 : lu(k,1483) = lu(k,1483) * lu(k,1477)
6312 141174528 : lu(k,1484) = lu(k,1484) * lu(k,1477)
6313 141174528 : lu(k,1485) = lu(k,1485) * lu(k,1477)
6314 141174528 : lu(k,1486) = lu(k,1486) * lu(k,1477)
6315 141174528 : lu(k,1487) = lu(k,1487) * lu(k,1477)
6316 141174528 : lu(k,1488) = lu(k,1488) * lu(k,1477)
6317 141174528 : lu(k,1489) = lu(k,1489) * lu(k,1477)
6318 141174528 : lu(k,1494) = lu(k,1494) - lu(k,1478) * lu(k,1493)
6319 141174528 : lu(k,1495) = lu(k,1495) - lu(k,1479) * lu(k,1493)
6320 141174528 : lu(k,1496) = - lu(k,1480) * lu(k,1493)
6321 141174528 : lu(k,1498) = lu(k,1498) - lu(k,1481) * lu(k,1493)
6322 141174528 : lu(k,1499) = lu(k,1499) - lu(k,1482) * lu(k,1493)
6323 141174528 : lu(k,1500) = lu(k,1500) - lu(k,1483) * lu(k,1493)
6324 141174528 : lu(k,1501) = lu(k,1501) - lu(k,1484) * lu(k,1493)
6325 141174528 : lu(k,1502) = lu(k,1502) - lu(k,1485) * lu(k,1493)
6326 141174528 : lu(k,1503) = lu(k,1503) - lu(k,1486) * lu(k,1493)
6327 141174528 : lu(k,1504) = lu(k,1504) - lu(k,1487) * lu(k,1493)
6328 141174528 : lu(k,1505) = - lu(k,1488) * lu(k,1493)
6329 141174528 : lu(k,1506) = lu(k,1506) - lu(k,1489) * lu(k,1493)
6330 141174528 : lu(k,1509) = lu(k,1509) - lu(k,1478) * lu(k,1508)
6331 141174528 : lu(k,1510) = lu(k,1510) - lu(k,1479) * lu(k,1508)
6332 141174528 : lu(k,1511) = - lu(k,1480) * lu(k,1508)
6333 141174528 : lu(k,1513) = lu(k,1513) - lu(k,1481) * lu(k,1508)
6334 141174528 : lu(k,1514) = lu(k,1514) - lu(k,1482) * lu(k,1508)
6335 141174528 : lu(k,1515) = lu(k,1515) - lu(k,1483) * lu(k,1508)
6336 141174528 : lu(k,1516) = lu(k,1516) - lu(k,1484) * lu(k,1508)
6337 141174528 : lu(k,1517) = lu(k,1517) - lu(k,1485) * lu(k,1508)
6338 141174528 : lu(k,1518) = lu(k,1518) - lu(k,1486) * lu(k,1508)
6339 141174528 : lu(k,1519) = lu(k,1519) - lu(k,1487) * lu(k,1508)
6340 141174528 : lu(k,1521) = lu(k,1521) - lu(k,1488) * lu(k,1508)
6341 141174528 : lu(k,1522) = lu(k,1522) - lu(k,1489) * lu(k,1508)
6342 141174528 : lu(k,1530) = lu(k,1530) - lu(k,1478) * lu(k,1529)
6343 141174528 : lu(k,1531) = lu(k,1531) - lu(k,1479) * lu(k,1529)
6344 141174528 : lu(k,1532) = lu(k,1532) - lu(k,1480) * lu(k,1529)
6345 141174528 : lu(k,1534) = lu(k,1534) - lu(k,1481) * lu(k,1529)
6346 141174528 : lu(k,1535) = lu(k,1535) - lu(k,1482) * lu(k,1529)
6347 141174528 : lu(k,1536) = lu(k,1536) - lu(k,1483) * lu(k,1529)
6348 141174528 : lu(k,1539) = lu(k,1539) - lu(k,1484) * lu(k,1529)
6349 141174528 : lu(k,1540) = lu(k,1540) - lu(k,1485) * lu(k,1529)
6350 141174528 : lu(k,1541) = lu(k,1541) - lu(k,1486) * lu(k,1529)
6351 141174528 : lu(k,1542) = lu(k,1542) - lu(k,1487) * lu(k,1529)
6352 141174528 : lu(k,1544) = lu(k,1544) - lu(k,1488) * lu(k,1529)
6353 141174528 : lu(k,1545) = lu(k,1545) - lu(k,1489) * lu(k,1529)
6354 141174528 : lu(k,1573) = lu(k,1573) - lu(k,1478) * lu(k,1572)
6355 141174528 : lu(k,1574) = lu(k,1574) - lu(k,1479) * lu(k,1572)
6356 141174528 : lu(k,1575) = lu(k,1575) - lu(k,1480) * lu(k,1572)
6357 141174528 : lu(k,1577) = lu(k,1577) - lu(k,1481) * lu(k,1572)
6358 141174528 : lu(k,1578) = lu(k,1578) - lu(k,1482) * lu(k,1572)
6359 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1483) * lu(k,1572)
6360 141174528 : lu(k,1582) = lu(k,1582) - lu(k,1484) * lu(k,1572)
6361 141174528 : lu(k,1583) = lu(k,1583) - lu(k,1485) * lu(k,1572)
6362 141174528 : lu(k,1584) = lu(k,1584) - lu(k,1486) * lu(k,1572)
6363 141174528 : lu(k,1585) = lu(k,1585) - lu(k,1487) * lu(k,1572)
6364 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1488) * lu(k,1572)
6365 141174528 : lu(k,1589) = lu(k,1589) - lu(k,1489) * lu(k,1572)
6366 141174528 : lu(k,1604) = lu(k,1604) - lu(k,1478) * lu(k,1603)
6367 141174528 : lu(k,1605) = lu(k,1605) - lu(k,1479) * lu(k,1603)
6368 141174528 : lu(k,1606) = lu(k,1606) - lu(k,1480) * lu(k,1603)
6369 141174528 : lu(k,1608) = lu(k,1608) - lu(k,1481) * lu(k,1603)
6370 141174528 : lu(k,1609) = lu(k,1609) - lu(k,1482) * lu(k,1603)
6371 141174528 : lu(k,1610) = lu(k,1610) - lu(k,1483) * lu(k,1603)
6372 141174528 : lu(k,1613) = lu(k,1613) - lu(k,1484) * lu(k,1603)
6373 141174528 : lu(k,1614) = lu(k,1614) - lu(k,1485) * lu(k,1603)
6374 141174528 : lu(k,1615) = lu(k,1615) - lu(k,1486) * lu(k,1603)
6375 141174528 : lu(k,1616) = lu(k,1616) - lu(k,1487) * lu(k,1603)
6376 141174528 : lu(k,1618) = lu(k,1618) - lu(k,1488) * lu(k,1603)
6377 141174528 : lu(k,1620) = lu(k,1620) - lu(k,1489) * lu(k,1603)
6378 141174528 : lu(k,1645) = lu(k,1645) - lu(k,1478) * lu(k,1644)
6379 141174528 : lu(k,1646) = lu(k,1646) - lu(k,1479) * lu(k,1644)
6380 141174528 : lu(k,1647) = lu(k,1647) - lu(k,1480) * lu(k,1644)
6381 141174528 : lu(k,1649) = lu(k,1649) - lu(k,1481) * lu(k,1644)
6382 141174528 : lu(k,1650) = lu(k,1650) - lu(k,1482) * lu(k,1644)
6383 141174528 : lu(k,1651) = lu(k,1651) - lu(k,1483) * lu(k,1644)
6384 141174528 : lu(k,1654) = lu(k,1654) - lu(k,1484) * lu(k,1644)
6385 141174528 : lu(k,1655) = lu(k,1655) - lu(k,1485) * lu(k,1644)
6386 141174528 : lu(k,1656) = lu(k,1656) - lu(k,1486) * lu(k,1644)
6387 141174528 : lu(k,1657) = lu(k,1657) - lu(k,1487) * lu(k,1644)
6388 141174528 : lu(k,1659) = lu(k,1659) - lu(k,1488) * lu(k,1644)
6389 141174528 : lu(k,1661) = lu(k,1661) - lu(k,1489) * lu(k,1644)
6390 141174528 : lu(k,1817) = lu(k,1817) - lu(k,1478) * lu(k,1816)
6391 141174528 : lu(k,1818) = lu(k,1818) - lu(k,1479) * lu(k,1816)
6392 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1480) * lu(k,1816)
6393 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1481) * lu(k,1816)
6394 141174528 : lu(k,1822) = lu(k,1822) - lu(k,1482) * lu(k,1816)
6395 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1483) * lu(k,1816)
6396 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1484) * lu(k,1816)
6397 141174528 : lu(k,1827) = lu(k,1827) - lu(k,1485) * lu(k,1816)
6398 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1486) * lu(k,1816)
6399 141174528 : lu(k,1829) = lu(k,1829) - lu(k,1487) * lu(k,1816)
6400 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1488) * lu(k,1816)
6401 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1489) * lu(k,1816)
6402 141174528 : lu(k,1944) = lu(k,1944) - lu(k,1478) * lu(k,1943)
6403 141174528 : lu(k,1945) = lu(k,1945) - lu(k,1479) * lu(k,1943)
6404 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1480) * lu(k,1943)
6405 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1481) * lu(k,1943)
6406 141174528 : lu(k,1949) = lu(k,1949) - lu(k,1482) * lu(k,1943)
6407 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1483) * lu(k,1943)
6408 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1484) * lu(k,1943)
6409 141174528 : lu(k,1954) = - lu(k,1485) * lu(k,1943)
6410 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1486) * lu(k,1943)
6411 141174528 : lu(k,1956) = lu(k,1956) - lu(k,1487) * lu(k,1943)
6412 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1488) * lu(k,1943)
6413 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1489) * lu(k,1943)
6414 141174528 : lu(k,1996) = lu(k,1996) - lu(k,1478) * lu(k,1995)
6415 141174528 : lu(k,1997) = lu(k,1997) - lu(k,1479) * lu(k,1995)
6416 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1480) * lu(k,1995)
6417 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1481) * lu(k,1995)
6418 141174528 : lu(k,2001) = - lu(k,1482) * lu(k,1995)
6419 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1483) * lu(k,1995)
6420 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1484) * lu(k,1995)
6421 141174528 : lu(k,2006) = - lu(k,1485) * lu(k,1995)
6422 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1486) * lu(k,1995)
6423 141174528 : lu(k,2008) = lu(k,2008) - lu(k,1487) * lu(k,1995)
6424 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1488) * lu(k,1995)
6425 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1489) * lu(k,1995)
6426 141174528 : lu(k,2078) = lu(k,2078) - lu(k,1478) * lu(k,2077)
6427 141174528 : lu(k,2079) = lu(k,2079) - lu(k,1479) * lu(k,2077)
6428 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1480) * lu(k,2077)
6429 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1481) * lu(k,2077)
6430 141174528 : lu(k,2083) = lu(k,2083) - lu(k,1482) * lu(k,2077)
6431 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1483) * lu(k,2077)
6432 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1484) * lu(k,2077)
6433 141174528 : lu(k,2088) = - lu(k,1485) * lu(k,2077)
6434 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1486) * lu(k,2077)
6435 141174528 : lu(k,2090) = lu(k,2090) - lu(k,1487) * lu(k,2077)
6436 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1488) * lu(k,2077)
6437 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1489) * lu(k,2077)
6438 141174528 : lu(k,2117) = lu(k,2117) - lu(k,1478) * lu(k,2116)
6439 141174528 : lu(k,2118) = lu(k,2118) - lu(k,1479) * lu(k,2116)
6440 141174528 : lu(k,2119) = lu(k,2119) - lu(k,1480) * lu(k,2116)
6441 141174528 : lu(k,2121) = lu(k,2121) - lu(k,1481) * lu(k,2116)
6442 141174528 : lu(k,2122) = lu(k,2122) - lu(k,1482) * lu(k,2116)
6443 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1483) * lu(k,2116)
6444 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1484) * lu(k,2116)
6445 141174528 : lu(k,2127) = lu(k,2127) - lu(k,1485) * lu(k,2116)
6446 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1486) * lu(k,2116)
6447 141174528 : lu(k,2129) = lu(k,2129) - lu(k,1487) * lu(k,2116)
6448 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1488) * lu(k,2116)
6449 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1489) * lu(k,2116)
6450 141174528 : lu(k,2179) = lu(k,2179) - lu(k,1478) * lu(k,2178)
6451 141174528 : lu(k,2180) = lu(k,2180) - lu(k,1479) * lu(k,2178)
6452 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1480) * lu(k,2178)
6453 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1481) * lu(k,2178)
6454 141174528 : lu(k,2184) = lu(k,2184) - lu(k,1482) * lu(k,2178)
6455 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1483) * lu(k,2178)
6456 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1484) * lu(k,2178)
6457 141174528 : lu(k,2189) = - lu(k,1485) * lu(k,2178)
6458 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1486) * lu(k,2178)
6459 141174528 : lu(k,2191) = lu(k,2191) - lu(k,1487) * lu(k,2178)
6460 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1488) * lu(k,2178)
6461 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1489) * lu(k,2178)
6462 141174528 : lu(k,2297) = lu(k,2297) - lu(k,1478) * lu(k,2296)
6463 141174528 : lu(k,2298) = lu(k,2298) - lu(k,1479) * lu(k,2296)
6464 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1480) * lu(k,2296)
6465 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1481) * lu(k,2296)
6466 141174528 : lu(k,2302) = lu(k,2302) - lu(k,1482) * lu(k,2296)
6467 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1483) * lu(k,2296)
6468 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1484) * lu(k,2296)
6469 141174528 : lu(k,2307) = lu(k,2307) - lu(k,1485) * lu(k,2296)
6470 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1486) * lu(k,2296)
6471 141174528 : lu(k,2309) = lu(k,2309) - lu(k,1487) * lu(k,2296)
6472 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1488) * lu(k,2296)
6473 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1489) * lu(k,2296)
6474 141174528 : lu(k,2349) = lu(k,2349) - lu(k,1478) * lu(k,2348)
6475 141174528 : lu(k,2350) = lu(k,2350) - lu(k,1479) * lu(k,2348)
6476 141174528 : lu(k,2351) = lu(k,2351) - lu(k,1480) * lu(k,2348)
6477 141174528 : lu(k,2353) = lu(k,2353) - lu(k,1481) * lu(k,2348)
6478 141174528 : lu(k,2354) = lu(k,2354) - lu(k,1482) * lu(k,2348)
6479 141174528 : lu(k,2355) = lu(k,2355) - lu(k,1483) * lu(k,2348)
6480 141174528 : lu(k,2358) = lu(k,2358) - lu(k,1484) * lu(k,2348)
6481 141174528 : lu(k,2359) = lu(k,2359) - lu(k,1485) * lu(k,2348)
6482 141174528 : lu(k,2360) = lu(k,2360) - lu(k,1486) * lu(k,2348)
6483 141174528 : lu(k,2361) = lu(k,2361) - lu(k,1487) * lu(k,2348)
6484 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1488) * lu(k,2348)
6485 141174528 : lu(k,2365) = lu(k,2365) - lu(k,1489) * lu(k,2348)
6486 141174528 : lu(k,1494) = 1._r8 / lu(k,1494)
6487 141174528 : lu(k,1495) = lu(k,1495) * lu(k,1494)
6488 141174528 : lu(k,1496) = lu(k,1496) * lu(k,1494)
6489 141174528 : lu(k,1497) = lu(k,1497) * lu(k,1494)
6490 141174528 : lu(k,1498) = lu(k,1498) * lu(k,1494)
6491 141174528 : lu(k,1499) = lu(k,1499) * lu(k,1494)
6492 141174528 : lu(k,1500) = lu(k,1500) * lu(k,1494)
6493 141174528 : lu(k,1501) = lu(k,1501) * lu(k,1494)
6494 141174528 : lu(k,1502) = lu(k,1502) * lu(k,1494)
6495 141174528 : lu(k,1503) = lu(k,1503) * lu(k,1494)
6496 141174528 : lu(k,1504) = lu(k,1504) * lu(k,1494)
6497 141174528 : lu(k,1505) = lu(k,1505) * lu(k,1494)
6498 141174528 : lu(k,1506) = lu(k,1506) * lu(k,1494)
6499 141174528 : lu(k,1510) = lu(k,1510) - lu(k,1495) * lu(k,1509)
6500 141174528 : lu(k,1511) = lu(k,1511) - lu(k,1496) * lu(k,1509)
6501 141174528 : lu(k,1512) = - lu(k,1497) * lu(k,1509)
6502 141174528 : lu(k,1513) = lu(k,1513) - lu(k,1498) * lu(k,1509)
6503 141174528 : lu(k,1514) = lu(k,1514) - lu(k,1499) * lu(k,1509)
6504 141174528 : lu(k,1515) = lu(k,1515) - lu(k,1500) * lu(k,1509)
6505 141174528 : lu(k,1516) = lu(k,1516) - lu(k,1501) * lu(k,1509)
6506 141174528 : lu(k,1517) = lu(k,1517) - lu(k,1502) * lu(k,1509)
6507 141174528 : lu(k,1518) = lu(k,1518) - lu(k,1503) * lu(k,1509)
6508 141174528 : lu(k,1519) = lu(k,1519) - lu(k,1504) * lu(k,1509)
6509 141174528 : lu(k,1521) = lu(k,1521) - lu(k,1505) * lu(k,1509)
6510 141174528 : lu(k,1522) = lu(k,1522) - lu(k,1506) * lu(k,1509)
6511 141174528 : lu(k,1531) = lu(k,1531) - lu(k,1495) * lu(k,1530)
6512 141174528 : lu(k,1532) = lu(k,1532) - lu(k,1496) * lu(k,1530)
6513 141174528 : lu(k,1533) = lu(k,1533) - lu(k,1497) * lu(k,1530)
6514 141174528 : lu(k,1534) = lu(k,1534) - lu(k,1498) * lu(k,1530)
6515 141174528 : lu(k,1535) = lu(k,1535) - lu(k,1499) * lu(k,1530)
6516 141174528 : lu(k,1536) = lu(k,1536) - lu(k,1500) * lu(k,1530)
6517 141174528 : lu(k,1539) = lu(k,1539) - lu(k,1501) * lu(k,1530)
6518 141174528 : lu(k,1540) = lu(k,1540) - lu(k,1502) * lu(k,1530)
6519 141174528 : lu(k,1541) = lu(k,1541) - lu(k,1503) * lu(k,1530)
6520 141174528 : lu(k,1542) = lu(k,1542) - lu(k,1504) * lu(k,1530)
6521 141174528 : lu(k,1544) = lu(k,1544) - lu(k,1505) * lu(k,1530)
6522 141174528 : lu(k,1545) = lu(k,1545) - lu(k,1506) * lu(k,1530)
6523 141174528 : lu(k,1574) = lu(k,1574) - lu(k,1495) * lu(k,1573)
6524 141174528 : lu(k,1575) = lu(k,1575) - lu(k,1496) * lu(k,1573)
6525 141174528 : lu(k,1576) = lu(k,1576) - lu(k,1497) * lu(k,1573)
6526 141174528 : lu(k,1577) = lu(k,1577) - lu(k,1498) * lu(k,1573)
6527 141174528 : lu(k,1578) = lu(k,1578) - lu(k,1499) * lu(k,1573)
6528 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1500) * lu(k,1573)
6529 141174528 : lu(k,1582) = lu(k,1582) - lu(k,1501) * lu(k,1573)
6530 141174528 : lu(k,1583) = lu(k,1583) - lu(k,1502) * lu(k,1573)
6531 141174528 : lu(k,1584) = lu(k,1584) - lu(k,1503) * lu(k,1573)
6532 141174528 : lu(k,1585) = lu(k,1585) - lu(k,1504) * lu(k,1573)
6533 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1505) * lu(k,1573)
6534 141174528 : lu(k,1589) = lu(k,1589) - lu(k,1506) * lu(k,1573)
6535 141174528 : lu(k,1605) = lu(k,1605) - lu(k,1495) * lu(k,1604)
6536 141174528 : lu(k,1606) = lu(k,1606) - lu(k,1496) * lu(k,1604)
6537 141174528 : lu(k,1607) = lu(k,1607) - lu(k,1497) * lu(k,1604)
6538 141174528 : lu(k,1608) = lu(k,1608) - lu(k,1498) * lu(k,1604)
6539 141174528 : lu(k,1609) = lu(k,1609) - lu(k,1499) * lu(k,1604)
6540 141174528 : lu(k,1610) = lu(k,1610) - lu(k,1500) * lu(k,1604)
6541 141174528 : lu(k,1613) = lu(k,1613) - lu(k,1501) * lu(k,1604)
6542 141174528 : lu(k,1614) = lu(k,1614) - lu(k,1502) * lu(k,1604)
6543 141174528 : lu(k,1615) = lu(k,1615) - lu(k,1503) * lu(k,1604)
6544 141174528 : lu(k,1616) = lu(k,1616) - lu(k,1504) * lu(k,1604)
6545 141174528 : lu(k,1618) = lu(k,1618) - lu(k,1505) * lu(k,1604)
6546 141174528 : lu(k,1620) = lu(k,1620) - lu(k,1506) * lu(k,1604)
6547 141174528 : lu(k,1646) = lu(k,1646) - lu(k,1495) * lu(k,1645)
6548 141174528 : lu(k,1647) = lu(k,1647) - lu(k,1496) * lu(k,1645)
6549 141174528 : lu(k,1648) = - lu(k,1497) * lu(k,1645)
6550 141174528 : lu(k,1649) = lu(k,1649) - lu(k,1498) * lu(k,1645)
6551 141174528 : lu(k,1650) = lu(k,1650) - lu(k,1499) * lu(k,1645)
6552 141174528 : lu(k,1651) = lu(k,1651) - lu(k,1500) * lu(k,1645)
6553 141174528 : lu(k,1654) = lu(k,1654) - lu(k,1501) * lu(k,1645)
6554 141174528 : lu(k,1655) = lu(k,1655) - lu(k,1502) * lu(k,1645)
6555 141174528 : lu(k,1656) = lu(k,1656) - lu(k,1503) * lu(k,1645)
6556 141174528 : lu(k,1657) = lu(k,1657) - lu(k,1504) * lu(k,1645)
6557 141174528 : lu(k,1659) = lu(k,1659) - lu(k,1505) * lu(k,1645)
6558 141174528 : lu(k,1661) = lu(k,1661) - lu(k,1506) * lu(k,1645)
6559 141174528 : lu(k,1818) = lu(k,1818) - lu(k,1495) * lu(k,1817)
6560 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1496) * lu(k,1817)
6561 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1497) * lu(k,1817)
6562 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1498) * lu(k,1817)
6563 141174528 : lu(k,1822) = lu(k,1822) - lu(k,1499) * lu(k,1817)
6564 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1500) * lu(k,1817)
6565 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1501) * lu(k,1817)
6566 141174528 : lu(k,1827) = lu(k,1827) - lu(k,1502) * lu(k,1817)
6567 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1503) * lu(k,1817)
6568 141174528 : lu(k,1829) = lu(k,1829) - lu(k,1504) * lu(k,1817)
6569 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1505) * lu(k,1817)
6570 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1506) * lu(k,1817)
6571 141174528 : lu(k,1842) = lu(k,1842) - lu(k,1495) * lu(k,1841)
6572 141174528 : lu(k,1843) = lu(k,1843) - lu(k,1496) * lu(k,1841)
6573 141174528 : lu(k,1844) = lu(k,1844) - lu(k,1497) * lu(k,1841)
6574 141174528 : lu(k,1845) = lu(k,1845) - lu(k,1498) * lu(k,1841)
6575 141174528 : lu(k,1846) = lu(k,1846) - lu(k,1499) * lu(k,1841)
6576 141174528 : lu(k,1847) = lu(k,1847) - lu(k,1500) * lu(k,1841)
6577 141174528 : lu(k,1850) = - lu(k,1501) * lu(k,1841)
6578 141174528 : lu(k,1851) = lu(k,1851) - lu(k,1502) * lu(k,1841)
6579 141174528 : lu(k,1852) = lu(k,1852) - lu(k,1503) * lu(k,1841)
6580 141174528 : lu(k,1853) = lu(k,1853) - lu(k,1504) * lu(k,1841)
6581 141174528 : lu(k,1855) = lu(k,1855) - lu(k,1505) * lu(k,1841)
6582 141174528 : lu(k,1857) = lu(k,1857) - lu(k,1506) * lu(k,1841)
6583 141174528 : lu(k,1945) = lu(k,1945) - lu(k,1495) * lu(k,1944)
6584 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1496) * lu(k,1944)
6585 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1497) * lu(k,1944)
6586 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1498) * lu(k,1944)
6587 141174528 : lu(k,1949) = lu(k,1949) - lu(k,1499) * lu(k,1944)
6588 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1500) * lu(k,1944)
6589 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1501) * lu(k,1944)
6590 141174528 : lu(k,1954) = lu(k,1954) - lu(k,1502) * lu(k,1944)
6591 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1503) * lu(k,1944)
6592 141174528 : lu(k,1956) = lu(k,1956) - lu(k,1504) * lu(k,1944)
6593 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1505) * lu(k,1944)
6594 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1506) * lu(k,1944)
6595 141174528 : lu(k,1997) = lu(k,1997) - lu(k,1495) * lu(k,1996)
6596 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1496) * lu(k,1996)
6597 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1497) * lu(k,1996)
6598 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1498) * lu(k,1996)
6599 141174528 : lu(k,2001) = lu(k,2001) - lu(k,1499) * lu(k,1996)
6600 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1500) * lu(k,1996)
6601 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1501) * lu(k,1996)
6602 141174528 : lu(k,2006) = lu(k,2006) - lu(k,1502) * lu(k,1996)
6603 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1503) * lu(k,1996)
6604 141174528 : lu(k,2008) = lu(k,2008) - lu(k,1504) * lu(k,1996)
6605 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1505) * lu(k,1996)
6606 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1506) * lu(k,1996)
6607 141174528 : lu(k,2020) = lu(k,2020) - lu(k,1495) * lu(k,2019)
6608 141174528 : lu(k,2021) = lu(k,2021) - lu(k,1496) * lu(k,2019)
6609 141174528 : lu(k,2022) = lu(k,2022) - lu(k,1497) * lu(k,2019)
6610 141174528 : lu(k,2023) = lu(k,2023) - lu(k,1498) * lu(k,2019)
6611 141174528 : lu(k,2024) = lu(k,2024) - lu(k,1499) * lu(k,2019)
6612 141174528 : lu(k,2025) = lu(k,2025) - lu(k,1500) * lu(k,2019)
6613 141174528 : lu(k,2028) = - lu(k,1501) * lu(k,2019)
6614 141174528 : lu(k,2029) = lu(k,2029) - lu(k,1502) * lu(k,2019)
6615 141174528 : lu(k,2030) = lu(k,2030) - lu(k,1503) * lu(k,2019)
6616 141174528 : lu(k,2031) = lu(k,2031) - lu(k,1504) * lu(k,2019)
6617 141174528 : lu(k,2033) = lu(k,2033) - lu(k,1505) * lu(k,2019)
6618 141174528 : lu(k,2035) = lu(k,2035) - lu(k,1506) * lu(k,2019)
6619 141174528 : lu(k,2079) = lu(k,2079) - lu(k,1495) * lu(k,2078)
6620 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1496) * lu(k,2078)
6621 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1497) * lu(k,2078)
6622 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1498) * lu(k,2078)
6623 141174528 : lu(k,2083) = lu(k,2083) - lu(k,1499) * lu(k,2078)
6624 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1500) * lu(k,2078)
6625 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1501) * lu(k,2078)
6626 141174528 : lu(k,2088) = lu(k,2088) - lu(k,1502) * lu(k,2078)
6627 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1503) * lu(k,2078)
6628 141174528 : lu(k,2090) = lu(k,2090) - lu(k,1504) * lu(k,2078)
6629 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1505) * lu(k,2078)
6630 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1506) * lu(k,2078)
6631 141174528 : lu(k,2118) = lu(k,2118) - lu(k,1495) * lu(k,2117)
6632 141174528 : lu(k,2119) = lu(k,2119) - lu(k,1496) * lu(k,2117)
6633 141174528 : lu(k,2120) = lu(k,2120) - lu(k,1497) * lu(k,2117)
6634 141174528 : lu(k,2121) = lu(k,2121) - lu(k,1498) * lu(k,2117)
6635 141174528 : lu(k,2122) = lu(k,2122) - lu(k,1499) * lu(k,2117)
6636 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1500) * lu(k,2117)
6637 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1501) * lu(k,2117)
6638 141174528 : lu(k,2127) = lu(k,2127) - lu(k,1502) * lu(k,2117)
6639 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1503) * lu(k,2117)
6640 141174528 : lu(k,2129) = lu(k,2129) - lu(k,1504) * lu(k,2117)
6641 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1505) * lu(k,2117)
6642 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1506) * lu(k,2117)
6643 141174528 : lu(k,2180) = lu(k,2180) - lu(k,1495) * lu(k,2179)
6644 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1496) * lu(k,2179)
6645 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1497) * lu(k,2179)
6646 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1498) * lu(k,2179)
6647 141174528 : lu(k,2184) = lu(k,2184) - lu(k,1499) * lu(k,2179)
6648 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1500) * lu(k,2179)
6649 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1501) * lu(k,2179)
6650 141174528 : lu(k,2189) = lu(k,2189) - lu(k,1502) * lu(k,2179)
6651 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1503) * lu(k,2179)
6652 141174528 : lu(k,2191) = lu(k,2191) - lu(k,1504) * lu(k,2179)
6653 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1505) * lu(k,2179)
6654 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1506) * lu(k,2179)
6655 141174528 : lu(k,2298) = lu(k,2298) - lu(k,1495) * lu(k,2297)
6656 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1496) * lu(k,2297)
6657 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1497) * lu(k,2297)
6658 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1498) * lu(k,2297)
6659 141174528 : lu(k,2302) = lu(k,2302) - lu(k,1499) * lu(k,2297)
6660 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1500) * lu(k,2297)
6661 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1501) * lu(k,2297)
6662 141174528 : lu(k,2307) = lu(k,2307) - lu(k,1502) * lu(k,2297)
6663 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1503) * lu(k,2297)
6664 141174528 : lu(k,2309) = lu(k,2309) - lu(k,1504) * lu(k,2297)
6665 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1505) * lu(k,2297)
6666 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1506) * lu(k,2297)
6667 141174528 : lu(k,2324) = lu(k,2324) - lu(k,1495) * lu(k,2323)
6668 141174528 : lu(k,2325) = lu(k,2325) - lu(k,1496) * lu(k,2323)
6669 141174528 : lu(k,2326) = lu(k,2326) - lu(k,1497) * lu(k,2323)
6670 141174528 : lu(k,2327) = lu(k,2327) - lu(k,1498) * lu(k,2323)
6671 141174528 : lu(k,2328) = lu(k,2328) - lu(k,1499) * lu(k,2323)
6672 141174528 : lu(k,2329) = lu(k,2329) - lu(k,1500) * lu(k,2323)
6673 141174528 : lu(k,2332) = lu(k,2332) - lu(k,1501) * lu(k,2323)
6674 141174528 : lu(k,2333) = lu(k,2333) - lu(k,1502) * lu(k,2323)
6675 141174528 : lu(k,2334) = lu(k,2334) - lu(k,1503) * lu(k,2323)
6676 141174528 : lu(k,2335) = lu(k,2335) - lu(k,1504) * lu(k,2323)
6677 141174528 : lu(k,2337) = lu(k,2337) - lu(k,1505) * lu(k,2323)
6678 141174528 : lu(k,2339) = lu(k,2339) - lu(k,1506) * lu(k,2323)
6679 141174528 : lu(k,2350) = lu(k,2350) - lu(k,1495) * lu(k,2349)
6680 141174528 : lu(k,2351) = lu(k,2351) - lu(k,1496) * lu(k,2349)
6681 141174528 : lu(k,2352) = lu(k,2352) - lu(k,1497) * lu(k,2349)
6682 141174528 : lu(k,2353) = lu(k,2353) - lu(k,1498) * lu(k,2349)
6683 141174528 : lu(k,2354) = lu(k,2354) - lu(k,1499) * lu(k,2349)
6684 141174528 : lu(k,2355) = lu(k,2355) - lu(k,1500) * lu(k,2349)
6685 141174528 : lu(k,2358) = lu(k,2358) - lu(k,1501) * lu(k,2349)
6686 141174528 : lu(k,2359) = lu(k,2359) - lu(k,1502) * lu(k,2349)
6687 141174528 : lu(k,2360) = lu(k,2360) - lu(k,1503) * lu(k,2349)
6688 141174528 : lu(k,2361) = lu(k,2361) - lu(k,1504) * lu(k,2349)
6689 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1505) * lu(k,2349)
6690 145586232 : lu(k,2365) = lu(k,2365) - lu(k,1506) * lu(k,2349)
6691 : end do
6692 4411704 : end subroutine lu_fac28
6693 4411704 : subroutine lu_fac29( avec_len, lu )
6694 : use chem_mods, only : nzcnt
6695 : use shr_kind_mod, only : r8 => shr_kind_r8
6696 : implicit none
6697 : !-----------------------------------------------------------------------
6698 : ! ... dummy args
6699 : !-----------------------------------------------------------------------
6700 : integer, intent(in) :: avec_len
6701 : real(r8), intent(inout) :: lu(veclen,nzcnt)
6702 : !-----------------------------------------------------------------------
6703 : ! ... local variables
6704 : !-----------------------------------------------------------------------
6705 : integer :: k
6706 145586232 : do k = 1,avec_len
6707 141174528 : lu(k,1510) = 1._r8 / lu(k,1510)
6708 141174528 : lu(k,1511) = lu(k,1511) * lu(k,1510)
6709 141174528 : lu(k,1512) = lu(k,1512) * lu(k,1510)
6710 141174528 : lu(k,1513) = lu(k,1513) * lu(k,1510)
6711 141174528 : lu(k,1514) = lu(k,1514) * lu(k,1510)
6712 141174528 : lu(k,1515) = lu(k,1515) * lu(k,1510)
6713 141174528 : lu(k,1516) = lu(k,1516) * lu(k,1510)
6714 141174528 : lu(k,1517) = lu(k,1517) * lu(k,1510)
6715 141174528 : lu(k,1518) = lu(k,1518) * lu(k,1510)
6716 141174528 : lu(k,1519) = lu(k,1519) * lu(k,1510)
6717 141174528 : lu(k,1520) = lu(k,1520) * lu(k,1510)
6718 141174528 : lu(k,1521) = lu(k,1521) * lu(k,1510)
6719 141174528 : lu(k,1522) = lu(k,1522) * lu(k,1510)
6720 141174528 : lu(k,1532) = lu(k,1532) - lu(k,1511) * lu(k,1531)
6721 141174528 : lu(k,1533) = lu(k,1533) - lu(k,1512) * lu(k,1531)
6722 141174528 : lu(k,1534) = lu(k,1534) - lu(k,1513) * lu(k,1531)
6723 141174528 : lu(k,1535) = lu(k,1535) - lu(k,1514) * lu(k,1531)
6724 141174528 : lu(k,1536) = lu(k,1536) - lu(k,1515) * lu(k,1531)
6725 141174528 : lu(k,1539) = lu(k,1539) - lu(k,1516) * lu(k,1531)
6726 141174528 : lu(k,1540) = lu(k,1540) - lu(k,1517) * lu(k,1531)
6727 141174528 : lu(k,1541) = lu(k,1541) - lu(k,1518) * lu(k,1531)
6728 141174528 : lu(k,1542) = lu(k,1542) - lu(k,1519) * lu(k,1531)
6729 141174528 : lu(k,1543) = lu(k,1543) - lu(k,1520) * lu(k,1531)
6730 141174528 : lu(k,1544) = lu(k,1544) - lu(k,1521) * lu(k,1531)
6731 141174528 : lu(k,1545) = lu(k,1545) - lu(k,1522) * lu(k,1531)
6732 141174528 : lu(k,1575) = lu(k,1575) - lu(k,1511) * lu(k,1574)
6733 141174528 : lu(k,1576) = lu(k,1576) - lu(k,1512) * lu(k,1574)
6734 141174528 : lu(k,1577) = lu(k,1577) - lu(k,1513) * lu(k,1574)
6735 141174528 : lu(k,1578) = lu(k,1578) - lu(k,1514) * lu(k,1574)
6736 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1515) * lu(k,1574)
6737 141174528 : lu(k,1582) = lu(k,1582) - lu(k,1516) * lu(k,1574)
6738 141174528 : lu(k,1583) = lu(k,1583) - lu(k,1517) * lu(k,1574)
6739 141174528 : lu(k,1584) = lu(k,1584) - lu(k,1518) * lu(k,1574)
6740 141174528 : lu(k,1585) = lu(k,1585) - lu(k,1519) * lu(k,1574)
6741 141174528 : lu(k,1586) = lu(k,1586) - lu(k,1520) * lu(k,1574)
6742 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1521) * lu(k,1574)
6743 141174528 : lu(k,1589) = lu(k,1589) - lu(k,1522) * lu(k,1574)
6744 141174528 : lu(k,1606) = lu(k,1606) - lu(k,1511) * lu(k,1605)
6745 141174528 : lu(k,1607) = lu(k,1607) - lu(k,1512) * lu(k,1605)
6746 141174528 : lu(k,1608) = lu(k,1608) - lu(k,1513) * lu(k,1605)
6747 141174528 : lu(k,1609) = lu(k,1609) - lu(k,1514) * lu(k,1605)
6748 141174528 : lu(k,1610) = lu(k,1610) - lu(k,1515) * lu(k,1605)
6749 141174528 : lu(k,1613) = lu(k,1613) - lu(k,1516) * lu(k,1605)
6750 141174528 : lu(k,1614) = lu(k,1614) - lu(k,1517) * lu(k,1605)
6751 141174528 : lu(k,1615) = lu(k,1615) - lu(k,1518) * lu(k,1605)
6752 141174528 : lu(k,1616) = lu(k,1616) - lu(k,1519) * lu(k,1605)
6753 141174528 : lu(k,1617) = lu(k,1617) - lu(k,1520) * lu(k,1605)
6754 141174528 : lu(k,1618) = lu(k,1618) - lu(k,1521) * lu(k,1605)
6755 141174528 : lu(k,1620) = lu(k,1620) - lu(k,1522) * lu(k,1605)
6756 141174528 : lu(k,1647) = lu(k,1647) - lu(k,1511) * lu(k,1646)
6757 141174528 : lu(k,1648) = lu(k,1648) - lu(k,1512) * lu(k,1646)
6758 141174528 : lu(k,1649) = lu(k,1649) - lu(k,1513) * lu(k,1646)
6759 141174528 : lu(k,1650) = lu(k,1650) - lu(k,1514) * lu(k,1646)
6760 141174528 : lu(k,1651) = lu(k,1651) - lu(k,1515) * lu(k,1646)
6761 141174528 : lu(k,1654) = lu(k,1654) - lu(k,1516) * lu(k,1646)
6762 141174528 : lu(k,1655) = lu(k,1655) - lu(k,1517) * lu(k,1646)
6763 141174528 : lu(k,1656) = lu(k,1656) - lu(k,1518) * lu(k,1646)
6764 141174528 : lu(k,1657) = lu(k,1657) - lu(k,1519) * lu(k,1646)
6765 141174528 : lu(k,1658) = lu(k,1658) - lu(k,1520) * lu(k,1646)
6766 141174528 : lu(k,1659) = lu(k,1659) - lu(k,1521) * lu(k,1646)
6767 141174528 : lu(k,1661) = lu(k,1661) - lu(k,1522) * lu(k,1646)
6768 141174528 : lu(k,1819) = lu(k,1819) - lu(k,1511) * lu(k,1818)
6769 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1512) * lu(k,1818)
6770 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1513) * lu(k,1818)
6771 141174528 : lu(k,1822) = lu(k,1822) - lu(k,1514) * lu(k,1818)
6772 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1515) * lu(k,1818)
6773 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1516) * lu(k,1818)
6774 141174528 : lu(k,1827) = lu(k,1827) - lu(k,1517) * lu(k,1818)
6775 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1518) * lu(k,1818)
6776 141174528 : lu(k,1829) = lu(k,1829) - lu(k,1519) * lu(k,1818)
6777 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1520) * lu(k,1818)
6778 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1521) * lu(k,1818)
6779 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1522) * lu(k,1818)
6780 141174528 : lu(k,1843) = lu(k,1843) - lu(k,1511) * lu(k,1842)
6781 141174528 : lu(k,1844) = lu(k,1844) - lu(k,1512) * lu(k,1842)
6782 141174528 : lu(k,1845) = lu(k,1845) - lu(k,1513) * lu(k,1842)
6783 141174528 : lu(k,1846) = lu(k,1846) - lu(k,1514) * lu(k,1842)
6784 141174528 : lu(k,1847) = lu(k,1847) - lu(k,1515) * lu(k,1842)
6785 141174528 : lu(k,1850) = lu(k,1850) - lu(k,1516) * lu(k,1842)
6786 141174528 : lu(k,1851) = lu(k,1851) - lu(k,1517) * lu(k,1842)
6787 141174528 : lu(k,1852) = lu(k,1852) - lu(k,1518) * lu(k,1842)
6788 141174528 : lu(k,1853) = lu(k,1853) - lu(k,1519) * lu(k,1842)
6789 141174528 : lu(k,1854) = lu(k,1854) - lu(k,1520) * lu(k,1842)
6790 141174528 : lu(k,1855) = lu(k,1855) - lu(k,1521) * lu(k,1842)
6791 141174528 : lu(k,1857) = lu(k,1857) - lu(k,1522) * lu(k,1842)
6792 141174528 : lu(k,1946) = lu(k,1946) - lu(k,1511) * lu(k,1945)
6793 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1512) * lu(k,1945)
6794 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1513) * lu(k,1945)
6795 141174528 : lu(k,1949) = lu(k,1949) - lu(k,1514) * lu(k,1945)
6796 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1515) * lu(k,1945)
6797 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1516) * lu(k,1945)
6798 141174528 : lu(k,1954) = lu(k,1954) - lu(k,1517) * lu(k,1945)
6799 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1518) * lu(k,1945)
6800 141174528 : lu(k,1956) = lu(k,1956) - lu(k,1519) * lu(k,1945)
6801 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1520) * lu(k,1945)
6802 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1521) * lu(k,1945)
6803 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1522) * lu(k,1945)
6804 141174528 : lu(k,1998) = lu(k,1998) - lu(k,1511) * lu(k,1997)
6805 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1512) * lu(k,1997)
6806 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1513) * lu(k,1997)
6807 141174528 : lu(k,2001) = lu(k,2001) - lu(k,1514) * lu(k,1997)
6808 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1515) * lu(k,1997)
6809 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1516) * lu(k,1997)
6810 141174528 : lu(k,2006) = lu(k,2006) - lu(k,1517) * lu(k,1997)
6811 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1518) * lu(k,1997)
6812 141174528 : lu(k,2008) = lu(k,2008) - lu(k,1519) * lu(k,1997)
6813 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1520) * lu(k,1997)
6814 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1521) * lu(k,1997)
6815 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1522) * lu(k,1997)
6816 141174528 : lu(k,2021) = lu(k,2021) - lu(k,1511) * lu(k,2020)
6817 141174528 : lu(k,2022) = lu(k,2022) - lu(k,1512) * lu(k,2020)
6818 141174528 : lu(k,2023) = lu(k,2023) - lu(k,1513) * lu(k,2020)
6819 141174528 : lu(k,2024) = lu(k,2024) - lu(k,1514) * lu(k,2020)
6820 141174528 : lu(k,2025) = lu(k,2025) - lu(k,1515) * lu(k,2020)
6821 141174528 : lu(k,2028) = lu(k,2028) - lu(k,1516) * lu(k,2020)
6822 141174528 : lu(k,2029) = lu(k,2029) - lu(k,1517) * lu(k,2020)
6823 141174528 : lu(k,2030) = lu(k,2030) - lu(k,1518) * lu(k,2020)
6824 141174528 : lu(k,2031) = lu(k,2031) - lu(k,1519) * lu(k,2020)
6825 141174528 : lu(k,2032) = lu(k,2032) - lu(k,1520) * lu(k,2020)
6826 141174528 : lu(k,2033) = lu(k,2033) - lu(k,1521) * lu(k,2020)
6827 141174528 : lu(k,2035) = lu(k,2035) - lu(k,1522) * lu(k,2020)
6828 141174528 : lu(k,2080) = lu(k,2080) - lu(k,1511) * lu(k,2079)
6829 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1512) * lu(k,2079)
6830 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1513) * lu(k,2079)
6831 141174528 : lu(k,2083) = lu(k,2083) - lu(k,1514) * lu(k,2079)
6832 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1515) * lu(k,2079)
6833 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1516) * lu(k,2079)
6834 141174528 : lu(k,2088) = lu(k,2088) - lu(k,1517) * lu(k,2079)
6835 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1518) * lu(k,2079)
6836 141174528 : lu(k,2090) = lu(k,2090) - lu(k,1519) * lu(k,2079)
6837 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1520) * lu(k,2079)
6838 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1521) * lu(k,2079)
6839 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1522) * lu(k,2079)
6840 141174528 : lu(k,2119) = lu(k,2119) - lu(k,1511) * lu(k,2118)
6841 141174528 : lu(k,2120) = lu(k,2120) - lu(k,1512) * lu(k,2118)
6842 141174528 : lu(k,2121) = lu(k,2121) - lu(k,1513) * lu(k,2118)
6843 141174528 : lu(k,2122) = lu(k,2122) - lu(k,1514) * lu(k,2118)
6844 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1515) * lu(k,2118)
6845 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1516) * lu(k,2118)
6846 141174528 : lu(k,2127) = lu(k,2127) - lu(k,1517) * lu(k,2118)
6847 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1518) * lu(k,2118)
6848 141174528 : lu(k,2129) = lu(k,2129) - lu(k,1519) * lu(k,2118)
6849 141174528 : lu(k,2130) = lu(k,2130) - lu(k,1520) * lu(k,2118)
6850 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1521) * lu(k,2118)
6851 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1522) * lu(k,2118)
6852 141174528 : lu(k,2181) = lu(k,2181) - lu(k,1511) * lu(k,2180)
6853 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1512) * lu(k,2180)
6854 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1513) * lu(k,2180)
6855 141174528 : lu(k,2184) = lu(k,2184) - lu(k,1514) * lu(k,2180)
6856 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1515) * lu(k,2180)
6857 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1516) * lu(k,2180)
6858 141174528 : lu(k,2189) = lu(k,2189) - lu(k,1517) * lu(k,2180)
6859 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1518) * lu(k,2180)
6860 141174528 : lu(k,2191) = lu(k,2191) - lu(k,1519) * lu(k,2180)
6861 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1520) * lu(k,2180)
6862 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1521) * lu(k,2180)
6863 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1522) * lu(k,2180)
6864 141174528 : lu(k,2299) = lu(k,2299) - lu(k,1511) * lu(k,2298)
6865 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1512) * lu(k,2298)
6866 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1513) * lu(k,2298)
6867 141174528 : lu(k,2302) = lu(k,2302) - lu(k,1514) * lu(k,2298)
6868 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1515) * lu(k,2298)
6869 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1516) * lu(k,2298)
6870 141174528 : lu(k,2307) = lu(k,2307) - lu(k,1517) * lu(k,2298)
6871 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1518) * lu(k,2298)
6872 141174528 : lu(k,2309) = lu(k,2309) - lu(k,1519) * lu(k,2298)
6873 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1520) * lu(k,2298)
6874 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1521) * lu(k,2298)
6875 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1522) * lu(k,2298)
6876 141174528 : lu(k,2325) = lu(k,2325) - lu(k,1511) * lu(k,2324)
6877 141174528 : lu(k,2326) = lu(k,2326) - lu(k,1512) * lu(k,2324)
6878 141174528 : lu(k,2327) = lu(k,2327) - lu(k,1513) * lu(k,2324)
6879 141174528 : lu(k,2328) = lu(k,2328) - lu(k,1514) * lu(k,2324)
6880 141174528 : lu(k,2329) = lu(k,2329) - lu(k,1515) * lu(k,2324)
6881 141174528 : lu(k,2332) = lu(k,2332) - lu(k,1516) * lu(k,2324)
6882 141174528 : lu(k,2333) = lu(k,2333) - lu(k,1517) * lu(k,2324)
6883 141174528 : lu(k,2334) = lu(k,2334) - lu(k,1518) * lu(k,2324)
6884 141174528 : lu(k,2335) = lu(k,2335) - lu(k,1519) * lu(k,2324)
6885 141174528 : lu(k,2336) = lu(k,2336) - lu(k,1520) * lu(k,2324)
6886 141174528 : lu(k,2337) = lu(k,2337) - lu(k,1521) * lu(k,2324)
6887 141174528 : lu(k,2339) = lu(k,2339) - lu(k,1522) * lu(k,2324)
6888 141174528 : lu(k,2351) = lu(k,2351) - lu(k,1511) * lu(k,2350)
6889 141174528 : lu(k,2352) = lu(k,2352) - lu(k,1512) * lu(k,2350)
6890 141174528 : lu(k,2353) = lu(k,2353) - lu(k,1513) * lu(k,2350)
6891 141174528 : lu(k,2354) = lu(k,2354) - lu(k,1514) * lu(k,2350)
6892 141174528 : lu(k,2355) = lu(k,2355) - lu(k,1515) * lu(k,2350)
6893 141174528 : lu(k,2358) = lu(k,2358) - lu(k,1516) * lu(k,2350)
6894 141174528 : lu(k,2359) = lu(k,2359) - lu(k,1517) * lu(k,2350)
6895 141174528 : lu(k,2360) = lu(k,2360) - lu(k,1518) * lu(k,2350)
6896 141174528 : lu(k,2361) = lu(k,2361) - lu(k,1519) * lu(k,2350)
6897 141174528 : lu(k,2362) = lu(k,2362) - lu(k,1520) * lu(k,2350)
6898 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1521) * lu(k,2350)
6899 141174528 : lu(k,2365) = lu(k,2365) - lu(k,1522) * lu(k,2350)
6900 141174528 : lu(k,1532) = 1._r8 / lu(k,1532)
6901 141174528 : lu(k,1533) = lu(k,1533) * lu(k,1532)
6902 141174528 : lu(k,1534) = lu(k,1534) * lu(k,1532)
6903 141174528 : lu(k,1535) = lu(k,1535) * lu(k,1532)
6904 141174528 : lu(k,1536) = lu(k,1536) * lu(k,1532)
6905 141174528 : lu(k,1537) = lu(k,1537) * lu(k,1532)
6906 141174528 : lu(k,1538) = lu(k,1538) * lu(k,1532)
6907 141174528 : lu(k,1539) = lu(k,1539) * lu(k,1532)
6908 141174528 : lu(k,1540) = lu(k,1540) * lu(k,1532)
6909 141174528 : lu(k,1541) = lu(k,1541) * lu(k,1532)
6910 141174528 : lu(k,1542) = lu(k,1542) * lu(k,1532)
6911 141174528 : lu(k,1543) = lu(k,1543) * lu(k,1532)
6912 141174528 : lu(k,1544) = lu(k,1544) * lu(k,1532)
6913 141174528 : lu(k,1545) = lu(k,1545) * lu(k,1532)
6914 141174528 : lu(k,1576) = lu(k,1576) - lu(k,1533) * lu(k,1575)
6915 141174528 : lu(k,1577) = lu(k,1577) - lu(k,1534) * lu(k,1575)
6916 141174528 : lu(k,1578) = lu(k,1578) - lu(k,1535) * lu(k,1575)
6917 141174528 : lu(k,1579) = lu(k,1579) - lu(k,1536) * lu(k,1575)
6918 141174528 : lu(k,1580) = lu(k,1580) - lu(k,1537) * lu(k,1575)
6919 141174528 : lu(k,1581) = lu(k,1581) - lu(k,1538) * lu(k,1575)
6920 141174528 : lu(k,1582) = lu(k,1582) - lu(k,1539) * lu(k,1575)
6921 141174528 : lu(k,1583) = lu(k,1583) - lu(k,1540) * lu(k,1575)
6922 141174528 : lu(k,1584) = lu(k,1584) - lu(k,1541) * lu(k,1575)
6923 141174528 : lu(k,1585) = lu(k,1585) - lu(k,1542) * lu(k,1575)
6924 141174528 : lu(k,1586) = lu(k,1586) - lu(k,1543) * lu(k,1575)
6925 141174528 : lu(k,1587) = lu(k,1587) - lu(k,1544) * lu(k,1575)
6926 141174528 : lu(k,1589) = lu(k,1589) - lu(k,1545) * lu(k,1575)
6927 141174528 : lu(k,1607) = lu(k,1607) - lu(k,1533) * lu(k,1606)
6928 141174528 : lu(k,1608) = lu(k,1608) - lu(k,1534) * lu(k,1606)
6929 141174528 : lu(k,1609) = lu(k,1609) - lu(k,1535) * lu(k,1606)
6930 141174528 : lu(k,1610) = lu(k,1610) - lu(k,1536) * lu(k,1606)
6931 141174528 : lu(k,1611) = lu(k,1611) - lu(k,1537) * lu(k,1606)
6932 141174528 : lu(k,1612) = lu(k,1612) - lu(k,1538) * lu(k,1606)
6933 141174528 : lu(k,1613) = lu(k,1613) - lu(k,1539) * lu(k,1606)
6934 141174528 : lu(k,1614) = lu(k,1614) - lu(k,1540) * lu(k,1606)
6935 141174528 : lu(k,1615) = lu(k,1615) - lu(k,1541) * lu(k,1606)
6936 141174528 : lu(k,1616) = lu(k,1616) - lu(k,1542) * lu(k,1606)
6937 141174528 : lu(k,1617) = lu(k,1617) - lu(k,1543) * lu(k,1606)
6938 141174528 : lu(k,1618) = lu(k,1618) - lu(k,1544) * lu(k,1606)
6939 141174528 : lu(k,1620) = lu(k,1620) - lu(k,1545) * lu(k,1606)
6940 141174528 : lu(k,1648) = lu(k,1648) - lu(k,1533) * lu(k,1647)
6941 141174528 : lu(k,1649) = lu(k,1649) - lu(k,1534) * lu(k,1647)
6942 141174528 : lu(k,1650) = lu(k,1650) - lu(k,1535) * lu(k,1647)
6943 141174528 : lu(k,1651) = lu(k,1651) - lu(k,1536) * lu(k,1647)
6944 141174528 : lu(k,1652) = lu(k,1652) - lu(k,1537) * lu(k,1647)
6945 141174528 : lu(k,1653) = lu(k,1653) - lu(k,1538) * lu(k,1647)
6946 141174528 : lu(k,1654) = lu(k,1654) - lu(k,1539) * lu(k,1647)
6947 141174528 : lu(k,1655) = lu(k,1655) - lu(k,1540) * lu(k,1647)
6948 141174528 : lu(k,1656) = lu(k,1656) - lu(k,1541) * lu(k,1647)
6949 141174528 : lu(k,1657) = lu(k,1657) - lu(k,1542) * lu(k,1647)
6950 141174528 : lu(k,1658) = lu(k,1658) - lu(k,1543) * lu(k,1647)
6951 141174528 : lu(k,1659) = lu(k,1659) - lu(k,1544) * lu(k,1647)
6952 141174528 : lu(k,1661) = lu(k,1661) - lu(k,1545) * lu(k,1647)
6953 141174528 : lu(k,1820) = lu(k,1820) - lu(k,1533) * lu(k,1819)
6954 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1534) * lu(k,1819)
6955 141174528 : lu(k,1822) = lu(k,1822) - lu(k,1535) * lu(k,1819)
6956 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1536) * lu(k,1819)
6957 141174528 : lu(k,1824) = lu(k,1824) - lu(k,1537) * lu(k,1819)
6958 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1538) * lu(k,1819)
6959 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1539) * lu(k,1819)
6960 141174528 : lu(k,1827) = lu(k,1827) - lu(k,1540) * lu(k,1819)
6961 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1541) * lu(k,1819)
6962 141174528 : lu(k,1829) = lu(k,1829) - lu(k,1542) * lu(k,1819)
6963 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1543) * lu(k,1819)
6964 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1544) * lu(k,1819)
6965 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1545) * lu(k,1819)
6966 141174528 : lu(k,1844) = lu(k,1844) - lu(k,1533) * lu(k,1843)
6967 141174528 : lu(k,1845) = lu(k,1845) - lu(k,1534) * lu(k,1843)
6968 141174528 : lu(k,1846) = lu(k,1846) - lu(k,1535) * lu(k,1843)
6969 141174528 : lu(k,1847) = lu(k,1847) - lu(k,1536) * lu(k,1843)
6970 141174528 : lu(k,1848) = lu(k,1848) - lu(k,1537) * lu(k,1843)
6971 141174528 : lu(k,1849) = lu(k,1849) - lu(k,1538) * lu(k,1843)
6972 141174528 : lu(k,1850) = lu(k,1850) - lu(k,1539) * lu(k,1843)
6973 141174528 : lu(k,1851) = lu(k,1851) - lu(k,1540) * lu(k,1843)
6974 141174528 : lu(k,1852) = lu(k,1852) - lu(k,1541) * lu(k,1843)
6975 141174528 : lu(k,1853) = lu(k,1853) - lu(k,1542) * lu(k,1843)
6976 141174528 : lu(k,1854) = lu(k,1854) - lu(k,1543) * lu(k,1843)
6977 141174528 : lu(k,1855) = lu(k,1855) - lu(k,1544) * lu(k,1843)
6978 141174528 : lu(k,1857) = lu(k,1857) - lu(k,1545) * lu(k,1843)
6979 141174528 : lu(k,1947) = lu(k,1947) - lu(k,1533) * lu(k,1946)
6980 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1534) * lu(k,1946)
6981 141174528 : lu(k,1949) = lu(k,1949) - lu(k,1535) * lu(k,1946)
6982 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1536) * lu(k,1946)
6983 141174528 : lu(k,1951) = lu(k,1951) - lu(k,1537) * lu(k,1946)
6984 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1538) * lu(k,1946)
6985 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1539) * lu(k,1946)
6986 141174528 : lu(k,1954) = lu(k,1954) - lu(k,1540) * lu(k,1946)
6987 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1541) * lu(k,1946)
6988 141174528 : lu(k,1956) = lu(k,1956) - lu(k,1542) * lu(k,1946)
6989 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1543) * lu(k,1946)
6990 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1544) * lu(k,1946)
6991 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1545) * lu(k,1946)
6992 141174528 : lu(k,1999) = lu(k,1999) - lu(k,1533) * lu(k,1998)
6993 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1534) * lu(k,1998)
6994 141174528 : lu(k,2001) = lu(k,2001) - lu(k,1535) * lu(k,1998)
6995 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1536) * lu(k,1998)
6996 141174528 : lu(k,2003) = - lu(k,1537) * lu(k,1998)
6997 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1538) * lu(k,1998)
6998 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1539) * lu(k,1998)
6999 141174528 : lu(k,2006) = lu(k,2006) - lu(k,1540) * lu(k,1998)
7000 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1541) * lu(k,1998)
7001 141174528 : lu(k,2008) = lu(k,2008) - lu(k,1542) * lu(k,1998)
7002 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1543) * lu(k,1998)
7003 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1544) * lu(k,1998)
7004 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1545) * lu(k,1998)
7005 141174528 : lu(k,2022) = lu(k,2022) - lu(k,1533) * lu(k,2021)
7006 141174528 : lu(k,2023) = lu(k,2023) - lu(k,1534) * lu(k,2021)
7007 141174528 : lu(k,2024) = lu(k,2024) - lu(k,1535) * lu(k,2021)
7008 141174528 : lu(k,2025) = lu(k,2025) - lu(k,1536) * lu(k,2021)
7009 141174528 : lu(k,2026) = lu(k,2026) - lu(k,1537) * lu(k,2021)
7010 141174528 : lu(k,2027) = - lu(k,1538) * lu(k,2021)
7011 141174528 : lu(k,2028) = lu(k,2028) - lu(k,1539) * lu(k,2021)
7012 141174528 : lu(k,2029) = lu(k,2029) - lu(k,1540) * lu(k,2021)
7013 141174528 : lu(k,2030) = lu(k,2030) - lu(k,1541) * lu(k,2021)
7014 141174528 : lu(k,2031) = lu(k,2031) - lu(k,1542) * lu(k,2021)
7015 141174528 : lu(k,2032) = lu(k,2032) - lu(k,1543) * lu(k,2021)
7016 141174528 : lu(k,2033) = lu(k,2033) - lu(k,1544) * lu(k,2021)
7017 141174528 : lu(k,2035) = lu(k,2035) - lu(k,1545) * lu(k,2021)
7018 141174528 : lu(k,2081) = lu(k,2081) - lu(k,1533) * lu(k,2080)
7019 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1534) * lu(k,2080)
7020 141174528 : lu(k,2083) = lu(k,2083) - lu(k,1535) * lu(k,2080)
7021 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1536) * lu(k,2080)
7022 141174528 : lu(k,2085) = lu(k,2085) - lu(k,1537) * lu(k,2080)
7023 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1538) * lu(k,2080)
7024 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1539) * lu(k,2080)
7025 141174528 : lu(k,2088) = lu(k,2088) - lu(k,1540) * lu(k,2080)
7026 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1541) * lu(k,2080)
7027 141174528 : lu(k,2090) = lu(k,2090) - lu(k,1542) * lu(k,2080)
7028 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1543) * lu(k,2080)
7029 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1544) * lu(k,2080)
7030 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1545) * lu(k,2080)
7031 141174528 : lu(k,2120) = lu(k,2120) - lu(k,1533) * lu(k,2119)
7032 141174528 : lu(k,2121) = lu(k,2121) - lu(k,1534) * lu(k,2119)
7033 141174528 : lu(k,2122) = lu(k,2122) - lu(k,1535) * lu(k,2119)
7034 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1536) * lu(k,2119)
7035 141174528 : lu(k,2124) = lu(k,2124) - lu(k,1537) * lu(k,2119)
7036 141174528 : lu(k,2125) = lu(k,2125) - lu(k,1538) * lu(k,2119)
7037 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1539) * lu(k,2119)
7038 141174528 : lu(k,2127) = lu(k,2127) - lu(k,1540) * lu(k,2119)
7039 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1541) * lu(k,2119)
7040 141174528 : lu(k,2129) = lu(k,2129) - lu(k,1542) * lu(k,2119)
7041 141174528 : lu(k,2130) = lu(k,2130) - lu(k,1543) * lu(k,2119)
7042 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1544) * lu(k,2119)
7043 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1545) * lu(k,2119)
7044 141174528 : lu(k,2182) = lu(k,2182) - lu(k,1533) * lu(k,2181)
7045 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1534) * lu(k,2181)
7046 141174528 : lu(k,2184) = lu(k,2184) - lu(k,1535) * lu(k,2181)
7047 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1536) * lu(k,2181)
7048 141174528 : lu(k,2186) = lu(k,2186) - lu(k,1537) * lu(k,2181)
7049 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1538) * lu(k,2181)
7050 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1539) * lu(k,2181)
7051 141174528 : lu(k,2189) = lu(k,2189) - lu(k,1540) * lu(k,2181)
7052 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1541) * lu(k,2181)
7053 141174528 : lu(k,2191) = lu(k,2191) - lu(k,1542) * lu(k,2181)
7054 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1543) * lu(k,2181)
7055 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1544) * lu(k,2181)
7056 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1545) * lu(k,2181)
7057 141174528 : lu(k,2300) = lu(k,2300) - lu(k,1533) * lu(k,2299)
7058 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1534) * lu(k,2299)
7059 141174528 : lu(k,2302) = lu(k,2302) - lu(k,1535) * lu(k,2299)
7060 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1536) * lu(k,2299)
7061 141174528 : lu(k,2304) = lu(k,2304) - lu(k,1537) * lu(k,2299)
7062 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1538) * lu(k,2299)
7063 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1539) * lu(k,2299)
7064 141174528 : lu(k,2307) = lu(k,2307) - lu(k,1540) * lu(k,2299)
7065 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1541) * lu(k,2299)
7066 141174528 : lu(k,2309) = lu(k,2309) - lu(k,1542) * lu(k,2299)
7067 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1543) * lu(k,2299)
7068 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1544) * lu(k,2299)
7069 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1545) * lu(k,2299)
7070 141174528 : lu(k,2326) = lu(k,2326) - lu(k,1533) * lu(k,2325)
7071 141174528 : lu(k,2327) = lu(k,2327) - lu(k,1534) * lu(k,2325)
7072 141174528 : lu(k,2328) = lu(k,2328) - lu(k,1535) * lu(k,2325)
7073 141174528 : lu(k,2329) = lu(k,2329) - lu(k,1536) * lu(k,2325)
7074 141174528 : lu(k,2330) = lu(k,2330) - lu(k,1537) * lu(k,2325)
7075 141174528 : lu(k,2331) = lu(k,2331) - lu(k,1538) * lu(k,2325)
7076 141174528 : lu(k,2332) = lu(k,2332) - lu(k,1539) * lu(k,2325)
7077 141174528 : lu(k,2333) = lu(k,2333) - lu(k,1540) * lu(k,2325)
7078 141174528 : lu(k,2334) = lu(k,2334) - lu(k,1541) * lu(k,2325)
7079 141174528 : lu(k,2335) = lu(k,2335) - lu(k,1542) * lu(k,2325)
7080 141174528 : lu(k,2336) = lu(k,2336) - lu(k,1543) * lu(k,2325)
7081 141174528 : lu(k,2337) = lu(k,2337) - lu(k,1544) * lu(k,2325)
7082 141174528 : lu(k,2339) = lu(k,2339) - lu(k,1545) * lu(k,2325)
7083 141174528 : lu(k,2352) = lu(k,2352) - lu(k,1533) * lu(k,2351)
7084 141174528 : lu(k,2353) = lu(k,2353) - lu(k,1534) * lu(k,2351)
7085 141174528 : lu(k,2354) = lu(k,2354) - lu(k,1535) * lu(k,2351)
7086 141174528 : lu(k,2355) = lu(k,2355) - lu(k,1536) * lu(k,2351)
7087 141174528 : lu(k,2356) = lu(k,2356) - lu(k,1537) * lu(k,2351)
7088 141174528 : lu(k,2357) = lu(k,2357) - lu(k,1538) * lu(k,2351)
7089 141174528 : lu(k,2358) = lu(k,2358) - lu(k,1539) * lu(k,2351)
7090 141174528 : lu(k,2359) = lu(k,2359) - lu(k,1540) * lu(k,2351)
7091 141174528 : lu(k,2360) = lu(k,2360) - lu(k,1541) * lu(k,2351)
7092 141174528 : lu(k,2361) = lu(k,2361) - lu(k,1542) * lu(k,2351)
7093 141174528 : lu(k,2362) = lu(k,2362) - lu(k,1543) * lu(k,2351)
7094 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1544) * lu(k,2351)
7095 141174528 : lu(k,2365) = lu(k,2365) - lu(k,1545) * lu(k,2351)
7096 141174528 : lu(k,1576) = 1._r8 / lu(k,1576)
7097 141174528 : lu(k,1577) = lu(k,1577) * lu(k,1576)
7098 141174528 : lu(k,1578) = lu(k,1578) * lu(k,1576)
7099 141174528 : lu(k,1579) = lu(k,1579) * lu(k,1576)
7100 141174528 : lu(k,1580) = lu(k,1580) * lu(k,1576)
7101 141174528 : lu(k,1581) = lu(k,1581) * lu(k,1576)
7102 141174528 : lu(k,1582) = lu(k,1582) * lu(k,1576)
7103 141174528 : lu(k,1583) = lu(k,1583) * lu(k,1576)
7104 141174528 : lu(k,1584) = lu(k,1584) * lu(k,1576)
7105 141174528 : lu(k,1585) = lu(k,1585) * lu(k,1576)
7106 141174528 : lu(k,1586) = lu(k,1586) * lu(k,1576)
7107 141174528 : lu(k,1587) = lu(k,1587) * lu(k,1576)
7108 141174528 : lu(k,1588) = lu(k,1588) * lu(k,1576)
7109 141174528 : lu(k,1589) = lu(k,1589) * lu(k,1576)
7110 141174528 : lu(k,1608) = lu(k,1608) - lu(k,1577) * lu(k,1607)
7111 141174528 : lu(k,1609) = lu(k,1609) - lu(k,1578) * lu(k,1607)
7112 141174528 : lu(k,1610) = lu(k,1610) - lu(k,1579) * lu(k,1607)
7113 141174528 : lu(k,1611) = lu(k,1611) - lu(k,1580) * lu(k,1607)
7114 141174528 : lu(k,1612) = lu(k,1612) - lu(k,1581) * lu(k,1607)
7115 141174528 : lu(k,1613) = lu(k,1613) - lu(k,1582) * lu(k,1607)
7116 141174528 : lu(k,1614) = lu(k,1614) - lu(k,1583) * lu(k,1607)
7117 141174528 : lu(k,1615) = lu(k,1615) - lu(k,1584) * lu(k,1607)
7118 141174528 : lu(k,1616) = lu(k,1616) - lu(k,1585) * lu(k,1607)
7119 141174528 : lu(k,1617) = lu(k,1617) - lu(k,1586) * lu(k,1607)
7120 141174528 : lu(k,1618) = lu(k,1618) - lu(k,1587) * lu(k,1607)
7121 141174528 : lu(k,1619) = lu(k,1619) - lu(k,1588) * lu(k,1607)
7122 141174528 : lu(k,1620) = lu(k,1620) - lu(k,1589) * lu(k,1607)
7123 141174528 : lu(k,1649) = lu(k,1649) - lu(k,1577) * lu(k,1648)
7124 141174528 : lu(k,1650) = lu(k,1650) - lu(k,1578) * lu(k,1648)
7125 141174528 : lu(k,1651) = lu(k,1651) - lu(k,1579) * lu(k,1648)
7126 141174528 : lu(k,1652) = lu(k,1652) - lu(k,1580) * lu(k,1648)
7127 141174528 : lu(k,1653) = lu(k,1653) - lu(k,1581) * lu(k,1648)
7128 141174528 : lu(k,1654) = lu(k,1654) - lu(k,1582) * lu(k,1648)
7129 141174528 : lu(k,1655) = lu(k,1655) - lu(k,1583) * lu(k,1648)
7130 141174528 : lu(k,1656) = lu(k,1656) - lu(k,1584) * lu(k,1648)
7131 141174528 : lu(k,1657) = lu(k,1657) - lu(k,1585) * lu(k,1648)
7132 141174528 : lu(k,1658) = lu(k,1658) - lu(k,1586) * lu(k,1648)
7133 141174528 : lu(k,1659) = lu(k,1659) - lu(k,1587) * lu(k,1648)
7134 141174528 : lu(k,1660) = lu(k,1660) - lu(k,1588) * lu(k,1648)
7135 141174528 : lu(k,1661) = lu(k,1661) - lu(k,1589) * lu(k,1648)
7136 141174528 : lu(k,1821) = lu(k,1821) - lu(k,1577) * lu(k,1820)
7137 141174528 : lu(k,1822) = lu(k,1822) - lu(k,1578) * lu(k,1820)
7138 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1579) * lu(k,1820)
7139 141174528 : lu(k,1824) = lu(k,1824) - lu(k,1580) * lu(k,1820)
7140 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1581) * lu(k,1820)
7141 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1582) * lu(k,1820)
7142 141174528 : lu(k,1827) = lu(k,1827) - lu(k,1583) * lu(k,1820)
7143 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1584) * lu(k,1820)
7144 141174528 : lu(k,1829) = lu(k,1829) - lu(k,1585) * lu(k,1820)
7145 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1586) * lu(k,1820)
7146 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1587) * lu(k,1820)
7147 141174528 : lu(k,1832) = lu(k,1832) - lu(k,1588) * lu(k,1820)
7148 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1589) * lu(k,1820)
7149 141174528 : lu(k,1845) = lu(k,1845) - lu(k,1577) * lu(k,1844)
7150 141174528 : lu(k,1846) = lu(k,1846) - lu(k,1578) * lu(k,1844)
7151 141174528 : lu(k,1847) = lu(k,1847) - lu(k,1579) * lu(k,1844)
7152 141174528 : lu(k,1848) = lu(k,1848) - lu(k,1580) * lu(k,1844)
7153 141174528 : lu(k,1849) = lu(k,1849) - lu(k,1581) * lu(k,1844)
7154 141174528 : lu(k,1850) = lu(k,1850) - lu(k,1582) * lu(k,1844)
7155 141174528 : lu(k,1851) = lu(k,1851) - lu(k,1583) * lu(k,1844)
7156 141174528 : lu(k,1852) = lu(k,1852) - lu(k,1584) * lu(k,1844)
7157 141174528 : lu(k,1853) = lu(k,1853) - lu(k,1585) * lu(k,1844)
7158 141174528 : lu(k,1854) = lu(k,1854) - lu(k,1586) * lu(k,1844)
7159 141174528 : lu(k,1855) = lu(k,1855) - lu(k,1587) * lu(k,1844)
7160 141174528 : lu(k,1856) = lu(k,1856) - lu(k,1588) * lu(k,1844)
7161 141174528 : lu(k,1857) = lu(k,1857) - lu(k,1589) * lu(k,1844)
7162 141174528 : lu(k,1948) = lu(k,1948) - lu(k,1577) * lu(k,1947)
7163 141174528 : lu(k,1949) = lu(k,1949) - lu(k,1578) * lu(k,1947)
7164 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1579) * lu(k,1947)
7165 141174528 : lu(k,1951) = lu(k,1951) - lu(k,1580) * lu(k,1947)
7166 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1581) * lu(k,1947)
7167 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1582) * lu(k,1947)
7168 141174528 : lu(k,1954) = lu(k,1954) - lu(k,1583) * lu(k,1947)
7169 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1584) * lu(k,1947)
7170 141174528 : lu(k,1956) = lu(k,1956) - lu(k,1585) * lu(k,1947)
7171 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1586) * lu(k,1947)
7172 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1587) * lu(k,1947)
7173 141174528 : lu(k,1959) = lu(k,1959) - lu(k,1588) * lu(k,1947)
7174 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1589) * lu(k,1947)
7175 141174528 : lu(k,2000) = lu(k,2000) - lu(k,1577) * lu(k,1999)
7176 141174528 : lu(k,2001) = lu(k,2001) - lu(k,1578) * lu(k,1999)
7177 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1579) * lu(k,1999)
7178 141174528 : lu(k,2003) = lu(k,2003) - lu(k,1580) * lu(k,1999)
7179 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1581) * lu(k,1999)
7180 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1582) * lu(k,1999)
7181 141174528 : lu(k,2006) = lu(k,2006) - lu(k,1583) * lu(k,1999)
7182 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1584) * lu(k,1999)
7183 141174528 : lu(k,2008) = lu(k,2008) - lu(k,1585) * lu(k,1999)
7184 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1586) * lu(k,1999)
7185 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1587) * lu(k,1999)
7186 141174528 : lu(k,2011) = lu(k,2011) - lu(k,1588) * lu(k,1999)
7187 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1589) * lu(k,1999)
7188 141174528 : lu(k,2023) = lu(k,2023) - lu(k,1577) * lu(k,2022)
7189 141174528 : lu(k,2024) = lu(k,2024) - lu(k,1578) * lu(k,2022)
7190 141174528 : lu(k,2025) = lu(k,2025) - lu(k,1579) * lu(k,2022)
7191 141174528 : lu(k,2026) = lu(k,2026) - lu(k,1580) * lu(k,2022)
7192 141174528 : lu(k,2027) = lu(k,2027) - lu(k,1581) * lu(k,2022)
7193 141174528 : lu(k,2028) = lu(k,2028) - lu(k,1582) * lu(k,2022)
7194 141174528 : lu(k,2029) = lu(k,2029) - lu(k,1583) * lu(k,2022)
7195 141174528 : lu(k,2030) = lu(k,2030) - lu(k,1584) * lu(k,2022)
7196 141174528 : lu(k,2031) = lu(k,2031) - lu(k,1585) * lu(k,2022)
7197 141174528 : lu(k,2032) = lu(k,2032) - lu(k,1586) * lu(k,2022)
7198 141174528 : lu(k,2033) = lu(k,2033) - lu(k,1587) * lu(k,2022)
7199 141174528 : lu(k,2034) = lu(k,2034) - lu(k,1588) * lu(k,2022)
7200 141174528 : lu(k,2035) = lu(k,2035) - lu(k,1589) * lu(k,2022)
7201 141174528 : lu(k,2082) = lu(k,2082) - lu(k,1577) * lu(k,2081)
7202 141174528 : lu(k,2083) = lu(k,2083) - lu(k,1578) * lu(k,2081)
7203 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1579) * lu(k,2081)
7204 141174528 : lu(k,2085) = lu(k,2085) - lu(k,1580) * lu(k,2081)
7205 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1581) * lu(k,2081)
7206 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1582) * lu(k,2081)
7207 141174528 : lu(k,2088) = lu(k,2088) - lu(k,1583) * lu(k,2081)
7208 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1584) * lu(k,2081)
7209 141174528 : lu(k,2090) = lu(k,2090) - lu(k,1585) * lu(k,2081)
7210 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1586) * lu(k,2081)
7211 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1587) * lu(k,2081)
7212 141174528 : lu(k,2093) = lu(k,2093) - lu(k,1588) * lu(k,2081)
7213 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1589) * lu(k,2081)
7214 141174528 : lu(k,2121) = lu(k,2121) - lu(k,1577) * lu(k,2120)
7215 141174528 : lu(k,2122) = lu(k,2122) - lu(k,1578) * lu(k,2120)
7216 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1579) * lu(k,2120)
7217 141174528 : lu(k,2124) = lu(k,2124) - lu(k,1580) * lu(k,2120)
7218 141174528 : lu(k,2125) = lu(k,2125) - lu(k,1581) * lu(k,2120)
7219 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1582) * lu(k,2120)
7220 141174528 : lu(k,2127) = lu(k,2127) - lu(k,1583) * lu(k,2120)
7221 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1584) * lu(k,2120)
7222 141174528 : lu(k,2129) = lu(k,2129) - lu(k,1585) * lu(k,2120)
7223 141174528 : lu(k,2130) = lu(k,2130) - lu(k,1586) * lu(k,2120)
7224 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1587) * lu(k,2120)
7225 141174528 : lu(k,2132) = lu(k,2132) - lu(k,1588) * lu(k,2120)
7226 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1589) * lu(k,2120)
7227 141174528 : lu(k,2183) = lu(k,2183) - lu(k,1577) * lu(k,2182)
7228 141174528 : lu(k,2184) = lu(k,2184) - lu(k,1578) * lu(k,2182)
7229 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1579) * lu(k,2182)
7230 141174528 : lu(k,2186) = lu(k,2186) - lu(k,1580) * lu(k,2182)
7231 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1581) * lu(k,2182)
7232 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1582) * lu(k,2182)
7233 141174528 : lu(k,2189) = lu(k,2189) - lu(k,1583) * lu(k,2182)
7234 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1584) * lu(k,2182)
7235 141174528 : lu(k,2191) = lu(k,2191) - lu(k,1585) * lu(k,2182)
7236 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1586) * lu(k,2182)
7237 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1587) * lu(k,2182)
7238 141174528 : lu(k,2194) = lu(k,2194) - lu(k,1588) * lu(k,2182)
7239 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1589) * lu(k,2182)
7240 141174528 : lu(k,2301) = lu(k,2301) - lu(k,1577) * lu(k,2300)
7241 141174528 : lu(k,2302) = lu(k,2302) - lu(k,1578) * lu(k,2300)
7242 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1579) * lu(k,2300)
7243 141174528 : lu(k,2304) = lu(k,2304) - lu(k,1580) * lu(k,2300)
7244 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1581) * lu(k,2300)
7245 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1582) * lu(k,2300)
7246 141174528 : lu(k,2307) = lu(k,2307) - lu(k,1583) * lu(k,2300)
7247 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1584) * lu(k,2300)
7248 141174528 : lu(k,2309) = lu(k,2309) - lu(k,1585) * lu(k,2300)
7249 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1586) * lu(k,2300)
7250 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1587) * lu(k,2300)
7251 141174528 : lu(k,2312) = lu(k,2312) - lu(k,1588) * lu(k,2300)
7252 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1589) * lu(k,2300)
7253 141174528 : lu(k,2327) = lu(k,2327) - lu(k,1577) * lu(k,2326)
7254 141174528 : lu(k,2328) = lu(k,2328) - lu(k,1578) * lu(k,2326)
7255 141174528 : lu(k,2329) = lu(k,2329) - lu(k,1579) * lu(k,2326)
7256 141174528 : lu(k,2330) = lu(k,2330) - lu(k,1580) * lu(k,2326)
7257 141174528 : lu(k,2331) = lu(k,2331) - lu(k,1581) * lu(k,2326)
7258 141174528 : lu(k,2332) = lu(k,2332) - lu(k,1582) * lu(k,2326)
7259 141174528 : lu(k,2333) = lu(k,2333) - lu(k,1583) * lu(k,2326)
7260 141174528 : lu(k,2334) = lu(k,2334) - lu(k,1584) * lu(k,2326)
7261 141174528 : lu(k,2335) = lu(k,2335) - lu(k,1585) * lu(k,2326)
7262 141174528 : lu(k,2336) = lu(k,2336) - lu(k,1586) * lu(k,2326)
7263 141174528 : lu(k,2337) = lu(k,2337) - lu(k,1587) * lu(k,2326)
7264 141174528 : lu(k,2338) = lu(k,2338) - lu(k,1588) * lu(k,2326)
7265 141174528 : lu(k,2339) = lu(k,2339) - lu(k,1589) * lu(k,2326)
7266 141174528 : lu(k,2353) = lu(k,2353) - lu(k,1577) * lu(k,2352)
7267 141174528 : lu(k,2354) = lu(k,2354) - lu(k,1578) * lu(k,2352)
7268 141174528 : lu(k,2355) = lu(k,2355) - lu(k,1579) * lu(k,2352)
7269 141174528 : lu(k,2356) = lu(k,2356) - lu(k,1580) * lu(k,2352)
7270 141174528 : lu(k,2357) = lu(k,2357) - lu(k,1581) * lu(k,2352)
7271 141174528 : lu(k,2358) = lu(k,2358) - lu(k,1582) * lu(k,2352)
7272 141174528 : lu(k,2359) = lu(k,2359) - lu(k,1583) * lu(k,2352)
7273 141174528 : lu(k,2360) = lu(k,2360) - lu(k,1584) * lu(k,2352)
7274 141174528 : lu(k,2361) = lu(k,2361) - lu(k,1585) * lu(k,2352)
7275 141174528 : lu(k,2362) = lu(k,2362) - lu(k,1586) * lu(k,2352)
7276 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1587) * lu(k,2352)
7277 141174528 : lu(k,2364) = lu(k,2364) - lu(k,1588) * lu(k,2352)
7278 141174528 : lu(k,2365) = lu(k,2365) - lu(k,1589) * lu(k,2352)
7279 141174528 : lu(k,1608) = 1._r8 / lu(k,1608)
7280 141174528 : lu(k,1609) = lu(k,1609) * lu(k,1608)
7281 141174528 : lu(k,1610) = lu(k,1610) * lu(k,1608)
7282 141174528 : lu(k,1611) = lu(k,1611) * lu(k,1608)
7283 141174528 : lu(k,1612) = lu(k,1612) * lu(k,1608)
7284 141174528 : lu(k,1613) = lu(k,1613) * lu(k,1608)
7285 141174528 : lu(k,1614) = lu(k,1614) * lu(k,1608)
7286 141174528 : lu(k,1615) = lu(k,1615) * lu(k,1608)
7287 141174528 : lu(k,1616) = lu(k,1616) * lu(k,1608)
7288 141174528 : lu(k,1617) = lu(k,1617) * lu(k,1608)
7289 141174528 : lu(k,1618) = lu(k,1618) * lu(k,1608)
7290 141174528 : lu(k,1619) = lu(k,1619) * lu(k,1608)
7291 141174528 : lu(k,1620) = lu(k,1620) * lu(k,1608)
7292 141174528 : lu(k,1650) = lu(k,1650) - lu(k,1609) * lu(k,1649)
7293 141174528 : lu(k,1651) = lu(k,1651) - lu(k,1610) * lu(k,1649)
7294 141174528 : lu(k,1652) = lu(k,1652) - lu(k,1611) * lu(k,1649)
7295 141174528 : lu(k,1653) = lu(k,1653) - lu(k,1612) * lu(k,1649)
7296 141174528 : lu(k,1654) = lu(k,1654) - lu(k,1613) * lu(k,1649)
7297 141174528 : lu(k,1655) = lu(k,1655) - lu(k,1614) * lu(k,1649)
7298 141174528 : lu(k,1656) = lu(k,1656) - lu(k,1615) * lu(k,1649)
7299 141174528 : lu(k,1657) = lu(k,1657) - lu(k,1616) * lu(k,1649)
7300 141174528 : lu(k,1658) = lu(k,1658) - lu(k,1617) * lu(k,1649)
7301 141174528 : lu(k,1659) = lu(k,1659) - lu(k,1618) * lu(k,1649)
7302 141174528 : lu(k,1660) = lu(k,1660) - lu(k,1619) * lu(k,1649)
7303 141174528 : lu(k,1661) = lu(k,1661) - lu(k,1620) * lu(k,1649)
7304 141174528 : lu(k,1822) = lu(k,1822) - lu(k,1609) * lu(k,1821)
7305 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1610) * lu(k,1821)
7306 141174528 : lu(k,1824) = lu(k,1824) - lu(k,1611) * lu(k,1821)
7307 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1612) * lu(k,1821)
7308 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1613) * lu(k,1821)
7309 141174528 : lu(k,1827) = lu(k,1827) - lu(k,1614) * lu(k,1821)
7310 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1615) * lu(k,1821)
7311 141174528 : lu(k,1829) = lu(k,1829) - lu(k,1616) * lu(k,1821)
7312 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1617) * lu(k,1821)
7313 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1618) * lu(k,1821)
7314 141174528 : lu(k,1832) = lu(k,1832) - lu(k,1619) * lu(k,1821)
7315 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1620) * lu(k,1821)
7316 141174528 : lu(k,1846) = lu(k,1846) - lu(k,1609) * lu(k,1845)
7317 141174528 : lu(k,1847) = lu(k,1847) - lu(k,1610) * lu(k,1845)
7318 141174528 : lu(k,1848) = lu(k,1848) - lu(k,1611) * lu(k,1845)
7319 141174528 : lu(k,1849) = lu(k,1849) - lu(k,1612) * lu(k,1845)
7320 141174528 : lu(k,1850) = lu(k,1850) - lu(k,1613) * lu(k,1845)
7321 141174528 : lu(k,1851) = lu(k,1851) - lu(k,1614) * lu(k,1845)
7322 141174528 : lu(k,1852) = lu(k,1852) - lu(k,1615) * lu(k,1845)
7323 141174528 : lu(k,1853) = lu(k,1853) - lu(k,1616) * lu(k,1845)
7324 141174528 : lu(k,1854) = lu(k,1854) - lu(k,1617) * lu(k,1845)
7325 141174528 : lu(k,1855) = lu(k,1855) - lu(k,1618) * lu(k,1845)
7326 141174528 : lu(k,1856) = lu(k,1856) - lu(k,1619) * lu(k,1845)
7327 141174528 : lu(k,1857) = lu(k,1857) - lu(k,1620) * lu(k,1845)
7328 141174528 : lu(k,1949) = lu(k,1949) - lu(k,1609) * lu(k,1948)
7329 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1610) * lu(k,1948)
7330 141174528 : lu(k,1951) = lu(k,1951) - lu(k,1611) * lu(k,1948)
7331 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1612) * lu(k,1948)
7332 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1613) * lu(k,1948)
7333 141174528 : lu(k,1954) = lu(k,1954) - lu(k,1614) * lu(k,1948)
7334 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1615) * lu(k,1948)
7335 141174528 : lu(k,1956) = lu(k,1956) - lu(k,1616) * lu(k,1948)
7336 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1617) * lu(k,1948)
7337 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1618) * lu(k,1948)
7338 141174528 : lu(k,1959) = lu(k,1959) - lu(k,1619) * lu(k,1948)
7339 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1620) * lu(k,1948)
7340 141174528 : lu(k,2001) = lu(k,2001) - lu(k,1609) * lu(k,2000)
7341 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1610) * lu(k,2000)
7342 141174528 : lu(k,2003) = lu(k,2003) - lu(k,1611) * lu(k,2000)
7343 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1612) * lu(k,2000)
7344 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1613) * lu(k,2000)
7345 141174528 : lu(k,2006) = lu(k,2006) - lu(k,1614) * lu(k,2000)
7346 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1615) * lu(k,2000)
7347 141174528 : lu(k,2008) = lu(k,2008) - lu(k,1616) * lu(k,2000)
7348 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1617) * lu(k,2000)
7349 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1618) * lu(k,2000)
7350 141174528 : lu(k,2011) = lu(k,2011) - lu(k,1619) * lu(k,2000)
7351 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1620) * lu(k,2000)
7352 141174528 : lu(k,2024) = lu(k,2024) - lu(k,1609) * lu(k,2023)
7353 141174528 : lu(k,2025) = lu(k,2025) - lu(k,1610) * lu(k,2023)
7354 141174528 : lu(k,2026) = lu(k,2026) - lu(k,1611) * lu(k,2023)
7355 141174528 : lu(k,2027) = lu(k,2027) - lu(k,1612) * lu(k,2023)
7356 141174528 : lu(k,2028) = lu(k,2028) - lu(k,1613) * lu(k,2023)
7357 141174528 : lu(k,2029) = lu(k,2029) - lu(k,1614) * lu(k,2023)
7358 141174528 : lu(k,2030) = lu(k,2030) - lu(k,1615) * lu(k,2023)
7359 141174528 : lu(k,2031) = lu(k,2031) - lu(k,1616) * lu(k,2023)
7360 141174528 : lu(k,2032) = lu(k,2032) - lu(k,1617) * lu(k,2023)
7361 141174528 : lu(k,2033) = lu(k,2033) - lu(k,1618) * lu(k,2023)
7362 141174528 : lu(k,2034) = lu(k,2034) - lu(k,1619) * lu(k,2023)
7363 141174528 : lu(k,2035) = lu(k,2035) - lu(k,1620) * lu(k,2023)
7364 141174528 : lu(k,2083) = lu(k,2083) - lu(k,1609) * lu(k,2082)
7365 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1610) * lu(k,2082)
7366 141174528 : lu(k,2085) = lu(k,2085) - lu(k,1611) * lu(k,2082)
7367 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1612) * lu(k,2082)
7368 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1613) * lu(k,2082)
7369 141174528 : lu(k,2088) = lu(k,2088) - lu(k,1614) * lu(k,2082)
7370 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1615) * lu(k,2082)
7371 141174528 : lu(k,2090) = lu(k,2090) - lu(k,1616) * lu(k,2082)
7372 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1617) * lu(k,2082)
7373 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1618) * lu(k,2082)
7374 141174528 : lu(k,2093) = lu(k,2093) - lu(k,1619) * lu(k,2082)
7375 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1620) * lu(k,2082)
7376 141174528 : lu(k,2122) = lu(k,2122) - lu(k,1609) * lu(k,2121)
7377 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1610) * lu(k,2121)
7378 141174528 : lu(k,2124) = lu(k,2124) - lu(k,1611) * lu(k,2121)
7379 141174528 : lu(k,2125) = lu(k,2125) - lu(k,1612) * lu(k,2121)
7380 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1613) * lu(k,2121)
7381 141174528 : lu(k,2127) = lu(k,2127) - lu(k,1614) * lu(k,2121)
7382 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1615) * lu(k,2121)
7383 141174528 : lu(k,2129) = lu(k,2129) - lu(k,1616) * lu(k,2121)
7384 141174528 : lu(k,2130) = lu(k,2130) - lu(k,1617) * lu(k,2121)
7385 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1618) * lu(k,2121)
7386 141174528 : lu(k,2132) = lu(k,2132) - lu(k,1619) * lu(k,2121)
7387 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1620) * lu(k,2121)
7388 141174528 : lu(k,2184) = lu(k,2184) - lu(k,1609) * lu(k,2183)
7389 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1610) * lu(k,2183)
7390 141174528 : lu(k,2186) = lu(k,2186) - lu(k,1611) * lu(k,2183)
7391 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1612) * lu(k,2183)
7392 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1613) * lu(k,2183)
7393 141174528 : lu(k,2189) = lu(k,2189) - lu(k,1614) * lu(k,2183)
7394 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1615) * lu(k,2183)
7395 141174528 : lu(k,2191) = lu(k,2191) - lu(k,1616) * lu(k,2183)
7396 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1617) * lu(k,2183)
7397 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1618) * lu(k,2183)
7398 141174528 : lu(k,2194) = lu(k,2194) - lu(k,1619) * lu(k,2183)
7399 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1620) * lu(k,2183)
7400 141174528 : lu(k,2302) = lu(k,2302) - lu(k,1609) * lu(k,2301)
7401 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1610) * lu(k,2301)
7402 141174528 : lu(k,2304) = lu(k,2304) - lu(k,1611) * lu(k,2301)
7403 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1612) * lu(k,2301)
7404 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1613) * lu(k,2301)
7405 141174528 : lu(k,2307) = lu(k,2307) - lu(k,1614) * lu(k,2301)
7406 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1615) * lu(k,2301)
7407 141174528 : lu(k,2309) = lu(k,2309) - lu(k,1616) * lu(k,2301)
7408 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1617) * lu(k,2301)
7409 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1618) * lu(k,2301)
7410 141174528 : lu(k,2312) = lu(k,2312) - lu(k,1619) * lu(k,2301)
7411 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1620) * lu(k,2301)
7412 141174528 : lu(k,2328) = lu(k,2328) - lu(k,1609) * lu(k,2327)
7413 141174528 : lu(k,2329) = lu(k,2329) - lu(k,1610) * lu(k,2327)
7414 141174528 : lu(k,2330) = lu(k,2330) - lu(k,1611) * lu(k,2327)
7415 141174528 : lu(k,2331) = lu(k,2331) - lu(k,1612) * lu(k,2327)
7416 141174528 : lu(k,2332) = lu(k,2332) - lu(k,1613) * lu(k,2327)
7417 141174528 : lu(k,2333) = lu(k,2333) - lu(k,1614) * lu(k,2327)
7418 141174528 : lu(k,2334) = lu(k,2334) - lu(k,1615) * lu(k,2327)
7419 141174528 : lu(k,2335) = lu(k,2335) - lu(k,1616) * lu(k,2327)
7420 141174528 : lu(k,2336) = lu(k,2336) - lu(k,1617) * lu(k,2327)
7421 141174528 : lu(k,2337) = lu(k,2337) - lu(k,1618) * lu(k,2327)
7422 141174528 : lu(k,2338) = lu(k,2338) - lu(k,1619) * lu(k,2327)
7423 141174528 : lu(k,2339) = lu(k,2339) - lu(k,1620) * lu(k,2327)
7424 141174528 : lu(k,2354) = lu(k,2354) - lu(k,1609) * lu(k,2353)
7425 141174528 : lu(k,2355) = lu(k,2355) - lu(k,1610) * lu(k,2353)
7426 141174528 : lu(k,2356) = lu(k,2356) - lu(k,1611) * lu(k,2353)
7427 141174528 : lu(k,2357) = lu(k,2357) - lu(k,1612) * lu(k,2353)
7428 141174528 : lu(k,2358) = lu(k,2358) - lu(k,1613) * lu(k,2353)
7429 141174528 : lu(k,2359) = lu(k,2359) - lu(k,1614) * lu(k,2353)
7430 141174528 : lu(k,2360) = lu(k,2360) - lu(k,1615) * lu(k,2353)
7431 141174528 : lu(k,2361) = lu(k,2361) - lu(k,1616) * lu(k,2353)
7432 141174528 : lu(k,2362) = lu(k,2362) - lu(k,1617) * lu(k,2353)
7433 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1618) * lu(k,2353)
7434 141174528 : lu(k,2364) = lu(k,2364) - lu(k,1619) * lu(k,2353)
7435 145586232 : lu(k,2365) = lu(k,2365) - lu(k,1620) * lu(k,2353)
7436 : end do
7437 4411704 : end subroutine lu_fac29
7438 4411704 : subroutine lu_fac30( avec_len, lu )
7439 : use chem_mods, only : nzcnt
7440 : use shr_kind_mod, only : r8 => shr_kind_r8
7441 : implicit none
7442 : !-----------------------------------------------------------------------
7443 : ! ... dummy args
7444 : !-----------------------------------------------------------------------
7445 : integer, intent(in) :: avec_len
7446 : real(r8), intent(inout) :: lu(veclen,nzcnt)
7447 : !-----------------------------------------------------------------------
7448 : ! ... local variables
7449 : !-----------------------------------------------------------------------
7450 : integer :: k
7451 145586232 : do k = 1,avec_len
7452 141174528 : lu(k,1650) = 1._r8 / lu(k,1650)
7453 141174528 : lu(k,1651) = lu(k,1651) * lu(k,1650)
7454 141174528 : lu(k,1652) = lu(k,1652) * lu(k,1650)
7455 141174528 : lu(k,1653) = lu(k,1653) * lu(k,1650)
7456 141174528 : lu(k,1654) = lu(k,1654) * lu(k,1650)
7457 141174528 : lu(k,1655) = lu(k,1655) * lu(k,1650)
7458 141174528 : lu(k,1656) = lu(k,1656) * lu(k,1650)
7459 141174528 : lu(k,1657) = lu(k,1657) * lu(k,1650)
7460 141174528 : lu(k,1658) = lu(k,1658) * lu(k,1650)
7461 141174528 : lu(k,1659) = lu(k,1659) * lu(k,1650)
7462 141174528 : lu(k,1660) = lu(k,1660) * lu(k,1650)
7463 141174528 : lu(k,1661) = lu(k,1661) * lu(k,1650)
7464 141174528 : lu(k,1823) = lu(k,1823) - lu(k,1651) * lu(k,1822)
7465 141174528 : lu(k,1824) = lu(k,1824) - lu(k,1652) * lu(k,1822)
7466 141174528 : lu(k,1825) = lu(k,1825) - lu(k,1653) * lu(k,1822)
7467 141174528 : lu(k,1826) = lu(k,1826) - lu(k,1654) * lu(k,1822)
7468 141174528 : lu(k,1827) = lu(k,1827) - lu(k,1655) * lu(k,1822)
7469 141174528 : lu(k,1828) = lu(k,1828) - lu(k,1656) * lu(k,1822)
7470 141174528 : lu(k,1829) = lu(k,1829) - lu(k,1657) * lu(k,1822)
7471 141174528 : lu(k,1830) = lu(k,1830) - lu(k,1658) * lu(k,1822)
7472 141174528 : lu(k,1831) = lu(k,1831) - lu(k,1659) * lu(k,1822)
7473 141174528 : lu(k,1832) = lu(k,1832) - lu(k,1660) * lu(k,1822)
7474 141174528 : lu(k,1833) = lu(k,1833) - lu(k,1661) * lu(k,1822)
7475 141174528 : lu(k,1847) = lu(k,1847) - lu(k,1651) * lu(k,1846)
7476 141174528 : lu(k,1848) = lu(k,1848) - lu(k,1652) * lu(k,1846)
7477 141174528 : lu(k,1849) = lu(k,1849) - lu(k,1653) * lu(k,1846)
7478 141174528 : lu(k,1850) = lu(k,1850) - lu(k,1654) * lu(k,1846)
7479 141174528 : lu(k,1851) = lu(k,1851) - lu(k,1655) * lu(k,1846)
7480 141174528 : lu(k,1852) = lu(k,1852) - lu(k,1656) * lu(k,1846)
7481 141174528 : lu(k,1853) = lu(k,1853) - lu(k,1657) * lu(k,1846)
7482 141174528 : lu(k,1854) = lu(k,1854) - lu(k,1658) * lu(k,1846)
7483 141174528 : lu(k,1855) = lu(k,1855) - lu(k,1659) * lu(k,1846)
7484 141174528 : lu(k,1856) = lu(k,1856) - lu(k,1660) * lu(k,1846)
7485 141174528 : lu(k,1857) = lu(k,1857) - lu(k,1661) * lu(k,1846)
7486 141174528 : lu(k,1950) = lu(k,1950) - lu(k,1651) * lu(k,1949)
7487 141174528 : lu(k,1951) = lu(k,1951) - lu(k,1652) * lu(k,1949)
7488 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1653) * lu(k,1949)
7489 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1654) * lu(k,1949)
7490 141174528 : lu(k,1954) = lu(k,1954) - lu(k,1655) * lu(k,1949)
7491 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1656) * lu(k,1949)
7492 141174528 : lu(k,1956) = lu(k,1956) - lu(k,1657) * lu(k,1949)
7493 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1658) * lu(k,1949)
7494 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1659) * lu(k,1949)
7495 141174528 : lu(k,1959) = lu(k,1959) - lu(k,1660) * lu(k,1949)
7496 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1661) * lu(k,1949)
7497 141174528 : lu(k,2002) = lu(k,2002) - lu(k,1651) * lu(k,2001)
7498 141174528 : lu(k,2003) = lu(k,2003) - lu(k,1652) * lu(k,2001)
7499 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1653) * lu(k,2001)
7500 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1654) * lu(k,2001)
7501 141174528 : lu(k,2006) = lu(k,2006) - lu(k,1655) * lu(k,2001)
7502 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1656) * lu(k,2001)
7503 141174528 : lu(k,2008) = lu(k,2008) - lu(k,1657) * lu(k,2001)
7504 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1658) * lu(k,2001)
7505 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1659) * lu(k,2001)
7506 141174528 : lu(k,2011) = lu(k,2011) - lu(k,1660) * lu(k,2001)
7507 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1661) * lu(k,2001)
7508 141174528 : lu(k,2025) = lu(k,2025) - lu(k,1651) * lu(k,2024)
7509 141174528 : lu(k,2026) = lu(k,2026) - lu(k,1652) * lu(k,2024)
7510 141174528 : lu(k,2027) = lu(k,2027) - lu(k,1653) * lu(k,2024)
7511 141174528 : lu(k,2028) = lu(k,2028) - lu(k,1654) * lu(k,2024)
7512 141174528 : lu(k,2029) = lu(k,2029) - lu(k,1655) * lu(k,2024)
7513 141174528 : lu(k,2030) = lu(k,2030) - lu(k,1656) * lu(k,2024)
7514 141174528 : lu(k,2031) = lu(k,2031) - lu(k,1657) * lu(k,2024)
7515 141174528 : lu(k,2032) = lu(k,2032) - lu(k,1658) * lu(k,2024)
7516 141174528 : lu(k,2033) = lu(k,2033) - lu(k,1659) * lu(k,2024)
7517 141174528 : lu(k,2034) = lu(k,2034) - lu(k,1660) * lu(k,2024)
7518 141174528 : lu(k,2035) = lu(k,2035) - lu(k,1661) * lu(k,2024)
7519 141174528 : lu(k,2084) = lu(k,2084) - lu(k,1651) * lu(k,2083)
7520 141174528 : lu(k,2085) = lu(k,2085) - lu(k,1652) * lu(k,2083)
7521 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1653) * lu(k,2083)
7522 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1654) * lu(k,2083)
7523 141174528 : lu(k,2088) = lu(k,2088) - lu(k,1655) * lu(k,2083)
7524 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1656) * lu(k,2083)
7525 141174528 : lu(k,2090) = lu(k,2090) - lu(k,1657) * lu(k,2083)
7526 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1658) * lu(k,2083)
7527 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1659) * lu(k,2083)
7528 141174528 : lu(k,2093) = lu(k,2093) - lu(k,1660) * lu(k,2083)
7529 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1661) * lu(k,2083)
7530 141174528 : lu(k,2123) = lu(k,2123) - lu(k,1651) * lu(k,2122)
7531 141174528 : lu(k,2124) = lu(k,2124) - lu(k,1652) * lu(k,2122)
7532 141174528 : lu(k,2125) = lu(k,2125) - lu(k,1653) * lu(k,2122)
7533 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1654) * lu(k,2122)
7534 141174528 : lu(k,2127) = lu(k,2127) - lu(k,1655) * lu(k,2122)
7535 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1656) * lu(k,2122)
7536 141174528 : lu(k,2129) = lu(k,2129) - lu(k,1657) * lu(k,2122)
7537 141174528 : lu(k,2130) = lu(k,2130) - lu(k,1658) * lu(k,2122)
7538 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1659) * lu(k,2122)
7539 141174528 : lu(k,2132) = lu(k,2132) - lu(k,1660) * lu(k,2122)
7540 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1661) * lu(k,2122)
7541 141174528 : lu(k,2185) = lu(k,2185) - lu(k,1651) * lu(k,2184)
7542 141174528 : lu(k,2186) = lu(k,2186) - lu(k,1652) * lu(k,2184)
7543 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1653) * lu(k,2184)
7544 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1654) * lu(k,2184)
7545 141174528 : lu(k,2189) = lu(k,2189) - lu(k,1655) * lu(k,2184)
7546 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1656) * lu(k,2184)
7547 141174528 : lu(k,2191) = lu(k,2191) - lu(k,1657) * lu(k,2184)
7548 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1658) * lu(k,2184)
7549 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1659) * lu(k,2184)
7550 141174528 : lu(k,2194) = lu(k,2194) - lu(k,1660) * lu(k,2184)
7551 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1661) * lu(k,2184)
7552 141174528 : lu(k,2303) = lu(k,2303) - lu(k,1651) * lu(k,2302)
7553 141174528 : lu(k,2304) = lu(k,2304) - lu(k,1652) * lu(k,2302)
7554 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1653) * lu(k,2302)
7555 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1654) * lu(k,2302)
7556 141174528 : lu(k,2307) = lu(k,2307) - lu(k,1655) * lu(k,2302)
7557 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1656) * lu(k,2302)
7558 141174528 : lu(k,2309) = lu(k,2309) - lu(k,1657) * lu(k,2302)
7559 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1658) * lu(k,2302)
7560 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1659) * lu(k,2302)
7561 141174528 : lu(k,2312) = lu(k,2312) - lu(k,1660) * lu(k,2302)
7562 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1661) * lu(k,2302)
7563 141174528 : lu(k,2329) = lu(k,2329) - lu(k,1651) * lu(k,2328)
7564 141174528 : lu(k,2330) = lu(k,2330) - lu(k,1652) * lu(k,2328)
7565 141174528 : lu(k,2331) = lu(k,2331) - lu(k,1653) * lu(k,2328)
7566 141174528 : lu(k,2332) = lu(k,2332) - lu(k,1654) * lu(k,2328)
7567 141174528 : lu(k,2333) = lu(k,2333) - lu(k,1655) * lu(k,2328)
7568 141174528 : lu(k,2334) = lu(k,2334) - lu(k,1656) * lu(k,2328)
7569 141174528 : lu(k,2335) = lu(k,2335) - lu(k,1657) * lu(k,2328)
7570 141174528 : lu(k,2336) = lu(k,2336) - lu(k,1658) * lu(k,2328)
7571 141174528 : lu(k,2337) = lu(k,2337) - lu(k,1659) * lu(k,2328)
7572 141174528 : lu(k,2338) = lu(k,2338) - lu(k,1660) * lu(k,2328)
7573 141174528 : lu(k,2339) = lu(k,2339) - lu(k,1661) * lu(k,2328)
7574 141174528 : lu(k,2355) = lu(k,2355) - lu(k,1651) * lu(k,2354)
7575 141174528 : lu(k,2356) = lu(k,2356) - lu(k,1652) * lu(k,2354)
7576 141174528 : lu(k,2357) = lu(k,2357) - lu(k,1653) * lu(k,2354)
7577 141174528 : lu(k,2358) = lu(k,2358) - lu(k,1654) * lu(k,2354)
7578 141174528 : lu(k,2359) = lu(k,2359) - lu(k,1655) * lu(k,2354)
7579 141174528 : lu(k,2360) = lu(k,2360) - lu(k,1656) * lu(k,2354)
7580 141174528 : lu(k,2361) = lu(k,2361) - lu(k,1657) * lu(k,2354)
7581 141174528 : lu(k,2362) = lu(k,2362) - lu(k,1658) * lu(k,2354)
7582 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1659) * lu(k,2354)
7583 141174528 : lu(k,2364) = lu(k,2364) - lu(k,1660) * lu(k,2354)
7584 141174528 : lu(k,2365) = lu(k,2365) - lu(k,1661) * lu(k,2354)
7585 141174528 : lu(k,1823) = 1._r8 / lu(k,1823)
7586 141174528 : lu(k,1824) = lu(k,1824) * lu(k,1823)
7587 141174528 : lu(k,1825) = lu(k,1825) * lu(k,1823)
7588 141174528 : lu(k,1826) = lu(k,1826) * lu(k,1823)
7589 141174528 : lu(k,1827) = lu(k,1827) * lu(k,1823)
7590 141174528 : lu(k,1828) = lu(k,1828) * lu(k,1823)
7591 141174528 : lu(k,1829) = lu(k,1829) * lu(k,1823)
7592 141174528 : lu(k,1830) = lu(k,1830) * lu(k,1823)
7593 141174528 : lu(k,1831) = lu(k,1831) * lu(k,1823)
7594 141174528 : lu(k,1832) = lu(k,1832) * lu(k,1823)
7595 141174528 : lu(k,1833) = lu(k,1833) * lu(k,1823)
7596 141174528 : lu(k,1848) = lu(k,1848) - lu(k,1824) * lu(k,1847)
7597 141174528 : lu(k,1849) = lu(k,1849) - lu(k,1825) * lu(k,1847)
7598 141174528 : lu(k,1850) = lu(k,1850) - lu(k,1826) * lu(k,1847)
7599 141174528 : lu(k,1851) = lu(k,1851) - lu(k,1827) * lu(k,1847)
7600 141174528 : lu(k,1852) = lu(k,1852) - lu(k,1828) * lu(k,1847)
7601 141174528 : lu(k,1853) = lu(k,1853) - lu(k,1829) * lu(k,1847)
7602 141174528 : lu(k,1854) = lu(k,1854) - lu(k,1830) * lu(k,1847)
7603 141174528 : lu(k,1855) = lu(k,1855) - lu(k,1831) * lu(k,1847)
7604 141174528 : lu(k,1856) = lu(k,1856) - lu(k,1832) * lu(k,1847)
7605 141174528 : lu(k,1857) = lu(k,1857) - lu(k,1833) * lu(k,1847)
7606 141174528 : lu(k,1951) = lu(k,1951) - lu(k,1824) * lu(k,1950)
7607 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1825) * lu(k,1950)
7608 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1826) * lu(k,1950)
7609 141174528 : lu(k,1954) = lu(k,1954) - lu(k,1827) * lu(k,1950)
7610 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1828) * lu(k,1950)
7611 141174528 : lu(k,1956) = lu(k,1956) - lu(k,1829) * lu(k,1950)
7612 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1830) * lu(k,1950)
7613 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1831) * lu(k,1950)
7614 141174528 : lu(k,1959) = lu(k,1959) - lu(k,1832) * lu(k,1950)
7615 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1833) * lu(k,1950)
7616 141174528 : lu(k,2003) = lu(k,2003) - lu(k,1824) * lu(k,2002)
7617 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1825) * lu(k,2002)
7618 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1826) * lu(k,2002)
7619 141174528 : lu(k,2006) = lu(k,2006) - lu(k,1827) * lu(k,2002)
7620 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1828) * lu(k,2002)
7621 141174528 : lu(k,2008) = lu(k,2008) - lu(k,1829) * lu(k,2002)
7622 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1830) * lu(k,2002)
7623 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1831) * lu(k,2002)
7624 141174528 : lu(k,2011) = lu(k,2011) - lu(k,1832) * lu(k,2002)
7625 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1833) * lu(k,2002)
7626 141174528 : lu(k,2026) = lu(k,2026) - lu(k,1824) * lu(k,2025)
7627 141174528 : lu(k,2027) = lu(k,2027) - lu(k,1825) * lu(k,2025)
7628 141174528 : lu(k,2028) = lu(k,2028) - lu(k,1826) * lu(k,2025)
7629 141174528 : lu(k,2029) = lu(k,2029) - lu(k,1827) * lu(k,2025)
7630 141174528 : lu(k,2030) = lu(k,2030) - lu(k,1828) * lu(k,2025)
7631 141174528 : lu(k,2031) = lu(k,2031) - lu(k,1829) * lu(k,2025)
7632 141174528 : lu(k,2032) = lu(k,2032) - lu(k,1830) * lu(k,2025)
7633 141174528 : lu(k,2033) = lu(k,2033) - lu(k,1831) * lu(k,2025)
7634 141174528 : lu(k,2034) = lu(k,2034) - lu(k,1832) * lu(k,2025)
7635 141174528 : lu(k,2035) = lu(k,2035) - lu(k,1833) * lu(k,2025)
7636 141174528 : lu(k,2085) = lu(k,2085) - lu(k,1824) * lu(k,2084)
7637 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1825) * lu(k,2084)
7638 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1826) * lu(k,2084)
7639 141174528 : lu(k,2088) = lu(k,2088) - lu(k,1827) * lu(k,2084)
7640 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1828) * lu(k,2084)
7641 141174528 : lu(k,2090) = lu(k,2090) - lu(k,1829) * lu(k,2084)
7642 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1830) * lu(k,2084)
7643 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1831) * lu(k,2084)
7644 141174528 : lu(k,2093) = lu(k,2093) - lu(k,1832) * lu(k,2084)
7645 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1833) * lu(k,2084)
7646 141174528 : lu(k,2124) = lu(k,2124) - lu(k,1824) * lu(k,2123)
7647 141174528 : lu(k,2125) = lu(k,2125) - lu(k,1825) * lu(k,2123)
7648 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1826) * lu(k,2123)
7649 141174528 : lu(k,2127) = lu(k,2127) - lu(k,1827) * lu(k,2123)
7650 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1828) * lu(k,2123)
7651 141174528 : lu(k,2129) = lu(k,2129) - lu(k,1829) * lu(k,2123)
7652 141174528 : lu(k,2130) = lu(k,2130) - lu(k,1830) * lu(k,2123)
7653 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1831) * lu(k,2123)
7654 141174528 : lu(k,2132) = lu(k,2132) - lu(k,1832) * lu(k,2123)
7655 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1833) * lu(k,2123)
7656 141174528 : lu(k,2186) = lu(k,2186) - lu(k,1824) * lu(k,2185)
7657 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1825) * lu(k,2185)
7658 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1826) * lu(k,2185)
7659 141174528 : lu(k,2189) = lu(k,2189) - lu(k,1827) * lu(k,2185)
7660 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1828) * lu(k,2185)
7661 141174528 : lu(k,2191) = lu(k,2191) - lu(k,1829) * lu(k,2185)
7662 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1830) * lu(k,2185)
7663 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1831) * lu(k,2185)
7664 141174528 : lu(k,2194) = lu(k,2194) - lu(k,1832) * lu(k,2185)
7665 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1833) * lu(k,2185)
7666 141174528 : lu(k,2304) = lu(k,2304) - lu(k,1824) * lu(k,2303)
7667 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1825) * lu(k,2303)
7668 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1826) * lu(k,2303)
7669 141174528 : lu(k,2307) = lu(k,2307) - lu(k,1827) * lu(k,2303)
7670 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1828) * lu(k,2303)
7671 141174528 : lu(k,2309) = lu(k,2309) - lu(k,1829) * lu(k,2303)
7672 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1830) * lu(k,2303)
7673 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1831) * lu(k,2303)
7674 141174528 : lu(k,2312) = lu(k,2312) - lu(k,1832) * lu(k,2303)
7675 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1833) * lu(k,2303)
7676 141174528 : lu(k,2330) = lu(k,2330) - lu(k,1824) * lu(k,2329)
7677 141174528 : lu(k,2331) = lu(k,2331) - lu(k,1825) * lu(k,2329)
7678 141174528 : lu(k,2332) = lu(k,2332) - lu(k,1826) * lu(k,2329)
7679 141174528 : lu(k,2333) = lu(k,2333) - lu(k,1827) * lu(k,2329)
7680 141174528 : lu(k,2334) = lu(k,2334) - lu(k,1828) * lu(k,2329)
7681 141174528 : lu(k,2335) = lu(k,2335) - lu(k,1829) * lu(k,2329)
7682 141174528 : lu(k,2336) = lu(k,2336) - lu(k,1830) * lu(k,2329)
7683 141174528 : lu(k,2337) = lu(k,2337) - lu(k,1831) * lu(k,2329)
7684 141174528 : lu(k,2338) = lu(k,2338) - lu(k,1832) * lu(k,2329)
7685 141174528 : lu(k,2339) = lu(k,2339) - lu(k,1833) * lu(k,2329)
7686 141174528 : lu(k,2356) = lu(k,2356) - lu(k,1824) * lu(k,2355)
7687 141174528 : lu(k,2357) = lu(k,2357) - lu(k,1825) * lu(k,2355)
7688 141174528 : lu(k,2358) = lu(k,2358) - lu(k,1826) * lu(k,2355)
7689 141174528 : lu(k,2359) = lu(k,2359) - lu(k,1827) * lu(k,2355)
7690 141174528 : lu(k,2360) = lu(k,2360) - lu(k,1828) * lu(k,2355)
7691 141174528 : lu(k,2361) = lu(k,2361) - lu(k,1829) * lu(k,2355)
7692 141174528 : lu(k,2362) = lu(k,2362) - lu(k,1830) * lu(k,2355)
7693 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1831) * lu(k,2355)
7694 141174528 : lu(k,2364) = lu(k,2364) - lu(k,1832) * lu(k,2355)
7695 141174528 : lu(k,2365) = lu(k,2365) - lu(k,1833) * lu(k,2355)
7696 141174528 : lu(k,1848) = 1._r8 / lu(k,1848)
7697 141174528 : lu(k,1849) = lu(k,1849) * lu(k,1848)
7698 141174528 : lu(k,1850) = lu(k,1850) * lu(k,1848)
7699 141174528 : lu(k,1851) = lu(k,1851) * lu(k,1848)
7700 141174528 : lu(k,1852) = lu(k,1852) * lu(k,1848)
7701 141174528 : lu(k,1853) = lu(k,1853) * lu(k,1848)
7702 141174528 : lu(k,1854) = lu(k,1854) * lu(k,1848)
7703 141174528 : lu(k,1855) = lu(k,1855) * lu(k,1848)
7704 141174528 : lu(k,1856) = lu(k,1856) * lu(k,1848)
7705 141174528 : lu(k,1857) = lu(k,1857) * lu(k,1848)
7706 141174528 : lu(k,1952) = lu(k,1952) - lu(k,1849) * lu(k,1951)
7707 141174528 : lu(k,1953) = lu(k,1953) - lu(k,1850) * lu(k,1951)
7708 141174528 : lu(k,1954) = lu(k,1954) - lu(k,1851) * lu(k,1951)
7709 141174528 : lu(k,1955) = lu(k,1955) - lu(k,1852) * lu(k,1951)
7710 141174528 : lu(k,1956) = lu(k,1956) - lu(k,1853) * lu(k,1951)
7711 141174528 : lu(k,1957) = lu(k,1957) - lu(k,1854) * lu(k,1951)
7712 141174528 : lu(k,1958) = lu(k,1958) - lu(k,1855) * lu(k,1951)
7713 141174528 : lu(k,1959) = lu(k,1959) - lu(k,1856) * lu(k,1951)
7714 141174528 : lu(k,1960) = lu(k,1960) - lu(k,1857) * lu(k,1951)
7715 141174528 : lu(k,2004) = lu(k,2004) - lu(k,1849) * lu(k,2003)
7716 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1850) * lu(k,2003)
7717 141174528 : lu(k,2006) = lu(k,2006) - lu(k,1851) * lu(k,2003)
7718 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1852) * lu(k,2003)
7719 141174528 : lu(k,2008) = lu(k,2008) - lu(k,1853) * lu(k,2003)
7720 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1854) * lu(k,2003)
7721 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1855) * lu(k,2003)
7722 141174528 : lu(k,2011) = lu(k,2011) - lu(k,1856) * lu(k,2003)
7723 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1857) * lu(k,2003)
7724 141174528 : lu(k,2027) = lu(k,2027) - lu(k,1849) * lu(k,2026)
7725 141174528 : lu(k,2028) = lu(k,2028) - lu(k,1850) * lu(k,2026)
7726 141174528 : lu(k,2029) = lu(k,2029) - lu(k,1851) * lu(k,2026)
7727 141174528 : lu(k,2030) = lu(k,2030) - lu(k,1852) * lu(k,2026)
7728 141174528 : lu(k,2031) = lu(k,2031) - lu(k,1853) * lu(k,2026)
7729 141174528 : lu(k,2032) = lu(k,2032) - lu(k,1854) * lu(k,2026)
7730 141174528 : lu(k,2033) = lu(k,2033) - lu(k,1855) * lu(k,2026)
7731 141174528 : lu(k,2034) = lu(k,2034) - lu(k,1856) * lu(k,2026)
7732 141174528 : lu(k,2035) = lu(k,2035) - lu(k,1857) * lu(k,2026)
7733 141174528 : lu(k,2086) = lu(k,2086) - lu(k,1849) * lu(k,2085)
7734 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1850) * lu(k,2085)
7735 141174528 : lu(k,2088) = lu(k,2088) - lu(k,1851) * lu(k,2085)
7736 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1852) * lu(k,2085)
7737 141174528 : lu(k,2090) = lu(k,2090) - lu(k,1853) * lu(k,2085)
7738 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1854) * lu(k,2085)
7739 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1855) * lu(k,2085)
7740 141174528 : lu(k,2093) = lu(k,2093) - lu(k,1856) * lu(k,2085)
7741 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1857) * lu(k,2085)
7742 141174528 : lu(k,2125) = lu(k,2125) - lu(k,1849) * lu(k,2124)
7743 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1850) * lu(k,2124)
7744 141174528 : lu(k,2127) = lu(k,2127) - lu(k,1851) * lu(k,2124)
7745 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1852) * lu(k,2124)
7746 141174528 : lu(k,2129) = lu(k,2129) - lu(k,1853) * lu(k,2124)
7747 141174528 : lu(k,2130) = lu(k,2130) - lu(k,1854) * lu(k,2124)
7748 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1855) * lu(k,2124)
7749 141174528 : lu(k,2132) = lu(k,2132) - lu(k,1856) * lu(k,2124)
7750 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1857) * lu(k,2124)
7751 141174528 : lu(k,2187) = lu(k,2187) - lu(k,1849) * lu(k,2186)
7752 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1850) * lu(k,2186)
7753 141174528 : lu(k,2189) = lu(k,2189) - lu(k,1851) * lu(k,2186)
7754 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1852) * lu(k,2186)
7755 141174528 : lu(k,2191) = lu(k,2191) - lu(k,1853) * lu(k,2186)
7756 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1854) * lu(k,2186)
7757 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1855) * lu(k,2186)
7758 141174528 : lu(k,2194) = lu(k,2194) - lu(k,1856) * lu(k,2186)
7759 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1857) * lu(k,2186)
7760 141174528 : lu(k,2305) = lu(k,2305) - lu(k,1849) * lu(k,2304)
7761 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1850) * lu(k,2304)
7762 141174528 : lu(k,2307) = lu(k,2307) - lu(k,1851) * lu(k,2304)
7763 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1852) * lu(k,2304)
7764 141174528 : lu(k,2309) = lu(k,2309) - lu(k,1853) * lu(k,2304)
7765 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1854) * lu(k,2304)
7766 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1855) * lu(k,2304)
7767 141174528 : lu(k,2312) = lu(k,2312) - lu(k,1856) * lu(k,2304)
7768 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1857) * lu(k,2304)
7769 141174528 : lu(k,2331) = lu(k,2331) - lu(k,1849) * lu(k,2330)
7770 141174528 : lu(k,2332) = lu(k,2332) - lu(k,1850) * lu(k,2330)
7771 141174528 : lu(k,2333) = lu(k,2333) - lu(k,1851) * lu(k,2330)
7772 141174528 : lu(k,2334) = lu(k,2334) - lu(k,1852) * lu(k,2330)
7773 141174528 : lu(k,2335) = lu(k,2335) - lu(k,1853) * lu(k,2330)
7774 141174528 : lu(k,2336) = lu(k,2336) - lu(k,1854) * lu(k,2330)
7775 141174528 : lu(k,2337) = lu(k,2337) - lu(k,1855) * lu(k,2330)
7776 141174528 : lu(k,2338) = lu(k,2338) - lu(k,1856) * lu(k,2330)
7777 141174528 : lu(k,2339) = lu(k,2339) - lu(k,1857) * lu(k,2330)
7778 141174528 : lu(k,2357) = lu(k,2357) - lu(k,1849) * lu(k,2356)
7779 141174528 : lu(k,2358) = lu(k,2358) - lu(k,1850) * lu(k,2356)
7780 141174528 : lu(k,2359) = lu(k,2359) - lu(k,1851) * lu(k,2356)
7781 141174528 : lu(k,2360) = lu(k,2360) - lu(k,1852) * lu(k,2356)
7782 141174528 : lu(k,2361) = lu(k,2361) - lu(k,1853) * lu(k,2356)
7783 141174528 : lu(k,2362) = lu(k,2362) - lu(k,1854) * lu(k,2356)
7784 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1855) * lu(k,2356)
7785 141174528 : lu(k,2364) = lu(k,2364) - lu(k,1856) * lu(k,2356)
7786 141174528 : lu(k,2365) = lu(k,2365) - lu(k,1857) * lu(k,2356)
7787 141174528 : lu(k,1952) = 1._r8 / lu(k,1952)
7788 141174528 : lu(k,1953) = lu(k,1953) * lu(k,1952)
7789 141174528 : lu(k,1954) = lu(k,1954) * lu(k,1952)
7790 141174528 : lu(k,1955) = lu(k,1955) * lu(k,1952)
7791 141174528 : lu(k,1956) = lu(k,1956) * lu(k,1952)
7792 141174528 : lu(k,1957) = lu(k,1957) * lu(k,1952)
7793 141174528 : lu(k,1958) = lu(k,1958) * lu(k,1952)
7794 141174528 : lu(k,1959) = lu(k,1959) * lu(k,1952)
7795 141174528 : lu(k,1960) = lu(k,1960) * lu(k,1952)
7796 141174528 : lu(k,2005) = lu(k,2005) - lu(k,1953) * lu(k,2004)
7797 141174528 : lu(k,2006) = lu(k,2006) - lu(k,1954) * lu(k,2004)
7798 141174528 : lu(k,2007) = lu(k,2007) - lu(k,1955) * lu(k,2004)
7799 141174528 : lu(k,2008) = lu(k,2008) - lu(k,1956) * lu(k,2004)
7800 141174528 : lu(k,2009) = lu(k,2009) - lu(k,1957) * lu(k,2004)
7801 141174528 : lu(k,2010) = lu(k,2010) - lu(k,1958) * lu(k,2004)
7802 141174528 : lu(k,2011) = lu(k,2011) - lu(k,1959) * lu(k,2004)
7803 141174528 : lu(k,2012) = lu(k,2012) - lu(k,1960) * lu(k,2004)
7804 141174528 : lu(k,2028) = lu(k,2028) - lu(k,1953) * lu(k,2027)
7805 141174528 : lu(k,2029) = lu(k,2029) - lu(k,1954) * lu(k,2027)
7806 141174528 : lu(k,2030) = lu(k,2030) - lu(k,1955) * lu(k,2027)
7807 141174528 : lu(k,2031) = lu(k,2031) - lu(k,1956) * lu(k,2027)
7808 141174528 : lu(k,2032) = lu(k,2032) - lu(k,1957) * lu(k,2027)
7809 141174528 : lu(k,2033) = lu(k,2033) - lu(k,1958) * lu(k,2027)
7810 141174528 : lu(k,2034) = lu(k,2034) - lu(k,1959) * lu(k,2027)
7811 141174528 : lu(k,2035) = lu(k,2035) - lu(k,1960) * lu(k,2027)
7812 141174528 : lu(k,2087) = lu(k,2087) - lu(k,1953) * lu(k,2086)
7813 141174528 : lu(k,2088) = lu(k,2088) - lu(k,1954) * lu(k,2086)
7814 141174528 : lu(k,2089) = lu(k,2089) - lu(k,1955) * lu(k,2086)
7815 141174528 : lu(k,2090) = lu(k,2090) - lu(k,1956) * lu(k,2086)
7816 141174528 : lu(k,2091) = lu(k,2091) - lu(k,1957) * lu(k,2086)
7817 141174528 : lu(k,2092) = lu(k,2092) - lu(k,1958) * lu(k,2086)
7818 141174528 : lu(k,2093) = lu(k,2093) - lu(k,1959) * lu(k,2086)
7819 141174528 : lu(k,2094) = lu(k,2094) - lu(k,1960) * lu(k,2086)
7820 141174528 : lu(k,2126) = lu(k,2126) - lu(k,1953) * lu(k,2125)
7821 141174528 : lu(k,2127) = lu(k,2127) - lu(k,1954) * lu(k,2125)
7822 141174528 : lu(k,2128) = lu(k,2128) - lu(k,1955) * lu(k,2125)
7823 141174528 : lu(k,2129) = lu(k,2129) - lu(k,1956) * lu(k,2125)
7824 141174528 : lu(k,2130) = lu(k,2130) - lu(k,1957) * lu(k,2125)
7825 141174528 : lu(k,2131) = lu(k,2131) - lu(k,1958) * lu(k,2125)
7826 141174528 : lu(k,2132) = lu(k,2132) - lu(k,1959) * lu(k,2125)
7827 141174528 : lu(k,2133) = lu(k,2133) - lu(k,1960) * lu(k,2125)
7828 141174528 : lu(k,2188) = lu(k,2188) - lu(k,1953) * lu(k,2187)
7829 141174528 : lu(k,2189) = lu(k,2189) - lu(k,1954) * lu(k,2187)
7830 141174528 : lu(k,2190) = lu(k,2190) - lu(k,1955) * lu(k,2187)
7831 141174528 : lu(k,2191) = lu(k,2191) - lu(k,1956) * lu(k,2187)
7832 141174528 : lu(k,2192) = lu(k,2192) - lu(k,1957) * lu(k,2187)
7833 141174528 : lu(k,2193) = lu(k,2193) - lu(k,1958) * lu(k,2187)
7834 141174528 : lu(k,2194) = lu(k,2194) - lu(k,1959) * lu(k,2187)
7835 141174528 : lu(k,2195) = lu(k,2195) - lu(k,1960) * lu(k,2187)
7836 141174528 : lu(k,2306) = lu(k,2306) - lu(k,1953) * lu(k,2305)
7837 141174528 : lu(k,2307) = lu(k,2307) - lu(k,1954) * lu(k,2305)
7838 141174528 : lu(k,2308) = lu(k,2308) - lu(k,1955) * lu(k,2305)
7839 141174528 : lu(k,2309) = lu(k,2309) - lu(k,1956) * lu(k,2305)
7840 141174528 : lu(k,2310) = lu(k,2310) - lu(k,1957) * lu(k,2305)
7841 141174528 : lu(k,2311) = lu(k,2311) - lu(k,1958) * lu(k,2305)
7842 141174528 : lu(k,2312) = lu(k,2312) - lu(k,1959) * lu(k,2305)
7843 141174528 : lu(k,2313) = lu(k,2313) - lu(k,1960) * lu(k,2305)
7844 141174528 : lu(k,2332) = lu(k,2332) - lu(k,1953) * lu(k,2331)
7845 141174528 : lu(k,2333) = lu(k,2333) - lu(k,1954) * lu(k,2331)
7846 141174528 : lu(k,2334) = lu(k,2334) - lu(k,1955) * lu(k,2331)
7847 141174528 : lu(k,2335) = lu(k,2335) - lu(k,1956) * lu(k,2331)
7848 141174528 : lu(k,2336) = lu(k,2336) - lu(k,1957) * lu(k,2331)
7849 141174528 : lu(k,2337) = lu(k,2337) - lu(k,1958) * lu(k,2331)
7850 141174528 : lu(k,2338) = lu(k,2338) - lu(k,1959) * lu(k,2331)
7851 141174528 : lu(k,2339) = lu(k,2339) - lu(k,1960) * lu(k,2331)
7852 141174528 : lu(k,2358) = lu(k,2358) - lu(k,1953) * lu(k,2357)
7853 141174528 : lu(k,2359) = lu(k,2359) - lu(k,1954) * lu(k,2357)
7854 141174528 : lu(k,2360) = lu(k,2360) - lu(k,1955) * lu(k,2357)
7855 141174528 : lu(k,2361) = lu(k,2361) - lu(k,1956) * lu(k,2357)
7856 141174528 : lu(k,2362) = lu(k,2362) - lu(k,1957) * lu(k,2357)
7857 141174528 : lu(k,2363) = lu(k,2363) - lu(k,1958) * lu(k,2357)
7858 141174528 : lu(k,2364) = lu(k,2364) - lu(k,1959) * lu(k,2357)
7859 141174528 : lu(k,2365) = lu(k,2365) - lu(k,1960) * lu(k,2357)
7860 141174528 : lu(k,2005) = 1._r8 / lu(k,2005)
7861 141174528 : lu(k,2006) = lu(k,2006) * lu(k,2005)
7862 141174528 : lu(k,2007) = lu(k,2007) * lu(k,2005)
7863 141174528 : lu(k,2008) = lu(k,2008) * lu(k,2005)
7864 141174528 : lu(k,2009) = lu(k,2009) * lu(k,2005)
7865 141174528 : lu(k,2010) = lu(k,2010) * lu(k,2005)
7866 141174528 : lu(k,2011) = lu(k,2011) * lu(k,2005)
7867 141174528 : lu(k,2012) = lu(k,2012) * lu(k,2005)
7868 141174528 : lu(k,2029) = lu(k,2029) - lu(k,2006) * lu(k,2028)
7869 141174528 : lu(k,2030) = lu(k,2030) - lu(k,2007) * lu(k,2028)
7870 141174528 : lu(k,2031) = lu(k,2031) - lu(k,2008) * lu(k,2028)
7871 141174528 : lu(k,2032) = lu(k,2032) - lu(k,2009) * lu(k,2028)
7872 141174528 : lu(k,2033) = lu(k,2033) - lu(k,2010) * lu(k,2028)
7873 141174528 : lu(k,2034) = lu(k,2034) - lu(k,2011) * lu(k,2028)
7874 141174528 : lu(k,2035) = lu(k,2035) - lu(k,2012) * lu(k,2028)
7875 141174528 : lu(k,2088) = lu(k,2088) - lu(k,2006) * lu(k,2087)
7876 141174528 : lu(k,2089) = lu(k,2089) - lu(k,2007) * lu(k,2087)
7877 141174528 : lu(k,2090) = lu(k,2090) - lu(k,2008) * lu(k,2087)
7878 141174528 : lu(k,2091) = lu(k,2091) - lu(k,2009) * lu(k,2087)
7879 141174528 : lu(k,2092) = lu(k,2092) - lu(k,2010) * lu(k,2087)
7880 141174528 : lu(k,2093) = lu(k,2093) - lu(k,2011) * lu(k,2087)
7881 141174528 : lu(k,2094) = lu(k,2094) - lu(k,2012) * lu(k,2087)
7882 141174528 : lu(k,2127) = lu(k,2127) - lu(k,2006) * lu(k,2126)
7883 141174528 : lu(k,2128) = lu(k,2128) - lu(k,2007) * lu(k,2126)
7884 141174528 : lu(k,2129) = lu(k,2129) - lu(k,2008) * lu(k,2126)
7885 141174528 : lu(k,2130) = lu(k,2130) - lu(k,2009) * lu(k,2126)
7886 141174528 : lu(k,2131) = lu(k,2131) - lu(k,2010) * lu(k,2126)
7887 141174528 : lu(k,2132) = lu(k,2132) - lu(k,2011) * lu(k,2126)
7888 141174528 : lu(k,2133) = lu(k,2133) - lu(k,2012) * lu(k,2126)
7889 141174528 : lu(k,2189) = lu(k,2189) - lu(k,2006) * lu(k,2188)
7890 141174528 : lu(k,2190) = lu(k,2190) - lu(k,2007) * lu(k,2188)
7891 141174528 : lu(k,2191) = lu(k,2191) - lu(k,2008) * lu(k,2188)
7892 141174528 : lu(k,2192) = lu(k,2192) - lu(k,2009) * lu(k,2188)
7893 141174528 : lu(k,2193) = lu(k,2193) - lu(k,2010) * lu(k,2188)
7894 141174528 : lu(k,2194) = lu(k,2194) - lu(k,2011) * lu(k,2188)
7895 141174528 : lu(k,2195) = lu(k,2195) - lu(k,2012) * lu(k,2188)
7896 141174528 : lu(k,2307) = lu(k,2307) - lu(k,2006) * lu(k,2306)
7897 141174528 : lu(k,2308) = lu(k,2308) - lu(k,2007) * lu(k,2306)
7898 141174528 : lu(k,2309) = lu(k,2309) - lu(k,2008) * lu(k,2306)
7899 141174528 : lu(k,2310) = lu(k,2310) - lu(k,2009) * lu(k,2306)
7900 141174528 : lu(k,2311) = lu(k,2311) - lu(k,2010) * lu(k,2306)
7901 141174528 : lu(k,2312) = lu(k,2312) - lu(k,2011) * lu(k,2306)
7902 141174528 : lu(k,2313) = lu(k,2313) - lu(k,2012) * lu(k,2306)
7903 141174528 : lu(k,2333) = lu(k,2333) - lu(k,2006) * lu(k,2332)
7904 141174528 : lu(k,2334) = lu(k,2334) - lu(k,2007) * lu(k,2332)
7905 141174528 : lu(k,2335) = lu(k,2335) - lu(k,2008) * lu(k,2332)
7906 141174528 : lu(k,2336) = lu(k,2336) - lu(k,2009) * lu(k,2332)
7907 141174528 : lu(k,2337) = lu(k,2337) - lu(k,2010) * lu(k,2332)
7908 141174528 : lu(k,2338) = lu(k,2338) - lu(k,2011) * lu(k,2332)
7909 141174528 : lu(k,2339) = lu(k,2339) - lu(k,2012) * lu(k,2332)
7910 141174528 : lu(k,2359) = lu(k,2359) - lu(k,2006) * lu(k,2358)
7911 141174528 : lu(k,2360) = lu(k,2360) - lu(k,2007) * lu(k,2358)
7912 141174528 : lu(k,2361) = lu(k,2361) - lu(k,2008) * lu(k,2358)
7913 141174528 : lu(k,2362) = lu(k,2362) - lu(k,2009) * lu(k,2358)
7914 141174528 : lu(k,2363) = lu(k,2363) - lu(k,2010) * lu(k,2358)
7915 141174528 : lu(k,2364) = lu(k,2364) - lu(k,2011) * lu(k,2358)
7916 141174528 : lu(k,2365) = lu(k,2365) - lu(k,2012) * lu(k,2358)
7917 141174528 : lu(k,2029) = 1._r8 / lu(k,2029)
7918 141174528 : lu(k,2030) = lu(k,2030) * lu(k,2029)
7919 141174528 : lu(k,2031) = lu(k,2031) * lu(k,2029)
7920 141174528 : lu(k,2032) = lu(k,2032) * lu(k,2029)
7921 141174528 : lu(k,2033) = lu(k,2033) * lu(k,2029)
7922 141174528 : lu(k,2034) = lu(k,2034) * lu(k,2029)
7923 141174528 : lu(k,2035) = lu(k,2035) * lu(k,2029)
7924 141174528 : lu(k,2089) = lu(k,2089) - lu(k,2030) * lu(k,2088)
7925 141174528 : lu(k,2090) = lu(k,2090) - lu(k,2031) * lu(k,2088)
7926 141174528 : lu(k,2091) = lu(k,2091) - lu(k,2032) * lu(k,2088)
7927 141174528 : lu(k,2092) = lu(k,2092) - lu(k,2033) * lu(k,2088)
7928 141174528 : lu(k,2093) = lu(k,2093) - lu(k,2034) * lu(k,2088)
7929 141174528 : lu(k,2094) = lu(k,2094) - lu(k,2035) * lu(k,2088)
7930 141174528 : lu(k,2128) = lu(k,2128) - lu(k,2030) * lu(k,2127)
7931 141174528 : lu(k,2129) = lu(k,2129) - lu(k,2031) * lu(k,2127)
7932 141174528 : lu(k,2130) = lu(k,2130) - lu(k,2032) * lu(k,2127)
7933 141174528 : lu(k,2131) = lu(k,2131) - lu(k,2033) * lu(k,2127)
7934 141174528 : lu(k,2132) = lu(k,2132) - lu(k,2034) * lu(k,2127)
7935 141174528 : lu(k,2133) = lu(k,2133) - lu(k,2035) * lu(k,2127)
7936 141174528 : lu(k,2190) = lu(k,2190) - lu(k,2030) * lu(k,2189)
7937 141174528 : lu(k,2191) = lu(k,2191) - lu(k,2031) * lu(k,2189)
7938 141174528 : lu(k,2192) = lu(k,2192) - lu(k,2032) * lu(k,2189)
7939 141174528 : lu(k,2193) = lu(k,2193) - lu(k,2033) * lu(k,2189)
7940 141174528 : lu(k,2194) = lu(k,2194) - lu(k,2034) * lu(k,2189)
7941 141174528 : lu(k,2195) = lu(k,2195) - lu(k,2035) * lu(k,2189)
7942 141174528 : lu(k,2308) = lu(k,2308) - lu(k,2030) * lu(k,2307)
7943 141174528 : lu(k,2309) = lu(k,2309) - lu(k,2031) * lu(k,2307)
7944 141174528 : lu(k,2310) = lu(k,2310) - lu(k,2032) * lu(k,2307)
7945 141174528 : lu(k,2311) = lu(k,2311) - lu(k,2033) * lu(k,2307)
7946 141174528 : lu(k,2312) = lu(k,2312) - lu(k,2034) * lu(k,2307)
7947 141174528 : lu(k,2313) = lu(k,2313) - lu(k,2035) * lu(k,2307)
7948 141174528 : lu(k,2334) = lu(k,2334) - lu(k,2030) * lu(k,2333)
7949 141174528 : lu(k,2335) = lu(k,2335) - lu(k,2031) * lu(k,2333)
7950 141174528 : lu(k,2336) = lu(k,2336) - lu(k,2032) * lu(k,2333)
7951 141174528 : lu(k,2337) = lu(k,2337) - lu(k,2033) * lu(k,2333)
7952 141174528 : lu(k,2338) = lu(k,2338) - lu(k,2034) * lu(k,2333)
7953 141174528 : lu(k,2339) = lu(k,2339) - lu(k,2035) * lu(k,2333)
7954 141174528 : lu(k,2360) = lu(k,2360) - lu(k,2030) * lu(k,2359)
7955 141174528 : lu(k,2361) = lu(k,2361) - lu(k,2031) * lu(k,2359)
7956 141174528 : lu(k,2362) = lu(k,2362) - lu(k,2032) * lu(k,2359)
7957 141174528 : lu(k,2363) = lu(k,2363) - lu(k,2033) * lu(k,2359)
7958 141174528 : lu(k,2364) = lu(k,2364) - lu(k,2034) * lu(k,2359)
7959 145586232 : lu(k,2365) = lu(k,2365) - lu(k,2035) * lu(k,2359)
7960 : end do
7961 4411704 : end subroutine lu_fac30
7962 4411704 : subroutine lu_fac31( avec_len, lu )
7963 : use chem_mods, only : nzcnt
7964 : use shr_kind_mod, only : r8 => shr_kind_r8
7965 : implicit none
7966 : !-----------------------------------------------------------------------
7967 : ! ... dummy args
7968 : !-----------------------------------------------------------------------
7969 : integer, intent(in) :: avec_len
7970 : real(r8), intent(inout) :: lu(veclen,nzcnt)
7971 : !-----------------------------------------------------------------------
7972 : ! ... local variables
7973 : !-----------------------------------------------------------------------
7974 : integer :: k
7975 145586232 : do k = 1,avec_len
7976 141174528 : lu(k,2089) = 1._r8 / lu(k,2089)
7977 141174528 : lu(k,2090) = lu(k,2090) * lu(k,2089)
7978 141174528 : lu(k,2091) = lu(k,2091) * lu(k,2089)
7979 141174528 : lu(k,2092) = lu(k,2092) * lu(k,2089)
7980 141174528 : lu(k,2093) = lu(k,2093) * lu(k,2089)
7981 141174528 : lu(k,2094) = lu(k,2094) * lu(k,2089)
7982 141174528 : lu(k,2129) = lu(k,2129) - lu(k,2090) * lu(k,2128)
7983 141174528 : lu(k,2130) = lu(k,2130) - lu(k,2091) * lu(k,2128)
7984 141174528 : lu(k,2131) = lu(k,2131) - lu(k,2092) * lu(k,2128)
7985 141174528 : lu(k,2132) = lu(k,2132) - lu(k,2093) * lu(k,2128)
7986 141174528 : lu(k,2133) = lu(k,2133) - lu(k,2094) * lu(k,2128)
7987 141174528 : lu(k,2191) = lu(k,2191) - lu(k,2090) * lu(k,2190)
7988 141174528 : lu(k,2192) = lu(k,2192) - lu(k,2091) * lu(k,2190)
7989 141174528 : lu(k,2193) = lu(k,2193) - lu(k,2092) * lu(k,2190)
7990 141174528 : lu(k,2194) = lu(k,2194) - lu(k,2093) * lu(k,2190)
7991 141174528 : lu(k,2195) = lu(k,2195) - lu(k,2094) * lu(k,2190)
7992 141174528 : lu(k,2309) = lu(k,2309) - lu(k,2090) * lu(k,2308)
7993 141174528 : lu(k,2310) = lu(k,2310) - lu(k,2091) * lu(k,2308)
7994 141174528 : lu(k,2311) = lu(k,2311) - lu(k,2092) * lu(k,2308)
7995 141174528 : lu(k,2312) = lu(k,2312) - lu(k,2093) * lu(k,2308)
7996 141174528 : lu(k,2313) = lu(k,2313) - lu(k,2094) * lu(k,2308)
7997 141174528 : lu(k,2335) = lu(k,2335) - lu(k,2090) * lu(k,2334)
7998 141174528 : lu(k,2336) = lu(k,2336) - lu(k,2091) * lu(k,2334)
7999 141174528 : lu(k,2337) = lu(k,2337) - lu(k,2092) * lu(k,2334)
8000 141174528 : lu(k,2338) = lu(k,2338) - lu(k,2093) * lu(k,2334)
8001 141174528 : lu(k,2339) = lu(k,2339) - lu(k,2094) * lu(k,2334)
8002 141174528 : lu(k,2361) = lu(k,2361) - lu(k,2090) * lu(k,2360)
8003 141174528 : lu(k,2362) = lu(k,2362) - lu(k,2091) * lu(k,2360)
8004 141174528 : lu(k,2363) = lu(k,2363) - lu(k,2092) * lu(k,2360)
8005 141174528 : lu(k,2364) = lu(k,2364) - lu(k,2093) * lu(k,2360)
8006 141174528 : lu(k,2365) = lu(k,2365) - lu(k,2094) * lu(k,2360)
8007 141174528 : lu(k,2129) = 1._r8 / lu(k,2129)
8008 141174528 : lu(k,2130) = lu(k,2130) * lu(k,2129)
8009 141174528 : lu(k,2131) = lu(k,2131) * lu(k,2129)
8010 141174528 : lu(k,2132) = lu(k,2132) * lu(k,2129)
8011 141174528 : lu(k,2133) = lu(k,2133) * lu(k,2129)
8012 141174528 : lu(k,2192) = lu(k,2192) - lu(k,2130) * lu(k,2191)
8013 141174528 : lu(k,2193) = lu(k,2193) - lu(k,2131) * lu(k,2191)
8014 141174528 : lu(k,2194) = lu(k,2194) - lu(k,2132) * lu(k,2191)
8015 141174528 : lu(k,2195) = lu(k,2195) - lu(k,2133) * lu(k,2191)
8016 141174528 : lu(k,2310) = lu(k,2310) - lu(k,2130) * lu(k,2309)
8017 141174528 : lu(k,2311) = lu(k,2311) - lu(k,2131) * lu(k,2309)
8018 141174528 : lu(k,2312) = lu(k,2312) - lu(k,2132) * lu(k,2309)
8019 141174528 : lu(k,2313) = lu(k,2313) - lu(k,2133) * lu(k,2309)
8020 141174528 : lu(k,2336) = lu(k,2336) - lu(k,2130) * lu(k,2335)
8021 141174528 : lu(k,2337) = lu(k,2337) - lu(k,2131) * lu(k,2335)
8022 141174528 : lu(k,2338) = lu(k,2338) - lu(k,2132) * lu(k,2335)
8023 141174528 : lu(k,2339) = lu(k,2339) - lu(k,2133) * lu(k,2335)
8024 141174528 : lu(k,2362) = lu(k,2362) - lu(k,2130) * lu(k,2361)
8025 141174528 : lu(k,2363) = lu(k,2363) - lu(k,2131) * lu(k,2361)
8026 141174528 : lu(k,2364) = lu(k,2364) - lu(k,2132) * lu(k,2361)
8027 141174528 : lu(k,2365) = lu(k,2365) - lu(k,2133) * lu(k,2361)
8028 141174528 : lu(k,2192) = 1._r8 / lu(k,2192)
8029 141174528 : lu(k,2193) = lu(k,2193) * lu(k,2192)
8030 141174528 : lu(k,2194) = lu(k,2194) * lu(k,2192)
8031 141174528 : lu(k,2195) = lu(k,2195) * lu(k,2192)
8032 141174528 : lu(k,2311) = lu(k,2311) - lu(k,2193) * lu(k,2310)
8033 141174528 : lu(k,2312) = lu(k,2312) - lu(k,2194) * lu(k,2310)
8034 141174528 : lu(k,2313) = lu(k,2313) - lu(k,2195) * lu(k,2310)
8035 141174528 : lu(k,2337) = lu(k,2337) - lu(k,2193) * lu(k,2336)
8036 141174528 : lu(k,2338) = lu(k,2338) - lu(k,2194) * lu(k,2336)
8037 141174528 : lu(k,2339) = lu(k,2339) - lu(k,2195) * lu(k,2336)
8038 141174528 : lu(k,2363) = lu(k,2363) - lu(k,2193) * lu(k,2362)
8039 141174528 : lu(k,2364) = lu(k,2364) - lu(k,2194) * lu(k,2362)
8040 141174528 : lu(k,2365) = lu(k,2365) - lu(k,2195) * lu(k,2362)
8041 141174528 : lu(k,2311) = 1._r8 / lu(k,2311)
8042 141174528 : lu(k,2312) = lu(k,2312) * lu(k,2311)
8043 141174528 : lu(k,2313) = lu(k,2313) * lu(k,2311)
8044 141174528 : lu(k,2338) = lu(k,2338) - lu(k,2312) * lu(k,2337)
8045 141174528 : lu(k,2339) = lu(k,2339) - lu(k,2313) * lu(k,2337)
8046 141174528 : lu(k,2364) = lu(k,2364) - lu(k,2312) * lu(k,2363)
8047 141174528 : lu(k,2365) = lu(k,2365) - lu(k,2313) * lu(k,2363)
8048 141174528 : lu(k,2338) = 1._r8 / lu(k,2338)
8049 141174528 : lu(k,2339) = lu(k,2339) * lu(k,2338)
8050 141174528 : lu(k,2365) = lu(k,2365) - lu(k,2339) * lu(k,2364)
8051 145586232 : lu(k,2365) = 1._r8 / lu(k,2365)
8052 : end do
8053 4411704 : end subroutine lu_fac31
8054 4411704 : subroutine lu_fac( avec_len, lu )
8055 : use chem_mods, only : nzcnt
8056 : use shr_kind_mod, only : r8 => shr_kind_r8
8057 : implicit none
8058 : !-----------------------------------------------------------------------
8059 : ! ... dummy args
8060 : !-----------------------------------------------------------------------
8061 : integer, intent(in) :: avec_len
8062 : real(r8), intent(inout) :: lu(veclen,nzcnt)
8063 4411704 : call lu_fac01( avec_len, lu )
8064 4411704 : call lu_fac02( avec_len, lu )
8065 4411704 : call lu_fac03( avec_len, lu )
8066 4411704 : call lu_fac04( avec_len, lu )
8067 4411704 : call lu_fac05( avec_len, lu )
8068 4411704 : call lu_fac06( avec_len, lu )
8069 4411704 : call lu_fac07( avec_len, lu )
8070 4411704 : call lu_fac08( avec_len, lu )
8071 4411704 : call lu_fac09( avec_len, lu )
8072 4411704 : call lu_fac10( avec_len, lu )
8073 4411704 : call lu_fac11( avec_len, lu )
8074 4411704 : call lu_fac12( avec_len, lu )
8075 4411704 : call lu_fac13( avec_len, lu )
8076 4411704 : call lu_fac14( avec_len, lu )
8077 4411704 : call lu_fac15( avec_len, lu )
8078 4411704 : call lu_fac16( avec_len, lu )
8079 4411704 : call lu_fac17( avec_len, lu )
8080 4411704 : call lu_fac18( avec_len, lu )
8081 4411704 : call lu_fac19( avec_len, lu )
8082 4411704 : call lu_fac20( avec_len, lu )
8083 4411704 : call lu_fac21( avec_len, lu )
8084 4411704 : call lu_fac22( avec_len, lu )
8085 4411704 : call lu_fac23( avec_len, lu )
8086 4411704 : call lu_fac24( avec_len, lu )
8087 4411704 : call lu_fac25( avec_len, lu )
8088 4411704 : call lu_fac26( avec_len, lu )
8089 4411704 : call lu_fac27( avec_len, lu )
8090 4411704 : call lu_fac28( avec_len, lu )
8091 4411704 : call lu_fac29( avec_len, lu )
8092 4411704 : call lu_fac30( avec_len, lu )
8093 4411704 : call lu_fac31( avec_len, lu )
8094 4411704 : end subroutine lu_fac
8095 : end module mo_lu_factor
|