Line data Source code
1 : module mo_lu_factor
2 : use chem_mods, only: veclen
3 : private
4 : public :: lu_fac
5 : contains
6 4409738 : 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 145521354 : do k = 1,avec_len
20 141111616 : lu(k,1) = 1._r8 / lu(k,1)
21 141111616 : lu(k,2) = 1._r8 / lu(k,2)
22 141111616 : lu(k,3) = 1._r8 / lu(k,3)
23 141111616 : lu(k,4) = 1._r8 / lu(k,4)
24 141111616 : lu(k,5) = 1._r8 / lu(k,5)
25 141111616 : lu(k,6) = 1._r8 / lu(k,6)
26 141111616 : lu(k,12) = 1._r8 / lu(k,12)
27 141111616 : lu(k,18) = 1._r8 / lu(k,18)
28 141111616 : lu(k,24) = 1._r8 / lu(k,24)
29 141111616 : lu(k,30) = 1._r8 / lu(k,30)
30 141111616 : lu(k,36) = 1._r8 / lu(k,36)
31 141111616 : lu(k,38) = 1._r8 / lu(k,38)
32 141111616 : lu(k,44) = 1._r8 / lu(k,44)
33 141111616 : lu(k,50) = 1._r8 / lu(k,50)
34 141111616 : lu(k,56) = 1._r8 / lu(k,56)
35 141111616 : lu(k,57) = 1._r8 / lu(k,57)
36 141111616 : lu(k,58) = lu(k,58) * lu(k,57)
37 141111616 : lu(k,59) = lu(k,59) * lu(k,57)
38 141111616 : lu(k,1499) = lu(k,1499) - lu(k,58) * lu(k,1372)
39 141111616 : lu(k,1503) = lu(k,1503) - lu(k,59) * lu(k,1372)
40 141111616 : lu(k,60) = 1._r8 / lu(k,60)
41 141111616 : lu(k,61) = lu(k,61) * lu(k,60)
42 141111616 : lu(k,62) = lu(k,62) * lu(k,60)
43 141111616 : lu(k,1713) = lu(k,1713) - lu(k,61) * lu(k,1695)
44 141111616 : lu(k,1718) = lu(k,1718) - lu(k,62) * lu(k,1695)
45 141111616 : lu(k,63) = 1._r8 / lu(k,63)
46 141111616 : lu(k,64) = lu(k,64) * lu(k,63)
47 141111616 : lu(k,65) = lu(k,65) * lu(k,63)
48 141111616 : lu(k,1499) = lu(k,1499) - lu(k,64) * lu(k,1373)
49 141111616 : lu(k,1511) = lu(k,1511) - lu(k,65) * lu(k,1373)
50 141111616 : lu(k,66) = 1._r8 / lu(k,66)
51 141111616 : lu(k,67) = lu(k,67) * lu(k,66)
52 141111616 : lu(k,68) = lu(k,68) * lu(k,66)
53 141111616 : lu(k,69) = lu(k,69) * lu(k,66)
54 141111616 : lu(k,1454) = lu(k,1454) - lu(k,67) * lu(k,1374)
55 141111616 : lu(k,1499) = lu(k,1499) - lu(k,68) * lu(k,1374)
56 141111616 : lu(k,1511) = lu(k,1511) - lu(k,69) * lu(k,1374)
57 141111616 : lu(k,70) = 1._r8 / lu(k,70)
58 141111616 : lu(k,71) = lu(k,71) * lu(k,70)
59 141111616 : lu(k,72) = lu(k,72) * lu(k,70)
60 141111616 : lu(k,1337) = lu(k,1337) - lu(k,71) * lu(k,1334)
61 141111616 : lu(k,1344) = lu(k,1344) - lu(k,72) * lu(k,1334)
62 141111616 : lu(k,1452) = - lu(k,71) * lu(k,1375)
63 141111616 : lu(k,1498) = - lu(k,72) * lu(k,1375)
64 141111616 : lu(k,73) = 1._r8 / lu(k,73)
65 141111616 : lu(k,74) = lu(k,74) * lu(k,73)
66 141111616 : lu(k,75) = lu(k,75) * lu(k,73)
67 141111616 : lu(k,566) = lu(k,566) - lu(k,74) * lu(k,565)
68 141111616 : lu(k,569) = - lu(k,75) * lu(k,565)
69 141111616 : lu(k,1604) = - lu(k,74) * lu(k,1601)
70 141111616 : lu(k,1682) = lu(k,1682) - lu(k,75) * lu(k,1601)
71 141111616 : lu(k,76) = 1._r8 / lu(k,76)
72 141111616 : lu(k,77) = lu(k,77) * lu(k,76)
73 141111616 : lu(k,78) = lu(k,78) * lu(k,76)
74 141111616 : lu(k,175) = lu(k,175) - lu(k,77) * lu(k,174)
75 141111616 : lu(k,178) = lu(k,178) - lu(k,78) * lu(k,174)
76 141111616 : lu(k,2028) = lu(k,2028) - lu(k,77) * lu(k,2026)
77 141111616 : lu(k,2050) = lu(k,2050) - lu(k,78) * lu(k,2026)
78 141111616 : lu(k,79) = 1._r8 / lu(k,79)
79 141111616 : lu(k,80) = lu(k,80) * lu(k,79)
80 141111616 : lu(k,81) = lu(k,81) * lu(k,79)
81 141111616 : lu(k,597) = lu(k,597) - lu(k,80) * lu(k,595)
82 141111616 : lu(k,600) = lu(k,600) - lu(k,81) * lu(k,595)
83 141111616 : lu(k,1482) = lu(k,1482) - lu(k,80) * lu(k,1376)
84 141111616 : lu(k,1499) = lu(k,1499) - lu(k,81) * lu(k,1376)
85 141111616 : lu(k,82) = 1._r8 / lu(k,82)
86 141111616 : lu(k,83) = lu(k,83) * lu(k,82)
87 141111616 : lu(k,84) = lu(k,84) * lu(k,82)
88 141111616 : lu(k,408) = lu(k,408) - lu(k,83) * lu(k,407)
89 141111616 : lu(k,413) = lu(k,413) - lu(k,84) * lu(k,407)
90 141111616 : lu(k,1877) = lu(k,1877) - lu(k,83) * lu(k,1871)
91 141111616 : lu(k,1907) = lu(k,1907) - lu(k,84) * lu(k,1871)
92 141111616 : lu(k,85) = 1._r8 / lu(k,85)
93 141111616 : lu(k,86) = lu(k,86) * lu(k,85)
94 141111616 : lu(k,681) = lu(k,681) - lu(k,86) * lu(k,675)
95 141111616 : lu(k,833) = lu(k,833) - lu(k,86) * lu(k,824)
96 141111616 : lu(k,1718) = lu(k,1718) - lu(k,86) * lu(k,1696)
97 141111616 : lu(k,1932) = lu(k,1932) - lu(k,86) * lu(k,1912)
98 141111616 : lu(k,1966) = lu(k,1966) - lu(k,86) * lu(k,1935)
99 141111616 : lu(k,88) = 1._r8 / lu(k,88)
100 141111616 : lu(k,89) = lu(k,89) * lu(k,88)
101 141111616 : lu(k,90) = lu(k,90) * lu(k,88)
102 141111616 : lu(k,91) = lu(k,91) * lu(k,88)
103 141111616 : lu(k,92) = lu(k,92) * lu(k,88)
104 141111616 : lu(k,93) = lu(k,93) * lu(k,88)
105 141111616 : lu(k,1378) = lu(k,1378) - lu(k,89) * lu(k,1377)
106 141111616 : lu(k,1379) = lu(k,1379) - lu(k,90) * lu(k,1377)
107 141111616 : lu(k,1422) = lu(k,1422) - lu(k,91) * lu(k,1377)
108 141111616 : lu(k,1499) = lu(k,1499) - lu(k,92) * lu(k,1377)
109 145521354 : lu(k,1503) = lu(k,1503) - lu(k,93) * lu(k,1377)
110 : end do
111 4409738 : end subroutine lu_fac01
112 4409738 : subroutine lu_fac02( avec_len, lu )
113 : use chem_mods, only : nzcnt
114 : use shr_kind_mod, only : r8 => shr_kind_r8
115 : implicit none
116 : !-----------------------------------------------------------------------
117 : ! ... dummy args
118 : !-----------------------------------------------------------------------
119 : integer, intent(in) :: avec_len
120 : real(r8), intent(inout) :: lu(veclen,nzcnt)
121 : !-----------------------------------------------------------------------
122 : ! ... local variables
123 : !-----------------------------------------------------------------------
124 : integer :: k
125 145521354 : do k = 1,avec_len
126 141111616 : lu(k,94) = 1._r8 / lu(k,94)
127 141111616 : lu(k,95) = lu(k,95) * lu(k,94)
128 141111616 : lu(k,96) = lu(k,96) * lu(k,94)
129 141111616 : lu(k,97) = lu(k,97) * lu(k,94)
130 141111616 : lu(k,1418) = - lu(k,95) * lu(k,1378)
131 141111616 : lu(k,1475) = lu(k,1475) - lu(k,96) * lu(k,1378)
132 141111616 : lu(k,1503) = lu(k,1503) - lu(k,97) * lu(k,1378)
133 141111616 : lu(k,98) = 1._r8 / lu(k,98)
134 141111616 : lu(k,99) = lu(k,99) * lu(k,98)
135 141111616 : lu(k,100) = lu(k,100) * lu(k,98)
136 141111616 : lu(k,101) = lu(k,101) * lu(k,98)
137 141111616 : lu(k,102) = lu(k,102) * lu(k,98)
138 141111616 : lu(k,1417) = lu(k,1417) - lu(k,99) * lu(k,1379)
139 141111616 : lu(k,1420) = lu(k,1420) - lu(k,100) * lu(k,1379)
140 141111616 : lu(k,1499) = lu(k,1499) - lu(k,101) * lu(k,1379)
141 141111616 : lu(k,1503) = lu(k,1503) - lu(k,102) * lu(k,1379)
142 141111616 : lu(k,103) = 1._r8 / lu(k,103)
143 141111616 : lu(k,104) = lu(k,104) * lu(k,103)
144 141111616 : lu(k,105) = lu(k,105) * lu(k,103)
145 141111616 : lu(k,106) = lu(k,106) * lu(k,103)
146 141111616 : lu(k,1337) = lu(k,1337) - lu(k,104) * lu(k,1335)
147 141111616 : lu(k,1344) = lu(k,1344) - lu(k,105) * lu(k,1335)
148 141111616 : lu(k,1355) = lu(k,1355) - lu(k,106) * lu(k,1335)
149 141111616 : lu(k,1452) = lu(k,1452) - lu(k,104) * lu(k,1380)
150 141111616 : lu(k,1498) = lu(k,1498) - lu(k,105) * lu(k,1380)
151 141111616 : lu(k,1509) = lu(k,1509) - lu(k,106) * lu(k,1380)
152 141111616 : lu(k,107) = 1._r8 / lu(k,107)
153 141111616 : lu(k,108) = lu(k,108) * lu(k,107)
154 141111616 : lu(k,109) = lu(k,109) * lu(k,107)
155 141111616 : lu(k,110) = lu(k,110) * lu(k,107)
156 141111616 : lu(k,1344) = lu(k,1344) - lu(k,108) * lu(k,1336)
157 141111616 : lu(k,1345) = lu(k,1345) - lu(k,109) * lu(k,1336)
158 141111616 : lu(k,1349) = lu(k,1349) - lu(k,110) * lu(k,1336)
159 141111616 : lu(k,1498) = lu(k,1498) - lu(k,108) * lu(k,1381)
160 141111616 : lu(k,1499) = lu(k,1499) - lu(k,109) * lu(k,1381)
161 141111616 : lu(k,1503) = lu(k,1503) - lu(k,110) * lu(k,1381)
162 141111616 : lu(k,112) = 1._r8 / lu(k,112)
163 141111616 : lu(k,113) = lu(k,113) * lu(k,112)
164 141111616 : lu(k,114) = lu(k,114) * lu(k,112)
165 141111616 : lu(k,115) = lu(k,115) * lu(k,112)
166 141111616 : lu(k,116) = lu(k,116) * lu(k,112)
167 141111616 : lu(k,117) = lu(k,117) * lu(k,112)
168 141111616 : lu(k,118) = lu(k,118) * lu(k,112)
169 141111616 : lu(k,1383) = lu(k,1383) - lu(k,113) * lu(k,1382)
170 141111616 : lu(k,1384) = lu(k,1384) - lu(k,114) * lu(k,1382)
171 141111616 : lu(k,1416) = lu(k,1416) - lu(k,115) * lu(k,1382)
172 141111616 : lu(k,1447) = lu(k,1447) - lu(k,116) * lu(k,1382)
173 141111616 : lu(k,1499) = lu(k,1499) - lu(k,117) * lu(k,1382)
174 141111616 : lu(k,1503) = lu(k,1503) - lu(k,118) * lu(k,1382)
175 141111616 : lu(k,119) = 1._r8 / lu(k,119)
176 141111616 : lu(k,120) = lu(k,120) * lu(k,119)
177 141111616 : lu(k,121) = lu(k,121) * lu(k,119)
178 141111616 : lu(k,122) = lu(k,122) * lu(k,119)
179 141111616 : lu(k,123) = lu(k,123) * lu(k,119)
180 141111616 : lu(k,1417) = lu(k,1417) - lu(k,120) * lu(k,1383)
181 141111616 : lu(k,1420) = lu(k,1420) - lu(k,121) * lu(k,1383)
182 141111616 : lu(k,1499) = lu(k,1499) - lu(k,122) * lu(k,1383)
183 141111616 : lu(k,1503) = lu(k,1503) - lu(k,123) * lu(k,1383)
184 141111616 : lu(k,124) = 1._r8 / lu(k,124)
185 141111616 : lu(k,125) = lu(k,125) * lu(k,124)
186 141111616 : lu(k,126) = lu(k,126) * lu(k,124)
187 141111616 : lu(k,127) = lu(k,127) * lu(k,124)
188 141111616 : lu(k,137) = - lu(k,125) * lu(k,132)
189 141111616 : lu(k,138) = - lu(k,126) * lu(k,132)
190 141111616 : lu(k,140) = lu(k,140) - lu(k,127) * lu(k,132)
191 141111616 : lu(k,1475) = lu(k,1475) - lu(k,125) * lu(k,1384)
192 141111616 : lu(k,1493) = lu(k,1493) - lu(k,126) * lu(k,1384)
193 141111616 : lu(k,1503) = lu(k,1503) - lu(k,127) * lu(k,1384)
194 141111616 : lu(k,128) = 1._r8 / lu(k,128)
195 141111616 : lu(k,129) = lu(k,129) * lu(k,128)
196 141111616 : lu(k,130) = lu(k,130) * lu(k,128)
197 141111616 : lu(k,1011) = lu(k,1011) - lu(k,129) * lu(k,1005)
198 141111616 : lu(k,1016) = - lu(k,130) * lu(k,1005)
199 141111616 : lu(k,1482) = lu(k,1482) - lu(k,129) * lu(k,1385)
200 141111616 : lu(k,1499) = lu(k,1499) - lu(k,130) * lu(k,1385)
201 141111616 : lu(k,1666) = lu(k,1666) - lu(k,129) * lu(k,1602)
202 141111616 : lu(k,1682) = lu(k,1682) - lu(k,130) * lu(k,1602)
203 141111616 : lu(k,133) = 1._r8 / lu(k,133)
204 141111616 : lu(k,134) = lu(k,134) * lu(k,133)
205 141111616 : lu(k,135) = lu(k,135) * lu(k,133)
206 141111616 : lu(k,136) = lu(k,136) * lu(k,133)
207 141111616 : lu(k,137) = lu(k,137) * lu(k,133)
208 141111616 : lu(k,138) = lu(k,138) * lu(k,133)
209 141111616 : lu(k,139) = lu(k,139) * lu(k,133)
210 141111616 : lu(k,140) = lu(k,140) * lu(k,133)
211 141111616 : lu(k,1387) = lu(k,1387) - lu(k,134) * lu(k,1386)
212 141111616 : lu(k,1416) = lu(k,1416) - lu(k,135) * lu(k,1386)
213 141111616 : lu(k,1449) = lu(k,1449) - lu(k,136) * lu(k,1386)
214 141111616 : lu(k,1475) = lu(k,1475) - lu(k,137) * lu(k,1386)
215 141111616 : lu(k,1493) = lu(k,1493) - lu(k,138) * lu(k,1386)
216 141111616 : lu(k,1499) = lu(k,1499) - lu(k,139) * lu(k,1386)
217 141111616 : lu(k,1503) = lu(k,1503) - lu(k,140) * lu(k,1386)
218 141111616 : lu(k,141) = 1._r8 / lu(k,141)
219 141111616 : lu(k,142) = lu(k,142) * lu(k,141)
220 141111616 : lu(k,143) = lu(k,143) * lu(k,141)
221 141111616 : lu(k,144) = lu(k,144) * lu(k,141)
222 141111616 : lu(k,145) = lu(k,145) * lu(k,141)
223 141111616 : lu(k,1420) = lu(k,1420) - lu(k,142) * lu(k,1387)
224 141111616 : lu(k,1423) = lu(k,1423) - lu(k,143) * lu(k,1387)
225 141111616 : lu(k,1499) = lu(k,1499) - lu(k,144) * lu(k,1387)
226 145521354 : lu(k,1503) = lu(k,1503) - lu(k,145) * lu(k,1387)
227 : end do
228 4409738 : end subroutine lu_fac02
229 4409738 : subroutine lu_fac03( avec_len, lu )
230 : use chem_mods, only : nzcnt
231 : use shr_kind_mod, only : r8 => shr_kind_r8
232 : implicit none
233 : !-----------------------------------------------------------------------
234 : ! ... dummy args
235 : !-----------------------------------------------------------------------
236 : integer, intent(in) :: avec_len
237 : real(r8), intent(inout) :: lu(veclen,nzcnt)
238 : !-----------------------------------------------------------------------
239 : ! ... local variables
240 : !-----------------------------------------------------------------------
241 : integer :: k
242 145521354 : do k = 1,avec_len
243 141111616 : lu(k,146) = 1._r8 / lu(k,146)
244 141111616 : lu(k,147) = lu(k,147) * lu(k,146)
245 141111616 : lu(k,148) = lu(k,148) * lu(k,146)
246 141111616 : lu(k,639) = lu(k,639) - lu(k,147) * lu(k,638)
247 141111616 : lu(k,642) = lu(k,642) - lu(k,148) * lu(k,638)
248 141111616 : lu(k,1023) = lu(k,1023) - lu(k,147) * lu(k,1022)
249 141111616 : lu(k,1026) = lu(k,1026) - lu(k,148) * lu(k,1022)
250 141111616 : lu(k,1258) = lu(k,1258) - lu(k,147) * lu(k,1257)
251 141111616 : lu(k,1261) = - lu(k,148) * lu(k,1257)
252 141111616 : lu(k,2029) = lu(k,2029) - lu(k,147) * lu(k,2027)
253 141111616 : lu(k,2035) = lu(k,2035) - lu(k,148) * lu(k,2027)
254 141111616 : lu(k,149) = 1._r8 / lu(k,149)
255 141111616 : lu(k,150) = lu(k,150) * lu(k,149)
256 141111616 : lu(k,151) = lu(k,151) * lu(k,149)
257 141111616 : lu(k,152) = lu(k,152) * lu(k,149)
258 141111616 : lu(k,153) = lu(k,153) * lu(k,149)
259 141111616 : lu(k,1099) = - lu(k,150) * lu(k,1096)
260 141111616 : lu(k,1110) = - lu(k,151) * lu(k,1096)
261 141111616 : lu(k,1121) = - lu(k,152) * lu(k,1096)
262 141111616 : lu(k,1123) = lu(k,1123) - lu(k,153) * lu(k,1096)
263 141111616 : lu(k,1438) = - lu(k,150) * lu(k,1388)
264 141111616 : lu(k,1482) = lu(k,1482) - lu(k,151) * lu(k,1388)
265 141111616 : lu(k,1499) = lu(k,1499) - lu(k,152) * lu(k,1388)
266 141111616 : lu(k,1503) = lu(k,1503) - lu(k,153) * lu(k,1388)
267 141111616 : lu(k,154) = 1._r8 / lu(k,154)
268 141111616 : lu(k,155) = lu(k,155) * lu(k,154)
269 141111616 : lu(k,156) = lu(k,156) * lu(k,154)
270 141111616 : lu(k,760) = - lu(k,155) * lu(k,755)
271 141111616 : lu(k,770) = lu(k,770) - lu(k,156) * lu(k,755)
272 141111616 : lu(k,787) = - lu(k,155) * lu(k,782)
273 141111616 : lu(k,797) = lu(k,797) - lu(k,156) * lu(k,782)
274 141111616 : lu(k,1466) = lu(k,1466) - lu(k,155) * lu(k,1389)
275 141111616 : lu(k,1499) = lu(k,1499) - lu(k,156) * lu(k,1389)
276 141111616 : lu(k,1830) = - lu(k,155) * lu(k,1816)
277 141111616 : lu(k,1858) = lu(k,1858) - lu(k,156) * lu(k,1816)
278 141111616 : lu(k,157) = 1._r8 / lu(k,157)
279 141111616 : lu(k,158) = lu(k,158) * lu(k,157)
280 141111616 : lu(k,159) = lu(k,159) * lu(k,157)
281 141111616 : lu(k,241) = - lu(k,158) * lu(k,238)
282 141111616 : lu(k,242) = lu(k,242) - lu(k,159) * lu(k,238)
283 141111616 : lu(k,334) = - lu(k,158) * lu(k,331)
284 141111616 : lu(k,335) = - lu(k,159) * lu(k,331)
285 141111616 : lu(k,1427) = lu(k,1427) - lu(k,158) * lu(k,1390)
286 141111616 : lu(k,1499) = lu(k,1499) - lu(k,159) * lu(k,1390)
287 141111616 : lu(k,1748) = lu(k,1748) - lu(k,158) * lu(k,1733)
288 141111616 : lu(k,1798) = lu(k,1798) - lu(k,159) * lu(k,1733)
289 141111616 : lu(k,160) = 1._r8 / lu(k,160)
290 141111616 : lu(k,161) = lu(k,161) * lu(k,160)
291 141111616 : lu(k,162) = lu(k,162) * lu(k,160)
292 141111616 : lu(k,916) = lu(k,916) - lu(k,161) * lu(k,907)
293 141111616 : lu(k,922) = lu(k,922) - lu(k,162) * lu(k,907)
294 141111616 : lu(k,963) = - lu(k,161) * lu(k,953)
295 141111616 : lu(k,970) = lu(k,970) - lu(k,162) * lu(k,953)
296 141111616 : lu(k,1495) = lu(k,1495) - lu(k,161) * lu(k,1391)
297 141111616 : lu(k,1507) = lu(k,1507) - lu(k,162) * lu(k,1391)
298 141111616 : lu(k,1794) = - lu(k,161) * lu(k,1734)
299 141111616 : lu(k,1806) = lu(k,1806) - lu(k,162) * lu(k,1734)
300 141111616 : lu(k,163) = 1._r8 / lu(k,163)
301 141111616 : lu(k,164) = lu(k,164) * lu(k,163)
302 141111616 : lu(k,165) = lu(k,165) * lu(k,163)
303 141111616 : lu(k,649) = lu(k,649) - lu(k,164) * lu(k,647)
304 141111616 : lu(k,654) = - lu(k,165) * lu(k,647)
305 141111616 : lu(k,1518) = lu(k,1518) - lu(k,164) * lu(k,1512)
306 141111616 : lu(k,1533) = lu(k,1533) - lu(k,165) * lu(k,1512)
307 141111616 : lu(k,1703) = lu(k,1703) - lu(k,164) * lu(k,1697)
308 141111616 : lu(k,1718) = lu(k,1718) - lu(k,165) * lu(k,1697)
309 141111616 : lu(k,1917) = - lu(k,164) * lu(k,1913)
310 141111616 : lu(k,1932) = lu(k,1932) - lu(k,165) * lu(k,1913)
311 141111616 : lu(k,166) = 1._r8 / lu(k,166)
312 141111616 : lu(k,167) = lu(k,167) * lu(k,166)
313 141111616 : lu(k,168) = lu(k,168) * lu(k,166)
314 141111616 : lu(k,169) = lu(k,169) * lu(k,166)
315 141111616 : lu(k,687) = lu(k,687) - lu(k,167) * lu(k,683)
316 141111616 : lu(k,689) = - lu(k,168) * lu(k,683)
317 141111616 : lu(k,691) = lu(k,691) - lu(k,169) * lu(k,683)
318 141111616 : lu(k,1301) = lu(k,1301) - lu(k,167) * lu(k,1285)
319 141111616 : lu(k,1322) = - lu(k,168) * lu(k,1285)
320 141111616 : lu(k,1325) = lu(k,1325) - lu(k,169) * lu(k,1285)
321 141111616 : lu(k,1474) = lu(k,1474) - lu(k,167) * lu(k,1392)
322 141111616 : lu(k,1499) = lu(k,1499) - lu(k,168) * lu(k,1392)
323 141111616 : lu(k,1503) = lu(k,1503) - lu(k,169) * lu(k,1392)
324 141111616 : lu(k,170) = 1._r8 / lu(k,170)
325 141111616 : lu(k,171) = lu(k,171) * lu(k,170)
326 141111616 : lu(k,172) = lu(k,172) * lu(k,170)
327 141111616 : lu(k,173) = lu(k,173) * lu(k,170)
328 141111616 : lu(k,513) = lu(k,513) - lu(k,171) * lu(k,512)
329 141111616 : lu(k,514) = lu(k,514) - lu(k,172) * lu(k,512)
330 141111616 : lu(k,515) = - lu(k,173) * lu(k,512)
331 141111616 : lu(k,1420) = lu(k,1420) - lu(k,171) * lu(k,1393)
332 141111616 : lu(k,1440) = lu(k,1440) - lu(k,172) * lu(k,1393)
333 141111616 : lu(k,1499) = lu(k,1499) - lu(k,173) * lu(k,1393)
334 141111616 : lu(k,1622) = - lu(k,171) * lu(k,1603)
335 141111616 : lu(k,1634) = lu(k,1634) - lu(k,172) * lu(k,1603)
336 141111616 : lu(k,1682) = lu(k,1682) - lu(k,173) * lu(k,1603)
337 141111616 : lu(k,175) = 1._r8 / lu(k,175)
338 141111616 : lu(k,176) = lu(k,176) * lu(k,175)
339 141111616 : lu(k,177) = lu(k,177) * lu(k,175)
340 141111616 : lu(k,178) = lu(k,178) * lu(k,175)
341 141111616 : lu(k,723) = lu(k,723) - lu(k,176) * lu(k,722)
342 141111616 : lu(k,726) = lu(k,726) - lu(k,177) * lu(k,722)
343 141111616 : lu(k,728) = - lu(k,178) * lu(k,722)
344 141111616 : lu(k,1460) = lu(k,1460) - lu(k,176) * lu(k,1394)
345 141111616 : lu(k,1502) = lu(k,1502) - lu(k,177) * lu(k,1394)
346 141111616 : lu(k,1511) = lu(k,1511) - lu(k,178) * lu(k,1394)
347 141111616 : lu(k,2030) = - lu(k,176) * lu(k,2028)
348 141111616 : lu(k,2041) = lu(k,2041) - lu(k,177) * lu(k,2028)
349 145521354 : lu(k,2050) = lu(k,2050) - lu(k,178) * lu(k,2028)
350 : end do
351 4409738 : end subroutine lu_fac03
352 4409738 : subroutine lu_fac04( avec_len, lu )
353 : use chem_mods, only : nzcnt
354 : use shr_kind_mod, only : r8 => shr_kind_r8
355 : implicit none
356 : !-----------------------------------------------------------------------
357 : ! ... dummy args
358 : !-----------------------------------------------------------------------
359 : integer, intent(in) :: avec_len
360 : real(r8), intent(inout) :: lu(veclen,nzcnt)
361 : !-----------------------------------------------------------------------
362 : ! ... local variables
363 : !-----------------------------------------------------------------------
364 : integer :: k
365 145521354 : do k = 1,avec_len
366 141111616 : lu(k,179) = 1._r8 / lu(k,179)
367 141111616 : lu(k,180) = lu(k,180) * lu(k,179)
368 141111616 : lu(k,181) = lu(k,181) * lu(k,179)
369 141111616 : lu(k,182) = lu(k,182) * lu(k,179)
370 141111616 : lu(k,568) = - lu(k,180) * lu(k,566)
371 141111616 : lu(k,570) = lu(k,570) - lu(k,181) * lu(k,566)
372 141111616 : lu(k,571) = lu(k,571) - lu(k,182) * lu(k,566)
373 141111616 : lu(k,1657) = - lu(k,180) * lu(k,1604)
374 141111616 : lu(k,1684) = lu(k,1684) - lu(k,181) * lu(k,1604)
375 141111616 : lu(k,1686) = lu(k,1686) - lu(k,182) * lu(k,1604)
376 141111616 : lu(k,1772) = lu(k,1772) - lu(k,180) * lu(k,1735)
377 141111616 : lu(k,1800) = lu(k,1800) - lu(k,181) * lu(k,1735)
378 141111616 : lu(k,1802) = lu(k,1802) - lu(k,182) * lu(k,1735)
379 141111616 : lu(k,183) = 1._r8 / lu(k,183)
380 141111616 : lu(k,184) = lu(k,184) * lu(k,183)
381 141111616 : lu(k,185) = lu(k,185) * lu(k,183)
382 141111616 : lu(k,186) = lu(k,186) * lu(k,183)
383 141111616 : lu(k,187) = lu(k,187) * lu(k,183)
384 141111616 : lu(k,188) = lu(k,188) * lu(k,183)
385 141111616 : lu(k,1460) = lu(k,1460) - lu(k,184) * lu(k,1395)
386 141111616 : lu(k,1495) = lu(k,1495) - lu(k,185) * lu(k,1395)
387 141111616 : lu(k,1499) = lu(k,1499) - lu(k,186) * lu(k,1395)
388 141111616 : lu(k,1503) = lu(k,1503) - lu(k,187) * lu(k,1395)
389 141111616 : lu(k,1510) = lu(k,1510) - lu(k,188) * lu(k,1395)
390 141111616 : lu(k,1977) = lu(k,1977) - lu(k,184) * lu(k,1971)
391 141111616 : lu(k,2009) = lu(k,2009) - lu(k,185) * lu(k,1971)
392 141111616 : lu(k,2013) = lu(k,2013) - lu(k,186) * lu(k,1971)
393 141111616 : lu(k,2017) = lu(k,2017) - lu(k,187) * lu(k,1971)
394 141111616 : lu(k,2024) = lu(k,2024) - lu(k,188) * lu(k,1971)
395 141111616 : lu(k,189) = 1._r8 / lu(k,189)
396 141111616 : lu(k,190) = lu(k,190) * lu(k,189)
397 141111616 : lu(k,191) = lu(k,191) * lu(k,189)
398 141111616 : lu(k,192) = lu(k,192) * lu(k,189)
399 141111616 : lu(k,193) = lu(k,193) * lu(k,189)
400 141111616 : lu(k,194) = lu(k,194) * lu(k,189)
401 141111616 : lu(k,1895) = lu(k,1895) - lu(k,190) * lu(k,1872)
402 141111616 : lu(k,1902) = lu(k,1902) - lu(k,191) * lu(k,1872)
403 141111616 : lu(k,1905) = lu(k,1905) - lu(k,192) * lu(k,1872)
404 141111616 : lu(k,1907) = lu(k,1907) - lu(k,193) * lu(k,1872)
405 141111616 : lu(k,1910) = lu(k,1910) - lu(k,194) * lu(k,1872)
406 141111616 : lu(k,2009) = lu(k,2009) - lu(k,190) * lu(k,1972)
407 141111616 : lu(k,2016) = lu(k,2016) - lu(k,191) * lu(k,1972)
408 141111616 : lu(k,2019) = lu(k,2019) - lu(k,192) * lu(k,1972)
409 141111616 : lu(k,2021) = lu(k,2021) - lu(k,193) * lu(k,1972)
410 141111616 : lu(k,2024) = lu(k,2024) - lu(k,194) * lu(k,1972)
411 141111616 : lu(k,195) = 1._r8 / lu(k,195)
412 141111616 : lu(k,196) = lu(k,196) * lu(k,195)
413 141111616 : lu(k,197) = lu(k,197) * lu(k,195)
414 141111616 : lu(k,198) = lu(k,198) * lu(k,195)
415 141111616 : lu(k,199) = lu(k,199) * lu(k,195)
416 141111616 : lu(k,200) = lu(k,200) * lu(k,195)
417 141111616 : lu(k,1457) = lu(k,1457) - lu(k,196) * lu(k,1396)
418 141111616 : lu(k,1499) = lu(k,1499) - lu(k,197) * lu(k,1396)
419 141111616 : lu(k,1508) = lu(k,1508) - lu(k,198) * lu(k,1396)
420 141111616 : lu(k,1509) = lu(k,1509) - lu(k,199) * lu(k,1396)
421 141111616 : lu(k,1511) = lu(k,1511) - lu(k,200) * lu(k,1396)
422 141111616 : lu(k,1943) = lu(k,1943) - lu(k,196) * lu(k,1936)
423 141111616 : lu(k,1956) = lu(k,1956) - lu(k,197) * lu(k,1936)
424 141111616 : lu(k,1965) = lu(k,1965) - lu(k,198) * lu(k,1936)
425 141111616 : lu(k,1966) = lu(k,1966) - lu(k,199) * lu(k,1936)
426 141111616 : lu(k,1968) = - lu(k,200) * lu(k,1936)
427 141111616 : lu(k,201) = 1._r8 / lu(k,201)
428 141111616 : lu(k,202) = lu(k,202) * lu(k,201)
429 141111616 : lu(k,203) = lu(k,203) * lu(k,201)
430 141111616 : lu(k,204) = lu(k,204) * lu(k,201)
431 141111616 : lu(k,205) = lu(k,205) * lu(k,201)
432 141111616 : lu(k,206) = lu(k,206) * lu(k,201)
433 141111616 : lu(k,1455) = lu(k,1455) - lu(k,202) * lu(k,1397)
434 141111616 : lu(k,1462) = lu(k,1462) - lu(k,203) * lu(k,1397)
435 141111616 : lu(k,1475) = lu(k,1475) - lu(k,204) * lu(k,1397)
436 141111616 : lu(k,1499) = lu(k,1499) - lu(k,205) * lu(k,1397)
437 141111616 : lu(k,1503) = lu(k,1503) - lu(k,206) * lu(k,1397)
438 141111616 : lu(k,1941) = - lu(k,202) * lu(k,1937)
439 141111616 : lu(k,1944) = - lu(k,203) * lu(k,1937)
440 141111616 : lu(k,1948) = lu(k,1948) - lu(k,204) * lu(k,1937)
441 141111616 : lu(k,1956) = lu(k,1956) - lu(k,205) * lu(k,1937)
442 141111616 : lu(k,1960) = lu(k,1960) - lu(k,206) * lu(k,1937)
443 141111616 : lu(k,207) = 1._r8 / lu(k,207)
444 141111616 : lu(k,208) = lu(k,208) * lu(k,207)
445 141111616 : lu(k,209) = lu(k,209) * lu(k,207)
446 141111616 : lu(k,497) = - lu(k,208) * lu(k,491)
447 141111616 : lu(k,501) = lu(k,501) - lu(k,209) * lu(k,491)
448 141111616 : lu(k,557) = - lu(k,208) * lu(k,550)
449 141111616 : lu(k,564) = lu(k,564) - lu(k,209) * lu(k,550)
450 141111616 : lu(k,586) = - lu(k,208) * lu(k,580)
451 141111616 : lu(k,592) = lu(k,592) - lu(k,209) * lu(k,580)
452 141111616 : lu(k,610) = - lu(k,208) * lu(k,603)
453 141111616 : lu(k,617) = lu(k,617) - lu(k,209) * lu(k,603)
454 141111616 : lu(k,1761) = lu(k,1761) - lu(k,208) * lu(k,1736)
455 141111616 : lu(k,1802) = lu(k,1802) - lu(k,209) * lu(k,1736)
456 141111616 : lu(k,210) = 1._r8 / lu(k,210)
457 141111616 : lu(k,211) = lu(k,211) * lu(k,210)
458 141111616 : lu(k,212) = lu(k,212) * lu(k,210)
459 141111616 : lu(k,1110) = lu(k,1110) - lu(k,211) * lu(k,1097)
460 141111616 : lu(k,1121) = lu(k,1121) - lu(k,212) * lu(k,1097)
461 141111616 : lu(k,1224) = lu(k,1224) - lu(k,211) * lu(k,1215)
462 141111616 : lu(k,1237) = lu(k,1237) - lu(k,212) * lu(k,1215)
463 141111616 : lu(k,1308) = lu(k,1308) - lu(k,211) * lu(k,1286)
464 141111616 : lu(k,1322) = lu(k,1322) - lu(k,212) * lu(k,1286)
465 141111616 : lu(k,1482) = lu(k,1482) - lu(k,211) * lu(k,1398)
466 141111616 : lu(k,1499) = lu(k,1499) - lu(k,212) * lu(k,1398)
467 141111616 : lu(k,1783) = lu(k,1783) - lu(k,211) * lu(k,1737)
468 141111616 : lu(k,1798) = lu(k,1798) - lu(k,212) * lu(k,1737)
469 141111616 : lu(k,1997) = lu(k,1997) - lu(k,211) * lu(k,1973)
470 141111616 : lu(k,2013) = lu(k,2013) - lu(k,212) * lu(k,1973)
471 141111616 : lu(k,213) = 1._r8 / lu(k,213)
472 141111616 : lu(k,214) = lu(k,214) * lu(k,213)
473 141111616 : lu(k,215) = lu(k,215) * lu(k,213)
474 141111616 : lu(k,216) = lu(k,216) * lu(k,213)
475 141111616 : lu(k,217) = lu(k,217) * lu(k,213)
476 141111616 : lu(k,686) = lu(k,686) - lu(k,214) * lu(k,684)
477 141111616 : lu(k,687) = lu(k,687) - lu(k,215) * lu(k,684)
478 141111616 : lu(k,689) = lu(k,689) - lu(k,216) * lu(k,684)
479 141111616 : lu(k,691) = lu(k,691) - lu(k,217) * lu(k,684)
480 141111616 : lu(k,1457) = lu(k,1457) - lu(k,214) * lu(k,1399)
481 141111616 : lu(k,1474) = lu(k,1474) - lu(k,215) * lu(k,1399)
482 141111616 : lu(k,1499) = lu(k,1499) - lu(k,216) * lu(k,1399)
483 141111616 : lu(k,1503) = lu(k,1503) - lu(k,217) * lu(k,1399)
484 141111616 : lu(k,1649) = lu(k,1649) - lu(k,214) * lu(k,1605)
485 141111616 : lu(k,1659) = lu(k,1659) - lu(k,215) * lu(k,1605)
486 141111616 : lu(k,1682) = lu(k,1682) - lu(k,216) * lu(k,1605)
487 141111616 : lu(k,1686) = lu(k,1686) - lu(k,217) * lu(k,1605)
488 141111616 : lu(k,218) = 1._r8 / lu(k,218)
489 141111616 : lu(k,219) = lu(k,219) * lu(k,218)
490 141111616 : lu(k,220) = lu(k,220) * lu(k,218)
491 141111616 : lu(k,221) = lu(k,221) * lu(k,218)
492 141111616 : lu(k,222) = lu(k,222) * lu(k,218)
493 141111616 : lu(k,1157) = lu(k,1157) - lu(k,219) * lu(k,1149)
494 141111616 : lu(k,1158) = - lu(k,220) * lu(k,1149)
495 141111616 : lu(k,1163) = - lu(k,221) * lu(k,1149)
496 141111616 : lu(k,1165) = lu(k,1165) - lu(k,222) * lu(k,1149)
497 141111616 : lu(k,1490) = lu(k,1490) - lu(k,219) * lu(k,1400)
498 141111616 : lu(k,1492) = lu(k,1492) - lu(k,220) * lu(k,1400)
499 141111616 : lu(k,1499) = lu(k,1499) - lu(k,221) * lu(k,1400)
500 141111616 : lu(k,1503) = lu(k,1503) - lu(k,222) * lu(k,1400)
501 141111616 : lu(k,1673) = lu(k,1673) - lu(k,219) * lu(k,1606)
502 141111616 : lu(k,1675) = lu(k,1675) - lu(k,220) * lu(k,1606)
503 141111616 : lu(k,1682) = lu(k,1682) - lu(k,221) * lu(k,1606)
504 145521354 : lu(k,1686) = lu(k,1686) - lu(k,222) * lu(k,1606)
505 : end do
506 4409738 : end subroutine lu_fac04
507 4409738 : subroutine lu_fac05( avec_len, lu )
508 : use chem_mods, only : nzcnt
509 : use shr_kind_mod, only : r8 => shr_kind_r8
510 : implicit none
511 : !-----------------------------------------------------------------------
512 : ! ... dummy args
513 : !-----------------------------------------------------------------------
514 : integer, intent(in) :: avec_len
515 : real(r8), intent(inout) :: lu(veclen,nzcnt)
516 : !-----------------------------------------------------------------------
517 : ! ... local variables
518 : !-----------------------------------------------------------------------
519 : integer :: k
520 145521354 : do k = 1,avec_len
521 141111616 : lu(k,223) = 1._r8 / lu(k,223)
522 141111616 : lu(k,224) = lu(k,224) * lu(k,223)
523 141111616 : lu(k,225) = lu(k,225) * lu(k,223)
524 141111616 : lu(k,226) = lu(k,226) * lu(k,223)
525 141111616 : lu(k,227) = lu(k,227) * lu(k,223)
526 141111616 : lu(k,543) = lu(k,543) - lu(k,224) * lu(k,542)
527 141111616 : lu(k,544) = lu(k,544) - lu(k,225) * lu(k,542)
528 141111616 : lu(k,545) = lu(k,545) - lu(k,226) * lu(k,542)
529 141111616 : lu(k,546) = lu(k,546) - lu(k,227) * lu(k,542)
530 141111616 : lu(k,1443) = lu(k,1443) - lu(k,224) * lu(k,1401)
531 141111616 : lu(k,1474) = lu(k,1474) - lu(k,225) * lu(k,1401)
532 141111616 : lu(k,1493) = lu(k,1493) - lu(k,226) * lu(k,1401)
533 141111616 : lu(k,1499) = lu(k,1499) - lu(k,227) * lu(k,1401)
534 141111616 : lu(k,1636) = lu(k,1636) - lu(k,224) * lu(k,1607)
535 141111616 : lu(k,1659) = lu(k,1659) - lu(k,225) * lu(k,1607)
536 141111616 : lu(k,1676) = lu(k,1676) - lu(k,226) * lu(k,1607)
537 141111616 : lu(k,1682) = lu(k,1682) - lu(k,227) * lu(k,1607)
538 141111616 : lu(k,228) = 1._r8 / lu(k,228)
539 141111616 : lu(k,229) = lu(k,229) * lu(k,228)
540 141111616 : lu(k,230) = lu(k,230) * lu(k,228)
541 141111616 : lu(k,231) = lu(k,231) * lu(k,228)
542 141111616 : lu(k,232) = lu(k,232) * lu(k,228)
543 141111616 : lu(k,1082) = lu(k,1082) - lu(k,229) * lu(k,1080)
544 141111616 : lu(k,1083) = lu(k,1083) - lu(k,230) * lu(k,1080)
545 141111616 : lu(k,1088) = lu(k,1088) - lu(k,231) * lu(k,1080)
546 141111616 : lu(k,1090) = lu(k,1090) - lu(k,232) * lu(k,1080)
547 141111616 : lu(k,1516) = lu(k,1516) - lu(k,229) * lu(k,1513)
548 141111616 : lu(k,1517) = lu(k,1517) - lu(k,230) * lu(k,1513)
549 141111616 : lu(k,1526) = lu(k,1526) - lu(k,231) * lu(k,1513)
550 141111616 : lu(k,1528) = lu(k,1528) - lu(k,232) * lu(k,1513)
551 141111616 : lu(k,1700) = lu(k,1700) - lu(k,229) * lu(k,1698)
552 141111616 : lu(k,1702) = lu(k,1702) - lu(k,230) * lu(k,1698)
553 141111616 : lu(k,1711) = lu(k,1711) - lu(k,231) * lu(k,1698)
554 141111616 : lu(k,1713) = lu(k,1713) - lu(k,232) * lu(k,1698)
555 141111616 : lu(k,233) = 1._r8 / lu(k,233)
556 141111616 : lu(k,234) = lu(k,234) * lu(k,233)
557 141111616 : lu(k,235) = lu(k,235) * lu(k,233)
558 141111616 : lu(k,236) = lu(k,236) * lu(k,233)
559 141111616 : lu(k,237) = lu(k,237) * lu(k,233)
560 141111616 : lu(k,346) = lu(k,346) - lu(k,234) * lu(k,345)
561 141111616 : lu(k,347) = lu(k,347) - lu(k,235) * lu(k,345)
562 141111616 : lu(k,348) = - lu(k,236) * lu(k,345)
563 141111616 : lu(k,349) = lu(k,349) - lu(k,237) * lu(k,345)
564 141111616 : lu(k,1417) = lu(k,1417) - lu(k,234) * lu(k,1402)
565 141111616 : lu(k,1462) = lu(k,1462) - lu(k,235) * lu(k,1402)
566 141111616 : lu(k,1499) = lu(k,1499) - lu(k,236) * lu(k,1402)
567 141111616 : lu(k,1503) = lu(k,1503) - lu(k,237) * lu(k,1402)
568 141111616 : lu(k,1620) = lu(k,1620) - lu(k,234) * lu(k,1608)
569 141111616 : lu(k,1652) = lu(k,1652) - lu(k,235) * lu(k,1608)
570 141111616 : lu(k,1682) = lu(k,1682) - lu(k,236) * lu(k,1608)
571 141111616 : lu(k,1686) = lu(k,1686) - lu(k,237) * lu(k,1608)
572 141111616 : lu(k,239) = 1._r8 / lu(k,239)
573 141111616 : lu(k,240) = lu(k,240) * lu(k,239)
574 141111616 : lu(k,241) = lu(k,241) * lu(k,239)
575 141111616 : lu(k,242) = lu(k,242) * lu(k,239)
576 141111616 : lu(k,243) = lu(k,243) * lu(k,239)
577 141111616 : lu(k,333) = lu(k,333) - lu(k,240) * lu(k,332)
578 141111616 : lu(k,334) = lu(k,334) - lu(k,241) * lu(k,332)
579 141111616 : lu(k,335) = lu(k,335) - lu(k,242) * lu(k,332)
580 141111616 : lu(k,336) = lu(k,336) - lu(k,243) * lu(k,332)
581 141111616 : lu(k,1416) = lu(k,1416) - lu(k,240) * lu(k,1403)
582 141111616 : lu(k,1427) = lu(k,1427) - lu(k,241) * lu(k,1403)
583 141111616 : lu(k,1499) = lu(k,1499) - lu(k,242) * lu(k,1403)
584 141111616 : lu(k,1503) = lu(k,1503) - lu(k,243) * lu(k,1403)
585 141111616 : lu(k,1618) = lu(k,1618) - lu(k,240) * lu(k,1609)
586 141111616 : lu(k,1627) = lu(k,1627) - lu(k,241) * lu(k,1609)
587 141111616 : lu(k,1682) = lu(k,1682) - lu(k,242) * lu(k,1609)
588 141111616 : lu(k,1686) = lu(k,1686) - lu(k,243) * lu(k,1609)
589 141111616 : lu(k,244) = 1._r8 / lu(k,244)
590 141111616 : lu(k,245) = lu(k,245) * lu(k,244)
591 141111616 : lu(k,246) = lu(k,246) * lu(k,244)
592 141111616 : lu(k,247) = lu(k,247) * lu(k,244)
593 141111616 : lu(k,248) = lu(k,248) * lu(k,244)
594 141111616 : lu(k,560) = - lu(k,245) * lu(k,551)
595 141111616 : lu(k,561) = lu(k,561) - lu(k,246) * lu(k,551)
596 141111616 : lu(k,562) = - lu(k,247) * lu(k,551)
597 141111616 : lu(k,564) = lu(k,564) - lu(k,248) * lu(k,551)
598 141111616 : lu(k,613) = - lu(k,245) * lu(k,604)
599 141111616 : lu(k,614) = lu(k,614) - lu(k,246) * lu(k,604)
600 141111616 : lu(k,615) = - lu(k,247) * lu(k,604)
601 141111616 : lu(k,617) = lu(k,617) - lu(k,248) * lu(k,604)
602 141111616 : lu(k,1776) = lu(k,1776) - lu(k,245) * lu(k,1738)
603 141111616 : lu(k,1786) = lu(k,1786) - lu(k,246) * lu(k,1738)
604 141111616 : lu(k,1792) = lu(k,1792) - lu(k,247) * lu(k,1738)
605 141111616 : lu(k,1802) = lu(k,1802) - lu(k,248) * lu(k,1738)
606 141111616 : lu(k,249) = 1._r8 / lu(k,249)
607 141111616 : lu(k,250) = lu(k,250) * lu(k,249)
608 141111616 : lu(k,251) = lu(k,251) * lu(k,249)
609 141111616 : lu(k,252) = lu(k,252) * lu(k,249)
610 141111616 : lu(k,253) = lu(k,253) * lu(k,249)
611 141111616 : lu(k,254) = lu(k,254) * lu(k,249)
612 141111616 : lu(k,255) = lu(k,255) * lu(k,249)
613 141111616 : lu(k,256) = lu(k,256) * lu(k,249)
614 141111616 : lu(k,1424) = lu(k,1424) - lu(k,250) * lu(k,1404)
615 141111616 : lu(k,1460) = lu(k,1460) - lu(k,251) * lu(k,1404)
616 141111616 : lu(k,1475) = lu(k,1475) - lu(k,252) * lu(k,1404)
617 141111616 : lu(k,1487) = lu(k,1487) - lu(k,253) * lu(k,1404)
618 141111616 : lu(k,1496) = lu(k,1496) - lu(k,254) * lu(k,1404)
619 141111616 : lu(k,1499) = lu(k,1499) - lu(k,255) * lu(k,1404)
620 141111616 : lu(k,1502) = lu(k,1502) - lu(k,256) * lu(k,1404)
621 141111616 : lu(k,1560) = - lu(k,250) * lu(k,1559)
622 141111616 : lu(k,1566) = - lu(k,251) * lu(k,1559)
623 141111616 : lu(k,1568) = lu(k,1568) - lu(k,252) * lu(k,1559)
624 141111616 : lu(k,1570) = lu(k,1570) - lu(k,253) * lu(k,1559)
625 141111616 : lu(k,1573) = lu(k,1573) - lu(k,254) * lu(k,1559)
626 141111616 : lu(k,1576) = lu(k,1576) - lu(k,255) * lu(k,1559)
627 141111616 : lu(k,1579) = lu(k,1579) - lu(k,256) * lu(k,1559)
628 141111616 : lu(k,257) = 1._r8 / lu(k,257)
629 141111616 : lu(k,258) = lu(k,258) * lu(k,257)
630 141111616 : lu(k,259) = lu(k,259) * lu(k,257)
631 141111616 : lu(k,260) = lu(k,260) * lu(k,257)
632 141111616 : lu(k,261) = lu(k,261) * lu(k,257)
633 141111616 : lu(k,262) = lu(k,262) * lu(k,257)
634 141111616 : lu(k,263) = lu(k,263) * lu(k,257)
635 141111616 : lu(k,264) = lu(k,264) * lu(k,257)
636 141111616 : lu(k,1432) = lu(k,1432) - lu(k,258) * lu(k,1405)
637 141111616 : lu(k,1467) = lu(k,1467) - lu(k,259) * lu(k,1405)
638 141111616 : lu(k,1474) = lu(k,1474) - lu(k,260) * lu(k,1405)
639 141111616 : lu(k,1499) = lu(k,1499) - lu(k,261) * lu(k,1405)
640 141111616 : lu(k,1501) = lu(k,1501) - lu(k,262) * lu(k,1405)
641 141111616 : lu(k,1507) = lu(k,1507) - lu(k,263) * lu(k,1405)
642 141111616 : lu(k,1510) = lu(k,1510) - lu(k,264) * lu(k,1405)
643 141111616 : lu(k,1975) = - lu(k,258) * lu(k,1974)
644 141111616 : lu(k,1983) = lu(k,1983) - lu(k,259) * lu(k,1974)
645 141111616 : lu(k,1989) = lu(k,1989) - lu(k,260) * lu(k,1974)
646 141111616 : lu(k,2013) = lu(k,2013) - lu(k,261) * lu(k,1974)
647 141111616 : lu(k,2015) = lu(k,2015) - lu(k,262) * lu(k,1974)
648 141111616 : lu(k,2021) = lu(k,2021) - lu(k,263) * lu(k,1974)
649 141111616 : lu(k,2024) = lu(k,2024) - lu(k,264) * lu(k,1974)
650 141111616 : lu(k,265) = 1._r8 / lu(k,265)
651 141111616 : lu(k,266) = lu(k,266) * lu(k,265)
652 141111616 : lu(k,267) = lu(k,267) * lu(k,265)
653 141111616 : lu(k,268) = lu(k,268) * lu(k,265)
654 141111616 : lu(k,269) = lu(k,269) * lu(k,265)
655 141111616 : lu(k,270) = lu(k,270) * lu(k,265)
656 141111616 : lu(k,1499) = lu(k,1499) - lu(k,266) * lu(k,1406)
657 141111616 : lu(k,1503) = lu(k,1503) - lu(k,267) * lu(k,1406)
658 141111616 : lu(k,1507) = lu(k,1507) - lu(k,268) * lu(k,1406)
659 141111616 : lu(k,1510) = lu(k,1510) - lu(k,269) * lu(k,1406)
660 141111616 : lu(k,1511) = lu(k,1511) - lu(k,270) * lu(k,1406)
661 141111616 : lu(k,1682) = lu(k,1682) - lu(k,266) * lu(k,1610)
662 141111616 : lu(k,1686) = lu(k,1686) - lu(k,267) * lu(k,1610)
663 141111616 : lu(k,1690) = lu(k,1690) - lu(k,268) * lu(k,1610)
664 141111616 : lu(k,1693) = lu(k,1693) - lu(k,269) * lu(k,1610)
665 141111616 : lu(k,1694) = lu(k,1694) - lu(k,270) * lu(k,1610)
666 141111616 : lu(k,1899) = lu(k,1899) - lu(k,266) * lu(k,1873)
667 141111616 : lu(k,1903) = lu(k,1903) - lu(k,267) * lu(k,1873)
668 141111616 : lu(k,1907) = lu(k,1907) - lu(k,268) * lu(k,1873)
669 141111616 : lu(k,1910) = lu(k,1910) - lu(k,269) * lu(k,1873)
670 145521354 : lu(k,1911) = - lu(k,270) * lu(k,1873)
671 : end do
672 4409738 : end subroutine lu_fac05
673 4409738 : subroutine lu_fac06( avec_len, lu )
674 : use chem_mods, only : nzcnt
675 : use shr_kind_mod, only : r8 => shr_kind_r8
676 : implicit none
677 : !-----------------------------------------------------------------------
678 : ! ... dummy args
679 : !-----------------------------------------------------------------------
680 : integer, intent(in) :: avec_len
681 : real(r8), intent(inout) :: lu(veclen,nzcnt)
682 : !-----------------------------------------------------------------------
683 : ! ... local variables
684 : !-----------------------------------------------------------------------
685 : integer :: k
686 145521354 : do k = 1,avec_len
687 141111616 : lu(k,271) = 1._r8 / lu(k,271)
688 141111616 : lu(k,272) = lu(k,272) * lu(k,271)
689 141111616 : lu(k,273) = lu(k,273) * lu(k,271)
690 141111616 : lu(k,274) = lu(k,274) * lu(k,271)
691 141111616 : lu(k,275) = lu(k,275) * lu(k,271)
692 141111616 : lu(k,276) = lu(k,276) * lu(k,271)
693 141111616 : lu(k,1037) = - lu(k,272) * lu(k,1035)
694 141111616 : lu(k,1039) = - lu(k,273) * lu(k,1035)
695 141111616 : lu(k,1052) = - lu(k,274) * lu(k,1035)
696 141111616 : lu(k,1054) = lu(k,1054) - lu(k,275) * lu(k,1035)
697 141111616 : lu(k,1056) = lu(k,1056) - lu(k,276) * lu(k,1035)
698 141111616 : lu(k,1448) = lu(k,1448) - lu(k,272) * lu(k,1407)
699 141111616 : lu(k,1461) = lu(k,1461) - lu(k,273) * lu(k,1407)
700 141111616 : lu(k,1499) = lu(k,1499) - lu(k,274) * lu(k,1407)
701 141111616 : lu(k,1503) = lu(k,1503) - lu(k,275) * lu(k,1407)
702 141111616 : lu(k,1507) = lu(k,1507) - lu(k,276) * lu(k,1407)
703 141111616 : lu(k,1641) = lu(k,1641) - lu(k,272) * lu(k,1611)
704 141111616 : lu(k,1651) = - lu(k,273) * lu(k,1611)
705 141111616 : lu(k,1682) = lu(k,1682) - lu(k,274) * lu(k,1611)
706 141111616 : lu(k,1686) = lu(k,1686) - lu(k,275) * lu(k,1611)
707 141111616 : lu(k,1690) = lu(k,1690) - lu(k,276) * lu(k,1611)
708 141111616 : lu(k,277) = 1._r8 / lu(k,277)
709 141111616 : lu(k,278) = lu(k,278) * lu(k,277)
710 141111616 : lu(k,279) = lu(k,279) * lu(k,277)
711 141111616 : lu(k,280) = lu(k,280) * lu(k,277)
712 141111616 : lu(k,281) = lu(k,281) * lu(k,277)
713 141111616 : lu(k,282) = lu(k,282) * lu(k,277)
714 141111616 : lu(k,1496) = lu(k,1496) - lu(k,278) * lu(k,1408)
715 141111616 : lu(k,1499) = lu(k,1499) - lu(k,279) * lu(k,1408)
716 141111616 : lu(k,1502) = lu(k,1502) - lu(k,280) * lu(k,1408)
717 141111616 : lu(k,1505) = lu(k,1505) - lu(k,281) * lu(k,1408)
718 141111616 : lu(k,1507) = lu(k,1507) - lu(k,282) * lu(k,1408)
719 141111616 : lu(k,1795) = - lu(k,278) * lu(k,1739)
720 141111616 : lu(k,1798) = lu(k,1798) - lu(k,279) * lu(k,1739)
721 141111616 : lu(k,1801) = lu(k,1801) - lu(k,280) * lu(k,1739)
722 141111616 : lu(k,1804) = lu(k,1804) - lu(k,281) * lu(k,1739)
723 141111616 : lu(k,1806) = lu(k,1806) - lu(k,282) * lu(k,1739)
724 141111616 : lu(k,1896) = - lu(k,278) * lu(k,1874)
725 141111616 : lu(k,1899) = lu(k,1899) - lu(k,279) * lu(k,1874)
726 141111616 : lu(k,1902) = lu(k,1902) - lu(k,280) * lu(k,1874)
727 141111616 : lu(k,1905) = lu(k,1905) - lu(k,281) * lu(k,1874)
728 141111616 : lu(k,1907) = lu(k,1907) - lu(k,282) * lu(k,1874)
729 141111616 : lu(k,283) = 1._r8 / lu(k,283)
730 141111616 : lu(k,284) = lu(k,284) * lu(k,283)
731 141111616 : lu(k,285) = lu(k,285) * lu(k,283)
732 141111616 : lu(k,286) = lu(k,286) * lu(k,283)
733 141111616 : lu(k,287) = lu(k,287) * lu(k,283)
734 141111616 : lu(k,288) = lu(k,288) * lu(k,283)
735 141111616 : lu(k,1039) = lu(k,1039) - lu(k,284) * lu(k,1036)
736 141111616 : lu(k,1040) = - lu(k,285) * lu(k,1036)
737 141111616 : lu(k,1049) = - lu(k,286) * lu(k,1036)
738 141111616 : lu(k,1052) = lu(k,1052) - lu(k,287) * lu(k,1036)
739 141111616 : lu(k,1054) = lu(k,1054) - lu(k,288) * lu(k,1036)
740 141111616 : lu(k,1294) = - lu(k,284) * lu(k,1287)
741 141111616 : lu(k,1298) = lu(k,1298) - lu(k,285) * lu(k,1287)
742 141111616 : lu(k,1318) = - lu(k,286) * lu(k,1287)
743 141111616 : lu(k,1322) = lu(k,1322) - lu(k,287) * lu(k,1287)
744 141111616 : lu(k,1325) = lu(k,1325) - lu(k,288) * lu(k,1287)
745 141111616 : lu(k,1461) = lu(k,1461) - lu(k,284) * lu(k,1409)
746 141111616 : lu(k,1471) = lu(k,1471) - lu(k,285) * lu(k,1409)
747 141111616 : lu(k,1495) = lu(k,1495) - lu(k,286) * lu(k,1409)
748 141111616 : lu(k,1499) = lu(k,1499) - lu(k,287) * lu(k,1409)
749 141111616 : lu(k,1503) = lu(k,1503) - lu(k,288) * lu(k,1409)
750 141111616 : lu(k,289) = 1._r8 / lu(k,289)
751 141111616 : lu(k,290) = lu(k,290) * lu(k,289)
752 141111616 : lu(k,291) = lu(k,291) * lu(k,289)
753 141111616 : lu(k,292) = lu(k,292) * lu(k,289)
754 141111616 : lu(k,293) = lu(k,293) * lu(k,289)
755 141111616 : lu(k,294) = lu(k,294) * lu(k,289)
756 141111616 : lu(k,975) = lu(k,975) - lu(k,290) * lu(k,972)
757 141111616 : lu(k,979) = lu(k,979) - lu(k,291) * lu(k,972)
758 141111616 : lu(k,982) = - lu(k,292) * lu(k,972)
759 141111616 : lu(k,985) = - lu(k,293) * lu(k,972)
760 141111616 : lu(k,989) = lu(k,989) - lu(k,294) * lu(k,972)
761 141111616 : lu(k,1470) = lu(k,1470) - lu(k,290) * lu(k,1410)
762 141111616 : lu(k,1480) = lu(k,1480) - lu(k,291) * lu(k,1410)
763 141111616 : lu(k,1495) = lu(k,1495) - lu(k,292) * lu(k,1410)
764 141111616 : lu(k,1499) = lu(k,1499) - lu(k,293) * lu(k,1410)
765 141111616 : lu(k,1507) = lu(k,1507) - lu(k,294) * lu(k,1410)
766 141111616 : lu(k,1656) = - lu(k,290) * lu(k,1612)
767 141111616 : lu(k,1664) = lu(k,1664) - lu(k,291) * lu(k,1612)
768 141111616 : lu(k,1678) = - lu(k,292) * lu(k,1612)
769 141111616 : lu(k,1682) = lu(k,1682) - lu(k,293) * lu(k,1612)
770 141111616 : lu(k,1690) = lu(k,1690) - lu(k,294) * lu(k,1612)
771 141111616 : lu(k,295) = 1._r8 / lu(k,295)
772 141111616 : lu(k,296) = lu(k,296) * lu(k,295)
773 141111616 : lu(k,297) = lu(k,297) * lu(k,295)
774 141111616 : lu(k,298) = lu(k,298) * lu(k,295)
775 141111616 : lu(k,299) = lu(k,299) * lu(k,295)
776 141111616 : lu(k,300) = lu(k,300) * lu(k,295)
777 141111616 : lu(k,1319) = - lu(k,296) * lu(k,1288)
778 141111616 : lu(k,1320) = lu(k,1320) - lu(k,297) * lu(k,1288)
779 141111616 : lu(k,1322) = lu(k,1322) - lu(k,298) * lu(k,1288)
780 141111616 : lu(k,1323) = lu(k,1323) - lu(k,299) * lu(k,1288)
781 141111616 : lu(k,1333) = - lu(k,300) * lu(k,1288)
782 141111616 : lu(k,1496) = lu(k,1496) - lu(k,296) * lu(k,1411)
783 141111616 : lu(k,1497) = lu(k,1497) - lu(k,297) * lu(k,1411)
784 141111616 : lu(k,1499) = lu(k,1499) - lu(k,298) * lu(k,1411)
785 141111616 : lu(k,1501) = lu(k,1501) - lu(k,299) * lu(k,1411)
786 141111616 : lu(k,1511) = lu(k,1511) - lu(k,300) * lu(k,1411)
787 141111616 : lu(k,1679) = lu(k,1679) - lu(k,296) * lu(k,1613)
788 141111616 : lu(k,1680) = lu(k,1680) - lu(k,297) * lu(k,1613)
789 141111616 : lu(k,1682) = lu(k,1682) - lu(k,298) * lu(k,1613)
790 141111616 : lu(k,1684) = lu(k,1684) - lu(k,299) * lu(k,1613)
791 141111616 : lu(k,1694) = lu(k,1694) - lu(k,300) * lu(k,1613)
792 141111616 : lu(k,301) = 1._r8 / lu(k,301)
793 141111616 : lu(k,302) = lu(k,302) * lu(k,301)
794 141111616 : lu(k,303) = lu(k,303) * lu(k,301)
795 141111616 : lu(k,304) = lu(k,304) * lu(k,301)
796 141111616 : lu(k,305) = lu(k,305) * lu(k,301)
797 141111616 : lu(k,306) = lu(k,306) * lu(k,301)
798 141111616 : lu(k,995) = lu(k,995) - lu(k,302) * lu(k,992)
799 141111616 : lu(k,997) = lu(k,997) - lu(k,303) * lu(k,992)
800 141111616 : lu(k,999) = lu(k,999) - lu(k,304) * lu(k,992)
801 141111616 : lu(k,1000) = lu(k,1000) - lu(k,305) * lu(k,992)
802 141111616 : lu(k,1004) = - lu(k,306) * lu(k,992)
803 141111616 : lu(k,1481) = lu(k,1481) - lu(k,302) * lu(k,1412)
804 141111616 : lu(k,1493) = lu(k,1493) - lu(k,303) * lu(k,1412)
805 141111616 : lu(k,1499) = lu(k,1499) - lu(k,304) * lu(k,1412)
806 141111616 : lu(k,1501) = lu(k,1501) - lu(k,305) * lu(k,1412)
807 141111616 : lu(k,1511) = lu(k,1511) - lu(k,306) * lu(k,1412)
808 141111616 : lu(k,1665) = lu(k,1665) - lu(k,302) * lu(k,1614)
809 141111616 : lu(k,1676) = lu(k,1676) - lu(k,303) * lu(k,1614)
810 141111616 : lu(k,1682) = lu(k,1682) - lu(k,304) * lu(k,1614)
811 141111616 : lu(k,1684) = lu(k,1684) - lu(k,305) * lu(k,1614)
812 145521354 : lu(k,1694) = lu(k,1694) - lu(k,306) * lu(k,1614)
813 : end do
814 4409738 : end subroutine lu_fac06
815 4409738 : subroutine lu_fac07( avec_len, lu )
816 : use chem_mods, only : nzcnt
817 : use shr_kind_mod, only : r8 => shr_kind_r8
818 : implicit none
819 : !-----------------------------------------------------------------------
820 : ! ... dummy args
821 : !-----------------------------------------------------------------------
822 : integer, intent(in) :: avec_len
823 : real(r8), intent(inout) :: lu(veclen,nzcnt)
824 : !-----------------------------------------------------------------------
825 : ! ... local variables
826 : !-----------------------------------------------------------------------
827 : integer :: k
828 145521354 : do k = 1,avec_len
829 141111616 : lu(k,307) = 1._r8 / lu(k,307)
830 141111616 : lu(k,308) = lu(k,308) * lu(k,307)
831 141111616 : lu(k,309) = lu(k,309) * lu(k,307)
832 141111616 : lu(k,310) = lu(k,310) * lu(k,307)
833 141111616 : lu(k,311) = lu(k,311) * lu(k,307)
834 141111616 : lu(k,312) = lu(k,312) * lu(k,307)
835 141111616 : lu(k,661) = lu(k,661) - lu(k,308) * lu(k,660)
836 141111616 : lu(k,662) = lu(k,662) - lu(k,309) * lu(k,660)
837 141111616 : lu(k,665) = - lu(k,310) * lu(k,660)
838 141111616 : lu(k,667) = lu(k,667) - lu(k,311) * lu(k,660)
839 141111616 : lu(k,670) = - lu(k,312) * lu(k,660)
840 141111616 : lu(k,1454) = lu(k,1454) - lu(k,308) * lu(k,1413)
841 141111616 : lu(k,1467) = lu(k,1467) - lu(k,309) * lu(k,1413)
842 141111616 : lu(k,1499) = lu(k,1499) - lu(k,310) * lu(k,1413)
843 141111616 : lu(k,1503) = lu(k,1503) - lu(k,311) * lu(k,1413)
844 141111616 : lu(k,1511) = lu(k,1511) - lu(k,312) * lu(k,1413)
845 141111616 : lu(k,1646) = lu(k,1646) - lu(k,308) * lu(k,1615)
846 141111616 : lu(k,1655) = - lu(k,309) * lu(k,1615)
847 141111616 : lu(k,1682) = lu(k,1682) - lu(k,310) * lu(k,1615)
848 141111616 : lu(k,1686) = lu(k,1686) - lu(k,311) * lu(k,1615)
849 141111616 : lu(k,1694) = lu(k,1694) - lu(k,312) * lu(k,1615)
850 141111616 : lu(k,313) = 1._r8 / lu(k,313)
851 141111616 : lu(k,314) = lu(k,314) * lu(k,313)
852 141111616 : lu(k,315) = lu(k,315) * lu(k,313)
853 141111616 : lu(k,316) = lu(k,316) * lu(k,313)
854 141111616 : lu(k,317) = lu(k,317) * lu(k,313)
855 141111616 : lu(k,318) = lu(k,318) * lu(k,313)
856 141111616 : lu(k,374) = lu(k,374) - lu(k,314) * lu(k,373)
857 141111616 : lu(k,375) = lu(k,375) - lu(k,315) * lu(k,373)
858 141111616 : lu(k,377) = lu(k,377) - lu(k,316) * lu(k,373)
859 141111616 : lu(k,378) = - lu(k,317) * lu(k,373)
860 141111616 : lu(k,379) = lu(k,379) - lu(k,318) * lu(k,373)
861 141111616 : lu(k,1418) = lu(k,1418) - lu(k,314) * lu(k,1414)
862 141111616 : lu(k,1422) = lu(k,1422) - lu(k,315) * lu(k,1414)
863 141111616 : lu(k,1462) = lu(k,1462) - lu(k,316) * lu(k,1414)
864 141111616 : lu(k,1499) = lu(k,1499) - lu(k,317) * lu(k,1414)
865 141111616 : lu(k,1503) = lu(k,1503) - lu(k,318) * lu(k,1414)
866 141111616 : lu(k,1621) = - lu(k,314) * lu(k,1616)
867 141111616 : lu(k,1624) = lu(k,1624) - lu(k,315) * lu(k,1616)
868 141111616 : lu(k,1652) = lu(k,1652) - lu(k,316) * lu(k,1616)
869 141111616 : lu(k,1682) = lu(k,1682) - lu(k,317) * lu(k,1616)
870 141111616 : lu(k,1686) = lu(k,1686) - lu(k,318) * lu(k,1616)
871 141111616 : lu(k,319) = 1._r8 / lu(k,319)
872 141111616 : lu(k,320) = lu(k,320) * lu(k,319)
873 141111616 : lu(k,321) = lu(k,321) * lu(k,319)
874 141111616 : lu(k,322) = lu(k,322) * lu(k,319)
875 141111616 : lu(k,323) = lu(k,323) * lu(k,319)
876 141111616 : lu(k,324) = lu(k,324) * lu(k,319)
877 141111616 : lu(k,758) = - lu(k,320) * lu(k,756)
878 141111616 : lu(k,764) = lu(k,764) - lu(k,321) * lu(k,756)
879 141111616 : lu(k,768) = - lu(k,322) * lu(k,756)
880 141111616 : lu(k,769) = lu(k,769) - lu(k,323) * lu(k,756)
881 141111616 : lu(k,772) = lu(k,772) - lu(k,324) * lu(k,756)
882 141111616 : lu(k,785) = - lu(k,320) * lu(k,783)
883 141111616 : lu(k,791) = lu(k,791) - lu(k,321) * lu(k,783)
884 141111616 : lu(k,795) = - lu(k,322) * lu(k,783)
885 141111616 : lu(k,796) = lu(k,796) - lu(k,323) * lu(k,783)
886 141111616 : lu(k,799) = lu(k,799) - lu(k,324) * lu(k,783)
887 141111616 : lu(k,1827) = - lu(k,320) * lu(k,1817)
888 141111616 : lu(k,1837) = lu(k,1837) - lu(k,321) * lu(k,1817)
889 141111616 : lu(k,1845) = lu(k,1845) - lu(k,322) * lu(k,1817)
890 141111616 : lu(k,1852) = lu(k,1852) - lu(k,323) * lu(k,1817)
891 141111616 : lu(k,1862) = lu(k,1862) - lu(k,324) * lu(k,1817)
892 141111616 : lu(k,325) = 1._r8 / lu(k,325)
893 141111616 : lu(k,326) = lu(k,326) * lu(k,325)
894 141111616 : lu(k,327) = lu(k,327) * lu(k,325)
895 141111616 : lu(k,328) = lu(k,328) * lu(k,325)
896 141111616 : lu(k,329) = lu(k,329) * lu(k,325)
897 141111616 : lu(k,330) = lu(k,330) * lu(k,325)
898 141111616 : lu(k,383) = lu(k,383) - lu(k,326) * lu(k,382)
899 141111616 : lu(k,384) = lu(k,384) - lu(k,327) * lu(k,382)
900 141111616 : lu(k,385) = lu(k,385) - lu(k,328) * lu(k,382)
901 141111616 : lu(k,386) = - lu(k,329) * lu(k,382)
902 141111616 : lu(k,387) = lu(k,387) - lu(k,330) * lu(k,382)
903 141111616 : lu(k,1423) = lu(k,1423) - lu(k,326) * lu(k,1415)
904 141111616 : lu(k,1462) = lu(k,1462) - lu(k,327) * lu(k,1415)
905 141111616 : lu(k,1486) = lu(k,1486) - lu(k,328) * lu(k,1415)
906 141111616 : lu(k,1499) = lu(k,1499) - lu(k,329) * lu(k,1415)
907 141111616 : lu(k,1503) = lu(k,1503) - lu(k,330) * lu(k,1415)
908 141111616 : lu(k,1625) = lu(k,1625) - lu(k,326) * lu(k,1617)
909 141111616 : lu(k,1652) = lu(k,1652) - lu(k,327) * lu(k,1617)
910 141111616 : lu(k,1670) = lu(k,1670) - lu(k,328) * lu(k,1617)
911 141111616 : lu(k,1682) = lu(k,1682) - lu(k,329) * lu(k,1617)
912 141111616 : lu(k,1686) = lu(k,1686) - lu(k,330) * lu(k,1617)
913 141111616 : lu(k,333) = 1._r8 / lu(k,333)
914 141111616 : lu(k,334) = lu(k,334) * lu(k,333)
915 141111616 : lu(k,335) = lu(k,335) * lu(k,333)
916 141111616 : lu(k,336) = lu(k,336) * lu(k,333)
917 141111616 : lu(k,337) = lu(k,337) * lu(k,333)
918 141111616 : lu(k,338) = lu(k,338) * lu(k,333)
919 141111616 : lu(k,1427) = lu(k,1427) - lu(k,334) * lu(k,1416)
920 141111616 : lu(k,1499) = lu(k,1499) - lu(k,335) * lu(k,1416)
921 141111616 : lu(k,1503) = lu(k,1503) - lu(k,336) * lu(k,1416)
922 141111616 : lu(k,1505) = lu(k,1505) - lu(k,337) * lu(k,1416)
923 141111616 : lu(k,1507) = lu(k,1507) - lu(k,338) * lu(k,1416)
924 141111616 : lu(k,1627) = lu(k,1627) - lu(k,334) * lu(k,1618)
925 141111616 : lu(k,1682) = lu(k,1682) - lu(k,335) * lu(k,1618)
926 141111616 : lu(k,1686) = lu(k,1686) - lu(k,336) * lu(k,1618)
927 141111616 : lu(k,1688) = lu(k,1688) - lu(k,337) * lu(k,1618)
928 141111616 : lu(k,1690) = lu(k,1690) - lu(k,338) * lu(k,1618)
929 141111616 : lu(k,1748) = lu(k,1748) - lu(k,334) * lu(k,1740)
930 141111616 : lu(k,1798) = lu(k,1798) - lu(k,335) * lu(k,1740)
931 141111616 : lu(k,1802) = lu(k,1802) - lu(k,336) * lu(k,1740)
932 141111616 : lu(k,1804) = lu(k,1804) - lu(k,337) * lu(k,1740)
933 141111616 : lu(k,1806) = lu(k,1806) - lu(k,338) * lu(k,1740)
934 141111616 : lu(k,339) = 1._r8 / lu(k,339)
935 141111616 : lu(k,340) = lu(k,340) * lu(k,339)
936 141111616 : lu(k,341) = lu(k,341) * lu(k,339)
937 141111616 : lu(k,342) = lu(k,342) * lu(k,339)
938 141111616 : lu(k,343) = lu(k,343) * lu(k,339)
939 141111616 : lu(k,344) = lu(k,344) * lu(k,339)
940 141111616 : lu(k,1537) = - lu(k,340) * lu(k,1536)
941 141111616 : lu(k,1548) = lu(k,1548) - lu(k,341) * lu(k,1536)
942 141111616 : lu(k,1550) = lu(k,1550) - lu(k,342) * lu(k,1536)
943 141111616 : lu(k,1552) = - lu(k,343) * lu(k,1536)
944 141111616 : lu(k,1554) = - lu(k,344) * lu(k,1536)
945 141111616 : lu(k,1647) = lu(k,1647) - lu(k,340) * lu(k,1619)
946 141111616 : lu(k,1684) = lu(k,1684) - lu(k,341) * lu(k,1619)
947 141111616 : lu(k,1686) = lu(k,1686) - lu(k,342) * lu(k,1619)
948 141111616 : lu(k,1688) = lu(k,1688) - lu(k,343) * lu(k,1619)
949 141111616 : lu(k,1690) = lu(k,1690) - lu(k,344) * lu(k,1619)
950 141111616 : lu(k,1764) = lu(k,1764) - lu(k,340) * lu(k,1741)
951 141111616 : lu(k,1800) = lu(k,1800) - lu(k,341) * lu(k,1741)
952 141111616 : lu(k,1802) = lu(k,1802) - lu(k,342) * lu(k,1741)
953 141111616 : lu(k,1804) = lu(k,1804) - lu(k,343) * lu(k,1741)
954 141111616 : lu(k,1806) = lu(k,1806) - lu(k,344) * lu(k,1741)
955 141111616 : lu(k,346) = 1._r8 / lu(k,346)
956 141111616 : lu(k,347) = lu(k,347) * lu(k,346)
957 141111616 : lu(k,348) = lu(k,348) * lu(k,346)
958 141111616 : lu(k,349) = lu(k,349) * lu(k,346)
959 141111616 : lu(k,350) = lu(k,350) * lu(k,346)
960 141111616 : lu(k,351) = lu(k,351) * lu(k,346)
961 141111616 : lu(k,1462) = lu(k,1462) - lu(k,347) * lu(k,1417)
962 141111616 : lu(k,1499) = lu(k,1499) - lu(k,348) * lu(k,1417)
963 141111616 : lu(k,1503) = lu(k,1503) - lu(k,349) * lu(k,1417)
964 141111616 : lu(k,1505) = lu(k,1505) - lu(k,350) * lu(k,1417)
965 141111616 : lu(k,1507) = lu(k,1507) - lu(k,351) * lu(k,1417)
966 141111616 : lu(k,1652) = lu(k,1652) - lu(k,347) * lu(k,1620)
967 141111616 : lu(k,1682) = lu(k,1682) - lu(k,348) * lu(k,1620)
968 141111616 : lu(k,1686) = lu(k,1686) - lu(k,349) * lu(k,1620)
969 141111616 : lu(k,1688) = lu(k,1688) - lu(k,350) * lu(k,1620)
970 141111616 : lu(k,1690) = lu(k,1690) - lu(k,351) * lu(k,1620)
971 141111616 : lu(k,1767) = lu(k,1767) - lu(k,347) * lu(k,1742)
972 141111616 : lu(k,1798) = lu(k,1798) - lu(k,348) * lu(k,1742)
973 141111616 : lu(k,1802) = lu(k,1802) - lu(k,349) * lu(k,1742)
974 141111616 : lu(k,1804) = lu(k,1804) - lu(k,350) * lu(k,1742)
975 145521354 : lu(k,1806) = lu(k,1806) - lu(k,351) * lu(k,1742)
976 : end do
977 4409738 : end subroutine lu_fac07
978 4409738 : subroutine lu_fac08( avec_len, lu )
979 : use chem_mods, only : nzcnt
980 : use shr_kind_mod, only : r8 => shr_kind_r8
981 : implicit none
982 : !-----------------------------------------------------------------------
983 : ! ... dummy args
984 : !-----------------------------------------------------------------------
985 : integer, intent(in) :: avec_len
986 : real(r8), intent(inout) :: lu(veclen,nzcnt)
987 : !-----------------------------------------------------------------------
988 : ! ... local variables
989 : !-----------------------------------------------------------------------
990 : integer :: k
991 145521354 : do k = 1,avec_len
992 141111616 : lu(k,352) = 1._r8 / lu(k,352)
993 141111616 : lu(k,353) = lu(k,353) * lu(k,352)
994 141111616 : lu(k,354) = lu(k,354) * lu(k,352)
995 141111616 : lu(k,376) = - lu(k,353) * lu(k,374)
996 141111616 : lu(k,379) = lu(k,379) - lu(k,354) * lu(k,374)
997 141111616 : lu(k,495) = - lu(k,353) * lu(k,492)
998 141111616 : lu(k,501) = lu(k,501) - lu(k,354) * lu(k,492)
999 141111616 : lu(k,555) = - lu(k,353) * lu(k,552)
1000 141111616 : lu(k,564) = lu(k,564) - lu(k,354) * lu(k,552)
1001 141111616 : lu(k,584) = - lu(k,353) * lu(k,581)
1002 141111616 : lu(k,592) = lu(k,592) - lu(k,354) * lu(k,581)
1003 141111616 : lu(k,608) = - lu(k,353) * lu(k,605)
1004 141111616 : lu(k,617) = lu(k,617) - lu(k,354) * lu(k,605)
1005 141111616 : lu(k,1446) = - lu(k,353) * lu(k,1418)
1006 141111616 : lu(k,1503) = lu(k,1503) - lu(k,354) * lu(k,1418)
1007 141111616 : lu(k,1639) = lu(k,1639) - lu(k,353) * lu(k,1621)
1008 141111616 : lu(k,1686) = lu(k,1686) - lu(k,354) * lu(k,1621)
1009 141111616 : lu(k,1758) = lu(k,1758) - lu(k,353) * lu(k,1743)
1010 141111616 : lu(k,1802) = lu(k,1802) - lu(k,354) * lu(k,1743)
1011 141111616 : lu(k,355) = 1._r8 / lu(k,355)
1012 141111616 : lu(k,356) = lu(k,356) * lu(k,355)
1013 141111616 : lu(k,357) = lu(k,357) * lu(k,355)
1014 141111616 : lu(k,358) = lu(k,358) * lu(k,355)
1015 141111616 : lu(k,359) = lu(k,359) * lu(k,355)
1016 141111616 : lu(k,360) = lu(k,360) * lu(k,355)
1017 141111616 : lu(k,361) = lu(k,361) * lu(k,355)
1018 141111616 : lu(k,1233) = lu(k,1233) - lu(k,356) * lu(k,1216)
1019 141111616 : lu(k,1236) = lu(k,1236) - lu(k,357) * lu(k,1216)
1020 141111616 : lu(k,1237) = lu(k,1237) - lu(k,358) * lu(k,1216)
1021 141111616 : lu(k,1238) = lu(k,1238) - lu(k,359) * lu(k,1216)
1022 141111616 : lu(k,1242) = lu(k,1242) - lu(k,360) * lu(k,1216)
1023 141111616 : lu(k,1243) = - lu(k,361) * lu(k,1216)
1024 141111616 : lu(k,1493) = lu(k,1493) - lu(k,356) * lu(k,1419)
1025 141111616 : lu(k,1497) = lu(k,1497) - lu(k,357) * lu(k,1419)
1026 141111616 : lu(k,1499) = lu(k,1499) - lu(k,358) * lu(k,1419)
1027 141111616 : lu(k,1501) = lu(k,1501) - lu(k,359) * lu(k,1419)
1028 141111616 : lu(k,1507) = lu(k,1507) - lu(k,360) * lu(k,1419)
1029 141111616 : lu(k,1510) = lu(k,1510) - lu(k,361) * lu(k,1419)
1030 141111616 : lu(k,1893) = lu(k,1893) - lu(k,356) * lu(k,1875)
1031 141111616 : lu(k,1897) = - lu(k,357) * lu(k,1875)
1032 141111616 : lu(k,1899) = lu(k,1899) - lu(k,358) * lu(k,1875)
1033 141111616 : lu(k,1901) = - lu(k,359) * lu(k,1875)
1034 141111616 : lu(k,1907) = lu(k,1907) - lu(k,360) * lu(k,1875)
1035 141111616 : lu(k,1910) = lu(k,1910) - lu(k,361) * lu(k,1875)
1036 141111616 : lu(k,362) = 1._r8 / lu(k,362)
1037 141111616 : lu(k,363) = lu(k,363) * lu(k,362)
1038 141111616 : lu(k,364) = lu(k,364) * lu(k,362)
1039 141111616 : lu(k,365) = lu(k,365) * lu(k,362)
1040 141111616 : lu(k,514) = lu(k,514) - lu(k,363) * lu(k,513)
1041 141111616 : lu(k,518) = - lu(k,364) * lu(k,513)
1042 141111616 : lu(k,519) = lu(k,519) - lu(k,365) * lu(k,513)
1043 141111616 : lu(k,1440) = lu(k,1440) - lu(k,363) * lu(k,1420)
1044 141111616 : lu(k,1506) = lu(k,1506) - lu(k,364) * lu(k,1420)
1045 141111616 : lu(k,1507) = lu(k,1507) - lu(k,365) * lu(k,1420)
1046 141111616 : lu(k,1634) = lu(k,1634) - lu(k,363) * lu(k,1622)
1047 141111616 : lu(k,1689) = lu(k,1689) - lu(k,364) * lu(k,1622)
1048 141111616 : lu(k,1690) = lu(k,1690) - lu(k,365) * lu(k,1622)
1049 141111616 : lu(k,1754) = lu(k,1754) - lu(k,363) * lu(k,1744)
1050 141111616 : lu(k,1805) = lu(k,1805) - lu(k,364) * lu(k,1744)
1051 141111616 : lu(k,1806) = lu(k,1806) - lu(k,365) * lu(k,1744)
1052 141111616 : lu(k,1822) = lu(k,1822) - lu(k,363) * lu(k,1818)
1053 141111616 : lu(k,1865) = lu(k,1865) - lu(k,364) * lu(k,1818)
1054 141111616 : lu(k,1866) = lu(k,1866) - lu(k,365) * lu(k,1818)
1055 141111616 : lu(k,1880) = - lu(k,363) * lu(k,1876)
1056 141111616 : lu(k,1906) = lu(k,1906) - lu(k,364) * lu(k,1876)
1057 141111616 : lu(k,1907) = lu(k,1907) - lu(k,365) * lu(k,1876)
1058 141111616 : lu(k,366) = 1._r8 / lu(k,366)
1059 141111616 : lu(k,367) = lu(k,367) * lu(k,366)
1060 141111616 : lu(k,368) = lu(k,368) * lu(k,366)
1061 141111616 : lu(k,369) = lu(k,369) * lu(k,366)
1062 141111616 : lu(k,370) = lu(k,370) * lu(k,366)
1063 141111616 : lu(k,371) = lu(k,371) * lu(k,366)
1064 141111616 : lu(k,372) = lu(k,372) * lu(k,366)
1065 141111616 : lu(k,934) = lu(k,934) - lu(k,367) * lu(k,931)
1066 141111616 : lu(k,935) = lu(k,935) - lu(k,368) * lu(k,931)
1067 141111616 : lu(k,938) = lu(k,938) - lu(k,369) * lu(k,931)
1068 141111616 : lu(k,946) = - lu(k,370) * lu(k,931)
1069 141111616 : lu(k,947) = lu(k,947) - lu(k,371) * lu(k,931)
1070 141111616 : lu(k,948) = lu(k,948) - lu(k,372) * lu(k,931)
1071 141111616 : lu(k,1467) = lu(k,1467) - lu(k,367) * lu(k,1421)
1072 141111616 : lu(k,1470) = lu(k,1470) - lu(k,368) * lu(k,1421)
1073 141111616 : lu(k,1478) = lu(k,1478) - lu(k,369) * lu(k,1421)
1074 141111616 : lu(k,1499) = lu(k,1499) - lu(k,370) * lu(k,1421)
1075 141111616 : lu(k,1501) = lu(k,1501) - lu(k,371) * lu(k,1421)
1076 141111616 : lu(k,1503) = lu(k,1503) - lu(k,372) * lu(k,1421)
1077 141111616 : lu(k,1655) = lu(k,1655) - lu(k,367) * lu(k,1623)
1078 141111616 : lu(k,1656) = lu(k,1656) - lu(k,368) * lu(k,1623)
1079 141111616 : lu(k,1662) = lu(k,1662) - lu(k,369) * lu(k,1623)
1080 141111616 : lu(k,1682) = lu(k,1682) - lu(k,370) * lu(k,1623)
1081 141111616 : lu(k,1684) = lu(k,1684) - lu(k,371) * lu(k,1623)
1082 141111616 : lu(k,1686) = lu(k,1686) - lu(k,372) * lu(k,1623)
1083 141111616 : lu(k,375) = 1._r8 / lu(k,375)
1084 141111616 : lu(k,376) = lu(k,376) * lu(k,375)
1085 141111616 : lu(k,377) = lu(k,377) * lu(k,375)
1086 141111616 : lu(k,378) = lu(k,378) * lu(k,375)
1087 141111616 : lu(k,379) = lu(k,379) * lu(k,375)
1088 141111616 : lu(k,380) = lu(k,380) * lu(k,375)
1089 141111616 : lu(k,381) = lu(k,381) * lu(k,375)
1090 141111616 : lu(k,1446) = lu(k,1446) - lu(k,376) * lu(k,1422)
1091 141111616 : lu(k,1462) = lu(k,1462) - lu(k,377) * lu(k,1422)
1092 141111616 : lu(k,1499) = lu(k,1499) - lu(k,378) * lu(k,1422)
1093 141111616 : lu(k,1503) = lu(k,1503) - lu(k,379) * lu(k,1422)
1094 141111616 : lu(k,1505) = lu(k,1505) - lu(k,380) * lu(k,1422)
1095 141111616 : lu(k,1507) = lu(k,1507) - lu(k,381) * lu(k,1422)
1096 141111616 : lu(k,1639) = lu(k,1639) - lu(k,376) * lu(k,1624)
1097 141111616 : lu(k,1652) = lu(k,1652) - lu(k,377) * lu(k,1624)
1098 141111616 : lu(k,1682) = lu(k,1682) - lu(k,378) * lu(k,1624)
1099 141111616 : lu(k,1686) = lu(k,1686) - lu(k,379) * lu(k,1624)
1100 141111616 : lu(k,1688) = lu(k,1688) - lu(k,380) * lu(k,1624)
1101 141111616 : lu(k,1690) = lu(k,1690) - lu(k,381) * lu(k,1624)
1102 141111616 : lu(k,1758) = lu(k,1758) - lu(k,376) * lu(k,1745)
1103 141111616 : lu(k,1767) = lu(k,1767) - lu(k,377) * lu(k,1745)
1104 141111616 : lu(k,1798) = lu(k,1798) - lu(k,378) * lu(k,1745)
1105 141111616 : lu(k,1802) = lu(k,1802) - lu(k,379) * lu(k,1745)
1106 141111616 : lu(k,1804) = lu(k,1804) - lu(k,380) * lu(k,1745)
1107 141111616 : lu(k,1806) = lu(k,1806) - lu(k,381) * lu(k,1745)
1108 141111616 : lu(k,383) = 1._r8 / lu(k,383)
1109 141111616 : lu(k,384) = lu(k,384) * lu(k,383)
1110 141111616 : lu(k,385) = lu(k,385) * lu(k,383)
1111 141111616 : lu(k,386) = lu(k,386) * lu(k,383)
1112 141111616 : lu(k,387) = lu(k,387) * lu(k,383)
1113 141111616 : lu(k,388) = lu(k,388) * lu(k,383)
1114 141111616 : lu(k,389) = lu(k,389) * lu(k,383)
1115 141111616 : lu(k,1462) = lu(k,1462) - lu(k,384) * lu(k,1423)
1116 141111616 : lu(k,1486) = lu(k,1486) - lu(k,385) * lu(k,1423)
1117 141111616 : lu(k,1499) = lu(k,1499) - lu(k,386) * lu(k,1423)
1118 141111616 : lu(k,1503) = lu(k,1503) - lu(k,387) * lu(k,1423)
1119 141111616 : lu(k,1505) = lu(k,1505) - lu(k,388) * lu(k,1423)
1120 141111616 : lu(k,1507) = lu(k,1507) - lu(k,389) * lu(k,1423)
1121 141111616 : lu(k,1652) = lu(k,1652) - lu(k,384) * lu(k,1625)
1122 141111616 : lu(k,1670) = lu(k,1670) - lu(k,385) * lu(k,1625)
1123 141111616 : lu(k,1682) = lu(k,1682) - lu(k,386) * lu(k,1625)
1124 141111616 : lu(k,1686) = lu(k,1686) - lu(k,387) * lu(k,1625)
1125 141111616 : lu(k,1688) = lu(k,1688) - lu(k,388) * lu(k,1625)
1126 141111616 : lu(k,1690) = lu(k,1690) - lu(k,389) * lu(k,1625)
1127 141111616 : lu(k,1767) = lu(k,1767) - lu(k,384) * lu(k,1746)
1128 141111616 : lu(k,1786) = lu(k,1786) - lu(k,385) * lu(k,1746)
1129 141111616 : lu(k,1798) = lu(k,1798) - lu(k,386) * lu(k,1746)
1130 141111616 : lu(k,1802) = lu(k,1802) - lu(k,387) * lu(k,1746)
1131 141111616 : lu(k,1804) = lu(k,1804) - lu(k,388) * lu(k,1746)
1132 141111616 : lu(k,1806) = lu(k,1806) - lu(k,389) * lu(k,1746)
1133 141111616 : lu(k,390) = 1._r8 / lu(k,390)
1134 141111616 : lu(k,391) = lu(k,391) * lu(k,390)
1135 141111616 : lu(k,392) = lu(k,392) * lu(k,390)
1136 141111616 : lu(k,393) = lu(k,393) * lu(k,390)
1137 141111616 : lu(k,394) = lu(k,394) * lu(k,390)
1138 141111616 : lu(k,395) = lu(k,395) * lu(k,390)
1139 141111616 : lu(k,1083) = lu(k,1083) - lu(k,391) * lu(k,1081)
1140 141111616 : lu(k,1085) = lu(k,1085) - lu(k,392) * lu(k,1081)
1141 141111616 : lu(k,1086) = lu(k,1086) - lu(k,393) * lu(k,1081)
1142 141111616 : lu(k,1088) = lu(k,1088) - lu(k,394) * lu(k,1081)
1143 141111616 : lu(k,1092) = lu(k,1092) - lu(k,395) * lu(k,1081)
1144 141111616 : lu(k,1487) = lu(k,1487) - lu(k,391) * lu(k,1424)
1145 141111616 : lu(k,1496) = lu(k,1496) - lu(k,392) * lu(k,1424)
1146 141111616 : lu(k,1499) = lu(k,1499) - lu(k,393) * lu(k,1424)
1147 141111616 : lu(k,1502) = lu(k,1502) - lu(k,394) * lu(k,1424)
1148 141111616 : lu(k,1506) = lu(k,1506) - lu(k,395) * lu(k,1424)
1149 141111616 : lu(k,1570) = lu(k,1570) - lu(k,391) * lu(k,1560)
1150 141111616 : lu(k,1573) = lu(k,1573) - lu(k,392) * lu(k,1560)
1151 141111616 : lu(k,1576) = lu(k,1576) - lu(k,393) * lu(k,1560)
1152 141111616 : lu(k,1579) = lu(k,1579) - lu(k,394) * lu(k,1560)
1153 141111616 : lu(k,1583) = lu(k,1583) - lu(k,395) * lu(k,1560)
1154 141111616 : lu(k,1846) = lu(k,1846) - lu(k,391) * lu(k,1819)
1155 141111616 : lu(k,1855) = lu(k,1855) - lu(k,392) * lu(k,1819)
1156 141111616 : lu(k,1858) = lu(k,1858) - lu(k,393) * lu(k,1819)
1157 141111616 : lu(k,1861) = lu(k,1861) - lu(k,394) * lu(k,1819)
1158 145521354 : lu(k,1865) = lu(k,1865) - lu(k,395) * lu(k,1819)
1159 : end do
1160 4409738 : end subroutine lu_fac08
1161 4409738 : subroutine lu_fac09( avec_len, lu )
1162 : use chem_mods, only : nzcnt
1163 : use shr_kind_mod, only : r8 => shr_kind_r8
1164 : implicit none
1165 : !-----------------------------------------------------------------------
1166 : ! ... dummy args
1167 : !-----------------------------------------------------------------------
1168 : integer, intent(in) :: avec_len
1169 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1170 : !-----------------------------------------------------------------------
1171 : ! ... local variables
1172 : !-----------------------------------------------------------------------
1173 : integer :: k
1174 145521354 : do k = 1,avec_len
1175 141111616 : lu(k,396) = 1._r8 / lu(k,396)
1176 141111616 : lu(k,397) = lu(k,397) * lu(k,396)
1177 141111616 : lu(k,398) = lu(k,398) * lu(k,396)
1178 141111616 : lu(k,399) = lu(k,399) * lu(k,396)
1179 141111616 : lu(k,400) = lu(k,400) * lu(k,396)
1180 141111616 : lu(k,522) = - lu(k,397) * lu(k,520)
1181 141111616 : lu(k,523) = - lu(k,398) * lu(k,520)
1182 141111616 : lu(k,527) = - lu(k,399) * lu(k,520)
1183 141111616 : lu(k,528) = lu(k,528) - lu(k,400) * lu(k,520)
1184 141111616 : lu(k,533) = - lu(k,397) * lu(k,531)
1185 141111616 : lu(k,534) = - lu(k,398) * lu(k,531)
1186 141111616 : lu(k,537) = - lu(k,399) * lu(k,531)
1187 141111616 : lu(k,538) = lu(k,538) - lu(k,400) * lu(k,531)
1188 141111616 : lu(k,806) = - lu(k,397) * lu(k,803)
1189 141111616 : lu(k,807) = - lu(k,398) * lu(k,803)
1190 141111616 : lu(k,811) = - lu(k,399) * lu(k,803)
1191 141111616 : lu(k,813) = - lu(k,400) * lu(k,803)
1192 141111616 : lu(k,1443) = lu(k,1443) - lu(k,397) * lu(k,1425)
1193 141111616 : lu(k,1457) = lu(k,1457) - lu(k,398) * lu(k,1425)
1194 141111616 : lu(k,1493) = lu(k,1493) - lu(k,399) * lu(k,1425)
1195 141111616 : lu(k,1499) = lu(k,1499) - lu(k,400) * lu(k,1425)
1196 141111616 : lu(k,1756) = lu(k,1756) - lu(k,397) * lu(k,1747)
1197 141111616 : lu(k,1765) = lu(k,1765) - lu(k,398) * lu(k,1747)
1198 141111616 : lu(k,1792) = lu(k,1792) - lu(k,399) * lu(k,1747)
1199 141111616 : lu(k,1798) = lu(k,1798) - lu(k,400) * lu(k,1747)
1200 141111616 : lu(k,401) = 1._r8 / lu(k,401)
1201 141111616 : lu(k,402) = lu(k,402) * lu(k,401)
1202 141111616 : lu(k,403) = lu(k,403) * lu(k,401)
1203 141111616 : lu(k,404) = lu(k,404) * lu(k,401)
1204 141111616 : lu(k,405) = lu(k,405) * lu(k,401)
1205 141111616 : lu(k,406) = lu(k,406) * lu(k,401)
1206 141111616 : lu(k,1203) = lu(k,1203) - lu(k,402) * lu(k,1197)
1207 141111616 : lu(k,1206) = lu(k,1206) - lu(k,403) * lu(k,1197)
1208 141111616 : lu(k,1207) = lu(k,1207) - lu(k,404) * lu(k,1197)
1209 141111616 : lu(k,1208) = lu(k,1208) - lu(k,405) * lu(k,1197)
1210 141111616 : lu(k,1214) = - lu(k,406) * lu(k,1197)
1211 141111616 : lu(k,1233) = lu(k,1233) - lu(k,402) * lu(k,1217)
1212 141111616 : lu(k,1236) = lu(k,1236) - lu(k,403) * lu(k,1217)
1213 141111616 : lu(k,1237) = lu(k,1237) - lu(k,404) * lu(k,1217)
1214 141111616 : lu(k,1238) = lu(k,1238) - lu(k,405) * lu(k,1217)
1215 141111616 : lu(k,1244) = - lu(k,406) * lu(k,1217)
1216 141111616 : lu(k,1493) = lu(k,1493) - lu(k,402) * lu(k,1426)
1217 141111616 : lu(k,1497) = lu(k,1497) - lu(k,403) * lu(k,1426)
1218 141111616 : lu(k,1499) = lu(k,1499) - lu(k,404) * lu(k,1426)
1219 141111616 : lu(k,1501) = lu(k,1501) - lu(k,405) * lu(k,1426)
1220 141111616 : lu(k,1511) = lu(k,1511) - lu(k,406) * lu(k,1426)
1221 141111616 : lu(k,1676) = lu(k,1676) - lu(k,402) * lu(k,1626)
1222 141111616 : lu(k,1680) = lu(k,1680) - lu(k,403) * lu(k,1626)
1223 141111616 : lu(k,1682) = lu(k,1682) - lu(k,404) * lu(k,1626)
1224 141111616 : lu(k,1684) = lu(k,1684) - lu(k,405) * lu(k,1626)
1225 141111616 : lu(k,1694) = lu(k,1694) - lu(k,406) * lu(k,1626)
1226 141111616 : lu(k,408) = 1._r8 / lu(k,408)
1227 141111616 : lu(k,409) = lu(k,409) * lu(k,408)
1228 141111616 : lu(k,410) = lu(k,410) * lu(k,408)
1229 141111616 : lu(k,411) = lu(k,411) * lu(k,408)
1230 141111616 : lu(k,412) = lu(k,412) * lu(k,408)
1231 141111616 : lu(k,413) = lu(k,413) * lu(k,408)
1232 141111616 : lu(k,1440) = lu(k,1440) - lu(k,409) * lu(k,1427)
1233 141111616 : lu(k,1499) = lu(k,1499) - lu(k,410) * lu(k,1427)
1234 141111616 : lu(k,1503) = lu(k,1503) - lu(k,411) * lu(k,1427)
1235 141111616 : lu(k,1505) = lu(k,1505) - lu(k,412) * lu(k,1427)
1236 141111616 : lu(k,1507) = lu(k,1507) - lu(k,413) * lu(k,1427)
1237 141111616 : lu(k,1634) = lu(k,1634) - lu(k,409) * lu(k,1627)
1238 141111616 : lu(k,1682) = lu(k,1682) - lu(k,410) * lu(k,1627)
1239 141111616 : lu(k,1686) = lu(k,1686) - lu(k,411) * lu(k,1627)
1240 141111616 : lu(k,1688) = lu(k,1688) - lu(k,412) * lu(k,1627)
1241 141111616 : lu(k,1690) = lu(k,1690) - lu(k,413) * lu(k,1627)
1242 141111616 : lu(k,1754) = lu(k,1754) - lu(k,409) * lu(k,1748)
1243 141111616 : lu(k,1798) = lu(k,1798) - lu(k,410) * lu(k,1748)
1244 141111616 : lu(k,1802) = lu(k,1802) - lu(k,411) * lu(k,1748)
1245 141111616 : lu(k,1804) = lu(k,1804) - lu(k,412) * lu(k,1748)
1246 141111616 : lu(k,1806) = lu(k,1806) - lu(k,413) * lu(k,1748)
1247 141111616 : lu(k,1880) = lu(k,1880) - lu(k,409) * lu(k,1877)
1248 141111616 : lu(k,1899) = lu(k,1899) - lu(k,410) * lu(k,1877)
1249 141111616 : lu(k,1903) = lu(k,1903) - lu(k,411) * lu(k,1877)
1250 141111616 : lu(k,1905) = lu(k,1905) - lu(k,412) * lu(k,1877)
1251 141111616 : lu(k,1907) = lu(k,1907) - lu(k,413) * lu(k,1877)
1252 141111616 : lu(k,414) = 1._r8 / lu(k,414)
1253 141111616 : lu(k,415) = lu(k,415) * lu(k,414)
1254 141111616 : lu(k,416) = lu(k,416) * lu(k,414)
1255 141111616 : lu(k,417) = lu(k,417) * lu(k,414)
1256 141111616 : lu(k,418) = lu(k,418) * lu(k,414)
1257 141111616 : lu(k,419) = lu(k,419) * lu(k,414)
1258 141111616 : lu(k,420) = lu(k,420) * lu(k,414)
1259 141111616 : lu(k,421) = lu(k,421) * lu(k,414)
1260 141111616 : lu(k,1515) = lu(k,1515) - lu(k,415) * lu(k,1514)
1261 141111616 : lu(k,1518) = lu(k,1518) - lu(k,416) * lu(k,1514)
1262 141111616 : lu(k,1519) = - lu(k,417) * lu(k,1514)
1263 141111616 : lu(k,1524) = lu(k,1524) - lu(k,418) * lu(k,1514)
1264 141111616 : lu(k,1526) = lu(k,1526) - lu(k,419) * lu(k,1514)
1265 141111616 : lu(k,1531) = lu(k,1531) - lu(k,420) * lu(k,1514)
1266 141111616 : lu(k,1534) = - lu(k,421) * lu(k,1514)
1267 141111616 : lu(k,1563) = lu(k,1563) - lu(k,415) * lu(k,1561)
1268 141111616 : lu(k,1571) = lu(k,1571) - lu(k,416) * lu(k,1561)
1269 141111616 : lu(k,1572) = - lu(k,417) * lu(k,1561)
1270 141111616 : lu(k,1577) = lu(k,1577) - lu(k,418) * lu(k,1561)
1271 141111616 : lu(k,1579) = lu(k,1579) - lu(k,419) * lu(k,1561)
1272 141111616 : lu(k,1584) = lu(k,1584) - lu(k,420) * lu(k,1561)
1273 141111616 : lu(k,1587) = lu(k,1587) - lu(k,421) * lu(k,1561)
1274 141111616 : lu(k,1883) = - lu(k,415) * lu(k,1878)
1275 141111616 : lu(k,1894) = - lu(k,416) * lu(k,1878)
1276 141111616 : lu(k,1895) = lu(k,1895) - lu(k,417) * lu(k,1878)
1277 141111616 : lu(k,1900) = lu(k,1900) - lu(k,418) * lu(k,1878)
1278 141111616 : lu(k,1902) = lu(k,1902) - lu(k,419) * lu(k,1878)
1279 141111616 : lu(k,1907) = lu(k,1907) - lu(k,420) * lu(k,1878)
1280 141111616 : lu(k,1910) = lu(k,1910) - lu(k,421) * lu(k,1878)
1281 141111616 : lu(k,422) = 1._r8 / lu(k,422)
1282 141111616 : lu(k,423) = lu(k,423) * lu(k,422)
1283 141111616 : lu(k,424) = lu(k,424) * lu(k,422)
1284 141111616 : lu(k,425) = lu(k,425) * lu(k,422)
1285 141111616 : lu(k,426) = lu(k,426) * lu(k,422)
1286 141111616 : lu(k,427) = lu(k,427) * lu(k,422)
1287 141111616 : lu(k,428) = lu(k,428) * lu(k,422)
1288 141111616 : lu(k,429) = lu(k,429) * lu(k,422)
1289 141111616 : lu(k,629) = lu(k,629) - lu(k,423) * lu(k,628)
1290 141111616 : lu(k,630) = lu(k,630) - lu(k,424) * lu(k,628)
1291 141111616 : lu(k,631) = - lu(k,425) * lu(k,628)
1292 141111616 : lu(k,632) = - lu(k,426) * lu(k,628)
1293 141111616 : lu(k,633) = lu(k,633) - lu(k,427) * lu(k,628)
1294 141111616 : lu(k,634) = lu(k,634) - lu(k,428) * lu(k,628)
1295 141111616 : lu(k,637) = - lu(k,429) * lu(k,628)
1296 141111616 : lu(k,1451) = lu(k,1451) - lu(k,423) * lu(k,1428)
1297 141111616 : lu(k,1474) = lu(k,1474) - lu(k,424) * lu(k,1428)
1298 141111616 : lu(k,1477) = lu(k,1477) - lu(k,425) * lu(k,1428)
1299 141111616 : lu(k,1499) = lu(k,1499) - lu(k,426) * lu(k,1428)
1300 141111616 : lu(k,1501) = lu(k,1501) - lu(k,427) * lu(k,1428)
1301 141111616 : lu(k,1503) = lu(k,1503) - lu(k,428) * lu(k,1428)
1302 141111616 : lu(k,1511) = lu(k,1511) - lu(k,429) * lu(k,1428)
1303 141111616 : lu(k,1644) = lu(k,1644) - lu(k,423) * lu(k,1628)
1304 141111616 : lu(k,1659) = lu(k,1659) - lu(k,424) * lu(k,1628)
1305 141111616 : lu(k,1661) = - lu(k,425) * lu(k,1628)
1306 141111616 : lu(k,1682) = lu(k,1682) - lu(k,426) * lu(k,1628)
1307 141111616 : lu(k,1684) = lu(k,1684) - lu(k,427) * lu(k,1628)
1308 141111616 : lu(k,1686) = lu(k,1686) - lu(k,428) * lu(k,1628)
1309 145521354 : lu(k,1694) = lu(k,1694) - lu(k,429) * lu(k,1628)
1310 : end do
1311 4409738 : end subroutine lu_fac09
1312 4409738 : subroutine lu_fac10( avec_len, lu )
1313 : use chem_mods, only : nzcnt
1314 : use shr_kind_mod, only : r8 => shr_kind_r8
1315 : implicit none
1316 : !-----------------------------------------------------------------------
1317 : ! ... dummy args
1318 : !-----------------------------------------------------------------------
1319 : integer, intent(in) :: avec_len
1320 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1321 : !-----------------------------------------------------------------------
1322 : ! ... local variables
1323 : !-----------------------------------------------------------------------
1324 : integer :: k
1325 145521354 : do k = 1,avec_len
1326 141111616 : lu(k,430) = 1._r8 / lu(k,430)
1327 141111616 : lu(k,431) = lu(k,431) * lu(k,430)
1328 141111616 : lu(k,432) = lu(k,432) * lu(k,430)
1329 141111616 : lu(k,433) = lu(k,433) * lu(k,430)
1330 141111616 : lu(k,846) = lu(k,846) - lu(k,431) * lu(k,836)
1331 141111616 : lu(k,847) = lu(k,847) - lu(k,432) * lu(k,836)
1332 141111616 : lu(k,854) = - lu(k,433) * lu(k,836)
1333 141111616 : lu(k,1206) = lu(k,1206) - lu(k,431) * lu(k,1198)
1334 141111616 : lu(k,1207) = lu(k,1207) - lu(k,432) * lu(k,1198)
1335 141111616 : lu(k,1214) = lu(k,1214) - lu(k,433) * lu(k,1198)
1336 141111616 : lu(k,1236) = lu(k,1236) - lu(k,431) * lu(k,1218)
1337 141111616 : lu(k,1237) = lu(k,1237) - lu(k,432) * lu(k,1218)
1338 141111616 : lu(k,1244) = lu(k,1244) - lu(k,433) * lu(k,1218)
1339 141111616 : lu(k,1320) = lu(k,1320) - lu(k,431) * lu(k,1289)
1340 141111616 : lu(k,1322) = lu(k,1322) - lu(k,432) * lu(k,1289)
1341 141111616 : lu(k,1333) = lu(k,1333) - lu(k,433) * lu(k,1289)
1342 141111616 : lu(k,1497) = lu(k,1497) - lu(k,431) * lu(k,1429)
1343 141111616 : lu(k,1499) = lu(k,1499) - lu(k,432) * lu(k,1429)
1344 141111616 : lu(k,1511) = lu(k,1511) - lu(k,433) * lu(k,1429)
1345 141111616 : lu(k,1680) = lu(k,1680) - lu(k,431) * lu(k,1629)
1346 141111616 : lu(k,1682) = lu(k,1682) - lu(k,432) * lu(k,1629)
1347 141111616 : lu(k,1694) = lu(k,1694) - lu(k,433) * lu(k,1629)
1348 141111616 : lu(k,1856) = lu(k,1856) - lu(k,431) * lu(k,1820)
1349 141111616 : lu(k,1858) = lu(k,1858) - lu(k,432) * lu(k,1820)
1350 141111616 : lu(k,1870) = - lu(k,433) * lu(k,1820)
1351 141111616 : lu(k,434) = 1._r8 / lu(k,434)
1352 141111616 : lu(k,435) = lu(k,435) * lu(k,434)
1353 141111616 : lu(k,436) = lu(k,436) * lu(k,434)
1354 141111616 : lu(k,437) = lu(k,437) * lu(k,434)
1355 141111616 : lu(k,438) = lu(k,438) * lu(k,434)
1356 141111616 : lu(k,439) = lu(k,439) * lu(k,434)
1357 141111616 : lu(k,440) = lu(k,440) * lu(k,434)
1358 141111616 : lu(k,441) = lu(k,441) * lu(k,434)
1359 141111616 : lu(k,1102) = - lu(k,435) * lu(k,1098)
1360 141111616 : lu(k,1105) = lu(k,1105) - lu(k,436) * lu(k,1098)
1361 141111616 : lu(k,1107) = - lu(k,437) * lu(k,1098)
1362 141111616 : lu(k,1108) = lu(k,1108) - lu(k,438) * lu(k,1098)
1363 141111616 : lu(k,1118) = - lu(k,439) * lu(k,1098)
1364 141111616 : lu(k,1121) = lu(k,1121) - lu(k,440) * lu(k,1098)
1365 141111616 : lu(k,1123) = lu(k,1123) - lu(k,441) * lu(k,1098)
1366 141111616 : lu(k,1461) = lu(k,1461) - lu(k,435) * lu(k,1430)
1367 141111616 : lu(k,1471) = lu(k,1471) - lu(k,436) * lu(k,1430)
1368 141111616 : lu(k,1476) = lu(k,1476) - lu(k,437) * lu(k,1430)
1369 141111616 : lu(k,1477) = lu(k,1477) - lu(k,438) * lu(k,1430)
1370 141111616 : lu(k,1495) = lu(k,1495) - lu(k,439) * lu(k,1430)
1371 141111616 : lu(k,1499) = lu(k,1499) - lu(k,440) * lu(k,1430)
1372 141111616 : lu(k,1503) = lu(k,1503) - lu(k,441) * lu(k,1430)
1373 141111616 : lu(k,1766) = - lu(k,435) * lu(k,1749)
1374 141111616 : lu(k,1772) = lu(k,1772) - lu(k,436) * lu(k,1749)
1375 141111616 : lu(k,1777) = lu(k,1777) - lu(k,437) * lu(k,1749)
1376 141111616 : lu(k,1778) = lu(k,1778) - lu(k,438) * lu(k,1749)
1377 141111616 : lu(k,1794) = lu(k,1794) - lu(k,439) * lu(k,1749)
1378 141111616 : lu(k,1798) = lu(k,1798) - lu(k,440) * lu(k,1749)
1379 141111616 : lu(k,1802) = lu(k,1802) - lu(k,441) * lu(k,1749)
1380 141111616 : lu(k,442) = 1._r8 / lu(k,442)
1381 141111616 : lu(k,443) = lu(k,443) * lu(k,442)
1382 141111616 : lu(k,444) = lu(k,444) * lu(k,442)
1383 141111616 : lu(k,445) = lu(k,445) * lu(k,442)
1384 141111616 : lu(k,446) = lu(k,446) * lu(k,442)
1385 141111616 : lu(k,447) = lu(k,447) * lu(k,442)
1386 141111616 : lu(k,448) = lu(k,448) * lu(k,442)
1387 141111616 : lu(k,449) = lu(k,449) * lu(k,442)
1388 141111616 : lu(k,1445) = lu(k,1445) - lu(k,443) * lu(k,1431)
1389 141111616 : lu(k,1455) = lu(k,1455) - lu(k,444) * lu(k,1431)
1390 141111616 : lu(k,1475) = lu(k,1475) - lu(k,445) * lu(k,1431)
1391 141111616 : lu(k,1499) = lu(k,1499) - lu(k,446) * lu(k,1431)
1392 141111616 : lu(k,1501) = lu(k,1501) - lu(k,447) * lu(k,1431)
1393 141111616 : lu(k,1503) = lu(k,1503) - lu(k,448) * lu(k,1431)
1394 141111616 : lu(k,1506) = lu(k,1506) - lu(k,449) * lu(k,1431)
1395 141111616 : lu(k,1823) = - lu(k,443) * lu(k,1821)
1396 141111616 : lu(k,1824) = lu(k,1824) - lu(k,444) * lu(k,1821)
1397 141111616 : lu(k,1837) = lu(k,1837) - lu(k,445) * lu(k,1821)
1398 141111616 : lu(k,1858) = lu(k,1858) - lu(k,446) * lu(k,1821)
1399 141111616 : lu(k,1860) = lu(k,1860) - lu(k,447) * lu(k,1821)
1400 141111616 : lu(k,1862) = lu(k,1862) - lu(k,448) * lu(k,1821)
1401 141111616 : lu(k,1865) = lu(k,1865) - lu(k,449) * lu(k,1821)
1402 141111616 : lu(k,1940) = - lu(k,443) * lu(k,1938)
1403 141111616 : lu(k,1941) = lu(k,1941) - lu(k,444) * lu(k,1938)
1404 141111616 : lu(k,1948) = lu(k,1948) - lu(k,445) * lu(k,1938)
1405 141111616 : lu(k,1956) = lu(k,1956) - lu(k,446) * lu(k,1938)
1406 141111616 : lu(k,1958) = lu(k,1958) - lu(k,447) * lu(k,1938)
1407 141111616 : lu(k,1960) = lu(k,1960) - lu(k,448) * lu(k,1938)
1408 141111616 : lu(k,1963) = lu(k,1963) - lu(k,449) * lu(k,1938)
1409 141111616 : lu(k,450) = 1._r8 / lu(k,450)
1410 141111616 : lu(k,451) = lu(k,451) * lu(k,450)
1411 141111616 : lu(k,452) = lu(k,452) * lu(k,450)
1412 141111616 : lu(k,453) = lu(k,453) * lu(k,450)
1413 141111616 : lu(k,454) = lu(k,454) * lu(k,450)
1414 141111616 : lu(k,455) = lu(k,455) * lu(k,450)
1415 141111616 : lu(k,456) = lu(k,456) * lu(k,450)
1416 141111616 : lu(k,457) = lu(k,457) * lu(k,450)
1417 141111616 : lu(k,1467) = lu(k,1467) - lu(k,451) * lu(k,1432)
1418 141111616 : lu(k,1474) = lu(k,1474) - lu(k,452) * lu(k,1432)
1419 141111616 : lu(k,1476) = lu(k,1476) - lu(k,453) * lu(k,1432)
1420 141111616 : lu(k,1501) = lu(k,1501) - lu(k,454) * lu(k,1432)
1421 141111616 : lu(k,1503) = lu(k,1503) - lu(k,455) * lu(k,1432)
1422 141111616 : lu(k,1505) = lu(k,1505) - lu(k,456) * lu(k,1432)
1423 141111616 : lu(k,1507) = lu(k,1507) - lu(k,457) * lu(k,1432)
1424 141111616 : lu(k,1770) = lu(k,1770) - lu(k,451) * lu(k,1750)
1425 141111616 : lu(k,1775) = lu(k,1775) - lu(k,452) * lu(k,1750)
1426 141111616 : lu(k,1777) = lu(k,1777) - lu(k,453) * lu(k,1750)
1427 141111616 : lu(k,1800) = lu(k,1800) - lu(k,454) * lu(k,1750)
1428 141111616 : lu(k,1802) = lu(k,1802) - lu(k,455) * lu(k,1750)
1429 141111616 : lu(k,1804) = lu(k,1804) - lu(k,456) * lu(k,1750)
1430 141111616 : lu(k,1806) = lu(k,1806) - lu(k,457) * lu(k,1750)
1431 141111616 : lu(k,1983) = lu(k,1983) - lu(k,451) * lu(k,1975)
1432 141111616 : lu(k,1989) = lu(k,1989) - lu(k,452) * lu(k,1975)
1433 141111616 : lu(k,1991) = - lu(k,453) * lu(k,1975)
1434 141111616 : lu(k,2015) = lu(k,2015) - lu(k,454) * lu(k,1975)
1435 141111616 : lu(k,2017) = lu(k,2017) - lu(k,455) * lu(k,1975)
1436 141111616 : lu(k,2019) = lu(k,2019) - lu(k,456) * lu(k,1975)
1437 141111616 : lu(k,2021) = lu(k,2021) - lu(k,457) * lu(k,1975)
1438 141111616 : lu(k,458) = 1._r8 / lu(k,458)
1439 141111616 : lu(k,459) = lu(k,459) * lu(k,458)
1440 141111616 : lu(k,460) = lu(k,460) * lu(k,458)
1441 141111616 : lu(k,461) = lu(k,461) * lu(k,458)
1442 141111616 : lu(k,462) = lu(k,462) * lu(k,458)
1443 141111616 : lu(k,463) = lu(k,463) * lu(k,458)
1444 141111616 : lu(k,464) = lu(k,464) * lu(k,458)
1445 141111616 : lu(k,465) = lu(k,465) * lu(k,458)
1446 141111616 : lu(k,1200) = - lu(k,459) * lu(k,1199)
1447 141111616 : lu(k,1202) = lu(k,1202) - lu(k,460) * lu(k,1199)
1448 141111616 : lu(k,1207) = lu(k,1207) - lu(k,461) * lu(k,1199)
1449 141111616 : lu(k,1208) = lu(k,1208) - lu(k,462) * lu(k,1199)
1450 141111616 : lu(k,1209) = lu(k,1209) - lu(k,463) * lu(k,1199)
1451 141111616 : lu(k,1212) = lu(k,1212) - lu(k,464) * lu(k,1199)
1452 141111616 : lu(k,1213) = lu(k,1213) - lu(k,465) * lu(k,1199)
1453 141111616 : lu(k,1477) = lu(k,1477) - lu(k,459) * lu(k,1433)
1454 141111616 : lu(k,1492) = lu(k,1492) - lu(k,460) * lu(k,1433)
1455 141111616 : lu(k,1499) = lu(k,1499) - lu(k,461) * lu(k,1433)
1456 141111616 : lu(k,1501) = lu(k,1501) - lu(k,462) * lu(k,1433)
1457 141111616 : lu(k,1503) = lu(k,1503) - lu(k,463) * lu(k,1433)
1458 141111616 : lu(k,1507) = lu(k,1507) - lu(k,464) * lu(k,1433)
1459 141111616 : lu(k,1510) = lu(k,1510) - lu(k,465) * lu(k,1433)
1460 141111616 : lu(k,1889) = - lu(k,459) * lu(k,1879)
1461 141111616 : lu(k,1892) = lu(k,1892) - lu(k,460) * lu(k,1879)
1462 141111616 : lu(k,1899) = lu(k,1899) - lu(k,461) * lu(k,1879)
1463 141111616 : lu(k,1901) = lu(k,1901) - lu(k,462) * lu(k,1879)
1464 141111616 : lu(k,1903) = lu(k,1903) - lu(k,463) * lu(k,1879)
1465 141111616 : lu(k,1907) = lu(k,1907) - lu(k,464) * lu(k,1879)
1466 141111616 : lu(k,1910) = lu(k,1910) - lu(k,465) * lu(k,1879)
1467 141111616 : lu(k,466) = 1._r8 / lu(k,466)
1468 141111616 : lu(k,467) = lu(k,467) * lu(k,466)
1469 141111616 : lu(k,468) = lu(k,468) * lu(k,466)
1470 141111616 : lu(k,469) = lu(k,469) * lu(k,466)
1471 141111616 : lu(k,470) = lu(k,470) * lu(k,466)
1472 141111616 : lu(k,471) = lu(k,471) * lu(k,466)
1473 141111616 : lu(k,472) = lu(k,472) * lu(k,466)
1474 141111616 : lu(k,1499) = lu(k,1499) - lu(k,467) * lu(k,1434)
1475 141111616 : lu(k,1502) = lu(k,1502) - lu(k,468) * lu(k,1434)
1476 141111616 : lu(k,1503) = lu(k,1503) - lu(k,469) * lu(k,1434)
1477 141111616 : lu(k,1508) = lu(k,1508) - lu(k,470) * lu(k,1434)
1478 141111616 : lu(k,1509) = lu(k,1509) - lu(k,471) * lu(k,1434)
1479 141111616 : lu(k,1511) = lu(k,1511) - lu(k,472) * lu(k,1434)
1480 141111616 : lu(k,1576) = lu(k,1576) - lu(k,467) * lu(k,1562)
1481 141111616 : lu(k,1579) = lu(k,1579) - lu(k,468) * lu(k,1562)
1482 141111616 : lu(k,1580) = lu(k,1580) - lu(k,469) * lu(k,1562)
1483 141111616 : lu(k,1585) = lu(k,1585) - lu(k,470) * lu(k,1562)
1484 141111616 : lu(k,1586) = lu(k,1586) - lu(k,471) * lu(k,1562)
1485 141111616 : lu(k,1588) = - lu(k,472) * lu(k,1562)
1486 141111616 : lu(k,1682) = lu(k,1682) - lu(k,467) * lu(k,1630)
1487 141111616 : lu(k,1685) = lu(k,1685) - lu(k,468) * lu(k,1630)
1488 141111616 : lu(k,1686) = lu(k,1686) - lu(k,469) * lu(k,1630)
1489 141111616 : lu(k,1691) = lu(k,1691) - lu(k,470) * lu(k,1630)
1490 141111616 : lu(k,1692) = lu(k,1692) - lu(k,471) * lu(k,1630)
1491 141111616 : lu(k,1694) = lu(k,1694) - lu(k,472) * lu(k,1630)
1492 141111616 : lu(k,1956) = lu(k,1956) - lu(k,467) * lu(k,1939)
1493 141111616 : lu(k,1959) = - lu(k,468) * lu(k,1939)
1494 141111616 : lu(k,1960) = lu(k,1960) - lu(k,469) * lu(k,1939)
1495 141111616 : lu(k,1965) = lu(k,1965) - lu(k,470) * lu(k,1939)
1496 141111616 : lu(k,1966) = lu(k,1966) - lu(k,471) * lu(k,1939)
1497 145521354 : lu(k,1968) = lu(k,1968) - lu(k,472) * lu(k,1939)
1498 : end do
1499 4409738 : end subroutine lu_fac10
1500 4409738 : subroutine lu_fac11( avec_len, lu )
1501 : use chem_mods, only : nzcnt
1502 : use shr_kind_mod, only : r8 => shr_kind_r8
1503 : implicit none
1504 : !-----------------------------------------------------------------------
1505 : ! ... dummy args
1506 : !-----------------------------------------------------------------------
1507 : integer, intent(in) :: avec_len
1508 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1509 : !-----------------------------------------------------------------------
1510 : ! ... local variables
1511 : !-----------------------------------------------------------------------
1512 : integer :: k
1513 145521354 : do k = 1,avec_len
1514 141111616 : lu(k,473) = 1._r8 / lu(k,473)
1515 141111616 : lu(k,474) = lu(k,474) * lu(k,473)
1516 141111616 : lu(k,475) = lu(k,475) * lu(k,473)
1517 141111616 : lu(k,476) = lu(k,476) * lu(k,473)
1518 141111616 : lu(k,477) = lu(k,477) * lu(k,473)
1519 141111616 : lu(k,478) = lu(k,478) * lu(k,473)
1520 141111616 : lu(k,479) = lu(k,479) * lu(k,473)
1521 141111616 : lu(k,480) = lu(k,480) * lu(k,473)
1522 141111616 : lu(k,481) = lu(k,481) * lu(k,473)
1523 141111616 : lu(k,1173) = - lu(k,474) * lu(k,1170)
1524 141111616 : lu(k,1175) = - lu(k,475) * lu(k,1170)
1525 141111616 : lu(k,1176) = - lu(k,476) * lu(k,1170)
1526 141111616 : lu(k,1186) = - lu(k,477) * lu(k,1170)
1527 141111616 : lu(k,1189) = - lu(k,478) * lu(k,1170)
1528 141111616 : lu(k,1190) = lu(k,1190) - lu(k,479) * lu(k,1170)
1529 141111616 : lu(k,1191) = lu(k,1191) - lu(k,480) * lu(k,1170)
1530 141111616 : lu(k,1194) = lu(k,1194) - lu(k,481) * lu(k,1170)
1531 141111616 : lu(k,1471) = lu(k,1471) - lu(k,474) * lu(k,1435)
1532 141111616 : lu(k,1476) = lu(k,1476) - lu(k,475) * lu(k,1435)
1533 141111616 : lu(k,1477) = lu(k,1477) - lu(k,476) * lu(k,1435)
1534 141111616 : lu(k,1495) = lu(k,1495) - lu(k,477) * lu(k,1435)
1535 141111616 : lu(k,1499) = lu(k,1499) - lu(k,478) * lu(k,1435)
1536 141111616 : lu(k,1501) = lu(k,1501) - lu(k,479) * lu(k,1435)
1537 141111616 : lu(k,1503) = lu(k,1503) - lu(k,480) * lu(k,1435)
1538 141111616 : lu(k,1507) = lu(k,1507) - lu(k,481) * lu(k,1435)
1539 141111616 : lu(k,1772) = lu(k,1772) - lu(k,474) * lu(k,1751)
1540 141111616 : lu(k,1777) = lu(k,1777) - lu(k,475) * lu(k,1751)
1541 141111616 : lu(k,1778) = lu(k,1778) - lu(k,476) * lu(k,1751)
1542 141111616 : lu(k,1794) = lu(k,1794) - lu(k,477) * lu(k,1751)
1543 141111616 : lu(k,1798) = lu(k,1798) - lu(k,478) * lu(k,1751)
1544 141111616 : lu(k,1800) = lu(k,1800) - lu(k,479) * lu(k,1751)
1545 141111616 : lu(k,1802) = lu(k,1802) - lu(k,480) * lu(k,1751)
1546 141111616 : lu(k,1806) = lu(k,1806) - lu(k,481) * lu(k,1751)
1547 141111616 : lu(k,482) = 1._r8 / lu(k,482)
1548 141111616 : lu(k,483) = lu(k,483) * lu(k,482)
1549 141111616 : lu(k,484) = lu(k,484) * lu(k,482)
1550 141111616 : lu(k,485) = lu(k,485) * lu(k,482)
1551 141111616 : lu(k,486) = lu(k,486) * lu(k,482)
1552 141111616 : lu(k,487) = lu(k,487) * lu(k,482)
1553 141111616 : lu(k,488) = lu(k,488) * lu(k,482)
1554 141111616 : lu(k,489) = lu(k,489) * lu(k,482)
1555 141111616 : lu(k,490) = lu(k,490) * lu(k,482)
1556 141111616 : lu(k,956) = lu(k,956) - lu(k,483) * lu(k,954)
1557 141111616 : lu(k,957) = lu(k,957) - lu(k,484) * lu(k,954)
1558 141111616 : lu(k,958) = lu(k,958) - lu(k,485) * lu(k,954)
1559 141111616 : lu(k,959) = lu(k,959) - lu(k,486) * lu(k,954)
1560 141111616 : lu(k,960) = lu(k,960) - lu(k,487) * lu(k,954)
1561 141111616 : lu(k,966) = - lu(k,488) * lu(k,954)
1562 141111616 : lu(k,967) = lu(k,967) - lu(k,489) * lu(k,954)
1563 141111616 : lu(k,968) = lu(k,968) - lu(k,490) * lu(k,954)
1564 141111616 : lu(k,1467) = lu(k,1467) - lu(k,483) * lu(k,1436)
1565 141111616 : lu(k,1471) = lu(k,1471) - lu(k,484) * lu(k,1436)
1566 141111616 : lu(k,1473) = lu(k,1473) - lu(k,485) * lu(k,1436)
1567 141111616 : lu(k,1475) = lu(k,1475) - lu(k,486) * lu(k,1436)
1568 141111616 : lu(k,1479) = lu(k,1479) - lu(k,487) * lu(k,1436)
1569 141111616 : lu(k,1499) = lu(k,1499) - lu(k,488) * lu(k,1436)
1570 141111616 : lu(k,1501) = lu(k,1501) - lu(k,489) * lu(k,1436)
1571 141111616 : lu(k,1503) = lu(k,1503) - lu(k,490) * lu(k,1436)
1572 141111616 : lu(k,1655) = lu(k,1655) - lu(k,483) * lu(k,1631)
1573 141111616 : lu(k,1657) = lu(k,1657) - lu(k,484) * lu(k,1631)
1574 141111616 : lu(k,1658) = - lu(k,485) * lu(k,1631)
1575 141111616 : lu(k,1660) = lu(k,1660) - lu(k,486) * lu(k,1631)
1576 141111616 : lu(k,1663) = lu(k,1663) - lu(k,487) * lu(k,1631)
1577 141111616 : lu(k,1682) = lu(k,1682) - lu(k,488) * lu(k,1631)
1578 141111616 : lu(k,1684) = lu(k,1684) - lu(k,489) * lu(k,1631)
1579 141111616 : lu(k,1686) = lu(k,1686) - lu(k,490) * lu(k,1631)
1580 141111616 : lu(k,493) = 1._r8 / lu(k,493)
1581 141111616 : lu(k,494) = lu(k,494) * lu(k,493)
1582 141111616 : lu(k,495) = lu(k,495) * lu(k,493)
1583 141111616 : lu(k,496) = lu(k,496) * lu(k,493)
1584 141111616 : lu(k,497) = lu(k,497) * lu(k,493)
1585 141111616 : lu(k,498) = lu(k,498) * lu(k,493)
1586 141111616 : lu(k,499) = lu(k,499) * lu(k,493)
1587 141111616 : lu(k,500) = lu(k,500) * lu(k,493)
1588 141111616 : lu(k,501) = lu(k,501) * lu(k,493)
1589 141111616 : lu(k,583) = lu(k,583) - lu(k,494) * lu(k,582)
1590 141111616 : lu(k,584) = lu(k,584) - lu(k,495) * lu(k,582)
1591 141111616 : lu(k,585) = lu(k,585) - lu(k,496) * lu(k,582)
1592 141111616 : lu(k,586) = lu(k,586) - lu(k,497) * lu(k,582)
1593 141111616 : lu(k,587) = lu(k,587) - lu(k,498) * lu(k,582)
1594 141111616 : lu(k,590) = lu(k,590) - lu(k,499) * lu(k,582)
1595 141111616 : lu(k,591) = - lu(k,500) * lu(k,582)
1596 141111616 : lu(k,592) = lu(k,592) - lu(k,501) * lu(k,582)
1597 141111616 : lu(k,1438) = lu(k,1438) - lu(k,494) * lu(k,1437)
1598 141111616 : lu(k,1446) = lu(k,1446) - lu(k,495) * lu(k,1437)
1599 141111616 : lu(k,1447) = lu(k,1447) - lu(k,496) * lu(k,1437)
1600 141111616 : lu(k,1450) = - lu(k,497) * lu(k,1437)
1601 141111616 : lu(k,1462) = lu(k,1462) - lu(k,498) * lu(k,1437)
1602 141111616 : lu(k,1486) = lu(k,1486) - lu(k,499) * lu(k,1437)
1603 141111616 : lu(k,1499) = lu(k,1499) - lu(k,500) * lu(k,1437)
1604 141111616 : lu(k,1503) = lu(k,1503) - lu(k,501) * lu(k,1437)
1605 141111616 : lu(k,1633) = - lu(k,494) * lu(k,1632)
1606 141111616 : lu(k,1639) = lu(k,1639) - lu(k,495) * lu(k,1632)
1607 141111616 : lu(k,1640) = lu(k,1640) - lu(k,496) * lu(k,1632)
1608 141111616 : lu(k,1643) = lu(k,1643) - lu(k,497) * lu(k,1632)
1609 141111616 : lu(k,1652) = lu(k,1652) - lu(k,498) * lu(k,1632)
1610 141111616 : lu(k,1670) = lu(k,1670) - lu(k,499) * lu(k,1632)
1611 141111616 : lu(k,1682) = lu(k,1682) - lu(k,500) * lu(k,1632)
1612 141111616 : lu(k,1686) = lu(k,1686) - lu(k,501) * lu(k,1632)
1613 141111616 : lu(k,502) = 1._r8 / lu(k,502)
1614 141111616 : lu(k,503) = lu(k,503) * lu(k,502)
1615 141111616 : lu(k,504) = lu(k,504) * lu(k,502)
1616 141111616 : lu(k,505) = lu(k,505) * lu(k,502)
1617 141111616 : lu(k,559) = - lu(k,503) * lu(k,553)
1618 141111616 : lu(k,560) = lu(k,560) - lu(k,504) * lu(k,553)
1619 141111616 : lu(k,564) = lu(k,564) - lu(k,505) * lu(k,553)
1620 141111616 : lu(k,588) = - lu(k,503) * lu(k,583)
1621 141111616 : lu(k,589) = - lu(k,504) * lu(k,583)
1622 141111616 : lu(k,592) = lu(k,592) - lu(k,505) * lu(k,583)
1623 141111616 : lu(k,612) = - lu(k,503) * lu(k,606)
1624 141111616 : lu(k,613) = lu(k,613) - lu(k,504) * lu(k,606)
1625 141111616 : lu(k,617) = lu(k,617) - lu(k,505) * lu(k,606)
1626 141111616 : lu(k,872) = - lu(k,503) * lu(k,869)
1627 141111616 : lu(k,874) = - lu(k,504) * lu(k,869)
1628 141111616 : lu(k,881) = lu(k,881) - lu(k,505) * lu(k,869)
1629 141111616 : lu(k,1104) = - lu(k,503) * lu(k,1099)
1630 141111616 : lu(k,1106) = - lu(k,504) * lu(k,1099)
1631 141111616 : lu(k,1123) = lu(k,1123) - lu(k,505) * lu(k,1099)
1632 141111616 : lu(k,1463) = - lu(k,503) * lu(k,1438)
1633 141111616 : lu(k,1475) = lu(k,1475) - lu(k,504) * lu(k,1438)
1634 141111616 : lu(k,1503) = lu(k,1503) - lu(k,505) * lu(k,1438)
1635 141111616 : lu(k,1653) = lu(k,1653) - lu(k,503) * lu(k,1633)
1636 141111616 : lu(k,1660) = lu(k,1660) - lu(k,504) * lu(k,1633)
1637 141111616 : lu(k,1686) = lu(k,1686) - lu(k,505) * lu(k,1633)
1638 141111616 : lu(k,1768) = lu(k,1768) - lu(k,503) * lu(k,1752)
1639 141111616 : lu(k,1776) = lu(k,1776) - lu(k,504) * lu(k,1752)
1640 141111616 : lu(k,1802) = lu(k,1802) - lu(k,505) * lu(k,1752)
1641 141111616 : lu(k,506) = 1._r8 / lu(k,506)
1642 141111616 : lu(k,507) = lu(k,507) * lu(k,506)
1643 141111616 : lu(k,508) = lu(k,508) * lu(k,506)
1644 141111616 : lu(k,509) = lu(k,509) * lu(k,506)
1645 141111616 : lu(k,510) = lu(k,510) * lu(k,506)
1646 141111616 : lu(k,511) = lu(k,511) * lu(k,506)
1647 141111616 : lu(k,935) = lu(k,935) - lu(k,507) * lu(k,932)
1648 141111616 : lu(k,943) = - lu(k,508) * lu(k,932)
1649 141111616 : lu(k,946) = lu(k,946) - lu(k,509) * lu(k,932)
1650 141111616 : lu(k,948) = lu(k,948) - lu(k,510) * lu(k,932)
1651 141111616 : lu(k,950) = lu(k,950) - lu(k,511) * lu(k,932)
1652 141111616 : lu(k,975) = lu(k,975) - lu(k,507) * lu(k,973)
1653 141111616 : lu(k,982) = lu(k,982) - lu(k,508) * lu(k,973)
1654 141111616 : lu(k,985) = lu(k,985) - lu(k,509) * lu(k,973)
1655 141111616 : lu(k,987) = lu(k,987) - lu(k,510) * lu(k,973)
1656 141111616 : lu(k,989) = lu(k,989) - lu(k,511) * lu(k,973)
1657 141111616 : lu(k,1297) = lu(k,1297) - lu(k,507) * lu(k,1290)
1658 141111616 : lu(k,1318) = lu(k,1318) - lu(k,508) * lu(k,1290)
1659 141111616 : lu(k,1322) = lu(k,1322) - lu(k,509) * lu(k,1290)
1660 141111616 : lu(k,1325) = lu(k,1325) - lu(k,510) * lu(k,1290)
1661 141111616 : lu(k,1329) = lu(k,1329) - lu(k,511) * lu(k,1290)
1662 141111616 : lu(k,1470) = lu(k,1470) - lu(k,507) * lu(k,1439)
1663 141111616 : lu(k,1495) = lu(k,1495) - lu(k,508) * lu(k,1439)
1664 141111616 : lu(k,1499) = lu(k,1499) - lu(k,509) * lu(k,1439)
1665 141111616 : lu(k,1503) = lu(k,1503) - lu(k,510) * lu(k,1439)
1666 141111616 : lu(k,1507) = lu(k,1507) - lu(k,511) * lu(k,1439)
1667 141111616 : lu(k,1771) = lu(k,1771) - lu(k,507) * lu(k,1753)
1668 141111616 : lu(k,1794) = lu(k,1794) - lu(k,508) * lu(k,1753)
1669 141111616 : lu(k,1798) = lu(k,1798) - lu(k,509) * lu(k,1753)
1670 141111616 : lu(k,1802) = lu(k,1802) - lu(k,510) * lu(k,1753)
1671 145521354 : lu(k,1806) = lu(k,1806) - lu(k,511) * lu(k,1753)
1672 : end do
1673 4409738 : end subroutine lu_fac11
1674 4409738 : subroutine lu_fac12( avec_len, lu )
1675 : use chem_mods, only : nzcnt
1676 : use shr_kind_mod, only : r8 => shr_kind_r8
1677 : implicit none
1678 : !-----------------------------------------------------------------------
1679 : ! ... dummy args
1680 : !-----------------------------------------------------------------------
1681 : integer, intent(in) :: avec_len
1682 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1683 : !-----------------------------------------------------------------------
1684 : ! ... local variables
1685 : !-----------------------------------------------------------------------
1686 : integer :: k
1687 145521354 : do k = 1,avec_len
1688 141111616 : lu(k,514) = 1._r8 / lu(k,514)
1689 141111616 : lu(k,515) = lu(k,515) * lu(k,514)
1690 141111616 : lu(k,516) = lu(k,516) * lu(k,514)
1691 141111616 : lu(k,517) = lu(k,517) * lu(k,514)
1692 141111616 : lu(k,518) = lu(k,518) * lu(k,514)
1693 141111616 : lu(k,519) = lu(k,519) * lu(k,514)
1694 141111616 : lu(k,1499) = lu(k,1499) - lu(k,515) * lu(k,1440)
1695 141111616 : lu(k,1503) = lu(k,1503) - lu(k,516) * lu(k,1440)
1696 141111616 : lu(k,1505) = lu(k,1505) - lu(k,517) * lu(k,1440)
1697 141111616 : lu(k,1506) = lu(k,1506) - lu(k,518) * lu(k,1440)
1698 141111616 : lu(k,1507) = lu(k,1507) - lu(k,519) * lu(k,1440)
1699 141111616 : lu(k,1682) = lu(k,1682) - lu(k,515) * lu(k,1634)
1700 141111616 : lu(k,1686) = lu(k,1686) - lu(k,516) * lu(k,1634)
1701 141111616 : lu(k,1688) = lu(k,1688) - lu(k,517) * lu(k,1634)
1702 141111616 : lu(k,1689) = lu(k,1689) - lu(k,518) * lu(k,1634)
1703 141111616 : lu(k,1690) = lu(k,1690) - lu(k,519) * lu(k,1634)
1704 141111616 : lu(k,1798) = lu(k,1798) - lu(k,515) * lu(k,1754)
1705 141111616 : lu(k,1802) = lu(k,1802) - lu(k,516) * lu(k,1754)
1706 141111616 : lu(k,1804) = lu(k,1804) - lu(k,517) * lu(k,1754)
1707 141111616 : lu(k,1805) = lu(k,1805) - lu(k,518) * lu(k,1754)
1708 141111616 : lu(k,1806) = lu(k,1806) - lu(k,519) * lu(k,1754)
1709 141111616 : lu(k,1858) = lu(k,1858) - lu(k,515) * lu(k,1822)
1710 141111616 : lu(k,1862) = lu(k,1862) - lu(k,516) * lu(k,1822)
1711 141111616 : lu(k,1864) = lu(k,1864) - lu(k,517) * lu(k,1822)
1712 141111616 : lu(k,1865) = lu(k,1865) - lu(k,518) * lu(k,1822)
1713 141111616 : lu(k,1866) = lu(k,1866) - lu(k,519) * lu(k,1822)
1714 141111616 : lu(k,1899) = lu(k,1899) - lu(k,515) * lu(k,1880)
1715 141111616 : lu(k,1903) = lu(k,1903) - lu(k,516) * lu(k,1880)
1716 141111616 : lu(k,1905) = lu(k,1905) - lu(k,517) * lu(k,1880)
1717 141111616 : lu(k,1906) = lu(k,1906) - lu(k,518) * lu(k,1880)
1718 141111616 : lu(k,1907) = lu(k,1907) - lu(k,519) * lu(k,1880)
1719 141111616 : lu(k,521) = 1._r8 / lu(k,521)
1720 141111616 : lu(k,522) = lu(k,522) * lu(k,521)
1721 141111616 : lu(k,523) = lu(k,523) * lu(k,521)
1722 141111616 : lu(k,524) = lu(k,524) * lu(k,521)
1723 141111616 : lu(k,525) = lu(k,525) * lu(k,521)
1724 141111616 : lu(k,526) = lu(k,526) * lu(k,521)
1725 141111616 : lu(k,527) = lu(k,527) * lu(k,521)
1726 141111616 : lu(k,528) = lu(k,528) * lu(k,521)
1727 141111616 : lu(k,529) = lu(k,529) * lu(k,521)
1728 141111616 : lu(k,530) = lu(k,530) * lu(k,521)
1729 141111616 : lu(k,806) = lu(k,806) - lu(k,522) * lu(k,804)
1730 141111616 : lu(k,807) = lu(k,807) - lu(k,523) * lu(k,804)
1731 141111616 : lu(k,808) = lu(k,808) - lu(k,524) * lu(k,804)
1732 141111616 : lu(k,809) = lu(k,809) - lu(k,525) * lu(k,804)
1733 141111616 : lu(k,810) = lu(k,810) - lu(k,526) * lu(k,804)
1734 141111616 : lu(k,811) = lu(k,811) - lu(k,527) * lu(k,804)
1735 141111616 : lu(k,813) = lu(k,813) - lu(k,528) * lu(k,804)
1736 141111616 : lu(k,814) = lu(k,814) - lu(k,529) * lu(k,804)
1737 141111616 : lu(k,815) = lu(k,815) - lu(k,530) * lu(k,804)
1738 141111616 : lu(k,1443) = lu(k,1443) - lu(k,522) * lu(k,1441)
1739 141111616 : lu(k,1457) = lu(k,1457) - lu(k,523) * lu(k,1441)
1740 141111616 : lu(k,1466) = lu(k,1466) - lu(k,524) * lu(k,1441)
1741 141111616 : lu(k,1467) = lu(k,1467) - lu(k,525) * lu(k,1441)
1742 141111616 : lu(k,1474) = lu(k,1474) - lu(k,526) * lu(k,1441)
1743 141111616 : lu(k,1493) = lu(k,1493) - lu(k,527) * lu(k,1441)
1744 141111616 : lu(k,1499) = lu(k,1499) - lu(k,528) * lu(k,1441)
1745 141111616 : lu(k,1501) = lu(k,1501) - lu(k,529) * lu(k,1441)
1746 141111616 : lu(k,1503) = lu(k,1503) - lu(k,530) * lu(k,1441)
1747 141111616 : lu(k,1636) = lu(k,1636) - lu(k,522) * lu(k,1635)
1748 141111616 : lu(k,1649) = lu(k,1649) - lu(k,523) * lu(k,1635)
1749 141111616 : lu(k,1654) = lu(k,1654) - lu(k,524) * lu(k,1635)
1750 141111616 : lu(k,1655) = lu(k,1655) - lu(k,525) * lu(k,1635)
1751 141111616 : lu(k,1659) = lu(k,1659) - lu(k,526) * lu(k,1635)
1752 141111616 : lu(k,1676) = lu(k,1676) - lu(k,527) * lu(k,1635)
1753 141111616 : lu(k,1682) = lu(k,1682) - lu(k,528) * lu(k,1635)
1754 141111616 : lu(k,1684) = lu(k,1684) - lu(k,529) * lu(k,1635)
1755 141111616 : lu(k,1686) = lu(k,1686) - lu(k,530) * lu(k,1635)
1756 141111616 : lu(k,532) = 1._r8 / lu(k,532)
1757 141111616 : lu(k,533) = lu(k,533) * lu(k,532)
1758 141111616 : lu(k,534) = lu(k,534) * lu(k,532)
1759 141111616 : lu(k,535) = lu(k,535) * lu(k,532)
1760 141111616 : lu(k,536) = lu(k,536) * lu(k,532)
1761 141111616 : lu(k,537) = lu(k,537) * lu(k,532)
1762 141111616 : lu(k,538) = lu(k,538) * lu(k,532)
1763 141111616 : lu(k,539) = lu(k,539) * lu(k,532)
1764 141111616 : lu(k,540) = lu(k,540) * lu(k,532)
1765 141111616 : lu(k,541) = lu(k,541) * lu(k,532)
1766 141111616 : lu(k,806) = lu(k,806) - lu(k,533) * lu(k,805)
1767 141111616 : lu(k,807) = lu(k,807) - lu(k,534) * lu(k,805)
1768 141111616 : lu(k,809) = lu(k,809) - lu(k,535) * lu(k,805)
1769 141111616 : lu(k,810) = lu(k,810) - lu(k,536) * lu(k,805)
1770 141111616 : lu(k,811) = lu(k,811) - lu(k,537) * lu(k,805)
1771 141111616 : lu(k,813) = lu(k,813) - lu(k,538) * lu(k,805)
1772 141111616 : lu(k,814) = lu(k,814) - lu(k,539) * lu(k,805)
1773 141111616 : lu(k,815) = lu(k,815) - lu(k,540) * lu(k,805)
1774 141111616 : lu(k,817) = lu(k,817) - lu(k,541) * lu(k,805)
1775 141111616 : lu(k,1443) = lu(k,1443) - lu(k,533) * lu(k,1442)
1776 141111616 : lu(k,1457) = lu(k,1457) - lu(k,534) * lu(k,1442)
1777 141111616 : lu(k,1467) = lu(k,1467) - lu(k,535) * lu(k,1442)
1778 141111616 : lu(k,1474) = lu(k,1474) - lu(k,536) * lu(k,1442)
1779 141111616 : lu(k,1493) = lu(k,1493) - lu(k,537) * lu(k,1442)
1780 141111616 : lu(k,1499) = lu(k,1499) - lu(k,538) * lu(k,1442)
1781 141111616 : lu(k,1501) = lu(k,1501) - lu(k,539) * lu(k,1442)
1782 141111616 : lu(k,1503) = lu(k,1503) - lu(k,540) * lu(k,1442)
1783 141111616 : lu(k,1507) = lu(k,1507) - lu(k,541) * lu(k,1442)
1784 141111616 : lu(k,1756) = lu(k,1756) - lu(k,533) * lu(k,1755)
1785 141111616 : lu(k,1765) = lu(k,1765) - lu(k,534) * lu(k,1755)
1786 141111616 : lu(k,1770) = lu(k,1770) - lu(k,535) * lu(k,1755)
1787 141111616 : lu(k,1775) = lu(k,1775) - lu(k,536) * lu(k,1755)
1788 141111616 : lu(k,1792) = lu(k,1792) - lu(k,537) * lu(k,1755)
1789 141111616 : lu(k,1798) = lu(k,1798) - lu(k,538) * lu(k,1755)
1790 141111616 : lu(k,1800) = lu(k,1800) - lu(k,539) * lu(k,1755)
1791 141111616 : lu(k,1802) = lu(k,1802) - lu(k,540) * lu(k,1755)
1792 141111616 : lu(k,1806) = lu(k,1806) - lu(k,541) * lu(k,1755)
1793 141111616 : lu(k,543) = 1._r8 / lu(k,543)
1794 141111616 : lu(k,544) = lu(k,544) * lu(k,543)
1795 141111616 : lu(k,545) = lu(k,545) * lu(k,543)
1796 141111616 : lu(k,546) = lu(k,546) * lu(k,543)
1797 141111616 : lu(k,547) = lu(k,547) * lu(k,543)
1798 141111616 : lu(k,548) = lu(k,548) * lu(k,543)
1799 141111616 : lu(k,549) = lu(k,549) * lu(k,543)
1800 141111616 : lu(k,810) = lu(k,810) - lu(k,544) * lu(k,806)
1801 141111616 : lu(k,811) = lu(k,811) - lu(k,545) * lu(k,806)
1802 141111616 : lu(k,813) = lu(k,813) - lu(k,546) * lu(k,806)
1803 141111616 : lu(k,815) = lu(k,815) - lu(k,547) * lu(k,806)
1804 141111616 : lu(k,816) = lu(k,816) - lu(k,548) * lu(k,806)
1805 141111616 : lu(k,817) = lu(k,817) - lu(k,549) * lu(k,806)
1806 141111616 : lu(k,1474) = lu(k,1474) - lu(k,544) * lu(k,1443)
1807 141111616 : lu(k,1493) = lu(k,1493) - lu(k,545) * lu(k,1443)
1808 141111616 : lu(k,1499) = lu(k,1499) - lu(k,546) * lu(k,1443)
1809 141111616 : lu(k,1503) = lu(k,1503) - lu(k,547) * lu(k,1443)
1810 141111616 : lu(k,1505) = lu(k,1505) - lu(k,548) * lu(k,1443)
1811 141111616 : lu(k,1507) = lu(k,1507) - lu(k,549) * lu(k,1443)
1812 141111616 : lu(k,1659) = lu(k,1659) - lu(k,544) * lu(k,1636)
1813 141111616 : lu(k,1676) = lu(k,1676) - lu(k,545) * lu(k,1636)
1814 141111616 : lu(k,1682) = lu(k,1682) - lu(k,546) * lu(k,1636)
1815 141111616 : lu(k,1686) = lu(k,1686) - lu(k,547) * lu(k,1636)
1816 141111616 : lu(k,1688) = lu(k,1688) - lu(k,548) * lu(k,1636)
1817 141111616 : lu(k,1690) = lu(k,1690) - lu(k,549) * lu(k,1636)
1818 141111616 : lu(k,1775) = lu(k,1775) - lu(k,544) * lu(k,1756)
1819 141111616 : lu(k,1792) = lu(k,1792) - lu(k,545) * lu(k,1756)
1820 141111616 : lu(k,1798) = lu(k,1798) - lu(k,546) * lu(k,1756)
1821 141111616 : lu(k,1802) = lu(k,1802) - lu(k,547) * lu(k,1756)
1822 141111616 : lu(k,1804) = lu(k,1804) - lu(k,548) * lu(k,1756)
1823 141111616 : lu(k,1806) = lu(k,1806) - lu(k,549) * lu(k,1756)
1824 141111616 : lu(k,554) = 1._r8 / lu(k,554)
1825 141111616 : lu(k,555) = lu(k,555) * lu(k,554)
1826 141111616 : lu(k,556) = lu(k,556) * lu(k,554)
1827 141111616 : lu(k,557) = lu(k,557) * lu(k,554)
1828 141111616 : lu(k,558) = lu(k,558) * lu(k,554)
1829 141111616 : lu(k,559) = lu(k,559) * lu(k,554)
1830 141111616 : lu(k,560) = lu(k,560) * lu(k,554)
1831 141111616 : lu(k,561) = lu(k,561) * lu(k,554)
1832 141111616 : lu(k,562) = lu(k,562) * lu(k,554)
1833 141111616 : lu(k,563) = lu(k,563) * lu(k,554)
1834 141111616 : lu(k,564) = lu(k,564) * lu(k,554)
1835 141111616 : lu(k,608) = lu(k,608) - lu(k,555) * lu(k,607)
1836 141111616 : lu(k,609) = lu(k,609) - lu(k,556) * lu(k,607)
1837 141111616 : lu(k,610) = lu(k,610) - lu(k,557) * lu(k,607)
1838 141111616 : lu(k,611) = lu(k,611) - lu(k,558) * lu(k,607)
1839 141111616 : lu(k,612) = lu(k,612) - lu(k,559) * lu(k,607)
1840 141111616 : lu(k,613) = lu(k,613) - lu(k,560) * lu(k,607)
1841 141111616 : lu(k,614) = lu(k,614) - lu(k,561) * lu(k,607)
1842 141111616 : lu(k,615) = lu(k,615) - lu(k,562) * lu(k,607)
1843 141111616 : lu(k,616) = - lu(k,563) * lu(k,607)
1844 141111616 : lu(k,617) = lu(k,617) - lu(k,564) * lu(k,607)
1845 141111616 : lu(k,1446) = lu(k,1446) - lu(k,555) * lu(k,1444)
1846 141111616 : lu(k,1449) = lu(k,1449) - lu(k,556) * lu(k,1444)
1847 141111616 : lu(k,1450) = lu(k,1450) - lu(k,557) * lu(k,1444)
1848 141111616 : lu(k,1462) = lu(k,1462) - lu(k,558) * lu(k,1444)
1849 141111616 : lu(k,1463) = lu(k,1463) - lu(k,559) * lu(k,1444)
1850 141111616 : lu(k,1475) = lu(k,1475) - lu(k,560) * lu(k,1444)
1851 141111616 : lu(k,1486) = lu(k,1486) - lu(k,561) * lu(k,1444)
1852 141111616 : lu(k,1493) = lu(k,1493) - lu(k,562) * lu(k,1444)
1853 141111616 : lu(k,1499) = lu(k,1499) - lu(k,563) * lu(k,1444)
1854 141111616 : lu(k,1503) = lu(k,1503) - lu(k,564) * lu(k,1444)
1855 141111616 : lu(k,1639) = lu(k,1639) - lu(k,555) * lu(k,1637)
1856 141111616 : lu(k,1642) = lu(k,1642) - lu(k,556) * lu(k,1637)
1857 141111616 : lu(k,1643) = lu(k,1643) - lu(k,557) * lu(k,1637)
1858 141111616 : lu(k,1652) = lu(k,1652) - lu(k,558) * lu(k,1637)
1859 141111616 : lu(k,1653) = lu(k,1653) - lu(k,559) * lu(k,1637)
1860 141111616 : lu(k,1660) = lu(k,1660) - lu(k,560) * lu(k,1637)
1861 141111616 : lu(k,1670) = lu(k,1670) - lu(k,561) * lu(k,1637)
1862 141111616 : lu(k,1676) = lu(k,1676) - lu(k,562) * lu(k,1637)
1863 141111616 : lu(k,1682) = lu(k,1682) - lu(k,563) * lu(k,1637)
1864 141111616 : lu(k,1686) = lu(k,1686) - lu(k,564) * lu(k,1637)
1865 141111616 : lu(k,567) = 1._r8 / lu(k,567)
1866 141111616 : lu(k,568) = lu(k,568) * lu(k,567)
1867 141111616 : lu(k,569) = lu(k,569) * lu(k,567)
1868 141111616 : lu(k,570) = lu(k,570) * lu(k,567)
1869 141111616 : lu(k,571) = lu(k,571) * lu(k,567)
1870 141111616 : lu(k,572) = lu(k,572) * lu(k,567)
1871 141111616 : lu(k,573) = lu(k,573) * lu(k,567)
1872 141111616 : lu(k,1471) = lu(k,1471) - lu(k,568) * lu(k,1445)
1873 141111616 : lu(k,1499) = lu(k,1499) - lu(k,569) * lu(k,1445)
1874 141111616 : lu(k,1501) = lu(k,1501) - lu(k,570) * lu(k,1445)
1875 141111616 : lu(k,1503) = lu(k,1503) - lu(k,571) * lu(k,1445)
1876 141111616 : lu(k,1505) = lu(k,1505) - lu(k,572) * lu(k,1445)
1877 141111616 : lu(k,1507) = lu(k,1507) - lu(k,573) * lu(k,1445)
1878 141111616 : lu(k,1657) = lu(k,1657) - lu(k,568) * lu(k,1638)
1879 141111616 : lu(k,1682) = lu(k,1682) - lu(k,569) * lu(k,1638)
1880 141111616 : lu(k,1684) = lu(k,1684) - lu(k,570) * lu(k,1638)
1881 141111616 : lu(k,1686) = lu(k,1686) - lu(k,571) * lu(k,1638)
1882 141111616 : lu(k,1688) = lu(k,1688) - lu(k,572) * lu(k,1638)
1883 141111616 : lu(k,1690) = lu(k,1690) - lu(k,573) * lu(k,1638)
1884 141111616 : lu(k,1772) = lu(k,1772) - lu(k,568) * lu(k,1757)
1885 141111616 : lu(k,1798) = lu(k,1798) - lu(k,569) * lu(k,1757)
1886 141111616 : lu(k,1800) = lu(k,1800) - lu(k,570) * lu(k,1757)
1887 141111616 : lu(k,1802) = lu(k,1802) - lu(k,571) * lu(k,1757)
1888 141111616 : lu(k,1804) = lu(k,1804) - lu(k,572) * lu(k,1757)
1889 141111616 : lu(k,1806) = lu(k,1806) - lu(k,573) * lu(k,1757)
1890 141111616 : lu(k,1834) = - lu(k,568) * lu(k,1823)
1891 141111616 : lu(k,1858) = lu(k,1858) - lu(k,569) * lu(k,1823)
1892 141111616 : lu(k,1860) = lu(k,1860) - lu(k,570) * lu(k,1823)
1893 141111616 : lu(k,1862) = lu(k,1862) - lu(k,571) * lu(k,1823)
1894 141111616 : lu(k,1864) = lu(k,1864) - lu(k,572) * lu(k,1823)
1895 141111616 : lu(k,1866) = lu(k,1866) - lu(k,573) * lu(k,1823)
1896 141111616 : lu(k,1946) = - lu(k,568) * lu(k,1940)
1897 141111616 : lu(k,1956) = lu(k,1956) - lu(k,569) * lu(k,1940)
1898 141111616 : lu(k,1958) = lu(k,1958) - lu(k,570) * lu(k,1940)
1899 141111616 : lu(k,1960) = lu(k,1960) - lu(k,571) * lu(k,1940)
1900 141111616 : lu(k,1962) = - lu(k,572) * lu(k,1940)
1901 145521354 : lu(k,1964) = - lu(k,573) * lu(k,1940)
1902 : end do
1903 4409738 : end subroutine lu_fac12
1904 4409738 : subroutine lu_fac13( avec_len, lu )
1905 : use chem_mods, only : nzcnt
1906 : use shr_kind_mod, only : r8 => shr_kind_r8
1907 : implicit none
1908 : !-----------------------------------------------------------------------
1909 : ! ... dummy args
1910 : !-----------------------------------------------------------------------
1911 : integer, intent(in) :: avec_len
1912 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1913 : !-----------------------------------------------------------------------
1914 : ! ... local variables
1915 : !-----------------------------------------------------------------------
1916 : integer :: k
1917 145521354 : do k = 1,avec_len
1918 141111616 : lu(k,574) = 1._r8 / lu(k,574)
1919 141111616 : lu(k,575) = lu(k,575) * lu(k,574)
1920 141111616 : lu(k,576) = lu(k,576) * lu(k,574)
1921 141111616 : lu(k,577) = lu(k,577) * lu(k,574)
1922 141111616 : lu(k,578) = lu(k,578) * lu(k,574)
1923 141111616 : lu(k,579) = lu(k,579) * lu(k,574)
1924 141111616 : lu(k,587) = lu(k,587) - lu(k,575) * lu(k,584)
1925 141111616 : lu(k,589) = lu(k,589) - lu(k,576) * lu(k,584)
1926 141111616 : lu(k,592) = lu(k,592) - lu(k,577) * lu(k,584)
1927 141111616 : lu(k,593) = lu(k,593) - lu(k,578) * lu(k,584)
1928 141111616 : lu(k,594) = lu(k,594) - lu(k,579) * lu(k,584)
1929 141111616 : lu(k,611) = lu(k,611) - lu(k,575) * lu(k,608)
1930 141111616 : lu(k,613) = lu(k,613) - lu(k,576) * lu(k,608)
1931 141111616 : lu(k,617) = lu(k,617) - lu(k,577) * lu(k,608)
1932 141111616 : lu(k,618) = lu(k,618) - lu(k,578) * lu(k,608)
1933 141111616 : lu(k,619) = lu(k,619) - lu(k,579) * lu(k,608)
1934 141111616 : lu(k,1462) = lu(k,1462) - lu(k,575) * lu(k,1446)
1935 141111616 : lu(k,1475) = lu(k,1475) - lu(k,576) * lu(k,1446)
1936 141111616 : lu(k,1503) = lu(k,1503) - lu(k,577) * lu(k,1446)
1937 141111616 : lu(k,1505) = lu(k,1505) - lu(k,578) * lu(k,1446)
1938 141111616 : lu(k,1507) = lu(k,1507) - lu(k,579) * lu(k,1446)
1939 141111616 : lu(k,1652) = lu(k,1652) - lu(k,575) * lu(k,1639)
1940 141111616 : lu(k,1660) = lu(k,1660) - lu(k,576) * lu(k,1639)
1941 141111616 : lu(k,1686) = lu(k,1686) - lu(k,577) * lu(k,1639)
1942 141111616 : lu(k,1688) = lu(k,1688) - lu(k,578) * lu(k,1639)
1943 141111616 : lu(k,1690) = lu(k,1690) - lu(k,579) * lu(k,1639)
1944 141111616 : lu(k,1767) = lu(k,1767) - lu(k,575) * lu(k,1758)
1945 141111616 : lu(k,1776) = lu(k,1776) - lu(k,576) * lu(k,1758)
1946 141111616 : lu(k,1802) = lu(k,1802) - lu(k,577) * lu(k,1758)
1947 141111616 : lu(k,1804) = lu(k,1804) - lu(k,578) * lu(k,1758)
1948 141111616 : lu(k,1806) = lu(k,1806) - lu(k,579) * lu(k,1758)
1949 141111616 : lu(k,1885) = - lu(k,575) * lu(k,1881)
1950 141111616 : lu(k,1888) = - lu(k,576) * lu(k,1881)
1951 141111616 : lu(k,1903) = lu(k,1903) - lu(k,577) * lu(k,1881)
1952 141111616 : lu(k,1905) = lu(k,1905) - lu(k,578) * lu(k,1881)
1953 141111616 : lu(k,1907) = lu(k,1907) - lu(k,579) * lu(k,1881)
1954 141111616 : lu(k,585) = 1._r8 / lu(k,585)
1955 141111616 : lu(k,586) = lu(k,586) * lu(k,585)
1956 141111616 : lu(k,587) = lu(k,587) * lu(k,585)
1957 141111616 : lu(k,588) = lu(k,588) * lu(k,585)
1958 141111616 : lu(k,589) = lu(k,589) * lu(k,585)
1959 141111616 : lu(k,590) = lu(k,590) * lu(k,585)
1960 141111616 : lu(k,591) = lu(k,591) * lu(k,585)
1961 141111616 : lu(k,592) = lu(k,592) * lu(k,585)
1962 141111616 : lu(k,593) = lu(k,593) * lu(k,585)
1963 141111616 : lu(k,594) = lu(k,594) * lu(k,585)
1964 141111616 : lu(k,1450) = lu(k,1450) - lu(k,586) * lu(k,1447)
1965 141111616 : lu(k,1462) = lu(k,1462) - lu(k,587) * lu(k,1447)
1966 141111616 : lu(k,1463) = lu(k,1463) - lu(k,588) * lu(k,1447)
1967 141111616 : lu(k,1475) = lu(k,1475) - lu(k,589) * lu(k,1447)
1968 141111616 : lu(k,1486) = lu(k,1486) - lu(k,590) * lu(k,1447)
1969 141111616 : lu(k,1499) = lu(k,1499) - lu(k,591) * lu(k,1447)
1970 141111616 : lu(k,1503) = lu(k,1503) - lu(k,592) * lu(k,1447)
1971 141111616 : lu(k,1505) = lu(k,1505) - lu(k,593) * lu(k,1447)
1972 141111616 : lu(k,1507) = lu(k,1507) - lu(k,594) * lu(k,1447)
1973 141111616 : lu(k,1643) = lu(k,1643) - lu(k,586) * lu(k,1640)
1974 141111616 : lu(k,1652) = lu(k,1652) - lu(k,587) * lu(k,1640)
1975 141111616 : lu(k,1653) = lu(k,1653) - lu(k,588) * lu(k,1640)
1976 141111616 : lu(k,1660) = lu(k,1660) - lu(k,589) * lu(k,1640)
1977 141111616 : lu(k,1670) = lu(k,1670) - lu(k,590) * lu(k,1640)
1978 141111616 : lu(k,1682) = lu(k,1682) - lu(k,591) * lu(k,1640)
1979 141111616 : lu(k,1686) = lu(k,1686) - lu(k,592) * lu(k,1640)
1980 141111616 : lu(k,1688) = lu(k,1688) - lu(k,593) * lu(k,1640)
1981 141111616 : lu(k,1690) = lu(k,1690) - lu(k,594) * lu(k,1640)
1982 141111616 : lu(k,1761) = lu(k,1761) - lu(k,586) * lu(k,1759)
1983 141111616 : lu(k,1767) = lu(k,1767) - lu(k,587) * lu(k,1759)
1984 141111616 : lu(k,1768) = lu(k,1768) - lu(k,588) * lu(k,1759)
1985 141111616 : lu(k,1776) = lu(k,1776) - lu(k,589) * lu(k,1759)
1986 141111616 : lu(k,1786) = lu(k,1786) - lu(k,590) * lu(k,1759)
1987 141111616 : lu(k,1798) = lu(k,1798) - lu(k,591) * lu(k,1759)
1988 141111616 : lu(k,1802) = lu(k,1802) - lu(k,592) * lu(k,1759)
1989 141111616 : lu(k,1804) = lu(k,1804) - lu(k,593) * lu(k,1759)
1990 141111616 : lu(k,1806) = lu(k,1806) - lu(k,594) * lu(k,1759)
1991 141111616 : lu(k,596) = 1._r8 / lu(k,596)
1992 141111616 : lu(k,597) = lu(k,597) * lu(k,596)
1993 141111616 : lu(k,598) = lu(k,598) * lu(k,596)
1994 141111616 : lu(k,599) = lu(k,599) * lu(k,596)
1995 141111616 : lu(k,600) = lu(k,600) * lu(k,596)
1996 141111616 : lu(k,601) = lu(k,601) * lu(k,596)
1997 141111616 : lu(k,602) = lu(k,602) * lu(k,596)
1998 141111616 : lu(k,1043) = - lu(k,597) * lu(k,1037)
1999 141111616 : lu(k,1045) = - lu(k,598) * lu(k,1037)
2000 141111616 : lu(k,1047) = - lu(k,599) * lu(k,1037)
2001 141111616 : lu(k,1052) = lu(k,1052) - lu(k,600) * lu(k,1037)
2002 141111616 : lu(k,1053) = lu(k,1053) - lu(k,601) * lu(k,1037)
2003 141111616 : lu(k,1054) = lu(k,1054) - lu(k,602) * lu(k,1037)
2004 141111616 : lu(k,1110) = lu(k,1110) - lu(k,597) * lu(k,1100)
2005 141111616 : lu(k,1111) = - lu(k,598) * lu(k,1100)
2006 141111616 : lu(k,1114) = - lu(k,599) * lu(k,1100)
2007 141111616 : lu(k,1121) = lu(k,1121) - lu(k,600) * lu(k,1100)
2008 141111616 : lu(k,1122) = lu(k,1122) - lu(k,601) * lu(k,1100)
2009 141111616 : lu(k,1123) = lu(k,1123) - lu(k,602) * lu(k,1100)
2010 141111616 : lu(k,1178) = - lu(k,597) * lu(k,1171)
2011 141111616 : lu(k,1179) = lu(k,1179) - lu(k,598) * lu(k,1171)
2012 141111616 : lu(k,1181) = lu(k,1181) - lu(k,599) * lu(k,1171)
2013 141111616 : lu(k,1189) = lu(k,1189) - lu(k,600) * lu(k,1171)
2014 141111616 : lu(k,1190) = lu(k,1190) - lu(k,601) * lu(k,1171)
2015 141111616 : lu(k,1191) = lu(k,1191) - lu(k,602) * lu(k,1171)
2016 141111616 : lu(k,1482) = lu(k,1482) - lu(k,597) * lu(k,1448)
2017 141111616 : lu(k,1485) = lu(k,1485) - lu(k,598) * lu(k,1448)
2018 141111616 : lu(k,1489) = lu(k,1489) - lu(k,599) * lu(k,1448)
2019 141111616 : lu(k,1499) = lu(k,1499) - lu(k,600) * lu(k,1448)
2020 141111616 : lu(k,1501) = lu(k,1501) - lu(k,601) * lu(k,1448)
2021 141111616 : lu(k,1503) = lu(k,1503) - lu(k,602) * lu(k,1448)
2022 141111616 : lu(k,1666) = lu(k,1666) - lu(k,597) * lu(k,1641)
2023 141111616 : lu(k,1669) = - lu(k,598) * lu(k,1641)
2024 141111616 : lu(k,1672) = - lu(k,599) * lu(k,1641)
2025 141111616 : lu(k,1682) = lu(k,1682) - lu(k,600) * lu(k,1641)
2026 141111616 : lu(k,1684) = lu(k,1684) - lu(k,601) * lu(k,1641)
2027 141111616 : lu(k,1686) = lu(k,1686) - lu(k,602) * lu(k,1641)
2028 141111616 : lu(k,609) = 1._r8 / lu(k,609)
2029 141111616 : lu(k,610) = lu(k,610) * lu(k,609)
2030 141111616 : lu(k,611) = lu(k,611) * lu(k,609)
2031 141111616 : lu(k,612) = lu(k,612) * lu(k,609)
2032 141111616 : lu(k,613) = lu(k,613) * lu(k,609)
2033 141111616 : lu(k,614) = lu(k,614) * lu(k,609)
2034 141111616 : lu(k,615) = lu(k,615) * lu(k,609)
2035 141111616 : lu(k,616) = lu(k,616) * lu(k,609)
2036 141111616 : lu(k,617) = lu(k,617) * lu(k,609)
2037 141111616 : lu(k,618) = lu(k,618) * lu(k,609)
2038 141111616 : lu(k,619) = lu(k,619) * lu(k,609)
2039 141111616 : lu(k,1450) = lu(k,1450) - lu(k,610) * lu(k,1449)
2040 141111616 : lu(k,1462) = lu(k,1462) - lu(k,611) * lu(k,1449)
2041 141111616 : lu(k,1463) = lu(k,1463) - lu(k,612) * lu(k,1449)
2042 141111616 : lu(k,1475) = lu(k,1475) - lu(k,613) * lu(k,1449)
2043 141111616 : lu(k,1486) = lu(k,1486) - lu(k,614) * lu(k,1449)
2044 141111616 : lu(k,1493) = lu(k,1493) - lu(k,615) * lu(k,1449)
2045 141111616 : lu(k,1499) = lu(k,1499) - lu(k,616) * lu(k,1449)
2046 141111616 : lu(k,1503) = lu(k,1503) - lu(k,617) * lu(k,1449)
2047 141111616 : lu(k,1505) = lu(k,1505) - lu(k,618) * lu(k,1449)
2048 141111616 : lu(k,1507) = lu(k,1507) - lu(k,619) * lu(k,1449)
2049 141111616 : lu(k,1643) = lu(k,1643) - lu(k,610) * lu(k,1642)
2050 141111616 : lu(k,1652) = lu(k,1652) - lu(k,611) * lu(k,1642)
2051 141111616 : lu(k,1653) = lu(k,1653) - lu(k,612) * lu(k,1642)
2052 141111616 : lu(k,1660) = lu(k,1660) - lu(k,613) * lu(k,1642)
2053 141111616 : lu(k,1670) = lu(k,1670) - lu(k,614) * lu(k,1642)
2054 141111616 : lu(k,1676) = lu(k,1676) - lu(k,615) * lu(k,1642)
2055 141111616 : lu(k,1682) = lu(k,1682) - lu(k,616) * lu(k,1642)
2056 141111616 : lu(k,1686) = lu(k,1686) - lu(k,617) * lu(k,1642)
2057 141111616 : lu(k,1688) = lu(k,1688) - lu(k,618) * lu(k,1642)
2058 141111616 : lu(k,1690) = lu(k,1690) - lu(k,619) * lu(k,1642)
2059 141111616 : lu(k,1761) = lu(k,1761) - lu(k,610) * lu(k,1760)
2060 141111616 : lu(k,1767) = lu(k,1767) - lu(k,611) * lu(k,1760)
2061 141111616 : lu(k,1768) = lu(k,1768) - lu(k,612) * lu(k,1760)
2062 141111616 : lu(k,1776) = lu(k,1776) - lu(k,613) * lu(k,1760)
2063 141111616 : lu(k,1786) = lu(k,1786) - lu(k,614) * lu(k,1760)
2064 141111616 : lu(k,1792) = lu(k,1792) - lu(k,615) * lu(k,1760)
2065 141111616 : lu(k,1798) = lu(k,1798) - lu(k,616) * lu(k,1760)
2066 141111616 : lu(k,1802) = lu(k,1802) - lu(k,617) * lu(k,1760)
2067 141111616 : lu(k,1804) = lu(k,1804) - lu(k,618) * lu(k,1760)
2068 141111616 : lu(k,1806) = lu(k,1806) - lu(k,619) * lu(k,1760)
2069 141111616 : lu(k,620) = 1._r8 / lu(k,620)
2070 141111616 : lu(k,621) = lu(k,621) * lu(k,620)
2071 141111616 : lu(k,622) = lu(k,622) * lu(k,620)
2072 141111616 : lu(k,623) = lu(k,623) * lu(k,620)
2073 141111616 : lu(k,624) = lu(k,624) * lu(k,620)
2074 141111616 : lu(k,625) = lu(k,625) * lu(k,620)
2075 141111616 : lu(k,626) = lu(k,626) * lu(k,620)
2076 141111616 : lu(k,627) = lu(k,627) * lu(k,620)
2077 141111616 : lu(k,1475) = lu(k,1475) - lu(k,621) * lu(k,1450)
2078 141111616 : lu(k,1486) = lu(k,1486) - lu(k,622) * lu(k,1450)
2079 141111616 : lu(k,1497) = lu(k,1497) - lu(k,623) * lu(k,1450)
2080 141111616 : lu(k,1499) = lu(k,1499) - lu(k,624) * lu(k,1450)
2081 141111616 : lu(k,1503) = lu(k,1503) - lu(k,625) * lu(k,1450)
2082 141111616 : lu(k,1505) = lu(k,1505) - lu(k,626) * lu(k,1450)
2083 141111616 : lu(k,1507) = lu(k,1507) - lu(k,627) * lu(k,1450)
2084 141111616 : lu(k,1660) = lu(k,1660) - lu(k,621) * lu(k,1643)
2085 141111616 : lu(k,1670) = lu(k,1670) - lu(k,622) * lu(k,1643)
2086 141111616 : lu(k,1680) = lu(k,1680) - lu(k,623) * lu(k,1643)
2087 141111616 : lu(k,1682) = lu(k,1682) - lu(k,624) * lu(k,1643)
2088 141111616 : lu(k,1686) = lu(k,1686) - lu(k,625) * lu(k,1643)
2089 141111616 : lu(k,1688) = lu(k,1688) - lu(k,626) * lu(k,1643)
2090 141111616 : lu(k,1690) = lu(k,1690) - lu(k,627) * lu(k,1643)
2091 141111616 : lu(k,1776) = lu(k,1776) - lu(k,621) * lu(k,1761)
2092 141111616 : lu(k,1786) = lu(k,1786) - lu(k,622) * lu(k,1761)
2093 141111616 : lu(k,1796) = lu(k,1796) - lu(k,623) * lu(k,1761)
2094 141111616 : lu(k,1798) = lu(k,1798) - lu(k,624) * lu(k,1761)
2095 141111616 : lu(k,1802) = lu(k,1802) - lu(k,625) * lu(k,1761)
2096 141111616 : lu(k,1804) = lu(k,1804) - lu(k,626) * lu(k,1761)
2097 141111616 : lu(k,1806) = lu(k,1806) - lu(k,627) * lu(k,1761)
2098 141111616 : lu(k,1888) = lu(k,1888) - lu(k,621) * lu(k,1882)
2099 141111616 : lu(k,1890) = - lu(k,622) * lu(k,1882)
2100 141111616 : lu(k,1897) = lu(k,1897) - lu(k,623) * lu(k,1882)
2101 141111616 : lu(k,1899) = lu(k,1899) - lu(k,624) * lu(k,1882)
2102 141111616 : lu(k,1903) = lu(k,1903) - lu(k,625) * lu(k,1882)
2103 141111616 : lu(k,1905) = lu(k,1905) - lu(k,626) * lu(k,1882)
2104 145521354 : lu(k,1907) = lu(k,1907) - lu(k,627) * lu(k,1882)
2105 : end do
2106 4409738 : end subroutine lu_fac13
2107 4409738 : subroutine lu_fac14( avec_len, lu )
2108 : use chem_mods, only : nzcnt
2109 : use shr_kind_mod, only : r8 => shr_kind_r8
2110 : implicit none
2111 : !-----------------------------------------------------------------------
2112 : ! ... dummy args
2113 : !-----------------------------------------------------------------------
2114 : integer, intent(in) :: avec_len
2115 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2116 : !-----------------------------------------------------------------------
2117 : ! ... local variables
2118 : !-----------------------------------------------------------------------
2119 : integer :: k
2120 145521354 : do k = 1,avec_len
2121 141111616 : lu(k,629) = 1._r8 / lu(k,629)
2122 141111616 : lu(k,630) = lu(k,630) * lu(k,629)
2123 141111616 : lu(k,631) = lu(k,631) * lu(k,629)
2124 141111616 : lu(k,632) = lu(k,632) * lu(k,629)
2125 141111616 : lu(k,633) = lu(k,633) * lu(k,629)
2126 141111616 : lu(k,634) = lu(k,634) * lu(k,629)
2127 141111616 : lu(k,635) = lu(k,635) * lu(k,629)
2128 141111616 : lu(k,636) = lu(k,636) * lu(k,629)
2129 141111616 : lu(k,637) = lu(k,637) * lu(k,629)
2130 141111616 : lu(k,841) = lu(k,841) - lu(k,630) * lu(k,837)
2131 141111616 : lu(k,843) = - lu(k,631) * lu(k,837)
2132 141111616 : lu(k,847) = lu(k,847) - lu(k,632) * lu(k,837)
2133 141111616 : lu(k,848) = lu(k,848) - lu(k,633) * lu(k,837)
2134 141111616 : lu(k,849) = lu(k,849) - lu(k,634) * lu(k,837)
2135 141111616 : lu(k,850) = - lu(k,635) * lu(k,837)
2136 141111616 : lu(k,852) = - lu(k,636) * lu(k,837)
2137 141111616 : lu(k,854) = lu(k,854) - lu(k,637) * lu(k,837)
2138 141111616 : lu(k,1474) = lu(k,1474) - lu(k,630) * lu(k,1451)
2139 141111616 : lu(k,1477) = lu(k,1477) - lu(k,631) * lu(k,1451)
2140 141111616 : lu(k,1499) = lu(k,1499) - lu(k,632) * lu(k,1451)
2141 141111616 : lu(k,1501) = lu(k,1501) - lu(k,633) * lu(k,1451)
2142 141111616 : lu(k,1503) = lu(k,1503) - lu(k,634) * lu(k,1451)
2143 141111616 : lu(k,1505) = lu(k,1505) - lu(k,635) * lu(k,1451)
2144 141111616 : lu(k,1507) = lu(k,1507) - lu(k,636) * lu(k,1451)
2145 141111616 : lu(k,1511) = lu(k,1511) - lu(k,637) * lu(k,1451)
2146 141111616 : lu(k,1659) = lu(k,1659) - lu(k,630) * lu(k,1644)
2147 141111616 : lu(k,1661) = lu(k,1661) - lu(k,631) * lu(k,1644)
2148 141111616 : lu(k,1682) = lu(k,1682) - lu(k,632) * lu(k,1644)
2149 141111616 : lu(k,1684) = lu(k,1684) - lu(k,633) * lu(k,1644)
2150 141111616 : lu(k,1686) = lu(k,1686) - lu(k,634) * lu(k,1644)
2151 141111616 : lu(k,1688) = lu(k,1688) - lu(k,635) * lu(k,1644)
2152 141111616 : lu(k,1690) = lu(k,1690) - lu(k,636) * lu(k,1644)
2153 141111616 : lu(k,1694) = lu(k,1694) - lu(k,637) * lu(k,1644)
2154 141111616 : lu(k,1775) = lu(k,1775) - lu(k,630) * lu(k,1762)
2155 141111616 : lu(k,1778) = lu(k,1778) - lu(k,631) * lu(k,1762)
2156 141111616 : lu(k,1798) = lu(k,1798) - lu(k,632) * lu(k,1762)
2157 141111616 : lu(k,1800) = lu(k,1800) - lu(k,633) * lu(k,1762)
2158 141111616 : lu(k,1802) = lu(k,1802) - lu(k,634) * lu(k,1762)
2159 141111616 : lu(k,1804) = lu(k,1804) - lu(k,635) * lu(k,1762)
2160 141111616 : lu(k,1806) = lu(k,1806) - lu(k,636) * lu(k,1762)
2161 141111616 : lu(k,1810) = - lu(k,637) * lu(k,1762)
2162 141111616 : lu(k,639) = 1._r8 / lu(k,639)
2163 141111616 : lu(k,640) = lu(k,640) * lu(k,639)
2164 141111616 : lu(k,641) = lu(k,641) * lu(k,639)
2165 141111616 : lu(k,642) = lu(k,642) * lu(k,639)
2166 141111616 : lu(k,643) = lu(k,643) * lu(k,639)
2167 141111616 : lu(k,644) = lu(k,644) * lu(k,639)
2168 141111616 : lu(k,645) = lu(k,645) * lu(k,639)
2169 141111616 : lu(k,646) = lu(k,646) * lu(k,639)
2170 141111616 : lu(k,1024) = lu(k,1024) - lu(k,640) * lu(k,1023)
2171 141111616 : lu(k,1025) = - lu(k,641) * lu(k,1023)
2172 141111616 : lu(k,1026) = lu(k,1026) - lu(k,642) * lu(k,1023)
2173 141111616 : lu(k,1027) = - lu(k,643) * lu(k,1023)
2174 141111616 : lu(k,1029) = lu(k,1029) - lu(k,644) * lu(k,1023)
2175 141111616 : lu(k,1033) = - lu(k,645) * lu(k,1023)
2176 141111616 : lu(k,1034) = lu(k,1034) - lu(k,646) * lu(k,1023)
2177 141111616 : lu(k,1259) = - lu(k,640) * lu(k,1258)
2178 141111616 : lu(k,1260) = lu(k,1260) - lu(k,641) * lu(k,1258)
2179 141111616 : lu(k,1261) = lu(k,1261) - lu(k,642) * lu(k,1258)
2180 141111616 : lu(k,1262) = - lu(k,643) * lu(k,1258)
2181 141111616 : lu(k,1264) = lu(k,1264) - lu(k,644) * lu(k,1258)
2182 141111616 : lu(k,1269) = lu(k,1269) - lu(k,645) * lu(k,1258)
2183 141111616 : lu(k,1270) = lu(k,1270) - lu(k,646) * lu(k,1258)
2184 141111616 : lu(k,1339) = lu(k,1339) - lu(k,640) * lu(k,1337)
2185 141111616 : lu(k,1341) = - lu(k,641) * lu(k,1337)
2186 141111616 : lu(k,1342) = lu(k,1342) - lu(k,642) * lu(k,1337)
2187 141111616 : lu(k,1343) = lu(k,1343) - lu(k,643) * lu(k,1337)
2188 141111616 : lu(k,1345) = lu(k,1345) - lu(k,644) * lu(k,1337)
2189 141111616 : lu(k,1356) = - lu(k,645) * lu(k,1337)
2190 141111616 : lu(k,1357) = lu(k,1357) - lu(k,646) * lu(k,1337)
2191 141111616 : lu(k,1483) = lu(k,1483) - lu(k,640) * lu(k,1452)
2192 141111616 : lu(k,1495) = lu(k,1495) - lu(k,641) * lu(k,1452)
2193 141111616 : lu(k,1496) = lu(k,1496) - lu(k,642) * lu(k,1452)
2194 141111616 : lu(k,1497) = lu(k,1497) - lu(k,643) * lu(k,1452)
2195 141111616 : lu(k,1499) = lu(k,1499) - lu(k,644) * lu(k,1452)
2196 141111616 : lu(k,1510) = lu(k,1510) - lu(k,645) * lu(k,1452)
2197 141111616 : lu(k,1511) = lu(k,1511) - lu(k,646) * lu(k,1452)
2198 141111616 : lu(k,2031) = lu(k,2031) - lu(k,640) * lu(k,2029)
2199 141111616 : lu(k,2034) = - lu(k,641) * lu(k,2029)
2200 141111616 : lu(k,2035) = lu(k,2035) - lu(k,642) * lu(k,2029)
2201 141111616 : lu(k,2036) = - lu(k,643) * lu(k,2029)
2202 141111616 : lu(k,2038) = lu(k,2038) - lu(k,644) * lu(k,2029)
2203 141111616 : lu(k,2049) = - lu(k,645) * lu(k,2029)
2204 141111616 : lu(k,2050) = lu(k,2050) - lu(k,646) * lu(k,2029)
2205 141111616 : lu(k,648) = 1._r8 / lu(k,648)
2206 141111616 : lu(k,649) = lu(k,649) * lu(k,648)
2207 141111616 : lu(k,650) = lu(k,650) * lu(k,648)
2208 141111616 : lu(k,651) = lu(k,651) * lu(k,648)
2209 141111616 : lu(k,652) = lu(k,652) * lu(k,648)
2210 141111616 : lu(k,653) = lu(k,653) * lu(k,648)
2211 141111616 : lu(k,654) = lu(k,654) * lu(k,648)
2212 141111616 : lu(k,655) = lu(k,655) * lu(k,648)
2213 141111616 : lu(k,1518) = lu(k,1518) - lu(k,649) * lu(k,1515)
2214 141111616 : lu(k,1523) = lu(k,1523) - lu(k,650) * lu(k,1515)
2215 141111616 : lu(k,1524) = lu(k,1524) - lu(k,651) * lu(k,1515)
2216 141111616 : lu(k,1526) = lu(k,1526) - lu(k,652) * lu(k,1515)
2217 141111616 : lu(k,1532) = - lu(k,653) * lu(k,1515)
2218 141111616 : lu(k,1533) = lu(k,1533) - lu(k,654) * lu(k,1515)
2219 141111616 : lu(k,1535) = - lu(k,655) * lu(k,1515)
2220 141111616 : lu(k,1571) = lu(k,1571) - lu(k,649) * lu(k,1563)
2221 141111616 : lu(k,1576) = lu(k,1576) - lu(k,650) * lu(k,1563)
2222 141111616 : lu(k,1577) = lu(k,1577) - lu(k,651) * lu(k,1563)
2223 141111616 : lu(k,1579) = lu(k,1579) - lu(k,652) * lu(k,1563)
2224 141111616 : lu(k,1585) = lu(k,1585) - lu(k,653) * lu(k,1563)
2225 141111616 : lu(k,1586) = lu(k,1586) - lu(k,654) * lu(k,1563)
2226 141111616 : lu(k,1588) = lu(k,1588) - lu(k,655) * lu(k,1563)
2227 141111616 : lu(k,1677) = lu(k,1677) - lu(k,649) * lu(k,1645)
2228 141111616 : lu(k,1682) = lu(k,1682) - lu(k,650) * lu(k,1645)
2229 141111616 : lu(k,1683) = lu(k,1683) - lu(k,651) * lu(k,1645)
2230 141111616 : lu(k,1685) = lu(k,1685) - lu(k,652) * lu(k,1645)
2231 141111616 : lu(k,1691) = lu(k,1691) - lu(k,653) * lu(k,1645)
2232 141111616 : lu(k,1692) = lu(k,1692) - lu(k,654) * lu(k,1645)
2233 141111616 : lu(k,1694) = lu(k,1694) - lu(k,655) * lu(k,1645)
2234 141111616 : lu(k,1894) = lu(k,1894) - lu(k,649) * lu(k,1883)
2235 141111616 : lu(k,1899) = lu(k,1899) - lu(k,650) * lu(k,1883)
2236 141111616 : lu(k,1900) = lu(k,1900) - lu(k,651) * lu(k,1883)
2237 141111616 : lu(k,1902) = lu(k,1902) - lu(k,652) * lu(k,1883)
2238 141111616 : lu(k,1908) = - lu(k,653) * lu(k,1883)
2239 141111616 : lu(k,1909) = - lu(k,654) * lu(k,1883)
2240 141111616 : lu(k,1911) = lu(k,1911) - lu(k,655) * lu(k,1883)
2241 141111616 : lu(k,1917) = lu(k,1917) - lu(k,649) * lu(k,1914)
2242 141111616 : lu(k,1922) = lu(k,1922) - lu(k,650) * lu(k,1914)
2243 141111616 : lu(k,1923) = - lu(k,651) * lu(k,1914)
2244 141111616 : lu(k,1925) = lu(k,1925) - lu(k,652) * lu(k,1914)
2245 141111616 : lu(k,1931) = lu(k,1931) - lu(k,653) * lu(k,1914)
2246 141111616 : lu(k,1932) = lu(k,1932) - lu(k,654) * lu(k,1914)
2247 141111616 : lu(k,1934) = lu(k,1934) - lu(k,655) * lu(k,1914)
2248 141111616 : lu(k,656) = 1._r8 / lu(k,656)
2249 141111616 : lu(k,657) = lu(k,657) * lu(k,656)
2250 141111616 : lu(k,658) = lu(k,658) * lu(k,656)
2251 141111616 : lu(k,659) = lu(k,659) * lu(k,656)
2252 141111616 : lu(k,689) = lu(k,689) - lu(k,657) * lu(k,685)
2253 141111616 : lu(k,690) = lu(k,690) - lu(k,658) * lu(k,685)
2254 141111616 : lu(k,691) = lu(k,691) - lu(k,659) * lu(k,685)
2255 141111616 : lu(k,946) = lu(k,946) - lu(k,657) * lu(k,933)
2256 141111616 : lu(k,947) = lu(k,947) - lu(k,658) * lu(k,933)
2257 141111616 : lu(k,948) = lu(k,948) - lu(k,659) * lu(k,933)
2258 141111616 : lu(k,966) = lu(k,966) - lu(k,657) * lu(k,955)
2259 141111616 : lu(k,967) = lu(k,967) - lu(k,658) * lu(k,955)
2260 141111616 : lu(k,968) = lu(k,968) - lu(k,659) * lu(k,955)
2261 141111616 : lu(k,985) = lu(k,985) - lu(k,657) * lu(k,974)
2262 141111616 : lu(k,986) = lu(k,986) - lu(k,658) * lu(k,974)
2263 141111616 : lu(k,987) = lu(k,987) - lu(k,659) * lu(k,974)
2264 141111616 : lu(k,999) = lu(k,999) - lu(k,657) * lu(k,993)
2265 141111616 : lu(k,1000) = lu(k,1000) - lu(k,658) * lu(k,993)
2266 141111616 : lu(k,1001) = lu(k,1001) - lu(k,659) * lu(k,993)
2267 141111616 : lu(k,1016) = lu(k,1016) - lu(k,657) * lu(k,1006)
2268 141111616 : lu(k,1017) = lu(k,1017) - lu(k,658) * lu(k,1006)
2269 141111616 : lu(k,1018) = lu(k,1018) - lu(k,659) * lu(k,1006)
2270 141111616 : lu(k,1052) = lu(k,1052) - lu(k,657) * lu(k,1038)
2271 141111616 : lu(k,1053) = lu(k,1053) - lu(k,658) * lu(k,1038)
2272 141111616 : lu(k,1054) = lu(k,1054) - lu(k,659) * lu(k,1038)
2273 141111616 : lu(k,1121) = lu(k,1121) - lu(k,657) * lu(k,1101)
2274 141111616 : lu(k,1122) = lu(k,1122) - lu(k,658) * lu(k,1101)
2275 141111616 : lu(k,1123) = lu(k,1123) - lu(k,659) * lu(k,1101)
2276 141111616 : lu(k,1163) = lu(k,1163) - lu(k,657) * lu(k,1150)
2277 141111616 : lu(k,1164) = lu(k,1164) - lu(k,658) * lu(k,1150)
2278 141111616 : lu(k,1165) = lu(k,1165) - lu(k,659) * lu(k,1150)
2279 141111616 : lu(k,1189) = lu(k,1189) - lu(k,657) * lu(k,1172)
2280 141111616 : lu(k,1190) = lu(k,1190) - lu(k,658) * lu(k,1172)
2281 141111616 : lu(k,1191) = lu(k,1191) - lu(k,659) * lu(k,1172)
2282 141111616 : lu(k,1322) = lu(k,1322) - lu(k,657) * lu(k,1291)
2283 141111616 : lu(k,1323) = lu(k,1323) - lu(k,658) * lu(k,1291)
2284 141111616 : lu(k,1325) = lu(k,1325) - lu(k,659) * lu(k,1291)
2285 141111616 : lu(k,1499) = lu(k,1499) - lu(k,657) * lu(k,1453)
2286 141111616 : lu(k,1501) = lu(k,1501) - lu(k,658) * lu(k,1453)
2287 141111616 : lu(k,1503) = lu(k,1503) - lu(k,659) * lu(k,1453)
2288 141111616 : lu(k,661) = 1._r8 / lu(k,661)
2289 141111616 : lu(k,662) = lu(k,662) * lu(k,661)
2290 141111616 : lu(k,663) = lu(k,663) * lu(k,661)
2291 141111616 : lu(k,664) = lu(k,664) * lu(k,661)
2292 141111616 : lu(k,665) = lu(k,665) * lu(k,661)
2293 141111616 : lu(k,666) = lu(k,666) * lu(k,661)
2294 141111616 : lu(k,667) = lu(k,667) * lu(k,661)
2295 141111616 : lu(k,668) = lu(k,668) * lu(k,661)
2296 141111616 : lu(k,669) = lu(k,669) * lu(k,661)
2297 141111616 : lu(k,670) = lu(k,670) * lu(k,661)
2298 141111616 : lu(k,1296) = lu(k,1296) - lu(k,662) * lu(k,1292)
2299 141111616 : lu(k,1301) = lu(k,1301) - lu(k,663) * lu(k,1292)
2300 141111616 : lu(k,1320) = lu(k,1320) - lu(k,664) * lu(k,1292)
2301 141111616 : lu(k,1322) = lu(k,1322) - lu(k,665) * lu(k,1292)
2302 141111616 : lu(k,1323) = lu(k,1323) - lu(k,666) * lu(k,1292)
2303 141111616 : lu(k,1325) = lu(k,1325) - lu(k,667) * lu(k,1292)
2304 141111616 : lu(k,1327) = lu(k,1327) - lu(k,668) * lu(k,1292)
2305 141111616 : lu(k,1329) = lu(k,1329) - lu(k,669) * lu(k,1292)
2306 141111616 : lu(k,1333) = lu(k,1333) - lu(k,670) * lu(k,1292)
2307 141111616 : lu(k,1467) = lu(k,1467) - lu(k,662) * lu(k,1454)
2308 141111616 : lu(k,1474) = lu(k,1474) - lu(k,663) * lu(k,1454)
2309 141111616 : lu(k,1497) = lu(k,1497) - lu(k,664) * lu(k,1454)
2310 141111616 : lu(k,1499) = lu(k,1499) - lu(k,665) * lu(k,1454)
2311 141111616 : lu(k,1501) = lu(k,1501) - lu(k,666) * lu(k,1454)
2312 141111616 : lu(k,1503) = lu(k,1503) - lu(k,667) * lu(k,1454)
2313 141111616 : lu(k,1505) = lu(k,1505) - lu(k,668) * lu(k,1454)
2314 141111616 : lu(k,1507) = lu(k,1507) - lu(k,669) * lu(k,1454)
2315 141111616 : lu(k,1511) = lu(k,1511) - lu(k,670) * lu(k,1454)
2316 141111616 : lu(k,1655) = lu(k,1655) - lu(k,662) * lu(k,1646)
2317 141111616 : lu(k,1659) = lu(k,1659) - lu(k,663) * lu(k,1646)
2318 141111616 : lu(k,1680) = lu(k,1680) - lu(k,664) * lu(k,1646)
2319 141111616 : lu(k,1682) = lu(k,1682) - lu(k,665) * lu(k,1646)
2320 141111616 : lu(k,1684) = lu(k,1684) - lu(k,666) * lu(k,1646)
2321 141111616 : lu(k,1686) = lu(k,1686) - lu(k,667) * lu(k,1646)
2322 141111616 : lu(k,1688) = lu(k,1688) - lu(k,668) * lu(k,1646)
2323 141111616 : lu(k,1690) = lu(k,1690) - lu(k,669) * lu(k,1646)
2324 141111616 : lu(k,1694) = lu(k,1694) - lu(k,670) * lu(k,1646)
2325 141111616 : lu(k,1770) = lu(k,1770) - lu(k,662) * lu(k,1763)
2326 141111616 : lu(k,1775) = lu(k,1775) - lu(k,663) * lu(k,1763)
2327 141111616 : lu(k,1796) = lu(k,1796) - lu(k,664) * lu(k,1763)
2328 141111616 : lu(k,1798) = lu(k,1798) - lu(k,665) * lu(k,1763)
2329 141111616 : lu(k,1800) = lu(k,1800) - lu(k,666) * lu(k,1763)
2330 141111616 : lu(k,1802) = lu(k,1802) - lu(k,667) * lu(k,1763)
2331 141111616 : lu(k,1804) = lu(k,1804) - lu(k,668) * lu(k,1763)
2332 141111616 : lu(k,1806) = lu(k,1806) - lu(k,669) * lu(k,1763)
2333 145521354 : lu(k,1810) = lu(k,1810) - lu(k,670) * lu(k,1763)
2334 : end do
2335 4409738 : end subroutine lu_fac14
2336 4409738 : subroutine lu_fac15( avec_len, lu )
2337 : use chem_mods, only : nzcnt
2338 : use shr_kind_mod, only : r8 => shr_kind_r8
2339 : implicit none
2340 : !-----------------------------------------------------------------------
2341 : ! ... dummy args
2342 : !-----------------------------------------------------------------------
2343 : integer, intent(in) :: avec_len
2344 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2345 : !-----------------------------------------------------------------------
2346 : ! ... local variables
2347 : !-----------------------------------------------------------------------
2348 : integer :: k
2349 145521354 : do k = 1,avec_len
2350 141111616 : lu(k,671) = 1._r8 / lu(k,671)
2351 141111616 : lu(k,672) = lu(k,672) * lu(k,671)
2352 141111616 : lu(k,673) = lu(k,673) * lu(k,671)
2353 141111616 : lu(k,674) = lu(k,674) * lu(k,671)
2354 141111616 : lu(k,716) = lu(k,716) - lu(k,672) * lu(k,705)
2355 141111616 : lu(k,718) = lu(k,718) - lu(k,673) * lu(k,705)
2356 141111616 : lu(k,721) = - lu(k,674) * lu(k,705)
2357 141111616 : lu(k,770) = lu(k,770) - lu(k,672) * lu(k,757)
2358 141111616 : lu(k,772) = lu(k,772) - lu(k,673) * lu(k,757)
2359 141111616 : lu(k,775) = - lu(k,674) * lu(k,757)
2360 141111616 : lu(k,797) = lu(k,797) - lu(k,672) * lu(k,784)
2361 141111616 : lu(k,799) = lu(k,799) - lu(k,673) * lu(k,784)
2362 141111616 : lu(k,802) = - lu(k,674) * lu(k,784)
2363 141111616 : lu(k,847) = lu(k,847) - lu(k,672) * lu(k,838)
2364 141111616 : lu(k,849) = lu(k,849) - lu(k,673) * lu(k,838)
2365 141111616 : lu(k,854) = lu(k,854) - lu(k,674) * lu(k,838)
2366 141111616 : lu(k,1066) = lu(k,1066) - lu(k,672) * lu(k,1058)
2367 141111616 : lu(k,1068) = lu(k,1068) - lu(k,673) * lu(k,1058)
2368 141111616 : lu(k,1070) = lu(k,1070) - lu(k,674) * lu(k,1058)
2369 141111616 : lu(k,1141) = lu(k,1141) - lu(k,672) * lu(k,1129)
2370 141111616 : lu(k,1143) = lu(k,1143) - lu(k,673) * lu(k,1129)
2371 141111616 : lu(k,1148) = - lu(k,674) * lu(k,1129)
2372 141111616 : lu(k,1499) = lu(k,1499) - lu(k,672) * lu(k,1455)
2373 141111616 : lu(k,1503) = lu(k,1503) - lu(k,673) * lu(k,1455)
2374 141111616 : lu(k,1511) = lu(k,1511) - lu(k,674) * lu(k,1455)
2375 141111616 : lu(k,1546) = lu(k,1546) - lu(k,672) * lu(k,1537)
2376 141111616 : lu(k,1550) = lu(k,1550) - lu(k,673) * lu(k,1537)
2377 141111616 : lu(k,1558) = lu(k,1558) - lu(k,674) * lu(k,1537)
2378 141111616 : lu(k,1682) = lu(k,1682) - lu(k,672) * lu(k,1647)
2379 141111616 : lu(k,1686) = lu(k,1686) - lu(k,673) * lu(k,1647)
2380 141111616 : lu(k,1694) = lu(k,1694) - lu(k,674) * lu(k,1647)
2381 141111616 : lu(k,1798) = lu(k,1798) - lu(k,672) * lu(k,1764)
2382 141111616 : lu(k,1802) = lu(k,1802) - lu(k,673) * lu(k,1764)
2383 141111616 : lu(k,1810) = lu(k,1810) - lu(k,674) * lu(k,1764)
2384 141111616 : lu(k,1858) = lu(k,1858) - lu(k,672) * lu(k,1824)
2385 141111616 : lu(k,1862) = lu(k,1862) - lu(k,673) * lu(k,1824)
2386 141111616 : lu(k,1870) = lu(k,1870) - lu(k,674) * lu(k,1824)
2387 141111616 : lu(k,1956) = lu(k,1956) - lu(k,672) * lu(k,1941)
2388 141111616 : lu(k,1960) = lu(k,1960) - lu(k,673) * lu(k,1941)
2389 141111616 : lu(k,1968) = lu(k,1968) - lu(k,674) * lu(k,1941)
2390 141111616 : lu(k,676) = 1._r8 / lu(k,676)
2391 141111616 : lu(k,677) = lu(k,677) * lu(k,676)
2392 141111616 : lu(k,678) = lu(k,678) * lu(k,676)
2393 141111616 : lu(k,679) = lu(k,679) * lu(k,676)
2394 141111616 : lu(k,680) = lu(k,680) * lu(k,676)
2395 141111616 : lu(k,681) = lu(k,681) * lu(k,676)
2396 141111616 : lu(k,682) = lu(k,682) * lu(k,676)
2397 141111616 : lu(k,828) = lu(k,828) - lu(k,677) * lu(k,825)
2398 141111616 : lu(k,829) = lu(k,829) - lu(k,678) * lu(k,825)
2399 141111616 : lu(k,830) = lu(k,830) - lu(k,679) * lu(k,825)
2400 141111616 : lu(k,832) = lu(k,832) - lu(k,680) * lu(k,825)
2401 141111616 : lu(k,833) = lu(k,833) - lu(k,681) * lu(k,825)
2402 141111616 : lu(k,835) = - lu(k,682) * lu(k,825)
2403 141111616 : lu(k,1499) = lu(k,1499) - lu(k,677) * lu(k,1456)
2404 141111616 : lu(k,1502) = lu(k,1502) - lu(k,678) * lu(k,1456)
2405 141111616 : lu(k,1504) = lu(k,1504) - lu(k,679) * lu(k,1456)
2406 141111616 : lu(k,1508) = lu(k,1508) - lu(k,680) * lu(k,1456)
2407 141111616 : lu(k,1509) = lu(k,1509) - lu(k,681) * lu(k,1456)
2408 141111616 : lu(k,1511) = lu(k,1511) - lu(k,682) * lu(k,1456)
2409 141111616 : lu(k,1576) = lu(k,1576) - lu(k,677) * lu(k,1564)
2410 141111616 : lu(k,1579) = lu(k,1579) - lu(k,678) * lu(k,1564)
2411 141111616 : lu(k,1581) = lu(k,1581) - lu(k,679) * lu(k,1564)
2412 141111616 : lu(k,1585) = lu(k,1585) - lu(k,680) * lu(k,1564)
2413 141111616 : lu(k,1586) = lu(k,1586) - lu(k,681) * lu(k,1564)
2414 141111616 : lu(k,1588) = lu(k,1588) - lu(k,682) * lu(k,1564)
2415 141111616 : lu(k,1682) = lu(k,1682) - lu(k,677) * lu(k,1648)
2416 141111616 : lu(k,1685) = lu(k,1685) - lu(k,678) * lu(k,1648)
2417 141111616 : lu(k,1687) = lu(k,1687) - lu(k,679) * lu(k,1648)
2418 141111616 : lu(k,1691) = lu(k,1691) - lu(k,680) * lu(k,1648)
2419 141111616 : lu(k,1692) = lu(k,1692) - lu(k,681) * lu(k,1648)
2420 141111616 : lu(k,1694) = lu(k,1694) - lu(k,682) * lu(k,1648)
2421 141111616 : lu(k,1708) = lu(k,1708) - lu(k,677) * lu(k,1699)
2422 141111616 : lu(k,1711) = lu(k,1711) - lu(k,678) * lu(k,1699)
2423 141111616 : lu(k,1713) = lu(k,1713) - lu(k,679) * lu(k,1699)
2424 141111616 : lu(k,1717) = lu(k,1717) - lu(k,680) * lu(k,1699)
2425 141111616 : lu(k,1718) = lu(k,1718) - lu(k,681) * lu(k,1699)
2426 141111616 : lu(k,1720) = - lu(k,682) * lu(k,1699)
2427 141111616 : lu(k,1922) = lu(k,1922) - lu(k,677) * lu(k,1915)
2428 141111616 : lu(k,1925) = lu(k,1925) - lu(k,678) * lu(k,1915)
2429 141111616 : lu(k,1927) = lu(k,1927) - lu(k,679) * lu(k,1915)
2430 141111616 : lu(k,1931) = lu(k,1931) - lu(k,680) * lu(k,1915)
2431 141111616 : lu(k,1932) = lu(k,1932) - lu(k,681) * lu(k,1915)
2432 141111616 : lu(k,1934) = lu(k,1934) - lu(k,682) * lu(k,1915)
2433 141111616 : lu(k,1956) = lu(k,1956) - lu(k,677) * lu(k,1942)
2434 141111616 : lu(k,1959) = lu(k,1959) - lu(k,678) * lu(k,1942)
2435 141111616 : lu(k,1961) = lu(k,1961) - lu(k,679) * lu(k,1942)
2436 141111616 : lu(k,1965) = lu(k,1965) - lu(k,680) * lu(k,1942)
2437 141111616 : lu(k,1966) = lu(k,1966) - lu(k,681) * lu(k,1942)
2438 141111616 : lu(k,1968) = lu(k,1968) - lu(k,682) * lu(k,1942)
2439 141111616 : lu(k,686) = 1._r8 / lu(k,686)
2440 141111616 : lu(k,687) = lu(k,687) * lu(k,686)
2441 141111616 : lu(k,688) = lu(k,688) * lu(k,686)
2442 141111616 : lu(k,689) = lu(k,689) * lu(k,686)
2443 141111616 : lu(k,690) = lu(k,690) * lu(k,686)
2444 141111616 : lu(k,691) = lu(k,691) * lu(k,686)
2445 141111616 : lu(k,692) = lu(k,692) * lu(k,686)
2446 141111616 : lu(k,693) = lu(k,693) * lu(k,686)
2447 141111616 : lu(k,810) = lu(k,810) - lu(k,687) * lu(k,807)
2448 141111616 : lu(k,812) = - lu(k,688) * lu(k,807)
2449 141111616 : lu(k,813) = lu(k,813) - lu(k,689) * lu(k,807)
2450 141111616 : lu(k,814) = lu(k,814) - lu(k,690) * lu(k,807)
2451 141111616 : lu(k,815) = lu(k,815) - lu(k,691) * lu(k,807)
2452 141111616 : lu(k,816) = lu(k,816) - lu(k,692) * lu(k,807)
2453 141111616 : lu(k,817) = lu(k,817) - lu(k,693) * lu(k,807)
2454 141111616 : lu(k,1301) = lu(k,1301) - lu(k,687) * lu(k,1293)
2455 141111616 : lu(k,1320) = lu(k,1320) - lu(k,688) * lu(k,1293)
2456 141111616 : lu(k,1322) = lu(k,1322) - lu(k,689) * lu(k,1293)
2457 141111616 : lu(k,1323) = lu(k,1323) - lu(k,690) * lu(k,1293)
2458 141111616 : lu(k,1325) = lu(k,1325) - lu(k,691) * lu(k,1293)
2459 141111616 : lu(k,1327) = lu(k,1327) - lu(k,692) * lu(k,1293)
2460 141111616 : lu(k,1329) = lu(k,1329) - lu(k,693) * lu(k,1293)
2461 141111616 : lu(k,1474) = lu(k,1474) - lu(k,687) * lu(k,1457)
2462 141111616 : lu(k,1497) = lu(k,1497) - lu(k,688) * lu(k,1457)
2463 141111616 : lu(k,1499) = lu(k,1499) - lu(k,689) * lu(k,1457)
2464 141111616 : lu(k,1501) = lu(k,1501) - lu(k,690) * lu(k,1457)
2465 141111616 : lu(k,1503) = lu(k,1503) - lu(k,691) * lu(k,1457)
2466 141111616 : lu(k,1505) = lu(k,1505) - lu(k,692) * lu(k,1457)
2467 141111616 : lu(k,1507) = lu(k,1507) - lu(k,693) * lu(k,1457)
2468 141111616 : lu(k,1659) = lu(k,1659) - lu(k,687) * lu(k,1649)
2469 141111616 : lu(k,1680) = lu(k,1680) - lu(k,688) * lu(k,1649)
2470 141111616 : lu(k,1682) = lu(k,1682) - lu(k,689) * lu(k,1649)
2471 141111616 : lu(k,1684) = lu(k,1684) - lu(k,690) * lu(k,1649)
2472 141111616 : lu(k,1686) = lu(k,1686) - lu(k,691) * lu(k,1649)
2473 141111616 : lu(k,1688) = lu(k,1688) - lu(k,692) * lu(k,1649)
2474 141111616 : lu(k,1690) = lu(k,1690) - lu(k,693) * lu(k,1649)
2475 141111616 : lu(k,1775) = lu(k,1775) - lu(k,687) * lu(k,1765)
2476 141111616 : lu(k,1796) = lu(k,1796) - lu(k,688) * lu(k,1765)
2477 141111616 : lu(k,1798) = lu(k,1798) - lu(k,689) * lu(k,1765)
2478 141111616 : lu(k,1800) = lu(k,1800) - lu(k,690) * lu(k,1765)
2479 141111616 : lu(k,1802) = lu(k,1802) - lu(k,691) * lu(k,1765)
2480 141111616 : lu(k,1804) = lu(k,1804) - lu(k,692) * lu(k,1765)
2481 141111616 : lu(k,1806) = lu(k,1806) - lu(k,693) * lu(k,1765)
2482 141111616 : lu(k,1947) = - lu(k,687) * lu(k,1943)
2483 141111616 : lu(k,1954) = lu(k,1954) - lu(k,688) * lu(k,1943)
2484 141111616 : lu(k,1956) = lu(k,1956) - lu(k,689) * lu(k,1943)
2485 141111616 : lu(k,1958) = lu(k,1958) - lu(k,690) * lu(k,1943)
2486 141111616 : lu(k,1960) = lu(k,1960) - lu(k,691) * lu(k,1943)
2487 141111616 : lu(k,1962) = lu(k,1962) - lu(k,692) * lu(k,1943)
2488 141111616 : lu(k,1964) = lu(k,1964) - lu(k,693) * lu(k,1943)
2489 141111616 : lu(k,694) = 1._r8 / lu(k,694)
2490 141111616 : lu(k,695) = lu(k,695) * lu(k,694)
2491 141111616 : lu(k,696) = lu(k,696) * lu(k,694)
2492 141111616 : lu(k,697) = lu(k,697) * lu(k,694)
2493 141111616 : lu(k,698) = lu(k,698) * lu(k,694)
2494 141111616 : lu(k,699) = lu(k,699) * lu(k,694)
2495 141111616 : lu(k,700) = lu(k,700) * lu(k,694)
2496 141111616 : lu(k,701) = lu(k,701) * lu(k,694)
2497 141111616 : lu(k,1247) = lu(k,1247) - lu(k,695) * lu(k,1245)
2498 141111616 : lu(k,1248) = - lu(k,696) * lu(k,1245)
2499 141111616 : lu(k,1249) = - lu(k,697) * lu(k,1245)
2500 141111616 : lu(k,1250) = - lu(k,698) * lu(k,1245)
2501 141111616 : lu(k,1251) = lu(k,1251) - lu(k,699) * lu(k,1245)
2502 141111616 : lu(k,1253) = - lu(k,700) * lu(k,1245)
2503 141111616 : lu(k,1256) = - lu(k,701) * lu(k,1245)
2504 141111616 : lu(k,1340) = lu(k,1340) - lu(k,695) * lu(k,1338)
2505 141111616 : lu(k,1342) = lu(k,1342) - lu(k,696) * lu(k,1338)
2506 141111616 : lu(k,1344) = lu(k,1344) - lu(k,697) * lu(k,1338)
2507 141111616 : lu(k,1345) = lu(k,1345) - lu(k,698) * lu(k,1338)
2508 141111616 : lu(k,1346) = lu(k,1346) - lu(k,699) * lu(k,1338)
2509 141111616 : lu(k,1348) = lu(k,1348) - lu(k,700) * lu(k,1338)
2510 141111616 : lu(k,1357) = lu(k,1357) - lu(k,701) * lu(k,1338)
2511 141111616 : lu(k,1494) = lu(k,1494) - lu(k,695) * lu(k,1458)
2512 141111616 : lu(k,1496) = lu(k,1496) - lu(k,696) * lu(k,1458)
2513 141111616 : lu(k,1498) = lu(k,1498) - lu(k,697) * lu(k,1458)
2514 141111616 : lu(k,1499) = lu(k,1499) - lu(k,698) * lu(k,1458)
2515 141111616 : lu(k,1500) = lu(k,1500) - lu(k,699) * lu(k,1458)
2516 141111616 : lu(k,1502) = lu(k,1502) - lu(k,700) * lu(k,1458)
2517 141111616 : lu(k,1511) = lu(k,1511) - lu(k,701) * lu(k,1458)
2518 141111616 : lu(k,1541) = lu(k,1541) - lu(k,695) * lu(k,1538)
2519 141111616 : lu(k,1543) = lu(k,1543) - lu(k,696) * lu(k,1538)
2520 141111616 : lu(k,1545) = - lu(k,697) * lu(k,1538)
2521 141111616 : lu(k,1546) = lu(k,1546) - lu(k,698) * lu(k,1538)
2522 141111616 : lu(k,1547) = - lu(k,699) * lu(k,1538)
2523 141111616 : lu(k,1549) = lu(k,1549) - lu(k,700) * lu(k,1538)
2524 141111616 : lu(k,1558) = lu(k,1558) - lu(k,701) * lu(k,1538)
2525 141111616 : lu(k,1571) = lu(k,1571) - lu(k,695) * lu(k,1565)
2526 141111616 : lu(k,1573) = lu(k,1573) - lu(k,696) * lu(k,1565)
2527 141111616 : lu(k,1575) = - lu(k,697) * lu(k,1565)
2528 141111616 : lu(k,1576) = lu(k,1576) - lu(k,698) * lu(k,1565)
2529 141111616 : lu(k,1577) = lu(k,1577) - lu(k,699) * lu(k,1565)
2530 141111616 : lu(k,1579) = lu(k,1579) - lu(k,700) * lu(k,1565)
2531 141111616 : lu(k,1588) = lu(k,1588) - lu(k,701) * lu(k,1565)
2532 141111616 : lu(k,1677) = lu(k,1677) - lu(k,695) * lu(k,1650)
2533 141111616 : lu(k,1679) = lu(k,1679) - lu(k,696) * lu(k,1650)
2534 141111616 : lu(k,1681) = - lu(k,697) * lu(k,1650)
2535 141111616 : lu(k,1682) = lu(k,1682) - lu(k,698) * lu(k,1650)
2536 141111616 : lu(k,1683) = lu(k,1683) - lu(k,699) * lu(k,1650)
2537 141111616 : lu(k,1685) = lu(k,1685) - lu(k,700) * lu(k,1650)
2538 141111616 : lu(k,1694) = lu(k,1694) - lu(k,701) * lu(k,1650)
2539 141111616 : lu(k,706) = 1._r8 / lu(k,706)
2540 141111616 : lu(k,707) = lu(k,707) * lu(k,706)
2541 141111616 : lu(k,708) = lu(k,708) * lu(k,706)
2542 141111616 : lu(k,709) = lu(k,709) * lu(k,706)
2543 141111616 : lu(k,710) = lu(k,710) * lu(k,706)
2544 141111616 : lu(k,711) = lu(k,711) * lu(k,706)
2545 141111616 : lu(k,712) = lu(k,712) * lu(k,706)
2546 141111616 : lu(k,713) = lu(k,713) * lu(k,706)
2547 141111616 : lu(k,714) = lu(k,714) * lu(k,706)
2548 141111616 : lu(k,715) = lu(k,715) * lu(k,706)
2549 141111616 : lu(k,716) = lu(k,716) * lu(k,706)
2550 141111616 : lu(k,717) = lu(k,717) * lu(k,706)
2551 141111616 : lu(k,718) = lu(k,718) * lu(k,706)
2552 141111616 : lu(k,719) = lu(k,719) * lu(k,706)
2553 141111616 : lu(k,720) = lu(k,720) * lu(k,706)
2554 141111616 : lu(k,721) = lu(k,721) * lu(k,706)
2555 141111616 : lu(k,1469) = lu(k,1469) - lu(k,707) * lu(k,1459)
2556 141111616 : lu(k,1475) = lu(k,1475) - lu(k,708) * lu(k,1459)
2557 141111616 : lu(k,1484) = - lu(k,709) * lu(k,1459)
2558 141111616 : lu(k,1485) = lu(k,1485) - lu(k,710) * lu(k,1459)
2559 141111616 : lu(k,1488) = lu(k,1488) - lu(k,711) * lu(k,1459)
2560 141111616 : lu(k,1489) = lu(k,1489) - lu(k,712) * lu(k,1459)
2561 141111616 : lu(k,1491) = lu(k,1491) - lu(k,713) * lu(k,1459)
2562 141111616 : lu(k,1493) = lu(k,1493) - lu(k,714) * lu(k,1459)
2563 141111616 : lu(k,1497) = lu(k,1497) - lu(k,715) * lu(k,1459)
2564 141111616 : lu(k,1499) = lu(k,1499) - lu(k,716) * lu(k,1459)
2565 141111616 : lu(k,1501) = lu(k,1501) - lu(k,717) * lu(k,1459)
2566 141111616 : lu(k,1503) = lu(k,1503) - lu(k,718) * lu(k,1459)
2567 141111616 : lu(k,1506) = lu(k,1506) - lu(k,719) * lu(k,1459)
2568 141111616 : lu(k,1510) = lu(k,1510) - lu(k,720) * lu(k,1459)
2569 141111616 : lu(k,1511) = lu(k,1511) - lu(k,721) * lu(k,1459)
2570 141111616 : lu(k,1832) = lu(k,1832) - lu(k,707) * lu(k,1825)
2571 141111616 : lu(k,1837) = lu(k,1837) - lu(k,708) * lu(k,1825)
2572 141111616 : lu(k,1843) = - lu(k,709) * lu(k,1825)
2573 141111616 : lu(k,1844) = lu(k,1844) - lu(k,710) * lu(k,1825)
2574 141111616 : lu(k,1847) = - lu(k,711) * lu(k,1825)
2575 141111616 : lu(k,1848) = lu(k,1848) - lu(k,712) * lu(k,1825)
2576 141111616 : lu(k,1850) = - lu(k,713) * lu(k,1825)
2577 141111616 : lu(k,1852) = lu(k,1852) - lu(k,714) * lu(k,1825)
2578 141111616 : lu(k,1856) = lu(k,1856) - lu(k,715) * lu(k,1825)
2579 141111616 : lu(k,1858) = lu(k,1858) - lu(k,716) * lu(k,1825)
2580 141111616 : lu(k,1860) = lu(k,1860) - lu(k,717) * lu(k,1825)
2581 141111616 : lu(k,1862) = lu(k,1862) - lu(k,718) * lu(k,1825)
2582 141111616 : lu(k,1865) = lu(k,1865) - lu(k,719) * lu(k,1825)
2583 141111616 : lu(k,1869) = lu(k,1869) - lu(k,720) * lu(k,1825)
2584 141111616 : lu(k,1870) = lu(k,1870) - lu(k,721) * lu(k,1825)
2585 141111616 : lu(k,1984) = lu(k,1984) - lu(k,707) * lu(k,1976)
2586 141111616 : lu(k,1990) = lu(k,1990) - lu(k,708) * lu(k,1976)
2587 141111616 : lu(k,1998) = lu(k,1998) - lu(k,709) * lu(k,1976)
2588 141111616 : lu(k,1999) = lu(k,1999) - lu(k,710) * lu(k,1976)
2589 141111616 : lu(k,2002) = lu(k,2002) - lu(k,711) * lu(k,1976)
2590 141111616 : lu(k,2003) = lu(k,2003) - lu(k,712) * lu(k,1976)
2591 141111616 : lu(k,2005) = lu(k,2005) - lu(k,713) * lu(k,1976)
2592 141111616 : lu(k,2007) = lu(k,2007) - lu(k,714) * lu(k,1976)
2593 141111616 : lu(k,2011) = - lu(k,715) * lu(k,1976)
2594 141111616 : lu(k,2013) = lu(k,2013) - lu(k,716) * lu(k,1976)
2595 141111616 : lu(k,2015) = lu(k,2015) - lu(k,717) * lu(k,1976)
2596 141111616 : lu(k,2017) = lu(k,2017) - lu(k,718) * lu(k,1976)
2597 141111616 : lu(k,2020) = - lu(k,719) * lu(k,1976)
2598 141111616 : lu(k,2024) = lu(k,2024) - lu(k,720) * lu(k,1976)
2599 145521354 : lu(k,2025) = - lu(k,721) * lu(k,1976)
2600 : end do
2601 4409738 : end subroutine lu_fac15
2602 4409738 : subroutine lu_fac16( avec_len, lu )
2603 : use chem_mods, only : nzcnt
2604 : use shr_kind_mod, only : r8 => shr_kind_r8
2605 : implicit none
2606 : !-----------------------------------------------------------------------
2607 : ! ... dummy args
2608 : !-----------------------------------------------------------------------
2609 : integer, intent(in) :: avec_len
2610 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2611 : !-----------------------------------------------------------------------
2612 : ! ... local variables
2613 : !-----------------------------------------------------------------------
2614 : integer :: k
2615 145521354 : do k = 1,avec_len
2616 141111616 : lu(k,723) = 1._r8 / lu(k,723)
2617 141111616 : lu(k,724) = lu(k,724) * lu(k,723)
2618 141111616 : lu(k,725) = lu(k,725) * lu(k,723)
2619 141111616 : lu(k,726) = lu(k,726) * lu(k,723)
2620 141111616 : lu(k,727) = lu(k,727) * lu(k,723)
2621 141111616 : lu(k,728) = lu(k,728) * lu(k,723)
2622 141111616 : lu(k,1083) = lu(k,1083) - lu(k,724) * lu(k,1082)
2623 141111616 : lu(k,1086) = lu(k,1086) - lu(k,725) * lu(k,1082)
2624 141111616 : lu(k,1088) = lu(k,1088) - lu(k,726) * lu(k,1082)
2625 141111616 : lu(k,1089) = - lu(k,727) * lu(k,1082)
2626 141111616 : lu(k,1095) = - lu(k,728) * lu(k,1082)
2627 141111616 : lu(k,1487) = lu(k,1487) - lu(k,724) * lu(k,1460)
2628 141111616 : lu(k,1499) = lu(k,1499) - lu(k,725) * lu(k,1460)
2629 141111616 : lu(k,1502) = lu(k,1502) - lu(k,726) * lu(k,1460)
2630 141111616 : lu(k,1503) = lu(k,1503) - lu(k,727) * lu(k,1460)
2631 141111616 : lu(k,1511) = lu(k,1511) - lu(k,728) * lu(k,1460)
2632 141111616 : lu(k,1517) = lu(k,1517) - lu(k,724) * lu(k,1516)
2633 141111616 : lu(k,1523) = lu(k,1523) - lu(k,725) * lu(k,1516)
2634 141111616 : lu(k,1526) = lu(k,1526) - lu(k,726) * lu(k,1516)
2635 141111616 : lu(k,1527) = lu(k,1527) - lu(k,727) * lu(k,1516)
2636 141111616 : lu(k,1535) = lu(k,1535) - lu(k,728) * lu(k,1516)
2637 141111616 : lu(k,1570) = lu(k,1570) - lu(k,724) * lu(k,1566)
2638 141111616 : lu(k,1576) = lu(k,1576) - lu(k,725) * lu(k,1566)
2639 141111616 : lu(k,1579) = lu(k,1579) - lu(k,726) * lu(k,1566)
2640 141111616 : lu(k,1580) = lu(k,1580) - lu(k,727) * lu(k,1566)
2641 141111616 : lu(k,1588) = lu(k,1588) - lu(k,728) * lu(k,1566)
2642 141111616 : lu(k,1702) = lu(k,1702) - lu(k,724) * lu(k,1700)
2643 141111616 : lu(k,1708) = lu(k,1708) - lu(k,725) * lu(k,1700)
2644 141111616 : lu(k,1711) = lu(k,1711) - lu(k,726) * lu(k,1700)
2645 141111616 : lu(k,1712) = lu(k,1712) - lu(k,727) * lu(k,1700)
2646 141111616 : lu(k,1720) = lu(k,1720) - lu(k,728) * lu(k,1700)
2647 141111616 : lu(k,1846) = lu(k,1846) - lu(k,724) * lu(k,1826)
2648 141111616 : lu(k,1858) = lu(k,1858) - lu(k,725) * lu(k,1826)
2649 141111616 : lu(k,1861) = lu(k,1861) - lu(k,726) * lu(k,1826)
2650 141111616 : lu(k,1862) = lu(k,1862) - lu(k,727) * lu(k,1826)
2651 141111616 : lu(k,1870) = lu(k,1870) - lu(k,728) * lu(k,1826)
2652 141111616 : lu(k,1891) = lu(k,1891) - lu(k,724) * lu(k,1884)
2653 141111616 : lu(k,1899) = lu(k,1899) - lu(k,725) * lu(k,1884)
2654 141111616 : lu(k,1902) = lu(k,1902) - lu(k,726) * lu(k,1884)
2655 141111616 : lu(k,1903) = lu(k,1903) - lu(k,727) * lu(k,1884)
2656 141111616 : lu(k,1911) = lu(k,1911) - lu(k,728) * lu(k,1884)
2657 141111616 : lu(k,2001) = - lu(k,724) * lu(k,1977)
2658 141111616 : lu(k,2013) = lu(k,2013) - lu(k,725) * lu(k,1977)
2659 141111616 : lu(k,2016) = lu(k,2016) - lu(k,726) * lu(k,1977)
2660 141111616 : lu(k,2017) = lu(k,2017) - lu(k,727) * lu(k,1977)
2661 141111616 : lu(k,2025) = lu(k,2025) - lu(k,728) * lu(k,1977)
2662 141111616 : lu(k,2032) = - lu(k,724) * lu(k,2030)
2663 141111616 : lu(k,2038) = lu(k,2038) - lu(k,725) * lu(k,2030)
2664 141111616 : lu(k,2041) = lu(k,2041) - lu(k,726) * lu(k,2030)
2665 141111616 : lu(k,2042) = - lu(k,727) * lu(k,2030)
2666 141111616 : lu(k,2050) = lu(k,2050) - lu(k,728) * lu(k,2030)
2667 141111616 : lu(k,729) = 1._r8 / lu(k,729)
2668 141111616 : lu(k,730) = lu(k,730) * lu(k,729)
2669 141111616 : lu(k,731) = lu(k,731) * lu(k,729)
2670 141111616 : lu(k,732) = lu(k,732) * lu(k,729)
2671 141111616 : lu(k,733) = lu(k,733) * lu(k,729)
2672 141111616 : lu(k,734) = lu(k,734) * lu(k,729)
2673 141111616 : lu(k,844) = - lu(k,730) * lu(k,839)
2674 141111616 : lu(k,845) = - lu(k,731) * lu(k,839)
2675 141111616 : lu(k,847) = lu(k,847) - lu(k,732) * lu(k,839)
2676 141111616 : lu(k,848) = lu(k,848) - lu(k,733) * lu(k,839)
2677 141111616 : lu(k,852) = lu(k,852) - lu(k,734) * lu(k,839)
2678 141111616 : lu(k,875) = - lu(k,730) * lu(k,870)
2679 141111616 : lu(k,876) = - lu(k,731) * lu(k,870)
2680 141111616 : lu(k,879) = lu(k,879) - lu(k,732) * lu(k,870)
2681 141111616 : lu(k,880) = - lu(k,733) * lu(k,870)
2682 141111616 : lu(k,883) = lu(k,883) - lu(k,734) * lu(k,870)
2683 141111616 : lu(k,1046) = - lu(k,730) * lu(k,1039)
2684 141111616 : lu(k,1048) = lu(k,1048) - lu(k,731) * lu(k,1039)
2685 141111616 : lu(k,1052) = lu(k,1052) - lu(k,732) * lu(k,1039)
2686 141111616 : lu(k,1053) = lu(k,1053) - lu(k,733) * lu(k,1039)
2687 141111616 : lu(k,1056) = lu(k,1056) - lu(k,734) * lu(k,1039)
2688 141111616 : lu(k,1112) = lu(k,1112) - lu(k,730) * lu(k,1102)
2689 141111616 : lu(k,1117) = lu(k,1117) - lu(k,731) * lu(k,1102)
2690 141111616 : lu(k,1121) = lu(k,1121) - lu(k,732) * lu(k,1102)
2691 141111616 : lu(k,1122) = lu(k,1122) - lu(k,733) * lu(k,1102)
2692 141111616 : lu(k,1126) = lu(k,1126) - lu(k,734) * lu(k,1102)
2693 141111616 : lu(k,1311) = lu(k,1311) - lu(k,730) * lu(k,1294)
2694 141111616 : lu(k,1317) = lu(k,1317) - lu(k,731) * lu(k,1294)
2695 141111616 : lu(k,1322) = lu(k,1322) - lu(k,732) * lu(k,1294)
2696 141111616 : lu(k,1323) = lu(k,1323) - lu(k,733) * lu(k,1294)
2697 141111616 : lu(k,1329) = lu(k,1329) - lu(k,734) * lu(k,1294)
2698 141111616 : lu(k,1486) = lu(k,1486) - lu(k,730) * lu(k,1461)
2699 141111616 : lu(k,1493) = lu(k,1493) - lu(k,731) * lu(k,1461)
2700 141111616 : lu(k,1499) = lu(k,1499) - lu(k,732) * lu(k,1461)
2701 141111616 : lu(k,1501) = lu(k,1501) - lu(k,733) * lu(k,1461)
2702 141111616 : lu(k,1507) = lu(k,1507) - lu(k,734) * lu(k,1461)
2703 141111616 : lu(k,1670) = lu(k,1670) - lu(k,730) * lu(k,1651)
2704 141111616 : lu(k,1676) = lu(k,1676) - lu(k,731) * lu(k,1651)
2705 141111616 : lu(k,1682) = lu(k,1682) - lu(k,732) * lu(k,1651)
2706 141111616 : lu(k,1684) = lu(k,1684) - lu(k,733) * lu(k,1651)
2707 141111616 : lu(k,1690) = lu(k,1690) - lu(k,734) * lu(k,1651)
2708 141111616 : lu(k,1786) = lu(k,1786) - lu(k,730) * lu(k,1766)
2709 141111616 : lu(k,1792) = lu(k,1792) - lu(k,731) * lu(k,1766)
2710 141111616 : lu(k,1798) = lu(k,1798) - lu(k,732) * lu(k,1766)
2711 141111616 : lu(k,1800) = lu(k,1800) - lu(k,733) * lu(k,1766)
2712 141111616 : lu(k,1806) = lu(k,1806) - lu(k,734) * lu(k,1766)
2713 141111616 : lu(k,2000) = lu(k,2000) - lu(k,730) * lu(k,1978)
2714 141111616 : lu(k,2007) = lu(k,2007) - lu(k,731) * lu(k,1978)
2715 141111616 : lu(k,2013) = lu(k,2013) - lu(k,732) * lu(k,1978)
2716 141111616 : lu(k,2015) = lu(k,2015) - lu(k,733) * lu(k,1978)
2717 141111616 : lu(k,2021) = lu(k,2021) - lu(k,734) * lu(k,1978)
2718 141111616 : lu(k,736) = 1._r8 / lu(k,736)
2719 141111616 : lu(k,737) = lu(k,737) * lu(k,736)
2720 141111616 : lu(k,738) = lu(k,738) * lu(k,736)
2721 141111616 : lu(k,739) = lu(k,739) * lu(k,736)
2722 141111616 : lu(k,742) = lu(k,742) - lu(k,737) * lu(k,740)
2723 141111616 : lu(k,745) = lu(k,745) - lu(k,738) * lu(k,740)
2724 141111616 : lu(k,746) = lu(k,746) - lu(k,739) * lu(k,740)
2725 141111616 : lu(k,764) = lu(k,764) - lu(k,737) * lu(k,758)
2726 141111616 : lu(k,770) = lu(k,770) - lu(k,738) * lu(k,758)
2727 141111616 : lu(k,772) = lu(k,772) - lu(k,739) * lu(k,758)
2728 141111616 : lu(k,791) = lu(k,791) - lu(k,737) * lu(k,785)
2729 141111616 : lu(k,797) = lu(k,797) - lu(k,738) * lu(k,785)
2730 141111616 : lu(k,799) = lu(k,799) - lu(k,739) * lu(k,785)
2731 141111616 : lu(k,865) = lu(k,865) - lu(k,737) * lu(k,863)
2732 141111616 : lu(k,866) = lu(k,866) - lu(k,738) * lu(k,863)
2733 141111616 : lu(k,868) = lu(k,868) - lu(k,739) * lu(k,863)
2734 141111616 : lu(k,874) = lu(k,874) - lu(k,737) * lu(k,871)
2735 141111616 : lu(k,879) = lu(k,879) - lu(k,738) * lu(k,871)
2736 141111616 : lu(k,881) = lu(k,881) - lu(k,739) * lu(k,871)
2737 141111616 : lu(k,1009) = lu(k,1009) - lu(k,737) * lu(k,1007)
2738 141111616 : lu(k,1016) = lu(k,1016) - lu(k,738) * lu(k,1007)
2739 141111616 : lu(k,1018) = lu(k,1018) - lu(k,739) * lu(k,1007)
2740 141111616 : lu(k,1106) = lu(k,1106) - lu(k,737) * lu(k,1103)
2741 141111616 : lu(k,1121) = lu(k,1121) - lu(k,738) * lu(k,1103)
2742 141111616 : lu(k,1123) = lu(k,1123) - lu(k,739) * lu(k,1103)
2743 141111616 : lu(k,1222) = lu(k,1222) - lu(k,737) * lu(k,1219)
2744 141111616 : lu(k,1237) = lu(k,1237) - lu(k,738) * lu(k,1219)
2745 141111616 : lu(k,1239) = lu(k,1239) - lu(k,739) * lu(k,1219)
2746 141111616 : lu(k,1302) = lu(k,1302) - lu(k,737) * lu(k,1295)
2747 141111616 : lu(k,1322) = lu(k,1322) - lu(k,738) * lu(k,1295)
2748 141111616 : lu(k,1325) = lu(k,1325) - lu(k,739) * lu(k,1295)
2749 141111616 : lu(k,1475) = lu(k,1475) - lu(k,737) * lu(k,1462)
2750 141111616 : lu(k,1499) = lu(k,1499) - lu(k,738) * lu(k,1462)
2751 141111616 : lu(k,1503) = lu(k,1503) - lu(k,739) * lu(k,1462)
2752 141111616 : lu(k,1660) = lu(k,1660) - lu(k,737) * lu(k,1652)
2753 141111616 : lu(k,1682) = lu(k,1682) - lu(k,738) * lu(k,1652)
2754 141111616 : lu(k,1686) = lu(k,1686) - lu(k,739) * lu(k,1652)
2755 141111616 : lu(k,1776) = lu(k,1776) - lu(k,737) * lu(k,1767)
2756 141111616 : lu(k,1798) = lu(k,1798) - lu(k,738) * lu(k,1767)
2757 141111616 : lu(k,1802) = lu(k,1802) - lu(k,739) * lu(k,1767)
2758 141111616 : lu(k,1837) = lu(k,1837) - lu(k,737) * lu(k,1827)
2759 141111616 : lu(k,1858) = lu(k,1858) - lu(k,738) * lu(k,1827)
2760 141111616 : lu(k,1862) = lu(k,1862) - lu(k,739) * lu(k,1827)
2761 141111616 : lu(k,1888) = lu(k,1888) - lu(k,737) * lu(k,1885)
2762 141111616 : lu(k,1899) = lu(k,1899) - lu(k,738) * lu(k,1885)
2763 141111616 : lu(k,1903) = lu(k,1903) - lu(k,739) * lu(k,1885)
2764 141111616 : lu(k,1948) = lu(k,1948) - lu(k,737) * lu(k,1944)
2765 141111616 : lu(k,1956) = lu(k,1956) - lu(k,738) * lu(k,1944)
2766 141111616 : lu(k,1960) = lu(k,1960) - lu(k,739) * lu(k,1944)
2767 141111616 : lu(k,1990) = lu(k,1990) - lu(k,737) * lu(k,1979)
2768 141111616 : lu(k,2013) = lu(k,2013) - lu(k,738) * lu(k,1979)
2769 141111616 : lu(k,2017) = lu(k,2017) - lu(k,739) * lu(k,1979)
2770 141111616 : lu(k,741) = 1._r8 / lu(k,741)
2771 141111616 : lu(k,742) = lu(k,742) * lu(k,741)
2772 141111616 : lu(k,743) = lu(k,743) * lu(k,741)
2773 141111616 : lu(k,744) = lu(k,744) * lu(k,741)
2774 141111616 : lu(k,745) = lu(k,745) * lu(k,741)
2775 141111616 : lu(k,746) = lu(k,746) * lu(k,741)
2776 141111616 : lu(k,747) = lu(k,747) * lu(k,741)
2777 141111616 : lu(k,748) = lu(k,748) * lu(k,741)
2778 141111616 : lu(k,874) = lu(k,874) - lu(k,742) * lu(k,872)
2779 141111616 : lu(k,875) = lu(k,875) - lu(k,743) * lu(k,872)
2780 141111616 : lu(k,878) = - lu(k,744) * lu(k,872)
2781 141111616 : lu(k,879) = lu(k,879) - lu(k,745) * lu(k,872)
2782 141111616 : lu(k,881) = lu(k,881) - lu(k,746) * lu(k,872)
2783 141111616 : lu(k,882) = - lu(k,747) * lu(k,872)
2784 141111616 : lu(k,883) = lu(k,883) - lu(k,748) * lu(k,872)
2785 141111616 : lu(k,1106) = lu(k,1106) - lu(k,742) * lu(k,1104)
2786 141111616 : lu(k,1112) = lu(k,1112) - lu(k,743) * lu(k,1104)
2787 141111616 : lu(k,1120) = lu(k,1120) - lu(k,744) * lu(k,1104)
2788 141111616 : lu(k,1121) = lu(k,1121) - lu(k,745) * lu(k,1104)
2789 141111616 : lu(k,1123) = lu(k,1123) - lu(k,746) * lu(k,1104)
2790 141111616 : lu(k,1124) = lu(k,1124) - lu(k,747) * lu(k,1104)
2791 141111616 : lu(k,1126) = lu(k,1126) - lu(k,748) * lu(k,1104)
2792 141111616 : lu(k,1475) = lu(k,1475) - lu(k,742) * lu(k,1463)
2793 141111616 : lu(k,1486) = lu(k,1486) - lu(k,743) * lu(k,1463)
2794 141111616 : lu(k,1497) = lu(k,1497) - lu(k,744) * lu(k,1463)
2795 141111616 : lu(k,1499) = lu(k,1499) - lu(k,745) * lu(k,1463)
2796 141111616 : lu(k,1503) = lu(k,1503) - lu(k,746) * lu(k,1463)
2797 141111616 : lu(k,1505) = lu(k,1505) - lu(k,747) * lu(k,1463)
2798 141111616 : lu(k,1507) = lu(k,1507) - lu(k,748) * lu(k,1463)
2799 141111616 : lu(k,1660) = lu(k,1660) - lu(k,742) * lu(k,1653)
2800 141111616 : lu(k,1670) = lu(k,1670) - lu(k,743) * lu(k,1653)
2801 141111616 : lu(k,1680) = lu(k,1680) - lu(k,744) * lu(k,1653)
2802 141111616 : lu(k,1682) = lu(k,1682) - lu(k,745) * lu(k,1653)
2803 141111616 : lu(k,1686) = lu(k,1686) - lu(k,746) * lu(k,1653)
2804 141111616 : lu(k,1688) = lu(k,1688) - lu(k,747) * lu(k,1653)
2805 141111616 : lu(k,1690) = lu(k,1690) - lu(k,748) * lu(k,1653)
2806 141111616 : lu(k,1776) = lu(k,1776) - lu(k,742) * lu(k,1768)
2807 141111616 : lu(k,1786) = lu(k,1786) - lu(k,743) * lu(k,1768)
2808 141111616 : lu(k,1796) = lu(k,1796) - lu(k,744) * lu(k,1768)
2809 141111616 : lu(k,1798) = lu(k,1798) - lu(k,745) * lu(k,1768)
2810 141111616 : lu(k,1802) = lu(k,1802) - lu(k,746) * lu(k,1768)
2811 141111616 : lu(k,1804) = lu(k,1804) - lu(k,747) * lu(k,1768)
2812 141111616 : lu(k,1806) = lu(k,1806) - lu(k,748) * lu(k,1768)
2813 141111616 : lu(k,1888) = lu(k,1888) - lu(k,742) * lu(k,1886)
2814 141111616 : lu(k,1890) = lu(k,1890) - lu(k,743) * lu(k,1886)
2815 141111616 : lu(k,1897) = lu(k,1897) - lu(k,744) * lu(k,1886)
2816 141111616 : lu(k,1899) = lu(k,1899) - lu(k,745) * lu(k,1886)
2817 141111616 : lu(k,1903) = lu(k,1903) - lu(k,746) * lu(k,1886)
2818 141111616 : lu(k,1905) = lu(k,1905) - lu(k,747) * lu(k,1886)
2819 141111616 : lu(k,1907) = lu(k,1907) - lu(k,748) * lu(k,1886)
2820 141111616 : lu(k,759) = 1._r8 / lu(k,759)
2821 141111616 : lu(k,760) = lu(k,760) * lu(k,759)
2822 141111616 : lu(k,761) = lu(k,761) * lu(k,759)
2823 141111616 : lu(k,762) = lu(k,762) * lu(k,759)
2824 141111616 : lu(k,763) = lu(k,763) * lu(k,759)
2825 141111616 : lu(k,764) = lu(k,764) * lu(k,759)
2826 141111616 : lu(k,765) = lu(k,765) * lu(k,759)
2827 141111616 : lu(k,766) = lu(k,766) * lu(k,759)
2828 141111616 : lu(k,767) = lu(k,767) * lu(k,759)
2829 141111616 : lu(k,768) = lu(k,768) * lu(k,759)
2830 141111616 : lu(k,769) = lu(k,769) * lu(k,759)
2831 141111616 : lu(k,770) = lu(k,770) * lu(k,759)
2832 141111616 : lu(k,771) = lu(k,771) * lu(k,759)
2833 141111616 : lu(k,772) = lu(k,772) * lu(k,759)
2834 141111616 : lu(k,773) = lu(k,773) * lu(k,759)
2835 141111616 : lu(k,774) = lu(k,774) * lu(k,759)
2836 141111616 : lu(k,775) = lu(k,775) * lu(k,759)
2837 141111616 : lu(k,1466) = lu(k,1466) - lu(k,760) * lu(k,1464)
2838 141111616 : lu(k,1467) = lu(k,1467) - lu(k,761) * lu(k,1464)
2839 141111616 : lu(k,1470) = lu(k,1470) - lu(k,762) * lu(k,1464)
2840 141111616 : lu(k,1473) = lu(k,1473) - lu(k,763) * lu(k,1464)
2841 141111616 : lu(k,1475) = lu(k,1475) - lu(k,764) * lu(k,1464)
2842 141111616 : lu(k,1478) = lu(k,1478) - lu(k,765) * lu(k,1464)
2843 141111616 : lu(k,1480) = lu(k,1480) - lu(k,766) * lu(k,1464)
2844 141111616 : lu(k,1481) = lu(k,1481) - lu(k,767) * lu(k,1464)
2845 141111616 : lu(k,1486) = lu(k,1486) - lu(k,768) * lu(k,1464)
2846 141111616 : lu(k,1493) = lu(k,1493) - lu(k,769) * lu(k,1464)
2847 141111616 : lu(k,1499) = lu(k,1499) - lu(k,770) * lu(k,1464)
2848 141111616 : lu(k,1501) = lu(k,1501) - lu(k,771) * lu(k,1464)
2849 141111616 : lu(k,1503) = lu(k,1503) - lu(k,772) * lu(k,1464)
2850 141111616 : lu(k,1506) = lu(k,1506) - lu(k,773) * lu(k,1464)
2851 141111616 : lu(k,1510) = lu(k,1510) - lu(k,774) * lu(k,1464)
2852 141111616 : lu(k,1511) = lu(k,1511) - lu(k,775) * lu(k,1464)
2853 141111616 : lu(k,1830) = lu(k,1830) - lu(k,760) * lu(k,1828)
2854 141111616 : lu(k,1831) = lu(k,1831) - lu(k,761) * lu(k,1828)
2855 141111616 : lu(k,1833) = lu(k,1833) - lu(k,762) * lu(k,1828)
2856 141111616 : lu(k,1835) = lu(k,1835) - lu(k,763) * lu(k,1828)
2857 141111616 : lu(k,1837) = lu(k,1837) - lu(k,764) * lu(k,1828)
2858 141111616 : lu(k,1839) = - lu(k,765) * lu(k,1828)
2859 141111616 : lu(k,1841) = - lu(k,766) * lu(k,1828)
2860 141111616 : lu(k,1842) = lu(k,1842) - lu(k,767) * lu(k,1828)
2861 141111616 : lu(k,1845) = lu(k,1845) - lu(k,768) * lu(k,1828)
2862 141111616 : lu(k,1852) = lu(k,1852) - lu(k,769) * lu(k,1828)
2863 141111616 : lu(k,1858) = lu(k,1858) - lu(k,770) * lu(k,1828)
2864 141111616 : lu(k,1860) = lu(k,1860) - lu(k,771) * lu(k,1828)
2865 141111616 : lu(k,1862) = lu(k,1862) - lu(k,772) * lu(k,1828)
2866 141111616 : lu(k,1865) = lu(k,1865) - lu(k,773) * lu(k,1828)
2867 141111616 : lu(k,1869) = lu(k,1869) - lu(k,774) * lu(k,1828)
2868 141111616 : lu(k,1870) = lu(k,1870) - lu(k,775) * lu(k,1828)
2869 141111616 : lu(k,1982) = - lu(k,760) * lu(k,1980)
2870 141111616 : lu(k,1983) = lu(k,1983) - lu(k,761) * lu(k,1980)
2871 141111616 : lu(k,1985) = lu(k,1985) - lu(k,762) * lu(k,1980)
2872 141111616 : lu(k,1988) = - lu(k,763) * lu(k,1980)
2873 141111616 : lu(k,1990) = lu(k,1990) - lu(k,764) * lu(k,1980)
2874 141111616 : lu(k,1993) = - lu(k,765) * lu(k,1980)
2875 141111616 : lu(k,1995) = lu(k,1995) - lu(k,766) * lu(k,1980)
2876 141111616 : lu(k,1996) = - lu(k,767) * lu(k,1980)
2877 141111616 : lu(k,2000) = lu(k,2000) - lu(k,768) * lu(k,1980)
2878 141111616 : lu(k,2007) = lu(k,2007) - lu(k,769) * lu(k,1980)
2879 141111616 : lu(k,2013) = lu(k,2013) - lu(k,770) * lu(k,1980)
2880 141111616 : lu(k,2015) = lu(k,2015) - lu(k,771) * lu(k,1980)
2881 141111616 : lu(k,2017) = lu(k,2017) - lu(k,772) * lu(k,1980)
2882 141111616 : lu(k,2020) = lu(k,2020) - lu(k,773) * lu(k,1980)
2883 141111616 : lu(k,2024) = lu(k,2024) - lu(k,774) * lu(k,1980)
2884 145521354 : lu(k,2025) = lu(k,2025) - lu(k,775) * lu(k,1980)
2885 : end do
2886 4409738 : end subroutine lu_fac16
2887 4409738 : subroutine lu_fac17( avec_len, lu )
2888 : use chem_mods, only : nzcnt
2889 : use shr_kind_mod, only : r8 => shr_kind_r8
2890 : implicit none
2891 : !-----------------------------------------------------------------------
2892 : ! ... dummy args
2893 : !-----------------------------------------------------------------------
2894 : integer, intent(in) :: avec_len
2895 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2896 : !-----------------------------------------------------------------------
2897 : ! ... local variables
2898 : !-----------------------------------------------------------------------
2899 : integer :: k
2900 145521354 : do k = 1,avec_len
2901 141111616 : lu(k,786) = 1._r8 / lu(k,786)
2902 141111616 : lu(k,787) = lu(k,787) * lu(k,786)
2903 141111616 : lu(k,788) = lu(k,788) * lu(k,786)
2904 141111616 : lu(k,789) = lu(k,789) * lu(k,786)
2905 141111616 : lu(k,790) = lu(k,790) * lu(k,786)
2906 141111616 : lu(k,791) = lu(k,791) * lu(k,786)
2907 141111616 : lu(k,792) = lu(k,792) * lu(k,786)
2908 141111616 : lu(k,793) = lu(k,793) * lu(k,786)
2909 141111616 : lu(k,794) = lu(k,794) * lu(k,786)
2910 141111616 : lu(k,795) = lu(k,795) * lu(k,786)
2911 141111616 : lu(k,796) = lu(k,796) * lu(k,786)
2912 141111616 : lu(k,797) = lu(k,797) * lu(k,786)
2913 141111616 : lu(k,798) = lu(k,798) * lu(k,786)
2914 141111616 : lu(k,799) = lu(k,799) * lu(k,786)
2915 141111616 : lu(k,800) = lu(k,800) * lu(k,786)
2916 141111616 : lu(k,801) = lu(k,801) * lu(k,786)
2917 141111616 : lu(k,802) = lu(k,802) * lu(k,786)
2918 141111616 : lu(k,1466) = lu(k,1466) - lu(k,787) * lu(k,1465)
2919 141111616 : lu(k,1467) = lu(k,1467) - lu(k,788) * lu(k,1465)
2920 141111616 : lu(k,1470) = lu(k,1470) - lu(k,789) * lu(k,1465)
2921 141111616 : lu(k,1473) = lu(k,1473) - lu(k,790) * lu(k,1465)
2922 141111616 : lu(k,1475) = lu(k,1475) - lu(k,791) * lu(k,1465)
2923 141111616 : lu(k,1478) = lu(k,1478) - lu(k,792) * lu(k,1465)
2924 141111616 : lu(k,1480) = lu(k,1480) - lu(k,793) * lu(k,1465)
2925 141111616 : lu(k,1481) = lu(k,1481) - lu(k,794) * lu(k,1465)
2926 141111616 : lu(k,1486) = lu(k,1486) - lu(k,795) * lu(k,1465)
2927 141111616 : lu(k,1493) = lu(k,1493) - lu(k,796) * lu(k,1465)
2928 141111616 : lu(k,1499) = lu(k,1499) - lu(k,797) * lu(k,1465)
2929 141111616 : lu(k,1501) = lu(k,1501) - lu(k,798) * lu(k,1465)
2930 141111616 : lu(k,1503) = lu(k,1503) - lu(k,799) * lu(k,1465)
2931 141111616 : lu(k,1506) = lu(k,1506) - lu(k,800) * lu(k,1465)
2932 141111616 : lu(k,1510) = lu(k,1510) - lu(k,801) * lu(k,1465)
2933 141111616 : lu(k,1511) = lu(k,1511) - lu(k,802) * lu(k,1465)
2934 141111616 : lu(k,1830) = lu(k,1830) - lu(k,787) * lu(k,1829)
2935 141111616 : lu(k,1831) = lu(k,1831) - lu(k,788) * lu(k,1829)
2936 141111616 : lu(k,1833) = lu(k,1833) - lu(k,789) * lu(k,1829)
2937 141111616 : lu(k,1835) = lu(k,1835) - lu(k,790) * lu(k,1829)
2938 141111616 : lu(k,1837) = lu(k,1837) - lu(k,791) * lu(k,1829)
2939 141111616 : lu(k,1839) = lu(k,1839) - lu(k,792) * lu(k,1829)
2940 141111616 : lu(k,1841) = lu(k,1841) - lu(k,793) * lu(k,1829)
2941 141111616 : lu(k,1842) = lu(k,1842) - lu(k,794) * lu(k,1829)
2942 141111616 : lu(k,1845) = lu(k,1845) - lu(k,795) * lu(k,1829)
2943 141111616 : lu(k,1852) = lu(k,1852) - lu(k,796) * lu(k,1829)
2944 141111616 : lu(k,1858) = lu(k,1858) - lu(k,797) * lu(k,1829)
2945 141111616 : lu(k,1860) = lu(k,1860) - lu(k,798) * lu(k,1829)
2946 141111616 : lu(k,1862) = lu(k,1862) - lu(k,799) * lu(k,1829)
2947 141111616 : lu(k,1865) = lu(k,1865) - lu(k,800) * lu(k,1829)
2948 141111616 : lu(k,1869) = lu(k,1869) - lu(k,801) * lu(k,1829)
2949 141111616 : lu(k,1870) = lu(k,1870) - lu(k,802) * lu(k,1829)
2950 141111616 : lu(k,1982) = lu(k,1982) - lu(k,787) * lu(k,1981)
2951 141111616 : lu(k,1983) = lu(k,1983) - lu(k,788) * lu(k,1981)
2952 141111616 : lu(k,1985) = lu(k,1985) - lu(k,789) * lu(k,1981)
2953 141111616 : lu(k,1988) = lu(k,1988) - lu(k,790) * lu(k,1981)
2954 141111616 : lu(k,1990) = lu(k,1990) - lu(k,791) * lu(k,1981)
2955 141111616 : lu(k,1993) = lu(k,1993) - lu(k,792) * lu(k,1981)
2956 141111616 : lu(k,1995) = lu(k,1995) - lu(k,793) * lu(k,1981)
2957 141111616 : lu(k,1996) = lu(k,1996) - lu(k,794) * lu(k,1981)
2958 141111616 : lu(k,2000) = lu(k,2000) - lu(k,795) * lu(k,1981)
2959 141111616 : lu(k,2007) = lu(k,2007) - lu(k,796) * lu(k,1981)
2960 141111616 : lu(k,2013) = lu(k,2013) - lu(k,797) * lu(k,1981)
2961 141111616 : lu(k,2015) = lu(k,2015) - lu(k,798) * lu(k,1981)
2962 141111616 : lu(k,2017) = lu(k,2017) - lu(k,799) * lu(k,1981)
2963 141111616 : lu(k,2020) = lu(k,2020) - lu(k,800) * lu(k,1981)
2964 141111616 : lu(k,2024) = lu(k,2024) - lu(k,801) * lu(k,1981)
2965 141111616 : lu(k,2025) = lu(k,2025) - lu(k,802) * lu(k,1981)
2966 141111616 : lu(k,808) = 1._r8 / lu(k,808)
2967 141111616 : lu(k,809) = lu(k,809) * lu(k,808)
2968 141111616 : lu(k,810) = lu(k,810) * lu(k,808)
2969 141111616 : lu(k,811) = lu(k,811) * lu(k,808)
2970 141111616 : lu(k,812) = lu(k,812) * lu(k,808)
2971 141111616 : lu(k,813) = lu(k,813) * lu(k,808)
2972 141111616 : lu(k,814) = lu(k,814) * lu(k,808)
2973 141111616 : lu(k,815) = lu(k,815) * lu(k,808)
2974 141111616 : lu(k,816) = lu(k,816) * lu(k,808)
2975 141111616 : lu(k,817) = lu(k,817) * lu(k,808)
2976 141111616 : lu(k,1467) = lu(k,1467) - lu(k,809) * lu(k,1466)
2977 141111616 : lu(k,1474) = lu(k,1474) - lu(k,810) * lu(k,1466)
2978 141111616 : lu(k,1493) = lu(k,1493) - lu(k,811) * lu(k,1466)
2979 141111616 : lu(k,1497) = lu(k,1497) - lu(k,812) * lu(k,1466)
2980 141111616 : lu(k,1499) = lu(k,1499) - lu(k,813) * lu(k,1466)
2981 141111616 : lu(k,1501) = lu(k,1501) - lu(k,814) * lu(k,1466)
2982 141111616 : lu(k,1503) = lu(k,1503) - lu(k,815) * lu(k,1466)
2983 141111616 : lu(k,1505) = lu(k,1505) - lu(k,816) * lu(k,1466)
2984 141111616 : lu(k,1507) = lu(k,1507) - lu(k,817) * lu(k,1466)
2985 141111616 : lu(k,1655) = lu(k,1655) - lu(k,809) * lu(k,1654)
2986 141111616 : lu(k,1659) = lu(k,1659) - lu(k,810) * lu(k,1654)
2987 141111616 : lu(k,1676) = lu(k,1676) - lu(k,811) * lu(k,1654)
2988 141111616 : lu(k,1680) = lu(k,1680) - lu(k,812) * lu(k,1654)
2989 141111616 : lu(k,1682) = lu(k,1682) - lu(k,813) * lu(k,1654)
2990 141111616 : lu(k,1684) = lu(k,1684) - lu(k,814) * lu(k,1654)
2991 141111616 : lu(k,1686) = lu(k,1686) - lu(k,815) * lu(k,1654)
2992 141111616 : lu(k,1688) = lu(k,1688) - lu(k,816) * lu(k,1654)
2993 141111616 : lu(k,1690) = lu(k,1690) - lu(k,817) * lu(k,1654)
2994 141111616 : lu(k,1770) = lu(k,1770) - lu(k,809) * lu(k,1769)
2995 141111616 : lu(k,1775) = lu(k,1775) - lu(k,810) * lu(k,1769)
2996 141111616 : lu(k,1792) = lu(k,1792) - lu(k,811) * lu(k,1769)
2997 141111616 : lu(k,1796) = lu(k,1796) - lu(k,812) * lu(k,1769)
2998 141111616 : lu(k,1798) = lu(k,1798) - lu(k,813) * lu(k,1769)
2999 141111616 : lu(k,1800) = lu(k,1800) - lu(k,814) * lu(k,1769)
3000 141111616 : lu(k,1802) = lu(k,1802) - lu(k,815) * lu(k,1769)
3001 141111616 : lu(k,1804) = lu(k,1804) - lu(k,816) * lu(k,1769)
3002 141111616 : lu(k,1806) = lu(k,1806) - lu(k,817) * lu(k,1769)
3003 141111616 : lu(k,1831) = lu(k,1831) - lu(k,809) * lu(k,1830)
3004 141111616 : lu(k,1836) = lu(k,1836) - lu(k,810) * lu(k,1830)
3005 141111616 : lu(k,1852) = lu(k,1852) - lu(k,811) * lu(k,1830)
3006 141111616 : lu(k,1856) = lu(k,1856) - lu(k,812) * lu(k,1830)
3007 141111616 : lu(k,1858) = lu(k,1858) - lu(k,813) * lu(k,1830)
3008 141111616 : lu(k,1860) = lu(k,1860) - lu(k,814) * lu(k,1830)
3009 141111616 : lu(k,1862) = lu(k,1862) - lu(k,815) * lu(k,1830)
3010 141111616 : lu(k,1864) = lu(k,1864) - lu(k,816) * lu(k,1830)
3011 141111616 : lu(k,1866) = lu(k,1866) - lu(k,817) * lu(k,1830)
3012 141111616 : lu(k,1983) = lu(k,1983) - lu(k,809) * lu(k,1982)
3013 141111616 : lu(k,1989) = lu(k,1989) - lu(k,810) * lu(k,1982)
3014 141111616 : lu(k,2007) = lu(k,2007) - lu(k,811) * lu(k,1982)
3015 141111616 : lu(k,2011) = lu(k,2011) - lu(k,812) * lu(k,1982)
3016 141111616 : lu(k,2013) = lu(k,2013) - lu(k,813) * lu(k,1982)
3017 141111616 : lu(k,2015) = lu(k,2015) - lu(k,814) * lu(k,1982)
3018 141111616 : lu(k,2017) = lu(k,2017) - lu(k,815) * lu(k,1982)
3019 141111616 : lu(k,2019) = lu(k,2019) - lu(k,816) * lu(k,1982)
3020 141111616 : lu(k,2021) = lu(k,2021) - lu(k,817) * lu(k,1982)
3021 141111616 : lu(k,818) = 1._r8 / lu(k,818)
3022 141111616 : lu(k,819) = lu(k,819) * lu(k,818)
3023 141111616 : lu(k,820) = lu(k,820) * lu(k,818)
3024 141111616 : lu(k,821) = lu(k,821) * lu(k,818)
3025 141111616 : lu(k,822) = lu(k,822) * lu(k,818)
3026 141111616 : lu(k,823) = lu(k,823) * lu(k,818)
3027 141111616 : lu(k,887) = lu(k,887) - lu(k,819) * lu(k,884)
3028 141111616 : lu(k,888) = lu(k,888) - lu(k,820) * lu(k,884)
3029 141111616 : lu(k,889) = - lu(k,821) * lu(k,884)
3030 141111616 : lu(k,890) = lu(k,890) - lu(k,822) * lu(k,884)
3031 141111616 : lu(k,893) = - lu(k,823) * lu(k,884)
3032 141111616 : lu(k,914) = - lu(k,819) * lu(k,908)
3033 141111616 : lu(k,915) = lu(k,915) - lu(k,820) * lu(k,908)
3034 141111616 : lu(k,918) = - lu(k,821) * lu(k,908)
3035 141111616 : lu(k,919) = lu(k,919) - lu(k,822) * lu(k,908)
3036 141111616 : lu(k,924) = - lu(k,823) * lu(k,908)
3037 141111616 : lu(k,941) = - lu(k,819) * lu(k,934)
3038 141111616 : lu(k,942) = - lu(k,820) * lu(k,934)
3039 141111616 : lu(k,945) = lu(k,945) - lu(k,821) * lu(k,934)
3040 141111616 : lu(k,946) = lu(k,946) - lu(k,822) * lu(k,934)
3041 141111616 : lu(k,952) = - lu(k,823) * lu(k,934)
3042 141111616 : lu(k,961) = - lu(k,819) * lu(k,956)
3043 141111616 : lu(k,962) = - lu(k,820) * lu(k,956)
3044 141111616 : lu(k,965) = lu(k,965) - lu(k,821) * lu(k,956)
3045 141111616 : lu(k,966) = lu(k,966) - lu(k,822) * lu(k,956)
3046 141111616 : lu(k,971) = - lu(k,823) * lu(k,956)
3047 141111616 : lu(k,1307) = lu(k,1307) - lu(k,819) * lu(k,1296)
3048 141111616 : lu(k,1317) = lu(k,1317) - lu(k,820) * lu(k,1296)
3049 141111616 : lu(k,1320) = lu(k,1320) - lu(k,821) * lu(k,1296)
3050 141111616 : lu(k,1322) = lu(k,1322) - lu(k,822) * lu(k,1296)
3051 141111616 : lu(k,1333) = lu(k,1333) - lu(k,823) * lu(k,1296)
3052 141111616 : lu(k,1481) = lu(k,1481) - lu(k,819) * lu(k,1467)
3053 141111616 : lu(k,1493) = lu(k,1493) - lu(k,820) * lu(k,1467)
3054 141111616 : lu(k,1497) = lu(k,1497) - lu(k,821) * lu(k,1467)
3055 141111616 : lu(k,1499) = lu(k,1499) - lu(k,822) * lu(k,1467)
3056 141111616 : lu(k,1511) = lu(k,1511) - lu(k,823) * lu(k,1467)
3057 141111616 : lu(k,1665) = lu(k,1665) - lu(k,819) * lu(k,1655)
3058 141111616 : lu(k,1676) = lu(k,1676) - lu(k,820) * lu(k,1655)
3059 141111616 : lu(k,1680) = lu(k,1680) - lu(k,821) * lu(k,1655)
3060 141111616 : lu(k,1682) = lu(k,1682) - lu(k,822) * lu(k,1655)
3061 141111616 : lu(k,1694) = lu(k,1694) - lu(k,823) * lu(k,1655)
3062 141111616 : lu(k,1782) = lu(k,1782) - lu(k,819) * lu(k,1770)
3063 141111616 : lu(k,1792) = lu(k,1792) - lu(k,820) * lu(k,1770)
3064 141111616 : lu(k,1796) = lu(k,1796) - lu(k,821) * lu(k,1770)
3065 141111616 : lu(k,1798) = lu(k,1798) - lu(k,822) * lu(k,1770)
3066 141111616 : lu(k,1810) = lu(k,1810) - lu(k,823) * lu(k,1770)
3067 141111616 : lu(k,1842) = lu(k,1842) - lu(k,819) * lu(k,1831)
3068 141111616 : lu(k,1852) = lu(k,1852) - lu(k,820) * lu(k,1831)
3069 141111616 : lu(k,1856) = lu(k,1856) - lu(k,821) * lu(k,1831)
3070 141111616 : lu(k,1858) = lu(k,1858) - lu(k,822) * lu(k,1831)
3071 141111616 : lu(k,1870) = lu(k,1870) - lu(k,823) * lu(k,1831)
3072 141111616 : lu(k,1996) = lu(k,1996) - lu(k,819) * lu(k,1983)
3073 141111616 : lu(k,2007) = lu(k,2007) - lu(k,820) * lu(k,1983)
3074 141111616 : lu(k,2011) = lu(k,2011) - lu(k,821) * lu(k,1983)
3075 141111616 : lu(k,2013) = lu(k,2013) - lu(k,822) * lu(k,1983)
3076 141111616 : lu(k,2025) = lu(k,2025) - lu(k,823) * lu(k,1983)
3077 141111616 : lu(k,826) = 1._r8 / lu(k,826)
3078 141111616 : lu(k,827) = lu(k,827) * lu(k,826)
3079 141111616 : lu(k,828) = lu(k,828) * lu(k,826)
3080 141111616 : lu(k,829) = lu(k,829) * lu(k,826)
3081 141111616 : lu(k,830) = lu(k,830) * lu(k,826)
3082 141111616 : lu(k,831) = lu(k,831) * lu(k,826)
3083 141111616 : lu(k,832) = lu(k,832) * lu(k,826)
3084 141111616 : lu(k,833) = lu(k,833) * lu(k,826)
3085 141111616 : lu(k,834) = lu(k,834) * lu(k,826)
3086 141111616 : lu(k,835) = lu(k,835) * lu(k,826)
3087 141111616 : lu(k,1495) = lu(k,1495) - lu(k,827) * lu(k,1468)
3088 141111616 : lu(k,1499) = lu(k,1499) - lu(k,828) * lu(k,1468)
3089 141111616 : lu(k,1502) = lu(k,1502) - lu(k,829) * lu(k,1468)
3090 141111616 : lu(k,1504) = lu(k,1504) - lu(k,830) * lu(k,1468)
3091 141111616 : lu(k,1507) = lu(k,1507) - lu(k,831) * lu(k,1468)
3092 141111616 : lu(k,1508) = lu(k,1508) - lu(k,832) * lu(k,1468)
3093 141111616 : lu(k,1509) = lu(k,1509) - lu(k,833) * lu(k,1468)
3094 141111616 : lu(k,1510) = lu(k,1510) - lu(k,834) * lu(k,1468)
3095 141111616 : lu(k,1511) = lu(k,1511) - lu(k,835) * lu(k,1468)
3096 141111616 : lu(k,1572) = lu(k,1572) - lu(k,827) * lu(k,1567)
3097 141111616 : lu(k,1576) = lu(k,1576) - lu(k,828) * lu(k,1567)
3098 141111616 : lu(k,1579) = lu(k,1579) - lu(k,829) * lu(k,1567)
3099 141111616 : lu(k,1581) = lu(k,1581) - lu(k,830) * lu(k,1567)
3100 141111616 : lu(k,1584) = lu(k,1584) - lu(k,831) * lu(k,1567)
3101 141111616 : lu(k,1585) = lu(k,1585) - lu(k,832) * lu(k,1567)
3102 141111616 : lu(k,1586) = lu(k,1586) - lu(k,833) * lu(k,1567)
3103 141111616 : lu(k,1587) = lu(k,1587) - lu(k,834) * lu(k,1567)
3104 141111616 : lu(k,1588) = lu(k,1588) - lu(k,835) * lu(k,1567)
3105 141111616 : lu(k,1704) = - lu(k,827) * lu(k,1701)
3106 141111616 : lu(k,1708) = lu(k,1708) - lu(k,828) * lu(k,1701)
3107 141111616 : lu(k,1711) = lu(k,1711) - lu(k,829) * lu(k,1701)
3108 141111616 : lu(k,1713) = lu(k,1713) - lu(k,830) * lu(k,1701)
3109 141111616 : lu(k,1716) = lu(k,1716) - lu(k,831) * lu(k,1701)
3110 141111616 : lu(k,1717) = lu(k,1717) - lu(k,832) * lu(k,1701)
3111 141111616 : lu(k,1718) = lu(k,1718) - lu(k,833) * lu(k,1701)
3112 141111616 : lu(k,1719) = - lu(k,834) * lu(k,1701)
3113 141111616 : lu(k,1720) = lu(k,1720) - lu(k,835) * lu(k,1701)
3114 141111616 : lu(k,1895) = lu(k,1895) - lu(k,827) * lu(k,1887)
3115 141111616 : lu(k,1899) = lu(k,1899) - lu(k,828) * lu(k,1887)
3116 141111616 : lu(k,1902) = lu(k,1902) - lu(k,829) * lu(k,1887)
3117 141111616 : lu(k,1904) = lu(k,1904) - lu(k,830) * lu(k,1887)
3118 141111616 : lu(k,1907) = lu(k,1907) - lu(k,831) * lu(k,1887)
3119 141111616 : lu(k,1908) = lu(k,1908) - lu(k,832) * lu(k,1887)
3120 141111616 : lu(k,1909) = lu(k,1909) - lu(k,833) * lu(k,1887)
3121 141111616 : lu(k,1910) = lu(k,1910) - lu(k,834) * lu(k,1887)
3122 141111616 : lu(k,1911) = lu(k,1911) - lu(k,835) * lu(k,1887)
3123 141111616 : lu(k,1918) = lu(k,1918) - lu(k,827) * lu(k,1916)
3124 141111616 : lu(k,1922) = lu(k,1922) - lu(k,828) * lu(k,1916)
3125 141111616 : lu(k,1925) = lu(k,1925) - lu(k,829) * lu(k,1916)
3126 141111616 : lu(k,1927) = lu(k,1927) - lu(k,830) * lu(k,1916)
3127 141111616 : lu(k,1930) = - lu(k,831) * lu(k,1916)
3128 141111616 : lu(k,1931) = lu(k,1931) - lu(k,832) * lu(k,1916)
3129 141111616 : lu(k,1932) = lu(k,1932) - lu(k,833) * lu(k,1916)
3130 141111616 : lu(k,1933) = - lu(k,834) * lu(k,1916)
3131 141111616 : lu(k,1934) = lu(k,1934) - lu(k,835) * lu(k,1916)
3132 141111616 : lu(k,1952) = - lu(k,827) * lu(k,1945)
3133 141111616 : lu(k,1956) = lu(k,1956) - lu(k,828) * lu(k,1945)
3134 141111616 : lu(k,1959) = lu(k,1959) - lu(k,829) * lu(k,1945)
3135 141111616 : lu(k,1961) = lu(k,1961) - lu(k,830) * lu(k,1945)
3136 141111616 : lu(k,1964) = lu(k,1964) - lu(k,831) * lu(k,1945)
3137 141111616 : lu(k,1965) = lu(k,1965) - lu(k,832) * lu(k,1945)
3138 141111616 : lu(k,1966) = lu(k,1966) - lu(k,833) * lu(k,1945)
3139 141111616 : lu(k,1967) = lu(k,1967) - lu(k,834) * lu(k,1945)
3140 145521354 : lu(k,1968) = lu(k,1968) - lu(k,835) * lu(k,1945)
3141 : end do
3142 4409738 : end subroutine lu_fac17
3143 4409738 : subroutine lu_fac18( avec_len, lu )
3144 : use chem_mods, only : nzcnt
3145 : use shr_kind_mod, only : r8 => shr_kind_r8
3146 : implicit none
3147 : !-----------------------------------------------------------------------
3148 : ! ... dummy args
3149 : !-----------------------------------------------------------------------
3150 : integer, intent(in) :: avec_len
3151 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3152 : !-----------------------------------------------------------------------
3153 : ! ... local variables
3154 : !-----------------------------------------------------------------------
3155 : integer :: k
3156 145521354 : do k = 1,avec_len
3157 141111616 : lu(k,840) = 1._r8 / lu(k,840)
3158 141111616 : lu(k,841) = lu(k,841) * lu(k,840)
3159 141111616 : lu(k,842) = lu(k,842) * lu(k,840)
3160 141111616 : lu(k,843) = lu(k,843) * lu(k,840)
3161 141111616 : lu(k,844) = lu(k,844) * lu(k,840)
3162 141111616 : lu(k,845) = lu(k,845) * lu(k,840)
3163 141111616 : lu(k,846) = lu(k,846) * lu(k,840)
3164 141111616 : lu(k,847) = lu(k,847) * lu(k,840)
3165 141111616 : lu(k,848) = lu(k,848) * lu(k,840)
3166 141111616 : lu(k,849) = lu(k,849) * lu(k,840)
3167 141111616 : lu(k,850) = lu(k,850) * lu(k,840)
3168 141111616 : lu(k,851) = lu(k,851) * lu(k,840)
3169 141111616 : lu(k,852) = lu(k,852) * lu(k,840)
3170 141111616 : lu(k,853) = lu(k,853) * lu(k,840)
3171 141111616 : lu(k,854) = lu(k,854) * lu(k,840)
3172 141111616 : lu(k,1131) = lu(k,1131) - lu(k,841) * lu(k,1130)
3173 141111616 : lu(k,1132) = lu(k,1132) - lu(k,842) * lu(k,1130)
3174 141111616 : lu(k,1133) = - lu(k,843) * lu(k,1130)
3175 141111616 : lu(k,1134) = lu(k,1134) - lu(k,844) * lu(k,1130)
3176 141111616 : lu(k,1137) = lu(k,1137) - lu(k,845) * lu(k,1130)
3177 141111616 : lu(k,1140) = lu(k,1140) - lu(k,846) * lu(k,1130)
3178 141111616 : lu(k,1141) = lu(k,1141) - lu(k,847) * lu(k,1130)
3179 141111616 : lu(k,1142) = lu(k,1142) - lu(k,848) * lu(k,1130)
3180 141111616 : lu(k,1143) = lu(k,1143) - lu(k,849) * lu(k,1130)
3181 141111616 : lu(k,1144) = - lu(k,850) * lu(k,1130)
3182 141111616 : lu(k,1145) = lu(k,1145) - lu(k,851) * lu(k,1130)
3183 141111616 : lu(k,1146) = - lu(k,852) * lu(k,1130)
3184 141111616 : lu(k,1147) = - lu(k,853) * lu(k,1130)
3185 141111616 : lu(k,1148) = lu(k,1148) - lu(k,854) * lu(k,1130)
3186 141111616 : lu(k,1474) = lu(k,1474) - lu(k,841) * lu(k,1469)
3187 141111616 : lu(k,1475) = lu(k,1475) - lu(k,842) * lu(k,1469)
3188 141111616 : lu(k,1477) = lu(k,1477) - lu(k,843) * lu(k,1469)
3189 141111616 : lu(k,1486) = lu(k,1486) - lu(k,844) * lu(k,1469)
3190 141111616 : lu(k,1493) = lu(k,1493) - lu(k,845) * lu(k,1469)
3191 141111616 : lu(k,1497) = lu(k,1497) - lu(k,846) * lu(k,1469)
3192 141111616 : lu(k,1499) = lu(k,1499) - lu(k,847) * lu(k,1469)
3193 141111616 : lu(k,1501) = lu(k,1501) - lu(k,848) * lu(k,1469)
3194 141111616 : lu(k,1503) = lu(k,1503) - lu(k,849) * lu(k,1469)
3195 141111616 : lu(k,1505) = lu(k,1505) - lu(k,850) * lu(k,1469)
3196 141111616 : lu(k,1506) = lu(k,1506) - lu(k,851) * lu(k,1469)
3197 141111616 : lu(k,1507) = lu(k,1507) - lu(k,852) * lu(k,1469)
3198 141111616 : lu(k,1510) = lu(k,1510) - lu(k,853) * lu(k,1469)
3199 141111616 : lu(k,1511) = lu(k,1511) - lu(k,854) * lu(k,1469)
3200 141111616 : lu(k,1836) = lu(k,1836) - lu(k,841) * lu(k,1832)
3201 141111616 : lu(k,1837) = lu(k,1837) - lu(k,842) * lu(k,1832)
3202 141111616 : lu(k,1838) = - lu(k,843) * lu(k,1832)
3203 141111616 : lu(k,1845) = lu(k,1845) - lu(k,844) * lu(k,1832)
3204 141111616 : lu(k,1852) = lu(k,1852) - lu(k,845) * lu(k,1832)
3205 141111616 : lu(k,1856) = lu(k,1856) - lu(k,846) * lu(k,1832)
3206 141111616 : lu(k,1858) = lu(k,1858) - lu(k,847) * lu(k,1832)
3207 141111616 : lu(k,1860) = lu(k,1860) - lu(k,848) * lu(k,1832)
3208 141111616 : lu(k,1862) = lu(k,1862) - lu(k,849) * lu(k,1832)
3209 141111616 : lu(k,1864) = lu(k,1864) - lu(k,850) * lu(k,1832)
3210 141111616 : lu(k,1865) = lu(k,1865) - lu(k,851) * lu(k,1832)
3211 141111616 : lu(k,1866) = lu(k,1866) - lu(k,852) * lu(k,1832)
3212 141111616 : lu(k,1869) = lu(k,1869) - lu(k,853) * lu(k,1832)
3213 141111616 : lu(k,1870) = lu(k,1870) - lu(k,854) * lu(k,1832)
3214 141111616 : lu(k,1989) = lu(k,1989) - lu(k,841) * lu(k,1984)
3215 141111616 : lu(k,1990) = lu(k,1990) - lu(k,842) * lu(k,1984)
3216 141111616 : lu(k,1992) = lu(k,1992) - lu(k,843) * lu(k,1984)
3217 141111616 : lu(k,2000) = lu(k,2000) - lu(k,844) * lu(k,1984)
3218 141111616 : lu(k,2007) = lu(k,2007) - lu(k,845) * lu(k,1984)
3219 141111616 : lu(k,2011) = lu(k,2011) - lu(k,846) * lu(k,1984)
3220 141111616 : lu(k,2013) = lu(k,2013) - lu(k,847) * lu(k,1984)
3221 141111616 : lu(k,2015) = lu(k,2015) - lu(k,848) * lu(k,1984)
3222 141111616 : lu(k,2017) = lu(k,2017) - lu(k,849) * lu(k,1984)
3223 141111616 : lu(k,2019) = lu(k,2019) - lu(k,850) * lu(k,1984)
3224 141111616 : lu(k,2020) = lu(k,2020) - lu(k,851) * lu(k,1984)
3225 141111616 : lu(k,2021) = lu(k,2021) - lu(k,852) * lu(k,1984)
3226 141111616 : lu(k,2024) = lu(k,2024) - lu(k,853) * lu(k,1984)
3227 141111616 : lu(k,2025) = lu(k,2025) - lu(k,854) * lu(k,1984)
3228 141111616 : lu(k,855) = 1._r8 / lu(k,855)
3229 141111616 : lu(k,856) = lu(k,856) * lu(k,855)
3230 141111616 : lu(k,857) = lu(k,857) * lu(k,855)
3231 141111616 : lu(k,858) = lu(k,858) * lu(k,855)
3232 141111616 : lu(k,859) = lu(k,859) * lu(k,855)
3233 141111616 : lu(k,860) = lu(k,860) * lu(k,855)
3234 141111616 : lu(k,861) = lu(k,861) * lu(k,855)
3235 141111616 : lu(k,862) = lu(k,862) * lu(k,855)
3236 141111616 : lu(k,936) = - lu(k,856) * lu(k,935)
3237 141111616 : lu(k,937) = - lu(k,857) * lu(k,935)
3238 141111616 : lu(k,939) = - lu(k,858) * lu(k,935)
3239 141111616 : lu(k,940) = - lu(k,859) * lu(k,935)
3240 141111616 : lu(k,946) = lu(k,946) - lu(k,860) * lu(k,935)
3241 141111616 : lu(k,948) = lu(k,948) - lu(k,861) * lu(k,935)
3242 141111616 : lu(k,951) = - lu(k,862) * lu(k,935)
3243 141111616 : lu(k,976) = - lu(k,856) * lu(k,975)
3244 141111616 : lu(k,977) = - lu(k,857) * lu(k,975)
3245 141111616 : lu(k,978) = - lu(k,858) * lu(k,975)
3246 141111616 : lu(k,979) = lu(k,979) - lu(k,859) * lu(k,975)
3247 141111616 : lu(k,985) = lu(k,985) - lu(k,860) * lu(k,975)
3248 141111616 : lu(k,987) = lu(k,987) - lu(k,861) * lu(k,975)
3249 141111616 : lu(k,990) = lu(k,990) - lu(k,862) * lu(k,975)
3250 141111616 : lu(k,1300) = lu(k,1300) - lu(k,856) * lu(k,1297)
3251 141111616 : lu(k,1302) = lu(k,1302) - lu(k,857) * lu(k,1297)
3252 141111616 : lu(k,1305) = lu(k,1305) - lu(k,858) * lu(k,1297)
3253 141111616 : lu(k,1306) = lu(k,1306) - lu(k,859) * lu(k,1297)
3254 141111616 : lu(k,1322) = lu(k,1322) - lu(k,860) * lu(k,1297)
3255 141111616 : lu(k,1325) = lu(k,1325) - lu(k,861) * lu(k,1297)
3256 141111616 : lu(k,1332) = - lu(k,862) * lu(k,1297)
3257 141111616 : lu(k,1473) = lu(k,1473) - lu(k,856) * lu(k,1470)
3258 141111616 : lu(k,1475) = lu(k,1475) - lu(k,857) * lu(k,1470)
3259 141111616 : lu(k,1479) = lu(k,1479) - lu(k,858) * lu(k,1470)
3260 141111616 : lu(k,1480) = lu(k,1480) - lu(k,859) * lu(k,1470)
3261 141111616 : lu(k,1499) = lu(k,1499) - lu(k,860) * lu(k,1470)
3262 141111616 : lu(k,1503) = lu(k,1503) - lu(k,861) * lu(k,1470)
3263 141111616 : lu(k,1510) = lu(k,1510) - lu(k,862) * lu(k,1470)
3264 141111616 : lu(k,1658) = lu(k,1658) - lu(k,856) * lu(k,1656)
3265 141111616 : lu(k,1660) = lu(k,1660) - lu(k,857) * lu(k,1656)
3266 141111616 : lu(k,1663) = lu(k,1663) - lu(k,858) * lu(k,1656)
3267 141111616 : lu(k,1664) = lu(k,1664) - lu(k,859) * lu(k,1656)
3268 141111616 : lu(k,1682) = lu(k,1682) - lu(k,860) * lu(k,1656)
3269 141111616 : lu(k,1686) = lu(k,1686) - lu(k,861) * lu(k,1656)
3270 141111616 : lu(k,1693) = lu(k,1693) - lu(k,862) * lu(k,1656)
3271 141111616 : lu(k,1774) = lu(k,1774) - lu(k,856) * lu(k,1771)
3272 141111616 : lu(k,1776) = lu(k,1776) - lu(k,857) * lu(k,1771)
3273 141111616 : lu(k,1780) = lu(k,1780) - lu(k,858) * lu(k,1771)
3274 141111616 : lu(k,1781) = lu(k,1781) - lu(k,859) * lu(k,1771)
3275 141111616 : lu(k,1798) = lu(k,1798) - lu(k,860) * lu(k,1771)
3276 141111616 : lu(k,1802) = lu(k,1802) - lu(k,861) * lu(k,1771)
3277 141111616 : lu(k,1809) = lu(k,1809) - lu(k,862) * lu(k,1771)
3278 141111616 : lu(k,1835) = lu(k,1835) - lu(k,856) * lu(k,1833)
3279 141111616 : lu(k,1837) = lu(k,1837) - lu(k,857) * lu(k,1833)
3280 141111616 : lu(k,1840) = - lu(k,858) * lu(k,1833)
3281 141111616 : lu(k,1841) = lu(k,1841) - lu(k,859) * lu(k,1833)
3282 141111616 : lu(k,1858) = lu(k,1858) - lu(k,860) * lu(k,1833)
3283 141111616 : lu(k,1862) = lu(k,1862) - lu(k,861) * lu(k,1833)
3284 141111616 : lu(k,1869) = lu(k,1869) - lu(k,862) * lu(k,1833)
3285 141111616 : lu(k,1988) = lu(k,1988) - lu(k,856) * lu(k,1985)
3286 141111616 : lu(k,1990) = lu(k,1990) - lu(k,857) * lu(k,1985)
3287 141111616 : lu(k,1994) = lu(k,1994) - lu(k,858) * lu(k,1985)
3288 141111616 : lu(k,1995) = lu(k,1995) - lu(k,859) * lu(k,1985)
3289 141111616 : lu(k,2013) = lu(k,2013) - lu(k,860) * lu(k,1985)
3290 141111616 : lu(k,2017) = lu(k,2017) - lu(k,861) * lu(k,1985)
3291 141111616 : lu(k,2024) = lu(k,2024) - lu(k,862) * lu(k,1985)
3292 141111616 : lu(k,864) = 1._r8 / lu(k,864)
3293 141111616 : lu(k,865) = lu(k,865) * lu(k,864)
3294 141111616 : lu(k,866) = lu(k,866) * lu(k,864)
3295 141111616 : lu(k,867) = lu(k,867) * lu(k,864)
3296 141111616 : lu(k,868) = lu(k,868) * lu(k,864)
3297 141111616 : lu(k,911) = lu(k,911) - lu(k,865) * lu(k,909)
3298 141111616 : lu(k,919) = lu(k,919) - lu(k,866) * lu(k,909)
3299 141111616 : lu(k,920) = lu(k,920) - lu(k,867) * lu(k,909)
3300 141111616 : lu(k,921) = lu(k,921) - lu(k,868) * lu(k,909)
3301 141111616 : lu(k,959) = lu(k,959) - lu(k,865) * lu(k,957)
3302 141111616 : lu(k,966) = lu(k,966) - lu(k,866) * lu(k,957)
3303 141111616 : lu(k,967) = lu(k,967) - lu(k,867) * lu(k,957)
3304 141111616 : lu(k,968) = lu(k,968) - lu(k,868) * lu(k,957)
3305 141111616 : lu(k,1009) = lu(k,1009) - lu(k,865) * lu(k,1008)
3306 141111616 : lu(k,1016) = lu(k,1016) - lu(k,866) * lu(k,1008)
3307 141111616 : lu(k,1017) = lu(k,1017) - lu(k,867) * lu(k,1008)
3308 141111616 : lu(k,1018) = lu(k,1018) - lu(k,868) * lu(k,1008)
3309 141111616 : lu(k,1042) = - lu(k,865) * lu(k,1040)
3310 141111616 : lu(k,1052) = lu(k,1052) - lu(k,866) * lu(k,1040)
3311 141111616 : lu(k,1053) = lu(k,1053) - lu(k,867) * lu(k,1040)
3312 141111616 : lu(k,1054) = lu(k,1054) - lu(k,868) * lu(k,1040)
3313 141111616 : lu(k,1106) = lu(k,1106) - lu(k,865) * lu(k,1105)
3314 141111616 : lu(k,1121) = lu(k,1121) - lu(k,866) * lu(k,1105)
3315 141111616 : lu(k,1122) = lu(k,1122) - lu(k,867) * lu(k,1105)
3316 141111616 : lu(k,1123) = lu(k,1123) - lu(k,868) * lu(k,1105)
3317 141111616 : lu(k,1152) = lu(k,1152) - lu(k,865) * lu(k,1151)
3318 141111616 : lu(k,1163) = lu(k,1163) - lu(k,866) * lu(k,1151)
3319 141111616 : lu(k,1164) = lu(k,1164) - lu(k,867) * lu(k,1151)
3320 141111616 : lu(k,1165) = lu(k,1165) - lu(k,868) * lu(k,1151)
3321 141111616 : lu(k,1174) = - lu(k,865) * lu(k,1173)
3322 141111616 : lu(k,1189) = lu(k,1189) - lu(k,866) * lu(k,1173)
3323 141111616 : lu(k,1190) = lu(k,1190) - lu(k,867) * lu(k,1173)
3324 141111616 : lu(k,1191) = lu(k,1191) - lu(k,868) * lu(k,1173)
3325 141111616 : lu(k,1222) = lu(k,1222) - lu(k,865) * lu(k,1220)
3326 141111616 : lu(k,1237) = lu(k,1237) - lu(k,866) * lu(k,1220)
3327 141111616 : lu(k,1238) = lu(k,1238) - lu(k,867) * lu(k,1220)
3328 141111616 : lu(k,1239) = lu(k,1239) - lu(k,868) * lu(k,1220)
3329 141111616 : lu(k,1302) = lu(k,1302) - lu(k,865) * lu(k,1298)
3330 141111616 : lu(k,1322) = lu(k,1322) - lu(k,866) * lu(k,1298)
3331 141111616 : lu(k,1323) = lu(k,1323) - lu(k,867) * lu(k,1298)
3332 141111616 : lu(k,1325) = lu(k,1325) - lu(k,868) * lu(k,1298)
3333 141111616 : lu(k,1475) = lu(k,1475) - lu(k,865) * lu(k,1471)
3334 141111616 : lu(k,1499) = lu(k,1499) - lu(k,866) * lu(k,1471)
3335 141111616 : lu(k,1501) = lu(k,1501) - lu(k,867) * lu(k,1471)
3336 141111616 : lu(k,1503) = lu(k,1503) - lu(k,868) * lu(k,1471)
3337 141111616 : lu(k,1660) = lu(k,1660) - lu(k,865) * lu(k,1657)
3338 141111616 : lu(k,1682) = lu(k,1682) - lu(k,866) * lu(k,1657)
3339 141111616 : lu(k,1684) = lu(k,1684) - lu(k,867) * lu(k,1657)
3340 141111616 : lu(k,1686) = lu(k,1686) - lu(k,868) * lu(k,1657)
3341 141111616 : lu(k,1776) = lu(k,1776) - lu(k,865) * lu(k,1772)
3342 141111616 : lu(k,1798) = lu(k,1798) - lu(k,866) * lu(k,1772)
3343 141111616 : lu(k,1800) = lu(k,1800) - lu(k,867) * lu(k,1772)
3344 141111616 : lu(k,1802) = lu(k,1802) - lu(k,868) * lu(k,1772)
3345 141111616 : lu(k,1837) = lu(k,1837) - lu(k,865) * lu(k,1834)
3346 141111616 : lu(k,1858) = lu(k,1858) - lu(k,866) * lu(k,1834)
3347 141111616 : lu(k,1860) = lu(k,1860) - lu(k,867) * lu(k,1834)
3348 141111616 : lu(k,1862) = lu(k,1862) - lu(k,868) * lu(k,1834)
3349 141111616 : lu(k,1948) = lu(k,1948) - lu(k,865) * lu(k,1946)
3350 141111616 : lu(k,1956) = lu(k,1956) - lu(k,866) * lu(k,1946)
3351 141111616 : lu(k,1958) = lu(k,1958) - lu(k,867) * lu(k,1946)
3352 141111616 : lu(k,1960) = lu(k,1960) - lu(k,868) * lu(k,1946)
3353 141111616 : lu(k,1990) = lu(k,1990) - lu(k,865) * lu(k,1986)
3354 141111616 : lu(k,2013) = lu(k,2013) - lu(k,866) * lu(k,1986)
3355 141111616 : lu(k,2015) = lu(k,2015) - lu(k,867) * lu(k,1986)
3356 141111616 : lu(k,2017) = lu(k,2017) - lu(k,868) * lu(k,1986)
3357 141111616 : lu(k,873) = 1._r8 / lu(k,873)
3358 141111616 : lu(k,874) = lu(k,874) * lu(k,873)
3359 141111616 : lu(k,875) = lu(k,875) * lu(k,873)
3360 141111616 : lu(k,876) = lu(k,876) * lu(k,873)
3361 141111616 : lu(k,877) = lu(k,877) * lu(k,873)
3362 141111616 : lu(k,878) = lu(k,878) * lu(k,873)
3363 141111616 : lu(k,879) = lu(k,879) * lu(k,873)
3364 141111616 : lu(k,880) = lu(k,880) * lu(k,873)
3365 141111616 : lu(k,881) = lu(k,881) * lu(k,873)
3366 141111616 : lu(k,882) = lu(k,882) * lu(k,873)
3367 141111616 : lu(k,883) = lu(k,883) * lu(k,873)
3368 141111616 : lu(k,1042) = lu(k,1042) - lu(k,874) * lu(k,1041)
3369 141111616 : lu(k,1046) = lu(k,1046) - lu(k,875) * lu(k,1041)
3370 141111616 : lu(k,1048) = lu(k,1048) - lu(k,876) * lu(k,1041)
3371 141111616 : lu(k,1049) = lu(k,1049) - lu(k,877) * lu(k,1041)
3372 141111616 : lu(k,1051) = lu(k,1051) - lu(k,878) * lu(k,1041)
3373 141111616 : lu(k,1052) = lu(k,1052) - lu(k,879) * lu(k,1041)
3374 141111616 : lu(k,1053) = lu(k,1053) - lu(k,880) * lu(k,1041)
3375 141111616 : lu(k,1054) = lu(k,1054) - lu(k,881) * lu(k,1041)
3376 141111616 : lu(k,1055) = lu(k,1055) - lu(k,882) * lu(k,1041)
3377 141111616 : lu(k,1056) = lu(k,1056) - lu(k,883) * lu(k,1041)
3378 141111616 : lu(k,1222) = lu(k,1222) - lu(k,874) * lu(k,1221)
3379 141111616 : lu(k,1227) = lu(k,1227) - lu(k,875) * lu(k,1221)
3380 141111616 : lu(k,1233) = lu(k,1233) - lu(k,876) * lu(k,1221)
3381 141111616 : lu(k,1234) = - lu(k,877) * lu(k,1221)
3382 141111616 : lu(k,1236) = lu(k,1236) - lu(k,878) * lu(k,1221)
3383 141111616 : lu(k,1237) = lu(k,1237) - lu(k,879) * lu(k,1221)
3384 141111616 : lu(k,1238) = lu(k,1238) - lu(k,880) * lu(k,1221)
3385 141111616 : lu(k,1239) = lu(k,1239) - lu(k,881) * lu(k,1221)
3386 141111616 : lu(k,1240) = lu(k,1240) - lu(k,882) * lu(k,1221)
3387 141111616 : lu(k,1242) = lu(k,1242) - lu(k,883) * lu(k,1221)
3388 141111616 : lu(k,1302) = lu(k,1302) - lu(k,874) * lu(k,1299)
3389 141111616 : lu(k,1311) = lu(k,1311) - lu(k,875) * lu(k,1299)
3390 141111616 : lu(k,1317) = lu(k,1317) - lu(k,876) * lu(k,1299)
3391 141111616 : lu(k,1318) = lu(k,1318) - lu(k,877) * lu(k,1299)
3392 141111616 : lu(k,1320) = lu(k,1320) - lu(k,878) * lu(k,1299)
3393 141111616 : lu(k,1322) = lu(k,1322) - lu(k,879) * lu(k,1299)
3394 141111616 : lu(k,1323) = lu(k,1323) - lu(k,880) * lu(k,1299)
3395 141111616 : lu(k,1325) = lu(k,1325) - lu(k,881) * lu(k,1299)
3396 141111616 : lu(k,1327) = lu(k,1327) - lu(k,882) * lu(k,1299)
3397 141111616 : lu(k,1329) = lu(k,1329) - lu(k,883) * lu(k,1299)
3398 141111616 : lu(k,1475) = lu(k,1475) - lu(k,874) * lu(k,1472)
3399 141111616 : lu(k,1486) = lu(k,1486) - lu(k,875) * lu(k,1472)
3400 141111616 : lu(k,1493) = lu(k,1493) - lu(k,876) * lu(k,1472)
3401 141111616 : lu(k,1495) = lu(k,1495) - lu(k,877) * lu(k,1472)
3402 141111616 : lu(k,1497) = lu(k,1497) - lu(k,878) * lu(k,1472)
3403 141111616 : lu(k,1499) = lu(k,1499) - lu(k,879) * lu(k,1472)
3404 141111616 : lu(k,1501) = lu(k,1501) - lu(k,880) * lu(k,1472)
3405 141111616 : lu(k,1503) = lu(k,1503) - lu(k,881) * lu(k,1472)
3406 141111616 : lu(k,1505) = lu(k,1505) - lu(k,882) * lu(k,1472)
3407 141111616 : lu(k,1507) = lu(k,1507) - lu(k,883) * lu(k,1472)
3408 141111616 : lu(k,1776) = lu(k,1776) - lu(k,874) * lu(k,1773)
3409 141111616 : lu(k,1786) = lu(k,1786) - lu(k,875) * lu(k,1773)
3410 141111616 : lu(k,1792) = lu(k,1792) - lu(k,876) * lu(k,1773)
3411 141111616 : lu(k,1794) = lu(k,1794) - lu(k,877) * lu(k,1773)
3412 141111616 : lu(k,1796) = lu(k,1796) - lu(k,878) * lu(k,1773)
3413 141111616 : lu(k,1798) = lu(k,1798) - lu(k,879) * lu(k,1773)
3414 141111616 : lu(k,1800) = lu(k,1800) - lu(k,880) * lu(k,1773)
3415 141111616 : lu(k,1802) = lu(k,1802) - lu(k,881) * lu(k,1773)
3416 141111616 : lu(k,1804) = lu(k,1804) - lu(k,882) * lu(k,1773)
3417 141111616 : lu(k,1806) = lu(k,1806) - lu(k,883) * lu(k,1773)
3418 141111616 : lu(k,1990) = lu(k,1990) - lu(k,874) * lu(k,1987)
3419 141111616 : lu(k,2000) = lu(k,2000) - lu(k,875) * lu(k,1987)
3420 141111616 : lu(k,2007) = lu(k,2007) - lu(k,876) * lu(k,1987)
3421 141111616 : lu(k,2009) = lu(k,2009) - lu(k,877) * lu(k,1987)
3422 141111616 : lu(k,2011) = lu(k,2011) - lu(k,878) * lu(k,1987)
3423 141111616 : lu(k,2013) = lu(k,2013) - lu(k,879) * lu(k,1987)
3424 141111616 : lu(k,2015) = lu(k,2015) - lu(k,880) * lu(k,1987)
3425 141111616 : lu(k,2017) = lu(k,2017) - lu(k,881) * lu(k,1987)
3426 141111616 : lu(k,2019) = lu(k,2019) - lu(k,882) * lu(k,1987)
3427 145521354 : lu(k,2021) = lu(k,2021) - lu(k,883) * lu(k,1987)
3428 : end do
3429 4409738 : end subroutine lu_fac18
3430 4409738 : subroutine lu_fac19( avec_len, lu )
3431 : use chem_mods, only : nzcnt
3432 : use shr_kind_mod, only : r8 => shr_kind_r8
3433 : implicit none
3434 : !-----------------------------------------------------------------------
3435 : ! ... dummy args
3436 : !-----------------------------------------------------------------------
3437 : integer, intent(in) :: avec_len
3438 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3439 : !-----------------------------------------------------------------------
3440 : ! ... local variables
3441 : !-----------------------------------------------------------------------
3442 : integer :: k
3443 145521354 : do k = 1,avec_len
3444 141111616 : lu(k,885) = 1._r8 / lu(k,885)
3445 141111616 : lu(k,886) = lu(k,886) * lu(k,885)
3446 141111616 : lu(k,887) = lu(k,887) * lu(k,885)
3447 141111616 : lu(k,888) = lu(k,888) * lu(k,885)
3448 141111616 : lu(k,889) = lu(k,889) * lu(k,885)
3449 141111616 : lu(k,890) = lu(k,890) * lu(k,885)
3450 141111616 : lu(k,891) = lu(k,891) * lu(k,885)
3451 141111616 : lu(k,892) = lu(k,892) * lu(k,885)
3452 141111616 : lu(k,893) = lu(k,893) * lu(k,885)
3453 141111616 : lu(k,937) = lu(k,937) - lu(k,886) * lu(k,936)
3454 141111616 : lu(k,941) = lu(k,941) - lu(k,887) * lu(k,936)
3455 141111616 : lu(k,942) = lu(k,942) - lu(k,888) * lu(k,936)
3456 141111616 : lu(k,945) = lu(k,945) - lu(k,889) * lu(k,936)
3457 141111616 : lu(k,946) = lu(k,946) - lu(k,890) * lu(k,936)
3458 141111616 : lu(k,947) = lu(k,947) - lu(k,891) * lu(k,936)
3459 141111616 : lu(k,948) = lu(k,948) - lu(k,892) * lu(k,936)
3460 141111616 : lu(k,952) = lu(k,952) - lu(k,893) * lu(k,936)
3461 141111616 : lu(k,959) = lu(k,959) - lu(k,886) * lu(k,958)
3462 141111616 : lu(k,961) = lu(k,961) - lu(k,887) * lu(k,958)
3463 141111616 : lu(k,962) = lu(k,962) - lu(k,888) * lu(k,958)
3464 141111616 : lu(k,965) = lu(k,965) - lu(k,889) * lu(k,958)
3465 141111616 : lu(k,966) = lu(k,966) - lu(k,890) * lu(k,958)
3466 141111616 : lu(k,967) = lu(k,967) - lu(k,891) * lu(k,958)
3467 141111616 : lu(k,968) = lu(k,968) - lu(k,892) * lu(k,958)
3468 141111616 : lu(k,971) = lu(k,971) - lu(k,893) * lu(k,958)
3469 141111616 : lu(k,977) = lu(k,977) - lu(k,886) * lu(k,976)
3470 141111616 : lu(k,980) = - lu(k,887) * lu(k,976)
3471 141111616 : lu(k,981) = - lu(k,888) * lu(k,976)
3472 141111616 : lu(k,984) = lu(k,984) - lu(k,889) * lu(k,976)
3473 141111616 : lu(k,985) = lu(k,985) - lu(k,890) * lu(k,976)
3474 141111616 : lu(k,986) = lu(k,986) - lu(k,891) * lu(k,976)
3475 141111616 : lu(k,987) = lu(k,987) - lu(k,892) * lu(k,976)
3476 141111616 : lu(k,991) = - lu(k,893) * lu(k,976)
3477 141111616 : lu(k,1302) = lu(k,1302) - lu(k,886) * lu(k,1300)
3478 141111616 : lu(k,1307) = lu(k,1307) - lu(k,887) * lu(k,1300)
3479 141111616 : lu(k,1317) = lu(k,1317) - lu(k,888) * lu(k,1300)
3480 141111616 : lu(k,1320) = lu(k,1320) - lu(k,889) * lu(k,1300)
3481 141111616 : lu(k,1322) = lu(k,1322) - lu(k,890) * lu(k,1300)
3482 141111616 : lu(k,1323) = lu(k,1323) - lu(k,891) * lu(k,1300)
3483 141111616 : lu(k,1325) = lu(k,1325) - lu(k,892) * lu(k,1300)
3484 141111616 : lu(k,1333) = lu(k,1333) - lu(k,893) * lu(k,1300)
3485 141111616 : lu(k,1475) = lu(k,1475) - lu(k,886) * lu(k,1473)
3486 141111616 : lu(k,1481) = lu(k,1481) - lu(k,887) * lu(k,1473)
3487 141111616 : lu(k,1493) = lu(k,1493) - lu(k,888) * lu(k,1473)
3488 141111616 : lu(k,1497) = lu(k,1497) - lu(k,889) * lu(k,1473)
3489 141111616 : lu(k,1499) = lu(k,1499) - lu(k,890) * lu(k,1473)
3490 141111616 : lu(k,1501) = lu(k,1501) - lu(k,891) * lu(k,1473)
3491 141111616 : lu(k,1503) = lu(k,1503) - lu(k,892) * lu(k,1473)
3492 141111616 : lu(k,1511) = lu(k,1511) - lu(k,893) * lu(k,1473)
3493 141111616 : lu(k,1660) = lu(k,1660) - lu(k,886) * lu(k,1658)
3494 141111616 : lu(k,1665) = lu(k,1665) - lu(k,887) * lu(k,1658)
3495 141111616 : lu(k,1676) = lu(k,1676) - lu(k,888) * lu(k,1658)
3496 141111616 : lu(k,1680) = lu(k,1680) - lu(k,889) * lu(k,1658)
3497 141111616 : lu(k,1682) = lu(k,1682) - lu(k,890) * lu(k,1658)
3498 141111616 : lu(k,1684) = lu(k,1684) - lu(k,891) * lu(k,1658)
3499 141111616 : lu(k,1686) = lu(k,1686) - lu(k,892) * lu(k,1658)
3500 141111616 : lu(k,1694) = lu(k,1694) - lu(k,893) * lu(k,1658)
3501 141111616 : lu(k,1776) = lu(k,1776) - lu(k,886) * lu(k,1774)
3502 141111616 : lu(k,1782) = lu(k,1782) - lu(k,887) * lu(k,1774)
3503 141111616 : lu(k,1792) = lu(k,1792) - lu(k,888) * lu(k,1774)
3504 141111616 : lu(k,1796) = lu(k,1796) - lu(k,889) * lu(k,1774)
3505 141111616 : lu(k,1798) = lu(k,1798) - lu(k,890) * lu(k,1774)
3506 141111616 : lu(k,1800) = lu(k,1800) - lu(k,891) * lu(k,1774)
3507 141111616 : lu(k,1802) = lu(k,1802) - lu(k,892) * lu(k,1774)
3508 141111616 : lu(k,1810) = lu(k,1810) - lu(k,893) * lu(k,1774)
3509 141111616 : lu(k,1837) = lu(k,1837) - lu(k,886) * lu(k,1835)
3510 141111616 : lu(k,1842) = lu(k,1842) - lu(k,887) * lu(k,1835)
3511 141111616 : lu(k,1852) = lu(k,1852) - lu(k,888) * lu(k,1835)
3512 141111616 : lu(k,1856) = lu(k,1856) - lu(k,889) * lu(k,1835)
3513 141111616 : lu(k,1858) = lu(k,1858) - lu(k,890) * lu(k,1835)
3514 141111616 : lu(k,1860) = lu(k,1860) - lu(k,891) * lu(k,1835)
3515 141111616 : lu(k,1862) = lu(k,1862) - lu(k,892) * lu(k,1835)
3516 141111616 : lu(k,1870) = lu(k,1870) - lu(k,893) * lu(k,1835)
3517 141111616 : lu(k,1990) = lu(k,1990) - lu(k,886) * lu(k,1988)
3518 141111616 : lu(k,1996) = lu(k,1996) - lu(k,887) * lu(k,1988)
3519 141111616 : lu(k,2007) = lu(k,2007) - lu(k,888) * lu(k,1988)
3520 141111616 : lu(k,2011) = lu(k,2011) - lu(k,889) * lu(k,1988)
3521 141111616 : lu(k,2013) = lu(k,2013) - lu(k,890) * lu(k,1988)
3522 141111616 : lu(k,2015) = lu(k,2015) - lu(k,891) * lu(k,1988)
3523 141111616 : lu(k,2017) = lu(k,2017) - lu(k,892) * lu(k,1988)
3524 141111616 : lu(k,2025) = lu(k,2025) - lu(k,893) * lu(k,1988)
3525 141111616 : lu(k,894) = 1._r8 / lu(k,894)
3526 141111616 : lu(k,895) = lu(k,895) * lu(k,894)
3527 141111616 : lu(k,896) = lu(k,896) * lu(k,894)
3528 141111616 : lu(k,897) = lu(k,897) * lu(k,894)
3529 141111616 : lu(k,898) = lu(k,898) * lu(k,894)
3530 141111616 : lu(k,899) = lu(k,899) * lu(k,894)
3531 141111616 : lu(k,900) = lu(k,900) * lu(k,894)
3532 141111616 : lu(k,901) = lu(k,901) * lu(k,894)
3533 141111616 : lu(k,902) = lu(k,902) * lu(k,894)
3534 141111616 : lu(k,911) = lu(k,911) - lu(k,895) * lu(k,910)
3535 141111616 : lu(k,915) = lu(k,915) - lu(k,896) * lu(k,910)
3536 141111616 : lu(k,916) = lu(k,916) - lu(k,897) * lu(k,910)
3537 141111616 : lu(k,918) = lu(k,918) - lu(k,898) * lu(k,910)
3538 141111616 : lu(k,919) = lu(k,919) - lu(k,899) * lu(k,910)
3539 141111616 : lu(k,921) = lu(k,921) - lu(k,900) * lu(k,910)
3540 141111616 : lu(k,923) = - lu(k,901) * lu(k,910)
3541 141111616 : lu(k,924) = lu(k,924) - lu(k,902) * lu(k,910)
3542 141111616 : lu(k,1132) = lu(k,1132) - lu(k,895) * lu(k,1131)
3543 141111616 : lu(k,1137) = lu(k,1137) - lu(k,896) * lu(k,1131)
3544 141111616 : lu(k,1138) = - lu(k,897) * lu(k,1131)
3545 141111616 : lu(k,1140) = lu(k,1140) - lu(k,898) * lu(k,1131)
3546 141111616 : lu(k,1141) = lu(k,1141) - lu(k,899) * lu(k,1131)
3547 141111616 : lu(k,1143) = lu(k,1143) - lu(k,900) * lu(k,1131)
3548 141111616 : lu(k,1147) = lu(k,1147) - lu(k,901) * lu(k,1131)
3549 141111616 : lu(k,1148) = lu(k,1148) - lu(k,902) * lu(k,1131)
3550 141111616 : lu(k,1302) = lu(k,1302) - lu(k,895) * lu(k,1301)
3551 141111616 : lu(k,1317) = lu(k,1317) - lu(k,896) * lu(k,1301)
3552 141111616 : lu(k,1318) = lu(k,1318) - lu(k,897) * lu(k,1301)
3553 141111616 : lu(k,1320) = lu(k,1320) - lu(k,898) * lu(k,1301)
3554 141111616 : lu(k,1322) = lu(k,1322) - lu(k,899) * lu(k,1301)
3555 141111616 : lu(k,1325) = lu(k,1325) - lu(k,900) * lu(k,1301)
3556 141111616 : lu(k,1332) = lu(k,1332) - lu(k,901) * lu(k,1301)
3557 141111616 : lu(k,1333) = lu(k,1333) - lu(k,902) * lu(k,1301)
3558 141111616 : lu(k,1475) = lu(k,1475) - lu(k,895) * lu(k,1474)
3559 141111616 : lu(k,1493) = lu(k,1493) - lu(k,896) * lu(k,1474)
3560 141111616 : lu(k,1495) = lu(k,1495) - lu(k,897) * lu(k,1474)
3561 141111616 : lu(k,1497) = lu(k,1497) - lu(k,898) * lu(k,1474)
3562 141111616 : lu(k,1499) = lu(k,1499) - lu(k,899) * lu(k,1474)
3563 141111616 : lu(k,1503) = lu(k,1503) - lu(k,900) * lu(k,1474)
3564 141111616 : lu(k,1510) = lu(k,1510) - lu(k,901) * lu(k,1474)
3565 141111616 : lu(k,1511) = lu(k,1511) - lu(k,902) * lu(k,1474)
3566 141111616 : lu(k,1660) = lu(k,1660) - lu(k,895) * lu(k,1659)
3567 141111616 : lu(k,1676) = lu(k,1676) - lu(k,896) * lu(k,1659)
3568 141111616 : lu(k,1678) = lu(k,1678) - lu(k,897) * lu(k,1659)
3569 141111616 : lu(k,1680) = lu(k,1680) - lu(k,898) * lu(k,1659)
3570 141111616 : lu(k,1682) = lu(k,1682) - lu(k,899) * lu(k,1659)
3571 141111616 : lu(k,1686) = lu(k,1686) - lu(k,900) * lu(k,1659)
3572 141111616 : lu(k,1693) = lu(k,1693) - lu(k,901) * lu(k,1659)
3573 141111616 : lu(k,1694) = lu(k,1694) - lu(k,902) * lu(k,1659)
3574 141111616 : lu(k,1776) = lu(k,1776) - lu(k,895) * lu(k,1775)
3575 141111616 : lu(k,1792) = lu(k,1792) - lu(k,896) * lu(k,1775)
3576 141111616 : lu(k,1794) = lu(k,1794) - lu(k,897) * lu(k,1775)
3577 141111616 : lu(k,1796) = lu(k,1796) - lu(k,898) * lu(k,1775)
3578 141111616 : lu(k,1798) = lu(k,1798) - lu(k,899) * lu(k,1775)
3579 141111616 : lu(k,1802) = lu(k,1802) - lu(k,900) * lu(k,1775)
3580 141111616 : lu(k,1809) = lu(k,1809) - lu(k,901) * lu(k,1775)
3581 141111616 : lu(k,1810) = lu(k,1810) - lu(k,902) * lu(k,1775)
3582 141111616 : lu(k,1837) = lu(k,1837) - lu(k,895) * lu(k,1836)
3583 141111616 : lu(k,1852) = lu(k,1852) - lu(k,896) * lu(k,1836)
3584 141111616 : lu(k,1854) = - lu(k,897) * lu(k,1836)
3585 141111616 : lu(k,1856) = lu(k,1856) - lu(k,898) * lu(k,1836)
3586 141111616 : lu(k,1858) = lu(k,1858) - lu(k,899) * lu(k,1836)
3587 141111616 : lu(k,1862) = lu(k,1862) - lu(k,900) * lu(k,1836)
3588 141111616 : lu(k,1869) = lu(k,1869) - lu(k,901) * lu(k,1836)
3589 141111616 : lu(k,1870) = lu(k,1870) - lu(k,902) * lu(k,1836)
3590 141111616 : lu(k,1948) = lu(k,1948) - lu(k,895) * lu(k,1947)
3591 141111616 : lu(k,1950) = - lu(k,896) * lu(k,1947)
3592 141111616 : lu(k,1952) = lu(k,1952) - lu(k,897) * lu(k,1947)
3593 141111616 : lu(k,1954) = lu(k,1954) - lu(k,898) * lu(k,1947)
3594 141111616 : lu(k,1956) = lu(k,1956) - lu(k,899) * lu(k,1947)
3595 141111616 : lu(k,1960) = lu(k,1960) - lu(k,900) * lu(k,1947)
3596 141111616 : lu(k,1967) = lu(k,1967) - lu(k,901) * lu(k,1947)
3597 141111616 : lu(k,1968) = lu(k,1968) - lu(k,902) * lu(k,1947)
3598 141111616 : lu(k,1990) = lu(k,1990) - lu(k,895) * lu(k,1989)
3599 141111616 : lu(k,2007) = lu(k,2007) - lu(k,896) * lu(k,1989)
3600 141111616 : lu(k,2009) = lu(k,2009) - lu(k,897) * lu(k,1989)
3601 141111616 : lu(k,2011) = lu(k,2011) - lu(k,898) * lu(k,1989)
3602 141111616 : lu(k,2013) = lu(k,2013) - lu(k,899) * lu(k,1989)
3603 141111616 : lu(k,2017) = lu(k,2017) - lu(k,900) * lu(k,1989)
3604 141111616 : lu(k,2024) = lu(k,2024) - lu(k,901) * lu(k,1989)
3605 141111616 : lu(k,2025) = lu(k,2025) - lu(k,902) * lu(k,1989)
3606 141111616 : lu(k,903) = 1._r8 / lu(k,903)
3607 141111616 : lu(k,904) = lu(k,904) * lu(k,903)
3608 141111616 : lu(k,905) = lu(k,905) * lu(k,903)
3609 141111616 : lu(k,906) = lu(k,906) * lu(k,903)
3610 141111616 : lu(k,917) = - lu(k,904) * lu(k,911)
3611 141111616 : lu(k,919) = lu(k,919) - lu(k,905) * lu(k,911)
3612 141111616 : lu(k,921) = lu(k,921) - lu(k,906) * lu(k,911)
3613 141111616 : lu(k,944) = - lu(k,904) * lu(k,937)
3614 141111616 : lu(k,946) = lu(k,946) - lu(k,905) * lu(k,937)
3615 141111616 : lu(k,948) = lu(k,948) - lu(k,906) * lu(k,937)
3616 141111616 : lu(k,964) = - lu(k,904) * lu(k,959)
3617 141111616 : lu(k,966) = lu(k,966) - lu(k,905) * lu(k,959)
3618 141111616 : lu(k,968) = lu(k,968) - lu(k,906) * lu(k,959)
3619 141111616 : lu(k,983) = - lu(k,904) * lu(k,977)
3620 141111616 : lu(k,985) = lu(k,985) - lu(k,905) * lu(k,977)
3621 141111616 : lu(k,987) = lu(k,987) - lu(k,906) * lu(k,977)
3622 141111616 : lu(k,1014) = - lu(k,904) * lu(k,1009)
3623 141111616 : lu(k,1016) = lu(k,1016) - lu(k,905) * lu(k,1009)
3624 141111616 : lu(k,1018) = lu(k,1018) - lu(k,906) * lu(k,1009)
3625 141111616 : lu(k,1050) = - lu(k,904) * lu(k,1042)
3626 141111616 : lu(k,1052) = lu(k,1052) - lu(k,905) * lu(k,1042)
3627 141111616 : lu(k,1054) = lu(k,1054) - lu(k,906) * lu(k,1042)
3628 141111616 : lu(k,1065) = - lu(k,904) * lu(k,1059)
3629 141111616 : lu(k,1066) = lu(k,1066) - lu(k,905) * lu(k,1059)
3630 141111616 : lu(k,1068) = lu(k,1068) - lu(k,906) * lu(k,1059)
3631 141111616 : lu(k,1075) = - lu(k,904) * lu(k,1071)
3632 141111616 : lu(k,1076) = lu(k,1076) - lu(k,905) * lu(k,1071)
3633 141111616 : lu(k,1077) = lu(k,1077) - lu(k,906) * lu(k,1071)
3634 141111616 : lu(k,1119) = - lu(k,904) * lu(k,1106)
3635 141111616 : lu(k,1121) = lu(k,1121) - lu(k,905) * lu(k,1106)
3636 141111616 : lu(k,1123) = lu(k,1123) - lu(k,906) * lu(k,1106)
3637 141111616 : lu(k,1139) = - lu(k,904) * lu(k,1132)
3638 141111616 : lu(k,1141) = lu(k,1141) - lu(k,905) * lu(k,1132)
3639 141111616 : lu(k,1143) = lu(k,1143) - lu(k,906) * lu(k,1132)
3640 141111616 : lu(k,1161) = - lu(k,904) * lu(k,1152)
3641 141111616 : lu(k,1163) = lu(k,1163) - lu(k,905) * lu(k,1152)
3642 141111616 : lu(k,1165) = lu(k,1165) - lu(k,906) * lu(k,1152)
3643 141111616 : lu(k,1187) = - lu(k,904) * lu(k,1174)
3644 141111616 : lu(k,1189) = lu(k,1189) - lu(k,905) * lu(k,1174)
3645 141111616 : lu(k,1191) = lu(k,1191) - lu(k,906) * lu(k,1174)
3646 141111616 : lu(k,1235) = - lu(k,904) * lu(k,1222)
3647 141111616 : lu(k,1237) = lu(k,1237) - lu(k,905) * lu(k,1222)
3648 141111616 : lu(k,1239) = lu(k,1239) - lu(k,906) * lu(k,1222)
3649 141111616 : lu(k,1248) = lu(k,1248) - lu(k,904) * lu(k,1246)
3650 141111616 : lu(k,1250) = lu(k,1250) - lu(k,905) * lu(k,1246)
3651 141111616 : lu(k,1254) = lu(k,1254) - lu(k,906) * lu(k,1246)
3652 141111616 : lu(k,1319) = lu(k,1319) - lu(k,904) * lu(k,1302)
3653 141111616 : lu(k,1322) = lu(k,1322) - lu(k,905) * lu(k,1302)
3654 141111616 : lu(k,1325) = lu(k,1325) - lu(k,906) * lu(k,1302)
3655 141111616 : lu(k,1496) = lu(k,1496) - lu(k,904) * lu(k,1475)
3656 141111616 : lu(k,1499) = lu(k,1499) - lu(k,905) * lu(k,1475)
3657 141111616 : lu(k,1503) = lu(k,1503) - lu(k,906) * lu(k,1475)
3658 141111616 : lu(k,1543) = lu(k,1543) - lu(k,904) * lu(k,1539)
3659 141111616 : lu(k,1546) = lu(k,1546) - lu(k,905) * lu(k,1539)
3660 141111616 : lu(k,1550) = lu(k,1550) - lu(k,906) * lu(k,1539)
3661 141111616 : lu(k,1573) = lu(k,1573) - lu(k,904) * lu(k,1568)
3662 141111616 : lu(k,1576) = lu(k,1576) - lu(k,905) * lu(k,1568)
3663 141111616 : lu(k,1580) = lu(k,1580) - lu(k,906) * lu(k,1568)
3664 141111616 : lu(k,1679) = lu(k,1679) - lu(k,904) * lu(k,1660)
3665 141111616 : lu(k,1682) = lu(k,1682) - lu(k,905) * lu(k,1660)
3666 141111616 : lu(k,1686) = lu(k,1686) - lu(k,906) * lu(k,1660)
3667 141111616 : lu(k,1795) = lu(k,1795) - lu(k,904) * lu(k,1776)
3668 141111616 : lu(k,1798) = lu(k,1798) - lu(k,905) * lu(k,1776)
3669 141111616 : lu(k,1802) = lu(k,1802) - lu(k,906) * lu(k,1776)
3670 141111616 : lu(k,1855) = lu(k,1855) - lu(k,904) * lu(k,1837)
3671 141111616 : lu(k,1858) = lu(k,1858) - lu(k,905) * lu(k,1837)
3672 141111616 : lu(k,1862) = lu(k,1862) - lu(k,906) * lu(k,1837)
3673 141111616 : lu(k,1896) = lu(k,1896) - lu(k,904) * lu(k,1888)
3674 141111616 : lu(k,1899) = lu(k,1899) - lu(k,905) * lu(k,1888)
3675 141111616 : lu(k,1903) = lu(k,1903) - lu(k,906) * lu(k,1888)
3676 141111616 : lu(k,1953) = lu(k,1953) - lu(k,904) * lu(k,1948)
3677 141111616 : lu(k,1956) = lu(k,1956) - lu(k,905) * lu(k,1948)
3678 141111616 : lu(k,1960) = lu(k,1960) - lu(k,906) * lu(k,1948)
3679 141111616 : lu(k,2010) = - lu(k,904) * lu(k,1990)
3680 141111616 : lu(k,2013) = lu(k,2013) - lu(k,905) * lu(k,1990)
3681 141111616 : lu(k,2017) = lu(k,2017) - lu(k,906) * lu(k,1990)
3682 141111616 : lu(k,912) = 1._r8 / lu(k,912)
3683 141111616 : lu(k,913) = lu(k,913) * lu(k,912)
3684 141111616 : lu(k,914) = lu(k,914) * lu(k,912)
3685 141111616 : lu(k,915) = lu(k,915) * lu(k,912)
3686 141111616 : lu(k,916) = lu(k,916) * lu(k,912)
3687 141111616 : lu(k,917) = lu(k,917) * lu(k,912)
3688 141111616 : lu(k,918) = lu(k,918) * lu(k,912)
3689 141111616 : lu(k,919) = lu(k,919) * lu(k,912)
3690 141111616 : lu(k,920) = lu(k,920) * lu(k,912)
3691 141111616 : lu(k,921) = lu(k,921) * lu(k,912)
3692 141111616 : lu(k,922) = lu(k,922) * lu(k,912)
3693 141111616 : lu(k,923) = lu(k,923) * lu(k,912)
3694 141111616 : lu(k,924) = lu(k,924) * lu(k,912)
3695 141111616 : lu(k,1108) = lu(k,1108) - lu(k,913) * lu(k,1107)
3696 141111616 : lu(k,1109) = - lu(k,914) * lu(k,1107)
3697 141111616 : lu(k,1117) = lu(k,1117) - lu(k,915) * lu(k,1107)
3698 141111616 : lu(k,1118) = lu(k,1118) - lu(k,916) * lu(k,1107)
3699 141111616 : lu(k,1119) = lu(k,1119) - lu(k,917) * lu(k,1107)
3700 141111616 : lu(k,1120) = lu(k,1120) - lu(k,918) * lu(k,1107)
3701 141111616 : lu(k,1121) = lu(k,1121) - lu(k,919) * lu(k,1107)
3702 141111616 : lu(k,1122) = lu(k,1122) - lu(k,920) * lu(k,1107)
3703 141111616 : lu(k,1123) = lu(k,1123) - lu(k,921) * lu(k,1107)
3704 141111616 : lu(k,1126) = lu(k,1126) - lu(k,922) * lu(k,1107)
3705 141111616 : lu(k,1127) = lu(k,1127) - lu(k,923) * lu(k,1107)
3706 141111616 : lu(k,1128) = - lu(k,924) * lu(k,1107)
3707 141111616 : lu(k,1154) = lu(k,1154) - lu(k,913) * lu(k,1153)
3708 141111616 : lu(k,1155) = - lu(k,914) * lu(k,1153)
3709 141111616 : lu(k,1159) = lu(k,1159) - lu(k,915) * lu(k,1153)
3710 141111616 : lu(k,1160) = - lu(k,916) * lu(k,1153)
3711 141111616 : lu(k,1161) = lu(k,1161) - lu(k,917) * lu(k,1153)
3712 141111616 : lu(k,1162) = lu(k,1162) - lu(k,918) * lu(k,1153)
3713 141111616 : lu(k,1163) = lu(k,1163) - lu(k,919) * lu(k,1153)
3714 141111616 : lu(k,1164) = lu(k,1164) - lu(k,920) * lu(k,1153)
3715 141111616 : lu(k,1165) = lu(k,1165) - lu(k,921) * lu(k,1153)
3716 141111616 : lu(k,1167) = lu(k,1167) - lu(k,922) * lu(k,1153)
3717 141111616 : lu(k,1168) = lu(k,1168) - lu(k,923) * lu(k,1153)
3718 141111616 : lu(k,1169) = - lu(k,924) * lu(k,1153)
3719 141111616 : lu(k,1176) = lu(k,1176) - lu(k,913) * lu(k,1175)
3720 141111616 : lu(k,1177) = - lu(k,914) * lu(k,1175)
3721 141111616 : lu(k,1185) = lu(k,1185) - lu(k,915) * lu(k,1175)
3722 141111616 : lu(k,1186) = lu(k,1186) - lu(k,916) * lu(k,1175)
3723 141111616 : lu(k,1187) = lu(k,1187) - lu(k,917) * lu(k,1175)
3724 141111616 : lu(k,1188) = lu(k,1188) - lu(k,918) * lu(k,1175)
3725 141111616 : lu(k,1189) = lu(k,1189) - lu(k,919) * lu(k,1175)
3726 141111616 : lu(k,1190) = lu(k,1190) - lu(k,920) * lu(k,1175)
3727 141111616 : lu(k,1191) = lu(k,1191) - lu(k,921) * lu(k,1175)
3728 141111616 : lu(k,1194) = lu(k,1194) - lu(k,922) * lu(k,1175)
3729 141111616 : lu(k,1195) = lu(k,1195) - lu(k,923) * lu(k,1175)
3730 141111616 : lu(k,1196) = - lu(k,924) * lu(k,1175)
3731 141111616 : lu(k,1477) = lu(k,1477) - lu(k,913) * lu(k,1476)
3732 141111616 : lu(k,1481) = lu(k,1481) - lu(k,914) * lu(k,1476)
3733 141111616 : lu(k,1493) = lu(k,1493) - lu(k,915) * lu(k,1476)
3734 141111616 : lu(k,1495) = lu(k,1495) - lu(k,916) * lu(k,1476)
3735 141111616 : lu(k,1496) = lu(k,1496) - lu(k,917) * lu(k,1476)
3736 141111616 : lu(k,1497) = lu(k,1497) - lu(k,918) * lu(k,1476)
3737 141111616 : lu(k,1499) = lu(k,1499) - lu(k,919) * lu(k,1476)
3738 141111616 : lu(k,1501) = lu(k,1501) - lu(k,920) * lu(k,1476)
3739 141111616 : lu(k,1503) = lu(k,1503) - lu(k,921) * lu(k,1476)
3740 141111616 : lu(k,1507) = lu(k,1507) - lu(k,922) * lu(k,1476)
3741 141111616 : lu(k,1510) = lu(k,1510) - lu(k,923) * lu(k,1476)
3742 141111616 : lu(k,1511) = lu(k,1511) - lu(k,924) * lu(k,1476)
3743 141111616 : lu(k,1778) = lu(k,1778) - lu(k,913) * lu(k,1777)
3744 141111616 : lu(k,1782) = lu(k,1782) - lu(k,914) * lu(k,1777)
3745 141111616 : lu(k,1792) = lu(k,1792) - lu(k,915) * lu(k,1777)
3746 141111616 : lu(k,1794) = lu(k,1794) - lu(k,916) * lu(k,1777)
3747 141111616 : lu(k,1795) = lu(k,1795) - lu(k,917) * lu(k,1777)
3748 141111616 : lu(k,1796) = lu(k,1796) - lu(k,918) * lu(k,1777)
3749 141111616 : lu(k,1798) = lu(k,1798) - lu(k,919) * lu(k,1777)
3750 141111616 : lu(k,1800) = lu(k,1800) - lu(k,920) * lu(k,1777)
3751 141111616 : lu(k,1802) = lu(k,1802) - lu(k,921) * lu(k,1777)
3752 141111616 : lu(k,1806) = lu(k,1806) - lu(k,922) * lu(k,1777)
3753 141111616 : lu(k,1809) = lu(k,1809) - lu(k,923) * lu(k,1777)
3754 141111616 : lu(k,1810) = lu(k,1810) - lu(k,924) * lu(k,1777)
3755 141111616 : lu(k,1992) = lu(k,1992) - lu(k,913) * lu(k,1991)
3756 141111616 : lu(k,1996) = lu(k,1996) - lu(k,914) * lu(k,1991)
3757 141111616 : lu(k,2007) = lu(k,2007) - lu(k,915) * lu(k,1991)
3758 141111616 : lu(k,2009) = lu(k,2009) - lu(k,916) * lu(k,1991)
3759 141111616 : lu(k,2010) = lu(k,2010) - lu(k,917) * lu(k,1991)
3760 141111616 : lu(k,2011) = lu(k,2011) - lu(k,918) * lu(k,1991)
3761 141111616 : lu(k,2013) = lu(k,2013) - lu(k,919) * lu(k,1991)
3762 141111616 : lu(k,2015) = lu(k,2015) - lu(k,920) * lu(k,1991)
3763 141111616 : lu(k,2017) = lu(k,2017) - lu(k,921) * lu(k,1991)
3764 141111616 : lu(k,2021) = lu(k,2021) - lu(k,922) * lu(k,1991)
3765 141111616 : lu(k,2024) = lu(k,2024) - lu(k,923) * lu(k,1991)
3766 145521354 : lu(k,2025) = lu(k,2025) - lu(k,924) * lu(k,1991)
3767 : end do
3768 4409738 : end subroutine lu_fac19
3769 4409738 : subroutine lu_fac20( avec_len, lu )
3770 : use chem_mods, only : nzcnt
3771 : use shr_kind_mod, only : r8 => shr_kind_r8
3772 : implicit none
3773 : !-----------------------------------------------------------------------
3774 : ! ... dummy args
3775 : !-----------------------------------------------------------------------
3776 : integer, intent(in) :: avec_len
3777 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3778 : !-----------------------------------------------------------------------
3779 : ! ... local variables
3780 : !-----------------------------------------------------------------------
3781 : integer :: k
3782 145521354 : do k = 1,avec_len
3783 141111616 : lu(k,925) = 1._r8 / lu(k,925)
3784 141111616 : lu(k,926) = lu(k,926) * lu(k,925)
3785 141111616 : lu(k,927) = lu(k,927) * lu(k,925)
3786 141111616 : lu(k,928) = lu(k,928) * lu(k,925)
3787 141111616 : lu(k,929) = lu(k,929) * lu(k,925)
3788 141111616 : lu(k,930) = lu(k,930) * lu(k,925)
3789 141111616 : lu(k,996) = lu(k,996) - lu(k,926) * lu(k,994)
3790 141111616 : lu(k,997) = lu(k,997) - lu(k,927) * lu(k,994)
3791 141111616 : lu(k,999) = lu(k,999) - lu(k,928) * lu(k,994)
3792 141111616 : lu(k,1000) = lu(k,1000) - lu(k,929) * lu(k,994)
3793 141111616 : lu(k,1001) = lu(k,1001) - lu(k,930) * lu(k,994)
3794 141111616 : lu(k,1012) = lu(k,1012) - lu(k,926) * lu(k,1010)
3795 141111616 : lu(k,1013) = lu(k,1013) - lu(k,927) * lu(k,1010)
3796 141111616 : lu(k,1016) = lu(k,1016) - lu(k,928) * lu(k,1010)
3797 141111616 : lu(k,1017) = lu(k,1017) - lu(k,929) * lu(k,1010)
3798 141111616 : lu(k,1018) = lu(k,1018) - lu(k,930) * lu(k,1010)
3799 141111616 : lu(k,1112) = lu(k,1112) - lu(k,926) * lu(k,1108)
3800 141111616 : lu(k,1117) = lu(k,1117) - lu(k,927) * lu(k,1108)
3801 141111616 : lu(k,1121) = lu(k,1121) - lu(k,928) * lu(k,1108)
3802 141111616 : lu(k,1122) = lu(k,1122) - lu(k,929) * lu(k,1108)
3803 141111616 : lu(k,1123) = lu(k,1123) - lu(k,930) * lu(k,1108)
3804 141111616 : lu(k,1134) = lu(k,1134) - lu(k,926) * lu(k,1133)
3805 141111616 : lu(k,1137) = lu(k,1137) - lu(k,927) * lu(k,1133)
3806 141111616 : lu(k,1141) = lu(k,1141) - lu(k,928) * lu(k,1133)
3807 141111616 : lu(k,1142) = lu(k,1142) - lu(k,929) * lu(k,1133)
3808 141111616 : lu(k,1143) = lu(k,1143) - lu(k,930) * lu(k,1133)
3809 141111616 : lu(k,1156) = lu(k,1156) - lu(k,926) * lu(k,1154)
3810 141111616 : lu(k,1159) = lu(k,1159) - lu(k,927) * lu(k,1154)
3811 141111616 : lu(k,1163) = lu(k,1163) - lu(k,928) * lu(k,1154)
3812 141111616 : lu(k,1164) = lu(k,1164) - lu(k,929) * lu(k,1154)
3813 141111616 : lu(k,1165) = lu(k,1165) - lu(k,930) * lu(k,1154)
3814 141111616 : lu(k,1180) = - lu(k,926) * lu(k,1176)
3815 141111616 : lu(k,1185) = lu(k,1185) - lu(k,927) * lu(k,1176)
3816 141111616 : lu(k,1189) = lu(k,1189) - lu(k,928) * lu(k,1176)
3817 141111616 : lu(k,1190) = lu(k,1190) - lu(k,929) * lu(k,1176)
3818 141111616 : lu(k,1191) = lu(k,1191) - lu(k,930) * lu(k,1176)
3819 141111616 : lu(k,1201) = - lu(k,926) * lu(k,1200)
3820 141111616 : lu(k,1203) = lu(k,1203) - lu(k,927) * lu(k,1200)
3821 141111616 : lu(k,1207) = lu(k,1207) - lu(k,928) * lu(k,1200)
3822 141111616 : lu(k,1208) = lu(k,1208) - lu(k,929) * lu(k,1200)
3823 141111616 : lu(k,1209) = lu(k,1209) - lu(k,930) * lu(k,1200)
3824 141111616 : lu(k,1227) = lu(k,1227) - lu(k,926) * lu(k,1223)
3825 141111616 : lu(k,1233) = lu(k,1233) - lu(k,927) * lu(k,1223)
3826 141111616 : lu(k,1237) = lu(k,1237) - lu(k,928) * lu(k,1223)
3827 141111616 : lu(k,1238) = lu(k,1238) - lu(k,929) * lu(k,1223)
3828 141111616 : lu(k,1239) = lu(k,1239) - lu(k,930) * lu(k,1223)
3829 141111616 : lu(k,1311) = lu(k,1311) - lu(k,926) * lu(k,1303)
3830 141111616 : lu(k,1317) = lu(k,1317) - lu(k,927) * lu(k,1303)
3831 141111616 : lu(k,1322) = lu(k,1322) - lu(k,928) * lu(k,1303)
3832 141111616 : lu(k,1323) = lu(k,1323) - lu(k,929) * lu(k,1303)
3833 141111616 : lu(k,1325) = lu(k,1325) - lu(k,930) * lu(k,1303)
3834 141111616 : lu(k,1486) = lu(k,1486) - lu(k,926) * lu(k,1477)
3835 141111616 : lu(k,1493) = lu(k,1493) - lu(k,927) * lu(k,1477)
3836 141111616 : lu(k,1499) = lu(k,1499) - lu(k,928) * lu(k,1477)
3837 141111616 : lu(k,1501) = lu(k,1501) - lu(k,929) * lu(k,1477)
3838 141111616 : lu(k,1503) = lu(k,1503) - lu(k,930) * lu(k,1477)
3839 141111616 : lu(k,1670) = lu(k,1670) - lu(k,926) * lu(k,1661)
3840 141111616 : lu(k,1676) = lu(k,1676) - lu(k,927) * lu(k,1661)
3841 141111616 : lu(k,1682) = lu(k,1682) - lu(k,928) * lu(k,1661)
3842 141111616 : lu(k,1684) = lu(k,1684) - lu(k,929) * lu(k,1661)
3843 141111616 : lu(k,1686) = lu(k,1686) - lu(k,930) * lu(k,1661)
3844 141111616 : lu(k,1786) = lu(k,1786) - lu(k,926) * lu(k,1778)
3845 141111616 : lu(k,1792) = lu(k,1792) - lu(k,927) * lu(k,1778)
3846 141111616 : lu(k,1798) = lu(k,1798) - lu(k,928) * lu(k,1778)
3847 141111616 : lu(k,1800) = lu(k,1800) - lu(k,929) * lu(k,1778)
3848 141111616 : lu(k,1802) = lu(k,1802) - lu(k,930) * lu(k,1778)
3849 141111616 : lu(k,1845) = lu(k,1845) - lu(k,926) * lu(k,1838)
3850 141111616 : lu(k,1852) = lu(k,1852) - lu(k,927) * lu(k,1838)
3851 141111616 : lu(k,1858) = lu(k,1858) - lu(k,928) * lu(k,1838)
3852 141111616 : lu(k,1860) = lu(k,1860) - lu(k,929) * lu(k,1838)
3853 141111616 : lu(k,1862) = lu(k,1862) - lu(k,930) * lu(k,1838)
3854 141111616 : lu(k,1890) = lu(k,1890) - lu(k,926) * lu(k,1889)
3855 141111616 : lu(k,1893) = lu(k,1893) - lu(k,927) * lu(k,1889)
3856 141111616 : lu(k,1899) = lu(k,1899) - lu(k,928) * lu(k,1889)
3857 141111616 : lu(k,1901) = lu(k,1901) - lu(k,929) * lu(k,1889)
3858 141111616 : lu(k,1903) = lu(k,1903) - lu(k,930) * lu(k,1889)
3859 141111616 : lu(k,2000) = lu(k,2000) - lu(k,926) * lu(k,1992)
3860 141111616 : lu(k,2007) = lu(k,2007) - lu(k,927) * lu(k,1992)
3861 141111616 : lu(k,2013) = lu(k,2013) - lu(k,928) * lu(k,1992)
3862 141111616 : lu(k,2015) = lu(k,2015) - lu(k,929) * lu(k,1992)
3863 141111616 : lu(k,2017) = lu(k,2017) - lu(k,930) * lu(k,1992)
3864 141111616 : lu(k,938) = 1._r8 / lu(k,938)
3865 141111616 : lu(k,939) = lu(k,939) * lu(k,938)
3866 141111616 : lu(k,940) = lu(k,940) * lu(k,938)
3867 141111616 : lu(k,941) = lu(k,941) * lu(k,938)
3868 141111616 : lu(k,942) = lu(k,942) * lu(k,938)
3869 141111616 : lu(k,943) = lu(k,943) * lu(k,938)
3870 141111616 : lu(k,944) = lu(k,944) * lu(k,938)
3871 141111616 : lu(k,945) = lu(k,945) * lu(k,938)
3872 141111616 : lu(k,946) = lu(k,946) * lu(k,938)
3873 141111616 : lu(k,947) = lu(k,947) * lu(k,938)
3874 141111616 : lu(k,948) = lu(k,948) * lu(k,938)
3875 141111616 : lu(k,949) = lu(k,949) * lu(k,938)
3876 141111616 : lu(k,950) = lu(k,950) * lu(k,938)
3877 141111616 : lu(k,951) = lu(k,951) * lu(k,938)
3878 141111616 : lu(k,952) = lu(k,952) * lu(k,938)
3879 141111616 : lu(k,1305) = lu(k,1305) - lu(k,939) * lu(k,1304)
3880 141111616 : lu(k,1306) = lu(k,1306) - lu(k,940) * lu(k,1304)
3881 141111616 : lu(k,1307) = lu(k,1307) - lu(k,941) * lu(k,1304)
3882 141111616 : lu(k,1317) = lu(k,1317) - lu(k,942) * lu(k,1304)
3883 141111616 : lu(k,1318) = lu(k,1318) - lu(k,943) * lu(k,1304)
3884 141111616 : lu(k,1319) = lu(k,1319) - lu(k,944) * lu(k,1304)
3885 141111616 : lu(k,1320) = lu(k,1320) - lu(k,945) * lu(k,1304)
3886 141111616 : lu(k,1322) = lu(k,1322) - lu(k,946) * lu(k,1304)
3887 141111616 : lu(k,1323) = lu(k,1323) - lu(k,947) * lu(k,1304)
3888 141111616 : lu(k,1325) = lu(k,1325) - lu(k,948) * lu(k,1304)
3889 141111616 : lu(k,1327) = lu(k,1327) - lu(k,949) * lu(k,1304)
3890 141111616 : lu(k,1329) = lu(k,1329) - lu(k,950) * lu(k,1304)
3891 141111616 : lu(k,1332) = lu(k,1332) - lu(k,951) * lu(k,1304)
3892 141111616 : lu(k,1333) = lu(k,1333) - lu(k,952) * lu(k,1304)
3893 141111616 : lu(k,1479) = lu(k,1479) - lu(k,939) * lu(k,1478)
3894 141111616 : lu(k,1480) = lu(k,1480) - lu(k,940) * lu(k,1478)
3895 141111616 : lu(k,1481) = lu(k,1481) - lu(k,941) * lu(k,1478)
3896 141111616 : lu(k,1493) = lu(k,1493) - lu(k,942) * lu(k,1478)
3897 141111616 : lu(k,1495) = lu(k,1495) - lu(k,943) * lu(k,1478)
3898 141111616 : lu(k,1496) = lu(k,1496) - lu(k,944) * lu(k,1478)
3899 141111616 : lu(k,1497) = lu(k,1497) - lu(k,945) * lu(k,1478)
3900 141111616 : lu(k,1499) = lu(k,1499) - lu(k,946) * lu(k,1478)
3901 141111616 : lu(k,1501) = lu(k,1501) - lu(k,947) * lu(k,1478)
3902 141111616 : lu(k,1503) = lu(k,1503) - lu(k,948) * lu(k,1478)
3903 141111616 : lu(k,1505) = lu(k,1505) - lu(k,949) * lu(k,1478)
3904 141111616 : lu(k,1507) = lu(k,1507) - lu(k,950) * lu(k,1478)
3905 141111616 : lu(k,1510) = lu(k,1510) - lu(k,951) * lu(k,1478)
3906 141111616 : lu(k,1511) = lu(k,1511) - lu(k,952) * lu(k,1478)
3907 141111616 : lu(k,1663) = lu(k,1663) - lu(k,939) * lu(k,1662)
3908 141111616 : lu(k,1664) = lu(k,1664) - lu(k,940) * lu(k,1662)
3909 141111616 : lu(k,1665) = lu(k,1665) - lu(k,941) * lu(k,1662)
3910 141111616 : lu(k,1676) = lu(k,1676) - lu(k,942) * lu(k,1662)
3911 141111616 : lu(k,1678) = lu(k,1678) - lu(k,943) * lu(k,1662)
3912 141111616 : lu(k,1679) = lu(k,1679) - lu(k,944) * lu(k,1662)
3913 141111616 : lu(k,1680) = lu(k,1680) - lu(k,945) * lu(k,1662)
3914 141111616 : lu(k,1682) = lu(k,1682) - lu(k,946) * lu(k,1662)
3915 141111616 : lu(k,1684) = lu(k,1684) - lu(k,947) * lu(k,1662)
3916 141111616 : lu(k,1686) = lu(k,1686) - lu(k,948) * lu(k,1662)
3917 141111616 : lu(k,1688) = lu(k,1688) - lu(k,949) * lu(k,1662)
3918 141111616 : lu(k,1690) = lu(k,1690) - lu(k,950) * lu(k,1662)
3919 141111616 : lu(k,1693) = lu(k,1693) - lu(k,951) * lu(k,1662)
3920 141111616 : lu(k,1694) = lu(k,1694) - lu(k,952) * lu(k,1662)
3921 141111616 : lu(k,1780) = lu(k,1780) - lu(k,939) * lu(k,1779)
3922 141111616 : lu(k,1781) = lu(k,1781) - lu(k,940) * lu(k,1779)
3923 141111616 : lu(k,1782) = lu(k,1782) - lu(k,941) * lu(k,1779)
3924 141111616 : lu(k,1792) = lu(k,1792) - lu(k,942) * lu(k,1779)
3925 141111616 : lu(k,1794) = lu(k,1794) - lu(k,943) * lu(k,1779)
3926 141111616 : lu(k,1795) = lu(k,1795) - lu(k,944) * lu(k,1779)
3927 141111616 : lu(k,1796) = lu(k,1796) - lu(k,945) * lu(k,1779)
3928 141111616 : lu(k,1798) = lu(k,1798) - lu(k,946) * lu(k,1779)
3929 141111616 : lu(k,1800) = lu(k,1800) - lu(k,947) * lu(k,1779)
3930 141111616 : lu(k,1802) = lu(k,1802) - lu(k,948) * lu(k,1779)
3931 141111616 : lu(k,1804) = lu(k,1804) - lu(k,949) * lu(k,1779)
3932 141111616 : lu(k,1806) = lu(k,1806) - lu(k,950) * lu(k,1779)
3933 141111616 : lu(k,1809) = lu(k,1809) - lu(k,951) * lu(k,1779)
3934 141111616 : lu(k,1810) = lu(k,1810) - lu(k,952) * lu(k,1779)
3935 141111616 : lu(k,1840) = lu(k,1840) - lu(k,939) * lu(k,1839)
3936 141111616 : lu(k,1841) = lu(k,1841) - lu(k,940) * lu(k,1839)
3937 141111616 : lu(k,1842) = lu(k,1842) - lu(k,941) * lu(k,1839)
3938 141111616 : lu(k,1852) = lu(k,1852) - lu(k,942) * lu(k,1839)
3939 141111616 : lu(k,1854) = lu(k,1854) - lu(k,943) * lu(k,1839)
3940 141111616 : lu(k,1855) = lu(k,1855) - lu(k,944) * lu(k,1839)
3941 141111616 : lu(k,1856) = lu(k,1856) - lu(k,945) * lu(k,1839)
3942 141111616 : lu(k,1858) = lu(k,1858) - lu(k,946) * lu(k,1839)
3943 141111616 : lu(k,1860) = lu(k,1860) - lu(k,947) * lu(k,1839)
3944 141111616 : lu(k,1862) = lu(k,1862) - lu(k,948) * lu(k,1839)
3945 141111616 : lu(k,1864) = lu(k,1864) - lu(k,949) * lu(k,1839)
3946 141111616 : lu(k,1866) = lu(k,1866) - lu(k,950) * lu(k,1839)
3947 141111616 : lu(k,1869) = lu(k,1869) - lu(k,951) * lu(k,1839)
3948 141111616 : lu(k,1870) = lu(k,1870) - lu(k,952) * lu(k,1839)
3949 141111616 : lu(k,1994) = lu(k,1994) - lu(k,939) * lu(k,1993)
3950 141111616 : lu(k,1995) = lu(k,1995) - lu(k,940) * lu(k,1993)
3951 141111616 : lu(k,1996) = lu(k,1996) - lu(k,941) * lu(k,1993)
3952 141111616 : lu(k,2007) = lu(k,2007) - lu(k,942) * lu(k,1993)
3953 141111616 : lu(k,2009) = lu(k,2009) - lu(k,943) * lu(k,1993)
3954 141111616 : lu(k,2010) = lu(k,2010) - lu(k,944) * lu(k,1993)
3955 141111616 : lu(k,2011) = lu(k,2011) - lu(k,945) * lu(k,1993)
3956 141111616 : lu(k,2013) = lu(k,2013) - lu(k,946) * lu(k,1993)
3957 141111616 : lu(k,2015) = lu(k,2015) - lu(k,947) * lu(k,1993)
3958 141111616 : lu(k,2017) = lu(k,2017) - lu(k,948) * lu(k,1993)
3959 141111616 : lu(k,2019) = lu(k,2019) - lu(k,949) * lu(k,1993)
3960 141111616 : lu(k,2021) = lu(k,2021) - lu(k,950) * lu(k,1993)
3961 141111616 : lu(k,2024) = lu(k,2024) - lu(k,951) * lu(k,1993)
3962 141111616 : lu(k,2025) = lu(k,2025) - lu(k,952) * lu(k,1993)
3963 141111616 : lu(k,960) = 1._r8 / lu(k,960)
3964 141111616 : lu(k,961) = lu(k,961) * lu(k,960)
3965 141111616 : lu(k,962) = lu(k,962) * lu(k,960)
3966 141111616 : lu(k,963) = lu(k,963) * lu(k,960)
3967 141111616 : lu(k,964) = lu(k,964) * lu(k,960)
3968 141111616 : lu(k,965) = lu(k,965) * lu(k,960)
3969 141111616 : lu(k,966) = lu(k,966) * lu(k,960)
3970 141111616 : lu(k,967) = lu(k,967) * lu(k,960)
3971 141111616 : lu(k,968) = lu(k,968) * lu(k,960)
3972 141111616 : lu(k,969) = lu(k,969) * lu(k,960)
3973 141111616 : lu(k,970) = lu(k,970) * lu(k,960)
3974 141111616 : lu(k,971) = lu(k,971) * lu(k,960)
3975 141111616 : lu(k,980) = lu(k,980) - lu(k,961) * lu(k,978)
3976 141111616 : lu(k,981) = lu(k,981) - lu(k,962) * lu(k,978)
3977 141111616 : lu(k,982) = lu(k,982) - lu(k,963) * lu(k,978)
3978 141111616 : lu(k,983) = lu(k,983) - lu(k,964) * lu(k,978)
3979 141111616 : lu(k,984) = lu(k,984) - lu(k,965) * lu(k,978)
3980 141111616 : lu(k,985) = lu(k,985) - lu(k,966) * lu(k,978)
3981 141111616 : lu(k,986) = lu(k,986) - lu(k,967) * lu(k,978)
3982 141111616 : lu(k,987) = lu(k,987) - lu(k,968) * lu(k,978)
3983 141111616 : lu(k,988) = lu(k,988) - lu(k,969) * lu(k,978)
3984 141111616 : lu(k,989) = lu(k,989) - lu(k,970) * lu(k,978)
3985 141111616 : lu(k,991) = lu(k,991) - lu(k,971) * lu(k,978)
3986 141111616 : lu(k,1307) = lu(k,1307) - lu(k,961) * lu(k,1305)
3987 141111616 : lu(k,1317) = lu(k,1317) - lu(k,962) * lu(k,1305)
3988 141111616 : lu(k,1318) = lu(k,1318) - lu(k,963) * lu(k,1305)
3989 141111616 : lu(k,1319) = lu(k,1319) - lu(k,964) * lu(k,1305)
3990 141111616 : lu(k,1320) = lu(k,1320) - lu(k,965) * lu(k,1305)
3991 141111616 : lu(k,1322) = lu(k,1322) - lu(k,966) * lu(k,1305)
3992 141111616 : lu(k,1323) = lu(k,1323) - lu(k,967) * lu(k,1305)
3993 141111616 : lu(k,1325) = lu(k,1325) - lu(k,968) * lu(k,1305)
3994 141111616 : lu(k,1327) = lu(k,1327) - lu(k,969) * lu(k,1305)
3995 141111616 : lu(k,1329) = lu(k,1329) - lu(k,970) * lu(k,1305)
3996 141111616 : lu(k,1333) = lu(k,1333) - lu(k,971) * lu(k,1305)
3997 141111616 : lu(k,1481) = lu(k,1481) - lu(k,961) * lu(k,1479)
3998 141111616 : lu(k,1493) = lu(k,1493) - lu(k,962) * lu(k,1479)
3999 141111616 : lu(k,1495) = lu(k,1495) - lu(k,963) * lu(k,1479)
4000 141111616 : lu(k,1496) = lu(k,1496) - lu(k,964) * lu(k,1479)
4001 141111616 : lu(k,1497) = lu(k,1497) - lu(k,965) * lu(k,1479)
4002 141111616 : lu(k,1499) = lu(k,1499) - lu(k,966) * lu(k,1479)
4003 141111616 : lu(k,1501) = lu(k,1501) - lu(k,967) * lu(k,1479)
4004 141111616 : lu(k,1503) = lu(k,1503) - lu(k,968) * lu(k,1479)
4005 141111616 : lu(k,1505) = lu(k,1505) - lu(k,969) * lu(k,1479)
4006 141111616 : lu(k,1507) = lu(k,1507) - lu(k,970) * lu(k,1479)
4007 141111616 : lu(k,1511) = lu(k,1511) - lu(k,971) * lu(k,1479)
4008 141111616 : lu(k,1665) = lu(k,1665) - lu(k,961) * lu(k,1663)
4009 141111616 : lu(k,1676) = lu(k,1676) - lu(k,962) * lu(k,1663)
4010 141111616 : lu(k,1678) = lu(k,1678) - lu(k,963) * lu(k,1663)
4011 141111616 : lu(k,1679) = lu(k,1679) - lu(k,964) * lu(k,1663)
4012 141111616 : lu(k,1680) = lu(k,1680) - lu(k,965) * lu(k,1663)
4013 141111616 : lu(k,1682) = lu(k,1682) - lu(k,966) * lu(k,1663)
4014 141111616 : lu(k,1684) = lu(k,1684) - lu(k,967) * lu(k,1663)
4015 141111616 : lu(k,1686) = lu(k,1686) - lu(k,968) * lu(k,1663)
4016 141111616 : lu(k,1688) = lu(k,1688) - lu(k,969) * lu(k,1663)
4017 141111616 : lu(k,1690) = lu(k,1690) - lu(k,970) * lu(k,1663)
4018 141111616 : lu(k,1694) = lu(k,1694) - lu(k,971) * lu(k,1663)
4019 141111616 : lu(k,1782) = lu(k,1782) - lu(k,961) * lu(k,1780)
4020 141111616 : lu(k,1792) = lu(k,1792) - lu(k,962) * lu(k,1780)
4021 141111616 : lu(k,1794) = lu(k,1794) - lu(k,963) * lu(k,1780)
4022 141111616 : lu(k,1795) = lu(k,1795) - lu(k,964) * lu(k,1780)
4023 141111616 : lu(k,1796) = lu(k,1796) - lu(k,965) * lu(k,1780)
4024 141111616 : lu(k,1798) = lu(k,1798) - lu(k,966) * lu(k,1780)
4025 141111616 : lu(k,1800) = lu(k,1800) - lu(k,967) * lu(k,1780)
4026 141111616 : lu(k,1802) = lu(k,1802) - lu(k,968) * lu(k,1780)
4027 141111616 : lu(k,1804) = lu(k,1804) - lu(k,969) * lu(k,1780)
4028 141111616 : lu(k,1806) = lu(k,1806) - lu(k,970) * lu(k,1780)
4029 141111616 : lu(k,1810) = lu(k,1810) - lu(k,971) * lu(k,1780)
4030 141111616 : lu(k,1842) = lu(k,1842) - lu(k,961) * lu(k,1840)
4031 141111616 : lu(k,1852) = lu(k,1852) - lu(k,962) * lu(k,1840)
4032 141111616 : lu(k,1854) = lu(k,1854) - lu(k,963) * lu(k,1840)
4033 141111616 : lu(k,1855) = lu(k,1855) - lu(k,964) * lu(k,1840)
4034 141111616 : lu(k,1856) = lu(k,1856) - lu(k,965) * lu(k,1840)
4035 141111616 : lu(k,1858) = lu(k,1858) - lu(k,966) * lu(k,1840)
4036 141111616 : lu(k,1860) = lu(k,1860) - lu(k,967) * lu(k,1840)
4037 141111616 : lu(k,1862) = lu(k,1862) - lu(k,968) * lu(k,1840)
4038 141111616 : lu(k,1864) = lu(k,1864) - lu(k,969) * lu(k,1840)
4039 141111616 : lu(k,1866) = lu(k,1866) - lu(k,970) * lu(k,1840)
4040 141111616 : lu(k,1870) = lu(k,1870) - lu(k,971) * lu(k,1840)
4041 141111616 : lu(k,1996) = lu(k,1996) - lu(k,961) * lu(k,1994)
4042 141111616 : lu(k,2007) = lu(k,2007) - lu(k,962) * lu(k,1994)
4043 141111616 : lu(k,2009) = lu(k,2009) - lu(k,963) * lu(k,1994)
4044 141111616 : lu(k,2010) = lu(k,2010) - lu(k,964) * lu(k,1994)
4045 141111616 : lu(k,2011) = lu(k,2011) - lu(k,965) * lu(k,1994)
4046 141111616 : lu(k,2013) = lu(k,2013) - lu(k,966) * lu(k,1994)
4047 141111616 : lu(k,2015) = lu(k,2015) - lu(k,967) * lu(k,1994)
4048 141111616 : lu(k,2017) = lu(k,2017) - lu(k,968) * lu(k,1994)
4049 141111616 : lu(k,2019) = lu(k,2019) - lu(k,969) * lu(k,1994)
4050 141111616 : lu(k,2021) = lu(k,2021) - lu(k,970) * lu(k,1994)
4051 141111616 : lu(k,2025) = lu(k,2025) - lu(k,971) * lu(k,1994)
4052 141111616 : lu(k,979) = 1._r8 / lu(k,979)
4053 141111616 : lu(k,980) = lu(k,980) * lu(k,979)
4054 141111616 : lu(k,981) = lu(k,981) * lu(k,979)
4055 141111616 : lu(k,982) = lu(k,982) * lu(k,979)
4056 141111616 : lu(k,983) = lu(k,983) * lu(k,979)
4057 141111616 : lu(k,984) = lu(k,984) * lu(k,979)
4058 141111616 : lu(k,985) = lu(k,985) * lu(k,979)
4059 141111616 : lu(k,986) = lu(k,986) * lu(k,979)
4060 141111616 : lu(k,987) = lu(k,987) * lu(k,979)
4061 141111616 : lu(k,988) = lu(k,988) * lu(k,979)
4062 141111616 : lu(k,989) = lu(k,989) * lu(k,979)
4063 141111616 : lu(k,990) = lu(k,990) * lu(k,979)
4064 141111616 : lu(k,991) = lu(k,991) * lu(k,979)
4065 141111616 : lu(k,1307) = lu(k,1307) - lu(k,980) * lu(k,1306)
4066 141111616 : lu(k,1317) = lu(k,1317) - lu(k,981) * lu(k,1306)
4067 141111616 : lu(k,1318) = lu(k,1318) - lu(k,982) * lu(k,1306)
4068 141111616 : lu(k,1319) = lu(k,1319) - lu(k,983) * lu(k,1306)
4069 141111616 : lu(k,1320) = lu(k,1320) - lu(k,984) * lu(k,1306)
4070 141111616 : lu(k,1322) = lu(k,1322) - lu(k,985) * lu(k,1306)
4071 141111616 : lu(k,1323) = lu(k,1323) - lu(k,986) * lu(k,1306)
4072 141111616 : lu(k,1325) = lu(k,1325) - lu(k,987) * lu(k,1306)
4073 141111616 : lu(k,1327) = lu(k,1327) - lu(k,988) * lu(k,1306)
4074 141111616 : lu(k,1329) = lu(k,1329) - lu(k,989) * lu(k,1306)
4075 141111616 : lu(k,1332) = lu(k,1332) - lu(k,990) * lu(k,1306)
4076 141111616 : lu(k,1333) = lu(k,1333) - lu(k,991) * lu(k,1306)
4077 141111616 : lu(k,1481) = lu(k,1481) - lu(k,980) * lu(k,1480)
4078 141111616 : lu(k,1493) = lu(k,1493) - lu(k,981) * lu(k,1480)
4079 141111616 : lu(k,1495) = lu(k,1495) - lu(k,982) * lu(k,1480)
4080 141111616 : lu(k,1496) = lu(k,1496) - lu(k,983) * lu(k,1480)
4081 141111616 : lu(k,1497) = lu(k,1497) - lu(k,984) * lu(k,1480)
4082 141111616 : lu(k,1499) = lu(k,1499) - lu(k,985) * lu(k,1480)
4083 141111616 : lu(k,1501) = lu(k,1501) - lu(k,986) * lu(k,1480)
4084 141111616 : lu(k,1503) = lu(k,1503) - lu(k,987) * lu(k,1480)
4085 141111616 : lu(k,1505) = lu(k,1505) - lu(k,988) * lu(k,1480)
4086 141111616 : lu(k,1507) = lu(k,1507) - lu(k,989) * lu(k,1480)
4087 141111616 : lu(k,1510) = lu(k,1510) - lu(k,990) * lu(k,1480)
4088 141111616 : lu(k,1511) = lu(k,1511) - lu(k,991) * lu(k,1480)
4089 141111616 : lu(k,1665) = lu(k,1665) - lu(k,980) * lu(k,1664)
4090 141111616 : lu(k,1676) = lu(k,1676) - lu(k,981) * lu(k,1664)
4091 141111616 : lu(k,1678) = lu(k,1678) - lu(k,982) * lu(k,1664)
4092 141111616 : lu(k,1679) = lu(k,1679) - lu(k,983) * lu(k,1664)
4093 141111616 : lu(k,1680) = lu(k,1680) - lu(k,984) * lu(k,1664)
4094 141111616 : lu(k,1682) = lu(k,1682) - lu(k,985) * lu(k,1664)
4095 141111616 : lu(k,1684) = lu(k,1684) - lu(k,986) * lu(k,1664)
4096 141111616 : lu(k,1686) = lu(k,1686) - lu(k,987) * lu(k,1664)
4097 141111616 : lu(k,1688) = lu(k,1688) - lu(k,988) * lu(k,1664)
4098 141111616 : lu(k,1690) = lu(k,1690) - lu(k,989) * lu(k,1664)
4099 141111616 : lu(k,1693) = lu(k,1693) - lu(k,990) * lu(k,1664)
4100 141111616 : lu(k,1694) = lu(k,1694) - lu(k,991) * lu(k,1664)
4101 141111616 : lu(k,1782) = lu(k,1782) - lu(k,980) * lu(k,1781)
4102 141111616 : lu(k,1792) = lu(k,1792) - lu(k,981) * lu(k,1781)
4103 141111616 : lu(k,1794) = lu(k,1794) - lu(k,982) * lu(k,1781)
4104 141111616 : lu(k,1795) = lu(k,1795) - lu(k,983) * lu(k,1781)
4105 141111616 : lu(k,1796) = lu(k,1796) - lu(k,984) * lu(k,1781)
4106 141111616 : lu(k,1798) = lu(k,1798) - lu(k,985) * lu(k,1781)
4107 141111616 : lu(k,1800) = lu(k,1800) - lu(k,986) * lu(k,1781)
4108 141111616 : lu(k,1802) = lu(k,1802) - lu(k,987) * lu(k,1781)
4109 141111616 : lu(k,1804) = lu(k,1804) - lu(k,988) * lu(k,1781)
4110 141111616 : lu(k,1806) = lu(k,1806) - lu(k,989) * lu(k,1781)
4111 141111616 : lu(k,1809) = lu(k,1809) - lu(k,990) * lu(k,1781)
4112 141111616 : lu(k,1810) = lu(k,1810) - lu(k,991) * lu(k,1781)
4113 141111616 : lu(k,1842) = lu(k,1842) - lu(k,980) * lu(k,1841)
4114 141111616 : lu(k,1852) = lu(k,1852) - lu(k,981) * lu(k,1841)
4115 141111616 : lu(k,1854) = lu(k,1854) - lu(k,982) * lu(k,1841)
4116 141111616 : lu(k,1855) = lu(k,1855) - lu(k,983) * lu(k,1841)
4117 141111616 : lu(k,1856) = lu(k,1856) - lu(k,984) * lu(k,1841)
4118 141111616 : lu(k,1858) = lu(k,1858) - lu(k,985) * lu(k,1841)
4119 141111616 : lu(k,1860) = lu(k,1860) - lu(k,986) * lu(k,1841)
4120 141111616 : lu(k,1862) = lu(k,1862) - lu(k,987) * lu(k,1841)
4121 141111616 : lu(k,1864) = lu(k,1864) - lu(k,988) * lu(k,1841)
4122 141111616 : lu(k,1866) = lu(k,1866) - lu(k,989) * lu(k,1841)
4123 141111616 : lu(k,1869) = lu(k,1869) - lu(k,990) * lu(k,1841)
4124 141111616 : lu(k,1870) = lu(k,1870) - lu(k,991) * lu(k,1841)
4125 141111616 : lu(k,1996) = lu(k,1996) - lu(k,980) * lu(k,1995)
4126 141111616 : lu(k,2007) = lu(k,2007) - lu(k,981) * lu(k,1995)
4127 141111616 : lu(k,2009) = lu(k,2009) - lu(k,982) * lu(k,1995)
4128 141111616 : lu(k,2010) = lu(k,2010) - lu(k,983) * lu(k,1995)
4129 141111616 : lu(k,2011) = lu(k,2011) - lu(k,984) * lu(k,1995)
4130 141111616 : lu(k,2013) = lu(k,2013) - lu(k,985) * lu(k,1995)
4131 141111616 : lu(k,2015) = lu(k,2015) - lu(k,986) * lu(k,1995)
4132 141111616 : lu(k,2017) = lu(k,2017) - lu(k,987) * lu(k,1995)
4133 141111616 : lu(k,2019) = lu(k,2019) - lu(k,988) * lu(k,1995)
4134 141111616 : lu(k,2021) = lu(k,2021) - lu(k,989) * lu(k,1995)
4135 141111616 : lu(k,2024) = lu(k,2024) - lu(k,990) * lu(k,1995)
4136 141111616 : lu(k,2025) = lu(k,2025) - lu(k,991) * lu(k,1995)
4137 141111616 : lu(k,995) = 1._r8 / lu(k,995)
4138 141111616 : lu(k,996) = lu(k,996) * lu(k,995)
4139 141111616 : lu(k,997) = lu(k,997) * lu(k,995)
4140 141111616 : lu(k,998) = lu(k,998) * lu(k,995)
4141 141111616 : lu(k,999) = lu(k,999) * lu(k,995)
4142 141111616 : lu(k,1000) = lu(k,1000) * lu(k,995)
4143 141111616 : lu(k,1001) = lu(k,1001) * lu(k,995)
4144 141111616 : lu(k,1002) = lu(k,1002) * lu(k,995)
4145 141111616 : lu(k,1003) = lu(k,1003) * lu(k,995)
4146 141111616 : lu(k,1004) = lu(k,1004) * lu(k,995)
4147 141111616 : lu(k,1112) = lu(k,1112) - lu(k,996) * lu(k,1109)
4148 141111616 : lu(k,1117) = lu(k,1117) - lu(k,997) * lu(k,1109)
4149 141111616 : lu(k,1120) = lu(k,1120) - lu(k,998) * lu(k,1109)
4150 141111616 : lu(k,1121) = lu(k,1121) - lu(k,999) * lu(k,1109)
4151 141111616 : lu(k,1122) = lu(k,1122) - lu(k,1000) * lu(k,1109)
4152 141111616 : lu(k,1123) = lu(k,1123) - lu(k,1001) * lu(k,1109)
4153 141111616 : lu(k,1124) = lu(k,1124) - lu(k,1002) * lu(k,1109)
4154 141111616 : lu(k,1126) = lu(k,1126) - lu(k,1003) * lu(k,1109)
4155 141111616 : lu(k,1128) = lu(k,1128) - lu(k,1004) * lu(k,1109)
4156 141111616 : lu(k,1156) = lu(k,1156) - lu(k,996) * lu(k,1155)
4157 141111616 : lu(k,1159) = lu(k,1159) - lu(k,997) * lu(k,1155)
4158 141111616 : lu(k,1162) = lu(k,1162) - lu(k,998) * lu(k,1155)
4159 141111616 : lu(k,1163) = lu(k,1163) - lu(k,999) * lu(k,1155)
4160 141111616 : lu(k,1164) = lu(k,1164) - lu(k,1000) * lu(k,1155)
4161 141111616 : lu(k,1165) = lu(k,1165) - lu(k,1001) * lu(k,1155)
4162 141111616 : lu(k,1166) = lu(k,1166) - lu(k,1002) * lu(k,1155)
4163 141111616 : lu(k,1167) = lu(k,1167) - lu(k,1003) * lu(k,1155)
4164 141111616 : lu(k,1169) = lu(k,1169) - lu(k,1004) * lu(k,1155)
4165 141111616 : lu(k,1180) = lu(k,1180) - lu(k,996) * lu(k,1177)
4166 141111616 : lu(k,1185) = lu(k,1185) - lu(k,997) * lu(k,1177)
4167 141111616 : lu(k,1188) = lu(k,1188) - lu(k,998) * lu(k,1177)
4168 141111616 : lu(k,1189) = lu(k,1189) - lu(k,999) * lu(k,1177)
4169 141111616 : lu(k,1190) = lu(k,1190) - lu(k,1000) * lu(k,1177)
4170 141111616 : lu(k,1191) = lu(k,1191) - lu(k,1001) * lu(k,1177)
4171 141111616 : lu(k,1192) = lu(k,1192) - lu(k,1002) * lu(k,1177)
4172 141111616 : lu(k,1194) = lu(k,1194) - lu(k,1003) * lu(k,1177)
4173 141111616 : lu(k,1196) = lu(k,1196) - lu(k,1004) * lu(k,1177)
4174 141111616 : lu(k,1311) = lu(k,1311) - lu(k,996) * lu(k,1307)
4175 141111616 : lu(k,1317) = lu(k,1317) - lu(k,997) * lu(k,1307)
4176 141111616 : lu(k,1320) = lu(k,1320) - lu(k,998) * lu(k,1307)
4177 141111616 : lu(k,1322) = lu(k,1322) - lu(k,999) * lu(k,1307)
4178 141111616 : lu(k,1323) = lu(k,1323) - lu(k,1000) * lu(k,1307)
4179 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1001) * lu(k,1307)
4180 141111616 : lu(k,1327) = lu(k,1327) - lu(k,1002) * lu(k,1307)
4181 141111616 : lu(k,1329) = lu(k,1329) - lu(k,1003) * lu(k,1307)
4182 141111616 : lu(k,1333) = lu(k,1333) - lu(k,1004) * lu(k,1307)
4183 141111616 : lu(k,1486) = lu(k,1486) - lu(k,996) * lu(k,1481)
4184 141111616 : lu(k,1493) = lu(k,1493) - lu(k,997) * lu(k,1481)
4185 141111616 : lu(k,1497) = lu(k,1497) - lu(k,998) * lu(k,1481)
4186 141111616 : lu(k,1499) = lu(k,1499) - lu(k,999) * lu(k,1481)
4187 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1000) * lu(k,1481)
4188 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1001) * lu(k,1481)
4189 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1002) * lu(k,1481)
4190 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1003) * lu(k,1481)
4191 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1004) * lu(k,1481)
4192 141111616 : lu(k,1670) = lu(k,1670) - lu(k,996) * lu(k,1665)
4193 141111616 : lu(k,1676) = lu(k,1676) - lu(k,997) * lu(k,1665)
4194 141111616 : lu(k,1680) = lu(k,1680) - lu(k,998) * lu(k,1665)
4195 141111616 : lu(k,1682) = lu(k,1682) - lu(k,999) * lu(k,1665)
4196 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1000) * lu(k,1665)
4197 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1001) * lu(k,1665)
4198 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1002) * lu(k,1665)
4199 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1003) * lu(k,1665)
4200 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1004) * lu(k,1665)
4201 141111616 : lu(k,1786) = lu(k,1786) - lu(k,996) * lu(k,1782)
4202 141111616 : lu(k,1792) = lu(k,1792) - lu(k,997) * lu(k,1782)
4203 141111616 : lu(k,1796) = lu(k,1796) - lu(k,998) * lu(k,1782)
4204 141111616 : lu(k,1798) = lu(k,1798) - lu(k,999) * lu(k,1782)
4205 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1000) * lu(k,1782)
4206 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1001) * lu(k,1782)
4207 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1002) * lu(k,1782)
4208 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1003) * lu(k,1782)
4209 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1004) * lu(k,1782)
4210 141111616 : lu(k,1845) = lu(k,1845) - lu(k,996) * lu(k,1842)
4211 141111616 : lu(k,1852) = lu(k,1852) - lu(k,997) * lu(k,1842)
4212 141111616 : lu(k,1856) = lu(k,1856) - lu(k,998) * lu(k,1842)
4213 141111616 : lu(k,1858) = lu(k,1858) - lu(k,999) * lu(k,1842)
4214 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1000) * lu(k,1842)
4215 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1001) * lu(k,1842)
4216 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1002) * lu(k,1842)
4217 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1003) * lu(k,1842)
4218 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1004) * lu(k,1842)
4219 141111616 : lu(k,2000) = lu(k,2000) - lu(k,996) * lu(k,1996)
4220 141111616 : lu(k,2007) = lu(k,2007) - lu(k,997) * lu(k,1996)
4221 141111616 : lu(k,2011) = lu(k,2011) - lu(k,998) * lu(k,1996)
4222 141111616 : lu(k,2013) = lu(k,2013) - lu(k,999) * lu(k,1996)
4223 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1000) * lu(k,1996)
4224 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1001) * lu(k,1996)
4225 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1002) * lu(k,1996)
4226 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1003) * lu(k,1996)
4227 145521354 : lu(k,2025) = lu(k,2025) - lu(k,1004) * lu(k,1996)
4228 : end do
4229 4409738 : end subroutine lu_fac20
4230 4409738 : subroutine lu_fac21( avec_len, lu )
4231 : use chem_mods, only : nzcnt
4232 : use shr_kind_mod, only : r8 => shr_kind_r8
4233 : implicit none
4234 : !-----------------------------------------------------------------------
4235 : ! ... dummy args
4236 : !-----------------------------------------------------------------------
4237 : integer, intent(in) :: avec_len
4238 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4239 : !-----------------------------------------------------------------------
4240 : ! ... local variables
4241 : !-----------------------------------------------------------------------
4242 : integer :: k
4243 145521354 : do k = 1,avec_len
4244 141111616 : lu(k,1011) = 1._r8 / lu(k,1011)
4245 141111616 : lu(k,1012) = lu(k,1012) * lu(k,1011)
4246 141111616 : lu(k,1013) = lu(k,1013) * lu(k,1011)
4247 141111616 : lu(k,1014) = lu(k,1014) * lu(k,1011)
4248 141111616 : lu(k,1015) = lu(k,1015) * lu(k,1011)
4249 141111616 : lu(k,1016) = lu(k,1016) * lu(k,1011)
4250 141111616 : lu(k,1017) = lu(k,1017) * lu(k,1011)
4251 141111616 : lu(k,1018) = lu(k,1018) * lu(k,1011)
4252 141111616 : lu(k,1019) = lu(k,1019) * lu(k,1011)
4253 141111616 : lu(k,1020) = lu(k,1020) * lu(k,1011)
4254 141111616 : lu(k,1021) = lu(k,1021) * lu(k,1011)
4255 141111616 : lu(k,1046) = lu(k,1046) - lu(k,1012) * lu(k,1043)
4256 141111616 : lu(k,1048) = lu(k,1048) - lu(k,1013) * lu(k,1043)
4257 141111616 : lu(k,1050) = lu(k,1050) - lu(k,1014) * lu(k,1043)
4258 141111616 : lu(k,1051) = lu(k,1051) - lu(k,1015) * lu(k,1043)
4259 141111616 : lu(k,1052) = lu(k,1052) - lu(k,1016) * lu(k,1043)
4260 141111616 : lu(k,1053) = lu(k,1053) - lu(k,1017) * lu(k,1043)
4261 141111616 : lu(k,1054) = lu(k,1054) - lu(k,1018) * lu(k,1043)
4262 141111616 : lu(k,1055) = lu(k,1055) - lu(k,1019) * lu(k,1043)
4263 141111616 : lu(k,1056) = lu(k,1056) - lu(k,1020) * lu(k,1043)
4264 141111616 : lu(k,1057) = lu(k,1057) - lu(k,1021) * lu(k,1043)
4265 141111616 : lu(k,1112) = lu(k,1112) - lu(k,1012) * lu(k,1110)
4266 141111616 : lu(k,1117) = lu(k,1117) - lu(k,1013) * lu(k,1110)
4267 141111616 : lu(k,1119) = lu(k,1119) - lu(k,1014) * lu(k,1110)
4268 141111616 : lu(k,1120) = lu(k,1120) - lu(k,1015) * lu(k,1110)
4269 141111616 : lu(k,1121) = lu(k,1121) - lu(k,1016) * lu(k,1110)
4270 141111616 : lu(k,1122) = lu(k,1122) - lu(k,1017) * lu(k,1110)
4271 141111616 : lu(k,1123) = lu(k,1123) - lu(k,1018) * lu(k,1110)
4272 141111616 : lu(k,1124) = lu(k,1124) - lu(k,1019) * lu(k,1110)
4273 141111616 : lu(k,1126) = lu(k,1126) - lu(k,1020) * lu(k,1110)
4274 141111616 : lu(k,1127) = lu(k,1127) - lu(k,1021) * lu(k,1110)
4275 141111616 : lu(k,1180) = lu(k,1180) - lu(k,1012) * lu(k,1178)
4276 141111616 : lu(k,1185) = lu(k,1185) - lu(k,1013) * lu(k,1178)
4277 141111616 : lu(k,1187) = lu(k,1187) - lu(k,1014) * lu(k,1178)
4278 141111616 : lu(k,1188) = lu(k,1188) - lu(k,1015) * lu(k,1178)
4279 141111616 : lu(k,1189) = lu(k,1189) - lu(k,1016) * lu(k,1178)
4280 141111616 : lu(k,1190) = lu(k,1190) - lu(k,1017) * lu(k,1178)
4281 141111616 : lu(k,1191) = lu(k,1191) - lu(k,1018) * lu(k,1178)
4282 141111616 : lu(k,1192) = lu(k,1192) - lu(k,1019) * lu(k,1178)
4283 141111616 : lu(k,1194) = lu(k,1194) - lu(k,1020) * lu(k,1178)
4284 141111616 : lu(k,1195) = lu(k,1195) - lu(k,1021) * lu(k,1178)
4285 141111616 : lu(k,1227) = lu(k,1227) - lu(k,1012) * lu(k,1224)
4286 141111616 : lu(k,1233) = lu(k,1233) - lu(k,1013) * lu(k,1224)
4287 141111616 : lu(k,1235) = lu(k,1235) - lu(k,1014) * lu(k,1224)
4288 141111616 : lu(k,1236) = lu(k,1236) - lu(k,1015) * lu(k,1224)
4289 141111616 : lu(k,1237) = lu(k,1237) - lu(k,1016) * lu(k,1224)
4290 141111616 : lu(k,1238) = lu(k,1238) - lu(k,1017) * lu(k,1224)
4291 141111616 : lu(k,1239) = lu(k,1239) - lu(k,1018) * lu(k,1224)
4292 141111616 : lu(k,1240) = lu(k,1240) - lu(k,1019) * lu(k,1224)
4293 141111616 : lu(k,1242) = lu(k,1242) - lu(k,1020) * lu(k,1224)
4294 141111616 : lu(k,1243) = lu(k,1243) - lu(k,1021) * lu(k,1224)
4295 141111616 : lu(k,1311) = lu(k,1311) - lu(k,1012) * lu(k,1308)
4296 141111616 : lu(k,1317) = lu(k,1317) - lu(k,1013) * lu(k,1308)
4297 141111616 : lu(k,1319) = lu(k,1319) - lu(k,1014) * lu(k,1308)
4298 141111616 : lu(k,1320) = lu(k,1320) - lu(k,1015) * lu(k,1308)
4299 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1016) * lu(k,1308)
4300 141111616 : lu(k,1323) = lu(k,1323) - lu(k,1017) * lu(k,1308)
4301 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1018) * lu(k,1308)
4302 141111616 : lu(k,1327) = lu(k,1327) - lu(k,1019) * lu(k,1308)
4303 141111616 : lu(k,1329) = lu(k,1329) - lu(k,1020) * lu(k,1308)
4304 141111616 : lu(k,1332) = lu(k,1332) - lu(k,1021) * lu(k,1308)
4305 141111616 : lu(k,1486) = lu(k,1486) - lu(k,1012) * lu(k,1482)
4306 141111616 : lu(k,1493) = lu(k,1493) - lu(k,1013) * lu(k,1482)
4307 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1014) * lu(k,1482)
4308 141111616 : lu(k,1497) = lu(k,1497) - lu(k,1015) * lu(k,1482)
4309 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1016) * lu(k,1482)
4310 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1017) * lu(k,1482)
4311 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1018) * lu(k,1482)
4312 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1019) * lu(k,1482)
4313 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1020) * lu(k,1482)
4314 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1021) * lu(k,1482)
4315 141111616 : lu(k,1670) = lu(k,1670) - lu(k,1012) * lu(k,1666)
4316 141111616 : lu(k,1676) = lu(k,1676) - lu(k,1013) * lu(k,1666)
4317 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1014) * lu(k,1666)
4318 141111616 : lu(k,1680) = lu(k,1680) - lu(k,1015) * lu(k,1666)
4319 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1016) * lu(k,1666)
4320 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1017) * lu(k,1666)
4321 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1018) * lu(k,1666)
4322 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1019) * lu(k,1666)
4323 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1020) * lu(k,1666)
4324 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1021) * lu(k,1666)
4325 141111616 : lu(k,1786) = lu(k,1786) - lu(k,1012) * lu(k,1783)
4326 141111616 : lu(k,1792) = lu(k,1792) - lu(k,1013) * lu(k,1783)
4327 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1014) * lu(k,1783)
4328 141111616 : lu(k,1796) = lu(k,1796) - lu(k,1015) * lu(k,1783)
4329 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1016) * lu(k,1783)
4330 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1017) * lu(k,1783)
4331 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1018) * lu(k,1783)
4332 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1019) * lu(k,1783)
4333 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1020) * lu(k,1783)
4334 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1021) * lu(k,1783)
4335 141111616 : lu(k,2000) = lu(k,2000) - lu(k,1012) * lu(k,1997)
4336 141111616 : lu(k,2007) = lu(k,2007) - lu(k,1013) * lu(k,1997)
4337 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1014) * lu(k,1997)
4338 141111616 : lu(k,2011) = lu(k,2011) - lu(k,1015) * lu(k,1997)
4339 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1016) * lu(k,1997)
4340 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1017) * lu(k,1997)
4341 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1018) * lu(k,1997)
4342 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1019) * lu(k,1997)
4343 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1020) * lu(k,1997)
4344 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1021) * lu(k,1997)
4345 141111616 : lu(k,1024) = 1._r8 / lu(k,1024)
4346 141111616 : lu(k,1025) = lu(k,1025) * lu(k,1024)
4347 141111616 : lu(k,1026) = lu(k,1026) * lu(k,1024)
4348 141111616 : lu(k,1027) = lu(k,1027) * lu(k,1024)
4349 141111616 : lu(k,1028) = lu(k,1028) * lu(k,1024)
4350 141111616 : lu(k,1029) = lu(k,1029) * lu(k,1024)
4351 141111616 : lu(k,1030) = lu(k,1030) * lu(k,1024)
4352 141111616 : lu(k,1031) = lu(k,1031) * lu(k,1024)
4353 141111616 : lu(k,1032) = lu(k,1032) * lu(k,1024)
4354 141111616 : lu(k,1033) = lu(k,1033) * lu(k,1024)
4355 141111616 : lu(k,1034) = lu(k,1034) * lu(k,1024)
4356 141111616 : lu(k,1260) = lu(k,1260) - lu(k,1025) * lu(k,1259)
4357 141111616 : lu(k,1261) = lu(k,1261) - lu(k,1026) * lu(k,1259)
4358 141111616 : lu(k,1262) = lu(k,1262) - lu(k,1027) * lu(k,1259)
4359 141111616 : lu(k,1263) = - lu(k,1028) * lu(k,1259)
4360 141111616 : lu(k,1264) = lu(k,1264) - lu(k,1029) * lu(k,1259)
4361 141111616 : lu(k,1265) = - lu(k,1030) * lu(k,1259)
4362 141111616 : lu(k,1267) = - lu(k,1031) * lu(k,1259)
4363 141111616 : lu(k,1268) = - lu(k,1032) * lu(k,1259)
4364 141111616 : lu(k,1269) = lu(k,1269) - lu(k,1033) * lu(k,1259)
4365 141111616 : lu(k,1270) = lu(k,1270) - lu(k,1034) * lu(k,1259)
4366 141111616 : lu(k,1272) = - lu(k,1025) * lu(k,1271)
4367 141111616 : lu(k,1273) = lu(k,1273) - lu(k,1026) * lu(k,1271)
4368 141111616 : lu(k,1274) = - lu(k,1027) * lu(k,1271)
4369 141111616 : lu(k,1275) = - lu(k,1028) * lu(k,1271)
4370 141111616 : lu(k,1276) = lu(k,1276) - lu(k,1029) * lu(k,1271)
4371 141111616 : lu(k,1277) = lu(k,1277) - lu(k,1030) * lu(k,1271)
4372 141111616 : lu(k,1281) = - lu(k,1031) * lu(k,1271)
4373 141111616 : lu(k,1282) = - lu(k,1032) * lu(k,1271)
4374 141111616 : lu(k,1283) = - lu(k,1033) * lu(k,1271)
4375 141111616 : lu(k,1284) = lu(k,1284) - lu(k,1034) * lu(k,1271)
4376 141111616 : lu(k,1341) = lu(k,1341) - lu(k,1025) * lu(k,1339)
4377 141111616 : lu(k,1342) = lu(k,1342) - lu(k,1026) * lu(k,1339)
4378 141111616 : lu(k,1343) = lu(k,1343) - lu(k,1027) * lu(k,1339)
4379 141111616 : lu(k,1344) = lu(k,1344) - lu(k,1028) * lu(k,1339)
4380 141111616 : lu(k,1345) = lu(k,1345) - lu(k,1029) * lu(k,1339)
4381 141111616 : lu(k,1348) = lu(k,1348) - lu(k,1030) * lu(k,1339)
4382 141111616 : lu(k,1354) = lu(k,1354) - lu(k,1031) * lu(k,1339)
4383 141111616 : lu(k,1355) = lu(k,1355) - lu(k,1032) * lu(k,1339)
4384 141111616 : lu(k,1356) = lu(k,1356) - lu(k,1033) * lu(k,1339)
4385 141111616 : lu(k,1357) = lu(k,1357) - lu(k,1034) * lu(k,1339)
4386 141111616 : lu(k,1495) = lu(k,1495) - lu(k,1025) * lu(k,1483)
4387 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1026) * lu(k,1483)
4388 141111616 : lu(k,1497) = lu(k,1497) - lu(k,1027) * lu(k,1483)
4389 141111616 : lu(k,1498) = lu(k,1498) - lu(k,1028) * lu(k,1483)
4390 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1029) * lu(k,1483)
4391 141111616 : lu(k,1502) = lu(k,1502) - lu(k,1030) * lu(k,1483)
4392 141111616 : lu(k,1508) = lu(k,1508) - lu(k,1031) * lu(k,1483)
4393 141111616 : lu(k,1509) = lu(k,1509) - lu(k,1032) * lu(k,1483)
4394 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1033) * lu(k,1483)
4395 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1034) * lu(k,1483)
4396 141111616 : lu(k,1542) = lu(k,1542) - lu(k,1025) * lu(k,1540)
4397 141111616 : lu(k,1543) = lu(k,1543) - lu(k,1026) * lu(k,1540)
4398 141111616 : lu(k,1544) = - lu(k,1027) * lu(k,1540)
4399 141111616 : lu(k,1545) = lu(k,1545) - lu(k,1028) * lu(k,1540)
4400 141111616 : lu(k,1546) = lu(k,1546) - lu(k,1029) * lu(k,1540)
4401 141111616 : lu(k,1549) = lu(k,1549) - lu(k,1030) * lu(k,1540)
4402 141111616 : lu(k,1555) = lu(k,1555) - lu(k,1031) * lu(k,1540)
4403 141111616 : lu(k,1556) = lu(k,1556) - lu(k,1032) * lu(k,1540)
4404 141111616 : lu(k,1557) = lu(k,1557) - lu(k,1033) * lu(k,1540)
4405 141111616 : lu(k,1558) = lu(k,1558) - lu(k,1034) * lu(k,1540)
4406 141111616 : lu(k,1572) = lu(k,1572) - lu(k,1025) * lu(k,1569)
4407 141111616 : lu(k,1573) = lu(k,1573) - lu(k,1026) * lu(k,1569)
4408 141111616 : lu(k,1574) = - lu(k,1027) * lu(k,1569)
4409 141111616 : lu(k,1575) = lu(k,1575) - lu(k,1028) * lu(k,1569)
4410 141111616 : lu(k,1576) = lu(k,1576) - lu(k,1029) * lu(k,1569)
4411 141111616 : lu(k,1579) = lu(k,1579) - lu(k,1030) * lu(k,1569)
4412 141111616 : lu(k,1585) = lu(k,1585) - lu(k,1031) * lu(k,1569)
4413 141111616 : lu(k,1586) = lu(k,1586) - lu(k,1032) * lu(k,1569)
4414 141111616 : lu(k,1587) = lu(k,1587) - lu(k,1033) * lu(k,1569)
4415 141111616 : lu(k,1588) = lu(k,1588) - lu(k,1034) * lu(k,1569)
4416 141111616 : lu(k,1678) = lu(k,1678) - lu(k,1025) * lu(k,1667)
4417 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1026) * lu(k,1667)
4418 141111616 : lu(k,1680) = lu(k,1680) - lu(k,1027) * lu(k,1667)
4419 141111616 : lu(k,1681) = lu(k,1681) - lu(k,1028) * lu(k,1667)
4420 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1029) * lu(k,1667)
4421 141111616 : lu(k,1685) = lu(k,1685) - lu(k,1030) * lu(k,1667)
4422 141111616 : lu(k,1691) = lu(k,1691) - lu(k,1031) * lu(k,1667)
4423 141111616 : lu(k,1692) = lu(k,1692) - lu(k,1032) * lu(k,1667)
4424 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1033) * lu(k,1667)
4425 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1034) * lu(k,1667)
4426 141111616 : lu(k,1952) = lu(k,1952) - lu(k,1025) * lu(k,1949)
4427 141111616 : lu(k,1953) = lu(k,1953) - lu(k,1026) * lu(k,1949)
4428 141111616 : lu(k,1954) = lu(k,1954) - lu(k,1027) * lu(k,1949)
4429 141111616 : lu(k,1955) = - lu(k,1028) * lu(k,1949)
4430 141111616 : lu(k,1956) = lu(k,1956) - lu(k,1029) * lu(k,1949)
4431 141111616 : lu(k,1959) = lu(k,1959) - lu(k,1030) * lu(k,1949)
4432 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1031) * lu(k,1949)
4433 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1032) * lu(k,1949)
4434 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1033) * lu(k,1949)
4435 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1034) * lu(k,1949)
4436 141111616 : lu(k,2034) = lu(k,2034) - lu(k,1025) * lu(k,2031)
4437 141111616 : lu(k,2035) = lu(k,2035) - lu(k,1026) * lu(k,2031)
4438 141111616 : lu(k,2036) = lu(k,2036) - lu(k,1027) * lu(k,2031)
4439 141111616 : lu(k,2037) = lu(k,2037) - lu(k,1028) * lu(k,2031)
4440 141111616 : lu(k,2038) = lu(k,2038) - lu(k,1029) * lu(k,2031)
4441 141111616 : lu(k,2041) = lu(k,2041) - lu(k,1030) * lu(k,2031)
4442 141111616 : lu(k,2047) = - lu(k,1031) * lu(k,2031)
4443 141111616 : lu(k,2048) = - lu(k,1032) * lu(k,2031)
4444 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1033) * lu(k,2031)
4445 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1034) * lu(k,2031)
4446 141111616 : lu(k,1044) = 1._r8 / lu(k,1044)
4447 141111616 : lu(k,1045) = lu(k,1045) * lu(k,1044)
4448 141111616 : lu(k,1046) = lu(k,1046) * lu(k,1044)
4449 141111616 : lu(k,1047) = lu(k,1047) * lu(k,1044)
4450 141111616 : lu(k,1048) = lu(k,1048) * lu(k,1044)
4451 141111616 : lu(k,1049) = lu(k,1049) * lu(k,1044)
4452 141111616 : lu(k,1050) = lu(k,1050) * lu(k,1044)
4453 141111616 : lu(k,1051) = lu(k,1051) * lu(k,1044)
4454 141111616 : lu(k,1052) = lu(k,1052) * lu(k,1044)
4455 141111616 : lu(k,1053) = lu(k,1053) * lu(k,1044)
4456 141111616 : lu(k,1054) = lu(k,1054) * lu(k,1044)
4457 141111616 : lu(k,1055) = lu(k,1055) * lu(k,1044)
4458 141111616 : lu(k,1056) = lu(k,1056) * lu(k,1044)
4459 141111616 : lu(k,1057) = lu(k,1057) * lu(k,1044)
4460 141111616 : lu(k,1226) = lu(k,1226) - lu(k,1045) * lu(k,1225)
4461 141111616 : lu(k,1227) = lu(k,1227) - lu(k,1046) * lu(k,1225)
4462 141111616 : lu(k,1229) = lu(k,1229) - lu(k,1047) * lu(k,1225)
4463 141111616 : lu(k,1233) = lu(k,1233) - lu(k,1048) * lu(k,1225)
4464 141111616 : lu(k,1234) = lu(k,1234) - lu(k,1049) * lu(k,1225)
4465 141111616 : lu(k,1235) = lu(k,1235) - lu(k,1050) * lu(k,1225)
4466 141111616 : lu(k,1236) = lu(k,1236) - lu(k,1051) * lu(k,1225)
4467 141111616 : lu(k,1237) = lu(k,1237) - lu(k,1052) * lu(k,1225)
4468 141111616 : lu(k,1238) = lu(k,1238) - lu(k,1053) * lu(k,1225)
4469 141111616 : lu(k,1239) = lu(k,1239) - lu(k,1054) * lu(k,1225)
4470 141111616 : lu(k,1240) = lu(k,1240) - lu(k,1055) * lu(k,1225)
4471 141111616 : lu(k,1242) = lu(k,1242) - lu(k,1056) * lu(k,1225)
4472 141111616 : lu(k,1243) = lu(k,1243) - lu(k,1057) * lu(k,1225)
4473 141111616 : lu(k,1310) = lu(k,1310) - lu(k,1045) * lu(k,1309)
4474 141111616 : lu(k,1311) = lu(k,1311) - lu(k,1046) * lu(k,1309)
4475 141111616 : lu(k,1313) = lu(k,1313) - lu(k,1047) * lu(k,1309)
4476 141111616 : lu(k,1317) = lu(k,1317) - lu(k,1048) * lu(k,1309)
4477 141111616 : lu(k,1318) = lu(k,1318) - lu(k,1049) * lu(k,1309)
4478 141111616 : lu(k,1319) = lu(k,1319) - lu(k,1050) * lu(k,1309)
4479 141111616 : lu(k,1320) = lu(k,1320) - lu(k,1051) * lu(k,1309)
4480 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1052) * lu(k,1309)
4481 141111616 : lu(k,1323) = lu(k,1323) - lu(k,1053) * lu(k,1309)
4482 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1054) * lu(k,1309)
4483 141111616 : lu(k,1327) = lu(k,1327) - lu(k,1055) * lu(k,1309)
4484 141111616 : lu(k,1329) = lu(k,1329) - lu(k,1056) * lu(k,1309)
4485 141111616 : lu(k,1332) = lu(k,1332) - lu(k,1057) * lu(k,1309)
4486 141111616 : lu(k,1485) = lu(k,1485) - lu(k,1045) * lu(k,1484)
4487 141111616 : lu(k,1486) = lu(k,1486) - lu(k,1046) * lu(k,1484)
4488 141111616 : lu(k,1489) = lu(k,1489) - lu(k,1047) * lu(k,1484)
4489 141111616 : lu(k,1493) = lu(k,1493) - lu(k,1048) * lu(k,1484)
4490 141111616 : lu(k,1495) = lu(k,1495) - lu(k,1049) * lu(k,1484)
4491 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1050) * lu(k,1484)
4492 141111616 : lu(k,1497) = lu(k,1497) - lu(k,1051) * lu(k,1484)
4493 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1052) * lu(k,1484)
4494 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1053) * lu(k,1484)
4495 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1054) * lu(k,1484)
4496 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1055) * lu(k,1484)
4497 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1056) * lu(k,1484)
4498 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1057) * lu(k,1484)
4499 141111616 : lu(k,1669) = lu(k,1669) - lu(k,1045) * lu(k,1668)
4500 141111616 : lu(k,1670) = lu(k,1670) - lu(k,1046) * lu(k,1668)
4501 141111616 : lu(k,1672) = lu(k,1672) - lu(k,1047) * lu(k,1668)
4502 141111616 : lu(k,1676) = lu(k,1676) - lu(k,1048) * lu(k,1668)
4503 141111616 : lu(k,1678) = lu(k,1678) - lu(k,1049) * lu(k,1668)
4504 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1050) * lu(k,1668)
4505 141111616 : lu(k,1680) = lu(k,1680) - lu(k,1051) * lu(k,1668)
4506 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1052) * lu(k,1668)
4507 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1053) * lu(k,1668)
4508 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1054) * lu(k,1668)
4509 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1055) * lu(k,1668)
4510 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1056) * lu(k,1668)
4511 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1057) * lu(k,1668)
4512 141111616 : lu(k,1785) = lu(k,1785) - lu(k,1045) * lu(k,1784)
4513 141111616 : lu(k,1786) = lu(k,1786) - lu(k,1046) * lu(k,1784)
4514 141111616 : lu(k,1788) = lu(k,1788) - lu(k,1047) * lu(k,1784)
4515 141111616 : lu(k,1792) = lu(k,1792) - lu(k,1048) * lu(k,1784)
4516 141111616 : lu(k,1794) = lu(k,1794) - lu(k,1049) * lu(k,1784)
4517 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1050) * lu(k,1784)
4518 141111616 : lu(k,1796) = lu(k,1796) - lu(k,1051) * lu(k,1784)
4519 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1052) * lu(k,1784)
4520 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1053) * lu(k,1784)
4521 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1054) * lu(k,1784)
4522 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1055) * lu(k,1784)
4523 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1056) * lu(k,1784)
4524 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1057) * lu(k,1784)
4525 141111616 : lu(k,1844) = lu(k,1844) - lu(k,1045) * lu(k,1843)
4526 141111616 : lu(k,1845) = lu(k,1845) - lu(k,1046) * lu(k,1843)
4527 141111616 : lu(k,1848) = lu(k,1848) - lu(k,1047) * lu(k,1843)
4528 141111616 : lu(k,1852) = lu(k,1852) - lu(k,1048) * lu(k,1843)
4529 141111616 : lu(k,1854) = lu(k,1854) - lu(k,1049) * lu(k,1843)
4530 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1050) * lu(k,1843)
4531 141111616 : lu(k,1856) = lu(k,1856) - lu(k,1051) * lu(k,1843)
4532 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1052) * lu(k,1843)
4533 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1053) * lu(k,1843)
4534 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1054) * lu(k,1843)
4535 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1055) * lu(k,1843)
4536 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1056) * lu(k,1843)
4537 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1057) * lu(k,1843)
4538 141111616 : lu(k,1999) = lu(k,1999) - lu(k,1045) * lu(k,1998)
4539 141111616 : lu(k,2000) = lu(k,2000) - lu(k,1046) * lu(k,1998)
4540 141111616 : lu(k,2003) = lu(k,2003) - lu(k,1047) * lu(k,1998)
4541 141111616 : lu(k,2007) = lu(k,2007) - lu(k,1048) * lu(k,1998)
4542 141111616 : lu(k,2009) = lu(k,2009) - lu(k,1049) * lu(k,1998)
4543 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1050) * lu(k,1998)
4544 141111616 : lu(k,2011) = lu(k,2011) - lu(k,1051) * lu(k,1998)
4545 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1052) * lu(k,1998)
4546 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1053) * lu(k,1998)
4547 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1054) * lu(k,1998)
4548 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1055) * lu(k,1998)
4549 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1056) * lu(k,1998)
4550 145521354 : lu(k,2024) = lu(k,2024) - lu(k,1057) * lu(k,1998)
4551 : end do
4552 4409738 : end subroutine lu_fac21
4553 4409738 : subroutine lu_fac22( avec_len, lu )
4554 : use chem_mods, only : nzcnt
4555 : use shr_kind_mod, only : r8 => shr_kind_r8
4556 : implicit none
4557 : !-----------------------------------------------------------------------
4558 : ! ... dummy args
4559 : !-----------------------------------------------------------------------
4560 : integer, intent(in) :: avec_len
4561 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4562 : !-----------------------------------------------------------------------
4563 : ! ... local variables
4564 : !-----------------------------------------------------------------------
4565 : integer :: k
4566 145521354 : do k = 1,avec_len
4567 141111616 : lu(k,1060) = 1._r8 / lu(k,1060)
4568 141111616 : lu(k,1061) = lu(k,1061) * lu(k,1060)
4569 141111616 : lu(k,1062) = lu(k,1062) * lu(k,1060)
4570 141111616 : lu(k,1063) = lu(k,1063) * lu(k,1060)
4571 141111616 : lu(k,1064) = lu(k,1064) * lu(k,1060)
4572 141111616 : lu(k,1065) = lu(k,1065) * lu(k,1060)
4573 141111616 : lu(k,1066) = lu(k,1066) * lu(k,1060)
4574 141111616 : lu(k,1067) = lu(k,1067) * lu(k,1060)
4575 141111616 : lu(k,1068) = lu(k,1068) * lu(k,1060)
4576 141111616 : lu(k,1069) = lu(k,1069) * lu(k,1060)
4577 141111616 : lu(k,1070) = lu(k,1070) * lu(k,1060)
4578 141111616 : lu(k,1112) = lu(k,1112) - lu(k,1061) * lu(k,1111)
4579 141111616 : lu(k,1115) = - lu(k,1062) * lu(k,1111)
4580 141111616 : lu(k,1116) = - lu(k,1063) * lu(k,1111)
4581 141111616 : lu(k,1117) = lu(k,1117) - lu(k,1064) * lu(k,1111)
4582 141111616 : lu(k,1119) = lu(k,1119) - lu(k,1065) * lu(k,1111)
4583 141111616 : lu(k,1121) = lu(k,1121) - lu(k,1066) * lu(k,1111)
4584 141111616 : lu(k,1122) = lu(k,1122) - lu(k,1067) * lu(k,1111)
4585 141111616 : lu(k,1123) = lu(k,1123) - lu(k,1068) * lu(k,1111)
4586 141111616 : lu(k,1125) = - lu(k,1069) * lu(k,1111)
4587 141111616 : lu(k,1128) = lu(k,1128) - lu(k,1070) * lu(k,1111)
4588 141111616 : lu(k,1180) = lu(k,1180) - lu(k,1061) * lu(k,1179)
4589 141111616 : lu(k,1182) = - lu(k,1062) * lu(k,1179)
4590 141111616 : lu(k,1184) = - lu(k,1063) * lu(k,1179)
4591 141111616 : lu(k,1185) = lu(k,1185) - lu(k,1064) * lu(k,1179)
4592 141111616 : lu(k,1187) = lu(k,1187) - lu(k,1065) * lu(k,1179)
4593 141111616 : lu(k,1189) = lu(k,1189) - lu(k,1066) * lu(k,1179)
4594 141111616 : lu(k,1190) = lu(k,1190) - lu(k,1067) * lu(k,1179)
4595 141111616 : lu(k,1191) = lu(k,1191) - lu(k,1068) * lu(k,1179)
4596 141111616 : lu(k,1193) = - lu(k,1069) * lu(k,1179)
4597 141111616 : lu(k,1196) = lu(k,1196) - lu(k,1070) * lu(k,1179)
4598 141111616 : lu(k,1227) = lu(k,1227) - lu(k,1061) * lu(k,1226)
4599 141111616 : lu(k,1230) = lu(k,1230) - lu(k,1062) * lu(k,1226)
4600 141111616 : lu(k,1232) = lu(k,1232) - lu(k,1063) * lu(k,1226)
4601 141111616 : lu(k,1233) = lu(k,1233) - lu(k,1064) * lu(k,1226)
4602 141111616 : lu(k,1235) = lu(k,1235) - lu(k,1065) * lu(k,1226)
4603 141111616 : lu(k,1237) = lu(k,1237) - lu(k,1066) * lu(k,1226)
4604 141111616 : lu(k,1238) = lu(k,1238) - lu(k,1067) * lu(k,1226)
4605 141111616 : lu(k,1239) = lu(k,1239) - lu(k,1068) * lu(k,1226)
4606 141111616 : lu(k,1241) = lu(k,1241) - lu(k,1069) * lu(k,1226)
4607 141111616 : lu(k,1244) = lu(k,1244) - lu(k,1070) * lu(k,1226)
4608 141111616 : lu(k,1311) = lu(k,1311) - lu(k,1061) * lu(k,1310)
4609 141111616 : lu(k,1314) = lu(k,1314) - lu(k,1062) * lu(k,1310)
4610 141111616 : lu(k,1316) = lu(k,1316) - lu(k,1063) * lu(k,1310)
4611 141111616 : lu(k,1317) = lu(k,1317) - lu(k,1064) * lu(k,1310)
4612 141111616 : lu(k,1319) = lu(k,1319) - lu(k,1065) * lu(k,1310)
4613 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1066) * lu(k,1310)
4614 141111616 : lu(k,1323) = lu(k,1323) - lu(k,1067) * lu(k,1310)
4615 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1068) * lu(k,1310)
4616 141111616 : lu(k,1328) = - lu(k,1069) * lu(k,1310)
4617 141111616 : lu(k,1333) = lu(k,1333) - lu(k,1070) * lu(k,1310)
4618 141111616 : lu(k,1486) = lu(k,1486) - lu(k,1061) * lu(k,1485)
4619 141111616 : lu(k,1490) = lu(k,1490) - lu(k,1062) * lu(k,1485)
4620 141111616 : lu(k,1492) = lu(k,1492) - lu(k,1063) * lu(k,1485)
4621 141111616 : lu(k,1493) = lu(k,1493) - lu(k,1064) * lu(k,1485)
4622 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1065) * lu(k,1485)
4623 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1066) * lu(k,1485)
4624 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1067) * lu(k,1485)
4625 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1068) * lu(k,1485)
4626 141111616 : lu(k,1506) = lu(k,1506) - lu(k,1069) * lu(k,1485)
4627 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1070) * lu(k,1485)
4628 141111616 : lu(k,1670) = lu(k,1670) - lu(k,1061) * lu(k,1669)
4629 141111616 : lu(k,1673) = lu(k,1673) - lu(k,1062) * lu(k,1669)
4630 141111616 : lu(k,1675) = lu(k,1675) - lu(k,1063) * lu(k,1669)
4631 141111616 : lu(k,1676) = lu(k,1676) - lu(k,1064) * lu(k,1669)
4632 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1065) * lu(k,1669)
4633 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1066) * lu(k,1669)
4634 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1067) * lu(k,1669)
4635 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1068) * lu(k,1669)
4636 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1069) * lu(k,1669)
4637 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1070) * lu(k,1669)
4638 141111616 : lu(k,1786) = lu(k,1786) - lu(k,1061) * lu(k,1785)
4639 141111616 : lu(k,1789) = lu(k,1789) - lu(k,1062) * lu(k,1785)
4640 141111616 : lu(k,1791) = lu(k,1791) - lu(k,1063) * lu(k,1785)
4641 141111616 : lu(k,1792) = lu(k,1792) - lu(k,1064) * lu(k,1785)
4642 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1065) * lu(k,1785)
4643 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1066) * lu(k,1785)
4644 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1067) * lu(k,1785)
4645 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1068) * lu(k,1785)
4646 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1069) * lu(k,1785)
4647 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1070) * lu(k,1785)
4648 141111616 : lu(k,1845) = lu(k,1845) - lu(k,1061) * lu(k,1844)
4649 141111616 : lu(k,1849) = - lu(k,1062) * lu(k,1844)
4650 141111616 : lu(k,1851) = - lu(k,1063) * lu(k,1844)
4651 141111616 : lu(k,1852) = lu(k,1852) - lu(k,1064) * lu(k,1844)
4652 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1065) * lu(k,1844)
4653 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1066) * lu(k,1844)
4654 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1067) * lu(k,1844)
4655 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1068) * lu(k,1844)
4656 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1069) * lu(k,1844)
4657 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1070) * lu(k,1844)
4658 141111616 : lu(k,2000) = lu(k,2000) - lu(k,1061) * lu(k,1999)
4659 141111616 : lu(k,2004) = lu(k,2004) - lu(k,1062) * lu(k,1999)
4660 141111616 : lu(k,2006) = lu(k,2006) - lu(k,1063) * lu(k,1999)
4661 141111616 : lu(k,2007) = lu(k,2007) - lu(k,1064) * lu(k,1999)
4662 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1065) * lu(k,1999)
4663 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1066) * lu(k,1999)
4664 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1067) * lu(k,1999)
4665 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1068) * lu(k,1999)
4666 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1069) * lu(k,1999)
4667 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1070) * lu(k,1999)
4668 141111616 : lu(k,1072) = 1._r8 / lu(k,1072)
4669 141111616 : lu(k,1073) = lu(k,1073) * lu(k,1072)
4670 141111616 : lu(k,1074) = lu(k,1074) * lu(k,1072)
4671 141111616 : lu(k,1075) = lu(k,1075) * lu(k,1072)
4672 141111616 : lu(k,1076) = lu(k,1076) * lu(k,1072)
4673 141111616 : lu(k,1077) = lu(k,1077) * lu(k,1072)
4674 141111616 : lu(k,1078) = lu(k,1078) * lu(k,1072)
4675 141111616 : lu(k,1079) = lu(k,1079) * lu(k,1072)
4676 141111616 : lu(k,1117) = lu(k,1117) - lu(k,1073) * lu(k,1112)
4677 141111616 : lu(k,1118) = lu(k,1118) - lu(k,1074) * lu(k,1112)
4678 141111616 : lu(k,1119) = lu(k,1119) - lu(k,1075) * lu(k,1112)
4679 141111616 : lu(k,1121) = lu(k,1121) - lu(k,1076) * lu(k,1112)
4680 141111616 : lu(k,1123) = lu(k,1123) - lu(k,1077) * lu(k,1112)
4681 141111616 : lu(k,1127) = lu(k,1127) - lu(k,1078) * lu(k,1112)
4682 141111616 : lu(k,1128) = lu(k,1128) - lu(k,1079) * lu(k,1112)
4683 141111616 : lu(k,1137) = lu(k,1137) - lu(k,1073) * lu(k,1134)
4684 141111616 : lu(k,1138) = lu(k,1138) - lu(k,1074) * lu(k,1134)
4685 141111616 : lu(k,1139) = lu(k,1139) - lu(k,1075) * lu(k,1134)
4686 141111616 : lu(k,1141) = lu(k,1141) - lu(k,1076) * lu(k,1134)
4687 141111616 : lu(k,1143) = lu(k,1143) - lu(k,1077) * lu(k,1134)
4688 141111616 : lu(k,1147) = lu(k,1147) - lu(k,1078) * lu(k,1134)
4689 141111616 : lu(k,1148) = lu(k,1148) - lu(k,1079) * lu(k,1134)
4690 141111616 : lu(k,1159) = lu(k,1159) - lu(k,1073) * lu(k,1156)
4691 141111616 : lu(k,1160) = lu(k,1160) - lu(k,1074) * lu(k,1156)
4692 141111616 : lu(k,1161) = lu(k,1161) - lu(k,1075) * lu(k,1156)
4693 141111616 : lu(k,1163) = lu(k,1163) - lu(k,1076) * lu(k,1156)
4694 141111616 : lu(k,1165) = lu(k,1165) - lu(k,1077) * lu(k,1156)
4695 141111616 : lu(k,1168) = lu(k,1168) - lu(k,1078) * lu(k,1156)
4696 141111616 : lu(k,1169) = lu(k,1169) - lu(k,1079) * lu(k,1156)
4697 141111616 : lu(k,1185) = lu(k,1185) - lu(k,1073) * lu(k,1180)
4698 141111616 : lu(k,1186) = lu(k,1186) - lu(k,1074) * lu(k,1180)
4699 141111616 : lu(k,1187) = lu(k,1187) - lu(k,1075) * lu(k,1180)
4700 141111616 : lu(k,1189) = lu(k,1189) - lu(k,1076) * lu(k,1180)
4701 141111616 : lu(k,1191) = lu(k,1191) - lu(k,1077) * lu(k,1180)
4702 141111616 : lu(k,1195) = lu(k,1195) - lu(k,1078) * lu(k,1180)
4703 141111616 : lu(k,1196) = lu(k,1196) - lu(k,1079) * lu(k,1180)
4704 141111616 : lu(k,1203) = lu(k,1203) - lu(k,1073) * lu(k,1201)
4705 141111616 : lu(k,1204) = - lu(k,1074) * lu(k,1201)
4706 141111616 : lu(k,1205) = - lu(k,1075) * lu(k,1201)
4707 141111616 : lu(k,1207) = lu(k,1207) - lu(k,1076) * lu(k,1201)
4708 141111616 : lu(k,1209) = lu(k,1209) - lu(k,1077) * lu(k,1201)
4709 141111616 : lu(k,1213) = lu(k,1213) - lu(k,1078) * lu(k,1201)
4710 141111616 : lu(k,1214) = lu(k,1214) - lu(k,1079) * lu(k,1201)
4711 141111616 : lu(k,1233) = lu(k,1233) - lu(k,1073) * lu(k,1227)
4712 141111616 : lu(k,1234) = lu(k,1234) - lu(k,1074) * lu(k,1227)
4713 141111616 : lu(k,1235) = lu(k,1235) - lu(k,1075) * lu(k,1227)
4714 141111616 : lu(k,1237) = lu(k,1237) - lu(k,1076) * lu(k,1227)
4715 141111616 : lu(k,1239) = lu(k,1239) - lu(k,1077) * lu(k,1227)
4716 141111616 : lu(k,1243) = lu(k,1243) - lu(k,1078) * lu(k,1227)
4717 141111616 : lu(k,1244) = lu(k,1244) - lu(k,1079) * lu(k,1227)
4718 141111616 : lu(k,1317) = lu(k,1317) - lu(k,1073) * lu(k,1311)
4719 141111616 : lu(k,1318) = lu(k,1318) - lu(k,1074) * lu(k,1311)
4720 141111616 : lu(k,1319) = lu(k,1319) - lu(k,1075) * lu(k,1311)
4721 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1076) * lu(k,1311)
4722 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1077) * lu(k,1311)
4723 141111616 : lu(k,1332) = lu(k,1332) - lu(k,1078) * lu(k,1311)
4724 141111616 : lu(k,1333) = lu(k,1333) - lu(k,1079) * lu(k,1311)
4725 141111616 : lu(k,1493) = lu(k,1493) - lu(k,1073) * lu(k,1486)
4726 141111616 : lu(k,1495) = lu(k,1495) - lu(k,1074) * lu(k,1486)
4727 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1075) * lu(k,1486)
4728 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1076) * lu(k,1486)
4729 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1077) * lu(k,1486)
4730 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1078) * lu(k,1486)
4731 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1079) * lu(k,1486)
4732 141111616 : lu(k,1676) = lu(k,1676) - lu(k,1073) * lu(k,1670)
4733 141111616 : lu(k,1678) = lu(k,1678) - lu(k,1074) * lu(k,1670)
4734 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1075) * lu(k,1670)
4735 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1076) * lu(k,1670)
4736 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1077) * lu(k,1670)
4737 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1078) * lu(k,1670)
4738 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1079) * lu(k,1670)
4739 141111616 : lu(k,1792) = lu(k,1792) - lu(k,1073) * lu(k,1786)
4740 141111616 : lu(k,1794) = lu(k,1794) - lu(k,1074) * lu(k,1786)
4741 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1075) * lu(k,1786)
4742 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1076) * lu(k,1786)
4743 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1077) * lu(k,1786)
4744 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1078) * lu(k,1786)
4745 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1079) * lu(k,1786)
4746 141111616 : lu(k,1852) = lu(k,1852) - lu(k,1073) * lu(k,1845)
4747 141111616 : lu(k,1854) = lu(k,1854) - lu(k,1074) * lu(k,1845)
4748 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1075) * lu(k,1845)
4749 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1076) * lu(k,1845)
4750 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1077) * lu(k,1845)
4751 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1078) * lu(k,1845)
4752 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1079) * lu(k,1845)
4753 141111616 : lu(k,1893) = lu(k,1893) - lu(k,1073) * lu(k,1890)
4754 141111616 : lu(k,1895) = lu(k,1895) - lu(k,1074) * lu(k,1890)
4755 141111616 : lu(k,1896) = lu(k,1896) - lu(k,1075) * lu(k,1890)
4756 141111616 : lu(k,1899) = lu(k,1899) - lu(k,1076) * lu(k,1890)
4757 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1077) * lu(k,1890)
4758 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1078) * lu(k,1890)
4759 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1079) * lu(k,1890)
4760 141111616 : lu(k,2007) = lu(k,2007) - lu(k,1073) * lu(k,2000)
4761 141111616 : lu(k,2009) = lu(k,2009) - lu(k,1074) * lu(k,2000)
4762 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1075) * lu(k,2000)
4763 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1076) * lu(k,2000)
4764 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1077) * lu(k,2000)
4765 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1078) * lu(k,2000)
4766 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1079) * lu(k,2000)
4767 141111616 : lu(k,1083) = 1._r8 / lu(k,1083)
4768 141111616 : lu(k,1084) = lu(k,1084) * lu(k,1083)
4769 141111616 : lu(k,1085) = lu(k,1085) * lu(k,1083)
4770 141111616 : lu(k,1086) = lu(k,1086) * lu(k,1083)
4771 141111616 : lu(k,1087) = lu(k,1087) * lu(k,1083)
4772 141111616 : lu(k,1088) = lu(k,1088) * lu(k,1083)
4773 141111616 : lu(k,1089) = lu(k,1089) * lu(k,1083)
4774 141111616 : lu(k,1090) = lu(k,1090) * lu(k,1083)
4775 141111616 : lu(k,1091) = lu(k,1091) * lu(k,1083)
4776 141111616 : lu(k,1092) = lu(k,1092) * lu(k,1083)
4777 141111616 : lu(k,1093) = lu(k,1093) * lu(k,1083)
4778 141111616 : lu(k,1094) = lu(k,1094) * lu(k,1083)
4779 141111616 : lu(k,1095) = lu(k,1095) * lu(k,1083)
4780 141111616 : lu(k,1494) = lu(k,1494) - lu(k,1084) * lu(k,1487)
4781 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1085) * lu(k,1487)
4782 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1086) * lu(k,1487)
4783 141111616 : lu(k,1500) = lu(k,1500) - lu(k,1087) * lu(k,1487)
4784 141111616 : lu(k,1502) = lu(k,1502) - lu(k,1088) * lu(k,1487)
4785 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1089) * lu(k,1487)
4786 141111616 : lu(k,1504) = lu(k,1504) - lu(k,1090) * lu(k,1487)
4787 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1091) * lu(k,1487)
4788 141111616 : lu(k,1506) = lu(k,1506) - lu(k,1092) * lu(k,1487)
4789 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1093) * lu(k,1487)
4790 141111616 : lu(k,1509) = lu(k,1509) - lu(k,1094) * lu(k,1487)
4791 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1095) * lu(k,1487)
4792 141111616 : lu(k,1518) = lu(k,1518) - lu(k,1084) * lu(k,1517)
4793 141111616 : lu(k,1520) = - lu(k,1085) * lu(k,1517)
4794 141111616 : lu(k,1523) = lu(k,1523) - lu(k,1086) * lu(k,1517)
4795 141111616 : lu(k,1524) = lu(k,1524) - lu(k,1087) * lu(k,1517)
4796 141111616 : lu(k,1526) = lu(k,1526) - lu(k,1088) * lu(k,1517)
4797 141111616 : lu(k,1527) = lu(k,1527) - lu(k,1089) * lu(k,1517)
4798 141111616 : lu(k,1528) = lu(k,1528) - lu(k,1090) * lu(k,1517)
4799 141111616 : lu(k,1529) = lu(k,1529) - lu(k,1091) * lu(k,1517)
4800 141111616 : lu(k,1530) = - lu(k,1092) * lu(k,1517)
4801 141111616 : lu(k,1531) = lu(k,1531) - lu(k,1093) * lu(k,1517)
4802 141111616 : lu(k,1533) = lu(k,1533) - lu(k,1094) * lu(k,1517)
4803 141111616 : lu(k,1535) = lu(k,1535) - lu(k,1095) * lu(k,1517)
4804 141111616 : lu(k,1571) = lu(k,1571) - lu(k,1084) * lu(k,1570)
4805 141111616 : lu(k,1573) = lu(k,1573) - lu(k,1085) * lu(k,1570)
4806 141111616 : lu(k,1576) = lu(k,1576) - lu(k,1086) * lu(k,1570)
4807 141111616 : lu(k,1577) = lu(k,1577) - lu(k,1087) * lu(k,1570)
4808 141111616 : lu(k,1579) = lu(k,1579) - lu(k,1088) * lu(k,1570)
4809 141111616 : lu(k,1580) = lu(k,1580) - lu(k,1089) * lu(k,1570)
4810 141111616 : lu(k,1581) = lu(k,1581) - lu(k,1090) * lu(k,1570)
4811 141111616 : lu(k,1582) = lu(k,1582) - lu(k,1091) * lu(k,1570)
4812 141111616 : lu(k,1583) = lu(k,1583) - lu(k,1092) * lu(k,1570)
4813 141111616 : lu(k,1584) = lu(k,1584) - lu(k,1093) * lu(k,1570)
4814 141111616 : lu(k,1586) = lu(k,1586) - lu(k,1094) * lu(k,1570)
4815 141111616 : lu(k,1588) = lu(k,1588) - lu(k,1095) * lu(k,1570)
4816 141111616 : lu(k,1703) = lu(k,1703) - lu(k,1084) * lu(k,1702)
4817 141111616 : lu(k,1705) = - lu(k,1085) * lu(k,1702)
4818 141111616 : lu(k,1708) = lu(k,1708) - lu(k,1086) * lu(k,1702)
4819 141111616 : lu(k,1709) = lu(k,1709) - lu(k,1087) * lu(k,1702)
4820 141111616 : lu(k,1711) = lu(k,1711) - lu(k,1088) * lu(k,1702)
4821 141111616 : lu(k,1712) = lu(k,1712) - lu(k,1089) * lu(k,1702)
4822 141111616 : lu(k,1713) = lu(k,1713) - lu(k,1090) * lu(k,1702)
4823 141111616 : lu(k,1714) = lu(k,1714) - lu(k,1091) * lu(k,1702)
4824 141111616 : lu(k,1715) = - lu(k,1092) * lu(k,1702)
4825 141111616 : lu(k,1716) = lu(k,1716) - lu(k,1093) * lu(k,1702)
4826 141111616 : lu(k,1718) = lu(k,1718) - lu(k,1094) * lu(k,1702)
4827 141111616 : lu(k,1720) = lu(k,1720) - lu(k,1095) * lu(k,1702)
4828 141111616 : lu(k,1853) = lu(k,1853) - lu(k,1084) * lu(k,1846)
4829 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1085) * lu(k,1846)
4830 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1086) * lu(k,1846)
4831 141111616 : lu(k,1859) = lu(k,1859) - lu(k,1087) * lu(k,1846)
4832 141111616 : lu(k,1861) = lu(k,1861) - lu(k,1088) * lu(k,1846)
4833 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1089) * lu(k,1846)
4834 141111616 : lu(k,1863) = lu(k,1863) - lu(k,1090) * lu(k,1846)
4835 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1091) * lu(k,1846)
4836 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1092) * lu(k,1846)
4837 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1093) * lu(k,1846)
4838 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1094) * lu(k,1846)
4839 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1095) * lu(k,1846)
4840 141111616 : lu(k,1894) = lu(k,1894) - lu(k,1084) * lu(k,1891)
4841 141111616 : lu(k,1896) = lu(k,1896) - lu(k,1085) * lu(k,1891)
4842 141111616 : lu(k,1899) = lu(k,1899) - lu(k,1086) * lu(k,1891)
4843 141111616 : lu(k,1900) = lu(k,1900) - lu(k,1087) * lu(k,1891)
4844 141111616 : lu(k,1902) = lu(k,1902) - lu(k,1088) * lu(k,1891)
4845 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1089) * lu(k,1891)
4846 141111616 : lu(k,1904) = lu(k,1904) - lu(k,1090) * lu(k,1891)
4847 141111616 : lu(k,1905) = lu(k,1905) - lu(k,1091) * lu(k,1891)
4848 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1092) * lu(k,1891)
4849 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1093) * lu(k,1891)
4850 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1094) * lu(k,1891)
4851 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1095) * lu(k,1891)
4852 141111616 : lu(k,2008) = - lu(k,1084) * lu(k,2001)
4853 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1085) * lu(k,2001)
4854 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1086) * lu(k,2001)
4855 141111616 : lu(k,2014) = - lu(k,1087) * lu(k,2001)
4856 141111616 : lu(k,2016) = lu(k,2016) - lu(k,1088) * lu(k,2001)
4857 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1089) * lu(k,2001)
4858 141111616 : lu(k,2018) = - lu(k,1090) * lu(k,2001)
4859 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1091) * lu(k,2001)
4860 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1092) * lu(k,2001)
4861 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1093) * lu(k,2001)
4862 141111616 : lu(k,2023) = - lu(k,1094) * lu(k,2001)
4863 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1095) * lu(k,2001)
4864 141111616 : lu(k,2033) = - lu(k,1084) * lu(k,2032)
4865 141111616 : lu(k,2035) = lu(k,2035) - lu(k,1085) * lu(k,2032)
4866 141111616 : lu(k,2038) = lu(k,2038) - lu(k,1086) * lu(k,2032)
4867 141111616 : lu(k,2039) = - lu(k,1087) * lu(k,2032)
4868 141111616 : lu(k,2041) = lu(k,2041) - lu(k,1088) * lu(k,2032)
4869 141111616 : lu(k,2042) = lu(k,2042) - lu(k,1089) * lu(k,2032)
4870 141111616 : lu(k,2043) = - lu(k,1090) * lu(k,2032)
4871 141111616 : lu(k,2044) = - lu(k,1091) * lu(k,2032)
4872 141111616 : lu(k,2045) = - lu(k,1092) * lu(k,2032)
4873 141111616 : lu(k,2046) = - lu(k,1093) * lu(k,2032)
4874 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1094) * lu(k,2032)
4875 145521354 : lu(k,2050) = lu(k,2050) - lu(k,1095) * lu(k,2032)
4876 : end do
4877 4409738 : end subroutine lu_fac22
4878 4409738 : subroutine lu_fac23( avec_len, lu )
4879 : use chem_mods, only : nzcnt
4880 : use shr_kind_mod, only : r8 => shr_kind_r8
4881 : implicit none
4882 : !-----------------------------------------------------------------------
4883 : ! ... dummy args
4884 : !-----------------------------------------------------------------------
4885 : integer, intent(in) :: avec_len
4886 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4887 : !-----------------------------------------------------------------------
4888 : ! ... local variables
4889 : !-----------------------------------------------------------------------
4890 : integer :: k
4891 145521354 : do k = 1,avec_len
4892 141111616 : lu(k,1113) = 1._r8 / lu(k,1113)
4893 141111616 : lu(k,1114) = lu(k,1114) * lu(k,1113)
4894 141111616 : lu(k,1115) = lu(k,1115) * lu(k,1113)
4895 141111616 : lu(k,1116) = lu(k,1116) * lu(k,1113)
4896 141111616 : lu(k,1117) = lu(k,1117) * lu(k,1113)
4897 141111616 : lu(k,1118) = lu(k,1118) * lu(k,1113)
4898 141111616 : lu(k,1119) = lu(k,1119) * lu(k,1113)
4899 141111616 : lu(k,1120) = lu(k,1120) * lu(k,1113)
4900 141111616 : lu(k,1121) = lu(k,1121) * lu(k,1113)
4901 141111616 : lu(k,1122) = lu(k,1122) * lu(k,1113)
4902 141111616 : lu(k,1123) = lu(k,1123) * lu(k,1113)
4903 141111616 : lu(k,1124) = lu(k,1124) * lu(k,1113)
4904 141111616 : lu(k,1125) = lu(k,1125) * lu(k,1113)
4905 141111616 : lu(k,1126) = lu(k,1126) * lu(k,1113)
4906 141111616 : lu(k,1127) = lu(k,1127) * lu(k,1113)
4907 141111616 : lu(k,1128) = lu(k,1128) * lu(k,1113)
4908 141111616 : lu(k,1229) = lu(k,1229) - lu(k,1114) * lu(k,1228)
4909 141111616 : lu(k,1230) = lu(k,1230) - lu(k,1115) * lu(k,1228)
4910 141111616 : lu(k,1232) = lu(k,1232) - lu(k,1116) * lu(k,1228)
4911 141111616 : lu(k,1233) = lu(k,1233) - lu(k,1117) * lu(k,1228)
4912 141111616 : lu(k,1234) = lu(k,1234) - lu(k,1118) * lu(k,1228)
4913 141111616 : lu(k,1235) = lu(k,1235) - lu(k,1119) * lu(k,1228)
4914 141111616 : lu(k,1236) = lu(k,1236) - lu(k,1120) * lu(k,1228)
4915 141111616 : lu(k,1237) = lu(k,1237) - lu(k,1121) * lu(k,1228)
4916 141111616 : lu(k,1238) = lu(k,1238) - lu(k,1122) * lu(k,1228)
4917 141111616 : lu(k,1239) = lu(k,1239) - lu(k,1123) * lu(k,1228)
4918 141111616 : lu(k,1240) = lu(k,1240) - lu(k,1124) * lu(k,1228)
4919 141111616 : lu(k,1241) = lu(k,1241) - lu(k,1125) * lu(k,1228)
4920 141111616 : lu(k,1242) = lu(k,1242) - lu(k,1126) * lu(k,1228)
4921 141111616 : lu(k,1243) = lu(k,1243) - lu(k,1127) * lu(k,1228)
4922 141111616 : lu(k,1244) = lu(k,1244) - lu(k,1128) * lu(k,1228)
4923 141111616 : lu(k,1313) = lu(k,1313) - lu(k,1114) * lu(k,1312)
4924 141111616 : lu(k,1314) = lu(k,1314) - lu(k,1115) * lu(k,1312)
4925 141111616 : lu(k,1316) = lu(k,1316) - lu(k,1116) * lu(k,1312)
4926 141111616 : lu(k,1317) = lu(k,1317) - lu(k,1117) * lu(k,1312)
4927 141111616 : lu(k,1318) = lu(k,1318) - lu(k,1118) * lu(k,1312)
4928 141111616 : lu(k,1319) = lu(k,1319) - lu(k,1119) * lu(k,1312)
4929 141111616 : lu(k,1320) = lu(k,1320) - lu(k,1120) * lu(k,1312)
4930 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1121) * lu(k,1312)
4931 141111616 : lu(k,1323) = lu(k,1323) - lu(k,1122) * lu(k,1312)
4932 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1123) * lu(k,1312)
4933 141111616 : lu(k,1327) = lu(k,1327) - lu(k,1124) * lu(k,1312)
4934 141111616 : lu(k,1328) = lu(k,1328) - lu(k,1125) * lu(k,1312)
4935 141111616 : lu(k,1329) = lu(k,1329) - lu(k,1126) * lu(k,1312)
4936 141111616 : lu(k,1332) = lu(k,1332) - lu(k,1127) * lu(k,1312)
4937 141111616 : lu(k,1333) = lu(k,1333) - lu(k,1128) * lu(k,1312)
4938 141111616 : lu(k,1489) = lu(k,1489) - lu(k,1114) * lu(k,1488)
4939 141111616 : lu(k,1490) = lu(k,1490) - lu(k,1115) * lu(k,1488)
4940 141111616 : lu(k,1492) = lu(k,1492) - lu(k,1116) * lu(k,1488)
4941 141111616 : lu(k,1493) = lu(k,1493) - lu(k,1117) * lu(k,1488)
4942 141111616 : lu(k,1495) = lu(k,1495) - lu(k,1118) * lu(k,1488)
4943 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1119) * lu(k,1488)
4944 141111616 : lu(k,1497) = lu(k,1497) - lu(k,1120) * lu(k,1488)
4945 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1121) * lu(k,1488)
4946 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1122) * lu(k,1488)
4947 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1123) * lu(k,1488)
4948 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1124) * lu(k,1488)
4949 141111616 : lu(k,1506) = lu(k,1506) - lu(k,1125) * lu(k,1488)
4950 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1126) * lu(k,1488)
4951 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1127) * lu(k,1488)
4952 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1128) * lu(k,1488)
4953 141111616 : lu(k,1672) = lu(k,1672) - lu(k,1114) * lu(k,1671)
4954 141111616 : lu(k,1673) = lu(k,1673) - lu(k,1115) * lu(k,1671)
4955 141111616 : lu(k,1675) = lu(k,1675) - lu(k,1116) * lu(k,1671)
4956 141111616 : lu(k,1676) = lu(k,1676) - lu(k,1117) * lu(k,1671)
4957 141111616 : lu(k,1678) = lu(k,1678) - lu(k,1118) * lu(k,1671)
4958 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1119) * lu(k,1671)
4959 141111616 : lu(k,1680) = lu(k,1680) - lu(k,1120) * lu(k,1671)
4960 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1121) * lu(k,1671)
4961 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1122) * lu(k,1671)
4962 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1123) * lu(k,1671)
4963 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1124) * lu(k,1671)
4964 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1125) * lu(k,1671)
4965 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1126) * lu(k,1671)
4966 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1127) * lu(k,1671)
4967 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1128) * lu(k,1671)
4968 141111616 : lu(k,1788) = lu(k,1788) - lu(k,1114) * lu(k,1787)
4969 141111616 : lu(k,1789) = lu(k,1789) - lu(k,1115) * lu(k,1787)
4970 141111616 : lu(k,1791) = lu(k,1791) - lu(k,1116) * lu(k,1787)
4971 141111616 : lu(k,1792) = lu(k,1792) - lu(k,1117) * lu(k,1787)
4972 141111616 : lu(k,1794) = lu(k,1794) - lu(k,1118) * lu(k,1787)
4973 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1119) * lu(k,1787)
4974 141111616 : lu(k,1796) = lu(k,1796) - lu(k,1120) * lu(k,1787)
4975 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1121) * lu(k,1787)
4976 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1122) * lu(k,1787)
4977 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1123) * lu(k,1787)
4978 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1124) * lu(k,1787)
4979 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1125) * lu(k,1787)
4980 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1126) * lu(k,1787)
4981 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1127) * lu(k,1787)
4982 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1128) * lu(k,1787)
4983 141111616 : lu(k,1848) = lu(k,1848) - lu(k,1114) * lu(k,1847)
4984 141111616 : lu(k,1849) = lu(k,1849) - lu(k,1115) * lu(k,1847)
4985 141111616 : lu(k,1851) = lu(k,1851) - lu(k,1116) * lu(k,1847)
4986 141111616 : lu(k,1852) = lu(k,1852) - lu(k,1117) * lu(k,1847)
4987 141111616 : lu(k,1854) = lu(k,1854) - lu(k,1118) * lu(k,1847)
4988 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1119) * lu(k,1847)
4989 141111616 : lu(k,1856) = lu(k,1856) - lu(k,1120) * lu(k,1847)
4990 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1121) * lu(k,1847)
4991 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1122) * lu(k,1847)
4992 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1123) * lu(k,1847)
4993 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1124) * lu(k,1847)
4994 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1125) * lu(k,1847)
4995 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1126) * lu(k,1847)
4996 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1127) * lu(k,1847)
4997 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1128) * lu(k,1847)
4998 141111616 : lu(k,2003) = lu(k,2003) - lu(k,1114) * lu(k,2002)
4999 141111616 : lu(k,2004) = lu(k,2004) - lu(k,1115) * lu(k,2002)
5000 141111616 : lu(k,2006) = lu(k,2006) - lu(k,1116) * lu(k,2002)
5001 141111616 : lu(k,2007) = lu(k,2007) - lu(k,1117) * lu(k,2002)
5002 141111616 : lu(k,2009) = lu(k,2009) - lu(k,1118) * lu(k,2002)
5003 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1119) * lu(k,2002)
5004 141111616 : lu(k,2011) = lu(k,2011) - lu(k,1120) * lu(k,2002)
5005 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1121) * lu(k,2002)
5006 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1122) * lu(k,2002)
5007 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1123) * lu(k,2002)
5008 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1124) * lu(k,2002)
5009 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1125) * lu(k,2002)
5010 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1126) * lu(k,2002)
5011 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1127) * lu(k,2002)
5012 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1128) * lu(k,2002)
5013 141111616 : lu(k,1135) = 1._r8 / lu(k,1135)
5014 141111616 : lu(k,1136) = lu(k,1136) * lu(k,1135)
5015 141111616 : lu(k,1137) = lu(k,1137) * lu(k,1135)
5016 141111616 : lu(k,1138) = lu(k,1138) * lu(k,1135)
5017 141111616 : lu(k,1139) = lu(k,1139) * lu(k,1135)
5018 141111616 : lu(k,1140) = lu(k,1140) * lu(k,1135)
5019 141111616 : lu(k,1141) = lu(k,1141) * lu(k,1135)
5020 141111616 : lu(k,1142) = lu(k,1142) * lu(k,1135)
5021 141111616 : lu(k,1143) = lu(k,1143) * lu(k,1135)
5022 141111616 : lu(k,1144) = lu(k,1144) * lu(k,1135)
5023 141111616 : lu(k,1145) = lu(k,1145) * lu(k,1135)
5024 141111616 : lu(k,1146) = lu(k,1146) * lu(k,1135)
5025 141111616 : lu(k,1147) = lu(k,1147) * lu(k,1135)
5026 141111616 : lu(k,1148) = lu(k,1148) * lu(k,1135)
5027 141111616 : lu(k,1182) = lu(k,1182) - lu(k,1136) * lu(k,1181)
5028 141111616 : lu(k,1185) = lu(k,1185) - lu(k,1137) * lu(k,1181)
5029 141111616 : lu(k,1186) = lu(k,1186) - lu(k,1138) * lu(k,1181)
5030 141111616 : lu(k,1187) = lu(k,1187) - lu(k,1139) * lu(k,1181)
5031 141111616 : lu(k,1188) = lu(k,1188) - lu(k,1140) * lu(k,1181)
5032 141111616 : lu(k,1189) = lu(k,1189) - lu(k,1141) * lu(k,1181)
5033 141111616 : lu(k,1190) = lu(k,1190) - lu(k,1142) * lu(k,1181)
5034 141111616 : lu(k,1191) = lu(k,1191) - lu(k,1143) * lu(k,1181)
5035 141111616 : lu(k,1192) = lu(k,1192) - lu(k,1144) * lu(k,1181)
5036 141111616 : lu(k,1193) = lu(k,1193) - lu(k,1145) * lu(k,1181)
5037 141111616 : lu(k,1194) = lu(k,1194) - lu(k,1146) * lu(k,1181)
5038 141111616 : lu(k,1195) = lu(k,1195) - lu(k,1147) * lu(k,1181)
5039 141111616 : lu(k,1196) = lu(k,1196) - lu(k,1148) * lu(k,1181)
5040 141111616 : lu(k,1230) = lu(k,1230) - lu(k,1136) * lu(k,1229)
5041 141111616 : lu(k,1233) = lu(k,1233) - lu(k,1137) * lu(k,1229)
5042 141111616 : lu(k,1234) = lu(k,1234) - lu(k,1138) * lu(k,1229)
5043 141111616 : lu(k,1235) = lu(k,1235) - lu(k,1139) * lu(k,1229)
5044 141111616 : lu(k,1236) = lu(k,1236) - lu(k,1140) * lu(k,1229)
5045 141111616 : lu(k,1237) = lu(k,1237) - lu(k,1141) * lu(k,1229)
5046 141111616 : lu(k,1238) = lu(k,1238) - lu(k,1142) * lu(k,1229)
5047 141111616 : lu(k,1239) = lu(k,1239) - lu(k,1143) * lu(k,1229)
5048 141111616 : lu(k,1240) = lu(k,1240) - lu(k,1144) * lu(k,1229)
5049 141111616 : lu(k,1241) = lu(k,1241) - lu(k,1145) * lu(k,1229)
5050 141111616 : lu(k,1242) = lu(k,1242) - lu(k,1146) * lu(k,1229)
5051 141111616 : lu(k,1243) = lu(k,1243) - lu(k,1147) * lu(k,1229)
5052 141111616 : lu(k,1244) = lu(k,1244) - lu(k,1148) * lu(k,1229)
5053 141111616 : lu(k,1314) = lu(k,1314) - lu(k,1136) * lu(k,1313)
5054 141111616 : lu(k,1317) = lu(k,1317) - lu(k,1137) * lu(k,1313)
5055 141111616 : lu(k,1318) = lu(k,1318) - lu(k,1138) * lu(k,1313)
5056 141111616 : lu(k,1319) = lu(k,1319) - lu(k,1139) * lu(k,1313)
5057 141111616 : lu(k,1320) = lu(k,1320) - lu(k,1140) * lu(k,1313)
5058 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1141) * lu(k,1313)
5059 141111616 : lu(k,1323) = lu(k,1323) - lu(k,1142) * lu(k,1313)
5060 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1143) * lu(k,1313)
5061 141111616 : lu(k,1327) = lu(k,1327) - lu(k,1144) * lu(k,1313)
5062 141111616 : lu(k,1328) = lu(k,1328) - lu(k,1145) * lu(k,1313)
5063 141111616 : lu(k,1329) = lu(k,1329) - lu(k,1146) * lu(k,1313)
5064 141111616 : lu(k,1332) = lu(k,1332) - lu(k,1147) * lu(k,1313)
5065 141111616 : lu(k,1333) = lu(k,1333) - lu(k,1148) * lu(k,1313)
5066 141111616 : lu(k,1490) = lu(k,1490) - lu(k,1136) * lu(k,1489)
5067 141111616 : lu(k,1493) = lu(k,1493) - lu(k,1137) * lu(k,1489)
5068 141111616 : lu(k,1495) = lu(k,1495) - lu(k,1138) * lu(k,1489)
5069 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1139) * lu(k,1489)
5070 141111616 : lu(k,1497) = lu(k,1497) - lu(k,1140) * lu(k,1489)
5071 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1141) * lu(k,1489)
5072 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1142) * lu(k,1489)
5073 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1143) * lu(k,1489)
5074 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1144) * lu(k,1489)
5075 141111616 : lu(k,1506) = lu(k,1506) - lu(k,1145) * lu(k,1489)
5076 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1146) * lu(k,1489)
5077 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1147) * lu(k,1489)
5078 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1148) * lu(k,1489)
5079 141111616 : lu(k,1673) = lu(k,1673) - lu(k,1136) * lu(k,1672)
5080 141111616 : lu(k,1676) = lu(k,1676) - lu(k,1137) * lu(k,1672)
5081 141111616 : lu(k,1678) = lu(k,1678) - lu(k,1138) * lu(k,1672)
5082 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1139) * lu(k,1672)
5083 141111616 : lu(k,1680) = lu(k,1680) - lu(k,1140) * lu(k,1672)
5084 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1141) * lu(k,1672)
5085 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1142) * lu(k,1672)
5086 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1143) * lu(k,1672)
5087 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1144) * lu(k,1672)
5088 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1145) * lu(k,1672)
5089 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1146) * lu(k,1672)
5090 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1147) * lu(k,1672)
5091 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1148) * lu(k,1672)
5092 141111616 : lu(k,1789) = lu(k,1789) - lu(k,1136) * lu(k,1788)
5093 141111616 : lu(k,1792) = lu(k,1792) - lu(k,1137) * lu(k,1788)
5094 141111616 : lu(k,1794) = lu(k,1794) - lu(k,1138) * lu(k,1788)
5095 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1139) * lu(k,1788)
5096 141111616 : lu(k,1796) = lu(k,1796) - lu(k,1140) * lu(k,1788)
5097 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1141) * lu(k,1788)
5098 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1142) * lu(k,1788)
5099 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1143) * lu(k,1788)
5100 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1144) * lu(k,1788)
5101 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1145) * lu(k,1788)
5102 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1146) * lu(k,1788)
5103 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1147) * lu(k,1788)
5104 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1148) * lu(k,1788)
5105 141111616 : lu(k,1849) = lu(k,1849) - lu(k,1136) * lu(k,1848)
5106 141111616 : lu(k,1852) = lu(k,1852) - lu(k,1137) * lu(k,1848)
5107 141111616 : lu(k,1854) = lu(k,1854) - lu(k,1138) * lu(k,1848)
5108 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1139) * lu(k,1848)
5109 141111616 : lu(k,1856) = lu(k,1856) - lu(k,1140) * lu(k,1848)
5110 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1141) * lu(k,1848)
5111 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1142) * lu(k,1848)
5112 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1143) * lu(k,1848)
5113 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1144) * lu(k,1848)
5114 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1145) * lu(k,1848)
5115 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1146) * lu(k,1848)
5116 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1147) * lu(k,1848)
5117 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1148) * lu(k,1848)
5118 141111616 : lu(k,2004) = lu(k,2004) - lu(k,1136) * lu(k,2003)
5119 141111616 : lu(k,2007) = lu(k,2007) - lu(k,1137) * lu(k,2003)
5120 141111616 : lu(k,2009) = lu(k,2009) - lu(k,1138) * lu(k,2003)
5121 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1139) * lu(k,2003)
5122 141111616 : lu(k,2011) = lu(k,2011) - lu(k,1140) * lu(k,2003)
5123 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1141) * lu(k,2003)
5124 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1142) * lu(k,2003)
5125 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1143) * lu(k,2003)
5126 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1144) * lu(k,2003)
5127 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1145) * lu(k,2003)
5128 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1146) * lu(k,2003)
5129 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1147) * lu(k,2003)
5130 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1148) * lu(k,2003)
5131 141111616 : lu(k,1157) = 1._r8 / lu(k,1157)
5132 141111616 : lu(k,1158) = lu(k,1158) * lu(k,1157)
5133 141111616 : lu(k,1159) = lu(k,1159) * lu(k,1157)
5134 141111616 : lu(k,1160) = lu(k,1160) * lu(k,1157)
5135 141111616 : lu(k,1161) = lu(k,1161) * lu(k,1157)
5136 141111616 : lu(k,1162) = lu(k,1162) * lu(k,1157)
5137 141111616 : lu(k,1163) = lu(k,1163) * lu(k,1157)
5138 141111616 : lu(k,1164) = lu(k,1164) * lu(k,1157)
5139 141111616 : lu(k,1165) = lu(k,1165) * lu(k,1157)
5140 141111616 : lu(k,1166) = lu(k,1166) * lu(k,1157)
5141 141111616 : lu(k,1167) = lu(k,1167) * lu(k,1157)
5142 141111616 : lu(k,1168) = lu(k,1168) * lu(k,1157)
5143 141111616 : lu(k,1169) = lu(k,1169) * lu(k,1157)
5144 141111616 : lu(k,1184) = lu(k,1184) - lu(k,1158) * lu(k,1182)
5145 141111616 : lu(k,1185) = lu(k,1185) - lu(k,1159) * lu(k,1182)
5146 141111616 : lu(k,1186) = lu(k,1186) - lu(k,1160) * lu(k,1182)
5147 141111616 : lu(k,1187) = lu(k,1187) - lu(k,1161) * lu(k,1182)
5148 141111616 : lu(k,1188) = lu(k,1188) - lu(k,1162) * lu(k,1182)
5149 141111616 : lu(k,1189) = lu(k,1189) - lu(k,1163) * lu(k,1182)
5150 141111616 : lu(k,1190) = lu(k,1190) - lu(k,1164) * lu(k,1182)
5151 141111616 : lu(k,1191) = lu(k,1191) - lu(k,1165) * lu(k,1182)
5152 141111616 : lu(k,1192) = lu(k,1192) - lu(k,1166) * lu(k,1182)
5153 141111616 : lu(k,1194) = lu(k,1194) - lu(k,1167) * lu(k,1182)
5154 141111616 : lu(k,1195) = lu(k,1195) - lu(k,1168) * lu(k,1182)
5155 141111616 : lu(k,1196) = lu(k,1196) - lu(k,1169) * lu(k,1182)
5156 141111616 : lu(k,1232) = lu(k,1232) - lu(k,1158) * lu(k,1230)
5157 141111616 : lu(k,1233) = lu(k,1233) - lu(k,1159) * lu(k,1230)
5158 141111616 : lu(k,1234) = lu(k,1234) - lu(k,1160) * lu(k,1230)
5159 141111616 : lu(k,1235) = lu(k,1235) - lu(k,1161) * lu(k,1230)
5160 141111616 : lu(k,1236) = lu(k,1236) - lu(k,1162) * lu(k,1230)
5161 141111616 : lu(k,1237) = lu(k,1237) - lu(k,1163) * lu(k,1230)
5162 141111616 : lu(k,1238) = lu(k,1238) - lu(k,1164) * lu(k,1230)
5163 141111616 : lu(k,1239) = lu(k,1239) - lu(k,1165) * lu(k,1230)
5164 141111616 : lu(k,1240) = lu(k,1240) - lu(k,1166) * lu(k,1230)
5165 141111616 : lu(k,1242) = lu(k,1242) - lu(k,1167) * lu(k,1230)
5166 141111616 : lu(k,1243) = lu(k,1243) - lu(k,1168) * lu(k,1230)
5167 141111616 : lu(k,1244) = lu(k,1244) - lu(k,1169) * lu(k,1230)
5168 141111616 : lu(k,1316) = lu(k,1316) - lu(k,1158) * lu(k,1314)
5169 141111616 : lu(k,1317) = lu(k,1317) - lu(k,1159) * lu(k,1314)
5170 141111616 : lu(k,1318) = lu(k,1318) - lu(k,1160) * lu(k,1314)
5171 141111616 : lu(k,1319) = lu(k,1319) - lu(k,1161) * lu(k,1314)
5172 141111616 : lu(k,1320) = lu(k,1320) - lu(k,1162) * lu(k,1314)
5173 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1163) * lu(k,1314)
5174 141111616 : lu(k,1323) = lu(k,1323) - lu(k,1164) * lu(k,1314)
5175 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1165) * lu(k,1314)
5176 141111616 : lu(k,1327) = lu(k,1327) - lu(k,1166) * lu(k,1314)
5177 141111616 : lu(k,1329) = lu(k,1329) - lu(k,1167) * lu(k,1314)
5178 141111616 : lu(k,1332) = lu(k,1332) - lu(k,1168) * lu(k,1314)
5179 141111616 : lu(k,1333) = lu(k,1333) - lu(k,1169) * lu(k,1314)
5180 141111616 : lu(k,1492) = lu(k,1492) - lu(k,1158) * lu(k,1490)
5181 141111616 : lu(k,1493) = lu(k,1493) - lu(k,1159) * lu(k,1490)
5182 141111616 : lu(k,1495) = lu(k,1495) - lu(k,1160) * lu(k,1490)
5183 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1161) * lu(k,1490)
5184 141111616 : lu(k,1497) = lu(k,1497) - lu(k,1162) * lu(k,1490)
5185 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1163) * lu(k,1490)
5186 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1164) * lu(k,1490)
5187 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1165) * lu(k,1490)
5188 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1166) * lu(k,1490)
5189 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1167) * lu(k,1490)
5190 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1168) * lu(k,1490)
5191 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1169) * lu(k,1490)
5192 141111616 : lu(k,1675) = lu(k,1675) - lu(k,1158) * lu(k,1673)
5193 141111616 : lu(k,1676) = lu(k,1676) - lu(k,1159) * lu(k,1673)
5194 141111616 : lu(k,1678) = lu(k,1678) - lu(k,1160) * lu(k,1673)
5195 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1161) * lu(k,1673)
5196 141111616 : lu(k,1680) = lu(k,1680) - lu(k,1162) * lu(k,1673)
5197 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1163) * lu(k,1673)
5198 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1164) * lu(k,1673)
5199 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1165) * lu(k,1673)
5200 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1166) * lu(k,1673)
5201 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1167) * lu(k,1673)
5202 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1168) * lu(k,1673)
5203 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1169) * lu(k,1673)
5204 141111616 : lu(k,1791) = lu(k,1791) - lu(k,1158) * lu(k,1789)
5205 141111616 : lu(k,1792) = lu(k,1792) - lu(k,1159) * lu(k,1789)
5206 141111616 : lu(k,1794) = lu(k,1794) - lu(k,1160) * lu(k,1789)
5207 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1161) * lu(k,1789)
5208 141111616 : lu(k,1796) = lu(k,1796) - lu(k,1162) * lu(k,1789)
5209 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1163) * lu(k,1789)
5210 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1164) * lu(k,1789)
5211 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1165) * lu(k,1789)
5212 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1166) * lu(k,1789)
5213 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1167) * lu(k,1789)
5214 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1168) * lu(k,1789)
5215 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1169) * lu(k,1789)
5216 141111616 : lu(k,1851) = lu(k,1851) - lu(k,1158) * lu(k,1849)
5217 141111616 : lu(k,1852) = lu(k,1852) - lu(k,1159) * lu(k,1849)
5218 141111616 : lu(k,1854) = lu(k,1854) - lu(k,1160) * lu(k,1849)
5219 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1161) * lu(k,1849)
5220 141111616 : lu(k,1856) = lu(k,1856) - lu(k,1162) * lu(k,1849)
5221 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1163) * lu(k,1849)
5222 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1164) * lu(k,1849)
5223 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1165) * lu(k,1849)
5224 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1166) * lu(k,1849)
5225 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1167) * lu(k,1849)
5226 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1168) * lu(k,1849)
5227 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1169) * lu(k,1849)
5228 141111616 : lu(k,2006) = lu(k,2006) - lu(k,1158) * lu(k,2004)
5229 141111616 : lu(k,2007) = lu(k,2007) - lu(k,1159) * lu(k,2004)
5230 141111616 : lu(k,2009) = lu(k,2009) - lu(k,1160) * lu(k,2004)
5231 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1161) * lu(k,2004)
5232 141111616 : lu(k,2011) = lu(k,2011) - lu(k,1162) * lu(k,2004)
5233 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1163) * lu(k,2004)
5234 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1164) * lu(k,2004)
5235 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1165) * lu(k,2004)
5236 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1166) * lu(k,2004)
5237 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1167) * lu(k,2004)
5238 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1168) * lu(k,2004)
5239 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1169) * lu(k,2004)
5240 141111616 : lu(k,1183) = 1._r8 / lu(k,1183)
5241 141111616 : lu(k,1184) = lu(k,1184) * lu(k,1183)
5242 141111616 : lu(k,1185) = lu(k,1185) * lu(k,1183)
5243 141111616 : lu(k,1186) = lu(k,1186) * lu(k,1183)
5244 141111616 : lu(k,1187) = lu(k,1187) * lu(k,1183)
5245 141111616 : lu(k,1188) = lu(k,1188) * lu(k,1183)
5246 141111616 : lu(k,1189) = lu(k,1189) * lu(k,1183)
5247 141111616 : lu(k,1190) = lu(k,1190) * lu(k,1183)
5248 141111616 : lu(k,1191) = lu(k,1191) * lu(k,1183)
5249 141111616 : lu(k,1192) = lu(k,1192) * lu(k,1183)
5250 141111616 : lu(k,1193) = lu(k,1193) * lu(k,1183)
5251 141111616 : lu(k,1194) = lu(k,1194) * lu(k,1183)
5252 141111616 : lu(k,1195) = lu(k,1195) * lu(k,1183)
5253 141111616 : lu(k,1196) = lu(k,1196) * lu(k,1183)
5254 141111616 : lu(k,1232) = lu(k,1232) - lu(k,1184) * lu(k,1231)
5255 141111616 : lu(k,1233) = lu(k,1233) - lu(k,1185) * lu(k,1231)
5256 141111616 : lu(k,1234) = lu(k,1234) - lu(k,1186) * lu(k,1231)
5257 141111616 : lu(k,1235) = lu(k,1235) - lu(k,1187) * lu(k,1231)
5258 141111616 : lu(k,1236) = lu(k,1236) - lu(k,1188) * lu(k,1231)
5259 141111616 : lu(k,1237) = lu(k,1237) - lu(k,1189) * lu(k,1231)
5260 141111616 : lu(k,1238) = lu(k,1238) - lu(k,1190) * lu(k,1231)
5261 141111616 : lu(k,1239) = lu(k,1239) - lu(k,1191) * lu(k,1231)
5262 141111616 : lu(k,1240) = lu(k,1240) - lu(k,1192) * lu(k,1231)
5263 141111616 : lu(k,1241) = lu(k,1241) - lu(k,1193) * lu(k,1231)
5264 141111616 : lu(k,1242) = lu(k,1242) - lu(k,1194) * lu(k,1231)
5265 141111616 : lu(k,1243) = lu(k,1243) - lu(k,1195) * lu(k,1231)
5266 141111616 : lu(k,1244) = lu(k,1244) - lu(k,1196) * lu(k,1231)
5267 141111616 : lu(k,1316) = lu(k,1316) - lu(k,1184) * lu(k,1315)
5268 141111616 : lu(k,1317) = lu(k,1317) - lu(k,1185) * lu(k,1315)
5269 141111616 : lu(k,1318) = lu(k,1318) - lu(k,1186) * lu(k,1315)
5270 141111616 : lu(k,1319) = lu(k,1319) - lu(k,1187) * lu(k,1315)
5271 141111616 : lu(k,1320) = lu(k,1320) - lu(k,1188) * lu(k,1315)
5272 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1189) * lu(k,1315)
5273 141111616 : lu(k,1323) = lu(k,1323) - lu(k,1190) * lu(k,1315)
5274 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1191) * lu(k,1315)
5275 141111616 : lu(k,1327) = lu(k,1327) - lu(k,1192) * lu(k,1315)
5276 141111616 : lu(k,1328) = lu(k,1328) - lu(k,1193) * lu(k,1315)
5277 141111616 : lu(k,1329) = lu(k,1329) - lu(k,1194) * lu(k,1315)
5278 141111616 : lu(k,1332) = lu(k,1332) - lu(k,1195) * lu(k,1315)
5279 141111616 : lu(k,1333) = lu(k,1333) - lu(k,1196) * lu(k,1315)
5280 141111616 : lu(k,1492) = lu(k,1492) - lu(k,1184) * lu(k,1491)
5281 141111616 : lu(k,1493) = lu(k,1493) - lu(k,1185) * lu(k,1491)
5282 141111616 : lu(k,1495) = lu(k,1495) - lu(k,1186) * lu(k,1491)
5283 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1187) * lu(k,1491)
5284 141111616 : lu(k,1497) = lu(k,1497) - lu(k,1188) * lu(k,1491)
5285 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1189) * lu(k,1491)
5286 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1190) * lu(k,1491)
5287 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1191) * lu(k,1491)
5288 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1192) * lu(k,1491)
5289 141111616 : lu(k,1506) = lu(k,1506) - lu(k,1193) * lu(k,1491)
5290 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1194) * lu(k,1491)
5291 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1195) * lu(k,1491)
5292 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1196) * lu(k,1491)
5293 141111616 : lu(k,1675) = lu(k,1675) - lu(k,1184) * lu(k,1674)
5294 141111616 : lu(k,1676) = lu(k,1676) - lu(k,1185) * lu(k,1674)
5295 141111616 : lu(k,1678) = lu(k,1678) - lu(k,1186) * lu(k,1674)
5296 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1187) * lu(k,1674)
5297 141111616 : lu(k,1680) = lu(k,1680) - lu(k,1188) * lu(k,1674)
5298 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1189) * lu(k,1674)
5299 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1190) * lu(k,1674)
5300 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1191) * lu(k,1674)
5301 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1192) * lu(k,1674)
5302 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1193) * lu(k,1674)
5303 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1194) * lu(k,1674)
5304 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1195) * lu(k,1674)
5305 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1196) * lu(k,1674)
5306 141111616 : lu(k,1791) = lu(k,1791) - lu(k,1184) * lu(k,1790)
5307 141111616 : lu(k,1792) = lu(k,1792) - lu(k,1185) * lu(k,1790)
5308 141111616 : lu(k,1794) = lu(k,1794) - lu(k,1186) * lu(k,1790)
5309 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1187) * lu(k,1790)
5310 141111616 : lu(k,1796) = lu(k,1796) - lu(k,1188) * lu(k,1790)
5311 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1189) * lu(k,1790)
5312 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1190) * lu(k,1790)
5313 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1191) * lu(k,1790)
5314 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1192) * lu(k,1790)
5315 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1193) * lu(k,1790)
5316 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1194) * lu(k,1790)
5317 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1195) * lu(k,1790)
5318 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1196) * lu(k,1790)
5319 141111616 : lu(k,1851) = lu(k,1851) - lu(k,1184) * lu(k,1850)
5320 141111616 : lu(k,1852) = lu(k,1852) - lu(k,1185) * lu(k,1850)
5321 141111616 : lu(k,1854) = lu(k,1854) - lu(k,1186) * lu(k,1850)
5322 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1187) * lu(k,1850)
5323 141111616 : lu(k,1856) = lu(k,1856) - lu(k,1188) * lu(k,1850)
5324 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1189) * lu(k,1850)
5325 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1190) * lu(k,1850)
5326 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1191) * lu(k,1850)
5327 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1192) * lu(k,1850)
5328 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1193) * lu(k,1850)
5329 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1194) * lu(k,1850)
5330 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1195) * lu(k,1850)
5331 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1196) * lu(k,1850)
5332 141111616 : lu(k,2006) = lu(k,2006) - lu(k,1184) * lu(k,2005)
5333 141111616 : lu(k,2007) = lu(k,2007) - lu(k,1185) * lu(k,2005)
5334 141111616 : lu(k,2009) = lu(k,2009) - lu(k,1186) * lu(k,2005)
5335 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1187) * lu(k,2005)
5336 141111616 : lu(k,2011) = lu(k,2011) - lu(k,1188) * lu(k,2005)
5337 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1189) * lu(k,2005)
5338 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1190) * lu(k,2005)
5339 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1191) * lu(k,2005)
5340 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1192) * lu(k,2005)
5341 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1193) * lu(k,2005)
5342 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1194) * lu(k,2005)
5343 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1195) * lu(k,2005)
5344 145521354 : lu(k,2025) = lu(k,2025) - lu(k,1196) * lu(k,2005)
5345 : end do
5346 4409738 : end subroutine lu_fac23
5347 4409738 : subroutine lu_fac24( avec_len, lu )
5348 : use chem_mods, only : nzcnt
5349 : use shr_kind_mod, only : r8 => shr_kind_r8
5350 : implicit none
5351 : !-----------------------------------------------------------------------
5352 : ! ... dummy args
5353 : !-----------------------------------------------------------------------
5354 : integer, intent(in) :: avec_len
5355 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5356 : !-----------------------------------------------------------------------
5357 : ! ... local variables
5358 : !-----------------------------------------------------------------------
5359 : integer :: k
5360 145521354 : do k = 1,avec_len
5361 141111616 : lu(k,1202) = 1._r8 / lu(k,1202)
5362 141111616 : lu(k,1203) = lu(k,1203) * lu(k,1202)
5363 141111616 : lu(k,1204) = lu(k,1204) * lu(k,1202)
5364 141111616 : lu(k,1205) = lu(k,1205) * lu(k,1202)
5365 141111616 : lu(k,1206) = lu(k,1206) * lu(k,1202)
5366 141111616 : lu(k,1207) = lu(k,1207) * lu(k,1202)
5367 141111616 : lu(k,1208) = lu(k,1208) * lu(k,1202)
5368 141111616 : lu(k,1209) = lu(k,1209) * lu(k,1202)
5369 141111616 : lu(k,1210) = lu(k,1210) * lu(k,1202)
5370 141111616 : lu(k,1211) = lu(k,1211) * lu(k,1202)
5371 141111616 : lu(k,1212) = lu(k,1212) * lu(k,1202)
5372 141111616 : lu(k,1213) = lu(k,1213) * lu(k,1202)
5373 141111616 : lu(k,1214) = lu(k,1214) * lu(k,1202)
5374 141111616 : lu(k,1233) = lu(k,1233) - lu(k,1203) * lu(k,1232)
5375 141111616 : lu(k,1234) = lu(k,1234) - lu(k,1204) * lu(k,1232)
5376 141111616 : lu(k,1235) = lu(k,1235) - lu(k,1205) * lu(k,1232)
5377 141111616 : lu(k,1236) = lu(k,1236) - lu(k,1206) * lu(k,1232)
5378 141111616 : lu(k,1237) = lu(k,1237) - lu(k,1207) * lu(k,1232)
5379 141111616 : lu(k,1238) = lu(k,1238) - lu(k,1208) * lu(k,1232)
5380 141111616 : lu(k,1239) = lu(k,1239) - lu(k,1209) * lu(k,1232)
5381 141111616 : lu(k,1240) = lu(k,1240) - lu(k,1210) * lu(k,1232)
5382 141111616 : lu(k,1241) = lu(k,1241) - lu(k,1211) * lu(k,1232)
5383 141111616 : lu(k,1242) = lu(k,1242) - lu(k,1212) * lu(k,1232)
5384 141111616 : lu(k,1243) = lu(k,1243) - lu(k,1213) * lu(k,1232)
5385 141111616 : lu(k,1244) = lu(k,1244) - lu(k,1214) * lu(k,1232)
5386 141111616 : lu(k,1317) = lu(k,1317) - lu(k,1203) * lu(k,1316)
5387 141111616 : lu(k,1318) = lu(k,1318) - lu(k,1204) * lu(k,1316)
5388 141111616 : lu(k,1319) = lu(k,1319) - lu(k,1205) * lu(k,1316)
5389 141111616 : lu(k,1320) = lu(k,1320) - lu(k,1206) * lu(k,1316)
5390 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1207) * lu(k,1316)
5391 141111616 : lu(k,1323) = lu(k,1323) - lu(k,1208) * lu(k,1316)
5392 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1209) * lu(k,1316)
5393 141111616 : lu(k,1327) = lu(k,1327) - lu(k,1210) * lu(k,1316)
5394 141111616 : lu(k,1328) = lu(k,1328) - lu(k,1211) * lu(k,1316)
5395 141111616 : lu(k,1329) = lu(k,1329) - lu(k,1212) * lu(k,1316)
5396 141111616 : lu(k,1332) = lu(k,1332) - lu(k,1213) * lu(k,1316)
5397 141111616 : lu(k,1333) = lu(k,1333) - lu(k,1214) * lu(k,1316)
5398 141111616 : lu(k,1493) = lu(k,1493) - lu(k,1203) * lu(k,1492)
5399 141111616 : lu(k,1495) = lu(k,1495) - lu(k,1204) * lu(k,1492)
5400 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1205) * lu(k,1492)
5401 141111616 : lu(k,1497) = lu(k,1497) - lu(k,1206) * lu(k,1492)
5402 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1207) * lu(k,1492)
5403 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1208) * lu(k,1492)
5404 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1209) * lu(k,1492)
5405 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1210) * lu(k,1492)
5406 141111616 : lu(k,1506) = lu(k,1506) - lu(k,1211) * lu(k,1492)
5407 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1212) * lu(k,1492)
5408 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1213) * lu(k,1492)
5409 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1214) * lu(k,1492)
5410 141111616 : lu(k,1676) = lu(k,1676) - lu(k,1203) * lu(k,1675)
5411 141111616 : lu(k,1678) = lu(k,1678) - lu(k,1204) * lu(k,1675)
5412 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1205) * lu(k,1675)
5413 141111616 : lu(k,1680) = lu(k,1680) - lu(k,1206) * lu(k,1675)
5414 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1207) * lu(k,1675)
5415 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1208) * lu(k,1675)
5416 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1209) * lu(k,1675)
5417 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1210) * lu(k,1675)
5418 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1211) * lu(k,1675)
5419 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1212) * lu(k,1675)
5420 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1213) * lu(k,1675)
5421 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1214) * lu(k,1675)
5422 141111616 : lu(k,1792) = lu(k,1792) - lu(k,1203) * lu(k,1791)
5423 141111616 : lu(k,1794) = lu(k,1794) - lu(k,1204) * lu(k,1791)
5424 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1205) * lu(k,1791)
5425 141111616 : lu(k,1796) = lu(k,1796) - lu(k,1206) * lu(k,1791)
5426 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1207) * lu(k,1791)
5427 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1208) * lu(k,1791)
5428 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1209) * lu(k,1791)
5429 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1210) * lu(k,1791)
5430 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1211) * lu(k,1791)
5431 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1212) * lu(k,1791)
5432 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1213) * lu(k,1791)
5433 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1214) * lu(k,1791)
5434 141111616 : lu(k,1852) = lu(k,1852) - lu(k,1203) * lu(k,1851)
5435 141111616 : lu(k,1854) = lu(k,1854) - lu(k,1204) * lu(k,1851)
5436 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1205) * lu(k,1851)
5437 141111616 : lu(k,1856) = lu(k,1856) - lu(k,1206) * lu(k,1851)
5438 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1207) * lu(k,1851)
5439 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1208) * lu(k,1851)
5440 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1209) * lu(k,1851)
5441 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1210) * lu(k,1851)
5442 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1211) * lu(k,1851)
5443 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1212) * lu(k,1851)
5444 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1213) * lu(k,1851)
5445 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1214) * lu(k,1851)
5446 141111616 : lu(k,1893) = lu(k,1893) - lu(k,1203) * lu(k,1892)
5447 141111616 : lu(k,1895) = lu(k,1895) - lu(k,1204) * lu(k,1892)
5448 141111616 : lu(k,1896) = lu(k,1896) - lu(k,1205) * lu(k,1892)
5449 141111616 : lu(k,1897) = lu(k,1897) - lu(k,1206) * lu(k,1892)
5450 141111616 : lu(k,1899) = lu(k,1899) - lu(k,1207) * lu(k,1892)
5451 141111616 : lu(k,1901) = lu(k,1901) - lu(k,1208) * lu(k,1892)
5452 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1209) * lu(k,1892)
5453 141111616 : lu(k,1905) = lu(k,1905) - lu(k,1210) * lu(k,1892)
5454 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1211) * lu(k,1892)
5455 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1212) * lu(k,1892)
5456 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1213) * lu(k,1892)
5457 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1214) * lu(k,1892)
5458 141111616 : lu(k,2007) = lu(k,2007) - lu(k,1203) * lu(k,2006)
5459 141111616 : lu(k,2009) = lu(k,2009) - lu(k,1204) * lu(k,2006)
5460 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1205) * lu(k,2006)
5461 141111616 : lu(k,2011) = lu(k,2011) - lu(k,1206) * lu(k,2006)
5462 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1207) * lu(k,2006)
5463 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1208) * lu(k,2006)
5464 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1209) * lu(k,2006)
5465 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1210) * lu(k,2006)
5466 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1211) * lu(k,2006)
5467 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1212) * lu(k,2006)
5468 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1213) * lu(k,2006)
5469 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1214) * lu(k,2006)
5470 141111616 : lu(k,1233) = 1._r8 / lu(k,1233)
5471 141111616 : lu(k,1234) = lu(k,1234) * lu(k,1233)
5472 141111616 : lu(k,1235) = lu(k,1235) * lu(k,1233)
5473 141111616 : lu(k,1236) = lu(k,1236) * lu(k,1233)
5474 141111616 : lu(k,1237) = lu(k,1237) * lu(k,1233)
5475 141111616 : lu(k,1238) = lu(k,1238) * lu(k,1233)
5476 141111616 : lu(k,1239) = lu(k,1239) * lu(k,1233)
5477 141111616 : lu(k,1240) = lu(k,1240) * lu(k,1233)
5478 141111616 : lu(k,1241) = lu(k,1241) * lu(k,1233)
5479 141111616 : lu(k,1242) = lu(k,1242) * lu(k,1233)
5480 141111616 : lu(k,1243) = lu(k,1243) * lu(k,1233)
5481 141111616 : lu(k,1244) = lu(k,1244) * lu(k,1233)
5482 141111616 : lu(k,1318) = lu(k,1318) - lu(k,1234) * lu(k,1317)
5483 141111616 : lu(k,1319) = lu(k,1319) - lu(k,1235) * lu(k,1317)
5484 141111616 : lu(k,1320) = lu(k,1320) - lu(k,1236) * lu(k,1317)
5485 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1237) * lu(k,1317)
5486 141111616 : lu(k,1323) = lu(k,1323) - lu(k,1238) * lu(k,1317)
5487 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1239) * lu(k,1317)
5488 141111616 : lu(k,1327) = lu(k,1327) - lu(k,1240) * lu(k,1317)
5489 141111616 : lu(k,1328) = lu(k,1328) - lu(k,1241) * lu(k,1317)
5490 141111616 : lu(k,1329) = lu(k,1329) - lu(k,1242) * lu(k,1317)
5491 141111616 : lu(k,1332) = lu(k,1332) - lu(k,1243) * lu(k,1317)
5492 141111616 : lu(k,1333) = lu(k,1333) - lu(k,1244) * lu(k,1317)
5493 141111616 : lu(k,1495) = lu(k,1495) - lu(k,1234) * lu(k,1493)
5494 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1235) * lu(k,1493)
5495 141111616 : lu(k,1497) = lu(k,1497) - lu(k,1236) * lu(k,1493)
5496 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1237) * lu(k,1493)
5497 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1238) * lu(k,1493)
5498 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1239) * lu(k,1493)
5499 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1240) * lu(k,1493)
5500 141111616 : lu(k,1506) = lu(k,1506) - lu(k,1241) * lu(k,1493)
5501 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1242) * lu(k,1493)
5502 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1243) * lu(k,1493)
5503 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1244) * lu(k,1493)
5504 141111616 : lu(k,1678) = lu(k,1678) - lu(k,1234) * lu(k,1676)
5505 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1235) * lu(k,1676)
5506 141111616 : lu(k,1680) = lu(k,1680) - lu(k,1236) * lu(k,1676)
5507 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1237) * lu(k,1676)
5508 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1238) * lu(k,1676)
5509 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1239) * lu(k,1676)
5510 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1240) * lu(k,1676)
5511 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1241) * lu(k,1676)
5512 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1242) * lu(k,1676)
5513 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1243) * lu(k,1676)
5514 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1244) * lu(k,1676)
5515 141111616 : lu(k,1794) = lu(k,1794) - lu(k,1234) * lu(k,1792)
5516 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1235) * lu(k,1792)
5517 141111616 : lu(k,1796) = lu(k,1796) - lu(k,1236) * lu(k,1792)
5518 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1237) * lu(k,1792)
5519 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1238) * lu(k,1792)
5520 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1239) * lu(k,1792)
5521 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1240) * lu(k,1792)
5522 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1241) * lu(k,1792)
5523 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1242) * lu(k,1792)
5524 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1243) * lu(k,1792)
5525 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1244) * lu(k,1792)
5526 141111616 : lu(k,1854) = lu(k,1854) - lu(k,1234) * lu(k,1852)
5527 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1235) * lu(k,1852)
5528 141111616 : lu(k,1856) = lu(k,1856) - lu(k,1236) * lu(k,1852)
5529 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1237) * lu(k,1852)
5530 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1238) * lu(k,1852)
5531 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1239) * lu(k,1852)
5532 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1240) * lu(k,1852)
5533 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1241) * lu(k,1852)
5534 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1242) * lu(k,1852)
5535 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1243) * lu(k,1852)
5536 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1244) * lu(k,1852)
5537 141111616 : lu(k,1895) = lu(k,1895) - lu(k,1234) * lu(k,1893)
5538 141111616 : lu(k,1896) = lu(k,1896) - lu(k,1235) * lu(k,1893)
5539 141111616 : lu(k,1897) = lu(k,1897) - lu(k,1236) * lu(k,1893)
5540 141111616 : lu(k,1899) = lu(k,1899) - lu(k,1237) * lu(k,1893)
5541 141111616 : lu(k,1901) = lu(k,1901) - lu(k,1238) * lu(k,1893)
5542 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1239) * lu(k,1893)
5543 141111616 : lu(k,1905) = lu(k,1905) - lu(k,1240) * lu(k,1893)
5544 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1241) * lu(k,1893)
5545 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1242) * lu(k,1893)
5546 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1243) * lu(k,1893)
5547 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1244) * lu(k,1893)
5548 141111616 : lu(k,1952) = lu(k,1952) - lu(k,1234) * lu(k,1950)
5549 141111616 : lu(k,1953) = lu(k,1953) - lu(k,1235) * lu(k,1950)
5550 141111616 : lu(k,1954) = lu(k,1954) - lu(k,1236) * lu(k,1950)
5551 141111616 : lu(k,1956) = lu(k,1956) - lu(k,1237) * lu(k,1950)
5552 141111616 : lu(k,1958) = lu(k,1958) - lu(k,1238) * lu(k,1950)
5553 141111616 : lu(k,1960) = lu(k,1960) - lu(k,1239) * lu(k,1950)
5554 141111616 : lu(k,1962) = lu(k,1962) - lu(k,1240) * lu(k,1950)
5555 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1241) * lu(k,1950)
5556 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1242) * lu(k,1950)
5557 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1243) * lu(k,1950)
5558 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1244) * lu(k,1950)
5559 141111616 : lu(k,2009) = lu(k,2009) - lu(k,1234) * lu(k,2007)
5560 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1235) * lu(k,2007)
5561 141111616 : lu(k,2011) = lu(k,2011) - lu(k,1236) * lu(k,2007)
5562 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1237) * lu(k,2007)
5563 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1238) * lu(k,2007)
5564 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1239) * lu(k,2007)
5565 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1240) * lu(k,2007)
5566 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1241) * lu(k,2007)
5567 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1242) * lu(k,2007)
5568 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1243) * lu(k,2007)
5569 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1244) * lu(k,2007)
5570 141111616 : lu(k,1247) = 1._r8 / lu(k,1247)
5571 141111616 : lu(k,1248) = lu(k,1248) * lu(k,1247)
5572 141111616 : lu(k,1249) = lu(k,1249) * lu(k,1247)
5573 141111616 : lu(k,1250) = lu(k,1250) * lu(k,1247)
5574 141111616 : lu(k,1251) = lu(k,1251) * lu(k,1247)
5575 141111616 : lu(k,1252) = lu(k,1252) * lu(k,1247)
5576 141111616 : lu(k,1253) = lu(k,1253) * lu(k,1247)
5577 141111616 : lu(k,1254) = lu(k,1254) * lu(k,1247)
5578 141111616 : lu(k,1255) = lu(k,1255) * lu(k,1247)
5579 141111616 : lu(k,1256) = lu(k,1256) * lu(k,1247)
5580 141111616 : lu(k,1342) = lu(k,1342) - lu(k,1248) * lu(k,1340)
5581 141111616 : lu(k,1344) = lu(k,1344) - lu(k,1249) * lu(k,1340)
5582 141111616 : lu(k,1345) = lu(k,1345) - lu(k,1250) * lu(k,1340)
5583 141111616 : lu(k,1346) = lu(k,1346) - lu(k,1251) * lu(k,1340)
5584 141111616 : lu(k,1347) = lu(k,1347) - lu(k,1252) * lu(k,1340)
5585 141111616 : lu(k,1348) = lu(k,1348) - lu(k,1253) * lu(k,1340)
5586 141111616 : lu(k,1349) = lu(k,1349) - lu(k,1254) * lu(k,1340)
5587 141111616 : lu(k,1352) = lu(k,1352) - lu(k,1255) * lu(k,1340)
5588 141111616 : lu(k,1357) = lu(k,1357) - lu(k,1256) * lu(k,1340)
5589 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1248) * lu(k,1494)
5590 141111616 : lu(k,1498) = lu(k,1498) - lu(k,1249) * lu(k,1494)
5591 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1250) * lu(k,1494)
5592 141111616 : lu(k,1500) = lu(k,1500) - lu(k,1251) * lu(k,1494)
5593 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1252) * lu(k,1494)
5594 141111616 : lu(k,1502) = lu(k,1502) - lu(k,1253) * lu(k,1494)
5595 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1254) * lu(k,1494)
5596 141111616 : lu(k,1506) = lu(k,1506) - lu(k,1255) * lu(k,1494)
5597 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1256) * lu(k,1494)
5598 141111616 : lu(k,1520) = lu(k,1520) - lu(k,1248) * lu(k,1518)
5599 141111616 : lu(k,1522) = - lu(k,1249) * lu(k,1518)
5600 141111616 : lu(k,1523) = lu(k,1523) - lu(k,1250) * lu(k,1518)
5601 141111616 : lu(k,1524) = lu(k,1524) - lu(k,1251) * lu(k,1518)
5602 141111616 : lu(k,1525) = - lu(k,1252) * lu(k,1518)
5603 141111616 : lu(k,1526) = lu(k,1526) - lu(k,1253) * lu(k,1518)
5604 141111616 : lu(k,1527) = lu(k,1527) - lu(k,1254) * lu(k,1518)
5605 141111616 : lu(k,1530) = lu(k,1530) - lu(k,1255) * lu(k,1518)
5606 141111616 : lu(k,1535) = lu(k,1535) - lu(k,1256) * lu(k,1518)
5607 141111616 : lu(k,1543) = lu(k,1543) - lu(k,1248) * lu(k,1541)
5608 141111616 : lu(k,1545) = lu(k,1545) - lu(k,1249) * lu(k,1541)
5609 141111616 : lu(k,1546) = lu(k,1546) - lu(k,1250) * lu(k,1541)
5610 141111616 : lu(k,1547) = lu(k,1547) - lu(k,1251) * lu(k,1541)
5611 141111616 : lu(k,1548) = lu(k,1548) - lu(k,1252) * lu(k,1541)
5612 141111616 : lu(k,1549) = lu(k,1549) - lu(k,1253) * lu(k,1541)
5613 141111616 : lu(k,1550) = lu(k,1550) - lu(k,1254) * lu(k,1541)
5614 141111616 : lu(k,1553) = - lu(k,1255) * lu(k,1541)
5615 141111616 : lu(k,1558) = lu(k,1558) - lu(k,1256) * lu(k,1541)
5616 141111616 : lu(k,1573) = lu(k,1573) - lu(k,1248) * lu(k,1571)
5617 141111616 : lu(k,1575) = lu(k,1575) - lu(k,1249) * lu(k,1571)
5618 141111616 : lu(k,1576) = lu(k,1576) - lu(k,1250) * lu(k,1571)
5619 141111616 : lu(k,1577) = lu(k,1577) - lu(k,1251) * lu(k,1571)
5620 141111616 : lu(k,1578) = lu(k,1578) - lu(k,1252) * lu(k,1571)
5621 141111616 : lu(k,1579) = lu(k,1579) - lu(k,1253) * lu(k,1571)
5622 141111616 : lu(k,1580) = lu(k,1580) - lu(k,1254) * lu(k,1571)
5623 141111616 : lu(k,1583) = lu(k,1583) - lu(k,1255) * lu(k,1571)
5624 141111616 : lu(k,1588) = lu(k,1588) - lu(k,1256) * lu(k,1571)
5625 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1248) * lu(k,1677)
5626 141111616 : lu(k,1681) = lu(k,1681) - lu(k,1249) * lu(k,1677)
5627 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1250) * lu(k,1677)
5628 141111616 : lu(k,1683) = lu(k,1683) - lu(k,1251) * lu(k,1677)
5629 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1252) * lu(k,1677)
5630 141111616 : lu(k,1685) = lu(k,1685) - lu(k,1253) * lu(k,1677)
5631 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1254) * lu(k,1677)
5632 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1255) * lu(k,1677)
5633 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1256) * lu(k,1677)
5634 141111616 : lu(k,1705) = lu(k,1705) - lu(k,1248) * lu(k,1703)
5635 141111616 : lu(k,1707) = - lu(k,1249) * lu(k,1703)
5636 141111616 : lu(k,1708) = lu(k,1708) - lu(k,1250) * lu(k,1703)
5637 141111616 : lu(k,1709) = lu(k,1709) - lu(k,1251) * lu(k,1703)
5638 141111616 : lu(k,1710) = lu(k,1710) - lu(k,1252) * lu(k,1703)
5639 141111616 : lu(k,1711) = lu(k,1711) - lu(k,1253) * lu(k,1703)
5640 141111616 : lu(k,1712) = lu(k,1712) - lu(k,1254) * lu(k,1703)
5641 141111616 : lu(k,1715) = lu(k,1715) - lu(k,1255) * lu(k,1703)
5642 141111616 : lu(k,1720) = lu(k,1720) - lu(k,1256) * lu(k,1703)
5643 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1248) * lu(k,1793)
5644 141111616 : lu(k,1797) = - lu(k,1249) * lu(k,1793)
5645 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1250) * lu(k,1793)
5646 141111616 : lu(k,1799) = lu(k,1799) - lu(k,1251) * lu(k,1793)
5647 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1252) * lu(k,1793)
5648 141111616 : lu(k,1801) = lu(k,1801) - lu(k,1253) * lu(k,1793)
5649 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1254) * lu(k,1793)
5650 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1255) * lu(k,1793)
5651 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1256) * lu(k,1793)
5652 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1248) * lu(k,1853)
5653 141111616 : lu(k,1857) = lu(k,1857) - lu(k,1249) * lu(k,1853)
5654 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1250) * lu(k,1853)
5655 141111616 : lu(k,1859) = lu(k,1859) - lu(k,1251) * lu(k,1853)
5656 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1252) * lu(k,1853)
5657 141111616 : lu(k,1861) = lu(k,1861) - lu(k,1253) * lu(k,1853)
5658 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1254) * lu(k,1853)
5659 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1255) * lu(k,1853)
5660 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1256) * lu(k,1853)
5661 141111616 : lu(k,1896) = lu(k,1896) - lu(k,1248) * lu(k,1894)
5662 141111616 : lu(k,1898) = - lu(k,1249) * lu(k,1894)
5663 141111616 : lu(k,1899) = lu(k,1899) - lu(k,1250) * lu(k,1894)
5664 141111616 : lu(k,1900) = lu(k,1900) - lu(k,1251) * lu(k,1894)
5665 141111616 : lu(k,1901) = lu(k,1901) - lu(k,1252) * lu(k,1894)
5666 141111616 : lu(k,1902) = lu(k,1902) - lu(k,1253) * lu(k,1894)
5667 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1254) * lu(k,1894)
5668 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1255) * lu(k,1894)
5669 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1256) * lu(k,1894)
5670 141111616 : lu(k,1919) = lu(k,1919) - lu(k,1248) * lu(k,1917)
5671 141111616 : lu(k,1921) = lu(k,1921) - lu(k,1249) * lu(k,1917)
5672 141111616 : lu(k,1922) = lu(k,1922) - lu(k,1250) * lu(k,1917)
5673 141111616 : lu(k,1923) = lu(k,1923) - lu(k,1251) * lu(k,1917)
5674 141111616 : lu(k,1924) = - lu(k,1252) * lu(k,1917)
5675 141111616 : lu(k,1925) = lu(k,1925) - lu(k,1253) * lu(k,1917)
5676 141111616 : lu(k,1926) = - lu(k,1254) * lu(k,1917)
5677 141111616 : lu(k,1929) = - lu(k,1255) * lu(k,1917)
5678 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1256) * lu(k,1917)
5679 141111616 : lu(k,1953) = lu(k,1953) - lu(k,1248) * lu(k,1951)
5680 141111616 : lu(k,1955) = lu(k,1955) - lu(k,1249) * lu(k,1951)
5681 141111616 : lu(k,1956) = lu(k,1956) - lu(k,1250) * lu(k,1951)
5682 141111616 : lu(k,1957) = - lu(k,1251) * lu(k,1951)
5683 141111616 : lu(k,1958) = lu(k,1958) - lu(k,1252) * lu(k,1951)
5684 141111616 : lu(k,1959) = lu(k,1959) - lu(k,1253) * lu(k,1951)
5685 141111616 : lu(k,1960) = lu(k,1960) - lu(k,1254) * lu(k,1951)
5686 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1255) * lu(k,1951)
5687 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1256) * lu(k,1951)
5688 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1248) * lu(k,2008)
5689 141111616 : lu(k,2012) = - lu(k,1249) * lu(k,2008)
5690 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1250) * lu(k,2008)
5691 141111616 : lu(k,2014) = lu(k,2014) - lu(k,1251) * lu(k,2008)
5692 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1252) * lu(k,2008)
5693 141111616 : lu(k,2016) = lu(k,2016) - lu(k,1253) * lu(k,2008)
5694 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1254) * lu(k,2008)
5695 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1255) * lu(k,2008)
5696 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1256) * lu(k,2008)
5697 141111616 : lu(k,2035) = lu(k,2035) - lu(k,1248) * lu(k,2033)
5698 141111616 : lu(k,2037) = lu(k,2037) - lu(k,1249) * lu(k,2033)
5699 141111616 : lu(k,2038) = lu(k,2038) - lu(k,1250) * lu(k,2033)
5700 141111616 : lu(k,2039) = lu(k,2039) - lu(k,1251) * lu(k,2033)
5701 141111616 : lu(k,2040) = - lu(k,1252) * lu(k,2033)
5702 141111616 : lu(k,2041) = lu(k,2041) - lu(k,1253) * lu(k,2033)
5703 141111616 : lu(k,2042) = lu(k,2042) - lu(k,1254) * lu(k,2033)
5704 141111616 : lu(k,2045) = lu(k,2045) - lu(k,1255) * lu(k,2033)
5705 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1256) * lu(k,2033)
5706 141111616 : lu(k,1260) = 1._r8 / lu(k,1260)
5707 141111616 : lu(k,1261) = lu(k,1261) * lu(k,1260)
5708 141111616 : lu(k,1262) = lu(k,1262) * lu(k,1260)
5709 141111616 : lu(k,1263) = lu(k,1263) * lu(k,1260)
5710 141111616 : lu(k,1264) = lu(k,1264) * lu(k,1260)
5711 141111616 : lu(k,1265) = lu(k,1265) * lu(k,1260)
5712 141111616 : lu(k,1266) = lu(k,1266) * lu(k,1260)
5713 141111616 : lu(k,1267) = lu(k,1267) * lu(k,1260)
5714 141111616 : lu(k,1268) = lu(k,1268) * lu(k,1260)
5715 141111616 : lu(k,1269) = lu(k,1269) * lu(k,1260)
5716 141111616 : lu(k,1270) = lu(k,1270) * lu(k,1260)
5717 141111616 : lu(k,1273) = lu(k,1273) - lu(k,1261) * lu(k,1272)
5718 141111616 : lu(k,1274) = lu(k,1274) - lu(k,1262) * lu(k,1272)
5719 141111616 : lu(k,1275) = lu(k,1275) - lu(k,1263) * lu(k,1272)
5720 141111616 : lu(k,1276) = lu(k,1276) - lu(k,1264) * lu(k,1272)
5721 141111616 : lu(k,1277) = lu(k,1277) - lu(k,1265) * lu(k,1272)
5722 141111616 : lu(k,1280) = - lu(k,1266) * lu(k,1272)
5723 141111616 : lu(k,1281) = lu(k,1281) - lu(k,1267) * lu(k,1272)
5724 141111616 : lu(k,1282) = lu(k,1282) - lu(k,1268) * lu(k,1272)
5725 141111616 : lu(k,1283) = lu(k,1283) - lu(k,1269) * lu(k,1272)
5726 141111616 : lu(k,1284) = lu(k,1284) - lu(k,1270) * lu(k,1272)
5727 141111616 : lu(k,1319) = lu(k,1319) - lu(k,1261) * lu(k,1318)
5728 141111616 : lu(k,1320) = lu(k,1320) - lu(k,1262) * lu(k,1318)
5729 141111616 : lu(k,1321) = - lu(k,1263) * lu(k,1318)
5730 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1264) * lu(k,1318)
5731 141111616 : lu(k,1324) = - lu(k,1265) * lu(k,1318)
5732 141111616 : lu(k,1329) = lu(k,1329) - lu(k,1266) * lu(k,1318)
5733 141111616 : lu(k,1330) = - lu(k,1267) * lu(k,1318)
5734 141111616 : lu(k,1331) = lu(k,1331) - lu(k,1268) * lu(k,1318)
5735 141111616 : lu(k,1332) = lu(k,1332) - lu(k,1269) * lu(k,1318)
5736 141111616 : lu(k,1333) = lu(k,1333) - lu(k,1270) * lu(k,1318)
5737 141111616 : lu(k,1342) = lu(k,1342) - lu(k,1261) * lu(k,1341)
5738 141111616 : lu(k,1343) = lu(k,1343) - lu(k,1262) * lu(k,1341)
5739 141111616 : lu(k,1344) = lu(k,1344) - lu(k,1263) * lu(k,1341)
5740 141111616 : lu(k,1345) = lu(k,1345) - lu(k,1264) * lu(k,1341)
5741 141111616 : lu(k,1348) = lu(k,1348) - lu(k,1265) * lu(k,1341)
5742 141111616 : lu(k,1353) = - lu(k,1266) * lu(k,1341)
5743 141111616 : lu(k,1354) = lu(k,1354) - lu(k,1267) * lu(k,1341)
5744 141111616 : lu(k,1355) = lu(k,1355) - lu(k,1268) * lu(k,1341)
5745 141111616 : lu(k,1356) = lu(k,1356) - lu(k,1269) * lu(k,1341)
5746 141111616 : lu(k,1357) = lu(k,1357) - lu(k,1270) * lu(k,1341)
5747 141111616 : lu(k,1496) = lu(k,1496) - lu(k,1261) * lu(k,1495)
5748 141111616 : lu(k,1497) = lu(k,1497) - lu(k,1262) * lu(k,1495)
5749 141111616 : lu(k,1498) = lu(k,1498) - lu(k,1263) * lu(k,1495)
5750 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1264) * lu(k,1495)
5751 141111616 : lu(k,1502) = lu(k,1502) - lu(k,1265) * lu(k,1495)
5752 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1266) * lu(k,1495)
5753 141111616 : lu(k,1508) = lu(k,1508) - lu(k,1267) * lu(k,1495)
5754 141111616 : lu(k,1509) = lu(k,1509) - lu(k,1268) * lu(k,1495)
5755 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1269) * lu(k,1495)
5756 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1270) * lu(k,1495)
5757 141111616 : lu(k,1520) = lu(k,1520) - lu(k,1261) * lu(k,1519)
5758 141111616 : lu(k,1521) = - lu(k,1262) * lu(k,1519)
5759 141111616 : lu(k,1522) = lu(k,1522) - lu(k,1263) * lu(k,1519)
5760 141111616 : lu(k,1523) = lu(k,1523) - lu(k,1264) * lu(k,1519)
5761 141111616 : lu(k,1526) = lu(k,1526) - lu(k,1265) * lu(k,1519)
5762 141111616 : lu(k,1531) = lu(k,1531) - lu(k,1266) * lu(k,1519)
5763 141111616 : lu(k,1532) = lu(k,1532) - lu(k,1267) * lu(k,1519)
5764 141111616 : lu(k,1533) = lu(k,1533) - lu(k,1268) * lu(k,1519)
5765 141111616 : lu(k,1534) = lu(k,1534) - lu(k,1269) * lu(k,1519)
5766 141111616 : lu(k,1535) = lu(k,1535) - lu(k,1270) * lu(k,1519)
5767 141111616 : lu(k,1543) = lu(k,1543) - lu(k,1261) * lu(k,1542)
5768 141111616 : lu(k,1544) = lu(k,1544) - lu(k,1262) * lu(k,1542)
5769 141111616 : lu(k,1545) = lu(k,1545) - lu(k,1263) * lu(k,1542)
5770 141111616 : lu(k,1546) = lu(k,1546) - lu(k,1264) * lu(k,1542)
5771 141111616 : lu(k,1549) = lu(k,1549) - lu(k,1265) * lu(k,1542)
5772 141111616 : lu(k,1554) = lu(k,1554) - lu(k,1266) * lu(k,1542)
5773 141111616 : lu(k,1555) = lu(k,1555) - lu(k,1267) * lu(k,1542)
5774 141111616 : lu(k,1556) = lu(k,1556) - lu(k,1268) * lu(k,1542)
5775 141111616 : lu(k,1557) = lu(k,1557) - lu(k,1269) * lu(k,1542)
5776 141111616 : lu(k,1558) = lu(k,1558) - lu(k,1270) * lu(k,1542)
5777 141111616 : lu(k,1573) = lu(k,1573) - lu(k,1261) * lu(k,1572)
5778 141111616 : lu(k,1574) = lu(k,1574) - lu(k,1262) * lu(k,1572)
5779 141111616 : lu(k,1575) = lu(k,1575) - lu(k,1263) * lu(k,1572)
5780 141111616 : lu(k,1576) = lu(k,1576) - lu(k,1264) * lu(k,1572)
5781 141111616 : lu(k,1579) = lu(k,1579) - lu(k,1265) * lu(k,1572)
5782 141111616 : lu(k,1584) = lu(k,1584) - lu(k,1266) * lu(k,1572)
5783 141111616 : lu(k,1585) = lu(k,1585) - lu(k,1267) * lu(k,1572)
5784 141111616 : lu(k,1586) = lu(k,1586) - lu(k,1268) * lu(k,1572)
5785 141111616 : lu(k,1587) = lu(k,1587) - lu(k,1269) * lu(k,1572)
5786 141111616 : lu(k,1588) = lu(k,1588) - lu(k,1270) * lu(k,1572)
5787 141111616 : lu(k,1679) = lu(k,1679) - lu(k,1261) * lu(k,1678)
5788 141111616 : lu(k,1680) = lu(k,1680) - lu(k,1262) * lu(k,1678)
5789 141111616 : lu(k,1681) = lu(k,1681) - lu(k,1263) * lu(k,1678)
5790 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1264) * lu(k,1678)
5791 141111616 : lu(k,1685) = lu(k,1685) - lu(k,1265) * lu(k,1678)
5792 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1266) * lu(k,1678)
5793 141111616 : lu(k,1691) = lu(k,1691) - lu(k,1267) * lu(k,1678)
5794 141111616 : lu(k,1692) = lu(k,1692) - lu(k,1268) * lu(k,1678)
5795 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1269) * lu(k,1678)
5796 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1270) * lu(k,1678)
5797 141111616 : lu(k,1705) = lu(k,1705) - lu(k,1261) * lu(k,1704)
5798 141111616 : lu(k,1706) = lu(k,1706) - lu(k,1262) * lu(k,1704)
5799 141111616 : lu(k,1707) = lu(k,1707) - lu(k,1263) * lu(k,1704)
5800 141111616 : lu(k,1708) = lu(k,1708) - lu(k,1264) * lu(k,1704)
5801 141111616 : lu(k,1711) = lu(k,1711) - lu(k,1265) * lu(k,1704)
5802 141111616 : lu(k,1716) = lu(k,1716) - lu(k,1266) * lu(k,1704)
5803 141111616 : lu(k,1717) = lu(k,1717) - lu(k,1267) * lu(k,1704)
5804 141111616 : lu(k,1718) = lu(k,1718) - lu(k,1268) * lu(k,1704)
5805 141111616 : lu(k,1719) = lu(k,1719) - lu(k,1269) * lu(k,1704)
5806 141111616 : lu(k,1720) = lu(k,1720) - lu(k,1270) * lu(k,1704)
5807 141111616 : lu(k,1795) = lu(k,1795) - lu(k,1261) * lu(k,1794)
5808 141111616 : lu(k,1796) = lu(k,1796) - lu(k,1262) * lu(k,1794)
5809 141111616 : lu(k,1797) = lu(k,1797) - lu(k,1263) * lu(k,1794)
5810 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1264) * lu(k,1794)
5811 141111616 : lu(k,1801) = lu(k,1801) - lu(k,1265) * lu(k,1794)
5812 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1266) * lu(k,1794)
5813 141111616 : lu(k,1807) = - lu(k,1267) * lu(k,1794)
5814 141111616 : lu(k,1808) = lu(k,1808) - lu(k,1268) * lu(k,1794)
5815 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1269) * lu(k,1794)
5816 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1270) * lu(k,1794)
5817 141111616 : lu(k,1855) = lu(k,1855) - lu(k,1261) * lu(k,1854)
5818 141111616 : lu(k,1856) = lu(k,1856) - lu(k,1262) * lu(k,1854)
5819 141111616 : lu(k,1857) = lu(k,1857) - lu(k,1263) * lu(k,1854)
5820 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1264) * lu(k,1854)
5821 141111616 : lu(k,1861) = lu(k,1861) - lu(k,1265) * lu(k,1854)
5822 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1266) * lu(k,1854)
5823 141111616 : lu(k,1867) = - lu(k,1267) * lu(k,1854)
5824 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1268) * lu(k,1854)
5825 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1269) * lu(k,1854)
5826 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1270) * lu(k,1854)
5827 141111616 : lu(k,1896) = lu(k,1896) - lu(k,1261) * lu(k,1895)
5828 141111616 : lu(k,1897) = lu(k,1897) - lu(k,1262) * lu(k,1895)
5829 141111616 : lu(k,1898) = lu(k,1898) - lu(k,1263) * lu(k,1895)
5830 141111616 : lu(k,1899) = lu(k,1899) - lu(k,1264) * lu(k,1895)
5831 141111616 : lu(k,1902) = lu(k,1902) - lu(k,1265) * lu(k,1895)
5832 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1266) * lu(k,1895)
5833 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1267) * lu(k,1895)
5834 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1268) * lu(k,1895)
5835 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1269) * lu(k,1895)
5836 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1270) * lu(k,1895)
5837 141111616 : lu(k,1919) = lu(k,1919) - lu(k,1261) * lu(k,1918)
5838 141111616 : lu(k,1920) = - lu(k,1262) * lu(k,1918)
5839 141111616 : lu(k,1921) = lu(k,1921) - lu(k,1263) * lu(k,1918)
5840 141111616 : lu(k,1922) = lu(k,1922) - lu(k,1264) * lu(k,1918)
5841 141111616 : lu(k,1925) = lu(k,1925) - lu(k,1265) * lu(k,1918)
5842 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1266) * lu(k,1918)
5843 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1267) * lu(k,1918)
5844 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1268) * lu(k,1918)
5845 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1269) * lu(k,1918)
5846 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1270) * lu(k,1918)
5847 141111616 : lu(k,1953) = lu(k,1953) - lu(k,1261) * lu(k,1952)
5848 141111616 : lu(k,1954) = lu(k,1954) - lu(k,1262) * lu(k,1952)
5849 141111616 : lu(k,1955) = lu(k,1955) - lu(k,1263) * lu(k,1952)
5850 141111616 : lu(k,1956) = lu(k,1956) - lu(k,1264) * lu(k,1952)
5851 141111616 : lu(k,1959) = lu(k,1959) - lu(k,1265) * lu(k,1952)
5852 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1266) * lu(k,1952)
5853 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1267) * lu(k,1952)
5854 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1268) * lu(k,1952)
5855 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1269) * lu(k,1952)
5856 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1270) * lu(k,1952)
5857 141111616 : lu(k,2010) = lu(k,2010) - lu(k,1261) * lu(k,2009)
5858 141111616 : lu(k,2011) = lu(k,2011) - lu(k,1262) * lu(k,2009)
5859 141111616 : lu(k,2012) = lu(k,2012) - lu(k,1263) * lu(k,2009)
5860 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1264) * lu(k,2009)
5861 141111616 : lu(k,2016) = lu(k,2016) - lu(k,1265) * lu(k,2009)
5862 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1266) * lu(k,2009)
5863 141111616 : lu(k,2022) = - lu(k,1267) * lu(k,2009)
5864 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1268) * lu(k,2009)
5865 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1269) * lu(k,2009)
5866 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1270) * lu(k,2009)
5867 141111616 : lu(k,2035) = lu(k,2035) - lu(k,1261) * lu(k,2034)
5868 141111616 : lu(k,2036) = lu(k,2036) - lu(k,1262) * lu(k,2034)
5869 141111616 : lu(k,2037) = lu(k,2037) - lu(k,1263) * lu(k,2034)
5870 141111616 : lu(k,2038) = lu(k,2038) - lu(k,1264) * lu(k,2034)
5871 141111616 : lu(k,2041) = lu(k,2041) - lu(k,1265) * lu(k,2034)
5872 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1266) * lu(k,2034)
5873 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1267) * lu(k,2034)
5874 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1268) * lu(k,2034)
5875 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1269) * lu(k,2034)
5876 145521354 : lu(k,2050) = lu(k,2050) - lu(k,1270) * lu(k,2034)
5877 : end do
5878 4409738 : end subroutine lu_fac24
5879 4409738 : subroutine lu_fac25( avec_len, lu )
5880 : use chem_mods, only : nzcnt
5881 : use shr_kind_mod, only : r8 => shr_kind_r8
5882 : implicit none
5883 : !-----------------------------------------------------------------------
5884 : ! ... dummy args
5885 : !-----------------------------------------------------------------------
5886 : integer, intent(in) :: avec_len
5887 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5888 : !-----------------------------------------------------------------------
5889 : ! ... local variables
5890 : !-----------------------------------------------------------------------
5891 : integer :: k
5892 145521354 : do k = 1,avec_len
5893 141111616 : lu(k,1273) = 1._r8 / lu(k,1273)
5894 141111616 : lu(k,1274) = lu(k,1274) * lu(k,1273)
5895 141111616 : lu(k,1275) = lu(k,1275) * lu(k,1273)
5896 141111616 : lu(k,1276) = lu(k,1276) * lu(k,1273)
5897 141111616 : lu(k,1277) = lu(k,1277) * lu(k,1273)
5898 141111616 : lu(k,1278) = lu(k,1278) * lu(k,1273)
5899 141111616 : lu(k,1279) = lu(k,1279) * lu(k,1273)
5900 141111616 : lu(k,1280) = lu(k,1280) * lu(k,1273)
5901 141111616 : lu(k,1281) = lu(k,1281) * lu(k,1273)
5902 141111616 : lu(k,1282) = lu(k,1282) * lu(k,1273)
5903 141111616 : lu(k,1283) = lu(k,1283) * lu(k,1273)
5904 141111616 : lu(k,1284) = lu(k,1284) * lu(k,1273)
5905 141111616 : lu(k,1320) = lu(k,1320) - lu(k,1274) * lu(k,1319)
5906 141111616 : lu(k,1321) = lu(k,1321) - lu(k,1275) * lu(k,1319)
5907 141111616 : lu(k,1322) = lu(k,1322) - lu(k,1276) * lu(k,1319)
5908 141111616 : lu(k,1324) = lu(k,1324) - lu(k,1277) * lu(k,1319)
5909 141111616 : lu(k,1325) = lu(k,1325) - lu(k,1278) * lu(k,1319)
5910 141111616 : lu(k,1328) = lu(k,1328) - lu(k,1279) * lu(k,1319)
5911 141111616 : lu(k,1329) = lu(k,1329) - lu(k,1280) * lu(k,1319)
5912 141111616 : lu(k,1330) = lu(k,1330) - lu(k,1281) * lu(k,1319)
5913 141111616 : lu(k,1331) = lu(k,1331) - lu(k,1282) * lu(k,1319)
5914 141111616 : lu(k,1332) = lu(k,1332) - lu(k,1283) * lu(k,1319)
5915 141111616 : lu(k,1333) = lu(k,1333) - lu(k,1284) * lu(k,1319)
5916 141111616 : lu(k,1343) = lu(k,1343) - lu(k,1274) * lu(k,1342)
5917 141111616 : lu(k,1344) = lu(k,1344) - lu(k,1275) * lu(k,1342)
5918 141111616 : lu(k,1345) = lu(k,1345) - lu(k,1276) * lu(k,1342)
5919 141111616 : lu(k,1348) = lu(k,1348) - lu(k,1277) * lu(k,1342)
5920 141111616 : lu(k,1349) = lu(k,1349) - lu(k,1278) * lu(k,1342)
5921 141111616 : lu(k,1352) = lu(k,1352) - lu(k,1279) * lu(k,1342)
5922 141111616 : lu(k,1353) = lu(k,1353) - lu(k,1280) * lu(k,1342)
5923 141111616 : lu(k,1354) = lu(k,1354) - lu(k,1281) * lu(k,1342)
5924 141111616 : lu(k,1355) = lu(k,1355) - lu(k,1282) * lu(k,1342)
5925 141111616 : lu(k,1356) = lu(k,1356) - lu(k,1283) * lu(k,1342)
5926 141111616 : lu(k,1357) = lu(k,1357) - lu(k,1284) * lu(k,1342)
5927 141111616 : lu(k,1497) = lu(k,1497) - lu(k,1274) * lu(k,1496)
5928 141111616 : lu(k,1498) = lu(k,1498) - lu(k,1275) * lu(k,1496)
5929 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1276) * lu(k,1496)
5930 141111616 : lu(k,1502) = lu(k,1502) - lu(k,1277) * lu(k,1496)
5931 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1278) * lu(k,1496)
5932 141111616 : lu(k,1506) = lu(k,1506) - lu(k,1279) * lu(k,1496)
5933 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1280) * lu(k,1496)
5934 141111616 : lu(k,1508) = lu(k,1508) - lu(k,1281) * lu(k,1496)
5935 141111616 : lu(k,1509) = lu(k,1509) - lu(k,1282) * lu(k,1496)
5936 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1283) * lu(k,1496)
5937 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1284) * lu(k,1496)
5938 141111616 : lu(k,1521) = lu(k,1521) - lu(k,1274) * lu(k,1520)
5939 141111616 : lu(k,1522) = lu(k,1522) - lu(k,1275) * lu(k,1520)
5940 141111616 : lu(k,1523) = lu(k,1523) - lu(k,1276) * lu(k,1520)
5941 141111616 : lu(k,1526) = lu(k,1526) - lu(k,1277) * lu(k,1520)
5942 141111616 : lu(k,1527) = lu(k,1527) - lu(k,1278) * lu(k,1520)
5943 141111616 : lu(k,1530) = lu(k,1530) - lu(k,1279) * lu(k,1520)
5944 141111616 : lu(k,1531) = lu(k,1531) - lu(k,1280) * lu(k,1520)
5945 141111616 : lu(k,1532) = lu(k,1532) - lu(k,1281) * lu(k,1520)
5946 141111616 : lu(k,1533) = lu(k,1533) - lu(k,1282) * lu(k,1520)
5947 141111616 : lu(k,1534) = lu(k,1534) - lu(k,1283) * lu(k,1520)
5948 141111616 : lu(k,1535) = lu(k,1535) - lu(k,1284) * lu(k,1520)
5949 141111616 : lu(k,1544) = lu(k,1544) - lu(k,1274) * lu(k,1543)
5950 141111616 : lu(k,1545) = lu(k,1545) - lu(k,1275) * lu(k,1543)
5951 141111616 : lu(k,1546) = lu(k,1546) - lu(k,1276) * lu(k,1543)
5952 141111616 : lu(k,1549) = lu(k,1549) - lu(k,1277) * lu(k,1543)
5953 141111616 : lu(k,1550) = lu(k,1550) - lu(k,1278) * lu(k,1543)
5954 141111616 : lu(k,1553) = lu(k,1553) - lu(k,1279) * lu(k,1543)
5955 141111616 : lu(k,1554) = lu(k,1554) - lu(k,1280) * lu(k,1543)
5956 141111616 : lu(k,1555) = lu(k,1555) - lu(k,1281) * lu(k,1543)
5957 141111616 : lu(k,1556) = lu(k,1556) - lu(k,1282) * lu(k,1543)
5958 141111616 : lu(k,1557) = lu(k,1557) - lu(k,1283) * lu(k,1543)
5959 141111616 : lu(k,1558) = lu(k,1558) - lu(k,1284) * lu(k,1543)
5960 141111616 : lu(k,1574) = lu(k,1574) - lu(k,1274) * lu(k,1573)
5961 141111616 : lu(k,1575) = lu(k,1575) - lu(k,1275) * lu(k,1573)
5962 141111616 : lu(k,1576) = lu(k,1576) - lu(k,1276) * lu(k,1573)
5963 141111616 : lu(k,1579) = lu(k,1579) - lu(k,1277) * lu(k,1573)
5964 141111616 : lu(k,1580) = lu(k,1580) - lu(k,1278) * lu(k,1573)
5965 141111616 : lu(k,1583) = lu(k,1583) - lu(k,1279) * lu(k,1573)
5966 141111616 : lu(k,1584) = lu(k,1584) - lu(k,1280) * lu(k,1573)
5967 141111616 : lu(k,1585) = lu(k,1585) - lu(k,1281) * lu(k,1573)
5968 141111616 : lu(k,1586) = lu(k,1586) - lu(k,1282) * lu(k,1573)
5969 141111616 : lu(k,1587) = lu(k,1587) - lu(k,1283) * lu(k,1573)
5970 141111616 : lu(k,1588) = lu(k,1588) - lu(k,1284) * lu(k,1573)
5971 141111616 : lu(k,1680) = lu(k,1680) - lu(k,1274) * lu(k,1679)
5972 141111616 : lu(k,1681) = lu(k,1681) - lu(k,1275) * lu(k,1679)
5973 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1276) * lu(k,1679)
5974 141111616 : lu(k,1685) = lu(k,1685) - lu(k,1277) * lu(k,1679)
5975 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1278) * lu(k,1679)
5976 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1279) * lu(k,1679)
5977 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1280) * lu(k,1679)
5978 141111616 : lu(k,1691) = lu(k,1691) - lu(k,1281) * lu(k,1679)
5979 141111616 : lu(k,1692) = lu(k,1692) - lu(k,1282) * lu(k,1679)
5980 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1283) * lu(k,1679)
5981 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1284) * lu(k,1679)
5982 141111616 : lu(k,1706) = lu(k,1706) - lu(k,1274) * lu(k,1705)
5983 141111616 : lu(k,1707) = lu(k,1707) - lu(k,1275) * lu(k,1705)
5984 141111616 : lu(k,1708) = lu(k,1708) - lu(k,1276) * lu(k,1705)
5985 141111616 : lu(k,1711) = lu(k,1711) - lu(k,1277) * lu(k,1705)
5986 141111616 : lu(k,1712) = lu(k,1712) - lu(k,1278) * lu(k,1705)
5987 141111616 : lu(k,1715) = lu(k,1715) - lu(k,1279) * lu(k,1705)
5988 141111616 : lu(k,1716) = lu(k,1716) - lu(k,1280) * lu(k,1705)
5989 141111616 : lu(k,1717) = lu(k,1717) - lu(k,1281) * lu(k,1705)
5990 141111616 : lu(k,1718) = lu(k,1718) - lu(k,1282) * lu(k,1705)
5991 141111616 : lu(k,1719) = lu(k,1719) - lu(k,1283) * lu(k,1705)
5992 141111616 : lu(k,1720) = lu(k,1720) - lu(k,1284) * lu(k,1705)
5993 141111616 : lu(k,1796) = lu(k,1796) - lu(k,1274) * lu(k,1795)
5994 141111616 : lu(k,1797) = lu(k,1797) - lu(k,1275) * lu(k,1795)
5995 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1276) * lu(k,1795)
5996 141111616 : lu(k,1801) = lu(k,1801) - lu(k,1277) * lu(k,1795)
5997 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1278) * lu(k,1795)
5998 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1279) * lu(k,1795)
5999 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1280) * lu(k,1795)
6000 141111616 : lu(k,1807) = lu(k,1807) - lu(k,1281) * lu(k,1795)
6001 141111616 : lu(k,1808) = lu(k,1808) - lu(k,1282) * lu(k,1795)
6002 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1283) * lu(k,1795)
6003 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1284) * lu(k,1795)
6004 141111616 : lu(k,1856) = lu(k,1856) - lu(k,1274) * lu(k,1855)
6005 141111616 : lu(k,1857) = lu(k,1857) - lu(k,1275) * lu(k,1855)
6006 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1276) * lu(k,1855)
6007 141111616 : lu(k,1861) = lu(k,1861) - lu(k,1277) * lu(k,1855)
6008 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1278) * lu(k,1855)
6009 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1279) * lu(k,1855)
6010 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1280) * lu(k,1855)
6011 141111616 : lu(k,1867) = lu(k,1867) - lu(k,1281) * lu(k,1855)
6012 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1282) * lu(k,1855)
6013 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1283) * lu(k,1855)
6014 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1284) * lu(k,1855)
6015 141111616 : lu(k,1897) = lu(k,1897) - lu(k,1274) * lu(k,1896)
6016 141111616 : lu(k,1898) = lu(k,1898) - lu(k,1275) * lu(k,1896)
6017 141111616 : lu(k,1899) = lu(k,1899) - lu(k,1276) * lu(k,1896)
6018 141111616 : lu(k,1902) = lu(k,1902) - lu(k,1277) * lu(k,1896)
6019 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1278) * lu(k,1896)
6020 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1279) * lu(k,1896)
6021 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1280) * lu(k,1896)
6022 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1281) * lu(k,1896)
6023 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1282) * lu(k,1896)
6024 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1283) * lu(k,1896)
6025 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1284) * lu(k,1896)
6026 141111616 : lu(k,1920) = lu(k,1920) - lu(k,1274) * lu(k,1919)
6027 141111616 : lu(k,1921) = lu(k,1921) - lu(k,1275) * lu(k,1919)
6028 141111616 : lu(k,1922) = lu(k,1922) - lu(k,1276) * lu(k,1919)
6029 141111616 : lu(k,1925) = lu(k,1925) - lu(k,1277) * lu(k,1919)
6030 141111616 : lu(k,1926) = lu(k,1926) - lu(k,1278) * lu(k,1919)
6031 141111616 : lu(k,1929) = lu(k,1929) - lu(k,1279) * lu(k,1919)
6032 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1280) * lu(k,1919)
6033 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1281) * lu(k,1919)
6034 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1282) * lu(k,1919)
6035 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1283) * lu(k,1919)
6036 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1284) * lu(k,1919)
6037 141111616 : lu(k,1954) = lu(k,1954) - lu(k,1274) * lu(k,1953)
6038 141111616 : lu(k,1955) = lu(k,1955) - lu(k,1275) * lu(k,1953)
6039 141111616 : lu(k,1956) = lu(k,1956) - lu(k,1276) * lu(k,1953)
6040 141111616 : lu(k,1959) = lu(k,1959) - lu(k,1277) * lu(k,1953)
6041 141111616 : lu(k,1960) = lu(k,1960) - lu(k,1278) * lu(k,1953)
6042 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1279) * lu(k,1953)
6043 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1280) * lu(k,1953)
6044 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1281) * lu(k,1953)
6045 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1282) * lu(k,1953)
6046 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1283) * lu(k,1953)
6047 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1284) * lu(k,1953)
6048 141111616 : lu(k,2011) = lu(k,2011) - lu(k,1274) * lu(k,2010)
6049 141111616 : lu(k,2012) = lu(k,2012) - lu(k,1275) * lu(k,2010)
6050 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1276) * lu(k,2010)
6051 141111616 : lu(k,2016) = lu(k,2016) - lu(k,1277) * lu(k,2010)
6052 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1278) * lu(k,2010)
6053 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1279) * lu(k,2010)
6054 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1280) * lu(k,2010)
6055 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1281) * lu(k,2010)
6056 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1282) * lu(k,2010)
6057 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1283) * lu(k,2010)
6058 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1284) * lu(k,2010)
6059 141111616 : lu(k,2036) = lu(k,2036) - lu(k,1274) * lu(k,2035)
6060 141111616 : lu(k,2037) = lu(k,2037) - lu(k,1275) * lu(k,2035)
6061 141111616 : lu(k,2038) = lu(k,2038) - lu(k,1276) * lu(k,2035)
6062 141111616 : lu(k,2041) = lu(k,2041) - lu(k,1277) * lu(k,2035)
6063 141111616 : lu(k,2042) = lu(k,2042) - lu(k,1278) * lu(k,2035)
6064 141111616 : lu(k,2045) = lu(k,2045) - lu(k,1279) * lu(k,2035)
6065 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1280) * lu(k,2035)
6066 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1281) * lu(k,2035)
6067 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1282) * lu(k,2035)
6068 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1283) * lu(k,2035)
6069 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1284) * lu(k,2035)
6070 141111616 : lu(k,1320) = 1._r8 / lu(k,1320)
6071 141111616 : lu(k,1321) = lu(k,1321) * lu(k,1320)
6072 141111616 : lu(k,1322) = lu(k,1322) * lu(k,1320)
6073 141111616 : lu(k,1323) = lu(k,1323) * lu(k,1320)
6074 141111616 : lu(k,1324) = lu(k,1324) * lu(k,1320)
6075 141111616 : lu(k,1325) = lu(k,1325) * lu(k,1320)
6076 141111616 : lu(k,1326) = lu(k,1326) * lu(k,1320)
6077 141111616 : lu(k,1327) = lu(k,1327) * lu(k,1320)
6078 141111616 : lu(k,1328) = lu(k,1328) * lu(k,1320)
6079 141111616 : lu(k,1329) = lu(k,1329) * lu(k,1320)
6080 141111616 : lu(k,1330) = lu(k,1330) * lu(k,1320)
6081 141111616 : lu(k,1331) = lu(k,1331) * lu(k,1320)
6082 141111616 : lu(k,1332) = lu(k,1332) * lu(k,1320)
6083 141111616 : lu(k,1333) = lu(k,1333) * lu(k,1320)
6084 141111616 : lu(k,1344) = lu(k,1344) - lu(k,1321) * lu(k,1343)
6085 141111616 : lu(k,1345) = lu(k,1345) - lu(k,1322) * lu(k,1343)
6086 141111616 : lu(k,1347) = lu(k,1347) - lu(k,1323) * lu(k,1343)
6087 141111616 : lu(k,1348) = lu(k,1348) - lu(k,1324) * lu(k,1343)
6088 141111616 : lu(k,1349) = lu(k,1349) - lu(k,1325) * lu(k,1343)
6089 141111616 : lu(k,1350) = lu(k,1350) - lu(k,1326) * lu(k,1343)
6090 141111616 : lu(k,1351) = lu(k,1351) - lu(k,1327) * lu(k,1343)
6091 141111616 : lu(k,1352) = lu(k,1352) - lu(k,1328) * lu(k,1343)
6092 141111616 : lu(k,1353) = lu(k,1353) - lu(k,1329) * lu(k,1343)
6093 141111616 : lu(k,1354) = lu(k,1354) - lu(k,1330) * lu(k,1343)
6094 141111616 : lu(k,1355) = lu(k,1355) - lu(k,1331) * lu(k,1343)
6095 141111616 : lu(k,1356) = lu(k,1356) - lu(k,1332) * lu(k,1343)
6096 141111616 : lu(k,1357) = lu(k,1357) - lu(k,1333) * lu(k,1343)
6097 141111616 : lu(k,1498) = lu(k,1498) - lu(k,1321) * lu(k,1497)
6098 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1322) * lu(k,1497)
6099 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1323) * lu(k,1497)
6100 141111616 : lu(k,1502) = lu(k,1502) - lu(k,1324) * lu(k,1497)
6101 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1325) * lu(k,1497)
6102 141111616 : lu(k,1504) = lu(k,1504) - lu(k,1326) * lu(k,1497)
6103 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1327) * lu(k,1497)
6104 141111616 : lu(k,1506) = lu(k,1506) - lu(k,1328) * lu(k,1497)
6105 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1329) * lu(k,1497)
6106 141111616 : lu(k,1508) = lu(k,1508) - lu(k,1330) * lu(k,1497)
6107 141111616 : lu(k,1509) = lu(k,1509) - lu(k,1331) * lu(k,1497)
6108 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1332) * lu(k,1497)
6109 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1333) * lu(k,1497)
6110 141111616 : lu(k,1522) = lu(k,1522) - lu(k,1321) * lu(k,1521)
6111 141111616 : lu(k,1523) = lu(k,1523) - lu(k,1322) * lu(k,1521)
6112 141111616 : lu(k,1525) = lu(k,1525) - lu(k,1323) * lu(k,1521)
6113 141111616 : lu(k,1526) = lu(k,1526) - lu(k,1324) * lu(k,1521)
6114 141111616 : lu(k,1527) = lu(k,1527) - lu(k,1325) * lu(k,1521)
6115 141111616 : lu(k,1528) = lu(k,1528) - lu(k,1326) * lu(k,1521)
6116 141111616 : lu(k,1529) = lu(k,1529) - lu(k,1327) * lu(k,1521)
6117 141111616 : lu(k,1530) = lu(k,1530) - lu(k,1328) * lu(k,1521)
6118 141111616 : lu(k,1531) = lu(k,1531) - lu(k,1329) * lu(k,1521)
6119 141111616 : lu(k,1532) = lu(k,1532) - lu(k,1330) * lu(k,1521)
6120 141111616 : lu(k,1533) = lu(k,1533) - lu(k,1331) * lu(k,1521)
6121 141111616 : lu(k,1534) = lu(k,1534) - lu(k,1332) * lu(k,1521)
6122 141111616 : lu(k,1535) = lu(k,1535) - lu(k,1333) * lu(k,1521)
6123 141111616 : lu(k,1545) = lu(k,1545) - lu(k,1321) * lu(k,1544)
6124 141111616 : lu(k,1546) = lu(k,1546) - lu(k,1322) * lu(k,1544)
6125 141111616 : lu(k,1548) = lu(k,1548) - lu(k,1323) * lu(k,1544)
6126 141111616 : lu(k,1549) = lu(k,1549) - lu(k,1324) * lu(k,1544)
6127 141111616 : lu(k,1550) = lu(k,1550) - lu(k,1325) * lu(k,1544)
6128 141111616 : lu(k,1551) = - lu(k,1326) * lu(k,1544)
6129 141111616 : lu(k,1552) = lu(k,1552) - lu(k,1327) * lu(k,1544)
6130 141111616 : lu(k,1553) = lu(k,1553) - lu(k,1328) * lu(k,1544)
6131 141111616 : lu(k,1554) = lu(k,1554) - lu(k,1329) * lu(k,1544)
6132 141111616 : lu(k,1555) = lu(k,1555) - lu(k,1330) * lu(k,1544)
6133 141111616 : lu(k,1556) = lu(k,1556) - lu(k,1331) * lu(k,1544)
6134 141111616 : lu(k,1557) = lu(k,1557) - lu(k,1332) * lu(k,1544)
6135 141111616 : lu(k,1558) = lu(k,1558) - lu(k,1333) * lu(k,1544)
6136 141111616 : lu(k,1575) = lu(k,1575) - lu(k,1321) * lu(k,1574)
6137 141111616 : lu(k,1576) = lu(k,1576) - lu(k,1322) * lu(k,1574)
6138 141111616 : lu(k,1578) = lu(k,1578) - lu(k,1323) * lu(k,1574)
6139 141111616 : lu(k,1579) = lu(k,1579) - lu(k,1324) * lu(k,1574)
6140 141111616 : lu(k,1580) = lu(k,1580) - lu(k,1325) * lu(k,1574)
6141 141111616 : lu(k,1581) = lu(k,1581) - lu(k,1326) * lu(k,1574)
6142 141111616 : lu(k,1582) = lu(k,1582) - lu(k,1327) * lu(k,1574)
6143 141111616 : lu(k,1583) = lu(k,1583) - lu(k,1328) * lu(k,1574)
6144 141111616 : lu(k,1584) = lu(k,1584) - lu(k,1329) * lu(k,1574)
6145 141111616 : lu(k,1585) = lu(k,1585) - lu(k,1330) * lu(k,1574)
6146 141111616 : lu(k,1586) = lu(k,1586) - lu(k,1331) * lu(k,1574)
6147 141111616 : lu(k,1587) = lu(k,1587) - lu(k,1332) * lu(k,1574)
6148 141111616 : lu(k,1588) = lu(k,1588) - lu(k,1333) * lu(k,1574)
6149 141111616 : lu(k,1681) = lu(k,1681) - lu(k,1321) * lu(k,1680)
6150 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1322) * lu(k,1680)
6151 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1323) * lu(k,1680)
6152 141111616 : lu(k,1685) = lu(k,1685) - lu(k,1324) * lu(k,1680)
6153 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1325) * lu(k,1680)
6154 141111616 : lu(k,1687) = lu(k,1687) - lu(k,1326) * lu(k,1680)
6155 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1327) * lu(k,1680)
6156 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1328) * lu(k,1680)
6157 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1329) * lu(k,1680)
6158 141111616 : lu(k,1691) = lu(k,1691) - lu(k,1330) * lu(k,1680)
6159 141111616 : lu(k,1692) = lu(k,1692) - lu(k,1331) * lu(k,1680)
6160 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1332) * lu(k,1680)
6161 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1333) * lu(k,1680)
6162 141111616 : lu(k,1707) = lu(k,1707) - lu(k,1321) * lu(k,1706)
6163 141111616 : lu(k,1708) = lu(k,1708) - lu(k,1322) * lu(k,1706)
6164 141111616 : lu(k,1710) = lu(k,1710) - lu(k,1323) * lu(k,1706)
6165 141111616 : lu(k,1711) = lu(k,1711) - lu(k,1324) * lu(k,1706)
6166 141111616 : lu(k,1712) = lu(k,1712) - lu(k,1325) * lu(k,1706)
6167 141111616 : lu(k,1713) = lu(k,1713) - lu(k,1326) * lu(k,1706)
6168 141111616 : lu(k,1714) = lu(k,1714) - lu(k,1327) * lu(k,1706)
6169 141111616 : lu(k,1715) = lu(k,1715) - lu(k,1328) * lu(k,1706)
6170 141111616 : lu(k,1716) = lu(k,1716) - lu(k,1329) * lu(k,1706)
6171 141111616 : lu(k,1717) = lu(k,1717) - lu(k,1330) * lu(k,1706)
6172 141111616 : lu(k,1718) = lu(k,1718) - lu(k,1331) * lu(k,1706)
6173 141111616 : lu(k,1719) = lu(k,1719) - lu(k,1332) * lu(k,1706)
6174 141111616 : lu(k,1720) = lu(k,1720) - lu(k,1333) * lu(k,1706)
6175 141111616 : lu(k,1797) = lu(k,1797) - lu(k,1321) * lu(k,1796)
6176 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1322) * lu(k,1796)
6177 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1323) * lu(k,1796)
6178 141111616 : lu(k,1801) = lu(k,1801) - lu(k,1324) * lu(k,1796)
6179 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1325) * lu(k,1796)
6180 141111616 : lu(k,1803) = lu(k,1803) - lu(k,1326) * lu(k,1796)
6181 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1327) * lu(k,1796)
6182 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1328) * lu(k,1796)
6183 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1329) * lu(k,1796)
6184 141111616 : lu(k,1807) = lu(k,1807) - lu(k,1330) * lu(k,1796)
6185 141111616 : lu(k,1808) = lu(k,1808) - lu(k,1331) * lu(k,1796)
6186 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1332) * lu(k,1796)
6187 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1333) * lu(k,1796)
6188 141111616 : lu(k,1857) = lu(k,1857) - lu(k,1321) * lu(k,1856)
6189 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1322) * lu(k,1856)
6190 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1323) * lu(k,1856)
6191 141111616 : lu(k,1861) = lu(k,1861) - lu(k,1324) * lu(k,1856)
6192 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1325) * lu(k,1856)
6193 141111616 : lu(k,1863) = lu(k,1863) - lu(k,1326) * lu(k,1856)
6194 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1327) * lu(k,1856)
6195 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1328) * lu(k,1856)
6196 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1329) * lu(k,1856)
6197 141111616 : lu(k,1867) = lu(k,1867) - lu(k,1330) * lu(k,1856)
6198 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1331) * lu(k,1856)
6199 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1332) * lu(k,1856)
6200 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1333) * lu(k,1856)
6201 141111616 : lu(k,1898) = lu(k,1898) - lu(k,1321) * lu(k,1897)
6202 141111616 : lu(k,1899) = lu(k,1899) - lu(k,1322) * lu(k,1897)
6203 141111616 : lu(k,1901) = lu(k,1901) - lu(k,1323) * lu(k,1897)
6204 141111616 : lu(k,1902) = lu(k,1902) - lu(k,1324) * lu(k,1897)
6205 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1325) * lu(k,1897)
6206 141111616 : lu(k,1904) = lu(k,1904) - lu(k,1326) * lu(k,1897)
6207 141111616 : lu(k,1905) = lu(k,1905) - lu(k,1327) * lu(k,1897)
6208 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1328) * lu(k,1897)
6209 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1329) * lu(k,1897)
6210 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1330) * lu(k,1897)
6211 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1331) * lu(k,1897)
6212 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1332) * lu(k,1897)
6213 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1333) * lu(k,1897)
6214 141111616 : lu(k,1921) = lu(k,1921) - lu(k,1321) * lu(k,1920)
6215 141111616 : lu(k,1922) = lu(k,1922) - lu(k,1322) * lu(k,1920)
6216 141111616 : lu(k,1924) = lu(k,1924) - lu(k,1323) * lu(k,1920)
6217 141111616 : lu(k,1925) = lu(k,1925) - lu(k,1324) * lu(k,1920)
6218 141111616 : lu(k,1926) = lu(k,1926) - lu(k,1325) * lu(k,1920)
6219 141111616 : lu(k,1927) = lu(k,1927) - lu(k,1326) * lu(k,1920)
6220 141111616 : lu(k,1928) = - lu(k,1327) * lu(k,1920)
6221 141111616 : lu(k,1929) = lu(k,1929) - lu(k,1328) * lu(k,1920)
6222 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1329) * lu(k,1920)
6223 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1330) * lu(k,1920)
6224 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1331) * lu(k,1920)
6225 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1332) * lu(k,1920)
6226 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1333) * lu(k,1920)
6227 141111616 : lu(k,1955) = lu(k,1955) - lu(k,1321) * lu(k,1954)
6228 141111616 : lu(k,1956) = lu(k,1956) - lu(k,1322) * lu(k,1954)
6229 141111616 : lu(k,1958) = lu(k,1958) - lu(k,1323) * lu(k,1954)
6230 141111616 : lu(k,1959) = lu(k,1959) - lu(k,1324) * lu(k,1954)
6231 141111616 : lu(k,1960) = lu(k,1960) - lu(k,1325) * lu(k,1954)
6232 141111616 : lu(k,1961) = lu(k,1961) - lu(k,1326) * lu(k,1954)
6233 141111616 : lu(k,1962) = lu(k,1962) - lu(k,1327) * lu(k,1954)
6234 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1328) * lu(k,1954)
6235 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1329) * lu(k,1954)
6236 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1330) * lu(k,1954)
6237 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1331) * lu(k,1954)
6238 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1332) * lu(k,1954)
6239 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1333) * lu(k,1954)
6240 141111616 : lu(k,2012) = lu(k,2012) - lu(k,1321) * lu(k,2011)
6241 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1322) * lu(k,2011)
6242 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1323) * lu(k,2011)
6243 141111616 : lu(k,2016) = lu(k,2016) - lu(k,1324) * lu(k,2011)
6244 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1325) * lu(k,2011)
6245 141111616 : lu(k,2018) = lu(k,2018) - lu(k,1326) * lu(k,2011)
6246 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1327) * lu(k,2011)
6247 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1328) * lu(k,2011)
6248 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1329) * lu(k,2011)
6249 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1330) * lu(k,2011)
6250 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1331) * lu(k,2011)
6251 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1332) * lu(k,2011)
6252 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1333) * lu(k,2011)
6253 141111616 : lu(k,2037) = lu(k,2037) - lu(k,1321) * lu(k,2036)
6254 141111616 : lu(k,2038) = lu(k,2038) - lu(k,1322) * lu(k,2036)
6255 141111616 : lu(k,2040) = lu(k,2040) - lu(k,1323) * lu(k,2036)
6256 141111616 : lu(k,2041) = lu(k,2041) - lu(k,1324) * lu(k,2036)
6257 141111616 : lu(k,2042) = lu(k,2042) - lu(k,1325) * lu(k,2036)
6258 141111616 : lu(k,2043) = lu(k,2043) - lu(k,1326) * lu(k,2036)
6259 141111616 : lu(k,2044) = lu(k,2044) - lu(k,1327) * lu(k,2036)
6260 141111616 : lu(k,2045) = lu(k,2045) - lu(k,1328) * lu(k,2036)
6261 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1329) * lu(k,2036)
6262 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1330) * lu(k,2036)
6263 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1331) * lu(k,2036)
6264 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1332) * lu(k,2036)
6265 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1333) * lu(k,2036)
6266 141111616 : lu(k,1344) = 1._r8 / lu(k,1344)
6267 141111616 : lu(k,1345) = lu(k,1345) * lu(k,1344)
6268 141111616 : lu(k,1346) = lu(k,1346) * lu(k,1344)
6269 141111616 : lu(k,1347) = lu(k,1347) * lu(k,1344)
6270 141111616 : lu(k,1348) = lu(k,1348) * lu(k,1344)
6271 141111616 : lu(k,1349) = lu(k,1349) * lu(k,1344)
6272 141111616 : lu(k,1350) = lu(k,1350) * lu(k,1344)
6273 141111616 : lu(k,1351) = lu(k,1351) * lu(k,1344)
6274 141111616 : lu(k,1352) = lu(k,1352) * lu(k,1344)
6275 141111616 : lu(k,1353) = lu(k,1353) * lu(k,1344)
6276 141111616 : lu(k,1354) = lu(k,1354) * lu(k,1344)
6277 141111616 : lu(k,1355) = lu(k,1355) * lu(k,1344)
6278 141111616 : lu(k,1356) = lu(k,1356) * lu(k,1344)
6279 141111616 : lu(k,1357) = lu(k,1357) * lu(k,1344)
6280 141111616 : lu(k,1499) = lu(k,1499) - lu(k,1345) * lu(k,1498)
6281 141111616 : lu(k,1500) = lu(k,1500) - lu(k,1346) * lu(k,1498)
6282 141111616 : lu(k,1501) = lu(k,1501) - lu(k,1347) * lu(k,1498)
6283 141111616 : lu(k,1502) = lu(k,1502) - lu(k,1348) * lu(k,1498)
6284 141111616 : lu(k,1503) = lu(k,1503) - lu(k,1349) * lu(k,1498)
6285 141111616 : lu(k,1504) = lu(k,1504) - lu(k,1350) * lu(k,1498)
6286 141111616 : lu(k,1505) = lu(k,1505) - lu(k,1351) * lu(k,1498)
6287 141111616 : lu(k,1506) = lu(k,1506) - lu(k,1352) * lu(k,1498)
6288 141111616 : lu(k,1507) = lu(k,1507) - lu(k,1353) * lu(k,1498)
6289 141111616 : lu(k,1508) = lu(k,1508) - lu(k,1354) * lu(k,1498)
6290 141111616 : lu(k,1509) = lu(k,1509) - lu(k,1355) * lu(k,1498)
6291 141111616 : lu(k,1510) = lu(k,1510) - lu(k,1356) * lu(k,1498)
6292 141111616 : lu(k,1511) = lu(k,1511) - lu(k,1357) * lu(k,1498)
6293 141111616 : lu(k,1523) = lu(k,1523) - lu(k,1345) * lu(k,1522)
6294 141111616 : lu(k,1524) = lu(k,1524) - lu(k,1346) * lu(k,1522)
6295 141111616 : lu(k,1525) = lu(k,1525) - lu(k,1347) * lu(k,1522)
6296 141111616 : lu(k,1526) = lu(k,1526) - lu(k,1348) * lu(k,1522)
6297 141111616 : lu(k,1527) = lu(k,1527) - lu(k,1349) * lu(k,1522)
6298 141111616 : lu(k,1528) = lu(k,1528) - lu(k,1350) * lu(k,1522)
6299 141111616 : lu(k,1529) = lu(k,1529) - lu(k,1351) * lu(k,1522)
6300 141111616 : lu(k,1530) = lu(k,1530) - lu(k,1352) * lu(k,1522)
6301 141111616 : lu(k,1531) = lu(k,1531) - lu(k,1353) * lu(k,1522)
6302 141111616 : lu(k,1532) = lu(k,1532) - lu(k,1354) * lu(k,1522)
6303 141111616 : lu(k,1533) = lu(k,1533) - lu(k,1355) * lu(k,1522)
6304 141111616 : lu(k,1534) = lu(k,1534) - lu(k,1356) * lu(k,1522)
6305 141111616 : lu(k,1535) = lu(k,1535) - lu(k,1357) * lu(k,1522)
6306 141111616 : lu(k,1546) = lu(k,1546) - lu(k,1345) * lu(k,1545)
6307 141111616 : lu(k,1547) = lu(k,1547) - lu(k,1346) * lu(k,1545)
6308 141111616 : lu(k,1548) = lu(k,1548) - lu(k,1347) * lu(k,1545)
6309 141111616 : lu(k,1549) = lu(k,1549) - lu(k,1348) * lu(k,1545)
6310 141111616 : lu(k,1550) = lu(k,1550) - lu(k,1349) * lu(k,1545)
6311 141111616 : lu(k,1551) = lu(k,1551) - lu(k,1350) * lu(k,1545)
6312 141111616 : lu(k,1552) = lu(k,1552) - lu(k,1351) * lu(k,1545)
6313 141111616 : lu(k,1553) = lu(k,1553) - lu(k,1352) * lu(k,1545)
6314 141111616 : lu(k,1554) = lu(k,1554) - lu(k,1353) * lu(k,1545)
6315 141111616 : lu(k,1555) = lu(k,1555) - lu(k,1354) * lu(k,1545)
6316 141111616 : lu(k,1556) = lu(k,1556) - lu(k,1355) * lu(k,1545)
6317 141111616 : lu(k,1557) = lu(k,1557) - lu(k,1356) * lu(k,1545)
6318 141111616 : lu(k,1558) = lu(k,1558) - lu(k,1357) * lu(k,1545)
6319 141111616 : lu(k,1576) = lu(k,1576) - lu(k,1345) * lu(k,1575)
6320 141111616 : lu(k,1577) = lu(k,1577) - lu(k,1346) * lu(k,1575)
6321 141111616 : lu(k,1578) = lu(k,1578) - lu(k,1347) * lu(k,1575)
6322 141111616 : lu(k,1579) = lu(k,1579) - lu(k,1348) * lu(k,1575)
6323 141111616 : lu(k,1580) = lu(k,1580) - lu(k,1349) * lu(k,1575)
6324 141111616 : lu(k,1581) = lu(k,1581) - lu(k,1350) * lu(k,1575)
6325 141111616 : lu(k,1582) = lu(k,1582) - lu(k,1351) * lu(k,1575)
6326 141111616 : lu(k,1583) = lu(k,1583) - lu(k,1352) * lu(k,1575)
6327 141111616 : lu(k,1584) = lu(k,1584) - lu(k,1353) * lu(k,1575)
6328 141111616 : lu(k,1585) = lu(k,1585) - lu(k,1354) * lu(k,1575)
6329 141111616 : lu(k,1586) = lu(k,1586) - lu(k,1355) * lu(k,1575)
6330 141111616 : lu(k,1587) = lu(k,1587) - lu(k,1356) * lu(k,1575)
6331 141111616 : lu(k,1588) = lu(k,1588) - lu(k,1357) * lu(k,1575)
6332 141111616 : lu(k,1682) = lu(k,1682) - lu(k,1345) * lu(k,1681)
6333 141111616 : lu(k,1683) = lu(k,1683) - lu(k,1346) * lu(k,1681)
6334 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1347) * lu(k,1681)
6335 141111616 : lu(k,1685) = lu(k,1685) - lu(k,1348) * lu(k,1681)
6336 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1349) * lu(k,1681)
6337 141111616 : lu(k,1687) = lu(k,1687) - lu(k,1350) * lu(k,1681)
6338 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1351) * lu(k,1681)
6339 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1352) * lu(k,1681)
6340 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1353) * lu(k,1681)
6341 141111616 : lu(k,1691) = lu(k,1691) - lu(k,1354) * lu(k,1681)
6342 141111616 : lu(k,1692) = lu(k,1692) - lu(k,1355) * lu(k,1681)
6343 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1356) * lu(k,1681)
6344 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1357) * lu(k,1681)
6345 141111616 : lu(k,1708) = lu(k,1708) - lu(k,1345) * lu(k,1707)
6346 141111616 : lu(k,1709) = lu(k,1709) - lu(k,1346) * lu(k,1707)
6347 141111616 : lu(k,1710) = lu(k,1710) - lu(k,1347) * lu(k,1707)
6348 141111616 : lu(k,1711) = lu(k,1711) - lu(k,1348) * lu(k,1707)
6349 141111616 : lu(k,1712) = lu(k,1712) - lu(k,1349) * lu(k,1707)
6350 141111616 : lu(k,1713) = lu(k,1713) - lu(k,1350) * lu(k,1707)
6351 141111616 : lu(k,1714) = lu(k,1714) - lu(k,1351) * lu(k,1707)
6352 141111616 : lu(k,1715) = lu(k,1715) - lu(k,1352) * lu(k,1707)
6353 141111616 : lu(k,1716) = lu(k,1716) - lu(k,1353) * lu(k,1707)
6354 141111616 : lu(k,1717) = lu(k,1717) - lu(k,1354) * lu(k,1707)
6355 141111616 : lu(k,1718) = lu(k,1718) - lu(k,1355) * lu(k,1707)
6356 141111616 : lu(k,1719) = lu(k,1719) - lu(k,1356) * lu(k,1707)
6357 141111616 : lu(k,1720) = lu(k,1720) - lu(k,1357) * lu(k,1707)
6358 141111616 : lu(k,1798) = lu(k,1798) - lu(k,1345) * lu(k,1797)
6359 141111616 : lu(k,1799) = lu(k,1799) - lu(k,1346) * lu(k,1797)
6360 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1347) * lu(k,1797)
6361 141111616 : lu(k,1801) = lu(k,1801) - lu(k,1348) * lu(k,1797)
6362 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1349) * lu(k,1797)
6363 141111616 : lu(k,1803) = lu(k,1803) - lu(k,1350) * lu(k,1797)
6364 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1351) * lu(k,1797)
6365 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1352) * lu(k,1797)
6366 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1353) * lu(k,1797)
6367 141111616 : lu(k,1807) = lu(k,1807) - lu(k,1354) * lu(k,1797)
6368 141111616 : lu(k,1808) = lu(k,1808) - lu(k,1355) * lu(k,1797)
6369 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1356) * lu(k,1797)
6370 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1357) * lu(k,1797)
6371 141111616 : lu(k,1858) = lu(k,1858) - lu(k,1345) * lu(k,1857)
6372 141111616 : lu(k,1859) = lu(k,1859) - lu(k,1346) * lu(k,1857)
6373 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1347) * lu(k,1857)
6374 141111616 : lu(k,1861) = lu(k,1861) - lu(k,1348) * lu(k,1857)
6375 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1349) * lu(k,1857)
6376 141111616 : lu(k,1863) = lu(k,1863) - lu(k,1350) * lu(k,1857)
6377 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1351) * lu(k,1857)
6378 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1352) * lu(k,1857)
6379 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1353) * lu(k,1857)
6380 141111616 : lu(k,1867) = lu(k,1867) - lu(k,1354) * lu(k,1857)
6381 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1355) * lu(k,1857)
6382 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1356) * lu(k,1857)
6383 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1357) * lu(k,1857)
6384 141111616 : lu(k,1899) = lu(k,1899) - lu(k,1345) * lu(k,1898)
6385 141111616 : lu(k,1900) = lu(k,1900) - lu(k,1346) * lu(k,1898)
6386 141111616 : lu(k,1901) = lu(k,1901) - lu(k,1347) * lu(k,1898)
6387 141111616 : lu(k,1902) = lu(k,1902) - lu(k,1348) * lu(k,1898)
6388 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1349) * lu(k,1898)
6389 141111616 : lu(k,1904) = lu(k,1904) - lu(k,1350) * lu(k,1898)
6390 141111616 : lu(k,1905) = lu(k,1905) - lu(k,1351) * lu(k,1898)
6391 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1352) * lu(k,1898)
6392 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1353) * lu(k,1898)
6393 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1354) * lu(k,1898)
6394 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1355) * lu(k,1898)
6395 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1356) * lu(k,1898)
6396 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1357) * lu(k,1898)
6397 141111616 : lu(k,1922) = lu(k,1922) - lu(k,1345) * lu(k,1921)
6398 141111616 : lu(k,1923) = lu(k,1923) - lu(k,1346) * lu(k,1921)
6399 141111616 : lu(k,1924) = lu(k,1924) - lu(k,1347) * lu(k,1921)
6400 141111616 : lu(k,1925) = lu(k,1925) - lu(k,1348) * lu(k,1921)
6401 141111616 : lu(k,1926) = lu(k,1926) - lu(k,1349) * lu(k,1921)
6402 141111616 : lu(k,1927) = lu(k,1927) - lu(k,1350) * lu(k,1921)
6403 141111616 : lu(k,1928) = lu(k,1928) - lu(k,1351) * lu(k,1921)
6404 141111616 : lu(k,1929) = lu(k,1929) - lu(k,1352) * lu(k,1921)
6405 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1353) * lu(k,1921)
6406 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1354) * lu(k,1921)
6407 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1355) * lu(k,1921)
6408 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1356) * lu(k,1921)
6409 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1357) * lu(k,1921)
6410 141111616 : lu(k,1956) = lu(k,1956) - lu(k,1345) * lu(k,1955)
6411 141111616 : lu(k,1957) = lu(k,1957) - lu(k,1346) * lu(k,1955)
6412 141111616 : lu(k,1958) = lu(k,1958) - lu(k,1347) * lu(k,1955)
6413 141111616 : lu(k,1959) = lu(k,1959) - lu(k,1348) * lu(k,1955)
6414 141111616 : lu(k,1960) = lu(k,1960) - lu(k,1349) * lu(k,1955)
6415 141111616 : lu(k,1961) = lu(k,1961) - lu(k,1350) * lu(k,1955)
6416 141111616 : lu(k,1962) = lu(k,1962) - lu(k,1351) * lu(k,1955)
6417 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1352) * lu(k,1955)
6418 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1353) * lu(k,1955)
6419 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1354) * lu(k,1955)
6420 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1355) * lu(k,1955)
6421 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1356) * lu(k,1955)
6422 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1357) * lu(k,1955)
6423 141111616 : lu(k,2013) = lu(k,2013) - lu(k,1345) * lu(k,2012)
6424 141111616 : lu(k,2014) = lu(k,2014) - lu(k,1346) * lu(k,2012)
6425 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1347) * lu(k,2012)
6426 141111616 : lu(k,2016) = lu(k,2016) - lu(k,1348) * lu(k,2012)
6427 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1349) * lu(k,2012)
6428 141111616 : lu(k,2018) = lu(k,2018) - lu(k,1350) * lu(k,2012)
6429 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1351) * lu(k,2012)
6430 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1352) * lu(k,2012)
6431 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1353) * lu(k,2012)
6432 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1354) * lu(k,2012)
6433 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1355) * lu(k,2012)
6434 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1356) * lu(k,2012)
6435 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1357) * lu(k,2012)
6436 141111616 : lu(k,2038) = lu(k,2038) - lu(k,1345) * lu(k,2037)
6437 141111616 : lu(k,2039) = lu(k,2039) - lu(k,1346) * lu(k,2037)
6438 141111616 : lu(k,2040) = lu(k,2040) - lu(k,1347) * lu(k,2037)
6439 141111616 : lu(k,2041) = lu(k,2041) - lu(k,1348) * lu(k,2037)
6440 141111616 : lu(k,2042) = lu(k,2042) - lu(k,1349) * lu(k,2037)
6441 141111616 : lu(k,2043) = lu(k,2043) - lu(k,1350) * lu(k,2037)
6442 141111616 : lu(k,2044) = lu(k,2044) - lu(k,1351) * lu(k,2037)
6443 141111616 : lu(k,2045) = lu(k,2045) - lu(k,1352) * lu(k,2037)
6444 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1353) * lu(k,2037)
6445 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1354) * lu(k,2037)
6446 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1355) * lu(k,2037)
6447 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1356) * lu(k,2037)
6448 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1357) * lu(k,2037)
6449 141111616 : lu(k,1499) = 1._r8 / lu(k,1499)
6450 141111616 : lu(k,1500) = lu(k,1500) * lu(k,1499)
6451 141111616 : lu(k,1501) = lu(k,1501) * lu(k,1499)
6452 141111616 : lu(k,1502) = lu(k,1502) * lu(k,1499)
6453 141111616 : lu(k,1503) = lu(k,1503) * lu(k,1499)
6454 141111616 : lu(k,1504) = lu(k,1504) * lu(k,1499)
6455 141111616 : lu(k,1505) = lu(k,1505) * lu(k,1499)
6456 141111616 : lu(k,1506) = lu(k,1506) * lu(k,1499)
6457 141111616 : lu(k,1507) = lu(k,1507) * lu(k,1499)
6458 141111616 : lu(k,1508) = lu(k,1508) * lu(k,1499)
6459 141111616 : lu(k,1509) = lu(k,1509) * lu(k,1499)
6460 141111616 : lu(k,1510) = lu(k,1510) * lu(k,1499)
6461 141111616 : lu(k,1511) = lu(k,1511) * lu(k,1499)
6462 141111616 : lu(k,1524) = lu(k,1524) - lu(k,1500) * lu(k,1523)
6463 141111616 : lu(k,1525) = lu(k,1525) - lu(k,1501) * lu(k,1523)
6464 141111616 : lu(k,1526) = lu(k,1526) - lu(k,1502) * lu(k,1523)
6465 141111616 : lu(k,1527) = lu(k,1527) - lu(k,1503) * lu(k,1523)
6466 141111616 : lu(k,1528) = lu(k,1528) - lu(k,1504) * lu(k,1523)
6467 141111616 : lu(k,1529) = lu(k,1529) - lu(k,1505) * lu(k,1523)
6468 141111616 : lu(k,1530) = lu(k,1530) - lu(k,1506) * lu(k,1523)
6469 141111616 : lu(k,1531) = lu(k,1531) - lu(k,1507) * lu(k,1523)
6470 141111616 : lu(k,1532) = lu(k,1532) - lu(k,1508) * lu(k,1523)
6471 141111616 : lu(k,1533) = lu(k,1533) - lu(k,1509) * lu(k,1523)
6472 141111616 : lu(k,1534) = lu(k,1534) - lu(k,1510) * lu(k,1523)
6473 141111616 : lu(k,1535) = lu(k,1535) - lu(k,1511) * lu(k,1523)
6474 141111616 : lu(k,1547) = lu(k,1547) - lu(k,1500) * lu(k,1546)
6475 141111616 : lu(k,1548) = lu(k,1548) - lu(k,1501) * lu(k,1546)
6476 141111616 : lu(k,1549) = lu(k,1549) - lu(k,1502) * lu(k,1546)
6477 141111616 : lu(k,1550) = lu(k,1550) - lu(k,1503) * lu(k,1546)
6478 141111616 : lu(k,1551) = lu(k,1551) - lu(k,1504) * lu(k,1546)
6479 141111616 : lu(k,1552) = lu(k,1552) - lu(k,1505) * lu(k,1546)
6480 141111616 : lu(k,1553) = lu(k,1553) - lu(k,1506) * lu(k,1546)
6481 141111616 : lu(k,1554) = lu(k,1554) - lu(k,1507) * lu(k,1546)
6482 141111616 : lu(k,1555) = lu(k,1555) - lu(k,1508) * lu(k,1546)
6483 141111616 : lu(k,1556) = lu(k,1556) - lu(k,1509) * lu(k,1546)
6484 141111616 : lu(k,1557) = lu(k,1557) - lu(k,1510) * lu(k,1546)
6485 141111616 : lu(k,1558) = lu(k,1558) - lu(k,1511) * lu(k,1546)
6486 141111616 : lu(k,1577) = lu(k,1577) - lu(k,1500) * lu(k,1576)
6487 141111616 : lu(k,1578) = lu(k,1578) - lu(k,1501) * lu(k,1576)
6488 141111616 : lu(k,1579) = lu(k,1579) - lu(k,1502) * lu(k,1576)
6489 141111616 : lu(k,1580) = lu(k,1580) - lu(k,1503) * lu(k,1576)
6490 141111616 : lu(k,1581) = lu(k,1581) - lu(k,1504) * lu(k,1576)
6491 141111616 : lu(k,1582) = lu(k,1582) - lu(k,1505) * lu(k,1576)
6492 141111616 : lu(k,1583) = lu(k,1583) - lu(k,1506) * lu(k,1576)
6493 141111616 : lu(k,1584) = lu(k,1584) - lu(k,1507) * lu(k,1576)
6494 141111616 : lu(k,1585) = lu(k,1585) - lu(k,1508) * lu(k,1576)
6495 141111616 : lu(k,1586) = lu(k,1586) - lu(k,1509) * lu(k,1576)
6496 141111616 : lu(k,1587) = lu(k,1587) - lu(k,1510) * lu(k,1576)
6497 141111616 : lu(k,1588) = lu(k,1588) - lu(k,1511) * lu(k,1576)
6498 141111616 : lu(k,1683) = lu(k,1683) - lu(k,1500) * lu(k,1682)
6499 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1501) * lu(k,1682)
6500 141111616 : lu(k,1685) = lu(k,1685) - lu(k,1502) * lu(k,1682)
6501 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1503) * lu(k,1682)
6502 141111616 : lu(k,1687) = lu(k,1687) - lu(k,1504) * lu(k,1682)
6503 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1505) * lu(k,1682)
6504 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1506) * lu(k,1682)
6505 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1507) * lu(k,1682)
6506 141111616 : lu(k,1691) = lu(k,1691) - lu(k,1508) * lu(k,1682)
6507 141111616 : lu(k,1692) = lu(k,1692) - lu(k,1509) * lu(k,1682)
6508 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1510) * lu(k,1682)
6509 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1511) * lu(k,1682)
6510 141111616 : lu(k,1709) = lu(k,1709) - lu(k,1500) * lu(k,1708)
6511 141111616 : lu(k,1710) = lu(k,1710) - lu(k,1501) * lu(k,1708)
6512 141111616 : lu(k,1711) = lu(k,1711) - lu(k,1502) * lu(k,1708)
6513 141111616 : lu(k,1712) = lu(k,1712) - lu(k,1503) * lu(k,1708)
6514 141111616 : lu(k,1713) = lu(k,1713) - lu(k,1504) * lu(k,1708)
6515 141111616 : lu(k,1714) = lu(k,1714) - lu(k,1505) * lu(k,1708)
6516 141111616 : lu(k,1715) = lu(k,1715) - lu(k,1506) * lu(k,1708)
6517 141111616 : lu(k,1716) = lu(k,1716) - lu(k,1507) * lu(k,1708)
6518 141111616 : lu(k,1717) = lu(k,1717) - lu(k,1508) * lu(k,1708)
6519 141111616 : lu(k,1718) = lu(k,1718) - lu(k,1509) * lu(k,1708)
6520 141111616 : lu(k,1719) = lu(k,1719) - lu(k,1510) * lu(k,1708)
6521 141111616 : lu(k,1720) = lu(k,1720) - lu(k,1511) * lu(k,1708)
6522 141111616 : lu(k,1799) = lu(k,1799) - lu(k,1500) * lu(k,1798)
6523 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1501) * lu(k,1798)
6524 141111616 : lu(k,1801) = lu(k,1801) - lu(k,1502) * lu(k,1798)
6525 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1503) * lu(k,1798)
6526 141111616 : lu(k,1803) = lu(k,1803) - lu(k,1504) * lu(k,1798)
6527 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1505) * lu(k,1798)
6528 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1506) * lu(k,1798)
6529 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1507) * lu(k,1798)
6530 141111616 : lu(k,1807) = lu(k,1807) - lu(k,1508) * lu(k,1798)
6531 141111616 : lu(k,1808) = lu(k,1808) - lu(k,1509) * lu(k,1798)
6532 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1510) * lu(k,1798)
6533 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1511) * lu(k,1798)
6534 141111616 : lu(k,1859) = lu(k,1859) - lu(k,1500) * lu(k,1858)
6535 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1501) * lu(k,1858)
6536 141111616 : lu(k,1861) = lu(k,1861) - lu(k,1502) * lu(k,1858)
6537 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1503) * lu(k,1858)
6538 141111616 : lu(k,1863) = lu(k,1863) - lu(k,1504) * lu(k,1858)
6539 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1505) * lu(k,1858)
6540 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1506) * lu(k,1858)
6541 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1507) * lu(k,1858)
6542 141111616 : lu(k,1867) = lu(k,1867) - lu(k,1508) * lu(k,1858)
6543 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1509) * lu(k,1858)
6544 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1510) * lu(k,1858)
6545 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1511) * lu(k,1858)
6546 141111616 : lu(k,1900) = lu(k,1900) - lu(k,1500) * lu(k,1899)
6547 141111616 : lu(k,1901) = lu(k,1901) - lu(k,1501) * lu(k,1899)
6548 141111616 : lu(k,1902) = lu(k,1902) - lu(k,1502) * lu(k,1899)
6549 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1503) * lu(k,1899)
6550 141111616 : lu(k,1904) = lu(k,1904) - lu(k,1504) * lu(k,1899)
6551 141111616 : lu(k,1905) = lu(k,1905) - lu(k,1505) * lu(k,1899)
6552 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1506) * lu(k,1899)
6553 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1507) * lu(k,1899)
6554 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1508) * lu(k,1899)
6555 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1509) * lu(k,1899)
6556 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1510) * lu(k,1899)
6557 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1511) * lu(k,1899)
6558 141111616 : lu(k,1923) = lu(k,1923) - lu(k,1500) * lu(k,1922)
6559 141111616 : lu(k,1924) = lu(k,1924) - lu(k,1501) * lu(k,1922)
6560 141111616 : lu(k,1925) = lu(k,1925) - lu(k,1502) * lu(k,1922)
6561 141111616 : lu(k,1926) = lu(k,1926) - lu(k,1503) * lu(k,1922)
6562 141111616 : lu(k,1927) = lu(k,1927) - lu(k,1504) * lu(k,1922)
6563 141111616 : lu(k,1928) = lu(k,1928) - lu(k,1505) * lu(k,1922)
6564 141111616 : lu(k,1929) = lu(k,1929) - lu(k,1506) * lu(k,1922)
6565 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1507) * lu(k,1922)
6566 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1508) * lu(k,1922)
6567 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1509) * lu(k,1922)
6568 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1510) * lu(k,1922)
6569 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1511) * lu(k,1922)
6570 141111616 : lu(k,1957) = lu(k,1957) - lu(k,1500) * lu(k,1956)
6571 141111616 : lu(k,1958) = lu(k,1958) - lu(k,1501) * lu(k,1956)
6572 141111616 : lu(k,1959) = lu(k,1959) - lu(k,1502) * lu(k,1956)
6573 141111616 : lu(k,1960) = lu(k,1960) - lu(k,1503) * lu(k,1956)
6574 141111616 : lu(k,1961) = lu(k,1961) - lu(k,1504) * lu(k,1956)
6575 141111616 : lu(k,1962) = lu(k,1962) - lu(k,1505) * lu(k,1956)
6576 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1506) * lu(k,1956)
6577 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1507) * lu(k,1956)
6578 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1508) * lu(k,1956)
6579 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1509) * lu(k,1956)
6580 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1510) * lu(k,1956)
6581 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1511) * lu(k,1956)
6582 141111616 : lu(k,2014) = lu(k,2014) - lu(k,1500) * lu(k,2013)
6583 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1501) * lu(k,2013)
6584 141111616 : lu(k,2016) = lu(k,2016) - lu(k,1502) * lu(k,2013)
6585 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1503) * lu(k,2013)
6586 141111616 : lu(k,2018) = lu(k,2018) - lu(k,1504) * lu(k,2013)
6587 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1505) * lu(k,2013)
6588 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1506) * lu(k,2013)
6589 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1507) * lu(k,2013)
6590 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1508) * lu(k,2013)
6591 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1509) * lu(k,2013)
6592 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1510) * lu(k,2013)
6593 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1511) * lu(k,2013)
6594 141111616 : lu(k,2039) = lu(k,2039) - lu(k,1500) * lu(k,2038)
6595 141111616 : lu(k,2040) = lu(k,2040) - lu(k,1501) * lu(k,2038)
6596 141111616 : lu(k,2041) = lu(k,2041) - lu(k,1502) * lu(k,2038)
6597 141111616 : lu(k,2042) = lu(k,2042) - lu(k,1503) * lu(k,2038)
6598 141111616 : lu(k,2043) = lu(k,2043) - lu(k,1504) * lu(k,2038)
6599 141111616 : lu(k,2044) = lu(k,2044) - lu(k,1505) * lu(k,2038)
6600 141111616 : lu(k,2045) = lu(k,2045) - lu(k,1506) * lu(k,2038)
6601 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1507) * lu(k,2038)
6602 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1508) * lu(k,2038)
6603 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1509) * lu(k,2038)
6604 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1510) * lu(k,2038)
6605 145521354 : lu(k,2050) = lu(k,2050) - lu(k,1511) * lu(k,2038)
6606 : end do
6607 4409738 : end subroutine lu_fac25
6608 4409738 : subroutine lu_fac26( avec_len, lu )
6609 : use chem_mods, only : nzcnt
6610 : use shr_kind_mod, only : r8 => shr_kind_r8
6611 : implicit none
6612 : !-----------------------------------------------------------------------
6613 : ! ... dummy args
6614 : !-----------------------------------------------------------------------
6615 : integer, intent(in) :: avec_len
6616 : real(r8), intent(inout) :: lu(veclen,nzcnt)
6617 : !-----------------------------------------------------------------------
6618 : ! ... local variables
6619 : !-----------------------------------------------------------------------
6620 : integer :: k
6621 145521354 : do k = 1,avec_len
6622 141111616 : lu(k,1524) = 1._r8 / lu(k,1524)
6623 141111616 : lu(k,1525) = lu(k,1525) * lu(k,1524)
6624 141111616 : lu(k,1526) = lu(k,1526) * lu(k,1524)
6625 141111616 : lu(k,1527) = lu(k,1527) * lu(k,1524)
6626 141111616 : lu(k,1528) = lu(k,1528) * lu(k,1524)
6627 141111616 : lu(k,1529) = lu(k,1529) * lu(k,1524)
6628 141111616 : lu(k,1530) = lu(k,1530) * lu(k,1524)
6629 141111616 : lu(k,1531) = lu(k,1531) * lu(k,1524)
6630 141111616 : lu(k,1532) = lu(k,1532) * lu(k,1524)
6631 141111616 : lu(k,1533) = lu(k,1533) * lu(k,1524)
6632 141111616 : lu(k,1534) = lu(k,1534) * lu(k,1524)
6633 141111616 : lu(k,1535) = lu(k,1535) * lu(k,1524)
6634 141111616 : lu(k,1548) = lu(k,1548) - lu(k,1525) * lu(k,1547)
6635 141111616 : lu(k,1549) = lu(k,1549) - lu(k,1526) * lu(k,1547)
6636 141111616 : lu(k,1550) = lu(k,1550) - lu(k,1527) * lu(k,1547)
6637 141111616 : lu(k,1551) = lu(k,1551) - lu(k,1528) * lu(k,1547)
6638 141111616 : lu(k,1552) = lu(k,1552) - lu(k,1529) * lu(k,1547)
6639 141111616 : lu(k,1553) = lu(k,1553) - lu(k,1530) * lu(k,1547)
6640 141111616 : lu(k,1554) = lu(k,1554) - lu(k,1531) * lu(k,1547)
6641 141111616 : lu(k,1555) = lu(k,1555) - lu(k,1532) * lu(k,1547)
6642 141111616 : lu(k,1556) = lu(k,1556) - lu(k,1533) * lu(k,1547)
6643 141111616 : lu(k,1557) = lu(k,1557) - lu(k,1534) * lu(k,1547)
6644 141111616 : lu(k,1558) = lu(k,1558) - lu(k,1535) * lu(k,1547)
6645 141111616 : lu(k,1578) = lu(k,1578) - lu(k,1525) * lu(k,1577)
6646 141111616 : lu(k,1579) = lu(k,1579) - lu(k,1526) * lu(k,1577)
6647 141111616 : lu(k,1580) = lu(k,1580) - lu(k,1527) * lu(k,1577)
6648 141111616 : lu(k,1581) = lu(k,1581) - lu(k,1528) * lu(k,1577)
6649 141111616 : lu(k,1582) = lu(k,1582) - lu(k,1529) * lu(k,1577)
6650 141111616 : lu(k,1583) = lu(k,1583) - lu(k,1530) * lu(k,1577)
6651 141111616 : lu(k,1584) = lu(k,1584) - lu(k,1531) * lu(k,1577)
6652 141111616 : lu(k,1585) = lu(k,1585) - lu(k,1532) * lu(k,1577)
6653 141111616 : lu(k,1586) = lu(k,1586) - lu(k,1533) * lu(k,1577)
6654 141111616 : lu(k,1587) = lu(k,1587) - lu(k,1534) * lu(k,1577)
6655 141111616 : lu(k,1588) = lu(k,1588) - lu(k,1535) * lu(k,1577)
6656 141111616 : lu(k,1684) = lu(k,1684) - lu(k,1525) * lu(k,1683)
6657 141111616 : lu(k,1685) = lu(k,1685) - lu(k,1526) * lu(k,1683)
6658 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1527) * lu(k,1683)
6659 141111616 : lu(k,1687) = lu(k,1687) - lu(k,1528) * lu(k,1683)
6660 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1529) * lu(k,1683)
6661 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1530) * lu(k,1683)
6662 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1531) * lu(k,1683)
6663 141111616 : lu(k,1691) = lu(k,1691) - lu(k,1532) * lu(k,1683)
6664 141111616 : lu(k,1692) = lu(k,1692) - lu(k,1533) * lu(k,1683)
6665 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1534) * lu(k,1683)
6666 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1535) * lu(k,1683)
6667 141111616 : lu(k,1710) = lu(k,1710) - lu(k,1525) * lu(k,1709)
6668 141111616 : lu(k,1711) = lu(k,1711) - lu(k,1526) * lu(k,1709)
6669 141111616 : lu(k,1712) = lu(k,1712) - lu(k,1527) * lu(k,1709)
6670 141111616 : lu(k,1713) = lu(k,1713) - lu(k,1528) * lu(k,1709)
6671 141111616 : lu(k,1714) = lu(k,1714) - lu(k,1529) * lu(k,1709)
6672 141111616 : lu(k,1715) = lu(k,1715) - lu(k,1530) * lu(k,1709)
6673 141111616 : lu(k,1716) = lu(k,1716) - lu(k,1531) * lu(k,1709)
6674 141111616 : lu(k,1717) = lu(k,1717) - lu(k,1532) * lu(k,1709)
6675 141111616 : lu(k,1718) = lu(k,1718) - lu(k,1533) * lu(k,1709)
6676 141111616 : lu(k,1719) = lu(k,1719) - lu(k,1534) * lu(k,1709)
6677 141111616 : lu(k,1720) = lu(k,1720) - lu(k,1535) * lu(k,1709)
6678 141111616 : lu(k,1800) = lu(k,1800) - lu(k,1525) * lu(k,1799)
6679 141111616 : lu(k,1801) = lu(k,1801) - lu(k,1526) * lu(k,1799)
6680 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1527) * lu(k,1799)
6681 141111616 : lu(k,1803) = lu(k,1803) - lu(k,1528) * lu(k,1799)
6682 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1529) * lu(k,1799)
6683 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1530) * lu(k,1799)
6684 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1531) * lu(k,1799)
6685 141111616 : lu(k,1807) = lu(k,1807) - lu(k,1532) * lu(k,1799)
6686 141111616 : lu(k,1808) = lu(k,1808) - lu(k,1533) * lu(k,1799)
6687 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1534) * lu(k,1799)
6688 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1535) * lu(k,1799)
6689 141111616 : lu(k,1860) = lu(k,1860) - lu(k,1525) * lu(k,1859)
6690 141111616 : lu(k,1861) = lu(k,1861) - lu(k,1526) * lu(k,1859)
6691 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1527) * lu(k,1859)
6692 141111616 : lu(k,1863) = lu(k,1863) - lu(k,1528) * lu(k,1859)
6693 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1529) * lu(k,1859)
6694 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1530) * lu(k,1859)
6695 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1531) * lu(k,1859)
6696 141111616 : lu(k,1867) = lu(k,1867) - lu(k,1532) * lu(k,1859)
6697 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1533) * lu(k,1859)
6698 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1534) * lu(k,1859)
6699 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1535) * lu(k,1859)
6700 141111616 : lu(k,1901) = lu(k,1901) - lu(k,1525) * lu(k,1900)
6701 141111616 : lu(k,1902) = lu(k,1902) - lu(k,1526) * lu(k,1900)
6702 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1527) * lu(k,1900)
6703 141111616 : lu(k,1904) = lu(k,1904) - lu(k,1528) * lu(k,1900)
6704 141111616 : lu(k,1905) = lu(k,1905) - lu(k,1529) * lu(k,1900)
6705 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1530) * lu(k,1900)
6706 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1531) * lu(k,1900)
6707 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1532) * lu(k,1900)
6708 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1533) * lu(k,1900)
6709 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1534) * lu(k,1900)
6710 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1535) * lu(k,1900)
6711 141111616 : lu(k,1924) = lu(k,1924) - lu(k,1525) * lu(k,1923)
6712 141111616 : lu(k,1925) = lu(k,1925) - lu(k,1526) * lu(k,1923)
6713 141111616 : lu(k,1926) = lu(k,1926) - lu(k,1527) * lu(k,1923)
6714 141111616 : lu(k,1927) = lu(k,1927) - lu(k,1528) * lu(k,1923)
6715 141111616 : lu(k,1928) = lu(k,1928) - lu(k,1529) * lu(k,1923)
6716 141111616 : lu(k,1929) = lu(k,1929) - lu(k,1530) * lu(k,1923)
6717 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1531) * lu(k,1923)
6718 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1532) * lu(k,1923)
6719 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1533) * lu(k,1923)
6720 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1534) * lu(k,1923)
6721 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1535) * lu(k,1923)
6722 141111616 : lu(k,1958) = lu(k,1958) - lu(k,1525) * lu(k,1957)
6723 141111616 : lu(k,1959) = lu(k,1959) - lu(k,1526) * lu(k,1957)
6724 141111616 : lu(k,1960) = lu(k,1960) - lu(k,1527) * lu(k,1957)
6725 141111616 : lu(k,1961) = lu(k,1961) - lu(k,1528) * lu(k,1957)
6726 141111616 : lu(k,1962) = lu(k,1962) - lu(k,1529) * lu(k,1957)
6727 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1530) * lu(k,1957)
6728 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1531) * lu(k,1957)
6729 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1532) * lu(k,1957)
6730 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1533) * lu(k,1957)
6731 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1534) * lu(k,1957)
6732 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1535) * lu(k,1957)
6733 141111616 : lu(k,2015) = lu(k,2015) - lu(k,1525) * lu(k,2014)
6734 141111616 : lu(k,2016) = lu(k,2016) - lu(k,1526) * lu(k,2014)
6735 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1527) * lu(k,2014)
6736 141111616 : lu(k,2018) = lu(k,2018) - lu(k,1528) * lu(k,2014)
6737 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1529) * lu(k,2014)
6738 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1530) * lu(k,2014)
6739 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1531) * lu(k,2014)
6740 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1532) * lu(k,2014)
6741 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1533) * lu(k,2014)
6742 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1534) * lu(k,2014)
6743 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1535) * lu(k,2014)
6744 141111616 : lu(k,2040) = lu(k,2040) - lu(k,1525) * lu(k,2039)
6745 141111616 : lu(k,2041) = lu(k,2041) - lu(k,1526) * lu(k,2039)
6746 141111616 : lu(k,2042) = lu(k,2042) - lu(k,1527) * lu(k,2039)
6747 141111616 : lu(k,2043) = lu(k,2043) - lu(k,1528) * lu(k,2039)
6748 141111616 : lu(k,2044) = lu(k,2044) - lu(k,1529) * lu(k,2039)
6749 141111616 : lu(k,2045) = lu(k,2045) - lu(k,1530) * lu(k,2039)
6750 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1531) * lu(k,2039)
6751 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1532) * lu(k,2039)
6752 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1533) * lu(k,2039)
6753 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1534) * lu(k,2039)
6754 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1535) * lu(k,2039)
6755 141111616 : lu(k,1548) = 1._r8 / lu(k,1548)
6756 141111616 : lu(k,1549) = lu(k,1549) * lu(k,1548)
6757 141111616 : lu(k,1550) = lu(k,1550) * lu(k,1548)
6758 141111616 : lu(k,1551) = lu(k,1551) * lu(k,1548)
6759 141111616 : lu(k,1552) = lu(k,1552) * lu(k,1548)
6760 141111616 : lu(k,1553) = lu(k,1553) * lu(k,1548)
6761 141111616 : lu(k,1554) = lu(k,1554) * lu(k,1548)
6762 141111616 : lu(k,1555) = lu(k,1555) * lu(k,1548)
6763 141111616 : lu(k,1556) = lu(k,1556) * lu(k,1548)
6764 141111616 : lu(k,1557) = lu(k,1557) * lu(k,1548)
6765 141111616 : lu(k,1558) = lu(k,1558) * lu(k,1548)
6766 141111616 : lu(k,1579) = lu(k,1579) - lu(k,1549) * lu(k,1578)
6767 141111616 : lu(k,1580) = lu(k,1580) - lu(k,1550) * lu(k,1578)
6768 141111616 : lu(k,1581) = lu(k,1581) - lu(k,1551) * lu(k,1578)
6769 141111616 : lu(k,1582) = lu(k,1582) - lu(k,1552) * lu(k,1578)
6770 141111616 : lu(k,1583) = lu(k,1583) - lu(k,1553) * lu(k,1578)
6771 141111616 : lu(k,1584) = lu(k,1584) - lu(k,1554) * lu(k,1578)
6772 141111616 : lu(k,1585) = lu(k,1585) - lu(k,1555) * lu(k,1578)
6773 141111616 : lu(k,1586) = lu(k,1586) - lu(k,1556) * lu(k,1578)
6774 141111616 : lu(k,1587) = lu(k,1587) - lu(k,1557) * lu(k,1578)
6775 141111616 : lu(k,1588) = lu(k,1588) - lu(k,1558) * lu(k,1578)
6776 141111616 : lu(k,1685) = lu(k,1685) - lu(k,1549) * lu(k,1684)
6777 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1550) * lu(k,1684)
6778 141111616 : lu(k,1687) = lu(k,1687) - lu(k,1551) * lu(k,1684)
6779 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1552) * lu(k,1684)
6780 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1553) * lu(k,1684)
6781 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1554) * lu(k,1684)
6782 141111616 : lu(k,1691) = lu(k,1691) - lu(k,1555) * lu(k,1684)
6783 141111616 : lu(k,1692) = lu(k,1692) - lu(k,1556) * lu(k,1684)
6784 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1557) * lu(k,1684)
6785 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1558) * lu(k,1684)
6786 141111616 : lu(k,1711) = lu(k,1711) - lu(k,1549) * lu(k,1710)
6787 141111616 : lu(k,1712) = lu(k,1712) - lu(k,1550) * lu(k,1710)
6788 141111616 : lu(k,1713) = lu(k,1713) - lu(k,1551) * lu(k,1710)
6789 141111616 : lu(k,1714) = lu(k,1714) - lu(k,1552) * lu(k,1710)
6790 141111616 : lu(k,1715) = lu(k,1715) - lu(k,1553) * lu(k,1710)
6791 141111616 : lu(k,1716) = lu(k,1716) - lu(k,1554) * lu(k,1710)
6792 141111616 : lu(k,1717) = lu(k,1717) - lu(k,1555) * lu(k,1710)
6793 141111616 : lu(k,1718) = lu(k,1718) - lu(k,1556) * lu(k,1710)
6794 141111616 : lu(k,1719) = lu(k,1719) - lu(k,1557) * lu(k,1710)
6795 141111616 : lu(k,1720) = lu(k,1720) - lu(k,1558) * lu(k,1710)
6796 141111616 : lu(k,1801) = lu(k,1801) - lu(k,1549) * lu(k,1800)
6797 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1550) * lu(k,1800)
6798 141111616 : lu(k,1803) = lu(k,1803) - lu(k,1551) * lu(k,1800)
6799 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1552) * lu(k,1800)
6800 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1553) * lu(k,1800)
6801 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1554) * lu(k,1800)
6802 141111616 : lu(k,1807) = lu(k,1807) - lu(k,1555) * lu(k,1800)
6803 141111616 : lu(k,1808) = lu(k,1808) - lu(k,1556) * lu(k,1800)
6804 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1557) * lu(k,1800)
6805 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1558) * lu(k,1800)
6806 141111616 : lu(k,1861) = lu(k,1861) - lu(k,1549) * lu(k,1860)
6807 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1550) * lu(k,1860)
6808 141111616 : lu(k,1863) = lu(k,1863) - lu(k,1551) * lu(k,1860)
6809 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1552) * lu(k,1860)
6810 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1553) * lu(k,1860)
6811 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1554) * lu(k,1860)
6812 141111616 : lu(k,1867) = lu(k,1867) - lu(k,1555) * lu(k,1860)
6813 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1556) * lu(k,1860)
6814 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1557) * lu(k,1860)
6815 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1558) * lu(k,1860)
6816 141111616 : lu(k,1902) = lu(k,1902) - lu(k,1549) * lu(k,1901)
6817 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1550) * lu(k,1901)
6818 141111616 : lu(k,1904) = lu(k,1904) - lu(k,1551) * lu(k,1901)
6819 141111616 : lu(k,1905) = lu(k,1905) - lu(k,1552) * lu(k,1901)
6820 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1553) * lu(k,1901)
6821 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1554) * lu(k,1901)
6822 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1555) * lu(k,1901)
6823 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1556) * lu(k,1901)
6824 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1557) * lu(k,1901)
6825 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1558) * lu(k,1901)
6826 141111616 : lu(k,1925) = lu(k,1925) - lu(k,1549) * lu(k,1924)
6827 141111616 : lu(k,1926) = lu(k,1926) - lu(k,1550) * lu(k,1924)
6828 141111616 : lu(k,1927) = lu(k,1927) - lu(k,1551) * lu(k,1924)
6829 141111616 : lu(k,1928) = lu(k,1928) - lu(k,1552) * lu(k,1924)
6830 141111616 : lu(k,1929) = lu(k,1929) - lu(k,1553) * lu(k,1924)
6831 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1554) * lu(k,1924)
6832 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1555) * lu(k,1924)
6833 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1556) * lu(k,1924)
6834 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1557) * lu(k,1924)
6835 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1558) * lu(k,1924)
6836 141111616 : lu(k,1959) = lu(k,1959) - lu(k,1549) * lu(k,1958)
6837 141111616 : lu(k,1960) = lu(k,1960) - lu(k,1550) * lu(k,1958)
6838 141111616 : lu(k,1961) = lu(k,1961) - lu(k,1551) * lu(k,1958)
6839 141111616 : lu(k,1962) = lu(k,1962) - lu(k,1552) * lu(k,1958)
6840 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1553) * lu(k,1958)
6841 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1554) * lu(k,1958)
6842 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1555) * lu(k,1958)
6843 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1556) * lu(k,1958)
6844 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1557) * lu(k,1958)
6845 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1558) * lu(k,1958)
6846 141111616 : lu(k,2016) = lu(k,2016) - lu(k,1549) * lu(k,2015)
6847 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1550) * lu(k,2015)
6848 141111616 : lu(k,2018) = lu(k,2018) - lu(k,1551) * lu(k,2015)
6849 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1552) * lu(k,2015)
6850 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1553) * lu(k,2015)
6851 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1554) * lu(k,2015)
6852 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1555) * lu(k,2015)
6853 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1556) * lu(k,2015)
6854 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1557) * lu(k,2015)
6855 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1558) * lu(k,2015)
6856 141111616 : lu(k,2041) = lu(k,2041) - lu(k,1549) * lu(k,2040)
6857 141111616 : lu(k,2042) = lu(k,2042) - lu(k,1550) * lu(k,2040)
6858 141111616 : lu(k,2043) = lu(k,2043) - lu(k,1551) * lu(k,2040)
6859 141111616 : lu(k,2044) = lu(k,2044) - lu(k,1552) * lu(k,2040)
6860 141111616 : lu(k,2045) = lu(k,2045) - lu(k,1553) * lu(k,2040)
6861 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1554) * lu(k,2040)
6862 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1555) * lu(k,2040)
6863 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1556) * lu(k,2040)
6864 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1557) * lu(k,2040)
6865 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1558) * lu(k,2040)
6866 141111616 : lu(k,1579) = 1._r8 / lu(k,1579)
6867 141111616 : lu(k,1580) = lu(k,1580) * lu(k,1579)
6868 141111616 : lu(k,1581) = lu(k,1581) * lu(k,1579)
6869 141111616 : lu(k,1582) = lu(k,1582) * lu(k,1579)
6870 141111616 : lu(k,1583) = lu(k,1583) * lu(k,1579)
6871 141111616 : lu(k,1584) = lu(k,1584) * lu(k,1579)
6872 141111616 : lu(k,1585) = lu(k,1585) * lu(k,1579)
6873 141111616 : lu(k,1586) = lu(k,1586) * lu(k,1579)
6874 141111616 : lu(k,1587) = lu(k,1587) * lu(k,1579)
6875 141111616 : lu(k,1588) = lu(k,1588) * lu(k,1579)
6876 141111616 : lu(k,1686) = lu(k,1686) - lu(k,1580) * lu(k,1685)
6877 141111616 : lu(k,1687) = lu(k,1687) - lu(k,1581) * lu(k,1685)
6878 141111616 : lu(k,1688) = lu(k,1688) - lu(k,1582) * lu(k,1685)
6879 141111616 : lu(k,1689) = lu(k,1689) - lu(k,1583) * lu(k,1685)
6880 141111616 : lu(k,1690) = lu(k,1690) - lu(k,1584) * lu(k,1685)
6881 141111616 : lu(k,1691) = lu(k,1691) - lu(k,1585) * lu(k,1685)
6882 141111616 : lu(k,1692) = lu(k,1692) - lu(k,1586) * lu(k,1685)
6883 141111616 : lu(k,1693) = lu(k,1693) - lu(k,1587) * lu(k,1685)
6884 141111616 : lu(k,1694) = lu(k,1694) - lu(k,1588) * lu(k,1685)
6885 141111616 : lu(k,1712) = lu(k,1712) - lu(k,1580) * lu(k,1711)
6886 141111616 : lu(k,1713) = lu(k,1713) - lu(k,1581) * lu(k,1711)
6887 141111616 : lu(k,1714) = lu(k,1714) - lu(k,1582) * lu(k,1711)
6888 141111616 : lu(k,1715) = lu(k,1715) - lu(k,1583) * lu(k,1711)
6889 141111616 : lu(k,1716) = lu(k,1716) - lu(k,1584) * lu(k,1711)
6890 141111616 : lu(k,1717) = lu(k,1717) - lu(k,1585) * lu(k,1711)
6891 141111616 : lu(k,1718) = lu(k,1718) - lu(k,1586) * lu(k,1711)
6892 141111616 : lu(k,1719) = lu(k,1719) - lu(k,1587) * lu(k,1711)
6893 141111616 : lu(k,1720) = lu(k,1720) - lu(k,1588) * lu(k,1711)
6894 141111616 : lu(k,1802) = lu(k,1802) - lu(k,1580) * lu(k,1801)
6895 141111616 : lu(k,1803) = lu(k,1803) - lu(k,1581) * lu(k,1801)
6896 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1582) * lu(k,1801)
6897 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1583) * lu(k,1801)
6898 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1584) * lu(k,1801)
6899 141111616 : lu(k,1807) = lu(k,1807) - lu(k,1585) * lu(k,1801)
6900 141111616 : lu(k,1808) = lu(k,1808) - lu(k,1586) * lu(k,1801)
6901 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1587) * lu(k,1801)
6902 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1588) * lu(k,1801)
6903 141111616 : lu(k,1862) = lu(k,1862) - lu(k,1580) * lu(k,1861)
6904 141111616 : lu(k,1863) = lu(k,1863) - lu(k,1581) * lu(k,1861)
6905 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1582) * lu(k,1861)
6906 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1583) * lu(k,1861)
6907 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1584) * lu(k,1861)
6908 141111616 : lu(k,1867) = lu(k,1867) - lu(k,1585) * lu(k,1861)
6909 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1586) * lu(k,1861)
6910 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1587) * lu(k,1861)
6911 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1588) * lu(k,1861)
6912 141111616 : lu(k,1903) = lu(k,1903) - lu(k,1580) * lu(k,1902)
6913 141111616 : lu(k,1904) = lu(k,1904) - lu(k,1581) * lu(k,1902)
6914 141111616 : lu(k,1905) = lu(k,1905) - lu(k,1582) * lu(k,1902)
6915 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1583) * lu(k,1902)
6916 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1584) * lu(k,1902)
6917 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1585) * lu(k,1902)
6918 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1586) * lu(k,1902)
6919 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1587) * lu(k,1902)
6920 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1588) * lu(k,1902)
6921 141111616 : lu(k,1926) = lu(k,1926) - lu(k,1580) * lu(k,1925)
6922 141111616 : lu(k,1927) = lu(k,1927) - lu(k,1581) * lu(k,1925)
6923 141111616 : lu(k,1928) = lu(k,1928) - lu(k,1582) * lu(k,1925)
6924 141111616 : lu(k,1929) = lu(k,1929) - lu(k,1583) * lu(k,1925)
6925 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1584) * lu(k,1925)
6926 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1585) * lu(k,1925)
6927 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1586) * lu(k,1925)
6928 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1587) * lu(k,1925)
6929 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1588) * lu(k,1925)
6930 141111616 : lu(k,1960) = lu(k,1960) - lu(k,1580) * lu(k,1959)
6931 141111616 : lu(k,1961) = lu(k,1961) - lu(k,1581) * lu(k,1959)
6932 141111616 : lu(k,1962) = lu(k,1962) - lu(k,1582) * lu(k,1959)
6933 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1583) * lu(k,1959)
6934 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1584) * lu(k,1959)
6935 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1585) * lu(k,1959)
6936 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1586) * lu(k,1959)
6937 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1587) * lu(k,1959)
6938 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1588) * lu(k,1959)
6939 141111616 : lu(k,2017) = lu(k,2017) - lu(k,1580) * lu(k,2016)
6940 141111616 : lu(k,2018) = lu(k,2018) - lu(k,1581) * lu(k,2016)
6941 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1582) * lu(k,2016)
6942 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1583) * lu(k,2016)
6943 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1584) * lu(k,2016)
6944 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1585) * lu(k,2016)
6945 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1586) * lu(k,2016)
6946 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1587) * lu(k,2016)
6947 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1588) * lu(k,2016)
6948 141111616 : lu(k,2042) = lu(k,2042) - lu(k,1580) * lu(k,2041)
6949 141111616 : lu(k,2043) = lu(k,2043) - lu(k,1581) * lu(k,2041)
6950 141111616 : lu(k,2044) = lu(k,2044) - lu(k,1582) * lu(k,2041)
6951 141111616 : lu(k,2045) = lu(k,2045) - lu(k,1583) * lu(k,2041)
6952 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1584) * lu(k,2041)
6953 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1585) * lu(k,2041)
6954 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1586) * lu(k,2041)
6955 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1587) * lu(k,2041)
6956 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1588) * lu(k,2041)
6957 141111616 : lu(k,1686) = 1._r8 / lu(k,1686)
6958 141111616 : lu(k,1687) = lu(k,1687) * lu(k,1686)
6959 141111616 : lu(k,1688) = lu(k,1688) * lu(k,1686)
6960 141111616 : lu(k,1689) = lu(k,1689) * lu(k,1686)
6961 141111616 : lu(k,1690) = lu(k,1690) * lu(k,1686)
6962 141111616 : lu(k,1691) = lu(k,1691) * lu(k,1686)
6963 141111616 : lu(k,1692) = lu(k,1692) * lu(k,1686)
6964 141111616 : lu(k,1693) = lu(k,1693) * lu(k,1686)
6965 141111616 : lu(k,1694) = lu(k,1694) * lu(k,1686)
6966 141111616 : lu(k,1713) = lu(k,1713) - lu(k,1687) * lu(k,1712)
6967 141111616 : lu(k,1714) = lu(k,1714) - lu(k,1688) * lu(k,1712)
6968 141111616 : lu(k,1715) = lu(k,1715) - lu(k,1689) * lu(k,1712)
6969 141111616 : lu(k,1716) = lu(k,1716) - lu(k,1690) * lu(k,1712)
6970 141111616 : lu(k,1717) = lu(k,1717) - lu(k,1691) * lu(k,1712)
6971 141111616 : lu(k,1718) = lu(k,1718) - lu(k,1692) * lu(k,1712)
6972 141111616 : lu(k,1719) = lu(k,1719) - lu(k,1693) * lu(k,1712)
6973 141111616 : lu(k,1720) = lu(k,1720) - lu(k,1694) * lu(k,1712)
6974 141111616 : lu(k,1803) = lu(k,1803) - lu(k,1687) * lu(k,1802)
6975 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1688) * lu(k,1802)
6976 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1689) * lu(k,1802)
6977 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1690) * lu(k,1802)
6978 141111616 : lu(k,1807) = lu(k,1807) - lu(k,1691) * lu(k,1802)
6979 141111616 : lu(k,1808) = lu(k,1808) - lu(k,1692) * lu(k,1802)
6980 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1693) * lu(k,1802)
6981 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1694) * lu(k,1802)
6982 141111616 : lu(k,1863) = lu(k,1863) - lu(k,1687) * lu(k,1862)
6983 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1688) * lu(k,1862)
6984 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1689) * lu(k,1862)
6985 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1690) * lu(k,1862)
6986 141111616 : lu(k,1867) = lu(k,1867) - lu(k,1691) * lu(k,1862)
6987 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1692) * lu(k,1862)
6988 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1693) * lu(k,1862)
6989 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1694) * lu(k,1862)
6990 141111616 : lu(k,1904) = lu(k,1904) - lu(k,1687) * lu(k,1903)
6991 141111616 : lu(k,1905) = lu(k,1905) - lu(k,1688) * lu(k,1903)
6992 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1689) * lu(k,1903)
6993 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1690) * lu(k,1903)
6994 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1691) * lu(k,1903)
6995 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1692) * lu(k,1903)
6996 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1693) * lu(k,1903)
6997 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1694) * lu(k,1903)
6998 141111616 : lu(k,1927) = lu(k,1927) - lu(k,1687) * lu(k,1926)
6999 141111616 : lu(k,1928) = lu(k,1928) - lu(k,1688) * lu(k,1926)
7000 141111616 : lu(k,1929) = lu(k,1929) - lu(k,1689) * lu(k,1926)
7001 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1690) * lu(k,1926)
7002 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1691) * lu(k,1926)
7003 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1692) * lu(k,1926)
7004 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1693) * lu(k,1926)
7005 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1694) * lu(k,1926)
7006 141111616 : lu(k,1961) = lu(k,1961) - lu(k,1687) * lu(k,1960)
7007 141111616 : lu(k,1962) = lu(k,1962) - lu(k,1688) * lu(k,1960)
7008 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1689) * lu(k,1960)
7009 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1690) * lu(k,1960)
7010 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1691) * lu(k,1960)
7011 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1692) * lu(k,1960)
7012 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1693) * lu(k,1960)
7013 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1694) * lu(k,1960)
7014 141111616 : lu(k,2018) = lu(k,2018) - lu(k,1687) * lu(k,2017)
7015 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1688) * lu(k,2017)
7016 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1689) * lu(k,2017)
7017 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1690) * lu(k,2017)
7018 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1691) * lu(k,2017)
7019 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1692) * lu(k,2017)
7020 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1693) * lu(k,2017)
7021 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1694) * lu(k,2017)
7022 141111616 : lu(k,2043) = lu(k,2043) - lu(k,1687) * lu(k,2042)
7023 141111616 : lu(k,2044) = lu(k,2044) - lu(k,1688) * lu(k,2042)
7024 141111616 : lu(k,2045) = lu(k,2045) - lu(k,1689) * lu(k,2042)
7025 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1690) * lu(k,2042)
7026 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1691) * lu(k,2042)
7027 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1692) * lu(k,2042)
7028 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1693) * lu(k,2042)
7029 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1694) * lu(k,2042)
7030 141111616 : lu(k,1713) = 1._r8 / lu(k,1713)
7031 141111616 : lu(k,1714) = lu(k,1714) * lu(k,1713)
7032 141111616 : lu(k,1715) = lu(k,1715) * lu(k,1713)
7033 141111616 : lu(k,1716) = lu(k,1716) * lu(k,1713)
7034 141111616 : lu(k,1717) = lu(k,1717) * lu(k,1713)
7035 141111616 : lu(k,1718) = lu(k,1718) * lu(k,1713)
7036 141111616 : lu(k,1719) = lu(k,1719) * lu(k,1713)
7037 141111616 : lu(k,1720) = lu(k,1720) * lu(k,1713)
7038 141111616 : lu(k,1804) = lu(k,1804) - lu(k,1714) * lu(k,1803)
7039 141111616 : lu(k,1805) = lu(k,1805) - lu(k,1715) * lu(k,1803)
7040 141111616 : lu(k,1806) = lu(k,1806) - lu(k,1716) * lu(k,1803)
7041 141111616 : lu(k,1807) = lu(k,1807) - lu(k,1717) * lu(k,1803)
7042 141111616 : lu(k,1808) = lu(k,1808) - lu(k,1718) * lu(k,1803)
7043 141111616 : lu(k,1809) = lu(k,1809) - lu(k,1719) * lu(k,1803)
7044 141111616 : lu(k,1810) = lu(k,1810) - lu(k,1720) * lu(k,1803)
7045 141111616 : lu(k,1864) = lu(k,1864) - lu(k,1714) * lu(k,1863)
7046 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1715) * lu(k,1863)
7047 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1716) * lu(k,1863)
7048 141111616 : lu(k,1867) = lu(k,1867) - lu(k,1717) * lu(k,1863)
7049 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1718) * lu(k,1863)
7050 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1719) * lu(k,1863)
7051 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1720) * lu(k,1863)
7052 141111616 : lu(k,1905) = lu(k,1905) - lu(k,1714) * lu(k,1904)
7053 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1715) * lu(k,1904)
7054 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1716) * lu(k,1904)
7055 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1717) * lu(k,1904)
7056 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1718) * lu(k,1904)
7057 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1719) * lu(k,1904)
7058 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1720) * lu(k,1904)
7059 141111616 : lu(k,1928) = lu(k,1928) - lu(k,1714) * lu(k,1927)
7060 141111616 : lu(k,1929) = lu(k,1929) - lu(k,1715) * lu(k,1927)
7061 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1716) * lu(k,1927)
7062 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1717) * lu(k,1927)
7063 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1718) * lu(k,1927)
7064 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1719) * lu(k,1927)
7065 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1720) * lu(k,1927)
7066 141111616 : lu(k,1962) = lu(k,1962) - lu(k,1714) * lu(k,1961)
7067 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1715) * lu(k,1961)
7068 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1716) * lu(k,1961)
7069 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1717) * lu(k,1961)
7070 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1718) * lu(k,1961)
7071 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1719) * lu(k,1961)
7072 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1720) * lu(k,1961)
7073 141111616 : lu(k,2019) = lu(k,2019) - lu(k,1714) * lu(k,2018)
7074 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1715) * lu(k,2018)
7075 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1716) * lu(k,2018)
7076 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1717) * lu(k,2018)
7077 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1718) * lu(k,2018)
7078 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1719) * lu(k,2018)
7079 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1720) * lu(k,2018)
7080 141111616 : lu(k,2044) = lu(k,2044) - lu(k,1714) * lu(k,2043)
7081 141111616 : lu(k,2045) = lu(k,2045) - lu(k,1715) * lu(k,2043)
7082 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1716) * lu(k,2043)
7083 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1717) * lu(k,2043)
7084 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1718) * lu(k,2043)
7085 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1719) * lu(k,2043)
7086 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1720) * lu(k,2043)
7087 141111616 : lu(k,1804) = 1._r8 / lu(k,1804)
7088 141111616 : lu(k,1805) = lu(k,1805) * lu(k,1804)
7089 141111616 : lu(k,1806) = lu(k,1806) * lu(k,1804)
7090 141111616 : lu(k,1807) = lu(k,1807) * lu(k,1804)
7091 141111616 : lu(k,1808) = lu(k,1808) * lu(k,1804)
7092 141111616 : lu(k,1809) = lu(k,1809) * lu(k,1804)
7093 141111616 : lu(k,1810) = lu(k,1810) * lu(k,1804)
7094 141111616 : lu(k,1865) = lu(k,1865) - lu(k,1805) * lu(k,1864)
7095 141111616 : lu(k,1866) = lu(k,1866) - lu(k,1806) * lu(k,1864)
7096 141111616 : lu(k,1867) = lu(k,1867) - lu(k,1807) * lu(k,1864)
7097 141111616 : lu(k,1868) = lu(k,1868) - lu(k,1808) * lu(k,1864)
7098 141111616 : lu(k,1869) = lu(k,1869) - lu(k,1809) * lu(k,1864)
7099 141111616 : lu(k,1870) = lu(k,1870) - lu(k,1810) * lu(k,1864)
7100 141111616 : lu(k,1906) = lu(k,1906) - lu(k,1805) * lu(k,1905)
7101 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1806) * lu(k,1905)
7102 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1807) * lu(k,1905)
7103 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1808) * lu(k,1905)
7104 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1809) * lu(k,1905)
7105 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1810) * lu(k,1905)
7106 141111616 : lu(k,1929) = lu(k,1929) - lu(k,1805) * lu(k,1928)
7107 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1806) * lu(k,1928)
7108 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1807) * lu(k,1928)
7109 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1808) * lu(k,1928)
7110 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1809) * lu(k,1928)
7111 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1810) * lu(k,1928)
7112 141111616 : lu(k,1963) = lu(k,1963) - lu(k,1805) * lu(k,1962)
7113 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1806) * lu(k,1962)
7114 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1807) * lu(k,1962)
7115 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1808) * lu(k,1962)
7116 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1809) * lu(k,1962)
7117 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1810) * lu(k,1962)
7118 141111616 : lu(k,2020) = lu(k,2020) - lu(k,1805) * lu(k,2019)
7119 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1806) * lu(k,2019)
7120 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1807) * lu(k,2019)
7121 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1808) * lu(k,2019)
7122 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1809) * lu(k,2019)
7123 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1810) * lu(k,2019)
7124 141111616 : lu(k,2045) = lu(k,2045) - lu(k,1805) * lu(k,2044)
7125 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1806) * lu(k,2044)
7126 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1807) * lu(k,2044)
7127 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1808) * lu(k,2044)
7128 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1809) * lu(k,2044)
7129 145521354 : lu(k,2050) = lu(k,2050) - lu(k,1810) * lu(k,2044)
7130 : end do
7131 4409738 : end subroutine lu_fac26
7132 4409738 : subroutine lu_fac27( avec_len, lu )
7133 : use chem_mods, only : nzcnt
7134 : use shr_kind_mod, only : r8 => shr_kind_r8
7135 : implicit none
7136 : !-----------------------------------------------------------------------
7137 : ! ... dummy args
7138 : !-----------------------------------------------------------------------
7139 : integer, intent(in) :: avec_len
7140 : real(r8), intent(inout) :: lu(veclen,nzcnt)
7141 : !-----------------------------------------------------------------------
7142 : ! ... local variables
7143 : !-----------------------------------------------------------------------
7144 : integer :: k
7145 145521354 : do k = 1,avec_len
7146 141111616 : lu(k,1865) = 1._r8 / lu(k,1865)
7147 141111616 : lu(k,1866) = lu(k,1866) * lu(k,1865)
7148 141111616 : lu(k,1867) = lu(k,1867) * lu(k,1865)
7149 141111616 : lu(k,1868) = lu(k,1868) * lu(k,1865)
7150 141111616 : lu(k,1869) = lu(k,1869) * lu(k,1865)
7151 141111616 : lu(k,1870) = lu(k,1870) * lu(k,1865)
7152 141111616 : lu(k,1907) = lu(k,1907) - lu(k,1866) * lu(k,1906)
7153 141111616 : lu(k,1908) = lu(k,1908) - lu(k,1867) * lu(k,1906)
7154 141111616 : lu(k,1909) = lu(k,1909) - lu(k,1868) * lu(k,1906)
7155 141111616 : lu(k,1910) = lu(k,1910) - lu(k,1869) * lu(k,1906)
7156 141111616 : lu(k,1911) = lu(k,1911) - lu(k,1870) * lu(k,1906)
7157 141111616 : lu(k,1930) = lu(k,1930) - lu(k,1866) * lu(k,1929)
7158 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1867) * lu(k,1929)
7159 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1868) * lu(k,1929)
7160 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1869) * lu(k,1929)
7161 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1870) * lu(k,1929)
7162 141111616 : lu(k,1964) = lu(k,1964) - lu(k,1866) * lu(k,1963)
7163 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1867) * lu(k,1963)
7164 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1868) * lu(k,1963)
7165 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1869) * lu(k,1963)
7166 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1870) * lu(k,1963)
7167 141111616 : lu(k,2021) = lu(k,2021) - lu(k,1866) * lu(k,2020)
7168 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1867) * lu(k,2020)
7169 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1868) * lu(k,2020)
7170 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1869) * lu(k,2020)
7171 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1870) * lu(k,2020)
7172 141111616 : lu(k,2046) = lu(k,2046) - lu(k,1866) * lu(k,2045)
7173 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1867) * lu(k,2045)
7174 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1868) * lu(k,2045)
7175 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1869) * lu(k,2045)
7176 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1870) * lu(k,2045)
7177 141111616 : lu(k,1907) = 1._r8 / lu(k,1907)
7178 141111616 : lu(k,1908) = lu(k,1908) * lu(k,1907)
7179 141111616 : lu(k,1909) = lu(k,1909) * lu(k,1907)
7180 141111616 : lu(k,1910) = lu(k,1910) * lu(k,1907)
7181 141111616 : lu(k,1911) = lu(k,1911) * lu(k,1907)
7182 141111616 : lu(k,1931) = lu(k,1931) - lu(k,1908) * lu(k,1930)
7183 141111616 : lu(k,1932) = lu(k,1932) - lu(k,1909) * lu(k,1930)
7184 141111616 : lu(k,1933) = lu(k,1933) - lu(k,1910) * lu(k,1930)
7185 141111616 : lu(k,1934) = lu(k,1934) - lu(k,1911) * lu(k,1930)
7186 141111616 : lu(k,1965) = lu(k,1965) - lu(k,1908) * lu(k,1964)
7187 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1909) * lu(k,1964)
7188 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1910) * lu(k,1964)
7189 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1911) * lu(k,1964)
7190 141111616 : lu(k,2022) = lu(k,2022) - lu(k,1908) * lu(k,2021)
7191 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1909) * lu(k,2021)
7192 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1910) * lu(k,2021)
7193 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1911) * lu(k,2021)
7194 141111616 : lu(k,2047) = lu(k,2047) - lu(k,1908) * lu(k,2046)
7195 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1909) * lu(k,2046)
7196 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1910) * lu(k,2046)
7197 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1911) * lu(k,2046)
7198 141111616 : lu(k,1931) = 1._r8 / lu(k,1931)
7199 141111616 : lu(k,1932) = lu(k,1932) * lu(k,1931)
7200 141111616 : lu(k,1933) = lu(k,1933) * lu(k,1931)
7201 141111616 : lu(k,1934) = lu(k,1934) * lu(k,1931)
7202 141111616 : lu(k,1966) = lu(k,1966) - lu(k,1932) * lu(k,1965)
7203 141111616 : lu(k,1967) = lu(k,1967) - lu(k,1933) * lu(k,1965)
7204 141111616 : lu(k,1968) = lu(k,1968) - lu(k,1934) * lu(k,1965)
7205 141111616 : lu(k,2023) = lu(k,2023) - lu(k,1932) * lu(k,2022)
7206 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1933) * lu(k,2022)
7207 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1934) * lu(k,2022)
7208 141111616 : lu(k,2048) = lu(k,2048) - lu(k,1932) * lu(k,2047)
7209 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1933) * lu(k,2047)
7210 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1934) * lu(k,2047)
7211 141111616 : lu(k,1966) = 1._r8 / lu(k,1966)
7212 141111616 : lu(k,1967) = lu(k,1967) * lu(k,1966)
7213 141111616 : lu(k,1968) = lu(k,1968) * lu(k,1966)
7214 141111616 : lu(k,2024) = lu(k,2024) - lu(k,1967) * lu(k,2023)
7215 141111616 : lu(k,2025) = lu(k,2025) - lu(k,1968) * lu(k,2023)
7216 141111616 : lu(k,2049) = lu(k,2049) - lu(k,1967) * lu(k,2048)
7217 141111616 : lu(k,2050) = lu(k,2050) - lu(k,1968) * lu(k,2048)
7218 141111616 : lu(k,2024) = 1._r8 / lu(k,2024)
7219 141111616 : lu(k,2025) = lu(k,2025) * lu(k,2024)
7220 141111616 : lu(k,2050) = lu(k,2050) - lu(k,2025) * lu(k,2049)
7221 145521354 : lu(k,2050) = 1._r8 / lu(k,2050)
7222 : end do
7223 4409738 : end subroutine lu_fac27
7224 4409738 : subroutine lu_fac( avec_len, lu )
7225 : use chem_mods, only : nzcnt
7226 : use shr_kind_mod, only : r8 => shr_kind_r8
7227 : implicit none
7228 : !-----------------------------------------------------------------------
7229 : ! ... dummy args
7230 : !-----------------------------------------------------------------------
7231 : integer, intent(in) :: avec_len
7232 : real(r8), intent(inout) :: lu(veclen,nzcnt)
7233 4409738 : call lu_fac01( avec_len, lu )
7234 4409738 : call lu_fac02( avec_len, lu )
7235 4409738 : call lu_fac03( avec_len, lu )
7236 4409738 : call lu_fac04( avec_len, lu )
7237 4409738 : call lu_fac05( avec_len, lu )
7238 4409738 : call lu_fac06( avec_len, lu )
7239 4409738 : call lu_fac07( avec_len, lu )
7240 4409738 : call lu_fac08( avec_len, lu )
7241 4409738 : call lu_fac09( avec_len, lu )
7242 4409738 : call lu_fac10( avec_len, lu )
7243 4409738 : call lu_fac11( avec_len, lu )
7244 4409738 : call lu_fac12( avec_len, lu )
7245 4409738 : call lu_fac13( avec_len, lu )
7246 4409738 : call lu_fac14( avec_len, lu )
7247 4409738 : call lu_fac15( avec_len, lu )
7248 4409738 : call lu_fac16( avec_len, lu )
7249 4409738 : call lu_fac17( avec_len, lu )
7250 4409738 : call lu_fac18( avec_len, lu )
7251 4409738 : call lu_fac19( avec_len, lu )
7252 4409738 : call lu_fac20( avec_len, lu )
7253 4409738 : call lu_fac21( avec_len, lu )
7254 4409738 : call lu_fac22( avec_len, lu )
7255 4409738 : call lu_fac23( avec_len, lu )
7256 4409738 : call lu_fac24( avec_len, lu )
7257 4409738 : call lu_fac25( avec_len, lu )
7258 4409738 : call lu_fac26( avec_len, lu )
7259 4409738 : call lu_fac27( avec_len, lu )
7260 4409738 : end subroutine lu_fac
7261 : end module mo_lu_factor
|