Line data Source code
1 : module mo_lu_factor
2 : use chem_mods, only: veclen
3 : private
4 : public :: lu_fac
5 : contains
6 9949925 : 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 325174377 : do k = 1,avec_len
20 315224452 : lu(k,1) = 1._r8 / lu(k,1)
21 315224452 : lu(k,2) = 1._r8 / lu(k,2)
22 315224452 : lu(k,3) = 1._r8 / lu(k,3)
23 315224452 : lu(k,4) = 1._r8 / lu(k,4)
24 315224452 : lu(k,5) = 1._r8 / lu(k,5)
25 315224452 : lu(k,6) = 1._r8 / lu(k,6)
26 315224452 : lu(k,7) = 1._r8 / lu(k,7)
27 315224452 : lu(k,8) = 1._r8 / lu(k,8)
28 315224452 : lu(k,9) = 1._r8 / lu(k,9)
29 315224452 : lu(k,10) = 1._r8 / lu(k,10)
30 315224452 : lu(k,11) = 1._r8 / lu(k,11)
31 315224452 : lu(k,12) = 1._r8 / lu(k,12)
32 315224452 : lu(k,13) = 1._r8 / lu(k,13)
33 315224452 : lu(k,14) = 1._r8 / lu(k,14)
34 315224452 : lu(k,15) = 1._r8 / lu(k,15)
35 315224452 : lu(k,16) = 1._r8 / lu(k,16)
36 315224452 : lu(k,17) = 1._r8 / lu(k,17)
37 315224452 : lu(k,18) = 1._r8 / lu(k,18)
38 315224452 : lu(k,19) = 1._r8 / lu(k,19)
39 315224452 : lu(k,20) = 1._r8 / lu(k,20)
40 315224452 : lu(k,21) = 1._r8 / lu(k,21)
41 315224452 : lu(k,22) = 1._r8 / lu(k,22)
42 315224452 : lu(k,23) = 1._r8 / lu(k,23)
43 315224452 : lu(k,24) = 1._r8 / lu(k,24)
44 315224452 : lu(k,25) = 1._r8 / lu(k,25)
45 315224452 : lu(k,26) = 1._r8 / lu(k,26)
46 315224452 : lu(k,27) = 1._r8 / lu(k,27)
47 315224452 : lu(k,28) = 1._r8 / lu(k,28)
48 315224452 : lu(k,29) = 1._r8 / lu(k,29)
49 315224452 : lu(k,30) = 1._r8 / lu(k,30)
50 315224452 : lu(k,31) = 1._r8 / lu(k,31)
51 315224452 : lu(k,32) = 1._r8 / lu(k,32)
52 315224452 : lu(k,33) = 1._r8 / lu(k,33)
53 315224452 : lu(k,34) = 1._r8 / lu(k,34)
54 315224452 : lu(k,35) = 1._r8 / lu(k,35)
55 315224452 : lu(k,36) = 1._r8 / lu(k,36)
56 315224452 : lu(k,37) = 1._r8 / lu(k,37)
57 315224452 : lu(k,38) = 1._r8 / lu(k,38)
58 315224452 : lu(k,39) = 1._r8 / lu(k,39)
59 315224452 : lu(k,40) = 1._r8 / lu(k,40)
60 315224452 : lu(k,41) = 1._r8 / lu(k,41)
61 315224452 : lu(k,42) = 1._r8 / lu(k,42)
62 315224452 : lu(k,43) = 1._r8 / lu(k,43)
63 315224452 : lu(k,44) = 1._r8 / lu(k,44)
64 315224452 : lu(k,50) = 1._r8 / lu(k,50)
65 315224452 : lu(k,56) = 1._r8 / lu(k,56)
66 315224452 : lu(k,62) = 1._r8 / lu(k,62)
67 315224452 : lu(k,68) = 1._r8 / lu(k,68)
68 315224452 : lu(k,74) = 1._r8 / lu(k,74)
69 315224452 : lu(k,76) = 1._r8 / lu(k,76)
70 325174377 : lu(k,82) = 1._r8 / lu(k,82)
71 : end do
72 9949925 : end subroutine lu_fac01
73 9949925 : 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 325174377 : do k = 1,avec_len
87 315224452 : lu(k,88) = 1._r8 / lu(k,88)
88 315224452 : lu(k,94) = 1._r8 / lu(k,94)
89 315224452 : lu(k,95) = 1._r8 / lu(k,95)
90 315224452 : lu(k,96) = lu(k,96) * lu(k,95)
91 315224452 : lu(k,97) = lu(k,97) * lu(k,95)
92 315224452 : lu(k,1592) = lu(k,1592) - lu(k,96) * lu(k,1580)
93 315224452 : lu(k,1602) = lu(k,1602) - lu(k,97) * lu(k,1580)
94 315224452 : lu(k,98) = 1._r8 / lu(k,98)
95 315224452 : lu(k,99) = lu(k,99) * lu(k,98)
96 315224452 : lu(k,100) = lu(k,100) * lu(k,98)
97 315224452 : lu(k,1818) = lu(k,1818) - lu(k,99) * lu(k,1681)
98 315224452 : lu(k,1831) = lu(k,1831) - lu(k,100) * lu(k,1681)
99 315224452 : lu(k,101) = 1._r8 / lu(k,101)
100 315224452 : lu(k,102) = lu(k,102) * lu(k,101)
101 315224452 : lu(k,103) = lu(k,103) * lu(k,101)
102 315224452 : lu(k,2031) = lu(k,2031) - lu(k,102) * lu(k,1998)
103 315224452 : lu(k,2035) = lu(k,2035) - lu(k,103) * lu(k,1998)
104 315224452 : lu(k,104) = 1._r8 / lu(k,104)
105 315224452 : lu(k,105) = lu(k,105) * lu(k,104)
106 315224452 : lu(k,106) = lu(k,106) * lu(k,104)
107 315224452 : lu(k,1818) = lu(k,1818) - lu(k,105) * lu(k,1682)
108 315224452 : lu(k,1829) = lu(k,1829) - lu(k,106) * lu(k,1682)
109 315224452 : lu(k,107) = 1._r8 / lu(k,107)
110 315224452 : lu(k,108) = lu(k,108) * lu(k,107)
111 315224452 : lu(k,109) = lu(k,109) * lu(k,107)
112 315224452 : lu(k,110) = lu(k,110) * lu(k,107)
113 315224452 : lu(k,2009) = lu(k,2009) - lu(k,108) * lu(k,1999)
114 315224452 : lu(k,2022) = lu(k,2022) - lu(k,109) * lu(k,1999)
115 315224452 : lu(k,2031) = lu(k,2031) - lu(k,110) * lu(k,1999)
116 315224452 : lu(k,111) = 1._r8 / lu(k,111)
117 315224452 : lu(k,112) = lu(k,112) * lu(k,111)
118 315224452 : lu(k,113) = lu(k,113) * lu(k,111)
119 315224452 : lu(k,114) = lu(k,114) * lu(k,111)
120 315224452 : lu(k,2011) = lu(k,2011) - lu(k,112) * lu(k,2000)
121 315224452 : lu(k,2031) = lu(k,2031) - lu(k,113) * lu(k,2000)
122 315224452 : lu(k,2035) = lu(k,2035) - lu(k,114) * lu(k,2000)
123 315224452 : lu(k,115) = 1._r8 / lu(k,115)
124 315224452 : lu(k,116) = lu(k,116) * lu(k,115)
125 315224452 : lu(k,117) = lu(k,117) * lu(k,115)
126 315224452 : lu(k,118) = lu(k,118) * lu(k,115)
127 315224452 : lu(k,2009) = lu(k,2009) - lu(k,116) * lu(k,2001)
128 315224452 : lu(k,2031) = lu(k,2031) - lu(k,117) * lu(k,2001)
129 315224452 : lu(k,2035) = lu(k,2035) - lu(k,118) * lu(k,2001)
130 315224452 : lu(k,119) = 1._r8 / lu(k,119)
131 315224452 : lu(k,120) = lu(k,120) * lu(k,119)
132 315224452 : lu(k,121) = lu(k,121) * lu(k,119)
133 315224452 : lu(k,122) = lu(k,122) * lu(k,119)
134 315224452 : lu(k,2009) = lu(k,2009) - lu(k,120) * lu(k,2002)
135 315224452 : lu(k,2031) = lu(k,2031) - lu(k,121) * lu(k,2002)
136 315224452 : lu(k,2035) = lu(k,2035) - lu(k,122) * lu(k,2002)
137 315224452 : lu(k,123) = 1._r8 / lu(k,123)
138 315224452 : lu(k,124) = lu(k,124) * lu(k,123)
139 315224452 : lu(k,125) = lu(k,125) * lu(k,123)
140 315224452 : lu(k,126) = lu(k,126) * lu(k,123)
141 315224452 : lu(k,1818) = lu(k,1818) - lu(k,124) * lu(k,1683)
142 315224452 : lu(k,1826) = lu(k,1826) - lu(k,125) * lu(k,1683)
143 315224452 : lu(k,1831) = lu(k,1831) - lu(k,126) * lu(k,1683)
144 315224452 : lu(k,127) = 1._r8 / lu(k,127)
145 315224452 : lu(k,128) = lu(k,128) * lu(k,127)
146 315224452 : lu(k,129) = lu(k,129) * lu(k,127)
147 315224452 : lu(k,796) = lu(k,796) - lu(k,128) * lu(k,795)
148 315224452 : lu(k,800) = - lu(k,129) * lu(k,795)
149 315224452 : lu(k,2293) = - lu(k,128) * lu(k,2275)
150 315224452 : lu(k,2357) = lu(k,2357) - lu(k,129) * lu(k,2275)
151 315224452 : lu(k,130) = 1._r8 / lu(k,130)
152 315224452 : lu(k,131) = lu(k,131) * lu(k,130)
153 315224452 : lu(k,132) = lu(k,132) * lu(k,130)
154 315224452 : lu(k,261) = lu(k,261) - lu(k,131) * lu(k,260)
155 315224452 : lu(k,264) = lu(k,264) - lu(k,132) * lu(k,260)
156 315224452 : lu(k,2424) = lu(k,2424) - lu(k,131) * lu(k,2423)
157 315224452 : lu(k,2449) = lu(k,2449) - lu(k,132) * lu(k,2423)
158 315224452 : lu(k,133) = 1._r8 / lu(k,133)
159 315224452 : lu(k,134) = lu(k,134) * lu(k,133)
160 315224452 : lu(k,135) = lu(k,135) * lu(k,133)
161 315224452 : lu(k,712) = lu(k,712) - lu(k,134) * lu(k,710)
162 315224452 : lu(k,715) = lu(k,715) - lu(k,135) * lu(k,710)
163 315224452 : lu(k,1799) = lu(k,1799) - lu(k,134) * lu(k,1684)
164 315224452 : lu(k,1818) = lu(k,1818) - lu(k,135) * lu(k,1684)
165 315224452 : lu(k,136) = 1._r8 / lu(k,136)
166 315224452 : lu(k,137) = lu(k,137) * lu(k,136)
167 315224452 : lu(k,138) = lu(k,138) * lu(k,136)
168 315224452 : lu(k,523) = lu(k,523) - lu(k,137) * lu(k,522)
169 315224452 : lu(k,527) = lu(k,527) - lu(k,138) * lu(k,522)
170 315224452 : lu(k,1932) = lu(k,1932) - lu(k,137) * lu(k,1927)
171 315224452 : lu(k,1960) = lu(k,1960) - lu(k,138) * lu(k,1927)
172 315224452 : lu(k,139) = 1._r8 / lu(k,139)
173 315224452 : lu(k,140) = lu(k,140) * lu(k,139)
174 315224452 : lu(k,141) = lu(k,141) * lu(k,139)
175 315224452 : lu(k,142) = lu(k,142) * lu(k,139)
176 315224452 : lu(k,143) = lu(k,143) * lu(k,139)
177 315224452 : lu(k,2009) = lu(k,2009) - lu(k,140) * lu(k,2003)
178 315224452 : lu(k,2022) = lu(k,2022) - lu(k,141) * lu(k,2003)
179 315224452 : lu(k,2031) = lu(k,2031) - lu(k,142) * lu(k,2003)
180 325174377 : lu(k,2035) = lu(k,2035) - lu(k,143) * lu(k,2003)
181 : end do
182 9949925 : end subroutine lu_fac02
183 9949925 : subroutine lu_fac03( avec_len, lu )
184 : use chem_mods, only : nzcnt
185 : use shr_kind_mod, only : r8 => shr_kind_r8
186 : implicit none
187 : !-----------------------------------------------------------------------
188 : ! ... dummy args
189 : !-----------------------------------------------------------------------
190 : integer, intent(in) :: avec_len
191 : real(r8), intent(inout) :: lu(veclen,nzcnt)
192 : !-----------------------------------------------------------------------
193 : ! ... local variables
194 : !-----------------------------------------------------------------------
195 : integer :: k
196 325174377 : do k = 1,avec_len
197 315224452 : lu(k,144) = 1._r8 / lu(k,144)
198 315224452 : lu(k,145) = lu(k,145) * lu(k,144)
199 315224452 : lu(k,146) = lu(k,146) * lu(k,144)
200 315224452 : lu(k,147) = lu(k,147) * lu(k,144)
201 315224452 : lu(k,148) = lu(k,148) * lu(k,144)
202 315224452 : lu(k,2009) = lu(k,2009) - lu(k,145) * lu(k,2004)
203 315224452 : lu(k,2019) = lu(k,2019) - lu(k,146) * lu(k,2004)
204 315224452 : lu(k,2022) = lu(k,2022) - lu(k,147) * lu(k,2004)
205 315224452 : lu(k,2031) = lu(k,2031) - lu(k,148) * lu(k,2004)
206 315224452 : lu(k,149) = 1._r8 / lu(k,149)
207 315224452 : lu(k,150) = lu(k,150) * lu(k,149)
208 315224452 : lu(k,151) = lu(k,151) * lu(k,149)
209 315224452 : lu(k,152) = lu(k,152) * lu(k,149)
210 315224452 : lu(k,153) = lu(k,153) * lu(k,149)
211 315224452 : lu(k,2009) = lu(k,2009) - lu(k,150) * lu(k,2005)
212 315224452 : lu(k,2011) = lu(k,2011) - lu(k,151) * lu(k,2005)
213 315224452 : lu(k,2031) = lu(k,2031) - lu(k,152) * lu(k,2005)
214 315224452 : lu(k,2035) = lu(k,2035) - lu(k,153) * lu(k,2005)
215 315224452 : lu(k,154) = 1._r8 / lu(k,154)
216 315224452 : lu(k,155) = lu(k,155) * lu(k,154)
217 315224452 : lu(k,156) = lu(k,156) * lu(k,154)
218 315224452 : lu(k,157) = lu(k,157) * lu(k,154)
219 315224452 : lu(k,158) = lu(k,158) * lu(k,154)
220 315224452 : lu(k,2009) = lu(k,2009) - lu(k,155) * lu(k,2006)
221 315224452 : lu(k,2019) = lu(k,2019) - lu(k,156) * lu(k,2006)
222 315224452 : lu(k,2031) = lu(k,2031) - lu(k,157) * lu(k,2006)
223 315224452 : lu(k,2035) = lu(k,2035) - lu(k,158) * lu(k,2006)
224 315224452 : lu(k,160) = 1._r8 / lu(k,160)
225 315224452 : lu(k,161) = lu(k,161) * lu(k,160)
226 315224452 : lu(k,162) = lu(k,162) * lu(k,160)
227 315224452 : lu(k,163) = lu(k,163) * lu(k,160)
228 315224452 : lu(k,164) = lu(k,164) * lu(k,160)
229 315224452 : lu(k,165) = lu(k,165) * lu(k,160)
230 315224452 : lu(k,1686) = lu(k,1686) - lu(k,161) * lu(k,1685)
231 315224452 : lu(k,1687) = lu(k,1687) - lu(k,162) * lu(k,1685)
232 315224452 : lu(k,1736) = lu(k,1736) - lu(k,163) * lu(k,1685)
233 315224452 : lu(k,1818) = lu(k,1818) - lu(k,164) * lu(k,1685)
234 315224452 : lu(k,1829) = lu(k,1829) - lu(k,165) * lu(k,1685)
235 315224452 : lu(k,166) = 1._r8 / lu(k,166)
236 315224452 : lu(k,167) = lu(k,167) * lu(k,166)
237 315224452 : lu(k,168) = lu(k,168) * lu(k,166)
238 315224452 : lu(k,169) = lu(k,169) * lu(k,166)
239 315224452 : lu(k,1731) = - lu(k,167) * lu(k,1686)
240 315224452 : lu(k,1793) = lu(k,1793) - lu(k,168) * lu(k,1686)
241 315224452 : lu(k,1829) = lu(k,1829) - lu(k,169) * lu(k,1686)
242 315224452 : lu(k,170) = 1._r8 / lu(k,170)
243 315224452 : lu(k,171) = lu(k,171) * lu(k,170)
244 315224452 : lu(k,172) = lu(k,172) * lu(k,170)
245 315224452 : lu(k,173) = lu(k,173) * lu(k,170)
246 315224452 : lu(k,174) = lu(k,174) * lu(k,170)
247 315224452 : lu(k,1729) = lu(k,1729) - lu(k,171) * lu(k,1687)
248 315224452 : lu(k,1732) = lu(k,1732) - lu(k,172) * lu(k,1687)
249 315224452 : lu(k,1818) = lu(k,1818) - lu(k,173) * lu(k,1687)
250 315224452 : lu(k,1829) = lu(k,1829) - lu(k,174) * lu(k,1687)
251 315224452 : lu(k,175) = 1._r8 / lu(k,175)
252 315224452 : lu(k,176) = lu(k,176) * lu(k,175)
253 315224452 : lu(k,842) = lu(k,842) - lu(k,176) * lu(k,836)
254 315224452 : lu(k,963) = lu(k,963) - lu(k,176) * lu(k,953)
255 315224452 : lu(k,1506) = lu(k,1506) - lu(k,176) * lu(k,1490)
256 315224452 : lu(k,1602) = lu(k,1602) - lu(k,176) * lu(k,1581)
257 315224452 : lu(k,2168) = lu(k,2168) - lu(k,176) * lu(k,2128)
258 315224452 : lu(k,177) = 1._r8 / lu(k,177)
259 315224452 : lu(k,178) = lu(k,178) * lu(k,177)
260 315224452 : lu(k,181) = lu(k,181) - lu(k,178) * lu(k,179)
261 315224452 : lu(k,1451) = - lu(k,178) * lu(k,1442)
262 315224452 : lu(k,1542) = lu(k,1542) - lu(k,178) * lu(k,1524)
263 315224452 : lu(k,2089) = lu(k,2089) - lu(k,178) * lu(k,2064)
264 315224452 : lu(k,2220) = lu(k,2220) - lu(k,178) * lu(k,2179)
265 315224452 : lu(k,180) = 1._r8 / lu(k,180)
266 315224452 : lu(k,181) = lu(k,181) * lu(k,180)
267 315224452 : lu(k,1451) = lu(k,1451) - lu(k,181) * lu(k,1443)
268 315224452 : lu(k,1542) = lu(k,1542) - lu(k,181) * lu(k,1525)
269 315224452 : lu(k,2023) = lu(k,2023) - lu(k,181) * lu(k,2007)
270 315224452 : lu(k,2089) = lu(k,2089) - lu(k,181) * lu(k,2065)
271 315224452 : lu(k,2220) = lu(k,2220) - lu(k,181) * lu(k,2180)
272 315224452 : lu(k,182) = 1._r8 / lu(k,182)
273 315224452 : lu(k,183) = lu(k,183) * lu(k,182)
274 315224452 : lu(k,184) = lu(k,184) * lu(k,182)
275 315224452 : lu(k,185) = lu(k,185) * lu(k,182)
276 315224452 : lu(k,1818) = lu(k,1818) - lu(k,183) * lu(k,1688)
277 315224452 : lu(k,1822) = - lu(k,184) * lu(k,1688)
278 315224452 : lu(k,1829) = lu(k,1829) - lu(k,185) * lu(k,1688)
279 315224452 : lu(k,2027) = lu(k,2027) - lu(k,183) * lu(k,2008)
280 315224452 : lu(k,2031) = lu(k,2031) - lu(k,184) * lu(k,2008)
281 315224452 : lu(k,2038) = lu(k,2038) - lu(k,185) * lu(k,2008)
282 315224452 : lu(k,187) = 1._r8 / lu(k,187)
283 315224452 : lu(k,188) = lu(k,188) * lu(k,187)
284 315224452 : lu(k,189) = lu(k,189) * lu(k,187)
285 315224452 : lu(k,190) = lu(k,190) * lu(k,187)
286 315224452 : lu(k,191) = lu(k,191) * lu(k,187)
287 315224452 : lu(k,192) = lu(k,192) * lu(k,187)
288 315224452 : lu(k,193) = lu(k,193) * lu(k,187)
289 315224452 : lu(k,1690) = lu(k,1690) - lu(k,188) * lu(k,1689)
290 315224452 : lu(k,1691) = lu(k,1691) - lu(k,189) * lu(k,1689)
291 315224452 : lu(k,1728) = lu(k,1728) - lu(k,190) * lu(k,1689)
292 315224452 : lu(k,1763) = lu(k,1763) - lu(k,191) * lu(k,1689)
293 315224452 : lu(k,1818) = lu(k,1818) - lu(k,192) * lu(k,1689)
294 315224452 : lu(k,1829) = lu(k,1829) - lu(k,193) * lu(k,1689)
295 315224452 : lu(k,194) = 1._r8 / lu(k,194)
296 315224452 : lu(k,195) = lu(k,195) * lu(k,194)
297 315224452 : lu(k,196) = lu(k,196) * lu(k,194)
298 315224452 : lu(k,197) = lu(k,197) * lu(k,194)
299 315224452 : lu(k,198) = lu(k,198) * lu(k,194)
300 315224452 : lu(k,1729) = lu(k,1729) - lu(k,195) * lu(k,1690)
301 315224452 : lu(k,1732) = lu(k,1732) - lu(k,196) * lu(k,1690)
302 315224452 : lu(k,1818) = lu(k,1818) - lu(k,197) * lu(k,1690)
303 325174377 : lu(k,1829) = lu(k,1829) - lu(k,198) * lu(k,1690)
304 : end do
305 9949925 : end subroutine lu_fac03
306 9949925 : subroutine lu_fac04( avec_len, lu )
307 : use chem_mods, only : nzcnt
308 : use shr_kind_mod, only : r8 => shr_kind_r8
309 : implicit none
310 : !-----------------------------------------------------------------------
311 : ! ... dummy args
312 : !-----------------------------------------------------------------------
313 : integer, intent(in) :: avec_len
314 : real(r8), intent(inout) :: lu(veclen,nzcnt)
315 : !-----------------------------------------------------------------------
316 : ! ... local variables
317 : !-----------------------------------------------------------------------
318 : integer :: k
319 325174377 : do k = 1,avec_len
320 315224452 : lu(k,199) = 1._r8 / lu(k,199)
321 315224452 : lu(k,200) = lu(k,200) * lu(k,199)
322 315224452 : lu(k,201) = lu(k,201) * lu(k,199)
323 315224452 : lu(k,202) = lu(k,202) * lu(k,199)
324 315224452 : lu(k,212) = - lu(k,200) * lu(k,207)
325 315224452 : lu(k,213) = - lu(k,201) * lu(k,207)
326 315224452 : lu(k,215) = lu(k,215) - lu(k,202) * lu(k,207)
327 315224452 : lu(k,1793) = lu(k,1793) - lu(k,200) * lu(k,1691)
328 315224452 : lu(k,1808) = lu(k,1808) - lu(k,201) * lu(k,1691)
329 315224452 : lu(k,1829) = lu(k,1829) - lu(k,202) * lu(k,1691)
330 315224452 : lu(k,203) = 1._r8 / lu(k,203)
331 315224452 : lu(k,204) = lu(k,204) * lu(k,203)
332 315224452 : lu(k,205) = lu(k,205) * lu(k,203)
333 315224452 : lu(k,1233) = lu(k,1233) - lu(k,204) * lu(k,1227)
334 315224452 : lu(k,1238) = - lu(k,205) * lu(k,1227)
335 315224452 : lu(k,1799) = lu(k,1799) - lu(k,204) * lu(k,1692)
336 315224452 : lu(k,1818) = lu(k,1818) - lu(k,205) * lu(k,1692)
337 315224452 : lu(k,2339) = lu(k,2339) - lu(k,204) * lu(k,2276)
338 315224452 : lu(k,2357) = lu(k,2357) - lu(k,205) * lu(k,2276)
339 315224452 : lu(k,208) = 1._r8 / lu(k,208)
340 315224452 : lu(k,209) = lu(k,209) * lu(k,208)
341 315224452 : lu(k,210) = lu(k,210) * lu(k,208)
342 315224452 : lu(k,211) = lu(k,211) * lu(k,208)
343 315224452 : lu(k,212) = lu(k,212) * lu(k,208)
344 315224452 : lu(k,213) = lu(k,213) * lu(k,208)
345 315224452 : lu(k,214) = lu(k,214) * lu(k,208)
346 315224452 : lu(k,215) = lu(k,215) * lu(k,208)
347 315224452 : lu(k,1694) = lu(k,1694) - lu(k,209) * lu(k,1693)
348 315224452 : lu(k,1728) = lu(k,1728) - lu(k,210) * lu(k,1693)
349 315224452 : lu(k,1764) = lu(k,1764) - lu(k,211) * lu(k,1693)
350 315224452 : lu(k,1793) = lu(k,1793) - lu(k,212) * lu(k,1693)
351 315224452 : lu(k,1808) = lu(k,1808) - lu(k,213) * lu(k,1693)
352 315224452 : lu(k,1818) = lu(k,1818) - lu(k,214) * lu(k,1693)
353 315224452 : lu(k,1829) = lu(k,1829) - lu(k,215) * lu(k,1693)
354 315224452 : lu(k,216) = 1._r8 / lu(k,216)
355 315224452 : lu(k,217) = lu(k,217) * lu(k,216)
356 315224452 : lu(k,218) = lu(k,218) * lu(k,216)
357 315224452 : lu(k,219) = lu(k,219) * lu(k,216)
358 315224452 : lu(k,220) = lu(k,220) * lu(k,216)
359 315224452 : lu(k,1732) = lu(k,1732) - lu(k,217) * lu(k,1694)
360 315224452 : lu(k,1737) = lu(k,1737) - lu(k,218) * lu(k,1694)
361 315224452 : lu(k,1818) = lu(k,1818) - lu(k,219) * lu(k,1694)
362 315224452 : lu(k,1829) = lu(k,1829) - lu(k,220) * lu(k,1694)
363 315224452 : lu(k,221) = 1._r8 / lu(k,221)
364 315224452 : lu(k,222) = lu(k,222) * lu(k,221)
365 315224452 : lu(k,223) = lu(k,223) * lu(k,221)
366 315224452 : lu(k,224) = lu(k,224) * lu(k,221)
367 315224452 : lu(k,225) = lu(k,225) * lu(k,221)
368 315224452 : lu(k,1318) = - lu(k,222) * lu(k,1315)
369 315224452 : lu(k,1329) = - lu(k,223) * lu(k,1315)
370 315224452 : lu(k,1339) = - lu(k,224) * lu(k,1315)
371 315224452 : lu(k,1345) = lu(k,1345) - lu(k,225) * lu(k,1315)
372 315224452 : lu(k,1747) = - lu(k,222) * lu(k,1695)
373 315224452 : lu(k,1799) = lu(k,1799) - lu(k,223) * lu(k,1695)
374 315224452 : lu(k,1818) = lu(k,1818) - lu(k,224) * lu(k,1695)
375 315224452 : lu(k,1829) = lu(k,1829) - lu(k,225) * lu(k,1695)
376 315224452 : lu(k,226) = 1._r8 / lu(k,226)
377 315224452 : lu(k,227) = lu(k,227) * lu(k,226)
378 315224452 : lu(k,228) = lu(k,228) * lu(k,226)
379 315224452 : lu(k,975) = - lu(k,227) * lu(k,971)
380 315224452 : lu(k,988) = lu(k,988) - lu(k,228) * lu(k,971)
381 315224452 : lu(k,1019) = - lu(k,227) * lu(k,1015)
382 315224452 : lu(k,1032) = lu(k,1032) - lu(k,228) * lu(k,1015)
383 315224452 : lu(k,1783) = lu(k,1783) - lu(k,227) * lu(k,1696)
384 315224452 : lu(k,1818) = lu(k,1818) - lu(k,228) * lu(k,1696)
385 315224452 : lu(k,2194) = - lu(k,227) * lu(k,2181)
386 315224452 : lu(k,2224) = lu(k,2224) - lu(k,228) * lu(k,2181)
387 315224452 : lu(k,229) = 1._r8 / lu(k,229)
388 315224452 : lu(k,230) = lu(k,230) * lu(k,229)
389 315224452 : lu(k,231) = lu(k,231) * lu(k,229)
390 315224452 : lu(k,789) = lu(k,789) - lu(k,230) * lu(k,786)
391 315224452 : lu(k,793) = - lu(k,231) * lu(k,786)
392 315224452 : lu(k,1496) = - lu(k,230) * lu(k,1491)
393 315224452 : lu(k,1506) = lu(k,1506) - lu(k,231) * lu(k,1491)
394 315224452 : lu(k,1563) = lu(k,1563) - lu(k,230) * lu(k,1556)
395 315224452 : lu(k,1576) = lu(k,1576) - lu(k,231) * lu(k,1556)
396 315224452 : lu(k,1589) = lu(k,1589) - lu(k,230) * lu(k,1582)
397 315224452 : lu(k,1602) = lu(k,1602) - lu(k,231) * lu(k,1582)
398 315224452 : lu(k,232) = 1._r8 / lu(k,232)
399 315224452 : lu(k,233) = lu(k,233) * lu(k,232)
400 315224452 : lu(k,234) = lu(k,234) * lu(k,232)
401 315224452 : lu(k,1184) = lu(k,1184) - lu(k,233) * lu(k,1171)
402 315224452 : lu(k,1186) = - lu(k,234) * lu(k,1171)
403 315224452 : lu(k,1202) = lu(k,1202) - lu(k,233) * lu(k,1190)
404 315224452 : lu(k,1204) = lu(k,1204) - lu(k,234) * lu(k,1190)
405 315224452 : lu(k,1820) = lu(k,1820) - lu(k,233) * lu(k,1697)
406 315224452 : lu(k,1823) = lu(k,1823) - lu(k,234) * lu(k,1697)
407 315224452 : lu(k,1915) = lu(k,1915) - lu(k,233) * lu(k,1844)
408 315224452 : lu(k,1918) = - lu(k,234) * lu(k,1844)
409 315224452 : lu(k,235) = 1._r8 / lu(k,235)
410 315224452 : lu(k,236) = lu(k,236) * lu(k,235)
411 315224452 : lu(k,237) = lu(k,237) * lu(k,235)
412 315224452 : lu(k,347) = - lu(k,236) * lu(k,344)
413 315224452 : lu(k,348) = lu(k,348) - lu(k,237) * lu(k,344)
414 315224452 : lu(k,436) = - lu(k,236) * lu(k,433)
415 315224452 : lu(k,437) = - lu(k,237) * lu(k,433)
416 315224452 : lu(k,1739) = lu(k,1739) - lu(k,236) * lu(k,1698)
417 315224452 : lu(k,1818) = lu(k,1818) - lu(k,237) * lu(k,1698)
418 315224452 : lu(k,1858) = lu(k,1858) - lu(k,236) * lu(k,1845)
419 325174377 : lu(k,1913) = lu(k,1913) - lu(k,237) * lu(k,1845)
420 : end do
421 9949925 : end subroutine lu_fac04
422 9949925 : subroutine lu_fac05( avec_len, lu )
423 : use chem_mods, only : nzcnt
424 : use shr_kind_mod, only : r8 => shr_kind_r8
425 : implicit none
426 : !-----------------------------------------------------------------------
427 : ! ... dummy args
428 : !-----------------------------------------------------------------------
429 : integer, intent(in) :: avec_len
430 : real(r8), intent(inout) :: lu(veclen,nzcnt)
431 : !-----------------------------------------------------------------------
432 : ! ... local variables
433 : !-----------------------------------------------------------------------
434 : integer :: k
435 325174377 : do k = 1,avec_len
436 315224452 : lu(k,238) = 1._r8 / lu(k,238)
437 315224452 : lu(k,239) = lu(k,239) * lu(k,238)
438 315224452 : lu(k,240) = lu(k,240) * lu(k,238)
439 315224452 : lu(k,252) = - lu(k,239) * lu(k,250)
440 315224452 : lu(k,254) = lu(k,254) - lu(k,240) * lu(k,250)
441 315224452 : lu(k,293) = - lu(k,239) * lu(k,291)
442 315224452 : lu(k,295) = lu(k,295) - lu(k,240) * lu(k,291)
443 315224452 : lu(k,1776) = - lu(k,239) * lu(k,1699)
444 315224452 : lu(k,1822) = lu(k,1822) - lu(k,240) * lu(k,1699)
445 315224452 : lu(k,2019) = lu(k,2019) - lu(k,239) * lu(k,2009)
446 315224452 : lu(k,2031) = lu(k,2031) - lu(k,240) * lu(k,2009)
447 315224452 : lu(k,241) = 1._r8 / lu(k,241)
448 315224452 : lu(k,242) = lu(k,242) * lu(k,241)
449 315224452 : lu(k,243) = lu(k,243) * lu(k,241)
450 315224452 : lu(k,244) = lu(k,244) * lu(k,241)
451 315224452 : lu(k,245) = lu(k,245) * lu(k,241)
452 315224452 : lu(k,1701) = lu(k,1701) - lu(k,242) * lu(k,1700)
453 315224452 : lu(k,1818) = lu(k,1818) - lu(k,243) * lu(k,1700)
454 315224452 : lu(k,1822) = lu(k,1822) - lu(k,244) * lu(k,1700)
455 315224452 : lu(k,1826) = lu(k,1826) - lu(k,245) * lu(k,1700)
456 315224452 : lu(k,2011) = lu(k,2011) - lu(k,242) * lu(k,2010)
457 315224452 : lu(k,2027) = lu(k,2027) - lu(k,243) * lu(k,2010)
458 315224452 : lu(k,2031) = lu(k,2031) - lu(k,244) * lu(k,2010)
459 315224452 : lu(k,2035) = lu(k,2035) - lu(k,245) * lu(k,2010)
460 315224452 : lu(k,246) = 1._r8 / lu(k,246)
461 315224452 : lu(k,247) = lu(k,247) * lu(k,246)
462 315224452 : lu(k,248) = lu(k,248) * lu(k,246)
463 315224452 : lu(k,249) = lu(k,249) * lu(k,246)
464 315224452 : lu(k,1776) = lu(k,1776) - lu(k,247) * lu(k,1701)
465 315224452 : lu(k,1822) = lu(k,1822) - lu(k,248) * lu(k,1701)
466 315224452 : lu(k,1826) = lu(k,1826) - lu(k,249) * lu(k,1701)
467 315224452 : lu(k,2019) = lu(k,2019) - lu(k,247) * lu(k,2011)
468 315224452 : lu(k,2031) = lu(k,2031) - lu(k,248) * lu(k,2011)
469 315224452 : lu(k,2035) = lu(k,2035) - lu(k,249) * lu(k,2011)
470 315224452 : lu(k,251) = 1._r8 / lu(k,251)
471 315224452 : lu(k,252) = lu(k,252) * lu(k,251)
472 315224452 : lu(k,253) = lu(k,253) * lu(k,251)
473 315224452 : lu(k,254) = lu(k,254) * lu(k,251)
474 315224452 : lu(k,255) = lu(k,255) * lu(k,251)
475 315224452 : lu(k,1776) = lu(k,1776) - lu(k,252) * lu(k,1702)
476 315224452 : lu(k,1818) = lu(k,1818) - lu(k,253) * lu(k,1702)
477 315224452 : lu(k,1822) = lu(k,1822) - lu(k,254) * lu(k,1702)
478 315224452 : lu(k,1826) = lu(k,1826) - lu(k,255) * lu(k,1702)
479 315224452 : lu(k,2019) = lu(k,2019) - lu(k,252) * lu(k,2012)
480 315224452 : lu(k,2027) = lu(k,2027) - lu(k,253) * lu(k,2012)
481 315224452 : lu(k,2031) = lu(k,2031) - lu(k,254) * lu(k,2012)
482 315224452 : lu(k,2035) = lu(k,2035) - lu(k,255) * lu(k,2012)
483 315224452 : lu(k,256) = 1._r8 / lu(k,256)
484 315224452 : lu(k,257) = lu(k,257) * lu(k,256)
485 315224452 : lu(k,258) = lu(k,258) * lu(k,256)
486 315224452 : lu(k,259) = lu(k,259) * lu(k,256)
487 315224452 : lu(k,1002) = lu(k,1002) - lu(k,257) * lu(k,993)
488 315224452 : lu(k,1004) = lu(k,1004) - lu(k,258) * lu(k,993)
489 315224452 : lu(k,1006) = - lu(k,259) * lu(k,993)
490 315224452 : lu(k,1954) = lu(k,1954) - lu(k,257) * lu(k,1928)
491 315224452 : lu(k,1959) = lu(k,1959) - lu(k,258) * lu(k,1928)
492 315224452 : lu(k,1962) = - lu(k,259) * lu(k,1928)
493 315224452 : lu(k,2023) = lu(k,2023) - lu(k,257) * lu(k,2013)
494 315224452 : lu(k,2028) = lu(k,2028) - lu(k,258) * lu(k,2013)
495 315224452 : lu(k,2031) = lu(k,2031) - lu(k,259) * lu(k,2013)
496 315224452 : lu(k,261) = 1._r8 / lu(k,261)
497 315224452 : lu(k,262) = lu(k,262) * lu(k,261)
498 315224452 : lu(k,263) = lu(k,263) * lu(k,261)
499 315224452 : lu(k,264) = lu(k,264) * lu(k,261)
500 315224452 : lu(k,947) = lu(k,947) - lu(k,262) * lu(k,946)
501 315224452 : lu(k,950) = lu(k,950) - lu(k,263) * lu(k,946)
502 315224452 : lu(k,952) = - lu(k,264) * lu(k,946)
503 315224452 : lu(k,1778) = lu(k,1778) - lu(k,262) * lu(k,1703)
504 315224452 : lu(k,1824) = lu(k,1824) - lu(k,263) * lu(k,1703)
505 315224452 : lu(k,1831) = lu(k,1831) - lu(k,264) * lu(k,1703)
506 315224452 : lu(k,2427) = - lu(k,262) * lu(k,2424)
507 315224452 : lu(k,2442) = lu(k,2442) - lu(k,263) * lu(k,2424)
508 315224452 : lu(k,2449) = lu(k,2449) - lu(k,264) * lu(k,2424)
509 315224452 : lu(k,265) = 1._r8 / lu(k,265)
510 315224452 : lu(k,266) = lu(k,266) * lu(k,265)
511 315224452 : lu(k,267) = lu(k,267) * lu(k,265)
512 315224452 : lu(k,268) = lu(k,268) * lu(k,265)
513 315224452 : lu(k,902) = lu(k,902) - lu(k,266) * lu(k,898)
514 315224452 : lu(k,904) = - lu(k,267) * lu(k,898)
515 315224452 : lu(k,908) = lu(k,908) - lu(k,268) * lu(k,898)
516 315224452 : lu(k,1792) = lu(k,1792) - lu(k,266) * lu(k,1704)
517 315224452 : lu(k,1818) = lu(k,1818) - lu(k,267) * lu(k,1704)
518 315224452 : lu(k,1829) = lu(k,1829) - lu(k,268) * lu(k,1704)
519 315224452 : lu(k,2388) = lu(k,2388) - lu(k,266) * lu(k,2371)
520 315224452 : lu(k,2409) = - lu(k,267) * lu(k,2371)
521 315224452 : lu(k,2420) = lu(k,2420) - lu(k,268) * lu(k,2371)
522 315224452 : lu(k,269) = 1._r8 / lu(k,269)
523 315224452 : lu(k,270) = lu(k,270) * lu(k,269)
524 315224452 : lu(k,271) = lu(k,271) * lu(k,269)
525 315224452 : lu(k,272) = lu(k,272) * lu(k,269)
526 315224452 : lu(k,634) = lu(k,634) - lu(k,270) * lu(k,633)
527 315224452 : lu(k,635) = lu(k,635) - lu(k,271) * lu(k,633)
528 315224452 : lu(k,636) = - lu(k,272) * lu(k,633)
529 315224452 : lu(k,1732) = lu(k,1732) - lu(k,270) * lu(k,1705)
530 315224452 : lu(k,1752) = lu(k,1752) - lu(k,271) * lu(k,1705)
531 315224452 : lu(k,1818) = lu(k,1818) - lu(k,272) * lu(k,1705)
532 315224452 : lu(k,2295) = - lu(k,270) * lu(k,2277)
533 315224452 : lu(k,2304) = lu(k,2304) - lu(k,271) * lu(k,2277)
534 315224452 : lu(k,2357) = lu(k,2357) - lu(k,272) * lu(k,2277)
535 315224452 : lu(k,273) = 1._r8 / lu(k,273)
536 315224452 : lu(k,274) = lu(k,274) * lu(k,273)
537 315224452 : lu(k,275) = lu(k,275) * lu(k,273)
538 315224452 : lu(k,276) = lu(k,276) * lu(k,273)
539 315224452 : lu(k,277) = lu(k,277) * lu(k,273)
540 315224452 : lu(k,278) = lu(k,278) * lu(k,273)
541 315224452 : lu(k,1652) = lu(k,1652) - lu(k,274) * lu(k,1609)
542 315224452 : lu(k,1654) = lu(k,1654) - lu(k,275) * lu(k,1609)
543 315224452 : lu(k,1655) = lu(k,1655) - lu(k,276) * lu(k,1609)
544 315224452 : lu(k,1658) = lu(k,1658) - lu(k,277) * lu(k,1609)
545 315224452 : lu(k,1659) = lu(k,1659) - lu(k,278) * lu(k,1609)
546 315224452 : lu(k,1957) = lu(k,1957) - lu(k,274) * lu(k,1929)
547 315224452 : lu(k,1959) = lu(k,1959) - lu(k,275) * lu(k,1929)
548 315224452 : lu(k,1960) = lu(k,1960) - lu(k,276) * lu(k,1929)
549 315224452 : lu(k,1963) = lu(k,1963) - lu(k,277) * lu(k,1929)
550 315224452 : lu(k,1964) = lu(k,1964) - lu(k,278) * lu(k,1929)
551 315224452 : lu(k,279) = 1._r8 / lu(k,279)
552 315224452 : lu(k,280) = lu(k,280) * lu(k,279)
553 315224452 : lu(k,281) = lu(k,281) * lu(k,279)
554 315224452 : lu(k,668) = - lu(k,280) * lu(k,662)
555 315224452 : lu(k,674) = lu(k,674) - lu(k,281) * lu(k,662)
556 315224452 : lu(k,732) = - lu(k,280) * lu(k,725)
557 315224452 : lu(k,739) = lu(k,739) - lu(k,281) * lu(k,725)
558 315224452 : lu(k,752) = - lu(k,280) * lu(k,746)
559 315224452 : lu(k,760) = lu(k,760) - lu(k,281) * lu(k,746)
560 315224452 : lu(k,768) = - lu(k,280) * lu(k,761)
561 315224452 : lu(k,777) = lu(k,777) - lu(k,281) * lu(k,761)
562 315224452 : lu(k,1870) = lu(k,1870) - lu(k,280) * lu(k,1846)
563 325174377 : lu(k,1924) = lu(k,1924) - lu(k,281) * lu(k,1846)
564 : end do
565 9949925 : end subroutine lu_fac05
566 9949925 : subroutine lu_fac06( avec_len, lu )
567 : use chem_mods, only : nzcnt
568 : use shr_kind_mod, only : r8 => shr_kind_r8
569 : implicit none
570 : !-----------------------------------------------------------------------
571 : ! ... dummy args
572 : !-----------------------------------------------------------------------
573 : integer, intent(in) :: avec_len
574 : real(r8), intent(inout) :: lu(veclen,nzcnt)
575 : !-----------------------------------------------------------------------
576 : ! ... local variables
577 : !-----------------------------------------------------------------------
578 : integer :: k
579 325174377 : do k = 1,avec_len
580 315224452 : lu(k,282) = 1._r8 / lu(k,282)
581 315224452 : lu(k,283) = lu(k,283) * lu(k,282)
582 315224452 : lu(k,284) = lu(k,284) * lu(k,282)
583 315224452 : lu(k,925) = lu(k,925) - lu(k,283) * lu(k,924)
584 315224452 : lu(k,930) = lu(k,930) - lu(k,284) * lu(k,924)
585 315224452 : lu(k,1460) = lu(k,1460) - lu(k,283) * lu(k,1459)
586 315224452 : lu(k,1468) = lu(k,1468) - lu(k,284) * lu(k,1459)
587 315224452 : lu(k,2042) = lu(k,2042) - lu(k,283) * lu(k,2041)
588 315224452 : lu(k,2057) = - lu(k,284) * lu(k,2041)
589 315224452 : lu(k,2239) = lu(k,2239) - lu(k,283) * lu(k,2238)
590 315224452 : lu(k,2256) = lu(k,2256) - lu(k,284) * lu(k,2238)
591 315224452 : lu(k,2426) = lu(k,2426) - lu(k,283) * lu(k,2425)
592 315224452 : lu(k,2443) = lu(k,2443) - lu(k,284) * lu(k,2425)
593 315224452 : lu(k,285) = 1._r8 / lu(k,285)
594 315224452 : lu(k,286) = lu(k,286) * lu(k,285)
595 315224452 : lu(k,287) = lu(k,287) * lu(k,285)
596 315224452 : lu(k,288) = lu(k,288) * lu(k,285)
597 315224452 : lu(k,289) = lu(k,289) * lu(k,285)
598 315224452 : lu(k,290) = lu(k,290) * lu(k,285)
599 315224452 : lu(k,1775) = lu(k,1775) - lu(k,286) * lu(k,1706)
600 315224452 : lu(k,1784) = lu(k,1784) - lu(k,287) * lu(k,1706)
601 315224452 : lu(k,1793) = lu(k,1793) - lu(k,288) * lu(k,1706)
602 315224452 : lu(k,1818) = lu(k,1818) - lu(k,289) * lu(k,1706)
603 315224452 : lu(k,1829) = lu(k,1829) - lu(k,290) * lu(k,1706)
604 315224452 : lu(k,2141) = - lu(k,286) * lu(k,2129)
605 315224452 : lu(k,2144) = - lu(k,287) * lu(k,2129)
606 315224452 : lu(k,2147) = lu(k,2147) - lu(k,288) * lu(k,2129)
607 315224452 : lu(k,2160) = lu(k,2160) - lu(k,289) * lu(k,2129)
608 315224452 : lu(k,2171) = lu(k,2171) - lu(k,290) * lu(k,2129)
609 315224452 : lu(k,292) = 1._r8 / lu(k,292)
610 315224452 : lu(k,293) = lu(k,293) * lu(k,292)
611 315224452 : lu(k,294) = lu(k,294) * lu(k,292)
612 315224452 : lu(k,295) = lu(k,295) * lu(k,292)
613 315224452 : lu(k,296) = lu(k,296) * lu(k,292)
614 315224452 : lu(k,297) = lu(k,297) * lu(k,292)
615 315224452 : lu(k,1776) = lu(k,1776) - lu(k,293) * lu(k,1707)
616 315224452 : lu(k,1818) = lu(k,1818) - lu(k,294) * lu(k,1707)
617 315224452 : lu(k,1822) = lu(k,1822) - lu(k,295) * lu(k,1707)
618 315224452 : lu(k,1826) = lu(k,1826) - lu(k,296) * lu(k,1707)
619 315224452 : lu(k,1831) = lu(k,1831) - lu(k,297) * lu(k,1707)
620 315224452 : lu(k,2019) = lu(k,2019) - lu(k,293) * lu(k,2014)
621 315224452 : lu(k,2027) = lu(k,2027) - lu(k,294) * lu(k,2014)
622 315224452 : lu(k,2031) = lu(k,2031) - lu(k,295) * lu(k,2014)
623 315224452 : lu(k,2035) = lu(k,2035) - lu(k,296) * lu(k,2014)
624 315224452 : lu(k,2040) = lu(k,2040) - lu(k,297) * lu(k,2014)
625 315224452 : lu(k,298) = 1._r8 / lu(k,298)
626 315224452 : lu(k,299) = lu(k,299) * lu(k,298)
627 315224452 : lu(k,300) = lu(k,300) * lu(k,298)
628 315224452 : lu(k,301) = lu(k,301) * lu(k,298)
629 315224452 : lu(k,302) = lu(k,302) * lu(k,298)
630 315224452 : lu(k,303) = lu(k,303) * lu(k,298)
631 315224452 : lu(k,1773) = lu(k,1773) - lu(k,299) * lu(k,1708)
632 315224452 : lu(k,1812) = lu(k,1812) - lu(k,300) * lu(k,1708)
633 315224452 : lu(k,1818) = lu(k,1818) - lu(k,301) * lu(k,1708)
634 315224452 : lu(k,1826) = lu(k,1826) - lu(k,302) * lu(k,1708)
635 315224452 : lu(k,1831) = lu(k,1831) - lu(k,303) * lu(k,1708)
636 315224452 : lu(k,2140) = lu(k,2140) - lu(k,299) * lu(k,2130)
637 315224452 : lu(k,2154) = lu(k,2154) - lu(k,300) * lu(k,2130)
638 315224452 : lu(k,2160) = lu(k,2160) - lu(k,301) * lu(k,2130)
639 315224452 : lu(k,2168) = lu(k,2168) - lu(k,302) * lu(k,2130)
640 315224452 : lu(k,2173) = - lu(k,303) * lu(k,2130)
641 315224452 : lu(k,304) = 1._r8 / lu(k,304)
642 315224452 : lu(k,305) = lu(k,305) * lu(k,304)
643 315224452 : lu(k,306) = lu(k,306) * lu(k,304)
644 315224452 : lu(k,307) = lu(k,307) * lu(k,304)
645 315224452 : lu(k,308) = lu(k,308) * lu(k,304)
646 315224452 : lu(k,309) = lu(k,309) * lu(k,304)
647 315224452 : lu(k,1777) = lu(k,1777) - lu(k,305) * lu(k,1709)
648 315224452 : lu(k,1812) = lu(k,1812) - lu(k,306) * lu(k,1709)
649 315224452 : lu(k,1818) = lu(k,1818) - lu(k,307) * lu(k,1709)
650 315224452 : lu(k,1826) = lu(k,1826) - lu(k,308) * lu(k,1709)
651 315224452 : lu(k,1831) = lu(k,1831) - lu(k,309) * lu(k,1709)
652 315224452 : lu(k,2142) = lu(k,2142) - lu(k,305) * lu(k,2131)
653 315224452 : lu(k,2154) = lu(k,2154) - lu(k,306) * lu(k,2131)
654 315224452 : lu(k,2160) = lu(k,2160) - lu(k,307) * lu(k,2131)
655 315224452 : lu(k,2168) = lu(k,2168) - lu(k,308) * lu(k,2131)
656 315224452 : lu(k,2173) = lu(k,2173) - lu(k,309) * lu(k,2131)
657 315224452 : lu(k,310) = 1._r8 / lu(k,310)
658 315224452 : lu(k,311) = lu(k,311) * lu(k,310)
659 315224452 : lu(k,312) = lu(k,312) * lu(k,310)
660 315224452 : lu(k,313) = lu(k,313) * lu(k,310)
661 315224452 : lu(k,314) = lu(k,314) * lu(k,310)
662 315224452 : lu(k,315) = lu(k,315) * lu(k,310)
663 315224452 : lu(k,1617) = lu(k,1617) - lu(k,311) * lu(k,1610)
664 315224452 : lu(k,1652) = lu(k,1652) - lu(k,312) * lu(k,1610)
665 315224452 : lu(k,1653) = lu(k,1653) - lu(k,313) * lu(k,1610)
666 315224452 : lu(k,1658) = lu(k,1658) - lu(k,314) * lu(k,1610)
667 315224452 : lu(k,1664) = lu(k,1664) - lu(k,315) * lu(k,1610)
668 315224452 : lu(k,1778) = lu(k,1778) - lu(k,311) * lu(k,1710)
669 315224452 : lu(k,1817) = lu(k,1817) - lu(k,312) * lu(k,1710)
670 315224452 : lu(k,1818) = lu(k,1818) - lu(k,313) * lu(k,1710)
671 315224452 : lu(k,1823) = lu(k,1823) - lu(k,314) * lu(k,1710)
672 315224452 : lu(k,1829) = lu(k,1829) - lu(k,315) * lu(k,1710)
673 315224452 : lu(k,316) = 1._r8 / lu(k,316)
674 315224452 : lu(k,317) = lu(k,317) * lu(k,316)
675 315224452 : lu(k,318) = lu(k,318) * lu(k,316)
676 315224452 : lu(k,319) = lu(k,319) * lu(k,316)
677 315224452 : lu(k,320) = lu(k,320) * lu(k,316)
678 315224452 : lu(k,1356) = lu(k,1356) - lu(k,317) * lu(k,1348)
679 315224452 : lu(k,1357) = - lu(k,318) * lu(k,1348)
680 315224452 : lu(k,1361) = - lu(k,319) * lu(k,1348)
681 315224452 : lu(k,1366) = lu(k,1366) - lu(k,320) * lu(k,1348)
682 315224452 : lu(k,1805) = lu(k,1805) - lu(k,317) * lu(k,1711)
683 315224452 : lu(k,1807) = lu(k,1807) - lu(k,318) * lu(k,1711)
684 315224452 : lu(k,1818) = lu(k,1818) - lu(k,319) * lu(k,1711)
685 315224452 : lu(k,1829) = lu(k,1829) - lu(k,320) * lu(k,1711)
686 315224452 : lu(k,2345) = lu(k,2345) - lu(k,317) * lu(k,2278)
687 315224452 : lu(k,2347) = lu(k,2347) - lu(k,318) * lu(k,2278)
688 315224452 : lu(k,2357) = lu(k,2357) - lu(k,319) * lu(k,2278)
689 315224452 : lu(k,2368) = lu(k,2368) - lu(k,320) * lu(k,2278)
690 315224452 : lu(k,321) = 1._r8 / lu(k,321)
691 315224452 : lu(k,322) = lu(k,322) * lu(k,321)
692 315224452 : lu(k,323) = lu(k,323) * lu(k,321)
693 315224452 : lu(k,324) = lu(k,324) * lu(k,321)
694 315224452 : lu(k,325) = lu(k,325) * lu(k,321)
695 315224452 : lu(k,698) = lu(k,698) - lu(k,322) * lu(k,697)
696 315224452 : lu(k,699) = lu(k,699) - lu(k,323) * lu(k,697)
697 315224452 : lu(k,700) = lu(k,700) - lu(k,324) * lu(k,697)
698 315224452 : lu(k,701) = lu(k,701) - lu(k,325) * lu(k,697)
699 315224452 : lu(k,1757) = lu(k,1757) - lu(k,322) * lu(k,1712)
700 315224452 : lu(k,1792) = lu(k,1792) - lu(k,323) * lu(k,1712)
701 315224452 : lu(k,1808) = lu(k,1808) - lu(k,324) * lu(k,1712)
702 315224452 : lu(k,1818) = lu(k,1818) - lu(k,325) * lu(k,1712)
703 315224452 : lu(k,2308) = lu(k,2308) - lu(k,322) * lu(k,2279)
704 315224452 : lu(k,2333) = lu(k,2333) - lu(k,323) * lu(k,2279)
705 315224452 : lu(k,2348) = lu(k,2348) - lu(k,324) * lu(k,2279)
706 315224452 : lu(k,2357) = lu(k,2357) - lu(k,325) * lu(k,2279)
707 315224452 : lu(k,326) = 1._r8 / lu(k,326)
708 315224452 : lu(k,327) = lu(k,327) * lu(k,326)
709 315224452 : lu(k,328) = lu(k,328) * lu(k,326)
710 315224452 : lu(k,1329) = lu(k,1329) - lu(k,327) * lu(k,1316)
711 315224452 : lu(k,1339) = lu(k,1339) - lu(k,328) * lu(k,1316)
712 315224452 : lu(k,1419) = lu(k,1419) - lu(k,327) * lu(k,1410)
713 315224452 : lu(k,1432) = lu(k,1432) - lu(k,328) * lu(k,1410)
714 315224452 : lu(k,1636) = lu(k,1636) - lu(k,327) * lu(k,1611)
715 315224452 : lu(k,1653) = lu(k,1653) - lu(k,328) * lu(k,1611)
716 315224452 : lu(k,1799) = lu(k,1799) - lu(k,327) * lu(k,1713)
717 315224452 : lu(k,1818) = lu(k,1818) - lu(k,328) * lu(k,1713)
718 315224452 : lu(k,1897) = lu(k,1897) - lu(k,327) * lu(k,1847)
719 315224452 : lu(k,1913) = lu(k,1913) - lu(k,328) * lu(k,1847)
720 315224452 : lu(k,2394) = lu(k,2394) - lu(k,327) * lu(k,2372)
721 325174377 : lu(k,2409) = lu(k,2409) - lu(k,328) * lu(k,2372)
722 : end do
723 9949925 : end subroutine lu_fac06
724 9949925 : subroutine lu_fac07( avec_len, lu )
725 : use chem_mods, only : nzcnt
726 : use shr_kind_mod, only : r8 => shr_kind_r8
727 : implicit none
728 : !-----------------------------------------------------------------------
729 : ! ... dummy args
730 : !-----------------------------------------------------------------------
731 : integer, intent(in) :: avec_len
732 : real(r8), intent(inout) :: lu(veclen,nzcnt)
733 : !-----------------------------------------------------------------------
734 : ! ... local variables
735 : !-----------------------------------------------------------------------
736 : integer :: k
737 325174377 : do k = 1,avec_len
738 315224452 : lu(k,329) = 1._r8 / lu(k,329)
739 315224452 : lu(k,330) = lu(k,330) * lu(k,329)
740 315224452 : lu(k,331) = lu(k,331) * lu(k,329)
741 315224452 : lu(k,332) = lu(k,332) * lu(k,329)
742 315224452 : lu(k,333) = lu(k,333) * lu(k,329)
743 315224452 : lu(k,735) = - lu(k,330) * lu(k,726)
744 315224452 : lu(k,736) = lu(k,736) - lu(k,331) * lu(k,726)
745 315224452 : lu(k,737) = - lu(k,332) * lu(k,726)
746 315224452 : lu(k,739) = lu(k,739) - lu(k,333) * lu(k,726)
747 315224452 : lu(k,771) = - lu(k,330) * lu(k,762)
748 315224452 : lu(k,772) = lu(k,772) - lu(k,331) * lu(k,762)
749 315224452 : lu(k,773) = - lu(k,332) * lu(k,762)
750 315224452 : lu(k,777) = lu(k,777) - lu(k,333) * lu(k,762)
751 315224452 : lu(k,1891) = lu(k,1891) - lu(k,330) * lu(k,1848)
752 315224452 : lu(k,1900) = lu(k,1900) - lu(k,331) * lu(k,1848)
753 315224452 : lu(k,1906) = lu(k,1906) - lu(k,332) * lu(k,1848)
754 315224452 : lu(k,1924) = lu(k,1924) - lu(k,333) * lu(k,1848)
755 315224452 : lu(k,334) = 1._r8 / lu(k,334)
756 315224452 : lu(k,335) = lu(k,335) * lu(k,334)
757 315224452 : lu(k,336) = lu(k,336) * lu(k,334)
758 315224452 : lu(k,337) = lu(k,337) * lu(k,334)
759 315224452 : lu(k,338) = lu(k,338) * lu(k,334)
760 315224452 : lu(k,1475) = lu(k,1475) - lu(k,335) * lu(k,1473)
761 315224452 : lu(k,1476) = lu(k,1476) - lu(k,336) * lu(k,1473)
762 315224452 : lu(k,1480) = lu(k,1480) - lu(k,337) * lu(k,1473)
763 315224452 : lu(k,1484) = lu(k,1484) - lu(k,338) * lu(k,1473)
764 315224452 : lu(k,1560) = lu(k,1560) - lu(k,335) * lu(k,1557)
765 315224452 : lu(k,1561) = lu(k,1561) - lu(k,336) * lu(k,1557)
766 315224452 : lu(k,1566) = lu(k,1566) - lu(k,337) * lu(k,1557)
767 315224452 : lu(k,1574) = lu(k,1574) - lu(k,338) * lu(k,1557)
768 315224452 : lu(k,1585) = lu(k,1585) - lu(k,335) * lu(k,1583)
769 315224452 : lu(k,1587) = lu(k,1587) - lu(k,336) * lu(k,1583)
770 315224452 : lu(k,1592) = lu(k,1592) - lu(k,337) * lu(k,1583)
771 315224452 : lu(k,1600) = lu(k,1600) - lu(k,338) * lu(k,1583)
772 315224452 : lu(k,339) = 1._r8 / lu(k,339)
773 315224452 : lu(k,340) = lu(k,340) * lu(k,339)
774 315224452 : lu(k,341) = lu(k,341) * lu(k,339)
775 315224452 : lu(k,342) = lu(k,342) * lu(k,339)
776 315224452 : lu(k,343) = lu(k,343) * lu(k,339)
777 315224452 : lu(k,448) = lu(k,448) - lu(k,340) * lu(k,447)
778 315224452 : lu(k,449) = lu(k,449) - lu(k,341) * lu(k,447)
779 315224452 : lu(k,450) = - lu(k,342) * lu(k,447)
780 315224452 : lu(k,453) = lu(k,453) - lu(k,343) * lu(k,447)
781 315224452 : lu(k,1729) = lu(k,1729) - lu(k,340) * lu(k,1714)
782 315224452 : lu(k,1784) = lu(k,1784) - lu(k,341) * lu(k,1714)
783 315224452 : lu(k,1818) = lu(k,1818) - lu(k,342) * lu(k,1714)
784 315224452 : lu(k,1829) = lu(k,1829) - lu(k,343) * lu(k,1714)
785 315224452 : lu(k,2291) = lu(k,2291) - lu(k,340) * lu(k,2280)
786 315224452 : lu(k,2327) = lu(k,2327) - lu(k,341) * lu(k,2280)
787 315224452 : lu(k,2357) = lu(k,2357) - lu(k,342) * lu(k,2280)
788 315224452 : lu(k,2368) = lu(k,2368) - lu(k,343) * lu(k,2280)
789 315224452 : lu(k,345) = 1._r8 / lu(k,345)
790 315224452 : lu(k,346) = lu(k,346) * lu(k,345)
791 315224452 : lu(k,347) = lu(k,347) * lu(k,345)
792 315224452 : lu(k,348) = lu(k,348) * lu(k,345)
793 315224452 : lu(k,349) = lu(k,349) * lu(k,345)
794 315224452 : lu(k,435) = lu(k,435) - lu(k,346) * lu(k,434)
795 315224452 : lu(k,436) = lu(k,436) - lu(k,347) * lu(k,434)
796 315224452 : lu(k,437) = lu(k,437) - lu(k,348) * lu(k,434)
797 315224452 : lu(k,440) = lu(k,440) - lu(k,349) * lu(k,434)
798 315224452 : lu(k,1728) = lu(k,1728) - lu(k,346) * lu(k,1715)
799 315224452 : lu(k,1739) = lu(k,1739) - lu(k,347) * lu(k,1715)
800 315224452 : lu(k,1818) = lu(k,1818) - lu(k,348) * lu(k,1715)
801 315224452 : lu(k,1829) = lu(k,1829) - lu(k,349) * lu(k,1715)
802 315224452 : lu(k,2289) = lu(k,2289) - lu(k,346) * lu(k,2281)
803 315224452 : lu(k,2300) = lu(k,2300) - lu(k,347) * lu(k,2281)
804 315224452 : lu(k,2357) = lu(k,2357) - lu(k,348) * lu(k,2281)
805 315224452 : lu(k,2368) = lu(k,2368) - lu(k,349) * lu(k,2281)
806 315224452 : lu(k,350) = 1._r8 / lu(k,350)
807 315224452 : lu(k,351) = lu(k,351) * lu(k,350)
808 315224452 : lu(k,352) = lu(k,352) * lu(k,350)
809 315224452 : lu(k,353) = lu(k,353) * lu(k,350)
810 315224452 : lu(k,354) = lu(k,354) * lu(k,350)
811 315224452 : lu(k,901) = lu(k,901) - lu(k,351) * lu(k,899)
812 315224452 : lu(k,902) = lu(k,902) - lu(k,352) * lu(k,899)
813 315224452 : lu(k,904) = lu(k,904) - lu(k,353) * lu(k,899)
814 315224452 : lu(k,908) = lu(k,908) - lu(k,354) * lu(k,899)
815 315224452 : lu(k,1773) = lu(k,1773) - lu(k,351) * lu(k,1716)
816 315224452 : lu(k,1792) = lu(k,1792) - lu(k,352) * lu(k,1716)
817 315224452 : lu(k,1818) = lu(k,1818) - lu(k,353) * lu(k,1716)
818 315224452 : lu(k,1829) = lu(k,1829) - lu(k,354) * lu(k,1716)
819 315224452 : lu(k,2322) = lu(k,2322) - lu(k,351) * lu(k,2282)
820 315224452 : lu(k,2333) = lu(k,2333) - lu(k,352) * lu(k,2282)
821 315224452 : lu(k,2357) = lu(k,2357) - lu(k,353) * lu(k,2282)
822 315224452 : lu(k,2368) = lu(k,2368) - lu(k,354) * lu(k,2282)
823 315224452 : lu(k,355) = 1._r8 / lu(k,355)
824 315224452 : lu(k,356) = lu(k,356) * lu(k,355)
825 315224452 : lu(k,357) = lu(k,357) * lu(k,355)
826 315224452 : lu(k,358) = lu(k,358) * lu(k,355)
827 315224452 : lu(k,359) = lu(k,359) * lu(k,355)
828 315224452 : lu(k,360) = lu(k,360) * lu(k,355)
829 315224452 : lu(k,361) = lu(k,361) * lu(k,355)
830 315224452 : lu(k,362) = lu(k,362) * lu(k,355)
831 315224452 : lu(k,1613) = - lu(k,356) * lu(k,1612)
832 315224452 : lu(k,1624) = lu(k,1624) - lu(k,357) * lu(k,1612)
833 315224452 : lu(k,1629) = lu(k,1629) - lu(k,358) * lu(k,1612)
834 315224452 : lu(k,1652) = lu(k,1652) - lu(k,359) * lu(k,1612)
835 315224452 : lu(k,1653) = lu(k,1653) - lu(k,360) * lu(k,1612)
836 315224452 : lu(k,1655) = lu(k,1655) - lu(k,361) * lu(k,1612)
837 315224452 : lu(k,1656) = lu(k,1656) - lu(k,362) * lu(k,1612)
838 315224452 : lu(k,1744) = lu(k,1744) - lu(k,356) * lu(k,1717)
839 315224452 : lu(k,1787) = lu(k,1787) - lu(k,357) * lu(k,1717)
840 315224452 : lu(k,1792) = lu(k,1792) - lu(k,358) * lu(k,1717)
841 315224452 : lu(k,1817) = lu(k,1817) - lu(k,359) * lu(k,1717)
842 315224452 : lu(k,1818) = lu(k,1818) - lu(k,360) * lu(k,1717)
843 315224452 : lu(k,1820) = lu(k,1820) - lu(k,361) * lu(k,1717)
844 315224452 : lu(k,1821) = lu(k,1821) - lu(k,362) * lu(k,1717)
845 315224452 : lu(k,363) = 1._r8 / lu(k,363)
846 315224452 : lu(k,364) = lu(k,364) * lu(k,363)
847 315224452 : lu(k,365) = lu(k,365) * lu(k,363)
848 315224452 : lu(k,366) = lu(k,366) * lu(k,363)
849 315224452 : lu(k,367) = lu(k,367) * lu(k,363)
850 315224452 : lu(k,368) = lu(k,368) * lu(k,363)
851 315224452 : lu(k,369) = lu(k,369) * lu(k,363)
852 315224452 : lu(k,370) = lu(k,370) * lu(k,363)
853 315224452 : lu(k,1760) = lu(k,1760) - lu(k,364) * lu(k,1718)
854 315224452 : lu(k,1778) = lu(k,1778) - lu(k,365) * lu(k,1718)
855 315224452 : lu(k,1793) = lu(k,1793) - lu(k,366) * lu(k,1718)
856 315224452 : lu(k,1811) = lu(k,1811) - lu(k,367) * lu(k,1718)
857 315224452 : lu(k,1818) = lu(k,1818) - lu(k,368) * lu(k,1718)
858 315224452 : lu(k,1824) = lu(k,1824) - lu(k,369) * lu(k,1718)
859 315224452 : lu(k,1825) = lu(k,1825) - lu(k,370) * lu(k,1718)
860 315224452 : lu(k,2072) = - lu(k,364) * lu(k,2066)
861 315224452 : lu(k,2080) = - lu(k,365) * lu(k,2066)
862 315224452 : lu(k,2083) = lu(k,2083) - lu(k,366) * lu(k,2066)
863 315224452 : lu(k,2086) = lu(k,2086) - lu(k,367) * lu(k,2066)
864 315224452 : lu(k,2093) = lu(k,2093) - lu(k,368) * lu(k,2066)
865 315224452 : lu(k,2099) = lu(k,2099) - lu(k,369) * lu(k,2066)
866 315224452 : lu(k,2100) = lu(k,2100) - lu(k,370) * lu(k,2066)
867 315224452 : lu(k,371) = 1._r8 / lu(k,371)
868 315224452 : lu(k,372) = lu(k,372) * lu(k,371)
869 315224452 : lu(k,373) = lu(k,373) * lu(k,371)
870 315224452 : lu(k,374) = lu(k,374) * lu(k,371)
871 315224452 : lu(k,375) = lu(k,375) * lu(k,371)
872 315224452 : lu(k,376) = lu(k,376) * lu(k,371)
873 315224452 : lu(k,377) = lu(k,377) * lu(k,371)
874 315224452 : lu(k,378) = lu(k,378) * lu(k,371)
875 315224452 : lu(k,1793) = lu(k,1793) - lu(k,372) * lu(k,1719)
876 315224452 : lu(k,1812) = lu(k,1812) - lu(k,373) * lu(k,1719)
877 315224452 : lu(k,1818) = lu(k,1818) - lu(k,374) * lu(k,1719)
878 315224452 : lu(k,1826) = lu(k,1826) - lu(k,375) * lu(k,1719)
879 315224452 : lu(k,1829) = lu(k,1829) - lu(k,376) * lu(k,1719)
880 315224452 : lu(k,1830) = lu(k,1830) - lu(k,377) * lu(k,1719)
881 315224452 : lu(k,1831) = lu(k,1831) - lu(k,378) * lu(k,1719)
882 315224452 : lu(k,2147) = lu(k,2147) - lu(k,372) * lu(k,2132)
883 315224452 : lu(k,2154) = lu(k,2154) - lu(k,373) * lu(k,2132)
884 315224452 : lu(k,2160) = lu(k,2160) - lu(k,374) * lu(k,2132)
885 315224452 : lu(k,2168) = lu(k,2168) - lu(k,375) * lu(k,2132)
886 315224452 : lu(k,2171) = lu(k,2171) - lu(k,376) * lu(k,2132)
887 315224452 : lu(k,2172) = lu(k,2172) - lu(k,377) * lu(k,2132)
888 325174377 : lu(k,2173) = lu(k,2173) - lu(k,378) * lu(k,2132)
889 : end do
890 9949925 : end subroutine lu_fac07
891 9949925 : subroutine lu_fac08( avec_len, lu )
892 : use chem_mods, only : nzcnt
893 : use shr_kind_mod, only : r8 => shr_kind_r8
894 : implicit none
895 : !-----------------------------------------------------------------------
896 : ! ... dummy args
897 : !-----------------------------------------------------------------------
898 : integer, intent(in) :: avec_len
899 : real(r8), intent(inout) :: lu(veclen,nzcnt)
900 : !-----------------------------------------------------------------------
901 : ! ... local variables
902 : !-----------------------------------------------------------------------
903 : integer :: k
904 325174377 : do k = 1,avec_len
905 315224452 : lu(k,379) = 1._r8 / lu(k,379)
906 315224452 : lu(k,380) = lu(k,380) * lu(k,379)
907 315224452 : lu(k,381) = lu(k,381) * lu(k,379)
908 315224452 : lu(k,382) = lu(k,382) * lu(k,379)
909 315224452 : lu(k,383) = lu(k,383) * lu(k,379)
910 315224452 : lu(k,384) = lu(k,384) * lu(k,379)
911 315224452 : lu(k,976) = - lu(k,380) * lu(k,972)
912 315224452 : lu(k,982) = lu(k,982) - lu(k,381) * lu(k,972)
913 315224452 : lu(k,984) = - lu(k,382) * lu(k,972)
914 315224452 : lu(k,985) = lu(k,985) - lu(k,383) * lu(k,972)
915 315224452 : lu(k,991) = lu(k,991) - lu(k,384) * lu(k,972)
916 315224452 : lu(k,1020) = - lu(k,380) * lu(k,1016)
917 315224452 : lu(k,1026) = lu(k,1026) - lu(k,381) * lu(k,1016)
918 315224452 : lu(k,1028) = - lu(k,382) * lu(k,1016)
919 315224452 : lu(k,1029) = lu(k,1029) - lu(k,383) * lu(k,1016)
920 315224452 : lu(k,1035) = lu(k,1035) - lu(k,384) * lu(k,1016)
921 315224452 : lu(k,2195) = - lu(k,380) * lu(k,2182)
922 315224452 : lu(k,2203) = lu(k,2203) - lu(k,381) * lu(k,2182)
923 315224452 : lu(k,2210) = lu(k,2210) - lu(k,382) * lu(k,2182)
924 315224452 : lu(k,2216) = lu(k,2216) - lu(k,383) * lu(k,2182)
925 315224452 : lu(k,2235) = lu(k,2235) - lu(k,384) * lu(k,2182)
926 315224452 : lu(k,385) = 1._r8 / lu(k,385)
927 315224452 : lu(k,386) = lu(k,386) * lu(k,385)
928 315224452 : lu(k,387) = lu(k,387) * lu(k,385)
929 315224452 : lu(k,388) = lu(k,388) * lu(k,385)
930 315224452 : lu(k,389) = lu(k,389) * lu(k,385)
931 315224452 : lu(k,390) = lu(k,390) * lu(k,385)
932 315224452 : lu(k,1812) = lu(k,1812) - lu(k,386) * lu(k,1720)
933 315224452 : lu(k,1813) = lu(k,1813) - lu(k,387) * lu(k,1720)
934 315224452 : lu(k,1818) = lu(k,1818) - lu(k,388) * lu(k,1720)
935 315224452 : lu(k,1822) = lu(k,1822) - lu(k,389) * lu(k,1720)
936 315224452 : lu(k,1826) = lu(k,1826) - lu(k,390) * lu(k,1720)
937 315224452 : lu(k,2021) = lu(k,2021) - lu(k,386) * lu(k,2015)
938 315224452 : lu(k,2022) = lu(k,2022) - lu(k,387) * lu(k,2015)
939 315224452 : lu(k,2027) = lu(k,2027) - lu(k,388) * lu(k,2015)
940 315224452 : lu(k,2031) = lu(k,2031) - lu(k,389) * lu(k,2015)
941 315224452 : lu(k,2035) = lu(k,2035) - lu(k,390) * lu(k,2015)
942 315224452 : lu(k,2154) = lu(k,2154) - lu(k,386) * lu(k,2133)
943 315224452 : lu(k,2155) = lu(k,2155) - lu(k,387) * lu(k,2133)
944 315224452 : lu(k,2160) = lu(k,2160) - lu(k,388) * lu(k,2133)
945 315224452 : lu(k,2164) = - lu(k,389) * lu(k,2133)
946 315224452 : lu(k,2168) = lu(k,2168) - lu(k,390) * lu(k,2133)
947 315224452 : lu(k,391) = 1._r8 / lu(k,391)
948 315224452 : lu(k,392) = lu(k,392) * lu(k,391)
949 315224452 : lu(k,393) = lu(k,393) * lu(k,391)
950 315224452 : lu(k,394) = lu(k,394) * lu(k,391)
951 315224452 : lu(k,395) = lu(k,395) * lu(k,391)
952 315224452 : lu(k,396) = lu(k,396) * lu(k,391)
953 315224452 : lu(k,1105) = lu(k,1105) - lu(k,392) * lu(k,1102)
954 315224452 : lu(k,1106) = lu(k,1106) - lu(k,393) * lu(k,1102)
955 315224452 : lu(k,1111) = - lu(k,394) * lu(k,1102)
956 315224452 : lu(k,1113) = lu(k,1113) - lu(k,395) * lu(k,1102)
957 315224452 : lu(k,1115) = - lu(k,396) * lu(k,1102)
958 315224452 : lu(k,1786) = lu(k,1786) - lu(k,392) * lu(k,1721)
959 315224452 : lu(k,1789) = lu(k,1789) - lu(k,393) * lu(k,1721)
960 315224452 : lu(k,1818) = lu(k,1818) - lu(k,394) * lu(k,1721)
961 315224452 : lu(k,1820) = lu(k,1820) - lu(k,395) * lu(k,1721)
962 315224452 : lu(k,1823) = lu(k,1823) - lu(k,396) * lu(k,1721)
963 315224452 : lu(k,2329) = - lu(k,392) * lu(k,2283)
964 315224452 : lu(k,2331) = lu(k,2331) - lu(k,393) * lu(k,2283)
965 315224452 : lu(k,2357) = lu(k,2357) - lu(k,394) * lu(k,2283)
966 315224452 : lu(k,2359) = lu(k,2359) - lu(k,395) * lu(k,2283)
967 315224452 : lu(k,2362) = - lu(k,396) * lu(k,2283)
968 315224452 : lu(k,397) = 1._r8 / lu(k,397)
969 315224452 : lu(k,398) = lu(k,398) * lu(k,397)
970 315224452 : lu(k,399) = lu(k,399) * lu(k,397)
971 315224452 : lu(k,400) = lu(k,400) * lu(k,397)
972 315224452 : lu(k,401) = lu(k,401) * lu(k,397)
973 315224452 : lu(k,402) = lu(k,402) * lu(k,397)
974 315224452 : lu(k,1217) = lu(k,1217) - lu(k,398) * lu(k,1214)
975 315224452 : lu(k,1219) = lu(k,1219) - lu(k,399) * lu(k,1214)
976 315224452 : lu(k,1220) = lu(k,1220) - lu(k,400) * lu(k,1214)
977 315224452 : lu(k,1223) = lu(k,1223) - lu(k,401) * lu(k,1214)
978 315224452 : lu(k,1226) = - lu(k,402) * lu(k,1214)
979 315224452 : lu(k,1798) = lu(k,1798) - lu(k,398) * lu(k,1722)
980 315224452 : lu(k,1808) = lu(k,1808) - lu(k,399) * lu(k,1722)
981 315224452 : lu(k,1818) = lu(k,1818) - lu(k,400) * lu(k,1722)
982 315224452 : lu(k,1821) = lu(k,1821) - lu(k,401) * lu(k,1722)
983 315224452 : lu(k,1831) = lu(k,1831) - lu(k,402) * lu(k,1722)
984 315224452 : lu(k,2338) = lu(k,2338) - lu(k,398) * lu(k,2284)
985 315224452 : lu(k,2348) = lu(k,2348) - lu(k,399) * lu(k,2284)
986 315224452 : lu(k,2357) = lu(k,2357) - lu(k,400) * lu(k,2284)
987 315224452 : lu(k,2360) = lu(k,2360) - lu(k,401) * lu(k,2284)
988 315224452 : lu(k,2370) = lu(k,2370) - lu(k,402) * lu(k,2284)
989 315224452 : lu(k,403) = 1._r8 / lu(k,403)
990 315224452 : lu(k,404) = lu(k,404) * lu(k,403)
991 315224452 : lu(k,405) = lu(k,405) * lu(k,403)
992 315224452 : lu(k,406) = lu(k,406) * lu(k,403)
993 315224452 : lu(k,407) = lu(k,407) * lu(k,403)
994 315224452 : lu(k,408) = lu(k,408) * lu(k,403)
995 315224452 : lu(k,1246) = - lu(k,404) * lu(k,1244)
996 315224452 : lu(k,1248) = - lu(k,405) * lu(k,1244)
997 315224452 : lu(k,1260) = - lu(k,406) * lu(k,1244)
998 315224452 : lu(k,1262) = lu(k,1262) - lu(k,407) * lu(k,1244)
999 315224452 : lu(k,1265) = lu(k,1265) - lu(k,408) * lu(k,1244)
1000 315224452 : lu(k,1759) = lu(k,1759) - lu(k,404) * lu(k,1723)
1001 315224452 : lu(k,1772) = lu(k,1772) - lu(k,405) * lu(k,1723)
1002 315224452 : lu(k,1818) = lu(k,1818) - lu(k,406) * lu(k,1723)
1003 315224452 : lu(k,1820) = lu(k,1820) - lu(k,407) * lu(k,1723)
1004 315224452 : lu(k,1829) = lu(k,1829) - lu(k,408) * lu(k,1723)
1005 315224452 : lu(k,2310) = lu(k,2310) - lu(k,404) * lu(k,2285)
1006 315224452 : lu(k,2321) = - lu(k,405) * lu(k,2285)
1007 315224452 : lu(k,2357) = lu(k,2357) - lu(k,406) * lu(k,2285)
1008 315224452 : lu(k,2359) = lu(k,2359) - lu(k,407) * lu(k,2285)
1009 315224452 : lu(k,2368) = lu(k,2368) - lu(k,408) * lu(k,2285)
1010 315224452 : lu(k,409) = 1._r8 / lu(k,409)
1011 315224452 : lu(k,410) = lu(k,410) * lu(k,409)
1012 315224452 : lu(k,411) = lu(k,411) * lu(k,409)
1013 315224452 : lu(k,412) = lu(k,412) * lu(k,409)
1014 315224452 : lu(k,413) = lu(k,413) * lu(k,409)
1015 315224452 : lu(k,414) = lu(k,414) * lu(k,409)
1016 315224452 : lu(k,935) = lu(k,935) - lu(k,410) * lu(k,934)
1017 315224452 : lu(k,936) = lu(k,936) - lu(k,411) * lu(k,934)
1018 315224452 : lu(k,939) = - lu(k,412) * lu(k,934)
1019 315224452 : lu(k,943) = lu(k,943) - lu(k,413) * lu(k,934)
1020 315224452 : lu(k,945) = - lu(k,414) * lu(k,934)
1021 315224452 : lu(k,1777) = lu(k,1777) - lu(k,410) * lu(k,1724)
1022 315224452 : lu(k,1787) = lu(k,1787) - lu(k,411) * lu(k,1724)
1023 315224452 : lu(k,1818) = lu(k,1818) - lu(k,412) * lu(k,1724)
1024 315224452 : lu(k,1829) = lu(k,1829) - lu(k,413) * lu(k,1724)
1025 315224452 : lu(k,1831) = lu(k,1831) - lu(k,414) * lu(k,1724)
1026 315224452 : lu(k,2325) = lu(k,2325) - lu(k,410) * lu(k,2286)
1027 315224452 : lu(k,2330) = - lu(k,411) * lu(k,2286)
1028 315224452 : lu(k,2357) = lu(k,2357) - lu(k,412) * lu(k,2286)
1029 315224452 : lu(k,2368) = lu(k,2368) - lu(k,413) * lu(k,2286)
1030 325174377 : lu(k,2370) = lu(k,2370) - lu(k,414) * lu(k,2286)
1031 : end do
1032 9949925 : end subroutine lu_fac08
1033 9949925 : subroutine lu_fac09( avec_len, lu )
1034 : use chem_mods, only : nzcnt
1035 : use shr_kind_mod, only : r8 => shr_kind_r8
1036 : implicit none
1037 : !-----------------------------------------------------------------------
1038 : ! ... dummy args
1039 : !-----------------------------------------------------------------------
1040 : integer, intent(in) :: avec_len
1041 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1042 : !-----------------------------------------------------------------------
1043 : ! ... local variables
1044 : !-----------------------------------------------------------------------
1045 : integer :: k
1046 325174377 : do k = 1,avec_len
1047 315224452 : lu(k,415) = 1._r8 / lu(k,415)
1048 315224452 : lu(k,416) = lu(k,416) * lu(k,415)
1049 315224452 : lu(k,417) = lu(k,417) * lu(k,415)
1050 315224452 : lu(k,418) = lu(k,418) * lu(k,415)
1051 315224452 : lu(k,419) = lu(k,419) * lu(k,415)
1052 315224452 : lu(k,420) = lu(k,420) * lu(k,415)
1053 315224452 : lu(k,494) = lu(k,494) - lu(k,416) * lu(k,493)
1054 315224452 : lu(k,495) = lu(k,495) - lu(k,417) * lu(k,493)
1055 315224452 : lu(k,497) = lu(k,497) - lu(k,418) * lu(k,493)
1056 315224452 : lu(k,498) = - lu(k,419) * lu(k,493)
1057 315224452 : lu(k,501) = lu(k,501) - lu(k,420) * lu(k,493)
1058 315224452 : lu(k,1731) = lu(k,1731) - lu(k,416) * lu(k,1725)
1059 315224452 : lu(k,1736) = lu(k,1736) - lu(k,417) * lu(k,1725)
1060 315224452 : lu(k,1784) = lu(k,1784) - lu(k,418) * lu(k,1725)
1061 315224452 : lu(k,1818) = lu(k,1818) - lu(k,419) * lu(k,1725)
1062 315224452 : lu(k,1829) = lu(k,1829) - lu(k,420) * lu(k,1725)
1063 315224452 : lu(k,2294) = - lu(k,416) * lu(k,2287)
1064 315224452 : lu(k,2298) = lu(k,2298) - lu(k,417) * lu(k,2287)
1065 315224452 : lu(k,2327) = lu(k,2327) - lu(k,418) * lu(k,2287)
1066 315224452 : lu(k,2357) = lu(k,2357) - lu(k,419) * lu(k,2287)
1067 315224452 : lu(k,2368) = lu(k,2368) - lu(k,420) * lu(k,2287)
1068 315224452 : lu(k,421) = 1._r8 / lu(k,421)
1069 315224452 : lu(k,422) = lu(k,422) * lu(k,421)
1070 315224452 : lu(k,423) = lu(k,423) * lu(k,421)
1071 315224452 : lu(k,424) = lu(k,424) * lu(k,421)
1072 315224452 : lu(k,425) = lu(k,425) * lu(k,421)
1073 315224452 : lu(k,426) = lu(k,426) * lu(k,421)
1074 315224452 : lu(k,510) = lu(k,510) - lu(k,422) * lu(k,509)
1075 315224452 : lu(k,511) = lu(k,511) - lu(k,423) * lu(k,509)
1076 315224452 : lu(k,512) = lu(k,512) - lu(k,424) * lu(k,509)
1077 315224452 : lu(k,513) = - lu(k,425) * lu(k,509)
1078 315224452 : lu(k,516) = lu(k,516) - lu(k,426) * lu(k,509)
1079 315224452 : lu(k,1737) = lu(k,1737) - lu(k,422) * lu(k,1726)
1080 315224452 : lu(k,1784) = lu(k,1784) - lu(k,423) * lu(k,1726)
1081 315224452 : lu(k,1802) = lu(k,1802) - lu(k,424) * lu(k,1726)
1082 315224452 : lu(k,1818) = lu(k,1818) - lu(k,425) * lu(k,1726)
1083 315224452 : lu(k,1829) = lu(k,1829) - lu(k,426) * lu(k,1726)
1084 315224452 : lu(k,2299) = lu(k,2299) - lu(k,422) * lu(k,2288)
1085 315224452 : lu(k,2327) = lu(k,2327) - lu(k,423) * lu(k,2288)
1086 315224452 : lu(k,2342) = lu(k,2342) - lu(k,424) * lu(k,2288)
1087 315224452 : lu(k,2357) = lu(k,2357) - lu(k,425) * lu(k,2288)
1088 315224452 : lu(k,2368) = lu(k,2368) - lu(k,426) * lu(k,2288)
1089 315224452 : lu(k,427) = 1._r8 / lu(k,427)
1090 315224452 : lu(k,428) = lu(k,428) * lu(k,427)
1091 315224452 : lu(k,429) = lu(k,429) * lu(k,427)
1092 315224452 : lu(k,430) = lu(k,430) * lu(k,427)
1093 315224452 : lu(k,431) = lu(k,431) * lu(k,427)
1094 315224452 : lu(k,432) = lu(k,432) * lu(k,427)
1095 315224452 : lu(k,1248) = lu(k,1248) - lu(k,428) * lu(k,1245)
1096 315224452 : lu(k,1251) = - lu(k,429) * lu(k,1245)
1097 315224452 : lu(k,1260) = lu(k,1260) - lu(k,430) * lu(k,1245)
1098 315224452 : lu(k,1264) = - lu(k,431) * lu(k,1245)
1099 315224452 : lu(k,1265) = lu(k,1265) - lu(k,432) * lu(k,1245)
1100 315224452 : lu(k,1772) = lu(k,1772) - lu(k,428) * lu(k,1727)
1101 315224452 : lu(k,1794) = lu(k,1794) - lu(k,429) * lu(k,1727)
1102 315224452 : lu(k,1818) = lu(k,1818) - lu(k,430) * lu(k,1727)
1103 315224452 : lu(k,1823) = lu(k,1823) - lu(k,431) * lu(k,1727)
1104 315224452 : lu(k,1829) = lu(k,1829) - lu(k,432) * lu(k,1727)
1105 315224452 : lu(k,2378) = - lu(k,428) * lu(k,2373)
1106 315224452 : lu(k,2390) = lu(k,2390) - lu(k,429) * lu(k,2373)
1107 315224452 : lu(k,2409) = lu(k,2409) - lu(k,430) * lu(k,2373)
1108 315224452 : lu(k,2414) = - lu(k,431) * lu(k,2373)
1109 315224452 : lu(k,2420) = lu(k,2420) - lu(k,432) * lu(k,2373)
1110 315224452 : lu(k,435) = 1._r8 / lu(k,435)
1111 315224452 : lu(k,436) = lu(k,436) * lu(k,435)
1112 315224452 : lu(k,437) = lu(k,437) * lu(k,435)
1113 315224452 : lu(k,438) = lu(k,438) * lu(k,435)
1114 315224452 : lu(k,439) = lu(k,439) * lu(k,435)
1115 315224452 : lu(k,440) = lu(k,440) * lu(k,435)
1116 315224452 : lu(k,1739) = lu(k,1739) - lu(k,436) * lu(k,1728)
1117 315224452 : lu(k,1818) = lu(k,1818) - lu(k,437) * lu(k,1728)
1118 315224452 : lu(k,1819) = lu(k,1819) - lu(k,438) * lu(k,1728)
1119 315224452 : lu(k,1820) = lu(k,1820) - lu(k,439) * lu(k,1728)
1120 315224452 : lu(k,1829) = lu(k,1829) - lu(k,440) * lu(k,1728)
1121 315224452 : lu(k,1858) = lu(k,1858) - lu(k,436) * lu(k,1849)
1122 315224452 : lu(k,1913) = lu(k,1913) - lu(k,437) * lu(k,1849)
1123 315224452 : lu(k,1914) = lu(k,1914) - lu(k,438) * lu(k,1849)
1124 315224452 : lu(k,1915) = lu(k,1915) - lu(k,439) * lu(k,1849)
1125 315224452 : lu(k,1924) = lu(k,1924) - lu(k,440) * lu(k,1849)
1126 315224452 : lu(k,2300) = lu(k,2300) - lu(k,436) * lu(k,2289)
1127 315224452 : lu(k,2357) = lu(k,2357) - lu(k,437) * lu(k,2289)
1128 315224452 : lu(k,2358) = lu(k,2358) - lu(k,438) * lu(k,2289)
1129 315224452 : lu(k,2359) = lu(k,2359) - lu(k,439) * lu(k,2289)
1130 315224452 : lu(k,2368) = lu(k,2368) - lu(k,440) * lu(k,2289)
1131 315224452 : lu(k,441) = 1._r8 / lu(k,441)
1132 315224452 : lu(k,442) = lu(k,442) * lu(k,441)
1133 315224452 : lu(k,443) = lu(k,443) * lu(k,441)
1134 315224452 : lu(k,444) = lu(k,444) * lu(k,441)
1135 315224452 : lu(k,445) = lu(k,445) * lu(k,441)
1136 315224452 : lu(k,446) = lu(k,446) * lu(k,441)
1137 315224452 : lu(k,1879) = lu(k,1879) - lu(k,442) * lu(k,1850)
1138 315224452 : lu(k,1914) = lu(k,1914) - lu(k,443) * lu(k,1850)
1139 315224452 : lu(k,1915) = lu(k,1915) - lu(k,444) * lu(k,1850)
1140 315224452 : lu(k,1916) = lu(k,1916) - lu(k,445) * lu(k,1850)
1141 315224452 : lu(k,1924) = lu(k,1924) - lu(k,446) * lu(k,1850)
1142 315224452 : lu(k,1974) = - lu(k,442) * lu(k,1972)
1143 315224452 : lu(k,1985) = - lu(k,443) * lu(k,1972)
1144 315224452 : lu(k,1986) = - lu(k,444) * lu(k,1972)
1145 315224452 : lu(k,1987) = lu(k,1987) - lu(k,445) * lu(k,1972)
1146 315224452 : lu(k,1995) = lu(k,1995) - lu(k,446) * lu(k,1972)
1147 315224452 : lu(k,2324) = lu(k,2324) - lu(k,442) * lu(k,2290)
1148 315224452 : lu(k,2358) = lu(k,2358) - lu(k,443) * lu(k,2290)
1149 315224452 : lu(k,2359) = lu(k,2359) - lu(k,444) * lu(k,2290)
1150 315224452 : lu(k,2360) = lu(k,2360) - lu(k,445) * lu(k,2290)
1151 315224452 : lu(k,2368) = lu(k,2368) - lu(k,446) * lu(k,2290)
1152 315224452 : lu(k,448) = 1._r8 / lu(k,448)
1153 315224452 : lu(k,449) = lu(k,449) * lu(k,448)
1154 315224452 : lu(k,450) = lu(k,450) * lu(k,448)
1155 315224452 : lu(k,451) = lu(k,451) * lu(k,448)
1156 315224452 : lu(k,452) = lu(k,452) * lu(k,448)
1157 315224452 : lu(k,453) = lu(k,453) * lu(k,448)
1158 315224452 : lu(k,1784) = lu(k,1784) - lu(k,449) * lu(k,1729)
1159 315224452 : lu(k,1818) = lu(k,1818) - lu(k,450) * lu(k,1729)
1160 315224452 : lu(k,1819) = lu(k,1819) - lu(k,451) * lu(k,1729)
1161 315224452 : lu(k,1820) = lu(k,1820) - lu(k,452) * lu(k,1729)
1162 315224452 : lu(k,1829) = lu(k,1829) - lu(k,453) * lu(k,1729)
1163 315224452 : lu(k,1883) = lu(k,1883) - lu(k,449) * lu(k,1851)
1164 315224452 : lu(k,1913) = lu(k,1913) - lu(k,450) * lu(k,1851)
1165 315224452 : lu(k,1914) = lu(k,1914) - lu(k,451) * lu(k,1851)
1166 315224452 : lu(k,1915) = lu(k,1915) - lu(k,452) * lu(k,1851)
1167 315224452 : lu(k,1924) = lu(k,1924) - lu(k,453) * lu(k,1851)
1168 315224452 : lu(k,2327) = lu(k,2327) - lu(k,449) * lu(k,2291)
1169 315224452 : lu(k,2357) = lu(k,2357) - lu(k,450) * lu(k,2291)
1170 315224452 : lu(k,2358) = lu(k,2358) - lu(k,451) * lu(k,2291)
1171 315224452 : lu(k,2359) = lu(k,2359) - lu(k,452) * lu(k,2291)
1172 315224452 : lu(k,2368) = lu(k,2368) - lu(k,453) * lu(k,2291)
1173 315224452 : lu(k,454) = 1._r8 / lu(k,454)
1174 315224452 : lu(k,455) = lu(k,455) * lu(k,454)
1175 315224452 : lu(k,456) = lu(k,456) * lu(k,454)
1176 315224452 : lu(k,457) = lu(k,457) * lu(k,454)
1177 315224452 : lu(k,458) = lu(k,458) * lu(k,454)
1178 315224452 : lu(k,459) = lu(k,459) * lu(k,454)
1179 315224452 : lu(k,1818) = lu(k,1818) - lu(k,455) * lu(k,1730)
1180 315224452 : lu(k,1821) = lu(k,1821) - lu(k,456) * lu(k,1730)
1181 315224452 : lu(k,1825) = lu(k,1825) - lu(k,457) * lu(k,1730)
1182 315224452 : lu(k,1830) = lu(k,1830) - lu(k,458) * lu(k,1730)
1183 315224452 : lu(k,1831) = lu(k,1831) - lu(k,459) * lu(k,1730)
1184 315224452 : lu(k,2357) = lu(k,2357) - lu(k,455) * lu(k,2292)
1185 315224452 : lu(k,2360) = lu(k,2360) - lu(k,456) * lu(k,2292)
1186 315224452 : lu(k,2364) = lu(k,2364) - lu(k,457) * lu(k,2292)
1187 315224452 : lu(k,2369) = lu(k,2369) - lu(k,458) * lu(k,2292)
1188 315224452 : lu(k,2370) = lu(k,2370) - lu(k,459) * lu(k,2292)
1189 315224452 : lu(k,2409) = lu(k,2409) - lu(k,455) * lu(k,2374)
1190 315224452 : lu(k,2412) = lu(k,2412) - lu(k,456) * lu(k,2374)
1191 315224452 : lu(k,2416) = - lu(k,457) * lu(k,2374)
1192 315224452 : lu(k,2421) = lu(k,2421) - lu(k,458) * lu(k,2374)
1193 325174377 : lu(k,2422) = - lu(k,459) * lu(k,2374)
1194 : end do
1195 9949925 : end subroutine lu_fac09
1196 9949925 : subroutine lu_fac10( avec_len, lu )
1197 : use chem_mods, only : nzcnt
1198 : use shr_kind_mod, only : r8 => shr_kind_r8
1199 : implicit none
1200 : !-----------------------------------------------------------------------
1201 : ! ... dummy args
1202 : !-----------------------------------------------------------------------
1203 : integer, intent(in) :: avec_len
1204 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1205 : !-----------------------------------------------------------------------
1206 : ! ... local variables
1207 : !-----------------------------------------------------------------------
1208 : integer :: k
1209 325174377 : do k = 1,avec_len
1210 315224452 : lu(k,460) = 1._r8 / lu(k,460)
1211 315224452 : lu(k,461) = lu(k,461) * lu(k,460)
1212 315224452 : lu(k,462) = lu(k,462) * lu(k,460)
1213 315224452 : lu(k,463) = lu(k,463) * lu(k,460)
1214 315224452 : lu(k,464) = lu(k,464) * lu(k,460)
1215 315224452 : lu(k,798) = - lu(k,461) * lu(k,796)
1216 315224452 : lu(k,799) = - lu(k,462) * lu(k,796)
1217 315224452 : lu(k,803) = lu(k,803) - lu(k,463) * lu(k,796)
1218 315224452 : lu(k,804) = lu(k,804) - lu(k,464) * lu(k,796)
1219 315224452 : lu(k,1538) = lu(k,1538) - lu(k,461) * lu(k,1526)
1220 315224452 : lu(k,1542) = lu(k,1542) - lu(k,462) * lu(k,1526)
1221 315224452 : lu(k,1548) = - lu(k,463) * lu(k,1526)
1222 315224452 : lu(k,1554) = lu(k,1554) - lu(k,464) * lu(k,1526)
1223 315224452 : lu(k,1892) = lu(k,1892) - lu(k,461) * lu(k,1852)
1224 315224452 : lu(k,1909) = lu(k,1909) - lu(k,462) * lu(k,1852)
1225 315224452 : lu(k,1916) = lu(k,1916) - lu(k,463) * lu(k,1852)
1226 315224452 : lu(k,1924) = lu(k,1924) - lu(k,464) * lu(k,1852)
1227 315224452 : lu(k,2335) = - lu(k,461) * lu(k,2293)
1228 315224452 : lu(k,2353) = lu(k,2353) - lu(k,462) * lu(k,2293)
1229 315224452 : lu(k,2360) = lu(k,2360) - lu(k,463) * lu(k,2293)
1230 315224452 : lu(k,2368) = lu(k,2368) - lu(k,464) * lu(k,2293)
1231 315224452 : lu(k,465) = 1._r8 / lu(k,465)
1232 315224452 : lu(k,466) = lu(k,466) * lu(k,465)
1233 315224452 : lu(k,467) = lu(k,467) * lu(k,465)
1234 315224452 : lu(k,496) = - lu(k,466) * lu(k,494)
1235 315224452 : lu(k,501) = lu(k,501) - lu(k,467) * lu(k,494)
1236 315224452 : lu(k,666) = - lu(k,466) * lu(k,663)
1237 315224452 : lu(k,674) = lu(k,674) - lu(k,467) * lu(k,663)
1238 315224452 : lu(k,730) = - lu(k,466) * lu(k,727)
1239 315224452 : lu(k,739) = lu(k,739) - lu(k,467) * lu(k,727)
1240 315224452 : lu(k,750) = - lu(k,466) * lu(k,747)
1241 315224452 : lu(k,760) = lu(k,760) - lu(k,467) * lu(k,747)
1242 315224452 : lu(k,766) = - lu(k,466) * lu(k,763)
1243 315224452 : lu(k,777) = lu(k,777) - lu(k,467) * lu(k,763)
1244 315224452 : lu(k,1762) = - lu(k,466) * lu(k,1731)
1245 315224452 : lu(k,1829) = lu(k,1829) - lu(k,467) * lu(k,1731)
1246 315224452 : lu(k,1867) = lu(k,1867) - lu(k,466) * lu(k,1853)
1247 315224452 : lu(k,1924) = lu(k,1924) - lu(k,467) * lu(k,1853)
1248 315224452 : lu(k,2312) = lu(k,2312) - lu(k,466) * lu(k,2294)
1249 315224452 : lu(k,2368) = lu(k,2368) - lu(k,467) * lu(k,2294)
1250 315224452 : lu(k,468) = 1._r8 / lu(k,468)
1251 315224452 : lu(k,469) = lu(k,469) * lu(k,468)
1252 315224452 : lu(k,470) = lu(k,470) * lu(k,468)
1253 315224452 : lu(k,471) = lu(k,471) * lu(k,468)
1254 315224452 : lu(k,635) = lu(k,635) - lu(k,469) * lu(k,634)
1255 315224452 : lu(k,638) = lu(k,638) - lu(k,470) * lu(k,634)
1256 315224452 : lu(k,639) = - lu(k,471) * lu(k,634)
1257 315224452 : lu(k,1752) = lu(k,1752) - lu(k,469) * lu(k,1732)
1258 315224452 : lu(k,1820) = lu(k,1820) - lu(k,470) * lu(k,1732)
1259 315224452 : lu(k,1827) = lu(k,1827) - lu(k,471) * lu(k,1732)
1260 315224452 : lu(k,1864) = lu(k,1864) - lu(k,469) * lu(k,1854)
1261 315224452 : lu(k,1915) = lu(k,1915) - lu(k,470) * lu(k,1854)
1262 315224452 : lu(k,1922) = lu(k,1922) - lu(k,471) * lu(k,1854)
1263 315224452 : lu(k,1936) = - lu(k,469) * lu(k,1930)
1264 315224452 : lu(k,1960) = lu(k,1960) - lu(k,470) * lu(k,1930)
1265 315224452 : lu(k,1967) = lu(k,1967) - lu(k,471) * lu(k,1930)
1266 315224452 : lu(k,2185) = lu(k,2185) - lu(k,469) * lu(k,2183)
1267 315224452 : lu(k,2226) = lu(k,2226) - lu(k,470) * lu(k,2183)
1268 315224452 : lu(k,2233) = lu(k,2233) - lu(k,471) * lu(k,2183)
1269 315224452 : lu(k,2304) = lu(k,2304) - lu(k,469) * lu(k,2295)
1270 315224452 : lu(k,2359) = lu(k,2359) - lu(k,470) * lu(k,2295)
1271 315224452 : lu(k,2366) = lu(k,2366) - lu(k,471) * lu(k,2295)
1272 315224452 : lu(k,472) = 1._r8 / lu(k,472)
1273 315224452 : lu(k,473) = lu(k,473) * lu(k,472)
1274 315224452 : lu(k,474) = lu(k,474) * lu(k,472)
1275 315224452 : lu(k,475) = lu(k,475) * lu(k,472)
1276 315224452 : lu(k,476) = lu(k,476) * lu(k,472)
1277 315224452 : lu(k,477) = lu(k,477) * lu(k,472)
1278 315224452 : lu(k,478) = lu(k,478) * lu(k,472)
1279 315224452 : lu(k,1814) = lu(k,1814) - lu(k,473) * lu(k,1733)
1280 315224452 : lu(k,1817) = lu(k,1817) - lu(k,474) * lu(k,1733)
1281 315224452 : lu(k,1818) = lu(k,1818) - lu(k,475) * lu(k,1733)
1282 315224452 : lu(k,1820) = lu(k,1820) - lu(k,476) * lu(k,1733)
1283 315224452 : lu(k,1829) = lu(k,1829) - lu(k,477) * lu(k,1733)
1284 315224452 : lu(k,1831) = lu(k,1831) - lu(k,478) * lu(k,1733)
1285 315224452 : lu(k,1954) = lu(k,1954) - lu(k,473) * lu(k,1931)
1286 315224452 : lu(k,1957) = lu(k,1957) - lu(k,474) * lu(k,1931)
1287 315224452 : lu(k,1958) = lu(k,1958) - lu(k,475) * lu(k,1931)
1288 315224452 : lu(k,1960) = lu(k,1960) - lu(k,476) * lu(k,1931)
1289 315224452 : lu(k,1969) = lu(k,1969) - lu(k,477) * lu(k,1931)
1290 315224452 : lu(k,1971) = - lu(k,478) * lu(k,1931)
1291 315224452 : lu(k,2353) = lu(k,2353) - lu(k,473) * lu(k,2296)
1292 315224452 : lu(k,2356) = lu(k,2356) - lu(k,474) * lu(k,2296)
1293 315224452 : lu(k,2357) = lu(k,2357) - lu(k,475) * lu(k,2296)
1294 315224452 : lu(k,2359) = lu(k,2359) - lu(k,476) * lu(k,2296)
1295 315224452 : lu(k,2368) = lu(k,2368) - lu(k,477) * lu(k,2296)
1296 315224452 : lu(k,2370) = lu(k,2370) - lu(k,478) * lu(k,2296)
1297 315224452 : lu(k,479) = 1._r8 / lu(k,479)
1298 315224452 : lu(k,480) = lu(k,480) * lu(k,479)
1299 315224452 : lu(k,481) = lu(k,481) * lu(k,479)
1300 315224452 : lu(k,482) = lu(k,482) * lu(k,479)
1301 315224452 : lu(k,483) = lu(k,483) * lu(k,479)
1302 315224452 : lu(k,484) = lu(k,484) * lu(k,479)
1303 315224452 : lu(k,485) = lu(k,485) * lu(k,479)
1304 315224452 : lu(k,1812) = lu(k,1812) - lu(k,480) * lu(k,1734)
1305 315224452 : lu(k,1813) = lu(k,1813) - lu(k,481) * lu(k,1734)
1306 315224452 : lu(k,1818) = lu(k,1818) - lu(k,482) * lu(k,1734)
1307 315224452 : lu(k,1822) = lu(k,1822) - lu(k,483) * lu(k,1734)
1308 315224452 : lu(k,1826) = lu(k,1826) - lu(k,484) * lu(k,1734)
1309 315224452 : lu(k,1831) = lu(k,1831) - lu(k,485) * lu(k,1734)
1310 315224452 : lu(k,2021) = lu(k,2021) - lu(k,480) * lu(k,2016)
1311 315224452 : lu(k,2022) = lu(k,2022) - lu(k,481) * lu(k,2016)
1312 315224452 : lu(k,2027) = lu(k,2027) - lu(k,482) * lu(k,2016)
1313 315224452 : lu(k,2031) = lu(k,2031) - lu(k,483) * lu(k,2016)
1314 315224452 : lu(k,2035) = lu(k,2035) - lu(k,484) * lu(k,2016)
1315 315224452 : lu(k,2040) = lu(k,2040) - lu(k,485) * lu(k,2016)
1316 315224452 : lu(k,2154) = lu(k,2154) - lu(k,480) * lu(k,2134)
1317 315224452 : lu(k,2155) = lu(k,2155) - lu(k,481) * lu(k,2134)
1318 315224452 : lu(k,2160) = lu(k,2160) - lu(k,482) * lu(k,2134)
1319 315224452 : lu(k,2164) = lu(k,2164) - lu(k,483) * lu(k,2134)
1320 315224452 : lu(k,2168) = lu(k,2168) - lu(k,484) * lu(k,2134)
1321 315224452 : lu(k,2173) = lu(k,2173) - lu(k,485) * lu(k,2134)
1322 315224452 : lu(k,486) = 1._r8 / lu(k,486)
1323 315224452 : lu(k,487) = lu(k,487) * lu(k,486)
1324 315224452 : lu(k,488) = lu(k,488) * lu(k,486)
1325 315224452 : lu(k,489) = lu(k,489) * lu(k,486)
1326 315224452 : lu(k,490) = lu(k,490) * lu(k,486)
1327 315224452 : lu(k,491) = lu(k,491) * lu(k,486)
1328 315224452 : lu(k,492) = lu(k,492) * lu(k,486)
1329 315224452 : lu(k,1062) = lu(k,1062) - lu(k,487) * lu(k,1059)
1330 315224452 : lu(k,1063) = lu(k,1063) - lu(k,488) * lu(k,1059)
1331 315224452 : lu(k,1064) = lu(k,1064) - lu(k,489) * lu(k,1059)
1332 315224452 : lu(k,1065) = - lu(k,490) * lu(k,1059)
1333 315224452 : lu(k,1068) = lu(k,1068) - lu(k,491) * lu(k,1059)
1334 315224452 : lu(k,1070) = lu(k,1070) - lu(k,492) * lu(k,1059)
1335 315224452 : lu(k,1785) = lu(k,1785) - lu(k,487) * lu(k,1735)
1336 315224452 : lu(k,1786) = lu(k,1786) - lu(k,488) * lu(k,1735)
1337 315224452 : lu(k,1787) = lu(k,1787) - lu(k,489) * lu(k,1735)
1338 315224452 : lu(k,1818) = lu(k,1818) - lu(k,490) * lu(k,1735)
1339 315224452 : lu(k,1821) = lu(k,1821) - lu(k,491) * lu(k,1735)
1340 315224452 : lu(k,1829) = lu(k,1829) - lu(k,492) * lu(k,1735)
1341 315224452 : lu(k,2328) = lu(k,2328) - lu(k,487) * lu(k,2297)
1342 315224452 : lu(k,2329) = lu(k,2329) - lu(k,488) * lu(k,2297)
1343 315224452 : lu(k,2330) = lu(k,2330) - lu(k,489) * lu(k,2297)
1344 315224452 : lu(k,2357) = lu(k,2357) - lu(k,490) * lu(k,2297)
1345 315224452 : lu(k,2360) = lu(k,2360) - lu(k,491) * lu(k,2297)
1346 315224452 : lu(k,2368) = lu(k,2368) - lu(k,492) * lu(k,2297)
1347 315224452 : lu(k,495) = 1._r8 / lu(k,495)
1348 315224452 : lu(k,496) = lu(k,496) * lu(k,495)
1349 315224452 : lu(k,497) = lu(k,497) * lu(k,495)
1350 315224452 : lu(k,498) = lu(k,498) * lu(k,495)
1351 315224452 : lu(k,499) = lu(k,499) * lu(k,495)
1352 315224452 : lu(k,500) = lu(k,500) * lu(k,495)
1353 315224452 : lu(k,501) = lu(k,501) * lu(k,495)
1354 315224452 : lu(k,1762) = lu(k,1762) - lu(k,496) * lu(k,1736)
1355 315224452 : lu(k,1784) = lu(k,1784) - lu(k,497) * lu(k,1736)
1356 315224452 : lu(k,1818) = lu(k,1818) - lu(k,498) * lu(k,1736)
1357 315224452 : lu(k,1819) = lu(k,1819) - lu(k,499) * lu(k,1736)
1358 315224452 : lu(k,1820) = lu(k,1820) - lu(k,500) * lu(k,1736)
1359 315224452 : lu(k,1829) = lu(k,1829) - lu(k,501) * lu(k,1736)
1360 315224452 : lu(k,1867) = lu(k,1867) - lu(k,496) * lu(k,1855)
1361 315224452 : lu(k,1883) = lu(k,1883) - lu(k,497) * lu(k,1855)
1362 315224452 : lu(k,1913) = lu(k,1913) - lu(k,498) * lu(k,1855)
1363 315224452 : lu(k,1914) = lu(k,1914) - lu(k,499) * lu(k,1855)
1364 315224452 : lu(k,1915) = lu(k,1915) - lu(k,500) * lu(k,1855)
1365 315224452 : lu(k,1924) = lu(k,1924) - lu(k,501) * lu(k,1855)
1366 315224452 : lu(k,2312) = lu(k,2312) - lu(k,496) * lu(k,2298)
1367 315224452 : lu(k,2327) = lu(k,2327) - lu(k,497) * lu(k,2298)
1368 315224452 : lu(k,2357) = lu(k,2357) - lu(k,498) * lu(k,2298)
1369 315224452 : lu(k,2358) = lu(k,2358) - lu(k,499) * lu(k,2298)
1370 315224452 : lu(k,2359) = lu(k,2359) - lu(k,500) * lu(k,2298)
1371 325174377 : lu(k,2368) = lu(k,2368) - lu(k,501) * lu(k,2298)
1372 : end do
1373 9949925 : end subroutine lu_fac10
1374 9949925 : subroutine lu_fac11( avec_len, lu )
1375 : use chem_mods, only : nzcnt
1376 : use shr_kind_mod, only : r8 => shr_kind_r8
1377 : implicit none
1378 : !-----------------------------------------------------------------------
1379 : ! ... dummy args
1380 : !-----------------------------------------------------------------------
1381 : integer, intent(in) :: avec_len
1382 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1383 : !-----------------------------------------------------------------------
1384 : ! ... local variables
1385 : !-----------------------------------------------------------------------
1386 : integer :: k
1387 325174377 : do k = 1,avec_len
1388 315224452 : lu(k,502) = 1._r8 / lu(k,502)
1389 315224452 : lu(k,503) = lu(k,503) * lu(k,502)
1390 315224452 : lu(k,504) = lu(k,504) * lu(k,502)
1391 315224452 : lu(k,505) = lu(k,505) * lu(k,502)
1392 315224452 : lu(k,506) = lu(k,506) * lu(k,502)
1393 315224452 : lu(k,507) = lu(k,507) * lu(k,502)
1394 315224452 : lu(k,508) = lu(k,508) * lu(k,502)
1395 315224452 : lu(k,995) = - lu(k,503) * lu(k,994)
1396 315224452 : lu(k,996) = lu(k,996) - lu(k,504) * lu(k,994)
1397 315224452 : lu(k,997) = lu(k,997) - lu(k,505) * lu(k,994)
1398 315224452 : lu(k,999) = lu(k,999) - lu(k,506) * lu(k,994)
1399 315224452 : lu(k,1002) = lu(k,1002) - lu(k,507) * lu(k,994)
1400 315224452 : lu(k,1007) = lu(k,1007) - lu(k,508) * lu(k,994)
1401 315224452 : lu(k,1531) = lu(k,1531) - lu(k,503) * lu(k,1527)
1402 315224452 : lu(k,1532) = lu(k,1532) - lu(k,504) * lu(k,1527)
1403 315224452 : lu(k,1533) = lu(k,1533) - lu(k,505) * lu(k,1527)
1404 315224452 : lu(k,1536) = lu(k,1536) - lu(k,506) * lu(k,1527)
1405 315224452 : lu(k,1542) = lu(k,1542) - lu(k,507) * lu(k,1527)
1406 315224452 : lu(k,1550) = lu(k,1550) - lu(k,508) * lu(k,1527)
1407 315224452 : lu(k,2074) = lu(k,2074) - lu(k,503) * lu(k,2067)
1408 315224452 : lu(k,2077) = lu(k,2077) - lu(k,504) * lu(k,2067)
1409 315224452 : lu(k,2078) = - lu(k,505) * lu(k,2067)
1410 315224452 : lu(k,2082) = lu(k,2082) - lu(k,506) * lu(k,2067)
1411 315224452 : lu(k,2089) = lu(k,2089) - lu(k,507) * lu(k,2067)
1412 315224452 : lu(k,2099) = lu(k,2099) - lu(k,508) * lu(k,2067)
1413 315224452 : lu(k,510) = 1._r8 / lu(k,510)
1414 315224452 : lu(k,511) = lu(k,511) * lu(k,510)
1415 315224452 : lu(k,512) = lu(k,512) * lu(k,510)
1416 315224452 : lu(k,513) = lu(k,513) * lu(k,510)
1417 315224452 : lu(k,514) = lu(k,514) * lu(k,510)
1418 315224452 : lu(k,515) = lu(k,515) * lu(k,510)
1419 315224452 : lu(k,516) = lu(k,516) * lu(k,510)
1420 315224452 : lu(k,1784) = lu(k,1784) - lu(k,511) * lu(k,1737)
1421 315224452 : lu(k,1802) = lu(k,1802) - lu(k,512) * lu(k,1737)
1422 315224452 : lu(k,1818) = lu(k,1818) - lu(k,513) * lu(k,1737)
1423 315224452 : lu(k,1819) = lu(k,1819) - lu(k,514) * lu(k,1737)
1424 315224452 : lu(k,1820) = lu(k,1820) - lu(k,515) * lu(k,1737)
1425 315224452 : lu(k,1829) = lu(k,1829) - lu(k,516) * lu(k,1737)
1426 315224452 : lu(k,1883) = lu(k,1883) - lu(k,511) * lu(k,1856)
1427 315224452 : lu(k,1900) = lu(k,1900) - lu(k,512) * lu(k,1856)
1428 315224452 : lu(k,1913) = lu(k,1913) - lu(k,513) * lu(k,1856)
1429 315224452 : lu(k,1914) = lu(k,1914) - lu(k,514) * lu(k,1856)
1430 315224452 : lu(k,1915) = lu(k,1915) - lu(k,515) * lu(k,1856)
1431 315224452 : lu(k,1924) = lu(k,1924) - lu(k,516) * lu(k,1856)
1432 315224452 : lu(k,2327) = lu(k,2327) - lu(k,511) * lu(k,2299)
1433 315224452 : lu(k,2342) = lu(k,2342) - lu(k,512) * lu(k,2299)
1434 315224452 : lu(k,2357) = lu(k,2357) - lu(k,513) * lu(k,2299)
1435 315224452 : lu(k,2358) = lu(k,2358) - lu(k,514) * lu(k,2299)
1436 315224452 : lu(k,2359) = lu(k,2359) - lu(k,515) * lu(k,2299)
1437 315224452 : lu(k,2368) = lu(k,2368) - lu(k,516) * lu(k,2299)
1438 315224452 : lu(k,517) = 1._r8 / lu(k,517)
1439 315224452 : lu(k,518) = lu(k,518) * lu(k,517)
1440 315224452 : lu(k,519) = lu(k,519) * lu(k,517)
1441 315224452 : lu(k,520) = lu(k,520) * lu(k,517)
1442 315224452 : lu(k,521) = lu(k,521) * lu(k,517)
1443 315224452 : lu(k,643) = - lu(k,518) * lu(k,641)
1444 315224452 : lu(k,644) = - lu(k,519) * lu(k,641)
1445 315224452 : lu(k,647) = - lu(k,520) * lu(k,641)
1446 315224452 : lu(k,648) = lu(k,648) - lu(k,521) * lu(k,641)
1447 315224452 : lu(k,688) = - lu(k,518) * lu(k,686)
1448 315224452 : lu(k,689) = - lu(k,519) * lu(k,686)
1449 315224452 : lu(k,693) = - lu(k,520) * lu(k,686)
1450 315224452 : lu(k,694) = lu(k,694) - lu(k,521) * lu(k,686)
1451 315224452 : lu(k,1040) = - lu(k,518) * lu(k,1037)
1452 315224452 : lu(k,1041) = - lu(k,519) * lu(k,1037)
1453 315224452 : lu(k,1045) = - lu(k,520) * lu(k,1037)
1454 315224452 : lu(k,1047) = - lu(k,521) * lu(k,1037)
1455 315224452 : lu(k,1757) = lu(k,1757) - lu(k,518) * lu(k,1738)
1456 315224452 : lu(k,1773) = lu(k,1773) - lu(k,519) * lu(k,1738)
1457 315224452 : lu(k,1808) = lu(k,1808) - lu(k,520) * lu(k,1738)
1458 315224452 : lu(k,1818) = lu(k,1818) - lu(k,521) * lu(k,1738)
1459 315224452 : lu(k,1866) = lu(k,1866) - lu(k,518) * lu(k,1857)
1460 315224452 : lu(k,1877) = lu(k,1877) - lu(k,519) * lu(k,1857)
1461 315224452 : lu(k,1906) = lu(k,1906) - lu(k,520) * lu(k,1857)
1462 315224452 : lu(k,1913) = lu(k,1913) - lu(k,521) * lu(k,1857)
1463 315224452 : lu(k,523) = 1._r8 / lu(k,523)
1464 315224452 : lu(k,524) = lu(k,524) * lu(k,523)
1465 315224452 : lu(k,525) = lu(k,525) * lu(k,523)
1466 315224452 : lu(k,526) = lu(k,526) * lu(k,523)
1467 315224452 : lu(k,527) = lu(k,527) * lu(k,523)
1468 315224452 : lu(k,528) = lu(k,528) * lu(k,523)
1469 315224452 : lu(k,1752) = lu(k,1752) - lu(k,524) * lu(k,1739)
1470 315224452 : lu(k,1818) = lu(k,1818) - lu(k,525) * lu(k,1739)
1471 315224452 : lu(k,1819) = lu(k,1819) - lu(k,526) * lu(k,1739)
1472 315224452 : lu(k,1820) = lu(k,1820) - lu(k,527) * lu(k,1739)
1473 315224452 : lu(k,1829) = lu(k,1829) - lu(k,528) * lu(k,1739)
1474 315224452 : lu(k,1864) = lu(k,1864) - lu(k,524) * lu(k,1858)
1475 315224452 : lu(k,1913) = lu(k,1913) - lu(k,525) * lu(k,1858)
1476 315224452 : lu(k,1914) = lu(k,1914) - lu(k,526) * lu(k,1858)
1477 315224452 : lu(k,1915) = lu(k,1915) - lu(k,527) * lu(k,1858)
1478 315224452 : lu(k,1924) = lu(k,1924) - lu(k,528) * lu(k,1858)
1479 315224452 : lu(k,1936) = lu(k,1936) - lu(k,524) * lu(k,1932)
1480 315224452 : lu(k,1958) = lu(k,1958) - lu(k,525) * lu(k,1932)
1481 315224452 : lu(k,1959) = lu(k,1959) - lu(k,526) * lu(k,1932)
1482 315224452 : lu(k,1960) = lu(k,1960) - lu(k,527) * lu(k,1932)
1483 315224452 : lu(k,1969) = lu(k,1969) - lu(k,528) * lu(k,1932)
1484 315224452 : lu(k,2304) = lu(k,2304) - lu(k,524) * lu(k,2300)
1485 315224452 : lu(k,2357) = lu(k,2357) - lu(k,525) * lu(k,2300)
1486 315224452 : lu(k,2358) = lu(k,2358) - lu(k,526) * lu(k,2300)
1487 315224452 : lu(k,2359) = lu(k,2359) - lu(k,527) * lu(k,2300)
1488 315224452 : lu(k,2368) = lu(k,2368) - lu(k,528) * lu(k,2300)
1489 315224452 : lu(k,529) = 1._r8 / lu(k,529)
1490 315224452 : lu(k,530) = lu(k,530) * lu(k,529)
1491 315224452 : lu(k,531) = lu(k,531) * lu(k,529)
1492 315224452 : lu(k,532) = lu(k,532) * lu(k,529)
1493 315224452 : lu(k,533) = lu(k,533) * lu(k,529)
1494 315224452 : lu(k,681) = lu(k,681) - lu(k,530) * lu(k,675)
1495 315224452 : lu(k,682) = lu(k,682) - lu(k,531) * lu(k,675)
1496 315224452 : lu(k,683) = - lu(k,532) * lu(k,675)
1497 315224452 : lu(k,684) = - lu(k,533) * lu(k,675)
1498 315224452 : lu(k,847) = lu(k,847) - lu(k,530) * lu(k,844)
1499 315224452 : lu(k,848) = - lu(k,531) * lu(k,844)
1500 315224452 : lu(k,849) = - lu(k,532) * lu(k,844)
1501 315224452 : lu(k,850) = - lu(k,533) * lu(k,844)
1502 315224452 : lu(k,866) = lu(k,866) - lu(k,530) * lu(k,860)
1503 315224452 : lu(k,869) = - lu(k,531) * lu(k,860)
1504 315224452 : lu(k,870) = - lu(k,532) * lu(k,860)
1505 315224452 : lu(k,871) = lu(k,871) - lu(k,533) * lu(k,860)
1506 315224452 : lu(k,1536) = lu(k,1536) - lu(k,530) * lu(k,1528)
1507 315224452 : lu(k,1542) = lu(k,1542) - lu(k,531) * lu(k,1528)
1508 315224452 : lu(k,1546) = lu(k,1546) - lu(k,532) * lu(k,1528)
1509 315224452 : lu(k,1549) = lu(k,1549) - lu(k,533) * lu(k,1528)
1510 315224452 : lu(k,2082) = lu(k,2082) - lu(k,530) * lu(k,2068)
1511 315224452 : lu(k,2089) = lu(k,2089) - lu(k,531) * lu(k,2068)
1512 315224452 : lu(k,2094) = lu(k,2094) - lu(k,532) * lu(k,2068)
1513 315224452 : lu(k,2097) = - lu(k,533) * lu(k,2068)
1514 315224452 : lu(k,534) = 1._r8 / lu(k,534)
1515 315224452 : lu(k,535) = lu(k,535) * lu(k,534)
1516 315224452 : lu(k,536) = lu(k,536) * lu(k,534)
1517 315224452 : lu(k,537) = lu(k,537) * lu(k,534)
1518 315224452 : lu(k,538) = lu(k,538) * lu(k,534)
1519 315224452 : lu(k,539) = lu(k,539) * lu(k,534)
1520 315224452 : lu(k,540) = lu(k,540) * lu(k,534)
1521 315224452 : lu(k,541) = lu(k,541) * lu(k,534)
1522 315224452 : lu(k,1428) = lu(k,1428) - lu(k,535) * lu(k,1411)
1523 315224452 : lu(k,1429) = lu(k,1429) - lu(k,536) * lu(k,1411)
1524 315224452 : lu(k,1431) = - lu(k,537) * lu(k,1411)
1525 315224452 : lu(k,1432) = lu(k,1432) - lu(k,538) * lu(k,1411)
1526 315224452 : lu(k,1434) = lu(k,1434) - lu(k,539) * lu(k,1411)
1527 315224452 : lu(k,1435) = lu(k,1435) - lu(k,540) * lu(k,1411)
1528 315224452 : lu(k,1440) = lu(k,1440) - lu(k,541) * lu(k,1411)
1529 315224452 : lu(k,1808) = lu(k,1808) - lu(k,535) * lu(k,1740)
1530 315224452 : lu(k,1809) = lu(k,1809) - lu(k,536) * lu(k,1740)
1531 315224452 : lu(k,1817) = lu(k,1817) - lu(k,537) * lu(k,1740)
1532 315224452 : lu(k,1818) = lu(k,1818) - lu(k,538) * lu(k,1740)
1533 315224452 : lu(k,1820) = lu(k,1820) - lu(k,539) * lu(k,1740)
1534 315224452 : lu(k,1821) = lu(k,1821) - lu(k,540) * lu(k,1740)
1535 315224452 : lu(k,1830) = lu(k,1830) - lu(k,541) * lu(k,1740)
1536 315224452 : lu(k,1949) = lu(k,1949) - lu(k,535) * lu(k,1933)
1537 315224452 : lu(k,1950) = - lu(k,536) * lu(k,1933)
1538 315224452 : lu(k,1957) = lu(k,1957) - lu(k,537) * lu(k,1933)
1539 315224452 : lu(k,1958) = lu(k,1958) - lu(k,538) * lu(k,1933)
1540 315224452 : lu(k,1960) = lu(k,1960) - lu(k,539) * lu(k,1933)
1541 315224452 : lu(k,1961) = - lu(k,540) * lu(k,1933)
1542 325174377 : lu(k,1970) = - lu(k,541) * lu(k,1933)
1543 : end do
1544 9949925 : end subroutine lu_fac11
1545 9949925 : subroutine lu_fac12( avec_len, lu )
1546 : use chem_mods, only : nzcnt
1547 : use shr_kind_mod, only : r8 => shr_kind_r8
1548 : implicit none
1549 : !-----------------------------------------------------------------------
1550 : ! ... dummy args
1551 : !-----------------------------------------------------------------------
1552 : integer, intent(in) :: avec_len
1553 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1554 : !-----------------------------------------------------------------------
1555 : ! ... local variables
1556 : !-----------------------------------------------------------------------
1557 : integer :: k
1558 325174377 : do k = 1,avec_len
1559 315224452 : lu(k,542) = 1._r8 / lu(k,542)
1560 315224452 : lu(k,543) = lu(k,543) * lu(k,542)
1561 315224452 : lu(k,544) = lu(k,544) * lu(k,542)
1562 315224452 : lu(k,545) = lu(k,545) * lu(k,542)
1563 315224452 : lu(k,546) = lu(k,546) * lu(k,542)
1564 315224452 : lu(k,547) = lu(k,547) * lu(k,542)
1565 315224452 : lu(k,548) = lu(k,548) * lu(k,542)
1566 315224452 : lu(k,549) = lu(k,549) * lu(k,542)
1567 315224452 : lu(k,814) = lu(k,814) - lu(k,543) * lu(k,813)
1568 315224452 : lu(k,815) = lu(k,815) - lu(k,544) * lu(k,813)
1569 315224452 : lu(k,816) = - lu(k,545) * lu(k,813)
1570 315224452 : lu(k,818) = - lu(k,546) * lu(k,813)
1571 315224452 : lu(k,821) = lu(k,821) - lu(k,547) * lu(k,813)
1572 315224452 : lu(k,822) = lu(k,822) - lu(k,548) * lu(k,813)
1573 315224452 : lu(k,823) = - lu(k,549) * lu(k,813)
1574 315224452 : lu(k,1767) = lu(k,1767) - lu(k,543) * lu(k,1741)
1575 315224452 : lu(k,1792) = lu(k,1792) - lu(k,544) * lu(k,1741)
1576 315224452 : lu(k,1797) = lu(k,1797) - lu(k,545) * lu(k,1741)
1577 315224452 : lu(k,1818) = lu(k,1818) - lu(k,546) * lu(k,1741)
1578 315224452 : lu(k,1821) = lu(k,1821) - lu(k,547) * lu(k,1741)
1579 315224452 : lu(k,1829) = lu(k,1829) - lu(k,548) * lu(k,1741)
1580 315224452 : lu(k,1831) = lu(k,1831) - lu(k,549) * lu(k,1741)
1581 315224452 : lu(k,2318) = lu(k,2318) - lu(k,543) * lu(k,2301)
1582 315224452 : lu(k,2333) = lu(k,2333) - lu(k,544) * lu(k,2301)
1583 315224452 : lu(k,2337) = - lu(k,545) * lu(k,2301)
1584 315224452 : lu(k,2357) = lu(k,2357) - lu(k,546) * lu(k,2301)
1585 315224452 : lu(k,2360) = lu(k,2360) - lu(k,547) * lu(k,2301)
1586 315224452 : lu(k,2368) = lu(k,2368) - lu(k,548) * lu(k,2301)
1587 315224452 : lu(k,2370) = lu(k,2370) - lu(k,549) * lu(k,2301)
1588 315224452 : lu(k,550) = 1._r8 / lu(k,550)
1589 315224452 : lu(k,551) = lu(k,551) * lu(k,550)
1590 315224452 : lu(k,552) = lu(k,552) * lu(k,550)
1591 315224452 : lu(k,553) = lu(k,553) * lu(k,550)
1592 315224452 : lu(k,554) = lu(k,554) * lu(k,550)
1593 315224452 : lu(k,555) = lu(k,555) * lu(k,550)
1594 315224452 : lu(k,556) = lu(k,556) * lu(k,550)
1595 315224452 : lu(k,557) = lu(k,557) * lu(k,550)
1596 315224452 : lu(k,1766) = lu(k,1766) - lu(k,551) * lu(k,1742)
1597 315224452 : lu(k,1775) = lu(k,1775) - lu(k,552) * lu(k,1742)
1598 315224452 : lu(k,1793) = lu(k,1793) - lu(k,553) * lu(k,1742)
1599 315224452 : lu(k,1818) = lu(k,1818) - lu(k,554) * lu(k,1742)
1600 315224452 : lu(k,1821) = lu(k,1821) - lu(k,555) * lu(k,1742)
1601 315224452 : lu(k,1827) = lu(k,1827) - lu(k,556) * lu(k,1742)
1602 315224452 : lu(k,1829) = lu(k,1829) - lu(k,557) * lu(k,1742)
1603 315224452 : lu(k,2138) = - lu(k,551) * lu(k,2135)
1604 315224452 : lu(k,2141) = lu(k,2141) - lu(k,552) * lu(k,2135)
1605 315224452 : lu(k,2147) = lu(k,2147) - lu(k,553) * lu(k,2135)
1606 315224452 : lu(k,2160) = lu(k,2160) - lu(k,554) * lu(k,2135)
1607 315224452 : lu(k,2163) = lu(k,2163) - lu(k,555) * lu(k,2135)
1608 315224452 : lu(k,2169) = lu(k,2169) - lu(k,556) * lu(k,2135)
1609 315224452 : lu(k,2171) = lu(k,2171) - lu(k,557) * lu(k,2135)
1610 315224452 : lu(k,2188) = - lu(k,551) * lu(k,2184)
1611 315224452 : lu(k,2190) = lu(k,2190) - lu(k,552) * lu(k,2184)
1612 315224452 : lu(k,2203) = lu(k,2203) - lu(k,553) * lu(k,2184)
1613 315224452 : lu(k,2224) = lu(k,2224) - lu(k,554) * lu(k,2184)
1614 315224452 : lu(k,2227) = lu(k,2227) - lu(k,555) * lu(k,2184)
1615 315224452 : lu(k,2233) = lu(k,2233) - lu(k,556) * lu(k,2184)
1616 315224452 : lu(k,2235) = lu(k,2235) - lu(k,557) * lu(k,2184)
1617 315224452 : lu(k,558) = 1._r8 / lu(k,558)
1618 315224452 : lu(k,559) = lu(k,559) * lu(k,558)
1619 315224452 : lu(k,560) = lu(k,560) * lu(k,558)
1620 315224452 : lu(k,561) = lu(k,561) * lu(k,558)
1621 315224452 : lu(k,562) = lu(k,562) * lu(k,558)
1622 315224452 : lu(k,563) = lu(k,563) * lu(k,558)
1623 315224452 : lu(k,564) = lu(k,564) * lu(k,558)
1624 315224452 : lu(k,565) = lu(k,565) * lu(k,558)
1625 315224452 : lu(k,1321) = - lu(k,559) * lu(k,1317)
1626 315224452 : lu(k,1325) = lu(k,1325) - lu(k,560) * lu(k,1317)
1627 315224452 : lu(k,1326) = - lu(k,561) * lu(k,1317)
1628 315224452 : lu(k,1327) = lu(k,1327) - lu(k,562) * lu(k,1317)
1629 315224452 : lu(k,1339) = lu(k,1339) - lu(k,563) * lu(k,1317)
1630 315224452 : lu(k,1343) = - lu(k,564) * lu(k,1317)
1631 315224452 : lu(k,1345) = lu(k,1345) - lu(k,565) * lu(k,1317)
1632 315224452 : lu(k,1772) = lu(k,1772) - lu(k,559) * lu(k,1743)
1633 315224452 : lu(k,1794) = lu(k,1794) - lu(k,560) * lu(k,1743)
1634 315224452 : lu(k,1796) = lu(k,1796) - lu(k,561) * lu(k,1743)
1635 315224452 : lu(k,1797) = lu(k,1797) - lu(k,562) * lu(k,1743)
1636 315224452 : lu(k,1818) = lu(k,1818) - lu(k,563) * lu(k,1743)
1637 315224452 : lu(k,1823) = lu(k,1823) - lu(k,564) * lu(k,1743)
1638 315224452 : lu(k,1829) = lu(k,1829) - lu(k,565) * lu(k,1743)
1639 315224452 : lu(k,1876) = - lu(k,559) * lu(k,1859)
1640 315224452 : lu(k,1892) = lu(k,1892) - lu(k,560) * lu(k,1859)
1641 315224452 : lu(k,1894) = lu(k,1894) - lu(k,561) * lu(k,1859)
1642 315224452 : lu(k,1895) = lu(k,1895) - lu(k,562) * lu(k,1859)
1643 315224452 : lu(k,1913) = lu(k,1913) - lu(k,563) * lu(k,1859)
1644 315224452 : lu(k,1918) = lu(k,1918) - lu(k,564) * lu(k,1859)
1645 315224452 : lu(k,1924) = lu(k,1924) - lu(k,565) * lu(k,1859)
1646 315224452 : lu(k,566) = 1._r8 / lu(k,566)
1647 315224452 : lu(k,567) = lu(k,567) * lu(k,566)
1648 315224452 : lu(k,568) = lu(k,568) * lu(k,566)
1649 315224452 : lu(k,569) = lu(k,569) * lu(k,566)
1650 315224452 : lu(k,570) = lu(k,570) * lu(k,566)
1651 315224452 : lu(k,571) = lu(k,571) * lu(k,566)
1652 315224452 : lu(k,572) = lu(k,572) * lu(k,566)
1653 315224452 : lu(k,573) = lu(k,573) * lu(k,566)
1654 315224452 : lu(k,1559) = lu(k,1559) - lu(k,567) * lu(k,1558)
1655 315224452 : lu(k,1563) = lu(k,1563) - lu(k,568) * lu(k,1558)
1656 315224452 : lu(k,1565) = lu(k,1565) - lu(k,569) * lu(k,1558)
1657 315224452 : lu(k,1567) = - lu(k,570) * lu(k,1558)
1658 315224452 : lu(k,1570) = lu(k,1570) - lu(k,571) * lu(k,1558)
1659 315224452 : lu(k,1573) = - lu(k,572) * lu(k,1558)
1660 315224452 : lu(k,1574) = lu(k,1574) - lu(k,573) * lu(k,1558)
1661 315224452 : lu(k,1939) = - lu(k,567) * lu(k,1934)
1662 315224452 : lu(k,1953) = - lu(k,568) * lu(k,1934)
1663 315224452 : lu(k,1955) = lu(k,1955) - lu(k,569) * lu(k,1934)
1664 315224452 : lu(k,1957) = lu(k,1957) - lu(k,570) * lu(k,1934)
1665 315224452 : lu(k,1960) = lu(k,1960) - lu(k,571) * lu(k,1934)
1666 315224452 : lu(k,1963) = lu(k,1963) - lu(k,572) * lu(k,1934)
1667 315224452 : lu(k,1964) = lu(k,1964) - lu(k,573) * lu(k,1934)
1668 315224452 : lu(k,2073) = lu(k,2073) - lu(k,567) * lu(k,2069)
1669 315224452 : lu(k,2088) = lu(k,2088) - lu(k,568) * lu(k,2069)
1670 315224452 : lu(k,2090) = lu(k,2090) - lu(k,569) * lu(k,2069)
1671 315224452 : lu(k,2092) = lu(k,2092) - lu(k,570) * lu(k,2069)
1672 315224452 : lu(k,2095) = lu(k,2095) - lu(k,571) * lu(k,2069)
1673 315224452 : lu(k,2098) = - lu(k,572) * lu(k,2069)
1674 315224452 : lu(k,2099) = lu(k,2099) - lu(k,573) * lu(k,2069)
1675 315224452 : lu(k,574) = 1._r8 / lu(k,574)
1676 315224452 : lu(k,575) = lu(k,575) * lu(k,574)
1677 315224452 : lu(k,576) = lu(k,576) * lu(k,574)
1678 315224452 : lu(k,577) = lu(k,577) * lu(k,574)
1679 315224452 : lu(k,578) = lu(k,578) * lu(k,574)
1680 315224452 : lu(k,579) = lu(k,579) * lu(k,574)
1681 315224452 : lu(k,580) = lu(k,580) * lu(k,574)
1682 315224452 : lu(k,581) = lu(k,581) * lu(k,574)
1683 315224452 : lu(k,1624) = lu(k,1624) - lu(k,575) * lu(k,1613)
1684 315224452 : lu(k,1629) = lu(k,1629) - lu(k,576) * lu(k,1613)
1685 315224452 : lu(k,1633) = - lu(k,577) * lu(k,1613)
1686 315224452 : lu(k,1654) = lu(k,1654) - lu(k,578) * lu(k,1613)
1687 315224452 : lu(k,1655) = lu(k,1655) - lu(k,579) * lu(k,1613)
1688 315224452 : lu(k,1656) = lu(k,1656) - lu(k,580) * lu(k,1613)
1689 315224452 : lu(k,1664) = lu(k,1664) - lu(k,581) * lu(k,1613)
1690 315224452 : lu(k,1787) = lu(k,1787) - lu(k,575) * lu(k,1744)
1691 315224452 : lu(k,1792) = lu(k,1792) - lu(k,576) * lu(k,1744)
1692 315224452 : lu(k,1796) = lu(k,1796) - lu(k,577) * lu(k,1744)
1693 315224452 : lu(k,1819) = lu(k,1819) - lu(k,578) * lu(k,1744)
1694 315224452 : lu(k,1820) = lu(k,1820) - lu(k,579) * lu(k,1744)
1695 315224452 : lu(k,1821) = lu(k,1821) - lu(k,580) * lu(k,1744)
1696 315224452 : lu(k,1829) = lu(k,1829) - lu(k,581) * lu(k,1744)
1697 315224452 : lu(k,1886) = lu(k,1886) - lu(k,575) * lu(k,1860)
1698 315224452 : lu(k,1890) = lu(k,1890) - lu(k,576) * lu(k,1860)
1699 315224452 : lu(k,1894) = lu(k,1894) - lu(k,577) * lu(k,1860)
1700 315224452 : lu(k,1914) = lu(k,1914) - lu(k,578) * lu(k,1860)
1701 315224452 : lu(k,1915) = lu(k,1915) - lu(k,579) * lu(k,1860)
1702 315224452 : lu(k,1916) = lu(k,1916) - lu(k,580) * lu(k,1860)
1703 325174377 : lu(k,1924) = lu(k,1924) - lu(k,581) * lu(k,1860)
1704 : end do
1705 9949925 : end subroutine lu_fac12
1706 9949925 : subroutine lu_fac13( avec_len, lu )
1707 : use chem_mods, only : nzcnt
1708 : use shr_kind_mod, only : r8 => shr_kind_r8
1709 : implicit none
1710 : !-----------------------------------------------------------------------
1711 : ! ... dummy args
1712 : !-----------------------------------------------------------------------
1713 : integer, intent(in) :: avec_len
1714 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1715 : !-----------------------------------------------------------------------
1716 : ! ... local variables
1717 : !-----------------------------------------------------------------------
1718 : integer :: k
1719 325174377 : do k = 1,avec_len
1720 315224452 : lu(k,582) = 1._r8 / lu(k,582)
1721 315224452 : lu(k,583) = lu(k,583) * lu(k,582)
1722 315224452 : lu(k,584) = lu(k,584) * lu(k,582)
1723 315224452 : lu(k,585) = lu(k,585) * lu(k,582)
1724 315224452 : lu(k,586) = lu(k,586) * lu(k,582)
1725 315224452 : lu(k,587) = lu(k,587) * lu(k,582)
1726 315224452 : lu(k,588) = lu(k,588) * lu(k,582)
1727 315224452 : lu(k,1812) = lu(k,1812) - lu(k,583) * lu(k,1745)
1728 315224452 : lu(k,1818) = lu(k,1818) - lu(k,584) * lu(k,1745)
1729 315224452 : lu(k,1824) = lu(k,1824) - lu(k,585) * lu(k,1745)
1730 315224452 : lu(k,1826) = lu(k,1826) - lu(k,586) * lu(k,1745)
1731 315224452 : lu(k,1829) = lu(k,1829) - lu(k,587) * lu(k,1745)
1732 315224452 : lu(k,1831) = lu(k,1831) - lu(k,588) * lu(k,1745)
1733 315224452 : lu(k,2087) = lu(k,2087) - lu(k,583) * lu(k,2070)
1734 315224452 : lu(k,2093) = lu(k,2093) - lu(k,584) * lu(k,2070)
1735 315224452 : lu(k,2099) = lu(k,2099) - lu(k,585) * lu(k,2070)
1736 315224452 : lu(k,2101) = lu(k,2101) - lu(k,586) * lu(k,2070)
1737 315224452 : lu(k,2104) = lu(k,2104) - lu(k,587) * lu(k,2070)
1738 315224452 : lu(k,2106) = - lu(k,588) * lu(k,2070)
1739 315224452 : lu(k,2154) = lu(k,2154) - lu(k,583) * lu(k,2136)
1740 315224452 : lu(k,2160) = lu(k,2160) - lu(k,584) * lu(k,2136)
1741 315224452 : lu(k,2166) = - lu(k,585) * lu(k,2136)
1742 315224452 : lu(k,2168) = lu(k,2168) - lu(k,586) * lu(k,2136)
1743 315224452 : lu(k,2171) = lu(k,2171) - lu(k,587) * lu(k,2136)
1744 315224452 : lu(k,2173) = lu(k,2173) - lu(k,588) * lu(k,2136)
1745 315224452 : lu(k,2351) = lu(k,2351) - lu(k,583) * lu(k,2302)
1746 315224452 : lu(k,2357) = lu(k,2357) - lu(k,584) * lu(k,2302)
1747 315224452 : lu(k,2363) = lu(k,2363) - lu(k,585) * lu(k,2302)
1748 315224452 : lu(k,2365) = lu(k,2365) - lu(k,586) * lu(k,2302)
1749 315224452 : lu(k,2368) = lu(k,2368) - lu(k,587) * lu(k,2302)
1750 315224452 : lu(k,2370) = lu(k,2370) - lu(k,588) * lu(k,2302)
1751 315224452 : lu(k,589) = 1._r8 / lu(k,589)
1752 315224452 : lu(k,590) = lu(k,590) * lu(k,589)
1753 315224452 : lu(k,591) = lu(k,591) * lu(k,589)
1754 315224452 : lu(k,592) = lu(k,592) * lu(k,589)
1755 315224452 : lu(k,593) = lu(k,593) * lu(k,589)
1756 315224452 : lu(k,594) = lu(k,594) * lu(k,589)
1757 315224452 : lu(k,595) = lu(k,595) * lu(k,589)
1758 315224452 : lu(k,596) = lu(k,596) * lu(k,589)
1759 315224452 : lu(k,597) = lu(k,597) * lu(k,589)
1760 315224452 : lu(k,1292) = - lu(k,590) * lu(k,1289)
1761 315224452 : lu(k,1293) = - lu(k,591) * lu(k,1289)
1762 315224452 : lu(k,1294) = - lu(k,592) * lu(k,1289)
1763 315224452 : lu(k,1306) = - lu(k,593) * lu(k,1289)
1764 315224452 : lu(k,1308) = lu(k,1308) - lu(k,594) * lu(k,1289)
1765 315224452 : lu(k,1309) = lu(k,1309) - lu(k,595) * lu(k,1289)
1766 315224452 : lu(k,1310) = - lu(k,596) * lu(k,1289)
1767 315224452 : lu(k,1312) = lu(k,1312) - lu(k,597) * lu(k,1289)
1768 315224452 : lu(k,1794) = lu(k,1794) - lu(k,590) * lu(k,1746)
1769 315224452 : lu(k,1796) = lu(k,1796) - lu(k,591) * lu(k,1746)
1770 315224452 : lu(k,1797) = lu(k,1797) - lu(k,592) * lu(k,1746)
1771 315224452 : lu(k,1818) = lu(k,1818) - lu(k,593) * lu(k,1746)
1772 315224452 : lu(k,1820) = lu(k,1820) - lu(k,594) * lu(k,1746)
1773 315224452 : lu(k,1821) = lu(k,1821) - lu(k,595) * lu(k,1746)
1774 315224452 : lu(k,1823) = lu(k,1823) - lu(k,596) * lu(k,1746)
1775 315224452 : lu(k,1829) = lu(k,1829) - lu(k,597) * lu(k,1746)
1776 315224452 : lu(k,1892) = lu(k,1892) - lu(k,590) * lu(k,1861)
1777 315224452 : lu(k,1894) = lu(k,1894) - lu(k,591) * lu(k,1861)
1778 315224452 : lu(k,1895) = lu(k,1895) - lu(k,592) * lu(k,1861)
1779 315224452 : lu(k,1913) = lu(k,1913) - lu(k,593) * lu(k,1861)
1780 315224452 : lu(k,1915) = lu(k,1915) - lu(k,594) * lu(k,1861)
1781 315224452 : lu(k,1916) = lu(k,1916) - lu(k,595) * lu(k,1861)
1782 315224452 : lu(k,1918) = lu(k,1918) - lu(k,596) * lu(k,1861)
1783 315224452 : lu(k,1924) = lu(k,1924) - lu(k,597) * lu(k,1861)
1784 315224452 : lu(k,598) = 1._r8 / lu(k,598)
1785 315224452 : lu(k,599) = lu(k,599) * lu(k,598)
1786 315224452 : lu(k,600) = lu(k,600) * lu(k,598)
1787 315224452 : lu(k,601) = lu(k,601) * lu(k,598)
1788 315224452 : lu(k,669) = - lu(k,599) * lu(k,664)
1789 315224452 : lu(k,671) = - lu(k,600) * lu(k,664)
1790 315224452 : lu(k,674) = lu(k,674) - lu(k,601) * lu(k,664)
1791 315224452 : lu(k,733) = - lu(k,599) * lu(k,728)
1792 315224452 : lu(k,735) = lu(k,735) - lu(k,600) * lu(k,728)
1793 315224452 : lu(k,739) = lu(k,739) - lu(k,601) * lu(k,728)
1794 315224452 : lu(k,753) = - lu(k,599) * lu(k,748)
1795 315224452 : lu(k,755) = - lu(k,600) * lu(k,748)
1796 315224452 : lu(k,760) = lu(k,760) - lu(k,601) * lu(k,748)
1797 315224452 : lu(k,769) = - lu(k,599) * lu(k,764)
1798 315224452 : lu(k,771) = lu(k,771) - lu(k,600) * lu(k,764)
1799 315224452 : lu(k,777) = lu(k,777) - lu(k,601) * lu(k,764)
1800 315224452 : lu(k,1088) = - lu(k,599) * lu(k,1086)
1801 315224452 : lu(k,1091) = - lu(k,600) * lu(k,1086)
1802 315224452 : lu(k,1100) = lu(k,1100) - lu(k,601) * lu(k,1086)
1803 315224452 : lu(k,1322) = - lu(k,599) * lu(k,1318)
1804 315224452 : lu(k,1324) = - lu(k,600) * lu(k,1318)
1805 315224452 : lu(k,1345) = lu(k,1345) - lu(k,601) * lu(k,1318)
1806 315224452 : lu(k,1774) = - lu(k,599) * lu(k,1747)
1807 315224452 : lu(k,1793) = lu(k,1793) - lu(k,600) * lu(k,1747)
1808 315224452 : lu(k,1829) = lu(k,1829) - lu(k,601) * lu(k,1747)
1809 315224452 : lu(k,1878) = lu(k,1878) - lu(k,599) * lu(k,1862)
1810 315224452 : lu(k,1891) = lu(k,1891) - lu(k,600) * lu(k,1862)
1811 315224452 : lu(k,1924) = lu(k,1924) - lu(k,601) * lu(k,1862)
1812 315224452 : lu(k,602) = 1._r8 / lu(k,602)
1813 315224452 : lu(k,603) = lu(k,603) * lu(k,602)
1814 315224452 : lu(k,604) = lu(k,604) * lu(k,602)
1815 315224452 : lu(k,605) = lu(k,605) * lu(k,602)
1816 315224452 : lu(k,606) = lu(k,606) * lu(k,602)
1817 315224452 : lu(k,607) = lu(k,607) * lu(k,602)
1818 315224452 : lu(k,608) = lu(k,608) * lu(k,602)
1819 315224452 : lu(k,609) = lu(k,609) * lu(k,602)
1820 315224452 : lu(k,610) = lu(k,610) * lu(k,602)
1821 315224452 : lu(k,1812) = lu(k,1812) - lu(k,603) * lu(k,1748)
1822 315224452 : lu(k,1813) = lu(k,1813) - lu(k,604) * lu(k,1748)
1823 315224452 : lu(k,1818) = lu(k,1818) - lu(k,605) * lu(k,1748)
1824 315224452 : lu(k,1822) = lu(k,1822) - lu(k,606) * lu(k,1748)
1825 315224452 : lu(k,1826) = lu(k,1826) - lu(k,607) * lu(k,1748)
1826 315224452 : lu(k,1829) = lu(k,1829) - lu(k,608) * lu(k,1748)
1827 315224452 : lu(k,1830) = lu(k,1830) - lu(k,609) * lu(k,1748)
1828 315224452 : lu(k,1831) = lu(k,1831) - lu(k,610) * lu(k,1748)
1829 315224452 : lu(k,2021) = lu(k,2021) - lu(k,603) * lu(k,2017)
1830 315224452 : lu(k,2022) = lu(k,2022) - lu(k,604) * lu(k,2017)
1831 315224452 : lu(k,2027) = lu(k,2027) - lu(k,605) * lu(k,2017)
1832 315224452 : lu(k,2031) = lu(k,2031) - lu(k,606) * lu(k,2017)
1833 315224452 : lu(k,2035) = lu(k,2035) - lu(k,607) * lu(k,2017)
1834 315224452 : lu(k,2038) = lu(k,2038) - lu(k,608) * lu(k,2017)
1835 315224452 : lu(k,2039) = lu(k,2039) - lu(k,609) * lu(k,2017)
1836 315224452 : lu(k,2040) = lu(k,2040) - lu(k,610) * lu(k,2017)
1837 315224452 : lu(k,2154) = lu(k,2154) - lu(k,603) * lu(k,2137)
1838 315224452 : lu(k,2155) = lu(k,2155) - lu(k,604) * lu(k,2137)
1839 315224452 : lu(k,2160) = lu(k,2160) - lu(k,605) * lu(k,2137)
1840 315224452 : lu(k,2164) = lu(k,2164) - lu(k,606) * lu(k,2137)
1841 315224452 : lu(k,2168) = lu(k,2168) - lu(k,607) * lu(k,2137)
1842 315224452 : lu(k,2171) = lu(k,2171) - lu(k,608) * lu(k,2137)
1843 315224452 : lu(k,2172) = lu(k,2172) - lu(k,609) * lu(k,2137)
1844 315224452 : lu(k,2173) = lu(k,2173) - lu(k,610) * lu(k,2137)
1845 315224452 : lu(k,611) = 1._r8 / lu(k,611)
1846 315224452 : lu(k,612) = lu(k,612) * lu(k,611)
1847 315224452 : lu(k,613) = lu(k,613) * lu(k,611)
1848 315224452 : lu(k,614) = lu(k,614) * lu(k,611)
1849 315224452 : lu(k,615) = lu(k,615) * lu(k,611)
1850 315224452 : lu(k,616) = lu(k,616) * lu(k,611)
1851 315224452 : lu(k,617) = lu(k,617) * lu(k,611)
1852 315224452 : lu(k,618) = lu(k,618) * lu(k,611)
1853 315224452 : lu(k,619) = lu(k,619) * lu(k,611)
1854 315224452 : lu(k,1395) = - lu(k,612) * lu(k,1392)
1855 315224452 : lu(k,1397) = lu(k,1397) - lu(k,613) * lu(k,1392)
1856 315224452 : lu(k,1399) = lu(k,1399) - lu(k,614) * lu(k,1392)
1857 315224452 : lu(k,1400) = lu(k,1400) - lu(k,615) * lu(k,1392)
1858 315224452 : lu(k,1401) = lu(k,1401) - lu(k,616) * lu(k,1392)
1859 315224452 : lu(k,1403) = lu(k,1403) - lu(k,617) * lu(k,1392)
1860 315224452 : lu(k,1404) = lu(k,1404) - lu(k,618) * lu(k,1392)
1861 315224452 : lu(k,1407) = lu(k,1407) - lu(k,619) * lu(k,1392)
1862 315224452 : lu(k,1797) = lu(k,1797) - lu(k,612) * lu(k,1749)
1863 315224452 : lu(k,1807) = lu(k,1807) - lu(k,613) * lu(k,1749)
1864 315224452 : lu(k,1809) = lu(k,1809) - lu(k,614) * lu(k,1749)
1865 315224452 : lu(k,1817) = lu(k,1817) - lu(k,615) * lu(k,1749)
1866 315224452 : lu(k,1818) = lu(k,1818) - lu(k,616) * lu(k,1749)
1867 315224452 : lu(k,1820) = lu(k,1820) - lu(k,617) * lu(k,1749)
1868 315224452 : lu(k,1821) = lu(k,1821) - lu(k,618) * lu(k,1749)
1869 315224452 : lu(k,1829) = lu(k,1829) - lu(k,619) * lu(k,1749)
1870 315224452 : lu(k,1946) = - lu(k,612) * lu(k,1935)
1871 315224452 : lu(k,1948) = lu(k,1948) - lu(k,613) * lu(k,1935)
1872 315224452 : lu(k,1950) = lu(k,1950) - lu(k,614) * lu(k,1935)
1873 315224452 : lu(k,1957) = lu(k,1957) - lu(k,615) * lu(k,1935)
1874 315224452 : lu(k,1958) = lu(k,1958) - lu(k,616) * lu(k,1935)
1875 315224452 : lu(k,1960) = lu(k,1960) - lu(k,617) * lu(k,1935)
1876 315224452 : lu(k,1961) = lu(k,1961) - lu(k,618) * lu(k,1935)
1877 325174377 : lu(k,1969) = lu(k,1969) - lu(k,619) * lu(k,1935)
1878 : end do
1879 9949925 : end subroutine lu_fac13
1880 9949925 : subroutine lu_fac14( avec_len, lu )
1881 : use chem_mods, only : nzcnt
1882 : use shr_kind_mod, only : r8 => shr_kind_r8
1883 : implicit none
1884 : !-----------------------------------------------------------------------
1885 : ! ... dummy args
1886 : !-----------------------------------------------------------------------
1887 : integer, intent(in) :: avec_len
1888 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1889 : !-----------------------------------------------------------------------
1890 : ! ... local variables
1891 : !-----------------------------------------------------------------------
1892 : integer :: k
1893 325174377 : do k = 1,avec_len
1894 315224452 : lu(k,620) = 1._r8 / lu(k,620)
1895 315224452 : lu(k,621) = lu(k,621) * lu(k,620)
1896 315224452 : lu(k,622) = lu(k,622) * lu(k,620)
1897 315224452 : lu(k,623) = lu(k,623) * lu(k,620)
1898 315224452 : lu(k,624) = lu(k,624) * lu(k,620)
1899 315224452 : lu(k,625) = lu(k,625) * lu(k,620)
1900 315224452 : lu(k,626) = lu(k,626) * lu(k,620)
1901 315224452 : lu(k,1398) = lu(k,1398) - lu(k,621) * lu(k,1393)
1902 315224452 : lu(k,1399) = lu(k,1399) - lu(k,622) * lu(k,1393)
1903 315224452 : lu(k,1401) = lu(k,1401) - lu(k,623) * lu(k,1393)
1904 315224452 : lu(k,1404) = lu(k,1404) - lu(k,624) * lu(k,1393)
1905 315224452 : lu(k,1408) = lu(k,1408) - lu(k,625) * lu(k,1393)
1906 315224452 : lu(k,1409) = - lu(k,626) * lu(k,1393)
1907 315224452 : lu(k,1428) = lu(k,1428) - lu(k,621) * lu(k,1412)
1908 315224452 : lu(k,1429) = lu(k,1429) - lu(k,622) * lu(k,1412)
1909 315224452 : lu(k,1432) = lu(k,1432) - lu(k,623) * lu(k,1412)
1910 315224452 : lu(k,1435) = lu(k,1435) - lu(k,624) * lu(k,1412)
1911 315224452 : lu(k,1440) = lu(k,1440) - lu(k,625) * lu(k,1412)
1912 315224452 : lu(k,1441) = - lu(k,626) * lu(k,1412)
1913 315224452 : lu(k,1808) = lu(k,1808) - lu(k,621) * lu(k,1750)
1914 315224452 : lu(k,1809) = lu(k,1809) - lu(k,622) * lu(k,1750)
1915 315224452 : lu(k,1818) = lu(k,1818) - lu(k,623) * lu(k,1750)
1916 315224452 : lu(k,1821) = lu(k,1821) - lu(k,624) * lu(k,1750)
1917 315224452 : lu(k,1830) = lu(k,1830) - lu(k,625) * lu(k,1750)
1918 315224452 : lu(k,1831) = lu(k,1831) - lu(k,626) * lu(k,1750)
1919 315224452 : lu(k,2348) = lu(k,2348) - lu(k,621) * lu(k,2303)
1920 315224452 : lu(k,2349) = lu(k,2349) - lu(k,622) * lu(k,2303)
1921 315224452 : lu(k,2357) = lu(k,2357) - lu(k,623) * lu(k,2303)
1922 315224452 : lu(k,2360) = lu(k,2360) - lu(k,624) * lu(k,2303)
1923 315224452 : lu(k,2369) = lu(k,2369) - lu(k,625) * lu(k,2303)
1924 315224452 : lu(k,2370) = lu(k,2370) - lu(k,626) * lu(k,2303)
1925 315224452 : lu(k,627) = 1._r8 / lu(k,627)
1926 315224452 : lu(k,628) = lu(k,628) * lu(k,627)
1927 315224452 : lu(k,629) = lu(k,629) * lu(k,627)
1928 315224452 : lu(k,630) = lu(k,630) * lu(k,627)
1929 315224452 : lu(k,631) = lu(k,631) * lu(k,627)
1930 315224452 : lu(k,632) = lu(k,632) * lu(k,627)
1931 315224452 : lu(k,1063) = lu(k,1063) - lu(k,628) * lu(k,1060)
1932 315224452 : lu(k,1065) = lu(k,1065) - lu(k,629) * lu(k,1060)
1933 315224452 : lu(k,1067) = lu(k,1067) - lu(k,630) * lu(k,1060)
1934 315224452 : lu(k,1069) = - lu(k,631) * lu(k,1060)
1935 315224452 : lu(k,1070) = lu(k,1070) - lu(k,632) * lu(k,1060)
1936 315224452 : lu(k,1105) = lu(k,1105) - lu(k,628) * lu(k,1103)
1937 315224452 : lu(k,1111) = lu(k,1111) - lu(k,629) * lu(k,1103)
1938 315224452 : lu(k,1113) = lu(k,1113) - lu(k,630) * lu(k,1103)
1939 315224452 : lu(k,1115) = lu(k,1115) - lu(k,631) * lu(k,1103)
1940 315224452 : lu(k,1116) = lu(k,1116) - lu(k,632) * lu(k,1103)
1941 315224452 : lu(k,1786) = lu(k,1786) - lu(k,628) * lu(k,1751)
1942 315224452 : lu(k,1818) = lu(k,1818) - lu(k,629) * lu(k,1751)
1943 315224452 : lu(k,1820) = lu(k,1820) - lu(k,630) * lu(k,1751)
1944 315224452 : lu(k,1823) = lu(k,1823) - lu(k,631) * lu(k,1751)
1945 315224452 : lu(k,1829) = lu(k,1829) - lu(k,632) * lu(k,1751)
1946 315224452 : lu(k,1885) = lu(k,1885) - lu(k,628) * lu(k,1863)
1947 315224452 : lu(k,1913) = lu(k,1913) - lu(k,629) * lu(k,1863)
1948 315224452 : lu(k,1915) = lu(k,1915) - lu(k,630) * lu(k,1863)
1949 315224452 : lu(k,1918) = lu(k,1918) - lu(k,631) * lu(k,1863)
1950 315224452 : lu(k,1924) = lu(k,1924) - lu(k,632) * lu(k,1863)
1951 315224452 : lu(k,2383) = lu(k,2383) - lu(k,628) * lu(k,2375)
1952 315224452 : lu(k,2409) = lu(k,2409) - lu(k,629) * lu(k,2375)
1953 315224452 : lu(k,2411) = lu(k,2411) - lu(k,630) * lu(k,2375)
1954 315224452 : lu(k,2414) = lu(k,2414) - lu(k,631) * lu(k,2375)
1955 315224452 : lu(k,2420) = lu(k,2420) - lu(k,632) * lu(k,2375)
1956 315224452 : lu(k,635) = 1._r8 / lu(k,635)
1957 315224452 : lu(k,636) = lu(k,636) * lu(k,635)
1958 315224452 : lu(k,637) = lu(k,637) * lu(k,635)
1959 315224452 : lu(k,638) = lu(k,638) * lu(k,635)
1960 315224452 : lu(k,639) = lu(k,639) * lu(k,635)
1961 315224452 : lu(k,640) = lu(k,640) * lu(k,635)
1962 315224452 : lu(k,1818) = lu(k,1818) - lu(k,636) * lu(k,1752)
1963 315224452 : lu(k,1819) = lu(k,1819) - lu(k,637) * lu(k,1752)
1964 315224452 : lu(k,1820) = lu(k,1820) - lu(k,638) * lu(k,1752)
1965 315224452 : lu(k,1827) = lu(k,1827) - lu(k,639) * lu(k,1752)
1966 315224452 : lu(k,1829) = lu(k,1829) - lu(k,640) * lu(k,1752)
1967 315224452 : lu(k,1913) = lu(k,1913) - lu(k,636) * lu(k,1864)
1968 315224452 : lu(k,1914) = lu(k,1914) - lu(k,637) * lu(k,1864)
1969 315224452 : lu(k,1915) = lu(k,1915) - lu(k,638) * lu(k,1864)
1970 315224452 : lu(k,1922) = lu(k,1922) - lu(k,639) * lu(k,1864)
1971 315224452 : lu(k,1924) = lu(k,1924) - lu(k,640) * lu(k,1864)
1972 315224452 : lu(k,1958) = lu(k,1958) - lu(k,636) * lu(k,1936)
1973 315224452 : lu(k,1959) = lu(k,1959) - lu(k,637) * lu(k,1936)
1974 315224452 : lu(k,1960) = lu(k,1960) - lu(k,638) * lu(k,1936)
1975 315224452 : lu(k,1967) = lu(k,1967) - lu(k,639) * lu(k,1936)
1976 315224452 : lu(k,1969) = lu(k,1969) - lu(k,640) * lu(k,1936)
1977 315224452 : lu(k,2224) = lu(k,2224) - lu(k,636) * lu(k,2185)
1978 315224452 : lu(k,2225) = lu(k,2225) - lu(k,637) * lu(k,2185)
1979 315224452 : lu(k,2226) = lu(k,2226) - lu(k,638) * lu(k,2185)
1980 315224452 : lu(k,2233) = lu(k,2233) - lu(k,639) * lu(k,2185)
1981 315224452 : lu(k,2235) = lu(k,2235) - lu(k,640) * lu(k,2185)
1982 315224452 : lu(k,2357) = lu(k,2357) - lu(k,636) * lu(k,2304)
1983 315224452 : lu(k,2358) = lu(k,2358) - lu(k,637) * lu(k,2304)
1984 315224452 : lu(k,2359) = lu(k,2359) - lu(k,638) * lu(k,2304)
1985 315224452 : lu(k,2366) = lu(k,2366) - lu(k,639) * lu(k,2304)
1986 315224452 : lu(k,2368) = lu(k,2368) - lu(k,640) * lu(k,2304)
1987 315224452 : lu(k,642) = 1._r8 / lu(k,642)
1988 315224452 : lu(k,643) = lu(k,643) * lu(k,642)
1989 315224452 : lu(k,644) = lu(k,644) * lu(k,642)
1990 315224452 : lu(k,645) = lu(k,645) * lu(k,642)
1991 315224452 : lu(k,646) = lu(k,646) * lu(k,642)
1992 315224452 : lu(k,647) = lu(k,647) * lu(k,642)
1993 315224452 : lu(k,648) = lu(k,648) * lu(k,642)
1994 315224452 : lu(k,649) = lu(k,649) * lu(k,642)
1995 315224452 : lu(k,650) = lu(k,650) * lu(k,642)
1996 315224452 : lu(k,651) = lu(k,651) * lu(k,642)
1997 315224452 : lu(k,1040) = lu(k,1040) - lu(k,643) * lu(k,1038)
1998 315224452 : lu(k,1041) = lu(k,1041) - lu(k,644) * lu(k,1038)
1999 315224452 : lu(k,1043) = lu(k,1043) - lu(k,645) * lu(k,1038)
2000 315224452 : lu(k,1044) = lu(k,1044) - lu(k,646) * lu(k,1038)
2001 315224452 : lu(k,1045) = lu(k,1045) - lu(k,647) * lu(k,1038)
2002 315224452 : lu(k,1047) = lu(k,1047) - lu(k,648) * lu(k,1038)
2003 315224452 : lu(k,1049) = lu(k,1049) - lu(k,649) * lu(k,1038)
2004 315224452 : lu(k,1050) = lu(k,1050) - lu(k,650) * lu(k,1038)
2005 315224452 : lu(k,1051) = lu(k,1051) - lu(k,651) * lu(k,1038)
2006 315224452 : lu(k,1757) = lu(k,1757) - lu(k,643) * lu(k,1753)
2007 315224452 : lu(k,1773) = lu(k,1773) - lu(k,644) * lu(k,1753)
2008 315224452 : lu(k,1787) = lu(k,1787) - lu(k,645) * lu(k,1753)
2009 315224452 : lu(k,1792) = lu(k,1792) - lu(k,646) * lu(k,1753)
2010 315224452 : lu(k,1808) = lu(k,1808) - lu(k,647) * lu(k,1753)
2011 315224452 : lu(k,1818) = lu(k,1818) - lu(k,648) * lu(k,1753)
2012 315224452 : lu(k,1820) = lu(k,1820) - lu(k,649) * lu(k,1753)
2013 315224452 : lu(k,1821) = lu(k,1821) - lu(k,650) * lu(k,1753)
2014 315224452 : lu(k,1829) = lu(k,1829) - lu(k,651) * lu(k,1753)
2015 315224452 : lu(k,1866) = lu(k,1866) - lu(k,643) * lu(k,1865)
2016 315224452 : lu(k,1877) = lu(k,1877) - lu(k,644) * lu(k,1865)
2017 315224452 : lu(k,1886) = lu(k,1886) - lu(k,645) * lu(k,1865)
2018 315224452 : lu(k,1890) = lu(k,1890) - lu(k,646) * lu(k,1865)
2019 315224452 : lu(k,1906) = lu(k,1906) - lu(k,647) * lu(k,1865)
2020 315224452 : lu(k,1913) = lu(k,1913) - lu(k,648) * lu(k,1865)
2021 315224452 : lu(k,1915) = lu(k,1915) - lu(k,649) * lu(k,1865)
2022 315224452 : lu(k,1916) = lu(k,1916) - lu(k,650) * lu(k,1865)
2023 315224452 : lu(k,1924) = lu(k,1924) - lu(k,651) * lu(k,1865)
2024 315224452 : lu(k,652) = 1._r8 / lu(k,652)
2025 315224452 : lu(k,653) = lu(k,653) * lu(k,652)
2026 315224452 : lu(k,654) = lu(k,654) * lu(k,652)
2027 315224452 : lu(k,655) = lu(k,655) * lu(k,652)
2028 315224452 : lu(k,656) = lu(k,656) * lu(k,652)
2029 315224452 : lu(k,657) = lu(k,657) * lu(k,652)
2030 315224452 : lu(k,658) = lu(k,658) * lu(k,652)
2031 315224452 : lu(k,659) = lu(k,659) * lu(k,652)
2032 315224452 : lu(k,660) = lu(k,660) * lu(k,652)
2033 315224452 : lu(k,661) = lu(k,661) * lu(k,652)
2034 315224452 : lu(k,1174) = lu(k,1174) - lu(k,653) * lu(k,1172)
2035 315224452 : lu(k,1175) = lu(k,1175) - lu(k,654) * lu(k,1172)
2036 315224452 : lu(k,1176) = lu(k,1176) - lu(k,655) * lu(k,1172)
2037 315224452 : lu(k,1177) = lu(k,1177) - lu(k,656) * lu(k,1172)
2038 315224452 : lu(k,1178) = lu(k,1178) - lu(k,657) * lu(k,1172)
2039 315224452 : lu(k,1181) = lu(k,1181) - lu(k,658) * lu(k,1172)
2040 315224452 : lu(k,1182) = - lu(k,659) * lu(k,1172)
2041 315224452 : lu(k,1185) = lu(k,1185) - lu(k,660) * lu(k,1172)
2042 315224452 : lu(k,1187) = lu(k,1187) - lu(k,661) * lu(k,1172)
2043 315224452 : lu(k,1787) = lu(k,1787) - lu(k,653) * lu(k,1754)
2044 315224452 : lu(k,1790) = lu(k,1790) - lu(k,654) * lu(k,1754)
2045 315224452 : lu(k,1793) = lu(k,1793) - lu(k,655) * lu(k,1754)
2046 315224452 : lu(k,1794) = lu(k,1794) - lu(k,656) * lu(k,1754)
2047 315224452 : lu(k,1795) = lu(k,1795) - lu(k,657) * lu(k,1754)
2048 315224452 : lu(k,1809) = lu(k,1809) - lu(k,658) * lu(k,1754)
2049 315224452 : lu(k,1818) = lu(k,1818) - lu(k,659) * lu(k,1754)
2050 315224452 : lu(k,1821) = lu(k,1821) - lu(k,660) * lu(k,1754)
2051 315224452 : lu(k,1829) = lu(k,1829) - lu(k,661) * lu(k,1754)
2052 315224452 : lu(k,2330) = lu(k,2330) - lu(k,653) * lu(k,2305)
2053 315224452 : lu(k,2332) = - lu(k,654) * lu(k,2305)
2054 315224452 : lu(k,2334) = lu(k,2334) - lu(k,655) * lu(k,2305)
2055 315224452 : lu(k,2335) = lu(k,2335) - lu(k,656) * lu(k,2305)
2056 315224452 : lu(k,2336) = lu(k,2336) - lu(k,657) * lu(k,2305)
2057 315224452 : lu(k,2349) = lu(k,2349) - lu(k,658) * lu(k,2305)
2058 315224452 : lu(k,2357) = lu(k,2357) - lu(k,659) * lu(k,2305)
2059 315224452 : lu(k,2360) = lu(k,2360) - lu(k,660) * lu(k,2305)
2060 315224452 : lu(k,2368) = lu(k,2368) - lu(k,661) * lu(k,2305)
2061 315224452 : lu(k,665) = 1._r8 / lu(k,665)
2062 315224452 : lu(k,666) = lu(k,666) * lu(k,665)
2063 315224452 : lu(k,667) = lu(k,667) * lu(k,665)
2064 315224452 : lu(k,668) = lu(k,668) * lu(k,665)
2065 315224452 : lu(k,669) = lu(k,669) * lu(k,665)
2066 315224452 : lu(k,670) = lu(k,670) * lu(k,665)
2067 315224452 : lu(k,671) = lu(k,671) * lu(k,665)
2068 315224452 : lu(k,672) = lu(k,672) * lu(k,665)
2069 315224452 : lu(k,673) = lu(k,673) * lu(k,665)
2070 315224452 : lu(k,674) = lu(k,674) * lu(k,665)
2071 315224452 : lu(k,750) = lu(k,750) - lu(k,666) * lu(k,749)
2072 315224452 : lu(k,751) = lu(k,751) - lu(k,667) * lu(k,749)
2073 315224452 : lu(k,752) = lu(k,752) - lu(k,668) * lu(k,749)
2074 315224452 : lu(k,753) = lu(k,753) - lu(k,669) * lu(k,749)
2075 315224452 : lu(k,754) = lu(k,754) - lu(k,670) * lu(k,749)
2076 315224452 : lu(k,755) = lu(k,755) - lu(k,671) * lu(k,749)
2077 315224452 : lu(k,756) = lu(k,756) - lu(k,672) * lu(k,749)
2078 315224452 : lu(k,757) = - lu(k,673) * lu(k,749)
2079 315224452 : lu(k,760) = lu(k,760) - lu(k,674) * lu(k,749)
2080 315224452 : lu(k,1762) = lu(k,1762) - lu(k,666) * lu(k,1755)
2081 315224452 : lu(k,1763) = lu(k,1763) - lu(k,667) * lu(k,1755)
2082 315224452 : lu(k,1765) = - lu(k,668) * lu(k,1755)
2083 315224452 : lu(k,1774) = lu(k,1774) - lu(k,669) * lu(k,1755)
2084 315224452 : lu(k,1784) = lu(k,1784) - lu(k,670) * lu(k,1755)
2085 315224452 : lu(k,1793) = lu(k,1793) - lu(k,671) * lu(k,1755)
2086 315224452 : lu(k,1802) = lu(k,1802) - lu(k,672) * lu(k,1755)
2087 315224452 : lu(k,1818) = lu(k,1818) - lu(k,673) * lu(k,1755)
2088 315224452 : lu(k,1829) = lu(k,1829) - lu(k,674) * lu(k,1755)
2089 315224452 : lu(k,2312) = lu(k,2312) - lu(k,666) * lu(k,2306)
2090 315224452 : lu(k,2313) = lu(k,2313) - lu(k,667) * lu(k,2306)
2091 315224452 : lu(k,2315) = lu(k,2315) - lu(k,668) * lu(k,2306)
2092 315224452 : lu(k,2323) = lu(k,2323) - lu(k,669) * lu(k,2306)
2093 315224452 : lu(k,2327) = lu(k,2327) - lu(k,670) * lu(k,2306)
2094 315224452 : lu(k,2334) = lu(k,2334) - lu(k,671) * lu(k,2306)
2095 315224452 : lu(k,2342) = lu(k,2342) - lu(k,672) * lu(k,2306)
2096 315224452 : lu(k,2357) = lu(k,2357) - lu(k,673) * lu(k,2306)
2097 325174377 : lu(k,2368) = lu(k,2368) - lu(k,674) * lu(k,2306)
2098 : end do
2099 9949925 : end subroutine lu_fac14
2100 9949925 : subroutine lu_fac15( avec_len, lu )
2101 : use chem_mods, only : nzcnt
2102 : use shr_kind_mod, only : r8 => shr_kind_r8
2103 : implicit none
2104 : !-----------------------------------------------------------------------
2105 : ! ... dummy args
2106 : !-----------------------------------------------------------------------
2107 : integer, intent(in) :: avec_len
2108 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2109 : !-----------------------------------------------------------------------
2110 : ! ... local variables
2111 : !-----------------------------------------------------------------------
2112 : integer :: k
2113 325174377 : do k = 1,avec_len
2114 315224452 : lu(k,676) = 1._r8 / lu(k,676)
2115 315224452 : lu(k,677) = lu(k,677) * lu(k,676)
2116 315224452 : lu(k,678) = lu(k,678) * lu(k,676)
2117 315224452 : lu(k,679) = lu(k,679) * lu(k,676)
2118 315224452 : lu(k,680) = lu(k,680) * lu(k,676)
2119 315224452 : lu(k,681) = lu(k,681) * lu(k,676)
2120 315224452 : lu(k,682) = lu(k,682) * lu(k,676)
2121 315224452 : lu(k,683) = lu(k,683) * lu(k,676)
2122 315224452 : lu(k,684) = lu(k,684) * lu(k,676)
2123 315224452 : lu(k,685) = lu(k,685) * lu(k,676)
2124 315224452 : lu(k,862) = - lu(k,677) * lu(k,861)
2125 315224452 : lu(k,863) = lu(k,863) - lu(k,678) * lu(k,861)
2126 315224452 : lu(k,864) = lu(k,864) - lu(k,679) * lu(k,861)
2127 315224452 : lu(k,865) = lu(k,865) - lu(k,680) * lu(k,861)
2128 315224452 : lu(k,866) = lu(k,866) - lu(k,681) * lu(k,861)
2129 315224452 : lu(k,869) = lu(k,869) - lu(k,682) * lu(k,861)
2130 315224452 : lu(k,870) = lu(k,870) - lu(k,683) * lu(k,861)
2131 315224452 : lu(k,871) = lu(k,871) - lu(k,684) * lu(k,861)
2132 315224452 : lu(k,872) = lu(k,872) - lu(k,685) * lu(k,861)
2133 315224452 : lu(k,1531) = lu(k,1531) - lu(k,677) * lu(k,1529)
2134 315224452 : lu(k,1532) = lu(k,1532) - lu(k,678) * lu(k,1529)
2135 315224452 : lu(k,1533) = lu(k,1533) - lu(k,679) * lu(k,1529)
2136 315224452 : lu(k,1534) = lu(k,1534) - lu(k,680) * lu(k,1529)
2137 315224452 : lu(k,1536) = lu(k,1536) - lu(k,681) * lu(k,1529)
2138 315224452 : lu(k,1542) = lu(k,1542) - lu(k,682) * lu(k,1529)
2139 315224452 : lu(k,1546) = lu(k,1546) - lu(k,683) * lu(k,1529)
2140 315224452 : lu(k,1549) = lu(k,1549) - lu(k,684) * lu(k,1529)
2141 315224452 : lu(k,1550) = lu(k,1550) - lu(k,685) * lu(k,1529)
2142 315224452 : lu(k,2074) = lu(k,2074) - lu(k,677) * lu(k,2071)
2143 315224452 : lu(k,2077) = lu(k,2077) - lu(k,678) * lu(k,2071)
2144 315224452 : lu(k,2078) = lu(k,2078) - lu(k,679) * lu(k,2071)
2145 315224452 : lu(k,2079) = lu(k,2079) - lu(k,680) * lu(k,2071)
2146 315224452 : lu(k,2082) = lu(k,2082) - lu(k,681) * lu(k,2071)
2147 315224452 : lu(k,2089) = lu(k,2089) - lu(k,682) * lu(k,2071)
2148 315224452 : lu(k,2094) = lu(k,2094) - lu(k,683) * lu(k,2071)
2149 315224452 : lu(k,2097) = lu(k,2097) - lu(k,684) * lu(k,2071)
2150 315224452 : lu(k,2099) = lu(k,2099) - lu(k,685) * lu(k,2071)
2151 315224452 : lu(k,687) = 1._r8 / lu(k,687)
2152 315224452 : lu(k,688) = lu(k,688) * lu(k,687)
2153 315224452 : lu(k,689) = lu(k,689) * lu(k,687)
2154 315224452 : lu(k,690) = lu(k,690) * lu(k,687)
2155 315224452 : lu(k,691) = lu(k,691) * lu(k,687)
2156 315224452 : lu(k,692) = lu(k,692) * lu(k,687)
2157 315224452 : lu(k,693) = lu(k,693) * lu(k,687)
2158 315224452 : lu(k,694) = lu(k,694) * lu(k,687)
2159 315224452 : lu(k,695) = lu(k,695) * lu(k,687)
2160 315224452 : lu(k,696) = lu(k,696) * lu(k,687)
2161 315224452 : lu(k,1040) = lu(k,1040) - lu(k,688) * lu(k,1039)
2162 315224452 : lu(k,1041) = lu(k,1041) - lu(k,689) * lu(k,1039)
2163 315224452 : lu(k,1042) = lu(k,1042) - lu(k,690) * lu(k,1039)
2164 315224452 : lu(k,1043) = lu(k,1043) - lu(k,691) * lu(k,1039)
2165 315224452 : lu(k,1044) = lu(k,1044) - lu(k,692) * lu(k,1039)
2166 315224452 : lu(k,1045) = lu(k,1045) - lu(k,693) * lu(k,1039)
2167 315224452 : lu(k,1047) = lu(k,1047) - lu(k,694) * lu(k,1039)
2168 315224452 : lu(k,1050) = lu(k,1050) - lu(k,695) * lu(k,1039)
2169 315224452 : lu(k,1051) = lu(k,1051) - lu(k,696) * lu(k,1039)
2170 315224452 : lu(k,1757) = lu(k,1757) - lu(k,688) * lu(k,1756)
2171 315224452 : lu(k,1773) = lu(k,1773) - lu(k,689) * lu(k,1756)
2172 315224452 : lu(k,1783) = lu(k,1783) - lu(k,690) * lu(k,1756)
2173 315224452 : lu(k,1787) = lu(k,1787) - lu(k,691) * lu(k,1756)
2174 315224452 : lu(k,1792) = lu(k,1792) - lu(k,692) * lu(k,1756)
2175 315224452 : lu(k,1808) = lu(k,1808) - lu(k,693) * lu(k,1756)
2176 315224452 : lu(k,1818) = lu(k,1818) - lu(k,694) * lu(k,1756)
2177 315224452 : lu(k,1821) = lu(k,1821) - lu(k,695) * lu(k,1756)
2178 315224452 : lu(k,1829) = lu(k,1829) - lu(k,696) * lu(k,1756)
2179 315224452 : lu(k,2308) = lu(k,2308) - lu(k,688) * lu(k,2307)
2180 315224452 : lu(k,2322) = lu(k,2322) - lu(k,689) * lu(k,2307)
2181 315224452 : lu(k,2326) = lu(k,2326) - lu(k,690) * lu(k,2307)
2182 315224452 : lu(k,2330) = lu(k,2330) - lu(k,691) * lu(k,2307)
2183 315224452 : lu(k,2333) = lu(k,2333) - lu(k,692) * lu(k,2307)
2184 315224452 : lu(k,2348) = lu(k,2348) - lu(k,693) * lu(k,2307)
2185 315224452 : lu(k,2357) = lu(k,2357) - lu(k,694) * lu(k,2307)
2186 315224452 : lu(k,2360) = lu(k,2360) - lu(k,695) * lu(k,2307)
2187 315224452 : lu(k,2368) = lu(k,2368) - lu(k,696) * lu(k,2307)
2188 315224452 : lu(k,698) = 1._r8 / lu(k,698)
2189 315224452 : lu(k,699) = lu(k,699) * lu(k,698)
2190 315224452 : lu(k,700) = lu(k,700) * lu(k,698)
2191 315224452 : lu(k,701) = lu(k,701) * lu(k,698)
2192 315224452 : lu(k,702) = lu(k,702) * lu(k,698)
2193 315224452 : lu(k,703) = lu(k,703) * lu(k,698)
2194 315224452 : lu(k,704) = lu(k,704) * lu(k,698)
2195 315224452 : lu(k,1044) = lu(k,1044) - lu(k,699) * lu(k,1040)
2196 315224452 : lu(k,1045) = lu(k,1045) - lu(k,700) * lu(k,1040)
2197 315224452 : lu(k,1047) = lu(k,1047) - lu(k,701) * lu(k,1040)
2198 315224452 : lu(k,1048) = lu(k,1048) - lu(k,702) * lu(k,1040)
2199 315224452 : lu(k,1049) = lu(k,1049) - lu(k,703) * lu(k,1040)
2200 315224452 : lu(k,1051) = lu(k,1051) - lu(k,704) * lu(k,1040)
2201 315224452 : lu(k,1792) = lu(k,1792) - lu(k,699) * lu(k,1757)
2202 315224452 : lu(k,1808) = lu(k,1808) - lu(k,700) * lu(k,1757)
2203 315224452 : lu(k,1818) = lu(k,1818) - lu(k,701) * lu(k,1757)
2204 315224452 : lu(k,1819) = lu(k,1819) - lu(k,702) * lu(k,1757)
2205 315224452 : lu(k,1820) = lu(k,1820) - lu(k,703) * lu(k,1757)
2206 315224452 : lu(k,1829) = lu(k,1829) - lu(k,704) * lu(k,1757)
2207 315224452 : lu(k,1890) = lu(k,1890) - lu(k,699) * lu(k,1866)
2208 315224452 : lu(k,1906) = lu(k,1906) - lu(k,700) * lu(k,1866)
2209 315224452 : lu(k,1913) = lu(k,1913) - lu(k,701) * lu(k,1866)
2210 315224452 : lu(k,1914) = lu(k,1914) - lu(k,702) * lu(k,1866)
2211 315224452 : lu(k,1915) = lu(k,1915) - lu(k,703) * lu(k,1866)
2212 315224452 : lu(k,1924) = lu(k,1924) - lu(k,704) * lu(k,1866)
2213 315224452 : lu(k,2333) = lu(k,2333) - lu(k,699) * lu(k,2308)
2214 315224452 : lu(k,2348) = lu(k,2348) - lu(k,700) * lu(k,2308)
2215 315224452 : lu(k,2357) = lu(k,2357) - lu(k,701) * lu(k,2308)
2216 315224452 : lu(k,2358) = lu(k,2358) - lu(k,702) * lu(k,2308)
2217 315224452 : lu(k,2359) = lu(k,2359) - lu(k,703) * lu(k,2308)
2218 315224452 : lu(k,2368) = lu(k,2368) - lu(k,704) * lu(k,2308)
2219 315224452 : lu(k,705) = 1._r8 / lu(k,705)
2220 315224452 : lu(k,706) = lu(k,706) * lu(k,705)
2221 315224452 : lu(k,707) = lu(k,707) * lu(k,705)
2222 315224452 : lu(k,708) = lu(k,708) * lu(k,705)
2223 315224452 : lu(k,709) = lu(k,709) * lu(k,705)
2224 315224452 : lu(k,1139) = lu(k,1139) - lu(k,706) * lu(k,1129)
2225 315224452 : lu(k,1142) = lu(k,1142) - lu(k,707) * lu(k,1129)
2226 315224452 : lu(k,1149) = lu(k,1149) - lu(k,708) * lu(k,1129)
2227 315224452 : lu(k,1150) = - lu(k,709) * lu(k,1129)
2228 315224452 : lu(k,1399) = lu(k,1399) - lu(k,706) * lu(k,1394)
2229 315224452 : lu(k,1401) = lu(k,1401) - lu(k,707) * lu(k,1394)
2230 315224452 : lu(k,1408) = lu(k,1408) - lu(k,708) * lu(k,1394)
2231 315224452 : lu(k,1409) = lu(k,1409) - lu(k,709) * lu(k,1394)
2232 315224452 : lu(k,1429) = lu(k,1429) - lu(k,706) * lu(k,1413)
2233 315224452 : lu(k,1432) = lu(k,1432) - lu(k,707) * lu(k,1413)
2234 315224452 : lu(k,1440) = lu(k,1440) - lu(k,708) * lu(k,1413)
2235 315224452 : lu(k,1441) = lu(k,1441) - lu(k,709) * lu(k,1413)
2236 315224452 : lu(k,1809) = lu(k,1809) - lu(k,706) * lu(k,1758)
2237 315224452 : lu(k,1818) = lu(k,1818) - lu(k,707) * lu(k,1758)
2238 315224452 : lu(k,1830) = lu(k,1830) - lu(k,708) * lu(k,1758)
2239 315224452 : lu(k,1831) = lu(k,1831) - lu(k,709) * lu(k,1758)
2240 315224452 : lu(k,2217) = lu(k,2217) - lu(k,706) * lu(k,2186)
2241 315224452 : lu(k,2224) = lu(k,2224) - lu(k,707) * lu(k,2186)
2242 315224452 : lu(k,2236) = lu(k,2236) - lu(k,708) * lu(k,2186)
2243 315224452 : lu(k,2237) = - lu(k,709) * lu(k,2186)
2244 315224452 : lu(k,2349) = lu(k,2349) - lu(k,706) * lu(k,2309)
2245 315224452 : lu(k,2357) = lu(k,2357) - lu(k,707) * lu(k,2309)
2246 315224452 : lu(k,2369) = lu(k,2369) - lu(k,708) * lu(k,2309)
2247 315224452 : lu(k,2370) = lu(k,2370) - lu(k,709) * lu(k,2309)
2248 315224452 : lu(k,2404) = lu(k,2404) - lu(k,706) * lu(k,2376)
2249 315224452 : lu(k,2409) = lu(k,2409) - lu(k,707) * lu(k,2376)
2250 315224452 : lu(k,2421) = lu(k,2421) - lu(k,708) * lu(k,2376)
2251 315224452 : lu(k,2422) = lu(k,2422) - lu(k,709) * lu(k,2376)
2252 315224452 : lu(k,711) = 1._r8 / lu(k,711)
2253 315224452 : lu(k,712) = lu(k,712) * lu(k,711)
2254 315224452 : lu(k,713) = lu(k,713) * lu(k,711)
2255 315224452 : lu(k,714) = lu(k,714) * lu(k,711)
2256 315224452 : lu(k,715) = lu(k,715) * lu(k,711)
2257 315224452 : lu(k,716) = lu(k,716) * lu(k,711)
2258 315224452 : lu(k,717) = lu(k,717) * lu(k,711)
2259 315224452 : lu(k,1252) = - lu(k,712) * lu(k,1246)
2260 315224452 : lu(k,1254) = - lu(k,713) * lu(k,1246)
2261 315224452 : lu(k,1256) = - lu(k,714) * lu(k,1246)
2262 315224452 : lu(k,1260) = lu(k,1260) - lu(k,715) * lu(k,1246)
2263 315224452 : lu(k,1263) = lu(k,1263) - lu(k,716) * lu(k,1246)
2264 315224452 : lu(k,1265) = lu(k,1265) - lu(k,717) * lu(k,1246)
2265 315224452 : lu(k,1296) = - lu(k,712) * lu(k,1290)
2266 315224452 : lu(k,1297) = lu(k,1297) - lu(k,713) * lu(k,1290)
2267 315224452 : lu(k,1301) = lu(k,1301) - lu(k,714) * lu(k,1290)
2268 315224452 : lu(k,1306) = lu(k,1306) - lu(k,715) * lu(k,1290)
2269 315224452 : lu(k,1309) = lu(k,1309) - lu(k,716) * lu(k,1290)
2270 315224452 : lu(k,1312) = lu(k,1312) - lu(k,717) * lu(k,1290)
2271 315224452 : lu(k,1329) = lu(k,1329) - lu(k,712) * lu(k,1319)
2272 315224452 : lu(k,1330) = - lu(k,713) * lu(k,1319)
2273 315224452 : lu(k,1334) = - lu(k,714) * lu(k,1319)
2274 315224452 : lu(k,1339) = lu(k,1339) - lu(k,715) * lu(k,1319)
2275 315224452 : lu(k,1342) = lu(k,1342) - lu(k,716) * lu(k,1319)
2276 315224452 : lu(k,1345) = lu(k,1345) - lu(k,717) * lu(k,1319)
2277 315224452 : lu(k,1799) = lu(k,1799) - lu(k,712) * lu(k,1759)
2278 315224452 : lu(k,1801) = lu(k,1801) - lu(k,713) * lu(k,1759)
2279 315224452 : lu(k,1806) = lu(k,1806) - lu(k,714) * lu(k,1759)
2280 315224452 : lu(k,1818) = lu(k,1818) - lu(k,715) * lu(k,1759)
2281 315224452 : lu(k,1821) = lu(k,1821) - lu(k,716) * lu(k,1759)
2282 315224452 : lu(k,1829) = lu(k,1829) - lu(k,717) * lu(k,1759)
2283 315224452 : lu(k,2339) = lu(k,2339) - lu(k,712) * lu(k,2310)
2284 315224452 : lu(k,2341) = - lu(k,713) * lu(k,2310)
2285 315224452 : lu(k,2346) = - lu(k,714) * lu(k,2310)
2286 315224452 : lu(k,2357) = lu(k,2357) - lu(k,715) * lu(k,2310)
2287 315224452 : lu(k,2360) = lu(k,2360) - lu(k,716) * lu(k,2310)
2288 315224452 : lu(k,2368) = lu(k,2368) - lu(k,717) * lu(k,2310)
2289 315224452 : lu(k,718) = 1._r8 / lu(k,718)
2290 315224452 : lu(k,719) = lu(k,719) * lu(k,718)
2291 315224452 : lu(k,720) = lu(k,720) * lu(k,718)
2292 315224452 : lu(k,721) = lu(k,721) * lu(k,718)
2293 315224452 : lu(k,722) = lu(k,722) * lu(k,718)
2294 315224452 : lu(k,723) = lu(k,723) * lu(k,718)
2295 315224452 : lu(k,724) = lu(k,724) * lu(k,718)
2296 315224452 : lu(k,1476) = lu(k,1476) - lu(k,719) * lu(k,1474)
2297 315224452 : lu(k,1478) = lu(k,1478) - lu(k,720) * lu(k,1474)
2298 315224452 : lu(k,1481) = lu(k,1481) - lu(k,721) * lu(k,1474)
2299 315224452 : lu(k,1484) = lu(k,1484) - lu(k,722) * lu(k,1474)
2300 315224452 : lu(k,1485) = lu(k,1485) - lu(k,723) * lu(k,1474)
2301 315224452 : lu(k,1487) = lu(k,1487) - lu(k,724) * lu(k,1474)
2302 315224452 : lu(k,1540) = lu(k,1540) - lu(k,719) * lu(k,1530)
2303 315224452 : lu(k,1542) = lu(k,1542) - lu(k,720) * lu(k,1530)
2304 315224452 : lu(k,1545) = - lu(k,721) * lu(k,1530)
2305 315224452 : lu(k,1550) = lu(k,1550) - lu(k,722) * lu(k,1530)
2306 315224452 : lu(k,1551) = lu(k,1551) - lu(k,723) * lu(k,1530)
2307 315224452 : lu(k,1553) = lu(k,1553) - lu(k,724) * lu(k,1530)
2308 315224452 : lu(k,1811) = lu(k,1811) - lu(k,719) * lu(k,1760)
2309 315224452 : lu(k,1814) = lu(k,1814) - lu(k,720) * lu(k,1760)
2310 315224452 : lu(k,1818) = lu(k,1818) - lu(k,721) * lu(k,1760)
2311 315224452 : lu(k,1824) = lu(k,1824) - lu(k,722) * lu(k,1760)
2312 315224452 : lu(k,1825) = lu(k,1825) - lu(k,723) * lu(k,1760)
2313 315224452 : lu(k,1827) = lu(k,1827) - lu(k,724) * lu(k,1760)
2314 315224452 : lu(k,2086) = lu(k,2086) - lu(k,719) * lu(k,2072)
2315 315224452 : lu(k,2089) = lu(k,2089) - lu(k,720) * lu(k,2072)
2316 315224452 : lu(k,2093) = lu(k,2093) - lu(k,721) * lu(k,2072)
2317 315224452 : lu(k,2099) = lu(k,2099) - lu(k,722) * lu(k,2072)
2318 315224452 : lu(k,2100) = lu(k,2100) - lu(k,723) * lu(k,2072)
2319 315224452 : lu(k,2102) = lu(k,2102) - lu(k,724) * lu(k,2072)
2320 315224452 : lu(k,2218) = lu(k,2218) - lu(k,719) * lu(k,2187)
2321 315224452 : lu(k,2220) = lu(k,2220) - lu(k,720) * lu(k,2187)
2322 315224452 : lu(k,2224) = lu(k,2224) - lu(k,721) * lu(k,2187)
2323 315224452 : lu(k,2230) = lu(k,2230) - lu(k,722) * lu(k,2187)
2324 315224452 : lu(k,2231) = lu(k,2231) - lu(k,723) * lu(k,2187)
2325 325174377 : lu(k,2233) = lu(k,2233) - lu(k,724) * lu(k,2187)
2326 : end do
2327 9949925 : end subroutine lu_fac15
2328 9949925 : subroutine lu_fac16( avec_len, lu )
2329 : use chem_mods, only : nzcnt
2330 : use shr_kind_mod, only : r8 => shr_kind_r8
2331 : implicit none
2332 : !-----------------------------------------------------------------------
2333 : ! ... dummy args
2334 : !-----------------------------------------------------------------------
2335 : integer, intent(in) :: avec_len
2336 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2337 : !-----------------------------------------------------------------------
2338 : ! ... local variables
2339 : !-----------------------------------------------------------------------
2340 : integer :: k
2341 325174377 : do k = 1,avec_len
2342 315224452 : lu(k,729) = 1._r8 / lu(k,729)
2343 315224452 : lu(k,730) = lu(k,730) * lu(k,729)
2344 315224452 : lu(k,731) = lu(k,731) * lu(k,729)
2345 315224452 : lu(k,732) = lu(k,732) * lu(k,729)
2346 315224452 : lu(k,733) = lu(k,733) * lu(k,729)
2347 315224452 : lu(k,734) = lu(k,734) * lu(k,729)
2348 315224452 : lu(k,735) = lu(k,735) * lu(k,729)
2349 315224452 : lu(k,736) = lu(k,736) * lu(k,729)
2350 315224452 : lu(k,737) = lu(k,737) * lu(k,729)
2351 315224452 : lu(k,738) = lu(k,738) * lu(k,729)
2352 315224452 : lu(k,739) = lu(k,739) * lu(k,729)
2353 315224452 : lu(k,766) = lu(k,766) - lu(k,730) * lu(k,765)
2354 315224452 : lu(k,767) = lu(k,767) - lu(k,731) * lu(k,765)
2355 315224452 : lu(k,768) = lu(k,768) - lu(k,732) * lu(k,765)
2356 315224452 : lu(k,769) = lu(k,769) - lu(k,733) * lu(k,765)
2357 315224452 : lu(k,770) = lu(k,770) - lu(k,734) * lu(k,765)
2358 315224452 : lu(k,771) = lu(k,771) - lu(k,735) * lu(k,765)
2359 315224452 : lu(k,772) = lu(k,772) - lu(k,736) * lu(k,765)
2360 315224452 : lu(k,773) = lu(k,773) - lu(k,737) * lu(k,765)
2361 315224452 : lu(k,774) = - lu(k,738) * lu(k,765)
2362 315224452 : lu(k,777) = lu(k,777) - lu(k,739) * lu(k,765)
2363 315224452 : lu(k,1762) = lu(k,1762) - lu(k,730) * lu(k,1761)
2364 315224452 : lu(k,1764) = lu(k,1764) - lu(k,731) * lu(k,1761)
2365 315224452 : lu(k,1765) = lu(k,1765) - lu(k,732) * lu(k,1761)
2366 315224452 : lu(k,1774) = lu(k,1774) - lu(k,733) * lu(k,1761)
2367 315224452 : lu(k,1784) = lu(k,1784) - lu(k,734) * lu(k,1761)
2368 315224452 : lu(k,1793) = lu(k,1793) - lu(k,735) * lu(k,1761)
2369 315224452 : lu(k,1802) = lu(k,1802) - lu(k,736) * lu(k,1761)
2370 315224452 : lu(k,1808) = lu(k,1808) - lu(k,737) * lu(k,1761)
2371 315224452 : lu(k,1818) = lu(k,1818) - lu(k,738) * lu(k,1761)
2372 315224452 : lu(k,1829) = lu(k,1829) - lu(k,739) * lu(k,1761)
2373 315224452 : lu(k,2312) = lu(k,2312) - lu(k,730) * lu(k,2311)
2374 315224452 : lu(k,2314) = lu(k,2314) - lu(k,731) * lu(k,2311)
2375 315224452 : lu(k,2315) = lu(k,2315) - lu(k,732) * lu(k,2311)
2376 315224452 : lu(k,2323) = lu(k,2323) - lu(k,733) * lu(k,2311)
2377 315224452 : lu(k,2327) = lu(k,2327) - lu(k,734) * lu(k,2311)
2378 315224452 : lu(k,2334) = lu(k,2334) - lu(k,735) * lu(k,2311)
2379 315224452 : lu(k,2342) = lu(k,2342) - lu(k,736) * lu(k,2311)
2380 315224452 : lu(k,2348) = lu(k,2348) - lu(k,737) * lu(k,2311)
2381 315224452 : lu(k,2357) = lu(k,2357) - lu(k,738) * lu(k,2311)
2382 315224452 : lu(k,2368) = lu(k,2368) - lu(k,739) * lu(k,2311)
2383 315224452 : lu(k,740) = 1._r8 / lu(k,740)
2384 315224452 : lu(k,741) = lu(k,741) * lu(k,740)
2385 315224452 : lu(k,742) = lu(k,742) * lu(k,740)
2386 315224452 : lu(k,743) = lu(k,743) * lu(k,740)
2387 315224452 : lu(k,744) = lu(k,744) * lu(k,740)
2388 315224452 : lu(k,745) = lu(k,745) * lu(k,740)
2389 315224452 : lu(k,754) = lu(k,754) - lu(k,741) * lu(k,750)
2390 315224452 : lu(k,755) = lu(k,755) - lu(k,742) * lu(k,750)
2391 315224452 : lu(k,758) = lu(k,758) - lu(k,743) * lu(k,750)
2392 315224452 : lu(k,759) = lu(k,759) - lu(k,744) * lu(k,750)
2393 315224452 : lu(k,760) = lu(k,760) - lu(k,745) * lu(k,750)
2394 315224452 : lu(k,770) = lu(k,770) - lu(k,741) * lu(k,766)
2395 315224452 : lu(k,771) = lu(k,771) - lu(k,742) * lu(k,766)
2396 315224452 : lu(k,775) = lu(k,775) - lu(k,743) * lu(k,766)
2397 315224452 : lu(k,776) = lu(k,776) - lu(k,744) * lu(k,766)
2398 315224452 : lu(k,777) = lu(k,777) - lu(k,745) * lu(k,766)
2399 315224452 : lu(k,1784) = lu(k,1784) - lu(k,741) * lu(k,1762)
2400 315224452 : lu(k,1793) = lu(k,1793) - lu(k,742) * lu(k,1762)
2401 315224452 : lu(k,1819) = lu(k,1819) - lu(k,743) * lu(k,1762)
2402 315224452 : lu(k,1820) = lu(k,1820) - lu(k,744) * lu(k,1762)
2403 315224452 : lu(k,1829) = lu(k,1829) - lu(k,745) * lu(k,1762)
2404 315224452 : lu(k,1883) = lu(k,1883) - lu(k,741) * lu(k,1867)
2405 315224452 : lu(k,1891) = lu(k,1891) - lu(k,742) * lu(k,1867)
2406 315224452 : lu(k,1914) = lu(k,1914) - lu(k,743) * lu(k,1867)
2407 315224452 : lu(k,1915) = lu(k,1915) - lu(k,744) * lu(k,1867)
2408 315224452 : lu(k,1924) = lu(k,1924) - lu(k,745) * lu(k,1867)
2409 315224452 : lu(k,1944) = - lu(k,741) * lu(k,1937)
2410 315224452 : lu(k,1945) = - lu(k,742) * lu(k,1937)
2411 315224452 : lu(k,1959) = lu(k,1959) - lu(k,743) * lu(k,1937)
2412 315224452 : lu(k,1960) = lu(k,1960) - lu(k,744) * lu(k,1937)
2413 315224452 : lu(k,1969) = lu(k,1969) - lu(k,745) * lu(k,1937)
2414 315224452 : lu(k,2327) = lu(k,2327) - lu(k,741) * lu(k,2312)
2415 315224452 : lu(k,2334) = lu(k,2334) - lu(k,742) * lu(k,2312)
2416 315224452 : lu(k,2358) = lu(k,2358) - lu(k,743) * lu(k,2312)
2417 315224452 : lu(k,2359) = lu(k,2359) - lu(k,744) * lu(k,2312)
2418 315224452 : lu(k,2368) = lu(k,2368) - lu(k,745) * lu(k,2312)
2419 315224452 : lu(k,751) = 1._r8 / lu(k,751)
2420 315224452 : lu(k,752) = lu(k,752) * lu(k,751)
2421 315224452 : lu(k,753) = lu(k,753) * lu(k,751)
2422 315224452 : lu(k,754) = lu(k,754) * lu(k,751)
2423 315224452 : lu(k,755) = lu(k,755) * lu(k,751)
2424 315224452 : lu(k,756) = lu(k,756) * lu(k,751)
2425 315224452 : lu(k,757) = lu(k,757) * lu(k,751)
2426 315224452 : lu(k,758) = lu(k,758) * lu(k,751)
2427 315224452 : lu(k,759) = lu(k,759) * lu(k,751)
2428 315224452 : lu(k,760) = lu(k,760) * lu(k,751)
2429 315224452 : lu(k,1765) = lu(k,1765) - lu(k,752) * lu(k,1763)
2430 315224452 : lu(k,1774) = lu(k,1774) - lu(k,753) * lu(k,1763)
2431 315224452 : lu(k,1784) = lu(k,1784) - lu(k,754) * lu(k,1763)
2432 315224452 : lu(k,1793) = lu(k,1793) - lu(k,755) * lu(k,1763)
2433 315224452 : lu(k,1802) = lu(k,1802) - lu(k,756) * lu(k,1763)
2434 315224452 : lu(k,1818) = lu(k,1818) - lu(k,757) * lu(k,1763)
2435 315224452 : lu(k,1819) = lu(k,1819) - lu(k,758) * lu(k,1763)
2436 315224452 : lu(k,1820) = lu(k,1820) - lu(k,759) * lu(k,1763)
2437 315224452 : lu(k,1829) = lu(k,1829) - lu(k,760) * lu(k,1763)
2438 315224452 : lu(k,1870) = lu(k,1870) - lu(k,752) * lu(k,1868)
2439 315224452 : lu(k,1878) = lu(k,1878) - lu(k,753) * lu(k,1868)
2440 315224452 : lu(k,1883) = lu(k,1883) - lu(k,754) * lu(k,1868)
2441 315224452 : lu(k,1891) = lu(k,1891) - lu(k,755) * lu(k,1868)
2442 315224452 : lu(k,1900) = lu(k,1900) - lu(k,756) * lu(k,1868)
2443 315224452 : lu(k,1913) = lu(k,1913) - lu(k,757) * lu(k,1868)
2444 315224452 : lu(k,1914) = lu(k,1914) - lu(k,758) * lu(k,1868)
2445 315224452 : lu(k,1915) = lu(k,1915) - lu(k,759) * lu(k,1868)
2446 315224452 : lu(k,1924) = lu(k,1924) - lu(k,760) * lu(k,1868)
2447 315224452 : lu(k,2315) = lu(k,2315) - lu(k,752) * lu(k,2313)
2448 315224452 : lu(k,2323) = lu(k,2323) - lu(k,753) * lu(k,2313)
2449 315224452 : lu(k,2327) = lu(k,2327) - lu(k,754) * lu(k,2313)
2450 315224452 : lu(k,2334) = lu(k,2334) - lu(k,755) * lu(k,2313)
2451 315224452 : lu(k,2342) = lu(k,2342) - lu(k,756) * lu(k,2313)
2452 315224452 : lu(k,2357) = lu(k,2357) - lu(k,757) * lu(k,2313)
2453 315224452 : lu(k,2358) = lu(k,2358) - lu(k,758) * lu(k,2313)
2454 315224452 : lu(k,2359) = lu(k,2359) - lu(k,759) * lu(k,2313)
2455 315224452 : lu(k,2368) = lu(k,2368) - lu(k,760) * lu(k,2313)
2456 315224452 : lu(k,767) = 1._r8 / lu(k,767)
2457 315224452 : lu(k,768) = lu(k,768) * lu(k,767)
2458 315224452 : lu(k,769) = lu(k,769) * lu(k,767)
2459 315224452 : lu(k,770) = lu(k,770) * lu(k,767)
2460 315224452 : lu(k,771) = lu(k,771) * lu(k,767)
2461 315224452 : lu(k,772) = lu(k,772) * lu(k,767)
2462 315224452 : lu(k,773) = lu(k,773) * lu(k,767)
2463 315224452 : lu(k,774) = lu(k,774) * lu(k,767)
2464 315224452 : lu(k,775) = lu(k,775) * lu(k,767)
2465 315224452 : lu(k,776) = lu(k,776) * lu(k,767)
2466 315224452 : lu(k,777) = lu(k,777) * lu(k,767)
2467 315224452 : lu(k,1765) = lu(k,1765) - lu(k,768) * lu(k,1764)
2468 315224452 : lu(k,1774) = lu(k,1774) - lu(k,769) * lu(k,1764)
2469 315224452 : lu(k,1784) = lu(k,1784) - lu(k,770) * lu(k,1764)
2470 315224452 : lu(k,1793) = lu(k,1793) - lu(k,771) * lu(k,1764)
2471 315224452 : lu(k,1802) = lu(k,1802) - lu(k,772) * lu(k,1764)
2472 315224452 : lu(k,1808) = lu(k,1808) - lu(k,773) * lu(k,1764)
2473 315224452 : lu(k,1818) = lu(k,1818) - lu(k,774) * lu(k,1764)
2474 315224452 : lu(k,1819) = lu(k,1819) - lu(k,775) * lu(k,1764)
2475 315224452 : lu(k,1820) = lu(k,1820) - lu(k,776) * lu(k,1764)
2476 315224452 : lu(k,1829) = lu(k,1829) - lu(k,777) * lu(k,1764)
2477 315224452 : lu(k,1870) = lu(k,1870) - lu(k,768) * lu(k,1869)
2478 315224452 : lu(k,1878) = lu(k,1878) - lu(k,769) * lu(k,1869)
2479 315224452 : lu(k,1883) = lu(k,1883) - lu(k,770) * lu(k,1869)
2480 315224452 : lu(k,1891) = lu(k,1891) - lu(k,771) * lu(k,1869)
2481 315224452 : lu(k,1900) = lu(k,1900) - lu(k,772) * lu(k,1869)
2482 315224452 : lu(k,1906) = lu(k,1906) - lu(k,773) * lu(k,1869)
2483 315224452 : lu(k,1913) = lu(k,1913) - lu(k,774) * lu(k,1869)
2484 315224452 : lu(k,1914) = lu(k,1914) - lu(k,775) * lu(k,1869)
2485 315224452 : lu(k,1915) = lu(k,1915) - lu(k,776) * lu(k,1869)
2486 315224452 : lu(k,1924) = lu(k,1924) - lu(k,777) * lu(k,1869)
2487 315224452 : lu(k,2315) = lu(k,2315) - lu(k,768) * lu(k,2314)
2488 315224452 : lu(k,2323) = lu(k,2323) - lu(k,769) * lu(k,2314)
2489 315224452 : lu(k,2327) = lu(k,2327) - lu(k,770) * lu(k,2314)
2490 315224452 : lu(k,2334) = lu(k,2334) - lu(k,771) * lu(k,2314)
2491 315224452 : lu(k,2342) = lu(k,2342) - lu(k,772) * lu(k,2314)
2492 315224452 : lu(k,2348) = lu(k,2348) - lu(k,773) * lu(k,2314)
2493 315224452 : lu(k,2357) = lu(k,2357) - lu(k,774) * lu(k,2314)
2494 315224452 : lu(k,2358) = lu(k,2358) - lu(k,775) * lu(k,2314)
2495 315224452 : lu(k,2359) = lu(k,2359) - lu(k,776) * lu(k,2314)
2496 315224452 : lu(k,2368) = lu(k,2368) - lu(k,777) * lu(k,2314)
2497 315224452 : lu(k,778) = 1._r8 / lu(k,778)
2498 315224452 : lu(k,779) = lu(k,779) * lu(k,778)
2499 315224452 : lu(k,780) = lu(k,780) * lu(k,778)
2500 315224452 : lu(k,781) = lu(k,781) * lu(k,778)
2501 315224452 : lu(k,782) = lu(k,782) * lu(k,778)
2502 315224452 : lu(k,783) = lu(k,783) * lu(k,778)
2503 315224452 : lu(k,784) = lu(k,784) * lu(k,778)
2504 315224452 : lu(k,785) = lu(k,785) * lu(k,778)
2505 315224452 : lu(k,1793) = lu(k,1793) - lu(k,779) * lu(k,1765)
2506 315224452 : lu(k,1802) = lu(k,1802) - lu(k,780) * lu(k,1765)
2507 315224452 : lu(k,1818) = lu(k,1818) - lu(k,781) * lu(k,1765)
2508 315224452 : lu(k,1819) = lu(k,1819) - lu(k,782) * lu(k,1765)
2509 315224452 : lu(k,1820) = lu(k,1820) - lu(k,783) * lu(k,1765)
2510 315224452 : lu(k,1829) = lu(k,1829) - lu(k,784) * lu(k,1765)
2511 315224452 : lu(k,1830) = lu(k,1830) - lu(k,785) * lu(k,1765)
2512 315224452 : lu(k,1891) = lu(k,1891) - lu(k,779) * lu(k,1870)
2513 315224452 : lu(k,1900) = lu(k,1900) - lu(k,780) * lu(k,1870)
2514 315224452 : lu(k,1913) = lu(k,1913) - lu(k,781) * lu(k,1870)
2515 315224452 : lu(k,1914) = lu(k,1914) - lu(k,782) * lu(k,1870)
2516 315224452 : lu(k,1915) = lu(k,1915) - lu(k,783) * lu(k,1870)
2517 315224452 : lu(k,1924) = lu(k,1924) - lu(k,784) * lu(k,1870)
2518 315224452 : lu(k,1925) = lu(k,1925) - lu(k,785) * lu(k,1870)
2519 315224452 : lu(k,1945) = lu(k,1945) - lu(k,779) * lu(k,1938)
2520 315224452 : lu(k,1947) = - lu(k,780) * lu(k,1938)
2521 315224452 : lu(k,1958) = lu(k,1958) - lu(k,781) * lu(k,1938)
2522 315224452 : lu(k,1959) = lu(k,1959) - lu(k,782) * lu(k,1938)
2523 315224452 : lu(k,1960) = lu(k,1960) - lu(k,783) * lu(k,1938)
2524 315224452 : lu(k,1969) = lu(k,1969) - lu(k,784) * lu(k,1938)
2525 315224452 : lu(k,1970) = lu(k,1970) - lu(k,785) * lu(k,1938)
2526 315224452 : lu(k,2334) = lu(k,2334) - lu(k,779) * lu(k,2315)
2527 315224452 : lu(k,2342) = lu(k,2342) - lu(k,780) * lu(k,2315)
2528 315224452 : lu(k,2357) = lu(k,2357) - lu(k,781) * lu(k,2315)
2529 315224452 : lu(k,2358) = lu(k,2358) - lu(k,782) * lu(k,2315)
2530 315224452 : lu(k,2359) = lu(k,2359) - lu(k,783) * lu(k,2315)
2531 315224452 : lu(k,2368) = lu(k,2368) - lu(k,784) * lu(k,2315)
2532 315224452 : lu(k,2369) = lu(k,2369) - lu(k,785) * lu(k,2315)
2533 315224452 : lu(k,787) = 1._r8 / lu(k,787)
2534 315224452 : lu(k,788) = lu(k,788) * lu(k,787)
2535 315224452 : lu(k,789) = lu(k,789) * lu(k,787)
2536 315224452 : lu(k,790) = lu(k,790) * lu(k,787)
2537 315224452 : lu(k,791) = lu(k,791) * lu(k,787)
2538 315224452 : lu(k,792) = lu(k,792) * lu(k,787)
2539 315224452 : lu(k,793) = lu(k,793) * lu(k,787)
2540 315224452 : lu(k,794) = lu(k,794) * lu(k,787)
2541 315224452 : lu(k,1495) = lu(k,1495) - lu(k,788) * lu(k,1492)
2542 315224452 : lu(k,1496) = lu(k,1496) - lu(k,789) * lu(k,1492)
2543 315224452 : lu(k,1497) = - lu(k,790) * lu(k,1492)
2544 315224452 : lu(k,1500) = lu(k,1500) - lu(k,791) * lu(k,1492)
2545 315224452 : lu(k,1504) = lu(k,1504) - lu(k,792) * lu(k,1492)
2546 315224452 : lu(k,1506) = lu(k,1506) - lu(k,793) * lu(k,1492)
2547 315224452 : lu(k,1507) = lu(k,1507) - lu(k,794) * lu(k,1492)
2548 315224452 : lu(k,1562) = - lu(k,788) * lu(k,1559)
2549 315224452 : lu(k,1563) = lu(k,1563) - lu(k,789) * lu(k,1559)
2550 315224452 : lu(k,1565) = lu(k,1565) - lu(k,790) * lu(k,1559)
2551 315224452 : lu(k,1568) = lu(k,1568) - lu(k,791) * lu(k,1559)
2552 315224452 : lu(k,1574) = lu(k,1574) - lu(k,792) * lu(k,1559)
2553 315224452 : lu(k,1576) = lu(k,1576) - lu(k,793) * lu(k,1559)
2554 315224452 : lu(k,1579) = - lu(k,794) * lu(k,1559)
2555 315224452 : lu(k,1952) = - lu(k,788) * lu(k,1939)
2556 315224452 : lu(k,1953) = lu(k,1953) - lu(k,789) * lu(k,1939)
2557 315224452 : lu(k,1955) = lu(k,1955) - lu(k,790) * lu(k,1939)
2558 315224452 : lu(k,1958) = lu(k,1958) - lu(k,791) * lu(k,1939)
2559 315224452 : lu(k,1964) = lu(k,1964) - lu(k,792) * lu(k,1939)
2560 315224452 : lu(k,1966) = - lu(k,793) * lu(k,1939)
2561 315224452 : lu(k,1971) = lu(k,1971) - lu(k,794) * lu(k,1939)
2562 315224452 : lu(k,2087) = lu(k,2087) - lu(k,788) * lu(k,2073)
2563 315224452 : lu(k,2088) = lu(k,2088) - lu(k,789) * lu(k,2073)
2564 315224452 : lu(k,2090) = lu(k,2090) - lu(k,790) * lu(k,2073)
2565 315224452 : lu(k,2093) = lu(k,2093) - lu(k,791) * lu(k,2073)
2566 315224452 : lu(k,2099) = lu(k,2099) - lu(k,792) * lu(k,2073)
2567 315224452 : lu(k,2101) = lu(k,2101) - lu(k,793) * lu(k,2073)
2568 315224452 : lu(k,2106) = lu(k,2106) - lu(k,794) * lu(k,2073)
2569 315224452 : lu(k,2351) = lu(k,2351) - lu(k,788) * lu(k,2316)
2570 315224452 : lu(k,2352) = lu(k,2352) - lu(k,789) * lu(k,2316)
2571 315224452 : lu(k,2354) = lu(k,2354) - lu(k,790) * lu(k,2316)
2572 315224452 : lu(k,2357) = lu(k,2357) - lu(k,791) * lu(k,2316)
2573 315224452 : lu(k,2363) = lu(k,2363) - lu(k,792) * lu(k,2316)
2574 315224452 : lu(k,2365) = lu(k,2365) - lu(k,793) * lu(k,2316)
2575 325174377 : lu(k,2370) = lu(k,2370) - lu(k,794) * lu(k,2316)
2576 : end do
2577 9949925 : end subroutine lu_fac16
2578 9949925 : subroutine lu_fac17( avec_len, lu )
2579 : use chem_mods, only : nzcnt
2580 : use shr_kind_mod, only : r8 => shr_kind_r8
2581 : implicit none
2582 : !-----------------------------------------------------------------------
2583 : ! ... dummy args
2584 : !-----------------------------------------------------------------------
2585 : integer, intent(in) :: avec_len
2586 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2587 : !-----------------------------------------------------------------------
2588 : ! ... local variables
2589 : !-----------------------------------------------------------------------
2590 : integer :: k
2591 325174377 : do k = 1,avec_len
2592 315224452 : lu(k,797) = 1._r8 / lu(k,797)
2593 315224452 : lu(k,798) = lu(k,798) * lu(k,797)
2594 315224452 : lu(k,799) = lu(k,799) * lu(k,797)
2595 315224452 : lu(k,800) = lu(k,800) * lu(k,797)
2596 315224452 : lu(k,801) = lu(k,801) * lu(k,797)
2597 315224452 : lu(k,802) = lu(k,802) * lu(k,797)
2598 315224452 : lu(k,803) = lu(k,803) * lu(k,797)
2599 315224452 : lu(k,804) = lu(k,804) * lu(k,797)
2600 315224452 : lu(k,1794) = lu(k,1794) - lu(k,798) * lu(k,1766)
2601 315224452 : lu(k,1814) = lu(k,1814) - lu(k,799) * lu(k,1766)
2602 315224452 : lu(k,1818) = lu(k,1818) - lu(k,800) * lu(k,1766)
2603 315224452 : lu(k,1819) = lu(k,1819) - lu(k,801) * lu(k,1766)
2604 315224452 : lu(k,1820) = lu(k,1820) - lu(k,802) * lu(k,1766)
2605 315224452 : lu(k,1821) = lu(k,1821) - lu(k,803) * lu(k,1766)
2606 315224452 : lu(k,1829) = lu(k,1829) - lu(k,804) * lu(k,1766)
2607 315224452 : lu(k,1892) = lu(k,1892) - lu(k,798) * lu(k,1871)
2608 315224452 : lu(k,1909) = lu(k,1909) - lu(k,799) * lu(k,1871)
2609 315224452 : lu(k,1913) = lu(k,1913) - lu(k,800) * lu(k,1871)
2610 315224452 : lu(k,1914) = lu(k,1914) - lu(k,801) * lu(k,1871)
2611 315224452 : lu(k,1915) = lu(k,1915) - lu(k,802) * lu(k,1871)
2612 315224452 : lu(k,1916) = lu(k,1916) - lu(k,803) * lu(k,1871)
2613 315224452 : lu(k,1924) = lu(k,1924) - lu(k,804) * lu(k,1871)
2614 315224452 : lu(k,2148) = - lu(k,798) * lu(k,2138)
2615 315224452 : lu(k,2156) = lu(k,2156) - lu(k,799) * lu(k,2138)
2616 315224452 : lu(k,2160) = lu(k,2160) - lu(k,800) * lu(k,2138)
2617 315224452 : lu(k,2161) = - lu(k,801) * lu(k,2138)
2618 315224452 : lu(k,2162) = - lu(k,802) * lu(k,2138)
2619 315224452 : lu(k,2163) = lu(k,2163) - lu(k,803) * lu(k,2138)
2620 315224452 : lu(k,2171) = lu(k,2171) - lu(k,804) * lu(k,2138)
2621 315224452 : lu(k,2204) = - lu(k,798) * lu(k,2188)
2622 315224452 : lu(k,2220) = lu(k,2220) - lu(k,799) * lu(k,2188)
2623 315224452 : lu(k,2224) = lu(k,2224) - lu(k,800) * lu(k,2188)
2624 315224452 : lu(k,2225) = lu(k,2225) - lu(k,801) * lu(k,2188)
2625 315224452 : lu(k,2226) = lu(k,2226) - lu(k,802) * lu(k,2188)
2626 315224452 : lu(k,2227) = lu(k,2227) - lu(k,803) * lu(k,2188)
2627 315224452 : lu(k,2235) = lu(k,2235) - lu(k,804) * lu(k,2188)
2628 315224452 : lu(k,2335) = lu(k,2335) - lu(k,798) * lu(k,2317)
2629 315224452 : lu(k,2353) = lu(k,2353) - lu(k,799) * lu(k,2317)
2630 315224452 : lu(k,2357) = lu(k,2357) - lu(k,800) * lu(k,2317)
2631 315224452 : lu(k,2358) = lu(k,2358) - lu(k,801) * lu(k,2317)
2632 315224452 : lu(k,2359) = lu(k,2359) - lu(k,802) * lu(k,2317)
2633 315224452 : lu(k,2360) = lu(k,2360) - lu(k,803) * lu(k,2317)
2634 315224452 : lu(k,2368) = lu(k,2368) - lu(k,804) * lu(k,2317)
2635 315224452 : lu(k,805) = 1._r8 / lu(k,805)
2636 315224452 : lu(k,806) = lu(k,806) * lu(k,805)
2637 315224452 : lu(k,807) = lu(k,807) * lu(k,805)
2638 315224452 : lu(k,808) = lu(k,808) * lu(k,805)
2639 315224452 : lu(k,809) = lu(k,809) * lu(k,805)
2640 315224452 : lu(k,810) = lu(k,810) * lu(k,805)
2641 315224452 : lu(k,811) = lu(k,811) * lu(k,805)
2642 315224452 : lu(k,812) = lu(k,812) * lu(k,805)
2643 315224452 : lu(k,863) = lu(k,863) - lu(k,806) * lu(k,862)
2644 315224452 : lu(k,864) = lu(k,864) - lu(k,807) * lu(k,862)
2645 315224452 : lu(k,866) = lu(k,866) - lu(k,808) * lu(k,862)
2646 315224452 : lu(k,867) = - lu(k,809) * lu(k,862)
2647 315224452 : lu(k,868) = - lu(k,810) * lu(k,862)
2648 315224452 : lu(k,869) = lu(k,869) - lu(k,811) * lu(k,862)
2649 315224452 : lu(k,872) = lu(k,872) - lu(k,812) * lu(k,862)
2650 315224452 : lu(k,996) = lu(k,996) - lu(k,806) * lu(k,995)
2651 315224452 : lu(k,997) = lu(k,997) - lu(k,807) * lu(k,995)
2652 315224452 : lu(k,999) = lu(k,999) - lu(k,808) * lu(k,995)
2653 315224452 : lu(k,1000) = - lu(k,809) * lu(k,995)
2654 315224452 : lu(k,1001) = - lu(k,810) * lu(k,995)
2655 315224452 : lu(k,1002) = lu(k,1002) - lu(k,811) * lu(k,995)
2656 315224452 : lu(k,1007) = lu(k,1007) - lu(k,812) * lu(k,995)
2657 315224452 : lu(k,1445) = - lu(k,806) * lu(k,1444)
2658 315224452 : lu(k,1446) = lu(k,1446) - lu(k,807) * lu(k,1444)
2659 315224452 : lu(k,1448) = - lu(k,808) * lu(k,1444)
2660 315224452 : lu(k,1449) = lu(k,1449) - lu(k,809) * lu(k,1444)
2661 315224452 : lu(k,1450) = lu(k,1450) - lu(k,810) * lu(k,1444)
2662 315224452 : lu(k,1451) = lu(k,1451) - lu(k,811) * lu(k,1444)
2663 315224452 : lu(k,1456) = lu(k,1456) - lu(k,812) * lu(k,1444)
2664 315224452 : lu(k,1532) = lu(k,1532) - lu(k,806) * lu(k,1531)
2665 315224452 : lu(k,1533) = lu(k,1533) - lu(k,807) * lu(k,1531)
2666 315224452 : lu(k,1536) = lu(k,1536) - lu(k,808) * lu(k,1531)
2667 315224452 : lu(k,1537) = - lu(k,809) * lu(k,1531)
2668 315224452 : lu(k,1539) = - lu(k,810) * lu(k,1531)
2669 315224452 : lu(k,1542) = lu(k,1542) - lu(k,811) * lu(k,1531)
2670 315224452 : lu(k,1550) = lu(k,1550) - lu(k,812) * lu(k,1531)
2671 315224452 : lu(k,2077) = lu(k,2077) - lu(k,806) * lu(k,2074)
2672 315224452 : lu(k,2078) = lu(k,2078) - lu(k,807) * lu(k,2074)
2673 315224452 : lu(k,2082) = lu(k,2082) - lu(k,808) * lu(k,2074)
2674 315224452 : lu(k,2083) = lu(k,2083) - lu(k,809) * lu(k,2074)
2675 315224452 : lu(k,2084) = - lu(k,810) * lu(k,2074)
2676 315224452 : lu(k,2089) = lu(k,2089) - lu(k,811) * lu(k,2074)
2677 315224452 : lu(k,2099) = lu(k,2099) - lu(k,812) * lu(k,2074)
2678 315224452 : lu(k,814) = 1._r8 / lu(k,814)
2679 315224452 : lu(k,815) = lu(k,815) * lu(k,814)
2680 315224452 : lu(k,816) = lu(k,816) * lu(k,814)
2681 315224452 : lu(k,817) = lu(k,817) * lu(k,814)
2682 315224452 : lu(k,818) = lu(k,818) * lu(k,814)
2683 315224452 : lu(k,819) = lu(k,819) * lu(k,814)
2684 315224452 : lu(k,820) = lu(k,820) * lu(k,814)
2685 315224452 : lu(k,821) = lu(k,821) * lu(k,814)
2686 315224452 : lu(k,822) = lu(k,822) * lu(k,814)
2687 315224452 : lu(k,823) = lu(k,823) * lu(k,814)
2688 315224452 : lu(k,1134) = lu(k,1134) - lu(k,815) * lu(k,1130)
2689 315224452 : lu(k,1136) = - lu(k,816) * lu(k,1130)
2690 315224452 : lu(k,1140) = - lu(k,817) * lu(k,1130)
2691 315224452 : lu(k,1142) = lu(k,1142) - lu(k,818) * lu(k,1130)
2692 315224452 : lu(k,1143) = - lu(k,819) * lu(k,1130)
2693 315224452 : lu(k,1144) = - lu(k,820) * lu(k,1130)
2694 315224452 : lu(k,1145) = lu(k,1145) - lu(k,821) * lu(k,1130)
2695 315224452 : lu(k,1148) = lu(k,1148) - lu(k,822) * lu(k,1130)
2696 315224452 : lu(k,1150) = lu(k,1150) - lu(k,823) * lu(k,1130)
2697 315224452 : lu(k,1792) = lu(k,1792) - lu(k,815) * lu(k,1767)
2698 315224452 : lu(k,1797) = lu(k,1797) - lu(k,816) * lu(k,1767)
2699 315224452 : lu(k,1814) = lu(k,1814) - lu(k,817) * lu(k,1767)
2700 315224452 : lu(k,1818) = lu(k,1818) - lu(k,818) * lu(k,1767)
2701 315224452 : lu(k,1819) = lu(k,1819) - lu(k,819) * lu(k,1767)
2702 315224452 : lu(k,1820) = lu(k,1820) - lu(k,820) * lu(k,1767)
2703 315224452 : lu(k,1821) = lu(k,1821) - lu(k,821) * lu(k,1767)
2704 315224452 : lu(k,1829) = lu(k,1829) - lu(k,822) * lu(k,1767)
2705 315224452 : lu(k,1831) = lu(k,1831) - lu(k,823) * lu(k,1767)
2706 315224452 : lu(k,1890) = lu(k,1890) - lu(k,815) * lu(k,1872)
2707 315224452 : lu(k,1895) = lu(k,1895) - lu(k,816) * lu(k,1872)
2708 315224452 : lu(k,1909) = lu(k,1909) - lu(k,817) * lu(k,1872)
2709 315224452 : lu(k,1913) = lu(k,1913) - lu(k,818) * lu(k,1872)
2710 315224452 : lu(k,1914) = lu(k,1914) - lu(k,819) * lu(k,1872)
2711 315224452 : lu(k,1915) = lu(k,1915) - lu(k,820) * lu(k,1872)
2712 315224452 : lu(k,1916) = lu(k,1916) - lu(k,821) * lu(k,1872)
2713 315224452 : lu(k,1924) = lu(k,1924) - lu(k,822) * lu(k,1872)
2714 315224452 : lu(k,1926) = - lu(k,823) * lu(k,1872)
2715 315224452 : lu(k,2333) = lu(k,2333) - lu(k,815) * lu(k,2318)
2716 315224452 : lu(k,2337) = lu(k,2337) - lu(k,816) * lu(k,2318)
2717 315224452 : lu(k,2353) = lu(k,2353) - lu(k,817) * lu(k,2318)
2718 315224452 : lu(k,2357) = lu(k,2357) - lu(k,818) * lu(k,2318)
2719 315224452 : lu(k,2358) = lu(k,2358) - lu(k,819) * lu(k,2318)
2720 315224452 : lu(k,2359) = lu(k,2359) - lu(k,820) * lu(k,2318)
2721 315224452 : lu(k,2360) = lu(k,2360) - lu(k,821) * lu(k,2318)
2722 315224452 : lu(k,2368) = lu(k,2368) - lu(k,822) * lu(k,2318)
2723 315224452 : lu(k,2370) = lu(k,2370) - lu(k,823) * lu(k,2318)
2724 315224452 : lu(k,824) = 1._r8 / lu(k,824)
2725 315224452 : lu(k,825) = lu(k,825) * lu(k,824)
2726 315224452 : lu(k,826) = lu(k,826) * lu(k,824)
2727 315224452 : lu(k,827) = lu(k,827) * lu(k,824)
2728 315224452 : lu(k,904) = lu(k,904) - lu(k,825) * lu(k,900)
2729 315224452 : lu(k,907) = lu(k,907) - lu(k,826) * lu(k,900)
2730 315224452 : lu(k,908) = lu(k,908) - lu(k,827) * lu(k,900)
2731 315224452 : lu(k,1065) = lu(k,1065) - lu(k,825) * lu(k,1061)
2732 315224452 : lu(k,1068) = lu(k,1068) - lu(k,826) * lu(k,1061)
2733 315224452 : lu(k,1070) = lu(k,1070) - lu(k,827) * lu(k,1061)
2734 315224452 : lu(k,1111) = lu(k,1111) - lu(k,825) * lu(k,1104)
2735 315224452 : lu(k,1114) = lu(k,1114) - lu(k,826) * lu(k,1104)
2736 315224452 : lu(k,1116) = lu(k,1116) - lu(k,827) * lu(k,1104)
2737 315224452 : lu(k,1182) = lu(k,1182) - lu(k,825) * lu(k,1173)
2738 315224452 : lu(k,1185) = lu(k,1185) - lu(k,826) * lu(k,1173)
2739 315224452 : lu(k,1187) = lu(k,1187) - lu(k,827) * lu(k,1173)
2740 315224452 : lu(k,1220) = lu(k,1220) - lu(k,825) * lu(k,1215)
2741 315224452 : lu(k,1223) = lu(k,1223) - lu(k,826) * lu(k,1215)
2742 315224452 : lu(k,1224) = lu(k,1224) - lu(k,827) * lu(k,1215)
2743 315224452 : lu(k,1238) = lu(k,1238) - lu(k,825) * lu(k,1228)
2744 315224452 : lu(k,1241) = lu(k,1241) - lu(k,826) * lu(k,1228)
2745 315224452 : lu(k,1242) = lu(k,1242) - lu(k,827) * lu(k,1228)
2746 315224452 : lu(k,1260) = lu(k,1260) - lu(k,825) * lu(k,1247)
2747 315224452 : lu(k,1263) = lu(k,1263) - lu(k,826) * lu(k,1247)
2748 315224452 : lu(k,1265) = lu(k,1265) - lu(k,827) * lu(k,1247)
2749 315224452 : lu(k,1306) = lu(k,1306) - lu(k,825) * lu(k,1291)
2750 315224452 : lu(k,1309) = lu(k,1309) - lu(k,826) * lu(k,1291)
2751 315224452 : lu(k,1312) = lu(k,1312) - lu(k,827) * lu(k,1291)
2752 315224452 : lu(k,1339) = lu(k,1339) - lu(k,825) * lu(k,1320)
2753 315224452 : lu(k,1342) = lu(k,1342) - lu(k,826) * lu(k,1320)
2754 315224452 : lu(k,1345) = lu(k,1345) - lu(k,827) * lu(k,1320)
2755 315224452 : lu(k,1361) = lu(k,1361) - lu(k,825) * lu(k,1349)
2756 315224452 : lu(k,1364) = lu(k,1364) - lu(k,826) * lu(k,1349)
2757 315224452 : lu(k,1366) = lu(k,1366) - lu(k,827) * lu(k,1349)
2758 315224452 : lu(k,1818) = lu(k,1818) - lu(k,825) * lu(k,1768)
2759 315224452 : lu(k,1821) = lu(k,1821) - lu(k,826) * lu(k,1768)
2760 315224452 : lu(k,1829) = lu(k,1829) - lu(k,827) * lu(k,1768)
2761 315224452 : lu(k,2409) = lu(k,2409) - lu(k,825) * lu(k,2377)
2762 315224452 : lu(k,2412) = lu(k,2412) - lu(k,826) * lu(k,2377)
2763 315224452 : lu(k,2420) = lu(k,2420) - lu(k,827) * lu(k,2377)
2764 315224452 : lu(k,828) = 1._r8 / lu(k,828)
2765 315224452 : lu(k,829) = lu(k,829) * lu(k,828)
2766 315224452 : lu(k,830) = lu(k,830) * lu(k,828)
2767 315224452 : lu(k,831) = lu(k,831) * lu(k,828)
2768 315224452 : lu(k,832) = lu(k,832) * lu(k,828)
2769 315224452 : lu(k,833) = lu(k,833) * lu(k,828)
2770 315224452 : lu(k,834) = lu(k,834) * lu(k,828)
2771 315224452 : lu(k,835) = lu(k,835) * lu(k,828)
2772 315224452 : lu(k,1511) = lu(k,1511) - lu(k,829) * lu(k,1508)
2773 315224452 : lu(k,1513) = lu(k,1513) - lu(k,830) * lu(k,1508)
2774 315224452 : lu(k,1514) = - lu(k,831) * lu(k,1508)
2775 315224452 : lu(k,1518) = - lu(k,832) * lu(k,1508)
2776 315224452 : lu(k,1519) = - lu(k,833) * lu(k,1508)
2777 315224452 : lu(k,1520) = - lu(k,834) * lu(k,1508)
2778 315224452 : lu(k,1523) = - lu(k,835) * lu(k,1508)
2779 315224452 : lu(k,1813) = lu(k,1813) - lu(k,829) * lu(k,1769)
2780 315224452 : lu(k,1815) = lu(k,1815) - lu(k,830) * lu(k,1769)
2781 315224452 : lu(k,1818) = lu(k,1818) - lu(k,831) * lu(k,1769)
2782 315224452 : lu(k,1822) = lu(k,1822) - lu(k,832) * lu(k,1769)
2783 315224452 : lu(k,1824) = lu(k,1824) - lu(k,833) * lu(k,1769)
2784 315224452 : lu(k,1825) = lu(k,1825) - lu(k,834) * lu(k,1769)
2785 315224452 : lu(k,1831) = lu(k,1831) - lu(k,835) * lu(k,1769)
2786 315224452 : lu(k,1979) = lu(k,1979) - lu(k,829) * lu(k,1973)
2787 315224452 : lu(k,1981) = - lu(k,830) * lu(k,1973)
2788 315224452 : lu(k,1984) = lu(k,1984) - lu(k,831) * lu(k,1973)
2789 315224452 : lu(k,1988) = - lu(k,832) * lu(k,1973)
2790 315224452 : lu(k,1990) = lu(k,1990) - lu(k,833) * lu(k,1973)
2791 315224452 : lu(k,1991) = lu(k,1991) - lu(k,834) * lu(k,1973)
2792 315224452 : lu(k,1997) = lu(k,1997) - lu(k,835) * lu(k,1973)
2793 315224452 : lu(k,2022) = lu(k,2022) - lu(k,829) * lu(k,2018)
2794 315224452 : lu(k,2024) = lu(k,2024) - lu(k,830) * lu(k,2018)
2795 315224452 : lu(k,2027) = lu(k,2027) - lu(k,831) * lu(k,2018)
2796 315224452 : lu(k,2031) = lu(k,2031) - lu(k,832) * lu(k,2018)
2797 315224452 : lu(k,2033) = lu(k,2033) - lu(k,833) * lu(k,2018)
2798 315224452 : lu(k,2034) = lu(k,2034) - lu(k,834) * lu(k,2018)
2799 315224452 : lu(k,2040) = lu(k,2040) - lu(k,835) * lu(k,2018)
2800 315224452 : lu(k,2088) = lu(k,2088) - lu(k,829) * lu(k,2075)
2801 315224452 : lu(k,2090) = lu(k,2090) - lu(k,830) * lu(k,2075)
2802 315224452 : lu(k,2093) = lu(k,2093) - lu(k,831) * lu(k,2075)
2803 315224452 : lu(k,2097) = lu(k,2097) - lu(k,832) * lu(k,2075)
2804 315224452 : lu(k,2099) = lu(k,2099) - lu(k,833) * lu(k,2075)
2805 315224452 : lu(k,2100) = lu(k,2100) - lu(k,834) * lu(k,2075)
2806 315224452 : lu(k,2106) = lu(k,2106) - lu(k,835) * lu(k,2075)
2807 315224452 : lu(k,2352) = lu(k,2352) - lu(k,829) * lu(k,2319)
2808 315224452 : lu(k,2354) = lu(k,2354) - lu(k,830) * lu(k,2319)
2809 315224452 : lu(k,2357) = lu(k,2357) - lu(k,831) * lu(k,2319)
2810 315224452 : lu(k,2361) = - lu(k,832) * lu(k,2319)
2811 315224452 : lu(k,2363) = lu(k,2363) - lu(k,833) * lu(k,2319)
2812 315224452 : lu(k,2364) = lu(k,2364) - lu(k,834) * lu(k,2319)
2813 325174377 : lu(k,2370) = lu(k,2370) - lu(k,835) * lu(k,2319)
2814 : end do
2815 9949925 : end subroutine lu_fac17
2816 9949925 : subroutine lu_fac18( avec_len, lu )
2817 : use chem_mods, only : nzcnt
2818 : use shr_kind_mod, only : r8 => shr_kind_r8
2819 : implicit none
2820 : !-----------------------------------------------------------------------
2821 : ! ... dummy args
2822 : !-----------------------------------------------------------------------
2823 : integer, intent(in) :: avec_len
2824 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2825 : !-----------------------------------------------------------------------
2826 : ! ... local variables
2827 : !-----------------------------------------------------------------------
2828 : integer :: k
2829 325174377 : do k = 1,avec_len
2830 315224452 : lu(k,837) = 1._r8 / lu(k,837)
2831 315224452 : lu(k,838) = lu(k,838) * lu(k,837)
2832 315224452 : lu(k,839) = lu(k,839) * lu(k,837)
2833 315224452 : lu(k,840) = lu(k,840) * lu(k,837)
2834 315224452 : lu(k,841) = lu(k,841) * lu(k,837)
2835 315224452 : lu(k,842) = lu(k,842) * lu(k,837)
2836 315224452 : lu(k,843) = lu(k,843) * lu(k,837)
2837 315224452 : lu(k,956) = lu(k,956) - lu(k,838) * lu(k,954)
2838 315224452 : lu(k,957) = lu(k,957) - lu(k,839) * lu(k,954)
2839 315224452 : lu(k,959) = lu(k,959) - lu(k,840) * lu(k,954)
2840 315224452 : lu(k,962) = lu(k,962) - lu(k,841) * lu(k,954)
2841 315224452 : lu(k,963) = lu(k,963) - lu(k,842) * lu(k,954)
2842 315224452 : lu(k,964) = - lu(k,843) * lu(k,954)
2843 315224452 : lu(k,1495) = lu(k,1495) - lu(k,838) * lu(k,1493)
2844 315224452 : lu(k,1498) = lu(k,1498) - lu(k,839) * lu(k,1493)
2845 315224452 : lu(k,1500) = lu(k,1500) - lu(k,840) * lu(k,1493)
2846 315224452 : lu(k,1504) = lu(k,1504) - lu(k,841) * lu(k,1493)
2847 315224452 : lu(k,1506) = lu(k,1506) - lu(k,842) * lu(k,1493)
2848 315224452 : lu(k,1507) = lu(k,1507) - lu(k,843) * lu(k,1493)
2849 315224452 : lu(k,1588) = lu(k,1588) - lu(k,838) * lu(k,1584)
2850 315224452 : lu(k,1592) = lu(k,1592) - lu(k,839) * lu(k,1584)
2851 315224452 : lu(k,1594) = lu(k,1594) - lu(k,840) * lu(k,1584)
2852 315224452 : lu(k,1600) = lu(k,1600) - lu(k,841) * lu(k,1584)
2853 315224452 : lu(k,1602) = lu(k,1602) - lu(k,842) * lu(k,1584)
2854 315224452 : lu(k,1606) = - lu(k,843) * lu(k,1584)
2855 315224452 : lu(k,1812) = lu(k,1812) - lu(k,838) * lu(k,1770)
2856 315224452 : lu(k,1816) = lu(k,1816) - lu(k,839) * lu(k,1770)
2857 315224452 : lu(k,1818) = lu(k,1818) - lu(k,840) * lu(k,1770)
2858 315224452 : lu(k,1824) = lu(k,1824) - lu(k,841) * lu(k,1770)
2859 315224452 : lu(k,1826) = lu(k,1826) - lu(k,842) * lu(k,1770)
2860 315224452 : lu(k,1831) = lu(k,1831) - lu(k,843) * lu(k,1770)
2861 315224452 : lu(k,2087) = lu(k,2087) - lu(k,838) * lu(k,2076)
2862 315224452 : lu(k,2091) = lu(k,2091) - lu(k,839) * lu(k,2076)
2863 315224452 : lu(k,2093) = lu(k,2093) - lu(k,840) * lu(k,2076)
2864 315224452 : lu(k,2099) = lu(k,2099) - lu(k,841) * lu(k,2076)
2865 315224452 : lu(k,2101) = lu(k,2101) - lu(k,842) * lu(k,2076)
2866 315224452 : lu(k,2106) = lu(k,2106) - lu(k,843) * lu(k,2076)
2867 315224452 : lu(k,2154) = lu(k,2154) - lu(k,838) * lu(k,2139)
2868 315224452 : lu(k,2158) = lu(k,2158) - lu(k,839) * lu(k,2139)
2869 315224452 : lu(k,2160) = lu(k,2160) - lu(k,840) * lu(k,2139)
2870 315224452 : lu(k,2166) = lu(k,2166) - lu(k,841) * lu(k,2139)
2871 315224452 : lu(k,2168) = lu(k,2168) - lu(k,842) * lu(k,2139)
2872 315224452 : lu(k,2173) = lu(k,2173) - lu(k,843) * lu(k,2139)
2873 315224452 : lu(k,2351) = lu(k,2351) - lu(k,838) * lu(k,2320)
2874 315224452 : lu(k,2355) = lu(k,2355) - lu(k,839) * lu(k,2320)
2875 315224452 : lu(k,2357) = lu(k,2357) - lu(k,840) * lu(k,2320)
2876 315224452 : lu(k,2363) = lu(k,2363) - lu(k,841) * lu(k,2320)
2877 315224452 : lu(k,2365) = lu(k,2365) - lu(k,842) * lu(k,2320)
2878 315224452 : lu(k,2370) = lu(k,2370) - lu(k,843) * lu(k,2320)
2879 315224452 : lu(k,845) = 1._r8 / lu(k,845)
2880 315224452 : lu(k,846) = lu(k,846) * lu(k,845)
2881 315224452 : lu(k,847) = lu(k,847) * lu(k,845)
2882 315224452 : lu(k,848) = lu(k,848) * lu(k,845)
2883 315224452 : lu(k,849) = lu(k,849) * lu(k,845)
2884 315224452 : lu(k,850) = lu(k,850) * lu(k,845)
2885 315224452 : lu(k,851) = lu(k,851) * lu(k,845)
2886 315224452 : lu(k,854) = lu(k,854) - lu(k,846) * lu(k,852)
2887 315224452 : lu(k,855) = lu(k,855) - lu(k,847) * lu(k,852)
2888 315224452 : lu(k,856) = lu(k,856) - lu(k,848) * lu(k,852)
2889 315224452 : lu(k,857) = lu(k,857) - lu(k,849) * lu(k,852)
2890 315224452 : lu(k,858) = lu(k,858) - lu(k,850) * lu(k,852)
2891 315224452 : lu(k,859) = lu(k,859) - lu(k,851) * lu(k,852)
2892 315224452 : lu(k,865) = lu(k,865) - lu(k,846) * lu(k,863)
2893 315224452 : lu(k,866) = lu(k,866) - lu(k,847) * lu(k,863)
2894 315224452 : lu(k,869) = lu(k,869) - lu(k,848) * lu(k,863)
2895 315224452 : lu(k,870) = lu(k,870) - lu(k,849) * lu(k,863)
2896 315224452 : lu(k,871) = lu(k,871) - lu(k,850) * lu(k,863)
2897 315224452 : lu(k,872) = lu(k,872) - lu(k,851) * lu(k,863)
2898 315224452 : lu(k,998) = lu(k,998) - lu(k,846) * lu(k,996)
2899 315224452 : lu(k,999) = lu(k,999) - lu(k,847) * lu(k,996)
2900 315224452 : lu(k,1002) = lu(k,1002) - lu(k,848) * lu(k,996)
2901 315224452 : lu(k,1004) = lu(k,1004) - lu(k,849) * lu(k,996)
2902 315224452 : lu(k,1006) = lu(k,1006) - lu(k,850) * lu(k,996)
2903 315224452 : lu(k,1007) = lu(k,1007) - lu(k,851) * lu(k,996)
2904 315224452 : lu(k,1447) = - lu(k,846) * lu(k,1445)
2905 315224452 : lu(k,1448) = lu(k,1448) - lu(k,847) * lu(k,1445)
2906 315224452 : lu(k,1451) = lu(k,1451) - lu(k,848) * lu(k,1445)
2907 315224452 : lu(k,1453) = - lu(k,849) * lu(k,1445)
2908 315224452 : lu(k,1455) = - lu(k,850) * lu(k,1445)
2909 315224452 : lu(k,1456) = lu(k,1456) - lu(k,851) * lu(k,1445)
2910 315224452 : lu(k,1534) = lu(k,1534) - lu(k,846) * lu(k,1532)
2911 315224452 : lu(k,1536) = lu(k,1536) - lu(k,847) * lu(k,1532)
2912 315224452 : lu(k,1542) = lu(k,1542) - lu(k,848) * lu(k,1532)
2913 315224452 : lu(k,1546) = lu(k,1546) - lu(k,849) * lu(k,1532)
2914 315224452 : lu(k,1549) = lu(k,1549) - lu(k,850) * lu(k,1532)
2915 315224452 : lu(k,1550) = lu(k,1550) - lu(k,851) * lu(k,1532)
2916 315224452 : lu(k,1875) = lu(k,1875) - lu(k,846) * lu(k,1873)
2917 315224452 : lu(k,1881) = lu(k,1881) - lu(k,847) * lu(k,1873)
2918 315224452 : lu(k,1909) = lu(k,1909) - lu(k,848) * lu(k,1873)
2919 315224452 : lu(k,1914) = lu(k,1914) - lu(k,849) * lu(k,1873)
2920 315224452 : lu(k,1917) = - lu(k,850) * lu(k,1873)
2921 315224452 : lu(k,1919) = lu(k,1919) - lu(k,851) * lu(k,1873)
2922 315224452 : lu(k,2079) = lu(k,2079) - lu(k,846) * lu(k,2077)
2923 315224452 : lu(k,2082) = lu(k,2082) - lu(k,847) * lu(k,2077)
2924 315224452 : lu(k,2089) = lu(k,2089) - lu(k,848) * lu(k,2077)
2925 315224452 : lu(k,2094) = lu(k,2094) - lu(k,849) * lu(k,2077)
2926 315224452 : lu(k,2097) = lu(k,2097) - lu(k,850) * lu(k,2077)
2927 315224452 : lu(k,2099) = lu(k,2099) - lu(k,851) * lu(k,2077)
2928 315224452 : lu(k,853) = 1._r8 / lu(k,853)
2929 315224452 : lu(k,854) = lu(k,854) * lu(k,853)
2930 315224452 : lu(k,855) = lu(k,855) * lu(k,853)
2931 315224452 : lu(k,856) = lu(k,856) * lu(k,853)
2932 315224452 : lu(k,857) = lu(k,857) * lu(k,853)
2933 315224452 : lu(k,858) = lu(k,858) * lu(k,853)
2934 315224452 : lu(k,859) = lu(k,859) * lu(k,853)
2935 315224452 : lu(k,865) = lu(k,865) - lu(k,854) * lu(k,864)
2936 315224452 : lu(k,866) = lu(k,866) - lu(k,855) * lu(k,864)
2937 315224452 : lu(k,869) = lu(k,869) - lu(k,856) * lu(k,864)
2938 315224452 : lu(k,870) = lu(k,870) - lu(k,857) * lu(k,864)
2939 315224452 : lu(k,871) = lu(k,871) - lu(k,858) * lu(k,864)
2940 315224452 : lu(k,872) = lu(k,872) - lu(k,859) * lu(k,864)
2941 315224452 : lu(k,998) = lu(k,998) - lu(k,854) * lu(k,997)
2942 315224452 : lu(k,999) = lu(k,999) - lu(k,855) * lu(k,997)
2943 315224452 : lu(k,1002) = lu(k,1002) - lu(k,856) * lu(k,997)
2944 315224452 : lu(k,1004) = lu(k,1004) - lu(k,857) * lu(k,997)
2945 315224452 : lu(k,1006) = lu(k,1006) - lu(k,858) * lu(k,997)
2946 315224452 : lu(k,1007) = lu(k,1007) - lu(k,859) * lu(k,997)
2947 315224452 : lu(k,1447) = lu(k,1447) - lu(k,854) * lu(k,1446)
2948 315224452 : lu(k,1448) = lu(k,1448) - lu(k,855) * lu(k,1446)
2949 315224452 : lu(k,1451) = lu(k,1451) - lu(k,856) * lu(k,1446)
2950 315224452 : lu(k,1453) = lu(k,1453) - lu(k,857) * lu(k,1446)
2951 315224452 : lu(k,1455) = lu(k,1455) - lu(k,858) * lu(k,1446)
2952 315224452 : lu(k,1456) = lu(k,1456) - lu(k,859) * lu(k,1446)
2953 315224452 : lu(k,1534) = lu(k,1534) - lu(k,854) * lu(k,1533)
2954 315224452 : lu(k,1536) = lu(k,1536) - lu(k,855) * lu(k,1533)
2955 315224452 : lu(k,1542) = lu(k,1542) - lu(k,856) * lu(k,1533)
2956 315224452 : lu(k,1546) = lu(k,1546) - lu(k,857) * lu(k,1533)
2957 315224452 : lu(k,1549) = lu(k,1549) - lu(k,858) * lu(k,1533)
2958 315224452 : lu(k,1550) = lu(k,1550) - lu(k,859) * lu(k,1533)
2959 315224452 : lu(k,1875) = lu(k,1875) - lu(k,854) * lu(k,1874)
2960 315224452 : lu(k,1881) = lu(k,1881) - lu(k,855) * lu(k,1874)
2961 315224452 : lu(k,1909) = lu(k,1909) - lu(k,856) * lu(k,1874)
2962 315224452 : lu(k,1914) = lu(k,1914) - lu(k,857) * lu(k,1874)
2963 315224452 : lu(k,1917) = lu(k,1917) - lu(k,858) * lu(k,1874)
2964 315224452 : lu(k,1919) = lu(k,1919) - lu(k,859) * lu(k,1874)
2965 315224452 : lu(k,2079) = lu(k,2079) - lu(k,854) * lu(k,2078)
2966 315224452 : lu(k,2082) = lu(k,2082) - lu(k,855) * lu(k,2078)
2967 315224452 : lu(k,2089) = lu(k,2089) - lu(k,856) * lu(k,2078)
2968 315224452 : lu(k,2094) = lu(k,2094) - lu(k,857) * lu(k,2078)
2969 315224452 : lu(k,2097) = lu(k,2097) - lu(k,858) * lu(k,2078)
2970 315224452 : lu(k,2099) = lu(k,2099) - lu(k,859) * lu(k,2078)
2971 315224452 : lu(k,865) = 1._r8 / lu(k,865)
2972 315224452 : lu(k,866) = lu(k,866) * lu(k,865)
2973 315224452 : lu(k,867) = lu(k,867) * lu(k,865)
2974 315224452 : lu(k,868) = lu(k,868) * lu(k,865)
2975 315224452 : lu(k,869) = lu(k,869) * lu(k,865)
2976 315224452 : lu(k,870) = lu(k,870) * lu(k,865)
2977 315224452 : lu(k,871) = lu(k,871) * lu(k,865)
2978 315224452 : lu(k,872) = lu(k,872) * lu(k,865)
2979 315224452 : lu(k,999) = lu(k,999) - lu(k,866) * lu(k,998)
2980 315224452 : lu(k,1000) = lu(k,1000) - lu(k,867) * lu(k,998)
2981 315224452 : lu(k,1001) = lu(k,1001) - lu(k,868) * lu(k,998)
2982 315224452 : lu(k,1002) = lu(k,1002) - lu(k,869) * lu(k,998)
2983 315224452 : lu(k,1004) = lu(k,1004) - lu(k,870) * lu(k,998)
2984 315224452 : lu(k,1006) = lu(k,1006) - lu(k,871) * lu(k,998)
2985 315224452 : lu(k,1007) = lu(k,1007) - lu(k,872) * lu(k,998)
2986 315224452 : lu(k,1448) = lu(k,1448) - lu(k,866) * lu(k,1447)
2987 315224452 : lu(k,1449) = lu(k,1449) - lu(k,867) * lu(k,1447)
2988 315224452 : lu(k,1450) = lu(k,1450) - lu(k,868) * lu(k,1447)
2989 315224452 : lu(k,1451) = lu(k,1451) - lu(k,869) * lu(k,1447)
2990 315224452 : lu(k,1453) = lu(k,1453) - lu(k,870) * lu(k,1447)
2991 315224452 : lu(k,1455) = lu(k,1455) - lu(k,871) * lu(k,1447)
2992 315224452 : lu(k,1456) = lu(k,1456) - lu(k,872) * lu(k,1447)
2993 315224452 : lu(k,1536) = lu(k,1536) - lu(k,866) * lu(k,1534)
2994 315224452 : lu(k,1537) = lu(k,1537) - lu(k,867) * lu(k,1534)
2995 315224452 : lu(k,1539) = lu(k,1539) - lu(k,868) * lu(k,1534)
2996 315224452 : lu(k,1542) = lu(k,1542) - lu(k,869) * lu(k,1534)
2997 315224452 : lu(k,1546) = lu(k,1546) - lu(k,870) * lu(k,1534)
2998 315224452 : lu(k,1549) = lu(k,1549) - lu(k,871) * lu(k,1534)
2999 315224452 : lu(k,1550) = lu(k,1550) - lu(k,872) * lu(k,1534)
3000 315224452 : lu(k,1881) = lu(k,1881) - lu(k,866) * lu(k,1875)
3001 315224452 : lu(k,1891) = lu(k,1891) - lu(k,867) * lu(k,1875)
3002 315224452 : lu(k,1907) = lu(k,1907) - lu(k,868) * lu(k,1875)
3003 315224452 : lu(k,1909) = lu(k,1909) - lu(k,869) * lu(k,1875)
3004 315224452 : lu(k,1914) = lu(k,1914) - lu(k,870) * lu(k,1875)
3005 315224452 : lu(k,1917) = lu(k,1917) - lu(k,871) * lu(k,1875)
3006 315224452 : lu(k,1919) = lu(k,1919) - lu(k,872) * lu(k,1875)
3007 315224452 : lu(k,2082) = lu(k,2082) - lu(k,866) * lu(k,2079)
3008 315224452 : lu(k,2083) = lu(k,2083) - lu(k,867) * lu(k,2079)
3009 315224452 : lu(k,2084) = lu(k,2084) - lu(k,868) * lu(k,2079)
3010 315224452 : lu(k,2089) = lu(k,2089) - lu(k,869) * lu(k,2079)
3011 315224452 : lu(k,2094) = lu(k,2094) - lu(k,870) * lu(k,2079)
3012 315224452 : lu(k,2097) = lu(k,2097) - lu(k,871) * lu(k,2079)
3013 315224452 : lu(k,2099) = lu(k,2099) - lu(k,872) * lu(k,2079)
3014 315224452 : lu(k,876) = 1._r8 / lu(k,876)
3015 315224452 : lu(k,877) = lu(k,877) * lu(k,876)
3016 315224452 : lu(k,878) = lu(k,878) * lu(k,876)
3017 315224452 : lu(k,879) = lu(k,879) * lu(k,876)
3018 315224452 : lu(k,880) = lu(k,880) * lu(k,876)
3019 315224452 : lu(k,881) = lu(k,881) * lu(k,876)
3020 315224452 : lu(k,882) = lu(k,882) * lu(k,876)
3021 315224452 : lu(k,883) = lu(k,883) * lu(k,876)
3022 315224452 : lu(k,884) = lu(k,884) * lu(k,876)
3023 315224452 : lu(k,885) = lu(k,885) * lu(k,876)
3024 315224452 : lu(k,886) = lu(k,886) * lu(k,876)
3025 315224452 : lu(k,887) = lu(k,887) * lu(k,876)
3026 315224452 : lu(k,888) = lu(k,888) * lu(k,876)
3027 315224452 : lu(k,889) = lu(k,889) * lu(k,876)
3028 315224452 : lu(k,890) = lu(k,890) * lu(k,876)
3029 315224452 : lu(k,891) = lu(k,891) * lu(k,876)
3030 315224452 : lu(k,1616) = - lu(k,877) * lu(k,1614)
3031 315224452 : lu(k,1628) = lu(k,1628) - lu(k,878) * lu(k,1614)
3032 315224452 : lu(k,1630) = lu(k,1630) - lu(k,879) * lu(k,1614)
3033 315224452 : lu(k,1637) = lu(k,1637) - lu(k,880) * lu(k,1614)
3034 315224452 : lu(k,1638) = lu(k,1638) - lu(k,881) * lu(k,1614)
3035 315224452 : lu(k,1640) = lu(k,1640) - lu(k,882) * lu(k,1614)
3036 315224452 : lu(k,1641) = lu(k,1641) - lu(k,883) * lu(k,1614)
3037 315224452 : lu(k,1643) = lu(k,1643) - lu(k,884) * lu(k,1614)
3038 315224452 : lu(k,1645) = lu(k,1645) - lu(k,885) * lu(k,1614)
3039 315224452 : lu(k,1652) = lu(k,1652) - lu(k,886) * lu(k,1614)
3040 315224452 : lu(k,1653) = lu(k,1653) - lu(k,887) * lu(k,1614)
3041 315224452 : lu(k,1656) = lu(k,1656) - lu(k,888) * lu(k,1614)
3042 315224452 : lu(k,1662) = - lu(k,889) * lu(k,1614)
3043 315224452 : lu(k,1664) = lu(k,1664) - lu(k,890) * lu(k,1614)
3044 315224452 : lu(k,1665) = - lu(k,891) * lu(k,1614)
3045 315224452 : lu(k,1775) = lu(k,1775) - lu(k,877) * lu(k,1771)
3046 315224452 : lu(k,1791) = lu(k,1791) - lu(k,878) * lu(k,1771)
3047 315224452 : lu(k,1793) = lu(k,1793) - lu(k,879) * lu(k,1771)
3048 315224452 : lu(k,1800) = - lu(k,880) * lu(k,1771)
3049 315224452 : lu(k,1801) = lu(k,1801) - lu(k,881) * lu(k,1771)
3050 315224452 : lu(k,1803) = lu(k,1803) - lu(k,882) * lu(k,1771)
3051 315224452 : lu(k,1804) = lu(k,1804) - lu(k,883) * lu(k,1771)
3052 315224452 : lu(k,1806) = lu(k,1806) - lu(k,884) * lu(k,1771)
3053 315224452 : lu(k,1808) = lu(k,1808) - lu(k,885) * lu(k,1771)
3054 315224452 : lu(k,1817) = lu(k,1817) - lu(k,886) * lu(k,1771)
3055 315224452 : lu(k,1818) = lu(k,1818) - lu(k,887) * lu(k,1771)
3056 315224452 : lu(k,1821) = lu(k,1821) - lu(k,888) * lu(k,1771)
3057 315224452 : lu(k,1827) = lu(k,1827) - lu(k,889) * lu(k,1771)
3058 315224452 : lu(k,1829) = lu(k,1829) - lu(k,890) * lu(k,1771)
3059 315224452 : lu(k,1830) = lu(k,1830) - lu(k,891) * lu(k,1771)
3060 315224452 : lu(k,2190) = lu(k,2190) - lu(k,877) * lu(k,2189)
3061 315224452 : lu(k,2201) = lu(k,2201) - lu(k,878) * lu(k,2189)
3062 315224452 : lu(k,2203) = lu(k,2203) - lu(k,879) * lu(k,2189)
3063 315224452 : lu(k,2208) = - lu(k,880) * lu(k,2189)
3064 315224452 : lu(k,2209) = lu(k,2209) - lu(k,881) * lu(k,2189)
3065 315224452 : lu(k,2211) = - lu(k,882) * lu(k,2189)
3066 315224452 : lu(k,2212) = - lu(k,883) * lu(k,2189)
3067 315224452 : lu(k,2214) = lu(k,2214) - lu(k,884) * lu(k,2189)
3068 315224452 : lu(k,2216) = lu(k,2216) - lu(k,885) * lu(k,2189)
3069 315224452 : lu(k,2223) = lu(k,2223) - lu(k,886) * lu(k,2189)
3070 315224452 : lu(k,2224) = lu(k,2224) - lu(k,887) * lu(k,2189)
3071 315224452 : lu(k,2227) = lu(k,2227) - lu(k,888) * lu(k,2189)
3072 315224452 : lu(k,2233) = lu(k,2233) - lu(k,889) * lu(k,2189)
3073 315224452 : lu(k,2235) = lu(k,2235) - lu(k,890) * lu(k,2189)
3074 325174377 : lu(k,2236) = lu(k,2236) - lu(k,891) * lu(k,2189)
3075 : end do
3076 9949925 : end subroutine lu_fac18
3077 9949925 : subroutine lu_fac19( avec_len, lu )
3078 : use chem_mods, only : nzcnt
3079 : use shr_kind_mod, only : r8 => shr_kind_r8
3080 : implicit none
3081 : !-----------------------------------------------------------------------
3082 : ! ... dummy args
3083 : !-----------------------------------------------------------------------
3084 : integer, intent(in) :: avec_len
3085 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3086 : !-----------------------------------------------------------------------
3087 : ! ... local variables
3088 : !-----------------------------------------------------------------------
3089 : integer :: k
3090 325174377 : do k = 1,avec_len
3091 315224452 : lu(k,892) = 1._r8 / lu(k,892)
3092 315224452 : lu(k,893) = lu(k,893) * lu(k,892)
3093 315224452 : lu(k,894) = lu(k,894) * lu(k,892)
3094 315224452 : lu(k,895) = lu(k,895) * lu(k,892)
3095 315224452 : lu(k,896) = lu(k,896) * lu(k,892)
3096 315224452 : lu(k,897) = lu(k,897) * lu(k,892)
3097 315224452 : lu(k,1092) = - lu(k,893) * lu(k,1087)
3098 315224452 : lu(k,1093) = - lu(k,894) * lu(k,1087)
3099 315224452 : lu(k,1095) = lu(k,1095) - lu(k,895) * lu(k,1087)
3100 315224452 : lu(k,1097) = lu(k,1097) - lu(k,896) * lu(k,1087)
3101 315224452 : lu(k,1098) = - lu(k,897) * lu(k,1087)
3102 315224452 : lu(k,1137) = - lu(k,893) * lu(k,1131)
3103 315224452 : lu(k,1138) = - lu(k,894) * lu(k,1131)
3104 315224452 : lu(k,1142) = lu(k,1142) - lu(k,895) * lu(k,1131)
3105 315224452 : lu(k,1144) = lu(k,1144) - lu(k,896) * lu(k,1131)
3106 315224452 : lu(k,1145) = lu(k,1145) - lu(k,897) * lu(k,1131)
3107 315224452 : lu(k,1255) = - lu(k,893) * lu(k,1248)
3108 315224452 : lu(k,1257) = lu(k,1257) - lu(k,894) * lu(k,1248)
3109 315224452 : lu(k,1260) = lu(k,1260) - lu(k,895) * lu(k,1248)
3110 315224452 : lu(k,1262) = lu(k,1262) - lu(k,896) * lu(k,1248)
3111 315224452 : lu(k,1263) = lu(k,1263) - lu(k,897) * lu(k,1248)
3112 315224452 : lu(k,1331) = lu(k,1331) - lu(k,893) * lu(k,1321)
3113 315224452 : lu(k,1336) = lu(k,1336) - lu(k,894) * lu(k,1321)
3114 315224452 : lu(k,1339) = lu(k,1339) - lu(k,895) * lu(k,1321)
3115 315224452 : lu(k,1341) = lu(k,1341) - lu(k,896) * lu(k,1321)
3116 315224452 : lu(k,1342) = lu(k,1342) - lu(k,897) * lu(k,1321)
3117 315224452 : lu(k,1639) = lu(k,1639) - lu(k,893) * lu(k,1615)
3118 315224452 : lu(k,1645) = lu(k,1645) - lu(k,894) * lu(k,1615)
3119 315224452 : lu(k,1653) = lu(k,1653) - lu(k,895) * lu(k,1615)
3120 315224452 : lu(k,1655) = lu(k,1655) - lu(k,896) * lu(k,1615)
3121 315224452 : lu(k,1656) = lu(k,1656) - lu(k,897) * lu(k,1615)
3122 315224452 : lu(k,1802) = lu(k,1802) - lu(k,893) * lu(k,1772)
3123 315224452 : lu(k,1808) = lu(k,1808) - lu(k,894) * lu(k,1772)
3124 315224452 : lu(k,1818) = lu(k,1818) - lu(k,895) * lu(k,1772)
3125 315224452 : lu(k,1820) = lu(k,1820) - lu(k,896) * lu(k,1772)
3126 315224452 : lu(k,1821) = lu(k,1821) - lu(k,897) * lu(k,1772)
3127 315224452 : lu(k,1900) = lu(k,1900) - lu(k,893) * lu(k,1876)
3128 315224452 : lu(k,1906) = lu(k,1906) - lu(k,894) * lu(k,1876)
3129 315224452 : lu(k,1913) = lu(k,1913) - lu(k,895) * lu(k,1876)
3130 315224452 : lu(k,1915) = lu(k,1915) - lu(k,896) * lu(k,1876)
3131 315224452 : lu(k,1916) = lu(k,1916) - lu(k,897) * lu(k,1876)
3132 315224452 : lu(k,2342) = lu(k,2342) - lu(k,893) * lu(k,2321)
3133 315224452 : lu(k,2348) = lu(k,2348) - lu(k,894) * lu(k,2321)
3134 315224452 : lu(k,2357) = lu(k,2357) - lu(k,895) * lu(k,2321)
3135 315224452 : lu(k,2359) = lu(k,2359) - lu(k,896) * lu(k,2321)
3136 315224452 : lu(k,2360) = lu(k,2360) - lu(k,897) * lu(k,2321)
3137 315224452 : lu(k,2397) = lu(k,2397) - lu(k,893) * lu(k,2378)
3138 315224452 : lu(k,2403) = lu(k,2403) - lu(k,894) * lu(k,2378)
3139 315224452 : lu(k,2409) = lu(k,2409) - lu(k,895) * lu(k,2378)
3140 315224452 : lu(k,2411) = lu(k,2411) - lu(k,896) * lu(k,2378)
3141 315224452 : lu(k,2412) = lu(k,2412) - lu(k,897) * lu(k,2378)
3142 315224452 : lu(k,901) = 1._r8 / lu(k,901)
3143 315224452 : lu(k,902) = lu(k,902) * lu(k,901)
3144 315224452 : lu(k,903) = lu(k,903) * lu(k,901)
3145 315224452 : lu(k,904) = lu(k,904) * lu(k,901)
3146 315224452 : lu(k,905) = lu(k,905) * lu(k,901)
3147 315224452 : lu(k,906) = lu(k,906) * lu(k,901)
3148 315224452 : lu(k,907) = lu(k,907) * lu(k,901)
3149 315224452 : lu(k,908) = lu(k,908) * lu(k,901)
3150 315224452 : lu(k,909) = lu(k,909) * lu(k,901)
3151 315224452 : lu(k,1044) = lu(k,1044) - lu(k,902) * lu(k,1041)
3152 315224452 : lu(k,1046) = - lu(k,903) * lu(k,1041)
3153 315224452 : lu(k,1047) = lu(k,1047) - lu(k,904) * lu(k,1041)
3154 315224452 : lu(k,1048) = lu(k,1048) - lu(k,905) * lu(k,1041)
3155 315224452 : lu(k,1049) = lu(k,1049) - lu(k,906) * lu(k,1041)
3156 315224452 : lu(k,1050) = lu(k,1050) - lu(k,907) * lu(k,1041)
3157 315224452 : lu(k,1051) = lu(k,1051) - lu(k,908) * lu(k,1041)
3158 315224452 : lu(k,1052) = - lu(k,909) * lu(k,1041)
3159 315224452 : lu(k,1792) = lu(k,1792) - lu(k,902) * lu(k,1773)
3160 315224452 : lu(k,1814) = lu(k,1814) - lu(k,903) * lu(k,1773)
3161 315224452 : lu(k,1818) = lu(k,1818) - lu(k,904) * lu(k,1773)
3162 315224452 : lu(k,1819) = lu(k,1819) - lu(k,905) * lu(k,1773)
3163 315224452 : lu(k,1820) = lu(k,1820) - lu(k,906) * lu(k,1773)
3164 315224452 : lu(k,1821) = lu(k,1821) - lu(k,907) * lu(k,1773)
3165 315224452 : lu(k,1829) = lu(k,1829) - lu(k,908) * lu(k,1773)
3166 315224452 : lu(k,1830) = lu(k,1830) - lu(k,909) * lu(k,1773)
3167 315224452 : lu(k,1890) = lu(k,1890) - lu(k,902) * lu(k,1877)
3168 315224452 : lu(k,1909) = lu(k,1909) - lu(k,903) * lu(k,1877)
3169 315224452 : lu(k,1913) = lu(k,1913) - lu(k,904) * lu(k,1877)
3170 315224452 : lu(k,1914) = lu(k,1914) - lu(k,905) * lu(k,1877)
3171 315224452 : lu(k,1915) = lu(k,1915) - lu(k,906) * lu(k,1877)
3172 315224452 : lu(k,1916) = lu(k,1916) - lu(k,907) * lu(k,1877)
3173 315224452 : lu(k,1924) = lu(k,1924) - lu(k,908) * lu(k,1877)
3174 315224452 : lu(k,1925) = lu(k,1925) - lu(k,909) * lu(k,1877)
3175 315224452 : lu(k,2146) = - lu(k,902) * lu(k,2140)
3176 315224452 : lu(k,2156) = lu(k,2156) - lu(k,903) * lu(k,2140)
3177 315224452 : lu(k,2160) = lu(k,2160) - lu(k,904) * lu(k,2140)
3178 315224452 : lu(k,2161) = lu(k,2161) - lu(k,905) * lu(k,2140)
3179 315224452 : lu(k,2162) = lu(k,2162) - lu(k,906) * lu(k,2140)
3180 315224452 : lu(k,2163) = lu(k,2163) - lu(k,907) * lu(k,2140)
3181 315224452 : lu(k,2171) = lu(k,2171) - lu(k,908) * lu(k,2140)
3182 315224452 : lu(k,2172) = lu(k,2172) - lu(k,909) * lu(k,2140)
3183 315224452 : lu(k,2333) = lu(k,2333) - lu(k,902) * lu(k,2322)
3184 315224452 : lu(k,2353) = lu(k,2353) - lu(k,903) * lu(k,2322)
3185 315224452 : lu(k,2357) = lu(k,2357) - lu(k,904) * lu(k,2322)
3186 315224452 : lu(k,2358) = lu(k,2358) - lu(k,905) * lu(k,2322)
3187 315224452 : lu(k,2359) = lu(k,2359) - lu(k,906) * lu(k,2322)
3188 315224452 : lu(k,2360) = lu(k,2360) - lu(k,907) * lu(k,2322)
3189 315224452 : lu(k,2368) = lu(k,2368) - lu(k,908) * lu(k,2322)
3190 315224452 : lu(k,2369) = lu(k,2369) - lu(k,909) * lu(k,2322)
3191 315224452 : lu(k,2388) = lu(k,2388) - lu(k,902) * lu(k,2379)
3192 315224452 : lu(k,2405) = lu(k,2405) - lu(k,903) * lu(k,2379)
3193 315224452 : lu(k,2409) = lu(k,2409) - lu(k,904) * lu(k,2379)
3194 315224452 : lu(k,2410) = lu(k,2410) - lu(k,905) * lu(k,2379)
3195 315224452 : lu(k,2411) = lu(k,2411) - lu(k,906) * lu(k,2379)
3196 315224452 : lu(k,2412) = lu(k,2412) - lu(k,907) * lu(k,2379)
3197 315224452 : lu(k,2420) = lu(k,2420) - lu(k,908) * lu(k,2379)
3198 315224452 : lu(k,2421) = lu(k,2421) - lu(k,909) * lu(k,2379)
3199 315224452 : lu(k,910) = 1._r8 / lu(k,910)
3200 315224452 : lu(k,911) = lu(k,911) * lu(k,910)
3201 315224452 : lu(k,912) = lu(k,912) * lu(k,910)
3202 315224452 : lu(k,913) = lu(k,913) * lu(k,910)
3203 315224452 : lu(k,914) = lu(k,914) * lu(k,910)
3204 315224452 : lu(k,915) = lu(k,915) * lu(k,910)
3205 315224452 : lu(k,916) = lu(k,916) * lu(k,910)
3206 315224452 : lu(k,917) = lu(k,917) * lu(k,910)
3207 315224452 : lu(k,918) = lu(k,918) * lu(k,910)
3208 315224452 : lu(k,1089) = lu(k,1089) - lu(k,911) * lu(k,1088)
3209 315224452 : lu(k,1091) = lu(k,1091) - lu(k,912) * lu(k,1088)
3210 315224452 : lu(k,1092) = lu(k,1092) - lu(k,913) * lu(k,1088)
3211 315224452 : lu(k,1095) = lu(k,1095) - lu(k,914) * lu(k,1088)
3212 315224452 : lu(k,1096) = - lu(k,915) * lu(k,1088)
3213 315224452 : lu(k,1097) = lu(k,1097) - lu(k,916) * lu(k,1088)
3214 315224452 : lu(k,1100) = lu(k,1100) - lu(k,917) * lu(k,1088)
3215 315224452 : lu(k,1101) = - lu(k,918) * lu(k,1088)
3216 315224452 : lu(k,1323) = lu(k,1323) - lu(k,911) * lu(k,1322)
3217 315224452 : lu(k,1324) = lu(k,1324) - lu(k,912) * lu(k,1322)
3218 315224452 : lu(k,1331) = lu(k,1331) - lu(k,913) * lu(k,1322)
3219 315224452 : lu(k,1339) = lu(k,1339) - lu(k,914) * lu(k,1322)
3220 315224452 : lu(k,1340) = lu(k,1340) - lu(k,915) * lu(k,1322)
3221 315224452 : lu(k,1341) = lu(k,1341) - lu(k,916) * lu(k,1322)
3222 315224452 : lu(k,1345) = lu(k,1345) - lu(k,917) * lu(k,1322)
3223 315224452 : lu(k,1346) = lu(k,1346) - lu(k,918) * lu(k,1322)
3224 315224452 : lu(k,1784) = lu(k,1784) - lu(k,911) * lu(k,1774)
3225 315224452 : lu(k,1793) = lu(k,1793) - lu(k,912) * lu(k,1774)
3226 315224452 : lu(k,1802) = lu(k,1802) - lu(k,913) * lu(k,1774)
3227 315224452 : lu(k,1818) = lu(k,1818) - lu(k,914) * lu(k,1774)
3228 315224452 : lu(k,1819) = lu(k,1819) - lu(k,915) * lu(k,1774)
3229 315224452 : lu(k,1820) = lu(k,1820) - lu(k,916) * lu(k,1774)
3230 315224452 : lu(k,1829) = lu(k,1829) - lu(k,917) * lu(k,1774)
3231 315224452 : lu(k,1830) = lu(k,1830) - lu(k,918) * lu(k,1774)
3232 315224452 : lu(k,1883) = lu(k,1883) - lu(k,911) * lu(k,1878)
3233 315224452 : lu(k,1891) = lu(k,1891) - lu(k,912) * lu(k,1878)
3234 315224452 : lu(k,1900) = lu(k,1900) - lu(k,913) * lu(k,1878)
3235 315224452 : lu(k,1913) = lu(k,1913) - lu(k,914) * lu(k,1878)
3236 315224452 : lu(k,1914) = lu(k,1914) - lu(k,915) * lu(k,1878)
3237 315224452 : lu(k,1915) = lu(k,1915) - lu(k,916) * lu(k,1878)
3238 315224452 : lu(k,1924) = lu(k,1924) - lu(k,917) * lu(k,1878)
3239 315224452 : lu(k,1925) = lu(k,1925) - lu(k,918) * lu(k,1878)
3240 315224452 : lu(k,1944) = lu(k,1944) - lu(k,911) * lu(k,1940)
3241 315224452 : lu(k,1945) = lu(k,1945) - lu(k,912) * lu(k,1940)
3242 315224452 : lu(k,1947) = lu(k,1947) - lu(k,913) * lu(k,1940)
3243 315224452 : lu(k,1958) = lu(k,1958) - lu(k,914) * lu(k,1940)
3244 315224452 : lu(k,1959) = lu(k,1959) - lu(k,915) * lu(k,1940)
3245 315224452 : lu(k,1960) = lu(k,1960) - lu(k,916) * lu(k,1940)
3246 315224452 : lu(k,1969) = lu(k,1969) - lu(k,917) * lu(k,1940)
3247 315224452 : lu(k,1970) = lu(k,1970) - lu(k,918) * lu(k,1940)
3248 315224452 : lu(k,2327) = lu(k,2327) - lu(k,911) * lu(k,2323)
3249 315224452 : lu(k,2334) = lu(k,2334) - lu(k,912) * lu(k,2323)
3250 315224452 : lu(k,2342) = lu(k,2342) - lu(k,913) * lu(k,2323)
3251 315224452 : lu(k,2357) = lu(k,2357) - lu(k,914) * lu(k,2323)
3252 315224452 : lu(k,2358) = lu(k,2358) - lu(k,915) * lu(k,2323)
3253 315224452 : lu(k,2359) = lu(k,2359) - lu(k,916) * lu(k,2323)
3254 315224452 : lu(k,2368) = lu(k,2368) - lu(k,917) * lu(k,2323)
3255 315224452 : lu(k,2369) = lu(k,2369) - lu(k,918) * lu(k,2323)
3256 315224452 : lu(k,919) = 1._r8 / lu(k,919)
3257 315224452 : lu(k,920) = lu(k,920) * lu(k,919)
3258 315224452 : lu(k,921) = lu(k,921) * lu(k,919)
3259 315224452 : lu(k,922) = lu(k,922) * lu(k,919)
3260 315224452 : lu(k,923) = lu(k,923) * lu(k,919)
3261 315224452 : lu(k,986) = lu(k,986) - lu(k,920) * lu(k,973)
3262 315224452 : lu(k,988) = lu(k,988) - lu(k,921) * lu(k,973)
3263 315224452 : lu(k,991) = lu(k,991) - lu(k,922) * lu(k,973)
3264 315224452 : lu(k,992) = - lu(k,923) * lu(k,973)
3265 315224452 : lu(k,1030) = lu(k,1030) - lu(k,920) * lu(k,1017)
3266 315224452 : lu(k,1032) = lu(k,1032) - lu(k,921) * lu(k,1017)
3267 315224452 : lu(k,1035) = lu(k,1035) - lu(k,922) * lu(k,1017)
3268 315224452 : lu(k,1036) = - lu(k,923) * lu(k,1017)
3269 315224452 : lu(k,1139) = lu(k,1139) - lu(k,920) * lu(k,1132)
3270 315224452 : lu(k,1142) = lu(k,1142) - lu(k,921) * lu(k,1132)
3271 315224452 : lu(k,1148) = lu(k,1148) - lu(k,922) * lu(k,1132)
3272 315224452 : lu(k,1150) = lu(k,1150) - lu(k,923) * lu(k,1132)
3273 315224452 : lu(k,1274) = - lu(k,920) * lu(k,1267)
3274 315224452 : lu(k,1275) = lu(k,1275) - lu(k,921) * lu(k,1267)
3275 315224452 : lu(k,1278) = lu(k,1278) - lu(k,922) * lu(k,1267)
3276 315224452 : lu(k,1279) = lu(k,1279) - lu(k,923) * lu(k,1267)
3277 315224452 : lu(k,1379) = lu(k,1379) - lu(k,920) * lu(k,1369)
3278 315224452 : lu(k,1382) = lu(k,1382) - lu(k,921) * lu(k,1369)
3279 315224452 : lu(k,1389) = lu(k,1389) - lu(k,922) * lu(k,1369)
3280 315224452 : lu(k,1391) = - lu(k,923) * lu(k,1369)
3281 315224452 : lu(k,1646) = - lu(k,920) * lu(k,1616)
3282 315224452 : lu(k,1653) = lu(k,1653) - lu(k,921) * lu(k,1616)
3283 315224452 : lu(k,1664) = lu(k,1664) - lu(k,922) * lu(k,1616)
3284 315224452 : lu(k,1666) = - lu(k,923) * lu(k,1616)
3285 315224452 : lu(k,1809) = lu(k,1809) - lu(k,920) * lu(k,1775)
3286 315224452 : lu(k,1818) = lu(k,1818) - lu(k,921) * lu(k,1775)
3287 315224452 : lu(k,1829) = lu(k,1829) - lu(k,922) * lu(k,1775)
3288 315224452 : lu(k,1831) = lu(k,1831) - lu(k,923) * lu(k,1775)
3289 315224452 : lu(k,1907) = lu(k,1907) - lu(k,920) * lu(k,1879)
3290 315224452 : lu(k,1913) = lu(k,1913) - lu(k,921) * lu(k,1879)
3291 315224452 : lu(k,1924) = lu(k,1924) - lu(k,922) * lu(k,1879)
3292 315224452 : lu(k,1926) = lu(k,1926) - lu(k,923) * lu(k,1879)
3293 315224452 : lu(k,1976) = - lu(k,920) * lu(k,1974)
3294 315224452 : lu(k,1984) = lu(k,1984) - lu(k,921) * lu(k,1974)
3295 315224452 : lu(k,1995) = lu(k,1995) - lu(k,922) * lu(k,1974)
3296 315224452 : lu(k,1997) = lu(k,1997) - lu(k,923) * lu(k,1974)
3297 315224452 : lu(k,2152) = - lu(k,920) * lu(k,2141)
3298 315224452 : lu(k,2160) = lu(k,2160) - lu(k,921) * lu(k,2141)
3299 315224452 : lu(k,2171) = lu(k,2171) - lu(k,922) * lu(k,2141)
3300 315224452 : lu(k,2173) = lu(k,2173) - lu(k,923) * lu(k,2141)
3301 315224452 : lu(k,2217) = lu(k,2217) - lu(k,920) * lu(k,2190)
3302 315224452 : lu(k,2224) = lu(k,2224) - lu(k,921) * lu(k,2190)
3303 315224452 : lu(k,2235) = lu(k,2235) - lu(k,922) * lu(k,2190)
3304 315224452 : lu(k,2237) = lu(k,2237) - lu(k,923) * lu(k,2190)
3305 315224452 : lu(k,2349) = lu(k,2349) - lu(k,920) * lu(k,2324)
3306 315224452 : lu(k,2357) = lu(k,2357) - lu(k,921) * lu(k,2324)
3307 315224452 : lu(k,2368) = lu(k,2368) - lu(k,922) * lu(k,2324)
3308 315224452 : lu(k,2370) = lu(k,2370) - lu(k,923) * lu(k,2324)
3309 315224452 : lu(k,925) = 1._r8 / lu(k,925)
3310 315224452 : lu(k,926) = lu(k,926) * lu(k,925)
3311 315224452 : lu(k,927) = lu(k,927) * lu(k,925)
3312 315224452 : lu(k,928) = lu(k,928) * lu(k,925)
3313 315224452 : lu(k,929) = lu(k,929) * lu(k,925)
3314 315224452 : lu(k,930) = lu(k,930) * lu(k,925)
3315 315224452 : lu(k,931) = lu(k,931) * lu(k,925)
3316 315224452 : lu(k,932) = lu(k,932) * lu(k,925)
3317 315224452 : lu(k,933) = lu(k,933) * lu(k,925)
3318 315224452 : lu(k,1461) = lu(k,1461) - lu(k,926) * lu(k,1460)
3319 315224452 : lu(k,1463) = - lu(k,927) * lu(k,1460)
3320 315224452 : lu(k,1464) = lu(k,1464) - lu(k,928) * lu(k,1460)
3321 315224452 : lu(k,1466) = - lu(k,929) * lu(k,1460)
3322 315224452 : lu(k,1468) = lu(k,1468) - lu(k,930) * lu(k,1460)
3323 315224452 : lu(k,1470) = - lu(k,931) * lu(k,1460)
3324 315224452 : lu(k,1471) = - lu(k,932) * lu(k,1460)
3325 315224452 : lu(k,1472) = lu(k,1472) - lu(k,933) * lu(k,1460)
3326 315224452 : lu(k,1810) = lu(k,1810) - lu(k,926) * lu(k,1776)
3327 315224452 : lu(k,1817) = lu(k,1817) - lu(k,927) * lu(k,1776)
3328 315224452 : lu(k,1818) = lu(k,1818) - lu(k,928) * lu(k,1776)
3329 315224452 : lu(k,1823) = lu(k,1823) - lu(k,929) * lu(k,1776)
3330 315224452 : lu(k,1825) = lu(k,1825) - lu(k,930) * lu(k,1776)
3331 315224452 : lu(k,1828) = lu(k,1828) - lu(k,931) * lu(k,1776)
3332 315224452 : lu(k,1830) = lu(k,1830) - lu(k,932) * lu(k,1776)
3333 315224452 : lu(k,1831) = lu(k,1831) - lu(k,933) * lu(k,1776)
3334 315224452 : lu(k,2020) = lu(k,2020) - lu(k,926) * lu(k,2019)
3335 315224452 : lu(k,2026) = - lu(k,927) * lu(k,2019)
3336 315224452 : lu(k,2027) = lu(k,2027) - lu(k,928) * lu(k,2019)
3337 315224452 : lu(k,2032) = - lu(k,929) * lu(k,2019)
3338 315224452 : lu(k,2034) = lu(k,2034) - lu(k,930) * lu(k,2019)
3339 315224452 : lu(k,2037) = lu(k,2037) - lu(k,931) * lu(k,2019)
3340 315224452 : lu(k,2039) = lu(k,2039) - lu(k,932) * lu(k,2019)
3341 315224452 : lu(k,2040) = lu(k,2040) - lu(k,933) * lu(k,2019)
3342 315224452 : lu(k,2043) = - lu(k,926) * lu(k,2042)
3343 315224452 : lu(k,2049) = lu(k,2049) - lu(k,927) * lu(k,2042)
3344 315224452 : lu(k,2050) = lu(k,2050) - lu(k,928) * lu(k,2042)
3345 315224452 : lu(k,2055) = lu(k,2055) - lu(k,929) * lu(k,2042)
3346 315224452 : lu(k,2057) = lu(k,2057) - lu(k,930) * lu(k,2042)
3347 315224452 : lu(k,2060) = - lu(k,931) * lu(k,2042)
3348 315224452 : lu(k,2062) = - lu(k,932) * lu(k,2042)
3349 315224452 : lu(k,2063) = lu(k,2063) - lu(k,933) * lu(k,2042)
3350 315224452 : lu(k,2242) = lu(k,2242) - lu(k,926) * lu(k,2239)
3351 315224452 : lu(k,2248) = - lu(k,927) * lu(k,2239)
3352 315224452 : lu(k,2249) = lu(k,2249) - lu(k,928) * lu(k,2239)
3353 315224452 : lu(k,2254) = - lu(k,929) * lu(k,2239)
3354 315224452 : lu(k,2256) = lu(k,2256) - lu(k,930) * lu(k,2239)
3355 315224452 : lu(k,2259) = lu(k,2259) - lu(k,931) * lu(k,2239)
3356 315224452 : lu(k,2261) = lu(k,2261) - lu(k,932) * lu(k,2239)
3357 315224452 : lu(k,2262) = lu(k,2262) - lu(k,933) * lu(k,2239)
3358 315224452 : lu(k,2428) = lu(k,2428) - lu(k,926) * lu(k,2426)
3359 315224452 : lu(k,2435) = - lu(k,927) * lu(k,2426)
3360 315224452 : lu(k,2436) = lu(k,2436) - lu(k,928) * lu(k,2426)
3361 315224452 : lu(k,2441) = - lu(k,929) * lu(k,2426)
3362 315224452 : lu(k,2443) = lu(k,2443) - lu(k,930) * lu(k,2426)
3363 315224452 : lu(k,2446) = - lu(k,931) * lu(k,2426)
3364 315224452 : lu(k,2448) = - lu(k,932) * lu(k,2426)
3365 325174377 : lu(k,2449) = lu(k,2449) - lu(k,933) * lu(k,2426)
3366 : end do
3367 9949925 : end subroutine lu_fac19
3368 9949925 : subroutine lu_fac20( avec_len, lu )
3369 : use chem_mods, only : nzcnt
3370 : use shr_kind_mod, only : r8 => shr_kind_r8
3371 : implicit none
3372 : !-----------------------------------------------------------------------
3373 : ! ... dummy args
3374 : !-----------------------------------------------------------------------
3375 : integer, intent(in) :: avec_len
3376 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3377 : !-----------------------------------------------------------------------
3378 : ! ... local variables
3379 : !-----------------------------------------------------------------------
3380 : integer :: k
3381 325174377 : do k = 1,avec_len
3382 315224452 : lu(k,935) = 1._r8 / lu(k,935)
3383 315224452 : lu(k,936) = lu(k,936) * lu(k,935)
3384 315224452 : lu(k,937) = lu(k,937) * lu(k,935)
3385 315224452 : lu(k,938) = lu(k,938) * lu(k,935)
3386 315224452 : lu(k,939) = lu(k,939) * lu(k,935)
3387 315224452 : lu(k,940) = lu(k,940) * lu(k,935)
3388 315224452 : lu(k,941) = lu(k,941) * lu(k,935)
3389 315224452 : lu(k,942) = lu(k,942) * lu(k,935)
3390 315224452 : lu(k,943) = lu(k,943) * lu(k,935)
3391 315224452 : lu(k,944) = lu(k,944) * lu(k,935)
3392 315224452 : lu(k,945) = lu(k,945) * lu(k,935)
3393 315224452 : lu(k,1787) = lu(k,1787) - lu(k,936) * lu(k,1777)
3394 315224452 : lu(k,1792) = lu(k,1792) - lu(k,937) * lu(k,1777)
3395 315224452 : lu(k,1814) = lu(k,1814) - lu(k,938) * lu(k,1777)
3396 315224452 : lu(k,1818) = lu(k,1818) - lu(k,939) * lu(k,1777)
3397 315224452 : lu(k,1819) = lu(k,1819) - lu(k,940) * lu(k,1777)
3398 315224452 : lu(k,1820) = lu(k,1820) - lu(k,941) * lu(k,1777)
3399 315224452 : lu(k,1821) = lu(k,1821) - lu(k,942) * lu(k,1777)
3400 315224452 : lu(k,1829) = lu(k,1829) - lu(k,943) * lu(k,1777)
3401 315224452 : lu(k,1830) = lu(k,1830) - lu(k,944) * lu(k,1777)
3402 315224452 : lu(k,1831) = lu(k,1831) - lu(k,945) * lu(k,1777)
3403 315224452 : lu(k,1886) = lu(k,1886) - lu(k,936) * lu(k,1880)
3404 315224452 : lu(k,1890) = lu(k,1890) - lu(k,937) * lu(k,1880)
3405 315224452 : lu(k,1909) = lu(k,1909) - lu(k,938) * lu(k,1880)
3406 315224452 : lu(k,1913) = lu(k,1913) - lu(k,939) * lu(k,1880)
3407 315224452 : lu(k,1914) = lu(k,1914) - lu(k,940) * lu(k,1880)
3408 315224452 : lu(k,1915) = lu(k,1915) - lu(k,941) * lu(k,1880)
3409 315224452 : lu(k,1916) = lu(k,1916) - lu(k,942) * lu(k,1880)
3410 315224452 : lu(k,1924) = lu(k,1924) - lu(k,943) * lu(k,1880)
3411 315224452 : lu(k,1925) = lu(k,1925) - lu(k,944) * lu(k,1880)
3412 315224452 : lu(k,1926) = lu(k,1926) - lu(k,945) * lu(k,1880)
3413 315224452 : lu(k,2145) = - lu(k,936) * lu(k,2142)
3414 315224452 : lu(k,2146) = lu(k,2146) - lu(k,937) * lu(k,2142)
3415 315224452 : lu(k,2156) = lu(k,2156) - lu(k,938) * lu(k,2142)
3416 315224452 : lu(k,2160) = lu(k,2160) - lu(k,939) * lu(k,2142)
3417 315224452 : lu(k,2161) = lu(k,2161) - lu(k,940) * lu(k,2142)
3418 315224452 : lu(k,2162) = lu(k,2162) - lu(k,941) * lu(k,2142)
3419 315224452 : lu(k,2163) = lu(k,2163) - lu(k,942) * lu(k,2142)
3420 315224452 : lu(k,2171) = lu(k,2171) - lu(k,943) * lu(k,2142)
3421 315224452 : lu(k,2172) = lu(k,2172) - lu(k,944) * lu(k,2142)
3422 315224452 : lu(k,2173) = lu(k,2173) - lu(k,945) * lu(k,2142)
3423 315224452 : lu(k,2330) = lu(k,2330) - lu(k,936) * lu(k,2325)
3424 315224452 : lu(k,2333) = lu(k,2333) - lu(k,937) * lu(k,2325)
3425 315224452 : lu(k,2353) = lu(k,2353) - lu(k,938) * lu(k,2325)
3426 315224452 : lu(k,2357) = lu(k,2357) - lu(k,939) * lu(k,2325)
3427 315224452 : lu(k,2358) = lu(k,2358) - lu(k,940) * lu(k,2325)
3428 315224452 : lu(k,2359) = lu(k,2359) - lu(k,941) * lu(k,2325)
3429 315224452 : lu(k,2360) = lu(k,2360) - lu(k,942) * lu(k,2325)
3430 315224452 : lu(k,2368) = lu(k,2368) - lu(k,943) * lu(k,2325)
3431 315224452 : lu(k,2369) = lu(k,2369) - lu(k,944) * lu(k,2325)
3432 315224452 : lu(k,2370) = lu(k,2370) - lu(k,945) * lu(k,2325)
3433 315224452 : lu(k,2384) = lu(k,2384) - lu(k,936) * lu(k,2380)
3434 315224452 : lu(k,2388) = lu(k,2388) - lu(k,937) * lu(k,2380)
3435 315224452 : lu(k,2405) = lu(k,2405) - lu(k,938) * lu(k,2380)
3436 315224452 : lu(k,2409) = lu(k,2409) - lu(k,939) * lu(k,2380)
3437 315224452 : lu(k,2410) = lu(k,2410) - lu(k,940) * lu(k,2380)
3438 315224452 : lu(k,2411) = lu(k,2411) - lu(k,941) * lu(k,2380)
3439 315224452 : lu(k,2412) = lu(k,2412) - lu(k,942) * lu(k,2380)
3440 315224452 : lu(k,2420) = lu(k,2420) - lu(k,943) * lu(k,2380)
3441 315224452 : lu(k,2421) = lu(k,2421) - lu(k,944) * lu(k,2380)
3442 315224452 : lu(k,2422) = lu(k,2422) - lu(k,945) * lu(k,2380)
3443 315224452 : lu(k,947) = 1._r8 / lu(k,947)
3444 315224452 : lu(k,948) = lu(k,948) * lu(k,947)
3445 315224452 : lu(k,949) = lu(k,949) * lu(k,947)
3446 315224452 : lu(k,950) = lu(k,950) * lu(k,947)
3447 315224452 : lu(k,951) = lu(k,951) * lu(k,947)
3448 315224452 : lu(k,952) = lu(k,952) * lu(k,947)
3449 315224452 : lu(k,1476) = lu(k,1476) - lu(k,948) * lu(k,1475)
3450 315224452 : lu(k,1481) = lu(k,1481) - lu(k,949) * lu(k,1475)
3451 315224452 : lu(k,1484) = lu(k,1484) - lu(k,950) * lu(k,1475)
3452 315224452 : lu(k,1488) = - lu(k,951) * lu(k,1475)
3453 315224452 : lu(k,1489) = - lu(k,952) * lu(k,1475)
3454 315224452 : lu(k,1540) = lu(k,1540) - lu(k,948) * lu(k,1535)
3455 315224452 : lu(k,1545) = lu(k,1545) - lu(k,949) * lu(k,1535)
3456 315224452 : lu(k,1550) = lu(k,1550) - lu(k,950) * lu(k,1535)
3457 315224452 : lu(k,1554) = lu(k,1554) - lu(k,951) * lu(k,1535)
3458 315224452 : lu(k,1555) = - lu(k,952) * lu(k,1535)
3459 315224452 : lu(k,1561) = lu(k,1561) - lu(k,948) * lu(k,1560)
3460 315224452 : lu(k,1568) = lu(k,1568) - lu(k,949) * lu(k,1560)
3461 315224452 : lu(k,1574) = lu(k,1574) - lu(k,950) * lu(k,1560)
3462 315224452 : lu(k,1578) = lu(k,1578) - lu(k,951) * lu(k,1560)
3463 315224452 : lu(k,1579) = lu(k,1579) - lu(k,952) * lu(k,1560)
3464 315224452 : lu(k,1587) = lu(k,1587) - lu(k,948) * lu(k,1585)
3465 315224452 : lu(k,1594) = lu(k,1594) - lu(k,949) * lu(k,1585)
3466 315224452 : lu(k,1600) = lu(k,1600) - lu(k,950) * lu(k,1585)
3467 315224452 : lu(k,1604) = lu(k,1604) - lu(k,951) * lu(k,1585)
3468 315224452 : lu(k,1606) = lu(k,1606) - lu(k,952) * lu(k,1585)
3469 315224452 : lu(k,1647) = - lu(k,948) * lu(k,1617)
3470 315224452 : lu(k,1653) = lu(k,1653) - lu(k,949) * lu(k,1617)
3471 315224452 : lu(k,1659) = lu(k,1659) - lu(k,950) * lu(k,1617)
3472 315224452 : lu(k,1664) = lu(k,1664) - lu(k,951) * lu(k,1617)
3473 315224452 : lu(k,1666) = lu(k,1666) - lu(k,952) * lu(k,1617)
3474 315224452 : lu(k,1811) = lu(k,1811) - lu(k,948) * lu(k,1778)
3475 315224452 : lu(k,1818) = lu(k,1818) - lu(k,949) * lu(k,1778)
3476 315224452 : lu(k,1824) = lu(k,1824) - lu(k,950) * lu(k,1778)
3477 315224452 : lu(k,1829) = lu(k,1829) - lu(k,951) * lu(k,1778)
3478 315224452 : lu(k,1831) = lu(k,1831) - lu(k,952) * lu(k,1778)
3479 315224452 : lu(k,1951) = lu(k,1951) - lu(k,948) * lu(k,1941)
3480 315224452 : lu(k,1958) = lu(k,1958) - lu(k,949) * lu(k,1941)
3481 315224452 : lu(k,1964) = lu(k,1964) - lu(k,950) * lu(k,1941)
3482 315224452 : lu(k,1969) = lu(k,1969) - lu(k,951) * lu(k,1941)
3483 315224452 : lu(k,1971) = lu(k,1971) - lu(k,952) * lu(k,1941)
3484 315224452 : lu(k,2086) = lu(k,2086) - lu(k,948) * lu(k,2080)
3485 315224452 : lu(k,2093) = lu(k,2093) - lu(k,949) * lu(k,2080)
3486 315224452 : lu(k,2099) = lu(k,2099) - lu(k,950) * lu(k,2080)
3487 315224452 : lu(k,2104) = lu(k,2104) - lu(k,951) * lu(k,2080)
3488 315224452 : lu(k,2106) = lu(k,2106) - lu(k,952) * lu(k,2080)
3489 315224452 : lu(k,2218) = lu(k,2218) - lu(k,948) * lu(k,2191)
3490 315224452 : lu(k,2224) = lu(k,2224) - lu(k,949) * lu(k,2191)
3491 315224452 : lu(k,2230) = lu(k,2230) - lu(k,950) * lu(k,2191)
3492 315224452 : lu(k,2235) = lu(k,2235) - lu(k,951) * lu(k,2191)
3493 315224452 : lu(k,2237) = lu(k,2237) - lu(k,952) * lu(k,2191)
3494 315224452 : lu(k,2429) = - lu(k,948) * lu(k,2427)
3495 315224452 : lu(k,2436) = lu(k,2436) - lu(k,949) * lu(k,2427)
3496 315224452 : lu(k,2442) = lu(k,2442) - lu(k,950) * lu(k,2427)
3497 315224452 : lu(k,2447) = - lu(k,951) * lu(k,2427)
3498 315224452 : lu(k,2449) = lu(k,2449) - lu(k,952) * lu(k,2427)
3499 315224452 : lu(k,955) = 1._r8 / lu(k,955)
3500 315224452 : lu(k,956) = lu(k,956) * lu(k,955)
3501 315224452 : lu(k,957) = lu(k,957) * lu(k,955)
3502 315224452 : lu(k,958) = lu(k,958) * lu(k,955)
3503 315224452 : lu(k,959) = lu(k,959) * lu(k,955)
3504 315224452 : lu(k,960) = lu(k,960) * lu(k,955)
3505 315224452 : lu(k,961) = lu(k,961) * lu(k,955)
3506 315224452 : lu(k,962) = lu(k,962) * lu(k,955)
3507 315224452 : lu(k,963) = lu(k,963) * lu(k,955)
3508 315224452 : lu(k,964) = lu(k,964) * lu(k,955)
3509 315224452 : lu(k,1495) = lu(k,1495) - lu(k,956) * lu(k,1494)
3510 315224452 : lu(k,1498) = lu(k,1498) - lu(k,957) * lu(k,1494)
3511 315224452 : lu(k,1499) = - lu(k,958) * lu(k,1494)
3512 315224452 : lu(k,1500) = lu(k,1500) - lu(k,959) * lu(k,1494)
3513 315224452 : lu(k,1501) = - lu(k,960) * lu(k,1494)
3514 315224452 : lu(k,1503) = lu(k,1503) - lu(k,961) * lu(k,1494)
3515 315224452 : lu(k,1504) = lu(k,1504) - lu(k,962) * lu(k,1494)
3516 315224452 : lu(k,1506) = lu(k,1506) - lu(k,963) * lu(k,1494)
3517 315224452 : lu(k,1507) = lu(k,1507) - lu(k,964) * lu(k,1494)
3518 315224452 : lu(k,1588) = lu(k,1588) - lu(k,956) * lu(k,1586)
3519 315224452 : lu(k,1592) = lu(k,1592) - lu(k,957) * lu(k,1586)
3520 315224452 : lu(k,1593) = - lu(k,958) * lu(k,1586)
3521 315224452 : lu(k,1594) = lu(k,1594) - lu(k,959) * lu(k,1586)
3522 315224452 : lu(k,1596) = lu(k,1596) - lu(k,960) * lu(k,1586)
3523 315224452 : lu(k,1599) = - lu(k,961) * lu(k,1586)
3524 315224452 : lu(k,1600) = lu(k,1600) - lu(k,962) * lu(k,1586)
3525 315224452 : lu(k,1602) = lu(k,1602) - lu(k,963) * lu(k,1586)
3526 315224452 : lu(k,1606) = lu(k,1606) - lu(k,964) * lu(k,1586)
3527 315224452 : lu(k,1812) = lu(k,1812) - lu(k,956) * lu(k,1779)
3528 315224452 : lu(k,1816) = lu(k,1816) - lu(k,957) * lu(k,1779)
3529 315224452 : lu(k,1817) = lu(k,1817) - lu(k,958) * lu(k,1779)
3530 315224452 : lu(k,1818) = lu(k,1818) - lu(k,959) * lu(k,1779)
3531 315224452 : lu(k,1820) = lu(k,1820) - lu(k,960) * lu(k,1779)
3532 315224452 : lu(k,1823) = lu(k,1823) - lu(k,961) * lu(k,1779)
3533 315224452 : lu(k,1824) = lu(k,1824) - lu(k,962) * lu(k,1779)
3534 315224452 : lu(k,1826) = lu(k,1826) - lu(k,963) * lu(k,1779)
3535 315224452 : lu(k,1831) = lu(k,1831) - lu(k,964) * lu(k,1779)
3536 315224452 : lu(k,1952) = lu(k,1952) - lu(k,956) * lu(k,1942)
3537 315224452 : lu(k,1956) = lu(k,1956) - lu(k,957) * lu(k,1942)
3538 315224452 : lu(k,1957) = lu(k,1957) - lu(k,958) * lu(k,1942)
3539 315224452 : lu(k,1958) = lu(k,1958) - lu(k,959) * lu(k,1942)
3540 315224452 : lu(k,1960) = lu(k,1960) - lu(k,960) * lu(k,1942)
3541 315224452 : lu(k,1963) = lu(k,1963) - lu(k,961) * lu(k,1942)
3542 315224452 : lu(k,1964) = lu(k,1964) - lu(k,962) * lu(k,1942)
3543 315224452 : lu(k,1966) = lu(k,1966) - lu(k,963) * lu(k,1942)
3544 315224452 : lu(k,1971) = lu(k,1971) - lu(k,964) * lu(k,1942)
3545 315224452 : lu(k,2087) = lu(k,2087) - lu(k,956) * lu(k,2081)
3546 315224452 : lu(k,2091) = lu(k,2091) - lu(k,957) * lu(k,2081)
3547 315224452 : lu(k,2092) = lu(k,2092) - lu(k,958) * lu(k,2081)
3548 315224452 : lu(k,2093) = lu(k,2093) - lu(k,959) * lu(k,2081)
3549 315224452 : lu(k,2095) = lu(k,2095) - lu(k,960) * lu(k,2081)
3550 315224452 : lu(k,2098) = lu(k,2098) - lu(k,961) * lu(k,2081)
3551 315224452 : lu(k,2099) = lu(k,2099) - lu(k,962) * lu(k,2081)
3552 315224452 : lu(k,2101) = lu(k,2101) - lu(k,963) * lu(k,2081)
3553 315224452 : lu(k,2106) = lu(k,2106) - lu(k,964) * lu(k,2081)
3554 315224452 : lu(k,2154) = lu(k,2154) - lu(k,956) * lu(k,2143)
3555 315224452 : lu(k,2158) = lu(k,2158) - lu(k,957) * lu(k,2143)
3556 315224452 : lu(k,2159) = lu(k,2159) - lu(k,958) * lu(k,2143)
3557 315224452 : lu(k,2160) = lu(k,2160) - lu(k,959) * lu(k,2143)
3558 315224452 : lu(k,2162) = lu(k,2162) - lu(k,960) * lu(k,2143)
3559 315224452 : lu(k,2165) = - lu(k,961) * lu(k,2143)
3560 315224452 : lu(k,2166) = lu(k,2166) - lu(k,962) * lu(k,2143)
3561 315224452 : lu(k,2168) = lu(k,2168) - lu(k,963) * lu(k,2143)
3562 315224452 : lu(k,2173) = lu(k,2173) - lu(k,964) * lu(k,2143)
3563 315224452 : lu(k,974) = 1._r8 / lu(k,974)
3564 315224452 : lu(k,975) = lu(k,975) * lu(k,974)
3565 315224452 : lu(k,976) = lu(k,976) * lu(k,974)
3566 315224452 : lu(k,977) = lu(k,977) * lu(k,974)
3567 315224452 : lu(k,978) = lu(k,978) * lu(k,974)
3568 315224452 : lu(k,979) = lu(k,979) * lu(k,974)
3569 315224452 : lu(k,980) = lu(k,980) * lu(k,974)
3570 315224452 : lu(k,981) = lu(k,981) * lu(k,974)
3571 315224452 : lu(k,982) = lu(k,982) * lu(k,974)
3572 315224452 : lu(k,983) = lu(k,983) * lu(k,974)
3573 315224452 : lu(k,984) = lu(k,984) * lu(k,974)
3574 315224452 : lu(k,985) = lu(k,985) * lu(k,974)
3575 315224452 : lu(k,986) = lu(k,986) * lu(k,974)
3576 315224452 : lu(k,987) = lu(k,987) * lu(k,974)
3577 315224452 : lu(k,988) = lu(k,988) * lu(k,974)
3578 315224452 : lu(k,989) = lu(k,989) * lu(k,974)
3579 315224452 : lu(k,990) = lu(k,990) * lu(k,974)
3580 315224452 : lu(k,991) = lu(k,991) * lu(k,974)
3581 315224452 : lu(k,992) = lu(k,992) * lu(k,974)
3582 315224452 : lu(k,1620) = - lu(k,975) * lu(k,1618)
3583 315224452 : lu(k,1621) = lu(k,1621) - lu(k,976) * lu(k,1618)
3584 315224452 : lu(k,1622) = - lu(k,977) * lu(k,1618)
3585 315224452 : lu(k,1623) = lu(k,1623) - lu(k,978) * lu(k,1618)
3586 315224452 : lu(k,1624) = lu(k,1624) - lu(k,979) * lu(k,1618)
3587 315224452 : lu(k,1626) = lu(k,1626) - lu(k,980) * lu(k,1618)
3588 315224452 : lu(k,1627) = - lu(k,981) * lu(k,1618)
3589 315224452 : lu(k,1630) = lu(k,1630) - lu(k,982) * lu(k,1618)
3590 315224452 : lu(k,1635) = - lu(k,983) * lu(k,1618)
3591 315224452 : lu(k,1639) = lu(k,1639) - lu(k,984) * lu(k,1618)
3592 315224452 : lu(k,1645) = lu(k,1645) - lu(k,985) * lu(k,1618)
3593 315224452 : lu(k,1646) = lu(k,1646) - lu(k,986) * lu(k,1618)
3594 315224452 : lu(k,1652) = lu(k,1652) - lu(k,987) * lu(k,1618)
3595 315224452 : lu(k,1653) = lu(k,1653) - lu(k,988) * lu(k,1618)
3596 315224452 : lu(k,1656) = lu(k,1656) - lu(k,989) * lu(k,1618)
3597 315224452 : lu(k,1662) = lu(k,1662) - lu(k,990) * lu(k,1618)
3598 315224452 : lu(k,1664) = lu(k,1664) - lu(k,991) * lu(k,1618)
3599 315224452 : lu(k,1666) = lu(k,1666) - lu(k,992) * lu(k,1618)
3600 315224452 : lu(k,1783) = lu(k,1783) - lu(k,975) * lu(k,1780)
3601 315224452 : lu(k,1784) = lu(k,1784) - lu(k,976) * lu(k,1780)
3602 315224452 : lu(k,1785) = lu(k,1785) - lu(k,977) * lu(k,1780)
3603 315224452 : lu(k,1786) = lu(k,1786) - lu(k,978) * lu(k,1780)
3604 315224452 : lu(k,1787) = lu(k,1787) - lu(k,979) * lu(k,1780)
3605 315224452 : lu(k,1789) = lu(k,1789) - lu(k,980) * lu(k,1780)
3606 315224452 : lu(k,1790) = lu(k,1790) - lu(k,981) * lu(k,1780)
3607 315224452 : lu(k,1793) = lu(k,1793) - lu(k,982) * lu(k,1780)
3608 315224452 : lu(k,1798) = lu(k,1798) - lu(k,983) * lu(k,1780)
3609 315224452 : lu(k,1802) = lu(k,1802) - lu(k,984) * lu(k,1780)
3610 315224452 : lu(k,1808) = lu(k,1808) - lu(k,985) * lu(k,1780)
3611 315224452 : lu(k,1809) = lu(k,1809) - lu(k,986) * lu(k,1780)
3612 315224452 : lu(k,1817) = lu(k,1817) - lu(k,987) * lu(k,1780)
3613 315224452 : lu(k,1818) = lu(k,1818) - lu(k,988) * lu(k,1780)
3614 315224452 : lu(k,1821) = lu(k,1821) - lu(k,989) * lu(k,1780)
3615 315224452 : lu(k,1827) = lu(k,1827) - lu(k,990) * lu(k,1780)
3616 315224452 : lu(k,1829) = lu(k,1829) - lu(k,991) * lu(k,1780)
3617 315224452 : lu(k,1831) = lu(k,1831) - lu(k,992) * lu(k,1780)
3618 315224452 : lu(k,2194) = lu(k,2194) - lu(k,975) * lu(k,2192)
3619 315224452 : lu(k,2195) = lu(k,2195) - lu(k,976) * lu(k,2192)
3620 315224452 : lu(k,2196) = - lu(k,977) * lu(k,2192)
3621 315224452 : lu(k,2197) = lu(k,2197) - lu(k,978) * lu(k,2192)
3622 315224452 : lu(k,2198) = lu(k,2198) - lu(k,979) * lu(k,2192)
3623 315224452 : lu(k,2199) = - lu(k,980) * lu(k,2192)
3624 315224452 : lu(k,2200) = lu(k,2200) - lu(k,981) * lu(k,2192)
3625 315224452 : lu(k,2203) = lu(k,2203) - lu(k,982) * lu(k,2192)
3626 315224452 : lu(k,2207) = lu(k,2207) - lu(k,983) * lu(k,2192)
3627 315224452 : lu(k,2210) = lu(k,2210) - lu(k,984) * lu(k,2192)
3628 315224452 : lu(k,2216) = lu(k,2216) - lu(k,985) * lu(k,2192)
3629 315224452 : lu(k,2217) = lu(k,2217) - lu(k,986) * lu(k,2192)
3630 315224452 : lu(k,2223) = lu(k,2223) - lu(k,987) * lu(k,2192)
3631 315224452 : lu(k,2224) = lu(k,2224) - lu(k,988) * lu(k,2192)
3632 315224452 : lu(k,2227) = lu(k,2227) - lu(k,989) * lu(k,2192)
3633 315224452 : lu(k,2233) = lu(k,2233) - lu(k,990) * lu(k,2192)
3634 315224452 : lu(k,2235) = lu(k,2235) - lu(k,991) * lu(k,2192)
3635 325174377 : lu(k,2237) = lu(k,2237) - lu(k,992) * lu(k,2192)
3636 : end do
3637 9949925 : end subroutine lu_fac20
3638 9949925 : subroutine lu_fac21( avec_len, lu )
3639 : use chem_mods, only : nzcnt
3640 : use shr_kind_mod, only : r8 => shr_kind_r8
3641 : implicit none
3642 : !-----------------------------------------------------------------------
3643 : ! ... dummy args
3644 : !-----------------------------------------------------------------------
3645 : integer, intent(in) :: avec_len
3646 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3647 : !-----------------------------------------------------------------------
3648 : ! ... local variables
3649 : !-----------------------------------------------------------------------
3650 : integer :: k
3651 325174377 : do k = 1,avec_len
3652 315224452 : lu(k,999) = 1._r8 / lu(k,999)
3653 315224452 : lu(k,1000) = lu(k,1000) * lu(k,999)
3654 315224452 : lu(k,1001) = lu(k,1001) * lu(k,999)
3655 315224452 : lu(k,1002) = lu(k,1002) * lu(k,999)
3656 315224452 : lu(k,1003) = lu(k,1003) * lu(k,999)
3657 315224452 : lu(k,1004) = lu(k,1004) * lu(k,999)
3658 315224452 : lu(k,1005) = lu(k,1005) * lu(k,999)
3659 315224452 : lu(k,1006) = lu(k,1006) * lu(k,999)
3660 315224452 : lu(k,1007) = lu(k,1007) * lu(k,999)
3661 315224452 : lu(k,1008) = lu(k,1008) * lu(k,999)
3662 315224452 : lu(k,1449) = lu(k,1449) - lu(k,1000) * lu(k,1448)
3663 315224452 : lu(k,1450) = lu(k,1450) - lu(k,1001) * lu(k,1448)
3664 315224452 : lu(k,1451) = lu(k,1451) - lu(k,1002) * lu(k,1448)
3665 315224452 : lu(k,1452) = - lu(k,1003) * lu(k,1448)
3666 315224452 : lu(k,1453) = lu(k,1453) - lu(k,1004) * lu(k,1448)
3667 315224452 : lu(k,1454) = - lu(k,1005) * lu(k,1448)
3668 315224452 : lu(k,1455) = lu(k,1455) - lu(k,1006) * lu(k,1448)
3669 315224452 : lu(k,1456) = lu(k,1456) - lu(k,1007) * lu(k,1448)
3670 315224452 : lu(k,1457) = - lu(k,1008) * lu(k,1448)
3671 315224452 : lu(k,1537) = lu(k,1537) - lu(k,1000) * lu(k,1536)
3672 315224452 : lu(k,1539) = lu(k,1539) - lu(k,1001) * lu(k,1536)
3673 315224452 : lu(k,1542) = lu(k,1542) - lu(k,1002) * lu(k,1536)
3674 315224452 : lu(k,1545) = lu(k,1545) - lu(k,1003) * lu(k,1536)
3675 315224452 : lu(k,1546) = lu(k,1546) - lu(k,1004) * lu(k,1536)
3676 315224452 : lu(k,1547) = - lu(k,1005) * lu(k,1536)
3677 315224452 : lu(k,1549) = lu(k,1549) - lu(k,1006) * lu(k,1536)
3678 315224452 : lu(k,1550) = lu(k,1550) - lu(k,1007) * lu(k,1536)
3679 315224452 : lu(k,1551) = lu(k,1551) - lu(k,1008) * lu(k,1536)
3680 315224452 : lu(k,1793) = lu(k,1793) - lu(k,1000) * lu(k,1781)
3681 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1001) * lu(k,1781)
3682 315224452 : lu(k,1814) = lu(k,1814) - lu(k,1002) * lu(k,1781)
3683 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1003) * lu(k,1781)
3684 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1004) * lu(k,1781)
3685 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1005) * lu(k,1781)
3686 315224452 : lu(k,1822) = lu(k,1822) - lu(k,1006) * lu(k,1781)
3687 315224452 : lu(k,1824) = lu(k,1824) - lu(k,1007) * lu(k,1781)
3688 315224452 : lu(k,1825) = lu(k,1825) - lu(k,1008) * lu(k,1781)
3689 315224452 : lu(k,1891) = lu(k,1891) - lu(k,1000) * lu(k,1881)
3690 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1001) * lu(k,1881)
3691 315224452 : lu(k,1909) = lu(k,1909) - lu(k,1002) * lu(k,1881)
3692 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1003) * lu(k,1881)
3693 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1004) * lu(k,1881)
3694 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1005) * lu(k,1881)
3695 315224452 : lu(k,1917) = lu(k,1917) - lu(k,1006) * lu(k,1881)
3696 315224452 : lu(k,1919) = lu(k,1919) - lu(k,1007) * lu(k,1881)
3697 315224452 : lu(k,1920) = - lu(k,1008) * lu(k,1881)
3698 315224452 : lu(k,1945) = lu(k,1945) - lu(k,1000) * lu(k,1943)
3699 315224452 : lu(k,1950) = lu(k,1950) - lu(k,1001) * lu(k,1943)
3700 315224452 : lu(k,1954) = lu(k,1954) - lu(k,1002) * lu(k,1943)
3701 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1003) * lu(k,1943)
3702 315224452 : lu(k,1959) = lu(k,1959) - lu(k,1004) * lu(k,1943)
3703 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1005) * lu(k,1943)
3704 315224452 : lu(k,1962) = lu(k,1962) - lu(k,1006) * lu(k,1943)
3705 315224452 : lu(k,1964) = lu(k,1964) - lu(k,1007) * lu(k,1943)
3706 315224452 : lu(k,1965) = - lu(k,1008) * lu(k,1943)
3707 315224452 : lu(k,2083) = lu(k,2083) - lu(k,1000) * lu(k,2082)
3708 315224452 : lu(k,2084) = lu(k,2084) - lu(k,1001) * lu(k,2082)
3709 315224452 : lu(k,2089) = lu(k,2089) - lu(k,1002) * lu(k,2082)
3710 315224452 : lu(k,2093) = lu(k,2093) - lu(k,1003) * lu(k,2082)
3711 315224452 : lu(k,2094) = lu(k,2094) - lu(k,1004) * lu(k,2082)
3712 315224452 : lu(k,2095) = lu(k,2095) - lu(k,1005) * lu(k,2082)
3713 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1006) * lu(k,2082)
3714 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1007) * lu(k,2082)
3715 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1008) * lu(k,2082)
3716 315224452 : lu(k,1018) = 1._r8 / lu(k,1018)
3717 315224452 : lu(k,1019) = lu(k,1019) * lu(k,1018)
3718 315224452 : lu(k,1020) = lu(k,1020) * lu(k,1018)
3719 315224452 : lu(k,1021) = lu(k,1021) * lu(k,1018)
3720 315224452 : lu(k,1022) = lu(k,1022) * lu(k,1018)
3721 315224452 : lu(k,1023) = lu(k,1023) * lu(k,1018)
3722 315224452 : lu(k,1024) = lu(k,1024) * lu(k,1018)
3723 315224452 : lu(k,1025) = lu(k,1025) * lu(k,1018)
3724 315224452 : lu(k,1026) = lu(k,1026) * lu(k,1018)
3725 315224452 : lu(k,1027) = lu(k,1027) * lu(k,1018)
3726 315224452 : lu(k,1028) = lu(k,1028) * lu(k,1018)
3727 315224452 : lu(k,1029) = lu(k,1029) * lu(k,1018)
3728 315224452 : lu(k,1030) = lu(k,1030) * lu(k,1018)
3729 315224452 : lu(k,1031) = lu(k,1031) * lu(k,1018)
3730 315224452 : lu(k,1032) = lu(k,1032) * lu(k,1018)
3731 315224452 : lu(k,1033) = lu(k,1033) * lu(k,1018)
3732 315224452 : lu(k,1034) = lu(k,1034) * lu(k,1018)
3733 315224452 : lu(k,1035) = lu(k,1035) * lu(k,1018)
3734 315224452 : lu(k,1036) = lu(k,1036) * lu(k,1018)
3735 315224452 : lu(k,1620) = lu(k,1620) - lu(k,1019) * lu(k,1619)
3736 315224452 : lu(k,1621) = lu(k,1621) - lu(k,1020) * lu(k,1619)
3737 315224452 : lu(k,1622) = lu(k,1622) - lu(k,1021) * lu(k,1619)
3738 315224452 : lu(k,1623) = lu(k,1623) - lu(k,1022) * lu(k,1619)
3739 315224452 : lu(k,1624) = lu(k,1624) - lu(k,1023) * lu(k,1619)
3740 315224452 : lu(k,1626) = lu(k,1626) - lu(k,1024) * lu(k,1619)
3741 315224452 : lu(k,1627) = lu(k,1627) - lu(k,1025) * lu(k,1619)
3742 315224452 : lu(k,1630) = lu(k,1630) - lu(k,1026) * lu(k,1619)
3743 315224452 : lu(k,1635) = lu(k,1635) - lu(k,1027) * lu(k,1619)
3744 315224452 : lu(k,1639) = lu(k,1639) - lu(k,1028) * lu(k,1619)
3745 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1029) * lu(k,1619)
3746 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1030) * lu(k,1619)
3747 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1031) * lu(k,1619)
3748 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1032) * lu(k,1619)
3749 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1033) * lu(k,1619)
3750 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1034) * lu(k,1619)
3751 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1035) * lu(k,1619)
3752 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1036) * lu(k,1619)
3753 315224452 : lu(k,1783) = lu(k,1783) - lu(k,1019) * lu(k,1782)
3754 315224452 : lu(k,1784) = lu(k,1784) - lu(k,1020) * lu(k,1782)
3755 315224452 : lu(k,1785) = lu(k,1785) - lu(k,1021) * lu(k,1782)
3756 315224452 : lu(k,1786) = lu(k,1786) - lu(k,1022) * lu(k,1782)
3757 315224452 : lu(k,1787) = lu(k,1787) - lu(k,1023) * lu(k,1782)
3758 315224452 : lu(k,1789) = lu(k,1789) - lu(k,1024) * lu(k,1782)
3759 315224452 : lu(k,1790) = lu(k,1790) - lu(k,1025) * lu(k,1782)
3760 315224452 : lu(k,1793) = lu(k,1793) - lu(k,1026) * lu(k,1782)
3761 315224452 : lu(k,1798) = lu(k,1798) - lu(k,1027) * lu(k,1782)
3762 315224452 : lu(k,1802) = lu(k,1802) - lu(k,1028) * lu(k,1782)
3763 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1029) * lu(k,1782)
3764 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1030) * lu(k,1782)
3765 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1031) * lu(k,1782)
3766 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1032) * lu(k,1782)
3767 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1033) * lu(k,1782)
3768 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1034) * lu(k,1782)
3769 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1035) * lu(k,1782)
3770 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1036) * lu(k,1782)
3771 315224452 : lu(k,2194) = lu(k,2194) - lu(k,1019) * lu(k,2193)
3772 315224452 : lu(k,2195) = lu(k,2195) - lu(k,1020) * lu(k,2193)
3773 315224452 : lu(k,2196) = lu(k,2196) - lu(k,1021) * lu(k,2193)
3774 315224452 : lu(k,2197) = lu(k,2197) - lu(k,1022) * lu(k,2193)
3775 315224452 : lu(k,2198) = lu(k,2198) - lu(k,1023) * lu(k,2193)
3776 315224452 : lu(k,2199) = lu(k,2199) - lu(k,1024) * lu(k,2193)
3777 315224452 : lu(k,2200) = lu(k,2200) - lu(k,1025) * lu(k,2193)
3778 315224452 : lu(k,2203) = lu(k,2203) - lu(k,1026) * lu(k,2193)
3779 315224452 : lu(k,2207) = lu(k,2207) - lu(k,1027) * lu(k,2193)
3780 315224452 : lu(k,2210) = lu(k,2210) - lu(k,1028) * lu(k,2193)
3781 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1029) * lu(k,2193)
3782 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1030) * lu(k,2193)
3783 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1031) * lu(k,2193)
3784 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1032) * lu(k,2193)
3785 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1033) * lu(k,2193)
3786 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1034) * lu(k,2193)
3787 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1035) * lu(k,2193)
3788 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1036) * lu(k,2193)
3789 315224452 : lu(k,1042) = 1._r8 / lu(k,1042)
3790 315224452 : lu(k,1043) = lu(k,1043) * lu(k,1042)
3791 315224452 : lu(k,1044) = lu(k,1044) * lu(k,1042)
3792 315224452 : lu(k,1045) = lu(k,1045) * lu(k,1042)
3793 315224452 : lu(k,1046) = lu(k,1046) * lu(k,1042)
3794 315224452 : lu(k,1047) = lu(k,1047) * lu(k,1042)
3795 315224452 : lu(k,1048) = lu(k,1048) * lu(k,1042)
3796 315224452 : lu(k,1049) = lu(k,1049) * lu(k,1042)
3797 315224452 : lu(k,1050) = lu(k,1050) * lu(k,1042)
3798 315224452 : lu(k,1051) = lu(k,1051) * lu(k,1042)
3799 315224452 : lu(k,1052) = lu(k,1052) * lu(k,1042)
3800 315224452 : lu(k,1624) = lu(k,1624) - lu(k,1043) * lu(k,1620)
3801 315224452 : lu(k,1629) = lu(k,1629) - lu(k,1044) * lu(k,1620)
3802 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1045) * lu(k,1620)
3803 315224452 : lu(k,1649) = lu(k,1649) - lu(k,1046) * lu(k,1620)
3804 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1047) * lu(k,1620)
3805 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1048) * lu(k,1620)
3806 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1049) * lu(k,1620)
3807 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1050) * lu(k,1620)
3808 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1051) * lu(k,1620)
3809 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1052) * lu(k,1620)
3810 315224452 : lu(k,1787) = lu(k,1787) - lu(k,1043) * lu(k,1783)
3811 315224452 : lu(k,1792) = lu(k,1792) - lu(k,1044) * lu(k,1783)
3812 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1045) * lu(k,1783)
3813 315224452 : lu(k,1814) = lu(k,1814) - lu(k,1046) * lu(k,1783)
3814 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1047) * lu(k,1783)
3815 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1048) * lu(k,1783)
3816 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1049) * lu(k,1783)
3817 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1050) * lu(k,1783)
3818 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1051) * lu(k,1783)
3819 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1052) * lu(k,1783)
3820 315224452 : lu(k,1886) = lu(k,1886) - lu(k,1043) * lu(k,1882)
3821 315224452 : lu(k,1890) = lu(k,1890) - lu(k,1044) * lu(k,1882)
3822 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1045) * lu(k,1882)
3823 315224452 : lu(k,1909) = lu(k,1909) - lu(k,1046) * lu(k,1882)
3824 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1047) * lu(k,1882)
3825 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1048) * lu(k,1882)
3826 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1049) * lu(k,1882)
3827 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1050) * lu(k,1882)
3828 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1051) * lu(k,1882)
3829 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1052) * lu(k,1882)
3830 315224452 : lu(k,2198) = lu(k,2198) - lu(k,1043) * lu(k,2194)
3831 315224452 : lu(k,2202) = lu(k,2202) - lu(k,1044) * lu(k,2194)
3832 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1045) * lu(k,2194)
3833 315224452 : lu(k,2220) = lu(k,2220) - lu(k,1046) * lu(k,2194)
3834 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1047) * lu(k,2194)
3835 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1048) * lu(k,2194)
3836 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1049) * lu(k,2194)
3837 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1050) * lu(k,2194)
3838 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1051) * lu(k,2194)
3839 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1052) * lu(k,2194)
3840 315224452 : lu(k,2330) = lu(k,2330) - lu(k,1043) * lu(k,2326)
3841 315224452 : lu(k,2333) = lu(k,2333) - lu(k,1044) * lu(k,2326)
3842 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1045) * lu(k,2326)
3843 315224452 : lu(k,2353) = lu(k,2353) - lu(k,1046) * lu(k,2326)
3844 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1047) * lu(k,2326)
3845 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1048) * lu(k,2326)
3846 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1049) * lu(k,2326)
3847 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1050) * lu(k,2326)
3848 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1051) * lu(k,2326)
3849 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1052) * lu(k,2326)
3850 315224452 : lu(k,1054) = 1._r8 / lu(k,1054)
3851 315224452 : lu(k,1055) = lu(k,1055) * lu(k,1054)
3852 315224452 : lu(k,1056) = lu(k,1056) * lu(k,1054)
3853 315224452 : lu(k,1057) = lu(k,1057) * lu(k,1054)
3854 315224452 : lu(k,1058) = lu(k,1058) * lu(k,1054)
3855 315224452 : lu(k,1091) = lu(k,1091) - lu(k,1055) * lu(k,1089)
3856 315224452 : lu(k,1094) = - lu(k,1056) * lu(k,1089)
3857 315224452 : lu(k,1095) = lu(k,1095) - lu(k,1057) * lu(k,1089)
3858 315224452 : lu(k,1100) = lu(k,1100) - lu(k,1058) * lu(k,1089)
3859 315224452 : lu(k,1165) = lu(k,1165) - lu(k,1055) * lu(k,1164)
3860 315224452 : lu(k,1167) = lu(k,1167) - lu(k,1056) * lu(k,1164)
3861 315224452 : lu(k,1168) = lu(k,1168) - lu(k,1057) * lu(k,1164)
3862 315224452 : lu(k,1170) = lu(k,1170) - lu(k,1058) * lu(k,1164)
3863 315224452 : lu(k,1230) = lu(k,1230) - lu(k,1055) * lu(k,1229)
3864 315224452 : lu(k,1236) = lu(k,1236) - lu(k,1056) * lu(k,1229)
3865 315224452 : lu(k,1238) = lu(k,1238) - lu(k,1057) * lu(k,1229)
3866 315224452 : lu(k,1242) = lu(k,1242) - lu(k,1058) * lu(k,1229)
3867 315224452 : lu(k,1324) = lu(k,1324) - lu(k,1055) * lu(k,1323)
3868 315224452 : lu(k,1337) = - lu(k,1056) * lu(k,1323)
3869 315224452 : lu(k,1339) = lu(k,1339) - lu(k,1057) * lu(k,1323)
3870 315224452 : lu(k,1345) = lu(k,1345) - lu(k,1058) * lu(k,1323)
3871 315224452 : lu(k,1416) = lu(k,1416) - lu(k,1055) * lu(k,1414)
3872 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1056) * lu(k,1414)
3873 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1057) * lu(k,1414)
3874 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1058) * lu(k,1414)
3875 315224452 : lu(k,1630) = lu(k,1630) - lu(k,1055) * lu(k,1621)
3876 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1056) * lu(k,1621)
3877 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1057) * lu(k,1621)
3878 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1058) * lu(k,1621)
3879 315224452 : lu(k,1793) = lu(k,1793) - lu(k,1055) * lu(k,1784)
3880 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1056) * lu(k,1784)
3881 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1057) * lu(k,1784)
3882 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1058) * lu(k,1784)
3883 315224452 : lu(k,1891) = lu(k,1891) - lu(k,1055) * lu(k,1883)
3884 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1056) * lu(k,1883)
3885 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1057) * lu(k,1883)
3886 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1058) * lu(k,1883)
3887 315224452 : lu(k,1945) = lu(k,1945) - lu(k,1055) * lu(k,1944)
3888 315224452 : lu(k,1950) = lu(k,1950) - lu(k,1056) * lu(k,1944)
3889 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1057) * lu(k,1944)
3890 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1058) * lu(k,1944)
3891 315224452 : lu(k,2147) = lu(k,2147) - lu(k,1055) * lu(k,2144)
3892 315224452 : lu(k,2152) = lu(k,2152) - lu(k,1056) * lu(k,2144)
3893 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1057) * lu(k,2144)
3894 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1058) * lu(k,2144)
3895 315224452 : lu(k,2203) = lu(k,2203) - lu(k,1055) * lu(k,2195)
3896 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1056) * lu(k,2195)
3897 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1057) * lu(k,2195)
3898 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1058) * lu(k,2195)
3899 315224452 : lu(k,2334) = lu(k,2334) - lu(k,1055) * lu(k,2327)
3900 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1056) * lu(k,2327)
3901 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1057) * lu(k,2327)
3902 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1058) * lu(k,2327)
3903 315224452 : lu(k,2389) = lu(k,2389) - lu(k,1055) * lu(k,2381)
3904 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1056) * lu(k,2381)
3905 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1057) * lu(k,2381)
3906 325174377 : lu(k,2420) = lu(k,2420) - lu(k,1058) * lu(k,2381)
3907 : end do
3908 9949925 : end subroutine lu_fac21
3909 9949925 : subroutine lu_fac22( avec_len, lu )
3910 : use chem_mods, only : nzcnt
3911 : use shr_kind_mod, only : r8 => shr_kind_r8
3912 : implicit none
3913 : !-----------------------------------------------------------------------
3914 : ! ... dummy args
3915 : !-----------------------------------------------------------------------
3916 : integer, intent(in) :: avec_len
3917 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3918 : !-----------------------------------------------------------------------
3919 : ! ... local variables
3920 : !-----------------------------------------------------------------------
3921 : integer :: k
3922 325174377 : do k = 1,avec_len
3923 315224452 : lu(k,1062) = 1._r8 / lu(k,1062)
3924 315224452 : lu(k,1063) = lu(k,1063) * lu(k,1062)
3925 315224452 : lu(k,1064) = lu(k,1064) * lu(k,1062)
3926 315224452 : lu(k,1065) = lu(k,1065) * lu(k,1062)
3927 315224452 : lu(k,1066) = lu(k,1066) * lu(k,1062)
3928 315224452 : lu(k,1067) = lu(k,1067) * lu(k,1062)
3929 315224452 : lu(k,1068) = lu(k,1068) * lu(k,1062)
3930 315224452 : lu(k,1069) = lu(k,1069) * lu(k,1062)
3931 315224452 : lu(k,1070) = lu(k,1070) * lu(k,1062)
3932 315224452 : lu(k,1071) = lu(k,1071) * lu(k,1062)
3933 315224452 : lu(k,1623) = lu(k,1623) - lu(k,1063) * lu(k,1622)
3934 315224452 : lu(k,1624) = lu(k,1624) - lu(k,1064) * lu(k,1622)
3935 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1065) * lu(k,1622)
3936 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1066) * lu(k,1622)
3937 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1067) * lu(k,1622)
3938 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1068) * lu(k,1622)
3939 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1069) * lu(k,1622)
3940 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1070) * lu(k,1622)
3941 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1071) * lu(k,1622)
3942 315224452 : lu(k,1786) = lu(k,1786) - lu(k,1063) * lu(k,1785)
3943 315224452 : lu(k,1787) = lu(k,1787) - lu(k,1064) * lu(k,1785)
3944 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1065) * lu(k,1785)
3945 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1066) * lu(k,1785)
3946 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1067) * lu(k,1785)
3947 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1068) * lu(k,1785)
3948 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1069) * lu(k,1785)
3949 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1070) * lu(k,1785)
3950 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1071) * lu(k,1785)
3951 315224452 : lu(k,1885) = lu(k,1885) - lu(k,1063) * lu(k,1884)
3952 315224452 : lu(k,1886) = lu(k,1886) - lu(k,1064) * lu(k,1884)
3953 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1065) * lu(k,1884)
3954 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1066) * lu(k,1884)
3955 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1067) * lu(k,1884)
3956 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1068) * lu(k,1884)
3957 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1069) * lu(k,1884)
3958 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1070) * lu(k,1884)
3959 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1071) * lu(k,1884)
3960 315224452 : lu(k,2197) = lu(k,2197) - lu(k,1063) * lu(k,2196)
3961 315224452 : lu(k,2198) = lu(k,2198) - lu(k,1064) * lu(k,2196)
3962 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1065) * lu(k,2196)
3963 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1066) * lu(k,2196)
3964 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1067) * lu(k,2196)
3965 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1068) * lu(k,2196)
3966 315224452 : lu(k,2229) = - lu(k,1069) * lu(k,2196)
3967 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1070) * lu(k,2196)
3968 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1071) * lu(k,2196)
3969 315224452 : lu(k,2329) = lu(k,2329) - lu(k,1063) * lu(k,2328)
3970 315224452 : lu(k,2330) = lu(k,2330) - lu(k,1064) * lu(k,2328)
3971 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1065) * lu(k,2328)
3972 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1066) * lu(k,2328)
3973 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1067) * lu(k,2328)
3974 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1068) * lu(k,2328)
3975 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1069) * lu(k,2328)
3976 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1070) * lu(k,2328)
3977 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1071) * lu(k,2328)
3978 315224452 : lu(k,2383) = lu(k,2383) - lu(k,1063) * lu(k,2382)
3979 315224452 : lu(k,2384) = lu(k,2384) - lu(k,1064) * lu(k,2382)
3980 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1065) * lu(k,2382)
3981 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1066) * lu(k,2382)
3982 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1067) * lu(k,2382)
3983 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1068) * lu(k,2382)
3984 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1069) * lu(k,2382)
3985 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1070) * lu(k,2382)
3986 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1071) * lu(k,2382)
3987 315224452 : lu(k,1072) = 1._r8 / lu(k,1072)
3988 315224452 : lu(k,1073) = lu(k,1073) * lu(k,1072)
3989 315224452 : lu(k,1074) = lu(k,1074) * lu(k,1072)
3990 315224452 : lu(k,1075) = lu(k,1075) * lu(k,1072)
3991 315224452 : lu(k,1076) = lu(k,1076) * lu(k,1072)
3992 315224452 : lu(k,1077) = lu(k,1077) * lu(k,1072)
3993 315224452 : lu(k,1078) = lu(k,1078) * lu(k,1072)
3994 315224452 : lu(k,1079) = lu(k,1079) * lu(k,1072)
3995 315224452 : lu(k,1106) = lu(k,1106) - lu(k,1073) * lu(k,1105)
3996 315224452 : lu(k,1107) = - lu(k,1074) * lu(k,1105)
3997 315224452 : lu(k,1108) = - lu(k,1075) * lu(k,1105)
3998 315224452 : lu(k,1109) = - lu(k,1076) * lu(k,1105)
3999 315224452 : lu(k,1110) = lu(k,1110) - lu(k,1077) * lu(k,1105)
4000 315224452 : lu(k,1111) = lu(k,1111) - lu(k,1078) * lu(k,1105)
4001 315224452 : lu(k,1116) = lu(k,1116) - lu(k,1079) * lu(k,1105)
4002 315224452 : lu(k,1626) = lu(k,1626) - lu(k,1073) * lu(k,1623)
4003 315224452 : lu(k,1627) = lu(k,1627) - lu(k,1074) * lu(k,1623)
4004 315224452 : lu(k,1630) = lu(k,1630) - lu(k,1075) * lu(k,1623)
4005 315224452 : lu(k,1632) = lu(k,1632) - lu(k,1076) * lu(k,1623)
4006 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1077) * lu(k,1623)
4007 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1078) * lu(k,1623)
4008 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1079) * lu(k,1623)
4009 315224452 : lu(k,1789) = lu(k,1789) - lu(k,1073) * lu(k,1786)
4010 315224452 : lu(k,1790) = lu(k,1790) - lu(k,1074) * lu(k,1786)
4011 315224452 : lu(k,1793) = lu(k,1793) - lu(k,1075) * lu(k,1786)
4012 315224452 : lu(k,1795) = lu(k,1795) - lu(k,1076) * lu(k,1786)
4013 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1077) * lu(k,1786)
4014 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1078) * lu(k,1786)
4015 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1079) * lu(k,1786)
4016 315224452 : lu(k,1888) = lu(k,1888) - lu(k,1073) * lu(k,1885)
4017 315224452 : lu(k,1889) = lu(k,1889) - lu(k,1074) * lu(k,1885)
4018 315224452 : lu(k,1891) = lu(k,1891) - lu(k,1075) * lu(k,1885)
4019 315224452 : lu(k,1893) = lu(k,1893) - lu(k,1076) * lu(k,1885)
4020 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1077) * lu(k,1885)
4021 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1078) * lu(k,1885)
4022 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1079) * lu(k,1885)
4023 315224452 : lu(k,2199) = lu(k,2199) - lu(k,1073) * lu(k,2197)
4024 315224452 : lu(k,2200) = lu(k,2200) - lu(k,1074) * lu(k,2197)
4025 315224452 : lu(k,2203) = lu(k,2203) - lu(k,1075) * lu(k,2197)
4026 315224452 : lu(k,2205) = - lu(k,1076) * lu(k,2197)
4027 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1077) * lu(k,2197)
4028 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1078) * lu(k,2197)
4029 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1079) * lu(k,2197)
4030 315224452 : lu(k,2331) = lu(k,2331) - lu(k,1073) * lu(k,2329)
4031 315224452 : lu(k,2332) = lu(k,2332) - lu(k,1074) * lu(k,2329)
4032 315224452 : lu(k,2334) = lu(k,2334) - lu(k,1075) * lu(k,2329)
4033 315224452 : lu(k,2336) = lu(k,2336) - lu(k,1076) * lu(k,2329)
4034 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1077) * lu(k,2329)
4035 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1078) * lu(k,2329)
4036 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1079) * lu(k,2329)
4037 315224452 : lu(k,2386) = lu(k,2386) - lu(k,1073) * lu(k,2383)
4038 315224452 : lu(k,2387) = lu(k,2387) - lu(k,1074) * lu(k,2383)
4039 315224452 : lu(k,2389) = lu(k,2389) - lu(k,1075) * lu(k,2383)
4040 315224452 : lu(k,2391) = lu(k,2391) - lu(k,1076) * lu(k,2383)
4041 315224452 : lu(k,2408) = - lu(k,1077) * lu(k,2383)
4042 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1078) * lu(k,2383)
4043 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1079) * lu(k,2383)
4044 315224452 : lu(k,1080) = 1._r8 / lu(k,1080)
4045 315224452 : lu(k,1081) = lu(k,1081) * lu(k,1080)
4046 315224452 : lu(k,1082) = lu(k,1082) * lu(k,1080)
4047 315224452 : lu(k,1083) = lu(k,1083) * lu(k,1080)
4048 315224452 : lu(k,1084) = lu(k,1084) * lu(k,1080)
4049 315224452 : lu(k,1085) = lu(k,1085) * lu(k,1080)
4050 315224452 : lu(k,1121) = lu(k,1121) - lu(k,1081) * lu(k,1118)
4051 315224452 : lu(k,1122) = lu(k,1122) - lu(k,1082) * lu(k,1118)
4052 315224452 : lu(k,1124) = lu(k,1124) - lu(k,1083) * lu(k,1118)
4053 315224452 : lu(k,1127) = - lu(k,1084) * lu(k,1118)
4054 315224452 : lu(k,1128) = - lu(k,1085) * lu(k,1118)
4055 315224452 : lu(k,1179) = - lu(k,1081) * lu(k,1174)
4056 315224452 : lu(k,1180) = - lu(k,1082) * lu(k,1174)
4057 315224452 : lu(k,1182) = lu(k,1182) - lu(k,1083) * lu(k,1174)
4058 315224452 : lu(k,1188) = lu(k,1188) - lu(k,1084) * lu(k,1174)
4059 315224452 : lu(k,1189) = - lu(k,1085) * lu(k,1174)
4060 315224452 : lu(k,1197) = - lu(k,1081) * lu(k,1191)
4061 315224452 : lu(k,1198) = lu(k,1198) - lu(k,1082) * lu(k,1191)
4062 315224452 : lu(k,1201) = lu(k,1201) - lu(k,1083) * lu(k,1191)
4063 315224452 : lu(k,1206) = - lu(k,1084) * lu(k,1191)
4064 315224452 : lu(k,1207) = - lu(k,1085) * lu(k,1191)
4065 315224452 : lu(k,1635) = lu(k,1635) - lu(k,1081) * lu(k,1624)
4066 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1082) * lu(k,1624)
4067 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1083) * lu(k,1624)
4068 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1084) * lu(k,1624)
4069 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1085) * lu(k,1624)
4070 315224452 : lu(k,1798) = lu(k,1798) - lu(k,1081) * lu(k,1787)
4071 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1082) * lu(k,1787)
4072 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1083) * lu(k,1787)
4073 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1084) * lu(k,1787)
4074 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1085) * lu(k,1787)
4075 315224452 : lu(k,1896) = lu(k,1896) - lu(k,1081) * lu(k,1886)
4076 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1082) * lu(k,1886)
4077 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1083) * lu(k,1886)
4078 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1084) * lu(k,1886)
4079 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1085) * lu(k,1886)
4080 315224452 : lu(k,2149) = - lu(k,1081) * lu(k,2145)
4081 315224452 : lu(k,2151) = - lu(k,1082) * lu(k,2145)
4082 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1083) * lu(k,2145)
4083 315224452 : lu(k,2172) = lu(k,2172) - lu(k,1084) * lu(k,2145)
4084 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1085) * lu(k,2145)
4085 315224452 : lu(k,2207) = lu(k,2207) - lu(k,1081) * lu(k,2198)
4086 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1082) * lu(k,2198)
4087 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1083) * lu(k,2198)
4088 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1084) * lu(k,2198)
4089 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1085) * lu(k,2198)
4090 315224452 : lu(k,2338) = lu(k,2338) - lu(k,1081) * lu(k,2330)
4091 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1082) * lu(k,2330)
4092 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1083) * lu(k,2330)
4093 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1084) * lu(k,2330)
4094 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1085) * lu(k,2330)
4095 315224452 : lu(k,2393) = lu(k,2393) - lu(k,1081) * lu(k,2384)
4096 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1082) * lu(k,2384)
4097 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1083) * lu(k,2384)
4098 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1084) * lu(k,2384)
4099 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1085) * lu(k,2384)
4100 315224452 : lu(k,1090) = 1._r8 / lu(k,1090)
4101 315224452 : lu(k,1091) = lu(k,1091) * lu(k,1090)
4102 315224452 : lu(k,1092) = lu(k,1092) * lu(k,1090)
4103 315224452 : lu(k,1093) = lu(k,1093) * lu(k,1090)
4104 315224452 : lu(k,1094) = lu(k,1094) * lu(k,1090)
4105 315224452 : lu(k,1095) = lu(k,1095) * lu(k,1090)
4106 315224452 : lu(k,1096) = lu(k,1096) * lu(k,1090)
4107 315224452 : lu(k,1097) = lu(k,1097) * lu(k,1090)
4108 315224452 : lu(k,1098) = lu(k,1098) * lu(k,1090)
4109 315224452 : lu(k,1099) = lu(k,1099) * lu(k,1090)
4110 315224452 : lu(k,1100) = lu(k,1100) * lu(k,1090)
4111 315224452 : lu(k,1101) = lu(k,1101) * lu(k,1090)
4112 315224452 : lu(k,1250) = - lu(k,1091) * lu(k,1249)
4113 315224452 : lu(k,1255) = lu(k,1255) - lu(k,1092) * lu(k,1249)
4114 315224452 : lu(k,1257) = lu(k,1257) - lu(k,1093) * lu(k,1249)
4115 315224452 : lu(k,1258) = - lu(k,1094) * lu(k,1249)
4116 315224452 : lu(k,1260) = lu(k,1260) - lu(k,1095) * lu(k,1249)
4117 315224452 : lu(k,1261) = lu(k,1261) - lu(k,1096) * lu(k,1249)
4118 315224452 : lu(k,1262) = lu(k,1262) - lu(k,1097) * lu(k,1249)
4119 315224452 : lu(k,1263) = lu(k,1263) - lu(k,1098) * lu(k,1249)
4120 315224452 : lu(k,1264) = lu(k,1264) - lu(k,1099) * lu(k,1249)
4121 315224452 : lu(k,1265) = lu(k,1265) - lu(k,1100) * lu(k,1249)
4122 315224452 : lu(k,1266) = lu(k,1266) - lu(k,1101) * lu(k,1249)
4123 315224452 : lu(k,1416) = lu(k,1416) - lu(k,1091) * lu(k,1415)
4124 315224452 : lu(k,1422) = lu(k,1422) - lu(k,1092) * lu(k,1415)
4125 315224452 : lu(k,1428) = lu(k,1428) - lu(k,1093) * lu(k,1415)
4126 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1094) * lu(k,1415)
4127 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1095) * lu(k,1415)
4128 315224452 : lu(k,1433) = lu(k,1433) - lu(k,1096) * lu(k,1415)
4129 315224452 : lu(k,1434) = lu(k,1434) - lu(k,1097) * lu(k,1415)
4130 315224452 : lu(k,1435) = lu(k,1435) - lu(k,1098) * lu(k,1415)
4131 315224452 : lu(k,1436) = - lu(k,1099) * lu(k,1415)
4132 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1100) * lu(k,1415)
4133 315224452 : lu(k,1440) = lu(k,1440) - lu(k,1101) * lu(k,1415)
4134 315224452 : lu(k,1630) = lu(k,1630) - lu(k,1091) * lu(k,1625)
4135 315224452 : lu(k,1639) = lu(k,1639) - lu(k,1092) * lu(k,1625)
4136 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1093) * lu(k,1625)
4137 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1094) * lu(k,1625)
4138 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1095) * lu(k,1625)
4139 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1096) * lu(k,1625)
4140 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1097) * lu(k,1625)
4141 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1098) * lu(k,1625)
4142 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1099) * lu(k,1625)
4143 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1100) * lu(k,1625)
4144 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1101) * lu(k,1625)
4145 315224452 : lu(k,1793) = lu(k,1793) - lu(k,1091) * lu(k,1788)
4146 315224452 : lu(k,1802) = lu(k,1802) - lu(k,1092) * lu(k,1788)
4147 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1093) * lu(k,1788)
4148 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1094) * lu(k,1788)
4149 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1095) * lu(k,1788)
4150 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1096) * lu(k,1788)
4151 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1097) * lu(k,1788)
4152 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1098) * lu(k,1788)
4153 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1099) * lu(k,1788)
4154 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1100) * lu(k,1788)
4155 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1101) * lu(k,1788)
4156 315224452 : lu(k,1891) = lu(k,1891) - lu(k,1091) * lu(k,1887)
4157 315224452 : lu(k,1900) = lu(k,1900) - lu(k,1092) * lu(k,1887)
4158 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1093) * lu(k,1887)
4159 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1094) * lu(k,1887)
4160 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1095) * lu(k,1887)
4161 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1096) * lu(k,1887)
4162 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1097) * lu(k,1887)
4163 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1098) * lu(k,1887)
4164 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1099) * lu(k,1887)
4165 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1100) * lu(k,1887)
4166 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1101) * lu(k,1887)
4167 315224452 : lu(k,2389) = lu(k,2389) - lu(k,1091) * lu(k,2385)
4168 315224452 : lu(k,2397) = lu(k,2397) - lu(k,1092) * lu(k,2385)
4169 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1093) * lu(k,2385)
4170 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1094) * lu(k,2385)
4171 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1095) * lu(k,2385)
4172 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1096) * lu(k,2385)
4173 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1097) * lu(k,2385)
4174 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1098) * lu(k,2385)
4175 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1099) * lu(k,2385)
4176 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1100) * lu(k,2385)
4177 325174377 : lu(k,2421) = lu(k,2421) - lu(k,1101) * lu(k,2385)
4178 : end do
4179 9949925 : end subroutine lu_fac22
4180 9949925 : subroutine lu_fac23( avec_len, lu )
4181 : use chem_mods, only : nzcnt
4182 : use shr_kind_mod, only : r8 => shr_kind_r8
4183 : implicit none
4184 : !-----------------------------------------------------------------------
4185 : ! ... dummy args
4186 : !-----------------------------------------------------------------------
4187 : integer, intent(in) :: avec_len
4188 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4189 : !-----------------------------------------------------------------------
4190 : ! ... local variables
4191 : !-----------------------------------------------------------------------
4192 : integer :: k
4193 325174377 : do k = 1,avec_len
4194 315224452 : lu(k,1106) = 1._r8 / lu(k,1106)
4195 315224452 : lu(k,1107) = lu(k,1107) * lu(k,1106)
4196 315224452 : lu(k,1108) = lu(k,1108) * lu(k,1106)
4197 315224452 : lu(k,1109) = lu(k,1109) * lu(k,1106)
4198 315224452 : lu(k,1110) = lu(k,1110) * lu(k,1106)
4199 315224452 : lu(k,1111) = lu(k,1111) * lu(k,1106)
4200 315224452 : lu(k,1112) = lu(k,1112) * lu(k,1106)
4201 315224452 : lu(k,1113) = lu(k,1113) * lu(k,1106)
4202 315224452 : lu(k,1114) = lu(k,1114) * lu(k,1106)
4203 315224452 : lu(k,1115) = lu(k,1115) * lu(k,1106)
4204 315224452 : lu(k,1116) = lu(k,1116) * lu(k,1106)
4205 315224452 : lu(k,1117) = lu(k,1117) * lu(k,1106)
4206 315224452 : lu(k,1627) = lu(k,1627) - lu(k,1107) * lu(k,1626)
4207 315224452 : lu(k,1630) = lu(k,1630) - lu(k,1108) * lu(k,1626)
4208 315224452 : lu(k,1632) = lu(k,1632) - lu(k,1109) * lu(k,1626)
4209 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1110) * lu(k,1626)
4210 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1111) * lu(k,1626)
4211 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1112) * lu(k,1626)
4212 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1113) * lu(k,1626)
4213 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1114) * lu(k,1626)
4214 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1115) * lu(k,1626)
4215 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1116) * lu(k,1626)
4216 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1117) * lu(k,1626)
4217 315224452 : lu(k,1790) = lu(k,1790) - lu(k,1107) * lu(k,1789)
4218 315224452 : lu(k,1793) = lu(k,1793) - lu(k,1108) * lu(k,1789)
4219 315224452 : lu(k,1795) = lu(k,1795) - lu(k,1109) * lu(k,1789)
4220 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1110) * lu(k,1789)
4221 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1111) * lu(k,1789)
4222 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1112) * lu(k,1789)
4223 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1113) * lu(k,1789)
4224 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1114) * lu(k,1789)
4225 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1115) * lu(k,1789)
4226 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1116) * lu(k,1789)
4227 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1117) * lu(k,1789)
4228 315224452 : lu(k,1889) = lu(k,1889) - lu(k,1107) * lu(k,1888)
4229 315224452 : lu(k,1891) = lu(k,1891) - lu(k,1108) * lu(k,1888)
4230 315224452 : lu(k,1893) = lu(k,1893) - lu(k,1109) * lu(k,1888)
4231 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1110) * lu(k,1888)
4232 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1111) * lu(k,1888)
4233 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1112) * lu(k,1888)
4234 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1113) * lu(k,1888)
4235 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1114) * lu(k,1888)
4236 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1115) * lu(k,1888)
4237 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1116) * lu(k,1888)
4238 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1117) * lu(k,1888)
4239 315224452 : lu(k,2200) = lu(k,2200) - lu(k,1107) * lu(k,2199)
4240 315224452 : lu(k,2203) = lu(k,2203) - lu(k,1108) * lu(k,2199)
4241 315224452 : lu(k,2205) = lu(k,2205) - lu(k,1109) * lu(k,2199)
4242 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1110) * lu(k,2199)
4243 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1111) * lu(k,2199)
4244 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1112) * lu(k,2199)
4245 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1113) * lu(k,2199)
4246 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1114) * lu(k,2199)
4247 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1115) * lu(k,2199)
4248 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1116) * lu(k,2199)
4249 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1117) * lu(k,2199)
4250 315224452 : lu(k,2332) = lu(k,2332) - lu(k,1107) * lu(k,2331)
4251 315224452 : lu(k,2334) = lu(k,2334) - lu(k,1108) * lu(k,2331)
4252 315224452 : lu(k,2336) = lu(k,2336) - lu(k,1109) * lu(k,2331)
4253 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1110) * lu(k,2331)
4254 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1111) * lu(k,2331)
4255 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1112) * lu(k,2331)
4256 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1113) * lu(k,2331)
4257 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1114) * lu(k,2331)
4258 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1115) * lu(k,2331)
4259 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1116) * lu(k,2331)
4260 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1117) * lu(k,2331)
4261 315224452 : lu(k,2387) = lu(k,2387) - lu(k,1107) * lu(k,2386)
4262 315224452 : lu(k,2389) = lu(k,2389) - lu(k,1108) * lu(k,2386)
4263 315224452 : lu(k,2391) = lu(k,2391) - lu(k,1109) * lu(k,2386)
4264 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1110) * lu(k,2386)
4265 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1111) * lu(k,2386)
4266 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1112) * lu(k,2386)
4267 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1113) * lu(k,2386)
4268 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1114) * lu(k,2386)
4269 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1115) * lu(k,2386)
4270 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1116) * lu(k,2386)
4271 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1117) * lu(k,2386)
4272 315224452 : lu(k,1119) = 1._r8 / lu(k,1119)
4273 315224452 : lu(k,1120) = lu(k,1120) * lu(k,1119)
4274 315224452 : lu(k,1121) = lu(k,1121) * lu(k,1119)
4275 315224452 : lu(k,1122) = lu(k,1122) * lu(k,1119)
4276 315224452 : lu(k,1123) = lu(k,1123) * lu(k,1119)
4277 315224452 : lu(k,1124) = lu(k,1124) * lu(k,1119)
4278 315224452 : lu(k,1125) = lu(k,1125) * lu(k,1119)
4279 315224452 : lu(k,1126) = lu(k,1126) * lu(k,1119)
4280 315224452 : lu(k,1127) = lu(k,1127) * lu(k,1119)
4281 315224452 : lu(k,1128) = lu(k,1128) * lu(k,1119)
4282 315224452 : lu(k,1176) = lu(k,1176) - lu(k,1120) * lu(k,1175)
4283 315224452 : lu(k,1179) = lu(k,1179) - lu(k,1121) * lu(k,1175)
4284 315224452 : lu(k,1180) = lu(k,1180) - lu(k,1122) * lu(k,1175)
4285 315224452 : lu(k,1181) = lu(k,1181) - lu(k,1123) * lu(k,1175)
4286 315224452 : lu(k,1182) = lu(k,1182) - lu(k,1124) * lu(k,1175)
4287 315224452 : lu(k,1185) = lu(k,1185) - lu(k,1125) * lu(k,1175)
4288 315224452 : lu(k,1187) = lu(k,1187) - lu(k,1126) * lu(k,1175)
4289 315224452 : lu(k,1188) = lu(k,1188) - lu(k,1127) * lu(k,1175)
4290 315224452 : lu(k,1189) = lu(k,1189) - lu(k,1128) * lu(k,1175)
4291 315224452 : lu(k,1630) = lu(k,1630) - lu(k,1120) * lu(k,1627)
4292 315224452 : lu(k,1635) = lu(k,1635) - lu(k,1121) * lu(k,1627)
4293 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1122) * lu(k,1627)
4294 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1123) * lu(k,1627)
4295 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1124) * lu(k,1627)
4296 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1125) * lu(k,1627)
4297 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1126) * lu(k,1627)
4298 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1127) * lu(k,1627)
4299 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1128) * lu(k,1627)
4300 315224452 : lu(k,1793) = lu(k,1793) - lu(k,1120) * lu(k,1790)
4301 315224452 : lu(k,1798) = lu(k,1798) - lu(k,1121) * lu(k,1790)
4302 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1122) * lu(k,1790)
4303 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1123) * lu(k,1790)
4304 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1124) * lu(k,1790)
4305 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1125) * lu(k,1790)
4306 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1126) * lu(k,1790)
4307 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1127) * lu(k,1790)
4308 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1128) * lu(k,1790)
4309 315224452 : lu(k,1891) = lu(k,1891) - lu(k,1120) * lu(k,1889)
4310 315224452 : lu(k,1896) = lu(k,1896) - lu(k,1121) * lu(k,1889)
4311 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1122) * lu(k,1889)
4312 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1123) * lu(k,1889)
4313 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1124) * lu(k,1889)
4314 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1125) * lu(k,1889)
4315 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1126) * lu(k,1889)
4316 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1127) * lu(k,1889)
4317 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1128) * lu(k,1889)
4318 315224452 : lu(k,2203) = lu(k,2203) - lu(k,1120) * lu(k,2200)
4319 315224452 : lu(k,2207) = lu(k,2207) - lu(k,1121) * lu(k,2200)
4320 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1122) * lu(k,2200)
4321 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1123) * lu(k,2200)
4322 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1124) * lu(k,2200)
4323 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1125) * lu(k,2200)
4324 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1126) * lu(k,2200)
4325 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1127) * lu(k,2200)
4326 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1128) * lu(k,2200)
4327 315224452 : lu(k,2334) = lu(k,2334) - lu(k,1120) * lu(k,2332)
4328 315224452 : lu(k,2338) = lu(k,2338) - lu(k,1121) * lu(k,2332)
4329 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1122) * lu(k,2332)
4330 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1123) * lu(k,2332)
4331 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1124) * lu(k,2332)
4332 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1125) * lu(k,2332)
4333 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1126) * lu(k,2332)
4334 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1127) * lu(k,2332)
4335 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1128) * lu(k,2332)
4336 315224452 : lu(k,2389) = lu(k,2389) - lu(k,1120) * lu(k,2387)
4337 315224452 : lu(k,2393) = lu(k,2393) - lu(k,1121) * lu(k,2387)
4338 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1122) * lu(k,2387)
4339 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1123) * lu(k,2387)
4340 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1124) * lu(k,2387)
4341 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1125) * lu(k,2387)
4342 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1126) * lu(k,2387)
4343 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1127) * lu(k,2387)
4344 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1128) * lu(k,2387)
4345 315224452 : lu(k,1133) = 1._r8 / lu(k,1133)
4346 315224452 : lu(k,1134) = lu(k,1134) * lu(k,1133)
4347 315224452 : lu(k,1135) = lu(k,1135) * lu(k,1133)
4348 315224452 : lu(k,1136) = lu(k,1136) * lu(k,1133)
4349 315224452 : lu(k,1137) = lu(k,1137) * lu(k,1133)
4350 315224452 : lu(k,1138) = lu(k,1138) * lu(k,1133)
4351 315224452 : lu(k,1139) = lu(k,1139) * lu(k,1133)
4352 315224452 : lu(k,1140) = lu(k,1140) * lu(k,1133)
4353 315224452 : lu(k,1141) = lu(k,1141) * lu(k,1133)
4354 315224452 : lu(k,1142) = lu(k,1142) * lu(k,1133)
4355 315224452 : lu(k,1143) = lu(k,1143) * lu(k,1133)
4356 315224452 : lu(k,1144) = lu(k,1144) * lu(k,1133)
4357 315224452 : lu(k,1145) = lu(k,1145) * lu(k,1133)
4358 315224452 : lu(k,1146) = lu(k,1146) * lu(k,1133)
4359 315224452 : lu(k,1147) = lu(k,1147) * lu(k,1133)
4360 315224452 : lu(k,1148) = lu(k,1148) * lu(k,1133)
4361 315224452 : lu(k,1149) = lu(k,1149) * lu(k,1133)
4362 315224452 : lu(k,1150) = lu(k,1150) * lu(k,1133)
4363 315224452 : lu(k,1371) = lu(k,1371) - lu(k,1134) * lu(k,1370)
4364 315224452 : lu(k,1372) = lu(k,1372) - lu(k,1135) * lu(k,1370)
4365 315224452 : lu(k,1373) = - lu(k,1136) * lu(k,1370)
4366 315224452 : lu(k,1374) = lu(k,1374) - lu(k,1137) * lu(k,1370)
4367 315224452 : lu(k,1378) = lu(k,1378) - lu(k,1138) * lu(k,1370)
4368 315224452 : lu(k,1379) = lu(k,1379) - lu(k,1139) * lu(k,1370)
4369 315224452 : lu(k,1380) = - lu(k,1140) * lu(k,1370)
4370 315224452 : lu(k,1381) = - lu(k,1141) * lu(k,1370)
4371 315224452 : lu(k,1382) = lu(k,1382) - lu(k,1142) * lu(k,1370)
4372 315224452 : lu(k,1383) = - lu(k,1143) * lu(k,1370)
4373 315224452 : lu(k,1384) = - lu(k,1144) * lu(k,1370)
4374 315224452 : lu(k,1385) = lu(k,1385) - lu(k,1145) * lu(k,1370)
4375 315224452 : lu(k,1387) = lu(k,1387) - lu(k,1146) * lu(k,1370)
4376 315224452 : lu(k,1388) = - lu(k,1147) * lu(k,1370)
4377 315224452 : lu(k,1389) = lu(k,1389) - lu(k,1148) * lu(k,1370)
4378 315224452 : lu(k,1390) = lu(k,1390) - lu(k,1149) * lu(k,1370)
4379 315224452 : lu(k,1391) = lu(k,1391) - lu(k,1150) * lu(k,1370)
4380 315224452 : lu(k,1629) = lu(k,1629) - lu(k,1134) * lu(k,1628)
4381 315224452 : lu(k,1630) = lu(k,1630) - lu(k,1135) * lu(k,1628)
4382 315224452 : lu(k,1634) = lu(k,1634) - lu(k,1136) * lu(k,1628)
4383 315224452 : lu(k,1639) = lu(k,1639) - lu(k,1137) * lu(k,1628)
4384 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1138) * lu(k,1628)
4385 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1139) * lu(k,1628)
4386 315224452 : lu(k,1649) = lu(k,1649) - lu(k,1140) * lu(k,1628)
4387 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1141) * lu(k,1628)
4388 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1142) * lu(k,1628)
4389 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1143) * lu(k,1628)
4390 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1144) * lu(k,1628)
4391 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1145) * lu(k,1628)
4392 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1146) * lu(k,1628)
4393 315224452 : lu(k,1663) = - lu(k,1147) * lu(k,1628)
4394 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1148) * lu(k,1628)
4395 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1149) * lu(k,1628)
4396 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1150) * lu(k,1628)
4397 315224452 : lu(k,1792) = lu(k,1792) - lu(k,1134) * lu(k,1791)
4398 315224452 : lu(k,1793) = lu(k,1793) - lu(k,1135) * lu(k,1791)
4399 315224452 : lu(k,1797) = lu(k,1797) - lu(k,1136) * lu(k,1791)
4400 315224452 : lu(k,1802) = lu(k,1802) - lu(k,1137) * lu(k,1791)
4401 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1138) * lu(k,1791)
4402 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1139) * lu(k,1791)
4403 315224452 : lu(k,1814) = lu(k,1814) - lu(k,1140) * lu(k,1791)
4404 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1141) * lu(k,1791)
4405 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1142) * lu(k,1791)
4406 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1143) * lu(k,1791)
4407 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1144) * lu(k,1791)
4408 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1145) * lu(k,1791)
4409 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1146) * lu(k,1791)
4410 315224452 : lu(k,1828) = lu(k,1828) - lu(k,1147) * lu(k,1791)
4411 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1148) * lu(k,1791)
4412 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1149) * lu(k,1791)
4413 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1150) * lu(k,1791)
4414 315224452 : lu(k,2202) = lu(k,2202) - lu(k,1134) * lu(k,2201)
4415 315224452 : lu(k,2203) = lu(k,2203) - lu(k,1135) * lu(k,2201)
4416 315224452 : lu(k,2206) = - lu(k,1136) * lu(k,2201)
4417 315224452 : lu(k,2210) = lu(k,2210) - lu(k,1137) * lu(k,2201)
4418 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1138) * lu(k,2201)
4419 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1139) * lu(k,2201)
4420 315224452 : lu(k,2220) = lu(k,2220) - lu(k,1140) * lu(k,2201)
4421 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1141) * lu(k,2201)
4422 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1142) * lu(k,2201)
4423 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1143) * lu(k,2201)
4424 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1144) * lu(k,2201)
4425 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1145) * lu(k,2201)
4426 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1146) * lu(k,2201)
4427 315224452 : lu(k,2234) = lu(k,2234) - lu(k,1147) * lu(k,2201)
4428 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1148) * lu(k,2201)
4429 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1149) * lu(k,2201)
4430 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1150) * lu(k,2201)
4431 315224452 : lu(k,1151) = 1._r8 / lu(k,1151)
4432 315224452 : lu(k,1152) = lu(k,1152) * lu(k,1151)
4433 315224452 : lu(k,1153) = lu(k,1153) * lu(k,1151)
4434 315224452 : lu(k,1154) = lu(k,1154) * lu(k,1151)
4435 315224452 : lu(k,1155) = lu(k,1155) * lu(k,1151)
4436 315224452 : lu(k,1156) = lu(k,1156) * lu(k,1151)
4437 315224452 : lu(k,1157) = lu(k,1157) * lu(k,1151)
4438 315224452 : lu(k,1158) = lu(k,1158) * lu(k,1151)
4439 315224452 : lu(k,1159) = lu(k,1159) * lu(k,1151)
4440 315224452 : lu(k,1193) = lu(k,1193) - lu(k,1152) * lu(k,1192)
4441 315224452 : lu(k,1198) = lu(k,1198) - lu(k,1153) * lu(k,1192)
4442 315224452 : lu(k,1200) = - lu(k,1154) * lu(k,1192)
4443 315224452 : lu(k,1201) = lu(k,1201) - lu(k,1155) * lu(k,1192)
4444 315224452 : lu(k,1204) = lu(k,1204) - lu(k,1156) * lu(k,1192)
4445 315224452 : lu(k,1205) = lu(k,1205) - lu(k,1157) * lu(k,1192)
4446 315224452 : lu(k,1206) = lu(k,1206) - lu(k,1158) * lu(k,1192)
4447 315224452 : lu(k,1207) = lu(k,1207) - lu(k,1159) * lu(k,1192)
4448 315224452 : lu(k,1372) = lu(k,1372) - lu(k,1152) * lu(k,1371)
4449 315224452 : lu(k,1378) = lu(k,1378) - lu(k,1153) * lu(k,1371)
4450 315224452 : lu(k,1381) = lu(k,1381) - lu(k,1154) * lu(k,1371)
4451 315224452 : lu(k,1382) = lu(k,1382) - lu(k,1155) * lu(k,1371)
4452 315224452 : lu(k,1386) = - lu(k,1156) * lu(k,1371)
4453 315224452 : lu(k,1389) = lu(k,1389) - lu(k,1157) * lu(k,1371)
4454 315224452 : lu(k,1390) = lu(k,1390) - lu(k,1158) * lu(k,1371)
4455 315224452 : lu(k,1391) = lu(k,1391) - lu(k,1159) * lu(k,1371)
4456 315224452 : lu(k,1630) = lu(k,1630) - lu(k,1152) * lu(k,1629)
4457 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1153) * lu(k,1629)
4458 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1154) * lu(k,1629)
4459 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1155) * lu(k,1629)
4460 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1156) * lu(k,1629)
4461 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1157) * lu(k,1629)
4462 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1158) * lu(k,1629)
4463 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1159) * lu(k,1629)
4464 315224452 : lu(k,1793) = lu(k,1793) - lu(k,1152) * lu(k,1792)
4465 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1153) * lu(k,1792)
4466 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1154) * lu(k,1792)
4467 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1155) * lu(k,1792)
4468 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1156) * lu(k,1792)
4469 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1157) * lu(k,1792)
4470 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1158) * lu(k,1792)
4471 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1159) * lu(k,1792)
4472 315224452 : lu(k,1891) = lu(k,1891) - lu(k,1152) * lu(k,1890)
4473 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1153) * lu(k,1890)
4474 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1154) * lu(k,1890)
4475 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1155) * lu(k,1890)
4476 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1156) * lu(k,1890)
4477 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1157) * lu(k,1890)
4478 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1158) * lu(k,1890)
4479 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1159) * lu(k,1890)
4480 315224452 : lu(k,2147) = lu(k,2147) - lu(k,1152) * lu(k,2146)
4481 315224452 : lu(k,2151) = lu(k,2151) - lu(k,1153) * lu(k,2146)
4482 315224452 : lu(k,2159) = lu(k,2159) - lu(k,1154) * lu(k,2146)
4483 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1155) * lu(k,2146)
4484 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1156) * lu(k,2146)
4485 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1157) * lu(k,2146)
4486 315224452 : lu(k,2172) = lu(k,2172) - lu(k,1158) * lu(k,2146)
4487 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1159) * lu(k,2146)
4488 315224452 : lu(k,2203) = lu(k,2203) - lu(k,1152) * lu(k,2202)
4489 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1153) * lu(k,2202)
4490 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1154) * lu(k,2202)
4491 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1155) * lu(k,2202)
4492 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1156) * lu(k,2202)
4493 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1157) * lu(k,2202)
4494 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1158) * lu(k,2202)
4495 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1159) * lu(k,2202)
4496 315224452 : lu(k,2334) = lu(k,2334) - lu(k,1152) * lu(k,2333)
4497 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1153) * lu(k,2333)
4498 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1154) * lu(k,2333)
4499 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1155) * lu(k,2333)
4500 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1156) * lu(k,2333)
4501 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1157) * lu(k,2333)
4502 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1158) * lu(k,2333)
4503 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1159) * lu(k,2333)
4504 315224452 : lu(k,2389) = lu(k,2389) - lu(k,1152) * lu(k,2388)
4505 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1153) * lu(k,2388)
4506 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1154) * lu(k,2388)
4507 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1155) * lu(k,2388)
4508 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1156) * lu(k,2388)
4509 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1157) * lu(k,2388)
4510 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1158) * lu(k,2388)
4511 325174377 : lu(k,2422) = lu(k,2422) - lu(k,1159) * lu(k,2388)
4512 : end do
4513 9949925 : end subroutine lu_fac23
4514 9949925 : subroutine lu_fac24( avec_len, lu )
4515 : use chem_mods, only : nzcnt
4516 : use shr_kind_mod, only : r8 => shr_kind_r8
4517 : implicit none
4518 : !-----------------------------------------------------------------------
4519 : ! ... dummy args
4520 : !-----------------------------------------------------------------------
4521 : integer, intent(in) :: avec_len
4522 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4523 : !-----------------------------------------------------------------------
4524 : ! ... local variables
4525 : !-----------------------------------------------------------------------
4526 : integer :: k
4527 325174377 : do k = 1,avec_len
4528 315224452 : lu(k,1160) = 1._r8 / lu(k,1160)
4529 315224452 : lu(k,1161) = lu(k,1161) * lu(k,1160)
4530 315224452 : lu(k,1162) = lu(k,1162) * lu(k,1160)
4531 315224452 : lu(k,1163) = lu(k,1163) * lu(k,1160)
4532 315224452 : lu(k,1167) = lu(k,1167) - lu(k,1161) * lu(k,1165)
4533 315224452 : lu(k,1168) = lu(k,1168) - lu(k,1162) * lu(k,1165)
4534 315224452 : lu(k,1170) = lu(k,1170) - lu(k,1163) * lu(k,1165)
4535 315224452 : lu(k,1181) = lu(k,1181) - lu(k,1161) * lu(k,1176)
4536 315224452 : lu(k,1182) = lu(k,1182) - lu(k,1162) * lu(k,1176)
4537 315224452 : lu(k,1187) = lu(k,1187) - lu(k,1163) * lu(k,1176)
4538 315224452 : lu(k,1199) = - lu(k,1161) * lu(k,1193)
4539 315224452 : lu(k,1201) = lu(k,1201) - lu(k,1162) * lu(k,1193)
4540 315224452 : lu(k,1205) = lu(k,1205) - lu(k,1163) * lu(k,1193)
4541 315224452 : lu(k,1236) = lu(k,1236) - lu(k,1161) * lu(k,1230)
4542 315224452 : lu(k,1238) = lu(k,1238) - lu(k,1162) * lu(k,1230)
4543 315224452 : lu(k,1242) = lu(k,1242) - lu(k,1163) * lu(k,1230)
4544 315224452 : lu(k,1258) = lu(k,1258) - lu(k,1161) * lu(k,1250)
4545 315224452 : lu(k,1260) = lu(k,1260) - lu(k,1162) * lu(k,1250)
4546 315224452 : lu(k,1265) = lu(k,1265) - lu(k,1163) * lu(k,1250)
4547 315224452 : lu(k,1274) = lu(k,1274) - lu(k,1161) * lu(k,1268)
4548 315224452 : lu(k,1275) = lu(k,1275) - lu(k,1162) * lu(k,1268)
4549 315224452 : lu(k,1278) = lu(k,1278) - lu(k,1163) * lu(k,1268)
4550 315224452 : lu(k,1283) = - lu(k,1161) * lu(k,1280)
4551 315224452 : lu(k,1285) = lu(k,1285) - lu(k,1162) * lu(k,1280)
4552 315224452 : lu(k,1287) = lu(k,1287) - lu(k,1163) * lu(k,1280)
4553 315224452 : lu(k,1337) = lu(k,1337) - lu(k,1161) * lu(k,1324)
4554 315224452 : lu(k,1339) = lu(k,1339) - lu(k,1162) * lu(k,1324)
4555 315224452 : lu(k,1345) = lu(k,1345) - lu(k,1163) * lu(k,1324)
4556 315224452 : lu(k,1359) = - lu(k,1161) * lu(k,1350)
4557 315224452 : lu(k,1361) = lu(k,1361) - lu(k,1162) * lu(k,1350)
4558 315224452 : lu(k,1366) = lu(k,1366) - lu(k,1163) * lu(k,1350)
4559 315224452 : lu(k,1379) = lu(k,1379) - lu(k,1161) * lu(k,1372)
4560 315224452 : lu(k,1382) = lu(k,1382) - lu(k,1162) * lu(k,1372)
4561 315224452 : lu(k,1389) = lu(k,1389) - lu(k,1163) * lu(k,1372)
4562 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1161) * lu(k,1416)
4563 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1162) * lu(k,1416)
4564 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1163) * lu(k,1416)
4565 315224452 : lu(k,1450) = lu(k,1450) - lu(k,1161) * lu(k,1449)
4566 315224452 : lu(k,1452) = lu(k,1452) - lu(k,1162) * lu(k,1449)
4567 315224452 : lu(k,1458) = - lu(k,1163) * lu(k,1449)
4568 315224452 : lu(k,1510) = - lu(k,1161) * lu(k,1509)
4569 315224452 : lu(k,1514) = lu(k,1514) - lu(k,1162) * lu(k,1509)
4570 315224452 : lu(k,1522) = lu(k,1522) - lu(k,1163) * lu(k,1509)
4571 315224452 : lu(k,1539) = lu(k,1539) - lu(k,1161) * lu(k,1537)
4572 315224452 : lu(k,1545) = lu(k,1545) - lu(k,1162) * lu(k,1537)
4573 315224452 : lu(k,1554) = lu(k,1554) - lu(k,1163) * lu(k,1537)
4574 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1161) * lu(k,1630)
4575 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1162) * lu(k,1630)
4576 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1163) * lu(k,1630)
4577 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1161) * lu(k,1793)
4578 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1162) * lu(k,1793)
4579 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1163) * lu(k,1793)
4580 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1161) * lu(k,1891)
4581 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1162) * lu(k,1891)
4582 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1163) * lu(k,1891)
4583 315224452 : lu(k,1950) = lu(k,1950) - lu(k,1161) * lu(k,1945)
4584 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1162) * lu(k,1945)
4585 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1163) * lu(k,1945)
4586 315224452 : lu(k,1976) = lu(k,1976) - lu(k,1161) * lu(k,1975)
4587 315224452 : lu(k,1984) = lu(k,1984) - lu(k,1162) * lu(k,1975)
4588 315224452 : lu(k,1995) = lu(k,1995) - lu(k,1163) * lu(k,1975)
4589 315224452 : lu(k,2084) = lu(k,2084) - lu(k,1161) * lu(k,2083)
4590 315224452 : lu(k,2093) = lu(k,2093) - lu(k,1162) * lu(k,2083)
4591 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1163) * lu(k,2083)
4592 315224452 : lu(k,2152) = lu(k,2152) - lu(k,1161) * lu(k,2147)
4593 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1162) * lu(k,2147)
4594 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1163) * lu(k,2147)
4595 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1161) * lu(k,2203)
4596 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1162) * lu(k,2203)
4597 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1163) * lu(k,2203)
4598 315224452 : lu(k,2241) = lu(k,2241) - lu(k,1161) * lu(k,2240)
4599 315224452 : lu(k,2249) = lu(k,2249) - lu(k,1162) * lu(k,2240)
4600 315224452 : lu(k,2260) = lu(k,2260) - lu(k,1163) * lu(k,2240)
4601 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1161) * lu(k,2334)
4602 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1162) * lu(k,2334)
4603 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1163) * lu(k,2334)
4604 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1161) * lu(k,2389)
4605 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1162) * lu(k,2389)
4606 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1163) * lu(k,2389)
4607 315224452 : lu(k,1166) = 1._r8 / lu(k,1166)
4608 315224452 : lu(k,1167) = lu(k,1167) * lu(k,1166)
4609 315224452 : lu(k,1168) = lu(k,1168) * lu(k,1166)
4610 315224452 : lu(k,1169) = lu(k,1169) * lu(k,1166)
4611 315224452 : lu(k,1170) = lu(k,1170) * lu(k,1166)
4612 315224452 : lu(k,1181) = lu(k,1181) - lu(k,1167) * lu(k,1177)
4613 315224452 : lu(k,1182) = lu(k,1182) - lu(k,1168) * lu(k,1177)
4614 315224452 : lu(k,1185) = lu(k,1185) - lu(k,1169) * lu(k,1177)
4615 315224452 : lu(k,1187) = lu(k,1187) - lu(k,1170) * lu(k,1177)
4616 315224452 : lu(k,1199) = lu(k,1199) - lu(k,1167) * lu(k,1194)
4617 315224452 : lu(k,1201) = lu(k,1201) - lu(k,1168) * lu(k,1194)
4618 315224452 : lu(k,1203) = lu(k,1203) - lu(k,1169) * lu(k,1194)
4619 315224452 : lu(k,1205) = lu(k,1205) - lu(k,1170) * lu(k,1194)
4620 315224452 : lu(k,1236) = lu(k,1236) - lu(k,1167) * lu(k,1231)
4621 315224452 : lu(k,1238) = lu(k,1238) - lu(k,1168) * lu(k,1231)
4622 315224452 : lu(k,1241) = lu(k,1241) - lu(k,1169) * lu(k,1231)
4623 315224452 : lu(k,1242) = lu(k,1242) - lu(k,1170) * lu(k,1231)
4624 315224452 : lu(k,1258) = lu(k,1258) - lu(k,1167) * lu(k,1251)
4625 315224452 : lu(k,1260) = lu(k,1260) - lu(k,1168) * lu(k,1251)
4626 315224452 : lu(k,1263) = lu(k,1263) - lu(k,1169) * lu(k,1251)
4627 315224452 : lu(k,1265) = lu(k,1265) - lu(k,1170) * lu(k,1251)
4628 315224452 : lu(k,1304) = lu(k,1304) - lu(k,1167) * lu(k,1292)
4629 315224452 : lu(k,1306) = lu(k,1306) - lu(k,1168) * lu(k,1292)
4630 315224452 : lu(k,1309) = lu(k,1309) - lu(k,1169) * lu(k,1292)
4631 315224452 : lu(k,1312) = lu(k,1312) - lu(k,1170) * lu(k,1292)
4632 315224452 : lu(k,1337) = lu(k,1337) - lu(k,1167) * lu(k,1325)
4633 315224452 : lu(k,1339) = lu(k,1339) - lu(k,1168) * lu(k,1325)
4634 315224452 : lu(k,1342) = lu(k,1342) - lu(k,1169) * lu(k,1325)
4635 315224452 : lu(k,1345) = lu(k,1345) - lu(k,1170) * lu(k,1325)
4636 315224452 : lu(k,1359) = lu(k,1359) - lu(k,1167) * lu(k,1351)
4637 315224452 : lu(k,1361) = lu(k,1361) - lu(k,1168) * lu(k,1351)
4638 315224452 : lu(k,1364) = lu(k,1364) - lu(k,1169) * lu(k,1351)
4639 315224452 : lu(k,1366) = lu(k,1366) - lu(k,1170) * lu(k,1351)
4640 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1167) * lu(k,1417)
4641 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1168) * lu(k,1417)
4642 315224452 : lu(k,1435) = lu(k,1435) - lu(k,1169) * lu(k,1417)
4643 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1170) * lu(k,1417)
4644 315224452 : lu(k,1539) = lu(k,1539) - lu(k,1167) * lu(k,1538)
4645 315224452 : lu(k,1545) = lu(k,1545) - lu(k,1168) * lu(k,1538)
4646 315224452 : lu(k,1548) = lu(k,1548) - lu(k,1169) * lu(k,1538)
4647 315224452 : lu(k,1554) = lu(k,1554) - lu(k,1170) * lu(k,1538)
4648 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1167) * lu(k,1631)
4649 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1168) * lu(k,1631)
4650 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1169) * lu(k,1631)
4651 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1170) * lu(k,1631)
4652 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1167) * lu(k,1794)
4653 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1168) * lu(k,1794)
4654 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1169) * lu(k,1794)
4655 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1170) * lu(k,1794)
4656 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1167) * lu(k,1892)
4657 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1168) * lu(k,1892)
4658 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1169) * lu(k,1892)
4659 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1170) * lu(k,1892)
4660 315224452 : lu(k,2152) = lu(k,2152) - lu(k,1167) * lu(k,2148)
4661 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1168) * lu(k,2148)
4662 315224452 : lu(k,2163) = lu(k,2163) - lu(k,1169) * lu(k,2148)
4663 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1170) * lu(k,2148)
4664 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1167) * lu(k,2204)
4665 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1168) * lu(k,2204)
4666 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1169) * lu(k,2204)
4667 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1170) * lu(k,2204)
4668 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1167) * lu(k,2335)
4669 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1168) * lu(k,2335)
4670 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1169) * lu(k,2335)
4671 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1170) * lu(k,2335)
4672 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1167) * lu(k,2390)
4673 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1168) * lu(k,2390)
4674 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1169) * lu(k,2390)
4675 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1170) * lu(k,2390)
4676 315224452 : lu(k,1178) = 1._r8 / lu(k,1178)
4677 315224452 : lu(k,1179) = lu(k,1179) * lu(k,1178)
4678 315224452 : lu(k,1180) = lu(k,1180) * lu(k,1178)
4679 315224452 : lu(k,1181) = lu(k,1181) * lu(k,1178)
4680 315224452 : lu(k,1182) = lu(k,1182) * lu(k,1178)
4681 315224452 : lu(k,1183) = lu(k,1183) * lu(k,1178)
4682 315224452 : lu(k,1184) = lu(k,1184) * lu(k,1178)
4683 315224452 : lu(k,1185) = lu(k,1185) * lu(k,1178)
4684 315224452 : lu(k,1186) = lu(k,1186) * lu(k,1178)
4685 315224452 : lu(k,1187) = lu(k,1187) * lu(k,1178)
4686 315224452 : lu(k,1188) = lu(k,1188) * lu(k,1178)
4687 315224452 : lu(k,1189) = lu(k,1189) * lu(k,1178)
4688 315224452 : lu(k,1635) = lu(k,1635) - lu(k,1179) * lu(k,1632)
4689 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1180) * lu(k,1632)
4690 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1181) * lu(k,1632)
4691 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1182) * lu(k,1632)
4692 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1183) * lu(k,1632)
4693 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1184) * lu(k,1632)
4694 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1185) * lu(k,1632)
4695 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1186) * lu(k,1632)
4696 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1187) * lu(k,1632)
4697 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1188) * lu(k,1632)
4698 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1189) * lu(k,1632)
4699 315224452 : lu(k,1798) = lu(k,1798) - lu(k,1179) * lu(k,1795)
4700 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1180) * lu(k,1795)
4701 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1181) * lu(k,1795)
4702 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1182) * lu(k,1795)
4703 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1183) * lu(k,1795)
4704 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1184) * lu(k,1795)
4705 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1185) * lu(k,1795)
4706 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1186) * lu(k,1795)
4707 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1187) * lu(k,1795)
4708 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1188) * lu(k,1795)
4709 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1189) * lu(k,1795)
4710 315224452 : lu(k,1896) = lu(k,1896) - lu(k,1179) * lu(k,1893)
4711 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1180) * lu(k,1893)
4712 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1181) * lu(k,1893)
4713 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1182) * lu(k,1893)
4714 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1183) * lu(k,1893)
4715 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1184) * lu(k,1893)
4716 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1185) * lu(k,1893)
4717 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1186) * lu(k,1893)
4718 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1187) * lu(k,1893)
4719 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1188) * lu(k,1893)
4720 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1189) * lu(k,1893)
4721 315224452 : lu(k,2207) = lu(k,2207) - lu(k,1179) * lu(k,2205)
4722 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1180) * lu(k,2205)
4723 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1181) * lu(k,2205)
4724 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1182) * lu(k,2205)
4725 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1183) * lu(k,2205)
4726 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1184) * lu(k,2205)
4727 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1185) * lu(k,2205)
4728 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1186) * lu(k,2205)
4729 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1187) * lu(k,2205)
4730 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1188) * lu(k,2205)
4731 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1189) * lu(k,2205)
4732 315224452 : lu(k,2338) = lu(k,2338) - lu(k,1179) * lu(k,2336)
4733 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1180) * lu(k,2336)
4734 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1181) * lu(k,2336)
4735 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1182) * lu(k,2336)
4736 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1183) * lu(k,2336)
4737 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1184) * lu(k,2336)
4738 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1185) * lu(k,2336)
4739 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1186) * lu(k,2336)
4740 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1187) * lu(k,2336)
4741 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1188) * lu(k,2336)
4742 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1189) * lu(k,2336)
4743 315224452 : lu(k,2393) = lu(k,2393) - lu(k,1179) * lu(k,2391)
4744 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1180) * lu(k,2391)
4745 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1181) * lu(k,2391)
4746 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1182) * lu(k,2391)
4747 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1183) * lu(k,2391)
4748 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1184) * lu(k,2391)
4749 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1185) * lu(k,2391)
4750 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1186) * lu(k,2391)
4751 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1187) * lu(k,2391)
4752 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1188) * lu(k,2391)
4753 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1189) * lu(k,2391)
4754 315224452 : lu(k,1195) = 1._r8 / lu(k,1195)
4755 315224452 : lu(k,1196) = lu(k,1196) * lu(k,1195)
4756 315224452 : lu(k,1197) = lu(k,1197) * lu(k,1195)
4757 315224452 : lu(k,1198) = lu(k,1198) * lu(k,1195)
4758 315224452 : lu(k,1199) = lu(k,1199) * lu(k,1195)
4759 315224452 : lu(k,1200) = lu(k,1200) * lu(k,1195)
4760 315224452 : lu(k,1201) = lu(k,1201) * lu(k,1195)
4761 315224452 : lu(k,1202) = lu(k,1202) * lu(k,1195)
4762 315224452 : lu(k,1203) = lu(k,1203) * lu(k,1195)
4763 315224452 : lu(k,1204) = lu(k,1204) * lu(k,1195)
4764 315224452 : lu(k,1205) = lu(k,1205) * lu(k,1195)
4765 315224452 : lu(k,1206) = lu(k,1206) * lu(k,1195)
4766 315224452 : lu(k,1207) = lu(k,1207) * lu(k,1195)
4767 315224452 : lu(k,1294) = lu(k,1294) - lu(k,1196) * lu(k,1293)
4768 315224452 : lu(k,1295) = - lu(k,1197) * lu(k,1293)
4769 315224452 : lu(k,1303) = lu(k,1303) - lu(k,1198) * lu(k,1293)
4770 315224452 : lu(k,1304) = lu(k,1304) - lu(k,1199) * lu(k,1293)
4771 315224452 : lu(k,1305) = lu(k,1305) - lu(k,1200) * lu(k,1293)
4772 315224452 : lu(k,1306) = lu(k,1306) - lu(k,1201) * lu(k,1293)
4773 315224452 : lu(k,1308) = lu(k,1308) - lu(k,1202) * lu(k,1293)
4774 315224452 : lu(k,1309) = lu(k,1309) - lu(k,1203) * lu(k,1293)
4775 315224452 : lu(k,1310) = lu(k,1310) - lu(k,1204) * lu(k,1293)
4776 315224452 : lu(k,1312) = lu(k,1312) - lu(k,1205) * lu(k,1293)
4777 315224452 : lu(k,1313) = lu(k,1313) - lu(k,1206) * lu(k,1293)
4778 315224452 : lu(k,1314) = - lu(k,1207) * lu(k,1293)
4779 315224452 : lu(k,1327) = lu(k,1327) - lu(k,1196) * lu(k,1326)
4780 315224452 : lu(k,1328) = - lu(k,1197) * lu(k,1326)
4781 315224452 : lu(k,1336) = lu(k,1336) - lu(k,1198) * lu(k,1326)
4782 315224452 : lu(k,1337) = lu(k,1337) - lu(k,1199) * lu(k,1326)
4783 315224452 : lu(k,1338) = lu(k,1338) - lu(k,1200) * lu(k,1326)
4784 315224452 : lu(k,1339) = lu(k,1339) - lu(k,1201) * lu(k,1326)
4785 315224452 : lu(k,1341) = lu(k,1341) - lu(k,1202) * lu(k,1326)
4786 315224452 : lu(k,1342) = lu(k,1342) - lu(k,1203) * lu(k,1326)
4787 315224452 : lu(k,1343) = lu(k,1343) - lu(k,1204) * lu(k,1326)
4788 315224452 : lu(k,1345) = lu(k,1345) - lu(k,1205) * lu(k,1326)
4789 315224452 : lu(k,1346) = lu(k,1346) - lu(k,1206) * lu(k,1326)
4790 315224452 : lu(k,1347) = - lu(k,1207) * lu(k,1326)
4791 315224452 : lu(k,1353) = lu(k,1353) - lu(k,1196) * lu(k,1352)
4792 315224452 : lu(k,1354) = - lu(k,1197) * lu(k,1352)
4793 315224452 : lu(k,1358) = lu(k,1358) - lu(k,1198) * lu(k,1352)
4794 315224452 : lu(k,1359) = lu(k,1359) - lu(k,1199) * lu(k,1352)
4795 315224452 : lu(k,1360) = lu(k,1360) - lu(k,1200) * lu(k,1352)
4796 315224452 : lu(k,1361) = lu(k,1361) - lu(k,1201) * lu(k,1352)
4797 315224452 : lu(k,1363) = lu(k,1363) - lu(k,1202) * lu(k,1352)
4798 315224452 : lu(k,1364) = lu(k,1364) - lu(k,1203) * lu(k,1352)
4799 315224452 : lu(k,1365) = - lu(k,1204) * lu(k,1352)
4800 315224452 : lu(k,1366) = lu(k,1366) - lu(k,1205) * lu(k,1352)
4801 315224452 : lu(k,1367) = lu(k,1367) - lu(k,1206) * lu(k,1352)
4802 315224452 : lu(k,1368) = - lu(k,1207) * lu(k,1352)
4803 315224452 : lu(k,1634) = lu(k,1634) - lu(k,1196) * lu(k,1633)
4804 315224452 : lu(k,1635) = lu(k,1635) - lu(k,1197) * lu(k,1633)
4805 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1198) * lu(k,1633)
4806 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1199) * lu(k,1633)
4807 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1200) * lu(k,1633)
4808 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1201) * lu(k,1633)
4809 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1202) * lu(k,1633)
4810 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1203) * lu(k,1633)
4811 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1204) * lu(k,1633)
4812 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1205) * lu(k,1633)
4813 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1206) * lu(k,1633)
4814 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1207) * lu(k,1633)
4815 315224452 : lu(k,1797) = lu(k,1797) - lu(k,1196) * lu(k,1796)
4816 315224452 : lu(k,1798) = lu(k,1798) - lu(k,1197) * lu(k,1796)
4817 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1198) * lu(k,1796)
4818 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1199) * lu(k,1796)
4819 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1200) * lu(k,1796)
4820 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1201) * lu(k,1796)
4821 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1202) * lu(k,1796)
4822 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1203) * lu(k,1796)
4823 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1204) * lu(k,1796)
4824 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1205) * lu(k,1796)
4825 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1206) * lu(k,1796)
4826 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1207) * lu(k,1796)
4827 315224452 : lu(k,1895) = lu(k,1895) - lu(k,1196) * lu(k,1894)
4828 315224452 : lu(k,1896) = lu(k,1896) - lu(k,1197) * lu(k,1894)
4829 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1198) * lu(k,1894)
4830 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1199) * lu(k,1894)
4831 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1200) * lu(k,1894)
4832 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1201) * lu(k,1894)
4833 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1202) * lu(k,1894)
4834 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1203) * lu(k,1894)
4835 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1204) * lu(k,1894)
4836 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1205) * lu(k,1894)
4837 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1206) * lu(k,1894)
4838 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1207) * lu(k,1894)
4839 315224452 : lu(k,1208) = 1._r8 / lu(k,1208)
4840 315224452 : lu(k,1209) = lu(k,1209) * lu(k,1208)
4841 315224452 : lu(k,1210) = lu(k,1210) * lu(k,1208)
4842 315224452 : lu(k,1211) = lu(k,1211) * lu(k,1208)
4843 315224452 : lu(k,1212) = lu(k,1212) * lu(k,1208)
4844 315224452 : lu(k,1213) = lu(k,1213) * lu(k,1208)
4845 315224452 : lu(k,1218) = lu(k,1218) - lu(k,1209) * lu(k,1216)
4846 315224452 : lu(k,1219) = lu(k,1219) - lu(k,1210) * lu(k,1216)
4847 315224452 : lu(k,1220) = lu(k,1220) - lu(k,1211) * lu(k,1216)
4848 315224452 : lu(k,1223) = lu(k,1223) - lu(k,1212) * lu(k,1216)
4849 315224452 : lu(k,1224) = lu(k,1224) - lu(k,1213) * lu(k,1216)
4850 315224452 : lu(k,1234) = lu(k,1234) - lu(k,1209) * lu(k,1232)
4851 315224452 : lu(k,1235) = lu(k,1235) - lu(k,1210) * lu(k,1232)
4852 315224452 : lu(k,1238) = lu(k,1238) - lu(k,1211) * lu(k,1232)
4853 315224452 : lu(k,1241) = lu(k,1241) - lu(k,1212) * lu(k,1232)
4854 315224452 : lu(k,1242) = lu(k,1242) - lu(k,1213) * lu(k,1232)
4855 315224452 : lu(k,1298) = - lu(k,1209) * lu(k,1294)
4856 315224452 : lu(k,1303) = lu(k,1303) - lu(k,1210) * lu(k,1294)
4857 315224452 : lu(k,1306) = lu(k,1306) - lu(k,1211) * lu(k,1294)
4858 315224452 : lu(k,1309) = lu(k,1309) - lu(k,1212) * lu(k,1294)
4859 315224452 : lu(k,1312) = lu(k,1312) - lu(k,1213) * lu(k,1294)
4860 315224452 : lu(k,1331) = lu(k,1331) - lu(k,1209) * lu(k,1327)
4861 315224452 : lu(k,1336) = lu(k,1336) - lu(k,1210) * lu(k,1327)
4862 315224452 : lu(k,1339) = lu(k,1339) - lu(k,1211) * lu(k,1327)
4863 315224452 : lu(k,1342) = lu(k,1342) - lu(k,1212) * lu(k,1327)
4864 315224452 : lu(k,1345) = lu(k,1345) - lu(k,1213) * lu(k,1327)
4865 315224452 : lu(k,1355) = lu(k,1355) - lu(k,1209) * lu(k,1353)
4866 315224452 : lu(k,1358) = lu(k,1358) - lu(k,1210) * lu(k,1353)
4867 315224452 : lu(k,1361) = lu(k,1361) - lu(k,1211) * lu(k,1353)
4868 315224452 : lu(k,1364) = lu(k,1364) - lu(k,1212) * lu(k,1353)
4869 315224452 : lu(k,1366) = lu(k,1366) - lu(k,1213) * lu(k,1353)
4870 315224452 : lu(k,1374) = lu(k,1374) - lu(k,1209) * lu(k,1373)
4871 315224452 : lu(k,1378) = lu(k,1378) - lu(k,1210) * lu(k,1373)
4872 315224452 : lu(k,1382) = lu(k,1382) - lu(k,1211) * lu(k,1373)
4873 315224452 : lu(k,1385) = lu(k,1385) - lu(k,1212) * lu(k,1373)
4874 315224452 : lu(k,1389) = lu(k,1389) - lu(k,1213) * lu(k,1373)
4875 315224452 : lu(k,1396) = - lu(k,1209) * lu(k,1395)
4876 315224452 : lu(k,1398) = lu(k,1398) - lu(k,1210) * lu(k,1395)
4877 315224452 : lu(k,1401) = lu(k,1401) - lu(k,1211) * lu(k,1395)
4878 315224452 : lu(k,1404) = lu(k,1404) - lu(k,1212) * lu(k,1395)
4879 315224452 : lu(k,1407) = lu(k,1407) - lu(k,1213) * lu(k,1395)
4880 315224452 : lu(k,1422) = lu(k,1422) - lu(k,1209) * lu(k,1418)
4881 315224452 : lu(k,1428) = lu(k,1428) - lu(k,1210) * lu(k,1418)
4882 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1211) * lu(k,1418)
4883 315224452 : lu(k,1435) = lu(k,1435) - lu(k,1212) * lu(k,1418)
4884 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1213) * lu(k,1418)
4885 315224452 : lu(k,1639) = lu(k,1639) - lu(k,1209) * lu(k,1634)
4886 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1210) * lu(k,1634)
4887 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1211) * lu(k,1634)
4888 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1212) * lu(k,1634)
4889 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1213) * lu(k,1634)
4890 315224452 : lu(k,1802) = lu(k,1802) - lu(k,1209) * lu(k,1797)
4891 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1210) * lu(k,1797)
4892 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1211) * lu(k,1797)
4893 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1212) * lu(k,1797)
4894 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1213) * lu(k,1797)
4895 315224452 : lu(k,1900) = lu(k,1900) - lu(k,1209) * lu(k,1895)
4896 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1210) * lu(k,1895)
4897 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1211) * lu(k,1895)
4898 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1212) * lu(k,1895)
4899 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1213) * lu(k,1895)
4900 315224452 : lu(k,1947) = lu(k,1947) - lu(k,1209) * lu(k,1946)
4901 315224452 : lu(k,1949) = lu(k,1949) - lu(k,1210) * lu(k,1946)
4902 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1211) * lu(k,1946)
4903 315224452 : lu(k,1961) = lu(k,1961) - lu(k,1212) * lu(k,1946)
4904 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1213) * lu(k,1946)
4905 315224452 : lu(k,2210) = lu(k,2210) - lu(k,1209) * lu(k,2206)
4906 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1210) * lu(k,2206)
4907 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1211) * lu(k,2206)
4908 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1212) * lu(k,2206)
4909 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1213) * lu(k,2206)
4910 315224452 : lu(k,2342) = lu(k,2342) - lu(k,1209) * lu(k,2337)
4911 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1210) * lu(k,2337)
4912 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1211) * lu(k,2337)
4913 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1212) * lu(k,2337)
4914 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1213) * lu(k,2337)
4915 315224452 : lu(k,2397) = lu(k,2397) - lu(k,1209) * lu(k,2392)
4916 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1210) * lu(k,2392)
4917 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1211) * lu(k,2392)
4918 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1212) * lu(k,2392)
4919 325174377 : lu(k,2420) = lu(k,2420) - lu(k,1213) * lu(k,2392)
4920 : end do
4921 9949925 : end subroutine lu_fac24
4922 9949925 : subroutine lu_fac25( avec_len, lu )
4923 : use chem_mods, only : nzcnt
4924 : use shr_kind_mod, only : r8 => shr_kind_r8
4925 : implicit none
4926 : !-----------------------------------------------------------------------
4927 : ! ... dummy args
4928 : !-----------------------------------------------------------------------
4929 : integer, intent(in) :: avec_len
4930 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4931 : !-----------------------------------------------------------------------
4932 : ! ... local variables
4933 : !-----------------------------------------------------------------------
4934 : integer :: k
4935 325174377 : do k = 1,avec_len
4936 315224452 : lu(k,1217) = 1._r8 / lu(k,1217)
4937 315224452 : lu(k,1218) = lu(k,1218) * lu(k,1217)
4938 315224452 : lu(k,1219) = lu(k,1219) * lu(k,1217)
4939 315224452 : lu(k,1220) = lu(k,1220) * lu(k,1217)
4940 315224452 : lu(k,1221) = lu(k,1221) * lu(k,1217)
4941 315224452 : lu(k,1222) = lu(k,1222) * lu(k,1217)
4942 315224452 : lu(k,1223) = lu(k,1223) * lu(k,1217)
4943 315224452 : lu(k,1224) = lu(k,1224) * lu(k,1217)
4944 315224452 : lu(k,1225) = lu(k,1225) * lu(k,1217)
4945 315224452 : lu(k,1226) = lu(k,1226) * lu(k,1217)
4946 315224452 : lu(k,1298) = lu(k,1298) - lu(k,1218) * lu(k,1295)
4947 315224452 : lu(k,1303) = lu(k,1303) - lu(k,1219) * lu(k,1295)
4948 315224452 : lu(k,1306) = lu(k,1306) - lu(k,1220) * lu(k,1295)
4949 315224452 : lu(k,1307) = lu(k,1307) - lu(k,1221) * lu(k,1295)
4950 315224452 : lu(k,1308) = lu(k,1308) - lu(k,1222) * lu(k,1295)
4951 315224452 : lu(k,1309) = lu(k,1309) - lu(k,1223) * lu(k,1295)
4952 315224452 : lu(k,1312) = lu(k,1312) - lu(k,1224) * lu(k,1295)
4953 315224452 : lu(k,1313) = lu(k,1313) - lu(k,1225) * lu(k,1295)
4954 315224452 : lu(k,1314) = lu(k,1314) - lu(k,1226) * lu(k,1295)
4955 315224452 : lu(k,1331) = lu(k,1331) - lu(k,1218) * lu(k,1328)
4956 315224452 : lu(k,1336) = lu(k,1336) - lu(k,1219) * lu(k,1328)
4957 315224452 : lu(k,1339) = lu(k,1339) - lu(k,1220) * lu(k,1328)
4958 315224452 : lu(k,1340) = lu(k,1340) - lu(k,1221) * lu(k,1328)
4959 315224452 : lu(k,1341) = lu(k,1341) - lu(k,1222) * lu(k,1328)
4960 315224452 : lu(k,1342) = lu(k,1342) - lu(k,1223) * lu(k,1328)
4961 315224452 : lu(k,1345) = lu(k,1345) - lu(k,1224) * lu(k,1328)
4962 315224452 : lu(k,1346) = lu(k,1346) - lu(k,1225) * lu(k,1328)
4963 315224452 : lu(k,1347) = lu(k,1347) - lu(k,1226) * lu(k,1328)
4964 315224452 : lu(k,1355) = lu(k,1355) - lu(k,1218) * lu(k,1354)
4965 315224452 : lu(k,1358) = lu(k,1358) - lu(k,1219) * lu(k,1354)
4966 315224452 : lu(k,1361) = lu(k,1361) - lu(k,1220) * lu(k,1354)
4967 315224452 : lu(k,1362) = lu(k,1362) - lu(k,1221) * lu(k,1354)
4968 315224452 : lu(k,1363) = lu(k,1363) - lu(k,1222) * lu(k,1354)
4969 315224452 : lu(k,1364) = lu(k,1364) - lu(k,1223) * lu(k,1354)
4970 315224452 : lu(k,1366) = lu(k,1366) - lu(k,1224) * lu(k,1354)
4971 315224452 : lu(k,1367) = lu(k,1367) - lu(k,1225) * lu(k,1354)
4972 315224452 : lu(k,1368) = lu(k,1368) - lu(k,1226) * lu(k,1354)
4973 315224452 : lu(k,1639) = lu(k,1639) - lu(k,1218) * lu(k,1635)
4974 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1219) * lu(k,1635)
4975 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1220) * lu(k,1635)
4976 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1221) * lu(k,1635)
4977 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1222) * lu(k,1635)
4978 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1223) * lu(k,1635)
4979 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1224) * lu(k,1635)
4980 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1225) * lu(k,1635)
4981 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1226) * lu(k,1635)
4982 315224452 : lu(k,1802) = lu(k,1802) - lu(k,1218) * lu(k,1798)
4983 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1219) * lu(k,1798)
4984 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1220) * lu(k,1798)
4985 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1221) * lu(k,1798)
4986 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1222) * lu(k,1798)
4987 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1223) * lu(k,1798)
4988 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1224) * lu(k,1798)
4989 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1225) * lu(k,1798)
4990 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1226) * lu(k,1798)
4991 315224452 : lu(k,1900) = lu(k,1900) - lu(k,1218) * lu(k,1896)
4992 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1219) * lu(k,1896)
4993 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1220) * lu(k,1896)
4994 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1221) * lu(k,1896)
4995 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1222) * lu(k,1896)
4996 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1223) * lu(k,1896)
4997 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1224) * lu(k,1896)
4998 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1225) * lu(k,1896)
4999 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1226) * lu(k,1896)
5000 315224452 : lu(k,2150) = - lu(k,1218) * lu(k,2149)
5001 315224452 : lu(k,2151) = lu(k,2151) - lu(k,1219) * lu(k,2149)
5002 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1220) * lu(k,2149)
5003 315224452 : lu(k,2161) = lu(k,2161) - lu(k,1221) * lu(k,2149)
5004 315224452 : lu(k,2162) = lu(k,2162) - lu(k,1222) * lu(k,2149)
5005 315224452 : lu(k,2163) = lu(k,2163) - lu(k,1223) * lu(k,2149)
5006 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1224) * lu(k,2149)
5007 315224452 : lu(k,2172) = lu(k,2172) - lu(k,1225) * lu(k,2149)
5008 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1226) * lu(k,2149)
5009 315224452 : lu(k,2210) = lu(k,2210) - lu(k,1218) * lu(k,2207)
5010 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1219) * lu(k,2207)
5011 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1220) * lu(k,2207)
5012 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1221) * lu(k,2207)
5013 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1222) * lu(k,2207)
5014 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1223) * lu(k,2207)
5015 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1224) * lu(k,2207)
5016 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1225) * lu(k,2207)
5017 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1226) * lu(k,2207)
5018 315224452 : lu(k,2342) = lu(k,2342) - lu(k,1218) * lu(k,2338)
5019 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1219) * lu(k,2338)
5020 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1220) * lu(k,2338)
5021 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1221) * lu(k,2338)
5022 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1222) * lu(k,2338)
5023 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1223) * lu(k,2338)
5024 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1224) * lu(k,2338)
5025 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1225) * lu(k,2338)
5026 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1226) * lu(k,2338)
5027 315224452 : lu(k,2397) = lu(k,2397) - lu(k,1218) * lu(k,2393)
5028 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1219) * lu(k,2393)
5029 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1220) * lu(k,2393)
5030 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1221) * lu(k,2393)
5031 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1222) * lu(k,2393)
5032 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1223) * lu(k,2393)
5033 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1224) * lu(k,2393)
5034 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1225) * lu(k,2393)
5035 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1226) * lu(k,2393)
5036 315224452 : lu(k,1233) = 1._r8 / lu(k,1233)
5037 315224452 : lu(k,1234) = lu(k,1234) * lu(k,1233)
5038 315224452 : lu(k,1235) = lu(k,1235) * lu(k,1233)
5039 315224452 : lu(k,1236) = lu(k,1236) * lu(k,1233)
5040 315224452 : lu(k,1237) = lu(k,1237) * lu(k,1233)
5041 315224452 : lu(k,1238) = lu(k,1238) * lu(k,1233)
5042 315224452 : lu(k,1239) = lu(k,1239) * lu(k,1233)
5043 315224452 : lu(k,1240) = lu(k,1240) * lu(k,1233)
5044 315224452 : lu(k,1241) = lu(k,1241) * lu(k,1233)
5045 315224452 : lu(k,1242) = lu(k,1242) * lu(k,1233)
5046 315224452 : lu(k,1243) = lu(k,1243) * lu(k,1233)
5047 315224452 : lu(k,1255) = lu(k,1255) - lu(k,1234) * lu(k,1252)
5048 315224452 : lu(k,1257) = lu(k,1257) - lu(k,1235) * lu(k,1252)
5049 315224452 : lu(k,1258) = lu(k,1258) - lu(k,1236) * lu(k,1252)
5050 315224452 : lu(k,1259) = lu(k,1259) - lu(k,1237) * lu(k,1252)
5051 315224452 : lu(k,1260) = lu(k,1260) - lu(k,1238) * lu(k,1252)
5052 315224452 : lu(k,1261) = lu(k,1261) - lu(k,1239) * lu(k,1252)
5053 315224452 : lu(k,1262) = lu(k,1262) - lu(k,1240) * lu(k,1252)
5054 315224452 : lu(k,1263) = lu(k,1263) - lu(k,1241) * lu(k,1252)
5055 315224452 : lu(k,1265) = lu(k,1265) - lu(k,1242) * lu(k,1252)
5056 315224452 : lu(k,1266) = lu(k,1266) - lu(k,1243) * lu(k,1252)
5057 315224452 : lu(k,1298) = lu(k,1298) - lu(k,1234) * lu(k,1296)
5058 315224452 : lu(k,1303) = lu(k,1303) - lu(k,1235) * lu(k,1296)
5059 315224452 : lu(k,1304) = lu(k,1304) - lu(k,1236) * lu(k,1296)
5060 315224452 : lu(k,1305) = lu(k,1305) - lu(k,1237) * lu(k,1296)
5061 315224452 : lu(k,1306) = lu(k,1306) - lu(k,1238) * lu(k,1296)
5062 315224452 : lu(k,1307) = lu(k,1307) - lu(k,1239) * lu(k,1296)
5063 315224452 : lu(k,1308) = lu(k,1308) - lu(k,1240) * lu(k,1296)
5064 315224452 : lu(k,1309) = lu(k,1309) - lu(k,1241) * lu(k,1296)
5065 315224452 : lu(k,1312) = lu(k,1312) - lu(k,1242) * lu(k,1296)
5066 315224452 : lu(k,1313) = lu(k,1313) - lu(k,1243) * lu(k,1296)
5067 315224452 : lu(k,1331) = lu(k,1331) - lu(k,1234) * lu(k,1329)
5068 315224452 : lu(k,1336) = lu(k,1336) - lu(k,1235) * lu(k,1329)
5069 315224452 : lu(k,1337) = lu(k,1337) - lu(k,1236) * lu(k,1329)
5070 315224452 : lu(k,1338) = lu(k,1338) - lu(k,1237) * lu(k,1329)
5071 315224452 : lu(k,1339) = lu(k,1339) - lu(k,1238) * lu(k,1329)
5072 315224452 : lu(k,1340) = lu(k,1340) - lu(k,1239) * lu(k,1329)
5073 315224452 : lu(k,1341) = lu(k,1341) - lu(k,1240) * lu(k,1329)
5074 315224452 : lu(k,1342) = lu(k,1342) - lu(k,1241) * lu(k,1329)
5075 315224452 : lu(k,1345) = lu(k,1345) - lu(k,1242) * lu(k,1329)
5076 315224452 : lu(k,1346) = lu(k,1346) - lu(k,1243) * lu(k,1329)
5077 315224452 : lu(k,1422) = lu(k,1422) - lu(k,1234) * lu(k,1419)
5078 315224452 : lu(k,1428) = lu(k,1428) - lu(k,1235) * lu(k,1419)
5079 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1236) * lu(k,1419)
5080 315224452 : lu(k,1431) = lu(k,1431) - lu(k,1237) * lu(k,1419)
5081 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1238) * lu(k,1419)
5082 315224452 : lu(k,1433) = lu(k,1433) - lu(k,1239) * lu(k,1419)
5083 315224452 : lu(k,1434) = lu(k,1434) - lu(k,1240) * lu(k,1419)
5084 315224452 : lu(k,1435) = lu(k,1435) - lu(k,1241) * lu(k,1419)
5085 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1242) * lu(k,1419)
5086 315224452 : lu(k,1440) = lu(k,1440) - lu(k,1243) * lu(k,1419)
5087 315224452 : lu(k,1639) = lu(k,1639) - lu(k,1234) * lu(k,1636)
5088 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1235) * lu(k,1636)
5089 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1236) * lu(k,1636)
5090 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1237) * lu(k,1636)
5091 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1238) * lu(k,1636)
5092 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1239) * lu(k,1636)
5093 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1240) * lu(k,1636)
5094 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1241) * lu(k,1636)
5095 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1242) * lu(k,1636)
5096 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1243) * lu(k,1636)
5097 315224452 : lu(k,1802) = lu(k,1802) - lu(k,1234) * lu(k,1799)
5098 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1235) * lu(k,1799)
5099 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1236) * lu(k,1799)
5100 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1237) * lu(k,1799)
5101 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1238) * lu(k,1799)
5102 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1239) * lu(k,1799)
5103 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1240) * lu(k,1799)
5104 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1241) * lu(k,1799)
5105 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1242) * lu(k,1799)
5106 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1243) * lu(k,1799)
5107 315224452 : lu(k,1900) = lu(k,1900) - lu(k,1234) * lu(k,1897)
5108 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1235) * lu(k,1897)
5109 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1236) * lu(k,1897)
5110 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1237) * lu(k,1897)
5111 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1238) * lu(k,1897)
5112 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1239) * lu(k,1897)
5113 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1240) * lu(k,1897)
5114 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1241) * lu(k,1897)
5115 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1242) * lu(k,1897)
5116 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1243) * lu(k,1897)
5117 315224452 : lu(k,2342) = lu(k,2342) - lu(k,1234) * lu(k,2339)
5118 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1235) * lu(k,2339)
5119 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1236) * lu(k,2339)
5120 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1237) * lu(k,2339)
5121 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1238) * lu(k,2339)
5122 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1239) * lu(k,2339)
5123 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1240) * lu(k,2339)
5124 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1241) * lu(k,2339)
5125 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1242) * lu(k,2339)
5126 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1243) * lu(k,2339)
5127 315224452 : lu(k,2397) = lu(k,2397) - lu(k,1234) * lu(k,2394)
5128 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1235) * lu(k,2394)
5129 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1236) * lu(k,2394)
5130 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1237) * lu(k,2394)
5131 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1238) * lu(k,2394)
5132 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1239) * lu(k,2394)
5133 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1240) * lu(k,2394)
5134 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1241) * lu(k,2394)
5135 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1242) * lu(k,2394)
5136 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1243) * lu(k,2394)
5137 315224452 : lu(k,1253) = 1._r8 / lu(k,1253)
5138 315224452 : lu(k,1254) = lu(k,1254) * lu(k,1253)
5139 315224452 : lu(k,1255) = lu(k,1255) * lu(k,1253)
5140 315224452 : lu(k,1256) = lu(k,1256) * lu(k,1253)
5141 315224452 : lu(k,1257) = lu(k,1257) * lu(k,1253)
5142 315224452 : lu(k,1258) = lu(k,1258) * lu(k,1253)
5143 315224452 : lu(k,1259) = lu(k,1259) * lu(k,1253)
5144 315224452 : lu(k,1260) = lu(k,1260) * lu(k,1253)
5145 315224452 : lu(k,1261) = lu(k,1261) * lu(k,1253)
5146 315224452 : lu(k,1262) = lu(k,1262) * lu(k,1253)
5147 315224452 : lu(k,1263) = lu(k,1263) * lu(k,1253)
5148 315224452 : lu(k,1264) = lu(k,1264) * lu(k,1253)
5149 315224452 : lu(k,1265) = lu(k,1265) * lu(k,1253)
5150 315224452 : lu(k,1266) = lu(k,1266) * lu(k,1253)
5151 315224452 : lu(k,1421) = lu(k,1421) - lu(k,1254) * lu(k,1420)
5152 315224452 : lu(k,1422) = lu(k,1422) - lu(k,1255) * lu(k,1420)
5153 315224452 : lu(k,1426) = lu(k,1426) - lu(k,1256) * lu(k,1420)
5154 315224452 : lu(k,1428) = lu(k,1428) - lu(k,1257) * lu(k,1420)
5155 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1258) * lu(k,1420)
5156 315224452 : lu(k,1431) = lu(k,1431) - lu(k,1259) * lu(k,1420)
5157 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1260) * lu(k,1420)
5158 315224452 : lu(k,1433) = lu(k,1433) - lu(k,1261) * lu(k,1420)
5159 315224452 : lu(k,1434) = lu(k,1434) - lu(k,1262) * lu(k,1420)
5160 315224452 : lu(k,1435) = lu(k,1435) - lu(k,1263) * lu(k,1420)
5161 315224452 : lu(k,1436) = lu(k,1436) - lu(k,1264) * lu(k,1420)
5162 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1265) * lu(k,1420)
5163 315224452 : lu(k,1440) = lu(k,1440) - lu(k,1266) * lu(k,1420)
5164 315224452 : lu(k,1638) = lu(k,1638) - lu(k,1254) * lu(k,1637)
5165 315224452 : lu(k,1639) = lu(k,1639) - lu(k,1255) * lu(k,1637)
5166 315224452 : lu(k,1643) = lu(k,1643) - lu(k,1256) * lu(k,1637)
5167 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1257) * lu(k,1637)
5168 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1258) * lu(k,1637)
5169 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1259) * lu(k,1637)
5170 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1260) * lu(k,1637)
5171 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1261) * lu(k,1637)
5172 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1262) * lu(k,1637)
5173 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1263) * lu(k,1637)
5174 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1264) * lu(k,1637)
5175 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1265) * lu(k,1637)
5176 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1266) * lu(k,1637)
5177 315224452 : lu(k,1801) = lu(k,1801) - lu(k,1254) * lu(k,1800)
5178 315224452 : lu(k,1802) = lu(k,1802) - lu(k,1255) * lu(k,1800)
5179 315224452 : lu(k,1806) = lu(k,1806) - lu(k,1256) * lu(k,1800)
5180 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1257) * lu(k,1800)
5181 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1258) * lu(k,1800)
5182 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1259) * lu(k,1800)
5183 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1260) * lu(k,1800)
5184 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1261) * lu(k,1800)
5185 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1262) * lu(k,1800)
5186 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1263) * lu(k,1800)
5187 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1264) * lu(k,1800)
5188 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1265) * lu(k,1800)
5189 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1266) * lu(k,1800)
5190 315224452 : lu(k,1899) = lu(k,1899) - lu(k,1254) * lu(k,1898)
5191 315224452 : lu(k,1900) = lu(k,1900) - lu(k,1255) * lu(k,1898)
5192 315224452 : lu(k,1904) = lu(k,1904) - lu(k,1256) * lu(k,1898)
5193 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1257) * lu(k,1898)
5194 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1258) * lu(k,1898)
5195 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1259) * lu(k,1898)
5196 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1260) * lu(k,1898)
5197 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1261) * lu(k,1898)
5198 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1262) * lu(k,1898)
5199 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1263) * lu(k,1898)
5200 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1264) * lu(k,1898)
5201 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1265) * lu(k,1898)
5202 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1266) * lu(k,1898)
5203 315224452 : lu(k,2209) = lu(k,2209) - lu(k,1254) * lu(k,2208)
5204 315224452 : lu(k,2210) = lu(k,2210) - lu(k,1255) * lu(k,2208)
5205 315224452 : lu(k,2214) = lu(k,2214) - lu(k,1256) * lu(k,2208)
5206 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1257) * lu(k,2208)
5207 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1258) * lu(k,2208)
5208 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1259) * lu(k,2208)
5209 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1260) * lu(k,2208)
5210 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1261) * lu(k,2208)
5211 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1262) * lu(k,2208)
5212 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1263) * lu(k,2208)
5213 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1264) * lu(k,2208)
5214 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1265) * lu(k,2208)
5215 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1266) * lu(k,2208)
5216 315224452 : lu(k,2341) = lu(k,2341) - lu(k,1254) * lu(k,2340)
5217 315224452 : lu(k,2342) = lu(k,2342) - lu(k,1255) * lu(k,2340)
5218 315224452 : lu(k,2346) = lu(k,2346) - lu(k,1256) * lu(k,2340)
5219 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1257) * lu(k,2340)
5220 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1258) * lu(k,2340)
5221 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1259) * lu(k,2340)
5222 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1260) * lu(k,2340)
5223 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1261) * lu(k,2340)
5224 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1262) * lu(k,2340)
5225 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1263) * lu(k,2340)
5226 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1264) * lu(k,2340)
5227 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1265) * lu(k,2340)
5228 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1266) * lu(k,2340)
5229 315224452 : lu(k,2396) = lu(k,2396) - lu(k,1254) * lu(k,2395)
5230 315224452 : lu(k,2397) = lu(k,2397) - lu(k,1255) * lu(k,2395)
5231 315224452 : lu(k,2401) = lu(k,2401) - lu(k,1256) * lu(k,2395)
5232 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1257) * lu(k,2395)
5233 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1258) * lu(k,2395)
5234 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1259) * lu(k,2395)
5235 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1260) * lu(k,2395)
5236 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1261) * lu(k,2395)
5237 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1262) * lu(k,2395)
5238 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1263) * lu(k,2395)
5239 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1264) * lu(k,2395)
5240 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1265) * lu(k,2395)
5241 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1266) * lu(k,2395)
5242 315224452 : lu(k,1269) = 1._r8 / lu(k,1269)
5243 315224452 : lu(k,1270) = lu(k,1270) * lu(k,1269)
5244 315224452 : lu(k,1271) = lu(k,1271) * lu(k,1269)
5245 315224452 : lu(k,1272) = lu(k,1272) * lu(k,1269)
5246 315224452 : lu(k,1273) = lu(k,1273) * lu(k,1269)
5247 315224452 : lu(k,1274) = lu(k,1274) * lu(k,1269)
5248 315224452 : lu(k,1275) = lu(k,1275) * lu(k,1269)
5249 315224452 : lu(k,1276) = lu(k,1276) * lu(k,1269)
5250 315224452 : lu(k,1277) = lu(k,1277) * lu(k,1269)
5251 315224452 : lu(k,1278) = lu(k,1278) * lu(k,1269)
5252 315224452 : lu(k,1279) = lu(k,1279) * lu(k,1269)
5253 315224452 : lu(k,1298) = lu(k,1298) - lu(k,1270) * lu(k,1297)
5254 315224452 : lu(k,1300) = - lu(k,1271) * lu(k,1297)
5255 315224452 : lu(k,1302) = - lu(k,1272) * lu(k,1297)
5256 315224452 : lu(k,1303) = lu(k,1303) - lu(k,1273) * lu(k,1297)
5257 315224452 : lu(k,1304) = lu(k,1304) - lu(k,1274) * lu(k,1297)
5258 315224452 : lu(k,1306) = lu(k,1306) - lu(k,1275) * lu(k,1297)
5259 315224452 : lu(k,1309) = lu(k,1309) - lu(k,1276) * lu(k,1297)
5260 315224452 : lu(k,1311) = - lu(k,1277) * lu(k,1297)
5261 315224452 : lu(k,1312) = lu(k,1312) - lu(k,1278) * lu(k,1297)
5262 315224452 : lu(k,1314) = lu(k,1314) - lu(k,1279) * lu(k,1297)
5263 315224452 : lu(k,1331) = lu(k,1331) - lu(k,1270) * lu(k,1330)
5264 315224452 : lu(k,1333) = - lu(k,1271) * lu(k,1330)
5265 315224452 : lu(k,1335) = - lu(k,1272) * lu(k,1330)
5266 315224452 : lu(k,1336) = lu(k,1336) - lu(k,1273) * lu(k,1330)
5267 315224452 : lu(k,1337) = lu(k,1337) - lu(k,1274) * lu(k,1330)
5268 315224452 : lu(k,1339) = lu(k,1339) - lu(k,1275) * lu(k,1330)
5269 315224452 : lu(k,1342) = lu(k,1342) - lu(k,1276) * lu(k,1330)
5270 315224452 : lu(k,1344) = - lu(k,1277) * lu(k,1330)
5271 315224452 : lu(k,1345) = lu(k,1345) - lu(k,1278) * lu(k,1330)
5272 315224452 : lu(k,1347) = lu(k,1347) - lu(k,1279) * lu(k,1330)
5273 315224452 : lu(k,1422) = lu(k,1422) - lu(k,1270) * lu(k,1421)
5274 315224452 : lu(k,1425) = lu(k,1425) - lu(k,1271) * lu(k,1421)
5275 315224452 : lu(k,1427) = lu(k,1427) - lu(k,1272) * lu(k,1421)
5276 315224452 : lu(k,1428) = lu(k,1428) - lu(k,1273) * lu(k,1421)
5277 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1274) * lu(k,1421)
5278 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1275) * lu(k,1421)
5279 315224452 : lu(k,1435) = lu(k,1435) - lu(k,1276) * lu(k,1421)
5280 315224452 : lu(k,1437) = lu(k,1437) - lu(k,1277) * lu(k,1421)
5281 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1278) * lu(k,1421)
5282 315224452 : lu(k,1441) = lu(k,1441) - lu(k,1279) * lu(k,1421)
5283 315224452 : lu(k,1639) = lu(k,1639) - lu(k,1270) * lu(k,1638)
5284 315224452 : lu(k,1642) = lu(k,1642) - lu(k,1271) * lu(k,1638)
5285 315224452 : lu(k,1644) = lu(k,1644) - lu(k,1272) * lu(k,1638)
5286 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1273) * lu(k,1638)
5287 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1274) * lu(k,1638)
5288 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1275) * lu(k,1638)
5289 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1276) * lu(k,1638)
5290 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1277) * lu(k,1638)
5291 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1278) * lu(k,1638)
5292 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1279) * lu(k,1638)
5293 315224452 : lu(k,1802) = lu(k,1802) - lu(k,1270) * lu(k,1801)
5294 315224452 : lu(k,1805) = lu(k,1805) - lu(k,1271) * lu(k,1801)
5295 315224452 : lu(k,1807) = lu(k,1807) - lu(k,1272) * lu(k,1801)
5296 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1273) * lu(k,1801)
5297 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1274) * lu(k,1801)
5298 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1275) * lu(k,1801)
5299 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1276) * lu(k,1801)
5300 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1277) * lu(k,1801)
5301 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1278) * lu(k,1801)
5302 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1279) * lu(k,1801)
5303 315224452 : lu(k,1900) = lu(k,1900) - lu(k,1270) * lu(k,1899)
5304 315224452 : lu(k,1903) = lu(k,1903) - lu(k,1271) * lu(k,1899)
5305 315224452 : lu(k,1905) = lu(k,1905) - lu(k,1272) * lu(k,1899)
5306 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1273) * lu(k,1899)
5307 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1274) * lu(k,1899)
5308 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1275) * lu(k,1899)
5309 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1276) * lu(k,1899)
5310 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1277) * lu(k,1899)
5311 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1278) * lu(k,1899)
5312 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1279) * lu(k,1899)
5313 315224452 : lu(k,2210) = lu(k,2210) - lu(k,1270) * lu(k,2209)
5314 315224452 : lu(k,2213) = - lu(k,1271) * lu(k,2209)
5315 315224452 : lu(k,2215) = - lu(k,1272) * lu(k,2209)
5316 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1273) * lu(k,2209)
5317 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1274) * lu(k,2209)
5318 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1275) * lu(k,2209)
5319 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1276) * lu(k,2209)
5320 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1277) * lu(k,2209)
5321 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1278) * lu(k,2209)
5322 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1279) * lu(k,2209)
5323 315224452 : lu(k,2342) = lu(k,2342) - lu(k,1270) * lu(k,2341)
5324 315224452 : lu(k,2345) = lu(k,2345) - lu(k,1271) * lu(k,2341)
5325 315224452 : lu(k,2347) = lu(k,2347) - lu(k,1272) * lu(k,2341)
5326 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1273) * lu(k,2341)
5327 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1274) * lu(k,2341)
5328 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1275) * lu(k,2341)
5329 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1276) * lu(k,2341)
5330 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1277) * lu(k,2341)
5331 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1278) * lu(k,2341)
5332 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1279) * lu(k,2341)
5333 315224452 : lu(k,2397) = lu(k,2397) - lu(k,1270) * lu(k,2396)
5334 315224452 : lu(k,2400) = lu(k,2400) - lu(k,1271) * lu(k,2396)
5335 315224452 : lu(k,2402) = lu(k,2402) - lu(k,1272) * lu(k,2396)
5336 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1273) * lu(k,2396)
5337 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1274) * lu(k,2396)
5338 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1275) * lu(k,2396)
5339 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1276) * lu(k,2396)
5340 315224452 : lu(k,2418) = - lu(k,1277) * lu(k,2396)
5341 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1278) * lu(k,2396)
5342 325174377 : lu(k,2422) = lu(k,2422) - lu(k,1279) * lu(k,2396)
5343 : end do
5344 9949925 : end subroutine lu_fac25
5345 9949925 : subroutine lu_fac26( avec_len, lu )
5346 : use chem_mods, only : nzcnt
5347 : use shr_kind_mod, only : r8 => shr_kind_r8
5348 : implicit none
5349 : !-----------------------------------------------------------------------
5350 : ! ... dummy args
5351 : !-----------------------------------------------------------------------
5352 : integer, intent(in) :: avec_len
5353 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5354 : !-----------------------------------------------------------------------
5355 : ! ... local variables
5356 : !-----------------------------------------------------------------------
5357 : integer :: k
5358 325174377 : do k = 1,avec_len
5359 315224452 : lu(k,1281) = 1._r8 / lu(k,1281)
5360 315224452 : lu(k,1282) = lu(k,1282) * lu(k,1281)
5361 315224452 : lu(k,1283) = lu(k,1283) * lu(k,1281)
5362 315224452 : lu(k,1284) = lu(k,1284) * lu(k,1281)
5363 315224452 : lu(k,1285) = lu(k,1285) * lu(k,1281)
5364 315224452 : lu(k,1286) = lu(k,1286) * lu(k,1281)
5365 315224452 : lu(k,1287) = lu(k,1287) * lu(k,1281)
5366 315224452 : lu(k,1288) = lu(k,1288) * lu(k,1281)
5367 315224452 : lu(k,1303) = lu(k,1303) - lu(k,1282) * lu(k,1298)
5368 315224452 : lu(k,1304) = lu(k,1304) - lu(k,1283) * lu(k,1298)
5369 315224452 : lu(k,1305) = lu(k,1305) - lu(k,1284) * lu(k,1298)
5370 315224452 : lu(k,1306) = lu(k,1306) - lu(k,1285) * lu(k,1298)
5371 315224452 : lu(k,1310) = lu(k,1310) - lu(k,1286) * lu(k,1298)
5372 315224452 : lu(k,1312) = lu(k,1312) - lu(k,1287) * lu(k,1298)
5373 315224452 : lu(k,1314) = lu(k,1314) - lu(k,1288) * lu(k,1298)
5374 315224452 : lu(k,1336) = lu(k,1336) - lu(k,1282) * lu(k,1331)
5375 315224452 : lu(k,1337) = lu(k,1337) - lu(k,1283) * lu(k,1331)
5376 315224452 : lu(k,1338) = lu(k,1338) - lu(k,1284) * lu(k,1331)
5377 315224452 : lu(k,1339) = lu(k,1339) - lu(k,1285) * lu(k,1331)
5378 315224452 : lu(k,1343) = lu(k,1343) - lu(k,1286) * lu(k,1331)
5379 315224452 : lu(k,1345) = lu(k,1345) - lu(k,1287) * lu(k,1331)
5380 315224452 : lu(k,1347) = lu(k,1347) - lu(k,1288) * lu(k,1331)
5381 315224452 : lu(k,1358) = lu(k,1358) - lu(k,1282) * lu(k,1355)
5382 315224452 : lu(k,1359) = lu(k,1359) - lu(k,1283) * lu(k,1355)
5383 315224452 : lu(k,1360) = lu(k,1360) - lu(k,1284) * lu(k,1355)
5384 315224452 : lu(k,1361) = lu(k,1361) - lu(k,1285) * lu(k,1355)
5385 315224452 : lu(k,1365) = lu(k,1365) - lu(k,1286) * lu(k,1355)
5386 315224452 : lu(k,1366) = lu(k,1366) - lu(k,1287) * lu(k,1355)
5387 315224452 : lu(k,1368) = lu(k,1368) - lu(k,1288) * lu(k,1355)
5388 315224452 : lu(k,1378) = lu(k,1378) - lu(k,1282) * lu(k,1374)
5389 315224452 : lu(k,1379) = lu(k,1379) - lu(k,1283) * lu(k,1374)
5390 315224452 : lu(k,1381) = lu(k,1381) - lu(k,1284) * lu(k,1374)
5391 315224452 : lu(k,1382) = lu(k,1382) - lu(k,1285) * lu(k,1374)
5392 315224452 : lu(k,1386) = lu(k,1386) - lu(k,1286) * lu(k,1374)
5393 315224452 : lu(k,1389) = lu(k,1389) - lu(k,1287) * lu(k,1374)
5394 315224452 : lu(k,1391) = lu(k,1391) - lu(k,1288) * lu(k,1374)
5395 315224452 : lu(k,1398) = lu(k,1398) - lu(k,1282) * lu(k,1396)
5396 315224452 : lu(k,1399) = lu(k,1399) - lu(k,1283) * lu(k,1396)
5397 315224452 : lu(k,1400) = lu(k,1400) - lu(k,1284) * lu(k,1396)
5398 315224452 : lu(k,1401) = lu(k,1401) - lu(k,1285) * lu(k,1396)
5399 315224452 : lu(k,1405) = - lu(k,1286) * lu(k,1396)
5400 315224452 : lu(k,1407) = lu(k,1407) - lu(k,1287) * lu(k,1396)
5401 315224452 : lu(k,1409) = lu(k,1409) - lu(k,1288) * lu(k,1396)
5402 315224452 : lu(k,1428) = lu(k,1428) - lu(k,1282) * lu(k,1422)
5403 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1283) * lu(k,1422)
5404 315224452 : lu(k,1431) = lu(k,1431) - lu(k,1284) * lu(k,1422)
5405 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1285) * lu(k,1422)
5406 315224452 : lu(k,1436) = lu(k,1436) - lu(k,1286) * lu(k,1422)
5407 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1287) * lu(k,1422)
5408 315224452 : lu(k,1441) = lu(k,1441) - lu(k,1288) * lu(k,1422)
5409 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1282) * lu(k,1639)
5410 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1283) * lu(k,1639)
5411 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1284) * lu(k,1639)
5412 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1285) * lu(k,1639)
5413 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1286) * lu(k,1639)
5414 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1287) * lu(k,1639)
5415 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1288) * lu(k,1639)
5416 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1282) * lu(k,1802)
5417 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1283) * lu(k,1802)
5418 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1284) * lu(k,1802)
5419 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1285) * lu(k,1802)
5420 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1286) * lu(k,1802)
5421 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1287) * lu(k,1802)
5422 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1288) * lu(k,1802)
5423 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1282) * lu(k,1900)
5424 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1283) * lu(k,1900)
5425 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1284) * lu(k,1900)
5426 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1285) * lu(k,1900)
5427 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1286) * lu(k,1900)
5428 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1287) * lu(k,1900)
5429 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1288) * lu(k,1900)
5430 315224452 : lu(k,1949) = lu(k,1949) - lu(k,1282) * lu(k,1947)
5431 315224452 : lu(k,1950) = lu(k,1950) - lu(k,1283) * lu(k,1947)
5432 315224452 : lu(k,1957) = lu(k,1957) - lu(k,1284) * lu(k,1947)
5433 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1285) * lu(k,1947)
5434 315224452 : lu(k,1963) = lu(k,1963) - lu(k,1286) * lu(k,1947)
5435 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1287) * lu(k,1947)
5436 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1288) * lu(k,1947)
5437 315224452 : lu(k,2151) = lu(k,2151) - lu(k,1282) * lu(k,2150)
5438 315224452 : lu(k,2152) = lu(k,2152) - lu(k,1283) * lu(k,2150)
5439 315224452 : lu(k,2159) = lu(k,2159) - lu(k,1284) * lu(k,2150)
5440 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1285) * lu(k,2150)
5441 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1286) * lu(k,2150)
5442 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1287) * lu(k,2150)
5443 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1288) * lu(k,2150)
5444 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1282) * lu(k,2210)
5445 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1283) * lu(k,2210)
5446 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1284) * lu(k,2210)
5447 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1285) * lu(k,2210)
5448 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1286) * lu(k,2210)
5449 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1287) * lu(k,2210)
5450 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1288) * lu(k,2210)
5451 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1282) * lu(k,2342)
5452 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1283) * lu(k,2342)
5453 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1284) * lu(k,2342)
5454 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1285) * lu(k,2342)
5455 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1286) * lu(k,2342)
5456 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1287) * lu(k,2342)
5457 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1288) * lu(k,2342)
5458 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1282) * lu(k,2397)
5459 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1283) * lu(k,2397)
5460 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1284) * lu(k,2397)
5461 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1285) * lu(k,2397)
5462 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1286) * lu(k,2397)
5463 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1287) * lu(k,2397)
5464 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1288) * lu(k,2397)
5465 315224452 : lu(k,1299) = 1._r8 / lu(k,1299)
5466 315224452 : lu(k,1300) = lu(k,1300) * lu(k,1299)
5467 315224452 : lu(k,1301) = lu(k,1301) * lu(k,1299)
5468 315224452 : lu(k,1302) = lu(k,1302) * lu(k,1299)
5469 315224452 : lu(k,1303) = lu(k,1303) * lu(k,1299)
5470 315224452 : lu(k,1304) = lu(k,1304) * lu(k,1299)
5471 315224452 : lu(k,1305) = lu(k,1305) * lu(k,1299)
5472 315224452 : lu(k,1306) = lu(k,1306) * lu(k,1299)
5473 315224452 : lu(k,1307) = lu(k,1307) * lu(k,1299)
5474 315224452 : lu(k,1308) = lu(k,1308) * lu(k,1299)
5475 315224452 : lu(k,1309) = lu(k,1309) * lu(k,1299)
5476 315224452 : lu(k,1310) = lu(k,1310) * lu(k,1299)
5477 315224452 : lu(k,1311) = lu(k,1311) * lu(k,1299)
5478 315224452 : lu(k,1312) = lu(k,1312) * lu(k,1299)
5479 315224452 : lu(k,1313) = lu(k,1313) * lu(k,1299)
5480 315224452 : lu(k,1314) = lu(k,1314) * lu(k,1299)
5481 315224452 : lu(k,1425) = lu(k,1425) - lu(k,1300) * lu(k,1423)
5482 315224452 : lu(k,1426) = lu(k,1426) - lu(k,1301) * lu(k,1423)
5483 315224452 : lu(k,1427) = lu(k,1427) - lu(k,1302) * lu(k,1423)
5484 315224452 : lu(k,1428) = lu(k,1428) - lu(k,1303) * lu(k,1423)
5485 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1304) * lu(k,1423)
5486 315224452 : lu(k,1431) = lu(k,1431) - lu(k,1305) * lu(k,1423)
5487 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1306) * lu(k,1423)
5488 315224452 : lu(k,1433) = lu(k,1433) - lu(k,1307) * lu(k,1423)
5489 315224452 : lu(k,1434) = lu(k,1434) - lu(k,1308) * lu(k,1423)
5490 315224452 : lu(k,1435) = lu(k,1435) - lu(k,1309) * lu(k,1423)
5491 315224452 : lu(k,1436) = lu(k,1436) - lu(k,1310) * lu(k,1423)
5492 315224452 : lu(k,1437) = lu(k,1437) - lu(k,1311) * lu(k,1423)
5493 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1312) * lu(k,1423)
5494 315224452 : lu(k,1440) = lu(k,1440) - lu(k,1313) * lu(k,1423)
5495 315224452 : lu(k,1441) = lu(k,1441) - lu(k,1314) * lu(k,1423)
5496 315224452 : lu(k,1642) = lu(k,1642) - lu(k,1300) * lu(k,1640)
5497 315224452 : lu(k,1643) = lu(k,1643) - lu(k,1301) * lu(k,1640)
5498 315224452 : lu(k,1644) = lu(k,1644) - lu(k,1302) * lu(k,1640)
5499 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1303) * lu(k,1640)
5500 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1304) * lu(k,1640)
5501 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1305) * lu(k,1640)
5502 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1306) * lu(k,1640)
5503 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1307) * lu(k,1640)
5504 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1308) * lu(k,1640)
5505 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1309) * lu(k,1640)
5506 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1310) * lu(k,1640)
5507 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1311) * lu(k,1640)
5508 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1312) * lu(k,1640)
5509 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1313) * lu(k,1640)
5510 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1314) * lu(k,1640)
5511 315224452 : lu(k,1805) = lu(k,1805) - lu(k,1300) * lu(k,1803)
5512 315224452 : lu(k,1806) = lu(k,1806) - lu(k,1301) * lu(k,1803)
5513 315224452 : lu(k,1807) = lu(k,1807) - lu(k,1302) * lu(k,1803)
5514 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1303) * lu(k,1803)
5515 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1304) * lu(k,1803)
5516 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1305) * lu(k,1803)
5517 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1306) * lu(k,1803)
5518 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1307) * lu(k,1803)
5519 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1308) * lu(k,1803)
5520 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1309) * lu(k,1803)
5521 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1310) * lu(k,1803)
5522 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1311) * lu(k,1803)
5523 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1312) * lu(k,1803)
5524 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1313) * lu(k,1803)
5525 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1314) * lu(k,1803)
5526 315224452 : lu(k,1903) = lu(k,1903) - lu(k,1300) * lu(k,1901)
5527 315224452 : lu(k,1904) = lu(k,1904) - lu(k,1301) * lu(k,1901)
5528 315224452 : lu(k,1905) = lu(k,1905) - lu(k,1302) * lu(k,1901)
5529 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1303) * lu(k,1901)
5530 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1304) * lu(k,1901)
5531 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1305) * lu(k,1901)
5532 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1306) * lu(k,1901)
5533 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1307) * lu(k,1901)
5534 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1308) * lu(k,1901)
5535 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1309) * lu(k,1901)
5536 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1310) * lu(k,1901)
5537 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1311) * lu(k,1901)
5538 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1312) * lu(k,1901)
5539 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1313) * lu(k,1901)
5540 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1314) * lu(k,1901)
5541 315224452 : lu(k,2213) = lu(k,2213) - lu(k,1300) * lu(k,2211)
5542 315224452 : lu(k,2214) = lu(k,2214) - lu(k,1301) * lu(k,2211)
5543 315224452 : lu(k,2215) = lu(k,2215) - lu(k,1302) * lu(k,2211)
5544 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1303) * lu(k,2211)
5545 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1304) * lu(k,2211)
5546 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1305) * lu(k,2211)
5547 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1306) * lu(k,2211)
5548 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1307) * lu(k,2211)
5549 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1308) * lu(k,2211)
5550 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1309) * lu(k,2211)
5551 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1310) * lu(k,2211)
5552 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1311) * lu(k,2211)
5553 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1312) * lu(k,2211)
5554 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1313) * lu(k,2211)
5555 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1314) * lu(k,2211)
5556 315224452 : lu(k,2345) = lu(k,2345) - lu(k,1300) * lu(k,2343)
5557 315224452 : lu(k,2346) = lu(k,2346) - lu(k,1301) * lu(k,2343)
5558 315224452 : lu(k,2347) = lu(k,2347) - lu(k,1302) * lu(k,2343)
5559 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1303) * lu(k,2343)
5560 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1304) * lu(k,2343)
5561 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1305) * lu(k,2343)
5562 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1306) * lu(k,2343)
5563 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1307) * lu(k,2343)
5564 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1308) * lu(k,2343)
5565 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1309) * lu(k,2343)
5566 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1310) * lu(k,2343)
5567 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1311) * lu(k,2343)
5568 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1312) * lu(k,2343)
5569 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1313) * lu(k,2343)
5570 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1314) * lu(k,2343)
5571 315224452 : lu(k,2400) = lu(k,2400) - lu(k,1300) * lu(k,2398)
5572 315224452 : lu(k,2401) = lu(k,2401) - lu(k,1301) * lu(k,2398)
5573 315224452 : lu(k,2402) = lu(k,2402) - lu(k,1302) * lu(k,2398)
5574 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1303) * lu(k,2398)
5575 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1304) * lu(k,2398)
5576 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1305) * lu(k,2398)
5577 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1306) * lu(k,2398)
5578 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1307) * lu(k,2398)
5579 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1308) * lu(k,2398)
5580 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1309) * lu(k,2398)
5581 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1310) * lu(k,2398)
5582 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1311) * lu(k,2398)
5583 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1312) * lu(k,2398)
5584 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1313) * lu(k,2398)
5585 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1314) * lu(k,2398)
5586 315224452 : lu(k,1332) = 1._r8 / lu(k,1332)
5587 315224452 : lu(k,1333) = lu(k,1333) * lu(k,1332)
5588 315224452 : lu(k,1334) = lu(k,1334) * lu(k,1332)
5589 315224452 : lu(k,1335) = lu(k,1335) * lu(k,1332)
5590 315224452 : lu(k,1336) = lu(k,1336) * lu(k,1332)
5591 315224452 : lu(k,1337) = lu(k,1337) * lu(k,1332)
5592 315224452 : lu(k,1338) = lu(k,1338) * lu(k,1332)
5593 315224452 : lu(k,1339) = lu(k,1339) * lu(k,1332)
5594 315224452 : lu(k,1340) = lu(k,1340) * lu(k,1332)
5595 315224452 : lu(k,1341) = lu(k,1341) * lu(k,1332)
5596 315224452 : lu(k,1342) = lu(k,1342) * lu(k,1332)
5597 315224452 : lu(k,1343) = lu(k,1343) * lu(k,1332)
5598 315224452 : lu(k,1344) = lu(k,1344) * lu(k,1332)
5599 315224452 : lu(k,1345) = lu(k,1345) * lu(k,1332)
5600 315224452 : lu(k,1346) = lu(k,1346) * lu(k,1332)
5601 315224452 : lu(k,1347) = lu(k,1347) * lu(k,1332)
5602 315224452 : lu(k,1425) = lu(k,1425) - lu(k,1333) * lu(k,1424)
5603 315224452 : lu(k,1426) = lu(k,1426) - lu(k,1334) * lu(k,1424)
5604 315224452 : lu(k,1427) = lu(k,1427) - lu(k,1335) * lu(k,1424)
5605 315224452 : lu(k,1428) = lu(k,1428) - lu(k,1336) * lu(k,1424)
5606 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1337) * lu(k,1424)
5607 315224452 : lu(k,1431) = lu(k,1431) - lu(k,1338) * lu(k,1424)
5608 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1339) * lu(k,1424)
5609 315224452 : lu(k,1433) = lu(k,1433) - lu(k,1340) * lu(k,1424)
5610 315224452 : lu(k,1434) = lu(k,1434) - lu(k,1341) * lu(k,1424)
5611 315224452 : lu(k,1435) = lu(k,1435) - lu(k,1342) * lu(k,1424)
5612 315224452 : lu(k,1436) = lu(k,1436) - lu(k,1343) * lu(k,1424)
5613 315224452 : lu(k,1437) = lu(k,1437) - lu(k,1344) * lu(k,1424)
5614 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1345) * lu(k,1424)
5615 315224452 : lu(k,1440) = lu(k,1440) - lu(k,1346) * lu(k,1424)
5616 315224452 : lu(k,1441) = lu(k,1441) - lu(k,1347) * lu(k,1424)
5617 315224452 : lu(k,1642) = lu(k,1642) - lu(k,1333) * lu(k,1641)
5618 315224452 : lu(k,1643) = lu(k,1643) - lu(k,1334) * lu(k,1641)
5619 315224452 : lu(k,1644) = lu(k,1644) - lu(k,1335) * lu(k,1641)
5620 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1336) * lu(k,1641)
5621 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1337) * lu(k,1641)
5622 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1338) * lu(k,1641)
5623 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1339) * lu(k,1641)
5624 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1340) * lu(k,1641)
5625 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1341) * lu(k,1641)
5626 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1342) * lu(k,1641)
5627 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1343) * lu(k,1641)
5628 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1344) * lu(k,1641)
5629 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1345) * lu(k,1641)
5630 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1346) * lu(k,1641)
5631 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1347) * lu(k,1641)
5632 315224452 : lu(k,1805) = lu(k,1805) - lu(k,1333) * lu(k,1804)
5633 315224452 : lu(k,1806) = lu(k,1806) - lu(k,1334) * lu(k,1804)
5634 315224452 : lu(k,1807) = lu(k,1807) - lu(k,1335) * lu(k,1804)
5635 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1336) * lu(k,1804)
5636 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1337) * lu(k,1804)
5637 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1338) * lu(k,1804)
5638 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1339) * lu(k,1804)
5639 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1340) * lu(k,1804)
5640 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1341) * lu(k,1804)
5641 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1342) * lu(k,1804)
5642 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1343) * lu(k,1804)
5643 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1344) * lu(k,1804)
5644 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1345) * lu(k,1804)
5645 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1346) * lu(k,1804)
5646 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1347) * lu(k,1804)
5647 315224452 : lu(k,1903) = lu(k,1903) - lu(k,1333) * lu(k,1902)
5648 315224452 : lu(k,1904) = lu(k,1904) - lu(k,1334) * lu(k,1902)
5649 315224452 : lu(k,1905) = lu(k,1905) - lu(k,1335) * lu(k,1902)
5650 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1336) * lu(k,1902)
5651 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1337) * lu(k,1902)
5652 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1338) * lu(k,1902)
5653 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1339) * lu(k,1902)
5654 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1340) * lu(k,1902)
5655 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1341) * lu(k,1902)
5656 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1342) * lu(k,1902)
5657 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1343) * lu(k,1902)
5658 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1344) * lu(k,1902)
5659 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1345) * lu(k,1902)
5660 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1346) * lu(k,1902)
5661 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1347) * lu(k,1902)
5662 315224452 : lu(k,2213) = lu(k,2213) - lu(k,1333) * lu(k,2212)
5663 315224452 : lu(k,2214) = lu(k,2214) - lu(k,1334) * lu(k,2212)
5664 315224452 : lu(k,2215) = lu(k,2215) - lu(k,1335) * lu(k,2212)
5665 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1336) * lu(k,2212)
5666 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1337) * lu(k,2212)
5667 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1338) * lu(k,2212)
5668 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1339) * lu(k,2212)
5669 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1340) * lu(k,2212)
5670 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1341) * lu(k,2212)
5671 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1342) * lu(k,2212)
5672 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1343) * lu(k,2212)
5673 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1344) * lu(k,2212)
5674 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1345) * lu(k,2212)
5675 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1346) * lu(k,2212)
5676 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1347) * lu(k,2212)
5677 315224452 : lu(k,2345) = lu(k,2345) - lu(k,1333) * lu(k,2344)
5678 315224452 : lu(k,2346) = lu(k,2346) - lu(k,1334) * lu(k,2344)
5679 315224452 : lu(k,2347) = lu(k,2347) - lu(k,1335) * lu(k,2344)
5680 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1336) * lu(k,2344)
5681 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1337) * lu(k,2344)
5682 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1338) * lu(k,2344)
5683 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1339) * lu(k,2344)
5684 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1340) * lu(k,2344)
5685 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1341) * lu(k,2344)
5686 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1342) * lu(k,2344)
5687 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1343) * lu(k,2344)
5688 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1344) * lu(k,2344)
5689 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1345) * lu(k,2344)
5690 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1346) * lu(k,2344)
5691 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1347) * lu(k,2344)
5692 315224452 : lu(k,2400) = lu(k,2400) - lu(k,1333) * lu(k,2399)
5693 315224452 : lu(k,2401) = lu(k,2401) - lu(k,1334) * lu(k,2399)
5694 315224452 : lu(k,2402) = lu(k,2402) - lu(k,1335) * lu(k,2399)
5695 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1336) * lu(k,2399)
5696 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1337) * lu(k,2399)
5697 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1338) * lu(k,2399)
5698 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1339) * lu(k,2399)
5699 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1340) * lu(k,2399)
5700 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1341) * lu(k,2399)
5701 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1342) * lu(k,2399)
5702 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1343) * lu(k,2399)
5703 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1344) * lu(k,2399)
5704 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1345) * lu(k,2399)
5705 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1346) * lu(k,2399)
5706 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1347) * lu(k,2399)
5707 315224452 : lu(k,1356) = 1._r8 / lu(k,1356)
5708 315224452 : lu(k,1357) = lu(k,1357) * lu(k,1356)
5709 315224452 : lu(k,1358) = lu(k,1358) * lu(k,1356)
5710 315224452 : lu(k,1359) = lu(k,1359) * lu(k,1356)
5711 315224452 : lu(k,1360) = lu(k,1360) * lu(k,1356)
5712 315224452 : lu(k,1361) = lu(k,1361) * lu(k,1356)
5713 315224452 : lu(k,1362) = lu(k,1362) * lu(k,1356)
5714 315224452 : lu(k,1363) = lu(k,1363) * lu(k,1356)
5715 315224452 : lu(k,1364) = lu(k,1364) * lu(k,1356)
5716 315224452 : lu(k,1365) = lu(k,1365) * lu(k,1356)
5717 315224452 : lu(k,1366) = lu(k,1366) * lu(k,1356)
5718 315224452 : lu(k,1367) = lu(k,1367) * lu(k,1356)
5719 315224452 : lu(k,1368) = lu(k,1368) * lu(k,1356)
5720 315224452 : lu(k,1377) = - lu(k,1357) * lu(k,1375)
5721 315224452 : lu(k,1378) = lu(k,1378) - lu(k,1358) * lu(k,1375)
5722 315224452 : lu(k,1379) = lu(k,1379) - lu(k,1359) * lu(k,1375)
5723 315224452 : lu(k,1381) = lu(k,1381) - lu(k,1360) * lu(k,1375)
5724 315224452 : lu(k,1382) = lu(k,1382) - lu(k,1361) * lu(k,1375)
5725 315224452 : lu(k,1383) = lu(k,1383) - lu(k,1362) * lu(k,1375)
5726 315224452 : lu(k,1384) = lu(k,1384) - lu(k,1363) * lu(k,1375)
5727 315224452 : lu(k,1385) = lu(k,1385) - lu(k,1364) * lu(k,1375)
5728 315224452 : lu(k,1386) = lu(k,1386) - lu(k,1365) * lu(k,1375)
5729 315224452 : lu(k,1389) = lu(k,1389) - lu(k,1366) * lu(k,1375)
5730 315224452 : lu(k,1390) = lu(k,1390) - lu(k,1367) * lu(k,1375)
5731 315224452 : lu(k,1391) = lu(k,1391) - lu(k,1368) * lu(k,1375)
5732 315224452 : lu(k,1427) = lu(k,1427) - lu(k,1357) * lu(k,1425)
5733 315224452 : lu(k,1428) = lu(k,1428) - lu(k,1358) * lu(k,1425)
5734 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1359) * lu(k,1425)
5735 315224452 : lu(k,1431) = lu(k,1431) - lu(k,1360) * lu(k,1425)
5736 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1361) * lu(k,1425)
5737 315224452 : lu(k,1433) = lu(k,1433) - lu(k,1362) * lu(k,1425)
5738 315224452 : lu(k,1434) = lu(k,1434) - lu(k,1363) * lu(k,1425)
5739 315224452 : lu(k,1435) = lu(k,1435) - lu(k,1364) * lu(k,1425)
5740 315224452 : lu(k,1436) = lu(k,1436) - lu(k,1365) * lu(k,1425)
5741 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1366) * lu(k,1425)
5742 315224452 : lu(k,1440) = lu(k,1440) - lu(k,1367) * lu(k,1425)
5743 315224452 : lu(k,1441) = lu(k,1441) - lu(k,1368) * lu(k,1425)
5744 315224452 : lu(k,1644) = lu(k,1644) - lu(k,1357) * lu(k,1642)
5745 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1358) * lu(k,1642)
5746 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1359) * lu(k,1642)
5747 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1360) * lu(k,1642)
5748 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1361) * lu(k,1642)
5749 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1362) * lu(k,1642)
5750 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1363) * lu(k,1642)
5751 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1364) * lu(k,1642)
5752 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1365) * lu(k,1642)
5753 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1366) * lu(k,1642)
5754 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1367) * lu(k,1642)
5755 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1368) * lu(k,1642)
5756 315224452 : lu(k,1807) = lu(k,1807) - lu(k,1357) * lu(k,1805)
5757 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1358) * lu(k,1805)
5758 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1359) * lu(k,1805)
5759 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1360) * lu(k,1805)
5760 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1361) * lu(k,1805)
5761 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1362) * lu(k,1805)
5762 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1363) * lu(k,1805)
5763 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1364) * lu(k,1805)
5764 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1365) * lu(k,1805)
5765 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1366) * lu(k,1805)
5766 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1367) * lu(k,1805)
5767 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1368) * lu(k,1805)
5768 315224452 : lu(k,1905) = lu(k,1905) - lu(k,1357) * lu(k,1903)
5769 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1358) * lu(k,1903)
5770 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1359) * lu(k,1903)
5771 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1360) * lu(k,1903)
5772 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1361) * lu(k,1903)
5773 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1362) * lu(k,1903)
5774 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1363) * lu(k,1903)
5775 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1364) * lu(k,1903)
5776 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1365) * lu(k,1903)
5777 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1366) * lu(k,1903)
5778 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1367) * lu(k,1903)
5779 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1368) * lu(k,1903)
5780 315224452 : lu(k,2215) = lu(k,2215) - lu(k,1357) * lu(k,2213)
5781 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1358) * lu(k,2213)
5782 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1359) * lu(k,2213)
5783 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1360) * lu(k,2213)
5784 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1361) * lu(k,2213)
5785 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1362) * lu(k,2213)
5786 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1363) * lu(k,2213)
5787 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1364) * lu(k,2213)
5788 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1365) * lu(k,2213)
5789 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1366) * lu(k,2213)
5790 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1367) * lu(k,2213)
5791 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1368) * lu(k,2213)
5792 315224452 : lu(k,2347) = lu(k,2347) - lu(k,1357) * lu(k,2345)
5793 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1358) * lu(k,2345)
5794 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1359) * lu(k,2345)
5795 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1360) * lu(k,2345)
5796 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1361) * lu(k,2345)
5797 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1362) * lu(k,2345)
5798 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1363) * lu(k,2345)
5799 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1364) * lu(k,2345)
5800 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1365) * lu(k,2345)
5801 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1366) * lu(k,2345)
5802 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1367) * lu(k,2345)
5803 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1368) * lu(k,2345)
5804 315224452 : lu(k,2402) = lu(k,2402) - lu(k,1357) * lu(k,2400)
5805 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1358) * lu(k,2400)
5806 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1359) * lu(k,2400)
5807 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1360) * lu(k,2400)
5808 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1361) * lu(k,2400)
5809 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1362) * lu(k,2400)
5810 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1363) * lu(k,2400)
5811 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1364) * lu(k,2400)
5812 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1365) * lu(k,2400)
5813 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1366) * lu(k,2400)
5814 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1367) * lu(k,2400)
5815 325174377 : lu(k,2422) = lu(k,2422) - lu(k,1368) * lu(k,2400)
5816 : end do
5817 9949925 : end subroutine lu_fac26
5818 9949925 : subroutine lu_fac27( avec_len, lu )
5819 : use chem_mods, only : nzcnt
5820 : use shr_kind_mod, only : r8 => shr_kind_r8
5821 : implicit none
5822 : !-----------------------------------------------------------------------
5823 : ! ... dummy args
5824 : !-----------------------------------------------------------------------
5825 : integer, intent(in) :: avec_len
5826 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5827 : !-----------------------------------------------------------------------
5828 : ! ... local variables
5829 : !-----------------------------------------------------------------------
5830 : integer :: k
5831 325174377 : do k = 1,avec_len
5832 315224452 : lu(k,1376) = 1._r8 / lu(k,1376)
5833 315224452 : lu(k,1377) = lu(k,1377) * lu(k,1376)
5834 315224452 : lu(k,1378) = lu(k,1378) * lu(k,1376)
5835 315224452 : lu(k,1379) = lu(k,1379) * lu(k,1376)
5836 315224452 : lu(k,1380) = lu(k,1380) * lu(k,1376)
5837 315224452 : lu(k,1381) = lu(k,1381) * lu(k,1376)
5838 315224452 : lu(k,1382) = lu(k,1382) * lu(k,1376)
5839 315224452 : lu(k,1383) = lu(k,1383) * lu(k,1376)
5840 315224452 : lu(k,1384) = lu(k,1384) * lu(k,1376)
5841 315224452 : lu(k,1385) = lu(k,1385) * lu(k,1376)
5842 315224452 : lu(k,1386) = lu(k,1386) * lu(k,1376)
5843 315224452 : lu(k,1387) = lu(k,1387) * lu(k,1376)
5844 315224452 : lu(k,1388) = lu(k,1388) * lu(k,1376)
5845 315224452 : lu(k,1389) = lu(k,1389) * lu(k,1376)
5846 315224452 : lu(k,1390) = lu(k,1390) * lu(k,1376)
5847 315224452 : lu(k,1391) = lu(k,1391) * lu(k,1376)
5848 315224452 : lu(k,1427) = lu(k,1427) - lu(k,1377) * lu(k,1426)
5849 315224452 : lu(k,1428) = lu(k,1428) - lu(k,1378) * lu(k,1426)
5850 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1379) * lu(k,1426)
5851 315224452 : lu(k,1430) = - lu(k,1380) * lu(k,1426)
5852 315224452 : lu(k,1431) = lu(k,1431) - lu(k,1381) * lu(k,1426)
5853 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1382) * lu(k,1426)
5854 315224452 : lu(k,1433) = lu(k,1433) - lu(k,1383) * lu(k,1426)
5855 315224452 : lu(k,1434) = lu(k,1434) - lu(k,1384) * lu(k,1426)
5856 315224452 : lu(k,1435) = lu(k,1435) - lu(k,1385) * lu(k,1426)
5857 315224452 : lu(k,1436) = lu(k,1436) - lu(k,1386) * lu(k,1426)
5858 315224452 : lu(k,1437) = lu(k,1437) - lu(k,1387) * lu(k,1426)
5859 315224452 : lu(k,1438) = - lu(k,1388) * lu(k,1426)
5860 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1389) * lu(k,1426)
5861 315224452 : lu(k,1440) = lu(k,1440) - lu(k,1390) * lu(k,1426)
5862 315224452 : lu(k,1441) = lu(k,1441) - lu(k,1391) * lu(k,1426)
5863 315224452 : lu(k,1644) = lu(k,1644) - lu(k,1377) * lu(k,1643)
5864 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1378) * lu(k,1643)
5865 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1379) * lu(k,1643)
5866 315224452 : lu(k,1649) = lu(k,1649) - lu(k,1380) * lu(k,1643)
5867 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1381) * lu(k,1643)
5868 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1382) * lu(k,1643)
5869 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1383) * lu(k,1643)
5870 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1384) * lu(k,1643)
5871 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1385) * lu(k,1643)
5872 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1386) * lu(k,1643)
5873 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1387) * lu(k,1643)
5874 315224452 : lu(k,1663) = lu(k,1663) - lu(k,1388) * lu(k,1643)
5875 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1389) * lu(k,1643)
5876 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1390) * lu(k,1643)
5877 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1391) * lu(k,1643)
5878 315224452 : lu(k,1807) = lu(k,1807) - lu(k,1377) * lu(k,1806)
5879 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1378) * lu(k,1806)
5880 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1379) * lu(k,1806)
5881 315224452 : lu(k,1814) = lu(k,1814) - lu(k,1380) * lu(k,1806)
5882 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1381) * lu(k,1806)
5883 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1382) * lu(k,1806)
5884 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1383) * lu(k,1806)
5885 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1384) * lu(k,1806)
5886 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1385) * lu(k,1806)
5887 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1386) * lu(k,1806)
5888 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1387) * lu(k,1806)
5889 315224452 : lu(k,1828) = lu(k,1828) - lu(k,1388) * lu(k,1806)
5890 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1389) * lu(k,1806)
5891 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1390) * lu(k,1806)
5892 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1391) * lu(k,1806)
5893 315224452 : lu(k,1905) = lu(k,1905) - lu(k,1377) * lu(k,1904)
5894 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1378) * lu(k,1904)
5895 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1379) * lu(k,1904)
5896 315224452 : lu(k,1909) = lu(k,1909) - lu(k,1380) * lu(k,1904)
5897 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1381) * lu(k,1904)
5898 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1382) * lu(k,1904)
5899 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1383) * lu(k,1904)
5900 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1384) * lu(k,1904)
5901 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1385) * lu(k,1904)
5902 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1386) * lu(k,1904)
5903 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1387) * lu(k,1904)
5904 315224452 : lu(k,1923) = - lu(k,1388) * lu(k,1904)
5905 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1389) * lu(k,1904)
5906 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1390) * lu(k,1904)
5907 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1391) * lu(k,1904)
5908 315224452 : lu(k,2215) = lu(k,2215) - lu(k,1377) * lu(k,2214)
5909 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1378) * lu(k,2214)
5910 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1379) * lu(k,2214)
5911 315224452 : lu(k,2220) = lu(k,2220) - lu(k,1380) * lu(k,2214)
5912 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1381) * lu(k,2214)
5913 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1382) * lu(k,2214)
5914 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1383) * lu(k,2214)
5915 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1384) * lu(k,2214)
5916 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1385) * lu(k,2214)
5917 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1386) * lu(k,2214)
5918 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1387) * lu(k,2214)
5919 315224452 : lu(k,2234) = lu(k,2234) - lu(k,1388) * lu(k,2214)
5920 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1389) * lu(k,2214)
5921 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1390) * lu(k,2214)
5922 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1391) * lu(k,2214)
5923 315224452 : lu(k,2347) = lu(k,2347) - lu(k,1377) * lu(k,2346)
5924 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1378) * lu(k,2346)
5925 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1379) * lu(k,2346)
5926 315224452 : lu(k,2353) = lu(k,2353) - lu(k,1380) * lu(k,2346)
5927 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1381) * lu(k,2346)
5928 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1382) * lu(k,2346)
5929 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1383) * lu(k,2346)
5930 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1384) * lu(k,2346)
5931 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1385) * lu(k,2346)
5932 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1386) * lu(k,2346)
5933 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1387) * lu(k,2346)
5934 315224452 : lu(k,2367) = - lu(k,1388) * lu(k,2346)
5935 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1389) * lu(k,2346)
5936 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1390) * lu(k,2346)
5937 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1391) * lu(k,2346)
5938 315224452 : lu(k,2402) = lu(k,2402) - lu(k,1377) * lu(k,2401)
5939 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1378) * lu(k,2401)
5940 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1379) * lu(k,2401)
5941 315224452 : lu(k,2405) = lu(k,2405) - lu(k,1380) * lu(k,2401)
5942 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1381) * lu(k,2401)
5943 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1382) * lu(k,2401)
5944 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1383) * lu(k,2401)
5945 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1384) * lu(k,2401)
5946 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1385) * lu(k,2401)
5947 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1386) * lu(k,2401)
5948 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1387) * lu(k,2401)
5949 315224452 : lu(k,2419) = - lu(k,1388) * lu(k,2401)
5950 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1389) * lu(k,2401)
5951 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1390) * lu(k,2401)
5952 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1391) * lu(k,2401)
5953 315224452 : lu(k,1397) = 1._r8 / lu(k,1397)
5954 315224452 : lu(k,1398) = lu(k,1398) * lu(k,1397)
5955 315224452 : lu(k,1399) = lu(k,1399) * lu(k,1397)
5956 315224452 : lu(k,1400) = lu(k,1400) * lu(k,1397)
5957 315224452 : lu(k,1401) = lu(k,1401) * lu(k,1397)
5958 315224452 : lu(k,1402) = lu(k,1402) * lu(k,1397)
5959 315224452 : lu(k,1403) = lu(k,1403) * lu(k,1397)
5960 315224452 : lu(k,1404) = lu(k,1404) * lu(k,1397)
5961 315224452 : lu(k,1405) = lu(k,1405) * lu(k,1397)
5962 315224452 : lu(k,1406) = lu(k,1406) * lu(k,1397)
5963 315224452 : lu(k,1407) = lu(k,1407) * lu(k,1397)
5964 315224452 : lu(k,1408) = lu(k,1408) * lu(k,1397)
5965 315224452 : lu(k,1409) = lu(k,1409) * lu(k,1397)
5966 315224452 : lu(k,1428) = lu(k,1428) - lu(k,1398) * lu(k,1427)
5967 315224452 : lu(k,1429) = lu(k,1429) - lu(k,1399) * lu(k,1427)
5968 315224452 : lu(k,1431) = lu(k,1431) - lu(k,1400) * lu(k,1427)
5969 315224452 : lu(k,1432) = lu(k,1432) - lu(k,1401) * lu(k,1427)
5970 315224452 : lu(k,1433) = lu(k,1433) - lu(k,1402) * lu(k,1427)
5971 315224452 : lu(k,1434) = lu(k,1434) - lu(k,1403) * lu(k,1427)
5972 315224452 : lu(k,1435) = lu(k,1435) - lu(k,1404) * lu(k,1427)
5973 315224452 : lu(k,1436) = lu(k,1436) - lu(k,1405) * lu(k,1427)
5974 315224452 : lu(k,1437) = lu(k,1437) - lu(k,1406) * lu(k,1427)
5975 315224452 : lu(k,1439) = lu(k,1439) - lu(k,1407) * lu(k,1427)
5976 315224452 : lu(k,1440) = lu(k,1440) - lu(k,1408) * lu(k,1427)
5977 315224452 : lu(k,1441) = lu(k,1441) - lu(k,1409) * lu(k,1427)
5978 315224452 : lu(k,1645) = lu(k,1645) - lu(k,1398) * lu(k,1644)
5979 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1399) * lu(k,1644)
5980 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1400) * lu(k,1644)
5981 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1401) * lu(k,1644)
5982 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1402) * lu(k,1644)
5983 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1403) * lu(k,1644)
5984 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1404) * lu(k,1644)
5985 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1405) * lu(k,1644)
5986 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1406) * lu(k,1644)
5987 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1407) * lu(k,1644)
5988 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1408) * lu(k,1644)
5989 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1409) * lu(k,1644)
5990 315224452 : lu(k,1808) = lu(k,1808) - lu(k,1398) * lu(k,1807)
5991 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1399) * lu(k,1807)
5992 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1400) * lu(k,1807)
5993 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1401) * lu(k,1807)
5994 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1402) * lu(k,1807)
5995 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1403) * lu(k,1807)
5996 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1404) * lu(k,1807)
5997 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1405) * lu(k,1807)
5998 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1406) * lu(k,1807)
5999 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1407) * lu(k,1807)
6000 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1408) * lu(k,1807)
6001 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1409) * lu(k,1807)
6002 315224452 : lu(k,1906) = lu(k,1906) - lu(k,1398) * lu(k,1905)
6003 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1399) * lu(k,1905)
6004 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1400) * lu(k,1905)
6005 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1401) * lu(k,1905)
6006 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1402) * lu(k,1905)
6007 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1403) * lu(k,1905)
6008 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1404) * lu(k,1905)
6009 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1405) * lu(k,1905)
6010 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1406) * lu(k,1905)
6011 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1407) * lu(k,1905)
6012 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1408) * lu(k,1905)
6013 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1409) * lu(k,1905)
6014 315224452 : lu(k,1949) = lu(k,1949) - lu(k,1398) * lu(k,1948)
6015 315224452 : lu(k,1950) = lu(k,1950) - lu(k,1399) * lu(k,1948)
6016 315224452 : lu(k,1957) = lu(k,1957) - lu(k,1400) * lu(k,1948)
6017 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1401) * lu(k,1948)
6018 315224452 : lu(k,1959) = lu(k,1959) - lu(k,1402) * lu(k,1948)
6019 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1403) * lu(k,1948)
6020 315224452 : lu(k,1961) = lu(k,1961) - lu(k,1404) * lu(k,1948)
6021 315224452 : lu(k,1963) = lu(k,1963) - lu(k,1405) * lu(k,1948)
6022 315224452 : lu(k,1967) = lu(k,1967) - lu(k,1406) * lu(k,1948)
6023 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1407) * lu(k,1948)
6024 315224452 : lu(k,1970) = lu(k,1970) - lu(k,1408) * lu(k,1948)
6025 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1409) * lu(k,1948)
6026 315224452 : lu(k,2216) = lu(k,2216) - lu(k,1398) * lu(k,2215)
6027 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1399) * lu(k,2215)
6028 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1400) * lu(k,2215)
6029 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1401) * lu(k,2215)
6030 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1402) * lu(k,2215)
6031 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1403) * lu(k,2215)
6032 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1404) * lu(k,2215)
6033 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1405) * lu(k,2215)
6034 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1406) * lu(k,2215)
6035 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1407) * lu(k,2215)
6036 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1408) * lu(k,2215)
6037 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1409) * lu(k,2215)
6038 315224452 : lu(k,2348) = lu(k,2348) - lu(k,1398) * lu(k,2347)
6039 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1399) * lu(k,2347)
6040 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1400) * lu(k,2347)
6041 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1401) * lu(k,2347)
6042 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1402) * lu(k,2347)
6043 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1403) * lu(k,2347)
6044 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1404) * lu(k,2347)
6045 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1405) * lu(k,2347)
6046 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1406) * lu(k,2347)
6047 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1407) * lu(k,2347)
6048 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1408) * lu(k,2347)
6049 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1409) * lu(k,2347)
6050 315224452 : lu(k,2403) = lu(k,2403) - lu(k,1398) * lu(k,2402)
6051 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1399) * lu(k,2402)
6052 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1400) * lu(k,2402)
6053 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1401) * lu(k,2402)
6054 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1402) * lu(k,2402)
6055 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1403) * lu(k,2402)
6056 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1404) * lu(k,2402)
6057 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1405) * lu(k,2402)
6058 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1406) * lu(k,2402)
6059 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1407) * lu(k,2402)
6060 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1408) * lu(k,2402)
6061 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1409) * lu(k,2402)
6062 315224452 : lu(k,1428) = 1._r8 / lu(k,1428)
6063 315224452 : lu(k,1429) = lu(k,1429) * lu(k,1428)
6064 315224452 : lu(k,1430) = lu(k,1430) * lu(k,1428)
6065 315224452 : lu(k,1431) = lu(k,1431) * lu(k,1428)
6066 315224452 : lu(k,1432) = lu(k,1432) * lu(k,1428)
6067 315224452 : lu(k,1433) = lu(k,1433) * lu(k,1428)
6068 315224452 : lu(k,1434) = lu(k,1434) * lu(k,1428)
6069 315224452 : lu(k,1435) = lu(k,1435) * lu(k,1428)
6070 315224452 : lu(k,1436) = lu(k,1436) * lu(k,1428)
6071 315224452 : lu(k,1437) = lu(k,1437) * lu(k,1428)
6072 315224452 : lu(k,1438) = lu(k,1438) * lu(k,1428)
6073 315224452 : lu(k,1439) = lu(k,1439) * lu(k,1428)
6074 315224452 : lu(k,1440) = lu(k,1440) * lu(k,1428)
6075 315224452 : lu(k,1441) = lu(k,1441) * lu(k,1428)
6076 315224452 : lu(k,1646) = lu(k,1646) - lu(k,1429) * lu(k,1645)
6077 315224452 : lu(k,1649) = lu(k,1649) - lu(k,1430) * lu(k,1645)
6078 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1431) * lu(k,1645)
6079 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1432) * lu(k,1645)
6080 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1433) * lu(k,1645)
6081 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1434) * lu(k,1645)
6082 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1435) * lu(k,1645)
6083 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1436) * lu(k,1645)
6084 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1437) * lu(k,1645)
6085 315224452 : lu(k,1663) = lu(k,1663) - lu(k,1438) * lu(k,1645)
6086 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1439) * lu(k,1645)
6087 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1440) * lu(k,1645)
6088 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1441) * lu(k,1645)
6089 315224452 : lu(k,1809) = lu(k,1809) - lu(k,1429) * lu(k,1808)
6090 315224452 : lu(k,1814) = lu(k,1814) - lu(k,1430) * lu(k,1808)
6091 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1431) * lu(k,1808)
6092 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1432) * lu(k,1808)
6093 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1433) * lu(k,1808)
6094 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1434) * lu(k,1808)
6095 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1435) * lu(k,1808)
6096 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1436) * lu(k,1808)
6097 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1437) * lu(k,1808)
6098 315224452 : lu(k,1828) = lu(k,1828) - lu(k,1438) * lu(k,1808)
6099 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1439) * lu(k,1808)
6100 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1440) * lu(k,1808)
6101 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1441) * lu(k,1808)
6102 315224452 : lu(k,1907) = lu(k,1907) - lu(k,1429) * lu(k,1906)
6103 315224452 : lu(k,1909) = lu(k,1909) - lu(k,1430) * lu(k,1906)
6104 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1431) * lu(k,1906)
6105 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1432) * lu(k,1906)
6106 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1433) * lu(k,1906)
6107 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1434) * lu(k,1906)
6108 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1435) * lu(k,1906)
6109 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1436) * lu(k,1906)
6110 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1437) * lu(k,1906)
6111 315224452 : lu(k,1923) = lu(k,1923) - lu(k,1438) * lu(k,1906)
6112 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1439) * lu(k,1906)
6113 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1440) * lu(k,1906)
6114 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1441) * lu(k,1906)
6115 315224452 : lu(k,1950) = lu(k,1950) - lu(k,1429) * lu(k,1949)
6116 315224452 : lu(k,1954) = lu(k,1954) - lu(k,1430) * lu(k,1949)
6117 315224452 : lu(k,1957) = lu(k,1957) - lu(k,1431) * lu(k,1949)
6118 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1432) * lu(k,1949)
6119 315224452 : lu(k,1959) = lu(k,1959) - lu(k,1433) * lu(k,1949)
6120 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1434) * lu(k,1949)
6121 315224452 : lu(k,1961) = lu(k,1961) - lu(k,1435) * lu(k,1949)
6122 315224452 : lu(k,1963) = lu(k,1963) - lu(k,1436) * lu(k,1949)
6123 315224452 : lu(k,1967) = lu(k,1967) - lu(k,1437) * lu(k,1949)
6124 315224452 : lu(k,1968) = - lu(k,1438) * lu(k,1949)
6125 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1439) * lu(k,1949)
6126 315224452 : lu(k,1970) = lu(k,1970) - lu(k,1440) * lu(k,1949)
6127 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1441) * lu(k,1949)
6128 315224452 : lu(k,2152) = lu(k,2152) - lu(k,1429) * lu(k,2151)
6129 315224452 : lu(k,2156) = lu(k,2156) - lu(k,1430) * lu(k,2151)
6130 315224452 : lu(k,2159) = lu(k,2159) - lu(k,1431) * lu(k,2151)
6131 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1432) * lu(k,2151)
6132 315224452 : lu(k,2161) = lu(k,2161) - lu(k,1433) * lu(k,2151)
6133 315224452 : lu(k,2162) = lu(k,2162) - lu(k,1434) * lu(k,2151)
6134 315224452 : lu(k,2163) = lu(k,2163) - lu(k,1435) * lu(k,2151)
6135 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1436) * lu(k,2151)
6136 315224452 : lu(k,2169) = lu(k,2169) - lu(k,1437) * lu(k,2151)
6137 315224452 : lu(k,2170) = lu(k,2170) - lu(k,1438) * lu(k,2151)
6138 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1439) * lu(k,2151)
6139 315224452 : lu(k,2172) = lu(k,2172) - lu(k,1440) * lu(k,2151)
6140 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1441) * lu(k,2151)
6141 315224452 : lu(k,2217) = lu(k,2217) - lu(k,1429) * lu(k,2216)
6142 315224452 : lu(k,2220) = lu(k,2220) - lu(k,1430) * lu(k,2216)
6143 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1431) * lu(k,2216)
6144 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1432) * lu(k,2216)
6145 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1433) * lu(k,2216)
6146 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1434) * lu(k,2216)
6147 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1435) * lu(k,2216)
6148 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1436) * lu(k,2216)
6149 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1437) * lu(k,2216)
6150 315224452 : lu(k,2234) = lu(k,2234) - lu(k,1438) * lu(k,2216)
6151 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1439) * lu(k,2216)
6152 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1440) * lu(k,2216)
6153 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1441) * lu(k,2216)
6154 315224452 : lu(k,2349) = lu(k,2349) - lu(k,1429) * lu(k,2348)
6155 315224452 : lu(k,2353) = lu(k,2353) - lu(k,1430) * lu(k,2348)
6156 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1431) * lu(k,2348)
6157 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1432) * lu(k,2348)
6158 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1433) * lu(k,2348)
6159 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1434) * lu(k,2348)
6160 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1435) * lu(k,2348)
6161 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1436) * lu(k,2348)
6162 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1437) * lu(k,2348)
6163 315224452 : lu(k,2367) = lu(k,2367) - lu(k,1438) * lu(k,2348)
6164 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1439) * lu(k,2348)
6165 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1440) * lu(k,2348)
6166 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1441) * lu(k,2348)
6167 315224452 : lu(k,2404) = lu(k,2404) - lu(k,1429) * lu(k,2403)
6168 315224452 : lu(k,2405) = lu(k,2405) - lu(k,1430) * lu(k,2403)
6169 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1431) * lu(k,2403)
6170 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1432) * lu(k,2403)
6171 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1433) * lu(k,2403)
6172 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1434) * lu(k,2403)
6173 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1435) * lu(k,2403)
6174 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1436) * lu(k,2403)
6175 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1437) * lu(k,2403)
6176 315224452 : lu(k,2419) = lu(k,2419) - lu(k,1438) * lu(k,2403)
6177 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1439) * lu(k,2403)
6178 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1440) * lu(k,2403)
6179 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1441) * lu(k,2403)
6180 315224452 : lu(k,1450) = 1._r8 / lu(k,1450)
6181 315224452 : lu(k,1451) = lu(k,1451) * lu(k,1450)
6182 315224452 : lu(k,1452) = lu(k,1452) * lu(k,1450)
6183 315224452 : lu(k,1453) = lu(k,1453) * lu(k,1450)
6184 315224452 : lu(k,1454) = lu(k,1454) * lu(k,1450)
6185 315224452 : lu(k,1455) = lu(k,1455) * lu(k,1450)
6186 315224452 : lu(k,1456) = lu(k,1456) * lu(k,1450)
6187 315224452 : lu(k,1457) = lu(k,1457) * lu(k,1450)
6188 315224452 : lu(k,1458) = lu(k,1458) * lu(k,1450)
6189 315224452 : lu(k,1512) = lu(k,1512) - lu(k,1451) * lu(k,1510)
6190 315224452 : lu(k,1514) = lu(k,1514) - lu(k,1452) * lu(k,1510)
6191 315224452 : lu(k,1515) = - lu(k,1453) * lu(k,1510)
6192 315224452 : lu(k,1516) = - lu(k,1454) * lu(k,1510)
6193 315224452 : lu(k,1518) = lu(k,1518) - lu(k,1455) * lu(k,1510)
6194 315224452 : lu(k,1519) = lu(k,1519) - lu(k,1456) * lu(k,1510)
6195 315224452 : lu(k,1520) = lu(k,1520) - lu(k,1457) * lu(k,1510)
6196 315224452 : lu(k,1522) = lu(k,1522) - lu(k,1458) * lu(k,1510)
6197 315224452 : lu(k,1542) = lu(k,1542) - lu(k,1451) * lu(k,1539)
6198 315224452 : lu(k,1545) = lu(k,1545) - lu(k,1452) * lu(k,1539)
6199 315224452 : lu(k,1546) = lu(k,1546) - lu(k,1453) * lu(k,1539)
6200 315224452 : lu(k,1547) = lu(k,1547) - lu(k,1454) * lu(k,1539)
6201 315224452 : lu(k,1549) = lu(k,1549) - lu(k,1455) * lu(k,1539)
6202 315224452 : lu(k,1550) = lu(k,1550) - lu(k,1456) * lu(k,1539)
6203 315224452 : lu(k,1551) = lu(k,1551) - lu(k,1457) * lu(k,1539)
6204 315224452 : lu(k,1554) = lu(k,1554) - lu(k,1458) * lu(k,1539)
6205 315224452 : lu(k,1649) = lu(k,1649) - lu(k,1451) * lu(k,1646)
6206 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1452) * lu(k,1646)
6207 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1453) * lu(k,1646)
6208 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1454) * lu(k,1646)
6209 315224452 : lu(k,1657) = - lu(k,1455) * lu(k,1646)
6210 315224452 : lu(k,1659) = lu(k,1659) - lu(k,1456) * lu(k,1646)
6211 315224452 : lu(k,1660) = - lu(k,1457) * lu(k,1646)
6212 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1458) * lu(k,1646)
6213 315224452 : lu(k,1814) = lu(k,1814) - lu(k,1451) * lu(k,1809)
6214 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1452) * lu(k,1809)
6215 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1453) * lu(k,1809)
6216 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1454) * lu(k,1809)
6217 315224452 : lu(k,1822) = lu(k,1822) - lu(k,1455) * lu(k,1809)
6218 315224452 : lu(k,1824) = lu(k,1824) - lu(k,1456) * lu(k,1809)
6219 315224452 : lu(k,1825) = lu(k,1825) - lu(k,1457) * lu(k,1809)
6220 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1458) * lu(k,1809)
6221 315224452 : lu(k,1909) = lu(k,1909) - lu(k,1451) * lu(k,1907)
6222 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1452) * lu(k,1907)
6223 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1453) * lu(k,1907)
6224 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1454) * lu(k,1907)
6225 315224452 : lu(k,1917) = lu(k,1917) - lu(k,1455) * lu(k,1907)
6226 315224452 : lu(k,1919) = lu(k,1919) - lu(k,1456) * lu(k,1907)
6227 315224452 : lu(k,1920) = lu(k,1920) - lu(k,1457) * lu(k,1907)
6228 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1458) * lu(k,1907)
6229 315224452 : lu(k,1954) = lu(k,1954) - lu(k,1451) * lu(k,1950)
6230 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1452) * lu(k,1950)
6231 315224452 : lu(k,1959) = lu(k,1959) - lu(k,1453) * lu(k,1950)
6232 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1454) * lu(k,1950)
6233 315224452 : lu(k,1962) = lu(k,1962) - lu(k,1455) * lu(k,1950)
6234 315224452 : lu(k,1964) = lu(k,1964) - lu(k,1456) * lu(k,1950)
6235 315224452 : lu(k,1965) = lu(k,1965) - lu(k,1457) * lu(k,1950)
6236 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1458) * lu(k,1950)
6237 315224452 : lu(k,1980) = - lu(k,1451) * lu(k,1976)
6238 315224452 : lu(k,1984) = lu(k,1984) - lu(k,1452) * lu(k,1976)
6239 315224452 : lu(k,1985) = lu(k,1985) - lu(k,1453) * lu(k,1976)
6240 315224452 : lu(k,1986) = lu(k,1986) - lu(k,1454) * lu(k,1976)
6241 315224452 : lu(k,1988) = lu(k,1988) - lu(k,1455) * lu(k,1976)
6242 315224452 : lu(k,1990) = lu(k,1990) - lu(k,1456) * lu(k,1976)
6243 315224452 : lu(k,1991) = lu(k,1991) - lu(k,1457) * lu(k,1976)
6244 315224452 : lu(k,1995) = lu(k,1995) - lu(k,1458) * lu(k,1976)
6245 315224452 : lu(k,2089) = lu(k,2089) - lu(k,1451) * lu(k,2084)
6246 315224452 : lu(k,2093) = lu(k,2093) - lu(k,1452) * lu(k,2084)
6247 315224452 : lu(k,2094) = lu(k,2094) - lu(k,1453) * lu(k,2084)
6248 315224452 : lu(k,2095) = lu(k,2095) - lu(k,1454) * lu(k,2084)
6249 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1455) * lu(k,2084)
6250 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1456) * lu(k,2084)
6251 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1457) * lu(k,2084)
6252 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1458) * lu(k,2084)
6253 315224452 : lu(k,2156) = lu(k,2156) - lu(k,1451) * lu(k,2152)
6254 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1452) * lu(k,2152)
6255 315224452 : lu(k,2161) = lu(k,2161) - lu(k,1453) * lu(k,2152)
6256 315224452 : lu(k,2162) = lu(k,2162) - lu(k,1454) * lu(k,2152)
6257 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1455) * lu(k,2152)
6258 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1456) * lu(k,2152)
6259 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1457) * lu(k,2152)
6260 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1458) * lu(k,2152)
6261 315224452 : lu(k,2220) = lu(k,2220) - lu(k,1451) * lu(k,2217)
6262 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1452) * lu(k,2217)
6263 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1453) * lu(k,2217)
6264 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1454) * lu(k,2217)
6265 315224452 : lu(k,2228) = lu(k,2228) - lu(k,1455) * lu(k,2217)
6266 315224452 : lu(k,2230) = lu(k,2230) - lu(k,1456) * lu(k,2217)
6267 315224452 : lu(k,2231) = lu(k,2231) - lu(k,1457) * lu(k,2217)
6268 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1458) * lu(k,2217)
6269 315224452 : lu(k,2245) = - lu(k,1451) * lu(k,2241)
6270 315224452 : lu(k,2249) = lu(k,2249) - lu(k,1452) * lu(k,2241)
6271 315224452 : lu(k,2250) = - lu(k,1453) * lu(k,2241)
6272 315224452 : lu(k,2251) = - lu(k,1454) * lu(k,2241)
6273 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1455) * lu(k,2241)
6274 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1456) * lu(k,2241)
6275 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1457) * lu(k,2241)
6276 315224452 : lu(k,2260) = lu(k,2260) - lu(k,1458) * lu(k,2241)
6277 315224452 : lu(k,2353) = lu(k,2353) - lu(k,1451) * lu(k,2349)
6278 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1452) * lu(k,2349)
6279 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1453) * lu(k,2349)
6280 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1454) * lu(k,2349)
6281 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1455) * lu(k,2349)
6282 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1456) * lu(k,2349)
6283 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1457) * lu(k,2349)
6284 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1458) * lu(k,2349)
6285 315224452 : lu(k,2405) = lu(k,2405) - lu(k,1451) * lu(k,2404)
6286 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1452) * lu(k,2404)
6287 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1453) * lu(k,2404)
6288 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1454) * lu(k,2404)
6289 315224452 : lu(k,2413) = - lu(k,1455) * lu(k,2404)
6290 315224452 : lu(k,2415) = - lu(k,1456) * lu(k,2404)
6291 315224452 : lu(k,2416) = lu(k,2416) - lu(k,1457) * lu(k,2404)
6292 325174377 : lu(k,2420) = lu(k,2420) - lu(k,1458) * lu(k,2404)
6293 : end do
6294 9949925 : end subroutine lu_fac27
6295 9949925 : subroutine lu_fac28( avec_len, lu )
6296 : use chem_mods, only : nzcnt
6297 : use shr_kind_mod, only : r8 => shr_kind_r8
6298 : implicit none
6299 : !-----------------------------------------------------------------------
6300 : ! ... dummy args
6301 : !-----------------------------------------------------------------------
6302 : integer, intent(in) :: avec_len
6303 : real(r8), intent(inout) :: lu(veclen,nzcnt)
6304 : !-----------------------------------------------------------------------
6305 : ! ... local variables
6306 : !-----------------------------------------------------------------------
6307 : integer :: k
6308 325174377 : do k = 1,avec_len
6309 315224452 : lu(k,1461) = 1._r8 / lu(k,1461)
6310 315224452 : lu(k,1462) = lu(k,1462) * lu(k,1461)
6311 315224452 : lu(k,1463) = lu(k,1463) * lu(k,1461)
6312 315224452 : lu(k,1464) = lu(k,1464) * lu(k,1461)
6313 315224452 : lu(k,1465) = lu(k,1465) * lu(k,1461)
6314 315224452 : lu(k,1466) = lu(k,1466) * lu(k,1461)
6315 315224452 : lu(k,1467) = lu(k,1467) * lu(k,1461)
6316 315224452 : lu(k,1468) = lu(k,1468) * lu(k,1461)
6317 315224452 : lu(k,1469) = lu(k,1469) * lu(k,1461)
6318 315224452 : lu(k,1470) = lu(k,1470) * lu(k,1461)
6319 315224452 : lu(k,1471) = lu(k,1471) * lu(k,1461)
6320 315224452 : lu(k,1472) = lu(k,1472) * lu(k,1461)
6321 315224452 : lu(k,1812) = lu(k,1812) - lu(k,1462) * lu(k,1810)
6322 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1463) * lu(k,1810)
6323 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1464) * lu(k,1810)
6324 315224452 : lu(k,1822) = lu(k,1822) - lu(k,1465) * lu(k,1810)
6325 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1466) * lu(k,1810)
6326 315224452 : lu(k,1824) = lu(k,1824) - lu(k,1467) * lu(k,1810)
6327 315224452 : lu(k,1825) = lu(k,1825) - lu(k,1468) * lu(k,1810)
6328 315224452 : lu(k,1826) = lu(k,1826) - lu(k,1469) * lu(k,1810)
6329 315224452 : lu(k,1828) = lu(k,1828) - lu(k,1470) * lu(k,1810)
6330 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1471) * lu(k,1810)
6331 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1472) * lu(k,1810)
6332 315224452 : lu(k,1978) = lu(k,1978) - lu(k,1462) * lu(k,1977)
6333 315224452 : lu(k,1983) = lu(k,1983) - lu(k,1463) * lu(k,1977)
6334 315224452 : lu(k,1984) = lu(k,1984) - lu(k,1464) * lu(k,1977)
6335 315224452 : lu(k,1988) = lu(k,1988) - lu(k,1465) * lu(k,1977)
6336 315224452 : lu(k,1989) = lu(k,1989) - lu(k,1466) * lu(k,1977)
6337 315224452 : lu(k,1990) = lu(k,1990) - lu(k,1467) * lu(k,1977)
6338 315224452 : lu(k,1991) = lu(k,1991) - lu(k,1468) * lu(k,1977)
6339 315224452 : lu(k,1992) = lu(k,1992) - lu(k,1469) * lu(k,1977)
6340 315224452 : lu(k,1994) = - lu(k,1470) * lu(k,1977)
6341 315224452 : lu(k,1996) = - lu(k,1471) * lu(k,1977)
6342 315224452 : lu(k,1997) = lu(k,1997) - lu(k,1472) * lu(k,1977)
6343 315224452 : lu(k,2021) = lu(k,2021) - lu(k,1462) * lu(k,2020)
6344 315224452 : lu(k,2026) = lu(k,2026) - lu(k,1463) * lu(k,2020)
6345 315224452 : lu(k,2027) = lu(k,2027) - lu(k,1464) * lu(k,2020)
6346 315224452 : lu(k,2031) = lu(k,2031) - lu(k,1465) * lu(k,2020)
6347 315224452 : lu(k,2032) = lu(k,2032) - lu(k,1466) * lu(k,2020)
6348 315224452 : lu(k,2033) = lu(k,2033) - lu(k,1467) * lu(k,2020)
6349 315224452 : lu(k,2034) = lu(k,2034) - lu(k,1468) * lu(k,2020)
6350 315224452 : lu(k,2035) = lu(k,2035) - lu(k,1469) * lu(k,2020)
6351 315224452 : lu(k,2037) = lu(k,2037) - lu(k,1470) * lu(k,2020)
6352 315224452 : lu(k,2039) = lu(k,2039) - lu(k,1471) * lu(k,2020)
6353 315224452 : lu(k,2040) = lu(k,2040) - lu(k,1472) * lu(k,2020)
6354 315224452 : lu(k,2044) = - lu(k,1462) * lu(k,2043)
6355 315224452 : lu(k,2049) = lu(k,2049) - lu(k,1463) * lu(k,2043)
6356 315224452 : lu(k,2050) = lu(k,2050) - lu(k,1464) * lu(k,2043)
6357 315224452 : lu(k,2054) = - lu(k,1465) * lu(k,2043)
6358 315224452 : lu(k,2055) = lu(k,2055) - lu(k,1466) * lu(k,2043)
6359 315224452 : lu(k,2056) = - lu(k,1467) * lu(k,2043)
6360 315224452 : lu(k,2057) = lu(k,2057) - lu(k,1468) * lu(k,2043)
6361 315224452 : lu(k,2058) = - lu(k,1469) * lu(k,2043)
6362 315224452 : lu(k,2060) = lu(k,2060) - lu(k,1470) * lu(k,2043)
6363 315224452 : lu(k,2062) = lu(k,2062) - lu(k,1471) * lu(k,2043)
6364 315224452 : lu(k,2063) = lu(k,2063) - lu(k,1472) * lu(k,2043)
6365 315224452 : lu(k,2087) = lu(k,2087) - lu(k,1462) * lu(k,2085)
6366 315224452 : lu(k,2092) = lu(k,2092) - lu(k,1463) * lu(k,2085)
6367 315224452 : lu(k,2093) = lu(k,2093) - lu(k,1464) * lu(k,2085)
6368 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1465) * lu(k,2085)
6369 315224452 : lu(k,2098) = lu(k,2098) - lu(k,1466) * lu(k,2085)
6370 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1467) * lu(k,2085)
6371 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1468) * lu(k,2085)
6372 315224452 : lu(k,2101) = lu(k,2101) - lu(k,1469) * lu(k,2085)
6373 315224452 : lu(k,2103) = - lu(k,1470) * lu(k,2085)
6374 315224452 : lu(k,2105) = - lu(k,1471) * lu(k,2085)
6375 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1472) * lu(k,2085)
6376 315224452 : lu(k,2108) = - lu(k,1462) * lu(k,2107)
6377 315224452 : lu(k,2113) = - lu(k,1463) * lu(k,2107)
6378 315224452 : lu(k,2114) = lu(k,2114) - lu(k,1464) * lu(k,2107)
6379 315224452 : lu(k,2118) = - lu(k,1465) * lu(k,2107)
6380 315224452 : lu(k,2119) = - lu(k,1466) * lu(k,2107)
6381 315224452 : lu(k,2120) = lu(k,2120) - lu(k,1467) * lu(k,2107)
6382 315224452 : lu(k,2121) = lu(k,2121) - lu(k,1468) * lu(k,2107)
6383 315224452 : lu(k,2122) = - lu(k,1469) * lu(k,2107)
6384 315224452 : lu(k,2124) = - lu(k,1470) * lu(k,2107)
6385 315224452 : lu(k,2126) = - lu(k,1471) * lu(k,2107)
6386 315224452 : lu(k,2127) = lu(k,2127) - lu(k,1472) * lu(k,2107)
6387 315224452 : lu(k,2154) = lu(k,2154) - lu(k,1462) * lu(k,2153)
6388 315224452 : lu(k,2159) = lu(k,2159) - lu(k,1463) * lu(k,2153)
6389 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1464) * lu(k,2153)
6390 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1465) * lu(k,2153)
6391 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1466) * lu(k,2153)
6392 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1467) * lu(k,2153)
6393 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1468) * lu(k,2153)
6394 315224452 : lu(k,2168) = lu(k,2168) - lu(k,1469) * lu(k,2153)
6395 315224452 : lu(k,2170) = lu(k,2170) - lu(k,1470) * lu(k,2153)
6396 315224452 : lu(k,2172) = lu(k,2172) - lu(k,1471) * lu(k,2153)
6397 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1472) * lu(k,2153)
6398 315224452 : lu(k,2243) = lu(k,2243) - lu(k,1462) * lu(k,2242)
6399 315224452 : lu(k,2248) = lu(k,2248) - lu(k,1463) * lu(k,2242)
6400 315224452 : lu(k,2249) = lu(k,2249) - lu(k,1464) * lu(k,2242)
6401 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1465) * lu(k,2242)
6402 315224452 : lu(k,2254) = lu(k,2254) - lu(k,1466) * lu(k,2242)
6403 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1467) * lu(k,2242)
6404 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1468) * lu(k,2242)
6405 315224452 : lu(k,2257) = lu(k,2257) - lu(k,1469) * lu(k,2242)
6406 315224452 : lu(k,2259) = lu(k,2259) - lu(k,1470) * lu(k,2242)
6407 315224452 : lu(k,2261) = lu(k,2261) - lu(k,1471) * lu(k,2242)
6408 315224452 : lu(k,2262) = lu(k,2262) - lu(k,1472) * lu(k,2242)
6409 315224452 : lu(k,2351) = lu(k,2351) - lu(k,1462) * lu(k,2350)
6410 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1463) * lu(k,2350)
6411 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1464) * lu(k,2350)
6412 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1465) * lu(k,2350)
6413 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1466) * lu(k,2350)
6414 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1467) * lu(k,2350)
6415 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1468) * lu(k,2350)
6416 315224452 : lu(k,2365) = lu(k,2365) - lu(k,1469) * lu(k,2350)
6417 315224452 : lu(k,2367) = lu(k,2367) - lu(k,1470) * lu(k,2350)
6418 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1471) * lu(k,2350)
6419 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1472) * lu(k,2350)
6420 315224452 : lu(k,2430) = - lu(k,1462) * lu(k,2428)
6421 315224452 : lu(k,2435) = lu(k,2435) - lu(k,1463) * lu(k,2428)
6422 315224452 : lu(k,2436) = lu(k,2436) - lu(k,1464) * lu(k,2428)
6423 315224452 : lu(k,2440) = lu(k,2440) - lu(k,1465) * lu(k,2428)
6424 315224452 : lu(k,2441) = lu(k,2441) - lu(k,1466) * lu(k,2428)
6425 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1467) * lu(k,2428)
6426 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1468) * lu(k,2428)
6427 315224452 : lu(k,2444) = - lu(k,1469) * lu(k,2428)
6428 315224452 : lu(k,2446) = lu(k,2446) - lu(k,1470) * lu(k,2428)
6429 315224452 : lu(k,2448) = lu(k,2448) - lu(k,1471) * lu(k,2428)
6430 315224452 : lu(k,2449) = lu(k,2449) - lu(k,1472) * lu(k,2428)
6431 315224452 : lu(k,1476) = 1._r8 / lu(k,1476)
6432 315224452 : lu(k,1477) = lu(k,1477) * lu(k,1476)
6433 315224452 : lu(k,1478) = lu(k,1478) * lu(k,1476)
6434 315224452 : lu(k,1479) = lu(k,1479) * lu(k,1476)
6435 315224452 : lu(k,1480) = lu(k,1480) * lu(k,1476)
6436 315224452 : lu(k,1481) = lu(k,1481) * lu(k,1476)
6437 315224452 : lu(k,1482) = lu(k,1482) * lu(k,1476)
6438 315224452 : lu(k,1483) = lu(k,1483) * lu(k,1476)
6439 315224452 : lu(k,1484) = lu(k,1484) * lu(k,1476)
6440 315224452 : lu(k,1485) = lu(k,1485) * lu(k,1476)
6441 315224452 : lu(k,1486) = lu(k,1486) * lu(k,1476)
6442 315224452 : lu(k,1487) = lu(k,1487) * lu(k,1476)
6443 315224452 : lu(k,1488) = lu(k,1488) * lu(k,1476)
6444 315224452 : lu(k,1489) = lu(k,1489) * lu(k,1476)
6445 315224452 : lu(k,1541) = - lu(k,1477) * lu(k,1540)
6446 315224452 : lu(k,1542) = lu(k,1542) - lu(k,1478) * lu(k,1540)
6447 315224452 : lu(k,1543) = - lu(k,1479) * lu(k,1540)
6448 315224452 : lu(k,1544) = - lu(k,1480) * lu(k,1540)
6449 315224452 : lu(k,1545) = lu(k,1545) - lu(k,1481) * lu(k,1540)
6450 315224452 : lu(k,1546) = lu(k,1546) - lu(k,1482) * lu(k,1540)
6451 315224452 : lu(k,1547) = lu(k,1547) - lu(k,1483) * lu(k,1540)
6452 315224452 : lu(k,1550) = lu(k,1550) - lu(k,1484) * lu(k,1540)
6453 315224452 : lu(k,1551) = lu(k,1551) - lu(k,1485) * lu(k,1540)
6454 315224452 : lu(k,1552) = - lu(k,1486) * lu(k,1540)
6455 315224452 : lu(k,1553) = lu(k,1553) - lu(k,1487) * lu(k,1540)
6456 315224452 : lu(k,1554) = lu(k,1554) - lu(k,1488) * lu(k,1540)
6457 315224452 : lu(k,1555) = lu(k,1555) - lu(k,1489) * lu(k,1540)
6458 315224452 : lu(k,1563) = lu(k,1563) - lu(k,1477) * lu(k,1561)
6459 315224452 : lu(k,1564) = lu(k,1564) - lu(k,1478) * lu(k,1561)
6460 315224452 : lu(k,1565) = lu(k,1565) - lu(k,1479) * lu(k,1561)
6461 315224452 : lu(k,1566) = lu(k,1566) - lu(k,1480) * lu(k,1561)
6462 315224452 : lu(k,1568) = lu(k,1568) - lu(k,1481) * lu(k,1561)
6463 315224452 : lu(k,1569) = lu(k,1569) - lu(k,1482) * lu(k,1561)
6464 315224452 : lu(k,1570) = lu(k,1570) - lu(k,1483) * lu(k,1561)
6465 315224452 : lu(k,1574) = lu(k,1574) - lu(k,1484) * lu(k,1561)
6466 315224452 : lu(k,1575) = - lu(k,1485) * lu(k,1561)
6467 315224452 : lu(k,1576) = lu(k,1576) - lu(k,1486) * lu(k,1561)
6468 315224452 : lu(k,1577) = - lu(k,1487) * lu(k,1561)
6469 315224452 : lu(k,1578) = lu(k,1578) - lu(k,1488) * lu(k,1561)
6470 315224452 : lu(k,1579) = lu(k,1579) - lu(k,1489) * lu(k,1561)
6471 315224452 : lu(k,1589) = lu(k,1589) - lu(k,1477) * lu(k,1587)
6472 315224452 : lu(k,1590) = lu(k,1590) - lu(k,1478) * lu(k,1587)
6473 315224452 : lu(k,1591) = lu(k,1591) - lu(k,1479) * lu(k,1587)
6474 315224452 : lu(k,1592) = lu(k,1592) - lu(k,1480) * lu(k,1587)
6475 315224452 : lu(k,1594) = lu(k,1594) - lu(k,1481) * lu(k,1587)
6476 315224452 : lu(k,1595) = lu(k,1595) - lu(k,1482) * lu(k,1587)
6477 315224452 : lu(k,1596) = lu(k,1596) - lu(k,1483) * lu(k,1587)
6478 315224452 : lu(k,1600) = lu(k,1600) - lu(k,1484) * lu(k,1587)
6479 315224452 : lu(k,1601) = - lu(k,1485) * lu(k,1587)
6480 315224452 : lu(k,1602) = lu(k,1602) - lu(k,1486) * lu(k,1587)
6481 315224452 : lu(k,1603) = - lu(k,1487) * lu(k,1587)
6482 315224452 : lu(k,1604) = lu(k,1604) - lu(k,1488) * lu(k,1587)
6483 315224452 : lu(k,1606) = lu(k,1606) - lu(k,1489) * lu(k,1587)
6484 315224452 : lu(k,1648) = - lu(k,1477) * lu(k,1647)
6485 315224452 : lu(k,1649) = lu(k,1649) - lu(k,1478) * lu(k,1647)
6486 315224452 : lu(k,1650) = - lu(k,1479) * lu(k,1647)
6487 315224452 : lu(k,1651) = - lu(k,1480) * lu(k,1647)
6488 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1481) * lu(k,1647)
6489 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1482) * lu(k,1647)
6490 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1483) * lu(k,1647)
6491 315224452 : lu(k,1659) = lu(k,1659) - lu(k,1484) * lu(k,1647)
6492 315224452 : lu(k,1660) = lu(k,1660) - lu(k,1485) * lu(k,1647)
6493 315224452 : lu(k,1661) = - lu(k,1486) * lu(k,1647)
6494 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1487) * lu(k,1647)
6495 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1488) * lu(k,1647)
6496 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1489) * lu(k,1647)
6497 315224452 : lu(k,1813) = lu(k,1813) - lu(k,1477) * lu(k,1811)
6498 315224452 : lu(k,1814) = lu(k,1814) - lu(k,1478) * lu(k,1811)
6499 315224452 : lu(k,1815) = lu(k,1815) - lu(k,1479) * lu(k,1811)
6500 315224452 : lu(k,1816) = lu(k,1816) - lu(k,1480) * lu(k,1811)
6501 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1481) * lu(k,1811)
6502 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1482) * lu(k,1811)
6503 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1483) * lu(k,1811)
6504 315224452 : lu(k,1824) = lu(k,1824) - lu(k,1484) * lu(k,1811)
6505 315224452 : lu(k,1825) = lu(k,1825) - lu(k,1485) * lu(k,1811)
6506 315224452 : lu(k,1826) = lu(k,1826) - lu(k,1486) * lu(k,1811)
6507 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1487) * lu(k,1811)
6508 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1488) * lu(k,1811)
6509 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1489) * lu(k,1811)
6510 315224452 : lu(k,1953) = lu(k,1953) - lu(k,1477) * lu(k,1951)
6511 315224452 : lu(k,1954) = lu(k,1954) - lu(k,1478) * lu(k,1951)
6512 315224452 : lu(k,1955) = lu(k,1955) - lu(k,1479) * lu(k,1951)
6513 315224452 : lu(k,1956) = lu(k,1956) - lu(k,1480) * lu(k,1951)
6514 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1481) * lu(k,1951)
6515 315224452 : lu(k,1959) = lu(k,1959) - lu(k,1482) * lu(k,1951)
6516 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1483) * lu(k,1951)
6517 315224452 : lu(k,1964) = lu(k,1964) - lu(k,1484) * lu(k,1951)
6518 315224452 : lu(k,1965) = lu(k,1965) - lu(k,1485) * lu(k,1951)
6519 315224452 : lu(k,1966) = lu(k,1966) - lu(k,1486) * lu(k,1951)
6520 315224452 : lu(k,1967) = lu(k,1967) - lu(k,1487) * lu(k,1951)
6521 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1488) * lu(k,1951)
6522 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1489) * lu(k,1951)
6523 315224452 : lu(k,2088) = lu(k,2088) - lu(k,1477) * lu(k,2086)
6524 315224452 : lu(k,2089) = lu(k,2089) - lu(k,1478) * lu(k,2086)
6525 315224452 : lu(k,2090) = lu(k,2090) - lu(k,1479) * lu(k,2086)
6526 315224452 : lu(k,2091) = lu(k,2091) - lu(k,1480) * lu(k,2086)
6527 315224452 : lu(k,2093) = lu(k,2093) - lu(k,1481) * lu(k,2086)
6528 315224452 : lu(k,2094) = lu(k,2094) - lu(k,1482) * lu(k,2086)
6529 315224452 : lu(k,2095) = lu(k,2095) - lu(k,1483) * lu(k,2086)
6530 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1484) * lu(k,2086)
6531 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1485) * lu(k,2086)
6532 315224452 : lu(k,2101) = lu(k,2101) - lu(k,1486) * lu(k,2086)
6533 315224452 : lu(k,2102) = lu(k,2102) - lu(k,1487) * lu(k,2086)
6534 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1488) * lu(k,2086)
6535 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1489) * lu(k,2086)
6536 315224452 : lu(k,2219) = lu(k,2219) - lu(k,1477) * lu(k,2218)
6537 315224452 : lu(k,2220) = lu(k,2220) - lu(k,1478) * lu(k,2218)
6538 315224452 : lu(k,2221) = lu(k,2221) - lu(k,1479) * lu(k,2218)
6539 315224452 : lu(k,2222) = lu(k,2222) - lu(k,1480) * lu(k,2218)
6540 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1481) * lu(k,2218)
6541 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1482) * lu(k,2218)
6542 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1483) * lu(k,2218)
6543 315224452 : lu(k,2230) = lu(k,2230) - lu(k,1484) * lu(k,2218)
6544 315224452 : lu(k,2231) = lu(k,2231) - lu(k,1485) * lu(k,2218)
6545 315224452 : lu(k,2232) = lu(k,2232) - lu(k,1486) * lu(k,2218)
6546 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1487) * lu(k,2218)
6547 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1488) * lu(k,2218)
6548 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1489) * lu(k,2218)
6549 315224452 : lu(k,2431) = - lu(k,1477) * lu(k,2429)
6550 315224452 : lu(k,2432) = - lu(k,1478) * lu(k,2429)
6551 315224452 : lu(k,2433) = - lu(k,1479) * lu(k,2429)
6552 315224452 : lu(k,2434) = - lu(k,1480) * lu(k,2429)
6553 315224452 : lu(k,2436) = lu(k,2436) - lu(k,1481) * lu(k,2429)
6554 315224452 : lu(k,2437) = - lu(k,1482) * lu(k,2429)
6555 315224452 : lu(k,2438) = - lu(k,1483) * lu(k,2429)
6556 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1484) * lu(k,2429)
6557 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1485) * lu(k,2429)
6558 315224452 : lu(k,2444) = lu(k,2444) - lu(k,1486) * lu(k,2429)
6559 315224452 : lu(k,2445) = - lu(k,1487) * lu(k,2429)
6560 315224452 : lu(k,2447) = lu(k,2447) - lu(k,1488) * lu(k,2429)
6561 325174377 : lu(k,2449) = lu(k,2449) - lu(k,1489) * lu(k,2429)
6562 : end do
6563 9949925 : end subroutine lu_fac28
6564 9949925 : subroutine lu_fac29( avec_len, lu )
6565 : use chem_mods, only : nzcnt
6566 : use shr_kind_mod, only : r8 => shr_kind_r8
6567 : implicit none
6568 : !-----------------------------------------------------------------------
6569 : ! ... dummy args
6570 : !-----------------------------------------------------------------------
6571 : integer, intent(in) :: avec_len
6572 : real(r8), intent(inout) :: lu(veclen,nzcnt)
6573 : !-----------------------------------------------------------------------
6574 : ! ... local variables
6575 : !-----------------------------------------------------------------------
6576 : integer :: k
6577 325174377 : do k = 1,avec_len
6578 315224452 : lu(k,1495) = 1._r8 / lu(k,1495)
6579 315224452 : lu(k,1496) = lu(k,1496) * lu(k,1495)
6580 315224452 : lu(k,1497) = lu(k,1497) * lu(k,1495)
6581 315224452 : lu(k,1498) = lu(k,1498) * lu(k,1495)
6582 315224452 : lu(k,1499) = lu(k,1499) * lu(k,1495)
6583 315224452 : lu(k,1500) = lu(k,1500) * lu(k,1495)
6584 315224452 : lu(k,1501) = lu(k,1501) * lu(k,1495)
6585 315224452 : lu(k,1502) = lu(k,1502) * lu(k,1495)
6586 315224452 : lu(k,1503) = lu(k,1503) * lu(k,1495)
6587 315224452 : lu(k,1504) = lu(k,1504) * lu(k,1495)
6588 315224452 : lu(k,1505) = lu(k,1505) * lu(k,1495)
6589 315224452 : lu(k,1506) = lu(k,1506) * lu(k,1495)
6590 315224452 : lu(k,1507) = lu(k,1507) * lu(k,1495)
6591 315224452 : lu(k,1563) = lu(k,1563) - lu(k,1496) * lu(k,1562)
6592 315224452 : lu(k,1565) = lu(k,1565) - lu(k,1497) * lu(k,1562)
6593 315224452 : lu(k,1566) = lu(k,1566) - lu(k,1498) * lu(k,1562)
6594 315224452 : lu(k,1567) = lu(k,1567) - lu(k,1499) * lu(k,1562)
6595 315224452 : lu(k,1568) = lu(k,1568) - lu(k,1500) * lu(k,1562)
6596 315224452 : lu(k,1570) = lu(k,1570) - lu(k,1501) * lu(k,1562)
6597 315224452 : lu(k,1572) = - lu(k,1502) * lu(k,1562)
6598 315224452 : lu(k,1573) = lu(k,1573) - lu(k,1503) * lu(k,1562)
6599 315224452 : lu(k,1574) = lu(k,1574) - lu(k,1504) * lu(k,1562)
6600 315224452 : lu(k,1575) = lu(k,1575) - lu(k,1505) * lu(k,1562)
6601 315224452 : lu(k,1576) = lu(k,1576) - lu(k,1506) * lu(k,1562)
6602 315224452 : lu(k,1579) = lu(k,1579) - lu(k,1507) * lu(k,1562)
6603 315224452 : lu(k,1589) = lu(k,1589) - lu(k,1496) * lu(k,1588)
6604 315224452 : lu(k,1591) = lu(k,1591) - lu(k,1497) * lu(k,1588)
6605 315224452 : lu(k,1592) = lu(k,1592) - lu(k,1498) * lu(k,1588)
6606 315224452 : lu(k,1593) = lu(k,1593) - lu(k,1499) * lu(k,1588)
6607 315224452 : lu(k,1594) = lu(k,1594) - lu(k,1500) * lu(k,1588)
6608 315224452 : lu(k,1596) = lu(k,1596) - lu(k,1501) * lu(k,1588)
6609 315224452 : lu(k,1598) = - lu(k,1502) * lu(k,1588)
6610 315224452 : lu(k,1599) = lu(k,1599) - lu(k,1503) * lu(k,1588)
6611 315224452 : lu(k,1600) = lu(k,1600) - lu(k,1504) * lu(k,1588)
6612 315224452 : lu(k,1601) = lu(k,1601) - lu(k,1505) * lu(k,1588)
6613 315224452 : lu(k,1602) = lu(k,1602) - lu(k,1506) * lu(k,1588)
6614 315224452 : lu(k,1606) = lu(k,1606) - lu(k,1507) * lu(k,1588)
6615 315224452 : lu(k,1813) = lu(k,1813) - lu(k,1496) * lu(k,1812)
6616 315224452 : lu(k,1815) = lu(k,1815) - lu(k,1497) * lu(k,1812)
6617 315224452 : lu(k,1816) = lu(k,1816) - lu(k,1498) * lu(k,1812)
6618 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1499) * lu(k,1812)
6619 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1500) * lu(k,1812)
6620 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1501) * lu(k,1812)
6621 315224452 : lu(k,1822) = lu(k,1822) - lu(k,1502) * lu(k,1812)
6622 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1503) * lu(k,1812)
6623 315224452 : lu(k,1824) = lu(k,1824) - lu(k,1504) * lu(k,1812)
6624 315224452 : lu(k,1825) = lu(k,1825) - lu(k,1505) * lu(k,1812)
6625 315224452 : lu(k,1826) = lu(k,1826) - lu(k,1506) * lu(k,1812)
6626 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1507) * lu(k,1812)
6627 315224452 : lu(k,1953) = lu(k,1953) - lu(k,1496) * lu(k,1952)
6628 315224452 : lu(k,1955) = lu(k,1955) - lu(k,1497) * lu(k,1952)
6629 315224452 : lu(k,1956) = lu(k,1956) - lu(k,1498) * lu(k,1952)
6630 315224452 : lu(k,1957) = lu(k,1957) - lu(k,1499) * lu(k,1952)
6631 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1500) * lu(k,1952)
6632 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1501) * lu(k,1952)
6633 315224452 : lu(k,1962) = lu(k,1962) - lu(k,1502) * lu(k,1952)
6634 315224452 : lu(k,1963) = lu(k,1963) - lu(k,1503) * lu(k,1952)
6635 315224452 : lu(k,1964) = lu(k,1964) - lu(k,1504) * lu(k,1952)
6636 315224452 : lu(k,1965) = lu(k,1965) - lu(k,1505) * lu(k,1952)
6637 315224452 : lu(k,1966) = lu(k,1966) - lu(k,1506) * lu(k,1952)
6638 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1507) * lu(k,1952)
6639 315224452 : lu(k,1979) = lu(k,1979) - lu(k,1496) * lu(k,1978)
6640 315224452 : lu(k,1981) = lu(k,1981) - lu(k,1497) * lu(k,1978)
6641 315224452 : lu(k,1982) = - lu(k,1498) * lu(k,1978)
6642 315224452 : lu(k,1983) = lu(k,1983) - lu(k,1499) * lu(k,1978)
6643 315224452 : lu(k,1984) = lu(k,1984) - lu(k,1500) * lu(k,1978)
6644 315224452 : lu(k,1986) = lu(k,1986) - lu(k,1501) * lu(k,1978)
6645 315224452 : lu(k,1988) = lu(k,1988) - lu(k,1502) * lu(k,1978)
6646 315224452 : lu(k,1989) = lu(k,1989) - lu(k,1503) * lu(k,1978)
6647 315224452 : lu(k,1990) = lu(k,1990) - lu(k,1504) * lu(k,1978)
6648 315224452 : lu(k,1991) = lu(k,1991) - lu(k,1505) * lu(k,1978)
6649 315224452 : lu(k,1992) = lu(k,1992) - lu(k,1506) * lu(k,1978)
6650 315224452 : lu(k,1997) = lu(k,1997) - lu(k,1507) * lu(k,1978)
6651 315224452 : lu(k,2022) = lu(k,2022) - lu(k,1496) * lu(k,2021)
6652 315224452 : lu(k,2024) = lu(k,2024) - lu(k,1497) * lu(k,2021)
6653 315224452 : lu(k,2025) = lu(k,2025) - lu(k,1498) * lu(k,2021)
6654 315224452 : lu(k,2026) = lu(k,2026) - lu(k,1499) * lu(k,2021)
6655 315224452 : lu(k,2027) = lu(k,2027) - lu(k,1500) * lu(k,2021)
6656 315224452 : lu(k,2029) = - lu(k,1501) * lu(k,2021)
6657 315224452 : lu(k,2031) = lu(k,2031) - lu(k,1502) * lu(k,2021)
6658 315224452 : lu(k,2032) = lu(k,2032) - lu(k,1503) * lu(k,2021)
6659 315224452 : lu(k,2033) = lu(k,2033) - lu(k,1504) * lu(k,2021)
6660 315224452 : lu(k,2034) = lu(k,2034) - lu(k,1505) * lu(k,2021)
6661 315224452 : lu(k,2035) = lu(k,2035) - lu(k,1506) * lu(k,2021)
6662 315224452 : lu(k,2040) = lu(k,2040) - lu(k,1507) * lu(k,2021)
6663 315224452 : lu(k,2045) = - lu(k,1496) * lu(k,2044)
6664 315224452 : lu(k,2047) = - lu(k,1497) * lu(k,2044)
6665 315224452 : lu(k,2048) = - lu(k,1498) * lu(k,2044)
6666 315224452 : lu(k,2049) = lu(k,2049) - lu(k,1499) * lu(k,2044)
6667 315224452 : lu(k,2050) = lu(k,2050) - lu(k,1500) * lu(k,2044)
6668 315224452 : lu(k,2052) = lu(k,2052) - lu(k,1501) * lu(k,2044)
6669 315224452 : lu(k,2054) = lu(k,2054) - lu(k,1502) * lu(k,2044)
6670 315224452 : lu(k,2055) = lu(k,2055) - lu(k,1503) * lu(k,2044)
6671 315224452 : lu(k,2056) = lu(k,2056) - lu(k,1504) * lu(k,2044)
6672 315224452 : lu(k,2057) = lu(k,2057) - lu(k,1505) * lu(k,2044)
6673 315224452 : lu(k,2058) = lu(k,2058) - lu(k,1506) * lu(k,2044)
6674 315224452 : lu(k,2063) = lu(k,2063) - lu(k,1507) * lu(k,2044)
6675 315224452 : lu(k,2088) = lu(k,2088) - lu(k,1496) * lu(k,2087)
6676 315224452 : lu(k,2090) = lu(k,2090) - lu(k,1497) * lu(k,2087)
6677 315224452 : lu(k,2091) = lu(k,2091) - lu(k,1498) * lu(k,2087)
6678 315224452 : lu(k,2092) = lu(k,2092) - lu(k,1499) * lu(k,2087)
6679 315224452 : lu(k,2093) = lu(k,2093) - lu(k,1500) * lu(k,2087)
6680 315224452 : lu(k,2095) = lu(k,2095) - lu(k,1501) * lu(k,2087)
6681 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1502) * lu(k,2087)
6682 315224452 : lu(k,2098) = lu(k,2098) - lu(k,1503) * lu(k,2087)
6683 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1504) * lu(k,2087)
6684 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1505) * lu(k,2087)
6685 315224452 : lu(k,2101) = lu(k,2101) - lu(k,1506) * lu(k,2087)
6686 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1507) * lu(k,2087)
6687 315224452 : lu(k,2109) = - lu(k,1496) * lu(k,2108)
6688 315224452 : lu(k,2111) = - lu(k,1497) * lu(k,2108)
6689 315224452 : lu(k,2112) = - lu(k,1498) * lu(k,2108)
6690 315224452 : lu(k,2113) = lu(k,2113) - lu(k,1499) * lu(k,2108)
6691 315224452 : lu(k,2114) = lu(k,2114) - lu(k,1500) * lu(k,2108)
6692 315224452 : lu(k,2116) = - lu(k,1501) * lu(k,2108)
6693 315224452 : lu(k,2118) = lu(k,2118) - lu(k,1502) * lu(k,2108)
6694 315224452 : lu(k,2119) = lu(k,2119) - lu(k,1503) * lu(k,2108)
6695 315224452 : lu(k,2120) = lu(k,2120) - lu(k,1504) * lu(k,2108)
6696 315224452 : lu(k,2121) = lu(k,2121) - lu(k,1505) * lu(k,2108)
6697 315224452 : lu(k,2122) = lu(k,2122) - lu(k,1506) * lu(k,2108)
6698 315224452 : lu(k,2127) = lu(k,2127) - lu(k,1507) * lu(k,2108)
6699 315224452 : lu(k,2155) = lu(k,2155) - lu(k,1496) * lu(k,2154)
6700 315224452 : lu(k,2157) = - lu(k,1497) * lu(k,2154)
6701 315224452 : lu(k,2158) = lu(k,2158) - lu(k,1498) * lu(k,2154)
6702 315224452 : lu(k,2159) = lu(k,2159) - lu(k,1499) * lu(k,2154)
6703 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1500) * lu(k,2154)
6704 315224452 : lu(k,2162) = lu(k,2162) - lu(k,1501) * lu(k,2154)
6705 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1502) * lu(k,2154)
6706 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1503) * lu(k,2154)
6707 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1504) * lu(k,2154)
6708 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1505) * lu(k,2154)
6709 315224452 : lu(k,2168) = lu(k,2168) - lu(k,1506) * lu(k,2154)
6710 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1507) * lu(k,2154)
6711 315224452 : lu(k,2244) = - lu(k,1496) * lu(k,2243)
6712 315224452 : lu(k,2246) = - lu(k,1497) * lu(k,2243)
6713 315224452 : lu(k,2247) = - lu(k,1498) * lu(k,2243)
6714 315224452 : lu(k,2248) = lu(k,2248) - lu(k,1499) * lu(k,2243)
6715 315224452 : lu(k,2249) = lu(k,2249) - lu(k,1500) * lu(k,2243)
6716 315224452 : lu(k,2251) = lu(k,2251) - lu(k,1501) * lu(k,2243)
6717 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1502) * lu(k,2243)
6718 315224452 : lu(k,2254) = lu(k,2254) - lu(k,1503) * lu(k,2243)
6719 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1504) * lu(k,2243)
6720 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1505) * lu(k,2243)
6721 315224452 : lu(k,2257) = lu(k,2257) - lu(k,1506) * lu(k,2243)
6722 315224452 : lu(k,2262) = lu(k,2262) - lu(k,1507) * lu(k,2243)
6723 315224452 : lu(k,2352) = lu(k,2352) - lu(k,1496) * lu(k,2351)
6724 315224452 : lu(k,2354) = lu(k,2354) - lu(k,1497) * lu(k,2351)
6725 315224452 : lu(k,2355) = lu(k,2355) - lu(k,1498) * lu(k,2351)
6726 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1499) * lu(k,2351)
6727 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1500) * lu(k,2351)
6728 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1501) * lu(k,2351)
6729 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1502) * lu(k,2351)
6730 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1503) * lu(k,2351)
6731 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1504) * lu(k,2351)
6732 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1505) * lu(k,2351)
6733 315224452 : lu(k,2365) = lu(k,2365) - lu(k,1506) * lu(k,2351)
6734 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1507) * lu(k,2351)
6735 315224452 : lu(k,2431) = lu(k,2431) - lu(k,1496) * lu(k,2430)
6736 315224452 : lu(k,2433) = lu(k,2433) - lu(k,1497) * lu(k,2430)
6737 315224452 : lu(k,2434) = lu(k,2434) - lu(k,1498) * lu(k,2430)
6738 315224452 : lu(k,2435) = lu(k,2435) - lu(k,1499) * lu(k,2430)
6739 315224452 : lu(k,2436) = lu(k,2436) - lu(k,1500) * lu(k,2430)
6740 315224452 : lu(k,2438) = lu(k,2438) - lu(k,1501) * lu(k,2430)
6741 315224452 : lu(k,2440) = lu(k,2440) - lu(k,1502) * lu(k,2430)
6742 315224452 : lu(k,2441) = lu(k,2441) - lu(k,1503) * lu(k,2430)
6743 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1504) * lu(k,2430)
6744 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1505) * lu(k,2430)
6745 315224452 : lu(k,2444) = lu(k,2444) - lu(k,1506) * lu(k,2430)
6746 315224452 : lu(k,2449) = lu(k,2449) - lu(k,1507) * lu(k,2430)
6747 315224452 : lu(k,1511) = 1._r8 / lu(k,1511)
6748 315224452 : lu(k,1512) = lu(k,1512) * lu(k,1511)
6749 315224452 : lu(k,1513) = lu(k,1513) * lu(k,1511)
6750 315224452 : lu(k,1514) = lu(k,1514) * lu(k,1511)
6751 315224452 : lu(k,1515) = lu(k,1515) * lu(k,1511)
6752 315224452 : lu(k,1516) = lu(k,1516) * lu(k,1511)
6753 315224452 : lu(k,1517) = lu(k,1517) * lu(k,1511)
6754 315224452 : lu(k,1518) = lu(k,1518) * lu(k,1511)
6755 315224452 : lu(k,1519) = lu(k,1519) * lu(k,1511)
6756 315224452 : lu(k,1520) = lu(k,1520) * lu(k,1511)
6757 315224452 : lu(k,1521) = lu(k,1521) * lu(k,1511)
6758 315224452 : lu(k,1522) = lu(k,1522) * lu(k,1511)
6759 315224452 : lu(k,1523) = lu(k,1523) * lu(k,1511)
6760 315224452 : lu(k,1542) = lu(k,1542) - lu(k,1512) * lu(k,1541)
6761 315224452 : lu(k,1543) = lu(k,1543) - lu(k,1513) * lu(k,1541)
6762 315224452 : lu(k,1545) = lu(k,1545) - lu(k,1514) * lu(k,1541)
6763 315224452 : lu(k,1546) = lu(k,1546) - lu(k,1515) * lu(k,1541)
6764 315224452 : lu(k,1547) = lu(k,1547) - lu(k,1516) * lu(k,1541)
6765 315224452 : lu(k,1548) = lu(k,1548) - lu(k,1517) * lu(k,1541)
6766 315224452 : lu(k,1549) = lu(k,1549) - lu(k,1518) * lu(k,1541)
6767 315224452 : lu(k,1550) = lu(k,1550) - lu(k,1519) * lu(k,1541)
6768 315224452 : lu(k,1551) = lu(k,1551) - lu(k,1520) * lu(k,1541)
6769 315224452 : lu(k,1553) = lu(k,1553) - lu(k,1521) * lu(k,1541)
6770 315224452 : lu(k,1554) = lu(k,1554) - lu(k,1522) * lu(k,1541)
6771 315224452 : lu(k,1555) = lu(k,1555) - lu(k,1523) * lu(k,1541)
6772 315224452 : lu(k,1564) = lu(k,1564) - lu(k,1512) * lu(k,1563)
6773 315224452 : lu(k,1565) = lu(k,1565) - lu(k,1513) * lu(k,1563)
6774 315224452 : lu(k,1568) = lu(k,1568) - lu(k,1514) * lu(k,1563)
6775 315224452 : lu(k,1569) = lu(k,1569) - lu(k,1515) * lu(k,1563)
6776 315224452 : lu(k,1570) = lu(k,1570) - lu(k,1516) * lu(k,1563)
6777 315224452 : lu(k,1571) = - lu(k,1517) * lu(k,1563)
6778 315224452 : lu(k,1572) = lu(k,1572) - lu(k,1518) * lu(k,1563)
6779 315224452 : lu(k,1574) = lu(k,1574) - lu(k,1519) * lu(k,1563)
6780 315224452 : lu(k,1575) = lu(k,1575) - lu(k,1520) * lu(k,1563)
6781 315224452 : lu(k,1577) = lu(k,1577) - lu(k,1521) * lu(k,1563)
6782 315224452 : lu(k,1578) = lu(k,1578) - lu(k,1522) * lu(k,1563)
6783 315224452 : lu(k,1579) = lu(k,1579) - lu(k,1523) * lu(k,1563)
6784 315224452 : lu(k,1590) = lu(k,1590) - lu(k,1512) * lu(k,1589)
6785 315224452 : lu(k,1591) = lu(k,1591) - lu(k,1513) * lu(k,1589)
6786 315224452 : lu(k,1594) = lu(k,1594) - lu(k,1514) * lu(k,1589)
6787 315224452 : lu(k,1595) = lu(k,1595) - lu(k,1515) * lu(k,1589)
6788 315224452 : lu(k,1596) = lu(k,1596) - lu(k,1516) * lu(k,1589)
6789 315224452 : lu(k,1597) = lu(k,1597) - lu(k,1517) * lu(k,1589)
6790 315224452 : lu(k,1598) = lu(k,1598) - lu(k,1518) * lu(k,1589)
6791 315224452 : lu(k,1600) = lu(k,1600) - lu(k,1519) * lu(k,1589)
6792 315224452 : lu(k,1601) = lu(k,1601) - lu(k,1520) * lu(k,1589)
6793 315224452 : lu(k,1603) = lu(k,1603) - lu(k,1521) * lu(k,1589)
6794 315224452 : lu(k,1604) = lu(k,1604) - lu(k,1522) * lu(k,1589)
6795 315224452 : lu(k,1606) = lu(k,1606) - lu(k,1523) * lu(k,1589)
6796 315224452 : lu(k,1649) = lu(k,1649) - lu(k,1512) * lu(k,1648)
6797 315224452 : lu(k,1650) = lu(k,1650) - lu(k,1513) * lu(k,1648)
6798 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1514) * lu(k,1648)
6799 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1515) * lu(k,1648)
6800 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1516) * lu(k,1648)
6801 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1517) * lu(k,1648)
6802 315224452 : lu(k,1657) = lu(k,1657) - lu(k,1518) * lu(k,1648)
6803 315224452 : lu(k,1659) = lu(k,1659) - lu(k,1519) * lu(k,1648)
6804 315224452 : lu(k,1660) = lu(k,1660) - lu(k,1520) * lu(k,1648)
6805 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1521) * lu(k,1648)
6806 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1522) * lu(k,1648)
6807 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1523) * lu(k,1648)
6808 315224452 : lu(k,1814) = lu(k,1814) - lu(k,1512) * lu(k,1813)
6809 315224452 : lu(k,1815) = lu(k,1815) - lu(k,1513) * lu(k,1813)
6810 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1514) * lu(k,1813)
6811 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1515) * lu(k,1813)
6812 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1516) * lu(k,1813)
6813 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1517) * lu(k,1813)
6814 315224452 : lu(k,1822) = lu(k,1822) - lu(k,1518) * lu(k,1813)
6815 315224452 : lu(k,1824) = lu(k,1824) - lu(k,1519) * lu(k,1813)
6816 315224452 : lu(k,1825) = lu(k,1825) - lu(k,1520) * lu(k,1813)
6817 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1521) * lu(k,1813)
6818 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1522) * lu(k,1813)
6819 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1523) * lu(k,1813)
6820 315224452 : lu(k,1909) = lu(k,1909) - lu(k,1512) * lu(k,1908)
6821 315224452 : lu(k,1910) = lu(k,1910) - lu(k,1513) * lu(k,1908)
6822 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1514) * lu(k,1908)
6823 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1515) * lu(k,1908)
6824 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1516) * lu(k,1908)
6825 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1517) * lu(k,1908)
6826 315224452 : lu(k,1917) = lu(k,1917) - lu(k,1518) * lu(k,1908)
6827 315224452 : lu(k,1919) = lu(k,1919) - lu(k,1519) * lu(k,1908)
6828 315224452 : lu(k,1920) = lu(k,1920) - lu(k,1520) * lu(k,1908)
6829 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1521) * lu(k,1908)
6830 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1522) * lu(k,1908)
6831 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1523) * lu(k,1908)
6832 315224452 : lu(k,1954) = lu(k,1954) - lu(k,1512) * lu(k,1953)
6833 315224452 : lu(k,1955) = lu(k,1955) - lu(k,1513) * lu(k,1953)
6834 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1514) * lu(k,1953)
6835 315224452 : lu(k,1959) = lu(k,1959) - lu(k,1515) * lu(k,1953)
6836 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1516) * lu(k,1953)
6837 315224452 : lu(k,1961) = lu(k,1961) - lu(k,1517) * lu(k,1953)
6838 315224452 : lu(k,1962) = lu(k,1962) - lu(k,1518) * lu(k,1953)
6839 315224452 : lu(k,1964) = lu(k,1964) - lu(k,1519) * lu(k,1953)
6840 315224452 : lu(k,1965) = lu(k,1965) - lu(k,1520) * lu(k,1953)
6841 315224452 : lu(k,1967) = lu(k,1967) - lu(k,1521) * lu(k,1953)
6842 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1522) * lu(k,1953)
6843 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1523) * lu(k,1953)
6844 315224452 : lu(k,1980) = lu(k,1980) - lu(k,1512) * lu(k,1979)
6845 315224452 : lu(k,1981) = lu(k,1981) - lu(k,1513) * lu(k,1979)
6846 315224452 : lu(k,1984) = lu(k,1984) - lu(k,1514) * lu(k,1979)
6847 315224452 : lu(k,1985) = lu(k,1985) - lu(k,1515) * lu(k,1979)
6848 315224452 : lu(k,1986) = lu(k,1986) - lu(k,1516) * lu(k,1979)
6849 315224452 : lu(k,1987) = lu(k,1987) - lu(k,1517) * lu(k,1979)
6850 315224452 : lu(k,1988) = lu(k,1988) - lu(k,1518) * lu(k,1979)
6851 315224452 : lu(k,1990) = lu(k,1990) - lu(k,1519) * lu(k,1979)
6852 315224452 : lu(k,1991) = lu(k,1991) - lu(k,1520) * lu(k,1979)
6853 315224452 : lu(k,1993) = - lu(k,1521) * lu(k,1979)
6854 315224452 : lu(k,1995) = lu(k,1995) - lu(k,1522) * lu(k,1979)
6855 315224452 : lu(k,1997) = lu(k,1997) - lu(k,1523) * lu(k,1979)
6856 315224452 : lu(k,2023) = lu(k,2023) - lu(k,1512) * lu(k,2022)
6857 315224452 : lu(k,2024) = lu(k,2024) - lu(k,1513) * lu(k,2022)
6858 315224452 : lu(k,2027) = lu(k,2027) - lu(k,1514) * lu(k,2022)
6859 315224452 : lu(k,2028) = lu(k,2028) - lu(k,1515) * lu(k,2022)
6860 315224452 : lu(k,2029) = lu(k,2029) - lu(k,1516) * lu(k,2022)
6861 315224452 : lu(k,2030) = lu(k,2030) - lu(k,1517) * lu(k,2022)
6862 315224452 : lu(k,2031) = lu(k,2031) - lu(k,1518) * lu(k,2022)
6863 315224452 : lu(k,2033) = lu(k,2033) - lu(k,1519) * lu(k,2022)
6864 315224452 : lu(k,2034) = lu(k,2034) - lu(k,1520) * lu(k,2022)
6865 315224452 : lu(k,2036) = lu(k,2036) - lu(k,1521) * lu(k,2022)
6866 315224452 : lu(k,2038) = lu(k,2038) - lu(k,1522) * lu(k,2022)
6867 315224452 : lu(k,2040) = lu(k,2040) - lu(k,1523) * lu(k,2022)
6868 315224452 : lu(k,2046) = - lu(k,1512) * lu(k,2045)
6869 315224452 : lu(k,2047) = lu(k,2047) - lu(k,1513) * lu(k,2045)
6870 315224452 : lu(k,2050) = lu(k,2050) - lu(k,1514) * lu(k,2045)
6871 315224452 : lu(k,2051) = - lu(k,1515) * lu(k,2045)
6872 315224452 : lu(k,2052) = lu(k,2052) - lu(k,1516) * lu(k,2045)
6873 315224452 : lu(k,2053) = - lu(k,1517) * lu(k,2045)
6874 315224452 : lu(k,2054) = lu(k,2054) - lu(k,1518) * lu(k,2045)
6875 315224452 : lu(k,2056) = lu(k,2056) - lu(k,1519) * lu(k,2045)
6876 315224452 : lu(k,2057) = lu(k,2057) - lu(k,1520) * lu(k,2045)
6877 315224452 : lu(k,2059) = - lu(k,1521) * lu(k,2045)
6878 315224452 : lu(k,2061) = - lu(k,1522) * lu(k,2045)
6879 315224452 : lu(k,2063) = lu(k,2063) - lu(k,1523) * lu(k,2045)
6880 315224452 : lu(k,2089) = lu(k,2089) - lu(k,1512) * lu(k,2088)
6881 315224452 : lu(k,2090) = lu(k,2090) - lu(k,1513) * lu(k,2088)
6882 315224452 : lu(k,2093) = lu(k,2093) - lu(k,1514) * lu(k,2088)
6883 315224452 : lu(k,2094) = lu(k,2094) - lu(k,1515) * lu(k,2088)
6884 315224452 : lu(k,2095) = lu(k,2095) - lu(k,1516) * lu(k,2088)
6885 315224452 : lu(k,2096) = lu(k,2096) - lu(k,1517) * lu(k,2088)
6886 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1518) * lu(k,2088)
6887 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1519) * lu(k,2088)
6888 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1520) * lu(k,2088)
6889 315224452 : lu(k,2102) = lu(k,2102) - lu(k,1521) * lu(k,2088)
6890 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1522) * lu(k,2088)
6891 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1523) * lu(k,2088)
6892 315224452 : lu(k,2110) = lu(k,2110) - lu(k,1512) * lu(k,2109)
6893 315224452 : lu(k,2111) = lu(k,2111) - lu(k,1513) * lu(k,2109)
6894 315224452 : lu(k,2114) = lu(k,2114) - lu(k,1514) * lu(k,2109)
6895 315224452 : lu(k,2115) = - lu(k,1515) * lu(k,2109)
6896 315224452 : lu(k,2116) = lu(k,2116) - lu(k,1516) * lu(k,2109)
6897 315224452 : lu(k,2117) = - lu(k,1517) * lu(k,2109)
6898 315224452 : lu(k,2118) = lu(k,2118) - lu(k,1518) * lu(k,2109)
6899 315224452 : lu(k,2120) = lu(k,2120) - lu(k,1519) * lu(k,2109)
6900 315224452 : lu(k,2121) = lu(k,2121) - lu(k,1520) * lu(k,2109)
6901 315224452 : lu(k,2123) = lu(k,2123) - lu(k,1521) * lu(k,2109)
6902 315224452 : lu(k,2125) = lu(k,2125) - lu(k,1522) * lu(k,2109)
6903 315224452 : lu(k,2127) = lu(k,2127) - lu(k,1523) * lu(k,2109)
6904 315224452 : lu(k,2156) = lu(k,2156) - lu(k,1512) * lu(k,2155)
6905 315224452 : lu(k,2157) = lu(k,2157) - lu(k,1513) * lu(k,2155)
6906 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1514) * lu(k,2155)
6907 315224452 : lu(k,2161) = lu(k,2161) - lu(k,1515) * lu(k,2155)
6908 315224452 : lu(k,2162) = lu(k,2162) - lu(k,1516) * lu(k,2155)
6909 315224452 : lu(k,2163) = lu(k,2163) - lu(k,1517) * lu(k,2155)
6910 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1518) * lu(k,2155)
6911 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1519) * lu(k,2155)
6912 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1520) * lu(k,2155)
6913 315224452 : lu(k,2169) = lu(k,2169) - lu(k,1521) * lu(k,2155)
6914 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1522) * lu(k,2155)
6915 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1523) * lu(k,2155)
6916 315224452 : lu(k,2220) = lu(k,2220) - lu(k,1512) * lu(k,2219)
6917 315224452 : lu(k,2221) = lu(k,2221) - lu(k,1513) * lu(k,2219)
6918 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1514) * lu(k,2219)
6919 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1515) * lu(k,2219)
6920 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1516) * lu(k,2219)
6921 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1517) * lu(k,2219)
6922 315224452 : lu(k,2228) = lu(k,2228) - lu(k,1518) * lu(k,2219)
6923 315224452 : lu(k,2230) = lu(k,2230) - lu(k,1519) * lu(k,2219)
6924 315224452 : lu(k,2231) = lu(k,2231) - lu(k,1520) * lu(k,2219)
6925 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1521) * lu(k,2219)
6926 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1522) * lu(k,2219)
6927 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1523) * lu(k,2219)
6928 315224452 : lu(k,2245) = lu(k,2245) - lu(k,1512) * lu(k,2244)
6929 315224452 : lu(k,2246) = lu(k,2246) - lu(k,1513) * lu(k,2244)
6930 315224452 : lu(k,2249) = lu(k,2249) - lu(k,1514) * lu(k,2244)
6931 315224452 : lu(k,2250) = lu(k,2250) - lu(k,1515) * lu(k,2244)
6932 315224452 : lu(k,2251) = lu(k,2251) - lu(k,1516) * lu(k,2244)
6933 315224452 : lu(k,2252) = lu(k,2252) - lu(k,1517) * lu(k,2244)
6934 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1518) * lu(k,2244)
6935 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1519) * lu(k,2244)
6936 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1520) * lu(k,2244)
6937 315224452 : lu(k,2258) = - lu(k,1521) * lu(k,2244)
6938 315224452 : lu(k,2260) = lu(k,2260) - lu(k,1522) * lu(k,2244)
6939 315224452 : lu(k,2262) = lu(k,2262) - lu(k,1523) * lu(k,2244)
6940 315224452 : lu(k,2353) = lu(k,2353) - lu(k,1512) * lu(k,2352)
6941 315224452 : lu(k,2354) = lu(k,2354) - lu(k,1513) * lu(k,2352)
6942 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1514) * lu(k,2352)
6943 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1515) * lu(k,2352)
6944 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1516) * lu(k,2352)
6945 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1517) * lu(k,2352)
6946 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1518) * lu(k,2352)
6947 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1519) * lu(k,2352)
6948 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1520) * lu(k,2352)
6949 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1521) * lu(k,2352)
6950 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1522) * lu(k,2352)
6951 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1523) * lu(k,2352)
6952 315224452 : lu(k,2432) = lu(k,2432) - lu(k,1512) * lu(k,2431)
6953 315224452 : lu(k,2433) = lu(k,2433) - lu(k,1513) * lu(k,2431)
6954 315224452 : lu(k,2436) = lu(k,2436) - lu(k,1514) * lu(k,2431)
6955 315224452 : lu(k,2437) = lu(k,2437) - lu(k,1515) * lu(k,2431)
6956 315224452 : lu(k,2438) = lu(k,2438) - lu(k,1516) * lu(k,2431)
6957 315224452 : lu(k,2439) = - lu(k,1517) * lu(k,2431)
6958 315224452 : lu(k,2440) = lu(k,2440) - lu(k,1518) * lu(k,2431)
6959 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1519) * lu(k,2431)
6960 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1520) * lu(k,2431)
6961 315224452 : lu(k,2445) = lu(k,2445) - lu(k,1521) * lu(k,2431)
6962 315224452 : lu(k,2447) = lu(k,2447) - lu(k,1522) * lu(k,2431)
6963 325174377 : lu(k,2449) = lu(k,2449) - lu(k,1523) * lu(k,2431)
6964 : end do
6965 9949925 : end subroutine lu_fac29
6966 9949925 : subroutine lu_fac30( avec_len, lu )
6967 : use chem_mods, only : nzcnt
6968 : use shr_kind_mod, only : r8 => shr_kind_r8
6969 : implicit none
6970 : !-----------------------------------------------------------------------
6971 : ! ... dummy args
6972 : !-----------------------------------------------------------------------
6973 : integer, intent(in) :: avec_len
6974 : real(r8), intent(inout) :: lu(veclen,nzcnt)
6975 : !-----------------------------------------------------------------------
6976 : ! ... local variables
6977 : !-----------------------------------------------------------------------
6978 : integer :: k
6979 325174377 : do k = 1,avec_len
6980 315224452 : lu(k,1542) = 1._r8 / lu(k,1542)
6981 315224452 : lu(k,1543) = lu(k,1543) * lu(k,1542)
6982 315224452 : lu(k,1544) = lu(k,1544) * lu(k,1542)
6983 315224452 : lu(k,1545) = lu(k,1545) * lu(k,1542)
6984 315224452 : lu(k,1546) = lu(k,1546) * lu(k,1542)
6985 315224452 : lu(k,1547) = lu(k,1547) * lu(k,1542)
6986 315224452 : lu(k,1548) = lu(k,1548) * lu(k,1542)
6987 315224452 : lu(k,1549) = lu(k,1549) * lu(k,1542)
6988 315224452 : lu(k,1550) = lu(k,1550) * lu(k,1542)
6989 315224452 : lu(k,1551) = lu(k,1551) * lu(k,1542)
6990 315224452 : lu(k,1552) = lu(k,1552) * lu(k,1542)
6991 315224452 : lu(k,1553) = lu(k,1553) * lu(k,1542)
6992 315224452 : lu(k,1554) = lu(k,1554) * lu(k,1542)
6993 315224452 : lu(k,1555) = lu(k,1555) * lu(k,1542)
6994 315224452 : lu(k,1565) = lu(k,1565) - lu(k,1543) * lu(k,1564)
6995 315224452 : lu(k,1566) = lu(k,1566) - lu(k,1544) * lu(k,1564)
6996 315224452 : lu(k,1568) = lu(k,1568) - lu(k,1545) * lu(k,1564)
6997 315224452 : lu(k,1569) = lu(k,1569) - lu(k,1546) * lu(k,1564)
6998 315224452 : lu(k,1570) = lu(k,1570) - lu(k,1547) * lu(k,1564)
6999 315224452 : lu(k,1571) = lu(k,1571) - lu(k,1548) * lu(k,1564)
7000 315224452 : lu(k,1572) = lu(k,1572) - lu(k,1549) * lu(k,1564)
7001 315224452 : lu(k,1574) = lu(k,1574) - lu(k,1550) * lu(k,1564)
7002 315224452 : lu(k,1575) = lu(k,1575) - lu(k,1551) * lu(k,1564)
7003 315224452 : lu(k,1576) = lu(k,1576) - lu(k,1552) * lu(k,1564)
7004 315224452 : lu(k,1577) = lu(k,1577) - lu(k,1553) * lu(k,1564)
7005 315224452 : lu(k,1578) = lu(k,1578) - lu(k,1554) * lu(k,1564)
7006 315224452 : lu(k,1579) = lu(k,1579) - lu(k,1555) * lu(k,1564)
7007 315224452 : lu(k,1591) = lu(k,1591) - lu(k,1543) * lu(k,1590)
7008 315224452 : lu(k,1592) = lu(k,1592) - lu(k,1544) * lu(k,1590)
7009 315224452 : lu(k,1594) = lu(k,1594) - lu(k,1545) * lu(k,1590)
7010 315224452 : lu(k,1595) = lu(k,1595) - lu(k,1546) * lu(k,1590)
7011 315224452 : lu(k,1596) = lu(k,1596) - lu(k,1547) * lu(k,1590)
7012 315224452 : lu(k,1597) = lu(k,1597) - lu(k,1548) * lu(k,1590)
7013 315224452 : lu(k,1598) = lu(k,1598) - lu(k,1549) * lu(k,1590)
7014 315224452 : lu(k,1600) = lu(k,1600) - lu(k,1550) * lu(k,1590)
7015 315224452 : lu(k,1601) = lu(k,1601) - lu(k,1551) * lu(k,1590)
7016 315224452 : lu(k,1602) = lu(k,1602) - lu(k,1552) * lu(k,1590)
7017 315224452 : lu(k,1603) = lu(k,1603) - lu(k,1553) * lu(k,1590)
7018 315224452 : lu(k,1604) = lu(k,1604) - lu(k,1554) * lu(k,1590)
7019 315224452 : lu(k,1606) = lu(k,1606) - lu(k,1555) * lu(k,1590)
7020 315224452 : lu(k,1650) = lu(k,1650) - lu(k,1543) * lu(k,1649)
7021 315224452 : lu(k,1651) = lu(k,1651) - lu(k,1544) * lu(k,1649)
7022 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1545) * lu(k,1649)
7023 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1546) * lu(k,1649)
7024 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1547) * lu(k,1649)
7025 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1548) * lu(k,1649)
7026 315224452 : lu(k,1657) = lu(k,1657) - lu(k,1549) * lu(k,1649)
7027 315224452 : lu(k,1659) = lu(k,1659) - lu(k,1550) * lu(k,1649)
7028 315224452 : lu(k,1660) = lu(k,1660) - lu(k,1551) * lu(k,1649)
7029 315224452 : lu(k,1661) = lu(k,1661) - lu(k,1552) * lu(k,1649)
7030 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1553) * lu(k,1649)
7031 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1554) * lu(k,1649)
7032 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1555) * lu(k,1649)
7033 315224452 : lu(k,1815) = lu(k,1815) - lu(k,1543) * lu(k,1814)
7034 315224452 : lu(k,1816) = lu(k,1816) - lu(k,1544) * lu(k,1814)
7035 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1545) * lu(k,1814)
7036 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1546) * lu(k,1814)
7037 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1547) * lu(k,1814)
7038 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1548) * lu(k,1814)
7039 315224452 : lu(k,1822) = lu(k,1822) - lu(k,1549) * lu(k,1814)
7040 315224452 : lu(k,1824) = lu(k,1824) - lu(k,1550) * lu(k,1814)
7041 315224452 : lu(k,1825) = lu(k,1825) - lu(k,1551) * lu(k,1814)
7042 315224452 : lu(k,1826) = lu(k,1826) - lu(k,1552) * lu(k,1814)
7043 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1553) * lu(k,1814)
7044 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1554) * lu(k,1814)
7045 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1555) * lu(k,1814)
7046 315224452 : lu(k,1910) = lu(k,1910) - lu(k,1543) * lu(k,1909)
7047 315224452 : lu(k,1911) = lu(k,1911) - lu(k,1544) * lu(k,1909)
7048 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1545) * lu(k,1909)
7049 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1546) * lu(k,1909)
7050 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1547) * lu(k,1909)
7051 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1548) * lu(k,1909)
7052 315224452 : lu(k,1917) = lu(k,1917) - lu(k,1549) * lu(k,1909)
7053 315224452 : lu(k,1919) = lu(k,1919) - lu(k,1550) * lu(k,1909)
7054 315224452 : lu(k,1920) = lu(k,1920) - lu(k,1551) * lu(k,1909)
7055 315224452 : lu(k,1921) = lu(k,1921) - lu(k,1552) * lu(k,1909)
7056 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1553) * lu(k,1909)
7057 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1554) * lu(k,1909)
7058 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1555) * lu(k,1909)
7059 315224452 : lu(k,1955) = lu(k,1955) - lu(k,1543) * lu(k,1954)
7060 315224452 : lu(k,1956) = lu(k,1956) - lu(k,1544) * lu(k,1954)
7061 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1545) * lu(k,1954)
7062 315224452 : lu(k,1959) = lu(k,1959) - lu(k,1546) * lu(k,1954)
7063 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1547) * lu(k,1954)
7064 315224452 : lu(k,1961) = lu(k,1961) - lu(k,1548) * lu(k,1954)
7065 315224452 : lu(k,1962) = lu(k,1962) - lu(k,1549) * lu(k,1954)
7066 315224452 : lu(k,1964) = lu(k,1964) - lu(k,1550) * lu(k,1954)
7067 315224452 : lu(k,1965) = lu(k,1965) - lu(k,1551) * lu(k,1954)
7068 315224452 : lu(k,1966) = lu(k,1966) - lu(k,1552) * lu(k,1954)
7069 315224452 : lu(k,1967) = lu(k,1967) - lu(k,1553) * lu(k,1954)
7070 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1554) * lu(k,1954)
7071 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1555) * lu(k,1954)
7072 315224452 : lu(k,1981) = lu(k,1981) - lu(k,1543) * lu(k,1980)
7073 315224452 : lu(k,1982) = lu(k,1982) - lu(k,1544) * lu(k,1980)
7074 315224452 : lu(k,1984) = lu(k,1984) - lu(k,1545) * lu(k,1980)
7075 315224452 : lu(k,1985) = lu(k,1985) - lu(k,1546) * lu(k,1980)
7076 315224452 : lu(k,1986) = lu(k,1986) - lu(k,1547) * lu(k,1980)
7077 315224452 : lu(k,1987) = lu(k,1987) - lu(k,1548) * lu(k,1980)
7078 315224452 : lu(k,1988) = lu(k,1988) - lu(k,1549) * lu(k,1980)
7079 315224452 : lu(k,1990) = lu(k,1990) - lu(k,1550) * lu(k,1980)
7080 315224452 : lu(k,1991) = lu(k,1991) - lu(k,1551) * lu(k,1980)
7081 315224452 : lu(k,1992) = lu(k,1992) - lu(k,1552) * lu(k,1980)
7082 315224452 : lu(k,1993) = lu(k,1993) - lu(k,1553) * lu(k,1980)
7083 315224452 : lu(k,1995) = lu(k,1995) - lu(k,1554) * lu(k,1980)
7084 315224452 : lu(k,1997) = lu(k,1997) - lu(k,1555) * lu(k,1980)
7085 315224452 : lu(k,2024) = lu(k,2024) - lu(k,1543) * lu(k,2023)
7086 315224452 : lu(k,2025) = lu(k,2025) - lu(k,1544) * lu(k,2023)
7087 315224452 : lu(k,2027) = lu(k,2027) - lu(k,1545) * lu(k,2023)
7088 315224452 : lu(k,2028) = lu(k,2028) - lu(k,1546) * lu(k,2023)
7089 315224452 : lu(k,2029) = lu(k,2029) - lu(k,1547) * lu(k,2023)
7090 315224452 : lu(k,2030) = lu(k,2030) - lu(k,1548) * lu(k,2023)
7091 315224452 : lu(k,2031) = lu(k,2031) - lu(k,1549) * lu(k,2023)
7092 315224452 : lu(k,2033) = lu(k,2033) - lu(k,1550) * lu(k,2023)
7093 315224452 : lu(k,2034) = lu(k,2034) - lu(k,1551) * lu(k,2023)
7094 315224452 : lu(k,2035) = lu(k,2035) - lu(k,1552) * lu(k,2023)
7095 315224452 : lu(k,2036) = lu(k,2036) - lu(k,1553) * lu(k,2023)
7096 315224452 : lu(k,2038) = lu(k,2038) - lu(k,1554) * lu(k,2023)
7097 315224452 : lu(k,2040) = lu(k,2040) - lu(k,1555) * lu(k,2023)
7098 315224452 : lu(k,2047) = lu(k,2047) - lu(k,1543) * lu(k,2046)
7099 315224452 : lu(k,2048) = lu(k,2048) - lu(k,1544) * lu(k,2046)
7100 315224452 : lu(k,2050) = lu(k,2050) - lu(k,1545) * lu(k,2046)
7101 315224452 : lu(k,2051) = lu(k,2051) - lu(k,1546) * lu(k,2046)
7102 315224452 : lu(k,2052) = lu(k,2052) - lu(k,1547) * lu(k,2046)
7103 315224452 : lu(k,2053) = lu(k,2053) - lu(k,1548) * lu(k,2046)
7104 315224452 : lu(k,2054) = lu(k,2054) - lu(k,1549) * lu(k,2046)
7105 315224452 : lu(k,2056) = lu(k,2056) - lu(k,1550) * lu(k,2046)
7106 315224452 : lu(k,2057) = lu(k,2057) - lu(k,1551) * lu(k,2046)
7107 315224452 : lu(k,2058) = lu(k,2058) - lu(k,1552) * lu(k,2046)
7108 315224452 : lu(k,2059) = lu(k,2059) - lu(k,1553) * lu(k,2046)
7109 315224452 : lu(k,2061) = lu(k,2061) - lu(k,1554) * lu(k,2046)
7110 315224452 : lu(k,2063) = lu(k,2063) - lu(k,1555) * lu(k,2046)
7111 315224452 : lu(k,2090) = lu(k,2090) - lu(k,1543) * lu(k,2089)
7112 315224452 : lu(k,2091) = lu(k,2091) - lu(k,1544) * lu(k,2089)
7113 315224452 : lu(k,2093) = lu(k,2093) - lu(k,1545) * lu(k,2089)
7114 315224452 : lu(k,2094) = lu(k,2094) - lu(k,1546) * lu(k,2089)
7115 315224452 : lu(k,2095) = lu(k,2095) - lu(k,1547) * lu(k,2089)
7116 315224452 : lu(k,2096) = lu(k,2096) - lu(k,1548) * lu(k,2089)
7117 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1549) * lu(k,2089)
7118 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1550) * lu(k,2089)
7119 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1551) * lu(k,2089)
7120 315224452 : lu(k,2101) = lu(k,2101) - lu(k,1552) * lu(k,2089)
7121 315224452 : lu(k,2102) = lu(k,2102) - lu(k,1553) * lu(k,2089)
7122 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1554) * lu(k,2089)
7123 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1555) * lu(k,2089)
7124 315224452 : lu(k,2111) = lu(k,2111) - lu(k,1543) * lu(k,2110)
7125 315224452 : lu(k,2112) = lu(k,2112) - lu(k,1544) * lu(k,2110)
7126 315224452 : lu(k,2114) = lu(k,2114) - lu(k,1545) * lu(k,2110)
7127 315224452 : lu(k,2115) = lu(k,2115) - lu(k,1546) * lu(k,2110)
7128 315224452 : lu(k,2116) = lu(k,2116) - lu(k,1547) * lu(k,2110)
7129 315224452 : lu(k,2117) = lu(k,2117) - lu(k,1548) * lu(k,2110)
7130 315224452 : lu(k,2118) = lu(k,2118) - lu(k,1549) * lu(k,2110)
7131 315224452 : lu(k,2120) = lu(k,2120) - lu(k,1550) * lu(k,2110)
7132 315224452 : lu(k,2121) = lu(k,2121) - lu(k,1551) * lu(k,2110)
7133 315224452 : lu(k,2122) = lu(k,2122) - lu(k,1552) * lu(k,2110)
7134 315224452 : lu(k,2123) = lu(k,2123) - lu(k,1553) * lu(k,2110)
7135 315224452 : lu(k,2125) = lu(k,2125) - lu(k,1554) * lu(k,2110)
7136 315224452 : lu(k,2127) = lu(k,2127) - lu(k,1555) * lu(k,2110)
7137 315224452 : lu(k,2157) = lu(k,2157) - lu(k,1543) * lu(k,2156)
7138 315224452 : lu(k,2158) = lu(k,2158) - lu(k,1544) * lu(k,2156)
7139 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1545) * lu(k,2156)
7140 315224452 : lu(k,2161) = lu(k,2161) - lu(k,1546) * lu(k,2156)
7141 315224452 : lu(k,2162) = lu(k,2162) - lu(k,1547) * lu(k,2156)
7142 315224452 : lu(k,2163) = lu(k,2163) - lu(k,1548) * lu(k,2156)
7143 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1549) * lu(k,2156)
7144 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1550) * lu(k,2156)
7145 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1551) * lu(k,2156)
7146 315224452 : lu(k,2168) = lu(k,2168) - lu(k,1552) * lu(k,2156)
7147 315224452 : lu(k,2169) = lu(k,2169) - lu(k,1553) * lu(k,2156)
7148 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1554) * lu(k,2156)
7149 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1555) * lu(k,2156)
7150 315224452 : lu(k,2221) = lu(k,2221) - lu(k,1543) * lu(k,2220)
7151 315224452 : lu(k,2222) = lu(k,2222) - lu(k,1544) * lu(k,2220)
7152 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1545) * lu(k,2220)
7153 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1546) * lu(k,2220)
7154 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1547) * lu(k,2220)
7155 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1548) * lu(k,2220)
7156 315224452 : lu(k,2228) = lu(k,2228) - lu(k,1549) * lu(k,2220)
7157 315224452 : lu(k,2230) = lu(k,2230) - lu(k,1550) * lu(k,2220)
7158 315224452 : lu(k,2231) = lu(k,2231) - lu(k,1551) * lu(k,2220)
7159 315224452 : lu(k,2232) = lu(k,2232) - lu(k,1552) * lu(k,2220)
7160 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1553) * lu(k,2220)
7161 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1554) * lu(k,2220)
7162 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1555) * lu(k,2220)
7163 315224452 : lu(k,2246) = lu(k,2246) - lu(k,1543) * lu(k,2245)
7164 315224452 : lu(k,2247) = lu(k,2247) - lu(k,1544) * lu(k,2245)
7165 315224452 : lu(k,2249) = lu(k,2249) - lu(k,1545) * lu(k,2245)
7166 315224452 : lu(k,2250) = lu(k,2250) - lu(k,1546) * lu(k,2245)
7167 315224452 : lu(k,2251) = lu(k,2251) - lu(k,1547) * lu(k,2245)
7168 315224452 : lu(k,2252) = lu(k,2252) - lu(k,1548) * lu(k,2245)
7169 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1549) * lu(k,2245)
7170 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1550) * lu(k,2245)
7171 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1551) * lu(k,2245)
7172 315224452 : lu(k,2257) = lu(k,2257) - lu(k,1552) * lu(k,2245)
7173 315224452 : lu(k,2258) = lu(k,2258) - lu(k,1553) * lu(k,2245)
7174 315224452 : lu(k,2260) = lu(k,2260) - lu(k,1554) * lu(k,2245)
7175 315224452 : lu(k,2262) = lu(k,2262) - lu(k,1555) * lu(k,2245)
7176 315224452 : lu(k,2354) = lu(k,2354) - lu(k,1543) * lu(k,2353)
7177 315224452 : lu(k,2355) = lu(k,2355) - lu(k,1544) * lu(k,2353)
7178 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1545) * lu(k,2353)
7179 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1546) * lu(k,2353)
7180 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1547) * lu(k,2353)
7181 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1548) * lu(k,2353)
7182 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1549) * lu(k,2353)
7183 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1550) * lu(k,2353)
7184 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1551) * lu(k,2353)
7185 315224452 : lu(k,2365) = lu(k,2365) - lu(k,1552) * lu(k,2353)
7186 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1553) * lu(k,2353)
7187 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1554) * lu(k,2353)
7188 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1555) * lu(k,2353)
7189 315224452 : lu(k,2406) = - lu(k,1543) * lu(k,2405)
7190 315224452 : lu(k,2407) = lu(k,2407) - lu(k,1544) * lu(k,2405)
7191 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1545) * lu(k,2405)
7192 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1546) * lu(k,2405)
7193 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1547) * lu(k,2405)
7194 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1548) * lu(k,2405)
7195 315224452 : lu(k,2413) = lu(k,2413) - lu(k,1549) * lu(k,2405)
7196 315224452 : lu(k,2415) = lu(k,2415) - lu(k,1550) * lu(k,2405)
7197 315224452 : lu(k,2416) = lu(k,2416) - lu(k,1551) * lu(k,2405)
7198 315224452 : lu(k,2417) = lu(k,2417) - lu(k,1552) * lu(k,2405)
7199 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1553) * lu(k,2405)
7200 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1554) * lu(k,2405)
7201 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1555) * lu(k,2405)
7202 315224452 : lu(k,2433) = lu(k,2433) - lu(k,1543) * lu(k,2432)
7203 315224452 : lu(k,2434) = lu(k,2434) - lu(k,1544) * lu(k,2432)
7204 315224452 : lu(k,2436) = lu(k,2436) - lu(k,1545) * lu(k,2432)
7205 315224452 : lu(k,2437) = lu(k,2437) - lu(k,1546) * lu(k,2432)
7206 315224452 : lu(k,2438) = lu(k,2438) - lu(k,1547) * lu(k,2432)
7207 315224452 : lu(k,2439) = lu(k,2439) - lu(k,1548) * lu(k,2432)
7208 315224452 : lu(k,2440) = lu(k,2440) - lu(k,1549) * lu(k,2432)
7209 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1550) * lu(k,2432)
7210 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1551) * lu(k,2432)
7211 315224452 : lu(k,2444) = lu(k,2444) - lu(k,1552) * lu(k,2432)
7212 315224452 : lu(k,2445) = lu(k,2445) - lu(k,1553) * lu(k,2432)
7213 315224452 : lu(k,2447) = lu(k,2447) - lu(k,1554) * lu(k,2432)
7214 315224452 : lu(k,2449) = lu(k,2449) - lu(k,1555) * lu(k,2432)
7215 315224452 : lu(k,1565) = 1._r8 / lu(k,1565)
7216 315224452 : lu(k,1566) = lu(k,1566) * lu(k,1565)
7217 315224452 : lu(k,1567) = lu(k,1567) * lu(k,1565)
7218 315224452 : lu(k,1568) = lu(k,1568) * lu(k,1565)
7219 315224452 : lu(k,1569) = lu(k,1569) * lu(k,1565)
7220 315224452 : lu(k,1570) = lu(k,1570) * lu(k,1565)
7221 315224452 : lu(k,1571) = lu(k,1571) * lu(k,1565)
7222 315224452 : lu(k,1572) = lu(k,1572) * lu(k,1565)
7223 315224452 : lu(k,1573) = lu(k,1573) * lu(k,1565)
7224 315224452 : lu(k,1574) = lu(k,1574) * lu(k,1565)
7225 315224452 : lu(k,1575) = lu(k,1575) * lu(k,1565)
7226 315224452 : lu(k,1576) = lu(k,1576) * lu(k,1565)
7227 315224452 : lu(k,1577) = lu(k,1577) * lu(k,1565)
7228 315224452 : lu(k,1578) = lu(k,1578) * lu(k,1565)
7229 315224452 : lu(k,1579) = lu(k,1579) * lu(k,1565)
7230 315224452 : lu(k,1592) = lu(k,1592) - lu(k,1566) * lu(k,1591)
7231 315224452 : lu(k,1593) = lu(k,1593) - lu(k,1567) * lu(k,1591)
7232 315224452 : lu(k,1594) = lu(k,1594) - lu(k,1568) * lu(k,1591)
7233 315224452 : lu(k,1595) = lu(k,1595) - lu(k,1569) * lu(k,1591)
7234 315224452 : lu(k,1596) = lu(k,1596) - lu(k,1570) * lu(k,1591)
7235 315224452 : lu(k,1597) = lu(k,1597) - lu(k,1571) * lu(k,1591)
7236 315224452 : lu(k,1598) = lu(k,1598) - lu(k,1572) * lu(k,1591)
7237 315224452 : lu(k,1599) = lu(k,1599) - lu(k,1573) * lu(k,1591)
7238 315224452 : lu(k,1600) = lu(k,1600) - lu(k,1574) * lu(k,1591)
7239 315224452 : lu(k,1601) = lu(k,1601) - lu(k,1575) * lu(k,1591)
7240 315224452 : lu(k,1602) = lu(k,1602) - lu(k,1576) * lu(k,1591)
7241 315224452 : lu(k,1603) = lu(k,1603) - lu(k,1577) * lu(k,1591)
7242 315224452 : lu(k,1604) = lu(k,1604) - lu(k,1578) * lu(k,1591)
7243 315224452 : lu(k,1606) = lu(k,1606) - lu(k,1579) * lu(k,1591)
7244 315224452 : lu(k,1651) = lu(k,1651) - lu(k,1566) * lu(k,1650)
7245 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1567) * lu(k,1650)
7246 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1568) * lu(k,1650)
7247 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1569) * lu(k,1650)
7248 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1570) * lu(k,1650)
7249 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1571) * lu(k,1650)
7250 315224452 : lu(k,1657) = lu(k,1657) - lu(k,1572) * lu(k,1650)
7251 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1573) * lu(k,1650)
7252 315224452 : lu(k,1659) = lu(k,1659) - lu(k,1574) * lu(k,1650)
7253 315224452 : lu(k,1660) = lu(k,1660) - lu(k,1575) * lu(k,1650)
7254 315224452 : lu(k,1661) = lu(k,1661) - lu(k,1576) * lu(k,1650)
7255 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1577) * lu(k,1650)
7256 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1578) * lu(k,1650)
7257 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1579) * lu(k,1650)
7258 315224452 : lu(k,1816) = lu(k,1816) - lu(k,1566) * lu(k,1815)
7259 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1567) * lu(k,1815)
7260 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1568) * lu(k,1815)
7261 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1569) * lu(k,1815)
7262 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1570) * lu(k,1815)
7263 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1571) * lu(k,1815)
7264 315224452 : lu(k,1822) = lu(k,1822) - lu(k,1572) * lu(k,1815)
7265 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1573) * lu(k,1815)
7266 315224452 : lu(k,1824) = lu(k,1824) - lu(k,1574) * lu(k,1815)
7267 315224452 : lu(k,1825) = lu(k,1825) - lu(k,1575) * lu(k,1815)
7268 315224452 : lu(k,1826) = lu(k,1826) - lu(k,1576) * lu(k,1815)
7269 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1577) * lu(k,1815)
7270 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1578) * lu(k,1815)
7271 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1579) * lu(k,1815)
7272 315224452 : lu(k,1911) = lu(k,1911) - lu(k,1566) * lu(k,1910)
7273 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1567) * lu(k,1910)
7274 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1568) * lu(k,1910)
7275 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1569) * lu(k,1910)
7276 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1570) * lu(k,1910)
7277 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1571) * lu(k,1910)
7278 315224452 : lu(k,1917) = lu(k,1917) - lu(k,1572) * lu(k,1910)
7279 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1573) * lu(k,1910)
7280 315224452 : lu(k,1919) = lu(k,1919) - lu(k,1574) * lu(k,1910)
7281 315224452 : lu(k,1920) = lu(k,1920) - lu(k,1575) * lu(k,1910)
7282 315224452 : lu(k,1921) = lu(k,1921) - lu(k,1576) * lu(k,1910)
7283 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1577) * lu(k,1910)
7284 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1578) * lu(k,1910)
7285 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1579) * lu(k,1910)
7286 315224452 : lu(k,1956) = lu(k,1956) - lu(k,1566) * lu(k,1955)
7287 315224452 : lu(k,1957) = lu(k,1957) - lu(k,1567) * lu(k,1955)
7288 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1568) * lu(k,1955)
7289 315224452 : lu(k,1959) = lu(k,1959) - lu(k,1569) * lu(k,1955)
7290 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1570) * lu(k,1955)
7291 315224452 : lu(k,1961) = lu(k,1961) - lu(k,1571) * lu(k,1955)
7292 315224452 : lu(k,1962) = lu(k,1962) - lu(k,1572) * lu(k,1955)
7293 315224452 : lu(k,1963) = lu(k,1963) - lu(k,1573) * lu(k,1955)
7294 315224452 : lu(k,1964) = lu(k,1964) - lu(k,1574) * lu(k,1955)
7295 315224452 : lu(k,1965) = lu(k,1965) - lu(k,1575) * lu(k,1955)
7296 315224452 : lu(k,1966) = lu(k,1966) - lu(k,1576) * lu(k,1955)
7297 315224452 : lu(k,1967) = lu(k,1967) - lu(k,1577) * lu(k,1955)
7298 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1578) * lu(k,1955)
7299 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1579) * lu(k,1955)
7300 315224452 : lu(k,1982) = lu(k,1982) - lu(k,1566) * lu(k,1981)
7301 315224452 : lu(k,1983) = lu(k,1983) - lu(k,1567) * lu(k,1981)
7302 315224452 : lu(k,1984) = lu(k,1984) - lu(k,1568) * lu(k,1981)
7303 315224452 : lu(k,1985) = lu(k,1985) - lu(k,1569) * lu(k,1981)
7304 315224452 : lu(k,1986) = lu(k,1986) - lu(k,1570) * lu(k,1981)
7305 315224452 : lu(k,1987) = lu(k,1987) - lu(k,1571) * lu(k,1981)
7306 315224452 : lu(k,1988) = lu(k,1988) - lu(k,1572) * lu(k,1981)
7307 315224452 : lu(k,1989) = lu(k,1989) - lu(k,1573) * lu(k,1981)
7308 315224452 : lu(k,1990) = lu(k,1990) - lu(k,1574) * lu(k,1981)
7309 315224452 : lu(k,1991) = lu(k,1991) - lu(k,1575) * lu(k,1981)
7310 315224452 : lu(k,1992) = lu(k,1992) - lu(k,1576) * lu(k,1981)
7311 315224452 : lu(k,1993) = lu(k,1993) - lu(k,1577) * lu(k,1981)
7312 315224452 : lu(k,1995) = lu(k,1995) - lu(k,1578) * lu(k,1981)
7313 315224452 : lu(k,1997) = lu(k,1997) - lu(k,1579) * lu(k,1981)
7314 315224452 : lu(k,2025) = lu(k,2025) - lu(k,1566) * lu(k,2024)
7315 315224452 : lu(k,2026) = lu(k,2026) - lu(k,1567) * lu(k,2024)
7316 315224452 : lu(k,2027) = lu(k,2027) - lu(k,1568) * lu(k,2024)
7317 315224452 : lu(k,2028) = lu(k,2028) - lu(k,1569) * lu(k,2024)
7318 315224452 : lu(k,2029) = lu(k,2029) - lu(k,1570) * lu(k,2024)
7319 315224452 : lu(k,2030) = lu(k,2030) - lu(k,1571) * lu(k,2024)
7320 315224452 : lu(k,2031) = lu(k,2031) - lu(k,1572) * lu(k,2024)
7321 315224452 : lu(k,2032) = lu(k,2032) - lu(k,1573) * lu(k,2024)
7322 315224452 : lu(k,2033) = lu(k,2033) - lu(k,1574) * lu(k,2024)
7323 315224452 : lu(k,2034) = lu(k,2034) - lu(k,1575) * lu(k,2024)
7324 315224452 : lu(k,2035) = lu(k,2035) - lu(k,1576) * lu(k,2024)
7325 315224452 : lu(k,2036) = lu(k,2036) - lu(k,1577) * lu(k,2024)
7326 315224452 : lu(k,2038) = lu(k,2038) - lu(k,1578) * lu(k,2024)
7327 315224452 : lu(k,2040) = lu(k,2040) - lu(k,1579) * lu(k,2024)
7328 315224452 : lu(k,2048) = lu(k,2048) - lu(k,1566) * lu(k,2047)
7329 315224452 : lu(k,2049) = lu(k,2049) - lu(k,1567) * lu(k,2047)
7330 315224452 : lu(k,2050) = lu(k,2050) - lu(k,1568) * lu(k,2047)
7331 315224452 : lu(k,2051) = lu(k,2051) - lu(k,1569) * lu(k,2047)
7332 315224452 : lu(k,2052) = lu(k,2052) - lu(k,1570) * lu(k,2047)
7333 315224452 : lu(k,2053) = lu(k,2053) - lu(k,1571) * lu(k,2047)
7334 315224452 : lu(k,2054) = lu(k,2054) - lu(k,1572) * lu(k,2047)
7335 315224452 : lu(k,2055) = lu(k,2055) - lu(k,1573) * lu(k,2047)
7336 315224452 : lu(k,2056) = lu(k,2056) - lu(k,1574) * lu(k,2047)
7337 315224452 : lu(k,2057) = lu(k,2057) - lu(k,1575) * lu(k,2047)
7338 315224452 : lu(k,2058) = lu(k,2058) - lu(k,1576) * lu(k,2047)
7339 315224452 : lu(k,2059) = lu(k,2059) - lu(k,1577) * lu(k,2047)
7340 315224452 : lu(k,2061) = lu(k,2061) - lu(k,1578) * lu(k,2047)
7341 315224452 : lu(k,2063) = lu(k,2063) - lu(k,1579) * lu(k,2047)
7342 315224452 : lu(k,2091) = lu(k,2091) - lu(k,1566) * lu(k,2090)
7343 315224452 : lu(k,2092) = lu(k,2092) - lu(k,1567) * lu(k,2090)
7344 315224452 : lu(k,2093) = lu(k,2093) - lu(k,1568) * lu(k,2090)
7345 315224452 : lu(k,2094) = lu(k,2094) - lu(k,1569) * lu(k,2090)
7346 315224452 : lu(k,2095) = lu(k,2095) - lu(k,1570) * lu(k,2090)
7347 315224452 : lu(k,2096) = lu(k,2096) - lu(k,1571) * lu(k,2090)
7348 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1572) * lu(k,2090)
7349 315224452 : lu(k,2098) = lu(k,2098) - lu(k,1573) * lu(k,2090)
7350 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1574) * lu(k,2090)
7351 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1575) * lu(k,2090)
7352 315224452 : lu(k,2101) = lu(k,2101) - lu(k,1576) * lu(k,2090)
7353 315224452 : lu(k,2102) = lu(k,2102) - lu(k,1577) * lu(k,2090)
7354 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1578) * lu(k,2090)
7355 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1579) * lu(k,2090)
7356 315224452 : lu(k,2112) = lu(k,2112) - lu(k,1566) * lu(k,2111)
7357 315224452 : lu(k,2113) = lu(k,2113) - lu(k,1567) * lu(k,2111)
7358 315224452 : lu(k,2114) = lu(k,2114) - lu(k,1568) * lu(k,2111)
7359 315224452 : lu(k,2115) = lu(k,2115) - lu(k,1569) * lu(k,2111)
7360 315224452 : lu(k,2116) = lu(k,2116) - lu(k,1570) * lu(k,2111)
7361 315224452 : lu(k,2117) = lu(k,2117) - lu(k,1571) * lu(k,2111)
7362 315224452 : lu(k,2118) = lu(k,2118) - lu(k,1572) * lu(k,2111)
7363 315224452 : lu(k,2119) = lu(k,2119) - lu(k,1573) * lu(k,2111)
7364 315224452 : lu(k,2120) = lu(k,2120) - lu(k,1574) * lu(k,2111)
7365 315224452 : lu(k,2121) = lu(k,2121) - lu(k,1575) * lu(k,2111)
7366 315224452 : lu(k,2122) = lu(k,2122) - lu(k,1576) * lu(k,2111)
7367 315224452 : lu(k,2123) = lu(k,2123) - lu(k,1577) * lu(k,2111)
7368 315224452 : lu(k,2125) = lu(k,2125) - lu(k,1578) * lu(k,2111)
7369 315224452 : lu(k,2127) = lu(k,2127) - lu(k,1579) * lu(k,2111)
7370 315224452 : lu(k,2158) = lu(k,2158) - lu(k,1566) * lu(k,2157)
7371 315224452 : lu(k,2159) = lu(k,2159) - lu(k,1567) * lu(k,2157)
7372 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1568) * lu(k,2157)
7373 315224452 : lu(k,2161) = lu(k,2161) - lu(k,1569) * lu(k,2157)
7374 315224452 : lu(k,2162) = lu(k,2162) - lu(k,1570) * lu(k,2157)
7375 315224452 : lu(k,2163) = lu(k,2163) - lu(k,1571) * lu(k,2157)
7376 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1572) * lu(k,2157)
7377 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1573) * lu(k,2157)
7378 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1574) * lu(k,2157)
7379 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1575) * lu(k,2157)
7380 315224452 : lu(k,2168) = lu(k,2168) - lu(k,1576) * lu(k,2157)
7381 315224452 : lu(k,2169) = lu(k,2169) - lu(k,1577) * lu(k,2157)
7382 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1578) * lu(k,2157)
7383 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1579) * lu(k,2157)
7384 315224452 : lu(k,2222) = lu(k,2222) - lu(k,1566) * lu(k,2221)
7385 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1567) * lu(k,2221)
7386 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1568) * lu(k,2221)
7387 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1569) * lu(k,2221)
7388 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1570) * lu(k,2221)
7389 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1571) * lu(k,2221)
7390 315224452 : lu(k,2228) = lu(k,2228) - lu(k,1572) * lu(k,2221)
7391 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1573) * lu(k,2221)
7392 315224452 : lu(k,2230) = lu(k,2230) - lu(k,1574) * lu(k,2221)
7393 315224452 : lu(k,2231) = lu(k,2231) - lu(k,1575) * lu(k,2221)
7394 315224452 : lu(k,2232) = lu(k,2232) - lu(k,1576) * lu(k,2221)
7395 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1577) * lu(k,2221)
7396 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1578) * lu(k,2221)
7397 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1579) * lu(k,2221)
7398 315224452 : lu(k,2247) = lu(k,2247) - lu(k,1566) * lu(k,2246)
7399 315224452 : lu(k,2248) = lu(k,2248) - lu(k,1567) * lu(k,2246)
7400 315224452 : lu(k,2249) = lu(k,2249) - lu(k,1568) * lu(k,2246)
7401 315224452 : lu(k,2250) = lu(k,2250) - lu(k,1569) * lu(k,2246)
7402 315224452 : lu(k,2251) = lu(k,2251) - lu(k,1570) * lu(k,2246)
7403 315224452 : lu(k,2252) = lu(k,2252) - lu(k,1571) * lu(k,2246)
7404 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1572) * lu(k,2246)
7405 315224452 : lu(k,2254) = lu(k,2254) - lu(k,1573) * lu(k,2246)
7406 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1574) * lu(k,2246)
7407 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1575) * lu(k,2246)
7408 315224452 : lu(k,2257) = lu(k,2257) - lu(k,1576) * lu(k,2246)
7409 315224452 : lu(k,2258) = lu(k,2258) - lu(k,1577) * lu(k,2246)
7410 315224452 : lu(k,2260) = lu(k,2260) - lu(k,1578) * lu(k,2246)
7411 315224452 : lu(k,2262) = lu(k,2262) - lu(k,1579) * lu(k,2246)
7412 315224452 : lu(k,2355) = lu(k,2355) - lu(k,1566) * lu(k,2354)
7413 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1567) * lu(k,2354)
7414 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1568) * lu(k,2354)
7415 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1569) * lu(k,2354)
7416 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1570) * lu(k,2354)
7417 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1571) * lu(k,2354)
7418 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1572) * lu(k,2354)
7419 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1573) * lu(k,2354)
7420 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1574) * lu(k,2354)
7421 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1575) * lu(k,2354)
7422 315224452 : lu(k,2365) = lu(k,2365) - lu(k,1576) * lu(k,2354)
7423 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1577) * lu(k,2354)
7424 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1578) * lu(k,2354)
7425 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1579) * lu(k,2354)
7426 315224452 : lu(k,2407) = lu(k,2407) - lu(k,1566) * lu(k,2406)
7427 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1567) * lu(k,2406)
7428 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1568) * lu(k,2406)
7429 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1569) * lu(k,2406)
7430 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1570) * lu(k,2406)
7431 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1571) * lu(k,2406)
7432 315224452 : lu(k,2413) = lu(k,2413) - lu(k,1572) * lu(k,2406)
7433 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1573) * lu(k,2406)
7434 315224452 : lu(k,2415) = lu(k,2415) - lu(k,1574) * lu(k,2406)
7435 315224452 : lu(k,2416) = lu(k,2416) - lu(k,1575) * lu(k,2406)
7436 315224452 : lu(k,2417) = lu(k,2417) - lu(k,1576) * lu(k,2406)
7437 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1577) * lu(k,2406)
7438 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1578) * lu(k,2406)
7439 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1579) * lu(k,2406)
7440 315224452 : lu(k,2434) = lu(k,2434) - lu(k,1566) * lu(k,2433)
7441 315224452 : lu(k,2435) = lu(k,2435) - lu(k,1567) * lu(k,2433)
7442 315224452 : lu(k,2436) = lu(k,2436) - lu(k,1568) * lu(k,2433)
7443 315224452 : lu(k,2437) = lu(k,2437) - lu(k,1569) * lu(k,2433)
7444 315224452 : lu(k,2438) = lu(k,2438) - lu(k,1570) * lu(k,2433)
7445 315224452 : lu(k,2439) = lu(k,2439) - lu(k,1571) * lu(k,2433)
7446 315224452 : lu(k,2440) = lu(k,2440) - lu(k,1572) * lu(k,2433)
7447 315224452 : lu(k,2441) = lu(k,2441) - lu(k,1573) * lu(k,2433)
7448 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1574) * lu(k,2433)
7449 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1575) * lu(k,2433)
7450 315224452 : lu(k,2444) = lu(k,2444) - lu(k,1576) * lu(k,2433)
7451 315224452 : lu(k,2445) = lu(k,2445) - lu(k,1577) * lu(k,2433)
7452 315224452 : lu(k,2447) = lu(k,2447) - lu(k,1578) * lu(k,2433)
7453 315224452 : lu(k,2449) = lu(k,2449) - lu(k,1579) * lu(k,2433)
7454 315224452 : lu(k,1592) = 1._r8 / lu(k,1592)
7455 315224452 : lu(k,1593) = lu(k,1593) * lu(k,1592)
7456 315224452 : lu(k,1594) = lu(k,1594) * lu(k,1592)
7457 315224452 : lu(k,1595) = lu(k,1595) * lu(k,1592)
7458 315224452 : lu(k,1596) = lu(k,1596) * lu(k,1592)
7459 315224452 : lu(k,1597) = lu(k,1597) * lu(k,1592)
7460 315224452 : lu(k,1598) = lu(k,1598) * lu(k,1592)
7461 315224452 : lu(k,1599) = lu(k,1599) * lu(k,1592)
7462 315224452 : lu(k,1600) = lu(k,1600) * lu(k,1592)
7463 315224452 : lu(k,1601) = lu(k,1601) * lu(k,1592)
7464 315224452 : lu(k,1602) = lu(k,1602) * lu(k,1592)
7465 315224452 : lu(k,1603) = lu(k,1603) * lu(k,1592)
7466 315224452 : lu(k,1604) = lu(k,1604) * lu(k,1592)
7467 315224452 : lu(k,1605) = lu(k,1605) * lu(k,1592)
7468 315224452 : lu(k,1606) = lu(k,1606) * lu(k,1592)
7469 315224452 : lu(k,1652) = lu(k,1652) - lu(k,1593) * lu(k,1651)
7470 315224452 : lu(k,1653) = lu(k,1653) - lu(k,1594) * lu(k,1651)
7471 315224452 : lu(k,1654) = lu(k,1654) - lu(k,1595) * lu(k,1651)
7472 315224452 : lu(k,1655) = lu(k,1655) - lu(k,1596) * lu(k,1651)
7473 315224452 : lu(k,1656) = lu(k,1656) - lu(k,1597) * lu(k,1651)
7474 315224452 : lu(k,1657) = lu(k,1657) - lu(k,1598) * lu(k,1651)
7475 315224452 : lu(k,1658) = lu(k,1658) - lu(k,1599) * lu(k,1651)
7476 315224452 : lu(k,1659) = lu(k,1659) - lu(k,1600) * lu(k,1651)
7477 315224452 : lu(k,1660) = lu(k,1660) - lu(k,1601) * lu(k,1651)
7478 315224452 : lu(k,1661) = lu(k,1661) - lu(k,1602) * lu(k,1651)
7479 315224452 : lu(k,1662) = lu(k,1662) - lu(k,1603) * lu(k,1651)
7480 315224452 : lu(k,1664) = lu(k,1664) - lu(k,1604) * lu(k,1651)
7481 315224452 : lu(k,1665) = lu(k,1665) - lu(k,1605) * lu(k,1651)
7482 315224452 : lu(k,1666) = lu(k,1666) - lu(k,1606) * lu(k,1651)
7483 315224452 : lu(k,1817) = lu(k,1817) - lu(k,1593) * lu(k,1816)
7484 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1594) * lu(k,1816)
7485 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1595) * lu(k,1816)
7486 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1596) * lu(k,1816)
7487 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1597) * lu(k,1816)
7488 315224452 : lu(k,1822) = lu(k,1822) - lu(k,1598) * lu(k,1816)
7489 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1599) * lu(k,1816)
7490 315224452 : lu(k,1824) = lu(k,1824) - lu(k,1600) * lu(k,1816)
7491 315224452 : lu(k,1825) = lu(k,1825) - lu(k,1601) * lu(k,1816)
7492 315224452 : lu(k,1826) = lu(k,1826) - lu(k,1602) * lu(k,1816)
7493 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1603) * lu(k,1816)
7494 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1604) * lu(k,1816)
7495 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1605) * lu(k,1816)
7496 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1606) * lu(k,1816)
7497 315224452 : lu(k,1912) = lu(k,1912) - lu(k,1593) * lu(k,1911)
7498 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1594) * lu(k,1911)
7499 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1595) * lu(k,1911)
7500 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1596) * lu(k,1911)
7501 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1597) * lu(k,1911)
7502 315224452 : lu(k,1917) = lu(k,1917) - lu(k,1598) * lu(k,1911)
7503 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1599) * lu(k,1911)
7504 315224452 : lu(k,1919) = lu(k,1919) - lu(k,1600) * lu(k,1911)
7505 315224452 : lu(k,1920) = lu(k,1920) - lu(k,1601) * lu(k,1911)
7506 315224452 : lu(k,1921) = lu(k,1921) - lu(k,1602) * lu(k,1911)
7507 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1603) * lu(k,1911)
7508 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1604) * lu(k,1911)
7509 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1605) * lu(k,1911)
7510 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1606) * lu(k,1911)
7511 315224452 : lu(k,1957) = lu(k,1957) - lu(k,1593) * lu(k,1956)
7512 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1594) * lu(k,1956)
7513 315224452 : lu(k,1959) = lu(k,1959) - lu(k,1595) * lu(k,1956)
7514 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1596) * lu(k,1956)
7515 315224452 : lu(k,1961) = lu(k,1961) - lu(k,1597) * lu(k,1956)
7516 315224452 : lu(k,1962) = lu(k,1962) - lu(k,1598) * lu(k,1956)
7517 315224452 : lu(k,1963) = lu(k,1963) - lu(k,1599) * lu(k,1956)
7518 315224452 : lu(k,1964) = lu(k,1964) - lu(k,1600) * lu(k,1956)
7519 315224452 : lu(k,1965) = lu(k,1965) - lu(k,1601) * lu(k,1956)
7520 315224452 : lu(k,1966) = lu(k,1966) - lu(k,1602) * lu(k,1956)
7521 315224452 : lu(k,1967) = lu(k,1967) - lu(k,1603) * lu(k,1956)
7522 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1604) * lu(k,1956)
7523 315224452 : lu(k,1970) = lu(k,1970) - lu(k,1605) * lu(k,1956)
7524 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1606) * lu(k,1956)
7525 315224452 : lu(k,1983) = lu(k,1983) - lu(k,1593) * lu(k,1982)
7526 315224452 : lu(k,1984) = lu(k,1984) - lu(k,1594) * lu(k,1982)
7527 315224452 : lu(k,1985) = lu(k,1985) - lu(k,1595) * lu(k,1982)
7528 315224452 : lu(k,1986) = lu(k,1986) - lu(k,1596) * lu(k,1982)
7529 315224452 : lu(k,1987) = lu(k,1987) - lu(k,1597) * lu(k,1982)
7530 315224452 : lu(k,1988) = lu(k,1988) - lu(k,1598) * lu(k,1982)
7531 315224452 : lu(k,1989) = lu(k,1989) - lu(k,1599) * lu(k,1982)
7532 315224452 : lu(k,1990) = lu(k,1990) - lu(k,1600) * lu(k,1982)
7533 315224452 : lu(k,1991) = lu(k,1991) - lu(k,1601) * lu(k,1982)
7534 315224452 : lu(k,1992) = lu(k,1992) - lu(k,1602) * lu(k,1982)
7535 315224452 : lu(k,1993) = lu(k,1993) - lu(k,1603) * lu(k,1982)
7536 315224452 : lu(k,1995) = lu(k,1995) - lu(k,1604) * lu(k,1982)
7537 315224452 : lu(k,1996) = lu(k,1996) - lu(k,1605) * lu(k,1982)
7538 315224452 : lu(k,1997) = lu(k,1997) - lu(k,1606) * lu(k,1982)
7539 315224452 : lu(k,2026) = lu(k,2026) - lu(k,1593) * lu(k,2025)
7540 315224452 : lu(k,2027) = lu(k,2027) - lu(k,1594) * lu(k,2025)
7541 315224452 : lu(k,2028) = lu(k,2028) - lu(k,1595) * lu(k,2025)
7542 315224452 : lu(k,2029) = lu(k,2029) - lu(k,1596) * lu(k,2025)
7543 315224452 : lu(k,2030) = lu(k,2030) - lu(k,1597) * lu(k,2025)
7544 315224452 : lu(k,2031) = lu(k,2031) - lu(k,1598) * lu(k,2025)
7545 315224452 : lu(k,2032) = lu(k,2032) - lu(k,1599) * lu(k,2025)
7546 315224452 : lu(k,2033) = lu(k,2033) - lu(k,1600) * lu(k,2025)
7547 315224452 : lu(k,2034) = lu(k,2034) - lu(k,1601) * lu(k,2025)
7548 315224452 : lu(k,2035) = lu(k,2035) - lu(k,1602) * lu(k,2025)
7549 315224452 : lu(k,2036) = lu(k,2036) - lu(k,1603) * lu(k,2025)
7550 315224452 : lu(k,2038) = lu(k,2038) - lu(k,1604) * lu(k,2025)
7551 315224452 : lu(k,2039) = lu(k,2039) - lu(k,1605) * lu(k,2025)
7552 315224452 : lu(k,2040) = lu(k,2040) - lu(k,1606) * lu(k,2025)
7553 315224452 : lu(k,2049) = lu(k,2049) - lu(k,1593) * lu(k,2048)
7554 315224452 : lu(k,2050) = lu(k,2050) - lu(k,1594) * lu(k,2048)
7555 315224452 : lu(k,2051) = lu(k,2051) - lu(k,1595) * lu(k,2048)
7556 315224452 : lu(k,2052) = lu(k,2052) - lu(k,1596) * lu(k,2048)
7557 315224452 : lu(k,2053) = lu(k,2053) - lu(k,1597) * lu(k,2048)
7558 315224452 : lu(k,2054) = lu(k,2054) - lu(k,1598) * lu(k,2048)
7559 315224452 : lu(k,2055) = lu(k,2055) - lu(k,1599) * lu(k,2048)
7560 315224452 : lu(k,2056) = lu(k,2056) - lu(k,1600) * lu(k,2048)
7561 315224452 : lu(k,2057) = lu(k,2057) - lu(k,1601) * lu(k,2048)
7562 315224452 : lu(k,2058) = lu(k,2058) - lu(k,1602) * lu(k,2048)
7563 315224452 : lu(k,2059) = lu(k,2059) - lu(k,1603) * lu(k,2048)
7564 315224452 : lu(k,2061) = lu(k,2061) - lu(k,1604) * lu(k,2048)
7565 315224452 : lu(k,2062) = lu(k,2062) - lu(k,1605) * lu(k,2048)
7566 315224452 : lu(k,2063) = lu(k,2063) - lu(k,1606) * lu(k,2048)
7567 315224452 : lu(k,2092) = lu(k,2092) - lu(k,1593) * lu(k,2091)
7568 315224452 : lu(k,2093) = lu(k,2093) - lu(k,1594) * lu(k,2091)
7569 315224452 : lu(k,2094) = lu(k,2094) - lu(k,1595) * lu(k,2091)
7570 315224452 : lu(k,2095) = lu(k,2095) - lu(k,1596) * lu(k,2091)
7571 315224452 : lu(k,2096) = lu(k,2096) - lu(k,1597) * lu(k,2091)
7572 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1598) * lu(k,2091)
7573 315224452 : lu(k,2098) = lu(k,2098) - lu(k,1599) * lu(k,2091)
7574 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1600) * lu(k,2091)
7575 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1601) * lu(k,2091)
7576 315224452 : lu(k,2101) = lu(k,2101) - lu(k,1602) * lu(k,2091)
7577 315224452 : lu(k,2102) = lu(k,2102) - lu(k,1603) * lu(k,2091)
7578 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1604) * lu(k,2091)
7579 315224452 : lu(k,2105) = lu(k,2105) - lu(k,1605) * lu(k,2091)
7580 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1606) * lu(k,2091)
7581 315224452 : lu(k,2113) = lu(k,2113) - lu(k,1593) * lu(k,2112)
7582 315224452 : lu(k,2114) = lu(k,2114) - lu(k,1594) * lu(k,2112)
7583 315224452 : lu(k,2115) = lu(k,2115) - lu(k,1595) * lu(k,2112)
7584 315224452 : lu(k,2116) = lu(k,2116) - lu(k,1596) * lu(k,2112)
7585 315224452 : lu(k,2117) = lu(k,2117) - lu(k,1597) * lu(k,2112)
7586 315224452 : lu(k,2118) = lu(k,2118) - lu(k,1598) * lu(k,2112)
7587 315224452 : lu(k,2119) = lu(k,2119) - lu(k,1599) * lu(k,2112)
7588 315224452 : lu(k,2120) = lu(k,2120) - lu(k,1600) * lu(k,2112)
7589 315224452 : lu(k,2121) = lu(k,2121) - lu(k,1601) * lu(k,2112)
7590 315224452 : lu(k,2122) = lu(k,2122) - lu(k,1602) * lu(k,2112)
7591 315224452 : lu(k,2123) = lu(k,2123) - lu(k,1603) * lu(k,2112)
7592 315224452 : lu(k,2125) = lu(k,2125) - lu(k,1604) * lu(k,2112)
7593 315224452 : lu(k,2126) = lu(k,2126) - lu(k,1605) * lu(k,2112)
7594 315224452 : lu(k,2127) = lu(k,2127) - lu(k,1606) * lu(k,2112)
7595 315224452 : lu(k,2159) = lu(k,2159) - lu(k,1593) * lu(k,2158)
7596 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1594) * lu(k,2158)
7597 315224452 : lu(k,2161) = lu(k,2161) - lu(k,1595) * lu(k,2158)
7598 315224452 : lu(k,2162) = lu(k,2162) - lu(k,1596) * lu(k,2158)
7599 315224452 : lu(k,2163) = lu(k,2163) - lu(k,1597) * lu(k,2158)
7600 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1598) * lu(k,2158)
7601 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1599) * lu(k,2158)
7602 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1600) * lu(k,2158)
7603 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1601) * lu(k,2158)
7604 315224452 : lu(k,2168) = lu(k,2168) - lu(k,1602) * lu(k,2158)
7605 315224452 : lu(k,2169) = lu(k,2169) - lu(k,1603) * lu(k,2158)
7606 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1604) * lu(k,2158)
7607 315224452 : lu(k,2172) = lu(k,2172) - lu(k,1605) * lu(k,2158)
7608 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1606) * lu(k,2158)
7609 315224452 : lu(k,2223) = lu(k,2223) - lu(k,1593) * lu(k,2222)
7610 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1594) * lu(k,2222)
7611 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1595) * lu(k,2222)
7612 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1596) * lu(k,2222)
7613 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1597) * lu(k,2222)
7614 315224452 : lu(k,2228) = lu(k,2228) - lu(k,1598) * lu(k,2222)
7615 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1599) * lu(k,2222)
7616 315224452 : lu(k,2230) = lu(k,2230) - lu(k,1600) * lu(k,2222)
7617 315224452 : lu(k,2231) = lu(k,2231) - lu(k,1601) * lu(k,2222)
7618 315224452 : lu(k,2232) = lu(k,2232) - lu(k,1602) * lu(k,2222)
7619 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1603) * lu(k,2222)
7620 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1604) * lu(k,2222)
7621 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1605) * lu(k,2222)
7622 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1606) * lu(k,2222)
7623 315224452 : lu(k,2248) = lu(k,2248) - lu(k,1593) * lu(k,2247)
7624 315224452 : lu(k,2249) = lu(k,2249) - lu(k,1594) * lu(k,2247)
7625 315224452 : lu(k,2250) = lu(k,2250) - lu(k,1595) * lu(k,2247)
7626 315224452 : lu(k,2251) = lu(k,2251) - lu(k,1596) * lu(k,2247)
7627 315224452 : lu(k,2252) = lu(k,2252) - lu(k,1597) * lu(k,2247)
7628 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1598) * lu(k,2247)
7629 315224452 : lu(k,2254) = lu(k,2254) - lu(k,1599) * lu(k,2247)
7630 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1600) * lu(k,2247)
7631 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1601) * lu(k,2247)
7632 315224452 : lu(k,2257) = lu(k,2257) - lu(k,1602) * lu(k,2247)
7633 315224452 : lu(k,2258) = lu(k,2258) - lu(k,1603) * lu(k,2247)
7634 315224452 : lu(k,2260) = lu(k,2260) - lu(k,1604) * lu(k,2247)
7635 315224452 : lu(k,2261) = lu(k,2261) - lu(k,1605) * lu(k,2247)
7636 315224452 : lu(k,2262) = lu(k,2262) - lu(k,1606) * lu(k,2247)
7637 315224452 : lu(k,2356) = lu(k,2356) - lu(k,1593) * lu(k,2355)
7638 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1594) * lu(k,2355)
7639 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1595) * lu(k,2355)
7640 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1596) * lu(k,2355)
7641 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1597) * lu(k,2355)
7642 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1598) * lu(k,2355)
7643 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1599) * lu(k,2355)
7644 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1600) * lu(k,2355)
7645 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1601) * lu(k,2355)
7646 315224452 : lu(k,2365) = lu(k,2365) - lu(k,1602) * lu(k,2355)
7647 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1603) * lu(k,2355)
7648 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1604) * lu(k,2355)
7649 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1605) * lu(k,2355)
7650 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1606) * lu(k,2355)
7651 315224452 : lu(k,2408) = lu(k,2408) - lu(k,1593) * lu(k,2407)
7652 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1594) * lu(k,2407)
7653 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1595) * lu(k,2407)
7654 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1596) * lu(k,2407)
7655 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1597) * lu(k,2407)
7656 315224452 : lu(k,2413) = lu(k,2413) - lu(k,1598) * lu(k,2407)
7657 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1599) * lu(k,2407)
7658 315224452 : lu(k,2415) = lu(k,2415) - lu(k,1600) * lu(k,2407)
7659 315224452 : lu(k,2416) = lu(k,2416) - lu(k,1601) * lu(k,2407)
7660 315224452 : lu(k,2417) = lu(k,2417) - lu(k,1602) * lu(k,2407)
7661 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1603) * lu(k,2407)
7662 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1604) * lu(k,2407)
7663 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1605) * lu(k,2407)
7664 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1606) * lu(k,2407)
7665 315224452 : lu(k,2435) = lu(k,2435) - lu(k,1593) * lu(k,2434)
7666 315224452 : lu(k,2436) = lu(k,2436) - lu(k,1594) * lu(k,2434)
7667 315224452 : lu(k,2437) = lu(k,2437) - lu(k,1595) * lu(k,2434)
7668 315224452 : lu(k,2438) = lu(k,2438) - lu(k,1596) * lu(k,2434)
7669 315224452 : lu(k,2439) = lu(k,2439) - lu(k,1597) * lu(k,2434)
7670 315224452 : lu(k,2440) = lu(k,2440) - lu(k,1598) * lu(k,2434)
7671 315224452 : lu(k,2441) = lu(k,2441) - lu(k,1599) * lu(k,2434)
7672 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1600) * lu(k,2434)
7673 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1601) * lu(k,2434)
7674 315224452 : lu(k,2444) = lu(k,2444) - lu(k,1602) * lu(k,2434)
7675 315224452 : lu(k,2445) = lu(k,2445) - lu(k,1603) * lu(k,2434)
7676 315224452 : lu(k,2447) = lu(k,2447) - lu(k,1604) * lu(k,2434)
7677 315224452 : lu(k,2448) = lu(k,2448) - lu(k,1605) * lu(k,2434)
7678 315224452 : lu(k,2449) = lu(k,2449) - lu(k,1606) * lu(k,2434)
7679 315224452 : lu(k,1652) = 1._r8 / lu(k,1652)
7680 315224452 : lu(k,1653) = lu(k,1653) * lu(k,1652)
7681 315224452 : lu(k,1654) = lu(k,1654) * lu(k,1652)
7682 315224452 : lu(k,1655) = lu(k,1655) * lu(k,1652)
7683 315224452 : lu(k,1656) = lu(k,1656) * lu(k,1652)
7684 315224452 : lu(k,1657) = lu(k,1657) * lu(k,1652)
7685 315224452 : lu(k,1658) = lu(k,1658) * lu(k,1652)
7686 315224452 : lu(k,1659) = lu(k,1659) * lu(k,1652)
7687 315224452 : lu(k,1660) = lu(k,1660) * lu(k,1652)
7688 315224452 : lu(k,1661) = lu(k,1661) * lu(k,1652)
7689 315224452 : lu(k,1662) = lu(k,1662) * lu(k,1652)
7690 315224452 : lu(k,1663) = lu(k,1663) * lu(k,1652)
7691 315224452 : lu(k,1664) = lu(k,1664) * lu(k,1652)
7692 315224452 : lu(k,1665) = lu(k,1665) * lu(k,1652)
7693 315224452 : lu(k,1666) = lu(k,1666) * lu(k,1652)
7694 315224452 : lu(k,1818) = lu(k,1818) - lu(k,1653) * lu(k,1817)
7695 315224452 : lu(k,1819) = lu(k,1819) - lu(k,1654) * lu(k,1817)
7696 315224452 : lu(k,1820) = lu(k,1820) - lu(k,1655) * lu(k,1817)
7697 315224452 : lu(k,1821) = lu(k,1821) - lu(k,1656) * lu(k,1817)
7698 315224452 : lu(k,1822) = lu(k,1822) - lu(k,1657) * lu(k,1817)
7699 315224452 : lu(k,1823) = lu(k,1823) - lu(k,1658) * lu(k,1817)
7700 315224452 : lu(k,1824) = lu(k,1824) - lu(k,1659) * lu(k,1817)
7701 315224452 : lu(k,1825) = lu(k,1825) - lu(k,1660) * lu(k,1817)
7702 315224452 : lu(k,1826) = lu(k,1826) - lu(k,1661) * lu(k,1817)
7703 315224452 : lu(k,1827) = lu(k,1827) - lu(k,1662) * lu(k,1817)
7704 315224452 : lu(k,1828) = lu(k,1828) - lu(k,1663) * lu(k,1817)
7705 315224452 : lu(k,1829) = lu(k,1829) - lu(k,1664) * lu(k,1817)
7706 315224452 : lu(k,1830) = lu(k,1830) - lu(k,1665) * lu(k,1817)
7707 315224452 : lu(k,1831) = lu(k,1831) - lu(k,1666) * lu(k,1817)
7708 315224452 : lu(k,1913) = lu(k,1913) - lu(k,1653) * lu(k,1912)
7709 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1654) * lu(k,1912)
7710 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1655) * lu(k,1912)
7711 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1656) * lu(k,1912)
7712 315224452 : lu(k,1917) = lu(k,1917) - lu(k,1657) * lu(k,1912)
7713 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1658) * lu(k,1912)
7714 315224452 : lu(k,1919) = lu(k,1919) - lu(k,1659) * lu(k,1912)
7715 315224452 : lu(k,1920) = lu(k,1920) - lu(k,1660) * lu(k,1912)
7716 315224452 : lu(k,1921) = lu(k,1921) - lu(k,1661) * lu(k,1912)
7717 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1662) * lu(k,1912)
7718 315224452 : lu(k,1923) = lu(k,1923) - lu(k,1663) * lu(k,1912)
7719 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1664) * lu(k,1912)
7720 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1665) * lu(k,1912)
7721 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1666) * lu(k,1912)
7722 315224452 : lu(k,1958) = lu(k,1958) - lu(k,1653) * lu(k,1957)
7723 315224452 : lu(k,1959) = lu(k,1959) - lu(k,1654) * lu(k,1957)
7724 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1655) * lu(k,1957)
7725 315224452 : lu(k,1961) = lu(k,1961) - lu(k,1656) * lu(k,1957)
7726 315224452 : lu(k,1962) = lu(k,1962) - lu(k,1657) * lu(k,1957)
7727 315224452 : lu(k,1963) = lu(k,1963) - lu(k,1658) * lu(k,1957)
7728 315224452 : lu(k,1964) = lu(k,1964) - lu(k,1659) * lu(k,1957)
7729 315224452 : lu(k,1965) = lu(k,1965) - lu(k,1660) * lu(k,1957)
7730 315224452 : lu(k,1966) = lu(k,1966) - lu(k,1661) * lu(k,1957)
7731 315224452 : lu(k,1967) = lu(k,1967) - lu(k,1662) * lu(k,1957)
7732 315224452 : lu(k,1968) = lu(k,1968) - lu(k,1663) * lu(k,1957)
7733 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1664) * lu(k,1957)
7734 315224452 : lu(k,1970) = lu(k,1970) - lu(k,1665) * lu(k,1957)
7735 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1666) * lu(k,1957)
7736 315224452 : lu(k,1984) = lu(k,1984) - lu(k,1653) * lu(k,1983)
7737 315224452 : lu(k,1985) = lu(k,1985) - lu(k,1654) * lu(k,1983)
7738 315224452 : lu(k,1986) = lu(k,1986) - lu(k,1655) * lu(k,1983)
7739 315224452 : lu(k,1987) = lu(k,1987) - lu(k,1656) * lu(k,1983)
7740 315224452 : lu(k,1988) = lu(k,1988) - lu(k,1657) * lu(k,1983)
7741 315224452 : lu(k,1989) = lu(k,1989) - lu(k,1658) * lu(k,1983)
7742 315224452 : lu(k,1990) = lu(k,1990) - lu(k,1659) * lu(k,1983)
7743 315224452 : lu(k,1991) = lu(k,1991) - lu(k,1660) * lu(k,1983)
7744 315224452 : lu(k,1992) = lu(k,1992) - lu(k,1661) * lu(k,1983)
7745 315224452 : lu(k,1993) = lu(k,1993) - lu(k,1662) * lu(k,1983)
7746 315224452 : lu(k,1994) = lu(k,1994) - lu(k,1663) * lu(k,1983)
7747 315224452 : lu(k,1995) = lu(k,1995) - lu(k,1664) * lu(k,1983)
7748 315224452 : lu(k,1996) = lu(k,1996) - lu(k,1665) * lu(k,1983)
7749 315224452 : lu(k,1997) = lu(k,1997) - lu(k,1666) * lu(k,1983)
7750 315224452 : lu(k,2027) = lu(k,2027) - lu(k,1653) * lu(k,2026)
7751 315224452 : lu(k,2028) = lu(k,2028) - lu(k,1654) * lu(k,2026)
7752 315224452 : lu(k,2029) = lu(k,2029) - lu(k,1655) * lu(k,2026)
7753 315224452 : lu(k,2030) = lu(k,2030) - lu(k,1656) * lu(k,2026)
7754 315224452 : lu(k,2031) = lu(k,2031) - lu(k,1657) * lu(k,2026)
7755 315224452 : lu(k,2032) = lu(k,2032) - lu(k,1658) * lu(k,2026)
7756 315224452 : lu(k,2033) = lu(k,2033) - lu(k,1659) * lu(k,2026)
7757 315224452 : lu(k,2034) = lu(k,2034) - lu(k,1660) * lu(k,2026)
7758 315224452 : lu(k,2035) = lu(k,2035) - lu(k,1661) * lu(k,2026)
7759 315224452 : lu(k,2036) = lu(k,2036) - lu(k,1662) * lu(k,2026)
7760 315224452 : lu(k,2037) = lu(k,2037) - lu(k,1663) * lu(k,2026)
7761 315224452 : lu(k,2038) = lu(k,2038) - lu(k,1664) * lu(k,2026)
7762 315224452 : lu(k,2039) = lu(k,2039) - lu(k,1665) * lu(k,2026)
7763 315224452 : lu(k,2040) = lu(k,2040) - lu(k,1666) * lu(k,2026)
7764 315224452 : lu(k,2050) = lu(k,2050) - lu(k,1653) * lu(k,2049)
7765 315224452 : lu(k,2051) = lu(k,2051) - lu(k,1654) * lu(k,2049)
7766 315224452 : lu(k,2052) = lu(k,2052) - lu(k,1655) * lu(k,2049)
7767 315224452 : lu(k,2053) = lu(k,2053) - lu(k,1656) * lu(k,2049)
7768 315224452 : lu(k,2054) = lu(k,2054) - lu(k,1657) * lu(k,2049)
7769 315224452 : lu(k,2055) = lu(k,2055) - lu(k,1658) * lu(k,2049)
7770 315224452 : lu(k,2056) = lu(k,2056) - lu(k,1659) * lu(k,2049)
7771 315224452 : lu(k,2057) = lu(k,2057) - lu(k,1660) * lu(k,2049)
7772 315224452 : lu(k,2058) = lu(k,2058) - lu(k,1661) * lu(k,2049)
7773 315224452 : lu(k,2059) = lu(k,2059) - lu(k,1662) * lu(k,2049)
7774 315224452 : lu(k,2060) = lu(k,2060) - lu(k,1663) * lu(k,2049)
7775 315224452 : lu(k,2061) = lu(k,2061) - lu(k,1664) * lu(k,2049)
7776 315224452 : lu(k,2062) = lu(k,2062) - lu(k,1665) * lu(k,2049)
7777 315224452 : lu(k,2063) = lu(k,2063) - lu(k,1666) * lu(k,2049)
7778 315224452 : lu(k,2093) = lu(k,2093) - lu(k,1653) * lu(k,2092)
7779 315224452 : lu(k,2094) = lu(k,2094) - lu(k,1654) * lu(k,2092)
7780 315224452 : lu(k,2095) = lu(k,2095) - lu(k,1655) * lu(k,2092)
7781 315224452 : lu(k,2096) = lu(k,2096) - lu(k,1656) * lu(k,2092)
7782 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1657) * lu(k,2092)
7783 315224452 : lu(k,2098) = lu(k,2098) - lu(k,1658) * lu(k,2092)
7784 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1659) * lu(k,2092)
7785 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1660) * lu(k,2092)
7786 315224452 : lu(k,2101) = lu(k,2101) - lu(k,1661) * lu(k,2092)
7787 315224452 : lu(k,2102) = lu(k,2102) - lu(k,1662) * lu(k,2092)
7788 315224452 : lu(k,2103) = lu(k,2103) - lu(k,1663) * lu(k,2092)
7789 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1664) * lu(k,2092)
7790 315224452 : lu(k,2105) = lu(k,2105) - lu(k,1665) * lu(k,2092)
7791 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1666) * lu(k,2092)
7792 315224452 : lu(k,2114) = lu(k,2114) - lu(k,1653) * lu(k,2113)
7793 315224452 : lu(k,2115) = lu(k,2115) - lu(k,1654) * lu(k,2113)
7794 315224452 : lu(k,2116) = lu(k,2116) - lu(k,1655) * lu(k,2113)
7795 315224452 : lu(k,2117) = lu(k,2117) - lu(k,1656) * lu(k,2113)
7796 315224452 : lu(k,2118) = lu(k,2118) - lu(k,1657) * lu(k,2113)
7797 315224452 : lu(k,2119) = lu(k,2119) - lu(k,1658) * lu(k,2113)
7798 315224452 : lu(k,2120) = lu(k,2120) - lu(k,1659) * lu(k,2113)
7799 315224452 : lu(k,2121) = lu(k,2121) - lu(k,1660) * lu(k,2113)
7800 315224452 : lu(k,2122) = lu(k,2122) - lu(k,1661) * lu(k,2113)
7801 315224452 : lu(k,2123) = lu(k,2123) - lu(k,1662) * lu(k,2113)
7802 315224452 : lu(k,2124) = lu(k,2124) - lu(k,1663) * lu(k,2113)
7803 315224452 : lu(k,2125) = lu(k,2125) - lu(k,1664) * lu(k,2113)
7804 315224452 : lu(k,2126) = lu(k,2126) - lu(k,1665) * lu(k,2113)
7805 315224452 : lu(k,2127) = lu(k,2127) - lu(k,1666) * lu(k,2113)
7806 315224452 : lu(k,2160) = lu(k,2160) - lu(k,1653) * lu(k,2159)
7807 315224452 : lu(k,2161) = lu(k,2161) - lu(k,1654) * lu(k,2159)
7808 315224452 : lu(k,2162) = lu(k,2162) - lu(k,1655) * lu(k,2159)
7809 315224452 : lu(k,2163) = lu(k,2163) - lu(k,1656) * lu(k,2159)
7810 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1657) * lu(k,2159)
7811 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1658) * lu(k,2159)
7812 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1659) * lu(k,2159)
7813 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1660) * lu(k,2159)
7814 315224452 : lu(k,2168) = lu(k,2168) - lu(k,1661) * lu(k,2159)
7815 315224452 : lu(k,2169) = lu(k,2169) - lu(k,1662) * lu(k,2159)
7816 315224452 : lu(k,2170) = lu(k,2170) - lu(k,1663) * lu(k,2159)
7817 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1664) * lu(k,2159)
7818 315224452 : lu(k,2172) = lu(k,2172) - lu(k,1665) * lu(k,2159)
7819 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1666) * lu(k,2159)
7820 315224452 : lu(k,2224) = lu(k,2224) - lu(k,1653) * lu(k,2223)
7821 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1654) * lu(k,2223)
7822 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1655) * lu(k,2223)
7823 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1656) * lu(k,2223)
7824 315224452 : lu(k,2228) = lu(k,2228) - lu(k,1657) * lu(k,2223)
7825 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1658) * lu(k,2223)
7826 315224452 : lu(k,2230) = lu(k,2230) - lu(k,1659) * lu(k,2223)
7827 315224452 : lu(k,2231) = lu(k,2231) - lu(k,1660) * lu(k,2223)
7828 315224452 : lu(k,2232) = lu(k,2232) - lu(k,1661) * lu(k,2223)
7829 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1662) * lu(k,2223)
7830 315224452 : lu(k,2234) = lu(k,2234) - lu(k,1663) * lu(k,2223)
7831 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1664) * lu(k,2223)
7832 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1665) * lu(k,2223)
7833 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1666) * lu(k,2223)
7834 315224452 : lu(k,2249) = lu(k,2249) - lu(k,1653) * lu(k,2248)
7835 315224452 : lu(k,2250) = lu(k,2250) - lu(k,1654) * lu(k,2248)
7836 315224452 : lu(k,2251) = lu(k,2251) - lu(k,1655) * lu(k,2248)
7837 315224452 : lu(k,2252) = lu(k,2252) - lu(k,1656) * lu(k,2248)
7838 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1657) * lu(k,2248)
7839 315224452 : lu(k,2254) = lu(k,2254) - lu(k,1658) * lu(k,2248)
7840 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1659) * lu(k,2248)
7841 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1660) * lu(k,2248)
7842 315224452 : lu(k,2257) = lu(k,2257) - lu(k,1661) * lu(k,2248)
7843 315224452 : lu(k,2258) = lu(k,2258) - lu(k,1662) * lu(k,2248)
7844 315224452 : lu(k,2259) = lu(k,2259) - lu(k,1663) * lu(k,2248)
7845 315224452 : lu(k,2260) = lu(k,2260) - lu(k,1664) * lu(k,2248)
7846 315224452 : lu(k,2261) = lu(k,2261) - lu(k,1665) * lu(k,2248)
7847 315224452 : lu(k,2262) = lu(k,2262) - lu(k,1666) * lu(k,2248)
7848 315224452 : lu(k,2357) = lu(k,2357) - lu(k,1653) * lu(k,2356)
7849 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1654) * lu(k,2356)
7850 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1655) * lu(k,2356)
7851 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1656) * lu(k,2356)
7852 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1657) * lu(k,2356)
7853 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1658) * lu(k,2356)
7854 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1659) * lu(k,2356)
7855 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1660) * lu(k,2356)
7856 315224452 : lu(k,2365) = lu(k,2365) - lu(k,1661) * lu(k,2356)
7857 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1662) * lu(k,2356)
7858 315224452 : lu(k,2367) = lu(k,2367) - lu(k,1663) * lu(k,2356)
7859 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1664) * lu(k,2356)
7860 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1665) * lu(k,2356)
7861 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1666) * lu(k,2356)
7862 315224452 : lu(k,2409) = lu(k,2409) - lu(k,1653) * lu(k,2408)
7863 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1654) * lu(k,2408)
7864 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1655) * lu(k,2408)
7865 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1656) * lu(k,2408)
7866 315224452 : lu(k,2413) = lu(k,2413) - lu(k,1657) * lu(k,2408)
7867 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1658) * lu(k,2408)
7868 315224452 : lu(k,2415) = lu(k,2415) - lu(k,1659) * lu(k,2408)
7869 315224452 : lu(k,2416) = lu(k,2416) - lu(k,1660) * lu(k,2408)
7870 315224452 : lu(k,2417) = lu(k,2417) - lu(k,1661) * lu(k,2408)
7871 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1662) * lu(k,2408)
7872 315224452 : lu(k,2419) = lu(k,2419) - lu(k,1663) * lu(k,2408)
7873 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1664) * lu(k,2408)
7874 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1665) * lu(k,2408)
7875 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1666) * lu(k,2408)
7876 315224452 : lu(k,2436) = lu(k,2436) - lu(k,1653) * lu(k,2435)
7877 315224452 : lu(k,2437) = lu(k,2437) - lu(k,1654) * lu(k,2435)
7878 315224452 : lu(k,2438) = lu(k,2438) - lu(k,1655) * lu(k,2435)
7879 315224452 : lu(k,2439) = lu(k,2439) - lu(k,1656) * lu(k,2435)
7880 315224452 : lu(k,2440) = lu(k,2440) - lu(k,1657) * lu(k,2435)
7881 315224452 : lu(k,2441) = lu(k,2441) - lu(k,1658) * lu(k,2435)
7882 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1659) * lu(k,2435)
7883 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1660) * lu(k,2435)
7884 315224452 : lu(k,2444) = lu(k,2444) - lu(k,1661) * lu(k,2435)
7885 315224452 : lu(k,2445) = lu(k,2445) - lu(k,1662) * lu(k,2435)
7886 315224452 : lu(k,2446) = lu(k,2446) - lu(k,1663) * lu(k,2435)
7887 315224452 : lu(k,2447) = lu(k,2447) - lu(k,1664) * lu(k,2435)
7888 315224452 : lu(k,2448) = lu(k,2448) - lu(k,1665) * lu(k,2435)
7889 325174377 : lu(k,2449) = lu(k,2449) - lu(k,1666) * lu(k,2435)
7890 : end do
7891 9949925 : end subroutine lu_fac30
7892 9949925 : subroutine lu_fac31( avec_len, lu )
7893 : use chem_mods, only : nzcnt
7894 : use shr_kind_mod, only : r8 => shr_kind_r8
7895 : implicit none
7896 : !-----------------------------------------------------------------------
7897 : ! ... dummy args
7898 : !-----------------------------------------------------------------------
7899 : integer, intent(in) :: avec_len
7900 : real(r8), intent(inout) :: lu(veclen,nzcnt)
7901 : !-----------------------------------------------------------------------
7902 : ! ... local variables
7903 : !-----------------------------------------------------------------------
7904 : integer :: k
7905 325174377 : do k = 1,avec_len
7906 315224452 : lu(k,1818) = 1._r8 / lu(k,1818)
7907 315224452 : lu(k,1819) = lu(k,1819) * lu(k,1818)
7908 315224452 : lu(k,1820) = lu(k,1820) * lu(k,1818)
7909 315224452 : lu(k,1821) = lu(k,1821) * lu(k,1818)
7910 315224452 : lu(k,1822) = lu(k,1822) * lu(k,1818)
7911 315224452 : lu(k,1823) = lu(k,1823) * lu(k,1818)
7912 315224452 : lu(k,1824) = lu(k,1824) * lu(k,1818)
7913 315224452 : lu(k,1825) = lu(k,1825) * lu(k,1818)
7914 315224452 : lu(k,1826) = lu(k,1826) * lu(k,1818)
7915 315224452 : lu(k,1827) = lu(k,1827) * lu(k,1818)
7916 315224452 : lu(k,1828) = lu(k,1828) * lu(k,1818)
7917 315224452 : lu(k,1829) = lu(k,1829) * lu(k,1818)
7918 315224452 : lu(k,1830) = lu(k,1830) * lu(k,1818)
7919 315224452 : lu(k,1831) = lu(k,1831) * lu(k,1818)
7920 315224452 : lu(k,1914) = lu(k,1914) - lu(k,1819) * lu(k,1913)
7921 315224452 : lu(k,1915) = lu(k,1915) - lu(k,1820) * lu(k,1913)
7922 315224452 : lu(k,1916) = lu(k,1916) - lu(k,1821) * lu(k,1913)
7923 315224452 : lu(k,1917) = lu(k,1917) - lu(k,1822) * lu(k,1913)
7924 315224452 : lu(k,1918) = lu(k,1918) - lu(k,1823) * lu(k,1913)
7925 315224452 : lu(k,1919) = lu(k,1919) - lu(k,1824) * lu(k,1913)
7926 315224452 : lu(k,1920) = lu(k,1920) - lu(k,1825) * lu(k,1913)
7927 315224452 : lu(k,1921) = lu(k,1921) - lu(k,1826) * lu(k,1913)
7928 315224452 : lu(k,1922) = lu(k,1922) - lu(k,1827) * lu(k,1913)
7929 315224452 : lu(k,1923) = lu(k,1923) - lu(k,1828) * lu(k,1913)
7930 315224452 : lu(k,1924) = lu(k,1924) - lu(k,1829) * lu(k,1913)
7931 315224452 : lu(k,1925) = lu(k,1925) - lu(k,1830) * lu(k,1913)
7932 315224452 : lu(k,1926) = lu(k,1926) - lu(k,1831) * lu(k,1913)
7933 315224452 : lu(k,1959) = lu(k,1959) - lu(k,1819) * lu(k,1958)
7934 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1820) * lu(k,1958)
7935 315224452 : lu(k,1961) = lu(k,1961) - lu(k,1821) * lu(k,1958)
7936 315224452 : lu(k,1962) = lu(k,1962) - lu(k,1822) * lu(k,1958)
7937 315224452 : lu(k,1963) = lu(k,1963) - lu(k,1823) * lu(k,1958)
7938 315224452 : lu(k,1964) = lu(k,1964) - lu(k,1824) * lu(k,1958)
7939 315224452 : lu(k,1965) = lu(k,1965) - lu(k,1825) * lu(k,1958)
7940 315224452 : lu(k,1966) = lu(k,1966) - lu(k,1826) * lu(k,1958)
7941 315224452 : lu(k,1967) = lu(k,1967) - lu(k,1827) * lu(k,1958)
7942 315224452 : lu(k,1968) = lu(k,1968) - lu(k,1828) * lu(k,1958)
7943 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1829) * lu(k,1958)
7944 315224452 : lu(k,1970) = lu(k,1970) - lu(k,1830) * lu(k,1958)
7945 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1831) * lu(k,1958)
7946 315224452 : lu(k,1985) = lu(k,1985) - lu(k,1819) * lu(k,1984)
7947 315224452 : lu(k,1986) = lu(k,1986) - lu(k,1820) * lu(k,1984)
7948 315224452 : lu(k,1987) = lu(k,1987) - lu(k,1821) * lu(k,1984)
7949 315224452 : lu(k,1988) = lu(k,1988) - lu(k,1822) * lu(k,1984)
7950 315224452 : lu(k,1989) = lu(k,1989) - lu(k,1823) * lu(k,1984)
7951 315224452 : lu(k,1990) = lu(k,1990) - lu(k,1824) * lu(k,1984)
7952 315224452 : lu(k,1991) = lu(k,1991) - lu(k,1825) * lu(k,1984)
7953 315224452 : lu(k,1992) = lu(k,1992) - lu(k,1826) * lu(k,1984)
7954 315224452 : lu(k,1993) = lu(k,1993) - lu(k,1827) * lu(k,1984)
7955 315224452 : lu(k,1994) = lu(k,1994) - lu(k,1828) * lu(k,1984)
7956 315224452 : lu(k,1995) = lu(k,1995) - lu(k,1829) * lu(k,1984)
7957 315224452 : lu(k,1996) = lu(k,1996) - lu(k,1830) * lu(k,1984)
7958 315224452 : lu(k,1997) = lu(k,1997) - lu(k,1831) * lu(k,1984)
7959 315224452 : lu(k,2028) = lu(k,2028) - lu(k,1819) * lu(k,2027)
7960 315224452 : lu(k,2029) = lu(k,2029) - lu(k,1820) * lu(k,2027)
7961 315224452 : lu(k,2030) = lu(k,2030) - lu(k,1821) * lu(k,2027)
7962 315224452 : lu(k,2031) = lu(k,2031) - lu(k,1822) * lu(k,2027)
7963 315224452 : lu(k,2032) = lu(k,2032) - lu(k,1823) * lu(k,2027)
7964 315224452 : lu(k,2033) = lu(k,2033) - lu(k,1824) * lu(k,2027)
7965 315224452 : lu(k,2034) = lu(k,2034) - lu(k,1825) * lu(k,2027)
7966 315224452 : lu(k,2035) = lu(k,2035) - lu(k,1826) * lu(k,2027)
7967 315224452 : lu(k,2036) = lu(k,2036) - lu(k,1827) * lu(k,2027)
7968 315224452 : lu(k,2037) = lu(k,2037) - lu(k,1828) * lu(k,2027)
7969 315224452 : lu(k,2038) = lu(k,2038) - lu(k,1829) * lu(k,2027)
7970 315224452 : lu(k,2039) = lu(k,2039) - lu(k,1830) * lu(k,2027)
7971 315224452 : lu(k,2040) = lu(k,2040) - lu(k,1831) * lu(k,2027)
7972 315224452 : lu(k,2051) = lu(k,2051) - lu(k,1819) * lu(k,2050)
7973 315224452 : lu(k,2052) = lu(k,2052) - lu(k,1820) * lu(k,2050)
7974 315224452 : lu(k,2053) = lu(k,2053) - lu(k,1821) * lu(k,2050)
7975 315224452 : lu(k,2054) = lu(k,2054) - lu(k,1822) * lu(k,2050)
7976 315224452 : lu(k,2055) = lu(k,2055) - lu(k,1823) * lu(k,2050)
7977 315224452 : lu(k,2056) = lu(k,2056) - lu(k,1824) * lu(k,2050)
7978 315224452 : lu(k,2057) = lu(k,2057) - lu(k,1825) * lu(k,2050)
7979 315224452 : lu(k,2058) = lu(k,2058) - lu(k,1826) * lu(k,2050)
7980 315224452 : lu(k,2059) = lu(k,2059) - lu(k,1827) * lu(k,2050)
7981 315224452 : lu(k,2060) = lu(k,2060) - lu(k,1828) * lu(k,2050)
7982 315224452 : lu(k,2061) = lu(k,2061) - lu(k,1829) * lu(k,2050)
7983 315224452 : lu(k,2062) = lu(k,2062) - lu(k,1830) * lu(k,2050)
7984 315224452 : lu(k,2063) = lu(k,2063) - lu(k,1831) * lu(k,2050)
7985 315224452 : lu(k,2094) = lu(k,2094) - lu(k,1819) * lu(k,2093)
7986 315224452 : lu(k,2095) = lu(k,2095) - lu(k,1820) * lu(k,2093)
7987 315224452 : lu(k,2096) = lu(k,2096) - lu(k,1821) * lu(k,2093)
7988 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1822) * lu(k,2093)
7989 315224452 : lu(k,2098) = lu(k,2098) - lu(k,1823) * lu(k,2093)
7990 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1824) * lu(k,2093)
7991 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1825) * lu(k,2093)
7992 315224452 : lu(k,2101) = lu(k,2101) - lu(k,1826) * lu(k,2093)
7993 315224452 : lu(k,2102) = lu(k,2102) - lu(k,1827) * lu(k,2093)
7994 315224452 : lu(k,2103) = lu(k,2103) - lu(k,1828) * lu(k,2093)
7995 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1829) * lu(k,2093)
7996 315224452 : lu(k,2105) = lu(k,2105) - lu(k,1830) * lu(k,2093)
7997 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1831) * lu(k,2093)
7998 315224452 : lu(k,2115) = lu(k,2115) - lu(k,1819) * lu(k,2114)
7999 315224452 : lu(k,2116) = lu(k,2116) - lu(k,1820) * lu(k,2114)
8000 315224452 : lu(k,2117) = lu(k,2117) - lu(k,1821) * lu(k,2114)
8001 315224452 : lu(k,2118) = lu(k,2118) - lu(k,1822) * lu(k,2114)
8002 315224452 : lu(k,2119) = lu(k,2119) - lu(k,1823) * lu(k,2114)
8003 315224452 : lu(k,2120) = lu(k,2120) - lu(k,1824) * lu(k,2114)
8004 315224452 : lu(k,2121) = lu(k,2121) - lu(k,1825) * lu(k,2114)
8005 315224452 : lu(k,2122) = lu(k,2122) - lu(k,1826) * lu(k,2114)
8006 315224452 : lu(k,2123) = lu(k,2123) - lu(k,1827) * lu(k,2114)
8007 315224452 : lu(k,2124) = lu(k,2124) - lu(k,1828) * lu(k,2114)
8008 315224452 : lu(k,2125) = lu(k,2125) - lu(k,1829) * lu(k,2114)
8009 315224452 : lu(k,2126) = lu(k,2126) - lu(k,1830) * lu(k,2114)
8010 315224452 : lu(k,2127) = lu(k,2127) - lu(k,1831) * lu(k,2114)
8011 315224452 : lu(k,2161) = lu(k,2161) - lu(k,1819) * lu(k,2160)
8012 315224452 : lu(k,2162) = lu(k,2162) - lu(k,1820) * lu(k,2160)
8013 315224452 : lu(k,2163) = lu(k,2163) - lu(k,1821) * lu(k,2160)
8014 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1822) * lu(k,2160)
8015 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1823) * lu(k,2160)
8016 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1824) * lu(k,2160)
8017 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1825) * lu(k,2160)
8018 315224452 : lu(k,2168) = lu(k,2168) - lu(k,1826) * lu(k,2160)
8019 315224452 : lu(k,2169) = lu(k,2169) - lu(k,1827) * lu(k,2160)
8020 315224452 : lu(k,2170) = lu(k,2170) - lu(k,1828) * lu(k,2160)
8021 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1829) * lu(k,2160)
8022 315224452 : lu(k,2172) = lu(k,2172) - lu(k,1830) * lu(k,2160)
8023 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1831) * lu(k,2160)
8024 315224452 : lu(k,2225) = lu(k,2225) - lu(k,1819) * lu(k,2224)
8025 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1820) * lu(k,2224)
8026 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1821) * lu(k,2224)
8027 315224452 : lu(k,2228) = lu(k,2228) - lu(k,1822) * lu(k,2224)
8028 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1823) * lu(k,2224)
8029 315224452 : lu(k,2230) = lu(k,2230) - lu(k,1824) * lu(k,2224)
8030 315224452 : lu(k,2231) = lu(k,2231) - lu(k,1825) * lu(k,2224)
8031 315224452 : lu(k,2232) = lu(k,2232) - lu(k,1826) * lu(k,2224)
8032 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1827) * lu(k,2224)
8033 315224452 : lu(k,2234) = lu(k,2234) - lu(k,1828) * lu(k,2224)
8034 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1829) * lu(k,2224)
8035 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1830) * lu(k,2224)
8036 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1831) * lu(k,2224)
8037 315224452 : lu(k,2250) = lu(k,2250) - lu(k,1819) * lu(k,2249)
8038 315224452 : lu(k,2251) = lu(k,2251) - lu(k,1820) * lu(k,2249)
8039 315224452 : lu(k,2252) = lu(k,2252) - lu(k,1821) * lu(k,2249)
8040 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1822) * lu(k,2249)
8041 315224452 : lu(k,2254) = lu(k,2254) - lu(k,1823) * lu(k,2249)
8042 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1824) * lu(k,2249)
8043 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1825) * lu(k,2249)
8044 315224452 : lu(k,2257) = lu(k,2257) - lu(k,1826) * lu(k,2249)
8045 315224452 : lu(k,2258) = lu(k,2258) - lu(k,1827) * lu(k,2249)
8046 315224452 : lu(k,2259) = lu(k,2259) - lu(k,1828) * lu(k,2249)
8047 315224452 : lu(k,2260) = lu(k,2260) - lu(k,1829) * lu(k,2249)
8048 315224452 : lu(k,2261) = lu(k,2261) - lu(k,1830) * lu(k,2249)
8049 315224452 : lu(k,2262) = lu(k,2262) - lu(k,1831) * lu(k,2249)
8050 315224452 : lu(k,2358) = lu(k,2358) - lu(k,1819) * lu(k,2357)
8051 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1820) * lu(k,2357)
8052 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1821) * lu(k,2357)
8053 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1822) * lu(k,2357)
8054 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1823) * lu(k,2357)
8055 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1824) * lu(k,2357)
8056 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1825) * lu(k,2357)
8057 315224452 : lu(k,2365) = lu(k,2365) - lu(k,1826) * lu(k,2357)
8058 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1827) * lu(k,2357)
8059 315224452 : lu(k,2367) = lu(k,2367) - lu(k,1828) * lu(k,2357)
8060 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1829) * lu(k,2357)
8061 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1830) * lu(k,2357)
8062 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1831) * lu(k,2357)
8063 315224452 : lu(k,2410) = lu(k,2410) - lu(k,1819) * lu(k,2409)
8064 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1820) * lu(k,2409)
8065 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1821) * lu(k,2409)
8066 315224452 : lu(k,2413) = lu(k,2413) - lu(k,1822) * lu(k,2409)
8067 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1823) * lu(k,2409)
8068 315224452 : lu(k,2415) = lu(k,2415) - lu(k,1824) * lu(k,2409)
8069 315224452 : lu(k,2416) = lu(k,2416) - lu(k,1825) * lu(k,2409)
8070 315224452 : lu(k,2417) = lu(k,2417) - lu(k,1826) * lu(k,2409)
8071 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1827) * lu(k,2409)
8072 315224452 : lu(k,2419) = lu(k,2419) - lu(k,1828) * lu(k,2409)
8073 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1829) * lu(k,2409)
8074 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1830) * lu(k,2409)
8075 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1831) * lu(k,2409)
8076 315224452 : lu(k,2437) = lu(k,2437) - lu(k,1819) * lu(k,2436)
8077 315224452 : lu(k,2438) = lu(k,2438) - lu(k,1820) * lu(k,2436)
8078 315224452 : lu(k,2439) = lu(k,2439) - lu(k,1821) * lu(k,2436)
8079 315224452 : lu(k,2440) = lu(k,2440) - lu(k,1822) * lu(k,2436)
8080 315224452 : lu(k,2441) = lu(k,2441) - lu(k,1823) * lu(k,2436)
8081 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1824) * lu(k,2436)
8082 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1825) * lu(k,2436)
8083 315224452 : lu(k,2444) = lu(k,2444) - lu(k,1826) * lu(k,2436)
8084 315224452 : lu(k,2445) = lu(k,2445) - lu(k,1827) * lu(k,2436)
8085 315224452 : lu(k,2446) = lu(k,2446) - lu(k,1828) * lu(k,2436)
8086 315224452 : lu(k,2447) = lu(k,2447) - lu(k,1829) * lu(k,2436)
8087 315224452 : lu(k,2448) = lu(k,2448) - lu(k,1830) * lu(k,2436)
8088 315224452 : lu(k,2449) = lu(k,2449) - lu(k,1831) * lu(k,2436)
8089 315224452 : lu(k,1914) = 1._r8 / lu(k,1914)
8090 315224452 : lu(k,1915) = lu(k,1915) * lu(k,1914)
8091 315224452 : lu(k,1916) = lu(k,1916) * lu(k,1914)
8092 315224452 : lu(k,1917) = lu(k,1917) * lu(k,1914)
8093 315224452 : lu(k,1918) = lu(k,1918) * lu(k,1914)
8094 315224452 : lu(k,1919) = lu(k,1919) * lu(k,1914)
8095 315224452 : lu(k,1920) = lu(k,1920) * lu(k,1914)
8096 315224452 : lu(k,1921) = lu(k,1921) * lu(k,1914)
8097 315224452 : lu(k,1922) = lu(k,1922) * lu(k,1914)
8098 315224452 : lu(k,1923) = lu(k,1923) * lu(k,1914)
8099 315224452 : lu(k,1924) = lu(k,1924) * lu(k,1914)
8100 315224452 : lu(k,1925) = lu(k,1925) * lu(k,1914)
8101 315224452 : lu(k,1926) = lu(k,1926) * lu(k,1914)
8102 315224452 : lu(k,1960) = lu(k,1960) - lu(k,1915) * lu(k,1959)
8103 315224452 : lu(k,1961) = lu(k,1961) - lu(k,1916) * lu(k,1959)
8104 315224452 : lu(k,1962) = lu(k,1962) - lu(k,1917) * lu(k,1959)
8105 315224452 : lu(k,1963) = lu(k,1963) - lu(k,1918) * lu(k,1959)
8106 315224452 : lu(k,1964) = lu(k,1964) - lu(k,1919) * lu(k,1959)
8107 315224452 : lu(k,1965) = lu(k,1965) - lu(k,1920) * lu(k,1959)
8108 315224452 : lu(k,1966) = lu(k,1966) - lu(k,1921) * lu(k,1959)
8109 315224452 : lu(k,1967) = lu(k,1967) - lu(k,1922) * lu(k,1959)
8110 315224452 : lu(k,1968) = lu(k,1968) - lu(k,1923) * lu(k,1959)
8111 315224452 : lu(k,1969) = lu(k,1969) - lu(k,1924) * lu(k,1959)
8112 315224452 : lu(k,1970) = lu(k,1970) - lu(k,1925) * lu(k,1959)
8113 315224452 : lu(k,1971) = lu(k,1971) - lu(k,1926) * lu(k,1959)
8114 315224452 : lu(k,1986) = lu(k,1986) - lu(k,1915) * lu(k,1985)
8115 315224452 : lu(k,1987) = lu(k,1987) - lu(k,1916) * lu(k,1985)
8116 315224452 : lu(k,1988) = lu(k,1988) - lu(k,1917) * lu(k,1985)
8117 315224452 : lu(k,1989) = lu(k,1989) - lu(k,1918) * lu(k,1985)
8118 315224452 : lu(k,1990) = lu(k,1990) - lu(k,1919) * lu(k,1985)
8119 315224452 : lu(k,1991) = lu(k,1991) - lu(k,1920) * lu(k,1985)
8120 315224452 : lu(k,1992) = lu(k,1992) - lu(k,1921) * lu(k,1985)
8121 315224452 : lu(k,1993) = lu(k,1993) - lu(k,1922) * lu(k,1985)
8122 315224452 : lu(k,1994) = lu(k,1994) - lu(k,1923) * lu(k,1985)
8123 315224452 : lu(k,1995) = lu(k,1995) - lu(k,1924) * lu(k,1985)
8124 315224452 : lu(k,1996) = lu(k,1996) - lu(k,1925) * lu(k,1985)
8125 315224452 : lu(k,1997) = lu(k,1997) - lu(k,1926) * lu(k,1985)
8126 315224452 : lu(k,2029) = lu(k,2029) - lu(k,1915) * lu(k,2028)
8127 315224452 : lu(k,2030) = lu(k,2030) - lu(k,1916) * lu(k,2028)
8128 315224452 : lu(k,2031) = lu(k,2031) - lu(k,1917) * lu(k,2028)
8129 315224452 : lu(k,2032) = lu(k,2032) - lu(k,1918) * lu(k,2028)
8130 315224452 : lu(k,2033) = lu(k,2033) - lu(k,1919) * lu(k,2028)
8131 315224452 : lu(k,2034) = lu(k,2034) - lu(k,1920) * lu(k,2028)
8132 315224452 : lu(k,2035) = lu(k,2035) - lu(k,1921) * lu(k,2028)
8133 315224452 : lu(k,2036) = lu(k,2036) - lu(k,1922) * lu(k,2028)
8134 315224452 : lu(k,2037) = lu(k,2037) - lu(k,1923) * lu(k,2028)
8135 315224452 : lu(k,2038) = lu(k,2038) - lu(k,1924) * lu(k,2028)
8136 315224452 : lu(k,2039) = lu(k,2039) - lu(k,1925) * lu(k,2028)
8137 315224452 : lu(k,2040) = lu(k,2040) - lu(k,1926) * lu(k,2028)
8138 315224452 : lu(k,2052) = lu(k,2052) - lu(k,1915) * lu(k,2051)
8139 315224452 : lu(k,2053) = lu(k,2053) - lu(k,1916) * lu(k,2051)
8140 315224452 : lu(k,2054) = lu(k,2054) - lu(k,1917) * lu(k,2051)
8141 315224452 : lu(k,2055) = lu(k,2055) - lu(k,1918) * lu(k,2051)
8142 315224452 : lu(k,2056) = lu(k,2056) - lu(k,1919) * lu(k,2051)
8143 315224452 : lu(k,2057) = lu(k,2057) - lu(k,1920) * lu(k,2051)
8144 315224452 : lu(k,2058) = lu(k,2058) - lu(k,1921) * lu(k,2051)
8145 315224452 : lu(k,2059) = lu(k,2059) - lu(k,1922) * lu(k,2051)
8146 315224452 : lu(k,2060) = lu(k,2060) - lu(k,1923) * lu(k,2051)
8147 315224452 : lu(k,2061) = lu(k,2061) - lu(k,1924) * lu(k,2051)
8148 315224452 : lu(k,2062) = lu(k,2062) - lu(k,1925) * lu(k,2051)
8149 315224452 : lu(k,2063) = lu(k,2063) - lu(k,1926) * lu(k,2051)
8150 315224452 : lu(k,2095) = lu(k,2095) - lu(k,1915) * lu(k,2094)
8151 315224452 : lu(k,2096) = lu(k,2096) - lu(k,1916) * lu(k,2094)
8152 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1917) * lu(k,2094)
8153 315224452 : lu(k,2098) = lu(k,2098) - lu(k,1918) * lu(k,2094)
8154 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1919) * lu(k,2094)
8155 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1920) * lu(k,2094)
8156 315224452 : lu(k,2101) = lu(k,2101) - lu(k,1921) * lu(k,2094)
8157 315224452 : lu(k,2102) = lu(k,2102) - lu(k,1922) * lu(k,2094)
8158 315224452 : lu(k,2103) = lu(k,2103) - lu(k,1923) * lu(k,2094)
8159 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1924) * lu(k,2094)
8160 315224452 : lu(k,2105) = lu(k,2105) - lu(k,1925) * lu(k,2094)
8161 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1926) * lu(k,2094)
8162 315224452 : lu(k,2116) = lu(k,2116) - lu(k,1915) * lu(k,2115)
8163 315224452 : lu(k,2117) = lu(k,2117) - lu(k,1916) * lu(k,2115)
8164 315224452 : lu(k,2118) = lu(k,2118) - lu(k,1917) * lu(k,2115)
8165 315224452 : lu(k,2119) = lu(k,2119) - lu(k,1918) * lu(k,2115)
8166 315224452 : lu(k,2120) = lu(k,2120) - lu(k,1919) * lu(k,2115)
8167 315224452 : lu(k,2121) = lu(k,2121) - lu(k,1920) * lu(k,2115)
8168 315224452 : lu(k,2122) = lu(k,2122) - lu(k,1921) * lu(k,2115)
8169 315224452 : lu(k,2123) = lu(k,2123) - lu(k,1922) * lu(k,2115)
8170 315224452 : lu(k,2124) = lu(k,2124) - lu(k,1923) * lu(k,2115)
8171 315224452 : lu(k,2125) = lu(k,2125) - lu(k,1924) * lu(k,2115)
8172 315224452 : lu(k,2126) = lu(k,2126) - lu(k,1925) * lu(k,2115)
8173 315224452 : lu(k,2127) = lu(k,2127) - lu(k,1926) * lu(k,2115)
8174 315224452 : lu(k,2162) = lu(k,2162) - lu(k,1915) * lu(k,2161)
8175 315224452 : lu(k,2163) = lu(k,2163) - lu(k,1916) * lu(k,2161)
8176 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1917) * lu(k,2161)
8177 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1918) * lu(k,2161)
8178 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1919) * lu(k,2161)
8179 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1920) * lu(k,2161)
8180 315224452 : lu(k,2168) = lu(k,2168) - lu(k,1921) * lu(k,2161)
8181 315224452 : lu(k,2169) = lu(k,2169) - lu(k,1922) * lu(k,2161)
8182 315224452 : lu(k,2170) = lu(k,2170) - lu(k,1923) * lu(k,2161)
8183 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1924) * lu(k,2161)
8184 315224452 : lu(k,2172) = lu(k,2172) - lu(k,1925) * lu(k,2161)
8185 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1926) * lu(k,2161)
8186 315224452 : lu(k,2226) = lu(k,2226) - lu(k,1915) * lu(k,2225)
8187 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1916) * lu(k,2225)
8188 315224452 : lu(k,2228) = lu(k,2228) - lu(k,1917) * lu(k,2225)
8189 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1918) * lu(k,2225)
8190 315224452 : lu(k,2230) = lu(k,2230) - lu(k,1919) * lu(k,2225)
8191 315224452 : lu(k,2231) = lu(k,2231) - lu(k,1920) * lu(k,2225)
8192 315224452 : lu(k,2232) = lu(k,2232) - lu(k,1921) * lu(k,2225)
8193 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1922) * lu(k,2225)
8194 315224452 : lu(k,2234) = lu(k,2234) - lu(k,1923) * lu(k,2225)
8195 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1924) * lu(k,2225)
8196 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1925) * lu(k,2225)
8197 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1926) * lu(k,2225)
8198 315224452 : lu(k,2251) = lu(k,2251) - lu(k,1915) * lu(k,2250)
8199 315224452 : lu(k,2252) = lu(k,2252) - lu(k,1916) * lu(k,2250)
8200 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1917) * lu(k,2250)
8201 315224452 : lu(k,2254) = lu(k,2254) - lu(k,1918) * lu(k,2250)
8202 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1919) * lu(k,2250)
8203 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1920) * lu(k,2250)
8204 315224452 : lu(k,2257) = lu(k,2257) - lu(k,1921) * lu(k,2250)
8205 315224452 : lu(k,2258) = lu(k,2258) - lu(k,1922) * lu(k,2250)
8206 315224452 : lu(k,2259) = lu(k,2259) - lu(k,1923) * lu(k,2250)
8207 315224452 : lu(k,2260) = lu(k,2260) - lu(k,1924) * lu(k,2250)
8208 315224452 : lu(k,2261) = lu(k,2261) - lu(k,1925) * lu(k,2250)
8209 315224452 : lu(k,2262) = lu(k,2262) - lu(k,1926) * lu(k,2250)
8210 315224452 : lu(k,2359) = lu(k,2359) - lu(k,1915) * lu(k,2358)
8211 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1916) * lu(k,2358)
8212 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1917) * lu(k,2358)
8213 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1918) * lu(k,2358)
8214 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1919) * lu(k,2358)
8215 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1920) * lu(k,2358)
8216 315224452 : lu(k,2365) = lu(k,2365) - lu(k,1921) * lu(k,2358)
8217 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1922) * lu(k,2358)
8218 315224452 : lu(k,2367) = lu(k,2367) - lu(k,1923) * lu(k,2358)
8219 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1924) * lu(k,2358)
8220 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1925) * lu(k,2358)
8221 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1926) * lu(k,2358)
8222 315224452 : lu(k,2411) = lu(k,2411) - lu(k,1915) * lu(k,2410)
8223 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1916) * lu(k,2410)
8224 315224452 : lu(k,2413) = lu(k,2413) - lu(k,1917) * lu(k,2410)
8225 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1918) * lu(k,2410)
8226 315224452 : lu(k,2415) = lu(k,2415) - lu(k,1919) * lu(k,2410)
8227 315224452 : lu(k,2416) = lu(k,2416) - lu(k,1920) * lu(k,2410)
8228 315224452 : lu(k,2417) = lu(k,2417) - lu(k,1921) * lu(k,2410)
8229 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1922) * lu(k,2410)
8230 315224452 : lu(k,2419) = lu(k,2419) - lu(k,1923) * lu(k,2410)
8231 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1924) * lu(k,2410)
8232 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1925) * lu(k,2410)
8233 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1926) * lu(k,2410)
8234 315224452 : lu(k,2438) = lu(k,2438) - lu(k,1915) * lu(k,2437)
8235 315224452 : lu(k,2439) = lu(k,2439) - lu(k,1916) * lu(k,2437)
8236 315224452 : lu(k,2440) = lu(k,2440) - lu(k,1917) * lu(k,2437)
8237 315224452 : lu(k,2441) = lu(k,2441) - lu(k,1918) * lu(k,2437)
8238 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1919) * lu(k,2437)
8239 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1920) * lu(k,2437)
8240 315224452 : lu(k,2444) = lu(k,2444) - lu(k,1921) * lu(k,2437)
8241 315224452 : lu(k,2445) = lu(k,2445) - lu(k,1922) * lu(k,2437)
8242 315224452 : lu(k,2446) = lu(k,2446) - lu(k,1923) * lu(k,2437)
8243 315224452 : lu(k,2447) = lu(k,2447) - lu(k,1924) * lu(k,2437)
8244 315224452 : lu(k,2448) = lu(k,2448) - lu(k,1925) * lu(k,2437)
8245 315224452 : lu(k,2449) = lu(k,2449) - lu(k,1926) * lu(k,2437)
8246 315224452 : lu(k,1960) = 1._r8 / lu(k,1960)
8247 315224452 : lu(k,1961) = lu(k,1961) * lu(k,1960)
8248 315224452 : lu(k,1962) = lu(k,1962) * lu(k,1960)
8249 315224452 : lu(k,1963) = lu(k,1963) * lu(k,1960)
8250 315224452 : lu(k,1964) = lu(k,1964) * lu(k,1960)
8251 315224452 : lu(k,1965) = lu(k,1965) * lu(k,1960)
8252 315224452 : lu(k,1966) = lu(k,1966) * lu(k,1960)
8253 315224452 : lu(k,1967) = lu(k,1967) * lu(k,1960)
8254 315224452 : lu(k,1968) = lu(k,1968) * lu(k,1960)
8255 315224452 : lu(k,1969) = lu(k,1969) * lu(k,1960)
8256 315224452 : lu(k,1970) = lu(k,1970) * lu(k,1960)
8257 315224452 : lu(k,1971) = lu(k,1971) * lu(k,1960)
8258 315224452 : lu(k,1987) = lu(k,1987) - lu(k,1961) * lu(k,1986)
8259 315224452 : lu(k,1988) = lu(k,1988) - lu(k,1962) * lu(k,1986)
8260 315224452 : lu(k,1989) = lu(k,1989) - lu(k,1963) * lu(k,1986)
8261 315224452 : lu(k,1990) = lu(k,1990) - lu(k,1964) * lu(k,1986)
8262 315224452 : lu(k,1991) = lu(k,1991) - lu(k,1965) * lu(k,1986)
8263 315224452 : lu(k,1992) = lu(k,1992) - lu(k,1966) * lu(k,1986)
8264 315224452 : lu(k,1993) = lu(k,1993) - lu(k,1967) * lu(k,1986)
8265 315224452 : lu(k,1994) = lu(k,1994) - lu(k,1968) * lu(k,1986)
8266 315224452 : lu(k,1995) = lu(k,1995) - lu(k,1969) * lu(k,1986)
8267 315224452 : lu(k,1996) = lu(k,1996) - lu(k,1970) * lu(k,1986)
8268 315224452 : lu(k,1997) = lu(k,1997) - lu(k,1971) * lu(k,1986)
8269 315224452 : lu(k,2030) = lu(k,2030) - lu(k,1961) * lu(k,2029)
8270 315224452 : lu(k,2031) = lu(k,2031) - lu(k,1962) * lu(k,2029)
8271 315224452 : lu(k,2032) = lu(k,2032) - lu(k,1963) * lu(k,2029)
8272 315224452 : lu(k,2033) = lu(k,2033) - lu(k,1964) * lu(k,2029)
8273 315224452 : lu(k,2034) = lu(k,2034) - lu(k,1965) * lu(k,2029)
8274 315224452 : lu(k,2035) = lu(k,2035) - lu(k,1966) * lu(k,2029)
8275 315224452 : lu(k,2036) = lu(k,2036) - lu(k,1967) * lu(k,2029)
8276 315224452 : lu(k,2037) = lu(k,2037) - lu(k,1968) * lu(k,2029)
8277 315224452 : lu(k,2038) = lu(k,2038) - lu(k,1969) * lu(k,2029)
8278 315224452 : lu(k,2039) = lu(k,2039) - lu(k,1970) * lu(k,2029)
8279 315224452 : lu(k,2040) = lu(k,2040) - lu(k,1971) * lu(k,2029)
8280 315224452 : lu(k,2053) = lu(k,2053) - lu(k,1961) * lu(k,2052)
8281 315224452 : lu(k,2054) = lu(k,2054) - lu(k,1962) * lu(k,2052)
8282 315224452 : lu(k,2055) = lu(k,2055) - lu(k,1963) * lu(k,2052)
8283 315224452 : lu(k,2056) = lu(k,2056) - lu(k,1964) * lu(k,2052)
8284 315224452 : lu(k,2057) = lu(k,2057) - lu(k,1965) * lu(k,2052)
8285 315224452 : lu(k,2058) = lu(k,2058) - lu(k,1966) * lu(k,2052)
8286 315224452 : lu(k,2059) = lu(k,2059) - lu(k,1967) * lu(k,2052)
8287 315224452 : lu(k,2060) = lu(k,2060) - lu(k,1968) * lu(k,2052)
8288 315224452 : lu(k,2061) = lu(k,2061) - lu(k,1969) * lu(k,2052)
8289 315224452 : lu(k,2062) = lu(k,2062) - lu(k,1970) * lu(k,2052)
8290 315224452 : lu(k,2063) = lu(k,2063) - lu(k,1971) * lu(k,2052)
8291 315224452 : lu(k,2096) = lu(k,2096) - lu(k,1961) * lu(k,2095)
8292 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1962) * lu(k,2095)
8293 315224452 : lu(k,2098) = lu(k,2098) - lu(k,1963) * lu(k,2095)
8294 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1964) * lu(k,2095)
8295 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1965) * lu(k,2095)
8296 315224452 : lu(k,2101) = lu(k,2101) - lu(k,1966) * lu(k,2095)
8297 315224452 : lu(k,2102) = lu(k,2102) - lu(k,1967) * lu(k,2095)
8298 315224452 : lu(k,2103) = lu(k,2103) - lu(k,1968) * lu(k,2095)
8299 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1969) * lu(k,2095)
8300 315224452 : lu(k,2105) = lu(k,2105) - lu(k,1970) * lu(k,2095)
8301 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1971) * lu(k,2095)
8302 315224452 : lu(k,2117) = lu(k,2117) - lu(k,1961) * lu(k,2116)
8303 315224452 : lu(k,2118) = lu(k,2118) - lu(k,1962) * lu(k,2116)
8304 315224452 : lu(k,2119) = lu(k,2119) - lu(k,1963) * lu(k,2116)
8305 315224452 : lu(k,2120) = lu(k,2120) - lu(k,1964) * lu(k,2116)
8306 315224452 : lu(k,2121) = lu(k,2121) - lu(k,1965) * lu(k,2116)
8307 315224452 : lu(k,2122) = lu(k,2122) - lu(k,1966) * lu(k,2116)
8308 315224452 : lu(k,2123) = lu(k,2123) - lu(k,1967) * lu(k,2116)
8309 315224452 : lu(k,2124) = lu(k,2124) - lu(k,1968) * lu(k,2116)
8310 315224452 : lu(k,2125) = lu(k,2125) - lu(k,1969) * lu(k,2116)
8311 315224452 : lu(k,2126) = lu(k,2126) - lu(k,1970) * lu(k,2116)
8312 315224452 : lu(k,2127) = lu(k,2127) - lu(k,1971) * lu(k,2116)
8313 315224452 : lu(k,2163) = lu(k,2163) - lu(k,1961) * lu(k,2162)
8314 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1962) * lu(k,2162)
8315 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1963) * lu(k,2162)
8316 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1964) * lu(k,2162)
8317 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1965) * lu(k,2162)
8318 315224452 : lu(k,2168) = lu(k,2168) - lu(k,1966) * lu(k,2162)
8319 315224452 : lu(k,2169) = lu(k,2169) - lu(k,1967) * lu(k,2162)
8320 315224452 : lu(k,2170) = lu(k,2170) - lu(k,1968) * lu(k,2162)
8321 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1969) * lu(k,2162)
8322 315224452 : lu(k,2172) = lu(k,2172) - lu(k,1970) * lu(k,2162)
8323 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1971) * lu(k,2162)
8324 315224452 : lu(k,2227) = lu(k,2227) - lu(k,1961) * lu(k,2226)
8325 315224452 : lu(k,2228) = lu(k,2228) - lu(k,1962) * lu(k,2226)
8326 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1963) * lu(k,2226)
8327 315224452 : lu(k,2230) = lu(k,2230) - lu(k,1964) * lu(k,2226)
8328 315224452 : lu(k,2231) = lu(k,2231) - lu(k,1965) * lu(k,2226)
8329 315224452 : lu(k,2232) = lu(k,2232) - lu(k,1966) * lu(k,2226)
8330 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1967) * lu(k,2226)
8331 315224452 : lu(k,2234) = lu(k,2234) - lu(k,1968) * lu(k,2226)
8332 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1969) * lu(k,2226)
8333 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1970) * lu(k,2226)
8334 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1971) * lu(k,2226)
8335 315224452 : lu(k,2252) = lu(k,2252) - lu(k,1961) * lu(k,2251)
8336 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1962) * lu(k,2251)
8337 315224452 : lu(k,2254) = lu(k,2254) - lu(k,1963) * lu(k,2251)
8338 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1964) * lu(k,2251)
8339 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1965) * lu(k,2251)
8340 315224452 : lu(k,2257) = lu(k,2257) - lu(k,1966) * lu(k,2251)
8341 315224452 : lu(k,2258) = lu(k,2258) - lu(k,1967) * lu(k,2251)
8342 315224452 : lu(k,2259) = lu(k,2259) - lu(k,1968) * lu(k,2251)
8343 315224452 : lu(k,2260) = lu(k,2260) - lu(k,1969) * lu(k,2251)
8344 315224452 : lu(k,2261) = lu(k,2261) - lu(k,1970) * lu(k,2251)
8345 315224452 : lu(k,2262) = lu(k,2262) - lu(k,1971) * lu(k,2251)
8346 315224452 : lu(k,2360) = lu(k,2360) - lu(k,1961) * lu(k,2359)
8347 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1962) * lu(k,2359)
8348 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1963) * lu(k,2359)
8349 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1964) * lu(k,2359)
8350 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1965) * lu(k,2359)
8351 315224452 : lu(k,2365) = lu(k,2365) - lu(k,1966) * lu(k,2359)
8352 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1967) * lu(k,2359)
8353 315224452 : lu(k,2367) = lu(k,2367) - lu(k,1968) * lu(k,2359)
8354 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1969) * lu(k,2359)
8355 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1970) * lu(k,2359)
8356 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1971) * lu(k,2359)
8357 315224452 : lu(k,2412) = lu(k,2412) - lu(k,1961) * lu(k,2411)
8358 315224452 : lu(k,2413) = lu(k,2413) - lu(k,1962) * lu(k,2411)
8359 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1963) * lu(k,2411)
8360 315224452 : lu(k,2415) = lu(k,2415) - lu(k,1964) * lu(k,2411)
8361 315224452 : lu(k,2416) = lu(k,2416) - lu(k,1965) * lu(k,2411)
8362 315224452 : lu(k,2417) = lu(k,2417) - lu(k,1966) * lu(k,2411)
8363 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1967) * lu(k,2411)
8364 315224452 : lu(k,2419) = lu(k,2419) - lu(k,1968) * lu(k,2411)
8365 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1969) * lu(k,2411)
8366 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1970) * lu(k,2411)
8367 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1971) * lu(k,2411)
8368 315224452 : lu(k,2439) = lu(k,2439) - lu(k,1961) * lu(k,2438)
8369 315224452 : lu(k,2440) = lu(k,2440) - lu(k,1962) * lu(k,2438)
8370 315224452 : lu(k,2441) = lu(k,2441) - lu(k,1963) * lu(k,2438)
8371 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1964) * lu(k,2438)
8372 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1965) * lu(k,2438)
8373 315224452 : lu(k,2444) = lu(k,2444) - lu(k,1966) * lu(k,2438)
8374 315224452 : lu(k,2445) = lu(k,2445) - lu(k,1967) * lu(k,2438)
8375 315224452 : lu(k,2446) = lu(k,2446) - lu(k,1968) * lu(k,2438)
8376 315224452 : lu(k,2447) = lu(k,2447) - lu(k,1969) * lu(k,2438)
8377 315224452 : lu(k,2448) = lu(k,2448) - lu(k,1970) * lu(k,2438)
8378 315224452 : lu(k,2449) = lu(k,2449) - lu(k,1971) * lu(k,2438)
8379 315224452 : lu(k,1987) = 1._r8 / lu(k,1987)
8380 315224452 : lu(k,1988) = lu(k,1988) * lu(k,1987)
8381 315224452 : lu(k,1989) = lu(k,1989) * lu(k,1987)
8382 315224452 : lu(k,1990) = lu(k,1990) * lu(k,1987)
8383 315224452 : lu(k,1991) = lu(k,1991) * lu(k,1987)
8384 315224452 : lu(k,1992) = lu(k,1992) * lu(k,1987)
8385 315224452 : lu(k,1993) = lu(k,1993) * lu(k,1987)
8386 315224452 : lu(k,1994) = lu(k,1994) * lu(k,1987)
8387 315224452 : lu(k,1995) = lu(k,1995) * lu(k,1987)
8388 315224452 : lu(k,1996) = lu(k,1996) * lu(k,1987)
8389 315224452 : lu(k,1997) = lu(k,1997) * lu(k,1987)
8390 315224452 : lu(k,2031) = lu(k,2031) - lu(k,1988) * lu(k,2030)
8391 315224452 : lu(k,2032) = lu(k,2032) - lu(k,1989) * lu(k,2030)
8392 315224452 : lu(k,2033) = lu(k,2033) - lu(k,1990) * lu(k,2030)
8393 315224452 : lu(k,2034) = lu(k,2034) - lu(k,1991) * lu(k,2030)
8394 315224452 : lu(k,2035) = lu(k,2035) - lu(k,1992) * lu(k,2030)
8395 315224452 : lu(k,2036) = lu(k,2036) - lu(k,1993) * lu(k,2030)
8396 315224452 : lu(k,2037) = lu(k,2037) - lu(k,1994) * lu(k,2030)
8397 315224452 : lu(k,2038) = lu(k,2038) - lu(k,1995) * lu(k,2030)
8398 315224452 : lu(k,2039) = lu(k,2039) - lu(k,1996) * lu(k,2030)
8399 315224452 : lu(k,2040) = lu(k,2040) - lu(k,1997) * lu(k,2030)
8400 315224452 : lu(k,2054) = lu(k,2054) - lu(k,1988) * lu(k,2053)
8401 315224452 : lu(k,2055) = lu(k,2055) - lu(k,1989) * lu(k,2053)
8402 315224452 : lu(k,2056) = lu(k,2056) - lu(k,1990) * lu(k,2053)
8403 315224452 : lu(k,2057) = lu(k,2057) - lu(k,1991) * lu(k,2053)
8404 315224452 : lu(k,2058) = lu(k,2058) - lu(k,1992) * lu(k,2053)
8405 315224452 : lu(k,2059) = lu(k,2059) - lu(k,1993) * lu(k,2053)
8406 315224452 : lu(k,2060) = lu(k,2060) - lu(k,1994) * lu(k,2053)
8407 315224452 : lu(k,2061) = lu(k,2061) - lu(k,1995) * lu(k,2053)
8408 315224452 : lu(k,2062) = lu(k,2062) - lu(k,1996) * lu(k,2053)
8409 315224452 : lu(k,2063) = lu(k,2063) - lu(k,1997) * lu(k,2053)
8410 315224452 : lu(k,2097) = lu(k,2097) - lu(k,1988) * lu(k,2096)
8411 315224452 : lu(k,2098) = lu(k,2098) - lu(k,1989) * lu(k,2096)
8412 315224452 : lu(k,2099) = lu(k,2099) - lu(k,1990) * lu(k,2096)
8413 315224452 : lu(k,2100) = lu(k,2100) - lu(k,1991) * lu(k,2096)
8414 315224452 : lu(k,2101) = lu(k,2101) - lu(k,1992) * lu(k,2096)
8415 315224452 : lu(k,2102) = lu(k,2102) - lu(k,1993) * lu(k,2096)
8416 315224452 : lu(k,2103) = lu(k,2103) - lu(k,1994) * lu(k,2096)
8417 315224452 : lu(k,2104) = lu(k,2104) - lu(k,1995) * lu(k,2096)
8418 315224452 : lu(k,2105) = lu(k,2105) - lu(k,1996) * lu(k,2096)
8419 315224452 : lu(k,2106) = lu(k,2106) - lu(k,1997) * lu(k,2096)
8420 315224452 : lu(k,2118) = lu(k,2118) - lu(k,1988) * lu(k,2117)
8421 315224452 : lu(k,2119) = lu(k,2119) - lu(k,1989) * lu(k,2117)
8422 315224452 : lu(k,2120) = lu(k,2120) - lu(k,1990) * lu(k,2117)
8423 315224452 : lu(k,2121) = lu(k,2121) - lu(k,1991) * lu(k,2117)
8424 315224452 : lu(k,2122) = lu(k,2122) - lu(k,1992) * lu(k,2117)
8425 315224452 : lu(k,2123) = lu(k,2123) - lu(k,1993) * lu(k,2117)
8426 315224452 : lu(k,2124) = lu(k,2124) - lu(k,1994) * lu(k,2117)
8427 315224452 : lu(k,2125) = lu(k,2125) - lu(k,1995) * lu(k,2117)
8428 315224452 : lu(k,2126) = lu(k,2126) - lu(k,1996) * lu(k,2117)
8429 315224452 : lu(k,2127) = lu(k,2127) - lu(k,1997) * lu(k,2117)
8430 315224452 : lu(k,2164) = lu(k,2164) - lu(k,1988) * lu(k,2163)
8431 315224452 : lu(k,2165) = lu(k,2165) - lu(k,1989) * lu(k,2163)
8432 315224452 : lu(k,2166) = lu(k,2166) - lu(k,1990) * lu(k,2163)
8433 315224452 : lu(k,2167) = lu(k,2167) - lu(k,1991) * lu(k,2163)
8434 315224452 : lu(k,2168) = lu(k,2168) - lu(k,1992) * lu(k,2163)
8435 315224452 : lu(k,2169) = lu(k,2169) - lu(k,1993) * lu(k,2163)
8436 315224452 : lu(k,2170) = lu(k,2170) - lu(k,1994) * lu(k,2163)
8437 315224452 : lu(k,2171) = lu(k,2171) - lu(k,1995) * lu(k,2163)
8438 315224452 : lu(k,2172) = lu(k,2172) - lu(k,1996) * lu(k,2163)
8439 315224452 : lu(k,2173) = lu(k,2173) - lu(k,1997) * lu(k,2163)
8440 315224452 : lu(k,2228) = lu(k,2228) - lu(k,1988) * lu(k,2227)
8441 315224452 : lu(k,2229) = lu(k,2229) - lu(k,1989) * lu(k,2227)
8442 315224452 : lu(k,2230) = lu(k,2230) - lu(k,1990) * lu(k,2227)
8443 315224452 : lu(k,2231) = lu(k,2231) - lu(k,1991) * lu(k,2227)
8444 315224452 : lu(k,2232) = lu(k,2232) - lu(k,1992) * lu(k,2227)
8445 315224452 : lu(k,2233) = lu(k,2233) - lu(k,1993) * lu(k,2227)
8446 315224452 : lu(k,2234) = lu(k,2234) - lu(k,1994) * lu(k,2227)
8447 315224452 : lu(k,2235) = lu(k,2235) - lu(k,1995) * lu(k,2227)
8448 315224452 : lu(k,2236) = lu(k,2236) - lu(k,1996) * lu(k,2227)
8449 315224452 : lu(k,2237) = lu(k,2237) - lu(k,1997) * lu(k,2227)
8450 315224452 : lu(k,2253) = lu(k,2253) - lu(k,1988) * lu(k,2252)
8451 315224452 : lu(k,2254) = lu(k,2254) - lu(k,1989) * lu(k,2252)
8452 315224452 : lu(k,2255) = lu(k,2255) - lu(k,1990) * lu(k,2252)
8453 315224452 : lu(k,2256) = lu(k,2256) - lu(k,1991) * lu(k,2252)
8454 315224452 : lu(k,2257) = lu(k,2257) - lu(k,1992) * lu(k,2252)
8455 315224452 : lu(k,2258) = lu(k,2258) - lu(k,1993) * lu(k,2252)
8456 315224452 : lu(k,2259) = lu(k,2259) - lu(k,1994) * lu(k,2252)
8457 315224452 : lu(k,2260) = lu(k,2260) - lu(k,1995) * lu(k,2252)
8458 315224452 : lu(k,2261) = lu(k,2261) - lu(k,1996) * lu(k,2252)
8459 315224452 : lu(k,2262) = lu(k,2262) - lu(k,1997) * lu(k,2252)
8460 315224452 : lu(k,2361) = lu(k,2361) - lu(k,1988) * lu(k,2360)
8461 315224452 : lu(k,2362) = lu(k,2362) - lu(k,1989) * lu(k,2360)
8462 315224452 : lu(k,2363) = lu(k,2363) - lu(k,1990) * lu(k,2360)
8463 315224452 : lu(k,2364) = lu(k,2364) - lu(k,1991) * lu(k,2360)
8464 315224452 : lu(k,2365) = lu(k,2365) - lu(k,1992) * lu(k,2360)
8465 315224452 : lu(k,2366) = lu(k,2366) - lu(k,1993) * lu(k,2360)
8466 315224452 : lu(k,2367) = lu(k,2367) - lu(k,1994) * lu(k,2360)
8467 315224452 : lu(k,2368) = lu(k,2368) - lu(k,1995) * lu(k,2360)
8468 315224452 : lu(k,2369) = lu(k,2369) - lu(k,1996) * lu(k,2360)
8469 315224452 : lu(k,2370) = lu(k,2370) - lu(k,1997) * lu(k,2360)
8470 315224452 : lu(k,2413) = lu(k,2413) - lu(k,1988) * lu(k,2412)
8471 315224452 : lu(k,2414) = lu(k,2414) - lu(k,1989) * lu(k,2412)
8472 315224452 : lu(k,2415) = lu(k,2415) - lu(k,1990) * lu(k,2412)
8473 315224452 : lu(k,2416) = lu(k,2416) - lu(k,1991) * lu(k,2412)
8474 315224452 : lu(k,2417) = lu(k,2417) - lu(k,1992) * lu(k,2412)
8475 315224452 : lu(k,2418) = lu(k,2418) - lu(k,1993) * lu(k,2412)
8476 315224452 : lu(k,2419) = lu(k,2419) - lu(k,1994) * lu(k,2412)
8477 315224452 : lu(k,2420) = lu(k,2420) - lu(k,1995) * lu(k,2412)
8478 315224452 : lu(k,2421) = lu(k,2421) - lu(k,1996) * lu(k,2412)
8479 315224452 : lu(k,2422) = lu(k,2422) - lu(k,1997) * lu(k,2412)
8480 315224452 : lu(k,2440) = lu(k,2440) - lu(k,1988) * lu(k,2439)
8481 315224452 : lu(k,2441) = lu(k,2441) - lu(k,1989) * lu(k,2439)
8482 315224452 : lu(k,2442) = lu(k,2442) - lu(k,1990) * lu(k,2439)
8483 315224452 : lu(k,2443) = lu(k,2443) - lu(k,1991) * lu(k,2439)
8484 315224452 : lu(k,2444) = lu(k,2444) - lu(k,1992) * lu(k,2439)
8485 315224452 : lu(k,2445) = lu(k,2445) - lu(k,1993) * lu(k,2439)
8486 315224452 : lu(k,2446) = lu(k,2446) - lu(k,1994) * lu(k,2439)
8487 315224452 : lu(k,2447) = lu(k,2447) - lu(k,1995) * lu(k,2439)
8488 315224452 : lu(k,2448) = lu(k,2448) - lu(k,1996) * lu(k,2439)
8489 315224452 : lu(k,2449) = lu(k,2449) - lu(k,1997) * lu(k,2439)
8490 315224452 : lu(k,2031) = 1._r8 / lu(k,2031)
8491 315224452 : lu(k,2032) = lu(k,2032) * lu(k,2031)
8492 315224452 : lu(k,2033) = lu(k,2033) * lu(k,2031)
8493 315224452 : lu(k,2034) = lu(k,2034) * lu(k,2031)
8494 315224452 : lu(k,2035) = lu(k,2035) * lu(k,2031)
8495 315224452 : lu(k,2036) = lu(k,2036) * lu(k,2031)
8496 315224452 : lu(k,2037) = lu(k,2037) * lu(k,2031)
8497 315224452 : lu(k,2038) = lu(k,2038) * lu(k,2031)
8498 315224452 : lu(k,2039) = lu(k,2039) * lu(k,2031)
8499 315224452 : lu(k,2040) = lu(k,2040) * lu(k,2031)
8500 315224452 : lu(k,2055) = lu(k,2055) - lu(k,2032) * lu(k,2054)
8501 315224452 : lu(k,2056) = lu(k,2056) - lu(k,2033) * lu(k,2054)
8502 315224452 : lu(k,2057) = lu(k,2057) - lu(k,2034) * lu(k,2054)
8503 315224452 : lu(k,2058) = lu(k,2058) - lu(k,2035) * lu(k,2054)
8504 315224452 : lu(k,2059) = lu(k,2059) - lu(k,2036) * lu(k,2054)
8505 315224452 : lu(k,2060) = lu(k,2060) - lu(k,2037) * lu(k,2054)
8506 315224452 : lu(k,2061) = lu(k,2061) - lu(k,2038) * lu(k,2054)
8507 315224452 : lu(k,2062) = lu(k,2062) - lu(k,2039) * lu(k,2054)
8508 315224452 : lu(k,2063) = lu(k,2063) - lu(k,2040) * lu(k,2054)
8509 315224452 : lu(k,2098) = lu(k,2098) - lu(k,2032) * lu(k,2097)
8510 315224452 : lu(k,2099) = lu(k,2099) - lu(k,2033) * lu(k,2097)
8511 315224452 : lu(k,2100) = lu(k,2100) - lu(k,2034) * lu(k,2097)
8512 315224452 : lu(k,2101) = lu(k,2101) - lu(k,2035) * lu(k,2097)
8513 315224452 : lu(k,2102) = lu(k,2102) - lu(k,2036) * lu(k,2097)
8514 315224452 : lu(k,2103) = lu(k,2103) - lu(k,2037) * lu(k,2097)
8515 315224452 : lu(k,2104) = lu(k,2104) - lu(k,2038) * lu(k,2097)
8516 315224452 : lu(k,2105) = lu(k,2105) - lu(k,2039) * lu(k,2097)
8517 315224452 : lu(k,2106) = lu(k,2106) - lu(k,2040) * lu(k,2097)
8518 315224452 : lu(k,2119) = lu(k,2119) - lu(k,2032) * lu(k,2118)
8519 315224452 : lu(k,2120) = lu(k,2120) - lu(k,2033) * lu(k,2118)
8520 315224452 : lu(k,2121) = lu(k,2121) - lu(k,2034) * lu(k,2118)
8521 315224452 : lu(k,2122) = lu(k,2122) - lu(k,2035) * lu(k,2118)
8522 315224452 : lu(k,2123) = lu(k,2123) - lu(k,2036) * lu(k,2118)
8523 315224452 : lu(k,2124) = lu(k,2124) - lu(k,2037) * lu(k,2118)
8524 315224452 : lu(k,2125) = lu(k,2125) - lu(k,2038) * lu(k,2118)
8525 315224452 : lu(k,2126) = lu(k,2126) - lu(k,2039) * lu(k,2118)
8526 315224452 : lu(k,2127) = lu(k,2127) - lu(k,2040) * lu(k,2118)
8527 315224452 : lu(k,2165) = lu(k,2165) - lu(k,2032) * lu(k,2164)
8528 315224452 : lu(k,2166) = lu(k,2166) - lu(k,2033) * lu(k,2164)
8529 315224452 : lu(k,2167) = lu(k,2167) - lu(k,2034) * lu(k,2164)
8530 315224452 : lu(k,2168) = lu(k,2168) - lu(k,2035) * lu(k,2164)
8531 315224452 : lu(k,2169) = lu(k,2169) - lu(k,2036) * lu(k,2164)
8532 315224452 : lu(k,2170) = lu(k,2170) - lu(k,2037) * lu(k,2164)
8533 315224452 : lu(k,2171) = lu(k,2171) - lu(k,2038) * lu(k,2164)
8534 315224452 : lu(k,2172) = lu(k,2172) - lu(k,2039) * lu(k,2164)
8535 315224452 : lu(k,2173) = lu(k,2173) - lu(k,2040) * lu(k,2164)
8536 315224452 : lu(k,2229) = lu(k,2229) - lu(k,2032) * lu(k,2228)
8537 315224452 : lu(k,2230) = lu(k,2230) - lu(k,2033) * lu(k,2228)
8538 315224452 : lu(k,2231) = lu(k,2231) - lu(k,2034) * lu(k,2228)
8539 315224452 : lu(k,2232) = lu(k,2232) - lu(k,2035) * lu(k,2228)
8540 315224452 : lu(k,2233) = lu(k,2233) - lu(k,2036) * lu(k,2228)
8541 315224452 : lu(k,2234) = lu(k,2234) - lu(k,2037) * lu(k,2228)
8542 315224452 : lu(k,2235) = lu(k,2235) - lu(k,2038) * lu(k,2228)
8543 315224452 : lu(k,2236) = lu(k,2236) - lu(k,2039) * lu(k,2228)
8544 315224452 : lu(k,2237) = lu(k,2237) - lu(k,2040) * lu(k,2228)
8545 315224452 : lu(k,2254) = lu(k,2254) - lu(k,2032) * lu(k,2253)
8546 315224452 : lu(k,2255) = lu(k,2255) - lu(k,2033) * lu(k,2253)
8547 315224452 : lu(k,2256) = lu(k,2256) - lu(k,2034) * lu(k,2253)
8548 315224452 : lu(k,2257) = lu(k,2257) - lu(k,2035) * lu(k,2253)
8549 315224452 : lu(k,2258) = lu(k,2258) - lu(k,2036) * lu(k,2253)
8550 315224452 : lu(k,2259) = lu(k,2259) - lu(k,2037) * lu(k,2253)
8551 315224452 : lu(k,2260) = lu(k,2260) - lu(k,2038) * lu(k,2253)
8552 315224452 : lu(k,2261) = lu(k,2261) - lu(k,2039) * lu(k,2253)
8553 315224452 : lu(k,2262) = lu(k,2262) - lu(k,2040) * lu(k,2253)
8554 315224452 : lu(k,2362) = lu(k,2362) - lu(k,2032) * lu(k,2361)
8555 315224452 : lu(k,2363) = lu(k,2363) - lu(k,2033) * lu(k,2361)
8556 315224452 : lu(k,2364) = lu(k,2364) - lu(k,2034) * lu(k,2361)
8557 315224452 : lu(k,2365) = lu(k,2365) - lu(k,2035) * lu(k,2361)
8558 315224452 : lu(k,2366) = lu(k,2366) - lu(k,2036) * lu(k,2361)
8559 315224452 : lu(k,2367) = lu(k,2367) - lu(k,2037) * lu(k,2361)
8560 315224452 : lu(k,2368) = lu(k,2368) - lu(k,2038) * lu(k,2361)
8561 315224452 : lu(k,2369) = lu(k,2369) - lu(k,2039) * lu(k,2361)
8562 315224452 : lu(k,2370) = lu(k,2370) - lu(k,2040) * lu(k,2361)
8563 315224452 : lu(k,2414) = lu(k,2414) - lu(k,2032) * lu(k,2413)
8564 315224452 : lu(k,2415) = lu(k,2415) - lu(k,2033) * lu(k,2413)
8565 315224452 : lu(k,2416) = lu(k,2416) - lu(k,2034) * lu(k,2413)
8566 315224452 : lu(k,2417) = lu(k,2417) - lu(k,2035) * lu(k,2413)
8567 315224452 : lu(k,2418) = lu(k,2418) - lu(k,2036) * lu(k,2413)
8568 315224452 : lu(k,2419) = lu(k,2419) - lu(k,2037) * lu(k,2413)
8569 315224452 : lu(k,2420) = lu(k,2420) - lu(k,2038) * lu(k,2413)
8570 315224452 : lu(k,2421) = lu(k,2421) - lu(k,2039) * lu(k,2413)
8571 315224452 : lu(k,2422) = lu(k,2422) - lu(k,2040) * lu(k,2413)
8572 315224452 : lu(k,2441) = lu(k,2441) - lu(k,2032) * lu(k,2440)
8573 315224452 : lu(k,2442) = lu(k,2442) - lu(k,2033) * lu(k,2440)
8574 315224452 : lu(k,2443) = lu(k,2443) - lu(k,2034) * lu(k,2440)
8575 315224452 : lu(k,2444) = lu(k,2444) - lu(k,2035) * lu(k,2440)
8576 315224452 : lu(k,2445) = lu(k,2445) - lu(k,2036) * lu(k,2440)
8577 315224452 : lu(k,2446) = lu(k,2446) - lu(k,2037) * lu(k,2440)
8578 315224452 : lu(k,2447) = lu(k,2447) - lu(k,2038) * lu(k,2440)
8579 315224452 : lu(k,2448) = lu(k,2448) - lu(k,2039) * lu(k,2440)
8580 325174377 : lu(k,2449) = lu(k,2449) - lu(k,2040) * lu(k,2440)
8581 : end do
8582 9949925 : end subroutine lu_fac31
8583 9949925 : subroutine lu_fac32( avec_len, lu )
8584 : use chem_mods, only : nzcnt
8585 : use shr_kind_mod, only : r8 => shr_kind_r8
8586 : implicit none
8587 : !-----------------------------------------------------------------------
8588 : ! ... dummy args
8589 : !-----------------------------------------------------------------------
8590 : integer, intent(in) :: avec_len
8591 : real(r8), intent(inout) :: lu(veclen,nzcnt)
8592 : !-----------------------------------------------------------------------
8593 : ! ... local variables
8594 : !-----------------------------------------------------------------------
8595 : integer :: k
8596 325174377 : do k = 1,avec_len
8597 315224452 : lu(k,2055) = 1._r8 / lu(k,2055)
8598 315224452 : lu(k,2056) = lu(k,2056) * lu(k,2055)
8599 315224452 : lu(k,2057) = lu(k,2057) * lu(k,2055)
8600 315224452 : lu(k,2058) = lu(k,2058) * lu(k,2055)
8601 315224452 : lu(k,2059) = lu(k,2059) * lu(k,2055)
8602 315224452 : lu(k,2060) = lu(k,2060) * lu(k,2055)
8603 315224452 : lu(k,2061) = lu(k,2061) * lu(k,2055)
8604 315224452 : lu(k,2062) = lu(k,2062) * lu(k,2055)
8605 315224452 : lu(k,2063) = lu(k,2063) * lu(k,2055)
8606 315224452 : lu(k,2099) = lu(k,2099) - lu(k,2056) * lu(k,2098)
8607 315224452 : lu(k,2100) = lu(k,2100) - lu(k,2057) * lu(k,2098)
8608 315224452 : lu(k,2101) = lu(k,2101) - lu(k,2058) * lu(k,2098)
8609 315224452 : lu(k,2102) = lu(k,2102) - lu(k,2059) * lu(k,2098)
8610 315224452 : lu(k,2103) = lu(k,2103) - lu(k,2060) * lu(k,2098)
8611 315224452 : lu(k,2104) = lu(k,2104) - lu(k,2061) * lu(k,2098)
8612 315224452 : lu(k,2105) = lu(k,2105) - lu(k,2062) * lu(k,2098)
8613 315224452 : lu(k,2106) = lu(k,2106) - lu(k,2063) * lu(k,2098)
8614 315224452 : lu(k,2120) = lu(k,2120) - lu(k,2056) * lu(k,2119)
8615 315224452 : lu(k,2121) = lu(k,2121) - lu(k,2057) * lu(k,2119)
8616 315224452 : lu(k,2122) = lu(k,2122) - lu(k,2058) * lu(k,2119)
8617 315224452 : lu(k,2123) = lu(k,2123) - lu(k,2059) * lu(k,2119)
8618 315224452 : lu(k,2124) = lu(k,2124) - lu(k,2060) * lu(k,2119)
8619 315224452 : lu(k,2125) = lu(k,2125) - lu(k,2061) * lu(k,2119)
8620 315224452 : lu(k,2126) = lu(k,2126) - lu(k,2062) * lu(k,2119)
8621 315224452 : lu(k,2127) = lu(k,2127) - lu(k,2063) * lu(k,2119)
8622 315224452 : lu(k,2166) = lu(k,2166) - lu(k,2056) * lu(k,2165)
8623 315224452 : lu(k,2167) = lu(k,2167) - lu(k,2057) * lu(k,2165)
8624 315224452 : lu(k,2168) = lu(k,2168) - lu(k,2058) * lu(k,2165)
8625 315224452 : lu(k,2169) = lu(k,2169) - lu(k,2059) * lu(k,2165)
8626 315224452 : lu(k,2170) = lu(k,2170) - lu(k,2060) * lu(k,2165)
8627 315224452 : lu(k,2171) = lu(k,2171) - lu(k,2061) * lu(k,2165)
8628 315224452 : lu(k,2172) = lu(k,2172) - lu(k,2062) * lu(k,2165)
8629 315224452 : lu(k,2173) = lu(k,2173) - lu(k,2063) * lu(k,2165)
8630 315224452 : lu(k,2230) = lu(k,2230) - lu(k,2056) * lu(k,2229)
8631 315224452 : lu(k,2231) = lu(k,2231) - lu(k,2057) * lu(k,2229)
8632 315224452 : lu(k,2232) = lu(k,2232) - lu(k,2058) * lu(k,2229)
8633 315224452 : lu(k,2233) = lu(k,2233) - lu(k,2059) * lu(k,2229)
8634 315224452 : lu(k,2234) = lu(k,2234) - lu(k,2060) * lu(k,2229)
8635 315224452 : lu(k,2235) = lu(k,2235) - lu(k,2061) * lu(k,2229)
8636 315224452 : lu(k,2236) = lu(k,2236) - lu(k,2062) * lu(k,2229)
8637 315224452 : lu(k,2237) = lu(k,2237) - lu(k,2063) * lu(k,2229)
8638 315224452 : lu(k,2255) = lu(k,2255) - lu(k,2056) * lu(k,2254)
8639 315224452 : lu(k,2256) = lu(k,2256) - lu(k,2057) * lu(k,2254)
8640 315224452 : lu(k,2257) = lu(k,2257) - lu(k,2058) * lu(k,2254)
8641 315224452 : lu(k,2258) = lu(k,2258) - lu(k,2059) * lu(k,2254)
8642 315224452 : lu(k,2259) = lu(k,2259) - lu(k,2060) * lu(k,2254)
8643 315224452 : lu(k,2260) = lu(k,2260) - lu(k,2061) * lu(k,2254)
8644 315224452 : lu(k,2261) = lu(k,2261) - lu(k,2062) * lu(k,2254)
8645 315224452 : lu(k,2262) = lu(k,2262) - lu(k,2063) * lu(k,2254)
8646 315224452 : lu(k,2363) = lu(k,2363) - lu(k,2056) * lu(k,2362)
8647 315224452 : lu(k,2364) = lu(k,2364) - lu(k,2057) * lu(k,2362)
8648 315224452 : lu(k,2365) = lu(k,2365) - lu(k,2058) * lu(k,2362)
8649 315224452 : lu(k,2366) = lu(k,2366) - lu(k,2059) * lu(k,2362)
8650 315224452 : lu(k,2367) = lu(k,2367) - lu(k,2060) * lu(k,2362)
8651 315224452 : lu(k,2368) = lu(k,2368) - lu(k,2061) * lu(k,2362)
8652 315224452 : lu(k,2369) = lu(k,2369) - lu(k,2062) * lu(k,2362)
8653 315224452 : lu(k,2370) = lu(k,2370) - lu(k,2063) * lu(k,2362)
8654 315224452 : lu(k,2415) = lu(k,2415) - lu(k,2056) * lu(k,2414)
8655 315224452 : lu(k,2416) = lu(k,2416) - lu(k,2057) * lu(k,2414)
8656 315224452 : lu(k,2417) = lu(k,2417) - lu(k,2058) * lu(k,2414)
8657 315224452 : lu(k,2418) = lu(k,2418) - lu(k,2059) * lu(k,2414)
8658 315224452 : lu(k,2419) = lu(k,2419) - lu(k,2060) * lu(k,2414)
8659 315224452 : lu(k,2420) = lu(k,2420) - lu(k,2061) * lu(k,2414)
8660 315224452 : lu(k,2421) = lu(k,2421) - lu(k,2062) * lu(k,2414)
8661 315224452 : lu(k,2422) = lu(k,2422) - lu(k,2063) * lu(k,2414)
8662 315224452 : lu(k,2442) = lu(k,2442) - lu(k,2056) * lu(k,2441)
8663 315224452 : lu(k,2443) = lu(k,2443) - lu(k,2057) * lu(k,2441)
8664 315224452 : lu(k,2444) = lu(k,2444) - lu(k,2058) * lu(k,2441)
8665 315224452 : lu(k,2445) = lu(k,2445) - lu(k,2059) * lu(k,2441)
8666 315224452 : lu(k,2446) = lu(k,2446) - lu(k,2060) * lu(k,2441)
8667 315224452 : lu(k,2447) = lu(k,2447) - lu(k,2061) * lu(k,2441)
8668 315224452 : lu(k,2448) = lu(k,2448) - lu(k,2062) * lu(k,2441)
8669 315224452 : lu(k,2449) = lu(k,2449) - lu(k,2063) * lu(k,2441)
8670 315224452 : lu(k,2099) = 1._r8 / lu(k,2099)
8671 315224452 : lu(k,2100) = lu(k,2100) * lu(k,2099)
8672 315224452 : lu(k,2101) = lu(k,2101) * lu(k,2099)
8673 315224452 : lu(k,2102) = lu(k,2102) * lu(k,2099)
8674 315224452 : lu(k,2103) = lu(k,2103) * lu(k,2099)
8675 315224452 : lu(k,2104) = lu(k,2104) * lu(k,2099)
8676 315224452 : lu(k,2105) = lu(k,2105) * lu(k,2099)
8677 315224452 : lu(k,2106) = lu(k,2106) * lu(k,2099)
8678 315224452 : lu(k,2121) = lu(k,2121) - lu(k,2100) * lu(k,2120)
8679 315224452 : lu(k,2122) = lu(k,2122) - lu(k,2101) * lu(k,2120)
8680 315224452 : lu(k,2123) = lu(k,2123) - lu(k,2102) * lu(k,2120)
8681 315224452 : lu(k,2124) = lu(k,2124) - lu(k,2103) * lu(k,2120)
8682 315224452 : lu(k,2125) = lu(k,2125) - lu(k,2104) * lu(k,2120)
8683 315224452 : lu(k,2126) = lu(k,2126) - lu(k,2105) * lu(k,2120)
8684 315224452 : lu(k,2127) = lu(k,2127) - lu(k,2106) * lu(k,2120)
8685 315224452 : lu(k,2167) = lu(k,2167) - lu(k,2100) * lu(k,2166)
8686 315224452 : lu(k,2168) = lu(k,2168) - lu(k,2101) * lu(k,2166)
8687 315224452 : lu(k,2169) = lu(k,2169) - lu(k,2102) * lu(k,2166)
8688 315224452 : lu(k,2170) = lu(k,2170) - lu(k,2103) * lu(k,2166)
8689 315224452 : lu(k,2171) = lu(k,2171) - lu(k,2104) * lu(k,2166)
8690 315224452 : lu(k,2172) = lu(k,2172) - lu(k,2105) * lu(k,2166)
8691 315224452 : lu(k,2173) = lu(k,2173) - lu(k,2106) * lu(k,2166)
8692 315224452 : lu(k,2231) = lu(k,2231) - lu(k,2100) * lu(k,2230)
8693 315224452 : lu(k,2232) = lu(k,2232) - lu(k,2101) * lu(k,2230)
8694 315224452 : lu(k,2233) = lu(k,2233) - lu(k,2102) * lu(k,2230)
8695 315224452 : lu(k,2234) = lu(k,2234) - lu(k,2103) * lu(k,2230)
8696 315224452 : lu(k,2235) = lu(k,2235) - lu(k,2104) * lu(k,2230)
8697 315224452 : lu(k,2236) = lu(k,2236) - lu(k,2105) * lu(k,2230)
8698 315224452 : lu(k,2237) = lu(k,2237) - lu(k,2106) * lu(k,2230)
8699 315224452 : lu(k,2256) = lu(k,2256) - lu(k,2100) * lu(k,2255)
8700 315224452 : lu(k,2257) = lu(k,2257) - lu(k,2101) * lu(k,2255)
8701 315224452 : lu(k,2258) = lu(k,2258) - lu(k,2102) * lu(k,2255)
8702 315224452 : lu(k,2259) = lu(k,2259) - lu(k,2103) * lu(k,2255)
8703 315224452 : lu(k,2260) = lu(k,2260) - lu(k,2104) * lu(k,2255)
8704 315224452 : lu(k,2261) = lu(k,2261) - lu(k,2105) * lu(k,2255)
8705 315224452 : lu(k,2262) = lu(k,2262) - lu(k,2106) * lu(k,2255)
8706 315224452 : lu(k,2364) = lu(k,2364) - lu(k,2100) * lu(k,2363)
8707 315224452 : lu(k,2365) = lu(k,2365) - lu(k,2101) * lu(k,2363)
8708 315224452 : lu(k,2366) = lu(k,2366) - lu(k,2102) * lu(k,2363)
8709 315224452 : lu(k,2367) = lu(k,2367) - lu(k,2103) * lu(k,2363)
8710 315224452 : lu(k,2368) = lu(k,2368) - lu(k,2104) * lu(k,2363)
8711 315224452 : lu(k,2369) = lu(k,2369) - lu(k,2105) * lu(k,2363)
8712 315224452 : lu(k,2370) = lu(k,2370) - lu(k,2106) * lu(k,2363)
8713 315224452 : lu(k,2416) = lu(k,2416) - lu(k,2100) * lu(k,2415)
8714 315224452 : lu(k,2417) = lu(k,2417) - lu(k,2101) * lu(k,2415)
8715 315224452 : lu(k,2418) = lu(k,2418) - lu(k,2102) * lu(k,2415)
8716 315224452 : lu(k,2419) = lu(k,2419) - lu(k,2103) * lu(k,2415)
8717 315224452 : lu(k,2420) = lu(k,2420) - lu(k,2104) * lu(k,2415)
8718 315224452 : lu(k,2421) = lu(k,2421) - lu(k,2105) * lu(k,2415)
8719 315224452 : lu(k,2422) = lu(k,2422) - lu(k,2106) * lu(k,2415)
8720 315224452 : lu(k,2443) = lu(k,2443) - lu(k,2100) * lu(k,2442)
8721 315224452 : lu(k,2444) = lu(k,2444) - lu(k,2101) * lu(k,2442)
8722 315224452 : lu(k,2445) = lu(k,2445) - lu(k,2102) * lu(k,2442)
8723 315224452 : lu(k,2446) = lu(k,2446) - lu(k,2103) * lu(k,2442)
8724 315224452 : lu(k,2447) = lu(k,2447) - lu(k,2104) * lu(k,2442)
8725 315224452 : lu(k,2448) = lu(k,2448) - lu(k,2105) * lu(k,2442)
8726 315224452 : lu(k,2449) = lu(k,2449) - lu(k,2106) * lu(k,2442)
8727 315224452 : lu(k,2121) = 1._r8 / lu(k,2121)
8728 315224452 : lu(k,2122) = lu(k,2122) * lu(k,2121)
8729 315224452 : lu(k,2123) = lu(k,2123) * lu(k,2121)
8730 315224452 : lu(k,2124) = lu(k,2124) * lu(k,2121)
8731 315224452 : lu(k,2125) = lu(k,2125) * lu(k,2121)
8732 315224452 : lu(k,2126) = lu(k,2126) * lu(k,2121)
8733 315224452 : lu(k,2127) = lu(k,2127) * lu(k,2121)
8734 315224452 : lu(k,2168) = lu(k,2168) - lu(k,2122) * lu(k,2167)
8735 315224452 : lu(k,2169) = lu(k,2169) - lu(k,2123) * lu(k,2167)
8736 315224452 : lu(k,2170) = lu(k,2170) - lu(k,2124) * lu(k,2167)
8737 315224452 : lu(k,2171) = lu(k,2171) - lu(k,2125) * lu(k,2167)
8738 315224452 : lu(k,2172) = lu(k,2172) - lu(k,2126) * lu(k,2167)
8739 315224452 : lu(k,2173) = lu(k,2173) - lu(k,2127) * lu(k,2167)
8740 315224452 : lu(k,2232) = lu(k,2232) - lu(k,2122) * lu(k,2231)
8741 315224452 : lu(k,2233) = lu(k,2233) - lu(k,2123) * lu(k,2231)
8742 315224452 : lu(k,2234) = lu(k,2234) - lu(k,2124) * lu(k,2231)
8743 315224452 : lu(k,2235) = lu(k,2235) - lu(k,2125) * lu(k,2231)
8744 315224452 : lu(k,2236) = lu(k,2236) - lu(k,2126) * lu(k,2231)
8745 315224452 : lu(k,2237) = lu(k,2237) - lu(k,2127) * lu(k,2231)
8746 315224452 : lu(k,2257) = lu(k,2257) - lu(k,2122) * lu(k,2256)
8747 315224452 : lu(k,2258) = lu(k,2258) - lu(k,2123) * lu(k,2256)
8748 315224452 : lu(k,2259) = lu(k,2259) - lu(k,2124) * lu(k,2256)
8749 315224452 : lu(k,2260) = lu(k,2260) - lu(k,2125) * lu(k,2256)
8750 315224452 : lu(k,2261) = lu(k,2261) - lu(k,2126) * lu(k,2256)
8751 315224452 : lu(k,2262) = lu(k,2262) - lu(k,2127) * lu(k,2256)
8752 315224452 : lu(k,2365) = lu(k,2365) - lu(k,2122) * lu(k,2364)
8753 315224452 : lu(k,2366) = lu(k,2366) - lu(k,2123) * lu(k,2364)
8754 315224452 : lu(k,2367) = lu(k,2367) - lu(k,2124) * lu(k,2364)
8755 315224452 : lu(k,2368) = lu(k,2368) - lu(k,2125) * lu(k,2364)
8756 315224452 : lu(k,2369) = lu(k,2369) - lu(k,2126) * lu(k,2364)
8757 315224452 : lu(k,2370) = lu(k,2370) - lu(k,2127) * lu(k,2364)
8758 315224452 : lu(k,2417) = lu(k,2417) - lu(k,2122) * lu(k,2416)
8759 315224452 : lu(k,2418) = lu(k,2418) - lu(k,2123) * lu(k,2416)
8760 315224452 : lu(k,2419) = lu(k,2419) - lu(k,2124) * lu(k,2416)
8761 315224452 : lu(k,2420) = lu(k,2420) - lu(k,2125) * lu(k,2416)
8762 315224452 : lu(k,2421) = lu(k,2421) - lu(k,2126) * lu(k,2416)
8763 315224452 : lu(k,2422) = lu(k,2422) - lu(k,2127) * lu(k,2416)
8764 315224452 : lu(k,2444) = lu(k,2444) - lu(k,2122) * lu(k,2443)
8765 315224452 : lu(k,2445) = lu(k,2445) - lu(k,2123) * lu(k,2443)
8766 315224452 : lu(k,2446) = lu(k,2446) - lu(k,2124) * lu(k,2443)
8767 315224452 : lu(k,2447) = lu(k,2447) - lu(k,2125) * lu(k,2443)
8768 315224452 : lu(k,2448) = lu(k,2448) - lu(k,2126) * lu(k,2443)
8769 315224452 : lu(k,2449) = lu(k,2449) - lu(k,2127) * lu(k,2443)
8770 315224452 : lu(k,2168) = 1._r8 / lu(k,2168)
8771 315224452 : lu(k,2169) = lu(k,2169) * lu(k,2168)
8772 315224452 : lu(k,2170) = lu(k,2170) * lu(k,2168)
8773 315224452 : lu(k,2171) = lu(k,2171) * lu(k,2168)
8774 315224452 : lu(k,2172) = lu(k,2172) * lu(k,2168)
8775 315224452 : lu(k,2173) = lu(k,2173) * lu(k,2168)
8776 315224452 : lu(k,2233) = lu(k,2233) - lu(k,2169) * lu(k,2232)
8777 315224452 : lu(k,2234) = lu(k,2234) - lu(k,2170) * lu(k,2232)
8778 315224452 : lu(k,2235) = lu(k,2235) - lu(k,2171) * lu(k,2232)
8779 315224452 : lu(k,2236) = lu(k,2236) - lu(k,2172) * lu(k,2232)
8780 315224452 : lu(k,2237) = lu(k,2237) - lu(k,2173) * lu(k,2232)
8781 315224452 : lu(k,2258) = lu(k,2258) - lu(k,2169) * lu(k,2257)
8782 315224452 : lu(k,2259) = lu(k,2259) - lu(k,2170) * lu(k,2257)
8783 315224452 : lu(k,2260) = lu(k,2260) - lu(k,2171) * lu(k,2257)
8784 315224452 : lu(k,2261) = lu(k,2261) - lu(k,2172) * lu(k,2257)
8785 315224452 : lu(k,2262) = lu(k,2262) - lu(k,2173) * lu(k,2257)
8786 315224452 : lu(k,2366) = lu(k,2366) - lu(k,2169) * lu(k,2365)
8787 315224452 : lu(k,2367) = lu(k,2367) - lu(k,2170) * lu(k,2365)
8788 315224452 : lu(k,2368) = lu(k,2368) - lu(k,2171) * lu(k,2365)
8789 315224452 : lu(k,2369) = lu(k,2369) - lu(k,2172) * lu(k,2365)
8790 315224452 : lu(k,2370) = lu(k,2370) - lu(k,2173) * lu(k,2365)
8791 315224452 : lu(k,2418) = lu(k,2418) - lu(k,2169) * lu(k,2417)
8792 315224452 : lu(k,2419) = lu(k,2419) - lu(k,2170) * lu(k,2417)
8793 315224452 : lu(k,2420) = lu(k,2420) - lu(k,2171) * lu(k,2417)
8794 315224452 : lu(k,2421) = lu(k,2421) - lu(k,2172) * lu(k,2417)
8795 315224452 : lu(k,2422) = lu(k,2422) - lu(k,2173) * lu(k,2417)
8796 315224452 : lu(k,2445) = lu(k,2445) - lu(k,2169) * lu(k,2444)
8797 315224452 : lu(k,2446) = lu(k,2446) - lu(k,2170) * lu(k,2444)
8798 315224452 : lu(k,2447) = lu(k,2447) - lu(k,2171) * lu(k,2444)
8799 315224452 : lu(k,2448) = lu(k,2448) - lu(k,2172) * lu(k,2444)
8800 315224452 : lu(k,2449) = lu(k,2449) - lu(k,2173) * lu(k,2444)
8801 315224452 : lu(k,2233) = 1._r8 / lu(k,2233)
8802 315224452 : lu(k,2234) = lu(k,2234) * lu(k,2233)
8803 315224452 : lu(k,2235) = lu(k,2235) * lu(k,2233)
8804 315224452 : lu(k,2236) = lu(k,2236) * lu(k,2233)
8805 315224452 : lu(k,2237) = lu(k,2237) * lu(k,2233)
8806 315224452 : lu(k,2259) = lu(k,2259) - lu(k,2234) * lu(k,2258)
8807 315224452 : lu(k,2260) = lu(k,2260) - lu(k,2235) * lu(k,2258)
8808 315224452 : lu(k,2261) = lu(k,2261) - lu(k,2236) * lu(k,2258)
8809 315224452 : lu(k,2262) = lu(k,2262) - lu(k,2237) * lu(k,2258)
8810 315224452 : lu(k,2367) = lu(k,2367) - lu(k,2234) * lu(k,2366)
8811 315224452 : lu(k,2368) = lu(k,2368) - lu(k,2235) * lu(k,2366)
8812 315224452 : lu(k,2369) = lu(k,2369) - lu(k,2236) * lu(k,2366)
8813 315224452 : lu(k,2370) = lu(k,2370) - lu(k,2237) * lu(k,2366)
8814 315224452 : lu(k,2419) = lu(k,2419) - lu(k,2234) * lu(k,2418)
8815 315224452 : lu(k,2420) = lu(k,2420) - lu(k,2235) * lu(k,2418)
8816 315224452 : lu(k,2421) = lu(k,2421) - lu(k,2236) * lu(k,2418)
8817 315224452 : lu(k,2422) = lu(k,2422) - lu(k,2237) * lu(k,2418)
8818 315224452 : lu(k,2446) = lu(k,2446) - lu(k,2234) * lu(k,2445)
8819 315224452 : lu(k,2447) = lu(k,2447) - lu(k,2235) * lu(k,2445)
8820 315224452 : lu(k,2448) = lu(k,2448) - lu(k,2236) * lu(k,2445)
8821 315224452 : lu(k,2449) = lu(k,2449) - lu(k,2237) * lu(k,2445)
8822 315224452 : lu(k,2259) = 1._r8 / lu(k,2259)
8823 315224452 : lu(k,2260) = lu(k,2260) * lu(k,2259)
8824 315224452 : lu(k,2261) = lu(k,2261) * lu(k,2259)
8825 315224452 : lu(k,2262) = lu(k,2262) * lu(k,2259)
8826 315224452 : lu(k,2368) = lu(k,2368) - lu(k,2260) * lu(k,2367)
8827 315224452 : lu(k,2369) = lu(k,2369) - lu(k,2261) * lu(k,2367)
8828 315224452 : lu(k,2370) = lu(k,2370) - lu(k,2262) * lu(k,2367)
8829 315224452 : lu(k,2420) = lu(k,2420) - lu(k,2260) * lu(k,2419)
8830 315224452 : lu(k,2421) = lu(k,2421) - lu(k,2261) * lu(k,2419)
8831 315224452 : lu(k,2422) = lu(k,2422) - lu(k,2262) * lu(k,2419)
8832 315224452 : lu(k,2447) = lu(k,2447) - lu(k,2260) * lu(k,2446)
8833 315224452 : lu(k,2448) = lu(k,2448) - lu(k,2261) * lu(k,2446)
8834 315224452 : lu(k,2449) = lu(k,2449) - lu(k,2262) * lu(k,2446)
8835 315224452 : lu(k,2368) = 1._r8 / lu(k,2368)
8836 315224452 : lu(k,2369) = lu(k,2369) * lu(k,2368)
8837 315224452 : lu(k,2370) = lu(k,2370) * lu(k,2368)
8838 315224452 : lu(k,2421) = lu(k,2421) - lu(k,2369) * lu(k,2420)
8839 315224452 : lu(k,2422) = lu(k,2422) - lu(k,2370) * lu(k,2420)
8840 315224452 : lu(k,2448) = lu(k,2448) - lu(k,2369) * lu(k,2447)
8841 315224452 : lu(k,2449) = lu(k,2449) - lu(k,2370) * lu(k,2447)
8842 315224452 : lu(k,2421) = 1._r8 / lu(k,2421)
8843 315224452 : lu(k,2422) = lu(k,2422) * lu(k,2421)
8844 315224452 : lu(k,2449) = lu(k,2449) - lu(k,2422) * lu(k,2448)
8845 325174377 : lu(k,2449) = 1._r8 / lu(k,2449)
8846 : end do
8847 9949925 : end subroutine lu_fac32
8848 9949925 : subroutine lu_fac( avec_len, lu )
8849 : use chem_mods, only : nzcnt
8850 : use shr_kind_mod, only : r8 => shr_kind_r8
8851 : implicit none
8852 : !-----------------------------------------------------------------------
8853 : ! ... dummy args
8854 : !-----------------------------------------------------------------------
8855 : integer, intent(in) :: avec_len
8856 : real(r8), intent(inout) :: lu(veclen,nzcnt)
8857 9949925 : call lu_fac01( avec_len, lu )
8858 9949925 : call lu_fac02( avec_len, lu )
8859 9949925 : call lu_fac03( avec_len, lu )
8860 9949925 : call lu_fac04( avec_len, lu )
8861 9949925 : call lu_fac05( avec_len, lu )
8862 9949925 : call lu_fac06( avec_len, lu )
8863 9949925 : call lu_fac07( avec_len, lu )
8864 9949925 : call lu_fac08( avec_len, lu )
8865 9949925 : call lu_fac09( avec_len, lu )
8866 9949925 : call lu_fac10( avec_len, lu )
8867 9949925 : call lu_fac11( avec_len, lu )
8868 9949925 : call lu_fac12( avec_len, lu )
8869 9949925 : call lu_fac13( avec_len, lu )
8870 9949925 : call lu_fac14( avec_len, lu )
8871 9949925 : call lu_fac15( avec_len, lu )
8872 9949925 : call lu_fac16( avec_len, lu )
8873 9949925 : call lu_fac17( avec_len, lu )
8874 9949925 : call lu_fac18( avec_len, lu )
8875 9949925 : call lu_fac19( avec_len, lu )
8876 9949925 : call lu_fac20( avec_len, lu )
8877 9949925 : call lu_fac21( avec_len, lu )
8878 9949925 : call lu_fac22( avec_len, lu )
8879 9949925 : call lu_fac23( avec_len, lu )
8880 9949925 : call lu_fac24( avec_len, lu )
8881 9949925 : call lu_fac25( avec_len, lu )
8882 9949925 : call lu_fac26( avec_len, lu )
8883 9949925 : call lu_fac27( avec_len, lu )
8884 9949925 : call lu_fac28( avec_len, lu )
8885 9949925 : call lu_fac29( avec_len, lu )
8886 9949925 : call lu_fac30( avec_len, lu )
8887 9949925 : call lu_fac31( avec_len, lu )
8888 9949925 : call lu_fac32( avec_len, lu )
8889 9949925 : end subroutine lu_fac
8890 : end module mo_lu_factor
|