Line data Source code
1 : module mo_lu_factor
2 : use chem_mods, only: veclen
3 : private
4 : public :: lu_fac
5 : contains
6 3585597 : 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 117656469 : do k = 1,avec_len
20 114070872 : lu(k,1) = 1._r8 / lu(k,1)
21 114070872 : lu(k,2) = 1._r8 / lu(k,2)
22 114070872 : lu(k,3) = 1._r8 / lu(k,3)
23 114070872 : lu(k,4) = 1._r8 / lu(k,4)
24 114070872 : lu(k,5) = 1._r8 / lu(k,5)
25 114070872 : lu(k,6) = 1._r8 / lu(k,6)
26 114070872 : lu(k,7) = 1._r8 / lu(k,7)
27 114070872 : lu(k,8) = 1._r8 / lu(k,8)
28 114070872 : lu(k,9) = 1._r8 / lu(k,9)
29 114070872 : lu(k,10) = 1._r8 / lu(k,10)
30 114070872 : lu(k,11) = 1._r8 / lu(k,11)
31 114070872 : lu(k,12) = 1._r8 / lu(k,12)
32 114070872 : lu(k,13) = 1._r8 / lu(k,13)
33 114070872 : lu(k,14) = 1._r8 / lu(k,14)
34 114070872 : lu(k,15) = 1._r8 / lu(k,15)
35 114070872 : lu(k,16) = 1._r8 / lu(k,16)
36 114070872 : lu(k,17) = 1._r8 / lu(k,17)
37 114070872 : lu(k,18) = 1._r8 / lu(k,18)
38 114070872 : lu(k,19) = 1._r8 / lu(k,19)
39 114070872 : lu(k,20) = 1._r8 / lu(k,20)
40 114070872 : lu(k,21) = 1._r8 / lu(k,21)
41 114070872 : lu(k,22) = 1._r8 / lu(k,22)
42 114070872 : lu(k,23) = 1._r8 / lu(k,23)
43 114070872 : lu(k,24) = 1._r8 / lu(k,24)
44 114070872 : lu(k,25) = 1._r8 / lu(k,25)
45 114070872 : lu(k,26) = 1._r8 / lu(k,26)
46 114070872 : lu(k,27) = lu(k,27) * lu(k,26)
47 114070872 : lu(k,28) = lu(k,28) * lu(k,26)
48 114070872 : lu(k,1104) = lu(k,1104) - lu(k,27) * lu(k,1082)
49 114070872 : lu(k,1112) = lu(k,1112) - lu(k,28) * lu(k,1082)
50 114070872 : lu(k,29) = 1._r8 / lu(k,29)
51 114070872 : lu(k,30) = lu(k,30) * lu(k,29)
52 114070872 : lu(k,31) = lu(k,31) * lu(k,29)
53 114070872 : lu(k,787) = lu(k,787) - lu(k,30) * lu(k,758)
54 114070872 : lu(k,796) = lu(k,796) - lu(k,31) * lu(k,758)
55 114070872 : lu(k,32) = 1._r8 / lu(k,32)
56 114070872 : lu(k,33) = lu(k,33) * lu(k,32)
57 114070872 : lu(k,34) = lu(k,34) * lu(k,32)
58 114070872 : lu(k,35) = lu(k,35) * lu(k,32)
59 114070872 : lu(k,767) = lu(k,767) - lu(k,33) * lu(k,759)
60 114070872 : lu(k,783) = lu(k,783) - lu(k,34) * lu(k,759)
61 114070872 : lu(k,787) = lu(k,787) - lu(k,35) * lu(k,759)
62 114070872 : lu(k,36) = 1._r8 / lu(k,36)
63 114070872 : lu(k,37) = lu(k,37) * lu(k,36)
64 114070872 : lu(k,38) = lu(k,38) * lu(k,36)
65 114070872 : lu(k,39) = lu(k,39) * lu(k,36)
66 114070872 : lu(k,769) = lu(k,769) - lu(k,37) * lu(k,760)
67 114070872 : lu(k,787) = lu(k,787) - lu(k,38) * lu(k,760)
68 114070872 : lu(k,796) = lu(k,796) - lu(k,39) * lu(k,760)
69 114070872 : lu(k,40) = 1._r8 / lu(k,40)
70 114070872 : lu(k,41) = lu(k,41) * lu(k,40)
71 114070872 : lu(k,42) = lu(k,42) * lu(k,40)
72 114070872 : lu(k,43) = lu(k,43) * lu(k,40)
73 114070872 : lu(k,767) = lu(k,767) - lu(k,41) * lu(k,761)
74 114070872 : lu(k,787) = lu(k,787) - lu(k,42) * lu(k,761)
75 114070872 : lu(k,796) = lu(k,796) - lu(k,43) * lu(k,761)
76 114070872 : lu(k,44) = 1._r8 / lu(k,44)
77 114070872 : lu(k,45) = lu(k,45) * lu(k,44)
78 114070872 : lu(k,46) = lu(k,46) * lu(k,44)
79 114070872 : lu(k,47) = lu(k,47) * lu(k,44)
80 114070872 : lu(k,767) = lu(k,767) - lu(k,45) * lu(k,762)
81 114070872 : lu(k,787) = lu(k,787) - lu(k,46) * lu(k,762)
82 114070872 : lu(k,796) = lu(k,796) - lu(k,47) * lu(k,762)
83 114070872 : lu(k,48) = 1._r8 / lu(k,48)
84 114070872 : lu(k,49) = lu(k,49) * lu(k,48)
85 114070872 : lu(k,50) = lu(k,50) * lu(k,48)
86 114070872 : lu(k,51) = lu(k,51) * lu(k,48)
87 114070872 : lu(k,984) = lu(k,984) - lu(k,49) * lu(k,949)
88 114070872 : lu(k,993) = lu(k,993) - lu(k,50) * lu(k,949)
89 117656469 : lu(k,1005) = lu(k,1005) - lu(k,51) * lu(k,949)
90 : end do
91 3585597 : end subroutine lu_fac01
92 3585597 : subroutine lu_fac02( avec_len, lu )
93 : use chem_mods, only : nzcnt
94 : use shr_kind_mod, only : r8 => shr_kind_r8
95 : implicit none
96 : !-----------------------------------------------------------------------
97 : ! ... dummy args
98 : !-----------------------------------------------------------------------
99 : integer, intent(in) :: avec_len
100 : real(r8), intent(inout) :: lu(veclen,nzcnt)
101 : !-----------------------------------------------------------------------
102 : ! ... local variables
103 : !-----------------------------------------------------------------------
104 : integer :: k
105 117656469 : do k = 1,avec_len
106 114070872 : lu(k,52) = 1._r8 / lu(k,52)
107 114070872 : lu(k,53) = lu(k,53) * lu(k,52)
108 114070872 : lu(k,54) = lu(k,54) * lu(k,52)
109 114070872 : lu(k,103) = lu(k,103) - lu(k,53) * lu(k,102)
110 114070872 : lu(k,106) = lu(k,106) - lu(k,54) * lu(k,102)
111 114070872 : lu(k,2032) = lu(k,2032) - lu(k,53) * lu(k,2031)
112 114070872 : lu(k,2090) = lu(k,2090) - lu(k,54) * lu(k,2031)
113 114070872 : lu(k,55) = 1._r8 / lu(k,55)
114 114070872 : lu(k,56) = lu(k,56) * lu(k,55)
115 114070872 : lu(k,57) = lu(k,57) * lu(k,55)
116 114070872 : lu(k,58) = lu(k,58) * lu(k,55)
117 114070872 : lu(k,59) = lu(k,59) * lu(k,55)
118 114070872 : lu(k,767) = lu(k,767) - lu(k,56) * lu(k,763)
119 114070872 : lu(k,783) = lu(k,783) - lu(k,57) * lu(k,763)
120 114070872 : lu(k,787) = lu(k,787) - lu(k,58) * lu(k,763)
121 114070872 : lu(k,796) = lu(k,796) - lu(k,59) * lu(k,763)
122 114070872 : lu(k,60) = 1._r8 / lu(k,60)
123 114070872 : lu(k,61) = lu(k,61) * lu(k,60)
124 114070872 : lu(k,62) = lu(k,62) * lu(k,60)
125 114070872 : lu(k,63) = lu(k,63) * lu(k,60)
126 114070872 : lu(k,64) = lu(k,64) * lu(k,60)
127 114070872 : lu(k,767) = lu(k,767) - lu(k,61) * lu(k,764)
128 114070872 : lu(k,778) = lu(k,778) - lu(k,62) * lu(k,764)
129 114070872 : lu(k,783) = lu(k,783) - lu(k,63) * lu(k,764)
130 114070872 : lu(k,787) = lu(k,787) - lu(k,64) * lu(k,764)
131 114070872 : lu(k,65) = 1._r8 / lu(k,65)
132 114070872 : lu(k,66) = lu(k,66) * lu(k,65)
133 114070872 : lu(k,67) = lu(k,67) * lu(k,65)
134 114070872 : lu(k,68) = lu(k,68) * lu(k,65)
135 114070872 : lu(k,69) = lu(k,69) * lu(k,65)
136 114070872 : lu(k,767) = lu(k,767) - lu(k,66) * lu(k,765)
137 114070872 : lu(k,769) = lu(k,769) - lu(k,67) * lu(k,765)
138 114070872 : lu(k,787) = lu(k,787) - lu(k,68) * lu(k,765)
139 114070872 : lu(k,796) = lu(k,796) - lu(k,69) * lu(k,765)
140 114070872 : lu(k,70) = 1._r8 / lu(k,70)
141 114070872 : lu(k,71) = lu(k,71) * lu(k,70)
142 114070872 : lu(k,72) = lu(k,72) * lu(k,70)
143 114070872 : lu(k,73) = lu(k,73) * lu(k,70)
144 114070872 : lu(k,74) = lu(k,74) * lu(k,70)
145 114070872 : lu(k,767) = lu(k,767) - lu(k,71) * lu(k,766)
146 114070872 : lu(k,778) = lu(k,778) - lu(k,72) * lu(k,766)
147 114070872 : lu(k,787) = lu(k,787) - lu(k,73) * lu(k,766)
148 114070872 : lu(k,796) = lu(k,796) - lu(k,74) * lu(k,766)
149 114070872 : lu(k,75) = 1._r8 / lu(k,75)
150 114070872 : lu(k,76) = lu(k,76) * lu(k,75)
151 114070872 : lu(k,337) = lu(k,337) - lu(k,76) * lu(k,332)
152 114070872 : lu(k,363) = lu(k,363) - lu(k,76) * lu(k,357)
153 114070872 : lu(k,1112) = lu(k,1112) - lu(k,76) * lu(k,1083)
154 114070872 : lu(k,1487) = lu(k,1487) - lu(k,76) * lu(k,1454)
155 114070872 : lu(k,2016) = lu(k,2016) - lu(k,76) * lu(k,1986)
156 114070872 : lu(k,77) = 1._r8 / lu(k,77)
157 114070872 : lu(k,78) = lu(k,78) * lu(k,77)
158 114070872 : lu(k,79) = lu(k,79) * lu(k,77)
159 114070872 : lu(k,91) = - lu(k,78) * lu(k,89)
160 114070872 : lu(k,92) = lu(k,92) - lu(k,79) * lu(k,89)
161 114070872 : lu(k,117) = - lu(k,78) * lu(k,115)
162 114070872 : lu(k,118) = lu(k,118) - lu(k,79) * lu(k,115)
163 114070872 : lu(k,778) = lu(k,778) - lu(k,78) * lu(k,767)
164 114070872 : lu(k,787) = lu(k,787) - lu(k,79) * lu(k,767)
165 114070872 : lu(k,971) = - lu(k,78) * lu(k,950)
166 114070872 : lu(k,982) = - lu(k,79) * lu(k,950)
167 114070872 : lu(k,80) = 1._r8 / lu(k,80)
168 114070872 : lu(k,81) = lu(k,81) * lu(k,80)
169 114070872 : lu(k,82) = lu(k,82) * lu(k,80)
170 114070872 : lu(k,83) = lu(k,83) * lu(k,80)
171 114070872 : lu(k,84) = lu(k,84) * lu(k,80)
172 114070872 : lu(k,769) = lu(k,769) - lu(k,81) * lu(k,768)
173 114070872 : lu(k,787) = lu(k,787) - lu(k,82) * lu(k,768)
174 114070872 : lu(k,789) = lu(k,789) - lu(k,83) * lu(k,768)
175 114070872 : lu(k,796) = lu(k,796) - lu(k,84) * lu(k,768)
176 114070872 : lu(k,952) = lu(k,952) - lu(k,81) * lu(k,951)
177 114070872 : lu(k,982) = lu(k,982) - lu(k,82) * lu(k,951)
178 114070872 : lu(k,984) = lu(k,984) - lu(k,83) * lu(k,951)
179 114070872 : lu(k,993) = lu(k,993) - lu(k,84) * lu(k,951)
180 114070872 : lu(k,85) = 1._r8 / lu(k,85)
181 114070872 : lu(k,86) = lu(k,86) * lu(k,85)
182 114070872 : lu(k,87) = lu(k,87) * lu(k,85)
183 114070872 : lu(k,88) = lu(k,88) * lu(k,85)
184 114070872 : lu(k,778) = lu(k,778) - lu(k,86) * lu(k,769)
185 114070872 : lu(k,787) = lu(k,787) - lu(k,87) * lu(k,769)
186 114070872 : lu(k,796) = lu(k,796) - lu(k,88) * lu(k,769)
187 114070872 : lu(k,971) = lu(k,971) - lu(k,86) * lu(k,952)
188 114070872 : lu(k,982) = lu(k,982) - lu(k,87) * lu(k,952)
189 114070872 : lu(k,993) = lu(k,993) - lu(k,88) * lu(k,952)
190 114070872 : lu(k,90) = 1._r8 / lu(k,90)
191 114070872 : lu(k,91) = lu(k,91) * lu(k,90)
192 114070872 : lu(k,92) = lu(k,92) * lu(k,90)
193 114070872 : lu(k,93) = lu(k,93) * lu(k,90)
194 114070872 : lu(k,94) = lu(k,94) * lu(k,90)
195 114070872 : lu(k,778) = lu(k,778) - lu(k,91) * lu(k,770)
196 114070872 : lu(k,787) = lu(k,787) - lu(k,92) * lu(k,770)
197 114070872 : lu(k,789) = lu(k,789) - lu(k,93) * lu(k,770)
198 114070872 : lu(k,796) = lu(k,796) - lu(k,94) * lu(k,770)
199 114070872 : lu(k,971) = lu(k,971) - lu(k,91) * lu(k,953)
200 114070872 : lu(k,982) = lu(k,982) - lu(k,92) * lu(k,953)
201 114070872 : lu(k,984) = lu(k,984) - lu(k,93) * lu(k,953)
202 114070872 : lu(k,993) = lu(k,993) - lu(k,94) * lu(k,953)
203 114070872 : lu(k,95) = 1._r8 / lu(k,95)
204 114070872 : lu(k,96) = lu(k,96) * lu(k,95)
205 114070872 : lu(k,97) = lu(k,97) * lu(k,95)
206 114070872 : lu(k,310) = lu(k,310) - lu(k,96) * lu(k,308)
207 114070872 : lu(k,314) = - lu(k,97) * lu(k,308)
208 114070872 : lu(k,714) = lu(k,714) - lu(k,96) * lu(k,708)
209 114070872 : lu(k,724) = lu(k,724) - lu(k,97) * lu(k,708)
210 114070872 : lu(k,1092) = lu(k,1092) - lu(k,96) * lu(k,1084)
211 114070872 : lu(k,1112) = lu(k,1112) - lu(k,97) * lu(k,1084)
212 114070872 : lu(k,1995) = - lu(k,96) * lu(k,1987)
213 117656469 : lu(k,2016) = lu(k,2016) - lu(k,97) * lu(k,1987)
214 : end do
215 3585597 : end subroutine lu_fac02
216 3585597 : subroutine lu_fac03( avec_len, lu )
217 : use chem_mods, only : nzcnt
218 : use shr_kind_mod, only : r8 => shr_kind_r8
219 : implicit none
220 : !-----------------------------------------------------------------------
221 : ! ... dummy args
222 : !-----------------------------------------------------------------------
223 : integer, intent(in) :: avec_len
224 : real(r8), intent(inout) :: lu(veclen,nzcnt)
225 : !-----------------------------------------------------------------------
226 : ! ... local variables
227 : !-----------------------------------------------------------------------
228 : integer :: k
229 117656469 : do k = 1,avec_len
230 114070872 : lu(k,98) = 1._r8 / lu(k,98)
231 114070872 : lu(k,99) = lu(k,99) * lu(k,98)
232 114070872 : lu(k,100) = lu(k,100) * lu(k,98)
233 114070872 : lu(k,101) = lu(k,101) * lu(k,98)
234 114070872 : lu(k,447) = - lu(k,99) * lu(k,443)
235 114070872 : lu(k,454) = lu(k,454) - lu(k,100) * lu(k,443)
236 114070872 : lu(k,458) = lu(k,458) - lu(k,101) * lu(k,443)
237 114070872 : lu(k,787) = lu(k,787) - lu(k,99) * lu(k,771)
238 114070872 : lu(k,795) = lu(k,795) - lu(k,100) * lu(k,771)
239 114070872 : lu(k,806) = lu(k,806) - lu(k,101) * lu(k,771)
240 114070872 : lu(k,1803) = - lu(k,99) * lu(k,1786)
241 114070872 : lu(k,1818) = lu(k,1818) - lu(k,100) * lu(k,1786)
242 114070872 : lu(k,1831) = lu(k,1831) - lu(k,101) * lu(k,1786)
243 114070872 : lu(k,103) = 1._r8 / lu(k,103)
244 114070872 : lu(k,104) = lu(k,104) * lu(k,103)
245 114070872 : lu(k,105) = lu(k,105) * lu(k,103)
246 114070872 : lu(k,106) = lu(k,106) * lu(k,103)
247 114070872 : lu(k,351) = lu(k,351) - lu(k,104) * lu(k,350)
248 114070872 : lu(k,355) = lu(k,355) - lu(k,105) * lu(k,350)
249 114070872 : lu(k,356) = - lu(k,106) * lu(k,350)
250 114070872 : lu(k,972) = lu(k,972) - lu(k,104) * lu(k,954)
251 114070872 : lu(k,991) = lu(k,991) - lu(k,105) * lu(k,954)
252 114070872 : lu(k,1005) = lu(k,1005) - lu(k,106) * lu(k,954)
253 114070872 : lu(k,2045) = - lu(k,104) * lu(k,2032)
254 114070872 : lu(k,2074) = lu(k,2074) - lu(k,105) * lu(k,2032)
255 114070872 : lu(k,2090) = lu(k,2090) - lu(k,106) * lu(k,2032)
256 114070872 : lu(k,107) = 1._r8 / lu(k,107)
257 114070872 : lu(k,108) = lu(k,108) * lu(k,107)
258 114070872 : lu(k,109) = lu(k,109) * lu(k,107)
259 114070872 : lu(k,110) = lu(k,110) * lu(k,107)
260 114070872 : lu(k,406) = lu(k,406) - lu(k,108) * lu(k,399)
261 114070872 : lu(k,408) = lu(k,408) - lu(k,109) * lu(k,399)
262 114070872 : lu(k,412) = lu(k,412) - lu(k,110) * lu(k,399)
263 114070872 : lu(k,1696) = lu(k,1696) - lu(k,108) * lu(k,1667)
264 114070872 : lu(k,1700) = lu(k,1700) - lu(k,109) * lu(k,1667)
265 114070872 : lu(k,1709) = lu(k,1709) - lu(k,110) * lu(k,1667)
266 114070872 : lu(k,2077) = lu(k,2077) - lu(k,108) * lu(k,2033)
267 114070872 : lu(k,2081) = lu(k,2081) - lu(k,109) * lu(k,2033)
268 114070872 : lu(k,2090) = lu(k,2090) - lu(k,110) * lu(k,2033)
269 114070872 : lu(k,111) = 1._r8 / lu(k,111)
270 114070872 : lu(k,112) = lu(k,112) * lu(k,111)
271 114070872 : lu(k,113) = lu(k,113) * lu(k,111)
272 114070872 : lu(k,114) = lu(k,114) * lu(k,111)
273 114070872 : lu(k,406) = lu(k,406) - lu(k,112) * lu(k,400)
274 114070872 : lu(k,407) = lu(k,407) - lu(k,113) * lu(k,400)
275 114070872 : lu(k,412) = lu(k,412) - lu(k,114) * lu(k,400)
276 114070872 : lu(k,1653) = lu(k,1653) - lu(k,112) * lu(k,1624)
277 114070872 : lu(k,1656) = lu(k,1656) - lu(k,113) * lu(k,1624)
278 114070872 : lu(k,1666) = lu(k,1666) - lu(k,114) * lu(k,1624)
279 114070872 : lu(k,2077) = lu(k,2077) - lu(k,112) * lu(k,2034)
280 114070872 : lu(k,2080) = lu(k,2080) - lu(k,113) * lu(k,2034)
281 114070872 : lu(k,2090) = lu(k,2090) - lu(k,114) * lu(k,2034)
282 114070872 : lu(k,116) = 1._r8 / lu(k,116)
283 114070872 : lu(k,117) = lu(k,117) * lu(k,116)
284 114070872 : lu(k,118) = lu(k,118) * lu(k,116)
285 114070872 : lu(k,119) = lu(k,119) * lu(k,116)
286 114070872 : lu(k,120) = lu(k,120) * lu(k,116)
287 114070872 : lu(k,121) = lu(k,121) * lu(k,116)
288 114070872 : lu(k,778) = lu(k,778) - lu(k,117) * lu(k,772)
289 114070872 : lu(k,787) = lu(k,787) - lu(k,118) * lu(k,772)
290 114070872 : lu(k,789) = lu(k,789) - lu(k,119) * lu(k,772)
291 114070872 : lu(k,796) = lu(k,796) - lu(k,120) * lu(k,772)
292 114070872 : lu(k,808) = lu(k,808) - lu(k,121) * lu(k,772)
293 114070872 : lu(k,971) = lu(k,971) - lu(k,117) * lu(k,955)
294 114070872 : lu(k,982) = lu(k,982) - lu(k,118) * lu(k,955)
295 114070872 : lu(k,984) = lu(k,984) - lu(k,119) * lu(k,955)
296 114070872 : lu(k,993) = lu(k,993) - lu(k,120) * lu(k,955)
297 114070872 : lu(k,1005) = lu(k,1005) - lu(k,121) * lu(k,955)
298 114070872 : lu(k,122) = 1._r8 / lu(k,122)
299 114070872 : lu(k,123) = lu(k,123) * lu(k,122)
300 114070872 : lu(k,124) = lu(k,124) * lu(k,122)
301 114070872 : lu(k,341) = lu(k,341) - lu(k,123) * lu(k,340)
302 114070872 : lu(k,348) = lu(k,348) - lu(k,124) * lu(k,340)
303 114070872 : lu(k,415) = lu(k,415) - lu(k,123) * lu(k,413)
304 114070872 : lu(k,428) = lu(k,428) - lu(k,124) * lu(k,413)
305 114070872 : lu(k,644) = lu(k,644) - lu(k,123) * lu(k,643)
306 114070872 : lu(k,660) = lu(k,660) - lu(k,124) * lu(k,643)
307 114070872 : lu(k,1504) = lu(k,1504) - lu(k,123) * lu(k,1502)
308 114070872 : lu(k,1535) = - lu(k,124) * lu(k,1502)
309 114070872 : lu(k,2044) = lu(k,2044) - lu(k,123) * lu(k,2035)
310 114070872 : lu(k,2083) = lu(k,2083) - lu(k,124) * lu(k,2035)
311 114070872 : lu(k,125) = 1._r8 / lu(k,125)
312 114070872 : lu(k,126) = lu(k,126) * lu(k,125)
313 114070872 : lu(k,127) = lu(k,127) * lu(k,125)
314 114070872 : lu(k,128) = lu(k,128) * lu(k,125)
315 114070872 : lu(k,129) = lu(k,129) * lu(k,125)
316 114070872 : lu(k,130) = lu(k,130) * lu(k,125)
317 114070872 : lu(k,972) = lu(k,972) - lu(k,126) * lu(k,956)
318 114070872 : lu(k,983) = lu(k,983) - lu(k,127) * lu(k,956)
319 114070872 : lu(k,984) = lu(k,984) - lu(k,128) * lu(k,956)
320 114070872 : lu(k,994) = lu(k,994) - lu(k,129) * lu(k,956)
321 114070872 : lu(k,997) = lu(k,997) - lu(k,130) * lu(k,956)
322 114070872 : lu(k,1712) = lu(k,1712) - lu(k,126) * lu(k,1710)
323 114070872 : lu(k,1723) = lu(k,1723) - lu(k,127) * lu(k,1710)
324 114070872 : lu(k,1725) = lu(k,1725) - lu(k,128) * lu(k,1710)
325 114070872 : lu(k,1736) = lu(k,1736) - lu(k,129) * lu(k,1710)
326 114070872 : lu(k,1741) = lu(k,1741) - lu(k,130) * lu(k,1710)
327 114070872 : lu(k,131) = 1._r8 / lu(k,131)
328 114070872 : lu(k,132) = lu(k,132) * lu(k,131)
329 114070872 : lu(k,133) = lu(k,133) * lu(k,131)
330 114070872 : lu(k,779) = - lu(k,132) * lu(k,773)
331 114070872 : lu(k,795) = lu(k,795) - lu(k,133) * lu(k,773)
332 114070872 : lu(k,1266) = lu(k,1266) - lu(k,132) * lu(k,1261)
333 114070872 : lu(k,1287) = lu(k,1287) - lu(k,133) * lu(k,1261)
334 114070872 : lu(k,1363) = lu(k,1363) - lu(k,132) * lu(k,1345)
335 114070872 : lu(k,1389) = lu(k,1389) - lu(k,133) * lu(k,1345)
336 114070872 : lu(k,1414) = lu(k,1414) - lu(k,132) * lu(k,1405)
337 114070872 : lu(k,1438) = lu(k,1438) - lu(k,133) * lu(k,1405)
338 114070872 : lu(k,1906) = lu(k,1906) - lu(k,132) * lu(k,1903)
339 114070872 : lu(k,1928) = lu(k,1928) - lu(k,133) * lu(k,1903)
340 114070872 : lu(k,134) = 1._r8 / lu(k,134)
341 114070872 : lu(k,135) = lu(k,135) * lu(k,134)
342 114070872 : lu(k,136) = lu(k,136) * lu(k,134)
343 114070872 : lu(k,137) = lu(k,137) * lu(k,134)
344 114070872 : lu(k,138) = lu(k,138) * lu(k,134)
345 114070872 : lu(k,475) = lu(k,475) - lu(k,135) * lu(k,473)
346 114070872 : lu(k,476) = lu(k,476) - lu(k,136) * lu(k,473)
347 114070872 : lu(k,481) = lu(k,481) - lu(k,137) * lu(k,473)
348 114070872 : lu(k,482) = lu(k,482) - lu(k,138) * lu(k,473)
349 114070872 : lu(k,712) = lu(k,712) - lu(k,135) * lu(k,709)
350 114070872 : lu(k,713) = lu(k,713) - lu(k,136) * lu(k,709)
351 114070872 : lu(k,720) = lu(k,720) - lu(k,137) * lu(k,709)
352 114070872 : lu(k,722) = lu(k,722) - lu(k,138) * lu(k,709)
353 114070872 : lu(k,1087) = lu(k,1087) - lu(k,135) * lu(k,1085)
354 114070872 : lu(k,1091) = lu(k,1091) - lu(k,136) * lu(k,1085)
355 114070872 : lu(k,1104) = lu(k,1104) - lu(k,137) * lu(k,1085)
356 114070872 : lu(k,1110) = lu(k,1110) - lu(k,138) * lu(k,1085)
357 114070872 : lu(k,139) = 1._r8 / lu(k,139)
358 114070872 : lu(k,140) = lu(k,140) * lu(k,139)
359 114070872 : lu(k,141) = lu(k,141) * lu(k,139)
360 114070872 : lu(k,142) = lu(k,142) * lu(k,139)
361 114070872 : lu(k,143) = lu(k,143) * lu(k,139)
362 114070872 : lu(k,144) = lu(k,144) * lu(k,139)
363 114070872 : lu(k,145) = lu(k,145) * lu(k,139)
364 114070872 : lu(k,146) = lu(k,146) * lu(k,139)
365 114070872 : lu(k,965) = lu(k,965) - lu(k,140) * lu(k,957)
366 114070872 : lu(k,966) = lu(k,966) - lu(k,141) * lu(k,957)
367 114070872 : lu(k,972) = lu(k,972) - lu(k,142) * lu(k,957)
368 114070872 : lu(k,977) = lu(k,977) - lu(k,143) * lu(k,957)
369 114070872 : lu(k,984) = lu(k,984) - lu(k,144) * lu(k,957)
370 114070872 : lu(k,991) = lu(k,991) - lu(k,145) * lu(k,957)
371 114070872 : lu(k,998) = lu(k,998) - lu(k,146) * lu(k,957)
372 114070872 : lu(k,1353) = lu(k,1353) - lu(k,140) * lu(k,1346)
373 114070872 : lu(k,1354) = - lu(k,141) * lu(k,1346)
374 114070872 : lu(k,1360) = - lu(k,142) * lu(k,1346)
375 114070872 : lu(k,1367) = lu(k,1367) - lu(k,143) * lu(k,1346)
376 114070872 : lu(k,1379) = lu(k,1379) - lu(k,144) * lu(k,1346)
377 114070872 : lu(k,1388) = lu(k,1388) - lu(k,145) * lu(k,1346)
378 117656469 : lu(k,1397) = lu(k,1397) - lu(k,146) * lu(k,1346)
379 : end do
380 3585597 : end subroutine lu_fac03
381 3585597 : subroutine lu_fac04( avec_len, lu )
382 : use chem_mods, only : nzcnt
383 : use shr_kind_mod, only : r8 => shr_kind_r8
384 : implicit none
385 : !-----------------------------------------------------------------------
386 : ! ... dummy args
387 : !-----------------------------------------------------------------------
388 : integer, intent(in) :: avec_len
389 : real(r8), intent(inout) :: lu(veclen,nzcnt)
390 : !-----------------------------------------------------------------------
391 : ! ... local variables
392 : !-----------------------------------------------------------------------
393 : integer :: k
394 117656469 : do k = 1,avec_len
395 114070872 : lu(k,147) = 1._r8 / lu(k,147)
396 114070872 : lu(k,148) = lu(k,148) * lu(k,147)
397 114070872 : lu(k,149) = lu(k,149) * lu(k,147)
398 114070872 : lu(k,150) = lu(k,150) * lu(k,147)
399 114070872 : lu(k,151) = lu(k,151) * lu(k,147)
400 114070872 : lu(k,152) = lu(k,152) * lu(k,147)
401 114070872 : lu(k,153) = lu(k,153) * lu(k,147)
402 114070872 : lu(k,154) = lu(k,154) * lu(k,147)
403 114070872 : lu(k,965) = lu(k,965) - lu(k,148) * lu(k,958)
404 114070872 : lu(k,975) = lu(k,975) - lu(k,149) * lu(k,958)
405 114070872 : lu(k,983) = lu(k,983) - lu(k,150) * lu(k,958)
406 114070872 : lu(k,984) = lu(k,984) - lu(k,151) * lu(k,958)
407 114070872 : lu(k,993) = lu(k,993) - lu(k,152) * lu(k,958)
408 114070872 : lu(k,1004) = lu(k,1004) - lu(k,153) * lu(k,958)
409 114070872 : lu(k,1005) = lu(k,1005) - lu(k,154) * lu(k,958)
410 114070872 : lu(k,1460) = lu(k,1460) - lu(k,148) * lu(k,1455)
411 114070872 : lu(k,1465) = lu(k,1465) - lu(k,149) * lu(k,1455)
412 114070872 : lu(k,1474) = lu(k,1474) - lu(k,150) * lu(k,1455)
413 114070872 : lu(k,1476) = lu(k,1476) - lu(k,151) * lu(k,1455)
414 114070872 : lu(k,1487) = lu(k,1487) - lu(k,152) * lu(k,1455)
415 114070872 : lu(k,1500) = lu(k,1500) - lu(k,153) * lu(k,1455)
416 114070872 : lu(k,1501) = - lu(k,154) * lu(k,1455)
417 114070872 : lu(k,155) = 1._r8 / lu(k,155)
418 114070872 : lu(k,156) = lu(k,156) * lu(k,155)
419 114070872 : lu(k,157) = lu(k,157) * lu(k,155)
420 114070872 : lu(k,158) = lu(k,158) * lu(k,155)
421 114070872 : lu(k,159) = lu(k,159) * lu(k,155)
422 114070872 : lu(k,160) = lu(k,160) * lu(k,155)
423 114070872 : lu(k,432) = lu(k,432) - lu(k,156) * lu(k,431)
424 114070872 : lu(k,433) = lu(k,433) - lu(k,157) * lu(k,431)
425 114070872 : lu(k,435) = - lu(k,158) * lu(k,431)
426 114070872 : lu(k,439) = - lu(k,159) * lu(k,431)
427 114070872 : lu(k,442) = - lu(k,160) * lu(k,431)
428 114070872 : lu(k,894) = lu(k,894) - lu(k,156) * lu(k,887)
429 114070872 : lu(k,898) = - lu(k,157) * lu(k,887)
430 114070872 : lu(k,901) = lu(k,901) - lu(k,158) * lu(k,887)
431 114070872 : lu(k,914) = lu(k,914) - lu(k,159) * lu(k,887)
432 114070872 : lu(k,921) = lu(k,921) - lu(k,160) * lu(k,887)
433 114070872 : lu(k,975) = lu(k,975) - lu(k,156) * lu(k,959)
434 114070872 : lu(k,981) = lu(k,981) - lu(k,157) * lu(k,959)
435 114070872 : lu(k,984) = lu(k,984) - lu(k,158) * lu(k,959)
436 114070872 : lu(k,998) = lu(k,998) - lu(k,159) * lu(k,959)
437 114070872 : lu(k,1005) = lu(k,1005) - lu(k,160) * lu(k,959)
438 114070872 : lu(k,161) = 1._r8 / lu(k,161)
439 114070872 : lu(k,162) = lu(k,162) * lu(k,161)
440 114070872 : lu(k,163) = lu(k,163) * lu(k,161)
441 114070872 : lu(k,164) = lu(k,164) * lu(k,161)
442 114070872 : lu(k,165) = lu(k,165) * lu(k,161)
443 114070872 : lu(k,166) = lu(k,166) * lu(k,161)
444 114070872 : lu(k,783) = lu(k,783) - lu(k,162) * lu(k,774)
445 114070872 : lu(k,787) = lu(k,787) - lu(k,163) * lu(k,774)
446 114070872 : lu(k,789) = lu(k,789) - lu(k,164) * lu(k,774)
447 114070872 : lu(k,796) = lu(k,796) - lu(k,165) * lu(k,774)
448 114070872 : lu(k,807) = lu(k,807) - lu(k,166) * lu(k,774)
449 114070872 : lu(k,978) = lu(k,978) - lu(k,162) * lu(k,960)
450 114070872 : lu(k,982) = lu(k,982) - lu(k,163) * lu(k,960)
451 114070872 : lu(k,984) = lu(k,984) - lu(k,164) * lu(k,960)
452 114070872 : lu(k,993) = lu(k,993) - lu(k,165) * lu(k,960)
453 114070872 : lu(k,1004) = lu(k,1004) - lu(k,166) * lu(k,960)
454 114070872 : lu(k,1466) = lu(k,1466) - lu(k,162) * lu(k,1456)
455 114070872 : lu(k,1470) = - lu(k,163) * lu(k,1456)
456 114070872 : lu(k,1476) = lu(k,1476) - lu(k,164) * lu(k,1456)
457 114070872 : lu(k,1487) = lu(k,1487) - lu(k,165) * lu(k,1456)
458 114070872 : lu(k,1500) = lu(k,1500) - lu(k,166) * lu(k,1456)
459 114070872 : lu(k,167) = 1._r8 / lu(k,167)
460 114070872 : lu(k,168) = lu(k,168) * lu(k,167)
461 114070872 : lu(k,169) = lu(k,169) * lu(k,167)
462 114070872 : lu(k,170) = lu(k,170) * lu(k,167)
463 114070872 : lu(k,171) = lu(k,171) * lu(k,167)
464 114070872 : lu(k,172) = lu(k,172) * lu(k,167)
465 114070872 : lu(k,290) = - lu(k,168) * lu(k,289)
466 114070872 : lu(k,293) = lu(k,293) - lu(k,169) * lu(k,289)
467 114070872 : lu(k,294) = lu(k,294) - lu(k,170) * lu(k,289)
468 114070872 : lu(k,298) = - lu(k,171) * lu(k,289)
469 114070872 : lu(k,299) = lu(k,299) - lu(k,172) * lu(k,289)
470 114070872 : lu(k,1044) = lu(k,1044) - lu(k,168) * lu(k,1039)
471 114070872 : lu(k,1057) = lu(k,1057) - lu(k,169) * lu(k,1039)
472 114070872 : lu(k,1058) = lu(k,1058) - lu(k,170) * lu(k,1039)
473 114070872 : lu(k,1074) = lu(k,1074) - lu(k,171) * lu(k,1039)
474 114070872 : lu(k,1081) = lu(k,1081) - lu(k,172) * lu(k,1039)
475 114070872 : lu(k,2038) = lu(k,2038) - lu(k,168) * lu(k,2036)
476 114070872 : lu(k,2065) = lu(k,2065) - lu(k,169) * lu(k,2036)
477 114070872 : lu(k,2067) = - lu(k,170) * lu(k,2036)
478 114070872 : lu(k,2083) = lu(k,2083) - lu(k,171) * lu(k,2036)
479 114070872 : lu(k,2090) = lu(k,2090) - lu(k,172) * lu(k,2036)
480 114070872 : lu(k,173) = 1._r8 / lu(k,173)
481 114070872 : lu(k,174) = lu(k,174) * lu(k,173)
482 114070872 : lu(k,175) = lu(k,175) * lu(k,173)
483 114070872 : lu(k,176) = lu(k,176) * lu(k,173)
484 114070872 : lu(k,177) = lu(k,177) * lu(k,173)
485 114070872 : lu(k,178) = lu(k,178) * lu(k,173)
486 114070872 : lu(k,1047) = - lu(k,174) * lu(k,1040)
487 114070872 : lu(k,1058) = lu(k,1058) - lu(k,175) * lu(k,1040)
488 114070872 : lu(k,1062) = lu(k,1062) - lu(k,176) * lu(k,1040)
489 114070872 : lu(k,1079) = lu(k,1079) - lu(k,177) * lu(k,1040)
490 114070872 : lu(k,1081) = lu(k,1081) - lu(k,178) * lu(k,1040)
491 114070872 : lu(k,1176) = - lu(k,174) * lu(k,1175)
492 114070872 : lu(k,1194) = lu(k,1194) - lu(k,175) * lu(k,1175)
493 114070872 : lu(k,1198) = - lu(k,176) * lu(k,1175)
494 114070872 : lu(k,1215) = lu(k,1215) - lu(k,177) * lu(k,1175)
495 114070872 : lu(k,1217) = lu(k,1217) - lu(k,178) * lu(k,1175)
496 114070872 : lu(k,2041) = lu(k,2041) - lu(k,174) * lu(k,2037)
497 114070872 : lu(k,2067) = lu(k,2067) - lu(k,175) * lu(k,2037)
498 114070872 : lu(k,2071) = lu(k,2071) - lu(k,176) * lu(k,2037)
499 114070872 : lu(k,2088) = - lu(k,177) * lu(k,2037)
500 114070872 : lu(k,2090) = lu(k,2090) - lu(k,178) * lu(k,2037)
501 114070872 : lu(k,179) = 1._r8 / lu(k,179)
502 114070872 : lu(k,180) = lu(k,180) * lu(k,179)
503 114070872 : lu(k,181) = lu(k,181) * lu(k,179)
504 114070872 : lu(k,182) = lu(k,182) * lu(k,179)
505 114070872 : lu(k,183) = lu(k,183) * lu(k,179)
506 114070872 : lu(k,184) = lu(k,184) * lu(k,179)
507 114070872 : lu(k,185) = lu(k,185) * lu(k,179)
508 114070872 : lu(k,900) = lu(k,900) - lu(k,180) * lu(k,888)
509 114070872 : lu(k,901) = lu(k,901) - lu(k,181) * lu(k,888)
510 114070872 : lu(k,908) = lu(k,908) - lu(k,182) * lu(k,888)
511 114070872 : lu(k,913) = lu(k,913) - lu(k,183) * lu(k,888)
512 114070872 : lu(k,915) = lu(k,915) - lu(k,184) * lu(k,888)
513 114070872 : lu(k,921) = lu(k,921) - lu(k,185) * lu(k,888)
514 114070872 : lu(k,983) = lu(k,983) - lu(k,180) * lu(k,961)
515 114070872 : lu(k,984) = lu(k,984) - lu(k,181) * lu(k,961)
516 114070872 : lu(k,992) = lu(k,992) - lu(k,182) * lu(k,961)
517 114070872 : lu(k,997) = lu(k,997) - lu(k,183) * lu(k,961)
518 114070872 : lu(k,999) = lu(k,999) - lu(k,184) * lu(k,961)
519 114070872 : lu(k,1005) = lu(k,1005) - lu(k,185) * lu(k,961)
520 114070872 : lu(k,1806) = lu(k,1806) - lu(k,180) * lu(k,1787)
521 114070872 : lu(k,1808) = lu(k,1808) - lu(k,181) * lu(k,1787)
522 114070872 : lu(k,1818) = lu(k,1818) - lu(k,182) * lu(k,1787)
523 114070872 : lu(k,1825) = lu(k,1825) - lu(k,183) * lu(k,1787)
524 114070872 : lu(k,1827) = lu(k,1827) - lu(k,184) * lu(k,1787)
525 117656469 : lu(k,1833) = lu(k,1833) - lu(k,185) * lu(k,1787)
526 : end do
527 3585597 : end subroutine lu_fac04
528 3585597 : subroutine lu_fac05( avec_len, lu )
529 : use chem_mods, only : nzcnt
530 : use shr_kind_mod, only : r8 => shr_kind_r8
531 : implicit none
532 : !-----------------------------------------------------------------------
533 : ! ... dummy args
534 : !-----------------------------------------------------------------------
535 : integer, intent(in) :: avec_len
536 : real(r8), intent(inout) :: lu(veclen,nzcnt)
537 : !-----------------------------------------------------------------------
538 : ! ... local variables
539 : !-----------------------------------------------------------------------
540 : integer :: k
541 117656469 : do k = 1,avec_len
542 114070872 : lu(k,186) = 1._r8 / lu(k,186)
543 114070872 : lu(k,187) = lu(k,187) * lu(k,186)
544 114070872 : lu(k,188) = lu(k,188) * lu(k,186)
545 114070872 : lu(k,189) = lu(k,189) * lu(k,186)
546 114070872 : lu(k,190) = lu(k,190) * lu(k,186)
547 114070872 : lu(k,191) = lu(k,191) * lu(k,186)
548 114070872 : lu(k,192) = lu(k,192) * lu(k,186)
549 114070872 : lu(k,783) = lu(k,783) - lu(k,187) * lu(k,775)
550 114070872 : lu(k,787) = lu(k,787) - lu(k,188) * lu(k,775)
551 114070872 : lu(k,789) = lu(k,789) - lu(k,189) * lu(k,775)
552 114070872 : lu(k,796) = lu(k,796) - lu(k,190) * lu(k,775)
553 114070872 : lu(k,807) = lu(k,807) - lu(k,191) * lu(k,775)
554 114070872 : lu(k,808) = lu(k,808) - lu(k,192) * lu(k,775)
555 114070872 : lu(k,978) = lu(k,978) - lu(k,187) * lu(k,962)
556 114070872 : lu(k,982) = lu(k,982) - lu(k,188) * lu(k,962)
557 114070872 : lu(k,984) = lu(k,984) - lu(k,189) * lu(k,962)
558 114070872 : lu(k,993) = lu(k,993) - lu(k,190) * lu(k,962)
559 114070872 : lu(k,1004) = lu(k,1004) - lu(k,191) * lu(k,962)
560 114070872 : lu(k,1005) = lu(k,1005) - lu(k,192) * lu(k,962)
561 114070872 : lu(k,1466) = lu(k,1466) - lu(k,187) * lu(k,1457)
562 114070872 : lu(k,1470) = lu(k,1470) - lu(k,188) * lu(k,1457)
563 114070872 : lu(k,1476) = lu(k,1476) - lu(k,189) * lu(k,1457)
564 114070872 : lu(k,1487) = lu(k,1487) - lu(k,190) * lu(k,1457)
565 114070872 : lu(k,1500) = lu(k,1500) - lu(k,191) * lu(k,1457)
566 114070872 : lu(k,1501) = lu(k,1501) - lu(k,192) * lu(k,1457)
567 114070872 : lu(k,193) = 1._r8 / lu(k,193)
568 114070872 : lu(k,194) = lu(k,194) * lu(k,193)
569 114070872 : lu(k,195) = lu(k,195) * lu(k,193)
570 114070872 : lu(k,196) = lu(k,196) * lu(k,193)
571 114070872 : lu(k,197) = lu(k,197) * lu(k,193)
572 114070872 : lu(k,198) = lu(k,198) * lu(k,193)
573 114070872 : lu(k,199) = lu(k,199) * lu(k,193)
574 114070872 : lu(k,1042) = lu(k,1042) - lu(k,194) * lu(k,1041)
575 114070872 : lu(k,1043) = lu(k,1043) - lu(k,195) * lu(k,1041)
576 114070872 : lu(k,1051) = - lu(k,196) * lu(k,1041)
577 114070872 : lu(k,1052) = lu(k,1052) - lu(k,197) * lu(k,1041)
578 114070872 : lu(k,1065) = lu(k,1065) - lu(k,198) * lu(k,1041)
579 114070872 : lu(k,1079) = lu(k,1079) - lu(k,199) * lu(k,1041)
580 114070872 : lu(k,1348) = lu(k,1348) - lu(k,194) * lu(k,1347)
581 114070872 : lu(k,1351) = lu(k,1351) - lu(k,195) * lu(k,1347)
582 114070872 : lu(k,1357) = lu(k,1357) - lu(k,196) * lu(k,1347)
583 114070872 : lu(k,1364) = lu(k,1364) - lu(k,197) * lu(k,1347)
584 114070872 : lu(k,1388) = lu(k,1388) - lu(k,198) * lu(k,1347)
585 114070872 : lu(k,1402) = lu(k,1402) - lu(k,199) * lu(k,1347)
586 114070872 : lu(k,1407) = lu(k,1407) - lu(k,194) * lu(k,1406)
587 114070872 : lu(k,1408) = lu(k,1408) - lu(k,195) * lu(k,1406)
588 114070872 : lu(k,1412) = lu(k,1412) - lu(k,196) * lu(k,1406)
589 114070872 : lu(k,1415) = lu(k,1415) - lu(k,197) * lu(k,1406)
590 114070872 : lu(k,1437) = lu(k,1437) - lu(k,198) * lu(k,1406)
591 114070872 : lu(k,1451) = lu(k,1451) - lu(k,199) * lu(k,1406)
592 114070872 : lu(k,200) = 1._r8 / lu(k,200)
593 114070872 : lu(k,201) = lu(k,201) * lu(k,200)
594 114070872 : lu(k,202) = lu(k,202) * lu(k,200)
595 114070872 : lu(k,203) = lu(k,203) * lu(k,200)
596 114070872 : lu(k,204) = lu(k,204) * lu(k,200)
597 114070872 : lu(k,205) = lu(k,205) * lu(k,200)
598 114070872 : lu(k,1043) = lu(k,1043) - lu(k,201) * lu(k,1042)
599 114070872 : lu(k,1052) = lu(k,1052) - lu(k,202) * lu(k,1042)
600 114070872 : lu(k,1065) = lu(k,1065) - lu(k,203) * lu(k,1042)
601 114070872 : lu(k,1066) = lu(k,1066) - lu(k,204) * lu(k,1042)
602 114070872 : lu(k,1070) = lu(k,1070) - lu(k,205) * lu(k,1042)
603 114070872 : lu(k,1351) = lu(k,1351) - lu(k,201) * lu(k,1348)
604 114070872 : lu(k,1364) = lu(k,1364) - lu(k,202) * lu(k,1348)
605 114070872 : lu(k,1388) = lu(k,1388) - lu(k,203) * lu(k,1348)
606 114070872 : lu(k,1389) = lu(k,1389) - lu(k,204) * lu(k,1348)
607 114070872 : lu(k,1393) = lu(k,1393) - lu(k,205) * lu(k,1348)
608 114070872 : lu(k,1408) = lu(k,1408) - lu(k,201) * lu(k,1407)
609 114070872 : lu(k,1415) = lu(k,1415) - lu(k,202) * lu(k,1407)
610 114070872 : lu(k,1437) = lu(k,1437) - lu(k,203) * lu(k,1407)
611 114070872 : lu(k,1438) = lu(k,1438) - lu(k,204) * lu(k,1407)
612 114070872 : lu(k,1442) = lu(k,1442) - lu(k,205) * lu(k,1407)
613 114070872 : lu(k,206) = 1._r8 / lu(k,206)
614 114070872 : lu(k,207) = lu(k,207) * lu(k,206)
615 114070872 : lu(k,208) = lu(k,208) * lu(k,206)
616 114070872 : lu(k,209) = lu(k,209) * lu(k,206)
617 114070872 : lu(k,210) = lu(k,210) * lu(k,206)
618 114070872 : lu(k,211) = lu(k,211) * lu(k,206)
619 114070872 : lu(k,212) = lu(k,212) * lu(k,206)
620 114070872 : lu(k,213) = lu(k,213) * lu(k,206)
621 114070872 : lu(k,711) = lu(k,711) - lu(k,207) * lu(k,710)
622 114070872 : lu(k,714) = lu(k,714) - lu(k,208) * lu(k,710)
623 114070872 : lu(k,715) = lu(k,715) - lu(k,209) * lu(k,710)
624 114070872 : lu(k,722) = lu(k,722) - lu(k,210) * lu(k,710)
625 114070872 : lu(k,725) = - lu(k,211) * lu(k,710)
626 114070872 : lu(k,726) = - lu(k,212) * lu(k,710)
627 114070872 : lu(k,728) = lu(k,728) - lu(k,213) * lu(k,710)
628 114070872 : lu(k,1356) = lu(k,1356) - lu(k,207) * lu(k,1349)
629 114070872 : lu(k,1368) = lu(k,1368) - lu(k,208) * lu(k,1349)
630 114070872 : lu(k,1371) = lu(k,1371) - lu(k,209) * lu(k,1349)
631 114070872 : lu(k,1388) = lu(k,1388) - lu(k,210) * lu(k,1349)
632 114070872 : lu(k,1391) = - lu(k,211) * lu(k,1349)
633 114070872 : lu(k,1396) = lu(k,1396) - lu(k,212) * lu(k,1349)
634 114070872 : lu(k,1398) = lu(k,1398) - lu(k,213) * lu(k,1349)
635 114070872 : lu(k,1789) = - lu(k,207) * lu(k,1788)
636 114070872 : lu(k,1795) = - lu(k,208) * lu(k,1788)
637 114070872 : lu(k,1801) = lu(k,1801) - lu(k,209) * lu(k,1788)
638 114070872 : lu(k,1817) = lu(k,1817) - lu(k,210) * lu(k,1788)
639 114070872 : lu(k,1820) = lu(k,1820) - lu(k,211) * lu(k,1788)
640 114070872 : lu(k,1825) = lu(k,1825) - lu(k,212) * lu(k,1788)
641 114070872 : lu(k,1827) = lu(k,1827) - lu(k,213) * lu(k,1788)
642 114070872 : lu(k,214) = 1._r8 / lu(k,214)
643 114070872 : lu(k,215) = lu(k,215) * lu(k,214)
644 114070872 : lu(k,216) = lu(k,216) * lu(k,214)
645 114070872 : lu(k,217) = lu(k,217) * lu(k,214)
646 114070872 : lu(k,218) = lu(k,218) * lu(k,214)
647 114070872 : lu(k,219) = lu(k,219) * lu(k,214)
648 114070872 : lu(k,220) = lu(k,220) * lu(k,214)
649 114070872 : lu(k,900) = lu(k,900) - lu(k,215) * lu(k,889)
650 114070872 : lu(k,901) = lu(k,901) - lu(k,216) * lu(k,889)
651 114070872 : lu(k,907) = lu(k,907) - lu(k,217) * lu(k,889)
652 114070872 : lu(k,909) = lu(k,909) - lu(k,218) * lu(k,889)
653 114070872 : lu(k,920) = lu(k,920) - lu(k,219) * lu(k,889)
654 114070872 : lu(k,921) = lu(k,921) - lu(k,220) * lu(k,889)
655 114070872 : lu(k,983) = lu(k,983) - lu(k,215) * lu(k,963)
656 114070872 : lu(k,984) = lu(k,984) - lu(k,216) * lu(k,963)
657 114070872 : lu(k,991) = lu(k,991) - lu(k,217) * lu(k,963)
658 114070872 : lu(k,993) = lu(k,993) - lu(k,218) * lu(k,963)
659 114070872 : lu(k,1004) = lu(k,1004) - lu(k,219) * lu(k,963)
660 114070872 : lu(k,1005) = lu(k,1005) - lu(k,220) * lu(k,963)
661 114070872 : lu(k,1377) = lu(k,1377) - lu(k,215) * lu(k,1350)
662 114070872 : lu(k,1379) = lu(k,1379) - lu(k,216) * lu(k,1350)
663 114070872 : lu(k,1388) = lu(k,1388) - lu(k,217) * lu(k,1350)
664 114070872 : lu(k,1390) = lu(k,1390) - lu(k,218) * lu(k,1350)
665 114070872 : lu(k,1403) = lu(k,1403) - lu(k,219) * lu(k,1350)
666 114070872 : lu(k,1404) = - lu(k,220) * lu(k,1350)
667 114070872 : lu(k,1474) = lu(k,1474) - lu(k,215) * lu(k,1458)
668 114070872 : lu(k,1476) = lu(k,1476) - lu(k,216) * lu(k,1458)
669 114070872 : lu(k,1485) = lu(k,1485) - lu(k,217) * lu(k,1458)
670 114070872 : lu(k,1487) = lu(k,1487) - lu(k,218) * lu(k,1458)
671 114070872 : lu(k,1500) = lu(k,1500) - lu(k,219) * lu(k,1458)
672 114070872 : lu(k,1501) = lu(k,1501) - lu(k,220) * lu(k,1458)
673 114070872 : lu(k,221) = 1._r8 / lu(k,221)
674 114070872 : lu(k,222) = lu(k,222) * lu(k,221)
675 114070872 : lu(k,223) = lu(k,223) * lu(k,221)
676 114070872 : lu(k,224) = lu(k,224) * lu(k,221)
677 114070872 : lu(k,225) = lu(k,225) * lu(k,221)
678 114070872 : lu(k,226) = lu(k,226) * lu(k,221)
679 114070872 : lu(k,227) = lu(k,227) * lu(k,221)
680 114070872 : lu(k,228) = lu(k,228) * lu(k,221)
681 114070872 : lu(k,229) = lu(k,229) * lu(k,221)
682 114070872 : lu(k,781) = lu(k,781) - lu(k,222) * lu(k,776)
683 114070872 : lu(k,783) = lu(k,783) - lu(k,223) * lu(k,776)
684 114070872 : lu(k,787) = lu(k,787) - lu(k,224) * lu(k,776)
685 114070872 : lu(k,788) = lu(k,788) - lu(k,225) * lu(k,776)
686 114070872 : lu(k,789) = lu(k,789) - lu(k,226) * lu(k,776)
687 114070872 : lu(k,796) = lu(k,796) - lu(k,227) * lu(k,776)
688 114070872 : lu(k,807) = lu(k,807) - lu(k,228) * lu(k,776)
689 114070872 : lu(k,808) = lu(k,808) - lu(k,229) * lu(k,776)
690 114070872 : lu(k,975) = lu(k,975) - lu(k,222) * lu(k,964)
691 114070872 : lu(k,978) = lu(k,978) - lu(k,223) * lu(k,964)
692 114070872 : lu(k,982) = lu(k,982) - lu(k,224) * lu(k,964)
693 114070872 : lu(k,983) = lu(k,983) - lu(k,225) * lu(k,964)
694 114070872 : lu(k,984) = lu(k,984) - lu(k,226) * lu(k,964)
695 114070872 : lu(k,993) = lu(k,993) - lu(k,227) * lu(k,964)
696 114070872 : lu(k,1004) = lu(k,1004) - lu(k,228) * lu(k,964)
697 114070872 : lu(k,1005) = lu(k,1005) - lu(k,229) * lu(k,964)
698 114070872 : lu(k,1465) = lu(k,1465) - lu(k,222) * lu(k,1459)
699 114070872 : lu(k,1466) = lu(k,1466) - lu(k,223) * lu(k,1459)
700 114070872 : lu(k,1470) = lu(k,1470) - lu(k,224) * lu(k,1459)
701 114070872 : lu(k,1474) = lu(k,1474) - lu(k,225) * lu(k,1459)
702 114070872 : lu(k,1476) = lu(k,1476) - lu(k,226) * lu(k,1459)
703 114070872 : lu(k,1487) = lu(k,1487) - lu(k,227) * lu(k,1459)
704 114070872 : lu(k,1500) = lu(k,1500) - lu(k,228) * lu(k,1459)
705 117656469 : lu(k,1501) = lu(k,1501) - lu(k,229) * lu(k,1459)
706 : end do
707 3585597 : end subroutine lu_fac05
708 3585597 : subroutine lu_fac06( avec_len, lu )
709 : use chem_mods, only : nzcnt
710 : use shr_kind_mod, only : r8 => shr_kind_r8
711 : implicit none
712 : !-----------------------------------------------------------------------
713 : ! ... dummy args
714 : !-----------------------------------------------------------------------
715 : integer, intent(in) :: avec_len
716 : real(r8), intent(inout) :: lu(veclen,nzcnt)
717 : !-----------------------------------------------------------------------
718 : ! ... local variables
719 : !-----------------------------------------------------------------------
720 : integer :: k
721 117656469 : do k = 1,avec_len
722 114070872 : lu(k,230) = 1._r8 / lu(k,230)
723 114070872 : lu(k,231) = lu(k,231) * lu(k,230)
724 114070872 : lu(k,232) = lu(k,232) * lu(k,230)
725 114070872 : lu(k,233) = lu(k,233) * lu(k,230)
726 114070872 : lu(k,234) = lu(k,234) * lu(k,230)
727 114070872 : lu(k,235) = lu(k,235) * lu(k,230)
728 114070872 : lu(k,236) = lu(k,236) * lu(k,230)
729 114070872 : lu(k,237) = lu(k,237) * lu(k,230)
730 114070872 : lu(k,238) = lu(k,238) * lu(k,230)
731 114070872 : lu(k,1050) = lu(k,1050) - lu(k,231) * lu(k,1043)
732 114070872 : lu(k,1052) = lu(k,1052) - lu(k,232) * lu(k,1043)
733 114070872 : lu(k,1053) = lu(k,1053) - lu(k,233) * lu(k,1043)
734 114070872 : lu(k,1058) = lu(k,1058) - lu(k,234) * lu(k,1043)
735 114070872 : lu(k,1060) = lu(k,1060) - lu(k,235) * lu(k,1043)
736 114070872 : lu(k,1065) = lu(k,1065) - lu(k,236) * lu(k,1043)
737 114070872 : lu(k,1066) = lu(k,1066) - lu(k,237) * lu(k,1043)
738 114070872 : lu(k,1070) = lu(k,1070) - lu(k,238) * lu(k,1043)
739 114070872 : lu(k,1355) = lu(k,1355) - lu(k,231) * lu(k,1351)
740 114070872 : lu(k,1364) = lu(k,1364) - lu(k,232) * lu(k,1351)
741 114070872 : lu(k,1365) = lu(k,1365) - lu(k,233) * lu(k,1351)
742 114070872 : lu(k,1381) = lu(k,1381) - lu(k,234) * lu(k,1351)
743 114070872 : lu(k,1383) = lu(k,1383) - lu(k,235) * lu(k,1351)
744 114070872 : lu(k,1388) = lu(k,1388) - lu(k,236) * lu(k,1351)
745 114070872 : lu(k,1389) = lu(k,1389) - lu(k,237) * lu(k,1351)
746 114070872 : lu(k,1393) = lu(k,1393) - lu(k,238) * lu(k,1351)
747 114070872 : lu(k,1411) = lu(k,1411) - lu(k,231) * lu(k,1408)
748 114070872 : lu(k,1415) = lu(k,1415) - lu(k,232) * lu(k,1408)
749 114070872 : lu(k,1416) = lu(k,1416) - lu(k,233) * lu(k,1408)
750 114070872 : lu(k,1430) = lu(k,1430) - lu(k,234) * lu(k,1408)
751 114070872 : lu(k,1432) = lu(k,1432) - lu(k,235) * lu(k,1408)
752 114070872 : lu(k,1437) = lu(k,1437) - lu(k,236) * lu(k,1408)
753 114070872 : lu(k,1438) = lu(k,1438) - lu(k,237) * lu(k,1408)
754 114070872 : lu(k,1442) = lu(k,1442) - lu(k,238) * lu(k,1408)
755 114070872 : lu(k,239) = 1._r8 / lu(k,239)
756 114070872 : lu(k,240) = lu(k,240) * lu(k,239)
757 114070872 : lu(k,241) = lu(k,241) * lu(k,239)
758 114070872 : lu(k,242) = lu(k,242) * lu(k,239)
759 114070872 : lu(k,243) = lu(k,243) * lu(k,239)
760 114070872 : lu(k,244) = lu(k,244) * lu(k,239)
761 114070872 : lu(k,245) = lu(k,245) * lu(k,239)
762 114070872 : lu(k,1271) = lu(k,1271) - lu(k,240) * lu(k,1262)
763 114070872 : lu(k,1273) = lu(k,1273) - lu(k,241) * lu(k,1262)
764 114070872 : lu(k,1284) = lu(k,1284) - lu(k,242) * lu(k,1262)
765 114070872 : lu(k,1286) = lu(k,1286) - lu(k,243) * lu(k,1262)
766 114070872 : lu(k,1287) = lu(k,1287) - lu(k,244) * lu(k,1262)
767 114070872 : lu(k,1290) = lu(k,1290) - lu(k,245) * lu(k,1262)
768 114070872 : lu(k,1369) = lu(k,1369) - lu(k,240) * lu(k,1352)
769 114070872 : lu(k,1375) = lu(k,1375) - lu(k,241) * lu(k,1352)
770 114070872 : lu(k,1386) = lu(k,1386) - lu(k,242) * lu(k,1352)
771 114070872 : lu(k,1388) = lu(k,1388) - lu(k,243) * lu(k,1352)
772 114070872 : lu(k,1389) = lu(k,1389) - lu(k,244) * lu(k,1352)
773 114070872 : lu(k,1392) = lu(k,1392) - lu(k,245) * lu(k,1352)
774 114070872 : lu(k,1420) = lu(k,1420) - lu(k,240) * lu(k,1409)
775 114070872 : lu(k,1424) = - lu(k,241) * lu(k,1409)
776 114070872 : lu(k,1435) = lu(k,1435) - lu(k,242) * lu(k,1409)
777 114070872 : lu(k,1437) = lu(k,1437) - lu(k,243) * lu(k,1409)
778 114070872 : lu(k,1438) = lu(k,1438) - lu(k,244) * lu(k,1409)
779 114070872 : lu(k,1441) = lu(k,1441) - lu(k,245) * lu(k,1409)
780 114070872 : lu(k,1547) = lu(k,1547) - lu(k,240) * lu(k,1543)
781 114070872 : lu(k,1549) = lu(k,1549) - lu(k,241) * lu(k,1543)
782 114070872 : lu(k,1560) = lu(k,1560) - lu(k,242) * lu(k,1543)
783 114070872 : lu(k,1562) = lu(k,1562) - lu(k,243) * lu(k,1543)
784 114070872 : lu(k,1563) = lu(k,1563) - lu(k,244) * lu(k,1543)
785 114070872 : lu(k,1566) = lu(k,1566) - lu(k,245) * lu(k,1543)
786 114070872 : lu(k,246) = 1._r8 / lu(k,246)
787 114070872 : lu(k,247) = lu(k,247) * lu(k,246)
788 114070872 : lu(k,248) = lu(k,248) * lu(k,246)
789 114070872 : lu(k,249) = lu(k,249) * lu(k,246)
790 114070872 : lu(k,250) = lu(k,250) * lu(k,246)
791 114070872 : lu(k,251) = lu(k,251) * lu(k,246)
792 114070872 : lu(k,284) = lu(k,284) - lu(k,247) * lu(k,283)
793 114070872 : lu(k,285) = lu(k,285) - lu(k,248) * lu(k,283)
794 114070872 : lu(k,286) = - lu(k,249) * lu(k,283)
795 114070872 : lu(k,287) = lu(k,287) - lu(k,250) * lu(k,283)
796 114070872 : lu(k,288) = lu(k,288) - lu(k,251) * lu(k,283)
797 114070872 : lu(k,291) = lu(k,291) - lu(k,247) * lu(k,290)
798 114070872 : lu(k,294) = lu(k,294) - lu(k,248) * lu(k,290)
799 114070872 : lu(k,295) = - lu(k,249) * lu(k,290)
800 114070872 : lu(k,298) = lu(k,298) - lu(k,250) * lu(k,290)
801 114070872 : lu(k,299) = lu(k,299) - lu(k,251) * lu(k,290)
802 114070872 : lu(k,1048) = lu(k,1048) - lu(k,247) * lu(k,1044)
803 114070872 : lu(k,1058) = lu(k,1058) - lu(k,248) * lu(k,1044)
804 114070872 : lu(k,1062) = lu(k,1062) - lu(k,249) * lu(k,1044)
805 114070872 : lu(k,1074) = lu(k,1074) - lu(k,250) * lu(k,1044)
806 114070872 : lu(k,1081) = lu(k,1081) - lu(k,251) * lu(k,1044)
807 114070872 : lu(k,1219) = - lu(k,247) * lu(k,1218)
808 114070872 : lu(k,1237) = lu(k,1237) - lu(k,248) * lu(k,1218)
809 114070872 : lu(k,1241) = lu(k,1241) - lu(k,249) * lu(k,1218)
810 114070872 : lu(k,1253) = lu(k,1253) - lu(k,250) * lu(k,1218)
811 114070872 : lu(k,1260) = lu(k,1260) - lu(k,251) * lu(k,1218)
812 114070872 : lu(k,2042) = lu(k,2042) - lu(k,247) * lu(k,2038)
813 114070872 : lu(k,2067) = lu(k,2067) - lu(k,248) * lu(k,2038)
814 114070872 : lu(k,2071) = lu(k,2071) - lu(k,249) * lu(k,2038)
815 114070872 : lu(k,2083) = lu(k,2083) - lu(k,250) * lu(k,2038)
816 114070872 : lu(k,2090) = lu(k,2090) - lu(k,251) * lu(k,2038)
817 114070872 : lu(k,252) = 1._r8 / lu(k,252)
818 114070872 : lu(k,253) = lu(k,253) * lu(k,252)
819 114070872 : lu(k,254) = lu(k,254) * lu(k,252)
820 114070872 : lu(k,255) = lu(k,255) * lu(k,252)
821 114070872 : lu(k,391) = - lu(k,253) * lu(k,385)
822 114070872 : lu(k,392) = - lu(k,254) * lu(k,385)
823 114070872 : lu(k,394) = lu(k,394) - lu(k,255) * lu(k,385)
824 114070872 : lu(k,421) = lu(k,421) - lu(k,253) * lu(k,414)
825 114070872 : lu(k,422) = lu(k,422) - lu(k,254) * lu(k,414)
826 114070872 : lu(k,423) = lu(k,423) - lu(k,255) * lu(k,414)
827 114070872 : lu(k,586) = lu(k,586) - lu(k,253) * lu(k,580)
828 114070872 : lu(k,587) = - lu(k,254) * lu(k,580)
829 114070872 : lu(k,588) = - lu(k,255) * lu(k,580)
830 114070872 : lu(k,740) = lu(k,740) - lu(k,253) * lu(k,733)
831 114070872 : lu(k,741) = lu(k,741) - lu(k,254) * lu(k,733)
832 114070872 : lu(k,744) = - lu(k,255) * lu(k,733)
833 114070872 : lu(k,983) = lu(k,983) - lu(k,253) * lu(k,965)
834 114070872 : lu(k,984) = lu(k,984) - lu(k,254) * lu(k,965)
835 114070872 : lu(k,989) = lu(k,989) - lu(k,255) * lu(k,965)
836 114070872 : lu(k,1275) = - lu(k,253) * lu(k,1263)
837 114070872 : lu(k,1277) = - lu(k,254) * lu(k,1263)
838 114070872 : lu(k,1284) = lu(k,1284) - lu(k,255) * lu(k,1263)
839 114070872 : lu(k,1377) = lu(k,1377) - lu(k,253) * lu(k,1353)
840 114070872 : lu(k,1379) = lu(k,1379) - lu(k,254) * lu(k,1353)
841 114070872 : lu(k,1386) = lu(k,1386) - lu(k,255) * lu(k,1353)
842 114070872 : lu(k,1474) = lu(k,1474) - lu(k,253) * lu(k,1460)
843 114070872 : lu(k,1476) = lu(k,1476) - lu(k,254) * lu(k,1460)
844 114070872 : lu(k,1483) = lu(k,1483) - lu(k,255) * lu(k,1460)
845 114070872 : lu(k,1723) = lu(k,1723) - lu(k,253) * lu(k,1711)
846 114070872 : lu(k,1725) = lu(k,1725) - lu(k,254) * lu(k,1711)
847 114070872 : lu(k,1731) = - lu(k,255) * lu(k,1711)
848 114070872 : lu(k,256) = 1._r8 / lu(k,256)
849 114070872 : lu(k,257) = lu(k,257) * lu(k,256)
850 114070872 : lu(k,258) = lu(k,258) * lu(k,256)
851 114070872 : lu(k,259) = lu(k,259) * lu(k,256)
852 114070872 : lu(k,260) = lu(k,260) * lu(k,256)
853 114070872 : lu(k,261) = lu(k,261) * lu(k,256)
854 114070872 : lu(k,262) = lu(k,262) * lu(k,256)
855 114070872 : lu(k,263) = lu(k,263) * lu(k,256)
856 114070872 : lu(k,1046) = lu(k,1046) - lu(k,257) * lu(k,1045)
857 114070872 : lu(k,1058) = lu(k,1058) - lu(k,258) * lu(k,1045)
858 114070872 : lu(k,1060) = lu(k,1060) - lu(k,259) * lu(k,1045)
859 114070872 : lu(k,1063) = lu(k,1063) - lu(k,260) * lu(k,1045)
860 114070872 : lu(k,1064) = lu(k,1064) - lu(k,261) * lu(k,1045)
861 114070872 : lu(k,1079) = lu(k,1079) - lu(k,262) * lu(k,1045)
862 114070872 : lu(k,1081) = lu(k,1081) - lu(k,263) * lu(k,1045)
863 114070872 : lu(k,1128) = lu(k,1128) - lu(k,257) * lu(k,1127)
864 114070872 : lu(k,1151) = lu(k,1151) - lu(k,258) * lu(k,1127)
865 114070872 : lu(k,1153) = lu(k,1153) - lu(k,259) * lu(k,1127)
866 114070872 : lu(k,1156) = lu(k,1156) - lu(k,260) * lu(k,1127)
867 114070872 : lu(k,1157) = lu(k,1157) - lu(k,261) * lu(k,1127)
868 114070872 : lu(k,1172) = lu(k,1172) - lu(k,262) * lu(k,1127)
869 114070872 : lu(k,1174) = lu(k,1174) - lu(k,263) * lu(k,1127)
870 114070872 : lu(k,1265) = lu(k,1265) - lu(k,257) * lu(k,1264)
871 114070872 : lu(k,1279) = - lu(k,258) * lu(k,1264)
872 114070872 : lu(k,1281) = lu(k,1281) - lu(k,259) * lu(k,1264)
873 114070872 : lu(k,1284) = lu(k,1284) - lu(k,260) * lu(k,1264)
874 114070872 : lu(k,1285) = - lu(k,261) * lu(k,1264)
875 114070872 : lu(k,1300) = - lu(k,262) * lu(k,1264)
876 114070872 : lu(k,1302) = - lu(k,263) * lu(k,1264)
877 114070872 : lu(k,2040) = lu(k,2040) - lu(k,257) * lu(k,2039)
878 114070872 : lu(k,2067) = lu(k,2067) - lu(k,258) * lu(k,2039)
879 114070872 : lu(k,2069) = lu(k,2069) - lu(k,259) * lu(k,2039)
880 114070872 : lu(k,2072) = lu(k,2072) - lu(k,260) * lu(k,2039)
881 114070872 : lu(k,2073) = lu(k,2073) - lu(k,261) * lu(k,2039)
882 114070872 : lu(k,2088) = lu(k,2088) - lu(k,262) * lu(k,2039)
883 114070872 : lu(k,2090) = lu(k,2090) - lu(k,263) * lu(k,2039)
884 114070872 : lu(k,264) = 1._r8 / lu(k,264)
885 114070872 : lu(k,265) = lu(k,265) * lu(k,264)
886 114070872 : lu(k,266) = lu(k,266) * lu(k,264)
887 114070872 : lu(k,267) = lu(k,267) * lu(k,264)
888 114070872 : lu(k,268) = lu(k,268) * lu(k,264)
889 114070872 : lu(k,269) = lu(k,269) * lu(k,264)
890 114070872 : lu(k,270) = lu(k,270) * lu(k,264)
891 114070872 : lu(k,1058) = lu(k,1058) - lu(k,265) * lu(k,1046)
892 114070872 : lu(k,1060) = lu(k,1060) - lu(k,266) * lu(k,1046)
893 114070872 : lu(k,1063) = lu(k,1063) - lu(k,267) * lu(k,1046)
894 114070872 : lu(k,1064) = lu(k,1064) - lu(k,268) * lu(k,1046)
895 114070872 : lu(k,1079) = lu(k,1079) - lu(k,269) * lu(k,1046)
896 114070872 : lu(k,1081) = lu(k,1081) - lu(k,270) * lu(k,1046)
897 114070872 : lu(k,1151) = lu(k,1151) - lu(k,265) * lu(k,1128)
898 114070872 : lu(k,1153) = lu(k,1153) - lu(k,266) * lu(k,1128)
899 114070872 : lu(k,1156) = lu(k,1156) - lu(k,267) * lu(k,1128)
900 114070872 : lu(k,1157) = lu(k,1157) - lu(k,268) * lu(k,1128)
901 114070872 : lu(k,1172) = lu(k,1172) - lu(k,269) * lu(k,1128)
902 114070872 : lu(k,1174) = lu(k,1174) - lu(k,270) * lu(k,1128)
903 114070872 : lu(k,1279) = lu(k,1279) - lu(k,265) * lu(k,1265)
904 114070872 : lu(k,1281) = lu(k,1281) - lu(k,266) * lu(k,1265)
905 114070872 : lu(k,1284) = lu(k,1284) - lu(k,267) * lu(k,1265)
906 114070872 : lu(k,1285) = lu(k,1285) - lu(k,268) * lu(k,1265)
907 114070872 : lu(k,1300) = lu(k,1300) - lu(k,269) * lu(k,1265)
908 114070872 : lu(k,1302) = lu(k,1302) - lu(k,270) * lu(k,1265)
909 114070872 : lu(k,2067) = lu(k,2067) - lu(k,265) * lu(k,2040)
910 114070872 : lu(k,2069) = lu(k,2069) - lu(k,266) * lu(k,2040)
911 114070872 : lu(k,2072) = lu(k,2072) - lu(k,267) * lu(k,2040)
912 114070872 : lu(k,2073) = lu(k,2073) - lu(k,268) * lu(k,2040)
913 114070872 : lu(k,2088) = lu(k,2088) - lu(k,269) * lu(k,2040)
914 117656469 : lu(k,2090) = lu(k,2090) - lu(k,270) * lu(k,2040)
915 : end do
916 3585597 : end subroutine lu_fac06
917 3585597 : subroutine lu_fac07( avec_len, lu )
918 : use chem_mods, only : nzcnt
919 : use shr_kind_mod, only : r8 => shr_kind_r8
920 : implicit none
921 : !-----------------------------------------------------------------------
922 : ! ... dummy args
923 : !-----------------------------------------------------------------------
924 : integer, intent(in) :: avec_len
925 : real(r8), intent(inout) :: lu(veclen,nzcnt)
926 : !-----------------------------------------------------------------------
927 : ! ... local variables
928 : !-----------------------------------------------------------------------
929 : integer :: k
930 117656469 : do k = 1,avec_len
931 114070872 : lu(k,271) = 1._r8 / lu(k,271)
932 114070872 : lu(k,272) = lu(k,272) * lu(k,271)
933 114070872 : lu(k,273) = lu(k,273) * lu(k,271)
934 114070872 : lu(k,274) = lu(k,274) * lu(k,271)
935 114070872 : lu(k,275) = lu(k,275) * lu(k,271)
936 114070872 : lu(k,276) = lu(k,276) * lu(k,271)
937 114070872 : lu(k,277) = lu(k,277) * lu(k,271)
938 114070872 : lu(k,476) = lu(k,476) - lu(k,272) * lu(k,474)
939 114070872 : lu(k,480) = lu(k,480) - lu(k,273) * lu(k,474)
940 114070872 : lu(k,482) = lu(k,482) - lu(k,274) * lu(k,474)
941 114070872 : lu(k,483) = lu(k,483) - lu(k,275) * lu(k,474)
942 114070872 : lu(k,485) = lu(k,485) - lu(k,276) * lu(k,474)
943 114070872 : lu(k,487) = lu(k,487) - lu(k,277) * lu(k,474)
944 114070872 : lu(k,977) = lu(k,977) - lu(k,272) * lu(k,966)
945 114070872 : lu(k,984) = lu(k,984) - lu(k,273) * lu(k,966)
946 114070872 : lu(k,991) = lu(k,991) - lu(k,274) * lu(k,966)
947 114070872 : lu(k,992) = lu(k,992) - lu(k,275) * lu(k,966)
948 114070872 : lu(k,998) = lu(k,998) - lu(k,276) * lu(k,966)
949 114070872 : lu(k,1002) = lu(k,1002) - lu(k,277) * lu(k,966)
950 114070872 : lu(k,1367) = lu(k,1367) - lu(k,272) * lu(k,1354)
951 114070872 : lu(k,1379) = lu(k,1379) - lu(k,273) * lu(k,1354)
952 114070872 : lu(k,1388) = lu(k,1388) - lu(k,274) * lu(k,1354)
953 114070872 : lu(k,1389) = lu(k,1389) - lu(k,275) * lu(k,1354)
954 114070872 : lu(k,1397) = lu(k,1397) - lu(k,276) * lu(k,1354)
955 114070872 : lu(k,1401) = lu(k,1401) - lu(k,277) * lu(k,1354)
956 114070872 : lu(k,1418) = lu(k,1418) - lu(k,272) * lu(k,1410)
957 114070872 : lu(k,1428) = - lu(k,273) * lu(k,1410)
958 114070872 : lu(k,1437) = lu(k,1437) - lu(k,274) * lu(k,1410)
959 114070872 : lu(k,1438) = lu(k,1438) - lu(k,275) * lu(k,1410)
960 114070872 : lu(k,1446) = lu(k,1446) - lu(k,276) * lu(k,1410)
961 114070872 : lu(k,1450) = lu(k,1450) - lu(k,277) * lu(k,1410)
962 114070872 : lu(k,1908) = lu(k,1908) - lu(k,272) * lu(k,1904)
963 114070872 : lu(k,1918) = lu(k,1918) - lu(k,273) * lu(k,1904)
964 114070872 : lu(k,1927) = lu(k,1927) - lu(k,274) * lu(k,1904)
965 114070872 : lu(k,1928) = lu(k,1928) - lu(k,275) * lu(k,1904)
966 114070872 : lu(k,1936) = lu(k,1936) - lu(k,276) * lu(k,1904)
967 114070872 : lu(k,1940) = lu(k,1940) - lu(k,277) * lu(k,1904)
968 114070872 : lu(k,278) = 1._r8 / lu(k,278)
969 114070872 : lu(k,279) = lu(k,279) * lu(k,278)
970 114070872 : lu(k,280) = lu(k,280) * lu(k,278)
971 114070872 : lu(k,281) = lu(k,281) * lu(k,278)
972 114070872 : lu(k,282) = lu(k,282) * lu(k,278)
973 114070872 : lu(k,927) = - lu(k,279) * lu(k,922)
974 114070872 : lu(k,943) = lu(k,943) - lu(k,280) * lu(k,922)
975 114070872 : lu(k,946) = lu(k,946) - lu(k,281) * lu(k,922)
976 114070872 : lu(k,948) = lu(k,948) - lu(k,282) * lu(k,922)
977 114070872 : lu(k,984) = lu(k,984) - lu(k,279) * lu(k,967)
978 114070872 : lu(k,999) = lu(k,999) - lu(k,280) * lu(k,967)
979 114070872 : lu(k,1003) = lu(k,1003) - lu(k,281) * lu(k,967)
980 114070872 : lu(k,1005) = lu(k,1005) - lu(k,282) * lu(k,967)
981 114070872 : lu(k,1057) = lu(k,1057) - lu(k,279) * lu(k,1047)
982 114070872 : lu(k,1075) = - lu(k,280) * lu(k,1047)
983 114070872 : lu(k,1079) = lu(k,1079) - lu(k,281) * lu(k,1047)
984 114070872 : lu(k,1081) = lu(k,1081) - lu(k,282) * lu(k,1047)
985 114070872 : lu(k,1192) = lu(k,1192) - lu(k,279) * lu(k,1176)
986 114070872 : lu(k,1211) = lu(k,1211) - lu(k,280) * lu(k,1176)
987 114070872 : lu(k,1215) = lu(k,1215) - lu(k,281) * lu(k,1176)
988 114070872 : lu(k,1217) = lu(k,1217) - lu(k,282) * lu(k,1176)
989 114070872 : lu(k,1517) = lu(k,1517) - lu(k,279) * lu(k,1503)
990 114070872 : lu(k,1536) = lu(k,1536) - lu(k,280) * lu(k,1503)
991 114070872 : lu(k,1540) = - lu(k,281) * lu(k,1503)
992 114070872 : lu(k,1542) = lu(k,1542) - lu(k,282) * lu(k,1503)
993 114070872 : lu(k,1960) = lu(k,1960) - lu(k,279) * lu(k,1944)
994 114070872 : lu(k,1979) = lu(k,1979) - lu(k,280) * lu(k,1944)
995 114070872 : lu(k,1983) = lu(k,1983) - lu(k,281) * lu(k,1944)
996 114070872 : lu(k,1985) = lu(k,1985) - lu(k,282) * lu(k,1944)
997 114070872 : lu(k,2005) = lu(k,2005) - lu(k,279) * lu(k,1988)
998 114070872 : lu(k,2024) = - lu(k,280) * lu(k,1988)
999 114070872 : lu(k,2028) = - lu(k,281) * lu(k,1988)
1000 114070872 : lu(k,2030) = lu(k,2030) - lu(k,282) * lu(k,1988)
1001 114070872 : lu(k,2065) = lu(k,2065) - lu(k,279) * lu(k,2041)
1002 114070872 : lu(k,2084) = - lu(k,280) * lu(k,2041)
1003 114070872 : lu(k,2088) = lu(k,2088) - lu(k,281) * lu(k,2041)
1004 114070872 : lu(k,2090) = lu(k,2090) - lu(k,282) * lu(k,2041)
1005 114070872 : lu(k,284) = 1._r8 / lu(k,284)
1006 114070872 : lu(k,285) = lu(k,285) * lu(k,284)
1007 114070872 : lu(k,286) = lu(k,286) * lu(k,284)
1008 114070872 : lu(k,287) = lu(k,287) * lu(k,284)
1009 114070872 : lu(k,288) = lu(k,288) * lu(k,284)
1010 114070872 : lu(k,294) = lu(k,294) - lu(k,285) * lu(k,291)
1011 114070872 : lu(k,295) = lu(k,295) - lu(k,286) * lu(k,291)
1012 114070872 : lu(k,298) = lu(k,298) - lu(k,287) * lu(k,291)
1013 114070872 : lu(k,299) = lu(k,299) - lu(k,288) * lu(k,291)
1014 114070872 : lu(k,902) = - lu(k,285) * lu(k,890)
1015 114070872 : lu(k,904) = - lu(k,286) * lu(k,890)
1016 114070872 : lu(k,914) = lu(k,914) - lu(k,287) * lu(k,890)
1017 114070872 : lu(k,921) = lu(k,921) - lu(k,288) * lu(k,890)
1018 114070872 : lu(k,985) = - lu(k,285) * lu(k,968)
1019 114070872 : lu(k,988) = - lu(k,286) * lu(k,968)
1020 114070872 : lu(k,998) = lu(k,998) - lu(k,287) * lu(k,968)
1021 114070872 : lu(k,1005) = lu(k,1005) - lu(k,288) * lu(k,968)
1022 114070872 : lu(k,1058) = lu(k,1058) - lu(k,285) * lu(k,1048)
1023 114070872 : lu(k,1062) = lu(k,1062) - lu(k,286) * lu(k,1048)
1024 114070872 : lu(k,1074) = lu(k,1074) - lu(k,287) * lu(k,1048)
1025 114070872 : lu(k,1081) = lu(k,1081) - lu(k,288) * lu(k,1048)
1026 114070872 : lu(k,1237) = lu(k,1237) - lu(k,285) * lu(k,1219)
1027 114070872 : lu(k,1241) = lu(k,1241) - lu(k,286) * lu(k,1219)
1028 114070872 : lu(k,1253) = lu(k,1253) - lu(k,287) * lu(k,1219)
1029 114070872 : lu(k,1260) = lu(k,1260) - lu(k,288) * lu(k,1219)
1030 114070872 : lu(k,1321) = lu(k,1321) - lu(k,285) * lu(k,1303)
1031 114070872 : lu(k,1325) = - lu(k,286) * lu(k,1303)
1032 114070872 : lu(k,1337) = lu(k,1337) - lu(k,287) * lu(k,1303)
1033 114070872 : lu(k,1344) = lu(k,1344) - lu(k,288) * lu(k,1303)
1034 114070872 : lu(k,1762) = lu(k,1762) - lu(k,285) * lu(k,1750)
1035 114070872 : lu(k,1766) = - lu(k,286) * lu(k,1750)
1036 114070872 : lu(k,1778) = lu(k,1778) - lu(k,287) * lu(k,1750)
1037 114070872 : lu(k,1785) = lu(k,1785) - lu(k,288) * lu(k,1750)
1038 114070872 : lu(k,2067) = lu(k,2067) - lu(k,285) * lu(k,2042)
1039 114070872 : lu(k,2071) = lu(k,2071) - lu(k,286) * lu(k,2042)
1040 114070872 : lu(k,2083) = lu(k,2083) - lu(k,287) * lu(k,2042)
1041 114070872 : lu(k,2090) = lu(k,2090) - lu(k,288) * lu(k,2042)
1042 114070872 : lu(k,292) = 1._r8 / lu(k,292)
1043 114070872 : lu(k,293) = lu(k,293) * lu(k,292)
1044 114070872 : lu(k,294) = lu(k,294) * lu(k,292)
1045 114070872 : lu(k,295) = lu(k,295) * lu(k,292)
1046 114070872 : lu(k,296) = lu(k,296) * lu(k,292)
1047 114070872 : lu(k,297) = lu(k,297) * lu(k,292)
1048 114070872 : lu(k,298) = lu(k,298) * lu(k,292)
1049 114070872 : lu(k,299) = lu(k,299) * lu(k,292)
1050 114070872 : lu(k,462) = - lu(k,293) * lu(k,459)
1051 114070872 : lu(k,463) = lu(k,463) - lu(k,294) * lu(k,459)
1052 114070872 : lu(k,464) = - lu(k,295) * lu(k,459)
1053 114070872 : lu(k,466) = lu(k,466) - lu(k,296) * lu(k,459)
1054 114070872 : lu(k,468) = lu(k,468) - lu(k,297) * lu(k,459)
1055 114070872 : lu(k,469) = - lu(k,298) * lu(k,459)
1056 114070872 : lu(k,472) = lu(k,472) - lu(k,299) * lu(k,459)
1057 114070872 : lu(k,1057) = lu(k,1057) - lu(k,293) * lu(k,1049)
1058 114070872 : lu(k,1058) = lu(k,1058) - lu(k,294) * lu(k,1049)
1059 114070872 : lu(k,1062) = lu(k,1062) - lu(k,295) * lu(k,1049)
1060 114070872 : lu(k,1066) = lu(k,1066) - lu(k,296) * lu(k,1049)
1061 114070872 : lu(k,1070) = lu(k,1070) - lu(k,297) * lu(k,1049)
1062 114070872 : lu(k,1074) = lu(k,1074) - lu(k,298) * lu(k,1049)
1063 114070872 : lu(k,1081) = lu(k,1081) - lu(k,299) * lu(k,1049)
1064 114070872 : lu(k,1598) = lu(k,1598) - lu(k,293) * lu(k,1579)
1065 114070872 : lu(k,1600) = lu(k,1600) - lu(k,294) * lu(k,1579)
1066 114070872 : lu(k,1604) = - lu(k,295) * lu(k,1579)
1067 114070872 : lu(k,1608) = lu(k,1608) - lu(k,296) * lu(k,1579)
1068 114070872 : lu(k,1612) = lu(k,1612) - lu(k,297) * lu(k,1579)
1069 114070872 : lu(k,1616) = - lu(k,298) * lu(k,1579)
1070 114070872 : lu(k,1623) = lu(k,1623) - lu(k,299) * lu(k,1579)
1071 114070872 : lu(k,2065) = lu(k,2065) - lu(k,293) * lu(k,2043)
1072 114070872 : lu(k,2067) = lu(k,2067) - lu(k,294) * lu(k,2043)
1073 114070872 : lu(k,2071) = lu(k,2071) - lu(k,295) * lu(k,2043)
1074 114070872 : lu(k,2075) = lu(k,2075) - lu(k,296) * lu(k,2043)
1075 114070872 : lu(k,2079) = lu(k,2079) - lu(k,297) * lu(k,2043)
1076 114070872 : lu(k,2083) = lu(k,2083) - lu(k,298) * lu(k,2043)
1077 114070872 : lu(k,2090) = lu(k,2090) - lu(k,299) * lu(k,2043)
1078 114070872 : lu(k,300) = 1._r8 / lu(k,300)
1079 114070872 : lu(k,301) = lu(k,301) * lu(k,300)
1080 114070872 : lu(k,302) = lu(k,302) * lu(k,300)
1081 114070872 : lu(k,303) = lu(k,303) * lu(k,300)
1082 114070872 : lu(k,304) = lu(k,304) * lu(k,300)
1083 114070872 : lu(k,305) = lu(k,305) * lu(k,300)
1084 114070872 : lu(k,306) = lu(k,306) * lu(k,300)
1085 114070872 : lu(k,307) = lu(k,307) * lu(k,300)
1086 114070872 : lu(k,387) = lu(k,387) - lu(k,301) * lu(k,386)
1087 114070872 : lu(k,388) = lu(k,388) - lu(k,302) * lu(k,386)
1088 114070872 : lu(k,389) = lu(k,389) - lu(k,303) * lu(k,386)
1089 114070872 : lu(k,390) = - lu(k,304) * lu(k,386)
1090 114070872 : lu(k,395) = lu(k,395) - lu(k,305) * lu(k,386)
1091 114070872 : lu(k,396) = lu(k,396) - lu(k,306) * lu(k,386)
1092 114070872 : lu(k,398) = - lu(k,307) * lu(k,386)
1093 114070872 : lu(k,1051) = lu(k,1051) - lu(k,301) * lu(k,1050)
1094 114070872 : lu(k,1052) = lu(k,1052) - lu(k,302) * lu(k,1050)
1095 114070872 : lu(k,1053) = lu(k,1053) - lu(k,303) * lu(k,1050)
1096 114070872 : lu(k,1055) = lu(k,1055) - lu(k,304) * lu(k,1050)
1097 114070872 : lu(k,1065) = lu(k,1065) - lu(k,305) * lu(k,1050)
1098 114070872 : lu(k,1066) = lu(k,1066) - lu(k,306) * lu(k,1050)
1099 114070872 : lu(k,1079) = lu(k,1079) - lu(k,307) * lu(k,1050)
1100 114070872 : lu(k,1130) = - lu(k,301) * lu(k,1129)
1101 114070872 : lu(k,1131) = - lu(k,302) * lu(k,1129)
1102 114070872 : lu(k,1132) = lu(k,1132) - lu(k,303) * lu(k,1129)
1103 114070872 : lu(k,1143) = - lu(k,304) * lu(k,1129)
1104 114070872 : lu(k,1158) = lu(k,1158) - lu(k,305) * lu(k,1129)
1105 114070872 : lu(k,1159) = lu(k,1159) - lu(k,306) * lu(k,1129)
1106 114070872 : lu(k,1172) = lu(k,1172) - lu(k,307) * lu(k,1129)
1107 114070872 : lu(k,1357) = lu(k,1357) - lu(k,301) * lu(k,1355)
1108 114070872 : lu(k,1364) = lu(k,1364) - lu(k,302) * lu(k,1355)
1109 114070872 : lu(k,1365) = lu(k,1365) - lu(k,303) * lu(k,1355)
1110 114070872 : lu(k,1373) = - lu(k,304) * lu(k,1355)
1111 114070872 : lu(k,1388) = lu(k,1388) - lu(k,305) * lu(k,1355)
1112 114070872 : lu(k,1389) = lu(k,1389) - lu(k,306) * lu(k,1355)
1113 114070872 : lu(k,1402) = lu(k,1402) - lu(k,307) * lu(k,1355)
1114 114070872 : lu(k,1412) = lu(k,1412) - lu(k,301) * lu(k,1411)
1115 114070872 : lu(k,1415) = lu(k,1415) - lu(k,302) * lu(k,1411)
1116 114070872 : lu(k,1416) = lu(k,1416) - lu(k,303) * lu(k,1411)
1117 114070872 : lu(k,1423) = lu(k,1423) - lu(k,304) * lu(k,1411)
1118 114070872 : lu(k,1437) = lu(k,1437) - lu(k,305) * lu(k,1411)
1119 114070872 : lu(k,1438) = lu(k,1438) - lu(k,306) * lu(k,1411)
1120 117656469 : lu(k,1451) = lu(k,1451) - lu(k,307) * lu(k,1411)
1121 : end do
1122 3585597 : end subroutine lu_fac07
1123 3585597 : subroutine lu_fac08( avec_len, lu )
1124 : use chem_mods, only : nzcnt
1125 : use shr_kind_mod, only : r8 => shr_kind_r8
1126 : implicit none
1127 : !-----------------------------------------------------------------------
1128 : ! ... dummy args
1129 : !-----------------------------------------------------------------------
1130 : integer, intent(in) :: avec_len
1131 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1132 : !-----------------------------------------------------------------------
1133 : ! ... local variables
1134 : !-----------------------------------------------------------------------
1135 : integer :: k
1136 117656469 : do k = 1,avec_len
1137 114070872 : lu(k,309) = 1._r8 / lu(k,309)
1138 114070872 : lu(k,310) = lu(k,310) * lu(k,309)
1139 114070872 : lu(k,311) = lu(k,311) * lu(k,309)
1140 114070872 : lu(k,312) = lu(k,312) * lu(k,309)
1141 114070872 : lu(k,313) = lu(k,313) * lu(k,309)
1142 114070872 : lu(k,314) = lu(k,314) * lu(k,309)
1143 114070872 : lu(k,315) = lu(k,315) * lu(k,309)
1144 114070872 : lu(k,316) = lu(k,316) * lu(k,309)
1145 114070872 : lu(k,714) = lu(k,714) - lu(k,310) * lu(k,711)
1146 114070872 : lu(k,715) = lu(k,715) - lu(k,311) * lu(k,711)
1147 114070872 : lu(k,719) = lu(k,719) - lu(k,312) * lu(k,711)
1148 114070872 : lu(k,722) = lu(k,722) - lu(k,313) * lu(k,711)
1149 114070872 : lu(k,724) = lu(k,724) - lu(k,314) * lu(k,711)
1150 114070872 : lu(k,731) = - lu(k,315) * lu(k,711)
1151 114070872 : lu(k,732) = - lu(k,316) * lu(k,711)
1152 114070872 : lu(k,895) = lu(k,895) - lu(k,310) * lu(k,891)
1153 114070872 : lu(k,897) = lu(k,897) - lu(k,311) * lu(k,891)
1154 114070872 : lu(k,901) = lu(k,901) - lu(k,312) * lu(k,891)
1155 114070872 : lu(k,907) = lu(k,907) - lu(k,313) * lu(k,891)
1156 114070872 : lu(k,909) = lu(k,909) - lu(k,314) * lu(k,891)
1157 114070872 : lu(k,920) = lu(k,920) - lu(k,315) * lu(k,891)
1158 114070872 : lu(k,921) = lu(k,921) - lu(k,316) * lu(k,891)
1159 114070872 : lu(k,1368) = lu(k,1368) - lu(k,310) * lu(k,1356)
1160 114070872 : lu(k,1371) = lu(k,1371) - lu(k,311) * lu(k,1356)
1161 114070872 : lu(k,1379) = lu(k,1379) - lu(k,312) * lu(k,1356)
1162 114070872 : lu(k,1388) = lu(k,1388) - lu(k,313) * lu(k,1356)
1163 114070872 : lu(k,1390) = lu(k,1390) - lu(k,314) * lu(k,1356)
1164 114070872 : lu(k,1403) = lu(k,1403) - lu(k,315) * lu(k,1356)
1165 114070872 : lu(k,1404) = lu(k,1404) - lu(k,316) * lu(k,1356)
1166 114070872 : lu(k,1795) = lu(k,1795) - lu(k,310) * lu(k,1789)
1167 114070872 : lu(k,1801) = lu(k,1801) - lu(k,311) * lu(k,1789)
1168 114070872 : lu(k,1808) = lu(k,1808) - lu(k,312) * lu(k,1789)
1169 114070872 : lu(k,1817) = lu(k,1817) - lu(k,313) * lu(k,1789)
1170 114070872 : lu(k,1819) = lu(k,1819) - lu(k,314) * lu(k,1789)
1171 114070872 : lu(k,1832) = - lu(k,315) * lu(k,1789)
1172 114070872 : lu(k,1833) = lu(k,1833) - lu(k,316) * lu(k,1789)
1173 114070872 : lu(k,1995) = lu(k,1995) - lu(k,310) * lu(k,1989)
1174 114070872 : lu(k,1997) = - lu(k,311) * lu(k,1989)
1175 114070872 : lu(k,2005) = lu(k,2005) - lu(k,312) * lu(k,1989)
1176 114070872 : lu(k,2014) = lu(k,2014) - lu(k,313) * lu(k,1989)
1177 114070872 : lu(k,2016) = lu(k,2016) - lu(k,314) * lu(k,1989)
1178 114070872 : lu(k,2029) = lu(k,2029) - lu(k,315) * lu(k,1989)
1179 114070872 : lu(k,2030) = lu(k,2030) - lu(k,316) * lu(k,1989)
1180 114070872 : lu(k,317) = 1._r8 / lu(k,317)
1181 114070872 : lu(k,318) = lu(k,318) * lu(k,317)
1182 114070872 : lu(k,319) = lu(k,319) * lu(k,317)
1183 114070872 : lu(k,320) = lu(k,320) * lu(k,317)
1184 114070872 : lu(k,321) = lu(k,321) * lu(k,317)
1185 114070872 : lu(k,322) = lu(k,322) * lu(k,317)
1186 114070872 : lu(k,323) = lu(k,323) * lu(k,317)
1187 114070872 : lu(k,388) = lu(k,388) - lu(k,318) * lu(k,387)
1188 114070872 : lu(k,389) = lu(k,389) - lu(k,319) * lu(k,387)
1189 114070872 : lu(k,393) = lu(k,393) - lu(k,320) * lu(k,387)
1190 114070872 : lu(k,395) = lu(k,395) - lu(k,321) * lu(k,387)
1191 114070872 : lu(k,396) = lu(k,396) - lu(k,322) * lu(k,387)
1192 114070872 : lu(k,397) = lu(k,397) - lu(k,323) * lu(k,387)
1193 114070872 : lu(k,445) = - lu(k,318) * lu(k,444)
1194 114070872 : lu(k,446) = lu(k,446) - lu(k,319) * lu(k,444)
1195 114070872 : lu(k,451) = lu(k,451) - lu(k,320) * lu(k,444)
1196 114070872 : lu(k,453) = lu(k,453) - lu(k,321) * lu(k,444)
1197 114070872 : lu(k,454) = lu(k,454) - lu(k,322) * lu(k,444)
1198 114070872 : lu(k,455) = lu(k,455) - lu(k,323) * lu(k,444)
1199 114070872 : lu(k,1052) = lu(k,1052) - lu(k,318) * lu(k,1051)
1200 114070872 : lu(k,1053) = lu(k,1053) - lu(k,319) * lu(k,1051)
1201 114070872 : lu(k,1060) = lu(k,1060) - lu(k,320) * lu(k,1051)
1202 114070872 : lu(k,1065) = lu(k,1065) - lu(k,321) * lu(k,1051)
1203 114070872 : lu(k,1066) = lu(k,1066) - lu(k,322) * lu(k,1051)
1204 114070872 : lu(k,1070) = lu(k,1070) - lu(k,323) * lu(k,1051)
1205 114070872 : lu(k,1131) = lu(k,1131) - lu(k,318) * lu(k,1130)
1206 114070872 : lu(k,1132) = lu(k,1132) - lu(k,319) * lu(k,1130)
1207 114070872 : lu(k,1153) = lu(k,1153) - lu(k,320) * lu(k,1130)
1208 114070872 : lu(k,1158) = lu(k,1158) - lu(k,321) * lu(k,1130)
1209 114070872 : lu(k,1159) = lu(k,1159) - lu(k,322) * lu(k,1130)
1210 114070872 : lu(k,1163) = - lu(k,323) * lu(k,1130)
1211 114070872 : lu(k,1364) = lu(k,1364) - lu(k,318) * lu(k,1357)
1212 114070872 : lu(k,1365) = lu(k,1365) - lu(k,319) * lu(k,1357)
1213 114070872 : lu(k,1383) = lu(k,1383) - lu(k,320) * lu(k,1357)
1214 114070872 : lu(k,1388) = lu(k,1388) - lu(k,321) * lu(k,1357)
1215 114070872 : lu(k,1389) = lu(k,1389) - lu(k,322) * lu(k,1357)
1216 114070872 : lu(k,1393) = lu(k,1393) - lu(k,323) * lu(k,1357)
1217 114070872 : lu(k,1415) = lu(k,1415) - lu(k,318) * lu(k,1412)
1218 114070872 : lu(k,1416) = lu(k,1416) - lu(k,319) * lu(k,1412)
1219 114070872 : lu(k,1432) = lu(k,1432) - lu(k,320) * lu(k,1412)
1220 114070872 : lu(k,1437) = lu(k,1437) - lu(k,321) * lu(k,1412)
1221 114070872 : lu(k,1438) = lu(k,1438) - lu(k,322) * lu(k,1412)
1222 114070872 : lu(k,1442) = lu(k,1442) - lu(k,323) * lu(k,1412)
1223 114070872 : lu(k,324) = 1._r8 / lu(k,324)
1224 114070872 : lu(k,325) = lu(k,325) * lu(k,324)
1225 114070872 : lu(k,326) = lu(k,326) * lu(k,324)
1226 114070872 : lu(k,327) = lu(k,327) * lu(k,324)
1227 114070872 : lu(k,328) = lu(k,328) * lu(k,324)
1228 114070872 : lu(k,329) = lu(k,329) * lu(k,324)
1229 114070872 : lu(k,330) = lu(k,330) * lu(k,324)
1230 114070872 : lu(k,331) = lu(k,331) * lu(k,324)
1231 114070872 : lu(k,582) = lu(k,582) - lu(k,325) * lu(k,581)
1232 114070872 : lu(k,583) = lu(k,583) - lu(k,326) * lu(k,581)
1233 114070872 : lu(k,585) = - lu(k,327) * lu(k,581)
1234 114070872 : lu(k,587) = lu(k,587) - lu(k,328) * lu(k,581)
1235 114070872 : lu(k,589) = - lu(k,329) * lu(k,581)
1236 114070872 : lu(k,591) = - lu(k,330) * lu(k,581)
1237 114070872 : lu(k,593) = - lu(k,331) * lu(k,581)
1238 114070872 : lu(k,735) = lu(k,735) - lu(k,325) * lu(k,734)
1239 114070872 : lu(k,737) = - lu(k,326) * lu(k,734)
1240 114070872 : lu(k,739) = - lu(k,327) * lu(k,734)
1241 114070872 : lu(k,741) = lu(k,741) - lu(k,328) * lu(k,734)
1242 114070872 : lu(k,745) = lu(k,745) - lu(k,329) * lu(k,734)
1243 114070872 : lu(k,750) = lu(k,750) - lu(k,330) * lu(k,734)
1244 114070872 : lu(k,757) = lu(k,757) - lu(k,331) * lu(k,734)
1245 114070872 : lu(k,783) = lu(k,783) - lu(k,325) * lu(k,777)
1246 114070872 : lu(k,785) = lu(k,785) - lu(k,326) * lu(k,777)
1247 114070872 : lu(k,787) = lu(k,787) - lu(k,327) * lu(k,777)
1248 114070872 : lu(k,789) = lu(k,789) - lu(k,328) * lu(k,777)
1249 114070872 : lu(k,794) = lu(k,794) - lu(k,329) * lu(k,777)
1250 114070872 : lu(k,801) = lu(k,801) - lu(k,330) * lu(k,777)
1251 114070872 : lu(k,808) = lu(k,808) - lu(k,331) * lu(k,777)
1252 114070872 : lu(k,895) = lu(k,895) - lu(k,325) * lu(k,892)
1253 114070872 : lu(k,897) = lu(k,897) - lu(k,326) * lu(k,892)
1254 114070872 : lu(k,899) = - lu(k,327) * lu(k,892)
1255 114070872 : lu(k,901) = lu(k,901) - lu(k,328) * lu(k,892)
1256 114070872 : lu(k,907) = lu(k,907) - lu(k,329) * lu(k,892)
1257 114070872 : lu(k,914) = lu(k,914) - lu(k,330) * lu(k,892)
1258 114070872 : lu(k,921) = lu(k,921) - lu(k,331) * lu(k,892)
1259 114070872 : lu(k,978) = lu(k,978) - lu(k,325) * lu(k,969)
1260 114070872 : lu(k,980) = lu(k,980) - lu(k,326) * lu(k,969)
1261 114070872 : lu(k,982) = lu(k,982) - lu(k,327) * lu(k,969)
1262 114070872 : lu(k,984) = lu(k,984) - lu(k,328) * lu(k,969)
1263 114070872 : lu(k,991) = lu(k,991) - lu(k,329) * lu(k,969)
1264 114070872 : lu(k,998) = lu(k,998) - lu(k,330) * lu(k,969)
1265 114070872 : lu(k,1005) = lu(k,1005) - lu(k,331) * lu(k,969)
1266 114070872 : lu(k,1368) = lu(k,1368) - lu(k,325) * lu(k,1358)
1267 114070872 : lu(k,1371) = lu(k,1371) - lu(k,326) * lu(k,1358)
1268 114070872 : lu(k,1373) = lu(k,1373) - lu(k,327) * lu(k,1358)
1269 114070872 : lu(k,1379) = lu(k,1379) - lu(k,328) * lu(k,1358)
1270 114070872 : lu(k,1388) = lu(k,1388) - lu(k,329) * lu(k,1358)
1271 114070872 : lu(k,1397) = lu(k,1397) - lu(k,330) * lu(k,1358)
1272 114070872 : lu(k,1404) = lu(k,1404) - lu(k,331) * lu(k,1358)
1273 114070872 : lu(k,333) = 1._r8 / lu(k,333)
1274 114070872 : lu(k,334) = lu(k,334) * lu(k,333)
1275 114070872 : lu(k,335) = lu(k,335) * lu(k,333)
1276 114070872 : lu(k,336) = lu(k,336) * lu(k,333)
1277 114070872 : lu(k,337) = lu(k,337) * lu(k,333)
1278 114070872 : lu(k,338) = lu(k,338) * lu(k,333)
1279 114070872 : lu(k,339) = lu(k,339) * lu(k,333)
1280 114070872 : lu(k,360) = lu(k,360) - lu(k,334) * lu(k,358)
1281 114070872 : lu(k,361) = lu(k,361) - lu(k,335) * lu(k,358)
1282 114070872 : lu(k,362) = lu(k,362) - lu(k,336) * lu(k,358)
1283 114070872 : lu(k,363) = lu(k,363) - lu(k,337) * lu(k,358)
1284 114070872 : lu(k,367) = lu(k,367) - lu(k,338) * lu(k,358)
1285 114070872 : lu(k,368) = - lu(k,339) * lu(k,358)
1286 114070872 : lu(k,901) = lu(k,901) - lu(k,334) * lu(k,893)
1287 114070872 : lu(k,903) = lu(k,903) - lu(k,335) * lu(k,893)
1288 114070872 : lu(k,907) = lu(k,907) - lu(k,336) * lu(k,893)
1289 114070872 : lu(k,909) = lu(k,909) - lu(k,337) * lu(k,893)
1290 114070872 : lu(k,920) = lu(k,920) - lu(k,338) * lu(k,893)
1291 114070872 : lu(k,921) = lu(k,921) - lu(k,339) * lu(k,893)
1292 114070872 : lu(k,984) = lu(k,984) - lu(k,334) * lu(k,970)
1293 114070872 : lu(k,986) = lu(k,986) - lu(k,335) * lu(k,970)
1294 114070872 : lu(k,991) = lu(k,991) - lu(k,336) * lu(k,970)
1295 114070872 : lu(k,993) = lu(k,993) - lu(k,337) * lu(k,970)
1296 114070872 : lu(k,1004) = lu(k,1004) - lu(k,338) * lu(k,970)
1297 114070872 : lu(k,1005) = lu(k,1005) - lu(k,339) * lu(k,970)
1298 114070872 : lu(k,1101) = lu(k,1101) - lu(k,334) * lu(k,1086)
1299 114070872 : lu(k,1104) = lu(k,1104) - lu(k,335) * lu(k,1086)
1300 114070872 : lu(k,1110) = lu(k,1110) - lu(k,336) * lu(k,1086)
1301 114070872 : lu(k,1112) = lu(k,1112) - lu(k,337) * lu(k,1086)
1302 114070872 : lu(k,1125) = lu(k,1125) - lu(k,338) * lu(k,1086)
1303 114070872 : lu(k,1126) = - lu(k,339) * lu(k,1086)
1304 114070872 : lu(k,1379) = lu(k,1379) - lu(k,334) * lu(k,1359)
1305 114070872 : lu(k,1382) = lu(k,1382) - lu(k,335) * lu(k,1359)
1306 114070872 : lu(k,1388) = lu(k,1388) - lu(k,336) * lu(k,1359)
1307 114070872 : lu(k,1390) = lu(k,1390) - lu(k,337) * lu(k,1359)
1308 114070872 : lu(k,1403) = lu(k,1403) - lu(k,338) * lu(k,1359)
1309 114070872 : lu(k,1404) = lu(k,1404) - lu(k,339) * lu(k,1359)
1310 114070872 : lu(k,1476) = lu(k,1476) - lu(k,334) * lu(k,1461)
1311 114070872 : lu(k,1479) = lu(k,1479) - lu(k,335) * lu(k,1461)
1312 114070872 : lu(k,1485) = lu(k,1485) - lu(k,336) * lu(k,1461)
1313 114070872 : lu(k,1487) = lu(k,1487) - lu(k,337) * lu(k,1461)
1314 114070872 : lu(k,1500) = lu(k,1500) - lu(k,338) * lu(k,1461)
1315 114070872 : lu(k,1501) = lu(k,1501) - lu(k,339) * lu(k,1461)
1316 114070872 : lu(k,2005) = lu(k,2005) - lu(k,334) * lu(k,1990)
1317 114070872 : lu(k,2008) = lu(k,2008) - lu(k,335) * lu(k,1990)
1318 114070872 : lu(k,2014) = lu(k,2014) - lu(k,336) * lu(k,1990)
1319 114070872 : lu(k,2016) = lu(k,2016) - lu(k,337) * lu(k,1990)
1320 114070872 : lu(k,2029) = lu(k,2029) - lu(k,338) * lu(k,1990)
1321 114070872 : lu(k,2030) = lu(k,2030) - lu(k,339) * lu(k,1990)
1322 114070872 : lu(k,341) = 1._r8 / lu(k,341)
1323 114070872 : lu(k,342) = lu(k,342) * lu(k,341)
1324 114070872 : lu(k,343) = lu(k,343) * lu(k,341)
1325 114070872 : lu(k,344) = lu(k,344) * lu(k,341)
1326 114070872 : lu(k,345) = lu(k,345) * lu(k,341)
1327 114070872 : lu(k,346) = lu(k,346) * lu(k,341)
1328 114070872 : lu(k,347) = lu(k,347) * lu(k,341)
1329 114070872 : lu(k,348) = lu(k,348) * lu(k,341)
1330 114070872 : lu(k,349) = lu(k,349) * lu(k,341)
1331 114070872 : lu(k,416) = lu(k,416) - lu(k,342) * lu(k,415)
1332 114070872 : lu(k,417) = lu(k,417) - lu(k,343) * lu(k,415)
1333 114070872 : lu(k,418) = lu(k,418) - lu(k,344) * lu(k,415)
1334 114070872 : lu(k,422) = lu(k,422) - lu(k,345) * lu(k,415)
1335 114070872 : lu(k,426) = - lu(k,346) * lu(k,415)
1336 114070872 : lu(k,427) = - lu(k,347) * lu(k,415)
1337 114070872 : lu(k,428) = lu(k,428) - lu(k,348) * lu(k,415)
1338 114070872 : lu(k,430) = lu(k,430) - lu(k,349) * lu(k,415)
1339 114070872 : lu(k,645) = - lu(k,342) * lu(k,644)
1340 114070872 : lu(k,646) = - lu(k,343) * lu(k,644)
1341 114070872 : lu(k,647) = lu(k,647) - lu(k,344) * lu(k,644)
1342 114070872 : lu(k,651) = lu(k,651) - lu(k,345) * lu(k,644)
1343 114070872 : lu(k,658) = - lu(k,346) * lu(k,644)
1344 114070872 : lu(k,659) = - lu(k,347) * lu(k,644)
1345 114070872 : lu(k,660) = lu(k,660) - lu(k,348) * lu(k,644)
1346 114070872 : lu(k,666) = lu(k,666) - lu(k,349) * lu(k,644)
1347 114070872 : lu(k,780) = lu(k,780) - lu(k,342) * lu(k,778)
1348 114070872 : lu(k,781) = lu(k,781) - lu(k,343) * lu(k,778)
1349 114070872 : lu(k,784) = lu(k,784) - lu(k,344) * lu(k,778)
1350 114070872 : lu(k,789) = lu(k,789) - lu(k,345) * lu(k,778)
1351 114070872 : lu(k,797) = - lu(k,346) * lu(k,778)
1352 114070872 : lu(k,800) = - lu(k,347) * lu(k,778)
1353 114070872 : lu(k,801) = lu(k,801) - lu(k,348) * lu(k,778)
1354 114070872 : lu(k,808) = lu(k,808) - lu(k,349) * lu(k,778)
1355 114070872 : lu(k,974) = lu(k,974) - lu(k,342) * lu(k,971)
1356 114070872 : lu(k,975) = lu(k,975) - lu(k,343) * lu(k,971)
1357 114070872 : lu(k,979) = lu(k,979) - lu(k,344) * lu(k,971)
1358 114070872 : lu(k,984) = lu(k,984) - lu(k,345) * lu(k,971)
1359 114070872 : lu(k,994) = lu(k,994) - lu(k,346) * lu(k,971)
1360 114070872 : lu(k,997) = lu(k,997) - lu(k,347) * lu(k,971)
1361 114070872 : lu(k,998) = lu(k,998) - lu(k,348) * lu(k,971)
1362 114070872 : lu(k,1005) = lu(k,1005) - lu(k,349) * lu(k,971)
1363 114070872 : lu(k,1505) = - lu(k,342) * lu(k,1504)
1364 114070872 : lu(k,1506) = - lu(k,343) * lu(k,1504)
1365 114070872 : lu(k,1509) = - lu(k,344) * lu(k,1504)
1366 114070872 : lu(k,1517) = lu(k,1517) - lu(k,345) * lu(k,1504)
1367 114070872 : lu(k,1529) = lu(k,1529) - lu(k,346) * lu(k,1504)
1368 114070872 : lu(k,1534) = lu(k,1534) - lu(k,347) * lu(k,1504)
1369 114070872 : lu(k,1535) = lu(k,1535) - lu(k,348) * lu(k,1504)
1370 114070872 : lu(k,1542) = lu(k,1542) - lu(k,349) * lu(k,1504)
1371 114070872 : lu(k,2046) = - lu(k,342) * lu(k,2044)
1372 114070872 : lu(k,2047) = - lu(k,343) * lu(k,2044)
1373 114070872 : lu(k,2055) = lu(k,2055) - lu(k,344) * lu(k,2044)
1374 114070872 : lu(k,2065) = lu(k,2065) - lu(k,345) * lu(k,2044)
1375 114070872 : lu(k,2077) = lu(k,2077) - lu(k,346) * lu(k,2044)
1376 114070872 : lu(k,2082) = - lu(k,347) * lu(k,2044)
1377 114070872 : lu(k,2083) = lu(k,2083) - lu(k,348) * lu(k,2044)
1378 117656469 : lu(k,2090) = lu(k,2090) - lu(k,349) * lu(k,2044)
1379 : end do
1380 3585597 : end subroutine lu_fac08
1381 3585597 : subroutine lu_fac09( avec_len, lu )
1382 : use chem_mods, only : nzcnt
1383 : use shr_kind_mod, only : r8 => shr_kind_r8
1384 : implicit none
1385 : !-----------------------------------------------------------------------
1386 : ! ... dummy args
1387 : !-----------------------------------------------------------------------
1388 : integer, intent(in) :: avec_len
1389 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1390 : !-----------------------------------------------------------------------
1391 : ! ... local variables
1392 : !-----------------------------------------------------------------------
1393 : integer :: k
1394 117656469 : do k = 1,avec_len
1395 114070872 : lu(k,351) = 1._r8 / lu(k,351)
1396 114070872 : lu(k,352) = lu(k,352) * lu(k,351)
1397 114070872 : lu(k,353) = lu(k,353) * lu(k,351)
1398 114070872 : lu(k,354) = lu(k,354) * lu(k,351)
1399 114070872 : lu(k,355) = lu(k,355) * lu(k,351)
1400 114070872 : lu(k,356) = lu(k,356) * lu(k,351)
1401 114070872 : lu(k,476) = lu(k,476) - lu(k,352) * lu(k,475)
1402 114070872 : lu(k,479) = - lu(k,353) * lu(k,475)
1403 114070872 : lu(k,480) = lu(k,480) - lu(k,354) * lu(k,475)
1404 114070872 : lu(k,482) = lu(k,482) - lu(k,355) * lu(k,475)
1405 114070872 : lu(k,489) = - lu(k,356) * lu(k,475)
1406 114070872 : lu(k,713) = lu(k,713) - lu(k,352) * lu(k,712)
1407 114070872 : lu(k,718) = lu(k,718) - lu(k,353) * lu(k,712)
1408 114070872 : lu(k,719) = lu(k,719) - lu(k,354) * lu(k,712)
1409 114070872 : lu(k,722) = lu(k,722) - lu(k,355) * lu(k,712)
1410 114070872 : lu(k,732) = lu(k,732) - lu(k,356) * lu(k,712)
1411 114070872 : lu(k,977) = lu(k,977) - lu(k,352) * lu(k,972)
1412 114070872 : lu(k,983) = lu(k,983) - lu(k,353) * lu(k,972)
1413 114070872 : lu(k,984) = lu(k,984) - lu(k,354) * lu(k,972)
1414 114070872 : lu(k,991) = lu(k,991) - lu(k,355) * lu(k,972)
1415 114070872 : lu(k,1005) = lu(k,1005) - lu(k,356) * lu(k,972)
1416 114070872 : lu(k,1091) = lu(k,1091) - lu(k,352) * lu(k,1087)
1417 114070872 : lu(k,1099) = lu(k,1099) - lu(k,353) * lu(k,1087)
1418 114070872 : lu(k,1101) = lu(k,1101) - lu(k,354) * lu(k,1087)
1419 114070872 : lu(k,1110) = lu(k,1110) - lu(k,355) * lu(k,1087)
1420 114070872 : lu(k,1126) = lu(k,1126) - lu(k,356) * lu(k,1087)
1421 114070872 : lu(k,1367) = lu(k,1367) - lu(k,352) * lu(k,1360)
1422 114070872 : lu(k,1377) = lu(k,1377) - lu(k,353) * lu(k,1360)
1423 114070872 : lu(k,1379) = lu(k,1379) - lu(k,354) * lu(k,1360)
1424 114070872 : lu(k,1388) = lu(k,1388) - lu(k,355) * lu(k,1360)
1425 114070872 : lu(k,1404) = lu(k,1404) - lu(k,356) * lu(k,1360)
1426 114070872 : lu(k,1418) = lu(k,1418) - lu(k,352) * lu(k,1413)
1427 114070872 : lu(k,1426) = lu(k,1426) - lu(k,353) * lu(k,1413)
1428 114070872 : lu(k,1428) = lu(k,1428) - lu(k,354) * lu(k,1413)
1429 114070872 : lu(k,1437) = lu(k,1437) - lu(k,355) * lu(k,1413)
1430 114070872 : lu(k,1453) = - lu(k,356) * lu(k,1413)
1431 114070872 : lu(k,1714) = - lu(k,352) * lu(k,1712)
1432 114070872 : lu(k,1723) = lu(k,1723) - lu(k,353) * lu(k,1712)
1433 114070872 : lu(k,1725) = lu(k,1725) - lu(k,354) * lu(k,1712)
1434 114070872 : lu(k,1733) = lu(k,1733) - lu(k,355) * lu(k,1712)
1435 114070872 : lu(k,1749) = - lu(k,356) * lu(k,1712)
1436 114070872 : lu(k,1794) = lu(k,1794) - lu(k,352) * lu(k,1790)
1437 114070872 : lu(k,1806) = lu(k,1806) - lu(k,353) * lu(k,1790)
1438 114070872 : lu(k,1808) = lu(k,1808) - lu(k,354) * lu(k,1790)
1439 114070872 : lu(k,1817) = lu(k,1817) - lu(k,355) * lu(k,1790)
1440 114070872 : lu(k,1833) = lu(k,1833) - lu(k,356) * lu(k,1790)
1441 114070872 : lu(k,1908) = lu(k,1908) - lu(k,352) * lu(k,1905)
1442 114070872 : lu(k,1916) = lu(k,1916) - lu(k,353) * lu(k,1905)
1443 114070872 : lu(k,1918) = lu(k,1918) - lu(k,354) * lu(k,1905)
1444 114070872 : lu(k,1927) = lu(k,1927) - lu(k,355) * lu(k,1905)
1445 114070872 : lu(k,1943) = - lu(k,356) * lu(k,1905)
1446 114070872 : lu(k,2049) = - lu(k,352) * lu(k,2045)
1447 114070872 : lu(k,2063) = - lu(k,353) * lu(k,2045)
1448 114070872 : lu(k,2065) = lu(k,2065) - lu(k,354) * lu(k,2045)
1449 114070872 : lu(k,2074) = lu(k,2074) - lu(k,355) * lu(k,2045)
1450 114070872 : lu(k,2090) = lu(k,2090) - lu(k,356) * lu(k,2045)
1451 114070872 : lu(k,359) = 1._r8 / lu(k,359)
1452 114070872 : lu(k,360) = lu(k,360) * lu(k,359)
1453 114070872 : lu(k,361) = lu(k,361) * lu(k,359)
1454 114070872 : lu(k,362) = lu(k,362) * lu(k,359)
1455 114070872 : lu(k,363) = lu(k,363) * lu(k,359)
1456 114070872 : lu(k,364) = lu(k,364) * lu(k,359)
1457 114070872 : lu(k,365) = lu(k,365) * lu(k,359)
1458 114070872 : lu(k,366) = lu(k,366) * lu(k,359)
1459 114070872 : lu(k,367) = lu(k,367) * lu(k,359)
1460 114070872 : lu(k,368) = lu(k,368) * lu(k,359)
1461 114070872 : lu(k,984) = lu(k,984) - lu(k,360) * lu(k,973)
1462 114070872 : lu(k,986) = lu(k,986) - lu(k,361) * lu(k,973)
1463 114070872 : lu(k,991) = lu(k,991) - lu(k,362) * lu(k,973)
1464 114070872 : lu(k,993) = lu(k,993) - lu(k,363) * lu(k,973)
1465 114070872 : lu(k,994) = lu(k,994) - lu(k,364) * lu(k,973)
1466 114070872 : lu(k,997) = lu(k,997) - lu(k,365) * lu(k,973)
1467 114070872 : lu(k,999) = lu(k,999) - lu(k,366) * lu(k,973)
1468 114070872 : lu(k,1004) = lu(k,1004) - lu(k,367) * lu(k,973)
1469 114070872 : lu(k,1005) = lu(k,1005) - lu(k,368) * lu(k,973)
1470 114070872 : lu(k,1101) = lu(k,1101) - lu(k,360) * lu(k,1088)
1471 114070872 : lu(k,1104) = lu(k,1104) - lu(k,361) * lu(k,1088)
1472 114070872 : lu(k,1110) = lu(k,1110) - lu(k,362) * lu(k,1088)
1473 114070872 : lu(k,1112) = lu(k,1112) - lu(k,363) * lu(k,1088)
1474 114070872 : lu(k,1113) = - lu(k,364) * lu(k,1088)
1475 114070872 : lu(k,1118) = lu(k,1118) - lu(k,365) * lu(k,1088)
1476 114070872 : lu(k,1120) = lu(k,1120) - lu(k,366) * lu(k,1088)
1477 114070872 : lu(k,1125) = lu(k,1125) - lu(k,367) * lu(k,1088)
1478 114070872 : lu(k,1126) = lu(k,1126) - lu(k,368) * lu(k,1088)
1479 114070872 : lu(k,1379) = lu(k,1379) - lu(k,360) * lu(k,1361)
1480 114070872 : lu(k,1382) = lu(k,1382) - lu(k,361) * lu(k,1361)
1481 114070872 : lu(k,1388) = lu(k,1388) - lu(k,362) * lu(k,1361)
1482 114070872 : lu(k,1390) = lu(k,1390) - lu(k,363) * lu(k,1361)
1483 114070872 : lu(k,1391) = lu(k,1391) - lu(k,364) * lu(k,1361)
1484 114070872 : lu(k,1396) = lu(k,1396) - lu(k,365) * lu(k,1361)
1485 114070872 : lu(k,1398) = lu(k,1398) - lu(k,366) * lu(k,1361)
1486 114070872 : lu(k,1403) = lu(k,1403) - lu(k,367) * lu(k,1361)
1487 114070872 : lu(k,1404) = lu(k,1404) - lu(k,368) * lu(k,1361)
1488 114070872 : lu(k,1476) = lu(k,1476) - lu(k,360) * lu(k,1462)
1489 114070872 : lu(k,1479) = lu(k,1479) - lu(k,361) * lu(k,1462)
1490 114070872 : lu(k,1485) = lu(k,1485) - lu(k,362) * lu(k,1462)
1491 114070872 : lu(k,1487) = lu(k,1487) - lu(k,363) * lu(k,1462)
1492 114070872 : lu(k,1488) = - lu(k,364) * lu(k,1462)
1493 114070872 : lu(k,1493) = lu(k,1493) - lu(k,365) * lu(k,1462)
1494 114070872 : lu(k,1495) = lu(k,1495) - lu(k,366) * lu(k,1462)
1495 114070872 : lu(k,1500) = lu(k,1500) - lu(k,367) * lu(k,1462)
1496 114070872 : lu(k,1501) = lu(k,1501) - lu(k,368) * lu(k,1462)
1497 114070872 : lu(k,1808) = lu(k,1808) - lu(k,360) * lu(k,1791)
1498 114070872 : lu(k,1811) = lu(k,1811) - lu(k,361) * lu(k,1791)
1499 114070872 : lu(k,1817) = lu(k,1817) - lu(k,362) * lu(k,1791)
1500 114070872 : lu(k,1819) = lu(k,1819) - lu(k,363) * lu(k,1791)
1501 114070872 : lu(k,1820) = lu(k,1820) - lu(k,364) * lu(k,1791)
1502 114070872 : lu(k,1825) = lu(k,1825) - lu(k,365) * lu(k,1791)
1503 114070872 : lu(k,1827) = lu(k,1827) - lu(k,366) * lu(k,1791)
1504 114070872 : lu(k,1832) = lu(k,1832) - lu(k,367) * lu(k,1791)
1505 114070872 : lu(k,1833) = lu(k,1833) - lu(k,368) * lu(k,1791)
1506 114070872 : lu(k,2005) = lu(k,2005) - lu(k,360) * lu(k,1991)
1507 114070872 : lu(k,2008) = lu(k,2008) - lu(k,361) * lu(k,1991)
1508 114070872 : lu(k,2014) = lu(k,2014) - lu(k,362) * lu(k,1991)
1509 114070872 : lu(k,2016) = lu(k,2016) - lu(k,363) * lu(k,1991)
1510 114070872 : lu(k,2017) = lu(k,2017) - lu(k,364) * lu(k,1991)
1511 114070872 : lu(k,2022) = - lu(k,365) * lu(k,1991)
1512 114070872 : lu(k,2024) = lu(k,2024) - lu(k,366) * lu(k,1991)
1513 114070872 : lu(k,2029) = lu(k,2029) - lu(k,367) * lu(k,1991)
1514 114070872 : lu(k,2030) = lu(k,2030) - lu(k,368) * lu(k,1991)
1515 114070872 : lu(k,369) = 1._r8 / lu(k,369)
1516 114070872 : lu(k,370) = lu(k,370) * lu(k,369)
1517 114070872 : lu(k,371) = lu(k,371) * lu(k,369)
1518 114070872 : lu(k,372) = lu(k,372) * lu(k,369)
1519 114070872 : lu(k,373) = lu(k,373) * lu(k,369)
1520 114070872 : lu(k,374) = lu(k,374) * lu(k,369)
1521 114070872 : lu(k,375) = lu(k,375) * lu(k,369)
1522 114070872 : lu(k,376) = lu(k,376) * lu(k,369)
1523 114070872 : lu(k,832) = lu(k,832) - lu(k,370) * lu(k,830)
1524 114070872 : lu(k,836) = - lu(k,371) * lu(k,830)
1525 114070872 : lu(k,846) = lu(k,846) - lu(k,372) * lu(k,830)
1526 114070872 : lu(k,847) = lu(k,847) - lu(k,373) * lu(k,830)
1527 114070872 : lu(k,848) = lu(k,848) - lu(k,374) * lu(k,830)
1528 114070872 : lu(k,855) = - lu(k,375) * lu(k,830)
1529 114070872 : lu(k,859) = lu(k,859) - lu(k,376) * lu(k,830)
1530 114070872 : lu(k,1010) = lu(k,1010) - lu(k,370) * lu(k,1006)
1531 114070872 : lu(k,1012) = lu(k,1012) - lu(k,371) * lu(k,1006)
1532 114070872 : lu(k,1022) = lu(k,1022) - lu(k,372) * lu(k,1006)
1533 114070872 : lu(k,1023) = lu(k,1023) - lu(k,373) * lu(k,1006)
1534 114070872 : lu(k,1024) = lu(k,1024) - lu(k,374) * lu(k,1006)
1535 114070872 : lu(k,1032) = lu(k,1032) - lu(k,375) * lu(k,1006)
1536 114070872 : lu(k,1036) = lu(k,1036) - lu(k,376) * lu(k,1006)
1537 114070872 : lu(k,1096) = lu(k,1096) - lu(k,370) * lu(k,1089)
1538 114070872 : lu(k,1100) = lu(k,1100) - lu(k,371) * lu(k,1089)
1539 114070872 : lu(k,1110) = lu(k,1110) - lu(k,372) * lu(k,1089)
1540 114070872 : lu(k,1111) = lu(k,1111) - lu(k,373) * lu(k,1089)
1541 114070872 : lu(k,1112) = lu(k,1112) - lu(k,374) * lu(k,1089)
1542 114070872 : lu(k,1120) = lu(k,1120) - lu(k,375) * lu(k,1089)
1543 114070872 : lu(k,1124) = lu(k,1124) - lu(k,376) * lu(k,1089)
1544 114070872 : lu(k,1374) = lu(k,1374) - lu(k,370) * lu(k,1362)
1545 114070872 : lu(k,1378) = lu(k,1378) - lu(k,371) * lu(k,1362)
1546 114070872 : lu(k,1388) = lu(k,1388) - lu(k,372) * lu(k,1362)
1547 114070872 : lu(k,1389) = lu(k,1389) - lu(k,373) * lu(k,1362)
1548 114070872 : lu(k,1390) = lu(k,1390) - lu(k,374) * lu(k,1362)
1549 114070872 : lu(k,1398) = lu(k,1398) - lu(k,375) * lu(k,1362)
1550 114070872 : lu(k,1402) = lu(k,1402) - lu(k,376) * lu(k,1362)
1551 114070872 : lu(k,1471) = lu(k,1471) - lu(k,370) * lu(k,1463)
1552 114070872 : lu(k,1475) = lu(k,1475) - lu(k,371) * lu(k,1463)
1553 114070872 : lu(k,1485) = lu(k,1485) - lu(k,372) * lu(k,1463)
1554 114070872 : lu(k,1486) = lu(k,1486) - lu(k,373) * lu(k,1463)
1555 114070872 : lu(k,1487) = lu(k,1487) - lu(k,374) * lu(k,1463)
1556 114070872 : lu(k,1495) = lu(k,1495) - lu(k,375) * lu(k,1463)
1557 114070872 : lu(k,1499) = - lu(k,376) * lu(k,1463)
1558 114070872 : lu(k,1548) = lu(k,1548) - lu(k,370) * lu(k,1544)
1559 114070872 : lu(k,1552) = lu(k,1552) - lu(k,371) * lu(k,1544)
1560 114070872 : lu(k,1562) = lu(k,1562) - lu(k,372) * lu(k,1544)
1561 114070872 : lu(k,1563) = lu(k,1563) - lu(k,373) * lu(k,1544)
1562 114070872 : lu(k,1564) = lu(k,1564) - lu(k,374) * lu(k,1544)
1563 114070872 : lu(k,1572) = lu(k,1572) - lu(k,375) * lu(k,1544)
1564 114070872 : lu(k,1576) = lu(k,1576) - lu(k,376) * lu(k,1544)
1565 114070872 : lu(k,1837) = lu(k,1837) - lu(k,370) * lu(k,1834)
1566 114070872 : lu(k,1840) = lu(k,1840) - lu(k,371) * lu(k,1834)
1567 114070872 : lu(k,1850) = lu(k,1850) - lu(k,372) * lu(k,1834)
1568 114070872 : lu(k,1851) = - lu(k,373) * lu(k,1834)
1569 114070872 : lu(k,1852) = lu(k,1852) - lu(k,374) * lu(k,1834)
1570 114070872 : lu(k,1860) = lu(k,1860) - lu(k,375) * lu(k,1834)
1571 114070872 : lu(k,1864) = - lu(k,376) * lu(k,1834)
1572 114070872 : lu(k,1956) = lu(k,1956) - lu(k,370) * lu(k,1945)
1573 114070872 : lu(k,1959) = lu(k,1959) - lu(k,371) * lu(k,1945)
1574 114070872 : lu(k,1969) = lu(k,1969) - lu(k,372) * lu(k,1945)
1575 114070872 : lu(k,1970) = lu(k,1970) - lu(k,373) * lu(k,1945)
1576 114070872 : lu(k,1971) = lu(k,1971) - lu(k,374) * lu(k,1945)
1577 114070872 : lu(k,1979) = lu(k,1979) - lu(k,375) * lu(k,1945)
1578 114070872 : lu(k,1983) = lu(k,1983) - lu(k,376) * lu(k,1945)
1579 114070872 : lu(k,377) = 1._r8 / lu(k,377)
1580 114070872 : lu(k,378) = lu(k,378) * lu(k,377)
1581 114070872 : lu(k,379) = lu(k,379) * lu(k,377)
1582 114070872 : lu(k,380) = lu(k,380) * lu(k,377)
1583 114070872 : lu(k,381) = lu(k,381) * lu(k,377)
1584 114070872 : lu(k,382) = lu(k,382) * lu(k,377)
1585 114070872 : lu(k,383) = lu(k,383) * lu(k,377)
1586 114070872 : lu(k,384) = lu(k,384) * lu(k,377)
1587 114070872 : lu(k,461) = lu(k,461) - lu(k,378) * lu(k,460)
1588 114070872 : lu(k,463) = lu(k,463) - lu(k,379) * lu(k,460)
1589 114070872 : lu(k,466) = lu(k,466) - lu(k,380) * lu(k,460)
1590 114070872 : lu(k,467) = - lu(k,381) * lu(k,460)
1591 114070872 : lu(k,468) = lu(k,468) - lu(k,382) * lu(k,460)
1592 114070872 : lu(k,470) = - lu(k,383) * lu(k,460)
1593 114070872 : lu(k,471) = lu(k,471) - lu(k,384) * lu(k,460)
1594 114070872 : lu(k,782) = - lu(k,378) * lu(k,779)
1595 114070872 : lu(k,790) = - lu(k,379) * lu(k,779)
1596 114070872 : lu(k,795) = lu(k,795) - lu(k,380) * lu(k,779)
1597 114070872 : lu(k,798) = - lu(k,381) * lu(k,779)
1598 114070872 : lu(k,799) = - lu(k,382) * lu(k,779)
1599 114070872 : lu(k,804) = - lu(k,383) * lu(k,779)
1600 114070872 : lu(k,805) = lu(k,805) - lu(k,384) * lu(k,779)
1601 114070872 : lu(k,1269) = - lu(k,378) * lu(k,1266)
1602 114070872 : lu(k,1279) = lu(k,1279) - lu(k,379) * lu(k,1266)
1603 114070872 : lu(k,1287) = lu(k,1287) - lu(k,380) * lu(k,1266)
1604 114070872 : lu(k,1290) = lu(k,1290) - lu(k,381) * lu(k,1266)
1605 114070872 : lu(k,1291) = lu(k,1291) - lu(k,382) * lu(k,1266)
1606 114070872 : lu(k,1298) = lu(k,1298) - lu(k,383) * lu(k,1266)
1607 114070872 : lu(k,1299) = - lu(k,384) * lu(k,1266)
1608 114070872 : lu(k,1366) = lu(k,1366) - lu(k,378) * lu(k,1363)
1609 114070872 : lu(k,1381) = lu(k,1381) - lu(k,379) * lu(k,1363)
1610 114070872 : lu(k,1389) = lu(k,1389) - lu(k,380) * lu(k,1363)
1611 114070872 : lu(k,1392) = lu(k,1392) - lu(k,381) * lu(k,1363)
1612 114070872 : lu(k,1393) = lu(k,1393) - lu(k,382) * lu(k,1363)
1613 114070872 : lu(k,1400) = lu(k,1400) - lu(k,383) * lu(k,1363)
1614 114070872 : lu(k,1401) = lu(k,1401) - lu(k,384) * lu(k,1363)
1615 114070872 : lu(k,1417) = lu(k,1417) - lu(k,378) * lu(k,1414)
1616 114070872 : lu(k,1430) = lu(k,1430) - lu(k,379) * lu(k,1414)
1617 114070872 : lu(k,1438) = lu(k,1438) - lu(k,380) * lu(k,1414)
1618 114070872 : lu(k,1441) = lu(k,1441) - lu(k,381) * lu(k,1414)
1619 114070872 : lu(k,1442) = lu(k,1442) - lu(k,382) * lu(k,1414)
1620 114070872 : lu(k,1449) = lu(k,1449) - lu(k,383) * lu(k,1414)
1621 114070872 : lu(k,1450) = lu(k,1450) - lu(k,384) * lu(k,1414)
1622 114070872 : lu(k,1546) = - lu(k,378) * lu(k,1545)
1623 114070872 : lu(k,1555) = lu(k,1555) - lu(k,379) * lu(k,1545)
1624 114070872 : lu(k,1563) = lu(k,1563) - lu(k,380) * lu(k,1545)
1625 114070872 : lu(k,1566) = lu(k,1566) - lu(k,381) * lu(k,1545)
1626 114070872 : lu(k,1567) = lu(k,1567) - lu(k,382) * lu(k,1545)
1627 114070872 : lu(k,1574) = lu(k,1574) - lu(k,383) * lu(k,1545)
1628 114070872 : lu(k,1575) = lu(k,1575) - lu(k,384) * lu(k,1545)
1629 114070872 : lu(k,1868) = - lu(k,378) * lu(k,1867)
1630 114070872 : lu(k,1879) = lu(k,1879) - lu(k,379) * lu(k,1867)
1631 114070872 : lu(k,1887) = lu(k,1887) - lu(k,380) * lu(k,1867)
1632 114070872 : lu(k,1890) = - lu(k,381) * lu(k,1867)
1633 114070872 : lu(k,1891) = - lu(k,382) * lu(k,1867)
1634 114070872 : lu(k,1898) = lu(k,1898) - lu(k,383) * lu(k,1867)
1635 114070872 : lu(k,1899) = lu(k,1899) - lu(k,384) * lu(k,1867)
1636 114070872 : lu(k,1907) = - lu(k,378) * lu(k,1906)
1637 114070872 : lu(k,1920) = lu(k,1920) - lu(k,379) * lu(k,1906)
1638 114070872 : lu(k,1928) = lu(k,1928) - lu(k,380) * lu(k,1906)
1639 114070872 : lu(k,1931) = lu(k,1931) - lu(k,381) * lu(k,1906)
1640 114070872 : lu(k,1932) = - lu(k,382) * lu(k,1906)
1641 114070872 : lu(k,1939) = lu(k,1939) - lu(k,383) * lu(k,1906)
1642 117656469 : lu(k,1940) = lu(k,1940) - lu(k,384) * lu(k,1906)
1643 : end do
1644 3585597 : end subroutine lu_fac09
1645 3585597 : subroutine lu_fac10( avec_len, lu )
1646 : use chem_mods, only : nzcnt
1647 : use shr_kind_mod, only : r8 => shr_kind_r8
1648 : implicit none
1649 : !-----------------------------------------------------------------------
1650 : ! ... dummy args
1651 : !-----------------------------------------------------------------------
1652 : integer, intent(in) :: avec_len
1653 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1654 : !-----------------------------------------------------------------------
1655 : ! ... local variables
1656 : !-----------------------------------------------------------------------
1657 : integer :: k
1658 117656469 : do k = 1,avec_len
1659 114070872 : lu(k,388) = 1._r8 / lu(k,388)
1660 114070872 : lu(k,389) = lu(k,389) * lu(k,388)
1661 114070872 : lu(k,390) = lu(k,390) * lu(k,388)
1662 114070872 : lu(k,391) = lu(k,391) * lu(k,388)
1663 114070872 : lu(k,392) = lu(k,392) * lu(k,388)
1664 114070872 : lu(k,393) = lu(k,393) * lu(k,388)
1665 114070872 : lu(k,394) = lu(k,394) * lu(k,388)
1666 114070872 : lu(k,395) = lu(k,395) * lu(k,388)
1667 114070872 : lu(k,396) = lu(k,396) * lu(k,388)
1668 114070872 : lu(k,397) = lu(k,397) * lu(k,388)
1669 114070872 : lu(k,398) = lu(k,398) * lu(k,388)
1670 114070872 : lu(k,446) = lu(k,446) - lu(k,389) * lu(k,445)
1671 114070872 : lu(k,447) = lu(k,447) - lu(k,390) * lu(k,445)
1672 114070872 : lu(k,448) = - lu(k,391) * lu(k,445)
1673 114070872 : lu(k,449) = lu(k,449) - lu(k,392) * lu(k,445)
1674 114070872 : lu(k,451) = lu(k,451) - lu(k,393) * lu(k,445)
1675 114070872 : lu(k,452) = - lu(k,394) * lu(k,445)
1676 114070872 : lu(k,453) = lu(k,453) - lu(k,395) * lu(k,445)
1677 114070872 : lu(k,454) = lu(k,454) - lu(k,396) * lu(k,445)
1678 114070872 : lu(k,455) = lu(k,455) - lu(k,397) * lu(k,445)
1679 114070872 : lu(k,458) = lu(k,458) - lu(k,398) * lu(k,445)
1680 114070872 : lu(k,1053) = lu(k,1053) - lu(k,389) * lu(k,1052)
1681 114070872 : lu(k,1055) = lu(k,1055) - lu(k,390) * lu(k,1052)
1682 114070872 : lu(k,1056) = - lu(k,391) * lu(k,1052)
1683 114070872 : lu(k,1057) = lu(k,1057) - lu(k,392) * lu(k,1052)
1684 114070872 : lu(k,1060) = lu(k,1060) - lu(k,393) * lu(k,1052)
1685 114070872 : lu(k,1063) = lu(k,1063) - lu(k,394) * lu(k,1052)
1686 114070872 : lu(k,1065) = lu(k,1065) - lu(k,395) * lu(k,1052)
1687 114070872 : lu(k,1066) = lu(k,1066) - lu(k,396) * lu(k,1052)
1688 114070872 : lu(k,1070) = lu(k,1070) - lu(k,397) * lu(k,1052)
1689 114070872 : lu(k,1079) = lu(k,1079) - lu(k,398) * lu(k,1052)
1690 114070872 : lu(k,1132) = lu(k,1132) - lu(k,389) * lu(k,1131)
1691 114070872 : lu(k,1143) = lu(k,1143) - lu(k,390) * lu(k,1131)
1692 114070872 : lu(k,1147) = - lu(k,391) * lu(k,1131)
1693 114070872 : lu(k,1149) = lu(k,1149) - lu(k,392) * lu(k,1131)
1694 114070872 : lu(k,1153) = lu(k,1153) - lu(k,393) * lu(k,1131)
1695 114070872 : lu(k,1156) = lu(k,1156) - lu(k,394) * lu(k,1131)
1696 114070872 : lu(k,1158) = lu(k,1158) - lu(k,395) * lu(k,1131)
1697 114070872 : lu(k,1159) = lu(k,1159) - lu(k,396) * lu(k,1131)
1698 114070872 : lu(k,1163) = lu(k,1163) - lu(k,397) * lu(k,1131)
1699 114070872 : lu(k,1172) = lu(k,1172) - lu(k,398) * lu(k,1131)
1700 114070872 : lu(k,1268) = - lu(k,389) * lu(k,1267)
1701 114070872 : lu(k,1272) = - lu(k,390) * lu(k,1267)
1702 114070872 : lu(k,1275) = lu(k,1275) - lu(k,391) * lu(k,1267)
1703 114070872 : lu(k,1277) = lu(k,1277) - lu(k,392) * lu(k,1267)
1704 114070872 : lu(k,1281) = lu(k,1281) - lu(k,393) * lu(k,1267)
1705 114070872 : lu(k,1284) = lu(k,1284) - lu(k,394) * lu(k,1267)
1706 114070872 : lu(k,1286) = lu(k,1286) - lu(k,395) * lu(k,1267)
1707 114070872 : lu(k,1287) = lu(k,1287) - lu(k,396) * lu(k,1267)
1708 114070872 : lu(k,1291) = lu(k,1291) - lu(k,397) * lu(k,1267)
1709 114070872 : lu(k,1300) = lu(k,1300) - lu(k,398) * lu(k,1267)
1710 114070872 : lu(k,1365) = lu(k,1365) - lu(k,389) * lu(k,1364)
1711 114070872 : lu(k,1373) = lu(k,1373) - lu(k,390) * lu(k,1364)
1712 114070872 : lu(k,1377) = lu(k,1377) - lu(k,391) * lu(k,1364)
1713 114070872 : lu(k,1379) = lu(k,1379) - lu(k,392) * lu(k,1364)
1714 114070872 : lu(k,1383) = lu(k,1383) - lu(k,393) * lu(k,1364)
1715 114070872 : lu(k,1386) = lu(k,1386) - lu(k,394) * lu(k,1364)
1716 114070872 : lu(k,1388) = lu(k,1388) - lu(k,395) * lu(k,1364)
1717 114070872 : lu(k,1389) = lu(k,1389) - lu(k,396) * lu(k,1364)
1718 114070872 : lu(k,1393) = lu(k,1393) - lu(k,397) * lu(k,1364)
1719 114070872 : lu(k,1402) = lu(k,1402) - lu(k,398) * lu(k,1364)
1720 114070872 : lu(k,1416) = lu(k,1416) - lu(k,389) * lu(k,1415)
1721 114070872 : lu(k,1423) = lu(k,1423) - lu(k,390) * lu(k,1415)
1722 114070872 : lu(k,1426) = lu(k,1426) - lu(k,391) * lu(k,1415)
1723 114070872 : lu(k,1428) = lu(k,1428) - lu(k,392) * lu(k,1415)
1724 114070872 : lu(k,1432) = lu(k,1432) - lu(k,393) * lu(k,1415)
1725 114070872 : lu(k,1435) = lu(k,1435) - lu(k,394) * lu(k,1415)
1726 114070872 : lu(k,1437) = lu(k,1437) - lu(k,395) * lu(k,1415)
1727 114070872 : lu(k,1438) = lu(k,1438) - lu(k,396) * lu(k,1415)
1728 114070872 : lu(k,1442) = lu(k,1442) - lu(k,397) * lu(k,1415)
1729 114070872 : lu(k,1451) = lu(k,1451) - lu(k,398) * lu(k,1415)
1730 114070872 : lu(k,401) = 1._r8 / lu(k,401)
1731 114070872 : lu(k,402) = lu(k,402) * lu(k,401)
1732 114070872 : lu(k,403) = lu(k,403) * lu(k,401)
1733 114070872 : lu(k,404) = lu(k,404) * lu(k,401)
1734 114070872 : lu(k,405) = lu(k,405) * lu(k,401)
1735 114070872 : lu(k,406) = lu(k,406) * lu(k,401)
1736 114070872 : lu(k,407) = lu(k,407) * lu(k,401)
1737 114070872 : lu(k,408) = lu(k,408) * lu(k,401)
1738 114070872 : lu(k,409) = lu(k,409) * lu(k,401)
1739 114070872 : lu(k,410) = lu(k,410) * lu(k,401)
1740 114070872 : lu(k,411) = lu(k,411) * lu(k,401)
1741 114070872 : lu(k,412) = lu(k,412) * lu(k,401)
1742 114070872 : lu(k,624) = lu(k,624) - lu(k,402) * lu(k,623)
1743 114070872 : lu(k,625) = lu(k,625) - lu(k,403) * lu(k,623)
1744 114070872 : lu(k,626) = lu(k,626) - lu(k,404) * lu(k,623)
1745 114070872 : lu(k,632) = - lu(k,405) * lu(k,623)
1746 114070872 : lu(k,634) = lu(k,634) - lu(k,406) * lu(k,623)
1747 114070872 : lu(k,636) = lu(k,636) - lu(k,407) * lu(k,623)
1748 114070872 : lu(k,637) = lu(k,637) - lu(k,408) * lu(k,623)
1749 114070872 : lu(k,638) = lu(k,638) - lu(k,409) * lu(k,623)
1750 114070872 : lu(k,640) = - lu(k,410) * lu(k,623)
1751 114070872 : lu(k,641) = lu(k,641) - lu(k,411) * lu(k,623)
1752 114070872 : lu(k,642) = lu(k,642) - lu(k,412) * lu(k,623)
1753 114070872 : lu(k,689) = lu(k,689) - lu(k,402) * lu(k,688)
1754 114070872 : lu(k,690) = lu(k,690) - lu(k,403) * lu(k,688)
1755 114070872 : lu(k,691) = lu(k,691) - lu(k,404) * lu(k,688)
1756 114070872 : lu(k,697) = - lu(k,405) * lu(k,688)
1757 114070872 : lu(k,699) = lu(k,699) - lu(k,406) * lu(k,688)
1758 114070872 : lu(k,701) = lu(k,701) - lu(k,407) * lu(k,688)
1759 114070872 : lu(k,702) = lu(k,702) - lu(k,408) * lu(k,688)
1760 114070872 : lu(k,703) = lu(k,703) - lu(k,409) * lu(k,688)
1761 114070872 : lu(k,705) = - lu(k,410) * lu(k,688)
1762 114070872 : lu(k,706) = lu(k,706) - lu(k,411) * lu(k,688)
1763 114070872 : lu(k,707) = lu(k,707) - lu(k,412) * lu(k,688)
1764 114070872 : lu(k,1632) = lu(k,1632) - lu(k,402) * lu(k,1625)
1765 114070872 : lu(k,1633) = lu(k,1633) - lu(k,403) * lu(k,1625)
1766 114070872 : lu(k,1635) = lu(k,1635) - lu(k,404) * lu(k,1625)
1767 114070872 : lu(k,1650) = lu(k,1650) - lu(k,405) * lu(k,1625)
1768 114070872 : lu(k,1653) = lu(k,1653) - lu(k,406) * lu(k,1625)
1769 114070872 : lu(k,1656) = lu(k,1656) - lu(k,407) * lu(k,1625)
1770 114070872 : lu(k,1657) = lu(k,1657) - lu(k,408) * lu(k,1625)
1771 114070872 : lu(k,1658) = lu(k,1658) - lu(k,409) * lu(k,1625)
1772 114070872 : lu(k,1660) = lu(k,1660) - lu(k,410) * lu(k,1625)
1773 114070872 : lu(k,1664) = - lu(k,411) * lu(k,1625)
1774 114070872 : lu(k,1666) = lu(k,1666) - lu(k,412) * lu(k,1625)
1775 114070872 : lu(k,1675) = lu(k,1675) - lu(k,402) * lu(k,1668)
1776 114070872 : lu(k,1676) = lu(k,1676) - lu(k,403) * lu(k,1668)
1777 114070872 : lu(k,1678) = lu(k,1678) - lu(k,404) * lu(k,1668)
1778 114070872 : lu(k,1693) = lu(k,1693) - lu(k,405) * lu(k,1668)
1779 114070872 : lu(k,1696) = lu(k,1696) - lu(k,406) * lu(k,1668)
1780 114070872 : lu(k,1699) = lu(k,1699) - lu(k,407) * lu(k,1668)
1781 114070872 : lu(k,1700) = lu(k,1700) - lu(k,408) * lu(k,1668)
1782 114070872 : lu(k,1701) = lu(k,1701) - lu(k,409) * lu(k,1668)
1783 114070872 : lu(k,1703) = lu(k,1703) - lu(k,410) * lu(k,1668)
1784 114070872 : lu(k,1707) = - lu(k,411) * lu(k,1668)
1785 114070872 : lu(k,1709) = lu(k,1709) - lu(k,412) * lu(k,1668)
1786 114070872 : lu(k,1716) = - lu(k,402) * lu(k,1713)
1787 114070872 : lu(k,1717) = - lu(k,403) * lu(k,1713)
1788 114070872 : lu(k,1718) = - lu(k,404) * lu(k,1713)
1789 114070872 : lu(k,1733) = lu(k,1733) - lu(k,405) * lu(k,1713)
1790 114070872 : lu(k,1736) = lu(k,1736) - lu(k,406) * lu(k,1713)
1791 114070872 : lu(k,1739) = - lu(k,407) * lu(k,1713)
1792 114070872 : lu(k,1740) = - lu(k,408) * lu(k,1713)
1793 114070872 : lu(k,1741) = lu(k,1741) - lu(k,409) * lu(k,1713)
1794 114070872 : lu(k,1743) = lu(k,1743) - lu(k,410) * lu(k,1713)
1795 114070872 : lu(k,1747) = lu(k,1747) - lu(k,411) * lu(k,1713)
1796 114070872 : lu(k,1749) = lu(k,1749) - lu(k,412) * lu(k,1713)
1797 114070872 : lu(k,1797) = - lu(k,402) * lu(k,1792)
1798 114070872 : lu(k,1798) = - lu(k,403) * lu(k,1792)
1799 114070872 : lu(k,1800) = lu(k,1800) - lu(k,404) * lu(k,1792)
1800 114070872 : lu(k,1817) = lu(k,1817) - lu(k,405) * lu(k,1792)
1801 114070872 : lu(k,1820) = lu(k,1820) - lu(k,406) * lu(k,1792)
1802 114070872 : lu(k,1823) = - lu(k,407) * lu(k,1792)
1803 114070872 : lu(k,1824) = - lu(k,408) * lu(k,1792)
1804 114070872 : lu(k,1825) = lu(k,1825) - lu(k,409) * lu(k,1792)
1805 114070872 : lu(k,1827) = lu(k,1827) - lu(k,410) * lu(k,1792)
1806 114070872 : lu(k,1831) = lu(k,1831) - lu(k,411) * lu(k,1792)
1807 114070872 : lu(k,1833) = lu(k,1833) - lu(k,412) * lu(k,1792)
1808 114070872 : lu(k,416) = 1._r8 / lu(k,416)
1809 114070872 : lu(k,417) = lu(k,417) * lu(k,416)
1810 114070872 : lu(k,418) = lu(k,418) * lu(k,416)
1811 114070872 : lu(k,419) = lu(k,419) * lu(k,416)
1812 114070872 : lu(k,420) = lu(k,420) * lu(k,416)
1813 114070872 : lu(k,421) = lu(k,421) * lu(k,416)
1814 114070872 : lu(k,422) = lu(k,422) * lu(k,416)
1815 114070872 : lu(k,423) = lu(k,423) * lu(k,416)
1816 114070872 : lu(k,424) = lu(k,424) * lu(k,416)
1817 114070872 : lu(k,425) = lu(k,425) * lu(k,416)
1818 114070872 : lu(k,426) = lu(k,426) * lu(k,416)
1819 114070872 : lu(k,427) = lu(k,427) * lu(k,416)
1820 114070872 : lu(k,428) = lu(k,428) * lu(k,416)
1821 114070872 : lu(k,429) = lu(k,429) * lu(k,416)
1822 114070872 : lu(k,430) = lu(k,430) * lu(k,416)
1823 114070872 : lu(k,646) = lu(k,646) - lu(k,417) * lu(k,645)
1824 114070872 : lu(k,647) = lu(k,647) - lu(k,418) * lu(k,645)
1825 114070872 : lu(k,648) = - lu(k,419) * lu(k,645)
1826 114070872 : lu(k,649) = lu(k,649) - lu(k,420) * lu(k,645)
1827 114070872 : lu(k,650) = - lu(k,421) * lu(k,645)
1828 114070872 : lu(k,651) = lu(k,651) - lu(k,422) * lu(k,645)
1829 114070872 : lu(k,654) = - lu(k,423) * lu(k,645)
1830 114070872 : lu(k,655) = lu(k,655) - lu(k,424) * lu(k,645)
1831 114070872 : lu(k,657) = lu(k,657) - lu(k,425) * lu(k,645)
1832 114070872 : lu(k,658) = lu(k,658) - lu(k,426) * lu(k,645)
1833 114070872 : lu(k,659) = lu(k,659) - lu(k,427) * lu(k,645)
1834 114070872 : lu(k,660) = lu(k,660) - lu(k,428) * lu(k,645)
1835 114070872 : lu(k,665) = lu(k,665) - lu(k,429) * lu(k,645)
1836 114070872 : lu(k,666) = lu(k,666) - lu(k,430) * lu(k,645)
1837 114070872 : lu(k,781) = lu(k,781) - lu(k,417) * lu(k,780)
1838 114070872 : lu(k,784) = lu(k,784) - lu(k,418) * lu(k,780)
1839 114070872 : lu(k,786) = lu(k,786) - lu(k,419) * lu(k,780)
1840 114070872 : lu(k,787) = lu(k,787) - lu(k,420) * lu(k,780)
1841 114070872 : lu(k,788) = lu(k,788) - lu(k,421) * lu(k,780)
1842 114070872 : lu(k,789) = lu(k,789) - lu(k,422) * lu(k,780)
1843 114070872 : lu(k,793) = - lu(k,423) * lu(k,780)
1844 114070872 : lu(k,794) = lu(k,794) - lu(k,424) * lu(k,780)
1845 114070872 : lu(k,796) = lu(k,796) - lu(k,425) * lu(k,780)
1846 114070872 : lu(k,797) = lu(k,797) - lu(k,426) * lu(k,780)
1847 114070872 : lu(k,800) = lu(k,800) - lu(k,427) * lu(k,780)
1848 114070872 : lu(k,801) = lu(k,801) - lu(k,428) * lu(k,780)
1849 114070872 : lu(k,807) = lu(k,807) - lu(k,429) * lu(k,780)
1850 114070872 : lu(k,808) = lu(k,808) - lu(k,430) * lu(k,780)
1851 114070872 : lu(k,975) = lu(k,975) - lu(k,417) * lu(k,974)
1852 114070872 : lu(k,979) = lu(k,979) - lu(k,418) * lu(k,974)
1853 114070872 : lu(k,981) = lu(k,981) - lu(k,419) * lu(k,974)
1854 114070872 : lu(k,982) = lu(k,982) - lu(k,420) * lu(k,974)
1855 114070872 : lu(k,983) = lu(k,983) - lu(k,421) * lu(k,974)
1856 114070872 : lu(k,984) = lu(k,984) - lu(k,422) * lu(k,974)
1857 114070872 : lu(k,989) = lu(k,989) - lu(k,423) * lu(k,974)
1858 114070872 : lu(k,991) = lu(k,991) - lu(k,424) * lu(k,974)
1859 114070872 : lu(k,993) = lu(k,993) - lu(k,425) * lu(k,974)
1860 114070872 : lu(k,994) = lu(k,994) - lu(k,426) * lu(k,974)
1861 114070872 : lu(k,997) = lu(k,997) - lu(k,427) * lu(k,974)
1862 114070872 : lu(k,998) = lu(k,998) - lu(k,428) * lu(k,974)
1863 114070872 : lu(k,1004) = lu(k,1004) - lu(k,429) * lu(k,974)
1864 114070872 : lu(k,1005) = lu(k,1005) - lu(k,430) * lu(k,974)
1865 114070872 : lu(k,1465) = lu(k,1465) - lu(k,417) * lu(k,1464)
1866 114070872 : lu(k,1467) = lu(k,1467) - lu(k,418) * lu(k,1464)
1867 114070872 : lu(k,1469) = lu(k,1469) - lu(k,419) * lu(k,1464)
1868 114070872 : lu(k,1470) = lu(k,1470) - lu(k,420) * lu(k,1464)
1869 114070872 : lu(k,1474) = lu(k,1474) - lu(k,421) * lu(k,1464)
1870 114070872 : lu(k,1476) = lu(k,1476) - lu(k,422) * lu(k,1464)
1871 114070872 : lu(k,1483) = lu(k,1483) - lu(k,423) * lu(k,1464)
1872 114070872 : lu(k,1485) = lu(k,1485) - lu(k,424) * lu(k,1464)
1873 114070872 : lu(k,1487) = lu(k,1487) - lu(k,425) * lu(k,1464)
1874 114070872 : lu(k,1488) = lu(k,1488) - lu(k,426) * lu(k,1464)
1875 114070872 : lu(k,1493) = lu(k,1493) - lu(k,427) * lu(k,1464)
1876 114070872 : lu(k,1494) = lu(k,1494) - lu(k,428) * lu(k,1464)
1877 114070872 : lu(k,1500) = lu(k,1500) - lu(k,429) * lu(k,1464)
1878 114070872 : lu(k,1501) = lu(k,1501) - lu(k,430) * lu(k,1464)
1879 114070872 : lu(k,1506) = lu(k,1506) - lu(k,417) * lu(k,1505)
1880 114070872 : lu(k,1509) = lu(k,1509) - lu(k,418) * lu(k,1505)
1881 114070872 : lu(k,1511) = - lu(k,419) * lu(k,1505)
1882 114070872 : lu(k,1512) = - lu(k,420) * lu(k,1505)
1883 114070872 : lu(k,1515) = lu(k,1515) - lu(k,421) * lu(k,1505)
1884 114070872 : lu(k,1517) = lu(k,1517) - lu(k,422) * lu(k,1505)
1885 114070872 : lu(k,1524) = lu(k,1524) - lu(k,423) * lu(k,1505)
1886 114070872 : lu(k,1526) = - lu(k,424) * lu(k,1505)
1887 114070872 : lu(k,1528) = - lu(k,425) * lu(k,1505)
1888 114070872 : lu(k,1529) = lu(k,1529) - lu(k,426) * lu(k,1505)
1889 114070872 : lu(k,1534) = lu(k,1534) - lu(k,427) * lu(k,1505)
1890 114070872 : lu(k,1535) = lu(k,1535) - lu(k,428) * lu(k,1505)
1891 114070872 : lu(k,1541) = lu(k,1541) - lu(k,429) * lu(k,1505)
1892 114070872 : lu(k,1542) = lu(k,1542) - lu(k,430) * lu(k,1505)
1893 114070872 : lu(k,2047) = lu(k,2047) - lu(k,417) * lu(k,2046)
1894 114070872 : lu(k,2055) = lu(k,2055) - lu(k,418) * lu(k,2046)
1895 114070872 : lu(k,2059) = - lu(k,419) * lu(k,2046)
1896 114070872 : lu(k,2060) = lu(k,2060) - lu(k,420) * lu(k,2046)
1897 114070872 : lu(k,2063) = lu(k,2063) - lu(k,421) * lu(k,2046)
1898 114070872 : lu(k,2065) = lu(k,2065) - lu(k,422) * lu(k,2046)
1899 114070872 : lu(k,2072) = lu(k,2072) - lu(k,423) * lu(k,2046)
1900 114070872 : lu(k,2074) = lu(k,2074) - lu(k,424) * lu(k,2046)
1901 114070872 : lu(k,2076) = - lu(k,425) * lu(k,2046)
1902 114070872 : lu(k,2077) = lu(k,2077) - lu(k,426) * lu(k,2046)
1903 114070872 : lu(k,2082) = lu(k,2082) - lu(k,427) * lu(k,2046)
1904 114070872 : lu(k,2083) = lu(k,2083) - lu(k,428) * lu(k,2046)
1905 114070872 : lu(k,2089) = - lu(k,429) * lu(k,2046)
1906 117656469 : lu(k,2090) = lu(k,2090) - lu(k,430) * lu(k,2046)
1907 : end do
1908 3585597 : end subroutine lu_fac10
1909 3585597 : subroutine lu_fac11( avec_len, lu )
1910 : use chem_mods, only : nzcnt
1911 : use shr_kind_mod, only : r8 => shr_kind_r8
1912 : implicit none
1913 : !-----------------------------------------------------------------------
1914 : ! ... dummy args
1915 : !-----------------------------------------------------------------------
1916 : integer, intent(in) :: avec_len
1917 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1918 : !-----------------------------------------------------------------------
1919 : ! ... local variables
1920 : !-----------------------------------------------------------------------
1921 : integer :: k
1922 117656469 : do k = 1,avec_len
1923 114070872 : lu(k,432) = 1._r8 / lu(k,432)
1924 114070872 : lu(k,433) = lu(k,433) * lu(k,432)
1925 114070872 : lu(k,434) = lu(k,434) * lu(k,432)
1926 114070872 : lu(k,435) = lu(k,435) * lu(k,432)
1927 114070872 : lu(k,436) = lu(k,436) * lu(k,432)
1928 114070872 : lu(k,437) = lu(k,437) * lu(k,432)
1929 114070872 : lu(k,438) = lu(k,438) * lu(k,432)
1930 114070872 : lu(k,439) = lu(k,439) * lu(k,432)
1931 114070872 : lu(k,440) = lu(k,440) * lu(k,432)
1932 114070872 : lu(k,441) = lu(k,441) * lu(k,432)
1933 114070872 : lu(k,442) = lu(k,442) * lu(k,432)
1934 114070872 : lu(k,648) = lu(k,648) - lu(k,433) * lu(k,646)
1935 114070872 : lu(k,650) = lu(k,650) - lu(k,434) * lu(k,646)
1936 114070872 : lu(k,651) = lu(k,651) - lu(k,435) * lu(k,646)
1937 114070872 : lu(k,653) = - lu(k,436) * lu(k,646)
1938 114070872 : lu(k,656) = - lu(k,437) * lu(k,646)
1939 114070872 : lu(k,657) = lu(k,657) - lu(k,438) * lu(k,646)
1940 114070872 : lu(k,660) = lu(k,660) - lu(k,439) * lu(k,646)
1941 114070872 : lu(k,661) = - lu(k,440) * lu(k,646)
1942 114070872 : lu(k,664) = - lu(k,441) * lu(k,646)
1943 114070872 : lu(k,666) = lu(k,666) - lu(k,442) * lu(k,646)
1944 114070872 : lu(k,786) = lu(k,786) - lu(k,433) * lu(k,781)
1945 114070872 : lu(k,788) = lu(k,788) - lu(k,434) * lu(k,781)
1946 114070872 : lu(k,789) = lu(k,789) - lu(k,435) * lu(k,781)
1947 114070872 : lu(k,791) = lu(k,791) - lu(k,436) * lu(k,781)
1948 114070872 : lu(k,795) = lu(k,795) - lu(k,437) * lu(k,781)
1949 114070872 : lu(k,796) = lu(k,796) - lu(k,438) * lu(k,781)
1950 114070872 : lu(k,801) = lu(k,801) - lu(k,439) * lu(k,781)
1951 114070872 : lu(k,802) = - lu(k,440) * lu(k,781)
1952 114070872 : lu(k,806) = lu(k,806) - lu(k,441) * lu(k,781)
1953 114070872 : lu(k,808) = lu(k,808) - lu(k,442) * lu(k,781)
1954 114070872 : lu(k,898) = lu(k,898) - lu(k,433) * lu(k,894)
1955 114070872 : lu(k,900) = lu(k,900) - lu(k,434) * lu(k,894)
1956 114070872 : lu(k,901) = lu(k,901) - lu(k,435) * lu(k,894)
1957 114070872 : lu(k,903) = lu(k,903) - lu(k,436) * lu(k,894)
1958 114070872 : lu(k,908) = lu(k,908) - lu(k,437) * lu(k,894)
1959 114070872 : lu(k,909) = lu(k,909) - lu(k,438) * lu(k,894)
1960 114070872 : lu(k,914) = lu(k,914) - lu(k,439) * lu(k,894)
1961 114070872 : lu(k,915) = lu(k,915) - lu(k,440) * lu(k,894)
1962 114070872 : lu(k,919) = lu(k,919) - lu(k,441) * lu(k,894)
1963 114070872 : lu(k,921) = lu(k,921) - lu(k,442) * lu(k,894)
1964 114070872 : lu(k,981) = lu(k,981) - lu(k,433) * lu(k,975)
1965 114070872 : lu(k,983) = lu(k,983) - lu(k,434) * lu(k,975)
1966 114070872 : lu(k,984) = lu(k,984) - lu(k,435) * lu(k,975)
1967 114070872 : lu(k,986) = lu(k,986) - lu(k,436) * lu(k,975)
1968 114070872 : lu(k,992) = lu(k,992) - lu(k,437) * lu(k,975)
1969 114070872 : lu(k,993) = lu(k,993) - lu(k,438) * lu(k,975)
1970 114070872 : lu(k,998) = lu(k,998) - lu(k,439) * lu(k,975)
1971 114070872 : lu(k,999) = lu(k,999) - lu(k,440) * lu(k,975)
1972 114070872 : lu(k,1003) = lu(k,1003) - lu(k,441) * lu(k,975)
1973 114070872 : lu(k,1005) = lu(k,1005) - lu(k,442) * lu(k,975)
1974 114070872 : lu(k,1094) = lu(k,1094) - lu(k,433) * lu(k,1090)
1975 114070872 : lu(k,1099) = lu(k,1099) - lu(k,434) * lu(k,1090)
1976 114070872 : lu(k,1101) = lu(k,1101) - lu(k,435) * lu(k,1090)
1977 114070872 : lu(k,1104) = lu(k,1104) - lu(k,436) * lu(k,1090)
1978 114070872 : lu(k,1111) = lu(k,1111) - lu(k,437) * lu(k,1090)
1979 114070872 : lu(k,1112) = lu(k,1112) - lu(k,438) * lu(k,1090)
1980 114070872 : lu(k,1119) = - lu(k,439) * lu(k,1090)
1981 114070872 : lu(k,1120) = lu(k,1120) - lu(k,440) * lu(k,1090)
1982 114070872 : lu(k,1124) = lu(k,1124) - lu(k,441) * lu(k,1090)
1983 114070872 : lu(k,1126) = lu(k,1126) - lu(k,442) * lu(k,1090)
1984 114070872 : lu(k,1469) = lu(k,1469) - lu(k,433) * lu(k,1465)
1985 114070872 : lu(k,1474) = lu(k,1474) - lu(k,434) * lu(k,1465)
1986 114070872 : lu(k,1476) = lu(k,1476) - lu(k,435) * lu(k,1465)
1987 114070872 : lu(k,1479) = lu(k,1479) - lu(k,436) * lu(k,1465)
1988 114070872 : lu(k,1486) = lu(k,1486) - lu(k,437) * lu(k,1465)
1989 114070872 : lu(k,1487) = lu(k,1487) - lu(k,438) * lu(k,1465)
1990 114070872 : lu(k,1494) = lu(k,1494) - lu(k,439) * lu(k,1465)
1991 114070872 : lu(k,1495) = lu(k,1495) - lu(k,440) * lu(k,1465)
1992 114070872 : lu(k,1499) = lu(k,1499) - lu(k,441) * lu(k,1465)
1993 114070872 : lu(k,1501) = lu(k,1501) - lu(k,442) * lu(k,1465)
1994 114070872 : lu(k,1511) = lu(k,1511) - lu(k,433) * lu(k,1506)
1995 114070872 : lu(k,1515) = lu(k,1515) - lu(k,434) * lu(k,1506)
1996 114070872 : lu(k,1517) = lu(k,1517) - lu(k,435) * lu(k,1506)
1997 114070872 : lu(k,1520) = - lu(k,436) * lu(k,1506)
1998 114070872 : lu(k,1527) = - lu(k,437) * lu(k,1506)
1999 114070872 : lu(k,1528) = lu(k,1528) - lu(k,438) * lu(k,1506)
2000 114070872 : lu(k,1535) = lu(k,1535) - lu(k,439) * lu(k,1506)
2001 114070872 : lu(k,1536) = lu(k,1536) - lu(k,440) * lu(k,1506)
2002 114070872 : lu(k,1540) = lu(k,1540) - lu(k,441) * lu(k,1506)
2003 114070872 : lu(k,1542) = lu(k,1542) - lu(k,442) * lu(k,1506)
2004 114070872 : lu(k,1954) = lu(k,1954) - lu(k,433) * lu(k,1946)
2005 114070872 : lu(k,1958) = lu(k,1958) - lu(k,434) * lu(k,1946)
2006 114070872 : lu(k,1960) = lu(k,1960) - lu(k,435) * lu(k,1946)
2007 114070872 : lu(k,1963) = lu(k,1963) - lu(k,436) * lu(k,1946)
2008 114070872 : lu(k,1970) = lu(k,1970) - lu(k,437) * lu(k,1946)
2009 114070872 : lu(k,1971) = lu(k,1971) - lu(k,438) * lu(k,1946)
2010 114070872 : lu(k,1978) = - lu(k,439) * lu(k,1946)
2011 114070872 : lu(k,1979) = lu(k,1979) - lu(k,440) * lu(k,1946)
2012 114070872 : lu(k,1983) = lu(k,1983) - lu(k,441) * lu(k,1946)
2013 114070872 : lu(k,1985) = lu(k,1985) - lu(k,442) * lu(k,1946)
2014 114070872 : lu(k,2059) = lu(k,2059) - lu(k,433) * lu(k,2047)
2015 114070872 : lu(k,2063) = lu(k,2063) - lu(k,434) * lu(k,2047)
2016 114070872 : lu(k,2065) = lu(k,2065) - lu(k,435) * lu(k,2047)
2017 114070872 : lu(k,2068) = - lu(k,436) * lu(k,2047)
2018 114070872 : lu(k,2075) = lu(k,2075) - lu(k,437) * lu(k,2047)
2019 114070872 : lu(k,2076) = lu(k,2076) - lu(k,438) * lu(k,2047)
2020 114070872 : lu(k,2083) = lu(k,2083) - lu(k,439) * lu(k,2047)
2021 114070872 : lu(k,2084) = lu(k,2084) - lu(k,440) * lu(k,2047)
2022 114070872 : lu(k,2088) = lu(k,2088) - lu(k,441) * lu(k,2047)
2023 114070872 : lu(k,2090) = lu(k,2090) - lu(k,442) * lu(k,2047)
2024 114070872 : lu(k,446) = 1._r8 / lu(k,446)
2025 114070872 : lu(k,447) = lu(k,447) * lu(k,446)
2026 114070872 : lu(k,448) = lu(k,448) * lu(k,446)
2027 114070872 : lu(k,449) = lu(k,449) * lu(k,446)
2028 114070872 : lu(k,450) = lu(k,450) * lu(k,446)
2029 114070872 : lu(k,451) = lu(k,451) * lu(k,446)
2030 114070872 : lu(k,452) = lu(k,452) * lu(k,446)
2031 114070872 : lu(k,453) = lu(k,453) * lu(k,446)
2032 114070872 : lu(k,454) = lu(k,454) * lu(k,446)
2033 114070872 : lu(k,455) = lu(k,455) * lu(k,446)
2034 114070872 : lu(k,456) = lu(k,456) * lu(k,446)
2035 114070872 : lu(k,457) = lu(k,457) * lu(k,446)
2036 114070872 : lu(k,458) = lu(k,458) * lu(k,446)
2037 114070872 : lu(k,982) = lu(k,982) - lu(k,447) * lu(k,976)
2038 114070872 : lu(k,983) = lu(k,983) - lu(k,448) * lu(k,976)
2039 114070872 : lu(k,984) = lu(k,984) - lu(k,449) * lu(k,976)
2040 114070872 : lu(k,985) = lu(k,985) - lu(k,450) * lu(k,976)
2041 114070872 : lu(k,987) = - lu(k,451) * lu(k,976)
2042 114070872 : lu(k,989) = lu(k,989) - lu(k,452) * lu(k,976)
2043 114070872 : lu(k,991) = lu(k,991) - lu(k,453) * lu(k,976)
2044 114070872 : lu(k,992) = lu(k,992) - lu(k,454) * lu(k,976)
2045 114070872 : lu(k,996) = - lu(k,455) * lu(k,976)
2046 114070872 : lu(k,998) = lu(k,998) - lu(k,456) * lu(k,976)
2047 114070872 : lu(k,999) = lu(k,999) - lu(k,457) * lu(k,976)
2048 114070872 : lu(k,1003) = lu(k,1003) - lu(k,458) * lu(k,976)
2049 114070872 : lu(k,1055) = lu(k,1055) - lu(k,447) * lu(k,1053)
2050 114070872 : lu(k,1056) = lu(k,1056) - lu(k,448) * lu(k,1053)
2051 114070872 : lu(k,1057) = lu(k,1057) - lu(k,449) * lu(k,1053)
2052 114070872 : lu(k,1058) = lu(k,1058) - lu(k,450) * lu(k,1053)
2053 114070872 : lu(k,1060) = lu(k,1060) - lu(k,451) * lu(k,1053)
2054 114070872 : lu(k,1063) = lu(k,1063) - lu(k,452) * lu(k,1053)
2055 114070872 : lu(k,1065) = lu(k,1065) - lu(k,453) * lu(k,1053)
2056 114070872 : lu(k,1066) = lu(k,1066) - lu(k,454) * lu(k,1053)
2057 114070872 : lu(k,1070) = lu(k,1070) - lu(k,455) * lu(k,1053)
2058 114070872 : lu(k,1074) = lu(k,1074) - lu(k,456) * lu(k,1053)
2059 114070872 : lu(k,1075) = lu(k,1075) - lu(k,457) * lu(k,1053)
2060 114070872 : lu(k,1079) = lu(k,1079) - lu(k,458) * lu(k,1053)
2061 114070872 : lu(k,1143) = lu(k,1143) - lu(k,447) * lu(k,1132)
2062 114070872 : lu(k,1147) = lu(k,1147) - lu(k,448) * lu(k,1132)
2063 114070872 : lu(k,1149) = lu(k,1149) - lu(k,449) * lu(k,1132)
2064 114070872 : lu(k,1151) = lu(k,1151) - lu(k,450) * lu(k,1132)
2065 114070872 : lu(k,1153) = lu(k,1153) - lu(k,451) * lu(k,1132)
2066 114070872 : lu(k,1156) = lu(k,1156) - lu(k,452) * lu(k,1132)
2067 114070872 : lu(k,1158) = lu(k,1158) - lu(k,453) * lu(k,1132)
2068 114070872 : lu(k,1159) = lu(k,1159) - lu(k,454) * lu(k,1132)
2069 114070872 : lu(k,1163) = lu(k,1163) - lu(k,455) * lu(k,1132)
2070 114070872 : lu(k,1167) = - lu(k,456) * lu(k,1132)
2071 114070872 : lu(k,1168) = lu(k,1168) - lu(k,457) * lu(k,1132)
2072 114070872 : lu(k,1172) = lu(k,1172) - lu(k,458) * lu(k,1132)
2073 114070872 : lu(k,1272) = lu(k,1272) - lu(k,447) * lu(k,1268)
2074 114070872 : lu(k,1275) = lu(k,1275) - lu(k,448) * lu(k,1268)
2075 114070872 : lu(k,1277) = lu(k,1277) - lu(k,449) * lu(k,1268)
2076 114070872 : lu(k,1279) = lu(k,1279) - lu(k,450) * lu(k,1268)
2077 114070872 : lu(k,1281) = lu(k,1281) - lu(k,451) * lu(k,1268)
2078 114070872 : lu(k,1284) = lu(k,1284) - lu(k,452) * lu(k,1268)
2079 114070872 : lu(k,1286) = lu(k,1286) - lu(k,453) * lu(k,1268)
2080 114070872 : lu(k,1287) = lu(k,1287) - lu(k,454) * lu(k,1268)
2081 114070872 : lu(k,1291) = lu(k,1291) - lu(k,455) * lu(k,1268)
2082 114070872 : lu(k,1295) = - lu(k,456) * lu(k,1268)
2083 114070872 : lu(k,1296) = - lu(k,457) * lu(k,1268)
2084 114070872 : lu(k,1300) = lu(k,1300) - lu(k,458) * lu(k,1268)
2085 114070872 : lu(k,1373) = lu(k,1373) - lu(k,447) * lu(k,1365)
2086 114070872 : lu(k,1377) = lu(k,1377) - lu(k,448) * lu(k,1365)
2087 114070872 : lu(k,1379) = lu(k,1379) - lu(k,449) * lu(k,1365)
2088 114070872 : lu(k,1381) = lu(k,1381) - lu(k,450) * lu(k,1365)
2089 114070872 : lu(k,1383) = lu(k,1383) - lu(k,451) * lu(k,1365)
2090 114070872 : lu(k,1386) = lu(k,1386) - lu(k,452) * lu(k,1365)
2091 114070872 : lu(k,1388) = lu(k,1388) - lu(k,453) * lu(k,1365)
2092 114070872 : lu(k,1389) = lu(k,1389) - lu(k,454) * lu(k,1365)
2093 114070872 : lu(k,1393) = lu(k,1393) - lu(k,455) * lu(k,1365)
2094 114070872 : lu(k,1397) = lu(k,1397) - lu(k,456) * lu(k,1365)
2095 114070872 : lu(k,1398) = lu(k,1398) - lu(k,457) * lu(k,1365)
2096 114070872 : lu(k,1402) = lu(k,1402) - lu(k,458) * lu(k,1365)
2097 114070872 : lu(k,1423) = lu(k,1423) - lu(k,447) * lu(k,1416)
2098 114070872 : lu(k,1426) = lu(k,1426) - lu(k,448) * lu(k,1416)
2099 114070872 : lu(k,1428) = lu(k,1428) - lu(k,449) * lu(k,1416)
2100 114070872 : lu(k,1430) = lu(k,1430) - lu(k,450) * lu(k,1416)
2101 114070872 : lu(k,1432) = lu(k,1432) - lu(k,451) * lu(k,1416)
2102 114070872 : lu(k,1435) = lu(k,1435) - lu(k,452) * lu(k,1416)
2103 114070872 : lu(k,1437) = lu(k,1437) - lu(k,453) * lu(k,1416)
2104 114070872 : lu(k,1438) = lu(k,1438) - lu(k,454) * lu(k,1416)
2105 114070872 : lu(k,1442) = lu(k,1442) - lu(k,455) * lu(k,1416)
2106 114070872 : lu(k,1446) = lu(k,1446) - lu(k,456) * lu(k,1416)
2107 114070872 : lu(k,1447) = - lu(k,457) * lu(k,1416)
2108 114070872 : lu(k,1451) = lu(k,1451) - lu(k,458) * lu(k,1416)
2109 114070872 : lu(k,1592) = lu(k,1592) - lu(k,447) * lu(k,1580)
2110 114070872 : lu(k,1596) = - lu(k,448) * lu(k,1580)
2111 114070872 : lu(k,1598) = lu(k,1598) - lu(k,449) * lu(k,1580)
2112 114070872 : lu(k,1600) = lu(k,1600) - lu(k,450) * lu(k,1580)
2113 114070872 : lu(k,1602) = lu(k,1602) - lu(k,451) * lu(k,1580)
2114 114070872 : lu(k,1605) = lu(k,1605) - lu(k,452) * lu(k,1580)
2115 114070872 : lu(k,1607) = lu(k,1607) - lu(k,453) * lu(k,1580)
2116 114070872 : lu(k,1608) = lu(k,1608) - lu(k,454) * lu(k,1580)
2117 114070872 : lu(k,1612) = lu(k,1612) - lu(k,455) * lu(k,1580)
2118 114070872 : lu(k,1616) = lu(k,1616) - lu(k,456) * lu(k,1580)
2119 114070872 : lu(k,1617) = lu(k,1617) - lu(k,457) * lu(k,1580)
2120 114070872 : lu(k,1621) = lu(k,1621) - lu(k,458) * lu(k,1580)
2121 114070872 : lu(k,1803) = lu(k,1803) - lu(k,447) * lu(k,1793)
2122 114070872 : lu(k,1806) = lu(k,1806) - lu(k,448) * lu(k,1793)
2123 114070872 : lu(k,1808) = lu(k,1808) - lu(k,449) * lu(k,1793)
2124 114070872 : lu(k,1810) = - lu(k,450) * lu(k,1793)
2125 114070872 : lu(k,1812) = - lu(k,451) * lu(k,1793)
2126 114070872 : lu(k,1815) = lu(k,1815) - lu(k,452) * lu(k,1793)
2127 114070872 : lu(k,1817) = lu(k,1817) - lu(k,453) * lu(k,1793)
2128 114070872 : lu(k,1818) = lu(k,1818) - lu(k,454) * lu(k,1793)
2129 114070872 : lu(k,1822) = - lu(k,455) * lu(k,1793)
2130 114070872 : lu(k,1826) = - lu(k,456) * lu(k,1793)
2131 114070872 : lu(k,1827) = lu(k,1827) - lu(k,457) * lu(k,1793)
2132 114070872 : lu(k,1831) = lu(k,1831) - lu(k,458) * lu(k,1793)
2133 114070872 : lu(k,1955) = - lu(k,447) * lu(k,1947)
2134 114070872 : lu(k,1958) = lu(k,1958) - lu(k,448) * lu(k,1947)
2135 114070872 : lu(k,1960) = lu(k,1960) - lu(k,449) * lu(k,1947)
2136 114070872 : lu(k,1962) = lu(k,1962) - lu(k,450) * lu(k,1947)
2137 114070872 : lu(k,1964) = lu(k,1964) - lu(k,451) * lu(k,1947)
2138 114070872 : lu(k,1967) = lu(k,1967) - lu(k,452) * lu(k,1947)
2139 114070872 : lu(k,1969) = lu(k,1969) - lu(k,453) * lu(k,1947)
2140 114070872 : lu(k,1970) = lu(k,1970) - lu(k,454) * lu(k,1947)
2141 114070872 : lu(k,1974) = lu(k,1974) - lu(k,455) * lu(k,1947)
2142 114070872 : lu(k,1978) = lu(k,1978) - lu(k,456) * lu(k,1947)
2143 114070872 : lu(k,1979) = lu(k,1979) - lu(k,457) * lu(k,1947)
2144 114070872 : lu(k,1983) = lu(k,1983) - lu(k,458) * lu(k,1947)
2145 114070872 : lu(k,461) = 1._r8 / lu(k,461)
2146 114070872 : lu(k,462) = lu(k,462) * lu(k,461)
2147 114070872 : lu(k,463) = lu(k,463) * lu(k,461)
2148 114070872 : lu(k,464) = lu(k,464) * lu(k,461)
2149 114070872 : lu(k,465) = lu(k,465) * lu(k,461)
2150 114070872 : lu(k,466) = lu(k,466) * lu(k,461)
2151 114070872 : lu(k,467) = lu(k,467) * lu(k,461)
2152 114070872 : lu(k,468) = lu(k,468) * lu(k,461)
2153 114070872 : lu(k,469) = lu(k,469) * lu(k,461)
2154 114070872 : lu(k,470) = lu(k,470) * lu(k,461)
2155 114070872 : lu(k,471) = lu(k,471) * lu(k,461)
2156 114070872 : lu(k,472) = lu(k,472) * lu(k,461)
2157 114070872 : lu(k,789) = lu(k,789) - lu(k,462) * lu(k,782)
2158 114070872 : lu(k,790) = lu(k,790) - lu(k,463) * lu(k,782)
2159 114070872 : lu(k,792) = - lu(k,464) * lu(k,782)
2160 114070872 : lu(k,794) = lu(k,794) - lu(k,465) * lu(k,782)
2161 114070872 : lu(k,795) = lu(k,795) - lu(k,466) * lu(k,782)
2162 114070872 : lu(k,798) = lu(k,798) - lu(k,467) * lu(k,782)
2163 114070872 : lu(k,799) = lu(k,799) - lu(k,468) * lu(k,782)
2164 114070872 : lu(k,801) = lu(k,801) - lu(k,469) * lu(k,782)
2165 114070872 : lu(k,804) = lu(k,804) - lu(k,470) * lu(k,782)
2166 114070872 : lu(k,805) = lu(k,805) - lu(k,471) * lu(k,782)
2167 114070872 : lu(k,808) = lu(k,808) - lu(k,472) * lu(k,782)
2168 114070872 : lu(k,1057) = lu(k,1057) - lu(k,462) * lu(k,1054)
2169 114070872 : lu(k,1058) = lu(k,1058) - lu(k,463) * lu(k,1054)
2170 114070872 : lu(k,1062) = lu(k,1062) - lu(k,464) * lu(k,1054)
2171 114070872 : lu(k,1065) = lu(k,1065) - lu(k,465) * lu(k,1054)
2172 114070872 : lu(k,1066) = lu(k,1066) - lu(k,466) * lu(k,1054)
2173 114070872 : lu(k,1069) = lu(k,1069) - lu(k,467) * lu(k,1054)
2174 114070872 : lu(k,1070) = lu(k,1070) - lu(k,468) * lu(k,1054)
2175 114070872 : lu(k,1074) = lu(k,1074) - lu(k,469) * lu(k,1054)
2176 114070872 : lu(k,1077) = lu(k,1077) - lu(k,470) * lu(k,1054)
2177 114070872 : lu(k,1078) = lu(k,1078) - lu(k,471) * lu(k,1054)
2178 114070872 : lu(k,1081) = lu(k,1081) - lu(k,472) * lu(k,1054)
2179 114070872 : lu(k,1277) = lu(k,1277) - lu(k,462) * lu(k,1269)
2180 114070872 : lu(k,1279) = lu(k,1279) - lu(k,463) * lu(k,1269)
2181 114070872 : lu(k,1283) = - lu(k,464) * lu(k,1269)
2182 114070872 : lu(k,1286) = lu(k,1286) - lu(k,465) * lu(k,1269)
2183 114070872 : lu(k,1287) = lu(k,1287) - lu(k,466) * lu(k,1269)
2184 114070872 : lu(k,1290) = lu(k,1290) - lu(k,467) * lu(k,1269)
2185 114070872 : lu(k,1291) = lu(k,1291) - lu(k,468) * lu(k,1269)
2186 114070872 : lu(k,1295) = lu(k,1295) - lu(k,469) * lu(k,1269)
2187 114070872 : lu(k,1298) = lu(k,1298) - lu(k,470) * lu(k,1269)
2188 114070872 : lu(k,1299) = lu(k,1299) - lu(k,471) * lu(k,1269)
2189 114070872 : lu(k,1302) = lu(k,1302) - lu(k,472) * lu(k,1269)
2190 114070872 : lu(k,1379) = lu(k,1379) - lu(k,462) * lu(k,1366)
2191 114070872 : lu(k,1381) = lu(k,1381) - lu(k,463) * lu(k,1366)
2192 114070872 : lu(k,1385) = - lu(k,464) * lu(k,1366)
2193 114070872 : lu(k,1388) = lu(k,1388) - lu(k,465) * lu(k,1366)
2194 114070872 : lu(k,1389) = lu(k,1389) - lu(k,466) * lu(k,1366)
2195 114070872 : lu(k,1392) = lu(k,1392) - lu(k,467) * lu(k,1366)
2196 114070872 : lu(k,1393) = lu(k,1393) - lu(k,468) * lu(k,1366)
2197 114070872 : lu(k,1397) = lu(k,1397) - lu(k,469) * lu(k,1366)
2198 114070872 : lu(k,1400) = lu(k,1400) - lu(k,470) * lu(k,1366)
2199 114070872 : lu(k,1401) = lu(k,1401) - lu(k,471) * lu(k,1366)
2200 114070872 : lu(k,1404) = lu(k,1404) - lu(k,472) * lu(k,1366)
2201 114070872 : lu(k,1428) = lu(k,1428) - lu(k,462) * lu(k,1417)
2202 114070872 : lu(k,1430) = lu(k,1430) - lu(k,463) * lu(k,1417)
2203 114070872 : lu(k,1434) = - lu(k,464) * lu(k,1417)
2204 114070872 : lu(k,1437) = lu(k,1437) - lu(k,465) * lu(k,1417)
2205 114070872 : lu(k,1438) = lu(k,1438) - lu(k,466) * lu(k,1417)
2206 114070872 : lu(k,1441) = lu(k,1441) - lu(k,467) * lu(k,1417)
2207 114070872 : lu(k,1442) = lu(k,1442) - lu(k,468) * lu(k,1417)
2208 114070872 : lu(k,1446) = lu(k,1446) - lu(k,469) * lu(k,1417)
2209 114070872 : lu(k,1449) = lu(k,1449) - lu(k,470) * lu(k,1417)
2210 114070872 : lu(k,1450) = lu(k,1450) - lu(k,471) * lu(k,1417)
2211 114070872 : lu(k,1453) = lu(k,1453) - lu(k,472) * lu(k,1417)
2212 114070872 : lu(k,1553) = - lu(k,462) * lu(k,1546)
2213 114070872 : lu(k,1555) = lu(k,1555) - lu(k,463) * lu(k,1546)
2214 114070872 : lu(k,1559) = lu(k,1559) - lu(k,464) * lu(k,1546)
2215 114070872 : lu(k,1562) = lu(k,1562) - lu(k,465) * lu(k,1546)
2216 114070872 : lu(k,1563) = lu(k,1563) - lu(k,466) * lu(k,1546)
2217 114070872 : lu(k,1566) = lu(k,1566) - lu(k,467) * lu(k,1546)
2218 114070872 : lu(k,1567) = lu(k,1567) - lu(k,468) * lu(k,1546)
2219 114070872 : lu(k,1571) = lu(k,1571) - lu(k,469) * lu(k,1546)
2220 114070872 : lu(k,1574) = lu(k,1574) - lu(k,470) * lu(k,1546)
2221 114070872 : lu(k,1575) = lu(k,1575) - lu(k,471) * lu(k,1546)
2222 114070872 : lu(k,1578) = lu(k,1578) - lu(k,472) * lu(k,1546)
2223 114070872 : lu(k,1598) = lu(k,1598) - lu(k,462) * lu(k,1581)
2224 114070872 : lu(k,1600) = lu(k,1600) - lu(k,463) * lu(k,1581)
2225 114070872 : lu(k,1604) = lu(k,1604) - lu(k,464) * lu(k,1581)
2226 114070872 : lu(k,1607) = lu(k,1607) - lu(k,465) * lu(k,1581)
2227 114070872 : lu(k,1608) = lu(k,1608) - lu(k,466) * lu(k,1581)
2228 114070872 : lu(k,1611) = lu(k,1611) - lu(k,467) * lu(k,1581)
2229 114070872 : lu(k,1612) = lu(k,1612) - lu(k,468) * lu(k,1581)
2230 114070872 : lu(k,1616) = lu(k,1616) - lu(k,469) * lu(k,1581)
2231 114070872 : lu(k,1619) = - lu(k,470) * lu(k,1581)
2232 114070872 : lu(k,1620) = - lu(k,471) * lu(k,1581)
2233 114070872 : lu(k,1623) = lu(k,1623) - lu(k,472) * lu(k,1581)
2234 114070872 : lu(k,1877) = lu(k,1877) - lu(k,462) * lu(k,1868)
2235 114070872 : lu(k,1879) = lu(k,1879) - lu(k,463) * lu(k,1868)
2236 114070872 : lu(k,1883) = - lu(k,464) * lu(k,1868)
2237 114070872 : lu(k,1886) = lu(k,1886) - lu(k,465) * lu(k,1868)
2238 114070872 : lu(k,1887) = lu(k,1887) - lu(k,466) * lu(k,1868)
2239 114070872 : lu(k,1890) = lu(k,1890) - lu(k,467) * lu(k,1868)
2240 114070872 : lu(k,1891) = lu(k,1891) - lu(k,468) * lu(k,1868)
2241 114070872 : lu(k,1895) = lu(k,1895) - lu(k,469) * lu(k,1868)
2242 114070872 : lu(k,1898) = lu(k,1898) - lu(k,470) * lu(k,1868)
2243 114070872 : lu(k,1899) = lu(k,1899) - lu(k,471) * lu(k,1868)
2244 114070872 : lu(k,1902) = lu(k,1902) - lu(k,472) * lu(k,1868)
2245 114070872 : lu(k,1918) = lu(k,1918) - lu(k,462) * lu(k,1907)
2246 114070872 : lu(k,1920) = lu(k,1920) - lu(k,463) * lu(k,1907)
2247 114070872 : lu(k,1924) = - lu(k,464) * lu(k,1907)
2248 114070872 : lu(k,1927) = lu(k,1927) - lu(k,465) * lu(k,1907)
2249 114070872 : lu(k,1928) = lu(k,1928) - lu(k,466) * lu(k,1907)
2250 114070872 : lu(k,1931) = lu(k,1931) - lu(k,467) * lu(k,1907)
2251 114070872 : lu(k,1932) = lu(k,1932) - lu(k,468) * lu(k,1907)
2252 114070872 : lu(k,1936) = lu(k,1936) - lu(k,469) * lu(k,1907)
2253 114070872 : lu(k,1939) = lu(k,1939) - lu(k,470) * lu(k,1907)
2254 114070872 : lu(k,1940) = lu(k,1940) - lu(k,471) * lu(k,1907)
2255 114070872 : lu(k,1943) = lu(k,1943) - lu(k,472) * lu(k,1907)
2256 114070872 : lu(k,2065) = lu(k,2065) - lu(k,462) * lu(k,2048)
2257 114070872 : lu(k,2067) = lu(k,2067) - lu(k,463) * lu(k,2048)
2258 114070872 : lu(k,2071) = lu(k,2071) - lu(k,464) * lu(k,2048)
2259 114070872 : lu(k,2074) = lu(k,2074) - lu(k,465) * lu(k,2048)
2260 114070872 : lu(k,2075) = lu(k,2075) - lu(k,466) * lu(k,2048)
2261 114070872 : lu(k,2078) = - lu(k,467) * lu(k,2048)
2262 114070872 : lu(k,2079) = lu(k,2079) - lu(k,468) * lu(k,2048)
2263 114070872 : lu(k,2083) = lu(k,2083) - lu(k,469) * lu(k,2048)
2264 114070872 : lu(k,2086) = lu(k,2086) - lu(k,470) * lu(k,2048)
2265 114070872 : lu(k,2087) = - lu(k,471) * lu(k,2048)
2266 117656469 : lu(k,2090) = lu(k,2090) - lu(k,472) * lu(k,2048)
2267 : end do
2268 3585597 : end subroutine lu_fac11
2269 3585597 : subroutine lu_fac12( avec_len, lu )
2270 : use chem_mods, only : nzcnt
2271 : use shr_kind_mod, only : r8 => shr_kind_r8
2272 : implicit none
2273 : !-----------------------------------------------------------------------
2274 : ! ... dummy args
2275 : !-----------------------------------------------------------------------
2276 : integer, intent(in) :: avec_len
2277 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2278 : !-----------------------------------------------------------------------
2279 : ! ... local variables
2280 : !-----------------------------------------------------------------------
2281 : integer :: k
2282 117656469 : do k = 1,avec_len
2283 114070872 : lu(k,476) = 1._r8 / lu(k,476)
2284 114070872 : lu(k,477) = lu(k,477) * lu(k,476)
2285 114070872 : lu(k,478) = lu(k,478) * lu(k,476)
2286 114070872 : lu(k,479) = lu(k,479) * lu(k,476)
2287 114070872 : lu(k,480) = lu(k,480) * lu(k,476)
2288 114070872 : lu(k,481) = lu(k,481) * lu(k,476)
2289 114070872 : lu(k,482) = lu(k,482) * lu(k,476)
2290 114070872 : lu(k,483) = lu(k,483) * lu(k,476)
2291 114070872 : lu(k,484) = lu(k,484) * lu(k,476)
2292 114070872 : lu(k,485) = lu(k,485) * lu(k,476)
2293 114070872 : lu(k,486) = lu(k,486) * lu(k,476)
2294 114070872 : lu(k,487) = lu(k,487) * lu(k,476)
2295 114070872 : lu(k,488) = lu(k,488) * lu(k,476)
2296 114070872 : lu(k,489) = lu(k,489) * lu(k,476)
2297 114070872 : lu(k,714) = lu(k,714) - lu(k,477) * lu(k,713)
2298 114070872 : lu(k,715) = lu(k,715) - lu(k,478) * lu(k,713)
2299 114070872 : lu(k,718) = lu(k,718) - lu(k,479) * lu(k,713)
2300 114070872 : lu(k,719) = lu(k,719) - lu(k,480) * lu(k,713)
2301 114070872 : lu(k,720) = lu(k,720) - lu(k,481) * lu(k,713)
2302 114070872 : lu(k,722) = lu(k,722) - lu(k,482) * lu(k,713)
2303 114070872 : lu(k,723) = lu(k,723) - lu(k,483) * lu(k,713)
2304 114070872 : lu(k,724) = lu(k,724) - lu(k,484) * lu(k,713)
2305 114070872 : lu(k,727) = - lu(k,485) * lu(k,713)
2306 114070872 : lu(k,728) = lu(k,728) - lu(k,486) * lu(k,713)
2307 114070872 : lu(k,729) = - lu(k,487) * lu(k,713)
2308 114070872 : lu(k,730) = lu(k,730) - lu(k,488) * lu(k,713)
2309 114070872 : lu(k,732) = lu(k,732) - lu(k,489) * lu(k,713)
2310 114070872 : lu(k,978) = lu(k,978) - lu(k,477) * lu(k,977)
2311 114070872 : lu(k,980) = lu(k,980) - lu(k,478) * lu(k,977)
2312 114070872 : lu(k,983) = lu(k,983) - lu(k,479) * lu(k,977)
2313 114070872 : lu(k,984) = lu(k,984) - lu(k,480) * lu(k,977)
2314 114070872 : lu(k,986) = lu(k,986) - lu(k,481) * lu(k,977)
2315 114070872 : lu(k,991) = lu(k,991) - lu(k,482) * lu(k,977)
2316 114070872 : lu(k,992) = lu(k,992) - lu(k,483) * lu(k,977)
2317 114070872 : lu(k,993) = lu(k,993) - lu(k,484) * lu(k,977)
2318 114070872 : lu(k,998) = lu(k,998) - lu(k,485) * lu(k,977)
2319 114070872 : lu(k,999) = lu(k,999) - lu(k,486) * lu(k,977)
2320 114070872 : lu(k,1002) = lu(k,1002) - lu(k,487) * lu(k,977)
2321 114070872 : lu(k,1003) = lu(k,1003) - lu(k,488) * lu(k,977)
2322 114070872 : lu(k,1005) = lu(k,1005) - lu(k,489) * lu(k,977)
2323 114070872 : lu(k,1092) = lu(k,1092) - lu(k,477) * lu(k,1091)
2324 114070872 : lu(k,1093) = lu(k,1093) - lu(k,478) * lu(k,1091)
2325 114070872 : lu(k,1099) = lu(k,1099) - lu(k,479) * lu(k,1091)
2326 114070872 : lu(k,1101) = lu(k,1101) - lu(k,480) * lu(k,1091)
2327 114070872 : lu(k,1104) = lu(k,1104) - lu(k,481) * lu(k,1091)
2328 114070872 : lu(k,1110) = lu(k,1110) - lu(k,482) * lu(k,1091)
2329 114070872 : lu(k,1111) = lu(k,1111) - lu(k,483) * lu(k,1091)
2330 114070872 : lu(k,1112) = lu(k,1112) - lu(k,484) * lu(k,1091)
2331 114070872 : lu(k,1119) = lu(k,1119) - lu(k,485) * lu(k,1091)
2332 114070872 : lu(k,1120) = lu(k,1120) - lu(k,486) * lu(k,1091)
2333 114070872 : lu(k,1123) = - lu(k,487) * lu(k,1091)
2334 114070872 : lu(k,1124) = lu(k,1124) - lu(k,488) * lu(k,1091)
2335 114070872 : lu(k,1126) = lu(k,1126) - lu(k,489) * lu(k,1091)
2336 114070872 : lu(k,1368) = lu(k,1368) - lu(k,477) * lu(k,1367)
2337 114070872 : lu(k,1371) = lu(k,1371) - lu(k,478) * lu(k,1367)
2338 114070872 : lu(k,1377) = lu(k,1377) - lu(k,479) * lu(k,1367)
2339 114070872 : lu(k,1379) = lu(k,1379) - lu(k,480) * lu(k,1367)
2340 114070872 : lu(k,1382) = lu(k,1382) - lu(k,481) * lu(k,1367)
2341 114070872 : lu(k,1388) = lu(k,1388) - lu(k,482) * lu(k,1367)
2342 114070872 : lu(k,1389) = lu(k,1389) - lu(k,483) * lu(k,1367)
2343 114070872 : lu(k,1390) = lu(k,1390) - lu(k,484) * lu(k,1367)
2344 114070872 : lu(k,1397) = lu(k,1397) - lu(k,485) * lu(k,1367)
2345 114070872 : lu(k,1398) = lu(k,1398) - lu(k,486) * lu(k,1367)
2346 114070872 : lu(k,1401) = lu(k,1401) - lu(k,487) * lu(k,1367)
2347 114070872 : lu(k,1402) = lu(k,1402) - lu(k,488) * lu(k,1367)
2348 114070872 : lu(k,1404) = lu(k,1404) - lu(k,489) * lu(k,1367)
2349 114070872 : lu(k,1419) = - lu(k,477) * lu(k,1418)
2350 114070872 : lu(k,1421) = - lu(k,478) * lu(k,1418)
2351 114070872 : lu(k,1426) = lu(k,1426) - lu(k,479) * lu(k,1418)
2352 114070872 : lu(k,1428) = lu(k,1428) - lu(k,480) * lu(k,1418)
2353 114070872 : lu(k,1431) = - lu(k,481) * lu(k,1418)
2354 114070872 : lu(k,1437) = lu(k,1437) - lu(k,482) * lu(k,1418)
2355 114070872 : lu(k,1438) = lu(k,1438) - lu(k,483) * lu(k,1418)
2356 114070872 : lu(k,1439) = - lu(k,484) * lu(k,1418)
2357 114070872 : lu(k,1446) = lu(k,1446) - lu(k,485) * lu(k,1418)
2358 114070872 : lu(k,1447) = lu(k,1447) - lu(k,486) * lu(k,1418)
2359 114070872 : lu(k,1450) = lu(k,1450) - lu(k,487) * lu(k,1418)
2360 114070872 : lu(k,1451) = lu(k,1451) - lu(k,488) * lu(k,1418)
2361 114070872 : lu(k,1453) = lu(k,1453) - lu(k,489) * lu(k,1418)
2362 114070872 : lu(k,1715) = - lu(k,477) * lu(k,1714)
2363 114070872 : lu(k,1719) = - lu(k,478) * lu(k,1714)
2364 114070872 : lu(k,1723) = lu(k,1723) - lu(k,479) * lu(k,1714)
2365 114070872 : lu(k,1725) = lu(k,1725) - lu(k,480) * lu(k,1714)
2366 114070872 : lu(k,1727) = - lu(k,481) * lu(k,1714)
2367 114070872 : lu(k,1733) = lu(k,1733) - lu(k,482) * lu(k,1714)
2368 114070872 : lu(k,1734) = lu(k,1734) - lu(k,483) * lu(k,1714)
2369 114070872 : lu(k,1735) = - lu(k,484) * lu(k,1714)
2370 114070872 : lu(k,1742) = - lu(k,485) * lu(k,1714)
2371 114070872 : lu(k,1743) = lu(k,1743) - lu(k,486) * lu(k,1714)
2372 114070872 : lu(k,1746) = - lu(k,487) * lu(k,1714)
2373 114070872 : lu(k,1747) = lu(k,1747) - lu(k,488) * lu(k,1714)
2374 114070872 : lu(k,1749) = lu(k,1749) - lu(k,489) * lu(k,1714)
2375 114070872 : lu(k,1795) = lu(k,1795) - lu(k,477) * lu(k,1794)
2376 114070872 : lu(k,1801) = lu(k,1801) - lu(k,478) * lu(k,1794)
2377 114070872 : lu(k,1806) = lu(k,1806) - lu(k,479) * lu(k,1794)
2378 114070872 : lu(k,1808) = lu(k,1808) - lu(k,480) * lu(k,1794)
2379 114070872 : lu(k,1811) = lu(k,1811) - lu(k,481) * lu(k,1794)
2380 114070872 : lu(k,1817) = lu(k,1817) - lu(k,482) * lu(k,1794)
2381 114070872 : lu(k,1818) = lu(k,1818) - lu(k,483) * lu(k,1794)
2382 114070872 : lu(k,1819) = lu(k,1819) - lu(k,484) * lu(k,1794)
2383 114070872 : lu(k,1826) = lu(k,1826) - lu(k,485) * lu(k,1794)
2384 114070872 : lu(k,1827) = lu(k,1827) - lu(k,486) * lu(k,1794)
2385 114070872 : lu(k,1830) = lu(k,1830) - lu(k,487) * lu(k,1794)
2386 114070872 : lu(k,1831) = lu(k,1831) - lu(k,488) * lu(k,1794)
2387 114070872 : lu(k,1833) = lu(k,1833) - lu(k,489) * lu(k,1794)
2388 114070872 : lu(k,1909) = lu(k,1909) - lu(k,477) * lu(k,1908)
2389 114070872 : lu(k,1911) = lu(k,1911) - lu(k,478) * lu(k,1908)
2390 114070872 : lu(k,1916) = lu(k,1916) - lu(k,479) * lu(k,1908)
2391 114070872 : lu(k,1918) = lu(k,1918) - lu(k,480) * lu(k,1908)
2392 114070872 : lu(k,1921) = lu(k,1921) - lu(k,481) * lu(k,1908)
2393 114070872 : lu(k,1927) = lu(k,1927) - lu(k,482) * lu(k,1908)
2394 114070872 : lu(k,1928) = lu(k,1928) - lu(k,483) * lu(k,1908)
2395 114070872 : lu(k,1929) = lu(k,1929) - lu(k,484) * lu(k,1908)
2396 114070872 : lu(k,1936) = lu(k,1936) - lu(k,485) * lu(k,1908)
2397 114070872 : lu(k,1937) = lu(k,1937) - lu(k,486) * lu(k,1908)
2398 114070872 : lu(k,1940) = lu(k,1940) - lu(k,487) * lu(k,1908)
2399 114070872 : lu(k,1941) = lu(k,1941) - lu(k,488) * lu(k,1908)
2400 114070872 : lu(k,1943) = lu(k,1943) - lu(k,489) * lu(k,1908)
2401 114070872 : lu(k,2053) = - lu(k,477) * lu(k,2049)
2402 114070872 : lu(k,2058) = - lu(k,478) * lu(k,2049)
2403 114070872 : lu(k,2063) = lu(k,2063) - lu(k,479) * lu(k,2049)
2404 114070872 : lu(k,2065) = lu(k,2065) - lu(k,480) * lu(k,2049)
2405 114070872 : lu(k,2068) = lu(k,2068) - lu(k,481) * lu(k,2049)
2406 114070872 : lu(k,2074) = lu(k,2074) - lu(k,482) * lu(k,2049)
2407 114070872 : lu(k,2075) = lu(k,2075) - lu(k,483) * lu(k,2049)
2408 114070872 : lu(k,2076) = lu(k,2076) - lu(k,484) * lu(k,2049)
2409 114070872 : lu(k,2083) = lu(k,2083) - lu(k,485) * lu(k,2049)
2410 114070872 : lu(k,2084) = lu(k,2084) - lu(k,486) * lu(k,2049)
2411 114070872 : lu(k,2087) = lu(k,2087) - lu(k,487) * lu(k,2049)
2412 114070872 : lu(k,2088) = lu(k,2088) - lu(k,488) * lu(k,2049)
2413 114070872 : lu(k,2090) = lu(k,2090) - lu(k,489) * lu(k,2049)
2414 114070872 : lu(k,490) = 1._r8 / lu(k,490)
2415 114070872 : lu(k,491) = lu(k,491) * lu(k,490)
2416 114070872 : lu(k,492) = lu(k,492) * lu(k,490)
2417 114070872 : lu(k,493) = lu(k,493) * lu(k,490)
2418 114070872 : lu(k,494) = lu(k,494) * lu(k,490)
2419 114070872 : lu(k,495) = lu(k,495) * lu(k,490)
2420 114070872 : lu(k,496) = lu(k,496) * lu(k,490)
2421 114070872 : lu(k,497) = lu(k,497) * lu(k,490)
2422 114070872 : lu(k,498) = lu(k,498) * lu(k,490)
2423 114070872 : lu(k,499) = lu(k,499) * lu(k,490)
2424 114070872 : lu(k,500) = lu(k,500) * lu(k,490)
2425 114070872 : lu(k,501) = lu(k,501) * lu(k,490)
2426 114070872 : lu(k,502) = lu(k,502) * lu(k,490)
2427 114070872 : lu(k,503) = lu(k,503) * lu(k,490)
2428 114070872 : lu(k,1149) = lu(k,1149) - lu(k,491) * lu(k,1133)
2429 114070872 : lu(k,1153) = lu(k,1153) - lu(k,492) * lu(k,1133)
2430 114070872 : lu(k,1154) = - lu(k,493) * lu(k,1133)
2431 114070872 : lu(k,1155) = - lu(k,494) * lu(k,1133)
2432 114070872 : lu(k,1156) = lu(k,1156) - lu(k,495) * lu(k,1133)
2433 114070872 : lu(k,1157) = lu(k,1157) - lu(k,496) * lu(k,1133)
2434 114070872 : lu(k,1159) = lu(k,1159) - lu(k,497) * lu(k,1133)
2435 114070872 : lu(k,1163) = lu(k,1163) - lu(k,498) * lu(k,1133)
2436 114070872 : lu(k,1164) = - lu(k,499) * lu(k,1133)
2437 114070872 : lu(k,1165) = - lu(k,500) * lu(k,1133)
2438 114070872 : lu(k,1167) = lu(k,1167) - lu(k,501) * lu(k,1133)
2439 114070872 : lu(k,1172) = lu(k,1172) - lu(k,502) * lu(k,1133)
2440 114070872 : lu(k,1174) = lu(k,1174) - lu(k,503) * lu(k,1133)
2441 114070872 : lu(k,1192) = lu(k,1192) - lu(k,491) * lu(k,1177)
2442 114070872 : lu(k,1196) = - lu(k,492) * lu(k,1177)
2443 114070872 : lu(k,1197) = lu(k,1197) - lu(k,493) * lu(k,1177)
2444 114070872 : lu(k,1198) = lu(k,1198) - lu(k,494) * lu(k,1177)
2445 114070872 : lu(k,1199) = lu(k,1199) - lu(k,495) * lu(k,1177)
2446 114070872 : lu(k,1200) = - lu(k,496) * lu(k,1177)
2447 114070872 : lu(k,1202) = lu(k,1202) - lu(k,497) * lu(k,1177)
2448 114070872 : lu(k,1206) = - lu(k,498) * lu(k,1177)
2449 114070872 : lu(k,1207) = - lu(k,499) * lu(k,1177)
2450 114070872 : lu(k,1208) = - lu(k,500) * lu(k,1177)
2451 114070872 : lu(k,1210) = - lu(k,501) * lu(k,1177)
2452 114070872 : lu(k,1215) = lu(k,1215) - lu(k,502) * lu(k,1177)
2453 114070872 : lu(k,1217) = lu(k,1217) - lu(k,503) * lu(k,1177)
2454 114070872 : lu(k,1235) = lu(k,1235) - lu(k,491) * lu(k,1220)
2455 114070872 : lu(k,1239) = - lu(k,492) * lu(k,1220)
2456 114070872 : lu(k,1240) = - lu(k,493) * lu(k,1220)
2457 114070872 : lu(k,1241) = lu(k,1241) - lu(k,494) * lu(k,1220)
2458 114070872 : lu(k,1242) = lu(k,1242) - lu(k,495) * lu(k,1220)
2459 114070872 : lu(k,1243) = - lu(k,496) * lu(k,1220)
2460 114070872 : lu(k,1245) = lu(k,1245) - lu(k,497) * lu(k,1220)
2461 114070872 : lu(k,1249) = - lu(k,498) * lu(k,1220)
2462 114070872 : lu(k,1250) = - lu(k,499) * lu(k,1220)
2463 114070872 : lu(k,1251) = lu(k,1251) - lu(k,500) * lu(k,1220)
2464 114070872 : lu(k,1253) = lu(k,1253) - lu(k,501) * lu(k,1220)
2465 114070872 : lu(k,1258) = - lu(k,502) * lu(k,1220)
2466 114070872 : lu(k,1260) = lu(k,1260) - lu(k,503) * lu(k,1220)
2467 114070872 : lu(k,1277) = lu(k,1277) - lu(k,491) * lu(k,1270)
2468 114070872 : lu(k,1281) = lu(k,1281) - lu(k,492) * lu(k,1270)
2469 114070872 : lu(k,1282) = - lu(k,493) * lu(k,1270)
2470 114070872 : lu(k,1283) = lu(k,1283) - lu(k,494) * lu(k,1270)
2471 114070872 : lu(k,1284) = lu(k,1284) - lu(k,495) * lu(k,1270)
2472 114070872 : lu(k,1285) = lu(k,1285) - lu(k,496) * lu(k,1270)
2473 114070872 : lu(k,1287) = lu(k,1287) - lu(k,497) * lu(k,1270)
2474 114070872 : lu(k,1291) = lu(k,1291) - lu(k,498) * lu(k,1270)
2475 114070872 : lu(k,1292) = - lu(k,499) * lu(k,1270)
2476 114070872 : lu(k,1293) = - lu(k,500) * lu(k,1270)
2477 114070872 : lu(k,1295) = lu(k,1295) - lu(k,501) * lu(k,1270)
2478 114070872 : lu(k,1300) = lu(k,1300) - lu(k,502) * lu(k,1270)
2479 114070872 : lu(k,1302) = lu(k,1302) - lu(k,503) * lu(k,1270)
2480 114070872 : lu(k,1319) = lu(k,1319) - lu(k,491) * lu(k,1304)
2481 114070872 : lu(k,1323) = - lu(k,492) * lu(k,1304)
2482 114070872 : lu(k,1324) = lu(k,1324) - lu(k,493) * lu(k,1304)
2483 114070872 : lu(k,1325) = lu(k,1325) - lu(k,494) * lu(k,1304)
2484 114070872 : lu(k,1326) = lu(k,1326) - lu(k,495) * lu(k,1304)
2485 114070872 : lu(k,1327) = lu(k,1327) - lu(k,496) * lu(k,1304)
2486 114070872 : lu(k,1329) = lu(k,1329) - lu(k,497) * lu(k,1304)
2487 114070872 : lu(k,1333) = - lu(k,498) * lu(k,1304)
2488 114070872 : lu(k,1334) = - lu(k,499) * lu(k,1304)
2489 114070872 : lu(k,1335) = - lu(k,500) * lu(k,1304)
2490 114070872 : lu(k,1337) = lu(k,1337) - lu(k,501) * lu(k,1304)
2491 114070872 : lu(k,1342) = lu(k,1342) - lu(k,502) * lu(k,1304)
2492 114070872 : lu(k,1344) = lu(k,1344) - lu(k,503) * lu(k,1304)
2493 114070872 : lu(k,1598) = lu(k,1598) - lu(k,491) * lu(k,1582)
2494 114070872 : lu(k,1602) = lu(k,1602) - lu(k,492) * lu(k,1582)
2495 114070872 : lu(k,1603) = - lu(k,493) * lu(k,1582)
2496 114070872 : lu(k,1604) = lu(k,1604) - lu(k,494) * lu(k,1582)
2497 114070872 : lu(k,1605) = lu(k,1605) - lu(k,495) * lu(k,1582)
2498 114070872 : lu(k,1606) = - lu(k,496) * lu(k,1582)
2499 114070872 : lu(k,1608) = lu(k,1608) - lu(k,497) * lu(k,1582)
2500 114070872 : lu(k,1612) = lu(k,1612) - lu(k,498) * lu(k,1582)
2501 114070872 : lu(k,1613) = - lu(k,499) * lu(k,1582)
2502 114070872 : lu(k,1614) = - lu(k,500) * lu(k,1582)
2503 114070872 : lu(k,1616) = lu(k,1616) - lu(k,501) * lu(k,1582)
2504 114070872 : lu(k,1621) = lu(k,1621) - lu(k,502) * lu(k,1582)
2505 114070872 : lu(k,1623) = lu(k,1623) - lu(k,503) * lu(k,1582)
2506 114070872 : lu(k,1641) = lu(k,1641) - lu(k,491) * lu(k,1626)
2507 114070872 : lu(k,1645) = - lu(k,492) * lu(k,1626)
2508 114070872 : lu(k,1646) = - lu(k,493) * lu(k,1626)
2509 114070872 : lu(k,1647) = - lu(k,494) * lu(k,1626)
2510 114070872 : lu(k,1648) = lu(k,1648) - lu(k,495) * lu(k,1626)
2511 114070872 : lu(k,1649) = - lu(k,496) * lu(k,1626)
2512 114070872 : lu(k,1651) = lu(k,1651) - lu(k,497) * lu(k,1626)
2513 114070872 : lu(k,1655) = - lu(k,498) * lu(k,1626)
2514 114070872 : lu(k,1656) = lu(k,1656) - lu(k,499) * lu(k,1626)
2515 114070872 : lu(k,1657) = lu(k,1657) - lu(k,500) * lu(k,1626)
2516 114070872 : lu(k,1659) = lu(k,1659) - lu(k,501) * lu(k,1626)
2517 114070872 : lu(k,1664) = lu(k,1664) - lu(k,502) * lu(k,1626)
2518 114070872 : lu(k,1666) = lu(k,1666) - lu(k,503) * lu(k,1626)
2519 114070872 : lu(k,1684) = lu(k,1684) - lu(k,491) * lu(k,1669)
2520 114070872 : lu(k,1688) = - lu(k,492) * lu(k,1669)
2521 114070872 : lu(k,1689) = - lu(k,493) * lu(k,1669)
2522 114070872 : lu(k,1690) = lu(k,1690) - lu(k,494) * lu(k,1669)
2523 114070872 : lu(k,1691) = lu(k,1691) - lu(k,495) * lu(k,1669)
2524 114070872 : lu(k,1692) = - lu(k,496) * lu(k,1669)
2525 114070872 : lu(k,1694) = lu(k,1694) - lu(k,497) * lu(k,1669)
2526 114070872 : lu(k,1698) = - lu(k,498) * lu(k,1669)
2527 114070872 : lu(k,1699) = lu(k,1699) - lu(k,499) * lu(k,1669)
2528 114070872 : lu(k,1700) = lu(k,1700) - lu(k,500) * lu(k,1669)
2529 114070872 : lu(k,1702) = lu(k,1702) - lu(k,501) * lu(k,1669)
2530 114070872 : lu(k,1707) = lu(k,1707) - lu(k,502) * lu(k,1669)
2531 114070872 : lu(k,1709) = lu(k,1709) - lu(k,503) * lu(k,1669)
2532 114070872 : lu(k,1841) = lu(k,1841) - lu(k,491) * lu(k,1835)
2533 114070872 : lu(k,1845) = - lu(k,492) * lu(k,1835)
2534 114070872 : lu(k,1846) = - lu(k,493) * lu(k,1835)
2535 114070872 : lu(k,1847) = - lu(k,494) * lu(k,1835)
2536 114070872 : lu(k,1848) = lu(k,1848) - lu(k,495) * lu(k,1835)
2537 114070872 : lu(k,1849) = - lu(k,496) * lu(k,1835)
2538 114070872 : lu(k,1851) = lu(k,1851) - lu(k,497) * lu(k,1835)
2539 114070872 : lu(k,1855) = - lu(k,498) * lu(k,1835)
2540 114070872 : lu(k,1856) = - lu(k,499) * lu(k,1835)
2541 114070872 : lu(k,1857) = - lu(k,500) * lu(k,1835)
2542 114070872 : lu(k,1859) = lu(k,1859) - lu(k,501) * lu(k,1835)
2543 114070872 : lu(k,1864) = lu(k,1864) - lu(k,502) * lu(k,1835)
2544 117656469 : lu(k,1866) = lu(k,1866) - lu(k,503) * lu(k,1835)
2545 : end do
2546 3585597 : end subroutine lu_fac12
2547 3585597 : subroutine lu_fac13( avec_len, lu )
2548 : use chem_mods, only : nzcnt
2549 : use shr_kind_mod, only : r8 => shr_kind_r8
2550 : implicit none
2551 : !-----------------------------------------------------------------------
2552 : ! ... dummy args
2553 : !-----------------------------------------------------------------------
2554 : integer, intent(in) :: avec_len
2555 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2556 : !-----------------------------------------------------------------------
2557 : ! ... local variables
2558 : !-----------------------------------------------------------------------
2559 : integer :: k
2560 117656469 : do k = 1,avec_len
2561 114070872 : lu(k,504) = 1._r8 / lu(k,504)
2562 114070872 : lu(k,505) = lu(k,505) * lu(k,504)
2563 114070872 : lu(k,506) = lu(k,506) * lu(k,504)
2564 114070872 : lu(k,507) = lu(k,507) * lu(k,504)
2565 114070872 : lu(k,508) = lu(k,508) * lu(k,504)
2566 114070872 : lu(k,509) = lu(k,509) * lu(k,504)
2567 114070872 : lu(k,510) = lu(k,510) * lu(k,504)
2568 114070872 : lu(k,511) = lu(k,511) * lu(k,504)
2569 114070872 : lu(k,512) = lu(k,512) * lu(k,504)
2570 114070872 : lu(k,513) = lu(k,513) * lu(k,504)
2571 114070872 : lu(k,514) = lu(k,514) * lu(k,504)
2572 114070872 : lu(k,515) = lu(k,515) * lu(k,504)
2573 114070872 : lu(k,516) = lu(k,516) * lu(k,504)
2574 114070872 : lu(k,517) = lu(k,517) * lu(k,504)
2575 114070872 : lu(k,518) = lu(k,518) * lu(k,504)
2576 114070872 : lu(k,669) = lu(k,669) - lu(k,505) * lu(k,667)
2577 114070872 : lu(k,674) = lu(k,674) - lu(k,506) * lu(k,667)
2578 114070872 : lu(k,675) = lu(k,675) - lu(k,507) * lu(k,667)
2579 114070872 : lu(k,676) = lu(k,676) - lu(k,508) * lu(k,667)
2580 114070872 : lu(k,677) = lu(k,677) - lu(k,509) * lu(k,667)
2581 114070872 : lu(k,678) = lu(k,678) - lu(k,510) * lu(k,667)
2582 114070872 : lu(k,679) = lu(k,679) - lu(k,511) * lu(k,667)
2583 114070872 : lu(k,680) = lu(k,680) - lu(k,512) * lu(k,667)
2584 114070872 : lu(k,681) = lu(k,681) - lu(k,513) * lu(k,667)
2585 114070872 : lu(k,682) = lu(k,682) - lu(k,514) * lu(k,667)
2586 114070872 : lu(k,683) = lu(k,683) - lu(k,515) * lu(k,667)
2587 114070872 : lu(k,684) = lu(k,684) - lu(k,516) * lu(k,667)
2588 114070872 : lu(k,686) = lu(k,686) - lu(k,517) * lu(k,667)
2589 114070872 : lu(k,687) = lu(k,687) - lu(k,518) * lu(k,667)
2590 114070872 : lu(k,1141) = lu(k,1141) - lu(k,505) * lu(k,1134)
2591 114070872 : lu(k,1153) = lu(k,1153) - lu(k,506) * lu(k,1134)
2592 114070872 : lu(k,1154) = lu(k,1154) - lu(k,507) * lu(k,1134)
2593 114070872 : lu(k,1155) = lu(k,1155) - lu(k,508) * lu(k,1134)
2594 114070872 : lu(k,1156) = lu(k,1156) - lu(k,509) * lu(k,1134)
2595 114070872 : lu(k,1157) = lu(k,1157) - lu(k,510) * lu(k,1134)
2596 114070872 : lu(k,1158) = lu(k,1158) - lu(k,511) * lu(k,1134)
2597 114070872 : lu(k,1159) = lu(k,1159) - lu(k,512) * lu(k,1134)
2598 114070872 : lu(k,1163) = lu(k,1163) - lu(k,513) * lu(k,1134)
2599 114070872 : lu(k,1164) = lu(k,1164) - lu(k,514) * lu(k,1134)
2600 114070872 : lu(k,1165) = lu(k,1165) - lu(k,515) * lu(k,1134)
2601 114070872 : lu(k,1167) = lu(k,1167) - lu(k,516) * lu(k,1134)
2602 114070872 : lu(k,1172) = lu(k,1172) - lu(k,517) * lu(k,1134)
2603 114070872 : lu(k,1174) = lu(k,1174) - lu(k,518) * lu(k,1134)
2604 114070872 : lu(k,1185) = lu(k,1185) - lu(k,505) * lu(k,1178)
2605 114070872 : lu(k,1196) = lu(k,1196) - lu(k,506) * lu(k,1178)
2606 114070872 : lu(k,1197) = lu(k,1197) - lu(k,507) * lu(k,1178)
2607 114070872 : lu(k,1198) = lu(k,1198) - lu(k,508) * lu(k,1178)
2608 114070872 : lu(k,1199) = lu(k,1199) - lu(k,509) * lu(k,1178)
2609 114070872 : lu(k,1200) = lu(k,1200) - lu(k,510) * lu(k,1178)
2610 114070872 : lu(k,1201) = lu(k,1201) - lu(k,511) * lu(k,1178)
2611 114070872 : lu(k,1202) = lu(k,1202) - lu(k,512) * lu(k,1178)
2612 114070872 : lu(k,1206) = lu(k,1206) - lu(k,513) * lu(k,1178)
2613 114070872 : lu(k,1207) = lu(k,1207) - lu(k,514) * lu(k,1178)
2614 114070872 : lu(k,1208) = lu(k,1208) - lu(k,515) * lu(k,1178)
2615 114070872 : lu(k,1210) = lu(k,1210) - lu(k,516) * lu(k,1178)
2616 114070872 : lu(k,1215) = lu(k,1215) - lu(k,517) * lu(k,1178)
2617 114070872 : lu(k,1217) = lu(k,1217) - lu(k,518) * lu(k,1178)
2618 114070872 : lu(k,1228) = lu(k,1228) - lu(k,505) * lu(k,1221)
2619 114070872 : lu(k,1239) = lu(k,1239) - lu(k,506) * lu(k,1221)
2620 114070872 : lu(k,1240) = lu(k,1240) - lu(k,507) * lu(k,1221)
2621 114070872 : lu(k,1241) = lu(k,1241) - lu(k,508) * lu(k,1221)
2622 114070872 : lu(k,1242) = lu(k,1242) - lu(k,509) * lu(k,1221)
2623 114070872 : lu(k,1243) = lu(k,1243) - lu(k,510) * lu(k,1221)
2624 114070872 : lu(k,1244) = lu(k,1244) - lu(k,511) * lu(k,1221)
2625 114070872 : lu(k,1245) = lu(k,1245) - lu(k,512) * lu(k,1221)
2626 114070872 : lu(k,1249) = lu(k,1249) - lu(k,513) * lu(k,1221)
2627 114070872 : lu(k,1250) = lu(k,1250) - lu(k,514) * lu(k,1221)
2628 114070872 : lu(k,1251) = lu(k,1251) - lu(k,515) * lu(k,1221)
2629 114070872 : lu(k,1253) = lu(k,1253) - lu(k,516) * lu(k,1221)
2630 114070872 : lu(k,1258) = lu(k,1258) - lu(k,517) * lu(k,1221)
2631 114070872 : lu(k,1260) = lu(k,1260) - lu(k,518) * lu(k,1221)
2632 114070872 : lu(k,1312) = lu(k,1312) - lu(k,505) * lu(k,1305)
2633 114070872 : lu(k,1323) = lu(k,1323) - lu(k,506) * lu(k,1305)
2634 114070872 : lu(k,1324) = lu(k,1324) - lu(k,507) * lu(k,1305)
2635 114070872 : lu(k,1325) = lu(k,1325) - lu(k,508) * lu(k,1305)
2636 114070872 : lu(k,1326) = lu(k,1326) - lu(k,509) * lu(k,1305)
2637 114070872 : lu(k,1327) = lu(k,1327) - lu(k,510) * lu(k,1305)
2638 114070872 : lu(k,1328) = lu(k,1328) - lu(k,511) * lu(k,1305)
2639 114070872 : lu(k,1329) = lu(k,1329) - lu(k,512) * lu(k,1305)
2640 114070872 : lu(k,1333) = lu(k,1333) - lu(k,513) * lu(k,1305)
2641 114070872 : lu(k,1334) = lu(k,1334) - lu(k,514) * lu(k,1305)
2642 114070872 : lu(k,1335) = lu(k,1335) - lu(k,515) * lu(k,1305)
2643 114070872 : lu(k,1337) = lu(k,1337) - lu(k,516) * lu(k,1305)
2644 114070872 : lu(k,1342) = lu(k,1342) - lu(k,517) * lu(k,1305)
2645 114070872 : lu(k,1344) = lu(k,1344) - lu(k,518) * lu(k,1305)
2646 114070872 : lu(k,1590) = lu(k,1590) - lu(k,505) * lu(k,1583)
2647 114070872 : lu(k,1602) = lu(k,1602) - lu(k,506) * lu(k,1583)
2648 114070872 : lu(k,1603) = lu(k,1603) - lu(k,507) * lu(k,1583)
2649 114070872 : lu(k,1604) = lu(k,1604) - lu(k,508) * lu(k,1583)
2650 114070872 : lu(k,1605) = lu(k,1605) - lu(k,509) * lu(k,1583)
2651 114070872 : lu(k,1606) = lu(k,1606) - lu(k,510) * lu(k,1583)
2652 114070872 : lu(k,1607) = lu(k,1607) - lu(k,511) * lu(k,1583)
2653 114070872 : lu(k,1608) = lu(k,1608) - lu(k,512) * lu(k,1583)
2654 114070872 : lu(k,1612) = lu(k,1612) - lu(k,513) * lu(k,1583)
2655 114070872 : lu(k,1613) = lu(k,1613) - lu(k,514) * lu(k,1583)
2656 114070872 : lu(k,1614) = lu(k,1614) - lu(k,515) * lu(k,1583)
2657 114070872 : lu(k,1616) = lu(k,1616) - lu(k,516) * lu(k,1583)
2658 114070872 : lu(k,1621) = lu(k,1621) - lu(k,517) * lu(k,1583)
2659 114070872 : lu(k,1623) = lu(k,1623) - lu(k,518) * lu(k,1583)
2660 114070872 : lu(k,1634) = lu(k,1634) - lu(k,505) * lu(k,1627)
2661 114070872 : lu(k,1645) = lu(k,1645) - lu(k,506) * lu(k,1627)
2662 114070872 : lu(k,1646) = lu(k,1646) - lu(k,507) * lu(k,1627)
2663 114070872 : lu(k,1647) = lu(k,1647) - lu(k,508) * lu(k,1627)
2664 114070872 : lu(k,1648) = lu(k,1648) - lu(k,509) * lu(k,1627)
2665 114070872 : lu(k,1649) = lu(k,1649) - lu(k,510) * lu(k,1627)
2666 114070872 : lu(k,1650) = lu(k,1650) - lu(k,511) * lu(k,1627)
2667 114070872 : lu(k,1651) = lu(k,1651) - lu(k,512) * lu(k,1627)
2668 114070872 : lu(k,1655) = lu(k,1655) - lu(k,513) * lu(k,1627)
2669 114070872 : lu(k,1656) = lu(k,1656) - lu(k,514) * lu(k,1627)
2670 114070872 : lu(k,1657) = lu(k,1657) - lu(k,515) * lu(k,1627)
2671 114070872 : lu(k,1659) = lu(k,1659) - lu(k,516) * lu(k,1627)
2672 114070872 : lu(k,1664) = lu(k,1664) - lu(k,517) * lu(k,1627)
2673 114070872 : lu(k,1666) = lu(k,1666) - lu(k,518) * lu(k,1627)
2674 114070872 : lu(k,1677) = lu(k,1677) - lu(k,505) * lu(k,1670)
2675 114070872 : lu(k,1688) = lu(k,1688) - lu(k,506) * lu(k,1670)
2676 114070872 : lu(k,1689) = lu(k,1689) - lu(k,507) * lu(k,1670)
2677 114070872 : lu(k,1690) = lu(k,1690) - lu(k,508) * lu(k,1670)
2678 114070872 : lu(k,1691) = lu(k,1691) - lu(k,509) * lu(k,1670)
2679 114070872 : lu(k,1692) = lu(k,1692) - lu(k,510) * lu(k,1670)
2680 114070872 : lu(k,1693) = lu(k,1693) - lu(k,511) * lu(k,1670)
2681 114070872 : lu(k,1694) = lu(k,1694) - lu(k,512) * lu(k,1670)
2682 114070872 : lu(k,1698) = lu(k,1698) - lu(k,513) * lu(k,1670)
2683 114070872 : lu(k,1699) = lu(k,1699) - lu(k,514) * lu(k,1670)
2684 114070872 : lu(k,1700) = lu(k,1700) - lu(k,515) * lu(k,1670)
2685 114070872 : lu(k,1702) = lu(k,1702) - lu(k,516) * lu(k,1670)
2686 114070872 : lu(k,1707) = lu(k,1707) - lu(k,517) * lu(k,1670)
2687 114070872 : lu(k,1709) = lu(k,1709) - lu(k,518) * lu(k,1670)
2688 114070872 : lu(k,2056) = lu(k,2056) - lu(k,505) * lu(k,2050)
2689 114070872 : lu(k,2069) = lu(k,2069) - lu(k,506) * lu(k,2050)
2690 114070872 : lu(k,2070) = lu(k,2070) - lu(k,507) * lu(k,2050)
2691 114070872 : lu(k,2071) = lu(k,2071) - lu(k,508) * lu(k,2050)
2692 114070872 : lu(k,2072) = lu(k,2072) - lu(k,509) * lu(k,2050)
2693 114070872 : lu(k,2073) = lu(k,2073) - lu(k,510) * lu(k,2050)
2694 114070872 : lu(k,2074) = lu(k,2074) - lu(k,511) * lu(k,2050)
2695 114070872 : lu(k,2075) = lu(k,2075) - lu(k,512) * lu(k,2050)
2696 114070872 : lu(k,2079) = lu(k,2079) - lu(k,513) * lu(k,2050)
2697 114070872 : lu(k,2080) = lu(k,2080) - lu(k,514) * lu(k,2050)
2698 114070872 : lu(k,2081) = lu(k,2081) - lu(k,515) * lu(k,2050)
2699 114070872 : lu(k,2083) = lu(k,2083) - lu(k,516) * lu(k,2050)
2700 114070872 : lu(k,2088) = lu(k,2088) - lu(k,517) * lu(k,2050)
2701 114070872 : lu(k,2090) = lu(k,2090) - lu(k,518) * lu(k,2050)
2702 114070872 : lu(k,519) = 1._r8 / lu(k,519)
2703 114070872 : lu(k,520) = lu(k,520) * lu(k,519)
2704 114070872 : lu(k,521) = lu(k,521) * lu(k,519)
2705 114070872 : lu(k,522) = lu(k,522) * lu(k,519)
2706 114070872 : lu(k,523) = lu(k,523) * lu(k,519)
2707 114070872 : lu(k,524) = lu(k,524) * lu(k,519)
2708 114070872 : lu(k,525) = lu(k,525) * lu(k,519)
2709 114070872 : lu(k,526) = lu(k,526) * lu(k,519)
2710 114070872 : lu(k,527) = lu(k,527) * lu(k,519)
2711 114070872 : lu(k,528) = lu(k,528) * lu(k,519)
2712 114070872 : lu(k,529) = lu(k,529) * lu(k,519)
2713 114070872 : lu(k,530) = lu(k,530) * lu(k,519)
2714 114070872 : lu(k,531) = lu(k,531) * lu(k,519)
2715 114070872 : lu(k,532) = lu(k,532) * lu(k,519)
2716 114070872 : lu(k,533) = lu(k,533) * lu(k,519)
2717 114070872 : lu(k,536) = lu(k,536) - lu(k,520) * lu(k,534)
2718 114070872 : lu(k,537) = lu(k,537) - lu(k,521) * lu(k,534)
2719 114070872 : lu(k,538) = lu(k,538) - lu(k,522) * lu(k,534)
2720 114070872 : lu(k,539) = lu(k,539) - lu(k,523) * lu(k,534)
2721 114070872 : lu(k,540) = lu(k,540) - lu(k,524) * lu(k,534)
2722 114070872 : lu(k,541) = lu(k,541) - lu(k,525) * lu(k,534)
2723 114070872 : lu(k,542) = lu(k,542) - lu(k,526) * lu(k,534)
2724 114070872 : lu(k,543) = lu(k,543) - lu(k,527) * lu(k,534)
2725 114070872 : lu(k,544) = lu(k,544) - lu(k,528) * lu(k,534)
2726 114070872 : lu(k,545) = lu(k,545) - lu(k,529) * lu(k,534)
2727 114070872 : lu(k,546) = lu(k,546) - lu(k,530) * lu(k,534)
2728 114070872 : lu(k,547) = lu(k,547) - lu(k,531) * lu(k,534)
2729 114070872 : lu(k,548) = lu(k,548) - lu(k,532) * lu(k,534)
2730 114070872 : lu(k,549) = lu(k,549) - lu(k,533) * lu(k,534)
2731 114070872 : lu(k,811) = lu(k,811) - lu(k,520) * lu(k,809)
2732 114070872 : lu(k,815) = lu(k,815) - lu(k,521) * lu(k,809)
2733 114070872 : lu(k,816) = lu(k,816) - lu(k,522) * lu(k,809)
2734 114070872 : lu(k,817) = lu(k,817) - lu(k,523) * lu(k,809)
2735 114070872 : lu(k,818) = lu(k,818) - lu(k,524) * lu(k,809)
2736 114070872 : lu(k,819) = lu(k,819) - lu(k,525) * lu(k,809)
2737 114070872 : lu(k,820) = lu(k,820) - lu(k,526) * lu(k,809)
2738 114070872 : lu(k,822) = lu(k,822) - lu(k,527) * lu(k,809)
2739 114070872 : lu(k,823) = lu(k,823) - lu(k,528) * lu(k,809)
2740 114070872 : lu(k,824) = lu(k,824) - lu(k,529) * lu(k,809)
2741 114070872 : lu(k,825) = lu(k,825) - lu(k,530) * lu(k,809)
2742 114070872 : lu(k,827) = lu(k,827) - lu(k,531) * lu(k,809)
2743 114070872 : lu(k,828) = lu(k,828) - lu(k,532) * lu(k,809)
2744 114070872 : lu(k,829) = lu(k,829) - lu(k,533) * lu(k,809)
2745 114070872 : lu(k,1144) = lu(k,1144) - lu(k,520) * lu(k,1135)
2746 114070872 : lu(k,1153) = lu(k,1153) - lu(k,521) * lu(k,1135)
2747 114070872 : lu(k,1154) = lu(k,1154) - lu(k,522) * lu(k,1135)
2748 114070872 : lu(k,1155) = lu(k,1155) - lu(k,523) * lu(k,1135)
2749 114070872 : lu(k,1157) = lu(k,1157) - lu(k,524) * lu(k,1135)
2750 114070872 : lu(k,1159) = lu(k,1159) - lu(k,525) * lu(k,1135)
2751 114070872 : lu(k,1160) = lu(k,1160) - lu(k,526) * lu(k,1135)
2752 114070872 : lu(k,1163) = lu(k,1163) - lu(k,527) * lu(k,1135)
2753 114070872 : lu(k,1164) = lu(k,1164) - lu(k,528) * lu(k,1135)
2754 114070872 : lu(k,1165) = lu(k,1165) - lu(k,529) * lu(k,1135)
2755 114070872 : lu(k,1167) = lu(k,1167) - lu(k,530) * lu(k,1135)
2756 114070872 : lu(k,1172) = lu(k,1172) - lu(k,531) * lu(k,1135)
2757 114070872 : lu(k,1173) = lu(k,1173) - lu(k,532) * lu(k,1135)
2758 114070872 : lu(k,1174) = lu(k,1174) - lu(k,533) * lu(k,1135)
2759 114070872 : lu(k,1187) = lu(k,1187) - lu(k,520) * lu(k,1179)
2760 114070872 : lu(k,1196) = lu(k,1196) - lu(k,521) * lu(k,1179)
2761 114070872 : lu(k,1197) = lu(k,1197) - lu(k,522) * lu(k,1179)
2762 114070872 : lu(k,1198) = lu(k,1198) - lu(k,523) * lu(k,1179)
2763 114070872 : lu(k,1200) = lu(k,1200) - lu(k,524) * lu(k,1179)
2764 114070872 : lu(k,1202) = lu(k,1202) - lu(k,525) * lu(k,1179)
2765 114070872 : lu(k,1203) = lu(k,1203) - lu(k,526) * lu(k,1179)
2766 114070872 : lu(k,1206) = lu(k,1206) - lu(k,527) * lu(k,1179)
2767 114070872 : lu(k,1207) = lu(k,1207) - lu(k,528) * lu(k,1179)
2768 114070872 : lu(k,1208) = lu(k,1208) - lu(k,529) * lu(k,1179)
2769 114070872 : lu(k,1210) = lu(k,1210) - lu(k,530) * lu(k,1179)
2770 114070872 : lu(k,1215) = lu(k,1215) - lu(k,531) * lu(k,1179)
2771 114070872 : lu(k,1216) = lu(k,1216) - lu(k,532) * lu(k,1179)
2772 114070872 : lu(k,1217) = lu(k,1217) - lu(k,533) * lu(k,1179)
2773 114070872 : lu(k,1230) = lu(k,1230) - lu(k,520) * lu(k,1222)
2774 114070872 : lu(k,1239) = lu(k,1239) - lu(k,521) * lu(k,1222)
2775 114070872 : lu(k,1240) = lu(k,1240) - lu(k,522) * lu(k,1222)
2776 114070872 : lu(k,1241) = lu(k,1241) - lu(k,523) * lu(k,1222)
2777 114070872 : lu(k,1243) = lu(k,1243) - lu(k,524) * lu(k,1222)
2778 114070872 : lu(k,1245) = lu(k,1245) - lu(k,525) * lu(k,1222)
2779 114070872 : lu(k,1246) = lu(k,1246) - lu(k,526) * lu(k,1222)
2780 114070872 : lu(k,1249) = lu(k,1249) - lu(k,527) * lu(k,1222)
2781 114070872 : lu(k,1250) = lu(k,1250) - lu(k,528) * lu(k,1222)
2782 114070872 : lu(k,1251) = lu(k,1251) - lu(k,529) * lu(k,1222)
2783 114070872 : lu(k,1253) = lu(k,1253) - lu(k,530) * lu(k,1222)
2784 114070872 : lu(k,1258) = lu(k,1258) - lu(k,531) * lu(k,1222)
2785 114070872 : lu(k,1259) = lu(k,1259) - lu(k,532) * lu(k,1222)
2786 114070872 : lu(k,1260) = lu(k,1260) - lu(k,533) * lu(k,1222)
2787 114070872 : lu(k,1314) = lu(k,1314) - lu(k,520) * lu(k,1306)
2788 114070872 : lu(k,1323) = lu(k,1323) - lu(k,521) * lu(k,1306)
2789 114070872 : lu(k,1324) = lu(k,1324) - lu(k,522) * lu(k,1306)
2790 114070872 : lu(k,1325) = lu(k,1325) - lu(k,523) * lu(k,1306)
2791 114070872 : lu(k,1327) = lu(k,1327) - lu(k,524) * lu(k,1306)
2792 114070872 : lu(k,1329) = lu(k,1329) - lu(k,525) * lu(k,1306)
2793 114070872 : lu(k,1330) = lu(k,1330) - lu(k,526) * lu(k,1306)
2794 114070872 : lu(k,1333) = lu(k,1333) - lu(k,527) * lu(k,1306)
2795 114070872 : lu(k,1334) = lu(k,1334) - lu(k,528) * lu(k,1306)
2796 114070872 : lu(k,1335) = lu(k,1335) - lu(k,529) * lu(k,1306)
2797 114070872 : lu(k,1337) = lu(k,1337) - lu(k,530) * lu(k,1306)
2798 114070872 : lu(k,1342) = lu(k,1342) - lu(k,531) * lu(k,1306)
2799 114070872 : lu(k,1343) = lu(k,1343) - lu(k,532) * lu(k,1306)
2800 114070872 : lu(k,1344) = lu(k,1344) - lu(k,533) * lu(k,1306)
2801 114070872 : lu(k,1593) = lu(k,1593) - lu(k,520) * lu(k,1584)
2802 114070872 : lu(k,1602) = lu(k,1602) - lu(k,521) * lu(k,1584)
2803 114070872 : lu(k,1603) = lu(k,1603) - lu(k,522) * lu(k,1584)
2804 114070872 : lu(k,1604) = lu(k,1604) - lu(k,523) * lu(k,1584)
2805 114070872 : lu(k,1606) = lu(k,1606) - lu(k,524) * lu(k,1584)
2806 114070872 : lu(k,1608) = lu(k,1608) - lu(k,525) * lu(k,1584)
2807 114070872 : lu(k,1609) = lu(k,1609) - lu(k,526) * lu(k,1584)
2808 114070872 : lu(k,1612) = lu(k,1612) - lu(k,527) * lu(k,1584)
2809 114070872 : lu(k,1613) = lu(k,1613) - lu(k,528) * lu(k,1584)
2810 114070872 : lu(k,1614) = lu(k,1614) - lu(k,529) * lu(k,1584)
2811 114070872 : lu(k,1616) = lu(k,1616) - lu(k,530) * lu(k,1584)
2812 114070872 : lu(k,1621) = lu(k,1621) - lu(k,531) * lu(k,1584)
2813 114070872 : lu(k,1622) = lu(k,1622) - lu(k,532) * lu(k,1584)
2814 114070872 : lu(k,1623) = lu(k,1623) - lu(k,533) * lu(k,1584)
2815 114070872 : lu(k,1636) = lu(k,1636) - lu(k,520) * lu(k,1628)
2816 114070872 : lu(k,1645) = lu(k,1645) - lu(k,521) * lu(k,1628)
2817 114070872 : lu(k,1646) = lu(k,1646) - lu(k,522) * lu(k,1628)
2818 114070872 : lu(k,1647) = lu(k,1647) - lu(k,523) * lu(k,1628)
2819 114070872 : lu(k,1649) = lu(k,1649) - lu(k,524) * lu(k,1628)
2820 114070872 : lu(k,1651) = lu(k,1651) - lu(k,525) * lu(k,1628)
2821 114070872 : lu(k,1652) = lu(k,1652) - lu(k,526) * lu(k,1628)
2822 114070872 : lu(k,1655) = lu(k,1655) - lu(k,527) * lu(k,1628)
2823 114070872 : lu(k,1656) = lu(k,1656) - lu(k,528) * lu(k,1628)
2824 114070872 : lu(k,1657) = lu(k,1657) - lu(k,529) * lu(k,1628)
2825 114070872 : lu(k,1659) = lu(k,1659) - lu(k,530) * lu(k,1628)
2826 114070872 : lu(k,1664) = lu(k,1664) - lu(k,531) * lu(k,1628)
2827 114070872 : lu(k,1665) = lu(k,1665) - lu(k,532) * lu(k,1628)
2828 114070872 : lu(k,1666) = lu(k,1666) - lu(k,533) * lu(k,1628)
2829 114070872 : lu(k,1679) = lu(k,1679) - lu(k,520) * lu(k,1671)
2830 114070872 : lu(k,1688) = lu(k,1688) - lu(k,521) * lu(k,1671)
2831 114070872 : lu(k,1689) = lu(k,1689) - lu(k,522) * lu(k,1671)
2832 114070872 : lu(k,1690) = lu(k,1690) - lu(k,523) * lu(k,1671)
2833 114070872 : lu(k,1692) = lu(k,1692) - lu(k,524) * lu(k,1671)
2834 114070872 : lu(k,1694) = lu(k,1694) - lu(k,525) * lu(k,1671)
2835 114070872 : lu(k,1695) = lu(k,1695) - lu(k,526) * lu(k,1671)
2836 114070872 : lu(k,1698) = lu(k,1698) - lu(k,527) * lu(k,1671)
2837 114070872 : lu(k,1699) = lu(k,1699) - lu(k,528) * lu(k,1671)
2838 114070872 : lu(k,1700) = lu(k,1700) - lu(k,529) * lu(k,1671)
2839 114070872 : lu(k,1702) = lu(k,1702) - lu(k,530) * lu(k,1671)
2840 114070872 : lu(k,1707) = lu(k,1707) - lu(k,531) * lu(k,1671)
2841 114070872 : lu(k,1708) = lu(k,1708) - lu(k,532) * lu(k,1671)
2842 114070872 : lu(k,1709) = lu(k,1709) - lu(k,533) * lu(k,1671)
2843 114070872 : lu(k,2000) = lu(k,2000) - lu(k,520) * lu(k,1992)
2844 114070872 : lu(k,2009) = - lu(k,521) * lu(k,1992)
2845 114070872 : lu(k,2010) = - lu(k,522) * lu(k,1992)
2846 114070872 : lu(k,2011) = - lu(k,523) * lu(k,1992)
2847 114070872 : lu(k,2013) = - lu(k,524) * lu(k,1992)
2848 114070872 : lu(k,2015) = - lu(k,525) * lu(k,1992)
2849 114070872 : lu(k,2016) = lu(k,2016) - lu(k,526) * lu(k,1992)
2850 114070872 : lu(k,2019) = - lu(k,527) * lu(k,1992)
2851 114070872 : lu(k,2020) = - lu(k,528) * lu(k,1992)
2852 114070872 : lu(k,2021) = - lu(k,529) * lu(k,1992)
2853 114070872 : lu(k,2023) = lu(k,2023) - lu(k,530) * lu(k,1992)
2854 114070872 : lu(k,2028) = lu(k,2028) - lu(k,531) * lu(k,1992)
2855 114070872 : lu(k,2029) = lu(k,2029) - lu(k,532) * lu(k,1992)
2856 114070872 : lu(k,2030) = lu(k,2030) - lu(k,533) * lu(k,1992)
2857 114070872 : lu(k,535) = 1._r8 / lu(k,535)
2858 114070872 : lu(k,536) = lu(k,536) * lu(k,535)
2859 114070872 : lu(k,537) = lu(k,537) * lu(k,535)
2860 114070872 : lu(k,538) = lu(k,538) * lu(k,535)
2861 114070872 : lu(k,539) = lu(k,539) * lu(k,535)
2862 114070872 : lu(k,540) = lu(k,540) * lu(k,535)
2863 114070872 : lu(k,541) = lu(k,541) * lu(k,535)
2864 114070872 : lu(k,542) = lu(k,542) * lu(k,535)
2865 114070872 : lu(k,543) = lu(k,543) * lu(k,535)
2866 114070872 : lu(k,544) = lu(k,544) * lu(k,535)
2867 114070872 : lu(k,545) = lu(k,545) * lu(k,535)
2868 114070872 : lu(k,546) = lu(k,546) * lu(k,535)
2869 114070872 : lu(k,547) = lu(k,547) * lu(k,535)
2870 114070872 : lu(k,548) = lu(k,548) * lu(k,535)
2871 114070872 : lu(k,549) = lu(k,549) * lu(k,535)
2872 114070872 : lu(k,811) = lu(k,811) - lu(k,536) * lu(k,810)
2873 114070872 : lu(k,815) = lu(k,815) - lu(k,537) * lu(k,810)
2874 114070872 : lu(k,816) = lu(k,816) - lu(k,538) * lu(k,810)
2875 114070872 : lu(k,817) = lu(k,817) - lu(k,539) * lu(k,810)
2876 114070872 : lu(k,818) = lu(k,818) - lu(k,540) * lu(k,810)
2877 114070872 : lu(k,819) = lu(k,819) - lu(k,541) * lu(k,810)
2878 114070872 : lu(k,820) = lu(k,820) - lu(k,542) * lu(k,810)
2879 114070872 : lu(k,822) = lu(k,822) - lu(k,543) * lu(k,810)
2880 114070872 : lu(k,823) = lu(k,823) - lu(k,544) * lu(k,810)
2881 114070872 : lu(k,824) = lu(k,824) - lu(k,545) * lu(k,810)
2882 114070872 : lu(k,825) = lu(k,825) - lu(k,546) * lu(k,810)
2883 114070872 : lu(k,827) = lu(k,827) - lu(k,547) * lu(k,810)
2884 114070872 : lu(k,828) = lu(k,828) - lu(k,548) * lu(k,810)
2885 114070872 : lu(k,829) = lu(k,829) - lu(k,549) * lu(k,810)
2886 114070872 : lu(k,1144) = lu(k,1144) - lu(k,536) * lu(k,1136)
2887 114070872 : lu(k,1153) = lu(k,1153) - lu(k,537) * lu(k,1136)
2888 114070872 : lu(k,1154) = lu(k,1154) - lu(k,538) * lu(k,1136)
2889 114070872 : lu(k,1155) = lu(k,1155) - lu(k,539) * lu(k,1136)
2890 114070872 : lu(k,1157) = lu(k,1157) - lu(k,540) * lu(k,1136)
2891 114070872 : lu(k,1159) = lu(k,1159) - lu(k,541) * lu(k,1136)
2892 114070872 : lu(k,1160) = lu(k,1160) - lu(k,542) * lu(k,1136)
2893 114070872 : lu(k,1163) = lu(k,1163) - lu(k,543) * lu(k,1136)
2894 114070872 : lu(k,1164) = lu(k,1164) - lu(k,544) * lu(k,1136)
2895 114070872 : lu(k,1165) = lu(k,1165) - lu(k,545) * lu(k,1136)
2896 114070872 : lu(k,1167) = lu(k,1167) - lu(k,546) * lu(k,1136)
2897 114070872 : lu(k,1172) = lu(k,1172) - lu(k,547) * lu(k,1136)
2898 114070872 : lu(k,1173) = lu(k,1173) - lu(k,548) * lu(k,1136)
2899 114070872 : lu(k,1174) = lu(k,1174) - lu(k,549) * lu(k,1136)
2900 114070872 : lu(k,1187) = lu(k,1187) - lu(k,536) * lu(k,1180)
2901 114070872 : lu(k,1196) = lu(k,1196) - lu(k,537) * lu(k,1180)
2902 114070872 : lu(k,1197) = lu(k,1197) - lu(k,538) * lu(k,1180)
2903 114070872 : lu(k,1198) = lu(k,1198) - lu(k,539) * lu(k,1180)
2904 114070872 : lu(k,1200) = lu(k,1200) - lu(k,540) * lu(k,1180)
2905 114070872 : lu(k,1202) = lu(k,1202) - lu(k,541) * lu(k,1180)
2906 114070872 : lu(k,1203) = lu(k,1203) - lu(k,542) * lu(k,1180)
2907 114070872 : lu(k,1206) = lu(k,1206) - lu(k,543) * lu(k,1180)
2908 114070872 : lu(k,1207) = lu(k,1207) - lu(k,544) * lu(k,1180)
2909 114070872 : lu(k,1208) = lu(k,1208) - lu(k,545) * lu(k,1180)
2910 114070872 : lu(k,1210) = lu(k,1210) - lu(k,546) * lu(k,1180)
2911 114070872 : lu(k,1215) = lu(k,1215) - lu(k,547) * lu(k,1180)
2912 114070872 : lu(k,1216) = lu(k,1216) - lu(k,548) * lu(k,1180)
2913 114070872 : lu(k,1217) = lu(k,1217) - lu(k,549) * lu(k,1180)
2914 114070872 : lu(k,1230) = lu(k,1230) - lu(k,536) * lu(k,1223)
2915 114070872 : lu(k,1239) = lu(k,1239) - lu(k,537) * lu(k,1223)
2916 114070872 : lu(k,1240) = lu(k,1240) - lu(k,538) * lu(k,1223)
2917 114070872 : lu(k,1241) = lu(k,1241) - lu(k,539) * lu(k,1223)
2918 114070872 : lu(k,1243) = lu(k,1243) - lu(k,540) * lu(k,1223)
2919 114070872 : lu(k,1245) = lu(k,1245) - lu(k,541) * lu(k,1223)
2920 114070872 : lu(k,1246) = lu(k,1246) - lu(k,542) * lu(k,1223)
2921 114070872 : lu(k,1249) = lu(k,1249) - lu(k,543) * lu(k,1223)
2922 114070872 : lu(k,1250) = lu(k,1250) - lu(k,544) * lu(k,1223)
2923 114070872 : lu(k,1251) = lu(k,1251) - lu(k,545) * lu(k,1223)
2924 114070872 : lu(k,1253) = lu(k,1253) - lu(k,546) * lu(k,1223)
2925 114070872 : lu(k,1258) = lu(k,1258) - lu(k,547) * lu(k,1223)
2926 114070872 : lu(k,1259) = lu(k,1259) - lu(k,548) * lu(k,1223)
2927 114070872 : lu(k,1260) = lu(k,1260) - lu(k,549) * lu(k,1223)
2928 114070872 : lu(k,1314) = lu(k,1314) - lu(k,536) * lu(k,1307)
2929 114070872 : lu(k,1323) = lu(k,1323) - lu(k,537) * lu(k,1307)
2930 114070872 : lu(k,1324) = lu(k,1324) - lu(k,538) * lu(k,1307)
2931 114070872 : lu(k,1325) = lu(k,1325) - lu(k,539) * lu(k,1307)
2932 114070872 : lu(k,1327) = lu(k,1327) - lu(k,540) * lu(k,1307)
2933 114070872 : lu(k,1329) = lu(k,1329) - lu(k,541) * lu(k,1307)
2934 114070872 : lu(k,1330) = lu(k,1330) - lu(k,542) * lu(k,1307)
2935 114070872 : lu(k,1333) = lu(k,1333) - lu(k,543) * lu(k,1307)
2936 114070872 : lu(k,1334) = lu(k,1334) - lu(k,544) * lu(k,1307)
2937 114070872 : lu(k,1335) = lu(k,1335) - lu(k,545) * lu(k,1307)
2938 114070872 : lu(k,1337) = lu(k,1337) - lu(k,546) * lu(k,1307)
2939 114070872 : lu(k,1342) = lu(k,1342) - lu(k,547) * lu(k,1307)
2940 114070872 : lu(k,1343) = lu(k,1343) - lu(k,548) * lu(k,1307)
2941 114070872 : lu(k,1344) = lu(k,1344) - lu(k,549) * lu(k,1307)
2942 114070872 : lu(k,1593) = lu(k,1593) - lu(k,536) * lu(k,1585)
2943 114070872 : lu(k,1602) = lu(k,1602) - lu(k,537) * lu(k,1585)
2944 114070872 : lu(k,1603) = lu(k,1603) - lu(k,538) * lu(k,1585)
2945 114070872 : lu(k,1604) = lu(k,1604) - lu(k,539) * lu(k,1585)
2946 114070872 : lu(k,1606) = lu(k,1606) - lu(k,540) * lu(k,1585)
2947 114070872 : lu(k,1608) = lu(k,1608) - lu(k,541) * lu(k,1585)
2948 114070872 : lu(k,1609) = lu(k,1609) - lu(k,542) * lu(k,1585)
2949 114070872 : lu(k,1612) = lu(k,1612) - lu(k,543) * lu(k,1585)
2950 114070872 : lu(k,1613) = lu(k,1613) - lu(k,544) * lu(k,1585)
2951 114070872 : lu(k,1614) = lu(k,1614) - lu(k,545) * lu(k,1585)
2952 114070872 : lu(k,1616) = lu(k,1616) - lu(k,546) * lu(k,1585)
2953 114070872 : lu(k,1621) = lu(k,1621) - lu(k,547) * lu(k,1585)
2954 114070872 : lu(k,1622) = lu(k,1622) - lu(k,548) * lu(k,1585)
2955 114070872 : lu(k,1623) = lu(k,1623) - lu(k,549) * lu(k,1585)
2956 114070872 : lu(k,1636) = lu(k,1636) - lu(k,536) * lu(k,1629)
2957 114070872 : lu(k,1645) = lu(k,1645) - lu(k,537) * lu(k,1629)
2958 114070872 : lu(k,1646) = lu(k,1646) - lu(k,538) * lu(k,1629)
2959 114070872 : lu(k,1647) = lu(k,1647) - lu(k,539) * lu(k,1629)
2960 114070872 : lu(k,1649) = lu(k,1649) - lu(k,540) * lu(k,1629)
2961 114070872 : lu(k,1651) = lu(k,1651) - lu(k,541) * lu(k,1629)
2962 114070872 : lu(k,1652) = lu(k,1652) - lu(k,542) * lu(k,1629)
2963 114070872 : lu(k,1655) = lu(k,1655) - lu(k,543) * lu(k,1629)
2964 114070872 : lu(k,1656) = lu(k,1656) - lu(k,544) * lu(k,1629)
2965 114070872 : lu(k,1657) = lu(k,1657) - lu(k,545) * lu(k,1629)
2966 114070872 : lu(k,1659) = lu(k,1659) - lu(k,546) * lu(k,1629)
2967 114070872 : lu(k,1664) = lu(k,1664) - lu(k,547) * lu(k,1629)
2968 114070872 : lu(k,1665) = lu(k,1665) - lu(k,548) * lu(k,1629)
2969 114070872 : lu(k,1666) = lu(k,1666) - lu(k,549) * lu(k,1629)
2970 114070872 : lu(k,1679) = lu(k,1679) - lu(k,536) * lu(k,1672)
2971 114070872 : lu(k,1688) = lu(k,1688) - lu(k,537) * lu(k,1672)
2972 114070872 : lu(k,1689) = lu(k,1689) - lu(k,538) * lu(k,1672)
2973 114070872 : lu(k,1690) = lu(k,1690) - lu(k,539) * lu(k,1672)
2974 114070872 : lu(k,1692) = lu(k,1692) - lu(k,540) * lu(k,1672)
2975 114070872 : lu(k,1694) = lu(k,1694) - lu(k,541) * lu(k,1672)
2976 114070872 : lu(k,1695) = lu(k,1695) - lu(k,542) * lu(k,1672)
2977 114070872 : lu(k,1698) = lu(k,1698) - lu(k,543) * lu(k,1672)
2978 114070872 : lu(k,1699) = lu(k,1699) - lu(k,544) * lu(k,1672)
2979 114070872 : lu(k,1700) = lu(k,1700) - lu(k,545) * lu(k,1672)
2980 114070872 : lu(k,1702) = lu(k,1702) - lu(k,546) * lu(k,1672)
2981 114070872 : lu(k,1707) = lu(k,1707) - lu(k,547) * lu(k,1672)
2982 114070872 : lu(k,1708) = lu(k,1708) - lu(k,548) * lu(k,1672)
2983 114070872 : lu(k,1709) = lu(k,1709) - lu(k,549) * lu(k,1672)
2984 114070872 : lu(k,2000) = lu(k,2000) - lu(k,536) * lu(k,1993)
2985 114070872 : lu(k,2009) = lu(k,2009) - lu(k,537) * lu(k,1993)
2986 114070872 : lu(k,2010) = lu(k,2010) - lu(k,538) * lu(k,1993)
2987 114070872 : lu(k,2011) = lu(k,2011) - lu(k,539) * lu(k,1993)
2988 114070872 : lu(k,2013) = lu(k,2013) - lu(k,540) * lu(k,1993)
2989 114070872 : lu(k,2015) = lu(k,2015) - lu(k,541) * lu(k,1993)
2990 114070872 : lu(k,2016) = lu(k,2016) - lu(k,542) * lu(k,1993)
2991 114070872 : lu(k,2019) = lu(k,2019) - lu(k,543) * lu(k,1993)
2992 114070872 : lu(k,2020) = lu(k,2020) - lu(k,544) * lu(k,1993)
2993 114070872 : lu(k,2021) = lu(k,2021) - lu(k,545) * lu(k,1993)
2994 114070872 : lu(k,2023) = lu(k,2023) - lu(k,546) * lu(k,1993)
2995 114070872 : lu(k,2028) = lu(k,2028) - lu(k,547) * lu(k,1993)
2996 114070872 : lu(k,2029) = lu(k,2029) - lu(k,548) * lu(k,1993)
2997 114070872 : lu(k,2030) = lu(k,2030) - lu(k,549) * lu(k,1993)
2998 114070872 : lu(k,2061) = lu(k,2061) - lu(k,536) * lu(k,2051)
2999 114070872 : lu(k,2069) = lu(k,2069) - lu(k,537) * lu(k,2051)
3000 114070872 : lu(k,2070) = lu(k,2070) - lu(k,538) * lu(k,2051)
3001 114070872 : lu(k,2071) = lu(k,2071) - lu(k,539) * lu(k,2051)
3002 114070872 : lu(k,2073) = lu(k,2073) - lu(k,540) * lu(k,2051)
3003 114070872 : lu(k,2075) = lu(k,2075) - lu(k,541) * lu(k,2051)
3004 114070872 : lu(k,2076) = lu(k,2076) - lu(k,542) * lu(k,2051)
3005 114070872 : lu(k,2079) = lu(k,2079) - lu(k,543) * lu(k,2051)
3006 114070872 : lu(k,2080) = lu(k,2080) - lu(k,544) * lu(k,2051)
3007 114070872 : lu(k,2081) = lu(k,2081) - lu(k,545) * lu(k,2051)
3008 114070872 : lu(k,2083) = lu(k,2083) - lu(k,546) * lu(k,2051)
3009 114070872 : lu(k,2088) = lu(k,2088) - lu(k,547) * lu(k,2051)
3010 114070872 : lu(k,2089) = lu(k,2089) - lu(k,548) * lu(k,2051)
3011 117656469 : lu(k,2090) = lu(k,2090) - lu(k,549) * lu(k,2051)
3012 : end do
3013 3585597 : end subroutine lu_fac13
3014 3585597 : subroutine lu_fac14( avec_len, lu )
3015 : use chem_mods, only : nzcnt
3016 : use shr_kind_mod, only : r8 => shr_kind_r8
3017 : implicit none
3018 : !-----------------------------------------------------------------------
3019 : ! ... dummy args
3020 : !-----------------------------------------------------------------------
3021 : integer, intent(in) :: avec_len
3022 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3023 : !-----------------------------------------------------------------------
3024 : ! ... local variables
3025 : !-----------------------------------------------------------------------
3026 : integer :: k
3027 117656469 : do k = 1,avec_len
3028 114070872 : lu(k,550) = 1._r8 / lu(k,550)
3029 114070872 : lu(k,551) = lu(k,551) * lu(k,550)
3030 114070872 : lu(k,552) = lu(k,552) * lu(k,550)
3031 114070872 : lu(k,553) = lu(k,553) * lu(k,550)
3032 114070872 : lu(k,554) = lu(k,554) * lu(k,550)
3033 114070872 : lu(k,555) = lu(k,555) * lu(k,550)
3034 114070872 : lu(k,556) = lu(k,556) * lu(k,550)
3035 114070872 : lu(k,557) = lu(k,557) * lu(k,550)
3036 114070872 : lu(k,558) = lu(k,558) * lu(k,550)
3037 114070872 : lu(k,559) = lu(k,559) * lu(k,550)
3038 114070872 : lu(k,560) = lu(k,560) * lu(k,550)
3039 114070872 : lu(k,561) = lu(k,561) * lu(k,550)
3040 114070872 : lu(k,562) = lu(k,562) * lu(k,550)
3041 114070872 : lu(k,563) = lu(k,563) * lu(k,550)
3042 114070872 : lu(k,672) = lu(k,672) - lu(k,551) * lu(k,668)
3043 114070872 : lu(k,674) = lu(k,674) - lu(k,552) * lu(k,668)
3044 114070872 : lu(k,675) = lu(k,675) - lu(k,553) * lu(k,668)
3045 114070872 : lu(k,676) = lu(k,676) - lu(k,554) * lu(k,668)
3046 114070872 : lu(k,678) = lu(k,678) - lu(k,555) * lu(k,668)
3047 114070872 : lu(k,680) = lu(k,680) - lu(k,556) * lu(k,668)
3048 114070872 : lu(k,681) = lu(k,681) - lu(k,557) * lu(k,668)
3049 114070872 : lu(k,682) = lu(k,682) - lu(k,558) * lu(k,668)
3050 114070872 : lu(k,683) = lu(k,683) - lu(k,559) * lu(k,668)
3051 114070872 : lu(k,684) = lu(k,684) - lu(k,560) * lu(k,668)
3052 114070872 : lu(k,685) = lu(k,685) - lu(k,561) * lu(k,668)
3053 114070872 : lu(k,686) = lu(k,686) - lu(k,562) * lu(k,668)
3054 114070872 : lu(k,687) = lu(k,687) - lu(k,563) * lu(k,668)
3055 114070872 : lu(k,926) = lu(k,926) - lu(k,551) * lu(k,923)
3056 114070872 : lu(k,930) = lu(k,930) - lu(k,552) * lu(k,923)
3057 114070872 : lu(k,931) = lu(k,931) - lu(k,553) * lu(k,923)
3058 114070872 : lu(k,932) = lu(k,932) - lu(k,554) * lu(k,923)
3059 114070872 : lu(k,933) = lu(k,933) - lu(k,555) * lu(k,923)
3060 114070872 : lu(k,935) = lu(k,935) - lu(k,556) * lu(k,923)
3061 114070872 : lu(k,938) = lu(k,938) - lu(k,557) * lu(k,923)
3062 114070872 : lu(k,939) = lu(k,939) - lu(k,558) * lu(k,923)
3063 114070872 : lu(k,940) = lu(k,940) - lu(k,559) * lu(k,923)
3064 114070872 : lu(k,942) = lu(k,942) - lu(k,560) * lu(k,923)
3065 114070872 : lu(k,943) = lu(k,943) - lu(k,561) * lu(k,923)
3066 114070872 : lu(k,946) = lu(k,946) - lu(k,562) * lu(k,923)
3067 114070872 : lu(k,948) = lu(k,948) - lu(k,563) * lu(k,923)
3068 114070872 : lu(k,1148) = lu(k,1148) - lu(k,551) * lu(k,1137)
3069 114070872 : lu(k,1153) = lu(k,1153) - lu(k,552) * lu(k,1137)
3070 114070872 : lu(k,1154) = lu(k,1154) - lu(k,553) * lu(k,1137)
3071 114070872 : lu(k,1155) = lu(k,1155) - lu(k,554) * lu(k,1137)
3072 114070872 : lu(k,1157) = lu(k,1157) - lu(k,555) * lu(k,1137)
3073 114070872 : lu(k,1159) = lu(k,1159) - lu(k,556) * lu(k,1137)
3074 114070872 : lu(k,1163) = lu(k,1163) - lu(k,557) * lu(k,1137)
3075 114070872 : lu(k,1164) = lu(k,1164) - lu(k,558) * lu(k,1137)
3076 114070872 : lu(k,1165) = lu(k,1165) - lu(k,559) * lu(k,1137)
3077 114070872 : lu(k,1167) = lu(k,1167) - lu(k,560) * lu(k,1137)
3078 114070872 : lu(k,1168) = lu(k,1168) - lu(k,561) * lu(k,1137)
3079 114070872 : lu(k,1172) = lu(k,1172) - lu(k,562) * lu(k,1137)
3080 114070872 : lu(k,1174) = lu(k,1174) - lu(k,563) * lu(k,1137)
3081 114070872 : lu(k,1191) = lu(k,1191) - lu(k,551) * lu(k,1181)
3082 114070872 : lu(k,1196) = lu(k,1196) - lu(k,552) * lu(k,1181)
3083 114070872 : lu(k,1197) = lu(k,1197) - lu(k,553) * lu(k,1181)
3084 114070872 : lu(k,1198) = lu(k,1198) - lu(k,554) * lu(k,1181)
3085 114070872 : lu(k,1200) = lu(k,1200) - lu(k,555) * lu(k,1181)
3086 114070872 : lu(k,1202) = lu(k,1202) - lu(k,556) * lu(k,1181)
3087 114070872 : lu(k,1206) = lu(k,1206) - lu(k,557) * lu(k,1181)
3088 114070872 : lu(k,1207) = lu(k,1207) - lu(k,558) * lu(k,1181)
3089 114070872 : lu(k,1208) = lu(k,1208) - lu(k,559) * lu(k,1181)
3090 114070872 : lu(k,1210) = lu(k,1210) - lu(k,560) * lu(k,1181)
3091 114070872 : lu(k,1211) = lu(k,1211) - lu(k,561) * lu(k,1181)
3092 114070872 : lu(k,1215) = lu(k,1215) - lu(k,562) * lu(k,1181)
3093 114070872 : lu(k,1217) = lu(k,1217) - lu(k,563) * lu(k,1181)
3094 114070872 : lu(k,1234) = lu(k,1234) - lu(k,551) * lu(k,1224)
3095 114070872 : lu(k,1239) = lu(k,1239) - lu(k,552) * lu(k,1224)
3096 114070872 : lu(k,1240) = lu(k,1240) - lu(k,553) * lu(k,1224)
3097 114070872 : lu(k,1241) = lu(k,1241) - lu(k,554) * lu(k,1224)
3098 114070872 : lu(k,1243) = lu(k,1243) - lu(k,555) * lu(k,1224)
3099 114070872 : lu(k,1245) = lu(k,1245) - lu(k,556) * lu(k,1224)
3100 114070872 : lu(k,1249) = lu(k,1249) - lu(k,557) * lu(k,1224)
3101 114070872 : lu(k,1250) = lu(k,1250) - lu(k,558) * lu(k,1224)
3102 114070872 : lu(k,1251) = lu(k,1251) - lu(k,559) * lu(k,1224)
3103 114070872 : lu(k,1253) = lu(k,1253) - lu(k,560) * lu(k,1224)
3104 114070872 : lu(k,1254) = lu(k,1254) - lu(k,561) * lu(k,1224)
3105 114070872 : lu(k,1258) = lu(k,1258) - lu(k,562) * lu(k,1224)
3106 114070872 : lu(k,1260) = lu(k,1260) - lu(k,563) * lu(k,1224)
3107 114070872 : lu(k,1318) = lu(k,1318) - lu(k,551) * lu(k,1308)
3108 114070872 : lu(k,1323) = lu(k,1323) - lu(k,552) * lu(k,1308)
3109 114070872 : lu(k,1324) = lu(k,1324) - lu(k,553) * lu(k,1308)
3110 114070872 : lu(k,1325) = lu(k,1325) - lu(k,554) * lu(k,1308)
3111 114070872 : lu(k,1327) = lu(k,1327) - lu(k,555) * lu(k,1308)
3112 114070872 : lu(k,1329) = lu(k,1329) - lu(k,556) * lu(k,1308)
3113 114070872 : lu(k,1333) = lu(k,1333) - lu(k,557) * lu(k,1308)
3114 114070872 : lu(k,1334) = lu(k,1334) - lu(k,558) * lu(k,1308)
3115 114070872 : lu(k,1335) = lu(k,1335) - lu(k,559) * lu(k,1308)
3116 114070872 : lu(k,1337) = lu(k,1337) - lu(k,560) * lu(k,1308)
3117 114070872 : lu(k,1338) = lu(k,1338) - lu(k,561) * lu(k,1308)
3118 114070872 : lu(k,1342) = lu(k,1342) - lu(k,562) * lu(k,1308)
3119 114070872 : lu(k,1344) = lu(k,1344) - lu(k,563) * lu(k,1308)
3120 114070872 : lu(k,1597) = lu(k,1597) - lu(k,551) * lu(k,1586)
3121 114070872 : lu(k,1602) = lu(k,1602) - lu(k,552) * lu(k,1586)
3122 114070872 : lu(k,1603) = lu(k,1603) - lu(k,553) * lu(k,1586)
3123 114070872 : lu(k,1604) = lu(k,1604) - lu(k,554) * lu(k,1586)
3124 114070872 : lu(k,1606) = lu(k,1606) - lu(k,555) * lu(k,1586)
3125 114070872 : lu(k,1608) = lu(k,1608) - lu(k,556) * lu(k,1586)
3126 114070872 : lu(k,1612) = lu(k,1612) - lu(k,557) * lu(k,1586)
3127 114070872 : lu(k,1613) = lu(k,1613) - lu(k,558) * lu(k,1586)
3128 114070872 : lu(k,1614) = lu(k,1614) - lu(k,559) * lu(k,1586)
3129 114070872 : lu(k,1616) = lu(k,1616) - lu(k,560) * lu(k,1586)
3130 114070872 : lu(k,1617) = lu(k,1617) - lu(k,561) * lu(k,1586)
3131 114070872 : lu(k,1621) = lu(k,1621) - lu(k,562) * lu(k,1586)
3132 114070872 : lu(k,1623) = lu(k,1623) - lu(k,563) * lu(k,1586)
3133 114070872 : lu(k,1640) = lu(k,1640) - lu(k,551) * lu(k,1630)
3134 114070872 : lu(k,1645) = lu(k,1645) - lu(k,552) * lu(k,1630)
3135 114070872 : lu(k,1646) = lu(k,1646) - lu(k,553) * lu(k,1630)
3136 114070872 : lu(k,1647) = lu(k,1647) - lu(k,554) * lu(k,1630)
3137 114070872 : lu(k,1649) = lu(k,1649) - lu(k,555) * lu(k,1630)
3138 114070872 : lu(k,1651) = lu(k,1651) - lu(k,556) * lu(k,1630)
3139 114070872 : lu(k,1655) = lu(k,1655) - lu(k,557) * lu(k,1630)
3140 114070872 : lu(k,1656) = lu(k,1656) - lu(k,558) * lu(k,1630)
3141 114070872 : lu(k,1657) = lu(k,1657) - lu(k,559) * lu(k,1630)
3142 114070872 : lu(k,1659) = lu(k,1659) - lu(k,560) * lu(k,1630)
3143 114070872 : lu(k,1660) = lu(k,1660) - lu(k,561) * lu(k,1630)
3144 114070872 : lu(k,1664) = lu(k,1664) - lu(k,562) * lu(k,1630)
3145 114070872 : lu(k,1666) = lu(k,1666) - lu(k,563) * lu(k,1630)
3146 114070872 : lu(k,1683) = lu(k,1683) - lu(k,551) * lu(k,1673)
3147 114070872 : lu(k,1688) = lu(k,1688) - lu(k,552) * lu(k,1673)
3148 114070872 : lu(k,1689) = lu(k,1689) - lu(k,553) * lu(k,1673)
3149 114070872 : lu(k,1690) = lu(k,1690) - lu(k,554) * lu(k,1673)
3150 114070872 : lu(k,1692) = lu(k,1692) - lu(k,555) * lu(k,1673)
3151 114070872 : lu(k,1694) = lu(k,1694) - lu(k,556) * lu(k,1673)
3152 114070872 : lu(k,1698) = lu(k,1698) - lu(k,557) * lu(k,1673)
3153 114070872 : lu(k,1699) = lu(k,1699) - lu(k,558) * lu(k,1673)
3154 114070872 : lu(k,1700) = lu(k,1700) - lu(k,559) * lu(k,1673)
3155 114070872 : lu(k,1702) = lu(k,1702) - lu(k,560) * lu(k,1673)
3156 114070872 : lu(k,1703) = lu(k,1703) - lu(k,561) * lu(k,1673)
3157 114070872 : lu(k,1707) = lu(k,1707) - lu(k,562) * lu(k,1673)
3158 114070872 : lu(k,1709) = lu(k,1709) - lu(k,563) * lu(k,1673)
3159 114070872 : lu(k,1959) = lu(k,1959) - lu(k,551) * lu(k,1948)
3160 114070872 : lu(k,1964) = lu(k,1964) - lu(k,552) * lu(k,1948)
3161 114070872 : lu(k,1965) = - lu(k,553) * lu(k,1948)
3162 114070872 : lu(k,1966) = - lu(k,554) * lu(k,1948)
3163 114070872 : lu(k,1968) = - lu(k,555) * lu(k,1948)
3164 114070872 : lu(k,1970) = lu(k,1970) - lu(k,556) * lu(k,1948)
3165 114070872 : lu(k,1974) = lu(k,1974) - lu(k,557) * lu(k,1948)
3166 114070872 : lu(k,1975) = - lu(k,558) * lu(k,1948)
3167 114070872 : lu(k,1976) = - lu(k,559) * lu(k,1948)
3168 114070872 : lu(k,1978) = lu(k,1978) - lu(k,560) * lu(k,1948)
3169 114070872 : lu(k,1979) = lu(k,1979) - lu(k,561) * lu(k,1948)
3170 114070872 : lu(k,1983) = lu(k,1983) - lu(k,562) * lu(k,1948)
3171 114070872 : lu(k,1985) = lu(k,1985) - lu(k,563) * lu(k,1948)
3172 114070872 : lu(k,2064) = lu(k,2064) - lu(k,551) * lu(k,2052)
3173 114070872 : lu(k,2069) = lu(k,2069) - lu(k,552) * lu(k,2052)
3174 114070872 : lu(k,2070) = lu(k,2070) - lu(k,553) * lu(k,2052)
3175 114070872 : lu(k,2071) = lu(k,2071) - lu(k,554) * lu(k,2052)
3176 114070872 : lu(k,2073) = lu(k,2073) - lu(k,555) * lu(k,2052)
3177 114070872 : lu(k,2075) = lu(k,2075) - lu(k,556) * lu(k,2052)
3178 114070872 : lu(k,2079) = lu(k,2079) - lu(k,557) * lu(k,2052)
3179 114070872 : lu(k,2080) = lu(k,2080) - lu(k,558) * lu(k,2052)
3180 114070872 : lu(k,2081) = lu(k,2081) - lu(k,559) * lu(k,2052)
3181 114070872 : lu(k,2083) = lu(k,2083) - lu(k,560) * lu(k,2052)
3182 114070872 : lu(k,2084) = lu(k,2084) - lu(k,561) * lu(k,2052)
3183 114070872 : lu(k,2088) = lu(k,2088) - lu(k,562) * lu(k,2052)
3184 114070872 : lu(k,2090) = lu(k,2090) - lu(k,563) * lu(k,2052)
3185 114070872 : lu(k,564) = 1._r8 / lu(k,564)
3186 114070872 : lu(k,565) = lu(k,565) * lu(k,564)
3187 114070872 : lu(k,566) = lu(k,566) * lu(k,564)
3188 114070872 : lu(k,567) = lu(k,567) * lu(k,564)
3189 114070872 : lu(k,568) = lu(k,568) * lu(k,564)
3190 114070872 : lu(k,569) = lu(k,569) * lu(k,564)
3191 114070872 : lu(k,570) = lu(k,570) * lu(k,564)
3192 114070872 : lu(k,571) = lu(k,571) * lu(k,564)
3193 114070872 : lu(k,572) = lu(k,572) * lu(k,564)
3194 114070872 : lu(k,573) = lu(k,573) * lu(k,564)
3195 114070872 : lu(k,574) = lu(k,574) * lu(k,564)
3196 114070872 : lu(k,575) = lu(k,575) * lu(k,564)
3197 114070872 : lu(k,576) = lu(k,576) * lu(k,564)
3198 114070872 : lu(k,577) = lu(k,577) * lu(k,564)
3199 114070872 : lu(k,578) = lu(k,578) * lu(k,564)
3200 114070872 : lu(k,579) = lu(k,579) * lu(k,564)
3201 114070872 : lu(k,863) = lu(k,863) - lu(k,565) * lu(k,862)
3202 114070872 : lu(k,869) = lu(k,869) - lu(k,566) * lu(k,862)
3203 114070872 : lu(k,870) = lu(k,870) - lu(k,567) * lu(k,862)
3204 114070872 : lu(k,871) = lu(k,871) - lu(k,568) * lu(k,862)
3205 114070872 : lu(k,872) = lu(k,872) - lu(k,569) * lu(k,862)
3206 114070872 : lu(k,874) = lu(k,874) - lu(k,570) * lu(k,862)
3207 114070872 : lu(k,876) = lu(k,876) - lu(k,571) * lu(k,862)
3208 114070872 : lu(k,877) = lu(k,877) - lu(k,572) * lu(k,862)
3209 114070872 : lu(k,878) = lu(k,878) - lu(k,573) * lu(k,862)
3210 114070872 : lu(k,879) = lu(k,879) - lu(k,574) * lu(k,862)
3211 114070872 : lu(k,880) = lu(k,880) - lu(k,575) * lu(k,862)
3212 114070872 : lu(k,881) = - lu(k,576) * lu(k,862)
3213 114070872 : lu(k,884) = lu(k,884) - lu(k,577) * lu(k,862)
3214 114070872 : lu(k,885) = lu(k,885) - lu(k,578) * lu(k,862)
3215 114070872 : lu(k,886) = lu(k,886) - lu(k,579) * lu(k,862)
3216 114070872 : lu(k,1139) = lu(k,1139) - lu(k,565) * lu(k,1138)
3217 114070872 : lu(k,1153) = lu(k,1153) - lu(k,566) * lu(k,1138)
3218 114070872 : lu(k,1154) = lu(k,1154) - lu(k,567) * lu(k,1138)
3219 114070872 : lu(k,1155) = lu(k,1155) - lu(k,568) * lu(k,1138)
3220 114070872 : lu(k,1157) = lu(k,1157) - lu(k,569) * lu(k,1138)
3221 114070872 : lu(k,1159) = lu(k,1159) - lu(k,570) * lu(k,1138)
3222 114070872 : lu(k,1161) = lu(k,1161) - lu(k,571) * lu(k,1138)
3223 114070872 : lu(k,1163) = lu(k,1163) - lu(k,572) * lu(k,1138)
3224 114070872 : lu(k,1164) = lu(k,1164) - lu(k,573) * lu(k,1138)
3225 114070872 : lu(k,1165) = lu(k,1165) - lu(k,574) * lu(k,1138)
3226 114070872 : lu(k,1166) = lu(k,1166) - lu(k,575) * lu(k,1138)
3227 114070872 : lu(k,1167) = lu(k,1167) - lu(k,576) * lu(k,1138)
3228 114070872 : lu(k,1172) = lu(k,1172) - lu(k,577) * lu(k,1138)
3229 114070872 : lu(k,1173) = lu(k,1173) - lu(k,578) * lu(k,1138)
3230 114070872 : lu(k,1174) = lu(k,1174) - lu(k,579) * lu(k,1138)
3231 114070872 : lu(k,1183) = lu(k,1183) - lu(k,565) * lu(k,1182)
3232 114070872 : lu(k,1196) = lu(k,1196) - lu(k,566) * lu(k,1182)
3233 114070872 : lu(k,1197) = lu(k,1197) - lu(k,567) * lu(k,1182)
3234 114070872 : lu(k,1198) = lu(k,1198) - lu(k,568) * lu(k,1182)
3235 114070872 : lu(k,1200) = lu(k,1200) - lu(k,569) * lu(k,1182)
3236 114070872 : lu(k,1202) = lu(k,1202) - lu(k,570) * lu(k,1182)
3237 114070872 : lu(k,1204) = lu(k,1204) - lu(k,571) * lu(k,1182)
3238 114070872 : lu(k,1206) = lu(k,1206) - lu(k,572) * lu(k,1182)
3239 114070872 : lu(k,1207) = lu(k,1207) - lu(k,573) * lu(k,1182)
3240 114070872 : lu(k,1208) = lu(k,1208) - lu(k,574) * lu(k,1182)
3241 114070872 : lu(k,1209) = lu(k,1209) - lu(k,575) * lu(k,1182)
3242 114070872 : lu(k,1210) = lu(k,1210) - lu(k,576) * lu(k,1182)
3243 114070872 : lu(k,1215) = lu(k,1215) - lu(k,577) * lu(k,1182)
3244 114070872 : lu(k,1216) = lu(k,1216) - lu(k,578) * lu(k,1182)
3245 114070872 : lu(k,1217) = lu(k,1217) - lu(k,579) * lu(k,1182)
3246 114070872 : lu(k,1226) = lu(k,1226) - lu(k,565) * lu(k,1225)
3247 114070872 : lu(k,1239) = lu(k,1239) - lu(k,566) * lu(k,1225)
3248 114070872 : lu(k,1240) = lu(k,1240) - lu(k,567) * lu(k,1225)
3249 114070872 : lu(k,1241) = lu(k,1241) - lu(k,568) * lu(k,1225)
3250 114070872 : lu(k,1243) = lu(k,1243) - lu(k,569) * lu(k,1225)
3251 114070872 : lu(k,1245) = lu(k,1245) - lu(k,570) * lu(k,1225)
3252 114070872 : lu(k,1247) = lu(k,1247) - lu(k,571) * lu(k,1225)
3253 114070872 : lu(k,1249) = lu(k,1249) - lu(k,572) * lu(k,1225)
3254 114070872 : lu(k,1250) = lu(k,1250) - lu(k,573) * lu(k,1225)
3255 114070872 : lu(k,1251) = lu(k,1251) - lu(k,574) * lu(k,1225)
3256 114070872 : lu(k,1252) = lu(k,1252) - lu(k,575) * lu(k,1225)
3257 114070872 : lu(k,1253) = lu(k,1253) - lu(k,576) * lu(k,1225)
3258 114070872 : lu(k,1258) = lu(k,1258) - lu(k,577) * lu(k,1225)
3259 114070872 : lu(k,1259) = lu(k,1259) - lu(k,578) * lu(k,1225)
3260 114070872 : lu(k,1260) = lu(k,1260) - lu(k,579) * lu(k,1225)
3261 114070872 : lu(k,1310) = lu(k,1310) - lu(k,565) * lu(k,1309)
3262 114070872 : lu(k,1323) = lu(k,1323) - lu(k,566) * lu(k,1309)
3263 114070872 : lu(k,1324) = lu(k,1324) - lu(k,567) * lu(k,1309)
3264 114070872 : lu(k,1325) = lu(k,1325) - lu(k,568) * lu(k,1309)
3265 114070872 : lu(k,1327) = lu(k,1327) - lu(k,569) * lu(k,1309)
3266 114070872 : lu(k,1329) = lu(k,1329) - lu(k,570) * lu(k,1309)
3267 114070872 : lu(k,1331) = lu(k,1331) - lu(k,571) * lu(k,1309)
3268 114070872 : lu(k,1333) = lu(k,1333) - lu(k,572) * lu(k,1309)
3269 114070872 : lu(k,1334) = lu(k,1334) - lu(k,573) * lu(k,1309)
3270 114070872 : lu(k,1335) = lu(k,1335) - lu(k,574) * lu(k,1309)
3271 114070872 : lu(k,1336) = lu(k,1336) - lu(k,575) * lu(k,1309)
3272 114070872 : lu(k,1337) = lu(k,1337) - lu(k,576) * lu(k,1309)
3273 114070872 : lu(k,1342) = lu(k,1342) - lu(k,577) * lu(k,1309)
3274 114070872 : lu(k,1343) = lu(k,1343) - lu(k,578) * lu(k,1309)
3275 114070872 : lu(k,1344) = lu(k,1344) - lu(k,579) * lu(k,1309)
3276 114070872 : lu(k,1508) = lu(k,1508) - lu(k,565) * lu(k,1507)
3277 114070872 : lu(k,1521) = - lu(k,566) * lu(k,1507)
3278 114070872 : lu(k,1522) = - lu(k,567) * lu(k,1507)
3279 114070872 : lu(k,1523) = - lu(k,568) * lu(k,1507)
3280 114070872 : lu(k,1525) = - lu(k,569) * lu(k,1507)
3281 114070872 : lu(k,1527) = lu(k,1527) - lu(k,570) * lu(k,1507)
3282 114070872 : lu(k,1529) = lu(k,1529) - lu(k,571) * lu(k,1507)
3283 114070872 : lu(k,1531) = - lu(k,572) * lu(k,1507)
3284 114070872 : lu(k,1532) = - lu(k,573) * lu(k,1507)
3285 114070872 : lu(k,1533) = - lu(k,574) * lu(k,1507)
3286 114070872 : lu(k,1534) = lu(k,1534) - lu(k,575) * lu(k,1507)
3287 114070872 : lu(k,1535) = lu(k,1535) - lu(k,576) * lu(k,1507)
3288 114070872 : lu(k,1540) = lu(k,1540) - lu(k,577) * lu(k,1507)
3289 114070872 : lu(k,1541) = lu(k,1541) - lu(k,578) * lu(k,1507)
3290 114070872 : lu(k,1542) = lu(k,1542) - lu(k,579) * lu(k,1507)
3291 114070872 : lu(k,1588) = lu(k,1588) - lu(k,565) * lu(k,1587)
3292 114070872 : lu(k,1602) = lu(k,1602) - lu(k,566) * lu(k,1587)
3293 114070872 : lu(k,1603) = lu(k,1603) - lu(k,567) * lu(k,1587)
3294 114070872 : lu(k,1604) = lu(k,1604) - lu(k,568) * lu(k,1587)
3295 114070872 : lu(k,1606) = lu(k,1606) - lu(k,569) * lu(k,1587)
3296 114070872 : lu(k,1608) = lu(k,1608) - lu(k,570) * lu(k,1587)
3297 114070872 : lu(k,1610) = lu(k,1610) - lu(k,571) * lu(k,1587)
3298 114070872 : lu(k,1612) = lu(k,1612) - lu(k,572) * lu(k,1587)
3299 114070872 : lu(k,1613) = lu(k,1613) - lu(k,573) * lu(k,1587)
3300 114070872 : lu(k,1614) = lu(k,1614) - lu(k,574) * lu(k,1587)
3301 114070872 : lu(k,1615) = lu(k,1615) - lu(k,575) * lu(k,1587)
3302 114070872 : lu(k,1616) = lu(k,1616) - lu(k,576) * lu(k,1587)
3303 114070872 : lu(k,1621) = lu(k,1621) - lu(k,577) * lu(k,1587)
3304 114070872 : lu(k,1622) = lu(k,1622) - lu(k,578) * lu(k,1587)
3305 114070872 : lu(k,1623) = lu(k,1623) - lu(k,579) * lu(k,1587)
3306 114070872 : lu(k,1632) = lu(k,1632) - lu(k,565) * lu(k,1631)
3307 114070872 : lu(k,1645) = lu(k,1645) - lu(k,566) * lu(k,1631)
3308 114070872 : lu(k,1646) = lu(k,1646) - lu(k,567) * lu(k,1631)
3309 114070872 : lu(k,1647) = lu(k,1647) - lu(k,568) * lu(k,1631)
3310 114070872 : lu(k,1649) = lu(k,1649) - lu(k,569) * lu(k,1631)
3311 114070872 : lu(k,1651) = lu(k,1651) - lu(k,570) * lu(k,1631)
3312 114070872 : lu(k,1653) = lu(k,1653) - lu(k,571) * lu(k,1631)
3313 114070872 : lu(k,1655) = lu(k,1655) - lu(k,572) * lu(k,1631)
3314 114070872 : lu(k,1656) = lu(k,1656) - lu(k,573) * lu(k,1631)
3315 114070872 : lu(k,1657) = lu(k,1657) - lu(k,574) * lu(k,1631)
3316 114070872 : lu(k,1658) = lu(k,1658) - lu(k,575) * lu(k,1631)
3317 114070872 : lu(k,1659) = lu(k,1659) - lu(k,576) * lu(k,1631)
3318 114070872 : lu(k,1664) = lu(k,1664) - lu(k,577) * lu(k,1631)
3319 114070872 : lu(k,1665) = lu(k,1665) - lu(k,578) * lu(k,1631)
3320 114070872 : lu(k,1666) = lu(k,1666) - lu(k,579) * lu(k,1631)
3321 114070872 : lu(k,1675) = lu(k,1675) - lu(k,565) * lu(k,1674)
3322 114070872 : lu(k,1688) = lu(k,1688) - lu(k,566) * lu(k,1674)
3323 114070872 : lu(k,1689) = lu(k,1689) - lu(k,567) * lu(k,1674)
3324 114070872 : lu(k,1690) = lu(k,1690) - lu(k,568) * lu(k,1674)
3325 114070872 : lu(k,1692) = lu(k,1692) - lu(k,569) * lu(k,1674)
3326 114070872 : lu(k,1694) = lu(k,1694) - lu(k,570) * lu(k,1674)
3327 114070872 : lu(k,1696) = lu(k,1696) - lu(k,571) * lu(k,1674)
3328 114070872 : lu(k,1698) = lu(k,1698) - lu(k,572) * lu(k,1674)
3329 114070872 : lu(k,1699) = lu(k,1699) - lu(k,573) * lu(k,1674)
3330 114070872 : lu(k,1700) = lu(k,1700) - lu(k,574) * lu(k,1674)
3331 114070872 : lu(k,1701) = lu(k,1701) - lu(k,575) * lu(k,1674)
3332 114070872 : lu(k,1702) = lu(k,1702) - lu(k,576) * lu(k,1674)
3333 114070872 : lu(k,1707) = lu(k,1707) - lu(k,577) * lu(k,1674)
3334 114070872 : lu(k,1708) = lu(k,1708) - lu(k,578) * lu(k,1674)
3335 114070872 : lu(k,1709) = lu(k,1709) - lu(k,579) * lu(k,1674)
3336 114070872 : lu(k,1996) = - lu(k,565) * lu(k,1994)
3337 114070872 : lu(k,2009) = lu(k,2009) - lu(k,566) * lu(k,1994)
3338 114070872 : lu(k,2010) = lu(k,2010) - lu(k,567) * lu(k,1994)
3339 114070872 : lu(k,2011) = lu(k,2011) - lu(k,568) * lu(k,1994)
3340 114070872 : lu(k,2013) = lu(k,2013) - lu(k,569) * lu(k,1994)
3341 114070872 : lu(k,2015) = lu(k,2015) - lu(k,570) * lu(k,1994)
3342 114070872 : lu(k,2017) = lu(k,2017) - lu(k,571) * lu(k,1994)
3343 114070872 : lu(k,2019) = lu(k,2019) - lu(k,572) * lu(k,1994)
3344 114070872 : lu(k,2020) = lu(k,2020) - lu(k,573) * lu(k,1994)
3345 114070872 : lu(k,2021) = lu(k,2021) - lu(k,574) * lu(k,1994)
3346 114070872 : lu(k,2022) = lu(k,2022) - lu(k,575) * lu(k,1994)
3347 114070872 : lu(k,2023) = lu(k,2023) - lu(k,576) * lu(k,1994)
3348 114070872 : lu(k,2028) = lu(k,2028) - lu(k,577) * lu(k,1994)
3349 114070872 : lu(k,2029) = lu(k,2029) - lu(k,578) * lu(k,1994)
3350 114070872 : lu(k,2030) = lu(k,2030) - lu(k,579) * lu(k,1994)
3351 114070872 : lu(k,582) = 1._r8 / lu(k,582)
3352 114070872 : lu(k,583) = lu(k,583) * lu(k,582)
3353 114070872 : lu(k,584) = lu(k,584) * lu(k,582)
3354 114070872 : lu(k,585) = lu(k,585) * lu(k,582)
3355 114070872 : lu(k,586) = lu(k,586) * lu(k,582)
3356 114070872 : lu(k,587) = lu(k,587) * lu(k,582)
3357 114070872 : lu(k,588) = lu(k,588) * lu(k,582)
3358 114070872 : lu(k,589) = lu(k,589) * lu(k,582)
3359 114070872 : lu(k,590) = lu(k,590) * lu(k,582)
3360 114070872 : lu(k,591) = lu(k,591) * lu(k,582)
3361 114070872 : lu(k,592) = lu(k,592) * lu(k,582)
3362 114070872 : lu(k,593) = lu(k,593) * lu(k,582)
3363 114070872 : lu(k,715) = lu(k,715) - lu(k,583) * lu(k,714)
3364 114070872 : lu(k,716) = - lu(k,584) * lu(k,714)
3365 114070872 : lu(k,717) = - lu(k,585) * lu(k,714)
3366 114070872 : lu(k,718) = lu(k,718) - lu(k,586) * lu(k,714)
3367 114070872 : lu(k,719) = lu(k,719) - lu(k,587) * lu(k,714)
3368 114070872 : lu(k,721) = - lu(k,588) * lu(k,714)
3369 114070872 : lu(k,722) = lu(k,722) - lu(k,589) * lu(k,714)
3370 114070872 : lu(k,723) = lu(k,723) - lu(k,590) * lu(k,714)
3371 114070872 : lu(k,727) = lu(k,727) - lu(k,591) * lu(k,714)
3372 114070872 : lu(k,729) = lu(k,729) - lu(k,592) * lu(k,714)
3373 114070872 : lu(k,732) = lu(k,732) - lu(k,593) * lu(k,714)
3374 114070872 : lu(k,737) = lu(k,737) - lu(k,583) * lu(k,735)
3375 114070872 : lu(k,738) = lu(k,738) - lu(k,584) * lu(k,735)
3376 114070872 : lu(k,739) = lu(k,739) - lu(k,585) * lu(k,735)
3377 114070872 : lu(k,740) = lu(k,740) - lu(k,586) * lu(k,735)
3378 114070872 : lu(k,741) = lu(k,741) - lu(k,587) * lu(k,735)
3379 114070872 : lu(k,744) = lu(k,744) - lu(k,588) * lu(k,735)
3380 114070872 : lu(k,745) = lu(k,745) - lu(k,589) * lu(k,735)
3381 114070872 : lu(k,746) = - lu(k,590) * lu(k,735)
3382 114070872 : lu(k,750) = lu(k,750) - lu(k,591) * lu(k,735)
3383 114070872 : lu(k,754) = - lu(k,592) * lu(k,735)
3384 114070872 : lu(k,757) = lu(k,757) - lu(k,593) * lu(k,735)
3385 114070872 : lu(k,785) = lu(k,785) - lu(k,583) * lu(k,783)
3386 114070872 : lu(k,786) = lu(k,786) - lu(k,584) * lu(k,783)
3387 114070872 : lu(k,787) = lu(k,787) - lu(k,585) * lu(k,783)
3388 114070872 : lu(k,788) = lu(k,788) - lu(k,586) * lu(k,783)
3389 114070872 : lu(k,789) = lu(k,789) - lu(k,587) * lu(k,783)
3390 114070872 : lu(k,793) = lu(k,793) - lu(k,588) * lu(k,783)
3391 114070872 : lu(k,794) = lu(k,794) - lu(k,589) * lu(k,783)
3392 114070872 : lu(k,795) = lu(k,795) - lu(k,590) * lu(k,783)
3393 114070872 : lu(k,801) = lu(k,801) - lu(k,591) * lu(k,783)
3394 114070872 : lu(k,805) = lu(k,805) - lu(k,592) * lu(k,783)
3395 114070872 : lu(k,808) = lu(k,808) - lu(k,593) * lu(k,783)
3396 114070872 : lu(k,897) = lu(k,897) - lu(k,583) * lu(k,895)
3397 114070872 : lu(k,898) = lu(k,898) - lu(k,584) * lu(k,895)
3398 114070872 : lu(k,899) = lu(k,899) - lu(k,585) * lu(k,895)
3399 114070872 : lu(k,900) = lu(k,900) - lu(k,586) * lu(k,895)
3400 114070872 : lu(k,901) = lu(k,901) - lu(k,587) * lu(k,895)
3401 114070872 : lu(k,905) = - lu(k,588) * lu(k,895)
3402 114070872 : lu(k,907) = lu(k,907) - lu(k,589) * lu(k,895)
3403 114070872 : lu(k,908) = lu(k,908) - lu(k,590) * lu(k,895)
3404 114070872 : lu(k,914) = lu(k,914) - lu(k,591) * lu(k,895)
3405 114070872 : lu(k,918) = lu(k,918) - lu(k,592) * lu(k,895)
3406 114070872 : lu(k,921) = lu(k,921) - lu(k,593) * lu(k,895)
3407 114070872 : lu(k,980) = lu(k,980) - lu(k,583) * lu(k,978)
3408 114070872 : lu(k,981) = lu(k,981) - lu(k,584) * lu(k,978)
3409 114070872 : lu(k,982) = lu(k,982) - lu(k,585) * lu(k,978)
3410 114070872 : lu(k,983) = lu(k,983) - lu(k,586) * lu(k,978)
3411 114070872 : lu(k,984) = lu(k,984) - lu(k,587) * lu(k,978)
3412 114070872 : lu(k,989) = lu(k,989) - lu(k,588) * lu(k,978)
3413 114070872 : lu(k,991) = lu(k,991) - lu(k,589) * lu(k,978)
3414 114070872 : lu(k,992) = lu(k,992) - lu(k,590) * lu(k,978)
3415 114070872 : lu(k,998) = lu(k,998) - lu(k,591) * lu(k,978)
3416 114070872 : lu(k,1002) = lu(k,1002) - lu(k,592) * lu(k,978)
3417 114070872 : lu(k,1005) = lu(k,1005) - lu(k,593) * lu(k,978)
3418 114070872 : lu(k,1093) = lu(k,1093) - lu(k,583) * lu(k,1092)
3419 114070872 : lu(k,1094) = lu(k,1094) - lu(k,584) * lu(k,1092)
3420 114070872 : lu(k,1095) = - lu(k,585) * lu(k,1092)
3421 114070872 : lu(k,1099) = lu(k,1099) - lu(k,586) * lu(k,1092)
3422 114070872 : lu(k,1101) = lu(k,1101) - lu(k,587) * lu(k,1092)
3423 114070872 : lu(k,1108) = lu(k,1108) - lu(k,588) * lu(k,1092)
3424 114070872 : lu(k,1110) = lu(k,1110) - lu(k,589) * lu(k,1092)
3425 114070872 : lu(k,1111) = lu(k,1111) - lu(k,590) * lu(k,1092)
3426 114070872 : lu(k,1119) = lu(k,1119) - lu(k,591) * lu(k,1092)
3427 114070872 : lu(k,1123) = lu(k,1123) - lu(k,592) * lu(k,1092)
3428 114070872 : lu(k,1126) = lu(k,1126) - lu(k,593) * lu(k,1092)
3429 114070872 : lu(k,1371) = lu(k,1371) - lu(k,583) * lu(k,1368)
3430 114070872 : lu(k,1372) = lu(k,1372) - lu(k,584) * lu(k,1368)
3431 114070872 : lu(k,1373) = lu(k,1373) - lu(k,585) * lu(k,1368)
3432 114070872 : lu(k,1377) = lu(k,1377) - lu(k,586) * lu(k,1368)
3433 114070872 : lu(k,1379) = lu(k,1379) - lu(k,587) * lu(k,1368)
3434 114070872 : lu(k,1386) = lu(k,1386) - lu(k,588) * lu(k,1368)
3435 114070872 : lu(k,1388) = lu(k,1388) - lu(k,589) * lu(k,1368)
3436 114070872 : lu(k,1389) = lu(k,1389) - lu(k,590) * lu(k,1368)
3437 114070872 : lu(k,1397) = lu(k,1397) - lu(k,591) * lu(k,1368)
3438 114070872 : lu(k,1401) = lu(k,1401) - lu(k,592) * lu(k,1368)
3439 114070872 : lu(k,1404) = lu(k,1404) - lu(k,593) * lu(k,1368)
3440 114070872 : lu(k,1421) = lu(k,1421) - lu(k,583) * lu(k,1419)
3441 114070872 : lu(k,1422) = - lu(k,584) * lu(k,1419)
3442 114070872 : lu(k,1423) = lu(k,1423) - lu(k,585) * lu(k,1419)
3443 114070872 : lu(k,1426) = lu(k,1426) - lu(k,586) * lu(k,1419)
3444 114070872 : lu(k,1428) = lu(k,1428) - lu(k,587) * lu(k,1419)
3445 114070872 : lu(k,1435) = lu(k,1435) - lu(k,588) * lu(k,1419)
3446 114070872 : lu(k,1437) = lu(k,1437) - lu(k,589) * lu(k,1419)
3447 114070872 : lu(k,1438) = lu(k,1438) - lu(k,590) * lu(k,1419)
3448 114070872 : lu(k,1446) = lu(k,1446) - lu(k,591) * lu(k,1419)
3449 114070872 : lu(k,1450) = lu(k,1450) - lu(k,592) * lu(k,1419)
3450 114070872 : lu(k,1453) = lu(k,1453) - lu(k,593) * lu(k,1419)
3451 114070872 : lu(k,1468) = - lu(k,583) * lu(k,1466)
3452 114070872 : lu(k,1469) = lu(k,1469) - lu(k,584) * lu(k,1466)
3453 114070872 : lu(k,1470) = lu(k,1470) - lu(k,585) * lu(k,1466)
3454 114070872 : lu(k,1474) = lu(k,1474) - lu(k,586) * lu(k,1466)
3455 114070872 : lu(k,1476) = lu(k,1476) - lu(k,587) * lu(k,1466)
3456 114070872 : lu(k,1483) = lu(k,1483) - lu(k,588) * lu(k,1466)
3457 114070872 : lu(k,1485) = lu(k,1485) - lu(k,589) * lu(k,1466)
3458 114070872 : lu(k,1486) = lu(k,1486) - lu(k,590) * lu(k,1466)
3459 114070872 : lu(k,1494) = lu(k,1494) - lu(k,591) * lu(k,1466)
3460 114070872 : lu(k,1498) = lu(k,1498) - lu(k,592) * lu(k,1466)
3461 114070872 : lu(k,1501) = lu(k,1501) - lu(k,593) * lu(k,1466)
3462 114070872 : lu(k,1719) = lu(k,1719) - lu(k,583) * lu(k,1715)
3463 114070872 : lu(k,1720) = lu(k,1720) - lu(k,584) * lu(k,1715)
3464 114070872 : lu(k,1721) = - lu(k,585) * lu(k,1715)
3465 114070872 : lu(k,1723) = lu(k,1723) - lu(k,586) * lu(k,1715)
3466 114070872 : lu(k,1725) = lu(k,1725) - lu(k,587) * lu(k,1715)
3467 114070872 : lu(k,1731) = lu(k,1731) - lu(k,588) * lu(k,1715)
3468 114070872 : lu(k,1733) = lu(k,1733) - lu(k,589) * lu(k,1715)
3469 114070872 : lu(k,1734) = lu(k,1734) - lu(k,590) * lu(k,1715)
3470 114070872 : lu(k,1742) = lu(k,1742) - lu(k,591) * lu(k,1715)
3471 114070872 : lu(k,1746) = lu(k,1746) - lu(k,592) * lu(k,1715)
3472 114070872 : lu(k,1749) = lu(k,1749) - lu(k,593) * lu(k,1715)
3473 114070872 : lu(k,1801) = lu(k,1801) - lu(k,583) * lu(k,1795)
3474 114070872 : lu(k,1802) = - lu(k,584) * lu(k,1795)
3475 114070872 : lu(k,1803) = lu(k,1803) - lu(k,585) * lu(k,1795)
3476 114070872 : lu(k,1806) = lu(k,1806) - lu(k,586) * lu(k,1795)
3477 114070872 : lu(k,1808) = lu(k,1808) - lu(k,587) * lu(k,1795)
3478 114070872 : lu(k,1815) = lu(k,1815) - lu(k,588) * lu(k,1795)
3479 114070872 : lu(k,1817) = lu(k,1817) - lu(k,589) * lu(k,1795)
3480 114070872 : lu(k,1818) = lu(k,1818) - lu(k,590) * lu(k,1795)
3481 114070872 : lu(k,1826) = lu(k,1826) - lu(k,591) * lu(k,1795)
3482 114070872 : lu(k,1830) = lu(k,1830) - lu(k,592) * lu(k,1795)
3483 114070872 : lu(k,1833) = lu(k,1833) - lu(k,593) * lu(k,1795)
3484 114070872 : lu(k,1911) = lu(k,1911) - lu(k,583) * lu(k,1909)
3485 114070872 : lu(k,1912) = - lu(k,584) * lu(k,1909)
3486 114070872 : lu(k,1913) = lu(k,1913) - lu(k,585) * lu(k,1909)
3487 114070872 : lu(k,1916) = lu(k,1916) - lu(k,586) * lu(k,1909)
3488 114070872 : lu(k,1918) = lu(k,1918) - lu(k,587) * lu(k,1909)
3489 114070872 : lu(k,1925) = lu(k,1925) - lu(k,588) * lu(k,1909)
3490 114070872 : lu(k,1927) = lu(k,1927) - lu(k,589) * lu(k,1909)
3491 114070872 : lu(k,1928) = lu(k,1928) - lu(k,590) * lu(k,1909)
3492 114070872 : lu(k,1936) = lu(k,1936) - lu(k,591) * lu(k,1909)
3493 114070872 : lu(k,1940) = lu(k,1940) - lu(k,592) * lu(k,1909)
3494 114070872 : lu(k,1943) = lu(k,1943) - lu(k,593) * lu(k,1909)
3495 114070872 : lu(k,1953) = lu(k,1953) - lu(k,583) * lu(k,1949)
3496 114070872 : lu(k,1954) = lu(k,1954) - lu(k,584) * lu(k,1949)
3497 114070872 : lu(k,1955) = lu(k,1955) - lu(k,585) * lu(k,1949)
3498 114070872 : lu(k,1958) = lu(k,1958) - lu(k,586) * lu(k,1949)
3499 114070872 : lu(k,1960) = lu(k,1960) - lu(k,587) * lu(k,1949)
3500 114070872 : lu(k,1967) = lu(k,1967) - lu(k,588) * lu(k,1949)
3501 114070872 : lu(k,1969) = lu(k,1969) - lu(k,589) * lu(k,1949)
3502 114070872 : lu(k,1970) = lu(k,1970) - lu(k,590) * lu(k,1949)
3503 114070872 : lu(k,1978) = lu(k,1978) - lu(k,591) * lu(k,1949)
3504 114070872 : lu(k,1982) = lu(k,1982) - lu(k,592) * lu(k,1949)
3505 114070872 : lu(k,1985) = lu(k,1985) - lu(k,593) * lu(k,1949)
3506 114070872 : lu(k,1997) = lu(k,1997) - lu(k,583) * lu(k,1995)
3507 114070872 : lu(k,1998) = - lu(k,584) * lu(k,1995)
3508 114070872 : lu(k,1999) = lu(k,1999) - lu(k,585) * lu(k,1995)
3509 114070872 : lu(k,2003) = lu(k,2003) - lu(k,586) * lu(k,1995)
3510 114070872 : lu(k,2005) = lu(k,2005) - lu(k,587) * lu(k,1995)
3511 114070872 : lu(k,2012) = lu(k,2012) - lu(k,588) * lu(k,1995)
3512 114070872 : lu(k,2014) = lu(k,2014) - lu(k,589) * lu(k,1995)
3513 114070872 : lu(k,2015) = lu(k,2015) - lu(k,590) * lu(k,1995)
3514 114070872 : lu(k,2023) = lu(k,2023) - lu(k,591) * lu(k,1995)
3515 114070872 : lu(k,2027) = - lu(k,592) * lu(k,1995)
3516 114070872 : lu(k,2030) = lu(k,2030) - lu(k,593) * lu(k,1995)
3517 114070872 : lu(k,2058) = lu(k,2058) - lu(k,583) * lu(k,2053)
3518 114070872 : lu(k,2059) = lu(k,2059) - lu(k,584) * lu(k,2053)
3519 114070872 : lu(k,2060) = lu(k,2060) - lu(k,585) * lu(k,2053)
3520 114070872 : lu(k,2063) = lu(k,2063) - lu(k,586) * lu(k,2053)
3521 114070872 : lu(k,2065) = lu(k,2065) - lu(k,587) * lu(k,2053)
3522 114070872 : lu(k,2072) = lu(k,2072) - lu(k,588) * lu(k,2053)
3523 114070872 : lu(k,2074) = lu(k,2074) - lu(k,589) * lu(k,2053)
3524 114070872 : lu(k,2075) = lu(k,2075) - lu(k,590) * lu(k,2053)
3525 114070872 : lu(k,2083) = lu(k,2083) - lu(k,591) * lu(k,2053)
3526 114070872 : lu(k,2087) = lu(k,2087) - lu(k,592) * lu(k,2053)
3527 117656469 : lu(k,2090) = lu(k,2090) - lu(k,593) * lu(k,2053)
3528 : end do
3529 3585597 : end subroutine lu_fac14
3530 3585597 : subroutine lu_fac15( avec_len, lu )
3531 : use chem_mods, only : nzcnt
3532 : use shr_kind_mod, only : r8 => shr_kind_r8
3533 : implicit none
3534 : !-----------------------------------------------------------------------
3535 : ! ... dummy args
3536 : !-----------------------------------------------------------------------
3537 : integer, intent(in) :: avec_len
3538 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3539 : !-----------------------------------------------------------------------
3540 : ! ... local variables
3541 : !-----------------------------------------------------------------------
3542 : integer :: k
3543 117656469 : do k = 1,avec_len
3544 114070872 : lu(k,594) = 1._r8 / lu(k,594)
3545 114070872 : lu(k,595) = lu(k,595) * lu(k,594)
3546 114070872 : lu(k,596) = lu(k,596) * lu(k,594)
3547 114070872 : lu(k,597) = lu(k,597) * lu(k,594)
3548 114070872 : lu(k,598) = lu(k,598) * lu(k,594)
3549 114070872 : lu(k,599) = lu(k,599) * lu(k,594)
3550 114070872 : lu(k,600) = lu(k,600) * lu(k,594)
3551 114070872 : lu(k,601) = lu(k,601) * lu(k,594)
3552 114070872 : lu(k,602) = lu(k,602) * lu(k,594)
3553 114070872 : lu(k,603) = lu(k,603) * lu(k,594)
3554 114070872 : lu(k,604) = lu(k,604) * lu(k,594)
3555 114070872 : lu(k,605) = lu(k,605) * lu(k,594)
3556 114070872 : lu(k,606) = lu(k,606) * lu(k,594)
3557 114070872 : lu(k,607) = lu(k,607) * lu(k,594)
3558 114070872 : lu(k,608) = lu(k,608) * lu(k,594)
3559 114070872 : lu(k,834) = - lu(k,595) * lu(k,831)
3560 114070872 : lu(k,836) = lu(k,836) - lu(k,596) * lu(k,831)
3561 114070872 : lu(k,838) = lu(k,838) - lu(k,597) * lu(k,831)
3562 114070872 : lu(k,839) = - lu(k,598) * lu(k,831)
3563 114070872 : lu(k,844) = lu(k,844) - lu(k,599) * lu(k,831)
3564 114070872 : lu(k,846) = lu(k,846) - lu(k,600) * lu(k,831)
3565 114070872 : lu(k,847) = lu(k,847) - lu(k,601) * lu(k,831)
3566 114070872 : lu(k,850) = lu(k,850) - lu(k,602) * lu(k,831)
3567 114070872 : lu(k,854) = lu(k,854) - lu(k,603) * lu(k,831)
3568 114070872 : lu(k,855) = lu(k,855) - lu(k,604) * lu(k,831)
3569 114070872 : lu(k,856) = - lu(k,605) * lu(k,831)
3570 114070872 : lu(k,857) = - lu(k,606) * lu(k,831)
3571 114070872 : lu(k,858) = lu(k,858) - lu(k,607) * lu(k,831)
3572 114070872 : lu(k,859) = lu(k,859) - lu(k,608) * lu(k,831)
3573 114070872 : lu(k,1011) = lu(k,1011) - lu(k,595) * lu(k,1007)
3574 114070872 : lu(k,1012) = lu(k,1012) - lu(k,596) * lu(k,1007)
3575 114070872 : lu(k,1014) = lu(k,1014) - lu(k,597) * lu(k,1007)
3576 114070872 : lu(k,1015) = - lu(k,598) * lu(k,1007)
3577 114070872 : lu(k,1020) = lu(k,1020) - lu(k,599) * lu(k,1007)
3578 114070872 : lu(k,1022) = lu(k,1022) - lu(k,600) * lu(k,1007)
3579 114070872 : lu(k,1023) = lu(k,1023) - lu(k,601) * lu(k,1007)
3580 114070872 : lu(k,1026) = lu(k,1026) - lu(k,602) * lu(k,1007)
3581 114070872 : lu(k,1031) = lu(k,1031) - lu(k,603) * lu(k,1007)
3582 114070872 : lu(k,1032) = lu(k,1032) - lu(k,604) * lu(k,1007)
3583 114070872 : lu(k,1033) = lu(k,1033) - lu(k,605) * lu(k,1007)
3584 114070872 : lu(k,1034) = lu(k,1034) - lu(k,606) * lu(k,1007)
3585 114070872 : lu(k,1035) = - lu(k,607) * lu(k,1007)
3586 114070872 : lu(k,1036) = lu(k,1036) - lu(k,608) * lu(k,1007)
3587 114070872 : lu(k,1274) = - lu(k,595) * lu(k,1271)
3588 114070872 : lu(k,1276) = - lu(k,596) * lu(k,1271)
3589 114070872 : lu(k,1278) = lu(k,1278) - lu(k,597) * lu(k,1271)
3590 114070872 : lu(k,1279) = lu(k,1279) - lu(k,598) * lu(k,1271)
3591 114070872 : lu(k,1284) = lu(k,1284) - lu(k,599) * lu(k,1271)
3592 114070872 : lu(k,1286) = lu(k,1286) - lu(k,600) * lu(k,1271)
3593 114070872 : lu(k,1287) = lu(k,1287) - lu(k,601) * lu(k,1271)
3594 114070872 : lu(k,1290) = lu(k,1290) - lu(k,602) * lu(k,1271)
3595 114070872 : lu(k,1295) = lu(k,1295) - lu(k,603) * lu(k,1271)
3596 114070872 : lu(k,1296) = lu(k,1296) - lu(k,604) * lu(k,1271)
3597 114070872 : lu(k,1297) = lu(k,1297) - lu(k,605) * lu(k,1271)
3598 114070872 : lu(k,1298) = lu(k,1298) - lu(k,606) * lu(k,1271)
3599 114070872 : lu(k,1299) = lu(k,1299) - lu(k,607) * lu(k,1271)
3600 114070872 : lu(k,1300) = lu(k,1300) - lu(k,608) * lu(k,1271)
3601 114070872 : lu(k,1376) = lu(k,1376) - lu(k,595) * lu(k,1369)
3602 114070872 : lu(k,1378) = lu(k,1378) - lu(k,596) * lu(k,1369)
3603 114070872 : lu(k,1380) = lu(k,1380) - lu(k,597) * lu(k,1369)
3604 114070872 : lu(k,1381) = lu(k,1381) - lu(k,598) * lu(k,1369)
3605 114070872 : lu(k,1386) = lu(k,1386) - lu(k,599) * lu(k,1369)
3606 114070872 : lu(k,1388) = lu(k,1388) - lu(k,600) * lu(k,1369)
3607 114070872 : lu(k,1389) = lu(k,1389) - lu(k,601) * lu(k,1369)
3608 114070872 : lu(k,1392) = lu(k,1392) - lu(k,602) * lu(k,1369)
3609 114070872 : lu(k,1397) = lu(k,1397) - lu(k,603) * lu(k,1369)
3610 114070872 : lu(k,1398) = lu(k,1398) - lu(k,604) * lu(k,1369)
3611 114070872 : lu(k,1399) = lu(k,1399) - lu(k,605) * lu(k,1369)
3612 114070872 : lu(k,1400) = lu(k,1400) - lu(k,606) * lu(k,1369)
3613 114070872 : lu(k,1401) = lu(k,1401) - lu(k,607) * lu(k,1369)
3614 114070872 : lu(k,1402) = lu(k,1402) - lu(k,608) * lu(k,1369)
3615 114070872 : lu(k,1425) = - lu(k,595) * lu(k,1420)
3616 114070872 : lu(k,1427) = - lu(k,596) * lu(k,1420)
3617 114070872 : lu(k,1429) = lu(k,1429) - lu(k,597) * lu(k,1420)
3618 114070872 : lu(k,1430) = lu(k,1430) - lu(k,598) * lu(k,1420)
3619 114070872 : lu(k,1435) = lu(k,1435) - lu(k,599) * lu(k,1420)
3620 114070872 : lu(k,1437) = lu(k,1437) - lu(k,600) * lu(k,1420)
3621 114070872 : lu(k,1438) = lu(k,1438) - lu(k,601) * lu(k,1420)
3622 114070872 : lu(k,1441) = lu(k,1441) - lu(k,602) * lu(k,1420)
3623 114070872 : lu(k,1446) = lu(k,1446) - lu(k,603) * lu(k,1420)
3624 114070872 : lu(k,1447) = lu(k,1447) - lu(k,604) * lu(k,1420)
3625 114070872 : lu(k,1448) = - lu(k,605) * lu(k,1420)
3626 114070872 : lu(k,1449) = lu(k,1449) - lu(k,606) * lu(k,1420)
3627 114070872 : lu(k,1450) = lu(k,1450) - lu(k,607) * lu(k,1420)
3628 114070872 : lu(k,1451) = lu(k,1451) - lu(k,608) * lu(k,1420)
3629 114070872 : lu(k,1550) = lu(k,1550) - lu(k,595) * lu(k,1547)
3630 114070872 : lu(k,1552) = lu(k,1552) - lu(k,596) * lu(k,1547)
3631 114070872 : lu(k,1554) = - lu(k,597) * lu(k,1547)
3632 114070872 : lu(k,1555) = lu(k,1555) - lu(k,598) * lu(k,1547)
3633 114070872 : lu(k,1560) = lu(k,1560) - lu(k,599) * lu(k,1547)
3634 114070872 : lu(k,1562) = lu(k,1562) - lu(k,600) * lu(k,1547)
3635 114070872 : lu(k,1563) = lu(k,1563) - lu(k,601) * lu(k,1547)
3636 114070872 : lu(k,1566) = lu(k,1566) - lu(k,602) * lu(k,1547)
3637 114070872 : lu(k,1571) = lu(k,1571) - lu(k,603) * lu(k,1547)
3638 114070872 : lu(k,1572) = lu(k,1572) - lu(k,604) * lu(k,1547)
3639 114070872 : lu(k,1573) = - lu(k,605) * lu(k,1547)
3640 114070872 : lu(k,1574) = lu(k,1574) - lu(k,606) * lu(k,1547)
3641 114070872 : lu(k,1575) = lu(k,1575) - lu(k,607) * lu(k,1547)
3642 114070872 : lu(k,1576) = lu(k,1576) - lu(k,608) * lu(k,1547)
3643 114070872 : lu(k,1757) = - lu(k,595) * lu(k,1751)
3644 114070872 : lu(k,1759) = lu(k,1759) - lu(k,596) * lu(k,1751)
3645 114070872 : lu(k,1761) = lu(k,1761) - lu(k,597) * lu(k,1751)
3646 114070872 : lu(k,1762) = lu(k,1762) - lu(k,598) * lu(k,1751)
3647 114070872 : lu(k,1767) = lu(k,1767) - lu(k,599) * lu(k,1751)
3648 114070872 : lu(k,1769) = lu(k,1769) - lu(k,600) * lu(k,1751)
3649 114070872 : lu(k,1770) = lu(k,1770) - lu(k,601) * lu(k,1751)
3650 114070872 : lu(k,1773) = lu(k,1773) - lu(k,602) * lu(k,1751)
3651 114070872 : lu(k,1778) = lu(k,1778) - lu(k,603) * lu(k,1751)
3652 114070872 : lu(k,1779) = - lu(k,604) * lu(k,1751)
3653 114070872 : lu(k,1780) = lu(k,1780) - lu(k,605) * lu(k,1751)
3654 114070872 : lu(k,1781) = - lu(k,606) * lu(k,1751)
3655 114070872 : lu(k,1782) = lu(k,1782) - lu(k,607) * lu(k,1751)
3656 114070872 : lu(k,1783) = lu(k,1783) - lu(k,608) * lu(k,1751)
3657 114070872 : lu(k,1805) = lu(k,1805) - lu(k,595) * lu(k,1796)
3658 114070872 : lu(k,1807) = lu(k,1807) - lu(k,596) * lu(k,1796)
3659 114070872 : lu(k,1809) = lu(k,1809) - lu(k,597) * lu(k,1796)
3660 114070872 : lu(k,1810) = lu(k,1810) - lu(k,598) * lu(k,1796)
3661 114070872 : lu(k,1815) = lu(k,1815) - lu(k,599) * lu(k,1796)
3662 114070872 : lu(k,1817) = lu(k,1817) - lu(k,600) * lu(k,1796)
3663 114070872 : lu(k,1818) = lu(k,1818) - lu(k,601) * lu(k,1796)
3664 114070872 : lu(k,1821) = lu(k,1821) - lu(k,602) * lu(k,1796)
3665 114070872 : lu(k,1826) = lu(k,1826) - lu(k,603) * lu(k,1796)
3666 114070872 : lu(k,1827) = lu(k,1827) - lu(k,604) * lu(k,1796)
3667 114070872 : lu(k,1828) = lu(k,1828) - lu(k,605) * lu(k,1796)
3668 114070872 : lu(k,1829) = lu(k,1829) - lu(k,606) * lu(k,1796)
3669 114070872 : lu(k,1830) = lu(k,1830) - lu(k,607) * lu(k,1796)
3670 114070872 : lu(k,1831) = lu(k,1831) - lu(k,608) * lu(k,1796)
3671 114070872 : lu(k,1838) = - lu(k,595) * lu(k,1836)
3672 114070872 : lu(k,1840) = lu(k,1840) - lu(k,596) * lu(k,1836)
3673 114070872 : lu(k,1842) = - lu(k,597) * lu(k,1836)
3674 114070872 : lu(k,1843) = lu(k,1843) - lu(k,598) * lu(k,1836)
3675 114070872 : lu(k,1848) = lu(k,1848) - lu(k,599) * lu(k,1836)
3676 114070872 : lu(k,1850) = lu(k,1850) - lu(k,600) * lu(k,1836)
3677 114070872 : lu(k,1851) = lu(k,1851) - lu(k,601) * lu(k,1836)
3678 114070872 : lu(k,1854) = - lu(k,602) * lu(k,1836)
3679 114070872 : lu(k,1859) = lu(k,1859) - lu(k,603) * lu(k,1836)
3680 114070872 : lu(k,1860) = lu(k,1860) - lu(k,604) * lu(k,1836)
3681 114070872 : lu(k,1861) = lu(k,1861) - lu(k,605) * lu(k,1836)
3682 114070872 : lu(k,1862) = - lu(k,606) * lu(k,1836)
3683 114070872 : lu(k,1863) = lu(k,1863) - lu(k,607) * lu(k,1836)
3684 114070872 : lu(k,1864) = lu(k,1864) - lu(k,608) * lu(k,1836)
3685 114070872 : lu(k,1874) = lu(k,1874) - lu(k,595) * lu(k,1869)
3686 114070872 : lu(k,1876) = lu(k,1876) - lu(k,596) * lu(k,1869)
3687 114070872 : lu(k,1878) = lu(k,1878) - lu(k,597) * lu(k,1869)
3688 114070872 : lu(k,1879) = lu(k,1879) - lu(k,598) * lu(k,1869)
3689 114070872 : lu(k,1884) = lu(k,1884) - lu(k,599) * lu(k,1869)
3690 114070872 : lu(k,1886) = lu(k,1886) - lu(k,600) * lu(k,1869)
3691 114070872 : lu(k,1887) = lu(k,1887) - lu(k,601) * lu(k,1869)
3692 114070872 : lu(k,1890) = lu(k,1890) - lu(k,602) * lu(k,1869)
3693 114070872 : lu(k,1895) = lu(k,1895) - lu(k,603) * lu(k,1869)
3694 114070872 : lu(k,1896) = lu(k,1896) - lu(k,604) * lu(k,1869)
3695 114070872 : lu(k,1897) = lu(k,1897) - lu(k,605) * lu(k,1869)
3696 114070872 : lu(k,1898) = lu(k,1898) - lu(k,606) * lu(k,1869)
3697 114070872 : lu(k,1899) = lu(k,1899) - lu(k,607) * lu(k,1869)
3698 114070872 : lu(k,1900) = lu(k,1900) - lu(k,608) * lu(k,1869)
3699 114070872 : lu(k,1915) = lu(k,1915) - lu(k,595) * lu(k,1910)
3700 114070872 : lu(k,1917) = lu(k,1917) - lu(k,596) * lu(k,1910)
3701 114070872 : lu(k,1919) = - lu(k,597) * lu(k,1910)
3702 114070872 : lu(k,1920) = lu(k,1920) - lu(k,598) * lu(k,1910)
3703 114070872 : lu(k,1925) = lu(k,1925) - lu(k,599) * lu(k,1910)
3704 114070872 : lu(k,1927) = lu(k,1927) - lu(k,600) * lu(k,1910)
3705 114070872 : lu(k,1928) = lu(k,1928) - lu(k,601) * lu(k,1910)
3706 114070872 : lu(k,1931) = lu(k,1931) - lu(k,602) * lu(k,1910)
3707 114070872 : lu(k,1936) = lu(k,1936) - lu(k,603) * lu(k,1910)
3708 114070872 : lu(k,1937) = lu(k,1937) - lu(k,604) * lu(k,1910)
3709 114070872 : lu(k,1938) = lu(k,1938) - lu(k,605) * lu(k,1910)
3710 114070872 : lu(k,1939) = lu(k,1939) - lu(k,606) * lu(k,1910)
3711 114070872 : lu(k,1940) = lu(k,1940) - lu(k,607) * lu(k,1910)
3712 114070872 : lu(k,1941) = lu(k,1941) - lu(k,608) * lu(k,1910)
3713 114070872 : lu(k,1957) = lu(k,1957) - lu(k,595) * lu(k,1950)
3714 114070872 : lu(k,1959) = lu(k,1959) - lu(k,596) * lu(k,1950)
3715 114070872 : lu(k,1961) = lu(k,1961) - lu(k,597) * lu(k,1950)
3716 114070872 : lu(k,1962) = lu(k,1962) - lu(k,598) * lu(k,1950)
3717 114070872 : lu(k,1967) = lu(k,1967) - lu(k,599) * lu(k,1950)
3718 114070872 : lu(k,1969) = lu(k,1969) - lu(k,600) * lu(k,1950)
3719 114070872 : lu(k,1970) = lu(k,1970) - lu(k,601) * lu(k,1950)
3720 114070872 : lu(k,1973) = - lu(k,602) * lu(k,1950)
3721 114070872 : lu(k,1978) = lu(k,1978) - lu(k,603) * lu(k,1950)
3722 114070872 : lu(k,1979) = lu(k,1979) - lu(k,604) * lu(k,1950)
3723 114070872 : lu(k,1980) = - lu(k,605) * lu(k,1950)
3724 114070872 : lu(k,1981) = lu(k,1981) - lu(k,606) * lu(k,1950)
3725 114070872 : lu(k,1982) = lu(k,1982) - lu(k,607) * lu(k,1950)
3726 114070872 : lu(k,1983) = lu(k,1983) - lu(k,608) * lu(k,1950)
3727 114070872 : lu(k,609) = 1._r8 / lu(k,609)
3728 114070872 : lu(k,610) = lu(k,610) * lu(k,609)
3729 114070872 : lu(k,611) = lu(k,611) * lu(k,609)
3730 114070872 : lu(k,612) = lu(k,612) * lu(k,609)
3731 114070872 : lu(k,613) = lu(k,613) * lu(k,609)
3732 114070872 : lu(k,614) = lu(k,614) * lu(k,609)
3733 114070872 : lu(k,615) = lu(k,615) * lu(k,609)
3734 114070872 : lu(k,616) = lu(k,616) * lu(k,609)
3735 114070872 : lu(k,617) = lu(k,617) * lu(k,609)
3736 114070872 : lu(k,618) = lu(k,618) * lu(k,609)
3737 114070872 : lu(k,619) = lu(k,619) * lu(k,609)
3738 114070872 : lu(k,620) = lu(k,620) * lu(k,609)
3739 114070872 : lu(k,621) = lu(k,621) * lu(k,609)
3740 114070872 : lu(k,622) = lu(k,622) * lu(k,609)
3741 114070872 : lu(k,627) = - lu(k,610) * lu(k,624)
3742 114070872 : lu(k,628) = lu(k,628) - lu(k,611) * lu(k,624)
3743 114070872 : lu(k,629) = lu(k,629) - lu(k,612) * lu(k,624)
3744 114070872 : lu(k,630) = lu(k,630) - lu(k,613) * lu(k,624)
3745 114070872 : lu(k,631) = lu(k,631) - lu(k,614) * lu(k,624)
3746 114070872 : lu(k,633) = lu(k,633) - lu(k,615) * lu(k,624)
3747 114070872 : lu(k,634) = lu(k,634) - lu(k,616) * lu(k,624)
3748 114070872 : lu(k,635) = lu(k,635) - lu(k,617) * lu(k,624)
3749 114070872 : lu(k,636) = lu(k,636) - lu(k,618) * lu(k,624)
3750 114070872 : lu(k,637) = lu(k,637) - lu(k,619) * lu(k,624)
3751 114070872 : lu(k,638) = lu(k,638) - lu(k,620) * lu(k,624)
3752 114070872 : lu(k,641) = lu(k,641) - lu(k,621) * lu(k,624)
3753 114070872 : lu(k,642) = lu(k,642) - lu(k,622) * lu(k,624)
3754 114070872 : lu(k,692) = lu(k,692) - lu(k,610) * lu(k,689)
3755 114070872 : lu(k,693) = lu(k,693) - lu(k,611) * lu(k,689)
3756 114070872 : lu(k,694) = lu(k,694) - lu(k,612) * lu(k,689)
3757 114070872 : lu(k,695) = lu(k,695) - lu(k,613) * lu(k,689)
3758 114070872 : lu(k,696) = lu(k,696) - lu(k,614) * lu(k,689)
3759 114070872 : lu(k,698) = lu(k,698) - lu(k,615) * lu(k,689)
3760 114070872 : lu(k,699) = lu(k,699) - lu(k,616) * lu(k,689)
3761 114070872 : lu(k,700) = lu(k,700) - lu(k,617) * lu(k,689)
3762 114070872 : lu(k,701) = lu(k,701) - lu(k,618) * lu(k,689)
3763 114070872 : lu(k,702) = lu(k,702) - lu(k,619) * lu(k,689)
3764 114070872 : lu(k,703) = lu(k,703) - lu(k,620) * lu(k,689)
3765 114070872 : lu(k,706) = lu(k,706) - lu(k,621) * lu(k,689)
3766 114070872 : lu(k,707) = lu(k,707) - lu(k,622) * lu(k,689)
3767 114070872 : lu(k,866) = lu(k,866) - lu(k,610) * lu(k,863)
3768 114070872 : lu(k,869) = lu(k,869) - lu(k,611) * lu(k,863)
3769 114070872 : lu(k,870) = lu(k,870) - lu(k,612) * lu(k,863)
3770 114070872 : lu(k,871) = lu(k,871) - lu(k,613) * lu(k,863)
3771 114070872 : lu(k,872) = lu(k,872) - lu(k,614) * lu(k,863)
3772 114070872 : lu(k,874) = lu(k,874) - lu(k,615) * lu(k,863)
3773 114070872 : lu(k,876) = lu(k,876) - lu(k,616) * lu(k,863)
3774 114070872 : lu(k,877) = lu(k,877) - lu(k,617) * lu(k,863)
3775 114070872 : lu(k,878) = lu(k,878) - lu(k,618) * lu(k,863)
3776 114070872 : lu(k,879) = lu(k,879) - lu(k,619) * lu(k,863)
3777 114070872 : lu(k,880) = lu(k,880) - lu(k,620) * lu(k,863)
3778 114070872 : lu(k,884) = lu(k,884) - lu(k,621) * lu(k,863)
3779 114070872 : lu(k,886) = lu(k,886) - lu(k,622) * lu(k,863)
3780 114070872 : lu(k,1146) = lu(k,1146) - lu(k,610) * lu(k,1139)
3781 114070872 : lu(k,1153) = lu(k,1153) - lu(k,611) * lu(k,1139)
3782 114070872 : lu(k,1154) = lu(k,1154) - lu(k,612) * lu(k,1139)
3783 114070872 : lu(k,1155) = lu(k,1155) - lu(k,613) * lu(k,1139)
3784 114070872 : lu(k,1157) = lu(k,1157) - lu(k,614) * lu(k,1139)
3785 114070872 : lu(k,1159) = lu(k,1159) - lu(k,615) * lu(k,1139)
3786 114070872 : lu(k,1161) = lu(k,1161) - lu(k,616) * lu(k,1139)
3787 114070872 : lu(k,1163) = lu(k,1163) - lu(k,617) * lu(k,1139)
3788 114070872 : lu(k,1164) = lu(k,1164) - lu(k,618) * lu(k,1139)
3789 114070872 : lu(k,1165) = lu(k,1165) - lu(k,619) * lu(k,1139)
3790 114070872 : lu(k,1166) = lu(k,1166) - lu(k,620) * lu(k,1139)
3791 114070872 : lu(k,1172) = lu(k,1172) - lu(k,621) * lu(k,1139)
3792 114070872 : lu(k,1174) = lu(k,1174) - lu(k,622) * lu(k,1139)
3793 114070872 : lu(k,1189) = lu(k,1189) - lu(k,610) * lu(k,1183)
3794 114070872 : lu(k,1196) = lu(k,1196) - lu(k,611) * lu(k,1183)
3795 114070872 : lu(k,1197) = lu(k,1197) - lu(k,612) * lu(k,1183)
3796 114070872 : lu(k,1198) = lu(k,1198) - lu(k,613) * lu(k,1183)
3797 114070872 : lu(k,1200) = lu(k,1200) - lu(k,614) * lu(k,1183)
3798 114070872 : lu(k,1202) = lu(k,1202) - lu(k,615) * lu(k,1183)
3799 114070872 : lu(k,1204) = lu(k,1204) - lu(k,616) * lu(k,1183)
3800 114070872 : lu(k,1206) = lu(k,1206) - lu(k,617) * lu(k,1183)
3801 114070872 : lu(k,1207) = lu(k,1207) - lu(k,618) * lu(k,1183)
3802 114070872 : lu(k,1208) = lu(k,1208) - lu(k,619) * lu(k,1183)
3803 114070872 : lu(k,1209) = lu(k,1209) - lu(k,620) * lu(k,1183)
3804 114070872 : lu(k,1215) = lu(k,1215) - lu(k,621) * lu(k,1183)
3805 114070872 : lu(k,1217) = lu(k,1217) - lu(k,622) * lu(k,1183)
3806 114070872 : lu(k,1232) = lu(k,1232) - lu(k,610) * lu(k,1226)
3807 114070872 : lu(k,1239) = lu(k,1239) - lu(k,611) * lu(k,1226)
3808 114070872 : lu(k,1240) = lu(k,1240) - lu(k,612) * lu(k,1226)
3809 114070872 : lu(k,1241) = lu(k,1241) - lu(k,613) * lu(k,1226)
3810 114070872 : lu(k,1243) = lu(k,1243) - lu(k,614) * lu(k,1226)
3811 114070872 : lu(k,1245) = lu(k,1245) - lu(k,615) * lu(k,1226)
3812 114070872 : lu(k,1247) = lu(k,1247) - lu(k,616) * lu(k,1226)
3813 114070872 : lu(k,1249) = lu(k,1249) - lu(k,617) * lu(k,1226)
3814 114070872 : lu(k,1250) = lu(k,1250) - lu(k,618) * lu(k,1226)
3815 114070872 : lu(k,1251) = lu(k,1251) - lu(k,619) * lu(k,1226)
3816 114070872 : lu(k,1252) = lu(k,1252) - lu(k,620) * lu(k,1226)
3817 114070872 : lu(k,1258) = lu(k,1258) - lu(k,621) * lu(k,1226)
3818 114070872 : lu(k,1260) = lu(k,1260) - lu(k,622) * lu(k,1226)
3819 114070872 : lu(k,1316) = lu(k,1316) - lu(k,610) * lu(k,1310)
3820 114070872 : lu(k,1323) = lu(k,1323) - lu(k,611) * lu(k,1310)
3821 114070872 : lu(k,1324) = lu(k,1324) - lu(k,612) * lu(k,1310)
3822 114070872 : lu(k,1325) = lu(k,1325) - lu(k,613) * lu(k,1310)
3823 114070872 : lu(k,1327) = lu(k,1327) - lu(k,614) * lu(k,1310)
3824 114070872 : lu(k,1329) = lu(k,1329) - lu(k,615) * lu(k,1310)
3825 114070872 : lu(k,1331) = lu(k,1331) - lu(k,616) * lu(k,1310)
3826 114070872 : lu(k,1333) = lu(k,1333) - lu(k,617) * lu(k,1310)
3827 114070872 : lu(k,1334) = lu(k,1334) - lu(k,618) * lu(k,1310)
3828 114070872 : lu(k,1335) = lu(k,1335) - lu(k,619) * lu(k,1310)
3829 114070872 : lu(k,1336) = lu(k,1336) - lu(k,620) * lu(k,1310)
3830 114070872 : lu(k,1342) = lu(k,1342) - lu(k,621) * lu(k,1310)
3831 114070872 : lu(k,1344) = lu(k,1344) - lu(k,622) * lu(k,1310)
3832 114070872 : lu(k,1514) = lu(k,1514) - lu(k,610) * lu(k,1508)
3833 114070872 : lu(k,1521) = lu(k,1521) - lu(k,611) * lu(k,1508)
3834 114070872 : lu(k,1522) = lu(k,1522) - lu(k,612) * lu(k,1508)
3835 114070872 : lu(k,1523) = lu(k,1523) - lu(k,613) * lu(k,1508)
3836 114070872 : lu(k,1525) = lu(k,1525) - lu(k,614) * lu(k,1508)
3837 114070872 : lu(k,1527) = lu(k,1527) - lu(k,615) * lu(k,1508)
3838 114070872 : lu(k,1529) = lu(k,1529) - lu(k,616) * lu(k,1508)
3839 114070872 : lu(k,1531) = lu(k,1531) - lu(k,617) * lu(k,1508)
3840 114070872 : lu(k,1532) = lu(k,1532) - lu(k,618) * lu(k,1508)
3841 114070872 : lu(k,1533) = lu(k,1533) - lu(k,619) * lu(k,1508)
3842 114070872 : lu(k,1534) = lu(k,1534) - lu(k,620) * lu(k,1508)
3843 114070872 : lu(k,1540) = lu(k,1540) - lu(k,621) * lu(k,1508)
3844 114070872 : lu(k,1542) = lu(k,1542) - lu(k,622) * lu(k,1508)
3845 114070872 : lu(k,1595) = lu(k,1595) - lu(k,610) * lu(k,1588)
3846 114070872 : lu(k,1602) = lu(k,1602) - lu(k,611) * lu(k,1588)
3847 114070872 : lu(k,1603) = lu(k,1603) - lu(k,612) * lu(k,1588)
3848 114070872 : lu(k,1604) = lu(k,1604) - lu(k,613) * lu(k,1588)
3849 114070872 : lu(k,1606) = lu(k,1606) - lu(k,614) * lu(k,1588)
3850 114070872 : lu(k,1608) = lu(k,1608) - lu(k,615) * lu(k,1588)
3851 114070872 : lu(k,1610) = lu(k,1610) - lu(k,616) * lu(k,1588)
3852 114070872 : lu(k,1612) = lu(k,1612) - lu(k,617) * lu(k,1588)
3853 114070872 : lu(k,1613) = lu(k,1613) - lu(k,618) * lu(k,1588)
3854 114070872 : lu(k,1614) = lu(k,1614) - lu(k,619) * lu(k,1588)
3855 114070872 : lu(k,1615) = lu(k,1615) - lu(k,620) * lu(k,1588)
3856 114070872 : lu(k,1621) = lu(k,1621) - lu(k,621) * lu(k,1588)
3857 114070872 : lu(k,1623) = lu(k,1623) - lu(k,622) * lu(k,1588)
3858 114070872 : lu(k,1638) = lu(k,1638) - lu(k,610) * lu(k,1632)
3859 114070872 : lu(k,1645) = lu(k,1645) - lu(k,611) * lu(k,1632)
3860 114070872 : lu(k,1646) = lu(k,1646) - lu(k,612) * lu(k,1632)
3861 114070872 : lu(k,1647) = lu(k,1647) - lu(k,613) * lu(k,1632)
3862 114070872 : lu(k,1649) = lu(k,1649) - lu(k,614) * lu(k,1632)
3863 114070872 : lu(k,1651) = lu(k,1651) - lu(k,615) * lu(k,1632)
3864 114070872 : lu(k,1653) = lu(k,1653) - lu(k,616) * lu(k,1632)
3865 114070872 : lu(k,1655) = lu(k,1655) - lu(k,617) * lu(k,1632)
3866 114070872 : lu(k,1656) = lu(k,1656) - lu(k,618) * lu(k,1632)
3867 114070872 : lu(k,1657) = lu(k,1657) - lu(k,619) * lu(k,1632)
3868 114070872 : lu(k,1658) = lu(k,1658) - lu(k,620) * lu(k,1632)
3869 114070872 : lu(k,1664) = lu(k,1664) - lu(k,621) * lu(k,1632)
3870 114070872 : lu(k,1666) = lu(k,1666) - lu(k,622) * lu(k,1632)
3871 114070872 : lu(k,1681) = lu(k,1681) - lu(k,610) * lu(k,1675)
3872 114070872 : lu(k,1688) = lu(k,1688) - lu(k,611) * lu(k,1675)
3873 114070872 : lu(k,1689) = lu(k,1689) - lu(k,612) * lu(k,1675)
3874 114070872 : lu(k,1690) = lu(k,1690) - lu(k,613) * lu(k,1675)
3875 114070872 : lu(k,1692) = lu(k,1692) - lu(k,614) * lu(k,1675)
3876 114070872 : lu(k,1694) = lu(k,1694) - lu(k,615) * lu(k,1675)
3877 114070872 : lu(k,1696) = lu(k,1696) - lu(k,616) * lu(k,1675)
3878 114070872 : lu(k,1698) = lu(k,1698) - lu(k,617) * lu(k,1675)
3879 114070872 : lu(k,1699) = lu(k,1699) - lu(k,618) * lu(k,1675)
3880 114070872 : lu(k,1700) = lu(k,1700) - lu(k,619) * lu(k,1675)
3881 114070872 : lu(k,1701) = lu(k,1701) - lu(k,620) * lu(k,1675)
3882 114070872 : lu(k,1707) = lu(k,1707) - lu(k,621) * lu(k,1675)
3883 114070872 : lu(k,1709) = lu(k,1709) - lu(k,622) * lu(k,1675)
3884 114070872 : lu(k,1722) = - lu(k,610) * lu(k,1716)
3885 114070872 : lu(k,1728) = - lu(k,611) * lu(k,1716)
3886 114070872 : lu(k,1729) = - lu(k,612) * lu(k,1716)
3887 114070872 : lu(k,1730) = - lu(k,613) * lu(k,1716)
3888 114070872 : lu(k,1732) = - lu(k,614) * lu(k,1716)
3889 114070872 : lu(k,1734) = lu(k,1734) - lu(k,615) * lu(k,1716)
3890 114070872 : lu(k,1736) = lu(k,1736) - lu(k,616) * lu(k,1716)
3891 114070872 : lu(k,1738) = - lu(k,617) * lu(k,1716)
3892 114070872 : lu(k,1739) = lu(k,1739) - lu(k,618) * lu(k,1716)
3893 114070872 : lu(k,1740) = lu(k,1740) - lu(k,619) * lu(k,1716)
3894 114070872 : lu(k,1741) = lu(k,1741) - lu(k,620) * lu(k,1716)
3895 114070872 : lu(k,1747) = lu(k,1747) - lu(k,621) * lu(k,1716)
3896 114070872 : lu(k,1749) = lu(k,1749) - lu(k,622) * lu(k,1716)
3897 114070872 : lu(k,1805) = lu(k,1805) - lu(k,610) * lu(k,1797)
3898 114070872 : lu(k,1812) = lu(k,1812) - lu(k,611) * lu(k,1797)
3899 114070872 : lu(k,1813) = - lu(k,612) * lu(k,1797)
3900 114070872 : lu(k,1814) = - lu(k,613) * lu(k,1797)
3901 114070872 : lu(k,1816) = - lu(k,614) * lu(k,1797)
3902 114070872 : lu(k,1818) = lu(k,1818) - lu(k,615) * lu(k,1797)
3903 114070872 : lu(k,1820) = lu(k,1820) - lu(k,616) * lu(k,1797)
3904 114070872 : lu(k,1822) = lu(k,1822) - lu(k,617) * lu(k,1797)
3905 114070872 : lu(k,1823) = lu(k,1823) - lu(k,618) * lu(k,1797)
3906 114070872 : lu(k,1824) = lu(k,1824) - lu(k,619) * lu(k,1797)
3907 114070872 : lu(k,1825) = lu(k,1825) - lu(k,620) * lu(k,1797)
3908 114070872 : lu(k,1831) = lu(k,1831) - lu(k,621) * lu(k,1797)
3909 114070872 : lu(k,1833) = lu(k,1833) - lu(k,622) * lu(k,1797)
3910 114070872 : lu(k,2002) = lu(k,2002) - lu(k,610) * lu(k,1996)
3911 114070872 : lu(k,2009) = lu(k,2009) - lu(k,611) * lu(k,1996)
3912 114070872 : lu(k,2010) = lu(k,2010) - lu(k,612) * lu(k,1996)
3913 114070872 : lu(k,2011) = lu(k,2011) - lu(k,613) * lu(k,1996)
3914 114070872 : lu(k,2013) = lu(k,2013) - lu(k,614) * lu(k,1996)
3915 114070872 : lu(k,2015) = lu(k,2015) - lu(k,615) * lu(k,1996)
3916 114070872 : lu(k,2017) = lu(k,2017) - lu(k,616) * lu(k,1996)
3917 114070872 : lu(k,2019) = lu(k,2019) - lu(k,617) * lu(k,1996)
3918 114070872 : lu(k,2020) = lu(k,2020) - lu(k,618) * lu(k,1996)
3919 114070872 : lu(k,2021) = lu(k,2021) - lu(k,619) * lu(k,1996)
3920 114070872 : lu(k,2022) = lu(k,2022) - lu(k,620) * lu(k,1996)
3921 114070872 : lu(k,2028) = lu(k,2028) - lu(k,621) * lu(k,1996)
3922 117656469 : lu(k,2030) = lu(k,2030) - lu(k,622) * lu(k,1996)
3923 : end do
3924 3585597 : end subroutine lu_fac15
3925 3585597 : subroutine lu_fac16( avec_len, lu )
3926 : use chem_mods, only : nzcnt
3927 : use shr_kind_mod, only : r8 => shr_kind_r8
3928 : implicit none
3929 : !-----------------------------------------------------------------------
3930 : ! ... dummy args
3931 : !-----------------------------------------------------------------------
3932 : integer, intent(in) :: avec_len
3933 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3934 : !-----------------------------------------------------------------------
3935 : ! ... local variables
3936 : !-----------------------------------------------------------------------
3937 : integer :: k
3938 117656469 : do k = 1,avec_len
3939 114070872 : lu(k,625) = 1._r8 / lu(k,625)
3940 114070872 : lu(k,626) = lu(k,626) * lu(k,625)
3941 114070872 : lu(k,627) = lu(k,627) * lu(k,625)
3942 114070872 : lu(k,628) = lu(k,628) * lu(k,625)
3943 114070872 : lu(k,629) = lu(k,629) * lu(k,625)
3944 114070872 : lu(k,630) = lu(k,630) * lu(k,625)
3945 114070872 : lu(k,631) = lu(k,631) * lu(k,625)
3946 114070872 : lu(k,632) = lu(k,632) * lu(k,625)
3947 114070872 : lu(k,633) = lu(k,633) * lu(k,625)
3948 114070872 : lu(k,634) = lu(k,634) * lu(k,625)
3949 114070872 : lu(k,635) = lu(k,635) * lu(k,625)
3950 114070872 : lu(k,636) = lu(k,636) * lu(k,625)
3951 114070872 : lu(k,637) = lu(k,637) * lu(k,625)
3952 114070872 : lu(k,638) = lu(k,638) * lu(k,625)
3953 114070872 : lu(k,639) = lu(k,639) * lu(k,625)
3954 114070872 : lu(k,640) = lu(k,640) * lu(k,625)
3955 114070872 : lu(k,641) = lu(k,641) * lu(k,625)
3956 114070872 : lu(k,642) = lu(k,642) * lu(k,625)
3957 114070872 : lu(k,691) = lu(k,691) - lu(k,626) * lu(k,690)
3958 114070872 : lu(k,692) = lu(k,692) - lu(k,627) * lu(k,690)
3959 114070872 : lu(k,693) = lu(k,693) - lu(k,628) * lu(k,690)
3960 114070872 : lu(k,694) = lu(k,694) - lu(k,629) * lu(k,690)
3961 114070872 : lu(k,695) = lu(k,695) - lu(k,630) * lu(k,690)
3962 114070872 : lu(k,696) = lu(k,696) - lu(k,631) * lu(k,690)
3963 114070872 : lu(k,697) = lu(k,697) - lu(k,632) * lu(k,690)
3964 114070872 : lu(k,698) = lu(k,698) - lu(k,633) * lu(k,690)
3965 114070872 : lu(k,699) = lu(k,699) - lu(k,634) * lu(k,690)
3966 114070872 : lu(k,700) = lu(k,700) - lu(k,635) * lu(k,690)
3967 114070872 : lu(k,701) = lu(k,701) - lu(k,636) * lu(k,690)
3968 114070872 : lu(k,702) = lu(k,702) - lu(k,637) * lu(k,690)
3969 114070872 : lu(k,703) = lu(k,703) - lu(k,638) * lu(k,690)
3970 114070872 : lu(k,704) = lu(k,704) - lu(k,639) * lu(k,690)
3971 114070872 : lu(k,705) = lu(k,705) - lu(k,640) * lu(k,690)
3972 114070872 : lu(k,706) = lu(k,706) - lu(k,641) * lu(k,690)
3973 114070872 : lu(k,707) = lu(k,707) - lu(k,642) * lu(k,690)
3974 114070872 : lu(k,1142) = lu(k,1142) - lu(k,626) * lu(k,1140)
3975 114070872 : lu(k,1146) = lu(k,1146) - lu(k,627) * lu(k,1140)
3976 114070872 : lu(k,1153) = lu(k,1153) - lu(k,628) * lu(k,1140)
3977 114070872 : lu(k,1154) = lu(k,1154) - lu(k,629) * lu(k,1140)
3978 114070872 : lu(k,1155) = lu(k,1155) - lu(k,630) * lu(k,1140)
3979 114070872 : lu(k,1157) = lu(k,1157) - lu(k,631) * lu(k,1140)
3980 114070872 : lu(k,1158) = lu(k,1158) - lu(k,632) * lu(k,1140)
3981 114070872 : lu(k,1159) = lu(k,1159) - lu(k,633) * lu(k,1140)
3982 114070872 : lu(k,1161) = lu(k,1161) - lu(k,634) * lu(k,1140)
3983 114070872 : lu(k,1163) = lu(k,1163) - lu(k,635) * lu(k,1140)
3984 114070872 : lu(k,1164) = lu(k,1164) - lu(k,636) * lu(k,1140)
3985 114070872 : lu(k,1165) = lu(k,1165) - lu(k,637) * lu(k,1140)
3986 114070872 : lu(k,1166) = lu(k,1166) - lu(k,638) * lu(k,1140)
3987 114070872 : lu(k,1167) = lu(k,1167) - lu(k,639) * lu(k,1140)
3988 114070872 : lu(k,1168) = lu(k,1168) - lu(k,640) * lu(k,1140)
3989 114070872 : lu(k,1172) = lu(k,1172) - lu(k,641) * lu(k,1140)
3990 114070872 : lu(k,1174) = lu(k,1174) - lu(k,642) * lu(k,1140)
3991 114070872 : lu(k,1186) = lu(k,1186) - lu(k,626) * lu(k,1184)
3992 114070872 : lu(k,1189) = lu(k,1189) - lu(k,627) * lu(k,1184)
3993 114070872 : lu(k,1196) = lu(k,1196) - lu(k,628) * lu(k,1184)
3994 114070872 : lu(k,1197) = lu(k,1197) - lu(k,629) * lu(k,1184)
3995 114070872 : lu(k,1198) = lu(k,1198) - lu(k,630) * lu(k,1184)
3996 114070872 : lu(k,1200) = lu(k,1200) - lu(k,631) * lu(k,1184)
3997 114070872 : lu(k,1201) = lu(k,1201) - lu(k,632) * lu(k,1184)
3998 114070872 : lu(k,1202) = lu(k,1202) - lu(k,633) * lu(k,1184)
3999 114070872 : lu(k,1204) = lu(k,1204) - lu(k,634) * lu(k,1184)
4000 114070872 : lu(k,1206) = lu(k,1206) - lu(k,635) * lu(k,1184)
4001 114070872 : lu(k,1207) = lu(k,1207) - lu(k,636) * lu(k,1184)
4002 114070872 : lu(k,1208) = lu(k,1208) - lu(k,637) * lu(k,1184)
4003 114070872 : lu(k,1209) = lu(k,1209) - lu(k,638) * lu(k,1184)
4004 114070872 : lu(k,1210) = lu(k,1210) - lu(k,639) * lu(k,1184)
4005 114070872 : lu(k,1211) = lu(k,1211) - lu(k,640) * lu(k,1184)
4006 114070872 : lu(k,1215) = lu(k,1215) - lu(k,641) * lu(k,1184)
4007 114070872 : lu(k,1217) = lu(k,1217) - lu(k,642) * lu(k,1184)
4008 114070872 : lu(k,1229) = lu(k,1229) - lu(k,626) * lu(k,1227)
4009 114070872 : lu(k,1232) = lu(k,1232) - lu(k,627) * lu(k,1227)
4010 114070872 : lu(k,1239) = lu(k,1239) - lu(k,628) * lu(k,1227)
4011 114070872 : lu(k,1240) = lu(k,1240) - lu(k,629) * lu(k,1227)
4012 114070872 : lu(k,1241) = lu(k,1241) - lu(k,630) * lu(k,1227)
4013 114070872 : lu(k,1243) = lu(k,1243) - lu(k,631) * lu(k,1227)
4014 114070872 : lu(k,1244) = lu(k,1244) - lu(k,632) * lu(k,1227)
4015 114070872 : lu(k,1245) = lu(k,1245) - lu(k,633) * lu(k,1227)
4016 114070872 : lu(k,1247) = lu(k,1247) - lu(k,634) * lu(k,1227)
4017 114070872 : lu(k,1249) = lu(k,1249) - lu(k,635) * lu(k,1227)
4018 114070872 : lu(k,1250) = lu(k,1250) - lu(k,636) * lu(k,1227)
4019 114070872 : lu(k,1251) = lu(k,1251) - lu(k,637) * lu(k,1227)
4020 114070872 : lu(k,1252) = lu(k,1252) - lu(k,638) * lu(k,1227)
4021 114070872 : lu(k,1253) = lu(k,1253) - lu(k,639) * lu(k,1227)
4022 114070872 : lu(k,1254) = lu(k,1254) - lu(k,640) * lu(k,1227)
4023 114070872 : lu(k,1258) = lu(k,1258) - lu(k,641) * lu(k,1227)
4024 114070872 : lu(k,1260) = lu(k,1260) - lu(k,642) * lu(k,1227)
4025 114070872 : lu(k,1313) = lu(k,1313) - lu(k,626) * lu(k,1311)
4026 114070872 : lu(k,1316) = lu(k,1316) - lu(k,627) * lu(k,1311)
4027 114070872 : lu(k,1323) = lu(k,1323) - lu(k,628) * lu(k,1311)
4028 114070872 : lu(k,1324) = lu(k,1324) - lu(k,629) * lu(k,1311)
4029 114070872 : lu(k,1325) = lu(k,1325) - lu(k,630) * lu(k,1311)
4030 114070872 : lu(k,1327) = lu(k,1327) - lu(k,631) * lu(k,1311)
4031 114070872 : lu(k,1328) = lu(k,1328) - lu(k,632) * lu(k,1311)
4032 114070872 : lu(k,1329) = lu(k,1329) - lu(k,633) * lu(k,1311)
4033 114070872 : lu(k,1331) = lu(k,1331) - lu(k,634) * lu(k,1311)
4034 114070872 : lu(k,1333) = lu(k,1333) - lu(k,635) * lu(k,1311)
4035 114070872 : lu(k,1334) = lu(k,1334) - lu(k,636) * lu(k,1311)
4036 114070872 : lu(k,1335) = lu(k,1335) - lu(k,637) * lu(k,1311)
4037 114070872 : lu(k,1336) = lu(k,1336) - lu(k,638) * lu(k,1311)
4038 114070872 : lu(k,1337) = lu(k,1337) - lu(k,639) * lu(k,1311)
4039 114070872 : lu(k,1338) = lu(k,1338) - lu(k,640) * lu(k,1311)
4040 114070872 : lu(k,1342) = lu(k,1342) - lu(k,641) * lu(k,1311)
4041 114070872 : lu(k,1344) = lu(k,1344) - lu(k,642) * lu(k,1311)
4042 114070872 : lu(k,1591) = lu(k,1591) - lu(k,626) * lu(k,1589)
4043 114070872 : lu(k,1595) = lu(k,1595) - lu(k,627) * lu(k,1589)
4044 114070872 : lu(k,1602) = lu(k,1602) - lu(k,628) * lu(k,1589)
4045 114070872 : lu(k,1603) = lu(k,1603) - lu(k,629) * lu(k,1589)
4046 114070872 : lu(k,1604) = lu(k,1604) - lu(k,630) * lu(k,1589)
4047 114070872 : lu(k,1606) = lu(k,1606) - lu(k,631) * lu(k,1589)
4048 114070872 : lu(k,1607) = lu(k,1607) - lu(k,632) * lu(k,1589)
4049 114070872 : lu(k,1608) = lu(k,1608) - lu(k,633) * lu(k,1589)
4050 114070872 : lu(k,1610) = lu(k,1610) - lu(k,634) * lu(k,1589)
4051 114070872 : lu(k,1612) = lu(k,1612) - lu(k,635) * lu(k,1589)
4052 114070872 : lu(k,1613) = lu(k,1613) - lu(k,636) * lu(k,1589)
4053 114070872 : lu(k,1614) = lu(k,1614) - lu(k,637) * lu(k,1589)
4054 114070872 : lu(k,1615) = lu(k,1615) - lu(k,638) * lu(k,1589)
4055 114070872 : lu(k,1616) = lu(k,1616) - lu(k,639) * lu(k,1589)
4056 114070872 : lu(k,1617) = lu(k,1617) - lu(k,640) * lu(k,1589)
4057 114070872 : lu(k,1621) = lu(k,1621) - lu(k,641) * lu(k,1589)
4058 114070872 : lu(k,1623) = lu(k,1623) - lu(k,642) * lu(k,1589)
4059 114070872 : lu(k,1635) = lu(k,1635) - lu(k,626) * lu(k,1633)
4060 114070872 : lu(k,1638) = lu(k,1638) - lu(k,627) * lu(k,1633)
4061 114070872 : lu(k,1645) = lu(k,1645) - lu(k,628) * lu(k,1633)
4062 114070872 : lu(k,1646) = lu(k,1646) - lu(k,629) * lu(k,1633)
4063 114070872 : lu(k,1647) = lu(k,1647) - lu(k,630) * lu(k,1633)
4064 114070872 : lu(k,1649) = lu(k,1649) - lu(k,631) * lu(k,1633)
4065 114070872 : lu(k,1650) = lu(k,1650) - lu(k,632) * lu(k,1633)
4066 114070872 : lu(k,1651) = lu(k,1651) - lu(k,633) * lu(k,1633)
4067 114070872 : lu(k,1653) = lu(k,1653) - lu(k,634) * lu(k,1633)
4068 114070872 : lu(k,1655) = lu(k,1655) - lu(k,635) * lu(k,1633)
4069 114070872 : lu(k,1656) = lu(k,1656) - lu(k,636) * lu(k,1633)
4070 114070872 : lu(k,1657) = lu(k,1657) - lu(k,637) * lu(k,1633)
4071 114070872 : lu(k,1658) = lu(k,1658) - lu(k,638) * lu(k,1633)
4072 114070872 : lu(k,1659) = lu(k,1659) - lu(k,639) * lu(k,1633)
4073 114070872 : lu(k,1660) = lu(k,1660) - lu(k,640) * lu(k,1633)
4074 114070872 : lu(k,1664) = lu(k,1664) - lu(k,641) * lu(k,1633)
4075 114070872 : lu(k,1666) = lu(k,1666) - lu(k,642) * lu(k,1633)
4076 114070872 : lu(k,1678) = lu(k,1678) - lu(k,626) * lu(k,1676)
4077 114070872 : lu(k,1681) = lu(k,1681) - lu(k,627) * lu(k,1676)
4078 114070872 : lu(k,1688) = lu(k,1688) - lu(k,628) * lu(k,1676)
4079 114070872 : lu(k,1689) = lu(k,1689) - lu(k,629) * lu(k,1676)
4080 114070872 : lu(k,1690) = lu(k,1690) - lu(k,630) * lu(k,1676)
4081 114070872 : lu(k,1692) = lu(k,1692) - lu(k,631) * lu(k,1676)
4082 114070872 : lu(k,1693) = lu(k,1693) - lu(k,632) * lu(k,1676)
4083 114070872 : lu(k,1694) = lu(k,1694) - lu(k,633) * lu(k,1676)
4084 114070872 : lu(k,1696) = lu(k,1696) - lu(k,634) * lu(k,1676)
4085 114070872 : lu(k,1698) = lu(k,1698) - lu(k,635) * lu(k,1676)
4086 114070872 : lu(k,1699) = lu(k,1699) - lu(k,636) * lu(k,1676)
4087 114070872 : lu(k,1700) = lu(k,1700) - lu(k,637) * lu(k,1676)
4088 114070872 : lu(k,1701) = lu(k,1701) - lu(k,638) * lu(k,1676)
4089 114070872 : lu(k,1702) = lu(k,1702) - lu(k,639) * lu(k,1676)
4090 114070872 : lu(k,1703) = lu(k,1703) - lu(k,640) * lu(k,1676)
4091 114070872 : lu(k,1707) = lu(k,1707) - lu(k,641) * lu(k,1676)
4092 114070872 : lu(k,1709) = lu(k,1709) - lu(k,642) * lu(k,1676)
4093 114070872 : lu(k,1718) = lu(k,1718) - lu(k,626) * lu(k,1717)
4094 114070872 : lu(k,1722) = lu(k,1722) - lu(k,627) * lu(k,1717)
4095 114070872 : lu(k,1728) = lu(k,1728) - lu(k,628) * lu(k,1717)
4096 114070872 : lu(k,1729) = lu(k,1729) - lu(k,629) * lu(k,1717)
4097 114070872 : lu(k,1730) = lu(k,1730) - lu(k,630) * lu(k,1717)
4098 114070872 : lu(k,1732) = lu(k,1732) - lu(k,631) * lu(k,1717)
4099 114070872 : lu(k,1733) = lu(k,1733) - lu(k,632) * lu(k,1717)
4100 114070872 : lu(k,1734) = lu(k,1734) - lu(k,633) * lu(k,1717)
4101 114070872 : lu(k,1736) = lu(k,1736) - lu(k,634) * lu(k,1717)
4102 114070872 : lu(k,1738) = lu(k,1738) - lu(k,635) * lu(k,1717)
4103 114070872 : lu(k,1739) = lu(k,1739) - lu(k,636) * lu(k,1717)
4104 114070872 : lu(k,1740) = lu(k,1740) - lu(k,637) * lu(k,1717)
4105 114070872 : lu(k,1741) = lu(k,1741) - lu(k,638) * lu(k,1717)
4106 114070872 : lu(k,1742) = lu(k,1742) - lu(k,639) * lu(k,1717)
4107 114070872 : lu(k,1743) = lu(k,1743) - lu(k,640) * lu(k,1717)
4108 114070872 : lu(k,1747) = lu(k,1747) - lu(k,641) * lu(k,1717)
4109 114070872 : lu(k,1749) = lu(k,1749) - lu(k,642) * lu(k,1717)
4110 114070872 : lu(k,1800) = lu(k,1800) - lu(k,626) * lu(k,1798)
4111 114070872 : lu(k,1805) = lu(k,1805) - lu(k,627) * lu(k,1798)
4112 114070872 : lu(k,1812) = lu(k,1812) - lu(k,628) * lu(k,1798)
4113 114070872 : lu(k,1813) = lu(k,1813) - lu(k,629) * lu(k,1798)
4114 114070872 : lu(k,1814) = lu(k,1814) - lu(k,630) * lu(k,1798)
4115 114070872 : lu(k,1816) = lu(k,1816) - lu(k,631) * lu(k,1798)
4116 114070872 : lu(k,1817) = lu(k,1817) - lu(k,632) * lu(k,1798)
4117 114070872 : lu(k,1818) = lu(k,1818) - lu(k,633) * lu(k,1798)
4118 114070872 : lu(k,1820) = lu(k,1820) - lu(k,634) * lu(k,1798)
4119 114070872 : lu(k,1822) = lu(k,1822) - lu(k,635) * lu(k,1798)
4120 114070872 : lu(k,1823) = lu(k,1823) - lu(k,636) * lu(k,1798)
4121 114070872 : lu(k,1824) = lu(k,1824) - lu(k,637) * lu(k,1798)
4122 114070872 : lu(k,1825) = lu(k,1825) - lu(k,638) * lu(k,1798)
4123 114070872 : lu(k,1826) = lu(k,1826) - lu(k,639) * lu(k,1798)
4124 114070872 : lu(k,1827) = lu(k,1827) - lu(k,640) * lu(k,1798)
4125 114070872 : lu(k,1831) = lu(k,1831) - lu(k,641) * lu(k,1798)
4126 114070872 : lu(k,1833) = lu(k,1833) - lu(k,642) * lu(k,1798)
4127 114070872 : lu(k,2057) = lu(k,2057) - lu(k,626) * lu(k,2054)
4128 114070872 : lu(k,2062) = lu(k,2062) - lu(k,627) * lu(k,2054)
4129 114070872 : lu(k,2069) = lu(k,2069) - lu(k,628) * lu(k,2054)
4130 114070872 : lu(k,2070) = lu(k,2070) - lu(k,629) * lu(k,2054)
4131 114070872 : lu(k,2071) = lu(k,2071) - lu(k,630) * lu(k,2054)
4132 114070872 : lu(k,2073) = lu(k,2073) - lu(k,631) * lu(k,2054)
4133 114070872 : lu(k,2074) = lu(k,2074) - lu(k,632) * lu(k,2054)
4134 114070872 : lu(k,2075) = lu(k,2075) - lu(k,633) * lu(k,2054)
4135 114070872 : lu(k,2077) = lu(k,2077) - lu(k,634) * lu(k,2054)
4136 114070872 : lu(k,2079) = lu(k,2079) - lu(k,635) * lu(k,2054)
4137 114070872 : lu(k,2080) = lu(k,2080) - lu(k,636) * lu(k,2054)
4138 114070872 : lu(k,2081) = lu(k,2081) - lu(k,637) * lu(k,2054)
4139 114070872 : lu(k,2082) = lu(k,2082) - lu(k,638) * lu(k,2054)
4140 114070872 : lu(k,2083) = lu(k,2083) - lu(k,639) * lu(k,2054)
4141 114070872 : lu(k,2084) = lu(k,2084) - lu(k,640) * lu(k,2054)
4142 114070872 : lu(k,2088) = lu(k,2088) - lu(k,641) * lu(k,2054)
4143 114070872 : lu(k,2090) = lu(k,2090) - lu(k,642) * lu(k,2054)
4144 114070872 : lu(k,647) = 1._r8 / lu(k,647)
4145 114070872 : lu(k,648) = lu(k,648) * lu(k,647)
4146 114070872 : lu(k,649) = lu(k,649) * lu(k,647)
4147 114070872 : lu(k,650) = lu(k,650) * lu(k,647)
4148 114070872 : lu(k,651) = lu(k,651) * lu(k,647)
4149 114070872 : lu(k,652) = lu(k,652) * lu(k,647)
4150 114070872 : lu(k,653) = lu(k,653) * lu(k,647)
4151 114070872 : lu(k,654) = lu(k,654) * lu(k,647)
4152 114070872 : lu(k,655) = lu(k,655) * lu(k,647)
4153 114070872 : lu(k,656) = lu(k,656) * lu(k,647)
4154 114070872 : lu(k,657) = lu(k,657) * lu(k,647)
4155 114070872 : lu(k,658) = lu(k,658) * lu(k,647)
4156 114070872 : lu(k,659) = lu(k,659) * lu(k,647)
4157 114070872 : lu(k,660) = lu(k,660) * lu(k,647)
4158 114070872 : lu(k,661) = lu(k,661) * lu(k,647)
4159 114070872 : lu(k,662) = lu(k,662) * lu(k,647)
4160 114070872 : lu(k,663) = lu(k,663) * lu(k,647)
4161 114070872 : lu(k,664) = lu(k,664) * lu(k,647)
4162 114070872 : lu(k,665) = lu(k,665) * lu(k,647)
4163 114070872 : lu(k,666) = lu(k,666) * lu(k,647)
4164 114070872 : lu(k,738) = lu(k,738) - lu(k,648) * lu(k,736)
4165 114070872 : lu(k,739) = lu(k,739) - lu(k,649) * lu(k,736)
4166 114070872 : lu(k,740) = lu(k,740) - lu(k,650) * lu(k,736)
4167 114070872 : lu(k,741) = lu(k,741) - lu(k,651) * lu(k,736)
4168 114070872 : lu(k,742) = - lu(k,652) * lu(k,736)
4169 114070872 : lu(k,743) = - lu(k,653) * lu(k,736)
4170 114070872 : lu(k,744) = lu(k,744) - lu(k,654) * lu(k,736)
4171 114070872 : lu(k,745) = lu(k,745) - lu(k,655) * lu(k,736)
4172 114070872 : lu(k,746) = lu(k,746) - lu(k,656) * lu(k,736)
4173 114070872 : lu(k,747) = lu(k,747) - lu(k,657) * lu(k,736)
4174 114070872 : lu(k,748) = lu(k,748) - lu(k,658) * lu(k,736)
4175 114070872 : lu(k,749) = lu(k,749) - lu(k,659) * lu(k,736)
4176 114070872 : lu(k,750) = lu(k,750) - lu(k,660) * lu(k,736)
4177 114070872 : lu(k,751) = - lu(k,661) * lu(k,736)
4178 114070872 : lu(k,752) = - lu(k,662) * lu(k,736)
4179 114070872 : lu(k,753) = - lu(k,663) * lu(k,736)
4180 114070872 : lu(k,755) = - lu(k,664) * lu(k,736)
4181 114070872 : lu(k,756) = lu(k,756) - lu(k,665) * lu(k,736)
4182 114070872 : lu(k,757) = lu(k,757) - lu(k,666) * lu(k,736)
4183 114070872 : lu(k,786) = lu(k,786) - lu(k,648) * lu(k,784)
4184 114070872 : lu(k,787) = lu(k,787) - lu(k,649) * lu(k,784)
4185 114070872 : lu(k,788) = lu(k,788) - lu(k,650) * lu(k,784)
4186 114070872 : lu(k,789) = lu(k,789) - lu(k,651) * lu(k,784)
4187 114070872 : lu(k,790) = lu(k,790) - lu(k,652) * lu(k,784)
4188 114070872 : lu(k,791) = lu(k,791) - lu(k,653) * lu(k,784)
4189 114070872 : lu(k,793) = lu(k,793) - lu(k,654) * lu(k,784)
4190 114070872 : lu(k,794) = lu(k,794) - lu(k,655) * lu(k,784)
4191 114070872 : lu(k,795) = lu(k,795) - lu(k,656) * lu(k,784)
4192 114070872 : lu(k,796) = lu(k,796) - lu(k,657) * lu(k,784)
4193 114070872 : lu(k,797) = lu(k,797) - lu(k,658) * lu(k,784)
4194 114070872 : lu(k,800) = lu(k,800) - lu(k,659) * lu(k,784)
4195 114070872 : lu(k,801) = lu(k,801) - lu(k,660) * lu(k,784)
4196 114070872 : lu(k,802) = lu(k,802) - lu(k,661) * lu(k,784)
4197 114070872 : lu(k,803) = - lu(k,662) * lu(k,784)
4198 114070872 : lu(k,804) = lu(k,804) - lu(k,663) * lu(k,784)
4199 114070872 : lu(k,806) = lu(k,806) - lu(k,664) * lu(k,784)
4200 114070872 : lu(k,807) = lu(k,807) - lu(k,665) * lu(k,784)
4201 114070872 : lu(k,808) = lu(k,808) - lu(k,666) * lu(k,784)
4202 114070872 : lu(k,898) = lu(k,898) - lu(k,648) * lu(k,896)
4203 114070872 : lu(k,899) = lu(k,899) - lu(k,649) * lu(k,896)
4204 114070872 : lu(k,900) = lu(k,900) - lu(k,650) * lu(k,896)
4205 114070872 : lu(k,901) = lu(k,901) - lu(k,651) * lu(k,896)
4206 114070872 : lu(k,902) = lu(k,902) - lu(k,652) * lu(k,896)
4207 114070872 : lu(k,903) = lu(k,903) - lu(k,653) * lu(k,896)
4208 114070872 : lu(k,905) = lu(k,905) - lu(k,654) * lu(k,896)
4209 114070872 : lu(k,907) = lu(k,907) - lu(k,655) * lu(k,896)
4210 114070872 : lu(k,908) = lu(k,908) - lu(k,656) * lu(k,896)
4211 114070872 : lu(k,909) = lu(k,909) - lu(k,657) * lu(k,896)
4212 114070872 : lu(k,910) = - lu(k,658) * lu(k,896)
4213 114070872 : lu(k,913) = lu(k,913) - lu(k,659) * lu(k,896)
4214 114070872 : lu(k,914) = lu(k,914) - lu(k,660) * lu(k,896)
4215 114070872 : lu(k,915) = lu(k,915) - lu(k,661) * lu(k,896)
4216 114070872 : lu(k,916) = - lu(k,662) * lu(k,896)
4217 114070872 : lu(k,917) = - lu(k,663) * lu(k,896)
4218 114070872 : lu(k,919) = lu(k,919) - lu(k,664) * lu(k,896)
4219 114070872 : lu(k,920) = lu(k,920) - lu(k,665) * lu(k,896)
4220 114070872 : lu(k,921) = lu(k,921) - lu(k,666) * lu(k,896)
4221 114070872 : lu(k,981) = lu(k,981) - lu(k,648) * lu(k,979)
4222 114070872 : lu(k,982) = lu(k,982) - lu(k,649) * lu(k,979)
4223 114070872 : lu(k,983) = lu(k,983) - lu(k,650) * lu(k,979)
4224 114070872 : lu(k,984) = lu(k,984) - lu(k,651) * lu(k,979)
4225 114070872 : lu(k,985) = lu(k,985) - lu(k,652) * lu(k,979)
4226 114070872 : lu(k,986) = lu(k,986) - lu(k,653) * lu(k,979)
4227 114070872 : lu(k,989) = lu(k,989) - lu(k,654) * lu(k,979)
4228 114070872 : lu(k,991) = lu(k,991) - lu(k,655) * lu(k,979)
4229 114070872 : lu(k,992) = lu(k,992) - lu(k,656) * lu(k,979)
4230 114070872 : lu(k,993) = lu(k,993) - lu(k,657) * lu(k,979)
4231 114070872 : lu(k,994) = lu(k,994) - lu(k,658) * lu(k,979)
4232 114070872 : lu(k,997) = lu(k,997) - lu(k,659) * lu(k,979)
4233 114070872 : lu(k,998) = lu(k,998) - lu(k,660) * lu(k,979)
4234 114070872 : lu(k,999) = lu(k,999) - lu(k,661) * lu(k,979)
4235 114070872 : lu(k,1000) = - lu(k,662) * lu(k,979)
4236 114070872 : lu(k,1001) = - lu(k,663) * lu(k,979)
4237 114070872 : lu(k,1003) = lu(k,1003) - lu(k,664) * lu(k,979)
4238 114070872 : lu(k,1004) = lu(k,1004) - lu(k,665) * lu(k,979)
4239 114070872 : lu(k,1005) = lu(k,1005) - lu(k,666) * lu(k,979)
4240 114070872 : lu(k,1372) = lu(k,1372) - lu(k,648) * lu(k,1370)
4241 114070872 : lu(k,1373) = lu(k,1373) - lu(k,649) * lu(k,1370)
4242 114070872 : lu(k,1377) = lu(k,1377) - lu(k,650) * lu(k,1370)
4243 114070872 : lu(k,1379) = lu(k,1379) - lu(k,651) * lu(k,1370)
4244 114070872 : lu(k,1381) = lu(k,1381) - lu(k,652) * lu(k,1370)
4245 114070872 : lu(k,1382) = lu(k,1382) - lu(k,653) * lu(k,1370)
4246 114070872 : lu(k,1386) = lu(k,1386) - lu(k,654) * lu(k,1370)
4247 114070872 : lu(k,1388) = lu(k,1388) - lu(k,655) * lu(k,1370)
4248 114070872 : lu(k,1389) = lu(k,1389) - lu(k,656) * lu(k,1370)
4249 114070872 : lu(k,1390) = lu(k,1390) - lu(k,657) * lu(k,1370)
4250 114070872 : lu(k,1391) = lu(k,1391) - lu(k,658) * lu(k,1370)
4251 114070872 : lu(k,1396) = lu(k,1396) - lu(k,659) * lu(k,1370)
4252 114070872 : lu(k,1397) = lu(k,1397) - lu(k,660) * lu(k,1370)
4253 114070872 : lu(k,1398) = lu(k,1398) - lu(k,661) * lu(k,1370)
4254 114070872 : lu(k,1399) = lu(k,1399) - lu(k,662) * lu(k,1370)
4255 114070872 : lu(k,1400) = lu(k,1400) - lu(k,663) * lu(k,1370)
4256 114070872 : lu(k,1402) = lu(k,1402) - lu(k,664) * lu(k,1370)
4257 114070872 : lu(k,1403) = lu(k,1403) - lu(k,665) * lu(k,1370)
4258 114070872 : lu(k,1404) = lu(k,1404) - lu(k,666) * lu(k,1370)
4259 114070872 : lu(k,1469) = lu(k,1469) - lu(k,648) * lu(k,1467)
4260 114070872 : lu(k,1470) = lu(k,1470) - lu(k,649) * lu(k,1467)
4261 114070872 : lu(k,1474) = lu(k,1474) - lu(k,650) * lu(k,1467)
4262 114070872 : lu(k,1476) = lu(k,1476) - lu(k,651) * lu(k,1467)
4263 114070872 : lu(k,1478) = - lu(k,652) * lu(k,1467)
4264 114070872 : lu(k,1479) = lu(k,1479) - lu(k,653) * lu(k,1467)
4265 114070872 : lu(k,1483) = lu(k,1483) - lu(k,654) * lu(k,1467)
4266 114070872 : lu(k,1485) = lu(k,1485) - lu(k,655) * lu(k,1467)
4267 114070872 : lu(k,1486) = lu(k,1486) - lu(k,656) * lu(k,1467)
4268 114070872 : lu(k,1487) = lu(k,1487) - lu(k,657) * lu(k,1467)
4269 114070872 : lu(k,1488) = lu(k,1488) - lu(k,658) * lu(k,1467)
4270 114070872 : lu(k,1493) = lu(k,1493) - lu(k,659) * lu(k,1467)
4271 114070872 : lu(k,1494) = lu(k,1494) - lu(k,660) * lu(k,1467)
4272 114070872 : lu(k,1495) = lu(k,1495) - lu(k,661) * lu(k,1467)
4273 114070872 : lu(k,1496) = lu(k,1496) - lu(k,662) * lu(k,1467)
4274 114070872 : lu(k,1497) = lu(k,1497) - lu(k,663) * lu(k,1467)
4275 114070872 : lu(k,1499) = lu(k,1499) - lu(k,664) * lu(k,1467)
4276 114070872 : lu(k,1500) = lu(k,1500) - lu(k,665) * lu(k,1467)
4277 114070872 : lu(k,1501) = lu(k,1501) - lu(k,666) * lu(k,1467)
4278 114070872 : lu(k,1511) = lu(k,1511) - lu(k,648) * lu(k,1509)
4279 114070872 : lu(k,1512) = lu(k,1512) - lu(k,649) * lu(k,1509)
4280 114070872 : lu(k,1515) = lu(k,1515) - lu(k,650) * lu(k,1509)
4281 114070872 : lu(k,1517) = lu(k,1517) - lu(k,651) * lu(k,1509)
4282 114070872 : lu(k,1519) = - lu(k,652) * lu(k,1509)
4283 114070872 : lu(k,1520) = lu(k,1520) - lu(k,653) * lu(k,1509)
4284 114070872 : lu(k,1524) = lu(k,1524) - lu(k,654) * lu(k,1509)
4285 114070872 : lu(k,1526) = lu(k,1526) - lu(k,655) * lu(k,1509)
4286 114070872 : lu(k,1527) = lu(k,1527) - lu(k,656) * lu(k,1509)
4287 114070872 : lu(k,1528) = lu(k,1528) - lu(k,657) * lu(k,1509)
4288 114070872 : lu(k,1529) = lu(k,1529) - lu(k,658) * lu(k,1509)
4289 114070872 : lu(k,1534) = lu(k,1534) - lu(k,659) * lu(k,1509)
4290 114070872 : lu(k,1535) = lu(k,1535) - lu(k,660) * lu(k,1509)
4291 114070872 : lu(k,1536) = lu(k,1536) - lu(k,661) * lu(k,1509)
4292 114070872 : lu(k,1537) = - lu(k,662) * lu(k,1509)
4293 114070872 : lu(k,1538) = lu(k,1538) - lu(k,663) * lu(k,1509)
4294 114070872 : lu(k,1540) = lu(k,1540) - lu(k,664) * lu(k,1509)
4295 114070872 : lu(k,1541) = lu(k,1541) - lu(k,665) * lu(k,1509)
4296 114070872 : lu(k,1542) = lu(k,1542) - lu(k,666) * lu(k,1509)
4297 114070872 : lu(k,1753) = - lu(k,648) * lu(k,1752)
4298 114070872 : lu(k,1754) = - lu(k,649) * lu(k,1752)
4299 114070872 : lu(k,1758) = lu(k,1758) - lu(k,650) * lu(k,1752)
4300 114070872 : lu(k,1760) = lu(k,1760) - lu(k,651) * lu(k,1752)
4301 114070872 : lu(k,1762) = lu(k,1762) - lu(k,652) * lu(k,1752)
4302 114070872 : lu(k,1763) = - lu(k,653) * lu(k,1752)
4303 114070872 : lu(k,1767) = lu(k,1767) - lu(k,654) * lu(k,1752)
4304 114070872 : lu(k,1769) = lu(k,1769) - lu(k,655) * lu(k,1752)
4305 114070872 : lu(k,1770) = lu(k,1770) - lu(k,656) * lu(k,1752)
4306 114070872 : lu(k,1771) = - lu(k,657) * lu(k,1752)
4307 114070872 : lu(k,1772) = - lu(k,658) * lu(k,1752)
4308 114070872 : lu(k,1777) = - lu(k,659) * lu(k,1752)
4309 114070872 : lu(k,1778) = lu(k,1778) - lu(k,660) * lu(k,1752)
4310 114070872 : lu(k,1779) = lu(k,1779) - lu(k,661) * lu(k,1752)
4311 114070872 : lu(k,1780) = lu(k,1780) - lu(k,662) * lu(k,1752)
4312 114070872 : lu(k,1781) = lu(k,1781) - lu(k,663) * lu(k,1752)
4313 114070872 : lu(k,1783) = lu(k,1783) - lu(k,664) * lu(k,1752)
4314 114070872 : lu(k,1784) = lu(k,1784) - lu(k,665) * lu(k,1752)
4315 114070872 : lu(k,1785) = lu(k,1785) - lu(k,666) * lu(k,1752)
4316 114070872 : lu(k,1871) = - lu(k,648) * lu(k,1870)
4317 114070872 : lu(k,1872) = - lu(k,649) * lu(k,1870)
4318 114070872 : lu(k,1875) = - lu(k,650) * lu(k,1870)
4319 114070872 : lu(k,1877) = lu(k,1877) - lu(k,651) * lu(k,1870)
4320 114070872 : lu(k,1879) = lu(k,1879) - lu(k,652) * lu(k,1870)
4321 114070872 : lu(k,1880) = lu(k,1880) - lu(k,653) * lu(k,1870)
4322 114070872 : lu(k,1884) = lu(k,1884) - lu(k,654) * lu(k,1870)
4323 114070872 : lu(k,1886) = lu(k,1886) - lu(k,655) * lu(k,1870)
4324 114070872 : lu(k,1887) = lu(k,1887) - lu(k,656) * lu(k,1870)
4325 114070872 : lu(k,1888) = lu(k,1888) - lu(k,657) * lu(k,1870)
4326 114070872 : lu(k,1889) = lu(k,1889) - lu(k,658) * lu(k,1870)
4327 114070872 : lu(k,1894) = - lu(k,659) * lu(k,1870)
4328 114070872 : lu(k,1895) = lu(k,1895) - lu(k,660) * lu(k,1870)
4329 114070872 : lu(k,1896) = lu(k,1896) - lu(k,661) * lu(k,1870)
4330 114070872 : lu(k,1897) = lu(k,1897) - lu(k,662) * lu(k,1870)
4331 114070872 : lu(k,1898) = lu(k,1898) - lu(k,663) * lu(k,1870)
4332 114070872 : lu(k,1900) = lu(k,1900) - lu(k,664) * lu(k,1870)
4333 114070872 : lu(k,1901) = lu(k,1901) - lu(k,665) * lu(k,1870)
4334 114070872 : lu(k,1902) = lu(k,1902) - lu(k,666) * lu(k,1870)
4335 114070872 : lu(k,2059) = lu(k,2059) - lu(k,648) * lu(k,2055)
4336 114070872 : lu(k,2060) = lu(k,2060) - lu(k,649) * lu(k,2055)
4337 114070872 : lu(k,2063) = lu(k,2063) - lu(k,650) * lu(k,2055)
4338 114070872 : lu(k,2065) = lu(k,2065) - lu(k,651) * lu(k,2055)
4339 114070872 : lu(k,2067) = lu(k,2067) - lu(k,652) * lu(k,2055)
4340 114070872 : lu(k,2068) = lu(k,2068) - lu(k,653) * lu(k,2055)
4341 114070872 : lu(k,2072) = lu(k,2072) - lu(k,654) * lu(k,2055)
4342 114070872 : lu(k,2074) = lu(k,2074) - lu(k,655) * lu(k,2055)
4343 114070872 : lu(k,2075) = lu(k,2075) - lu(k,656) * lu(k,2055)
4344 114070872 : lu(k,2076) = lu(k,2076) - lu(k,657) * lu(k,2055)
4345 114070872 : lu(k,2077) = lu(k,2077) - lu(k,658) * lu(k,2055)
4346 114070872 : lu(k,2082) = lu(k,2082) - lu(k,659) * lu(k,2055)
4347 114070872 : lu(k,2083) = lu(k,2083) - lu(k,660) * lu(k,2055)
4348 114070872 : lu(k,2084) = lu(k,2084) - lu(k,661) * lu(k,2055)
4349 114070872 : lu(k,2085) = lu(k,2085) - lu(k,662) * lu(k,2055)
4350 114070872 : lu(k,2086) = lu(k,2086) - lu(k,663) * lu(k,2055)
4351 114070872 : lu(k,2088) = lu(k,2088) - lu(k,664) * lu(k,2055)
4352 114070872 : lu(k,2089) = lu(k,2089) - lu(k,665) * lu(k,2055)
4353 117656469 : lu(k,2090) = lu(k,2090) - lu(k,666) * lu(k,2055)
4354 : end do
4355 3585597 : end subroutine lu_fac16
4356 3585597 : subroutine lu_fac17( avec_len, lu )
4357 : use chem_mods, only : nzcnt
4358 : use shr_kind_mod, only : r8 => shr_kind_r8
4359 : implicit none
4360 : !-----------------------------------------------------------------------
4361 : ! ... dummy args
4362 : !-----------------------------------------------------------------------
4363 : integer, intent(in) :: avec_len
4364 : real(r8), intent(inout) :: lu(veclen,nzcnt)
4365 : !-----------------------------------------------------------------------
4366 : ! ... local variables
4367 : !-----------------------------------------------------------------------
4368 : integer :: k
4369 117656469 : do k = 1,avec_len
4370 114070872 : lu(k,669) = 1._r8 / lu(k,669)
4371 114070872 : lu(k,670) = lu(k,670) * lu(k,669)
4372 114070872 : lu(k,671) = lu(k,671) * lu(k,669)
4373 114070872 : lu(k,672) = lu(k,672) * lu(k,669)
4374 114070872 : lu(k,673) = lu(k,673) * lu(k,669)
4375 114070872 : lu(k,674) = lu(k,674) * lu(k,669)
4376 114070872 : lu(k,675) = lu(k,675) * lu(k,669)
4377 114070872 : lu(k,676) = lu(k,676) * lu(k,669)
4378 114070872 : lu(k,677) = lu(k,677) * lu(k,669)
4379 114070872 : lu(k,678) = lu(k,678) * lu(k,669)
4380 114070872 : lu(k,679) = lu(k,679) * lu(k,669)
4381 114070872 : lu(k,680) = lu(k,680) * lu(k,669)
4382 114070872 : lu(k,681) = lu(k,681) * lu(k,669)
4383 114070872 : lu(k,682) = lu(k,682) * lu(k,669)
4384 114070872 : lu(k,683) = lu(k,683) * lu(k,669)
4385 114070872 : lu(k,684) = lu(k,684) * lu(k,669)
4386 114070872 : lu(k,685) = lu(k,685) * lu(k,669)
4387 114070872 : lu(k,686) = lu(k,686) * lu(k,669)
4388 114070872 : lu(k,687) = lu(k,687) * lu(k,669)
4389 114070872 : lu(k,1009) = - lu(k,670) * lu(k,1008)
4390 114070872 : lu(k,1011) = lu(k,1011) - lu(k,671) * lu(k,1008)
4391 114070872 : lu(k,1012) = lu(k,1012) - lu(k,672) * lu(k,1008)
4392 114070872 : lu(k,1014) = lu(k,1014) - lu(k,673) * lu(k,1008)
4393 114070872 : lu(k,1017) = lu(k,1017) - lu(k,674) * lu(k,1008)
4394 114070872 : lu(k,1018) = lu(k,1018) - lu(k,675) * lu(k,1008)
4395 114070872 : lu(k,1019) = lu(k,1019) - lu(k,676) * lu(k,1008)
4396 114070872 : lu(k,1020) = lu(k,1020) - lu(k,677) * lu(k,1008)
4397 114070872 : lu(k,1021) = lu(k,1021) - lu(k,678) * lu(k,1008)
4398 114070872 : lu(k,1022) = lu(k,1022) - lu(k,679) * lu(k,1008)
4399 114070872 : lu(k,1023) = lu(k,1023) - lu(k,680) * lu(k,1008)
4400 114070872 : lu(k,1027) = lu(k,1027) - lu(k,681) * lu(k,1008)
4401 114070872 : lu(k,1028) = lu(k,1028) - lu(k,682) * lu(k,1008)
4402 114070872 : lu(k,1029) = lu(k,1029) - lu(k,683) * lu(k,1008)
4403 114070872 : lu(k,1031) = lu(k,1031) - lu(k,684) * lu(k,1008)
4404 114070872 : lu(k,1032) = lu(k,1032) - lu(k,685) * lu(k,1008)
4405 114070872 : lu(k,1036) = lu(k,1036) - lu(k,686) * lu(k,1008)
4406 114070872 : lu(k,1038) = lu(k,1038) - lu(k,687) * lu(k,1008)
4407 114070872 : lu(k,1142) = lu(k,1142) - lu(k,670) * lu(k,1141)
4408 114070872 : lu(k,1146) = lu(k,1146) - lu(k,671) * lu(k,1141)
4409 114070872 : lu(k,1148) = lu(k,1148) - lu(k,672) * lu(k,1141)
4410 114070872 : lu(k,1150) = lu(k,1150) - lu(k,673) * lu(k,1141)
4411 114070872 : lu(k,1153) = lu(k,1153) - lu(k,674) * lu(k,1141)
4412 114070872 : lu(k,1154) = lu(k,1154) - lu(k,675) * lu(k,1141)
4413 114070872 : lu(k,1155) = lu(k,1155) - lu(k,676) * lu(k,1141)
4414 114070872 : lu(k,1156) = lu(k,1156) - lu(k,677) * lu(k,1141)
4415 114070872 : lu(k,1157) = lu(k,1157) - lu(k,678) * lu(k,1141)
4416 114070872 : lu(k,1158) = lu(k,1158) - lu(k,679) * lu(k,1141)
4417 114070872 : lu(k,1159) = lu(k,1159) - lu(k,680) * lu(k,1141)
4418 114070872 : lu(k,1163) = lu(k,1163) - lu(k,681) * lu(k,1141)
4419 114070872 : lu(k,1164) = lu(k,1164) - lu(k,682) * lu(k,1141)
4420 114070872 : lu(k,1165) = lu(k,1165) - lu(k,683) * lu(k,1141)
4421 114070872 : lu(k,1167) = lu(k,1167) - lu(k,684) * lu(k,1141)
4422 114070872 : lu(k,1168) = lu(k,1168) - lu(k,685) * lu(k,1141)
4423 114070872 : lu(k,1172) = lu(k,1172) - lu(k,686) * lu(k,1141)
4424 114070872 : lu(k,1174) = lu(k,1174) - lu(k,687) * lu(k,1141)
4425 114070872 : lu(k,1186) = lu(k,1186) - lu(k,670) * lu(k,1185)
4426 114070872 : lu(k,1189) = lu(k,1189) - lu(k,671) * lu(k,1185)
4427 114070872 : lu(k,1191) = lu(k,1191) - lu(k,672) * lu(k,1185)
4428 114070872 : lu(k,1193) = lu(k,1193) - lu(k,673) * lu(k,1185)
4429 114070872 : lu(k,1196) = lu(k,1196) - lu(k,674) * lu(k,1185)
4430 114070872 : lu(k,1197) = lu(k,1197) - lu(k,675) * lu(k,1185)
4431 114070872 : lu(k,1198) = lu(k,1198) - lu(k,676) * lu(k,1185)
4432 114070872 : lu(k,1199) = lu(k,1199) - lu(k,677) * lu(k,1185)
4433 114070872 : lu(k,1200) = lu(k,1200) - lu(k,678) * lu(k,1185)
4434 114070872 : lu(k,1201) = lu(k,1201) - lu(k,679) * lu(k,1185)
4435 114070872 : lu(k,1202) = lu(k,1202) - lu(k,680) * lu(k,1185)
4436 114070872 : lu(k,1206) = lu(k,1206) - lu(k,681) * lu(k,1185)
4437 114070872 : lu(k,1207) = lu(k,1207) - lu(k,682) * lu(k,1185)
4438 114070872 : lu(k,1208) = lu(k,1208) - lu(k,683) * lu(k,1185)
4439 114070872 : lu(k,1210) = lu(k,1210) - lu(k,684) * lu(k,1185)
4440 114070872 : lu(k,1211) = lu(k,1211) - lu(k,685) * lu(k,1185)
4441 114070872 : lu(k,1215) = lu(k,1215) - lu(k,686) * lu(k,1185)
4442 114070872 : lu(k,1217) = lu(k,1217) - lu(k,687) * lu(k,1185)
4443 114070872 : lu(k,1229) = lu(k,1229) - lu(k,670) * lu(k,1228)
4444 114070872 : lu(k,1232) = lu(k,1232) - lu(k,671) * lu(k,1228)
4445 114070872 : lu(k,1234) = lu(k,1234) - lu(k,672) * lu(k,1228)
4446 114070872 : lu(k,1236) = lu(k,1236) - lu(k,673) * lu(k,1228)
4447 114070872 : lu(k,1239) = lu(k,1239) - lu(k,674) * lu(k,1228)
4448 114070872 : lu(k,1240) = lu(k,1240) - lu(k,675) * lu(k,1228)
4449 114070872 : lu(k,1241) = lu(k,1241) - lu(k,676) * lu(k,1228)
4450 114070872 : lu(k,1242) = lu(k,1242) - lu(k,677) * lu(k,1228)
4451 114070872 : lu(k,1243) = lu(k,1243) - lu(k,678) * lu(k,1228)
4452 114070872 : lu(k,1244) = lu(k,1244) - lu(k,679) * lu(k,1228)
4453 114070872 : lu(k,1245) = lu(k,1245) - lu(k,680) * lu(k,1228)
4454 114070872 : lu(k,1249) = lu(k,1249) - lu(k,681) * lu(k,1228)
4455 114070872 : lu(k,1250) = lu(k,1250) - lu(k,682) * lu(k,1228)
4456 114070872 : lu(k,1251) = lu(k,1251) - lu(k,683) * lu(k,1228)
4457 114070872 : lu(k,1253) = lu(k,1253) - lu(k,684) * lu(k,1228)
4458 114070872 : lu(k,1254) = lu(k,1254) - lu(k,685) * lu(k,1228)
4459 114070872 : lu(k,1258) = lu(k,1258) - lu(k,686) * lu(k,1228)
4460 114070872 : lu(k,1260) = lu(k,1260) - lu(k,687) * lu(k,1228)
4461 114070872 : lu(k,1313) = lu(k,1313) - lu(k,670) * lu(k,1312)
4462 114070872 : lu(k,1316) = lu(k,1316) - lu(k,671) * lu(k,1312)
4463 114070872 : lu(k,1318) = lu(k,1318) - lu(k,672) * lu(k,1312)
4464 114070872 : lu(k,1320) = lu(k,1320) - lu(k,673) * lu(k,1312)
4465 114070872 : lu(k,1323) = lu(k,1323) - lu(k,674) * lu(k,1312)
4466 114070872 : lu(k,1324) = lu(k,1324) - lu(k,675) * lu(k,1312)
4467 114070872 : lu(k,1325) = lu(k,1325) - lu(k,676) * lu(k,1312)
4468 114070872 : lu(k,1326) = lu(k,1326) - lu(k,677) * lu(k,1312)
4469 114070872 : lu(k,1327) = lu(k,1327) - lu(k,678) * lu(k,1312)
4470 114070872 : lu(k,1328) = lu(k,1328) - lu(k,679) * lu(k,1312)
4471 114070872 : lu(k,1329) = lu(k,1329) - lu(k,680) * lu(k,1312)
4472 114070872 : lu(k,1333) = lu(k,1333) - lu(k,681) * lu(k,1312)
4473 114070872 : lu(k,1334) = lu(k,1334) - lu(k,682) * lu(k,1312)
4474 114070872 : lu(k,1335) = lu(k,1335) - lu(k,683) * lu(k,1312)
4475 114070872 : lu(k,1337) = lu(k,1337) - lu(k,684) * lu(k,1312)
4476 114070872 : lu(k,1338) = lu(k,1338) - lu(k,685) * lu(k,1312)
4477 114070872 : lu(k,1342) = lu(k,1342) - lu(k,686) * lu(k,1312)
4478 114070872 : lu(k,1344) = lu(k,1344) - lu(k,687) * lu(k,1312)
4479 114070872 : lu(k,1591) = lu(k,1591) - lu(k,670) * lu(k,1590)
4480 114070872 : lu(k,1595) = lu(k,1595) - lu(k,671) * lu(k,1590)
4481 114070872 : lu(k,1597) = lu(k,1597) - lu(k,672) * lu(k,1590)
4482 114070872 : lu(k,1599) = lu(k,1599) - lu(k,673) * lu(k,1590)
4483 114070872 : lu(k,1602) = lu(k,1602) - lu(k,674) * lu(k,1590)
4484 114070872 : lu(k,1603) = lu(k,1603) - lu(k,675) * lu(k,1590)
4485 114070872 : lu(k,1604) = lu(k,1604) - lu(k,676) * lu(k,1590)
4486 114070872 : lu(k,1605) = lu(k,1605) - lu(k,677) * lu(k,1590)
4487 114070872 : lu(k,1606) = lu(k,1606) - lu(k,678) * lu(k,1590)
4488 114070872 : lu(k,1607) = lu(k,1607) - lu(k,679) * lu(k,1590)
4489 114070872 : lu(k,1608) = lu(k,1608) - lu(k,680) * lu(k,1590)
4490 114070872 : lu(k,1612) = lu(k,1612) - lu(k,681) * lu(k,1590)
4491 114070872 : lu(k,1613) = lu(k,1613) - lu(k,682) * lu(k,1590)
4492 114070872 : lu(k,1614) = lu(k,1614) - lu(k,683) * lu(k,1590)
4493 114070872 : lu(k,1616) = lu(k,1616) - lu(k,684) * lu(k,1590)
4494 114070872 : lu(k,1617) = lu(k,1617) - lu(k,685) * lu(k,1590)
4495 114070872 : lu(k,1621) = lu(k,1621) - lu(k,686) * lu(k,1590)
4496 114070872 : lu(k,1623) = lu(k,1623) - lu(k,687) * lu(k,1590)
4497 114070872 : lu(k,1635) = lu(k,1635) - lu(k,670) * lu(k,1634)
4498 114070872 : lu(k,1638) = lu(k,1638) - lu(k,671) * lu(k,1634)
4499 114070872 : lu(k,1640) = lu(k,1640) - lu(k,672) * lu(k,1634)
4500 114070872 : lu(k,1642) = lu(k,1642) - lu(k,673) * lu(k,1634)
4501 114070872 : lu(k,1645) = lu(k,1645) - lu(k,674) * lu(k,1634)
4502 114070872 : lu(k,1646) = lu(k,1646) - lu(k,675) * lu(k,1634)
4503 114070872 : lu(k,1647) = lu(k,1647) - lu(k,676) * lu(k,1634)
4504 114070872 : lu(k,1648) = lu(k,1648) - lu(k,677) * lu(k,1634)
4505 114070872 : lu(k,1649) = lu(k,1649) - lu(k,678) * lu(k,1634)
4506 114070872 : lu(k,1650) = lu(k,1650) - lu(k,679) * lu(k,1634)
4507 114070872 : lu(k,1651) = lu(k,1651) - lu(k,680) * lu(k,1634)
4508 114070872 : lu(k,1655) = lu(k,1655) - lu(k,681) * lu(k,1634)
4509 114070872 : lu(k,1656) = lu(k,1656) - lu(k,682) * lu(k,1634)
4510 114070872 : lu(k,1657) = lu(k,1657) - lu(k,683) * lu(k,1634)
4511 114070872 : lu(k,1659) = lu(k,1659) - lu(k,684) * lu(k,1634)
4512 114070872 : lu(k,1660) = lu(k,1660) - lu(k,685) * lu(k,1634)
4513 114070872 : lu(k,1664) = lu(k,1664) - lu(k,686) * lu(k,1634)
4514 114070872 : lu(k,1666) = lu(k,1666) - lu(k,687) * lu(k,1634)
4515 114070872 : lu(k,1678) = lu(k,1678) - lu(k,670) * lu(k,1677)
4516 114070872 : lu(k,1681) = lu(k,1681) - lu(k,671) * lu(k,1677)
4517 114070872 : lu(k,1683) = lu(k,1683) - lu(k,672) * lu(k,1677)
4518 114070872 : lu(k,1685) = lu(k,1685) - lu(k,673) * lu(k,1677)
4519 114070872 : lu(k,1688) = lu(k,1688) - lu(k,674) * lu(k,1677)
4520 114070872 : lu(k,1689) = lu(k,1689) - lu(k,675) * lu(k,1677)
4521 114070872 : lu(k,1690) = lu(k,1690) - lu(k,676) * lu(k,1677)
4522 114070872 : lu(k,1691) = lu(k,1691) - lu(k,677) * lu(k,1677)
4523 114070872 : lu(k,1692) = lu(k,1692) - lu(k,678) * lu(k,1677)
4524 114070872 : lu(k,1693) = lu(k,1693) - lu(k,679) * lu(k,1677)
4525 114070872 : lu(k,1694) = lu(k,1694) - lu(k,680) * lu(k,1677)
4526 114070872 : lu(k,1698) = lu(k,1698) - lu(k,681) * lu(k,1677)
4527 114070872 : lu(k,1699) = lu(k,1699) - lu(k,682) * lu(k,1677)
4528 114070872 : lu(k,1700) = lu(k,1700) - lu(k,683) * lu(k,1677)
4529 114070872 : lu(k,1702) = lu(k,1702) - lu(k,684) * lu(k,1677)
4530 114070872 : lu(k,1703) = lu(k,1703) - lu(k,685) * lu(k,1677)
4531 114070872 : lu(k,1707) = lu(k,1707) - lu(k,686) * lu(k,1677)
4532 114070872 : lu(k,1709) = lu(k,1709) - lu(k,687) * lu(k,1677)
4533 114070872 : lu(k,1800) = lu(k,1800) - lu(k,670) * lu(k,1799)
4534 114070872 : lu(k,1805) = lu(k,1805) - lu(k,671) * lu(k,1799)
4535 114070872 : lu(k,1807) = lu(k,1807) - lu(k,672) * lu(k,1799)
4536 114070872 : lu(k,1809) = lu(k,1809) - lu(k,673) * lu(k,1799)
4537 114070872 : lu(k,1812) = lu(k,1812) - lu(k,674) * lu(k,1799)
4538 114070872 : lu(k,1813) = lu(k,1813) - lu(k,675) * lu(k,1799)
4539 114070872 : lu(k,1814) = lu(k,1814) - lu(k,676) * lu(k,1799)
4540 114070872 : lu(k,1815) = lu(k,1815) - lu(k,677) * lu(k,1799)
4541 114070872 : lu(k,1816) = lu(k,1816) - lu(k,678) * lu(k,1799)
4542 114070872 : lu(k,1817) = lu(k,1817) - lu(k,679) * lu(k,1799)
4543 114070872 : lu(k,1818) = lu(k,1818) - lu(k,680) * lu(k,1799)
4544 114070872 : lu(k,1822) = lu(k,1822) - lu(k,681) * lu(k,1799)
4545 114070872 : lu(k,1823) = lu(k,1823) - lu(k,682) * lu(k,1799)
4546 114070872 : lu(k,1824) = lu(k,1824) - lu(k,683) * lu(k,1799)
4547 114070872 : lu(k,1826) = lu(k,1826) - lu(k,684) * lu(k,1799)
4548 114070872 : lu(k,1827) = lu(k,1827) - lu(k,685) * lu(k,1799)
4549 114070872 : lu(k,1831) = lu(k,1831) - lu(k,686) * lu(k,1799)
4550 114070872 : lu(k,1833) = lu(k,1833) - lu(k,687) * lu(k,1799)
4551 114070872 : lu(k,1952) = - lu(k,670) * lu(k,1951)
4552 114070872 : lu(k,1957) = lu(k,1957) - lu(k,671) * lu(k,1951)
4553 114070872 : lu(k,1959) = lu(k,1959) - lu(k,672) * lu(k,1951)
4554 114070872 : lu(k,1961) = lu(k,1961) - lu(k,673) * lu(k,1951)
4555 114070872 : lu(k,1964) = lu(k,1964) - lu(k,674) * lu(k,1951)
4556 114070872 : lu(k,1965) = lu(k,1965) - lu(k,675) * lu(k,1951)
4557 114070872 : lu(k,1966) = lu(k,1966) - lu(k,676) * lu(k,1951)
4558 114070872 : lu(k,1967) = lu(k,1967) - lu(k,677) * lu(k,1951)
4559 114070872 : lu(k,1968) = lu(k,1968) - lu(k,678) * lu(k,1951)
4560 114070872 : lu(k,1969) = lu(k,1969) - lu(k,679) * lu(k,1951)
4561 114070872 : lu(k,1970) = lu(k,1970) - lu(k,680) * lu(k,1951)
4562 114070872 : lu(k,1974) = lu(k,1974) - lu(k,681) * lu(k,1951)
4563 114070872 : lu(k,1975) = lu(k,1975) - lu(k,682) * lu(k,1951)
4564 114070872 : lu(k,1976) = lu(k,1976) - lu(k,683) * lu(k,1951)
4565 114070872 : lu(k,1978) = lu(k,1978) - lu(k,684) * lu(k,1951)
4566 114070872 : lu(k,1979) = lu(k,1979) - lu(k,685) * lu(k,1951)
4567 114070872 : lu(k,1983) = lu(k,1983) - lu(k,686) * lu(k,1951)
4568 114070872 : lu(k,1985) = lu(k,1985) - lu(k,687) * lu(k,1951)
4569 114070872 : lu(k,2057) = lu(k,2057) - lu(k,670) * lu(k,2056)
4570 114070872 : lu(k,2062) = lu(k,2062) - lu(k,671) * lu(k,2056)
4571 114070872 : lu(k,2064) = lu(k,2064) - lu(k,672) * lu(k,2056)
4572 114070872 : lu(k,2066) = lu(k,2066) - lu(k,673) * lu(k,2056)
4573 114070872 : lu(k,2069) = lu(k,2069) - lu(k,674) * lu(k,2056)
4574 114070872 : lu(k,2070) = lu(k,2070) - lu(k,675) * lu(k,2056)
4575 114070872 : lu(k,2071) = lu(k,2071) - lu(k,676) * lu(k,2056)
4576 114070872 : lu(k,2072) = lu(k,2072) - lu(k,677) * lu(k,2056)
4577 114070872 : lu(k,2073) = lu(k,2073) - lu(k,678) * lu(k,2056)
4578 114070872 : lu(k,2074) = lu(k,2074) - lu(k,679) * lu(k,2056)
4579 114070872 : lu(k,2075) = lu(k,2075) - lu(k,680) * lu(k,2056)
4580 114070872 : lu(k,2079) = lu(k,2079) - lu(k,681) * lu(k,2056)
4581 114070872 : lu(k,2080) = lu(k,2080) - lu(k,682) * lu(k,2056)
4582 114070872 : lu(k,2081) = lu(k,2081) - lu(k,683) * lu(k,2056)
4583 114070872 : lu(k,2083) = lu(k,2083) - lu(k,684) * lu(k,2056)
4584 114070872 : lu(k,2084) = lu(k,2084) - lu(k,685) * lu(k,2056)
4585 114070872 : lu(k,2088) = lu(k,2088) - lu(k,686) * lu(k,2056)
4586 114070872 : lu(k,2090) = lu(k,2090) - lu(k,687) * lu(k,2056)
4587 114070872 : lu(k,691) = 1._r8 / lu(k,691)
4588 114070872 : lu(k,692) = lu(k,692) * lu(k,691)
4589 114070872 : lu(k,693) = lu(k,693) * lu(k,691)
4590 114070872 : lu(k,694) = lu(k,694) * lu(k,691)
4591 114070872 : lu(k,695) = lu(k,695) * lu(k,691)
4592 114070872 : lu(k,696) = lu(k,696) * lu(k,691)
4593 114070872 : lu(k,697) = lu(k,697) * lu(k,691)
4594 114070872 : lu(k,698) = lu(k,698) * lu(k,691)
4595 114070872 : lu(k,699) = lu(k,699) * lu(k,691)
4596 114070872 : lu(k,700) = lu(k,700) * lu(k,691)
4597 114070872 : lu(k,701) = lu(k,701) * lu(k,691)
4598 114070872 : lu(k,702) = lu(k,702) * lu(k,691)
4599 114070872 : lu(k,703) = lu(k,703) * lu(k,691)
4600 114070872 : lu(k,704) = lu(k,704) * lu(k,691)
4601 114070872 : lu(k,705) = lu(k,705) * lu(k,691)
4602 114070872 : lu(k,706) = lu(k,706) * lu(k,691)
4603 114070872 : lu(k,707) = lu(k,707) * lu(k,691)
4604 114070872 : lu(k,866) = lu(k,866) - lu(k,692) * lu(k,864)
4605 114070872 : lu(k,869) = lu(k,869) - lu(k,693) * lu(k,864)
4606 114070872 : lu(k,870) = lu(k,870) - lu(k,694) * lu(k,864)
4607 114070872 : lu(k,871) = lu(k,871) - lu(k,695) * lu(k,864)
4608 114070872 : lu(k,872) = lu(k,872) - lu(k,696) * lu(k,864)
4609 114070872 : lu(k,873) = lu(k,873) - lu(k,697) * lu(k,864)
4610 114070872 : lu(k,874) = lu(k,874) - lu(k,698) * lu(k,864)
4611 114070872 : lu(k,876) = lu(k,876) - lu(k,699) * lu(k,864)
4612 114070872 : lu(k,877) = lu(k,877) - lu(k,700) * lu(k,864)
4613 114070872 : lu(k,878) = lu(k,878) - lu(k,701) * lu(k,864)
4614 114070872 : lu(k,879) = lu(k,879) - lu(k,702) * lu(k,864)
4615 114070872 : lu(k,880) = lu(k,880) - lu(k,703) * lu(k,864)
4616 114070872 : lu(k,881) = lu(k,881) - lu(k,704) * lu(k,864)
4617 114070872 : lu(k,882) = - lu(k,705) * lu(k,864)
4618 114070872 : lu(k,884) = lu(k,884) - lu(k,706) * lu(k,864)
4619 114070872 : lu(k,886) = lu(k,886) - lu(k,707) * lu(k,864)
4620 114070872 : lu(k,1011) = lu(k,1011) - lu(k,692) * lu(k,1009)
4621 114070872 : lu(k,1017) = lu(k,1017) - lu(k,693) * lu(k,1009)
4622 114070872 : lu(k,1018) = lu(k,1018) - lu(k,694) * lu(k,1009)
4623 114070872 : lu(k,1019) = lu(k,1019) - lu(k,695) * lu(k,1009)
4624 114070872 : lu(k,1021) = lu(k,1021) - lu(k,696) * lu(k,1009)
4625 114070872 : lu(k,1022) = lu(k,1022) - lu(k,697) * lu(k,1009)
4626 114070872 : lu(k,1023) = lu(k,1023) - lu(k,698) * lu(k,1009)
4627 114070872 : lu(k,1025) = lu(k,1025) - lu(k,699) * lu(k,1009)
4628 114070872 : lu(k,1027) = lu(k,1027) - lu(k,700) * lu(k,1009)
4629 114070872 : lu(k,1028) = lu(k,1028) - lu(k,701) * lu(k,1009)
4630 114070872 : lu(k,1029) = lu(k,1029) - lu(k,702) * lu(k,1009)
4631 114070872 : lu(k,1030) = - lu(k,703) * lu(k,1009)
4632 114070872 : lu(k,1031) = lu(k,1031) - lu(k,704) * lu(k,1009)
4633 114070872 : lu(k,1032) = lu(k,1032) - lu(k,705) * lu(k,1009)
4634 114070872 : lu(k,1036) = lu(k,1036) - lu(k,706) * lu(k,1009)
4635 114070872 : lu(k,1038) = lu(k,1038) - lu(k,707) * lu(k,1009)
4636 114070872 : lu(k,1146) = lu(k,1146) - lu(k,692) * lu(k,1142)
4637 114070872 : lu(k,1153) = lu(k,1153) - lu(k,693) * lu(k,1142)
4638 114070872 : lu(k,1154) = lu(k,1154) - lu(k,694) * lu(k,1142)
4639 114070872 : lu(k,1155) = lu(k,1155) - lu(k,695) * lu(k,1142)
4640 114070872 : lu(k,1157) = lu(k,1157) - lu(k,696) * lu(k,1142)
4641 114070872 : lu(k,1158) = lu(k,1158) - lu(k,697) * lu(k,1142)
4642 114070872 : lu(k,1159) = lu(k,1159) - lu(k,698) * lu(k,1142)
4643 114070872 : lu(k,1161) = lu(k,1161) - lu(k,699) * lu(k,1142)
4644 114070872 : lu(k,1163) = lu(k,1163) - lu(k,700) * lu(k,1142)
4645 114070872 : lu(k,1164) = lu(k,1164) - lu(k,701) * lu(k,1142)
4646 114070872 : lu(k,1165) = lu(k,1165) - lu(k,702) * lu(k,1142)
4647 114070872 : lu(k,1166) = lu(k,1166) - lu(k,703) * lu(k,1142)
4648 114070872 : lu(k,1167) = lu(k,1167) - lu(k,704) * lu(k,1142)
4649 114070872 : lu(k,1168) = lu(k,1168) - lu(k,705) * lu(k,1142)
4650 114070872 : lu(k,1172) = lu(k,1172) - lu(k,706) * lu(k,1142)
4651 114070872 : lu(k,1174) = lu(k,1174) - lu(k,707) * lu(k,1142)
4652 114070872 : lu(k,1189) = lu(k,1189) - lu(k,692) * lu(k,1186)
4653 114070872 : lu(k,1196) = lu(k,1196) - lu(k,693) * lu(k,1186)
4654 114070872 : lu(k,1197) = lu(k,1197) - lu(k,694) * lu(k,1186)
4655 114070872 : lu(k,1198) = lu(k,1198) - lu(k,695) * lu(k,1186)
4656 114070872 : lu(k,1200) = lu(k,1200) - lu(k,696) * lu(k,1186)
4657 114070872 : lu(k,1201) = lu(k,1201) - lu(k,697) * lu(k,1186)
4658 114070872 : lu(k,1202) = lu(k,1202) - lu(k,698) * lu(k,1186)
4659 114070872 : lu(k,1204) = lu(k,1204) - lu(k,699) * lu(k,1186)
4660 114070872 : lu(k,1206) = lu(k,1206) - lu(k,700) * lu(k,1186)
4661 114070872 : lu(k,1207) = lu(k,1207) - lu(k,701) * lu(k,1186)
4662 114070872 : lu(k,1208) = lu(k,1208) - lu(k,702) * lu(k,1186)
4663 114070872 : lu(k,1209) = lu(k,1209) - lu(k,703) * lu(k,1186)
4664 114070872 : lu(k,1210) = lu(k,1210) - lu(k,704) * lu(k,1186)
4665 114070872 : lu(k,1211) = lu(k,1211) - lu(k,705) * lu(k,1186)
4666 114070872 : lu(k,1215) = lu(k,1215) - lu(k,706) * lu(k,1186)
4667 114070872 : lu(k,1217) = lu(k,1217) - lu(k,707) * lu(k,1186)
4668 114070872 : lu(k,1232) = lu(k,1232) - lu(k,692) * lu(k,1229)
4669 114070872 : lu(k,1239) = lu(k,1239) - lu(k,693) * lu(k,1229)
4670 114070872 : lu(k,1240) = lu(k,1240) - lu(k,694) * lu(k,1229)
4671 114070872 : lu(k,1241) = lu(k,1241) - lu(k,695) * lu(k,1229)
4672 114070872 : lu(k,1243) = lu(k,1243) - lu(k,696) * lu(k,1229)
4673 114070872 : lu(k,1244) = lu(k,1244) - lu(k,697) * lu(k,1229)
4674 114070872 : lu(k,1245) = lu(k,1245) - lu(k,698) * lu(k,1229)
4675 114070872 : lu(k,1247) = lu(k,1247) - lu(k,699) * lu(k,1229)
4676 114070872 : lu(k,1249) = lu(k,1249) - lu(k,700) * lu(k,1229)
4677 114070872 : lu(k,1250) = lu(k,1250) - lu(k,701) * lu(k,1229)
4678 114070872 : lu(k,1251) = lu(k,1251) - lu(k,702) * lu(k,1229)
4679 114070872 : lu(k,1252) = lu(k,1252) - lu(k,703) * lu(k,1229)
4680 114070872 : lu(k,1253) = lu(k,1253) - lu(k,704) * lu(k,1229)
4681 114070872 : lu(k,1254) = lu(k,1254) - lu(k,705) * lu(k,1229)
4682 114070872 : lu(k,1258) = lu(k,1258) - lu(k,706) * lu(k,1229)
4683 114070872 : lu(k,1260) = lu(k,1260) - lu(k,707) * lu(k,1229)
4684 114070872 : lu(k,1316) = lu(k,1316) - lu(k,692) * lu(k,1313)
4685 114070872 : lu(k,1323) = lu(k,1323) - lu(k,693) * lu(k,1313)
4686 114070872 : lu(k,1324) = lu(k,1324) - lu(k,694) * lu(k,1313)
4687 114070872 : lu(k,1325) = lu(k,1325) - lu(k,695) * lu(k,1313)
4688 114070872 : lu(k,1327) = lu(k,1327) - lu(k,696) * lu(k,1313)
4689 114070872 : lu(k,1328) = lu(k,1328) - lu(k,697) * lu(k,1313)
4690 114070872 : lu(k,1329) = lu(k,1329) - lu(k,698) * lu(k,1313)
4691 114070872 : lu(k,1331) = lu(k,1331) - lu(k,699) * lu(k,1313)
4692 114070872 : lu(k,1333) = lu(k,1333) - lu(k,700) * lu(k,1313)
4693 114070872 : lu(k,1334) = lu(k,1334) - lu(k,701) * lu(k,1313)
4694 114070872 : lu(k,1335) = lu(k,1335) - lu(k,702) * lu(k,1313)
4695 114070872 : lu(k,1336) = lu(k,1336) - lu(k,703) * lu(k,1313)
4696 114070872 : lu(k,1337) = lu(k,1337) - lu(k,704) * lu(k,1313)
4697 114070872 : lu(k,1338) = lu(k,1338) - lu(k,705) * lu(k,1313)
4698 114070872 : lu(k,1342) = lu(k,1342) - lu(k,706) * lu(k,1313)
4699 114070872 : lu(k,1344) = lu(k,1344) - lu(k,707) * lu(k,1313)
4700 114070872 : lu(k,1514) = lu(k,1514) - lu(k,692) * lu(k,1510)
4701 114070872 : lu(k,1521) = lu(k,1521) - lu(k,693) * lu(k,1510)
4702 114070872 : lu(k,1522) = lu(k,1522) - lu(k,694) * lu(k,1510)
4703 114070872 : lu(k,1523) = lu(k,1523) - lu(k,695) * lu(k,1510)
4704 114070872 : lu(k,1525) = lu(k,1525) - lu(k,696) * lu(k,1510)
4705 114070872 : lu(k,1526) = lu(k,1526) - lu(k,697) * lu(k,1510)
4706 114070872 : lu(k,1527) = lu(k,1527) - lu(k,698) * lu(k,1510)
4707 114070872 : lu(k,1529) = lu(k,1529) - lu(k,699) * lu(k,1510)
4708 114070872 : lu(k,1531) = lu(k,1531) - lu(k,700) * lu(k,1510)
4709 114070872 : lu(k,1532) = lu(k,1532) - lu(k,701) * lu(k,1510)
4710 114070872 : lu(k,1533) = lu(k,1533) - lu(k,702) * lu(k,1510)
4711 114070872 : lu(k,1534) = lu(k,1534) - lu(k,703) * lu(k,1510)
4712 114070872 : lu(k,1535) = lu(k,1535) - lu(k,704) * lu(k,1510)
4713 114070872 : lu(k,1536) = lu(k,1536) - lu(k,705) * lu(k,1510)
4714 114070872 : lu(k,1540) = lu(k,1540) - lu(k,706) * lu(k,1510)
4715 114070872 : lu(k,1542) = lu(k,1542) - lu(k,707) * lu(k,1510)
4716 114070872 : lu(k,1595) = lu(k,1595) - lu(k,692) * lu(k,1591)
4717 114070872 : lu(k,1602) = lu(k,1602) - lu(k,693) * lu(k,1591)
4718 114070872 : lu(k,1603) = lu(k,1603) - lu(k,694) * lu(k,1591)
4719 114070872 : lu(k,1604) = lu(k,1604) - lu(k,695) * lu(k,1591)
4720 114070872 : lu(k,1606) = lu(k,1606) - lu(k,696) * lu(k,1591)
4721 114070872 : lu(k,1607) = lu(k,1607) - lu(k,697) * lu(k,1591)
4722 114070872 : lu(k,1608) = lu(k,1608) - lu(k,698) * lu(k,1591)
4723 114070872 : lu(k,1610) = lu(k,1610) - lu(k,699) * lu(k,1591)
4724 114070872 : lu(k,1612) = lu(k,1612) - lu(k,700) * lu(k,1591)
4725 114070872 : lu(k,1613) = lu(k,1613) - lu(k,701) * lu(k,1591)
4726 114070872 : lu(k,1614) = lu(k,1614) - lu(k,702) * lu(k,1591)
4727 114070872 : lu(k,1615) = lu(k,1615) - lu(k,703) * lu(k,1591)
4728 114070872 : lu(k,1616) = lu(k,1616) - lu(k,704) * lu(k,1591)
4729 114070872 : lu(k,1617) = lu(k,1617) - lu(k,705) * lu(k,1591)
4730 114070872 : lu(k,1621) = lu(k,1621) - lu(k,706) * lu(k,1591)
4731 114070872 : lu(k,1623) = lu(k,1623) - lu(k,707) * lu(k,1591)
4732 114070872 : lu(k,1638) = lu(k,1638) - lu(k,692) * lu(k,1635)
4733 114070872 : lu(k,1645) = lu(k,1645) - lu(k,693) * lu(k,1635)
4734 114070872 : lu(k,1646) = lu(k,1646) - lu(k,694) * lu(k,1635)
4735 114070872 : lu(k,1647) = lu(k,1647) - lu(k,695) * lu(k,1635)
4736 114070872 : lu(k,1649) = lu(k,1649) - lu(k,696) * lu(k,1635)
4737 114070872 : lu(k,1650) = lu(k,1650) - lu(k,697) * lu(k,1635)
4738 114070872 : lu(k,1651) = lu(k,1651) - lu(k,698) * lu(k,1635)
4739 114070872 : lu(k,1653) = lu(k,1653) - lu(k,699) * lu(k,1635)
4740 114070872 : lu(k,1655) = lu(k,1655) - lu(k,700) * lu(k,1635)
4741 114070872 : lu(k,1656) = lu(k,1656) - lu(k,701) * lu(k,1635)
4742 114070872 : lu(k,1657) = lu(k,1657) - lu(k,702) * lu(k,1635)
4743 114070872 : lu(k,1658) = lu(k,1658) - lu(k,703) * lu(k,1635)
4744 114070872 : lu(k,1659) = lu(k,1659) - lu(k,704) * lu(k,1635)
4745 114070872 : lu(k,1660) = lu(k,1660) - lu(k,705) * lu(k,1635)
4746 114070872 : lu(k,1664) = lu(k,1664) - lu(k,706) * lu(k,1635)
4747 114070872 : lu(k,1666) = lu(k,1666) - lu(k,707) * lu(k,1635)
4748 114070872 : lu(k,1681) = lu(k,1681) - lu(k,692) * lu(k,1678)
4749 114070872 : lu(k,1688) = lu(k,1688) - lu(k,693) * lu(k,1678)
4750 114070872 : lu(k,1689) = lu(k,1689) - lu(k,694) * lu(k,1678)
4751 114070872 : lu(k,1690) = lu(k,1690) - lu(k,695) * lu(k,1678)
4752 114070872 : lu(k,1692) = lu(k,1692) - lu(k,696) * lu(k,1678)
4753 114070872 : lu(k,1693) = lu(k,1693) - lu(k,697) * lu(k,1678)
4754 114070872 : lu(k,1694) = lu(k,1694) - lu(k,698) * lu(k,1678)
4755 114070872 : lu(k,1696) = lu(k,1696) - lu(k,699) * lu(k,1678)
4756 114070872 : lu(k,1698) = lu(k,1698) - lu(k,700) * lu(k,1678)
4757 114070872 : lu(k,1699) = lu(k,1699) - lu(k,701) * lu(k,1678)
4758 114070872 : lu(k,1700) = lu(k,1700) - lu(k,702) * lu(k,1678)
4759 114070872 : lu(k,1701) = lu(k,1701) - lu(k,703) * lu(k,1678)
4760 114070872 : lu(k,1702) = lu(k,1702) - lu(k,704) * lu(k,1678)
4761 114070872 : lu(k,1703) = lu(k,1703) - lu(k,705) * lu(k,1678)
4762 114070872 : lu(k,1707) = lu(k,1707) - lu(k,706) * lu(k,1678)
4763 114070872 : lu(k,1709) = lu(k,1709) - lu(k,707) * lu(k,1678)
4764 114070872 : lu(k,1722) = lu(k,1722) - lu(k,692) * lu(k,1718)
4765 114070872 : lu(k,1728) = lu(k,1728) - lu(k,693) * lu(k,1718)
4766 114070872 : lu(k,1729) = lu(k,1729) - lu(k,694) * lu(k,1718)
4767 114070872 : lu(k,1730) = lu(k,1730) - lu(k,695) * lu(k,1718)
4768 114070872 : lu(k,1732) = lu(k,1732) - lu(k,696) * lu(k,1718)
4769 114070872 : lu(k,1733) = lu(k,1733) - lu(k,697) * lu(k,1718)
4770 114070872 : lu(k,1734) = lu(k,1734) - lu(k,698) * lu(k,1718)
4771 114070872 : lu(k,1736) = lu(k,1736) - lu(k,699) * lu(k,1718)
4772 114070872 : lu(k,1738) = lu(k,1738) - lu(k,700) * lu(k,1718)
4773 114070872 : lu(k,1739) = lu(k,1739) - lu(k,701) * lu(k,1718)
4774 114070872 : lu(k,1740) = lu(k,1740) - lu(k,702) * lu(k,1718)
4775 114070872 : lu(k,1741) = lu(k,1741) - lu(k,703) * lu(k,1718)
4776 114070872 : lu(k,1742) = lu(k,1742) - lu(k,704) * lu(k,1718)
4777 114070872 : lu(k,1743) = lu(k,1743) - lu(k,705) * lu(k,1718)
4778 114070872 : lu(k,1747) = lu(k,1747) - lu(k,706) * lu(k,1718)
4779 114070872 : lu(k,1749) = lu(k,1749) - lu(k,707) * lu(k,1718)
4780 114070872 : lu(k,1805) = lu(k,1805) - lu(k,692) * lu(k,1800)
4781 114070872 : lu(k,1812) = lu(k,1812) - lu(k,693) * lu(k,1800)
4782 114070872 : lu(k,1813) = lu(k,1813) - lu(k,694) * lu(k,1800)
4783 114070872 : lu(k,1814) = lu(k,1814) - lu(k,695) * lu(k,1800)
4784 114070872 : lu(k,1816) = lu(k,1816) - lu(k,696) * lu(k,1800)
4785 114070872 : lu(k,1817) = lu(k,1817) - lu(k,697) * lu(k,1800)
4786 114070872 : lu(k,1818) = lu(k,1818) - lu(k,698) * lu(k,1800)
4787 114070872 : lu(k,1820) = lu(k,1820) - lu(k,699) * lu(k,1800)
4788 114070872 : lu(k,1822) = lu(k,1822) - lu(k,700) * lu(k,1800)
4789 114070872 : lu(k,1823) = lu(k,1823) - lu(k,701) * lu(k,1800)
4790 114070872 : lu(k,1824) = lu(k,1824) - lu(k,702) * lu(k,1800)
4791 114070872 : lu(k,1825) = lu(k,1825) - lu(k,703) * lu(k,1800)
4792 114070872 : lu(k,1826) = lu(k,1826) - lu(k,704) * lu(k,1800)
4793 114070872 : lu(k,1827) = lu(k,1827) - lu(k,705) * lu(k,1800)
4794 114070872 : lu(k,1831) = lu(k,1831) - lu(k,706) * lu(k,1800)
4795 114070872 : lu(k,1833) = lu(k,1833) - lu(k,707) * lu(k,1800)
4796 114070872 : lu(k,1957) = lu(k,1957) - lu(k,692) * lu(k,1952)
4797 114070872 : lu(k,1964) = lu(k,1964) - lu(k,693) * lu(k,1952)
4798 114070872 : lu(k,1965) = lu(k,1965) - lu(k,694) * lu(k,1952)
4799 114070872 : lu(k,1966) = lu(k,1966) - lu(k,695) * lu(k,1952)
4800 114070872 : lu(k,1968) = lu(k,1968) - lu(k,696) * lu(k,1952)
4801 114070872 : lu(k,1969) = lu(k,1969) - lu(k,697) * lu(k,1952)
4802 114070872 : lu(k,1970) = lu(k,1970) - lu(k,698) * lu(k,1952)
4803 114070872 : lu(k,1972) = - lu(k,699) * lu(k,1952)
4804 114070872 : lu(k,1974) = lu(k,1974) - lu(k,700) * lu(k,1952)
4805 114070872 : lu(k,1975) = lu(k,1975) - lu(k,701) * lu(k,1952)
4806 114070872 : lu(k,1976) = lu(k,1976) - lu(k,702) * lu(k,1952)
4807 114070872 : lu(k,1977) = lu(k,1977) - lu(k,703) * lu(k,1952)
4808 114070872 : lu(k,1978) = lu(k,1978) - lu(k,704) * lu(k,1952)
4809 114070872 : lu(k,1979) = lu(k,1979) - lu(k,705) * lu(k,1952)
4810 114070872 : lu(k,1983) = lu(k,1983) - lu(k,706) * lu(k,1952)
4811 114070872 : lu(k,1985) = lu(k,1985) - lu(k,707) * lu(k,1952)
4812 114070872 : lu(k,2062) = lu(k,2062) - lu(k,692) * lu(k,2057)
4813 114070872 : lu(k,2069) = lu(k,2069) - lu(k,693) * lu(k,2057)
4814 114070872 : lu(k,2070) = lu(k,2070) - lu(k,694) * lu(k,2057)
4815 114070872 : lu(k,2071) = lu(k,2071) - lu(k,695) * lu(k,2057)
4816 114070872 : lu(k,2073) = lu(k,2073) - lu(k,696) * lu(k,2057)
4817 114070872 : lu(k,2074) = lu(k,2074) - lu(k,697) * lu(k,2057)
4818 114070872 : lu(k,2075) = lu(k,2075) - lu(k,698) * lu(k,2057)
4819 114070872 : lu(k,2077) = lu(k,2077) - lu(k,699) * lu(k,2057)
4820 114070872 : lu(k,2079) = lu(k,2079) - lu(k,700) * lu(k,2057)
4821 114070872 : lu(k,2080) = lu(k,2080) - lu(k,701) * lu(k,2057)
4822 114070872 : lu(k,2081) = lu(k,2081) - lu(k,702) * lu(k,2057)
4823 114070872 : lu(k,2082) = lu(k,2082) - lu(k,703) * lu(k,2057)
4824 114070872 : lu(k,2083) = lu(k,2083) - lu(k,704) * lu(k,2057)
4825 114070872 : lu(k,2084) = lu(k,2084) - lu(k,705) * lu(k,2057)
4826 114070872 : lu(k,2088) = lu(k,2088) - lu(k,706) * lu(k,2057)
4827 114070872 : lu(k,2090) = lu(k,2090) - lu(k,707) * lu(k,2057)
4828 114070872 : lu(k,715) = 1._r8 / lu(k,715)
4829 114070872 : lu(k,716) = lu(k,716) * lu(k,715)
4830 114070872 : lu(k,717) = lu(k,717) * lu(k,715)
4831 114070872 : lu(k,718) = lu(k,718) * lu(k,715)
4832 114070872 : lu(k,719) = lu(k,719) * lu(k,715)
4833 114070872 : lu(k,720) = lu(k,720) * lu(k,715)
4834 114070872 : lu(k,721) = lu(k,721) * lu(k,715)
4835 114070872 : lu(k,722) = lu(k,722) * lu(k,715)
4836 114070872 : lu(k,723) = lu(k,723) * lu(k,715)
4837 114070872 : lu(k,724) = lu(k,724) * lu(k,715)
4838 114070872 : lu(k,725) = lu(k,725) * lu(k,715)
4839 114070872 : lu(k,726) = lu(k,726) * lu(k,715)
4840 114070872 : lu(k,727) = lu(k,727) * lu(k,715)
4841 114070872 : lu(k,728) = lu(k,728) * lu(k,715)
4842 114070872 : lu(k,729) = lu(k,729) * lu(k,715)
4843 114070872 : lu(k,730) = lu(k,730) * lu(k,715)
4844 114070872 : lu(k,731) = lu(k,731) * lu(k,715)
4845 114070872 : lu(k,732) = lu(k,732) * lu(k,715)
4846 114070872 : lu(k,738) = lu(k,738) - lu(k,716) * lu(k,737)
4847 114070872 : lu(k,739) = lu(k,739) - lu(k,717) * lu(k,737)
4848 114070872 : lu(k,740) = lu(k,740) - lu(k,718) * lu(k,737)
4849 114070872 : lu(k,741) = lu(k,741) - lu(k,719) * lu(k,737)
4850 114070872 : lu(k,743) = lu(k,743) - lu(k,720) * lu(k,737)
4851 114070872 : lu(k,744) = lu(k,744) - lu(k,721) * lu(k,737)
4852 114070872 : lu(k,745) = lu(k,745) - lu(k,722) * lu(k,737)
4853 114070872 : lu(k,746) = lu(k,746) - lu(k,723) * lu(k,737)
4854 114070872 : lu(k,747) = lu(k,747) - lu(k,724) * lu(k,737)
4855 114070872 : lu(k,748) = lu(k,748) - lu(k,725) * lu(k,737)
4856 114070872 : lu(k,749) = lu(k,749) - lu(k,726) * lu(k,737)
4857 114070872 : lu(k,750) = lu(k,750) - lu(k,727) * lu(k,737)
4858 114070872 : lu(k,751) = lu(k,751) - lu(k,728) * lu(k,737)
4859 114070872 : lu(k,754) = lu(k,754) - lu(k,729) * lu(k,737)
4860 114070872 : lu(k,755) = lu(k,755) - lu(k,730) * lu(k,737)
4861 114070872 : lu(k,756) = lu(k,756) - lu(k,731) * lu(k,737)
4862 114070872 : lu(k,757) = lu(k,757) - lu(k,732) * lu(k,737)
4863 114070872 : lu(k,786) = lu(k,786) - lu(k,716) * lu(k,785)
4864 114070872 : lu(k,787) = lu(k,787) - lu(k,717) * lu(k,785)
4865 114070872 : lu(k,788) = lu(k,788) - lu(k,718) * lu(k,785)
4866 114070872 : lu(k,789) = lu(k,789) - lu(k,719) * lu(k,785)
4867 114070872 : lu(k,791) = lu(k,791) - lu(k,720) * lu(k,785)
4868 114070872 : lu(k,793) = lu(k,793) - lu(k,721) * lu(k,785)
4869 114070872 : lu(k,794) = lu(k,794) - lu(k,722) * lu(k,785)
4870 114070872 : lu(k,795) = lu(k,795) - lu(k,723) * lu(k,785)
4871 114070872 : lu(k,796) = lu(k,796) - lu(k,724) * lu(k,785)
4872 114070872 : lu(k,797) = lu(k,797) - lu(k,725) * lu(k,785)
4873 114070872 : lu(k,800) = lu(k,800) - lu(k,726) * lu(k,785)
4874 114070872 : lu(k,801) = lu(k,801) - lu(k,727) * lu(k,785)
4875 114070872 : lu(k,802) = lu(k,802) - lu(k,728) * lu(k,785)
4876 114070872 : lu(k,805) = lu(k,805) - lu(k,729) * lu(k,785)
4877 114070872 : lu(k,806) = lu(k,806) - lu(k,730) * lu(k,785)
4878 114070872 : lu(k,807) = lu(k,807) - lu(k,731) * lu(k,785)
4879 114070872 : lu(k,808) = lu(k,808) - lu(k,732) * lu(k,785)
4880 114070872 : lu(k,898) = lu(k,898) - lu(k,716) * lu(k,897)
4881 114070872 : lu(k,899) = lu(k,899) - lu(k,717) * lu(k,897)
4882 114070872 : lu(k,900) = lu(k,900) - lu(k,718) * lu(k,897)
4883 114070872 : lu(k,901) = lu(k,901) - lu(k,719) * lu(k,897)
4884 114070872 : lu(k,903) = lu(k,903) - lu(k,720) * lu(k,897)
4885 114070872 : lu(k,905) = lu(k,905) - lu(k,721) * lu(k,897)
4886 114070872 : lu(k,907) = lu(k,907) - lu(k,722) * lu(k,897)
4887 114070872 : lu(k,908) = lu(k,908) - lu(k,723) * lu(k,897)
4888 114070872 : lu(k,909) = lu(k,909) - lu(k,724) * lu(k,897)
4889 114070872 : lu(k,910) = lu(k,910) - lu(k,725) * lu(k,897)
4890 114070872 : lu(k,913) = lu(k,913) - lu(k,726) * lu(k,897)
4891 114070872 : lu(k,914) = lu(k,914) - lu(k,727) * lu(k,897)
4892 114070872 : lu(k,915) = lu(k,915) - lu(k,728) * lu(k,897)
4893 114070872 : lu(k,918) = lu(k,918) - lu(k,729) * lu(k,897)
4894 114070872 : lu(k,919) = lu(k,919) - lu(k,730) * lu(k,897)
4895 114070872 : lu(k,920) = lu(k,920) - lu(k,731) * lu(k,897)
4896 114070872 : lu(k,921) = lu(k,921) - lu(k,732) * lu(k,897)
4897 114070872 : lu(k,981) = lu(k,981) - lu(k,716) * lu(k,980)
4898 114070872 : lu(k,982) = lu(k,982) - lu(k,717) * lu(k,980)
4899 114070872 : lu(k,983) = lu(k,983) - lu(k,718) * lu(k,980)
4900 114070872 : lu(k,984) = lu(k,984) - lu(k,719) * lu(k,980)
4901 114070872 : lu(k,986) = lu(k,986) - lu(k,720) * lu(k,980)
4902 114070872 : lu(k,989) = lu(k,989) - lu(k,721) * lu(k,980)
4903 114070872 : lu(k,991) = lu(k,991) - lu(k,722) * lu(k,980)
4904 114070872 : lu(k,992) = lu(k,992) - lu(k,723) * lu(k,980)
4905 114070872 : lu(k,993) = lu(k,993) - lu(k,724) * lu(k,980)
4906 114070872 : lu(k,994) = lu(k,994) - lu(k,725) * lu(k,980)
4907 114070872 : lu(k,997) = lu(k,997) - lu(k,726) * lu(k,980)
4908 114070872 : lu(k,998) = lu(k,998) - lu(k,727) * lu(k,980)
4909 114070872 : lu(k,999) = lu(k,999) - lu(k,728) * lu(k,980)
4910 114070872 : lu(k,1002) = lu(k,1002) - lu(k,729) * lu(k,980)
4911 114070872 : lu(k,1003) = lu(k,1003) - lu(k,730) * lu(k,980)
4912 114070872 : lu(k,1004) = lu(k,1004) - lu(k,731) * lu(k,980)
4913 114070872 : lu(k,1005) = lu(k,1005) - lu(k,732) * lu(k,980)
4914 114070872 : lu(k,1094) = lu(k,1094) - lu(k,716) * lu(k,1093)
4915 114070872 : lu(k,1095) = lu(k,1095) - lu(k,717) * lu(k,1093)
4916 114070872 : lu(k,1099) = lu(k,1099) - lu(k,718) * lu(k,1093)
4917 114070872 : lu(k,1101) = lu(k,1101) - lu(k,719) * lu(k,1093)
4918 114070872 : lu(k,1104) = lu(k,1104) - lu(k,720) * lu(k,1093)
4919 114070872 : lu(k,1108) = lu(k,1108) - lu(k,721) * lu(k,1093)
4920 114070872 : lu(k,1110) = lu(k,1110) - lu(k,722) * lu(k,1093)
4921 114070872 : lu(k,1111) = lu(k,1111) - lu(k,723) * lu(k,1093)
4922 114070872 : lu(k,1112) = lu(k,1112) - lu(k,724) * lu(k,1093)
4923 114070872 : lu(k,1113) = lu(k,1113) - lu(k,725) * lu(k,1093)
4924 114070872 : lu(k,1118) = lu(k,1118) - lu(k,726) * lu(k,1093)
4925 114070872 : lu(k,1119) = lu(k,1119) - lu(k,727) * lu(k,1093)
4926 114070872 : lu(k,1120) = lu(k,1120) - lu(k,728) * lu(k,1093)
4927 114070872 : lu(k,1123) = lu(k,1123) - lu(k,729) * lu(k,1093)
4928 114070872 : lu(k,1124) = lu(k,1124) - lu(k,730) * lu(k,1093)
4929 114070872 : lu(k,1125) = lu(k,1125) - lu(k,731) * lu(k,1093)
4930 114070872 : lu(k,1126) = lu(k,1126) - lu(k,732) * lu(k,1093)
4931 114070872 : lu(k,1372) = lu(k,1372) - lu(k,716) * lu(k,1371)
4932 114070872 : lu(k,1373) = lu(k,1373) - lu(k,717) * lu(k,1371)
4933 114070872 : lu(k,1377) = lu(k,1377) - lu(k,718) * lu(k,1371)
4934 114070872 : lu(k,1379) = lu(k,1379) - lu(k,719) * lu(k,1371)
4935 114070872 : lu(k,1382) = lu(k,1382) - lu(k,720) * lu(k,1371)
4936 114070872 : lu(k,1386) = lu(k,1386) - lu(k,721) * lu(k,1371)
4937 114070872 : lu(k,1388) = lu(k,1388) - lu(k,722) * lu(k,1371)
4938 114070872 : lu(k,1389) = lu(k,1389) - lu(k,723) * lu(k,1371)
4939 114070872 : lu(k,1390) = lu(k,1390) - lu(k,724) * lu(k,1371)
4940 114070872 : lu(k,1391) = lu(k,1391) - lu(k,725) * lu(k,1371)
4941 114070872 : lu(k,1396) = lu(k,1396) - lu(k,726) * lu(k,1371)
4942 114070872 : lu(k,1397) = lu(k,1397) - lu(k,727) * lu(k,1371)
4943 114070872 : lu(k,1398) = lu(k,1398) - lu(k,728) * lu(k,1371)
4944 114070872 : lu(k,1401) = lu(k,1401) - lu(k,729) * lu(k,1371)
4945 114070872 : lu(k,1402) = lu(k,1402) - lu(k,730) * lu(k,1371)
4946 114070872 : lu(k,1403) = lu(k,1403) - lu(k,731) * lu(k,1371)
4947 114070872 : lu(k,1404) = lu(k,1404) - lu(k,732) * lu(k,1371)
4948 114070872 : lu(k,1422) = lu(k,1422) - lu(k,716) * lu(k,1421)
4949 114070872 : lu(k,1423) = lu(k,1423) - lu(k,717) * lu(k,1421)
4950 114070872 : lu(k,1426) = lu(k,1426) - lu(k,718) * lu(k,1421)
4951 114070872 : lu(k,1428) = lu(k,1428) - lu(k,719) * lu(k,1421)
4952 114070872 : lu(k,1431) = lu(k,1431) - lu(k,720) * lu(k,1421)
4953 114070872 : lu(k,1435) = lu(k,1435) - lu(k,721) * lu(k,1421)
4954 114070872 : lu(k,1437) = lu(k,1437) - lu(k,722) * lu(k,1421)
4955 114070872 : lu(k,1438) = lu(k,1438) - lu(k,723) * lu(k,1421)
4956 114070872 : lu(k,1439) = lu(k,1439) - lu(k,724) * lu(k,1421)
4957 114070872 : lu(k,1440) = - lu(k,725) * lu(k,1421)
4958 114070872 : lu(k,1445) = - lu(k,726) * lu(k,1421)
4959 114070872 : lu(k,1446) = lu(k,1446) - lu(k,727) * lu(k,1421)
4960 114070872 : lu(k,1447) = lu(k,1447) - lu(k,728) * lu(k,1421)
4961 114070872 : lu(k,1450) = lu(k,1450) - lu(k,729) * lu(k,1421)
4962 114070872 : lu(k,1451) = lu(k,1451) - lu(k,730) * lu(k,1421)
4963 114070872 : lu(k,1452) = - lu(k,731) * lu(k,1421)
4964 114070872 : lu(k,1453) = lu(k,1453) - lu(k,732) * lu(k,1421)
4965 114070872 : lu(k,1469) = lu(k,1469) - lu(k,716) * lu(k,1468)
4966 114070872 : lu(k,1470) = lu(k,1470) - lu(k,717) * lu(k,1468)
4967 114070872 : lu(k,1474) = lu(k,1474) - lu(k,718) * lu(k,1468)
4968 114070872 : lu(k,1476) = lu(k,1476) - lu(k,719) * lu(k,1468)
4969 114070872 : lu(k,1479) = lu(k,1479) - lu(k,720) * lu(k,1468)
4970 114070872 : lu(k,1483) = lu(k,1483) - lu(k,721) * lu(k,1468)
4971 114070872 : lu(k,1485) = lu(k,1485) - lu(k,722) * lu(k,1468)
4972 114070872 : lu(k,1486) = lu(k,1486) - lu(k,723) * lu(k,1468)
4973 114070872 : lu(k,1487) = lu(k,1487) - lu(k,724) * lu(k,1468)
4974 114070872 : lu(k,1488) = lu(k,1488) - lu(k,725) * lu(k,1468)
4975 114070872 : lu(k,1493) = lu(k,1493) - lu(k,726) * lu(k,1468)
4976 114070872 : lu(k,1494) = lu(k,1494) - lu(k,727) * lu(k,1468)
4977 114070872 : lu(k,1495) = lu(k,1495) - lu(k,728) * lu(k,1468)
4978 114070872 : lu(k,1498) = lu(k,1498) - lu(k,729) * lu(k,1468)
4979 114070872 : lu(k,1499) = lu(k,1499) - lu(k,730) * lu(k,1468)
4980 114070872 : lu(k,1500) = lu(k,1500) - lu(k,731) * lu(k,1468)
4981 114070872 : lu(k,1501) = lu(k,1501) - lu(k,732) * lu(k,1468)
4982 114070872 : lu(k,1720) = lu(k,1720) - lu(k,716) * lu(k,1719)
4983 114070872 : lu(k,1721) = lu(k,1721) - lu(k,717) * lu(k,1719)
4984 114070872 : lu(k,1723) = lu(k,1723) - lu(k,718) * lu(k,1719)
4985 114070872 : lu(k,1725) = lu(k,1725) - lu(k,719) * lu(k,1719)
4986 114070872 : lu(k,1727) = lu(k,1727) - lu(k,720) * lu(k,1719)
4987 114070872 : lu(k,1731) = lu(k,1731) - lu(k,721) * lu(k,1719)
4988 114070872 : lu(k,1733) = lu(k,1733) - lu(k,722) * lu(k,1719)
4989 114070872 : lu(k,1734) = lu(k,1734) - lu(k,723) * lu(k,1719)
4990 114070872 : lu(k,1735) = lu(k,1735) - lu(k,724) * lu(k,1719)
4991 114070872 : lu(k,1736) = lu(k,1736) - lu(k,725) * lu(k,1719)
4992 114070872 : lu(k,1741) = lu(k,1741) - lu(k,726) * lu(k,1719)
4993 114070872 : lu(k,1742) = lu(k,1742) - lu(k,727) * lu(k,1719)
4994 114070872 : lu(k,1743) = lu(k,1743) - lu(k,728) * lu(k,1719)
4995 114070872 : lu(k,1746) = lu(k,1746) - lu(k,729) * lu(k,1719)
4996 114070872 : lu(k,1747) = lu(k,1747) - lu(k,730) * lu(k,1719)
4997 114070872 : lu(k,1748) = - lu(k,731) * lu(k,1719)
4998 114070872 : lu(k,1749) = lu(k,1749) - lu(k,732) * lu(k,1719)
4999 114070872 : lu(k,1802) = lu(k,1802) - lu(k,716) * lu(k,1801)
5000 114070872 : lu(k,1803) = lu(k,1803) - lu(k,717) * lu(k,1801)
5001 114070872 : lu(k,1806) = lu(k,1806) - lu(k,718) * lu(k,1801)
5002 114070872 : lu(k,1808) = lu(k,1808) - lu(k,719) * lu(k,1801)
5003 114070872 : lu(k,1811) = lu(k,1811) - lu(k,720) * lu(k,1801)
5004 114070872 : lu(k,1815) = lu(k,1815) - lu(k,721) * lu(k,1801)
5005 114070872 : lu(k,1817) = lu(k,1817) - lu(k,722) * lu(k,1801)
5006 114070872 : lu(k,1818) = lu(k,1818) - lu(k,723) * lu(k,1801)
5007 114070872 : lu(k,1819) = lu(k,1819) - lu(k,724) * lu(k,1801)
5008 114070872 : lu(k,1820) = lu(k,1820) - lu(k,725) * lu(k,1801)
5009 114070872 : lu(k,1825) = lu(k,1825) - lu(k,726) * lu(k,1801)
5010 114070872 : lu(k,1826) = lu(k,1826) - lu(k,727) * lu(k,1801)
5011 114070872 : lu(k,1827) = lu(k,1827) - lu(k,728) * lu(k,1801)
5012 114070872 : lu(k,1830) = lu(k,1830) - lu(k,729) * lu(k,1801)
5013 114070872 : lu(k,1831) = lu(k,1831) - lu(k,730) * lu(k,1801)
5014 114070872 : lu(k,1832) = lu(k,1832) - lu(k,731) * lu(k,1801)
5015 114070872 : lu(k,1833) = lu(k,1833) - lu(k,732) * lu(k,1801)
5016 114070872 : lu(k,1912) = lu(k,1912) - lu(k,716) * lu(k,1911)
5017 114070872 : lu(k,1913) = lu(k,1913) - lu(k,717) * lu(k,1911)
5018 114070872 : lu(k,1916) = lu(k,1916) - lu(k,718) * lu(k,1911)
5019 114070872 : lu(k,1918) = lu(k,1918) - lu(k,719) * lu(k,1911)
5020 114070872 : lu(k,1921) = lu(k,1921) - lu(k,720) * lu(k,1911)
5021 114070872 : lu(k,1925) = lu(k,1925) - lu(k,721) * lu(k,1911)
5022 114070872 : lu(k,1927) = lu(k,1927) - lu(k,722) * lu(k,1911)
5023 114070872 : lu(k,1928) = lu(k,1928) - lu(k,723) * lu(k,1911)
5024 114070872 : lu(k,1929) = lu(k,1929) - lu(k,724) * lu(k,1911)
5025 114070872 : lu(k,1930) = - lu(k,725) * lu(k,1911)
5026 114070872 : lu(k,1935) = lu(k,1935) - lu(k,726) * lu(k,1911)
5027 114070872 : lu(k,1936) = lu(k,1936) - lu(k,727) * lu(k,1911)
5028 114070872 : lu(k,1937) = lu(k,1937) - lu(k,728) * lu(k,1911)
5029 114070872 : lu(k,1940) = lu(k,1940) - lu(k,729) * lu(k,1911)
5030 114070872 : lu(k,1941) = lu(k,1941) - lu(k,730) * lu(k,1911)
5031 114070872 : lu(k,1942) = - lu(k,731) * lu(k,1911)
5032 114070872 : lu(k,1943) = lu(k,1943) - lu(k,732) * lu(k,1911)
5033 114070872 : lu(k,1954) = lu(k,1954) - lu(k,716) * lu(k,1953)
5034 114070872 : lu(k,1955) = lu(k,1955) - lu(k,717) * lu(k,1953)
5035 114070872 : lu(k,1958) = lu(k,1958) - lu(k,718) * lu(k,1953)
5036 114070872 : lu(k,1960) = lu(k,1960) - lu(k,719) * lu(k,1953)
5037 114070872 : lu(k,1963) = lu(k,1963) - lu(k,720) * lu(k,1953)
5038 114070872 : lu(k,1967) = lu(k,1967) - lu(k,721) * lu(k,1953)
5039 114070872 : lu(k,1969) = lu(k,1969) - lu(k,722) * lu(k,1953)
5040 114070872 : lu(k,1970) = lu(k,1970) - lu(k,723) * lu(k,1953)
5041 114070872 : lu(k,1971) = lu(k,1971) - lu(k,724) * lu(k,1953)
5042 114070872 : lu(k,1972) = lu(k,1972) - lu(k,725) * lu(k,1953)
5043 114070872 : lu(k,1977) = lu(k,1977) - lu(k,726) * lu(k,1953)
5044 114070872 : lu(k,1978) = lu(k,1978) - lu(k,727) * lu(k,1953)
5045 114070872 : lu(k,1979) = lu(k,1979) - lu(k,728) * lu(k,1953)
5046 114070872 : lu(k,1982) = lu(k,1982) - lu(k,729) * lu(k,1953)
5047 114070872 : lu(k,1983) = lu(k,1983) - lu(k,730) * lu(k,1953)
5048 114070872 : lu(k,1984) = - lu(k,731) * lu(k,1953)
5049 114070872 : lu(k,1985) = lu(k,1985) - lu(k,732) * lu(k,1953)
5050 114070872 : lu(k,1998) = lu(k,1998) - lu(k,716) * lu(k,1997)
5051 114070872 : lu(k,1999) = lu(k,1999) - lu(k,717) * lu(k,1997)
5052 114070872 : lu(k,2003) = lu(k,2003) - lu(k,718) * lu(k,1997)
5053 114070872 : lu(k,2005) = lu(k,2005) - lu(k,719) * lu(k,1997)
5054 114070872 : lu(k,2008) = lu(k,2008) - lu(k,720) * lu(k,1997)
5055 114070872 : lu(k,2012) = lu(k,2012) - lu(k,721) * lu(k,1997)
5056 114070872 : lu(k,2014) = lu(k,2014) - lu(k,722) * lu(k,1997)
5057 114070872 : lu(k,2015) = lu(k,2015) - lu(k,723) * lu(k,1997)
5058 114070872 : lu(k,2016) = lu(k,2016) - lu(k,724) * lu(k,1997)
5059 114070872 : lu(k,2017) = lu(k,2017) - lu(k,725) * lu(k,1997)
5060 114070872 : lu(k,2022) = lu(k,2022) - lu(k,726) * lu(k,1997)
5061 114070872 : lu(k,2023) = lu(k,2023) - lu(k,727) * lu(k,1997)
5062 114070872 : lu(k,2024) = lu(k,2024) - lu(k,728) * lu(k,1997)
5063 114070872 : lu(k,2027) = lu(k,2027) - lu(k,729) * lu(k,1997)
5064 114070872 : lu(k,2028) = lu(k,2028) - lu(k,730) * lu(k,1997)
5065 114070872 : lu(k,2029) = lu(k,2029) - lu(k,731) * lu(k,1997)
5066 114070872 : lu(k,2030) = lu(k,2030) - lu(k,732) * lu(k,1997)
5067 114070872 : lu(k,2059) = lu(k,2059) - lu(k,716) * lu(k,2058)
5068 114070872 : lu(k,2060) = lu(k,2060) - lu(k,717) * lu(k,2058)
5069 114070872 : lu(k,2063) = lu(k,2063) - lu(k,718) * lu(k,2058)
5070 114070872 : lu(k,2065) = lu(k,2065) - lu(k,719) * lu(k,2058)
5071 114070872 : lu(k,2068) = lu(k,2068) - lu(k,720) * lu(k,2058)
5072 114070872 : lu(k,2072) = lu(k,2072) - lu(k,721) * lu(k,2058)
5073 114070872 : lu(k,2074) = lu(k,2074) - lu(k,722) * lu(k,2058)
5074 114070872 : lu(k,2075) = lu(k,2075) - lu(k,723) * lu(k,2058)
5075 114070872 : lu(k,2076) = lu(k,2076) - lu(k,724) * lu(k,2058)
5076 114070872 : lu(k,2077) = lu(k,2077) - lu(k,725) * lu(k,2058)
5077 114070872 : lu(k,2082) = lu(k,2082) - lu(k,726) * lu(k,2058)
5078 114070872 : lu(k,2083) = lu(k,2083) - lu(k,727) * lu(k,2058)
5079 114070872 : lu(k,2084) = lu(k,2084) - lu(k,728) * lu(k,2058)
5080 114070872 : lu(k,2087) = lu(k,2087) - lu(k,729) * lu(k,2058)
5081 114070872 : lu(k,2088) = lu(k,2088) - lu(k,730) * lu(k,2058)
5082 114070872 : lu(k,2089) = lu(k,2089) - lu(k,731) * lu(k,2058)
5083 117656469 : lu(k,2090) = lu(k,2090) - lu(k,732) * lu(k,2058)
5084 : end do
5085 3585597 : end subroutine lu_fac17
5086 3585597 : subroutine lu_fac18( avec_len, lu )
5087 : use chem_mods, only : nzcnt
5088 : use shr_kind_mod, only : r8 => shr_kind_r8
5089 : implicit none
5090 : !-----------------------------------------------------------------------
5091 : ! ... dummy args
5092 : !-----------------------------------------------------------------------
5093 : integer, intent(in) :: avec_len
5094 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5095 : !-----------------------------------------------------------------------
5096 : ! ... local variables
5097 : !-----------------------------------------------------------------------
5098 : integer :: k
5099 117656469 : do k = 1,avec_len
5100 114070872 : lu(k,738) = 1._r8 / lu(k,738)
5101 114070872 : lu(k,739) = lu(k,739) * lu(k,738)
5102 114070872 : lu(k,740) = lu(k,740) * lu(k,738)
5103 114070872 : lu(k,741) = lu(k,741) * lu(k,738)
5104 114070872 : lu(k,742) = lu(k,742) * lu(k,738)
5105 114070872 : lu(k,743) = lu(k,743) * lu(k,738)
5106 114070872 : lu(k,744) = lu(k,744) * lu(k,738)
5107 114070872 : lu(k,745) = lu(k,745) * lu(k,738)
5108 114070872 : lu(k,746) = lu(k,746) * lu(k,738)
5109 114070872 : lu(k,747) = lu(k,747) * lu(k,738)
5110 114070872 : lu(k,748) = lu(k,748) * lu(k,738)
5111 114070872 : lu(k,749) = lu(k,749) * lu(k,738)
5112 114070872 : lu(k,750) = lu(k,750) * lu(k,738)
5113 114070872 : lu(k,751) = lu(k,751) * lu(k,738)
5114 114070872 : lu(k,752) = lu(k,752) * lu(k,738)
5115 114070872 : lu(k,753) = lu(k,753) * lu(k,738)
5116 114070872 : lu(k,754) = lu(k,754) * lu(k,738)
5117 114070872 : lu(k,755) = lu(k,755) * lu(k,738)
5118 114070872 : lu(k,756) = lu(k,756) * lu(k,738)
5119 114070872 : lu(k,757) = lu(k,757) * lu(k,738)
5120 114070872 : lu(k,787) = lu(k,787) - lu(k,739) * lu(k,786)
5121 114070872 : lu(k,788) = lu(k,788) - lu(k,740) * lu(k,786)
5122 114070872 : lu(k,789) = lu(k,789) - lu(k,741) * lu(k,786)
5123 114070872 : lu(k,790) = lu(k,790) - lu(k,742) * lu(k,786)
5124 114070872 : lu(k,791) = lu(k,791) - lu(k,743) * lu(k,786)
5125 114070872 : lu(k,793) = lu(k,793) - lu(k,744) * lu(k,786)
5126 114070872 : lu(k,794) = lu(k,794) - lu(k,745) * lu(k,786)
5127 114070872 : lu(k,795) = lu(k,795) - lu(k,746) * lu(k,786)
5128 114070872 : lu(k,796) = lu(k,796) - lu(k,747) * lu(k,786)
5129 114070872 : lu(k,797) = lu(k,797) - lu(k,748) * lu(k,786)
5130 114070872 : lu(k,800) = lu(k,800) - lu(k,749) * lu(k,786)
5131 114070872 : lu(k,801) = lu(k,801) - lu(k,750) * lu(k,786)
5132 114070872 : lu(k,802) = lu(k,802) - lu(k,751) * lu(k,786)
5133 114070872 : lu(k,803) = lu(k,803) - lu(k,752) * lu(k,786)
5134 114070872 : lu(k,804) = lu(k,804) - lu(k,753) * lu(k,786)
5135 114070872 : lu(k,805) = lu(k,805) - lu(k,754) * lu(k,786)
5136 114070872 : lu(k,806) = lu(k,806) - lu(k,755) * lu(k,786)
5137 114070872 : lu(k,807) = lu(k,807) - lu(k,756) * lu(k,786)
5138 114070872 : lu(k,808) = lu(k,808) - lu(k,757) * lu(k,786)
5139 114070872 : lu(k,899) = lu(k,899) - lu(k,739) * lu(k,898)
5140 114070872 : lu(k,900) = lu(k,900) - lu(k,740) * lu(k,898)
5141 114070872 : lu(k,901) = lu(k,901) - lu(k,741) * lu(k,898)
5142 114070872 : lu(k,902) = lu(k,902) - lu(k,742) * lu(k,898)
5143 114070872 : lu(k,903) = lu(k,903) - lu(k,743) * lu(k,898)
5144 114070872 : lu(k,905) = lu(k,905) - lu(k,744) * lu(k,898)
5145 114070872 : lu(k,907) = lu(k,907) - lu(k,745) * lu(k,898)
5146 114070872 : lu(k,908) = lu(k,908) - lu(k,746) * lu(k,898)
5147 114070872 : lu(k,909) = lu(k,909) - lu(k,747) * lu(k,898)
5148 114070872 : lu(k,910) = lu(k,910) - lu(k,748) * lu(k,898)
5149 114070872 : lu(k,913) = lu(k,913) - lu(k,749) * lu(k,898)
5150 114070872 : lu(k,914) = lu(k,914) - lu(k,750) * lu(k,898)
5151 114070872 : lu(k,915) = lu(k,915) - lu(k,751) * lu(k,898)
5152 114070872 : lu(k,916) = lu(k,916) - lu(k,752) * lu(k,898)
5153 114070872 : lu(k,917) = lu(k,917) - lu(k,753) * lu(k,898)
5154 114070872 : lu(k,918) = lu(k,918) - lu(k,754) * lu(k,898)
5155 114070872 : lu(k,919) = lu(k,919) - lu(k,755) * lu(k,898)
5156 114070872 : lu(k,920) = lu(k,920) - lu(k,756) * lu(k,898)
5157 114070872 : lu(k,921) = lu(k,921) - lu(k,757) * lu(k,898)
5158 114070872 : lu(k,982) = lu(k,982) - lu(k,739) * lu(k,981)
5159 114070872 : lu(k,983) = lu(k,983) - lu(k,740) * lu(k,981)
5160 114070872 : lu(k,984) = lu(k,984) - lu(k,741) * lu(k,981)
5161 114070872 : lu(k,985) = lu(k,985) - lu(k,742) * lu(k,981)
5162 114070872 : lu(k,986) = lu(k,986) - lu(k,743) * lu(k,981)
5163 114070872 : lu(k,989) = lu(k,989) - lu(k,744) * lu(k,981)
5164 114070872 : lu(k,991) = lu(k,991) - lu(k,745) * lu(k,981)
5165 114070872 : lu(k,992) = lu(k,992) - lu(k,746) * lu(k,981)
5166 114070872 : lu(k,993) = lu(k,993) - lu(k,747) * lu(k,981)
5167 114070872 : lu(k,994) = lu(k,994) - lu(k,748) * lu(k,981)
5168 114070872 : lu(k,997) = lu(k,997) - lu(k,749) * lu(k,981)
5169 114070872 : lu(k,998) = lu(k,998) - lu(k,750) * lu(k,981)
5170 114070872 : lu(k,999) = lu(k,999) - lu(k,751) * lu(k,981)
5171 114070872 : lu(k,1000) = lu(k,1000) - lu(k,752) * lu(k,981)
5172 114070872 : lu(k,1001) = lu(k,1001) - lu(k,753) * lu(k,981)
5173 114070872 : lu(k,1002) = lu(k,1002) - lu(k,754) * lu(k,981)
5174 114070872 : lu(k,1003) = lu(k,1003) - lu(k,755) * lu(k,981)
5175 114070872 : lu(k,1004) = lu(k,1004) - lu(k,756) * lu(k,981)
5176 114070872 : lu(k,1005) = lu(k,1005) - lu(k,757) * lu(k,981)
5177 114070872 : lu(k,1095) = lu(k,1095) - lu(k,739) * lu(k,1094)
5178 114070872 : lu(k,1099) = lu(k,1099) - lu(k,740) * lu(k,1094)
5179 114070872 : lu(k,1101) = lu(k,1101) - lu(k,741) * lu(k,1094)
5180 114070872 : lu(k,1103) = - lu(k,742) * lu(k,1094)
5181 114070872 : lu(k,1104) = lu(k,1104) - lu(k,743) * lu(k,1094)
5182 114070872 : lu(k,1108) = lu(k,1108) - lu(k,744) * lu(k,1094)
5183 114070872 : lu(k,1110) = lu(k,1110) - lu(k,745) * lu(k,1094)
5184 114070872 : lu(k,1111) = lu(k,1111) - lu(k,746) * lu(k,1094)
5185 114070872 : lu(k,1112) = lu(k,1112) - lu(k,747) * lu(k,1094)
5186 114070872 : lu(k,1113) = lu(k,1113) - lu(k,748) * lu(k,1094)
5187 114070872 : lu(k,1118) = lu(k,1118) - lu(k,749) * lu(k,1094)
5188 114070872 : lu(k,1119) = lu(k,1119) - lu(k,750) * lu(k,1094)
5189 114070872 : lu(k,1120) = lu(k,1120) - lu(k,751) * lu(k,1094)
5190 114070872 : lu(k,1121) = lu(k,1121) - lu(k,752) * lu(k,1094)
5191 114070872 : lu(k,1122) = lu(k,1122) - lu(k,753) * lu(k,1094)
5192 114070872 : lu(k,1123) = lu(k,1123) - lu(k,754) * lu(k,1094)
5193 114070872 : lu(k,1124) = lu(k,1124) - lu(k,755) * lu(k,1094)
5194 114070872 : lu(k,1125) = lu(k,1125) - lu(k,756) * lu(k,1094)
5195 114070872 : lu(k,1126) = lu(k,1126) - lu(k,757) * lu(k,1094)
5196 114070872 : lu(k,1373) = lu(k,1373) - lu(k,739) * lu(k,1372)
5197 114070872 : lu(k,1377) = lu(k,1377) - lu(k,740) * lu(k,1372)
5198 114070872 : lu(k,1379) = lu(k,1379) - lu(k,741) * lu(k,1372)
5199 114070872 : lu(k,1381) = lu(k,1381) - lu(k,742) * lu(k,1372)
5200 114070872 : lu(k,1382) = lu(k,1382) - lu(k,743) * lu(k,1372)
5201 114070872 : lu(k,1386) = lu(k,1386) - lu(k,744) * lu(k,1372)
5202 114070872 : lu(k,1388) = lu(k,1388) - lu(k,745) * lu(k,1372)
5203 114070872 : lu(k,1389) = lu(k,1389) - lu(k,746) * lu(k,1372)
5204 114070872 : lu(k,1390) = lu(k,1390) - lu(k,747) * lu(k,1372)
5205 114070872 : lu(k,1391) = lu(k,1391) - lu(k,748) * lu(k,1372)
5206 114070872 : lu(k,1396) = lu(k,1396) - lu(k,749) * lu(k,1372)
5207 114070872 : lu(k,1397) = lu(k,1397) - lu(k,750) * lu(k,1372)
5208 114070872 : lu(k,1398) = lu(k,1398) - lu(k,751) * lu(k,1372)
5209 114070872 : lu(k,1399) = lu(k,1399) - lu(k,752) * lu(k,1372)
5210 114070872 : lu(k,1400) = lu(k,1400) - lu(k,753) * lu(k,1372)
5211 114070872 : lu(k,1401) = lu(k,1401) - lu(k,754) * lu(k,1372)
5212 114070872 : lu(k,1402) = lu(k,1402) - lu(k,755) * lu(k,1372)
5213 114070872 : lu(k,1403) = lu(k,1403) - lu(k,756) * lu(k,1372)
5214 114070872 : lu(k,1404) = lu(k,1404) - lu(k,757) * lu(k,1372)
5215 114070872 : lu(k,1423) = lu(k,1423) - lu(k,739) * lu(k,1422)
5216 114070872 : lu(k,1426) = lu(k,1426) - lu(k,740) * lu(k,1422)
5217 114070872 : lu(k,1428) = lu(k,1428) - lu(k,741) * lu(k,1422)
5218 114070872 : lu(k,1430) = lu(k,1430) - lu(k,742) * lu(k,1422)
5219 114070872 : lu(k,1431) = lu(k,1431) - lu(k,743) * lu(k,1422)
5220 114070872 : lu(k,1435) = lu(k,1435) - lu(k,744) * lu(k,1422)
5221 114070872 : lu(k,1437) = lu(k,1437) - lu(k,745) * lu(k,1422)
5222 114070872 : lu(k,1438) = lu(k,1438) - lu(k,746) * lu(k,1422)
5223 114070872 : lu(k,1439) = lu(k,1439) - lu(k,747) * lu(k,1422)
5224 114070872 : lu(k,1440) = lu(k,1440) - lu(k,748) * lu(k,1422)
5225 114070872 : lu(k,1445) = lu(k,1445) - lu(k,749) * lu(k,1422)
5226 114070872 : lu(k,1446) = lu(k,1446) - lu(k,750) * lu(k,1422)
5227 114070872 : lu(k,1447) = lu(k,1447) - lu(k,751) * lu(k,1422)
5228 114070872 : lu(k,1448) = lu(k,1448) - lu(k,752) * lu(k,1422)
5229 114070872 : lu(k,1449) = lu(k,1449) - lu(k,753) * lu(k,1422)
5230 114070872 : lu(k,1450) = lu(k,1450) - lu(k,754) * lu(k,1422)
5231 114070872 : lu(k,1451) = lu(k,1451) - lu(k,755) * lu(k,1422)
5232 114070872 : lu(k,1452) = lu(k,1452) - lu(k,756) * lu(k,1422)
5233 114070872 : lu(k,1453) = lu(k,1453) - lu(k,757) * lu(k,1422)
5234 114070872 : lu(k,1470) = lu(k,1470) - lu(k,739) * lu(k,1469)
5235 114070872 : lu(k,1474) = lu(k,1474) - lu(k,740) * lu(k,1469)
5236 114070872 : lu(k,1476) = lu(k,1476) - lu(k,741) * lu(k,1469)
5237 114070872 : lu(k,1478) = lu(k,1478) - lu(k,742) * lu(k,1469)
5238 114070872 : lu(k,1479) = lu(k,1479) - lu(k,743) * lu(k,1469)
5239 114070872 : lu(k,1483) = lu(k,1483) - lu(k,744) * lu(k,1469)
5240 114070872 : lu(k,1485) = lu(k,1485) - lu(k,745) * lu(k,1469)
5241 114070872 : lu(k,1486) = lu(k,1486) - lu(k,746) * lu(k,1469)
5242 114070872 : lu(k,1487) = lu(k,1487) - lu(k,747) * lu(k,1469)
5243 114070872 : lu(k,1488) = lu(k,1488) - lu(k,748) * lu(k,1469)
5244 114070872 : lu(k,1493) = lu(k,1493) - lu(k,749) * lu(k,1469)
5245 114070872 : lu(k,1494) = lu(k,1494) - lu(k,750) * lu(k,1469)
5246 114070872 : lu(k,1495) = lu(k,1495) - lu(k,751) * lu(k,1469)
5247 114070872 : lu(k,1496) = lu(k,1496) - lu(k,752) * lu(k,1469)
5248 114070872 : lu(k,1497) = lu(k,1497) - lu(k,753) * lu(k,1469)
5249 114070872 : lu(k,1498) = lu(k,1498) - lu(k,754) * lu(k,1469)
5250 114070872 : lu(k,1499) = lu(k,1499) - lu(k,755) * lu(k,1469)
5251 114070872 : lu(k,1500) = lu(k,1500) - lu(k,756) * lu(k,1469)
5252 114070872 : lu(k,1501) = lu(k,1501) - lu(k,757) * lu(k,1469)
5253 114070872 : lu(k,1512) = lu(k,1512) - lu(k,739) * lu(k,1511)
5254 114070872 : lu(k,1515) = lu(k,1515) - lu(k,740) * lu(k,1511)
5255 114070872 : lu(k,1517) = lu(k,1517) - lu(k,741) * lu(k,1511)
5256 114070872 : lu(k,1519) = lu(k,1519) - lu(k,742) * lu(k,1511)
5257 114070872 : lu(k,1520) = lu(k,1520) - lu(k,743) * lu(k,1511)
5258 114070872 : lu(k,1524) = lu(k,1524) - lu(k,744) * lu(k,1511)
5259 114070872 : lu(k,1526) = lu(k,1526) - lu(k,745) * lu(k,1511)
5260 114070872 : lu(k,1527) = lu(k,1527) - lu(k,746) * lu(k,1511)
5261 114070872 : lu(k,1528) = lu(k,1528) - lu(k,747) * lu(k,1511)
5262 114070872 : lu(k,1529) = lu(k,1529) - lu(k,748) * lu(k,1511)
5263 114070872 : lu(k,1534) = lu(k,1534) - lu(k,749) * lu(k,1511)
5264 114070872 : lu(k,1535) = lu(k,1535) - lu(k,750) * lu(k,1511)
5265 114070872 : lu(k,1536) = lu(k,1536) - lu(k,751) * lu(k,1511)
5266 114070872 : lu(k,1537) = lu(k,1537) - lu(k,752) * lu(k,1511)
5267 114070872 : lu(k,1538) = lu(k,1538) - lu(k,753) * lu(k,1511)
5268 114070872 : lu(k,1539) = - lu(k,754) * lu(k,1511)
5269 114070872 : lu(k,1540) = lu(k,1540) - lu(k,755) * lu(k,1511)
5270 114070872 : lu(k,1541) = lu(k,1541) - lu(k,756) * lu(k,1511)
5271 114070872 : lu(k,1542) = lu(k,1542) - lu(k,757) * lu(k,1511)
5272 114070872 : lu(k,1721) = lu(k,1721) - lu(k,739) * lu(k,1720)
5273 114070872 : lu(k,1723) = lu(k,1723) - lu(k,740) * lu(k,1720)
5274 114070872 : lu(k,1725) = lu(k,1725) - lu(k,741) * lu(k,1720)
5275 114070872 : lu(k,1726) = - lu(k,742) * lu(k,1720)
5276 114070872 : lu(k,1727) = lu(k,1727) - lu(k,743) * lu(k,1720)
5277 114070872 : lu(k,1731) = lu(k,1731) - lu(k,744) * lu(k,1720)
5278 114070872 : lu(k,1733) = lu(k,1733) - lu(k,745) * lu(k,1720)
5279 114070872 : lu(k,1734) = lu(k,1734) - lu(k,746) * lu(k,1720)
5280 114070872 : lu(k,1735) = lu(k,1735) - lu(k,747) * lu(k,1720)
5281 114070872 : lu(k,1736) = lu(k,1736) - lu(k,748) * lu(k,1720)
5282 114070872 : lu(k,1741) = lu(k,1741) - lu(k,749) * lu(k,1720)
5283 114070872 : lu(k,1742) = lu(k,1742) - lu(k,750) * lu(k,1720)
5284 114070872 : lu(k,1743) = lu(k,1743) - lu(k,751) * lu(k,1720)
5285 114070872 : lu(k,1744) = - lu(k,752) * lu(k,1720)
5286 114070872 : lu(k,1745) = - lu(k,753) * lu(k,1720)
5287 114070872 : lu(k,1746) = lu(k,1746) - lu(k,754) * lu(k,1720)
5288 114070872 : lu(k,1747) = lu(k,1747) - lu(k,755) * lu(k,1720)
5289 114070872 : lu(k,1748) = lu(k,1748) - lu(k,756) * lu(k,1720)
5290 114070872 : lu(k,1749) = lu(k,1749) - lu(k,757) * lu(k,1720)
5291 114070872 : lu(k,1754) = lu(k,1754) - lu(k,739) * lu(k,1753)
5292 114070872 : lu(k,1758) = lu(k,1758) - lu(k,740) * lu(k,1753)
5293 114070872 : lu(k,1760) = lu(k,1760) - lu(k,741) * lu(k,1753)
5294 114070872 : lu(k,1762) = lu(k,1762) - lu(k,742) * lu(k,1753)
5295 114070872 : lu(k,1763) = lu(k,1763) - lu(k,743) * lu(k,1753)
5296 114070872 : lu(k,1767) = lu(k,1767) - lu(k,744) * lu(k,1753)
5297 114070872 : lu(k,1769) = lu(k,1769) - lu(k,745) * lu(k,1753)
5298 114070872 : lu(k,1770) = lu(k,1770) - lu(k,746) * lu(k,1753)
5299 114070872 : lu(k,1771) = lu(k,1771) - lu(k,747) * lu(k,1753)
5300 114070872 : lu(k,1772) = lu(k,1772) - lu(k,748) * lu(k,1753)
5301 114070872 : lu(k,1777) = lu(k,1777) - lu(k,749) * lu(k,1753)
5302 114070872 : lu(k,1778) = lu(k,1778) - lu(k,750) * lu(k,1753)
5303 114070872 : lu(k,1779) = lu(k,1779) - lu(k,751) * lu(k,1753)
5304 114070872 : lu(k,1780) = lu(k,1780) - lu(k,752) * lu(k,1753)
5305 114070872 : lu(k,1781) = lu(k,1781) - lu(k,753) * lu(k,1753)
5306 114070872 : lu(k,1782) = lu(k,1782) - lu(k,754) * lu(k,1753)
5307 114070872 : lu(k,1783) = lu(k,1783) - lu(k,755) * lu(k,1753)
5308 114070872 : lu(k,1784) = lu(k,1784) - lu(k,756) * lu(k,1753)
5309 114070872 : lu(k,1785) = lu(k,1785) - lu(k,757) * lu(k,1753)
5310 114070872 : lu(k,1803) = lu(k,1803) - lu(k,739) * lu(k,1802)
5311 114070872 : lu(k,1806) = lu(k,1806) - lu(k,740) * lu(k,1802)
5312 114070872 : lu(k,1808) = lu(k,1808) - lu(k,741) * lu(k,1802)
5313 114070872 : lu(k,1810) = lu(k,1810) - lu(k,742) * lu(k,1802)
5314 114070872 : lu(k,1811) = lu(k,1811) - lu(k,743) * lu(k,1802)
5315 114070872 : lu(k,1815) = lu(k,1815) - lu(k,744) * lu(k,1802)
5316 114070872 : lu(k,1817) = lu(k,1817) - lu(k,745) * lu(k,1802)
5317 114070872 : lu(k,1818) = lu(k,1818) - lu(k,746) * lu(k,1802)
5318 114070872 : lu(k,1819) = lu(k,1819) - lu(k,747) * lu(k,1802)
5319 114070872 : lu(k,1820) = lu(k,1820) - lu(k,748) * lu(k,1802)
5320 114070872 : lu(k,1825) = lu(k,1825) - lu(k,749) * lu(k,1802)
5321 114070872 : lu(k,1826) = lu(k,1826) - lu(k,750) * lu(k,1802)
5322 114070872 : lu(k,1827) = lu(k,1827) - lu(k,751) * lu(k,1802)
5323 114070872 : lu(k,1828) = lu(k,1828) - lu(k,752) * lu(k,1802)
5324 114070872 : lu(k,1829) = lu(k,1829) - lu(k,753) * lu(k,1802)
5325 114070872 : lu(k,1830) = lu(k,1830) - lu(k,754) * lu(k,1802)
5326 114070872 : lu(k,1831) = lu(k,1831) - lu(k,755) * lu(k,1802)
5327 114070872 : lu(k,1832) = lu(k,1832) - lu(k,756) * lu(k,1802)
5328 114070872 : lu(k,1833) = lu(k,1833) - lu(k,757) * lu(k,1802)
5329 114070872 : lu(k,1872) = lu(k,1872) - lu(k,739) * lu(k,1871)
5330 114070872 : lu(k,1875) = lu(k,1875) - lu(k,740) * lu(k,1871)
5331 114070872 : lu(k,1877) = lu(k,1877) - lu(k,741) * lu(k,1871)
5332 114070872 : lu(k,1879) = lu(k,1879) - lu(k,742) * lu(k,1871)
5333 114070872 : lu(k,1880) = lu(k,1880) - lu(k,743) * lu(k,1871)
5334 114070872 : lu(k,1884) = lu(k,1884) - lu(k,744) * lu(k,1871)
5335 114070872 : lu(k,1886) = lu(k,1886) - lu(k,745) * lu(k,1871)
5336 114070872 : lu(k,1887) = lu(k,1887) - lu(k,746) * lu(k,1871)
5337 114070872 : lu(k,1888) = lu(k,1888) - lu(k,747) * lu(k,1871)
5338 114070872 : lu(k,1889) = lu(k,1889) - lu(k,748) * lu(k,1871)
5339 114070872 : lu(k,1894) = lu(k,1894) - lu(k,749) * lu(k,1871)
5340 114070872 : lu(k,1895) = lu(k,1895) - lu(k,750) * lu(k,1871)
5341 114070872 : lu(k,1896) = lu(k,1896) - lu(k,751) * lu(k,1871)
5342 114070872 : lu(k,1897) = lu(k,1897) - lu(k,752) * lu(k,1871)
5343 114070872 : lu(k,1898) = lu(k,1898) - lu(k,753) * lu(k,1871)
5344 114070872 : lu(k,1899) = lu(k,1899) - lu(k,754) * lu(k,1871)
5345 114070872 : lu(k,1900) = lu(k,1900) - lu(k,755) * lu(k,1871)
5346 114070872 : lu(k,1901) = lu(k,1901) - lu(k,756) * lu(k,1871)
5347 114070872 : lu(k,1902) = lu(k,1902) - lu(k,757) * lu(k,1871)
5348 114070872 : lu(k,1913) = lu(k,1913) - lu(k,739) * lu(k,1912)
5349 114070872 : lu(k,1916) = lu(k,1916) - lu(k,740) * lu(k,1912)
5350 114070872 : lu(k,1918) = lu(k,1918) - lu(k,741) * lu(k,1912)
5351 114070872 : lu(k,1920) = lu(k,1920) - lu(k,742) * lu(k,1912)
5352 114070872 : lu(k,1921) = lu(k,1921) - lu(k,743) * lu(k,1912)
5353 114070872 : lu(k,1925) = lu(k,1925) - lu(k,744) * lu(k,1912)
5354 114070872 : lu(k,1927) = lu(k,1927) - lu(k,745) * lu(k,1912)
5355 114070872 : lu(k,1928) = lu(k,1928) - lu(k,746) * lu(k,1912)
5356 114070872 : lu(k,1929) = lu(k,1929) - lu(k,747) * lu(k,1912)
5357 114070872 : lu(k,1930) = lu(k,1930) - lu(k,748) * lu(k,1912)
5358 114070872 : lu(k,1935) = lu(k,1935) - lu(k,749) * lu(k,1912)
5359 114070872 : lu(k,1936) = lu(k,1936) - lu(k,750) * lu(k,1912)
5360 114070872 : lu(k,1937) = lu(k,1937) - lu(k,751) * lu(k,1912)
5361 114070872 : lu(k,1938) = lu(k,1938) - lu(k,752) * lu(k,1912)
5362 114070872 : lu(k,1939) = lu(k,1939) - lu(k,753) * lu(k,1912)
5363 114070872 : lu(k,1940) = lu(k,1940) - lu(k,754) * lu(k,1912)
5364 114070872 : lu(k,1941) = lu(k,1941) - lu(k,755) * lu(k,1912)
5365 114070872 : lu(k,1942) = lu(k,1942) - lu(k,756) * lu(k,1912)
5366 114070872 : lu(k,1943) = lu(k,1943) - lu(k,757) * lu(k,1912)
5367 114070872 : lu(k,1955) = lu(k,1955) - lu(k,739) * lu(k,1954)
5368 114070872 : lu(k,1958) = lu(k,1958) - lu(k,740) * lu(k,1954)
5369 114070872 : lu(k,1960) = lu(k,1960) - lu(k,741) * lu(k,1954)
5370 114070872 : lu(k,1962) = lu(k,1962) - lu(k,742) * lu(k,1954)
5371 114070872 : lu(k,1963) = lu(k,1963) - lu(k,743) * lu(k,1954)
5372 114070872 : lu(k,1967) = lu(k,1967) - lu(k,744) * lu(k,1954)
5373 114070872 : lu(k,1969) = lu(k,1969) - lu(k,745) * lu(k,1954)
5374 114070872 : lu(k,1970) = lu(k,1970) - lu(k,746) * lu(k,1954)
5375 114070872 : lu(k,1971) = lu(k,1971) - lu(k,747) * lu(k,1954)
5376 114070872 : lu(k,1972) = lu(k,1972) - lu(k,748) * lu(k,1954)
5377 114070872 : lu(k,1977) = lu(k,1977) - lu(k,749) * lu(k,1954)
5378 114070872 : lu(k,1978) = lu(k,1978) - lu(k,750) * lu(k,1954)
5379 114070872 : lu(k,1979) = lu(k,1979) - lu(k,751) * lu(k,1954)
5380 114070872 : lu(k,1980) = lu(k,1980) - lu(k,752) * lu(k,1954)
5381 114070872 : lu(k,1981) = lu(k,1981) - lu(k,753) * lu(k,1954)
5382 114070872 : lu(k,1982) = lu(k,1982) - lu(k,754) * lu(k,1954)
5383 114070872 : lu(k,1983) = lu(k,1983) - lu(k,755) * lu(k,1954)
5384 114070872 : lu(k,1984) = lu(k,1984) - lu(k,756) * lu(k,1954)
5385 114070872 : lu(k,1985) = lu(k,1985) - lu(k,757) * lu(k,1954)
5386 114070872 : lu(k,1999) = lu(k,1999) - lu(k,739) * lu(k,1998)
5387 114070872 : lu(k,2003) = lu(k,2003) - lu(k,740) * lu(k,1998)
5388 114070872 : lu(k,2005) = lu(k,2005) - lu(k,741) * lu(k,1998)
5389 114070872 : lu(k,2007) = - lu(k,742) * lu(k,1998)
5390 114070872 : lu(k,2008) = lu(k,2008) - lu(k,743) * lu(k,1998)
5391 114070872 : lu(k,2012) = lu(k,2012) - lu(k,744) * lu(k,1998)
5392 114070872 : lu(k,2014) = lu(k,2014) - lu(k,745) * lu(k,1998)
5393 114070872 : lu(k,2015) = lu(k,2015) - lu(k,746) * lu(k,1998)
5394 114070872 : lu(k,2016) = lu(k,2016) - lu(k,747) * lu(k,1998)
5395 114070872 : lu(k,2017) = lu(k,2017) - lu(k,748) * lu(k,1998)
5396 114070872 : lu(k,2022) = lu(k,2022) - lu(k,749) * lu(k,1998)
5397 114070872 : lu(k,2023) = lu(k,2023) - lu(k,750) * lu(k,1998)
5398 114070872 : lu(k,2024) = lu(k,2024) - lu(k,751) * lu(k,1998)
5399 114070872 : lu(k,2025) = lu(k,2025) - lu(k,752) * lu(k,1998)
5400 114070872 : lu(k,2026) = lu(k,2026) - lu(k,753) * lu(k,1998)
5401 114070872 : lu(k,2027) = lu(k,2027) - lu(k,754) * lu(k,1998)
5402 114070872 : lu(k,2028) = lu(k,2028) - lu(k,755) * lu(k,1998)
5403 114070872 : lu(k,2029) = lu(k,2029) - lu(k,756) * lu(k,1998)
5404 114070872 : lu(k,2030) = lu(k,2030) - lu(k,757) * lu(k,1998)
5405 114070872 : lu(k,2060) = lu(k,2060) - lu(k,739) * lu(k,2059)
5406 114070872 : lu(k,2063) = lu(k,2063) - lu(k,740) * lu(k,2059)
5407 114070872 : lu(k,2065) = lu(k,2065) - lu(k,741) * lu(k,2059)
5408 114070872 : lu(k,2067) = lu(k,2067) - lu(k,742) * lu(k,2059)
5409 114070872 : lu(k,2068) = lu(k,2068) - lu(k,743) * lu(k,2059)
5410 114070872 : lu(k,2072) = lu(k,2072) - lu(k,744) * lu(k,2059)
5411 114070872 : lu(k,2074) = lu(k,2074) - lu(k,745) * lu(k,2059)
5412 114070872 : lu(k,2075) = lu(k,2075) - lu(k,746) * lu(k,2059)
5413 114070872 : lu(k,2076) = lu(k,2076) - lu(k,747) * lu(k,2059)
5414 114070872 : lu(k,2077) = lu(k,2077) - lu(k,748) * lu(k,2059)
5415 114070872 : lu(k,2082) = lu(k,2082) - lu(k,749) * lu(k,2059)
5416 114070872 : lu(k,2083) = lu(k,2083) - lu(k,750) * lu(k,2059)
5417 114070872 : lu(k,2084) = lu(k,2084) - lu(k,751) * lu(k,2059)
5418 114070872 : lu(k,2085) = lu(k,2085) - lu(k,752) * lu(k,2059)
5419 114070872 : lu(k,2086) = lu(k,2086) - lu(k,753) * lu(k,2059)
5420 114070872 : lu(k,2087) = lu(k,2087) - lu(k,754) * lu(k,2059)
5421 114070872 : lu(k,2088) = lu(k,2088) - lu(k,755) * lu(k,2059)
5422 114070872 : lu(k,2089) = lu(k,2089) - lu(k,756) * lu(k,2059)
5423 114070872 : lu(k,2090) = lu(k,2090) - lu(k,757) * lu(k,2059)
5424 114070872 : lu(k,787) = 1._r8 / lu(k,787)
5425 114070872 : lu(k,788) = lu(k,788) * lu(k,787)
5426 114070872 : lu(k,789) = lu(k,789) * lu(k,787)
5427 114070872 : lu(k,790) = lu(k,790) * lu(k,787)
5428 114070872 : lu(k,791) = lu(k,791) * lu(k,787)
5429 114070872 : lu(k,792) = lu(k,792) * lu(k,787)
5430 114070872 : lu(k,793) = lu(k,793) * lu(k,787)
5431 114070872 : lu(k,794) = lu(k,794) * lu(k,787)
5432 114070872 : lu(k,795) = lu(k,795) * lu(k,787)
5433 114070872 : lu(k,796) = lu(k,796) * lu(k,787)
5434 114070872 : lu(k,797) = lu(k,797) * lu(k,787)
5435 114070872 : lu(k,798) = lu(k,798) * lu(k,787)
5436 114070872 : lu(k,799) = lu(k,799) * lu(k,787)
5437 114070872 : lu(k,800) = lu(k,800) * lu(k,787)
5438 114070872 : lu(k,801) = lu(k,801) * lu(k,787)
5439 114070872 : lu(k,802) = lu(k,802) * lu(k,787)
5440 114070872 : lu(k,803) = lu(k,803) * lu(k,787)
5441 114070872 : lu(k,804) = lu(k,804) * lu(k,787)
5442 114070872 : lu(k,805) = lu(k,805) * lu(k,787)
5443 114070872 : lu(k,806) = lu(k,806) * lu(k,787)
5444 114070872 : lu(k,807) = lu(k,807) * lu(k,787)
5445 114070872 : lu(k,808) = lu(k,808) * lu(k,787)
5446 114070872 : lu(k,900) = lu(k,900) - lu(k,788) * lu(k,899)
5447 114070872 : lu(k,901) = lu(k,901) - lu(k,789) * lu(k,899)
5448 114070872 : lu(k,902) = lu(k,902) - lu(k,790) * lu(k,899)
5449 114070872 : lu(k,903) = lu(k,903) - lu(k,791) * lu(k,899)
5450 114070872 : lu(k,904) = lu(k,904) - lu(k,792) * lu(k,899)
5451 114070872 : lu(k,905) = lu(k,905) - lu(k,793) * lu(k,899)
5452 114070872 : lu(k,907) = lu(k,907) - lu(k,794) * lu(k,899)
5453 114070872 : lu(k,908) = lu(k,908) - lu(k,795) * lu(k,899)
5454 114070872 : lu(k,909) = lu(k,909) - lu(k,796) * lu(k,899)
5455 114070872 : lu(k,910) = lu(k,910) - lu(k,797) * lu(k,899)
5456 114070872 : lu(k,911) = - lu(k,798) * lu(k,899)
5457 114070872 : lu(k,912) = - lu(k,799) * lu(k,899)
5458 114070872 : lu(k,913) = lu(k,913) - lu(k,800) * lu(k,899)
5459 114070872 : lu(k,914) = lu(k,914) - lu(k,801) * lu(k,899)
5460 114070872 : lu(k,915) = lu(k,915) - lu(k,802) * lu(k,899)
5461 114070872 : lu(k,916) = lu(k,916) - lu(k,803) * lu(k,899)
5462 114070872 : lu(k,917) = lu(k,917) - lu(k,804) * lu(k,899)
5463 114070872 : lu(k,918) = lu(k,918) - lu(k,805) * lu(k,899)
5464 114070872 : lu(k,919) = lu(k,919) - lu(k,806) * lu(k,899)
5465 114070872 : lu(k,920) = lu(k,920) - lu(k,807) * lu(k,899)
5466 114070872 : lu(k,921) = lu(k,921) - lu(k,808) * lu(k,899)
5467 114070872 : lu(k,983) = lu(k,983) - lu(k,788) * lu(k,982)
5468 114070872 : lu(k,984) = lu(k,984) - lu(k,789) * lu(k,982)
5469 114070872 : lu(k,985) = lu(k,985) - lu(k,790) * lu(k,982)
5470 114070872 : lu(k,986) = lu(k,986) - lu(k,791) * lu(k,982)
5471 114070872 : lu(k,988) = lu(k,988) - lu(k,792) * lu(k,982)
5472 114070872 : lu(k,989) = lu(k,989) - lu(k,793) * lu(k,982)
5473 114070872 : lu(k,991) = lu(k,991) - lu(k,794) * lu(k,982)
5474 114070872 : lu(k,992) = lu(k,992) - lu(k,795) * lu(k,982)
5475 114070872 : lu(k,993) = lu(k,993) - lu(k,796) * lu(k,982)
5476 114070872 : lu(k,994) = lu(k,994) - lu(k,797) * lu(k,982)
5477 114070872 : lu(k,995) = - lu(k,798) * lu(k,982)
5478 114070872 : lu(k,996) = lu(k,996) - lu(k,799) * lu(k,982)
5479 114070872 : lu(k,997) = lu(k,997) - lu(k,800) * lu(k,982)
5480 114070872 : lu(k,998) = lu(k,998) - lu(k,801) * lu(k,982)
5481 114070872 : lu(k,999) = lu(k,999) - lu(k,802) * lu(k,982)
5482 114070872 : lu(k,1000) = lu(k,1000) - lu(k,803) * lu(k,982)
5483 114070872 : lu(k,1001) = lu(k,1001) - lu(k,804) * lu(k,982)
5484 114070872 : lu(k,1002) = lu(k,1002) - lu(k,805) * lu(k,982)
5485 114070872 : lu(k,1003) = lu(k,1003) - lu(k,806) * lu(k,982)
5486 114070872 : lu(k,1004) = lu(k,1004) - lu(k,807) * lu(k,982)
5487 114070872 : lu(k,1005) = lu(k,1005) - lu(k,808) * lu(k,982)
5488 114070872 : lu(k,1056) = lu(k,1056) - lu(k,788) * lu(k,1055)
5489 114070872 : lu(k,1057) = lu(k,1057) - lu(k,789) * lu(k,1055)
5490 114070872 : lu(k,1058) = lu(k,1058) - lu(k,790) * lu(k,1055)
5491 114070872 : lu(k,1059) = - lu(k,791) * lu(k,1055)
5492 114070872 : lu(k,1062) = lu(k,1062) - lu(k,792) * lu(k,1055)
5493 114070872 : lu(k,1063) = lu(k,1063) - lu(k,793) * lu(k,1055)
5494 114070872 : lu(k,1065) = lu(k,1065) - lu(k,794) * lu(k,1055)
5495 114070872 : lu(k,1066) = lu(k,1066) - lu(k,795) * lu(k,1055)
5496 114070872 : lu(k,1067) = - lu(k,796) * lu(k,1055)
5497 114070872 : lu(k,1068) = - lu(k,797) * lu(k,1055)
5498 114070872 : lu(k,1069) = lu(k,1069) - lu(k,798) * lu(k,1055)
5499 114070872 : lu(k,1070) = lu(k,1070) - lu(k,799) * lu(k,1055)
5500 114070872 : lu(k,1073) = - lu(k,800) * lu(k,1055)
5501 114070872 : lu(k,1074) = lu(k,1074) - lu(k,801) * lu(k,1055)
5502 114070872 : lu(k,1075) = lu(k,1075) - lu(k,802) * lu(k,1055)
5503 114070872 : lu(k,1076) = - lu(k,803) * lu(k,1055)
5504 114070872 : lu(k,1077) = lu(k,1077) - lu(k,804) * lu(k,1055)
5505 114070872 : lu(k,1078) = lu(k,1078) - lu(k,805) * lu(k,1055)
5506 114070872 : lu(k,1079) = lu(k,1079) - lu(k,806) * lu(k,1055)
5507 114070872 : lu(k,1080) = - lu(k,807) * lu(k,1055)
5508 114070872 : lu(k,1081) = lu(k,1081) - lu(k,808) * lu(k,1055)
5509 114070872 : lu(k,1099) = lu(k,1099) - lu(k,788) * lu(k,1095)
5510 114070872 : lu(k,1101) = lu(k,1101) - lu(k,789) * lu(k,1095)
5511 114070872 : lu(k,1103) = lu(k,1103) - lu(k,790) * lu(k,1095)
5512 114070872 : lu(k,1104) = lu(k,1104) - lu(k,791) * lu(k,1095)
5513 114070872 : lu(k,1107) = - lu(k,792) * lu(k,1095)
5514 114070872 : lu(k,1108) = lu(k,1108) - lu(k,793) * lu(k,1095)
5515 114070872 : lu(k,1110) = lu(k,1110) - lu(k,794) * lu(k,1095)
5516 114070872 : lu(k,1111) = lu(k,1111) - lu(k,795) * lu(k,1095)
5517 114070872 : lu(k,1112) = lu(k,1112) - lu(k,796) * lu(k,1095)
5518 114070872 : lu(k,1113) = lu(k,1113) - lu(k,797) * lu(k,1095)
5519 114070872 : lu(k,1114) = lu(k,1114) - lu(k,798) * lu(k,1095)
5520 114070872 : lu(k,1115) = - lu(k,799) * lu(k,1095)
5521 114070872 : lu(k,1118) = lu(k,1118) - lu(k,800) * lu(k,1095)
5522 114070872 : lu(k,1119) = lu(k,1119) - lu(k,801) * lu(k,1095)
5523 114070872 : lu(k,1120) = lu(k,1120) - lu(k,802) * lu(k,1095)
5524 114070872 : lu(k,1121) = lu(k,1121) - lu(k,803) * lu(k,1095)
5525 114070872 : lu(k,1122) = lu(k,1122) - lu(k,804) * lu(k,1095)
5526 114070872 : lu(k,1123) = lu(k,1123) - lu(k,805) * lu(k,1095)
5527 114070872 : lu(k,1124) = lu(k,1124) - lu(k,806) * lu(k,1095)
5528 114070872 : lu(k,1125) = lu(k,1125) - lu(k,807) * lu(k,1095)
5529 114070872 : lu(k,1126) = lu(k,1126) - lu(k,808) * lu(k,1095)
5530 114070872 : lu(k,1147) = lu(k,1147) - lu(k,788) * lu(k,1143)
5531 114070872 : lu(k,1149) = lu(k,1149) - lu(k,789) * lu(k,1143)
5532 114070872 : lu(k,1151) = lu(k,1151) - lu(k,790) * lu(k,1143)
5533 114070872 : lu(k,1152) = - lu(k,791) * lu(k,1143)
5534 114070872 : lu(k,1155) = lu(k,1155) - lu(k,792) * lu(k,1143)
5535 114070872 : lu(k,1156) = lu(k,1156) - lu(k,793) * lu(k,1143)
5536 114070872 : lu(k,1158) = lu(k,1158) - lu(k,794) * lu(k,1143)
5537 114070872 : lu(k,1159) = lu(k,1159) - lu(k,795) * lu(k,1143)
5538 114070872 : lu(k,1160) = lu(k,1160) - lu(k,796) * lu(k,1143)
5539 114070872 : lu(k,1161) = lu(k,1161) - lu(k,797) * lu(k,1143)
5540 114070872 : lu(k,1162) = lu(k,1162) - lu(k,798) * lu(k,1143)
5541 114070872 : lu(k,1163) = lu(k,1163) - lu(k,799) * lu(k,1143)
5542 114070872 : lu(k,1166) = lu(k,1166) - lu(k,800) * lu(k,1143)
5543 114070872 : lu(k,1167) = lu(k,1167) - lu(k,801) * lu(k,1143)
5544 114070872 : lu(k,1168) = lu(k,1168) - lu(k,802) * lu(k,1143)
5545 114070872 : lu(k,1169) = - lu(k,803) * lu(k,1143)
5546 114070872 : lu(k,1170) = - lu(k,804) * lu(k,1143)
5547 114070872 : lu(k,1171) = - lu(k,805) * lu(k,1143)
5548 114070872 : lu(k,1172) = lu(k,1172) - lu(k,806) * lu(k,1143)
5549 114070872 : lu(k,1173) = lu(k,1173) - lu(k,807) * lu(k,1143)
5550 114070872 : lu(k,1174) = lu(k,1174) - lu(k,808) * lu(k,1143)
5551 114070872 : lu(k,1275) = lu(k,1275) - lu(k,788) * lu(k,1272)
5552 114070872 : lu(k,1277) = lu(k,1277) - lu(k,789) * lu(k,1272)
5553 114070872 : lu(k,1279) = lu(k,1279) - lu(k,790) * lu(k,1272)
5554 114070872 : lu(k,1280) = - lu(k,791) * lu(k,1272)
5555 114070872 : lu(k,1283) = lu(k,1283) - lu(k,792) * lu(k,1272)
5556 114070872 : lu(k,1284) = lu(k,1284) - lu(k,793) * lu(k,1272)
5557 114070872 : lu(k,1286) = lu(k,1286) - lu(k,794) * lu(k,1272)
5558 114070872 : lu(k,1287) = lu(k,1287) - lu(k,795) * lu(k,1272)
5559 114070872 : lu(k,1288) = - lu(k,796) * lu(k,1272)
5560 114070872 : lu(k,1289) = - lu(k,797) * lu(k,1272)
5561 114070872 : lu(k,1290) = lu(k,1290) - lu(k,798) * lu(k,1272)
5562 114070872 : lu(k,1291) = lu(k,1291) - lu(k,799) * lu(k,1272)
5563 114070872 : lu(k,1294) = - lu(k,800) * lu(k,1272)
5564 114070872 : lu(k,1295) = lu(k,1295) - lu(k,801) * lu(k,1272)
5565 114070872 : lu(k,1296) = lu(k,1296) - lu(k,802) * lu(k,1272)
5566 114070872 : lu(k,1297) = lu(k,1297) - lu(k,803) * lu(k,1272)
5567 114070872 : lu(k,1298) = lu(k,1298) - lu(k,804) * lu(k,1272)
5568 114070872 : lu(k,1299) = lu(k,1299) - lu(k,805) * lu(k,1272)
5569 114070872 : lu(k,1300) = lu(k,1300) - lu(k,806) * lu(k,1272)
5570 114070872 : lu(k,1301) = - lu(k,807) * lu(k,1272)
5571 114070872 : lu(k,1302) = lu(k,1302) - lu(k,808) * lu(k,1272)
5572 114070872 : lu(k,1377) = lu(k,1377) - lu(k,788) * lu(k,1373)
5573 114070872 : lu(k,1379) = lu(k,1379) - lu(k,789) * lu(k,1373)
5574 114070872 : lu(k,1381) = lu(k,1381) - lu(k,790) * lu(k,1373)
5575 114070872 : lu(k,1382) = lu(k,1382) - lu(k,791) * lu(k,1373)
5576 114070872 : lu(k,1385) = lu(k,1385) - lu(k,792) * lu(k,1373)
5577 114070872 : lu(k,1386) = lu(k,1386) - lu(k,793) * lu(k,1373)
5578 114070872 : lu(k,1388) = lu(k,1388) - lu(k,794) * lu(k,1373)
5579 114070872 : lu(k,1389) = lu(k,1389) - lu(k,795) * lu(k,1373)
5580 114070872 : lu(k,1390) = lu(k,1390) - lu(k,796) * lu(k,1373)
5581 114070872 : lu(k,1391) = lu(k,1391) - lu(k,797) * lu(k,1373)
5582 114070872 : lu(k,1392) = lu(k,1392) - lu(k,798) * lu(k,1373)
5583 114070872 : lu(k,1393) = lu(k,1393) - lu(k,799) * lu(k,1373)
5584 114070872 : lu(k,1396) = lu(k,1396) - lu(k,800) * lu(k,1373)
5585 114070872 : lu(k,1397) = lu(k,1397) - lu(k,801) * lu(k,1373)
5586 114070872 : lu(k,1398) = lu(k,1398) - lu(k,802) * lu(k,1373)
5587 114070872 : lu(k,1399) = lu(k,1399) - lu(k,803) * lu(k,1373)
5588 114070872 : lu(k,1400) = lu(k,1400) - lu(k,804) * lu(k,1373)
5589 114070872 : lu(k,1401) = lu(k,1401) - lu(k,805) * lu(k,1373)
5590 114070872 : lu(k,1402) = lu(k,1402) - lu(k,806) * lu(k,1373)
5591 114070872 : lu(k,1403) = lu(k,1403) - lu(k,807) * lu(k,1373)
5592 114070872 : lu(k,1404) = lu(k,1404) - lu(k,808) * lu(k,1373)
5593 114070872 : lu(k,1426) = lu(k,1426) - lu(k,788) * lu(k,1423)
5594 114070872 : lu(k,1428) = lu(k,1428) - lu(k,789) * lu(k,1423)
5595 114070872 : lu(k,1430) = lu(k,1430) - lu(k,790) * lu(k,1423)
5596 114070872 : lu(k,1431) = lu(k,1431) - lu(k,791) * lu(k,1423)
5597 114070872 : lu(k,1434) = lu(k,1434) - lu(k,792) * lu(k,1423)
5598 114070872 : lu(k,1435) = lu(k,1435) - lu(k,793) * lu(k,1423)
5599 114070872 : lu(k,1437) = lu(k,1437) - lu(k,794) * lu(k,1423)
5600 114070872 : lu(k,1438) = lu(k,1438) - lu(k,795) * lu(k,1423)
5601 114070872 : lu(k,1439) = lu(k,1439) - lu(k,796) * lu(k,1423)
5602 114070872 : lu(k,1440) = lu(k,1440) - lu(k,797) * lu(k,1423)
5603 114070872 : lu(k,1441) = lu(k,1441) - lu(k,798) * lu(k,1423)
5604 114070872 : lu(k,1442) = lu(k,1442) - lu(k,799) * lu(k,1423)
5605 114070872 : lu(k,1445) = lu(k,1445) - lu(k,800) * lu(k,1423)
5606 114070872 : lu(k,1446) = lu(k,1446) - lu(k,801) * lu(k,1423)
5607 114070872 : lu(k,1447) = lu(k,1447) - lu(k,802) * lu(k,1423)
5608 114070872 : lu(k,1448) = lu(k,1448) - lu(k,803) * lu(k,1423)
5609 114070872 : lu(k,1449) = lu(k,1449) - lu(k,804) * lu(k,1423)
5610 114070872 : lu(k,1450) = lu(k,1450) - lu(k,805) * lu(k,1423)
5611 114070872 : lu(k,1451) = lu(k,1451) - lu(k,806) * lu(k,1423)
5612 114070872 : lu(k,1452) = lu(k,1452) - lu(k,807) * lu(k,1423)
5613 114070872 : lu(k,1453) = lu(k,1453) - lu(k,808) * lu(k,1423)
5614 114070872 : lu(k,1474) = lu(k,1474) - lu(k,788) * lu(k,1470)
5615 114070872 : lu(k,1476) = lu(k,1476) - lu(k,789) * lu(k,1470)
5616 114070872 : lu(k,1478) = lu(k,1478) - lu(k,790) * lu(k,1470)
5617 114070872 : lu(k,1479) = lu(k,1479) - lu(k,791) * lu(k,1470)
5618 114070872 : lu(k,1482) = - lu(k,792) * lu(k,1470)
5619 114070872 : lu(k,1483) = lu(k,1483) - lu(k,793) * lu(k,1470)
5620 114070872 : lu(k,1485) = lu(k,1485) - lu(k,794) * lu(k,1470)
5621 114070872 : lu(k,1486) = lu(k,1486) - lu(k,795) * lu(k,1470)
5622 114070872 : lu(k,1487) = lu(k,1487) - lu(k,796) * lu(k,1470)
5623 114070872 : lu(k,1488) = lu(k,1488) - lu(k,797) * lu(k,1470)
5624 114070872 : lu(k,1489) = lu(k,1489) - lu(k,798) * lu(k,1470)
5625 114070872 : lu(k,1490) = - lu(k,799) * lu(k,1470)
5626 114070872 : lu(k,1493) = lu(k,1493) - lu(k,800) * lu(k,1470)
5627 114070872 : lu(k,1494) = lu(k,1494) - lu(k,801) * lu(k,1470)
5628 114070872 : lu(k,1495) = lu(k,1495) - lu(k,802) * lu(k,1470)
5629 114070872 : lu(k,1496) = lu(k,1496) - lu(k,803) * lu(k,1470)
5630 114070872 : lu(k,1497) = lu(k,1497) - lu(k,804) * lu(k,1470)
5631 114070872 : lu(k,1498) = lu(k,1498) - lu(k,805) * lu(k,1470)
5632 114070872 : lu(k,1499) = lu(k,1499) - lu(k,806) * lu(k,1470)
5633 114070872 : lu(k,1500) = lu(k,1500) - lu(k,807) * lu(k,1470)
5634 114070872 : lu(k,1501) = lu(k,1501) - lu(k,808) * lu(k,1470)
5635 114070872 : lu(k,1515) = lu(k,1515) - lu(k,788) * lu(k,1512)
5636 114070872 : lu(k,1517) = lu(k,1517) - lu(k,789) * lu(k,1512)
5637 114070872 : lu(k,1519) = lu(k,1519) - lu(k,790) * lu(k,1512)
5638 114070872 : lu(k,1520) = lu(k,1520) - lu(k,791) * lu(k,1512)
5639 114070872 : lu(k,1523) = lu(k,1523) - lu(k,792) * lu(k,1512)
5640 114070872 : lu(k,1524) = lu(k,1524) - lu(k,793) * lu(k,1512)
5641 114070872 : lu(k,1526) = lu(k,1526) - lu(k,794) * lu(k,1512)
5642 114070872 : lu(k,1527) = lu(k,1527) - lu(k,795) * lu(k,1512)
5643 114070872 : lu(k,1528) = lu(k,1528) - lu(k,796) * lu(k,1512)
5644 114070872 : lu(k,1529) = lu(k,1529) - lu(k,797) * lu(k,1512)
5645 114070872 : lu(k,1530) = lu(k,1530) - lu(k,798) * lu(k,1512)
5646 114070872 : lu(k,1531) = lu(k,1531) - lu(k,799) * lu(k,1512)
5647 114070872 : lu(k,1534) = lu(k,1534) - lu(k,800) * lu(k,1512)
5648 114070872 : lu(k,1535) = lu(k,1535) - lu(k,801) * lu(k,1512)
5649 114070872 : lu(k,1536) = lu(k,1536) - lu(k,802) * lu(k,1512)
5650 114070872 : lu(k,1537) = lu(k,1537) - lu(k,803) * lu(k,1512)
5651 114070872 : lu(k,1538) = lu(k,1538) - lu(k,804) * lu(k,1512)
5652 114070872 : lu(k,1539) = lu(k,1539) - lu(k,805) * lu(k,1512)
5653 114070872 : lu(k,1540) = lu(k,1540) - lu(k,806) * lu(k,1512)
5654 114070872 : lu(k,1541) = lu(k,1541) - lu(k,807) * lu(k,1512)
5655 114070872 : lu(k,1542) = lu(k,1542) - lu(k,808) * lu(k,1512)
5656 114070872 : lu(k,1596) = lu(k,1596) - lu(k,788) * lu(k,1592)
5657 114070872 : lu(k,1598) = lu(k,1598) - lu(k,789) * lu(k,1592)
5658 114070872 : lu(k,1600) = lu(k,1600) - lu(k,790) * lu(k,1592)
5659 114070872 : lu(k,1601) = - lu(k,791) * lu(k,1592)
5660 114070872 : lu(k,1604) = lu(k,1604) - lu(k,792) * lu(k,1592)
5661 114070872 : lu(k,1605) = lu(k,1605) - lu(k,793) * lu(k,1592)
5662 114070872 : lu(k,1607) = lu(k,1607) - lu(k,794) * lu(k,1592)
5663 114070872 : lu(k,1608) = lu(k,1608) - lu(k,795) * lu(k,1592)
5664 114070872 : lu(k,1609) = lu(k,1609) - lu(k,796) * lu(k,1592)
5665 114070872 : lu(k,1610) = lu(k,1610) - lu(k,797) * lu(k,1592)
5666 114070872 : lu(k,1611) = lu(k,1611) - lu(k,798) * lu(k,1592)
5667 114070872 : lu(k,1612) = lu(k,1612) - lu(k,799) * lu(k,1592)
5668 114070872 : lu(k,1615) = lu(k,1615) - lu(k,800) * lu(k,1592)
5669 114070872 : lu(k,1616) = lu(k,1616) - lu(k,801) * lu(k,1592)
5670 114070872 : lu(k,1617) = lu(k,1617) - lu(k,802) * lu(k,1592)
5671 114070872 : lu(k,1618) = - lu(k,803) * lu(k,1592)
5672 114070872 : lu(k,1619) = lu(k,1619) - lu(k,804) * lu(k,1592)
5673 114070872 : lu(k,1620) = lu(k,1620) - lu(k,805) * lu(k,1592)
5674 114070872 : lu(k,1621) = lu(k,1621) - lu(k,806) * lu(k,1592)
5675 114070872 : lu(k,1622) = lu(k,1622) - lu(k,807) * lu(k,1592)
5676 114070872 : lu(k,1623) = lu(k,1623) - lu(k,808) * lu(k,1592)
5677 114070872 : lu(k,1723) = lu(k,1723) - lu(k,788) * lu(k,1721)
5678 114070872 : lu(k,1725) = lu(k,1725) - lu(k,789) * lu(k,1721)
5679 114070872 : lu(k,1726) = lu(k,1726) - lu(k,790) * lu(k,1721)
5680 114070872 : lu(k,1727) = lu(k,1727) - lu(k,791) * lu(k,1721)
5681 114070872 : lu(k,1730) = lu(k,1730) - lu(k,792) * lu(k,1721)
5682 114070872 : lu(k,1731) = lu(k,1731) - lu(k,793) * lu(k,1721)
5683 114070872 : lu(k,1733) = lu(k,1733) - lu(k,794) * lu(k,1721)
5684 114070872 : lu(k,1734) = lu(k,1734) - lu(k,795) * lu(k,1721)
5685 114070872 : lu(k,1735) = lu(k,1735) - lu(k,796) * lu(k,1721)
5686 114070872 : lu(k,1736) = lu(k,1736) - lu(k,797) * lu(k,1721)
5687 114070872 : lu(k,1737) = - lu(k,798) * lu(k,1721)
5688 114070872 : lu(k,1738) = lu(k,1738) - lu(k,799) * lu(k,1721)
5689 114070872 : lu(k,1741) = lu(k,1741) - lu(k,800) * lu(k,1721)
5690 114070872 : lu(k,1742) = lu(k,1742) - lu(k,801) * lu(k,1721)
5691 114070872 : lu(k,1743) = lu(k,1743) - lu(k,802) * lu(k,1721)
5692 114070872 : lu(k,1744) = lu(k,1744) - lu(k,803) * lu(k,1721)
5693 114070872 : lu(k,1745) = lu(k,1745) - lu(k,804) * lu(k,1721)
5694 114070872 : lu(k,1746) = lu(k,1746) - lu(k,805) * lu(k,1721)
5695 114070872 : lu(k,1747) = lu(k,1747) - lu(k,806) * lu(k,1721)
5696 114070872 : lu(k,1748) = lu(k,1748) - lu(k,807) * lu(k,1721)
5697 114070872 : lu(k,1749) = lu(k,1749) - lu(k,808) * lu(k,1721)
5698 114070872 : lu(k,1758) = lu(k,1758) - lu(k,788) * lu(k,1754)
5699 114070872 : lu(k,1760) = lu(k,1760) - lu(k,789) * lu(k,1754)
5700 114070872 : lu(k,1762) = lu(k,1762) - lu(k,790) * lu(k,1754)
5701 114070872 : lu(k,1763) = lu(k,1763) - lu(k,791) * lu(k,1754)
5702 114070872 : lu(k,1766) = lu(k,1766) - lu(k,792) * lu(k,1754)
5703 114070872 : lu(k,1767) = lu(k,1767) - lu(k,793) * lu(k,1754)
5704 114070872 : lu(k,1769) = lu(k,1769) - lu(k,794) * lu(k,1754)
5705 114070872 : lu(k,1770) = lu(k,1770) - lu(k,795) * lu(k,1754)
5706 114070872 : lu(k,1771) = lu(k,1771) - lu(k,796) * lu(k,1754)
5707 114070872 : lu(k,1772) = lu(k,1772) - lu(k,797) * lu(k,1754)
5708 114070872 : lu(k,1773) = lu(k,1773) - lu(k,798) * lu(k,1754)
5709 114070872 : lu(k,1774) = - lu(k,799) * lu(k,1754)
5710 114070872 : lu(k,1777) = lu(k,1777) - lu(k,800) * lu(k,1754)
5711 114070872 : lu(k,1778) = lu(k,1778) - lu(k,801) * lu(k,1754)
5712 114070872 : lu(k,1779) = lu(k,1779) - lu(k,802) * lu(k,1754)
5713 114070872 : lu(k,1780) = lu(k,1780) - lu(k,803) * lu(k,1754)
5714 114070872 : lu(k,1781) = lu(k,1781) - lu(k,804) * lu(k,1754)
5715 114070872 : lu(k,1782) = lu(k,1782) - lu(k,805) * lu(k,1754)
5716 114070872 : lu(k,1783) = lu(k,1783) - lu(k,806) * lu(k,1754)
5717 114070872 : lu(k,1784) = lu(k,1784) - lu(k,807) * lu(k,1754)
5718 114070872 : lu(k,1785) = lu(k,1785) - lu(k,808) * lu(k,1754)
5719 114070872 : lu(k,1806) = lu(k,1806) - lu(k,788) * lu(k,1803)
5720 114070872 : lu(k,1808) = lu(k,1808) - lu(k,789) * lu(k,1803)
5721 114070872 : lu(k,1810) = lu(k,1810) - lu(k,790) * lu(k,1803)
5722 114070872 : lu(k,1811) = lu(k,1811) - lu(k,791) * lu(k,1803)
5723 114070872 : lu(k,1814) = lu(k,1814) - lu(k,792) * lu(k,1803)
5724 114070872 : lu(k,1815) = lu(k,1815) - lu(k,793) * lu(k,1803)
5725 114070872 : lu(k,1817) = lu(k,1817) - lu(k,794) * lu(k,1803)
5726 114070872 : lu(k,1818) = lu(k,1818) - lu(k,795) * lu(k,1803)
5727 114070872 : lu(k,1819) = lu(k,1819) - lu(k,796) * lu(k,1803)
5728 114070872 : lu(k,1820) = lu(k,1820) - lu(k,797) * lu(k,1803)
5729 114070872 : lu(k,1821) = lu(k,1821) - lu(k,798) * lu(k,1803)
5730 114070872 : lu(k,1822) = lu(k,1822) - lu(k,799) * lu(k,1803)
5731 114070872 : lu(k,1825) = lu(k,1825) - lu(k,800) * lu(k,1803)
5732 114070872 : lu(k,1826) = lu(k,1826) - lu(k,801) * lu(k,1803)
5733 114070872 : lu(k,1827) = lu(k,1827) - lu(k,802) * lu(k,1803)
5734 114070872 : lu(k,1828) = lu(k,1828) - lu(k,803) * lu(k,1803)
5735 114070872 : lu(k,1829) = lu(k,1829) - lu(k,804) * lu(k,1803)
5736 114070872 : lu(k,1830) = lu(k,1830) - lu(k,805) * lu(k,1803)
5737 114070872 : lu(k,1831) = lu(k,1831) - lu(k,806) * lu(k,1803)
5738 114070872 : lu(k,1832) = lu(k,1832) - lu(k,807) * lu(k,1803)
5739 114070872 : lu(k,1833) = lu(k,1833) - lu(k,808) * lu(k,1803)
5740 114070872 : lu(k,1875) = lu(k,1875) - lu(k,788) * lu(k,1872)
5741 114070872 : lu(k,1877) = lu(k,1877) - lu(k,789) * lu(k,1872)
5742 114070872 : lu(k,1879) = lu(k,1879) - lu(k,790) * lu(k,1872)
5743 114070872 : lu(k,1880) = lu(k,1880) - lu(k,791) * lu(k,1872)
5744 114070872 : lu(k,1883) = lu(k,1883) - lu(k,792) * lu(k,1872)
5745 114070872 : lu(k,1884) = lu(k,1884) - lu(k,793) * lu(k,1872)
5746 114070872 : lu(k,1886) = lu(k,1886) - lu(k,794) * lu(k,1872)
5747 114070872 : lu(k,1887) = lu(k,1887) - lu(k,795) * lu(k,1872)
5748 114070872 : lu(k,1888) = lu(k,1888) - lu(k,796) * lu(k,1872)
5749 114070872 : lu(k,1889) = lu(k,1889) - lu(k,797) * lu(k,1872)
5750 114070872 : lu(k,1890) = lu(k,1890) - lu(k,798) * lu(k,1872)
5751 114070872 : lu(k,1891) = lu(k,1891) - lu(k,799) * lu(k,1872)
5752 114070872 : lu(k,1894) = lu(k,1894) - lu(k,800) * lu(k,1872)
5753 114070872 : lu(k,1895) = lu(k,1895) - lu(k,801) * lu(k,1872)
5754 114070872 : lu(k,1896) = lu(k,1896) - lu(k,802) * lu(k,1872)
5755 114070872 : lu(k,1897) = lu(k,1897) - lu(k,803) * lu(k,1872)
5756 114070872 : lu(k,1898) = lu(k,1898) - lu(k,804) * lu(k,1872)
5757 114070872 : lu(k,1899) = lu(k,1899) - lu(k,805) * lu(k,1872)
5758 114070872 : lu(k,1900) = lu(k,1900) - lu(k,806) * lu(k,1872)
5759 114070872 : lu(k,1901) = lu(k,1901) - lu(k,807) * lu(k,1872)
5760 114070872 : lu(k,1902) = lu(k,1902) - lu(k,808) * lu(k,1872)
5761 114070872 : lu(k,1916) = lu(k,1916) - lu(k,788) * lu(k,1913)
5762 114070872 : lu(k,1918) = lu(k,1918) - lu(k,789) * lu(k,1913)
5763 114070872 : lu(k,1920) = lu(k,1920) - lu(k,790) * lu(k,1913)
5764 114070872 : lu(k,1921) = lu(k,1921) - lu(k,791) * lu(k,1913)
5765 114070872 : lu(k,1924) = lu(k,1924) - lu(k,792) * lu(k,1913)
5766 114070872 : lu(k,1925) = lu(k,1925) - lu(k,793) * lu(k,1913)
5767 114070872 : lu(k,1927) = lu(k,1927) - lu(k,794) * lu(k,1913)
5768 114070872 : lu(k,1928) = lu(k,1928) - lu(k,795) * lu(k,1913)
5769 114070872 : lu(k,1929) = lu(k,1929) - lu(k,796) * lu(k,1913)
5770 114070872 : lu(k,1930) = lu(k,1930) - lu(k,797) * lu(k,1913)
5771 114070872 : lu(k,1931) = lu(k,1931) - lu(k,798) * lu(k,1913)
5772 114070872 : lu(k,1932) = lu(k,1932) - lu(k,799) * lu(k,1913)
5773 114070872 : lu(k,1935) = lu(k,1935) - lu(k,800) * lu(k,1913)
5774 114070872 : lu(k,1936) = lu(k,1936) - lu(k,801) * lu(k,1913)
5775 114070872 : lu(k,1937) = lu(k,1937) - lu(k,802) * lu(k,1913)
5776 114070872 : lu(k,1938) = lu(k,1938) - lu(k,803) * lu(k,1913)
5777 114070872 : lu(k,1939) = lu(k,1939) - lu(k,804) * lu(k,1913)
5778 114070872 : lu(k,1940) = lu(k,1940) - lu(k,805) * lu(k,1913)
5779 114070872 : lu(k,1941) = lu(k,1941) - lu(k,806) * lu(k,1913)
5780 114070872 : lu(k,1942) = lu(k,1942) - lu(k,807) * lu(k,1913)
5781 114070872 : lu(k,1943) = lu(k,1943) - lu(k,808) * lu(k,1913)
5782 114070872 : lu(k,1958) = lu(k,1958) - lu(k,788) * lu(k,1955)
5783 114070872 : lu(k,1960) = lu(k,1960) - lu(k,789) * lu(k,1955)
5784 114070872 : lu(k,1962) = lu(k,1962) - lu(k,790) * lu(k,1955)
5785 114070872 : lu(k,1963) = lu(k,1963) - lu(k,791) * lu(k,1955)
5786 114070872 : lu(k,1966) = lu(k,1966) - lu(k,792) * lu(k,1955)
5787 114070872 : lu(k,1967) = lu(k,1967) - lu(k,793) * lu(k,1955)
5788 114070872 : lu(k,1969) = lu(k,1969) - lu(k,794) * lu(k,1955)
5789 114070872 : lu(k,1970) = lu(k,1970) - lu(k,795) * lu(k,1955)
5790 114070872 : lu(k,1971) = lu(k,1971) - lu(k,796) * lu(k,1955)
5791 114070872 : lu(k,1972) = lu(k,1972) - lu(k,797) * lu(k,1955)
5792 114070872 : lu(k,1973) = lu(k,1973) - lu(k,798) * lu(k,1955)
5793 114070872 : lu(k,1974) = lu(k,1974) - lu(k,799) * lu(k,1955)
5794 114070872 : lu(k,1977) = lu(k,1977) - lu(k,800) * lu(k,1955)
5795 114070872 : lu(k,1978) = lu(k,1978) - lu(k,801) * lu(k,1955)
5796 114070872 : lu(k,1979) = lu(k,1979) - lu(k,802) * lu(k,1955)
5797 114070872 : lu(k,1980) = lu(k,1980) - lu(k,803) * lu(k,1955)
5798 114070872 : lu(k,1981) = lu(k,1981) - lu(k,804) * lu(k,1955)
5799 114070872 : lu(k,1982) = lu(k,1982) - lu(k,805) * lu(k,1955)
5800 114070872 : lu(k,1983) = lu(k,1983) - lu(k,806) * lu(k,1955)
5801 114070872 : lu(k,1984) = lu(k,1984) - lu(k,807) * lu(k,1955)
5802 114070872 : lu(k,1985) = lu(k,1985) - lu(k,808) * lu(k,1955)
5803 114070872 : lu(k,2003) = lu(k,2003) - lu(k,788) * lu(k,1999)
5804 114070872 : lu(k,2005) = lu(k,2005) - lu(k,789) * lu(k,1999)
5805 114070872 : lu(k,2007) = lu(k,2007) - lu(k,790) * lu(k,1999)
5806 114070872 : lu(k,2008) = lu(k,2008) - lu(k,791) * lu(k,1999)
5807 114070872 : lu(k,2011) = lu(k,2011) - lu(k,792) * lu(k,1999)
5808 114070872 : lu(k,2012) = lu(k,2012) - lu(k,793) * lu(k,1999)
5809 114070872 : lu(k,2014) = lu(k,2014) - lu(k,794) * lu(k,1999)
5810 114070872 : lu(k,2015) = lu(k,2015) - lu(k,795) * lu(k,1999)
5811 114070872 : lu(k,2016) = lu(k,2016) - lu(k,796) * lu(k,1999)
5812 114070872 : lu(k,2017) = lu(k,2017) - lu(k,797) * lu(k,1999)
5813 114070872 : lu(k,2018) = lu(k,2018) - lu(k,798) * lu(k,1999)
5814 114070872 : lu(k,2019) = lu(k,2019) - lu(k,799) * lu(k,1999)
5815 114070872 : lu(k,2022) = lu(k,2022) - lu(k,800) * lu(k,1999)
5816 114070872 : lu(k,2023) = lu(k,2023) - lu(k,801) * lu(k,1999)
5817 114070872 : lu(k,2024) = lu(k,2024) - lu(k,802) * lu(k,1999)
5818 114070872 : lu(k,2025) = lu(k,2025) - lu(k,803) * lu(k,1999)
5819 114070872 : lu(k,2026) = lu(k,2026) - lu(k,804) * lu(k,1999)
5820 114070872 : lu(k,2027) = lu(k,2027) - lu(k,805) * lu(k,1999)
5821 114070872 : lu(k,2028) = lu(k,2028) - lu(k,806) * lu(k,1999)
5822 114070872 : lu(k,2029) = lu(k,2029) - lu(k,807) * lu(k,1999)
5823 114070872 : lu(k,2030) = lu(k,2030) - lu(k,808) * lu(k,1999)
5824 114070872 : lu(k,2063) = lu(k,2063) - lu(k,788) * lu(k,2060)
5825 114070872 : lu(k,2065) = lu(k,2065) - lu(k,789) * lu(k,2060)
5826 114070872 : lu(k,2067) = lu(k,2067) - lu(k,790) * lu(k,2060)
5827 114070872 : lu(k,2068) = lu(k,2068) - lu(k,791) * lu(k,2060)
5828 114070872 : lu(k,2071) = lu(k,2071) - lu(k,792) * lu(k,2060)
5829 114070872 : lu(k,2072) = lu(k,2072) - lu(k,793) * lu(k,2060)
5830 114070872 : lu(k,2074) = lu(k,2074) - lu(k,794) * lu(k,2060)
5831 114070872 : lu(k,2075) = lu(k,2075) - lu(k,795) * lu(k,2060)
5832 114070872 : lu(k,2076) = lu(k,2076) - lu(k,796) * lu(k,2060)
5833 114070872 : lu(k,2077) = lu(k,2077) - lu(k,797) * lu(k,2060)
5834 114070872 : lu(k,2078) = lu(k,2078) - lu(k,798) * lu(k,2060)
5835 114070872 : lu(k,2079) = lu(k,2079) - lu(k,799) * lu(k,2060)
5836 114070872 : lu(k,2082) = lu(k,2082) - lu(k,800) * lu(k,2060)
5837 114070872 : lu(k,2083) = lu(k,2083) - lu(k,801) * lu(k,2060)
5838 114070872 : lu(k,2084) = lu(k,2084) - lu(k,802) * lu(k,2060)
5839 114070872 : lu(k,2085) = lu(k,2085) - lu(k,803) * lu(k,2060)
5840 114070872 : lu(k,2086) = lu(k,2086) - lu(k,804) * lu(k,2060)
5841 114070872 : lu(k,2087) = lu(k,2087) - lu(k,805) * lu(k,2060)
5842 114070872 : lu(k,2088) = lu(k,2088) - lu(k,806) * lu(k,2060)
5843 114070872 : lu(k,2089) = lu(k,2089) - lu(k,807) * lu(k,2060)
5844 117656469 : lu(k,2090) = lu(k,2090) - lu(k,808) * lu(k,2060)
5845 : end do
5846 3585597 : end subroutine lu_fac18
5847 3585597 : subroutine lu_fac19( avec_len, lu )
5848 : use chem_mods, only : nzcnt
5849 : use shr_kind_mod, only : r8 => shr_kind_r8
5850 : implicit none
5851 : !-----------------------------------------------------------------------
5852 : ! ... dummy args
5853 : !-----------------------------------------------------------------------
5854 : integer, intent(in) :: avec_len
5855 : real(r8), intent(inout) :: lu(veclen,nzcnt)
5856 : !-----------------------------------------------------------------------
5857 : ! ... local variables
5858 : !-----------------------------------------------------------------------
5859 : integer :: k
5860 117656469 : do k = 1,avec_len
5861 114070872 : lu(k,811) = 1._r8 / lu(k,811)
5862 114070872 : lu(k,812) = lu(k,812) * lu(k,811)
5863 114070872 : lu(k,813) = lu(k,813) * lu(k,811)
5864 114070872 : lu(k,814) = lu(k,814) * lu(k,811)
5865 114070872 : lu(k,815) = lu(k,815) * lu(k,811)
5866 114070872 : lu(k,816) = lu(k,816) * lu(k,811)
5867 114070872 : lu(k,817) = lu(k,817) * lu(k,811)
5868 114070872 : lu(k,818) = lu(k,818) * lu(k,811)
5869 114070872 : lu(k,819) = lu(k,819) * lu(k,811)
5870 114070872 : lu(k,820) = lu(k,820) * lu(k,811)
5871 114070872 : lu(k,821) = lu(k,821) * lu(k,811)
5872 114070872 : lu(k,822) = lu(k,822) * lu(k,811)
5873 114070872 : lu(k,823) = lu(k,823) * lu(k,811)
5874 114070872 : lu(k,824) = lu(k,824) * lu(k,811)
5875 114070872 : lu(k,825) = lu(k,825) * lu(k,811)
5876 114070872 : lu(k,826) = lu(k,826) * lu(k,811)
5877 114070872 : lu(k,827) = lu(k,827) * lu(k,811)
5878 114070872 : lu(k,828) = lu(k,828) * lu(k,811)
5879 114070872 : lu(k,829) = lu(k,829) * lu(k,811)
5880 114070872 : lu(k,834) = lu(k,834) - lu(k,812) * lu(k,832)
5881 114070872 : lu(k,836) = lu(k,836) - lu(k,813) * lu(k,832)
5882 114070872 : lu(k,839) = lu(k,839) - lu(k,814) * lu(k,832)
5883 114070872 : lu(k,841) = lu(k,841) - lu(k,815) * lu(k,832)
5884 114070872 : lu(k,842) = lu(k,842) - lu(k,816) * lu(k,832)
5885 114070872 : lu(k,843) = lu(k,843) - lu(k,817) * lu(k,832)
5886 114070872 : lu(k,845) = lu(k,845) - lu(k,818) * lu(k,832)
5887 114070872 : lu(k,847) = lu(k,847) - lu(k,819) * lu(k,832)
5888 114070872 : lu(k,848) = lu(k,848) - lu(k,820) * lu(k,832)
5889 114070872 : lu(k,849) = - lu(k,821) * lu(k,832)
5890 114070872 : lu(k,851) = lu(k,851) - lu(k,822) * lu(k,832)
5891 114070872 : lu(k,852) = lu(k,852) - lu(k,823) * lu(k,832)
5892 114070872 : lu(k,853) = lu(k,853) - lu(k,824) * lu(k,832)
5893 114070872 : lu(k,854) = lu(k,854) - lu(k,825) * lu(k,832)
5894 114070872 : lu(k,855) = lu(k,855) - lu(k,826) * lu(k,832)
5895 114070872 : lu(k,859) = lu(k,859) - lu(k,827) * lu(k,832)
5896 114070872 : lu(k,860) = lu(k,860) - lu(k,828) * lu(k,832)
5897 114070872 : lu(k,861) = lu(k,861) - lu(k,829) * lu(k,832)
5898 114070872 : lu(k,866) = lu(k,866) - lu(k,812) * lu(k,865)
5899 114070872 : lu(k,867) = lu(k,867) - lu(k,813) * lu(k,865)
5900 114070872 : lu(k,868) = lu(k,868) - lu(k,814) * lu(k,865)
5901 114070872 : lu(k,869) = lu(k,869) - lu(k,815) * lu(k,865)
5902 114070872 : lu(k,870) = lu(k,870) - lu(k,816) * lu(k,865)
5903 114070872 : lu(k,871) = lu(k,871) - lu(k,817) * lu(k,865)
5904 114070872 : lu(k,872) = lu(k,872) - lu(k,818) * lu(k,865)
5905 114070872 : lu(k,874) = lu(k,874) - lu(k,819) * lu(k,865)
5906 114070872 : lu(k,875) = - lu(k,820) * lu(k,865)
5907 114070872 : lu(k,876) = lu(k,876) - lu(k,821) * lu(k,865)
5908 114070872 : lu(k,877) = lu(k,877) - lu(k,822) * lu(k,865)
5909 114070872 : lu(k,878) = lu(k,878) - lu(k,823) * lu(k,865)
5910 114070872 : lu(k,879) = lu(k,879) - lu(k,824) * lu(k,865)
5911 114070872 : lu(k,881) = lu(k,881) - lu(k,825) * lu(k,865)
5912 114070872 : lu(k,882) = lu(k,882) - lu(k,826) * lu(k,865)
5913 114070872 : lu(k,884) = lu(k,884) - lu(k,827) * lu(k,865)
5914 114070872 : lu(k,885) = lu(k,885) - lu(k,828) * lu(k,865)
5915 114070872 : lu(k,886) = lu(k,886) - lu(k,829) * lu(k,865)
5916 114070872 : lu(k,925) = lu(k,925) - lu(k,812) * lu(k,924)
5917 114070872 : lu(k,926) = lu(k,926) - lu(k,813) * lu(k,924)
5918 114070872 : lu(k,928) = lu(k,928) - lu(k,814) * lu(k,924)
5919 114070872 : lu(k,930) = lu(k,930) - lu(k,815) * lu(k,924)
5920 114070872 : lu(k,931) = lu(k,931) - lu(k,816) * lu(k,924)
5921 114070872 : lu(k,932) = lu(k,932) - lu(k,817) * lu(k,924)
5922 114070872 : lu(k,933) = lu(k,933) - lu(k,818) * lu(k,924)
5923 114070872 : lu(k,935) = lu(k,935) - lu(k,819) * lu(k,924)
5924 114070872 : lu(k,936) = lu(k,936) - lu(k,820) * lu(k,924)
5925 114070872 : lu(k,937) = lu(k,937) - lu(k,821) * lu(k,924)
5926 114070872 : lu(k,938) = lu(k,938) - lu(k,822) * lu(k,924)
5927 114070872 : lu(k,939) = lu(k,939) - lu(k,823) * lu(k,924)
5928 114070872 : lu(k,940) = lu(k,940) - lu(k,824) * lu(k,924)
5929 114070872 : lu(k,942) = lu(k,942) - lu(k,825) * lu(k,924)
5930 114070872 : lu(k,943) = lu(k,943) - lu(k,826) * lu(k,924)
5931 114070872 : lu(k,946) = lu(k,946) - lu(k,827) * lu(k,924)
5932 114070872 : lu(k,947) = lu(k,947) - lu(k,828) * lu(k,924)
5933 114070872 : lu(k,948) = lu(k,948) - lu(k,829) * lu(k,924)
5934 114070872 : lu(k,1011) = lu(k,1011) - lu(k,812) * lu(k,1010)
5935 114070872 : lu(k,1012) = lu(k,1012) - lu(k,813) * lu(k,1010)
5936 114070872 : lu(k,1015) = lu(k,1015) - lu(k,814) * lu(k,1010)
5937 114070872 : lu(k,1017) = lu(k,1017) - lu(k,815) * lu(k,1010)
5938 114070872 : lu(k,1018) = lu(k,1018) - lu(k,816) * lu(k,1010)
5939 114070872 : lu(k,1019) = lu(k,1019) - lu(k,817) * lu(k,1010)
5940 114070872 : lu(k,1021) = lu(k,1021) - lu(k,818) * lu(k,1010)
5941 114070872 : lu(k,1023) = lu(k,1023) - lu(k,819) * lu(k,1010)
5942 114070872 : lu(k,1024) = lu(k,1024) - lu(k,820) * lu(k,1010)
5943 114070872 : lu(k,1025) = lu(k,1025) - lu(k,821) * lu(k,1010)
5944 114070872 : lu(k,1027) = lu(k,1027) - lu(k,822) * lu(k,1010)
5945 114070872 : lu(k,1028) = lu(k,1028) - lu(k,823) * lu(k,1010)
5946 114070872 : lu(k,1029) = lu(k,1029) - lu(k,824) * lu(k,1010)
5947 114070872 : lu(k,1031) = lu(k,1031) - lu(k,825) * lu(k,1010)
5948 114070872 : lu(k,1032) = lu(k,1032) - lu(k,826) * lu(k,1010)
5949 114070872 : lu(k,1036) = lu(k,1036) - lu(k,827) * lu(k,1010)
5950 114070872 : lu(k,1037) = - lu(k,828) * lu(k,1010)
5951 114070872 : lu(k,1038) = lu(k,1038) - lu(k,829) * lu(k,1010)
5952 114070872 : lu(k,1098) = - lu(k,812) * lu(k,1096)
5953 114070872 : lu(k,1100) = lu(k,1100) - lu(k,813) * lu(k,1096)
5954 114070872 : lu(k,1103) = lu(k,1103) - lu(k,814) * lu(k,1096)
5955 114070872 : lu(k,1105) = - lu(k,815) * lu(k,1096)
5956 114070872 : lu(k,1106) = - lu(k,816) * lu(k,1096)
5957 114070872 : lu(k,1107) = lu(k,1107) - lu(k,817) * lu(k,1096)
5958 114070872 : lu(k,1109) = - lu(k,818) * lu(k,1096)
5959 114070872 : lu(k,1111) = lu(k,1111) - lu(k,819) * lu(k,1096)
5960 114070872 : lu(k,1112) = lu(k,1112) - lu(k,820) * lu(k,1096)
5961 114070872 : lu(k,1113) = lu(k,1113) - lu(k,821) * lu(k,1096)
5962 114070872 : lu(k,1115) = lu(k,1115) - lu(k,822) * lu(k,1096)
5963 114070872 : lu(k,1116) = - lu(k,823) * lu(k,1096)
5964 114070872 : lu(k,1117) = - lu(k,824) * lu(k,1096)
5965 114070872 : lu(k,1119) = lu(k,1119) - lu(k,825) * lu(k,1096)
5966 114070872 : lu(k,1120) = lu(k,1120) - lu(k,826) * lu(k,1096)
5967 114070872 : lu(k,1124) = lu(k,1124) - lu(k,827) * lu(k,1096)
5968 114070872 : lu(k,1125) = lu(k,1125) - lu(k,828) * lu(k,1096)
5969 114070872 : lu(k,1126) = lu(k,1126) - lu(k,829) * lu(k,1096)
5970 114070872 : lu(k,1146) = lu(k,1146) - lu(k,812) * lu(k,1144)
5971 114070872 : lu(k,1148) = lu(k,1148) - lu(k,813) * lu(k,1144)
5972 114070872 : lu(k,1151) = lu(k,1151) - lu(k,814) * lu(k,1144)
5973 114070872 : lu(k,1153) = lu(k,1153) - lu(k,815) * lu(k,1144)
5974 114070872 : lu(k,1154) = lu(k,1154) - lu(k,816) * lu(k,1144)
5975 114070872 : lu(k,1155) = lu(k,1155) - lu(k,817) * lu(k,1144)
5976 114070872 : lu(k,1157) = lu(k,1157) - lu(k,818) * lu(k,1144)
5977 114070872 : lu(k,1159) = lu(k,1159) - lu(k,819) * lu(k,1144)
5978 114070872 : lu(k,1160) = lu(k,1160) - lu(k,820) * lu(k,1144)
5979 114070872 : lu(k,1161) = lu(k,1161) - lu(k,821) * lu(k,1144)
5980 114070872 : lu(k,1163) = lu(k,1163) - lu(k,822) * lu(k,1144)
5981 114070872 : lu(k,1164) = lu(k,1164) - lu(k,823) * lu(k,1144)
5982 114070872 : lu(k,1165) = lu(k,1165) - lu(k,824) * lu(k,1144)
5983 114070872 : lu(k,1167) = lu(k,1167) - lu(k,825) * lu(k,1144)
5984 114070872 : lu(k,1168) = lu(k,1168) - lu(k,826) * lu(k,1144)
5985 114070872 : lu(k,1172) = lu(k,1172) - lu(k,827) * lu(k,1144)
5986 114070872 : lu(k,1173) = lu(k,1173) - lu(k,828) * lu(k,1144)
5987 114070872 : lu(k,1174) = lu(k,1174) - lu(k,829) * lu(k,1144)
5988 114070872 : lu(k,1189) = lu(k,1189) - lu(k,812) * lu(k,1187)
5989 114070872 : lu(k,1191) = lu(k,1191) - lu(k,813) * lu(k,1187)
5990 114070872 : lu(k,1194) = lu(k,1194) - lu(k,814) * lu(k,1187)
5991 114070872 : lu(k,1196) = lu(k,1196) - lu(k,815) * lu(k,1187)
5992 114070872 : lu(k,1197) = lu(k,1197) - lu(k,816) * lu(k,1187)
5993 114070872 : lu(k,1198) = lu(k,1198) - lu(k,817) * lu(k,1187)
5994 114070872 : lu(k,1200) = lu(k,1200) - lu(k,818) * lu(k,1187)
5995 114070872 : lu(k,1202) = lu(k,1202) - lu(k,819) * lu(k,1187)
5996 114070872 : lu(k,1203) = lu(k,1203) - lu(k,820) * lu(k,1187)
5997 114070872 : lu(k,1204) = lu(k,1204) - lu(k,821) * lu(k,1187)
5998 114070872 : lu(k,1206) = lu(k,1206) - lu(k,822) * lu(k,1187)
5999 114070872 : lu(k,1207) = lu(k,1207) - lu(k,823) * lu(k,1187)
6000 114070872 : lu(k,1208) = lu(k,1208) - lu(k,824) * lu(k,1187)
6001 114070872 : lu(k,1210) = lu(k,1210) - lu(k,825) * lu(k,1187)
6002 114070872 : lu(k,1211) = lu(k,1211) - lu(k,826) * lu(k,1187)
6003 114070872 : lu(k,1215) = lu(k,1215) - lu(k,827) * lu(k,1187)
6004 114070872 : lu(k,1216) = lu(k,1216) - lu(k,828) * lu(k,1187)
6005 114070872 : lu(k,1217) = lu(k,1217) - lu(k,829) * lu(k,1187)
6006 114070872 : lu(k,1232) = lu(k,1232) - lu(k,812) * lu(k,1230)
6007 114070872 : lu(k,1234) = lu(k,1234) - lu(k,813) * lu(k,1230)
6008 114070872 : lu(k,1237) = lu(k,1237) - lu(k,814) * lu(k,1230)
6009 114070872 : lu(k,1239) = lu(k,1239) - lu(k,815) * lu(k,1230)
6010 114070872 : lu(k,1240) = lu(k,1240) - lu(k,816) * lu(k,1230)
6011 114070872 : lu(k,1241) = lu(k,1241) - lu(k,817) * lu(k,1230)
6012 114070872 : lu(k,1243) = lu(k,1243) - lu(k,818) * lu(k,1230)
6013 114070872 : lu(k,1245) = lu(k,1245) - lu(k,819) * lu(k,1230)
6014 114070872 : lu(k,1246) = lu(k,1246) - lu(k,820) * lu(k,1230)
6015 114070872 : lu(k,1247) = lu(k,1247) - lu(k,821) * lu(k,1230)
6016 114070872 : lu(k,1249) = lu(k,1249) - lu(k,822) * lu(k,1230)
6017 114070872 : lu(k,1250) = lu(k,1250) - lu(k,823) * lu(k,1230)
6018 114070872 : lu(k,1251) = lu(k,1251) - lu(k,824) * lu(k,1230)
6019 114070872 : lu(k,1253) = lu(k,1253) - lu(k,825) * lu(k,1230)
6020 114070872 : lu(k,1254) = lu(k,1254) - lu(k,826) * lu(k,1230)
6021 114070872 : lu(k,1258) = lu(k,1258) - lu(k,827) * lu(k,1230)
6022 114070872 : lu(k,1259) = lu(k,1259) - lu(k,828) * lu(k,1230)
6023 114070872 : lu(k,1260) = lu(k,1260) - lu(k,829) * lu(k,1230)
6024 114070872 : lu(k,1316) = lu(k,1316) - lu(k,812) * lu(k,1314)
6025 114070872 : lu(k,1318) = lu(k,1318) - lu(k,813) * lu(k,1314)
6026 114070872 : lu(k,1321) = lu(k,1321) - lu(k,814) * lu(k,1314)
6027 114070872 : lu(k,1323) = lu(k,1323) - lu(k,815) * lu(k,1314)
6028 114070872 : lu(k,1324) = lu(k,1324) - lu(k,816) * lu(k,1314)
6029 114070872 : lu(k,1325) = lu(k,1325) - lu(k,817) * lu(k,1314)
6030 114070872 : lu(k,1327) = lu(k,1327) - lu(k,818) * lu(k,1314)
6031 114070872 : lu(k,1329) = lu(k,1329) - lu(k,819) * lu(k,1314)
6032 114070872 : lu(k,1330) = lu(k,1330) - lu(k,820) * lu(k,1314)
6033 114070872 : lu(k,1331) = lu(k,1331) - lu(k,821) * lu(k,1314)
6034 114070872 : lu(k,1333) = lu(k,1333) - lu(k,822) * lu(k,1314)
6035 114070872 : lu(k,1334) = lu(k,1334) - lu(k,823) * lu(k,1314)
6036 114070872 : lu(k,1335) = lu(k,1335) - lu(k,824) * lu(k,1314)
6037 114070872 : lu(k,1337) = lu(k,1337) - lu(k,825) * lu(k,1314)
6038 114070872 : lu(k,1338) = lu(k,1338) - lu(k,826) * lu(k,1314)
6039 114070872 : lu(k,1342) = lu(k,1342) - lu(k,827) * lu(k,1314)
6040 114070872 : lu(k,1343) = lu(k,1343) - lu(k,828) * lu(k,1314)
6041 114070872 : lu(k,1344) = lu(k,1344) - lu(k,829) * lu(k,1314)
6042 114070872 : lu(k,1376) = lu(k,1376) - lu(k,812) * lu(k,1374)
6043 114070872 : lu(k,1378) = lu(k,1378) - lu(k,813) * lu(k,1374)
6044 114070872 : lu(k,1381) = lu(k,1381) - lu(k,814) * lu(k,1374)
6045 114070872 : lu(k,1383) = lu(k,1383) - lu(k,815) * lu(k,1374)
6046 114070872 : lu(k,1384) = - lu(k,816) * lu(k,1374)
6047 114070872 : lu(k,1385) = lu(k,1385) - lu(k,817) * lu(k,1374)
6048 114070872 : lu(k,1387) = - lu(k,818) * lu(k,1374)
6049 114070872 : lu(k,1389) = lu(k,1389) - lu(k,819) * lu(k,1374)
6050 114070872 : lu(k,1390) = lu(k,1390) - lu(k,820) * lu(k,1374)
6051 114070872 : lu(k,1391) = lu(k,1391) - lu(k,821) * lu(k,1374)
6052 114070872 : lu(k,1393) = lu(k,1393) - lu(k,822) * lu(k,1374)
6053 114070872 : lu(k,1394) = - lu(k,823) * lu(k,1374)
6054 114070872 : lu(k,1395) = - lu(k,824) * lu(k,1374)
6055 114070872 : lu(k,1397) = lu(k,1397) - lu(k,825) * lu(k,1374)
6056 114070872 : lu(k,1398) = lu(k,1398) - lu(k,826) * lu(k,1374)
6057 114070872 : lu(k,1402) = lu(k,1402) - lu(k,827) * lu(k,1374)
6058 114070872 : lu(k,1403) = lu(k,1403) - lu(k,828) * lu(k,1374)
6059 114070872 : lu(k,1404) = lu(k,1404) - lu(k,829) * lu(k,1374)
6060 114070872 : lu(k,1473) = - lu(k,812) * lu(k,1471)
6061 114070872 : lu(k,1475) = lu(k,1475) - lu(k,813) * lu(k,1471)
6062 114070872 : lu(k,1478) = lu(k,1478) - lu(k,814) * lu(k,1471)
6063 114070872 : lu(k,1480) = - lu(k,815) * lu(k,1471)
6064 114070872 : lu(k,1481) = - lu(k,816) * lu(k,1471)
6065 114070872 : lu(k,1482) = lu(k,1482) - lu(k,817) * lu(k,1471)
6066 114070872 : lu(k,1484) = - lu(k,818) * lu(k,1471)
6067 114070872 : lu(k,1486) = lu(k,1486) - lu(k,819) * lu(k,1471)
6068 114070872 : lu(k,1487) = lu(k,1487) - lu(k,820) * lu(k,1471)
6069 114070872 : lu(k,1488) = lu(k,1488) - lu(k,821) * lu(k,1471)
6070 114070872 : lu(k,1490) = lu(k,1490) - lu(k,822) * lu(k,1471)
6071 114070872 : lu(k,1491) = - lu(k,823) * lu(k,1471)
6072 114070872 : lu(k,1492) = - lu(k,824) * lu(k,1471)
6073 114070872 : lu(k,1494) = lu(k,1494) - lu(k,825) * lu(k,1471)
6074 114070872 : lu(k,1495) = lu(k,1495) - lu(k,826) * lu(k,1471)
6075 114070872 : lu(k,1499) = lu(k,1499) - lu(k,827) * lu(k,1471)
6076 114070872 : lu(k,1500) = lu(k,1500) - lu(k,828) * lu(k,1471)
6077 114070872 : lu(k,1501) = lu(k,1501) - lu(k,829) * lu(k,1471)
6078 114070872 : lu(k,1514) = lu(k,1514) - lu(k,812) * lu(k,1513)
6079 114070872 : lu(k,1516) = lu(k,1516) - lu(k,813) * lu(k,1513)
6080 114070872 : lu(k,1519) = lu(k,1519) - lu(k,814) * lu(k,1513)
6081 114070872 : lu(k,1521) = lu(k,1521) - lu(k,815) * lu(k,1513)
6082 114070872 : lu(k,1522) = lu(k,1522) - lu(k,816) * lu(k,1513)
6083 114070872 : lu(k,1523) = lu(k,1523) - lu(k,817) * lu(k,1513)
6084 114070872 : lu(k,1525) = lu(k,1525) - lu(k,818) * lu(k,1513)
6085 114070872 : lu(k,1527) = lu(k,1527) - lu(k,819) * lu(k,1513)
6086 114070872 : lu(k,1528) = lu(k,1528) - lu(k,820) * lu(k,1513)
6087 114070872 : lu(k,1529) = lu(k,1529) - lu(k,821) * lu(k,1513)
6088 114070872 : lu(k,1531) = lu(k,1531) - lu(k,822) * lu(k,1513)
6089 114070872 : lu(k,1532) = lu(k,1532) - lu(k,823) * lu(k,1513)
6090 114070872 : lu(k,1533) = lu(k,1533) - lu(k,824) * lu(k,1513)
6091 114070872 : lu(k,1535) = lu(k,1535) - lu(k,825) * lu(k,1513)
6092 114070872 : lu(k,1536) = lu(k,1536) - lu(k,826) * lu(k,1513)
6093 114070872 : lu(k,1540) = lu(k,1540) - lu(k,827) * lu(k,1513)
6094 114070872 : lu(k,1541) = lu(k,1541) - lu(k,828) * lu(k,1513)
6095 114070872 : lu(k,1542) = lu(k,1542) - lu(k,829) * lu(k,1513)
6096 114070872 : lu(k,1550) = lu(k,1550) - lu(k,812) * lu(k,1548)
6097 114070872 : lu(k,1552) = lu(k,1552) - lu(k,813) * lu(k,1548)
6098 114070872 : lu(k,1555) = lu(k,1555) - lu(k,814) * lu(k,1548)
6099 114070872 : lu(k,1557) = lu(k,1557) - lu(k,815) * lu(k,1548)
6100 114070872 : lu(k,1558) = lu(k,1558) - lu(k,816) * lu(k,1548)
6101 114070872 : lu(k,1559) = lu(k,1559) - lu(k,817) * lu(k,1548)
6102 114070872 : lu(k,1561) = lu(k,1561) - lu(k,818) * lu(k,1548)
6103 114070872 : lu(k,1563) = lu(k,1563) - lu(k,819) * lu(k,1548)
6104 114070872 : lu(k,1564) = lu(k,1564) - lu(k,820) * lu(k,1548)
6105 114070872 : lu(k,1565) = lu(k,1565) - lu(k,821) * lu(k,1548)
6106 114070872 : lu(k,1567) = lu(k,1567) - lu(k,822) * lu(k,1548)
6107 114070872 : lu(k,1568) = lu(k,1568) - lu(k,823) * lu(k,1548)
6108 114070872 : lu(k,1569) = lu(k,1569) - lu(k,824) * lu(k,1548)
6109 114070872 : lu(k,1571) = lu(k,1571) - lu(k,825) * lu(k,1548)
6110 114070872 : lu(k,1572) = lu(k,1572) - lu(k,826) * lu(k,1548)
6111 114070872 : lu(k,1576) = lu(k,1576) - lu(k,827) * lu(k,1548)
6112 114070872 : lu(k,1577) = lu(k,1577) - lu(k,828) * lu(k,1548)
6113 114070872 : lu(k,1578) = lu(k,1578) - lu(k,829) * lu(k,1548)
6114 114070872 : lu(k,1595) = lu(k,1595) - lu(k,812) * lu(k,1593)
6115 114070872 : lu(k,1597) = lu(k,1597) - lu(k,813) * lu(k,1593)
6116 114070872 : lu(k,1600) = lu(k,1600) - lu(k,814) * lu(k,1593)
6117 114070872 : lu(k,1602) = lu(k,1602) - lu(k,815) * lu(k,1593)
6118 114070872 : lu(k,1603) = lu(k,1603) - lu(k,816) * lu(k,1593)
6119 114070872 : lu(k,1604) = lu(k,1604) - lu(k,817) * lu(k,1593)
6120 114070872 : lu(k,1606) = lu(k,1606) - lu(k,818) * lu(k,1593)
6121 114070872 : lu(k,1608) = lu(k,1608) - lu(k,819) * lu(k,1593)
6122 114070872 : lu(k,1609) = lu(k,1609) - lu(k,820) * lu(k,1593)
6123 114070872 : lu(k,1610) = lu(k,1610) - lu(k,821) * lu(k,1593)
6124 114070872 : lu(k,1612) = lu(k,1612) - lu(k,822) * lu(k,1593)
6125 114070872 : lu(k,1613) = lu(k,1613) - lu(k,823) * lu(k,1593)
6126 114070872 : lu(k,1614) = lu(k,1614) - lu(k,824) * lu(k,1593)
6127 114070872 : lu(k,1616) = lu(k,1616) - lu(k,825) * lu(k,1593)
6128 114070872 : lu(k,1617) = lu(k,1617) - lu(k,826) * lu(k,1593)
6129 114070872 : lu(k,1621) = lu(k,1621) - lu(k,827) * lu(k,1593)
6130 114070872 : lu(k,1622) = lu(k,1622) - lu(k,828) * lu(k,1593)
6131 114070872 : lu(k,1623) = lu(k,1623) - lu(k,829) * lu(k,1593)
6132 114070872 : lu(k,1638) = lu(k,1638) - lu(k,812) * lu(k,1636)
6133 114070872 : lu(k,1640) = lu(k,1640) - lu(k,813) * lu(k,1636)
6134 114070872 : lu(k,1643) = lu(k,1643) - lu(k,814) * lu(k,1636)
6135 114070872 : lu(k,1645) = lu(k,1645) - lu(k,815) * lu(k,1636)
6136 114070872 : lu(k,1646) = lu(k,1646) - lu(k,816) * lu(k,1636)
6137 114070872 : lu(k,1647) = lu(k,1647) - lu(k,817) * lu(k,1636)
6138 114070872 : lu(k,1649) = lu(k,1649) - lu(k,818) * lu(k,1636)
6139 114070872 : lu(k,1651) = lu(k,1651) - lu(k,819) * lu(k,1636)
6140 114070872 : lu(k,1652) = lu(k,1652) - lu(k,820) * lu(k,1636)
6141 114070872 : lu(k,1653) = lu(k,1653) - lu(k,821) * lu(k,1636)
6142 114070872 : lu(k,1655) = lu(k,1655) - lu(k,822) * lu(k,1636)
6143 114070872 : lu(k,1656) = lu(k,1656) - lu(k,823) * lu(k,1636)
6144 114070872 : lu(k,1657) = lu(k,1657) - lu(k,824) * lu(k,1636)
6145 114070872 : lu(k,1659) = lu(k,1659) - lu(k,825) * lu(k,1636)
6146 114070872 : lu(k,1660) = lu(k,1660) - lu(k,826) * lu(k,1636)
6147 114070872 : lu(k,1664) = lu(k,1664) - lu(k,827) * lu(k,1636)
6148 114070872 : lu(k,1665) = lu(k,1665) - lu(k,828) * lu(k,1636)
6149 114070872 : lu(k,1666) = lu(k,1666) - lu(k,829) * lu(k,1636)
6150 114070872 : lu(k,1681) = lu(k,1681) - lu(k,812) * lu(k,1679)
6151 114070872 : lu(k,1683) = lu(k,1683) - lu(k,813) * lu(k,1679)
6152 114070872 : lu(k,1686) = lu(k,1686) - lu(k,814) * lu(k,1679)
6153 114070872 : lu(k,1688) = lu(k,1688) - lu(k,815) * lu(k,1679)
6154 114070872 : lu(k,1689) = lu(k,1689) - lu(k,816) * lu(k,1679)
6155 114070872 : lu(k,1690) = lu(k,1690) - lu(k,817) * lu(k,1679)
6156 114070872 : lu(k,1692) = lu(k,1692) - lu(k,818) * lu(k,1679)
6157 114070872 : lu(k,1694) = lu(k,1694) - lu(k,819) * lu(k,1679)
6158 114070872 : lu(k,1695) = lu(k,1695) - lu(k,820) * lu(k,1679)
6159 114070872 : lu(k,1696) = lu(k,1696) - lu(k,821) * lu(k,1679)
6160 114070872 : lu(k,1698) = lu(k,1698) - lu(k,822) * lu(k,1679)
6161 114070872 : lu(k,1699) = lu(k,1699) - lu(k,823) * lu(k,1679)
6162 114070872 : lu(k,1700) = lu(k,1700) - lu(k,824) * lu(k,1679)
6163 114070872 : lu(k,1702) = lu(k,1702) - lu(k,825) * lu(k,1679)
6164 114070872 : lu(k,1703) = lu(k,1703) - lu(k,826) * lu(k,1679)
6165 114070872 : lu(k,1707) = lu(k,1707) - lu(k,827) * lu(k,1679)
6166 114070872 : lu(k,1708) = lu(k,1708) - lu(k,828) * lu(k,1679)
6167 114070872 : lu(k,1709) = lu(k,1709) - lu(k,829) * lu(k,1679)
6168 114070872 : lu(k,1757) = lu(k,1757) - lu(k,812) * lu(k,1755)
6169 114070872 : lu(k,1759) = lu(k,1759) - lu(k,813) * lu(k,1755)
6170 114070872 : lu(k,1762) = lu(k,1762) - lu(k,814) * lu(k,1755)
6171 114070872 : lu(k,1764) = - lu(k,815) * lu(k,1755)
6172 114070872 : lu(k,1765) = - lu(k,816) * lu(k,1755)
6173 114070872 : lu(k,1766) = lu(k,1766) - lu(k,817) * lu(k,1755)
6174 114070872 : lu(k,1768) = lu(k,1768) - lu(k,818) * lu(k,1755)
6175 114070872 : lu(k,1770) = lu(k,1770) - lu(k,819) * lu(k,1755)
6176 114070872 : lu(k,1771) = lu(k,1771) - lu(k,820) * lu(k,1755)
6177 114070872 : lu(k,1772) = lu(k,1772) - lu(k,821) * lu(k,1755)
6178 114070872 : lu(k,1774) = lu(k,1774) - lu(k,822) * lu(k,1755)
6179 114070872 : lu(k,1775) = - lu(k,823) * lu(k,1755)
6180 114070872 : lu(k,1776) = - lu(k,824) * lu(k,1755)
6181 114070872 : lu(k,1778) = lu(k,1778) - lu(k,825) * lu(k,1755)
6182 114070872 : lu(k,1779) = lu(k,1779) - lu(k,826) * lu(k,1755)
6183 114070872 : lu(k,1783) = lu(k,1783) - lu(k,827) * lu(k,1755)
6184 114070872 : lu(k,1784) = lu(k,1784) - lu(k,828) * lu(k,1755)
6185 114070872 : lu(k,1785) = lu(k,1785) - lu(k,829) * lu(k,1755)
6186 114070872 : lu(k,1805) = lu(k,1805) - lu(k,812) * lu(k,1804)
6187 114070872 : lu(k,1807) = lu(k,1807) - lu(k,813) * lu(k,1804)
6188 114070872 : lu(k,1810) = lu(k,1810) - lu(k,814) * lu(k,1804)
6189 114070872 : lu(k,1812) = lu(k,1812) - lu(k,815) * lu(k,1804)
6190 114070872 : lu(k,1813) = lu(k,1813) - lu(k,816) * lu(k,1804)
6191 114070872 : lu(k,1814) = lu(k,1814) - lu(k,817) * lu(k,1804)
6192 114070872 : lu(k,1816) = lu(k,1816) - lu(k,818) * lu(k,1804)
6193 114070872 : lu(k,1818) = lu(k,1818) - lu(k,819) * lu(k,1804)
6194 114070872 : lu(k,1819) = lu(k,1819) - lu(k,820) * lu(k,1804)
6195 114070872 : lu(k,1820) = lu(k,1820) - lu(k,821) * lu(k,1804)
6196 114070872 : lu(k,1822) = lu(k,1822) - lu(k,822) * lu(k,1804)
6197 114070872 : lu(k,1823) = lu(k,1823) - lu(k,823) * lu(k,1804)
6198 114070872 : lu(k,1824) = lu(k,1824) - lu(k,824) * lu(k,1804)
6199 114070872 : lu(k,1826) = lu(k,1826) - lu(k,825) * lu(k,1804)
6200 114070872 : lu(k,1827) = lu(k,1827) - lu(k,826) * lu(k,1804)
6201 114070872 : lu(k,1831) = lu(k,1831) - lu(k,827) * lu(k,1804)
6202 114070872 : lu(k,1832) = lu(k,1832) - lu(k,828) * lu(k,1804)
6203 114070872 : lu(k,1833) = lu(k,1833) - lu(k,829) * lu(k,1804)
6204 114070872 : lu(k,1838) = lu(k,1838) - lu(k,812) * lu(k,1837)
6205 114070872 : lu(k,1840) = lu(k,1840) - lu(k,813) * lu(k,1837)
6206 114070872 : lu(k,1843) = lu(k,1843) - lu(k,814) * lu(k,1837)
6207 114070872 : lu(k,1845) = lu(k,1845) - lu(k,815) * lu(k,1837)
6208 114070872 : lu(k,1846) = lu(k,1846) - lu(k,816) * lu(k,1837)
6209 114070872 : lu(k,1847) = lu(k,1847) - lu(k,817) * lu(k,1837)
6210 114070872 : lu(k,1849) = lu(k,1849) - lu(k,818) * lu(k,1837)
6211 114070872 : lu(k,1851) = lu(k,1851) - lu(k,819) * lu(k,1837)
6212 114070872 : lu(k,1852) = lu(k,1852) - lu(k,820) * lu(k,1837)
6213 114070872 : lu(k,1853) = - lu(k,821) * lu(k,1837)
6214 114070872 : lu(k,1855) = lu(k,1855) - lu(k,822) * lu(k,1837)
6215 114070872 : lu(k,1856) = lu(k,1856) - lu(k,823) * lu(k,1837)
6216 114070872 : lu(k,1857) = lu(k,1857) - lu(k,824) * lu(k,1837)
6217 114070872 : lu(k,1859) = lu(k,1859) - lu(k,825) * lu(k,1837)
6218 114070872 : lu(k,1860) = lu(k,1860) - lu(k,826) * lu(k,1837)
6219 114070872 : lu(k,1864) = lu(k,1864) - lu(k,827) * lu(k,1837)
6220 114070872 : lu(k,1865) = lu(k,1865) - lu(k,828) * lu(k,1837)
6221 114070872 : lu(k,1866) = lu(k,1866) - lu(k,829) * lu(k,1837)
6222 114070872 : lu(k,1874) = lu(k,1874) - lu(k,812) * lu(k,1873)
6223 114070872 : lu(k,1876) = lu(k,1876) - lu(k,813) * lu(k,1873)
6224 114070872 : lu(k,1879) = lu(k,1879) - lu(k,814) * lu(k,1873)
6225 114070872 : lu(k,1881) = - lu(k,815) * lu(k,1873)
6226 114070872 : lu(k,1882) = - lu(k,816) * lu(k,1873)
6227 114070872 : lu(k,1883) = lu(k,1883) - lu(k,817) * lu(k,1873)
6228 114070872 : lu(k,1885) = - lu(k,818) * lu(k,1873)
6229 114070872 : lu(k,1887) = lu(k,1887) - lu(k,819) * lu(k,1873)
6230 114070872 : lu(k,1888) = lu(k,1888) - lu(k,820) * lu(k,1873)
6231 114070872 : lu(k,1889) = lu(k,1889) - lu(k,821) * lu(k,1873)
6232 114070872 : lu(k,1891) = lu(k,1891) - lu(k,822) * lu(k,1873)
6233 114070872 : lu(k,1892) = - lu(k,823) * lu(k,1873)
6234 114070872 : lu(k,1893) = - lu(k,824) * lu(k,1873)
6235 114070872 : lu(k,1895) = lu(k,1895) - lu(k,825) * lu(k,1873)
6236 114070872 : lu(k,1896) = lu(k,1896) - lu(k,826) * lu(k,1873)
6237 114070872 : lu(k,1900) = lu(k,1900) - lu(k,827) * lu(k,1873)
6238 114070872 : lu(k,1901) = lu(k,1901) - lu(k,828) * lu(k,1873)
6239 114070872 : lu(k,1902) = lu(k,1902) - lu(k,829) * lu(k,1873)
6240 114070872 : lu(k,1957) = lu(k,1957) - lu(k,812) * lu(k,1956)
6241 114070872 : lu(k,1959) = lu(k,1959) - lu(k,813) * lu(k,1956)
6242 114070872 : lu(k,1962) = lu(k,1962) - lu(k,814) * lu(k,1956)
6243 114070872 : lu(k,1964) = lu(k,1964) - lu(k,815) * lu(k,1956)
6244 114070872 : lu(k,1965) = lu(k,1965) - lu(k,816) * lu(k,1956)
6245 114070872 : lu(k,1966) = lu(k,1966) - lu(k,817) * lu(k,1956)
6246 114070872 : lu(k,1968) = lu(k,1968) - lu(k,818) * lu(k,1956)
6247 114070872 : lu(k,1970) = lu(k,1970) - lu(k,819) * lu(k,1956)
6248 114070872 : lu(k,1971) = lu(k,1971) - lu(k,820) * lu(k,1956)
6249 114070872 : lu(k,1972) = lu(k,1972) - lu(k,821) * lu(k,1956)
6250 114070872 : lu(k,1974) = lu(k,1974) - lu(k,822) * lu(k,1956)
6251 114070872 : lu(k,1975) = lu(k,1975) - lu(k,823) * lu(k,1956)
6252 114070872 : lu(k,1976) = lu(k,1976) - lu(k,824) * lu(k,1956)
6253 114070872 : lu(k,1978) = lu(k,1978) - lu(k,825) * lu(k,1956)
6254 114070872 : lu(k,1979) = lu(k,1979) - lu(k,826) * lu(k,1956)
6255 114070872 : lu(k,1983) = lu(k,1983) - lu(k,827) * lu(k,1956)
6256 114070872 : lu(k,1984) = lu(k,1984) - lu(k,828) * lu(k,1956)
6257 114070872 : lu(k,1985) = lu(k,1985) - lu(k,829) * lu(k,1956)
6258 114070872 : lu(k,2002) = lu(k,2002) - lu(k,812) * lu(k,2000)
6259 114070872 : lu(k,2004) = lu(k,2004) - lu(k,813) * lu(k,2000)
6260 114070872 : lu(k,2007) = lu(k,2007) - lu(k,814) * lu(k,2000)
6261 114070872 : lu(k,2009) = lu(k,2009) - lu(k,815) * lu(k,2000)
6262 114070872 : lu(k,2010) = lu(k,2010) - lu(k,816) * lu(k,2000)
6263 114070872 : lu(k,2011) = lu(k,2011) - lu(k,817) * lu(k,2000)
6264 114070872 : lu(k,2013) = lu(k,2013) - lu(k,818) * lu(k,2000)
6265 114070872 : lu(k,2015) = lu(k,2015) - lu(k,819) * lu(k,2000)
6266 114070872 : lu(k,2016) = lu(k,2016) - lu(k,820) * lu(k,2000)
6267 114070872 : lu(k,2017) = lu(k,2017) - lu(k,821) * lu(k,2000)
6268 114070872 : lu(k,2019) = lu(k,2019) - lu(k,822) * lu(k,2000)
6269 114070872 : lu(k,2020) = lu(k,2020) - lu(k,823) * lu(k,2000)
6270 114070872 : lu(k,2021) = lu(k,2021) - lu(k,824) * lu(k,2000)
6271 114070872 : lu(k,2023) = lu(k,2023) - lu(k,825) * lu(k,2000)
6272 114070872 : lu(k,2024) = lu(k,2024) - lu(k,826) * lu(k,2000)
6273 114070872 : lu(k,2028) = lu(k,2028) - lu(k,827) * lu(k,2000)
6274 114070872 : lu(k,2029) = lu(k,2029) - lu(k,828) * lu(k,2000)
6275 114070872 : lu(k,2030) = lu(k,2030) - lu(k,829) * lu(k,2000)
6276 114070872 : lu(k,2062) = lu(k,2062) - lu(k,812) * lu(k,2061)
6277 114070872 : lu(k,2064) = lu(k,2064) - lu(k,813) * lu(k,2061)
6278 114070872 : lu(k,2067) = lu(k,2067) - lu(k,814) * lu(k,2061)
6279 114070872 : lu(k,2069) = lu(k,2069) - lu(k,815) * lu(k,2061)
6280 114070872 : lu(k,2070) = lu(k,2070) - lu(k,816) * lu(k,2061)
6281 114070872 : lu(k,2071) = lu(k,2071) - lu(k,817) * lu(k,2061)
6282 114070872 : lu(k,2073) = lu(k,2073) - lu(k,818) * lu(k,2061)
6283 114070872 : lu(k,2075) = lu(k,2075) - lu(k,819) * lu(k,2061)
6284 114070872 : lu(k,2076) = lu(k,2076) - lu(k,820) * lu(k,2061)
6285 114070872 : lu(k,2077) = lu(k,2077) - lu(k,821) * lu(k,2061)
6286 114070872 : lu(k,2079) = lu(k,2079) - lu(k,822) * lu(k,2061)
6287 114070872 : lu(k,2080) = lu(k,2080) - lu(k,823) * lu(k,2061)
6288 114070872 : lu(k,2081) = lu(k,2081) - lu(k,824) * lu(k,2061)
6289 114070872 : lu(k,2083) = lu(k,2083) - lu(k,825) * lu(k,2061)
6290 114070872 : lu(k,2084) = lu(k,2084) - lu(k,826) * lu(k,2061)
6291 114070872 : lu(k,2088) = lu(k,2088) - lu(k,827) * lu(k,2061)
6292 114070872 : lu(k,2089) = lu(k,2089) - lu(k,828) * lu(k,2061)
6293 114070872 : lu(k,2090) = lu(k,2090) - lu(k,829) * lu(k,2061)
6294 114070872 : lu(k,833) = 1._r8 / lu(k,833)
6295 114070872 : lu(k,834) = lu(k,834) * lu(k,833)
6296 114070872 : lu(k,835) = lu(k,835) * lu(k,833)
6297 114070872 : lu(k,836) = lu(k,836) * lu(k,833)
6298 114070872 : lu(k,837) = lu(k,837) * lu(k,833)
6299 114070872 : lu(k,838) = lu(k,838) * lu(k,833)
6300 114070872 : lu(k,839) = lu(k,839) * lu(k,833)
6301 114070872 : lu(k,840) = lu(k,840) * lu(k,833)
6302 114070872 : lu(k,841) = lu(k,841) * lu(k,833)
6303 114070872 : lu(k,842) = lu(k,842) * lu(k,833)
6304 114070872 : lu(k,843) = lu(k,843) * lu(k,833)
6305 114070872 : lu(k,844) = lu(k,844) * lu(k,833)
6306 114070872 : lu(k,845) = lu(k,845) * lu(k,833)
6307 114070872 : lu(k,846) = lu(k,846) * lu(k,833)
6308 114070872 : lu(k,847) = lu(k,847) * lu(k,833)
6309 114070872 : lu(k,848) = lu(k,848) * lu(k,833)
6310 114070872 : lu(k,849) = lu(k,849) * lu(k,833)
6311 114070872 : lu(k,850) = lu(k,850) * lu(k,833)
6312 114070872 : lu(k,851) = lu(k,851) * lu(k,833)
6313 114070872 : lu(k,852) = lu(k,852) * lu(k,833)
6314 114070872 : lu(k,853) = lu(k,853) * lu(k,833)
6315 114070872 : lu(k,854) = lu(k,854) * lu(k,833)
6316 114070872 : lu(k,855) = lu(k,855) * lu(k,833)
6317 114070872 : lu(k,856) = lu(k,856) * lu(k,833)
6318 114070872 : lu(k,857) = lu(k,857) * lu(k,833)
6319 114070872 : lu(k,858) = lu(k,858) * lu(k,833)
6320 114070872 : lu(k,859) = lu(k,859) * lu(k,833)
6321 114070872 : lu(k,860) = lu(k,860) * lu(k,833)
6322 114070872 : lu(k,861) = lu(k,861) * lu(k,833)
6323 114070872 : lu(k,1098) = lu(k,1098) - lu(k,834) * lu(k,1097)
6324 114070872 : lu(k,1099) = lu(k,1099) - lu(k,835) * lu(k,1097)
6325 114070872 : lu(k,1100) = lu(k,1100) - lu(k,836) * lu(k,1097)
6326 114070872 : lu(k,1101) = lu(k,1101) - lu(k,837) * lu(k,1097)
6327 114070872 : lu(k,1102) = lu(k,1102) - lu(k,838) * lu(k,1097)
6328 114070872 : lu(k,1103) = lu(k,1103) - lu(k,839) * lu(k,1097)
6329 114070872 : lu(k,1104) = lu(k,1104) - lu(k,840) * lu(k,1097)
6330 114070872 : lu(k,1105) = lu(k,1105) - lu(k,841) * lu(k,1097)
6331 114070872 : lu(k,1106) = lu(k,1106) - lu(k,842) * lu(k,1097)
6332 114070872 : lu(k,1107) = lu(k,1107) - lu(k,843) * lu(k,1097)
6333 114070872 : lu(k,1108) = lu(k,1108) - lu(k,844) * lu(k,1097)
6334 114070872 : lu(k,1109) = lu(k,1109) - lu(k,845) * lu(k,1097)
6335 114070872 : lu(k,1110) = lu(k,1110) - lu(k,846) * lu(k,1097)
6336 114070872 : lu(k,1111) = lu(k,1111) - lu(k,847) * lu(k,1097)
6337 114070872 : lu(k,1112) = lu(k,1112) - lu(k,848) * lu(k,1097)
6338 114070872 : lu(k,1113) = lu(k,1113) - lu(k,849) * lu(k,1097)
6339 114070872 : lu(k,1114) = lu(k,1114) - lu(k,850) * lu(k,1097)
6340 114070872 : lu(k,1115) = lu(k,1115) - lu(k,851) * lu(k,1097)
6341 114070872 : lu(k,1116) = lu(k,1116) - lu(k,852) * lu(k,1097)
6342 114070872 : lu(k,1117) = lu(k,1117) - lu(k,853) * lu(k,1097)
6343 114070872 : lu(k,1119) = lu(k,1119) - lu(k,854) * lu(k,1097)
6344 114070872 : lu(k,1120) = lu(k,1120) - lu(k,855) * lu(k,1097)
6345 114070872 : lu(k,1121) = lu(k,1121) - lu(k,856) * lu(k,1097)
6346 114070872 : lu(k,1122) = lu(k,1122) - lu(k,857) * lu(k,1097)
6347 114070872 : lu(k,1123) = lu(k,1123) - lu(k,858) * lu(k,1097)
6348 114070872 : lu(k,1124) = lu(k,1124) - lu(k,859) * lu(k,1097)
6349 114070872 : lu(k,1125) = lu(k,1125) - lu(k,860) * lu(k,1097)
6350 114070872 : lu(k,1126) = lu(k,1126) - lu(k,861) * lu(k,1097)
6351 114070872 : lu(k,1146) = lu(k,1146) - lu(k,834) * lu(k,1145)
6352 114070872 : lu(k,1147) = lu(k,1147) - lu(k,835) * lu(k,1145)
6353 114070872 : lu(k,1148) = lu(k,1148) - lu(k,836) * lu(k,1145)
6354 114070872 : lu(k,1149) = lu(k,1149) - lu(k,837) * lu(k,1145)
6355 114070872 : lu(k,1150) = lu(k,1150) - lu(k,838) * lu(k,1145)
6356 114070872 : lu(k,1151) = lu(k,1151) - lu(k,839) * lu(k,1145)
6357 114070872 : lu(k,1152) = lu(k,1152) - lu(k,840) * lu(k,1145)
6358 114070872 : lu(k,1153) = lu(k,1153) - lu(k,841) * lu(k,1145)
6359 114070872 : lu(k,1154) = lu(k,1154) - lu(k,842) * lu(k,1145)
6360 114070872 : lu(k,1155) = lu(k,1155) - lu(k,843) * lu(k,1145)
6361 114070872 : lu(k,1156) = lu(k,1156) - lu(k,844) * lu(k,1145)
6362 114070872 : lu(k,1157) = lu(k,1157) - lu(k,845) * lu(k,1145)
6363 114070872 : lu(k,1158) = lu(k,1158) - lu(k,846) * lu(k,1145)
6364 114070872 : lu(k,1159) = lu(k,1159) - lu(k,847) * lu(k,1145)
6365 114070872 : lu(k,1160) = lu(k,1160) - lu(k,848) * lu(k,1145)
6366 114070872 : lu(k,1161) = lu(k,1161) - lu(k,849) * lu(k,1145)
6367 114070872 : lu(k,1162) = lu(k,1162) - lu(k,850) * lu(k,1145)
6368 114070872 : lu(k,1163) = lu(k,1163) - lu(k,851) * lu(k,1145)
6369 114070872 : lu(k,1164) = lu(k,1164) - lu(k,852) * lu(k,1145)
6370 114070872 : lu(k,1165) = lu(k,1165) - lu(k,853) * lu(k,1145)
6371 114070872 : lu(k,1167) = lu(k,1167) - lu(k,854) * lu(k,1145)
6372 114070872 : lu(k,1168) = lu(k,1168) - lu(k,855) * lu(k,1145)
6373 114070872 : lu(k,1169) = lu(k,1169) - lu(k,856) * lu(k,1145)
6374 114070872 : lu(k,1170) = lu(k,1170) - lu(k,857) * lu(k,1145)
6375 114070872 : lu(k,1171) = lu(k,1171) - lu(k,858) * lu(k,1145)
6376 114070872 : lu(k,1172) = lu(k,1172) - lu(k,859) * lu(k,1145)
6377 114070872 : lu(k,1173) = lu(k,1173) - lu(k,860) * lu(k,1145)
6378 114070872 : lu(k,1174) = lu(k,1174) - lu(k,861) * lu(k,1145)
6379 114070872 : lu(k,1189) = lu(k,1189) - lu(k,834) * lu(k,1188)
6380 114070872 : lu(k,1190) = - lu(k,835) * lu(k,1188)
6381 114070872 : lu(k,1191) = lu(k,1191) - lu(k,836) * lu(k,1188)
6382 114070872 : lu(k,1192) = lu(k,1192) - lu(k,837) * lu(k,1188)
6383 114070872 : lu(k,1193) = lu(k,1193) - lu(k,838) * lu(k,1188)
6384 114070872 : lu(k,1194) = lu(k,1194) - lu(k,839) * lu(k,1188)
6385 114070872 : lu(k,1195) = - lu(k,840) * lu(k,1188)
6386 114070872 : lu(k,1196) = lu(k,1196) - lu(k,841) * lu(k,1188)
6387 114070872 : lu(k,1197) = lu(k,1197) - lu(k,842) * lu(k,1188)
6388 114070872 : lu(k,1198) = lu(k,1198) - lu(k,843) * lu(k,1188)
6389 114070872 : lu(k,1199) = lu(k,1199) - lu(k,844) * lu(k,1188)
6390 114070872 : lu(k,1200) = lu(k,1200) - lu(k,845) * lu(k,1188)
6391 114070872 : lu(k,1201) = lu(k,1201) - lu(k,846) * lu(k,1188)
6392 114070872 : lu(k,1202) = lu(k,1202) - lu(k,847) * lu(k,1188)
6393 114070872 : lu(k,1203) = lu(k,1203) - lu(k,848) * lu(k,1188)
6394 114070872 : lu(k,1204) = lu(k,1204) - lu(k,849) * lu(k,1188)
6395 114070872 : lu(k,1205) = lu(k,1205) - lu(k,850) * lu(k,1188)
6396 114070872 : lu(k,1206) = lu(k,1206) - lu(k,851) * lu(k,1188)
6397 114070872 : lu(k,1207) = lu(k,1207) - lu(k,852) * lu(k,1188)
6398 114070872 : lu(k,1208) = lu(k,1208) - lu(k,853) * lu(k,1188)
6399 114070872 : lu(k,1210) = lu(k,1210) - lu(k,854) * lu(k,1188)
6400 114070872 : lu(k,1211) = lu(k,1211) - lu(k,855) * lu(k,1188)
6401 114070872 : lu(k,1212) = - lu(k,856) * lu(k,1188)
6402 114070872 : lu(k,1213) = - lu(k,857) * lu(k,1188)
6403 114070872 : lu(k,1214) = - lu(k,858) * lu(k,1188)
6404 114070872 : lu(k,1215) = lu(k,1215) - lu(k,859) * lu(k,1188)
6405 114070872 : lu(k,1216) = lu(k,1216) - lu(k,860) * lu(k,1188)
6406 114070872 : lu(k,1217) = lu(k,1217) - lu(k,861) * lu(k,1188)
6407 114070872 : lu(k,1232) = lu(k,1232) - lu(k,834) * lu(k,1231)
6408 114070872 : lu(k,1233) = - lu(k,835) * lu(k,1231)
6409 114070872 : lu(k,1234) = lu(k,1234) - lu(k,836) * lu(k,1231)
6410 114070872 : lu(k,1235) = lu(k,1235) - lu(k,837) * lu(k,1231)
6411 114070872 : lu(k,1236) = lu(k,1236) - lu(k,838) * lu(k,1231)
6412 114070872 : lu(k,1237) = lu(k,1237) - lu(k,839) * lu(k,1231)
6413 114070872 : lu(k,1238) = - lu(k,840) * lu(k,1231)
6414 114070872 : lu(k,1239) = lu(k,1239) - lu(k,841) * lu(k,1231)
6415 114070872 : lu(k,1240) = lu(k,1240) - lu(k,842) * lu(k,1231)
6416 114070872 : lu(k,1241) = lu(k,1241) - lu(k,843) * lu(k,1231)
6417 114070872 : lu(k,1242) = lu(k,1242) - lu(k,844) * lu(k,1231)
6418 114070872 : lu(k,1243) = lu(k,1243) - lu(k,845) * lu(k,1231)
6419 114070872 : lu(k,1244) = lu(k,1244) - lu(k,846) * lu(k,1231)
6420 114070872 : lu(k,1245) = lu(k,1245) - lu(k,847) * lu(k,1231)
6421 114070872 : lu(k,1246) = lu(k,1246) - lu(k,848) * lu(k,1231)
6422 114070872 : lu(k,1247) = lu(k,1247) - lu(k,849) * lu(k,1231)
6423 114070872 : lu(k,1248) = lu(k,1248) - lu(k,850) * lu(k,1231)
6424 114070872 : lu(k,1249) = lu(k,1249) - lu(k,851) * lu(k,1231)
6425 114070872 : lu(k,1250) = lu(k,1250) - lu(k,852) * lu(k,1231)
6426 114070872 : lu(k,1251) = lu(k,1251) - lu(k,853) * lu(k,1231)
6427 114070872 : lu(k,1253) = lu(k,1253) - lu(k,854) * lu(k,1231)
6428 114070872 : lu(k,1254) = lu(k,1254) - lu(k,855) * lu(k,1231)
6429 114070872 : lu(k,1255) = - lu(k,856) * lu(k,1231)
6430 114070872 : lu(k,1256) = - lu(k,857) * lu(k,1231)
6431 114070872 : lu(k,1257) = - lu(k,858) * lu(k,1231)
6432 114070872 : lu(k,1258) = lu(k,1258) - lu(k,859) * lu(k,1231)
6433 114070872 : lu(k,1259) = lu(k,1259) - lu(k,860) * lu(k,1231)
6434 114070872 : lu(k,1260) = lu(k,1260) - lu(k,861) * lu(k,1231)
6435 114070872 : lu(k,1274) = lu(k,1274) - lu(k,834) * lu(k,1273)
6436 114070872 : lu(k,1275) = lu(k,1275) - lu(k,835) * lu(k,1273)
6437 114070872 : lu(k,1276) = lu(k,1276) - lu(k,836) * lu(k,1273)
6438 114070872 : lu(k,1277) = lu(k,1277) - lu(k,837) * lu(k,1273)
6439 114070872 : lu(k,1278) = lu(k,1278) - lu(k,838) * lu(k,1273)
6440 114070872 : lu(k,1279) = lu(k,1279) - lu(k,839) * lu(k,1273)
6441 114070872 : lu(k,1280) = lu(k,1280) - lu(k,840) * lu(k,1273)
6442 114070872 : lu(k,1281) = lu(k,1281) - lu(k,841) * lu(k,1273)
6443 114070872 : lu(k,1282) = lu(k,1282) - lu(k,842) * lu(k,1273)
6444 114070872 : lu(k,1283) = lu(k,1283) - lu(k,843) * lu(k,1273)
6445 114070872 : lu(k,1284) = lu(k,1284) - lu(k,844) * lu(k,1273)
6446 114070872 : lu(k,1285) = lu(k,1285) - lu(k,845) * lu(k,1273)
6447 114070872 : lu(k,1286) = lu(k,1286) - lu(k,846) * lu(k,1273)
6448 114070872 : lu(k,1287) = lu(k,1287) - lu(k,847) * lu(k,1273)
6449 114070872 : lu(k,1288) = lu(k,1288) - lu(k,848) * lu(k,1273)
6450 114070872 : lu(k,1289) = lu(k,1289) - lu(k,849) * lu(k,1273)
6451 114070872 : lu(k,1290) = lu(k,1290) - lu(k,850) * lu(k,1273)
6452 114070872 : lu(k,1291) = lu(k,1291) - lu(k,851) * lu(k,1273)
6453 114070872 : lu(k,1292) = lu(k,1292) - lu(k,852) * lu(k,1273)
6454 114070872 : lu(k,1293) = lu(k,1293) - lu(k,853) * lu(k,1273)
6455 114070872 : lu(k,1295) = lu(k,1295) - lu(k,854) * lu(k,1273)
6456 114070872 : lu(k,1296) = lu(k,1296) - lu(k,855) * lu(k,1273)
6457 114070872 : lu(k,1297) = lu(k,1297) - lu(k,856) * lu(k,1273)
6458 114070872 : lu(k,1298) = lu(k,1298) - lu(k,857) * lu(k,1273)
6459 114070872 : lu(k,1299) = lu(k,1299) - lu(k,858) * lu(k,1273)
6460 114070872 : lu(k,1300) = lu(k,1300) - lu(k,859) * lu(k,1273)
6461 114070872 : lu(k,1301) = lu(k,1301) - lu(k,860) * lu(k,1273)
6462 114070872 : lu(k,1302) = lu(k,1302) - lu(k,861) * lu(k,1273)
6463 114070872 : lu(k,1316) = lu(k,1316) - lu(k,834) * lu(k,1315)
6464 114070872 : lu(k,1317) = lu(k,1317) - lu(k,835) * lu(k,1315)
6465 114070872 : lu(k,1318) = lu(k,1318) - lu(k,836) * lu(k,1315)
6466 114070872 : lu(k,1319) = lu(k,1319) - lu(k,837) * lu(k,1315)
6467 114070872 : lu(k,1320) = lu(k,1320) - lu(k,838) * lu(k,1315)
6468 114070872 : lu(k,1321) = lu(k,1321) - lu(k,839) * lu(k,1315)
6469 114070872 : lu(k,1322) = - lu(k,840) * lu(k,1315)
6470 114070872 : lu(k,1323) = lu(k,1323) - lu(k,841) * lu(k,1315)
6471 114070872 : lu(k,1324) = lu(k,1324) - lu(k,842) * lu(k,1315)
6472 114070872 : lu(k,1325) = lu(k,1325) - lu(k,843) * lu(k,1315)
6473 114070872 : lu(k,1326) = lu(k,1326) - lu(k,844) * lu(k,1315)
6474 114070872 : lu(k,1327) = lu(k,1327) - lu(k,845) * lu(k,1315)
6475 114070872 : lu(k,1328) = lu(k,1328) - lu(k,846) * lu(k,1315)
6476 114070872 : lu(k,1329) = lu(k,1329) - lu(k,847) * lu(k,1315)
6477 114070872 : lu(k,1330) = lu(k,1330) - lu(k,848) * lu(k,1315)
6478 114070872 : lu(k,1331) = lu(k,1331) - lu(k,849) * lu(k,1315)
6479 114070872 : lu(k,1332) = lu(k,1332) - lu(k,850) * lu(k,1315)
6480 114070872 : lu(k,1333) = lu(k,1333) - lu(k,851) * lu(k,1315)
6481 114070872 : lu(k,1334) = lu(k,1334) - lu(k,852) * lu(k,1315)
6482 114070872 : lu(k,1335) = lu(k,1335) - lu(k,853) * lu(k,1315)
6483 114070872 : lu(k,1337) = lu(k,1337) - lu(k,854) * lu(k,1315)
6484 114070872 : lu(k,1338) = lu(k,1338) - lu(k,855) * lu(k,1315)
6485 114070872 : lu(k,1339) = - lu(k,856) * lu(k,1315)
6486 114070872 : lu(k,1340) = - lu(k,857) * lu(k,1315)
6487 114070872 : lu(k,1341) = - lu(k,858) * lu(k,1315)
6488 114070872 : lu(k,1342) = lu(k,1342) - lu(k,859) * lu(k,1315)
6489 114070872 : lu(k,1343) = lu(k,1343) - lu(k,860) * lu(k,1315)
6490 114070872 : lu(k,1344) = lu(k,1344) - lu(k,861) * lu(k,1315)
6491 114070872 : lu(k,1376) = lu(k,1376) - lu(k,834) * lu(k,1375)
6492 114070872 : lu(k,1377) = lu(k,1377) - lu(k,835) * lu(k,1375)
6493 114070872 : lu(k,1378) = lu(k,1378) - lu(k,836) * lu(k,1375)
6494 114070872 : lu(k,1379) = lu(k,1379) - lu(k,837) * lu(k,1375)
6495 114070872 : lu(k,1380) = lu(k,1380) - lu(k,838) * lu(k,1375)
6496 114070872 : lu(k,1381) = lu(k,1381) - lu(k,839) * lu(k,1375)
6497 114070872 : lu(k,1382) = lu(k,1382) - lu(k,840) * lu(k,1375)
6498 114070872 : lu(k,1383) = lu(k,1383) - lu(k,841) * lu(k,1375)
6499 114070872 : lu(k,1384) = lu(k,1384) - lu(k,842) * lu(k,1375)
6500 114070872 : lu(k,1385) = lu(k,1385) - lu(k,843) * lu(k,1375)
6501 114070872 : lu(k,1386) = lu(k,1386) - lu(k,844) * lu(k,1375)
6502 114070872 : lu(k,1387) = lu(k,1387) - lu(k,845) * lu(k,1375)
6503 114070872 : lu(k,1388) = lu(k,1388) - lu(k,846) * lu(k,1375)
6504 114070872 : lu(k,1389) = lu(k,1389) - lu(k,847) * lu(k,1375)
6505 114070872 : lu(k,1390) = lu(k,1390) - lu(k,848) * lu(k,1375)
6506 114070872 : lu(k,1391) = lu(k,1391) - lu(k,849) * lu(k,1375)
6507 114070872 : lu(k,1392) = lu(k,1392) - lu(k,850) * lu(k,1375)
6508 114070872 : lu(k,1393) = lu(k,1393) - lu(k,851) * lu(k,1375)
6509 114070872 : lu(k,1394) = lu(k,1394) - lu(k,852) * lu(k,1375)
6510 114070872 : lu(k,1395) = lu(k,1395) - lu(k,853) * lu(k,1375)
6511 114070872 : lu(k,1397) = lu(k,1397) - lu(k,854) * lu(k,1375)
6512 114070872 : lu(k,1398) = lu(k,1398) - lu(k,855) * lu(k,1375)
6513 114070872 : lu(k,1399) = lu(k,1399) - lu(k,856) * lu(k,1375)
6514 114070872 : lu(k,1400) = lu(k,1400) - lu(k,857) * lu(k,1375)
6515 114070872 : lu(k,1401) = lu(k,1401) - lu(k,858) * lu(k,1375)
6516 114070872 : lu(k,1402) = lu(k,1402) - lu(k,859) * lu(k,1375)
6517 114070872 : lu(k,1403) = lu(k,1403) - lu(k,860) * lu(k,1375)
6518 114070872 : lu(k,1404) = lu(k,1404) - lu(k,861) * lu(k,1375)
6519 114070872 : lu(k,1425) = lu(k,1425) - lu(k,834) * lu(k,1424)
6520 114070872 : lu(k,1426) = lu(k,1426) - lu(k,835) * lu(k,1424)
6521 114070872 : lu(k,1427) = lu(k,1427) - lu(k,836) * lu(k,1424)
6522 114070872 : lu(k,1428) = lu(k,1428) - lu(k,837) * lu(k,1424)
6523 114070872 : lu(k,1429) = lu(k,1429) - lu(k,838) * lu(k,1424)
6524 114070872 : lu(k,1430) = lu(k,1430) - lu(k,839) * lu(k,1424)
6525 114070872 : lu(k,1431) = lu(k,1431) - lu(k,840) * lu(k,1424)
6526 114070872 : lu(k,1432) = lu(k,1432) - lu(k,841) * lu(k,1424)
6527 114070872 : lu(k,1433) = - lu(k,842) * lu(k,1424)
6528 114070872 : lu(k,1434) = lu(k,1434) - lu(k,843) * lu(k,1424)
6529 114070872 : lu(k,1435) = lu(k,1435) - lu(k,844) * lu(k,1424)
6530 114070872 : lu(k,1436) = - lu(k,845) * lu(k,1424)
6531 114070872 : lu(k,1437) = lu(k,1437) - lu(k,846) * lu(k,1424)
6532 114070872 : lu(k,1438) = lu(k,1438) - lu(k,847) * lu(k,1424)
6533 114070872 : lu(k,1439) = lu(k,1439) - lu(k,848) * lu(k,1424)
6534 114070872 : lu(k,1440) = lu(k,1440) - lu(k,849) * lu(k,1424)
6535 114070872 : lu(k,1441) = lu(k,1441) - lu(k,850) * lu(k,1424)
6536 114070872 : lu(k,1442) = lu(k,1442) - lu(k,851) * lu(k,1424)
6537 114070872 : lu(k,1443) = - lu(k,852) * lu(k,1424)
6538 114070872 : lu(k,1444) = - lu(k,853) * lu(k,1424)
6539 114070872 : lu(k,1446) = lu(k,1446) - lu(k,854) * lu(k,1424)
6540 114070872 : lu(k,1447) = lu(k,1447) - lu(k,855) * lu(k,1424)
6541 114070872 : lu(k,1448) = lu(k,1448) - lu(k,856) * lu(k,1424)
6542 114070872 : lu(k,1449) = lu(k,1449) - lu(k,857) * lu(k,1424)
6543 114070872 : lu(k,1450) = lu(k,1450) - lu(k,858) * lu(k,1424)
6544 114070872 : lu(k,1451) = lu(k,1451) - lu(k,859) * lu(k,1424)
6545 114070872 : lu(k,1452) = lu(k,1452) - lu(k,860) * lu(k,1424)
6546 114070872 : lu(k,1453) = lu(k,1453) - lu(k,861) * lu(k,1424)
6547 114070872 : lu(k,1473) = lu(k,1473) - lu(k,834) * lu(k,1472)
6548 114070872 : lu(k,1474) = lu(k,1474) - lu(k,835) * lu(k,1472)
6549 114070872 : lu(k,1475) = lu(k,1475) - lu(k,836) * lu(k,1472)
6550 114070872 : lu(k,1476) = lu(k,1476) - lu(k,837) * lu(k,1472)
6551 114070872 : lu(k,1477) = lu(k,1477) - lu(k,838) * lu(k,1472)
6552 114070872 : lu(k,1478) = lu(k,1478) - lu(k,839) * lu(k,1472)
6553 114070872 : lu(k,1479) = lu(k,1479) - lu(k,840) * lu(k,1472)
6554 114070872 : lu(k,1480) = lu(k,1480) - lu(k,841) * lu(k,1472)
6555 114070872 : lu(k,1481) = lu(k,1481) - lu(k,842) * lu(k,1472)
6556 114070872 : lu(k,1482) = lu(k,1482) - lu(k,843) * lu(k,1472)
6557 114070872 : lu(k,1483) = lu(k,1483) - lu(k,844) * lu(k,1472)
6558 114070872 : lu(k,1484) = lu(k,1484) - lu(k,845) * lu(k,1472)
6559 114070872 : lu(k,1485) = lu(k,1485) - lu(k,846) * lu(k,1472)
6560 114070872 : lu(k,1486) = lu(k,1486) - lu(k,847) * lu(k,1472)
6561 114070872 : lu(k,1487) = lu(k,1487) - lu(k,848) * lu(k,1472)
6562 114070872 : lu(k,1488) = lu(k,1488) - lu(k,849) * lu(k,1472)
6563 114070872 : lu(k,1489) = lu(k,1489) - lu(k,850) * lu(k,1472)
6564 114070872 : lu(k,1490) = lu(k,1490) - lu(k,851) * lu(k,1472)
6565 114070872 : lu(k,1491) = lu(k,1491) - lu(k,852) * lu(k,1472)
6566 114070872 : lu(k,1492) = lu(k,1492) - lu(k,853) * lu(k,1472)
6567 114070872 : lu(k,1494) = lu(k,1494) - lu(k,854) * lu(k,1472)
6568 114070872 : lu(k,1495) = lu(k,1495) - lu(k,855) * lu(k,1472)
6569 114070872 : lu(k,1496) = lu(k,1496) - lu(k,856) * lu(k,1472)
6570 114070872 : lu(k,1497) = lu(k,1497) - lu(k,857) * lu(k,1472)
6571 114070872 : lu(k,1498) = lu(k,1498) - lu(k,858) * lu(k,1472)
6572 114070872 : lu(k,1499) = lu(k,1499) - lu(k,859) * lu(k,1472)
6573 114070872 : lu(k,1500) = lu(k,1500) - lu(k,860) * lu(k,1472)
6574 114070872 : lu(k,1501) = lu(k,1501) - lu(k,861) * lu(k,1472)
6575 114070872 : lu(k,1550) = lu(k,1550) - lu(k,834) * lu(k,1549)
6576 114070872 : lu(k,1551) = lu(k,1551) - lu(k,835) * lu(k,1549)
6577 114070872 : lu(k,1552) = lu(k,1552) - lu(k,836) * lu(k,1549)
6578 114070872 : lu(k,1553) = lu(k,1553) - lu(k,837) * lu(k,1549)
6579 114070872 : lu(k,1554) = lu(k,1554) - lu(k,838) * lu(k,1549)
6580 114070872 : lu(k,1555) = lu(k,1555) - lu(k,839) * lu(k,1549)
6581 114070872 : lu(k,1556) = lu(k,1556) - lu(k,840) * lu(k,1549)
6582 114070872 : lu(k,1557) = lu(k,1557) - lu(k,841) * lu(k,1549)
6583 114070872 : lu(k,1558) = lu(k,1558) - lu(k,842) * lu(k,1549)
6584 114070872 : lu(k,1559) = lu(k,1559) - lu(k,843) * lu(k,1549)
6585 114070872 : lu(k,1560) = lu(k,1560) - lu(k,844) * lu(k,1549)
6586 114070872 : lu(k,1561) = lu(k,1561) - lu(k,845) * lu(k,1549)
6587 114070872 : lu(k,1562) = lu(k,1562) - lu(k,846) * lu(k,1549)
6588 114070872 : lu(k,1563) = lu(k,1563) - lu(k,847) * lu(k,1549)
6589 114070872 : lu(k,1564) = lu(k,1564) - lu(k,848) * lu(k,1549)
6590 114070872 : lu(k,1565) = lu(k,1565) - lu(k,849) * lu(k,1549)
6591 114070872 : lu(k,1566) = lu(k,1566) - lu(k,850) * lu(k,1549)
6592 114070872 : lu(k,1567) = lu(k,1567) - lu(k,851) * lu(k,1549)
6593 114070872 : lu(k,1568) = lu(k,1568) - lu(k,852) * lu(k,1549)
6594 114070872 : lu(k,1569) = lu(k,1569) - lu(k,853) * lu(k,1549)
6595 114070872 : lu(k,1571) = lu(k,1571) - lu(k,854) * lu(k,1549)
6596 114070872 : lu(k,1572) = lu(k,1572) - lu(k,855) * lu(k,1549)
6597 114070872 : lu(k,1573) = lu(k,1573) - lu(k,856) * lu(k,1549)
6598 114070872 : lu(k,1574) = lu(k,1574) - lu(k,857) * lu(k,1549)
6599 114070872 : lu(k,1575) = lu(k,1575) - lu(k,858) * lu(k,1549)
6600 114070872 : lu(k,1576) = lu(k,1576) - lu(k,859) * lu(k,1549)
6601 114070872 : lu(k,1577) = lu(k,1577) - lu(k,860) * lu(k,1549)
6602 114070872 : lu(k,1578) = lu(k,1578) - lu(k,861) * lu(k,1549)
6603 114070872 : lu(k,1595) = lu(k,1595) - lu(k,834) * lu(k,1594)
6604 114070872 : lu(k,1596) = lu(k,1596) - lu(k,835) * lu(k,1594)
6605 114070872 : lu(k,1597) = lu(k,1597) - lu(k,836) * lu(k,1594)
6606 114070872 : lu(k,1598) = lu(k,1598) - lu(k,837) * lu(k,1594)
6607 114070872 : lu(k,1599) = lu(k,1599) - lu(k,838) * lu(k,1594)
6608 114070872 : lu(k,1600) = lu(k,1600) - lu(k,839) * lu(k,1594)
6609 114070872 : lu(k,1601) = lu(k,1601) - lu(k,840) * lu(k,1594)
6610 114070872 : lu(k,1602) = lu(k,1602) - lu(k,841) * lu(k,1594)
6611 114070872 : lu(k,1603) = lu(k,1603) - lu(k,842) * lu(k,1594)
6612 114070872 : lu(k,1604) = lu(k,1604) - lu(k,843) * lu(k,1594)
6613 114070872 : lu(k,1605) = lu(k,1605) - lu(k,844) * lu(k,1594)
6614 114070872 : lu(k,1606) = lu(k,1606) - lu(k,845) * lu(k,1594)
6615 114070872 : lu(k,1607) = lu(k,1607) - lu(k,846) * lu(k,1594)
6616 114070872 : lu(k,1608) = lu(k,1608) - lu(k,847) * lu(k,1594)
6617 114070872 : lu(k,1609) = lu(k,1609) - lu(k,848) * lu(k,1594)
6618 114070872 : lu(k,1610) = lu(k,1610) - lu(k,849) * lu(k,1594)
6619 114070872 : lu(k,1611) = lu(k,1611) - lu(k,850) * lu(k,1594)
6620 114070872 : lu(k,1612) = lu(k,1612) - lu(k,851) * lu(k,1594)
6621 114070872 : lu(k,1613) = lu(k,1613) - lu(k,852) * lu(k,1594)
6622 114070872 : lu(k,1614) = lu(k,1614) - lu(k,853) * lu(k,1594)
6623 114070872 : lu(k,1616) = lu(k,1616) - lu(k,854) * lu(k,1594)
6624 114070872 : lu(k,1617) = lu(k,1617) - lu(k,855) * lu(k,1594)
6625 114070872 : lu(k,1618) = lu(k,1618) - lu(k,856) * lu(k,1594)
6626 114070872 : lu(k,1619) = lu(k,1619) - lu(k,857) * lu(k,1594)
6627 114070872 : lu(k,1620) = lu(k,1620) - lu(k,858) * lu(k,1594)
6628 114070872 : lu(k,1621) = lu(k,1621) - lu(k,859) * lu(k,1594)
6629 114070872 : lu(k,1622) = lu(k,1622) - lu(k,860) * lu(k,1594)
6630 114070872 : lu(k,1623) = lu(k,1623) - lu(k,861) * lu(k,1594)
6631 114070872 : lu(k,1638) = lu(k,1638) - lu(k,834) * lu(k,1637)
6632 114070872 : lu(k,1639) = - lu(k,835) * lu(k,1637)
6633 114070872 : lu(k,1640) = lu(k,1640) - lu(k,836) * lu(k,1637)
6634 114070872 : lu(k,1641) = lu(k,1641) - lu(k,837) * lu(k,1637)
6635 114070872 : lu(k,1642) = lu(k,1642) - lu(k,838) * lu(k,1637)
6636 114070872 : lu(k,1643) = lu(k,1643) - lu(k,839) * lu(k,1637)
6637 114070872 : lu(k,1644) = - lu(k,840) * lu(k,1637)
6638 114070872 : lu(k,1645) = lu(k,1645) - lu(k,841) * lu(k,1637)
6639 114070872 : lu(k,1646) = lu(k,1646) - lu(k,842) * lu(k,1637)
6640 114070872 : lu(k,1647) = lu(k,1647) - lu(k,843) * lu(k,1637)
6641 114070872 : lu(k,1648) = lu(k,1648) - lu(k,844) * lu(k,1637)
6642 114070872 : lu(k,1649) = lu(k,1649) - lu(k,845) * lu(k,1637)
6643 114070872 : lu(k,1650) = lu(k,1650) - lu(k,846) * lu(k,1637)
6644 114070872 : lu(k,1651) = lu(k,1651) - lu(k,847) * lu(k,1637)
6645 114070872 : lu(k,1652) = lu(k,1652) - lu(k,848) * lu(k,1637)
6646 114070872 : lu(k,1653) = lu(k,1653) - lu(k,849) * lu(k,1637)
6647 114070872 : lu(k,1654) = lu(k,1654) - lu(k,850) * lu(k,1637)
6648 114070872 : lu(k,1655) = lu(k,1655) - lu(k,851) * lu(k,1637)
6649 114070872 : lu(k,1656) = lu(k,1656) - lu(k,852) * lu(k,1637)
6650 114070872 : lu(k,1657) = lu(k,1657) - lu(k,853) * lu(k,1637)
6651 114070872 : lu(k,1659) = lu(k,1659) - lu(k,854) * lu(k,1637)
6652 114070872 : lu(k,1660) = lu(k,1660) - lu(k,855) * lu(k,1637)
6653 114070872 : lu(k,1661) = - lu(k,856) * lu(k,1637)
6654 114070872 : lu(k,1662) = - lu(k,857) * lu(k,1637)
6655 114070872 : lu(k,1663) = - lu(k,858) * lu(k,1637)
6656 114070872 : lu(k,1664) = lu(k,1664) - lu(k,859) * lu(k,1637)
6657 114070872 : lu(k,1665) = lu(k,1665) - lu(k,860) * lu(k,1637)
6658 114070872 : lu(k,1666) = lu(k,1666) - lu(k,861) * lu(k,1637)
6659 114070872 : lu(k,1681) = lu(k,1681) - lu(k,834) * lu(k,1680)
6660 114070872 : lu(k,1682) = - lu(k,835) * lu(k,1680)
6661 114070872 : lu(k,1683) = lu(k,1683) - lu(k,836) * lu(k,1680)
6662 114070872 : lu(k,1684) = lu(k,1684) - lu(k,837) * lu(k,1680)
6663 114070872 : lu(k,1685) = lu(k,1685) - lu(k,838) * lu(k,1680)
6664 114070872 : lu(k,1686) = lu(k,1686) - lu(k,839) * lu(k,1680)
6665 114070872 : lu(k,1687) = - lu(k,840) * lu(k,1680)
6666 114070872 : lu(k,1688) = lu(k,1688) - lu(k,841) * lu(k,1680)
6667 114070872 : lu(k,1689) = lu(k,1689) - lu(k,842) * lu(k,1680)
6668 114070872 : lu(k,1690) = lu(k,1690) - lu(k,843) * lu(k,1680)
6669 114070872 : lu(k,1691) = lu(k,1691) - lu(k,844) * lu(k,1680)
6670 114070872 : lu(k,1692) = lu(k,1692) - lu(k,845) * lu(k,1680)
6671 114070872 : lu(k,1693) = lu(k,1693) - lu(k,846) * lu(k,1680)
6672 114070872 : lu(k,1694) = lu(k,1694) - lu(k,847) * lu(k,1680)
6673 114070872 : lu(k,1695) = lu(k,1695) - lu(k,848) * lu(k,1680)
6674 114070872 : lu(k,1696) = lu(k,1696) - lu(k,849) * lu(k,1680)
6675 114070872 : lu(k,1697) = lu(k,1697) - lu(k,850) * lu(k,1680)
6676 114070872 : lu(k,1698) = lu(k,1698) - lu(k,851) * lu(k,1680)
6677 114070872 : lu(k,1699) = lu(k,1699) - lu(k,852) * lu(k,1680)
6678 114070872 : lu(k,1700) = lu(k,1700) - lu(k,853) * lu(k,1680)
6679 114070872 : lu(k,1702) = lu(k,1702) - lu(k,854) * lu(k,1680)
6680 114070872 : lu(k,1703) = lu(k,1703) - lu(k,855) * lu(k,1680)
6681 114070872 : lu(k,1704) = - lu(k,856) * lu(k,1680)
6682 114070872 : lu(k,1705) = - lu(k,857) * lu(k,1680)
6683 114070872 : lu(k,1706) = - lu(k,858) * lu(k,1680)
6684 114070872 : lu(k,1707) = lu(k,1707) - lu(k,859) * lu(k,1680)
6685 114070872 : lu(k,1708) = lu(k,1708) - lu(k,860) * lu(k,1680)
6686 114070872 : lu(k,1709) = lu(k,1709) - lu(k,861) * lu(k,1680)
6687 114070872 : lu(k,1757) = lu(k,1757) - lu(k,834) * lu(k,1756)
6688 114070872 : lu(k,1758) = lu(k,1758) - lu(k,835) * lu(k,1756)
6689 114070872 : lu(k,1759) = lu(k,1759) - lu(k,836) * lu(k,1756)
6690 114070872 : lu(k,1760) = lu(k,1760) - lu(k,837) * lu(k,1756)
6691 114070872 : lu(k,1761) = lu(k,1761) - lu(k,838) * lu(k,1756)
6692 114070872 : lu(k,1762) = lu(k,1762) - lu(k,839) * lu(k,1756)
6693 114070872 : lu(k,1763) = lu(k,1763) - lu(k,840) * lu(k,1756)
6694 114070872 : lu(k,1764) = lu(k,1764) - lu(k,841) * lu(k,1756)
6695 114070872 : lu(k,1765) = lu(k,1765) - lu(k,842) * lu(k,1756)
6696 114070872 : lu(k,1766) = lu(k,1766) - lu(k,843) * lu(k,1756)
6697 114070872 : lu(k,1767) = lu(k,1767) - lu(k,844) * lu(k,1756)
6698 114070872 : lu(k,1768) = lu(k,1768) - lu(k,845) * lu(k,1756)
6699 114070872 : lu(k,1769) = lu(k,1769) - lu(k,846) * lu(k,1756)
6700 114070872 : lu(k,1770) = lu(k,1770) - lu(k,847) * lu(k,1756)
6701 114070872 : lu(k,1771) = lu(k,1771) - lu(k,848) * lu(k,1756)
6702 114070872 : lu(k,1772) = lu(k,1772) - lu(k,849) * lu(k,1756)
6703 114070872 : lu(k,1773) = lu(k,1773) - lu(k,850) * lu(k,1756)
6704 114070872 : lu(k,1774) = lu(k,1774) - lu(k,851) * lu(k,1756)
6705 114070872 : lu(k,1775) = lu(k,1775) - lu(k,852) * lu(k,1756)
6706 114070872 : lu(k,1776) = lu(k,1776) - lu(k,853) * lu(k,1756)
6707 114070872 : lu(k,1778) = lu(k,1778) - lu(k,854) * lu(k,1756)
6708 114070872 : lu(k,1779) = lu(k,1779) - lu(k,855) * lu(k,1756)
6709 114070872 : lu(k,1780) = lu(k,1780) - lu(k,856) * lu(k,1756)
6710 114070872 : lu(k,1781) = lu(k,1781) - lu(k,857) * lu(k,1756)
6711 114070872 : lu(k,1782) = lu(k,1782) - lu(k,858) * lu(k,1756)
6712 114070872 : lu(k,1783) = lu(k,1783) - lu(k,859) * lu(k,1756)
6713 114070872 : lu(k,1784) = lu(k,1784) - lu(k,860) * lu(k,1756)
6714 114070872 : lu(k,1785) = lu(k,1785) - lu(k,861) * lu(k,1756)
6715 114070872 : lu(k,1915) = lu(k,1915) - lu(k,834) * lu(k,1914)
6716 114070872 : lu(k,1916) = lu(k,1916) - lu(k,835) * lu(k,1914)
6717 114070872 : lu(k,1917) = lu(k,1917) - lu(k,836) * lu(k,1914)
6718 114070872 : lu(k,1918) = lu(k,1918) - lu(k,837) * lu(k,1914)
6719 114070872 : lu(k,1919) = lu(k,1919) - lu(k,838) * lu(k,1914)
6720 114070872 : lu(k,1920) = lu(k,1920) - lu(k,839) * lu(k,1914)
6721 114070872 : lu(k,1921) = lu(k,1921) - lu(k,840) * lu(k,1914)
6722 114070872 : lu(k,1922) = - lu(k,841) * lu(k,1914)
6723 114070872 : lu(k,1923) = - lu(k,842) * lu(k,1914)
6724 114070872 : lu(k,1924) = lu(k,1924) - lu(k,843) * lu(k,1914)
6725 114070872 : lu(k,1925) = lu(k,1925) - lu(k,844) * lu(k,1914)
6726 114070872 : lu(k,1926) = - lu(k,845) * lu(k,1914)
6727 114070872 : lu(k,1927) = lu(k,1927) - lu(k,846) * lu(k,1914)
6728 114070872 : lu(k,1928) = lu(k,1928) - lu(k,847) * lu(k,1914)
6729 114070872 : lu(k,1929) = lu(k,1929) - lu(k,848) * lu(k,1914)
6730 114070872 : lu(k,1930) = lu(k,1930) - lu(k,849) * lu(k,1914)
6731 114070872 : lu(k,1931) = lu(k,1931) - lu(k,850) * lu(k,1914)
6732 114070872 : lu(k,1932) = lu(k,1932) - lu(k,851) * lu(k,1914)
6733 114070872 : lu(k,1933) = - lu(k,852) * lu(k,1914)
6734 114070872 : lu(k,1934) = - lu(k,853) * lu(k,1914)
6735 114070872 : lu(k,1936) = lu(k,1936) - lu(k,854) * lu(k,1914)
6736 114070872 : lu(k,1937) = lu(k,1937) - lu(k,855) * lu(k,1914)
6737 114070872 : lu(k,1938) = lu(k,1938) - lu(k,856) * lu(k,1914)
6738 114070872 : lu(k,1939) = lu(k,1939) - lu(k,857) * lu(k,1914)
6739 114070872 : lu(k,1940) = lu(k,1940) - lu(k,858) * lu(k,1914)
6740 114070872 : lu(k,1941) = lu(k,1941) - lu(k,859) * lu(k,1914)
6741 114070872 : lu(k,1942) = lu(k,1942) - lu(k,860) * lu(k,1914)
6742 114070872 : lu(k,1943) = lu(k,1943) - lu(k,861) * lu(k,1914)
6743 114070872 : lu(k,2002) = lu(k,2002) - lu(k,834) * lu(k,2001)
6744 114070872 : lu(k,2003) = lu(k,2003) - lu(k,835) * lu(k,2001)
6745 114070872 : lu(k,2004) = lu(k,2004) - lu(k,836) * lu(k,2001)
6746 114070872 : lu(k,2005) = lu(k,2005) - lu(k,837) * lu(k,2001)
6747 114070872 : lu(k,2006) = - lu(k,838) * lu(k,2001)
6748 114070872 : lu(k,2007) = lu(k,2007) - lu(k,839) * lu(k,2001)
6749 114070872 : lu(k,2008) = lu(k,2008) - lu(k,840) * lu(k,2001)
6750 114070872 : lu(k,2009) = lu(k,2009) - lu(k,841) * lu(k,2001)
6751 114070872 : lu(k,2010) = lu(k,2010) - lu(k,842) * lu(k,2001)
6752 114070872 : lu(k,2011) = lu(k,2011) - lu(k,843) * lu(k,2001)
6753 114070872 : lu(k,2012) = lu(k,2012) - lu(k,844) * lu(k,2001)
6754 114070872 : lu(k,2013) = lu(k,2013) - lu(k,845) * lu(k,2001)
6755 114070872 : lu(k,2014) = lu(k,2014) - lu(k,846) * lu(k,2001)
6756 114070872 : lu(k,2015) = lu(k,2015) - lu(k,847) * lu(k,2001)
6757 114070872 : lu(k,2016) = lu(k,2016) - lu(k,848) * lu(k,2001)
6758 114070872 : lu(k,2017) = lu(k,2017) - lu(k,849) * lu(k,2001)
6759 114070872 : lu(k,2018) = lu(k,2018) - lu(k,850) * lu(k,2001)
6760 114070872 : lu(k,2019) = lu(k,2019) - lu(k,851) * lu(k,2001)
6761 114070872 : lu(k,2020) = lu(k,2020) - lu(k,852) * lu(k,2001)
6762 114070872 : lu(k,2021) = lu(k,2021) - lu(k,853) * lu(k,2001)
6763 114070872 : lu(k,2023) = lu(k,2023) - lu(k,854) * lu(k,2001)
6764 114070872 : lu(k,2024) = lu(k,2024) - lu(k,855) * lu(k,2001)
6765 114070872 : lu(k,2025) = lu(k,2025) - lu(k,856) * lu(k,2001)
6766 114070872 : lu(k,2026) = lu(k,2026) - lu(k,857) * lu(k,2001)
6767 114070872 : lu(k,2027) = lu(k,2027) - lu(k,858) * lu(k,2001)
6768 114070872 : lu(k,2028) = lu(k,2028) - lu(k,859) * lu(k,2001)
6769 114070872 : lu(k,2029) = lu(k,2029) - lu(k,860) * lu(k,2001)
6770 117656469 : lu(k,2030) = lu(k,2030) - lu(k,861) * lu(k,2001)
6771 : end do
6772 3585597 : end subroutine lu_fac19
6773 3585597 : subroutine lu_fac20( avec_len, lu )
6774 : use chem_mods, only : nzcnt
6775 : use shr_kind_mod, only : r8 => shr_kind_r8
6776 : implicit none
6777 : !-----------------------------------------------------------------------
6778 : ! ... dummy args
6779 : !-----------------------------------------------------------------------
6780 : integer, intent(in) :: avec_len
6781 : real(r8), intent(inout) :: lu(veclen,nzcnt)
6782 : !-----------------------------------------------------------------------
6783 : ! ... local variables
6784 : !-----------------------------------------------------------------------
6785 : integer :: k
6786 117656469 : do k = 1,avec_len
6787 114070872 : lu(k,866) = 1._r8 / lu(k,866)
6788 114070872 : lu(k,867) = lu(k,867) * lu(k,866)
6789 114070872 : lu(k,868) = lu(k,868) * lu(k,866)
6790 114070872 : lu(k,869) = lu(k,869) * lu(k,866)
6791 114070872 : lu(k,870) = lu(k,870) * lu(k,866)
6792 114070872 : lu(k,871) = lu(k,871) * lu(k,866)
6793 114070872 : lu(k,872) = lu(k,872) * lu(k,866)
6794 114070872 : lu(k,873) = lu(k,873) * lu(k,866)
6795 114070872 : lu(k,874) = lu(k,874) * lu(k,866)
6796 114070872 : lu(k,875) = lu(k,875) * lu(k,866)
6797 114070872 : lu(k,876) = lu(k,876) * lu(k,866)
6798 114070872 : lu(k,877) = lu(k,877) * lu(k,866)
6799 114070872 : lu(k,878) = lu(k,878) * lu(k,866)
6800 114070872 : lu(k,879) = lu(k,879) * lu(k,866)
6801 114070872 : lu(k,880) = lu(k,880) * lu(k,866)
6802 114070872 : lu(k,881) = lu(k,881) * lu(k,866)
6803 114070872 : lu(k,882) = lu(k,882) * lu(k,866)
6804 114070872 : lu(k,883) = lu(k,883) * lu(k,866)
6805 114070872 : lu(k,884) = lu(k,884) * lu(k,866)
6806 114070872 : lu(k,885) = lu(k,885) * lu(k,866)
6807 114070872 : lu(k,886) = lu(k,886) * lu(k,866)
6808 114070872 : lu(k,926) = lu(k,926) - lu(k,867) * lu(k,925)
6809 114070872 : lu(k,928) = lu(k,928) - lu(k,868) * lu(k,925)
6810 114070872 : lu(k,930) = lu(k,930) - lu(k,869) * lu(k,925)
6811 114070872 : lu(k,931) = lu(k,931) - lu(k,870) * lu(k,925)
6812 114070872 : lu(k,932) = lu(k,932) - lu(k,871) * lu(k,925)
6813 114070872 : lu(k,933) = lu(k,933) - lu(k,872) * lu(k,925)
6814 114070872 : lu(k,934) = - lu(k,873) * lu(k,925)
6815 114070872 : lu(k,935) = lu(k,935) - lu(k,874) * lu(k,925)
6816 114070872 : lu(k,936) = lu(k,936) - lu(k,875) * lu(k,925)
6817 114070872 : lu(k,937) = lu(k,937) - lu(k,876) * lu(k,925)
6818 114070872 : lu(k,938) = lu(k,938) - lu(k,877) * lu(k,925)
6819 114070872 : lu(k,939) = lu(k,939) - lu(k,878) * lu(k,925)
6820 114070872 : lu(k,940) = lu(k,940) - lu(k,879) * lu(k,925)
6821 114070872 : lu(k,941) = lu(k,941) - lu(k,880) * lu(k,925)
6822 114070872 : lu(k,942) = lu(k,942) - lu(k,881) * lu(k,925)
6823 114070872 : lu(k,943) = lu(k,943) - lu(k,882) * lu(k,925)
6824 114070872 : lu(k,945) = lu(k,945) - lu(k,883) * lu(k,925)
6825 114070872 : lu(k,946) = lu(k,946) - lu(k,884) * lu(k,925)
6826 114070872 : lu(k,947) = lu(k,947) - lu(k,885) * lu(k,925)
6827 114070872 : lu(k,948) = lu(k,948) - lu(k,886) * lu(k,925)
6828 114070872 : lu(k,1012) = lu(k,1012) - lu(k,867) * lu(k,1011)
6829 114070872 : lu(k,1015) = lu(k,1015) - lu(k,868) * lu(k,1011)
6830 114070872 : lu(k,1017) = lu(k,1017) - lu(k,869) * lu(k,1011)
6831 114070872 : lu(k,1018) = lu(k,1018) - lu(k,870) * lu(k,1011)
6832 114070872 : lu(k,1019) = lu(k,1019) - lu(k,871) * lu(k,1011)
6833 114070872 : lu(k,1021) = lu(k,1021) - lu(k,872) * lu(k,1011)
6834 114070872 : lu(k,1022) = lu(k,1022) - lu(k,873) * lu(k,1011)
6835 114070872 : lu(k,1023) = lu(k,1023) - lu(k,874) * lu(k,1011)
6836 114070872 : lu(k,1024) = lu(k,1024) - lu(k,875) * lu(k,1011)
6837 114070872 : lu(k,1025) = lu(k,1025) - lu(k,876) * lu(k,1011)
6838 114070872 : lu(k,1027) = lu(k,1027) - lu(k,877) * lu(k,1011)
6839 114070872 : lu(k,1028) = lu(k,1028) - lu(k,878) * lu(k,1011)
6840 114070872 : lu(k,1029) = lu(k,1029) - lu(k,879) * lu(k,1011)
6841 114070872 : lu(k,1030) = lu(k,1030) - lu(k,880) * lu(k,1011)
6842 114070872 : lu(k,1031) = lu(k,1031) - lu(k,881) * lu(k,1011)
6843 114070872 : lu(k,1032) = lu(k,1032) - lu(k,882) * lu(k,1011)
6844 114070872 : lu(k,1035) = lu(k,1035) - lu(k,883) * lu(k,1011)
6845 114070872 : lu(k,1036) = lu(k,1036) - lu(k,884) * lu(k,1011)
6846 114070872 : lu(k,1037) = lu(k,1037) - lu(k,885) * lu(k,1011)
6847 114070872 : lu(k,1038) = lu(k,1038) - lu(k,886) * lu(k,1011)
6848 114070872 : lu(k,1100) = lu(k,1100) - lu(k,867) * lu(k,1098)
6849 114070872 : lu(k,1103) = lu(k,1103) - lu(k,868) * lu(k,1098)
6850 114070872 : lu(k,1105) = lu(k,1105) - lu(k,869) * lu(k,1098)
6851 114070872 : lu(k,1106) = lu(k,1106) - lu(k,870) * lu(k,1098)
6852 114070872 : lu(k,1107) = lu(k,1107) - lu(k,871) * lu(k,1098)
6853 114070872 : lu(k,1109) = lu(k,1109) - lu(k,872) * lu(k,1098)
6854 114070872 : lu(k,1110) = lu(k,1110) - lu(k,873) * lu(k,1098)
6855 114070872 : lu(k,1111) = lu(k,1111) - lu(k,874) * lu(k,1098)
6856 114070872 : lu(k,1112) = lu(k,1112) - lu(k,875) * lu(k,1098)
6857 114070872 : lu(k,1113) = lu(k,1113) - lu(k,876) * lu(k,1098)
6858 114070872 : lu(k,1115) = lu(k,1115) - lu(k,877) * lu(k,1098)
6859 114070872 : lu(k,1116) = lu(k,1116) - lu(k,878) * lu(k,1098)
6860 114070872 : lu(k,1117) = lu(k,1117) - lu(k,879) * lu(k,1098)
6861 114070872 : lu(k,1118) = lu(k,1118) - lu(k,880) * lu(k,1098)
6862 114070872 : lu(k,1119) = lu(k,1119) - lu(k,881) * lu(k,1098)
6863 114070872 : lu(k,1120) = lu(k,1120) - lu(k,882) * lu(k,1098)
6864 114070872 : lu(k,1123) = lu(k,1123) - lu(k,883) * lu(k,1098)
6865 114070872 : lu(k,1124) = lu(k,1124) - lu(k,884) * lu(k,1098)
6866 114070872 : lu(k,1125) = lu(k,1125) - lu(k,885) * lu(k,1098)
6867 114070872 : lu(k,1126) = lu(k,1126) - lu(k,886) * lu(k,1098)
6868 114070872 : lu(k,1148) = lu(k,1148) - lu(k,867) * lu(k,1146)
6869 114070872 : lu(k,1151) = lu(k,1151) - lu(k,868) * lu(k,1146)
6870 114070872 : lu(k,1153) = lu(k,1153) - lu(k,869) * lu(k,1146)
6871 114070872 : lu(k,1154) = lu(k,1154) - lu(k,870) * lu(k,1146)
6872 114070872 : lu(k,1155) = lu(k,1155) - lu(k,871) * lu(k,1146)
6873 114070872 : lu(k,1157) = lu(k,1157) - lu(k,872) * lu(k,1146)
6874 114070872 : lu(k,1158) = lu(k,1158) - lu(k,873) * lu(k,1146)
6875 114070872 : lu(k,1159) = lu(k,1159) - lu(k,874) * lu(k,1146)
6876 114070872 : lu(k,1160) = lu(k,1160) - lu(k,875) * lu(k,1146)
6877 114070872 : lu(k,1161) = lu(k,1161) - lu(k,876) * lu(k,1146)
6878 114070872 : lu(k,1163) = lu(k,1163) - lu(k,877) * lu(k,1146)
6879 114070872 : lu(k,1164) = lu(k,1164) - lu(k,878) * lu(k,1146)
6880 114070872 : lu(k,1165) = lu(k,1165) - lu(k,879) * lu(k,1146)
6881 114070872 : lu(k,1166) = lu(k,1166) - lu(k,880) * lu(k,1146)
6882 114070872 : lu(k,1167) = lu(k,1167) - lu(k,881) * lu(k,1146)
6883 114070872 : lu(k,1168) = lu(k,1168) - lu(k,882) * lu(k,1146)
6884 114070872 : lu(k,1171) = lu(k,1171) - lu(k,883) * lu(k,1146)
6885 114070872 : lu(k,1172) = lu(k,1172) - lu(k,884) * lu(k,1146)
6886 114070872 : lu(k,1173) = lu(k,1173) - lu(k,885) * lu(k,1146)
6887 114070872 : lu(k,1174) = lu(k,1174) - lu(k,886) * lu(k,1146)
6888 114070872 : lu(k,1191) = lu(k,1191) - lu(k,867) * lu(k,1189)
6889 114070872 : lu(k,1194) = lu(k,1194) - lu(k,868) * lu(k,1189)
6890 114070872 : lu(k,1196) = lu(k,1196) - lu(k,869) * lu(k,1189)
6891 114070872 : lu(k,1197) = lu(k,1197) - lu(k,870) * lu(k,1189)
6892 114070872 : lu(k,1198) = lu(k,1198) - lu(k,871) * lu(k,1189)
6893 114070872 : lu(k,1200) = lu(k,1200) - lu(k,872) * lu(k,1189)
6894 114070872 : lu(k,1201) = lu(k,1201) - lu(k,873) * lu(k,1189)
6895 114070872 : lu(k,1202) = lu(k,1202) - lu(k,874) * lu(k,1189)
6896 114070872 : lu(k,1203) = lu(k,1203) - lu(k,875) * lu(k,1189)
6897 114070872 : lu(k,1204) = lu(k,1204) - lu(k,876) * lu(k,1189)
6898 114070872 : lu(k,1206) = lu(k,1206) - lu(k,877) * lu(k,1189)
6899 114070872 : lu(k,1207) = lu(k,1207) - lu(k,878) * lu(k,1189)
6900 114070872 : lu(k,1208) = lu(k,1208) - lu(k,879) * lu(k,1189)
6901 114070872 : lu(k,1209) = lu(k,1209) - lu(k,880) * lu(k,1189)
6902 114070872 : lu(k,1210) = lu(k,1210) - lu(k,881) * lu(k,1189)
6903 114070872 : lu(k,1211) = lu(k,1211) - lu(k,882) * lu(k,1189)
6904 114070872 : lu(k,1214) = lu(k,1214) - lu(k,883) * lu(k,1189)
6905 114070872 : lu(k,1215) = lu(k,1215) - lu(k,884) * lu(k,1189)
6906 114070872 : lu(k,1216) = lu(k,1216) - lu(k,885) * lu(k,1189)
6907 114070872 : lu(k,1217) = lu(k,1217) - lu(k,886) * lu(k,1189)
6908 114070872 : lu(k,1234) = lu(k,1234) - lu(k,867) * lu(k,1232)
6909 114070872 : lu(k,1237) = lu(k,1237) - lu(k,868) * lu(k,1232)
6910 114070872 : lu(k,1239) = lu(k,1239) - lu(k,869) * lu(k,1232)
6911 114070872 : lu(k,1240) = lu(k,1240) - lu(k,870) * lu(k,1232)
6912 114070872 : lu(k,1241) = lu(k,1241) - lu(k,871) * lu(k,1232)
6913 114070872 : lu(k,1243) = lu(k,1243) - lu(k,872) * lu(k,1232)
6914 114070872 : lu(k,1244) = lu(k,1244) - lu(k,873) * lu(k,1232)
6915 114070872 : lu(k,1245) = lu(k,1245) - lu(k,874) * lu(k,1232)
6916 114070872 : lu(k,1246) = lu(k,1246) - lu(k,875) * lu(k,1232)
6917 114070872 : lu(k,1247) = lu(k,1247) - lu(k,876) * lu(k,1232)
6918 114070872 : lu(k,1249) = lu(k,1249) - lu(k,877) * lu(k,1232)
6919 114070872 : lu(k,1250) = lu(k,1250) - lu(k,878) * lu(k,1232)
6920 114070872 : lu(k,1251) = lu(k,1251) - lu(k,879) * lu(k,1232)
6921 114070872 : lu(k,1252) = lu(k,1252) - lu(k,880) * lu(k,1232)
6922 114070872 : lu(k,1253) = lu(k,1253) - lu(k,881) * lu(k,1232)
6923 114070872 : lu(k,1254) = lu(k,1254) - lu(k,882) * lu(k,1232)
6924 114070872 : lu(k,1257) = lu(k,1257) - lu(k,883) * lu(k,1232)
6925 114070872 : lu(k,1258) = lu(k,1258) - lu(k,884) * lu(k,1232)
6926 114070872 : lu(k,1259) = lu(k,1259) - lu(k,885) * lu(k,1232)
6927 114070872 : lu(k,1260) = lu(k,1260) - lu(k,886) * lu(k,1232)
6928 114070872 : lu(k,1276) = lu(k,1276) - lu(k,867) * lu(k,1274)
6929 114070872 : lu(k,1279) = lu(k,1279) - lu(k,868) * lu(k,1274)
6930 114070872 : lu(k,1281) = lu(k,1281) - lu(k,869) * lu(k,1274)
6931 114070872 : lu(k,1282) = lu(k,1282) - lu(k,870) * lu(k,1274)
6932 114070872 : lu(k,1283) = lu(k,1283) - lu(k,871) * lu(k,1274)
6933 114070872 : lu(k,1285) = lu(k,1285) - lu(k,872) * lu(k,1274)
6934 114070872 : lu(k,1286) = lu(k,1286) - lu(k,873) * lu(k,1274)
6935 114070872 : lu(k,1287) = lu(k,1287) - lu(k,874) * lu(k,1274)
6936 114070872 : lu(k,1288) = lu(k,1288) - lu(k,875) * lu(k,1274)
6937 114070872 : lu(k,1289) = lu(k,1289) - lu(k,876) * lu(k,1274)
6938 114070872 : lu(k,1291) = lu(k,1291) - lu(k,877) * lu(k,1274)
6939 114070872 : lu(k,1292) = lu(k,1292) - lu(k,878) * lu(k,1274)
6940 114070872 : lu(k,1293) = lu(k,1293) - lu(k,879) * lu(k,1274)
6941 114070872 : lu(k,1294) = lu(k,1294) - lu(k,880) * lu(k,1274)
6942 114070872 : lu(k,1295) = lu(k,1295) - lu(k,881) * lu(k,1274)
6943 114070872 : lu(k,1296) = lu(k,1296) - lu(k,882) * lu(k,1274)
6944 114070872 : lu(k,1299) = lu(k,1299) - lu(k,883) * lu(k,1274)
6945 114070872 : lu(k,1300) = lu(k,1300) - lu(k,884) * lu(k,1274)
6946 114070872 : lu(k,1301) = lu(k,1301) - lu(k,885) * lu(k,1274)
6947 114070872 : lu(k,1302) = lu(k,1302) - lu(k,886) * lu(k,1274)
6948 114070872 : lu(k,1318) = lu(k,1318) - lu(k,867) * lu(k,1316)
6949 114070872 : lu(k,1321) = lu(k,1321) - lu(k,868) * lu(k,1316)
6950 114070872 : lu(k,1323) = lu(k,1323) - lu(k,869) * lu(k,1316)
6951 114070872 : lu(k,1324) = lu(k,1324) - lu(k,870) * lu(k,1316)
6952 114070872 : lu(k,1325) = lu(k,1325) - lu(k,871) * lu(k,1316)
6953 114070872 : lu(k,1327) = lu(k,1327) - lu(k,872) * lu(k,1316)
6954 114070872 : lu(k,1328) = lu(k,1328) - lu(k,873) * lu(k,1316)
6955 114070872 : lu(k,1329) = lu(k,1329) - lu(k,874) * lu(k,1316)
6956 114070872 : lu(k,1330) = lu(k,1330) - lu(k,875) * lu(k,1316)
6957 114070872 : lu(k,1331) = lu(k,1331) - lu(k,876) * lu(k,1316)
6958 114070872 : lu(k,1333) = lu(k,1333) - lu(k,877) * lu(k,1316)
6959 114070872 : lu(k,1334) = lu(k,1334) - lu(k,878) * lu(k,1316)
6960 114070872 : lu(k,1335) = lu(k,1335) - lu(k,879) * lu(k,1316)
6961 114070872 : lu(k,1336) = lu(k,1336) - lu(k,880) * lu(k,1316)
6962 114070872 : lu(k,1337) = lu(k,1337) - lu(k,881) * lu(k,1316)
6963 114070872 : lu(k,1338) = lu(k,1338) - lu(k,882) * lu(k,1316)
6964 114070872 : lu(k,1341) = lu(k,1341) - lu(k,883) * lu(k,1316)
6965 114070872 : lu(k,1342) = lu(k,1342) - lu(k,884) * lu(k,1316)
6966 114070872 : lu(k,1343) = lu(k,1343) - lu(k,885) * lu(k,1316)
6967 114070872 : lu(k,1344) = lu(k,1344) - lu(k,886) * lu(k,1316)
6968 114070872 : lu(k,1378) = lu(k,1378) - lu(k,867) * lu(k,1376)
6969 114070872 : lu(k,1381) = lu(k,1381) - lu(k,868) * lu(k,1376)
6970 114070872 : lu(k,1383) = lu(k,1383) - lu(k,869) * lu(k,1376)
6971 114070872 : lu(k,1384) = lu(k,1384) - lu(k,870) * lu(k,1376)
6972 114070872 : lu(k,1385) = lu(k,1385) - lu(k,871) * lu(k,1376)
6973 114070872 : lu(k,1387) = lu(k,1387) - lu(k,872) * lu(k,1376)
6974 114070872 : lu(k,1388) = lu(k,1388) - lu(k,873) * lu(k,1376)
6975 114070872 : lu(k,1389) = lu(k,1389) - lu(k,874) * lu(k,1376)
6976 114070872 : lu(k,1390) = lu(k,1390) - lu(k,875) * lu(k,1376)
6977 114070872 : lu(k,1391) = lu(k,1391) - lu(k,876) * lu(k,1376)
6978 114070872 : lu(k,1393) = lu(k,1393) - lu(k,877) * lu(k,1376)
6979 114070872 : lu(k,1394) = lu(k,1394) - lu(k,878) * lu(k,1376)
6980 114070872 : lu(k,1395) = lu(k,1395) - lu(k,879) * lu(k,1376)
6981 114070872 : lu(k,1396) = lu(k,1396) - lu(k,880) * lu(k,1376)
6982 114070872 : lu(k,1397) = lu(k,1397) - lu(k,881) * lu(k,1376)
6983 114070872 : lu(k,1398) = lu(k,1398) - lu(k,882) * lu(k,1376)
6984 114070872 : lu(k,1401) = lu(k,1401) - lu(k,883) * lu(k,1376)
6985 114070872 : lu(k,1402) = lu(k,1402) - lu(k,884) * lu(k,1376)
6986 114070872 : lu(k,1403) = lu(k,1403) - lu(k,885) * lu(k,1376)
6987 114070872 : lu(k,1404) = lu(k,1404) - lu(k,886) * lu(k,1376)
6988 114070872 : lu(k,1427) = lu(k,1427) - lu(k,867) * lu(k,1425)
6989 114070872 : lu(k,1430) = lu(k,1430) - lu(k,868) * lu(k,1425)
6990 114070872 : lu(k,1432) = lu(k,1432) - lu(k,869) * lu(k,1425)
6991 114070872 : lu(k,1433) = lu(k,1433) - lu(k,870) * lu(k,1425)
6992 114070872 : lu(k,1434) = lu(k,1434) - lu(k,871) * lu(k,1425)
6993 114070872 : lu(k,1436) = lu(k,1436) - lu(k,872) * lu(k,1425)
6994 114070872 : lu(k,1437) = lu(k,1437) - lu(k,873) * lu(k,1425)
6995 114070872 : lu(k,1438) = lu(k,1438) - lu(k,874) * lu(k,1425)
6996 114070872 : lu(k,1439) = lu(k,1439) - lu(k,875) * lu(k,1425)
6997 114070872 : lu(k,1440) = lu(k,1440) - lu(k,876) * lu(k,1425)
6998 114070872 : lu(k,1442) = lu(k,1442) - lu(k,877) * lu(k,1425)
6999 114070872 : lu(k,1443) = lu(k,1443) - lu(k,878) * lu(k,1425)
7000 114070872 : lu(k,1444) = lu(k,1444) - lu(k,879) * lu(k,1425)
7001 114070872 : lu(k,1445) = lu(k,1445) - lu(k,880) * lu(k,1425)
7002 114070872 : lu(k,1446) = lu(k,1446) - lu(k,881) * lu(k,1425)
7003 114070872 : lu(k,1447) = lu(k,1447) - lu(k,882) * lu(k,1425)
7004 114070872 : lu(k,1450) = lu(k,1450) - lu(k,883) * lu(k,1425)
7005 114070872 : lu(k,1451) = lu(k,1451) - lu(k,884) * lu(k,1425)
7006 114070872 : lu(k,1452) = lu(k,1452) - lu(k,885) * lu(k,1425)
7007 114070872 : lu(k,1453) = lu(k,1453) - lu(k,886) * lu(k,1425)
7008 114070872 : lu(k,1475) = lu(k,1475) - lu(k,867) * lu(k,1473)
7009 114070872 : lu(k,1478) = lu(k,1478) - lu(k,868) * lu(k,1473)
7010 114070872 : lu(k,1480) = lu(k,1480) - lu(k,869) * lu(k,1473)
7011 114070872 : lu(k,1481) = lu(k,1481) - lu(k,870) * lu(k,1473)
7012 114070872 : lu(k,1482) = lu(k,1482) - lu(k,871) * lu(k,1473)
7013 114070872 : lu(k,1484) = lu(k,1484) - lu(k,872) * lu(k,1473)
7014 114070872 : lu(k,1485) = lu(k,1485) - lu(k,873) * lu(k,1473)
7015 114070872 : lu(k,1486) = lu(k,1486) - lu(k,874) * lu(k,1473)
7016 114070872 : lu(k,1487) = lu(k,1487) - lu(k,875) * lu(k,1473)
7017 114070872 : lu(k,1488) = lu(k,1488) - lu(k,876) * lu(k,1473)
7018 114070872 : lu(k,1490) = lu(k,1490) - lu(k,877) * lu(k,1473)
7019 114070872 : lu(k,1491) = lu(k,1491) - lu(k,878) * lu(k,1473)
7020 114070872 : lu(k,1492) = lu(k,1492) - lu(k,879) * lu(k,1473)
7021 114070872 : lu(k,1493) = lu(k,1493) - lu(k,880) * lu(k,1473)
7022 114070872 : lu(k,1494) = lu(k,1494) - lu(k,881) * lu(k,1473)
7023 114070872 : lu(k,1495) = lu(k,1495) - lu(k,882) * lu(k,1473)
7024 114070872 : lu(k,1498) = lu(k,1498) - lu(k,883) * lu(k,1473)
7025 114070872 : lu(k,1499) = lu(k,1499) - lu(k,884) * lu(k,1473)
7026 114070872 : lu(k,1500) = lu(k,1500) - lu(k,885) * lu(k,1473)
7027 114070872 : lu(k,1501) = lu(k,1501) - lu(k,886) * lu(k,1473)
7028 114070872 : lu(k,1516) = lu(k,1516) - lu(k,867) * lu(k,1514)
7029 114070872 : lu(k,1519) = lu(k,1519) - lu(k,868) * lu(k,1514)
7030 114070872 : lu(k,1521) = lu(k,1521) - lu(k,869) * lu(k,1514)
7031 114070872 : lu(k,1522) = lu(k,1522) - lu(k,870) * lu(k,1514)
7032 114070872 : lu(k,1523) = lu(k,1523) - lu(k,871) * lu(k,1514)
7033 114070872 : lu(k,1525) = lu(k,1525) - lu(k,872) * lu(k,1514)
7034 114070872 : lu(k,1526) = lu(k,1526) - lu(k,873) * lu(k,1514)
7035 114070872 : lu(k,1527) = lu(k,1527) - lu(k,874) * lu(k,1514)
7036 114070872 : lu(k,1528) = lu(k,1528) - lu(k,875) * lu(k,1514)
7037 114070872 : lu(k,1529) = lu(k,1529) - lu(k,876) * lu(k,1514)
7038 114070872 : lu(k,1531) = lu(k,1531) - lu(k,877) * lu(k,1514)
7039 114070872 : lu(k,1532) = lu(k,1532) - lu(k,878) * lu(k,1514)
7040 114070872 : lu(k,1533) = lu(k,1533) - lu(k,879) * lu(k,1514)
7041 114070872 : lu(k,1534) = lu(k,1534) - lu(k,880) * lu(k,1514)
7042 114070872 : lu(k,1535) = lu(k,1535) - lu(k,881) * lu(k,1514)
7043 114070872 : lu(k,1536) = lu(k,1536) - lu(k,882) * lu(k,1514)
7044 114070872 : lu(k,1539) = lu(k,1539) - lu(k,883) * lu(k,1514)
7045 114070872 : lu(k,1540) = lu(k,1540) - lu(k,884) * lu(k,1514)
7046 114070872 : lu(k,1541) = lu(k,1541) - lu(k,885) * lu(k,1514)
7047 114070872 : lu(k,1542) = lu(k,1542) - lu(k,886) * lu(k,1514)
7048 114070872 : lu(k,1552) = lu(k,1552) - lu(k,867) * lu(k,1550)
7049 114070872 : lu(k,1555) = lu(k,1555) - lu(k,868) * lu(k,1550)
7050 114070872 : lu(k,1557) = lu(k,1557) - lu(k,869) * lu(k,1550)
7051 114070872 : lu(k,1558) = lu(k,1558) - lu(k,870) * lu(k,1550)
7052 114070872 : lu(k,1559) = lu(k,1559) - lu(k,871) * lu(k,1550)
7053 114070872 : lu(k,1561) = lu(k,1561) - lu(k,872) * lu(k,1550)
7054 114070872 : lu(k,1562) = lu(k,1562) - lu(k,873) * lu(k,1550)
7055 114070872 : lu(k,1563) = lu(k,1563) - lu(k,874) * lu(k,1550)
7056 114070872 : lu(k,1564) = lu(k,1564) - lu(k,875) * lu(k,1550)
7057 114070872 : lu(k,1565) = lu(k,1565) - lu(k,876) * lu(k,1550)
7058 114070872 : lu(k,1567) = lu(k,1567) - lu(k,877) * lu(k,1550)
7059 114070872 : lu(k,1568) = lu(k,1568) - lu(k,878) * lu(k,1550)
7060 114070872 : lu(k,1569) = lu(k,1569) - lu(k,879) * lu(k,1550)
7061 114070872 : lu(k,1570) = - lu(k,880) * lu(k,1550)
7062 114070872 : lu(k,1571) = lu(k,1571) - lu(k,881) * lu(k,1550)
7063 114070872 : lu(k,1572) = lu(k,1572) - lu(k,882) * lu(k,1550)
7064 114070872 : lu(k,1575) = lu(k,1575) - lu(k,883) * lu(k,1550)
7065 114070872 : lu(k,1576) = lu(k,1576) - lu(k,884) * lu(k,1550)
7066 114070872 : lu(k,1577) = lu(k,1577) - lu(k,885) * lu(k,1550)
7067 114070872 : lu(k,1578) = lu(k,1578) - lu(k,886) * lu(k,1550)
7068 114070872 : lu(k,1597) = lu(k,1597) - lu(k,867) * lu(k,1595)
7069 114070872 : lu(k,1600) = lu(k,1600) - lu(k,868) * lu(k,1595)
7070 114070872 : lu(k,1602) = lu(k,1602) - lu(k,869) * lu(k,1595)
7071 114070872 : lu(k,1603) = lu(k,1603) - lu(k,870) * lu(k,1595)
7072 114070872 : lu(k,1604) = lu(k,1604) - lu(k,871) * lu(k,1595)
7073 114070872 : lu(k,1606) = lu(k,1606) - lu(k,872) * lu(k,1595)
7074 114070872 : lu(k,1607) = lu(k,1607) - lu(k,873) * lu(k,1595)
7075 114070872 : lu(k,1608) = lu(k,1608) - lu(k,874) * lu(k,1595)
7076 114070872 : lu(k,1609) = lu(k,1609) - lu(k,875) * lu(k,1595)
7077 114070872 : lu(k,1610) = lu(k,1610) - lu(k,876) * lu(k,1595)
7078 114070872 : lu(k,1612) = lu(k,1612) - lu(k,877) * lu(k,1595)
7079 114070872 : lu(k,1613) = lu(k,1613) - lu(k,878) * lu(k,1595)
7080 114070872 : lu(k,1614) = lu(k,1614) - lu(k,879) * lu(k,1595)
7081 114070872 : lu(k,1615) = lu(k,1615) - lu(k,880) * lu(k,1595)
7082 114070872 : lu(k,1616) = lu(k,1616) - lu(k,881) * lu(k,1595)
7083 114070872 : lu(k,1617) = lu(k,1617) - lu(k,882) * lu(k,1595)
7084 114070872 : lu(k,1620) = lu(k,1620) - lu(k,883) * lu(k,1595)
7085 114070872 : lu(k,1621) = lu(k,1621) - lu(k,884) * lu(k,1595)
7086 114070872 : lu(k,1622) = lu(k,1622) - lu(k,885) * lu(k,1595)
7087 114070872 : lu(k,1623) = lu(k,1623) - lu(k,886) * lu(k,1595)
7088 114070872 : lu(k,1640) = lu(k,1640) - lu(k,867) * lu(k,1638)
7089 114070872 : lu(k,1643) = lu(k,1643) - lu(k,868) * lu(k,1638)
7090 114070872 : lu(k,1645) = lu(k,1645) - lu(k,869) * lu(k,1638)
7091 114070872 : lu(k,1646) = lu(k,1646) - lu(k,870) * lu(k,1638)
7092 114070872 : lu(k,1647) = lu(k,1647) - lu(k,871) * lu(k,1638)
7093 114070872 : lu(k,1649) = lu(k,1649) - lu(k,872) * lu(k,1638)
7094 114070872 : lu(k,1650) = lu(k,1650) - lu(k,873) * lu(k,1638)
7095 114070872 : lu(k,1651) = lu(k,1651) - lu(k,874) * lu(k,1638)
7096 114070872 : lu(k,1652) = lu(k,1652) - lu(k,875) * lu(k,1638)
7097 114070872 : lu(k,1653) = lu(k,1653) - lu(k,876) * lu(k,1638)
7098 114070872 : lu(k,1655) = lu(k,1655) - lu(k,877) * lu(k,1638)
7099 114070872 : lu(k,1656) = lu(k,1656) - lu(k,878) * lu(k,1638)
7100 114070872 : lu(k,1657) = lu(k,1657) - lu(k,879) * lu(k,1638)
7101 114070872 : lu(k,1658) = lu(k,1658) - lu(k,880) * lu(k,1638)
7102 114070872 : lu(k,1659) = lu(k,1659) - lu(k,881) * lu(k,1638)
7103 114070872 : lu(k,1660) = lu(k,1660) - lu(k,882) * lu(k,1638)
7104 114070872 : lu(k,1663) = lu(k,1663) - lu(k,883) * lu(k,1638)
7105 114070872 : lu(k,1664) = lu(k,1664) - lu(k,884) * lu(k,1638)
7106 114070872 : lu(k,1665) = lu(k,1665) - lu(k,885) * lu(k,1638)
7107 114070872 : lu(k,1666) = lu(k,1666) - lu(k,886) * lu(k,1638)
7108 114070872 : lu(k,1683) = lu(k,1683) - lu(k,867) * lu(k,1681)
7109 114070872 : lu(k,1686) = lu(k,1686) - lu(k,868) * lu(k,1681)
7110 114070872 : lu(k,1688) = lu(k,1688) - lu(k,869) * lu(k,1681)
7111 114070872 : lu(k,1689) = lu(k,1689) - lu(k,870) * lu(k,1681)
7112 114070872 : lu(k,1690) = lu(k,1690) - lu(k,871) * lu(k,1681)
7113 114070872 : lu(k,1692) = lu(k,1692) - lu(k,872) * lu(k,1681)
7114 114070872 : lu(k,1693) = lu(k,1693) - lu(k,873) * lu(k,1681)
7115 114070872 : lu(k,1694) = lu(k,1694) - lu(k,874) * lu(k,1681)
7116 114070872 : lu(k,1695) = lu(k,1695) - lu(k,875) * lu(k,1681)
7117 114070872 : lu(k,1696) = lu(k,1696) - lu(k,876) * lu(k,1681)
7118 114070872 : lu(k,1698) = lu(k,1698) - lu(k,877) * lu(k,1681)
7119 114070872 : lu(k,1699) = lu(k,1699) - lu(k,878) * lu(k,1681)
7120 114070872 : lu(k,1700) = lu(k,1700) - lu(k,879) * lu(k,1681)
7121 114070872 : lu(k,1701) = lu(k,1701) - lu(k,880) * lu(k,1681)
7122 114070872 : lu(k,1702) = lu(k,1702) - lu(k,881) * lu(k,1681)
7123 114070872 : lu(k,1703) = lu(k,1703) - lu(k,882) * lu(k,1681)
7124 114070872 : lu(k,1706) = lu(k,1706) - lu(k,883) * lu(k,1681)
7125 114070872 : lu(k,1707) = lu(k,1707) - lu(k,884) * lu(k,1681)
7126 114070872 : lu(k,1708) = lu(k,1708) - lu(k,885) * lu(k,1681)
7127 114070872 : lu(k,1709) = lu(k,1709) - lu(k,886) * lu(k,1681)
7128 114070872 : lu(k,1724) = - lu(k,867) * lu(k,1722)
7129 114070872 : lu(k,1726) = lu(k,1726) - lu(k,868) * lu(k,1722)
7130 114070872 : lu(k,1728) = lu(k,1728) - lu(k,869) * lu(k,1722)
7131 114070872 : lu(k,1729) = lu(k,1729) - lu(k,870) * lu(k,1722)
7132 114070872 : lu(k,1730) = lu(k,1730) - lu(k,871) * lu(k,1722)
7133 114070872 : lu(k,1732) = lu(k,1732) - lu(k,872) * lu(k,1722)
7134 114070872 : lu(k,1733) = lu(k,1733) - lu(k,873) * lu(k,1722)
7135 114070872 : lu(k,1734) = lu(k,1734) - lu(k,874) * lu(k,1722)
7136 114070872 : lu(k,1735) = lu(k,1735) - lu(k,875) * lu(k,1722)
7137 114070872 : lu(k,1736) = lu(k,1736) - lu(k,876) * lu(k,1722)
7138 114070872 : lu(k,1738) = lu(k,1738) - lu(k,877) * lu(k,1722)
7139 114070872 : lu(k,1739) = lu(k,1739) - lu(k,878) * lu(k,1722)
7140 114070872 : lu(k,1740) = lu(k,1740) - lu(k,879) * lu(k,1722)
7141 114070872 : lu(k,1741) = lu(k,1741) - lu(k,880) * lu(k,1722)
7142 114070872 : lu(k,1742) = lu(k,1742) - lu(k,881) * lu(k,1722)
7143 114070872 : lu(k,1743) = lu(k,1743) - lu(k,882) * lu(k,1722)
7144 114070872 : lu(k,1746) = lu(k,1746) - lu(k,883) * lu(k,1722)
7145 114070872 : lu(k,1747) = lu(k,1747) - lu(k,884) * lu(k,1722)
7146 114070872 : lu(k,1748) = lu(k,1748) - lu(k,885) * lu(k,1722)
7147 114070872 : lu(k,1749) = lu(k,1749) - lu(k,886) * lu(k,1722)
7148 114070872 : lu(k,1759) = lu(k,1759) - lu(k,867) * lu(k,1757)
7149 114070872 : lu(k,1762) = lu(k,1762) - lu(k,868) * lu(k,1757)
7150 114070872 : lu(k,1764) = lu(k,1764) - lu(k,869) * lu(k,1757)
7151 114070872 : lu(k,1765) = lu(k,1765) - lu(k,870) * lu(k,1757)
7152 114070872 : lu(k,1766) = lu(k,1766) - lu(k,871) * lu(k,1757)
7153 114070872 : lu(k,1768) = lu(k,1768) - lu(k,872) * lu(k,1757)
7154 114070872 : lu(k,1769) = lu(k,1769) - lu(k,873) * lu(k,1757)
7155 114070872 : lu(k,1770) = lu(k,1770) - lu(k,874) * lu(k,1757)
7156 114070872 : lu(k,1771) = lu(k,1771) - lu(k,875) * lu(k,1757)
7157 114070872 : lu(k,1772) = lu(k,1772) - lu(k,876) * lu(k,1757)
7158 114070872 : lu(k,1774) = lu(k,1774) - lu(k,877) * lu(k,1757)
7159 114070872 : lu(k,1775) = lu(k,1775) - lu(k,878) * lu(k,1757)
7160 114070872 : lu(k,1776) = lu(k,1776) - lu(k,879) * lu(k,1757)
7161 114070872 : lu(k,1777) = lu(k,1777) - lu(k,880) * lu(k,1757)
7162 114070872 : lu(k,1778) = lu(k,1778) - lu(k,881) * lu(k,1757)
7163 114070872 : lu(k,1779) = lu(k,1779) - lu(k,882) * lu(k,1757)
7164 114070872 : lu(k,1782) = lu(k,1782) - lu(k,883) * lu(k,1757)
7165 114070872 : lu(k,1783) = lu(k,1783) - lu(k,884) * lu(k,1757)
7166 114070872 : lu(k,1784) = lu(k,1784) - lu(k,885) * lu(k,1757)
7167 114070872 : lu(k,1785) = lu(k,1785) - lu(k,886) * lu(k,1757)
7168 114070872 : lu(k,1807) = lu(k,1807) - lu(k,867) * lu(k,1805)
7169 114070872 : lu(k,1810) = lu(k,1810) - lu(k,868) * lu(k,1805)
7170 114070872 : lu(k,1812) = lu(k,1812) - lu(k,869) * lu(k,1805)
7171 114070872 : lu(k,1813) = lu(k,1813) - lu(k,870) * lu(k,1805)
7172 114070872 : lu(k,1814) = lu(k,1814) - lu(k,871) * lu(k,1805)
7173 114070872 : lu(k,1816) = lu(k,1816) - lu(k,872) * lu(k,1805)
7174 114070872 : lu(k,1817) = lu(k,1817) - lu(k,873) * lu(k,1805)
7175 114070872 : lu(k,1818) = lu(k,1818) - lu(k,874) * lu(k,1805)
7176 114070872 : lu(k,1819) = lu(k,1819) - lu(k,875) * lu(k,1805)
7177 114070872 : lu(k,1820) = lu(k,1820) - lu(k,876) * lu(k,1805)
7178 114070872 : lu(k,1822) = lu(k,1822) - lu(k,877) * lu(k,1805)
7179 114070872 : lu(k,1823) = lu(k,1823) - lu(k,878) * lu(k,1805)
7180 114070872 : lu(k,1824) = lu(k,1824) - lu(k,879) * lu(k,1805)
7181 114070872 : lu(k,1825) = lu(k,1825) - lu(k,880) * lu(k,1805)
7182 114070872 : lu(k,1826) = lu(k,1826) - lu(k,881) * lu(k,1805)
7183 114070872 : lu(k,1827) = lu(k,1827) - lu(k,882) * lu(k,1805)
7184 114070872 : lu(k,1830) = lu(k,1830) - lu(k,883) * lu(k,1805)
7185 114070872 : lu(k,1831) = lu(k,1831) - lu(k,884) * lu(k,1805)
7186 114070872 : lu(k,1832) = lu(k,1832) - lu(k,885) * lu(k,1805)
7187 114070872 : lu(k,1833) = lu(k,1833) - lu(k,886) * lu(k,1805)
7188 114070872 : lu(k,1840) = lu(k,1840) - lu(k,867) * lu(k,1838)
7189 114070872 : lu(k,1843) = lu(k,1843) - lu(k,868) * lu(k,1838)
7190 114070872 : lu(k,1845) = lu(k,1845) - lu(k,869) * lu(k,1838)
7191 114070872 : lu(k,1846) = lu(k,1846) - lu(k,870) * lu(k,1838)
7192 114070872 : lu(k,1847) = lu(k,1847) - lu(k,871) * lu(k,1838)
7193 114070872 : lu(k,1849) = lu(k,1849) - lu(k,872) * lu(k,1838)
7194 114070872 : lu(k,1850) = lu(k,1850) - lu(k,873) * lu(k,1838)
7195 114070872 : lu(k,1851) = lu(k,1851) - lu(k,874) * lu(k,1838)
7196 114070872 : lu(k,1852) = lu(k,1852) - lu(k,875) * lu(k,1838)
7197 114070872 : lu(k,1853) = lu(k,1853) - lu(k,876) * lu(k,1838)
7198 114070872 : lu(k,1855) = lu(k,1855) - lu(k,877) * lu(k,1838)
7199 114070872 : lu(k,1856) = lu(k,1856) - lu(k,878) * lu(k,1838)
7200 114070872 : lu(k,1857) = lu(k,1857) - lu(k,879) * lu(k,1838)
7201 114070872 : lu(k,1858) = - lu(k,880) * lu(k,1838)
7202 114070872 : lu(k,1859) = lu(k,1859) - lu(k,881) * lu(k,1838)
7203 114070872 : lu(k,1860) = lu(k,1860) - lu(k,882) * lu(k,1838)
7204 114070872 : lu(k,1863) = lu(k,1863) - lu(k,883) * lu(k,1838)
7205 114070872 : lu(k,1864) = lu(k,1864) - lu(k,884) * lu(k,1838)
7206 114070872 : lu(k,1865) = lu(k,1865) - lu(k,885) * lu(k,1838)
7207 114070872 : lu(k,1866) = lu(k,1866) - lu(k,886) * lu(k,1838)
7208 114070872 : lu(k,1876) = lu(k,1876) - lu(k,867) * lu(k,1874)
7209 114070872 : lu(k,1879) = lu(k,1879) - lu(k,868) * lu(k,1874)
7210 114070872 : lu(k,1881) = lu(k,1881) - lu(k,869) * lu(k,1874)
7211 114070872 : lu(k,1882) = lu(k,1882) - lu(k,870) * lu(k,1874)
7212 114070872 : lu(k,1883) = lu(k,1883) - lu(k,871) * lu(k,1874)
7213 114070872 : lu(k,1885) = lu(k,1885) - lu(k,872) * lu(k,1874)
7214 114070872 : lu(k,1886) = lu(k,1886) - lu(k,873) * lu(k,1874)
7215 114070872 : lu(k,1887) = lu(k,1887) - lu(k,874) * lu(k,1874)
7216 114070872 : lu(k,1888) = lu(k,1888) - lu(k,875) * lu(k,1874)
7217 114070872 : lu(k,1889) = lu(k,1889) - lu(k,876) * lu(k,1874)
7218 114070872 : lu(k,1891) = lu(k,1891) - lu(k,877) * lu(k,1874)
7219 114070872 : lu(k,1892) = lu(k,1892) - lu(k,878) * lu(k,1874)
7220 114070872 : lu(k,1893) = lu(k,1893) - lu(k,879) * lu(k,1874)
7221 114070872 : lu(k,1894) = lu(k,1894) - lu(k,880) * lu(k,1874)
7222 114070872 : lu(k,1895) = lu(k,1895) - lu(k,881) * lu(k,1874)
7223 114070872 : lu(k,1896) = lu(k,1896) - lu(k,882) * lu(k,1874)
7224 114070872 : lu(k,1899) = lu(k,1899) - lu(k,883) * lu(k,1874)
7225 114070872 : lu(k,1900) = lu(k,1900) - lu(k,884) * lu(k,1874)
7226 114070872 : lu(k,1901) = lu(k,1901) - lu(k,885) * lu(k,1874)
7227 114070872 : lu(k,1902) = lu(k,1902) - lu(k,886) * lu(k,1874)
7228 114070872 : lu(k,1917) = lu(k,1917) - lu(k,867) * lu(k,1915)
7229 114070872 : lu(k,1920) = lu(k,1920) - lu(k,868) * lu(k,1915)
7230 114070872 : lu(k,1922) = lu(k,1922) - lu(k,869) * lu(k,1915)
7231 114070872 : lu(k,1923) = lu(k,1923) - lu(k,870) * lu(k,1915)
7232 114070872 : lu(k,1924) = lu(k,1924) - lu(k,871) * lu(k,1915)
7233 114070872 : lu(k,1926) = lu(k,1926) - lu(k,872) * lu(k,1915)
7234 114070872 : lu(k,1927) = lu(k,1927) - lu(k,873) * lu(k,1915)
7235 114070872 : lu(k,1928) = lu(k,1928) - lu(k,874) * lu(k,1915)
7236 114070872 : lu(k,1929) = lu(k,1929) - lu(k,875) * lu(k,1915)
7237 114070872 : lu(k,1930) = lu(k,1930) - lu(k,876) * lu(k,1915)
7238 114070872 : lu(k,1932) = lu(k,1932) - lu(k,877) * lu(k,1915)
7239 114070872 : lu(k,1933) = lu(k,1933) - lu(k,878) * lu(k,1915)
7240 114070872 : lu(k,1934) = lu(k,1934) - lu(k,879) * lu(k,1915)
7241 114070872 : lu(k,1935) = lu(k,1935) - lu(k,880) * lu(k,1915)
7242 114070872 : lu(k,1936) = lu(k,1936) - lu(k,881) * lu(k,1915)
7243 114070872 : lu(k,1937) = lu(k,1937) - lu(k,882) * lu(k,1915)
7244 114070872 : lu(k,1940) = lu(k,1940) - lu(k,883) * lu(k,1915)
7245 114070872 : lu(k,1941) = lu(k,1941) - lu(k,884) * lu(k,1915)
7246 114070872 : lu(k,1942) = lu(k,1942) - lu(k,885) * lu(k,1915)
7247 114070872 : lu(k,1943) = lu(k,1943) - lu(k,886) * lu(k,1915)
7248 114070872 : lu(k,1959) = lu(k,1959) - lu(k,867) * lu(k,1957)
7249 114070872 : lu(k,1962) = lu(k,1962) - lu(k,868) * lu(k,1957)
7250 114070872 : lu(k,1964) = lu(k,1964) - lu(k,869) * lu(k,1957)
7251 114070872 : lu(k,1965) = lu(k,1965) - lu(k,870) * lu(k,1957)
7252 114070872 : lu(k,1966) = lu(k,1966) - lu(k,871) * lu(k,1957)
7253 114070872 : lu(k,1968) = lu(k,1968) - lu(k,872) * lu(k,1957)
7254 114070872 : lu(k,1969) = lu(k,1969) - lu(k,873) * lu(k,1957)
7255 114070872 : lu(k,1970) = lu(k,1970) - lu(k,874) * lu(k,1957)
7256 114070872 : lu(k,1971) = lu(k,1971) - lu(k,875) * lu(k,1957)
7257 114070872 : lu(k,1972) = lu(k,1972) - lu(k,876) * lu(k,1957)
7258 114070872 : lu(k,1974) = lu(k,1974) - lu(k,877) * lu(k,1957)
7259 114070872 : lu(k,1975) = lu(k,1975) - lu(k,878) * lu(k,1957)
7260 114070872 : lu(k,1976) = lu(k,1976) - lu(k,879) * lu(k,1957)
7261 114070872 : lu(k,1977) = lu(k,1977) - lu(k,880) * lu(k,1957)
7262 114070872 : lu(k,1978) = lu(k,1978) - lu(k,881) * lu(k,1957)
7263 114070872 : lu(k,1979) = lu(k,1979) - lu(k,882) * lu(k,1957)
7264 114070872 : lu(k,1982) = lu(k,1982) - lu(k,883) * lu(k,1957)
7265 114070872 : lu(k,1983) = lu(k,1983) - lu(k,884) * lu(k,1957)
7266 114070872 : lu(k,1984) = lu(k,1984) - lu(k,885) * lu(k,1957)
7267 114070872 : lu(k,1985) = lu(k,1985) - lu(k,886) * lu(k,1957)
7268 114070872 : lu(k,2004) = lu(k,2004) - lu(k,867) * lu(k,2002)
7269 114070872 : lu(k,2007) = lu(k,2007) - lu(k,868) * lu(k,2002)
7270 114070872 : lu(k,2009) = lu(k,2009) - lu(k,869) * lu(k,2002)
7271 114070872 : lu(k,2010) = lu(k,2010) - lu(k,870) * lu(k,2002)
7272 114070872 : lu(k,2011) = lu(k,2011) - lu(k,871) * lu(k,2002)
7273 114070872 : lu(k,2013) = lu(k,2013) - lu(k,872) * lu(k,2002)
7274 114070872 : lu(k,2014) = lu(k,2014) - lu(k,873) * lu(k,2002)
7275 114070872 : lu(k,2015) = lu(k,2015) - lu(k,874) * lu(k,2002)
7276 114070872 : lu(k,2016) = lu(k,2016) - lu(k,875) * lu(k,2002)
7277 114070872 : lu(k,2017) = lu(k,2017) - lu(k,876) * lu(k,2002)
7278 114070872 : lu(k,2019) = lu(k,2019) - lu(k,877) * lu(k,2002)
7279 114070872 : lu(k,2020) = lu(k,2020) - lu(k,878) * lu(k,2002)
7280 114070872 : lu(k,2021) = lu(k,2021) - lu(k,879) * lu(k,2002)
7281 114070872 : lu(k,2022) = lu(k,2022) - lu(k,880) * lu(k,2002)
7282 114070872 : lu(k,2023) = lu(k,2023) - lu(k,881) * lu(k,2002)
7283 114070872 : lu(k,2024) = lu(k,2024) - lu(k,882) * lu(k,2002)
7284 114070872 : lu(k,2027) = lu(k,2027) - lu(k,883) * lu(k,2002)
7285 114070872 : lu(k,2028) = lu(k,2028) - lu(k,884) * lu(k,2002)
7286 114070872 : lu(k,2029) = lu(k,2029) - lu(k,885) * lu(k,2002)
7287 114070872 : lu(k,2030) = lu(k,2030) - lu(k,886) * lu(k,2002)
7288 114070872 : lu(k,2064) = lu(k,2064) - lu(k,867) * lu(k,2062)
7289 114070872 : lu(k,2067) = lu(k,2067) - lu(k,868) * lu(k,2062)
7290 114070872 : lu(k,2069) = lu(k,2069) - lu(k,869) * lu(k,2062)
7291 114070872 : lu(k,2070) = lu(k,2070) - lu(k,870) * lu(k,2062)
7292 114070872 : lu(k,2071) = lu(k,2071) - lu(k,871) * lu(k,2062)
7293 114070872 : lu(k,2073) = lu(k,2073) - lu(k,872) * lu(k,2062)
7294 114070872 : lu(k,2074) = lu(k,2074) - lu(k,873) * lu(k,2062)
7295 114070872 : lu(k,2075) = lu(k,2075) - lu(k,874) * lu(k,2062)
7296 114070872 : lu(k,2076) = lu(k,2076) - lu(k,875) * lu(k,2062)
7297 114070872 : lu(k,2077) = lu(k,2077) - lu(k,876) * lu(k,2062)
7298 114070872 : lu(k,2079) = lu(k,2079) - lu(k,877) * lu(k,2062)
7299 114070872 : lu(k,2080) = lu(k,2080) - lu(k,878) * lu(k,2062)
7300 114070872 : lu(k,2081) = lu(k,2081) - lu(k,879) * lu(k,2062)
7301 114070872 : lu(k,2082) = lu(k,2082) - lu(k,880) * lu(k,2062)
7302 114070872 : lu(k,2083) = lu(k,2083) - lu(k,881) * lu(k,2062)
7303 114070872 : lu(k,2084) = lu(k,2084) - lu(k,882) * lu(k,2062)
7304 114070872 : lu(k,2087) = lu(k,2087) - lu(k,883) * lu(k,2062)
7305 114070872 : lu(k,2088) = lu(k,2088) - lu(k,884) * lu(k,2062)
7306 114070872 : lu(k,2089) = lu(k,2089) - lu(k,885) * lu(k,2062)
7307 114070872 : lu(k,2090) = lu(k,2090) - lu(k,886) * lu(k,2062)
7308 114070872 : lu(k,900) = 1._r8 / lu(k,900)
7309 114070872 : lu(k,901) = lu(k,901) * lu(k,900)
7310 114070872 : lu(k,902) = lu(k,902) * lu(k,900)
7311 114070872 : lu(k,903) = lu(k,903) * lu(k,900)
7312 114070872 : lu(k,904) = lu(k,904) * lu(k,900)
7313 114070872 : lu(k,905) = lu(k,905) * lu(k,900)
7314 114070872 : lu(k,906) = lu(k,906) * lu(k,900)
7315 114070872 : lu(k,907) = lu(k,907) * lu(k,900)
7316 114070872 : lu(k,908) = lu(k,908) * lu(k,900)
7317 114070872 : lu(k,909) = lu(k,909) * lu(k,900)
7318 114070872 : lu(k,910) = lu(k,910) * lu(k,900)
7319 114070872 : lu(k,911) = lu(k,911) * lu(k,900)
7320 114070872 : lu(k,912) = lu(k,912) * lu(k,900)
7321 114070872 : lu(k,913) = lu(k,913) * lu(k,900)
7322 114070872 : lu(k,914) = lu(k,914) * lu(k,900)
7323 114070872 : lu(k,915) = lu(k,915) * lu(k,900)
7324 114070872 : lu(k,916) = lu(k,916) * lu(k,900)
7325 114070872 : lu(k,917) = lu(k,917) * lu(k,900)
7326 114070872 : lu(k,918) = lu(k,918) * lu(k,900)
7327 114070872 : lu(k,919) = lu(k,919) * lu(k,900)
7328 114070872 : lu(k,920) = lu(k,920) * lu(k,900)
7329 114070872 : lu(k,921) = lu(k,921) * lu(k,900)
7330 114070872 : lu(k,984) = lu(k,984) - lu(k,901) * lu(k,983)
7331 114070872 : lu(k,985) = lu(k,985) - lu(k,902) * lu(k,983)
7332 114070872 : lu(k,986) = lu(k,986) - lu(k,903) * lu(k,983)
7333 114070872 : lu(k,988) = lu(k,988) - lu(k,904) * lu(k,983)
7334 114070872 : lu(k,989) = lu(k,989) - lu(k,905) * lu(k,983)
7335 114070872 : lu(k,990) = lu(k,990) - lu(k,906) * lu(k,983)
7336 114070872 : lu(k,991) = lu(k,991) - lu(k,907) * lu(k,983)
7337 114070872 : lu(k,992) = lu(k,992) - lu(k,908) * lu(k,983)
7338 114070872 : lu(k,993) = lu(k,993) - lu(k,909) * lu(k,983)
7339 114070872 : lu(k,994) = lu(k,994) - lu(k,910) * lu(k,983)
7340 114070872 : lu(k,995) = lu(k,995) - lu(k,911) * lu(k,983)
7341 114070872 : lu(k,996) = lu(k,996) - lu(k,912) * lu(k,983)
7342 114070872 : lu(k,997) = lu(k,997) - lu(k,913) * lu(k,983)
7343 114070872 : lu(k,998) = lu(k,998) - lu(k,914) * lu(k,983)
7344 114070872 : lu(k,999) = lu(k,999) - lu(k,915) * lu(k,983)
7345 114070872 : lu(k,1000) = lu(k,1000) - lu(k,916) * lu(k,983)
7346 114070872 : lu(k,1001) = lu(k,1001) - lu(k,917) * lu(k,983)
7347 114070872 : lu(k,1002) = lu(k,1002) - lu(k,918) * lu(k,983)
7348 114070872 : lu(k,1003) = lu(k,1003) - lu(k,919) * lu(k,983)
7349 114070872 : lu(k,1004) = lu(k,1004) - lu(k,920) * lu(k,983)
7350 114070872 : lu(k,1005) = lu(k,1005) - lu(k,921) * lu(k,983)
7351 114070872 : lu(k,1057) = lu(k,1057) - lu(k,901) * lu(k,1056)
7352 114070872 : lu(k,1058) = lu(k,1058) - lu(k,902) * lu(k,1056)
7353 114070872 : lu(k,1059) = lu(k,1059) - lu(k,903) * lu(k,1056)
7354 114070872 : lu(k,1062) = lu(k,1062) - lu(k,904) * lu(k,1056)
7355 114070872 : lu(k,1063) = lu(k,1063) - lu(k,905) * lu(k,1056)
7356 114070872 : lu(k,1064) = lu(k,1064) - lu(k,906) * lu(k,1056)
7357 114070872 : lu(k,1065) = lu(k,1065) - lu(k,907) * lu(k,1056)
7358 114070872 : lu(k,1066) = lu(k,1066) - lu(k,908) * lu(k,1056)
7359 114070872 : lu(k,1067) = lu(k,1067) - lu(k,909) * lu(k,1056)
7360 114070872 : lu(k,1068) = lu(k,1068) - lu(k,910) * lu(k,1056)
7361 114070872 : lu(k,1069) = lu(k,1069) - lu(k,911) * lu(k,1056)
7362 114070872 : lu(k,1070) = lu(k,1070) - lu(k,912) * lu(k,1056)
7363 114070872 : lu(k,1073) = lu(k,1073) - lu(k,913) * lu(k,1056)
7364 114070872 : lu(k,1074) = lu(k,1074) - lu(k,914) * lu(k,1056)
7365 114070872 : lu(k,1075) = lu(k,1075) - lu(k,915) * lu(k,1056)
7366 114070872 : lu(k,1076) = lu(k,1076) - lu(k,916) * lu(k,1056)
7367 114070872 : lu(k,1077) = lu(k,1077) - lu(k,917) * lu(k,1056)
7368 114070872 : lu(k,1078) = lu(k,1078) - lu(k,918) * lu(k,1056)
7369 114070872 : lu(k,1079) = lu(k,1079) - lu(k,919) * lu(k,1056)
7370 114070872 : lu(k,1080) = lu(k,1080) - lu(k,920) * lu(k,1056)
7371 114070872 : lu(k,1081) = lu(k,1081) - lu(k,921) * lu(k,1056)
7372 114070872 : lu(k,1101) = lu(k,1101) - lu(k,901) * lu(k,1099)
7373 114070872 : lu(k,1103) = lu(k,1103) - lu(k,902) * lu(k,1099)
7374 114070872 : lu(k,1104) = lu(k,1104) - lu(k,903) * lu(k,1099)
7375 114070872 : lu(k,1107) = lu(k,1107) - lu(k,904) * lu(k,1099)
7376 114070872 : lu(k,1108) = lu(k,1108) - lu(k,905) * lu(k,1099)
7377 114070872 : lu(k,1109) = lu(k,1109) - lu(k,906) * lu(k,1099)
7378 114070872 : lu(k,1110) = lu(k,1110) - lu(k,907) * lu(k,1099)
7379 114070872 : lu(k,1111) = lu(k,1111) - lu(k,908) * lu(k,1099)
7380 114070872 : lu(k,1112) = lu(k,1112) - lu(k,909) * lu(k,1099)
7381 114070872 : lu(k,1113) = lu(k,1113) - lu(k,910) * lu(k,1099)
7382 114070872 : lu(k,1114) = lu(k,1114) - lu(k,911) * lu(k,1099)
7383 114070872 : lu(k,1115) = lu(k,1115) - lu(k,912) * lu(k,1099)
7384 114070872 : lu(k,1118) = lu(k,1118) - lu(k,913) * lu(k,1099)
7385 114070872 : lu(k,1119) = lu(k,1119) - lu(k,914) * lu(k,1099)
7386 114070872 : lu(k,1120) = lu(k,1120) - lu(k,915) * lu(k,1099)
7387 114070872 : lu(k,1121) = lu(k,1121) - lu(k,916) * lu(k,1099)
7388 114070872 : lu(k,1122) = lu(k,1122) - lu(k,917) * lu(k,1099)
7389 114070872 : lu(k,1123) = lu(k,1123) - lu(k,918) * lu(k,1099)
7390 114070872 : lu(k,1124) = lu(k,1124) - lu(k,919) * lu(k,1099)
7391 114070872 : lu(k,1125) = lu(k,1125) - lu(k,920) * lu(k,1099)
7392 114070872 : lu(k,1126) = lu(k,1126) - lu(k,921) * lu(k,1099)
7393 114070872 : lu(k,1149) = lu(k,1149) - lu(k,901) * lu(k,1147)
7394 114070872 : lu(k,1151) = lu(k,1151) - lu(k,902) * lu(k,1147)
7395 114070872 : lu(k,1152) = lu(k,1152) - lu(k,903) * lu(k,1147)
7396 114070872 : lu(k,1155) = lu(k,1155) - lu(k,904) * lu(k,1147)
7397 114070872 : lu(k,1156) = lu(k,1156) - lu(k,905) * lu(k,1147)
7398 114070872 : lu(k,1157) = lu(k,1157) - lu(k,906) * lu(k,1147)
7399 114070872 : lu(k,1158) = lu(k,1158) - lu(k,907) * lu(k,1147)
7400 114070872 : lu(k,1159) = lu(k,1159) - lu(k,908) * lu(k,1147)
7401 114070872 : lu(k,1160) = lu(k,1160) - lu(k,909) * lu(k,1147)
7402 114070872 : lu(k,1161) = lu(k,1161) - lu(k,910) * lu(k,1147)
7403 114070872 : lu(k,1162) = lu(k,1162) - lu(k,911) * lu(k,1147)
7404 114070872 : lu(k,1163) = lu(k,1163) - lu(k,912) * lu(k,1147)
7405 114070872 : lu(k,1166) = lu(k,1166) - lu(k,913) * lu(k,1147)
7406 114070872 : lu(k,1167) = lu(k,1167) - lu(k,914) * lu(k,1147)
7407 114070872 : lu(k,1168) = lu(k,1168) - lu(k,915) * lu(k,1147)
7408 114070872 : lu(k,1169) = lu(k,1169) - lu(k,916) * lu(k,1147)
7409 114070872 : lu(k,1170) = lu(k,1170) - lu(k,917) * lu(k,1147)
7410 114070872 : lu(k,1171) = lu(k,1171) - lu(k,918) * lu(k,1147)
7411 114070872 : lu(k,1172) = lu(k,1172) - lu(k,919) * lu(k,1147)
7412 114070872 : lu(k,1173) = lu(k,1173) - lu(k,920) * lu(k,1147)
7413 114070872 : lu(k,1174) = lu(k,1174) - lu(k,921) * lu(k,1147)
7414 114070872 : lu(k,1192) = lu(k,1192) - lu(k,901) * lu(k,1190)
7415 114070872 : lu(k,1194) = lu(k,1194) - lu(k,902) * lu(k,1190)
7416 114070872 : lu(k,1195) = lu(k,1195) - lu(k,903) * lu(k,1190)
7417 114070872 : lu(k,1198) = lu(k,1198) - lu(k,904) * lu(k,1190)
7418 114070872 : lu(k,1199) = lu(k,1199) - lu(k,905) * lu(k,1190)
7419 114070872 : lu(k,1200) = lu(k,1200) - lu(k,906) * lu(k,1190)
7420 114070872 : lu(k,1201) = lu(k,1201) - lu(k,907) * lu(k,1190)
7421 114070872 : lu(k,1202) = lu(k,1202) - lu(k,908) * lu(k,1190)
7422 114070872 : lu(k,1203) = lu(k,1203) - lu(k,909) * lu(k,1190)
7423 114070872 : lu(k,1204) = lu(k,1204) - lu(k,910) * lu(k,1190)
7424 114070872 : lu(k,1205) = lu(k,1205) - lu(k,911) * lu(k,1190)
7425 114070872 : lu(k,1206) = lu(k,1206) - lu(k,912) * lu(k,1190)
7426 114070872 : lu(k,1209) = lu(k,1209) - lu(k,913) * lu(k,1190)
7427 114070872 : lu(k,1210) = lu(k,1210) - lu(k,914) * lu(k,1190)
7428 114070872 : lu(k,1211) = lu(k,1211) - lu(k,915) * lu(k,1190)
7429 114070872 : lu(k,1212) = lu(k,1212) - lu(k,916) * lu(k,1190)
7430 114070872 : lu(k,1213) = lu(k,1213) - lu(k,917) * lu(k,1190)
7431 114070872 : lu(k,1214) = lu(k,1214) - lu(k,918) * lu(k,1190)
7432 114070872 : lu(k,1215) = lu(k,1215) - lu(k,919) * lu(k,1190)
7433 114070872 : lu(k,1216) = lu(k,1216) - lu(k,920) * lu(k,1190)
7434 114070872 : lu(k,1217) = lu(k,1217) - lu(k,921) * lu(k,1190)
7435 114070872 : lu(k,1235) = lu(k,1235) - lu(k,901) * lu(k,1233)
7436 114070872 : lu(k,1237) = lu(k,1237) - lu(k,902) * lu(k,1233)
7437 114070872 : lu(k,1238) = lu(k,1238) - lu(k,903) * lu(k,1233)
7438 114070872 : lu(k,1241) = lu(k,1241) - lu(k,904) * lu(k,1233)
7439 114070872 : lu(k,1242) = lu(k,1242) - lu(k,905) * lu(k,1233)
7440 114070872 : lu(k,1243) = lu(k,1243) - lu(k,906) * lu(k,1233)
7441 114070872 : lu(k,1244) = lu(k,1244) - lu(k,907) * lu(k,1233)
7442 114070872 : lu(k,1245) = lu(k,1245) - lu(k,908) * lu(k,1233)
7443 114070872 : lu(k,1246) = lu(k,1246) - lu(k,909) * lu(k,1233)
7444 114070872 : lu(k,1247) = lu(k,1247) - lu(k,910) * lu(k,1233)
7445 114070872 : lu(k,1248) = lu(k,1248) - lu(k,911) * lu(k,1233)
7446 114070872 : lu(k,1249) = lu(k,1249) - lu(k,912) * lu(k,1233)
7447 114070872 : lu(k,1252) = lu(k,1252) - lu(k,913) * lu(k,1233)
7448 114070872 : lu(k,1253) = lu(k,1253) - lu(k,914) * lu(k,1233)
7449 114070872 : lu(k,1254) = lu(k,1254) - lu(k,915) * lu(k,1233)
7450 114070872 : lu(k,1255) = lu(k,1255) - lu(k,916) * lu(k,1233)
7451 114070872 : lu(k,1256) = lu(k,1256) - lu(k,917) * lu(k,1233)
7452 114070872 : lu(k,1257) = lu(k,1257) - lu(k,918) * lu(k,1233)
7453 114070872 : lu(k,1258) = lu(k,1258) - lu(k,919) * lu(k,1233)
7454 114070872 : lu(k,1259) = lu(k,1259) - lu(k,920) * lu(k,1233)
7455 114070872 : lu(k,1260) = lu(k,1260) - lu(k,921) * lu(k,1233)
7456 114070872 : lu(k,1277) = lu(k,1277) - lu(k,901) * lu(k,1275)
7457 114070872 : lu(k,1279) = lu(k,1279) - lu(k,902) * lu(k,1275)
7458 114070872 : lu(k,1280) = lu(k,1280) - lu(k,903) * lu(k,1275)
7459 114070872 : lu(k,1283) = lu(k,1283) - lu(k,904) * lu(k,1275)
7460 114070872 : lu(k,1284) = lu(k,1284) - lu(k,905) * lu(k,1275)
7461 114070872 : lu(k,1285) = lu(k,1285) - lu(k,906) * lu(k,1275)
7462 114070872 : lu(k,1286) = lu(k,1286) - lu(k,907) * lu(k,1275)
7463 114070872 : lu(k,1287) = lu(k,1287) - lu(k,908) * lu(k,1275)
7464 114070872 : lu(k,1288) = lu(k,1288) - lu(k,909) * lu(k,1275)
7465 114070872 : lu(k,1289) = lu(k,1289) - lu(k,910) * lu(k,1275)
7466 114070872 : lu(k,1290) = lu(k,1290) - lu(k,911) * lu(k,1275)
7467 114070872 : lu(k,1291) = lu(k,1291) - lu(k,912) * lu(k,1275)
7468 114070872 : lu(k,1294) = lu(k,1294) - lu(k,913) * lu(k,1275)
7469 114070872 : lu(k,1295) = lu(k,1295) - lu(k,914) * lu(k,1275)
7470 114070872 : lu(k,1296) = lu(k,1296) - lu(k,915) * lu(k,1275)
7471 114070872 : lu(k,1297) = lu(k,1297) - lu(k,916) * lu(k,1275)
7472 114070872 : lu(k,1298) = lu(k,1298) - lu(k,917) * lu(k,1275)
7473 114070872 : lu(k,1299) = lu(k,1299) - lu(k,918) * lu(k,1275)
7474 114070872 : lu(k,1300) = lu(k,1300) - lu(k,919) * lu(k,1275)
7475 114070872 : lu(k,1301) = lu(k,1301) - lu(k,920) * lu(k,1275)
7476 114070872 : lu(k,1302) = lu(k,1302) - lu(k,921) * lu(k,1275)
7477 114070872 : lu(k,1319) = lu(k,1319) - lu(k,901) * lu(k,1317)
7478 114070872 : lu(k,1321) = lu(k,1321) - lu(k,902) * lu(k,1317)
7479 114070872 : lu(k,1322) = lu(k,1322) - lu(k,903) * lu(k,1317)
7480 114070872 : lu(k,1325) = lu(k,1325) - lu(k,904) * lu(k,1317)
7481 114070872 : lu(k,1326) = lu(k,1326) - lu(k,905) * lu(k,1317)
7482 114070872 : lu(k,1327) = lu(k,1327) - lu(k,906) * lu(k,1317)
7483 114070872 : lu(k,1328) = lu(k,1328) - lu(k,907) * lu(k,1317)
7484 114070872 : lu(k,1329) = lu(k,1329) - lu(k,908) * lu(k,1317)
7485 114070872 : lu(k,1330) = lu(k,1330) - lu(k,909) * lu(k,1317)
7486 114070872 : lu(k,1331) = lu(k,1331) - lu(k,910) * lu(k,1317)
7487 114070872 : lu(k,1332) = lu(k,1332) - lu(k,911) * lu(k,1317)
7488 114070872 : lu(k,1333) = lu(k,1333) - lu(k,912) * lu(k,1317)
7489 114070872 : lu(k,1336) = lu(k,1336) - lu(k,913) * lu(k,1317)
7490 114070872 : lu(k,1337) = lu(k,1337) - lu(k,914) * lu(k,1317)
7491 114070872 : lu(k,1338) = lu(k,1338) - lu(k,915) * lu(k,1317)
7492 114070872 : lu(k,1339) = lu(k,1339) - lu(k,916) * lu(k,1317)
7493 114070872 : lu(k,1340) = lu(k,1340) - lu(k,917) * lu(k,1317)
7494 114070872 : lu(k,1341) = lu(k,1341) - lu(k,918) * lu(k,1317)
7495 114070872 : lu(k,1342) = lu(k,1342) - lu(k,919) * lu(k,1317)
7496 114070872 : lu(k,1343) = lu(k,1343) - lu(k,920) * lu(k,1317)
7497 114070872 : lu(k,1344) = lu(k,1344) - lu(k,921) * lu(k,1317)
7498 114070872 : lu(k,1379) = lu(k,1379) - lu(k,901) * lu(k,1377)
7499 114070872 : lu(k,1381) = lu(k,1381) - lu(k,902) * lu(k,1377)
7500 114070872 : lu(k,1382) = lu(k,1382) - lu(k,903) * lu(k,1377)
7501 114070872 : lu(k,1385) = lu(k,1385) - lu(k,904) * lu(k,1377)
7502 114070872 : lu(k,1386) = lu(k,1386) - lu(k,905) * lu(k,1377)
7503 114070872 : lu(k,1387) = lu(k,1387) - lu(k,906) * lu(k,1377)
7504 114070872 : lu(k,1388) = lu(k,1388) - lu(k,907) * lu(k,1377)
7505 114070872 : lu(k,1389) = lu(k,1389) - lu(k,908) * lu(k,1377)
7506 114070872 : lu(k,1390) = lu(k,1390) - lu(k,909) * lu(k,1377)
7507 114070872 : lu(k,1391) = lu(k,1391) - lu(k,910) * lu(k,1377)
7508 114070872 : lu(k,1392) = lu(k,1392) - lu(k,911) * lu(k,1377)
7509 114070872 : lu(k,1393) = lu(k,1393) - lu(k,912) * lu(k,1377)
7510 114070872 : lu(k,1396) = lu(k,1396) - lu(k,913) * lu(k,1377)
7511 114070872 : lu(k,1397) = lu(k,1397) - lu(k,914) * lu(k,1377)
7512 114070872 : lu(k,1398) = lu(k,1398) - lu(k,915) * lu(k,1377)
7513 114070872 : lu(k,1399) = lu(k,1399) - lu(k,916) * lu(k,1377)
7514 114070872 : lu(k,1400) = lu(k,1400) - lu(k,917) * lu(k,1377)
7515 114070872 : lu(k,1401) = lu(k,1401) - lu(k,918) * lu(k,1377)
7516 114070872 : lu(k,1402) = lu(k,1402) - lu(k,919) * lu(k,1377)
7517 114070872 : lu(k,1403) = lu(k,1403) - lu(k,920) * lu(k,1377)
7518 114070872 : lu(k,1404) = lu(k,1404) - lu(k,921) * lu(k,1377)
7519 114070872 : lu(k,1428) = lu(k,1428) - lu(k,901) * lu(k,1426)
7520 114070872 : lu(k,1430) = lu(k,1430) - lu(k,902) * lu(k,1426)
7521 114070872 : lu(k,1431) = lu(k,1431) - lu(k,903) * lu(k,1426)
7522 114070872 : lu(k,1434) = lu(k,1434) - lu(k,904) * lu(k,1426)
7523 114070872 : lu(k,1435) = lu(k,1435) - lu(k,905) * lu(k,1426)
7524 114070872 : lu(k,1436) = lu(k,1436) - lu(k,906) * lu(k,1426)
7525 114070872 : lu(k,1437) = lu(k,1437) - lu(k,907) * lu(k,1426)
7526 114070872 : lu(k,1438) = lu(k,1438) - lu(k,908) * lu(k,1426)
7527 114070872 : lu(k,1439) = lu(k,1439) - lu(k,909) * lu(k,1426)
7528 114070872 : lu(k,1440) = lu(k,1440) - lu(k,910) * lu(k,1426)
7529 114070872 : lu(k,1441) = lu(k,1441) - lu(k,911) * lu(k,1426)
7530 114070872 : lu(k,1442) = lu(k,1442) - lu(k,912) * lu(k,1426)
7531 114070872 : lu(k,1445) = lu(k,1445) - lu(k,913) * lu(k,1426)
7532 114070872 : lu(k,1446) = lu(k,1446) - lu(k,914) * lu(k,1426)
7533 114070872 : lu(k,1447) = lu(k,1447) - lu(k,915) * lu(k,1426)
7534 114070872 : lu(k,1448) = lu(k,1448) - lu(k,916) * lu(k,1426)
7535 114070872 : lu(k,1449) = lu(k,1449) - lu(k,917) * lu(k,1426)
7536 114070872 : lu(k,1450) = lu(k,1450) - lu(k,918) * lu(k,1426)
7537 114070872 : lu(k,1451) = lu(k,1451) - lu(k,919) * lu(k,1426)
7538 114070872 : lu(k,1452) = lu(k,1452) - lu(k,920) * lu(k,1426)
7539 114070872 : lu(k,1453) = lu(k,1453) - lu(k,921) * lu(k,1426)
7540 114070872 : lu(k,1476) = lu(k,1476) - lu(k,901) * lu(k,1474)
7541 114070872 : lu(k,1478) = lu(k,1478) - lu(k,902) * lu(k,1474)
7542 114070872 : lu(k,1479) = lu(k,1479) - lu(k,903) * lu(k,1474)
7543 114070872 : lu(k,1482) = lu(k,1482) - lu(k,904) * lu(k,1474)
7544 114070872 : lu(k,1483) = lu(k,1483) - lu(k,905) * lu(k,1474)
7545 114070872 : lu(k,1484) = lu(k,1484) - lu(k,906) * lu(k,1474)
7546 114070872 : lu(k,1485) = lu(k,1485) - lu(k,907) * lu(k,1474)
7547 114070872 : lu(k,1486) = lu(k,1486) - lu(k,908) * lu(k,1474)
7548 114070872 : lu(k,1487) = lu(k,1487) - lu(k,909) * lu(k,1474)
7549 114070872 : lu(k,1488) = lu(k,1488) - lu(k,910) * lu(k,1474)
7550 114070872 : lu(k,1489) = lu(k,1489) - lu(k,911) * lu(k,1474)
7551 114070872 : lu(k,1490) = lu(k,1490) - lu(k,912) * lu(k,1474)
7552 114070872 : lu(k,1493) = lu(k,1493) - lu(k,913) * lu(k,1474)
7553 114070872 : lu(k,1494) = lu(k,1494) - lu(k,914) * lu(k,1474)
7554 114070872 : lu(k,1495) = lu(k,1495) - lu(k,915) * lu(k,1474)
7555 114070872 : lu(k,1496) = lu(k,1496) - lu(k,916) * lu(k,1474)
7556 114070872 : lu(k,1497) = lu(k,1497) - lu(k,917) * lu(k,1474)
7557 114070872 : lu(k,1498) = lu(k,1498) - lu(k,918) * lu(k,1474)
7558 114070872 : lu(k,1499) = lu(k,1499) - lu(k,919) * lu(k,1474)
7559 114070872 : lu(k,1500) = lu(k,1500) - lu(k,920) * lu(k,1474)
7560 114070872 : lu(k,1501) = lu(k,1501) - lu(k,921) * lu(k,1474)
7561 114070872 : lu(k,1517) = lu(k,1517) - lu(k,901) * lu(k,1515)
7562 114070872 : lu(k,1519) = lu(k,1519) - lu(k,902) * lu(k,1515)
7563 114070872 : lu(k,1520) = lu(k,1520) - lu(k,903) * lu(k,1515)
7564 114070872 : lu(k,1523) = lu(k,1523) - lu(k,904) * lu(k,1515)
7565 114070872 : lu(k,1524) = lu(k,1524) - lu(k,905) * lu(k,1515)
7566 114070872 : lu(k,1525) = lu(k,1525) - lu(k,906) * lu(k,1515)
7567 114070872 : lu(k,1526) = lu(k,1526) - lu(k,907) * lu(k,1515)
7568 114070872 : lu(k,1527) = lu(k,1527) - lu(k,908) * lu(k,1515)
7569 114070872 : lu(k,1528) = lu(k,1528) - lu(k,909) * lu(k,1515)
7570 114070872 : lu(k,1529) = lu(k,1529) - lu(k,910) * lu(k,1515)
7571 114070872 : lu(k,1530) = lu(k,1530) - lu(k,911) * lu(k,1515)
7572 114070872 : lu(k,1531) = lu(k,1531) - lu(k,912) * lu(k,1515)
7573 114070872 : lu(k,1534) = lu(k,1534) - lu(k,913) * lu(k,1515)
7574 114070872 : lu(k,1535) = lu(k,1535) - lu(k,914) * lu(k,1515)
7575 114070872 : lu(k,1536) = lu(k,1536) - lu(k,915) * lu(k,1515)
7576 114070872 : lu(k,1537) = lu(k,1537) - lu(k,916) * lu(k,1515)
7577 114070872 : lu(k,1538) = lu(k,1538) - lu(k,917) * lu(k,1515)
7578 114070872 : lu(k,1539) = lu(k,1539) - lu(k,918) * lu(k,1515)
7579 114070872 : lu(k,1540) = lu(k,1540) - lu(k,919) * lu(k,1515)
7580 114070872 : lu(k,1541) = lu(k,1541) - lu(k,920) * lu(k,1515)
7581 114070872 : lu(k,1542) = lu(k,1542) - lu(k,921) * lu(k,1515)
7582 114070872 : lu(k,1553) = lu(k,1553) - lu(k,901) * lu(k,1551)
7583 114070872 : lu(k,1555) = lu(k,1555) - lu(k,902) * lu(k,1551)
7584 114070872 : lu(k,1556) = lu(k,1556) - lu(k,903) * lu(k,1551)
7585 114070872 : lu(k,1559) = lu(k,1559) - lu(k,904) * lu(k,1551)
7586 114070872 : lu(k,1560) = lu(k,1560) - lu(k,905) * lu(k,1551)
7587 114070872 : lu(k,1561) = lu(k,1561) - lu(k,906) * lu(k,1551)
7588 114070872 : lu(k,1562) = lu(k,1562) - lu(k,907) * lu(k,1551)
7589 114070872 : lu(k,1563) = lu(k,1563) - lu(k,908) * lu(k,1551)
7590 114070872 : lu(k,1564) = lu(k,1564) - lu(k,909) * lu(k,1551)
7591 114070872 : lu(k,1565) = lu(k,1565) - lu(k,910) * lu(k,1551)
7592 114070872 : lu(k,1566) = lu(k,1566) - lu(k,911) * lu(k,1551)
7593 114070872 : lu(k,1567) = lu(k,1567) - lu(k,912) * lu(k,1551)
7594 114070872 : lu(k,1570) = lu(k,1570) - lu(k,913) * lu(k,1551)
7595 114070872 : lu(k,1571) = lu(k,1571) - lu(k,914) * lu(k,1551)
7596 114070872 : lu(k,1572) = lu(k,1572) - lu(k,915) * lu(k,1551)
7597 114070872 : lu(k,1573) = lu(k,1573) - lu(k,916) * lu(k,1551)
7598 114070872 : lu(k,1574) = lu(k,1574) - lu(k,917) * lu(k,1551)
7599 114070872 : lu(k,1575) = lu(k,1575) - lu(k,918) * lu(k,1551)
7600 114070872 : lu(k,1576) = lu(k,1576) - lu(k,919) * lu(k,1551)
7601 114070872 : lu(k,1577) = lu(k,1577) - lu(k,920) * lu(k,1551)
7602 114070872 : lu(k,1578) = lu(k,1578) - lu(k,921) * lu(k,1551)
7603 114070872 : lu(k,1598) = lu(k,1598) - lu(k,901) * lu(k,1596)
7604 114070872 : lu(k,1600) = lu(k,1600) - lu(k,902) * lu(k,1596)
7605 114070872 : lu(k,1601) = lu(k,1601) - lu(k,903) * lu(k,1596)
7606 114070872 : lu(k,1604) = lu(k,1604) - lu(k,904) * lu(k,1596)
7607 114070872 : lu(k,1605) = lu(k,1605) - lu(k,905) * lu(k,1596)
7608 114070872 : lu(k,1606) = lu(k,1606) - lu(k,906) * lu(k,1596)
7609 114070872 : lu(k,1607) = lu(k,1607) - lu(k,907) * lu(k,1596)
7610 114070872 : lu(k,1608) = lu(k,1608) - lu(k,908) * lu(k,1596)
7611 114070872 : lu(k,1609) = lu(k,1609) - lu(k,909) * lu(k,1596)
7612 114070872 : lu(k,1610) = lu(k,1610) - lu(k,910) * lu(k,1596)
7613 114070872 : lu(k,1611) = lu(k,1611) - lu(k,911) * lu(k,1596)
7614 114070872 : lu(k,1612) = lu(k,1612) - lu(k,912) * lu(k,1596)
7615 114070872 : lu(k,1615) = lu(k,1615) - lu(k,913) * lu(k,1596)
7616 114070872 : lu(k,1616) = lu(k,1616) - lu(k,914) * lu(k,1596)
7617 114070872 : lu(k,1617) = lu(k,1617) - lu(k,915) * lu(k,1596)
7618 114070872 : lu(k,1618) = lu(k,1618) - lu(k,916) * lu(k,1596)
7619 114070872 : lu(k,1619) = lu(k,1619) - lu(k,917) * lu(k,1596)
7620 114070872 : lu(k,1620) = lu(k,1620) - lu(k,918) * lu(k,1596)
7621 114070872 : lu(k,1621) = lu(k,1621) - lu(k,919) * lu(k,1596)
7622 114070872 : lu(k,1622) = lu(k,1622) - lu(k,920) * lu(k,1596)
7623 114070872 : lu(k,1623) = lu(k,1623) - lu(k,921) * lu(k,1596)
7624 114070872 : lu(k,1641) = lu(k,1641) - lu(k,901) * lu(k,1639)
7625 114070872 : lu(k,1643) = lu(k,1643) - lu(k,902) * lu(k,1639)
7626 114070872 : lu(k,1644) = lu(k,1644) - lu(k,903) * lu(k,1639)
7627 114070872 : lu(k,1647) = lu(k,1647) - lu(k,904) * lu(k,1639)
7628 114070872 : lu(k,1648) = lu(k,1648) - lu(k,905) * lu(k,1639)
7629 114070872 : lu(k,1649) = lu(k,1649) - lu(k,906) * lu(k,1639)
7630 114070872 : lu(k,1650) = lu(k,1650) - lu(k,907) * lu(k,1639)
7631 114070872 : lu(k,1651) = lu(k,1651) - lu(k,908) * lu(k,1639)
7632 114070872 : lu(k,1652) = lu(k,1652) - lu(k,909) * lu(k,1639)
7633 114070872 : lu(k,1653) = lu(k,1653) - lu(k,910) * lu(k,1639)
7634 114070872 : lu(k,1654) = lu(k,1654) - lu(k,911) * lu(k,1639)
7635 114070872 : lu(k,1655) = lu(k,1655) - lu(k,912) * lu(k,1639)
7636 114070872 : lu(k,1658) = lu(k,1658) - lu(k,913) * lu(k,1639)
7637 114070872 : lu(k,1659) = lu(k,1659) - lu(k,914) * lu(k,1639)
7638 114070872 : lu(k,1660) = lu(k,1660) - lu(k,915) * lu(k,1639)
7639 114070872 : lu(k,1661) = lu(k,1661) - lu(k,916) * lu(k,1639)
7640 114070872 : lu(k,1662) = lu(k,1662) - lu(k,917) * lu(k,1639)
7641 114070872 : lu(k,1663) = lu(k,1663) - lu(k,918) * lu(k,1639)
7642 114070872 : lu(k,1664) = lu(k,1664) - lu(k,919) * lu(k,1639)
7643 114070872 : lu(k,1665) = lu(k,1665) - lu(k,920) * lu(k,1639)
7644 114070872 : lu(k,1666) = lu(k,1666) - lu(k,921) * lu(k,1639)
7645 114070872 : lu(k,1684) = lu(k,1684) - lu(k,901) * lu(k,1682)
7646 114070872 : lu(k,1686) = lu(k,1686) - lu(k,902) * lu(k,1682)
7647 114070872 : lu(k,1687) = lu(k,1687) - lu(k,903) * lu(k,1682)
7648 114070872 : lu(k,1690) = lu(k,1690) - lu(k,904) * lu(k,1682)
7649 114070872 : lu(k,1691) = lu(k,1691) - lu(k,905) * lu(k,1682)
7650 114070872 : lu(k,1692) = lu(k,1692) - lu(k,906) * lu(k,1682)
7651 114070872 : lu(k,1693) = lu(k,1693) - lu(k,907) * lu(k,1682)
7652 114070872 : lu(k,1694) = lu(k,1694) - lu(k,908) * lu(k,1682)
7653 114070872 : lu(k,1695) = lu(k,1695) - lu(k,909) * lu(k,1682)
7654 114070872 : lu(k,1696) = lu(k,1696) - lu(k,910) * lu(k,1682)
7655 114070872 : lu(k,1697) = lu(k,1697) - lu(k,911) * lu(k,1682)
7656 114070872 : lu(k,1698) = lu(k,1698) - lu(k,912) * lu(k,1682)
7657 114070872 : lu(k,1701) = lu(k,1701) - lu(k,913) * lu(k,1682)
7658 114070872 : lu(k,1702) = lu(k,1702) - lu(k,914) * lu(k,1682)
7659 114070872 : lu(k,1703) = lu(k,1703) - lu(k,915) * lu(k,1682)
7660 114070872 : lu(k,1704) = lu(k,1704) - lu(k,916) * lu(k,1682)
7661 114070872 : lu(k,1705) = lu(k,1705) - lu(k,917) * lu(k,1682)
7662 114070872 : lu(k,1706) = lu(k,1706) - lu(k,918) * lu(k,1682)
7663 114070872 : lu(k,1707) = lu(k,1707) - lu(k,919) * lu(k,1682)
7664 114070872 : lu(k,1708) = lu(k,1708) - lu(k,920) * lu(k,1682)
7665 114070872 : lu(k,1709) = lu(k,1709) - lu(k,921) * lu(k,1682)
7666 114070872 : lu(k,1725) = lu(k,1725) - lu(k,901) * lu(k,1723)
7667 114070872 : lu(k,1726) = lu(k,1726) - lu(k,902) * lu(k,1723)
7668 114070872 : lu(k,1727) = lu(k,1727) - lu(k,903) * lu(k,1723)
7669 114070872 : lu(k,1730) = lu(k,1730) - lu(k,904) * lu(k,1723)
7670 114070872 : lu(k,1731) = lu(k,1731) - lu(k,905) * lu(k,1723)
7671 114070872 : lu(k,1732) = lu(k,1732) - lu(k,906) * lu(k,1723)
7672 114070872 : lu(k,1733) = lu(k,1733) - lu(k,907) * lu(k,1723)
7673 114070872 : lu(k,1734) = lu(k,1734) - lu(k,908) * lu(k,1723)
7674 114070872 : lu(k,1735) = lu(k,1735) - lu(k,909) * lu(k,1723)
7675 114070872 : lu(k,1736) = lu(k,1736) - lu(k,910) * lu(k,1723)
7676 114070872 : lu(k,1737) = lu(k,1737) - lu(k,911) * lu(k,1723)
7677 114070872 : lu(k,1738) = lu(k,1738) - lu(k,912) * lu(k,1723)
7678 114070872 : lu(k,1741) = lu(k,1741) - lu(k,913) * lu(k,1723)
7679 114070872 : lu(k,1742) = lu(k,1742) - lu(k,914) * lu(k,1723)
7680 114070872 : lu(k,1743) = lu(k,1743) - lu(k,915) * lu(k,1723)
7681 114070872 : lu(k,1744) = lu(k,1744) - lu(k,916) * lu(k,1723)
7682 114070872 : lu(k,1745) = lu(k,1745) - lu(k,917) * lu(k,1723)
7683 114070872 : lu(k,1746) = lu(k,1746) - lu(k,918) * lu(k,1723)
7684 114070872 : lu(k,1747) = lu(k,1747) - lu(k,919) * lu(k,1723)
7685 114070872 : lu(k,1748) = lu(k,1748) - lu(k,920) * lu(k,1723)
7686 114070872 : lu(k,1749) = lu(k,1749) - lu(k,921) * lu(k,1723)
7687 114070872 : lu(k,1760) = lu(k,1760) - lu(k,901) * lu(k,1758)
7688 114070872 : lu(k,1762) = lu(k,1762) - lu(k,902) * lu(k,1758)
7689 114070872 : lu(k,1763) = lu(k,1763) - lu(k,903) * lu(k,1758)
7690 114070872 : lu(k,1766) = lu(k,1766) - lu(k,904) * lu(k,1758)
7691 114070872 : lu(k,1767) = lu(k,1767) - lu(k,905) * lu(k,1758)
7692 114070872 : lu(k,1768) = lu(k,1768) - lu(k,906) * lu(k,1758)
7693 114070872 : lu(k,1769) = lu(k,1769) - lu(k,907) * lu(k,1758)
7694 114070872 : lu(k,1770) = lu(k,1770) - lu(k,908) * lu(k,1758)
7695 114070872 : lu(k,1771) = lu(k,1771) - lu(k,909) * lu(k,1758)
7696 114070872 : lu(k,1772) = lu(k,1772) - lu(k,910) * lu(k,1758)
7697 114070872 : lu(k,1773) = lu(k,1773) - lu(k,911) * lu(k,1758)
7698 114070872 : lu(k,1774) = lu(k,1774) - lu(k,912) * lu(k,1758)
7699 114070872 : lu(k,1777) = lu(k,1777) - lu(k,913) * lu(k,1758)
7700 114070872 : lu(k,1778) = lu(k,1778) - lu(k,914) * lu(k,1758)
7701 114070872 : lu(k,1779) = lu(k,1779) - lu(k,915) * lu(k,1758)
7702 114070872 : lu(k,1780) = lu(k,1780) - lu(k,916) * lu(k,1758)
7703 114070872 : lu(k,1781) = lu(k,1781) - lu(k,917) * lu(k,1758)
7704 114070872 : lu(k,1782) = lu(k,1782) - lu(k,918) * lu(k,1758)
7705 114070872 : lu(k,1783) = lu(k,1783) - lu(k,919) * lu(k,1758)
7706 114070872 : lu(k,1784) = lu(k,1784) - lu(k,920) * lu(k,1758)
7707 114070872 : lu(k,1785) = lu(k,1785) - lu(k,921) * lu(k,1758)
7708 114070872 : lu(k,1808) = lu(k,1808) - lu(k,901) * lu(k,1806)
7709 114070872 : lu(k,1810) = lu(k,1810) - lu(k,902) * lu(k,1806)
7710 114070872 : lu(k,1811) = lu(k,1811) - lu(k,903) * lu(k,1806)
7711 114070872 : lu(k,1814) = lu(k,1814) - lu(k,904) * lu(k,1806)
7712 114070872 : lu(k,1815) = lu(k,1815) - lu(k,905) * lu(k,1806)
7713 114070872 : lu(k,1816) = lu(k,1816) - lu(k,906) * lu(k,1806)
7714 114070872 : lu(k,1817) = lu(k,1817) - lu(k,907) * lu(k,1806)
7715 114070872 : lu(k,1818) = lu(k,1818) - lu(k,908) * lu(k,1806)
7716 114070872 : lu(k,1819) = lu(k,1819) - lu(k,909) * lu(k,1806)
7717 114070872 : lu(k,1820) = lu(k,1820) - lu(k,910) * lu(k,1806)
7718 114070872 : lu(k,1821) = lu(k,1821) - lu(k,911) * lu(k,1806)
7719 114070872 : lu(k,1822) = lu(k,1822) - lu(k,912) * lu(k,1806)
7720 114070872 : lu(k,1825) = lu(k,1825) - lu(k,913) * lu(k,1806)
7721 114070872 : lu(k,1826) = lu(k,1826) - lu(k,914) * lu(k,1806)
7722 114070872 : lu(k,1827) = lu(k,1827) - lu(k,915) * lu(k,1806)
7723 114070872 : lu(k,1828) = lu(k,1828) - lu(k,916) * lu(k,1806)
7724 114070872 : lu(k,1829) = lu(k,1829) - lu(k,917) * lu(k,1806)
7725 114070872 : lu(k,1830) = lu(k,1830) - lu(k,918) * lu(k,1806)
7726 114070872 : lu(k,1831) = lu(k,1831) - lu(k,919) * lu(k,1806)
7727 114070872 : lu(k,1832) = lu(k,1832) - lu(k,920) * lu(k,1806)
7728 114070872 : lu(k,1833) = lu(k,1833) - lu(k,921) * lu(k,1806)
7729 114070872 : lu(k,1841) = lu(k,1841) - lu(k,901) * lu(k,1839)
7730 114070872 : lu(k,1843) = lu(k,1843) - lu(k,902) * lu(k,1839)
7731 114070872 : lu(k,1844) = lu(k,1844) - lu(k,903) * lu(k,1839)
7732 114070872 : lu(k,1847) = lu(k,1847) - lu(k,904) * lu(k,1839)
7733 114070872 : lu(k,1848) = lu(k,1848) - lu(k,905) * lu(k,1839)
7734 114070872 : lu(k,1849) = lu(k,1849) - lu(k,906) * lu(k,1839)
7735 114070872 : lu(k,1850) = lu(k,1850) - lu(k,907) * lu(k,1839)
7736 114070872 : lu(k,1851) = lu(k,1851) - lu(k,908) * lu(k,1839)
7737 114070872 : lu(k,1852) = lu(k,1852) - lu(k,909) * lu(k,1839)
7738 114070872 : lu(k,1853) = lu(k,1853) - lu(k,910) * lu(k,1839)
7739 114070872 : lu(k,1854) = lu(k,1854) - lu(k,911) * lu(k,1839)
7740 114070872 : lu(k,1855) = lu(k,1855) - lu(k,912) * lu(k,1839)
7741 114070872 : lu(k,1858) = lu(k,1858) - lu(k,913) * lu(k,1839)
7742 114070872 : lu(k,1859) = lu(k,1859) - lu(k,914) * lu(k,1839)
7743 114070872 : lu(k,1860) = lu(k,1860) - lu(k,915) * lu(k,1839)
7744 114070872 : lu(k,1861) = lu(k,1861) - lu(k,916) * lu(k,1839)
7745 114070872 : lu(k,1862) = lu(k,1862) - lu(k,917) * lu(k,1839)
7746 114070872 : lu(k,1863) = lu(k,1863) - lu(k,918) * lu(k,1839)
7747 114070872 : lu(k,1864) = lu(k,1864) - lu(k,919) * lu(k,1839)
7748 114070872 : lu(k,1865) = lu(k,1865) - lu(k,920) * lu(k,1839)
7749 114070872 : lu(k,1866) = lu(k,1866) - lu(k,921) * lu(k,1839)
7750 114070872 : lu(k,1877) = lu(k,1877) - lu(k,901) * lu(k,1875)
7751 114070872 : lu(k,1879) = lu(k,1879) - lu(k,902) * lu(k,1875)
7752 114070872 : lu(k,1880) = lu(k,1880) - lu(k,903) * lu(k,1875)
7753 114070872 : lu(k,1883) = lu(k,1883) - lu(k,904) * lu(k,1875)
7754 114070872 : lu(k,1884) = lu(k,1884) - lu(k,905) * lu(k,1875)
7755 114070872 : lu(k,1885) = lu(k,1885) - lu(k,906) * lu(k,1875)
7756 114070872 : lu(k,1886) = lu(k,1886) - lu(k,907) * lu(k,1875)
7757 114070872 : lu(k,1887) = lu(k,1887) - lu(k,908) * lu(k,1875)
7758 114070872 : lu(k,1888) = lu(k,1888) - lu(k,909) * lu(k,1875)
7759 114070872 : lu(k,1889) = lu(k,1889) - lu(k,910) * lu(k,1875)
7760 114070872 : lu(k,1890) = lu(k,1890) - lu(k,911) * lu(k,1875)
7761 114070872 : lu(k,1891) = lu(k,1891) - lu(k,912) * lu(k,1875)
7762 114070872 : lu(k,1894) = lu(k,1894) - lu(k,913) * lu(k,1875)
7763 114070872 : lu(k,1895) = lu(k,1895) - lu(k,914) * lu(k,1875)
7764 114070872 : lu(k,1896) = lu(k,1896) - lu(k,915) * lu(k,1875)
7765 114070872 : lu(k,1897) = lu(k,1897) - lu(k,916) * lu(k,1875)
7766 114070872 : lu(k,1898) = lu(k,1898) - lu(k,917) * lu(k,1875)
7767 114070872 : lu(k,1899) = lu(k,1899) - lu(k,918) * lu(k,1875)
7768 114070872 : lu(k,1900) = lu(k,1900) - lu(k,919) * lu(k,1875)
7769 114070872 : lu(k,1901) = lu(k,1901) - lu(k,920) * lu(k,1875)
7770 114070872 : lu(k,1902) = lu(k,1902) - lu(k,921) * lu(k,1875)
7771 114070872 : lu(k,1918) = lu(k,1918) - lu(k,901) * lu(k,1916)
7772 114070872 : lu(k,1920) = lu(k,1920) - lu(k,902) * lu(k,1916)
7773 114070872 : lu(k,1921) = lu(k,1921) - lu(k,903) * lu(k,1916)
7774 114070872 : lu(k,1924) = lu(k,1924) - lu(k,904) * lu(k,1916)
7775 114070872 : lu(k,1925) = lu(k,1925) - lu(k,905) * lu(k,1916)
7776 114070872 : lu(k,1926) = lu(k,1926) - lu(k,906) * lu(k,1916)
7777 114070872 : lu(k,1927) = lu(k,1927) - lu(k,907) * lu(k,1916)
7778 114070872 : lu(k,1928) = lu(k,1928) - lu(k,908) * lu(k,1916)
7779 114070872 : lu(k,1929) = lu(k,1929) - lu(k,909) * lu(k,1916)
7780 114070872 : lu(k,1930) = lu(k,1930) - lu(k,910) * lu(k,1916)
7781 114070872 : lu(k,1931) = lu(k,1931) - lu(k,911) * lu(k,1916)
7782 114070872 : lu(k,1932) = lu(k,1932) - lu(k,912) * lu(k,1916)
7783 114070872 : lu(k,1935) = lu(k,1935) - lu(k,913) * lu(k,1916)
7784 114070872 : lu(k,1936) = lu(k,1936) - lu(k,914) * lu(k,1916)
7785 114070872 : lu(k,1937) = lu(k,1937) - lu(k,915) * lu(k,1916)
7786 114070872 : lu(k,1938) = lu(k,1938) - lu(k,916) * lu(k,1916)
7787 114070872 : lu(k,1939) = lu(k,1939) - lu(k,917) * lu(k,1916)
7788 114070872 : lu(k,1940) = lu(k,1940) - lu(k,918) * lu(k,1916)
7789 114070872 : lu(k,1941) = lu(k,1941) - lu(k,919) * lu(k,1916)
7790 114070872 : lu(k,1942) = lu(k,1942) - lu(k,920) * lu(k,1916)
7791 114070872 : lu(k,1943) = lu(k,1943) - lu(k,921) * lu(k,1916)
7792 114070872 : lu(k,1960) = lu(k,1960) - lu(k,901) * lu(k,1958)
7793 114070872 : lu(k,1962) = lu(k,1962) - lu(k,902) * lu(k,1958)
7794 114070872 : lu(k,1963) = lu(k,1963) - lu(k,903) * lu(k,1958)
7795 114070872 : lu(k,1966) = lu(k,1966) - lu(k,904) * lu(k,1958)
7796 114070872 : lu(k,1967) = lu(k,1967) - lu(k,905) * lu(k,1958)
7797 114070872 : lu(k,1968) = lu(k,1968) - lu(k,906) * lu(k,1958)
7798 114070872 : lu(k,1969) = lu(k,1969) - lu(k,907) * lu(k,1958)
7799 114070872 : lu(k,1970) = lu(k,1970) - lu(k,908) * lu(k,1958)
7800 114070872 : lu(k,1971) = lu(k,1971) - lu(k,909) * lu(k,1958)
7801 114070872 : lu(k,1972) = lu(k,1972) - lu(k,910) * lu(k,1958)
7802 114070872 : lu(k,1973) = lu(k,1973) - lu(k,911) * lu(k,1958)
7803 114070872 : lu(k,1974) = lu(k,1974) - lu(k,912) * lu(k,1958)
7804 114070872 : lu(k,1977) = lu(k,1977) - lu(k,913) * lu(k,1958)
7805 114070872 : lu(k,1978) = lu(k,1978) - lu(k,914) * lu(k,1958)
7806 114070872 : lu(k,1979) = lu(k,1979) - lu(k,915) * lu(k,1958)
7807 114070872 : lu(k,1980) = lu(k,1980) - lu(k,916) * lu(k,1958)
7808 114070872 : lu(k,1981) = lu(k,1981) - lu(k,917) * lu(k,1958)
7809 114070872 : lu(k,1982) = lu(k,1982) - lu(k,918) * lu(k,1958)
7810 114070872 : lu(k,1983) = lu(k,1983) - lu(k,919) * lu(k,1958)
7811 114070872 : lu(k,1984) = lu(k,1984) - lu(k,920) * lu(k,1958)
7812 114070872 : lu(k,1985) = lu(k,1985) - lu(k,921) * lu(k,1958)
7813 114070872 : lu(k,2005) = lu(k,2005) - lu(k,901) * lu(k,2003)
7814 114070872 : lu(k,2007) = lu(k,2007) - lu(k,902) * lu(k,2003)
7815 114070872 : lu(k,2008) = lu(k,2008) - lu(k,903) * lu(k,2003)
7816 114070872 : lu(k,2011) = lu(k,2011) - lu(k,904) * lu(k,2003)
7817 114070872 : lu(k,2012) = lu(k,2012) - lu(k,905) * lu(k,2003)
7818 114070872 : lu(k,2013) = lu(k,2013) - lu(k,906) * lu(k,2003)
7819 114070872 : lu(k,2014) = lu(k,2014) - lu(k,907) * lu(k,2003)
7820 114070872 : lu(k,2015) = lu(k,2015) - lu(k,908) * lu(k,2003)
7821 114070872 : lu(k,2016) = lu(k,2016) - lu(k,909) * lu(k,2003)
7822 114070872 : lu(k,2017) = lu(k,2017) - lu(k,910) * lu(k,2003)
7823 114070872 : lu(k,2018) = lu(k,2018) - lu(k,911) * lu(k,2003)
7824 114070872 : lu(k,2019) = lu(k,2019) - lu(k,912) * lu(k,2003)
7825 114070872 : lu(k,2022) = lu(k,2022) - lu(k,913) * lu(k,2003)
7826 114070872 : lu(k,2023) = lu(k,2023) - lu(k,914) * lu(k,2003)
7827 114070872 : lu(k,2024) = lu(k,2024) - lu(k,915) * lu(k,2003)
7828 114070872 : lu(k,2025) = lu(k,2025) - lu(k,916) * lu(k,2003)
7829 114070872 : lu(k,2026) = lu(k,2026) - lu(k,917) * lu(k,2003)
7830 114070872 : lu(k,2027) = lu(k,2027) - lu(k,918) * lu(k,2003)
7831 114070872 : lu(k,2028) = lu(k,2028) - lu(k,919) * lu(k,2003)
7832 114070872 : lu(k,2029) = lu(k,2029) - lu(k,920) * lu(k,2003)
7833 114070872 : lu(k,2030) = lu(k,2030) - lu(k,921) * lu(k,2003)
7834 114070872 : lu(k,2065) = lu(k,2065) - lu(k,901) * lu(k,2063)
7835 114070872 : lu(k,2067) = lu(k,2067) - lu(k,902) * lu(k,2063)
7836 114070872 : lu(k,2068) = lu(k,2068) - lu(k,903) * lu(k,2063)
7837 114070872 : lu(k,2071) = lu(k,2071) - lu(k,904) * lu(k,2063)
7838 114070872 : lu(k,2072) = lu(k,2072) - lu(k,905) * lu(k,2063)
7839 114070872 : lu(k,2073) = lu(k,2073) - lu(k,906) * lu(k,2063)
7840 114070872 : lu(k,2074) = lu(k,2074) - lu(k,907) * lu(k,2063)
7841 114070872 : lu(k,2075) = lu(k,2075) - lu(k,908) * lu(k,2063)
7842 114070872 : lu(k,2076) = lu(k,2076) - lu(k,909) * lu(k,2063)
7843 114070872 : lu(k,2077) = lu(k,2077) - lu(k,910) * lu(k,2063)
7844 114070872 : lu(k,2078) = lu(k,2078) - lu(k,911) * lu(k,2063)
7845 114070872 : lu(k,2079) = lu(k,2079) - lu(k,912) * lu(k,2063)
7846 114070872 : lu(k,2082) = lu(k,2082) - lu(k,913) * lu(k,2063)
7847 114070872 : lu(k,2083) = lu(k,2083) - lu(k,914) * lu(k,2063)
7848 114070872 : lu(k,2084) = lu(k,2084) - lu(k,915) * lu(k,2063)
7849 114070872 : lu(k,2085) = lu(k,2085) - lu(k,916) * lu(k,2063)
7850 114070872 : lu(k,2086) = lu(k,2086) - lu(k,917) * lu(k,2063)
7851 114070872 : lu(k,2087) = lu(k,2087) - lu(k,918) * lu(k,2063)
7852 114070872 : lu(k,2088) = lu(k,2088) - lu(k,919) * lu(k,2063)
7853 114070872 : lu(k,2089) = lu(k,2089) - lu(k,920) * lu(k,2063)
7854 114070872 : lu(k,2090) = lu(k,2090) - lu(k,921) * lu(k,2063)
7855 114070872 : lu(k,926) = 1._r8 / lu(k,926)
7856 114070872 : lu(k,927) = lu(k,927) * lu(k,926)
7857 114070872 : lu(k,928) = lu(k,928) * lu(k,926)
7858 114070872 : lu(k,929) = lu(k,929) * lu(k,926)
7859 114070872 : lu(k,930) = lu(k,930) * lu(k,926)
7860 114070872 : lu(k,931) = lu(k,931) * lu(k,926)
7861 114070872 : lu(k,932) = lu(k,932) * lu(k,926)
7862 114070872 : lu(k,933) = lu(k,933) * lu(k,926)
7863 114070872 : lu(k,934) = lu(k,934) * lu(k,926)
7864 114070872 : lu(k,935) = lu(k,935) * lu(k,926)
7865 114070872 : lu(k,936) = lu(k,936) * lu(k,926)
7866 114070872 : lu(k,937) = lu(k,937) * lu(k,926)
7867 114070872 : lu(k,938) = lu(k,938) * lu(k,926)
7868 114070872 : lu(k,939) = lu(k,939) * lu(k,926)
7869 114070872 : lu(k,940) = lu(k,940) * lu(k,926)
7870 114070872 : lu(k,941) = lu(k,941) * lu(k,926)
7871 114070872 : lu(k,942) = lu(k,942) * lu(k,926)
7872 114070872 : lu(k,943) = lu(k,943) * lu(k,926)
7873 114070872 : lu(k,944) = lu(k,944) * lu(k,926)
7874 114070872 : lu(k,945) = lu(k,945) * lu(k,926)
7875 114070872 : lu(k,946) = lu(k,946) * lu(k,926)
7876 114070872 : lu(k,947) = lu(k,947) * lu(k,926)
7877 114070872 : lu(k,948) = lu(k,948) * lu(k,926)
7878 114070872 : lu(k,1013) = lu(k,1013) - lu(k,927) * lu(k,1012)
7879 114070872 : lu(k,1015) = lu(k,1015) - lu(k,928) * lu(k,1012)
7880 114070872 : lu(k,1016) = lu(k,1016) - lu(k,929) * lu(k,1012)
7881 114070872 : lu(k,1017) = lu(k,1017) - lu(k,930) * lu(k,1012)
7882 114070872 : lu(k,1018) = lu(k,1018) - lu(k,931) * lu(k,1012)
7883 114070872 : lu(k,1019) = lu(k,1019) - lu(k,932) * lu(k,1012)
7884 114070872 : lu(k,1021) = lu(k,1021) - lu(k,933) * lu(k,1012)
7885 114070872 : lu(k,1022) = lu(k,1022) - lu(k,934) * lu(k,1012)
7886 114070872 : lu(k,1023) = lu(k,1023) - lu(k,935) * lu(k,1012)
7887 114070872 : lu(k,1024) = lu(k,1024) - lu(k,936) * lu(k,1012)
7888 114070872 : lu(k,1025) = lu(k,1025) - lu(k,937) * lu(k,1012)
7889 114070872 : lu(k,1027) = lu(k,1027) - lu(k,938) * lu(k,1012)
7890 114070872 : lu(k,1028) = lu(k,1028) - lu(k,939) * lu(k,1012)
7891 114070872 : lu(k,1029) = lu(k,1029) - lu(k,940) * lu(k,1012)
7892 114070872 : lu(k,1030) = lu(k,1030) - lu(k,941) * lu(k,1012)
7893 114070872 : lu(k,1031) = lu(k,1031) - lu(k,942) * lu(k,1012)
7894 114070872 : lu(k,1032) = lu(k,1032) - lu(k,943) * lu(k,1012)
7895 114070872 : lu(k,1033) = lu(k,1033) - lu(k,944) * lu(k,1012)
7896 114070872 : lu(k,1035) = lu(k,1035) - lu(k,945) * lu(k,1012)
7897 114070872 : lu(k,1036) = lu(k,1036) - lu(k,946) * lu(k,1012)
7898 114070872 : lu(k,1037) = lu(k,1037) - lu(k,947) * lu(k,1012)
7899 114070872 : lu(k,1038) = lu(k,1038) - lu(k,948) * lu(k,1012)
7900 114070872 : lu(k,1101) = lu(k,1101) - lu(k,927) * lu(k,1100)
7901 114070872 : lu(k,1103) = lu(k,1103) - lu(k,928) * lu(k,1100)
7902 114070872 : lu(k,1104) = lu(k,1104) - lu(k,929) * lu(k,1100)
7903 114070872 : lu(k,1105) = lu(k,1105) - lu(k,930) * lu(k,1100)
7904 114070872 : lu(k,1106) = lu(k,1106) - lu(k,931) * lu(k,1100)
7905 114070872 : lu(k,1107) = lu(k,1107) - lu(k,932) * lu(k,1100)
7906 114070872 : lu(k,1109) = lu(k,1109) - lu(k,933) * lu(k,1100)
7907 114070872 : lu(k,1110) = lu(k,1110) - lu(k,934) * lu(k,1100)
7908 114070872 : lu(k,1111) = lu(k,1111) - lu(k,935) * lu(k,1100)
7909 114070872 : lu(k,1112) = lu(k,1112) - lu(k,936) * lu(k,1100)
7910 114070872 : lu(k,1113) = lu(k,1113) - lu(k,937) * lu(k,1100)
7911 114070872 : lu(k,1115) = lu(k,1115) - lu(k,938) * lu(k,1100)
7912 114070872 : lu(k,1116) = lu(k,1116) - lu(k,939) * lu(k,1100)
7913 114070872 : lu(k,1117) = lu(k,1117) - lu(k,940) * lu(k,1100)
7914 114070872 : lu(k,1118) = lu(k,1118) - lu(k,941) * lu(k,1100)
7915 114070872 : lu(k,1119) = lu(k,1119) - lu(k,942) * lu(k,1100)
7916 114070872 : lu(k,1120) = lu(k,1120) - lu(k,943) * lu(k,1100)
7917 114070872 : lu(k,1121) = lu(k,1121) - lu(k,944) * lu(k,1100)
7918 114070872 : lu(k,1123) = lu(k,1123) - lu(k,945) * lu(k,1100)
7919 114070872 : lu(k,1124) = lu(k,1124) - lu(k,946) * lu(k,1100)
7920 114070872 : lu(k,1125) = lu(k,1125) - lu(k,947) * lu(k,1100)
7921 114070872 : lu(k,1126) = lu(k,1126) - lu(k,948) * lu(k,1100)
7922 114070872 : lu(k,1149) = lu(k,1149) - lu(k,927) * lu(k,1148)
7923 114070872 : lu(k,1151) = lu(k,1151) - lu(k,928) * lu(k,1148)
7924 114070872 : lu(k,1152) = lu(k,1152) - lu(k,929) * lu(k,1148)
7925 114070872 : lu(k,1153) = lu(k,1153) - lu(k,930) * lu(k,1148)
7926 114070872 : lu(k,1154) = lu(k,1154) - lu(k,931) * lu(k,1148)
7927 114070872 : lu(k,1155) = lu(k,1155) - lu(k,932) * lu(k,1148)
7928 114070872 : lu(k,1157) = lu(k,1157) - lu(k,933) * lu(k,1148)
7929 114070872 : lu(k,1158) = lu(k,1158) - lu(k,934) * lu(k,1148)
7930 114070872 : lu(k,1159) = lu(k,1159) - lu(k,935) * lu(k,1148)
7931 114070872 : lu(k,1160) = lu(k,1160) - lu(k,936) * lu(k,1148)
7932 114070872 : lu(k,1161) = lu(k,1161) - lu(k,937) * lu(k,1148)
7933 114070872 : lu(k,1163) = lu(k,1163) - lu(k,938) * lu(k,1148)
7934 114070872 : lu(k,1164) = lu(k,1164) - lu(k,939) * lu(k,1148)
7935 114070872 : lu(k,1165) = lu(k,1165) - lu(k,940) * lu(k,1148)
7936 114070872 : lu(k,1166) = lu(k,1166) - lu(k,941) * lu(k,1148)
7937 114070872 : lu(k,1167) = lu(k,1167) - lu(k,942) * lu(k,1148)
7938 114070872 : lu(k,1168) = lu(k,1168) - lu(k,943) * lu(k,1148)
7939 114070872 : lu(k,1169) = lu(k,1169) - lu(k,944) * lu(k,1148)
7940 114070872 : lu(k,1171) = lu(k,1171) - lu(k,945) * lu(k,1148)
7941 114070872 : lu(k,1172) = lu(k,1172) - lu(k,946) * lu(k,1148)
7942 114070872 : lu(k,1173) = lu(k,1173) - lu(k,947) * lu(k,1148)
7943 114070872 : lu(k,1174) = lu(k,1174) - lu(k,948) * lu(k,1148)
7944 114070872 : lu(k,1192) = lu(k,1192) - lu(k,927) * lu(k,1191)
7945 114070872 : lu(k,1194) = lu(k,1194) - lu(k,928) * lu(k,1191)
7946 114070872 : lu(k,1195) = lu(k,1195) - lu(k,929) * lu(k,1191)
7947 114070872 : lu(k,1196) = lu(k,1196) - lu(k,930) * lu(k,1191)
7948 114070872 : lu(k,1197) = lu(k,1197) - lu(k,931) * lu(k,1191)
7949 114070872 : lu(k,1198) = lu(k,1198) - lu(k,932) * lu(k,1191)
7950 114070872 : lu(k,1200) = lu(k,1200) - lu(k,933) * lu(k,1191)
7951 114070872 : lu(k,1201) = lu(k,1201) - lu(k,934) * lu(k,1191)
7952 114070872 : lu(k,1202) = lu(k,1202) - lu(k,935) * lu(k,1191)
7953 114070872 : lu(k,1203) = lu(k,1203) - lu(k,936) * lu(k,1191)
7954 114070872 : lu(k,1204) = lu(k,1204) - lu(k,937) * lu(k,1191)
7955 114070872 : lu(k,1206) = lu(k,1206) - lu(k,938) * lu(k,1191)
7956 114070872 : lu(k,1207) = lu(k,1207) - lu(k,939) * lu(k,1191)
7957 114070872 : lu(k,1208) = lu(k,1208) - lu(k,940) * lu(k,1191)
7958 114070872 : lu(k,1209) = lu(k,1209) - lu(k,941) * lu(k,1191)
7959 114070872 : lu(k,1210) = lu(k,1210) - lu(k,942) * lu(k,1191)
7960 114070872 : lu(k,1211) = lu(k,1211) - lu(k,943) * lu(k,1191)
7961 114070872 : lu(k,1212) = lu(k,1212) - lu(k,944) * lu(k,1191)
7962 114070872 : lu(k,1214) = lu(k,1214) - lu(k,945) * lu(k,1191)
7963 114070872 : lu(k,1215) = lu(k,1215) - lu(k,946) * lu(k,1191)
7964 114070872 : lu(k,1216) = lu(k,1216) - lu(k,947) * lu(k,1191)
7965 114070872 : lu(k,1217) = lu(k,1217) - lu(k,948) * lu(k,1191)
7966 114070872 : lu(k,1235) = lu(k,1235) - lu(k,927) * lu(k,1234)
7967 114070872 : lu(k,1237) = lu(k,1237) - lu(k,928) * lu(k,1234)
7968 114070872 : lu(k,1238) = lu(k,1238) - lu(k,929) * lu(k,1234)
7969 114070872 : lu(k,1239) = lu(k,1239) - lu(k,930) * lu(k,1234)
7970 114070872 : lu(k,1240) = lu(k,1240) - lu(k,931) * lu(k,1234)
7971 114070872 : lu(k,1241) = lu(k,1241) - lu(k,932) * lu(k,1234)
7972 114070872 : lu(k,1243) = lu(k,1243) - lu(k,933) * lu(k,1234)
7973 114070872 : lu(k,1244) = lu(k,1244) - lu(k,934) * lu(k,1234)
7974 114070872 : lu(k,1245) = lu(k,1245) - lu(k,935) * lu(k,1234)
7975 114070872 : lu(k,1246) = lu(k,1246) - lu(k,936) * lu(k,1234)
7976 114070872 : lu(k,1247) = lu(k,1247) - lu(k,937) * lu(k,1234)
7977 114070872 : lu(k,1249) = lu(k,1249) - lu(k,938) * lu(k,1234)
7978 114070872 : lu(k,1250) = lu(k,1250) - lu(k,939) * lu(k,1234)
7979 114070872 : lu(k,1251) = lu(k,1251) - lu(k,940) * lu(k,1234)
7980 114070872 : lu(k,1252) = lu(k,1252) - lu(k,941) * lu(k,1234)
7981 114070872 : lu(k,1253) = lu(k,1253) - lu(k,942) * lu(k,1234)
7982 114070872 : lu(k,1254) = lu(k,1254) - lu(k,943) * lu(k,1234)
7983 114070872 : lu(k,1255) = lu(k,1255) - lu(k,944) * lu(k,1234)
7984 114070872 : lu(k,1257) = lu(k,1257) - lu(k,945) * lu(k,1234)
7985 114070872 : lu(k,1258) = lu(k,1258) - lu(k,946) * lu(k,1234)
7986 114070872 : lu(k,1259) = lu(k,1259) - lu(k,947) * lu(k,1234)
7987 114070872 : lu(k,1260) = lu(k,1260) - lu(k,948) * lu(k,1234)
7988 114070872 : lu(k,1277) = lu(k,1277) - lu(k,927) * lu(k,1276)
7989 114070872 : lu(k,1279) = lu(k,1279) - lu(k,928) * lu(k,1276)
7990 114070872 : lu(k,1280) = lu(k,1280) - lu(k,929) * lu(k,1276)
7991 114070872 : lu(k,1281) = lu(k,1281) - lu(k,930) * lu(k,1276)
7992 114070872 : lu(k,1282) = lu(k,1282) - lu(k,931) * lu(k,1276)
7993 114070872 : lu(k,1283) = lu(k,1283) - lu(k,932) * lu(k,1276)
7994 114070872 : lu(k,1285) = lu(k,1285) - lu(k,933) * lu(k,1276)
7995 114070872 : lu(k,1286) = lu(k,1286) - lu(k,934) * lu(k,1276)
7996 114070872 : lu(k,1287) = lu(k,1287) - lu(k,935) * lu(k,1276)
7997 114070872 : lu(k,1288) = lu(k,1288) - lu(k,936) * lu(k,1276)
7998 114070872 : lu(k,1289) = lu(k,1289) - lu(k,937) * lu(k,1276)
7999 114070872 : lu(k,1291) = lu(k,1291) - lu(k,938) * lu(k,1276)
8000 114070872 : lu(k,1292) = lu(k,1292) - lu(k,939) * lu(k,1276)
8001 114070872 : lu(k,1293) = lu(k,1293) - lu(k,940) * lu(k,1276)
8002 114070872 : lu(k,1294) = lu(k,1294) - lu(k,941) * lu(k,1276)
8003 114070872 : lu(k,1295) = lu(k,1295) - lu(k,942) * lu(k,1276)
8004 114070872 : lu(k,1296) = lu(k,1296) - lu(k,943) * lu(k,1276)
8005 114070872 : lu(k,1297) = lu(k,1297) - lu(k,944) * lu(k,1276)
8006 114070872 : lu(k,1299) = lu(k,1299) - lu(k,945) * lu(k,1276)
8007 114070872 : lu(k,1300) = lu(k,1300) - lu(k,946) * lu(k,1276)
8008 114070872 : lu(k,1301) = lu(k,1301) - lu(k,947) * lu(k,1276)
8009 114070872 : lu(k,1302) = lu(k,1302) - lu(k,948) * lu(k,1276)
8010 114070872 : lu(k,1319) = lu(k,1319) - lu(k,927) * lu(k,1318)
8011 114070872 : lu(k,1321) = lu(k,1321) - lu(k,928) * lu(k,1318)
8012 114070872 : lu(k,1322) = lu(k,1322) - lu(k,929) * lu(k,1318)
8013 114070872 : lu(k,1323) = lu(k,1323) - lu(k,930) * lu(k,1318)
8014 114070872 : lu(k,1324) = lu(k,1324) - lu(k,931) * lu(k,1318)
8015 114070872 : lu(k,1325) = lu(k,1325) - lu(k,932) * lu(k,1318)
8016 114070872 : lu(k,1327) = lu(k,1327) - lu(k,933) * lu(k,1318)
8017 114070872 : lu(k,1328) = lu(k,1328) - lu(k,934) * lu(k,1318)
8018 114070872 : lu(k,1329) = lu(k,1329) - lu(k,935) * lu(k,1318)
8019 114070872 : lu(k,1330) = lu(k,1330) - lu(k,936) * lu(k,1318)
8020 114070872 : lu(k,1331) = lu(k,1331) - lu(k,937) * lu(k,1318)
8021 114070872 : lu(k,1333) = lu(k,1333) - lu(k,938) * lu(k,1318)
8022 114070872 : lu(k,1334) = lu(k,1334) - lu(k,939) * lu(k,1318)
8023 114070872 : lu(k,1335) = lu(k,1335) - lu(k,940) * lu(k,1318)
8024 114070872 : lu(k,1336) = lu(k,1336) - lu(k,941) * lu(k,1318)
8025 114070872 : lu(k,1337) = lu(k,1337) - lu(k,942) * lu(k,1318)
8026 114070872 : lu(k,1338) = lu(k,1338) - lu(k,943) * lu(k,1318)
8027 114070872 : lu(k,1339) = lu(k,1339) - lu(k,944) * lu(k,1318)
8028 114070872 : lu(k,1341) = lu(k,1341) - lu(k,945) * lu(k,1318)
8029 114070872 : lu(k,1342) = lu(k,1342) - lu(k,946) * lu(k,1318)
8030 114070872 : lu(k,1343) = lu(k,1343) - lu(k,947) * lu(k,1318)
8031 114070872 : lu(k,1344) = lu(k,1344) - lu(k,948) * lu(k,1318)
8032 114070872 : lu(k,1379) = lu(k,1379) - lu(k,927) * lu(k,1378)
8033 114070872 : lu(k,1381) = lu(k,1381) - lu(k,928) * lu(k,1378)
8034 114070872 : lu(k,1382) = lu(k,1382) - lu(k,929) * lu(k,1378)
8035 114070872 : lu(k,1383) = lu(k,1383) - lu(k,930) * lu(k,1378)
8036 114070872 : lu(k,1384) = lu(k,1384) - lu(k,931) * lu(k,1378)
8037 114070872 : lu(k,1385) = lu(k,1385) - lu(k,932) * lu(k,1378)
8038 114070872 : lu(k,1387) = lu(k,1387) - lu(k,933) * lu(k,1378)
8039 114070872 : lu(k,1388) = lu(k,1388) - lu(k,934) * lu(k,1378)
8040 114070872 : lu(k,1389) = lu(k,1389) - lu(k,935) * lu(k,1378)
8041 114070872 : lu(k,1390) = lu(k,1390) - lu(k,936) * lu(k,1378)
8042 114070872 : lu(k,1391) = lu(k,1391) - lu(k,937) * lu(k,1378)
8043 114070872 : lu(k,1393) = lu(k,1393) - lu(k,938) * lu(k,1378)
8044 114070872 : lu(k,1394) = lu(k,1394) - lu(k,939) * lu(k,1378)
8045 114070872 : lu(k,1395) = lu(k,1395) - lu(k,940) * lu(k,1378)
8046 114070872 : lu(k,1396) = lu(k,1396) - lu(k,941) * lu(k,1378)
8047 114070872 : lu(k,1397) = lu(k,1397) - lu(k,942) * lu(k,1378)
8048 114070872 : lu(k,1398) = lu(k,1398) - lu(k,943) * lu(k,1378)
8049 114070872 : lu(k,1399) = lu(k,1399) - lu(k,944) * lu(k,1378)
8050 114070872 : lu(k,1401) = lu(k,1401) - lu(k,945) * lu(k,1378)
8051 114070872 : lu(k,1402) = lu(k,1402) - lu(k,946) * lu(k,1378)
8052 114070872 : lu(k,1403) = lu(k,1403) - lu(k,947) * lu(k,1378)
8053 114070872 : lu(k,1404) = lu(k,1404) - lu(k,948) * lu(k,1378)
8054 114070872 : lu(k,1428) = lu(k,1428) - lu(k,927) * lu(k,1427)
8055 114070872 : lu(k,1430) = lu(k,1430) - lu(k,928) * lu(k,1427)
8056 114070872 : lu(k,1431) = lu(k,1431) - lu(k,929) * lu(k,1427)
8057 114070872 : lu(k,1432) = lu(k,1432) - lu(k,930) * lu(k,1427)
8058 114070872 : lu(k,1433) = lu(k,1433) - lu(k,931) * lu(k,1427)
8059 114070872 : lu(k,1434) = lu(k,1434) - lu(k,932) * lu(k,1427)
8060 114070872 : lu(k,1436) = lu(k,1436) - lu(k,933) * lu(k,1427)
8061 114070872 : lu(k,1437) = lu(k,1437) - lu(k,934) * lu(k,1427)
8062 114070872 : lu(k,1438) = lu(k,1438) - lu(k,935) * lu(k,1427)
8063 114070872 : lu(k,1439) = lu(k,1439) - lu(k,936) * lu(k,1427)
8064 114070872 : lu(k,1440) = lu(k,1440) - lu(k,937) * lu(k,1427)
8065 114070872 : lu(k,1442) = lu(k,1442) - lu(k,938) * lu(k,1427)
8066 114070872 : lu(k,1443) = lu(k,1443) - lu(k,939) * lu(k,1427)
8067 114070872 : lu(k,1444) = lu(k,1444) - lu(k,940) * lu(k,1427)
8068 114070872 : lu(k,1445) = lu(k,1445) - lu(k,941) * lu(k,1427)
8069 114070872 : lu(k,1446) = lu(k,1446) - lu(k,942) * lu(k,1427)
8070 114070872 : lu(k,1447) = lu(k,1447) - lu(k,943) * lu(k,1427)
8071 114070872 : lu(k,1448) = lu(k,1448) - lu(k,944) * lu(k,1427)
8072 114070872 : lu(k,1450) = lu(k,1450) - lu(k,945) * lu(k,1427)
8073 114070872 : lu(k,1451) = lu(k,1451) - lu(k,946) * lu(k,1427)
8074 114070872 : lu(k,1452) = lu(k,1452) - lu(k,947) * lu(k,1427)
8075 114070872 : lu(k,1453) = lu(k,1453) - lu(k,948) * lu(k,1427)
8076 114070872 : lu(k,1476) = lu(k,1476) - lu(k,927) * lu(k,1475)
8077 114070872 : lu(k,1478) = lu(k,1478) - lu(k,928) * lu(k,1475)
8078 114070872 : lu(k,1479) = lu(k,1479) - lu(k,929) * lu(k,1475)
8079 114070872 : lu(k,1480) = lu(k,1480) - lu(k,930) * lu(k,1475)
8080 114070872 : lu(k,1481) = lu(k,1481) - lu(k,931) * lu(k,1475)
8081 114070872 : lu(k,1482) = lu(k,1482) - lu(k,932) * lu(k,1475)
8082 114070872 : lu(k,1484) = lu(k,1484) - lu(k,933) * lu(k,1475)
8083 114070872 : lu(k,1485) = lu(k,1485) - lu(k,934) * lu(k,1475)
8084 114070872 : lu(k,1486) = lu(k,1486) - lu(k,935) * lu(k,1475)
8085 114070872 : lu(k,1487) = lu(k,1487) - lu(k,936) * lu(k,1475)
8086 114070872 : lu(k,1488) = lu(k,1488) - lu(k,937) * lu(k,1475)
8087 114070872 : lu(k,1490) = lu(k,1490) - lu(k,938) * lu(k,1475)
8088 114070872 : lu(k,1491) = lu(k,1491) - lu(k,939) * lu(k,1475)
8089 114070872 : lu(k,1492) = lu(k,1492) - lu(k,940) * lu(k,1475)
8090 114070872 : lu(k,1493) = lu(k,1493) - lu(k,941) * lu(k,1475)
8091 114070872 : lu(k,1494) = lu(k,1494) - lu(k,942) * lu(k,1475)
8092 114070872 : lu(k,1495) = lu(k,1495) - lu(k,943) * lu(k,1475)
8093 114070872 : lu(k,1496) = lu(k,1496) - lu(k,944) * lu(k,1475)
8094 114070872 : lu(k,1498) = lu(k,1498) - lu(k,945) * lu(k,1475)
8095 114070872 : lu(k,1499) = lu(k,1499) - lu(k,946) * lu(k,1475)
8096 114070872 : lu(k,1500) = lu(k,1500) - lu(k,947) * lu(k,1475)
8097 114070872 : lu(k,1501) = lu(k,1501) - lu(k,948) * lu(k,1475)
8098 114070872 : lu(k,1517) = lu(k,1517) - lu(k,927) * lu(k,1516)
8099 114070872 : lu(k,1519) = lu(k,1519) - lu(k,928) * lu(k,1516)
8100 114070872 : lu(k,1520) = lu(k,1520) - lu(k,929) * lu(k,1516)
8101 114070872 : lu(k,1521) = lu(k,1521) - lu(k,930) * lu(k,1516)
8102 114070872 : lu(k,1522) = lu(k,1522) - lu(k,931) * lu(k,1516)
8103 114070872 : lu(k,1523) = lu(k,1523) - lu(k,932) * lu(k,1516)
8104 114070872 : lu(k,1525) = lu(k,1525) - lu(k,933) * lu(k,1516)
8105 114070872 : lu(k,1526) = lu(k,1526) - lu(k,934) * lu(k,1516)
8106 114070872 : lu(k,1527) = lu(k,1527) - lu(k,935) * lu(k,1516)
8107 114070872 : lu(k,1528) = lu(k,1528) - lu(k,936) * lu(k,1516)
8108 114070872 : lu(k,1529) = lu(k,1529) - lu(k,937) * lu(k,1516)
8109 114070872 : lu(k,1531) = lu(k,1531) - lu(k,938) * lu(k,1516)
8110 114070872 : lu(k,1532) = lu(k,1532) - lu(k,939) * lu(k,1516)
8111 114070872 : lu(k,1533) = lu(k,1533) - lu(k,940) * lu(k,1516)
8112 114070872 : lu(k,1534) = lu(k,1534) - lu(k,941) * lu(k,1516)
8113 114070872 : lu(k,1535) = lu(k,1535) - lu(k,942) * lu(k,1516)
8114 114070872 : lu(k,1536) = lu(k,1536) - lu(k,943) * lu(k,1516)
8115 114070872 : lu(k,1537) = lu(k,1537) - lu(k,944) * lu(k,1516)
8116 114070872 : lu(k,1539) = lu(k,1539) - lu(k,945) * lu(k,1516)
8117 114070872 : lu(k,1540) = lu(k,1540) - lu(k,946) * lu(k,1516)
8118 114070872 : lu(k,1541) = lu(k,1541) - lu(k,947) * lu(k,1516)
8119 114070872 : lu(k,1542) = lu(k,1542) - lu(k,948) * lu(k,1516)
8120 114070872 : lu(k,1553) = lu(k,1553) - lu(k,927) * lu(k,1552)
8121 114070872 : lu(k,1555) = lu(k,1555) - lu(k,928) * lu(k,1552)
8122 114070872 : lu(k,1556) = lu(k,1556) - lu(k,929) * lu(k,1552)
8123 114070872 : lu(k,1557) = lu(k,1557) - lu(k,930) * lu(k,1552)
8124 114070872 : lu(k,1558) = lu(k,1558) - lu(k,931) * lu(k,1552)
8125 114070872 : lu(k,1559) = lu(k,1559) - lu(k,932) * lu(k,1552)
8126 114070872 : lu(k,1561) = lu(k,1561) - lu(k,933) * lu(k,1552)
8127 114070872 : lu(k,1562) = lu(k,1562) - lu(k,934) * lu(k,1552)
8128 114070872 : lu(k,1563) = lu(k,1563) - lu(k,935) * lu(k,1552)
8129 114070872 : lu(k,1564) = lu(k,1564) - lu(k,936) * lu(k,1552)
8130 114070872 : lu(k,1565) = lu(k,1565) - lu(k,937) * lu(k,1552)
8131 114070872 : lu(k,1567) = lu(k,1567) - lu(k,938) * lu(k,1552)
8132 114070872 : lu(k,1568) = lu(k,1568) - lu(k,939) * lu(k,1552)
8133 114070872 : lu(k,1569) = lu(k,1569) - lu(k,940) * lu(k,1552)
8134 114070872 : lu(k,1570) = lu(k,1570) - lu(k,941) * lu(k,1552)
8135 114070872 : lu(k,1571) = lu(k,1571) - lu(k,942) * lu(k,1552)
8136 114070872 : lu(k,1572) = lu(k,1572) - lu(k,943) * lu(k,1552)
8137 114070872 : lu(k,1573) = lu(k,1573) - lu(k,944) * lu(k,1552)
8138 114070872 : lu(k,1575) = lu(k,1575) - lu(k,945) * lu(k,1552)
8139 114070872 : lu(k,1576) = lu(k,1576) - lu(k,946) * lu(k,1552)
8140 114070872 : lu(k,1577) = lu(k,1577) - lu(k,947) * lu(k,1552)
8141 114070872 : lu(k,1578) = lu(k,1578) - lu(k,948) * lu(k,1552)
8142 114070872 : lu(k,1598) = lu(k,1598) - lu(k,927) * lu(k,1597)
8143 114070872 : lu(k,1600) = lu(k,1600) - lu(k,928) * lu(k,1597)
8144 114070872 : lu(k,1601) = lu(k,1601) - lu(k,929) * lu(k,1597)
8145 114070872 : lu(k,1602) = lu(k,1602) - lu(k,930) * lu(k,1597)
8146 114070872 : lu(k,1603) = lu(k,1603) - lu(k,931) * lu(k,1597)
8147 114070872 : lu(k,1604) = lu(k,1604) - lu(k,932) * lu(k,1597)
8148 114070872 : lu(k,1606) = lu(k,1606) - lu(k,933) * lu(k,1597)
8149 114070872 : lu(k,1607) = lu(k,1607) - lu(k,934) * lu(k,1597)
8150 114070872 : lu(k,1608) = lu(k,1608) - lu(k,935) * lu(k,1597)
8151 114070872 : lu(k,1609) = lu(k,1609) - lu(k,936) * lu(k,1597)
8152 114070872 : lu(k,1610) = lu(k,1610) - lu(k,937) * lu(k,1597)
8153 114070872 : lu(k,1612) = lu(k,1612) - lu(k,938) * lu(k,1597)
8154 114070872 : lu(k,1613) = lu(k,1613) - lu(k,939) * lu(k,1597)
8155 114070872 : lu(k,1614) = lu(k,1614) - lu(k,940) * lu(k,1597)
8156 114070872 : lu(k,1615) = lu(k,1615) - lu(k,941) * lu(k,1597)
8157 114070872 : lu(k,1616) = lu(k,1616) - lu(k,942) * lu(k,1597)
8158 114070872 : lu(k,1617) = lu(k,1617) - lu(k,943) * lu(k,1597)
8159 114070872 : lu(k,1618) = lu(k,1618) - lu(k,944) * lu(k,1597)
8160 114070872 : lu(k,1620) = lu(k,1620) - lu(k,945) * lu(k,1597)
8161 114070872 : lu(k,1621) = lu(k,1621) - lu(k,946) * lu(k,1597)
8162 114070872 : lu(k,1622) = lu(k,1622) - lu(k,947) * lu(k,1597)
8163 114070872 : lu(k,1623) = lu(k,1623) - lu(k,948) * lu(k,1597)
8164 114070872 : lu(k,1641) = lu(k,1641) - lu(k,927) * lu(k,1640)
8165 114070872 : lu(k,1643) = lu(k,1643) - lu(k,928) * lu(k,1640)
8166 114070872 : lu(k,1644) = lu(k,1644) - lu(k,929) * lu(k,1640)
8167 114070872 : lu(k,1645) = lu(k,1645) - lu(k,930) * lu(k,1640)
8168 114070872 : lu(k,1646) = lu(k,1646) - lu(k,931) * lu(k,1640)
8169 114070872 : lu(k,1647) = lu(k,1647) - lu(k,932) * lu(k,1640)
8170 114070872 : lu(k,1649) = lu(k,1649) - lu(k,933) * lu(k,1640)
8171 114070872 : lu(k,1650) = lu(k,1650) - lu(k,934) * lu(k,1640)
8172 114070872 : lu(k,1651) = lu(k,1651) - lu(k,935) * lu(k,1640)
8173 114070872 : lu(k,1652) = lu(k,1652) - lu(k,936) * lu(k,1640)
8174 114070872 : lu(k,1653) = lu(k,1653) - lu(k,937) * lu(k,1640)
8175 114070872 : lu(k,1655) = lu(k,1655) - lu(k,938) * lu(k,1640)
8176 114070872 : lu(k,1656) = lu(k,1656) - lu(k,939) * lu(k,1640)
8177 114070872 : lu(k,1657) = lu(k,1657) - lu(k,940) * lu(k,1640)
8178 114070872 : lu(k,1658) = lu(k,1658) - lu(k,941) * lu(k,1640)
8179 114070872 : lu(k,1659) = lu(k,1659) - lu(k,942) * lu(k,1640)
8180 114070872 : lu(k,1660) = lu(k,1660) - lu(k,943) * lu(k,1640)
8181 114070872 : lu(k,1661) = lu(k,1661) - lu(k,944) * lu(k,1640)
8182 114070872 : lu(k,1663) = lu(k,1663) - lu(k,945) * lu(k,1640)
8183 114070872 : lu(k,1664) = lu(k,1664) - lu(k,946) * lu(k,1640)
8184 114070872 : lu(k,1665) = lu(k,1665) - lu(k,947) * lu(k,1640)
8185 114070872 : lu(k,1666) = lu(k,1666) - lu(k,948) * lu(k,1640)
8186 114070872 : lu(k,1684) = lu(k,1684) - lu(k,927) * lu(k,1683)
8187 114070872 : lu(k,1686) = lu(k,1686) - lu(k,928) * lu(k,1683)
8188 114070872 : lu(k,1687) = lu(k,1687) - lu(k,929) * lu(k,1683)
8189 114070872 : lu(k,1688) = lu(k,1688) - lu(k,930) * lu(k,1683)
8190 114070872 : lu(k,1689) = lu(k,1689) - lu(k,931) * lu(k,1683)
8191 114070872 : lu(k,1690) = lu(k,1690) - lu(k,932) * lu(k,1683)
8192 114070872 : lu(k,1692) = lu(k,1692) - lu(k,933) * lu(k,1683)
8193 114070872 : lu(k,1693) = lu(k,1693) - lu(k,934) * lu(k,1683)
8194 114070872 : lu(k,1694) = lu(k,1694) - lu(k,935) * lu(k,1683)
8195 114070872 : lu(k,1695) = lu(k,1695) - lu(k,936) * lu(k,1683)
8196 114070872 : lu(k,1696) = lu(k,1696) - lu(k,937) * lu(k,1683)
8197 114070872 : lu(k,1698) = lu(k,1698) - lu(k,938) * lu(k,1683)
8198 114070872 : lu(k,1699) = lu(k,1699) - lu(k,939) * lu(k,1683)
8199 114070872 : lu(k,1700) = lu(k,1700) - lu(k,940) * lu(k,1683)
8200 114070872 : lu(k,1701) = lu(k,1701) - lu(k,941) * lu(k,1683)
8201 114070872 : lu(k,1702) = lu(k,1702) - lu(k,942) * lu(k,1683)
8202 114070872 : lu(k,1703) = lu(k,1703) - lu(k,943) * lu(k,1683)
8203 114070872 : lu(k,1704) = lu(k,1704) - lu(k,944) * lu(k,1683)
8204 114070872 : lu(k,1706) = lu(k,1706) - lu(k,945) * lu(k,1683)
8205 114070872 : lu(k,1707) = lu(k,1707) - lu(k,946) * lu(k,1683)
8206 114070872 : lu(k,1708) = lu(k,1708) - lu(k,947) * lu(k,1683)
8207 114070872 : lu(k,1709) = lu(k,1709) - lu(k,948) * lu(k,1683)
8208 114070872 : lu(k,1725) = lu(k,1725) - lu(k,927) * lu(k,1724)
8209 114070872 : lu(k,1726) = lu(k,1726) - lu(k,928) * lu(k,1724)
8210 114070872 : lu(k,1727) = lu(k,1727) - lu(k,929) * lu(k,1724)
8211 114070872 : lu(k,1728) = lu(k,1728) - lu(k,930) * lu(k,1724)
8212 114070872 : lu(k,1729) = lu(k,1729) - lu(k,931) * lu(k,1724)
8213 114070872 : lu(k,1730) = lu(k,1730) - lu(k,932) * lu(k,1724)
8214 114070872 : lu(k,1732) = lu(k,1732) - lu(k,933) * lu(k,1724)
8215 114070872 : lu(k,1733) = lu(k,1733) - lu(k,934) * lu(k,1724)
8216 114070872 : lu(k,1734) = lu(k,1734) - lu(k,935) * lu(k,1724)
8217 114070872 : lu(k,1735) = lu(k,1735) - lu(k,936) * lu(k,1724)
8218 114070872 : lu(k,1736) = lu(k,1736) - lu(k,937) * lu(k,1724)
8219 114070872 : lu(k,1738) = lu(k,1738) - lu(k,938) * lu(k,1724)
8220 114070872 : lu(k,1739) = lu(k,1739) - lu(k,939) * lu(k,1724)
8221 114070872 : lu(k,1740) = lu(k,1740) - lu(k,940) * lu(k,1724)
8222 114070872 : lu(k,1741) = lu(k,1741) - lu(k,941) * lu(k,1724)
8223 114070872 : lu(k,1742) = lu(k,1742) - lu(k,942) * lu(k,1724)
8224 114070872 : lu(k,1743) = lu(k,1743) - lu(k,943) * lu(k,1724)
8225 114070872 : lu(k,1744) = lu(k,1744) - lu(k,944) * lu(k,1724)
8226 114070872 : lu(k,1746) = lu(k,1746) - lu(k,945) * lu(k,1724)
8227 114070872 : lu(k,1747) = lu(k,1747) - lu(k,946) * lu(k,1724)
8228 114070872 : lu(k,1748) = lu(k,1748) - lu(k,947) * lu(k,1724)
8229 114070872 : lu(k,1749) = lu(k,1749) - lu(k,948) * lu(k,1724)
8230 114070872 : lu(k,1760) = lu(k,1760) - lu(k,927) * lu(k,1759)
8231 114070872 : lu(k,1762) = lu(k,1762) - lu(k,928) * lu(k,1759)
8232 114070872 : lu(k,1763) = lu(k,1763) - lu(k,929) * lu(k,1759)
8233 114070872 : lu(k,1764) = lu(k,1764) - lu(k,930) * lu(k,1759)
8234 114070872 : lu(k,1765) = lu(k,1765) - lu(k,931) * lu(k,1759)
8235 114070872 : lu(k,1766) = lu(k,1766) - lu(k,932) * lu(k,1759)
8236 114070872 : lu(k,1768) = lu(k,1768) - lu(k,933) * lu(k,1759)
8237 114070872 : lu(k,1769) = lu(k,1769) - lu(k,934) * lu(k,1759)
8238 114070872 : lu(k,1770) = lu(k,1770) - lu(k,935) * lu(k,1759)
8239 114070872 : lu(k,1771) = lu(k,1771) - lu(k,936) * lu(k,1759)
8240 114070872 : lu(k,1772) = lu(k,1772) - lu(k,937) * lu(k,1759)
8241 114070872 : lu(k,1774) = lu(k,1774) - lu(k,938) * lu(k,1759)
8242 114070872 : lu(k,1775) = lu(k,1775) - lu(k,939) * lu(k,1759)
8243 114070872 : lu(k,1776) = lu(k,1776) - lu(k,940) * lu(k,1759)
8244 114070872 : lu(k,1777) = lu(k,1777) - lu(k,941) * lu(k,1759)
8245 114070872 : lu(k,1778) = lu(k,1778) - lu(k,942) * lu(k,1759)
8246 114070872 : lu(k,1779) = lu(k,1779) - lu(k,943) * lu(k,1759)
8247 114070872 : lu(k,1780) = lu(k,1780) - lu(k,944) * lu(k,1759)
8248 114070872 : lu(k,1782) = lu(k,1782) - lu(k,945) * lu(k,1759)
8249 114070872 : lu(k,1783) = lu(k,1783) - lu(k,946) * lu(k,1759)
8250 114070872 : lu(k,1784) = lu(k,1784) - lu(k,947) * lu(k,1759)
8251 114070872 : lu(k,1785) = lu(k,1785) - lu(k,948) * lu(k,1759)
8252 114070872 : lu(k,1808) = lu(k,1808) - lu(k,927) * lu(k,1807)
8253 114070872 : lu(k,1810) = lu(k,1810) - lu(k,928) * lu(k,1807)
8254 114070872 : lu(k,1811) = lu(k,1811) - lu(k,929) * lu(k,1807)
8255 114070872 : lu(k,1812) = lu(k,1812) - lu(k,930) * lu(k,1807)
8256 114070872 : lu(k,1813) = lu(k,1813) - lu(k,931) * lu(k,1807)
8257 114070872 : lu(k,1814) = lu(k,1814) - lu(k,932) * lu(k,1807)
8258 114070872 : lu(k,1816) = lu(k,1816) - lu(k,933) * lu(k,1807)
8259 114070872 : lu(k,1817) = lu(k,1817) - lu(k,934) * lu(k,1807)
8260 114070872 : lu(k,1818) = lu(k,1818) - lu(k,935) * lu(k,1807)
8261 114070872 : lu(k,1819) = lu(k,1819) - lu(k,936) * lu(k,1807)
8262 114070872 : lu(k,1820) = lu(k,1820) - lu(k,937) * lu(k,1807)
8263 114070872 : lu(k,1822) = lu(k,1822) - lu(k,938) * lu(k,1807)
8264 114070872 : lu(k,1823) = lu(k,1823) - lu(k,939) * lu(k,1807)
8265 114070872 : lu(k,1824) = lu(k,1824) - lu(k,940) * lu(k,1807)
8266 114070872 : lu(k,1825) = lu(k,1825) - lu(k,941) * lu(k,1807)
8267 114070872 : lu(k,1826) = lu(k,1826) - lu(k,942) * lu(k,1807)
8268 114070872 : lu(k,1827) = lu(k,1827) - lu(k,943) * lu(k,1807)
8269 114070872 : lu(k,1828) = lu(k,1828) - lu(k,944) * lu(k,1807)
8270 114070872 : lu(k,1830) = lu(k,1830) - lu(k,945) * lu(k,1807)
8271 114070872 : lu(k,1831) = lu(k,1831) - lu(k,946) * lu(k,1807)
8272 114070872 : lu(k,1832) = lu(k,1832) - lu(k,947) * lu(k,1807)
8273 114070872 : lu(k,1833) = lu(k,1833) - lu(k,948) * lu(k,1807)
8274 114070872 : lu(k,1841) = lu(k,1841) - lu(k,927) * lu(k,1840)
8275 114070872 : lu(k,1843) = lu(k,1843) - lu(k,928) * lu(k,1840)
8276 114070872 : lu(k,1844) = lu(k,1844) - lu(k,929) * lu(k,1840)
8277 114070872 : lu(k,1845) = lu(k,1845) - lu(k,930) * lu(k,1840)
8278 114070872 : lu(k,1846) = lu(k,1846) - lu(k,931) * lu(k,1840)
8279 114070872 : lu(k,1847) = lu(k,1847) - lu(k,932) * lu(k,1840)
8280 114070872 : lu(k,1849) = lu(k,1849) - lu(k,933) * lu(k,1840)
8281 114070872 : lu(k,1850) = lu(k,1850) - lu(k,934) * lu(k,1840)
8282 114070872 : lu(k,1851) = lu(k,1851) - lu(k,935) * lu(k,1840)
8283 114070872 : lu(k,1852) = lu(k,1852) - lu(k,936) * lu(k,1840)
8284 114070872 : lu(k,1853) = lu(k,1853) - lu(k,937) * lu(k,1840)
8285 114070872 : lu(k,1855) = lu(k,1855) - lu(k,938) * lu(k,1840)
8286 114070872 : lu(k,1856) = lu(k,1856) - lu(k,939) * lu(k,1840)
8287 114070872 : lu(k,1857) = lu(k,1857) - lu(k,940) * lu(k,1840)
8288 114070872 : lu(k,1858) = lu(k,1858) - lu(k,941) * lu(k,1840)
8289 114070872 : lu(k,1859) = lu(k,1859) - lu(k,942) * lu(k,1840)
8290 114070872 : lu(k,1860) = lu(k,1860) - lu(k,943) * lu(k,1840)
8291 114070872 : lu(k,1861) = lu(k,1861) - lu(k,944) * lu(k,1840)
8292 114070872 : lu(k,1863) = lu(k,1863) - lu(k,945) * lu(k,1840)
8293 114070872 : lu(k,1864) = lu(k,1864) - lu(k,946) * lu(k,1840)
8294 114070872 : lu(k,1865) = lu(k,1865) - lu(k,947) * lu(k,1840)
8295 114070872 : lu(k,1866) = lu(k,1866) - lu(k,948) * lu(k,1840)
8296 114070872 : lu(k,1877) = lu(k,1877) - lu(k,927) * lu(k,1876)
8297 114070872 : lu(k,1879) = lu(k,1879) - lu(k,928) * lu(k,1876)
8298 114070872 : lu(k,1880) = lu(k,1880) - lu(k,929) * lu(k,1876)
8299 114070872 : lu(k,1881) = lu(k,1881) - lu(k,930) * lu(k,1876)
8300 114070872 : lu(k,1882) = lu(k,1882) - lu(k,931) * lu(k,1876)
8301 114070872 : lu(k,1883) = lu(k,1883) - lu(k,932) * lu(k,1876)
8302 114070872 : lu(k,1885) = lu(k,1885) - lu(k,933) * lu(k,1876)
8303 114070872 : lu(k,1886) = lu(k,1886) - lu(k,934) * lu(k,1876)
8304 114070872 : lu(k,1887) = lu(k,1887) - lu(k,935) * lu(k,1876)
8305 114070872 : lu(k,1888) = lu(k,1888) - lu(k,936) * lu(k,1876)
8306 114070872 : lu(k,1889) = lu(k,1889) - lu(k,937) * lu(k,1876)
8307 114070872 : lu(k,1891) = lu(k,1891) - lu(k,938) * lu(k,1876)
8308 114070872 : lu(k,1892) = lu(k,1892) - lu(k,939) * lu(k,1876)
8309 114070872 : lu(k,1893) = lu(k,1893) - lu(k,940) * lu(k,1876)
8310 114070872 : lu(k,1894) = lu(k,1894) - lu(k,941) * lu(k,1876)
8311 114070872 : lu(k,1895) = lu(k,1895) - lu(k,942) * lu(k,1876)
8312 114070872 : lu(k,1896) = lu(k,1896) - lu(k,943) * lu(k,1876)
8313 114070872 : lu(k,1897) = lu(k,1897) - lu(k,944) * lu(k,1876)
8314 114070872 : lu(k,1899) = lu(k,1899) - lu(k,945) * lu(k,1876)
8315 114070872 : lu(k,1900) = lu(k,1900) - lu(k,946) * lu(k,1876)
8316 114070872 : lu(k,1901) = lu(k,1901) - lu(k,947) * lu(k,1876)
8317 114070872 : lu(k,1902) = lu(k,1902) - lu(k,948) * lu(k,1876)
8318 114070872 : lu(k,1918) = lu(k,1918) - lu(k,927) * lu(k,1917)
8319 114070872 : lu(k,1920) = lu(k,1920) - lu(k,928) * lu(k,1917)
8320 114070872 : lu(k,1921) = lu(k,1921) - lu(k,929) * lu(k,1917)
8321 114070872 : lu(k,1922) = lu(k,1922) - lu(k,930) * lu(k,1917)
8322 114070872 : lu(k,1923) = lu(k,1923) - lu(k,931) * lu(k,1917)
8323 114070872 : lu(k,1924) = lu(k,1924) - lu(k,932) * lu(k,1917)
8324 114070872 : lu(k,1926) = lu(k,1926) - lu(k,933) * lu(k,1917)
8325 114070872 : lu(k,1927) = lu(k,1927) - lu(k,934) * lu(k,1917)
8326 114070872 : lu(k,1928) = lu(k,1928) - lu(k,935) * lu(k,1917)
8327 114070872 : lu(k,1929) = lu(k,1929) - lu(k,936) * lu(k,1917)
8328 114070872 : lu(k,1930) = lu(k,1930) - lu(k,937) * lu(k,1917)
8329 114070872 : lu(k,1932) = lu(k,1932) - lu(k,938) * lu(k,1917)
8330 114070872 : lu(k,1933) = lu(k,1933) - lu(k,939) * lu(k,1917)
8331 114070872 : lu(k,1934) = lu(k,1934) - lu(k,940) * lu(k,1917)
8332 114070872 : lu(k,1935) = lu(k,1935) - lu(k,941) * lu(k,1917)
8333 114070872 : lu(k,1936) = lu(k,1936) - lu(k,942) * lu(k,1917)
8334 114070872 : lu(k,1937) = lu(k,1937) - lu(k,943) * lu(k,1917)
8335 114070872 : lu(k,1938) = lu(k,1938) - lu(k,944) * lu(k,1917)
8336 114070872 : lu(k,1940) = lu(k,1940) - lu(k,945) * lu(k,1917)
8337 114070872 : lu(k,1941) = lu(k,1941) - lu(k,946) * lu(k,1917)
8338 114070872 : lu(k,1942) = lu(k,1942) - lu(k,947) * lu(k,1917)
8339 114070872 : lu(k,1943) = lu(k,1943) - lu(k,948) * lu(k,1917)
8340 114070872 : lu(k,1960) = lu(k,1960) - lu(k,927) * lu(k,1959)
8341 114070872 : lu(k,1962) = lu(k,1962) - lu(k,928) * lu(k,1959)
8342 114070872 : lu(k,1963) = lu(k,1963) - lu(k,929) * lu(k,1959)
8343 114070872 : lu(k,1964) = lu(k,1964) - lu(k,930) * lu(k,1959)
8344 114070872 : lu(k,1965) = lu(k,1965) - lu(k,931) * lu(k,1959)
8345 114070872 : lu(k,1966) = lu(k,1966) - lu(k,932) * lu(k,1959)
8346 114070872 : lu(k,1968) = lu(k,1968) - lu(k,933) * lu(k,1959)
8347 114070872 : lu(k,1969) = lu(k,1969) - lu(k,934) * lu(k,1959)
8348 114070872 : lu(k,1970) = lu(k,1970) - lu(k,935) * lu(k,1959)
8349 114070872 : lu(k,1971) = lu(k,1971) - lu(k,936) * lu(k,1959)
8350 114070872 : lu(k,1972) = lu(k,1972) - lu(k,937) * lu(k,1959)
8351 114070872 : lu(k,1974) = lu(k,1974) - lu(k,938) * lu(k,1959)
8352 114070872 : lu(k,1975) = lu(k,1975) - lu(k,939) * lu(k,1959)
8353 114070872 : lu(k,1976) = lu(k,1976) - lu(k,940) * lu(k,1959)
8354 114070872 : lu(k,1977) = lu(k,1977) - lu(k,941) * lu(k,1959)
8355 114070872 : lu(k,1978) = lu(k,1978) - lu(k,942) * lu(k,1959)
8356 114070872 : lu(k,1979) = lu(k,1979) - lu(k,943) * lu(k,1959)
8357 114070872 : lu(k,1980) = lu(k,1980) - lu(k,944) * lu(k,1959)
8358 114070872 : lu(k,1982) = lu(k,1982) - lu(k,945) * lu(k,1959)
8359 114070872 : lu(k,1983) = lu(k,1983) - lu(k,946) * lu(k,1959)
8360 114070872 : lu(k,1984) = lu(k,1984) - lu(k,947) * lu(k,1959)
8361 114070872 : lu(k,1985) = lu(k,1985) - lu(k,948) * lu(k,1959)
8362 114070872 : lu(k,2005) = lu(k,2005) - lu(k,927) * lu(k,2004)
8363 114070872 : lu(k,2007) = lu(k,2007) - lu(k,928) * lu(k,2004)
8364 114070872 : lu(k,2008) = lu(k,2008) - lu(k,929) * lu(k,2004)
8365 114070872 : lu(k,2009) = lu(k,2009) - lu(k,930) * lu(k,2004)
8366 114070872 : lu(k,2010) = lu(k,2010) - lu(k,931) * lu(k,2004)
8367 114070872 : lu(k,2011) = lu(k,2011) - lu(k,932) * lu(k,2004)
8368 114070872 : lu(k,2013) = lu(k,2013) - lu(k,933) * lu(k,2004)
8369 114070872 : lu(k,2014) = lu(k,2014) - lu(k,934) * lu(k,2004)
8370 114070872 : lu(k,2015) = lu(k,2015) - lu(k,935) * lu(k,2004)
8371 114070872 : lu(k,2016) = lu(k,2016) - lu(k,936) * lu(k,2004)
8372 114070872 : lu(k,2017) = lu(k,2017) - lu(k,937) * lu(k,2004)
8373 114070872 : lu(k,2019) = lu(k,2019) - lu(k,938) * lu(k,2004)
8374 114070872 : lu(k,2020) = lu(k,2020) - lu(k,939) * lu(k,2004)
8375 114070872 : lu(k,2021) = lu(k,2021) - lu(k,940) * lu(k,2004)
8376 114070872 : lu(k,2022) = lu(k,2022) - lu(k,941) * lu(k,2004)
8377 114070872 : lu(k,2023) = lu(k,2023) - lu(k,942) * lu(k,2004)
8378 114070872 : lu(k,2024) = lu(k,2024) - lu(k,943) * lu(k,2004)
8379 114070872 : lu(k,2025) = lu(k,2025) - lu(k,944) * lu(k,2004)
8380 114070872 : lu(k,2027) = lu(k,2027) - lu(k,945) * lu(k,2004)
8381 114070872 : lu(k,2028) = lu(k,2028) - lu(k,946) * lu(k,2004)
8382 114070872 : lu(k,2029) = lu(k,2029) - lu(k,947) * lu(k,2004)
8383 114070872 : lu(k,2030) = lu(k,2030) - lu(k,948) * lu(k,2004)
8384 114070872 : lu(k,2065) = lu(k,2065) - lu(k,927) * lu(k,2064)
8385 114070872 : lu(k,2067) = lu(k,2067) - lu(k,928) * lu(k,2064)
8386 114070872 : lu(k,2068) = lu(k,2068) - lu(k,929) * lu(k,2064)
8387 114070872 : lu(k,2069) = lu(k,2069) - lu(k,930) * lu(k,2064)
8388 114070872 : lu(k,2070) = lu(k,2070) - lu(k,931) * lu(k,2064)
8389 114070872 : lu(k,2071) = lu(k,2071) - lu(k,932) * lu(k,2064)
8390 114070872 : lu(k,2073) = lu(k,2073) - lu(k,933) * lu(k,2064)
8391 114070872 : lu(k,2074) = lu(k,2074) - lu(k,934) * lu(k,2064)
8392 114070872 : lu(k,2075) = lu(k,2075) - lu(k,935) * lu(k,2064)
8393 114070872 : lu(k,2076) = lu(k,2076) - lu(k,936) * lu(k,2064)
8394 114070872 : lu(k,2077) = lu(k,2077) - lu(k,937) * lu(k,2064)
8395 114070872 : lu(k,2079) = lu(k,2079) - lu(k,938) * lu(k,2064)
8396 114070872 : lu(k,2080) = lu(k,2080) - lu(k,939) * lu(k,2064)
8397 114070872 : lu(k,2081) = lu(k,2081) - lu(k,940) * lu(k,2064)
8398 114070872 : lu(k,2082) = lu(k,2082) - lu(k,941) * lu(k,2064)
8399 114070872 : lu(k,2083) = lu(k,2083) - lu(k,942) * lu(k,2064)
8400 114070872 : lu(k,2084) = lu(k,2084) - lu(k,943) * lu(k,2064)
8401 114070872 : lu(k,2085) = lu(k,2085) - lu(k,944) * lu(k,2064)
8402 114070872 : lu(k,2087) = lu(k,2087) - lu(k,945) * lu(k,2064)
8403 114070872 : lu(k,2088) = lu(k,2088) - lu(k,946) * lu(k,2064)
8404 114070872 : lu(k,2089) = lu(k,2089) - lu(k,947) * lu(k,2064)
8405 117656469 : lu(k,2090) = lu(k,2090) - lu(k,948) * lu(k,2064)
8406 : end do
8407 3585597 : end subroutine lu_fac20
8408 3585597 : subroutine lu_fac21( avec_len, lu )
8409 : use chem_mods, only : nzcnt
8410 : use shr_kind_mod, only : r8 => shr_kind_r8
8411 : implicit none
8412 : !-----------------------------------------------------------------------
8413 : ! ... dummy args
8414 : !-----------------------------------------------------------------------
8415 : integer, intent(in) :: avec_len
8416 : real(r8), intent(inout) :: lu(veclen,nzcnt)
8417 : !-----------------------------------------------------------------------
8418 : ! ... local variables
8419 : !-----------------------------------------------------------------------
8420 : integer :: k
8421 117656469 : do k = 1,avec_len
8422 114070872 : lu(k,984) = 1._r8 / lu(k,984)
8423 114070872 : lu(k,985) = lu(k,985) * lu(k,984)
8424 114070872 : lu(k,986) = lu(k,986) * lu(k,984)
8425 114070872 : lu(k,987) = lu(k,987) * lu(k,984)
8426 114070872 : lu(k,988) = lu(k,988) * lu(k,984)
8427 114070872 : lu(k,989) = lu(k,989) * lu(k,984)
8428 114070872 : lu(k,990) = lu(k,990) * lu(k,984)
8429 114070872 : lu(k,991) = lu(k,991) * lu(k,984)
8430 114070872 : lu(k,992) = lu(k,992) * lu(k,984)
8431 114070872 : lu(k,993) = lu(k,993) * lu(k,984)
8432 114070872 : lu(k,994) = lu(k,994) * lu(k,984)
8433 114070872 : lu(k,995) = lu(k,995) * lu(k,984)
8434 114070872 : lu(k,996) = lu(k,996) * lu(k,984)
8435 114070872 : lu(k,997) = lu(k,997) * lu(k,984)
8436 114070872 : lu(k,998) = lu(k,998) * lu(k,984)
8437 114070872 : lu(k,999) = lu(k,999) * lu(k,984)
8438 114070872 : lu(k,1000) = lu(k,1000) * lu(k,984)
8439 114070872 : lu(k,1001) = lu(k,1001) * lu(k,984)
8440 114070872 : lu(k,1002) = lu(k,1002) * lu(k,984)
8441 114070872 : lu(k,1003) = lu(k,1003) * lu(k,984)
8442 114070872 : lu(k,1004) = lu(k,1004) * lu(k,984)
8443 114070872 : lu(k,1005) = lu(k,1005) * lu(k,984)
8444 114070872 : lu(k,1015) = lu(k,1015) - lu(k,985) * lu(k,1013)
8445 114070872 : lu(k,1016) = lu(k,1016) - lu(k,986) * lu(k,1013)
8446 114070872 : lu(k,1017) = lu(k,1017) - lu(k,987) * lu(k,1013)
8447 114070872 : lu(k,1019) = lu(k,1019) - lu(k,988) * lu(k,1013)
8448 114070872 : lu(k,1020) = lu(k,1020) - lu(k,989) * lu(k,1013)
8449 114070872 : lu(k,1021) = lu(k,1021) - lu(k,990) * lu(k,1013)
8450 114070872 : lu(k,1022) = lu(k,1022) - lu(k,991) * lu(k,1013)
8451 114070872 : lu(k,1023) = lu(k,1023) - lu(k,992) * lu(k,1013)
8452 114070872 : lu(k,1024) = lu(k,1024) - lu(k,993) * lu(k,1013)
8453 114070872 : lu(k,1025) = lu(k,1025) - lu(k,994) * lu(k,1013)
8454 114070872 : lu(k,1026) = lu(k,1026) - lu(k,995) * lu(k,1013)
8455 114070872 : lu(k,1027) = lu(k,1027) - lu(k,996) * lu(k,1013)
8456 114070872 : lu(k,1030) = lu(k,1030) - lu(k,997) * lu(k,1013)
8457 114070872 : lu(k,1031) = lu(k,1031) - lu(k,998) * lu(k,1013)
8458 114070872 : lu(k,1032) = lu(k,1032) - lu(k,999) * lu(k,1013)
8459 114070872 : lu(k,1033) = lu(k,1033) - lu(k,1000) * lu(k,1013)
8460 114070872 : lu(k,1034) = lu(k,1034) - lu(k,1001) * lu(k,1013)
8461 114070872 : lu(k,1035) = lu(k,1035) - lu(k,1002) * lu(k,1013)
8462 114070872 : lu(k,1036) = lu(k,1036) - lu(k,1003) * lu(k,1013)
8463 114070872 : lu(k,1037) = lu(k,1037) - lu(k,1004) * lu(k,1013)
8464 114070872 : lu(k,1038) = lu(k,1038) - lu(k,1005) * lu(k,1013)
8465 114070872 : lu(k,1058) = lu(k,1058) - lu(k,985) * lu(k,1057)
8466 114070872 : lu(k,1059) = lu(k,1059) - lu(k,986) * lu(k,1057)
8467 114070872 : lu(k,1060) = lu(k,1060) - lu(k,987) * lu(k,1057)
8468 114070872 : lu(k,1062) = lu(k,1062) - lu(k,988) * lu(k,1057)
8469 114070872 : lu(k,1063) = lu(k,1063) - lu(k,989) * lu(k,1057)
8470 114070872 : lu(k,1064) = lu(k,1064) - lu(k,990) * lu(k,1057)
8471 114070872 : lu(k,1065) = lu(k,1065) - lu(k,991) * lu(k,1057)
8472 114070872 : lu(k,1066) = lu(k,1066) - lu(k,992) * lu(k,1057)
8473 114070872 : lu(k,1067) = lu(k,1067) - lu(k,993) * lu(k,1057)
8474 114070872 : lu(k,1068) = lu(k,1068) - lu(k,994) * lu(k,1057)
8475 114070872 : lu(k,1069) = lu(k,1069) - lu(k,995) * lu(k,1057)
8476 114070872 : lu(k,1070) = lu(k,1070) - lu(k,996) * lu(k,1057)
8477 114070872 : lu(k,1073) = lu(k,1073) - lu(k,997) * lu(k,1057)
8478 114070872 : lu(k,1074) = lu(k,1074) - lu(k,998) * lu(k,1057)
8479 114070872 : lu(k,1075) = lu(k,1075) - lu(k,999) * lu(k,1057)
8480 114070872 : lu(k,1076) = lu(k,1076) - lu(k,1000) * lu(k,1057)
8481 114070872 : lu(k,1077) = lu(k,1077) - lu(k,1001) * lu(k,1057)
8482 114070872 : lu(k,1078) = lu(k,1078) - lu(k,1002) * lu(k,1057)
8483 114070872 : lu(k,1079) = lu(k,1079) - lu(k,1003) * lu(k,1057)
8484 114070872 : lu(k,1080) = lu(k,1080) - lu(k,1004) * lu(k,1057)
8485 114070872 : lu(k,1081) = lu(k,1081) - lu(k,1005) * lu(k,1057)
8486 114070872 : lu(k,1103) = lu(k,1103) - lu(k,985) * lu(k,1101)
8487 114070872 : lu(k,1104) = lu(k,1104) - lu(k,986) * lu(k,1101)
8488 114070872 : lu(k,1105) = lu(k,1105) - lu(k,987) * lu(k,1101)
8489 114070872 : lu(k,1107) = lu(k,1107) - lu(k,988) * lu(k,1101)
8490 114070872 : lu(k,1108) = lu(k,1108) - lu(k,989) * lu(k,1101)
8491 114070872 : lu(k,1109) = lu(k,1109) - lu(k,990) * lu(k,1101)
8492 114070872 : lu(k,1110) = lu(k,1110) - lu(k,991) * lu(k,1101)
8493 114070872 : lu(k,1111) = lu(k,1111) - lu(k,992) * lu(k,1101)
8494 114070872 : lu(k,1112) = lu(k,1112) - lu(k,993) * lu(k,1101)
8495 114070872 : lu(k,1113) = lu(k,1113) - lu(k,994) * lu(k,1101)
8496 114070872 : lu(k,1114) = lu(k,1114) - lu(k,995) * lu(k,1101)
8497 114070872 : lu(k,1115) = lu(k,1115) - lu(k,996) * lu(k,1101)
8498 114070872 : lu(k,1118) = lu(k,1118) - lu(k,997) * lu(k,1101)
8499 114070872 : lu(k,1119) = lu(k,1119) - lu(k,998) * lu(k,1101)
8500 114070872 : lu(k,1120) = lu(k,1120) - lu(k,999) * lu(k,1101)
8501 114070872 : lu(k,1121) = lu(k,1121) - lu(k,1000) * lu(k,1101)
8502 114070872 : lu(k,1122) = lu(k,1122) - lu(k,1001) * lu(k,1101)
8503 114070872 : lu(k,1123) = lu(k,1123) - lu(k,1002) * lu(k,1101)
8504 114070872 : lu(k,1124) = lu(k,1124) - lu(k,1003) * lu(k,1101)
8505 114070872 : lu(k,1125) = lu(k,1125) - lu(k,1004) * lu(k,1101)
8506 114070872 : lu(k,1126) = lu(k,1126) - lu(k,1005) * lu(k,1101)
8507 114070872 : lu(k,1151) = lu(k,1151) - lu(k,985) * lu(k,1149)
8508 114070872 : lu(k,1152) = lu(k,1152) - lu(k,986) * lu(k,1149)
8509 114070872 : lu(k,1153) = lu(k,1153) - lu(k,987) * lu(k,1149)
8510 114070872 : lu(k,1155) = lu(k,1155) - lu(k,988) * lu(k,1149)
8511 114070872 : lu(k,1156) = lu(k,1156) - lu(k,989) * lu(k,1149)
8512 114070872 : lu(k,1157) = lu(k,1157) - lu(k,990) * lu(k,1149)
8513 114070872 : lu(k,1158) = lu(k,1158) - lu(k,991) * lu(k,1149)
8514 114070872 : lu(k,1159) = lu(k,1159) - lu(k,992) * lu(k,1149)
8515 114070872 : lu(k,1160) = lu(k,1160) - lu(k,993) * lu(k,1149)
8516 114070872 : lu(k,1161) = lu(k,1161) - lu(k,994) * lu(k,1149)
8517 114070872 : lu(k,1162) = lu(k,1162) - lu(k,995) * lu(k,1149)
8518 114070872 : lu(k,1163) = lu(k,1163) - lu(k,996) * lu(k,1149)
8519 114070872 : lu(k,1166) = lu(k,1166) - lu(k,997) * lu(k,1149)
8520 114070872 : lu(k,1167) = lu(k,1167) - lu(k,998) * lu(k,1149)
8521 114070872 : lu(k,1168) = lu(k,1168) - lu(k,999) * lu(k,1149)
8522 114070872 : lu(k,1169) = lu(k,1169) - lu(k,1000) * lu(k,1149)
8523 114070872 : lu(k,1170) = lu(k,1170) - lu(k,1001) * lu(k,1149)
8524 114070872 : lu(k,1171) = lu(k,1171) - lu(k,1002) * lu(k,1149)
8525 114070872 : lu(k,1172) = lu(k,1172) - lu(k,1003) * lu(k,1149)
8526 114070872 : lu(k,1173) = lu(k,1173) - lu(k,1004) * lu(k,1149)
8527 114070872 : lu(k,1174) = lu(k,1174) - lu(k,1005) * lu(k,1149)
8528 114070872 : lu(k,1194) = lu(k,1194) - lu(k,985) * lu(k,1192)
8529 114070872 : lu(k,1195) = lu(k,1195) - lu(k,986) * lu(k,1192)
8530 114070872 : lu(k,1196) = lu(k,1196) - lu(k,987) * lu(k,1192)
8531 114070872 : lu(k,1198) = lu(k,1198) - lu(k,988) * lu(k,1192)
8532 114070872 : lu(k,1199) = lu(k,1199) - lu(k,989) * lu(k,1192)
8533 114070872 : lu(k,1200) = lu(k,1200) - lu(k,990) * lu(k,1192)
8534 114070872 : lu(k,1201) = lu(k,1201) - lu(k,991) * lu(k,1192)
8535 114070872 : lu(k,1202) = lu(k,1202) - lu(k,992) * lu(k,1192)
8536 114070872 : lu(k,1203) = lu(k,1203) - lu(k,993) * lu(k,1192)
8537 114070872 : lu(k,1204) = lu(k,1204) - lu(k,994) * lu(k,1192)
8538 114070872 : lu(k,1205) = lu(k,1205) - lu(k,995) * lu(k,1192)
8539 114070872 : lu(k,1206) = lu(k,1206) - lu(k,996) * lu(k,1192)
8540 114070872 : lu(k,1209) = lu(k,1209) - lu(k,997) * lu(k,1192)
8541 114070872 : lu(k,1210) = lu(k,1210) - lu(k,998) * lu(k,1192)
8542 114070872 : lu(k,1211) = lu(k,1211) - lu(k,999) * lu(k,1192)
8543 114070872 : lu(k,1212) = lu(k,1212) - lu(k,1000) * lu(k,1192)
8544 114070872 : lu(k,1213) = lu(k,1213) - lu(k,1001) * lu(k,1192)
8545 114070872 : lu(k,1214) = lu(k,1214) - lu(k,1002) * lu(k,1192)
8546 114070872 : lu(k,1215) = lu(k,1215) - lu(k,1003) * lu(k,1192)
8547 114070872 : lu(k,1216) = lu(k,1216) - lu(k,1004) * lu(k,1192)
8548 114070872 : lu(k,1217) = lu(k,1217) - lu(k,1005) * lu(k,1192)
8549 114070872 : lu(k,1237) = lu(k,1237) - lu(k,985) * lu(k,1235)
8550 114070872 : lu(k,1238) = lu(k,1238) - lu(k,986) * lu(k,1235)
8551 114070872 : lu(k,1239) = lu(k,1239) - lu(k,987) * lu(k,1235)
8552 114070872 : lu(k,1241) = lu(k,1241) - lu(k,988) * lu(k,1235)
8553 114070872 : lu(k,1242) = lu(k,1242) - lu(k,989) * lu(k,1235)
8554 114070872 : lu(k,1243) = lu(k,1243) - lu(k,990) * lu(k,1235)
8555 114070872 : lu(k,1244) = lu(k,1244) - lu(k,991) * lu(k,1235)
8556 114070872 : lu(k,1245) = lu(k,1245) - lu(k,992) * lu(k,1235)
8557 114070872 : lu(k,1246) = lu(k,1246) - lu(k,993) * lu(k,1235)
8558 114070872 : lu(k,1247) = lu(k,1247) - lu(k,994) * lu(k,1235)
8559 114070872 : lu(k,1248) = lu(k,1248) - lu(k,995) * lu(k,1235)
8560 114070872 : lu(k,1249) = lu(k,1249) - lu(k,996) * lu(k,1235)
8561 114070872 : lu(k,1252) = lu(k,1252) - lu(k,997) * lu(k,1235)
8562 114070872 : lu(k,1253) = lu(k,1253) - lu(k,998) * lu(k,1235)
8563 114070872 : lu(k,1254) = lu(k,1254) - lu(k,999) * lu(k,1235)
8564 114070872 : lu(k,1255) = lu(k,1255) - lu(k,1000) * lu(k,1235)
8565 114070872 : lu(k,1256) = lu(k,1256) - lu(k,1001) * lu(k,1235)
8566 114070872 : lu(k,1257) = lu(k,1257) - lu(k,1002) * lu(k,1235)
8567 114070872 : lu(k,1258) = lu(k,1258) - lu(k,1003) * lu(k,1235)
8568 114070872 : lu(k,1259) = lu(k,1259) - lu(k,1004) * lu(k,1235)
8569 114070872 : lu(k,1260) = lu(k,1260) - lu(k,1005) * lu(k,1235)
8570 114070872 : lu(k,1279) = lu(k,1279) - lu(k,985) * lu(k,1277)
8571 114070872 : lu(k,1280) = lu(k,1280) - lu(k,986) * lu(k,1277)
8572 114070872 : lu(k,1281) = lu(k,1281) - lu(k,987) * lu(k,1277)
8573 114070872 : lu(k,1283) = lu(k,1283) - lu(k,988) * lu(k,1277)
8574 114070872 : lu(k,1284) = lu(k,1284) - lu(k,989) * lu(k,1277)
8575 114070872 : lu(k,1285) = lu(k,1285) - lu(k,990) * lu(k,1277)
8576 114070872 : lu(k,1286) = lu(k,1286) - lu(k,991) * lu(k,1277)
8577 114070872 : lu(k,1287) = lu(k,1287) - lu(k,992) * lu(k,1277)
8578 114070872 : lu(k,1288) = lu(k,1288) - lu(k,993) * lu(k,1277)
8579 114070872 : lu(k,1289) = lu(k,1289) - lu(k,994) * lu(k,1277)
8580 114070872 : lu(k,1290) = lu(k,1290) - lu(k,995) * lu(k,1277)
8581 114070872 : lu(k,1291) = lu(k,1291) - lu(k,996) * lu(k,1277)
8582 114070872 : lu(k,1294) = lu(k,1294) - lu(k,997) * lu(k,1277)
8583 114070872 : lu(k,1295) = lu(k,1295) - lu(k,998) * lu(k,1277)
8584 114070872 : lu(k,1296) = lu(k,1296) - lu(k,999) * lu(k,1277)
8585 114070872 : lu(k,1297) = lu(k,1297) - lu(k,1000) * lu(k,1277)
8586 114070872 : lu(k,1298) = lu(k,1298) - lu(k,1001) * lu(k,1277)
8587 114070872 : lu(k,1299) = lu(k,1299) - lu(k,1002) * lu(k,1277)
8588 114070872 : lu(k,1300) = lu(k,1300) - lu(k,1003) * lu(k,1277)
8589 114070872 : lu(k,1301) = lu(k,1301) - lu(k,1004) * lu(k,1277)
8590 114070872 : lu(k,1302) = lu(k,1302) - lu(k,1005) * lu(k,1277)
8591 114070872 : lu(k,1321) = lu(k,1321) - lu(k,985) * lu(k,1319)
8592 114070872 : lu(k,1322) = lu(k,1322) - lu(k,986) * lu(k,1319)
8593 114070872 : lu(k,1323) = lu(k,1323) - lu(k,987) * lu(k,1319)
8594 114070872 : lu(k,1325) = lu(k,1325) - lu(k,988) * lu(k,1319)
8595 114070872 : lu(k,1326) = lu(k,1326) - lu(k,989) * lu(k,1319)
8596 114070872 : lu(k,1327) = lu(k,1327) - lu(k,990) * lu(k,1319)
8597 114070872 : lu(k,1328) = lu(k,1328) - lu(k,991) * lu(k,1319)
8598 114070872 : lu(k,1329) = lu(k,1329) - lu(k,992) * lu(k,1319)
8599 114070872 : lu(k,1330) = lu(k,1330) - lu(k,993) * lu(k,1319)
8600 114070872 : lu(k,1331) = lu(k,1331) - lu(k,994) * lu(k,1319)
8601 114070872 : lu(k,1332) = lu(k,1332) - lu(k,995) * lu(k,1319)
8602 114070872 : lu(k,1333) = lu(k,1333) - lu(k,996) * lu(k,1319)
8603 114070872 : lu(k,1336) = lu(k,1336) - lu(k,997) * lu(k,1319)
8604 114070872 : lu(k,1337) = lu(k,1337) - lu(k,998) * lu(k,1319)
8605 114070872 : lu(k,1338) = lu(k,1338) - lu(k,999) * lu(k,1319)
8606 114070872 : lu(k,1339) = lu(k,1339) - lu(k,1000) * lu(k,1319)
8607 114070872 : lu(k,1340) = lu(k,1340) - lu(k,1001) * lu(k,1319)
8608 114070872 : lu(k,1341) = lu(k,1341) - lu(k,1002) * lu(k,1319)
8609 114070872 : lu(k,1342) = lu(k,1342) - lu(k,1003) * lu(k,1319)
8610 114070872 : lu(k,1343) = lu(k,1343) - lu(k,1004) * lu(k,1319)
8611 114070872 : lu(k,1344) = lu(k,1344) - lu(k,1005) * lu(k,1319)
8612 114070872 : lu(k,1381) = lu(k,1381) - lu(k,985) * lu(k,1379)
8613 114070872 : lu(k,1382) = lu(k,1382) - lu(k,986) * lu(k,1379)
8614 114070872 : lu(k,1383) = lu(k,1383) - lu(k,987) * lu(k,1379)
8615 114070872 : lu(k,1385) = lu(k,1385) - lu(k,988) * lu(k,1379)
8616 114070872 : lu(k,1386) = lu(k,1386) - lu(k,989) * lu(k,1379)
8617 114070872 : lu(k,1387) = lu(k,1387) - lu(k,990) * lu(k,1379)
8618 114070872 : lu(k,1388) = lu(k,1388) - lu(k,991) * lu(k,1379)
8619 114070872 : lu(k,1389) = lu(k,1389) - lu(k,992) * lu(k,1379)
8620 114070872 : lu(k,1390) = lu(k,1390) - lu(k,993) * lu(k,1379)
8621 114070872 : lu(k,1391) = lu(k,1391) - lu(k,994) * lu(k,1379)
8622 114070872 : lu(k,1392) = lu(k,1392) - lu(k,995) * lu(k,1379)
8623 114070872 : lu(k,1393) = lu(k,1393) - lu(k,996) * lu(k,1379)
8624 114070872 : lu(k,1396) = lu(k,1396) - lu(k,997) * lu(k,1379)
8625 114070872 : lu(k,1397) = lu(k,1397) - lu(k,998) * lu(k,1379)
8626 114070872 : lu(k,1398) = lu(k,1398) - lu(k,999) * lu(k,1379)
8627 114070872 : lu(k,1399) = lu(k,1399) - lu(k,1000) * lu(k,1379)
8628 114070872 : lu(k,1400) = lu(k,1400) - lu(k,1001) * lu(k,1379)
8629 114070872 : lu(k,1401) = lu(k,1401) - lu(k,1002) * lu(k,1379)
8630 114070872 : lu(k,1402) = lu(k,1402) - lu(k,1003) * lu(k,1379)
8631 114070872 : lu(k,1403) = lu(k,1403) - lu(k,1004) * lu(k,1379)
8632 114070872 : lu(k,1404) = lu(k,1404) - lu(k,1005) * lu(k,1379)
8633 114070872 : lu(k,1430) = lu(k,1430) - lu(k,985) * lu(k,1428)
8634 114070872 : lu(k,1431) = lu(k,1431) - lu(k,986) * lu(k,1428)
8635 114070872 : lu(k,1432) = lu(k,1432) - lu(k,987) * lu(k,1428)
8636 114070872 : lu(k,1434) = lu(k,1434) - lu(k,988) * lu(k,1428)
8637 114070872 : lu(k,1435) = lu(k,1435) - lu(k,989) * lu(k,1428)
8638 114070872 : lu(k,1436) = lu(k,1436) - lu(k,990) * lu(k,1428)
8639 114070872 : lu(k,1437) = lu(k,1437) - lu(k,991) * lu(k,1428)
8640 114070872 : lu(k,1438) = lu(k,1438) - lu(k,992) * lu(k,1428)
8641 114070872 : lu(k,1439) = lu(k,1439) - lu(k,993) * lu(k,1428)
8642 114070872 : lu(k,1440) = lu(k,1440) - lu(k,994) * lu(k,1428)
8643 114070872 : lu(k,1441) = lu(k,1441) - lu(k,995) * lu(k,1428)
8644 114070872 : lu(k,1442) = lu(k,1442) - lu(k,996) * lu(k,1428)
8645 114070872 : lu(k,1445) = lu(k,1445) - lu(k,997) * lu(k,1428)
8646 114070872 : lu(k,1446) = lu(k,1446) - lu(k,998) * lu(k,1428)
8647 114070872 : lu(k,1447) = lu(k,1447) - lu(k,999) * lu(k,1428)
8648 114070872 : lu(k,1448) = lu(k,1448) - lu(k,1000) * lu(k,1428)
8649 114070872 : lu(k,1449) = lu(k,1449) - lu(k,1001) * lu(k,1428)
8650 114070872 : lu(k,1450) = lu(k,1450) - lu(k,1002) * lu(k,1428)
8651 114070872 : lu(k,1451) = lu(k,1451) - lu(k,1003) * lu(k,1428)
8652 114070872 : lu(k,1452) = lu(k,1452) - lu(k,1004) * lu(k,1428)
8653 114070872 : lu(k,1453) = lu(k,1453) - lu(k,1005) * lu(k,1428)
8654 114070872 : lu(k,1478) = lu(k,1478) - lu(k,985) * lu(k,1476)
8655 114070872 : lu(k,1479) = lu(k,1479) - lu(k,986) * lu(k,1476)
8656 114070872 : lu(k,1480) = lu(k,1480) - lu(k,987) * lu(k,1476)
8657 114070872 : lu(k,1482) = lu(k,1482) - lu(k,988) * lu(k,1476)
8658 114070872 : lu(k,1483) = lu(k,1483) - lu(k,989) * lu(k,1476)
8659 114070872 : lu(k,1484) = lu(k,1484) - lu(k,990) * lu(k,1476)
8660 114070872 : lu(k,1485) = lu(k,1485) - lu(k,991) * lu(k,1476)
8661 114070872 : lu(k,1486) = lu(k,1486) - lu(k,992) * lu(k,1476)
8662 114070872 : lu(k,1487) = lu(k,1487) - lu(k,993) * lu(k,1476)
8663 114070872 : lu(k,1488) = lu(k,1488) - lu(k,994) * lu(k,1476)
8664 114070872 : lu(k,1489) = lu(k,1489) - lu(k,995) * lu(k,1476)
8665 114070872 : lu(k,1490) = lu(k,1490) - lu(k,996) * lu(k,1476)
8666 114070872 : lu(k,1493) = lu(k,1493) - lu(k,997) * lu(k,1476)
8667 114070872 : lu(k,1494) = lu(k,1494) - lu(k,998) * lu(k,1476)
8668 114070872 : lu(k,1495) = lu(k,1495) - lu(k,999) * lu(k,1476)
8669 114070872 : lu(k,1496) = lu(k,1496) - lu(k,1000) * lu(k,1476)
8670 114070872 : lu(k,1497) = lu(k,1497) - lu(k,1001) * lu(k,1476)
8671 114070872 : lu(k,1498) = lu(k,1498) - lu(k,1002) * lu(k,1476)
8672 114070872 : lu(k,1499) = lu(k,1499) - lu(k,1003) * lu(k,1476)
8673 114070872 : lu(k,1500) = lu(k,1500) - lu(k,1004) * lu(k,1476)
8674 114070872 : lu(k,1501) = lu(k,1501) - lu(k,1005) * lu(k,1476)
8675 114070872 : lu(k,1519) = lu(k,1519) - lu(k,985) * lu(k,1517)
8676 114070872 : lu(k,1520) = lu(k,1520) - lu(k,986) * lu(k,1517)
8677 114070872 : lu(k,1521) = lu(k,1521) - lu(k,987) * lu(k,1517)
8678 114070872 : lu(k,1523) = lu(k,1523) - lu(k,988) * lu(k,1517)
8679 114070872 : lu(k,1524) = lu(k,1524) - lu(k,989) * lu(k,1517)
8680 114070872 : lu(k,1525) = lu(k,1525) - lu(k,990) * lu(k,1517)
8681 114070872 : lu(k,1526) = lu(k,1526) - lu(k,991) * lu(k,1517)
8682 114070872 : lu(k,1527) = lu(k,1527) - lu(k,992) * lu(k,1517)
8683 114070872 : lu(k,1528) = lu(k,1528) - lu(k,993) * lu(k,1517)
8684 114070872 : lu(k,1529) = lu(k,1529) - lu(k,994) * lu(k,1517)
8685 114070872 : lu(k,1530) = lu(k,1530) - lu(k,995) * lu(k,1517)
8686 114070872 : lu(k,1531) = lu(k,1531) - lu(k,996) * lu(k,1517)
8687 114070872 : lu(k,1534) = lu(k,1534) - lu(k,997) * lu(k,1517)
8688 114070872 : lu(k,1535) = lu(k,1535) - lu(k,998) * lu(k,1517)
8689 114070872 : lu(k,1536) = lu(k,1536) - lu(k,999) * lu(k,1517)
8690 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1000) * lu(k,1517)
8691 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1001) * lu(k,1517)
8692 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1002) * lu(k,1517)
8693 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1003) * lu(k,1517)
8694 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1004) * lu(k,1517)
8695 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1005) * lu(k,1517)
8696 114070872 : lu(k,1555) = lu(k,1555) - lu(k,985) * lu(k,1553)
8697 114070872 : lu(k,1556) = lu(k,1556) - lu(k,986) * lu(k,1553)
8698 114070872 : lu(k,1557) = lu(k,1557) - lu(k,987) * lu(k,1553)
8699 114070872 : lu(k,1559) = lu(k,1559) - lu(k,988) * lu(k,1553)
8700 114070872 : lu(k,1560) = lu(k,1560) - lu(k,989) * lu(k,1553)
8701 114070872 : lu(k,1561) = lu(k,1561) - lu(k,990) * lu(k,1553)
8702 114070872 : lu(k,1562) = lu(k,1562) - lu(k,991) * lu(k,1553)
8703 114070872 : lu(k,1563) = lu(k,1563) - lu(k,992) * lu(k,1553)
8704 114070872 : lu(k,1564) = lu(k,1564) - lu(k,993) * lu(k,1553)
8705 114070872 : lu(k,1565) = lu(k,1565) - lu(k,994) * lu(k,1553)
8706 114070872 : lu(k,1566) = lu(k,1566) - lu(k,995) * lu(k,1553)
8707 114070872 : lu(k,1567) = lu(k,1567) - lu(k,996) * lu(k,1553)
8708 114070872 : lu(k,1570) = lu(k,1570) - lu(k,997) * lu(k,1553)
8709 114070872 : lu(k,1571) = lu(k,1571) - lu(k,998) * lu(k,1553)
8710 114070872 : lu(k,1572) = lu(k,1572) - lu(k,999) * lu(k,1553)
8711 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1000) * lu(k,1553)
8712 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1001) * lu(k,1553)
8713 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1002) * lu(k,1553)
8714 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1003) * lu(k,1553)
8715 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1004) * lu(k,1553)
8716 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1005) * lu(k,1553)
8717 114070872 : lu(k,1600) = lu(k,1600) - lu(k,985) * lu(k,1598)
8718 114070872 : lu(k,1601) = lu(k,1601) - lu(k,986) * lu(k,1598)
8719 114070872 : lu(k,1602) = lu(k,1602) - lu(k,987) * lu(k,1598)
8720 114070872 : lu(k,1604) = lu(k,1604) - lu(k,988) * lu(k,1598)
8721 114070872 : lu(k,1605) = lu(k,1605) - lu(k,989) * lu(k,1598)
8722 114070872 : lu(k,1606) = lu(k,1606) - lu(k,990) * lu(k,1598)
8723 114070872 : lu(k,1607) = lu(k,1607) - lu(k,991) * lu(k,1598)
8724 114070872 : lu(k,1608) = lu(k,1608) - lu(k,992) * lu(k,1598)
8725 114070872 : lu(k,1609) = lu(k,1609) - lu(k,993) * lu(k,1598)
8726 114070872 : lu(k,1610) = lu(k,1610) - lu(k,994) * lu(k,1598)
8727 114070872 : lu(k,1611) = lu(k,1611) - lu(k,995) * lu(k,1598)
8728 114070872 : lu(k,1612) = lu(k,1612) - lu(k,996) * lu(k,1598)
8729 114070872 : lu(k,1615) = lu(k,1615) - lu(k,997) * lu(k,1598)
8730 114070872 : lu(k,1616) = lu(k,1616) - lu(k,998) * lu(k,1598)
8731 114070872 : lu(k,1617) = lu(k,1617) - lu(k,999) * lu(k,1598)
8732 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1000) * lu(k,1598)
8733 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1001) * lu(k,1598)
8734 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1002) * lu(k,1598)
8735 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1003) * lu(k,1598)
8736 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1004) * lu(k,1598)
8737 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1005) * lu(k,1598)
8738 114070872 : lu(k,1643) = lu(k,1643) - lu(k,985) * lu(k,1641)
8739 114070872 : lu(k,1644) = lu(k,1644) - lu(k,986) * lu(k,1641)
8740 114070872 : lu(k,1645) = lu(k,1645) - lu(k,987) * lu(k,1641)
8741 114070872 : lu(k,1647) = lu(k,1647) - lu(k,988) * lu(k,1641)
8742 114070872 : lu(k,1648) = lu(k,1648) - lu(k,989) * lu(k,1641)
8743 114070872 : lu(k,1649) = lu(k,1649) - lu(k,990) * lu(k,1641)
8744 114070872 : lu(k,1650) = lu(k,1650) - lu(k,991) * lu(k,1641)
8745 114070872 : lu(k,1651) = lu(k,1651) - lu(k,992) * lu(k,1641)
8746 114070872 : lu(k,1652) = lu(k,1652) - lu(k,993) * lu(k,1641)
8747 114070872 : lu(k,1653) = lu(k,1653) - lu(k,994) * lu(k,1641)
8748 114070872 : lu(k,1654) = lu(k,1654) - lu(k,995) * lu(k,1641)
8749 114070872 : lu(k,1655) = lu(k,1655) - lu(k,996) * lu(k,1641)
8750 114070872 : lu(k,1658) = lu(k,1658) - lu(k,997) * lu(k,1641)
8751 114070872 : lu(k,1659) = lu(k,1659) - lu(k,998) * lu(k,1641)
8752 114070872 : lu(k,1660) = lu(k,1660) - lu(k,999) * lu(k,1641)
8753 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1000) * lu(k,1641)
8754 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1001) * lu(k,1641)
8755 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1002) * lu(k,1641)
8756 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1003) * lu(k,1641)
8757 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1004) * lu(k,1641)
8758 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1005) * lu(k,1641)
8759 114070872 : lu(k,1686) = lu(k,1686) - lu(k,985) * lu(k,1684)
8760 114070872 : lu(k,1687) = lu(k,1687) - lu(k,986) * lu(k,1684)
8761 114070872 : lu(k,1688) = lu(k,1688) - lu(k,987) * lu(k,1684)
8762 114070872 : lu(k,1690) = lu(k,1690) - lu(k,988) * lu(k,1684)
8763 114070872 : lu(k,1691) = lu(k,1691) - lu(k,989) * lu(k,1684)
8764 114070872 : lu(k,1692) = lu(k,1692) - lu(k,990) * lu(k,1684)
8765 114070872 : lu(k,1693) = lu(k,1693) - lu(k,991) * lu(k,1684)
8766 114070872 : lu(k,1694) = lu(k,1694) - lu(k,992) * lu(k,1684)
8767 114070872 : lu(k,1695) = lu(k,1695) - lu(k,993) * lu(k,1684)
8768 114070872 : lu(k,1696) = lu(k,1696) - lu(k,994) * lu(k,1684)
8769 114070872 : lu(k,1697) = lu(k,1697) - lu(k,995) * lu(k,1684)
8770 114070872 : lu(k,1698) = lu(k,1698) - lu(k,996) * lu(k,1684)
8771 114070872 : lu(k,1701) = lu(k,1701) - lu(k,997) * lu(k,1684)
8772 114070872 : lu(k,1702) = lu(k,1702) - lu(k,998) * lu(k,1684)
8773 114070872 : lu(k,1703) = lu(k,1703) - lu(k,999) * lu(k,1684)
8774 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1000) * lu(k,1684)
8775 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1001) * lu(k,1684)
8776 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1002) * lu(k,1684)
8777 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1003) * lu(k,1684)
8778 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1004) * lu(k,1684)
8779 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1005) * lu(k,1684)
8780 114070872 : lu(k,1726) = lu(k,1726) - lu(k,985) * lu(k,1725)
8781 114070872 : lu(k,1727) = lu(k,1727) - lu(k,986) * lu(k,1725)
8782 114070872 : lu(k,1728) = lu(k,1728) - lu(k,987) * lu(k,1725)
8783 114070872 : lu(k,1730) = lu(k,1730) - lu(k,988) * lu(k,1725)
8784 114070872 : lu(k,1731) = lu(k,1731) - lu(k,989) * lu(k,1725)
8785 114070872 : lu(k,1732) = lu(k,1732) - lu(k,990) * lu(k,1725)
8786 114070872 : lu(k,1733) = lu(k,1733) - lu(k,991) * lu(k,1725)
8787 114070872 : lu(k,1734) = lu(k,1734) - lu(k,992) * lu(k,1725)
8788 114070872 : lu(k,1735) = lu(k,1735) - lu(k,993) * lu(k,1725)
8789 114070872 : lu(k,1736) = lu(k,1736) - lu(k,994) * lu(k,1725)
8790 114070872 : lu(k,1737) = lu(k,1737) - lu(k,995) * lu(k,1725)
8791 114070872 : lu(k,1738) = lu(k,1738) - lu(k,996) * lu(k,1725)
8792 114070872 : lu(k,1741) = lu(k,1741) - lu(k,997) * lu(k,1725)
8793 114070872 : lu(k,1742) = lu(k,1742) - lu(k,998) * lu(k,1725)
8794 114070872 : lu(k,1743) = lu(k,1743) - lu(k,999) * lu(k,1725)
8795 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1000) * lu(k,1725)
8796 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1001) * lu(k,1725)
8797 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1002) * lu(k,1725)
8798 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1003) * lu(k,1725)
8799 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1004) * lu(k,1725)
8800 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1005) * lu(k,1725)
8801 114070872 : lu(k,1762) = lu(k,1762) - lu(k,985) * lu(k,1760)
8802 114070872 : lu(k,1763) = lu(k,1763) - lu(k,986) * lu(k,1760)
8803 114070872 : lu(k,1764) = lu(k,1764) - lu(k,987) * lu(k,1760)
8804 114070872 : lu(k,1766) = lu(k,1766) - lu(k,988) * lu(k,1760)
8805 114070872 : lu(k,1767) = lu(k,1767) - lu(k,989) * lu(k,1760)
8806 114070872 : lu(k,1768) = lu(k,1768) - lu(k,990) * lu(k,1760)
8807 114070872 : lu(k,1769) = lu(k,1769) - lu(k,991) * lu(k,1760)
8808 114070872 : lu(k,1770) = lu(k,1770) - lu(k,992) * lu(k,1760)
8809 114070872 : lu(k,1771) = lu(k,1771) - lu(k,993) * lu(k,1760)
8810 114070872 : lu(k,1772) = lu(k,1772) - lu(k,994) * lu(k,1760)
8811 114070872 : lu(k,1773) = lu(k,1773) - lu(k,995) * lu(k,1760)
8812 114070872 : lu(k,1774) = lu(k,1774) - lu(k,996) * lu(k,1760)
8813 114070872 : lu(k,1777) = lu(k,1777) - lu(k,997) * lu(k,1760)
8814 114070872 : lu(k,1778) = lu(k,1778) - lu(k,998) * lu(k,1760)
8815 114070872 : lu(k,1779) = lu(k,1779) - lu(k,999) * lu(k,1760)
8816 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1000) * lu(k,1760)
8817 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1001) * lu(k,1760)
8818 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1002) * lu(k,1760)
8819 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1003) * lu(k,1760)
8820 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1004) * lu(k,1760)
8821 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1005) * lu(k,1760)
8822 114070872 : lu(k,1810) = lu(k,1810) - lu(k,985) * lu(k,1808)
8823 114070872 : lu(k,1811) = lu(k,1811) - lu(k,986) * lu(k,1808)
8824 114070872 : lu(k,1812) = lu(k,1812) - lu(k,987) * lu(k,1808)
8825 114070872 : lu(k,1814) = lu(k,1814) - lu(k,988) * lu(k,1808)
8826 114070872 : lu(k,1815) = lu(k,1815) - lu(k,989) * lu(k,1808)
8827 114070872 : lu(k,1816) = lu(k,1816) - lu(k,990) * lu(k,1808)
8828 114070872 : lu(k,1817) = lu(k,1817) - lu(k,991) * lu(k,1808)
8829 114070872 : lu(k,1818) = lu(k,1818) - lu(k,992) * lu(k,1808)
8830 114070872 : lu(k,1819) = lu(k,1819) - lu(k,993) * lu(k,1808)
8831 114070872 : lu(k,1820) = lu(k,1820) - lu(k,994) * lu(k,1808)
8832 114070872 : lu(k,1821) = lu(k,1821) - lu(k,995) * lu(k,1808)
8833 114070872 : lu(k,1822) = lu(k,1822) - lu(k,996) * lu(k,1808)
8834 114070872 : lu(k,1825) = lu(k,1825) - lu(k,997) * lu(k,1808)
8835 114070872 : lu(k,1826) = lu(k,1826) - lu(k,998) * lu(k,1808)
8836 114070872 : lu(k,1827) = lu(k,1827) - lu(k,999) * lu(k,1808)
8837 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1000) * lu(k,1808)
8838 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1001) * lu(k,1808)
8839 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1002) * lu(k,1808)
8840 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1003) * lu(k,1808)
8841 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1004) * lu(k,1808)
8842 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1005) * lu(k,1808)
8843 114070872 : lu(k,1843) = lu(k,1843) - lu(k,985) * lu(k,1841)
8844 114070872 : lu(k,1844) = lu(k,1844) - lu(k,986) * lu(k,1841)
8845 114070872 : lu(k,1845) = lu(k,1845) - lu(k,987) * lu(k,1841)
8846 114070872 : lu(k,1847) = lu(k,1847) - lu(k,988) * lu(k,1841)
8847 114070872 : lu(k,1848) = lu(k,1848) - lu(k,989) * lu(k,1841)
8848 114070872 : lu(k,1849) = lu(k,1849) - lu(k,990) * lu(k,1841)
8849 114070872 : lu(k,1850) = lu(k,1850) - lu(k,991) * lu(k,1841)
8850 114070872 : lu(k,1851) = lu(k,1851) - lu(k,992) * lu(k,1841)
8851 114070872 : lu(k,1852) = lu(k,1852) - lu(k,993) * lu(k,1841)
8852 114070872 : lu(k,1853) = lu(k,1853) - lu(k,994) * lu(k,1841)
8853 114070872 : lu(k,1854) = lu(k,1854) - lu(k,995) * lu(k,1841)
8854 114070872 : lu(k,1855) = lu(k,1855) - lu(k,996) * lu(k,1841)
8855 114070872 : lu(k,1858) = lu(k,1858) - lu(k,997) * lu(k,1841)
8856 114070872 : lu(k,1859) = lu(k,1859) - lu(k,998) * lu(k,1841)
8857 114070872 : lu(k,1860) = lu(k,1860) - lu(k,999) * lu(k,1841)
8858 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1000) * lu(k,1841)
8859 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1001) * lu(k,1841)
8860 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1002) * lu(k,1841)
8861 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1003) * lu(k,1841)
8862 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1004) * lu(k,1841)
8863 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1005) * lu(k,1841)
8864 114070872 : lu(k,1879) = lu(k,1879) - lu(k,985) * lu(k,1877)
8865 114070872 : lu(k,1880) = lu(k,1880) - lu(k,986) * lu(k,1877)
8866 114070872 : lu(k,1881) = lu(k,1881) - lu(k,987) * lu(k,1877)
8867 114070872 : lu(k,1883) = lu(k,1883) - lu(k,988) * lu(k,1877)
8868 114070872 : lu(k,1884) = lu(k,1884) - lu(k,989) * lu(k,1877)
8869 114070872 : lu(k,1885) = lu(k,1885) - lu(k,990) * lu(k,1877)
8870 114070872 : lu(k,1886) = lu(k,1886) - lu(k,991) * lu(k,1877)
8871 114070872 : lu(k,1887) = lu(k,1887) - lu(k,992) * lu(k,1877)
8872 114070872 : lu(k,1888) = lu(k,1888) - lu(k,993) * lu(k,1877)
8873 114070872 : lu(k,1889) = lu(k,1889) - lu(k,994) * lu(k,1877)
8874 114070872 : lu(k,1890) = lu(k,1890) - lu(k,995) * lu(k,1877)
8875 114070872 : lu(k,1891) = lu(k,1891) - lu(k,996) * lu(k,1877)
8876 114070872 : lu(k,1894) = lu(k,1894) - lu(k,997) * lu(k,1877)
8877 114070872 : lu(k,1895) = lu(k,1895) - lu(k,998) * lu(k,1877)
8878 114070872 : lu(k,1896) = lu(k,1896) - lu(k,999) * lu(k,1877)
8879 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1000) * lu(k,1877)
8880 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1001) * lu(k,1877)
8881 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1002) * lu(k,1877)
8882 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1003) * lu(k,1877)
8883 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1004) * lu(k,1877)
8884 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1005) * lu(k,1877)
8885 114070872 : lu(k,1920) = lu(k,1920) - lu(k,985) * lu(k,1918)
8886 114070872 : lu(k,1921) = lu(k,1921) - lu(k,986) * lu(k,1918)
8887 114070872 : lu(k,1922) = lu(k,1922) - lu(k,987) * lu(k,1918)
8888 114070872 : lu(k,1924) = lu(k,1924) - lu(k,988) * lu(k,1918)
8889 114070872 : lu(k,1925) = lu(k,1925) - lu(k,989) * lu(k,1918)
8890 114070872 : lu(k,1926) = lu(k,1926) - lu(k,990) * lu(k,1918)
8891 114070872 : lu(k,1927) = lu(k,1927) - lu(k,991) * lu(k,1918)
8892 114070872 : lu(k,1928) = lu(k,1928) - lu(k,992) * lu(k,1918)
8893 114070872 : lu(k,1929) = lu(k,1929) - lu(k,993) * lu(k,1918)
8894 114070872 : lu(k,1930) = lu(k,1930) - lu(k,994) * lu(k,1918)
8895 114070872 : lu(k,1931) = lu(k,1931) - lu(k,995) * lu(k,1918)
8896 114070872 : lu(k,1932) = lu(k,1932) - lu(k,996) * lu(k,1918)
8897 114070872 : lu(k,1935) = lu(k,1935) - lu(k,997) * lu(k,1918)
8898 114070872 : lu(k,1936) = lu(k,1936) - lu(k,998) * lu(k,1918)
8899 114070872 : lu(k,1937) = lu(k,1937) - lu(k,999) * lu(k,1918)
8900 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1000) * lu(k,1918)
8901 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1001) * lu(k,1918)
8902 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1002) * lu(k,1918)
8903 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1003) * lu(k,1918)
8904 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1004) * lu(k,1918)
8905 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1005) * lu(k,1918)
8906 114070872 : lu(k,1962) = lu(k,1962) - lu(k,985) * lu(k,1960)
8907 114070872 : lu(k,1963) = lu(k,1963) - lu(k,986) * lu(k,1960)
8908 114070872 : lu(k,1964) = lu(k,1964) - lu(k,987) * lu(k,1960)
8909 114070872 : lu(k,1966) = lu(k,1966) - lu(k,988) * lu(k,1960)
8910 114070872 : lu(k,1967) = lu(k,1967) - lu(k,989) * lu(k,1960)
8911 114070872 : lu(k,1968) = lu(k,1968) - lu(k,990) * lu(k,1960)
8912 114070872 : lu(k,1969) = lu(k,1969) - lu(k,991) * lu(k,1960)
8913 114070872 : lu(k,1970) = lu(k,1970) - lu(k,992) * lu(k,1960)
8914 114070872 : lu(k,1971) = lu(k,1971) - lu(k,993) * lu(k,1960)
8915 114070872 : lu(k,1972) = lu(k,1972) - lu(k,994) * lu(k,1960)
8916 114070872 : lu(k,1973) = lu(k,1973) - lu(k,995) * lu(k,1960)
8917 114070872 : lu(k,1974) = lu(k,1974) - lu(k,996) * lu(k,1960)
8918 114070872 : lu(k,1977) = lu(k,1977) - lu(k,997) * lu(k,1960)
8919 114070872 : lu(k,1978) = lu(k,1978) - lu(k,998) * lu(k,1960)
8920 114070872 : lu(k,1979) = lu(k,1979) - lu(k,999) * lu(k,1960)
8921 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1000) * lu(k,1960)
8922 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1001) * lu(k,1960)
8923 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1002) * lu(k,1960)
8924 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1003) * lu(k,1960)
8925 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1004) * lu(k,1960)
8926 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1005) * lu(k,1960)
8927 114070872 : lu(k,2007) = lu(k,2007) - lu(k,985) * lu(k,2005)
8928 114070872 : lu(k,2008) = lu(k,2008) - lu(k,986) * lu(k,2005)
8929 114070872 : lu(k,2009) = lu(k,2009) - lu(k,987) * lu(k,2005)
8930 114070872 : lu(k,2011) = lu(k,2011) - lu(k,988) * lu(k,2005)
8931 114070872 : lu(k,2012) = lu(k,2012) - lu(k,989) * lu(k,2005)
8932 114070872 : lu(k,2013) = lu(k,2013) - lu(k,990) * lu(k,2005)
8933 114070872 : lu(k,2014) = lu(k,2014) - lu(k,991) * lu(k,2005)
8934 114070872 : lu(k,2015) = lu(k,2015) - lu(k,992) * lu(k,2005)
8935 114070872 : lu(k,2016) = lu(k,2016) - lu(k,993) * lu(k,2005)
8936 114070872 : lu(k,2017) = lu(k,2017) - lu(k,994) * lu(k,2005)
8937 114070872 : lu(k,2018) = lu(k,2018) - lu(k,995) * lu(k,2005)
8938 114070872 : lu(k,2019) = lu(k,2019) - lu(k,996) * lu(k,2005)
8939 114070872 : lu(k,2022) = lu(k,2022) - lu(k,997) * lu(k,2005)
8940 114070872 : lu(k,2023) = lu(k,2023) - lu(k,998) * lu(k,2005)
8941 114070872 : lu(k,2024) = lu(k,2024) - lu(k,999) * lu(k,2005)
8942 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1000) * lu(k,2005)
8943 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1001) * lu(k,2005)
8944 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1002) * lu(k,2005)
8945 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1003) * lu(k,2005)
8946 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1004) * lu(k,2005)
8947 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1005) * lu(k,2005)
8948 114070872 : lu(k,2067) = lu(k,2067) - lu(k,985) * lu(k,2065)
8949 114070872 : lu(k,2068) = lu(k,2068) - lu(k,986) * lu(k,2065)
8950 114070872 : lu(k,2069) = lu(k,2069) - lu(k,987) * lu(k,2065)
8951 114070872 : lu(k,2071) = lu(k,2071) - lu(k,988) * lu(k,2065)
8952 114070872 : lu(k,2072) = lu(k,2072) - lu(k,989) * lu(k,2065)
8953 114070872 : lu(k,2073) = lu(k,2073) - lu(k,990) * lu(k,2065)
8954 114070872 : lu(k,2074) = lu(k,2074) - lu(k,991) * lu(k,2065)
8955 114070872 : lu(k,2075) = lu(k,2075) - lu(k,992) * lu(k,2065)
8956 114070872 : lu(k,2076) = lu(k,2076) - lu(k,993) * lu(k,2065)
8957 114070872 : lu(k,2077) = lu(k,2077) - lu(k,994) * lu(k,2065)
8958 114070872 : lu(k,2078) = lu(k,2078) - lu(k,995) * lu(k,2065)
8959 114070872 : lu(k,2079) = lu(k,2079) - lu(k,996) * lu(k,2065)
8960 114070872 : lu(k,2082) = lu(k,2082) - lu(k,997) * lu(k,2065)
8961 114070872 : lu(k,2083) = lu(k,2083) - lu(k,998) * lu(k,2065)
8962 114070872 : lu(k,2084) = lu(k,2084) - lu(k,999) * lu(k,2065)
8963 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1000) * lu(k,2065)
8964 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1001) * lu(k,2065)
8965 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1002) * lu(k,2065)
8966 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1003) * lu(k,2065)
8967 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1004) * lu(k,2065)
8968 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1005) * lu(k,2065)
8969 114070872 : lu(k,1014) = 1._r8 / lu(k,1014)
8970 114070872 : lu(k,1015) = lu(k,1015) * lu(k,1014)
8971 114070872 : lu(k,1016) = lu(k,1016) * lu(k,1014)
8972 114070872 : lu(k,1017) = lu(k,1017) * lu(k,1014)
8973 114070872 : lu(k,1018) = lu(k,1018) * lu(k,1014)
8974 114070872 : lu(k,1019) = lu(k,1019) * lu(k,1014)
8975 114070872 : lu(k,1020) = lu(k,1020) * lu(k,1014)
8976 114070872 : lu(k,1021) = lu(k,1021) * lu(k,1014)
8977 114070872 : lu(k,1022) = lu(k,1022) * lu(k,1014)
8978 114070872 : lu(k,1023) = lu(k,1023) * lu(k,1014)
8979 114070872 : lu(k,1024) = lu(k,1024) * lu(k,1014)
8980 114070872 : lu(k,1025) = lu(k,1025) * lu(k,1014)
8981 114070872 : lu(k,1026) = lu(k,1026) * lu(k,1014)
8982 114070872 : lu(k,1027) = lu(k,1027) * lu(k,1014)
8983 114070872 : lu(k,1028) = lu(k,1028) * lu(k,1014)
8984 114070872 : lu(k,1029) = lu(k,1029) * lu(k,1014)
8985 114070872 : lu(k,1030) = lu(k,1030) * lu(k,1014)
8986 114070872 : lu(k,1031) = lu(k,1031) * lu(k,1014)
8987 114070872 : lu(k,1032) = lu(k,1032) * lu(k,1014)
8988 114070872 : lu(k,1033) = lu(k,1033) * lu(k,1014)
8989 114070872 : lu(k,1034) = lu(k,1034) * lu(k,1014)
8990 114070872 : lu(k,1035) = lu(k,1035) * lu(k,1014)
8991 114070872 : lu(k,1036) = lu(k,1036) * lu(k,1014)
8992 114070872 : lu(k,1037) = lu(k,1037) * lu(k,1014)
8993 114070872 : lu(k,1038) = lu(k,1038) * lu(k,1014)
8994 114070872 : lu(k,1103) = lu(k,1103) - lu(k,1015) * lu(k,1102)
8995 114070872 : lu(k,1104) = lu(k,1104) - lu(k,1016) * lu(k,1102)
8996 114070872 : lu(k,1105) = lu(k,1105) - lu(k,1017) * lu(k,1102)
8997 114070872 : lu(k,1106) = lu(k,1106) - lu(k,1018) * lu(k,1102)
8998 114070872 : lu(k,1107) = lu(k,1107) - lu(k,1019) * lu(k,1102)
8999 114070872 : lu(k,1108) = lu(k,1108) - lu(k,1020) * lu(k,1102)
9000 114070872 : lu(k,1109) = lu(k,1109) - lu(k,1021) * lu(k,1102)
9001 114070872 : lu(k,1110) = lu(k,1110) - lu(k,1022) * lu(k,1102)
9002 114070872 : lu(k,1111) = lu(k,1111) - lu(k,1023) * lu(k,1102)
9003 114070872 : lu(k,1112) = lu(k,1112) - lu(k,1024) * lu(k,1102)
9004 114070872 : lu(k,1113) = lu(k,1113) - lu(k,1025) * lu(k,1102)
9005 114070872 : lu(k,1114) = lu(k,1114) - lu(k,1026) * lu(k,1102)
9006 114070872 : lu(k,1115) = lu(k,1115) - lu(k,1027) * lu(k,1102)
9007 114070872 : lu(k,1116) = lu(k,1116) - lu(k,1028) * lu(k,1102)
9008 114070872 : lu(k,1117) = lu(k,1117) - lu(k,1029) * lu(k,1102)
9009 114070872 : lu(k,1118) = lu(k,1118) - lu(k,1030) * lu(k,1102)
9010 114070872 : lu(k,1119) = lu(k,1119) - lu(k,1031) * lu(k,1102)
9011 114070872 : lu(k,1120) = lu(k,1120) - lu(k,1032) * lu(k,1102)
9012 114070872 : lu(k,1121) = lu(k,1121) - lu(k,1033) * lu(k,1102)
9013 114070872 : lu(k,1122) = lu(k,1122) - lu(k,1034) * lu(k,1102)
9014 114070872 : lu(k,1123) = lu(k,1123) - lu(k,1035) * lu(k,1102)
9015 114070872 : lu(k,1124) = lu(k,1124) - lu(k,1036) * lu(k,1102)
9016 114070872 : lu(k,1125) = lu(k,1125) - lu(k,1037) * lu(k,1102)
9017 114070872 : lu(k,1126) = lu(k,1126) - lu(k,1038) * lu(k,1102)
9018 114070872 : lu(k,1151) = lu(k,1151) - lu(k,1015) * lu(k,1150)
9019 114070872 : lu(k,1152) = lu(k,1152) - lu(k,1016) * lu(k,1150)
9020 114070872 : lu(k,1153) = lu(k,1153) - lu(k,1017) * lu(k,1150)
9021 114070872 : lu(k,1154) = lu(k,1154) - lu(k,1018) * lu(k,1150)
9022 114070872 : lu(k,1155) = lu(k,1155) - lu(k,1019) * lu(k,1150)
9023 114070872 : lu(k,1156) = lu(k,1156) - lu(k,1020) * lu(k,1150)
9024 114070872 : lu(k,1157) = lu(k,1157) - lu(k,1021) * lu(k,1150)
9025 114070872 : lu(k,1158) = lu(k,1158) - lu(k,1022) * lu(k,1150)
9026 114070872 : lu(k,1159) = lu(k,1159) - lu(k,1023) * lu(k,1150)
9027 114070872 : lu(k,1160) = lu(k,1160) - lu(k,1024) * lu(k,1150)
9028 114070872 : lu(k,1161) = lu(k,1161) - lu(k,1025) * lu(k,1150)
9029 114070872 : lu(k,1162) = lu(k,1162) - lu(k,1026) * lu(k,1150)
9030 114070872 : lu(k,1163) = lu(k,1163) - lu(k,1027) * lu(k,1150)
9031 114070872 : lu(k,1164) = lu(k,1164) - lu(k,1028) * lu(k,1150)
9032 114070872 : lu(k,1165) = lu(k,1165) - lu(k,1029) * lu(k,1150)
9033 114070872 : lu(k,1166) = lu(k,1166) - lu(k,1030) * lu(k,1150)
9034 114070872 : lu(k,1167) = lu(k,1167) - lu(k,1031) * lu(k,1150)
9035 114070872 : lu(k,1168) = lu(k,1168) - lu(k,1032) * lu(k,1150)
9036 114070872 : lu(k,1169) = lu(k,1169) - lu(k,1033) * lu(k,1150)
9037 114070872 : lu(k,1170) = lu(k,1170) - lu(k,1034) * lu(k,1150)
9038 114070872 : lu(k,1171) = lu(k,1171) - lu(k,1035) * lu(k,1150)
9039 114070872 : lu(k,1172) = lu(k,1172) - lu(k,1036) * lu(k,1150)
9040 114070872 : lu(k,1173) = lu(k,1173) - lu(k,1037) * lu(k,1150)
9041 114070872 : lu(k,1174) = lu(k,1174) - lu(k,1038) * lu(k,1150)
9042 114070872 : lu(k,1194) = lu(k,1194) - lu(k,1015) * lu(k,1193)
9043 114070872 : lu(k,1195) = lu(k,1195) - lu(k,1016) * lu(k,1193)
9044 114070872 : lu(k,1196) = lu(k,1196) - lu(k,1017) * lu(k,1193)
9045 114070872 : lu(k,1197) = lu(k,1197) - lu(k,1018) * lu(k,1193)
9046 114070872 : lu(k,1198) = lu(k,1198) - lu(k,1019) * lu(k,1193)
9047 114070872 : lu(k,1199) = lu(k,1199) - lu(k,1020) * lu(k,1193)
9048 114070872 : lu(k,1200) = lu(k,1200) - lu(k,1021) * lu(k,1193)
9049 114070872 : lu(k,1201) = lu(k,1201) - lu(k,1022) * lu(k,1193)
9050 114070872 : lu(k,1202) = lu(k,1202) - lu(k,1023) * lu(k,1193)
9051 114070872 : lu(k,1203) = lu(k,1203) - lu(k,1024) * lu(k,1193)
9052 114070872 : lu(k,1204) = lu(k,1204) - lu(k,1025) * lu(k,1193)
9053 114070872 : lu(k,1205) = lu(k,1205) - lu(k,1026) * lu(k,1193)
9054 114070872 : lu(k,1206) = lu(k,1206) - lu(k,1027) * lu(k,1193)
9055 114070872 : lu(k,1207) = lu(k,1207) - lu(k,1028) * lu(k,1193)
9056 114070872 : lu(k,1208) = lu(k,1208) - lu(k,1029) * lu(k,1193)
9057 114070872 : lu(k,1209) = lu(k,1209) - lu(k,1030) * lu(k,1193)
9058 114070872 : lu(k,1210) = lu(k,1210) - lu(k,1031) * lu(k,1193)
9059 114070872 : lu(k,1211) = lu(k,1211) - lu(k,1032) * lu(k,1193)
9060 114070872 : lu(k,1212) = lu(k,1212) - lu(k,1033) * lu(k,1193)
9061 114070872 : lu(k,1213) = lu(k,1213) - lu(k,1034) * lu(k,1193)
9062 114070872 : lu(k,1214) = lu(k,1214) - lu(k,1035) * lu(k,1193)
9063 114070872 : lu(k,1215) = lu(k,1215) - lu(k,1036) * lu(k,1193)
9064 114070872 : lu(k,1216) = lu(k,1216) - lu(k,1037) * lu(k,1193)
9065 114070872 : lu(k,1217) = lu(k,1217) - lu(k,1038) * lu(k,1193)
9066 114070872 : lu(k,1237) = lu(k,1237) - lu(k,1015) * lu(k,1236)
9067 114070872 : lu(k,1238) = lu(k,1238) - lu(k,1016) * lu(k,1236)
9068 114070872 : lu(k,1239) = lu(k,1239) - lu(k,1017) * lu(k,1236)
9069 114070872 : lu(k,1240) = lu(k,1240) - lu(k,1018) * lu(k,1236)
9070 114070872 : lu(k,1241) = lu(k,1241) - lu(k,1019) * lu(k,1236)
9071 114070872 : lu(k,1242) = lu(k,1242) - lu(k,1020) * lu(k,1236)
9072 114070872 : lu(k,1243) = lu(k,1243) - lu(k,1021) * lu(k,1236)
9073 114070872 : lu(k,1244) = lu(k,1244) - lu(k,1022) * lu(k,1236)
9074 114070872 : lu(k,1245) = lu(k,1245) - lu(k,1023) * lu(k,1236)
9075 114070872 : lu(k,1246) = lu(k,1246) - lu(k,1024) * lu(k,1236)
9076 114070872 : lu(k,1247) = lu(k,1247) - lu(k,1025) * lu(k,1236)
9077 114070872 : lu(k,1248) = lu(k,1248) - lu(k,1026) * lu(k,1236)
9078 114070872 : lu(k,1249) = lu(k,1249) - lu(k,1027) * lu(k,1236)
9079 114070872 : lu(k,1250) = lu(k,1250) - lu(k,1028) * lu(k,1236)
9080 114070872 : lu(k,1251) = lu(k,1251) - lu(k,1029) * lu(k,1236)
9081 114070872 : lu(k,1252) = lu(k,1252) - lu(k,1030) * lu(k,1236)
9082 114070872 : lu(k,1253) = lu(k,1253) - lu(k,1031) * lu(k,1236)
9083 114070872 : lu(k,1254) = lu(k,1254) - lu(k,1032) * lu(k,1236)
9084 114070872 : lu(k,1255) = lu(k,1255) - lu(k,1033) * lu(k,1236)
9085 114070872 : lu(k,1256) = lu(k,1256) - lu(k,1034) * lu(k,1236)
9086 114070872 : lu(k,1257) = lu(k,1257) - lu(k,1035) * lu(k,1236)
9087 114070872 : lu(k,1258) = lu(k,1258) - lu(k,1036) * lu(k,1236)
9088 114070872 : lu(k,1259) = lu(k,1259) - lu(k,1037) * lu(k,1236)
9089 114070872 : lu(k,1260) = lu(k,1260) - lu(k,1038) * lu(k,1236)
9090 114070872 : lu(k,1279) = lu(k,1279) - lu(k,1015) * lu(k,1278)
9091 114070872 : lu(k,1280) = lu(k,1280) - lu(k,1016) * lu(k,1278)
9092 114070872 : lu(k,1281) = lu(k,1281) - lu(k,1017) * lu(k,1278)
9093 114070872 : lu(k,1282) = lu(k,1282) - lu(k,1018) * lu(k,1278)
9094 114070872 : lu(k,1283) = lu(k,1283) - lu(k,1019) * lu(k,1278)
9095 114070872 : lu(k,1284) = lu(k,1284) - lu(k,1020) * lu(k,1278)
9096 114070872 : lu(k,1285) = lu(k,1285) - lu(k,1021) * lu(k,1278)
9097 114070872 : lu(k,1286) = lu(k,1286) - lu(k,1022) * lu(k,1278)
9098 114070872 : lu(k,1287) = lu(k,1287) - lu(k,1023) * lu(k,1278)
9099 114070872 : lu(k,1288) = lu(k,1288) - lu(k,1024) * lu(k,1278)
9100 114070872 : lu(k,1289) = lu(k,1289) - lu(k,1025) * lu(k,1278)
9101 114070872 : lu(k,1290) = lu(k,1290) - lu(k,1026) * lu(k,1278)
9102 114070872 : lu(k,1291) = lu(k,1291) - lu(k,1027) * lu(k,1278)
9103 114070872 : lu(k,1292) = lu(k,1292) - lu(k,1028) * lu(k,1278)
9104 114070872 : lu(k,1293) = lu(k,1293) - lu(k,1029) * lu(k,1278)
9105 114070872 : lu(k,1294) = lu(k,1294) - lu(k,1030) * lu(k,1278)
9106 114070872 : lu(k,1295) = lu(k,1295) - lu(k,1031) * lu(k,1278)
9107 114070872 : lu(k,1296) = lu(k,1296) - lu(k,1032) * lu(k,1278)
9108 114070872 : lu(k,1297) = lu(k,1297) - lu(k,1033) * lu(k,1278)
9109 114070872 : lu(k,1298) = lu(k,1298) - lu(k,1034) * lu(k,1278)
9110 114070872 : lu(k,1299) = lu(k,1299) - lu(k,1035) * lu(k,1278)
9111 114070872 : lu(k,1300) = lu(k,1300) - lu(k,1036) * lu(k,1278)
9112 114070872 : lu(k,1301) = lu(k,1301) - lu(k,1037) * lu(k,1278)
9113 114070872 : lu(k,1302) = lu(k,1302) - lu(k,1038) * lu(k,1278)
9114 114070872 : lu(k,1321) = lu(k,1321) - lu(k,1015) * lu(k,1320)
9115 114070872 : lu(k,1322) = lu(k,1322) - lu(k,1016) * lu(k,1320)
9116 114070872 : lu(k,1323) = lu(k,1323) - lu(k,1017) * lu(k,1320)
9117 114070872 : lu(k,1324) = lu(k,1324) - lu(k,1018) * lu(k,1320)
9118 114070872 : lu(k,1325) = lu(k,1325) - lu(k,1019) * lu(k,1320)
9119 114070872 : lu(k,1326) = lu(k,1326) - lu(k,1020) * lu(k,1320)
9120 114070872 : lu(k,1327) = lu(k,1327) - lu(k,1021) * lu(k,1320)
9121 114070872 : lu(k,1328) = lu(k,1328) - lu(k,1022) * lu(k,1320)
9122 114070872 : lu(k,1329) = lu(k,1329) - lu(k,1023) * lu(k,1320)
9123 114070872 : lu(k,1330) = lu(k,1330) - lu(k,1024) * lu(k,1320)
9124 114070872 : lu(k,1331) = lu(k,1331) - lu(k,1025) * lu(k,1320)
9125 114070872 : lu(k,1332) = lu(k,1332) - lu(k,1026) * lu(k,1320)
9126 114070872 : lu(k,1333) = lu(k,1333) - lu(k,1027) * lu(k,1320)
9127 114070872 : lu(k,1334) = lu(k,1334) - lu(k,1028) * lu(k,1320)
9128 114070872 : lu(k,1335) = lu(k,1335) - lu(k,1029) * lu(k,1320)
9129 114070872 : lu(k,1336) = lu(k,1336) - lu(k,1030) * lu(k,1320)
9130 114070872 : lu(k,1337) = lu(k,1337) - lu(k,1031) * lu(k,1320)
9131 114070872 : lu(k,1338) = lu(k,1338) - lu(k,1032) * lu(k,1320)
9132 114070872 : lu(k,1339) = lu(k,1339) - lu(k,1033) * lu(k,1320)
9133 114070872 : lu(k,1340) = lu(k,1340) - lu(k,1034) * lu(k,1320)
9134 114070872 : lu(k,1341) = lu(k,1341) - lu(k,1035) * lu(k,1320)
9135 114070872 : lu(k,1342) = lu(k,1342) - lu(k,1036) * lu(k,1320)
9136 114070872 : lu(k,1343) = lu(k,1343) - lu(k,1037) * lu(k,1320)
9137 114070872 : lu(k,1344) = lu(k,1344) - lu(k,1038) * lu(k,1320)
9138 114070872 : lu(k,1381) = lu(k,1381) - lu(k,1015) * lu(k,1380)
9139 114070872 : lu(k,1382) = lu(k,1382) - lu(k,1016) * lu(k,1380)
9140 114070872 : lu(k,1383) = lu(k,1383) - lu(k,1017) * lu(k,1380)
9141 114070872 : lu(k,1384) = lu(k,1384) - lu(k,1018) * lu(k,1380)
9142 114070872 : lu(k,1385) = lu(k,1385) - lu(k,1019) * lu(k,1380)
9143 114070872 : lu(k,1386) = lu(k,1386) - lu(k,1020) * lu(k,1380)
9144 114070872 : lu(k,1387) = lu(k,1387) - lu(k,1021) * lu(k,1380)
9145 114070872 : lu(k,1388) = lu(k,1388) - lu(k,1022) * lu(k,1380)
9146 114070872 : lu(k,1389) = lu(k,1389) - lu(k,1023) * lu(k,1380)
9147 114070872 : lu(k,1390) = lu(k,1390) - lu(k,1024) * lu(k,1380)
9148 114070872 : lu(k,1391) = lu(k,1391) - lu(k,1025) * lu(k,1380)
9149 114070872 : lu(k,1392) = lu(k,1392) - lu(k,1026) * lu(k,1380)
9150 114070872 : lu(k,1393) = lu(k,1393) - lu(k,1027) * lu(k,1380)
9151 114070872 : lu(k,1394) = lu(k,1394) - lu(k,1028) * lu(k,1380)
9152 114070872 : lu(k,1395) = lu(k,1395) - lu(k,1029) * lu(k,1380)
9153 114070872 : lu(k,1396) = lu(k,1396) - lu(k,1030) * lu(k,1380)
9154 114070872 : lu(k,1397) = lu(k,1397) - lu(k,1031) * lu(k,1380)
9155 114070872 : lu(k,1398) = lu(k,1398) - lu(k,1032) * lu(k,1380)
9156 114070872 : lu(k,1399) = lu(k,1399) - lu(k,1033) * lu(k,1380)
9157 114070872 : lu(k,1400) = lu(k,1400) - lu(k,1034) * lu(k,1380)
9158 114070872 : lu(k,1401) = lu(k,1401) - lu(k,1035) * lu(k,1380)
9159 114070872 : lu(k,1402) = lu(k,1402) - lu(k,1036) * lu(k,1380)
9160 114070872 : lu(k,1403) = lu(k,1403) - lu(k,1037) * lu(k,1380)
9161 114070872 : lu(k,1404) = lu(k,1404) - lu(k,1038) * lu(k,1380)
9162 114070872 : lu(k,1430) = lu(k,1430) - lu(k,1015) * lu(k,1429)
9163 114070872 : lu(k,1431) = lu(k,1431) - lu(k,1016) * lu(k,1429)
9164 114070872 : lu(k,1432) = lu(k,1432) - lu(k,1017) * lu(k,1429)
9165 114070872 : lu(k,1433) = lu(k,1433) - lu(k,1018) * lu(k,1429)
9166 114070872 : lu(k,1434) = lu(k,1434) - lu(k,1019) * lu(k,1429)
9167 114070872 : lu(k,1435) = lu(k,1435) - lu(k,1020) * lu(k,1429)
9168 114070872 : lu(k,1436) = lu(k,1436) - lu(k,1021) * lu(k,1429)
9169 114070872 : lu(k,1437) = lu(k,1437) - lu(k,1022) * lu(k,1429)
9170 114070872 : lu(k,1438) = lu(k,1438) - lu(k,1023) * lu(k,1429)
9171 114070872 : lu(k,1439) = lu(k,1439) - lu(k,1024) * lu(k,1429)
9172 114070872 : lu(k,1440) = lu(k,1440) - lu(k,1025) * lu(k,1429)
9173 114070872 : lu(k,1441) = lu(k,1441) - lu(k,1026) * lu(k,1429)
9174 114070872 : lu(k,1442) = lu(k,1442) - lu(k,1027) * lu(k,1429)
9175 114070872 : lu(k,1443) = lu(k,1443) - lu(k,1028) * lu(k,1429)
9176 114070872 : lu(k,1444) = lu(k,1444) - lu(k,1029) * lu(k,1429)
9177 114070872 : lu(k,1445) = lu(k,1445) - lu(k,1030) * lu(k,1429)
9178 114070872 : lu(k,1446) = lu(k,1446) - lu(k,1031) * lu(k,1429)
9179 114070872 : lu(k,1447) = lu(k,1447) - lu(k,1032) * lu(k,1429)
9180 114070872 : lu(k,1448) = lu(k,1448) - lu(k,1033) * lu(k,1429)
9181 114070872 : lu(k,1449) = lu(k,1449) - lu(k,1034) * lu(k,1429)
9182 114070872 : lu(k,1450) = lu(k,1450) - lu(k,1035) * lu(k,1429)
9183 114070872 : lu(k,1451) = lu(k,1451) - lu(k,1036) * lu(k,1429)
9184 114070872 : lu(k,1452) = lu(k,1452) - lu(k,1037) * lu(k,1429)
9185 114070872 : lu(k,1453) = lu(k,1453) - lu(k,1038) * lu(k,1429)
9186 114070872 : lu(k,1478) = lu(k,1478) - lu(k,1015) * lu(k,1477)
9187 114070872 : lu(k,1479) = lu(k,1479) - lu(k,1016) * lu(k,1477)
9188 114070872 : lu(k,1480) = lu(k,1480) - lu(k,1017) * lu(k,1477)
9189 114070872 : lu(k,1481) = lu(k,1481) - lu(k,1018) * lu(k,1477)
9190 114070872 : lu(k,1482) = lu(k,1482) - lu(k,1019) * lu(k,1477)
9191 114070872 : lu(k,1483) = lu(k,1483) - lu(k,1020) * lu(k,1477)
9192 114070872 : lu(k,1484) = lu(k,1484) - lu(k,1021) * lu(k,1477)
9193 114070872 : lu(k,1485) = lu(k,1485) - lu(k,1022) * lu(k,1477)
9194 114070872 : lu(k,1486) = lu(k,1486) - lu(k,1023) * lu(k,1477)
9195 114070872 : lu(k,1487) = lu(k,1487) - lu(k,1024) * lu(k,1477)
9196 114070872 : lu(k,1488) = lu(k,1488) - lu(k,1025) * lu(k,1477)
9197 114070872 : lu(k,1489) = lu(k,1489) - lu(k,1026) * lu(k,1477)
9198 114070872 : lu(k,1490) = lu(k,1490) - lu(k,1027) * lu(k,1477)
9199 114070872 : lu(k,1491) = lu(k,1491) - lu(k,1028) * lu(k,1477)
9200 114070872 : lu(k,1492) = lu(k,1492) - lu(k,1029) * lu(k,1477)
9201 114070872 : lu(k,1493) = lu(k,1493) - lu(k,1030) * lu(k,1477)
9202 114070872 : lu(k,1494) = lu(k,1494) - lu(k,1031) * lu(k,1477)
9203 114070872 : lu(k,1495) = lu(k,1495) - lu(k,1032) * lu(k,1477)
9204 114070872 : lu(k,1496) = lu(k,1496) - lu(k,1033) * lu(k,1477)
9205 114070872 : lu(k,1497) = lu(k,1497) - lu(k,1034) * lu(k,1477)
9206 114070872 : lu(k,1498) = lu(k,1498) - lu(k,1035) * lu(k,1477)
9207 114070872 : lu(k,1499) = lu(k,1499) - lu(k,1036) * lu(k,1477)
9208 114070872 : lu(k,1500) = lu(k,1500) - lu(k,1037) * lu(k,1477)
9209 114070872 : lu(k,1501) = lu(k,1501) - lu(k,1038) * lu(k,1477)
9210 114070872 : lu(k,1519) = lu(k,1519) - lu(k,1015) * lu(k,1518)
9211 114070872 : lu(k,1520) = lu(k,1520) - lu(k,1016) * lu(k,1518)
9212 114070872 : lu(k,1521) = lu(k,1521) - lu(k,1017) * lu(k,1518)
9213 114070872 : lu(k,1522) = lu(k,1522) - lu(k,1018) * lu(k,1518)
9214 114070872 : lu(k,1523) = lu(k,1523) - lu(k,1019) * lu(k,1518)
9215 114070872 : lu(k,1524) = lu(k,1524) - lu(k,1020) * lu(k,1518)
9216 114070872 : lu(k,1525) = lu(k,1525) - lu(k,1021) * lu(k,1518)
9217 114070872 : lu(k,1526) = lu(k,1526) - lu(k,1022) * lu(k,1518)
9218 114070872 : lu(k,1527) = lu(k,1527) - lu(k,1023) * lu(k,1518)
9219 114070872 : lu(k,1528) = lu(k,1528) - lu(k,1024) * lu(k,1518)
9220 114070872 : lu(k,1529) = lu(k,1529) - lu(k,1025) * lu(k,1518)
9221 114070872 : lu(k,1530) = lu(k,1530) - lu(k,1026) * lu(k,1518)
9222 114070872 : lu(k,1531) = lu(k,1531) - lu(k,1027) * lu(k,1518)
9223 114070872 : lu(k,1532) = lu(k,1532) - lu(k,1028) * lu(k,1518)
9224 114070872 : lu(k,1533) = lu(k,1533) - lu(k,1029) * lu(k,1518)
9225 114070872 : lu(k,1534) = lu(k,1534) - lu(k,1030) * lu(k,1518)
9226 114070872 : lu(k,1535) = lu(k,1535) - lu(k,1031) * lu(k,1518)
9227 114070872 : lu(k,1536) = lu(k,1536) - lu(k,1032) * lu(k,1518)
9228 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1033) * lu(k,1518)
9229 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1034) * lu(k,1518)
9230 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1035) * lu(k,1518)
9231 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1036) * lu(k,1518)
9232 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1037) * lu(k,1518)
9233 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1038) * lu(k,1518)
9234 114070872 : lu(k,1555) = lu(k,1555) - lu(k,1015) * lu(k,1554)
9235 114070872 : lu(k,1556) = lu(k,1556) - lu(k,1016) * lu(k,1554)
9236 114070872 : lu(k,1557) = lu(k,1557) - lu(k,1017) * lu(k,1554)
9237 114070872 : lu(k,1558) = lu(k,1558) - lu(k,1018) * lu(k,1554)
9238 114070872 : lu(k,1559) = lu(k,1559) - lu(k,1019) * lu(k,1554)
9239 114070872 : lu(k,1560) = lu(k,1560) - lu(k,1020) * lu(k,1554)
9240 114070872 : lu(k,1561) = lu(k,1561) - lu(k,1021) * lu(k,1554)
9241 114070872 : lu(k,1562) = lu(k,1562) - lu(k,1022) * lu(k,1554)
9242 114070872 : lu(k,1563) = lu(k,1563) - lu(k,1023) * lu(k,1554)
9243 114070872 : lu(k,1564) = lu(k,1564) - lu(k,1024) * lu(k,1554)
9244 114070872 : lu(k,1565) = lu(k,1565) - lu(k,1025) * lu(k,1554)
9245 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1026) * lu(k,1554)
9246 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1027) * lu(k,1554)
9247 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1028) * lu(k,1554)
9248 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1029) * lu(k,1554)
9249 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1030) * lu(k,1554)
9250 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1031) * lu(k,1554)
9251 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1032) * lu(k,1554)
9252 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1033) * lu(k,1554)
9253 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1034) * lu(k,1554)
9254 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1035) * lu(k,1554)
9255 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1036) * lu(k,1554)
9256 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1037) * lu(k,1554)
9257 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1038) * lu(k,1554)
9258 114070872 : lu(k,1600) = lu(k,1600) - lu(k,1015) * lu(k,1599)
9259 114070872 : lu(k,1601) = lu(k,1601) - lu(k,1016) * lu(k,1599)
9260 114070872 : lu(k,1602) = lu(k,1602) - lu(k,1017) * lu(k,1599)
9261 114070872 : lu(k,1603) = lu(k,1603) - lu(k,1018) * lu(k,1599)
9262 114070872 : lu(k,1604) = lu(k,1604) - lu(k,1019) * lu(k,1599)
9263 114070872 : lu(k,1605) = lu(k,1605) - lu(k,1020) * lu(k,1599)
9264 114070872 : lu(k,1606) = lu(k,1606) - lu(k,1021) * lu(k,1599)
9265 114070872 : lu(k,1607) = lu(k,1607) - lu(k,1022) * lu(k,1599)
9266 114070872 : lu(k,1608) = lu(k,1608) - lu(k,1023) * lu(k,1599)
9267 114070872 : lu(k,1609) = lu(k,1609) - lu(k,1024) * lu(k,1599)
9268 114070872 : lu(k,1610) = lu(k,1610) - lu(k,1025) * lu(k,1599)
9269 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1026) * lu(k,1599)
9270 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1027) * lu(k,1599)
9271 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1028) * lu(k,1599)
9272 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1029) * lu(k,1599)
9273 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1030) * lu(k,1599)
9274 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1031) * lu(k,1599)
9275 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1032) * lu(k,1599)
9276 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1033) * lu(k,1599)
9277 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1034) * lu(k,1599)
9278 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1035) * lu(k,1599)
9279 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1036) * lu(k,1599)
9280 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1037) * lu(k,1599)
9281 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1038) * lu(k,1599)
9282 114070872 : lu(k,1643) = lu(k,1643) - lu(k,1015) * lu(k,1642)
9283 114070872 : lu(k,1644) = lu(k,1644) - lu(k,1016) * lu(k,1642)
9284 114070872 : lu(k,1645) = lu(k,1645) - lu(k,1017) * lu(k,1642)
9285 114070872 : lu(k,1646) = lu(k,1646) - lu(k,1018) * lu(k,1642)
9286 114070872 : lu(k,1647) = lu(k,1647) - lu(k,1019) * lu(k,1642)
9287 114070872 : lu(k,1648) = lu(k,1648) - lu(k,1020) * lu(k,1642)
9288 114070872 : lu(k,1649) = lu(k,1649) - lu(k,1021) * lu(k,1642)
9289 114070872 : lu(k,1650) = lu(k,1650) - lu(k,1022) * lu(k,1642)
9290 114070872 : lu(k,1651) = lu(k,1651) - lu(k,1023) * lu(k,1642)
9291 114070872 : lu(k,1652) = lu(k,1652) - lu(k,1024) * lu(k,1642)
9292 114070872 : lu(k,1653) = lu(k,1653) - lu(k,1025) * lu(k,1642)
9293 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1026) * lu(k,1642)
9294 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1027) * lu(k,1642)
9295 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1028) * lu(k,1642)
9296 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1029) * lu(k,1642)
9297 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1030) * lu(k,1642)
9298 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1031) * lu(k,1642)
9299 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1032) * lu(k,1642)
9300 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1033) * lu(k,1642)
9301 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1034) * lu(k,1642)
9302 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1035) * lu(k,1642)
9303 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1036) * lu(k,1642)
9304 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1037) * lu(k,1642)
9305 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1038) * lu(k,1642)
9306 114070872 : lu(k,1686) = lu(k,1686) - lu(k,1015) * lu(k,1685)
9307 114070872 : lu(k,1687) = lu(k,1687) - lu(k,1016) * lu(k,1685)
9308 114070872 : lu(k,1688) = lu(k,1688) - lu(k,1017) * lu(k,1685)
9309 114070872 : lu(k,1689) = lu(k,1689) - lu(k,1018) * lu(k,1685)
9310 114070872 : lu(k,1690) = lu(k,1690) - lu(k,1019) * lu(k,1685)
9311 114070872 : lu(k,1691) = lu(k,1691) - lu(k,1020) * lu(k,1685)
9312 114070872 : lu(k,1692) = lu(k,1692) - lu(k,1021) * lu(k,1685)
9313 114070872 : lu(k,1693) = lu(k,1693) - lu(k,1022) * lu(k,1685)
9314 114070872 : lu(k,1694) = lu(k,1694) - lu(k,1023) * lu(k,1685)
9315 114070872 : lu(k,1695) = lu(k,1695) - lu(k,1024) * lu(k,1685)
9316 114070872 : lu(k,1696) = lu(k,1696) - lu(k,1025) * lu(k,1685)
9317 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1026) * lu(k,1685)
9318 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1027) * lu(k,1685)
9319 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1028) * lu(k,1685)
9320 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1029) * lu(k,1685)
9321 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1030) * lu(k,1685)
9322 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1031) * lu(k,1685)
9323 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1032) * lu(k,1685)
9324 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1033) * lu(k,1685)
9325 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1034) * lu(k,1685)
9326 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1035) * lu(k,1685)
9327 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1036) * lu(k,1685)
9328 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1037) * lu(k,1685)
9329 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1038) * lu(k,1685)
9330 114070872 : lu(k,1762) = lu(k,1762) - lu(k,1015) * lu(k,1761)
9331 114070872 : lu(k,1763) = lu(k,1763) - lu(k,1016) * lu(k,1761)
9332 114070872 : lu(k,1764) = lu(k,1764) - lu(k,1017) * lu(k,1761)
9333 114070872 : lu(k,1765) = lu(k,1765) - lu(k,1018) * lu(k,1761)
9334 114070872 : lu(k,1766) = lu(k,1766) - lu(k,1019) * lu(k,1761)
9335 114070872 : lu(k,1767) = lu(k,1767) - lu(k,1020) * lu(k,1761)
9336 114070872 : lu(k,1768) = lu(k,1768) - lu(k,1021) * lu(k,1761)
9337 114070872 : lu(k,1769) = lu(k,1769) - lu(k,1022) * lu(k,1761)
9338 114070872 : lu(k,1770) = lu(k,1770) - lu(k,1023) * lu(k,1761)
9339 114070872 : lu(k,1771) = lu(k,1771) - lu(k,1024) * lu(k,1761)
9340 114070872 : lu(k,1772) = lu(k,1772) - lu(k,1025) * lu(k,1761)
9341 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1026) * lu(k,1761)
9342 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1027) * lu(k,1761)
9343 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1028) * lu(k,1761)
9344 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1029) * lu(k,1761)
9345 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1030) * lu(k,1761)
9346 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1031) * lu(k,1761)
9347 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1032) * lu(k,1761)
9348 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1033) * lu(k,1761)
9349 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1034) * lu(k,1761)
9350 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1035) * lu(k,1761)
9351 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1036) * lu(k,1761)
9352 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1037) * lu(k,1761)
9353 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1038) * lu(k,1761)
9354 114070872 : lu(k,1810) = lu(k,1810) - lu(k,1015) * lu(k,1809)
9355 114070872 : lu(k,1811) = lu(k,1811) - lu(k,1016) * lu(k,1809)
9356 114070872 : lu(k,1812) = lu(k,1812) - lu(k,1017) * lu(k,1809)
9357 114070872 : lu(k,1813) = lu(k,1813) - lu(k,1018) * lu(k,1809)
9358 114070872 : lu(k,1814) = lu(k,1814) - lu(k,1019) * lu(k,1809)
9359 114070872 : lu(k,1815) = lu(k,1815) - lu(k,1020) * lu(k,1809)
9360 114070872 : lu(k,1816) = lu(k,1816) - lu(k,1021) * lu(k,1809)
9361 114070872 : lu(k,1817) = lu(k,1817) - lu(k,1022) * lu(k,1809)
9362 114070872 : lu(k,1818) = lu(k,1818) - lu(k,1023) * lu(k,1809)
9363 114070872 : lu(k,1819) = lu(k,1819) - lu(k,1024) * lu(k,1809)
9364 114070872 : lu(k,1820) = lu(k,1820) - lu(k,1025) * lu(k,1809)
9365 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1026) * lu(k,1809)
9366 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1027) * lu(k,1809)
9367 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1028) * lu(k,1809)
9368 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1029) * lu(k,1809)
9369 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1030) * lu(k,1809)
9370 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1031) * lu(k,1809)
9371 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1032) * lu(k,1809)
9372 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1033) * lu(k,1809)
9373 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1034) * lu(k,1809)
9374 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1035) * lu(k,1809)
9375 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1036) * lu(k,1809)
9376 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1037) * lu(k,1809)
9377 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1038) * lu(k,1809)
9378 114070872 : lu(k,1843) = lu(k,1843) - lu(k,1015) * lu(k,1842)
9379 114070872 : lu(k,1844) = lu(k,1844) - lu(k,1016) * lu(k,1842)
9380 114070872 : lu(k,1845) = lu(k,1845) - lu(k,1017) * lu(k,1842)
9381 114070872 : lu(k,1846) = lu(k,1846) - lu(k,1018) * lu(k,1842)
9382 114070872 : lu(k,1847) = lu(k,1847) - lu(k,1019) * lu(k,1842)
9383 114070872 : lu(k,1848) = lu(k,1848) - lu(k,1020) * lu(k,1842)
9384 114070872 : lu(k,1849) = lu(k,1849) - lu(k,1021) * lu(k,1842)
9385 114070872 : lu(k,1850) = lu(k,1850) - lu(k,1022) * lu(k,1842)
9386 114070872 : lu(k,1851) = lu(k,1851) - lu(k,1023) * lu(k,1842)
9387 114070872 : lu(k,1852) = lu(k,1852) - lu(k,1024) * lu(k,1842)
9388 114070872 : lu(k,1853) = lu(k,1853) - lu(k,1025) * lu(k,1842)
9389 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1026) * lu(k,1842)
9390 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1027) * lu(k,1842)
9391 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1028) * lu(k,1842)
9392 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1029) * lu(k,1842)
9393 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1030) * lu(k,1842)
9394 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1031) * lu(k,1842)
9395 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1032) * lu(k,1842)
9396 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1033) * lu(k,1842)
9397 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1034) * lu(k,1842)
9398 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1035) * lu(k,1842)
9399 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1036) * lu(k,1842)
9400 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1037) * lu(k,1842)
9401 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1038) * lu(k,1842)
9402 114070872 : lu(k,1879) = lu(k,1879) - lu(k,1015) * lu(k,1878)
9403 114070872 : lu(k,1880) = lu(k,1880) - lu(k,1016) * lu(k,1878)
9404 114070872 : lu(k,1881) = lu(k,1881) - lu(k,1017) * lu(k,1878)
9405 114070872 : lu(k,1882) = lu(k,1882) - lu(k,1018) * lu(k,1878)
9406 114070872 : lu(k,1883) = lu(k,1883) - lu(k,1019) * lu(k,1878)
9407 114070872 : lu(k,1884) = lu(k,1884) - lu(k,1020) * lu(k,1878)
9408 114070872 : lu(k,1885) = lu(k,1885) - lu(k,1021) * lu(k,1878)
9409 114070872 : lu(k,1886) = lu(k,1886) - lu(k,1022) * lu(k,1878)
9410 114070872 : lu(k,1887) = lu(k,1887) - lu(k,1023) * lu(k,1878)
9411 114070872 : lu(k,1888) = lu(k,1888) - lu(k,1024) * lu(k,1878)
9412 114070872 : lu(k,1889) = lu(k,1889) - lu(k,1025) * lu(k,1878)
9413 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1026) * lu(k,1878)
9414 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1027) * lu(k,1878)
9415 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1028) * lu(k,1878)
9416 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1029) * lu(k,1878)
9417 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1030) * lu(k,1878)
9418 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1031) * lu(k,1878)
9419 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1032) * lu(k,1878)
9420 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1033) * lu(k,1878)
9421 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1034) * lu(k,1878)
9422 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1035) * lu(k,1878)
9423 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1036) * lu(k,1878)
9424 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1037) * lu(k,1878)
9425 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1038) * lu(k,1878)
9426 114070872 : lu(k,1920) = lu(k,1920) - lu(k,1015) * lu(k,1919)
9427 114070872 : lu(k,1921) = lu(k,1921) - lu(k,1016) * lu(k,1919)
9428 114070872 : lu(k,1922) = lu(k,1922) - lu(k,1017) * lu(k,1919)
9429 114070872 : lu(k,1923) = lu(k,1923) - lu(k,1018) * lu(k,1919)
9430 114070872 : lu(k,1924) = lu(k,1924) - lu(k,1019) * lu(k,1919)
9431 114070872 : lu(k,1925) = lu(k,1925) - lu(k,1020) * lu(k,1919)
9432 114070872 : lu(k,1926) = lu(k,1926) - lu(k,1021) * lu(k,1919)
9433 114070872 : lu(k,1927) = lu(k,1927) - lu(k,1022) * lu(k,1919)
9434 114070872 : lu(k,1928) = lu(k,1928) - lu(k,1023) * lu(k,1919)
9435 114070872 : lu(k,1929) = lu(k,1929) - lu(k,1024) * lu(k,1919)
9436 114070872 : lu(k,1930) = lu(k,1930) - lu(k,1025) * lu(k,1919)
9437 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1026) * lu(k,1919)
9438 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1027) * lu(k,1919)
9439 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1028) * lu(k,1919)
9440 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1029) * lu(k,1919)
9441 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1030) * lu(k,1919)
9442 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1031) * lu(k,1919)
9443 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1032) * lu(k,1919)
9444 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1033) * lu(k,1919)
9445 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1034) * lu(k,1919)
9446 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1035) * lu(k,1919)
9447 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1036) * lu(k,1919)
9448 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1037) * lu(k,1919)
9449 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1038) * lu(k,1919)
9450 114070872 : lu(k,1962) = lu(k,1962) - lu(k,1015) * lu(k,1961)
9451 114070872 : lu(k,1963) = lu(k,1963) - lu(k,1016) * lu(k,1961)
9452 114070872 : lu(k,1964) = lu(k,1964) - lu(k,1017) * lu(k,1961)
9453 114070872 : lu(k,1965) = lu(k,1965) - lu(k,1018) * lu(k,1961)
9454 114070872 : lu(k,1966) = lu(k,1966) - lu(k,1019) * lu(k,1961)
9455 114070872 : lu(k,1967) = lu(k,1967) - lu(k,1020) * lu(k,1961)
9456 114070872 : lu(k,1968) = lu(k,1968) - lu(k,1021) * lu(k,1961)
9457 114070872 : lu(k,1969) = lu(k,1969) - lu(k,1022) * lu(k,1961)
9458 114070872 : lu(k,1970) = lu(k,1970) - lu(k,1023) * lu(k,1961)
9459 114070872 : lu(k,1971) = lu(k,1971) - lu(k,1024) * lu(k,1961)
9460 114070872 : lu(k,1972) = lu(k,1972) - lu(k,1025) * lu(k,1961)
9461 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1026) * lu(k,1961)
9462 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1027) * lu(k,1961)
9463 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1028) * lu(k,1961)
9464 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1029) * lu(k,1961)
9465 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1030) * lu(k,1961)
9466 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1031) * lu(k,1961)
9467 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1032) * lu(k,1961)
9468 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1033) * lu(k,1961)
9469 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1034) * lu(k,1961)
9470 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1035) * lu(k,1961)
9471 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1036) * lu(k,1961)
9472 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1037) * lu(k,1961)
9473 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1038) * lu(k,1961)
9474 114070872 : lu(k,2007) = lu(k,2007) - lu(k,1015) * lu(k,2006)
9475 114070872 : lu(k,2008) = lu(k,2008) - lu(k,1016) * lu(k,2006)
9476 114070872 : lu(k,2009) = lu(k,2009) - lu(k,1017) * lu(k,2006)
9477 114070872 : lu(k,2010) = lu(k,2010) - lu(k,1018) * lu(k,2006)
9478 114070872 : lu(k,2011) = lu(k,2011) - lu(k,1019) * lu(k,2006)
9479 114070872 : lu(k,2012) = lu(k,2012) - lu(k,1020) * lu(k,2006)
9480 114070872 : lu(k,2013) = lu(k,2013) - lu(k,1021) * lu(k,2006)
9481 114070872 : lu(k,2014) = lu(k,2014) - lu(k,1022) * lu(k,2006)
9482 114070872 : lu(k,2015) = lu(k,2015) - lu(k,1023) * lu(k,2006)
9483 114070872 : lu(k,2016) = lu(k,2016) - lu(k,1024) * lu(k,2006)
9484 114070872 : lu(k,2017) = lu(k,2017) - lu(k,1025) * lu(k,2006)
9485 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1026) * lu(k,2006)
9486 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1027) * lu(k,2006)
9487 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1028) * lu(k,2006)
9488 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1029) * lu(k,2006)
9489 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1030) * lu(k,2006)
9490 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1031) * lu(k,2006)
9491 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1032) * lu(k,2006)
9492 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1033) * lu(k,2006)
9493 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1034) * lu(k,2006)
9494 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1035) * lu(k,2006)
9495 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1036) * lu(k,2006)
9496 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1037) * lu(k,2006)
9497 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1038) * lu(k,2006)
9498 114070872 : lu(k,2067) = lu(k,2067) - lu(k,1015) * lu(k,2066)
9499 114070872 : lu(k,2068) = lu(k,2068) - lu(k,1016) * lu(k,2066)
9500 114070872 : lu(k,2069) = lu(k,2069) - lu(k,1017) * lu(k,2066)
9501 114070872 : lu(k,2070) = lu(k,2070) - lu(k,1018) * lu(k,2066)
9502 114070872 : lu(k,2071) = lu(k,2071) - lu(k,1019) * lu(k,2066)
9503 114070872 : lu(k,2072) = lu(k,2072) - lu(k,1020) * lu(k,2066)
9504 114070872 : lu(k,2073) = lu(k,2073) - lu(k,1021) * lu(k,2066)
9505 114070872 : lu(k,2074) = lu(k,2074) - lu(k,1022) * lu(k,2066)
9506 114070872 : lu(k,2075) = lu(k,2075) - lu(k,1023) * lu(k,2066)
9507 114070872 : lu(k,2076) = lu(k,2076) - lu(k,1024) * lu(k,2066)
9508 114070872 : lu(k,2077) = lu(k,2077) - lu(k,1025) * lu(k,2066)
9509 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1026) * lu(k,2066)
9510 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1027) * lu(k,2066)
9511 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1028) * lu(k,2066)
9512 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1029) * lu(k,2066)
9513 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1030) * lu(k,2066)
9514 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1031) * lu(k,2066)
9515 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1032) * lu(k,2066)
9516 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1033) * lu(k,2066)
9517 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1034) * lu(k,2066)
9518 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1035) * lu(k,2066)
9519 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1036) * lu(k,2066)
9520 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1037) * lu(k,2066)
9521 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1038) * lu(k,2066)
9522 114070872 : lu(k,1058) = 1._r8 / lu(k,1058)
9523 114070872 : lu(k,1059) = lu(k,1059) * lu(k,1058)
9524 114070872 : lu(k,1060) = lu(k,1060) * lu(k,1058)
9525 114070872 : lu(k,1061) = lu(k,1061) * lu(k,1058)
9526 114070872 : lu(k,1062) = lu(k,1062) * lu(k,1058)
9527 114070872 : lu(k,1063) = lu(k,1063) * lu(k,1058)
9528 114070872 : lu(k,1064) = lu(k,1064) * lu(k,1058)
9529 114070872 : lu(k,1065) = lu(k,1065) * lu(k,1058)
9530 114070872 : lu(k,1066) = lu(k,1066) * lu(k,1058)
9531 114070872 : lu(k,1067) = lu(k,1067) * lu(k,1058)
9532 114070872 : lu(k,1068) = lu(k,1068) * lu(k,1058)
9533 114070872 : lu(k,1069) = lu(k,1069) * lu(k,1058)
9534 114070872 : lu(k,1070) = lu(k,1070) * lu(k,1058)
9535 114070872 : lu(k,1071) = lu(k,1071) * lu(k,1058)
9536 114070872 : lu(k,1072) = lu(k,1072) * lu(k,1058)
9537 114070872 : lu(k,1073) = lu(k,1073) * lu(k,1058)
9538 114070872 : lu(k,1074) = lu(k,1074) * lu(k,1058)
9539 114070872 : lu(k,1075) = lu(k,1075) * lu(k,1058)
9540 114070872 : lu(k,1076) = lu(k,1076) * lu(k,1058)
9541 114070872 : lu(k,1077) = lu(k,1077) * lu(k,1058)
9542 114070872 : lu(k,1078) = lu(k,1078) * lu(k,1058)
9543 114070872 : lu(k,1079) = lu(k,1079) * lu(k,1058)
9544 114070872 : lu(k,1080) = lu(k,1080) * lu(k,1058)
9545 114070872 : lu(k,1081) = lu(k,1081) * lu(k,1058)
9546 114070872 : lu(k,1104) = lu(k,1104) - lu(k,1059) * lu(k,1103)
9547 114070872 : lu(k,1105) = lu(k,1105) - lu(k,1060) * lu(k,1103)
9548 114070872 : lu(k,1106) = lu(k,1106) - lu(k,1061) * lu(k,1103)
9549 114070872 : lu(k,1107) = lu(k,1107) - lu(k,1062) * lu(k,1103)
9550 114070872 : lu(k,1108) = lu(k,1108) - lu(k,1063) * lu(k,1103)
9551 114070872 : lu(k,1109) = lu(k,1109) - lu(k,1064) * lu(k,1103)
9552 114070872 : lu(k,1110) = lu(k,1110) - lu(k,1065) * lu(k,1103)
9553 114070872 : lu(k,1111) = lu(k,1111) - lu(k,1066) * lu(k,1103)
9554 114070872 : lu(k,1112) = lu(k,1112) - lu(k,1067) * lu(k,1103)
9555 114070872 : lu(k,1113) = lu(k,1113) - lu(k,1068) * lu(k,1103)
9556 114070872 : lu(k,1114) = lu(k,1114) - lu(k,1069) * lu(k,1103)
9557 114070872 : lu(k,1115) = lu(k,1115) - lu(k,1070) * lu(k,1103)
9558 114070872 : lu(k,1116) = lu(k,1116) - lu(k,1071) * lu(k,1103)
9559 114070872 : lu(k,1117) = lu(k,1117) - lu(k,1072) * lu(k,1103)
9560 114070872 : lu(k,1118) = lu(k,1118) - lu(k,1073) * lu(k,1103)
9561 114070872 : lu(k,1119) = lu(k,1119) - lu(k,1074) * lu(k,1103)
9562 114070872 : lu(k,1120) = lu(k,1120) - lu(k,1075) * lu(k,1103)
9563 114070872 : lu(k,1121) = lu(k,1121) - lu(k,1076) * lu(k,1103)
9564 114070872 : lu(k,1122) = lu(k,1122) - lu(k,1077) * lu(k,1103)
9565 114070872 : lu(k,1123) = lu(k,1123) - lu(k,1078) * lu(k,1103)
9566 114070872 : lu(k,1124) = lu(k,1124) - lu(k,1079) * lu(k,1103)
9567 114070872 : lu(k,1125) = lu(k,1125) - lu(k,1080) * lu(k,1103)
9568 114070872 : lu(k,1126) = lu(k,1126) - lu(k,1081) * lu(k,1103)
9569 114070872 : lu(k,1152) = lu(k,1152) - lu(k,1059) * lu(k,1151)
9570 114070872 : lu(k,1153) = lu(k,1153) - lu(k,1060) * lu(k,1151)
9571 114070872 : lu(k,1154) = lu(k,1154) - lu(k,1061) * lu(k,1151)
9572 114070872 : lu(k,1155) = lu(k,1155) - lu(k,1062) * lu(k,1151)
9573 114070872 : lu(k,1156) = lu(k,1156) - lu(k,1063) * lu(k,1151)
9574 114070872 : lu(k,1157) = lu(k,1157) - lu(k,1064) * lu(k,1151)
9575 114070872 : lu(k,1158) = lu(k,1158) - lu(k,1065) * lu(k,1151)
9576 114070872 : lu(k,1159) = lu(k,1159) - lu(k,1066) * lu(k,1151)
9577 114070872 : lu(k,1160) = lu(k,1160) - lu(k,1067) * lu(k,1151)
9578 114070872 : lu(k,1161) = lu(k,1161) - lu(k,1068) * lu(k,1151)
9579 114070872 : lu(k,1162) = lu(k,1162) - lu(k,1069) * lu(k,1151)
9580 114070872 : lu(k,1163) = lu(k,1163) - lu(k,1070) * lu(k,1151)
9581 114070872 : lu(k,1164) = lu(k,1164) - lu(k,1071) * lu(k,1151)
9582 114070872 : lu(k,1165) = lu(k,1165) - lu(k,1072) * lu(k,1151)
9583 114070872 : lu(k,1166) = lu(k,1166) - lu(k,1073) * lu(k,1151)
9584 114070872 : lu(k,1167) = lu(k,1167) - lu(k,1074) * lu(k,1151)
9585 114070872 : lu(k,1168) = lu(k,1168) - lu(k,1075) * lu(k,1151)
9586 114070872 : lu(k,1169) = lu(k,1169) - lu(k,1076) * lu(k,1151)
9587 114070872 : lu(k,1170) = lu(k,1170) - lu(k,1077) * lu(k,1151)
9588 114070872 : lu(k,1171) = lu(k,1171) - lu(k,1078) * lu(k,1151)
9589 114070872 : lu(k,1172) = lu(k,1172) - lu(k,1079) * lu(k,1151)
9590 114070872 : lu(k,1173) = lu(k,1173) - lu(k,1080) * lu(k,1151)
9591 114070872 : lu(k,1174) = lu(k,1174) - lu(k,1081) * lu(k,1151)
9592 114070872 : lu(k,1195) = lu(k,1195) - lu(k,1059) * lu(k,1194)
9593 114070872 : lu(k,1196) = lu(k,1196) - lu(k,1060) * lu(k,1194)
9594 114070872 : lu(k,1197) = lu(k,1197) - lu(k,1061) * lu(k,1194)
9595 114070872 : lu(k,1198) = lu(k,1198) - lu(k,1062) * lu(k,1194)
9596 114070872 : lu(k,1199) = lu(k,1199) - lu(k,1063) * lu(k,1194)
9597 114070872 : lu(k,1200) = lu(k,1200) - lu(k,1064) * lu(k,1194)
9598 114070872 : lu(k,1201) = lu(k,1201) - lu(k,1065) * lu(k,1194)
9599 114070872 : lu(k,1202) = lu(k,1202) - lu(k,1066) * lu(k,1194)
9600 114070872 : lu(k,1203) = lu(k,1203) - lu(k,1067) * lu(k,1194)
9601 114070872 : lu(k,1204) = lu(k,1204) - lu(k,1068) * lu(k,1194)
9602 114070872 : lu(k,1205) = lu(k,1205) - lu(k,1069) * lu(k,1194)
9603 114070872 : lu(k,1206) = lu(k,1206) - lu(k,1070) * lu(k,1194)
9604 114070872 : lu(k,1207) = lu(k,1207) - lu(k,1071) * lu(k,1194)
9605 114070872 : lu(k,1208) = lu(k,1208) - lu(k,1072) * lu(k,1194)
9606 114070872 : lu(k,1209) = lu(k,1209) - lu(k,1073) * lu(k,1194)
9607 114070872 : lu(k,1210) = lu(k,1210) - lu(k,1074) * lu(k,1194)
9608 114070872 : lu(k,1211) = lu(k,1211) - lu(k,1075) * lu(k,1194)
9609 114070872 : lu(k,1212) = lu(k,1212) - lu(k,1076) * lu(k,1194)
9610 114070872 : lu(k,1213) = lu(k,1213) - lu(k,1077) * lu(k,1194)
9611 114070872 : lu(k,1214) = lu(k,1214) - lu(k,1078) * lu(k,1194)
9612 114070872 : lu(k,1215) = lu(k,1215) - lu(k,1079) * lu(k,1194)
9613 114070872 : lu(k,1216) = lu(k,1216) - lu(k,1080) * lu(k,1194)
9614 114070872 : lu(k,1217) = lu(k,1217) - lu(k,1081) * lu(k,1194)
9615 114070872 : lu(k,1238) = lu(k,1238) - lu(k,1059) * lu(k,1237)
9616 114070872 : lu(k,1239) = lu(k,1239) - lu(k,1060) * lu(k,1237)
9617 114070872 : lu(k,1240) = lu(k,1240) - lu(k,1061) * lu(k,1237)
9618 114070872 : lu(k,1241) = lu(k,1241) - lu(k,1062) * lu(k,1237)
9619 114070872 : lu(k,1242) = lu(k,1242) - lu(k,1063) * lu(k,1237)
9620 114070872 : lu(k,1243) = lu(k,1243) - lu(k,1064) * lu(k,1237)
9621 114070872 : lu(k,1244) = lu(k,1244) - lu(k,1065) * lu(k,1237)
9622 114070872 : lu(k,1245) = lu(k,1245) - lu(k,1066) * lu(k,1237)
9623 114070872 : lu(k,1246) = lu(k,1246) - lu(k,1067) * lu(k,1237)
9624 114070872 : lu(k,1247) = lu(k,1247) - lu(k,1068) * lu(k,1237)
9625 114070872 : lu(k,1248) = lu(k,1248) - lu(k,1069) * lu(k,1237)
9626 114070872 : lu(k,1249) = lu(k,1249) - lu(k,1070) * lu(k,1237)
9627 114070872 : lu(k,1250) = lu(k,1250) - lu(k,1071) * lu(k,1237)
9628 114070872 : lu(k,1251) = lu(k,1251) - lu(k,1072) * lu(k,1237)
9629 114070872 : lu(k,1252) = lu(k,1252) - lu(k,1073) * lu(k,1237)
9630 114070872 : lu(k,1253) = lu(k,1253) - lu(k,1074) * lu(k,1237)
9631 114070872 : lu(k,1254) = lu(k,1254) - lu(k,1075) * lu(k,1237)
9632 114070872 : lu(k,1255) = lu(k,1255) - lu(k,1076) * lu(k,1237)
9633 114070872 : lu(k,1256) = lu(k,1256) - lu(k,1077) * lu(k,1237)
9634 114070872 : lu(k,1257) = lu(k,1257) - lu(k,1078) * lu(k,1237)
9635 114070872 : lu(k,1258) = lu(k,1258) - lu(k,1079) * lu(k,1237)
9636 114070872 : lu(k,1259) = lu(k,1259) - lu(k,1080) * lu(k,1237)
9637 114070872 : lu(k,1260) = lu(k,1260) - lu(k,1081) * lu(k,1237)
9638 114070872 : lu(k,1280) = lu(k,1280) - lu(k,1059) * lu(k,1279)
9639 114070872 : lu(k,1281) = lu(k,1281) - lu(k,1060) * lu(k,1279)
9640 114070872 : lu(k,1282) = lu(k,1282) - lu(k,1061) * lu(k,1279)
9641 114070872 : lu(k,1283) = lu(k,1283) - lu(k,1062) * lu(k,1279)
9642 114070872 : lu(k,1284) = lu(k,1284) - lu(k,1063) * lu(k,1279)
9643 114070872 : lu(k,1285) = lu(k,1285) - lu(k,1064) * lu(k,1279)
9644 114070872 : lu(k,1286) = lu(k,1286) - lu(k,1065) * lu(k,1279)
9645 114070872 : lu(k,1287) = lu(k,1287) - lu(k,1066) * lu(k,1279)
9646 114070872 : lu(k,1288) = lu(k,1288) - lu(k,1067) * lu(k,1279)
9647 114070872 : lu(k,1289) = lu(k,1289) - lu(k,1068) * lu(k,1279)
9648 114070872 : lu(k,1290) = lu(k,1290) - lu(k,1069) * lu(k,1279)
9649 114070872 : lu(k,1291) = lu(k,1291) - lu(k,1070) * lu(k,1279)
9650 114070872 : lu(k,1292) = lu(k,1292) - lu(k,1071) * lu(k,1279)
9651 114070872 : lu(k,1293) = lu(k,1293) - lu(k,1072) * lu(k,1279)
9652 114070872 : lu(k,1294) = lu(k,1294) - lu(k,1073) * lu(k,1279)
9653 114070872 : lu(k,1295) = lu(k,1295) - lu(k,1074) * lu(k,1279)
9654 114070872 : lu(k,1296) = lu(k,1296) - lu(k,1075) * lu(k,1279)
9655 114070872 : lu(k,1297) = lu(k,1297) - lu(k,1076) * lu(k,1279)
9656 114070872 : lu(k,1298) = lu(k,1298) - lu(k,1077) * lu(k,1279)
9657 114070872 : lu(k,1299) = lu(k,1299) - lu(k,1078) * lu(k,1279)
9658 114070872 : lu(k,1300) = lu(k,1300) - lu(k,1079) * lu(k,1279)
9659 114070872 : lu(k,1301) = lu(k,1301) - lu(k,1080) * lu(k,1279)
9660 114070872 : lu(k,1302) = lu(k,1302) - lu(k,1081) * lu(k,1279)
9661 114070872 : lu(k,1322) = lu(k,1322) - lu(k,1059) * lu(k,1321)
9662 114070872 : lu(k,1323) = lu(k,1323) - lu(k,1060) * lu(k,1321)
9663 114070872 : lu(k,1324) = lu(k,1324) - lu(k,1061) * lu(k,1321)
9664 114070872 : lu(k,1325) = lu(k,1325) - lu(k,1062) * lu(k,1321)
9665 114070872 : lu(k,1326) = lu(k,1326) - lu(k,1063) * lu(k,1321)
9666 114070872 : lu(k,1327) = lu(k,1327) - lu(k,1064) * lu(k,1321)
9667 114070872 : lu(k,1328) = lu(k,1328) - lu(k,1065) * lu(k,1321)
9668 114070872 : lu(k,1329) = lu(k,1329) - lu(k,1066) * lu(k,1321)
9669 114070872 : lu(k,1330) = lu(k,1330) - lu(k,1067) * lu(k,1321)
9670 114070872 : lu(k,1331) = lu(k,1331) - lu(k,1068) * lu(k,1321)
9671 114070872 : lu(k,1332) = lu(k,1332) - lu(k,1069) * lu(k,1321)
9672 114070872 : lu(k,1333) = lu(k,1333) - lu(k,1070) * lu(k,1321)
9673 114070872 : lu(k,1334) = lu(k,1334) - lu(k,1071) * lu(k,1321)
9674 114070872 : lu(k,1335) = lu(k,1335) - lu(k,1072) * lu(k,1321)
9675 114070872 : lu(k,1336) = lu(k,1336) - lu(k,1073) * lu(k,1321)
9676 114070872 : lu(k,1337) = lu(k,1337) - lu(k,1074) * lu(k,1321)
9677 114070872 : lu(k,1338) = lu(k,1338) - lu(k,1075) * lu(k,1321)
9678 114070872 : lu(k,1339) = lu(k,1339) - lu(k,1076) * lu(k,1321)
9679 114070872 : lu(k,1340) = lu(k,1340) - lu(k,1077) * lu(k,1321)
9680 114070872 : lu(k,1341) = lu(k,1341) - lu(k,1078) * lu(k,1321)
9681 114070872 : lu(k,1342) = lu(k,1342) - lu(k,1079) * lu(k,1321)
9682 114070872 : lu(k,1343) = lu(k,1343) - lu(k,1080) * lu(k,1321)
9683 114070872 : lu(k,1344) = lu(k,1344) - lu(k,1081) * lu(k,1321)
9684 114070872 : lu(k,1382) = lu(k,1382) - lu(k,1059) * lu(k,1381)
9685 114070872 : lu(k,1383) = lu(k,1383) - lu(k,1060) * lu(k,1381)
9686 114070872 : lu(k,1384) = lu(k,1384) - lu(k,1061) * lu(k,1381)
9687 114070872 : lu(k,1385) = lu(k,1385) - lu(k,1062) * lu(k,1381)
9688 114070872 : lu(k,1386) = lu(k,1386) - lu(k,1063) * lu(k,1381)
9689 114070872 : lu(k,1387) = lu(k,1387) - lu(k,1064) * lu(k,1381)
9690 114070872 : lu(k,1388) = lu(k,1388) - lu(k,1065) * lu(k,1381)
9691 114070872 : lu(k,1389) = lu(k,1389) - lu(k,1066) * lu(k,1381)
9692 114070872 : lu(k,1390) = lu(k,1390) - lu(k,1067) * lu(k,1381)
9693 114070872 : lu(k,1391) = lu(k,1391) - lu(k,1068) * lu(k,1381)
9694 114070872 : lu(k,1392) = lu(k,1392) - lu(k,1069) * lu(k,1381)
9695 114070872 : lu(k,1393) = lu(k,1393) - lu(k,1070) * lu(k,1381)
9696 114070872 : lu(k,1394) = lu(k,1394) - lu(k,1071) * lu(k,1381)
9697 114070872 : lu(k,1395) = lu(k,1395) - lu(k,1072) * lu(k,1381)
9698 114070872 : lu(k,1396) = lu(k,1396) - lu(k,1073) * lu(k,1381)
9699 114070872 : lu(k,1397) = lu(k,1397) - lu(k,1074) * lu(k,1381)
9700 114070872 : lu(k,1398) = lu(k,1398) - lu(k,1075) * lu(k,1381)
9701 114070872 : lu(k,1399) = lu(k,1399) - lu(k,1076) * lu(k,1381)
9702 114070872 : lu(k,1400) = lu(k,1400) - lu(k,1077) * lu(k,1381)
9703 114070872 : lu(k,1401) = lu(k,1401) - lu(k,1078) * lu(k,1381)
9704 114070872 : lu(k,1402) = lu(k,1402) - lu(k,1079) * lu(k,1381)
9705 114070872 : lu(k,1403) = lu(k,1403) - lu(k,1080) * lu(k,1381)
9706 114070872 : lu(k,1404) = lu(k,1404) - lu(k,1081) * lu(k,1381)
9707 114070872 : lu(k,1431) = lu(k,1431) - lu(k,1059) * lu(k,1430)
9708 114070872 : lu(k,1432) = lu(k,1432) - lu(k,1060) * lu(k,1430)
9709 114070872 : lu(k,1433) = lu(k,1433) - lu(k,1061) * lu(k,1430)
9710 114070872 : lu(k,1434) = lu(k,1434) - lu(k,1062) * lu(k,1430)
9711 114070872 : lu(k,1435) = lu(k,1435) - lu(k,1063) * lu(k,1430)
9712 114070872 : lu(k,1436) = lu(k,1436) - lu(k,1064) * lu(k,1430)
9713 114070872 : lu(k,1437) = lu(k,1437) - lu(k,1065) * lu(k,1430)
9714 114070872 : lu(k,1438) = lu(k,1438) - lu(k,1066) * lu(k,1430)
9715 114070872 : lu(k,1439) = lu(k,1439) - lu(k,1067) * lu(k,1430)
9716 114070872 : lu(k,1440) = lu(k,1440) - lu(k,1068) * lu(k,1430)
9717 114070872 : lu(k,1441) = lu(k,1441) - lu(k,1069) * lu(k,1430)
9718 114070872 : lu(k,1442) = lu(k,1442) - lu(k,1070) * lu(k,1430)
9719 114070872 : lu(k,1443) = lu(k,1443) - lu(k,1071) * lu(k,1430)
9720 114070872 : lu(k,1444) = lu(k,1444) - lu(k,1072) * lu(k,1430)
9721 114070872 : lu(k,1445) = lu(k,1445) - lu(k,1073) * lu(k,1430)
9722 114070872 : lu(k,1446) = lu(k,1446) - lu(k,1074) * lu(k,1430)
9723 114070872 : lu(k,1447) = lu(k,1447) - lu(k,1075) * lu(k,1430)
9724 114070872 : lu(k,1448) = lu(k,1448) - lu(k,1076) * lu(k,1430)
9725 114070872 : lu(k,1449) = lu(k,1449) - lu(k,1077) * lu(k,1430)
9726 114070872 : lu(k,1450) = lu(k,1450) - lu(k,1078) * lu(k,1430)
9727 114070872 : lu(k,1451) = lu(k,1451) - lu(k,1079) * lu(k,1430)
9728 114070872 : lu(k,1452) = lu(k,1452) - lu(k,1080) * lu(k,1430)
9729 114070872 : lu(k,1453) = lu(k,1453) - lu(k,1081) * lu(k,1430)
9730 114070872 : lu(k,1479) = lu(k,1479) - lu(k,1059) * lu(k,1478)
9731 114070872 : lu(k,1480) = lu(k,1480) - lu(k,1060) * lu(k,1478)
9732 114070872 : lu(k,1481) = lu(k,1481) - lu(k,1061) * lu(k,1478)
9733 114070872 : lu(k,1482) = lu(k,1482) - lu(k,1062) * lu(k,1478)
9734 114070872 : lu(k,1483) = lu(k,1483) - lu(k,1063) * lu(k,1478)
9735 114070872 : lu(k,1484) = lu(k,1484) - lu(k,1064) * lu(k,1478)
9736 114070872 : lu(k,1485) = lu(k,1485) - lu(k,1065) * lu(k,1478)
9737 114070872 : lu(k,1486) = lu(k,1486) - lu(k,1066) * lu(k,1478)
9738 114070872 : lu(k,1487) = lu(k,1487) - lu(k,1067) * lu(k,1478)
9739 114070872 : lu(k,1488) = lu(k,1488) - lu(k,1068) * lu(k,1478)
9740 114070872 : lu(k,1489) = lu(k,1489) - lu(k,1069) * lu(k,1478)
9741 114070872 : lu(k,1490) = lu(k,1490) - lu(k,1070) * lu(k,1478)
9742 114070872 : lu(k,1491) = lu(k,1491) - lu(k,1071) * lu(k,1478)
9743 114070872 : lu(k,1492) = lu(k,1492) - lu(k,1072) * lu(k,1478)
9744 114070872 : lu(k,1493) = lu(k,1493) - lu(k,1073) * lu(k,1478)
9745 114070872 : lu(k,1494) = lu(k,1494) - lu(k,1074) * lu(k,1478)
9746 114070872 : lu(k,1495) = lu(k,1495) - lu(k,1075) * lu(k,1478)
9747 114070872 : lu(k,1496) = lu(k,1496) - lu(k,1076) * lu(k,1478)
9748 114070872 : lu(k,1497) = lu(k,1497) - lu(k,1077) * lu(k,1478)
9749 114070872 : lu(k,1498) = lu(k,1498) - lu(k,1078) * lu(k,1478)
9750 114070872 : lu(k,1499) = lu(k,1499) - lu(k,1079) * lu(k,1478)
9751 114070872 : lu(k,1500) = lu(k,1500) - lu(k,1080) * lu(k,1478)
9752 114070872 : lu(k,1501) = lu(k,1501) - lu(k,1081) * lu(k,1478)
9753 114070872 : lu(k,1520) = lu(k,1520) - lu(k,1059) * lu(k,1519)
9754 114070872 : lu(k,1521) = lu(k,1521) - lu(k,1060) * lu(k,1519)
9755 114070872 : lu(k,1522) = lu(k,1522) - lu(k,1061) * lu(k,1519)
9756 114070872 : lu(k,1523) = lu(k,1523) - lu(k,1062) * lu(k,1519)
9757 114070872 : lu(k,1524) = lu(k,1524) - lu(k,1063) * lu(k,1519)
9758 114070872 : lu(k,1525) = lu(k,1525) - lu(k,1064) * lu(k,1519)
9759 114070872 : lu(k,1526) = lu(k,1526) - lu(k,1065) * lu(k,1519)
9760 114070872 : lu(k,1527) = lu(k,1527) - lu(k,1066) * lu(k,1519)
9761 114070872 : lu(k,1528) = lu(k,1528) - lu(k,1067) * lu(k,1519)
9762 114070872 : lu(k,1529) = lu(k,1529) - lu(k,1068) * lu(k,1519)
9763 114070872 : lu(k,1530) = lu(k,1530) - lu(k,1069) * lu(k,1519)
9764 114070872 : lu(k,1531) = lu(k,1531) - lu(k,1070) * lu(k,1519)
9765 114070872 : lu(k,1532) = lu(k,1532) - lu(k,1071) * lu(k,1519)
9766 114070872 : lu(k,1533) = lu(k,1533) - lu(k,1072) * lu(k,1519)
9767 114070872 : lu(k,1534) = lu(k,1534) - lu(k,1073) * lu(k,1519)
9768 114070872 : lu(k,1535) = lu(k,1535) - lu(k,1074) * lu(k,1519)
9769 114070872 : lu(k,1536) = lu(k,1536) - lu(k,1075) * lu(k,1519)
9770 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1076) * lu(k,1519)
9771 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1077) * lu(k,1519)
9772 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1078) * lu(k,1519)
9773 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1079) * lu(k,1519)
9774 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1080) * lu(k,1519)
9775 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1081) * lu(k,1519)
9776 114070872 : lu(k,1556) = lu(k,1556) - lu(k,1059) * lu(k,1555)
9777 114070872 : lu(k,1557) = lu(k,1557) - lu(k,1060) * lu(k,1555)
9778 114070872 : lu(k,1558) = lu(k,1558) - lu(k,1061) * lu(k,1555)
9779 114070872 : lu(k,1559) = lu(k,1559) - lu(k,1062) * lu(k,1555)
9780 114070872 : lu(k,1560) = lu(k,1560) - lu(k,1063) * lu(k,1555)
9781 114070872 : lu(k,1561) = lu(k,1561) - lu(k,1064) * lu(k,1555)
9782 114070872 : lu(k,1562) = lu(k,1562) - lu(k,1065) * lu(k,1555)
9783 114070872 : lu(k,1563) = lu(k,1563) - lu(k,1066) * lu(k,1555)
9784 114070872 : lu(k,1564) = lu(k,1564) - lu(k,1067) * lu(k,1555)
9785 114070872 : lu(k,1565) = lu(k,1565) - lu(k,1068) * lu(k,1555)
9786 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1069) * lu(k,1555)
9787 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1070) * lu(k,1555)
9788 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1071) * lu(k,1555)
9789 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1072) * lu(k,1555)
9790 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1073) * lu(k,1555)
9791 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1074) * lu(k,1555)
9792 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1075) * lu(k,1555)
9793 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1076) * lu(k,1555)
9794 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1077) * lu(k,1555)
9795 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1078) * lu(k,1555)
9796 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1079) * lu(k,1555)
9797 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1080) * lu(k,1555)
9798 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1081) * lu(k,1555)
9799 114070872 : lu(k,1601) = lu(k,1601) - lu(k,1059) * lu(k,1600)
9800 114070872 : lu(k,1602) = lu(k,1602) - lu(k,1060) * lu(k,1600)
9801 114070872 : lu(k,1603) = lu(k,1603) - lu(k,1061) * lu(k,1600)
9802 114070872 : lu(k,1604) = lu(k,1604) - lu(k,1062) * lu(k,1600)
9803 114070872 : lu(k,1605) = lu(k,1605) - lu(k,1063) * lu(k,1600)
9804 114070872 : lu(k,1606) = lu(k,1606) - lu(k,1064) * lu(k,1600)
9805 114070872 : lu(k,1607) = lu(k,1607) - lu(k,1065) * lu(k,1600)
9806 114070872 : lu(k,1608) = lu(k,1608) - lu(k,1066) * lu(k,1600)
9807 114070872 : lu(k,1609) = lu(k,1609) - lu(k,1067) * lu(k,1600)
9808 114070872 : lu(k,1610) = lu(k,1610) - lu(k,1068) * lu(k,1600)
9809 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1069) * lu(k,1600)
9810 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1070) * lu(k,1600)
9811 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1071) * lu(k,1600)
9812 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1072) * lu(k,1600)
9813 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1073) * lu(k,1600)
9814 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1074) * lu(k,1600)
9815 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1075) * lu(k,1600)
9816 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1076) * lu(k,1600)
9817 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1077) * lu(k,1600)
9818 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1078) * lu(k,1600)
9819 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1079) * lu(k,1600)
9820 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1080) * lu(k,1600)
9821 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1081) * lu(k,1600)
9822 114070872 : lu(k,1644) = lu(k,1644) - lu(k,1059) * lu(k,1643)
9823 114070872 : lu(k,1645) = lu(k,1645) - lu(k,1060) * lu(k,1643)
9824 114070872 : lu(k,1646) = lu(k,1646) - lu(k,1061) * lu(k,1643)
9825 114070872 : lu(k,1647) = lu(k,1647) - lu(k,1062) * lu(k,1643)
9826 114070872 : lu(k,1648) = lu(k,1648) - lu(k,1063) * lu(k,1643)
9827 114070872 : lu(k,1649) = lu(k,1649) - lu(k,1064) * lu(k,1643)
9828 114070872 : lu(k,1650) = lu(k,1650) - lu(k,1065) * lu(k,1643)
9829 114070872 : lu(k,1651) = lu(k,1651) - lu(k,1066) * lu(k,1643)
9830 114070872 : lu(k,1652) = lu(k,1652) - lu(k,1067) * lu(k,1643)
9831 114070872 : lu(k,1653) = lu(k,1653) - lu(k,1068) * lu(k,1643)
9832 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1069) * lu(k,1643)
9833 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1070) * lu(k,1643)
9834 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1071) * lu(k,1643)
9835 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1072) * lu(k,1643)
9836 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1073) * lu(k,1643)
9837 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1074) * lu(k,1643)
9838 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1075) * lu(k,1643)
9839 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1076) * lu(k,1643)
9840 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1077) * lu(k,1643)
9841 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1078) * lu(k,1643)
9842 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1079) * lu(k,1643)
9843 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1080) * lu(k,1643)
9844 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1081) * lu(k,1643)
9845 114070872 : lu(k,1687) = lu(k,1687) - lu(k,1059) * lu(k,1686)
9846 114070872 : lu(k,1688) = lu(k,1688) - lu(k,1060) * lu(k,1686)
9847 114070872 : lu(k,1689) = lu(k,1689) - lu(k,1061) * lu(k,1686)
9848 114070872 : lu(k,1690) = lu(k,1690) - lu(k,1062) * lu(k,1686)
9849 114070872 : lu(k,1691) = lu(k,1691) - lu(k,1063) * lu(k,1686)
9850 114070872 : lu(k,1692) = lu(k,1692) - lu(k,1064) * lu(k,1686)
9851 114070872 : lu(k,1693) = lu(k,1693) - lu(k,1065) * lu(k,1686)
9852 114070872 : lu(k,1694) = lu(k,1694) - lu(k,1066) * lu(k,1686)
9853 114070872 : lu(k,1695) = lu(k,1695) - lu(k,1067) * lu(k,1686)
9854 114070872 : lu(k,1696) = lu(k,1696) - lu(k,1068) * lu(k,1686)
9855 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1069) * lu(k,1686)
9856 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1070) * lu(k,1686)
9857 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1071) * lu(k,1686)
9858 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1072) * lu(k,1686)
9859 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1073) * lu(k,1686)
9860 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1074) * lu(k,1686)
9861 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1075) * lu(k,1686)
9862 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1076) * lu(k,1686)
9863 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1077) * lu(k,1686)
9864 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1078) * lu(k,1686)
9865 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1079) * lu(k,1686)
9866 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1080) * lu(k,1686)
9867 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1081) * lu(k,1686)
9868 114070872 : lu(k,1727) = lu(k,1727) - lu(k,1059) * lu(k,1726)
9869 114070872 : lu(k,1728) = lu(k,1728) - lu(k,1060) * lu(k,1726)
9870 114070872 : lu(k,1729) = lu(k,1729) - lu(k,1061) * lu(k,1726)
9871 114070872 : lu(k,1730) = lu(k,1730) - lu(k,1062) * lu(k,1726)
9872 114070872 : lu(k,1731) = lu(k,1731) - lu(k,1063) * lu(k,1726)
9873 114070872 : lu(k,1732) = lu(k,1732) - lu(k,1064) * lu(k,1726)
9874 114070872 : lu(k,1733) = lu(k,1733) - lu(k,1065) * lu(k,1726)
9875 114070872 : lu(k,1734) = lu(k,1734) - lu(k,1066) * lu(k,1726)
9876 114070872 : lu(k,1735) = lu(k,1735) - lu(k,1067) * lu(k,1726)
9877 114070872 : lu(k,1736) = lu(k,1736) - lu(k,1068) * lu(k,1726)
9878 114070872 : lu(k,1737) = lu(k,1737) - lu(k,1069) * lu(k,1726)
9879 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1070) * lu(k,1726)
9880 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1071) * lu(k,1726)
9881 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1072) * lu(k,1726)
9882 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1073) * lu(k,1726)
9883 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1074) * lu(k,1726)
9884 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1075) * lu(k,1726)
9885 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1076) * lu(k,1726)
9886 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1077) * lu(k,1726)
9887 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1078) * lu(k,1726)
9888 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1079) * lu(k,1726)
9889 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1080) * lu(k,1726)
9890 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1081) * lu(k,1726)
9891 114070872 : lu(k,1763) = lu(k,1763) - lu(k,1059) * lu(k,1762)
9892 114070872 : lu(k,1764) = lu(k,1764) - lu(k,1060) * lu(k,1762)
9893 114070872 : lu(k,1765) = lu(k,1765) - lu(k,1061) * lu(k,1762)
9894 114070872 : lu(k,1766) = lu(k,1766) - lu(k,1062) * lu(k,1762)
9895 114070872 : lu(k,1767) = lu(k,1767) - lu(k,1063) * lu(k,1762)
9896 114070872 : lu(k,1768) = lu(k,1768) - lu(k,1064) * lu(k,1762)
9897 114070872 : lu(k,1769) = lu(k,1769) - lu(k,1065) * lu(k,1762)
9898 114070872 : lu(k,1770) = lu(k,1770) - lu(k,1066) * lu(k,1762)
9899 114070872 : lu(k,1771) = lu(k,1771) - lu(k,1067) * lu(k,1762)
9900 114070872 : lu(k,1772) = lu(k,1772) - lu(k,1068) * lu(k,1762)
9901 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1069) * lu(k,1762)
9902 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1070) * lu(k,1762)
9903 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1071) * lu(k,1762)
9904 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1072) * lu(k,1762)
9905 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1073) * lu(k,1762)
9906 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1074) * lu(k,1762)
9907 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1075) * lu(k,1762)
9908 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1076) * lu(k,1762)
9909 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1077) * lu(k,1762)
9910 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1078) * lu(k,1762)
9911 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1079) * lu(k,1762)
9912 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1080) * lu(k,1762)
9913 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1081) * lu(k,1762)
9914 114070872 : lu(k,1811) = lu(k,1811) - lu(k,1059) * lu(k,1810)
9915 114070872 : lu(k,1812) = lu(k,1812) - lu(k,1060) * lu(k,1810)
9916 114070872 : lu(k,1813) = lu(k,1813) - lu(k,1061) * lu(k,1810)
9917 114070872 : lu(k,1814) = lu(k,1814) - lu(k,1062) * lu(k,1810)
9918 114070872 : lu(k,1815) = lu(k,1815) - lu(k,1063) * lu(k,1810)
9919 114070872 : lu(k,1816) = lu(k,1816) - lu(k,1064) * lu(k,1810)
9920 114070872 : lu(k,1817) = lu(k,1817) - lu(k,1065) * lu(k,1810)
9921 114070872 : lu(k,1818) = lu(k,1818) - lu(k,1066) * lu(k,1810)
9922 114070872 : lu(k,1819) = lu(k,1819) - lu(k,1067) * lu(k,1810)
9923 114070872 : lu(k,1820) = lu(k,1820) - lu(k,1068) * lu(k,1810)
9924 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1069) * lu(k,1810)
9925 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1070) * lu(k,1810)
9926 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1071) * lu(k,1810)
9927 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1072) * lu(k,1810)
9928 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1073) * lu(k,1810)
9929 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1074) * lu(k,1810)
9930 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1075) * lu(k,1810)
9931 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1076) * lu(k,1810)
9932 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1077) * lu(k,1810)
9933 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1078) * lu(k,1810)
9934 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1079) * lu(k,1810)
9935 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1080) * lu(k,1810)
9936 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1081) * lu(k,1810)
9937 114070872 : lu(k,1844) = lu(k,1844) - lu(k,1059) * lu(k,1843)
9938 114070872 : lu(k,1845) = lu(k,1845) - lu(k,1060) * lu(k,1843)
9939 114070872 : lu(k,1846) = lu(k,1846) - lu(k,1061) * lu(k,1843)
9940 114070872 : lu(k,1847) = lu(k,1847) - lu(k,1062) * lu(k,1843)
9941 114070872 : lu(k,1848) = lu(k,1848) - lu(k,1063) * lu(k,1843)
9942 114070872 : lu(k,1849) = lu(k,1849) - lu(k,1064) * lu(k,1843)
9943 114070872 : lu(k,1850) = lu(k,1850) - lu(k,1065) * lu(k,1843)
9944 114070872 : lu(k,1851) = lu(k,1851) - lu(k,1066) * lu(k,1843)
9945 114070872 : lu(k,1852) = lu(k,1852) - lu(k,1067) * lu(k,1843)
9946 114070872 : lu(k,1853) = lu(k,1853) - lu(k,1068) * lu(k,1843)
9947 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1069) * lu(k,1843)
9948 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1070) * lu(k,1843)
9949 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1071) * lu(k,1843)
9950 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1072) * lu(k,1843)
9951 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1073) * lu(k,1843)
9952 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1074) * lu(k,1843)
9953 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1075) * lu(k,1843)
9954 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1076) * lu(k,1843)
9955 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1077) * lu(k,1843)
9956 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1078) * lu(k,1843)
9957 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1079) * lu(k,1843)
9958 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1080) * lu(k,1843)
9959 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1081) * lu(k,1843)
9960 114070872 : lu(k,1880) = lu(k,1880) - lu(k,1059) * lu(k,1879)
9961 114070872 : lu(k,1881) = lu(k,1881) - lu(k,1060) * lu(k,1879)
9962 114070872 : lu(k,1882) = lu(k,1882) - lu(k,1061) * lu(k,1879)
9963 114070872 : lu(k,1883) = lu(k,1883) - lu(k,1062) * lu(k,1879)
9964 114070872 : lu(k,1884) = lu(k,1884) - lu(k,1063) * lu(k,1879)
9965 114070872 : lu(k,1885) = lu(k,1885) - lu(k,1064) * lu(k,1879)
9966 114070872 : lu(k,1886) = lu(k,1886) - lu(k,1065) * lu(k,1879)
9967 114070872 : lu(k,1887) = lu(k,1887) - lu(k,1066) * lu(k,1879)
9968 114070872 : lu(k,1888) = lu(k,1888) - lu(k,1067) * lu(k,1879)
9969 114070872 : lu(k,1889) = lu(k,1889) - lu(k,1068) * lu(k,1879)
9970 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1069) * lu(k,1879)
9971 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1070) * lu(k,1879)
9972 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1071) * lu(k,1879)
9973 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1072) * lu(k,1879)
9974 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1073) * lu(k,1879)
9975 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1074) * lu(k,1879)
9976 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1075) * lu(k,1879)
9977 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1076) * lu(k,1879)
9978 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1077) * lu(k,1879)
9979 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1078) * lu(k,1879)
9980 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1079) * lu(k,1879)
9981 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1080) * lu(k,1879)
9982 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1081) * lu(k,1879)
9983 114070872 : lu(k,1921) = lu(k,1921) - lu(k,1059) * lu(k,1920)
9984 114070872 : lu(k,1922) = lu(k,1922) - lu(k,1060) * lu(k,1920)
9985 114070872 : lu(k,1923) = lu(k,1923) - lu(k,1061) * lu(k,1920)
9986 114070872 : lu(k,1924) = lu(k,1924) - lu(k,1062) * lu(k,1920)
9987 114070872 : lu(k,1925) = lu(k,1925) - lu(k,1063) * lu(k,1920)
9988 114070872 : lu(k,1926) = lu(k,1926) - lu(k,1064) * lu(k,1920)
9989 114070872 : lu(k,1927) = lu(k,1927) - lu(k,1065) * lu(k,1920)
9990 114070872 : lu(k,1928) = lu(k,1928) - lu(k,1066) * lu(k,1920)
9991 114070872 : lu(k,1929) = lu(k,1929) - lu(k,1067) * lu(k,1920)
9992 114070872 : lu(k,1930) = lu(k,1930) - lu(k,1068) * lu(k,1920)
9993 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1069) * lu(k,1920)
9994 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1070) * lu(k,1920)
9995 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1071) * lu(k,1920)
9996 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1072) * lu(k,1920)
9997 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1073) * lu(k,1920)
9998 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1074) * lu(k,1920)
9999 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1075) * lu(k,1920)
10000 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1076) * lu(k,1920)
10001 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1077) * lu(k,1920)
10002 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1078) * lu(k,1920)
10003 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1079) * lu(k,1920)
10004 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1080) * lu(k,1920)
10005 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1081) * lu(k,1920)
10006 114070872 : lu(k,1963) = lu(k,1963) - lu(k,1059) * lu(k,1962)
10007 114070872 : lu(k,1964) = lu(k,1964) - lu(k,1060) * lu(k,1962)
10008 114070872 : lu(k,1965) = lu(k,1965) - lu(k,1061) * lu(k,1962)
10009 114070872 : lu(k,1966) = lu(k,1966) - lu(k,1062) * lu(k,1962)
10010 114070872 : lu(k,1967) = lu(k,1967) - lu(k,1063) * lu(k,1962)
10011 114070872 : lu(k,1968) = lu(k,1968) - lu(k,1064) * lu(k,1962)
10012 114070872 : lu(k,1969) = lu(k,1969) - lu(k,1065) * lu(k,1962)
10013 114070872 : lu(k,1970) = lu(k,1970) - lu(k,1066) * lu(k,1962)
10014 114070872 : lu(k,1971) = lu(k,1971) - lu(k,1067) * lu(k,1962)
10015 114070872 : lu(k,1972) = lu(k,1972) - lu(k,1068) * lu(k,1962)
10016 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1069) * lu(k,1962)
10017 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1070) * lu(k,1962)
10018 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1071) * lu(k,1962)
10019 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1072) * lu(k,1962)
10020 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1073) * lu(k,1962)
10021 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1074) * lu(k,1962)
10022 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1075) * lu(k,1962)
10023 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1076) * lu(k,1962)
10024 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1077) * lu(k,1962)
10025 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1078) * lu(k,1962)
10026 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1079) * lu(k,1962)
10027 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1080) * lu(k,1962)
10028 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1081) * lu(k,1962)
10029 114070872 : lu(k,2008) = lu(k,2008) - lu(k,1059) * lu(k,2007)
10030 114070872 : lu(k,2009) = lu(k,2009) - lu(k,1060) * lu(k,2007)
10031 114070872 : lu(k,2010) = lu(k,2010) - lu(k,1061) * lu(k,2007)
10032 114070872 : lu(k,2011) = lu(k,2011) - lu(k,1062) * lu(k,2007)
10033 114070872 : lu(k,2012) = lu(k,2012) - lu(k,1063) * lu(k,2007)
10034 114070872 : lu(k,2013) = lu(k,2013) - lu(k,1064) * lu(k,2007)
10035 114070872 : lu(k,2014) = lu(k,2014) - lu(k,1065) * lu(k,2007)
10036 114070872 : lu(k,2015) = lu(k,2015) - lu(k,1066) * lu(k,2007)
10037 114070872 : lu(k,2016) = lu(k,2016) - lu(k,1067) * lu(k,2007)
10038 114070872 : lu(k,2017) = lu(k,2017) - lu(k,1068) * lu(k,2007)
10039 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1069) * lu(k,2007)
10040 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1070) * lu(k,2007)
10041 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1071) * lu(k,2007)
10042 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1072) * lu(k,2007)
10043 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1073) * lu(k,2007)
10044 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1074) * lu(k,2007)
10045 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1075) * lu(k,2007)
10046 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1076) * lu(k,2007)
10047 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1077) * lu(k,2007)
10048 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1078) * lu(k,2007)
10049 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1079) * lu(k,2007)
10050 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1080) * lu(k,2007)
10051 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1081) * lu(k,2007)
10052 114070872 : lu(k,2068) = lu(k,2068) - lu(k,1059) * lu(k,2067)
10053 114070872 : lu(k,2069) = lu(k,2069) - lu(k,1060) * lu(k,2067)
10054 114070872 : lu(k,2070) = lu(k,2070) - lu(k,1061) * lu(k,2067)
10055 114070872 : lu(k,2071) = lu(k,2071) - lu(k,1062) * lu(k,2067)
10056 114070872 : lu(k,2072) = lu(k,2072) - lu(k,1063) * lu(k,2067)
10057 114070872 : lu(k,2073) = lu(k,2073) - lu(k,1064) * lu(k,2067)
10058 114070872 : lu(k,2074) = lu(k,2074) - lu(k,1065) * lu(k,2067)
10059 114070872 : lu(k,2075) = lu(k,2075) - lu(k,1066) * lu(k,2067)
10060 114070872 : lu(k,2076) = lu(k,2076) - lu(k,1067) * lu(k,2067)
10061 114070872 : lu(k,2077) = lu(k,2077) - lu(k,1068) * lu(k,2067)
10062 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1069) * lu(k,2067)
10063 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1070) * lu(k,2067)
10064 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1071) * lu(k,2067)
10065 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1072) * lu(k,2067)
10066 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1073) * lu(k,2067)
10067 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1074) * lu(k,2067)
10068 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1075) * lu(k,2067)
10069 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1076) * lu(k,2067)
10070 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1077) * lu(k,2067)
10071 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1078) * lu(k,2067)
10072 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1079) * lu(k,2067)
10073 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1080) * lu(k,2067)
10074 117656469 : lu(k,2090) = lu(k,2090) - lu(k,1081) * lu(k,2067)
10075 : end do
10076 3585597 : end subroutine lu_fac21
10077 3585597 : subroutine lu_fac22( avec_len, lu )
10078 : use chem_mods, only : nzcnt
10079 : use shr_kind_mod, only : r8 => shr_kind_r8
10080 : implicit none
10081 : !-----------------------------------------------------------------------
10082 : ! ... dummy args
10083 : !-----------------------------------------------------------------------
10084 : integer, intent(in) :: avec_len
10085 : real(r8), intent(inout) :: lu(veclen,nzcnt)
10086 : !-----------------------------------------------------------------------
10087 : ! ... local variables
10088 : !-----------------------------------------------------------------------
10089 : integer :: k
10090 117656469 : do k = 1,avec_len
10091 114070872 : lu(k,1104) = 1._r8 / lu(k,1104)
10092 114070872 : lu(k,1105) = lu(k,1105) * lu(k,1104)
10093 114070872 : lu(k,1106) = lu(k,1106) * lu(k,1104)
10094 114070872 : lu(k,1107) = lu(k,1107) * lu(k,1104)
10095 114070872 : lu(k,1108) = lu(k,1108) * lu(k,1104)
10096 114070872 : lu(k,1109) = lu(k,1109) * lu(k,1104)
10097 114070872 : lu(k,1110) = lu(k,1110) * lu(k,1104)
10098 114070872 : lu(k,1111) = lu(k,1111) * lu(k,1104)
10099 114070872 : lu(k,1112) = lu(k,1112) * lu(k,1104)
10100 114070872 : lu(k,1113) = lu(k,1113) * lu(k,1104)
10101 114070872 : lu(k,1114) = lu(k,1114) * lu(k,1104)
10102 114070872 : lu(k,1115) = lu(k,1115) * lu(k,1104)
10103 114070872 : lu(k,1116) = lu(k,1116) * lu(k,1104)
10104 114070872 : lu(k,1117) = lu(k,1117) * lu(k,1104)
10105 114070872 : lu(k,1118) = lu(k,1118) * lu(k,1104)
10106 114070872 : lu(k,1119) = lu(k,1119) * lu(k,1104)
10107 114070872 : lu(k,1120) = lu(k,1120) * lu(k,1104)
10108 114070872 : lu(k,1121) = lu(k,1121) * lu(k,1104)
10109 114070872 : lu(k,1122) = lu(k,1122) * lu(k,1104)
10110 114070872 : lu(k,1123) = lu(k,1123) * lu(k,1104)
10111 114070872 : lu(k,1124) = lu(k,1124) * lu(k,1104)
10112 114070872 : lu(k,1125) = lu(k,1125) * lu(k,1104)
10113 114070872 : lu(k,1126) = lu(k,1126) * lu(k,1104)
10114 114070872 : lu(k,1153) = lu(k,1153) - lu(k,1105) * lu(k,1152)
10115 114070872 : lu(k,1154) = lu(k,1154) - lu(k,1106) * lu(k,1152)
10116 114070872 : lu(k,1155) = lu(k,1155) - lu(k,1107) * lu(k,1152)
10117 114070872 : lu(k,1156) = lu(k,1156) - lu(k,1108) * lu(k,1152)
10118 114070872 : lu(k,1157) = lu(k,1157) - lu(k,1109) * lu(k,1152)
10119 114070872 : lu(k,1158) = lu(k,1158) - lu(k,1110) * lu(k,1152)
10120 114070872 : lu(k,1159) = lu(k,1159) - lu(k,1111) * lu(k,1152)
10121 114070872 : lu(k,1160) = lu(k,1160) - lu(k,1112) * lu(k,1152)
10122 114070872 : lu(k,1161) = lu(k,1161) - lu(k,1113) * lu(k,1152)
10123 114070872 : lu(k,1162) = lu(k,1162) - lu(k,1114) * lu(k,1152)
10124 114070872 : lu(k,1163) = lu(k,1163) - lu(k,1115) * lu(k,1152)
10125 114070872 : lu(k,1164) = lu(k,1164) - lu(k,1116) * lu(k,1152)
10126 114070872 : lu(k,1165) = lu(k,1165) - lu(k,1117) * lu(k,1152)
10127 114070872 : lu(k,1166) = lu(k,1166) - lu(k,1118) * lu(k,1152)
10128 114070872 : lu(k,1167) = lu(k,1167) - lu(k,1119) * lu(k,1152)
10129 114070872 : lu(k,1168) = lu(k,1168) - lu(k,1120) * lu(k,1152)
10130 114070872 : lu(k,1169) = lu(k,1169) - lu(k,1121) * lu(k,1152)
10131 114070872 : lu(k,1170) = lu(k,1170) - lu(k,1122) * lu(k,1152)
10132 114070872 : lu(k,1171) = lu(k,1171) - lu(k,1123) * lu(k,1152)
10133 114070872 : lu(k,1172) = lu(k,1172) - lu(k,1124) * lu(k,1152)
10134 114070872 : lu(k,1173) = lu(k,1173) - lu(k,1125) * lu(k,1152)
10135 114070872 : lu(k,1174) = lu(k,1174) - lu(k,1126) * lu(k,1152)
10136 114070872 : lu(k,1196) = lu(k,1196) - lu(k,1105) * lu(k,1195)
10137 114070872 : lu(k,1197) = lu(k,1197) - lu(k,1106) * lu(k,1195)
10138 114070872 : lu(k,1198) = lu(k,1198) - lu(k,1107) * lu(k,1195)
10139 114070872 : lu(k,1199) = lu(k,1199) - lu(k,1108) * lu(k,1195)
10140 114070872 : lu(k,1200) = lu(k,1200) - lu(k,1109) * lu(k,1195)
10141 114070872 : lu(k,1201) = lu(k,1201) - lu(k,1110) * lu(k,1195)
10142 114070872 : lu(k,1202) = lu(k,1202) - lu(k,1111) * lu(k,1195)
10143 114070872 : lu(k,1203) = lu(k,1203) - lu(k,1112) * lu(k,1195)
10144 114070872 : lu(k,1204) = lu(k,1204) - lu(k,1113) * lu(k,1195)
10145 114070872 : lu(k,1205) = lu(k,1205) - lu(k,1114) * lu(k,1195)
10146 114070872 : lu(k,1206) = lu(k,1206) - lu(k,1115) * lu(k,1195)
10147 114070872 : lu(k,1207) = lu(k,1207) - lu(k,1116) * lu(k,1195)
10148 114070872 : lu(k,1208) = lu(k,1208) - lu(k,1117) * lu(k,1195)
10149 114070872 : lu(k,1209) = lu(k,1209) - lu(k,1118) * lu(k,1195)
10150 114070872 : lu(k,1210) = lu(k,1210) - lu(k,1119) * lu(k,1195)
10151 114070872 : lu(k,1211) = lu(k,1211) - lu(k,1120) * lu(k,1195)
10152 114070872 : lu(k,1212) = lu(k,1212) - lu(k,1121) * lu(k,1195)
10153 114070872 : lu(k,1213) = lu(k,1213) - lu(k,1122) * lu(k,1195)
10154 114070872 : lu(k,1214) = lu(k,1214) - lu(k,1123) * lu(k,1195)
10155 114070872 : lu(k,1215) = lu(k,1215) - lu(k,1124) * lu(k,1195)
10156 114070872 : lu(k,1216) = lu(k,1216) - lu(k,1125) * lu(k,1195)
10157 114070872 : lu(k,1217) = lu(k,1217) - lu(k,1126) * lu(k,1195)
10158 114070872 : lu(k,1239) = lu(k,1239) - lu(k,1105) * lu(k,1238)
10159 114070872 : lu(k,1240) = lu(k,1240) - lu(k,1106) * lu(k,1238)
10160 114070872 : lu(k,1241) = lu(k,1241) - lu(k,1107) * lu(k,1238)
10161 114070872 : lu(k,1242) = lu(k,1242) - lu(k,1108) * lu(k,1238)
10162 114070872 : lu(k,1243) = lu(k,1243) - lu(k,1109) * lu(k,1238)
10163 114070872 : lu(k,1244) = lu(k,1244) - lu(k,1110) * lu(k,1238)
10164 114070872 : lu(k,1245) = lu(k,1245) - lu(k,1111) * lu(k,1238)
10165 114070872 : lu(k,1246) = lu(k,1246) - lu(k,1112) * lu(k,1238)
10166 114070872 : lu(k,1247) = lu(k,1247) - lu(k,1113) * lu(k,1238)
10167 114070872 : lu(k,1248) = lu(k,1248) - lu(k,1114) * lu(k,1238)
10168 114070872 : lu(k,1249) = lu(k,1249) - lu(k,1115) * lu(k,1238)
10169 114070872 : lu(k,1250) = lu(k,1250) - lu(k,1116) * lu(k,1238)
10170 114070872 : lu(k,1251) = lu(k,1251) - lu(k,1117) * lu(k,1238)
10171 114070872 : lu(k,1252) = lu(k,1252) - lu(k,1118) * lu(k,1238)
10172 114070872 : lu(k,1253) = lu(k,1253) - lu(k,1119) * lu(k,1238)
10173 114070872 : lu(k,1254) = lu(k,1254) - lu(k,1120) * lu(k,1238)
10174 114070872 : lu(k,1255) = lu(k,1255) - lu(k,1121) * lu(k,1238)
10175 114070872 : lu(k,1256) = lu(k,1256) - lu(k,1122) * lu(k,1238)
10176 114070872 : lu(k,1257) = lu(k,1257) - lu(k,1123) * lu(k,1238)
10177 114070872 : lu(k,1258) = lu(k,1258) - lu(k,1124) * lu(k,1238)
10178 114070872 : lu(k,1259) = lu(k,1259) - lu(k,1125) * lu(k,1238)
10179 114070872 : lu(k,1260) = lu(k,1260) - lu(k,1126) * lu(k,1238)
10180 114070872 : lu(k,1281) = lu(k,1281) - lu(k,1105) * lu(k,1280)
10181 114070872 : lu(k,1282) = lu(k,1282) - lu(k,1106) * lu(k,1280)
10182 114070872 : lu(k,1283) = lu(k,1283) - lu(k,1107) * lu(k,1280)
10183 114070872 : lu(k,1284) = lu(k,1284) - lu(k,1108) * lu(k,1280)
10184 114070872 : lu(k,1285) = lu(k,1285) - lu(k,1109) * lu(k,1280)
10185 114070872 : lu(k,1286) = lu(k,1286) - lu(k,1110) * lu(k,1280)
10186 114070872 : lu(k,1287) = lu(k,1287) - lu(k,1111) * lu(k,1280)
10187 114070872 : lu(k,1288) = lu(k,1288) - lu(k,1112) * lu(k,1280)
10188 114070872 : lu(k,1289) = lu(k,1289) - lu(k,1113) * lu(k,1280)
10189 114070872 : lu(k,1290) = lu(k,1290) - lu(k,1114) * lu(k,1280)
10190 114070872 : lu(k,1291) = lu(k,1291) - lu(k,1115) * lu(k,1280)
10191 114070872 : lu(k,1292) = lu(k,1292) - lu(k,1116) * lu(k,1280)
10192 114070872 : lu(k,1293) = lu(k,1293) - lu(k,1117) * lu(k,1280)
10193 114070872 : lu(k,1294) = lu(k,1294) - lu(k,1118) * lu(k,1280)
10194 114070872 : lu(k,1295) = lu(k,1295) - lu(k,1119) * lu(k,1280)
10195 114070872 : lu(k,1296) = lu(k,1296) - lu(k,1120) * lu(k,1280)
10196 114070872 : lu(k,1297) = lu(k,1297) - lu(k,1121) * lu(k,1280)
10197 114070872 : lu(k,1298) = lu(k,1298) - lu(k,1122) * lu(k,1280)
10198 114070872 : lu(k,1299) = lu(k,1299) - lu(k,1123) * lu(k,1280)
10199 114070872 : lu(k,1300) = lu(k,1300) - lu(k,1124) * lu(k,1280)
10200 114070872 : lu(k,1301) = lu(k,1301) - lu(k,1125) * lu(k,1280)
10201 114070872 : lu(k,1302) = lu(k,1302) - lu(k,1126) * lu(k,1280)
10202 114070872 : lu(k,1323) = lu(k,1323) - lu(k,1105) * lu(k,1322)
10203 114070872 : lu(k,1324) = lu(k,1324) - lu(k,1106) * lu(k,1322)
10204 114070872 : lu(k,1325) = lu(k,1325) - lu(k,1107) * lu(k,1322)
10205 114070872 : lu(k,1326) = lu(k,1326) - lu(k,1108) * lu(k,1322)
10206 114070872 : lu(k,1327) = lu(k,1327) - lu(k,1109) * lu(k,1322)
10207 114070872 : lu(k,1328) = lu(k,1328) - lu(k,1110) * lu(k,1322)
10208 114070872 : lu(k,1329) = lu(k,1329) - lu(k,1111) * lu(k,1322)
10209 114070872 : lu(k,1330) = lu(k,1330) - lu(k,1112) * lu(k,1322)
10210 114070872 : lu(k,1331) = lu(k,1331) - lu(k,1113) * lu(k,1322)
10211 114070872 : lu(k,1332) = lu(k,1332) - lu(k,1114) * lu(k,1322)
10212 114070872 : lu(k,1333) = lu(k,1333) - lu(k,1115) * lu(k,1322)
10213 114070872 : lu(k,1334) = lu(k,1334) - lu(k,1116) * lu(k,1322)
10214 114070872 : lu(k,1335) = lu(k,1335) - lu(k,1117) * lu(k,1322)
10215 114070872 : lu(k,1336) = lu(k,1336) - lu(k,1118) * lu(k,1322)
10216 114070872 : lu(k,1337) = lu(k,1337) - lu(k,1119) * lu(k,1322)
10217 114070872 : lu(k,1338) = lu(k,1338) - lu(k,1120) * lu(k,1322)
10218 114070872 : lu(k,1339) = lu(k,1339) - lu(k,1121) * lu(k,1322)
10219 114070872 : lu(k,1340) = lu(k,1340) - lu(k,1122) * lu(k,1322)
10220 114070872 : lu(k,1341) = lu(k,1341) - lu(k,1123) * lu(k,1322)
10221 114070872 : lu(k,1342) = lu(k,1342) - lu(k,1124) * lu(k,1322)
10222 114070872 : lu(k,1343) = lu(k,1343) - lu(k,1125) * lu(k,1322)
10223 114070872 : lu(k,1344) = lu(k,1344) - lu(k,1126) * lu(k,1322)
10224 114070872 : lu(k,1383) = lu(k,1383) - lu(k,1105) * lu(k,1382)
10225 114070872 : lu(k,1384) = lu(k,1384) - lu(k,1106) * lu(k,1382)
10226 114070872 : lu(k,1385) = lu(k,1385) - lu(k,1107) * lu(k,1382)
10227 114070872 : lu(k,1386) = lu(k,1386) - lu(k,1108) * lu(k,1382)
10228 114070872 : lu(k,1387) = lu(k,1387) - lu(k,1109) * lu(k,1382)
10229 114070872 : lu(k,1388) = lu(k,1388) - lu(k,1110) * lu(k,1382)
10230 114070872 : lu(k,1389) = lu(k,1389) - lu(k,1111) * lu(k,1382)
10231 114070872 : lu(k,1390) = lu(k,1390) - lu(k,1112) * lu(k,1382)
10232 114070872 : lu(k,1391) = lu(k,1391) - lu(k,1113) * lu(k,1382)
10233 114070872 : lu(k,1392) = lu(k,1392) - lu(k,1114) * lu(k,1382)
10234 114070872 : lu(k,1393) = lu(k,1393) - lu(k,1115) * lu(k,1382)
10235 114070872 : lu(k,1394) = lu(k,1394) - lu(k,1116) * lu(k,1382)
10236 114070872 : lu(k,1395) = lu(k,1395) - lu(k,1117) * lu(k,1382)
10237 114070872 : lu(k,1396) = lu(k,1396) - lu(k,1118) * lu(k,1382)
10238 114070872 : lu(k,1397) = lu(k,1397) - lu(k,1119) * lu(k,1382)
10239 114070872 : lu(k,1398) = lu(k,1398) - lu(k,1120) * lu(k,1382)
10240 114070872 : lu(k,1399) = lu(k,1399) - lu(k,1121) * lu(k,1382)
10241 114070872 : lu(k,1400) = lu(k,1400) - lu(k,1122) * lu(k,1382)
10242 114070872 : lu(k,1401) = lu(k,1401) - lu(k,1123) * lu(k,1382)
10243 114070872 : lu(k,1402) = lu(k,1402) - lu(k,1124) * lu(k,1382)
10244 114070872 : lu(k,1403) = lu(k,1403) - lu(k,1125) * lu(k,1382)
10245 114070872 : lu(k,1404) = lu(k,1404) - lu(k,1126) * lu(k,1382)
10246 114070872 : lu(k,1432) = lu(k,1432) - lu(k,1105) * lu(k,1431)
10247 114070872 : lu(k,1433) = lu(k,1433) - lu(k,1106) * lu(k,1431)
10248 114070872 : lu(k,1434) = lu(k,1434) - lu(k,1107) * lu(k,1431)
10249 114070872 : lu(k,1435) = lu(k,1435) - lu(k,1108) * lu(k,1431)
10250 114070872 : lu(k,1436) = lu(k,1436) - lu(k,1109) * lu(k,1431)
10251 114070872 : lu(k,1437) = lu(k,1437) - lu(k,1110) * lu(k,1431)
10252 114070872 : lu(k,1438) = lu(k,1438) - lu(k,1111) * lu(k,1431)
10253 114070872 : lu(k,1439) = lu(k,1439) - lu(k,1112) * lu(k,1431)
10254 114070872 : lu(k,1440) = lu(k,1440) - lu(k,1113) * lu(k,1431)
10255 114070872 : lu(k,1441) = lu(k,1441) - lu(k,1114) * lu(k,1431)
10256 114070872 : lu(k,1442) = lu(k,1442) - lu(k,1115) * lu(k,1431)
10257 114070872 : lu(k,1443) = lu(k,1443) - lu(k,1116) * lu(k,1431)
10258 114070872 : lu(k,1444) = lu(k,1444) - lu(k,1117) * lu(k,1431)
10259 114070872 : lu(k,1445) = lu(k,1445) - lu(k,1118) * lu(k,1431)
10260 114070872 : lu(k,1446) = lu(k,1446) - lu(k,1119) * lu(k,1431)
10261 114070872 : lu(k,1447) = lu(k,1447) - lu(k,1120) * lu(k,1431)
10262 114070872 : lu(k,1448) = lu(k,1448) - lu(k,1121) * lu(k,1431)
10263 114070872 : lu(k,1449) = lu(k,1449) - lu(k,1122) * lu(k,1431)
10264 114070872 : lu(k,1450) = lu(k,1450) - lu(k,1123) * lu(k,1431)
10265 114070872 : lu(k,1451) = lu(k,1451) - lu(k,1124) * lu(k,1431)
10266 114070872 : lu(k,1452) = lu(k,1452) - lu(k,1125) * lu(k,1431)
10267 114070872 : lu(k,1453) = lu(k,1453) - lu(k,1126) * lu(k,1431)
10268 114070872 : lu(k,1480) = lu(k,1480) - lu(k,1105) * lu(k,1479)
10269 114070872 : lu(k,1481) = lu(k,1481) - lu(k,1106) * lu(k,1479)
10270 114070872 : lu(k,1482) = lu(k,1482) - lu(k,1107) * lu(k,1479)
10271 114070872 : lu(k,1483) = lu(k,1483) - lu(k,1108) * lu(k,1479)
10272 114070872 : lu(k,1484) = lu(k,1484) - lu(k,1109) * lu(k,1479)
10273 114070872 : lu(k,1485) = lu(k,1485) - lu(k,1110) * lu(k,1479)
10274 114070872 : lu(k,1486) = lu(k,1486) - lu(k,1111) * lu(k,1479)
10275 114070872 : lu(k,1487) = lu(k,1487) - lu(k,1112) * lu(k,1479)
10276 114070872 : lu(k,1488) = lu(k,1488) - lu(k,1113) * lu(k,1479)
10277 114070872 : lu(k,1489) = lu(k,1489) - lu(k,1114) * lu(k,1479)
10278 114070872 : lu(k,1490) = lu(k,1490) - lu(k,1115) * lu(k,1479)
10279 114070872 : lu(k,1491) = lu(k,1491) - lu(k,1116) * lu(k,1479)
10280 114070872 : lu(k,1492) = lu(k,1492) - lu(k,1117) * lu(k,1479)
10281 114070872 : lu(k,1493) = lu(k,1493) - lu(k,1118) * lu(k,1479)
10282 114070872 : lu(k,1494) = lu(k,1494) - lu(k,1119) * lu(k,1479)
10283 114070872 : lu(k,1495) = lu(k,1495) - lu(k,1120) * lu(k,1479)
10284 114070872 : lu(k,1496) = lu(k,1496) - lu(k,1121) * lu(k,1479)
10285 114070872 : lu(k,1497) = lu(k,1497) - lu(k,1122) * lu(k,1479)
10286 114070872 : lu(k,1498) = lu(k,1498) - lu(k,1123) * lu(k,1479)
10287 114070872 : lu(k,1499) = lu(k,1499) - lu(k,1124) * lu(k,1479)
10288 114070872 : lu(k,1500) = lu(k,1500) - lu(k,1125) * lu(k,1479)
10289 114070872 : lu(k,1501) = lu(k,1501) - lu(k,1126) * lu(k,1479)
10290 114070872 : lu(k,1521) = lu(k,1521) - lu(k,1105) * lu(k,1520)
10291 114070872 : lu(k,1522) = lu(k,1522) - lu(k,1106) * lu(k,1520)
10292 114070872 : lu(k,1523) = lu(k,1523) - lu(k,1107) * lu(k,1520)
10293 114070872 : lu(k,1524) = lu(k,1524) - lu(k,1108) * lu(k,1520)
10294 114070872 : lu(k,1525) = lu(k,1525) - lu(k,1109) * lu(k,1520)
10295 114070872 : lu(k,1526) = lu(k,1526) - lu(k,1110) * lu(k,1520)
10296 114070872 : lu(k,1527) = lu(k,1527) - lu(k,1111) * lu(k,1520)
10297 114070872 : lu(k,1528) = lu(k,1528) - lu(k,1112) * lu(k,1520)
10298 114070872 : lu(k,1529) = lu(k,1529) - lu(k,1113) * lu(k,1520)
10299 114070872 : lu(k,1530) = lu(k,1530) - lu(k,1114) * lu(k,1520)
10300 114070872 : lu(k,1531) = lu(k,1531) - lu(k,1115) * lu(k,1520)
10301 114070872 : lu(k,1532) = lu(k,1532) - lu(k,1116) * lu(k,1520)
10302 114070872 : lu(k,1533) = lu(k,1533) - lu(k,1117) * lu(k,1520)
10303 114070872 : lu(k,1534) = lu(k,1534) - lu(k,1118) * lu(k,1520)
10304 114070872 : lu(k,1535) = lu(k,1535) - lu(k,1119) * lu(k,1520)
10305 114070872 : lu(k,1536) = lu(k,1536) - lu(k,1120) * lu(k,1520)
10306 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1121) * lu(k,1520)
10307 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1122) * lu(k,1520)
10308 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1123) * lu(k,1520)
10309 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1124) * lu(k,1520)
10310 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1125) * lu(k,1520)
10311 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1126) * lu(k,1520)
10312 114070872 : lu(k,1557) = lu(k,1557) - lu(k,1105) * lu(k,1556)
10313 114070872 : lu(k,1558) = lu(k,1558) - lu(k,1106) * lu(k,1556)
10314 114070872 : lu(k,1559) = lu(k,1559) - lu(k,1107) * lu(k,1556)
10315 114070872 : lu(k,1560) = lu(k,1560) - lu(k,1108) * lu(k,1556)
10316 114070872 : lu(k,1561) = lu(k,1561) - lu(k,1109) * lu(k,1556)
10317 114070872 : lu(k,1562) = lu(k,1562) - lu(k,1110) * lu(k,1556)
10318 114070872 : lu(k,1563) = lu(k,1563) - lu(k,1111) * lu(k,1556)
10319 114070872 : lu(k,1564) = lu(k,1564) - lu(k,1112) * lu(k,1556)
10320 114070872 : lu(k,1565) = lu(k,1565) - lu(k,1113) * lu(k,1556)
10321 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1114) * lu(k,1556)
10322 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1115) * lu(k,1556)
10323 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1116) * lu(k,1556)
10324 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1117) * lu(k,1556)
10325 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1118) * lu(k,1556)
10326 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1119) * lu(k,1556)
10327 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1120) * lu(k,1556)
10328 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1121) * lu(k,1556)
10329 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1122) * lu(k,1556)
10330 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1123) * lu(k,1556)
10331 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1124) * lu(k,1556)
10332 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1125) * lu(k,1556)
10333 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1126) * lu(k,1556)
10334 114070872 : lu(k,1602) = lu(k,1602) - lu(k,1105) * lu(k,1601)
10335 114070872 : lu(k,1603) = lu(k,1603) - lu(k,1106) * lu(k,1601)
10336 114070872 : lu(k,1604) = lu(k,1604) - lu(k,1107) * lu(k,1601)
10337 114070872 : lu(k,1605) = lu(k,1605) - lu(k,1108) * lu(k,1601)
10338 114070872 : lu(k,1606) = lu(k,1606) - lu(k,1109) * lu(k,1601)
10339 114070872 : lu(k,1607) = lu(k,1607) - lu(k,1110) * lu(k,1601)
10340 114070872 : lu(k,1608) = lu(k,1608) - lu(k,1111) * lu(k,1601)
10341 114070872 : lu(k,1609) = lu(k,1609) - lu(k,1112) * lu(k,1601)
10342 114070872 : lu(k,1610) = lu(k,1610) - lu(k,1113) * lu(k,1601)
10343 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1114) * lu(k,1601)
10344 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1115) * lu(k,1601)
10345 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1116) * lu(k,1601)
10346 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1117) * lu(k,1601)
10347 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1118) * lu(k,1601)
10348 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1119) * lu(k,1601)
10349 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1120) * lu(k,1601)
10350 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1121) * lu(k,1601)
10351 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1122) * lu(k,1601)
10352 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1123) * lu(k,1601)
10353 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1124) * lu(k,1601)
10354 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1125) * lu(k,1601)
10355 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1126) * lu(k,1601)
10356 114070872 : lu(k,1645) = lu(k,1645) - lu(k,1105) * lu(k,1644)
10357 114070872 : lu(k,1646) = lu(k,1646) - lu(k,1106) * lu(k,1644)
10358 114070872 : lu(k,1647) = lu(k,1647) - lu(k,1107) * lu(k,1644)
10359 114070872 : lu(k,1648) = lu(k,1648) - lu(k,1108) * lu(k,1644)
10360 114070872 : lu(k,1649) = lu(k,1649) - lu(k,1109) * lu(k,1644)
10361 114070872 : lu(k,1650) = lu(k,1650) - lu(k,1110) * lu(k,1644)
10362 114070872 : lu(k,1651) = lu(k,1651) - lu(k,1111) * lu(k,1644)
10363 114070872 : lu(k,1652) = lu(k,1652) - lu(k,1112) * lu(k,1644)
10364 114070872 : lu(k,1653) = lu(k,1653) - lu(k,1113) * lu(k,1644)
10365 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1114) * lu(k,1644)
10366 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1115) * lu(k,1644)
10367 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1116) * lu(k,1644)
10368 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1117) * lu(k,1644)
10369 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1118) * lu(k,1644)
10370 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1119) * lu(k,1644)
10371 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1120) * lu(k,1644)
10372 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1121) * lu(k,1644)
10373 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1122) * lu(k,1644)
10374 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1123) * lu(k,1644)
10375 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1124) * lu(k,1644)
10376 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1125) * lu(k,1644)
10377 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1126) * lu(k,1644)
10378 114070872 : lu(k,1688) = lu(k,1688) - lu(k,1105) * lu(k,1687)
10379 114070872 : lu(k,1689) = lu(k,1689) - lu(k,1106) * lu(k,1687)
10380 114070872 : lu(k,1690) = lu(k,1690) - lu(k,1107) * lu(k,1687)
10381 114070872 : lu(k,1691) = lu(k,1691) - lu(k,1108) * lu(k,1687)
10382 114070872 : lu(k,1692) = lu(k,1692) - lu(k,1109) * lu(k,1687)
10383 114070872 : lu(k,1693) = lu(k,1693) - lu(k,1110) * lu(k,1687)
10384 114070872 : lu(k,1694) = lu(k,1694) - lu(k,1111) * lu(k,1687)
10385 114070872 : lu(k,1695) = lu(k,1695) - lu(k,1112) * lu(k,1687)
10386 114070872 : lu(k,1696) = lu(k,1696) - lu(k,1113) * lu(k,1687)
10387 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1114) * lu(k,1687)
10388 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1115) * lu(k,1687)
10389 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1116) * lu(k,1687)
10390 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1117) * lu(k,1687)
10391 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1118) * lu(k,1687)
10392 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1119) * lu(k,1687)
10393 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1120) * lu(k,1687)
10394 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1121) * lu(k,1687)
10395 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1122) * lu(k,1687)
10396 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1123) * lu(k,1687)
10397 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1124) * lu(k,1687)
10398 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1125) * lu(k,1687)
10399 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1126) * lu(k,1687)
10400 114070872 : lu(k,1728) = lu(k,1728) - lu(k,1105) * lu(k,1727)
10401 114070872 : lu(k,1729) = lu(k,1729) - lu(k,1106) * lu(k,1727)
10402 114070872 : lu(k,1730) = lu(k,1730) - lu(k,1107) * lu(k,1727)
10403 114070872 : lu(k,1731) = lu(k,1731) - lu(k,1108) * lu(k,1727)
10404 114070872 : lu(k,1732) = lu(k,1732) - lu(k,1109) * lu(k,1727)
10405 114070872 : lu(k,1733) = lu(k,1733) - lu(k,1110) * lu(k,1727)
10406 114070872 : lu(k,1734) = lu(k,1734) - lu(k,1111) * lu(k,1727)
10407 114070872 : lu(k,1735) = lu(k,1735) - lu(k,1112) * lu(k,1727)
10408 114070872 : lu(k,1736) = lu(k,1736) - lu(k,1113) * lu(k,1727)
10409 114070872 : lu(k,1737) = lu(k,1737) - lu(k,1114) * lu(k,1727)
10410 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1115) * lu(k,1727)
10411 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1116) * lu(k,1727)
10412 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1117) * lu(k,1727)
10413 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1118) * lu(k,1727)
10414 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1119) * lu(k,1727)
10415 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1120) * lu(k,1727)
10416 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1121) * lu(k,1727)
10417 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1122) * lu(k,1727)
10418 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1123) * lu(k,1727)
10419 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1124) * lu(k,1727)
10420 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1125) * lu(k,1727)
10421 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1126) * lu(k,1727)
10422 114070872 : lu(k,1764) = lu(k,1764) - lu(k,1105) * lu(k,1763)
10423 114070872 : lu(k,1765) = lu(k,1765) - lu(k,1106) * lu(k,1763)
10424 114070872 : lu(k,1766) = lu(k,1766) - lu(k,1107) * lu(k,1763)
10425 114070872 : lu(k,1767) = lu(k,1767) - lu(k,1108) * lu(k,1763)
10426 114070872 : lu(k,1768) = lu(k,1768) - lu(k,1109) * lu(k,1763)
10427 114070872 : lu(k,1769) = lu(k,1769) - lu(k,1110) * lu(k,1763)
10428 114070872 : lu(k,1770) = lu(k,1770) - lu(k,1111) * lu(k,1763)
10429 114070872 : lu(k,1771) = lu(k,1771) - lu(k,1112) * lu(k,1763)
10430 114070872 : lu(k,1772) = lu(k,1772) - lu(k,1113) * lu(k,1763)
10431 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1114) * lu(k,1763)
10432 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1115) * lu(k,1763)
10433 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1116) * lu(k,1763)
10434 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1117) * lu(k,1763)
10435 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1118) * lu(k,1763)
10436 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1119) * lu(k,1763)
10437 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1120) * lu(k,1763)
10438 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1121) * lu(k,1763)
10439 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1122) * lu(k,1763)
10440 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1123) * lu(k,1763)
10441 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1124) * lu(k,1763)
10442 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1125) * lu(k,1763)
10443 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1126) * lu(k,1763)
10444 114070872 : lu(k,1812) = lu(k,1812) - lu(k,1105) * lu(k,1811)
10445 114070872 : lu(k,1813) = lu(k,1813) - lu(k,1106) * lu(k,1811)
10446 114070872 : lu(k,1814) = lu(k,1814) - lu(k,1107) * lu(k,1811)
10447 114070872 : lu(k,1815) = lu(k,1815) - lu(k,1108) * lu(k,1811)
10448 114070872 : lu(k,1816) = lu(k,1816) - lu(k,1109) * lu(k,1811)
10449 114070872 : lu(k,1817) = lu(k,1817) - lu(k,1110) * lu(k,1811)
10450 114070872 : lu(k,1818) = lu(k,1818) - lu(k,1111) * lu(k,1811)
10451 114070872 : lu(k,1819) = lu(k,1819) - lu(k,1112) * lu(k,1811)
10452 114070872 : lu(k,1820) = lu(k,1820) - lu(k,1113) * lu(k,1811)
10453 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1114) * lu(k,1811)
10454 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1115) * lu(k,1811)
10455 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1116) * lu(k,1811)
10456 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1117) * lu(k,1811)
10457 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1118) * lu(k,1811)
10458 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1119) * lu(k,1811)
10459 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1120) * lu(k,1811)
10460 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1121) * lu(k,1811)
10461 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1122) * lu(k,1811)
10462 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1123) * lu(k,1811)
10463 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1124) * lu(k,1811)
10464 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1125) * lu(k,1811)
10465 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1126) * lu(k,1811)
10466 114070872 : lu(k,1845) = lu(k,1845) - lu(k,1105) * lu(k,1844)
10467 114070872 : lu(k,1846) = lu(k,1846) - lu(k,1106) * lu(k,1844)
10468 114070872 : lu(k,1847) = lu(k,1847) - lu(k,1107) * lu(k,1844)
10469 114070872 : lu(k,1848) = lu(k,1848) - lu(k,1108) * lu(k,1844)
10470 114070872 : lu(k,1849) = lu(k,1849) - lu(k,1109) * lu(k,1844)
10471 114070872 : lu(k,1850) = lu(k,1850) - lu(k,1110) * lu(k,1844)
10472 114070872 : lu(k,1851) = lu(k,1851) - lu(k,1111) * lu(k,1844)
10473 114070872 : lu(k,1852) = lu(k,1852) - lu(k,1112) * lu(k,1844)
10474 114070872 : lu(k,1853) = lu(k,1853) - lu(k,1113) * lu(k,1844)
10475 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1114) * lu(k,1844)
10476 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1115) * lu(k,1844)
10477 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1116) * lu(k,1844)
10478 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1117) * lu(k,1844)
10479 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1118) * lu(k,1844)
10480 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1119) * lu(k,1844)
10481 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1120) * lu(k,1844)
10482 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1121) * lu(k,1844)
10483 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1122) * lu(k,1844)
10484 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1123) * lu(k,1844)
10485 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1124) * lu(k,1844)
10486 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1125) * lu(k,1844)
10487 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1126) * lu(k,1844)
10488 114070872 : lu(k,1881) = lu(k,1881) - lu(k,1105) * lu(k,1880)
10489 114070872 : lu(k,1882) = lu(k,1882) - lu(k,1106) * lu(k,1880)
10490 114070872 : lu(k,1883) = lu(k,1883) - lu(k,1107) * lu(k,1880)
10491 114070872 : lu(k,1884) = lu(k,1884) - lu(k,1108) * lu(k,1880)
10492 114070872 : lu(k,1885) = lu(k,1885) - lu(k,1109) * lu(k,1880)
10493 114070872 : lu(k,1886) = lu(k,1886) - lu(k,1110) * lu(k,1880)
10494 114070872 : lu(k,1887) = lu(k,1887) - lu(k,1111) * lu(k,1880)
10495 114070872 : lu(k,1888) = lu(k,1888) - lu(k,1112) * lu(k,1880)
10496 114070872 : lu(k,1889) = lu(k,1889) - lu(k,1113) * lu(k,1880)
10497 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1114) * lu(k,1880)
10498 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1115) * lu(k,1880)
10499 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1116) * lu(k,1880)
10500 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1117) * lu(k,1880)
10501 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1118) * lu(k,1880)
10502 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1119) * lu(k,1880)
10503 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1120) * lu(k,1880)
10504 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1121) * lu(k,1880)
10505 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1122) * lu(k,1880)
10506 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1123) * lu(k,1880)
10507 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1124) * lu(k,1880)
10508 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1125) * lu(k,1880)
10509 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1126) * lu(k,1880)
10510 114070872 : lu(k,1922) = lu(k,1922) - lu(k,1105) * lu(k,1921)
10511 114070872 : lu(k,1923) = lu(k,1923) - lu(k,1106) * lu(k,1921)
10512 114070872 : lu(k,1924) = lu(k,1924) - lu(k,1107) * lu(k,1921)
10513 114070872 : lu(k,1925) = lu(k,1925) - lu(k,1108) * lu(k,1921)
10514 114070872 : lu(k,1926) = lu(k,1926) - lu(k,1109) * lu(k,1921)
10515 114070872 : lu(k,1927) = lu(k,1927) - lu(k,1110) * lu(k,1921)
10516 114070872 : lu(k,1928) = lu(k,1928) - lu(k,1111) * lu(k,1921)
10517 114070872 : lu(k,1929) = lu(k,1929) - lu(k,1112) * lu(k,1921)
10518 114070872 : lu(k,1930) = lu(k,1930) - lu(k,1113) * lu(k,1921)
10519 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1114) * lu(k,1921)
10520 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1115) * lu(k,1921)
10521 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1116) * lu(k,1921)
10522 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1117) * lu(k,1921)
10523 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1118) * lu(k,1921)
10524 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1119) * lu(k,1921)
10525 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1120) * lu(k,1921)
10526 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1121) * lu(k,1921)
10527 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1122) * lu(k,1921)
10528 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1123) * lu(k,1921)
10529 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1124) * lu(k,1921)
10530 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1125) * lu(k,1921)
10531 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1126) * lu(k,1921)
10532 114070872 : lu(k,1964) = lu(k,1964) - lu(k,1105) * lu(k,1963)
10533 114070872 : lu(k,1965) = lu(k,1965) - lu(k,1106) * lu(k,1963)
10534 114070872 : lu(k,1966) = lu(k,1966) - lu(k,1107) * lu(k,1963)
10535 114070872 : lu(k,1967) = lu(k,1967) - lu(k,1108) * lu(k,1963)
10536 114070872 : lu(k,1968) = lu(k,1968) - lu(k,1109) * lu(k,1963)
10537 114070872 : lu(k,1969) = lu(k,1969) - lu(k,1110) * lu(k,1963)
10538 114070872 : lu(k,1970) = lu(k,1970) - lu(k,1111) * lu(k,1963)
10539 114070872 : lu(k,1971) = lu(k,1971) - lu(k,1112) * lu(k,1963)
10540 114070872 : lu(k,1972) = lu(k,1972) - lu(k,1113) * lu(k,1963)
10541 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1114) * lu(k,1963)
10542 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1115) * lu(k,1963)
10543 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1116) * lu(k,1963)
10544 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1117) * lu(k,1963)
10545 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1118) * lu(k,1963)
10546 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1119) * lu(k,1963)
10547 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1120) * lu(k,1963)
10548 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1121) * lu(k,1963)
10549 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1122) * lu(k,1963)
10550 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1123) * lu(k,1963)
10551 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1124) * lu(k,1963)
10552 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1125) * lu(k,1963)
10553 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1126) * lu(k,1963)
10554 114070872 : lu(k,2009) = lu(k,2009) - lu(k,1105) * lu(k,2008)
10555 114070872 : lu(k,2010) = lu(k,2010) - lu(k,1106) * lu(k,2008)
10556 114070872 : lu(k,2011) = lu(k,2011) - lu(k,1107) * lu(k,2008)
10557 114070872 : lu(k,2012) = lu(k,2012) - lu(k,1108) * lu(k,2008)
10558 114070872 : lu(k,2013) = lu(k,2013) - lu(k,1109) * lu(k,2008)
10559 114070872 : lu(k,2014) = lu(k,2014) - lu(k,1110) * lu(k,2008)
10560 114070872 : lu(k,2015) = lu(k,2015) - lu(k,1111) * lu(k,2008)
10561 114070872 : lu(k,2016) = lu(k,2016) - lu(k,1112) * lu(k,2008)
10562 114070872 : lu(k,2017) = lu(k,2017) - lu(k,1113) * lu(k,2008)
10563 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1114) * lu(k,2008)
10564 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1115) * lu(k,2008)
10565 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1116) * lu(k,2008)
10566 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1117) * lu(k,2008)
10567 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1118) * lu(k,2008)
10568 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1119) * lu(k,2008)
10569 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1120) * lu(k,2008)
10570 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1121) * lu(k,2008)
10571 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1122) * lu(k,2008)
10572 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1123) * lu(k,2008)
10573 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1124) * lu(k,2008)
10574 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1125) * lu(k,2008)
10575 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1126) * lu(k,2008)
10576 114070872 : lu(k,2069) = lu(k,2069) - lu(k,1105) * lu(k,2068)
10577 114070872 : lu(k,2070) = lu(k,2070) - lu(k,1106) * lu(k,2068)
10578 114070872 : lu(k,2071) = lu(k,2071) - lu(k,1107) * lu(k,2068)
10579 114070872 : lu(k,2072) = lu(k,2072) - lu(k,1108) * lu(k,2068)
10580 114070872 : lu(k,2073) = lu(k,2073) - lu(k,1109) * lu(k,2068)
10581 114070872 : lu(k,2074) = lu(k,2074) - lu(k,1110) * lu(k,2068)
10582 114070872 : lu(k,2075) = lu(k,2075) - lu(k,1111) * lu(k,2068)
10583 114070872 : lu(k,2076) = lu(k,2076) - lu(k,1112) * lu(k,2068)
10584 114070872 : lu(k,2077) = lu(k,2077) - lu(k,1113) * lu(k,2068)
10585 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1114) * lu(k,2068)
10586 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1115) * lu(k,2068)
10587 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1116) * lu(k,2068)
10588 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1117) * lu(k,2068)
10589 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1118) * lu(k,2068)
10590 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1119) * lu(k,2068)
10591 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1120) * lu(k,2068)
10592 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1121) * lu(k,2068)
10593 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1122) * lu(k,2068)
10594 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1123) * lu(k,2068)
10595 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1124) * lu(k,2068)
10596 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1125) * lu(k,2068)
10597 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1126) * lu(k,2068)
10598 114070872 : lu(k,1153) = 1._r8 / lu(k,1153)
10599 114070872 : lu(k,1154) = lu(k,1154) * lu(k,1153)
10600 114070872 : lu(k,1155) = lu(k,1155) * lu(k,1153)
10601 114070872 : lu(k,1156) = lu(k,1156) * lu(k,1153)
10602 114070872 : lu(k,1157) = lu(k,1157) * lu(k,1153)
10603 114070872 : lu(k,1158) = lu(k,1158) * lu(k,1153)
10604 114070872 : lu(k,1159) = lu(k,1159) * lu(k,1153)
10605 114070872 : lu(k,1160) = lu(k,1160) * lu(k,1153)
10606 114070872 : lu(k,1161) = lu(k,1161) * lu(k,1153)
10607 114070872 : lu(k,1162) = lu(k,1162) * lu(k,1153)
10608 114070872 : lu(k,1163) = lu(k,1163) * lu(k,1153)
10609 114070872 : lu(k,1164) = lu(k,1164) * lu(k,1153)
10610 114070872 : lu(k,1165) = lu(k,1165) * lu(k,1153)
10611 114070872 : lu(k,1166) = lu(k,1166) * lu(k,1153)
10612 114070872 : lu(k,1167) = lu(k,1167) * lu(k,1153)
10613 114070872 : lu(k,1168) = lu(k,1168) * lu(k,1153)
10614 114070872 : lu(k,1169) = lu(k,1169) * lu(k,1153)
10615 114070872 : lu(k,1170) = lu(k,1170) * lu(k,1153)
10616 114070872 : lu(k,1171) = lu(k,1171) * lu(k,1153)
10617 114070872 : lu(k,1172) = lu(k,1172) * lu(k,1153)
10618 114070872 : lu(k,1173) = lu(k,1173) * lu(k,1153)
10619 114070872 : lu(k,1174) = lu(k,1174) * lu(k,1153)
10620 114070872 : lu(k,1197) = lu(k,1197) - lu(k,1154) * lu(k,1196)
10621 114070872 : lu(k,1198) = lu(k,1198) - lu(k,1155) * lu(k,1196)
10622 114070872 : lu(k,1199) = lu(k,1199) - lu(k,1156) * lu(k,1196)
10623 114070872 : lu(k,1200) = lu(k,1200) - lu(k,1157) * lu(k,1196)
10624 114070872 : lu(k,1201) = lu(k,1201) - lu(k,1158) * lu(k,1196)
10625 114070872 : lu(k,1202) = lu(k,1202) - lu(k,1159) * lu(k,1196)
10626 114070872 : lu(k,1203) = lu(k,1203) - lu(k,1160) * lu(k,1196)
10627 114070872 : lu(k,1204) = lu(k,1204) - lu(k,1161) * lu(k,1196)
10628 114070872 : lu(k,1205) = lu(k,1205) - lu(k,1162) * lu(k,1196)
10629 114070872 : lu(k,1206) = lu(k,1206) - lu(k,1163) * lu(k,1196)
10630 114070872 : lu(k,1207) = lu(k,1207) - lu(k,1164) * lu(k,1196)
10631 114070872 : lu(k,1208) = lu(k,1208) - lu(k,1165) * lu(k,1196)
10632 114070872 : lu(k,1209) = lu(k,1209) - lu(k,1166) * lu(k,1196)
10633 114070872 : lu(k,1210) = lu(k,1210) - lu(k,1167) * lu(k,1196)
10634 114070872 : lu(k,1211) = lu(k,1211) - lu(k,1168) * lu(k,1196)
10635 114070872 : lu(k,1212) = lu(k,1212) - lu(k,1169) * lu(k,1196)
10636 114070872 : lu(k,1213) = lu(k,1213) - lu(k,1170) * lu(k,1196)
10637 114070872 : lu(k,1214) = lu(k,1214) - lu(k,1171) * lu(k,1196)
10638 114070872 : lu(k,1215) = lu(k,1215) - lu(k,1172) * lu(k,1196)
10639 114070872 : lu(k,1216) = lu(k,1216) - lu(k,1173) * lu(k,1196)
10640 114070872 : lu(k,1217) = lu(k,1217) - lu(k,1174) * lu(k,1196)
10641 114070872 : lu(k,1240) = lu(k,1240) - lu(k,1154) * lu(k,1239)
10642 114070872 : lu(k,1241) = lu(k,1241) - lu(k,1155) * lu(k,1239)
10643 114070872 : lu(k,1242) = lu(k,1242) - lu(k,1156) * lu(k,1239)
10644 114070872 : lu(k,1243) = lu(k,1243) - lu(k,1157) * lu(k,1239)
10645 114070872 : lu(k,1244) = lu(k,1244) - lu(k,1158) * lu(k,1239)
10646 114070872 : lu(k,1245) = lu(k,1245) - lu(k,1159) * lu(k,1239)
10647 114070872 : lu(k,1246) = lu(k,1246) - lu(k,1160) * lu(k,1239)
10648 114070872 : lu(k,1247) = lu(k,1247) - lu(k,1161) * lu(k,1239)
10649 114070872 : lu(k,1248) = lu(k,1248) - lu(k,1162) * lu(k,1239)
10650 114070872 : lu(k,1249) = lu(k,1249) - lu(k,1163) * lu(k,1239)
10651 114070872 : lu(k,1250) = lu(k,1250) - lu(k,1164) * lu(k,1239)
10652 114070872 : lu(k,1251) = lu(k,1251) - lu(k,1165) * lu(k,1239)
10653 114070872 : lu(k,1252) = lu(k,1252) - lu(k,1166) * lu(k,1239)
10654 114070872 : lu(k,1253) = lu(k,1253) - lu(k,1167) * lu(k,1239)
10655 114070872 : lu(k,1254) = lu(k,1254) - lu(k,1168) * lu(k,1239)
10656 114070872 : lu(k,1255) = lu(k,1255) - lu(k,1169) * lu(k,1239)
10657 114070872 : lu(k,1256) = lu(k,1256) - lu(k,1170) * lu(k,1239)
10658 114070872 : lu(k,1257) = lu(k,1257) - lu(k,1171) * lu(k,1239)
10659 114070872 : lu(k,1258) = lu(k,1258) - lu(k,1172) * lu(k,1239)
10660 114070872 : lu(k,1259) = lu(k,1259) - lu(k,1173) * lu(k,1239)
10661 114070872 : lu(k,1260) = lu(k,1260) - lu(k,1174) * lu(k,1239)
10662 114070872 : lu(k,1282) = lu(k,1282) - lu(k,1154) * lu(k,1281)
10663 114070872 : lu(k,1283) = lu(k,1283) - lu(k,1155) * lu(k,1281)
10664 114070872 : lu(k,1284) = lu(k,1284) - lu(k,1156) * lu(k,1281)
10665 114070872 : lu(k,1285) = lu(k,1285) - lu(k,1157) * lu(k,1281)
10666 114070872 : lu(k,1286) = lu(k,1286) - lu(k,1158) * lu(k,1281)
10667 114070872 : lu(k,1287) = lu(k,1287) - lu(k,1159) * lu(k,1281)
10668 114070872 : lu(k,1288) = lu(k,1288) - lu(k,1160) * lu(k,1281)
10669 114070872 : lu(k,1289) = lu(k,1289) - lu(k,1161) * lu(k,1281)
10670 114070872 : lu(k,1290) = lu(k,1290) - lu(k,1162) * lu(k,1281)
10671 114070872 : lu(k,1291) = lu(k,1291) - lu(k,1163) * lu(k,1281)
10672 114070872 : lu(k,1292) = lu(k,1292) - lu(k,1164) * lu(k,1281)
10673 114070872 : lu(k,1293) = lu(k,1293) - lu(k,1165) * lu(k,1281)
10674 114070872 : lu(k,1294) = lu(k,1294) - lu(k,1166) * lu(k,1281)
10675 114070872 : lu(k,1295) = lu(k,1295) - lu(k,1167) * lu(k,1281)
10676 114070872 : lu(k,1296) = lu(k,1296) - lu(k,1168) * lu(k,1281)
10677 114070872 : lu(k,1297) = lu(k,1297) - lu(k,1169) * lu(k,1281)
10678 114070872 : lu(k,1298) = lu(k,1298) - lu(k,1170) * lu(k,1281)
10679 114070872 : lu(k,1299) = lu(k,1299) - lu(k,1171) * lu(k,1281)
10680 114070872 : lu(k,1300) = lu(k,1300) - lu(k,1172) * lu(k,1281)
10681 114070872 : lu(k,1301) = lu(k,1301) - lu(k,1173) * lu(k,1281)
10682 114070872 : lu(k,1302) = lu(k,1302) - lu(k,1174) * lu(k,1281)
10683 114070872 : lu(k,1324) = lu(k,1324) - lu(k,1154) * lu(k,1323)
10684 114070872 : lu(k,1325) = lu(k,1325) - lu(k,1155) * lu(k,1323)
10685 114070872 : lu(k,1326) = lu(k,1326) - lu(k,1156) * lu(k,1323)
10686 114070872 : lu(k,1327) = lu(k,1327) - lu(k,1157) * lu(k,1323)
10687 114070872 : lu(k,1328) = lu(k,1328) - lu(k,1158) * lu(k,1323)
10688 114070872 : lu(k,1329) = lu(k,1329) - lu(k,1159) * lu(k,1323)
10689 114070872 : lu(k,1330) = lu(k,1330) - lu(k,1160) * lu(k,1323)
10690 114070872 : lu(k,1331) = lu(k,1331) - lu(k,1161) * lu(k,1323)
10691 114070872 : lu(k,1332) = lu(k,1332) - lu(k,1162) * lu(k,1323)
10692 114070872 : lu(k,1333) = lu(k,1333) - lu(k,1163) * lu(k,1323)
10693 114070872 : lu(k,1334) = lu(k,1334) - lu(k,1164) * lu(k,1323)
10694 114070872 : lu(k,1335) = lu(k,1335) - lu(k,1165) * lu(k,1323)
10695 114070872 : lu(k,1336) = lu(k,1336) - lu(k,1166) * lu(k,1323)
10696 114070872 : lu(k,1337) = lu(k,1337) - lu(k,1167) * lu(k,1323)
10697 114070872 : lu(k,1338) = lu(k,1338) - lu(k,1168) * lu(k,1323)
10698 114070872 : lu(k,1339) = lu(k,1339) - lu(k,1169) * lu(k,1323)
10699 114070872 : lu(k,1340) = lu(k,1340) - lu(k,1170) * lu(k,1323)
10700 114070872 : lu(k,1341) = lu(k,1341) - lu(k,1171) * lu(k,1323)
10701 114070872 : lu(k,1342) = lu(k,1342) - lu(k,1172) * lu(k,1323)
10702 114070872 : lu(k,1343) = lu(k,1343) - lu(k,1173) * lu(k,1323)
10703 114070872 : lu(k,1344) = lu(k,1344) - lu(k,1174) * lu(k,1323)
10704 114070872 : lu(k,1384) = lu(k,1384) - lu(k,1154) * lu(k,1383)
10705 114070872 : lu(k,1385) = lu(k,1385) - lu(k,1155) * lu(k,1383)
10706 114070872 : lu(k,1386) = lu(k,1386) - lu(k,1156) * lu(k,1383)
10707 114070872 : lu(k,1387) = lu(k,1387) - lu(k,1157) * lu(k,1383)
10708 114070872 : lu(k,1388) = lu(k,1388) - lu(k,1158) * lu(k,1383)
10709 114070872 : lu(k,1389) = lu(k,1389) - lu(k,1159) * lu(k,1383)
10710 114070872 : lu(k,1390) = lu(k,1390) - lu(k,1160) * lu(k,1383)
10711 114070872 : lu(k,1391) = lu(k,1391) - lu(k,1161) * lu(k,1383)
10712 114070872 : lu(k,1392) = lu(k,1392) - lu(k,1162) * lu(k,1383)
10713 114070872 : lu(k,1393) = lu(k,1393) - lu(k,1163) * lu(k,1383)
10714 114070872 : lu(k,1394) = lu(k,1394) - lu(k,1164) * lu(k,1383)
10715 114070872 : lu(k,1395) = lu(k,1395) - lu(k,1165) * lu(k,1383)
10716 114070872 : lu(k,1396) = lu(k,1396) - lu(k,1166) * lu(k,1383)
10717 114070872 : lu(k,1397) = lu(k,1397) - lu(k,1167) * lu(k,1383)
10718 114070872 : lu(k,1398) = lu(k,1398) - lu(k,1168) * lu(k,1383)
10719 114070872 : lu(k,1399) = lu(k,1399) - lu(k,1169) * lu(k,1383)
10720 114070872 : lu(k,1400) = lu(k,1400) - lu(k,1170) * lu(k,1383)
10721 114070872 : lu(k,1401) = lu(k,1401) - lu(k,1171) * lu(k,1383)
10722 114070872 : lu(k,1402) = lu(k,1402) - lu(k,1172) * lu(k,1383)
10723 114070872 : lu(k,1403) = lu(k,1403) - lu(k,1173) * lu(k,1383)
10724 114070872 : lu(k,1404) = lu(k,1404) - lu(k,1174) * lu(k,1383)
10725 114070872 : lu(k,1433) = lu(k,1433) - lu(k,1154) * lu(k,1432)
10726 114070872 : lu(k,1434) = lu(k,1434) - lu(k,1155) * lu(k,1432)
10727 114070872 : lu(k,1435) = lu(k,1435) - lu(k,1156) * lu(k,1432)
10728 114070872 : lu(k,1436) = lu(k,1436) - lu(k,1157) * lu(k,1432)
10729 114070872 : lu(k,1437) = lu(k,1437) - lu(k,1158) * lu(k,1432)
10730 114070872 : lu(k,1438) = lu(k,1438) - lu(k,1159) * lu(k,1432)
10731 114070872 : lu(k,1439) = lu(k,1439) - lu(k,1160) * lu(k,1432)
10732 114070872 : lu(k,1440) = lu(k,1440) - lu(k,1161) * lu(k,1432)
10733 114070872 : lu(k,1441) = lu(k,1441) - lu(k,1162) * lu(k,1432)
10734 114070872 : lu(k,1442) = lu(k,1442) - lu(k,1163) * lu(k,1432)
10735 114070872 : lu(k,1443) = lu(k,1443) - lu(k,1164) * lu(k,1432)
10736 114070872 : lu(k,1444) = lu(k,1444) - lu(k,1165) * lu(k,1432)
10737 114070872 : lu(k,1445) = lu(k,1445) - lu(k,1166) * lu(k,1432)
10738 114070872 : lu(k,1446) = lu(k,1446) - lu(k,1167) * lu(k,1432)
10739 114070872 : lu(k,1447) = lu(k,1447) - lu(k,1168) * lu(k,1432)
10740 114070872 : lu(k,1448) = lu(k,1448) - lu(k,1169) * lu(k,1432)
10741 114070872 : lu(k,1449) = lu(k,1449) - lu(k,1170) * lu(k,1432)
10742 114070872 : lu(k,1450) = lu(k,1450) - lu(k,1171) * lu(k,1432)
10743 114070872 : lu(k,1451) = lu(k,1451) - lu(k,1172) * lu(k,1432)
10744 114070872 : lu(k,1452) = lu(k,1452) - lu(k,1173) * lu(k,1432)
10745 114070872 : lu(k,1453) = lu(k,1453) - lu(k,1174) * lu(k,1432)
10746 114070872 : lu(k,1481) = lu(k,1481) - lu(k,1154) * lu(k,1480)
10747 114070872 : lu(k,1482) = lu(k,1482) - lu(k,1155) * lu(k,1480)
10748 114070872 : lu(k,1483) = lu(k,1483) - lu(k,1156) * lu(k,1480)
10749 114070872 : lu(k,1484) = lu(k,1484) - lu(k,1157) * lu(k,1480)
10750 114070872 : lu(k,1485) = lu(k,1485) - lu(k,1158) * lu(k,1480)
10751 114070872 : lu(k,1486) = lu(k,1486) - lu(k,1159) * lu(k,1480)
10752 114070872 : lu(k,1487) = lu(k,1487) - lu(k,1160) * lu(k,1480)
10753 114070872 : lu(k,1488) = lu(k,1488) - lu(k,1161) * lu(k,1480)
10754 114070872 : lu(k,1489) = lu(k,1489) - lu(k,1162) * lu(k,1480)
10755 114070872 : lu(k,1490) = lu(k,1490) - lu(k,1163) * lu(k,1480)
10756 114070872 : lu(k,1491) = lu(k,1491) - lu(k,1164) * lu(k,1480)
10757 114070872 : lu(k,1492) = lu(k,1492) - lu(k,1165) * lu(k,1480)
10758 114070872 : lu(k,1493) = lu(k,1493) - lu(k,1166) * lu(k,1480)
10759 114070872 : lu(k,1494) = lu(k,1494) - lu(k,1167) * lu(k,1480)
10760 114070872 : lu(k,1495) = lu(k,1495) - lu(k,1168) * lu(k,1480)
10761 114070872 : lu(k,1496) = lu(k,1496) - lu(k,1169) * lu(k,1480)
10762 114070872 : lu(k,1497) = lu(k,1497) - lu(k,1170) * lu(k,1480)
10763 114070872 : lu(k,1498) = lu(k,1498) - lu(k,1171) * lu(k,1480)
10764 114070872 : lu(k,1499) = lu(k,1499) - lu(k,1172) * lu(k,1480)
10765 114070872 : lu(k,1500) = lu(k,1500) - lu(k,1173) * lu(k,1480)
10766 114070872 : lu(k,1501) = lu(k,1501) - lu(k,1174) * lu(k,1480)
10767 114070872 : lu(k,1522) = lu(k,1522) - lu(k,1154) * lu(k,1521)
10768 114070872 : lu(k,1523) = lu(k,1523) - lu(k,1155) * lu(k,1521)
10769 114070872 : lu(k,1524) = lu(k,1524) - lu(k,1156) * lu(k,1521)
10770 114070872 : lu(k,1525) = lu(k,1525) - lu(k,1157) * lu(k,1521)
10771 114070872 : lu(k,1526) = lu(k,1526) - lu(k,1158) * lu(k,1521)
10772 114070872 : lu(k,1527) = lu(k,1527) - lu(k,1159) * lu(k,1521)
10773 114070872 : lu(k,1528) = lu(k,1528) - lu(k,1160) * lu(k,1521)
10774 114070872 : lu(k,1529) = lu(k,1529) - lu(k,1161) * lu(k,1521)
10775 114070872 : lu(k,1530) = lu(k,1530) - lu(k,1162) * lu(k,1521)
10776 114070872 : lu(k,1531) = lu(k,1531) - lu(k,1163) * lu(k,1521)
10777 114070872 : lu(k,1532) = lu(k,1532) - lu(k,1164) * lu(k,1521)
10778 114070872 : lu(k,1533) = lu(k,1533) - lu(k,1165) * lu(k,1521)
10779 114070872 : lu(k,1534) = lu(k,1534) - lu(k,1166) * lu(k,1521)
10780 114070872 : lu(k,1535) = lu(k,1535) - lu(k,1167) * lu(k,1521)
10781 114070872 : lu(k,1536) = lu(k,1536) - lu(k,1168) * lu(k,1521)
10782 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1169) * lu(k,1521)
10783 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1170) * lu(k,1521)
10784 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1171) * lu(k,1521)
10785 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1172) * lu(k,1521)
10786 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1173) * lu(k,1521)
10787 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1174) * lu(k,1521)
10788 114070872 : lu(k,1558) = lu(k,1558) - lu(k,1154) * lu(k,1557)
10789 114070872 : lu(k,1559) = lu(k,1559) - lu(k,1155) * lu(k,1557)
10790 114070872 : lu(k,1560) = lu(k,1560) - lu(k,1156) * lu(k,1557)
10791 114070872 : lu(k,1561) = lu(k,1561) - lu(k,1157) * lu(k,1557)
10792 114070872 : lu(k,1562) = lu(k,1562) - lu(k,1158) * lu(k,1557)
10793 114070872 : lu(k,1563) = lu(k,1563) - lu(k,1159) * lu(k,1557)
10794 114070872 : lu(k,1564) = lu(k,1564) - lu(k,1160) * lu(k,1557)
10795 114070872 : lu(k,1565) = lu(k,1565) - lu(k,1161) * lu(k,1557)
10796 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1162) * lu(k,1557)
10797 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1163) * lu(k,1557)
10798 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1164) * lu(k,1557)
10799 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1165) * lu(k,1557)
10800 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1166) * lu(k,1557)
10801 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1167) * lu(k,1557)
10802 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1168) * lu(k,1557)
10803 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1169) * lu(k,1557)
10804 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1170) * lu(k,1557)
10805 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1171) * lu(k,1557)
10806 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1172) * lu(k,1557)
10807 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1173) * lu(k,1557)
10808 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1174) * lu(k,1557)
10809 114070872 : lu(k,1603) = lu(k,1603) - lu(k,1154) * lu(k,1602)
10810 114070872 : lu(k,1604) = lu(k,1604) - lu(k,1155) * lu(k,1602)
10811 114070872 : lu(k,1605) = lu(k,1605) - lu(k,1156) * lu(k,1602)
10812 114070872 : lu(k,1606) = lu(k,1606) - lu(k,1157) * lu(k,1602)
10813 114070872 : lu(k,1607) = lu(k,1607) - lu(k,1158) * lu(k,1602)
10814 114070872 : lu(k,1608) = lu(k,1608) - lu(k,1159) * lu(k,1602)
10815 114070872 : lu(k,1609) = lu(k,1609) - lu(k,1160) * lu(k,1602)
10816 114070872 : lu(k,1610) = lu(k,1610) - lu(k,1161) * lu(k,1602)
10817 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1162) * lu(k,1602)
10818 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1163) * lu(k,1602)
10819 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1164) * lu(k,1602)
10820 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1165) * lu(k,1602)
10821 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1166) * lu(k,1602)
10822 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1167) * lu(k,1602)
10823 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1168) * lu(k,1602)
10824 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1169) * lu(k,1602)
10825 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1170) * lu(k,1602)
10826 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1171) * lu(k,1602)
10827 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1172) * lu(k,1602)
10828 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1173) * lu(k,1602)
10829 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1174) * lu(k,1602)
10830 114070872 : lu(k,1646) = lu(k,1646) - lu(k,1154) * lu(k,1645)
10831 114070872 : lu(k,1647) = lu(k,1647) - lu(k,1155) * lu(k,1645)
10832 114070872 : lu(k,1648) = lu(k,1648) - lu(k,1156) * lu(k,1645)
10833 114070872 : lu(k,1649) = lu(k,1649) - lu(k,1157) * lu(k,1645)
10834 114070872 : lu(k,1650) = lu(k,1650) - lu(k,1158) * lu(k,1645)
10835 114070872 : lu(k,1651) = lu(k,1651) - lu(k,1159) * lu(k,1645)
10836 114070872 : lu(k,1652) = lu(k,1652) - lu(k,1160) * lu(k,1645)
10837 114070872 : lu(k,1653) = lu(k,1653) - lu(k,1161) * lu(k,1645)
10838 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1162) * lu(k,1645)
10839 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1163) * lu(k,1645)
10840 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1164) * lu(k,1645)
10841 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1165) * lu(k,1645)
10842 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1166) * lu(k,1645)
10843 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1167) * lu(k,1645)
10844 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1168) * lu(k,1645)
10845 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1169) * lu(k,1645)
10846 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1170) * lu(k,1645)
10847 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1171) * lu(k,1645)
10848 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1172) * lu(k,1645)
10849 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1173) * lu(k,1645)
10850 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1174) * lu(k,1645)
10851 114070872 : lu(k,1689) = lu(k,1689) - lu(k,1154) * lu(k,1688)
10852 114070872 : lu(k,1690) = lu(k,1690) - lu(k,1155) * lu(k,1688)
10853 114070872 : lu(k,1691) = lu(k,1691) - lu(k,1156) * lu(k,1688)
10854 114070872 : lu(k,1692) = lu(k,1692) - lu(k,1157) * lu(k,1688)
10855 114070872 : lu(k,1693) = lu(k,1693) - lu(k,1158) * lu(k,1688)
10856 114070872 : lu(k,1694) = lu(k,1694) - lu(k,1159) * lu(k,1688)
10857 114070872 : lu(k,1695) = lu(k,1695) - lu(k,1160) * lu(k,1688)
10858 114070872 : lu(k,1696) = lu(k,1696) - lu(k,1161) * lu(k,1688)
10859 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1162) * lu(k,1688)
10860 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1163) * lu(k,1688)
10861 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1164) * lu(k,1688)
10862 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1165) * lu(k,1688)
10863 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1166) * lu(k,1688)
10864 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1167) * lu(k,1688)
10865 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1168) * lu(k,1688)
10866 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1169) * lu(k,1688)
10867 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1170) * lu(k,1688)
10868 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1171) * lu(k,1688)
10869 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1172) * lu(k,1688)
10870 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1173) * lu(k,1688)
10871 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1174) * lu(k,1688)
10872 114070872 : lu(k,1729) = lu(k,1729) - lu(k,1154) * lu(k,1728)
10873 114070872 : lu(k,1730) = lu(k,1730) - lu(k,1155) * lu(k,1728)
10874 114070872 : lu(k,1731) = lu(k,1731) - lu(k,1156) * lu(k,1728)
10875 114070872 : lu(k,1732) = lu(k,1732) - lu(k,1157) * lu(k,1728)
10876 114070872 : lu(k,1733) = lu(k,1733) - lu(k,1158) * lu(k,1728)
10877 114070872 : lu(k,1734) = lu(k,1734) - lu(k,1159) * lu(k,1728)
10878 114070872 : lu(k,1735) = lu(k,1735) - lu(k,1160) * lu(k,1728)
10879 114070872 : lu(k,1736) = lu(k,1736) - lu(k,1161) * lu(k,1728)
10880 114070872 : lu(k,1737) = lu(k,1737) - lu(k,1162) * lu(k,1728)
10881 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1163) * lu(k,1728)
10882 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1164) * lu(k,1728)
10883 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1165) * lu(k,1728)
10884 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1166) * lu(k,1728)
10885 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1167) * lu(k,1728)
10886 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1168) * lu(k,1728)
10887 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1169) * lu(k,1728)
10888 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1170) * lu(k,1728)
10889 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1171) * lu(k,1728)
10890 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1172) * lu(k,1728)
10891 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1173) * lu(k,1728)
10892 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1174) * lu(k,1728)
10893 114070872 : lu(k,1765) = lu(k,1765) - lu(k,1154) * lu(k,1764)
10894 114070872 : lu(k,1766) = lu(k,1766) - lu(k,1155) * lu(k,1764)
10895 114070872 : lu(k,1767) = lu(k,1767) - lu(k,1156) * lu(k,1764)
10896 114070872 : lu(k,1768) = lu(k,1768) - lu(k,1157) * lu(k,1764)
10897 114070872 : lu(k,1769) = lu(k,1769) - lu(k,1158) * lu(k,1764)
10898 114070872 : lu(k,1770) = lu(k,1770) - lu(k,1159) * lu(k,1764)
10899 114070872 : lu(k,1771) = lu(k,1771) - lu(k,1160) * lu(k,1764)
10900 114070872 : lu(k,1772) = lu(k,1772) - lu(k,1161) * lu(k,1764)
10901 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1162) * lu(k,1764)
10902 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1163) * lu(k,1764)
10903 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1164) * lu(k,1764)
10904 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1165) * lu(k,1764)
10905 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1166) * lu(k,1764)
10906 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1167) * lu(k,1764)
10907 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1168) * lu(k,1764)
10908 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1169) * lu(k,1764)
10909 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1170) * lu(k,1764)
10910 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1171) * lu(k,1764)
10911 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1172) * lu(k,1764)
10912 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1173) * lu(k,1764)
10913 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1174) * lu(k,1764)
10914 114070872 : lu(k,1813) = lu(k,1813) - lu(k,1154) * lu(k,1812)
10915 114070872 : lu(k,1814) = lu(k,1814) - lu(k,1155) * lu(k,1812)
10916 114070872 : lu(k,1815) = lu(k,1815) - lu(k,1156) * lu(k,1812)
10917 114070872 : lu(k,1816) = lu(k,1816) - lu(k,1157) * lu(k,1812)
10918 114070872 : lu(k,1817) = lu(k,1817) - lu(k,1158) * lu(k,1812)
10919 114070872 : lu(k,1818) = lu(k,1818) - lu(k,1159) * lu(k,1812)
10920 114070872 : lu(k,1819) = lu(k,1819) - lu(k,1160) * lu(k,1812)
10921 114070872 : lu(k,1820) = lu(k,1820) - lu(k,1161) * lu(k,1812)
10922 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1162) * lu(k,1812)
10923 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1163) * lu(k,1812)
10924 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1164) * lu(k,1812)
10925 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1165) * lu(k,1812)
10926 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1166) * lu(k,1812)
10927 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1167) * lu(k,1812)
10928 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1168) * lu(k,1812)
10929 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1169) * lu(k,1812)
10930 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1170) * lu(k,1812)
10931 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1171) * lu(k,1812)
10932 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1172) * lu(k,1812)
10933 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1173) * lu(k,1812)
10934 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1174) * lu(k,1812)
10935 114070872 : lu(k,1846) = lu(k,1846) - lu(k,1154) * lu(k,1845)
10936 114070872 : lu(k,1847) = lu(k,1847) - lu(k,1155) * lu(k,1845)
10937 114070872 : lu(k,1848) = lu(k,1848) - lu(k,1156) * lu(k,1845)
10938 114070872 : lu(k,1849) = lu(k,1849) - lu(k,1157) * lu(k,1845)
10939 114070872 : lu(k,1850) = lu(k,1850) - lu(k,1158) * lu(k,1845)
10940 114070872 : lu(k,1851) = lu(k,1851) - lu(k,1159) * lu(k,1845)
10941 114070872 : lu(k,1852) = lu(k,1852) - lu(k,1160) * lu(k,1845)
10942 114070872 : lu(k,1853) = lu(k,1853) - lu(k,1161) * lu(k,1845)
10943 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1162) * lu(k,1845)
10944 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1163) * lu(k,1845)
10945 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1164) * lu(k,1845)
10946 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1165) * lu(k,1845)
10947 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1166) * lu(k,1845)
10948 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1167) * lu(k,1845)
10949 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1168) * lu(k,1845)
10950 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1169) * lu(k,1845)
10951 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1170) * lu(k,1845)
10952 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1171) * lu(k,1845)
10953 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1172) * lu(k,1845)
10954 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1173) * lu(k,1845)
10955 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1174) * lu(k,1845)
10956 114070872 : lu(k,1882) = lu(k,1882) - lu(k,1154) * lu(k,1881)
10957 114070872 : lu(k,1883) = lu(k,1883) - lu(k,1155) * lu(k,1881)
10958 114070872 : lu(k,1884) = lu(k,1884) - lu(k,1156) * lu(k,1881)
10959 114070872 : lu(k,1885) = lu(k,1885) - lu(k,1157) * lu(k,1881)
10960 114070872 : lu(k,1886) = lu(k,1886) - lu(k,1158) * lu(k,1881)
10961 114070872 : lu(k,1887) = lu(k,1887) - lu(k,1159) * lu(k,1881)
10962 114070872 : lu(k,1888) = lu(k,1888) - lu(k,1160) * lu(k,1881)
10963 114070872 : lu(k,1889) = lu(k,1889) - lu(k,1161) * lu(k,1881)
10964 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1162) * lu(k,1881)
10965 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1163) * lu(k,1881)
10966 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1164) * lu(k,1881)
10967 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1165) * lu(k,1881)
10968 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1166) * lu(k,1881)
10969 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1167) * lu(k,1881)
10970 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1168) * lu(k,1881)
10971 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1169) * lu(k,1881)
10972 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1170) * lu(k,1881)
10973 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1171) * lu(k,1881)
10974 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1172) * lu(k,1881)
10975 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1173) * lu(k,1881)
10976 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1174) * lu(k,1881)
10977 114070872 : lu(k,1923) = lu(k,1923) - lu(k,1154) * lu(k,1922)
10978 114070872 : lu(k,1924) = lu(k,1924) - lu(k,1155) * lu(k,1922)
10979 114070872 : lu(k,1925) = lu(k,1925) - lu(k,1156) * lu(k,1922)
10980 114070872 : lu(k,1926) = lu(k,1926) - lu(k,1157) * lu(k,1922)
10981 114070872 : lu(k,1927) = lu(k,1927) - lu(k,1158) * lu(k,1922)
10982 114070872 : lu(k,1928) = lu(k,1928) - lu(k,1159) * lu(k,1922)
10983 114070872 : lu(k,1929) = lu(k,1929) - lu(k,1160) * lu(k,1922)
10984 114070872 : lu(k,1930) = lu(k,1930) - lu(k,1161) * lu(k,1922)
10985 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1162) * lu(k,1922)
10986 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1163) * lu(k,1922)
10987 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1164) * lu(k,1922)
10988 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1165) * lu(k,1922)
10989 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1166) * lu(k,1922)
10990 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1167) * lu(k,1922)
10991 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1168) * lu(k,1922)
10992 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1169) * lu(k,1922)
10993 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1170) * lu(k,1922)
10994 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1171) * lu(k,1922)
10995 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1172) * lu(k,1922)
10996 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1173) * lu(k,1922)
10997 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1174) * lu(k,1922)
10998 114070872 : lu(k,1965) = lu(k,1965) - lu(k,1154) * lu(k,1964)
10999 114070872 : lu(k,1966) = lu(k,1966) - lu(k,1155) * lu(k,1964)
11000 114070872 : lu(k,1967) = lu(k,1967) - lu(k,1156) * lu(k,1964)
11001 114070872 : lu(k,1968) = lu(k,1968) - lu(k,1157) * lu(k,1964)
11002 114070872 : lu(k,1969) = lu(k,1969) - lu(k,1158) * lu(k,1964)
11003 114070872 : lu(k,1970) = lu(k,1970) - lu(k,1159) * lu(k,1964)
11004 114070872 : lu(k,1971) = lu(k,1971) - lu(k,1160) * lu(k,1964)
11005 114070872 : lu(k,1972) = lu(k,1972) - lu(k,1161) * lu(k,1964)
11006 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1162) * lu(k,1964)
11007 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1163) * lu(k,1964)
11008 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1164) * lu(k,1964)
11009 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1165) * lu(k,1964)
11010 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1166) * lu(k,1964)
11011 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1167) * lu(k,1964)
11012 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1168) * lu(k,1964)
11013 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1169) * lu(k,1964)
11014 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1170) * lu(k,1964)
11015 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1171) * lu(k,1964)
11016 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1172) * lu(k,1964)
11017 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1173) * lu(k,1964)
11018 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1174) * lu(k,1964)
11019 114070872 : lu(k,2010) = lu(k,2010) - lu(k,1154) * lu(k,2009)
11020 114070872 : lu(k,2011) = lu(k,2011) - lu(k,1155) * lu(k,2009)
11021 114070872 : lu(k,2012) = lu(k,2012) - lu(k,1156) * lu(k,2009)
11022 114070872 : lu(k,2013) = lu(k,2013) - lu(k,1157) * lu(k,2009)
11023 114070872 : lu(k,2014) = lu(k,2014) - lu(k,1158) * lu(k,2009)
11024 114070872 : lu(k,2015) = lu(k,2015) - lu(k,1159) * lu(k,2009)
11025 114070872 : lu(k,2016) = lu(k,2016) - lu(k,1160) * lu(k,2009)
11026 114070872 : lu(k,2017) = lu(k,2017) - lu(k,1161) * lu(k,2009)
11027 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1162) * lu(k,2009)
11028 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1163) * lu(k,2009)
11029 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1164) * lu(k,2009)
11030 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1165) * lu(k,2009)
11031 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1166) * lu(k,2009)
11032 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1167) * lu(k,2009)
11033 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1168) * lu(k,2009)
11034 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1169) * lu(k,2009)
11035 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1170) * lu(k,2009)
11036 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1171) * lu(k,2009)
11037 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1172) * lu(k,2009)
11038 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1173) * lu(k,2009)
11039 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1174) * lu(k,2009)
11040 114070872 : lu(k,2070) = lu(k,2070) - lu(k,1154) * lu(k,2069)
11041 114070872 : lu(k,2071) = lu(k,2071) - lu(k,1155) * lu(k,2069)
11042 114070872 : lu(k,2072) = lu(k,2072) - lu(k,1156) * lu(k,2069)
11043 114070872 : lu(k,2073) = lu(k,2073) - lu(k,1157) * lu(k,2069)
11044 114070872 : lu(k,2074) = lu(k,2074) - lu(k,1158) * lu(k,2069)
11045 114070872 : lu(k,2075) = lu(k,2075) - lu(k,1159) * lu(k,2069)
11046 114070872 : lu(k,2076) = lu(k,2076) - lu(k,1160) * lu(k,2069)
11047 114070872 : lu(k,2077) = lu(k,2077) - lu(k,1161) * lu(k,2069)
11048 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1162) * lu(k,2069)
11049 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1163) * lu(k,2069)
11050 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1164) * lu(k,2069)
11051 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1165) * lu(k,2069)
11052 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1166) * lu(k,2069)
11053 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1167) * lu(k,2069)
11054 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1168) * lu(k,2069)
11055 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1169) * lu(k,2069)
11056 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1170) * lu(k,2069)
11057 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1171) * lu(k,2069)
11058 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1172) * lu(k,2069)
11059 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1173) * lu(k,2069)
11060 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1174) * lu(k,2069)
11061 114070872 : lu(k,1197) = 1._r8 / lu(k,1197)
11062 114070872 : lu(k,1198) = lu(k,1198) * lu(k,1197)
11063 114070872 : lu(k,1199) = lu(k,1199) * lu(k,1197)
11064 114070872 : lu(k,1200) = lu(k,1200) * lu(k,1197)
11065 114070872 : lu(k,1201) = lu(k,1201) * lu(k,1197)
11066 114070872 : lu(k,1202) = lu(k,1202) * lu(k,1197)
11067 114070872 : lu(k,1203) = lu(k,1203) * lu(k,1197)
11068 114070872 : lu(k,1204) = lu(k,1204) * lu(k,1197)
11069 114070872 : lu(k,1205) = lu(k,1205) * lu(k,1197)
11070 114070872 : lu(k,1206) = lu(k,1206) * lu(k,1197)
11071 114070872 : lu(k,1207) = lu(k,1207) * lu(k,1197)
11072 114070872 : lu(k,1208) = lu(k,1208) * lu(k,1197)
11073 114070872 : lu(k,1209) = lu(k,1209) * lu(k,1197)
11074 114070872 : lu(k,1210) = lu(k,1210) * lu(k,1197)
11075 114070872 : lu(k,1211) = lu(k,1211) * lu(k,1197)
11076 114070872 : lu(k,1212) = lu(k,1212) * lu(k,1197)
11077 114070872 : lu(k,1213) = lu(k,1213) * lu(k,1197)
11078 114070872 : lu(k,1214) = lu(k,1214) * lu(k,1197)
11079 114070872 : lu(k,1215) = lu(k,1215) * lu(k,1197)
11080 114070872 : lu(k,1216) = lu(k,1216) * lu(k,1197)
11081 114070872 : lu(k,1217) = lu(k,1217) * lu(k,1197)
11082 114070872 : lu(k,1241) = lu(k,1241) - lu(k,1198) * lu(k,1240)
11083 114070872 : lu(k,1242) = lu(k,1242) - lu(k,1199) * lu(k,1240)
11084 114070872 : lu(k,1243) = lu(k,1243) - lu(k,1200) * lu(k,1240)
11085 114070872 : lu(k,1244) = lu(k,1244) - lu(k,1201) * lu(k,1240)
11086 114070872 : lu(k,1245) = lu(k,1245) - lu(k,1202) * lu(k,1240)
11087 114070872 : lu(k,1246) = lu(k,1246) - lu(k,1203) * lu(k,1240)
11088 114070872 : lu(k,1247) = lu(k,1247) - lu(k,1204) * lu(k,1240)
11089 114070872 : lu(k,1248) = lu(k,1248) - lu(k,1205) * lu(k,1240)
11090 114070872 : lu(k,1249) = lu(k,1249) - lu(k,1206) * lu(k,1240)
11091 114070872 : lu(k,1250) = lu(k,1250) - lu(k,1207) * lu(k,1240)
11092 114070872 : lu(k,1251) = lu(k,1251) - lu(k,1208) * lu(k,1240)
11093 114070872 : lu(k,1252) = lu(k,1252) - lu(k,1209) * lu(k,1240)
11094 114070872 : lu(k,1253) = lu(k,1253) - lu(k,1210) * lu(k,1240)
11095 114070872 : lu(k,1254) = lu(k,1254) - lu(k,1211) * lu(k,1240)
11096 114070872 : lu(k,1255) = lu(k,1255) - lu(k,1212) * lu(k,1240)
11097 114070872 : lu(k,1256) = lu(k,1256) - lu(k,1213) * lu(k,1240)
11098 114070872 : lu(k,1257) = lu(k,1257) - lu(k,1214) * lu(k,1240)
11099 114070872 : lu(k,1258) = lu(k,1258) - lu(k,1215) * lu(k,1240)
11100 114070872 : lu(k,1259) = lu(k,1259) - lu(k,1216) * lu(k,1240)
11101 114070872 : lu(k,1260) = lu(k,1260) - lu(k,1217) * lu(k,1240)
11102 114070872 : lu(k,1283) = lu(k,1283) - lu(k,1198) * lu(k,1282)
11103 114070872 : lu(k,1284) = lu(k,1284) - lu(k,1199) * lu(k,1282)
11104 114070872 : lu(k,1285) = lu(k,1285) - lu(k,1200) * lu(k,1282)
11105 114070872 : lu(k,1286) = lu(k,1286) - lu(k,1201) * lu(k,1282)
11106 114070872 : lu(k,1287) = lu(k,1287) - lu(k,1202) * lu(k,1282)
11107 114070872 : lu(k,1288) = lu(k,1288) - lu(k,1203) * lu(k,1282)
11108 114070872 : lu(k,1289) = lu(k,1289) - lu(k,1204) * lu(k,1282)
11109 114070872 : lu(k,1290) = lu(k,1290) - lu(k,1205) * lu(k,1282)
11110 114070872 : lu(k,1291) = lu(k,1291) - lu(k,1206) * lu(k,1282)
11111 114070872 : lu(k,1292) = lu(k,1292) - lu(k,1207) * lu(k,1282)
11112 114070872 : lu(k,1293) = lu(k,1293) - lu(k,1208) * lu(k,1282)
11113 114070872 : lu(k,1294) = lu(k,1294) - lu(k,1209) * lu(k,1282)
11114 114070872 : lu(k,1295) = lu(k,1295) - lu(k,1210) * lu(k,1282)
11115 114070872 : lu(k,1296) = lu(k,1296) - lu(k,1211) * lu(k,1282)
11116 114070872 : lu(k,1297) = lu(k,1297) - lu(k,1212) * lu(k,1282)
11117 114070872 : lu(k,1298) = lu(k,1298) - lu(k,1213) * lu(k,1282)
11118 114070872 : lu(k,1299) = lu(k,1299) - lu(k,1214) * lu(k,1282)
11119 114070872 : lu(k,1300) = lu(k,1300) - lu(k,1215) * lu(k,1282)
11120 114070872 : lu(k,1301) = lu(k,1301) - lu(k,1216) * lu(k,1282)
11121 114070872 : lu(k,1302) = lu(k,1302) - lu(k,1217) * lu(k,1282)
11122 114070872 : lu(k,1325) = lu(k,1325) - lu(k,1198) * lu(k,1324)
11123 114070872 : lu(k,1326) = lu(k,1326) - lu(k,1199) * lu(k,1324)
11124 114070872 : lu(k,1327) = lu(k,1327) - lu(k,1200) * lu(k,1324)
11125 114070872 : lu(k,1328) = lu(k,1328) - lu(k,1201) * lu(k,1324)
11126 114070872 : lu(k,1329) = lu(k,1329) - lu(k,1202) * lu(k,1324)
11127 114070872 : lu(k,1330) = lu(k,1330) - lu(k,1203) * lu(k,1324)
11128 114070872 : lu(k,1331) = lu(k,1331) - lu(k,1204) * lu(k,1324)
11129 114070872 : lu(k,1332) = lu(k,1332) - lu(k,1205) * lu(k,1324)
11130 114070872 : lu(k,1333) = lu(k,1333) - lu(k,1206) * lu(k,1324)
11131 114070872 : lu(k,1334) = lu(k,1334) - lu(k,1207) * lu(k,1324)
11132 114070872 : lu(k,1335) = lu(k,1335) - lu(k,1208) * lu(k,1324)
11133 114070872 : lu(k,1336) = lu(k,1336) - lu(k,1209) * lu(k,1324)
11134 114070872 : lu(k,1337) = lu(k,1337) - lu(k,1210) * lu(k,1324)
11135 114070872 : lu(k,1338) = lu(k,1338) - lu(k,1211) * lu(k,1324)
11136 114070872 : lu(k,1339) = lu(k,1339) - lu(k,1212) * lu(k,1324)
11137 114070872 : lu(k,1340) = lu(k,1340) - lu(k,1213) * lu(k,1324)
11138 114070872 : lu(k,1341) = lu(k,1341) - lu(k,1214) * lu(k,1324)
11139 114070872 : lu(k,1342) = lu(k,1342) - lu(k,1215) * lu(k,1324)
11140 114070872 : lu(k,1343) = lu(k,1343) - lu(k,1216) * lu(k,1324)
11141 114070872 : lu(k,1344) = lu(k,1344) - lu(k,1217) * lu(k,1324)
11142 114070872 : lu(k,1385) = lu(k,1385) - lu(k,1198) * lu(k,1384)
11143 114070872 : lu(k,1386) = lu(k,1386) - lu(k,1199) * lu(k,1384)
11144 114070872 : lu(k,1387) = lu(k,1387) - lu(k,1200) * lu(k,1384)
11145 114070872 : lu(k,1388) = lu(k,1388) - lu(k,1201) * lu(k,1384)
11146 114070872 : lu(k,1389) = lu(k,1389) - lu(k,1202) * lu(k,1384)
11147 114070872 : lu(k,1390) = lu(k,1390) - lu(k,1203) * lu(k,1384)
11148 114070872 : lu(k,1391) = lu(k,1391) - lu(k,1204) * lu(k,1384)
11149 114070872 : lu(k,1392) = lu(k,1392) - lu(k,1205) * lu(k,1384)
11150 114070872 : lu(k,1393) = lu(k,1393) - lu(k,1206) * lu(k,1384)
11151 114070872 : lu(k,1394) = lu(k,1394) - lu(k,1207) * lu(k,1384)
11152 114070872 : lu(k,1395) = lu(k,1395) - lu(k,1208) * lu(k,1384)
11153 114070872 : lu(k,1396) = lu(k,1396) - lu(k,1209) * lu(k,1384)
11154 114070872 : lu(k,1397) = lu(k,1397) - lu(k,1210) * lu(k,1384)
11155 114070872 : lu(k,1398) = lu(k,1398) - lu(k,1211) * lu(k,1384)
11156 114070872 : lu(k,1399) = lu(k,1399) - lu(k,1212) * lu(k,1384)
11157 114070872 : lu(k,1400) = lu(k,1400) - lu(k,1213) * lu(k,1384)
11158 114070872 : lu(k,1401) = lu(k,1401) - lu(k,1214) * lu(k,1384)
11159 114070872 : lu(k,1402) = lu(k,1402) - lu(k,1215) * lu(k,1384)
11160 114070872 : lu(k,1403) = lu(k,1403) - lu(k,1216) * lu(k,1384)
11161 114070872 : lu(k,1404) = lu(k,1404) - lu(k,1217) * lu(k,1384)
11162 114070872 : lu(k,1434) = lu(k,1434) - lu(k,1198) * lu(k,1433)
11163 114070872 : lu(k,1435) = lu(k,1435) - lu(k,1199) * lu(k,1433)
11164 114070872 : lu(k,1436) = lu(k,1436) - lu(k,1200) * lu(k,1433)
11165 114070872 : lu(k,1437) = lu(k,1437) - lu(k,1201) * lu(k,1433)
11166 114070872 : lu(k,1438) = lu(k,1438) - lu(k,1202) * lu(k,1433)
11167 114070872 : lu(k,1439) = lu(k,1439) - lu(k,1203) * lu(k,1433)
11168 114070872 : lu(k,1440) = lu(k,1440) - lu(k,1204) * lu(k,1433)
11169 114070872 : lu(k,1441) = lu(k,1441) - lu(k,1205) * lu(k,1433)
11170 114070872 : lu(k,1442) = lu(k,1442) - lu(k,1206) * lu(k,1433)
11171 114070872 : lu(k,1443) = lu(k,1443) - lu(k,1207) * lu(k,1433)
11172 114070872 : lu(k,1444) = lu(k,1444) - lu(k,1208) * lu(k,1433)
11173 114070872 : lu(k,1445) = lu(k,1445) - lu(k,1209) * lu(k,1433)
11174 114070872 : lu(k,1446) = lu(k,1446) - lu(k,1210) * lu(k,1433)
11175 114070872 : lu(k,1447) = lu(k,1447) - lu(k,1211) * lu(k,1433)
11176 114070872 : lu(k,1448) = lu(k,1448) - lu(k,1212) * lu(k,1433)
11177 114070872 : lu(k,1449) = lu(k,1449) - lu(k,1213) * lu(k,1433)
11178 114070872 : lu(k,1450) = lu(k,1450) - lu(k,1214) * lu(k,1433)
11179 114070872 : lu(k,1451) = lu(k,1451) - lu(k,1215) * lu(k,1433)
11180 114070872 : lu(k,1452) = lu(k,1452) - lu(k,1216) * lu(k,1433)
11181 114070872 : lu(k,1453) = lu(k,1453) - lu(k,1217) * lu(k,1433)
11182 114070872 : lu(k,1482) = lu(k,1482) - lu(k,1198) * lu(k,1481)
11183 114070872 : lu(k,1483) = lu(k,1483) - lu(k,1199) * lu(k,1481)
11184 114070872 : lu(k,1484) = lu(k,1484) - lu(k,1200) * lu(k,1481)
11185 114070872 : lu(k,1485) = lu(k,1485) - lu(k,1201) * lu(k,1481)
11186 114070872 : lu(k,1486) = lu(k,1486) - lu(k,1202) * lu(k,1481)
11187 114070872 : lu(k,1487) = lu(k,1487) - lu(k,1203) * lu(k,1481)
11188 114070872 : lu(k,1488) = lu(k,1488) - lu(k,1204) * lu(k,1481)
11189 114070872 : lu(k,1489) = lu(k,1489) - lu(k,1205) * lu(k,1481)
11190 114070872 : lu(k,1490) = lu(k,1490) - lu(k,1206) * lu(k,1481)
11191 114070872 : lu(k,1491) = lu(k,1491) - lu(k,1207) * lu(k,1481)
11192 114070872 : lu(k,1492) = lu(k,1492) - lu(k,1208) * lu(k,1481)
11193 114070872 : lu(k,1493) = lu(k,1493) - lu(k,1209) * lu(k,1481)
11194 114070872 : lu(k,1494) = lu(k,1494) - lu(k,1210) * lu(k,1481)
11195 114070872 : lu(k,1495) = lu(k,1495) - lu(k,1211) * lu(k,1481)
11196 114070872 : lu(k,1496) = lu(k,1496) - lu(k,1212) * lu(k,1481)
11197 114070872 : lu(k,1497) = lu(k,1497) - lu(k,1213) * lu(k,1481)
11198 114070872 : lu(k,1498) = lu(k,1498) - lu(k,1214) * lu(k,1481)
11199 114070872 : lu(k,1499) = lu(k,1499) - lu(k,1215) * lu(k,1481)
11200 114070872 : lu(k,1500) = lu(k,1500) - lu(k,1216) * lu(k,1481)
11201 114070872 : lu(k,1501) = lu(k,1501) - lu(k,1217) * lu(k,1481)
11202 114070872 : lu(k,1523) = lu(k,1523) - lu(k,1198) * lu(k,1522)
11203 114070872 : lu(k,1524) = lu(k,1524) - lu(k,1199) * lu(k,1522)
11204 114070872 : lu(k,1525) = lu(k,1525) - lu(k,1200) * lu(k,1522)
11205 114070872 : lu(k,1526) = lu(k,1526) - lu(k,1201) * lu(k,1522)
11206 114070872 : lu(k,1527) = lu(k,1527) - lu(k,1202) * lu(k,1522)
11207 114070872 : lu(k,1528) = lu(k,1528) - lu(k,1203) * lu(k,1522)
11208 114070872 : lu(k,1529) = lu(k,1529) - lu(k,1204) * lu(k,1522)
11209 114070872 : lu(k,1530) = lu(k,1530) - lu(k,1205) * lu(k,1522)
11210 114070872 : lu(k,1531) = lu(k,1531) - lu(k,1206) * lu(k,1522)
11211 114070872 : lu(k,1532) = lu(k,1532) - lu(k,1207) * lu(k,1522)
11212 114070872 : lu(k,1533) = lu(k,1533) - lu(k,1208) * lu(k,1522)
11213 114070872 : lu(k,1534) = lu(k,1534) - lu(k,1209) * lu(k,1522)
11214 114070872 : lu(k,1535) = lu(k,1535) - lu(k,1210) * lu(k,1522)
11215 114070872 : lu(k,1536) = lu(k,1536) - lu(k,1211) * lu(k,1522)
11216 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1212) * lu(k,1522)
11217 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1213) * lu(k,1522)
11218 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1214) * lu(k,1522)
11219 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1215) * lu(k,1522)
11220 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1216) * lu(k,1522)
11221 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1217) * lu(k,1522)
11222 114070872 : lu(k,1559) = lu(k,1559) - lu(k,1198) * lu(k,1558)
11223 114070872 : lu(k,1560) = lu(k,1560) - lu(k,1199) * lu(k,1558)
11224 114070872 : lu(k,1561) = lu(k,1561) - lu(k,1200) * lu(k,1558)
11225 114070872 : lu(k,1562) = lu(k,1562) - lu(k,1201) * lu(k,1558)
11226 114070872 : lu(k,1563) = lu(k,1563) - lu(k,1202) * lu(k,1558)
11227 114070872 : lu(k,1564) = lu(k,1564) - lu(k,1203) * lu(k,1558)
11228 114070872 : lu(k,1565) = lu(k,1565) - lu(k,1204) * lu(k,1558)
11229 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1205) * lu(k,1558)
11230 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1206) * lu(k,1558)
11231 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1207) * lu(k,1558)
11232 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1208) * lu(k,1558)
11233 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1209) * lu(k,1558)
11234 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1210) * lu(k,1558)
11235 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1211) * lu(k,1558)
11236 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1212) * lu(k,1558)
11237 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1213) * lu(k,1558)
11238 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1214) * lu(k,1558)
11239 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1215) * lu(k,1558)
11240 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1216) * lu(k,1558)
11241 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1217) * lu(k,1558)
11242 114070872 : lu(k,1604) = lu(k,1604) - lu(k,1198) * lu(k,1603)
11243 114070872 : lu(k,1605) = lu(k,1605) - lu(k,1199) * lu(k,1603)
11244 114070872 : lu(k,1606) = lu(k,1606) - lu(k,1200) * lu(k,1603)
11245 114070872 : lu(k,1607) = lu(k,1607) - lu(k,1201) * lu(k,1603)
11246 114070872 : lu(k,1608) = lu(k,1608) - lu(k,1202) * lu(k,1603)
11247 114070872 : lu(k,1609) = lu(k,1609) - lu(k,1203) * lu(k,1603)
11248 114070872 : lu(k,1610) = lu(k,1610) - lu(k,1204) * lu(k,1603)
11249 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1205) * lu(k,1603)
11250 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1206) * lu(k,1603)
11251 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1207) * lu(k,1603)
11252 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1208) * lu(k,1603)
11253 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1209) * lu(k,1603)
11254 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1210) * lu(k,1603)
11255 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1211) * lu(k,1603)
11256 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1212) * lu(k,1603)
11257 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1213) * lu(k,1603)
11258 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1214) * lu(k,1603)
11259 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1215) * lu(k,1603)
11260 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1216) * lu(k,1603)
11261 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1217) * lu(k,1603)
11262 114070872 : lu(k,1647) = lu(k,1647) - lu(k,1198) * lu(k,1646)
11263 114070872 : lu(k,1648) = lu(k,1648) - lu(k,1199) * lu(k,1646)
11264 114070872 : lu(k,1649) = lu(k,1649) - lu(k,1200) * lu(k,1646)
11265 114070872 : lu(k,1650) = lu(k,1650) - lu(k,1201) * lu(k,1646)
11266 114070872 : lu(k,1651) = lu(k,1651) - lu(k,1202) * lu(k,1646)
11267 114070872 : lu(k,1652) = lu(k,1652) - lu(k,1203) * lu(k,1646)
11268 114070872 : lu(k,1653) = lu(k,1653) - lu(k,1204) * lu(k,1646)
11269 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1205) * lu(k,1646)
11270 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1206) * lu(k,1646)
11271 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1207) * lu(k,1646)
11272 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1208) * lu(k,1646)
11273 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1209) * lu(k,1646)
11274 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1210) * lu(k,1646)
11275 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1211) * lu(k,1646)
11276 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1212) * lu(k,1646)
11277 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1213) * lu(k,1646)
11278 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1214) * lu(k,1646)
11279 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1215) * lu(k,1646)
11280 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1216) * lu(k,1646)
11281 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1217) * lu(k,1646)
11282 114070872 : lu(k,1690) = lu(k,1690) - lu(k,1198) * lu(k,1689)
11283 114070872 : lu(k,1691) = lu(k,1691) - lu(k,1199) * lu(k,1689)
11284 114070872 : lu(k,1692) = lu(k,1692) - lu(k,1200) * lu(k,1689)
11285 114070872 : lu(k,1693) = lu(k,1693) - lu(k,1201) * lu(k,1689)
11286 114070872 : lu(k,1694) = lu(k,1694) - lu(k,1202) * lu(k,1689)
11287 114070872 : lu(k,1695) = lu(k,1695) - lu(k,1203) * lu(k,1689)
11288 114070872 : lu(k,1696) = lu(k,1696) - lu(k,1204) * lu(k,1689)
11289 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1205) * lu(k,1689)
11290 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1206) * lu(k,1689)
11291 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1207) * lu(k,1689)
11292 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1208) * lu(k,1689)
11293 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1209) * lu(k,1689)
11294 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1210) * lu(k,1689)
11295 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1211) * lu(k,1689)
11296 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1212) * lu(k,1689)
11297 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1213) * lu(k,1689)
11298 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1214) * lu(k,1689)
11299 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1215) * lu(k,1689)
11300 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1216) * lu(k,1689)
11301 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1217) * lu(k,1689)
11302 114070872 : lu(k,1730) = lu(k,1730) - lu(k,1198) * lu(k,1729)
11303 114070872 : lu(k,1731) = lu(k,1731) - lu(k,1199) * lu(k,1729)
11304 114070872 : lu(k,1732) = lu(k,1732) - lu(k,1200) * lu(k,1729)
11305 114070872 : lu(k,1733) = lu(k,1733) - lu(k,1201) * lu(k,1729)
11306 114070872 : lu(k,1734) = lu(k,1734) - lu(k,1202) * lu(k,1729)
11307 114070872 : lu(k,1735) = lu(k,1735) - lu(k,1203) * lu(k,1729)
11308 114070872 : lu(k,1736) = lu(k,1736) - lu(k,1204) * lu(k,1729)
11309 114070872 : lu(k,1737) = lu(k,1737) - lu(k,1205) * lu(k,1729)
11310 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1206) * lu(k,1729)
11311 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1207) * lu(k,1729)
11312 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1208) * lu(k,1729)
11313 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1209) * lu(k,1729)
11314 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1210) * lu(k,1729)
11315 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1211) * lu(k,1729)
11316 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1212) * lu(k,1729)
11317 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1213) * lu(k,1729)
11318 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1214) * lu(k,1729)
11319 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1215) * lu(k,1729)
11320 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1216) * lu(k,1729)
11321 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1217) * lu(k,1729)
11322 114070872 : lu(k,1766) = lu(k,1766) - lu(k,1198) * lu(k,1765)
11323 114070872 : lu(k,1767) = lu(k,1767) - lu(k,1199) * lu(k,1765)
11324 114070872 : lu(k,1768) = lu(k,1768) - lu(k,1200) * lu(k,1765)
11325 114070872 : lu(k,1769) = lu(k,1769) - lu(k,1201) * lu(k,1765)
11326 114070872 : lu(k,1770) = lu(k,1770) - lu(k,1202) * lu(k,1765)
11327 114070872 : lu(k,1771) = lu(k,1771) - lu(k,1203) * lu(k,1765)
11328 114070872 : lu(k,1772) = lu(k,1772) - lu(k,1204) * lu(k,1765)
11329 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1205) * lu(k,1765)
11330 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1206) * lu(k,1765)
11331 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1207) * lu(k,1765)
11332 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1208) * lu(k,1765)
11333 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1209) * lu(k,1765)
11334 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1210) * lu(k,1765)
11335 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1211) * lu(k,1765)
11336 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1212) * lu(k,1765)
11337 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1213) * lu(k,1765)
11338 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1214) * lu(k,1765)
11339 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1215) * lu(k,1765)
11340 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1216) * lu(k,1765)
11341 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1217) * lu(k,1765)
11342 114070872 : lu(k,1814) = lu(k,1814) - lu(k,1198) * lu(k,1813)
11343 114070872 : lu(k,1815) = lu(k,1815) - lu(k,1199) * lu(k,1813)
11344 114070872 : lu(k,1816) = lu(k,1816) - lu(k,1200) * lu(k,1813)
11345 114070872 : lu(k,1817) = lu(k,1817) - lu(k,1201) * lu(k,1813)
11346 114070872 : lu(k,1818) = lu(k,1818) - lu(k,1202) * lu(k,1813)
11347 114070872 : lu(k,1819) = lu(k,1819) - lu(k,1203) * lu(k,1813)
11348 114070872 : lu(k,1820) = lu(k,1820) - lu(k,1204) * lu(k,1813)
11349 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1205) * lu(k,1813)
11350 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1206) * lu(k,1813)
11351 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1207) * lu(k,1813)
11352 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1208) * lu(k,1813)
11353 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1209) * lu(k,1813)
11354 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1210) * lu(k,1813)
11355 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1211) * lu(k,1813)
11356 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1212) * lu(k,1813)
11357 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1213) * lu(k,1813)
11358 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1214) * lu(k,1813)
11359 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1215) * lu(k,1813)
11360 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1216) * lu(k,1813)
11361 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1217) * lu(k,1813)
11362 114070872 : lu(k,1847) = lu(k,1847) - lu(k,1198) * lu(k,1846)
11363 114070872 : lu(k,1848) = lu(k,1848) - lu(k,1199) * lu(k,1846)
11364 114070872 : lu(k,1849) = lu(k,1849) - lu(k,1200) * lu(k,1846)
11365 114070872 : lu(k,1850) = lu(k,1850) - lu(k,1201) * lu(k,1846)
11366 114070872 : lu(k,1851) = lu(k,1851) - lu(k,1202) * lu(k,1846)
11367 114070872 : lu(k,1852) = lu(k,1852) - lu(k,1203) * lu(k,1846)
11368 114070872 : lu(k,1853) = lu(k,1853) - lu(k,1204) * lu(k,1846)
11369 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1205) * lu(k,1846)
11370 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1206) * lu(k,1846)
11371 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1207) * lu(k,1846)
11372 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1208) * lu(k,1846)
11373 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1209) * lu(k,1846)
11374 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1210) * lu(k,1846)
11375 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1211) * lu(k,1846)
11376 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1212) * lu(k,1846)
11377 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1213) * lu(k,1846)
11378 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1214) * lu(k,1846)
11379 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1215) * lu(k,1846)
11380 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1216) * lu(k,1846)
11381 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1217) * lu(k,1846)
11382 114070872 : lu(k,1883) = lu(k,1883) - lu(k,1198) * lu(k,1882)
11383 114070872 : lu(k,1884) = lu(k,1884) - lu(k,1199) * lu(k,1882)
11384 114070872 : lu(k,1885) = lu(k,1885) - lu(k,1200) * lu(k,1882)
11385 114070872 : lu(k,1886) = lu(k,1886) - lu(k,1201) * lu(k,1882)
11386 114070872 : lu(k,1887) = lu(k,1887) - lu(k,1202) * lu(k,1882)
11387 114070872 : lu(k,1888) = lu(k,1888) - lu(k,1203) * lu(k,1882)
11388 114070872 : lu(k,1889) = lu(k,1889) - lu(k,1204) * lu(k,1882)
11389 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1205) * lu(k,1882)
11390 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1206) * lu(k,1882)
11391 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1207) * lu(k,1882)
11392 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1208) * lu(k,1882)
11393 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1209) * lu(k,1882)
11394 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1210) * lu(k,1882)
11395 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1211) * lu(k,1882)
11396 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1212) * lu(k,1882)
11397 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1213) * lu(k,1882)
11398 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1214) * lu(k,1882)
11399 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1215) * lu(k,1882)
11400 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1216) * lu(k,1882)
11401 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1217) * lu(k,1882)
11402 114070872 : lu(k,1924) = lu(k,1924) - lu(k,1198) * lu(k,1923)
11403 114070872 : lu(k,1925) = lu(k,1925) - lu(k,1199) * lu(k,1923)
11404 114070872 : lu(k,1926) = lu(k,1926) - lu(k,1200) * lu(k,1923)
11405 114070872 : lu(k,1927) = lu(k,1927) - lu(k,1201) * lu(k,1923)
11406 114070872 : lu(k,1928) = lu(k,1928) - lu(k,1202) * lu(k,1923)
11407 114070872 : lu(k,1929) = lu(k,1929) - lu(k,1203) * lu(k,1923)
11408 114070872 : lu(k,1930) = lu(k,1930) - lu(k,1204) * lu(k,1923)
11409 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1205) * lu(k,1923)
11410 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1206) * lu(k,1923)
11411 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1207) * lu(k,1923)
11412 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1208) * lu(k,1923)
11413 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1209) * lu(k,1923)
11414 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1210) * lu(k,1923)
11415 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1211) * lu(k,1923)
11416 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1212) * lu(k,1923)
11417 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1213) * lu(k,1923)
11418 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1214) * lu(k,1923)
11419 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1215) * lu(k,1923)
11420 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1216) * lu(k,1923)
11421 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1217) * lu(k,1923)
11422 114070872 : lu(k,1966) = lu(k,1966) - lu(k,1198) * lu(k,1965)
11423 114070872 : lu(k,1967) = lu(k,1967) - lu(k,1199) * lu(k,1965)
11424 114070872 : lu(k,1968) = lu(k,1968) - lu(k,1200) * lu(k,1965)
11425 114070872 : lu(k,1969) = lu(k,1969) - lu(k,1201) * lu(k,1965)
11426 114070872 : lu(k,1970) = lu(k,1970) - lu(k,1202) * lu(k,1965)
11427 114070872 : lu(k,1971) = lu(k,1971) - lu(k,1203) * lu(k,1965)
11428 114070872 : lu(k,1972) = lu(k,1972) - lu(k,1204) * lu(k,1965)
11429 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1205) * lu(k,1965)
11430 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1206) * lu(k,1965)
11431 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1207) * lu(k,1965)
11432 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1208) * lu(k,1965)
11433 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1209) * lu(k,1965)
11434 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1210) * lu(k,1965)
11435 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1211) * lu(k,1965)
11436 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1212) * lu(k,1965)
11437 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1213) * lu(k,1965)
11438 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1214) * lu(k,1965)
11439 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1215) * lu(k,1965)
11440 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1216) * lu(k,1965)
11441 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1217) * lu(k,1965)
11442 114070872 : lu(k,2011) = lu(k,2011) - lu(k,1198) * lu(k,2010)
11443 114070872 : lu(k,2012) = lu(k,2012) - lu(k,1199) * lu(k,2010)
11444 114070872 : lu(k,2013) = lu(k,2013) - lu(k,1200) * lu(k,2010)
11445 114070872 : lu(k,2014) = lu(k,2014) - lu(k,1201) * lu(k,2010)
11446 114070872 : lu(k,2015) = lu(k,2015) - lu(k,1202) * lu(k,2010)
11447 114070872 : lu(k,2016) = lu(k,2016) - lu(k,1203) * lu(k,2010)
11448 114070872 : lu(k,2017) = lu(k,2017) - lu(k,1204) * lu(k,2010)
11449 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1205) * lu(k,2010)
11450 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1206) * lu(k,2010)
11451 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1207) * lu(k,2010)
11452 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1208) * lu(k,2010)
11453 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1209) * lu(k,2010)
11454 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1210) * lu(k,2010)
11455 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1211) * lu(k,2010)
11456 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1212) * lu(k,2010)
11457 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1213) * lu(k,2010)
11458 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1214) * lu(k,2010)
11459 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1215) * lu(k,2010)
11460 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1216) * lu(k,2010)
11461 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1217) * lu(k,2010)
11462 114070872 : lu(k,2071) = lu(k,2071) - lu(k,1198) * lu(k,2070)
11463 114070872 : lu(k,2072) = lu(k,2072) - lu(k,1199) * lu(k,2070)
11464 114070872 : lu(k,2073) = lu(k,2073) - lu(k,1200) * lu(k,2070)
11465 114070872 : lu(k,2074) = lu(k,2074) - lu(k,1201) * lu(k,2070)
11466 114070872 : lu(k,2075) = lu(k,2075) - lu(k,1202) * lu(k,2070)
11467 114070872 : lu(k,2076) = lu(k,2076) - lu(k,1203) * lu(k,2070)
11468 114070872 : lu(k,2077) = lu(k,2077) - lu(k,1204) * lu(k,2070)
11469 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1205) * lu(k,2070)
11470 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1206) * lu(k,2070)
11471 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1207) * lu(k,2070)
11472 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1208) * lu(k,2070)
11473 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1209) * lu(k,2070)
11474 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1210) * lu(k,2070)
11475 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1211) * lu(k,2070)
11476 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1212) * lu(k,2070)
11477 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1213) * lu(k,2070)
11478 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1214) * lu(k,2070)
11479 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1215) * lu(k,2070)
11480 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1216) * lu(k,2070)
11481 117656469 : lu(k,2090) = lu(k,2090) - lu(k,1217) * lu(k,2070)
11482 : end do
11483 3585597 : end subroutine lu_fac22
11484 3585597 : subroutine lu_fac23( avec_len, lu )
11485 : use chem_mods, only : nzcnt
11486 : use shr_kind_mod, only : r8 => shr_kind_r8
11487 : implicit none
11488 : !-----------------------------------------------------------------------
11489 : ! ... dummy args
11490 : !-----------------------------------------------------------------------
11491 : integer, intent(in) :: avec_len
11492 : real(r8), intent(inout) :: lu(veclen,nzcnt)
11493 : !-----------------------------------------------------------------------
11494 : ! ... local variables
11495 : !-----------------------------------------------------------------------
11496 : integer :: k
11497 117656469 : do k = 1,avec_len
11498 114070872 : lu(k,1241) = 1._r8 / lu(k,1241)
11499 114070872 : lu(k,1242) = lu(k,1242) * lu(k,1241)
11500 114070872 : lu(k,1243) = lu(k,1243) * lu(k,1241)
11501 114070872 : lu(k,1244) = lu(k,1244) * lu(k,1241)
11502 114070872 : lu(k,1245) = lu(k,1245) * lu(k,1241)
11503 114070872 : lu(k,1246) = lu(k,1246) * lu(k,1241)
11504 114070872 : lu(k,1247) = lu(k,1247) * lu(k,1241)
11505 114070872 : lu(k,1248) = lu(k,1248) * lu(k,1241)
11506 114070872 : lu(k,1249) = lu(k,1249) * lu(k,1241)
11507 114070872 : lu(k,1250) = lu(k,1250) * lu(k,1241)
11508 114070872 : lu(k,1251) = lu(k,1251) * lu(k,1241)
11509 114070872 : lu(k,1252) = lu(k,1252) * lu(k,1241)
11510 114070872 : lu(k,1253) = lu(k,1253) * lu(k,1241)
11511 114070872 : lu(k,1254) = lu(k,1254) * lu(k,1241)
11512 114070872 : lu(k,1255) = lu(k,1255) * lu(k,1241)
11513 114070872 : lu(k,1256) = lu(k,1256) * lu(k,1241)
11514 114070872 : lu(k,1257) = lu(k,1257) * lu(k,1241)
11515 114070872 : lu(k,1258) = lu(k,1258) * lu(k,1241)
11516 114070872 : lu(k,1259) = lu(k,1259) * lu(k,1241)
11517 114070872 : lu(k,1260) = lu(k,1260) * lu(k,1241)
11518 114070872 : lu(k,1284) = lu(k,1284) - lu(k,1242) * lu(k,1283)
11519 114070872 : lu(k,1285) = lu(k,1285) - lu(k,1243) * lu(k,1283)
11520 114070872 : lu(k,1286) = lu(k,1286) - lu(k,1244) * lu(k,1283)
11521 114070872 : lu(k,1287) = lu(k,1287) - lu(k,1245) * lu(k,1283)
11522 114070872 : lu(k,1288) = lu(k,1288) - lu(k,1246) * lu(k,1283)
11523 114070872 : lu(k,1289) = lu(k,1289) - lu(k,1247) * lu(k,1283)
11524 114070872 : lu(k,1290) = lu(k,1290) - lu(k,1248) * lu(k,1283)
11525 114070872 : lu(k,1291) = lu(k,1291) - lu(k,1249) * lu(k,1283)
11526 114070872 : lu(k,1292) = lu(k,1292) - lu(k,1250) * lu(k,1283)
11527 114070872 : lu(k,1293) = lu(k,1293) - lu(k,1251) * lu(k,1283)
11528 114070872 : lu(k,1294) = lu(k,1294) - lu(k,1252) * lu(k,1283)
11529 114070872 : lu(k,1295) = lu(k,1295) - lu(k,1253) * lu(k,1283)
11530 114070872 : lu(k,1296) = lu(k,1296) - lu(k,1254) * lu(k,1283)
11531 114070872 : lu(k,1297) = lu(k,1297) - lu(k,1255) * lu(k,1283)
11532 114070872 : lu(k,1298) = lu(k,1298) - lu(k,1256) * lu(k,1283)
11533 114070872 : lu(k,1299) = lu(k,1299) - lu(k,1257) * lu(k,1283)
11534 114070872 : lu(k,1300) = lu(k,1300) - lu(k,1258) * lu(k,1283)
11535 114070872 : lu(k,1301) = lu(k,1301) - lu(k,1259) * lu(k,1283)
11536 114070872 : lu(k,1302) = lu(k,1302) - lu(k,1260) * lu(k,1283)
11537 114070872 : lu(k,1326) = lu(k,1326) - lu(k,1242) * lu(k,1325)
11538 114070872 : lu(k,1327) = lu(k,1327) - lu(k,1243) * lu(k,1325)
11539 114070872 : lu(k,1328) = lu(k,1328) - lu(k,1244) * lu(k,1325)
11540 114070872 : lu(k,1329) = lu(k,1329) - lu(k,1245) * lu(k,1325)
11541 114070872 : lu(k,1330) = lu(k,1330) - lu(k,1246) * lu(k,1325)
11542 114070872 : lu(k,1331) = lu(k,1331) - lu(k,1247) * lu(k,1325)
11543 114070872 : lu(k,1332) = lu(k,1332) - lu(k,1248) * lu(k,1325)
11544 114070872 : lu(k,1333) = lu(k,1333) - lu(k,1249) * lu(k,1325)
11545 114070872 : lu(k,1334) = lu(k,1334) - lu(k,1250) * lu(k,1325)
11546 114070872 : lu(k,1335) = lu(k,1335) - lu(k,1251) * lu(k,1325)
11547 114070872 : lu(k,1336) = lu(k,1336) - lu(k,1252) * lu(k,1325)
11548 114070872 : lu(k,1337) = lu(k,1337) - lu(k,1253) * lu(k,1325)
11549 114070872 : lu(k,1338) = lu(k,1338) - lu(k,1254) * lu(k,1325)
11550 114070872 : lu(k,1339) = lu(k,1339) - lu(k,1255) * lu(k,1325)
11551 114070872 : lu(k,1340) = lu(k,1340) - lu(k,1256) * lu(k,1325)
11552 114070872 : lu(k,1341) = lu(k,1341) - lu(k,1257) * lu(k,1325)
11553 114070872 : lu(k,1342) = lu(k,1342) - lu(k,1258) * lu(k,1325)
11554 114070872 : lu(k,1343) = lu(k,1343) - lu(k,1259) * lu(k,1325)
11555 114070872 : lu(k,1344) = lu(k,1344) - lu(k,1260) * lu(k,1325)
11556 114070872 : lu(k,1386) = lu(k,1386) - lu(k,1242) * lu(k,1385)
11557 114070872 : lu(k,1387) = lu(k,1387) - lu(k,1243) * lu(k,1385)
11558 114070872 : lu(k,1388) = lu(k,1388) - lu(k,1244) * lu(k,1385)
11559 114070872 : lu(k,1389) = lu(k,1389) - lu(k,1245) * lu(k,1385)
11560 114070872 : lu(k,1390) = lu(k,1390) - lu(k,1246) * lu(k,1385)
11561 114070872 : lu(k,1391) = lu(k,1391) - lu(k,1247) * lu(k,1385)
11562 114070872 : lu(k,1392) = lu(k,1392) - lu(k,1248) * lu(k,1385)
11563 114070872 : lu(k,1393) = lu(k,1393) - lu(k,1249) * lu(k,1385)
11564 114070872 : lu(k,1394) = lu(k,1394) - lu(k,1250) * lu(k,1385)
11565 114070872 : lu(k,1395) = lu(k,1395) - lu(k,1251) * lu(k,1385)
11566 114070872 : lu(k,1396) = lu(k,1396) - lu(k,1252) * lu(k,1385)
11567 114070872 : lu(k,1397) = lu(k,1397) - lu(k,1253) * lu(k,1385)
11568 114070872 : lu(k,1398) = lu(k,1398) - lu(k,1254) * lu(k,1385)
11569 114070872 : lu(k,1399) = lu(k,1399) - lu(k,1255) * lu(k,1385)
11570 114070872 : lu(k,1400) = lu(k,1400) - lu(k,1256) * lu(k,1385)
11571 114070872 : lu(k,1401) = lu(k,1401) - lu(k,1257) * lu(k,1385)
11572 114070872 : lu(k,1402) = lu(k,1402) - lu(k,1258) * lu(k,1385)
11573 114070872 : lu(k,1403) = lu(k,1403) - lu(k,1259) * lu(k,1385)
11574 114070872 : lu(k,1404) = lu(k,1404) - lu(k,1260) * lu(k,1385)
11575 114070872 : lu(k,1435) = lu(k,1435) - lu(k,1242) * lu(k,1434)
11576 114070872 : lu(k,1436) = lu(k,1436) - lu(k,1243) * lu(k,1434)
11577 114070872 : lu(k,1437) = lu(k,1437) - lu(k,1244) * lu(k,1434)
11578 114070872 : lu(k,1438) = lu(k,1438) - lu(k,1245) * lu(k,1434)
11579 114070872 : lu(k,1439) = lu(k,1439) - lu(k,1246) * lu(k,1434)
11580 114070872 : lu(k,1440) = lu(k,1440) - lu(k,1247) * lu(k,1434)
11581 114070872 : lu(k,1441) = lu(k,1441) - lu(k,1248) * lu(k,1434)
11582 114070872 : lu(k,1442) = lu(k,1442) - lu(k,1249) * lu(k,1434)
11583 114070872 : lu(k,1443) = lu(k,1443) - lu(k,1250) * lu(k,1434)
11584 114070872 : lu(k,1444) = lu(k,1444) - lu(k,1251) * lu(k,1434)
11585 114070872 : lu(k,1445) = lu(k,1445) - lu(k,1252) * lu(k,1434)
11586 114070872 : lu(k,1446) = lu(k,1446) - lu(k,1253) * lu(k,1434)
11587 114070872 : lu(k,1447) = lu(k,1447) - lu(k,1254) * lu(k,1434)
11588 114070872 : lu(k,1448) = lu(k,1448) - lu(k,1255) * lu(k,1434)
11589 114070872 : lu(k,1449) = lu(k,1449) - lu(k,1256) * lu(k,1434)
11590 114070872 : lu(k,1450) = lu(k,1450) - lu(k,1257) * lu(k,1434)
11591 114070872 : lu(k,1451) = lu(k,1451) - lu(k,1258) * lu(k,1434)
11592 114070872 : lu(k,1452) = lu(k,1452) - lu(k,1259) * lu(k,1434)
11593 114070872 : lu(k,1453) = lu(k,1453) - lu(k,1260) * lu(k,1434)
11594 114070872 : lu(k,1483) = lu(k,1483) - lu(k,1242) * lu(k,1482)
11595 114070872 : lu(k,1484) = lu(k,1484) - lu(k,1243) * lu(k,1482)
11596 114070872 : lu(k,1485) = lu(k,1485) - lu(k,1244) * lu(k,1482)
11597 114070872 : lu(k,1486) = lu(k,1486) - lu(k,1245) * lu(k,1482)
11598 114070872 : lu(k,1487) = lu(k,1487) - lu(k,1246) * lu(k,1482)
11599 114070872 : lu(k,1488) = lu(k,1488) - lu(k,1247) * lu(k,1482)
11600 114070872 : lu(k,1489) = lu(k,1489) - lu(k,1248) * lu(k,1482)
11601 114070872 : lu(k,1490) = lu(k,1490) - lu(k,1249) * lu(k,1482)
11602 114070872 : lu(k,1491) = lu(k,1491) - lu(k,1250) * lu(k,1482)
11603 114070872 : lu(k,1492) = lu(k,1492) - lu(k,1251) * lu(k,1482)
11604 114070872 : lu(k,1493) = lu(k,1493) - lu(k,1252) * lu(k,1482)
11605 114070872 : lu(k,1494) = lu(k,1494) - lu(k,1253) * lu(k,1482)
11606 114070872 : lu(k,1495) = lu(k,1495) - lu(k,1254) * lu(k,1482)
11607 114070872 : lu(k,1496) = lu(k,1496) - lu(k,1255) * lu(k,1482)
11608 114070872 : lu(k,1497) = lu(k,1497) - lu(k,1256) * lu(k,1482)
11609 114070872 : lu(k,1498) = lu(k,1498) - lu(k,1257) * lu(k,1482)
11610 114070872 : lu(k,1499) = lu(k,1499) - lu(k,1258) * lu(k,1482)
11611 114070872 : lu(k,1500) = lu(k,1500) - lu(k,1259) * lu(k,1482)
11612 114070872 : lu(k,1501) = lu(k,1501) - lu(k,1260) * lu(k,1482)
11613 114070872 : lu(k,1524) = lu(k,1524) - lu(k,1242) * lu(k,1523)
11614 114070872 : lu(k,1525) = lu(k,1525) - lu(k,1243) * lu(k,1523)
11615 114070872 : lu(k,1526) = lu(k,1526) - lu(k,1244) * lu(k,1523)
11616 114070872 : lu(k,1527) = lu(k,1527) - lu(k,1245) * lu(k,1523)
11617 114070872 : lu(k,1528) = lu(k,1528) - lu(k,1246) * lu(k,1523)
11618 114070872 : lu(k,1529) = lu(k,1529) - lu(k,1247) * lu(k,1523)
11619 114070872 : lu(k,1530) = lu(k,1530) - lu(k,1248) * lu(k,1523)
11620 114070872 : lu(k,1531) = lu(k,1531) - lu(k,1249) * lu(k,1523)
11621 114070872 : lu(k,1532) = lu(k,1532) - lu(k,1250) * lu(k,1523)
11622 114070872 : lu(k,1533) = lu(k,1533) - lu(k,1251) * lu(k,1523)
11623 114070872 : lu(k,1534) = lu(k,1534) - lu(k,1252) * lu(k,1523)
11624 114070872 : lu(k,1535) = lu(k,1535) - lu(k,1253) * lu(k,1523)
11625 114070872 : lu(k,1536) = lu(k,1536) - lu(k,1254) * lu(k,1523)
11626 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1255) * lu(k,1523)
11627 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1256) * lu(k,1523)
11628 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1257) * lu(k,1523)
11629 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1258) * lu(k,1523)
11630 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1259) * lu(k,1523)
11631 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1260) * lu(k,1523)
11632 114070872 : lu(k,1560) = lu(k,1560) - lu(k,1242) * lu(k,1559)
11633 114070872 : lu(k,1561) = lu(k,1561) - lu(k,1243) * lu(k,1559)
11634 114070872 : lu(k,1562) = lu(k,1562) - lu(k,1244) * lu(k,1559)
11635 114070872 : lu(k,1563) = lu(k,1563) - lu(k,1245) * lu(k,1559)
11636 114070872 : lu(k,1564) = lu(k,1564) - lu(k,1246) * lu(k,1559)
11637 114070872 : lu(k,1565) = lu(k,1565) - lu(k,1247) * lu(k,1559)
11638 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1248) * lu(k,1559)
11639 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1249) * lu(k,1559)
11640 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1250) * lu(k,1559)
11641 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1251) * lu(k,1559)
11642 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1252) * lu(k,1559)
11643 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1253) * lu(k,1559)
11644 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1254) * lu(k,1559)
11645 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1255) * lu(k,1559)
11646 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1256) * lu(k,1559)
11647 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1257) * lu(k,1559)
11648 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1258) * lu(k,1559)
11649 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1259) * lu(k,1559)
11650 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1260) * lu(k,1559)
11651 114070872 : lu(k,1605) = lu(k,1605) - lu(k,1242) * lu(k,1604)
11652 114070872 : lu(k,1606) = lu(k,1606) - lu(k,1243) * lu(k,1604)
11653 114070872 : lu(k,1607) = lu(k,1607) - lu(k,1244) * lu(k,1604)
11654 114070872 : lu(k,1608) = lu(k,1608) - lu(k,1245) * lu(k,1604)
11655 114070872 : lu(k,1609) = lu(k,1609) - lu(k,1246) * lu(k,1604)
11656 114070872 : lu(k,1610) = lu(k,1610) - lu(k,1247) * lu(k,1604)
11657 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1248) * lu(k,1604)
11658 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1249) * lu(k,1604)
11659 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1250) * lu(k,1604)
11660 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1251) * lu(k,1604)
11661 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1252) * lu(k,1604)
11662 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1253) * lu(k,1604)
11663 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1254) * lu(k,1604)
11664 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1255) * lu(k,1604)
11665 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1256) * lu(k,1604)
11666 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1257) * lu(k,1604)
11667 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1258) * lu(k,1604)
11668 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1259) * lu(k,1604)
11669 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1260) * lu(k,1604)
11670 114070872 : lu(k,1648) = lu(k,1648) - lu(k,1242) * lu(k,1647)
11671 114070872 : lu(k,1649) = lu(k,1649) - lu(k,1243) * lu(k,1647)
11672 114070872 : lu(k,1650) = lu(k,1650) - lu(k,1244) * lu(k,1647)
11673 114070872 : lu(k,1651) = lu(k,1651) - lu(k,1245) * lu(k,1647)
11674 114070872 : lu(k,1652) = lu(k,1652) - lu(k,1246) * lu(k,1647)
11675 114070872 : lu(k,1653) = lu(k,1653) - lu(k,1247) * lu(k,1647)
11676 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1248) * lu(k,1647)
11677 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1249) * lu(k,1647)
11678 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1250) * lu(k,1647)
11679 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1251) * lu(k,1647)
11680 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1252) * lu(k,1647)
11681 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1253) * lu(k,1647)
11682 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1254) * lu(k,1647)
11683 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1255) * lu(k,1647)
11684 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1256) * lu(k,1647)
11685 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1257) * lu(k,1647)
11686 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1258) * lu(k,1647)
11687 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1259) * lu(k,1647)
11688 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1260) * lu(k,1647)
11689 114070872 : lu(k,1691) = lu(k,1691) - lu(k,1242) * lu(k,1690)
11690 114070872 : lu(k,1692) = lu(k,1692) - lu(k,1243) * lu(k,1690)
11691 114070872 : lu(k,1693) = lu(k,1693) - lu(k,1244) * lu(k,1690)
11692 114070872 : lu(k,1694) = lu(k,1694) - lu(k,1245) * lu(k,1690)
11693 114070872 : lu(k,1695) = lu(k,1695) - lu(k,1246) * lu(k,1690)
11694 114070872 : lu(k,1696) = lu(k,1696) - lu(k,1247) * lu(k,1690)
11695 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1248) * lu(k,1690)
11696 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1249) * lu(k,1690)
11697 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1250) * lu(k,1690)
11698 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1251) * lu(k,1690)
11699 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1252) * lu(k,1690)
11700 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1253) * lu(k,1690)
11701 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1254) * lu(k,1690)
11702 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1255) * lu(k,1690)
11703 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1256) * lu(k,1690)
11704 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1257) * lu(k,1690)
11705 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1258) * lu(k,1690)
11706 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1259) * lu(k,1690)
11707 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1260) * lu(k,1690)
11708 114070872 : lu(k,1731) = lu(k,1731) - lu(k,1242) * lu(k,1730)
11709 114070872 : lu(k,1732) = lu(k,1732) - lu(k,1243) * lu(k,1730)
11710 114070872 : lu(k,1733) = lu(k,1733) - lu(k,1244) * lu(k,1730)
11711 114070872 : lu(k,1734) = lu(k,1734) - lu(k,1245) * lu(k,1730)
11712 114070872 : lu(k,1735) = lu(k,1735) - lu(k,1246) * lu(k,1730)
11713 114070872 : lu(k,1736) = lu(k,1736) - lu(k,1247) * lu(k,1730)
11714 114070872 : lu(k,1737) = lu(k,1737) - lu(k,1248) * lu(k,1730)
11715 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1249) * lu(k,1730)
11716 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1250) * lu(k,1730)
11717 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1251) * lu(k,1730)
11718 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1252) * lu(k,1730)
11719 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1253) * lu(k,1730)
11720 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1254) * lu(k,1730)
11721 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1255) * lu(k,1730)
11722 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1256) * lu(k,1730)
11723 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1257) * lu(k,1730)
11724 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1258) * lu(k,1730)
11725 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1259) * lu(k,1730)
11726 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1260) * lu(k,1730)
11727 114070872 : lu(k,1767) = lu(k,1767) - lu(k,1242) * lu(k,1766)
11728 114070872 : lu(k,1768) = lu(k,1768) - lu(k,1243) * lu(k,1766)
11729 114070872 : lu(k,1769) = lu(k,1769) - lu(k,1244) * lu(k,1766)
11730 114070872 : lu(k,1770) = lu(k,1770) - lu(k,1245) * lu(k,1766)
11731 114070872 : lu(k,1771) = lu(k,1771) - lu(k,1246) * lu(k,1766)
11732 114070872 : lu(k,1772) = lu(k,1772) - lu(k,1247) * lu(k,1766)
11733 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1248) * lu(k,1766)
11734 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1249) * lu(k,1766)
11735 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1250) * lu(k,1766)
11736 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1251) * lu(k,1766)
11737 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1252) * lu(k,1766)
11738 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1253) * lu(k,1766)
11739 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1254) * lu(k,1766)
11740 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1255) * lu(k,1766)
11741 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1256) * lu(k,1766)
11742 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1257) * lu(k,1766)
11743 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1258) * lu(k,1766)
11744 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1259) * lu(k,1766)
11745 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1260) * lu(k,1766)
11746 114070872 : lu(k,1815) = lu(k,1815) - lu(k,1242) * lu(k,1814)
11747 114070872 : lu(k,1816) = lu(k,1816) - lu(k,1243) * lu(k,1814)
11748 114070872 : lu(k,1817) = lu(k,1817) - lu(k,1244) * lu(k,1814)
11749 114070872 : lu(k,1818) = lu(k,1818) - lu(k,1245) * lu(k,1814)
11750 114070872 : lu(k,1819) = lu(k,1819) - lu(k,1246) * lu(k,1814)
11751 114070872 : lu(k,1820) = lu(k,1820) - lu(k,1247) * lu(k,1814)
11752 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1248) * lu(k,1814)
11753 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1249) * lu(k,1814)
11754 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1250) * lu(k,1814)
11755 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1251) * lu(k,1814)
11756 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1252) * lu(k,1814)
11757 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1253) * lu(k,1814)
11758 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1254) * lu(k,1814)
11759 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1255) * lu(k,1814)
11760 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1256) * lu(k,1814)
11761 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1257) * lu(k,1814)
11762 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1258) * lu(k,1814)
11763 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1259) * lu(k,1814)
11764 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1260) * lu(k,1814)
11765 114070872 : lu(k,1848) = lu(k,1848) - lu(k,1242) * lu(k,1847)
11766 114070872 : lu(k,1849) = lu(k,1849) - lu(k,1243) * lu(k,1847)
11767 114070872 : lu(k,1850) = lu(k,1850) - lu(k,1244) * lu(k,1847)
11768 114070872 : lu(k,1851) = lu(k,1851) - lu(k,1245) * lu(k,1847)
11769 114070872 : lu(k,1852) = lu(k,1852) - lu(k,1246) * lu(k,1847)
11770 114070872 : lu(k,1853) = lu(k,1853) - lu(k,1247) * lu(k,1847)
11771 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1248) * lu(k,1847)
11772 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1249) * lu(k,1847)
11773 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1250) * lu(k,1847)
11774 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1251) * lu(k,1847)
11775 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1252) * lu(k,1847)
11776 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1253) * lu(k,1847)
11777 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1254) * lu(k,1847)
11778 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1255) * lu(k,1847)
11779 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1256) * lu(k,1847)
11780 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1257) * lu(k,1847)
11781 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1258) * lu(k,1847)
11782 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1259) * lu(k,1847)
11783 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1260) * lu(k,1847)
11784 114070872 : lu(k,1884) = lu(k,1884) - lu(k,1242) * lu(k,1883)
11785 114070872 : lu(k,1885) = lu(k,1885) - lu(k,1243) * lu(k,1883)
11786 114070872 : lu(k,1886) = lu(k,1886) - lu(k,1244) * lu(k,1883)
11787 114070872 : lu(k,1887) = lu(k,1887) - lu(k,1245) * lu(k,1883)
11788 114070872 : lu(k,1888) = lu(k,1888) - lu(k,1246) * lu(k,1883)
11789 114070872 : lu(k,1889) = lu(k,1889) - lu(k,1247) * lu(k,1883)
11790 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1248) * lu(k,1883)
11791 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1249) * lu(k,1883)
11792 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1250) * lu(k,1883)
11793 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1251) * lu(k,1883)
11794 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1252) * lu(k,1883)
11795 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1253) * lu(k,1883)
11796 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1254) * lu(k,1883)
11797 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1255) * lu(k,1883)
11798 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1256) * lu(k,1883)
11799 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1257) * lu(k,1883)
11800 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1258) * lu(k,1883)
11801 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1259) * lu(k,1883)
11802 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1260) * lu(k,1883)
11803 114070872 : lu(k,1925) = lu(k,1925) - lu(k,1242) * lu(k,1924)
11804 114070872 : lu(k,1926) = lu(k,1926) - lu(k,1243) * lu(k,1924)
11805 114070872 : lu(k,1927) = lu(k,1927) - lu(k,1244) * lu(k,1924)
11806 114070872 : lu(k,1928) = lu(k,1928) - lu(k,1245) * lu(k,1924)
11807 114070872 : lu(k,1929) = lu(k,1929) - lu(k,1246) * lu(k,1924)
11808 114070872 : lu(k,1930) = lu(k,1930) - lu(k,1247) * lu(k,1924)
11809 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1248) * lu(k,1924)
11810 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1249) * lu(k,1924)
11811 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1250) * lu(k,1924)
11812 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1251) * lu(k,1924)
11813 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1252) * lu(k,1924)
11814 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1253) * lu(k,1924)
11815 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1254) * lu(k,1924)
11816 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1255) * lu(k,1924)
11817 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1256) * lu(k,1924)
11818 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1257) * lu(k,1924)
11819 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1258) * lu(k,1924)
11820 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1259) * lu(k,1924)
11821 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1260) * lu(k,1924)
11822 114070872 : lu(k,1967) = lu(k,1967) - lu(k,1242) * lu(k,1966)
11823 114070872 : lu(k,1968) = lu(k,1968) - lu(k,1243) * lu(k,1966)
11824 114070872 : lu(k,1969) = lu(k,1969) - lu(k,1244) * lu(k,1966)
11825 114070872 : lu(k,1970) = lu(k,1970) - lu(k,1245) * lu(k,1966)
11826 114070872 : lu(k,1971) = lu(k,1971) - lu(k,1246) * lu(k,1966)
11827 114070872 : lu(k,1972) = lu(k,1972) - lu(k,1247) * lu(k,1966)
11828 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1248) * lu(k,1966)
11829 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1249) * lu(k,1966)
11830 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1250) * lu(k,1966)
11831 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1251) * lu(k,1966)
11832 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1252) * lu(k,1966)
11833 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1253) * lu(k,1966)
11834 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1254) * lu(k,1966)
11835 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1255) * lu(k,1966)
11836 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1256) * lu(k,1966)
11837 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1257) * lu(k,1966)
11838 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1258) * lu(k,1966)
11839 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1259) * lu(k,1966)
11840 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1260) * lu(k,1966)
11841 114070872 : lu(k,2012) = lu(k,2012) - lu(k,1242) * lu(k,2011)
11842 114070872 : lu(k,2013) = lu(k,2013) - lu(k,1243) * lu(k,2011)
11843 114070872 : lu(k,2014) = lu(k,2014) - lu(k,1244) * lu(k,2011)
11844 114070872 : lu(k,2015) = lu(k,2015) - lu(k,1245) * lu(k,2011)
11845 114070872 : lu(k,2016) = lu(k,2016) - lu(k,1246) * lu(k,2011)
11846 114070872 : lu(k,2017) = lu(k,2017) - lu(k,1247) * lu(k,2011)
11847 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1248) * lu(k,2011)
11848 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1249) * lu(k,2011)
11849 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1250) * lu(k,2011)
11850 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1251) * lu(k,2011)
11851 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1252) * lu(k,2011)
11852 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1253) * lu(k,2011)
11853 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1254) * lu(k,2011)
11854 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1255) * lu(k,2011)
11855 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1256) * lu(k,2011)
11856 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1257) * lu(k,2011)
11857 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1258) * lu(k,2011)
11858 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1259) * lu(k,2011)
11859 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1260) * lu(k,2011)
11860 114070872 : lu(k,2072) = lu(k,2072) - lu(k,1242) * lu(k,2071)
11861 114070872 : lu(k,2073) = lu(k,2073) - lu(k,1243) * lu(k,2071)
11862 114070872 : lu(k,2074) = lu(k,2074) - lu(k,1244) * lu(k,2071)
11863 114070872 : lu(k,2075) = lu(k,2075) - lu(k,1245) * lu(k,2071)
11864 114070872 : lu(k,2076) = lu(k,2076) - lu(k,1246) * lu(k,2071)
11865 114070872 : lu(k,2077) = lu(k,2077) - lu(k,1247) * lu(k,2071)
11866 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1248) * lu(k,2071)
11867 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1249) * lu(k,2071)
11868 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1250) * lu(k,2071)
11869 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1251) * lu(k,2071)
11870 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1252) * lu(k,2071)
11871 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1253) * lu(k,2071)
11872 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1254) * lu(k,2071)
11873 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1255) * lu(k,2071)
11874 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1256) * lu(k,2071)
11875 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1257) * lu(k,2071)
11876 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1258) * lu(k,2071)
11877 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1259) * lu(k,2071)
11878 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1260) * lu(k,2071)
11879 114070872 : lu(k,1284) = 1._r8 / lu(k,1284)
11880 114070872 : lu(k,1285) = lu(k,1285) * lu(k,1284)
11881 114070872 : lu(k,1286) = lu(k,1286) * lu(k,1284)
11882 114070872 : lu(k,1287) = lu(k,1287) * lu(k,1284)
11883 114070872 : lu(k,1288) = lu(k,1288) * lu(k,1284)
11884 114070872 : lu(k,1289) = lu(k,1289) * lu(k,1284)
11885 114070872 : lu(k,1290) = lu(k,1290) * lu(k,1284)
11886 114070872 : lu(k,1291) = lu(k,1291) * lu(k,1284)
11887 114070872 : lu(k,1292) = lu(k,1292) * lu(k,1284)
11888 114070872 : lu(k,1293) = lu(k,1293) * lu(k,1284)
11889 114070872 : lu(k,1294) = lu(k,1294) * lu(k,1284)
11890 114070872 : lu(k,1295) = lu(k,1295) * lu(k,1284)
11891 114070872 : lu(k,1296) = lu(k,1296) * lu(k,1284)
11892 114070872 : lu(k,1297) = lu(k,1297) * lu(k,1284)
11893 114070872 : lu(k,1298) = lu(k,1298) * lu(k,1284)
11894 114070872 : lu(k,1299) = lu(k,1299) * lu(k,1284)
11895 114070872 : lu(k,1300) = lu(k,1300) * lu(k,1284)
11896 114070872 : lu(k,1301) = lu(k,1301) * lu(k,1284)
11897 114070872 : lu(k,1302) = lu(k,1302) * lu(k,1284)
11898 114070872 : lu(k,1327) = lu(k,1327) - lu(k,1285) * lu(k,1326)
11899 114070872 : lu(k,1328) = lu(k,1328) - lu(k,1286) * lu(k,1326)
11900 114070872 : lu(k,1329) = lu(k,1329) - lu(k,1287) * lu(k,1326)
11901 114070872 : lu(k,1330) = lu(k,1330) - lu(k,1288) * lu(k,1326)
11902 114070872 : lu(k,1331) = lu(k,1331) - lu(k,1289) * lu(k,1326)
11903 114070872 : lu(k,1332) = lu(k,1332) - lu(k,1290) * lu(k,1326)
11904 114070872 : lu(k,1333) = lu(k,1333) - lu(k,1291) * lu(k,1326)
11905 114070872 : lu(k,1334) = lu(k,1334) - lu(k,1292) * lu(k,1326)
11906 114070872 : lu(k,1335) = lu(k,1335) - lu(k,1293) * lu(k,1326)
11907 114070872 : lu(k,1336) = lu(k,1336) - lu(k,1294) * lu(k,1326)
11908 114070872 : lu(k,1337) = lu(k,1337) - lu(k,1295) * lu(k,1326)
11909 114070872 : lu(k,1338) = lu(k,1338) - lu(k,1296) * lu(k,1326)
11910 114070872 : lu(k,1339) = lu(k,1339) - lu(k,1297) * lu(k,1326)
11911 114070872 : lu(k,1340) = lu(k,1340) - lu(k,1298) * lu(k,1326)
11912 114070872 : lu(k,1341) = lu(k,1341) - lu(k,1299) * lu(k,1326)
11913 114070872 : lu(k,1342) = lu(k,1342) - lu(k,1300) * lu(k,1326)
11914 114070872 : lu(k,1343) = lu(k,1343) - lu(k,1301) * lu(k,1326)
11915 114070872 : lu(k,1344) = lu(k,1344) - lu(k,1302) * lu(k,1326)
11916 114070872 : lu(k,1387) = lu(k,1387) - lu(k,1285) * lu(k,1386)
11917 114070872 : lu(k,1388) = lu(k,1388) - lu(k,1286) * lu(k,1386)
11918 114070872 : lu(k,1389) = lu(k,1389) - lu(k,1287) * lu(k,1386)
11919 114070872 : lu(k,1390) = lu(k,1390) - lu(k,1288) * lu(k,1386)
11920 114070872 : lu(k,1391) = lu(k,1391) - lu(k,1289) * lu(k,1386)
11921 114070872 : lu(k,1392) = lu(k,1392) - lu(k,1290) * lu(k,1386)
11922 114070872 : lu(k,1393) = lu(k,1393) - lu(k,1291) * lu(k,1386)
11923 114070872 : lu(k,1394) = lu(k,1394) - lu(k,1292) * lu(k,1386)
11924 114070872 : lu(k,1395) = lu(k,1395) - lu(k,1293) * lu(k,1386)
11925 114070872 : lu(k,1396) = lu(k,1396) - lu(k,1294) * lu(k,1386)
11926 114070872 : lu(k,1397) = lu(k,1397) - lu(k,1295) * lu(k,1386)
11927 114070872 : lu(k,1398) = lu(k,1398) - lu(k,1296) * lu(k,1386)
11928 114070872 : lu(k,1399) = lu(k,1399) - lu(k,1297) * lu(k,1386)
11929 114070872 : lu(k,1400) = lu(k,1400) - lu(k,1298) * lu(k,1386)
11930 114070872 : lu(k,1401) = lu(k,1401) - lu(k,1299) * lu(k,1386)
11931 114070872 : lu(k,1402) = lu(k,1402) - lu(k,1300) * lu(k,1386)
11932 114070872 : lu(k,1403) = lu(k,1403) - lu(k,1301) * lu(k,1386)
11933 114070872 : lu(k,1404) = lu(k,1404) - lu(k,1302) * lu(k,1386)
11934 114070872 : lu(k,1436) = lu(k,1436) - lu(k,1285) * lu(k,1435)
11935 114070872 : lu(k,1437) = lu(k,1437) - lu(k,1286) * lu(k,1435)
11936 114070872 : lu(k,1438) = lu(k,1438) - lu(k,1287) * lu(k,1435)
11937 114070872 : lu(k,1439) = lu(k,1439) - lu(k,1288) * lu(k,1435)
11938 114070872 : lu(k,1440) = lu(k,1440) - lu(k,1289) * lu(k,1435)
11939 114070872 : lu(k,1441) = lu(k,1441) - lu(k,1290) * lu(k,1435)
11940 114070872 : lu(k,1442) = lu(k,1442) - lu(k,1291) * lu(k,1435)
11941 114070872 : lu(k,1443) = lu(k,1443) - lu(k,1292) * lu(k,1435)
11942 114070872 : lu(k,1444) = lu(k,1444) - lu(k,1293) * lu(k,1435)
11943 114070872 : lu(k,1445) = lu(k,1445) - lu(k,1294) * lu(k,1435)
11944 114070872 : lu(k,1446) = lu(k,1446) - lu(k,1295) * lu(k,1435)
11945 114070872 : lu(k,1447) = lu(k,1447) - lu(k,1296) * lu(k,1435)
11946 114070872 : lu(k,1448) = lu(k,1448) - lu(k,1297) * lu(k,1435)
11947 114070872 : lu(k,1449) = lu(k,1449) - lu(k,1298) * lu(k,1435)
11948 114070872 : lu(k,1450) = lu(k,1450) - lu(k,1299) * lu(k,1435)
11949 114070872 : lu(k,1451) = lu(k,1451) - lu(k,1300) * lu(k,1435)
11950 114070872 : lu(k,1452) = lu(k,1452) - lu(k,1301) * lu(k,1435)
11951 114070872 : lu(k,1453) = lu(k,1453) - lu(k,1302) * lu(k,1435)
11952 114070872 : lu(k,1484) = lu(k,1484) - lu(k,1285) * lu(k,1483)
11953 114070872 : lu(k,1485) = lu(k,1485) - lu(k,1286) * lu(k,1483)
11954 114070872 : lu(k,1486) = lu(k,1486) - lu(k,1287) * lu(k,1483)
11955 114070872 : lu(k,1487) = lu(k,1487) - lu(k,1288) * lu(k,1483)
11956 114070872 : lu(k,1488) = lu(k,1488) - lu(k,1289) * lu(k,1483)
11957 114070872 : lu(k,1489) = lu(k,1489) - lu(k,1290) * lu(k,1483)
11958 114070872 : lu(k,1490) = lu(k,1490) - lu(k,1291) * lu(k,1483)
11959 114070872 : lu(k,1491) = lu(k,1491) - lu(k,1292) * lu(k,1483)
11960 114070872 : lu(k,1492) = lu(k,1492) - lu(k,1293) * lu(k,1483)
11961 114070872 : lu(k,1493) = lu(k,1493) - lu(k,1294) * lu(k,1483)
11962 114070872 : lu(k,1494) = lu(k,1494) - lu(k,1295) * lu(k,1483)
11963 114070872 : lu(k,1495) = lu(k,1495) - lu(k,1296) * lu(k,1483)
11964 114070872 : lu(k,1496) = lu(k,1496) - lu(k,1297) * lu(k,1483)
11965 114070872 : lu(k,1497) = lu(k,1497) - lu(k,1298) * lu(k,1483)
11966 114070872 : lu(k,1498) = lu(k,1498) - lu(k,1299) * lu(k,1483)
11967 114070872 : lu(k,1499) = lu(k,1499) - lu(k,1300) * lu(k,1483)
11968 114070872 : lu(k,1500) = lu(k,1500) - lu(k,1301) * lu(k,1483)
11969 114070872 : lu(k,1501) = lu(k,1501) - lu(k,1302) * lu(k,1483)
11970 114070872 : lu(k,1525) = lu(k,1525) - lu(k,1285) * lu(k,1524)
11971 114070872 : lu(k,1526) = lu(k,1526) - lu(k,1286) * lu(k,1524)
11972 114070872 : lu(k,1527) = lu(k,1527) - lu(k,1287) * lu(k,1524)
11973 114070872 : lu(k,1528) = lu(k,1528) - lu(k,1288) * lu(k,1524)
11974 114070872 : lu(k,1529) = lu(k,1529) - lu(k,1289) * lu(k,1524)
11975 114070872 : lu(k,1530) = lu(k,1530) - lu(k,1290) * lu(k,1524)
11976 114070872 : lu(k,1531) = lu(k,1531) - lu(k,1291) * lu(k,1524)
11977 114070872 : lu(k,1532) = lu(k,1532) - lu(k,1292) * lu(k,1524)
11978 114070872 : lu(k,1533) = lu(k,1533) - lu(k,1293) * lu(k,1524)
11979 114070872 : lu(k,1534) = lu(k,1534) - lu(k,1294) * lu(k,1524)
11980 114070872 : lu(k,1535) = lu(k,1535) - lu(k,1295) * lu(k,1524)
11981 114070872 : lu(k,1536) = lu(k,1536) - lu(k,1296) * lu(k,1524)
11982 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1297) * lu(k,1524)
11983 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1298) * lu(k,1524)
11984 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1299) * lu(k,1524)
11985 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1300) * lu(k,1524)
11986 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1301) * lu(k,1524)
11987 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1302) * lu(k,1524)
11988 114070872 : lu(k,1561) = lu(k,1561) - lu(k,1285) * lu(k,1560)
11989 114070872 : lu(k,1562) = lu(k,1562) - lu(k,1286) * lu(k,1560)
11990 114070872 : lu(k,1563) = lu(k,1563) - lu(k,1287) * lu(k,1560)
11991 114070872 : lu(k,1564) = lu(k,1564) - lu(k,1288) * lu(k,1560)
11992 114070872 : lu(k,1565) = lu(k,1565) - lu(k,1289) * lu(k,1560)
11993 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1290) * lu(k,1560)
11994 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1291) * lu(k,1560)
11995 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1292) * lu(k,1560)
11996 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1293) * lu(k,1560)
11997 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1294) * lu(k,1560)
11998 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1295) * lu(k,1560)
11999 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1296) * lu(k,1560)
12000 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1297) * lu(k,1560)
12001 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1298) * lu(k,1560)
12002 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1299) * lu(k,1560)
12003 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1300) * lu(k,1560)
12004 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1301) * lu(k,1560)
12005 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1302) * lu(k,1560)
12006 114070872 : lu(k,1606) = lu(k,1606) - lu(k,1285) * lu(k,1605)
12007 114070872 : lu(k,1607) = lu(k,1607) - lu(k,1286) * lu(k,1605)
12008 114070872 : lu(k,1608) = lu(k,1608) - lu(k,1287) * lu(k,1605)
12009 114070872 : lu(k,1609) = lu(k,1609) - lu(k,1288) * lu(k,1605)
12010 114070872 : lu(k,1610) = lu(k,1610) - lu(k,1289) * lu(k,1605)
12011 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1290) * lu(k,1605)
12012 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1291) * lu(k,1605)
12013 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1292) * lu(k,1605)
12014 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1293) * lu(k,1605)
12015 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1294) * lu(k,1605)
12016 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1295) * lu(k,1605)
12017 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1296) * lu(k,1605)
12018 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1297) * lu(k,1605)
12019 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1298) * lu(k,1605)
12020 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1299) * lu(k,1605)
12021 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1300) * lu(k,1605)
12022 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1301) * lu(k,1605)
12023 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1302) * lu(k,1605)
12024 114070872 : lu(k,1649) = lu(k,1649) - lu(k,1285) * lu(k,1648)
12025 114070872 : lu(k,1650) = lu(k,1650) - lu(k,1286) * lu(k,1648)
12026 114070872 : lu(k,1651) = lu(k,1651) - lu(k,1287) * lu(k,1648)
12027 114070872 : lu(k,1652) = lu(k,1652) - lu(k,1288) * lu(k,1648)
12028 114070872 : lu(k,1653) = lu(k,1653) - lu(k,1289) * lu(k,1648)
12029 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1290) * lu(k,1648)
12030 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1291) * lu(k,1648)
12031 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1292) * lu(k,1648)
12032 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1293) * lu(k,1648)
12033 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1294) * lu(k,1648)
12034 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1295) * lu(k,1648)
12035 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1296) * lu(k,1648)
12036 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1297) * lu(k,1648)
12037 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1298) * lu(k,1648)
12038 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1299) * lu(k,1648)
12039 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1300) * lu(k,1648)
12040 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1301) * lu(k,1648)
12041 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1302) * lu(k,1648)
12042 114070872 : lu(k,1692) = lu(k,1692) - lu(k,1285) * lu(k,1691)
12043 114070872 : lu(k,1693) = lu(k,1693) - lu(k,1286) * lu(k,1691)
12044 114070872 : lu(k,1694) = lu(k,1694) - lu(k,1287) * lu(k,1691)
12045 114070872 : lu(k,1695) = lu(k,1695) - lu(k,1288) * lu(k,1691)
12046 114070872 : lu(k,1696) = lu(k,1696) - lu(k,1289) * lu(k,1691)
12047 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1290) * lu(k,1691)
12048 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1291) * lu(k,1691)
12049 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1292) * lu(k,1691)
12050 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1293) * lu(k,1691)
12051 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1294) * lu(k,1691)
12052 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1295) * lu(k,1691)
12053 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1296) * lu(k,1691)
12054 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1297) * lu(k,1691)
12055 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1298) * lu(k,1691)
12056 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1299) * lu(k,1691)
12057 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1300) * lu(k,1691)
12058 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1301) * lu(k,1691)
12059 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1302) * lu(k,1691)
12060 114070872 : lu(k,1732) = lu(k,1732) - lu(k,1285) * lu(k,1731)
12061 114070872 : lu(k,1733) = lu(k,1733) - lu(k,1286) * lu(k,1731)
12062 114070872 : lu(k,1734) = lu(k,1734) - lu(k,1287) * lu(k,1731)
12063 114070872 : lu(k,1735) = lu(k,1735) - lu(k,1288) * lu(k,1731)
12064 114070872 : lu(k,1736) = lu(k,1736) - lu(k,1289) * lu(k,1731)
12065 114070872 : lu(k,1737) = lu(k,1737) - lu(k,1290) * lu(k,1731)
12066 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1291) * lu(k,1731)
12067 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1292) * lu(k,1731)
12068 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1293) * lu(k,1731)
12069 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1294) * lu(k,1731)
12070 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1295) * lu(k,1731)
12071 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1296) * lu(k,1731)
12072 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1297) * lu(k,1731)
12073 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1298) * lu(k,1731)
12074 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1299) * lu(k,1731)
12075 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1300) * lu(k,1731)
12076 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1301) * lu(k,1731)
12077 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1302) * lu(k,1731)
12078 114070872 : lu(k,1768) = lu(k,1768) - lu(k,1285) * lu(k,1767)
12079 114070872 : lu(k,1769) = lu(k,1769) - lu(k,1286) * lu(k,1767)
12080 114070872 : lu(k,1770) = lu(k,1770) - lu(k,1287) * lu(k,1767)
12081 114070872 : lu(k,1771) = lu(k,1771) - lu(k,1288) * lu(k,1767)
12082 114070872 : lu(k,1772) = lu(k,1772) - lu(k,1289) * lu(k,1767)
12083 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1290) * lu(k,1767)
12084 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1291) * lu(k,1767)
12085 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1292) * lu(k,1767)
12086 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1293) * lu(k,1767)
12087 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1294) * lu(k,1767)
12088 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1295) * lu(k,1767)
12089 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1296) * lu(k,1767)
12090 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1297) * lu(k,1767)
12091 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1298) * lu(k,1767)
12092 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1299) * lu(k,1767)
12093 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1300) * lu(k,1767)
12094 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1301) * lu(k,1767)
12095 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1302) * lu(k,1767)
12096 114070872 : lu(k,1816) = lu(k,1816) - lu(k,1285) * lu(k,1815)
12097 114070872 : lu(k,1817) = lu(k,1817) - lu(k,1286) * lu(k,1815)
12098 114070872 : lu(k,1818) = lu(k,1818) - lu(k,1287) * lu(k,1815)
12099 114070872 : lu(k,1819) = lu(k,1819) - lu(k,1288) * lu(k,1815)
12100 114070872 : lu(k,1820) = lu(k,1820) - lu(k,1289) * lu(k,1815)
12101 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1290) * lu(k,1815)
12102 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1291) * lu(k,1815)
12103 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1292) * lu(k,1815)
12104 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1293) * lu(k,1815)
12105 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1294) * lu(k,1815)
12106 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1295) * lu(k,1815)
12107 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1296) * lu(k,1815)
12108 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1297) * lu(k,1815)
12109 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1298) * lu(k,1815)
12110 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1299) * lu(k,1815)
12111 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1300) * lu(k,1815)
12112 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1301) * lu(k,1815)
12113 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1302) * lu(k,1815)
12114 114070872 : lu(k,1849) = lu(k,1849) - lu(k,1285) * lu(k,1848)
12115 114070872 : lu(k,1850) = lu(k,1850) - lu(k,1286) * lu(k,1848)
12116 114070872 : lu(k,1851) = lu(k,1851) - lu(k,1287) * lu(k,1848)
12117 114070872 : lu(k,1852) = lu(k,1852) - lu(k,1288) * lu(k,1848)
12118 114070872 : lu(k,1853) = lu(k,1853) - lu(k,1289) * lu(k,1848)
12119 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1290) * lu(k,1848)
12120 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1291) * lu(k,1848)
12121 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1292) * lu(k,1848)
12122 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1293) * lu(k,1848)
12123 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1294) * lu(k,1848)
12124 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1295) * lu(k,1848)
12125 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1296) * lu(k,1848)
12126 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1297) * lu(k,1848)
12127 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1298) * lu(k,1848)
12128 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1299) * lu(k,1848)
12129 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1300) * lu(k,1848)
12130 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1301) * lu(k,1848)
12131 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1302) * lu(k,1848)
12132 114070872 : lu(k,1885) = lu(k,1885) - lu(k,1285) * lu(k,1884)
12133 114070872 : lu(k,1886) = lu(k,1886) - lu(k,1286) * lu(k,1884)
12134 114070872 : lu(k,1887) = lu(k,1887) - lu(k,1287) * lu(k,1884)
12135 114070872 : lu(k,1888) = lu(k,1888) - lu(k,1288) * lu(k,1884)
12136 114070872 : lu(k,1889) = lu(k,1889) - lu(k,1289) * lu(k,1884)
12137 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1290) * lu(k,1884)
12138 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1291) * lu(k,1884)
12139 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1292) * lu(k,1884)
12140 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1293) * lu(k,1884)
12141 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1294) * lu(k,1884)
12142 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1295) * lu(k,1884)
12143 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1296) * lu(k,1884)
12144 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1297) * lu(k,1884)
12145 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1298) * lu(k,1884)
12146 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1299) * lu(k,1884)
12147 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1300) * lu(k,1884)
12148 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1301) * lu(k,1884)
12149 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1302) * lu(k,1884)
12150 114070872 : lu(k,1926) = lu(k,1926) - lu(k,1285) * lu(k,1925)
12151 114070872 : lu(k,1927) = lu(k,1927) - lu(k,1286) * lu(k,1925)
12152 114070872 : lu(k,1928) = lu(k,1928) - lu(k,1287) * lu(k,1925)
12153 114070872 : lu(k,1929) = lu(k,1929) - lu(k,1288) * lu(k,1925)
12154 114070872 : lu(k,1930) = lu(k,1930) - lu(k,1289) * lu(k,1925)
12155 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1290) * lu(k,1925)
12156 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1291) * lu(k,1925)
12157 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1292) * lu(k,1925)
12158 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1293) * lu(k,1925)
12159 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1294) * lu(k,1925)
12160 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1295) * lu(k,1925)
12161 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1296) * lu(k,1925)
12162 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1297) * lu(k,1925)
12163 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1298) * lu(k,1925)
12164 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1299) * lu(k,1925)
12165 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1300) * lu(k,1925)
12166 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1301) * lu(k,1925)
12167 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1302) * lu(k,1925)
12168 114070872 : lu(k,1968) = lu(k,1968) - lu(k,1285) * lu(k,1967)
12169 114070872 : lu(k,1969) = lu(k,1969) - lu(k,1286) * lu(k,1967)
12170 114070872 : lu(k,1970) = lu(k,1970) - lu(k,1287) * lu(k,1967)
12171 114070872 : lu(k,1971) = lu(k,1971) - lu(k,1288) * lu(k,1967)
12172 114070872 : lu(k,1972) = lu(k,1972) - lu(k,1289) * lu(k,1967)
12173 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1290) * lu(k,1967)
12174 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1291) * lu(k,1967)
12175 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1292) * lu(k,1967)
12176 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1293) * lu(k,1967)
12177 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1294) * lu(k,1967)
12178 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1295) * lu(k,1967)
12179 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1296) * lu(k,1967)
12180 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1297) * lu(k,1967)
12181 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1298) * lu(k,1967)
12182 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1299) * lu(k,1967)
12183 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1300) * lu(k,1967)
12184 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1301) * lu(k,1967)
12185 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1302) * lu(k,1967)
12186 114070872 : lu(k,2013) = lu(k,2013) - lu(k,1285) * lu(k,2012)
12187 114070872 : lu(k,2014) = lu(k,2014) - lu(k,1286) * lu(k,2012)
12188 114070872 : lu(k,2015) = lu(k,2015) - lu(k,1287) * lu(k,2012)
12189 114070872 : lu(k,2016) = lu(k,2016) - lu(k,1288) * lu(k,2012)
12190 114070872 : lu(k,2017) = lu(k,2017) - lu(k,1289) * lu(k,2012)
12191 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1290) * lu(k,2012)
12192 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1291) * lu(k,2012)
12193 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1292) * lu(k,2012)
12194 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1293) * lu(k,2012)
12195 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1294) * lu(k,2012)
12196 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1295) * lu(k,2012)
12197 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1296) * lu(k,2012)
12198 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1297) * lu(k,2012)
12199 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1298) * lu(k,2012)
12200 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1299) * lu(k,2012)
12201 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1300) * lu(k,2012)
12202 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1301) * lu(k,2012)
12203 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1302) * lu(k,2012)
12204 114070872 : lu(k,2073) = lu(k,2073) - lu(k,1285) * lu(k,2072)
12205 114070872 : lu(k,2074) = lu(k,2074) - lu(k,1286) * lu(k,2072)
12206 114070872 : lu(k,2075) = lu(k,2075) - lu(k,1287) * lu(k,2072)
12207 114070872 : lu(k,2076) = lu(k,2076) - lu(k,1288) * lu(k,2072)
12208 114070872 : lu(k,2077) = lu(k,2077) - lu(k,1289) * lu(k,2072)
12209 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1290) * lu(k,2072)
12210 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1291) * lu(k,2072)
12211 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1292) * lu(k,2072)
12212 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1293) * lu(k,2072)
12213 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1294) * lu(k,2072)
12214 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1295) * lu(k,2072)
12215 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1296) * lu(k,2072)
12216 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1297) * lu(k,2072)
12217 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1298) * lu(k,2072)
12218 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1299) * lu(k,2072)
12219 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1300) * lu(k,2072)
12220 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1301) * lu(k,2072)
12221 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1302) * lu(k,2072)
12222 114070872 : lu(k,1327) = 1._r8 / lu(k,1327)
12223 114070872 : lu(k,1328) = lu(k,1328) * lu(k,1327)
12224 114070872 : lu(k,1329) = lu(k,1329) * lu(k,1327)
12225 114070872 : lu(k,1330) = lu(k,1330) * lu(k,1327)
12226 114070872 : lu(k,1331) = lu(k,1331) * lu(k,1327)
12227 114070872 : lu(k,1332) = lu(k,1332) * lu(k,1327)
12228 114070872 : lu(k,1333) = lu(k,1333) * lu(k,1327)
12229 114070872 : lu(k,1334) = lu(k,1334) * lu(k,1327)
12230 114070872 : lu(k,1335) = lu(k,1335) * lu(k,1327)
12231 114070872 : lu(k,1336) = lu(k,1336) * lu(k,1327)
12232 114070872 : lu(k,1337) = lu(k,1337) * lu(k,1327)
12233 114070872 : lu(k,1338) = lu(k,1338) * lu(k,1327)
12234 114070872 : lu(k,1339) = lu(k,1339) * lu(k,1327)
12235 114070872 : lu(k,1340) = lu(k,1340) * lu(k,1327)
12236 114070872 : lu(k,1341) = lu(k,1341) * lu(k,1327)
12237 114070872 : lu(k,1342) = lu(k,1342) * lu(k,1327)
12238 114070872 : lu(k,1343) = lu(k,1343) * lu(k,1327)
12239 114070872 : lu(k,1344) = lu(k,1344) * lu(k,1327)
12240 114070872 : lu(k,1388) = lu(k,1388) - lu(k,1328) * lu(k,1387)
12241 114070872 : lu(k,1389) = lu(k,1389) - lu(k,1329) * lu(k,1387)
12242 114070872 : lu(k,1390) = lu(k,1390) - lu(k,1330) * lu(k,1387)
12243 114070872 : lu(k,1391) = lu(k,1391) - lu(k,1331) * lu(k,1387)
12244 114070872 : lu(k,1392) = lu(k,1392) - lu(k,1332) * lu(k,1387)
12245 114070872 : lu(k,1393) = lu(k,1393) - lu(k,1333) * lu(k,1387)
12246 114070872 : lu(k,1394) = lu(k,1394) - lu(k,1334) * lu(k,1387)
12247 114070872 : lu(k,1395) = lu(k,1395) - lu(k,1335) * lu(k,1387)
12248 114070872 : lu(k,1396) = lu(k,1396) - lu(k,1336) * lu(k,1387)
12249 114070872 : lu(k,1397) = lu(k,1397) - lu(k,1337) * lu(k,1387)
12250 114070872 : lu(k,1398) = lu(k,1398) - lu(k,1338) * lu(k,1387)
12251 114070872 : lu(k,1399) = lu(k,1399) - lu(k,1339) * lu(k,1387)
12252 114070872 : lu(k,1400) = lu(k,1400) - lu(k,1340) * lu(k,1387)
12253 114070872 : lu(k,1401) = lu(k,1401) - lu(k,1341) * lu(k,1387)
12254 114070872 : lu(k,1402) = lu(k,1402) - lu(k,1342) * lu(k,1387)
12255 114070872 : lu(k,1403) = lu(k,1403) - lu(k,1343) * lu(k,1387)
12256 114070872 : lu(k,1404) = lu(k,1404) - lu(k,1344) * lu(k,1387)
12257 114070872 : lu(k,1437) = lu(k,1437) - lu(k,1328) * lu(k,1436)
12258 114070872 : lu(k,1438) = lu(k,1438) - lu(k,1329) * lu(k,1436)
12259 114070872 : lu(k,1439) = lu(k,1439) - lu(k,1330) * lu(k,1436)
12260 114070872 : lu(k,1440) = lu(k,1440) - lu(k,1331) * lu(k,1436)
12261 114070872 : lu(k,1441) = lu(k,1441) - lu(k,1332) * lu(k,1436)
12262 114070872 : lu(k,1442) = lu(k,1442) - lu(k,1333) * lu(k,1436)
12263 114070872 : lu(k,1443) = lu(k,1443) - lu(k,1334) * lu(k,1436)
12264 114070872 : lu(k,1444) = lu(k,1444) - lu(k,1335) * lu(k,1436)
12265 114070872 : lu(k,1445) = lu(k,1445) - lu(k,1336) * lu(k,1436)
12266 114070872 : lu(k,1446) = lu(k,1446) - lu(k,1337) * lu(k,1436)
12267 114070872 : lu(k,1447) = lu(k,1447) - lu(k,1338) * lu(k,1436)
12268 114070872 : lu(k,1448) = lu(k,1448) - lu(k,1339) * lu(k,1436)
12269 114070872 : lu(k,1449) = lu(k,1449) - lu(k,1340) * lu(k,1436)
12270 114070872 : lu(k,1450) = lu(k,1450) - lu(k,1341) * lu(k,1436)
12271 114070872 : lu(k,1451) = lu(k,1451) - lu(k,1342) * lu(k,1436)
12272 114070872 : lu(k,1452) = lu(k,1452) - lu(k,1343) * lu(k,1436)
12273 114070872 : lu(k,1453) = lu(k,1453) - lu(k,1344) * lu(k,1436)
12274 114070872 : lu(k,1485) = lu(k,1485) - lu(k,1328) * lu(k,1484)
12275 114070872 : lu(k,1486) = lu(k,1486) - lu(k,1329) * lu(k,1484)
12276 114070872 : lu(k,1487) = lu(k,1487) - lu(k,1330) * lu(k,1484)
12277 114070872 : lu(k,1488) = lu(k,1488) - lu(k,1331) * lu(k,1484)
12278 114070872 : lu(k,1489) = lu(k,1489) - lu(k,1332) * lu(k,1484)
12279 114070872 : lu(k,1490) = lu(k,1490) - lu(k,1333) * lu(k,1484)
12280 114070872 : lu(k,1491) = lu(k,1491) - lu(k,1334) * lu(k,1484)
12281 114070872 : lu(k,1492) = lu(k,1492) - lu(k,1335) * lu(k,1484)
12282 114070872 : lu(k,1493) = lu(k,1493) - lu(k,1336) * lu(k,1484)
12283 114070872 : lu(k,1494) = lu(k,1494) - lu(k,1337) * lu(k,1484)
12284 114070872 : lu(k,1495) = lu(k,1495) - lu(k,1338) * lu(k,1484)
12285 114070872 : lu(k,1496) = lu(k,1496) - lu(k,1339) * lu(k,1484)
12286 114070872 : lu(k,1497) = lu(k,1497) - lu(k,1340) * lu(k,1484)
12287 114070872 : lu(k,1498) = lu(k,1498) - lu(k,1341) * lu(k,1484)
12288 114070872 : lu(k,1499) = lu(k,1499) - lu(k,1342) * lu(k,1484)
12289 114070872 : lu(k,1500) = lu(k,1500) - lu(k,1343) * lu(k,1484)
12290 114070872 : lu(k,1501) = lu(k,1501) - lu(k,1344) * lu(k,1484)
12291 114070872 : lu(k,1526) = lu(k,1526) - lu(k,1328) * lu(k,1525)
12292 114070872 : lu(k,1527) = lu(k,1527) - lu(k,1329) * lu(k,1525)
12293 114070872 : lu(k,1528) = lu(k,1528) - lu(k,1330) * lu(k,1525)
12294 114070872 : lu(k,1529) = lu(k,1529) - lu(k,1331) * lu(k,1525)
12295 114070872 : lu(k,1530) = lu(k,1530) - lu(k,1332) * lu(k,1525)
12296 114070872 : lu(k,1531) = lu(k,1531) - lu(k,1333) * lu(k,1525)
12297 114070872 : lu(k,1532) = lu(k,1532) - lu(k,1334) * lu(k,1525)
12298 114070872 : lu(k,1533) = lu(k,1533) - lu(k,1335) * lu(k,1525)
12299 114070872 : lu(k,1534) = lu(k,1534) - lu(k,1336) * lu(k,1525)
12300 114070872 : lu(k,1535) = lu(k,1535) - lu(k,1337) * lu(k,1525)
12301 114070872 : lu(k,1536) = lu(k,1536) - lu(k,1338) * lu(k,1525)
12302 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1339) * lu(k,1525)
12303 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1340) * lu(k,1525)
12304 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1341) * lu(k,1525)
12305 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1342) * lu(k,1525)
12306 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1343) * lu(k,1525)
12307 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1344) * lu(k,1525)
12308 114070872 : lu(k,1562) = lu(k,1562) - lu(k,1328) * lu(k,1561)
12309 114070872 : lu(k,1563) = lu(k,1563) - lu(k,1329) * lu(k,1561)
12310 114070872 : lu(k,1564) = lu(k,1564) - lu(k,1330) * lu(k,1561)
12311 114070872 : lu(k,1565) = lu(k,1565) - lu(k,1331) * lu(k,1561)
12312 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1332) * lu(k,1561)
12313 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1333) * lu(k,1561)
12314 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1334) * lu(k,1561)
12315 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1335) * lu(k,1561)
12316 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1336) * lu(k,1561)
12317 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1337) * lu(k,1561)
12318 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1338) * lu(k,1561)
12319 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1339) * lu(k,1561)
12320 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1340) * lu(k,1561)
12321 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1341) * lu(k,1561)
12322 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1342) * lu(k,1561)
12323 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1343) * lu(k,1561)
12324 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1344) * lu(k,1561)
12325 114070872 : lu(k,1607) = lu(k,1607) - lu(k,1328) * lu(k,1606)
12326 114070872 : lu(k,1608) = lu(k,1608) - lu(k,1329) * lu(k,1606)
12327 114070872 : lu(k,1609) = lu(k,1609) - lu(k,1330) * lu(k,1606)
12328 114070872 : lu(k,1610) = lu(k,1610) - lu(k,1331) * lu(k,1606)
12329 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1332) * lu(k,1606)
12330 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1333) * lu(k,1606)
12331 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1334) * lu(k,1606)
12332 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1335) * lu(k,1606)
12333 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1336) * lu(k,1606)
12334 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1337) * lu(k,1606)
12335 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1338) * lu(k,1606)
12336 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1339) * lu(k,1606)
12337 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1340) * lu(k,1606)
12338 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1341) * lu(k,1606)
12339 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1342) * lu(k,1606)
12340 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1343) * lu(k,1606)
12341 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1344) * lu(k,1606)
12342 114070872 : lu(k,1650) = lu(k,1650) - lu(k,1328) * lu(k,1649)
12343 114070872 : lu(k,1651) = lu(k,1651) - lu(k,1329) * lu(k,1649)
12344 114070872 : lu(k,1652) = lu(k,1652) - lu(k,1330) * lu(k,1649)
12345 114070872 : lu(k,1653) = lu(k,1653) - lu(k,1331) * lu(k,1649)
12346 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1332) * lu(k,1649)
12347 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1333) * lu(k,1649)
12348 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1334) * lu(k,1649)
12349 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1335) * lu(k,1649)
12350 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1336) * lu(k,1649)
12351 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1337) * lu(k,1649)
12352 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1338) * lu(k,1649)
12353 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1339) * lu(k,1649)
12354 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1340) * lu(k,1649)
12355 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1341) * lu(k,1649)
12356 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1342) * lu(k,1649)
12357 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1343) * lu(k,1649)
12358 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1344) * lu(k,1649)
12359 114070872 : lu(k,1693) = lu(k,1693) - lu(k,1328) * lu(k,1692)
12360 114070872 : lu(k,1694) = lu(k,1694) - lu(k,1329) * lu(k,1692)
12361 114070872 : lu(k,1695) = lu(k,1695) - lu(k,1330) * lu(k,1692)
12362 114070872 : lu(k,1696) = lu(k,1696) - lu(k,1331) * lu(k,1692)
12363 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1332) * lu(k,1692)
12364 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1333) * lu(k,1692)
12365 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1334) * lu(k,1692)
12366 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1335) * lu(k,1692)
12367 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1336) * lu(k,1692)
12368 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1337) * lu(k,1692)
12369 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1338) * lu(k,1692)
12370 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1339) * lu(k,1692)
12371 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1340) * lu(k,1692)
12372 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1341) * lu(k,1692)
12373 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1342) * lu(k,1692)
12374 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1343) * lu(k,1692)
12375 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1344) * lu(k,1692)
12376 114070872 : lu(k,1733) = lu(k,1733) - lu(k,1328) * lu(k,1732)
12377 114070872 : lu(k,1734) = lu(k,1734) - lu(k,1329) * lu(k,1732)
12378 114070872 : lu(k,1735) = lu(k,1735) - lu(k,1330) * lu(k,1732)
12379 114070872 : lu(k,1736) = lu(k,1736) - lu(k,1331) * lu(k,1732)
12380 114070872 : lu(k,1737) = lu(k,1737) - lu(k,1332) * lu(k,1732)
12381 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1333) * lu(k,1732)
12382 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1334) * lu(k,1732)
12383 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1335) * lu(k,1732)
12384 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1336) * lu(k,1732)
12385 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1337) * lu(k,1732)
12386 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1338) * lu(k,1732)
12387 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1339) * lu(k,1732)
12388 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1340) * lu(k,1732)
12389 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1341) * lu(k,1732)
12390 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1342) * lu(k,1732)
12391 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1343) * lu(k,1732)
12392 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1344) * lu(k,1732)
12393 114070872 : lu(k,1769) = lu(k,1769) - lu(k,1328) * lu(k,1768)
12394 114070872 : lu(k,1770) = lu(k,1770) - lu(k,1329) * lu(k,1768)
12395 114070872 : lu(k,1771) = lu(k,1771) - lu(k,1330) * lu(k,1768)
12396 114070872 : lu(k,1772) = lu(k,1772) - lu(k,1331) * lu(k,1768)
12397 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1332) * lu(k,1768)
12398 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1333) * lu(k,1768)
12399 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1334) * lu(k,1768)
12400 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1335) * lu(k,1768)
12401 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1336) * lu(k,1768)
12402 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1337) * lu(k,1768)
12403 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1338) * lu(k,1768)
12404 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1339) * lu(k,1768)
12405 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1340) * lu(k,1768)
12406 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1341) * lu(k,1768)
12407 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1342) * lu(k,1768)
12408 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1343) * lu(k,1768)
12409 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1344) * lu(k,1768)
12410 114070872 : lu(k,1817) = lu(k,1817) - lu(k,1328) * lu(k,1816)
12411 114070872 : lu(k,1818) = lu(k,1818) - lu(k,1329) * lu(k,1816)
12412 114070872 : lu(k,1819) = lu(k,1819) - lu(k,1330) * lu(k,1816)
12413 114070872 : lu(k,1820) = lu(k,1820) - lu(k,1331) * lu(k,1816)
12414 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1332) * lu(k,1816)
12415 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1333) * lu(k,1816)
12416 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1334) * lu(k,1816)
12417 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1335) * lu(k,1816)
12418 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1336) * lu(k,1816)
12419 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1337) * lu(k,1816)
12420 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1338) * lu(k,1816)
12421 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1339) * lu(k,1816)
12422 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1340) * lu(k,1816)
12423 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1341) * lu(k,1816)
12424 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1342) * lu(k,1816)
12425 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1343) * lu(k,1816)
12426 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1344) * lu(k,1816)
12427 114070872 : lu(k,1850) = lu(k,1850) - lu(k,1328) * lu(k,1849)
12428 114070872 : lu(k,1851) = lu(k,1851) - lu(k,1329) * lu(k,1849)
12429 114070872 : lu(k,1852) = lu(k,1852) - lu(k,1330) * lu(k,1849)
12430 114070872 : lu(k,1853) = lu(k,1853) - lu(k,1331) * lu(k,1849)
12431 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1332) * lu(k,1849)
12432 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1333) * lu(k,1849)
12433 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1334) * lu(k,1849)
12434 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1335) * lu(k,1849)
12435 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1336) * lu(k,1849)
12436 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1337) * lu(k,1849)
12437 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1338) * lu(k,1849)
12438 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1339) * lu(k,1849)
12439 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1340) * lu(k,1849)
12440 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1341) * lu(k,1849)
12441 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1342) * lu(k,1849)
12442 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1343) * lu(k,1849)
12443 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1344) * lu(k,1849)
12444 114070872 : lu(k,1886) = lu(k,1886) - lu(k,1328) * lu(k,1885)
12445 114070872 : lu(k,1887) = lu(k,1887) - lu(k,1329) * lu(k,1885)
12446 114070872 : lu(k,1888) = lu(k,1888) - lu(k,1330) * lu(k,1885)
12447 114070872 : lu(k,1889) = lu(k,1889) - lu(k,1331) * lu(k,1885)
12448 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1332) * lu(k,1885)
12449 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1333) * lu(k,1885)
12450 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1334) * lu(k,1885)
12451 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1335) * lu(k,1885)
12452 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1336) * lu(k,1885)
12453 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1337) * lu(k,1885)
12454 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1338) * lu(k,1885)
12455 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1339) * lu(k,1885)
12456 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1340) * lu(k,1885)
12457 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1341) * lu(k,1885)
12458 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1342) * lu(k,1885)
12459 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1343) * lu(k,1885)
12460 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1344) * lu(k,1885)
12461 114070872 : lu(k,1927) = lu(k,1927) - lu(k,1328) * lu(k,1926)
12462 114070872 : lu(k,1928) = lu(k,1928) - lu(k,1329) * lu(k,1926)
12463 114070872 : lu(k,1929) = lu(k,1929) - lu(k,1330) * lu(k,1926)
12464 114070872 : lu(k,1930) = lu(k,1930) - lu(k,1331) * lu(k,1926)
12465 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1332) * lu(k,1926)
12466 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1333) * lu(k,1926)
12467 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1334) * lu(k,1926)
12468 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1335) * lu(k,1926)
12469 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1336) * lu(k,1926)
12470 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1337) * lu(k,1926)
12471 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1338) * lu(k,1926)
12472 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1339) * lu(k,1926)
12473 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1340) * lu(k,1926)
12474 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1341) * lu(k,1926)
12475 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1342) * lu(k,1926)
12476 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1343) * lu(k,1926)
12477 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1344) * lu(k,1926)
12478 114070872 : lu(k,1969) = lu(k,1969) - lu(k,1328) * lu(k,1968)
12479 114070872 : lu(k,1970) = lu(k,1970) - lu(k,1329) * lu(k,1968)
12480 114070872 : lu(k,1971) = lu(k,1971) - lu(k,1330) * lu(k,1968)
12481 114070872 : lu(k,1972) = lu(k,1972) - lu(k,1331) * lu(k,1968)
12482 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1332) * lu(k,1968)
12483 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1333) * lu(k,1968)
12484 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1334) * lu(k,1968)
12485 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1335) * lu(k,1968)
12486 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1336) * lu(k,1968)
12487 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1337) * lu(k,1968)
12488 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1338) * lu(k,1968)
12489 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1339) * lu(k,1968)
12490 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1340) * lu(k,1968)
12491 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1341) * lu(k,1968)
12492 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1342) * lu(k,1968)
12493 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1343) * lu(k,1968)
12494 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1344) * lu(k,1968)
12495 114070872 : lu(k,2014) = lu(k,2014) - lu(k,1328) * lu(k,2013)
12496 114070872 : lu(k,2015) = lu(k,2015) - lu(k,1329) * lu(k,2013)
12497 114070872 : lu(k,2016) = lu(k,2016) - lu(k,1330) * lu(k,2013)
12498 114070872 : lu(k,2017) = lu(k,2017) - lu(k,1331) * lu(k,2013)
12499 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1332) * lu(k,2013)
12500 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1333) * lu(k,2013)
12501 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1334) * lu(k,2013)
12502 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1335) * lu(k,2013)
12503 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1336) * lu(k,2013)
12504 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1337) * lu(k,2013)
12505 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1338) * lu(k,2013)
12506 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1339) * lu(k,2013)
12507 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1340) * lu(k,2013)
12508 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1341) * lu(k,2013)
12509 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1342) * lu(k,2013)
12510 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1343) * lu(k,2013)
12511 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1344) * lu(k,2013)
12512 114070872 : lu(k,2074) = lu(k,2074) - lu(k,1328) * lu(k,2073)
12513 114070872 : lu(k,2075) = lu(k,2075) - lu(k,1329) * lu(k,2073)
12514 114070872 : lu(k,2076) = lu(k,2076) - lu(k,1330) * lu(k,2073)
12515 114070872 : lu(k,2077) = lu(k,2077) - lu(k,1331) * lu(k,2073)
12516 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1332) * lu(k,2073)
12517 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1333) * lu(k,2073)
12518 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1334) * lu(k,2073)
12519 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1335) * lu(k,2073)
12520 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1336) * lu(k,2073)
12521 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1337) * lu(k,2073)
12522 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1338) * lu(k,2073)
12523 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1339) * lu(k,2073)
12524 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1340) * lu(k,2073)
12525 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1341) * lu(k,2073)
12526 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1342) * lu(k,2073)
12527 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1343) * lu(k,2073)
12528 117656469 : lu(k,2090) = lu(k,2090) - lu(k,1344) * lu(k,2073)
12529 : end do
12530 3585597 : end subroutine lu_fac23
12531 3585597 : subroutine lu_fac24( avec_len, lu )
12532 : use chem_mods, only : nzcnt
12533 : use shr_kind_mod, only : r8 => shr_kind_r8
12534 : implicit none
12535 : !-----------------------------------------------------------------------
12536 : ! ... dummy args
12537 : !-----------------------------------------------------------------------
12538 : integer, intent(in) :: avec_len
12539 : real(r8), intent(inout) :: lu(veclen,nzcnt)
12540 : !-----------------------------------------------------------------------
12541 : ! ... local variables
12542 : !-----------------------------------------------------------------------
12543 : integer :: k
12544 117656469 : do k = 1,avec_len
12545 114070872 : lu(k,1388) = 1._r8 / lu(k,1388)
12546 114070872 : lu(k,1389) = lu(k,1389) * lu(k,1388)
12547 114070872 : lu(k,1390) = lu(k,1390) * lu(k,1388)
12548 114070872 : lu(k,1391) = lu(k,1391) * lu(k,1388)
12549 114070872 : lu(k,1392) = lu(k,1392) * lu(k,1388)
12550 114070872 : lu(k,1393) = lu(k,1393) * lu(k,1388)
12551 114070872 : lu(k,1394) = lu(k,1394) * lu(k,1388)
12552 114070872 : lu(k,1395) = lu(k,1395) * lu(k,1388)
12553 114070872 : lu(k,1396) = lu(k,1396) * lu(k,1388)
12554 114070872 : lu(k,1397) = lu(k,1397) * lu(k,1388)
12555 114070872 : lu(k,1398) = lu(k,1398) * lu(k,1388)
12556 114070872 : lu(k,1399) = lu(k,1399) * lu(k,1388)
12557 114070872 : lu(k,1400) = lu(k,1400) * lu(k,1388)
12558 114070872 : lu(k,1401) = lu(k,1401) * lu(k,1388)
12559 114070872 : lu(k,1402) = lu(k,1402) * lu(k,1388)
12560 114070872 : lu(k,1403) = lu(k,1403) * lu(k,1388)
12561 114070872 : lu(k,1404) = lu(k,1404) * lu(k,1388)
12562 114070872 : lu(k,1438) = lu(k,1438) - lu(k,1389) * lu(k,1437)
12563 114070872 : lu(k,1439) = lu(k,1439) - lu(k,1390) * lu(k,1437)
12564 114070872 : lu(k,1440) = lu(k,1440) - lu(k,1391) * lu(k,1437)
12565 114070872 : lu(k,1441) = lu(k,1441) - lu(k,1392) * lu(k,1437)
12566 114070872 : lu(k,1442) = lu(k,1442) - lu(k,1393) * lu(k,1437)
12567 114070872 : lu(k,1443) = lu(k,1443) - lu(k,1394) * lu(k,1437)
12568 114070872 : lu(k,1444) = lu(k,1444) - lu(k,1395) * lu(k,1437)
12569 114070872 : lu(k,1445) = lu(k,1445) - lu(k,1396) * lu(k,1437)
12570 114070872 : lu(k,1446) = lu(k,1446) - lu(k,1397) * lu(k,1437)
12571 114070872 : lu(k,1447) = lu(k,1447) - lu(k,1398) * lu(k,1437)
12572 114070872 : lu(k,1448) = lu(k,1448) - lu(k,1399) * lu(k,1437)
12573 114070872 : lu(k,1449) = lu(k,1449) - lu(k,1400) * lu(k,1437)
12574 114070872 : lu(k,1450) = lu(k,1450) - lu(k,1401) * lu(k,1437)
12575 114070872 : lu(k,1451) = lu(k,1451) - lu(k,1402) * lu(k,1437)
12576 114070872 : lu(k,1452) = lu(k,1452) - lu(k,1403) * lu(k,1437)
12577 114070872 : lu(k,1453) = lu(k,1453) - lu(k,1404) * lu(k,1437)
12578 114070872 : lu(k,1486) = lu(k,1486) - lu(k,1389) * lu(k,1485)
12579 114070872 : lu(k,1487) = lu(k,1487) - lu(k,1390) * lu(k,1485)
12580 114070872 : lu(k,1488) = lu(k,1488) - lu(k,1391) * lu(k,1485)
12581 114070872 : lu(k,1489) = lu(k,1489) - lu(k,1392) * lu(k,1485)
12582 114070872 : lu(k,1490) = lu(k,1490) - lu(k,1393) * lu(k,1485)
12583 114070872 : lu(k,1491) = lu(k,1491) - lu(k,1394) * lu(k,1485)
12584 114070872 : lu(k,1492) = lu(k,1492) - lu(k,1395) * lu(k,1485)
12585 114070872 : lu(k,1493) = lu(k,1493) - lu(k,1396) * lu(k,1485)
12586 114070872 : lu(k,1494) = lu(k,1494) - lu(k,1397) * lu(k,1485)
12587 114070872 : lu(k,1495) = lu(k,1495) - lu(k,1398) * lu(k,1485)
12588 114070872 : lu(k,1496) = lu(k,1496) - lu(k,1399) * lu(k,1485)
12589 114070872 : lu(k,1497) = lu(k,1497) - lu(k,1400) * lu(k,1485)
12590 114070872 : lu(k,1498) = lu(k,1498) - lu(k,1401) * lu(k,1485)
12591 114070872 : lu(k,1499) = lu(k,1499) - lu(k,1402) * lu(k,1485)
12592 114070872 : lu(k,1500) = lu(k,1500) - lu(k,1403) * lu(k,1485)
12593 114070872 : lu(k,1501) = lu(k,1501) - lu(k,1404) * lu(k,1485)
12594 114070872 : lu(k,1527) = lu(k,1527) - lu(k,1389) * lu(k,1526)
12595 114070872 : lu(k,1528) = lu(k,1528) - lu(k,1390) * lu(k,1526)
12596 114070872 : lu(k,1529) = lu(k,1529) - lu(k,1391) * lu(k,1526)
12597 114070872 : lu(k,1530) = lu(k,1530) - lu(k,1392) * lu(k,1526)
12598 114070872 : lu(k,1531) = lu(k,1531) - lu(k,1393) * lu(k,1526)
12599 114070872 : lu(k,1532) = lu(k,1532) - lu(k,1394) * lu(k,1526)
12600 114070872 : lu(k,1533) = lu(k,1533) - lu(k,1395) * lu(k,1526)
12601 114070872 : lu(k,1534) = lu(k,1534) - lu(k,1396) * lu(k,1526)
12602 114070872 : lu(k,1535) = lu(k,1535) - lu(k,1397) * lu(k,1526)
12603 114070872 : lu(k,1536) = lu(k,1536) - lu(k,1398) * lu(k,1526)
12604 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1399) * lu(k,1526)
12605 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1400) * lu(k,1526)
12606 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1401) * lu(k,1526)
12607 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1402) * lu(k,1526)
12608 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1403) * lu(k,1526)
12609 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1404) * lu(k,1526)
12610 114070872 : lu(k,1563) = lu(k,1563) - lu(k,1389) * lu(k,1562)
12611 114070872 : lu(k,1564) = lu(k,1564) - lu(k,1390) * lu(k,1562)
12612 114070872 : lu(k,1565) = lu(k,1565) - lu(k,1391) * lu(k,1562)
12613 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1392) * lu(k,1562)
12614 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1393) * lu(k,1562)
12615 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1394) * lu(k,1562)
12616 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1395) * lu(k,1562)
12617 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1396) * lu(k,1562)
12618 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1397) * lu(k,1562)
12619 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1398) * lu(k,1562)
12620 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1399) * lu(k,1562)
12621 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1400) * lu(k,1562)
12622 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1401) * lu(k,1562)
12623 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1402) * lu(k,1562)
12624 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1403) * lu(k,1562)
12625 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1404) * lu(k,1562)
12626 114070872 : lu(k,1608) = lu(k,1608) - lu(k,1389) * lu(k,1607)
12627 114070872 : lu(k,1609) = lu(k,1609) - lu(k,1390) * lu(k,1607)
12628 114070872 : lu(k,1610) = lu(k,1610) - lu(k,1391) * lu(k,1607)
12629 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1392) * lu(k,1607)
12630 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1393) * lu(k,1607)
12631 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1394) * lu(k,1607)
12632 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1395) * lu(k,1607)
12633 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1396) * lu(k,1607)
12634 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1397) * lu(k,1607)
12635 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1398) * lu(k,1607)
12636 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1399) * lu(k,1607)
12637 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1400) * lu(k,1607)
12638 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1401) * lu(k,1607)
12639 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1402) * lu(k,1607)
12640 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1403) * lu(k,1607)
12641 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1404) * lu(k,1607)
12642 114070872 : lu(k,1651) = lu(k,1651) - lu(k,1389) * lu(k,1650)
12643 114070872 : lu(k,1652) = lu(k,1652) - lu(k,1390) * lu(k,1650)
12644 114070872 : lu(k,1653) = lu(k,1653) - lu(k,1391) * lu(k,1650)
12645 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1392) * lu(k,1650)
12646 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1393) * lu(k,1650)
12647 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1394) * lu(k,1650)
12648 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1395) * lu(k,1650)
12649 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1396) * lu(k,1650)
12650 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1397) * lu(k,1650)
12651 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1398) * lu(k,1650)
12652 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1399) * lu(k,1650)
12653 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1400) * lu(k,1650)
12654 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1401) * lu(k,1650)
12655 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1402) * lu(k,1650)
12656 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1403) * lu(k,1650)
12657 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1404) * lu(k,1650)
12658 114070872 : lu(k,1694) = lu(k,1694) - lu(k,1389) * lu(k,1693)
12659 114070872 : lu(k,1695) = lu(k,1695) - lu(k,1390) * lu(k,1693)
12660 114070872 : lu(k,1696) = lu(k,1696) - lu(k,1391) * lu(k,1693)
12661 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1392) * lu(k,1693)
12662 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1393) * lu(k,1693)
12663 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1394) * lu(k,1693)
12664 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1395) * lu(k,1693)
12665 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1396) * lu(k,1693)
12666 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1397) * lu(k,1693)
12667 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1398) * lu(k,1693)
12668 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1399) * lu(k,1693)
12669 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1400) * lu(k,1693)
12670 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1401) * lu(k,1693)
12671 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1402) * lu(k,1693)
12672 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1403) * lu(k,1693)
12673 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1404) * lu(k,1693)
12674 114070872 : lu(k,1734) = lu(k,1734) - lu(k,1389) * lu(k,1733)
12675 114070872 : lu(k,1735) = lu(k,1735) - lu(k,1390) * lu(k,1733)
12676 114070872 : lu(k,1736) = lu(k,1736) - lu(k,1391) * lu(k,1733)
12677 114070872 : lu(k,1737) = lu(k,1737) - lu(k,1392) * lu(k,1733)
12678 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1393) * lu(k,1733)
12679 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1394) * lu(k,1733)
12680 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1395) * lu(k,1733)
12681 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1396) * lu(k,1733)
12682 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1397) * lu(k,1733)
12683 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1398) * lu(k,1733)
12684 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1399) * lu(k,1733)
12685 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1400) * lu(k,1733)
12686 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1401) * lu(k,1733)
12687 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1402) * lu(k,1733)
12688 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1403) * lu(k,1733)
12689 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1404) * lu(k,1733)
12690 114070872 : lu(k,1770) = lu(k,1770) - lu(k,1389) * lu(k,1769)
12691 114070872 : lu(k,1771) = lu(k,1771) - lu(k,1390) * lu(k,1769)
12692 114070872 : lu(k,1772) = lu(k,1772) - lu(k,1391) * lu(k,1769)
12693 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1392) * lu(k,1769)
12694 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1393) * lu(k,1769)
12695 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1394) * lu(k,1769)
12696 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1395) * lu(k,1769)
12697 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1396) * lu(k,1769)
12698 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1397) * lu(k,1769)
12699 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1398) * lu(k,1769)
12700 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1399) * lu(k,1769)
12701 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1400) * lu(k,1769)
12702 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1401) * lu(k,1769)
12703 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1402) * lu(k,1769)
12704 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1403) * lu(k,1769)
12705 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1404) * lu(k,1769)
12706 114070872 : lu(k,1818) = lu(k,1818) - lu(k,1389) * lu(k,1817)
12707 114070872 : lu(k,1819) = lu(k,1819) - lu(k,1390) * lu(k,1817)
12708 114070872 : lu(k,1820) = lu(k,1820) - lu(k,1391) * lu(k,1817)
12709 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1392) * lu(k,1817)
12710 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1393) * lu(k,1817)
12711 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1394) * lu(k,1817)
12712 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1395) * lu(k,1817)
12713 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1396) * lu(k,1817)
12714 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1397) * lu(k,1817)
12715 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1398) * lu(k,1817)
12716 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1399) * lu(k,1817)
12717 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1400) * lu(k,1817)
12718 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1401) * lu(k,1817)
12719 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1402) * lu(k,1817)
12720 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1403) * lu(k,1817)
12721 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1404) * lu(k,1817)
12722 114070872 : lu(k,1851) = lu(k,1851) - lu(k,1389) * lu(k,1850)
12723 114070872 : lu(k,1852) = lu(k,1852) - lu(k,1390) * lu(k,1850)
12724 114070872 : lu(k,1853) = lu(k,1853) - lu(k,1391) * lu(k,1850)
12725 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1392) * lu(k,1850)
12726 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1393) * lu(k,1850)
12727 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1394) * lu(k,1850)
12728 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1395) * lu(k,1850)
12729 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1396) * lu(k,1850)
12730 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1397) * lu(k,1850)
12731 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1398) * lu(k,1850)
12732 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1399) * lu(k,1850)
12733 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1400) * lu(k,1850)
12734 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1401) * lu(k,1850)
12735 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1402) * lu(k,1850)
12736 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1403) * lu(k,1850)
12737 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1404) * lu(k,1850)
12738 114070872 : lu(k,1887) = lu(k,1887) - lu(k,1389) * lu(k,1886)
12739 114070872 : lu(k,1888) = lu(k,1888) - lu(k,1390) * lu(k,1886)
12740 114070872 : lu(k,1889) = lu(k,1889) - lu(k,1391) * lu(k,1886)
12741 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1392) * lu(k,1886)
12742 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1393) * lu(k,1886)
12743 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1394) * lu(k,1886)
12744 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1395) * lu(k,1886)
12745 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1396) * lu(k,1886)
12746 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1397) * lu(k,1886)
12747 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1398) * lu(k,1886)
12748 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1399) * lu(k,1886)
12749 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1400) * lu(k,1886)
12750 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1401) * lu(k,1886)
12751 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1402) * lu(k,1886)
12752 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1403) * lu(k,1886)
12753 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1404) * lu(k,1886)
12754 114070872 : lu(k,1928) = lu(k,1928) - lu(k,1389) * lu(k,1927)
12755 114070872 : lu(k,1929) = lu(k,1929) - lu(k,1390) * lu(k,1927)
12756 114070872 : lu(k,1930) = lu(k,1930) - lu(k,1391) * lu(k,1927)
12757 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1392) * lu(k,1927)
12758 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1393) * lu(k,1927)
12759 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1394) * lu(k,1927)
12760 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1395) * lu(k,1927)
12761 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1396) * lu(k,1927)
12762 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1397) * lu(k,1927)
12763 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1398) * lu(k,1927)
12764 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1399) * lu(k,1927)
12765 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1400) * lu(k,1927)
12766 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1401) * lu(k,1927)
12767 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1402) * lu(k,1927)
12768 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1403) * lu(k,1927)
12769 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1404) * lu(k,1927)
12770 114070872 : lu(k,1970) = lu(k,1970) - lu(k,1389) * lu(k,1969)
12771 114070872 : lu(k,1971) = lu(k,1971) - lu(k,1390) * lu(k,1969)
12772 114070872 : lu(k,1972) = lu(k,1972) - lu(k,1391) * lu(k,1969)
12773 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1392) * lu(k,1969)
12774 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1393) * lu(k,1969)
12775 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1394) * lu(k,1969)
12776 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1395) * lu(k,1969)
12777 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1396) * lu(k,1969)
12778 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1397) * lu(k,1969)
12779 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1398) * lu(k,1969)
12780 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1399) * lu(k,1969)
12781 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1400) * lu(k,1969)
12782 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1401) * lu(k,1969)
12783 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1402) * lu(k,1969)
12784 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1403) * lu(k,1969)
12785 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1404) * lu(k,1969)
12786 114070872 : lu(k,2015) = lu(k,2015) - lu(k,1389) * lu(k,2014)
12787 114070872 : lu(k,2016) = lu(k,2016) - lu(k,1390) * lu(k,2014)
12788 114070872 : lu(k,2017) = lu(k,2017) - lu(k,1391) * lu(k,2014)
12789 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1392) * lu(k,2014)
12790 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1393) * lu(k,2014)
12791 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1394) * lu(k,2014)
12792 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1395) * lu(k,2014)
12793 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1396) * lu(k,2014)
12794 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1397) * lu(k,2014)
12795 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1398) * lu(k,2014)
12796 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1399) * lu(k,2014)
12797 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1400) * lu(k,2014)
12798 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1401) * lu(k,2014)
12799 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1402) * lu(k,2014)
12800 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1403) * lu(k,2014)
12801 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1404) * lu(k,2014)
12802 114070872 : lu(k,2075) = lu(k,2075) - lu(k,1389) * lu(k,2074)
12803 114070872 : lu(k,2076) = lu(k,2076) - lu(k,1390) * lu(k,2074)
12804 114070872 : lu(k,2077) = lu(k,2077) - lu(k,1391) * lu(k,2074)
12805 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1392) * lu(k,2074)
12806 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1393) * lu(k,2074)
12807 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1394) * lu(k,2074)
12808 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1395) * lu(k,2074)
12809 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1396) * lu(k,2074)
12810 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1397) * lu(k,2074)
12811 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1398) * lu(k,2074)
12812 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1399) * lu(k,2074)
12813 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1400) * lu(k,2074)
12814 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1401) * lu(k,2074)
12815 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1402) * lu(k,2074)
12816 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1403) * lu(k,2074)
12817 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1404) * lu(k,2074)
12818 114070872 : lu(k,1438) = 1._r8 / lu(k,1438)
12819 114070872 : lu(k,1439) = lu(k,1439) * lu(k,1438)
12820 114070872 : lu(k,1440) = lu(k,1440) * lu(k,1438)
12821 114070872 : lu(k,1441) = lu(k,1441) * lu(k,1438)
12822 114070872 : lu(k,1442) = lu(k,1442) * lu(k,1438)
12823 114070872 : lu(k,1443) = lu(k,1443) * lu(k,1438)
12824 114070872 : lu(k,1444) = lu(k,1444) * lu(k,1438)
12825 114070872 : lu(k,1445) = lu(k,1445) * lu(k,1438)
12826 114070872 : lu(k,1446) = lu(k,1446) * lu(k,1438)
12827 114070872 : lu(k,1447) = lu(k,1447) * lu(k,1438)
12828 114070872 : lu(k,1448) = lu(k,1448) * lu(k,1438)
12829 114070872 : lu(k,1449) = lu(k,1449) * lu(k,1438)
12830 114070872 : lu(k,1450) = lu(k,1450) * lu(k,1438)
12831 114070872 : lu(k,1451) = lu(k,1451) * lu(k,1438)
12832 114070872 : lu(k,1452) = lu(k,1452) * lu(k,1438)
12833 114070872 : lu(k,1453) = lu(k,1453) * lu(k,1438)
12834 114070872 : lu(k,1487) = lu(k,1487) - lu(k,1439) * lu(k,1486)
12835 114070872 : lu(k,1488) = lu(k,1488) - lu(k,1440) * lu(k,1486)
12836 114070872 : lu(k,1489) = lu(k,1489) - lu(k,1441) * lu(k,1486)
12837 114070872 : lu(k,1490) = lu(k,1490) - lu(k,1442) * lu(k,1486)
12838 114070872 : lu(k,1491) = lu(k,1491) - lu(k,1443) * lu(k,1486)
12839 114070872 : lu(k,1492) = lu(k,1492) - lu(k,1444) * lu(k,1486)
12840 114070872 : lu(k,1493) = lu(k,1493) - lu(k,1445) * lu(k,1486)
12841 114070872 : lu(k,1494) = lu(k,1494) - lu(k,1446) * lu(k,1486)
12842 114070872 : lu(k,1495) = lu(k,1495) - lu(k,1447) * lu(k,1486)
12843 114070872 : lu(k,1496) = lu(k,1496) - lu(k,1448) * lu(k,1486)
12844 114070872 : lu(k,1497) = lu(k,1497) - lu(k,1449) * lu(k,1486)
12845 114070872 : lu(k,1498) = lu(k,1498) - lu(k,1450) * lu(k,1486)
12846 114070872 : lu(k,1499) = lu(k,1499) - lu(k,1451) * lu(k,1486)
12847 114070872 : lu(k,1500) = lu(k,1500) - lu(k,1452) * lu(k,1486)
12848 114070872 : lu(k,1501) = lu(k,1501) - lu(k,1453) * lu(k,1486)
12849 114070872 : lu(k,1528) = lu(k,1528) - lu(k,1439) * lu(k,1527)
12850 114070872 : lu(k,1529) = lu(k,1529) - lu(k,1440) * lu(k,1527)
12851 114070872 : lu(k,1530) = lu(k,1530) - lu(k,1441) * lu(k,1527)
12852 114070872 : lu(k,1531) = lu(k,1531) - lu(k,1442) * lu(k,1527)
12853 114070872 : lu(k,1532) = lu(k,1532) - lu(k,1443) * lu(k,1527)
12854 114070872 : lu(k,1533) = lu(k,1533) - lu(k,1444) * lu(k,1527)
12855 114070872 : lu(k,1534) = lu(k,1534) - lu(k,1445) * lu(k,1527)
12856 114070872 : lu(k,1535) = lu(k,1535) - lu(k,1446) * lu(k,1527)
12857 114070872 : lu(k,1536) = lu(k,1536) - lu(k,1447) * lu(k,1527)
12858 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1448) * lu(k,1527)
12859 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1449) * lu(k,1527)
12860 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1450) * lu(k,1527)
12861 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1451) * lu(k,1527)
12862 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1452) * lu(k,1527)
12863 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1453) * lu(k,1527)
12864 114070872 : lu(k,1564) = lu(k,1564) - lu(k,1439) * lu(k,1563)
12865 114070872 : lu(k,1565) = lu(k,1565) - lu(k,1440) * lu(k,1563)
12866 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1441) * lu(k,1563)
12867 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1442) * lu(k,1563)
12868 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1443) * lu(k,1563)
12869 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1444) * lu(k,1563)
12870 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1445) * lu(k,1563)
12871 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1446) * lu(k,1563)
12872 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1447) * lu(k,1563)
12873 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1448) * lu(k,1563)
12874 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1449) * lu(k,1563)
12875 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1450) * lu(k,1563)
12876 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1451) * lu(k,1563)
12877 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1452) * lu(k,1563)
12878 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1453) * lu(k,1563)
12879 114070872 : lu(k,1609) = lu(k,1609) - lu(k,1439) * lu(k,1608)
12880 114070872 : lu(k,1610) = lu(k,1610) - lu(k,1440) * lu(k,1608)
12881 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1441) * lu(k,1608)
12882 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1442) * lu(k,1608)
12883 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1443) * lu(k,1608)
12884 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1444) * lu(k,1608)
12885 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1445) * lu(k,1608)
12886 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1446) * lu(k,1608)
12887 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1447) * lu(k,1608)
12888 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1448) * lu(k,1608)
12889 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1449) * lu(k,1608)
12890 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1450) * lu(k,1608)
12891 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1451) * lu(k,1608)
12892 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1452) * lu(k,1608)
12893 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1453) * lu(k,1608)
12894 114070872 : lu(k,1652) = lu(k,1652) - lu(k,1439) * lu(k,1651)
12895 114070872 : lu(k,1653) = lu(k,1653) - lu(k,1440) * lu(k,1651)
12896 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1441) * lu(k,1651)
12897 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1442) * lu(k,1651)
12898 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1443) * lu(k,1651)
12899 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1444) * lu(k,1651)
12900 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1445) * lu(k,1651)
12901 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1446) * lu(k,1651)
12902 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1447) * lu(k,1651)
12903 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1448) * lu(k,1651)
12904 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1449) * lu(k,1651)
12905 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1450) * lu(k,1651)
12906 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1451) * lu(k,1651)
12907 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1452) * lu(k,1651)
12908 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1453) * lu(k,1651)
12909 114070872 : lu(k,1695) = lu(k,1695) - lu(k,1439) * lu(k,1694)
12910 114070872 : lu(k,1696) = lu(k,1696) - lu(k,1440) * lu(k,1694)
12911 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1441) * lu(k,1694)
12912 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1442) * lu(k,1694)
12913 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1443) * lu(k,1694)
12914 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1444) * lu(k,1694)
12915 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1445) * lu(k,1694)
12916 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1446) * lu(k,1694)
12917 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1447) * lu(k,1694)
12918 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1448) * lu(k,1694)
12919 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1449) * lu(k,1694)
12920 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1450) * lu(k,1694)
12921 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1451) * lu(k,1694)
12922 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1452) * lu(k,1694)
12923 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1453) * lu(k,1694)
12924 114070872 : lu(k,1735) = lu(k,1735) - lu(k,1439) * lu(k,1734)
12925 114070872 : lu(k,1736) = lu(k,1736) - lu(k,1440) * lu(k,1734)
12926 114070872 : lu(k,1737) = lu(k,1737) - lu(k,1441) * lu(k,1734)
12927 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1442) * lu(k,1734)
12928 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1443) * lu(k,1734)
12929 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1444) * lu(k,1734)
12930 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1445) * lu(k,1734)
12931 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1446) * lu(k,1734)
12932 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1447) * lu(k,1734)
12933 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1448) * lu(k,1734)
12934 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1449) * lu(k,1734)
12935 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1450) * lu(k,1734)
12936 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1451) * lu(k,1734)
12937 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1452) * lu(k,1734)
12938 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1453) * lu(k,1734)
12939 114070872 : lu(k,1771) = lu(k,1771) - lu(k,1439) * lu(k,1770)
12940 114070872 : lu(k,1772) = lu(k,1772) - lu(k,1440) * lu(k,1770)
12941 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1441) * lu(k,1770)
12942 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1442) * lu(k,1770)
12943 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1443) * lu(k,1770)
12944 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1444) * lu(k,1770)
12945 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1445) * lu(k,1770)
12946 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1446) * lu(k,1770)
12947 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1447) * lu(k,1770)
12948 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1448) * lu(k,1770)
12949 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1449) * lu(k,1770)
12950 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1450) * lu(k,1770)
12951 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1451) * lu(k,1770)
12952 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1452) * lu(k,1770)
12953 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1453) * lu(k,1770)
12954 114070872 : lu(k,1819) = lu(k,1819) - lu(k,1439) * lu(k,1818)
12955 114070872 : lu(k,1820) = lu(k,1820) - lu(k,1440) * lu(k,1818)
12956 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1441) * lu(k,1818)
12957 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1442) * lu(k,1818)
12958 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1443) * lu(k,1818)
12959 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1444) * lu(k,1818)
12960 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1445) * lu(k,1818)
12961 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1446) * lu(k,1818)
12962 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1447) * lu(k,1818)
12963 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1448) * lu(k,1818)
12964 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1449) * lu(k,1818)
12965 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1450) * lu(k,1818)
12966 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1451) * lu(k,1818)
12967 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1452) * lu(k,1818)
12968 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1453) * lu(k,1818)
12969 114070872 : lu(k,1852) = lu(k,1852) - lu(k,1439) * lu(k,1851)
12970 114070872 : lu(k,1853) = lu(k,1853) - lu(k,1440) * lu(k,1851)
12971 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1441) * lu(k,1851)
12972 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1442) * lu(k,1851)
12973 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1443) * lu(k,1851)
12974 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1444) * lu(k,1851)
12975 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1445) * lu(k,1851)
12976 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1446) * lu(k,1851)
12977 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1447) * lu(k,1851)
12978 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1448) * lu(k,1851)
12979 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1449) * lu(k,1851)
12980 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1450) * lu(k,1851)
12981 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1451) * lu(k,1851)
12982 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1452) * lu(k,1851)
12983 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1453) * lu(k,1851)
12984 114070872 : lu(k,1888) = lu(k,1888) - lu(k,1439) * lu(k,1887)
12985 114070872 : lu(k,1889) = lu(k,1889) - lu(k,1440) * lu(k,1887)
12986 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1441) * lu(k,1887)
12987 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1442) * lu(k,1887)
12988 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1443) * lu(k,1887)
12989 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1444) * lu(k,1887)
12990 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1445) * lu(k,1887)
12991 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1446) * lu(k,1887)
12992 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1447) * lu(k,1887)
12993 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1448) * lu(k,1887)
12994 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1449) * lu(k,1887)
12995 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1450) * lu(k,1887)
12996 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1451) * lu(k,1887)
12997 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1452) * lu(k,1887)
12998 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1453) * lu(k,1887)
12999 114070872 : lu(k,1929) = lu(k,1929) - lu(k,1439) * lu(k,1928)
13000 114070872 : lu(k,1930) = lu(k,1930) - lu(k,1440) * lu(k,1928)
13001 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1441) * lu(k,1928)
13002 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1442) * lu(k,1928)
13003 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1443) * lu(k,1928)
13004 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1444) * lu(k,1928)
13005 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1445) * lu(k,1928)
13006 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1446) * lu(k,1928)
13007 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1447) * lu(k,1928)
13008 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1448) * lu(k,1928)
13009 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1449) * lu(k,1928)
13010 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1450) * lu(k,1928)
13011 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1451) * lu(k,1928)
13012 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1452) * lu(k,1928)
13013 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1453) * lu(k,1928)
13014 114070872 : lu(k,1971) = lu(k,1971) - lu(k,1439) * lu(k,1970)
13015 114070872 : lu(k,1972) = lu(k,1972) - lu(k,1440) * lu(k,1970)
13016 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1441) * lu(k,1970)
13017 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1442) * lu(k,1970)
13018 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1443) * lu(k,1970)
13019 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1444) * lu(k,1970)
13020 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1445) * lu(k,1970)
13021 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1446) * lu(k,1970)
13022 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1447) * lu(k,1970)
13023 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1448) * lu(k,1970)
13024 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1449) * lu(k,1970)
13025 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1450) * lu(k,1970)
13026 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1451) * lu(k,1970)
13027 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1452) * lu(k,1970)
13028 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1453) * lu(k,1970)
13029 114070872 : lu(k,2016) = lu(k,2016) - lu(k,1439) * lu(k,2015)
13030 114070872 : lu(k,2017) = lu(k,2017) - lu(k,1440) * lu(k,2015)
13031 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1441) * lu(k,2015)
13032 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1442) * lu(k,2015)
13033 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1443) * lu(k,2015)
13034 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1444) * lu(k,2015)
13035 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1445) * lu(k,2015)
13036 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1446) * lu(k,2015)
13037 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1447) * lu(k,2015)
13038 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1448) * lu(k,2015)
13039 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1449) * lu(k,2015)
13040 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1450) * lu(k,2015)
13041 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1451) * lu(k,2015)
13042 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1452) * lu(k,2015)
13043 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1453) * lu(k,2015)
13044 114070872 : lu(k,2076) = lu(k,2076) - lu(k,1439) * lu(k,2075)
13045 114070872 : lu(k,2077) = lu(k,2077) - lu(k,1440) * lu(k,2075)
13046 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1441) * lu(k,2075)
13047 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1442) * lu(k,2075)
13048 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1443) * lu(k,2075)
13049 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1444) * lu(k,2075)
13050 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1445) * lu(k,2075)
13051 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1446) * lu(k,2075)
13052 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1447) * lu(k,2075)
13053 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1448) * lu(k,2075)
13054 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1449) * lu(k,2075)
13055 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1450) * lu(k,2075)
13056 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1451) * lu(k,2075)
13057 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1452) * lu(k,2075)
13058 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1453) * lu(k,2075)
13059 114070872 : lu(k,1487) = 1._r8 / lu(k,1487)
13060 114070872 : lu(k,1488) = lu(k,1488) * lu(k,1487)
13061 114070872 : lu(k,1489) = lu(k,1489) * lu(k,1487)
13062 114070872 : lu(k,1490) = lu(k,1490) * lu(k,1487)
13063 114070872 : lu(k,1491) = lu(k,1491) * lu(k,1487)
13064 114070872 : lu(k,1492) = lu(k,1492) * lu(k,1487)
13065 114070872 : lu(k,1493) = lu(k,1493) * lu(k,1487)
13066 114070872 : lu(k,1494) = lu(k,1494) * lu(k,1487)
13067 114070872 : lu(k,1495) = lu(k,1495) * lu(k,1487)
13068 114070872 : lu(k,1496) = lu(k,1496) * lu(k,1487)
13069 114070872 : lu(k,1497) = lu(k,1497) * lu(k,1487)
13070 114070872 : lu(k,1498) = lu(k,1498) * lu(k,1487)
13071 114070872 : lu(k,1499) = lu(k,1499) * lu(k,1487)
13072 114070872 : lu(k,1500) = lu(k,1500) * lu(k,1487)
13073 114070872 : lu(k,1501) = lu(k,1501) * lu(k,1487)
13074 114070872 : lu(k,1529) = lu(k,1529) - lu(k,1488) * lu(k,1528)
13075 114070872 : lu(k,1530) = lu(k,1530) - lu(k,1489) * lu(k,1528)
13076 114070872 : lu(k,1531) = lu(k,1531) - lu(k,1490) * lu(k,1528)
13077 114070872 : lu(k,1532) = lu(k,1532) - lu(k,1491) * lu(k,1528)
13078 114070872 : lu(k,1533) = lu(k,1533) - lu(k,1492) * lu(k,1528)
13079 114070872 : lu(k,1534) = lu(k,1534) - lu(k,1493) * lu(k,1528)
13080 114070872 : lu(k,1535) = lu(k,1535) - lu(k,1494) * lu(k,1528)
13081 114070872 : lu(k,1536) = lu(k,1536) - lu(k,1495) * lu(k,1528)
13082 114070872 : lu(k,1537) = lu(k,1537) - lu(k,1496) * lu(k,1528)
13083 114070872 : lu(k,1538) = lu(k,1538) - lu(k,1497) * lu(k,1528)
13084 114070872 : lu(k,1539) = lu(k,1539) - lu(k,1498) * lu(k,1528)
13085 114070872 : lu(k,1540) = lu(k,1540) - lu(k,1499) * lu(k,1528)
13086 114070872 : lu(k,1541) = lu(k,1541) - lu(k,1500) * lu(k,1528)
13087 114070872 : lu(k,1542) = lu(k,1542) - lu(k,1501) * lu(k,1528)
13088 114070872 : lu(k,1565) = lu(k,1565) - lu(k,1488) * lu(k,1564)
13089 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1489) * lu(k,1564)
13090 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1490) * lu(k,1564)
13091 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1491) * lu(k,1564)
13092 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1492) * lu(k,1564)
13093 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1493) * lu(k,1564)
13094 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1494) * lu(k,1564)
13095 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1495) * lu(k,1564)
13096 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1496) * lu(k,1564)
13097 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1497) * lu(k,1564)
13098 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1498) * lu(k,1564)
13099 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1499) * lu(k,1564)
13100 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1500) * lu(k,1564)
13101 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1501) * lu(k,1564)
13102 114070872 : lu(k,1610) = lu(k,1610) - lu(k,1488) * lu(k,1609)
13103 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1489) * lu(k,1609)
13104 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1490) * lu(k,1609)
13105 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1491) * lu(k,1609)
13106 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1492) * lu(k,1609)
13107 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1493) * lu(k,1609)
13108 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1494) * lu(k,1609)
13109 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1495) * lu(k,1609)
13110 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1496) * lu(k,1609)
13111 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1497) * lu(k,1609)
13112 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1498) * lu(k,1609)
13113 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1499) * lu(k,1609)
13114 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1500) * lu(k,1609)
13115 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1501) * lu(k,1609)
13116 114070872 : lu(k,1653) = lu(k,1653) - lu(k,1488) * lu(k,1652)
13117 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1489) * lu(k,1652)
13118 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1490) * lu(k,1652)
13119 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1491) * lu(k,1652)
13120 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1492) * lu(k,1652)
13121 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1493) * lu(k,1652)
13122 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1494) * lu(k,1652)
13123 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1495) * lu(k,1652)
13124 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1496) * lu(k,1652)
13125 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1497) * lu(k,1652)
13126 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1498) * lu(k,1652)
13127 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1499) * lu(k,1652)
13128 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1500) * lu(k,1652)
13129 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1501) * lu(k,1652)
13130 114070872 : lu(k,1696) = lu(k,1696) - lu(k,1488) * lu(k,1695)
13131 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1489) * lu(k,1695)
13132 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1490) * lu(k,1695)
13133 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1491) * lu(k,1695)
13134 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1492) * lu(k,1695)
13135 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1493) * lu(k,1695)
13136 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1494) * lu(k,1695)
13137 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1495) * lu(k,1695)
13138 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1496) * lu(k,1695)
13139 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1497) * lu(k,1695)
13140 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1498) * lu(k,1695)
13141 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1499) * lu(k,1695)
13142 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1500) * lu(k,1695)
13143 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1501) * lu(k,1695)
13144 114070872 : lu(k,1736) = lu(k,1736) - lu(k,1488) * lu(k,1735)
13145 114070872 : lu(k,1737) = lu(k,1737) - lu(k,1489) * lu(k,1735)
13146 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1490) * lu(k,1735)
13147 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1491) * lu(k,1735)
13148 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1492) * lu(k,1735)
13149 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1493) * lu(k,1735)
13150 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1494) * lu(k,1735)
13151 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1495) * lu(k,1735)
13152 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1496) * lu(k,1735)
13153 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1497) * lu(k,1735)
13154 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1498) * lu(k,1735)
13155 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1499) * lu(k,1735)
13156 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1500) * lu(k,1735)
13157 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1501) * lu(k,1735)
13158 114070872 : lu(k,1772) = lu(k,1772) - lu(k,1488) * lu(k,1771)
13159 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1489) * lu(k,1771)
13160 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1490) * lu(k,1771)
13161 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1491) * lu(k,1771)
13162 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1492) * lu(k,1771)
13163 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1493) * lu(k,1771)
13164 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1494) * lu(k,1771)
13165 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1495) * lu(k,1771)
13166 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1496) * lu(k,1771)
13167 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1497) * lu(k,1771)
13168 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1498) * lu(k,1771)
13169 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1499) * lu(k,1771)
13170 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1500) * lu(k,1771)
13171 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1501) * lu(k,1771)
13172 114070872 : lu(k,1820) = lu(k,1820) - lu(k,1488) * lu(k,1819)
13173 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1489) * lu(k,1819)
13174 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1490) * lu(k,1819)
13175 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1491) * lu(k,1819)
13176 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1492) * lu(k,1819)
13177 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1493) * lu(k,1819)
13178 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1494) * lu(k,1819)
13179 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1495) * lu(k,1819)
13180 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1496) * lu(k,1819)
13181 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1497) * lu(k,1819)
13182 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1498) * lu(k,1819)
13183 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1499) * lu(k,1819)
13184 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1500) * lu(k,1819)
13185 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1501) * lu(k,1819)
13186 114070872 : lu(k,1853) = lu(k,1853) - lu(k,1488) * lu(k,1852)
13187 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1489) * lu(k,1852)
13188 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1490) * lu(k,1852)
13189 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1491) * lu(k,1852)
13190 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1492) * lu(k,1852)
13191 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1493) * lu(k,1852)
13192 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1494) * lu(k,1852)
13193 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1495) * lu(k,1852)
13194 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1496) * lu(k,1852)
13195 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1497) * lu(k,1852)
13196 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1498) * lu(k,1852)
13197 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1499) * lu(k,1852)
13198 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1500) * lu(k,1852)
13199 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1501) * lu(k,1852)
13200 114070872 : lu(k,1889) = lu(k,1889) - lu(k,1488) * lu(k,1888)
13201 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1489) * lu(k,1888)
13202 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1490) * lu(k,1888)
13203 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1491) * lu(k,1888)
13204 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1492) * lu(k,1888)
13205 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1493) * lu(k,1888)
13206 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1494) * lu(k,1888)
13207 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1495) * lu(k,1888)
13208 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1496) * lu(k,1888)
13209 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1497) * lu(k,1888)
13210 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1498) * lu(k,1888)
13211 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1499) * lu(k,1888)
13212 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1500) * lu(k,1888)
13213 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1501) * lu(k,1888)
13214 114070872 : lu(k,1930) = lu(k,1930) - lu(k,1488) * lu(k,1929)
13215 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1489) * lu(k,1929)
13216 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1490) * lu(k,1929)
13217 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1491) * lu(k,1929)
13218 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1492) * lu(k,1929)
13219 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1493) * lu(k,1929)
13220 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1494) * lu(k,1929)
13221 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1495) * lu(k,1929)
13222 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1496) * lu(k,1929)
13223 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1497) * lu(k,1929)
13224 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1498) * lu(k,1929)
13225 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1499) * lu(k,1929)
13226 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1500) * lu(k,1929)
13227 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1501) * lu(k,1929)
13228 114070872 : lu(k,1972) = lu(k,1972) - lu(k,1488) * lu(k,1971)
13229 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1489) * lu(k,1971)
13230 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1490) * lu(k,1971)
13231 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1491) * lu(k,1971)
13232 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1492) * lu(k,1971)
13233 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1493) * lu(k,1971)
13234 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1494) * lu(k,1971)
13235 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1495) * lu(k,1971)
13236 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1496) * lu(k,1971)
13237 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1497) * lu(k,1971)
13238 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1498) * lu(k,1971)
13239 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1499) * lu(k,1971)
13240 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1500) * lu(k,1971)
13241 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1501) * lu(k,1971)
13242 114070872 : lu(k,2017) = lu(k,2017) - lu(k,1488) * lu(k,2016)
13243 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1489) * lu(k,2016)
13244 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1490) * lu(k,2016)
13245 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1491) * lu(k,2016)
13246 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1492) * lu(k,2016)
13247 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1493) * lu(k,2016)
13248 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1494) * lu(k,2016)
13249 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1495) * lu(k,2016)
13250 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1496) * lu(k,2016)
13251 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1497) * lu(k,2016)
13252 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1498) * lu(k,2016)
13253 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1499) * lu(k,2016)
13254 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1500) * lu(k,2016)
13255 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1501) * lu(k,2016)
13256 114070872 : lu(k,2077) = lu(k,2077) - lu(k,1488) * lu(k,2076)
13257 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1489) * lu(k,2076)
13258 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1490) * lu(k,2076)
13259 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1491) * lu(k,2076)
13260 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1492) * lu(k,2076)
13261 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1493) * lu(k,2076)
13262 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1494) * lu(k,2076)
13263 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1495) * lu(k,2076)
13264 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1496) * lu(k,2076)
13265 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1497) * lu(k,2076)
13266 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1498) * lu(k,2076)
13267 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1499) * lu(k,2076)
13268 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1500) * lu(k,2076)
13269 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1501) * lu(k,2076)
13270 114070872 : lu(k,1529) = 1._r8 / lu(k,1529)
13271 114070872 : lu(k,1530) = lu(k,1530) * lu(k,1529)
13272 114070872 : lu(k,1531) = lu(k,1531) * lu(k,1529)
13273 114070872 : lu(k,1532) = lu(k,1532) * lu(k,1529)
13274 114070872 : lu(k,1533) = lu(k,1533) * lu(k,1529)
13275 114070872 : lu(k,1534) = lu(k,1534) * lu(k,1529)
13276 114070872 : lu(k,1535) = lu(k,1535) * lu(k,1529)
13277 114070872 : lu(k,1536) = lu(k,1536) * lu(k,1529)
13278 114070872 : lu(k,1537) = lu(k,1537) * lu(k,1529)
13279 114070872 : lu(k,1538) = lu(k,1538) * lu(k,1529)
13280 114070872 : lu(k,1539) = lu(k,1539) * lu(k,1529)
13281 114070872 : lu(k,1540) = lu(k,1540) * lu(k,1529)
13282 114070872 : lu(k,1541) = lu(k,1541) * lu(k,1529)
13283 114070872 : lu(k,1542) = lu(k,1542) * lu(k,1529)
13284 114070872 : lu(k,1566) = lu(k,1566) - lu(k,1530) * lu(k,1565)
13285 114070872 : lu(k,1567) = lu(k,1567) - lu(k,1531) * lu(k,1565)
13286 114070872 : lu(k,1568) = lu(k,1568) - lu(k,1532) * lu(k,1565)
13287 114070872 : lu(k,1569) = lu(k,1569) - lu(k,1533) * lu(k,1565)
13288 114070872 : lu(k,1570) = lu(k,1570) - lu(k,1534) * lu(k,1565)
13289 114070872 : lu(k,1571) = lu(k,1571) - lu(k,1535) * lu(k,1565)
13290 114070872 : lu(k,1572) = lu(k,1572) - lu(k,1536) * lu(k,1565)
13291 114070872 : lu(k,1573) = lu(k,1573) - lu(k,1537) * lu(k,1565)
13292 114070872 : lu(k,1574) = lu(k,1574) - lu(k,1538) * lu(k,1565)
13293 114070872 : lu(k,1575) = lu(k,1575) - lu(k,1539) * lu(k,1565)
13294 114070872 : lu(k,1576) = lu(k,1576) - lu(k,1540) * lu(k,1565)
13295 114070872 : lu(k,1577) = lu(k,1577) - lu(k,1541) * lu(k,1565)
13296 114070872 : lu(k,1578) = lu(k,1578) - lu(k,1542) * lu(k,1565)
13297 114070872 : lu(k,1611) = lu(k,1611) - lu(k,1530) * lu(k,1610)
13298 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1531) * lu(k,1610)
13299 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1532) * lu(k,1610)
13300 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1533) * lu(k,1610)
13301 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1534) * lu(k,1610)
13302 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1535) * lu(k,1610)
13303 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1536) * lu(k,1610)
13304 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1537) * lu(k,1610)
13305 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1538) * lu(k,1610)
13306 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1539) * lu(k,1610)
13307 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1540) * lu(k,1610)
13308 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1541) * lu(k,1610)
13309 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1542) * lu(k,1610)
13310 114070872 : lu(k,1654) = lu(k,1654) - lu(k,1530) * lu(k,1653)
13311 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1531) * lu(k,1653)
13312 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1532) * lu(k,1653)
13313 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1533) * lu(k,1653)
13314 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1534) * lu(k,1653)
13315 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1535) * lu(k,1653)
13316 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1536) * lu(k,1653)
13317 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1537) * lu(k,1653)
13318 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1538) * lu(k,1653)
13319 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1539) * lu(k,1653)
13320 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1540) * lu(k,1653)
13321 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1541) * lu(k,1653)
13322 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1542) * lu(k,1653)
13323 114070872 : lu(k,1697) = lu(k,1697) - lu(k,1530) * lu(k,1696)
13324 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1531) * lu(k,1696)
13325 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1532) * lu(k,1696)
13326 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1533) * lu(k,1696)
13327 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1534) * lu(k,1696)
13328 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1535) * lu(k,1696)
13329 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1536) * lu(k,1696)
13330 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1537) * lu(k,1696)
13331 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1538) * lu(k,1696)
13332 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1539) * lu(k,1696)
13333 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1540) * lu(k,1696)
13334 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1541) * lu(k,1696)
13335 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1542) * lu(k,1696)
13336 114070872 : lu(k,1737) = lu(k,1737) - lu(k,1530) * lu(k,1736)
13337 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1531) * lu(k,1736)
13338 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1532) * lu(k,1736)
13339 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1533) * lu(k,1736)
13340 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1534) * lu(k,1736)
13341 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1535) * lu(k,1736)
13342 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1536) * lu(k,1736)
13343 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1537) * lu(k,1736)
13344 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1538) * lu(k,1736)
13345 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1539) * lu(k,1736)
13346 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1540) * lu(k,1736)
13347 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1541) * lu(k,1736)
13348 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1542) * lu(k,1736)
13349 114070872 : lu(k,1773) = lu(k,1773) - lu(k,1530) * lu(k,1772)
13350 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1531) * lu(k,1772)
13351 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1532) * lu(k,1772)
13352 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1533) * lu(k,1772)
13353 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1534) * lu(k,1772)
13354 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1535) * lu(k,1772)
13355 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1536) * lu(k,1772)
13356 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1537) * lu(k,1772)
13357 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1538) * lu(k,1772)
13358 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1539) * lu(k,1772)
13359 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1540) * lu(k,1772)
13360 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1541) * lu(k,1772)
13361 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1542) * lu(k,1772)
13362 114070872 : lu(k,1821) = lu(k,1821) - lu(k,1530) * lu(k,1820)
13363 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1531) * lu(k,1820)
13364 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1532) * lu(k,1820)
13365 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1533) * lu(k,1820)
13366 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1534) * lu(k,1820)
13367 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1535) * lu(k,1820)
13368 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1536) * lu(k,1820)
13369 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1537) * lu(k,1820)
13370 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1538) * lu(k,1820)
13371 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1539) * lu(k,1820)
13372 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1540) * lu(k,1820)
13373 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1541) * lu(k,1820)
13374 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1542) * lu(k,1820)
13375 114070872 : lu(k,1854) = lu(k,1854) - lu(k,1530) * lu(k,1853)
13376 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1531) * lu(k,1853)
13377 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1532) * lu(k,1853)
13378 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1533) * lu(k,1853)
13379 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1534) * lu(k,1853)
13380 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1535) * lu(k,1853)
13381 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1536) * lu(k,1853)
13382 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1537) * lu(k,1853)
13383 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1538) * lu(k,1853)
13384 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1539) * lu(k,1853)
13385 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1540) * lu(k,1853)
13386 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1541) * lu(k,1853)
13387 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1542) * lu(k,1853)
13388 114070872 : lu(k,1890) = lu(k,1890) - lu(k,1530) * lu(k,1889)
13389 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1531) * lu(k,1889)
13390 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1532) * lu(k,1889)
13391 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1533) * lu(k,1889)
13392 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1534) * lu(k,1889)
13393 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1535) * lu(k,1889)
13394 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1536) * lu(k,1889)
13395 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1537) * lu(k,1889)
13396 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1538) * lu(k,1889)
13397 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1539) * lu(k,1889)
13398 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1540) * lu(k,1889)
13399 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1541) * lu(k,1889)
13400 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1542) * lu(k,1889)
13401 114070872 : lu(k,1931) = lu(k,1931) - lu(k,1530) * lu(k,1930)
13402 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1531) * lu(k,1930)
13403 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1532) * lu(k,1930)
13404 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1533) * lu(k,1930)
13405 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1534) * lu(k,1930)
13406 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1535) * lu(k,1930)
13407 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1536) * lu(k,1930)
13408 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1537) * lu(k,1930)
13409 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1538) * lu(k,1930)
13410 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1539) * lu(k,1930)
13411 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1540) * lu(k,1930)
13412 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1541) * lu(k,1930)
13413 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1542) * lu(k,1930)
13414 114070872 : lu(k,1973) = lu(k,1973) - lu(k,1530) * lu(k,1972)
13415 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1531) * lu(k,1972)
13416 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1532) * lu(k,1972)
13417 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1533) * lu(k,1972)
13418 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1534) * lu(k,1972)
13419 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1535) * lu(k,1972)
13420 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1536) * lu(k,1972)
13421 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1537) * lu(k,1972)
13422 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1538) * lu(k,1972)
13423 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1539) * lu(k,1972)
13424 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1540) * lu(k,1972)
13425 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1541) * lu(k,1972)
13426 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1542) * lu(k,1972)
13427 114070872 : lu(k,2018) = lu(k,2018) - lu(k,1530) * lu(k,2017)
13428 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1531) * lu(k,2017)
13429 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1532) * lu(k,2017)
13430 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1533) * lu(k,2017)
13431 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1534) * lu(k,2017)
13432 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1535) * lu(k,2017)
13433 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1536) * lu(k,2017)
13434 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1537) * lu(k,2017)
13435 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1538) * lu(k,2017)
13436 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1539) * lu(k,2017)
13437 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1540) * lu(k,2017)
13438 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1541) * lu(k,2017)
13439 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1542) * lu(k,2017)
13440 114070872 : lu(k,2078) = lu(k,2078) - lu(k,1530) * lu(k,2077)
13441 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1531) * lu(k,2077)
13442 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1532) * lu(k,2077)
13443 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1533) * lu(k,2077)
13444 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1534) * lu(k,2077)
13445 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1535) * lu(k,2077)
13446 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1536) * lu(k,2077)
13447 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1537) * lu(k,2077)
13448 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1538) * lu(k,2077)
13449 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1539) * lu(k,2077)
13450 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1540) * lu(k,2077)
13451 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1541) * lu(k,2077)
13452 117656469 : lu(k,2090) = lu(k,2090) - lu(k,1542) * lu(k,2077)
13453 : end do
13454 3585597 : end subroutine lu_fac24
13455 3585597 : subroutine lu_fac25( avec_len, lu )
13456 : use chem_mods, only : nzcnt
13457 : use shr_kind_mod, only : r8 => shr_kind_r8
13458 : implicit none
13459 : !-----------------------------------------------------------------------
13460 : ! ... dummy args
13461 : !-----------------------------------------------------------------------
13462 : integer, intent(in) :: avec_len
13463 : real(r8), intent(inout) :: lu(veclen,nzcnt)
13464 : !-----------------------------------------------------------------------
13465 : ! ... local variables
13466 : !-----------------------------------------------------------------------
13467 : integer :: k
13468 117656469 : do k = 1,avec_len
13469 114070872 : lu(k,1566) = 1._r8 / lu(k,1566)
13470 114070872 : lu(k,1567) = lu(k,1567) * lu(k,1566)
13471 114070872 : lu(k,1568) = lu(k,1568) * lu(k,1566)
13472 114070872 : lu(k,1569) = lu(k,1569) * lu(k,1566)
13473 114070872 : lu(k,1570) = lu(k,1570) * lu(k,1566)
13474 114070872 : lu(k,1571) = lu(k,1571) * lu(k,1566)
13475 114070872 : lu(k,1572) = lu(k,1572) * lu(k,1566)
13476 114070872 : lu(k,1573) = lu(k,1573) * lu(k,1566)
13477 114070872 : lu(k,1574) = lu(k,1574) * lu(k,1566)
13478 114070872 : lu(k,1575) = lu(k,1575) * lu(k,1566)
13479 114070872 : lu(k,1576) = lu(k,1576) * lu(k,1566)
13480 114070872 : lu(k,1577) = lu(k,1577) * lu(k,1566)
13481 114070872 : lu(k,1578) = lu(k,1578) * lu(k,1566)
13482 114070872 : lu(k,1612) = lu(k,1612) - lu(k,1567) * lu(k,1611)
13483 114070872 : lu(k,1613) = lu(k,1613) - lu(k,1568) * lu(k,1611)
13484 114070872 : lu(k,1614) = lu(k,1614) - lu(k,1569) * lu(k,1611)
13485 114070872 : lu(k,1615) = lu(k,1615) - lu(k,1570) * lu(k,1611)
13486 114070872 : lu(k,1616) = lu(k,1616) - lu(k,1571) * lu(k,1611)
13487 114070872 : lu(k,1617) = lu(k,1617) - lu(k,1572) * lu(k,1611)
13488 114070872 : lu(k,1618) = lu(k,1618) - lu(k,1573) * lu(k,1611)
13489 114070872 : lu(k,1619) = lu(k,1619) - lu(k,1574) * lu(k,1611)
13490 114070872 : lu(k,1620) = lu(k,1620) - lu(k,1575) * lu(k,1611)
13491 114070872 : lu(k,1621) = lu(k,1621) - lu(k,1576) * lu(k,1611)
13492 114070872 : lu(k,1622) = lu(k,1622) - lu(k,1577) * lu(k,1611)
13493 114070872 : lu(k,1623) = lu(k,1623) - lu(k,1578) * lu(k,1611)
13494 114070872 : lu(k,1655) = lu(k,1655) - lu(k,1567) * lu(k,1654)
13495 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1568) * lu(k,1654)
13496 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1569) * lu(k,1654)
13497 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1570) * lu(k,1654)
13498 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1571) * lu(k,1654)
13499 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1572) * lu(k,1654)
13500 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1573) * lu(k,1654)
13501 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1574) * lu(k,1654)
13502 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1575) * lu(k,1654)
13503 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1576) * lu(k,1654)
13504 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1577) * lu(k,1654)
13505 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1578) * lu(k,1654)
13506 114070872 : lu(k,1698) = lu(k,1698) - lu(k,1567) * lu(k,1697)
13507 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1568) * lu(k,1697)
13508 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1569) * lu(k,1697)
13509 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1570) * lu(k,1697)
13510 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1571) * lu(k,1697)
13511 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1572) * lu(k,1697)
13512 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1573) * lu(k,1697)
13513 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1574) * lu(k,1697)
13514 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1575) * lu(k,1697)
13515 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1576) * lu(k,1697)
13516 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1577) * lu(k,1697)
13517 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1578) * lu(k,1697)
13518 114070872 : lu(k,1738) = lu(k,1738) - lu(k,1567) * lu(k,1737)
13519 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1568) * lu(k,1737)
13520 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1569) * lu(k,1737)
13521 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1570) * lu(k,1737)
13522 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1571) * lu(k,1737)
13523 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1572) * lu(k,1737)
13524 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1573) * lu(k,1737)
13525 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1574) * lu(k,1737)
13526 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1575) * lu(k,1737)
13527 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1576) * lu(k,1737)
13528 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1577) * lu(k,1737)
13529 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1578) * lu(k,1737)
13530 114070872 : lu(k,1774) = lu(k,1774) - lu(k,1567) * lu(k,1773)
13531 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1568) * lu(k,1773)
13532 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1569) * lu(k,1773)
13533 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1570) * lu(k,1773)
13534 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1571) * lu(k,1773)
13535 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1572) * lu(k,1773)
13536 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1573) * lu(k,1773)
13537 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1574) * lu(k,1773)
13538 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1575) * lu(k,1773)
13539 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1576) * lu(k,1773)
13540 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1577) * lu(k,1773)
13541 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1578) * lu(k,1773)
13542 114070872 : lu(k,1822) = lu(k,1822) - lu(k,1567) * lu(k,1821)
13543 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1568) * lu(k,1821)
13544 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1569) * lu(k,1821)
13545 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1570) * lu(k,1821)
13546 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1571) * lu(k,1821)
13547 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1572) * lu(k,1821)
13548 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1573) * lu(k,1821)
13549 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1574) * lu(k,1821)
13550 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1575) * lu(k,1821)
13551 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1576) * lu(k,1821)
13552 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1577) * lu(k,1821)
13553 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1578) * lu(k,1821)
13554 114070872 : lu(k,1855) = lu(k,1855) - lu(k,1567) * lu(k,1854)
13555 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1568) * lu(k,1854)
13556 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1569) * lu(k,1854)
13557 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1570) * lu(k,1854)
13558 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1571) * lu(k,1854)
13559 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1572) * lu(k,1854)
13560 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1573) * lu(k,1854)
13561 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1574) * lu(k,1854)
13562 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1575) * lu(k,1854)
13563 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1576) * lu(k,1854)
13564 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1577) * lu(k,1854)
13565 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1578) * lu(k,1854)
13566 114070872 : lu(k,1891) = lu(k,1891) - lu(k,1567) * lu(k,1890)
13567 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1568) * lu(k,1890)
13568 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1569) * lu(k,1890)
13569 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1570) * lu(k,1890)
13570 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1571) * lu(k,1890)
13571 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1572) * lu(k,1890)
13572 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1573) * lu(k,1890)
13573 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1574) * lu(k,1890)
13574 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1575) * lu(k,1890)
13575 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1576) * lu(k,1890)
13576 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1577) * lu(k,1890)
13577 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1578) * lu(k,1890)
13578 114070872 : lu(k,1932) = lu(k,1932) - lu(k,1567) * lu(k,1931)
13579 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1568) * lu(k,1931)
13580 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1569) * lu(k,1931)
13581 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1570) * lu(k,1931)
13582 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1571) * lu(k,1931)
13583 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1572) * lu(k,1931)
13584 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1573) * lu(k,1931)
13585 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1574) * lu(k,1931)
13586 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1575) * lu(k,1931)
13587 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1576) * lu(k,1931)
13588 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1577) * lu(k,1931)
13589 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1578) * lu(k,1931)
13590 114070872 : lu(k,1974) = lu(k,1974) - lu(k,1567) * lu(k,1973)
13591 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1568) * lu(k,1973)
13592 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1569) * lu(k,1973)
13593 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1570) * lu(k,1973)
13594 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1571) * lu(k,1973)
13595 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1572) * lu(k,1973)
13596 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1573) * lu(k,1973)
13597 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1574) * lu(k,1973)
13598 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1575) * lu(k,1973)
13599 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1576) * lu(k,1973)
13600 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1577) * lu(k,1973)
13601 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1578) * lu(k,1973)
13602 114070872 : lu(k,2019) = lu(k,2019) - lu(k,1567) * lu(k,2018)
13603 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1568) * lu(k,2018)
13604 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1569) * lu(k,2018)
13605 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1570) * lu(k,2018)
13606 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1571) * lu(k,2018)
13607 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1572) * lu(k,2018)
13608 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1573) * lu(k,2018)
13609 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1574) * lu(k,2018)
13610 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1575) * lu(k,2018)
13611 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1576) * lu(k,2018)
13612 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1577) * lu(k,2018)
13613 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1578) * lu(k,2018)
13614 114070872 : lu(k,2079) = lu(k,2079) - lu(k,1567) * lu(k,2078)
13615 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1568) * lu(k,2078)
13616 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1569) * lu(k,2078)
13617 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1570) * lu(k,2078)
13618 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1571) * lu(k,2078)
13619 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1572) * lu(k,2078)
13620 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1573) * lu(k,2078)
13621 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1574) * lu(k,2078)
13622 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1575) * lu(k,2078)
13623 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1576) * lu(k,2078)
13624 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1577) * lu(k,2078)
13625 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1578) * lu(k,2078)
13626 114070872 : lu(k,1612) = 1._r8 / lu(k,1612)
13627 114070872 : lu(k,1613) = lu(k,1613) * lu(k,1612)
13628 114070872 : lu(k,1614) = lu(k,1614) * lu(k,1612)
13629 114070872 : lu(k,1615) = lu(k,1615) * lu(k,1612)
13630 114070872 : lu(k,1616) = lu(k,1616) * lu(k,1612)
13631 114070872 : lu(k,1617) = lu(k,1617) * lu(k,1612)
13632 114070872 : lu(k,1618) = lu(k,1618) * lu(k,1612)
13633 114070872 : lu(k,1619) = lu(k,1619) * lu(k,1612)
13634 114070872 : lu(k,1620) = lu(k,1620) * lu(k,1612)
13635 114070872 : lu(k,1621) = lu(k,1621) * lu(k,1612)
13636 114070872 : lu(k,1622) = lu(k,1622) * lu(k,1612)
13637 114070872 : lu(k,1623) = lu(k,1623) * lu(k,1612)
13638 114070872 : lu(k,1656) = lu(k,1656) - lu(k,1613) * lu(k,1655)
13639 114070872 : lu(k,1657) = lu(k,1657) - lu(k,1614) * lu(k,1655)
13640 114070872 : lu(k,1658) = lu(k,1658) - lu(k,1615) * lu(k,1655)
13641 114070872 : lu(k,1659) = lu(k,1659) - lu(k,1616) * lu(k,1655)
13642 114070872 : lu(k,1660) = lu(k,1660) - lu(k,1617) * lu(k,1655)
13643 114070872 : lu(k,1661) = lu(k,1661) - lu(k,1618) * lu(k,1655)
13644 114070872 : lu(k,1662) = lu(k,1662) - lu(k,1619) * lu(k,1655)
13645 114070872 : lu(k,1663) = lu(k,1663) - lu(k,1620) * lu(k,1655)
13646 114070872 : lu(k,1664) = lu(k,1664) - lu(k,1621) * lu(k,1655)
13647 114070872 : lu(k,1665) = lu(k,1665) - lu(k,1622) * lu(k,1655)
13648 114070872 : lu(k,1666) = lu(k,1666) - lu(k,1623) * lu(k,1655)
13649 114070872 : lu(k,1699) = lu(k,1699) - lu(k,1613) * lu(k,1698)
13650 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1614) * lu(k,1698)
13651 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1615) * lu(k,1698)
13652 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1616) * lu(k,1698)
13653 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1617) * lu(k,1698)
13654 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1618) * lu(k,1698)
13655 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1619) * lu(k,1698)
13656 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1620) * lu(k,1698)
13657 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1621) * lu(k,1698)
13658 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1622) * lu(k,1698)
13659 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1623) * lu(k,1698)
13660 114070872 : lu(k,1739) = lu(k,1739) - lu(k,1613) * lu(k,1738)
13661 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1614) * lu(k,1738)
13662 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1615) * lu(k,1738)
13663 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1616) * lu(k,1738)
13664 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1617) * lu(k,1738)
13665 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1618) * lu(k,1738)
13666 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1619) * lu(k,1738)
13667 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1620) * lu(k,1738)
13668 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1621) * lu(k,1738)
13669 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1622) * lu(k,1738)
13670 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1623) * lu(k,1738)
13671 114070872 : lu(k,1775) = lu(k,1775) - lu(k,1613) * lu(k,1774)
13672 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1614) * lu(k,1774)
13673 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1615) * lu(k,1774)
13674 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1616) * lu(k,1774)
13675 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1617) * lu(k,1774)
13676 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1618) * lu(k,1774)
13677 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1619) * lu(k,1774)
13678 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1620) * lu(k,1774)
13679 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1621) * lu(k,1774)
13680 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1622) * lu(k,1774)
13681 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1623) * lu(k,1774)
13682 114070872 : lu(k,1823) = lu(k,1823) - lu(k,1613) * lu(k,1822)
13683 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1614) * lu(k,1822)
13684 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1615) * lu(k,1822)
13685 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1616) * lu(k,1822)
13686 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1617) * lu(k,1822)
13687 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1618) * lu(k,1822)
13688 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1619) * lu(k,1822)
13689 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1620) * lu(k,1822)
13690 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1621) * lu(k,1822)
13691 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1622) * lu(k,1822)
13692 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1623) * lu(k,1822)
13693 114070872 : lu(k,1856) = lu(k,1856) - lu(k,1613) * lu(k,1855)
13694 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1614) * lu(k,1855)
13695 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1615) * lu(k,1855)
13696 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1616) * lu(k,1855)
13697 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1617) * lu(k,1855)
13698 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1618) * lu(k,1855)
13699 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1619) * lu(k,1855)
13700 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1620) * lu(k,1855)
13701 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1621) * lu(k,1855)
13702 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1622) * lu(k,1855)
13703 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1623) * lu(k,1855)
13704 114070872 : lu(k,1892) = lu(k,1892) - lu(k,1613) * lu(k,1891)
13705 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1614) * lu(k,1891)
13706 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1615) * lu(k,1891)
13707 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1616) * lu(k,1891)
13708 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1617) * lu(k,1891)
13709 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1618) * lu(k,1891)
13710 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1619) * lu(k,1891)
13711 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1620) * lu(k,1891)
13712 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1621) * lu(k,1891)
13713 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1622) * lu(k,1891)
13714 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1623) * lu(k,1891)
13715 114070872 : lu(k,1933) = lu(k,1933) - lu(k,1613) * lu(k,1932)
13716 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1614) * lu(k,1932)
13717 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1615) * lu(k,1932)
13718 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1616) * lu(k,1932)
13719 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1617) * lu(k,1932)
13720 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1618) * lu(k,1932)
13721 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1619) * lu(k,1932)
13722 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1620) * lu(k,1932)
13723 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1621) * lu(k,1932)
13724 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1622) * lu(k,1932)
13725 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1623) * lu(k,1932)
13726 114070872 : lu(k,1975) = lu(k,1975) - lu(k,1613) * lu(k,1974)
13727 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1614) * lu(k,1974)
13728 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1615) * lu(k,1974)
13729 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1616) * lu(k,1974)
13730 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1617) * lu(k,1974)
13731 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1618) * lu(k,1974)
13732 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1619) * lu(k,1974)
13733 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1620) * lu(k,1974)
13734 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1621) * lu(k,1974)
13735 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1622) * lu(k,1974)
13736 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1623) * lu(k,1974)
13737 114070872 : lu(k,2020) = lu(k,2020) - lu(k,1613) * lu(k,2019)
13738 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1614) * lu(k,2019)
13739 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1615) * lu(k,2019)
13740 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1616) * lu(k,2019)
13741 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1617) * lu(k,2019)
13742 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1618) * lu(k,2019)
13743 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1619) * lu(k,2019)
13744 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1620) * lu(k,2019)
13745 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1621) * lu(k,2019)
13746 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1622) * lu(k,2019)
13747 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1623) * lu(k,2019)
13748 114070872 : lu(k,2080) = lu(k,2080) - lu(k,1613) * lu(k,2079)
13749 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1614) * lu(k,2079)
13750 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1615) * lu(k,2079)
13751 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1616) * lu(k,2079)
13752 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1617) * lu(k,2079)
13753 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1618) * lu(k,2079)
13754 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1619) * lu(k,2079)
13755 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1620) * lu(k,2079)
13756 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1621) * lu(k,2079)
13757 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1622) * lu(k,2079)
13758 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1623) * lu(k,2079)
13759 114070872 : lu(k,1656) = 1._r8 / lu(k,1656)
13760 114070872 : lu(k,1657) = lu(k,1657) * lu(k,1656)
13761 114070872 : lu(k,1658) = lu(k,1658) * lu(k,1656)
13762 114070872 : lu(k,1659) = lu(k,1659) * lu(k,1656)
13763 114070872 : lu(k,1660) = lu(k,1660) * lu(k,1656)
13764 114070872 : lu(k,1661) = lu(k,1661) * lu(k,1656)
13765 114070872 : lu(k,1662) = lu(k,1662) * lu(k,1656)
13766 114070872 : lu(k,1663) = lu(k,1663) * lu(k,1656)
13767 114070872 : lu(k,1664) = lu(k,1664) * lu(k,1656)
13768 114070872 : lu(k,1665) = lu(k,1665) * lu(k,1656)
13769 114070872 : lu(k,1666) = lu(k,1666) * lu(k,1656)
13770 114070872 : lu(k,1700) = lu(k,1700) - lu(k,1657) * lu(k,1699)
13771 114070872 : lu(k,1701) = lu(k,1701) - lu(k,1658) * lu(k,1699)
13772 114070872 : lu(k,1702) = lu(k,1702) - lu(k,1659) * lu(k,1699)
13773 114070872 : lu(k,1703) = lu(k,1703) - lu(k,1660) * lu(k,1699)
13774 114070872 : lu(k,1704) = lu(k,1704) - lu(k,1661) * lu(k,1699)
13775 114070872 : lu(k,1705) = lu(k,1705) - lu(k,1662) * lu(k,1699)
13776 114070872 : lu(k,1706) = lu(k,1706) - lu(k,1663) * lu(k,1699)
13777 114070872 : lu(k,1707) = lu(k,1707) - lu(k,1664) * lu(k,1699)
13778 114070872 : lu(k,1708) = lu(k,1708) - lu(k,1665) * lu(k,1699)
13779 114070872 : lu(k,1709) = lu(k,1709) - lu(k,1666) * lu(k,1699)
13780 114070872 : lu(k,1740) = lu(k,1740) - lu(k,1657) * lu(k,1739)
13781 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1658) * lu(k,1739)
13782 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1659) * lu(k,1739)
13783 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1660) * lu(k,1739)
13784 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1661) * lu(k,1739)
13785 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1662) * lu(k,1739)
13786 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1663) * lu(k,1739)
13787 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1664) * lu(k,1739)
13788 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1665) * lu(k,1739)
13789 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1666) * lu(k,1739)
13790 114070872 : lu(k,1776) = lu(k,1776) - lu(k,1657) * lu(k,1775)
13791 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1658) * lu(k,1775)
13792 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1659) * lu(k,1775)
13793 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1660) * lu(k,1775)
13794 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1661) * lu(k,1775)
13795 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1662) * lu(k,1775)
13796 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1663) * lu(k,1775)
13797 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1664) * lu(k,1775)
13798 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1665) * lu(k,1775)
13799 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1666) * lu(k,1775)
13800 114070872 : lu(k,1824) = lu(k,1824) - lu(k,1657) * lu(k,1823)
13801 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1658) * lu(k,1823)
13802 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1659) * lu(k,1823)
13803 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1660) * lu(k,1823)
13804 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1661) * lu(k,1823)
13805 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1662) * lu(k,1823)
13806 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1663) * lu(k,1823)
13807 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1664) * lu(k,1823)
13808 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1665) * lu(k,1823)
13809 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1666) * lu(k,1823)
13810 114070872 : lu(k,1857) = lu(k,1857) - lu(k,1657) * lu(k,1856)
13811 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1658) * lu(k,1856)
13812 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1659) * lu(k,1856)
13813 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1660) * lu(k,1856)
13814 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1661) * lu(k,1856)
13815 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1662) * lu(k,1856)
13816 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1663) * lu(k,1856)
13817 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1664) * lu(k,1856)
13818 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1665) * lu(k,1856)
13819 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1666) * lu(k,1856)
13820 114070872 : lu(k,1893) = lu(k,1893) - lu(k,1657) * lu(k,1892)
13821 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1658) * lu(k,1892)
13822 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1659) * lu(k,1892)
13823 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1660) * lu(k,1892)
13824 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1661) * lu(k,1892)
13825 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1662) * lu(k,1892)
13826 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1663) * lu(k,1892)
13827 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1664) * lu(k,1892)
13828 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1665) * lu(k,1892)
13829 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1666) * lu(k,1892)
13830 114070872 : lu(k,1934) = lu(k,1934) - lu(k,1657) * lu(k,1933)
13831 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1658) * lu(k,1933)
13832 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1659) * lu(k,1933)
13833 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1660) * lu(k,1933)
13834 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1661) * lu(k,1933)
13835 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1662) * lu(k,1933)
13836 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1663) * lu(k,1933)
13837 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1664) * lu(k,1933)
13838 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1665) * lu(k,1933)
13839 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1666) * lu(k,1933)
13840 114070872 : lu(k,1976) = lu(k,1976) - lu(k,1657) * lu(k,1975)
13841 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1658) * lu(k,1975)
13842 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1659) * lu(k,1975)
13843 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1660) * lu(k,1975)
13844 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1661) * lu(k,1975)
13845 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1662) * lu(k,1975)
13846 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1663) * lu(k,1975)
13847 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1664) * lu(k,1975)
13848 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1665) * lu(k,1975)
13849 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1666) * lu(k,1975)
13850 114070872 : lu(k,2021) = lu(k,2021) - lu(k,1657) * lu(k,2020)
13851 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1658) * lu(k,2020)
13852 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1659) * lu(k,2020)
13853 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1660) * lu(k,2020)
13854 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1661) * lu(k,2020)
13855 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1662) * lu(k,2020)
13856 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1663) * lu(k,2020)
13857 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1664) * lu(k,2020)
13858 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1665) * lu(k,2020)
13859 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1666) * lu(k,2020)
13860 114070872 : lu(k,2081) = lu(k,2081) - lu(k,1657) * lu(k,2080)
13861 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1658) * lu(k,2080)
13862 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1659) * lu(k,2080)
13863 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1660) * lu(k,2080)
13864 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1661) * lu(k,2080)
13865 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1662) * lu(k,2080)
13866 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1663) * lu(k,2080)
13867 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1664) * lu(k,2080)
13868 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1665) * lu(k,2080)
13869 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1666) * lu(k,2080)
13870 114070872 : lu(k,1700) = 1._r8 / lu(k,1700)
13871 114070872 : lu(k,1701) = lu(k,1701) * lu(k,1700)
13872 114070872 : lu(k,1702) = lu(k,1702) * lu(k,1700)
13873 114070872 : lu(k,1703) = lu(k,1703) * lu(k,1700)
13874 114070872 : lu(k,1704) = lu(k,1704) * lu(k,1700)
13875 114070872 : lu(k,1705) = lu(k,1705) * lu(k,1700)
13876 114070872 : lu(k,1706) = lu(k,1706) * lu(k,1700)
13877 114070872 : lu(k,1707) = lu(k,1707) * lu(k,1700)
13878 114070872 : lu(k,1708) = lu(k,1708) * lu(k,1700)
13879 114070872 : lu(k,1709) = lu(k,1709) * lu(k,1700)
13880 114070872 : lu(k,1741) = lu(k,1741) - lu(k,1701) * lu(k,1740)
13881 114070872 : lu(k,1742) = lu(k,1742) - lu(k,1702) * lu(k,1740)
13882 114070872 : lu(k,1743) = lu(k,1743) - lu(k,1703) * lu(k,1740)
13883 114070872 : lu(k,1744) = lu(k,1744) - lu(k,1704) * lu(k,1740)
13884 114070872 : lu(k,1745) = lu(k,1745) - lu(k,1705) * lu(k,1740)
13885 114070872 : lu(k,1746) = lu(k,1746) - lu(k,1706) * lu(k,1740)
13886 114070872 : lu(k,1747) = lu(k,1747) - lu(k,1707) * lu(k,1740)
13887 114070872 : lu(k,1748) = lu(k,1748) - lu(k,1708) * lu(k,1740)
13888 114070872 : lu(k,1749) = lu(k,1749) - lu(k,1709) * lu(k,1740)
13889 114070872 : lu(k,1777) = lu(k,1777) - lu(k,1701) * lu(k,1776)
13890 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1702) * lu(k,1776)
13891 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1703) * lu(k,1776)
13892 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1704) * lu(k,1776)
13893 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1705) * lu(k,1776)
13894 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1706) * lu(k,1776)
13895 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1707) * lu(k,1776)
13896 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1708) * lu(k,1776)
13897 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1709) * lu(k,1776)
13898 114070872 : lu(k,1825) = lu(k,1825) - lu(k,1701) * lu(k,1824)
13899 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1702) * lu(k,1824)
13900 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1703) * lu(k,1824)
13901 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1704) * lu(k,1824)
13902 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1705) * lu(k,1824)
13903 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1706) * lu(k,1824)
13904 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1707) * lu(k,1824)
13905 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1708) * lu(k,1824)
13906 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1709) * lu(k,1824)
13907 114070872 : lu(k,1858) = lu(k,1858) - lu(k,1701) * lu(k,1857)
13908 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1702) * lu(k,1857)
13909 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1703) * lu(k,1857)
13910 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1704) * lu(k,1857)
13911 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1705) * lu(k,1857)
13912 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1706) * lu(k,1857)
13913 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1707) * lu(k,1857)
13914 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1708) * lu(k,1857)
13915 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1709) * lu(k,1857)
13916 114070872 : lu(k,1894) = lu(k,1894) - lu(k,1701) * lu(k,1893)
13917 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1702) * lu(k,1893)
13918 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1703) * lu(k,1893)
13919 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1704) * lu(k,1893)
13920 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1705) * lu(k,1893)
13921 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1706) * lu(k,1893)
13922 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1707) * lu(k,1893)
13923 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1708) * lu(k,1893)
13924 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1709) * lu(k,1893)
13925 114070872 : lu(k,1935) = lu(k,1935) - lu(k,1701) * lu(k,1934)
13926 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1702) * lu(k,1934)
13927 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1703) * lu(k,1934)
13928 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1704) * lu(k,1934)
13929 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1705) * lu(k,1934)
13930 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1706) * lu(k,1934)
13931 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1707) * lu(k,1934)
13932 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1708) * lu(k,1934)
13933 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1709) * lu(k,1934)
13934 114070872 : lu(k,1977) = lu(k,1977) - lu(k,1701) * lu(k,1976)
13935 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1702) * lu(k,1976)
13936 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1703) * lu(k,1976)
13937 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1704) * lu(k,1976)
13938 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1705) * lu(k,1976)
13939 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1706) * lu(k,1976)
13940 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1707) * lu(k,1976)
13941 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1708) * lu(k,1976)
13942 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1709) * lu(k,1976)
13943 114070872 : lu(k,2022) = lu(k,2022) - lu(k,1701) * lu(k,2021)
13944 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1702) * lu(k,2021)
13945 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1703) * lu(k,2021)
13946 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1704) * lu(k,2021)
13947 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1705) * lu(k,2021)
13948 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1706) * lu(k,2021)
13949 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1707) * lu(k,2021)
13950 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1708) * lu(k,2021)
13951 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1709) * lu(k,2021)
13952 114070872 : lu(k,2082) = lu(k,2082) - lu(k,1701) * lu(k,2081)
13953 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1702) * lu(k,2081)
13954 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1703) * lu(k,2081)
13955 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1704) * lu(k,2081)
13956 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1705) * lu(k,2081)
13957 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1706) * lu(k,2081)
13958 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1707) * lu(k,2081)
13959 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1708) * lu(k,2081)
13960 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1709) * lu(k,2081)
13961 114070872 : lu(k,1741) = 1._r8 / lu(k,1741)
13962 114070872 : lu(k,1742) = lu(k,1742) * lu(k,1741)
13963 114070872 : lu(k,1743) = lu(k,1743) * lu(k,1741)
13964 114070872 : lu(k,1744) = lu(k,1744) * lu(k,1741)
13965 114070872 : lu(k,1745) = lu(k,1745) * lu(k,1741)
13966 114070872 : lu(k,1746) = lu(k,1746) * lu(k,1741)
13967 114070872 : lu(k,1747) = lu(k,1747) * lu(k,1741)
13968 114070872 : lu(k,1748) = lu(k,1748) * lu(k,1741)
13969 114070872 : lu(k,1749) = lu(k,1749) * lu(k,1741)
13970 114070872 : lu(k,1778) = lu(k,1778) - lu(k,1742) * lu(k,1777)
13971 114070872 : lu(k,1779) = lu(k,1779) - lu(k,1743) * lu(k,1777)
13972 114070872 : lu(k,1780) = lu(k,1780) - lu(k,1744) * lu(k,1777)
13973 114070872 : lu(k,1781) = lu(k,1781) - lu(k,1745) * lu(k,1777)
13974 114070872 : lu(k,1782) = lu(k,1782) - lu(k,1746) * lu(k,1777)
13975 114070872 : lu(k,1783) = lu(k,1783) - lu(k,1747) * lu(k,1777)
13976 114070872 : lu(k,1784) = lu(k,1784) - lu(k,1748) * lu(k,1777)
13977 114070872 : lu(k,1785) = lu(k,1785) - lu(k,1749) * lu(k,1777)
13978 114070872 : lu(k,1826) = lu(k,1826) - lu(k,1742) * lu(k,1825)
13979 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1743) * lu(k,1825)
13980 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1744) * lu(k,1825)
13981 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1745) * lu(k,1825)
13982 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1746) * lu(k,1825)
13983 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1747) * lu(k,1825)
13984 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1748) * lu(k,1825)
13985 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1749) * lu(k,1825)
13986 114070872 : lu(k,1859) = lu(k,1859) - lu(k,1742) * lu(k,1858)
13987 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1743) * lu(k,1858)
13988 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1744) * lu(k,1858)
13989 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1745) * lu(k,1858)
13990 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1746) * lu(k,1858)
13991 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1747) * lu(k,1858)
13992 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1748) * lu(k,1858)
13993 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1749) * lu(k,1858)
13994 114070872 : lu(k,1895) = lu(k,1895) - lu(k,1742) * lu(k,1894)
13995 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1743) * lu(k,1894)
13996 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1744) * lu(k,1894)
13997 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1745) * lu(k,1894)
13998 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1746) * lu(k,1894)
13999 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1747) * lu(k,1894)
14000 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1748) * lu(k,1894)
14001 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1749) * lu(k,1894)
14002 114070872 : lu(k,1936) = lu(k,1936) - lu(k,1742) * lu(k,1935)
14003 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1743) * lu(k,1935)
14004 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1744) * lu(k,1935)
14005 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1745) * lu(k,1935)
14006 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1746) * lu(k,1935)
14007 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1747) * lu(k,1935)
14008 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1748) * lu(k,1935)
14009 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1749) * lu(k,1935)
14010 114070872 : lu(k,1978) = lu(k,1978) - lu(k,1742) * lu(k,1977)
14011 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1743) * lu(k,1977)
14012 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1744) * lu(k,1977)
14013 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1745) * lu(k,1977)
14014 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1746) * lu(k,1977)
14015 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1747) * lu(k,1977)
14016 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1748) * lu(k,1977)
14017 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1749) * lu(k,1977)
14018 114070872 : lu(k,2023) = lu(k,2023) - lu(k,1742) * lu(k,2022)
14019 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1743) * lu(k,2022)
14020 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1744) * lu(k,2022)
14021 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1745) * lu(k,2022)
14022 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1746) * lu(k,2022)
14023 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1747) * lu(k,2022)
14024 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1748) * lu(k,2022)
14025 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1749) * lu(k,2022)
14026 114070872 : lu(k,2083) = lu(k,2083) - lu(k,1742) * lu(k,2082)
14027 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1743) * lu(k,2082)
14028 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1744) * lu(k,2082)
14029 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1745) * lu(k,2082)
14030 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1746) * lu(k,2082)
14031 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1747) * lu(k,2082)
14032 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1748) * lu(k,2082)
14033 117656469 : lu(k,2090) = lu(k,2090) - lu(k,1749) * lu(k,2082)
14034 : end do
14035 3585597 : end subroutine lu_fac25
14036 3585597 : subroutine lu_fac26( avec_len, lu )
14037 : use chem_mods, only : nzcnt
14038 : use shr_kind_mod, only : r8 => shr_kind_r8
14039 : implicit none
14040 : !-----------------------------------------------------------------------
14041 : ! ... dummy args
14042 : !-----------------------------------------------------------------------
14043 : integer, intent(in) :: avec_len
14044 : real(r8), intent(inout) :: lu(veclen,nzcnt)
14045 : !-----------------------------------------------------------------------
14046 : ! ... local variables
14047 : !-----------------------------------------------------------------------
14048 : integer :: k
14049 117656469 : do k = 1,avec_len
14050 114070872 : lu(k,1778) = 1._r8 / lu(k,1778)
14051 114070872 : lu(k,1779) = lu(k,1779) * lu(k,1778)
14052 114070872 : lu(k,1780) = lu(k,1780) * lu(k,1778)
14053 114070872 : lu(k,1781) = lu(k,1781) * lu(k,1778)
14054 114070872 : lu(k,1782) = lu(k,1782) * lu(k,1778)
14055 114070872 : lu(k,1783) = lu(k,1783) * lu(k,1778)
14056 114070872 : lu(k,1784) = lu(k,1784) * lu(k,1778)
14057 114070872 : lu(k,1785) = lu(k,1785) * lu(k,1778)
14058 114070872 : lu(k,1827) = lu(k,1827) - lu(k,1779) * lu(k,1826)
14059 114070872 : lu(k,1828) = lu(k,1828) - lu(k,1780) * lu(k,1826)
14060 114070872 : lu(k,1829) = lu(k,1829) - lu(k,1781) * lu(k,1826)
14061 114070872 : lu(k,1830) = lu(k,1830) - lu(k,1782) * lu(k,1826)
14062 114070872 : lu(k,1831) = lu(k,1831) - lu(k,1783) * lu(k,1826)
14063 114070872 : lu(k,1832) = lu(k,1832) - lu(k,1784) * lu(k,1826)
14064 114070872 : lu(k,1833) = lu(k,1833) - lu(k,1785) * lu(k,1826)
14065 114070872 : lu(k,1860) = lu(k,1860) - lu(k,1779) * lu(k,1859)
14066 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1780) * lu(k,1859)
14067 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1781) * lu(k,1859)
14068 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1782) * lu(k,1859)
14069 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1783) * lu(k,1859)
14070 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1784) * lu(k,1859)
14071 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1785) * lu(k,1859)
14072 114070872 : lu(k,1896) = lu(k,1896) - lu(k,1779) * lu(k,1895)
14073 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1780) * lu(k,1895)
14074 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1781) * lu(k,1895)
14075 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1782) * lu(k,1895)
14076 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1783) * lu(k,1895)
14077 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1784) * lu(k,1895)
14078 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1785) * lu(k,1895)
14079 114070872 : lu(k,1937) = lu(k,1937) - lu(k,1779) * lu(k,1936)
14080 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1780) * lu(k,1936)
14081 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1781) * lu(k,1936)
14082 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1782) * lu(k,1936)
14083 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1783) * lu(k,1936)
14084 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1784) * lu(k,1936)
14085 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1785) * lu(k,1936)
14086 114070872 : lu(k,1979) = lu(k,1979) - lu(k,1779) * lu(k,1978)
14087 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1780) * lu(k,1978)
14088 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1781) * lu(k,1978)
14089 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1782) * lu(k,1978)
14090 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1783) * lu(k,1978)
14091 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1784) * lu(k,1978)
14092 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1785) * lu(k,1978)
14093 114070872 : lu(k,2024) = lu(k,2024) - lu(k,1779) * lu(k,2023)
14094 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1780) * lu(k,2023)
14095 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1781) * lu(k,2023)
14096 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1782) * lu(k,2023)
14097 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1783) * lu(k,2023)
14098 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1784) * lu(k,2023)
14099 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1785) * lu(k,2023)
14100 114070872 : lu(k,2084) = lu(k,2084) - lu(k,1779) * lu(k,2083)
14101 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1780) * lu(k,2083)
14102 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1781) * lu(k,2083)
14103 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1782) * lu(k,2083)
14104 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1783) * lu(k,2083)
14105 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1784) * lu(k,2083)
14106 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1785) * lu(k,2083)
14107 114070872 : lu(k,1827) = 1._r8 / lu(k,1827)
14108 114070872 : lu(k,1828) = lu(k,1828) * lu(k,1827)
14109 114070872 : lu(k,1829) = lu(k,1829) * lu(k,1827)
14110 114070872 : lu(k,1830) = lu(k,1830) * lu(k,1827)
14111 114070872 : lu(k,1831) = lu(k,1831) * lu(k,1827)
14112 114070872 : lu(k,1832) = lu(k,1832) * lu(k,1827)
14113 114070872 : lu(k,1833) = lu(k,1833) * lu(k,1827)
14114 114070872 : lu(k,1861) = lu(k,1861) - lu(k,1828) * lu(k,1860)
14115 114070872 : lu(k,1862) = lu(k,1862) - lu(k,1829) * lu(k,1860)
14116 114070872 : lu(k,1863) = lu(k,1863) - lu(k,1830) * lu(k,1860)
14117 114070872 : lu(k,1864) = lu(k,1864) - lu(k,1831) * lu(k,1860)
14118 114070872 : lu(k,1865) = lu(k,1865) - lu(k,1832) * lu(k,1860)
14119 114070872 : lu(k,1866) = lu(k,1866) - lu(k,1833) * lu(k,1860)
14120 114070872 : lu(k,1897) = lu(k,1897) - lu(k,1828) * lu(k,1896)
14121 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1829) * lu(k,1896)
14122 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1830) * lu(k,1896)
14123 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1831) * lu(k,1896)
14124 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1832) * lu(k,1896)
14125 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1833) * lu(k,1896)
14126 114070872 : lu(k,1938) = lu(k,1938) - lu(k,1828) * lu(k,1937)
14127 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1829) * lu(k,1937)
14128 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1830) * lu(k,1937)
14129 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1831) * lu(k,1937)
14130 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1832) * lu(k,1937)
14131 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1833) * lu(k,1937)
14132 114070872 : lu(k,1980) = lu(k,1980) - lu(k,1828) * lu(k,1979)
14133 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1829) * lu(k,1979)
14134 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1830) * lu(k,1979)
14135 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1831) * lu(k,1979)
14136 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1832) * lu(k,1979)
14137 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1833) * lu(k,1979)
14138 114070872 : lu(k,2025) = lu(k,2025) - lu(k,1828) * lu(k,2024)
14139 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1829) * lu(k,2024)
14140 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1830) * lu(k,2024)
14141 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1831) * lu(k,2024)
14142 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1832) * lu(k,2024)
14143 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1833) * lu(k,2024)
14144 114070872 : lu(k,2085) = lu(k,2085) - lu(k,1828) * lu(k,2084)
14145 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1829) * lu(k,2084)
14146 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1830) * lu(k,2084)
14147 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1831) * lu(k,2084)
14148 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1832) * lu(k,2084)
14149 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1833) * lu(k,2084)
14150 114070872 : lu(k,1861) = 1._r8 / lu(k,1861)
14151 114070872 : lu(k,1862) = lu(k,1862) * lu(k,1861)
14152 114070872 : lu(k,1863) = lu(k,1863) * lu(k,1861)
14153 114070872 : lu(k,1864) = lu(k,1864) * lu(k,1861)
14154 114070872 : lu(k,1865) = lu(k,1865) * lu(k,1861)
14155 114070872 : lu(k,1866) = lu(k,1866) * lu(k,1861)
14156 114070872 : lu(k,1898) = lu(k,1898) - lu(k,1862) * lu(k,1897)
14157 114070872 : lu(k,1899) = lu(k,1899) - lu(k,1863) * lu(k,1897)
14158 114070872 : lu(k,1900) = lu(k,1900) - lu(k,1864) * lu(k,1897)
14159 114070872 : lu(k,1901) = lu(k,1901) - lu(k,1865) * lu(k,1897)
14160 114070872 : lu(k,1902) = lu(k,1902) - lu(k,1866) * lu(k,1897)
14161 114070872 : lu(k,1939) = lu(k,1939) - lu(k,1862) * lu(k,1938)
14162 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1863) * lu(k,1938)
14163 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1864) * lu(k,1938)
14164 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1865) * lu(k,1938)
14165 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1866) * lu(k,1938)
14166 114070872 : lu(k,1981) = lu(k,1981) - lu(k,1862) * lu(k,1980)
14167 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1863) * lu(k,1980)
14168 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1864) * lu(k,1980)
14169 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1865) * lu(k,1980)
14170 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1866) * lu(k,1980)
14171 114070872 : lu(k,2026) = lu(k,2026) - lu(k,1862) * lu(k,2025)
14172 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1863) * lu(k,2025)
14173 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1864) * lu(k,2025)
14174 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1865) * lu(k,2025)
14175 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1866) * lu(k,2025)
14176 114070872 : lu(k,2086) = lu(k,2086) - lu(k,1862) * lu(k,2085)
14177 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1863) * lu(k,2085)
14178 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1864) * lu(k,2085)
14179 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1865) * lu(k,2085)
14180 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1866) * lu(k,2085)
14181 114070872 : lu(k,1898) = 1._r8 / lu(k,1898)
14182 114070872 : lu(k,1899) = lu(k,1899) * lu(k,1898)
14183 114070872 : lu(k,1900) = lu(k,1900) * lu(k,1898)
14184 114070872 : lu(k,1901) = lu(k,1901) * lu(k,1898)
14185 114070872 : lu(k,1902) = lu(k,1902) * lu(k,1898)
14186 114070872 : lu(k,1940) = lu(k,1940) - lu(k,1899) * lu(k,1939)
14187 114070872 : lu(k,1941) = lu(k,1941) - lu(k,1900) * lu(k,1939)
14188 114070872 : lu(k,1942) = lu(k,1942) - lu(k,1901) * lu(k,1939)
14189 114070872 : lu(k,1943) = lu(k,1943) - lu(k,1902) * lu(k,1939)
14190 114070872 : lu(k,1982) = lu(k,1982) - lu(k,1899) * lu(k,1981)
14191 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1900) * lu(k,1981)
14192 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1901) * lu(k,1981)
14193 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1902) * lu(k,1981)
14194 114070872 : lu(k,2027) = lu(k,2027) - lu(k,1899) * lu(k,2026)
14195 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1900) * lu(k,2026)
14196 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1901) * lu(k,2026)
14197 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1902) * lu(k,2026)
14198 114070872 : lu(k,2087) = lu(k,2087) - lu(k,1899) * lu(k,2086)
14199 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1900) * lu(k,2086)
14200 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1901) * lu(k,2086)
14201 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1902) * lu(k,2086)
14202 114070872 : lu(k,1940) = 1._r8 / lu(k,1940)
14203 114070872 : lu(k,1941) = lu(k,1941) * lu(k,1940)
14204 114070872 : lu(k,1942) = lu(k,1942) * lu(k,1940)
14205 114070872 : lu(k,1943) = lu(k,1943) * lu(k,1940)
14206 114070872 : lu(k,1983) = lu(k,1983) - lu(k,1941) * lu(k,1982)
14207 114070872 : lu(k,1984) = lu(k,1984) - lu(k,1942) * lu(k,1982)
14208 114070872 : lu(k,1985) = lu(k,1985) - lu(k,1943) * lu(k,1982)
14209 114070872 : lu(k,2028) = lu(k,2028) - lu(k,1941) * lu(k,2027)
14210 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1942) * lu(k,2027)
14211 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1943) * lu(k,2027)
14212 114070872 : lu(k,2088) = lu(k,2088) - lu(k,1941) * lu(k,2087)
14213 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1942) * lu(k,2087)
14214 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1943) * lu(k,2087)
14215 114070872 : lu(k,1983) = 1._r8 / lu(k,1983)
14216 114070872 : lu(k,1984) = lu(k,1984) * lu(k,1983)
14217 114070872 : lu(k,1985) = lu(k,1985) * lu(k,1983)
14218 114070872 : lu(k,2029) = lu(k,2029) - lu(k,1984) * lu(k,2028)
14219 114070872 : lu(k,2030) = lu(k,2030) - lu(k,1985) * lu(k,2028)
14220 114070872 : lu(k,2089) = lu(k,2089) - lu(k,1984) * lu(k,2088)
14221 114070872 : lu(k,2090) = lu(k,2090) - lu(k,1985) * lu(k,2088)
14222 114070872 : lu(k,2029) = 1._r8 / lu(k,2029)
14223 114070872 : lu(k,2030) = lu(k,2030) * lu(k,2029)
14224 114070872 : lu(k,2090) = lu(k,2090) - lu(k,2030) * lu(k,2089)
14225 117656469 : lu(k,2090) = 1._r8 / lu(k,2090)
14226 : end do
14227 3585597 : end subroutine lu_fac26
14228 3585597 : subroutine lu_fac( avec_len, lu )
14229 : use chem_mods, only : nzcnt
14230 : use shr_kind_mod, only : r8 => shr_kind_r8
14231 : implicit none
14232 : !-----------------------------------------------------------------------
14233 : ! ... dummy args
14234 : !-----------------------------------------------------------------------
14235 : integer, intent(in) :: avec_len
14236 : real(r8), intent(inout) :: lu(veclen,nzcnt)
14237 3585597 : call lu_fac01( avec_len, lu )
14238 3585597 : call lu_fac02( avec_len, lu )
14239 3585597 : call lu_fac03( avec_len, lu )
14240 3585597 : call lu_fac04( avec_len, lu )
14241 3585597 : call lu_fac05( avec_len, lu )
14242 3585597 : call lu_fac06( avec_len, lu )
14243 3585597 : call lu_fac07( avec_len, lu )
14244 3585597 : call lu_fac08( avec_len, lu )
14245 3585597 : call lu_fac09( avec_len, lu )
14246 3585597 : call lu_fac10( avec_len, lu )
14247 3585597 : call lu_fac11( avec_len, lu )
14248 3585597 : call lu_fac12( avec_len, lu )
14249 3585597 : call lu_fac13( avec_len, lu )
14250 3585597 : call lu_fac14( avec_len, lu )
14251 3585597 : call lu_fac15( avec_len, lu )
14252 3585597 : call lu_fac16( avec_len, lu )
14253 3585597 : call lu_fac17( avec_len, lu )
14254 3585597 : call lu_fac18( avec_len, lu )
14255 3585597 : call lu_fac19( avec_len, lu )
14256 3585597 : call lu_fac20( avec_len, lu )
14257 3585597 : call lu_fac21( avec_len, lu )
14258 3585597 : call lu_fac22( avec_len, lu )
14259 3585597 : call lu_fac23( avec_len, lu )
14260 3585597 : call lu_fac24( avec_len, lu )
14261 3585597 : call lu_fac25( avec_len, lu )
14262 3585597 : call lu_fac26( avec_len, lu )
14263 3585597 : end subroutine lu_fac
14264 : end module mo_lu_factor
|