Line data Source code
1 : module mo_lu_factor
2 : use chem_mods, only: veclen
3 : private
4 : public :: lu_fac
5 : contains
6 9751000 : 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 318792954 : do k = 1,avec_len
20 309041954 : lu(k,1) = 1._r8 / lu(k,1)
21 309041954 : lu(k,2) = 1._r8 / lu(k,2)
22 309041954 : lu(k,3) = lu(k,3) * lu(k,2)
23 309041954 : lu(k,4) = lu(k,4) * lu(k,2)
24 309041954 : lu(k,449) = lu(k,449) - lu(k,3) * lu(k,433)
25 309041954 : lu(k,450) = lu(k,450) - lu(k,4) * lu(k,433)
26 309041954 : lu(k,5) = 1._r8 / lu(k,5)
27 309041954 : lu(k,6) = lu(k,6) * lu(k,5)
28 309041954 : lu(k,7) = lu(k,7) * lu(k,5)
29 309041954 : lu(k,520) = lu(k,520) - lu(k,6) * lu(k,517)
30 309041954 : lu(k,533) = lu(k,533) - lu(k,7) * lu(k,517)
31 309041954 : lu(k,624) = - lu(k,6) * lu(k,614)
32 309041954 : lu(k,642) = - lu(k,7) * lu(k,614)
33 309041954 : lu(k,8) = 1._r8 / lu(k,8)
34 309041954 : lu(k,9) = lu(k,9) * lu(k,8)
35 309041954 : lu(k,10) = lu(k,10) * lu(k,8)
36 309041954 : lu(k,29) = lu(k,29) - lu(k,9) * lu(k,28)
37 309041954 : lu(k,32) = lu(k,32) - lu(k,10) * lu(k,28)
38 309041954 : lu(k,723) = lu(k,723) - lu(k,9) * lu(k,721)
39 309041954 : lu(k,745) = lu(k,745) - lu(k,10) * lu(k,721)
40 309041954 : lu(k,11) = 1._r8 / lu(k,11)
41 309041954 : lu(k,12) = lu(k,12) * lu(k,11)
42 309041954 : lu(k,15) = lu(k,15) - lu(k,12) * lu(k,13)
43 309041954 : lu(k,423) = lu(k,423) - lu(k,12) * lu(k,390)
44 309041954 : lu(k,507) = lu(k,507) - lu(k,12) * lu(k,486)
45 309041954 : lu(k,576) = lu(k,576) - lu(k,12) * lu(k,564)
46 309041954 : lu(k,14) = 1._r8 / lu(k,14)
47 309041954 : lu(k,15) = lu(k,15) * lu(k,14)
48 309041954 : lu(k,423) = lu(k,423) - lu(k,15) * lu(k,391)
49 309041954 : lu(k,507) = lu(k,507) - lu(k,15) * lu(k,487)
50 309041954 : lu(k,532) = lu(k,532) - lu(k,15) * lu(k,518)
51 309041954 : lu(k,576) = lu(k,576) - lu(k,15) * lu(k,565)
52 309041954 : lu(k,16) = 1._r8 / lu(k,16)
53 309041954 : lu(k,17) = lu(k,17) * lu(k,16)
54 309041954 : lu(k,147) = lu(k,147) - lu(k,17) * lu(k,142)
55 309041954 : lu(k,249) = lu(k,249) - lu(k,17) * lu(k,241)
56 309041954 : lu(k,316) = lu(k,316) - lu(k,17) * lu(k,302)
57 309041954 : lu(k,450) = lu(k,450) - lu(k,17) * lu(k,434)
58 309041954 : lu(k,475) = lu(k,475) - lu(k,17) * lu(k,461)
59 309041954 : lu(k,18) = 1._r8 / lu(k,18)
60 309041954 : lu(k,19) = lu(k,19) * lu(k,18)
61 309041954 : lu(k,20) = lu(k,20) * lu(k,18)
62 309041954 : lu(k,21) = lu(k,21) * lu(k,18)
63 309041954 : lu(k,520) = lu(k,520) - lu(k,19) * lu(k,519)
64 309041954 : lu(k,531) = lu(k,531) - lu(k,20) * lu(k,519)
65 309041954 : lu(k,533) = lu(k,533) - lu(k,21) * lu(k,519)
66 309041954 : lu(k,624) = lu(k,624) - lu(k,19) * lu(k,615)
67 309041954 : lu(k,640) = lu(k,640) - lu(k,20) * lu(k,615)
68 309041954 : lu(k,642) = lu(k,642) - lu(k,21) * lu(k,615)
69 309041954 : lu(k,22) = 1._r8 / lu(k,22)
70 309041954 : lu(k,23) = lu(k,23) * lu(k,22)
71 309041954 : lu(k,24) = lu(k,24) * lu(k,22)
72 309041954 : lu(k,135) = lu(k,135) - lu(k,23) * lu(k,133)
73 309041954 : lu(k,138) = - lu(k,24) * lu(k,133)
74 309041954 : lu(k,309) = - lu(k,23) * lu(k,303)
75 309041954 : lu(k,316) = lu(k,316) - lu(k,24) * lu(k,303)
76 309041954 : lu(k,443) = lu(k,443) - lu(k,23) * lu(k,435)
77 309041954 : lu(k,450) = lu(k,450) - lu(k,24) * lu(k,435)
78 309041954 : lu(k,703) = lu(k,703) - lu(k,23) * lu(k,695)
79 309041954 : lu(k,710) = lu(k,710) - lu(k,24) * lu(k,695)
80 309041954 : lu(k,25) = 1._r8 / lu(k,25)
81 309041954 : lu(k,26) = lu(k,26) * lu(k,25)
82 309041954 : lu(k,27) = lu(k,27) * lu(k,25)
83 309041954 : lu(k,125) = lu(k,125) - lu(k,26) * lu(k,124)
84 309041954 : lu(k,127) = lu(k,127) - lu(k,27) * lu(k,124)
85 309041954 : lu(k,254) = lu(k,254) - lu(k,26) * lu(k,253)
86 309041954 : lu(k,256) = - lu(k,27) * lu(k,253)
87 309041954 : lu(k,675) = lu(k,675) - lu(k,26) * lu(k,674)
88 309041954 : lu(k,677) = lu(k,677) - lu(k,27) * lu(k,674)
89 309041954 : lu(k,724) = lu(k,724) - lu(k,26) * lu(k,722)
90 309041954 : lu(k,728) = lu(k,728) - lu(k,27) * lu(k,722)
91 309041954 : lu(k,29) = 1._r8 / lu(k,29)
92 309041954 : lu(k,30) = lu(k,30) * lu(k,29)
93 309041954 : lu(k,31) = lu(k,31) * lu(k,29)
94 309041954 : lu(k,32) = lu(k,32) * lu(k,29)
95 309041954 : lu(k,235) = lu(k,235) - lu(k,30) * lu(k,234)
96 309041954 : lu(k,238) = lu(k,238) - lu(k,31) * lu(k,234)
97 309041954 : lu(k,240) = - lu(k,32) * lu(k,234)
98 309041954 : lu(k,628) = lu(k,628) - lu(k,30) * lu(k,616)
99 309041954 : lu(k,638) = lu(k,638) - lu(k,31) * lu(k,616)
100 309041954 : lu(k,650) = lu(k,650) - lu(k,32) * lu(k,616)
101 309041954 : lu(k,725) = - lu(k,30) * lu(k,723)
102 309041954 : lu(k,733) = lu(k,733) - lu(k,31) * lu(k,723)
103 309041954 : lu(k,745) = lu(k,745) - lu(k,32) * lu(k,723)
104 309041954 : lu(k,33) = 1._r8 / lu(k,33)
105 309041954 : lu(k,34) = lu(k,34) * lu(k,33)
106 309041954 : lu(k,35) = lu(k,35) * lu(k,33)
107 309041954 : lu(k,36) = lu(k,36) * lu(k,33)
108 309041954 : lu(k,37) = lu(k,37) * lu(k,33)
109 309041954 : lu(k,38) = lu(k,38) * lu(k,33)
110 309041954 : lu(k,344) = lu(k,344) - lu(k,34) * lu(k,341)
111 309041954 : lu(k,345) = lu(k,345) - lu(k,35) * lu(k,341)
112 309041954 : lu(k,350) = lu(k,350) - lu(k,36) * lu(k,341)
113 309041954 : lu(k,351) = lu(k,351) - lu(k,37) * lu(k,341)
114 309041954 : lu(k,360) = lu(k,360) - lu(k,38) * lu(k,341)
115 309041954 : lu(k,628) = lu(k,628) - lu(k,34) * lu(k,617)
116 309041954 : lu(k,630) = lu(k,630) - lu(k,35) * lu(k,617)
117 309041954 : lu(k,636) = lu(k,636) - lu(k,36) * lu(k,617)
118 309041954 : lu(k,637) = lu(k,637) - lu(k,37) * lu(k,617)
119 309041954 : lu(k,646) = lu(k,646) - lu(k,38) * lu(k,617)
120 309041954 : lu(k,39) = 1._r8 / lu(k,39)
121 309041954 : lu(k,40) = lu(k,40) * lu(k,39)
122 309041954 : lu(k,41) = lu(k,41) * lu(k,39)
123 309041954 : lu(k,42) = lu(k,42) * lu(k,39)
124 309041954 : lu(k,43) = lu(k,43) * lu(k,39)
125 309041954 : lu(k,44) = lu(k,44) * lu(k,39)
126 309041954 : lu(k,345) = lu(k,345) - lu(k,40) * lu(k,342)
127 309041954 : lu(k,350) = lu(k,350) - lu(k,41) * lu(k,342)
128 309041954 : lu(k,352) = lu(k,352) - lu(k,42) * lu(k,342)
129 309041954 : lu(k,359) = lu(k,359) - lu(k,43) * lu(k,342)
130 309041954 : lu(k,361) = lu(k,361) - lu(k,44) * lu(k,342)
131 309041954 : lu(k,593) = lu(k,593) - lu(k,40) * lu(k,586)
132 309041954 : lu(k,599) = lu(k,599) - lu(k,41) * lu(k,586)
133 309041954 : lu(k,601) = lu(k,601) - lu(k,42) * lu(k,586)
134 309041954 : lu(k,608) = lu(k,608) - lu(k,43) * lu(k,586)
135 309041954 : lu(k,610) = lu(k,610) - lu(k,44) * lu(k,586)
136 309041954 : lu(k,45) = 1._r8 / lu(k,45)
137 309041954 : lu(k,46) = lu(k,46) * lu(k,45)
138 309041954 : lu(k,47) = lu(k,47) * lu(k,45)
139 309041954 : lu(k,48) = lu(k,48) * lu(k,45)
140 309041954 : lu(k,49) = lu(k,49) * lu(k,45)
141 309041954 : lu(k,265) = lu(k,265) - lu(k,46) * lu(k,263)
142 309041954 : lu(k,266) = lu(k,266) - lu(k,47) * lu(k,263)
143 309041954 : lu(k,270) = lu(k,270) - lu(k,48) * lu(k,263)
144 309041954 : lu(k,271) = lu(k,271) - lu(k,49) * lu(k,263)
145 309041954 : lu(k,438) = lu(k,438) - lu(k,46) * lu(k,436)
146 309041954 : lu(k,441) = lu(k,441) - lu(k,47) * lu(k,436)
147 309041954 : lu(k,448) = lu(k,448) - lu(k,48) * lu(k,436)
148 309041954 : lu(k,449) = lu(k,449) - lu(k,49) * lu(k,436)
149 309041954 : lu(k,699) = lu(k,699) - lu(k,46) * lu(k,696)
150 309041954 : lu(k,701) = lu(k,701) - lu(k,47) * lu(k,696)
151 309041954 : lu(k,708) = lu(k,708) - lu(k,48) * lu(k,696)
152 318792954 : lu(k,709) = lu(k,709) - lu(k,49) * lu(k,696)
153 : end do
154 9751000 : end subroutine lu_fac01
155 9751000 : subroutine lu_fac02( avec_len, lu )
156 : use chem_mods, only : nzcnt
157 : use shr_kind_mod, only : r8 => shr_kind_r8
158 : implicit none
159 : !-----------------------------------------------------------------------
160 : ! ... dummy args
161 : !-----------------------------------------------------------------------
162 : integer, intent(in) :: avec_len
163 : real(r8), intent(inout) :: lu(veclen,nzcnt)
164 : !-----------------------------------------------------------------------
165 : ! ... local variables
166 : !-----------------------------------------------------------------------
167 : integer :: k
168 318792954 : do k = 1,avec_len
169 309041954 : lu(k,50) = 1._r8 / lu(k,50)
170 309041954 : lu(k,51) = lu(k,51) * lu(k,50)
171 309041954 : lu(k,52) = lu(k,52) * lu(k,50)
172 309041954 : lu(k,53) = lu(k,53) * lu(k,50)
173 309041954 : lu(k,54) = lu(k,54) * lu(k,50)
174 309041954 : lu(k,55) = lu(k,55) * lu(k,50)
175 309041954 : lu(k,56) = lu(k,56) * lu(k,50)
176 309041954 : lu(k,57) = lu(k,57) * lu(k,50)
177 309041954 : lu(k,396) = lu(k,396) - lu(k,51) * lu(k,392)
178 309041954 : lu(k,399) = - lu(k,52) * lu(k,392)
179 309041954 : lu(k,410) = - lu(k,53) * lu(k,392)
180 309041954 : lu(k,413) = lu(k,413) - lu(k,54) * lu(k,392)
181 309041954 : lu(k,414) = lu(k,414) - lu(k,55) * lu(k,392)
182 309041954 : lu(k,420) = lu(k,420) - lu(k,56) * lu(k,392)
183 309041954 : lu(k,428) = lu(k,428) - lu(k,57) * lu(k,392)
184 309041954 : lu(k,621) = lu(k,621) - lu(k,51) * lu(k,618)
185 309041954 : lu(k,623) = lu(k,623) - lu(k,52) * lu(k,618)
186 309041954 : lu(k,628) = lu(k,628) - lu(k,53) * lu(k,618)
187 309041954 : lu(k,631) = lu(k,631) - lu(k,54) * lu(k,618)
188 309041954 : lu(k,632) = lu(k,632) - lu(k,55) * lu(k,618)
189 309041954 : lu(k,638) = lu(k,638) - lu(k,56) * lu(k,618)
190 309041954 : lu(k,646) = lu(k,646) - lu(k,57) * lu(k,618)
191 309041954 : lu(k,58) = 1._r8 / lu(k,58)
192 309041954 : lu(k,59) = lu(k,59) * lu(k,58)
193 309041954 : lu(k,60) = lu(k,60) * lu(k,58)
194 309041954 : lu(k,61) = lu(k,61) * lu(k,58)
195 309041954 : lu(k,62) = lu(k,62) * lu(k,58)
196 309041954 : lu(k,63) = lu(k,63) * lu(k,58)
197 309041954 : lu(k,327) = - lu(k,59) * lu(k,326)
198 309041954 : lu(k,328) = lu(k,328) - lu(k,60) * lu(k,326)
199 309041954 : lu(k,334) = lu(k,334) - lu(k,61) * lu(k,326)
200 309041954 : lu(k,337) = - lu(k,62) * lu(k,326)
201 309041954 : lu(k,340) = - lu(k,63) * lu(k,326)
202 309041954 : lu(k,371) = lu(k,371) - lu(k,59) * lu(k,365)
203 309041954 : lu(k,374) = lu(k,374) - lu(k,60) * lu(k,365)
204 309041954 : lu(k,382) = - lu(k,61) * lu(k,365)
205 309041954 : lu(k,385) = lu(k,385) - lu(k,62) * lu(k,365)
206 309041954 : lu(k,389) = lu(k,389) - lu(k,63) * lu(k,365)
207 309041954 : lu(k,632) = lu(k,632) - lu(k,59) * lu(k,619)
208 309041954 : lu(k,635) = lu(k,635) - lu(k,60) * lu(k,619)
209 309041954 : lu(k,643) = lu(k,643) - lu(k,61) * lu(k,619)
210 309041954 : lu(k,646) = lu(k,646) - lu(k,62) * lu(k,619)
211 309041954 : lu(k,650) = lu(k,650) - lu(k,63) * lu(k,619)
212 309041954 : lu(k,64) = 1._r8 / lu(k,64)
213 309041954 : lu(k,65) = lu(k,65) * lu(k,64)
214 309041954 : lu(k,66) = lu(k,66) * lu(k,64)
215 309041954 : lu(k,67) = lu(k,67) * lu(k,64)
216 309041954 : lu(k,68) = lu(k,68) * lu(k,64)
217 309041954 : lu(k,69) = lu(k,69) * lu(k,64)
218 309041954 : lu(k,70) = lu(k,70) * lu(k,64)
219 309041954 : lu(k,375) = lu(k,375) - lu(k,65) * lu(k,366)
220 309041954 : lu(k,376) = lu(k,376) - lu(k,66) * lu(k,366)
221 309041954 : lu(k,380) = lu(k,380) - lu(k,67) * lu(k,366)
222 309041954 : lu(k,384) = lu(k,384) - lu(k,68) * lu(k,366)
223 309041954 : lu(k,385) = lu(k,385) - lu(k,69) * lu(k,366)
224 309041954 : lu(k,389) = lu(k,389) - lu(k,70) * lu(k,366)
225 309041954 : lu(k,599) = lu(k,599) - lu(k,65) * lu(k,587)
226 309041954 : lu(k,600) = lu(k,600) - lu(k,66) * lu(k,587)
227 309041954 : lu(k,604) = lu(k,604) - lu(k,67) * lu(k,587)
228 309041954 : lu(k,608) = lu(k,608) - lu(k,68) * lu(k,587)
229 309041954 : lu(k,609) = lu(k,609) - lu(k,69) * lu(k,587)
230 309041954 : lu(k,613) = - lu(k,70) * lu(k,587)
231 309041954 : lu(k,636) = lu(k,636) - lu(k,65) * lu(k,620)
232 309041954 : lu(k,637) = lu(k,637) - lu(k,66) * lu(k,620)
233 309041954 : lu(k,641) = lu(k,641) - lu(k,67) * lu(k,620)
234 309041954 : lu(k,645) = lu(k,645) - lu(k,68) * lu(k,620)
235 309041954 : lu(k,646) = lu(k,646) - lu(k,69) * lu(k,620)
236 309041954 : lu(k,650) = lu(k,650) - lu(k,70) * lu(k,620)
237 309041954 : lu(k,71) = 1._r8 / lu(k,71)
238 309041954 : lu(k,72) = lu(k,72) * lu(k,71)
239 309041954 : lu(k,73) = lu(k,73) * lu(k,71)
240 309041954 : lu(k,74) = lu(k,74) * lu(k,71)
241 309041954 : lu(k,75) = lu(k,75) * lu(k,71)
242 309041954 : lu(k,76) = lu(k,76) * lu(k,71)
243 309041954 : lu(k,77) = lu(k,77) * lu(k,71)
244 309041954 : lu(k,190) = lu(k,190) - lu(k,72) * lu(k,189)
245 309041954 : lu(k,191) = lu(k,191) - lu(k,73) * lu(k,189)
246 309041954 : lu(k,193) = - lu(k,74) * lu(k,189)
247 309041954 : lu(k,194) = lu(k,194) - lu(k,75) * lu(k,189)
248 309041954 : lu(k,201) = lu(k,201) - lu(k,76) * lu(k,189)
249 309041954 : lu(k,205) = - lu(k,77) * lu(k,189)
250 309041954 : lu(k,394) = lu(k,394) - lu(k,72) * lu(k,393)
251 309041954 : lu(k,398) = lu(k,398) - lu(k,73) * lu(k,393)
252 309041954 : lu(k,404) = lu(k,404) - lu(k,74) * lu(k,393)
253 309041954 : lu(k,405) = lu(k,405) - lu(k,75) * lu(k,393)
254 309041954 : lu(k,420) = lu(k,420) - lu(k,76) * lu(k,393)
255 309041954 : lu(k,429) = lu(k,429) - lu(k,77) * lu(k,393)
256 309041954 : lu(k,489) = lu(k,489) - lu(k,72) * lu(k,488)
257 309041954 : lu(k,490) = lu(k,490) - lu(k,73) * lu(k,488)
258 309041954 : lu(k,493) = lu(k,493) - lu(k,74) * lu(k,488)
259 309041954 : lu(k,494) = lu(k,494) - lu(k,75) * lu(k,488)
260 309041954 : lu(k,504) = lu(k,504) - lu(k,76) * lu(k,488)
261 309041954 : lu(k,513) = lu(k,513) - lu(k,77) * lu(k,488)
262 309041954 : lu(k,78) = 1._r8 / lu(k,78)
263 309041954 : lu(k,79) = lu(k,79) * lu(k,78)
264 309041954 : lu(k,80) = lu(k,80) * lu(k,78)
265 309041954 : lu(k,81) = lu(k,81) * lu(k,78)
266 309041954 : lu(k,82) = lu(k,82) * lu(k,78)
267 309041954 : lu(k,83) = lu(k,83) * lu(k,78)
268 309041954 : lu(k,191) = lu(k,191) - lu(k,79) * lu(k,190)
269 309041954 : lu(k,194) = lu(k,194) - lu(k,80) * lu(k,190)
270 309041954 : lu(k,195) = lu(k,195) - lu(k,81) * lu(k,190)
271 309041954 : lu(k,201) = lu(k,201) - lu(k,82) * lu(k,190)
272 309041954 : lu(k,202) = - lu(k,83) * lu(k,190)
273 309041954 : lu(k,398) = lu(k,398) - lu(k,79) * lu(k,394)
274 309041954 : lu(k,405) = lu(k,405) - lu(k,80) * lu(k,394)
275 309041954 : lu(k,406) = - lu(k,81) * lu(k,394)
276 309041954 : lu(k,420) = lu(k,420) - lu(k,82) * lu(k,394)
277 309041954 : lu(k,423) = lu(k,423) - lu(k,83) * lu(k,394)
278 309041954 : lu(k,490) = lu(k,490) - lu(k,79) * lu(k,489)
279 309041954 : lu(k,494) = lu(k,494) - lu(k,80) * lu(k,489)
280 309041954 : lu(k,495) = lu(k,495) - lu(k,81) * lu(k,489)
281 309041954 : lu(k,504) = lu(k,504) - lu(k,82) * lu(k,489)
282 309041954 : lu(k,507) = lu(k,507) - lu(k,83) * lu(k,489)
283 309041954 : lu(k,84) = 1._r8 / lu(k,84)
284 309041954 : lu(k,85) = lu(k,85) * lu(k,84)
285 309041954 : lu(k,86) = lu(k,86) * lu(k,84)
286 309041954 : lu(k,87) = lu(k,87) * lu(k,84)
287 309041954 : lu(k,88) = lu(k,88) * lu(k,84)
288 309041954 : lu(k,89) = lu(k,89) * lu(k,84)
289 309041954 : lu(k,90) = lu(k,90) * lu(k,84)
290 309041954 : lu(k,91) = lu(k,91) * lu(k,84)
291 309041954 : lu(k,401) = lu(k,401) - lu(k,85) * lu(k,395)
292 309041954 : lu(k,412) = - lu(k,86) * lu(k,395)
293 309041954 : lu(k,415) = lu(k,415) - lu(k,87) * lu(k,395)
294 309041954 : lu(k,418) = lu(k,418) - lu(k,88) * lu(k,395)
295 309041954 : lu(k,420) = lu(k,420) - lu(k,89) * lu(k,395)
296 309041954 : lu(k,427) = lu(k,427) - lu(k,90) * lu(k,395)
297 309041954 : lu(k,431) = lu(k,431) - lu(k,91) * lu(k,395)
298 309041954 : lu(k,589) = - lu(k,85) * lu(k,588)
299 309041954 : lu(k,593) = lu(k,593) - lu(k,86) * lu(k,588)
300 309041954 : lu(k,596) = - lu(k,87) * lu(k,588)
301 309041954 : lu(k,599) = lu(k,599) - lu(k,88) * lu(k,588)
302 309041954 : lu(k,601) = lu(k,601) - lu(k,89) * lu(k,588)
303 309041954 : lu(k,608) = lu(k,608) - lu(k,90) * lu(k,588)
304 309041954 : lu(k,612) = lu(k,612) - lu(k,91) * lu(k,588)
305 309041954 : lu(k,698) = lu(k,698) - lu(k,85) * lu(k,697)
306 309041954 : lu(k,700) = - lu(k,86) * lu(k,697)
307 309041954 : lu(k,703) = lu(k,703) - lu(k,87) * lu(k,697)
308 309041954 : lu(k,706) = - lu(k,88) * lu(k,697)
309 309041954 : lu(k,708) = lu(k,708) - lu(k,89) * lu(k,697)
310 309041954 : lu(k,715) = lu(k,715) - lu(k,90) * lu(k,697)
311 318792954 : lu(k,719) = lu(k,719) - lu(k,91) * lu(k,697)
312 : end do
313 9751000 : end subroutine lu_fac02
314 9751000 : subroutine lu_fac03( avec_len, lu )
315 : use chem_mods, only : nzcnt
316 : use shr_kind_mod, only : r8 => shr_kind_r8
317 : implicit none
318 : !-----------------------------------------------------------------------
319 : ! ... dummy args
320 : !-----------------------------------------------------------------------
321 : integer, intent(in) :: avec_len
322 : real(r8), intent(inout) :: lu(veclen,nzcnt)
323 : !-----------------------------------------------------------------------
324 : ! ... local variables
325 : !-----------------------------------------------------------------------
326 : integer :: k
327 318792954 : do k = 1,avec_len
328 309041954 : lu(k,92) = 1._r8 / lu(k,92)
329 309041954 : lu(k,93) = lu(k,93) * lu(k,92)
330 309041954 : lu(k,94) = lu(k,94) * lu(k,92)
331 309041954 : lu(k,95) = lu(k,95) * lu(k,92)
332 309041954 : lu(k,175) = - lu(k,93) * lu(k,167)
333 309041954 : lu(k,176) = - lu(k,94) * lu(k,167)
334 309041954 : lu(k,179) = - lu(k,95) * lu(k,167)
335 309041954 : lu(k,290) = - lu(k,93) * lu(k,288)
336 309041954 : lu(k,292) = lu(k,292) - lu(k,94) * lu(k,288)
337 309041954 : lu(k,298) = - lu(k,95) * lu(k,288)
338 309041954 : lu(k,347) = - lu(k,93) * lu(k,343)
339 309041954 : lu(k,351) = lu(k,351) - lu(k,94) * lu(k,343)
340 309041954 : lu(k,360) = lu(k,360) - lu(k,95) * lu(k,343)
341 309041954 : lu(k,414) = lu(k,414) - lu(k,93) * lu(k,396)
342 309041954 : lu(k,419) = lu(k,419) - lu(k,94) * lu(k,396)
343 309041954 : lu(k,428) = lu(k,428) - lu(k,95) * lu(k,396)
344 309041954 : lu(k,467) = lu(k,467) - lu(k,93) * lu(k,462)
345 309041954 : lu(k,472) = lu(k,472) - lu(k,94) * lu(k,462)
346 309041954 : lu(k,481) = lu(k,481) - lu(k,95) * lu(k,462)
347 309041954 : lu(k,545) = lu(k,545) - lu(k,93) * lu(k,542)
348 309041954 : lu(k,550) = lu(k,550) - lu(k,94) * lu(k,542)
349 309041954 : lu(k,559) = lu(k,559) - lu(k,95) * lu(k,542)
350 309041954 : lu(k,632) = lu(k,632) - lu(k,93) * lu(k,621)
351 309041954 : lu(k,637) = lu(k,637) - lu(k,94) * lu(k,621)
352 309041954 : lu(k,646) = lu(k,646) - lu(k,95) * lu(k,621)
353 309041954 : lu(k,96) = 1._r8 / lu(k,96)
354 309041954 : lu(k,97) = lu(k,97) * lu(k,96)
355 309041954 : lu(k,98) = lu(k,98) * lu(k,96)
356 309041954 : lu(k,99) = lu(k,99) * lu(k,96)
357 309041954 : lu(k,100) = lu(k,100) * lu(k,96)
358 309041954 : lu(k,101) = lu(k,101) * lu(k,96)
359 309041954 : lu(k,102) = lu(k,102) * lu(k,96)
360 309041954 : lu(k,373) = lu(k,373) - lu(k,97) * lu(k,367)
361 309041954 : lu(k,376) = lu(k,376) - lu(k,98) * lu(k,367)
362 309041954 : lu(k,377) = lu(k,377) - lu(k,99) * lu(k,367)
363 309041954 : lu(k,379) = lu(k,379) - lu(k,100) * lu(k,367)
364 309041954 : lu(k,385) = lu(k,385) - lu(k,101) * lu(k,367)
365 309041954 : lu(k,389) = lu(k,389) - lu(k,102) * lu(k,367)
366 309041954 : lu(k,416) = lu(k,416) - lu(k,97) * lu(k,397)
367 309041954 : lu(k,419) = lu(k,419) - lu(k,98) * lu(k,397)
368 309041954 : lu(k,420) = lu(k,420) - lu(k,99) * lu(k,397)
369 309041954 : lu(k,422) = lu(k,422) - lu(k,100) * lu(k,397)
370 309041954 : lu(k,428) = lu(k,428) - lu(k,101) * lu(k,397)
371 309041954 : lu(k,432) = - lu(k,102) * lu(k,397)
372 309041954 : lu(k,469) = lu(k,469) - lu(k,97) * lu(k,463)
373 309041954 : lu(k,472) = lu(k,472) - lu(k,98) * lu(k,463)
374 309041954 : lu(k,473) = - lu(k,99) * lu(k,463)
375 309041954 : lu(k,475) = lu(k,475) - lu(k,100) * lu(k,463)
376 309041954 : lu(k,481) = lu(k,481) - lu(k,101) * lu(k,463)
377 309041954 : lu(k,485) = - lu(k,102) * lu(k,463)
378 309041954 : lu(k,634) = lu(k,634) - lu(k,97) * lu(k,622)
379 309041954 : lu(k,637) = lu(k,637) - lu(k,98) * lu(k,622)
380 309041954 : lu(k,638) = lu(k,638) - lu(k,99) * lu(k,622)
381 309041954 : lu(k,640) = lu(k,640) - lu(k,100) * lu(k,622)
382 309041954 : lu(k,646) = lu(k,646) - lu(k,101) * lu(k,622)
383 309041954 : lu(k,650) = lu(k,650) - lu(k,102) * lu(k,622)
384 309041954 : lu(k,103) = 1._r8 / lu(k,103)
385 309041954 : lu(k,104) = lu(k,104) * lu(k,103)
386 309041954 : lu(k,105) = lu(k,105) * lu(k,103)
387 309041954 : lu(k,106) = lu(k,106) * lu(k,103)
388 309041954 : lu(k,107) = lu(k,107) * lu(k,103)
389 309041954 : lu(k,108) = lu(k,108) * lu(k,103)
390 309041954 : lu(k,109) = lu(k,109) * lu(k,103)
391 309041954 : lu(k,110) = lu(k,110) * lu(k,103)
392 309041954 : lu(k,111) = lu(k,111) * lu(k,103)
393 309041954 : lu(k,192) = lu(k,192) - lu(k,104) * lu(k,191)
394 309041954 : lu(k,194) = lu(k,194) - lu(k,105) * lu(k,191)
395 309041954 : lu(k,195) = lu(k,195) - lu(k,106) * lu(k,191)
396 309041954 : lu(k,196) = lu(k,196) - lu(k,107) * lu(k,191)
397 309041954 : lu(k,197) = lu(k,197) - lu(k,108) * lu(k,191)
398 309041954 : lu(k,198) = lu(k,198) - lu(k,109) * lu(k,191)
399 309041954 : lu(k,201) = lu(k,201) - lu(k,110) * lu(k,191)
400 309041954 : lu(k,202) = lu(k,202) - lu(k,111) * lu(k,191)
401 309041954 : lu(k,400) = lu(k,400) - lu(k,104) * lu(k,398)
402 309041954 : lu(k,405) = lu(k,405) - lu(k,105) * lu(k,398)
403 309041954 : lu(k,406) = lu(k,406) - lu(k,106) * lu(k,398)
404 309041954 : lu(k,407) = lu(k,407) - lu(k,107) * lu(k,398)
405 309041954 : lu(k,408) = lu(k,408) - lu(k,108) * lu(k,398)
406 309041954 : lu(k,409) = lu(k,409) - lu(k,109) * lu(k,398)
407 309041954 : lu(k,420) = lu(k,420) - lu(k,110) * lu(k,398)
408 309041954 : lu(k,423) = lu(k,423) - lu(k,111) * lu(k,398)
409 309041954 : lu(k,492) = lu(k,492) - lu(k,104) * lu(k,490)
410 309041954 : lu(k,494) = lu(k,494) - lu(k,105) * lu(k,490)
411 309041954 : lu(k,495) = lu(k,495) - lu(k,106) * lu(k,490)
412 309041954 : lu(k,496) = lu(k,496) - lu(k,107) * lu(k,490)
413 309041954 : lu(k,497) = lu(k,497) - lu(k,108) * lu(k,490)
414 309041954 : lu(k,498) = lu(k,498) - lu(k,109) * lu(k,490)
415 309041954 : lu(k,504) = lu(k,504) - lu(k,110) * lu(k,490)
416 309041954 : lu(k,507) = lu(k,507) - lu(k,111) * lu(k,490)
417 309041954 : lu(k,112) = 1._r8 / lu(k,112)
418 309041954 : lu(k,113) = lu(k,113) * lu(k,112)
419 309041954 : lu(k,114) = lu(k,114) * lu(k,112)
420 309041954 : lu(k,115) = lu(k,115) * lu(k,112)
421 309041954 : lu(k,116) = lu(k,116) * lu(k,112)
422 309041954 : lu(k,117) = lu(k,117) * lu(k,112)
423 309041954 : lu(k,118) = lu(k,118) * lu(k,112)
424 309041954 : lu(k,266) = lu(k,266) - lu(k,113) * lu(k,264)
425 309041954 : lu(k,267) = lu(k,267) - lu(k,114) * lu(k,264)
426 309041954 : lu(k,270) = lu(k,270) - lu(k,115) * lu(k,264)
427 309041954 : lu(k,273) = lu(k,273) - lu(k,116) * lu(k,264)
428 309041954 : lu(k,274) = lu(k,274) - lu(k,117) * lu(k,264)
429 309041954 : lu(k,276) = lu(k,276) - lu(k,118) * lu(k,264)
430 309041954 : lu(k,413) = lu(k,413) - lu(k,113) * lu(k,399)
431 309041954 : lu(k,414) = lu(k,414) - lu(k,114) * lu(k,399)
432 309041954 : lu(k,420) = lu(k,420) - lu(k,115) * lu(k,399)
433 309041954 : lu(k,423) = lu(k,423) - lu(k,116) * lu(k,399)
434 309041954 : lu(k,426) = lu(k,426) - lu(k,117) * lu(k,399)
435 309041954 : lu(k,428) = lu(k,428) - lu(k,118) * lu(k,399)
436 309041954 : lu(k,500) = lu(k,500) - lu(k,113) * lu(k,491)
437 309041954 : lu(k,501) = lu(k,501) - lu(k,114) * lu(k,491)
438 309041954 : lu(k,504) = lu(k,504) - lu(k,115) * lu(k,491)
439 309041954 : lu(k,507) = lu(k,507) - lu(k,116) * lu(k,491)
440 309041954 : lu(k,510) = lu(k,510) - lu(k,117) * lu(k,491)
441 309041954 : lu(k,512) = - lu(k,118) * lu(k,491)
442 309041954 : lu(k,568) = lu(k,568) - lu(k,113) * lu(k,566)
443 309041954 : lu(k,569) = lu(k,569) - lu(k,114) * lu(k,566)
444 309041954 : lu(k,573) = lu(k,573) - lu(k,115) * lu(k,566)
445 309041954 : lu(k,576) = lu(k,576) - lu(k,116) * lu(k,566)
446 309041954 : lu(k,579) = lu(k,579) - lu(k,117) * lu(k,566)
447 309041954 : lu(k,581) = lu(k,581) - lu(k,118) * lu(k,566)
448 309041954 : lu(k,631) = lu(k,631) - lu(k,113) * lu(k,623)
449 309041954 : lu(k,632) = lu(k,632) - lu(k,114) * lu(k,623)
450 309041954 : lu(k,638) = lu(k,638) - lu(k,115) * lu(k,623)
451 309041954 : lu(k,641) = lu(k,641) - lu(k,116) * lu(k,623)
452 309041954 : lu(k,644) = lu(k,644) - lu(k,117) * lu(k,623)
453 309041954 : lu(k,646) = lu(k,646) - lu(k,118) * lu(k,623)
454 309041954 : lu(k,119) = 1._r8 / lu(k,119)
455 309041954 : lu(k,120) = lu(k,120) * lu(k,119)
456 309041954 : lu(k,121) = lu(k,121) * lu(k,119)
457 309041954 : lu(k,122) = lu(k,122) * lu(k,119)
458 309041954 : lu(k,123) = lu(k,123) * lu(k,119)
459 309041954 : lu(k,162) = - lu(k,120) * lu(k,158)
460 309041954 : lu(k,163) = - lu(k,121) * lu(k,158)
461 309041954 : lu(k,164) = lu(k,164) - lu(k,122) * lu(k,158)
462 309041954 : lu(k,165) = lu(k,165) - lu(k,123) * lu(k,158)
463 309041954 : lu(k,172) = - lu(k,120) * lu(k,168)
464 309041954 : lu(k,173) = lu(k,173) - lu(k,121) * lu(k,168)
465 309041954 : lu(k,174) = lu(k,174) - lu(k,122) * lu(k,168)
466 309041954 : lu(k,177) = lu(k,177) - lu(k,123) * lu(k,168)
467 309041954 : lu(k,182) = lu(k,182) - lu(k,120) * lu(k,180)
468 309041954 : lu(k,183) = - lu(k,121) * lu(k,180)
469 309041954 : lu(k,184) = lu(k,184) - lu(k,122) * lu(k,180)
470 309041954 : lu(k,185) = lu(k,185) - lu(k,123) * lu(k,180)
471 309041954 : lu(k,196) = lu(k,196) - lu(k,120) * lu(k,192)
472 309041954 : lu(k,197) = lu(k,197) - lu(k,121) * lu(k,192)
473 309041954 : lu(k,198) = lu(k,198) - lu(k,122) * lu(k,192)
474 309041954 : lu(k,201) = lu(k,201) - lu(k,123) * lu(k,192)
475 309041954 : lu(k,223) = lu(k,223) - lu(k,120) * lu(k,219)
476 309041954 : lu(k,224) = - lu(k,121) * lu(k,219)
477 309041954 : lu(k,225) = lu(k,225) - lu(k,122) * lu(k,219)
478 309041954 : lu(k,228) = lu(k,228) - lu(k,123) * lu(k,219)
479 309041954 : lu(k,407) = lu(k,407) - lu(k,120) * lu(k,400)
480 309041954 : lu(k,408) = lu(k,408) - lu(k,121) * lu(k,400)
481 309041954 : lu(k,409) = lu(k,409) - lu(k,122) * lu(k,400)
482 309041954 : lu(k,420) = lu(k,420) - lu(k,123) * lu(k,400)
483 309041954 : lu(k,496) = lu(k,496) - lu(k,120) * lu(k,492)
484 309041954 : lu(k,497) = lu(k,497) - lu(k,121) * lu(k,492)
485 309041954 : lu(k,498) = lu(k,498) - lu(k,122) * lu(k,492)
486 309041954 : lu(k,504) = lu(k,504) - lu(k,123) * lu(k,492)
487 309041954 : lu(k,653) = lu(k,653) - lu(k,120) * lu(k,651)
488 309041954 : lu(k,654) = - lu(k,121) * lu(k,651)
489 309041954 : lu(k,655) = lu(k,655) - lu(k,122) * lu(k,651)
490 309041954 : lu(k,661) = lu(k,661) - lu(k,123) * lu(k,651)
491 309041954 : lu(k,125) = 1._r8 / lu(k,125)
492 309041954 : lu(k,126) = lu(k,126) * lu(k,125)
493 309041954 : lu(k,127) = lu(k,127) * lu(k,125)
494 309041954 : lu(k,128) = lu(k,128) * lu(k,125)
495 309041954 : lu(k,129) = lu(k,129) * lu(k,125)
496 309041954 : lu(k,130) = lu(k,130) * lu(k,125)
497 309041954 : lu(k,131) = lu(k,131) * lu(k,125)
498 309041954 : lu(k,132) = lu(k,132) * lu(k,125)
499 309041954 : lu(k,255) = lu(k,255) - lu(k,126) * lu(k,254)
500 309041954 : lu(k,256) = lu(k,256) - lu(k,127) * lu(k,254)
501 309041954 : lu(k,257) = - lu(k,128) * lu(k,254)
502 309041954 : lu(k,258) = lu(k,258) - lu(k,129) * lu(k,254)
503 309041954 : lu(k,260) = lu(k,260) - lu(k,130) * lu(k,254)
504 309041954 : lu(k,261) = - lu(k,131) * lu(k,254)
505 309041954 : lu(k,262) = lu(k,262) - lu(k,132) * lu(k,254)
506 309041954 : lu(k,522) = - lu(k,126) * lu(k,520)
507 309041954 : lu(k,523) = lu(k,523) - lu(k,127) * lu(k,520)
508 309041954 : lu(k,526) = lu(k,526) - lu(k,128) * lu(k,520)
509 309041954 : lu(k,527) = - lu(k,129) * lu(k,520)
510 309041954 : lu(k,537) = lu(k,537) - lu(k,130) * lu(k,520)
511 309041954 : lu(k,539) = lu(k,539) - lu(k,131) * lu(k,520)
512 309041954 : lu(k,541) = lu(k,541) - lu(k,132) * lu(k,520)
513 309041954 : lu(k,630) = lu(k,630) - lu(k,126) * lu(k,624)
514 309041954 : lu(k,632) = lu(k,632) - lu(k,127) * lu(k,624)
515 309041954 : lu(k,635) = lu(k,635) - lu(k,128) * lu(k,624)
516 309041954 : lu(k,636) = lu(k,636) - lu(k,129) * lu(k,624)
517 309041954 : lu(k,646) = lu(k,646) - lu(k,130) * lu(k,624)
518 309041954 : lu(k,648) = lu(k,648) - lu(k,131) * lu(k,624)
519 309041954 : lu(k,650) = lu(k,650) - lu(k,132) * lu(k,624)
520 309041954 : lu(k,676) = - lu(k,126) * lu(k,675)
521 309041954 : lu(k,677) = lu(k,677) - lu(k,127) * lu(k,675)
522 309041954 : lu(k,679) = - lu(k,128) * lu(k,675)
523 309041954 : lu(k,680) = - lu(k,129) * lu(k,675)
524 309041954 : lu(k,690) = lu(k,690) - lu(k,130) * lu(k,675)
525 309041954 : lu(k,692) = lu(k,692) - lu(k,131) * lu(k,675)
526 309041954 : lu(k,694) = lu(k,694) - lu(k,132) * lu(k,675)
527 309041954 : lu(k,726) = - lu(k,126) * lu(k,724)
528 309041954 : lu(k,728) = lu(k,728) - lu(k,127) * lu(k,724)
529 309041954 : lu(k,730) = - lu(k,128) * lu(k,724)
530 309041954 : lu(k,731) = - lu(k,129) * lu(k,724)
531 309041954 : lu(k,741) = lu(k,741) - lu(k,130) * lu(k,724)
532 309041954 : lu(k,743) = lu(k,743) - lu(k,131) * lu(k,724)
533 318792954 : lu(k,745) = lu(k,745) - lu(k,132) * lu(k,724)
534 : end do
535 9751000 : end subroutine lu_fac03
536 9751000 : subroutine lu_fac04( avec_len, lu )
537 : use chem_mods, only : nzcnt
538 : use shr_kind_mod, only : r8 => shr_kind_r8
539 : implicit none
540 : !-----------------------------------------------------------------------
541 : ! ... dummy args
542 : !-----------------------------------------------------------------------
543 : integer, intent(in) :: avec_len
544 : real(r8), intent(inout) :: lu(veclen,nzcnt)
545 : !-----------------------------------------------------------------------
546 : ! ... local variables
547 : !-----------------------------------------------------------------------
548 : integer :: k
549 318792954 : do k = 1,avec_len
550 309041954 : lu(k,134) = 1._r8 / lu(k,134)
551 309041954 : lu(k,135) = lu(k,135) * lu(k,134)
552 309041954 : lu(k,136) = lu(k,136) * lu(k,134)
553 309041954 : lu(k,137) = lu(k,137) * lu(k,134)
554 309041954 : lu(k,138) = lu(k,138) * lu(k,134)
555 309041954 : lu(k,139) = lu(k,139) * lu(k,134)
556 309041954 : lu(k,140) = lu(k,140) * lu(k,134)
557 309041954 : lu(k,141) = lu(k,141) * lu(k,134)
558 309041954 : lu(k,309) = lu(k,309) - lu(k,135) * lu(k,304)
559 309041954 : lu(k,310) = lu(k,310) - lu(k,136) * lu(k,304)
560 309041954 : lu(k,314) = lu(k,314) - lu(k,137) * lu(k,304)
561 309041954 : lu(k,316) = lu(k,316) - lu(k,138) * lu(k,304)
562 309041954 : lu(k,322) = lu(k,322) - lu(k,139) * lu(k,304)
563 309041954 : lu(k,324) = - lu(k,140) * lu(k,304)
564 309041954 : lu(k,325) = lu(k,325) - lu(k,141) * lu(k,304)
565 309041954 : lu(k,372) = lu(k,372) - lu(k,135) * lu(k,368)
566 309041954 : lu(k,373) = lu(k,373) - lu(k,136) * lu(k,368)
567 309041954 : lu(k,377) = lu(k,377) - lu(k,137) * lu(k,368)
568 309041954 : lu(k,379) = lu(k,379) - lu(k,138) * lu(k,368)
569 309041954 : lu(k,385) = lu(k,385) - lu(k,139) * lu(k,368)
570 309041954 : lu(k,388) = lu(k,388) - lu(k,140) * lu(k,368)
571 309041954 : lu(k,389) = lu(k,389) - lu(k,141) * lu(k,368)
572 309041954 : lu(k,415) = lu(k,415) - lu(k,135) * lu(k,401)
573 309041954 : lu(k,416) = lu(k,416) - lu(k,136) * lu(k,401)
574 309041954 : lu(k,420) = lu(k,420) - lu(k,137) * lu(k,401)
575 309041954 : lu(k,422) = lu(k,422) - lu(k,138) * lu(k,401)
576 309041954 : lu(k,428) = lu(k,428) - lu(k,139) * lu(k,401)
577 309041954 : lu(k,431) = lu(k,431) - lu(k,140) * lu(k,401)
578 309041954 : lu(k,432) = lu(k,432) - lu(k,141) * lu(k,401)
579 309041954 : lu(k,596) = lu(k,596) - lu(k,135) * lu(k,589)
580 309041954 : lu(k,597) = - lu(k,136) * lu(k,589)
581 309041954 : lu(k,601) = lu(k,601) - lu(k,137) * lu(k,589)
582 309041954 : lu(k,603) = - lu(k,138) * lu(k,589)
583 309041954 : lu(k,609) = lu(k,609) - lu(k,139) * lu(k,589)
584 309041954 : lu(k,612) = lu(k,612) - lu(k,140) * lu(k,589)
585 309041954 : lu(k,613) = lu(k,613) - lu(k,141) * lu(k,589)
586 309041954 : lu(k,703) = lu(k,703) - lu(k,135) * lu(k,698)
587 309041954 : lu(k,704) = - lu(k,136) * lu(k,698)
588 309041954 : lu(k,708) = lu(k,708) - lu(k,137) * lu(k,698)
589 309041954 : lu(k,710) = lu(k,710) - lu(k,138) * lu(k,698)
590 309041954 : lu(k,716) = lu(k,716) - lu(k,139) * lu(k,698)
591 309041954 : lu(k,719) = lu(k,719) - lu(k,140) * lu(k,698)
592 309041954 : lu(k,720) = - lu(k,141) * lu(k,698)
593 309041954 : lu(k,143) = 1._r8 / lu(k,143)
594 309041954 : lu(k,144) = lu(k,144) * lu(k,143)
595 309041954 : lu(k,145) = lu(k,145) * lu(k,143)
596 309041954 : lu(k,146) = lu(k,146) * lu(k,143)
597 309041954 : lu(k,147) = lu(k,147) * lu(k,143)
598 309041954 : lu(k,148) = lu(k,148) * lu(k,143)
599 309041954 : lu(k,149) = lu(k,149) * lu(k,143)
600 309041954 : lu(k,245) = lu(k,245) - lu(k,144) * lu(k,242)
601 309041954 : lu(k,247) = lu(k,247) - lu(k,145) * lu(k,242)
602 309041954 : lu(k,248) = lu(k,248) - lu(k,146) * lu(k,242)
603 309041954 : lu(k,249) = lu(k,249) - lu(k,147) * lu(k,242)
604 309041954 : lu(k,251) = lu(k,251) - lu(k,148) * lu(k,242)
605 309041954 : lu(k,252) = - lu(k,149) * lu(k,242)
606 309041954 : lu(k,310) = lu(k,310) - lu(k,144) * lu(k,305)
607 309041954 : lu(k,314) = lu(k,314) - lu(k,145) * lu(k,305)
608 309041954 : lu(k,315) = lu(k,315) - lu(k,146) * lu(k,305)
609 309041954 : lu(k,316) = lu(k,316) - lu(k,147) * lu(k,305)
610 309041954 : lu(k,322) = lu(k,322) - lu(k,148) * lu(k,305)
611 309041954 : lu(k,325) = lu(k,325) - lu(k,149) * lu(k,305)
612 309041954 : lu(k,373) = lu(k,373) - lu(k,144) * lu(k,369)
613 309041954 : lu(k,377) = lu(k,377) - lu(k,145) * lu(k,369)
614 309041954 : lu(k,378) = lu(k,378) - lu(k,146) * lu(k,369)
615 309041954 : lu(k,379) = lu(k,379) - lu(k,147) * lu(k,369)
616 309041954 : lu(k,385) = lu(k,385) - lu(k,148) * lu(k,369)
617 309041954 : lu(k,389) = lu(k,389) - lu(k,149) * lu(k,369)
618 309041954 : lu(k,416) = lu(k,416) - lu(k,144) * lu(k,402)
619 309041954 : lu(k,420) = lu(k,420) - lu(k,145) * lu(k,402)
620 309041954 : lu(k,421) = lu(k,421) - lu(k,146) * lu(k,402)
621 309041954 : lu(k,422) = lu(k,422) - lu(k,147) * lu(k,402)
622 309041954 : lu(k,428) = lu(k,428) - lu(k,148) * lu(k,402)
623 309041954 : lu(k,432) = lu(k,432) - lu(k,149) * lu(k,402)
624 309041954 : lu(k,444) = lu(k,444) - lu(k,144) * lu(k,437)
625 309041954 : lu(k,448) = lu(k,448) - lu(k,145) * lu(k,437)
626 309041954 : lu(k,449) = lu(k,449) - lu(k,146) * lu(k,437)
627 309041954 : lu(k,450) = lu(k,450) - lu(k,147) * lu(k,437)
628 309041954 : lu(k,456) = lu(k,456) - lu(k,148) * lu(k,437)
629 309041954 : lu(k,460) = - lu(k,149) * lu(k,437)
630 309041954 : lu(k,469) = lu(k,469) - lu(k,144) * lu(k,464)
631 309041954 : lu(k,473) = lu(k,473) - lu(k,145) * lu(k,464)
632 309041954 : lu(k,474) = lu(k,474) - lu(k,146) * lu(k,464)
633 309041954 : lu(k,475) = lu(k,475) - lu(k,147) * lu(k,464)
634 309041954 : lu(k,481) = lu(k,481) - lu(k,148) * lu(k,464)
635 309041954 : lu(k,485) = lu(k,485) - lu(k,149) * lu(k,464)
636 309041954 : lu(k,634) = lu(k,634) - lu(k,144) * lu(k,625)
637 309041954 : lu(k,638) = lu(k,638) - lu(k,145) * lu(k,625)
638 309041954 : lu(k,639) = lu(k,639) - lu(k,146) * lu(k,625)
639 309041954 : lu(k,640) = lu(k,640) - lu(k,147) * lu(k,625)
640 309041954 : lu(k,646) = lu(k,646) - lu(k,148) * lu(k,625)
641 309041954 : lu(k,650) = lu(k,650) - lu(k,149) * lu(k,625)
642 309041954 : lu(k,150) = 1._r8 / lu(k,150)
643 309041954 : lu(k,151) = lu(k,151) * lu(k,150)
644 309041954 : lu(k,152) = lu(k,152) * lu(k,150)
645 309041954 : lu(k,153) = lu(k,153) * lu(k,150)
646 309041954 : lu(k,154) = lu(k,154) * lu(k,150)
647 309041954 : lu(k,155) = lu(k,155) * lu(k,150)
648 309041954 : lu(k,156) = lu(k,156) * lu(k,150)
649 309041954 : lu(k,157) = lu(k,157) * lu(k,150)
650 309041954 : lu(k,290) = lu(k,290) - lu(k,151) * lu(k,289)
651 309041954 : lu(k,291) = lu(k,291) - lu(k,152) * lu(k,289)
652 309041954 : lu(k,293) = - lu(k,153) * lu(k,289)
653 309041954 : lu(k,295) = - lu(k,154) * lu(k,289)
654 309041954 : lu(k,298) = lu(k,298) - lu(k,155) * lu(k,289)
655 309041954 : lu(k,300) = lu(k,300) - lu(k,156) * lu(k,289)
656 309041954 : lu(k,301) = - lu(k,157) * lu(k,289)
657 309041954 : lu(k,371) = lu(k,371) - lu(k,151) * lu(k,370)
658 309041954 : lu(k,372) = lu(k,372) - lu(k,152) * lu(k,370)
659 309041954 : lu(k,377) = lu(k,377) - lu(k,153) * lu(k,370)
660 309041954 : lu(k,381) = - lu(k,154) * lu(k,370)
661 309041954 : lu(k,385) = lu(k,385) - lu(k,155) * lu(k,370)
662 309041954 : lu(k,388) = lu(k,388) - lu(k,156) * lu(k,370)
663 309041954 : lu(k,389) = lu(k,389) - lu(k,157) * lu(k,370)
664 309041954 : lu(k,414) = lu(k,414) - lu(k,151) * lu(k,403)
665 309041954 : lu(k,415) = lu(k,415) - lu(k,152) * lu(k,403)
666 309041954 : lu(k,420) = lu(k,420) - lu(k,153) * lu(k,403)
667 309041954 : lu(k,424) = - lu(k,154) * lu(k,403)
668 309041954 : lu(k,428) = lu(k,428) - lu(k,155) * lu(k,403)
669 309041954 : lu(k,431) = lu(k,431) - lu(k,156) * lu(k,403)
670 309041954 : lu(k,432) = lu(k,432) - lu(k,157) * lu(k,403)
671 309041954 : lu(k,523) = lu(k,523) - lu(k,151) * lu(k,521)
672 309041954 : lu(k,524) = lu(k,524) - lu(k,152) * lu(k,521)
673 309041954 : lu(k,529) = lu(k,529) - lu(k,153) * lu(k,521)
674 309041954 : lu(k,533) = lu(k,533) - lu(k,154) * lu(k,521)
675 309041954 : lu(k,537) = lu(k,537) - lu(k,155) * lu(k,521)
676 309041954 : lu(k,540) = lu(k,540) - lu(k,156) * lu(k,521)
677 309041954 : lu(k,541) = lu(k,541) - lu(k,157) * lu(k,521)
678 309041954 : lu(k,545) = lu(k,545) - lu(k,151) * lu(k,543)
679 309041954 : lu(k,546) = lu(k,546) - lu(k,152) * lu(k,543)
680 309041954 : lu(k,551) = lu(k,551) - lu(k,153) * lu(k,543)
681 309041954 : lu(k,555) = - lu(k,154) * lu(k,543)
682 309041954 : lu(k,559) = lu(k,559) - lu(k,155) * lu(k,543)
683 309041954 : lu(k,562) = - lu(k,156) * lu(k,543)
684 309041954 : lu(k,563) = lu(k,563) - lu(k,157) * lu(k,543)
685 309041954 : lu(k,632) = lu(k,632) - lu(k,151) * lu(k,626)
686 309041954 : lu(k,633) = lu(k,633) - lu(k,152) * lu(k,626)
687 309041954 : lu(k,638) = lu(k,638) - lu(k,153) * lu(k,626)
688 309041954 : lu(k,642) = lu(k,642) - lu(k,154) * lu(k,626)
689 309041954 : lu(k,646) = lu(k,646) - lu(k,155) * lu(k,626)
690 309041954 : lu(k,649) = lu(k,649) - lu(k,156) * lu(k,626)
691 309041954 : lu(k,650) = lu(k,650) - lu(k,157) * lu(k,626)
692 309041954 : lu(k,159) = 1._r8 / lu(k,159)
693 309041954 : lu(k,160) = lu(k,160) * lu(k,159)
694 309041954 : lu(k,161) = lu(k,161) * lu(k,159)
695 309041954 : lu(k,162) = lu(k,162) * lu(k,159)
696 309041954 : lu(k,163) = lu(k,163) * lu(k,159)
697 309041954 : lu(k,164) = lu(k,164) * lu(k,159)
698 309041954 : lu(k,165) = lu(k,165) * lu(k,159)
699 309041954 : lu(k,166) = lu(k,166) * lu(k,159)
700 309041954 : lu(k,170) = lu(k,170) - lu(k,160) * lu(k,169)
701 309041954 : lu(k,171) = lu(k,171) - lu(k,161) * lu(k,169)
702 309041954 : lu(k,172) = lu(k,172) - lu(k,162) * lu(k,169)
703 309041954 : lu(k,173) = lu(k,173) - lu(k,163) * lu(k,169)
704 309041954 : lu(k,174) = lu(k,174) - lu(k,164) * lu(k,169)
705 309041954 : lu(k,177) = lu(k,177) - lu(k,165) * lu(k,169)
706 309041954 : lu(k,178) = lu(k,178) - lu(k,166) * lu(k,169)
707 309041954 : lu(k,194) = lu(k,194) - lu(k,160) * lu(k,193)
708 309041954 : lu(k,195) = lu(k,195) - lu(k,161) * lu(k,193)
709 309041954 : lu(k,196) = lu(k,196) - lu(k,162) * lu(k,193)
710 309041954 : lu(k,197) = lu(k,197) - lu(k,163) * lu(k,193)
711 309041954 : lu(k,198) = lu(k,198) - lu(k,164) * lu(k,193)
712 309041954 : lu(k,201) = lu(k,201) - lu(k,165) * lu(k,193)
713 309041954 : lu(k,202) = lu(k,202) - lu(k,166) * lu(k,193)
714 309041954 : lu(k,207) = lu(k,207) - lu(k,160) * lu(k,206)
715 309041954 : lu(k,208) = - lu(k,161) * lu(k,206)
716 309041954 : lu(k,209) = - lu(k,162) * lu(k,206)
717 309041954 : lu(k,210) = lu(k,210) - lu(k,163) * lu(k,206)
718 309041954 : lu(k,211) = lu(k,211) - lu(k,164) * lu(k,206)
719 309041954 : lu(k,214) = lu(k,214) - lu(k,165) * lu(k,206)
720 309041954 : lu(k,215) = lu(k,215) - lu(k,166) * lu(k,206)
721 309041954 : lu(k,221) = - lu(k,160) * lu(k,220)
722 309041954 : lu(k,222) = lu(k,222) - lu(k,161) * lu(k,220)
723 309041954 : lu(k,223) = lu(k,223) - lu(k,162) * lu(k,220)
724 309041954 : lu(k,224) = lu(k,224) - lu(k,163) * lu(k,220)
725 309041954 : lu(k,225) = lu(k,225) - lu(k,164) * lu(k,220)
726 309041954 : lu(k,228) = lu(k,228) - lu(k,165) * lu(k,220)
727 309041954 : lu(k,229) = lu(k,229) - lu(k,166) * lu(k,220)
728 309041954 : lu(k,405) = lu(k,405) - lu(k,160) * lu(k,404)
729 309041954 : lu(k,406) = lu(k,406) - lu(k,161) * lu(k,404)
730 309041954 : lu(k,407) = lu(k,407) - lu(k,162) * lu(k,404)
731 309041954 : lu(k,408) = lu(k,408) - lu(k,163) * lu(k,404)
732 309041954 : lu(k,409) = lu(k,409) - lu(k,164) * lu(k,404)
733 309041954 : lu(k,420) = lu(k,420) - lu(k,165) * lu(k,404)
734 309041954 : lu(k,423) = lu(k,423) - lu(k,166) * lu(k,404)
735 309041954 : lu(k,494) = lu(k,494) - lu(k,160) * lu(k,493)
736 309041954 : lu(k,495) = lu(k,495) - lu(k,161) * lu(k,493)
737 309041954 : lu(k,496) = lu(k,496) - lu(k,162) * lu(k,493)
738 309041954 : lu(k,497) = lu(k,497) - lu(k,163) * lu(k,493)
739 309041954 : lu(k,498) = lu(k,498) - lu(k,164) * lu(k,493)
740 309041954 : lu(k,504) = lu(k,504) - lu(k,165) * lu(k,493)
741 309041954 : lu(k,507) = lu(k,507) - lu(k,166) * lu(k,493)
742 309041954 : lu(k,170) = 1._r8 / lu(k,170)
743 309041954 : lu(k,171) = lu(k,171) * lu(k,170)
744 309041954 : lu(k,172) = lu(k,172) * lu(k,170)
745 309041954 : lu(k,173) = lu(k,173) * lu(k,170)
746 309041954 : lu(k,174) = lu(k,174) * lu(k,170)
747 309041954 : lu(k,175) = lu(k,175) * lu(k,170)
748 309041954 : lu(k,176) = lu(k,176) * lu(k,170)
749 309041954 : lu(k,177) = lu(k,177) * lu(k,170)
750 309041954 : lu(k,178) = lu(k,178) * lu(k,170)
751 309041954 : lu(k,179) = lu(k,179) * lu(k,170)
752 309041954 : lu(k,195) = lu(k,195) - lu(k,171) * lu(k,194)
753 309041954 : lu(k,196) = lu(k,196) - lu(k,172) * lu(k,194)
754 309041954 : lu(k,197) = lu(k,197) - lu(k,173) * lu(k,194)
755 309041954 : lu(k,198) = lu(k,198) - lu(k,174) * lu(k,194)
756 309041954 : lu(k,199) = - lu(k,175) * lu(k,194)
757 309041954 : lu(k,200) = - lu(k,176) * lu(k,194)
758 309041954 : lu(k,201) = lu(k,201) - lu(k,177) * lu(k,194)
759 309041954 : lu(k,202) = lu(k,202) - lu(k,178) * lu(k,194)
760 309041954 : lu(k,204) = - lu(k,179) * lu(k,194)
761 309041954 : lu(k,208) = lu(k,208) - lu(k,171) * lu(k,207)
762 309041954 : lu(k,209) = lu(k,209) - lu(k,172) * lu(k,207)
763 309041954 : lu(k,210) = lu(k,210) - lu(k,173) * lu(k,207)
764 309041954 : lu(k,211) = lu(k,211) - lu(k,174) * lu(k,207)
765 309041954 : lu(k,212) = - lu(k,175) * lu(k,207)
766 309041954 : lu(k,213) = - lu(k,176) * lu(k,207)
767 309041954 : lu(k,214) = lu(k,214) - lu(k,177) * lu(k,207)
768 309041954 : lu(k,215) = lu(k,215) - lu(k,178) * lu(k,207)
769 309041954 : lu(k,217) = - lu(k,179) * lu(k,207)
770 309041954 : lu(k,222) = lu(k,222) - lu(k,171) * lu(k,221)
771 309041954 : lu(k,223) = lu(k,223) - lu(k,172) * lu(k,221)
772 309041954 : lu(k,224) = lu(k,224) - lu(k,173) * lu(k,221)
773 309041954 : lu(k,225) = lu(k,225) - lu(k,174) * lu(k,221)
774 309041954 : lu(k,226) = lu(k,226) - lu(k,175) * lu(k,221)
775 309041954 : lu(k,227) = - lu(k,176) * lu(k,221)
776 309041954 : lu(k,228) = lu(k,228) - lu(k,177) * lu(k,221)
777 309041954 : lu(k,229) = lu(k,229) - lu(k,178) * lu(k,221)
778 309041954 : lu(k,232) = lu(k,232) - lu(k,179) * lu(k,221)
779 309041954 : lu(k,406) = lu(k,406) - lu(k,171) * lu(k,405)
780 309041954 : lu(k,407) = lu(k,407) - lu(k,172) * lu(k,405)
781 309041954 : lu(k,408) = lu(k,408) - lu(k,173) * lu(k,405)
782 309041954 : lu(k,409) = lu(k,409) - lu(k,174) * lu(k,405)
783 309041954 : lu(k,414) = lu(k,414) - lu(k,175) * lu(k,405)
784 309041954 : lu(k,419) = lu(k,419) - lu(k,176) * lu(k,405)
785 309041954 : lu(k,420) = lu(k,420) - lu(k,177) * lu(k,405)
786 309041954 : lu(k,423) = lu(k,423) - lu(k,178) * lu(k,405)
787 309041954 : lu(k,428) = lu(k,428) - lu(k,179) * lu(k,405)
788 309041954 : lu(k,495) = lu(k,495) - lu(k,171) * lu(k,494)
789 309041954 : lu(k,496) = lu(k,496) - lu(k,172) * lu(k,494)
790 309041954 : lu(k,497) = lu(k,497) - lu(k,173) * lu(k,494)
791 309041954 : lu(k,498) = lu(k,498) - lu(k,174) * lu(k,494)
792 309041954 : lu(k,501) = lu(k,501) - lu(k,175) * lu(k,494)
793 309041954 : lu(k,503) = lu(k,503) - lu(k,176) * lu(k,494)
794 309041954 : lu(k,504) = lu(k,504) - lu(k,177) * lu(k,494)
795 309041954 : lu(k,507) = lu(k,507) - lu(k,178) * lu(k,494)
796 318792954 : lu(k,512) = lu(k,512) - lu(k,179) * lu(k,494)
797 : end do
798 9751000 : end subroutine lu_fac04
799 9751000 : subroutine lu_fac05( avec_len, lu )
800 : use chem_mods, only : nzcnt
801 : use shr_kind_mod, only : r8 => shr_kind_r8
802 : implicit none
803 : !-----------------------------------------------------------------------
804 : ! ... dummy args
805 : !-----------------------------------------------------------------------
806 : integer, intent(in) :: avec_len
807 : real(r8), intent(inout) :: lu(veclen,nzcnt)
808 : !-----------------------------------------------------------------------
809 : ! ... local variables
810 : !-----------------------------------------------------------------------
811 : integer :: k
812 318792954 : do k = 1,avec_len
813 309041954 : lu(k,181) = 1._r8 / lu(k,181)
814 309041954 : lu(k,182) = lu(k,182) * lu(k,181)
815 309041954 : lu(k,183) = lu(k,183) * lu(k,181)
816 309041954 : lu(k,184) = lu(k,184) * lu(k,181)
817 309041954 : lu(k,185) = lu(k,185) * lu(k,181)
818 309041954 : lu(k,186) = lu(k,186) * lu(k,181)
819 309041954 : lu(k,187) = lu(k,187) * lu(k,181)
820 309041954 : lu(k,188) = lu(k,188) * lu(k,181)
821 309041954 : lu(k,196) = lu(k,196) - lu(k,182) * lu(k,195)
822 309041954 : lu(k,197) = lu(k,197) - lu(k,183) * lu(k,195)
823 309041954 : lu(k,198) = lu(k,198) - lu(k,184) * lu(k,195)
824 309041954 : lu(k,201) = lu(k,201) - lu(k,185) * lu(k,195)
825 309041954 : lu(k,202) = lu(k,202) - lu(k,186) * lu(k,195)
826 309041954 : lu(k,203) = lu(k,203) - lu(k,187) * lu(k,195)
827 309041954 : lu(k,205) = lu(k,205) - lu(k,188) * lu(k,195)
828 309041954 : lu(k,209) = lu(k,209) - lu(k,182) * lu(k,208)
829 309041954 : lu(k,210) = lu(k,210) - lu(k,183) * lu(k,208)
830 309041954 : lu(k,211) = lu(k,211) - lu(k,184) * lu(k,208)
831 309041954 : lu(k,214) = lu(k,214) - lu(k,185) * lu(k,208)
832 309041954 : lu(k,215) = lu(k,215) - lu(k,186) * lu(k,208)
833 309041954 : lu(k,216) = lu(k,216) - lu(k,187) * lu(k,208)
834 309041954 : lu(k,218) = lu(k,218) - lu(k,188) * lu(k,208)
835 309041954 : lu(k,223) = lu(k,223) - lu(k,182) * lu(k,222)
836 309041954 : lu(k,224) = lu(k,224) - lu(k,183) * lu(k,222)
837 309041954 : lu(k,225) = lu(k,225) - lu(k,184) * lu(k,222)
838 309041954 : lu(k,228) = lu(k,228) - lu(k,185) * lu(k,222)
839 309041954 : lu(k,229) = lu(k,229) - lu(k,186) * lu(k,222)
840 309041954 : lu(k,230) = - lu(k,187) * lu(k,222)
841 309041954 : lu(k,233) = lu(k,233) - lu(k,188) * lu(k,222)
842 309041954 : lu(k,407) = lu(k,407) - lu(k,182) * lu(k,406)
843 309041954 : lu(k,408) = lu(k,408) - lu(k,183) * lu(k,406)
844 309041954 : lu(k,409) = lu(k,409) - lu(k,184) * lu(k,406)
845 309041954 : lu(k,420) = lu(k,420) - lu(k,185) * lu(k,406)
846 309041954 : lu(k,423) = lu(k,423) - lu(k,186) * lu(k,406)
847 309041954 : lu(k,424) = lu(k,424) - lu(k,187) * lu(k,406)
848 309041954 : lu(k,429) = lu(k,429) - lu(k,188) * lu(k,406)
849 309041954 : lu(k,496) = lu(k,496) - lu(k,182) * lu(k,495)
850 309041954 : lu(k,497) = lu(k,497) - lu(k,183) * lu(k,495)
851 309041954 : lu(k,498) = lu(k,498) - lu(k,184) * lu(k,495)
852 309041954 : lu(k,504) = lu(k,504) - lu(k,185) * lu(k,495)
853 309041954 : lu(k,507) = lu(k,507) - lu(k,186) * lu(k,495)
854 309041954 : lu(k,508) = lu(k,508) - lu(k,187) * lu(k,495)
855 309041954 : lu(k,513) = lu(k,513) - lu(k,188) * lu(k,495)
856 309041954 : lu(k,653) = lu(k,653) - lu(k,182) * lu(k,652)
857 309041954 : lu(k,654) = lu(k,654) - lu(k,183) * lu(k,652)
858 309041954 : lu(k,655) = lu(k,655) - lu(k,184) * lu(k,652)
859 309041954 : lu(k,661) = lu(k,661) - lu(k,185) * lu(k,652)
860 309041954 : lu(k,664) = lu(k,664) - lu(k,186) * lu(k,652)
861 309041954 : lu(k,665) = - lu(k,187) * lu(k,652)
862 309041954 : lu(k,670) = lu(k,670) - lu(k,188) * lu(k,652)
863 309041954 : lu(k,196) = 1._r8 / lu(k,196)
864 309041954 : lu(k,197) = lu(k,197) * lu(k,196)
865 309041954 : lu(k,198) = lu(k,198) * lu(k,196)
866 309041954 : lu(k,199) = lu(k,199) * lu(k,196)
867 309041954 : lu(k,200) = lu(k,200) * lu(k,196)
868 309041954 : lu(k,201) = lu(k,201) * lu(k,196)
869 309041954 : lu(k,202) = lu(k,202) * lu(k,196)
870 309041954 : lu(k,203) = lu(k,203) * lu(k,196)
871 309041954 : lu(k,204) = lu(k,204) * lu(k,196)
872 309041954 : lu(k,205) = lu(k,205) * lu(k,196)
873 309041954 : lu(k,210) = lu(k,210) - lu(k,197) * lu(k,209)
874 309041954 : lu(k,211) = lu(k,211) - lu(k,198) * lu(k,209)
875 309041954 : lu(k,212) = lu(k,212) - lu(k,199) * lu(k,209)
876 309041954 : lu(k,213) = lu(k,213) - lu(k,200) * lu(k,209)
877 309041954 : lu(k,214) = lu(k,214) - lu(k,201) * lu(k,209)
878 309041954 : lu(k,215) = lu(k,215) - lu(k,202) * lu(k,209)
879 309041954 : lu(k,216) = lu(k,216) - lu(k,203) * lu(k,209)
880 309041954 : lu(k,217) = lu(k,217) - lu(k,204) * lu(k,209)
881 309041954 : lu(k,218) = lu(k,218) - lu(k,205) * lu(k,209)
882 309041954 : lu(k,224) = lu(k,224) - lu(k,197) * lu(k,223)
883 309041954 : lu(k,225) = lu(k,225) - lu(k,198) * lu(k,223)
884 309041954 : lu(k,226) = lu(k,226) - lu(k,199) * lu(k,223)
885 309041954 : lu(k,227) = lu(k,227) - lu(k,200) * lu(k,223)
886 309041954 : lu(k,228) = lu(k,228) - lu(k,201) * lu(k,223)
887 309041954 : lu(k,229) = lu(k,229) - lu(k,202) * lu(k,223)
888 309041954 : lu(k,230) = lu(k,230) - lu(k,203) * lu(k,223)
889 309041954 : lu(k,232) = lu(k,232) - lu(k,204) * lu(k,223)
890 309041954 : lu(k,233) = lu(k,233) - lu(k,205) * lu(k,223)
891 309041954 : lu(k,408) = lu(k,408) - lu(k,197) * lu(k,407)
892 309041954 : lu(k,409) = lu(k,409) - lu(k,198) * lu(k,407)
893 309041954 : lu(k,414) = lu(k,414) - lu(k,199) * lu(k,407)
894 309041954 : lu(k,419) = lu(k,419) - lu(k,200) * lu(k,407)
895 309041954 : lu(k,420) = lu(k,420) - lu(k,201) * lu(k,407)
896 309041954 : lu(k,423) = lu(k,423) - lu(k,202) * lu(k,407)
897 309041954 : lu(k,424) = lu(k,424) - lu(k,203) * lu(k,407)
898 309041954 : lu(k,428) = lu(k,428) - lu(k,204) * lu(k,407)
899 309041954 : lu(k,429) = lu(k,429) - lu(k,205) * lu(k,407)
900 309041954 : lu(k,497) = lu(k,497) - lu(k,197) * lu(k,496)
901 309041954 : lu(k,498) = lu(k,498) - lu(k,198) * lu(k,496)
902 309041954 : lu(k,501) = lu(k,501) - lu(k,199) * lu(k,496)
903 309041954 : lu(k,503) = lu(k,503) - lu(k,200) * lu(k,496)
904 309041954 : lu(k,504) = lu(k,504) - lu(k,201) * lu(k,496)
905 309041954 : lu(k,507) = lu(k,507) - lu(k,202) * lu(k,496)
906 309041954 : lu(k,508) = lu(k,508) - lu(k,203) * lu(k,496)
907 309041954 : lu(k,512) = lu(k,512) - lu(k,204) * lu(k,496)
908 309041954 : lu(k,513) = lu(k,513) - lu(k,205) * lu(k,496)
909 309041954 : lu(k,654) = lu(k,654) - lu(k,197) * lu(k,653)
910 309041954 : lu(k,655) = lu(k,655) - lu(k,198) * lu(k,653)
911 309041954 : lu(k,656) = - lu(k,199) * lu(k,653)
912 309041954 : lu(k,660) = lu(k,660) - lu(k,200) * lu(k,653)
913 309041954 : lu(k,661) = lu(k,661) - lu(k,201) * lu(k,653)
914 309041954 : lu(k,664) = lu(k,664) - lu(k,202) * lu(k,653)
915 309041954 : lu(k,665) = lu(k,665) - lu(k,203) * lu(k,653)
916 309041954 : lu(k,669) = lu(k,669) - lu(k,204) * lu(k,653)
917 309041954 : lu(k,670) = lu(k,670) - lu(k,205) * lu(k,653)
918 309041954 : lu(k,210) = 1._r8 / lu(k,210)
919 309041954 : lu(k,211) = lu(k,211) * lu(k,210)
920 309041954 : lu(k,212) = lu(k,212) * lu(k,210)
921 309041954 : lu(k,213) = lu(k,213) * lu(k,210)
922 309041954 : lu(k,214) = lu(k,214) * lu(k,210)
923 309041954 : lu(k,215) = lu(k,215) * lu(k,210)
924 309041954 : lu(k,216) = lu(k,216) * lu(k,210)
925 309041954 : lu(k,217) = lu(k,217) * lu(k,210)
926 309041954 : lu(k,218) = lu(k,218) * lu(k,210)
927 309041954 : lu(k,225) = lu(k,225) - lu(k,211) * lu(k,224)
928 309041954 : lu(k,226) = lu(k,226) - lu(k,212) * lu(k,224)
929 309041954 : lu(k,227) = lu(k,227) - lu(k,213) * lu(k,224)
930 309041954 : lu(k,228) = lu(k,228) - lu(k,214) * lu(k,224)
931 309041954 : lu(k,229) = lu(k,229) - lu(k,215) * lu(k,224)
932 309041954 : lu(k,230) = lu(k,230) - lu(k,216) * lu(k,224)
933 309041954 : lu(k,232) = lu(k,232) - lu(k,217) * lu(k,224)
934 309041954 : lu(k,233) = lu(k,233) - lu(k,218) * lu(k,224)
935 309041954 : lu(k,409) = lu(k,409) - lu(k,211) * lu(k,408)
936 309041954 : lu(k,414) = lu(k,414) - lu(k,212) * lu(k,408)
937 309041954 : lu(k,419) = lu(k,419) - lu(k,213) * lu(k,408)
938 309041954 : lu(k,420) = lu(k,420) - lu(k,214) * lu(k,408)
939 309041954 : lu(k,423) = lu(k,423) - lu(k,215) * lu(k,408)
940 309041954 : lu(k,424) = lu(k,424) - lu(k,216) * lu(k,408)
941 309041954 : lu(k,428) = lu(k,428) - lu(k,217) * lu(k,408)
942 309041954 : lu(k,429) = lu(k,429) - lu(k,218) * lu(k,408)
943 309041954 : lu(k,498) = lu(k,498) - lu(k,211) * lu(k,497)
944 309041954 : lu(k,501) = lu(k,501) - lu(k,212) * lu(k,497)
945 309041954 : lu(k,503) = lu(k,503) - lu(k,213) * lu(k,497)
946 309041954 : lu(k,504) = lu(k,504) - lu(k,214) * lu(k,497)
947 309041954 : lu(k,507) = lu(k,507) - lu(k,215) * lu(k,497)
948 309041954 : lu(k,508) = lu(k,508) - lu(k,216) * lu(k,497)
949 309041954 : lu(k,512) = lu(k,512) - lu(k,217) * lu(k,497)
950 309041954 : lu(k,513) = lu(k,513) - lu(k,218) * lu(k,497)
951 309041954 : lu(k,655) = lu(k,655) - lu(k,211) * lu(k,654)
952 309041954 : lu(k,656) = lu(k,656) - lu(k,212) * lu(k,654)
953 309041954 : lu(k,660) = lu(k,660) - lu(k,213) * lu(k,654)
954 309041954 : lu(k,661) = lu(k,661) - lu(k,214) * lu(k,654)
955 309041954 : lu(k,664) = lu(k,664) - lu(k,215) * lu(k,654)
956 309041954 : lu(k,665) = lu(k,665) - lu(k,216) * lu(k,654)
957 309041954 : lu(k,669) = lu(k,669) - lu(k,217) * lu(k,654)
958 309041954 : lu(k,670) = lu(k,670) - lu(k,218) * lu(k,654)
959 309041954 : lu(k,225) = 1._r8 / lu(k,225)
960 309041954 : lu(k,226) = lu(k,226) * lu(k,225)
961 309041954 : lu(k,227) = lu(k,227) * lu(k,225)
962 309041954 : lu(k,228) = lu(k,228) * lu(k,225)
963 309041954 : lu(k,229) = lu(k,229) * lu(k,225)
964 309041954 : lu(k,230) = lu(k,230) * lu(k,225)
965 309041954 : lu(k,231) = lu(k,231) * lu(k,225)
966 309041954 : lu(k,232) = lu(k,232) * lu(k,225)
967 309041954 : lu(k,233) = lu(k,233) * lu(k,225)
968 309041954 : lu(k,414) = lu(k,414) - lu(k,226) * lu(k,409)
969 309041954 : lu(k,419) = lu(k,419) - lu(k,227) * lu(k,409)
970 309041954 : lu(k,420) = lu(k,420) - lu(k,228) * lu(k,409)
971 309041954 : lu(k,423) = lu(k,423) - lu(k,229) * lu(k,409)
972 309041954 : lu(k,424) = lu(k,424) - lu(k,230) * lu(k,409)
973 309041954 : lu(k,427) = lu(k,427) - lu(k,231) * lu(k,409)
974 309041954 : lu(k,428) = lu(k,428) - lu(k,232) * lu(k,409)
975 309041954 : lu(k,429) = lu(k,429) - lu(k,233) * lu(k,409)
976 309041954 : lu(k,501) = lu(k,501) - lu(k,226) * lu(k,498)
977 309041954 : lu(k,503) = lu(k,503) - lu(k,227) * lu(k,498)
978 309041954 : lu(k,504) = lu(k,504) - lu(k,228) * lu(k,498)
979 309041954 : lu(k,507) = lu(k,507) - lu(k,229) * lu(k,498)
980 309041954 : lu(k,508) = lu(k,508) - lu(k,230) * lu(k,498)
981 309041954 : lu(k,511) = - lu(k,231) * lu(k,498)
982 309041954 : lu(k,512) = lu(k,512) - lu(k,232) * lu(k,498)
983 309041954 : lu(k,513) = lu(k,513) - lu(k,233) * lu(k,498)
984 309041954 : lu(k,595) = - lu(k,226) * lu(k,590)
985 309041954 : lu(k,600) = lu(k,600) - lu(k,227) * lu(k,590)
986 309041954 : lu(k,601) = lu(k,601) - lu(k,228) * lu(k,590)
987 309041954 : lu(k,604) = lu(k,604) - lu(k,229) * lu(k,590)
988 309041954 : lu(k,605) = - lu(k,230) * lu(k,590)
989 309041954 : lu(k,608) = lu(k,608) - lu(k,231) * lu(k,590)
990 309041954 : lu(k,609) = lu(k,609) - lu(k,232) * lu(k,590)
991 309041954 : lu(k,610) = lu(k,610) - lu(k,233) * lu(k,590)
992 309041954 : lu(k,632) = lu(k,632) - lu(k,226) * lu(k,627)
993 309041954 : lu(k,637) = lu(k,637) - lu(k,227) * lu(k,627)
994 309041954 : lu(k,638) = lu(k,638) - lu(k,228) * lu(k,627)
995 309041954 : lu(k,641) = lu(k,641) - lu(k,229) * lu(k,627)
996 309041954 : lu(k,642) = lu(k,642) - lu(k,230) * lu(k,627)
997 309041954 : lu(k,645) = lu(k,645) - lu(k,231) * lu(k,627)
998 309041954 : lu(k,646) = lu(k,646) - lu(k,232) * lu(k,627)
999 309041954 : lu(k,647) = lu(k,647) - lu(k,233) * lu(k,627)
1000 309041954 : lu(k,656) = lu(k,656) - lu(k,226) * lu(k,655)
1001 309041954 : lu(k,660) = lu(k,660) - lu(k,227) * lu(k,655)
1002 309041954 : lu(k,661) = lu(k,661) - lu(k,228) * lu(k,655)
1003 309041954 : lu(k,664) = lu(k,664) - lu(k,229) * lu(k,655)
1004 309041954 : lu(k,665) = lu(k,665) - lu(k,230) * lu(k,655)
1005 309041954 : lu(k,668) = lu(k,668) - lu(k,231) * lu(k,655)
1006 309041954 : lu(k,669) = lu(k,669) - lu(k,232) * lu(k,655)
1007 309041954 : lu(k,670) = lu(k,670) - lu(k,233) * lu(k,655)
1008 309041954 : lu(k,235) = 1._r8 / lu(k,235)
1009 309041954 : lu(k,236) = lu(k,236) * lu(k,235)
1010 309041954 : lu(k,237) = lu(k,237) * lu(k,235)
1011 309041954 : lu(k,238) = lu(k,238) * lu(k,235)
1012 309041954 : lu(k,239) = lu(k,239) * lu(k,235)
1013 309041954 : lu(k,240) = lu(k,240) * lu(k,235)
1014 309041954 : lu(k,266) = lu(k,266) - lu(k,236) * lu(k,265)
1015 309041954 : lu(k,269) = - lu(k,237) * lu(k,265)
1016 309041954 : lu(k,270) = lu(k,270) - lu(k,238) * lu(k,265)
1017 309041954 : lu(k,276) = lu(k,276) - lu(k,239) * lu(k,265)
1018 309041954 : lu(k,279) = - lu(k,240) * lu(k,265)
1019 309041954 : lu(k,346) = - lu(k,236) * lu(k,344)
1020 309041954 : lu(k,351) = lu(k,351) - lu(k,237) * lu(k,344)
1021 309041954 : lu(k,352) = lu(k,352) - lu(k,238) * lu(k,344)
1022 309041954 : lu(k,360) = lu(k,360) - lu(k,239) * lu(k,344)
1023 309041954 : lu(k,364) = - lu(k,240) * lu(k,344)
1024 309041954 : lu(k,413) = lu(k,413) - lu(k,236) * lu(k,410)
1025 309041954 : lu(k,419) = lu(k,419) - lu(k,237) * lu(k,410)
1026 309041954 : lu(k,420) = lu(k,420) - lu(k,238) * lu(k,410)
1027 309041954 : lu(k,428) = lu(k,428) - lu(k,239) * lu(k,410)
1028 309041954 : lu(k,432) = lu(k,432) - lu(k,240) * lu(k,410)
1029 309041954 : lu(k,441) = lu(k,441) - lu(k,236) * lu(k,438)
1030 309041954 : lu(k,447) = lu(k,447) - lu(k,237) * lu(k,438)
1031 309041954 : lu(k,448) = lu(k,448) - lu(k,238) * lu(k,438)
1032 309041954 : lu(k,456) = lu(k,456) - lu(k,239) * lu(k,438)
1033 309041954 : lu(k,460) = lu(k,460) - lu(k,240) * lu(k,438)
1034 309041954 : lu(k,500) = lu(k,500) - lu(k,236) * lu(k,499)
1035 309041954 : lu(k,503) = lu(k,503) - lu(k,237) * lu(k,499)
1036 309041954 : lu(k,504) = lu(k,504) - lu(k,238) * lu(k,499)
1037 309041954 : lu(k,512) = lu(k,512) - lu(k,239) * lu(k,499)
1038 309041954 : lu(k,516) = - lu(k,240) * lu(k,499)
1039 309041954 : lu(k,568) = lu(k,568) - lu(k,236) * lu(k,567)
1040 309041954 : lu(k,572) = lu(k,572) - lu(k,237) * lu(k,567)
1041 309041954 : lu(k,573) = lu(k,573) - lu(k,238) * lu(k,567)
1042 309041954 : lu(k,581) = lu(k,581) - lu(k,239) * lu(k,567)
1043 309041954 : lu(k,585) = - lu(k,240) * lu(k,567)
1044 309041954 : lu(k,594) = lu(k,594) - lu(k,236) * lu(k,591)
1045 309041954 : lu(k,600) = lu(k,600) - lu(k,237) * lu(k,591)
1046 309041954 : lu(k,601) = lu(k,601) - lu(k,238) * lu(k,591)
1047 309041954 : lu(k,609) = lu(k,609) - lu(k,239) * lu(k,591)
1048 309041954 : lu(k,613) = lu(k,613) - lu(k,240) * lu(k,591)
1049 309041954 : lu(k,631) = lu(k,631) - lu(k,236) * lu(k,628)
1050 309041954 : lu(k,637) = lu(k,637) - lu(k,237) * lu(k,628)
1051 309041954 : lu(k,638) = lu(k,638) - lu(k,238) * lu(k,628)
1052 309041954 : lu(k,646) = lu(k,646) - lu(k,239) * lu(k,628)
1053 309041954 : lu(k,650) = lu(k,650) - lu(k,240) * lu(k,628)
1054 309041954 : lu(k,701) = lu(k,701) - lu(k,236) * lu(k,699)
1055 309041954 : lu(k,707) = lu(k,707) - lu(k,237) * lu(k,699)
1056 309041954 : lu(k,708) = lu(k,708) - lu(k,238) * lu(k,699)
1057 309041954 : lu(k,716) = lu(k,716) - lu(k,239) * lu(k,699)
1058 309041954 : lu(k,720) = lu(k,720) - lu(k,240) * lu(k,699)
1059 309041954 : lu(k,727) = - lu(k,236) * lu(k,725)
1060 309041954 : lu(k,732) = - lu(k,237) * lu(k,725)
1061 309041954 : lu(k,733) = lu(k,733) - lu(k,238) * lu(k,725)
1062 309041954 : lu(k,741) = lu(k,741) - lu(k,239) * lu(k,725)
1063 318792954 : lu(k,745) = lu(k,745) - lu(k,240) * lu(k,725)
1064 : end do
1065 9751000 : end subroutine lu_fac05
1066 9751000 : subroutine lu_fac06( avec_len, lu )
1067 : use chem_mods, only : nzcnt
1068 : use shr_kind_mod, only : r8 => shr_kind_r8
1069 : implicit none
1070 : !-----------------------------------------------------------------------
1071 : ! ... dummy args
1072 : !-----------------------------------------------------------------------
1073 : integer, intent(in) :: avec_len
1074 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1075 : !-----------------------------------------------------------------------
1076 : ! ... local variables
1077 : !-----------------------------------------------------------------------
1078 : integer :: k
1079 318792954 : do k = 1,avec_len
1080 309041954 : lu(k,243) = 1._r8 / lu(k,243)
1081 309041954 : lu(k,244) = lu(k,244) * lu(k,243)
1082 309041954 : lu(k,245) = lu(k,245) * lu(k,243)
1083 309041954 : lu(k,246) = lu(k,246) * lu(k,243)
1084 309041954 : lu(k,247) = lu(k,247) * lu(k,243)
1085 309041954 : lu(k,248) = lu(k,248) * lu(k,243)
1086 309041954 : lu(k,249) = lu(k,249) * lu(k,243)
1087 309041954 : lu(k,250) = lu(k,250) * lu(k,243)
1088 309041954 : lu(k,251) = lu(k,251) * lu(k,243)
1089 309041954 : lu(k,252) = lu(k,252) * lu(k,243)
1090 309041954 : lu(k,307) = lu(k,307) - lu(k,244) * lu(k,306)
1091 309041954 : lu(k,310) = lu(k,310) - lu(k,245) * lu(k,306)
1092 309041954 : lu(k,312) = - lu(k,246) * lu(k,306)
1093 309041954 : lu(k,314) = lu(k,314) - lu(k,247) * lu(k,306)
1094 309041954 : lu(k,315) = lu(k,315) - lu(k,248) * lu(k,306)
1095 309041954 : lu(k,316) = lu(k,316) - lu(k,249) * lu(k,306)
1096 309041954 : lu(k,321) = - lu(k,250) * lu(k,306)
1097 309041954 : lu(k,322) = lu(k,322) - lu(k,251) * lu(k,306)
1098 309041954 : lu(k,325) = lu(k,325) - lu(k,252) * lu(k,306)
1099 309041954 : lu(k,412) = lu(k,412) - lu(k,244) * lu(k,411)
1100 309041954 : lu(k,416) = lu(k,416) - lu(k,245) * lu(k,411)
1101 309041954 : lu(k,418) = lu(k,418) - lu(k,246) * lu(k,411)
1102 309041954 : lu(k,420) = lu(k,420) - lu(k,247) * lu(k,411)
1103 309041954 : lu(k,421) = lu(k,421) - lu(k,248) * lu(k,411)
1104 309041954 : lu(k,422) = lu(k,422) - lu(k,249) * lu(k,411)
1105 309041954 : lu(k,427) = lu(k,427) - lu(k,250) * lu(k,411)
1106 309041954 : lu(k,428) = lu(k,428) - lu(k,251) * lu(k,411)
1107 309041954 : lu(k,432) = lu(k,432) - lu(k,252) * lu(k,411)
1108 309041954 : lu(k,440) = - lu(k,244) * lu(k,439)
1109 309041954 : lu(k,444) = lu(k,444) - lu(k,245) * lu(k,439)
1110 309041954 : lu(k,446) = - lu(k,246) * lu(k,439)
1111 309041954 : lu(k,448) = lu(k,448) - lu(k,247) * lu(k,439)
1112 309041954 : lu(k,449) = lu(k,449) - lu(k,248) * lu(k,439)
1113 309041954 : lu(k,450) = lu(k,450) - lu(k,249) * lu(k,439)
1114 309041954 : lu(k,455) = lu(k,455) - lu(k,250) * lu(k,439)
1115 309041954 : lu(k,456) = lu(k,456) - lu(k,251) * lu(k,439)
1116 309041954 : lu(k,460) = lu(k,460) - lu(k,252) * lu(k,439)
1117 309041954 : lu(k,466) = - lu(k,244) * lu(k,465)
1118 309041954 : lu(k,469) = lu(k,469) - lu(k,245) * lu(k,465)
1119 309041954 : lu(k,471) = lu(k,471) - lu(k,246) * lu(k,465)
1120 309041954 : lu(k,473) = lu(k,473) - lu(k,247) * lu(k,465)
1121 309041954 : lu(k,474) = lu(k,474) - lu(k,248) * lu(k,465)
1122 309041954 : lu(k,475) = lu(k,475) - lu(k,249) * lu(k,465)
1123 309041954 : lu(k,480) = - lu(k,250) * lu(k,465)
1124 309041954 : lu(k,481) = lu(k,481) - lu(k,251) * lu(k,465)
1125 309041954 : lu(k,485) = lu(k,485) - lu(k,252) * lu(k,465)
1126 309041954 : lu(k,593) = lu(k,593) - lu(k,244) * lu(k,592)
1127 309041954 : lu(k,597) = lu(k,597) - lu(k,245) * lu(k,592)
1128 309041954 : lu(k,599) = lu(k,599) - lu(k,246) * lu(k,592)
1129 309041954 : lu(k,601) = lu(k,601) - lu(k,247) * lu(k,592)
1130 309041954 : lu(k,602) = lu(k,602) - lu(k,248) * lu(k,592)
1131 309041954 : lu(k,603) = lu(k,603) - lu(k,249) * lu(k,592)
1132 309041954 : lu(k,608) = lu(k,608) - lu(k,250) * lu(k,592)
1133 309041954 : lu(k,609) = lu(k,609) - lu(k,251) * lu(k,592)
1134 309041954 : lu(k,613) = lu(k,613) - lu(k,252) * lu(k,592)
1135 309041954 : lu(k,630) = lu(k,630) - lu(k,244) * lu(k,629)
1136 309041954 : lu(k,634) = lu(k,634) - lu(k,245) * lu(k,629)
1137 309041954 : lu(k,636) = lu(k,636) - lu(k,246) * lu(k,629)
1138 309041954 : lu(k,638) = lu(k,638) - lu(k,247) * lu(k,629)
1139 309041954 : lu(k,639) = lu(k,639) - lu(k,248) * lu(k,629)
1140 309041954 : lu(k,640) = lu(k,640) - lu(k,249) * lu(k,629)
1141 309041954 : lu(k,645) = lu(k,645) - lu(k,250) * lu(k,629)
1142 309041954 : lu(k,646) = lu(k,646) - lu(k,251) * lu(k,629)
1143 309041954 : lu(k,650) = lu(k,650) - lu(k,252) * lu(k,629)
1144 309041954 : lu(k,255) = 1._r8 / lu(k,255)
1145 309041954 : lu(k,256) = lu(k,256) * lu(k,255)
1146 309041954 : lu(k,257) = lu(k,257) * lu(k,255)
1147 309041954 : lu(k,258) = lu(k,258) * lu(k,255)
1148 309041954 : lu(k,259) = lu(k,259) * lu(k,255)
1149 309041954 : lu(k,260) = lu(k,260) * lu(k,255)
1150 309041954 : lu(k,261) = lu(k,261) * lu(k,255)
1151 309041954 : lu(k,262) = lu(k,262) * lu(k,255)
1152 309041954 : lu(k,308) = lu(k,308) - lu(k,256) * lu(k,307)
1153 309041954 : lu(k,311) = - lu(k,257) * lu(k,307)
1154 309041954 : lu(k,312) = lu(k,312) - lu(k,258) * lu(k,307)
1155 309041954 : lu(k,321) = lu(k,321) - lu(k,259) * lu(k,307)
1156 309041954 : lu(k,322) = lu(k,322) - lu(k,260) * lu(k,307)
1157 309041954 : lu(k,323) = - lu(k,261) * lu(k,307)
1158 309041954 : lu(k,325) = lu(k,325) - lu(k,262) * lu(k,307)
1159 309041954 : lu(k,347) = lu(k,347) - lu(k,256) * lu(k,345)
1160 309041954 : lu(k,349) = - lu(k,257) * lu(k,345)
1161 309041954 : lu(k,350) = lu(k,350) - lu(k,258) * lu(k,345)
1162 309041954 : lu(k,359) = lu(k,359) - lu(k,259) * lu(k,345)
1163 309041954 : lu(k,360) = lu(k,360) - lu(k,260) * lu(k,345)
1164 309041954 : lu(k,362) = - lu(k,261) * lu(k,345)
1165 309041954 : lu(k,364) = lu(k,364) - lu(k,262) * lu(k,345)
1166 309041954 : lu(k,414) = lu(k,414) - lu(k,256) * lu(k,412)
1167 309041954 : lu(k,417) = - lu(k,257) * lu(k,412)
1168 309041954 : lu(k,418) = lu(k,418) - lu(k,258) * lu(k,412)
1169 309041954 : lu(k,427) = lu(k,427) - lu(k,259) * lu(k,412)
1170 309041954 : lu(k,428) = lu(k,428) - lu(k,260) * lu(k,412)
1171 309041954 : lu(k,430) = lu(k,430) - lu(k,261) * lu(k,412)
1172 309041954 : lu(k,432) = lu(k,432) - lu(k,262) * lu(k,412)
1173 309041954 : lu(k,442) = - lu(k,256) * lu(k,440)
1174 309041954 : lu(k,445) = lu(k,445) - lu(k,257) * lu(k,440)
1175 309041954 : lu(k,446) = lu(k,446) - lu(k,258) * lu(k,440)
1176 309041954 : lu(k,455) = lu(k,455) - lu(k,259) * lu(k,440)
1177 309041954 : lu(k,456) = lu(k,456) - lu(k,260) * lu(k,440)
1178 309041954 : lu(k,458) = - lu(k,261) * lu(k,440)
1179 309041954 : lu(k,460) = lu(k,460) - lu(k,262) * lu(k,440)
1180 309041954 : lu(k,467) = lu(k,467) - lu(k,256) * lu(k,466)
1181 309041954 : lu(k,470) = lu(k,470) - lu(k,257) * lu(k,466)
1182 309041954 : lu(k,471) = lu(k,471) - lu(k,258) * lu(k,466)
1183 309041954 : lu(k,480) = lu(k,480) - lu(k,259) * lu(k,466)
1184 309041954 : lu(k,481) = lu(k,481) - lu(k,260) * lu(k,466)
1185 309041954 : lu(k,483) = lu(k,483) - lu(k,261) * lu(k,466)
1186 309041954 : lu(k,485) = lu(k,485) - lu(k,262) * lu(k,466)
1187 309041954 : lu(k,523) = lu(k,523) - lu(k,256) * lu(k,522)
1188 309041954 : lu(k,526) = lu(k,526) - lu(k,257) * lu(k,522)
1189 309041954 : lu(k,527) = lu(k,527) - lu(k,258) * lu(k,522)
1190 309041954 : lu(k,536) = - lu(k,259) * lu(k,522)
1191 309041954 : lu(k,537) = lu(k,537) - lu(k,260) * lu(k,522)
1192 309041954 : lu(k,539) = lu(k,539) - lu(k,261) * lu(k,522)
1193 309041954 : lu(k,541) = lu(k,541) - lu(k,262) * lu(k,522)
1194 309041954 : lu(k,545) = lu(k,545) - lu(k,256) * lu(k,544)
1195 309041954 : lu(k,548) = - lu(k,257) * lu(k,544)
1196 309041954 : lu(k,549) = lu(k,549) - lu(k,258) * lu(k,544)
1197 309041954 : lu(k,558) = - lu(k,259) * lu(k,544)
1198 309041954 : lu(k,559) = lu(k,559) - lu(k,260) * lu(k,544)
1199 309041954 : lu(k,561) = lu(k,561) - lu(k,261) * lu(k,544)
1200 309041954 : lu(k,563) = lu(k,563) - lu(k,262) * lu(k,544)
1201 309041954 : lu(k,595) = lu(k,595) - lu(k,256) * lu(k,593)
1202 309041954 : lu(k,598) = - lu(k,257) * lu(k,593)
1203 309041954 : lu(k,599) = lu(k,599) - lu(k,258) * lu(k,593)
1204 309041954 : lu(k,608) = lu(k,608) - lu(k,259) * lu(k,593)
1205 309041954 : lu(k,609) = lu(k,609) - lu(k,260) * lu(k,593)
1206 309041954 : lu(k,611) = - lu(k,261) * lu(k,593)
1207 309041954 : lu(k,613) = lu(k,613) - lu(k,262) * lu(k,593)
1208 309041954 : lu(k,632) = lu(k,632) - lu(k,256) * lu(k,630)
1209 309041954 : lu(k,635) = lu(k,635) - lu(k,257) * lu(k,630)
1210 309041954 : lu(k,636) = lu(k,636) - lu(k,258) * lu(k,630)
1211 309041954 : lu(k,645) = lu(k,645) - lu(k,259) * lu(k,630)
1212 309041954 : lu(k,646) = lu(k,646) - lu(k,260) * lu(k,630)
1213 309041954 : lu(k,648) = lu(k,648) - lu(k,261) * lu(k,630)
1214 309041954 : lu(k,650) = lu(k,650) - lu(k,262) * lu(k,630)
1215 309041954 : lu(k,677) = lu(k,677) - lu(k,256) * lu(k,676)
1216 309041954 : lu(k,679) = lu(k,679) - lu(k,257) * lu(k,676)
1217 309041954 : lu(k,680) = lu(k,680) - lu(k,258) * lu(k,676)
1218 309041954 : lu(k,689) = - lu(k,259) * lu(k,676)
1219 309041954 : lu(k,690) = lu(k,690) - lu(k,260) * lu(k,676)
1220 309041954 : lu(k,692) = lu(k,692) - lu(k,261) * lu(k,676)
1221 309041954 : lu(k,694) = lu(k,694) - lu(k,262) * lu(k,676)
1222 309041954 : lu(k,702) = - lu(k,256) * lu(k,700)
1223 309041954 : lu(k,705) = - lu(k,257) * lu(k,700)
1224 309041954 : lu(k,706) = lu(k,706) - lu(k,258) * lu(k,700)
1225 309041954 : lu(k,715) = lu(k,715) - lu(k,259) * lu(k,700)
1226 309041954 : lu(k,716) = lu(k,716) - lu(k,260) * lu(k,700)
1227 309041954 : lu(k,718) = - lu(k,261) * lu(k,700)
1228 309041954 : lu(k,720) = lu(k,720) - lu(k,262) * lu(k,700)
1229 309041954 : lu(k,728) = lu(k,728) - lu(k,256) * lu(k,726)
1230 309041954 : lu(k,730) = lu(k,730) - lu(k,257) * lu(k,726)
1231 309041954 : lu(k,731) = lu(k,731) - lu(k,258) * lu(k,726)
1232 309041954 : lu(k,740) = - lu(k,259) * lu(k,726)
1233 309041954 : lu(k,741) = lu(k,741) - lu(k,260) * lu(k,726)
1234 309041954 : lu(k,743) = lu(k,743) - lu(k,261) * lu(k,726)
1235 309041954 : lu(k,745) = lu(k,745) - lu(k,262) * lu(k,726)
1236 309041954 : lu(k,266) = 1._r8 / lu(k,266)
1237 309041954 : lu(k,267) = lu(k,267) * lu(k,266)
1238 309041954 : lu(k,268) = lu(k,268) * lu(k,266)
1239 309041954 : lu(k,269) = lu(k,269) * lu(k,266)
1240 309041954 : lu(k,270) = lu(k,270) * lu(k,266)
1241 309041954 : lu(k,271) = lu(k,271) * lu(k,266)
1242 309041954 : lu(k,272) = lu(k,272) * lu(k,266)
1243 309041954 : lu(k,273) = lu(k,273) * lu(k,266)
1244 309041954 : lu(k,274) = lu(k,274) * lu(k,266)
1245 309041954 : lu(k,275) = lu(k,275) * lu(k,266)
1246 309041954 : lu(k,276) = lu(k,276) * lu(k,266)
1247 309041954 : lu(k,277) = lu(k,277) * lu(k,266)
1248 309041954 : lu(k,278) = lu(k,278) * lu(k,266)
1249 309041954 : lu(k,279) = lu(k,279) * lu(k,266)
1250 309041954 : lu(k,347) = lu(k,347) - lu(k,267) * lu(k,346)
1251 309041954 : lu(k,348) = - lu(k,268) * lu(k,346)
1252 309041954 : lu(k,351) = lu(k,351) - lu(k,269) * lu(k,346)
1253 309041954 : lu(k,352) = lu(k,352) - lu(k,270) * lu(k,346)
1254 309041954 : lu(k,353) = - lu(k,271) * lu(k,346)
1255 309041954 : lu(k,354) = - lu(k,272) * lu(k,346)
1256 309041954 : lu(k,355) = lu(k,355) - lu(k,273) * lu(k,346)
1257 309041954 : lu(k,358) = - lu(k,274) * lu(k,346)
1258 309041954 : lu(k,359) = lu(k,359) - lu(k,275) * lu(k,346)
1259 309041954 : lu(k,360) = lu(k,360) - lu(k,276) * lu(k,346)
1260 309041954 : lu(k,361) = lu(k,361) - lu(k,277) * lu(k,346)
1261 309041954 : lu(k,363) = - lu(k,278) * lu(k,346)
1262 309041954 : lu(k,364) = lu(k,364) - lu(k,279) * lu(k,346)
1263 309041954 : lu(k,414) = lu(k,414) - lu(k,267) * lu(k,413)
1264 309041954 : lu(k,415) = lu(k,415) - lu(k,268) * lu(k,413)
1265 309041954 : lu(k,419) = lu(k,419) - lu(k,269) * lu(k,413)
1266 309041954 : lu(k,420) = lu(k,420) - lu(k,270) * lu(k,413)
1267 309041954 : lu(k,421) = lu(k,421) - lu(k,271) * lu(k,413)
1268 309041954 : lu(k,422) = lu(k,422) - lu(k,272) * lu(k,413)
1269 309041954 : lu(k,423) = lu(k,423) - lu(k,273) * lu(k,413)
1270 309041954 : lu(k,426) = lu(k,426) - lu(k,274) * lu(k,413)
1271 309041954 : lu(k,427) = lu(k,427) - lu(k,275) * lu(k,413)
1272 309041954 : lu(k,428) = lu(k,428) - lu(k,276) * lu(k,413)
1273 309041954 : lu(k,429) = lu(k,429) - lu(k,277) * lu(k,413)
1274 309041954 : lu(k,431) = lu(k,431) - lu(k,278) * lu(k,413)
1275 309041954 : lu(k,432) = lu(k,432) - lu(k,279) * lu(k,413)
1276 309041954 : lu(k,442) = lu(k,442) - lu(k,267) * lu(k,441)
1277 309041954 : lu(k,443) = lu(k,443) - lu(k,268) * lu(k,441)
1278 309041954 : lu(k,447) = lu(k,447) - lu(k,269) * lu(k,441)
1279 309041954 : lu(k,448) = lu(k,448) - lu(k,270) * lu(k,441)
1280 309041954 : lu(k,449) = lu(k,449) - lu(k,271) * lu(k,441)
1281 309041954 : lu(k,450) = lu(k,450) - lu(k,272) * lu(k,441)
1282 309041954 : lu(k,451) = lu(k,451) - lu(k,273) * lu(k,441)
1283 309041954 : lu(k,454) = - lu(k,274) * lu(k,441)
1284 309041954 : lu(k,455) = lu(k,455) - lu(k,275) * lu(k,441)
1285 309041954 : lu(k,456) = lu(k,456) - lu(k,276) * lu(k,441)
1286 309041954 : lu(k,457) = lu(k,457) - lu(k,277) * lu(k,441)
1287 309041954 : lu(k,459) = lu(k,459) - lu(k,278) * lu(k,441)
1288 309041954 : lu(k,460) = lu(k,460) - lu(k,279) * lu(k,441)
1289 309041954 : lu(k,501) = lu(k,501) - lu(k,267) * lu(k,500)
1290 309041954 : lu(k,502) = - lu(k,268) * lu(k,500)
1291 309041954 : lu(k,503) = lu(k,503) - lu(k,269) * lu(k,500)
1292 309041954 : lu(k,504) = lu(k,504) - lu(k,270) * lu(k,500)
1293 309041954 : lu(k,505) = - lu(k,271) * lu(k,500)
1294 309041954 : lu(k,506) = - lu(k,272) * lu(k,500)
1295 309041954 : lu(k,507) = lu(k,507) - lu(k,273) * lu(k,500)
1296 309041954 : lu(k,510) = lu(k,510) - lu(k,274) * lu(k,500)
1297 309041954 : lu(k,511) = lu(k,511) - lu(k,275) * lu(k,500)
1298 309041954 : lu(k,512) = lu(k,512) - lu(k,276) * lu(k,500)
1299 309041954 : lu(k,513) = lu(k,513) - lu(k,277) * lu(k,500)
1300 309041954 : lu(k,515) = - lu(k,278) * lu(k,500)
1301 309041954 : lu(k,516) = lu(k,516) - lu(k,279) * lu(k,500)
1302 309041954 : lu(k,569) = lu(k,569) - lu(k,267) * lu(k,568)
1303 309041954 : lu(k,570) = lu(k,570) - lu(k,268) * lu(k,568)
1304 309041954 : lu(k,572) = lu(k,572) - lu(k,269) * lu(k,568)
1305 309041954 : lu(k,573) = lu(k,573) - lu(k,270) * lu(k,568)
1306 309041954 : lu(k,574) = lu(k,574) - lu(k,271) * lu(k,568)
1307 309041954 : lu(k,575) = lu(k,575) - lu(k,272) * lu(k,568)
1308 309041954 : lu(k,576) = lu(k,576) - lu(k,273) * lu(k,568)
1309 309041954 : lu(k,579) = lu(k,579) - lu(k,274) * lu(k,568)
1310 309041954 : lu(k,580) = lu(k,580) - lu(k,275) * lu(k,568)
1311 309041954 : lu(k,581) = lu(k,581) - lu(k,276) * lu(k,568)
1312 309041954 : lu(k,582) = lu(k,582) - lu(k,277) * lu(k,568)
1313 309041954 : lu(k,584) = lu(k,584) - lu(k,278) * lu(k,568)
1314 309041954 : lu(k,585) = lu(k,585) - lu(k,279) * lu(k,568)
1315 309041954 : lu(k,595) = lu(k,595) - lu(k,267) * lu(k,594)
1316 309041954 : lu(k,596) = lu(k,596) - lu(k,268) * lu(k,594)
1317 309041954 : lu(k,600) = lu(k,600) - lu(k,269) * lu(k,594)
1318 309041954 : lu(k,601) = lu(k,601) - lu(k,270) * lu(k,594)
1319 309041954 : lu(k,602) = lu(k,602) - lu(k,271) * lu(k,594)
1320 309041954 : lu(k,603) = lu(k,603) - lu(k,272) * lu(k,594)
1321 309041954 : lu(k,604) = lu(k,604) - lu(k,273) * lu(k,594)
1322 309041954 : lu(k,607) = lu(k,607) - lu(k,274) * lu(k,594)
1323 309041954 : lu(k,608) = lu(k,608) - lu(k,275) * lu(k,594)
1324 309041954 : lu(k,609) = lu(k,609) - lu(k,276) * lu(k,594)
1325 309041954 : lu(k,610) = lu(k,610) - lu(k,277) * lu(k,594)
1326 309041954 : lu(k,612) = lu(k,612) - lu(k,278) * lu(k,594)
1327 309041954 : lu(k,613) = lu(k,613) - lu(k,279) * lu(k,594)
1328 309041954 : lu(k,632) = lu(k,632) - lu(k,267) * lu(k,631)
1329 309041954 : lu(k,633) = lu(k,633) - lu(k,268) * lu(k,631)
1330 309041954 : lu(k,637) = lu(k,637) - lu(k,269) * lu(k,631)
1331 309041954 : lu(k,638) = lu(k,638) - lu(k,270) * lu(k,631)
1332 309041954 : lu(k,639) = lu(k,639) - lu(k,271) * lu(k,631)
1333 309041954 : lu(k,640) = lu(k,640) - lu(k,272) * lu(k,631)
1334 309041954 : lu(k,641) = lu(k,641) - lu(k,273) * lu(k,631)
1335 309041954 : lu(k,644) = lu(k,644) - lu(k,274) * lu(k,631)
1336 309041954 : lu(k,645) = lu(k,645) - lu(k,275) * lu(k,631)
1337 309041954 : lu(k,646) = lu(k,646) - lu(k,276) * lu(k,631)
1338 309041954 : lu(k,647) = lu(k,647) - lu(k,277) * lu(k,631)
1339 309041954 : lu(k,649) = lu(k,649) - lu(k,278) * lu(k,631)
1340 309041954 : lu(k,650) = lu(k,650) - lu(k,279) * lu(k,631)
1341 309041954 : lu(k,702) = lu(k,702) - lu(k,267) * lu(k,701)
1342 309041954 : lu(k,703) = lu(k,703) - lu(k,268) * lu(k,701)
1343 309041954 : lu(k,707) = lu(k,707) - lu(k,269) * lu(k,701)
1344 309041954 : lu(k,708) = lu(k,708) - lu(k,270) * lu(k,701)
1345 309041954 : lu(k,709) = lu(k,709) - lu(k,271) * lu(k,701)
1346 309041954 : lu(k,710) = lu(k,710) - lu(k,272) * lu(k,701)
1347 309041954 : lu(k,711) = lu(k,711) - lu(k,273) * lu(k,701)
1348 309041954 : lu(k,714) = - lu(k,274) * lu(k,701)
1349 309041954 : lu(k,715) = lu(k,715) - lu(k,275) * lu(k,701)
1350 309041954 : lu(k,716) = lu(k,716) - lu(k,276) * lu(k,701)
1351 309041954 : lu(k,717) = lu(k,717) - lu(k,277) * lu(k,701)
1352 309041954 : lu(k,719) = lu(k,719) - lu(k,278) * lu(k,701)
1353 309041954 : lu(k,720) = lu(k,720) - lu(k,279) * lu(k,701)
1354 309041954 : lu(k,728) = lu(k,728) - lu(k,267) * lu(k,727)
1355 309041954 : lu(k,729) = - lu(k,268) * lu(k,727)
1356 309041954 : lu(k,732) = lu(k,732) - lu(k,269) * lu(k,727)
1357 309041954 : lu(k,733) = lu(k,733) - lu(k,270) * lu(k,727)
1358 309041954 : lu(k,734) = - lu(k,271) * lu(k,727)
1359 309041954 : lu(k,735) = - lu(k,272) * lu(k,727)
1360 309041954 : lu(k,736) = - lu(k,273) * lu(k,727)
1361 309041954 : lu(k,739) = - lu(k,274) * lu(k,727)
1362 309041954 : lu(k,740) = lu(k,740) - lu(k,275) * lu(k,727)
1363 309041954 : lu(k,741) = lu(k,741) - lu(k,276) * lu(k,727)
1364 309041954 : lu(k,742) = - lu(k,277) * lu(k,727)
1365 309041954 : lu(k,744) = - lu(k,278) * lu(k,727)
1366 318792954 : lu(k,745) = lu(k,745) - lu(k,279) * lu(k,727)
1367 : end do
1368 9751000 : end subroutine lu_fac06
1369 9751000 : subroutine lu_fac07( avec_len, lu )
1370 : use chem_mods, only : nzcnt
1371 : use shr_kind_mod, only : r8 => shr_kind_r8
1372 : implicit none
1373 : !-----------------------------------------------------------------------
1374 : ! ... dummy args
1375 : !-----------------------------------------------------------------------
1376 : integer, intent(in) :: avec_len
1377 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1378 : !-----------------------------------------------------------------------
1379 : ! ... local variables
1380 : !-----------------------------------------------------------------------
1381 : integer :: k
1382 318792954 : do k = 1,avec_len
1383 309041954 : lu(k,280) = 1._r8 / lu(k,280)
1384 309041954 : lu(k,281) = lu(k,281) * lu(k,280)
1385 309041954 : lu(k,282) = lu(k,282) * lu(k,280)
1386 309041954 : lu(k,283) = lu(k,283) * lu(k,280)
1387 309041954 : lu(k,284) = lu(k,284) * lu(k,280)
1388 309041954 : lu(k,285) = lu(k,285) * lu(k,280)
1389 309041954 : lu(k,286) = lu(k,286) * lu(k,280)
1390 309041954 : lu(k,287) = lu(k,287) * lu(k,280)
1391 309041954 : lu(k,292) = lu(k,292) - lu(k,281) * lu(k,290)
1392 309041954 : lu(k,293) = lu(k,293) - lu(k,282) * lu(k,290)
1393 309041954 : lu(k,294) = lu(k,294) - lu(k,283) * lu(k,290)
1394 309041954 : lu(k,297) = lu(k,297) - lu(k,284) * lu(k,290)
1395 309041954 : lu(k,298) = lu(k,298) - lu(k,285) * lu(k,290)
1396 309041954 : lu(k,299) = - lu(k,286) * lu(k,290)
1397 309041954 : lu(k,301) = lu(k,301) - lu(k,287) * lu(k,290)
1398 309041954 : lu(k,313) = - lu(k,281) * lu(k,308)
1399 309041954 : lu(k,314) = lu(k,314) - lu(k,282) * lu(k,308)
1400 309041954 : lu(k,317) = - lu(k,283) * lu(k,308)
1401 309041954 : lu(k,320) = - lu(k,284) * lu(k,308)
1402 309041954 : lu(k,322) = lu(k,322) - lu(k,285) * lu(k,308)
1403 309041954 : lu(k,323) = lu(k,323) - lu(k,286) * lu(k,308)
1404 309041954 : lu(k,325) = lu(k,325) - lu(k,287) * lu(k,308)
1405 309041954 : lu(k,329) = lu(k,329) - lu(k,281) * lu(k,327)
1406 309041954 : lu(k,330) = - lu(k,282) * lu(k,327)
1407 309041954 : lu(k,333) = lu(k,333) - lu(k,283) * lu(k,327)
1408 309041954 : lu(k,335) = - lu(k,284) * lu(k,327)
1409 309041954 : lu(k,337) = lu(k,337) - lu(k,285) * lu(k,327)
1410 309041954 : lu(k,339) = - lu(k,286) * lu(k,327)
1411 309041954 : lu(k,340) = lu(k,340) - lu(k,287) * lu(k,327)
1412 309041954 : lu(k,351) = lu(k,351) - lu(k,281) * lu(k,347)
1413 309041954 : lu(k,352) = lu(k,352) - lu(k,282) * lu(k,347)
1414 309041954 : lu(k,355) = lu(k,355) - lu(k,283) * lu(k,347)
1415 309041954 : lu(k,358) = lu(k,358) - lu(k,284) * lu(k,347)
1416 309041954 : lu(k,360) = lu(k,360) - lu(k,285) * lu(k,347)
1417 309041954 : lu(k,362) = lu(k,362) - lu(k,286) * lu(k,347)
1418 309041954 : lu(k,364) = lu(k,364) - lu(k,287) * lu(k,347)
1419 309041954 : lu(k,376) = lu(k,376) - lu(k,281) * lu(k,371)
1420 309041954 : lu(k,377) = lu(k,377) - lu(k,282) * lu(k,371)
1421 309041954 : lu(k,380) = lu(k,380) - lu(k,283) * lu(k,371)
1422 309041954 : lu(k,383) = lu(k,383) - lu(k,284) * lu(k,371)
1423 309041954 : lu(k,385) = lu(k,385) - lu(k,285) * lu(k,371)
1424 309041954 : lu(k,387) = lu(k,387) - lu(k,286) * lu(k,371)
1425 309041954 : lu(k,389) = lu(k,389) - lu(k,287) * lu(k,371)
1426 309041954 : lu(k,419) = lu(k,419) - lu(k,281) * lu(k,414)
1427 309041954 : lu(k,420) = lu(k,420) - lu(k,282) * lu(k,414)
1428 309041954 : lu(k,423) = lu(k,423) - lu(k,283) * lu(k,414)
1429 309041954 : lu(k,426) = lu(k,426) - lu(k,284) * lu(k,414)
1430 309041954 : lu(k,428) = lu(k,428) - lu(k,285) * lu(k,414)
1431 309041954 : lu(k,430) = lu(k,430) - lu(k,286) * lu(k,414)
1432 309041954 : lu(k,432) = lu(k,432) - lu(k,287) * lu(k,414)
1433 309041954 : lu(k,447) = lu(k,447) - lu(k,281) * lu(k,442)
1434 309041954 : lu(k,448) = lu(k,448) - lu(k,282) * lu(k,442)
1435 309041954 : lu(k,451) = lu(k,451) - lu(k,283) * lu(k,442)
1436 309041954 : lu(k,454) = lu(k,454) - lu(k,284) * lu(k,442)
1437 309041954 : lu(k,456) = lu(k,456) - lu(k,285) * lu(k,442)
1438 309041954 : lu(k,458) = lu(k,458) - lu(k,286) * lu(k,442)
1439 309041954 : lu(k,460) = lu(k,460) - lu(k,287) * lu(k,442)
1440 309041954 : lu(k,472) = lu(k,472) - lu(k,281) * lu(k,467)
1441 309041954 : lu(k,473) = lu(k,473) - lu(k,282) * lu(k,467)
1442 309041954 : lu(k,476) = lu(k,476) - lu(k,283) * lu(k,467)
1443 309041954 : lu(k,479) = lu(k,479) - lu(k,284) * lu(k,467)
1444 309041954 : lu(k,481) = lu(k,481) - lu(k,285) * lu(k,467)
1445 309041954 : lu(k,483) = lu(k,483) - lu(k,286) * lu(k,467)
1446 309041954 : lu(k,485) = lu(k,485) - lu(k,287) * lu(k,467)
1447 309041954 : lu(k,503) = lu(k,503) - lu(k,281) * lu(k,501)
1448 309041954 : lu(k,504) = lu(k,504) - lu(k,282) * lu(k,501)
1449 309041954 : lu(k,507) = lu(k,507) - lu(k,283) * lu(k,501)
1450 309041954 : lu(k,510) = lu(k,510) - lu(k,284) * lu(k,501)
1451 309041954 : lu(k,512) = lu(k,512) - lu(k,285) * lu(k,501)
1452 309041954 : lu(k,514) = - lu(k,286) * lu(k,501)
1453 309041954 : lu(k,516) = lu(k,516) - lu(k,287) * lu(k,501)
1454 309041954 : lu(k,528) = lu(k,528) - lu(k,281) * lu(k,523)
1455 309041954 : lu(k,529) = lu(k,529) - lu(k,282) * lu(k,523)
1456 309041954 : lu(k,532) = lu(k,532) - lu(k,283) * lu(k,523)
1457 309041954 : lu(k,535) = lu(k,535) - lu(k,284) * lu(k,523)
1458 309041954 : lu(k,537) = lu(k,537) - lu(k,285) * lu(k,523)
1459 309041954 : lu(k,539) = lu(k,539) - lu(k,286) * lu(k,523)
1460 309041954 : lu(k,541) = lu(k,541) - lu(k,287) * lu(k,523)
1461 309041954 : lu(k,550) = lu(k,550) - lu(k,281) * lu(k,545)
1462 309041954 : lu(k,551) = lu(k,551) - lu(k,282) * lu(k,545)
1463 309041954 : lu(k,554) = - lu(k,283) * lu(k,545)
1464 309041954 : lu(k,557) = - lu(k,284) * lu(k,545)
1465 309041954 : lu(k,559) = lu(k,559) - lu(k,285) * lu(k,545)
1466 309041954 : lu(k,561) = lu(k,561) - lu(k,286) * lu(k,545)
1467 309041954 : lu(k,563) = lu(k,563) - lu(k,287) * lu(k,545)
1468 309041954 : lu(k,572) = lu(k,572) - lu(k,281) * lu(k,569)
1469 309041954 : lu(k,573) = lu(k,573) - lu(k,282) * lu(k,569)
1470 309041954 : lu(k,576) = lu(k,576) - lu(k,283) * lu(k,569)
1471 309041954 : lu(k,579) = lu(k,579) - lu(k,284) * lu(k,569)
1472 309041954 : lu(k,581) = lu(k,581) - lu(k,285) * lu(k,569)
1473 309041954 : lu(k,583) = - lu(k,286) * lu(k,569)
1474 309041954 : lu(k,585) = lu(k,585) - lu(k,287) * lu(k,569)
1475 309041954 : lu(k,600) = lu(k,600) - lu(k,281) * lu(k,595)
1476 309041954 : lu(k,601) = lu(k,601) - lu(k,282) * lu(k,595)
1477 309041954 : lu(k,604) = lu(k,604) - lu(k,283) * lu(k,595)
1478 309041954 : lu(k,607) = lu(k,607) - lu(k,284) * lu(k,595)
1479 309041954 : lu(k,609) = lu(k,609) - lu(k,285) * lu(k,595)
1480 309041954 : lu(k,611) = lu(k,611) - lu(k,286) * lu(k,595)
1481 309041954 : lu(k,613) = lu(k,613) - lu(k,287) * lu(k,595)
1482 309041954 : lu(k,637) = lu(k,637) - lu(k,281) * lu(k,632)
1483 309041954 : lu(k,638) = lu(k,638) - lu(k,282) * lu(k,632)
1484 309041954 : lu(k,641) = lu(k,641) - lu(k,283) * lu(k,632)
1485 309041954 : lu(k,644) = lu(k,644) - lu(k,284) * lu(k,632)
1486 309041954 : lu(k,646) = lu(k,646) - lu(k,285) * lu(k,632)
1487 309041954 : lu(k,648) = lu(k,648) - lu(k,286) * lu(k,632)
1488 309041954 : lu(k,650) = lu(k,650) - lu(k,287) * lu(k,632)
1489 309041954 : lu(k,660) = lu(k,660) - lu(k,281) * lu(k,656)
1490 309041954 : lu(k,661) = lu(k,661) - lu(k,282) * lu(k,656)
1491 309041954 : lu(k,664) = lu(k,664) - lu(k,283) * lu(k,656)
1492 309041954 : lu(k,667) = lu(k,667) - lu(k,284) * lu(k,656)
1493 309041954 : lu(k,669) = lu(k,669) - lu(k,285) * lu(k,656)
1494 309041954 : lu(k,671) = - lu(k,286) * lu(k,656)
1495 309041954 : lu(k,673) = - lu(k,287) * lu(k,656)
1496 309041954 : lu(k,681) = - lu(k,281) * lu(k,677)
1497 309041954 : lu(k,682) = lu(k,682) - lu(k,282) * lu(k,677)
1498 309041954 : lu(k,685) = - lu(k,283) * lu(k,677)
1499 309041954 : lu(k,688) = - lu(k,284) * lu(k,677)
1500 309041954 : lu(k,690) = lu(k,690) - lu(k,285) * lu(k,677)
1501 309041954 : lu(k,692) = lu(k,692) - lu(k,286) * lu(k,677)
1502 309041954 : lu(k,694) = lu(k,694) - lu(k,287) * lu(k,677)
1503 309041954 : lu(k,707) = lu(k,707) - lu(k,281) * lu(k,702)
1504 309041954 : lu(k,708) = lu(k,708) - lu(k,282) * lu(k,702)
1505 309041954 : lu(k,711) = lu(k,711) - lu(k,283) * lu(k,702)
1506 309041954 : lu(k,714) = lu(k,714) - lu(k,284) * lu(k,702)
1507 309041954 : lu(k,716) = lu(k,716) - lu(k,285) * lu(k,702)
1508 309041954 : lu(k,718) = lu(k,718) - lu(k,286) * lu(k,702)
1509 309041954 : lu(k,720) = lu(k,720) - lu(k,287) * lu(k,702)
1510 309041954 : lu(k,732) = lu(k,732) - lu(k,281) * lu(k,728)
1511 309041954 : lu(k,733) = lu(k,733) - lu(k,282) * lu(k,728)
1512 309041954 : lu(k,736) = lu(k,736) - lu(k,283) * lu(k,728)
1513 309041954 : lu(k,739) = lu(k,739) - lu(k,284) * lu(k,728)
1514 309041954 : lu(k,741) = lu(k,741) - lu(k,285) * lu(k,728)
1515 309041954 : lu(k,743) = lu(k,743) - lu(k,286) * lu(k,728)
1516 309041954 : lu(k,745) = lu(k,745) - lu(k,287) * lu(k,728)
1517 309041954 : lu(k,291) = 1._r8 / lu(k,291)
1518 309041954 : lu(k,292) = lu(k,292) * lu(k,291)
1519 309041954 : lu(k,293) = lu(k,293) * lu(k,291)
1520 309041954 : lu(k,294) = lu(k,294) * lu(k,291)
1521 309041954 : lu(k,295) = lu(k,295) * lu(k,291)
1522 309041954 : lu(k,296) = lu(k,296) * lu(k,291)
1523 309041954 : lu(k,297) = lu(k,297) * lu(k,291)
1524 309041954 : lu(k,298) = lu(k,298) * lu(k,291)
1525 309041954 : lu(k,299) = lu(k,299) * lu(k,291)
1526 309041954 : lu(k,300) = lu(k,300) * lu(k,291)
1527 309041954 : lu(k,301) = lu(k,301) * lu(k,291)
1528 309041954 : lu(k,313) = lu(k,313) - lu(k,292) * lu(k,309)
1529 309041954 : lu(k,314) = lu(k,314) - lu(k,293) * lu(k,309)
1530 309041954 : lu(k,317) = lu(k,317) - lu(k,294) * lu(k,309)
1531 309041954 : lu(k,318) = lu(k,318) - lu(k,295) * lu(k,309)
1532 309041954 : lu(k,319) = - lu(k,296) * lu(k,309)
1533 309041954 : lu(k,320) = lu(k,320) - lu(k,297) * lu(k,309)
1534 309041954 : lu(k,322) = lu(k,322) - lu(k,298) * lu(k,309)
1535 309041954 : lu(k,323) = lu(k,323) - lu(k,299) * lu(k,309)
1536 309041954 : lu(k,324) = lu(k,324) - lu(k,300) * lu(k,309)
1537 309041954 : lu(k,325) = lu(k,325) - lu(k,301) * lu(k,309)
1538 309041954 : lu(k,351) = lu(k,351) - lu(k,292) * lu(k,348)
1539 309041954 : lu(k,352) = lu(k,352) - lu(k,293) * lu(k,348)
1540 309041954 : lu(k,355) = lu(k,355) - lu(k,294) * lu(k,348)
1541 309041954 : lu(k,356) = - lu(k,295) * lu(k,348)
1542 309041954 : lu(k,357) = lu(k,357) - lu(k,296) * lu(k,348)
1543 309041954 : lu(k,358) = lu(k,358) - lu(k,297) * lu(k,348)
1544 309041954 : lu(k,360) = lu(k,360) - lu(k,298) * lu(k,348)
1545 309041954 : lu(k,362) = lu(k,362) - lu(k,299) * lu(k,348)
1546 309041954 : lu(k,363) = lu(k,363) - lu(k,300) * lu(k,348)
1547 309041954 : lu(k,364) = lu(k,364) - lu(k,301) * lu(k,348)
1548 309041954 : lu(k,376) = lu(k,376) - lu(k,292) * lu(k,372)
1549 309041954 : lu(k,377) = lu(k,377) - lu(k,293) * lu(k,372)
1550 309041954 : lu(k,380) = lu(k,380) - lu(k,294) * lu(k,372)
1551 309041954 : lu(k,381) = lu(k,381) - lu(k,295) * lu(k,372)
1552 309041954 : lu(k,382) = lu(k,382) - lu(k,296) * lu(k,372)
1553 309041954 : lu(k,383) = lu(k,383) - lu(k,297) * lu(k,372)
1554 309041954 : lu(k,385) = lu(k,385) - lu(k,298) * lu(k,372)
1555 309041954 : lu(k,387) = lu(k,387) - lu(k,299) * lu(k,372)
1556 309041954 : lu(k,388) = lu(k,388) - lu(k,300) * lu(k,372)
1557 309041954 : lu(k,389) = lu(k,389) - lu(k,301) * lu(k,372)
1558 309041954 : lu(k,419) = lu(k,419) - lu(k,292) * lu(k,415)
1559 309041954 : lu(k,420) = lu(k,420) - lu(k,293) * lu(k,415)
1560 309041954 : lu(k,423) = lu(k,423) - lu(k,294) * lu(k,415)
1561 309041954 : lu(k,424) = lu(k,424) - lu(k,295) * lu(k,415)
1562 309041954 : lu(k,425) = lu(k,425) - lu(k,296) * lu(k,415)
1563 309041954 : lu(k,426) = lu(k,426) - lu(k,297) * lu(k,415)
1564 309041954 : lu(k,428) = lu(k,428) - lu(k,298) * lu(k,415)
1565 309041954 : lu(k,430) = lu(k,430) - lu(k,299) * lu(k,415)
1566 309041954 : lu(k,431) = lu(k,431) - lu(k,300) * lu(k,415)
1567 309041954 : lu(k,432) = lu(k,432) - lu(k,301) * lu(k,415)
1568 309041954 : lu(k,447) = lu(k,447) - lu(k,292) * lu(k,443)
1569 309041954 : lu(k,448) = lu(k,448) - lu(k,293) * lu(k,443)
1570 309041954 : lu(k,451) = lu(k,451) - lu(k,294) * lu(k,443)
1571 309041954 : lu(k,452) = - lu(k,295) * lu(k,443)
1572 309041954 : lu(k,453) = lu(k,453) - lu(k,296) * lu(k,443)
1573 309041954 : lu(k,454) = lu(k,454) - lu(k,297) * lu(k,443)
1574 309041954 : lu(k,456) = lu(k,456) - lu(k,298) * lu(k,443)
1575 309041954 : lu(k,458) = lu(k,458) - lu(k,299) * lu(k,443)
1576 309041954 : lu(k,459) = lu(k,459) - lu(k,300) * lu(k,443)
1577 309041954 : lu(k,460) = lu(k,460) - lu(k,301) * lu(k,443)
1578 309041954 : lu(k,472) = lu(k,472) - lu(k,292) * lu(k,468)
1579 309041954 : lu(k,473) = lu(k,473) - lu(k,293) * lu(k,468)
1580 309041954 : lu(k,476) = lu(k,476) - lu(k,294) * lu(k,468)
1581 309041954 : lu(k,477) = - lu(k,295) * lu(k,468)
1582 309041954 : lu(k,478) = lu(k,478) - lu(k,296) * lu(k,468)
1583 309041954 : lu(k,479) = lu(k,479) - lu(k,297) * lu(k,468)
1584 309041954 : lu(k,481) = lu(k,481) - lu(k,298) * lu(k,468)
1585 309041954 : lu(k,483) = lu(k,483) - lu(k,299) * lu(k,468)
1586 309041954 : lu(k,484) = - lu(k,300) * lu(k,468)
1587 309041954 : lu(k,485) = lu(k,485) - lu(k,301) * lu(k,468)
1588 309041954 : lu(k,503) = lu(k,503) - lu(k,292) * lu(k,502)
1589 309041954 : lu(k,504) = lu(k,504) - lu(k,293) * lu(k,502)
1590 309041954 : lu(k,507) = lu(k,507) - lu(k,294) * lu(k,502)
1591 309041954 : lu(k,508) = lu(k,508) - lu(k,295) * lu(k,502)
1592 309041954 : lu(k,509) = - lu(k,296) * lu(k,502)
1593 309041954 : lu(k,510) = lu(k,510) - lu(k,297) * lu(k,502)
1594 309041954 : lu(k,512) = lu(k,512) - lu(k,298) * lu(k,502)
1595 309041954 : lu(k,514) = lu(k,514) - lu(k,299) * lu(k,502)
1596 309041954 : lu(k,515) = lu(k,515) - lu(k,300) * lu(k,502)
1597 309041954 : lu(k,516) = lu(k,516) - lu(k,301) * lu(k,502)
1598 309041954 : lu(k,528) = lu(k,528) - lu(k,292) * lu(k,524)
1599 309041954 : lu(k,529) = lu(k,529) - lu(k,293) * lu(k,524)
1600 309041954 : lu(k,532) = lu(k,532) - lu(k,294) * lu(k,524)
1601 309041954 : lu(k,533) = lu(k,533) - lu(k,295) * lu(k,524)
1602 309041954 : lu(k,534) = lu(k,534) - lu(k,296) * lu(k,524)
1603 309041954 : lu(k,535) = lu(k,535) - lu(k,297) * lu(k,524)
1604 309041954 : lu(k,537) = lu(k,537) - lu(k,298) * lu(k,524)
1605 309041954 : lu(k,539) = lu(k,539) - lu(k,299) * lu(k,524)
1606 309041954 : lu(k,540) = lu(k,540) - lu(k,300) * lu(k,524)
1607 309041954 : lu(k,541) = lu(k,541) - lu(k,301) * lu(k,524)
1608 309041954 : lu(k,550) = lu(k,550) - lu(k,292) * lu(k,546)
1609 309041954 : lu(k,551) = lu(k,551) - lu(k,293) * lu(k,546)
1610 309041954 : lu(k,554) = lu(k,554) - lu(k,294) * lu(k,546)
1611 309041954 : lu(k,555) = lu(k,555) - lu(k,295) * lu(k,546)
1612 309041954 : lu(k,556) = lu(k,556) - lu(k,296) * lu(k,546)
1613 309041954 : lu(k,557) = lu(k,557) - lu(k,297) * lu(k,546)
1614 309041954 : lu(k,559) = lu(k,559) - lu(k,298) * lu(k,546)
1615 309041954 : lu(k,561) = lu(k,561) - lu(k,299) * lu(k,546)
1616 309041954 : lu(k,562) = lu(k,562) - lu(k,300) * lu(k,546)
1617 309041954 : lu(k,563) = lu(k,563) - lu(k,301) * lu(k,546)
1618 309041954 : lu(k,572) = lu(k,572) - lu(k,292) * lu(k,570)
1619 309041954 : lu(k,573) = lu(k,573) - lu(k,293) * lu(k,570)
1620 309041954 : lu(k,576) = lu(k,576) - lu(k,294) * lu(k,570)
1621 309041954 : lu(k,577) = lu(k,577) - lu(k,295) * lu(k,570)
1622 309041954 : lu(k,578) = - lu(k,296) * lu(k,570)
1623 309041954 : lu(k,579) = lu(k,579) - lu(k,297) * lu(k,570)
1624 309041954 : lu(k,581) = lu(k,581) - lu(k,298) * lu(k,570)
1625 309041954 : lu(k,583) = lu(k,583) - lu(k,299) * lu(k,570)
1626 309041954 : lu(k,584) = lu(k,584) - lu(k,300) * lu(k,570)
1627 309041954 : lu(k,585) = lu(k,585) - lu(k,301) * lu(k,570)
1628 309041954 : lu(k,600) = lu(k,600) - lu(k,292) * lu(k,596)
1629 309041954 : lu(k,601) = lu(k,601) - lu(k,293) * lu(k,596)
1630 309041954 : lu(k,604) = lu(k,604) - lu(k,294) * lu(k,596)
1631 309041954 : lu(k,605) = lu(k,605) - lu(k,295) * lu(k,596)
1632 309041954 : lu(k,606) = - lu(k,296) * lu(k,596)
1633 309041954 : lu(k,607) = lu(k,607) - lu(k,297) * lu(k,596)
1634 309041954 : lu(k,609) = lu(k,609) - lu(k,298) * lu(k,596)
1635 309041954 : lu(k,611) = lu(k,611) - lu(k,299) * lu(k,596)
1636 309041954 : lu(k,612) = lu(k,612) - lu(k,300) * lu(k,596)
1637 309041954 : lu(k,613) = lu(k,613) - lu(k,301) * lu(k,596)
1638 309041954 : lu(k,637) = lu(k,637) - lu(k,292) * lu(k,633)
1639 309041954 : lu(k,638) = lu(k,638) - lu(k,293) * lu(k,633)
1640 309041954 : lu(k,641) = lu(k,641) - lu(k,294) * lu(k,633)
1641 309041954 : lu(k,642) = lu(k,642) - lu(k,295) * lu(k,633)
1642 309041954 : lu(k,643) = lu(k,643) - lu(k,296) * lu(k,633)
1643 309041954 : lu(k,644) = lu(k,644) - lu(k,297) * lu(k,633)
1644 309041954 : lu(k,646) = lu(k,646) - lu(k,298) * lu(k,633)
1645 309041954 : lu(k,648) = lu(k,648) - lu(k,299) * lu(k,633)
1646 309041954 : lu(k,649) = lu(k,649) - lu(k,300) * lu(k,633)
1647 309041954 : lu(k,650) = lu(k,650) - lu(k,301) * lu(k,633)
1648 309041954 : lu(k,660) = lu(k,660) - lu(k,292) * lu(k,657)
1649 309041954 : lu(k,661) = lu(k,661) - lu(k,293) * lu(k,657)
1650 309041954 : lu(k,664) = lu(k,664) - lu(k,294) * lu(k,657)
1651 309041954 : lu(k,665) = lu(k,665) - lu(k,295) * lu(k,657)
1652 309041954 : lu(k,666) = lu(k,666) - lu(k,296) * lu(k,657)
1653 309041954 : lu(k,667) = lu(k,667) - lu(k,297) * lu(k,657)
1654 309041954 : lu(k,669) = lu(k,669) - lu(k,298) * lu(k,657)
1655 309041954 : lu(k,671) = lu(k,671) - lu(k,299) * lu(k,657)
1656 309041954 : lu(k,672) = lu(k,672) - lu(k,300) * lu(k,657)
1657 309041954 : lu(k,673) = lu(k,673) - lu(k,301) * lu(k,657)
1658 309041954 : lu(k,707) = lu(k,707) - lu(k,292) * lu(k,703)
1659 309041954 : lu(k,708) = lu(k,708) - lu(k,293) * lu(k,703)
1660 309041954 : lu(k,711) = lu(k,711) - lu(k,294) * lu(k,703)
1661 309041954 : lu(k,712) = - lu(k,295) * lu(k,703)
1662 309041954 : lu(k,713) = - lu(k,296) * lu(k,703)
1663 309041954 : lu(k,714) = lu(k,714) - lu(k,297) * lu(k,703)
1664 309041954 : lu(k,716) = lu(k,716) - lu(k,298) * lu(k,703)
1665 309041954 : lu(k,718) = lu(k,718) - lu(k,299) * lu(k,703)
1666 309041954 : lu(k,719) = lu(k,719) - lu(k,300) * lu(k,703)
1667 309041954 : lu(k,720) = lu(k,720) - lu(k,301) * lu(k,703)
1668 309041954 : lu(k,732) = lu(k,732) - lu(k,292) * lu(k,729)
1669 309041954 : lu(k,733) = lu(k,733) - lu(k,293) * lu(k,729)
1670 309041954 : lu(k,736) = lu(k,736) - lu(k,294) * lu(k,729)
1671 309041954 : lu(k,737) = lu(k,737) - lu(k,295) * lu(k,729)
1672 309041954 : lu(k,738) = - lu(k,296) * lu(k,729)
1673 309041954 : lu(k,739) = lu(k,739) - lu(k,297) * lu(k,729)
1674 309041954 : lu(k,741) = lu(k,741) - lu(k,298) * lu(k,729)
1675 309041954 : lu(k,743) = lu(k,743) - lu(k,299) * lu(k,729)
1676 309041954 : lu(k,744) = lu(k,744) - lu(k,300) * lu(k,729)
1677 309041954 : lu(k,745) = lu(k,745) - lu(k,301) * lu(k,729)
1678 309041954 : lu(k,310) = 1._r8 / lu(k,310)
1679 309041954 : lu(k,311) = lu(k,311) * lu(k,310)
1680 309041954 : lu(k,312) = lu(k,312) * lu(k,310)
1681 309041954 : lu(k,313) = lu(k,313) * lu(k,310)
1682 309041954 : lu(k,314) = lu(k,314) * lu(k,310)
1683 309041954 : lu(k,315) = lu(k,315) * lu(k,310)
1684 309041954 : lu(k,316) = lu(k,316) * lu(k,310)
1685 309041954 : lu(k,317) = lu(k,317) * lu(k,310)
1686 309041954 : lu(k,318) = lu(k,318) * lu(k,310)
1687 309041954 : lu(k,319) = lu(k,319) * lu(k,310)
1688 309041954 : lu(k,320) = lu(k,320) * lu(k,310)
1689 309041954 : lu(k,321) = lu(k,321) * lu(k,310)
1690 309041954 : lu(k,322) = lu(k,322) * lu(k,310)
1691 309041954 : lu(k,323) = lu(k,323) * lu(k,310)
1692 309041954 : lu(k,324) = lu(k,324) * lu(k,310)
1693 309041954 : lu(k,325) = lu(k,325) * lu(k,310)
1694 309041954 : lu(k,374) = lu(k,374) - lu(k,311) * lu(k,373)
1695 309041954 : lu(k,375) = lu(k,375) - lu(k,312) * lu(k,373)
1696 309041954 : lu(k,376) = lu(k,376) - lu(k,313) * lu(k,373)
1697 309041954 : lu(k,377) = lu(k,377) - lu(k,314) * lu(k,373)
1698 309041954 : lu(k,378) = lu(k,378) - lu(k,315) * lu(k,373)
1699 309041954 : lu(k,379) = lu(k,379) - lu(k,316) * lu(k,373)
1700 309041954 : lu(k,380) = lu(k,380) - lu(k,317) * lu(k,373)
1701 309041954 : lu(k,381) = lu(k,381) - lu(k,318) * lu(k,373)
1702 309041954 : lu(k,382) = lu(k,382) - lu(k,319) * lu(k,373)
1703 309041954 : lu(k,383) = lu(k,383) - lu(k,320) * lu(k,373)
1704 309041954 : lu(k,384) = lu(k,384) - lu(k,321) * lu(k,373)
1705 309041954 : lu(k,385) = lu(k,385) - lu(k,322) * lu(k,373)
1706 309041954 : lu(k,387) = lu(k,387) - lu(k,323) * lu(k,373)
1707 309041954 : lu(k,388) = lu(k,388) - lu(k,324) * lu(k,373)
1708 309041954 : lu(k,389) = lu(k,389) - lu(k,325) * lu(k,373)
1709 309041954 : lu(k,417) = lu(k,417) - lu(k,311) * lu(k,416)
1710 309041954 : lu(k,418) = lu(k,418) - lu(k,312) * lu(k,416)
1711 309041954 : lu(k,419) = lu(k,419) - lu(k,313) * lu(k,416)
1712 309041954 : lu(k,420) = lu(k,420) - lu(k,314) * lu(k,416)
1713 309041954 : lu(k,421) = lu(k,421) - lu(k,315) * lu(k,416)
1714 309041954 : lu(k,422) = lu(k,422) - lu(k,316) * lu(k,416)
1715 309041954 : lu(k,423) = lu(k,423) - lu(k,317) * lu(k,416)
1716 309041954 : lu(k,424) = lu(k,424) - lu(k,318) * lu(k,416)
1717 309041954 : lu(k,425) = lu(k,425) - lu(k,319) * lu(k,416)
1718 309041954 : lu(k,426) = lu(k,426) - lu(k,320) * lu(k,416)
1719 309041954 : lu(k,427) = lu(k,427) - lu(k,321) * lu(k,416)
1720 309041954 : lu(k,428) = lu(k,428) - lu(k,322) * lu(k,416)
1721 309041954 : lu(k,430) = lu(k,430) - lu(k,323) * lu(k,416)
1722 309041954 : lu(k,431) = lu(k,431) - lu(k,324) * lu(k,416)
1723 309041954 : lu(k,432) = lu(k,432) - lu(k,325) * lu(k,416)
1724 309041954 : lu(k,445) = lu(k,445) - lu(k,311) * lu(k,444)
1725 309041954 : lu(k,446) = lu(k,446) - lu(k,312) * lu(k,444)
1726 309041954 : lu(k,447) = lu(k,447) - lu(k,313) * lu(k,444)
1727 309041954 : lu(k,448) = lu(k,448) - lu(k,314) * lu(k,444)
1728 309041954 : lu(k,449) = lu(k,449) - lu(k,315) * lu(k,444)
1729 309041954 : lu(k,450) = lu(k,450) - lu(k,316) * lu(k,444)
1730 309041954 : lu(k,451) = lu(k,451) - lu(k,317) * lu(k,444)
1731 309041954 : lu(k,452) = lu(k,452) - lu(k,318) * lu(k,444)
1732 309041954 : lu(k,453) = lu(k,453) - lu(k,319) * lu(k,444)
1733 309041954 : lu(k,454) = lu(k,454) - lu(k,320) * lu(k,444)
1734 309041954 : lu(k,455) = lu(k,455) - lu(k,321) * lu(k,444)
1735 309041954 : lu(k,456) = lu(k,456) - lu(k,322) * lu(k,444)
1736 309041954 : lu(k,458) = lu(k,458) - lu(k,323) * lu(k,444)
1737 309041954 : lu(k,459) = lu(k,459) - lu(k,324) * lu(k,444)
1738 309041954 : lu(k,460) = lu(k,460) - lu(k,325) * lu(k,444)
1739 309041954 : lu(k,470) = lu(k,470) - lu(k,311) * lu(k,469)
1740 309041954 : lu(k,471) = lu(k,471) - lu(k,312) * lu(k,469)
1741 309041954 : lu(k,472) = lu(k,472) - lu(k,313) * lu(k,469)
1742 309041954 : lu(k,473) = lu(k,473) - lu(k,314) * lu(k,469)
1743 309041954 : lu(k,474) = lu(k,474) - lu(k,315) * lu(k,469)
1744 309041954 : lu(k,475) = lu(k,475) - lu(k,316) * lu(k,469)
1745 309041954 : lu(k,476) = lu(k,476) - lu(k,317) * lu(k,469)
1746 309041954 : lu(k,477) = lu(k,477) - lu(k,318) * lu(k,469)
1747 309041954 : lu(k,478) = lu(k,478) - lu(k,319) * lu(k,469)
1748 309041954 : lu(k,479) = lu(k,479) - lu(k,320) * lu(k,469)
1749 309041954 : lu(k,480) = lu(k,480) - lu(k,321) * lu(k,469)
1750 309041954 : lu(k,481) = lu(k,481) - lu(k,322) * lu(k,469)
1751 309041954 : lu(k,483) = lu(k,483) - lu(k,323) * lu(k,469)
1752 309041954 : lu(k,484) = lu(k,484) - lu(k,324) * lu(k,469)
1753 309041954 : lu(k,485) = lu(k,485) - lu(k,325) * lu(k,469)
1754 309041954 : lu(k,526) = lu(k,526) - lu(k,311) * lu(k,525)
1755 309041954 : lu(k,527) = lu(k,527) - lu(k,312) * lu(k,525)
1756 309041954 : lu(k,528) = lu(k,528) - lu(k,313) * lu(k,525)
1757 309041954 : lu(k,529) = lu(k,529) - lu(k,314) * lu(k,525)
1758 309041954 : lu(k,530) = lu(k,530) - lu(k,315) * lu(k,525)
1759 309041954 : lu(k,531) = lu(k,531) - lu(k,316) * lu(k,525)
1760 309041954 : lu(k,532) = lu(k,532) - lu(k,317) * lu(k,525)
1761 309041954 : lu(k,533) = lu(k,533) - lu(k,318) * lu(k,525)
1762 309041954 : lu(k,534) = lu(k,534) - lu(k,319) * lu(k,525)
1763 309041954 : lu(k,535) = lu(k,535) - lu(k,320) * lu(k,525)
1764 309041954 : lu(k,536) = lu(k,536) - lu(k,321) * lu(k,525)
1765 309041954 : lu(k,537) = lu(k,537) - lu(k,322) * lu(k,525)
1766 309041954 : lu(k,539) = lu(k,539) - lu(k,323) * lu(k,525)
1767 309041954 : lu(k,540) = lu(k,540) - lu(k,324) * lu(k,525)
1768 309041954 : lu(k,541) = lu(k,541) - lu(k,325) * lu(k,525)
1769 309041954 : lu(k,548) = lu(k,548) - lu(k,311) * lu(k,547)
1770 309041954 : lu(k,549) = lu(k,549) - lu(k,312) * lu(k,547)
1771 309041954 : lu(k,550) = lu(k,550) - lu(k,313) * lu(k,547)
1772 309041954 : lu(k,551) = lu(k,551) - lu(k,314) * lu(k,547)
1773 309041954 : lu(k,552) = - lu(k,315) * lu(k,547)
1774 309041954 : lu(k,553) = lu(k,553) - lu(k,316) * lu(k,547)
1775 309041954 : lu(k,554) = lu(k,554) - lu(k,317) * lu(k,547)
1776 309041954 : lu(k,555) = lu(k,555) - lu(k,318) * lu(k,547)
1777 309041954 : lu(k,556) = lu(k,556) - lu(k,319) * lu(k,547)
1778 309041954 : lu(k,557) = lu(k,557) - lu(k,320) * lu(k,547)
1779 309041954 : lu(k,558) = lu(k,558) - lu(k,321) * lu(k,547)
1780 309041954 : lu(k,559) = lu(k,559) - lu(k,322) * lu(k,547)
1781 309041954 : lu(k,561) = lu(k,561) - lu(k,323) * lu(k,547)
1782 309041954 : lu(k,562) = lu(k,562) - lu(k,324) * lu(k,547)
1783 309041954 : lu(k,563) = lu(k,563) - lu(k,325) * lu(k,547)
1784 309041954 : lu(k,598) = lu(k,598) - lu(k,311) * lu(k,597)
1785 309041954 : lu(k,599) = lu(k,599) - lu(k,312) * lu(k,597)
1786 309041954 : lu(k,600) = lu(k,600) - lu(k,313) * lu(k,597)
1787 309041954 : lu(k,601) = lu(k,601) - lu(k,314) * lu(k,597)
1788 309041954 : lu(k,602) = lu(k,602) - lu(k,315) * lu(k,597)
1789 309041954 : lu(k,603) = lu(k,603) - lu(k,316) * lu(k,597)
1790 309041954 : lu(k,604) = lu(k,604) - lu(k,317) * lu(k,597)
1791 309041954 : lu(k,605) = lu(k,605) - lu(k,318) * lu(k,597)
1792 309041954 : lu(k,606) = lu(k,606) - lu(k,319) * lu(k,597)
1793 309041954 : lu(k,607) = lu(k,607) - lu(k,320) * lu(k,597)
1794 309041954 : lu(k,608) = lu(k,608) - lu(k,321) * lu(k,597)
1795 309041954 : lu(k,609) = lu(k,609) - lu(k,322) * lu(k,597)
1796 309041954 : lu(k,611) = lu(k,611) - lu(k,323) * lu(k,597)
1797 309041954 : lu(k,612) = lu(k,612) - lu(k,324) * lu(k,597)
1798 309041954 : lu(k,613) = lu(k,613) - lu(k,325) * lu(k,597)
1799 309041954 : lu(k,635) = lu(k,635) - lu(k,311) * lu(k,634)
1800 309041954 : lu(k,636) = lu(k,636) - lu(k,312) * lu(k,634)
1801 309041954 : lu(k,637) = lu(k,637) - lu(k,313) * lu(k,634)
1802 309041954 : lu(k,638) = lu(k,638) - lu(k,314) * lu(k,634)
1803 309041954 : lu(k,639) = lu(k,639) - lu(k,315) * lu(k,634)
1804 309041954 : lu(k,640) = lu(k,640) - lu(k,316) * lu(k,634)
1805 309041954 : lu(k,641) = lu(k,641) - lu(k,317) * lu(k,634)
1806 309041954 : lu(k,642) = lu(k,642) - lu(k,318) * lu(k,634)
1807 309041954 : lu(k,643) = lu(k,643) - lu(k,319) * lu(k,634)
1808 309041954 : lu(k,644) = lu(k,644) - lu(k,320) * lu(k,634)
1809 309041954 : lu(k,645) = lu(k,645) - lu(k,321) * lu(k,634)
1810 309041954 : lu(k,646) = lu(k,646) - lu(k,322) * lu(k,634)
1811 309041954 : lu(k,648) = lu(k,648) - lu(k,323) * lu(k,634)
1812 309041954 : lu(k,649) = lu(k,649) - lu(k,324) * lu(k,634)
1813 309041954 : lu(k,650) = lu(k,650) - lu(k,325) * lu(k,634)
1814 309041954 : lu(k,679) = lu(k,679) - lu(k,311) * lu(k,678)
1815 309041954 : lu(k,680) = lu(k,680) - lu(k,312) * lu(k,678)
1816 309041954 : lu(k,681) = lu(k,681) - lu(k,313) * lu(k,678)
1817 309041954 : lu(k,682) = lu(k,682) - lu(k,314) * lu(k,678)
1818 309041954 : lu(k,683) = - lu(k,315) * lu(k,678)
1819 309041954 : lu(k,684) = lu(k,684) - lu(k,316) * lu(k,678)
1820 309041954 : lu(k,685) = lu(k,685) - lu(k,317) * lu(k,678)
1821 309041954 : lu(k,686) = lu(k,686) - lu(k,318) * lu(k,678)
1822 309041954 : lu(k,687) = - lu(k,319) * lu(k,678)
1823 309041954 : lu(k,688) = lu(k,688) - lu(k,320) * lu(k,678)
1824 309041954 : lu(k,689) = lu(k,689) - lu(k,321) * lu(k,678)
1825 309041954 : lu(k,690) = lu(k,690) - lu(k,322) * lu(k,678)
1826 309041954 : lu(k,692) = lu(k,692) - lu(k,323) * lu(k,678)
1827 309041954 : lu(k,693) = - lu(k,324) * lu(k,678)
1828 309041954 : lu(k,694) = lu(k,694) - lu(k,325) * lu(k,678)
1829 309041954 : lu(k,705) = lu(k,705) - lu(k,311) * lu(k,704)
1830 309041954 : lu(k,706) = lu(k,706) - lu(k,312) * lu(k,704)
1831 309041954 : lu(k,707) = lu(k,707) - lu(k,313) * lu(k,704)
1832 309041954 : lu(k,708) = lu(k,708) - lu(k,314) * lu(k,704)
1833 309041954 : lu(k,709) = lu(k,709) - lu(k,315) * lu(k,704)
1834 309041954 : lu(k,710) = lu(k,710) - lu(k,316) * lu(k,704)
1835 309041954 : lu(k,711) = lu(k,711) - lu(k,317) * lu(k,704)
1836 309041954 : lu(k,712) = lu(k,712) - lu(k,318) * lu(k,704)
1837 309041954 : lu(k,713) = lu(k,713) - lu(k,319) * lu(k,704)
1838 309041954 : lu(k,714) = lu(k,714) - lu(k,320) * lu(k,704)
1839 309041954 : lu(k,715) = lu(k,715) - lu(k,321) * lu(k,704)
1840 309041954 : lu(k,716) = lu(k,716) - lu(k,322) * lu(k,704)
1841 309041954 : lu(k,718) = lu(k,718) - lu(k,323) * lu(k,704)
1842 309041954 : lu(k,719) = lu(k,719) - lu(k,324) * lu(k,704)
1843 318792954 : lu(k,720) = lu(k,720) - lu(k,325) * lu(k,704)
1844 : end do
1845 9751000 : end subroutine lu_fac07
1846 9751000 : subroutine lu_fac08( avec_len, lu )
1847 : use chem_mods, only : nzcnt
1848 : use shr_kind_mod, only : r8 => shr_kind_r8
1849 : implicit none
1850 : !-----------------------------------------------------------------------
1851 : ! ... dummy args
1852 : !-----------------------------------------------------------------------
1853 : integer, intent(in) :: avec_len
1854 : real(r8), intent(inout) :: lu(veclen,nzcnt)
1855 : !-----------------------------------------------------------------------
1856 : ! ... local variables
1857 : !-----------------------------------------------------------------------
1858 : integer :: k
1859 318792954 : do k = 1,avec_len
1860 309041954 : lu(k,328) = 1._r8 / lu(k,328)
1861 309041954 : lu(k,329) = lu(k,329) * lu(k,328)
1862 309041954 : lu(k,330) = lu(k,330) * lu(k,328)
1863 309041954 : lu(k,331) = lu(k,331) * lu(k,328)
1864 309041954 : lu(k,332) = lu(k,332) * lu(k,328)
1865 309041954 : lu(k,333) = lu(k,333) * lu(k,328)
1866 309041954 : lu(k,334) = lu(k,334) * lu(k,328)
1867 309041954 : lu(k,335) = lu(k,335) * lu(k,328)
1868 309041954 : lu(k,336) = lu(k,336) * lu(k,328)
1869 309041954 : lu(k,337) = lu(k,337) * lu(k,328)
1870 309041954 : lu(k,338) = lu(k,338) * lu(k,328)
1871 309041954 : lu(k,339) = lu(k,339) * lu(k,328)
1872 309041954 : lu(k,340) = lu(k,340) * lu(k,328)
1873 309041954 : lu(k,351) = lu(k,351) - lu(k,329) * lu(k,349)
1874 309041954 : lu(k,352) = lu(k,352) - lu(k,330) * lu(k,349)
1875 309041954 : lu(k,353) = lu(k,353) - lu(k,331) * lu(k,349)
1876 309041954 : lu(k,354) = lu(k,354) - lu(k,332) * lu(k,349)
1877 309041954 : lu(k,355) = lu(k,355) - lu(k,333) * lu(k,349)
1878 309041954 : lu(k,357) = lu(k,357) - lu(k,334) * lu(k,349)
1879 309041954 : lu(k,358) = lu(k,358) - lu(k,335) * lu(k,349)
1880 309041954 : lu(k,359) = lu(k,359) - lu(k,336) * lu(k,349)
1881 309041954 : lu(k,360) = lu(k,360) - lu(k,337) * lu(k,349)
1882 309041954 : lu(k,361) = lu(k,361) - lu(k,338) * lu(k,349)
1883 309041954 : lu(k,362) = lu(k,362) - lu(k,339) * lu(k,349)
1884 309041954 : lu(k,364) = lu(k,364) - lu(k,340) * lu(k,349)
1885 309041954 : lu(k,376) = lu(k,376) - lu(k,329) * lu(k,374)
1886 309041954 : lu(k,377) = lu(k,377) - lu(k,330) * lu(k,374)
1887 309041954 : lu(k,378) = lu(k,378) - lu(k,331) * lu(k,374)
1888 309041954 : lu(k,379) = lu(k,379) - lu(k,332) * lu(k,374)
1889 309041954 : lu(k,380) = lu(k,380) - lu(k,333) * lu(k,374)
1890 309041954 : lu(k,382) = lu(k,382) - lu(k,334) * lu(k,374)
1891 309041954 : lu(k,383) = lu(k,383) - lu(k,335) * lu(k,374)
1892 309041954 : lu(k,384) = lu(k,384) - lu(k,336) * lu(k,374)
1893 309041954 : lu(k,385) = lu(k,385) - lu(k,337) * lu(k,374)
1894 309041954 : lu(k,386) = lu(k,386) - lu(k,338) * lu(k,374)
1895 309041954 : lu(k,387) = lu(k,387) - lu(k,339) * lu(k,374)
1896 309041954 : lu(k,389) = lu(k,389) - lu(k,340) * lu(k,374)
1897 309041954 : lu(k,419) = lu(k,419) - lu(k,329) * lu(k,417)
1898 309041954 : lu(k,420) = lu(k,420) - lu(k,330) * lu(k,417)
1899 309041954 : lu(k,421) = lu(k,421) - lu(k,331) * lu(k,417)
1900 309041954 : lu(k,422) = lu(k,422) - lu(k,332) * lu(k,417)
1901 309041954 : lu(k,423) = lu(k,423) - lu(k,333) * lu(k,417)
1902 309041954 : lu(k,425) = lu(k,425) - lu(k,334) * lu(k,417)
1903 309041954 : lu(k,426) = lu(k,426) - lu(k,335) * lu(k,417)
1904 309041954 : lu(k,427) = lu(k,427) - lu(k,336) * lu(k,417)
1905 309041954 : lu(k,428) = lu(k,428) - lu(k,337) * lu(k,417)
1906 309041954 : lu(k,429) = lu(k,429) - lu(k,338) * lu(k,417)
1907 309041954 : lu(k,430) = lu(k,430) - lu(k,339) * lu(k,417)
1908 309041954 : lu(k,432) = lu(k,432) - lu(k,340) * lu(k,417)
1909 309041954 : lu(k,447) = lu(k,447) - lu(k,329) * lu(k,445)
1910 309041954 : lu(k,448) = lu(k,448) - lu(k,330) * lu(k,445)
1911 309041954 : lu(k,449) = lu(k,449) - lu(k,331) * lu(k,445)
1912 309041954 : lu(k,450) = lu(k,450) - lu(k,332) * lu(k,445)
1913 309041954 : lu(k,451) = lu(k,451) - lu(k,333) * lu(k,445)
1914 309041954 : lu(k,453) = lu(k,453) - lu(k,334) * lu(k,445)
1915 309041954 : lu(k,454) = lu(k,454) - lu(k,335) * lu(k,445)
1916 309041954 : lu(k,455) = lu(k,455) - lu(k,336) * lu(k,445)
1917 309041954 : lu(k,456) = lu(k,456) - lu(k,337) * lu(k,445)
1918 309041954 : lu(k,457) = lu(k,457) - lu(k,338) * lu(k,445)
1919 309041954 : lu(k,458) = lu(k,458) - lu(k,339) * lu(k,445)
1920 309041954 : lu(k,460) = lu(k,460) - lu(k,340) * lu(k,445)
1921 309041954 : lu(k,472) = lu(k,472) - lu(k,329) * lu(k,470)
1922 309041954 : lu(k,473) = lu(k,473) - lu(k,330) * lu(k,470)
1923 309041954 : lu(k,474) = lu(k,474) - lu(k,331) * lu(k,470)
1924 309041954 : lu(k,475) = lu(k,475) - lu(k,332) * lu(k,470)
1925 309041954 : lu(k,476) = lu(k,476) - lu(k,333) * lu(k,470)
1926 309041954 : lu(k,478) = lu(k,478) - lu(k,334) * lu(k,470)
1927 309041954 : lu(k,479) = lu(k,479) - lu(k,335) * lu(k,470)
1928 309041954 : lu(k,480) = lu(k,480) - lu(k,336) * lu(k,470)
1929 309041954 : lu(k,481) = lu(k,481) - lu(k,337) * lu(k,470)
1930 309041954 : lu(k,482) = - lu(k,338) * lu(k,470)
1931 309041954 : lu(k,483) = lu(k,483) - lu(k,339) * lu(k,470)
1932 309041954 : lu(k,485) = lu(k,485) - lu(k,340) * lu(k,470)
1933 309041954 : lu(k,528) = lu(k,528) - lu(k,329) * lu(k,526)
1934 309041954 : lu(k,529) = lu(k,529) - lu(k,330) * lu(k,526)
1935 309041954 : lu(k,530) = lu(k,530) - lu(k,331) * lu(k,526)
1936 309041954 : lu(k,531) = lu(k,531) - lu(k,332) * lu(k,526)
1937 309041954 : lu(k,532) = lu(k,532) - lu(k,333) * lu(k,526)
1938 309041954 : lu(k,534) = lu(k,534) - lu(k,334) * lu(k,526)
1939 309041954 : lu(k,535) = lu(k,535) - lu(k,335) * lu(k,526)
1940 309041954 : lu(k,536) = lu(k,536) - lu(k,336) * lu(k,526)
1941 309041954 : lu(k,537) = lu(k,537) - lu(k,337) * lu(k,526)
1942 309041954 : lu(k,538) = lu(k,538) - lu(k,338) * lu(k,526)
1943 309041954 : lu(k,539) = lu(k,539) - lu(k,339) * lu(k,526)
1944 309041954 : lu(k,541) = lu(k,541) - lu(k,340) * lu(k,526)
1945 309041954 : lu(k,550) = lu(k,550) - lu(k,329) * lu(k,548)
1946 309041954 : lu(k,551) = lu(k,551) - lu(k,330) * lu(k,548)
1947 309041954 : lu(k,552) = lu(k,552) - lu(k,331) * lu(k,548)
1948 309041954 : lu(k,553) = lu(k,553) - lu(k,332) * lu(k,548)
1949 309041954 : lu(k,554) = lu(k,554) - lu(k,333) * lu(k,548)
1950 309041954 : lu(k,556) = lu(k,556) - lu(k,334) * lu(k,548)
1951 309041954 : lu(k,557) = lu(k,557) - lu(k,335) * lu(k,548)
1952 309041954 : lu(k,558) = lu(k,558) - lu(k,336) * lu(k,548)
1953 309041954 : lu(k,559) = lu(k,559) - lu(k,337) * lu(k,548)
1954 309041954 : lu(k,560) = - lu(k,338) * lu(k,548)
1955 309041954 : lu(k,561) = lu(k,561) - lu(k,339) * lu(k,548)
1956 309041954 : lu(k,563) = lu(k,563) - lu(k,340) * lu(k,548)
1957 309041954 : lu(k,600) = lu(k,600) - lu(k,329) * lu(k,598)
1958 309041954 : lu(k,601) = lu(k,601) - lu(k,330) * lu(k,598)
1959 309041954 : lu(k,602) = lu(k,602) - lu(k,331) * lu(k,598)
1960 309041954 : lu(k,603) = lu(k,603) - lu(k,332) * lu(k,598)
1961 309041954 : lu(k,604) = lu(k,604) - lu(k,333) * lu(k,598)
1962 309041954 : lu(k,606) = lu(k,606) - lu(k,334) * lu(k,598)
1963 309041954 : lu(k,607) = lu(k,607) - lu(k,335) * lu(k,598)
1964 309041954 : lu(k,608) = lu(k,608) - lu(k,336) * lu(k,598)
1965 309041954 : lu(k,609) = lu(k,609) - lu(k,337) * lu(k,598)
1966 309041954 : lu(k,610) = lu(k,610) - lu(k,338) * lu(k,598)
1967 309041954 : lu(k,611) = lu(k,611) - lu(k,339) * lu(k,598)
1968 309041954 : lu(k,613) = lu(k,613) - lu(k,340) * lu(k,598)
1969 309041954 : lu(k,637) = lu(k,637) - lu(k,329) * lu(k,635)
1970 309041954 : lu(k,638) = lu(k,638) - lu(k,330) * lu(k,635)
1971 309041954 : lu(k,639) = lu(k,639) - lu(k,331) * lu(k,635)
1972 309041954 : lu(k,640) = lu(k,640) - lu(k,332) * lu(k,635)
1973 309041954 : lu(k,641) = lu(k,641) - lu(k,333) * lu(k,635)
1974 309041954 : lu(k,643) = lu(k,643) - lu(k,334) * lu(k,635)
1975 309041954 : lu(k,644) = lu(k,644) - lu(k,335) * lu(k,635)
1976 309041954 : lu(k,645) = lu(k,645) - lu(k,336) * lu(k,635)
1977 309041954 : lu(k,646) = lu(k,646) - lu(k,337) * lu(k,635)
1978 309041954 : lu(k,647) = lu(k,647) - lu(k,338) * lu(k,635)
1979 309041954 : lu(k,648) = lu(k,648) - lu(k,339) * lu(k,635)
1980 309041954 : lu(k,650) = lu(k,650) - lu(k,340) * lu(k,635)
1981 309041954 : lu(k,660) = lu(k,660) - lu(k,329) * lu(k,658)
1982 309041954 : lu(k,661) = lu(k,661) - lu(k,330) * lu(k,658)
1983 309041954 : lu(k,662) = lu(k,662) - lu(k,331) * lu(k,658)
1984 309041954 : lu(k,663) = lu(k,663) - lu(k,332) * lu(k,658)
1985 309041954 : lu(k,664) = lu(k,664) - lu(k,333) * lu(k,658)
1986 309041954 : lu(k,666) = lu(k,666) - lu(k,334) * lu(k,658)
1987 309041954 : lu(k,667) = lu(k,667) - lu(k,335) * lu(k,658)
1988 309041954 : lu(k,668) = lu(k,668) - lu(k,336) * lu(k,658)
1989 309041954 : lu(k,669) = lu(k,669) - lu(k,337) * lu(k,658)
1990 309041954 : lu(k,670) = lu(k,670) - lu(k,338) * lu(k,658)
1991 309041954 : lu(k,671) = lu(k,671) - lu(k,339) * lu(k,658)
1992 309041954 : lu(k,673) = lu(k,673) - lu(k,340) * lu(k,658)
1993 309041954 : lu(k,681) = lu(k,681) - lu(k,329) * lu(k,679)
1994 309041954 : lu(k,682) = lu(k,682) - lu(k,330) * lu(k,679)
1995 309041954 : lu(k,683) = lu(k,683) - lu(k,331) * lu(k,679)
1996 309041954 : lu(k,684) = lu(k,684) - lu(k,332) * lu(k,679)
1997 309041954 : lu(k,685) = lu(k,685) - lu(k,333) * lu(k,679)
1998 309041954 : lu(k,687) = lu(k,687) - lu(k,334) * lu(k,679)
1999 309041954 : lu(k,688) = lu(k,688) - lu(k,335) * lu(k,679)
2000 309041954 : lu(k,689) = lu(k,689) - lu(k,336) * lu(k,679)
2001 309041954 : lu(k,690) = lu(k,690) - lu(k,337) * lu(k,679)
2002 309041954 : lu(k,691) = - lu(k,338) * lu(k,679)
2003 309041954 : lu(k,692) = lu(k,692) - lu(k,339) * lu(k,679)
2004 309041954 : lu(k,694) = lu(k,694) - lu(k,340) * lu(k,679)
2005 309041954 : lu(k,707) = lu(k,707) - lu(k,329) * lu(k,705)
2006 309041954 : lu(k,708) = lu(k,708) - lu(k,330) * lu(k,705)
2007 309041954 : lu(k,709) = lu(k,709) - lu(k,331) * lu(k,705)
2008 309041954 : lu(k,710) = lu(k,710) - lu(k,332) * lu(k,705)
2009 309041954 : lu(k,711) = lu(k,711) - lu(k,333) * lu(k,705)
2010 309041954 : lu(k,713) = lu(k,713) - lu(k,334) * lu(k,705)
2011 309041954 : lu(k,714) = lu(k,714) - lu(k,335) * lu(k,705)
2012 309041954 : lu(k,715) = lu(k,715) - lu(k,336) * lu(k,705)
2013 309041954 : lu(k,716) = lu(k,716) - lu(k,337) * lu(k,705)
2014 309041954 : lu(k,717) = lu(k,717) - lu(k,338) * lu(k,705)
2015 309041954 : lu(k,718) = lu(k,718) - lu(k,339) * lu(k,705)
2016 309041954 : lu(k,720) = lu(k,720) - lu(k,340) * lu(k,705)
2017 309041954 : lu(k,732) = lu(k,732) - lu(k,329) * lu(k,730)
2018 309041954 : lu(k,733) = lu(k,733) - lu(k,330) * lu(k,730)
2019 309041954 : lu(k,734) = lu(k,734) - lu(k,331) * lu(k,730)
2020 309041954 : lu(k,735) = lu(k,735) - lu(k,332) * lu(k,730)
2021 309041954 : lu(k,736) = lu(k,736) - lu(k,333) * lu(k,730)
2022 309041954 : lu(k,738) = lu(k,738) - lu(k,334) * lu(k,730)
2023 309041954 : lu(k,739) = lu(k,739) - lu(k,335) * lu(k,730)
2024 309041954 : lu(k,740) = lu(k,740) - lu(k,336) * lu(k,730)
2025 309041954 : lu(k,741) = lu(k,741) - lu(k,337) * lu(k,730)
2026 309041954 : lu(k,742) = lu(k,742) - lu(k,338) * lu(k,730)
2027 309041954 : lu(k,743) = lu(k,743) - lu(k,339) * lu(k,730)
2028 309041954 : lu(k,745) = lu(k,745) - lu(k,340) * lu(k,730)
2029 309041954 : lu(k,350) = 1._r8 / lu(k,350)
2030 309041954 : lu(k,351) = lu(k,351) * lu(k,350)
2031 309041954 : lu(k,352) = lu(k,352) * lu(k,350)
2032 309041954 : lu(k,353) = lu(k,353) * lu(k,350)
2033 309041954 : lu(k,354) = lu(k,354) * lu(k,350)
2034 309041954 : lu(k,355) = lu(k,355) * lu(k,350)
2035 309041954 : lu(k,356) = lu(k,356) * lu(k,350)
2036 309041954 : lu(k,357) = lu(k,357) * lu(k,350)
2037 309041954 : lu(k,358) = lu(k,358) * lu(k,350)
2038 309041954 : lu(k,359) = lu(k,359) * lu(k,350)
2039 309041954 : lu(k,360) = lu(k,360) * lu(k,350)
2040 309041954 : lu(k,361) = lu(k,361) * lu(k,350)
2041 309041954 : lu(k,362) = lu(k,362) * lu(k,350)
2042 309041954 : lu(k,363) = lu(k,363) * lu(k,350)
2043 309041954 : lu(k,364) = lu(k,364) * lu(k,350)
2044 309041954 : lu(k,376) = lu(k,376) - lu(k,351) * lu(k,375)
2045 309041954 : lu(k,377) = lu(k,377) - lu(k,352) * lu(k,375)
2046 309041954 : lu(k,378) = lu(k,378) - lu(k,353) * lu(k,375)
2047 309041954 : lu(k,379) = lu(k,379) - lu(k,354) * lu(k,375)
2048 309041954 : lu(k,380) = lu(k,380) - lu(k,355) * lu(k,375)
2049 309041954 : lu(k,381) = lu(k,381) - lu(k,356) * lu(k,375)
2050 309041954 : lu(k,382) = lu(k,382) - lu(k,357) * lu(k,375)
2051 309041954 : lu(k,383) = lu(k,383) - lu(k,358) * lu(k,375)
2052 309041954 : lu(k,384) = lu(k,384) - lu(k,359) * lu(k,375)
2053 309041954 : lu(k,385) = lu(k,385) - lu(k,360) * lu(k,375)
2054 309041954 : lu(k,386) = lu(k,386) - lu(k,361) * lu(k,375)
2055 309041954 : lu(k,387) = lu(k,387) - lu(k,362) * lu(k,375)
2056 309041954 : lu(k,388) = lu(k,388) - lu(k,363) * lu(k,375)
2057 309041954 : lu(k,389) = lu(k,389) - lu(k,364) * lu(k,375)
2058 309041954 : lu(k,419) = lu(k,419) - lu(k,351) * lu(k,418)
2059 309041954 : lu(k,420) = lu(k,420) - lu(k,352) * lu(k,418)
2060 309041954 : lu(k,421) = lu(k,421) - lu(k,353) * lu(k,418)
2061 309041954 : lu(k,422) = lu(k,422) - lu(k,354) * lu(k,418)
2062 309041954 : lu(k,423) = lu(k,423) - lu(k,355) * lu(k,418)
2063 309041954 : lu(k,424) = lu(k,424) - lu(k,356) * lu(k,418)
2064 309041954 : lu(k,425) = lu(k,425) - lu(k,357) * lu(k,418)
2065 309041954 : lu(k,426) = lu(k,426) - lu(k,358) * lu(k,418)
2066 309041954 : lu(k,427) = lu(k,427) - lu(k,359) * lu(k,418)
2067 309041954 : lu(k,428) = lu(k,428) - lu(k,360) * lu(k,418)
2068 309041954 : lu(k,429) = lu(k,429) - lu(k,361) * lu(k,418)
2069 309041954 : lu(k,430) = lu(k,430) - lu(k,362) * lu(k,418)
2070 309041954 : lu(k,431) = lu(k,431) - lu(k,363) * lu(k,418)
2071 309041954 : lu(k,432) = lu(k,432) - lu(k,364) * lu(k,418)
2072 309041954 : lu(k,447) = lu(k,447) - lu(k,351) * lu(k,446)
2073 309041954 : lu(k,448) = lu(k,448) - lu(k,352) * lu(k,446)
2074 309041954 : lu(k,449) = lu(k,449) - lu(k,353) * lu(k,446)
2075 309041954 : lu(k,450) = lu(k,450) - lu(k,354) * lu(k,446)
2076 309041954 : lu(k,451) = lu(k,451) - lu(k,355) * lu(k,446)
2077 309041954 : lu(k,452) = lu(k,452) - lu(k,356) * lu(k,446)
2078 309041954 : lu(k,453) = lu(k,453) - lu(k,357) * lu(k,446)
2079 309041954 : lu(k,454) = lu(k,454) - lu(k,358) * lu(k,446)
2080 309041954 : lu(k,455) = lu(k,455) - lu(k,359) * lu(k,446)
2081 309041954 : lu(k,456) = lu(k,456) - lu(k,360) * lu(k,446)
2082 309041954 : lu(k,457) = lu(k,457) - lu(k,361) * lu(k,446)
2083 309041954 : lu(k,458) = lu(k,458) - lu(k,362) * lu(k,446)
2084 309041954 : lu(k,459) = lu(k,459) - lu(k,363) * lu(k,446)
2085 309041954 : lu(k,460) = lu(k,460) - lu(k,364) * lu(k,446)
2086 309041954 : lu(k,472) = lu(k,472) - lu(k,351) * lu(k,471)
2087 309041954 : lu(k,473) = lu(k,473) - lu(k,352) * lu(k,471)
2088 309041954 : lu(k,474) = lu(k,474) - lu(k,353) * lu(k,471)
2089 309041954 : lu(k,475) = lu(k,475) - lu(k,354) * lu(k,471)
2090 309041954 : lu(k,476) = lu(k,476) - lu(k,355) * lu(k,471)
2091 309041954 : lu(k,477) = lu(k,477) - lu(k,356) * lu(k,471)
2092 309041954 : lu(k,478) = lu(k,478) - lu(k,357) * lu(k,471)
2093 309041954 : lu(k,479) = lu(k,479) - lu(k,358) * lu(k,471)
2094 309041954 : lu(k,480) = lu(k,480) - lu(k,359) * lu(k,471)
2095 309041954 : lu(k,481) = lu(k,481) - lu(k,360) * lu(k,471)
2096 309041954 : lu(k,482) = lu(k,482) - lu(k,361) * lu(k,471)
2097 309041954 : lu(k,483) = lu(k,483) - lu(k,362) * lu(k,471)
2098 309041954 : lu(k,484) = lu(k,484) - lu(k,363) * lu(k,471)
2099 309041954 : lu(k,485) = lu(k,485) - lu(k,364) * lu(k,471)
2100 309041954 : lu(k,528) = lu(k,528) - lu(k,351) * lu(k,527)
2101 309041954 : lu(k,529) = lu(k,529) - lu(k,352) * lu(k,527)
2102 309041954 : lu(k,530) = lu(k,530) - lu(k,353) * lu(k,527)
2103 309041954 : lu(k,531) = lu(k,531) - lu(k,354) * lu(k,527)
2104 309041954 : lu(k,532) = lu(k,532) - lu(k,355) * lu(k,527)
2105 309041954 : lu(k,533) = lu(k,533) - lu(k,356) * lu(k,527)
2106 309041954 : lu(k,534) = lu(k,534) - lu(k,357) * lu(k,527)
2107 309041954 : lu(k,535) = lu(k,535) - lu(k,358) * lu(k,527)
2108 309041954 : lu(k,536) = lu(k,536) - lu(k,359) * lu(k,527)
2109 309041954 : lu(k,537) = lu(k,537) - lu(k,360) * lu(k,527)
2110 309041954 : lu(k,538) = lu(k,538) - lu(k,361) * lu(k,527)
2111 309041954 : lu(k,539) = lu(k,539) - lu(k,362) * lu(k,527)
2112 309041954 : lu(k,540) = lu(k,540) - lu(k,363) * lu(k,527)
2113 309041954 : lu(k,541) = lu(k,541) - lu(k,364) * lu(k,527)
2114 309041954 : lu(k,550) = lu(k,550) - lu(k,351) * lu(k,549)
2115 309041954 : lu(k,551) = lu(k,551) - lu(k,352) * lu(k,549)
2116 309041954 : lu(k,552) = lu(k,552) - lu(k,353) * lu(k,549)
2117 309041954 : lu(k,553) = lu(k,553) - lu(k,354) * lu(k,549)
2118 309041954 : lu(k,554) = lu(k,554) - lu(k,355) * lu(k,549)
2119 309041954 : lu(k,555) = lu(k,555) - lu(k,356) * lu(k,549)
2120 309041954 : lu(k,556) = lu(k,556) - lu(k,357) * lu(k,549)
2121 309041954 : lu(k,557) = lu(k,557) - lu(k,358) * lu(k,549)
2122 309041954 : lu(k,558) = lu(k,558) - lu(k,359) * lu(k,549)
2123 309041954 : lu(k,559) = lu(k,559) - lu(k,360) * lu(k,549)
2124 309041954 : lu(k,560) = lu(k,560) - lu(k,361) * lu(k,549)
2125 309041954 : lu(k,561) = lu(k,561) - lu(k,362) * lu(k,549)
2126 309041954 : lu(k,562) = lu(k,562) - lu(k,363) * lu(k,549)
2127 309041954 : lu(k,563) = lu(k,563) - lu(k,364) * lu(k,549)
2128 309041954 : lu(k,572) = lu(k,572) - lu(k,351) * lu(k,571)
2129 309041954 : lu(k,573) = lu(k,573) - lu(k,352) * lu(k,571)
2130 309041954 : lu(k,574) = lu(k,574) - lu(k,353) * lu(k,571)
2131 309041954 : lu(k,575) = lu(k,575) - lu(k,354) * lu(k,571)
2132 309041954 : lu(k,576) = lu(k,576) - lu(k,355) * lu(k,571)
2133 309041954 : lu(k,577) = lu(k,577) - lu(k,356) * lu(k,571)
2134 309041954 : lu(k,578) = lu(k,578) - lu(k,357) * lu(k,571)
2135 309041954 : lu(k,579) = lu(k,579) - lu(k,358) * lu(k,571)
2136 309041954 : lu(k,580) = lu(k,580) - lu(k,359) * lu(k,571)
2137 309041954 : lu(k,581) = lu(k,581) - lu(k,360) * lu(k,571)
2138 309041954 : lu(k,582) = lu(k,582) - lu(k,361) * lu(k,571)
2139 309041954 : lu(k,583) = lu(k,583) - lu(k,362) * lu(k,571)
2140 309041954 : lu(k,584) = lu(k,584) - lu(k,363) * lu(k,571)
2141 309041954 : lu(k,585) = lu(k,585) - lu(k,364) * lu(k,571)
2142 309041954 : lu(k,600) = lu(k,600) - lu(k,351) * lu(k,599)
2143 309041954 : lu(k,601) = lu(k,601) - lu(k,352) * lu(k,599)
2144 309041954 : lu(k,602) = lu(k,602) - lu(k,353) * lu(k,599)
2145 309041954 : lu(k,603) = lu(k,603) - lu(k,354) * lu(k,599)
2146 309041954 : lu(k,604) = lu(k,604) - lu(k,355) * lu(k,599)
2147 309041954 : lu(k,605) = lu(k,605) - lu(k,356) * lu(k,599)
2148 309041954 : lu(k,606) = lu(k,606) - lu(k,357) * lu(k,599)
2149 309041954 : lu(k,607) = lu(k,607) - lu(k,358) * lu(k,599)
2150 309041954 : lu(k,608) = lu(k,608) - lu(k,359) * lu(k,599)
2151 309041954 : lu(k,609) = lu(k,609) - lu(k,360) * lu(k,599)
2152 309041954 : lu(k,610) = lu(k,610) - lu(k,361) * lu(k,599)
2153 309041954 : lu(k,611) = lu(k,611) - lu(k,362) * lu(k,599)
2154 309041954 : lu(k,612) = lu(k,612) - lu(k,363) * lu(k,599)
2155 309041954 : lu(k,613) = lu(k,613) - lu(k,364) * lu(k,599)
2156 309041954 : lu(k,637) = lu(k,637) - lu(k,351) * lu(k,636)
2157 309041954 : lu(k,638) = lu(k,638) - lu(k,352) * lu(k,636)
2158 309041954 : lu(k,639) = lu(k,639) - lu(k,353) * lu(k,636)
2159 309041954 : lu(k,640) = lu(k,640) - lu(k,354) * lu(k,636)
2160 309041954 : lu(k,641) = lu(k,641) - lu(k,355) * lu(k,636)
2161 309041954 : lu(k,642) = lu(k,642) - lu(k,356) * lu(k,636)
2162 309041954 : lu(k,643) = lu(k,643) - lu(k,357) * lu(k,636)
2163 309041954 : lu(k,644) = lu(k,644) - lu(k,358) * lu(k,636)
2164 309041954 : lu(k,645) = lu(k,645) - lu(k,359) * lu(k,636)
2165 309041954 : lu(k,646) = lu(k,646) - lu(k,360) * lu(k,636)
2166 309041954 : lu(k,647) = lu(k,647) - lu(k,361) * lu(k,636)
2167 309041954 : lu(k,648) = lu(k,648) - lu(k,362) * lu(k,636)
2168 309041954 : lu(k,649) = lu(k,649) - lu(k,363) * lu(k,636)
2169 309041954 : lu(k,650) = lu(k,650) - lu(k,364) * lu(k,636)
2170 309041954 : lu(k,660) = lu(k,660) - lu(k,351) * lu(k,659)
2171 309041954 : lu(k,661) = lu(k,661) - lu(k,352) * lu(k,659)
2172 309041954 : lu(k,662) = lu(k,662) - lu(k,353) * lu(k,659)
2173 309041954 : lu(k,663) = lu(k,663) - lu(k,354) * lu(k,659)
2174 309041954 : lu(k,664) = lu(k,664) - lu(k,355) * lu(k,659)
2175 309041954 : lu(k,665) = lu(k,665) - lu(k,356) * lu(k,659)
2176 309041954 : lu(k,666) = lu(k,666) - lu(k,357) * lu(k,659)
2177 309041954 : lu(k,667) = lu(k,667) - lu(k,358) * lu(k,659)
2178 309041954 : lu(k,668) = lu(k,668) - lu(k,359) * lu(k,659)
2179 309041954 : lu(k,669) = lu(k,669) - lu(k,360) * lu(k,659)
2180 309041954 : lu(k,670) = lu(k,670) - lu(k,361) * lu(k,659)
2181 309041954 : lu(k,671) = lu(k,671) - lu(k,362) * lu(k,659)
2182 309041954 : lu(k,672) = lu(k,672) - lu(k,363) * lu(k,659)
2183 309041954 : lu(k,673) = lu(k,673) - lu(k,364) * lu(k,659)
2184 309041954 : lu(k,681) = lu(k,681) - lu(k,351) * lu(k,680)
2185 309041954 : lu(k,682) = lu(k,682) - lu(k,352) * lu(k,680)
2186 309041954 : lu(k,683) = lu(k,683) - lu(k,353) * lu(k,680)
2187 309041954 : lu(k,684) = lu(k,684) - lu(k,354) * lu(k,680)
2188 309041954 : lu(k,685) = lu(k,685) - lu(k,355) * lu(k,680)
2189 309041954 : lu(k,686) = lu(k,686) - lu(k,356) * lu(k,680)
2190 309041954 : lu(k,687) = lu(k,687) - lu(k,357) * lu(k,680)
2191 309041954 : lu(k,688) = lu(k,688) - lu(k,358) * lu(k,680)
2192 309041954 : lu(k,689) = lu(k,689) - lu(k,359) * lu(k,680)
2193 309041954 : lu(k,690) = lu(k,690) - lu(k,360) * lu(k,680)
2194 309041954 : lu(k,691) = lu(k,691) - lu(k,361) * lu(k,680)
2195 309041954 : lu(k,692) = lu(k,692) - lu(k,362) * lu(k,680)
2196 309041954 : lu(k,693) = lu(k,693) - lu(k,363) * lu(k,680)
2197 309041954 : lu(k,694) = lu(k,694) - lu(k,364) * lu(k,680)
2198 309041954 : lu(k,707) = lu(k,707) - lu(k,351) * lu(k,706)
2199 309041954 : lu(k,708) = lu(k,708) - lu(k,352) * lu(k,706)
2200 309041954 : lu(k,709) = lu(k,709) - lu(k,353) * lu(k,706)
2201 309041954 : lu(k,710) = lu(k,710) - lu(k,354) * lu(k,706)
2202 309041954 : lu(k,711) = lu(k,711) - lu(k,355) * lu(k,706)
2203 309041954 : lu(k,712) = lu(k,712) - lu(k,356) * lu(k,706)
2204 309041954 : lu(k,713) = lu(k,713) - lu(k,357) * lu(k,706)
2205 309041954 : lu(k,714) = lu(k,714) - lu(k,358) * lu(k,706)
2206 309041954 : lu(k,715) = lu(k,715) - lu(k,359) * lu(k,706)
2207 309041954 : lu(k,716) = lu(k,716) - lu(k,360) * lu(k,706)
2208 309041954 : lu(k,717) = lu(k,717) - lu(k,361) * lu(k,706)
2209 309041954 : lu(k,718) = lu(k,718) - lu(k,362) * lu(k,706)
2210 309041954 : lu(k,719) = lu(k,719) - lu(k,363) * lu(k,706)
2211 309041954 : lu(k,720) = lu(k,720) - lu(k,364) * lu(k,706)
2212 309041954 : lu(k,732) = lu(k,732) - lu(k,351) * lu(k,731)
2213 309041954 : lu(k,733) = lu(k,733) - lu(k,352) * lu(k,731)
2214 309041954 : lu(k,734) = lu(k,734) - lu(k,353) * lu(k,731)
2215 309041954 : lu(k,735) = lu(k,735) - lu(k,354) * lu(k,731)
2216 309041954 : lu(k,736) = lu(k,736) - lu(k,355) * lu(k,731)
2217 309041954 : lu(k,737) = lu(k,737) - lu(k,356) * lu(k,731)
2218 309041954 : lu(k,738) = lu(k,738) - lu(k,357) * lu(k,731)
2219 309041954 : lu(k,739) = lu(k,739) - lu(k,358) * lu(k,731)
2220 309041954 : lu(k,740) = lu(k,740) - lu(k,359) * lu(k,731)
2221 309041954 : lu(k,741) = lu(k,741) - lu(k,360) * lu(k,731)
2222 309041954 : lu(k,742) = lu(k,742) - lu(k,361) * lu(k,731)
2223 309041954 : lu(k,743) = lu(k,743) - lu(k,362) * lu(k,731)
2224 309041954 : lu(k,744) = lu(k,744) - lu(k,363) * lu(k,731)
2225 309041954 : lu(k,745) = lu(k,745) - lu(k,364) * lu(k,731)
2226 309041954 : lu(k,376) = 1._r8 / lu(k,376)
2227 309041954 : lu(k,377) = lu(k,377) * lu(k,376)
2228 309041954 : lu(k,378) = lu(k,378) * lu(k,376)
2229 309041954 : lu(k,379) = lu(k,379) * lu(k,376)
2230 309041954 : lu(k,380) = lu(k,380) * lu(k,376)
2231 309041954 : lu(k,381) = lu(k,381) * lu(k,376)
2232 309041954 : lu(k,382) = lu(k,382) * lu(k,376)
2233 309041954 : lu(k,383) = lu(k,383) * lu(k,376)
2234 309041954 : lu(k,384) = lu(k,384) * lu(k,376)
2235 309041954 : lu(k,385) = lu(k,385) * lu(k,376)
2236 309041954 : lu(k,386) = lu(k,386) * lu(k,376)
2237 309041954 : lu(k,387) = lu(k,387) * lu(k,376)
2238 309041954 : lu(k,388) = lu(k,388) * lu(k,376)
2239 309041954 : lu(k,389) = lu(k,389) * lu(k,376)
2240 309041954 : lu(k,420) = lu(k,420) - lu(k,377) * lu(k,419)
2241 309041954 : lu(k,421) = lu(k,421) - lu(k,378) * lu(k,419)
2242 309041954 : lu(k,422) = lu(k,422) - lu(k,379) * lu(k,419)
2243 309041954 : lu(k,423) = lu(k,423) - lu(k,380) * lu(k,419)
2244 309041954 : lu(k,424) = lu(k,424) - lu(k,381) * lu(k,419)
2245 309041954 : lu(k,425) = lu(k,425) - lu(k,382) * lu(k,419)
2246 309041954 : lu(k,426) = lu(k,426) - lu(k,383) * lu(k,419)
2247 309041954 : lu(k,427) = lu(k,427) - lu(k,384) * lu(k,419)
2248 309041954 : lu(k,428) = lu(k,428) - lu(k,385) * lu(k,419)
2249 309041954 : lu(k,429) = lu(k,429) - lu(k,386) * lu(k,419)
2250 309041954 : lu(k,430) = lu(k,430) - lu(k,387) * lu(k,419)
2251 309041954 : lu(k,431) = lu(k,431) - lu(k,388) * lu(k,419)
2252 309041954 : lu(k,432) = lu(k,432) - lu(k,389) * lu(k,419)
2253 309041954 : lu(k,448) = lu(k,448) - lu(k,377) * lu(k,447)
2254 309041954 : lu(k,449) = lu(k,449) - lu(k,378) * lu(k,447)
2255 309041954 : lu(k,450) = lu(k,450) - lu(k,379) * lu(k,447)
2256 309041954 : lu(k,451) = lu(k,451) - lu(k,380) * lu(k,447)
2257 309041954 : lu(k,452) = lu(k,452) - lu(k,381) * lu(k,447)
2258 309041954 : lu(k,453) = lu(k,453) - lu(k,382) * lu(k,447)
2259 309041954 : lu(k,454) = lu(k,454) - lu(k,383) * lu(k,447)
2260 309041954 : lu(k,455) = lu(k,455) - lu(k,384) * lu(k,447)
2261 309041954 : lu(k,456) = lu(k,456) - lu(k,385) * lu(k,447)
2262 309041954 : lu(k,457) = lu(k,457) - lu(k,386) * lu(k,447)
2263 309041954 : lu(k,458) = lu(k,458) - lu(k,387) * lu(k,447)
2264 309041954 : lu(k,459) = lu(k,459) - lu(k,388) * lu(k,447)
2265 309041954 : lu(k,460) = lu(k,460) - lu(k,389) * lu(k,447)
2266 309041954 : lu(k,473) = lu(k,473) - lu(k,377) * lu(k,472)
2267 309041954 : lu(k,474) = lu(k,474) - lu(k,378) * lu(k,472)
2268 309041954 : lu(k,475) = lu(k,475) - lu(k,379) * lu(k,472)
2269 309041954 : lu(k,476) = lu(k,476) - lu(k,380) * lu(k,472)
2270 309041954 : lu(k,477) = lu(k,477) - lu(k,381) * lu(k,472)
2271 309041954 : lu(k,478) = lu(k,478) - lu(k,382) * lu(k,472)
2272 309041954 : lu(k,479) = lu(k,479) - lu(k,383) * lu(k,472)
2273 309041954 : lu(k,480) = lu(k,480) - lu(k,384) * lu(k,472)
2274 309041954 : lu(k,481) = lu(k,481) - lu(k,385) * lu(k,472)
2275 309041954 : lu(k,482) = lu(k,482) - lu(k,386) * lu(k,472)
2276 309041954 : lu(k,483) = lu(k,483) - lu(k,387) * lu(k,472)
2277 309041954 : lu(k,484) = lu(k,484) - lu(k,388) * lu(k,472)
2278 309041954 : lu(k,485) = lu(k,485) - lu(k,389) * lu(k,472)
2279 309041954 : lu(k,504) = lu(k,504) - lu(k,377) * lu(k,503)
2280 309041954 : lu(k,505) = lu(k,505) - lu(k,378) * lu(k,503)
2281 309041954 : lu(k,506) = lu(k,506) - lu(k,379) * lu(k,503)
2282 309041954 : lu(k,507) = lu(k,507) - lu(k,380) * lu(k,503)
2283 309041954 : lu(k,508) = lu(k,508) - lu(k,381) * lu(k,503)
2284 309041954 : lu(k,509) = lu(k,509) - lu(k,382) * lu(k,503)
2285 309041954 : lu(k,510) = lu(k,510) - lu(k,383) * lu(k,503)
2286 309041954 : lu(k,511) = lu(k,511) - lu(k,384) * lu(k,503)
2287 309041954 : lu(k,512) = lu(k,512) - lu(k,385) * lu(k,503)
2288 309041954 : lu(k,513) = lu(k,513) - lu(k,386) * lu(k,503)
2289 309041954 : lu(k,514) = lu(k,514) - lu(k,387) * lu(k,503)
2290 309041954 : lu(k,515) = lu(k,515) - lu(k,388) * lu(k,503)
2291 309041954 : lu(k,516) = lu(k,516) - lu(k,389) * lu(k,503)
2292 309041954 : lu(k,529) = lu(k,529) - lu(k,377) * lu(k,528)
2293 309041954 : lu(k,530) = lu(k,530) - lu(k,378) * lu(k,528)
2294 309041954 : lu(k,531) = lu(k,531) - lu(k,379) * lu(k,528)
2295 309041954 : lu(k,532) = lu(k,532) - lu(k,380) * lu(k,528)
2296 309041954 : lu(k,533) = lu(k,533) - lu(k,381) * lu(k,528)
2297 309041954 : lu(k,534) = lu(k,534) - lu(k,382) * lu(k,528)
2298 309041954 : lu(k,535) = lu(k,535) - lu(k,383) * lu(k,528)
2299 309041954 : lu(k,536) = lu(k,536) - lu(k,384) * lu(k,528)
2300 309041954 : lu(k,537) = lu(k,537) - lu(k,385) * lu(k,528)
2301 309041954 : lu(k,538) = lu(k,538) - lu(k,386) * lu(k,528)
2302 309041954 : lu(k,539) = lu(k,539) - lu(k,387) * lu(k,528)
2303 309041954 : lu(k,540) = lu(k,540) - lu(k,388) * lu(k,528)
2304 309041954 : lu(k,541) = lu(k,541) - lu(k,389) * lu(k,528)
2305 309041954 : lu(k,551) = lu(k,551) - lu(k,377) * lu(k,550)
2306 309041954 : lu(k,552) = lu(k,552) - lu(k,378) * lu(k,550)
2307 309041954 : lu(k,553) = lu(k,553) - lu(k,379) * lu(k,550)
2308 309041954 : lu(k,554) = lu(k,554) - lu(k,380) * lu(k,550)
2309 309041954 : lu(k,555) = lu(k,555) - lu(k,381) * lu(k,550)
2310 309041954 : lu(k,556) = lu(k,556) - lu(k,382) * lu(k,550)
2311 309041954 : lu(k,557) = lu(k,557) - lu(k,383) * lu(k,550)
2312 309041954 : lu(k,558) = lu(k,558) - lu(k,384) * lu(k,550)
2313 309041954 : lu(k,559) = lu(k,559) - lu(k,385) * lu(k,550)
2314 309041954 : lu(k,560) = lu(k,560) - lu(k,386) * lu(k,550)
2315 309041954 : lu(k,561) = lu(k,561) - lu(k,387) * lu(k,550)
2316 309041954 : lu(k,562) = lu(k,562) - lu(k,388) * lu(k,550)
2317 309041954 : lu(k,563) = lu(k,563) - lu(k,389) * lu(k,550)
2318 309041954 : lu(k,573) = lu(k,573) - lu(k,377) * lu(k,572)
2319 309041954 : lu(k,574) = lu(k,574) - lu(k,378) * lu(k,572)
2320 309041954 : lu(k,575) = lu(k,575) - lu(k,379) * lu(k,572)
2321 309041954 : lu(k,576) = lu(k,576) - lu(k,380) * lu(k,572)
2322 309041954 : lu(k,577) = lu(k,577) - lu(k,381) * lu(k,572)
2323 309041954 : lu(k,578) = lu(k,578) - lu(k,382) * lu(k,572)
2324 309041954 : lu(k,579) = lu(k,579) - lu(k,383) * lu(k,572)
2325 309041954 : lu(k,580) = lu(k,580) - lu(k,384) * lu(k,572)
2326 309041954 : lu(k,581) = lu(k,581) - lu(k,385) * lu(k,572)
2327 309041954 : lu(k,582) = lu(k,582) - lu(k,386) * lu(k,572)
2328 309041954 : lu(k,583) = lu(k,583) - lu(k,387) * lu(k,572)
2329 309041954 : lu(k,584) = lu(k,584) - lu(k,388) * lu(k,572)
2330 309041954 : lu(k,585) = lu(k,585) - lu(k,389) * lu(k,572)
2331 309041954 : lu(k,601) = lu(k,601) - lu(k,377) * lu(k,600)
2332 309041954 : lu(k,602) = lu(k,602) - lu(k,378) * lu(k,600)
2333 309041954 : lu(k,603) = lu(k,603) - lu(k,379) * lu(k,600)
2334 309041954 : lu(k,604) = lu(k,604) - lu(k,380) * lu(k,600)
2335 309041954 : lu(k,605) = lu(k,605) - lu(k,381) * lu(k,600)
2336 309041954 : lu(k,606) = lu(k,606) - lu(k,382) * lu(k,600)
2337 309041954 : lu(k,607) = lu(k,607) - lu(k,383) * lu(k,600)
2338 309041954 : lu(k,608) = lu(k,608) - lu(k,384) * lu(k,600)
2339 309041954 : lu(k,609) = lu(k,609) - lu(k,385) * lu(k,600)
2340 309041954 : lu(k,610) = lu(k,610) - lu(k,386) * lu(k,600)
2341 309041954 : lu(k,611) = lu(k,611) - lu(k,387) * lu(k,600)
2342 309041954 : lu(k,612) = lu(k,612) - lu(k,388) * lu(k,600)
2343 309041954 : lu(k,613) = lu(k,613) - lu(k,389) * lu(k,600)
2344 309041954 : lu(k,638) = lu(k,638) - lu(k,377) * lu(k,637)
2345 309041954 : lu(k,639) = lu(k,639) - lu(k,378) * lu(k,637)
2346 309041954 : lu(k,640) = lu(k,640) - lu(k,379) * lu(k,637)
2347 309041954 : lu(k,641) = lu(k,641) - lu(k,380) * lu(k,637)
2348 309041954 : lu(k,642) = lu(k,642) - lu(k,381) * lu(k,637)
2349 309041954 : lu(k,643) = lu(k,643) - lu(k,382) * lu(k,637)
2350 309041954 : lu(k,644) = lu(k,644) - lu(k,383) * lu(k,637)
2351 309041954 : lu(k,645) = lu(k,645) - lu(k,384) * lu(k,637)
2352 309041954 : lu(k,646) = lu(k,646) - lu(k,385) * lu(k,637)
2353 309041954 : lu(k,647) = lu(k,647) - lu(k,386) * lu(k,637)
2354 309041954 : lu(k,648) = lu(k,648) - lu(k,387) * lu(k,637)
2355 309041954 : lu(k,649) = lu(k,649) - lu(k,388) * lu(k,637)
2356 309041954 : lu(k,650) = lu(k,650) - lu(k,389) * lu(k,637)
2357 309041954 : lu(k,661) = lu(k,661) - lu(k,377) * lu(k,660)
2358 309041954 : lu(k,662) = lu(k,662) - lu(k,378) * lu(k,660)
2359 309041954 : lu(k,663) = lu(k,663) - lu(k,379) * lu(k,660)
2360 309041954 : lu(k,664) = lu(k,664) - lu(k,380) * lu(k,660)
2361 309041954 : lu(k,665) = lu(k,665) - lu(k,381) * lu(k,660)
2362 309041954 : lu(k,666) = lu(k,666) - lu(k,382) * lu(k,660)
2363 309041954 : lu(k,667) = lu(k,667) - lu(k,383) * lu(k,660)
2364 309041954 : lu(k,668) = lu(k,668) - lu(k,384) * lu(k,660)
2365 309041954 : lu(k,669) = lu(k,669) - lu(k,385) * lu(k,660)
2366 309041954 : lu(k,670) = lu(k,670) - lu(k,386) * lu(k,660)
2367 309041954 : lu(k,671) = lu(k,671) - lu(k,387) * lu(k,660)
2368 309041954 : lu(k,672) = lu(k,672) - lu(k,388) * lu(k,660)
2369 309041954 : lu(k,673) = lu(k,673) - lu(k,389) * lu(k,660)
2370 309041954 : lu(k,682) = lu(k,682) - lu(k,377) * lu(k,681)
2371 309041954 : lu(k,683) = lu(k,683) - lu(k,378) * lu(k,681)
2372 309041954 : lu(k,684) = lu(k,684) - lu(k,379) * lu(k,681)
2373 309041954 : lu(k,685) = lu(k,685) - lu(k,380) * lu(k,681)
2374 309041954 : lu(k,686) = lu(k,686) - lu(k,381) * lu(k,681)
2375 309041954 : lu(k,687) = lu(k,687) - lu(k,382) * lu(k,681)
2376 309041954 : lu(k,688) = lu(k,688) - lu(k,383) * lu(k,681)
2377 309041954 : lu(k,689) = lu(k,689) - lu(k,384) * lu(k,681)
2378 309041954 : lu(k,690) = lu(k,690) - lu(k,385) * lu(k,681)
2379 309041954 : lu(k,691) = lu(k,691) - lu(k,386) * lu(k,681)
2380 309041954 : lu(k,692) = lu(k,692) - lu(k,387) * lu(k,681)
2381 309041954 : lu(k,693) = lu(k,693) - lu(k,388) * lu(k,681)
2382 309041954 : lu(k,694) = lu(k,694) - lu(k,389) * lu(k,681)
2383 309041954 : lu(k,708) = lu(k,708) - lu(k,377) * lu(k,707)
2384 309041954 : lu(k,709) = lu(k,709) - lu(k,378) * lu(k,707)
2385 309041954 : lu(k,710) = lu(k,710) - lu(k,379) * lu(k,707)
2386 309041954 : lu(k,711) = lu(k,711) - lu(k,380) * lu(k,707)
2387 309041954 : lu(k,712) = lu(k,712) - lu(k,381) * lu(k,707)
2388 309041954 : lu(k,713) = lu(k,713) - lu(k,382) * lu(k,707)
2389 309041954 : lu(k,714) = lu(k,714) - lu(k,383) * lu(k,707)
2390 309041954 : lu(k,715) = lu(k,715) - lu(k,384) * lu(k,707)
2391 309041954 : lu(k,716) = lu(k,716) - lu(k,385) * lu(k,707)
2392 309041954 : lu(k,717) = lu(k,717) - lu(k,386) * lu(k,707)
2393 309041954 : lu(k,718) = lu(k,718) - lu(k,387) * lu(k,707)
2394 309041954 : lu(k,719) = lu(k,719) - lu(k,388) * lu(k,707)
2395 309041954 : lu(k,720) = lu(k,720) - lu(k,389) * lu(k,707)
2396 309041954 : lu(k,733) = lu(k,733) - lu(k,377) * lu(k,732)
2397 309041954 : lu(k,734) = lu(k,734) - lu(k,378) * lu(k,732)
2398 309041954 : lu(k,735) = lu(k,735) - lu(k,379) * lu(k,732)
2399 309041954 : lu(k,736) = lu(k,736) - lu(k,380) * lu(k,732)
2400 309041954 : lu(k,737) = lu(k,737) - lu(k,381) * lu(k,732)
2401 309041954 : lu(k,738) = lu(k,738) - lu(k,382) * lu(k,732)
2402 309041954 : lu(k,739) = lu(k,739) - lu(k,383) * lu(k,732)
2403 309041954 : lu(k,740) = lu(k,740) - lu(k,384) * lu(k,732)
2404 309041954 : lu(k,741) = lu(k,741) - lu(k,385) * lu(k,732)
2405 309041954 : lu(k,742) = lu(k,742) - lu(k,386) * lu(k,732)
2406 309041954 : lu(k,743) = lu(k,743) - lu(k,387) * lu(k,732)
2407 309041954 : lu(k,744) = lu(k,744) - lu(k,388) * lu(k,732)
2408 309041954 : lu(k,745) = lu(k,745) - lu(k,389) * lu(k,732)
2409 309041954 : lu(k,420) = 1._r8 / lu(k,420)
2410 309041954 : lu(k,421) = lu(k,421) * lu(k,420)
2411 309041954 : lu(k,422) = lu(k,422) * lu(k,420)
2412 309041954 : lu(k,423) = lu(k,423) * lu(k,420)
2413 309041954 : lu(k,424) = lu(k,424) * lu(k,420)
2414 309041954 : lu(k,425) = lu(k,425) * lu(k,420)
2415 309041954 : lu(k,426) = lu(k,426) * lu(k,420)
2416 309041954 : lu(k,427) = lu(k,427) * lu(k,420)
2417 309041954 : lu(k,428) = lu(k,428) * lu(k,420)
2418 309041954 : lu(k,429) = lu(k,429) * lu(k,420)
2419 309041954 : lu(k,430) = lu(k,430) * lu(k,420)
2420 309041954 : lu(k,431) = lu(k,431) * lu(k,420)
2421 309041954 : lu(k,432) = lu(k,432) * lu(k,420)
2422 309041954 : lu(k,449) = lu(k,449) - lu(k,421) * lu(k,448)
2423 309041954 : lu(k,450) = lu(k,450) - lu(k,422) * lu(k,448)
2424 309041954 : lu(k,451) = lu(k,451) - lu(k,423) * lu(k,448)
2425 309041954 : lu(k,452) = lu(k,452) - lu(k,424) * lu(k,448)
2426 309041954 : lu(k,453) = lu(k,453) - lu(k,425) * lu(k,448)
2427 309041954 : lu(k,454) = lu(k,454) - lu(k,426) * lu(k,448)
2428 309041954 : lu(k,455) = lu(k,455) - lu(k,427) * lu(k,448)
2429 309041954 : lu(k,456) = lu(k,456) - lu(k,428) * lu(k,448)
2430 309041954 : lu(k,457) = lu(k,457) - lu(k,429) * lu(k,448)
2431 309041954 : lu(k,458) = lu(k,458) - lu(k,430) * lu(k,448)
2432 309041954 : lu(k,459) = lu(k,459) - lu(k,431) * lu(k,448)
2433 309041954 : lu(k,460) = lu(k,460) - lu(k,432) * lu(k,448)
2434 309041954 : lu(k,474) = lu(k,474) - lu(k,421) * lu(k,473)
2435 309041954 : lu(k,475) = lu(k,475) - lu(k,422) * lu(k,473)
2436 309041954 : lu(k,476) = lu(k,476) - lu(k,423) * lu(k,473)
2437 309041954 : lu(k,477) = lu(k,477) - lu(k,424) * lu(k,473)
2438 309041954 : lu(k,478) = lu(k,478) - lu(k,425) * lu(k,473)
2439 309041954 : lu(k,479) = lu(k,479) - lu(k,426) * lu(k,473)
2440 309041954 : lu(k,480) = lu(k,480) - lu(k,427) * lu(k,473)
2441 309041954 : lu(k,481) = lu(k,481) - lu(k,428) * lu(k,473)
2442 309041954 : lu(k,482) = lu(k,482) - lu(k,429) * lu(k,473)
2443 309041954 : lu(k,483) = lu(k,483) - lu(k,430) * lu(k,473)
2444 309041954 : lu(k,484) = lu(k,484) - lu(k,431) * lu(k,473)
2445 309041954 : lu(k,485) = lu(k,485) - lu(k,432) * lu(k,473)
2446 309041954 : lu(k,505) = lu(k,505) - lu(k,421) * lu(k,504)
2447 309041954 : lu(k,506) = lu(k,506) - lu(k,422) * lu(k,504)
2448 309041954 : lu(k,507) = lu(k,507) - lu(k,423) * lu(k,504)
2449 309041954 : lu(k,508) = lu(k,508) - lu(k,424) * lu(k,504)
2450 309041954 : lu(k,509) = lu(k,509) - lu(k,425) * lu(k,504)
2451 309041954 : lu(k,510) = lu(k,510) - lu(k,426) * lu(k,504)
2452 309041954 : lu(k,511) = lu(k,511) - lu(k,427) * lu(k,504)
2453 309041954 : lu(k,512) = lu(k,512) - lu(k,428) * lu(k,504)
2454 309041954 : lu(k,513) = lu(k,513) - lu(k,429) * lu(k,504)
2455 309041954 : lu(k,514) = lu(k,514) - lu(k,430) * lu(k,504)
2456 309041954 : lu(k,515) = lu(k,515) - lu(k,431) * lu(k,504)
2457 309041954 : lu(k,516) = lu(k,516) - lu(k,432) * lu(k,504)
2458 309041954 : lu(k,530) = lu(k,530) - lu(k,421) * lu(k,529)
2459 309041954 : lu(k,531) = lu(k,531) - lu(k,422) * lu(k,529)
2460 309041954 : lu(k,532) = lu(k,532) - lu(k,423) * lu(k,529)
2461 309041954 : lu(k,533) = lu(k,533) - lu(k,424) * lu(k,529)
2462 309041954 : lu(k,534) = lu(k,534) - lu(k,425) * lu(k,529)
2463 309041954 : lu(k,535) = lu(k,535) - lu(k,426) * lu(k,529)
2464 309041954 : lu(k,536) = lu(k,536) - lu(k,427) * lu(k,529)
2465 309041954 : lu(k,537) = lu(k,537) - lu(k,428) * lu(k,529)
2466 309041954 : lu(k,538) = lu(k,538) - lu(k,429) * lu(k,529)
2467 309041954 : lu(k,539) = lu(k,539) - lu(k,430) * lu(k,529)
2468 309041954 : lu(k,540) = lu(k,540) - lu(k,431) * lu(k,529)
2469 309041954 : lu(k,541) = lu(k,541) - lu(k,432) * lu(k,529)
2470 309041954 : lu(k,552) = lu(k,552) - lu(k,421) * lu(k,551)
2471 309041954 : lu(k,553) = lu(k,553) - lu(k,422) * lu(k,551)
2472 309041954 : lu(k,554) = lu(k,554) - lu(k,423) * lu(k,551)
2473 309041954 : lu(k,555) = lu(k,555) - lu(k,424) * lu(k,551)
2474 309041954 : lu(k,556) = lu(k,556) - lu(k,425) * lu(k,551)
2475 309041954 : lu(k,557) = lu(k,557) - lu(k,426) * lu(k,551)
2476 309041954 : lu(k,558) = lu(k,558) - lu(k,427) * lu(k,551)
2477 309041954 : lu(k,559) = lu(k,559) - lu(k,428) * lu(k,551)
2478 309041954 : lu(k,560) = lu(k,560) - lu(k,429) * lu(k,551)
2479 309041954 : lu(k,561) = lu(k,561) - lu(k,430) * lu(k,551)
2480 309041954 : lu(k,562) = lu(k,562) - lu(k,431) * lu(k,551)
2481 309041954 : lu(k,563) = lu(k,563) - lu(k,432) * lu(k,551)
2482 309041954 : lu(k,574) = lu(k,574) - lu(k,421) * lu(k,573)
2483 309041954 : lu(k,575) = lu(k,575) - lu(k,422) * lu(k,573)
2484 309041954 : lu(k,576) = lu(k,576) - lu(k,423) * lu(k,573)
2485 309041954 : lu(k,577) = lu(k,577) - lu(k,424) * lu(k,573)
2486 309041954 : lu(k,578) = lu(k,578) - lu(k,425) * lu(k,573)
2487 309041954 : lu(k,579) = lu(k,579) - lu(k,426) * lu(k,573)
2488 309041954 : lu(k,580) = lu(k,580) - lu(k,427) * lu(k,573)
2489 309041954 : lu(k,581) = lu(k,581) - lu(k,428) * lu(k,573)
2490 309041954 : lu(k,582) = lu(k,582) - lu(k,429) * lu(k,573)
2491 309041954 : lu(k,583) = lu(k,583) - lu(k,430) * lu(k,573)
2492 309041954 : lu(k,584) = lu(k,584) - lu(k,431) * lu(k,573)
2493 309041954 : lu(k,585) = lu(k,585) - lu(k,432) * lu(k,573)
2494 309041954 : lu(k,602) = lu(k,602) - lu(k,421) * lu(k,601)
2495 309041954 : lu(k,603) = lu(k,603) - lu(k,422) * lu(k,601)
2496 309041954 : lu(k,604) = lu(k,604) - lu(k,423) * lu(k,601)
2497 309041954 : lu(k,605) = lu(k,605) - lu(k,424) * lu(k,601)
2498 309041954 : lu(k,606) = lu(k,606) - lu(k,425) * lu(k,601)
2499 309041954 : lu(k,607) = lu(k,607) - lu(k,426) * lu(k,601)
2500 309041954 : lu(k,608) = lu(k,608) - lu(k,427) * lu(k,601)
2501 309041954 : lu(k,609) = lu(k,609) - lu(k,428) * lu(k,601)
2502 309041954 : lu(k,610) = lu(k,610) - lu(k,429) * lu(k,601)
2503 309041954 : lu(k,611) = lu(k,611) - lu(k,430) * lu(k,601)
2504 309041954 : lu(k,612) = lu(k,612) - lu(k,431) * lu(k,601)
2505 309041954 : lu(k,613) = lu(k,613) - lu(k,432) * lu(k,601)
2506 309041954 : lu(k,639) = lu(k,639) - lu(k,421) * lu(k,638)
2507 309041954 : lu(k,640) = lu(k,640) - lu(k,422) * lu(k,638)
2508 309041954 : lu(k,641) = lu(k,641) - lu(k,423) * lu(k,638)
2509 309041954 : lu(k,642) = lu(k,642) - lu(k,424) * lu(k,638)
2510 309041954 : lu(k,643) = lu(k,643) - lu(k,425) * lu(k,638)
2511 309041954 : lu(k,644) = lu(k,644) - lu(k,426) * lu(k,638)
2512 309041954 : lu(k,645) = lu(k,645) - lu(k,427) * lu(k,638)
2513 309041954 : lu(k,646) = lu(k,646) - lu(k,428) * lu(k,638)
2514 309041954 : lu(k,647) = lu(k,647) - lu(k,429) * lu(k,638)
2515 309041954 : lu(k,648) = lu(k,648) - lu(k,430) * lu(k,638)
2516 309041954 : lu(k,649) = lu(k,649) - lu(k,431) * lu(k,638)
2517 309041954 : lu(k,650) = lu(k,650) - lu(k,432) * lu(k,638)
2518 309041954 : lu(k,662) = lu(k,662) - lu(k,421) * lu(k,661)
2519 309041954 : lu(k,663) = lu(k,663) - lu(k,422) * lu(k,661)
2520 309041954 : lu(k,664) = lu(k,664) - lu(k,423) * lu(k,661)
2521 309041954 : lu(k,665) = lu(k,665) - lu(k,424) * lu(k,661)
2522 309041954 : lu(k,666) = lu(k,666) - lu(k,425) * lu(k,661)
2523 309041954 : lu(k,667) = lu(k,667) - lu(k,426) * lu(k,661)
2524 309041954 : lu(k,668) = lu(k,668) - lu(k,427) * lu(k,661)
2525 309041954 : lu(k,669) = lu(k,669) - lu(k,428) * lu(k,661)
2526 309041954 : lu(k,670) = lu(k,670) - lu(k,429) * lu(k,661)
2527 309041954 : lu(k,671) = lu(k,671) - lu(k,430) * lu(k,661)
2528 309041954 : lu(k,672) = lu(k,672) - lu(k,431) * lu(k,661)
2529 309041954 : lu(k,673) = lu(k,673) - lu(k,432) * lu(k,661)
2530 309041954 : lu(k,683) = lu(k,683) - lu(k,421) * lu(k,682)
2531 309041954 : lu(k,684) = lu(k,684) - lu(k,422) * lu(k,682)
2532 309041954 : lu(k,685) = lu(k,685) - lu(k,423) * lu(k,682)
2533 309041954 : lu(k,686) = lu(k,686) - lu(k,424) * lu(k,682)
2534 309041954 : lu(k,687) = lu(k,687) - lu(k,425) * lu(k,682)
2535 309041954 : lu(k,688) = lu(k,688) - lu(k,426) * lu(k,682)
2536 309041954 : lu(k,689) = lu(k,689) - lu(k,427) * lu(k,682)
2537 309041954 : lu(k,690) = lu(k,690) - lu(k,428) * lu(k,682)
2538 309041954 : lu(k,691) = lu(k,691) - lu(k,429) * lu(k,682)
2539 309041954 : lu(k,692) = lu(k,692) - lu(k,430) * lu(k,682)
2540 309041954 : lu(k,693) = lu(k,693) - lu(k,431) * lu(k,682)
2541 309041954 : lu(k,694) = lu(k,694) - lu(k,432) * lu(k,682)
2542 309041954 : lu(k,709) = lu(k,709) - lu(k,421) * lu(k,708)
2543 309041954 : lu(k,710) = lu(k,710) - lu(k,422) * lu(k,708)
2544 309041954 : lu(k,711) = lu(k,711) - lu(k,423) * lu(k,708)
2545 309041954 : lu(k,712) = lu(k,712) - lu(k,424) * lu(k,708)
2546 309041954 : lu(k,713) = lu(k,713) - lu(k,425) * lu(k,708)
2547 309041954 : lu(k,714) = lu(k,714) - lu(k,426) * lu(k,708)
2548 309041954 : lu(k,715) = lu(k,715) - lu(k,427) * lu(k,708)
2549 309041954 : lu(k,716) = lu(k,716) - lu(k,428) * lu(k,708)
2550 309041954 : lu(k,717) = lu(k,717) - lu(k,429) * lu(k,708)
2551 309041954 : lu(k,718) = lu(k,718) - lu(k,430) * lu(k,708)
2552 309041954 : lu(k,719) = lu(k,719) - lu(k,431) * lu(k,708)
2553 309041954 : lu(k,720) = lu(k,720) - lu(k,432) * lu(k,708)
2554 309041954 : lu(k,734) = lu(k,734) - lu(k,421) * lu(k,733)
2555 309041954 : lu(k,735) = lu(k,735) - lu(k,422) * lu(k,733)
2556 309041954 : lu(k,736) = lu(k,736) - lu(k,423) * lu(k,733)
2557 309041954 : lu(k,737) = lu(k,737) - lu(k,424) * lu(k,733)
2558 309041954 : lu(k,738) = lu(k,738) - lu(k,425) * lu(k,733)
2559 309041954 : lu(k,739) = lu(k,739) - lu(k,426) * lu(k,733)
2560 309041954 : lu(k,740) = lu(k,740) - lu(k,427) * lu(k,733)
2561 309041954 : lu(k,741) = lu(k,741) - lu(k,428) * lu(k,733)
2562 309041954 : lu(k,742) = lu(k,742) - lu(k,429) * lu(k,733)
2563 309041954 : lu(k,743) = lu(k,743) - lu(k,430) * lu(k,733)
2564 309041954 : lu(k,744) = lu(k,744) - lu(k,431) * lu(k,733)
2565 318792954 : lu(k,745) = lu(k,745) - lu(k,432) * lu(k,733)
2566 : end do
2567 9751000 : end subroutine lu_fac08
2568 9751000 : subroutine lu_fac09( avec_len, lu )
2569 : use chem_mods, only : nzcnt
2570 : use shr_kind_mod, only : r8 => shr_kind_r8
2571 : implicit none
2572 : !-----------------------------------------------------------------------
2573 : ! ... dummy args
2574 : !-----------------------------------------------------------------------
2575 : integer, intent(in) :: avec_len
2576 : real(r8), intent(inout) :: lu(veclen,nzcnt)
2577 : !-----------------------------------------------------------------------
2578 : ! ... local variables
2579 : !-----------------------------------------------------------------------
2580 : integer :: k
2581 318792954 : do k = 1,avec_len
2582 309041954 : lu(k,449) = 1._r8 / lu(k,449)
2583 309041954 : lu(k,450) = lu(k,450) * lu(k,449)
2584 309041954 : lu(k,451) = lu(k,451) * lu(k,449)
2585 309041954 : lu(k,452) = lu(k,452) * lu(k,449)
2586 309041954 : lu(k,453) = lu(k,453) * lu(k,449)
2587 309041954 : lu(k,454) = lu(k,454) * lu(k,449)
2588 309041954 : lu(k,455) = lu(k,455) * lu(k,449)
2589 309041954 : lu(k,456) = lu(k,456) * lu(k,449)
2590 309041954 : lu(k,457) = lu(k,457) * lu(k,449)
2591 309041954 : lu(k,458) = lu(k,458) * lu(k,449)
2592 309041954 : lu(k,459) = lu(k,459) * lu(k,449)
2593 309041954 : lu(k,460) = lu(k,460) * lu(k,449)
2594 309041954 : lu(k,475) = lu(k,475) - lu(k,450) * lu(k,474)
2595 309041954 : lu(k,476) = lu(k,476) - lu(k,451) * lu(k,474)
2596 309041954 : lu(k,477) = lu(k,477) - lu(k,452) * lu(k,474)
2597 309041954 : lu(k,478) = lu(k,478) - lu(k,453) * lu(k,474)
2598 309041954 : lu(k,479) = lu(k,479) - lu(k,454) * lu(k,474)
2599 309041954 : lu(k,480) = lu(k,480) - lu(k,455) * lu(k,474)
2600 309041954 : lu(k,481) = lu(k,481) - lu(k,456) * lu(k,474)
2601 309041954 : lu(k,482) = lu(k,482) - lu(k,457) * lu(k,474)
2602 309041954 : lu(k,483) = lu(k,483) - lu(k,458) * lu(k,474)
2603 309041954 : lu(k,484) = lu(k,484) - lu(k,459) * lu(k,474)
2604 309041954 : lu(k,485) = lu(k,485) - lu(k,460) * lu(k,474)
2605 309041954 : lu(k,506) = lu(k,506) - lu(k,450) * lu(k,505)
2606 309041954 : lu(k,507) = lu(k,507) - lu(k,451) * lu(k,505)
2607 309041954 : lu(k,508) = lu(k,508) - lu(k,452) * lu(k,505)
2608 309041954 : lu(k,509) = lu(k,509) - lu(k,453) * lu(k,505)
2609 309041954 : lu(k,510) = lu(k,510) - lu(k,454) * lu(k,505)
2610 309041954 : lu(k,511) = lu(k,511) - lu(k,455) * lu(k,505)
2611 309041954 : lu(k,512) = lu(k,512) - lu(k,456) * lu(k,505)
2612 309041954 : lu(k,513) = lu(k,513) - lu(k,457) * lu(k,505)
2613 309041954 : lu(k,514) = lu(k,514) - lu(k,458) * lu(k,505)
2614 309041954 : lu(k,515) = lu(k,515) - lu(k,459) * lu(k,505)
2615 309041954 : lu(k,516) = lu(k,516) - lu(k,460) * lu(k,505)
2616 309041954 : lu(k,531) = lu(k,531) - lu(k,450) * lu(k,530)
2617 309041954 : lu(k,532) = lu(k,532) - lu(k,451) * lu(k,530)
2618 309041954 : lu(k,533) = lu(k,533) - lu(k,452) * lu(k,530)
2619 309041954 : lu(k,534) = lu(k,534) - lu(k,453) * lu(k,530)
2620 309041954 : lu(k,535) = lu(k,535) - lu(k,454) * lu(k,530)
2621 309041954 : lu(k,536) = lu(k,536) - lu(k,455) * lu(k,530)
2622 309041954 : lu(k,537) = lu(k,537) - lu(k,456) * lu(k,530)
2623 309041954 : lu(k,538) = lu(k,538) - lu(k,457) * lu(k,530)
2624 309041954 : lu(k,539) = lu(k,539) - lu(k,458) * lu(k,530)
2625 309041954 : lu(k,540) = lu(k,540) - lu(k,459) * lu(k,530)
2626 309041954 : lu(k,541) = lu(k,541) - lu(k,460) * lu(k,530)
2627 309041954 : lu(k,553) = lu(k,553) - lu(k,450) * lu(k,552)
2628 309041954 : lu(k,554) = lu(k,554) - lu(k,451) * lu(k,552)
2629 309041954 : lu(k,555) = lu(k,555) - lu(k,452) * lu(k,552)
2630 309041954 : lu(k,556) = lu(k,556) - lu(k,453) * lu(k,552)
2631 309041954 : lu(k,557) = lu(k,557) - lu(k,454) * lu(k,552)
2632 309041954 : lu(k,558) = lu(k,558) - lu(k,455) * lu(k,552)
2633 309041954 : lu(k,559) = lu(k,559) - lu(k,456) * lu(k,552)
2634 309041954 : lu(k,560) = lu(k,560) - lu(k,457) * lu(k,552)
2635 309041954 : lu(k,561) = lu(k,561) - lu(k,458) * lu(k,552)
2636 309041954 : lu(k,562) = lu(k,562) - lu(k,459) * lu(k,552)
2637 309041954 : lu(k,563) = lu(k,563) - lu(k,460) * lu(k,552)
2638 309041954 : lu(k,575) = lu(k,575) - lu(k,450) * lu(k,574)
2639 309041954 : lu(k,576) = lu(k,576) - lu(k,451) * lu(k,574)
2640 309041954 : lu(k,577) = lu(k,577) - lu(k,452) * lu(k,574)
2641 309041954 : lu(k,578) = lu(k,578) - lu(k,453) * lu(k,574)
2642 309041954 : lu(k,579) = lu(k,579) - lu(k,454) * lu(k,574)
2643 309041954 : lu(k,580) = lu(k,580) - lu(k,455) * lu(k,574)
2644 309041954 : lu(k,581) = lu(k,581) - lu(k,456) * lu(k,574)
2645 309041954 : lu(k,582) = lu(k,582) - lu(k,457) * lu(k,574)
2646 309041954 : lu(k,583) = lu(k,583) - lu(k,458) * lu(k,574)
2647 309041954 : lu(k,584) = lu(k,584) - lu(k,459) * lu(k,574)
2648 309041954 : lu(k,585) = lu(k,585) - lu(k,460) * lu(k,574)
2649 309041954 : lu(k,603) = lu(k,603) - lu(k,450) * lu(k,602)
2650 309041954 : lu(k,604) = lu(k,604) - lu(k,451) * lu(k,602)
2651 309041954 : lu(k,605) = lu(k,605) - lu(k,452) * lu(k,602)
2652 309041954 : lu(k,606) = lu(k,606) - lu(k,453) * lu(k,602)
2653 309041954 : lu(k,607) = lu(k,607) - lu(k,454) * lu(k,602)
2654 309041954 : lu(k,608) = lu(k,608) - lu(k,455) * lu(k,602)
2655 309041954 : lu(k,609) = lu(k,609) - lu(k,456) * lu(k,602)
2656 309041954 : lu(k,610) = lu(k,610) - lu(k,457) * lu(k,602)
2657 309041954 : lu(k,611) = lu(k,611) - lu(k,458) * lu(k,602)
2658 309041954 : lu(k,612) = lu(k,612) - lu(k,459) * lu(k,602)
2659 309041954 : lu(k,613) = lu(k,613) - lu(k,460) * lu(k,602)
2660 309041954 : lu(k,640) = lu(k,640) - lu(k,450) * lu(k,639)
2661 309041954 : lu(k,641) = lu(k,641) - lu(k,451) * lu(k,639)
2662 309041954 : lu(k,642) = lu(k,642) - lu(k,452) * lu(k,639)
2663 309041954 : lu(k,643) = lu(k,643) - lu(k,453) * lu(k,639)
2664 309041954 : lu(k,644) = lu(k,644) - lu(k,454) * lu(k,639)
2665 309041954 : lu(k,645) = lu(k,645) - lu(k,455) * lu(k,639)
2666 309041954 : lu(k,646) = lu(k,646) - lu(k,456) * lu(k,639)
2667 309041954 : lu(k,647) = lu(k,647) - lu(k,457) * lu(k,639)
2668 309041954 : lu(k,648) = lu(k,648) - lu(k,458) * lu(k,639)
2669 309041954 : lu(k,649) = lu(k,649) - lu(k,459) * lu(k,639)
2670 309041954 : lu(k,650) = lu(k,650) - lu(k,460) * lu(k,639)
2671 309041954 : lu(k,663) = lu(k,663) - lu(k,450) * lu(k,662)
2672 309041954 : lu(k,664) = lu(k,664) - lu(k,451) * lu(k,662)
2673 309041954 : lu(k,665) = lu(k,665) - lu(k,452) * lu(k,662)
2674 309041954 : lu(k,666) = lu(k,666) - lu(k,453) * lu(k,662)
2675 309041954 : lu(k,667) = lu(k,667) - lu(k,454) * lu(k,662)
2676 309041954 : lu(k,668) = lu(k,668) - lu(k,455) * lu(k,662)
2677 309041954 : lu(k,669) = lu(k,669) - lu(k,456) * lu(k,662)
2678 309041954 : lu(k,670) = lu(k,670) - lu(k,457) * lu(k,662)
2679 309041954 : lu(k,671) = lu(k,671) - lu(k,458) * lu(k,662)
2680 309041954 : lu(k,672) = lu(k,672) - lu(k,459) * lu(k,662)
2681 309041954 : lu(k,673) = lu(k,673) - lu(k,460) * lu(k,662)
2682 309041954 : lu(k,684) = lu(k,684) - lu(k,450) * lu(k,683)
2683 309041954 : lu(k,685) = lu(k,685) - lu(k,451) * lu(k,683)
2684 309041954 : lu(k,686) = lu(k,686) - lu(k,452) * lu(k,683)
2685 309041954 : lu(k,687) = lu(k,687) - lu(k,453) * lu(k,683)
2686 309041954 : lu(k,688) = lu(k,688) - lu(k,454) * lu(k,683)
2687 309041954 : lu(k,689) = lu(k,689) - lu(k,455) * lu(k,683)
2688 309041954 : lu(k,690) = lu(k,690) - lu(k,456) * lu(k,683)
2689 309041954 : lu(k,691) = lu(k,691) - lu(k,457) * lu(k,683)
2690 309041954 : lu(k,692) = lu(k,692) - lu(k,458) * lu(k,683)
2691 309041954 : lu(k,693) = lu(k,693) - lu(k,459) * lu(k,683)
2692 309041954 : lu(k,694) = lu(k,694) - lu(k,460) * lu(k,683)
2693 309041954 : lu(k,710) = lu(k,710) - lu(k,450) * lu(k,709)
2694 309041954 : lu(k,711) = lu(k,711) - lu(k,451) * lu(k,709)
2695 309041954 : lu(k,712) = lu(k,712) - lu(k,452) * lu(k,709)
2696 309041954 : lu(k,713) = lu(k,713) - lu(k,453) * lu(k,709)
2697 309041954 : lu(k,714) = lu(k,714) - lu(k,454) * lu(k,709)
2698 309041954 : lu(k,715) = lu(k,715) - lu(k,455) * lu(k,709)
2699 309041954 : lu(k,716) = lu(k,716) - lu(k,456) * lu(k,709)
2700 309041954 : lu(k,717) = lu(k,717) - lu(k,457) * lu(k,709)
2701 309041954 : lu(k,718) = lu(k,718) - lu(k,458) * lu(k,709)
2702 309041954 : lu(k,719) = lu(k,719) - lu(k,459) * lu(k,709)
2703 309041954 : lu(k,720) = lu(k,720) - lu(k,460) * lu(k,709)
2704 309041954 : lu(k,735) = lu(k,735) - lu(k,450) * lu(k,734)
2705 309041954 : lu(k,736) = lu(k,736) - lu(k,451) * lu(k,734)
2706 309041954 : lu(k,737) = lu(k,737) - lu(k,452) * lu(k,734)
2707 309041954 : lu(k,738) = lu(k,738) - lu(k,453) * lu(k,734)
2708 309041954 : lu(k,739) = lu(k,739) - lu(k,454) * lu(k,734)
2709 309041954 : lu(k,740) = lu(k,740) - lu(k,455) * lu(k,734)
2710 309041954 : lu(k,741) = lu(k,741) - lu(k,456) * lu(k,734)
2711 309041954 : lu(k,742) = lu(k,742) - lu(k,457) * lu(k,734)
2712 309041954 : lu(k,743) = lu(k,743) - lu(k,458) * lu(k,734)
2713 309041954 : lu(k,744) = lu(k,744) - lu(k,459) * lu(k,734)
2714 309041954 : lu(k,745) = lu(k,745) - lu(k,460) * lu(k,734)
2715 309041954 : lu(k,475) = 1._r8 / lu(k,475)
2716 309041954 : lu(k,476) = lu(k,476) * lu(k,475)
2717 309041954 : lu(k,477) = lu(k,477) * lu(k,475)
2718 309041954 : lu(k,478) = lu(k,478) * lu(k,475)
2719 309041954 : lu(k,479) = lu(k,479) * lu(k,475)
2720 309041954 : lu(k,480) = lu(k,480) * lu(k,475)
2721 309041954 : lu(k,481) = lu(k,481) * lu(k,475)
2722 309041954 : lu(k,482) = lu(k,482) * lu(k,475)
2723 309041954 : lu(k,483) = lu(k,483) * lu(k,475)
2724 309041954 : lu(k,484) = lu(k,484) * lu(k,475)
2725 309041954 : lu(k,485) = lu(k,485) * lu(k,475)
2726 309041954 : lu(k,507) = lu(k,507) - lu(k,476) * lu(k,506)
2727 309041954 : lu(k,508) = lu(k,508) - lu(k,477) * lu(k,506)
2728 309041954 : lu(k,509) = lu(k,509) - lu(k,478) * lu(k,506)
2729 309041954 : lu(k,510) = lu(k,510) - lu(k,479) * lu(k,506)
2730 309041954 : lu(k,511) = lu(k,511) - lu(k,480) * lu(k,506)
2731 309041954 : lu(k,512) = lu(k,512) - lu(k,481) * lu(k,506)
2732 309041954 : lu(k,513) = lu(k,513) - lu(k,482) * lu(k,506)
2733 309041954 : lu(k,514) = lu(k,514) - lu(k,483) * lu(k,506)
2734 309041954 : lu(k,515) = lu(k,515) - lu(k,484) * lu(k,506)
2735 309041954 : lu(k,516) = lu(k,516) - lu(k,485) * lu(k,506)
2736 309041954 : lu(k,532) = lu(k,532) - lu(k,476) * lu(k,531)
2737 309041954 : lu(k,533) = lu(k,533) - lu(k,477) * lu(k,531)
2738 309041954 : lu(k,534) = lu(k,534) - lu(k,478) * lu(k,531)
2739 309041954 : lu(k,535) = lu(k,535) - lu(k,479) * lu(k,531)
2740 309041954 : lu(k,536) = lu(k,536) - lu(k,480) * lu(k,531)
2741 309041954 : lu(k,537) = lu(k,537) - lu(k,481) * lu(k,531)
2742 309041954 : lu(k,538) = lu(k,538) - lu(k,482) * lu(k,531)
2743 309041954 : lu(k,539) = lu(k,539) - lu(k,483) * lu(k,531)
2744 309041954 : lu(k,540) = lu(k,540) - lu(k,484) * lu(k,531)
2745 309041954 : lu(k,541) = lu(k,541) - lu(k,485) * lu(k,531)
2746 309041954 : lu(k,554) = lu(k,554) - lu(k,476) * lu(k,553)
2747 309041954 : lu(k,555) = lu(k,555) - lu(k,477) * lu(k,553)
2748 309041954 : lu(k,556) = lu(k,556) - lu(k,478) * lu(k,553)
2749 309041954 : lu(k,557) = lu(k,557) - lu(k,479) * lu(k,553)
2750 309041954 : lu(k,558) = lu(k,558) - lu(k,480) * lu(k,553)
2751 309041954 : lu(k,559) = lu(k,559) - lu(k,481) * lu(k,553)
2752 309041954 : lu(k,560) = lu(k,560) - lu(k,482) * lu(k,553)
2753 309041954 : lu(k,561) = lu(k,561) - lu(k,483) * lu(k,553)
2754 309041954 : lu(k,562) = lu(k,562) - lu(k,484) * lu(k,553)
2755 309041954 : lu(k,563) = lu(k,563) - lu(k,485) * lu(k,553)
2756 309041954 : lu(k,576) = lu(k,576) - lu(k,476) * lu(k,575)
2757 309041954 : lu(k,577) = lu(k,577) - lu(k,477) * lu(k,575)
2758 309041954 : lu(k,578) = lu(k,578) - lu(k,478) * lu(k,575)
2759 309041954 : lu(k,579) = lu(k,579) - lu(k,479) * lu(k,575)
2760 309041954 : lu(k,580) = lu(k,580) - lu(k,480) * lu(k,575)
2761 309041954 : lu(k,581) = lu(k,581) - lu(k,481) * lu(k,575)
2762 309041954 : lu(k,582) = lu(k,582) - lu(k,482) * lu(k,575)
2763 309041954 : lu(k,583) = lu(k,583) - lu(k,483) * lu(k,575)
2764 309041954 : lu(k,584) = lu(k,584) - lu(k,484) * lu(k,575)
2765 309041954 : lu(k,585) = lu(k,585) - lu(k,485) * lu(k,575)
2766 309041954 : lu(k,604) = lu(k,604) - lu(k,476) * lu(k,603)
2767 309041954 : lu(k,605) = lu(k,605) - lu(k,477) * lu(k,603)
2768 309041954 : lu(k,606) = lu(k,606) - lu(k,478) * lu(k,603)
2769 309041954 : lu(k,607) = lu(k,607) - lu(k,479) * lu(k,603)
2770 309041954 : lu(k,608) = lu(k,608) - lu(k,480) * lu(k,603)
2771 309041954 : lu(k,609) = lu(k,609) - lu(k,481) * lu(k,603)
2772 309041954 : lu(k,610) = lu(k,610) - lu(k,482) * lu(k,603)
2773 309041954 : lu(k,611) = lu(k,611) - lu(k,483) * lu(k,603)
2774 309041954 : lu(k,612) = lu(k,612) - lu(k,484) * lu(k,603)
2775 309041954 : lu(k,613) = lu(k,613) - lu(k,485) * lu(k,603)
2776 309041954 : lu(k,641) = lu(k,641) - lu(k,476) * lu(k,640)
2777 309041954 : lu(k,642) = lu(k,642) - lu(k,477) * lu(k,640)
2778 309041954 : lu(k,643) = lu(k,643) - lu(k,478) * lu(k,640)
2779 309041954 : lu(k,644) = lu(k,644) - lu(k,479) * lu(k,640)
2780 309041954 : lu(k,645) = lu(k,645) - lu(k,480) * lu(k,640)
2781 309041954 : lu(k,646) = lu(k,646) - lu(k,481) * lu(k,640)
2782 309041954 : lu(k,647) = lu(k,647) - lu(k,482) * lu(k,640)
2783 309041954 : lu(k,648) = lu(k,648) - lu(k,483) * lu(k,640)
2784 309041954 : lu(k,649) = lu(k,649) - lu(k,484) * lu(k,640)
2785 309041954 : lu(k,650) = lu(k,650) - lu(k,485) * lu(k,640)
2786 309041954 : lu(k,664) = lu(k,664) - lu(k,476) * lu(k,663)
2787 309041954 : lu(k,665) = lu(k,665) - lu(k,477) * lu(k,663)
2788 309041954 : lu(k,666) = lu(k,666) - lu(k,478) * lu(k,663)
2789 309041954 : lu(k,667) = lu(k,667) - lu(k,479) * lu(k,663)
2790 309041954 : lu(k,668) = lu(k,668) - lu(k,480) * lu(k,663)
2791 309041954 : lu(k,669) = lu(k,669) - lu(k,481) * lu(k,663)
2792 309041954 : lu(k,670) = lu(k,670) - lu(k,482) * lu(k,663)
2793 309041954 : lu(k,671) = lu(k,671) - lu(k,483) * lu(k,663)
2794 309041954 : lu(k,672) = lu(k,672) - lu(k,484) * lu(k,663)
2795 309041954 : lu(k,673) = lu(k,673) - lu(k,485) * lu(k,663)
2796 309041954 : lu(k,685) = lu(k,685) - lu(k,476) * lu(k,684)
2797 309041954 : lu(k,686) = lu(k,686) - lu(k,477) * lu(k,684)
2798 309041954 : lu(k,687) = lu(k,687) - lu(k,478) * lu(k,684)
2799 309041954 : lu(k,688) = lu(k,688) - lu(k,479) * lu(k,684)
2800 309041954 : lu(k,689) = lu(k,689) - lu(k,480) * lu(k,684)
2801 309041954 : lu(k,690) = lu(k,690) - lu(k,481) * lu(k,684)
2802 309041954 : lu(k,691) = lu(k,691) - lu(k,482) * lu(k,684)
2803 309041954 : lu(k,692) = lu(k,692) - lu(k,483) * lu(k,684)
2804 309041954 : lu(k,693) = lu(k,693) - lu(k,484) * lu(k,684)
2805 309041954 : lu(k,694) = lu(k,694) - lu(k,485) * lu(k,684)
2806 309041954 : lu(k,711) = lu(k,711) - lu(k,476) * lu(k,710)
2807 309041954 : lu(k,712) = lu(k,712) - lu(k,477) * lu(k,710)
2808 309041954 : lu(k,713) = lu(k,713) - lu(k,478) * lu(k,710)
2809 309041954 : lu(k,714) = lu(k,714) - lu(k,479) * lu(k,710)
2810 309041954 : lu(k,715) = lu(k,715) - lu(k,480) * lu(k,710)
2811 309041954 : lu(k,716) = lu(k,716) - lu(k,481) * lu(k,710)
2812 309041954 : lu(k,717) = lu(k,717) - lu(k,482) * lu(k,710)
2813 309041954 : lu(k,718) = lu(k,718) - lu(k,483) * lu(k,710)
2814 309041954 : lu(k,719) = lu(k,719) - lu(k,484) * lu(k,710)
2815 309041954 : lu(k,720) = lu(k,720) - lu(k,485) * lu(k,710)
2816 309041954 : lu(k,736) = lu(k,736) - lu(k,476) * lu(k,735)
2817 309041954 : lu(k,737) = lu(k,737) - lu(k,477) * lu(k,735)
2818 309041954 : lu(k,738) = lu(k,738) - lu(k,478) * lu(k,735)
2819 309041954 : lu(k,739) = lu(k,739) - lu(k,479) * lu(k,735)
2820 309041954 : lu(k,740) = lu(k,740) - lu(k,480) * lu(k,735)
2821 309041954 : lu(k,741) = lu(k,741) - lu(k,481) * lu(k,735)
2822 309041954 : lu(k,742) = lu(k,742) - lu(k,482) * lu(k,735)
2823 309041954 : lu(k,743) = lu(k,743) - lu(k,483) * lu(k,735)
2824 309041954 : lu(k,744) = lu(k,744) - lu(k,484) * lu(k,735)
2825 309041954 : lu(k,745) = lu(k,745) - lu(k,485) * lu(k,735)
2826 309041954 : lu(k,507) = 1._r8 / lu(k,507)
2827 309041954 : lu(k,508) = lu(k,508) * lu(k,507)
2828 309041954 : lu(k,509) = lu(k,509) * lu(k,507)
2829 309041954 : lu(k,510) = lu(k,510) * lu(k,507)
2830 309041954 : lu(k,511) = lu(k,511) * lu(k,507)
2831 309041954 : lu(k,512) = lu(k,512) * lu(k,507)
2832 309041954 : lu(k,513) = lu(k,513) * lu(k,507)
2833 309041954 : lu(k,514) = lu(k,514) * lu(k,507)
2834 309041954 : lu(k,515) = lu(k,515) * lu(k,507)
2835 309041954 : lu(k,516) = lu(k,516) * lu(k,507)
2836 309041954 : lu(k,533) = lu(k,533) - lu(k,508) * lu(k,532)
2837 309041954 : lu(k,534) = lu(k,534) - lu(k,509) * lu(k,532)
2838 309041954 : lu(k,535) = lu(k,535) - lu(k,510) * lu(k,532)
2839 309041954 : lu(k,536) = lu(k,536) - lu(k,511) * lu(k,532)
2840 309041954 : lu(k,537) = lu(k,537) - lu(k,512) * lu(k,532)
2841 309041954 : lu(k,538) = lu(k,538) - lu(k,513) * lu(k,532)
2842 309041954 : lu(k,539) = lu(k,539) - lu(k,514) * lu(k,532)
2843 309041954 : lu(k,540) = lu(k,540) - lu(k,515) * lu(k,532)
2844 309041954 : lu(k,541) = lu(k,541) - lu(k,516) * lu(k,532)
2845 309041954 : lu(k,555) = lu(k,555) - lu(k,508) * lu(k,554)
2846 309041954 : lu(k,556) = lu(k,556) - lu(k,509) * lu(k,554)
2847 309041954 : lu(k,557) = lu(k,557) - lu(k,510) * lu(k,554)
2848 309041954 : lu(k,558) = lu(k,558) - lu(k,511) * lu(k,554)
2849 309041954 : lu(k,559) = lu(k,559) - lu(k,512) * lu(k,554)
2850 309041954 : lu(k,560) = lu(k,560) - lu(k,513) * lu(k,554)
2851 309041954 : lu(k,561) = lu(k,561) - lu(k,514) * lu(k,554)
2852 309041954 : lu(k,562) = lu(k,562) - lu(k,515) * lu(k,554)
2853 309041954 : lu(k,563) = lu(k,563) - lu(k,516) * lu(k,554)
2854 309041954 : lu(k,577) = lu(k,577) - lu(k,508) * lu(k,576)
2855 309041954 : lu(k,578) = lu(k,578) - lu(k,509) * lu(k,576)
2856 309041954 : lu(k,579) = lu(k,579) - lu(k,510) * lu(k,576)
2857 309041954 : lu(k,580) = lu(k,580) - lu(k,511) * lu(k,576)
2858 309041954 : lu(k,581) = lu(k,581) - lu(k,512) * lu(k,576)
2859 309041954 : lu(k,582) = lu(k,582) - lu(k,513) * lu(k,576)
2860 309041954 : lu(k,583) = lu(k,583) - lu(k,514) * lu(k,576)
2861 309041954 : lu(k,584) = lu(k,584) - lu(k,515) * lu(k,576)
2862 309041954 : lu(k,585) = lu(k,585) - lu(k,516) * lu(k,576)
2863 309041954 : lu(k,605) = lu(k,605) - lu(k,508) * lu(k,604)
2864 309041954 : lu(k,606) = lu(k,606) - lu(k,509) * lu(k,604)
2865 309041954 : lu(k,607) = lu(k,607) - lu(k,510) * lu(k,604)
2866 309041954 : lu(k,608) = lu(k,608) - lu(k,511) * lu(k,604)
2867 309041954 : lu(k,609) = lu(k,609) - lu(k,512) * lu(k,604)
2868 309041954 : lu(k,610) = lu(k,610) - lu(k,513) * lu(k,604)
2869 309041954 : lu(k,611) = lu(k,611) - lu(k,514) * lu(k,604)
2870 309041954 : lu(k,612) = lu(k,612) - lu(k,515) * lu(k,604)
2871 309041954 : lu(k,613) = lu(k,613) - lu(k,516) * lu(k,604)
2872 309041954 : lu(k,642) = lu(k,642) - lu(k,508) * lu(k,641)
2873 309041954 : lu(k,643) = lu(k,643) - lu(k,509) * lu(k,641)
2874 309041954 : lu(k,644) = lu(k,644) - lu(k,510) * lu(k,641)
2875 309041954 : lu(k,645) = lu(k,645) - lu(k,511) * lu(k,641)
2876 309041954 : lu(k,646) = lu(k,646) - lu(k,512) * lu(k,641)
2877 309041954 : lu(k,647) = lu(k,647) - lu(k,513) * lu(k,641)
2878 309041954 : lu(k,648) = lu(k,648) - lu(k,514) * lu(k,641)
2879 309041954 : lu(k,649) = lu(k,649) - lu(k,515) * lu(k,641)
2880 309041954 : lu(k,650) = lu(k,650) - lu(k,516) * lu(k,641)
2881 309041954 : lu(k,665) = lu(k,665) - lu(k,508) * lu(k,664)
2882 309041954 : lu(k,666) = lu(k,666) - lu(k,509) * lu(k,664)
2883 309041954 : lu(k,667) = lu(k,667) - lu(k,510) * lu(k,664)
2884 309041954 : lu(k,668) = lu(k,668) - lu(k,511) * lu(k,664)
2885 309041954 : lu(k,669) = lu(k,669) - lu(k,512) * lu(k,664)
2886 309041954 : lu(k,670) = lu(k,670) - lu(k,513) * lu(k,664)
2887 309041954 : lu(k,671) = lu(k,671) - lu(k,514) * lu(k,664)
2888 309041954 : lu(k,672) = lu(k,672) - lu(k,515) * lu(k,664)
2889 309041954 : lu(k,673) = lu(k,673) - lu(k,516) * lu(k,664)
2890 309041954 : lu(k,686) = lu(k,686) - lu(k,508) * lu(k,685)
2891 309041954 : lu(k,687) = lu(k,687) - lu(k,509) * lu(k,685)
2892 309041954 : lu(k,688) = lu(k,688) - lu(k,510) * lu(k,685)
2893 309041954 : lu(k,689) = lu(k,689) - lu(k,511) * lu(k,685)
2894 309041954 : lu(k,690) = lu(k,690) - lu(k,512) * lu(k,685)
2895 309041954 : lu(k,691) = lu(k,691) - lu(k,513) * lu(k,685)
2896 309041954 : lu(k,692) = lu(k,692) - lu(k,514) * lu(k,685)
2897 309041954 : lu(k,693) = lu(k,693) - lu(k,515) * lu(k,685)
2898 309041954 : lu(k,694) = lu(k,694) - lu(k,516) * lu(k,685)
2899 309041954 : lu(k,712) = lu(k,712) - lu(k,508) * lu(k,711)
2900 309041954 : lu(k,713) = lu(k,713) - lu(k,509) * lu(k,711)
2901 309041954 : lu(k,714) = lu(k,714) - lu(k,510) * lu(k,711)
2902 309041954 : lu(k,715) = lu(k,715) - lu(k,511) * lu(k,711)
2903 309041954 : lu(k,716) = lu(k,716) - lu(k,512) * lu(k,711)
2904 309041954 : lu(k,717) = lu(k,717) - lu(k,513) * lu(k,711)
2905 309041954 : lu(k,718) = lu(k,718) - lu(k,514) * lu(k,711)
2906 309041954 : lu(k,719) = lu(k,719) - lu(k,515) * lu(k,711)
2907 309041954 : lu(k,720) = lu(k,720) - lu(k,516) * lu(k,711)
2908 309041954 : lu(k,737) = lu(k,737) - lu(k,508) * lu(k,736)
2909 309041954 : lu(k,738) = lu(k,738) - lu(k,509) * lu(k,736)
2910 309041954 : lu(k,739) = lu(k,739) - lu(k,510) * lu(k,736)
2911 309041954 : lu(k,740) = lu(k,740) - lu(k,511) * lu(k,736)
2912 309041954 : lu(k,741) = lu(k,741) - lu(k,512) * lu(k,736)
2913 309041954 : lu(k,742) = lu(k,742) - lu(k,513) * lu(k,736)
2914 309041954 : lu(k,743) = lu(k,743) - lu(k,514) * lu(k,736)
2915 309041954 : lu(k,744) = lu(k,744) - lu(k,515) * lu(k,736)
2916 309041954 : lu(k,745) = lu(k,745) - lu(k,516) * lu(k,736)
2917 309041954 : lu(k,533) = 1._r8 / lu(k,533)
2918 309041954 : lu(k,534) = lu(k,534) * lu(k,533)
2919 309041954 : lu(k,535) = lu(k,535) * lu(k,533)
2920 309041954 : lu(k,536) = lu(k,536) * lu(k,533)
2921 309041954 : lu(k,537) = lu(k,537) * lu(k,533)
2922 309041954 : lu(k,538) = lu(k,538) * lu(k,533)
2923 309041954 : lu(k,539) = lu(k,539) * lu(k,533)
2924 309041954 : lu(k,540) = lu(k,540) * lu(k,533)
2925 309041954 : lu(k,541) = lu(k,541) * lu(k,533)
2926 309041954 : lu(k,556) = lu(k,556) - lu(k,534) * lu(k,555)
2927 309041954 : lu(k,557) = lu(k,557) - lu(k,535) * lu(k,555)
2928 309041954 : lu(k,558) = lu(k,558) - lu(k,536) * lu(k,555)
2929 309041954 : lu(k,559) = lu(k,559) - lu(k,537) * lu(k,555)
2930 309041954 : lu(k,560) = lu(k,560) - lu(k,538) * lu(k,555)
2931 309041954 : lu(k,561) = lu(k,561) - lu(k,539) * lu(k,555)
2932 309041954 : lu(k,562) = lu(k,562) - lu(k,540) * lu(k,555)
2933 309041954 : lu(k,563) = lu(k,563) - lu(k,541) * lu(k,555)
2934 309041954 : lu(k,578) = lu(k,578) - lu(k,534) * lu(k,577)
2935 309041954 : lu(k,579) = lu(k,579) - lu(k,535) * lu(k,577)
2936 309041954 : lu(k,580) = lu(k,580) - lu(k,536) * lu(k,577)
2937 309041954 : lu(k,581) = lu(k,581) - lu(k,537) * lu(k,577)
2938 309041954 : lu(k,582) = lu(k,582) - lu(k,538) * lu(k,577)
2939 309041954 : lu(k,583) = lu(k,583) - lu(k,539) * lu(k,577)
2940 309041954 : lu(k,584) = lu(k,584) - lu(k,540) * lu(k,577)
2941 309041954 : lu(k,585) = lu(k,585) - lu(k,541) * lu(k,577)
2942 309041954 : lu(k,606) = lu(k,606) - lu(k,534) * lu(k,605)
2943 309041954 : lu(k,607) = lu(k,607) - lu(k,535) * lu(k,605)
2944 309041954 : lu(k,608) = lu(k,608) - lu(k,536) * lu(k,605)
2945 309041954 : lu(k,609) = lu(k,609) - lu(k,537) * lu(k,605)
2946 309041954 : lu(k,610) = lu(k,610) - lu(k,538) * lu(k,605)
2947 309041954 : lu(k,611) = lu(k,611) - lu(k,539) * lu(k,605)
2948 309041954 : lu(k,612) = lu(k,612) - lu(k,540) * lu(k,605)
2949 309041954 : lu(k,613) = lu(k,613) - lu(k,541) * lu(k,605)
2950 309041954 : lu(k,643) = lu(k,643) - lu(k,534) * lu(k,642)
2951 309041954 : lu(k,644) = lu(k,644) - lu(k,535) * lu(k,642)
2952 309041954 : lu(k,645) = lu(k,645) - lu(k,536) * lu(k,642)
2953 309041954 : lu(k,646) = lu(k,646) - lu(k,537) * lu(k,642)
2954 309041954 : lu(k,647) = lu(k,647) - lu(k,538) * lu(k,642)
2955 309041954 : lu(k,648) = lu(k,648) - lu(k,539) * lu(k,642)
2956 309041954 : lu(k,649) = lu(k,649) - lu(k,540) * lu(k,642)
2957 309041954 : lu(k,650) = lu(k,650) - lu(k,541) * lu(k,642)
2958 309041954 : lu(k,666) = lu(k,666) - lu(k,534) * lu(k,665)
2959 309041954 : lu(k,667) = lu(k,667) - lu(k,535) * lu(k,665)
2960 309041954 : lu(k,668) = lu(k,668) - lu(k,536) * lu(k,665)
2961 309041954 : lu(k,669) = lu(k,669) - lu(k,537) * lu(k,665)
2962 309041954 : lu(k,670) = lu(k,670) - lu(k,538) * lu(k,665)
2963 309041954 : lu(k,671) = lu(k,671) - lu(k,539) * lu(k,665)
2964 309041954 : lu(k,672) = lu(k,672) - lu(k,540) * lu(k,665)
2965 309041954 : lu(k,673) = lu(k,673) - lu(k,541) * lu(k,665)
2966 309041954 : lu(k,687) = lu(k,687) - lu(k,534) * lu(k,686)
2967 309041954 : lu(k,688) = lu(k,688) - lu(k,535) * lu(k,686)
2968 309041954 : lu(k,689) = lu(k,689) - lu(k,536) * lu(k,686)
2969 309041954 : lu(k,690) = lu(k,690) - lu(k,537) * lu(k,686)
2970 309041954 : lu(k,691) = lu(k,691) - lu(k,538) * lu(k,686)
2971 309041954 : lu(k,692) = lu(k,692) - lu(k,539) * lu(k,686)
2972 309041954 : lu(k,693) = lu(k,693) - lu(k,540) * lu(k,686)
2973 309041954 : lu(k,694) = lu(k,694) - lu(k,541) * lu(k,686)
2974 309041954 : lu(k,713) = lu(k,713) - lu(k,534) * lu(k,712)
2975 309041954 : lu(k,714) = lu(k,714) - lu(k,535) * lu(k,712)
2976 309041954 : lu(k,715) = lu(k,715) - lu(k,536) * lu(k,712)
2977 309041954 : lu(k,716) = lu(k,716) - lu(k,537) * lu(k,712)
2978 309041954 : lu(k,717) = lu(k,717) - lu(k,538) * lu(k,712)
2979 309041954 : lu(k,718) = lu(k,718) - lu(k,539) * lu(k,712)
2980 309041954 : lu(k,719) = lu(k,719) - lu(k,540) * lu(k,712)
2981 309041954 : lu(k,720) = lu(k,720) - lu(k,541) * lu(k,712)
2982 309041954 : lu(k,738) = lu(k,738) - lu(k,534) * lu(k,737)
2983 309041954 : lu(k,739) = lu(k,739) - lu(k,535) * lu(k,737)
2984 309041954 : lu(k,740) = lu(k,740) - lu(k,536) * lu(k,737)
2985 309041954 : lu(k,741) = lu(k,741) - lu(k,537) * lu(k,737)
2986 309041954 : lu(k,742) = lu(k,742) - lu(k,538) * lu(k,737)
2987 309041954 : lu(k,743) = lu(k,743) - lu(k,539) * lu(k,737)
2988 309041954 : lu(k,744) = lu(k,744) - lu(k,540) * lu(k,737)
2989 309041954 : lu(k,745) = lu(k,745) - lu(k,541) * lu(k,737)
2990 309041954 : lu(k,556) = 1._r8 / lu(k,556)
2991 309041954 : lu(k,557) = lu(k,557) * lu(k,556)
2992 309041954 : lu(k,558) = lu(k,558) * lu(k,556)
2993 309041954 : lu(k,559) = lu(k,559) * lu(k,556)
2994 309041954 : lu(k,560) = lu(k,560) * lu(k,556)
2995 309041954 : lu(k,561) = lu(k,561) * lu(k,556)
2996 309041954 : lu(k,562) = lu(k,562) * lu(k,556)
2997 309041954 : lu(k,563) = lu(k,563) * lu(k,556)
2998 309041954 : lu(k,579) = lu(k,579) - lu(k,557) * lu(k,578)
2999 309041954 : lu(k,580) = lu(k,580) - lu(k,558) * lu(k,578)
3000 309041954 : lu(k,581) = lu(k,581) - lu(k,559) * lu(k,578)
3001 309041954 : lu(k,582) = lu(k,582) - lu(k,560) * lu(k,578)
3002 309041954 : lu(k,583) = lu(k,583) - lu(k,561) * lu(k,578)
3003 309041954 : lu(k,584) = lu(k,584) - lu(k,562) * lu(k,578)
3004 309041954 : lu(k,585) = lu(k,585) - lu(k,563) * lu(k,578)
3005 309041954 : lu(k,607) = lu(k,607) - lu(k,557) * lu(k,606)
3006 309041954 : lu(k,608) = lu(k,608) - lu(k,558) * lu(k,606)
3007 309041954 : lu(k,609) = lu(k,609) - lu(k,559) * lu(k,606)
3008 309041954 : lu(k,610) = lu(k,610) - lu(k,560) * lu(k,606)
3009 309041954 : lu(k,611) = lu(k,611) - lu(k,561) * lu(k,606)
3010 309041954 : lu(k,612) = lu(k,612) - lu(k,562) * lu(k,606)
3011 309041954 : lu(k,613) = lu(k,613) - lu(k,563) * lu(k,606)
3012 309041954 : lu(k,644) = lu(k,644) - lu(k,557) * lu(k,643)
3013 309041954 : lu(k,645) = lu(k,645) - lu(k,558) * lu(k,643)
3014 309041954 : lu(k,646) = lu(k,646) - lu(k,559) * lu(k,643)
3015 309041954 : lu(k,647) = lu(k,647) - lu(k,560) * lu(k,643)
3016 309041954 : lu(k,648) = lu(k,648) - lu(k,561) * lu(k,643)
3017 309041954 : lu(k,649) = lu(k,649) - lu(k,562) * lu(k,643)
3018 309041954 : lu(k,650) = lu(k,650) - lu(k,563) * lu(k,643)
3019 309041954 : lu(k,667) = lu(k,667) - lu(k,557) * lu(k,666)
3020 309041954 : lu(k,668) = lu(k,668) - lu(k,558) * lu(k,666)
3021 309041954 : lu(k,669) = lu(k,669) - lu(k,559) * lu(k,666)
3022 309041954 : lu(k,670) = lu(k,670) - lu(k,560) * lu(k,666)
3023 309041954 : lu(k,671) = lu(k,671) - lu(k,561) * lu(k,666)
3024 309041954 : lu(k,672) = lu(k,672) - lu(k,562) * lu(k,666)
3025 309041954 : lu(k,673) = lu(k,673) - lu(k,563) * lu(k,666)
3026 309041954 : lu(k,688) = lu(k,688) - lu(k,557) * lu(k,687)
3027 309041954 : lu(k,689) = lu(k,689) - lu(k,558) * lu(k,687)
3028 309041954 : lu(k,690) = lu(k,690) - lu(k,559) * lu(k,687)
3029 309041954 : lu(k,691) = lu(k,691) - lu(k,560) * lu(k,687)
3030 309041954 : lu(k,692) = lu(k,692) - lu(k,561) * lu(k,687)
3031 309041954 : lu(k,693) = lu(k,693) - lu(k,562) * lu(k,687)
3032 309041954 : lu(k,694) = lu(k,694) - lu(k,563) * lu(k,687)
3033 309041954 : lu(k,714) = lu(k,714) - lu(k,557) * lu(k,713)
3034 309041954 : lu(k,715) = lu(k,715) - lu(k,558) * lu(k,713)
3035 309041954 : lu(k,716) = lu(k,716) - lu(k,559) * lu(k,713)
3036 309041954 : lu(k,717) = lu(k,717) - lu(k,560) * lu(k,713)
3037 309041954 : lu(k,718) = lu(k,718) - lu(k,561) * lu(k,713)
3038 309041954 : lu(k,719) = lu(k,719) - lu(k,562) * lu(k,713)
3039 309041954 : lu(k,720) = lu(k,720) - lu(k,563) * lu(k,713)
3040 309041954 : lu(k,739) = lu(k,739) - lu(k,557) * lu(k,738)
3041 309041954 : lu(k,740) = lu(k,740) - lu(k,558) * lu(k,738)
3042 309041954 : lu(k,741) = lu(k,741) - lu(k,559) * lu(k,738)
3043 309041954 : lu(k,742) = lu(k,742) - lu(k,560) * lu(k,738)
3044 309041954 : lu(k,743) = lu(k,743) - lu(k,561) * lu(k,738)
3045 309041954 : lu(k,744) = lu(k,744) - lu(k,562) * lu(k,738)
3046 309041954 : lu(k,745) = lu(k,745) - lu(k,563) * lu(k,738)
3047 309041954 : lu(k,579) = 1._r8 / lu(k,579)
3048 309041954 : lu(k,580) = lu(k,580) * lu(k,579)
3049 309041954 : lu(k,581) = lu(k,581) * lu(k,579)
3050 309041954 : lu(k,582) = lu(k,582) * lu(k,579)
3051 309041954 : lu(k,583) = lu(k,583) * lu(k,579)
3052 309041954 : lu(k,584) = lu(k,584) * lu(k,579)
3053 309041954 : lu(k,585) = lu(k,585) * lu(k,579)
3054 309041954 : lu(k,608) = lu(k,608) - lu(k,580) * lu(k,607)
3055 309041954 : lu(k,609) = lu(k,609) - lu(k,581) * lu(k,607)
3056 309041954 : lu(k,610) = lu(k,610) - lu(k,582) * lu(k,607)
3057 309041954 : lu(k,611) = lu(k,611) - lu(k,583) * lu(k,607)
3058 309041954 : lu(k,612) = lu(k,612) - lu(k,584) * lu(k,607)
3059 309041954 : lu(k,613) = lu(k,613) - lu(k,585) * lu(k,607)
3060 309041954 : lu(k,645) = lu(k,645) - lu(k,580) * lu(k,644)
3061 309041954 : lu(k,646) = lu(k,646) - lu(k,581) * lu(k,644)
3062 309041954 : lu(k,647) = lu(k,647) - lu(k,582) * lu(k,644)
3063 309041954 : lu(k,648) = lu(k,648) - lu(k,583) * lu(k,644)
3064 309041954 : lu(k,649) = lu(k,649) - lu(k,584) * lu(k,644)
3065 309041954 : lu(k,650) = lu(k,650) - lu(k,585) * lu(k,644)
3066 309041954 : lu(k,668) = lu(k,668) - lu(k,580) * lu(k,667)
3067 309041954 : lu(k,669) = lu(k,669) - lu(k,581) * lu(k,667)
3068 309041954 : lu(k,670) = lu(k,670) - lu(k,582) * lu(k,667)
3069 309041954 : lu(k,671) = lu(k,671) - lu(k,583) * lu(k,667)
3070 309041954 : lu(k,672) = lu(k,672) - lu(k,584) * lu(k,667)
3071 309041954 : lu(k,673) = lu(k,673) - lu(k,585) * lu(k,667)
3072 309041954 : lu(k,689) = lu(k,689) - lu(k,580) * lu(k,688)
3073 309041954 : lu(k,690) = lu(k,690) - lu(k,581) * lu(k,688)
3074 309041954 : lu(k,691) = lu(k,691) - lu(k,582) * lu(k,688)
3075 309041954 : lu(k,692) = lu(k,692) - lu(k,583) * lu(k,688)
3076 309041954 : lu(k,693) = lu(k,693) - lu(k,584) * lu(k,688)
3077 309041954 : lu(k,694) = lu(k,694) - lu(k,585) * lu(k,688)
3078 309041954 : lu(k,715) = lu(k,715) - lu(k,580) * lu(k,714)
3079 309041954 : lu(k,716) = lu(k,716) - lu(k,581) * lu(k,714)
3080 309041954 : lu(k,717) = lu(k,717) - lu(k,582) * lu(k,714)
3081 309041954 : lu(k,718) = lu(k,718) - lu(k,583) * lu(k,714)
3082 309041954 : lu(k,719) = lu(k,719) - lu(k,584) * lu(k,714)
3083 309041954 : lu(k,720) = lu(k,720) - lu(k,585) * lu(k,714)
3084 309041954 : lu(k,740) = lu(k,740) - lu(k,580) * lu(k,739)
3085 309041954 : lu(k,741) = lu(k,741) - lu(k,581) * lu(k,739)
3086 309041954 : lu(k,742) = lu(k,742) - lu(k,582) * lu(k,739)
3087 309041954 : lu(k,743) = lu(k,743) - lu(k,583) * lu(k,739)
3088 309041954 : lu(k,744) = lu(k,744) - lu(k,584) * lu(k,739)
3089 318792954 : lu(k,745) = lu(k,745) - lu(k,585) * lu(k,739)
3090 : end do
3091 9751000 : end subroutine lu_fac09
3092 9751000 : subroutine lu_fac10( avec_len, lu )
3093 : use chem_mods, only : nzcnt
3094 : use shr_kind_mod, only : r8 => shr_kind_r8
3095 : implicit none
3096 : !-----------------------------------------------------------------------
3097 : ! ... dummy args
3098 : !-----------------------------------------------------------------------
3099 : integer, intent(in) :: avec_len
3100 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3101 : !-----------------------------------------------------------------------
3102 : ! ... local variables
3103 : !-----------------------------------------------------------------------
3104 : integer :: k
3105 318792954 : do k = 1,avec_len
3106 309041954 : lu(k,608) = 1._r8 / lu(k,608)
3107 309041954 : lu(k,609) = lu(k,609) * lu(k,608)
3108 309041954 : lu(k,610) = lu(k,610) * lu(k,608)
3109 309041954 : lu(k,611) = lu(k,611) * lu(k,608)
3110 309041954 : lu(k,612) = lu(k,612) * lu(k,608)
3111 309041954 : lu(k,613) = lu(k,613) * lu(k,608)
3112 309041954 : lu(k,646) = lu(k,646) - lu(k,609) * lu(k,645)
3113 309041954 : lu(k,647) = lu(k,647) - lu(k,610) * lu(k,645)
3114 309041954 : lu(k,648) = lu(k,648) - lu(k,611) * lu(k,645)
3115 309041954 : lu(k,649) = lu(k,649) - lu(k,612) * lu(k,645)
3116 309041954 : lu(k,650) = lu(k,650) - lu(k,613) * lu(k,645)
3117 309041954 : lu(k,669) = lu(k,669) - lu(k,609) * lu(k,668)
3118 309041954 : lu(k,670) = lu(k,670) - lu(k,610) * lu(k,668)
3119 309041954 : lu(k,671) = lu(k,671) - lu(k,611) * lu(k,668)
3120 309041954 : lu(k,672) = lu(k,672) - lu(k,612) * lu(k,668)
3121 309041954 : lu(k,673) = lu(k,673) - lu(k,613) * lu(k,668)
3122 309041954 : lu(k,690) = lu(k,690) - lu(k,609) * lu(k,689)
3123 309041954 : lu(k,691) = lu(k,691) - lu(k,610) * lu(k,689)
3124 309041954 : lu(k,692) = lu(k,692) - lu(k,611) * lu(k,689)
3125 309041954 : lu(k,693) = lu(k,693) - lu(k,612) * lu(k,689)
3126 309041954 : lu(k,694) = lu(k,694) - lu(k,613) * lu(k,689)
3127 309041954 : lu(k,716) = lu(k,716) - lu(k,609) * lu(k,715)
3128 309041954 : lu(k,717) = lu(k,717) - lu(k,610) * lu(k,715)
3129 309041954 : lu(k,718) = lu(k,718) - lu(k,611) * lu(k,715)
3130 309041954 : lu(k,719) = lu(k,719) - lu(k,612) * lu(k,715)
3131 309041954 : lu(k,720) = lu(k,720) - lu(k,613) * lu(k,715)
3132 309041954 : lu(k,741) = lu(k,741) - lu(k,609) * lu(k,740)
3133 309041954 : lu(k,742) = lu(k,742) - lu(k,610) * lu(k,740)
3134 309041954 : lu(k,743) = lu(k,743) - lu(k,611) * lu(k,740)
3135 309041954 : lu(k,744) = lu(k,744) - lu(k,612) * lu(k,740)
3136 309041954 : lu(k,745) = lu(k,745) - lu(k,613) * lu(k,740)
3137 309041954 : lu(k,646) = 1._r8 / lu(k,646)
3138 309041954 : lu(k,647) = lu(k,647) * lu(k,646)
3139 309041954 : lu(k,648) = lu(k,648) * lu(k,646)
3140 309041954 : lu(k,649) = lu(k,649) * lu(k,646)
3141 309041954 : lu(k,650) = lu(k,650) * lu(k,646)
3142 309041954 : lu(k,670) = lu(k,670) - lu(k,647) * lu(k,669)
3143 309041954 : lu(k,671) = lu(k,671) - lu(k,648) * lu(k,669)
3144 309041954 : lu(k,672) = lu(k,672) - lu(k,649) * lu(k,669)
3145 309041954 : lu(k,673) = lu(k,673) - lu(k,650) * lu(k,669)
3146 309041954 : lu(k,691) = lu(k,691) - lu(k,647) * lu(k,690)
3147 309041954 : lu(k,692) = lu(k,692) - lu(k,648) * lu(k,690)
3148 309041954 : lu(k,693) = lu(k,693) - lu(k,649) * lu(k,690)
3149 309041954 : lu(k,694) = lu(k,694) - lu(k,650) * lu(k,690)
3150 309041954 : lu(k,717) = lu(k,717) - lu(k,647) * lu(k,716)
3151 309041954 : lu(k,718) = lu(k,718) - lu(k,648) * lu(k,716)
3152 309041954 : lu(k,719) = lu(k,719) - lu(k,649) * lu(k,716)
3153 309041954 : lu(k,720) = lu(k,720) - lu(k,650) * lu(k,716)
3154 309041954 : lu(k,742) = lu(k,742) - lu(k,647) * lu(k,741)
3155 309041954 : lu(k,743) = lu(k,743) - lu(k,648) * lu(k,741)
3156 309041954 : lu(k,744) = lu(k,744) - lu(k,649) * lu(k,741)
3157 309041954 : lu(k,745) = lu(k,745) - lu(k,650) * lu(k,741)
3158 309041954 : lu(k,670) = 1._r8 / lu(k,670)
3159 309041954 : lu(k,671) = lu(k,671) * lu(k,670)
3160 309041954 : lu(k,672) = lu(k,672) * lu(k,670)
3161 309041954 : lu(k,673) = lu(k,673) * lu(k,670)
3162 309041954 : lu(k,692) = lu(k,692) - lu(k,671) * lu(k,691)
3163 309041954 : lu(k,693) = lu(k,693) - lu(k,672) * lu(k,691)
3164 309041954 : lu(k,694) = lu(k,694) - lu(k,673) * lu(k,691)
3165 309041954 : lu(k,718) = lu(k,718) - lu(k,671) * lu(k,717)
3166 309041954 : lu(k,719) = lu(k,719) - lu(k,672) * lu(k,717)
3167 309041954 : lu(k,720) = lu(k,720) - lu(k,673) * lu(k,717)
3168 309041954 : lu(k,743) = lu(k,743) - lu(k,671) * lu(k,742)
3169 309041954 : lu(k,744) = lu(k,744) - lu(k,672) * lu(k,742)
3170 309041954 : lu(k,745) = lu(k,745) - lu(k,673) * lu(k,742)
3171 309041954 : lu(k,692) = 1._r8 / lu(k,692)
3172 309041954 : lu(k,693) = lu(k,693) * lu(k,692)
3173 309041954 : lu(k,694) = lu(k,694) * lu(k,692)
3174 309041954 : lu(k,719) = lu(k,719) - lu(k,693) * lu(k,718)
3175 309041954 : lu(k,720) = lu(k,720) - lu(k,694) * lu(k,718)
3176 309041954 : lu(k,744) = lu(k,744) - lu(k,693) * lu(k,743)
3177 309041954 : lu(k,745) = lu(k,745) - lu(k,694) * lu(k,743)
3178 309041954 : lu(k,719) = 1._r8 / lu(k,719)
3179 309041954 : lu(k,720) = lu(k,720) * lu(k,719)
3180 309041954 : lu(k,745) = lu(k,745) - lu(k,720) * lu(k,744)
3181 318792954 : lu(k,745) = 1._r8 / lu(k,745)
3182 : end do
3183 9751000 : end subroutine lu_fac10
3184 9751000 : subroutine lu_fac( avec_len, lu )
3185 : use chem_mods, only : nzcnt
3186 : use shr_kind_mod, only : r8 => shr_kind_r8
3187 : implicit none
3188 : !-----------------------------------------------------------------------
3189 : ! ... dummy args
3190 : !-----------------------------------------------------------------------
3191 : integer, intent(in) :: avec_len
3192 : real(r8), intent(inout) :: lu(veclen,nzcnt)
3193 9751000 : call lu_fac01( avec_len, lu )
3194 9751000 : call lu_fac02( avec_len, lu )
3195 9751000 : call lu_fac03( avec_len, lu )
3196 9751000 : call lu_fac04( avec_len, lu )
3197 9751000 : call lu_fac05( avec_len, lu )
3198 9751000 : call lu_fac06( avec_len, lu )
3199 9751000 : call lu_fac07( avec_len, lu )
3200 9751000 : call lu_fac08( avec_len, lu )
3201 9751000 : call lu_fac09( avec_len, lu )
3202 9751000 : call lu_fac10( avec_len, lu )
3203 9751000 : end subroutine lu_fac
3204 : end module mo_lu_factor
|