LCOV - code coverage report
Current view: top level - chemistry/pp_waccm_mad_mam5 - mo_lu_factor.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 13912 13912 100.0 %
Date: 2025-03-14 01:26:08 Functions: 27 27 100.0 %

          Line data    Source code
       1             :       module mo_lu_factor
       2             :       use chem_mods, only: veclen
       3             :       private
       4             :       public :: lu_fac
       5             :       contains
       6     3585597 :       subroutine lu_fac01( avec_len, lu )
       7             :       use chem_mods, only : nzcnt
       8             :       use shr_kind_mod, only : r8 => shr_kind_r8
       9             :       implicit none
      10             : !-----------------------------------------------------------------------
      11             : ! ... dummy args
      12             : !-----------------------------------------------------------------------
      13             :       integer, intent(in) :: avec_len
      14             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
      15             : !-----------------------------------------------------------------------
      16             : ! ... local variables
      17             : !-----------------------------------------------------------------------
      18             :       integer :: k
      19   117656469 :       do k = 1,avec_len
      20   114070872 :          lu(k,1) = 1._r8 / lu(k,1)
      21   114070872 :          lu(k,2) = 1._r8 / lu(k,2)
      22   114070872 :          lu(k,3) = 1._r8 / lu(k,3)
      23   114070872 :          lu(k,4) = 1._r8 / lu(k,4)
      24   114070872 :          lu(k,5) = 1._r8 / lu(k,5)
      25   114070872 :          lu(k,6) = 1._r8 / lu(k,6)
      26   114070872 :          lu(k,7) = 1._r8 / lu(k,7)
      27   114070872 :          lu(k,8) = 1._r8 / lu(k,8)
      28   114070872 :          lu(k,9) = 1._r8 / lu(k,9)
      29   114070872 :          lu(k,10) = 1._r8 / lu(k,10)
      30   114070872 :          lu(k,11) = 1._r8 / lu(k,11)
      31   114070872 :          lu(k,12) = 1._r8 / lu(k,12)
      32   114070872 :          lu(k,13) = 1._r8 / lu(k,13)
      33   114070872 :          lu(k,14) = 1._r8 / lu(k,14)
      34   114070872 :          lu(k,15) = 1._r8 / lu(k,15)
      35   114070872 :          lu(k,16) = 1._r8 / lu(k,16)
      36   114070872 :          lu(k,17) = 1._r8 / lu(k,17)
      37   114070872 :          lu(k,18) = 1._r8 / lu(k,18)
      38   114070872 :          lu(k,19) = 1._r8 / lu(k,19)
      39   114070872 :          lu(k,20) = 1._r8 / lu(k,20)
      40   114070872 :          lu(k,21) = 1._r8 / lu(k,21)
      41   114070872 :          lu(k,22) = 1._r8 / lu(k,22)
      42   114070872 :          lu(k,23) = 1._r8 / lu(k,23)
      43   114070872 :          lu(k,24) = 1._r8 / lu(k,24)
      44   114070872 :          lu(k,25) = 1._r8 / lu(k,25)
      45   114070872 :          lu(k,26) = 1._r8 / lu(k,26)
      46   114070872 :          lu(k,27) = lu(k,27) * lu(k,26)
      47   114070872 :          lu(k,28) = lu(k,28) * lu(k,26)
      48   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,27) * lu(k,1082)
      49   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,28) * lu(k,1082)
      50   114070872 :          lu(k,29) = 1._r8 / lu(k,29)
      51   114070872 :          lu(k,30) = lu(k,30) * lu(k,29)
      52   114070872 :          lu(k,31) = lu(k,31) * lu(k,29)
      53   114070872 :          lu(k,787) = lu(k,787) - lu(k,30) * lu(k,758)
      54   114070872 :          lu(k,796) = lu(k,796) - lu(k,31) * lu(k,758)
      55   114070872 :          lu(k,32) = 1._r8 / lu(k,32)
      56   114070872 :          lu(k,33) = lu(k,33) * lu(k,32)
      57   114070872 :          lu(k,34) = lu(k,34) * lu(k,32)
      58   114070872 :          lu(k,35) = lu(k,35) * lu(k,32)
      59   114070872 :          lu(k,767) = lu(k,767) - lu(k,33) * lu(k,759)
      60   114070872 :          lu(k,783) = lu(k,783) - lu(k,34) * lu(k,759)
      61   114070872 :          lu(k,787) = lu(k,787) - lu(k,35) * lu(k,759)
      62   114070872 :          lu(k,36) = 1._r8 / lu(k,36)
      63   114070872 :          lu(k,37) = lu(k,37) * lu(k,36)
      64   114070872 :          lu(k,38) = lu(k,38) * lu(k,36)
      65   114070872 :          lu(k,39) = lu(k,39) * lu(k,36)
      66   114070872 :          lu(k,769) = lu(k,769) - lu(k,37) * lu(k,760)
      67   114070872 :          lu(k,787) = lu(k,787) - lu(k,38) * lu(k,760)
      68   114070872 :          lu(k,796) = lu(k,796) - lu(k,39) * lu(k,760)
      69   114070872 :          lu(k,40) = 1._r8 / lu(k,40)
      70   114070872 :          lu(k,41) = lu(k,41) * lu(k,40)
      71   114070872 :          lu(k,42) = lu(k,42) * lu(k,40)
      72   114070872 :          lu(k,43) = lu(k,43) * lu(k,40)
      73   114070872 :          lu(k,767) = lu(k,767) - lu(k,41) * lu(k,761)
      74   114070872 :          lu(k,787) = lu(k,787) - lu(k,42) * lu(k,761)
      75   114070872 :          lu(k,796) = lu(k,796) - lu(k,43) * lu(k,761)
      76   114070872 :          lu(k,44) = 1._r8 / lu(k,44)
      77   114070872 :          lu(k,45) = lu(k,45) * lu(k,44)
      78   114070872 :          lu(k,46) = lu(k,46) * lu(k,44)
      79   114070872 :          lu(k,47) = lu(k,47) * lu(k,44)
      80   114070872 :          lu(k,767) = lu(k,767) - lu(k,45) * lu(k,762)
      81   114070872 :          lu(k,787) = lu(k,787) - lu(k,46) * lu(k,762)
      82   114070872 :          lu(k,796) = lu(k,796) - lu(k,47) * lu(k,762)
      83   114070872 :          lu(k,48) = 1._r8 / lu(k,48)
      84   114070872 :          lu(k,49) = lu(k,49) * lu(k,48)
      85   114070872 :          lu(k,50) = lu(k,50) * lu(k,48)
      86   114070872 :          lu(k,51) = lu(k,51) * lu(k,48)
      87   114070872 :          lu(k,984) = lu(k,984) - lu(k,49) * lu(k,949)
      88   114070872 :          lu(k,993) = lu(k,993) - lu(k,50) * lu(k,949)
      89   117656469 :          lu(k,1005) = lu(k,1005) - lu(k,51) * lu(k,949)
      90             :       end do
      91     3585597 :       end subroutine lu_fac01
      92     3585597 :       subroutine lu_fac02( avec_len, lu )
      93             :       use chem_mods, only : nzcnt
      94             :       use shr_kind_mod, only : r8 => shr_kind_r8
      95             :       implicit none
      96             : !-----------------------------------------------------------------------
      97             : ! ... dummy args
      98             : !-----------------------------------------------------------------------
      99             :       integer, intent(in) :: avec_len
     100             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     101             : !-----------------------------------------------------------------------
     102             : ! ... local variables
     103             : !-----------------------------------------------------------------------
     104             :       integer :: k
     105   117656469 :       do k = 1,avec_len
     106   114070872 :          lu(k,52) = 1._r8 / lu(k,52)
     107   114070872 :          lu(k,53) = lu(k,53) * lu(k,52)
     108   114070872 :          lu(k,54) = lu(k,54) * lu(k,52)
     109   114070872 :          lu(k,103) = lu(k,103) - lu(k,53) * lu(k,102)
     110   114070872 :          lu(k,106) = lu(k,106) - lu(k,54) * lu(k,102)
     111   114070872 :          lu(k,2032) = lu(k,2032) - lu(k,53) * lu(k,2031)
     112   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,54) * lu(k,2031)
     113   114070872 :          lu(k,55) = 1._r8 / lu(k,55)
     114   114070872 :          lu(k,56) = lu(k,56) * lu(k,55)
     115   114070872 :          lu(k,57) = lu(k,57) * lu(k,55)
     116   114070872 :          lu(k,58) = lu(k,58) * lu(k,55)
     117   114070872 :          lu(k,59) = lu(k,59) * lu(k,55)
     118   114070872 :          lu(k,767) = lu(k,767) - lu(k,56) * lu(k,763)
     119   114070872 :          lu(k,783) = lu(k,783) - lu(k,57) * lu(k,763)
     120   114070872 :          lu(k,787) = lu(k,787) - lu(k,58) * lu(k,763)
     121   114070872 :          lu(k,796) = lu(k,796) - lu(k,59) * lu(k,763)
     122   114070872 :          lu(k,60) = 1._r8 / lu(k,60)
     123   114070872 :          lu(k,61) = lu(k,61) * lu(k,60)
     124   114070872 :          lu(k,62) = lu(k,62) * lu(k,60)
     125   114070872 :          lu(k,63) = lu(k,63) * lu(k,60)
     126   114070872 :          lu(k,64) = lu(k,64) * lu(k,60)
     127   114070872 :          lu(k,767) = lu(k,767) - lu(k,61) * lu(k,764)
     128   114070872 :          lu(k,778) = lu(k,778) - lu(k,62) * lu(k,764)
     129   114070872 :          lu(k,783) = lu(k,783) - lu(k,63) * lu(k,764)
     130   114070872 :          lu(k,787) = lu(k,787) - lu(k,64) * lu(k,764)
     131   114070872 :          lu(k,65) = 1._r8 / lu(k,65)
     132   114070872 :          lu(k,66) = lu(k,66) * lu(k,65)
     133   114070872 :          lu(k,67) = lu(k,67) * lu(k,65)
     134   114070872 :          lu(k,68) = lu(k,68) * lu(k,65)
     135   114070872 :          lu(k,69) = lu(k,69) * lu(k,65)
     136   114070872 :          lu(k,767) = lu(k,767) - lu(k,66) * lu(k,765)
     137   114070872 :          lu(k,769) = lu(k,769) - lu(k,67) * lu(k,765)
     138   114070872 :          lu(k,787) = lu(k,787) - lu(k,68) * lu(k,765)
     139   114070872 :          lu(k,796) = lu(k,796) - lu(k,69) * lu(k,765)
     140   114070872 :          lu(k,70) = 1._r8 / lu(k,70)
     141   114070872 :          lu(k,71) = lu(k,71) * lu(k,70)
     142   114070872 :          lu(k,72) = lu(k,72) * lu(k,70)
     143   114070872 :          lu(k,73) = lu(k,73) * lu(k,70)
     144   114070872 :          lu(k,74) = lu(k,74) * lu(k,70)
     145   114070872 :          lu(k,767) = lu(k,767) - lu(k,71) * lu(k,766)
     146   114070872 :          lu(k,778) = lu(k,778) - lu(k,72) * lu(k,766)
     147   114070872 :          lu(k,787) = lu(k,787) - lu(k,73) * lu(k,766)
     148   114070872 :          lu(k,796) = lu(k,796) - lu(k,74) * lu(k,766)
     149   114070872 :          lu(k,75) = 1._r8 / lu(k,75)
     150   114070872 :          lu(k,76) = lu(k,76) * lu(k,75)
     151   114070872 :          lu(k,337) = lu(k,337) - lu(k,76) * lu(k,332)
     152   114070872 :          lu(k,363) = lu(k,363) - lu(k,76) * lu(k,357)
     153   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,76) * lu(k,1083)
     154   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,76) * lu(k,1454)
     155   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,76) * lu(k,1986)
     156   114070872 :          lu(k,77) = 1._r8 / lu(k,77)
     157   114070872 :          lu(k,78) = lu(k,78) * lu(k,77)
     158   114070872 :          lu(k,79) = lu(k,79) * lu(k,77)
     159   114070872 :          lu(k,91) = - lu(k,78) * lu(k,89)
     160   114070872 :          lu(k,92) = lu(k,92) - lu(k,79) * lu(k,89)
     161   114070872 :          lu(k,117) = - lu(k,78) * lu(k,115)
     162   114070872 :          lu(k,118) = lu(k,118) - lu(k,79) * lu(k,115)
     163   114070872 :          lu(k,778) = lu(k,778) - lu(k,78) * lu(k,767)
     164   114070872 :          lu(k,787) = lu(k,787) - lu(k,79) * lu(k,767)
     165   114070872 :          lu(k,971) = - lu(k,78) * lu(k,950)
     166   114070872 :          lu(k,982) = - lu(k,79) * lu(k,950)
     167   114070872 :          lu(k,80) = 1._r8 / lu(k,80)
     168   114070872 :          lu(k,81) = lu(k,81) * lu(k,80)
     169   114070872 :          lu(k,82) = lu(k,82) * lu(k,80)
     170   114070872 :          lu(k,83) = lu(k,83) * lu(k,80)
     171   114070872 :          lu(k,84) = lu(k,84) * lu(k,80)
     172   114070872 :          lu(k,769) = lu(k,769) - lu(k,81) * lu(k,768)
     173   114070872 :          lu(k,787) = lu(k,787) - lu(k,82) * lu(k,768)
     174   114070872 :          lu(k,789) = lu(k,789) - lu(k,83) * lu(k,768)
     175   114070872 :          lu(k,796) = lu(k,796) - lu(k,84) * lu(k,768)
     176   114070872 :          lu(k,952) = lu(k,952) - lu(k,81) * lu(k,951)
     177   114070872 :          lu(k,982) = lu(k,982) - lu(k,82) * lu(k,951)
     178   114070872 :          lu(k,984) = lu(k,984) - lu(k,83) * lu(k,951)
     179   114070872 :          lu(k,993) = lu(k,993) - lu(k,84) * lu(k,951)
     180   114070872 :          lu(k,85) = 1._r8 / lu(k,85)
     181   114070872 :          lu(k,86) = lu(k,86) * lu(k,85)
     182   114070872 :          lu(k,87) = lu(k,87) * lu(k,85)
     183   114070872 :          lu(k,88) = lu(k,88) * lu(k,85)
     184   114070872 :          lu(k,778) = lu(k,778) - lu(k,86) * lu(k,769)
     185   114070872 :          lu(k,787) = lu(k,787) - lu(k,87) * lu(k,769)
     186   114070872 :          lu(k,796) = lu(k,796) - lu(k,88) * lu(k,769)
     187   114070872 :          lu(k,971) = lu(k,971) - lu(k,86) * lu(k,952)
     188   114070872 :          lu(k,982) = lu(k,982) - lu(k,87) * lu(k,952)
     189   114070872 :          lu(k,993) = lu(k,993) - lu(k,88) * lu(k,952)
     190   114070872 :          lu(k,90) = 1._r8 / lu(k,90)
     191   114070872 :          lu(k,91) = lu(k,91) * lu(k,90)
     192   114070872 :          lu(k,92) = lu(k,92) * lu(k,90)
     193   114070872 :          lu(k,93) = lu(k,93) * lu(k,90)
     194   114070872 :          lu(k,94) = lu(k,94) * lu(k,90)
     195   114070872 :          lu(k,778) = lu(k,778) - lu(k,91) * lu(k,770)
     196   114070872 :          lu(k,787) = lu(k,787) - lu(k,92) * lu(k,770)
     197   114070872 :          lu(k,789) = lu(k,789) - lu(k,93) * lu(k,770)
     198   114070872 :          lu(k,796) = lu(k,796) - lu(k,94) * lu(k,770)
     199   114070872 :          lu(k,971) = lu(k,971) - lu(k,91) * lu(k,953)
     200   114070872 :          lu(k,982) = lu(k,982) - lu(k,92) * lu(k,953)
     201   114070872 :          lu(k,984) = lu(k,984) - lu(k,93) * lu(k,953)
     202   114070872 :          lu(k,993) = lu(k,993) - lu(k,94) * lu(k,953)
     203   114070872 :          lu(k,95) = 1._r8 / lu(k,95)
     204   114070872 :          lu(k,96) = lu(k,96) * lu(k,95)
     205   114070872 :          lu(k,97) = lu(k,97) * lu(k,95)
     206   114070872 :          lu(k,310) = lu(k,310) - lu(k,96) * lu(k,308)
     207   114070872 :          lu(k,314) = - lu(k,97) * lu(k,308)
     208   114070872 :          lu(k,714) = lu(k,714) - lu(k,96) * lu(k,708)
     209   114070872 :          lu(k,724) = lu(k,724) - lu(k,97) * lu(k,708)
     210   114070872 :          lu(k,1092) = lu(k,1092) - lu(k,96) * lu(k,1084)
     211   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,97) * lu(k,1084)
     212   114070872 :          lu(k,1995) = - lu(k,96) * lu(k,1987)
     213   117656469 :          lu(k,2016) = lu(k,2016) - lu(k,97) * lu(k,1987)
     214             :       end do
     215     3585597 :       end subroutine lu_fac02
     216     3585597 :       subroutine lu_fac03( avec_len, lu )
     217             :       use chem_mods, only : nzcnt
     218             :       use shr_kind_mod, only : r8 => shr_kind_r8
     219             :       implicit none
     220             : !-----------------------------------------------------------------------
     221             : ! ... dummy args
     222             : !-----------------------------------------------------------------------
     223             :       integer, intent(in) :: avec_len
     224             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     225             : !-----------------------------------------------------------------------
     226             : ! ... local variables
     227             : !-----------------------------------------------------------------------
     228             :       integer :: k
     229   117656469 :       do k = 1,avec_len
     230   114070872 :          lu(k,98) = 1._r8 / lu(k,98)
     231   114070872 :          lu(k,99) = lu(k,99) * lu(k,98)
     232   114070872 :          lu(k,100) = lu(k,100) * lu(k,98)
     233   114070872 :          lu(k,101) = lu(k,101) * lu(k,98)
     234   114070872 :          lu(k,447) = - lu(k,99) * lu(k,443)
     235   114070872 :          lu(k,454) = lu(k,454) - lu(k,100) * lu(k,443)
     236   114070872 :          lu(k,458) = lu(k,458) - lu(k,101) * lu(k,443)
     237   114070872 :          lu(k,787) = lu(k,787) - lu(k,99) * lu(k,771)
     238   114070872 :          lu(k,795) = lu(k,795) - lu(k,100) * lu(k,771)
     239   114070872 :          lu(k,806) = lu(k,806) - lu(k,101) * lu(k,771)
     240   114070872 :          lu(k,1803) = - lu(k,99) * lu(k,1786)
     241   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,100) * lu(k,1786)
     242   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,101) * lu(k,1786)
     243   114070872 :          lu(k,103) = 1._r8 / lu(k,103)
     244   114070872 :          lu(k,104) = lu(k,104) * lu(k,103)
     245   114070872 :          lu(k,105) = lu(k,105) * lu(k,103)
     246   114070872 :          lu(k,106) = lu(k,106) * lu(k,103)
     247   114070872 :          lu(k,351) = lu(k,351) - lu(k,104) * lu(k,350)
     248   114070872 :          lu(k,355) = lu(k,355) - lu(k,105) * lu(k,350)
     249   114070872 :          lu(k,356) = - lu(k,106) * lu(k,350)
     250   114070872 :          lu(k,972) = lu(k,972) - lu(k,104) * lu(k,954)
     251   114070872 :          lu(k,991) = lu(k,991) - lu(k,105) * lu(k,954)
     252   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,106) * lu(k,954)
     253   114070872 :          lu(k,2045) = - lu(k,104) * lu(k,2032)
     254   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,105) * lu(k,2032)
     255   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,106) * lu(k,2032)
     256   114070872 :          lu(k,107) = 1._r8 / lu(k,107)
     257   114070872 :          lu(k,108) = lu(k,108) * lu(k,107)
     258   114070872 :          lu(k,109) = lu(k,109) * lu(k,107)
     259   114070872 :          lu(k,110) = lu(k,110) * lu(k,107)
     260   114070872 :          lu(k,406) = lu(k,406) - lu(k,108) * lu(k,399)
     261   114070872 :          lu(k,408) = lu(k,408) - lu(k,109) * lu(k,399)
     262   114070872 :          lu(k,412) = lu(k,412) - lu(k,110) * lu(k,399)
     263   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,108) * lu(k,1667)
     264   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,109) * lu(k,1667)
     265   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,110) * lu(k,1667)
     266   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,108) * lu(k,2033)
     267   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,109) * lu(k,2033)
     268   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,110) * lu(k,2033)
     269   114070872 :          lu(k,111) = 1._r8 / lu(k,111)
     270   114070872 :          lu(k,112) = lu(k,112) * lu(k,111)
     271   114070872 :          lu(k,113) = lu(k,113) * lu(k,111)
     272   114070872 :          lu(k,114) = lu(k,114) * lu(k,111)
     273   114070872 :          lu(k,406) = lu(k,406) - lu(k,112) * lu(k,400)
     274   114070872 :          lu(k,407) = lu(k,407) - lu(k,113) * lu(k,400)
     275   114070872 :          lu(k,412) = lu(k,412) - lu(k,114) * lu(k,400)
     276   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,112) * lu(k,1624)
     277   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,113) * lu(k,1624)
     278   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,114) * lu(k,1624)
     279   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,112) * lu(k,2034)
     280   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,113) * lu(k,2034)
     281   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,114) * lu(k,2034)
     282   114070872 :          lu(k,116) = 1._r8 / lu(k,116)
     283   114070872 :          lu(k,117) = lu(k,117) * lu(k,116)
     284   114070872 :          lu(k,118) = lu(k,118) * lu(k,116)
     285   114070872 :          lu(k,119) = lu(k,119) * lu(k,116)
     286   114070872 :          lu(k,120) = lu(k,120) * lu(k,116)
     287   114070872 :          lu(k,121) = lu(k,121) * lu(k,116)
     288   114070872 :          lu(k,778) = lu(k,778) - lu(k,117) * lu(k,772)
     289   114070872 :          lu(k,787) = lu(k,787) - lu(k,118) * lu(k,772)
     290   114070872 :          lu(k,789) = lu(k,789) - lu(k,119) * lu(k,772)
     291   114070872 :          lu(k,796) = lu(k,796) - lu(k,120) * lu(k,772)
     292   114070872 :          lu(k,808) = lu(k,808) - lu(k,121) * lu(k,772)
     293   114070872 :          lu(k,971) = lu(k,971) - lu(k,117) * lu(k,955)
     294   114070872 :          lu(k,982) = lu(k,982) - lu(k,118) * lu(k,955)
     295   114070872 :          lu(k,984) = lu(k,984) - lu(k,119) * lu(k,955)
     296   114070872 :          lu(k,993) = lu(k,993) - lu(k,120) * lu(k,955)
     297   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,121) * lu(k,955)
     298   114070872 :          lu(k,122) = 1._r8 / lu(k,122)
     299   114070872 :          lu(k,123) = lu(k,123) * lu(k,122)
     300   114070872 :          lu(k,124) = lu(k,124) * lu(k,122)
     301   114070872 :          lu(k,341) = lu(k,341) - lu(k,123) * lu(k,340)
     302   114070872 :          lu(k,348) = lu(k,348) - lu(k,124) * lu(k,340)
     303   114070872 :          lu(k,415) = lu(k,415) - lu(k,123) * lu(k,413)
     304   114070872 :          lu(k,428) = lu(k,428) - lu(k,124) * lu(k,413)
     305   114070872 :          lu(k,644) = lu(k,644) - lu(k,123) * lu(k,643)
     306   114070872 :          lu(k,660) = lu(k,660) - lu(k,124) * lu(k,643)
     307   114070872 :          lu(k,1504) = lu(k,1504) - lu(k,123) * lu(k,1502)
     308   114070872 :          lu(k,1535) = - lu(k,124) * lu(k,1502)
     309   114070872 :          lu(k,2044) = lu(k,2044) - lu(k,123) * lu(k,2035)
     310   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,124) * lu(k,2035)
     311   114070872 :          lu(k,125) = 1._r8 / lu(k,125)
     312   114070872 :          lu(k,126) = lu(k,126) * lu(k,125)
     313   114070872 :          lu(k,127) = lu(k,127) * lu(k,125)
     314   114070872 :          lu(k,128) = lu(k,128) * lu(k,125)
     315   114070872 :          lu(k,129) = lu(k,129) * lu(k,125)
     316   114070872 :          lu(k,130) = lu(k,130) * lu(k,125)
     317   114070872 :          lu(k,972) = lu(k,972) - lu(k,126) * lu(k,956)
     318   114070872 :          lu(k,983) = lu(k,983) - lu(k,127) * lu(k,956)
     319   114070872 :          lu(k,984) = lu(k,984) - lu(k,128) * lu(k,956)
     320   114070872 :          lu(k,994) = lu(k,994) - lu(k,129) * lu(k,956)
     321   114070872 :          lu(k,997) = lu(k,997) - lu(k,130) * lu(k,956)
     322   114070872 :          lu(k,1712) = lu(k,1712) - lu(k,126) * lu(k,1710)
     323   114070872 :          lu(k,1723) = lu(k,1723) - lu(k,127) * lu(k,1710)
     324   114070872 :          lu(k,1725) = lu(k,1725) - lu(k,128) * lu(k,1710)
     325   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,129) * lu(k,1710)
     326   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,130) * lu(k,1710)
     327   114070872 :          lu(k,131) = 1._r8 / lu(k,131)
     328   114070872 :          lu(k,132) = lu(k,132) * lu(k,131)
     329   114070872 :          lu(k,133) = lu(k,133) * lu(k,131)
     330   114070872 :          lu(k,779) = - lu(k,132) * lu(k,773)
     331   114070872 :          lu(k,795) = lu(k,795) - lu(k,133) * lu(k,773)
     332   114070872 :          lu(k,1266) = lu(k,1266) - lu(k,132) * lu(k,1261)
     333   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,133) * lu(k,1261)
     334   114070872 :          lu(k,1363) = lu(k,1363) - lu(k,132) * lu(k,1345)
     335   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,133) * lu(k,1345)
     336   114070872 :          lu(k,1414) = lu(k,1414) - lu(k,132) * lu(k,1405)
     337   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,133) * lu(k,1405)
     338   114070872 :          lu(k,1906) = lu(k,1906) - lu(k,132) * lu(k,1903)
     339   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,133) * lu(k,1903)
     340   114070872 :          lu(k,134) = 1._r8 / lu(k,134)
     341   114070872 :          lu(k,135) = lu(k,135) * lu(k,134)
     342   114070872 :          lu(k,136) = lu(k,136) * lu(k,134)
     343   114070872 :          lu(k,137) = lu(k,137) * lu(k,134)
     344   114070872 :          lu(k,138) = lu(k,138) * lu(k,134)
     345   114070872 :          lu(k,475) = lu(k,475) - lu(k,135) * lu(k,473)
     346   114070872 :          lu(k,476) = lu(k,476) - lu(k,136) * lu(k,473)
     347   114070872 :          lu(k,481) = lu(k,481) - lu(k,137) * lu(k,473)
     348   114070872 :          lu(k,482) = lu(k,482) - lu(k,138) * lu(k,473)
     349   114070872 :          lu(k,712) = lu(k,712) - lu(k,135) * lu(k,709)
     350   114070872 :          lu(k,713) = lu(k,713) - lu(k,136) * lu(k,709)
     351   114070872 :          lu(k,720) = lu(k,720) - lu(k,137) * lu(k,709)
     352   114070872 :          lu(k,722) = lu(k,722) - lu(k,138) * lu(k,709)
     353   114070872 :          lu(k,1087) = lu(k,1087) - lu(k,135) * lu(k,1085)
     354   114070872 :          lu(k,1091) = lu(k,1091) - lu(k,136) * lu(k,1085)
     355   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,137) * lu(k,1085)
     356   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,138) * lu(k,1085)
     357   114070872 :          lu(k,139) = 1._r8 / lu(k,139)
     358   114070872 :          lu(k,140) = lu(k,140) * lu(k,139)
     359   114070872 :          lu(k,141) = lu(k,141) * lu(k,139)
     360   114070872 :          lu(k,142) = lu(k,142) * lu(k,139)
     361   114070872 :          lu(k,143) = lu(k,143) * lu(k,139)
     362   114070872 :          lu(k,144) = lu(k,144) * lu(k,139)
     363   114070872 :          lu(k,145) = lu(k,145) * lu(k,139)
     364   114070872 :          lu(k,146) = lu(k,146) * lu(k,139)
     365   114070872 :          lu(k,965) = lu(k,965) - lu(k,140) * lu(k,957)
     366   114070872 :          lu(k,966) = lu(k,966) - lu(k,141) * lu(k,957)
     367   114070872 :          lu(k,972) = lu(k,972) - lu(k,142) * lu(k,957)
     368   114070872 :          lu(k,977) = lu(k,977) - lu(k,143) * lu(k,957)
     369   114070872 :          lu(k,984) = lu(k,984) - lu(k,144) * lu(k,957)
     370   114070872 :          lu(k,991) = lu(k,991) - lu(k,145) * lu(k,957)
     371   114070872 :          lu(k,998) = lu(k,998) - lu(k,146) * lu(k,957)
     372   114070872 :          lu(k,1353) = lu(k,1353) - lu(k,140) * lu(k,1346)
     373   114070872 :          lu(k,1354) = - lu(k,141) * lu(k,1346)
     374   114070872 :          lu(k,1360) = - lu(k,142) * lu(k,1346)
     375   114070872 :          lu(k,1367) = lu(k,1367) - lu(k,143) * lu(k,1346)
     376   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,144) * lu(k,1346)
     377   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,145) * lu(k,1346)
     378   117656469 :          lu(k,1397) = lu(k,1397) - lu(k,146) * lu(k,1346)
     379             :       end do
     380     3585597 :       end subroutine lu_fac03
     381     3585597 :       subroutine lu_fac04( avec_len, lu )
     382             :       use chem_mods, only : nzcnt
     383             :       use shr_kind_mod, only : r8 => shr_kind_r8
     384             :       implicit none
     385             : !-----------------------------------------------------------------------
     386             : ! ... dummy args
     387             : !-----------------------------------------------------------------------
     388             :       integer, intent(in) :: avec_len
     389             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     390             : !-----------------------------------------------------------------------
     391             : ! ... local variables
     392             : !-----------------------------------------------------------------------
     393             :       integer :: k
     394   117656469 :       do k = 1,avec_len
     395   114070872 :          lu(k,147) = 1._r8 / lu(k,147)
     396   114070872 :          lu(k,148) = lu(k,148) * lu(k,147)
     397   114070872 :          lu(k,149) = lu(k,149) * lu(k,147)
     398   114070872 :          lu(k,150) = lu(k,150) * lu(k,147)
     399   114070872 :          lu(k,151) = lu(k,151) * lu(k,147)
     400   114070872 :          lu(k,152) = lu(k,152) * lu(k,147)
     401   114070872 :          lu(k,153) = lu(k,153) * lu(k,147)
     402   114070872 :          lu(k,154) = lu(k,154) * lu(k,147)
     403   114070872 :          lu(k,965) = lu(k,965) - lu(k,148) * lu(k,958)
     404   114070872 :          lu(k,975) = lu(k,975) - lu(k,149) * lu(k,958)
     405   114070872 :          lu(k,983) = lu(k,983) - lu(k,150) * lu(k,958)
     406   114070872 :          lu(k,984) = lu(k,984) - lu(k,151) * lu(k,958)
     407   114070872 :          lu(k,993) = lu(k,993) - lu(k,152) * lu(k,958)
     408   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,153) * lu(k,958)
     409   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,154) * lu(k,958)
     410   114070872 :          lu(k,1460) = lu(k,1460) - lu(k,148) * lu(k,1455)
     411   114070872 :          lu(k,1465) = lu(k,1465) - lu(k,149) * lu(k,1455)
     412   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,150) * lu(k,1455)
     413   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,151) * lu(k,1455)
     414   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,152) * lu(k,1455)
     415   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,153) * lu(k,1455)
     416   114070872 :          lu(k,1501) = - lu(k,154) * lu(k,1455)
     417   114070872 :          lu(k,155) = 1._r8 / lu(k,155)
     418   114070872 :          lu(k,156) = lu(k,156) * lu(k,155)
     419   114070872 :          lu(k,157) = lu(k,157) * lu(k,155)
     420   114070872 :          lu(k,158) = lu(k,158) * lu(k,155)
     421   114070872 :          lu(k,159) = lu(k,159) * lu(k,155)
     422   114070872 :          lu(k,160) = lu(k,160) * lu(k,155)
     423   114070872 :          lu(k,432) = lu(k,432) - lu(k,156) * lu(k,431)
     424   114070872 :          lu(k,433) = lu(k,433) - lu(k,157) * lu(k,431)
     425   114070872 :          lu(k,435) = - lu(k,158) * lu(k,431)
     426   114070872 :          lu(k,439) = - lu(k,159) * lu(k,431)
     427   114070872 :          lu(k,442) = - lu(k,160) * lu(k,431)
     428   114070872 :          lu(k,894) = lu(k,894) - lu(k,156) * lu(k,887)
     429   114070872 :          lu(k,898) = - lu(k,157) * lu(k,887)
     430   114070872 :          lu(k,901) = lu(k,901) - lu(k,158) * lu(k,887)
     431   114070872 :          lu(k,914) = lu(k,914) - lu(k,159) * lu(k,887)
     432   114070872 :          lu(k,921) = lu(k,921) - lu(k,160) * lu(k,887)
     433   114070872 :          lu(k,975) = lu(k,975) - lu(k,156) * lu(k,959)
     434   114070872 :          lu(k,981) = lu(k,981) - lu(k,157) * lu(k,959)
     435   114070872 :          lu(k,984) = lu(k,984) - lu(k,158) * lu(k,959)
     436   114070872 :          lu(k,998) = lu(k,998) - lu(k,159) * lu(k,959)
     437   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,160) * lu(k,959)
     438   114070872 :          lu(k,161) = 1._r8 / lu(k,161)
     439   114070872 :          lu(k,162) = lu(k,162) * lu(k,161)
     440   114070872 :          lu(k,163) = lu(k,163) * lu(k,161)
     441   114070872 :          lu(k,164) = lu(k,164) * lu(k,161)
     442   114070872 :          lu(k,165) = lu(k,165) * lu(k,161)
     443   114070872 :          lu(k,166) = lu(k,166) * lu(k,161)
     444   114070872 :          lu(k,783) = lu(k,783) - lu(k,162) * lu(k,774)
     445   114070872 :          lu(k,787) = lu(k,787) - lu(k,163) * lu(k,774)
     446   114070872 :          lu(k,789) = lu(k,789) - lu(k,164) * lu(k,774)
     447   114070872 :          lu(k,796) = lu(k,796) - lu(k,165) * lu(k,774)
     448   114070872 :          lu(k,807) = lu(k,807) - lu(k,166) * lu(k,774)
     449   114070872 :          lu(k,978) = lu(k,978) - lu(k,162) * lu(k,960)
     450   114070872 :          lu(k,982) = lu(k,982) - lu(k,163) * lu(k,960)
     451   114070872 :          lu(k,984) = lu(k,984) - lu(k,164) * lu(k,960)
     452   114070872 :          lu(k,993) = lu(k,993) - lu(k,165) * lu(k,960)
     453   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,166) * lu(k,960)
     454   114070872 :          lu(k,1466) = lu(k,1466) - lu(k,162) * lu(k,1456)
     455   114070872 :          lu(k,1470) = - lu(k,163) * lu(k,1456)
     456   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,164) * lu(k,1456)
     457   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,165) * lu(k,1456)
     458   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,166) * lu(k,1456)
     459   114070872 :          lu(k,167) = 1._r8 / lu(k,167)
     460   114070872 :          lu(k,168) = lu(k,168) * lu(k,167)
     461   114070872 :          lu(k,169) = lu(k,169) * lu(k,167)
     462   114070872 :          lu(k,170) = lu(k,170) * lu(k,167)
     463   114070872 :          lu(k,171) = lu(k,171) * lu(k,167)
     464   114070872 :          lu(k,172) = lu(k,172) * lu(k,167)
     465   114070872 :          lu(k,290) = - lu(k,168) * lu(k,289)
     466   114070872 :          lu(k,293) = lu(k,293) - lu(k,169) * lu(k,289)
     467   114070872 :          lu(k,294) = lu(k,294) - lu(k,170) * lu(k,289)
     468   114070872 :          lu(k,298) = - lu(k,171) * lu(k,289)
     469   114070872 :          lu(k,299) = lu(k,299) - lu(k,172) * lu(k,289)
     470   114070872 :          lu(k,1044) = lu(k,1044) - lu(k,168) * lu(k,1039)
     471   114070872 :          lu(k,1057) = lu(k,1057) - lu(k,169) * lu(k,1039)
     472   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,170) * lu(k,1039)
     473   114070872 :          lu(k,1074) = lu(k,1074) - lu(k,171) * lu(k,1039)
     474   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,172) * lu(k,1039)
     475   114070872 :          lu(k,2038) = lu(k,2038) - lu(k,168) * lu(k,2036)
     476   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,169) * lu(k,2036)
     477   114070872 :          lu(k,2067) = - lu(k,170) * lu(k,2036)
     478   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,171) * lu(k,2036)
     479   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,172) * lu(k,2036)
     480   114070872 :          lu(k,173) = 1._r8 / lu(k,173)
     481   114070872 :          lu(k,174) = lu(k,174) * lu(k,173)
     482   114070872 :          lu(k,175) = lu(k,175) * lu(k,173)
     483   114070872 :          lu(k,176) = lu(k,176) * lu(k,173)
     484   114070872 :          lu(k,177) = lu(k,177) * lu(k,173)
     485   114070872 :          lu(k,178) = lu(k,178) * lu(k,173)
     486   114070872 :          lu(k,1047) = - lu(k,174) * lu(k,1040)
     487   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,175) * lu(k,1040)
     488   114070872 :          lu(k,1062) = lu(k,1062) - lu(k,176) * lu(k,1040)
     489   114070872 :          lu(k,1079) = lu(k,1079) - lu(k,177) * lu(k,1040)
     490   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,178) * lu(k,1040)
     491   114070872 :          lu(k,1176) = - lu(k,174) * lu(k,1175)
     492   114070872 :          lu(k,1194) = lu(k,1194) - lu(k,175) * lu(k,1175)
     493   114070872 :          lu(k,1198) = - lu(k,176) * lu(k,1175)
     494   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,177) * lu(k,1175)
     495   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,178) * lu(k,1175)
     496   114070872 :          lu(k,2041) = lu(k,2041) - lu(k,174) * lu(k,2037)
     497   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,175) * lu(k,2037)
     498   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,176) * lu(k,2037)
     499   114070872 :          lu(k,2088) = - lu(k,177) * lu(k,2037)
     500   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,178) * lu(k,2037)
     501   114070872 :          lu(k,179) = 1._r8 / lu(k,179)
     502   114070872 :          lu(k,180) = lu(k,180) * lu(k,179)
     503   114070872 :          lu(k,181) = lu(k,181) * lu(k,179)
     504   114070872 :          lu(k,182) = lu(k,182) * lu(k,179)
     505   114070872 :          lu(k,183) = lu(k,183) * lu(k,179)
     506   114070872 :          lu(k,184) = lu(k,184) * lu(k,179)
     507   114070872 :          lu(k,185) = lu(k,185) * lu(k,179)
     508   114070872 :          lu(k,900) = lu(k,900) - lu(k,180) * lu(k,888)
     509   114070872 :          lu(k,901) = lu(k,901) - lu(k,181) * lu(k,888)
     510   114070872 :          lu(k,908) = lu(k,908) - lu(k,182) * lu(k,888)
     511   114070872 :          lu(k,913) = lu(k,913) - lu(k,183) * lu(k,888)
     512   114070872 :          lu(k,915) = lu(k,915) - lu(k,184) * lu(k,888)
     513   114070872 :          lu(k,921) = lu(k,921) - lu(k,185) * lu(k,888)
     514   114070872 :          lu(k,983) = lu(k,983) - lu(k,180) * lu(k,961)
     515   114070872 :          lu(k,984) = lu(k,984) - lu(k,181) * lu(k,961)
     516   114070872 :          lu(k,992) = lu(k,992) - lu(k,182) * lu(k,961)
     517   114070872 :          lu(k,997) = lu(k,997) - lu(k,183) * lu(k,961)
     518   114070872 :          lu(k,999) = lu(k,999) - lu(k,184) * lu(k,961)
     519   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,185) * lu(k,961)
     520   114070872 :          lu(k,1806) = lu(k,1806) - lu(k,180) * lu(k,1787)
     521   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,181) * lu(k,1787)
     522   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,182) * lu(k,1787)
     523   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,183) * lu(k,1787)
     524   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,184) * lu(k,1787)
     525   117656469 :          lu(k,1833) = lu(k,1833) - lu(k,185) * lu(k,1787)
     526             :       end do
     527     3585597 :       end subroutine lu_fac04
     528     3585597 :       subroutine lu_fac05( avec_len, lu )
     529             :       use chem_mods, only : nzcnt
     530             :       use shr_kind_mod, only : r8 => shr_kind_r8
     531             :       implicit none
     532             : !-----------------------------------------------------------------------
     533             : ! ... dummy args
     534             : !-----------------------------------------------------------------------
     535             :       integer, intent(in) :: avec_len
     536             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     537             : !-----------------------------------------------------------------------
     538             : ! ... local variables
     539             : !-----------------------------------------------------------------------
     540             :       integer :: k
     541   117656469 :       do k = 1,avec_len
     542   114070872 :          lu(k,186) = 1._r8 / lu(k,186)
     543   114070872 :          lu(k,187) = lu(k,187) * lu(k,186)
     544   114070872 :          lu(k,188) = lu(k,188) * lu(k,186)
     545   114070872 :          lu(k,189) = lu(k,189) * lu(k,186)
     546   114070872 :          lu(k,190) = lu(k,190) * lu(k,186)
     547   114070872 :          lu(k,191) = lu(k,191) * lu(k,186)
     548   114070872 :          lu(k,192) = lu(k,192) * lu(k,186)
     549   114070872 :          lu(k,783) = lu(k,783) - lu(k,187) * lu(k,775)
     550   114070872 :          lu(k,787) = lu(k,787) - lu(k,188) * lu(k,775)
     551   114070872 :          lu(k,789) = lu(k,789) - lu(k,189) * lu(k,775)
     552   114070872 :          lu(k,796) = lu(k,796) - lu(k,190) * lu(k,775)
     553   114070872 :          lu(k,807) = lu(k,807) - lu(k,191) * lu(k,775)
     554   114070872 :          lu(k,808) = lu(k,808) - lu(k,192) * lu(k,775)
     555   114070872 :          lu(k,978) = lu(k,978) - lu(k,187) * lu(k,962)
     556   114070872 :          lu(k,982) = lu(k,982) - lu(k,188) * lu(k,962)
     557   114070872 :          lu(k,984) = lu(k,984) - lu(k,189) * lu(k,962)
     558   114070872 :          lu(k,993) = lu(k,993) - lu(k,190) * lu(k,962)
     559   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,191) * lu(k,962)
     560   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,192) * lu(k,962)
     561   114070872 :          lu(k,1466) = lu(k,1466) - lu(k,187) * lu(k,1457)
     562   114070872 :          lu(k,1470) = lu(k,1470) - lu(k,188) * lu(k,1457)
     563   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,189) * lu(k,1457)
     564   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,190) * lu(k,1457)
     565   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,191) * lu(k,1457)
     566   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,192) * lu(k,1457)
     567   114070872 :          lu(k,193) = 1._r8 / lu(k,193)
     568   114070872 :          lu(k,194) = lu(k,194) * lu(k,193)
     569   114070872 :          lu(k,195) = lu(k,195) * lu(k,193)
     570   114070872 :          lu(k,196) = lu(k,196) * lu(k,193)
     571   114070872 :          lu(k,197) = lu(k,197) * lu(k,193)
     572   114070872 :          lu(k,198) = lu(k,198) * lu(k,193)
     573   114070872 :          lu(k,199) = lu(k,199) * lu(k,193)
     574   114070872 :          lu(k,1042) = lu(k,1042) - lu(k,194) * lu(k,1041)
     575   114070872 :          lu(k,1043) = lu(k,1043) - lu(k,195) * lu(k,1041)
     576   114070872 :          lu(k,1051) = - lu(k,196) * lu(k,1041)
     577   114070872 :          lu(k,1052) = lu(k,1052) - lu(k,197) * lu(k,1041)
     578   114070872 :          lu(k,1065) = lu(k,1065) - lu(k,198) * lu(k,1041)
     579   114070872 :          lu(k,1079) = lu(k,1079) - lu(k,199) * lu(k,1041)
     580   114070872 :          lu(k,1348) = lu(k,1348) - lu(k,194) * lu(k,1347)
     581   114070872 :          lu(k,1351) = lu(k,1351) - lu(k,195) * lu(k,1347)
     582   114070872 :          lu(k,1357) = lu(k,1357) - lu(k,196) * lu(k,1347)
     583   114070872 :          lu(k,1364) = lu(k,1364) - lu(k,197) * lu(k,1347)
     584   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,198) * lu(k,1347)
     585   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,199) * lu(k,1347)
     586   114070872 :          lu(k,1407) = lu(k,1407) - lu(k,194) * lu(k,1406)
     587   114070872 :          lu(k,1408) = lu(k,1408) - lu(k,195) * lu(k,1406)
     588   114070872 :          lu(k,1412) = lu(k,1412) - lu(k,196) * lu(k,1406)
     589   114070872 :          lu(k,1415) = lu(k,1415) - lu(k,197) * lu(k,1406)
     590   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,198) * lu(k,1406)
     591   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,199) * lu(k,1406)
     592   114070872 :          lu(k,200) = 1._r8 / lu(k,200)
     593   114070872 :          lu(k,201) = lu(k,201) * lu(k,200)
     594   114070872 :          lu(k,202) = lu(k,202) * lu(k,200)
     595   114070872 :          lu(k,203) = lu(k,203) * lu(k,200)
     596   114070872 :          lu(k,204) = lu(k,204) * lu(k,200)
     597   114070872 :          lu(k,205) = lu(k,205) * lu(k,200)
     598   114070872 :          lu(k,1043) = lu(k,1043) - lu(k,201) * lu(k,1042)
     599   114070872 :          lu(k,1052) = lu(k,1052) - lu(k,202) * lu(k,1042)
     600   114070872 :          lu(k,1065) = lu(k,1065) - lu(k,203) * lu(k,1042)
     601   114070872 :          lu(k,1066) = lu(k,1066) - lu(k,204) * lu(k,1042)
     602   114070872 :          lu(k,1070) = lu(k,1070) - lu(k,205) * lu(k,1042)
     603   114070872 :          lu(k,1351) = lu(k,1351) - lu(k,201) * lu(k,1348)
     604   114070872 :          lu(k,1364) = lu(k,1364) - lu(k,202) * lu(k,1348)
     605   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,203) * lu(k,1348)
     606   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,204) * lu(k,1348)
     607   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,205) * lu(k,1348)
     608   114070872 :          lu(k,1408) = lu(k,1408) - lu(k,201) * lu(k,1407)
     609   114070872 :          lu(k,1415) = lu(k,1415) - lu(k,202) * lu(k,1407)
     610   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,203) * lu(k,1407)
     611   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,204) * lu(k,1407)
     612   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,205) * lu(k,1407)
     613   114070872 :          lu(k,206) = 1._r8 / lu(k,206)
     614   114070872 :          lu(k,207) = lu(k,207) * lu(k,206)
     615   114070872 :          lu(k,208) = lu(k,208) * lu(k,206)
     616   114070872 :          lu(k,209) = lu(k,209) * lu(k,206)
     617   114070872 :          lu(k,210) = lu(k,210) * lu(k,206)
     618   114070872 :          lu(k,211) = lu(k,211) * lu(k,206)
     619   114070872 :          lu(k,212) = lu(k,212) * lu(k,206)
     620   114070872 :          lu(k,213) = lu(k,213) * lu(k,206)
     621   114070872 :          lu(k,711) = lu(k,711) - lu(k,207) * lu(k,710)
     622   114070872 :          lu(k,714) = lu(k,714) - lu(k,208) * lu(k,710)
     623   114070872 :          lu(k,715) = lu(k,715) - lu(k,209) * lu(k,710)
     624   114070872 :          lu(k,722) = lu(k,722) - lu(k,210) * lu(k,710)
     625   114070872 :          lu(k,725) = - lu(k,211) * lu(k,710)
     626   114070872 :          lu(k,726) = - lu(k,212) * lu(k,710)
     627   114070872 :          lu(k,728) = lu(k,728) - lu(k,213) * lu(k,710)
     628   114070872 :          lu(k,1356) = lu(k,1356) - lu(k,207) * lu(k,1349)
     629   114070872 :          lu(k,1368) = lu(k,1368) - lu(k,208) * lu(k,1349)
     630   114070872 :          lu(k,1371) = lu(k,1371) - lu(k,209) * lu(k,1349)
     631   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,210) * lu(k,1349)
     632   114070872 :          lu(k,1391) = - lu(k,211) * lu(k,1349)
     633   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,212) * lu(k,1349)
     634   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,213) * lu(k,1349)
     635   114070872 :          lu(k,1789) = - lu(k,207) * lu(k,1788)
     636   114070872 :          lu(k,1795) = - lu(k,208) * lu(k,1788)
     637   114070872 :          lu(k,1801) = lu(k,1801) - lu(k,209) * lu(k,1788)
     638   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,210) * lu(k,1788)
     639   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,211) * lu(k,1788)
     640   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,212) * lu(k,1788)
     641   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,213) * lu(k,1788)
     642   114070872 :          lu(k,214) = 1._r8 / lu(k,214)
     643   114070872 :          lu(k,215) = lu(k,215) * lu(k,214)
     644   114070872 :          lu(k,216) = lu(k,216) * lu(k,214)
     645   114070872 :          lu(k,217) = lu(k,217) * lu(k,214)
     646   114070872 :          lu(k,218) = lu(k,218) * lu(k,214)
     647   114070872 :          lu(k,219) = lu(k,219) * lu(k,214)
     648   114070872 :          lu(k,220) = lu(k,220) * lu(k,214)
     649   114070872 :          lu(k,900) = lu(k,900) - lu(k,215) * lu(k,889)
     650   114070872 :          lu(k,901) = lu(k,901) - lu(k,216) * lu(k,889)
     651   114070872 :          lu(k,907) = lu(k,907) - lu(k,217) * lu(k,889)
     652   114070872 :          lu(k,909) = lu(k,909) - lu(k,218) * lu(k,889)
     653   114070872 :          lu(k,920) = lu(k,920) - lu(k,219) * lu(k,889)
     654   114070872 :          lu(k,921) = lu(k,921) - lu(k,220) * lu(k,889)
     655   114070872 :          lu(k,983) = lu(k,983) - lu(k,215) * lu(k,963)
     656   114070872 :          lu(k,984) = lu(k,984) - lu(k,216) * lu(k,963)
     657   114070872 :          lu(k,991) = lu(k,991) - lu(k,217) * lu(k,963)
     658   114070872 :          lu(k,993) = lu(k,993) - lu(k,218) * lu(k,963)
     659   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,219) * lu(k,963)
     660   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,220) * lu(k,963)
     661   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,215) * lu(k,1350)
     662   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,216) * lu(k,1350)
     663   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,217) * lu(k,1350)
     664   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,218) * lu(k,1350)
     665   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,219) * lu(k,1350)
     666   114070872 :          lu(k,1404) = - lu(k,220) * lu(k,1350)
     667   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,215) * lu(k,1458)
     668   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,216) * lu(k,1458)
     669   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,217) * lu(k,1458)
     670   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,218) * lu(k,1458)
     671   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,219) * lu(k,1458)
     672   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,220) * lu(k,1458)
     673   114070872 :          lu(k,221) = 1._r8 / lu(k,221)
     674   114070872 :          lu(k,222) = lu(k,222) * lu(k,221)
     675   114070872 :          lu(k,223) = lu(k,223) * lu(k,221)
     676   114070872 :          lu(k,224) = lu(k,224) * lu(k,221)
     677   114070872 :          lu(k,225) = lu(k,225) * lu(k,221)
     678   114070872 :          lu(k,226) = lu(k,226) * lu(k,221)
     679   114070872 :          lu(k,227) = lu(k,227) * lu(k,221)
     680   114070872 :          lu(k,228) = lu(k,228) * lu(k,221)
     681   114070872 :          lu(k,229) = lu(k,229) * lu(k,221)
     682   114070872 :          lu(k,781) = lu(k,781) - lu(k,222) * lu(k,776)
     683   114070872 :          lu(k,783) = lu(k,783) - lu(k,223) * lu(k,776)
     684   114070872 :          lu(k,787) = lu(k,787) - lu(k,224) * lu(k,776)
     685   114070872 :          lu(k,788) = lu(k,788) - lu(k,225) * lu(k,776)
     686   114070872 :          lu(k,789) = lu(k,789) - lu(k,226) * lu(k,776)
     687   114070872 :          lu(k,796) = lu(k,796) - lu(k,227) * lu(k,776)
     688   114070872 :          lu(k,807) = lu(k,807) - lu(k,228) * lu(k,776)
     689   114070872 :          lu(k,808) = lu(k,808) - lu(k,229) * lu(k,776)
     690   114070872 :          lu(k,975) = lu(k,975) - lu(k,222) * lu(k,964)
     691   114070872 :          lu(k,978) = lu(k,978) - lu(k,223) * lu(k,964)
     692   114070872 :          lu(k,982) = lu(k,982) - lu(k,224) * lu(k,964)
     693   114070872 :          lu(k,983) = lu(k,983) - lu(k,225) * lu(k,964)
     694   114070872 :          lu(k,984) = lu(k,984) - lu(k,226) * lu(k,964)
     695   114070872 :          lu(k,993) = lu(k,993) - lu(k,227) * lu(k,964)
     696   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,228) * lu(k,964)
     697   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,229) * lu(k,964)
     698   114070872 :          lu(k,1465) = lu(k,1465) - lu(k,222) * lu(k,1459)
     699   114070872 :          lu(k,1466) = lu(k,1466) - lu(k,223) * lu(k,1459)
     700   114070872 :          lu(k,1470) = lu(k,1470) - lu(k,224) * lu(k,1459)
     701   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,225) * lu(k,1459)
     702   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,226) * lu(k,1459)
     703   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,227) * lu(k,1459)
     704   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,228) * lu(k,1459)
     705   117656469 :          lu(k,1501) = lu(k,1501) - lu(k,229) * lu(k,1459)
     706             :       end do
     707     3585597 :       end subroutine lu_fac05
     708     3585597 :       subroutine lu_fac06( avec_len, lu )
     709             :       use chem_mods, only : nzcnt
     710             :       use shr_kind_mod, only : r8 => shr_kind_r8
     711             :       implicit none
     712             : !-----------------------------------------------------------------------
     713             : ! ... dummy args
     714             : !-----------------------------------------------------------------------
     715             :       integer, intent(in) :: avec_len
     716             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     717             : !-----------------------------------------------------------------------
     718             : ! ... local variables
     719             : !-----------------------------------------------------------------------
     720             :       integer :: k
     721   117656469 :       do k = 1,avec_len
     722   114070872 :          lu(k,230) = 1._r8 / lu(k,230)
     723   114070872 :          lu(k,231) = lu(k,231) * lu(k,230)
     724   114070872 :          lu(k,232) = lu(k,232) * lu(k,230)
     725   114070872 :          lu(k,233) = lu(k,233) * lu(k,230)
     726   114070872 :          lu(k,234) = lu(k,234) * lu(k,230)
     727   114070872 :          lu(k,235) = lu(k,235) * lu(k,230)
     728   114070872 :          lu(k,236) = lu(k,236) * lu(k,230)
     729   114070872 :          lu(k,237) = lu(k,237) * lu(k,230)
     730   114070872 :          lu(k,238) = lu(k,238) * lu(k,230)
     731   114070872 :          lu(k,1050) = lu(k,1050) - lu(k,231) * lu(k,1043)
     732   114070872 :          lu(k,1052) = lu(k,1052) - lu(k,232) * lu(k,1043)
     733   114070872 :          lu(k,1053) = lu(k,1053) - lu(k,233) * lu(k,1043)
     734   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,234) * lu(k,1043)
     735   114070872 :          lu(k,1060) = lu(k,1060) - lu(k,235) * lu(k,1043)
     736   114070872 :          lu(k,1065) = lu(k,1065) - lu(k,236) * lu(k,1043)
     737   114070872 :          lu(k,1066) = lu(k,1066) - lu(k,237) * lu(k,1043)
     738   114070872 :          lu(k,1070) = lu(k,1070) - lu(k,238) * lu(k,1043)
     739   114070872 :          lu(k,1355) = lu(k,1355) - lu(k,231) * lu(k,1351)
     740   114070872 :          lu(k,1364) = lu(k,1364) - lu(k,232) * lu(k,1351)
     741   114070872 :          lu(k,1365) = lu(k,1365) - lu(k,233) * lu(k,1351)
     742   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,234) * lu(k,1351)
     743   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,235) * lu(k,1351)
     744   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,236) * lu(k,1351)
     745   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,237) * lu(k,1351)
     746   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,238) * lu(k,1351)
     747   114070872 :          lu(k,1411) = lu(k,1411) - lu(k,231) * lu(k,1408)
     748   114070872 :          lu(k,1415) = lu(k,1415) - lu(k,232) * lu(k,1408)
     749   114070872 :          lu(k,1416) = lu(k,1416) - lu(k,233) * lu(k,1408)
     750   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,234) * lu(k,1408)
     751   114070872 :          lu(k,1432) = lu(k,1432) - lu(k,235) * lu(k,1408)
     752   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,236) * lu(k,1408)
     753   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,237) * lu(k,1408)
     754   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,238) * lu(k,1408)
     755   114070872 :          lu(k,239) = 1._r8 / lu(k,239)
     756   114070872 :          lu(k,240) = lu(k,240) * lu(k,239)
     757   114070872 :          lu(k,241) = lu(k,241) * lu(k,239)
     758   114070872 :          lu(k,242) = lu(k,242) * lu(k,239)
     759   114070872 :          lu(k,243) = lu(k,243) * lu(k,239)
     760   114070872 :          lu(k,244) = lu(k,244) * lu(k,239)
     761   114070872 :          lu(k,245) = lu(k,245) * lu(k,239)
     762   114070872 :          lu(k,1271) = lu(k,1271) - lu(k,240) * lu(k,1262)
     763   114070872 :          lu(k,1273) = lu(k,1273) - lu(k,241) * lu(k,1262)
     764   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,242) * lu(k,1262)
     765   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,243) * lu(k,1262)
     766   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,244) * lu(k,1262)
     767   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,245) * lu(k,1262)
     768   114070872 :          lu(k,1369) = lu(k,1369) - lu(k,240) * lu(k,1352)
     769   114070872 :          lu(k,1375) = lu(k,1375) - lu(k,241) * lu(k,1352)
     770   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,242) * lu(k,1352)
     771   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,243) * lu(k,1352)
     772   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,244) * lu(k,1352)
     773   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,245) * lu(k,1352)
     774   114070872 :          lu(k,1420) = lu(k,1420) - lu(k,240) * lu(k,1409)
     775   114070872 :          lu(k,1424) = - lu(k,241) * lu(k,1409)
     776   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,242) * lu(k,1409)
     777   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,243) * lu(k,1409)
     778   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,244) * lu(k,1409)
     779   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,245) * lu(k,1409)
     780   114070872 :          lu(k,1547) = lu(k,1547) - lu(k,240) * lu(k,1543)
     781   114070872 :          lu(k,1549) = lu(k,1549) - lu(k,241) * lu(k,1543)
     782   114070872 :          lu(k,1560) = lu(k,1560) - lu(k,242) * lu(k,1543)
     783   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,243) * lu(k,1543)
     784   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,244) * lu(k,1543)
     785   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,245) * lu(k,1543)
     786   114070872 :          lu(k,246) = 1._r8 / lu(k,246)
     787   114070872 :          lu(k,247) = lu(k,247) * lu(k,246)
     788   114070872 :          lu(k,248) = lu(k,248) * lu(k,246)
     789   114070872 :          lu(k,249) = lu(k,249) * lu(k,246)
     790   114070872 :          lu(k,250) = lu(k,250) * lu(k,246)
     791   114070872 :          lu(k,251) = lu(k,251) * lu(k,246)
     792   114070872 :          lu(k,284) = lu(k,284) - lu(k,247) * lu(k,283)
     793   114070872 :          lu(k,285) = lu(k,285) - lu(k,248) * lu(k,283)
     794   114070872 :          lu(k,286) = - lu(k,249) * lu(k,283)
     795   114070872 :          lu(k,287) = lu(k,287) - lu(k,250) * lu(k,283)
     796   114070872 :          lu(k,288) = lu(k,288) - lu(k,251) * lu(k,283)
     797   114070872 :          lu(k,291) = lu(k,291) - lu(k,247) * lu(k,290)
     798   114070872 :          lu(k,294) = lu(k,294) - lu(k,248) * lu(k,290)
     799   114070872 :          lu(k,295) = - lu(k,249) * lu(k,290)
     800   114070872 :          lu(k,298) = lu(k,298) - lu(k,250) * lu(k,290)
     801   114070872 :          lu(k,299) = lu(k,299) - lu(k,251) * lu(k,290)
     802   114070872 :          lu(k,1048) = lu(k,1048) - lu(k,247) * lu(k,1044)
     803   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,248) * lu(k,1044)
     804   114070872 :          lu(k,1062) = lu(k,1062) - lu(k,249) * lu(k,1044)
     805   114070872 :          lu(k,1074) = lu(k,1074) - lu(k,250) * lu(k,1044)
     806   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,251) * lu(k,1044)
     807   114070872 :          lu(k,1219) = - lu(k,247) * lu(k,1218)
     808   114070872 :          lu(k,1237) = lu(k,1237) - lu(k,248) * lu(k,1218)
     809   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,249) * lu(k,1218)
     810   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,250) * lu(k,1218)
     811   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,251) * lu(k,1218)
     812   114070872 :          lu(k,2042) = lu(k,2042) - lu(k,247) * lu(k,2038)
     813   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,248) * lu(k,2038)
     814   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,249) * lu(k,2038)
     815   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,250) * lu(k,2038)
     816   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,251) * lu(k,2038)
     817   114070872 :          lu(k,252) = 1._r8 / lu(k,252)
     818   114070872 :          lu(k,253) = lu(k,253) * lu(k,252)
     819   114070872 :          lu(k,254) = lu(k,254) * lu(k,252)
     820   114070872 :          lu(k,255) = lu(k,255) * lu(k,252)
     821   114070872 :          lu(k,391) = - lu(k,253) * lu(k,385)
     822   114070872 :          lu(k,392) = - lu(k,254) * lu(k,385)
     823   114070872 :          lu(k,394) = lu(k,394) - lu(k,255) * lu(k,385)
     824   114070872 :          lu(k,421) = lu(k,421) - lu(k,253) * lu(k,414)
     825   114070872 :          lu(k,422) = lu(k,422) - lu(k,254) * lu(k,414)
     826   114070872 :          lu(k,423) = lu(k,423) - lu(k,255) * lu(k,414)
     827   114070872 :          lu(k,586) = lu(k,586) - lu(k,253) * lu(k,580)
     828   114070872 :          lu(k,587) = - lu(k,254) * lu(k,580)
     829   114070872 :          lu(k,588) = - lu(k,255) * lu(k,580)
     830   114070872 :          lu(k,740) = lu(k,740) - lu(k,253) * lu(k,733)
     831   114070872 :          lu(k,741) = lu(k,741) - lu(k,254) * lu(k,733)
     832   114070872 :          lu(k,744) = - lu(k,255) * lu(k,733)
     833   114070872 :          lu(k,983) = lu(k,983) - lu(k,253) * lu(k,965)
     834   114070872 :          lu(k,984) = lu(k,984) - lu(k,254) * lu(k,965)
     835   114070872 :          lu(k,989) = lu(k,989) - lu(k,255) * lu(k,965)
     836   114070872 :          lu(k,1275) = - lu(k,253) * lu(k,1263)
     837   114070872 :          lu(k,1277) = - lu(k,254) * lu(k,1263)
     838   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,255) * lu(k,1263)
     839   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,253) * lu(k,1353)
     840   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,254) * lu(k,1353)
     841   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,255) * lu(k,1353)
     842   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,253) * lu(k,1460)
     843   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,254) * lu(k,1460)
     844   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,255) * lu(k,1460)
     845   114070872 :          lu(k,1723) = lu(k,1723) - lu(k,253) * lu(k,1711)
     846   114070872 :          lu(k,1725) = lu(k,1725) - lu(k,254) * lu(k,1711)
     847   114070872 :          lu(k,1731) = - lu(k,255) * lu(k,1711)
     848   114070872 :          lu(k,256) = 1._r8 / lu(k,256)
     849   114070872 :          lu(k,257) = lu(k,257) * lu(k,256)
     850   114070872 :          lu(k,258) = lu(k,258) * lu(k,256)
     851   114070872 :          lu(k,259) = lu(k,259) * lu(k,256)
     852   114070872 :          lu(k,260) = lu(k,260) * lu(k,256)
     853   114070872 :          lu(k,261) = lu(k,261) * lu(k,256)
     854   114070872 :          lu(k,262) = lu(k,262) * lu(k,256)
     855   114070872 :          lu(k,263) = lu(k,263) * lu(k,256)
     856   114070872 :          lu(k,1046) = lu(k,1046) - lu(k,257) * lu(k,1045)
     857   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,258) * lu(k,1045)
     858   114070872 :          lu(k,1060) = lu(k,1060) - lu(k,259) * lu(k,1045)
     859   114070872 :          lu(k,1063) = lu(k,1063) - lu(k,260) * lu(k,1045)
     860   114070872 :          lu(k,1064) = lu(k,1064) - lu(k,261) * lu(k,1045)
     861   114070872 :          lu(k,1079) = lu(k,1079) - lu(k,262) * lu(k,1045)
     862   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,263) * lu(k,1045)
     863   114070872 :          lu(k,1128) = lu(k,1128) - lu(k,257) * lu(k,1127)
     864   114070872 :          lu(k,1151) = lu(k,1151) - lu(k,258) * lu(k,1127)
     865   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,259) * lu(k,1127)
     866   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,260) * lu(k,1127)
     867   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,261) * lu(k,1127)
     868   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,262) * lu(k,1127)
     869   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,263) * lu(k,1127)
     870   114070872 :          lu(k,1265) = lu(k,1265) - lu(k,257) * lu(k,1264)
     871   114070872 :          lu(k,1279) = - lu(k,258) * lu(k,1264)
     872   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,259) * lu(k,1264)
     873   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,260) * lu(k,1264)
     874   114070872 :          lu(k,1285) = - lu(k,261) * lu(k,1264)
     875   114070872 :          lu(k,1300) = - lu(k,262) * lu(k,1264)
     876   114070872 :          lu(k,1302) = - lu(k,263) * lu(k,1264)
     877   114070872 :          lu(k,2040) = lu(k,2040) - lu(k,257) * lu(k,2039)
     878   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,258) * lu(k,2039)
     879   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,259) * lu(k,2039)
     880   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,260) * lu(k,2039)
     881   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,261) * lu(k,2039)
     882   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,262) * lu(k,2039)
     883   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,263) * lu(k,2039)
     884   114070872 :          lu(k,264) = 1._r8 / lu(k,264)
     885   114070872 :          lu(k,265) = lu(k,265) * lu(k,264)
     886   114070872 :          lu(k,266) = lu(k,266) * lu(k,264)
     887   114070872 :          lu(k,267) = lu(k,267) * lu(k,264)
     888   114070872 :          lu(k,268) = lu(k,268) * lu(k,264)
     889   114070872 :          lu(k,269) = lu(k,269) * lu(k,264)
     890   114070872 :          lu(k,270) = lu(k,270) * lu(k,264)
     891   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,265) * lu(k,1046)
     892   114070872 :          lu(k,1060) = lu(k,1060) - lu(k,266) * lu(k,1046)
     893   114070872 :          lu(k,1063) = lu(k,1063) - lu(k,267) * lu(k,1046)
     894   114070872 :          lu(k,1064) = lu(k,1064) - lu(k,268) * lu(k,1046)
     895   114070872 :          lu(k,1079) = lu(k,1079) - lu(k,269) * lu(k,1046)
     896   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,270) * lu(k,1046)
     897   114070872 :          lu(k,1151) = lu(k,1151) - lu(k,265) * lu(k,1128)
     898   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,266) * lu(k,1128)
     899   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,267) * lu(k,1128)
     900   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,268) * lu(k,1128)
     901   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,269) * lu(k,1128)
     902   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,270) * lu(k,1128)
     903   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,265) * lu(k,1265)
     904   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,266) * lu(k,1265)
     905   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,267) * lu(k,1265)
     906   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,268) * lu(k,1265)
     907   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,269) * lu(k,1265)
     908   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,270) * lu(k,1265)
     909   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,265) * lu(k,2040)
     910   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,266) * lu(k,2040)
     911   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,267) * lu(k,2040)
     912   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,268) * lu(k,2040)
     913   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,269) * lu(k,2040)
     914   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,270) * lu(k,2040)
     915             :       end do
     916     3585597 :       end subroutine lu_fac06
     917     3585597 :       subroutine lu_fac07( avec_len, lu )
     918             :       use chem_mods, only : nzcnt
     919             :       use shr_kind_mod, only : r8 => shr_kind_r8
     920             :       implicit none
     921             : !-----------------------------------------------------------------------
     922             : ! ... dummy args
     923             : !-----------------------------------------------------------------------
     924             :       integer, intent(in) :: avec_len
     925             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     926             : !-----------------------------------------------------------------------
     927             : ! ... local variables
     928             : !-----------------------------------------------------------------------
     929             :       integer :: k
     930   117656469 :       do k = 1,avec_len
     931   114070872 :          lu(k,271) = 1._r8 / lu(k,271)
     932   114070872 :          lu(k,272) = lu(k,272) * lu(k,271)
     933   114070872 :          lu(k,273) = lu(k,273) * lu(k,271)
     934   114070872 :          lu(k,274) = lu(k,274) * lu(k,271)
     935   114070872 :          lu(k,275) = lu(k,275) * lu(k,271)
     936   114070872 :          lu(k,276) = lu(k,276) * lu(k,271)
     937   114070872 :          lu(k,277) = lu(k,277) * lu(k,271)
     938   114070872 :          lu(k,476) = lu(k,476) - lu(k,272) * lu(k,474)
     939   114070872 :          lu(k,480) = lu(k,480) - lu(k,273) * lu(k,474)
     940   114070872 :          lu(k,482) = lu(k,482) - lu(k,274) * lu(k,474)
     941   114070872 :          lu(k,483) = lu(k,483) - lu(k,275) * lu(k,474)
     942   114070872 :          lu(k,485) = lu(k,485) - lu(k,276) * lu(k,474)
     943   114070872 :          lu(k,487) = lu(k,487) - lu(k,277) * lu(k,474)
     944   114070872 :          lu(k,977) = lu(k,977) - lu(k,272) * lu(k,966)
     945   114070872 :          lu(k,984) = lu(k,984) - lu(k,273) * lu(k,966)
     946   114070872 :          lu(k,991) = lu(k,991) - lu(k,274) * lu(k,966)
     947   114070872 :          lu(k,992) = lu(k,992) - lu(k,275) * lu(k,966)
     948   114070872 :          lu(k,998) = lu(k,998) - lu(k,276) * lu(k,966)
     949   114070872 :          lu(k,1002) = lu(k,1002) - lu(k,277) * lu(k,966)
     950   114070872 :          lu(k,1367) = lu(k,1367) - lu(k,272) * lu(k,1354)
     951   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,273) * lu(k,1354)
     952   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,274) * lu(k,1354)
     953   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,275) * lu(k,1354)
     954   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,276) * lu(k,1354)
     955   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,277) * lu(k,1354)
     956   114070872 :          lu(k,1418) = lu(k,1418) - lu(k,272) * lu(k,1410)
     957   114070872 :          lu(k,1428) = - lu(k,273) * lu(k,1410)
     958   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,274) * lu(k,1410)
     959   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,275) * lu(k,1410)
     960   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,276) * lu(k,1410)
     961   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,277) * lu(k,1410)
     962   114070872 :          lu(k,1908) = lu(k,1908) - lu(k,272) * lu(k,1904)
     963   114070872 :          lu(k,1918) = lu(k,1918) - lu(k,273) * lu(k,1904)
     964   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,274) * lu(k,1904)
     965   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,275) * lu(k,1904)
     966   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,276) * lu(k,1904)
     967   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,277) * lu(k,1904)
     968   114070872 :          lu(k,278) = 1._r8 / lu(k,278)
     969   114070872 :          lu(k,279) = lu(k,279) * lu(k,278)
     970   114070872 :          lu(k,280) = lu(k,280) * lu(k,278)
     971   114070872 :          lu(k,281) = lu(k,281) * lu(k,278)
     972   114070872 :          lu(k,282) = lu(k,282) * lu(k,278)
     973   114070872 :          lu(k,927) = - lu(k,279) * lu(k,922)
     974   114070872 :          lu(k,943) = lu(k,943) - lu(k,280) * lu(k,922)
     975   114070872 :          lu(k,946) = lu(k,946) - lu(k,281) * lu(k,922)
     976   114070872 :          lu(k,948) = lu(k,948) - lu(k,282) * lu(k,922)
     977   114070872 :          lu(k,984) = lu(k,984) - lu(k,279) * lu(k,967)
     978   114070872 :          lu(k,999) = lu(k,999) - lu(k,280) * lu(k,967)
     979   114070872 :          lu(k,1003) = lu(k,1003) - lu(k,281) * lu(k,967)
     980   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,282) * lu(k,967)
     981   114070872 :          lu(k,1057) = lu(k,1057) - lu(k,279) * lu(k,1047)
     982   114070872 :          lu(k,1075) = - lu(k,280) * lu(k,1047)
     983   114070872 :          lu(k,1079) = lu(k,1079) - lu(k,281) * lu(k,1047)
     984   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,282) * lu(k,1047)
     985   114070872 :          lu(k,1192) = lu(k,1192) - lu(k,279) * lu(k,1176)
     986   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,280) * lu(k,1176)
     987   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,281) * lu(k,1176)
     988   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,282) * lu(k,1176)
     989   114070872 :          lu(k,1517) = lu(k,1517) - lu(k,279) * lu(k,1503)
     990   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,280) * lu(k,1503)
     991   114070872 :          lu(k,1540) = - lu(k,281) * lu(k,1503)
     992   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,282) * lu(k,1503)
     993   114070872 :          lu(k,1960) = lu(k,1960) - lu(k,279) * lu(k,1944)
     994   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,280) * lu(k,1944)
     995   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,281) * lu(k,1944)
     996   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,282) * lu(k,1944)
     997   114070872 :          lu(k,2005) = lu(k,2005) - lu(k,279) * lu(k,1988)
     998   114070872 :          lu(k,2024) = - lu(k,280) * lu(k,1988)
     999   114070872 :          lu(k,2028) = - lu(k,281) * lu(k,1988)
    1000   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,282) * lu(k,1988)
    1001   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,279) * lu(k,2041)
    1002   114070872 :          lu(k,2084) = - lu(k,280) * lu(k,2041)
    1003   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,281) * lu(k,2041)
    1004   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,282) * lu(k,2041)
    1005   114070872 :          lu(k,284) = 1._r8 / lu(k,284)
    1006   114070872 :          lu(k,285) = lu(k,285) * lu(k,284)
    1007   114070872 :          lu(k,286) = lu(k,286) * lu(k,284)
    1008   114070872 :          lu(k,287) = lu(k,287) * lu(k,284)
    1009   114070872 :          lu(k,288) = lu(k,288) * lu(k,284)
    1010   114070872 :          lu(k,294) = lu(k,294) - lu(k,285) * lu(k,291)
    1011   114070872 :          lu(k,295) = lu(k,295) - lu(k,286) * lu(k,291)
    1012   114070872 :          lu(k,298) = lu(k,298) - lu(k,287) * lu(k,291)
    1013   114070872 :          lu(k,299) = lu(k,299) - lu(k,288) * lu(k,291)
    1014   114070872 :          lu(k,902) = - lu(k,285) * lu(k,890)
    1015   114070872 :          lu(k,904) = - lu(k,286) * lu(k,890)
    1016   114070872 :          lu(k,914) = lu(k,914) - lu(k,287) * lu(k,890)
    1017   114070872 :          lu(k,921) = lu(k,921) - lu(k,288) * lu(k,890)
    1018   114070872 :          lu(k,985) = - lu(k,285) * lu(k,968)
    1019   114070872 :          lu(k,988) = - lu(k,286) * lu(k,968)
    1020   114070872 :          lu(k,998) = lu(k,998) - lu(k,287) * lu(k,968)
    1021   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,288) * lu(k,968)
    1022   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,285) * lu(k,1048)
    1023   114070872 :          lu(k,1062) = lu(k,1062) - lu(k,286) * lu(k,1048)
    1024   114070872 :          lu(k,1074) = lu(k,1074) - lu(k,287) * lu(k,1048)
    1025   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,288) * lu(k,1048)
    1026   114070872 :          lu(k,1237) = lu(k,1237) - lu(k,285) * lu(k,1219)
    1027   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,286) * lu(k,1219)
    1028   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,287) * lu(k,1219)
    1029   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,288) * lu(k,1219)
    1030   114070872 :          lu(k,1321) = lu(k,1321) - lu(k,285) * lu(k,1303)
    1031   114070872 :          lu(k,1325) = - lu(k,286) * lu(k,1303)
    1032   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,287) * lu(k,1303)
    1033   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,288) * lu(k,1303)
    1034   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,285) * lu(k,1750)
    1035   114070872 :          lu(k,1766) = - lu(k,286) * lu(k,1750)
    1036   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,287) * lu(k,1750)
    1037   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,288) * lu(k,1750)
    1038   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,285) * lu(k,2042)
    1039   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,286) * lu(k,2042)
    1040   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,287) * lu(k,2042)
    1041   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,288) * lu(k,2042)
    1042   114070872 :          lu(k,292) = 1._r8 / lu(k,292)
    1043   114070872 :          lu(k,293) = lu(k,293) * lu(k,292)
    1044   114070872 :          lu(k,294) = lu(k,294) * lu(k,292)
    1045   114070872 :          lu(k,295) = lu(k,295) * lu(k,292)
    1046   114070872 :          lu(k,296) = lu(k,296) * lu(k,292)
    1047   114070872 :          lu(k,297) = lu(k,297) * lu(k,292)
    1048   114070872 :          lu(k,298) = lu(k,298) * lu(k,292)
    1049   114070872 :          lu(k,299) = lu(k,299) * lu(k,292)
    1050   114070872 :          lu(k,462) = - lu(k,293) * lu(k,459)
    1051   114070872 :          lu(k,463) = lu(k,463) - lu(k,294) * lu(k,459)
    1052   114070872 :          lu(k,464) = - lu(k,295) * lu(k,459)
    1053   114070872 :          lu(k,466) = lu(k,466) - lu(k,296) * lu(k,459)
    1054   114070872 :          lu(k,468) = lu(k,468) - lu(k,297) * lu(k,459)
    1055   114070872 :          lu(k,469) = - lu(k,298) * lu(k,459)
    1056   114070872 :          lu(k,472) = lu(k,472) - lu(k,299) * lu(k,459)
    1057   114070872 :          lu(k,1057) = lu(k,1057) - lu(k,293) * lu(k,1049)
    1058   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,294) * lu(k,1049)
    1059   114070872 :          lu(k,1062) = lu(k,1062) - lu(k,295) * lu(k,1049)
    1060   114070872 :          lu(k,1066) = lu(k,1066) - lu(k,296) * lu(k,1049)
    1061   114070872 :          lu(k,1070) = lu(k,1070) - lu(k,297) * lu(k,1049)
    1062   114070872 :          lu(k,1074) = lu(k,1074) - lu(k,298) * lu(k,1049)
    1063   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,299) * lu(k,1049)
    1064   114070872 :          lu(k,1598) = lu(k,1598) - lu(k,293) * lu(k,1579)
    1065   114070872 :          lu(k,1600) = lu(k,1600) - lu(k,294) * lu(k,1579)
    1066   114070872 :          lu(k,1604) = - lu(k,295) * lu(k,1579)
    1067   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,296) * lu(k,1579)
    1068   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,297) * lu(k,1579)
    1069   114070872 :          lu(k,1616) = - lu(k,298) * lu(k,1579)
    1070   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,299) * lu(k,1579)
    1071   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,293) * lu(k,2043)
    1072   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,294) * lu(k,2043)
    1073   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,295) * lu(k,2043)
    1074   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,296) * lu(k,2043)
    1075   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,297) * lu(k,2043)
    1076   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,298) * lu(k,2043)
    1077   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,299) * lu(k,2043)
    1078   114070872 :          lu(k,300) = 1._r8 / lu(k,300)
    1079   114070872 :          lu(k,301) = lu(k,301) * lu(k,300)
    1080   114070872 :          lu(k,302) = lu(k,302) * lu(k,300)
    1081   114070872 :          lu(k,303) = lu(k,303) * lu(k,300)
    1082   114070872 :          lu(k,304) = lu(k,304) * lu(k,300)
    1083   114070872 :          lu(k,305) = lu(k,305) * lu(k,300)
    1084   114070872 :          lu(k,306) = lu(k,306) * lu(k,300)
    1085   114070872 :          lu(k,307) = lu(k,307) * lu(k,300)
    1086   114070872 :          lu(k,387) = lu(k,387) - lu(k,301) * lu(k,386)
    1087   114070872 :          lu(k,388) = lu(k,388) - lu(k,302) * lu(k,386)
    1088   114070872 :          lu(k,389) = lu(k,389) - lu(k,303) * lu(k,386)
    1089   114070872 :          lu(k,390) = - lu(k,304) * lu(k,386)
    1090   114070872 :          lu(k,395) = lu(k,395) - lu(k,305) * lu(k,386)
    1091   114070872 :          lu(k,396) = lu(k,396) - lu(k,306) * lu(k,386)
    1092   114070872 :          lu(k,398) = - lu(k,307) * lu(k,386)
    1093   114070872 :          lu(k,1051) = lu(k,1051) - lu(k,301) * lu(k,1050)
    1094   114070872 :          lu(k,1052) = lu(k,1052) - lu(k,302) * lu(k,1050)
    1095   114070872 :          lu(k,1053) = lu(k,1053) - lu(k,303) * lu(k,1050)
    1096   114070872 :          lu(k,1055) = lu(k,1055) - lu(k,304) * lu(k,1050)
    1097   114070872 :          lu(k,1065) = lu(k,1065) - lu(k,305) * lu(k,1050)
    1098   114070872 :          lu(k,1066) = lu(k,1066) - lu(k,306) * lu(k,1050)
    1099   114070872 :          lu(k,1079) = lu(k,1079) - lu(k,307) * lu(k,1050)
    1100   114070872 :          lu(k,1130) = - lu(k,301) * lu(k,1129)
    1101   114070872 :          lu(k,1131) = - lu(k,302) * lu(k,1129)
    1102   114070872 :          lu(k,1132) = lu(k,1132) - lu(k,303) * lu(k,1129)
    1103   114070872 :          lu(k,1143) = - lu(k,304) * lu(k,1129)
    1104   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,305) * lu(k,1129)
    1105   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,306) * lu(k,1129)
    1106   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,307) * lu(k,1129)
    1107   114070872 :          lu(k,1357) = lu(k,1357) - lu(k,301) * lu(k,1355)
    1108   114070872 :          lu(k,1364) = lu(k,1364) - lu(k,302) * lu(k,1355)
    1109   114070872 :          lu(k,1365) = lu(k,1365) - lu(k,303) * lu(k,1355)
    1110   114070872 :          lu(k,1373) = - lu(k,304) * lu(k,1355)
    1111   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,305) * lu(k,1355)
    1112   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,306) * lu(k,1355)
    1113   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,307) * lu(k,1355)
    1114   114070872 :          lu(k,1412) = lu(k,1412) - lu(k,301) * lu(k,1411)
    1115   114070872 :          lu(k,1415) = lu(k,1415) - lu(k,302) * lu(k,1411)
    1116   114070872 :          lu(k,1416) = lu(k,1416) - lu(k,303) * lu(k,1411)
    1117   114070872 :          lu(k,1423) = lu(k,1423) - lu(k,304) * lu(k,1411)
    1118   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,305) * lu(k,1411)
    1119   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,306) * lu(k,1411)
    1120   117656469 :          lu(k,1451) = lu(k,1451) - lu(k,307) * lu(k,1411)
    1121             :       end do
    1122     3585597 :       end subroutine lu_fac07
    1123     3585597 :       subroutine lu_fac08( avec_len, lu )
    1124             :       use chem_mods, only : nzcnt
    1125             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1126             :       implicit none
    1127             : !-----------------------------------------------------------------------
    1128             : ! ... dummy args
    1129             : !-----------------------------------------------------------------------
    1130             :       integer, intent(in) :: avec_len
    1131             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1132             : !-----------------------------------------------------------------------
    1133             : ! ... local variables
    1134             : !-----------------------------------------------------------------------
    1135             :       integer :: k
    1136   117656469 :       do k = 1,avec_len
    1137   114070872 :          lu(k,309) = 1._r8 / lu(k,309)
    1138   114070872 :          lu(k,310) = lu(k,310) * lu(k,309)
    1139   114070872 :          lu(k,311) = lu(k,311) * lu(k,309)
    1140   114070872 :          lu(k,312) = lu(k,312) * lu(k,309)
    1141   114070872 :          lu(k,313) = lu(k,313) * lu(k,309)
    1142   114070872 :          lu(k,314) = lu(k,314) * lu(k,309)
    1143   114070872 :          lu(k,315) = lu(k,315) * lu(k,309)
    1144   114070872 :          lu(k,316) = lu(k,316) * lu(k,309)
    1145   114070872 :          lu(k,714) = lu(k,714) - lu(k,310) * lu(k,711)
    1146   114070872 :          lu(k,715) = lu(k,715) - lu(k,311) * lu(k,711)
    1147   114070872 :          lu(k,719) = lu(k,719) - lu(k,312) * lu(k,711)
    1148   114070872 :          lu(k,722) = lu(k,722) - lu(k,313) * lu(k,711)
    1149   114070872 :          lu(k,724) = lu(k,724) - lu(k,314) * lu(k,711)
    1150   114070872 :          lu(k,731) = - lu(k,315) * lu(k,711)
    1151   114070872 :          lu(k,732) = - lu(k,316) * lu(k,711)
    1152   114070872 :          lu(k,895) = lu(k,895) - lu(k,310) * lu(k,891)
    1153   114070872 :          lu(k,897) = lu(k,897) - lu(k,311) * lu(k,891)
    1154   114070872 :          lu(k,901) = lu(k,901) - lu(k,312) * lu(k,891)
    1155   114070872 :          lu(k,907) = lu(k,907) - lu(k,313) * lu(k,891)
    1156   114070872 :          lu(k,909) = lu(k,909) - lu(k,314) * lu(k,891)
    1157   114070872 :          lu(k,920) = lu(k,920) - lu(k,315) * lu(k,891)
    1158   114070872 :          lu(k,921) = lu(k,921) - lu(k,316) * lu(k,891)
    1159   114070872 :          lu(k,1368) = lu(k,1368) - lu(k,310) * lu(k,1356)
    1160   114070872 :          lu(k,1371) = lu(k,1371) - lu(k,311) * lu(k,1356)
    1161   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,312) * lu(k,1356)
    1162   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,313) * lu(k,1356)
    1163   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,314) * lu(k,1356)
    1164   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,315) * lu(k,1356)
    1165   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,316) * lu(k,1356)
    1166   114070872 :          lu(k,1795) = lu(k,1795) - lu(k,310) * lu(k,1789)
    1167   114070872 :          lu(k,1801) = lu(k,1801) - lu(k,311) * lu(k,1789)
    1168   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,312) * lu(k,1789)
    1169   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,313) * lu(k,1789)
    1170   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,314) * lu(k,1789)
    1171   114070872 :          lu(k,1832) = - lu(k,315) * lu(k,1789)
    1172   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,316) * lu(k,1789)
    1173   114070872 :          lu(k,1995) = lu(k,1995) - lu(k,310) * lu(k,1989)
    1174   114070872 :          lu(k,1997) = - lu(k,311) * lu(k,1989)
    1175   114070872 :          lu(k,2005) = lu(k,2005) - lu(k,312) * lu(k,1989)
    1176   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,313) * lu(k,1989)
    1177   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,314) * lu(k,1989)
    1178   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,315) * lu(k,1989)
    1179   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,316) * lu(k,1989)
    1180   114070872 :          lu(k,317) = 1._r8 / lu(k,317)
    1181   114070872 :          lu(k,318) = lu(k,318) * lu(k,317)
    1182   114070872 :          lu(k,319) = lu(k,319) * lu(k,317)
    1183   114070872 :          lu(k,320) = lu(k,320) * lu(k,317)
    1184   114070872 :          lu(k,321) = lu(k,321) * lu(k,317)
    1185   114070872 :          lu(k,322) = lu(k,322) * lu(k,317)
    1186   114070872 :          lu(k,323) = lu(k,323) * lu(k,317)
    1187   114070872 :          lu(k,388) = lu(k,388) - lu(k,318) * lu(k,387)
    1188   114070872 :          lu(k,389) = lu(k,389) - lu(k,319) * lu(k,387)
    1189   114070872 :          lu(k,393) = lu(k,393) - lu(k,320) * lu(k,387)
    1190   114070872 :          lu(k,395) = lu(k,395) - lu(k,321) * lu(k,387)
    1191   114070872 :          lu(k,396) = lu(k,396) - lu(k,322) * lu(k,387)
    1192   114070872 :          lu(k,397) = lu(k,397) - lu(k,323) * lu(k,387)
    1193   114070872 :          lu(k,445) = - lu(k,318) * lu(k,444)
    1194   114070872 :          lu(k,446) = lu(k,446) - lu(k,319) * lu(k,444)
    1195   114070872 :          lu(k,451) = lu(k,451) - lu(k,320) * lu(k,444)
    1196   114070872 :          lu(k,453) = lu(k,453) - lu(k,321) * lu(k,444)
    1197   114070872 :          lu(k,454) = lu(k,454) - lu(k,322) * lu(k,444)
    1198   114070872 :          lu(k,455) = lu(k,455) - lu(k,323) * lu(k,444)
    1199   114070872 :          lu(k,1052) = lu(k,1052) - lu(k,318) * lu(k,1051)
    1200   114070872 :          lu(k,1053) = lu(k,1053) - lu(k,319) * lu(k,1051)
    1201   114070872 :          lu(k,1060) = lu(k,1060) - lu(k,320) * lu(k,1051)
    1202   114070872 :          lu(k,1065) = lu(k,1065) - lu(k,321) * lu(k,1051)
    1203   114070872 :          lu(k,1066) = lu(k,1066) - lu(k,322) * lu(k,1051)
    1204   114070872 :          lu(k,1070) = lu(k,1070) - lu(k,323) * lu(k,1051)
    1205   114070872 :          lu(k,1131) = lu(k,1131) - lu(k,318) * lu(k,1130)
    1206   114070872 :          lu(k,1132) = lu(k,1132) - lu(k,319) * lu(k,1130)
    1207   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,320) * lu(k,1130)
    1208   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,321) * lu(k,1130)
    1209   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,322) * lu(k,1130)
    1210   114070872 :          lu(k,1163) = - lu(k,323) * lu(k,1130)
    1211   114070872 :          lu(k,1364) = lu(k,1364) - lu(k,318) * lu(k,1357)
    1212   114070872 :          lu(k,1365) = lu(k,1365) - lu(k,319) * lu(k,1357)
    1213   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,320) * lu(k,1357)
    1214   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,321) * lu(k,1357)
    1215   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,322) * lu(k,1357)
    1216   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,323) * lu(k,1357)
    1217   114070872 :          lu(k,1415) = lu(k,1415) - lu(k,318) * lu(k,1412)
    1218   114070872 :          lu(k,1416) = lu(k,1416) - lu(k,319) * lu(k,1412)
    1219   114070872 :          lu(k,1432) = lu(k,1432) - lu(k,320) * lu(k,1412)
    1220   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,321) * lu(k,1412)
    1221   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,322) * lu(k,1412)
    1222   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,323) * lu(k,1412)
    1223   114070872 :          lu(k,324) = 1._r8 / lu(k,324)
    1224   114070872 :          lu(k,325) = lu(k,325) * lu(k,324)
    1225   114070872 :          lu(k,326) = lu(k,326) * lu(k,324)
    1226   114070872 :          lu(k,327) = lu(k,327) * lu(k,324)
    1227   114070872 :          lu(k,328) = lu(k,328) * lu(k,324)
    1228   114070872 :          lu(k,329) = lu(k,329) * lu(k,324)
    1229   114070872 :          lu(k,330) = lu(k,330) * lu(k,324)
    1230   114070872 :          lu(k,331) = lu(k,331) * lu(k,324)
    1231   114070872 :          lu(k,582) = lu(k,582) - lu(k,325) * lu(k,581)
    1232   114070872 :          lu(k,583) = lu(k,583) - lu(k,326) * lu(k,581)
    1233   114070872 :          lu(k,585) = - lu(k,327) * lu(k,581)
    1234   114070872 :          lu(k,587) = lu(k,587) - lu(k,328) * lu(k,581)
    1235   114070872 :          lu(k,589) = - lu(k,329) * lu(k,581)
    1236   114070872 :          lu(k,591) = - lu(k,330) * lu(k,581)
    1237   114070872 :          lu(k,593) = - lu(k,331) * lu(k,581)
    1238   114070872 :          lu(k,735) = lu(k,735) - lu(k,325) * lu(k,734)
    1239   114070872 :          lu(k,737) = - lu(k,326) * lu(k,734)
    1240   114070872 :          lu(k,739) = - lu(k,327) * lu(k,734)
    1241   114070872 :          lu(k,741) = lu(k,741) - lu(k,328) * lu(k,734)
    1242   114070872 :          lu(k,745) = lu(k,745) - lu(k,329) * lu(k,734)
    1243   114070872 :          lu(k,750) = lu(k,750) - lu(k,330) * lu(k,734)
    1244   114070872 :          lu(k,757) = lu(k,757) - lu(k,331) * lu(k,734)
    1245   114070872 :          lu(k,783) = lu(k,783) - lu(k,325) * lu(k,777)
    1246   114070872 :          lu(k,785) = lu(k,785) - lu(k,326) * lu(k,777)
    1247   114070872 :          lu(k,787) = lu(k,787) - lu(k,327) * lu(k,777)
    1248   114070872 :          lu(k,789) = lu(k,789) - lu(k,328) * lu(k,777)
    1249   114070872 :          lu(k,794) = lu(k,794) - lu(k,329) * lu(k,777)
    1250   114070872 :          lu(k,801) = lu(k,801) - lu(k,330) * lu(k,777)
    1251   114070872 :          lu(k,808) = lu(k,808) - lu(k,331) * lu(k,777)
    1252   114070872 :          lu(k,895) = lu(k,895) - lu(k,325) * lu(k,892)
    1253   114070872 :          lu(k,897) = lu(k,897) - lu(k,326) * lu(k,892)
    1254   114070872 :          lu(k,899) = - lu(k,327) * lu(k,892)
    1255   114070872 :          lu(k,901) = lu(k,901) - lu(k,328) * lu(k,892)
    1256   114070872 :          lu(k,907) = lu(k,907) - lu(k,329) * lu(k,892)
    1257   114070872 :          lu(k,914) = lu(k,914) - lu(k,330) * lu(k,892)
    1258   114070872 :          lu(k,921) = lu(k,921) - lu(k,331) * lu(k,892)
    1259   114070872 :          lu(k,978) = lu(k,978) - lu(k,325) * lu(k,969)
    1260   114070872 :          lu(k,980) = lu(k,980) - lu(k,326) * lu(k,969)
    1261   114070872 :          lu(k,982) = lu(k,982) - lu(k,327) * lu(k,969)
    1262   114070872 :          lu(k,984) = lu(k,984) - lu(k,328) * lu(k,969)
    1263   114070872 :          lu(k,991) = lu(k,991) - lu(k,329) * lu(k,969)
    1264   114070872 :          lu(k,998) = lu(k,998) - lu(k,330) * lu(k,969)
    1265   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,331) * lu(k,969)
    1266   114070872 :          lu(k,1368) = lu(k,1368) - lu(k,325) * lu(k,1358)
    1267   114070872 :          lu(k,1371) = lu(k,1371) - lu(k,326) * lu(k,1358)
    1268   114070872 :          lu(k,1373) = lu(k,1373) - lu(k,327) * lu(k,1358)
    1269   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,328) * lu(k,1358)
    1270   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,329) * lu(k,1358)
    1271   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,330) * lu(k,1358)
    1272   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,331) * lu(k,1358)
    1273   114070872 :          lu(k,333) = 1._r8 / lu(k,333)
    1274   114070872 :          lu(k,334) = lu(k,334) * lu(k,333)
    1275   114070872 :          lu(k,335) = lu(k,335) * lu(k,333)
    1276   114070872 :          lu(k,336) = lu(k,336) * lu(k,333)
    1277   114070872 :          lu(k,337) = lu(k,337) * lu(k,333)
    1278   114070872 :          lu(k,338) = lu(k,338) * lu(k,333)
    1279   114070872 :          lu(k,339) = lu(k,339) * lu(k,333)
    1280   114070872 :          lu(k,360) = lu(k,360) - lu(k,334) * lu(k,358)
    1281   114070872 :          lu(k,361) = lu(k,361) - lu(k,335) * lu(k,358)
    1282   114070872 :          lu(k,362) = lu(k,362) - lu(k,336) * lu(k,358)
    1283   114070872 :          lu(k,363) = lu(k,363) - lu(k,337) * lu(k,358)
    1284   114070872 :          lu(k,367) = lu(k,367) - lu(k,338) * lu(k,358)
    1285   114070872 :          lu(k,368) = - lu(k,339) * lu(k,358)
    1286   114070872 :          lu(k,901) = lu(k,901) - lu(k,334) * lu(k,893)
    1287   114070872 :          lu(k,903) = lu(k,903) - lu(k,335) * lu(k,893)
    1288   114070872 :          lu(k,907) = lu(k,907) - lu(k,336) * lu(k,893)
    1289   114070872 :          lu(k,909) = lu(k,909) - lu(k,337) * lu(k,893)
    1290   114070872 :          lu(k,920) = lu(k,920) - lu(k,338) * lu(k,893)
    1291   114070872 :          lu(k,921) = lu(k,921) - lu(k,339) * lu(k,893)
    1292   114070872 :          lu(k,984) = lu(k,984) - lu(k,334) * lu(k,970)
    1293   114070872 :          lu(k,986) = lu(k,986) - lu(k,335) * lu(k,970)
    1294   114070872 :          lu(k,991) = lu(k,991) - lu(k,336) * lu(k,970)
    1295   114070872 :          lu(k,993) = lu(k,993) - lu(k,337) * lu(k,970)
    1296   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,338) * lu(k,970)
    1297   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,339) * lu(k,970)
    1298   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,334) * lu(k,1086)
    1299   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,335) * lu(k,1086)
    1300   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,336) * lu(k,1086)
    1301   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,337) * lu(k,1086)
    1302   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,338) * lu(k,1086)
    1303   114070872 :          lu(k,1126) = - lu(k,339) * lu(k,1086)
    1304   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,334) * lu(k,1359)
    1305   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,335) * lu(k,1359)
    1306   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,336) * lu(k,1359)
    1307   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,337) * lu(k,1359)
    1308   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,338) * lu(k,1359)
    1309   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,339) * lu(k,1359)
    1310   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,334) * lu(k,1461)
    1311   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,335) * lu(k,1461)
    1312   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,336) * lu(k,1461)
    1313   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,337) * lu(k,1461)
    1314   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,338) * lu(k,1461)
    1315   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,339) * lu(k,1461)
    1316   114070872 :          lu(k,2005) = lu(k,2005) - lu(k,334) * lu(k,1990)
    1317   114070872 :          lu(k,2008) = lu(k,2008) - lu(k,335) * lu(k,1990)
    1318   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,336) * lu(k,1990)
    1319   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,337) * lu(k,1990)
    1320   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,338) * lu(k,1990)
    1321   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,339) * lu(k,1990)
    1322   114070872 :          lu(k,341) = 1._r8 / lu(k,341)
    1323   114070872 :          lu(k,342) = lu(k,342) * lu(k,341)
    1324   114070872 :          lu(k,343) = lu(k,343) * lu(k,341)
    1325   114070872 :          lu(k,344) = lu(k,344) * lu(k,341)
    1326   114070872 :          lu(k,345) = lu(k,345) * lu(k,341)
    1327   114070872 :          lu(k,346) = lu(k,346) * lu(k,341)
    1328   114070872 :          lu(k,347) = lu(k,347) * lu(k,341)
    1329   114070872 :          lu(k,348) = lu(k,348) * lu(k,341)
    1330   114070872 :          lu(k,349) = lu(k,349) * lu(k,341)
    1331   114070872 :          lu(k,416) = lu(k,416) - lu(k,342) * lu(k,415)
    1332   114070872 :          lu(k,417) = lu(k,417) - lu(k,343) * lu(k,415)
    1333   114070872 :          lu(k,418) = lu(k,418) - lu(k,344) * lu(k,415)
    1334   114070872 :          lu(k,422) = lu(k,422) - lu(k,345) * lu(k,415)
    1335   114070872 :          lu(k,426) = - lu(k,346) * lu(k,415)
    1336   114070872 :          lu(k,427) = - lu(k,347) * lu(k,415)
    1337   114070872 :          lu(k,428) = lu(k,428) - lu(k,348) * lu(k,415)
    1338   114070872 :          lu(k,430) = lu(k,430) - lu(k,349) * lu(k,415)
    1339   114070872 :          lu(k,645) = - lu(k,342) * lu(k,644)
    1340   114070872 :          lu(k,646) = - lu(k,343) * lu(k,644)
    1341   114070872 :          lu(k,647) = lu(k,647) - lu(k,344) * lu(k,644)
    1342   114070872 :          lu(k,651) = lu(k,651) - lu(k,345) * lu(k,644)
    1343   114070872 :          lu(k,658) = - lu(k,346) * lu(k,644)
    1344   114070872 :          lu(k,659) = - lu(k,347) * lu(k,644)
    1345   114070872 :          lu(k,660) = lu(k,660) - lu(k,348) * lu(k,644)
    1346   114070872 :          lu(k,666) = lu(k,666) - lu(k,349) * lu(k,644)
    1347   114070872 :          lu(k,780) = lu(k,780) - lu(k,342) * lu(k,778)
    1348   114070872 :          lu(k,781) = lu(k,781) - lu(k,343) * lu(k,778)
    1349   114070872 :          lu(k,784) = lu(k,784) - lu(k,344) * lu(k,778)
    1350   114070872 :          lu(k,789) = lu(k,789) - lu(k,345) * lu(k,778)
    1351   114070872 :          lu(k,797) = - lu(k,346) * lu(k,778)
    1352   114070872 :          lu(k,800) = - lu(k,347) * lu(k,778)
    1353   114070872 :          lu(k,801) = lu(k,801) - lu(k,348) * lu(k,778)
    1354   114070872 :          lu(k,808) = lu(k,808) - lu(k,349) * lu(k,778)
    1355   114070872 :          lu(k,974) = lu(k,974) - lu(k,342) * lu(k,971)
    1356   114070872 :          lu(k,975) = lu(k,975) - lu(k,343) * lu(k,971)
    1357   114070872 :          lu(k,979) = lu(k,979) - lu(k,344) * lu(k,971)
    1358   114070872 :          lu(k,984) = lu(k,984) - lu(k,345) * lu(k,971)
    1359   114070872 :          lu(k,994) = lu(k,994) - lu(k,346) * lu(k,971)
    1360   114070872 :          lu(k,997) = lu(k,997) - lu(k,347) * lu(k,971)
    1361   114070872 :          lu(k,998) = lu(k,998) - lu(k,348) * lu(k,971)
    1362   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,349) * lu(k,971)
    1363   114070872 :          lu(k,1505) = - lu(k,342) * lu(k,1504)
    1364   114070872 :          lu(k,1506) = - lu(k,343) * lu(k,1504)
    1365   114070872 :          lu(k,1509) = - lu(k,344) * lu(k,1504)
    1366   114070872 :          lu(k,1517) = lu(k,1517) - lu(k,345) * lu(k,1504)
    1367   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,346) * lu(k,1504)
    1368   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,347) * lu(k,1504)
    1369   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,348) * lu(k,1504)
    1370   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,349) * lu(k,1504)
    1371   114070872 :          lu(k,2046) = - lu(k,342) * lu(k,2044)
    1372   114070872 :          lu(k,2047) = - lu(k,343) * lu(k,2044)
    1373   114070872 :          lu(k,2055) = lu(k,2055) - lu(k,344) * lu(k,2044)
    1374   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,345) * lu(k,2044)
    1375   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,346) * lu(k,2044)
    1376   114070872 :          lu(k,2082) = - lu(k,347) * lu(k,2044)
    1377   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,348) * lu(k,2044)
    1378   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,349) * lu(k,2044)
    1379             :       end do
    1380     3585597 :       end subroutine lu_fac08
    1381     3585597 :       subroutine lu_fac09( avec_len, lu )
    1382             :       use chem_mods, only : nzcnt
    1383             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1384             :       implicit none
    1385             : !-----------------------------------------------------------------------
    1386             : ! ... dummy args
    1387             : !-----------------------------------------------------------------------
    1388             :       integer, intent(in) :: avec_len
    1389             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1390             : !-----------------------------------------------------------------------
    1391             : ! ... local variables
    1392             : !-----------------------------------------------------------------------
    1393             :       integer :: k
    1394   117656469 :       do k = 1,avec_len
    1395   114070872 :          lu(k,351) = 1._r8 / lu(k,351)
    1396   114070872 :          lu(k,352) = lu(k,352) * lu(k,351)
    1397   114070872 :          lu(k,353) = lu(k,353) * lu(k,351)
    1398   114070872 :          lu(k,354) = lu(k,354) * lu(k,351)
    1399   114070872 :          lu(k,355) = lu(k,355) * lu(k,351)
    1400   114070872 :          lu(k,356) = lu(k,356) * lu(k,351)
    1401   114070872 :          lu(k,476) = lu(k,476) - lu(k,352) * lu(k,475)
    1402   114070872 :          lu(k,479) = - lu(k,353) * lu(k,475)
    1403   114070872 :          lu(k,480) = lu(k,480) - lu(k,354) * lu(k,475)
    1404   114070872 :          lu(k,482) = lu(k,482) - lu(k,355) * lu(k,475)
    1405   114070872 :          lu(k,489) = - lu(k,356) * lu(k,475)
    1406   114070872 :          lu(k,713) = lu(k,713) - lu(k,352) * lu(k,712)
    1407   114070872 :          lu(k,718) = lu(k,718) - lu(k,353) * lu(k,712)
    1408   114070872 :          lu(k,719) = lu(k,719) - lu(k,354) * lu(k,712)
    1409   114070872 :          lu(k,722) = lu(k,722) - lu(k,355) * lu(k,712)
    1410   114070872 :          lu(k,732) = lu(k,732) - lu(k,356) * lu(k,712)
    1411   114070872 :          lu(k,977) = lu(k,977) - lu(k,352) * lu(k,972)
    1412   114070872 :          lu(k,983) = lu(k,983) - lu(k,353) * lu(k,972)
    1413   114070872 :          lu(k,984) = lu(k,984) - lu(k,354) * lu(k,972)
    1414   114070872 :          lu(k,991) = lu(k,991) - lu(k,355) * lu(k,972)
    1415   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,356) * lu(k,972)
    1416   114070872 :          lu(k,1091) = lu(k,1091) - lu(k,352) * lu(k,1087)
    1417   114070872 :          lu(k,1099) = lu(k,1099) - lu(k,353) * lu(k,1087)
    1418   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,354) * lu(k,1087)
    1419   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,355) * lu(k,1087)
    1420   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,356) * lu(k,1087)
    1421   114070872 :          lu(k,1367) = lu(k,1367) - lu(k,352) * lu(k,1360)
    1422   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,353) * lu(k,1360)
    1423   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,354) * lu(k,1360)
    1424   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,355) * lu(k,1360)
    1425   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,356) * lu(k,1360)
    1426   114070872 :          lu(k,1418) = lu(k,1418) - lu(k,352) * lu(k,1413)
    1427   114070872 :          lu(k,1426) = lu(k,1426) - lu(k,353) * lu(k,1413)
    1428   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,354) * lu(k,1413)
    1429   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,355) * lu(k,1413)
    1430   114070872 :          lu(k,1453) = - lu(k,356) * lu(k,1413)
    1431   114070872 :          lu(k,1714) = - lu(k,352) * lu(k,1712)
    1432   114070872 :          lu(k,1723) = lu(k,1723) - lu(k,353) * lu(k,1712)
    1433   114070872 :          lu(k,1725) = lu(k,1725) - lu(k,354) * lu(k,1712)
    1434   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,355) * lu(k,1712)
    1435   114070872 :          lu(k,1749) = - lu(k,356) * lu(k,1712)
    1436   114070872 :          lu(k,1794) = lu(k,1794) - lu(k,352) * lu(k,1790)
    1437   114070872 :          lu(k,1806) = lu(k,1806) - lu(k,353) * lu(k,1790)
    1438   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,354) * lu(k,1790)
    1439   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,355) * lu(k,1790)
    1440   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,356) * lu(k,1790)
    1441   114070872 :          lu(k,1908) = lu(k,1908) - lu(k,352) * lu(k,1905)
    1442   114070872 :          lu(k,1916) = lu(k,1916) - lu(k,353) * lu(k,1905)
    1443   114070872 :          lu(k,1918) = lu(k,1918) - lu(k,354) * lu(k,1905)
    1444   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,355) * lu(k,1905)
    1445   114070872 :          lu(k,1943) = - lu(k,356) * lu(k,1905)
    1446   114070872 :          lu(k,2049) = - lu(k,352) * lu(k,2045)
    1447   114070872 :          lu(k,2063) = - lu(k,353) * lu(k,2045)
    1448   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,354) * lu(k,2045)
    1449   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,355) * lu(k,2045)
    1450   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,356) * lu(k,2045)
    1451   114070872 :          lu(k,359) = 1._r8 / lu(k,359)
    1452   114070872 :          lu(k,360) = lu(k,360) * lu(k,359)
    1453   114070872 :          lu(k,361) = lu(k,361) * lu(k,359)
    1454   114070872 :          lu(k,362) = lu(k,362) * lu(k,359)
    1455   114070872 :          lu(k,363) = lu(k,363) * lu(k,359)
    1456   114070872 :          lu(k,364) = lu(k,364) * lu(k,359)
    1457   114070872 :          lu(k,365) = lu(k,365) * lu(k,359)
    1458   114070872 :          lu(k,366) = lu(k,366) * lu(k,359)
    1459   114070872 :          lu(k,367) = lu(k,367) * lu(k,359)
    1460   114070872 :          lu(k,368) = lu(k,368) * lu(k,359)
    1461   114070872 :          lu(k,984) = lu(k,984) - lu(k,360) * lu(k,973)
    1462   114070872 :          lu(k,986) = lu(k,986) - lu(k,361) * lu(k,973)
    1463   114070872 :          lu(k,991) = lu(k,991) - lu(k,362) * lu(k,973)
    1464   114070872 :          lu(k,993) = lu(k,993) - lu(k,363) * lu(k,973)
    1465   114070872 :          lu(k,994) = lu(k,994) - lu(k,364) * lu(k,973)
    1466   114070872 :          lu(k,997) = lu(k,997) - lu(k,365) * lu(k,973)
    1467   114070872 :          lu(k,999) = lu(k,999) - lu(k,366) * lu(k,973)
    1468   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,367) * lu(k,973)
    1469   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,368) * lu(k,973)
    1470   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,360) * lu(k,1088)
    1471   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,361) * lu(k,1088)
    1472   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,362) * lu(k,1088)
    1473   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,363) * lu(k,1088)
    1474   114070872 :          lu(k,1113) = - lu(k,364) * lu(k,1088)
    1475   114070872 :          lu(k,1118) = lu(k,1118) - lu(k,365) * lu(k,1088)
    1476   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,366) * lu(k,1088)
    1477   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,367) * lu(k,1088)
    1478   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,368) * lu(k,1088)
    1479   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,360) * lu(k,1361)
    1480   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,361) * lu(k,1361)
    1481   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,362) * lu(k,1361)
    1482   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,363) * lu(k,1361)
    1483   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,364) * lu(k,1361)
    1484   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,365) * lu(k,1361)
    1485   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,366) * lu(k,1361)
    1486   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,367) * lu(k,1361)
    1487   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,368) * lu(k,1361)
    1488   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,360) * lu(k,1462)
    1489   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,361) * lu(k,1462)
    1490   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,362) * lu(k,1462)
    1491   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,363) * lu(k,1462)
    1492   114070872 :          lu(k,1488) = - lu(k,364) * lu(k,1462)
    1493   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,365) * lu(k,1462)
    1494   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,366) * lu(k,1462)
    1495   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,367) * lu(k,1462)
    1496   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,368) * lu(k,1462)
    1497   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,360) * lu(k,1791)
    1498   114070872 :          lu(k,1811) = lu(k,1811) - lu(k,361) * lu(k,1791)
    1499   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,362) * lu(k,1791)
    1500   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,363) * lu(k,1791)
    1501   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,364) * lu(k,1791)
    1502   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,365) * lu(k,1791)
    1503   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,366) * lu(k,1791)
    1504   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,367) * lu(k,1791)
    1505   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,368) * lu(k,1791)
    1506   114070872 :          lu(k,2005) = lu(k,2005) - lu(k,360) * lu(k,1991)
    1507   114070872 :          lu(k,2008) = lu(k,2008) - lu(k,361) * lu(k,1991)
    1508   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,362) * lu(k,1991)
    1509   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,363) * lu(k,1991)
    1510   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,364) * lu(k,1991)
    1511   114070872 :          lu(k,2022) = - lu(k,365) * lu(k,1991)
    1512   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,366) * lu(k,1991)
    1513   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,367) * lu(k,1991)
    1514   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,368) * lu(k,1991)
    1515   114070872 :          lu(k,369) = 1._r8 / lu(k,369)
    1516   114070872 :          lu(k,370) = lu(k,370) * lu(k,369)
    1517   114070872 :          lu(k,371) = lu(k,371) * lu(k,369)
    1518   114070872 :          lu(k,372) = lu(k,372) * lu(k,369)
    1519   114070872 :          lu(k,373) = lu(k,373) * lu(k,369)
    1520   114070872 :          lu(k,374) = lu(k,374) * lu(k,369)
    1521   114070872 :          lu(k,375) = lu(k,375) * lu(k,369)
    1522   114070872 :          lu(k,376) = lu(k,376) * lu(k,369)
    1523   114070872 :          lu(k,832) = lu(k,832) - lu(k,370) * lu(k,830)
    1524   114070872 :          lu(k,836) = - lu(k,371) * lu(k,830)
    1525   114070872 :          lu(k,846) = lu(k,846) - lu(k,372) * lu(k,830)
    1526   114070872 :          lu(k,847) = lu(k,847) - lu(k,373) * lu(k,830)
    1527   114070872 :          lu(k,848) = lu(k,848) - lu(k,374) * lu(k,830)
    1528   114070872 :          lu(k,855) = - lu(k,375) * lu(k,830)
    1529   114070872 :          lu(k,859) = lu(k,859) - lu(k,376) * lu(k,830)
    1530   114070872 :          lu(k,1010) = lu(k,1010) - lu(k,370) * lu(k,1006)
    1531   114070872 :          lu(k,1012) = lu(k,1012) - lu(k,371) * lu(k,1006)
    1532   114070872 :          lu(k,1022) = lu(k,1022) - lu(k,372) * lu(k,1006)
    1533   114070872 :          lu(k,1023) = lu(k,1023) - lu(k,373) * lu(k,1006)
    1534   114070872 :          lu(k,1024) = lu(k,1024) - lu(k,374) * lu(k,1006)
    1535   114070872 :          lu(k,1032) = lu(k,1032) - lu(k,375) * lu(k,1006)
    1536   114070872 :          lu(k,1036) = lu(k,1036) - lu(k,376) * lu(k,1006)
    1537   114070872 :          lu(k,1096) = lu(k,1096) - lu(k,370) * lu(k,1089)
    1538   114070872 :          lu(k,1100) = lu(k,1100) - lu(k,371) * lu(k,1089)
    1539   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,372) * lu(k,1089)
    1540   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,373) * lu(k,1089)
    1541   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,374) * lu(k,1089)
    1542   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,375) * lu(k,1089)
    1543   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,376) * lu(k,1089)
    1544   114070872 :          lu(k,1374) = lu(k,1374) - lu(k,370) * lu(k,1362)
    1545   114070872 :          lu(k,1378) = lu(k,1378) - lu(k,371) * lu(k,1362)
    1546   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,372) * lu(k,1362)
    1547   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,373) * lu(k,1362)
    1548   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,374) * lu(k,1362)
    1549   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,375) * lu(k,1362)
    1550   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,376) * lu(k,1362)
    1551   114070872 :          lu(k,1471) = lu(k,1471) - lu(k,370) * lu(k,1463)
    1552   114070872 :          lu(k,1475) = lu(k,1475) - lu(k,371) * lu(k,1463)
    1553   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,372) * lu(k,1463)
    1554   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,373) * lu(k,1463)
    1555   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,374) * lu(k,1463)
    1556   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,375) * lu(k,1463)
    1557   114070872 :          lu(k,1499) = - lu(k,376) * lu(k,1463)
    1558   114070872 :          lu(k,1548) = lu(k,1548) - lu(k,370) * lu(k,1544)
    1559   114070872 :          lu(k,1552) = lu(k,1552) - lu(k,371) * lu(k,1544)
    1560   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,372) * lu(k,1544)
    1561   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,373) * lu(k,1544)
    1562   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,374) * lu(k,1544)
    1563   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,375) * lu(k,1544)
    1564   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,376) * lu(k,1544)
    1565   114070872 :          lu(k,1837) = lu(k,1837) - lu(k,370) * lu(k,1834)
    1566   114070872 :          lu(k,1840) = lu(k,1840) - lu(k,371) * lu(k,1834)
    1567   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,372) * lu(k,1834)
    1568   114070872 :          lu(k,1851) = - lu(k,373) * lu(k,1834)
    1569   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,374) * lu(k,1834)
    1570   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,375) * lu(k,1834)
    1571   114070872 :          lu(k,1864) = - lu(k,376) * lu(k,1834)
    1572   114070872 :          lu(k,1956) = lu(k,1956) - lu(k,370) * lu(k,1945)
    1573   114070872 :          lu(k,1959) = lu(k,1959) - lu(k,371) * lu(k,1945)
    1574   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,372) * lu(k,1945)
    1575   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,373) * lu(k,1945)
    1576   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,374) * lu(k,1945)
    1577   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,375) * lu(k,1945)
    1578   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,376) * lu(k,1945)
    1579   114070872 :          lu(k,377) = 1._r8 / lu(k,377)
    1580   114070872 :          lu(k,378) = lu(k,378) * lu(k,377)
    1581   114070872 :          lu(k,379) = lu(k,379) * lu(k,377)
    1582   114070872 :          lu(k,380) = lu(k,380) * lu(k,377)
    1583   114070872 :          lu(k,381) = lu(k,381) * lu(k,377)
    1584   114070872 :          lu(k,382) = lu(k,382) * lu(k,377)
    1585   114070872 :          lu(k,383) = lu(k,383) * lu(k,377)
    1586   114070872 :          lu(k,384) = lu(k,384) * lu(k,377)
    1587   114070872 :          lu(k,461) = lu(k,461) - lu(k,378) * lu(k,460)
    1588   114070872 :          lu(k,463) = lu(k,463) - lu(k,379) * lu(k,460)
    1589   114070872 :          lu(k,466) = lu(k,466) - lu(k,380) * lu(k,460)
    1590   114070872 :          lu(k,467) = - lu(k,381) * lu(k,460)
    1591   114070872 :          lu(k,468) = lu(k,468) - lu(k,382) * lu(k,460)
    1592   114070872 :          lu(k,470) = - lu(k,383) * lu(k,460)
    1593   114070872 :          lu(k,471) = lu(k,471) - lu(k,384) * lu(k,460)
    1594   114070872 :          lu(k,782) = - lu(k,378) * lu(k,779)
    1595   114070872 :          lu(k,790) = - lu(k,379) * lu(k,779)
    1596   114070872 :          lu(k,795) = lu(k,795) - lu(k,380) * lu(k,779)
    1597   114070872 :          lu(k,798) = - lu(k,381) * lu(k,779)
    1598   114070872 :          lu(k,799) = - lu(k,382) * lu(k,779)
    1599   114070872 :          lu(k,804) = - lu(k,383) * lu(k,779)
    1600   114070872 :          lu(k,805) = lu(k,805) - lu(k,384) * lu(k,779)
    1601   114070872 :          lu(k,1269) = - lu(k,378) * lu(k,1266)
    1602   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,379) * lu(k,1266)
    1603   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,380) * lu(k,1266)
    1604   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,381) * lu(k,1266)
    1605   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,382) * lu(k,1266)
    1606   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,383) * lu(k,1266)
    1607   114070872 :          lu(k,1299) = - lu(k,384) * lu(k,1266)
    1608   114070872 :          lu(k,1366) = lu(k,1366) - lu(k,378) * lu(k,1363)
    1609   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,379) * lu(k,1363)
    1610   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,380) * lu(k,1363)
    1611   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,381) * lu(k,1363)
    1612   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,382) * lu(k,1363)
    1613   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,383) * lu(k,1363)
    1614   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,384) * lu(k,1363)
    1615   114070872 :          lu(k,1417) = lu(k,1417) - lu(k,378) * lu(k,1414)
    1616   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,379) * lu(k,1414)
    1617   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,380) * lu(k,1414)
    1618   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,381) * lu(k,1414)
    1619   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,382) * lu(k,1414)
    1620   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,383) * lu(k,1414)
    1621   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,384) * lu(k,1414)
    1622   114070872 :          lu(k,1546) = - lu(k,378) * lu(k,1545)
    1623   114070872 :          lu(k,1555) = lu(k,1555) - lu(k,379) * lu(k,1545)
    1624   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,380) * lu(k,1545)
    1625   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,381) * lu(k,1545)
    1626   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,382) * lu(k,1545)
    1627   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,383) * lu(k,1545)
    1628   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,384) * lu(k,1545)
    1629   114070872 :          lu(k,1868) = - lu(k,378) * lu(k,1867)
    1630   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,379) * lu(k,1867)
    1631   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,380) * lu(k,1867)
    1632   114070872 :          lu(k,1890) = - lu(k,381) * lu(k,1867)
    1633   114070872 :          lu(k,1891) = - lu(k,382) * lu(k,1867)
    1634   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,383) * lu(k,1867)
    1635   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,384) * lu(k,1867)
    1636   114070872 :          lu(k,1907) = - lu(k,378) * lu(k,1906)
    1637   114070872 :          lu(k,1920) = lu(k,1920) - lu(k,379) * lu(k,1906)
    1638   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,380) * lu(k,1906)
    1639   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,381) * lu(k,1906)
    1640   114070872 :          lu(k,1932) = - lu(k,382) * lu(k,1906)
    1641   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,383) * lu(k,1906)
    1642   117656469 :          lu(k,1940) = lu(k,1940) - lu(k,384) * lu(k,1906)
    1643             :       end do
    1644     3585597 :       end subroutine lu_fac09
    1645     3585597 :       subroutine lu_fac10( avec_len, lu )
    1646             :       use chem_mods, only : nzcnt
    1647             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1648             :       implicit none
    1649             : !-----------------------------------------------------------------------
    1650             : ! ... dummy args
    1651             : !-----------------------------------------------------------------------
    1652             :       integer, intent(in) :: avec_len
    1653             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1654             : !-----------------------------------------------------------------------
    1655             : ! ... local variables
    1656             : !-----------------------------------------------------------------------
    1657             :       integer :: k
    1658   117656469 :       do k = 1,avec_len
    1659   114070872 :          lu(k,388) = 1._r8 / lu(k,388)
    1660   114070872 :          lu(k,389) = lu(k,389) * lu(k,388)
    1661   114070872 :          lu(k,390) = lu(k,390) * lu(k,388)
    1662   114070872 :          lu(k,391) = lu(k,391) * lu(k,388)
    1663   114070872 :          lu(k,392) = lu(k,392) * lu(k,388)
    1664   114070872 :          lu(k,393) = lu(k,393) * lu(k,388)
    1665   114070872 :          lu(k,394) = lu(k,394) * lu(k,388)
    1666   114070872 :          lu(k,395) = lu(k,395) * lu(k,388)
    1667   114070872 :          lu(k,396) = lu(k,396) * lu(k,388)
    1668   114070872 :          lu(k,397) = lu(k,397) * lu(k,388)
    1669   114070872 :          lu(k,398) = lu(k,398) * lu(k,388)
    1670   114070872 :          lu(k,446) = lu(k,446) - lu(k,389) * lu(k,445)
    1671   114070872 :          lu(k,447) = lu(k,447) - lu(k,390) * lu(k,445)
    1672   114070872 :          lu(k,448) = - lu(k,391) * lu(k,445)
    1673   114070872 :          lu(k,449) = lu(k,449) - lu(k,392) * lu(k,445)
    1674   114070872 :          lu(k,451) = lu(k,451) - lu(k,393) * lu(k,445)
    1675   114070872 :          lu(k,452) = - lu(k,394) * lu(k,445)
    1676   114070872 :          lu(k,453) = lu(k,453) - lu(k,395) * lu(k,445)
    1677   114070872 :          lu(k,454) = lu(k,454) - lu(k,396) * lu(k,445)
    1678   114070872 :          lu(k,455) = lu(k,455) - lu(k,397) * lu(k,445)
    1679   114070872 :          lu(k,458) = lu(k,458) - lu(k,398) * lu(k,445)
    1680   114070872 :          lu(k,1053) = lu(k,1053) - lu(k,389) * lu(k,1052)
    1681   114070872 :          lu(k,1055) = lu(k,1055) - lu(k,390) * lu(k,1052)
    1682   114070872 :          lu(k,1056) = - lu(k,391) * lu(k,1052)
    1683   114070872 :          lu(k,1057) = lu(k,1057) - lu(k,392) * lu(k,1052)
    1684   114070872 :          lu(k,1060) = lu(k,1060) - lu(k,393) * lu(k,1052)
    1685   114070872 :          lu(k,1063) = lu(k,1063) - lu(k,394) * lu(k,1052)
    1686   114070872 :          lu(k,1065) = lu(k,1065) - lu(k,395) * lu(k,1052)
    1687   114070872 :          lu(k,1066) = lu(k,1066) - lu(k,396) * lu(k,1052)
    1688   114070872 :          lu(k,1070) = lu(k,1070) - lu(k,397) * lu(k,1052)
    1689   114070872 :          lu(k,1079) = lu(k,1079) - lu(k,398) * lu(k,1052)
    1690   114070872 :          lu(k,1132) = lu(k,1132) - lu(k,389) * lu(k,1131)
    1691   114070872 :          lu(k,1143) = lu(k,1143) - lu(k,390) * lu(k,1131)
    1692   114070872 :          lu(k,1147) = - lu(k,391) * lu(k,1131)
    1693   114070872 :          lu(k,1149) = lu(k,1149) - lu(k,392) * lu(k,1131)
    1694   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,393) * lu(k,1131)
    1695   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,394) * lu(k,1131)
    1696   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,395) * lu(k,1131)
    1697   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,396) * lu(k,1131)
    1698   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,397) * lu(k,1131)
    1699   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,398) * lu(k,1131)
    1700   114070872 :          lu(k,1268) = - lu(k,389) * lu(k,1267)
    1701   114070872 :          lu(k,1272) = - lu(k,390) * lu(k,1267)
    1702   114070872 :          lu(k,1275) = lu(k,1275) - lu(k,391) * lu(k,1267)
    1703   114070872 :          lu(k,1277) = lu(k,1277) - lu(k,392) * lu(k,1267)
    1704   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,393) * lu(k,1267)
    1705   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,394) * lu(k,1267)
    1706   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,395) * lu(k,1267)
    1707   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,396) * lu(k,1267)
    1708   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,397) * lu(k,1267)
    1709   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,398) * lu(k,1267)
    1710   114070872 :          lu(k,1365) = lu(k,1365) - lu(k,389) * lu(k,1364)
    1711   114070872 :          lu(k,1373) = lu(k,1373) - lu(k,390) * lu(k,1364)
    1712   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,391) * lu(k,1364)
    1713   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,392) * lu(k,1364)
    1714   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,393) * lu(k,1364)
    1715   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,394) * lu(k,1364)
    1716   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,395) * lu(k,1364)
    1717   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,396) * lu(k,1364)
    1718   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,397) * lu(k,1364)
    1719   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,398) * lu(k,1364)
    1720   114070872 :          lu(k,1416) = lu(k,1416) - lu(k,389) * lu(k,1415)
    1721   114070872 :          lu(k,1423) = lu(k,1423) - lu(k,390) * lu(k,1415)
    1722   114070872 :          lu(k,1426) = lu(k,1426) - lu(k,391) * lu(k,1415)
    1723   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,392) * lu(k,1415)
    1724   114070872 :          lu(k,1432) = lu(k,1432) - lu(k,393) * lu(k,1415)
    1725   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,394) * lu(k,1415)
    1726   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,395) * lu(k,1415)
    1727   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,396) * lu(k,1415)
    1728   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,397) * lu(k,1415)
    1729   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,398) * lu(k,1415)
    1730   114070872 :          lu(k,401) = 1._r8 / lu(k,401)
    1731   114070872 :          lu(k,402) = lu(k,402) * lu(k,401)
    1732   114070872 :          lu(k,403) = lu(k,403) * lu(k,401)
    1733   114070872 :          lu(k,404) = lu(k,404) * lu(k,401)
    1734   114070872 :          lu(k,405) = lu(k,405) * lu(k,401)
    1735   114070872 :          lu(k,406) = lu(k,406) * lu(k,401)
    1736   114070872 :          lu(k,407) = lu(k,407) * lu(k,401)
    1737   114070872 :          lu(k,408) = lu(k,408) * lu(k,401)
    1738   114070872 :          lu(k,409) = lu(k,409) * lu(k,401)
    1739   114070872 :          lu(k,410) = lu(k,410) * lu(k,401)
    1740   114070872 :          lu(k,411) = lu(k,411) * lu(k,401)
    1741   114070872 :          lu(k,412) = lu(k,412) * lu(k,401)
    1742   114070872 :          lu(k,624) = lu(k,624) - lu(k,402) * lu(k,623)
    1743   114070872 :          lu(k,625) = lu(k,625) - lu(k,403) * lu(k,623)
    1744   114070872 :          lu(k,626) = lu(k,626) - lu(k,404) * lu(k,623)
    1745   114070872 :          lu(k,632) = - lu(k,405) * lu(k,623)
    1746   114070872 :          lu(k,634) = lu(k,634) - lu(k,406) * lu(k,623)
    1747   114070872 :          lu(k,636) = lu(k,636) - lu(k,407) * lu(k,623)
    1748   114070872 :          lu(k,637) = lu(k,637) - lu(k,408) * lu(k,623)
    1749   114070872 :          lu(k,638) = lu(k,638) - lu(k,409) * lu(k,623)
    1750   114070872 :          lu(k,640) = - lu(k,410) * lu(k,623)
    1751   114070872 :          lu(k,641) = lu(k,641) - lu(k,411) * lu(k,623)
    1752   114070872 :          lu(k,642) = lu(k,642) - lu(k,412) * lu(k,623)
    1753   114070872 :          lu(k,689) = lu(k,689) - lu(k,402) * lu(k,688)
    1754   114070872 :          lu(k,690) = lu(k,690) - lu(k,403) * lu(k,688)
    1755   114070872 :          lu(k,691) = lu(k,691) - lu(k,404) * lu(k,688)
    1756   114070872 :          lu(k,697) = - lu(k,405) * lu(k,688)
    1757   114070872 :          lu(k,699) = lu(k,699) - lu(k,406) * lu(k,688)
    1758   114070872 :          lu(k,701) = lu(k,701) - lu(k,407) * lu(k,688)
    1759   114070872 :          lu(k,702) = lu(k,702) - lu(k,408) * lu(k,688)
    1760   114070872 :          lu(k,703) = lu(k,703) - lu(k,409) * lu(k,688)
    1761   114070872 :          lu(k,705) = - lu(k,410) * lu(k,688)
    1762   114070872 :          lu(k,706) = lu(k,706) - lu(k,411) * lu(k,688)
    1763   114070872 :          lu(k,707) = lu(k,707) - lu(k,412) * lu(k,688)
    1764   114070872 :          lu(k,1632) = lu(k,1632) - lu(k,402) * lu(k,1625)
    1765   114070872 :          lu(k,1633) = lu(k,1633) - lu(k,403) * lu(k,1625)
    1766   114070872 :          lu(k,1635) = lu(k,1635) - lu(k,404) * lu(k,1625)
    1767   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,405) * lu(k,1625)
    1768   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,406) * lu(k,1625)
    1769   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,407) * lu(k,1625)
    1770   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,408) * lu(k,1625)
    1771   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,409) * lu(k,1625)
    1772   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,410) * lu(k,1625)
    1773   114070872 :          lu(k,1664) = - lu(k,411) * lu(k,1625)
    1774   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,412) * lu(k,1625)
    1775   114070872 :          lu(k,1675) = lu(k,1675) - lu(k,402) * lu(k,1668)
    1776   114070872 :          lu(k,1676) = lu(k,1676) - lu(k,403) * lu(k,1668)
    1777   114070872 :          lu(k,1678) = lu(k,1678) - lu(k,404) * lu(k,1668)
    1778   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,405) * lu(k,1668)
    1779   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,406) * lu(k,1668)
    1780   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,407) * lu(k,1668)
    1781   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,408) * lu(k,1668)
    1782   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,409) * lu(k,1668)
    1783   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,410) * lu(k,1668)
    1784   114070872 :          lu(k,1707) = - lu(k,411) * lu(k,1668)
    1785   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,412) * lu(k,1668)
    1786   114070872 :          lu(k,1716) = - lu(k,402) * lu(k,1713)
    1787   114070872 :          lu(k,1717) = - lu(k,403) * lu(k,1713)
    1788   114070872 :          lu(k,1718) = - lu(k,404) * lu(k,1713)
    1789   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,405) * lu(k,1713)
    1790   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,406) * lu(k,1713)
    1791   114070872 :          lu(k,1739) = - lu(k,407) * lu(k,1713)
    1792   114070872 :          lu(k,1740) = - lu(k,408) * lu(k,1713)
    1793   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,409) * lu(k,1713)
    1794   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,410) * lu(k,1713)
    1795   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,411) * lu(k,1713)
    1796   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,412) * lu(k,1713)
    1797   114070872 :          lu(k,1797) = - lu(k,402) * lu(k,1792)
    1798   114070872 :          lu(k,1798) = - lu(k,403) * lu(k,1792)
    1799   114070872 :          lu(k,1800) = lu(k,1800) - lu(k,404) * lu(k,1792)
    1800   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,405) * lu(k,1792)
    1801   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,406) * lu(k,1792)
    1802   114070872 :          lu(k,1823) = - lu(k,407) * lu(k,1792)
    1803   114070872 :          lu(k,1824) = - lu(k,408) * lu(k,1792)
    1804   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,409) * lu(k,1792)
    1805   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,410) * lu(k,1792)
    1806   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,411) * lu(k,1792)
    1807   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,412) * lu(k,1792)
    1808   114070872 :          lu(k,416) = 1._r8 / lu(k,416)
    1809   114070872 :          lu(k,417) = lu(k,417) * lu(k,416)
    1810   114070872 :          lu(k,418) = lu(k,418) * lu(k,416)
    1811   114070872 :          lu(k,419) = lu(k,419) * lu(k,416)
    1812   114070872 :          lu(k,420) = lu(k,420) * lu(k,416)
    1813   114070872 :          lu(k,421) = lu(k,421) * lu(k,416)
    1814   114070872 :          lu(k,422) = lu(k,422) * lu(k,416)
    1815   114070872 :          lu(k,423) = lu(k,423) * lu(k,416)
    1816   114070872 :          lu(k,424) = lu(k,424) * lu(k,416)
    1817   114070872 :          lu(k,425) = lu(k,425) * lu(k,416)
    1818   114070872 :          lu(k,426) = lu(k,426) * lu(k,416)
    1819   114070872 :          lu(k,427) = lu(k,427) * lu(k,416)
    1820   114070872 :          lu(k,428) = lu(k,428) * lu(k,416)
    1821   114070872 :          lu(k,429) = lu(k,429) * lu(k,416)
    1822   114070872 :          lu(k,430) = lu(k,430) * lu(k,416)
    1823   114070872 :          lu(k,646) = lu(k,646) - lu(k,417) * lu(k,645)
    1824   114070872 :          lu(k,647) = lu(k,647) - lu(k,418) * lu(k,645)
    1825   114070872 :          lu(k,648) = - lu(k,419) * lu(k,645)
    1826   114070872 :          lu(k,649) = lu(k,649) - lu(k,420) * lu(k,645)
    1827   114070872 :          lu(k,650) = - lu(k,421) * lu(k,645)
    1828   114070872 :          lu(k,651) = lu(k,651) - lu(k,422) * lu(k,645)
    1829   114070872 :          lu(k,654) = - lu(k,423) * lu(k,645)
    1830   114070872 :          lu(k,655) = lu(k,655) - lu(k,424) * lu(k,645)
    1831   114070872 :          lu(k,657) = lu(k,657) - lu(k,425) * lu(k,645)
    1832   114070872 :          lu(k,658) = lu(k,658) - lu(k,426) * lu(k,645)
    1833   114070872 :          lu(k,659) = lu(k,659) - lu(k,427) * lu(k,645)
    1834   114070872 :          lu(k,660) = lu(k,660) - lu(k,428) * lu(k,645)
    1835   114070872 :          lu(k,665) = lu(k,665) - lu(k,429) * lu(k,645)
    1836   114070872 :          lu(k,666) = lu(k,666) - lu(k,430) * lu(k,645)
    1837   114070872 :          lu(k,781) = lu(k,781) - lu(k,417) * lu(k,780)
    1838   114070872 :          lu(k,784) = lu(k,784) - lu(k,418) * lu(k,780)
    1839   114070872 :          lu(k,786) = lu(k,786) - lu(k,419) * lu(k,780)
    1840   114070872 :          lu(k,787) = lu(k,787) - lu(k,420) * lu(k,780)
    1841   114070872 :          lu(k,788) = lu(k,788) - lu(k,421) * lu(k,780)
    1842   114070872 :          lu(k,789) = lu(k,789) - lu(k,422) * lu(k,780)
    1843   114070872 :          lu(k,793) = - lu(k,423) * lu(k,780)
    1844   114070872 :          lu(k,794) = lu(k,794) - lu(k,424) * lu(k,780)
    1845   114070872 :          lu(k,796) = lu(k,796) - lu(k,425) * lu(k,780)
    1846   114070872 :          lu(k,797) = lu(k,797) - lu(k,426) * lu(k,780)
    1847   114070872 :          lu(k,800) = lu(k,800) - lu(k,427) * lu(k,780)
    1848   114070872 :          lu(k,801) = lu(k,801) - lu(k,428) * lu(k,780)
    1849   114070872 :          lu(k,807) = lu(k,807) - lu(k,429) * lu(k,780)
    1850   114070872 :          lu(k,808) = lu(k,808) - lu(k,430) * lu(k,780)
    1851   114070872 :          lu(k,975) = lu(k,975) - lu(k,417) * lu(k,974)
    1852   114070872 :          lu(k,979) = lu(k,979) - lu(k,418) * lu(k,974)
    1853   114070872 :          lu(k,981) = lu(k,981) - lu(k,419) * lu(k,974)
    1854   114070872 :          lu(k,982) = lu(k,982) - lu(k,420) * lu(k,974)
    1855   114070872 :          lu(k,983) = lu(k,983) - lu(k,421) * lu(k,974)
    1856   114070872 :          lu(k,984) = lu(k,984) - lu(k,422) * lu(k,974)
    1857   114070872 :          lu(k,989) = lu(k,989) - lu(k,423) * lu(k,974)
    1858   114070872 :          lu(k,991) = lu(k,991) - lu(k,424) * lu(k,974)
    1859   114070872 :          lu(k,993) = lu(k,993) - lu(k,425) * lu(k,974)
    1860   114070872 :          lu(k,994) = lu(k,994) - lu(k,426) * lu(k,974)
    1861   114070872 :          lu(k,997) = lu(k,997) - lu(k,427) * lu(k,974)
    1862   114070872 :          lu(k,998) = lu(k,998) - lu(k,428) * lu(k,974)
    1863   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,429) * lu(k,974)
    1864   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,430) * lu(k,974)
    1865   114070872 :          lu(k,1465) = lu(k,1465) - lu(k,417) * lu(k,1464)
    1866   114070872 :          lu(k,1467) = lu(k,1467) - lu(k,418) * lu(k,1464)
    1867   114070872 :          lu(k,1469) = lu(k,1469) - lu(k,419) * lu(k,1464)
    1868   114070872 :          lu(k,1470) = lu(k,1470) - lu(k,420) * lu(k,1464)
    1869   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,421) * lu(k,1464)
    1870   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,422) * lu(k,1464)
    1871   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,423) * lu(k,1464)
    1872   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,424) * lu(k,1464)
    1873   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,425) * lu(k,1464)
    1874   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,426) * lu(k,1464)
    1875   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,427) * lu(k,1464)
    1876   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,428) * lu(k,1464)
    1877   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,429) * lu(k,1464)
    1878   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,430) * lu(k,1464)
    1879   114070872 :          lu(k,1506) = lu(k,1506) - lu(k,417) * lu(k,1505)
    1880   114070872 :          lu(k,1509) = lu(k,1509) - lu(k,418) * lu(k,1505)
    1881   114070872 :          lu(k,1511) = - lu(k,419) * lu(k,1505)
    1882   114070872 :          lu(k,1512) = - lu(k,420) * lu(k,1505)
    1883   114070872 :          lu(k,1515) = lu(k,1515) - lu(k,421) * lu(k,1505)
    1884   114070872 :          lu(k,1517) = lu(k,1517) - lu(k,422) * lu(k,1505)
    1885   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,423) * lu(k,1505)
    1886   114070872 :          lu(k,1526) = - lu(k,424) * lu(k,1505)
    1887   114070872 :          lu(k,1528) = - lu(k,425) * lu(k,1505)
    1888   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,426) * lu(k,1505)
    1889   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,427) * lu(k,1505)
    1890   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,428) * lu(k,1505)
    1891   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,429) * lu(k,1505)
    1892   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,430) * lu(k,1505)
    1893   114070872 :          lu(k,2047) = lu(k,2047) - lu(k,417) * lu(k,2046)
    1894   114070872 :          lu(k,2055) = lu(k,2055) - lu(k,418) * lu(k,2046)
    1895   114070872 :          lu(k,2059) = - lu(k,419) * lu(k,2046)
    1896   114070872 :          lu(k,2060) = lu(k,2060) - lu(k,420) * lu(k,2046)
    1897   114070872 :          lu(k,2063) = lu(k,2063) - lu(k,421) * lu(k,2046)
    1898   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,422) * lu(k,2046)
    1899   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,423) * lu(k,2046)
    1900   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,424) * lu(k,2046)
    1901   114070872 :          lu(k,2076) = - lu(k,425) * lu(k,2046)
    1902   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,426) * lu(k,2046)
    1903   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,427) * lu(k,2046)
    1904   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,428) * lu(k,2046)
    1905   114070872 :          lu(k,2089) = - lu(k,429) * lu(k,2046)
    1906   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,430) * lu(k,2046)
    1907             :       end do
    1908     3585597 :       end subroutine lu_fac10
    1909     3585597 :       subroutine lu_fac11( avec_len, lu )
    1910             :       use chem_mods, only : nzcnt
    1911             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1912             :       implicit none
    1913             : !-----------------------------------------------------------------------
    1914             : ! ... dummy args
    1915             : !-----------------------------------------------------------------------
    1916             :       integer, intent(in) :: avec_len
    1917             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1918             : !-----------------------------------------------------------------------
    1919             : ! ... local variables
    1920             : !-----------------------------------------------------------------------
    1921             :       integer :: k
    1922   117656469 :       do k = 1,avec_len
    1923   114070872 :          lu(k,432) = 1._r8 / lu(k,432)
    1924   114070872 :          lu(k,433) = lu(k,433) * lu(k,432)
    1925   114070872 :          lu(k,434) = lu(k,434) * lu(k,432)
    1926   114070872 :          lu(k,435) = lu(k,435) * lu(k,432)
    1927   114070872 :          lu(k,436) = lu(k,436) * lu(k,432)
    1928   114070872 :          lu(k,437) = lu(k,437) * lu(k,432)
    1929   114070872 :          lu(k,438) = lu(k,438) * lu(k,432)
    1930   114070872 :          lu(k,439) = lu(k,439) * lu(k,432)
    1931   114070872 :          lu(k,440) = lu(k,440) * lu(k,432)
    1932   114070872 :          lu(k,441) = lu(k,441) * lu(k,432)
    1933   114070872 :          lu(k,442) = lu(k,442) * lu(k,432)
    1934   114070872 :          lu(k,648) = lu(k,648) - lu(k,433) * lu(k,646)
    1935   114070872 :          lu(k,650) = lu(k,650) - lu(k,434) * lu(k,646)
    1936   114070872 :          lu(k,651) = lu(k,651) - lu(k,435) * lu(k,646)
    1937   114070872 :          lu(k,653) = - lu(k,436) * lu(k,646)
    1938   114070872 :          lu(k,656) = - lu(k,437) * lu(k,646)
    1939   114070872 :          lu(k,657) = lu(k,657) - lu(k,438) * lu(k,646)
    1940   114070872 :          lu(k,660) = lu(k,660) - lu(k,439) * lu(k,646)
    1941   114070872 :          lu(k,661) = - lu(k,440) * lu(k,646)
    1942   114070872 :          lu(k,664) = - lu(k,441) * lu(k,646)
    1943   114070872 :          lu(k,666) = lu(k,666) - lu(k,442) * lu(k,646)
    1944   114070872 :          lu(k,786) = lu(k,786) - lu(k,433) * lu(k,781)
    1945   114070872 :          lu(k,788) = lu(k,788) - lu(k,434) * lu(k,781)
    1946   114070872 :          lu(k,789) = lu(k,789) - lu(k,435) * lu(k,781)
    1947   114070872 :          lu(k,791) = lu(k,791) - lu(k,436) * lu(k,781)
    1948   114070872 :          lu(k,795) = lu(k,795) - lu(k,437) * lu(k,781)
    1949   114070872 :          lu(k,796) = lu(k,796) - lu(k,438) * lu(k,781)
    1950   114070872 :          lu(k,801) = lu(k,801) - lu(k,439) * lu(k,781)
    1951   114070872 :          lu(k,802) = - lu(k,440) * lu(k,781)
    1952   114070872 :          lu(k,806) = lu(k,806) - lu(k,441) * lu(k,781)
    1953   114070872 :          lu(k,808) = lu(k,808) - lu(k,442) * lu(k,781)
    1954   114070872 :          lu(k,898) = lu(k,898) - lu(k,433) * lu(k,894)
    1955   114070872 :          lu(k,900) = lu(k,900) - lu(k,434) * lu(k,894)
    1956   114070872 :          lu(k,901) = lu(k,901) - lu(k,435) * lu(k,894)
    1957   114070872 :          lu(k,903) = lu(k,903) - lu(k,436) * lu(k,894)
    1958   114070872 :          lu(k,908) = lu(k,908) - lu(k,437) * lu(k,894)
    1959   114070872 :          lu(k,909) = lu(k,909) - lu(k,438) * lu(k,894)
    1960   114070872 :          lu(k,914) = lu(k,914) - lu(k,439) * lu(k,894)
    1961   114070872 :          lu(k,915) = lu(k,915) - lu(k,440) * lu(k,894)
    1962   114070872 :          lu(k,919) = lu(k,919) - lu(k,441) * lu(k,894)
    1963   114070872 :          lu(k,921) = lu(k,921) - lu(k,442) * lu(k,894)
    1964   114070872 :          lu(k,981) = lu(k,981) - lu(k,433) * lu(k,975)
    1965   114070872 :          lu(k,983) = lu(k,983) - lu(k,434) * lu(k,975)
    1966   114070872 :          lu(k,984) = lu(k,984) - lu(k,435) * lu(k,975)
    1967   114070872 :          lu(k,986) = lu(k,986) - lu(k,436) * lu(k,975)
    1968   114070872 :          lu(k,992) = lu(k,992) - lu(k,437) * lu(k,975)
    1969   114070872 :          lu(k,993) = lu(k,993) - lu(k,438) * lu(k,975)
    1970   114070872 :          lu(k,998) = lu(k,998) - lu(k,439) * lu(k,975)
    1971   114070872 :          lu(k,999) = lu(k,999) - lu(k,440) * lu(k,975)
    1972   114070872 :          lu(k,1003) = lu(k,1003) - lu(k,441) * lu(k,975)
    1973   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,442) * lu(k,975)
    1974   114070872 :          lu(k,1094) = lu(k,1094) - lu(k,433) * lu(k,1090)
    1975   114070872 :          lu(k,1099) = lu(k,1099) - lu(k,434) * lu(k,1090)
    1976   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,435) * lu(k,1090)
    1977   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,436) * lu(k,1090)
    1978   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,437) * lu(k,1090)
    1979   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,438) * lu(k,1090)
    1980   114070872 :          lu(k,1119) = - lu(k,439) * lu(k,1090)
    1981   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,440) * lu(k,1090)
    1982   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,441) * lu(k,1090)
    1983   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,442) * lu(k,1090)
    1984   114070872 :          lu(k,1469) = lu(k,1469) - lu(k,433) * lu(k,1465)
    1985   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,434) * lu(k,1465)
    1986   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,435) * lu(k,1465)
    1987   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,436) * lu(k,1465)
    1988   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,437) * lu(k,1465)
    1989   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,438) * lu(k,1465)
    1990   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,439) * lu(k,1465)
    1991   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,440) * lu(k,1465)
    1992   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,441) * lu(k,1465)
    1993   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,442) * lu(k,1465)
    1994   114070872 :          lu(k,1511) = lu(k,1511) - lu(k,433) * lu(k,1506)
    1995   114070872 :          lu(k,1515) = lu(k,1515) - lu(k,434) * lu(k,1506)
    1996   114070872 :          lu(k,1517) = lu(k,1517) - lu(k,435) * lu(k,1506)
    1997   114070872 :          lu(k,1520) = - lu(k,436) * lu(k,1506)
    1998   114070872 :          lu(k,1527) = - lu(k,437) * lu(k,1506)
    1999   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,438) * lu(k,1506)
    2000   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,439) * lu(k,1506)
    2001   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,440) * lu(k,1506)
    2002   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,441) * lu(k,1506)
    2003   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,442) * lu(k,1506)
    2004   114070872 :          lu(k,1954) = lu(k,1954) - lu(k,433) * lu(k,1946)
    2005   114070872 :          lu(k,1958) = lu(k,1958) - lu(k,434) * lu(k,1946)
    2006   114070872 :          lu(k,1960) = lu(k,1960) - lu(k,435) * lu(k,1946)
    2007   114070872 :          lu(k,1963) = lu(k,1963) - lu(k,436) * lu(k,1946)
    2008   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,437) * lu(k,1946)
    2009   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,438) * lu(k,1946)
    2010   114070872 :          lu(k,1978) = - lu(k,439) * lu(k,1946)
    2011   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,440) * lu(k,1946)
    2012   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,441) * lu(k,1946)
    2013   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,442) * lu(k,1946)
    2014   114070872 :          lu(k,2059) = lu(k,2059) - lu(k,433) * lu(k,2047)
    2015   114070872 :          lu(k,2063) = lu(k,2063) - lu(k,434) * lu(k,2047)
    2016   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,435) * lu(k,2047)
    2017   114070872 :          lu(k,2068) = - lu(k,436) * lu(k,2047)
    2018   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,437) * lu(k,2047)
    2019   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,438) * lu(k,2047)
    2020   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,439) * lu(k,2047)
    2021   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,440) * lu(k,2047)
    2022   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,441) * lu(k,2047)
    2023   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,442) * lu(k,2047)
    2024   114070872 :          lu(k,446) = 1._r8 / lu(k,446)
    2025   114070872 :          lu(k,447) = lu(k,447) * lu(k,446)
    2026   114070872 :          lu(k,448) = lu(k,448) * lu(k,446)
    2027   114070872 :          lu(k,449) = lu(k,449) * lu(k,446)
    2028   114070872 :          lu(k,450) = lu(k,450) * lu(k,446)
    2029   114070872 :          lu(k,451) = lu(k,451) * lu(k,446)
    2030   114070872 :          lu(k,452) = lu(k,452) * lu(k,446)
    2031   114070872 :          lu(k,453) = lu(k,453) * lu(k,446)
    2032   114070872 :          lu(k,454) = lu(k,454) * lu(k,446)
    2033   114070872 :          lu(k,455) = lu(k,455) * lu(k,446)
    2034   114070872 :          lu(k,456) = lu(k,456) * lu(k,446)
    2035   114070872 :          lu(k,457) = lu(k,457) * lu(k,446)
    2036   114070872 :          lu(k,458) = lu(k,458) * lu(k,446)
    2037   114070872 :          lu(k,982) = lu(k,982) - lu(k,447) * lu(k,976)
    2038   114070872 :          lu(k,983) = lu(k,983) - lu(k,448) * lu(k,976)
    2039   114070872 :          lu(k,984) = lu(k,984) - lu(k,449) * lu(k,976)
    2040   114070872 :          lu(k,985) = lu(k,985) - lu(k,450) * lu(k,976)
    2041   114070872 :          lu(k,987) = - lu(k,451) * lu(k,976)
    2042   114070872 :          lu(k,989) = lu(k,989) - lu(k,452) * lu(k,976)
    2043   114070872 :          lu(k,991) = lu(k,991) - lu(k,453) * lu(k,976)
    2044   114070872 :          lu(k,992) = lu(k,992) - lu(k,454) * lu(k,976)
    2045   114070872 :          lu(k,996) = - lu(k,455) * lu(k,976)
    2046   114070872 :          lu(k,998) = lu(k,998) - lu(k,456) * lu(k,976)
    2047   114070872 :          lu(k,999) = lu(k,999) - lu(k,457) * lu(k,976)
    2048   114070872 :          lu(k,1003) = lu(k,1003) - lu(k,458) * lu(k,976)
    2049   114070872 :          lu(k,1055) = lu(k,1055) - lu(k,447) * lu(k,1053)
    2050   114070872 :          lu(k,1056) = lu(k,1056) - lu(k,448) * lu(k,1053)
    2051   114070872 :          lu(k,1057) = lu(k,1057) - lu(k,449) * lu(k,1053)
    2052   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,450) * lu(k,1053)
    2053   114070872 :          lu(k,1060) = lu(k,1060) - lu(k,451) * lu(k,1053)
    2054   114070872 :          lu(k,1063) = lu(k,1063) - lu(k,452) * lu(k,1053)
    2055   114070872 :          lu(k,1065) = lu(k,1065) - lu(k,453) * lu(k,1053)
    2056   114070872 :          lu(k,1066) = lu(k,1066) - lu(k,454) * lu(k,1053)
    2057   114070872 :          lu(k,1070) = lu(k,1070) - lu(k,455) * lu(k,1053)
    2058   114070872 :          lu(k,1074) = lu(k,1074) - lu(k,456) * lu(k,1053)
    2059   114070872 :          lu(k,1075) = lu(k,1075) - lu(k,457) * lu(k,1053)
    2060   114070872 :          lu(k,1079) = lu(k,1079) - lu(k,458) * lu(k,1053)
    2061   114070872 :          lu(k,1143) = lu(k,1143) - lu(k,447) * lu(k,1132)
    2062   114070872 :          lu(k,1147) = lu(k,1147) - lu(k,448) * lu(k,1132)
    2063   114070872 :          lu(k,1149) = lu(k,1149) - lu(k,449) * lu(k,1132)
    2064   114070872 :          lu(k,1151) = lu(k,1151) - lu(k,450) * lu(k,1132)
    2065   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,451) * lu(k,1132)
    2066   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,452) * lu(k,1132)
    2067   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,453) * lu(k,1132)
    2068   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,454) * lu(k,1132)
    2069   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,455) * lu(k,1132)
    2070   114070872 :          lu(k,1167) = - lu(k,456) * lu(k,1132)
    2071   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,457) * lu(k,1132)
    2072   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,458) * lu(k,1132)
    2073   114070872 :          lu(k,1272) = lu(k,1272) - lu(k,447) * lu(k,1268)
    2074   114070872 :          lu(k,1275) = lu(k,1275) - lu(k,448) * lu(k,1268)
    2075   114070872 :          lu(k,1277) = lu(k,1277) - lu(k,449) * lu(k,1268)
    2076   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,450) * lu(k,1268)
    2077   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,451) * lu(k,1268)
    2078   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,452) * lu(k,1268)
    2079   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,453) * lu(k,1268)
    2080   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,454) * lu(k,1268)
    2081   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,455) * lu(k,1268)
    2082   114070872 :          lu(k,1295) = - lu(k,456) * lu(k,1268)
    2083   114070872 :          lu(k,1296) = - lu(k,457) * lu(k,1268)
    2084   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,458) * lu(k,1268)
    2085   114070872 :          lu(k,1373) = lu(k,1373) - lu(k,447) * lu(k,1365)
    2086   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,448) * lu(k,1365)
    2087   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,449) * lu(k,1365)
    2088   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,450) * lu(k,1365)
    2089   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,451) * lu(k,1365)
    2090   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,452) * lu(k,1365)
    2091   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,453) * lu(k,1365)
    2092   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,454) * lu(k,1365)
    2093   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,455) * lu(k,1365)
    2094   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,456) * lu(k,1365)
    2095   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,457) * lu(k,1365)
    2096   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,458) * lu(k,1365)
    2097   114070872 :          lu(k,1423) = lu(k,1423) - lu(k,447) * lu(k,1416)
    2098   114070872 :          lu(k,1426) = lu(k,1426) - lu(k,448) * lu(k,1416)
    2099   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,449) * lu(k,1416)
    2100   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,450) * lu(k,1416)
    2101   114070872 :          lu(k,1432) = lu(k,1432) - lu(k,451) * lu(k,1416)
    2102   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,452) * lu(k,1416)
    2103   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,453) * lu(k,1416)
    2104   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,454) * lu(k,1416)
    2105   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,455) * lu(k,1416)
    2106   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,456) * lu(k,1416)
    2107   114070872 :          lu(k,1447) = - lu(k,457) * lu(k,1416)
    2108   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,458) * lu(k,1416)
    2109   114070872 :          lu(k,1592) = lu(k,1592) - lu(k,447) * lu(k,1580)
    2110   114070872 :          lu(k,1596) = - lu(k,448) * lu(k,1580)
    2111   114070872 :          lu(k,1598) = lu(k,1598) - lu(k,449) * lu(k,1580)
    2112   114070872 :          lu(k,1600) = lu(k,1600) - lu(k,450) * lu(k,1580)
    2113   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,451) * lu(k,1580)
    2114   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,452) * lu(k,1580)
    2115   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,453) * lu(k,1580)
    2116   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,454) * lu(k,1580)
    2117   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,455) * lu(k,1580)
    2118   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,456) * lu(k,1580)
    2119   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,457) * lu(k,1580)
    2120   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,458) * lu(k,1580)
    2121   114070872 :          lu(k,1803) = lu(k,1803) - lu(k,447) * lu(k,1793)
    2122   114070872 :          lu(k,1806) = lu(k,1806) - lu(k,448) * lu(k,1793)
    2123   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,449) * lu(k,1793)
    2124   114070872 :          lu(k,1810) = - lu(k,450) * lu(k,1793)
    2125   114070872 :          lu(k,1812) = - lu(k,451) * lu(k,1793)
    2126   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,452) * lu(k,1793)
    2127   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,453) * lu(k,1793)
    2128   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,454) * lu(k,1793)
    2129   114070872 :          lu(k,1822) = - lu(k,455) * lu(k,1793)
    2130   114070872 :          lu(k,1826) = - lu(k,456) * lu(k,1793)
    2131   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,457) * lu(k,1793)
    2132   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,458) * lu(k,1793)
    2133   114070872 :          lu(k,1955) = - lu(k,447) * lu(k,1947)
    2134   114070872 :          lu(k,1958) = lu(k,1958) - lu(k,448) * lu(k,1947)
    2135   114070872 :          lu(k,1960) = lu(k,1960) - lu(k,449) * lu(k,1947)
    2136   114070872 :          lu(k,1962) = lu(k,1962) - lu(k,450) * lu(k,1947)
    2137   114070872 :          lu(k,1964) = lu(k,1964) - lu(k,451) * lu(k,1947)
    2138   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,452) * lu(k,1947)
    2139   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,453) * lu(k,1947)
    2140   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,454) * lu(k,1947)
    2141   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,455) * lu(k,1947)
    2142   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,456) * lu(k,1947)
    2143   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,457) * lu(k,1947)
    2144   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,458) * lu(k,1947)
    2145   114070872 :          lu(k,461) = 1._r8 / lu(k,461)
    2146   114070872 :          lu(k,462) = lu(k,462) * lu(k,461)
    2147   114070872 :          lu(k,463) = lu(k,463) * lu(k,461)
    2148   114070872 :          lu(k,464) = lu(k,464) * lu(k,461)
    2149   114070872 :          lu(k,465) = lu(k,465) * lu(k,461)
    2150   114070872 :          lu(k,466) = lu(k,466) * lu(k,461)
    2151   114070872 :          lu(k,467) = lu(k,467) * lu(k,461)
    2152   114070872 :          lu(k,468) = lu(k,468) * lu(k,461)
    2153   114070872 :          lu(k,469) = lu(k,469) * lu(k,461)
    2154   114070872 :          lu(k,470) = lu(k,470) * lu(k,461)
    2155   114070872 :          lu(k,471) = lu(k,471) * lu(k,461)
    2156   114070872 :          lu(k,472) = lu(k,472) * lu(k,461)
    2157   114070872 :          lu(k,789) = lu(k,789) - lu(k,462) * lu(k,782)
    2158   114070872 :          lu(k,790) = lu(k,790) - lu(k,463) * lu(k,782)
    2159   114070872 :          lu(k,792) = - lu(k,464) * lu(k,782)
    2160   114070872 :          lu(k,794) = lu(k,794) - lu(k,465) * lu(k,782)
    2161   114070872 :          lu(k,795) = lu(k,795) - lu(k,466) * lu(k,782)
    2162   114070872 :          lu(k,798) = lu(k,798) - lu(k,467) * lu(k,782)
    2163   114070872 :          lu(k,799) = lu(k,799) - lu(k,468) * lu(k,782)
    2164   114070872 :          lu(k,801) = lu(k,801) - lu(k,469) * lu(k,782)
    2165   114070872 :          lu(k,804) = lu(k,804) - lu(k,470) * lu(k,782)
    2166   114070872 :          lu(k,805) = lu(k,805) - lu(k,471) * lu(k,782)
    2167   114070872 :          lu(k,808) = lu(k,808) - lu(k,472) * lu(k,782)
    2168   114070872 :          lu(k,1057) = lu(k,1057) - lu(k,462) * lu(k,1054)
    2169   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,463) * lu(k,1054)
    2170   114070872 :          lu(k,1062) = lu(k,1062) - lu(k,464) * lu(k,1054)
    2171   114070872 :          lu(k,1065) = lu(k,1065) - lu(k,465) * lu(k,1054)
    2172   114070872 :          lu(k,1066) = lu(k,1066) - lu(k,466) * lu(k,1054)
    2173   114070872 :          lu(k,1069) = lu(k,1069) - lu(k,467) * lu(k,1054)
    2174   114070872 :          lu(k,1070) = lu(k,1070) - lu(k,468) * lu(k,1054)
    2175   114070872 :          lu(k,1074) = lu(k,1074) - lu(k,469) * lu(k,1054)
    2176   114070872 :          lu(k,1077) = lu(k,1077) - lu(k,470) * lu(k,1054)
    2177   114070872 :          lu(k,1078) = lu(k,1078) - lu(k,471) * lu(k,1054)
    2178   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,472) * lu(k,1054)
    2179   114070872 :          lu(k,1277) = lu(k,1277) - lu(k,462) * lu(k,1269)
    2180   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,463) * lu(k,1269)
    2181   114070872 :          lu(k,1283) = - lu(k,464) * lu(k,1269)
    2182   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,465) * lu(k,1269)
    2183   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,466) * lu(k,1269)
    2184   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,467) * lu(k,1269)
    2185   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,468) * lu(k,1269)
    2186   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,469) * lu(k,1269)
    2187   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,470) * lu(k,1269)
    2188   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,471) * lu(k,1269)
    2189   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,472) * lu(k,1269)
    2190   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,462) * lu(k,1366)
    2191   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,463) * lu(k,1366)
    2192   114070872 :          lu(k,1385) = - lu(k,464) * lu(k,1366)
    2193   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,465) * lu(k,1366)
    2194   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,466) * lu(k,1366)
    2195   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,467) * lu(k,1366)
    2196   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,468) * lu(k,1366)
    2197   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,469) * lu(k,1366)
    2198   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,470) * lu(k,1366)
    2199   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,471) * lu(k,1366)
    2200   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,472) * lu(k,1366)
    2201   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,462) * lu(k,1417)
    2202   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,463) * lu(k,1417)
    2203   114070872 :          lu(k,1434) = - lu(k,464) * lu(k,1417)
    2204   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,465) * lu(k,1417)
    2205   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,466) * lu(k,1417)
    2206   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,467) * lu(k,1417)
    2207   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,468) * lu(k,1417)
    2208   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,469) * lu(k,1417)
    2209   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,470) * lu(k,1417)
    2210   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,471) * lu(k,1417)
    2211   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,472) * lu(k,1417)
    2212   114070872 :          lu(k,1553) = - lu(k,462) * lu(k,1546)
    2213   114070872 :          lu(k,1555) = lu(k,1555) - lu(k,463) * lu(k,1546)
    2214   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,464) * lu(k,1546)
    2215   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,465) * lu(k,1546)
    2216   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,466) * lu(k,1546)
    2217   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,467) * lu(k,1546)
    2218   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,468) * lu(k,1546)
    2219   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,469) * lu(k,1546)
    2220   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,470) * lu(k,1546)
    2221   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,471) * lu(k,1546)
    2222   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,472) * lu(k,1546)
    2223   114070872 :          lu(k,1598) = lu(k,1598) - lu(k,462) * lu(k,1581)
    2224   114070872 :          lu(k,1600) = lu(k,1600) - lu(k,463) * lu(k,1581)
    2225   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,464) * lu(k,1581)
    2226   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,465) * lu(k,1581)
    2227   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,466) * lu(k,1581)
    2228   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,467) * lu(k,1581)
    2229   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,468) * lu(k,1581)
    2230   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,469) * lu(k,1581)
    2231   114070872 :          lu(k,1619) = - lu(k,470) * lu(k,1581)
    2232   114070872 :          lu(k,1620) = - lu(k,471) * lu(k,1581)
    2233   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,472) * lu(k,1581)
    2234   114070872 :          lu(k,1877) = lu(k,1877) - lu(k,462) * lu(k,1868)
    2235   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,463) * lu(k,1868)
    2236   114070872 :          lu(k,1883) = - lu(k,464) * lu(k,1868)
    2237   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,465) * lu(k,1868)
    2238   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,466) * lu(k,1868)
    2239   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,467) * lu(k,1868)
    2240   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,468) * lu(k,1868)
    2241   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,469) * lu(k,1868)
    2242   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,470) * lu(k,1868)
    2243   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,471) * lu(k,1868)
    2244   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,472) * lu(k,1868)
    2245   114070872 :          lu(k,1918) = lu(k,1918) - lu(k,462) * lu(k,1907)
    2246   114070872 :          lu(k,1920) = lu(k,1920) - lu(k,463) * lu(k,1907)
    2247   114070872 :          lu(k,1924) = - lu(k,464) * lu(k,1907)
    2248   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,465) * lu(k,1907)
    2249   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,466) * lu(k,1907)
    2250   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,467) * lu(k,1907)
    2251   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,468) * lu(k,1907)
    2252   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,469) * lu(k,1907)
    2253   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,470) * lu(k,1907)
    2254   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,471) * lu(k,1907)
    2255   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,472) * lu(k,1907)
    2256   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,462) * lu(k,2048)
    2257   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,463) * lu(k,2048)
    2258   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,464) * lu(k,2048)
    2259   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,465) * lu(k,2048)
    2260   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,466) * lu(k,2048)
    2261   114070872 :          lu(k,2078) = - lu(k,467) * lu(k,2048)
    2262   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,468) * lu(k,2048)
    2263   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,469) * lu(k,2048)
    2264   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,470) * lu(k,2048)
    2265   114070872 :          lu(k,2087) = - lu(k,471) * lu(k,2048)
    2266   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,472) * lu(k,2048)
    2267             :       end do
    2268     3585597 :       end subroutine lu_fac11
    2269     3585597 :       subroutine lu_fac12( avec_len, lu )
    2270             :       use chem_mods, only : nzcnt
    2271             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2272             :       implicit none
    2273             : !-----------------------------------------------------------------------
    2274             : ! ... dummy args
    2275             : !-----------------------------------------------------------------------
    2276             :       integer, intent(in) :: avec_len
    2277             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2278             : !-----------------------------------------------------------------------
    2279             : ! ... local variables
    2280             : !-----------------------------------------------------------------------
    2281             :       integer :: k
    2282   117656469 :       do k = 1,avec_len
    2283   114070872 :          lu(k,476) = 1._r8 / lu(k,476)
    2284   114070872 :          lu(k,477) = lu(k,477) * lu(k,476)
    2285   114070872 :          lu(k,478) = lu(k,478) * lu(k,476)
    2286   114070872 :          lu(k,479) = lu(k,479) * lu(k,476)
    2287   114070872 :          lu(k,480) = lu(k,480) * lu(k,476)
    2288   114070872 :          lu(k,481) = lu(k,481) * lu(k,476)
    2289   114070872 :          lu(k,482) = lu(k,482) * lu(k,476)
    2290   114070872 :          lu(k,483) = lu(k,483) * lu(k,476)
    2291   114070872 :          lu(k,484) = lu(k,484) * lu(k,476)
    2292   114070872 :          lu(k,485) = lu(k,485) * lu(k,476)
    2293   114070872 :          lu(k,486) = lu(k,486) * lu(k,476)
    2294   114070872 :          lu(k,487) = lu(k,487) * lu(k,476)
    2295   114070872 :          lu(k,488) = lu(k,488) * lu(k,476)
    2296   114070872 :          lu(k,489) = lu(k,489) * lu(k,476)
    2297   114070872 :          lu(k,714) = lu(k,714) - lu(k,477) * lu(k,713)
    2298   114070872 :          lu(k,715) = lu(k,715) - lu(k,478) * lu(k,713)
    2299   114070872 :          lu(k,718) = lu(k,718) - lu(k,479) * lu(k,713)
    2300   114070872 :          lu(k,719) = lu(k,719) - lu(k,480) * lu(k,713)
    2301   114070872 :          lu(k,720) = lu(k,720) - lu(k,481) * lu(k,713)
    2302   114070872 :          lu(k,722) = lu(k,722) - lu(k,482) * lu(k,713)
    2303   114070872 :          lu(k,723) = lu(k,723) - lu(k,483) * lu(k,713)
    2304   114070872 :          lu(k,724) = lu(k,724) - lu(k,484) * lu(k,713)
    2305   114070872 :          lu(k,727) = - lu(k,485) * lu(k,713)
    2306   114070872 :          lu(k,728) = lu(k,728) - lu(k,486) * lu(k,713)
    2307   114070872 :          lu(k,729) = - lu(k,487) * lu(k,713)
    2308   114070872 :          lu(k,730) = lu(k,730) - lu(k,488) * lu(k,713)
    2309   114070872 :          lu(k,732) = lu(k,732) - lu(k,489) * lu(k,713)
    2310   114070872 :          lu(k,978) = lu(k,978) - lu(k,477) * lu(k,977)
    2311   114070872 :          lu(k,980) = lu(k,980) - lu(k,478) * lu(k,977)
    2312   114070872 :          lu(k,983) = lu(k,983) - lu(k,479) * lu(k,977)
    2313   114070872 :          lu(k,984) = lu(k,984) - lu(k,480) * lu(k,977)
    2314   114070872 :          lu(k,986) = lu(k,986) - lu(k,481) * lu(k,977)
    2315   114070872 :          lu(k,991) = lu(k,991) - lu(k,482) * lu(k,977)
    2316   114070872 :          lu(k,992) = lu(k,992) - lu(k,483) * lu(k,977)
    2317   114070872 :          lu(k,993) = lu(k,993) - lu(k,484) * lu(k,977)
    2318   114070872 :          lu(k,998) = lu(k,998) - lu(k,485) * lu(k,977)
    2319   114070872 :          lu(k,999) = lu(k,999) - lu(k,486) * lu(k,977)
    2320   114070872 :          lu(k,1002) = lu(k,1002) - lu(k,487) * lu(k,977)
    2321   114070872 :          lu(k,1003) = lu(k,1003) - lu(k,488) * lu(k,977)
    2322   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,489) * lu(k,977)
    2323   114070872 :          lu(k,1092) = lu(k,1092) - lu(k,477) * lu(k,1091)
    2324   114070872 :          lu(k,1093) = lu(k,1093) - lu(k,478) * lu(k,1091)
    2325   114070872 :          lu(k,1099) = lu(k,1099) - lu(k,479) * lu(k,1091)
    2326   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,480) * lu(k,1091)
    2327   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,481) * lu(k,1091)
    2328   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,482) * lu(k,1091)
    2329   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,483) * lu(k,1091)
    2330   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,484) * lu(k,1091)
    2331   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,485) * lu(k,1091)
    2332   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,486) * lu(k,1091)
    2333   114070872 :          lu(k,1123) = - lu(k,487) * lu(k,1091)
    2334   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,488) * lu(k,1091)
    2335   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,489) * lu(k,1091)
    2336   114070872 :          lu(k,1368) = lu(k,1368) - lu(k,477) * lu(k,1367)
    2337   114070872 :          lu(k,1371) = lu(k,1371) - lu(k,478) * lu(k,1367)
    2338   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,479) * lu(k,1367)
    2339   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,480) * lu(k,1367)
    2340   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,481) * lu(k,1367)
    2341   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,482) * lu(k,1367)
    2342   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,483) * lu(k,1367)
    2343   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,484) * lu(k,1367)
    2344   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,485) * lu(k,1367)
    2345   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,486) * lu(k,1367)
    2346   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,487) * lu(k,1367)
    2347   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,488) * lu(k,1367)
    2348   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,489) * lu(k,1367)
    2349   114070872 :          lu(k,1419) = - lu(k,477) * lu(k,1418)
    2350   114070872 :          lu(k,1421) = - lu(k,478) * lu(k,1418)
    2351   114070872 :          lu(k,1426) = lu(k,1426) - lu(k,479) * lu(k,1418)
    2352   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,480) * lu(k,1418)
    2353   114070872 :          lu(k,1431) = - lu(k,481) * lu(k,1418)
    2354   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,482) * lu(k,1418)
    2355   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,483) * lu(k,1418)
    2356   114070872 :          lu(k,1439) = - lu(k,484) * lu(k,1418)
    2357   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,485) * lu(k,1418)
    2358   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,486) * lu(k,1418)
    2359   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,487) * lu(k,1418)
    2360   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,488) * lu(k,1418)
    2361   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,489) * lu(k,1418)
    2362   114070872 :          lu(k,1715) = - lu(k,477) * lu(k,1714)
    2363   114070872 :          lu(k,1719) = - lu(k,478) * lu(k,1714)
    2364   114070872 :          lu(k,1723) = lu(k,1723) - lu(k,479) * lu(k,1714)
    2365   114070872 :          lu(k,1725) = lu(k,1725) - lu(k,480) * lu(k,1714)
    2366   114070872 :          lu(k,1727) = - lu(k,481) * lu(k,1714)
    2367   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,482) * lu(k,1714)
    2368   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,483) * lu(k,1714)
    2369   114070872 :          lu(k,1735) = - lu(k,484) * lu(k,1714)
    2370   114070872 :          lu(k,1742) = - lu(k,485) * lu(k,1714)
    2371   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,486) * lu(k,1714)
    2372   114070872 :          lu(k,1746) = - lu(k,487) * lu(k,1714)
    2373   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,488) * lu(k,1714)
    2374   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,489) * lu(k,1714)
    2375   114070872 :          lu(k,1795) = lu(k,1795) - lu(k,477) * lu(k,1794)
    2376   114070872 :          lu(k,1801) = lu(k,1801) - lu(k,478) * lu(k,1794)
    2377   114070872 :          lu(k,1806) = lu(k,1806) - lu(k,479) * lu(k,1794)
    2378   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,480) * lu(k,1794)
    2379   114070872 :          lu(k,1811) = lu(k,1811) - lu(k,481) * lu(k,1794)
    2380   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,482) * lu(k,1794)
    2381   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,483) * lu(k,1794)
    2382   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,484) * lu(k,1794)
    2383   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,485) * lu(k,1794)
    2384   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,486) * lu(k,1794)
    2385   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,487) * lu(k,1794)
    2386   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,488) * lu(k,1794)
    2387   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,489) * lu(k,1794)
    2388   114070872 :          lu(k,1909) = lu(k,1909) - lu(k,477) * lu(k,1908)
    2389   114070872 :          lu(k,1911) = lu(k,1911) - lu(k,478) * lu(k,1908)
    2390   114070872 :          lu(k,1916) = lu(k,1916) - lu(k,479) * lu(k,1908)
    2391   114070872 :          lu(k,1918) = lu(k,1918) - lu(k,480) * lu(k,1908)
    2392   114070872 :          lu(k,1921) = lu(k,1921) - lu(k,481) * lu(k,1908)
    2393   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,482) * lu(k,1908)
    2394   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,483) * lu(k,1908)
    2395   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,484) * lu(k,1908)
    2396   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,485) * lu(k,1908)
    2397   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,486) * lu(k,1908)
    2398   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,487) * lu(k,1908)
    2399   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,488) * lu(k,1908)
    2400   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,489) * lu(k,1908)
    2401   114070872 :          lu(k,2053) = - lu(k,477) * lu(k,2049)
    2402   114070872 :          lu(k,2058) = - lu(k,478) * lu(k,2049)
    2403   114070872 :          lu(k,2063) = lu(k,2063) - lu(k,479) * lu(k,2049)
    2404   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,480) * lu(k,2049)
    2405   114070872 :          lu(k,2068) = lu(k,2068) - lu(k,481) * lu(k,2049)
    2406   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,482) * lu(k,2049)
    2407   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,483) * lu(k,2049)
    2408   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,484) * lu(k,2049)
    2409   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,485) * lu(k,2049)
    2410   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,486) * lu(k,2049)
    2411   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,487) * lu(k,2049)
    2412   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,488) * lu(k,2049)
    2413   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,489) * lu(k,2049)
    2414   114070872 :          lu(k,490) = 1._r8 / lu(k,490)
    2415   114070872 :          lu(k,491) = lu(k,491) * lu(k,490)
    2416   114070872 :          lu(k,492) = lu(k,492) * lu(k,490)
    2417   114070872 :          lu(k,493) = lu(k,493) * lu(k,490)
    2418   114070872 :          lu(k,494) = lu(k,494) * lu(k,490)
    2419   114070872 :          lu(k,495) = lu(k,495) * lu(k,490)
    2420   114070872 :          lu(k,496) = lu(k,496) * lu(k,490)
    2421   114070872 :          lu(k,497) = lu(k,497) * lu(k,490)
    2422   114070872 :          lu(k,498) = lu(k,498) * lu(k,490)
    2423   114070872 :          lu(k,499) = lu(k,499) * lu(k,490)
    2424   114070872 :          lu(k,500) = lu(k,500) * lu(k,490)
    2425   114070872 :          lu(k,501) = lu(k,501) * lu(k,490)
    2426   114070872 :          lu(k,502) = lu(k,502) * lu(k,490)
    2427   114070872 :          lu(k,503) = lu(k,503) * lu(k,490)
    2428   114070872 :          lu(k,1149) = lu(k,1149) - lu(k,491) * lu(k,1133)
    2429   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,492) * lu(k,1133)
    2430   114070872 :          lu(k,1154) = - lu(k,493) * lu(k,1133)
    2431   114070872 :          lu(k,1155) = - lu(k,494) * lu(k,1133)
    2432   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,495) * lu(k,1133)
    2433   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,496) * lu(k,1133)
    2434   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,497) * lu(k,1133)
    2435   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,498) * lu(k,1133)
    2436   114070872 :          lu(k,1164) = - lu(k,499) * lu(k,1133)
    2437   114070872 :          lu(k,1165) = - lu(k,500) * lu(k,1133)
    2438   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,501) * lu(k,1133)
    2439   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,502) * lu(k,1133)
    2440   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,503) * lu(k,1133)
    2441   114070872 :          lu(k,1192) = lu(k,1192) - lu(k,491) * lu(k,1177)
    2442   114070872 :          lu(k,1196) = - lu(k,492) * lu(k,1177)
    2443   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,493) * lu(k,1177)
    2444   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,494) * lu(k,1177)
    2445   114070872 :          lu(k,1199) = lu(k,1199) - lu(k,495) * lu(k,1177)
    2446   114070872 :          lu(k,1200) = - lu(k,496) * lu(k,1177)
    2447   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,497) * lu(k,1177)
    2448   114070872 :          lu(k,1206) = - lu(k,498) * lu(k,1177)
    2449   114070872 :          lu(k,1207) = - lu(k,499) * lu(k,1177)
    2450   114070872 :          lu(k,1208) = - lu(k,500) * lu(k,1177)
    2451   114070872 :          lu(k,1210) = - lu(k,501) * lu(k,1177)
    2452   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,502) * lu(k,1177)
    2453   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,503) * lu(k,1177)
    2454   114070872 :          lu(k,1235) = lu(k,1235) - lu(k,491) * lu(k,1220)
    2455   114070872 :          lu(k,1239) = - lu(k,492) * lu(k,1220)
    2456   114070872 :          lu(k,1240) = - lu(k,493) * lu(k,1220)
    2457   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,494) * lu(k,1220)
    2458   114070872 :          lu(k,1242) = lu(k,1242) - lu(k,495) * lu(k,1220)
    2459   114070872 :          lu(k,1243) = - lu(k,496) * lu(k,1220)
    2460   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,497) * lu(k,1220)
    2461   114070872 :          lu(k,1249) = - lu(k,498) * lu(k,1220)
    2462   114070872 :          lu(k,1250) = - lu(k,499) * lu(k,1220)
    2463   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,500) * lu(k,1220)
    2464   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,501) * lu(k,1220)
    2465   114070872 :          lu(k,1258) = - lu(k,502) * lu(k,1220)
    2466   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,503) * lu(k,1220)
    2467   114070872 :          lu(k,1277) = lu(k,1277) - lu(k,491) * lu(k,1270)
    2468   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,492) * lu(k,1270)
    2469   114070872 :          lu(k,1282) = - lu(k,493) * lu(k,1270)
    2470   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,494) * lu(k,1270)
    2471   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,495) * lu(k,1270)
    2472   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,496) * lu(k,1270)
    2473   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,497) * lu(k,1270)
    2474   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,498) * lu(k,1270)
    2475   114070872 :          lu(k,1292) = - lu(k,499) * lu(k,1270)
    2476   114070872 :          lu(k,1293) = - lu(k,500) * lu(k,1270)
    2477   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,501) * lu(k,1270)
    2478   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,502) * lu(k,1270)
    2479   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,503) * lu(k,1270)
    2480   114070872 :          lu(k,1319) = lu(k,1319) - lu(k,491) * lu(k,1304)
    2481   114070872 :          lu(k,1323) = - lu(k,492) * lu(k,1304)
    2482   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,493) * lu(k,1304)
    2483   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,494) * lu(k,1304)
    2484   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,495) * lu(k,1304)
    2485   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,496) * lu(k,1304)
    2486   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,497) * lu(k,1304)
    2487   114070872 :          lu(k,1333) = - lu(k,498) * lu(k,1304)
    2488   114070872 :          lu(k,1334) = - lu(k,499) * lu(k,1304)
    2489   114070872 :          lu(k,1335) = - lu(k,500) * lu(k,1304)
    2490   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,501) * lu(k,1304)
    2491   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,502) * lu(k,1304)
    2492   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,503) * lu(k,1304)
    2493   114070872 :          lu(k,1598) = lu(k,1598) - lu(k,491) * lu(k,1582)
    2494   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,492) * lu(k,1582)
    2495   114070872 :          lu(k,1603) = - lu(k,493) * lu(k,1582)
    2496   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,494) * lu(k,1582)
    2497   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,495) * lu(k,1582)
    2498   114070872 :          lu(k,1606) = - lu(k,496) * lu(k,1582)
    2499   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,497) * lu(k,1582)
    2500   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,498) * lu(k,1582)
    2501   114070872 :          lu(k,1613) = - lu(k,499) * lu(k,1582)
    2502   114070872 :          lu(k,1614) = - lu(k,500) * lu(k,1582)
    2503   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,501) * lu(k,1582)
    2504   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,502) * lu(k,1582)
    2505   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,503) * lu(k,1582)
    2506   114070872 :          lu(k,1641) = lu(k,1641) - lu(k,491) * lu(k,1626)
    2507   114070872 :          lu(k,1645) = - lu(k,492) * lu(k,1626)
    2508   114070872 :          lu(k,1646) = - lu(k,493) * lu(k,1626)
    2509   114070872 :          lu(k,1647) = - lu(k,494) * lu(k,1626)
    2510   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,495) * lu(k,1626)
    2511   114070872 :          lu(k,1649) = - lu(k,496) * lu(k,1626)
    2512   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,497) * lu(k,1626)
    2513   114070872 :          lu(k,1655) = - lu(k,498) * lu(k,1626)
    2514   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,499) * lu(k,1626)
    2515   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,500) * lu(k,1626)
    2516   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,501) * lu(k,1626)
    2517   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,502) * lu(k,1626)
    2518   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,503) * lu(k,1626)
    2519   114070872 :          lu(k,1684) = lu(k,1684) - lu(k,491) * lu(k,1669)
    2520   114070872 :          lu(k,1688) = - lu(k,492) * lu(k,1669)
    2521   114070872 :          lu(k,1689) = - lu(k,493) * lu(k,1669)
    2522   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,494) * lu(k,1669)
    2523   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,495) * lu(k,1669)
    2524   114070872 :          lu(k,1692) = - lu(k,496) * lu(k,1669)
    2525   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,497) * lu(k,1669)
    2526   114070872 :          lu(k,1698) = - lu(k,498) * lu(k,1669)
    2527   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,499) * lu(k,1669)
    2528   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,500) * lu(k,1669)
    2529   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,501) * lu(k,1669)
    2530   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,502) * lu(k,1669)
    2531   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,503) * lu(k,1669)
    2532   114070872 :          lu(k,1841) = lu(k,1841) - lu(k,491) * lu(k,1835)
    2533   114070872 :          lu(k,1845) = - lu(k,492) * lu(k,1835)
    2534   114070872 :          lu(k,1846) = - lu(k,493) * lu(k,1835)
    2535   114070872 :          lu(k,1847) = - lu(k,494) * lu(k,1835)
    2536   114070872 :          lu(k,1848) = lu(k,1848) - lu(k,495) * lu(k,1835)
    2537   114070872 :          lu(k,1849) = - lu(k,496) * lu(k,1835)
    2538   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,497) * lu(k,1835)
    2539   114070872 :          lu(k,1855) = - lu(k,498) * lu(k,1835)
    2540   114070872 :          lu(k,1856) = - lu(k,499) * lu(k,1835)
    2541   114070872 :          lu(k,1857) = - lu(k,500) * lu(k,1835)
    2542   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,501) * lu(k,1835)
    2543   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,502) * lu(k,1835)
    2544   117656469 :          lu(k,1866) = lu(k,1866) - lu(k,503) * lu(k,1835)
    2545             :       end do
    2546     3585597 :       end subroutine lu_fac12
    2547     3585597 :       subroutine lu_fac13( avec_len, lu )
    2548             :       use chem_mods, only : nzcnt
    2549             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2550             :       implicit none
    2551             : !-----------------------------------------------------------------------
    2552             : ! ... dummy args
    2553             : !-----------------------------------------------------------------------
    2554             :       integer, intent(in) :: avec_len
    2555             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2556             : !-----------------------------------------------------------------------
    2557             : ! ... local variables
    2558             : !-----------------------------------------------------------------------
    2559             :       integer :: k
    2560   117656469 :       do k = 1,avec_len
    2561   114070872 :          lu(k,504) = 1._r8 / lu(k,504)
    2562   114070872 :          lu(k,505) = lu(k,505) * lu(k,504)
    2563   114070872 :          lu(k,506) = lu(k,506) * lu(k,504)
    2564   114070872 :          lu(k,507) = lu(k,507) * lu(k,504)
    2565   114070872 :          lu(k,508) = lu(k,508) * lu(k,504)
    2566   114070872 :          lu(k,509) = lu(k,509) * lu(k,504)
    2567   114070872 :          lu(k,510) = lu(k,510) * lu(k,504)
    2568   114070872 :          lu(k,511) = lu(k,511) * lu(k,504)
    2569   114070872 :          lu(k,512) = lu(k,512) * lu(k,504)
    2570   114070872 :          lu(k,513) = lu(k,513) * lu(k,504)
    2571   114070872 :          lu(k,514) = lu(k,514) * lu(k,504)
    2572   114070872 :          lu(k,515) = lu(k,515) * lu(k,504)
    2573   114070872 :          lu(k,516) = lu(k,516) * lu(k,504)
    2574   114070872 :          lu(k,517) = lu(k,517) * lu(k,504)
    2575   114070872 :          lu(k,518) = lu(k,518) * lu(k,504)
    2576   114070872 :          lu(k,669) = lu(k,669) - lu(k,505) * lu(k,667)
    2577   114070872 :          lu(k,674) = lu(k,674) - lu(k,506) * lu(k,667)
    2578   114070872 :          lu(k,675) = lu(k,675) - lu(k,507) * lu(k,667)
    2579   114070872 :          lu(k,676) = lu(k,676) - lu(k,508) * lu(k,667)
    2580   114070872 :          lu(k,677) = lu(k,677) - lu(k,509) * lu(k,667)
    2581   114070872 :          lu(k,678) = lu(k,678) - lu(k,510) * lu(k,667)
    2582   114070872 :          lu(k,679) = lu(k,679) - lu(k,511) * lu(k,667)
    2583   114070872 :          lu(k,680) = lu(k,680) - lu(k,512) * lu(k,667)
    2584   114070872 :          lu(k,681) = lu(k,681) - lu(k,513) * lu(k,667)
    2585   114070872 :          lu(k,682) = lu(k,682) - lu(k,514) * lu(k,667)
    2586   114070872 :          lu(k,683) = lu(k,683) - lu(k,515) * lu(k,667)
    2587   114070872 :          lu(k,684) = lu(k,684) - lu(k,516) * lu(k,667)
    2588   114070872 :          lu(k,686) = lu(k,686) - lu(k,517) * lu(k,667)
    2589   114070872 :          lu(k,687) = lu(k,687) - lu(k,518) * lu(k,667)
    2590   114070872 :          lu(k,1141) = lu(k,1141) - lu(k,505) * lu(k,1134)
    2591   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,506) * lu(k,1134)
    2592   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,507) * lu(k,1134)
    2593   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,508) * lu(k,1134)
    2594   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,509) * lu(k,1134)
    2595   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,510) * lu(k,1134)
    2596   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,511) * lu(k,1134)
    2597   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,512) * lu(k,1134)
    2598   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,513) * lu(k,1134)
    2599   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,514) * lu(k,1134)
    2600   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,515) * lu(k,1134)
    2601   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,516) * lu(k,1134)
    2602   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,517) * lu(k,1134)
    2603   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,518) * lu(k,1134)
    2604   114070872 :          lu(k,1185) = lu(k,1185) - lu(k,505) * lu(k,1178)
    2605   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,506) * lu(k,1178)
    2606   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,507) * lu(k,1178)
    2607   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,508) * lu(k,1178)
    2608   114070872 :          lu(k,1199) = lu(k,1199) - lu(k,509) * lu(k,1178)
    2609   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,510) * lu(k,1178)
    2610   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,511) * lu(k,1178)
    2611   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,512) * lu(k,1178)
    2612   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,513) * lu(k,1178)
    2613   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,514) * lu(k,1178)
    2614   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,515) * lu(k,1178)
    2615   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,516) * lu(k,1178)
    2616   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,517) * lu(k,1178)
    2617   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,518) * lu(k,1178)
    2618   114070872 :          lu(k,1228) = lu(k,1228) - lu(k,505) * lu(k,1221)
    2619   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,506) * lu(k,1221)
    2620   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,507) * lu(k,1221)
    2621   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,508) * lu(k,1221)
    2622   114070872 :          lu(k,1242) = lu(k,1242) - lu(k,509) * lu(k,1221)
    2623   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,510) * lu(k,1221)
    2624   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,511) * lu(k,1221)
    2625   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,512) * lu(k,1221)
    2626   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,513) * lu(k,1221)
    2627   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,514) * lu(k,1221)
    2628   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,515) * lu(k,1221)
    2629   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,516) * lu(k,1221)
    2630   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,517) * lu(k,1221)
    2631   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,518) * lu(k,1221)
    2632   114070872 :          lu(k,1312) = lu(k,1312) - lu(k,505) * lu(k,1305)
    2633   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,506) * lu(k,1305)
    2634   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,507) * lu(k,1305)
    2635   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,508) * lu(k,1305)
    2636   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,509) * lu(k,1305)
    2637   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,510) * lu(k,1305)
    2638   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,511) * lu(k,1305)
    2639   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,512) * lu(k,1305)
    2640   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,513) * lu(k,1305)
    2641   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,514) * lu(k,1305)
    2642   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,515) * lu(k,1305)
    2643   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,516) * lu(k,1305)
    2644   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,517) * lu(k,1305)
    2645   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,518) * lu(k,1305)
    2646   114070872 :          lu(k,1590) = lu(k,1590) - lu(k,505) * lu(k,1583)
    2647   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,506) * lu(k,1583)
    2648   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,507) * lu(k,1583)
    2649   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,508) * lu(k,1583)
    2650   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,509) * lu(k,1583)
    2651   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,510) * lu(k,1583)
    2652   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,511) * lu(k,1583)
    2653   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,512) * lu(k,1583)
    2654   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,513) * lu(k,1583)
    2655   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,514) * lu(k,1583)
    2656   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,515) * lu(k,1583)
    2657   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,516) * lu(k,1583)
    2658   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,517) * lu(k,1583)
    2659   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,518) * lu(k,1583)
    2660   114070872 :          lu(k,1634) = lu(k,1634) - lu(k,505) * lu(k,1627)
    2661   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,506) * lu(k,1627)
    2662   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,507) * lu(k,1627)
    2663   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,508) * lu(k,1627)
    2664   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,509) * lu(k,1627)
    2665   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,510) * lu(k,1627)
    2666   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,511) * lu(k,1627)
    2667   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,512) * lu(k,1627)
    2668   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,513) * lu(k,1627)
    2669   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,514) * lu(k,1627)
    2670   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,515) * lu(k,1627)
    2671   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,516) * lu(k,1627)
    2672   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,517) * lu(k,1627)
    2673   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,518) * lu(k,1627)
    2674   114070872 :          lu(k,1677) = lu(k,1677) - lu(k,505) * lu(k,1670)
    2675   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,506) * lu(k,1670)
    2676   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,507) * lu(k,1670)
    2677   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,508) * lu(k,1670)
    2678   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,509) * lu(k,1670)
    2679   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,510) * lu(k,1670)
    2680   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,511) * lu(k,1670)
    2681   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,512) * lu(k,1670)
    2682   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,513) * lu(k,1670)
    2683   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,514) * lu(k,1670)
    2684   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,515) * lu(k,1670)
    2685   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,516) * lu(k,1670)
    2686   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,517) * lu(k,1670)
    2687   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,518) * lu(k,1670)
    2688   114070872 :          lu(k,2056) = lu(k,2056) - lu(k,505) * lu(k,2050)
    2689   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,506) * lu(k,2050)
    2690   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,507) * lu(k,2050)
    2691   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,508) * lu(k,2050)
    2692   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,509) * lu(k,2050)
    2693   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,510) * lu(k,2050)
    2694   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,511) * lu(k,2050)
    2695   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,512) * lu(k,2050)
    2696   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,513) * lu(k,2050)
    2697   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,514) * lu(k,2050)
    2698   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,515) * lu(k,2050)
    2699   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,516) * lu(k,2050)
    2700   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,517) * lu(k,2050)
    2701   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,518) * lu(k,2050)
    2702   114070872 :          lu(k,519) = 1._r8 / lu(k,519)
    2703   114070872 :          lu(k,520) = lu(k,520) * lu(k,519)
    2704   114070872 :          lu(k,521) = lu(k,521) * lu(k,519)
    2705   114070872 :          lu(k,522) = lu(k,522) * lu(k,519)
    2706   114070872 :          lu(k,523) = lu(k,523) * lu(k,519)
    2707   114070872 :          lu(k,524) = lu(k,524) * lu(k,519)
    2708   114070872 :          lu(k,525) = lu(k,525) * lu(k,519)
    2709   114070872 :          lu(k,526) = lu(k,526) * lu(k,519)
    2710   114070872 :          lu(k,527) = lu(k,527) * lu(k,519)
    2711   114070872 :          lu(k,528) = lu(k,528) * lu(k,519)
    2712   114070872 :          lu(k,529) = lu(k,529) * lu(k,519)
    2713   114070872 :          lu(k,530) = lu(k,530) * lu(k,519)
    2714   114070872 :          lu(k,531) = lu(k,531) * lu(k,519)
    2715   114070872 :          lu(k,532) = lu(k,532) * lu(k,519)
    2716   114070872 :          lu(k,533) = lu(k,533) * lu(k,519)
    2717   114070872 :          lu(k,536) = lu(k,536) - lu(k,520) * lu(k,534)
    2718   114070872 :          lu(k,537) = lu(k,537) - lu(k,521) * lu(k,534)
    2719   114070872 :          lu(k,538) = lu(k,538) - lu(k,522) * lu(k,534)
    2720   114070872 :          lu(k,539) = lu(k,539) - lu(k,523) * lu(k,534)
    2721   114070872 :          lu(k,540) = lu(k,540) - lu(k,524) * lu(k,534)
    2722   114070872 :          lu(k,541) = lu(k,541) - lu(k,525) * lu(k,534)
    2723   114070872 :          lu(k,542) = lu(k,542) - lu(k,526) * lu(k,534)
    2724   114070872 :          lu(k,543) = lu(k,543) - lu(k,527) * lu(k,534)
    2725   114070872 :          lu(k,544) = lu(k,544) - lu(k,528) * lu(k,534)
    2726   114070872 :          lu(k,545) = lu(k,545) - lu(k,529) * lu(k,534)
    2727   114070872 :          lu(k,546) = lu(k,546) - lu(k,530) * lu(k,534)
    2728   114070872 :          lu(k,547) = lu(k,547) - lu(k,531) * lu(k,534)
    2729   114070872 :          lu(k,548) = lu(k,548) - lu(k,532) * lu(k,534)
    2730   114070872 :          lu(k,549) = lu(k,549) - lu(k,533) * lu(k,534)
    2731   114070872 :          lu(k,811) = lu(k,811) - lu(k,520) * lu(k,809)
    2732   114070872 :          lu(k,815) = lu(k,815) - lu(k,521) * lu(k,809)
    2733   114070872 :          lu(k,816) = lu(k,816) - lu(k,522) * lu(k,809)
    2734   114070872 :          lu(k,817) = lu(k,817) - lu(k,523) * lu(k,809)
    2735   114070872 :          lu(k,818) = lu(k,818) - lu(k,524) * lu(k,809)
    2736   114070872 :          lu(k,819) = lu(k,819) - lu(k,525) * lu(k,809)
    2737   114070872 :          lu(k,820) = lu(k,820) - lu(k,526) * lu(k,809)
    2738   114070872 :          lu(k,822) = lu(k,822) - lu(k,527) * lu(k,809)
    2739   114070872 :          lu(k,823) = lu(k,823) - lu(k,528) * lu(k,809)
    2740   114070872 :          lu(k,824) = lu(k,824) - lu(k,529) * lu(k,809)
    2741   114070872 :          lu(k,825) = lu(k,825) - lu(k,530) * lu(k,809)
    2742   114070872 :          lu(k,827) = lu(k,827) - lu(k,531) * lu(k,809)
    2743   114070872 :          lu(k,828) = lu(k,828) - lu(k,532) * lu(k,809)
    2744   114070872 :          lu(k,829) = lu(k,829) - lu(k,533) * lu(k,809)
    2745   114070872 :          lu(k,1144) = lu(k,1144) - lu(k,520) * lu(k,1135)
    2746   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,521) * lu(k,1135)
    2747   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,522) * lu(k,1135)
    2748   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,523) * lu(k,1135)
    2749   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,524) * lu(k,1135)
    2750   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,525) * lu(k,1135)
    2751   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,526) * lu(k,1135)
    2752   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,527) * lu(k,1135)
    2753   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,528) * lu(k,1135)
    2754   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,529) * lu(k,1135)
    2755   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,530) * lu(k,1135)
    2756   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,531) * lu(k,1135)
    2757   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,532) * lu(k,1135)
    2758   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,533) * lu(k,1135)
    2759   114070872 :          lu(k,1187) = lu(k,1187) - lu(k,520) * lu(k,1179)
    2760   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,521) * lu(k,1179)
    2761   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,522) * lu(k,1179)
    2762   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,523) * lu(k,1179)
    2763   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,524) * lu(k,1179)
    2764   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,525) * lu(k,1179)
    2765   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,526) * lu(k,1179)
    2766   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,527) * lu(k,1179)
    2767   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,528) * lu(k,1179)
    2768   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,529) * lu(k,1179)
    2769   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,530) * lu(k,1179)
    2770   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,531) * lu(k,1179)
    2771   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,532) * lu(k,1179)
    2772   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,533) * lu(k,1179)
    2773   114070872 :          lu(k,1230) = lu(k,1230) - lu(k,520) * lu(k,1222)
    2774   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,521) * lu(k,1222)
    2775   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,522) * lu(k,1222)
    2776   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,523) * lu(k,1222)
    2777   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,524) * lu(k,1222)
    2778   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,525) * lu(k,1222)
    2779   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,526) * lu(k,1222)
    2780   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,527) * lu(k,1222)
    2781   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,528) * lu(k,1222)
    2782   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,529) * lu(k,1222)
    2783   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,530) * lu(k,1222)
    2784   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,531) * lu(k,1222)
    2785   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,532) * lu(k,1222)
    2786   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,533) * lu(k,1222)
    2787   114070872 :          lu(k,1314) = lu(k,1314) - lu(k,520) * lu(k,1306)
    2788   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,521) * lu(k,1306)
    2789   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,522) * lu(k,1306)
    2790   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,523) * lu(k,1306)
    2791   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,524) * lu(k,1306)
    2792   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,525) * lu(k,1306)
    2793   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,526) * lu(k,1306)
    2794   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,527) * lu(k,1306)
    2795   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,528) * lu(k,1306)
    2796   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,529) * lu(k,1306)
    2797   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,530) * lu(k,1306)
    2798   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,531) * lu(k,1306)
    2799   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,532) * lu(k,1306)
    2800   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,533) * lu(k,1306)
    2801   114070872 :          lu(k,1593) = lu(k,1593) - lu(k,520) * lu(k,1584)
    2802   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,521) * lu(k,1584)
    2803   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,522) * lu(k,1584)
    2804   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,523) * lu(k,1584)
    2805   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,524) * lu(k,1584)
    2806   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,525) * lu(k,1584)
    2807   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,526) * lu(k,1584)
    2808   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,527) * lu(k,1584)
    2809   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,528) * lu(k,1584)
    2810   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,529) * lu(k,1584)
    2811   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,530) * lu(k,1584)
    2812   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,531) * lu(k,1584)
    2813   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,532) * lu(k,1584)
    2814   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,533) * lu(k,1584)
    2815   114070872 :          lu(k,1636) = lu(k,1636) - lu(k,520) * lu(k,1628)
    2816   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,521) * lu(k,1628)
    2817   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,522) * lu(k,1628)
    2818   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,523) * lu(k,1628)
    2819   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,524) * lu(k,1628)
    2820   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,525) * lu(k,1628)
    2821   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,526) * lu(k,1628)
    2822   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,527) * lu(k,1628)
    2823   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,528) * lu(k,1628)
    2824   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,529) * lu(k,1628)
    2825   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,530) * lu(k,1628)
    2826   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,531) * lu(k,1628)
    2827   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,532) * lu(k,1628)
    2828   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,533) * lu(k,1628)
    2829   114070872 :          lu(k,1679) = lu(k,1679) - lu(k,520) * lu(k,1671)
    2830   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,521) * lu(k,1671)
    2831   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,522) * lu(k,1671)
    2832   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,523) * lu(k,1671)
    2833   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,524) * lu(k,1671)
    2834   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,525) * lu(k,1671)
    2835   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,526) * lu(k,1671)
    2836   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,527) * lu(k,1671)
    2837   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,528) * lu(k,1671)
    2838   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,529) * lu(k,1671)
    2839   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,530) * lu(k,1671)
    2840   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,531) * lu(k,1671)
    2841   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,532) * lu(k,1671)
    2842   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,533) * lu(k,1671)
    2843   114070872 :          lu(k,2000) = lu(k,2000) - lu(k,520) * lu(k,1992)
    2844   114070872 :          lu(k,2009) = - lu(k,521) * lu(k,1992)
    2845   114070872 :          lu(k,2010) = - lu(k,522) * lu(k,1992)
    2846   114070872 :          lu(k,2011) = - lu(k,523) * lu(k,1992)
    2847   114070872 :          lu(k,2013) = - lu(k,524) * lu(k,1992)
    2848   114070872 :          lu(k,2015) = - lu(k,525) * lu(k,1992)
    2849   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,526) * lu(k,1992)
    2850   114070872 :          lu(k,2019) = - lu(k,527) * lu(k,1992)
    2851   114070872 :          lu(k,2020) = - lu(k,528) * lu(k,1992)
    2852   114070872 :          lu(k,2021) = - lu(k,529) * lu(k,1992)
    2853   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,530) * lu(k,1992)
    2854   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,531) * lu(k,1992)
    2855   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,532) * lu(k,1992)
    2856   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,533) * lu(k,1992)
    2857   114070872 :          lu(k,535) = 1._r8 / lu(k,535)
    2858   114070872 :          lu(k,536) = lu(k,536) * lu(k,535)
    2859   114070872 :          lu(k,537) = lu(k,537) * lu(k,535)
    2860   114070872 :          lu(k,538) = lu(k,538) * lu(k,535)
    2861   114070872 :          lu(k,539) = lu(k,539) * lu(k,535)
    2862   114070872 :          lu(k,540) = lu(k,540) * lu(k,535)
    2863   114070872 :          lu(k,541) = lu(k,541) * lu(k,535)
    2864   114070872 :          lu(k,542) = lu(k,542) * lu(k,535)
    2865   114070872 :          lu(k,543) = lu(k,543) * lu(k,535)
    2866   114070872 :          lu(k,544) = lu(k,544) * lu(k,535)
    2867   114070872 :          lu(k,545) = lu(k,545) * lu(k,535)
    2868   114070872 :          lu(k,546) = lu(k,546) * lu(k,535)
    2869   114070872 :          lu(k,547) = lu(k,547) * lu(k,535)
    2870   114070872 :          lu(k,548) = lu(k,548) * lu(k,535)
    2871   114070872 :          lu(k,549) = lu(k,549) * lu(k,535)
    2872   114070872 :          lu(k,811) = lu(k,811) - lu(k,536) * lu(k,810)
    2873   114070872 :          lu(k,815) = lu(k,815) - lu(k,537) * lu(k,810)
    2874   114070872 :          lu(k,816) = lu(k,816) - lu(k,538) * lu(k,810)
    2875   114070872 :          lu(k,817) = lu(k,817) - lu(k,539) * lu(k,810)
    2876   114070872 :          lu(k,818) = lu(k,818) - lu(k,540) * lu(k,810)
    2877   114070872 :          lu(k,819) = lu(k,819) - lu(k,541) * lu(k,810)
    2878   114070872 :          lu(k,820) = lu(k,820) - lu(k,542) * lu(k,810)
    2879   114070872 :          lu(k,822) = lu(k,822) - lu(k,543) * lu(k,810)
    2880   114070872 :          lu(k,823) = lu(k,823) - lu(k,544) * lu(k,810)
    2881   114070872 :          lu(k,824) = lu(k,824) - lu(k,545) * lu(k,810)
    2882   114070872 :          lu(k,825) = lu(k,825) - lu(k,546) * lu(k,810)
    2883   114070872 :          lu(k,827) = lu(k,827) - lu(k,547) * lu(k,810)
    2884   114070872 :          lu(k,828) = lu(k,828) - lu(k,548) * lu(k,810)
    2885   114070872 :          lu(k,829) = lu(k,829) - lu(k,549) * lu(k,810)
    2886   114070872 :          lu(k,1144) = lu(k,1144) - lu(k,536) * lu(k,1136)
    2887   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,537) * lu(k,1136)
    2888   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,538) * lu(k,1136)
    2889   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,539) * lu(k,1136)
    2890   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,540) * lu(k,1136)
    2891   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,541) * lu(k,1136)
    2892   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,542) * lu(k,1136)
    2893   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,543) * lu(k,1136)
    2894   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,544) * lu(k,1136)
    2895   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,545) * lu(k,1136)
    2896   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,546) * lu(k,1136)
    2897   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,547) * lu(k,1136)
    2898   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,548) * lu(k,1136)
    2899   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,549) * lu(k,1136)
    2900   114070872 :          lu(k,1187) = lu(k,1187) - lu(k,536) * lu(k,1180)
    2901   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,537) * lu(k,1180)
    2902   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,538) * lu(k,1180)
    2903   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,539) * lu(k,1180)
    2904   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,540) * lu(k,1180)
    2905   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,541) * lu(k,1180)
    2906   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,542) * lu(k,1180)
    2907   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,543) * lu(k,1180)
    2908   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,544) * lu(k,1180)
    2909   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,545) * lu(k,1180)
    2910   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,546) * lu(k,1180)
    2911   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,547) * lu(k,1180)
    2912   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,548) * lu(k,1180)
    2913   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,549) * lu(k,1180)
    2914   114070872 :          lu(k,1230) = lu(k,1230) - lu(k,536) * lu(k,1223)
    2915   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,537) * lu(k,1223)
    2916   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,538) * lu(k,1223)
    2917   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,539) * lu(k,1223)
    2918   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,540) * lu(k,1223)
    2919   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,541) * lu(k,1223)
    2920   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,542) * lu(k,1223)
    2921   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,543) * lu(k,1223)
    2922   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,544) * lu(k,1223)
    2923   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,545) * lu(k,1223)
    2924   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,546) * lu(k,1223)
    2925   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,547) * lu(k,1223)
    2926   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,548) * lu(k,1223)
    2927   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,549) * lu(k,1223)
    2928   114070872 :          lu(k,1314) = lu(k,1314) - lu(k,536) * lu(k,1307)
    2929   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,537) * lu(k,1307)
    2930   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,538) * lu(k,1307)
    2931   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,539) * lu(k,1307)
    2932   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,540) * lu(k,1307)
    2933   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,541) * lu(k,1307)
    2934   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,542) * lu(k,1307)
    2935   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,543) * lu(k,1307)
    2936   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,544) * lu(k,1307)
    2937   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,545) * lu(k,1307)
    2938   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,546) * lu(k,1307)
    2939   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,547) * lu(k,1307)
    2940   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,548) * lu(k,1307)
    2941   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,549) * lu(k,1307)
    2942   114070872 :          lu(k,1593) = lu(k,1593) - lu(k,536) * lu(k,1585)
    2943   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,537) * lu(k,1585)
    2944   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,538) * lu(k,1585)
    2945   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,539) * lu(k,1585)
    2946   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,540) * lu(k,1585)
    2947   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,541) * lu(k,1585)
    2948   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,542) * lu(k,1585)
    2949   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,543) * lu(k,1585)
    2950   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,544) * lu(k,1585)
    2951   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,545) * lu(k,1585)
    2952   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,546) * lu(k,1585)
    2953   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,547) * lu(k,1585)
    2954   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,548) * lu(k,1585)
    2955   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,549) * lu(k,1585)
    2956   114070872 :          lu(k,1636) = lu(k,1636) - lu(k,536) * lu(k,1629)
    2957   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,537) * lu(k,1629)
    2958   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,538) * lu(k,1629)
    2959   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,539) * lu(k,1629)
    2960   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,540) * lu(k,1629)
    2961   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,541) * lu(k,1629)
    2962   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,542) * lu(k,1629)
    2963   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,543) * lu(k,1629)
    2964   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,544) * lu(k,1629)
    2965   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,545) * lu(k,1629)
    2966   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,546) * lu(k,1629)
    2967   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,547) * lu(k,1629)
    2968   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,548) * lu(k,1629)
    2969   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,549) * lu(k,1629)
    2970   114070872 :          lu(k,1679) = lu(k,1679) - lu(k,536) * lu(k,1672)
    2971   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,537) * lu(k,1672)
    2972   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,538) * lu(k,1672)
    2973   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,539) * lu(k,1672)
    2974   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,540) * lu(k,1672)
    2975   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,541) * lu(k,1672)
    2976   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,542) * lu(k,1672)
    2977   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,543) * lu(k,1672)
    2978   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,544) * lu(k,1672)
    2979   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,545) * lu(k,1672)
    2980   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,546) * lu(k,1672)
    2981   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,547) * lu(k,1672)
    2982   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,548) * lu(k,1672)
    2983   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,549) * lu(k,1672)
    2984   114070872 :          lu(k,2000) = lu(k,2000) - lu(k,536) * lu(k,1993)
    2985   114070872 :          lu(k,2009) = lu(k,2009) - lu(k,537) * lu(k,1993)
    2986   114070872 :          lu(k,2010) = lu(k,2010) - lu(k,538) * lu(k,1993)
    2987   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,539) * lu(k,1993)
    2988   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,540) * lu(k,1993)
    2989   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,541) * lu(k,1993)
    2990   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,542) * lu(k,1993)
    2991   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,543) * lu(k,1993)
    2992   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,544) * lu(k,1993)
    2993   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,545) * lu(k,1993)
    2994   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,546) * lu(k,1993)
    2995   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,547) * lu(k,1993)
    2996   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,548) * lu(k,1993)
    2997   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,549) * lu(k,1993)
    2998   114070872 :          lu(k,2061) = lu(k,2061) - lu(k,536) * lu(k,2051)
    2999   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,537) * lu(k,2051)
    3000   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,538) * lu(k,2051)
    3001   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,539) * lu(k,2051)
    3002   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,540) * lu(k,2051)
    3003   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,541) * lu(k,2051)
    3004   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,542) * lu(k,2051)
    3005   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,543) * lu(k,2051)
    3006   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,544) * lu(k,2051)
    3007   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,545) * lu(k,2051)
    3008   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,546) * lu(k,2051)
    3009   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,547) * lu(k,2051)
    3010   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,548) * lu(k,2051)
    3011   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,549) * lu(k,2051)
    3012             :       end do
    3013     3585597 :       end subroutine lu_fac13
    3014     3585597 :       subroutine lu_fac14( avec_len, lu )
    3015             :       use chem_mods, only : nzcnt
    3016             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3017             :       implicit none
    3018             : !-----------------------------------------------------------------------
    3019             : ! ... dummy args
    3020             : !-----------------------------------------------------------------------
    3021             :       integer, intent(in) :: avec_len
    3022             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3023             : !-----------------------------------------------------------------------
    3024             : ! ... local variables
    3025             : !-----------------------------------------------------------------------
    3026             :       integer :: k
    3027   117656469 :       do k = 1,avec_len
    3028   114070872 :          lu(k,550) = 1._r8 / lu(k,550)
    3029   114070872 :          lu(k,551) = lu(k,551) * lu(k,550)
    3030   114070872 :          lu(k,552) = lu(k,552) * lu(k,550)
    3031   114070872 :          lu(k,553) = lu(k,553) * lu(k,550)
    3032   114070872 :          lu(k,554) = lu(k,554) * lu(k,550)
    3033   114070872 :          lu(k,555) = lu(k,555) * lu(k,550)
    3034   114070872 :          lu(k,556) = lu(k,556) * lu(k,550)
    3035   114070872 :          lu(k,557) = lu(k,557) * lu(k,550)
    3036   114070872 :          lu(k,558) = lu(k,558) * lu(k,550)
    3037   114070872 :          lu(k,559) = lu(k,559) * lu(k,550)
    3038   114070872 :          lu(k,560) = lu(k,560) * lu(k,550)
    3039   114070872 :          lu(k,561) = lu(k,561) * lu(k,550)
    3040   114070872 :          lu(k,562) = lu(k,562) * lu(k,550)
    3041   114070872 :          lu(k,563) = lu(k,563) * lu(k,550)
    3042   114070872 :          lu(k,672) = lu(k,672) - lu(k,551) * lu(k,668)
    3043   114070872 :          lu(k,674) = lu(k,674) - lu(k,552) * lu(k,668)
    3044   114070872 :          lu(k,675) = lu(k,675) - lu(k,553) * lu(k,668)
    3045   114070872 :          lu(k,676) = lu(k,676) - lu(k,554) * lu(k,668)
    3046   114070872 :          lu(k,678) = lu(k,678) - lu(k,555) * lu(k,668)
    3047   114070872 :          lu(k,680) = lu(k,680) - lu(k,556) * lu(k,668)
    3048   114070872 :          lu(k,681) = lu(k,681) - lu(k,557) * lu(k,668)
    3049   114070872 :          lu(k,682) = lu(k,682) - lu(k,558) * lu(k,668)
    3050   114070872 :          lu(k,683) = lu(k,683) - lu(k,559) * lu(k,668)
    3051   114070872 :          lu(k,684) = lu(k,684) - lu(k,560) * lu(k,668)
    3052   114070872 :          lu(k,685) = lu(k,685) - lu(k,561) * lu(k,668)
    3053   114070872 :          lu(k,686) = lu(k,686) - lu(k,562) * lu(k,668)
    3054   114070872 :          lu(k,687) = lu(k,687) - lu(k,563) * lu(k,668)
    3055   114070872 :          lu(k,926) = lu(k,926) - lu(k,551) * lu(k,923)
    3056   114070872 :          lu(k,930) = lu(k,930) - lu(k,552) * lu(k,923)
    3057   114070872 :          lu(k,931) = lu(k,931) - lu(k,553) * lu(k,923)
    3058   114070872 :          lu(k,932) = lu(k,932) - lu(k,554) * lu(k,923)
    3059   114070872 :          lu(k,933) = lu(k,933) - lu(k,555) * lu(k,923)
    3060   114070872 :          lu(k,935) = lu(k,935) - lu(k,556) * lu(k,923)
    3061   114070872 :          lu(k,938) = lu(k,938) - lu(k,557) * lu(k,923)
    3062   114070872 :          lu(k,939) = lu(k,939) - lu(k,558) * lu(k,923)
    3063   114070872 :          lu(k,940) = lu(k,940) - lu(k,559) * lu(k,923)
    3064   114070872 :          lu(k,942) = lu(k,942) - lu(k,560) * lu(k,923)
    3065   114070872 :          lu(k,943) = lu(k,943) - lu(k,561) * lu(k,923)
    3066   114070872 :          lu(k,946) = lu(k,946) - lu(k,562) * lu(k,923)
    3067   114070872 :          lu(k,948) = lu(k,948) - lu(k,563) * lu(k,923)
    3068   114070872 :          lu(k,1148) = lu(k,1148) - lu(k,551) * lu(k,1137)
    3069   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,552) * lu(k,1137)
    3070   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,553) * lu(k,1137)
    3071   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,554) * lu(k,1137)
    3072   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,555) * lu(k,1137)
    3073   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,556) * lu(k,1137)
    3074   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,557) * lu(k,1137)
    3075   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,558) * lu(k,1137)
    3076   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,559) * lu(k,1137)
    3077   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,560) * lu(k,1137)
    3078   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,561) * lu(k,1137)
    3079   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,562) * lu(k,1137)
    3080   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,563) * lu(k,1137)
    3081   114070872 :          lu(k,1191) = lu(k,1191) - lu(k,551) * lu(k,1181)
    3082   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,552) * lu(k,1181)
    3083   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,553) * lu(k,1181)
    3084   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,554) * lu(k,1181)
    3085   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,555) * lu(k,1181)
    3086   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,556) * lu(k,1181)
    3087   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,557) * lu(k,1181)
    3088   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,558) * lu(k,1181)
    3089   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,559) * lu(k,1181)
    3090   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,560) * lu(k,1181)
    3091   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,561) * lu(k,1181)
    3092   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,562) * lu(k,1181)
    3093   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,563) * lu(k,1181)
    3094   114070872 :          lu(k,1234) = lu(k,1234) - lu(k,551) * lu(k,1224)
    3095   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,552) * lu(k,1224)
    3096   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,553) * lu(k,1224)
    3097   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,554) * lu(k,1224)
    3098   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,555) * lu(k,1224)
    3099   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,556) * lu(k,1224)
    3100   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,557) * lu(k,1224)
    3101   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,558) * lu(k,1224)
    3102   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,559) * lu(k,1224)
    3103   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,560) * lu(k,1224)
    3104   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,561) * lu(k,1224)
    3105   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,562) * lu(k,1224)
    3106   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,563) * lu(k,1224)
    3107   114070872 :          lu(k,1318) = lu(k,1318) - lu(k,551) * lu(k,1308)
    3108   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,552) * lu(k,1308)
    3109   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,553) * lu(k,1308)
    3110   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,554) * lu(k,1308)
    3111   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,555) * lu(k,1308)
    3112   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,556) * lu(k,1308)
    3113   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,557) * lu(k,1308)
    3114   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,558) * lu(k,1308)
    3115   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,559) * lu(k,1308)
    3116   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,560) * lu(k,1308)
    3117   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,561) * lu(k,1308)
    3118   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,562) * lu(k,1308)
    3119   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,563) * lu(k,1308)
    3120   114070872 :          lu(k,1597) = lu(k,1597) - lu(k,551) * lu(k,1586)
    3121   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,552) * lu(k,1586)
    3122   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,553) * lu(k,1586)
    3123   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,554) * lu(k,1586)
    3124   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,555) * lu(k,1586)
    3125   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,556) * lu(k,1586)
    3126   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,557) * lu(k,1586)
    3127   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,558) * lu(k,1586)
    3128   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,559) * lu(k,1586)
    3129   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,560) * lu(k,1586)
    3130   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,561) * lu(k,1586)
    3131   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,562) * lu(k,1586)
    3132   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,563) * lu(k,1586)
    3133   114070872 :          lu(k,1640) = lu(k,1640) - lu(k,551) * lu(k,1630)
    3134   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,552) * lu(k,1630)
    3135   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,553) * lu(k,1630)
    3136   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,554) * lu(k,1630)
    3137   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,555) * lu(k,1630)
    3138   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,556) * lu(k,1630)
    3139   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,557) * lu(k,1630)
    3140   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,558) * lu(k,1630)
    3141   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,559) * lu(k,1630)
    3142   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,560) * lu(k,1630)
    3143   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,561) * lu(k,1630)
    3144   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,562) * lu(k,1630)
    3145   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,563) * lu(k,1630)
    3146   114070872 :          lu(k,1683) = lu(k,1683) - lu(k,551) * lu(k,1673)
    3147   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,552) * lu(k,1673)
    3148   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,553) * lu(k,1673)
    3149   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,554) * lu(k,1673)
    3150   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,555) * lu(k,1673)
    3151   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,556) * lu(k,1673)
    3152   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,557) * lu(k,1673)
    3153   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,558) * lu(k,1673)
    3154   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,559) * lu(k,1673)
    3155   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,560) * lu(k,1673)
    3156   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,561) * lu(k,1673)
    3157   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,562) * lu(k,1673)
    3158   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,563) * lu(k,1673)
    3159   114070872 :          lu(k,1959) = lu(k,1959) - lu(k,551) * lu(k,1948)
    3160   114070872 :          lu(k,1964) = lu(k,1964) - lu(k,552) * lu(k,1948)
    3161   114070872 :          lu(k,1965) = - lu(k,553) * lu(k,1948)
    3162   114070872 :          lu(k,1966) = - lu(k,554) * lu(k,1948)
    3163   114070872 :          lu(k,1968) = - lu(k,555) * lu(k,1948)
    3164   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,556) * lu(k,1948)
    3165   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,557) * lu(k,1948)
    3166   114070872 :          lu(k,1975) = - lu(k,558) * lu(k,1948)
    3167   114070872 :          lu(k,1976) = - lu(k,559) * lu(k,1948)
    3168   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,560) * lu(k,1948)
    3169   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,561) * lu(k,1948)
    3170   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,562) * lu(k,1948)
    3171   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,563) * lu(k,1948)
    3172   114070872 :          lu(k,2064) = lu(k,2064) - lu(k,551) * lu(k,2052)
    3173   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,552) * lu(k,2052)
    3174   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,553) * lu(k,2052)
    3175   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,554) * lu(k,2052)
    3176   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,555) * lu(k,2052)
    3177   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,556) * lu(k,2052)
    3178   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,557) * lu(k,2052)
    3179   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,558) * lu(k,2052)
    3180   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,559) * lu(k,2052)
    3181   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,560) * lu(k,2052)
    3182   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,561) * lu(k,2052)
    3183   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,562) * lu(k,2052)
    3184   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,563) * lu(k,2052)
    3185   114070872 :          lu(k,564) = 1._r8 / lu(k,564)
    3186   114070872 :          lu(k,565) = lu(k,565) * lu(k,564)
    3187   114070872 :          lu(k,566) = lu(k,566) * lu(k,564)
    3188   114070872 :          lu(k,567) = lu(k,567) * lu(k,564)
    3189   114070872 :          lu(k,568) = lu(k,568) * lu(k,564)
    3190   114070872 :          lu(k,569) = lu(k,569) * lu(k,564)
    3191   114070872 :          lu(k,570) = lu(k,570) * lu(k,564)
    3192   114070872 :          lu(k,571) = lu(k,571) * lu(k,564)
    3193   114070872 :          lu(k,572) = lu(k,572) * lu(k,564)
    3194   114070872 :          lu(k,573) = lu(k,573) * lu(k,564)
    3195   114070872 :          lu(k,574) = lu(k,574) * lu(k,564)
    3196   114070872 :          lu(k,575) = lu(k,575) * lu(k,564)
    3197   114070872 :          lu(k,576) = lu(k,576) * lu(k,564)
    3198   114070872 :          lu(k,577) = lu(k,577) * lu(k,564)
    3199   114070872 :          lu(k,578) = lu(k,578) * lu(k,564)
    3200   114070872 :          lu(k,579) = lu(k,579) * lu(k,564)
    3201   114070872 :          lu(k,863) = lu(k,863) - lu(k,565) * lu(k,862)
    3202   114070872 :          lu(k,869) = lu(k,869) - lu(k,566) * lu(k,862)
    3203   114070872 :          lu(k,870) = lu(k,870) - lu(k,567) * lu(k,862)
    3204   114070872 :          lu(k,871) = lu(k,871) - lu(k,568) * lu(k,862)
    3205   114070872 :          lu(k,872) = lu(k,872) - lu(k,569) * lu(k,862)
    3206   114070872 :          lu(k,874) = lu(k,874) - lu(k,570) * lu(k,862)
    3207   114070872 :          lu(k,876) = lu(k,876) - lu(k,571) * lu(k,862)
    3208   114070872 :          lu(k,877) = lu(k,877) - lu(k,572) * lu(k,862)
    3209   114070872 :          lu(k,878) = lu(k,878) - lu(k,573) * lu(k,862)
    3210   114070872 :          lu(k,879) = lu(k,879) - lu(k,574) * lu(k,862)
    3211   114070872 :          lu(k,880) = lu(k,880) - lu(k,575) * lu(k,862)
    3212   114070872 :          lu(k,881) = - lu(k,576) * lu(k,862)
    3213   114070872 :          lu(k,884) = lu(k,884) - lu(k,577) * lu(k,862)
    3214   114070872 :          lu(k,885) = lu(k,885) - lu(k,578) * lu(k,862)
    3215   114070872 :          lu(k,886) = lu(k,886) - lu(k,579) * lu(k,862)
    3216   114070872 :          lu(k,1139) = lu(k,1139) - lu(k,565) * lu(k,1138)
    3217   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,566) * lu(k,1138)
    3218   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,567) * lu(k,1138)
    3219   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,568) * lu(k,1138)
    3220   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,569) * lu(k,1138)
    3221   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,570) * lu(k,1138)
    3222   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,571) * lu(k,1138)
    3223   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,572) * lu(k,1138)
    3224   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,573) * lu(k,1138)
    3225   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,574) * lu(k,1138)
    3226   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,575) * lu(k,1138)
    3227   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,576) * lu(k,1138)
    3228   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,577) * lu(k,1138)
    3229   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,578) * lu(k,1138)
    3230   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,579) * lu(k,1138)
    3231   114070872 :          lu(k,1183) = lu(k,1183) - lu(k,565) * lu(k,1182)
    3232   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,566) * lu(k,1182)
    3233   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,567) * lu(k,1182)
    3234   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,568) * lu(k,1182)
    3235   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,569) * lu(k,1182)
    3236   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,570) * lu(k,1182)
    3237   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,571) * lu(k,1182)
    3238   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,572) * lu(k,1182)
    3239   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,573) * lu(k,1182)
    3240   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,574) * lu(k,1182)
    3241   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,575) * lu(k,1182)
    3242   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,576) * lu(k,1182)
    3243   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,577) * lu(k,1182)
    3244   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,578) * lu(k,1182)
    3245   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,579) * lu(k,1182)
    3246   114070872 :          lu(k,1226) = lu(k,1226) - lu(k,565) * lu(k,1225)
    3247   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,566) * lu(k,1225)
    3248   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,567) * lu(k,1225)
    3249   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,568) * lu(k,1225)
    3250   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,569) * lu(k,1225)
    3251   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,570) * lu(k,1225)
    3252   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,571) * lu(k,1225)
    3253   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,572) * lu(k,1225)
    3254   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,573) * lu(k,1225)
    3255   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,574) * lu(k,1225)
    3256   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,575) * lu(k,1225)
    3257   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,576) * lu(k,1225)
    3258   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,577) * lu(k,1225)
    3259   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,578) * lu(k,1225)
    3260   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,579) * lu(k,1225)
    3261   114070872 :          lu(k,1310) = lu(k,1310) - lu(k,565) * lu(k,1309)
    3262   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,566) * lu(k,1309)
    3263   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,567) * lu(k,1309)
    3264   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,568) * lu(k,1309)
    3265   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,569) * lu(k,1309)
    3266   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,570) * lu(k,1309)
    3267   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,571) * lu(k,1309)
    3268   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,572) * lu(k,1309)
    3269   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,573) * lu(k,1309)
    3270   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,574) * lu(k,1309)
    3271   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,575) * lu(k,1309)
    3272   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,576) * lu(k,1309)
    3273   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,577) * lu(k,1309)
    3274   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,578) * lu(k,1309)
    3275   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,579) * lu(k,1309)
    3276   114070872 :          lu(k,1508) = lu(k,1508) - lu(k,565) * lu(k,1507)
    3277   114070872 :          lu(k,1521) = - lu(k,566) * lu(k,1507)
    3278   114070872 :          lu(k,1522) = - lu(k,567) * lu(k,1507)
    3279   114070872 :          lu(k,1523) = - lu(k,568) * lu(k,1507)
    3280   114070872 :          lu(k,1525) = - lu(k,569) * lu(k,1507)
    3281   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,570) * lu(k,1507)
    3282   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,571) * lu(k,1507)
    3283   114070872 :          lu(k,1531) = - lu(k,572) * lu(k,1507)
    3284   114070872 :          lu(k,1532) = - lu(k,573) * lu(k,1507)
    3285   114070872 :          lu(k,1533) = - lu(k,574) * lu(k,1507)
    3286   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,575) * lu(k,1507)
    3287   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,576) * lu(k,1507)
    3288   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,577) * lu(k,1507)
    3289   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,578) * lu(k,1507)
    3290   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,579) * lu(k,1507)
    3291   114070872 :          lu(k,1588) = lu(k,1588) - lu(k,565) * lu(k,1587)
    3292   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,566) * lu(k,1587)
    3293   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,567) * lu(k,1587)
    3294   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,568) * lu(k,1587)
    3295   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,569) * lu(k,1587)
    3296   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,570) * lu(k,1587)
    3297   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,571) * lu(k,1587)
    3298   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,572) * lu(k,1587)
    3299   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,573) * lu(k,1587)
    3300   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,574) * lu(k,1587)
    3301   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,575) * lu(k,1587)
    3302   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,576) * lu(k,1587)
    3303   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,577) * lu(k,1587)
    3304   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,578) * lu(k,1587)
    3305   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,579) * lu(k,1587)
    3306   114070872 :          lu(k,1632) = lu(k,1632) - lu(k,565) * lu(k,1631)
    3307   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,566) * lu(k,1631)
    3308   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,567) * lu(k,1631)
    3309   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,568) * lu(k,1631)
    3310   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,569) * lu(k,1631)
    3311   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,570) * lu(k,1631)
    3312   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,571) * lu(k,1631)
    3313   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,572) * lu(k,1631)
    3314   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,573) * lu(k,1631)
    3315   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,574) * lu(k,1631)
    3316   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,575) * lu(k,1631)
    3317   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,576) * lu(k,1631)
    3318   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,577) * lu(k,1631)
    3319   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,578) * lu(k,1631)
    3320   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,579) * lu(k,1631)
    3321   114070872 :          lu(k,1675) = lu(k,1675) - lu(k,565) * lu(k,1674)
    3322   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,566) * lu(k,1674)
    3323   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,567) * lu(k,1674)
    3324   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,568) * lu(k,1674)
    3325   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,569) * lu(k,1674)
    3326   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,570) * lu(k,1674)
    3327   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,571) * lu(k,1674)
    3328   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,572) * lu(k,1674)
    3329   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,573) * lu(k,1674)
    3330   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,574) * lu(k,1674)
    3331   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,575) * lu(k,1674)
    3332   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,576) * lu(k,1674)
    3333   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,577) * lu(k,1674)
    3334   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,578) * lu(k,1674)
    3335   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,579) * lu(k,1674)
    3336   114070872 :          lu(k,1996) = - lu(k,565) * lu(k,1994)
    3337   114070872 :          lu(k,2009) = lu(k,2009) - lu(k,566) * lu(k,1994)
    3338   114070872 :          lu(k,2010) = lu(k,2010) - lu(k,567) * lu(k,1994)
    3339   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,568) * lu(k,1994)
    3340   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,569) * lu(k,1994)
    3341   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,570) * lu(k,1994)
    3342   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,571) * lu(k,1994)
    3343   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,572) * lu(k,1994)
    3344   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,573) * lu(k,1994)
    3345   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,574) * lu(k,1994)
    3346   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,575) * lu(k,1994)
    3347   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,576) * lu(k,1994)
    3348   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,577) * lu(k,1994)
    3349   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,578) * lu(k,1994)
    3350   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,579) * lu(k,1994)
    3351   114070872 :          lu(k,582) = 1._r8 / lu(k,582)
    3352   114070872 :          lu(k,583) = lu(k,583) * lu(k,582)
    3353   114070872 :          lu(k,584) = lu(k,584) * lu(k,582)
    3354   114070872 :          lu(k,585) = lu(k,585) * lu(k,582)
    3355   114070872 :          lu(k,586) = lu(k,586) * lu(k,582)
    3356   114070872 :          lu(k,587) = lu(k,587) * lu(k,582)
    3357   114070872 :          lu(k,588) = lu(k,588) * lu(k,582)
    3358   114070872 :          lu(k,589) = lu(k,589) * lu(k,582)
    3359   114070872 :          lu(k,590) = lu(k,590) * lu(k,582)
    3360   114070872 :          lu(k,591) = lu(k,591) * lu(k,582)
    3361   114070872 :          lu(k,592) = lu(k,592) * lu(k,582)
    3362   114070872 :          lu(k,593) = lu(k,593) * lu(k,582)
    3363   114070872 :          lu(k,715) = lu(k,715) - lu(k,583) * lu(k,714)
    3364   114070872 :          lu(k,716) = - lu(k,584) * lu(k,714)
    3365   114070872 :          lu(k,717) = - lu(k,585) * lu(k,714)
    3366   114070872 :          lu(k,718) = lu(k,718) - lu(k,586) * lu(k,714)
    3367   114070872 :          lu(k,719) = lu(k,719) - lu(k,587) * lu(k,714)
    3368   114070872 :          lu(k,721) = - lu(k,588) * lu(k,714)
    3369   114070872 :          lu(k,722) = lu(k,722) - lu(k,589) * lu(k,714)
    3370   114070872 :          lu(k,723) = lu(k,723) - lu(k,590) * lu(k,714)
    3371   114070872 :          lu(k,727) = lu(k,727) - lu(k,591) * lu(k,714)
    3372   114070872 :          lu(k,729) = lu(k,729) - lu(k,592) * lu(k,714)
    3373   114070872 :          lu(k,732) = lu(k,732) - lu(k,593) * lu(k,714)
    3374   114070872 :          lu(k,737) = lu(k,737) - lu(k,583) * lu(k,735)
    3375   114070872 :          lu(k,738) = lu(k,738) - lu(k,584) * lu(k,735)
    3376   114070872 :          lu(k,739) = lu(k,739) - lu(k,585) * lu(k,735)
    3377   114070872 :          lu(k,740) = lu(k,740) - lu(k,586) * lu(k,735)
    3378   114070872 :          lu(k,741) = lu(k,741) - lu(k,587) * lu(k,735)
    3379   114070872 :          lu(k,744) = lu(k,744) - lu(k,588) * lu(k,735)
    3380   114070872 :          lu(k,745) = lu(k,745) - lu(k,589) * lu(k,735)
    3381   114070872 :          lu(k,746) = - lu(k,590) * lu(k,735)
    3382   114070872 :          lu(k,750) = lu(k,750) - lu(k,591) * lu(k,735)
    3383   114070872 :          lu(k,754) = - lu(k,592) * lu(k,735)
    3384   114070872 :          lu(k,757) = lu(k,757) - lu(k,593) * lu(k,735)
    3385   114070872 :          lu(k,785) = lu(k,785) - lu(k,583) * lu(k,783)
    3386   114070872 :          lu(k,786) = lu(k,786) - lu(k,584) * lu(k,783)
    3387   114070872 :          lu(k,787) = lu(k,787) - lu(k,585) * lu(k,783)
    3388   114070872 :          lu(k,788) = lu(k,788) - lu(k,586) * lu(k,783)
    3389   114070872 :          lu(k,789) = lu(k,789) - lu(k,587) * lu(k,783)
    3390   114070872 :          lu(k,793) = lu(k,793) - lu(k,588) * lu(k,783)
    3391   114070872 :          lu(k,794) = lu(k,794) - lu(k,589) * lu(k,783)
    3392   114070872 :          lu(k,795) = lu(k,795) - lu(k,590) * lu(k,783)
    3393   114070872 :          lu(k,801) = lu(k,801) - lu(k,591) * lu(k,783)
    3394   114070872 :          lu(k,805) = lu(k,805) - lu(k,592) * lu(k,783)
    3395   114070872 :          lu(k,808) = lu(k,808) - lu(k,593) * lu(k,783)
    3396   114070872 :          lu(k,897) = lu(k,897) - lu(k,583) * lu(k,895)
    3397   114070872 :          lu(k,898) = lu(k,898) - lu(k,584) * lu(k,895)
    3398   114070872 :          lu(k,899) = lu(k,899) - lu(k,585) * lu(k,895)
    3399   114070872 :          lu(k,900) = lu(k,900) - lu(k,586) * lu(k,895)
    3400   114070872 :          lu(k,901) = lu(k,901) - lu(k,587) * lu(k,895)
    3401   114070872 :          lu(k,905) = - lu(k,588) * lu(k,895)
    3402   114070872 :          lu(k,907) = lu(k,907) - lu(k,589) * lu(k,895)
    3403   114070872 :          lu(k,908) = lu(k,908) - lu(k,590) * lu(k,895)
    3404   114070872 :          lu(k,914) = lu(k,914) - lu(k,591) * lu(k,895)
    3405   114070872 :          lu(k,918) = lu(k,918) - lu(k,592) * lu(k,895)
    3406   114070872 :          lu(k,921) = lu(k,921) - lu(k,593) * lu(k,895)
    3407   114070872 :          lu(k,980) = lu(k,980) - lu(k,583) * lu(k,978)
    3408   114070872 :          lu(k,981) = lu(k,981) - lu(k,584) * lu(k,978)
    3409   114070872 :          lu(k,982) = lu(k,982) - lu(k,585) * lu(k,978)
    3410   114070872 :          lu(k,983) = lu(k,983) - lu(k,586) * lu(k,978)
    3411   114070872 :          lu(k,984) = lu(k,984) - lu(k,587) * lu(k,978)
    3412   114070872 :          lu(k,989) = lu(k,989) - lu(k,588) * lu(k,978)
    3413   114070872 :          lu(k,991) = lu(k,991) - lu(k,589) * lu(k,978)
    3414   114070872 :          lu(k,992) = lu(k,992) - lu(k,590) * lu(k,978)
    3415   114070872 :          lu(k,998) = lu(k,998) - lu(k,591) * lu(k,978)
    3416   114070872 :          lu(k,1002) = lu(k,1002) - lu(k,592) * lu(k,978)
    3417   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,593) * lu(k,978)
    3418   114070872 :          lu(k,1093) = lu(k,1093) - lu(k,583) * lu(k,1092)
    3419   114070872 :          lu(k,1094) = lu(k,1094) - lu(k,584) * lu(k,1092)
    3420   114070872 :          lu(k,1095) = - lu(k,585) * lu(k,1092)
    3421   114070872 :          lu(k,1099) = lu(k,1099) - lu(k,586) * lu(k,1092)
    3422   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,587) * lu(k,1092)
    3423   114070872 :          lu(k,1108) = lu(k,1108) - lu(k,588) * lu(k,1092)
    3424   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,589) * lu(k,1092)
    3425   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,590) * lu(k,1092)
    3426   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,591) * lu(k,1092)
    3427   114070872 :          lu(k,1123) = lu(k,1123) - lu(k,592) * lu(k,1092)
    3428   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,593) * lu(k,1092)
    3429   114070872 :          lu(k,1371) = lu(k,1371) - lu(k,583) * lu(k,1368)
    3430   114070872 :          lu(k,1372) = lu(k,1372) - lu(k,584) * lu(k,1368)
    3431   114070872 :          lu(k,1373) = lu(k,1373) - lu(k,585) * lu(k,1368)
    3432   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,586) * lu(k,1368)
    3433   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,587) * lu(k,1368)
    3434   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,588) * lu(k,1368)
    3435   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,589) * lu(k,1368)
    3436   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,590) * lu(k,1368)
    3437   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,591) * lu(k,1368)
    3438   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,592) * lu(k,1368)
    3439   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,593) * lu(k,1368)
    3440   114070872 :          lu(k,1421) = lu(k,1421) - lu(k,583) * lu(k,1419)
    3441   114070872 :          lu(k,1422) = - lu(k,584) * lu(k,1419)
    3442   114070872 :          lu(k,1423) = lu(k,1423) - lu(k,585) * lu(k,1419)
    3443   114070872 :          lu(k,1426) = lu(k,1426) - lu(k,586) * lu(k,1419)
    3444   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,587) * lu(k,1419)
    3445   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,588) * lu(k,1419)
    3446   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,589) * lu(k,1419)
    3447   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,590) * lu(k,1419)
    3448   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,591) * lu(k,1419)
    3449   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,592) * lu(k,1419)
    3450   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,593) * lu(k,1419)
    3451   114070872 :          lu(k,1468) = - lu(k,583) * lu(k,1466)
    3452   114070872 :          lu(k,1469) = lu(k,1469) - lu(k,584) * lu(k,1466)
    3453   114070872 :          lu(k,1470) = lu(k,1470) - lu(k,585) * lu(k,1466)
    3454   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,586) * lu(k,1466)
    3455   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,587) * lu(k,1466)
    3456   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,588) * lu(k,1466)
    3457   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,589) * lu(k,1466)
    3458   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,590) * lu(k,1466)
    3459   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,591) * lu(k,1466)
    3460   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,592) * lu(k,1466)
    3461   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,593) * lu(k,1466)
    3462   114070872 :          lu(k,1719) = lu(k,1719) - lu(k,583) * lu(k,1715)
    3463   114070872 :          lu(k,1720) = lu(k,1720) - lu(k,584) * lu(k,1715)
    3464   114070872 :          lu(k,1721) = - lu(k,585) * lu(k,1715)
    3465   114070872 :          lu(k,1723) = lu(k,1723) - lu(k,586) * lu(k,1715)
    3466   114070872 :          lu(k,1725) = lu(k,1725) - lu(k,587) * lu(k,1715)
    3467   114070872 :          lu(k,1731) = lu(k,1731) - lu(k,588) * lu(k,1715)
    3468   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,589) * lu(k,1715)
    3469   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,590) * lu(k,1715)
    3470   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,591) * lu(k,1715)
    3471   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,592) * lu(k,1715)
    3472   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,593) * lu(k,1715)
    3473   114070872 :          lu(k,1801) = lu(k,1801) - lu(k,583) * lu(k,1795)
    3474   114070872 :          lu(k,1802) = - lu(k,584) * lu(k,1795)
    3475   114070872 :          lu(k,1803) = lu(k,1803) - lu(k,585) * lu(k,1795)
    3476   114070872 :          lu(k,1806) = lu(k,1806) - lu(k,586) * lu(k,1795)
    3477   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,587) * lu(k,1795)
    3478   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,588) * lu(k,1795)
    3479   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,589) * lu(k,1795)
    3480   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,590) * lu(k,1795)
    3481   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,591) * lu(k,1795)
    3482   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,592) * lu(k,1795)
    3483   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,593) * lu(k,1795)
    3484   114070872 :          lu(k,1911) = lu(k,1911) - lu(k,583) * lu(k,1909)
    3485   114070872 :          lu(k,1912) = - lu(k,584) * lu(k,1909)
    3486   114070872 :          lu(k,1913) = lu(k,1913) - lu(k,585) * lu(k,1909)
    3487   114070872 :          lu(k,1916) = lu(k,1916) - lu(k,586) * lu(k,1909)
    3488   114070872 :          lu(k,1918) = lu(k,1918) - lu(k,587) * lu(k,1909)
    3489   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,588) * lu(k,1909)
    3490   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,589) * lu(k,1909)
    3491   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,590) * lu(k,1909)
    3492   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,591) * lu(k,1909)
    3493   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,592) * lu(k,1909)
    3494   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,593) * lu(k,1909)
    3495   114070872 :          lu(k,1953) = lu(k,1953) - lu(k,583) * lu(k,1949)
    3496   114070872 :          lu(k,1954) = lu(k,1954) - lu(k,584) * lu(k,1949)
    3497   114070872 :          lu(k,1955) = lu(k,1955) - lu(k,585) * lu(k,1949)
    3498   114070872 :          lu(k,1958) = lu(k,1958) - lu(k,586) * lu(k,1949)
    3499   114070872 :          lu(k,1960) = lu(k,1960) - lu(k,587) * lu(k,1949)
    3500   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,588) * lu(k,1949)
    3501   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,589) * lu(k,1949)
    3502   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,590) * lu(k,1949)
    3503   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,591) * lu(k,1949)
    3504   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,592) * lu(k,1949)
    3505   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,593) * lu(k,1949)
    3506   114070872 :          lu(k,1997) = lu(k,1997) - lu(k,583) * lu(k,1995)
    3507   114070872 :          lu(k,1998) = - lu(k,584) * lu(k,1995)
    3508   114070872 :          lu(k,1999) = lu(k,1999) - lu(k,585) * lu(k,1995)
    3509   114070872 :          lu(k,2003) = lu(k,2003) - lu(k,586) * lu(k,1995)
    3510   114070872 :          lu(k,2005) = lu(k,2005) - lu(k,587) * lu(k,1995)
    3511   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,588) * lu(k,1995)
    3512   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,589) * lu(k,1995)
    3513   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,590) * lu(k,1995)
    3514   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,591) * lu(k,1995)
    3515   114070872 :          lu(k,2027) = - lu(k,592) * lu(k,1995)
    3516   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,593) * lu(k,1995)
    3517   114070872 :          lu(k,2058) = lu(k,2058) - lu(k,583) * lu(k,2053)
    3518   114070872 :          lu(k,2059) = lu(k,2059) - lu(k,584) * lu(k,2053)
    3519   114070872 :          lu(k,2060) = lu(k,2060) - lu(k,585) * lu(k,2053)
    3520   114070872 :          lu(k,2063) = lu(k,2063) - lu(k,586) * lu(k,2053)
    3521   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,587) * lu(k,2053)
    3522   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,588) * lu(k,2053)
    3523   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,589) * lu(k,2053)
    3524   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,590) * lu(k,2053)
    3525   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,591) * lu(k,2053)
    3526   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,592) * lu(k,2053)
    3527   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,593) * lu(k,2053)
    3528             :       end do
    3529     3585597 :       end subroutine lu_fac14
    3530     3585597 :       subroutine lu_fac15( avec_len, lu )
    3531             :       use chem_mods, only : nzcnt
    3532             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3533             :       implicit none
    3534             : !-----------------------------------------------------------------------
    3535             : ! ... dummy args
    3536             : !-----------------------------------------------------------------------
    3537             :       integer, intent(in) :: avec_len
    3538             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3539             : !-----------------------------------------------------------------------
    3540             : ! ... local variables
    3541             : !-----------------------------------------------------------------------
    3542             :       integer :: k
    3543   117656469 :       do k = 1,avec_len
    3544   114070872 :          lu(k,594) = 1._r8 / lu(k,594)
    3545   114070872 :          lu(k,595) = lu(k,595) * lu(k,594)
    3546   114070872 :          lu(k,596) = lu(k,596) * lu(k,594)
    3547   114070872 :          lu(k,597) = lu(k,597) * lu(k,594)
    3548   114070872 :          lu(k,598) = lu(k,598) * lu(k,594)
    3549   114070872 :          lu(k,599) = lu(k,599) * lu(k,594)
    3550   114070872 :          lu(k,600) = lu(k,600) * lu(k,594)
    3551   114070872 :          lu(k,601) = lu(k,601) * lu(k,594)
    3552   114070872 :          lu(k,602) = lu(k,602) * lu(k,594)
    3553   114070872 :          lu(k,603) = lu(k,603) * lu(k,594)
    3554   114070872 :          lu(k,604) = lu(k,604) * lu(k,594)
    3555   114070872 :          lu(k,605) = lu(k,605) * lu(k,594)
    3556   114070872 :          lu(k,606) = lu(k,606) * lu(k,594)
    3557   114070872 :          lu(k,607) = lu(k,607) * lu(k,594)
    3558   114070872 :          lu(k,608) = lu(k,608) * lu(k,594)
    3559   114070872 :          lu(k,834) = - lu(k,595) * lu(k,831)
    3560   114070872 :          lu(k,836) = lu(k,836) - lu(k,596) * lu(k,831)
    3561   114070872 :          lu(k,838) = lu(k,838) - lu(k,597) * lu(k,831)
    3562   114070872 :          lu(k,839) = - lu(k,598) * lu(k,831)
    3563   114070872 :          lu(k,844) = lu(k,844) - lu(k,599) * lu(k,831)
    3564   114070872 :          lu(k,846) = lu(k,846) - lu(k,600) * lu(k,831)
    3565   114070872 :          lu(k,847) = lu(k,847) - lu(k,601) * lu(k,831)
    3566   114070872 :          lu(k,850) = lu(k,850) - lu(k,602) * lu(k,831)
    3567   114070872 :          lu(k,854) = lu(k,854) - lu(k,603) * lu(k,831)
    3568   114070872 :          lu(k,855) = lu(k,855) - lu(k,604) * lu(k,831)
    3569   114070872 :          lu(k,856) = - lu(k,605) * lu(k,831)
    3570   114070872 :          lu(k,857) = - lu(k,606) * lu(k,831)
    3571   114070872 :          lu(k,858) = lu(k,858) - lu(k,607) * lu(k,831)
    3572   114070872 :          lu(k,859) = lu(k,859) - lu(k,608) * lu(k,831)
    3573   114070872 :          lu(k,1011) = lu(k,1011) - lu(k,595) * lu(k,1007)
    3574   114070872 :          lu(k,1012) = lu(k,1012) - lu(k,596) * lu(k,1007)
    3575   114070872 :          lu(k,1014) = lu(k,1014) - lu(k,597) * lu(k,1007)
    3576   114070872 :          lu(k,1015) = - lu(k,598) * lu(k,1007)
    3577   114070872 :          lu(k,1020) = lu(k,1020) - lu(k,599) * lu(k,1007)
    3578   114070872 :          lu(k,1022) = lu(k,1022) - lu(k,600) * lu(k,1007)
    3579   114070872 :          lu(k,1023) = lu(k,1023) - lu(k,601) * lu(k,1007)
    3580   114070872 :          lu(k,1026) = lu(k,1026) - lu(k,602) * lu(k,1007)
    3581   114070872 :          lu(k,1031) = lu(k,1031) - lu(k,603) * lu(k,1007)
    3582   114070872 :          lu(k,1032) = lu(k,1032) - lu(k,604) * lu(k,1007)
    3583   114070872 :          lu(k,1033) = lu(k,1033) - lu(k,605) * lu(k,1007)
    3584   114070872 :          lu(k,1034) = lu(k,1034) - lu(k,606) * lu(k,1007)
    3585   114070872 :          lu(k,1035) = - lu(k,607) * lu(k,1007)
    3586   114070872 :          lu(k,1036) = lu(k,1036) - lu(k,608) * lu(k,1007)
    3587   114070872 :          lu(k,1274) = - lu(k,595) * lu(k,1271)
    3588   114070872 :          lu(k,1276) = - lu(k,596) * lu(k,1271)
    3589   114070872 :          lu(k,1278) = lu(k,1278) - lu(k,597) * lu(k,1271)
    3590   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,598) * lu(k,1271)
    3591   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,599) * lu(k,1271)
    3592   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,600) * lu(k,1271)
    3593   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,601) * lu(k,1271)
    3594   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,602) * lu(k,1271)
    3595   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,603) * lu(k,1271)
    3596   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,604) * lu(k,1271)
    3597   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,605) * lu(k,1271)
    3598   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,606) * lu(k,1271)
    3599   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,607) * lu(k,1271)
    3600   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,608) * lu(k,1271)
    3601   114070872 :          lu(k,1376) = lu(k,1376) - lu(k,595) * lu(k,1369)
    3602   114070872 :          lu(k,1378) = lu(k,1378) - lu(k,596) * lu(k,1369)
    3603   114070872 :          lu(k,1380) = lu(k,1380) - lu(k,597) * lu(k,1369)
    3604   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,598) * lu(k,1369)
    3605   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,599) * lu(k,1369)
    3606   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,600) * lu(k,1369)
    3607   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,601) * lu(k,1369)
    3608   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,602) * lu(k,1369)
    3609   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,603) * lu(k,1369)
    3610   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,604) * lu(k,1369)
    3611   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,605) * lu(k,1369)
    3612   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,606) * lu(k,1369)
    3613   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,607) * lu(k,1369)
    3614   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,608) * lu(k,1369)
    3615   114070872 :          lu(k,1425) = - lu(k,595) * lu(k,1420)
    3616   114070872 :          lu(k,1427) = - lu(k,596) * lu(k,1420)
    3617   114070872 :          lu(k,1429) = lu(k,1429) - lu(k,597) * lu(k,1420)
    3618   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,598) * lu(k,1420)
    3619   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,599) * lu(k,1420)
    3620   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,600) * lu(k,1420)
    3621   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,601) * lu(k,1420)
    3622   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,602) * lu(k,1420)
    3623   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,603) * lu(k,1420)
    3624   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,604) * lu(k,1420)
    3625   114070872 :          lu(k,1448) = - lu(k,605) * lu(k,1420)
    3626   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,606) * lu(k,1420)
    3627   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,607) * lu(k,1420)
    3628   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,608) * lu(k,1420)
    3629   114070872 :          lu(k,1550) = lu(k,1550) - lu(k,595) * lu(k,1547)
    3630   114070872 :          lu(k,1552) = lu(k,1552) - lu(k,596) * lu(k,1547)
    3631   114070872 :          lu(k,1554) = - lu(k,597) * lu(k,1547)
    3632   114070872 :          lu(k,1555) = lu(k,1555) - lu(k,598) * lu(k,1547)
    3633   114070872 :          lu(k,1560) = lu(k,1560) - lu(k,599) * lu(k,1547)
    3634   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,600) * lu(k,1547)
    3635   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,601) * lu(k,1547)
    3636   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,602) * lu(k,1547)
    3637   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,603) * lu(k,1547)
    3638   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,604) * lu(k,1547)
    3639   114070872 :          lu(k,1573) = - lu(k,605) * lu(k,1547)
    3640   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,606) * lu(k,1547)
    3641   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,607) * lu(k,1547)
    3642   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,608) * lu(k,1547)
    3643   114070872 :          lu(k,1757) = - lu(k,595) * lu(k,1751)
    3644   114070872 :          lu(k,1759) = lu(k,1759) - lu(k,596) * lu(k,1751)
    3645   114070872 :          lu(k,1761) = lu(k,1761) - lu(k,597) * lu(k,1751)
    3646   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,598) * lu(k,1751)
    3647   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,599) * lu(k,1751)
    3648   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,600) * lu(k,1751)
    3649   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,601) * lu(k,1751)
    3650   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,602) * lu(k,1751)
    3651   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,603) * lu(k,1751)
    3652   114070872 :          lu(k,1779) = - lu(k,604) * lu(k,1751)
    3653   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,605) * lu(k,1751)
    3654   114070872 :          lu(k,1781) = - lu(k,606) * lu(k,1751)
    3655   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,607) * lu(k,1751)
    3656   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,608) * lu(k,1751)
    3657   114070872 :          lu(k,1805) = lu(k,1805) - lu(k,595) * lu(k,1796)
    3658   114070872 :          lu(k,1807) = lu(k,1807) - lu(k,596) * lu(k,1796)
    3659   114070872 :          lu(k,1809) = lu(k,1809) - lu(k,597) * lu(k,1796)
    3660   114070872 :          lu(k,1810) = lu(k,1810) - lu(k,598) * lu(k,1796)
    3661   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,599) * lu(k,1796)
    3662   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,600) * lu(k,1796)
    3663   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,601) * lu(k,1796)
    3664   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,602) * lu(k,1796)
    3665   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,603) * lu(k,1796)
    3666   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,604) * lu(k,1796)
    3667   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,605) * lu(k,1796)
    3668   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,606) * lu(k,1796)
    3669   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,607) * lu(k,1796)
    3670   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,608) * lu(k,1796)
    3671   114070872 :          lu(k,1838) = - lu(k,595) * lu(k,1836)
    3672   114070872 :          lu(k,1840) = lu(k,1840) - lu(k,596) * lu(k,1836)
    3673   114070872 :          lu(k,1842) = - lu(k,597) * lu(k,1836)
    3674   114070872 :          lu(k,1843) = lu(k,1843) - lu(k,598) * lu(k,1836)
    3675   114070872 :          lu(k,1848) = lu(k,1848) - lu(k,599) * lu(k,1836)
    3676   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,600) * lu(k,1836)
    3677   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,601) * lu(k,1836)
    3678   114070872 :          lu(k,1854) = - lu(k,602) * lu(k,1836)
    3679   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,603) * lu(k,1836)
    3680   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,604) * lu(k,1836)
    3681   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,605) * lu(k,1836)
    3682   114070872 :          lu(k,1862) = - lu(k,606) * lu(k,1836)
    3683   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,607) * lu(k,1836)
    3684   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,608) * lu(k,1836)
    3685   114070872 :          lu(k,1874) = lu(k,1874) - lu(k,595) * lu(k,1869)
    3686   114070872 :          lu(k,1876) = lu(k,1876) - lu(k,596) * lu(k,1869)
    3687   114070872 :          lu(k,1878) = lu(k,1878) - lu(k,597) * lu(k,1869)
    3688   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,598) * lu(k,1869)
    3689   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,599) * lu(k,1869)
    3690   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,600) * lu(k,1869)
    3691   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,601) * lu(k,1869)
    3692   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,602) * lu(k,1869)
    3693   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,603) * lu(k,1869)
    3694   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,604) * lu(k,1869)
    3695   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,605) * lu(k,1869)
    3696   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,606) * lu(k,1869)
    3697   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,607) * lu(k,1869)
    3698   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,608) * lu(k,1869)
    3699   114070872 :          lu(k,1915) = lu(k,1915) - lu(k,595) * lu(k,1910)
    3700   114070872 :          lu(k,1917) = lu(k,1917) - lu(k,596) * lu(k,1910)
    3701   114070872 :          lu(k,1919) = - lu(k,597) * lu(k,1910)
    3702   114070872 :          lu(k,1920) = lu(k,1920) - lu(k,598) * lu(k,1910)
    3703   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,599) * lu(k,1910)
    3704   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,600) * lu(k,1910)
    3705   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,601) * lu(k,1910)
    3706   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,602) * lu(k,1910)
    3707   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,603) * lu(k,1910)
    3708   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,604) * lu(k,1910)
    3709   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,605) * lu(k,1910)
    3710   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,606) * lu(k,1910)
    3711   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,607) * lu(k,1910)
    3712   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,608) * lu(k,1910)
    3713   114070872 :          lu(k,1957) = lu(k,1957) - lu(k,595) * lu(k,1950)
    3714   114070872 :          lu(k,1959) = lu(k,1959) - lu(k,596) * lu(k,1950)
    3715   114070872 :          lu(k,1961) = lu(k,1961) - lu(k,597) * lu(k,1950)
    3716   114070872 :          lu(k,1962) = lu(k,1962) - lu(k,598) * lu(k,1950)
    3717   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,599) * lu(k,1950)
    3718   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,600) * lu(k,1950)
    3719   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,601) * lu(k,1950)
    3720   114070872 :          lu(k,1973) = - lu(k,602) * lu(k,1950)
    3721   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,603) * lu(k,1950)
    3722   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,604) * lu(k,1950)
    3723   114070872 :          lu(k,1980) = - lu(k,605) * lu(k,1950)
    3724   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,606) * lu(k,1950)
    3725   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,607) * lu(k,1950)
    3726   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,608) * lu(k,1950)
    3727   114070872 :          lu(k,609) = 1._r8 / lu(k,609)
    3728   114070872 :          lu(k,610) = lu(k,610) * lu(k,609)
    3729   114070872 :          lu(k,611) = lu(k,611) * lu(k,609)
    3730   114070872 :          lu(k,612) = lu(k,612) * lu(k,609)
    3731   114070872 :          lu(k,613) = lu(k,613) * lu(k,609)
    3732   114070872 :          lu(k,614) = lu(k,614) * lu(k,609)
    3733   114070872 :          lu(k,615) = lu(k,615) * lu(k,609)
    3734   114070872 :          lu(k,616) = lu(k,616) * lu(k,609)
    3735   114070872 :          lu(k,617) = lu(k,617) * lu(k,609)
    3736   114070872 :          lu(k,618) = lu(k,618) * lu(k,609)
    3737   114070872 :          lu(k,619) = lu(k,619) * lu(k,609)
    3738   114070872 :          lu(k,620) = lu(k,620) * lu(k,609)
    3739   114070872 :          lu(k,621) = lu(k,621) * lu(k,609)
    3740   114070872 :          lu(k,622) = lu(k,622) * lu(k,609)
    3741   114070872 :          lu(k,627) = - lu(k,610) * lu(k,624)
    3742   114070872 :          lu(k,628) = lu(k,628) - lu(k,611) * lu(k,624)
    3743   114070872 :          lu(k,629) = lu(k,629) - lu(k,612) * lu(k,624)
    3744   114070872 :          lu(k,630) = lu(k,630) - lu(k,613) * lu(k,624)
    3745   114070872 :          lu(k,631) = lu(k,631) - lu(k,614) * lu(k,624)
    3746   114070872 :          lu(k,633) = lu(k,633) - lu(k,615) * lu(k,624)
    3747   114070872 :          lu(k,634) = lu(k,634) - lu(k,616) * lu(k,624)
    3748   114070872 :          lu(k,635) = lu(k,635) - lu(k,617) * lu(k,624)
    3749   114070872 :          lu(k,636) = lu(k,636) - lu(k,618) * lu(k,624)
    3750   114070872 :          lu(k,637) = lu(k,637) - lu(k,619) * lu(k,624)
    3751   114070872 :          lu(k,638) = lu(k,638) - lu(k,620) * lu(k,624)
    3752   114070872 :          lu(k,641) = lu(k,641) - lu(k,621) * lu(k,624)
    3753   114070872 :          lu(k,642) = lu(k,642) - lu(k,622) * lu(k,624)
    3754   114070872 :          lu(k,692) = lu(k,692) - lu(k,610) * lu(k,689)
    3755   114070872 :          lu(k,693) = lu(k,693) - lu(k,611) * lu(k,689)
    3756   114070872 :          lu(k,694) = lu(k,694) - lu(k,612) * lu(k,689)
    3757   114070872 :          lu(k,695) = lu(k,695) - lu(k,613) * lu(k,689)
    3758   114070872 :          lu(k,696) = lu(k,696) - lu(k,614) * lu(k,689)
    3759   114070872 :          lu(k,698) = lu(k,698) - lu(k,615) * lu(k,689)
    3760   114070872 :          lu(k,699) = lu(k,699) - lu(k,616) * lu(k,689)
    3761   114070872 :          lu(k,700) = lu(k,700) - lu(k,617) * lu(k,689)
    3762   114070872 :          lu(k,701) = lu(k,701) - lu(k,618) * lu(k,689)
    3763   114070872 :          lu(k,702) = lu(k,702) - lu(k,619) * lu(k,689)
    3764   114070872 :          lu(k,703) = lu(k,703) - lu(k,620) * lu(k,689)
    3765   114070872 :          lu(k,706) = lu(k,706) - lu(k,621) * lu(k,689)
    3766   114070872 :          lu(k,707) = lu(k,707) - lu(k,622) * lu(k,689)
    3767   114070872 :          lu(k,866) = lu(k,866) - lu(k,610) * lu(k,863)
    3768   114070872 :          lu(k,869) = lu(k,869) - lu(k,611) * lu(k,863)
    3769   114070872 :          lu(k,870) = lu(k,870) - lu(k,612) * lu(k,863)
    3770   114070872 :          lu(k,871) = lu(k,871) - lu(k,613) * lu(k,863)
    3771   114070872 :          lu(k,872) = lu(k,872) - lu(k,614) * lu(k,863)
    3772   114070872 :          lu(k,874) = lu(k,874) - lu(k,615) * lu(k,863)
    3773   114070872 :          lu(k,876) = lu(k,876) - lu(k,616) * lu(k,863)
    3774   114070872 :          lu(k,877) = lu(k,877) - lu(k,617) * lu(k,863)
    3775   114070872 :          lu(k,878) = lu(k,878) - lu(k,618) * lu(k,863)
    3776   114070872 :          lu(k,879) = lu(k,879) - lu(k,619) * lu(k,863)
    3777   114070872 :          lu(k,880) = lu(k,880) - lu(k,620) * lu(k,863)
    3778   114070872 :          lu(k,884) = lu(k,884) - lu(k,621) * lu(k,863)
    3779   114070872 :          lu(k,886) = lu(k,886) - lu(k,622) * lu(k,863)
    3780   114070872 :          lu(k,1146) = lu(k,1146) - lu(k,610) * lu(k,1139)
    3781   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,611) * lu(k,1139)
    3782   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,612) * lu(k,1139)
    3783   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,613) * lu(k,1139)
    3784   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,614) * lu(k,1139)
    3785   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,615) * lu(k,1139)
    3786   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,616) * lu(k,1139)
    3787   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,617) * lu(k,1139)
    3788   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,618) * lu(k,1139)
    3789   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,619) * lu(k,1139)
    3790   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,620) * lu(k,1139)
    3791   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,621) * lu(k,1139)
    3792   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,622) * lu(k,1139)
    3793   114070872 :          lu(k,1189) = lu(k,1189) - lu(k,610) * lu(k,1183)
    3794   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,611) * lu(k,1183)
    3795   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,612) * lu(k,1183)
    3796   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,613) * lu(k,1183)
    3797   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,614) * lu(k,1183)
    3798   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,615) * lu(k,1183)
    3799   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,616) * lu(k,1183)
    3800   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,617) * lu(k,1183)
    3801   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,618) * lu(k,1183)
    3802   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,619) * lu(k,1183)
    3803   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,620) * lu(k,1183)
    3804   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,621) * lu(k,1183)
    3805   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,622) * lu(k,1183)
    3806   114070872 :          lu(k,1232) = lu(k,1232) - lu(k,610) * lu(k,1226)
    3807   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,611) * lu(k,1226)
    3808   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,612) * lu(k,1226)
    3809   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,613) * lu(k,1226)
    3810   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,614) * lu(k,1226)
    3811   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,615) * lu(k,1226)
    3812   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,616) * lu(k,1226)
    3813   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,617) * lu(k,1226)
    3814   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,618) * lu(k,1226)
    3815   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,619) * lu(k,1226)
    3816   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,620) * lu(k,1226)
    3817   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,621) * lu(k,1226)
    3818   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,622) * lu(k,1226)
    3819   114070872 :          lu(k,1316) = lu(k,1316) - lu(k,610) * lu(k,1310)
    3820   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,611) * lu(k,1310)
    3821   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,612) * lu(k,1310)
    3822   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,613) * lu(k,1310)
    3823   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,614) * lu(k,1310)
    3824   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,615) * lu(k,1310)
    3825   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,616) * lu(k,1310)
    3826   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,617) * lu(k,1310)
    3827   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,618) * lu(k,1310)
    3828   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,619) * lu(k,1310)
    3829   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,620) * lu(k,1310)
    3830   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,621) * lu(k,1310)
    3831   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,622) * lu(k,1310)
    3832   114070872 :          lu(k,1514) = lu(k,1514) - lu(k,610) * lu(k,1508)
    3833   114070872 :          lu(k,1521) = lu(k,1521) - lu(k,611) * lu(k,1508)
    3834   114070872 :          lu(k,1522) = lu(k,1522) - lu(k,612) * lu(k,1508)
    3835   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,613) * lu(k,1508)
    3836   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,614) * lu(k,1508)
    3837   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,615) * lu(k,1508)
    3838   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,616) * lu(k,1508)
    3839   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,617) * lu(k,1508)
    3840   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,618) * lu(k,1508)
    3841   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,619) * lu(k,1508)
    3842   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,620) * lu(k,1508)
    3843   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,621) * lu(k,1508)
    3844   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,622) * lu(k,1508)
    3845   114070872 :          lu(k,1595) = lu(k,1595) - lu(k,610) * lu(k,1588)
    3846   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,611) * lu(k,1588)
    3847   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,612) * lu(k,1588)
    3848   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,613) * lu(k,1588)
    3849   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,614) * lu(k,1588)
    3850   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,615) * lu(k,1588)
    3851   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,616) * lu(k,1588)
    3852   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,617) * lu(k,1588)
    3853   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,618) * lu(k,1588)
    3854   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,619) * lu(k,1588)
    3855   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,620) * lu(k,1588)
    3856   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,621) * lu(k,1588)
    3857   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,622) * lu(k,1588)
    3858   114070872 :          lu(k,1638) = lu(k,1638) - lu(k,610) * lu(k,1632)
    3859   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,611) * lu(k,1632)
    3860   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,612) * lu(k,1632)
    3861   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,613) * lu(k,1632)
    3862   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,614) * lu(k,1632)
    3863   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,615) * lu(k,1632)
    3864   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,616) * lu(k,1632)
    3865   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,617) * lu(k,1632)
    3866   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,618) * lu(k,1632)
    3867   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,619) * lu(k,1632)
    3868   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,620) * lu(k,1632)
    3869   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,621) * lu(k,1632)
    3870   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,622) * lu(k,1632)
    3871   114070872 :          lu(k,1681) = lu(k,1681) - lu(k,610) * lu(k,1675)
    3872   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,611) * lu(k,1675)
    3873   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,612) * lu(k,1675)
    3874   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,613) * lu(k,1675)
    3875   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,614) * lu(k,1675)
    3876   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,615) * lu(k,1675)
    3877   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,616) * lu(k,1675)
    3878   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,617) * lu(k,1675)
    3879   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,618) * lu(k,1675)
    3880   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,619) * lu(k,1675)
    3881   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,620) * lu(k,1675)
    3882   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,621) * lu(k,1675)
    3883   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,622) * lu(k,1675)
    3884   114070872 :          lu(k,1722) = - lu(k,610) * lu(k,1716)
    3885   114070872 :          lu(k,1728) = - lu(k,611) * lu(k,1716)
    3886   114070872 :          lu(k,1729) = - lu(k,612) * lu(k,1716)
    3887   114070872 :          lu(k,1730) = - lu(k,613) * lu(k,1716)
    3888   114070872 :          lu(k,1732) = - lu(k,614) * lu(k,1716)
    3889   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,615) * lu(k,1716)
    3890   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,616) * lu(k,1716)
    3891   114070872 :          lu(k,1738) = - lu(k,617) * lu(k,1716)
    3892   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,618) * lu(k,1716)
    3893   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,619) * lu(k,1716)
    3894   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,620) * lu(k,1716)
    3895   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,621) * lu(k,1716)
    3896   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,622) * lu(k,1716)
    3897   114070872 :          lu(k,1805) = lu(k,1805) - lu(k,610) * lu(k,1797)
    3898   114070872 :          lu(k,1812) = lu(k,1812) - lu(k,611) * lu(k,1797)
    3899   114070872 :          lu(k,1813) = - lu(k,612) * lu(k,1797)
    3900   114070872 :          lu(k,1814) = - lu(k,613) * lu(k,1797)
    3901   114070872 :          lu(k,1816) = - lu(k,614) * lu(k,1797)
    3902   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,615) * lu(k,1797)
    3903   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,616) * lu(k,1797)
    3904   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,617) * lu(k,1797)
    3905   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,618) * lu(k,1797)
    3906   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,619) * lu(k,1797)
    3907   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,620) * lu(k,1797)
    3908   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,621) * lu(k,1797)
    3909   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,622) * lu(k,1797)
    3910   114070872 :          lu(k,2002) = lu(k,2002) - lu(k,610) * lu(k,1996)
    3911   114070872 :          lu(k,2009) = lu(k,2009) - lu(k,611) * lu(k,1996)
    3912   114070872 :          lu(k,2010) = lu(k,2010) - lu(k,612) * lu(k,1996)
    3913   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,613) * lu(k,1996)
    3914   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,614) * lu(k,1996)
    3915   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,615) * lu(k,1996)
    3916   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,616) * lu(k,1996)
    3917   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,617) * lu(k,1996)
    3918   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,618) * lu(k,1996)
    3919   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,619) * lu(k,1996)
    3920   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,620) * lu(k,1996)
    3921   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,621) * lu(k,1996)
    3922   117656469 :          lu(k,2030) = lu(k,2030) - lu(k,622) * lu(k,1996)
    3923             :       end do
    3924     3585597 :       end subroutine lu_fac15
    3925     3585597 :       subroutine lu_fac16( avec_len, lu )
    3926             :       use chem_mods, only : nzcnt
    3927             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3928             :       implicit none
    3929             : !-----------------------------------------------------------------------
    3930             : ! ... dummy args
    3931             : !-----------------------------------------------------------------------
    3932             :       integer, intent(in) :: avec_len
    3933             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3934             : !-----------------------------------------------------------------------
    3935             : ! ... local variables
    3936             : !-----------------------------------------------------------------------
    3937             :       integer :: k
    3938   117656469 :       do k = 1,avec_len
    3939   114070872 :          lu(k,625) = 1._r8 / lu(k,625)
    3940   114070872 :          lu(k,626) = lu(k,626) * lu(k,625)
    3941   114070872 :          lu(k,627) = lu(k,627) * lu(k,625)
    3942   114070872 :          lu(k,628) = lu(k,628) * lu(k,625)
    3943   114070872 :          lu(k,629) = lu(k,629) * lu(k,625)
    3944   114070872 :          lu(k,630) = lu(k,630) * lu(k,625)
    3945   114070872 :          lu(k,631) = lu(k,631) * lu(k,625)
    3946   114070872 :          lu(k,632) = lu(k,632) * lu(k,625)
    3947   114070872 :          lu(k,633) = lu(k,633) * lu(k,625)
    3948   114070872 :          lu(k,634) = lu(k,634) * lu(k,625)
    3949   114070872 :          lu(k,635) = lu(k,635) * lu(k,625)
    3950   114070872 :          lu(k,636) = lu(k,636) * lu(k,625)
    3951   114070872 :          lu(k,637) = lu(k,637) * lu(k,625)
    3952   114070872 :          lu(k,638) = lu(k,638) * lu(k,625)
    3953   114070872 :          lu(k,639) = lu(k,639) * lu(k,625)
    3954   114070872 :          lu(k,640) = lu(k,640) * lu(k,625)
    3955   114070872 :          lu(k,641) = lu(k,641) * lu(k,625)
    3956   114070872 :          lu(k,642) = lu(k,642) * lu(k,625)
    3957   114070872 :          lu(k,691) = lu(k,691) - lu(k,626) * lu(k,690)
    3958   114070872 :          lu(k,692) = lu(k,692) - lu(k,627) * lu(k,690)
    3959   114070872 :          lu(k,693) = lu(k,693) - lu(k,628) * lu(k,690)
    3960   114070872 :          lu(k,694) = lu(k,694) - lu(k,629) * lu(k,690)
    3961   114070872 :          lu(k,695) = lu(k,695) - lu(k,630) * lu(k,690)
    3962   114070872 :          lu(k,696) = lu(k,696) - lu(k,631) * lu(k,690)
    3963   114070872 :          lu(k,697) = lu(k,697) - lu(k,632) * lu(k,690)
    3964   114070872 :          lu(k,698) = lu(k,698) - lu(k,633) * lu(k,690)
    3965   114070872 :          lu(k,699) = lu(k,699) - lu(k,634) * lu(k,690)
    3966   114070872 :          lu(k,700) = lu(k,700) - lu(k,635) * lu(k,690)
    3967   114070872 :          lu(k,701) = lu(k,701) - lu(k,636) * lu(k,690)
    3968   114070872 :          lu(k,702) = lu(k,702) - lu(k,637) * lu(k,690)
    3969   114070872 :          lu(k,703) = lu(k,703) - lu(k,638) * lu(k,690)
    3970   114070872 :          lu(k,704) = lu(k,704) - lu(k,639) * lu(k,690)
    3971   114070872 :          lu(k,705) = lu(k,705) - lu(k,640) * lu(k,690)
    3972   114070872 :          lu(k,706) = lu(k,706) - lu(k,641) * lu(k,690)
    3973   114070872 :          lu(k,707) = lu(k,707) - lu(k,642) * lu(k,690)
    3974   114070872 :          lu(k,1142) = lu(k,1142) - lu(k,626) * lu(k,1140)
    3975   114070872 :          lu(k,1146) = lu(k,1146) - lu(k,627) * lu(k,1140)
    3976   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,628) * lu(k,1140)
    3977   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,629) * lu(k,1140)
    3978   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,630) * lu(k,1140)
    3979   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,631) * lu(k,1140)
    3980   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,632) * lu(k,1140)
    3981   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,633) * lu(k,1140)
    3982   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,634) * lu(k,1140)
    3983   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,635) * lu(k,1140)
    3984   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,636) * lu(k,1140)
    3985   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,637) * lu(k,1140)
    3986   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,638) * lu(k,1140)
    3987   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,639) * lu(k,1140)
    3988   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,640) * lu(k,1140)
    3989   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,641) * lu(k,1140)
    3990   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,642) * lu(k,1140)
    3991   114070872 :          lu(k,1186) = lu(k,1186) - lu(k,626) * lu(k,1184)
    3992   114070872 :          lu(k,1189) = lu(k,1189) - lu(k,627) * lu(k,1184)
    3993   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,628) * lu(k,1184)
    3994   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,629) * lu(k,1184)
    3995   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,630) * lu(k,1184)
    3996   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,631) * lu(k,1184)
    3997   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,632) * lu(k,1184)
    3998   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,633) * lu(k,1184)
    3999   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,634) * lu(k,1184)
    4000   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,635) * lu(k,1184)
    4001   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,636) * lu(k,1184)
    4002   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,637) * lu(k,1184)
    4003   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,638) * lu(k,1184)
    4004   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,639) * lu(k,1184)
    4005   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,640) * lu(k,1184)
    4006   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,641) * lu(k,1184)
    4007   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,642) * lu(k,1184)
    4008   114070872 :          lu(k,1229) = lu(k,1229) - lu(k,626) * lu(k,1227)
    4009   114070872 :          lu(k,1232) = lu(k,1232) - lu(k,627) * lu(k,1227)
    4010   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,628) * lu(k,1227)
    4011   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,629) * lu(k,1227)
    4012   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,630) * lu(k,1227)
    4013   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,631) * lu(k,1227)
    4014   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,632) * lu(k,1227)
    4015   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,633) * lu(k,1227)
    4016   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,634) * lu(k,1227)
    4017   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,635) * lu(k,1227)
    4018   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,636) * lu(k,1227)
    4019   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,637) * lu(k,1227)
    4020   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,638) * lu(k,1227)
    4021   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,639) * lu(k,1227)
    4022   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,640) * lu(k,1227)
    4023   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,641) * lu(k,1227)
    4024   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,642) * lu(k,1227)
    4025   114070872 :          lu(k,1313) = lu(k,1313) - lu(k,626) * lu(k,1311)
    4026   114070872 :          lu(k,1316) = lu(k,1316) - lu(k,627) * lu(k,1311)
    4027   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,628) * lu(k,1311)
    4028   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,629) * lu(k,1311)
    4029   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,630) * lu(k,1311)
    4030   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,631) * lu(k,1311)
    4031   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,632) * lu(k,1311)
    4032   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,633) * lu(k,1311)
    4033   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,634) * lu(k,1311)
    4034   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,635) * lu(k,1311)
    4035   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,636) * lu(k,1311)
    4036   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,637) * lu(k,1311)
    4037   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,638) * lu(k,1311)
    4038   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,639) * lu(k,1311)
    4039   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,640) * lu(k,1311)
    4040   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,641) * lu(k,1311)
    4041   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,642) * lu(k,1311)
    4042   114070872 :          lu(k,1591) = lu(k,1591) - lu(k,626) * lu(k,1589)
    4043   114070872 :          lu(k,1595) = lu(k,1595) - lu(k,627) * lu(k,1589)
    4044   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,628) * lu(k,1589)
    4045   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,629) * lu(k,1589)
    4046   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,630) * lu(k,1589)
    4047   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,631) * lu(k,1589)
    4048   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,632) * lu(k,1589)
    4049   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,633) * lu(k,1589)
    4050   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,634) * lu(k,1589)
    4051   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,635) * lu(k,1589)
    4052   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,636) * lu(k,1589)
    4053   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,637) * lu(k,1589)
    4054   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,638) * lu(k,1589)
    4055   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,639) * lu(k,1589)
    4056   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,640) * lu(k,1589)
    4057   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,641) * lu(k,1589)
    4058   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,642) * lu(k,1589)
    4059   114070872 :          lu(k,1635) = lu(k,1635) - lu(k,626) * lu(k,1633)
    4060   114070872 :          lu(k,1638) = lu(k,1638) - lu(k,627) * lu(k,1633)
    4061   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,628) * lu(k,1633)
    4062   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,629) * lu(k,1633)
    4063   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,630) * lu(k,1633)
    4064   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,631) * lu(k,1633)
    4065   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,632) * lu(k,1633)
    4066   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,633) * lu(k,1633)
    4067   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,634) * lu(k,1633)
    4068   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,635) * lu(k,1633)
    4069   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,636) * lu(k,1633)
    4070   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,637) * lu(k,1633)
    4071   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,638) * lu(k,1633)
    4072   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,639) * lu(k,1633)
    4073   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,640) * lu(k,1633)
    4074   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,641) * lu(k,1633)
    4075   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,642) * lu(k,1633)
    4076   114070872 :          lu(k,1678) = lu(k,1678) - lu(k,626) * lu(k,1676)
    4077   114070872 :          lu(k,1681) = lu(k,1681) - lu(k,627) * lu(k,1676)
    4078   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,628) * lu(k,1676)
    4079   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,629) * lu(k,1676)
    4080   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,630) * lu(k,1676)
    4081   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,631) * lu(k,1676)
    4082   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,632) * lu(k,1676)
    4083   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,633) * lu(k,1676)
    4084   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,634) * lu(k,1676)
    4085   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,635) * lu(k,1676)
    4086   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,636) * lu(k,1676)
    4087   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,637) * lu(k,1676)
    4088   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,638) * lu(k,1676)
    4089   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,639) * lu(k,1676)
    4090   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,640) * lu(k,1676)
    4091   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,641) * lu(k,1676)
    4092   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,642) * lu(k,1676)
    4093   114070872 :          lu(k,1718) = lu(k,1718) - lu(k,626) * lu(k,1717)
    4094   114070872 :          lu(k,1722) = lu(k,1722) - lu(k,627) * lu(k,1717)
    4095   114070872 :          lu(k,1728) = lu(k,1728) - lu(k,628) * lu(k,1717)
    4096   114070872 :          lu(k,1729) = lu(k,1729) - lu(k,629) * lu(k,1717)
    4097   114070872 :          lu(k,1730) = lu(k,1730) - lu(k,630) * lu(k,1717)
    4098   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,631) * lu(k,1717)
    4099   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,632) * lu(k,1717)
    4100   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,633) * lu(k,1717)
    4101   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,634) * lu(k,1717)
    4102   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,635) * lu(k,1717)
    4103   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,636) * lu(k,1717)
    4104   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,637) * lu(k,1717)
    4105   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,638) * lu(k,1717)
    4106   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,639) * lu(k,1717)
    4107   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,640) * lu(k,1717)
    4108   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,641) * lu(k,1717)
    4109   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,642) * lu(k,1717)
    4110   114070872 :          lu(k,1800) = lu(k,1800) - lu(k,626) * lu(k,1798)
    4111   114070872 :          lu(k,1805) = lu(k,1805) - lu(k,627) * lu(k,1798)
    4112   114070872 :          lu(k,1812) = lu(k,1812) - lu(k,628) * lu(k,1798)
    4113   114070872 :          lu(k,1813) = lu(k,1813) - lu(k,629) * lu(k,1798)
    4114   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,630) * lu(k,1798)
    4115   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,631) * lu(k,1798)
    4116   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,632) * lu(k,1798)
    4117   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,633) * lu(k,1798)
    4118   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,634) * lu(k,1798)
    4119   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,635) * lu(k,1798)
    4120   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,636) * lu(k,1798)
    4121   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,637) * lu(k,1798)
    4122   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,638) * lu(k,1798)
    4123   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,639) * lu(k,1798)
    4124   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,640) * lu(k,1798)
    4125   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,641) * lu(k,1798)
    4126   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,642) * lu(k,1798)
    4127   114070872 :          lu(k,2057) = lu(k,2057) - lu(k,626) * lu(k,2054)
    4128   114070872 :          lu(k,2062) = lu(k,2062) - lu(k,627) * lu(k,2054)
    4129   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,628) * lu(k,2054)
    4130   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,629) * lu(k,2054)
    4131   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,630) * lu(k,2054)
    4132   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,631) * lu(k,2054)
    4133   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,632) * lu(k,2054)
    4134   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,633) * lu(k,2054)
    4135   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,634) * lu(k,2054)
    4136   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,635) * lu(k,2054)
    4137   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,636) * lu(k,2054)
    4138   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,637) * lu(k,2054)
    4139   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,638) * lu(k,2054)
    4140   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,639) * lu(k,2054)
    4141   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,640) * lu(k,2054)
    4142   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,641) * lu(k,2054)
    4143   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,642) * lu(k,2054)
    4144   114070872 :          lu(k,647) = 1._r8 / lu(k,647)
    4145   114070872 :          lu(k,648) = lu(k,648) * lu(k,647)
    4146   114070872 :          lu(k,649) = lu(k,649) * lu(k,647)
    4147   114070872 :          lu(k,650) = lu(k,650) * lu(k,647)
    4148   114070872 :          lu(k,651) = lu(k,651) * lu(k,647)
    4149   114070872 :          lu(k,652) = lu(k,652) * lu(k,647)
    4150   114070872 :          lu(k,653) = lu(k,653) * lu(k,647)
    4151   114070872 :          lu(k,654) = lu(k,654) * lu(k,647)
    4152   114070872 :          lu(k,655) = lu(k,655) * lu(k,647)
    4153   114070872 :          lu(k,656) = lu(k,656) * lu(k,647)
    4154   114070872 :          lu(k,657) = lu(k,657) * lu(k,647)
    4155   114070872 :          lu(k,658) = lu(k,658) * lu(k,647)
    4156   114070872 :          lu(k,659) = lu(k,659) * lu(k,647)
    4157   114070872 :          lu(k,660) = lu(k,660) * lu(k,647)
    4158   114070872 :          lu(k,661) = lu(k,661) * lu(k,647)
    4159   114070872 :          lu(k,662) = lu(k,662) * lu(k,647)
    4160   114070872 :          lu(k,663) = lu(k,663) * lu(k,647)
    4161   114070872 :          lu(k,664) = lu(k,664) * lu(k,647)
    4162   114070872 :          lu(k,665) = lu(k,665) * lu(k,647)
    4163   114070872 :          lu(k,666) = lu(k,666) * lu(k,647)
    4164   114070872 :          lu(k,738) = lu(k,738) - lu(k,648) * lu(k,736)
    4165   114070872 :          lu(k,739) = lu(k,739) - lu(k,649) * lu(k,736)
    4166   114070872 :          lu(k,740) = lu(k,740) - lu(k,650) * lu(k,736)
    4167   114070872 :          lu(k,741) = lu(k,741) - lu(k,651) * lu(k,736)
    4168   114070872 :          lu(k,742) = - lu(k,652) * lu(k,736)
    4169   114070872 :          lu(k,743) = - lu(k,653) * lu(k,736)
    4170   114070872 :          lu(k,744) = lu(k,744) - lu(k,654) * lu(k,736)
    4171   114070872 :          lu(k,745) = lu(k,745) - lu(k,655) * lu(k,736)
    4172   114070872 :          lu(k,746) = lu(k,746) - lu(k,656) * lu(k,736)
    4173   114070872 :          lu(k,747) = lu(k,747) - lu(k,657) * lu(k,736)
    4174   114070872 :          lu(k,748) = lu(k,748) - lu(k,658) * lu(k,736)
    4175   114070872 :          lu(k,749) = lu(k,749) - lu(k,659) * lu(k,736)
    4176   114070872 :          lu(k,750) = lu(k,750) - lu(k,660) * lu(k,736)
    4177   114070872 :          lu(k,751) = - lu(k,661) * lu(k,736)
    4178   114070872 :          lu(k,752) = - lu(k,662) * lu(k,736)
    4179   114070872 :          lu(k,753) = - lu(k,663) * lu(k,736)
    4180   114070872 :          lu(k,755) = - lu(k,664) * lu(k,736)
    4181   114070872 :          lu(k,756) = lu(k,756) - lu(k,665) * lu(k,736)
    4182   114070872 :          lu(k,757) = lu(k,757) - lu(k,666) * lu(k,736)
    4183   114070872 :          lu(k,786) = lu(k,786) - lu(k,648) * lu(k,784)
    4184   114070872 :          lu(k,787) = lu(k,787) - lu(k,649) * lu(k,784)
    4185   114070872 :          lu(k,788) = lu(k,788) - lu(k,650) * lu(k,784)
    4186   114070872 :          lu(k,789) = lu(k,789) - lu(k,651) * lu(k,784)
    4187   114070872 :          lu(k,790) = lu(k,790) - lu(k,652) * lu(k,784)
    4188   114070872 :          lu(k,791) = lu(k,791) - lu(k,653) * lu(k,784)
    4189   114070872 :          lu(k,793) = lu(k,793) - lu(k,654) * lu(k,784)
    4190   114070872 :          lu(k,794) = lu(k,794) - lu(k,655) * lu(k,784)
    4191   114070872 :          lu(k,795) = lu(k,795) - lu(k,656) * lu(k,784)
    4192   114070872 :          lu(k,796) = lu(k,796) - lu(k,657) * lu(k,784)
    4193   114070872 :          lu(k,797) = lu(k,797) - lu(k,658) * lu(k,784)
    4194   114070872 :          lu(k,800) = lu(k,800) - lu(k,659) * lu(k,784)
    4195   114070872 :          lu(k,801) = lu(k,801) - lu(k,660) * lu(k,784)
    4196   114070872 :          lu(k,802) = lu(k,802) - lu(k,661) * lu(k,784)
    4197   114070872 :          lu(k,803) = - lu(k,662) * lu(k,784)
    4198   114070872 :          lu(k,804) = lu(k,804) - lu(k,663) * lu(k,784)
    4199   114070872 :          lu(k,806) = lu(k,806) - lu(k,664) * lu(k,784)
    4200   114070872 :          lu(k,807) = lu(k,807) - lu(k,665) * lu(k,784)
    4201   114070872 :          lu(k,808) = lu(k,808) - lu(k,666) * lu(k,784)
    4202   114070872 :          lu(k,898) = lu(k,898) - lu(k,648) * lu(k,896)
    4203   114070872 :          lu(k,899) = lu(k,899) - lu(k,649) * lu(k,896)
    4204   114070872 :          lu(k,900) = lu(k,900) - lu(k,650) * lu(k,896)
    4205   114070872 :          lu(k,901) = lu(k,901) - lu(k,651) * lu(k,896)
    4206   114070872 :          lu(k,902) = lu(k,902) - lu(k,652) * lu(k,896)
    4207   114070872 :          lu(k,903) = lu(k,903) - lu(k,653) * lu(k,896)
    4208   114070872 :          lu(k,905) = lu(k,905) - lu(k,654) * lu(k,896)
    4209   114070872 :          lu(k,907) = lu(k,907) - lu(k,655) * lu(k,896)
    4210   114070872 :          lu(k,908) = lu(k,908) - lu(k,656) * lu(k,896)
    4211   114070872 :          lu(k,909) = lu(k,909) - lu(k,657) * lu(k,896)
    4212   114070872 :          lu(k,910) = - lu(k,658) * lu(k,896)
    4213   114070872 :          lu(k,913) = lu(k,913) - lu(k,659) * lu(k,896)
    4214   114070872 :          lu(k,914) = lu(k,914) - lu(k,660) * lu(k,896)
    4215   114070872 :          lu(k,915) = lu(k,915) - lu(k,661) * lu(k,896)
    4216   114070872 :          lu(k,916) = - lu(k,662) * lu(k,896)
    4217   114070872 :          lu(k,917) = - lu(k,663) * lu(k,896)
    4218   114070872 :          lu(k,919) = lu(k,919) - lu(k,664) * lu(k,896)
    4219   114070872 :          lu(k,920) = lu(k,920) - lu(k,665) * lu(k,896)
    4220   114070872 :          lu(k,921) = lu(k,921) - lu(k,666) * lu(k,896)
    4221   114070872 :          lu(k,981) = lu(k,981) - lu(k,648) * lu(k,979)
    4222   114070872 :          lu(k,982) = lu(k,982) - lu(k,649) * lu(k,979)
    4223   114070872 :          lu(k,983) = lu(k,983) - lu(k,650) * lu(k,979)
    4224   114070872 :          lu(k,984) = lu(k,984) - lu(k,651) * lu(k,979)
    4225   114070872 :          lu(k,985) = lu(k,985) - lu(k,652) * lu(k,979)
    4226   114070872 :          lu(k,986) = lu(k,986) - lu(k,653) * lu(k,979)
    4227   114070872 :          lu(k,989) = lu(k,989) - lu(k,654) * lu(k,979)
    4228   114070872 :          lu(k,991) = lu(k,991) - lu(k,655) * lu(k,979)
    4229   114070872 :          lu(k,992) = lu(k,992) - lu(k,656) * lu(k,979)
    4230   114070872 :          lu(k,993) = lu(k,993) - lu(k,657) * lu(k,979)
    4231   114070872 :          lu(k,994) = lu(k,994) - lu(k,658) * lu(k,979)
    4232   114070872 :          lu(k,997) = lu(k,997) - lu(k,659) * lu(k,979)
    4233   114070872 :          lu(k,998) = lu(k,998) - lu(k,660) * lu(k,979)
    4234   114070872 :          lu(k,999) = lu(k,999) - lu(k,661) * lu(k,979)
    4235   114070872 :          lu(k,1000) = - lu(k,662) * lu(k,979)
    4236   114070872 :          lu(k,1001) = - lu(k,663) * lu(k,979)
    4237   114070872 :          lu(k,1003) = lu(k,1003) - lu(k,664) * lu(k,979)
    4238   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,665) * lu(k,979)
    4239   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,666) * lu(k,979)
    4240   114070872 :          lu(k,1372) = lu(k,1372) - lu(k,648) * lu(k,1370)
    4241   114070872 :          lu(k,1373) = lu(k,1373) - lu(k,649) * lu(k,1370)
    4242   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,650) * lu(k,1370)
    4243   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,651) * lu(k,1370)
    4244   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,652) * lu(k,1370)
    4245   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,653) * lu(k,1370)
    4246   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,654) * lu(k,1370)
    4247   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,655) * lu(k,1370)
    4248   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,656) * lu(k,1370)
    4249   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,657) * lu(k,1370)
    4250   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,658) * lu(k,1370)
    4251   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,659) * lu(k,1370)
    4252   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,660) * lu(k,1370)
    4253   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,661) * lu(k,1370)
    4254   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,662) * lu(k,1370)
    4255   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,663) * lu(k,1370)
    4256   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,664) * lu(k,1370)
    4257   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,665) * lu(k,1370)
    4258   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,666) * lu(k,1370)
    4259   114070872 :          lu(k,1469) = lu(k,1469) - lu(k,648) * lu(k,1467)
    4260   114070872 :          lu(k,1470) = lu(k,1470) - lu(k,649) * lu(k,1467)
    4261   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,650) * lu(k,1467)
    4262   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,651) * lu(k,1467)
    4263   114070872 :          lu(k,1478) = - lu(k,652) * lu(k,1467)
    4264   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,653) * lu(k,1467)
    4265   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,654) * lu(k,1467)
    4266   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,655) * lu(k,1467)
    4267   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,656) * lu(k,1467)
    4268   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,657) * lu(k,1467)
    4269   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,658) * lu(k,1467)
    4270   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,659) * lu(k,1467)
    4271   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,660) * lu(k,1467)
    4272   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,661) * lu(k,1467)
    4273   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,662) * lu(k,1467)
    4274   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,663) * lu(k,1467)
    4275   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,664) * lu(k,1467)
    4276   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,665) * lu(k,1467)
    4277   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,666) * lu(k,1467)
    4278   114070872 :          lu(k,1511) = lu(k,1511) - lu(k,648) * lu(k,1509)
    4279   114070872 :          lu(k,1512) = lu(k,1512) - lu(k,649) * lu(k,1509)
    4280   114070872 :          lu(k,1515) = lu(k,1515) - lu(k,650) * lu(k,1509)
    4281   114070872 :          lu(k,1517) = lu(k,1517) - lu(k,651) * lu(k,1509)
    4282   114070872 :          lu(k,1519) = - lu(k,652) * lu(k,1509)
    4283   114070872 :          lu(k,1520) = lu(k,1520) - lu(k,653) * lu(k,1509)
    4284   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,654) * lu(k,1509)
    4285   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,655) * lu(k,1509)
    4286   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,656) * lu(k,1509)
    4287   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,657) * lu(k,1509)
    4288   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,658) * lu(k,1509)
    4289   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,659) * lu(k,1509)
    4290   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,660) * lu(k,1509)
    4291   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,661) * lu(k,1509)
    4292   114070872 :          lu(k,1537) = - lu(k,662) * lu(k,1509)
    4293   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,663) * lu(k,1509)
    4294   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,664) * lu(k,1509)
    4295   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,665) * lu(k,1509)
    4296   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,666) * lu(k,1509)
    4297   114070872 :          lu(k,1753) = - lu(k,648) * lu(k,1752)
    4298   114070872 :          lu(k,1754) = - lu(k,649) * lu(k,1752)
    4299   114070872 :          lu(k,1758) = lu(k,1758) - lu(k,650) * lu(k,1752)
    4300   114070872 :          lu(k,1760) = lu(k,1760) - lu(k,651) * lu(k,1752)
    4301   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,652) * lu(k,1752)
    4302   114070872 :          lu(k,1763) = - lu(k,653) * lu(k,1752)
    4303   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,654) * lu(k,1752)
    4304   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,655) * lu(k,1752)
    4305   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,656) * lu(k,1752)
    4306   114070872 :          lu(k,1771) = - lu(k,657) * lu(k,1752)
    4307   114070872 :          lu(k,1772) = - lu(k,658) * lu(k,1752)
    4308   114070872 :          lu(k,1777) = - lu(k,659) * lu(k,1752)
    4309   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,660) * lu(k,1752)
    4310   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,661) * lu(k,1752)
    4311   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,662) * lu(k,1752)
    4312   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,663) * lu(k,1752)
    4313   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,664) * lu(k,1752)
    4314   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,665) * lu(k,1752)
    4315   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,666) * lu(k,1752)
    4316   114070872 :          lu(k,1871) = - lu(k,648) * lu(k,1870)
    4317   114070872 :          lu(k,1872) = - lu(k,649) * lu(k,1870)
    4318   114070872 :          lu(k,1875) = - lu(k,650) * lu(k,1870)
    4319   114070872 :          lu(k,1877) = lu(k,1877) - lu(k,651) * lu(k,1870)
    4320   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,652) * lu(k,1870)
    4321   114070872 :          lu(k,1880) = lu(k,1880) - lu(k,653) * lu(k,1870)
    4322   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,654) * lu(k,1870)
    4323   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,655) * lu(k,1870)
    4324   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,656) * lu(k,1870)
    4325   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,657) * lu(k,1870)
    4326   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,658) * lu(k,1870)
    4327   114070872 :          lu(k,1894) = - lu(k,659) * lu(k,1870)
    4328   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,660) * lu(k,1870)
    4329   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,661) * lu(k,1870)
    4330   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,662) * lu(k,1870)
    4331   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,663) * lu(k,1870)
    4332   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,664) * lu(k,1870)
    4333   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,665) * lu(k,1870)
    4334   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,666) * lu(k,1870)
    4335   114070872 :          lu(k,2059) = lu(k,2059) - lu(k,648) * lu(k,2055)
    4336   114070872 :          lu(k,2060) = lu(k,2060) - lu(k,649) * lu(k,2055)
    4337   114070872 :          lu(k,2063) = lu(k,2063) - lu(k,650) * lu(k,2055)
    4338   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,651) * lu(k,2055)
    4339   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,652) * lu(k,2055)
    4340   114070872 :          lu(k,2068) = lu(k,2068) - lu(k,653) * lu(k,2055)
    4341   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,654) * lu(k,2055)
    4342   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,655) * lu(k,2055)
    4343   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,656) * lu(k,2055)
    4344   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,657) * lu(k,2055)
    4345   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,658) * lu(k,2055)
    4346   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,659) * lu(k,2055)
    4347   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,660) * lu(k,2055)
    4348   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,661) * lu(k,2055)
    4349   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,662) * lu(k,2055)
    4350   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,663) * lu(k,2055)
    4351   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,664) * lu(k,2055)
    4352   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,665) * lu(k,2055)
    4353   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,666) * lu(k,2055)
    4354             :       end do
    4355     3585597 :       end subroutine lu_fac16
    4356     3585597 :       subroutine lu_fac17( avec_len, lu )
    4357             :       use chem_mods, only : nzcnt
    4358             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4359             :       implicit none
    4360             : !-----------------------------------------------------------------------
    4361             : ! ... dummy args
    4362             : !-----------------------------------------------------------------------
    4363             :       integer, intent(in) :: avec_len
    4364             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4365             : !-----------------------------------------------------------------------
    4366             : ! ... local variables
    4367             : !-----------------------------------------------------------------------
    4368             :       integer :: k
    4369   117656469 :       do k = 1,avec_len
    4370   114070872 :          lu(k,669) = 1._r8 / lu(k,669)
    4371   114070872 :          lu(k,670) = lu(k,670) * lu(k,669)
    4372   114070872 :          lu(k,671) = lu(k,671) * lu(k,669)
    4373   114070872 :          lu(k,672) = lu(k,672) * lu(k,669)
    4374   114070872 :          lu(k,673) = lu(k,673) * lu(k,669)
    4375   114070872 :          lu(k,674) = lu(k,674) * lu(k,669)
    4376   114070872 :          lu(k,675) = lu(k,675) * lu(k,669)
    4377   114070872 :          lu(k,676) = lu(k,676) * lu(k,669)
    4378   114070872 :          lu(k,677) = lu(k,677) * lu(k,669)
    4379   114070872 :          lu(k,678) = lu(k,678) * lu(k,669)
    4380   114070872 :          lu(k,679) = lu(k,679) * lu(k,669)
    4381   114070872 :          lu(k,680) = lu(k,680) * lu(k,669)
    4382   114070872 :          lu(k,681) = lu(k,681) * lu(k,669)
    4383   114070872 :          lu(k,682) = lu(k,682) * lu(k,669)
    4384   114070872 :          lu(k,683) = lu(k,683) * lu(k,669)
    4385   114070872 :          lu(k,684) = lu(k,684) * lu(k,669)
    4386   114070872 :          lu(k,685) = lu(k,685) * lu(k,669)
    4387   114070872 :          lu(k,686) = lu(k,686) * lu(k,669)
    4388   114070872 :          lu(k,687) = lu(k,687) * lu(k,669)
    4389   114070872 :          lu(k,1009) = - lu(k,670) * lu(k,1008)
    4390   114070872 :          lu(k,1011) = lu(k,1011) - lu(k,671) * lu(k,1008)
    4391   114070872 :          lu(k,1012) = lu(k,1012) - lu(k,672) * lu(k,1008)
    4392   114070872 :          lu(k,1014) = lu(k,1014) - lu(k,673) * lu(k,1008)
    4393   114070872 :          lu(k,1017) = lu(k,1017) - lu(k,674) * lu(k,1008)
    4394   114070872 :          lu(k,1018) = lu(k,1018) - lu(k,675) * lu(k,1008)
    4395   114070872 :          lu(k,1019) = lu(k,1019) - lu(k,676) * lu(k,1008)
    4396   114070872 :          lu(k,1020) = lu(k,1020) - lu(k,677) * lu(k,1008)
    4397   114070872 :          lu(k,1021) = lu(k,1021) - lu(k,678) * lu(k,1008)
    4398   114070872 :          lu(k,1022) = lu(k,1022) - lu(k,679) * lu(k,1008)
    4399   114070872 :          lu(k,1023) = lu(k,1023) - lu(k,680) * lu(k,1008)
    4400   114070872 :          lu(k,1027) = lu(k,1027) - lu(k,681) * lu(k,1008)
    4401   114070872 :          lu(k,1028) = lu(k,1028) - lu(k,682) * lu(k,1008)
    4402   114070872 :          lu(k,1029) = lu(k,1029) - lu(k,683) * lu(k,1008)
    4403   114070872 :          lu(k,1031) = lu(k,1031) - lu(k,684) * lu(k,1008)
    4404   114070872 :          lu(k,1032) = lu(k,1032) - lu(k,685) * lu(k,1008)
    4405   114070872 :          lu(k,1036) = lu(k,1036) - lu(k,686) * lu(k,1008)
    4406   114070872 :          lu(k,1038) = lu(k,1038) - lu(k,687) * lu(k,1008)
    4407   114070872 :          lu(k,1142) = lu(k,1142) - lu(k,670) * lu(k,1141)
    4408   114070872 :          lu(k,1146) = lu(k,1146) - lu(k,671) * lu(k,1141)
    4409   114070872 :          lu(k,1148) = lu(k,1148) - lu(k,672) * lu(k,1141)
    4410   114070872 :          lu(k,1150) = lu(k,1150) - lu(k,673) * lu(k,1141)
    4411   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,674) * lu(k,1141)
    4412   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,675) * lu(k,1141)
    4413   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,676) * lu(k,1141)
    4414   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,677) * lu(k,1141)
    4415   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,678) * lu(k,1141)
    4416   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,679) * lu(k,1141)
    4417   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,680) * lu(k,1141)
    4418   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,681) * lu(k,1141)
    4419   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,682) * lu(k,1141)
    4420   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,683) * lu(k,1141)
    4421   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,684) * lu(k,1141)
    4422   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,685) * lu(k,1141)
    4423   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,686) * lu(k,1141)
    4424   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,687) * lu(k,1141)
    4425   114070872 :          lu(k,1186) = lu(k,1186) - lu(k,670) * lu(k,1185)
    4426   114070872 :          lu(k,1189) = lu(k,1189) - lu(k,671) * lu(k,1185)
    4427   114070872 :          lu(k,1191) = lu(k,1191) - lu(k,672) * lu(k,1185)
    4428   114070872 :          lu(k,1193) = lu(k,1193) - lu(k,673) * lu(k,1185)
    4429   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,674) * lu(k,1185)
    4430   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,675) * lu(k,1185)
    4431   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,676) * lu(k,1185)
    4432   114070872 :          lu(k,1199) = lu(k,1199) - lu(k,677) * lu(k,1185)
    4433   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,678) * lu(k,1185)
    4434   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,679) * lu(k,1185)
    4435   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,680) * lu(k,1185)
    4436   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,681) * lu(k,1185)
    4437   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,682) * lu(k,1185)
    4438   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,683) * lu(k,1185)
    4439   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,684) * lu(k,1185)
    4440   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,685) * lu(k,1185)
    4441   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,686) * lu(k,1185)
    4442   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,687) * lu(k,1185)
    4443   114070872 :          lu(k,1229) = lu(k,1229) - lu(k,670) * lu(k,1228)
    4444   114070872 :          lu(k,1232) = lu(k,1232) - lu(k,671) * lu(k,1228)
    4445   114070872 :          lu(k,1234) = lu(k,1234) - lu(k,672) * lu(k,1228)
    4446   114070872 :          lu(k,1236) = lu(k,1236) - lu(k,673) * lu(k,1228)
    4447   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,674) * lu(k,1228)
    4448   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,675) * lu(k,1228)
    4449   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,676) * lu(k,1228)
    4450   114070872 :          lu(k,1242) = lu(k,1242) - lu(k,677) * lu(k,1228)
    4451   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,678) * lu(k,1228)
    4452   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,679) * lu(k,1228)
    4453   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,680) * lu(k,1228)
    4454   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,681) * lu(k,1228)
    4455   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,682) * lu(k,1228)
    4456   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,683) * lu(k,1228)
    4457   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,684) * lu(k,1228)
    4458   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,685) * lu(k,1228)
    4459   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,686) * lu(k,1228)
    4460   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,687) * lu(k,1228)
    4461   114070872 :          lu(k,1313) = lu(k,1313) - lu(k,670) * lu(k,1312)
    4462   114070872 :          lu(k,1316) = lu(k,1316) - lu(k,671) * lu(k,1312)
    4463   114070872 :          lu(k,1318) = lu(k,1318) - lu(k,672) * lu(k,1312)
    4464   114070872 :          lu(k,1320) = lu(k,1320) - lu(k,673) * lu(k,1312)
    4465   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,674) * lu(k,1312)
    4466   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,675) * lu(k,1312)
    4467   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,676) * lu(k,1312)
    4468   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,677) * lu(k,1312)
    4469   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,678) * lu(k,1312)
    4470   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,679) * lu(k,1312)
    4471   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,680) * lu(k,1312)
    4472   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,681) * lu(k,1312)
    4473   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,682) * lu(k,1312)
    4474   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,683) * lu(k,1312)
    4475   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,684) * lu(k,1312)
    4476   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,685) * lu(k,1312)
    4477   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,686) * lu(k,1312)
    4478   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,687) * lu(k,1312)
    4479   114070872 :          lu(k,1591) = lu(k,1591) - lu(k,670) * lu(k,1590)
    4480   114070872 :          lu(k,1595) = lu(k,1595) - lu(k,671) * lu(k,1590)
    4481   114070872 :          lu(k,1597) = lu(k,1597) - lu(k,672) * lu(k,1590)
    4482   114070872 :          lu(k,1599) = lu(k,1599) - lu(k,673) * lu(k,1590)
    4483   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,674) * lu(k,1590)
    4484   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,675) * lu(k,1590)
    4485   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,676) * lu(k,1590)
    4486   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,677) * lu(k,1590)
    4487   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,678) * lu(k,1590)
    4488   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,679) * lu(k,1590)
    4489   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,680) * lu(k,1590)
    4490   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,681) * lu(k,1590)
    4491   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,682) * lu(k,1590)
    4492   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,683) * lu(k,1590)
    4493   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,684) * lu(k,1590)
    4494   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,685) * lu(k,1590)
    4495   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,686) * lu(k,1590)
    4496   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,687) * lu(k,1590)
    4497   114070872 :          lu(k,1635) = lu(k,1635) - lu(k,670) * lu(k,1634)
    4498   114070872 :          lu(k,1638) = lu(k,1638) - lu(k,671) * lu(k,1634)
    4499   114070872 :          lu(k,1640) = lu(k,1640) - lu(k,672) * lu(k,1634)
    4500   114070872 :          lu(k,1642) = lu(k,1642) - lu(k,673) * lu(k,1634)
    4501   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,674) * lu(k,1634)
    4502   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,675) * lu(k,1634)
    4503   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,676) * lu(k,1634)
    4504   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,677) * lu(k,1634)
    4505   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,678) * lu(k,1634)
    4506   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,679) * lu(k,1634)
    4507   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,680) * lu(k,1634)
    4508   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,681) * lu(k,1634)
    4509   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,682) * lu(k,1634)
    4510   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,683) * lu(k,1634)
    4511   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,684) * lu(k,1634)
    4512   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,685) * lu(k,1634)
    4513   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,686) * lu(k,1634)
    4514   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,687) * lu(k,1634)
    4515   114070872 :          lu(k,1678) = lu(k,1678) - lu(k,670) * lu(k,1677)
    4516   114070872 :          lu(k,1681) = lu(k,1681) - lu(k,671) * lu(k,1677)
    4517   114070872 :          lu(k,1683) = lu(k,1683) - lu(k,672) * lu(k,1677)
    4518   114070872 :          lu(k,1685) = lu(k,1685) - lu(k,673) * lu(k,1677)
    4519   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,674) * lu(k,1677)
    4520   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,675) * lu(k,1677)
    4521   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,676) * lu(k,1677)
    4522   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,677) * lu(k,1677)
    4523   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,678) * lu(k,1677)
    4524   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,679) * lu(k,1677)
    4525   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,680) * lu(k,1677)
    4526   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,681) * lu(k,1677)
    4527   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,682) * lu(k,1677)
    4528   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,683) * lu(k,1677)
    4529   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,684) * lu(k,1677)
    4530   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,685) * lu(k,1677)
    4531   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,686) * lu(k,1677)
    4532   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,687) * lu(k,1677)
    4533   114070872 :          lu(k,1800) = lu(k,1800) - lu(k,670) * lu(k,1799)
    4534   114070872 :          lu(k,1805) = lu(k,1805) - lu(k,671) * lu(k,1799)
    4535   114070872 :          lu(k,1807) = lu(k,1807) - lu(k,672) * lu(k,1799)
    4536   114070872 :          lu(k,1809) = lu(k,1809) - lu(k,673) * lu(k,1799)
    4537   114070872 :          lu(k,1812) = lu(k,1812) - lu(k,674) * lu(k,1799)
    4538   114070872 :          lu(k,1813) = lu(k,1813) - lu(k,675) * lu(k,1799)
    4539   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,676) * lu(k,1799)
    4540   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,677) * lu(k,1799)
    4541   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,678) * lu(k,1799)
    4542   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,679) * lu(k,1799)
    4543   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,680) * lu(k,1799)
    4544   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,681) * lu(k,1799)
    4545   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,682) * lu(k,1799)
    4546   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,683) * lu(k,1799)
    4547   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,684) * lu(k,1799)
    4548   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,685) * lu(k,1799)
    4549   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,686) * lu(k,1799)
    4550   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,687) * lu(k,1799)
    4551   114070872 :          lu(k,1952) = - lu(k,670) * lu(k,1951)
    4552   114070872 :          lu(k,1957) = lu(k,1957) - lu(k,671) * lu(k,1951)
    4553   114070872 :          lu(k,1959) = lu(k,1959) - lu(k,672) * lu(k,1951)
    4554   114070872 :          lu(k,1961) = lu(k,1961) - lu(k,673) * lu(k,1951)
    4555   114070872 :          lu(k,1964) = lu(k,1964) - lu(k,674) * lu(k,1951)
    4556   114070872 :          lu(k,1965) = lu(k,1965) - lu(k,675) * lu(k,1951)
    4557   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,676) * lu(k,1951)
    4558   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,677) * lu(k,1951)
    4559   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,678) * lu(k,1951)
    4560   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,679) * lu(k,1951)
    4561   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,680) * lu(k,1951)
    4562   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,681) * lu(k,1951)
    4563   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,682) * lu(k,1951)
    4564   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,683) * lu(k,1951)
    4565   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,684) * lu(k,1951)
    4566   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,685) * lu(k,1951)
    4567   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,686) * lu(k,1951)
    4568   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,687) * lu(k,1951)
    4569   114070872 :          lu(k,2057) = lu(k,2057) - lu(k,670) * lu(k,2056)
    4570   114070872 :          lu(k,2062) = lu(k,2062) - lu(k,671) * lu(k,2056)
    4571   114070872 :          lu(k,2064) = lu(k,2064) - lu(k,672) * lu(k,2056)
    4572   114070872 :          lu(k,2066) = lu(k,2066) - lu(k,673) * lu(k,2056)
    4573   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,674) * lu(k,2056)
    4574   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,675) * lu(k,2056)
    4575   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,676) * lu(k,2056)
    4576   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,677) * lu(k,2056)
    4577   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,678) * lu(k,2056)
    4578   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,679) * lu(k,2056)
    4579   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,680) * lu(k,2056)
    4580   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,681) * lu(k,2056)
    4581   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,682) * lu(k,2056)
    4582   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,683) * lu(k,2056)
    4583   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,684) * lu(k,2056)
    4584   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,685) * lu(k,2056)
    4585   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,686) * lu(k,2056)
    4586   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,687) * lu(k,2056)
    4587   114070872 :          lu(k,691) = 1._r8 / lu(k,691)
    4588   114070872 :          lu(k,692) = lu(k,692) * lu(k,691)
    4589   114070872 :          lu(k,693) = lu(k,693) * lu(k,691)
    4590   114070872 :          lu(k,694) = lu(k,694) * lu(k,691)
    4591   114070872 :          lu(k,695) = lu(k,695) * lu(k,691)
    4592   114070872 :          lu(k,696) = lu(k,696) * lu(k,691)
    4593   114070872 :          lu(k,697) = lu(k,697) * lu(k,691)
    4594   114070872 :          lu(k,698) = lu(k,698) * lu(k,691)
    4595   114070872 :          lu(k,699) = lu(k,699) * lu(k,691)
    4596   114070872 :          lu(k,700) = lu(k,700) * lu(k,691)
    4597   114070872 :          lu(k,701) = lu(k,701) * lu(k,691)
    4598   114070872 :          lu(k,702) = lu(k,702) * lu(k,691)
    4599   114070872 :          lu(k,703) = lu(k,703) * lu(k,691)
    4600   114070872 :          lu(k,704) = lu(k,704) * lu(k,691)
    4601   114070872 :          lu(k,705) = lu(k,705) * lu(k,691)
    4602   114070872 :          lu(k,706) = lu(k,706) * lu(k,691)
    4603   114070872 :          lu(k,707) = lu(k,707) * lu(k,691)
    4604   114070872 :          lu(k,866) = lu(k,866) - lu(k,692) * lu(k,864)
    4605   114070872 :          lu(k,869) = lu(k,869) - lu(k,693) * lu(k,864)
    4606   114070872 :          lu(k,870) = lu(k,870) - lu(k,694) * lu(k,864)
    4607   114070872 :          lu(k,871) = lu(k,871) - lu(k,695) * lu(k,864)
    4608   114070872 :          lu(k,872) = lu(k,872) - lu(k,696) * lu(k,864)
    4609   114070872 :          lu(k,873) = lu(k,873) - lu(k,697) * lu(k,864)
    4610   114070872 :          lu(k,874) = lu(k,874) - lu(k,698) * lu(k,864)
    4611   114070872 :          lu(k,876) = lu(k,876) - lu(k,699) * lu(k,864)
    4612   114070872 :          lu(k,877) = lu(k,877) - lu(k,700) * lu(k,864)
    4613   114070872 :          lu(k,878) = lu(k,878) - lu(k,701) * lu(k,864)
    4614   114070872 :          lu(k,879) = lu(k,879) - lu(k,702) * lu(k,864)
    4615   114070872 :          lu(k,880) = lu(k,880) - lu(k,703) * lu(k,864)
    4616   114070872 :          lu(k,881) = lu(k,881) - lu(k,704) * lu(k,864)
    4617   114070872 :          lu(k,882) = - lu(k,705) * lu(k,864)
    4618   114070872 :          lu(k,884) = lu(k,884) - lu(k,706) * lu(k,864)
    4619   114070872 :          lu(k,886) = lu(k,886) - lu(k,707) * lu(k,864)
    4620   114070872 :          lu(k,1011) = lu(k,1011) - lu(k,692) * lu(k,1009)
    4621   114070872 :          lu(k,1017) = lu(k,1017) - lu(k,693) * lu(k,1009)
    4622   114070872 :          lu(k,1018) = lu(k,1018) - lu(k,694) * lu(k,1009)
    4623   114070872 :          lu(k,1019) = lu(k,1019) - lu(k,695) * lu(k,1009)
    4624   114070872 :          lu(k,1021) = lu(k,1021) - lu(k,696) * lu(k,1009)
    4625   114070872 :          lu(k,1022) = lu(k,1022) - lu(k,697) * lu(k,1009)
    4626   114070872 :          lu(k,1023) = lu(k,1023) - lu(k,698) * lu(k,1009)
    4627   114070872 :          lu(k,1025) = lu(k,1025) - lu(k,699) * lu(k,1009)
    4628   114070872 :          lu(k,1027) = lu(k,1027) - lu(k,700) * lu(k,1009)
    4629   114070872 :          lu(k,1028) = lu(k,1028) - lu(k,701) * lu(k,1009)
    4630   114070872 :          lu(k,1029) = lu(k,1029) - lu(k,702) * lu(k,1009)
    4631   114070872 :          lu(k,1030) = - lu(k,703) * lu(k,1009)
    4632   114070872 :          lu(k,1031) = lu(k,1031) - lu(k,704) * lu(k,1009)
    4633   114070872 :          lu(k,1032) = lu(k,1032) - lu(k,705) * lu(k,1009)
    4634   114070872 :          lu(k,1036) = lu(k,1036) - lu(k,706) * lu(k,1009)
    4635   114070872 :          lu(k,1038) = lu(k,1038) - lu(k,707) * lu(k,1009)
    4636   114070872 :          lu(k,1146) = lu(k,1146) - lu(k,692) * lu(k,1142)
    4637   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,693) * lu(k,1142)
    4638   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,694) * lu(k,1142)
    4639   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,695) * lu(k,1142)
    4640   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,696) * lu(k,1142)
    4641   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,697) * lu(k,1142)
    4642   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,698) * lu(k,1142)
    4643   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,699) * lu(k,1142)
    4644   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,700) * lu(k,1142)
    4645   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,701) * lu(k,1142)
    4646   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,702) * lu(k,1142)
    4647   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,703) * lu(k,1142)
    4648   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,704) * lu(k,1142)
    4649   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,705) * lu(k,1142)
    4650   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,706) * lu(k,1142)
    4651   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,707) * lu(k,1142)
    4652   114070872 :          lu(k,1189) = lu(k,1189) - lu(k,692) * lu(k,1186)
    4653   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,693) * lu(k,1186)
    4654   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,694) * lu(k,1186)
    4655   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,695) * lu(k,1186)
    4656   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,696) * lu(k,1186)
    4657   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,697) * lu(k,1186)
    4658   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,698) * lu(k,1186)
    4659   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,699) * lu(k,1186)
    4660   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,700) * lu(k,1186)
    4661   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,701) * lu(k,1186)
    4662   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,702) * lu(k,1186)
    4663   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,703) * lu(k,1186)
    4664   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,704) * lu(k,1186)
    4665   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,705) * lu(k,1186)
    4666   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,706) * lu(k,1186)
    4667   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,707) * lu(k,1186)
    4668   114070872 :          lu(k,1232) = lu(k,1232) - lu(k,692) * lu(k,1229)
    4669   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,693) * lu(k,1229)
    4670   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,694) * lu(k,1229)
    4671   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,695) * lu(k,1229)
    4672   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,696) * lu(k,1229)
    4673   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,697) * lu(k,1229)
    4674   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,698) * lu(k,1229)
    4675   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,699) * lu(k,1229)
    4676   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,700) * lu(k,1229)
    4677   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,701) * lu(k,1229)
    4678   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,702) * lu(k,1229)
    4679   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,703) * lu(k,1229)
    4680   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,704) * lu(k,1229)
    4681   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,705) * lu(k,1229)
    4682   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,706) * lu(k,1229)
    4683   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,707) * lu(k,1229)
    4684   114070872 :          lu(k,1316) = lu(k,1316) - lu(k,692) * lu(k,1313)
    4685   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,693) * lu(k,1313)
    4686   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,694) * lu(k,1313)
    4687   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,695) * lu(k,1313)
    4688   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,696) * lu(k,1313)
    4689   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,697) * lu(k,1313)
    4690   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,698) * lu(k,1313)
    4691   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,699) * lu(k,1313)
    4692   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,700) * lu(k,1313)
    4693   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,701) * lu(k,1313)
    4694   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,702) * lu(k,1313)
    4695   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,703) * lu(k,1313)
    4696   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,704) * lu(k,1313)
    4697   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,705) * lu(k,1313)
    4698   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,706) * lu(k,1313)
    4699   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,707) * lu(k,1313)
    4700   114070872 :          lu(k,1514) = lu(k,1514) - lu(k,692) * lu(k,1510)
    4701   114070872 :          lu(k,1521) = lu(k,1521) - lu(k,693) * lu(k,1510)
    4702   114070872 :          lu(k,1522) = lu(k,1522) - lu(k,694) * lu(k,1510)
    4703   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,695) * lu(k,1510)
    4704   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,696) * lu(k,1510)
    4705   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,697) * lu(k,1510)
    4706   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,698) * lu(k,1510)
    4707   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,699) * lu(k,1510)
    4708   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,700) * lu(k,1510)
    4709   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,701) * lu(k,1510)
    4710   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,702) * lu(k,1510)
    4711   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,703) * lu(k,1510)
    4712   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,704) * lu(k,1510)
    4713   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,705) * lu(k,1510)
    4714   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,706) * lu(k,1510)
    4715   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,707) * lu(k,1510)
    4716   114070872 :          lu(k,1595) = lu(k,1595) - lu(k,692) * lu(k,1591)
    4717   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,693) * lu(k,1591)
    4718   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,694) * lu(k,1591)
    4719   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,695) * lu(k,1591)
    4720   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,696) * lu(k,1591)
    4721   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,697) * lu(k,1591)
    4722   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,698) * lu(k,1591)
    4723   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,699) * lu(k,1591)
    4724   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,700) * lu(k,1591)
    4725   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,701) * lu(k,1591)
    4726   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,702) * lu(k,1591)
    4727   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,703) * lu(k,1591)
    4728   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,704) * lu(k,1591)
    4729   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,705) * lu(k,1591)
    4730   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,706) * lu(k,1591)
    4731   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,707) * lu(k,1591)
    4732   114070872 :          lu(k,1638) = lu(k,1638) - lu(k,692) * lu(k,1635)
    4733   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,693) * lu(k,1635)
    4734   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,694) * lu(k,1635)
    4735   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,695) * lu(k,1635)
    4736   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,696) * lu(k,1635)
    4737   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,697) * lu(k,1635)
    4738   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,698) * lu(k,1635)
    4739   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,699) * lu(k,1635)
    4740   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,700) * lu(k,1635)
    4741   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,701) * lu(k,1635)
    4742   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,702) * lu(k,1635)
    4743   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,703) * lu(k,1635)
    4744   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,704) * lu(k,1635)
    4745   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,705) * lu(k,1635)
    4746   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,706) * lu(k,1635)
    4747   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,707) * lu(k,1635)
    4748   114070872 :          lu(k,1681) = lu(k,1681) - lu(k,692) * lu(k,1678)
    4749   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,693) * lu(k,1678)
    4750   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,694) * lu(k,1678)
    4751   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,695) * lu(k,1678)
    4752   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,696) * lu(k,1678)
    4753   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,697) * lu(k,1678)
    4754   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,698) * lu(k,1678)
    4755   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,699) * lu(k,1678)
    4756   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,700) * lu(k,1678)
    4757   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,701) * lu(k,1678)
    4758   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,702) * lu(k,1678)
    4759   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,703) * lu(k,1678)
    4760   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,704) * lu(k,1678)
    4761   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,705) * lu(k,1678)
    4762   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,706) * lu(k,1678)
    4763   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,707) * lu(k,1678)
    4764   114070872 :          lu(k,1722) = lu(k,1722) - lu(k,692) * lu(k,1718)
    4765   114070872 :          lu(k,1728) = lu(k,1728) - lu(k,693) * lu(k,1718)
    4766   114070872 :          lu(k,1729) = lu(k,1729) - lu(k,694) * lu(k,1718)
    4767   114070872 :          lu(k,1730) = lu(k,1730) - lu(k,695) * lu(k,1718)
    4768   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,696) * lu(k,1718)
    4769   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,697) * lu(k,1718)
    4770   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,698) * lu(k,1718)
    4771   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,699) * lu(k,1718)
    4772   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,700) * lu(k,1718)
    4773   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,701) * lu(k,1718)
    4774   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,702) * lu(k,1718)
    4775   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,703) * lu(k,1718)
    4776   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,704) * lu(k,1718)
    4777   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,705) * lu(k,1718)
    4778   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,706) * lu(k,1718)
    4779   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,707) * lu(k,1718)
    4780   114070872 :          lu(k,1805) = lu(k,1805) - lu(k,692) * lu(k,1800)
    4781   114070872 :          lu(k,1812) = lu(k,1812) - lu(k,693) * lu(k,1800)
    4782   114070872 :          lu(k,1813) = lu(k,1813) - lu(k,694) * lu(k,1800)
    4783   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,695) * lu(k,1800)
    4784   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,696) * lu(k,1800)
    4785   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,697) * lu(k,1800)
    4786   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,698) * lu(k,1800)
    4787   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,699) * lu(k,1800)
    4788   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,700) * lu(k,1800)
    4789   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,701) * lu(k,1800)
    4790   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,702) * lu(k,1800)
    4791   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,703) * lu(k,1800)
    4792   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,704) * lu(k,1800)
    4793   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,705) * lu(k,1800)
    4794   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,706) * lu(k,1800)
    4795   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,707) * lu(k,1800)
    4796   114070872 :          lu(k,1957) = lu(k,1957) - lu(k,692) * lu(k,1952)
    4797   114070872 :          lu(k,1964) = lu(k,1964) - lu(k,693) * lu(k,1952)
    4798   114070872 :          lu(k,1965) = lu(k,1965) - lu(k,694) * lu(k,1952)
    4799   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,695) * lu(k,1952)
    4800   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,696) * lu(k,1952)
    4801   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,697) * lu(k,1952)
    4802   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,698) * lu(k,1952)
    4803   114070872 :          lu(k,1972) = - lu(k,699) * lu(k,1952)
    4804   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,700) * lu(k,1952)
    4805   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,701) * lu(k,1952)
    4806   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,702) * lu(k,1952)
    4807   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,703) * lu(k,1952)
    4808   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,704) * lu(k,1952)
    4809   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,705) * lu(k,1952)
    4810   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,706) * lu(k,1952)
    4811   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,707) * lu(k,1952)
    4812   114070872 :          lu(k,2062) = lu(k,2062) - lu(k,692) * lu(k,2057)
    4813   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,693) * lu(k,2057)
    4814   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,694) * lu(k,2057)
    4815   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,695) * lu(k,2057)
    4816   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,696) * lu(k,2057)
    4817   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,697) * lu(k,2057)
    4818   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,698) * lu(k,2057)
    4819   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,699) * lu(k,2057)
    4820   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,700) * lu(k,2057)
    4821   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,701) * lu(k,2057)
    4822   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,702) * lu(k,2057)
    4823   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,703) * lu(k,2057)
    4824   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,704) * lu(k,2057)
    4825   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,705) * lu(k,2057)
    4826   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,706) * lu(k,2057)
    4827   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,707) * lu(k,2057)
    4828   114070872 :          lu(k,715) = 1._r8 / lu(k,715)
    4829   114070872 :          lu(k,716) = lu(k,716) * lu(k,715)
    4830   114070872 :          lu(k,717) = lu(k,717) * lu(k,715)
    4831   114070872 :          lu(k,718) = lu(k,718) * lu(k,715)
    4832   114070872 :          lu(k,719) = lu(k,719) * lu(k,715)
    4833   114070872 :          lu(k,720) = lu(k,720) * lu(k,715)
    4834   114070872 :          lu(k,721) = lu(k,721) * lu(k,715)
    4835   114070872 :          lu(k,722) = lu(k,722) * lu(k,715)
    4836   114070872 :          lu(k,723) = lu(k,723) * lu(k,715)
    4837   114070872 :          lu(k,724) = lu(k,724) * lu(k,715)
    4838   114070872 :          lu(k,725) = lu(k,725) * lu(k,715)
    4839   114070872 :          lu(k,726) = lu(k,726) * lu(k,715)
    4840   114070872 :          lu(k,727) = lu(k,727) * lu(k,715)
    4841   114070872 :          lu(k,728) = lu(k,728) * lu(k,715)
    4842   114070872 :          lu(k,729) = lu(k,729) * lu(k,715)
    4843   114070872 :          lu(k,730) = lu(k,730) * lu(k,715)
    4844   114070872 :          lu(k,731) = lu(k,731) * lu(k,715)
    4845   114070872 :          lu(k,732) = lu(k,732) * lu(k,715)
    4846   114070872 :          lu(k,738) = lu(k,738) - lu(k,716) * lu(k,737)
    4847   114070872 :          lu(k,739) = lu(k,739) - lu(k,717) * lu(k,737)
    4848   114070872 :          lu(k,740) = lu(k,740) - lu(k,718) * lu(k,737)
    4849   114070872 :          lu(k,741) = lu(k,741) - lu(k,719) * lu(k,737)
    4850   114070872 :          lu(k,743) = lu(k,743) - lu(k,720) * lu(k,737)
    4851   114070872 :          lu(k,744) = lu(k,744) - lu(k,721) * lu(k,737)
    4852   114070872 :          lu(k,745) = lu(k,745) - lu(k,722) * lu(k,737)
    4853   114070872 :          lu(k,746) = lu(k,746) - lu(k,723) * lu(k,737)
    4854   114070872 :          lu(k,747) = lu(k,747) - lu(k,724) * lu(k,737)
    4855   114070872 :          lu(k,748) = lu(k,748) - lu(k,725) * lu(k,737)
    4856   114070872 :          lu(k,749) = lu(k,749) - lu(k,726) * lu(k,737)
    4857   114070872 :          lu(k,750) = lu(k,750) - lu(k,727) * lu(k,737)
    4858   114070872 :          lu(k,751) = lu(k,751) - lu(k,728) * lu(k,737)
    4859   114070872 :          lu(k,754) = lu(k,754) - lu(k,729) * lu(k,737)
    4860   114070872 :          lu(k,755) = lu(k,755) - lu(k,730) * lu(k,737)
    4861   114070872 :          lu(k,756) = lu(k,756) - lu(k,731) * lu(k,737)
    4862   114070872 :          lu(k,757) = lu(k,757) - lu(k,732) * lu(k,737)
    4863   114070872 :          lu(k,786) = lu(k,786) - lu(k,716) * lu(k,785)
    4864   114070872 :          lu(k,787) = lu(k,787) - lu(k,717) * lu(k,785)
    4865   114070872 :          lu(k,788) = lu(k,788) - lu(k,718) * lu(k,785)
    4866   114070872 :          lu(k,789) = lu(k,789) - lu(k,719) * lu(k,785)
    4867   114070872 :          lu(k,791) = lu(k,791) - lu(k,720) * lu(k,785)
    4868   114070872 :          lu(k,793) = lu(k,793) - lu(k,721) * lu(k,785)
    4869   114070872 :          lu(k,794) = lu(k,794) - lu(k,722) * lu(k,785)
    4870   114070872 :          lu(k,795) = lu(k,795) - lu(k,723) * lu(k,785)
    4871   114070872 :          lu(k,796) = lu(k,796) - lu(k,724) * lu(k,785)
    4872   114070872 :          lu(k,797) = lu(k,797) - lu(k,725) * lu(k,785)
    4873   114070872 :          lu(k,800) = lu(k,800) - lu(k,726) * lu(k,785)
    4874   114070872 :          lu(k,801) = lu(k,801) - lu(k,727) * lu(k,785)
    4875   114070872 :          lu(k,802) = lu(k,802) - lu(k,728) * lu(k,785)
    4876   114070872 :          lu(k,805) = lu(k,805) - lu(k,729) * lu(k,785)
    4877   114070872 :          lu(k,806) = lu(k,806) - lu(k,730) * lu(k,785)
    4878   114070872 :          lu(k,807) = lu(k,807) - lu(k,731) * lu(k,785)
    4879   114070872 :          lu(k,808) = lu(k,808) - lu(k,732) * lu(k,785)
    4880   114070872 :          lu(k,898) = lu(k,898) - lu(k,716) * lu(k,897)
    4881   114070872 :          lu(k,899) = lu(k,899) - lu(k,717) * lu(k,897)
    4882   114070872 :          lu(k,900) = lu(k,900) - lu(k,718) * lu(k,897)
    4883   114070872 :          lu(k,901) = lu(k,901) - lu(k,719) * lu(k,897)
    4884   114070872 :          lu(k,903) = lu(k,903) - lu(k,720) * lu(k,897)
    4885   114070872 :          lu(k,905) = lu(k,905) - lu(k,721) * lu(k,897)
    4886   114070872 :          lu(k,907) = lu(k,907) - lu(k,722) * lu(k,897)
    4887   114070872 :          lu(k,908) = lu(k,908) - lu(k,723) * lu(k,897)
    4888   114070872 :          lu(k,909) = lu(k,909) - lu(k,724) * lu(k,897)
    4889   114070872 :          lu(k,910) = lu(k,910) - lu(k,725) * lu(k,897)
    4890   114070872 :          lu(k,913) = lu(k,913) - lu(k,726) * lu(k,897)
    4891   114070872 :          lu(k,914) = lu(k,914) - lu(k,727) * lu(k,897)
    4892   114070872 :          lu(k,915) = lu(k,915) - lu(k,728) * lu(k,897)
    4893   114070872 :          lu(k,918) = lu(k,918) - lu(k,729) * lu(k,897)
    4894   114070872 :          lu(k,919) = lu(k,919) - lu(k,730) * lu(k,897)
    4895   114070872 :          lu(k,920) = lu(k,920) - lu(k,731) * lu(k,897)
    4896   114070872 :          lu(k,921) = lu(k,921) - lu(k,732) * lu(k,897)
    4897   114070872 :          lu(k,981) = lu(k,981) - lu(k,716) * lu(k,980)
    4898   114070872 :          lu(k,982) = lu(k,982) - lu(k,717) * lu(k,980)
    4899   114070872 :          lu(k,983) = lu(k,983) - lu(k,718) * lu(k,980)
    4900   114070872 :          lu(k,984) = lu(k,984) - lu(k,719) * lu(k,980)
    4901   114070872 :          lu(k,986) = lu(k,986) - lu(k,720) * lu(k,980)
    4902   114070872 :          lu(k,989) = lu(k,989) - lu(k,721) * lu(k,980)
    4903   114070872 :          lu(k,991) = lu(k,991) - lu(k,722) * lu(k,980)
    4904   114070872 :          lu(k,992) = lu(k,992) - lu(k,723) * lu(k,980)
    4905   114070872 :          lu(k,993) = lu(k,993) - lu(k,724) * lu(k,980)
    4906   114070872 :          lu(k,994) = lu(k,994) - lu(k,725) * lu(k,980)
    4907   114070872 :          lu(k,997) = lu(k,997) - lu(k,726) * lu(k,980)
    4908   114070872 :          lu(k,998) = lu(k,998) - lu(k,727) * lu(k,980)
    4909   114070872 :          lu(k,999) = lu(k,999) - lu(k,728) * lu(k,980)
    4910   114070872 :          lu(k,1002) = lu(k,1002) - lu(k,729) * lu(k,980)
    4911   114070872 :          lu(k,1003) = lu(k,1003) - lu(k,730) * lu(k,980)
    4912   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,731) * lu(k,980)
    4913   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,732) * lu(k,980)
    4914   114070872 :          lu(k,1094) = lu(k,1094) - lu(k,716) * lu(k,1093)
    4915   114070872 :          lu(k,1095) = lu(k,1095) - lu(k,717) * lu(k,1093)
    4916   114070872 :          lu(k,1099) = lu(k,1099) - lu(k,718) * lu(k,1093)
    4917   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,719) * lu(k,1093)
    4918   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,720) * lu(k,1093)
    4919   114070872 :          lu(k,1108) = lu(k,1108) - lu(k,721) * lu(k,1093)
    4920   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,722) * lu(k,1093)
    4921   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,723) * lu(k,1093)
    4922   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,724) * lu(k,1093)
    4923   114070872 :          lu(k,1113) = lu(k,1113) - lu(k,725) * lu(k,1093)
    4924   114070872 :          lu(k,1118) = lu(k,1118) - lu(k,726) * lu(k,1093)
    4925   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,727) * lu(k,1093)
    4926   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,728) * lu(k,1093)
    4927   114070872 :          lu(k,1123) = lu(k,1123) - lu(k,729) * lu(k,1093)
    4928   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,730) * lu(k,1093)
    4929   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,731) * lu(k,1093)
    4930   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,732) * lu(k,1093)
    4931   114070872 :          lu(k,1372) = lu(k,1372) - lu(k,716) * lu(k,1371)
    4932   114070872 :          lu(k,1373) = lu(k,1373) - lu(k,717) * lu(k,1371)
    4933   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,718) * lu(k,1371)
    4934   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,719) * lu(k,1371)
    4935   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,720) * lu(k,1371)
    4936   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,721) * lu(k,1371)
    4937   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,722) * lu(k,1371)
    4938   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,723) * lu(k,1371)
    4939   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,724) * lu(k,1371)
    4940   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,725) * lu(k,1371)
    4941   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,726) * lu(k,1371)
    4942   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,727) * lu(k,1371)
    4943   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,728) * lu(k,1371)
    4944   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,729) * lu(k,1371)
    4945   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,730) * lu(k,1371)
    4946   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,731) * lu(k,1371)
    4947   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,732) * lu(k,1371)
    4948   114070872 :          lu(k,1422) = lu(k,1422) - lu(k,716) * lu(k,1421)
    4949   114070872 :          lu(k,1423) = lu(k,1423) - lu(k,717) * lu(k,1421)
    4950   114070872 :          lu(k,1426) = lu(k,1426) - lu(k,718) * lu(k,1421)
    4951   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,719) * lu(k,1421)
    4952   114070872 :          lu(k,1431) = lu(k,1431) - lu(k,720) * lu(k,1421)
    4953   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,721) * lu(k,1421)
    4954   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,722) * lu(k,1421)
    4955   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,723) * lu(k,1421)
    4956   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,724) * lu(k,1421)
    4957   114070872 :          lu(k,1440) = - lu(k,725) * lu(k,1421)
    4958   114070872 :          lu(k,1445) = - lu(k,726) * lu(k,1421)
    4959   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,727) * lu(k,1421)
    4960   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,728) * lu(k,1421)
    4961   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,729) * lu(k,1421)
    4962   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,730) * lu(k,1421)
    4963   114070872 :          lu(k,1452) = - lu(k,731) * lu(k,1421)
    4964   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,732) * lu(k,1421)
    4965   114070872 :          lu(k,1469) = lu(k,1469) - lu(k,716) * lu(k,1468)
    4966   114070872 :          lu(k,1470) = lu(k,1470) - lu(k,717) * lu(k,1468)
    4967   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,718) * lu(k,1468)
    4968   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,719) * lu(k,1468)
    4969   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,720) * lu(k,1468)
    4970   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,721) * lu(k,1468)
    4971   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,722) * lu(k,1468)
    4972   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,723) * lu(k,1468)
    4973   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,724) * lu(k,1468)
    4974   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,725) * lu(k,1468)
    4975   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,726) * lu(k,1468)
    4976   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,727) * lu(k,1468)
    4977   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,728) * lu(k,1468)
    4978   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,729) * lu(k,1468)
    4979   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,730) * lu(k,1468)
    4980   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,731) * lu(k,1468)
    4981   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,732) * lu(k,1468)
    4982   114070872 :          lu(k,1720) = lu(k,1720) - lu(k,716) * lu(k,1719)
    4983   114070872 :          lu(k,1721) = lu(k,1721) - lu(k,717) * lu(k,1719)
    4984   114070872 :          lu(k,1723) = lu(k,1723) - lu(k,718) * lu(k,1719)
    4985   114070872 :          lu(k,1725) = lu(k,1725) - lu(k,719) * lu(k,1719)
    4986   114070872 :          lu(k,1727) = lu(k,1727) - lu(k,720) * lu(k,1719)
    4987   114070872 :          lu(k,1731) = lu(k,1731) - lu(k,721) * lu(k,1719)
    4988   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,722) * lu(k,1719)
    4989   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,723) * lu(k,1719)
    4990   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,724) * lu(k,1719)
    4991   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,725) * lu(k,1719)
    4992   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,726) * lu(k,1719)
    4993   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,727) * lu(k,1719)
    4994   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,728) * lu(k,1719)
    4995   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,729) * lu(k,1719)
    4996   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,730) * lu(k,1719)
    4997   114070872 :          lu(k,1748) = - lu(k,731) * lu(k,1719)
    4998   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,732) * lu(k,1719)
    4999   114070872 :          lu(k,1802) = lu(k,1802) - lu(k,716) * lu(k,1801)
    5000   114070872 :          lu(k,1803) = lu(k,1803) - lu(k,717) * lu(k,1801)
    5001   114070872 :          lu(k,1806) = lu(k,1806) - lu(k,718) * lu(k,1801)
    5002   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,719) * lu(k,1801)
    5003   114070872 :          lu(k,1811) = lu(k,1811) - lu(k,720) * lu(k,1801)
    5004   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,721) * lu(k,1801)
    5005   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,722) * lu(k,1801)
    5006   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,723) * lu(k,1801)
    5007   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,724) * lu(k,1801)
    5008   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,725) * lu(k,1801)
    5009   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,726) * lu(k,1801)
    5010   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,727) * lu(k,1801)
    5011   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,728) * lu(k,1801)
    5012   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,729) * lu(k,1801)
    5013   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,730) * lu(k,1801)
    5014   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,731) * lu(k,1801)
    5015   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,732) * lu(k,1801)
    5016   114070872 :          lu(k,1912) = lu(k,1912) - lu(k,716) * lu(k,1911)
    5017   114070872 :          lu(k,1913) = lu(k,1913) - lu(k,717) * lu(k,1911)
    5018   114070872 :          lu(k,1916) = lu(k,1916) - lu(k,718) * lu(k,1911)
    5019   114070872 :          lu(k,1918) = lu(k,1918) - lu(k,719) * lu(k,1911)
    5020   114070872 :          lu(k,1921) = lu(k,1921) - lu(k,720) * lu(k,1911)
    5021   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,721) * lu(k,1911)
    5022   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,722) * lu(k,1911)
    5023   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,723) * lu(k,1911)
    5024   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,724) * lu(k,1911)
    5025   114070872 :          lu(k,1930) = - lu(k,725) * lu(k,1911)
    5026   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,726) * lu(k,1911)
    5027   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,727) * lu(k,1911)
    5028   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,728) * lu(k,1911)
    5029   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,729) * lu(k,1911)
    5030   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,730) * lu(k,1911)
    5031   114070872 :          lu(k,1942) = - lu(k,731) * lu(k,1911)
    5032   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,732) * lu(k,1911)
    5033   114070872 :          lu(k,1954) = lu(k,1954) - lu(k,716) * lu(k,1953)
    5034   114070872 :          lu(k,1955) = lu(k,1955) - lu(k,717) * lu(k,1953)
    5035   114070872 :          lu(k,1958) = lu(k,1958) - lu(k,718) * lu(k,1953)
    5036   114070872 :          lu(k,1960) = lu(k,1960) - lu(k,719) * lu(k,1953)
    5037   114070872 :          lu(k,1963) = lu(k,1963) - lu(k,720) * lu(k,1953)
    5038   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,721) * lu(k,1953)
    5039   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,722) * lu(k,1953)
    5040   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,723) * lu(k,1953)
    5041   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,724) * lu(k,1953)
    5042   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,725) * lu(k,1953)
    5043   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,726) * lu(k,1953)
    5044   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,727) * lu(k,1953)
    5045   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,728) * lu(k,1953)
    5046   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,729) * lu(k,1953)
    5047   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,730) * lu(k,1953)
    5048   114070872 :          lu(k,1984) = - lu(k,731) * lu(k,1953)
    5049   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,732) * lu(k,1953)
    5050   114070872 :          lu(k,1998) = lu(k,1998) - lu(k,716) * lu(k,1997)
    5051   114070872 :          lu(k,1999) = lu(k,1999) - lu(k,717) * lu(k,1997)
    5052   114070872 :          lu(k,2003) = lu(k,2003) - lu(k,718) * lu(k,1997)
    5053   114070872 :          lu(k,2005) = lu(k,2005) - lu(k,719) * lu(k,1997)
    5054   114070872 :          lu(k,2008) = lu(k,2008) - lu(k,720) * lu(k,1997)
    5055   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,721) * lu(k,1997)
    5056   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,722) * lu(k,1997)
    5057   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,723) * lu(k,1997)
    5058   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,724) * lu(k,1997)
    5059   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,725) * lu(k,1997)
    5060   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,726) * lu(k,1997)
    5061   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,727) * lu(k,1997)
    5062   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,728) * lu(k,1997)
    5063   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,729) * lu(k,1997)
    5064   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,730) * lu(k,1997)
    5065   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,731) * lu(k,1997)
    5066   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,732) * lu(k,1997)
    5067   114070872 :          lu(k,2059) = lu(k,2059) - lu(k,716) * lu(k,2058)
    5068   114070872 :          lu(k,2060) = lu(k,2060) - lu(k,717) * lu(k,2058)
    5069   114070872 :          lu(k,2063) = lu(k,2063) - lu(k,718) * lu(k,2058)
    5070   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,719) * lu(k,2058)
    5071   114070872 :          lu(k,2068) = lu(k,2068) - lu(k,720) * lu(k,2058)
    5072   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,721) * lu(k,2058)
    5073   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,722) * lu(k,2058)
    5074   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,723) * lu(k,2058)
    5075   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,724) * lu(k,2058)
    5076   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,725) * lu(k,2058)
    5077   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,726) * lu(k,2058)
    5078   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,727) * lu(k,2058)
    5079   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,728) * lu(k,2058)
    5080   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,729) * lu(k,2058)
    5081   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,730) * lu(k,2058)
    5082   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,731) * lu(k,2058)
    5083   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,732) * lu(k,2058)
    5084             :       end do
    5085     3585597 :       end subroutine lu_fac17
    5086     3585597 :       subroutine lu_fac18( avec_len, lu )
    5087             :       use chem_mods, only : nzcnt
    5088             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5089             :       implicit none
    5090             : !-----------------------------------------------------------------------
    5091             : ! ... dummy args
    5092             : !-----------------------------------------------------------------------
    5093             :       integer, intent(in) :: avec_len
    5094             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5095             : !-----------------------------------------------------------------------
    5096             : ! ... local variables
    5097             : !-----------------------------------------------------------------------
    5098             :       integer :: k
    5099   117656469 :       do k = 1,avec_len
    5100   114070872 :          lu(k,738) = 1._r8 / lu(k,738)
    5101   114070872 :          lu(k,739) = lu(k,739) * lu(k,738)
    5102   114070872 :          lu(k,740) = lu(k,740) * lu(k,738)
    5103   114070872 :          lu(k,741) = lu(k,741) * lu(k,738)
    5104   114070872 :          lu(k,742) = lu(k,742) * lu(k,738)
    5105   114070872 :          lu(k,743) = lu(k,743) * lu(k,738)
    5106   114070872 :          lu(k,744) = lu(k,744) * lu(k,738)
    5107   114070872 :          lu(k,745) = lu(k,745) * lu(k,738)
    5108   114070872 :          lu(k,746) = lu(k,746) * lu(k,738)
    5109   114070872 :          lu(k,747) = lu(k,747) * lu(k,738)
    5110   114070872 :          lu(k,748) = lu(k,748) * lu(k,738)
    5111   114070872 :          lu(k,749) = lu(k,749) * lu(k,738)
    5112   114070872 :          lu(k,750) = lu(k,750) * lu(k,738)
    5113   114070872 :          lu(k,751) = lu(k,751) * lu(k,738)
    5114   114070872 :          lu(k,752) = lu(k,752) * lu(k,738)
    5115   114070872 :          lu(k,753) = lu(k,753) * lu(k,738)
    5116   114070872 :          lu(k,754) = lu(k,754) * lu(k,738)
    5117   114070872 :          lu(k,755) = lu(k,755) * lu(k,738)
    5118   114070872 :          lu(k,756) = lu(k,756) * lu(k,738)
    5119   114070872 :          lu(k,757) = lu(k,757) * lu(k,738)
    5120   114070872 :          lu(k,787) = lu(k,787) - lu(k,739) * lu(k,786)
    5121   114070872 :          lu(k,788) = lu(k,788) - lu(k,740) * lu(k,786)
    5122   114070872 :          lu(k,789) = lu(k,789) - lu(k,741) * lu(k,786)
    5123   114070872 :          lu(k,790) = lu(k,790) - lu(k,742) * lu(k,786)
    5124   114070872 :          lu(k,791) = lu(k,791) - lu(k,743) * lu(k,786)
    5125   114070872 :          lu(k,793) = lu(k,793) - lu(k,744) * lu(k,786)
    5126   114070872 :          lu(k,794) = lu(k,794) - lu(k,745) * lu(k,786)
    5127   114070872 :          lu(k,795) = lu(k,795) - lu(k,746) * lu(k,786)
    5128   114070872 :          lu(k,796) = lu(k,796) - lu(k,747) * lu(k,786)
    5129   114070872 :          lu(k,797) = lu(k,797) - lu(k,748) * lu(k,786)
    5130   114070872 :          lu(k,800) = lu(k,800) - lu(k,749) * lu(k,786)
    5131   114070872 :          lu(k,801) = lu(k,801) - lu(k,750) * lu(k,786)
    5132   114070872 :          lu(k,802) = lu(k,802) - lu(k,751) * lu(k,786)
    5133   114070872 :          lu(k,803) = lu(k,803) - lu(k,752) * lu(k,786)
    5134   114070872 :          lu(k,804) = lu(k,804) - lu(k,753) * lu(k,786)
    5135   114070872 :          lu(k,805) = lu(k,805) - lu(k,754) * lu(k,786)
    5136   114070872 :          lu(k,806) = lu(k,806) - lu(k,755) * lu(k,786)
    5137   114070872 :          lu(k,807) = lu(k,807) - lu(k,756) * lu(k,786)
    5138   114070872 :          lu(k,808) = lu(k,808) - lu(k,757) * lu(k,786)
    5139   114070872 :          lu(k,899) = lu(k,899) - lu(k,739) * lu(k,898)
    5140   114070872 :          lu(k,900) = lu(k,900) - lu(k,740) * lu(k,898)
    5141   114070872 :          lu(k,901) = lu(k,901) - lu(k,741) * lu(k,898)
    5142   114070872 :          lu(k,902) = lu(k,902) - lu(k,742) * lu(k,898)
    5143   114070872 :          lu(k,903) = lu(k,903) - lu(k,743) * lu(k,898)
    5144   114070872 :          lu(k,905) = lu(k,905) - lu(k,744) * lu(k,898)
    5145   114070872 :          lu(k,907) = lu(k,907) - lu(k,745) * lu(k,898)
    5146   114070872 :          lu(k,908) = lu(k,908) - lu(k,746) * lu(k,898)
    5147   114070872 :          lu(k,909) = lu(k,909) - lu(k,747) * lu(k,898)
    5148   114070872 :          lu(k,910) = lu(k,910) - lu(k,748) * lu(k,898)
    5149   114070872 :          lu(k,913) = lu(k,913) - lu(k,749) * lu(k,898)
    5150   114070872 :          lu(k,914) = lu(k,914) - lu(k,750) * lu(k,898)
    5151   114070872 :          lu(k,915) = lu(k,915) - lu(k,751) * lu(k,898)
    5152   114070872 :          lu(k,916) = lu(k,916) - lu(k,752) * lu(k,898)
    5153   114070872 :          lu(k,917) = lu(k,917) - lu(k,753) * lu(k,898)
    5154   114070872 :          lu(k,918) = lu(k,918) - lu(k,754) * lu(k,898)
    5155   114070872 :          lu(k,919) = lu(k,919) - lu(k,755) * lu(k,898)
    5156   114070872 :          lu(k,920) = lu(k,920) - lu(k,756) * lu(k,898)
    5157   114070872 :          lu(k,921) = lu(k,921) - lu(k,757) * lu(k,898)
    5158   114070872 :          lu(k,982) = lu(k,982) - lu(k,739) * lu(k,981)
    5159   114070872 :          lu(k,983) = lu(k,983) - lu(k,740) * lu(k,981)
    5160   114070872 :          lu(k,984) = lu(k,984) - lu(k,741) * lu(k,981)
    5161   114070872 :          lu(k,985) = lu(k,985) - lu(k,742) * lu(k,981)
    5162   114070872 :          lu(k,986) = lu(k,986) - lu(k,743) * lu(k,981)
    5163   114070872 :          lu(k,989) = lu(k,989) - lu(k,744) * lu(k,981)
    5164   114070872 :          lu(k,991) = lu(k,991) - lu(k,745) * lu(k,981)
    5165   114070872 :          lu(k,992) = lu(k,992) - lu(k,746) * lu(k,981)
    5166   114070872 :          lu(k,993) = lu(k,993) - lu(k,747) * lu(k,981)
    5167   114070872 :          lu(k,994) = lu(k,994) - lu(k,748) * lu(k,981)
    5168   114070872 :          lu(k,997) = lu(k,997) - lu(k,749) * lu(k,981)
    5169   114070872 :          lu(k,998) = lu(k,998) - lu(k,750) * lu(k,981)
    5170   114070872 :          lu(k,999) = lu(k,999) - lu(k,751) * lu(k,981)
    5171   114070872 :          lu(k,1000) = lu(k,1000) - lu(k,752) * lu(k,981)
    5172   114070872 :          lu(k,1001) = lu(k,1001) - lu(k,753) * lu(k,981)
    5173   114070872 :          lu(k,1002) = lu(k,1002) - lu(k,754) * lu(k,981)
    5174   114070872 :          lu(k,1003) = lu(k,1003) - lu(k,755) * lu(k,981)
    5175   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,756) * lu(k,981)
    5176   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,757) * lu(k,981)
    5177   114070872 :          lu(k,1095) = lu(k,1095) - lu(k,739) * lu(k,1094)
    5178   114070872 :          lu(k,1099) = lu(k,1099) - lu(k,740) * lu(k,1094)
    5179   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,741) * lu(k,1094)
    5180   114070872 :          lu(k,1103) = - lu(k,742) * lu(k,1094)
    5181   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,743) * lu(k,1094)
    5182   114070872 :          lu(k,1108) = lu(k,1108) - lu(k,744) * lu(k,1094)
    5183   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,745) * lu(k,1094)
    5184   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,746) * lu(k,1094)
    5185   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,747) * lu(k,1094)
    5186   114070872 :          lu(k,1113) = lu(k,1113) - lu(k,748) * lu(k,1094)
    5187   114070872 :          lu(k,1118) = lu(k,1118) - lu(k,749) * lu(k,1094)
    5188   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,750) * lu(k,1094)
    5189   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,751) * lu(k,1094)
    5190   114070872 :          lu(k,1121) = lu(k,1121) - lu(k,752) * lu(k,1094)
    5191   114070872 :          lu(k,1122) = lu(k,1122) - lu(k,753) * lu(k,1094)
    5192   114070872 :          lu(k,1123) = lu(k,1123) - lu(k,754) * lu(k,1094)
    5193   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,755) * lu(k,1094)
    5194   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,756) * lu(k,1094)
    5195   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,757) * lu(k,1094)
    5196   114070872 :          lu(k,1373) = lu(k,1373) - lu(k,739) * lu(k,1372)
    5197   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,740) * lu(k,1372)
    5198   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,741) * lu(k,1372)
    5199   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,742) * lu(k,1372)
    5200   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,743) * lu(k,1372)
    5201   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,744) * lu(k,1372)
    5202   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,745) * lu(k,1372)
    5203   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,746) * lu(k,1372)
    5204   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,747) * lu(k,1372)
    5205   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,748) * lu(k,1372)
    5206   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,749) * lu(k,1372)
    5207   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,750) * lu(k,1372)
    5208   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,751) * lu(k,1372)
    5209   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,752) * lu(k,1372)
    5210   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,753) * lu(k,1372)
    5211   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,754) * lu(k,1372)
    5212   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,755) * lu(k,1372)
    5213   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,756) * lu(k,1372)
    5214   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,757) * lu(k,1372)
    5215   114070872 :          lu(k,1423) = lu(k,1423) - lu(k,739) * lu(k,1422)
    5216   114070872 :          lu(k,1426) = lu(k,1426) - lu(k,740) * lu(k,1422)
    5217   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,741) * lu(k,1422)
    5218   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,742) * lu(k,1422)
    5219   114070872 :          lu(k,1431) = lu(k,1431) - lu(k,743) * lu(k,1422)
    5220   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,744) * lu(k,1422)
    5221   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,745) * lu(k,1422)
    5222   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,746) * lu(k,1422)
    5223   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,747) * lu(k,1422)
    5224   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,748) * lu(k,1422)
    5225   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,749) * lu(k,1422)
    5226   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,750) * lu(k,1422)
    5227   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,751) * lu(k,1422)
    5228   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,752) * lu(k,1422)
    5229   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,753) * lu(k,1422)
    5230   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,754) * lu(k,1422)
    5231   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,755) * lu(k,1422)
    5232   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,756) * lu(k,1422)
    5233   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,757) * lu(k,1422)
    5234   114070872 :          lu(k,1470) = lu(k,1470) - lu(k,739) * lu(k,1469)
    5235   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,740) * lu(k,1469)
    5236   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,741) * lu(k,1469)
    5237   114070872 :          lu(k,1478) = lu(k,1478) - lu(k,742) * lu(k,1469)
    5238   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,743) * lu(k,1469)
    5239   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,744) * lu(k,1469)
    5240   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,745) * lu(k,1469)
    5241   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,746) * lu(k,1469)
    5242   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,747) * lu(k,1469)
    5243   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,748) * lu(k,1469)
    5244   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,749) * lu(k,1469)
    5245   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,750) * lu(k,1469)
    5246   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,751) * lu(k,1469)
    5247   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,752) * lu(k,1469)
    5248   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,753) * lu(k,1469)
    5249   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,754) * lu(k,1469)
    5250   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,755) * lu(k,1469)
    5251   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,756) * lu(k,1469)
    5252   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,757) * lu(k,1469)
    5253   114070872 :          lu(k,1512) = lu(k,1512) - lu(k,739) * lu(k,1511)
    5254   114070872 :          lu(k,1515) = lu(k,1515) - lu(k,740) * lu(k,1511)
    5255   114070872 :          lu(k,1517) = lu(k,1517) - lu(k,741) * lu(k,1511)
    5256   114070872 :          lu(k,1519) = lu(k,1519) - lu(k,742) * lu(k,1511)
    5257   114070872 :          lu(k,1520) = lu(k,1520) - lu(k,743) * lu(k,1511)
    5258   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,744) * lu(k,1511)
    5259   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,745) * lu(k,1511)
    5260   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,746) * lu(k,1511)
    5261   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,747) * lu(k,1511)
    5262   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,748) * lu(k,1511)
    5263   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,749) * lu(k,1511)
    5264   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,750) * lu(k,1511)
    5265   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,751) * lu(k,1511)
    5266   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,752) * lu(k,1511)
    5267   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,753) * lu(k,1511)
    5268   114070872 :          lu(k,1539) = - lu(k,754) * lu(k,1511)
    5269   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,755) * lu(k,1511)
    5270   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,756) * lu(k,1511)
    5271   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,757) * lu(k,1511)
    5272   114070872 :          lu(k,1721) = lu(k,1721) - lu(k,739) * lu(k,1720)
    5273   114070872 :          lu(k,1723) = lu(k,1723) - lu(k,740) * lu(k,1720)
    5274   114070872 :          lu(k,1725) = lu(k,1725) - lu(k,741) * lu(k,1720)
    5275   114070872 :          lu(k,1726) = - lu(k,742) * lu(k,1720)
    5276   114070872 :          lu(k,1727) = lu(k,1727) - lu(k,743) * lu(k,1720)
    5277   114070872 :          lu(k,1731) = lu(k,1731) - lu(k,744) * lu(k,1720)
    5278   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,745) * lu(k,1720)
    5279   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,746) * lu(k,1720)
    5280   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,747) * lu(k,1720)
    5281   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,748) * lu(k,1720)
    5282   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,749) * lu(k,1720)
    5283   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,750) * lu(k,1720)
    5284   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,751) * lu(k,1720)
    5285   114070872 :          lu(k,1744) = - lu(k,752) * lu(k,1720)
    5286   114070872 :          lu(k,1745) = - lu(k,753) * lu(k,1720)
    5287   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,754) * lu(k,1720)
    5288   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,755) * lu(k,1720)
    5289   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,756) * lu(k,1720)
    5290   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,757) * lu(k,1720)
    5291   114070872 :          lu(k,1754) = lu(k,1754) - lu(k,739) * lu(k,1753)
    5292   114070872 :          lu(k,1758) = lu(k,1758) - lu(k,740) * lu(k,1753)
    5293   114070872 :          lu(k,1760) = lu(k,1760) - lu(k,741) * lu(k,1753)
    5294   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,742) * lu(k,1753)
    5295   114070872 :          lu(k,1763) = lu(k,1763) - lu(k,743) * lu(k,1753)
    5296   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,744) * lu(k,1753)
    5297   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,745) * lu(k,1753)
    5298   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,746) * lu(k,1753)
    5299   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,747) * lu(k,1753)
    5300   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,748) * lu(k,1753)
    5301   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,749) * lu(k,1753)
    5302   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,750) * lu(k,1753)
    5303   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,751) * lu(k,1753)
    5304   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,752) * lu(k,1753)
    5305   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,753) * lu(k,1753)
    5306   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,754) * lu(k,1753)
    5307   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,755) * lu(k,1753)
    5308   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,756) * lu(k,1753)
    5309   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,757) * lu(k,1753)
    5310   114070872 :          lu(k,1803) = lu(k,1803) - lu(k,739) * lu(k,1802)
    5311   114070872 :          lu(k,1806) = lu(k,1806) - lu(k,740) * lu(k,1802)
    5312   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,741) * lu(k,1802)
    5313   114070872 :          lu(k,1810) = lu(k,1810) - lu(k,742) * lu(k,1802)
    5314   114070872 :          lu(k,1811) = lu(k,1811) - lu(k,743) * lu(k,1802)
    5315   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,744) * lu(k,1802)
    5316   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,745) * lu(k,1802)
    5317   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,746) * lu(k,1802)
    5318   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,747) * lu(k,1802)
    5319   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,748) * lu(k,1802)
    5320   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,749) * lu(k,1802)
    5321   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,750) * lu(k,1802)
    5322   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,751) * lu(k,1802)
    5323   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,752) * lu(k,1802)
    5324   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,753) * lu(k,1802)
    5325   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,754) * lu(k,1802)
    5326   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,755) * lu(k,1802)
    5327   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,756) * lu(k,1802)
    5328   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,757) * lu(k,1802)
    5329   114070872 :          lu(k,1872) = lu(k,1872) - lu(k,739) * lu(k,1871)
    5330   114070872 :          lu(k,1875) = lu(k,1875) - lu(k,740) * lu(k,1871)
    5331   114070872 :          lu(k,1877) = lu(k,1877) - lu(k,741) * lu(k,1871)
    5332   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,742) * lu(k,1871)
    5333   114070872 :          lu(k,1880) = lu(k,1880) - lu(k,743) * lu(k,1871)
    5334   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,744) * lu(k,1871)
    5335   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,745) * lu(k,1871)
    5336   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,746) * lu(k,1871)
    5337   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,747) * lu(k,1871)
    5338   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,748) * lu(k,1871)
    5339   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,749) * lu(k,1871)
    5340   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,750) * lu(k,1871)
    5341   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,751) * lu(k,1871)
    5342   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,752) * lu(k,1871)
    5343   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,753) * lu(k,1871)
    5344   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,754) * lu(k,1871)
    5345   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,755) * lu(k,1871)
    5346   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,756) * lu(k,1871)
    5347   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,757) * lu(k,1871)
    5348   114070872 :          lu(k,1913) = lu(k,1913) - lu(k,739) * lu(k,1912)
    5349   114070872 :          lu(k,1916) = lu(k,1916) - lu(k,740) * lu(k,1912)
    5350   114070872 :          lu(k,1918) = lu(k,1918) - lu(k,741) * lu(k,1912)
    5351   114070872 :          lu(k,1920) = lu(k,1920) - lu(k,742) * lu(k,1912)
    5352   114070872 :          lu(k,1921) = lu(k,1921) - lu(k,743) * lu(k,1912)
    5353   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,744) * lu(k,1912)
    5354   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,745) * lu(k,1912)
    5355   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,746) * lu(k,1912)
    5356   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,747) * lu(k,1912)
    5357   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,748) * lu(k,1912)
    5358   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,749) * lu(k,1912)
    5359   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,750) * lu(k,1912)
    5360   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,751) * lu(k,1912)
    5361   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,752) * lu(k,1912)
    5362   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,753) * lu(k,1912)
    5363   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,754) * lu(k,1912)
    5364   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,755) * lu(k,1912)
    5365   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,756) * lu(k,1912)
    5366   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,757) * lu(k,1912)
    5367   114070872 :          lu(k,1955) = lu(k,1955) - lu(k,739) * lu(k,1954)
    5368   114070872 :          lu(k,1958) = lu(k,1958) - lu(k,740) * lu(k,1954)
    5369   114070872 :          lu(k,1960) = lu(k,1960) - lu(k,741) * lu(k,1954)
    5370   114070872 :          lu(k,1962) = lu(k,1962) - lu(k,742) * lu(k,1954)
    5371   114070872 :          lu(k,1963) = lu(k,1963) - lu(k,743) * lu(k,1954)
    5372   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,744) * lu(k,1954)
    5373   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,745) * lu(k,1954)
    5374   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,746) * lu(k,1954)
    5375   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,747) * lu(k,1954)
    5376   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,748) * lu(k,1954)
    5377   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,749) * lu(k,1954)
    5378   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,750) * lu(k,1954)
    5379   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,751) * lu(k,1954)
    5380   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,752) * lu(k,1954)
    5381   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,753) * lu(k,1954)
    5382   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,754) * lu(k,1954)
    5383   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,755) * lu(k,1954)
    5384   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,756) * lu(k,1954)
    5385   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,757) * lu(k,1954)
    5386   114070872 :          lu(k,1999) = lu(k,1999) - lu(k,739) * lu(k,1998)
    5387   114070872 :          lu(k,2003) = lu(k,2003) - lu(k,740) * lu(k,1998)
    5388   114070872 :          lu(k,2005) = lu(k,2005) - lu(k,741) * lu(k,1998)
    5389   114070872 :          lu(k,2007) = - lu(k,742) * lu(k,1998)
    5390   114070872 :          lu(k,2008) = lu(k,2008) - lu(k,743) * lu(k,1998)
    5391   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,744) * lu(k,1998)
    5392   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,745) * lu(k,1998)
    5393   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,746) * lu(k,1998)
    5394   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,747) * lu(k,1998)
    5395   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,748) * lu(k,1998)
    5396   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,749) * lu(k,1998)
    5397   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,750) * lu(k,1998)
    5398   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,751) * lu(k,1998)
    5399   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,752) * lu(k,1998)
    5400   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,753) * lu(k,1998)
    5401   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,754) * lu(k,1998)
    5402   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,755) * lu(k,1998)
    5403   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,756) * lu(k,1998)
    5404   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,757) * lu(k,1998)
    5405   114070872 :          lu(k,2060) = lu(k,2060) - lu(k,739) * lu(k,2059)
    5406   114070872 :          lu(k,2063) = lu(k,2063) - lu(k,740) * lu(k,2059)
    5407   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,741) * lu(k,2059)
    5408   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,742) * lu(k,2059)
    5409   114070872 :          lu(k,2068) = lu(k,2068) - lu(k,743) * lu(k,2059)
    5410   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,744) * lu(k,2059)
    5411   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,745) * lu(k,2059)
    5412   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,746) * lu(k,2059)
    5413   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,747) * lu(k,2059)
    5414   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,748) * lu(k,2059)
    5415   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,749) * lu(k,2059)
    5416   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,750) * lu(k,2059)
    5417   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,751) * lu(k,2059)
    5418   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,752) * lu(k,2059)
    5419   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,753) * lu(k,2059)
    5420   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,754) * lu(k,2059)
    5421   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,755) * lu(k,2059)
    5422   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,756) * lu(k,2059)
    5423   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,757) * lu(k,2059)
    5424   114070872 :          lu(k,787) = 1._r8 / lu(k,787)
    5425   114070872 :          lu(k,788) = lu(k,788) * lu(k,787)
    5426   114070872 :          lu(k,789) = lu(k,789) * lu(k,787)
    5427   114070872 :          lu(k,790) = lu(k,790) * lu(k,787)
    5428   114070872 :          lu(k,791) = lu(k,791) * lu(k,787)
    5429   114070872 :          lu(k,792) = lu(k,792) * lu(k,787)
    5430   114070872 :          lu(k,793) = lu(k,793) * lu(k,787)
    5431   114070872 :          lu(k,794) = lu(k,794) * lu(k,787)
    5432   114070872 :          lu(k,795) = lu(k,795) * lu(k,787)
    5433   114070872 :          lu(k,796) = lu(k,796) * lu(k,787)
    5434   114070872 :          lu(k,797) = lu(k,797) * lu(k,787)
    5435   114070872 :          lu(k,798) = lu(k,798) * lu(k,787)
    5436   114070872 :          lu(k,799) = lu(k,799) * lu(k,787)
    5437   114070872 :          lu(k,800) = lu(k,800) * lu(k,787)
    5438   114070872 :          lu(k,801) = lu(k,801) * lu(k,787)
    5439   114070872 :          lu(k,802) = lu(k,802) * lu(k,787)
    5440   114070872 :          lu(k,803) = lu(k,803) * lu(k,787)
    5441   114070872 :          lu(k,804) = lu(k,804) * lu(k,787)
    5442   114070872 :          lu(k,805) = lu(k,805) * lu(k,787)
    5443   114070872 :          lu(k,806) = lu(k,806) * lu(k,787)
    5444   114070872 :          lu(k,807) = lu(k,807) * lu(k,787)
    5445   114070872 :          lu(k,808) = lu(k,808) * lu(k,787)
    5446   114070872 :          lu(k,900) = lu(k,900) - lu(k,788) * lu(k,899)
    5447   114070872 :          lu(k,901) = lu(k,901) - lu(k,789) * lu(k,899)
    5448   114070872 :          lu(k,902) = lu(k,902) - lu(k,790) * lu(k,899)
    5449   114070872 :          lu(k,903) = lu(k,903) - lu(k,791) * lu(k,899)
    5450   114070872 :          lu(k,904) = lu(k,904) - lu(k,792) * lu(k,899)
    5451   114070872 :          lu(k,905) = lu(k,905) - lu(k,793) * lu(k,899)
    5452   114070872 :          lu(k,907) = lu(k,907) - lu(k,794) * lu(k,899)
    5453   114070872 :          lu(k,908) = lu(k,908) - lu(k,795) * lu(k,899)
    5454   114070872 :          lu(k,909) = lu(k,909) - lu(k,796) * lu(k,899)
    5455   114070872 :          lu(k,910) = lu(k,910) - lu(k,797) * lu(k,899)
    5456   114070872 :          lu(k,911) = - lu(k,798) * lu(k,899)
    5457   114070872 :          lu(k,912) = - lu(k,799) * lu(k,899)
    5458   114070872 :          lu(k,913) = lu(k,913) - lu(k,800) * lu(k,899)
    5459   114070872 :          lu(k,914) = lu(k,914) - lu(k,801) * lu(k,899)
    5460   114070872 :          lu(k,915) = lu(k,915) - lu(k,802) * lu(k,899)
    5461   114070872 :          lu(k,916) = lu(k,916) - lu(k,803) * lu(k,899)
    5462   114070872 :          lu(k,917) = lu(k,917) - lu(k,804) * lu(k,899)
    5463   114070872 :          lu(k,918) = lu(k,918) - lu(k,805) * lu(k,899)
    5464   114070872 :          lu(k,919) = lu(k,919) - lu(k,806) * lu(k,899)
    5465   114070872 :          lu(k,920) = lu(k,920) - lu(k,807) * lu(k,899)
    5466   114070872 :          lu(k,921) = lu(k,921) - lu(k,808) * lu(k,899)
    5467   114070872 :          lu(k,983) = lu(k,983) - lu(k,788) * lu(k,982)
    5468   114070872 :          lu(k,984) = lu(k,984) - lu(k,789) * lu(k,982)
    5469   114070872 :          lu(k,985) = lu(k,985) - lu(k,790) * lu(k,982)
    5470   114070872 :          lu(k,986) = lu(k,986) - lu(k,791) * lu(k,982)
    5471   114070872 :          lu(k,988) = lu(k,988) - lu(k,792) * lu(k,982)
    5472   114070872 :          lu(k,989) = lu(k,989) - lu(k,793) * lu(k,982)
    5473   114070872 :          lu(k,991) = lu(k,991) - lu(k,794) * lu(k,982)
    5474   114070872 :          lu(k,992) = lu(k,992) - lu(k,795) * lu(k,982)
    5475   114070872 :          lu(k,993) = lu(k,993) - lu(k,796) * lu(k,982)
    5476   114070872 :          lu(k,994) = lu(k,994) - lu(k,797) * lu(k,982)
    5477   114070872 :          lu(k,995) = - lu(k,798) * lu(k,982)
    5478   114070872 :          lu(k,996) = lu(k,996) - lu(k,799) * lu(k,982)
    5479   114070872 :          lu(k,997) = lu(k,997) - lu(k,800) * lu(k,982)
    5480   114070872 :          lu(k,998) = lu(k,998) - lu(k,801) * lu(k,982)
    5481   114070872 :          lu(k,999) = lu(k,999) - lu(k,802) * lu(k,982)
    5482   114070872 :          lu(k,1000) = lu(k,1000) - lu(k,803) * lu(k,982)
    5483   114070872 :          lu(k,1001) = lu(k,1001) - lu(k,804) * lu(k,982)
    5484   114070872 :          lu(k,1002) = lu(k,1002) - lu(k,805) * lu(k,982)
    5485   114070872 :          lu(k,1003) = lu(k,1003) - lu(k,806) * lu(k,982)
    5486   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,807) * lu(k,982)
    5487   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,808) * lu(k,982)
    5488   114070872 :          lu(k,1056) = lu(k,1056) - lu(k,788) * lu(k,1055)
    5489   114070872 :          lu(k,1057) = lu(k,1057) - lu(k,789) * lu(k,1055)
    5490   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,790) * lu(k,1055)
    5491   114070872 :          lu(k,1059) = - lu(k,791) * lu(k,1055)
    5492   114070872 :          lu(k,1062) = lu(k,1062) - lu(k,792) * lu(k,1055)
    5493   114070872 :          lu(k,1063) = lu(k,1063) - lu(k,793) * lu(k,1055)
    5494   114070872 :          lu(k,1065) = lu(k,1065) - lu(k,794) * lu(k,1055)
    5495   114070872 :          lu(k,1066) = lu(k,1066) - lu(k,795) * lu(k,1055)
    5496   114070872 :          lu(k,1067) = - lu(k,796) * lu(k,1055)
    5497   114070872 :          lu(k,1068) = - lu(k,797) * lu(k,1055)
    5498   114070872 :          lu(k,1069) = lu(k,1069) - lu(k,798) * lu(k,1055)
    5499   114070872 :          lu(k,1070) = lu(k,1070) - lu(k,799) * lu(k,1055)
    5500   114070872 :          lu(k,1073) = - lu(k,800) * lu(k,1055)
    5501   114070872 :          lu(k,1074) = lu(k,1074) - lu(k,801) * lu(k,1055)
    5502   114070872 :          lu(k,1075) = lu(k,1075) - lu(k,802) * lu(k,1055)
    5503   114070872 :          lu(k,1076) = - lu(k,803) * lu(k,1055)
    5504   114070872 :          lu(k,1077) = lu(k,1077) - lu(k,804) * lu(k,1055)
    5505   114070872 :          lu(k,1078) = lu(k,1078) - lu(k,805) * lu(k,1055)
    5506   114070872 :          lu(k,1079) = lu(k,1079) - lu(k,806) * lu(k,1055)
    5507   114070872 :          lu(k,1080) = - lu(k,807) * lu(k,1055)
    5508   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,808) * lu(k,1055)
    5509   114070872 :          lu(k,1099) = lu(k,1099) - lu(k,788) * lu(k,1095)
    5510   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,789) * lu(k,1095)
    5511   114070872 :          lu(k,1103) = lu(k,1103) - lu(k,790) * lu(k,1095)
    5512   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,791) * lu(k,1095)
    5513   114070872 :          lu(k,1107) = - lu(k,792) * lu(k,1095)
    5514   114070872 :          lu(k,1108) = lu(k,1108) - lu(k,793) * lu(k,1095)
    5515   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,794) * lu(k,1095)
    5516   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,795) * lu(k,1095)
    5517   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,796) * lu(k,1095)
    5518   114070872 :          lu(k,1113) = lu(k,1113) - lu(k,797) * lu(k,1095)
    5519   114070872 :          lu(k,1114) = lu(k,1114) - lu(k,798) * lu(k,1095)
    5520   114070872 :          lu(k,1115) = - lu(k,799) * lu(k,1095)
    5521   114070872 :          lu(k,1118) = lu(k,1118) - lu(k,800) * lu(k,1095)
    5522   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,801) * lu(k,1095)
    5523   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,802) * lu(k,1095)
    5524   114070872 :          lu(k,1121) = lu(k,1121) - lu(k,803) * lu(k,1095)
    5525   114070872 :          lu(k,1122) = lu(k,1122) - lu(k,804) * lu(k,1095)
    5526   114070872 :          lu(k,1123) = lu(k,1123) - lu(k,805) * lu(k,1095)
    5527   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,806) * lu(k,1095)
    5528   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,807) * lu(k,1095)
    5529   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,808) * lu(k,1095)
    5530   114070872 :          lu(k,1147) = lu(k,1147) - lu(k,788) * lu(k,1143)
    5531   114070872 :          lu(k,1149) = lu(k,1149) - lu(k,789) * lu(k,1143)
    5532   114070872 :          lu(k,1151) = lu(k,1151) - lu(k,790) * lu(k,1143)
    5533   114070872 :          lu(k,1152) = - lu(k,791) * lu(k,1143)
    5534   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,792) * lu(k,1143)
    5535   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,793) * lu(k,1143)
    5536   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,794) * lu(k,1143)
    5537   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,795) * lu(k,1143)
    5538   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,796) * lu(k,1143)
    5539   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,797) * lu(k,1143)
    5540   114070872 :          lu(k,1162) = lu(k,1162) - lu(k,798) * lu(k,1143)
    5541   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,799) * lu(k,1143)
    5542   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,800) * lu(k,1143)
    5543   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,801) * lu(k,1143)
    5544   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,802) * lu(k,1143)
    5545   114070872 :          lu(k,1169) = - lu(k,803) * lu(k,1143)
    5546   114070872 :          lu(k,1170) = - lu(k,804) * lu(k,1143)
    5547   114070872 :          lu(k,1171) = - lu(k,805) * lu(k,1143)
    5548   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,806) * lu(k,1143)
    5549   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,807) * lu(k,1143)
    5550   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,808) * lu(k,1143)
    5551   114070872 :          lu(k,1275) = lu(k,1275) - lu(k,788) * lu(k,1272)
    5552   114070872 :          lu(k,1277) = lu(k,1277) - lu(k,789) * lu(k,1272)
    5553   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,790) * lu(k,1272)
    5554   114070872 :          lu(k,1280) = - lu(k,791) * lu(k,1272)
    5555   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,792) * lu(k,1272)
    5556   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,793) * lu(k,1272)
    5557   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,794) * lu(k,1272)
    5558   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,795) * lu(k,1272)
    5559   114070872 :          lu(k,1288) = - lu(k,796) * lu(k,1272)
    5560   114070872 :          lu(k,1289) = - lu(k,797) * lu(k,1272)
    5561   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,798) * lu(k,1272)
    5562   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,799) * lu(k,1272)
    5563   114070872 :          lu(k,1294) = - lu(k,800) * lu(k,1272)
    5564   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,801) * lu(k,1272)
    5565   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,802) * lu(k,1272)
    5566   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,803) * lu(k,1272)
    5567   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,804) * lu(k,1272)
    5568   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,805) * lu(k,1272)
    5569   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,806) * lu(k,1272)
    5570   114070872 :          lu(k,1301) = - lu(k,807) * lu(k,1272)
    5571   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,808) * lu(k,1272)
    5572   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,788) * lu(k,1373)
    5573   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,789) * lu(k,1373)
    5574   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,790) * lu(k,1373)
    5575   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,791) * lu(k,1373)
    5576   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,792) * lu(k,1373)
    5577   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,793) * lu(k,1373)
    5578   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,794) * lu(k,1373)
    5579   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,795) * lu(k,1373)
    5580   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,796) * lu(k,1373)
    5581   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,797) * lu(k,1373)
    5582   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,798) * lu(k,1373)
    5583   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,799) * lu(k,1373)
    5584   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,800) * lu(k,1373)
    5585   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,801) * lu(k,1373)
    5586   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,802) * lu(k,1373)
    5587   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,803) * lu(k,1373)
    5588   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,804) * lu(k,1373)
    5589   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,805) * lu(k,1373)
    5590   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,806) * lu(k,1373)
    5591   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,807) * lu(k,1373)
    5592   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,808) * lu(k,1373)
    5593   114070872 :          lu(k,1426) = lu(k,1426) - lu(k,788) * lu(k,1423)
    5594   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,789) * lu(k,1423)
    5595   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,790) * lu(k,1423)
    5596   114070872 :          lu(k,1431) = lu(k,1431) - lu(k,791) * lu(k,1423)
    5597   114070872 :          lu(k,1434) = lu(k,1434) - lu(k,792) * lu(k,1423)
    5598   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,793) * lu(k,1423)
    5599   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,794) * lu(k,1423)
    5600   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,795) * lu(k,1423)
    5601   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,796) * lu(k,1423)
    5602   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,797) * lu(k,1423)
    5603   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,798) * lu(k,1423)
    5604   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,799) * lu(k,1423)
    5605   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,800) * lu(k,1423)
    5606   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,801) * lu(k,1423)
    5607   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,802) * lu(k,1423)
    5608   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,803) * lu(k,1423)
    5609   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,804) * lu(k,1423)
    5610   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,805) * lu(k,1423)
    5611   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,806) * lu(k,1423)
    5612   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,807) * lu(k,1423)
    5613   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,808) * lu(k,1423)
    5614   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,788) * lu(k,1470)
    5615   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,789) * lu(k,1470)
    5616   114070872 :          lu(k,1478) = lu(k,1478) - lu(k,790) * lu(k,1470)
    5617   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,791) * lu(k,1470)
    5618   114070872 :          lu(k,1482) = - lu(k,792) * lu(k,1470)
    5619   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,793) * lu(k,1470)
    5620   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,794) * lu(k,1470)
    5621   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,795) * lu(k,1470)
    5622   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,796) * lu(k,1470)
    5623   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,797) * lu(k,1470)
    5624   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,798) * lu(k,1470)
    5625   114070872 :          lu(k,1490) = - lu(k,799) * lu(k,1470)
    5626   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,800) * lu(k,1470)
    5627   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,801) * lu(k,1470)
    5628   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,802) * lu(k,1470)
    5629   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,803) * lu(k,1470)
    5630   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,804) * lu(k,1470)
    5631   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,805) * lu(k,1470)
    5632   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,806) * lu(k,1470)
    5633   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,807) * lu(k,1470)
    5634   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,808) * lu(k,1470)
    5635   114070872 :          lu(k,1515) = lu(k,1515) - lu(k,788) * lu(k,1512)
    5636   114070872 :          lu(k,1517) = lu(k,1517) - lu(k,789) * lu(k,1512)
    5637   114070872 :          lu(k,1519) = lu(k,1519) - lu(k,790) * lu(k,1512)
    5638   114070872 :          lu(k,1520) = lu(k,1520) - lu(k,791) * lu(k,1512)
    5639   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,792) * lu(k,1512)
    5640   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,793) * lu(k,1512)
    5641   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,794) * lu(k,1512)
    5642   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,795) * lu(k,1512)
    5643   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,796) * lu(k,1512)
    5644   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,797) * lu(k,1512)
    5645   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,798) * lu(k,1512)
    5646   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,799) * lu(k,1512)
    5647   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,800) * lu(k,1512)
    5648   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,801) * lu(k,1512)
    5649   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,802) * lu(k,1512)
    5650   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,803) * lu(k,1512)
    5651   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,804) * lu(k,1512)
    5652   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,805) * lu(k,1512)
    5653   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,806) * lu(k,1512)
    5654   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,807) * lu(k,1512)
    5655   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,808) * lu(k,1512)
    5656   114070872 :          lu(k,1596) = lu(k,1596) - lu(k,788) * lu(k,1592)
    5657   114070872 :          lu(k,1598) = lu(k,1598) - lu(k,789) * lu(k,1592)
    5658   114070872 :          lu(k,1600) = lu(k,1600) - lu(k,790) * lu(k,1592)
    5659   114070872 :          lu(k,1601) = - lu(k,791) * lu(k,1592)
    5660   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,792) * lu(k,1592)
    5661   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,793) * lu(k,1592)
    5662   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,794) * lu(k,1592)
    5663   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,795) * lu(k,1592)
    5664   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,796) * lu(k,1592)
    5665   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,797) * lu(k,1592)
    5666   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,798) * lu(k,1592)
    5667   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,799) * lu(k,1592)
    5668   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,800) * lu(k,1592)
    5669   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,801) * lu(k,1592)
    5670   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,802) * lu(k,1592)
    5671   114070872 :          lu(k,1618) = - lu(k,803) * lu(k,1592)
    5672   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,804) * lu(k,1592)
    5673   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,805) * lu(k,1592)
    5674   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,806) * lu(k,1592)
    5675   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,807) * lu(k,1592)
    5676   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,808) * lu(k,1592)
    5677   114070872 :          lu(k,1723) = lu(k,1723) - lu(k,788) * lu(k,1721)
    5678   114070872 :          lu(k,1725) = lu(k,1725) - lu(k,789) * lu(k,1721)
    5679   114070872 :          lu(k,1726) = lu(k,1726) - lu(k,790) * lu(k,1721)
    5680   114070872 :          lu(k,1727) = lu(k,1727) - lu(k,791) * lu(k,1721)
    5681   114070872 :          lu(k,1730) = lu(k,1730) - lu(k,792) * lu(k,1721)
    5682   114070872 :          lu(k,1731) = lu(k,1731) - lu(k,793) * lu(k,1721)
    5683   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,794) * lu(k,1721)
    5684   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,795) * lu(k,1721)
    5685   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,796) * lu(k,1721)
    5686   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,797) * lu(k,1721)
    5687   114070872 :          lu(k,1737) = - lu(k,798) * lu(k,1721)
    5688   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,799) * lu(k,1721)
    5689   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,800) * lu(k,1721)
    5690   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,801) * lu(k,1721)
    5691   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,802) * lu(k,1721)
    5692   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,803) * lu(k,1721)
    5693   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,804) * lu(k,1721)
    5694   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,805) * lu(k,1721)
    5695   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,806) * lu(k,1721)
    5696   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,807) * lu(k,1721)
    5697   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,808) * lu(k,1721)
    5698   114070872 :          lu(k,1758) = lu(k,1758) - lu(k,788) * lu(k,1754)
    5699   114070872 :          lu(k,1760) = lu(k,1760) - lu(k,789) * lu(k,1754)
    5700   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,790) * lu(k,1754)
    5701   114070872 :          lu(k,1763) = lu(k,1763) - lu(k,791) * lu(k,1754)
    5702   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,792) * lu(k,1754)
    5703   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,793) * lu(k,1754)
    5704   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,794) * lu(k,1754)
    5705   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,795) * lu(k,1754)
    5706   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,796) * lu(k,1754)
    5707   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,797) * lu(k,1754)
    5708   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,798) * lu(k,1754)
    5709   114070872 :          lu(k,1774) = - lu(k,799) * lu(k,1754)
    5710   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,800) * lu(k,1754)
    5711   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,801) * lu(k,1754)
    5712   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,802) * lu(k,1754)
    5713   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,803) * lu(k,1754)
    5714   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,804) * lu(k,1754)
    5715   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,805) * lu(k,1754)
    5716   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,806) * lu(k,1754)
    5717   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,807) * lu(k,1754)
    5718   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,808) * lu(k,1754)
    5719   114070872 :          lu(k,1806) = lu(k,1806) - lu(k,788) * lu(k,1803)
    5720   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,789) * lu(k,1803)
    5721   114070872 :          lu(k,1810) = lu(k,1810) - lu(k,790) * lu(k,1803)
    5722   114070872 :          lu(k,1811) = lu(k,1811) - lu(k,791) * lu(k,1803)
    5723   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,792) * lu(k,1803)
    5724   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,793) * lu(k,1803)
    5725   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,794) * lu(k,1803)
    5726   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,795) * lu(k,1803)
    5727   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,796) * lu(k,1803)
    5728   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,797) * lu(k,1803)
    5729   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,798) * lu(k,1803)
    5730   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,799) * lu(k,1803)
    5731   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,800) * lu(k,1803)
    5732   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,801) * lu(k,1803)
    5733   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,802) * lu(k,1803)
    5734   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,803) * lu(k,1803)
    5735   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,804) * lu(k,1803)
    5736   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,805) * lu(k,1803)
    5737   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,806) * lu(k,1803)
    5738   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,807) * lu(k,1803)
    5739   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,808) * lu(k,1803)
    5740   114070872 :          lu(k,1875) = lu(k,1875) - lu(k,788) * lu(k,1872)
    5741   114070872 :          lu(k,1877) = lu(k,1877) - lu(k,789) * lu(k,1872)
    5742   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,790) * lu(k,1872)
    5743   114070872 :          lu(k,1880) = lu(k,1880) - lu(k,791) * lu(k,1872)
    5744   114070872 :          lu(k,1883) = lu(k,1883) - lu(k,792) * lu(k,1872)
    5745   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,793) * lu(k,1872)
    5746   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,794) * lu(k,1872)
    5747   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,795) * lu(k,1872)
    5748   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,796) * lu(k,1872)
    5749   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,797) * lu(k,1872)
    5750   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,798) * lu(k,1872)
    5751   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,799) * lu(k,1872)
    5752   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,800) * lu(k,1872)
    5753   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,801) * lu(k,1872)
    5754   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,802) * lu(k,1872)
    5755   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,803) * lu(k,1872)
    5756   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,804) * lu(k,1872)
    5757   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,805) * lu(k,1872)
    5758   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,806) * lu(k,1872)
    5759   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,807) * lu(k,1872)
    5760   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,808) * lu(k,1872)
    5761   114070872 :          lu(k,1916) = lu(k,1916) - lu(k,788) * lu(k,1913)
    5762   114070872 :          lu(k,1918) = lu(k,1918) - lu(k,789) * lu(k,1913)
    5763   114070872 :          lu(k,1920) = lu(k,1920) - lu(k,790) * lu(k,1913)
    5764   114070872 :          lu(k,1921) = lu(k,1921) - lu(k,791) * lu(k,1913)
    5765   114070872 :          lu(k,1924) = lu(k,1924) - lu(k,792) * lu(k,1913)
    5766   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,793) * lu(k,1913)
    5767   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,794) * lu(k,1913)
    5768   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,795) * lu(k,1913)
    5769   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,796) * lu(k,1913)
    5770   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,797) * lu(k,1913)
    5771   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,798) * lu(k,1913)
    5772   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,799) * lu(k,1913)
    5773   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,800) * lu(k,1913)
    5774   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,801) * lu(k,1913)
    5775   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,802) * lu(k,1913)
    5776   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,803) * lu(k,1913)
    5777   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,804) * lu(k,1913)
    5778   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,805) * lu(k,1913)
    5779   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,806) * lu(k,1913)
    5780   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,807) * lu(k,1913)
    5781   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,808) * lu(k,1913)
    5782   114070872 :          lu(k,1958) = lu(k,1958) - lu(k,788) * lu(k,1955)
    5783   114070872 :          lu(k,1960) = lu(k,1960) - lu(k,789) * lu(k,1955)
    5784   114070872 :          lu(k,1962) = lu(k,1962) - lu(k,790) * lu(k,1955)
    5785   114070872 :          lu(k,1963) = lu(k,1963) - lu(k,791) * lu(k,1955)
    5786   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,792) * lu(k,1955)
    5787   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,793) * lu(k,1955)
    5788   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,794) * lu(k,1955)
    5789   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,795) * lu(k,1955)
    5790   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,796) * lu(k,1955)
    5791   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,797) * lu(k,1955)
    5792   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,798) * lu(k,1955)
    5793   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,799) * lu(k,1955)
    5794   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,800) * lu(k,1955)
    5795   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,801) * lu(k,1955)
    5796   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,802) * lu(k,1955)
    5797   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,803) * lu(k,1955)
    5798   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,804) * lu(k,1955)
    5799   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,805) * lu(k,1955)
    5800   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,806) * lu(k,1955)
    5801   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,807) * lu(k,1955)
    5802   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,808) * lu(k,1955)
    5803   114070872 :          lu(k,2003) = lu(k,2003) - lu(k,788) * lu(k,1999)
    5804   114070872 :          lu(k,2005) = lu(k,2005) - lu(k,789) * lu(k,1999)
    5805   114070872 :          lu(k,2007) = lu(k,2007) - lu(k,790) * lu(k,1999)
    5806   114070872 :          lu(k,2008) = lu(k,2008) - lu(k,791) * lu(k,1999)
    5807   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,792) * lu(k,1999)
    5808   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,793) * lu(k,1999)
    5809   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,794) * lu(k,1999)
    5810   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,795) * lu(k,1999)
    5811   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,796) * lu(k,1999)
    5812   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,797) * lu(k,1999)
    5813   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,798) * lu(k,1999)
    5814   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,799) * lu(k,1999)
    5815   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,800) * lu(k,1999)
    5816   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,801) * lu(k,1999)
    5817   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,802) * lu(k,1999)
    5818   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,803) * lu(k,1999)
    5819   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,804) * lu(k,1999)
    5820   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,805) * lu(k,1999)
    5821   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,806) * lu(k,1999)
    5822   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,807) * lu(k,1999)
    5823   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,808) * lu(k,1999)
    5824   114070872 :          lu(k,2063) = lu(k,2063) - lu(k,788) * lu(k,2060)
    5825   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,789) * lu(k,2060)
    5826   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,790) * lu(k,2060)
    5827   114070872 :          lu(k,2068) = lu(k,2068) - lu(k,791) * lu(k,2060)
    5828   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,792) * lu(k,2060)
    5829   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,793) * lu(k,2060)
    5830   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,794) * lu(k,2060)
    5831   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,795) * lu(k,2060)
    5832   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,796) * lu(k,2060)
    5833   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,797) * lu(k,2060)
    5834   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,798) * lu(k,2060)
    5835   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,799) * lu(k,2060)
    5836   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,800) * lu(k,2060)
    5837   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,801) * lu(k,2060)
    5838   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,802) * lu(k,2060)
    5839   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,803) * lu(k,2060)
    5840   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,804) * lu(k,2060)
    5841   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,805) * lu(k,2060)
    5842   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,806) * lu(k,2060)
    5843   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,807) * lu(k,2060)
    5844   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,808) * lu(k,2060)
    5845             :       end do
    5846     3585597 :       end subroutine lu_fac18
    5847     3585597 :       subroutine lu_fac19( avec_len, lu )
    5848             :       use chem_mods, only : nzcnt
    5849             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5850             :       implicit none
    5851             : !-----------------------------------------------------------------------
    5852             : ! ... dummy args
    5853             : !-----------------------------------------------------------------------
    5854             :       integer, intent(in) :: avec_len
    5855             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5856             : !-----------------------------------------------------------------------
    5857             : ! ... local variables
    5858             : !-----------------------------------------------------------------------
    5859             :       integer :: k
    5860   117656469 :       do k = 1,avec_len
    5861   114070872 :          lu(k,811) = 1._r8 / lu(k,811)
    5862   114070872 :          lu(k,812) = lu(k,812) * lu(k,811)
    5863   114070872 :          lu(k,813) = lu(k,813) * lu(k,811)
    5864   114070872 :          lu(k,814) = lu(k,814) * lu(k,811)
    5865   114070872 :          lu(k,815) = lu(k,815) * lu(k,811)
    5866   114070872 :          lu(k,816) = lu(k,816) * lu(k,811)
    5867   114070872 :          lu(k,817) = lu(k,817) * lu(k,811)
    5868   114070872 :          lu(k,818) = lu(k,818) * lu(k,811)
    5869   114070872 :          lu(k,819) = lu(k,819) * lu(k,811)
    5870   114070872 :          lu(k,820) = lu(k,820) * lu(k,811)
    5871   114070872 :          lu(k,821) = lu(k,821) * lu(k,811)
    5872   114070872 :          lu(k,822) = lu(k,822) * lu(k,811)
    5873   114070872 :          lu(k,823) = lu(k,823) * lu(k,811)
    5874   114070872 :          lu(k,824) = lu(k,824) * lu(k,811)
    5875   114070872 :          lu(k,825) = lu(k,825) * lu(k,811)
    5876   114070872 :          lu(k,826) = lu(k,826) * lu(k,811)
    5877   114070872 :          lu(k,827) = lu(k,827) * lu(k,811)
    5878   114070872 :          lu(k,828) = lu(k,828) * lu(k,811)
    5879   114070872 :          lu(k,829) = lu(k,829) * lu(k,811)
    5880   114070872 :          lu(k,834) = lu(k,834) - lu(k,812) * lu(k,832)
    5881   114070872 :          lu(k,836) = lu(k,836) - lu(k,813) * lu(k,832)
    5882   114070872 :          lu(k,839) = lu(k,839) - lu(k,814) * lu(k,832)
    5883   114070872 :          lu(k,841) = lu(k,841) - lu(k,815) * lu(k,832)
    5884   114070872 :          lu(k,842) = lu(k,842) - lu(k,816) * lu(k,832)
    5885   114070872 :          lu(k,843) = lu(k,843) - lu(k,817) * lu(k,832)
    5886   114070872 :          lu(k,845) = lu(k,845) - lu(k,818) * lu(k,832)
    5887   114070872 :          lu(k,847) = lu(k,847) - lu(k,819) * lu(k,832)
    5888   114070872 :          lu(k,848) = lu(k,848) - lu(k,820) * lu(k,832)
    5889   114070872 :          lu(k,849) = - lu(k,821) * lu(k,832)
    5890   114070872 :          lu(k,851) = lu(k,851) - lu(k,822) * lu(k,832)
    5891   114070872 :          lu(k,852) = lu(k,852) - lu(k,823) * lu(k,832)
    5892   114070872 :          lu(k,853) = lu(k,853) - lu(k,824) * lu(k,832)
    5893   114070872 :          lu(k,854) = lu(k,854) - lu(k,825) * lu(k,832)
    5894   114070872 :          lu(k,855) = lu(k,855) - lu(k,826) * lu(k,832)
    5895   114070872 :          lu(k,859) = lu(k,859) - lu(k,827) * lu(k,832)
    5896   114070872 :          lu(k,860) = lu(k,860) - lu(k,828) * lu(k,832)
    5897   114070872 :          lu(k,861) = lu(k,861) - lu(k,829) * lu(k,832)
    5898   114070872 :          lu(k,866) = lu(k,866) - lu(k,812) * lu(k,865)
    5899   114070872 :          lu(k,867) = lu(k,867) - lu(k,813) * lu(k,865)
    5900   114070872 :          lu(k,868) = lu(k,868) - lu(k,814) * lu(k,865)
    5901   114070872 :          lu(k,869) = lu(k,869) - lu(k,815) * lu(k,865)
    5902   114070872 :          lu(k,870) = lu(k,870) - lu(k,816) * lu(k,865)
    5903   114070872 :          lu(k,871) = lu(k,871) - lu(k,817) * lu(k,865)
    5904   114070872 :          lu(k,872) = lu(k,872) - lu(k,818) * lu(k,865)
    5905   114070872 :          lu(k,874) = lu(k,874) - lu(k,819) * lu(k,865)
    5906   114070872 :          lu(k,875) = - lu(k,820) * lu(k,865)
    5907   114070872 :          lu(k,876) = lu(k,876) - lu(k,821) * lu(k,865)
    5908   114070872 :          lu(k,877) = lu(k,877) - lu(k,822) * lu(k,865)
    5909   114070872 :          lu(k,878) = lu(k,878) - lu(k,823) * lu(k,865)
    5910   114070872 :          lu(k,879) = lu(k,879) - lu(k,824) * lu(k,865)
    5911   114070872 :          lu(k,881) = lu(k,881) - lu(k,825) * lu(k,865)
    5912   114070872 :          lu(k,882) = lu(k,882) - lu(k,826) * lu(k,865)
    5913   114070872 :          lu(k,884) = lu(k,884) - lu(k,827) * lu(k,865)
    5914   114070872 :          lu(k,885) = lu(k,885) - lu(k,828) * lu(k,865)
    5915   114070872 :          lu(k,886) = lu(k,886) - lu(k,829) * lu(k,865)
    5916   114070872 :          lu(k,925) = lu(k,925) - lu(k,812) * lu(k,924)
    5917   114070872 :          lu(k,926) = lu(k,926) - lu(k,813) * lu(k,924)
    5918   114070872 :          lu(k,928) = lu(k,928) - lu(k,814) * lu(k,924)
    5919   114070872 :          lu(k,930) = lu(k,930) - lu(k,815) * lu(k,924)
    5920   114070872 :          lu(k,931) = lu(k,931) - lu(k,816) * lu(k,924)
    5921   114070872 :          lu(k,932) = lu(k,932) - lu(k,817) * lu(k,924)
    5922   114070872 :          lu(k,933) = lu(k,933) - lu(k,818) * lu(k,924)
    5923   114070872 :          lu(k,935) = lu(k,935) - lu(k,819) * lu(k,924)
    5924   114070872 :          lu(k,936) = lu(k,936) - lu(k,820) * lu(k,924)
    5925   114070872 :          lu(k,937) = lu(k,937) - lu(k,821) * lu(k,924)
    5926   114070872 :          lu(k,938) = lu(k,938) - lu(k,822) * lu(k,924)
    5927   114070872 :          lu(k,939) = lu(k,939) - lu(k,823) * lu(k,924)
    5928   114070872 :          lu(k,940) = lu(k,940) - lu(k,824) * lu(k,924)
    5929   114070872 :          lu(k,942) = lu(k,942) - lu(k,825) * lu(k,924)
    5930   114070872 :          lu(k,943) = lu(k,943) - lu(k,826) * lu(k,924)
    5931   114070872 :          lu(k,946) = lu(k,946) - lu(k,827) * lu(k,924)
    5932   114070872 :          lu(k,947) = lu(k,947) - lu(k,828) * lu(k,924)
    5933   114070872 :          lu(k,948) = lu(k,948) - lu(k,829) * lu(k,924)
    5934   114070872 :          lu(k,1011) = lu(k,1011) - lu(k,812) * lu(k,1010)
    5935   114070872 :          lu(k,1012) = lu(k,1012) - lu(k,813) * lu(k,1010)
    5936   114070872 :          lu(k,1015) = lu(k,1015) - lu(k,814) * lu(k,1010)
    5937   114070872 :          lu(k,1017) = lu(k,1017) - lu(k,815) * lu(k,1010)
    5938   114070872 :          lu(k,1018) = lu(k,1018) - lu(k,816) * lu(k,1010)
    5939   114070872 :          lu(k,1019) = lu(k,1019) - lu(k,817) * lu(k,1010)
    5940   114070872 :          lu(k,1021) = lu(k,1021) - lu(k,818) * lu(k,1010)
    5941   114070872 :          lu(k,1023) = lu(k,1023) - lu(k,819) * lu(k,1010)
    5942   114070872 :          lu(k,1024) = lu(k,1024) - lu(k,820) * lu(k,1010)
    5943   114070872 :          lu(k,1025) = lu(k,1025) - lu(k,821) * lu(k,1010)
    5944   114070872 :          lu(k,1027) = lu(k,1027) - lu(k,822) * lu(k,1010)
    5945   114070872 :          lu(k,1028) = lu(k,1028) - lu(k,823) * lu(k,1010)
    5946   114070872 :          lu(k,1029) = lu(k,1029) - lu(k,824) * lu(k,1010)
    5947   114070872 :          lu(k,1031) = lu(k,1031) - lu(k,825) * lu(k,1010)
    5948   114070872 :          lu(k,1032) = lu(k,1032) - lu(k,826) * lu(k,1010)
    5949   114070872 :          lu(k,1036) = lu(k,1036) - lu(k,827) * lu(k,1010)
    5950   114070872 :          lu(k,1037) = - lu(k,828) * lu(k,1010)
    5951   114070872 :          lu(k,1038) = lu(k,1038) - lu(k,829) * lu(k,1010)
    5952   114070872 :          lu(k,1098) = - lu(k,812) * lu(k,1096)
    5953   114070872 :          lu(k,1100) = lu(k,1100) - lu(k,813) * lu(k,1096)
    5954   114070872 :          lu(k,1103) = lu(k,1103) - lu(k,814) * lu(k,1096)
    5955   114070872 :          lu(k,1105) = - lu(k,815) * lu(k,1096)
    5956   114070872 :          lu(k,1106) = - lu(k,816) * lu(k,1096)
    5957   114070872 :          lu(k,1107) = lu(k,1107) - lu(k,817) * lu(k,1096)
    5958   114070872 :          lu(k,1109) = - lu(k,818) * lu(k,1096)
    5959   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,819) * lu(k,1096)
    5960   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,820) * lu(k,1096)
    5961   114070872 :          lu(k,1113) = lu(k,1113) - lu(k,821) * lu(k,1096)
    5962   114070872 :          lu(k,1115) = lu(k,1115) - lu(k,822) * lu(k,1096)
    5963   114070872 :          lu(k,1116) = - lu(k,823) * lu(k,1096)
    5964   114070872 :          lu(k,1117) = - lu(k,824) * lu(k,1096)
    5965   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,825) * lu(k,1096)
    5966   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,826) * lu(k,1096)
    5967   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,827) * lu(k,1096)
    5968   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,828) * lu(k,1096)
    5969   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,829) * lu(k,1096)
    5970   114070872 :          lu(k,1146) = lu(k,1146) - lu(k,812) * lu(k,1144)
    5971   114070872 :          lu(k,1148) = lu(k,1148) - lu(k,813) * lu(k,1144)
    5972   114070872 :          lu(k,1151) = lu(k,1151) - lu(k,814) * lu(k,1144)
    5973   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,815) * lu(k,1144)
    5974   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,816) * lu(k,1144)
    5975   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,817) * lu(k,1144)
    5976   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,818) * lu(k,1144)
    5977   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,819) * lu(k,1144)
    5978   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,820) * lu(k,1144)
    5979   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,821) * lu(k,1144)
    5980   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,822) * lu(k,1144)
    5981   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,823) * lu(k,1144)
    5982   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,824) * lu(k,1144)
    5983   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,825) * lu(k,1144)
    5984   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,826) * lu(k,1144)
    5985   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,827) * lu(k,1144)
    5986   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,828) * lu(k,1144)
    5987   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,829) * lu(k,1144)
    5988   114070872 :          lu(k,1189) = lu(k,1189) - lu(k,812) * lu(k,1187)
    5989   114070872 :          lu(k,1191) = lu(k,1191) - lu(k,813) * lu(k,1187)
    5990   114070872 :          lu(k,1194) = lu(k,1194) - lu(k,814) * lu(k,1187)
    5991   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,815) * lu(k,1187)
    5992   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,816) * lu(k,1187)
    5993   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,817) * lu(k,1187)
    5994   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,818) * lu(k,1187)
    5995   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,819) * lu(k,1187)
    5996   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,820) * lu(k,1187)
    5997   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,821) * lu(k,1187)
    5998   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,822) * lu(k,1187)
    5999   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,823) * lu(k,1187)
    6000   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,824) * lu(k,1187)
    6001   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,825) * lu(k,1187)
    6002   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,826) * lu(k,1187)
    6003   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,827) * lu(k,1187)
    6004   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,828) * lu(k,1187)
    6005   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,829) * lu(k,1187)
    6006   114070872 :          lu(k,1232) = lu(k,1232) - lu(k,812) * lu(k,1230)
    6007   114070872 :          lu(k,1234) = lu(k,1234) - lu(k,813) * lu(k,1230)
    6008   114070872 :          lu(k,1237) = lu(k,1237) - lu(k,814) * lu(k,1230)
    6009   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,815) * lu(k,1230)
    6010   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,816) * lu(k,1230)
    6011   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,817) * lu(k,1230)
    6012   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,818) * lu(k,1230)
    6013   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,819) * lu(k,1230)
    6014   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,820) * lu(k,1230)
    6015   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,821) * lu(k,1230)
    6016   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,822) * lu(k,1230)
    6017   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,823) * lu(k,1230)
    6018   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,824) * lu(k,1230)
    6019   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,825) * lu(k,1230)
    6020   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,826) * lu(k,1230)
    6021   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,827) * lu(k,1230)
    6022   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,828) * lu(k,1230)
    6023   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,829) * lu(k,1230)
    6024   114070872 :          lu(k,1316) = lu(k,1316) - lu(k,812) * lu(k,1314)
    6025   114070872 :          lu(k,1318) = lu(k,1318) - lu(k,813) * lu(k,1314)
    6026   114070872 :          lu(k,1321) = lu(k,1321) - lu(k,814) * lu(k,1314)
    6027   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,815) * lu(k,1314)
    6028   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,816) * lu(k,1314)
    6029   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,817) * lu(k,1314)
    6030   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,818) * lu(k,1314)
    6031   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,819) * lu(k,1314)
    6032   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,820) * lu(k,1314)
    6033   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,821) * lu(k,1314)
    6034   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,822) * lu(k,1314)
    6035   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,823) * lu(k,1314)
    6036   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,824) * lu(k,1314)
    6037   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,825) * lu(k,1314)
    6038   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,826) * lu(k,1314)
    6039   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,827) * lu(k,1314)
    6040   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,828) * lu(k,1314)
    6041   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,829) * lu(k,1314)
    6042   114070872 :          lu(k,1376) = lu(k,1376) - lu(k,812) * lu(k,1374)
    6043   114070872 :          lu(k,1378) = lu(k,1378) - lu(k,813) * lu(k,1374)
    6044   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,814) * lu(k,1374)
    6045   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,815) * lu(k,1374)
    6046   114070872 :          lu(k,1384) = - lu(k,816) * lu(k,1374)
    6047   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,817) * lu(k,1374)
    6048   114070872 :          lu(k,1387) = - lu(k,818) * lu(k,1374)
    6049   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,819) * lu(k,1374)
    6050   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,820) * lu(k,1374)
    6051   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,821) * lu(k,1374)
    6052   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,822) * lu(k,1374)
    6053   114070872 :          lu(k,1394) = - lu(k,823) * lu(k,1374)
    6054   114070872 :          lu(k,1395) = - lu(k,824) * lu(k,1374)
    6055   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,825) * lu(k,1374)
    6056   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,826) * lu(k,1374)
    6057   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,827) * lu(k,1374)
    6058   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,828) * lu(k,1374)
    6059   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,829) * lu(k,1374)
    6060   114070872 :          lu(k,1473) = - lu(k,812) * lu(k,1471)
    6061   114070872 :          lu(k,1475) = lu(k,1475) - lu(k,813) * lu(k,1471)
    6062   114070872 :          lu(k,1478) = lu(k,1478) - lu(k,814) * lu(k,1471)
    6063   114070872 :          lu(k,1480) = - lu(k,815) * lu(k,1471)
    6064   114070872 :          lu(k,1481) = - lu(k,816) * lu(k,1471)
    6065   114070872 :          lu(k,1482) = lu(k,1482) - lu(k,817) * lu(k,1471)
    6066   114070872 :          lu(k,1484) = - lu(k,818) * lu(k,1471)
    6067   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,819) * lu(k,1471)
    6068   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,820) * lu(k,1471)
    6069   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,821) * lu(k,1471)
    6070   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,822) * lu(k,1471)
    6071   114070872 :          lu(k,1491) = - lu(k,823) * lu(k,1471)
    6072   114070872 :          lu(k,1492) = - lu(k,824) * lu(k,1471)
    6073   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,825) * lu(k,1471)
    6074   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,826) * lu(k,1471)
    6075   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,827) * lu(k,1471)
    6076   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,828) * lu(k,1471)
    6077   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,829) * lu(k,1471)
    6078   114070872 :          lu(k,1514) = lu(k,1514) - lu(k,812) * lu(k,1513)
    6079   114070872 :          lu(k,1516) = lu(k,1516) - lu(k,813) * lu(k,1513)
    6080   114070872 :          lu(k,1519) = lu(k,1519) - lu(k,814) * lu(k,1513)
    6081   114070872 :          lu(k,1521) = lu(k,1521) - lu(k,815) * lu(k,1513)
    6082   114070872 :          lu(k,1522) = lu(k,1522) - lu(k,816) * lu(k,1513)
    6083   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,817) * lu(k,1513)
    6084   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,818) * lu(k,1513)
    6085   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,819) * lu(k,1513)
    6086   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,820) * lu(k,1513)
    6087   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,821) * lu(k,1513)
    6088   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,822) * lu(k,1513)
    6089   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,823) * lu(k,1513)
    6090   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,824) * lu(k,1513)
    6091   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,825) * lu(k,1513)
    6092   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,826) * lu(k,1513)
    6093   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,827) * lu(k,1513)
    6094   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,828) * lu(k,1513)
    6095   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,829) * lu(k,1513)
    6096   114070872 :          lu(k,1550) = lu(k,1550) - lu(k,812) * lu(k,1548)
    6097   114070872 :          lu(k,1552) = lu(k,1552) - lu(k,813) * lu(k,1548)
    6098   114070872 :          lu(k,1555) = lu(k,1555) - lu(k,814) * lu(k,1548)
    6099   114070872 :          lu(k,1557) = lu(k,1557) - lu(k,815) * lu(k,1548)
    6100   114070872 :          lu(k,1558) = lu(k,1558) - lu(k,816) * lu(k,1548)
    6101   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,817) * lu(k,1548)
    6102   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,818) * lu(k,1548)
    6103   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,819) * lu(k,1548)
    6104   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,820) * lu(k,1548)
    6105   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,821) * lu(k,1548)
    6106   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,822) * lu(k,1548)
    6107   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,823) * lu(k,1548)
    6108   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,824) * lu(k,1548)
    6109   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,825) * lu(k,1548)
    6110   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,826) * lu(k,1548)
    6111   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,827) * lu(k,1548)
    6112   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,828) * lu(k,1548)
    6113   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,829) * lu(k,1548)
    6114   114070872 :          lu(k,1595) = lu(k,1595) - lu(k,812) * lu(k,1593)
    6115   114070872 :          lu(k,1597) = lu(k,1597) - lu(k,813) * lu(k,1593)
    6116   114070872 :          lu(k,1600) = lu(k,1600) - lu(k,814) * lu(k,1593)
    6117   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,815) * lu(k,1593)
    6118   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,816) * lu(k,1593)
    6119   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,817) * lu(k,1593)
    6120   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,818) * lu(k,1593)
    6121   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,819) * lu(k,1593)
    6122   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,820) * lu(k,1593)
    6123   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,821) * lu(k,1593)
    6124   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,822) * lu(k,1593)
    6125   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,823) * lu(k,1593)
    6126   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,824) * lu(k,1593)
    6127   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,825) * lu(k,1593)
    6128   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,826) * lu(k,1593)
    6129   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,827) * lu(k,1593)
    6130   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,828) * lu(k,1593)
    6131   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,829) * lu(k,1593)
    6132   114070872 :          lu(k,1638) = lu(k,1638) - lu(k,812) * lu(k,1636)
    6133   114070872 :          lu(k,1640) = lu(k,1640) - lu(k,813) * lu(k,1636)
    6134   114070872 :          lu(k,1643) = lu(k,1643) - lu(k,814) * lu(k,1636)
    6135   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,815) * lu(k,1636)
    6136   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,816) * lu(k,1636)
    6137   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,817) * lu(k,1636)
    6138   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,818) * lu(k,1636)
    6139   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,819) * lu(k,1636)
    6140   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,820) * lu(k,1636)
    6141   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,821) * lu(k,1636)
    6142   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,822) * lu(k,1636)
    6143   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,823) * lu(k,1636)
    6144   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,824) * lu(k,1636)
    6145   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,825) * lu(k,1636)
    6146   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,826) * lu(k,1636)
    6147   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,827) * lu(k,1636)
    6148   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,828) * lu(k,1636)
    6149   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,829) * lu(k,1636)
    6150   114070872 :          lu(k,1681) = lu(k,1681) - lu(k,812) * lu(k,1679)
    6151   114070872 :          lu(k,1683) = lu(k,1683) - lu(k,813) * lu(k,1679)
    6152   114070872 :          lu(k,1686) = lu(k,1686) - lu(k,814) * lu(k,1679)
    6153   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,815) * lu(k,1679)
    6154   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,816) * lu(k,1679)
    6155   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,817) * lu(k,1679)
    6156   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,818) * lu(k,1679)
    6157   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,819) * lu(k,1679)
    6158   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,820) * lu(k,1679)
    6159   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,821) * lu(k,1679)
    6160   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,822) * lu(k,1679)
    6161   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,823) * lu(k,1679)
    6162   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,824) * lu(k,1679)
    6163   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,825) * lu(k,1679)
    6164   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,826) * lu(k,1679)
    6165   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,827) * lu(k,1679)
    6166   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,828) * lu(k,1679)
    6167   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,829) * lu(k,1679)
    6168   114070872 :          lu(k,1757) = lu(k,1757) - lu(k,812) * lu(k,1755)
    6169   114070872 :          lu(k,1759) = lu(k,1759) - lu(k,813) * lu(k,1755)
    6170   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,814) * lu(k,1755)
    6171   114070872 :          lu(k,1764) = - lu(k,815) * lu(k,1755)
    6172   114070872 :          lu(k,1765) = - lu(k,816) * lu(k,1755)
    6173   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,817) * lu(k,1755)
    6174   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,818) * lu(k,1755)
    6175   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,819) * lu(k,1755)
    6176   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,820) * lu(k,1755)
    6177   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,821) * lu(k,1755)
    6178   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,822) * lu(k,1755)
    6179   114070872 :          lu(k,1775) = - lu(k,823) * lu(k,1755)
    6180   114070872 :          lu(k,1776) = - lu(k,824) * lu(k,1755)
    6181   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,825) * lu(k,1755)
    6182   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,826) * lu(k,1755)
    6183   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,827) * lu(k,1755)
    6184   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,828) * lu(k,1755)
    6185   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,829) * lu(k,1755)
    6186   114070872 :          lu(k,1805) = lu(k,1805) - lu(k,812) * lu(k,1804)
    6187   114070872 :          lu(k,1807) = lu(k,1807) - lu(k,813) * lu(k,1804)
    6188   114070872 :          lu(k,1810) = lu(k,1810) - lu(k,814) * lu(k,1804)
    6189   114070872 :          lu(k,1812) = lu(k,1812) - lu(k,815) * lu(k,1804)
    6190   114070872 :          lu(k,1813) = lu(k,1813) - lu(k,816) * lu(k,1804)
    6191   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,817) * lu(k,1804)
    6192   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,818) * lu(k,1804)
    6193   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,819) * lu(k,1804)
    6194   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,820) * lu(k,1804)
    6195   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,821) * lu(k,1804)
    6196   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,822) * lu(k,1804)
    6197   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,823) * lu(k,1804)
    6198   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,824) * lu(k,1804)
    6199   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,825) * lu(k,1804)
    6200   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,826) * lu(k,1804)
    6201   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,827) * lu(k,1804)
    6202   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,828) * lu(k,1804)
    6203   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,829) * lu(k,1804)
    6204   114070872 :          lu(k,1838) = lu(k,1838) - lu(k,812) * lu(k,1837)
    6205   114070872 :          lu(k,1840) = lu(k,1840) - lu(k,813) * lu(k,1837)
    6206   114070872 :          lu(k,1843) = lu(k,1843) - lu(k,814) * lu(k,1837)
    6207   114070872 :          lu(k,1845) = lu(k,1845) - lu(k,815) * lu(k,1837)
    6208   114070872 :          lu(k,1846) = lu(k,1846) - lu(k,816) * lu(k,1837)
    6209   114070872 :          lu(k,1847) = lu(k,1847) - lu(k,817) * lu(k,1837)
    6210   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,818) * lu(k,1837)
    6211   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,819) * lu(k,1837)
    6212   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,820) * lu(k,1837)
    6213   114070872 :          lu(k,1853) = - lu(k,821) * lu(k,1837)
    6214   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,822) * lu(k,1837)
    6215   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,823) * lu(k,1837)
    6216   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,824) * lu(k,1837)
    6217   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,825) * lu(k,1837)
    6218   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,826) * lu(k,1837)
    6219   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,827) * lu(k,1837)
    6220   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,828) * lu(k,1837)
    6221   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,829) * lu(k,1837)
    6222   114070872 :          lu(k,1874) = lu(k,1874) - lu(k,812) * lu(k,1873)
    6223   114070872 :          lu(k,1876) = lu(k,1876) - lu(k,813) * lu(k,1873)
    6224   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,814) * lu(k,1873)
    6225   114070872 :          lu(k,1881) = - lu(k,815) * lu(k,1873)
    6226   114070872 :          lu(k,1882) = - lu(k,816) * lu(k,1873)
    6227   114070872 :          lu(k,1883) = lu(k,1883) - lu(k,817) * lu(k,1873)
    6228   114070872 :          lu(k,1885) = - lu(k,818) * lu(k,1873)
    6229   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,819) * lu(k,1873)
    6230   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,820) * lu(k,1873)
    6231   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,821) * lu(k,1873)
    6232   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,822) * lu(k,1873)
    6233   114070872 :          lu(k,1892) = - lu(k,823) * lu(k,1873)
    6234   114070872 :          lu(k,1893) = - lu(k,824) * lu(k,1873)
    6235   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,825) * lu(k,1873)
    6236   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,826) * lu(k,1873)
    6237   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,827) * lu(k,1873)
    6238   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,828) * lu(k,1873)
    6239   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,829) * lu(k,1873)
    6240   114070872 :          lu(k,1957) = lu(k,1957) - lu(k,812) * lu(k,1956)
    6241   114070872 :          lu(k,1959) = lu(k,1959) - lu(k,813) * lu(k,1956)
    6242   114070872 :          lu(k,1962) = lu(k,1962) - lu(k,814) * lu(k,1956)
    6243   114070872 :          lu(k,1964) = lu(k,1964) - lu(k,815) * lu(k,1956)
    6244   114070872 :          lu(k,1965) = lu(k,1965) - lu(k,816) * lu(k,1956)
    6245   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,817) * lu(k,1956)
    6246   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,818) * lu(k,1956)
    6247   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,819) * lu(k,1956)
    6248   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,820) * lu(k,1956)
    6249   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,821) * lu(k,1956)
    6250   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,822) * lu(k,1956)
    6251   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,823) * lu(k,1956)
    6252   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,824) * lu(k,1956)
    6253   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,825) * lu(k,1956)
    6254   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,826) * lu(k,1956)
    6255   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,827) * lu(k,1956)
    6256   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,828) * lu(k,1956)
    6257   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,829) * lu(k,1956)
    6258   114070872 :          lu(k,2002) = lu(k,2002) - lu(k,812) * lu(k,2000)
    6259   114070872 :          lu(k,2004) = lu(k,2004) - lu(k,813) * lu(k,2000)
    6260   114070872 :          lu(k,2007) = lu(k,2007) - lu(k,814) * lu(k,2000)
    6261   114070872 :          lu(k,2009) = lu(k,2009) - lu(k,815) * lu(k,2000)
    6262   114070872 :          lu(k,2010) = lu(k,2010) - lu(k,816) * lu(k,2000)
    6263   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,817) * lu(k,2000)
    6264   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,818) * lu(k,2000)
    6265   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,819) * lu(k,2000)
    6266   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,820) * lu(k,2000)
    6267   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,821) * lu(k,2000)
    6268   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,822) * lu(k,2000)
    6269   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,823) * lu(k,2000)
    6270   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,824) * lu(k,2000)
    6271   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,825) * lu(k,2000)
    6272   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,826) * lu(k,2000)
    6273   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,827) * lu(k,2000)
    6274   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,828) * lu(k,2000)
    6275   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,829) * lu(k,2000)
    6276   114070872 :          lu(k,2062) = lu(k,2062) - lu(k,812) * lu(k,2061)
    6277   114070872 :          lu(k,2064) = lu(k,2064) - lu(k,813) * lu(k,2061)
    6278   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,814) * lu(k,2061)
    6279   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,815) * lu(k,2061)
    6280   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,816) * lu(k,2061)
    6281   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,817) * lu(k,2061)
    6282   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,818) * lu(k,2061)
    6283   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,819) * lu(k,2061)
    6284   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,820) * lu(k,2061)
    6285   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,821) * lu(k,2061)
    6286   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,822) * lu(k,2061)
    6287   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,823) * lu(k,2061)
    6288   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,824) * lu(k,2061)
    6289   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,825) * lu(k,2061)
    6290   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,826) * lu(k,2061)
    6291   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,827) * lu(k,2061)
    6292   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,828) * lu(k,2061)
    6293   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,829) * lu(k,2061)
    6294   114070872 :          lu(k,833) = 1._r8 / lu(k,833)
    6295   114070872 :          lu(k,834) = lu(k,834) * lu(k,833)
    6296   114070872 :          lu(k,835) = lu(k,835) * lu(k,833)
    6297   114070872 :          lu(k,836) = lu(k,836) * lu(k,833)
    6298   114070872 :          lu(k,837) = lu(k,837) * lu(k,833)
    6299   114070872 :          lu(k,838) = lu(k,838) * lu(k,833)
    6300   114070872 :          lu(k,839) = lu(k,839) * lu(k,833)
    6301   114070872 :          lu(k,840) = lu(k,840) * lu(k,833)
    6302   114070872 :          lu(k,841) = lu(k,841) * lu(k,833)
    6303   114070872 :          lu(k,842) = lu(k,842) * lu(k,833)
    6304   114070872 :          lu(k,843) = lu(k,843) * lu(k,833)
    6305   114070872 :          lu(k,844) = lu(k,844) * lu(k,833)
    6306   114070872 :          lu(k,845) = lu(k,845) * lu(k,833)
    6307   114070872 :          lu(k,846) = lu(k,846) * lu(k,833)
    6308   114070872 :          lu(k,847) = lu(k,847) * lu(k,833)
    6309   114070872 :          lu(k,848) = lu(k,848) * lu(k,833)
    6310   114070872 :          lu(k,849) = lu(k,849) * lu(k,833)
    6311   114070872 :          lu(k,850) = lu(k,850) * lu(k,833)
    6312   114070872 :          lu(k,851) = lu(k,851) * lu(k,833)
    6313   114070872 :          lu(k,852) = lu(k,852) * lu(k,833)
    6314   114070872 :          lu(k,853) = lu(k,853) * lu(k,833)
    6315   114070872 :          lu(k,854) = lu(k,854) * lu(k,833)
    6316   114070872 :          lu(k,855) = lu(k,855) * lu(k,833)
    6317   114070872 :          lu(k,856) = lu(k,856) * lu(k,833)
    6318   114070872 :          lu(k,857) = lu(k,857) * lu(k,833)
    6319   114070872 :          lu(k,858) = lu(k,858) * lu(k,833)
    6320   114070872 :          lu(k,859) = lu(k,859) * lu(k,833)
    6321   114070872 :          lu(k,860) = lu(k,860) * lu(k,833)
    6322   114070872 :          lu(k,861) = lu(k,861) * lu(k,833)
    6323   114070872 :          lu(k,1098) = lu(k,1098) - lu(k,834) * lu(k,1097)
    6324   114070872 :          lu(k,1099) = lu(k,1099) - lu(k,835) * lu(k,1097)
    6325   114070872 :          lu(k,1100) = lu(k,1100) - lu(k,836) * lu(k,1097)
    6326   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,837) * lu(k,1097)
    6327   114070872 :          lu(k,1102) = lu(k,1102) - lu(k,838) * lu(k,1097)
    6328   114070872 :          lu(k,1103) = lu(k,1103) - lu(k,839) * lu(k,1097)
    6329   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,840) * lu(k,1097)
    6330   114070872 :          lu(k,1105) = lu(k,1105) - lu(k,841) * lu(k,1097)
    6331   114070872 :          lu(k,1106) = lu(k,1106) - lu(k,842) * lu(k,1097)
    6332   114070872 :          lu(k,1107) = lu(k,1107) - lu(k,843) * lu(k,1097)
    6333   114070872 :          lu(k,1108) = lu(k,1108) - lu(k,844) * lu(k,1097)
    6334   114070872 :          lu(k,1109) = lu(k,1109) - lu(k,845) * lu(k,1097)
    6335   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,846) * lu(k,1097)
    6336   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,847) * lu(k,1097)
    6337   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,848) * lu(k,1097)
    6338   114070872 :          lu(k,1113) = lu(k,1113) - lu(k,849) * lu(k,1097)
    6339   114070872 :          lu(k,1114) = lu(k,1114) - lu(k,850) * lu(k,1097)
    6340   114070872 :          lu(k,1115) = lu(k,1115) - lu(k,851) * lu(k,1097)
    6341   114070872 :          lu(k,1116) = lu(k,1116) - lu(k,852) * lu(k,1097)
    6342   114070872 :          lu(k,1117) = lu(k,1117) - lu(k,853) * lu(k,1097)
    6343   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,854) * lu(k,1097)
    6344   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,855) * lu(k,1097)
    6345   114070872 :          lu(k,1121) = lu(k,1121) - lu(k,856) * lu(k,1097)
    6346   114070872 :          lu(k,1122) = lu(k,1122) - lu(k,857) * lu(k,1097)
    6347   114070872 :          lu(k,1123) = lu(k,1123) - lu(k,858) * lu(k,1097)
    6348   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,859) * lu(k,1097)
    6349   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,860) * lu(k,1097)
    6350   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,861) * lu(k,1097)
    6351   114070872 :          lu(k,1146) = lu(k,1146) - lu(k,834) * lu(k,1145)
    6352   114070872 :          lu(k,1147) = lu(k,1147) - lu(k,835) * lu(k,1145)
    6353   114070872 :          lu(k,1148) = lu(k,1148) - lu(k,836) * lu(k,1145)
    6354   114070872 :          lu(k,1149) = lu(k,1149) - lu(k,837) * lu(k,1145)
    6355   114070872 :          lu(k,1150) = lu(k,1150) - lu(k,838) * lu(k,1145)
    6356   114070872 :          lu(k,1151) = lu(k,1151) - lu(k,839) * lu(k,1145)
    6357   114070872 :          lu(k,1152) = lu(k,1152) - lu(k,840) * lu(k,1145)
    6358   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,841) * lu(k,1145)
    6359   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,842) * lu(k,1145)
    6360   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,843) * lu(k,1145)
    6361   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,844) * lu(k,1145)
    6362   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,845) * lu(k,1145)
    6363   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,846) * lu(k,1145)
    6364   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,847) * lu(k,1145)
    6365   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,848) * lu(k,1145)
    6366   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,849) * lu(k,1145)
    6367   114070872 :          lu(k,1162) = lu(k,1162) - lu(k,850) * lu(k,1145)
    6368   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,851) * lu(k,1145)
    6369   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,852) * lu(k,1145)
    6370   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,853) * lu(k,1145)
    6371   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,854) * lu(k,1145)
    6372   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,855) * lu(k,1145)
    6373   114070872 :          lu(k,1169) = lu(k,1169) - lu(k,856) * lu(k,1145)
    6374   114070872 :          lu(k,1170) = lu(k,1170) - lu(k,857) * lu(k,1145)
    6375   114070872 :          lu(k,1171) = lu(k,1171) - lu(k,858) * lu(k,1145)
    6376   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,859) * lu(k,1145)
    6377   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,860) * lu(k,1145)
    6378   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,861) * lu(k,1145)
    6379   114070872 :          lu(k,1189) = lu(k,1189) - lu(k,834) * lu(k,1188)
    6380   114070872 :          lu(k,1190) = - lu(k,835) * lu(k,1188)
    6381   114070872 :          lu(k,1191) = lu(k,1191) - lu(k,836) * lu(k,1188)
    6382   114070872 :          lu(k,1192) = lu(k,1192) - lu(k,837) * lu(k,1188)
    6383   114070872 :          lu(k,1193) = lu(k,1193) - lu(k,838) * lu(k,1188)
    6384   114070872 :          lu(k,1194) = lu(k,1194) - lu(k,839) * lu(k,1188)
    6385   114070872 :          lu(k,1195) = - lu(k,840) * lu(k,1188)
    6386   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,841) * lu(k,1188)
    6387   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,842) * lu(k,1188)
    6388   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,843) * lu(k,1188)
    6389   114070872 :          lu(k,1199) = lu(k,1199) - lu(k,844) * lu(k,1188)
    6390   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,845) * lu(k,1188)
    6391   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,846) * lu(k,1188)
    6392   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,847) * lu(k,1188)
    6393   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,848) * lu(k,1188)
    6394   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,849) * lu(k,1188)
    6395   114070872 :          lu(k,1205) = lu(k,1205) - lu(k,850) * lu(k,1188)
    6396   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,851) * lu(k,1188)
    6397   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,852) * lu(k,1188)
    6398   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,853) * lu(k,1188)
    6399   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,854) * lu(k,1188)
    6400   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,855) * lu(k,1188)
    6401   114070872 :          lu(k,1212) = - lu(k,856) * lu(k,1188)
    6402   114070872 :          lu(k,1213) = - lu(k,857) * lu(k,1188)
    6403   114070872 :          lu(k,1214) = - lu(k,858) * lu(k,1188)
    6404   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,859) * lu(k,1188)
    6405   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,860) * lu(k,1188)
    6406   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,861) * lu(k,1188)
    6407   114070872 :          lu(k,1232) = lu(k,1232) - lu(k,834) * lu(k,1231)
    6408   114070872 :          lu(k,1233) = - lu(k,835) * lu(k,1231)
    6409   114070872 :          lu(k,1234) = lu(k,1234) - lu(k,836) * lu(k,1231)
    6410   114070872 :          lu(k,1235) = lu(k,1235) - lu(k,837) * lu(k,1231)
    6411   114070872 :          lu(k,1236) = lu(k,1236) - lu(k,838) * lu(k,1231)
    6412   114070872 :          lu(k,1237) = lu(k,1237) - lu(k,839) * lu(k,1231)
    6413   114070872 :          lu(k,1238) = - lu(k,840) * lu(k,1231)
    6414   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,841) * lu(k,1231)
    6415   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,842) * lu(k,1231)
    6416   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,843) * lu(k,1231)
    6417   114070872 :          lu(k,1242) = lu(k,1242) - lu(k,844) * lu(k,1231)
    6418   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,845) * lu(k,1231)
    6419   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,846) * lu(k,1231)
    6420   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,847) * lu(k,1231)
    6421   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,848) * lu(k,1231)
    6422   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,849) * lu(k,1231)
    6423   114070872 :          lu(k,1248) = lu(k,1248) - lu(k,850) * lu(k,1231)
    6424   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,851) * lu(k,1231)
    6425   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,852) * lu(k,1231)
    6426   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,853) * lu(k,1231)
    6427   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,854) * lu(k,1231)
    6428   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,855) * lu(k,1231)
    6429   114070872 :          lu(k,1255) = - lu(k,856) * lu(k,1231)
    6430   114070872 :          lu(k,1256) = - lu(k,857) * lu(k,1231)
    6431   114070872 :          lu(k,1257) = - lu(k,858) * lu(k,1231)
    6432   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,859) * lu(k,1231)
    6433   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,860) * lu(k,1231)
    6434   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,861) * lu(k,1231)
    6435   114070872 :          lu(k,1274) = lu(k,1274) - lu(k,834) * lu(k,1273)
    6436   114070872 :          lu(k,1275) = lu(k,1275) - lu(k,835) * lu(k,1273)
    6437   114070872 :          lu(k,1276) = lu(k,1276) - lu(k,836) * lu(k,1273)
    6438   114070872 :          lu(k,1277) = lu(k,1277) - lu(k,837) * lu(k,1273)
    6439   114070872 :          lu(k,1278) = lu(k,1278) - lu(k,838) * lu(k,1273)
    6440   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,839) * lu(k,1273)
    6441   114070872 :          lu(k,1280) = lu(k,1280) - lu(k,840) * lu(k,1273)
    6442   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,841) * lu(k,1273)
    6443   114070872 :          lu(k,1282) = lu(k,1282) - lu(k,842) * lu(k,1273)
    6444   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,843) * lu(k,1273)
    6445   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,844) * lu(k,1273)
    6446   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,845) * lu(k,1273)
    6447   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,846) * lu(k,1273)
    6448   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,847) * lu(k,1273)
    6449   114070872 :          lu(k,1288) = lu(k,1288) - lu(k,848) * lu(k,1273)
    6450   114070872 :          lu(k,1289) = lu(k,1289) - lu(k,849) * lu(k,1273)
    6451   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,850) * lu(k,1273)
    6452   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,851) * lu(k,1273)
    6453   114070872 :          lu(k,1292) = lu(k,1292) - lu(k,852) * lu(k,1273)
    6454   114070872 :          lu(k,1293) = lu(k,1293) - lu(k,853) * lu(k,1273)
    6455   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,854) * lu(k,1273)
    6456   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,855) * lu(k,1273)
    6457   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,856) * lu(k,1273)
    6458   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,857) * lu(k,1273)
    6459   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,858) * lu(k,1273)
    6460   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,859) * lu(k,1273)
    6461   114070872 :          lu(k,1301) = lu(k,1301) - lu(k,860) * lu(k,1273)
    6462   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,861) * lu(k,1273)
    6463   114070872 :          lu(k,1316) = lu(k,1316) - lu(k,834) * lu(k,1315)
    6464   114070872 :          lu(k,1317) = lu(k,1317) - lu(k,835) * lu(k,1315)
    6465   114070872 :          lu(k,1318) = lu(k,1318) - lu(k,836) * lu(k,1315)
    6466   114070872 :          lu(k,1319) = lu(k,1319) - lu(k,837) * lu(k,1315)
    6467   114070872 :          lu(k,1320) = lu(k,1320) - lu(k,838) * lu(k,1315)
    6468   114070872 :          lu(k,1321) = lu(k,1321) - lu(k,839) * lu(k,1315)
    6469   114070872 :          lu(k,1322) = - lu(k,840) * lu(k,1315)
    6470   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,841) * lu(k,1315)
    6471   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,842) * lu(k,1315)
    6472   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,843) * lu(k,1315)
    6473   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,844) * lu(k,1315)
    6474   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,845) * lu(k,1315)
    6475   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,846) * lu(k,1315)
    6476   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,847) * lu(k,1315)
    6477   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,848) * lu(k,1315)
    6478   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,849) * lu(k,1315)
    6479   114070872 :          lu(k,1332) = lu(k,1332) - lu(k,850) * lu(k,1315)
    6480   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,851) * lu(k,1315)
    6481   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,852) * lu(k,1315)
    6482   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,853) * lu(k,1315)
    6483   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,854) * lu(k,1315)
    6484   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,855) * lu(k,1315)
    6485   114070872 :          lu(k,1339) = - lu(k,856) * lu(k,1315)
    6486   114070872 :          lu(k,1340) = - lu(k,857) * lu(k,1315)
    6487   114070872 :          lu(k,1341) = - lu(k,858) * lu(k,1315)
    6488   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,859) * lu(k,1315)
    6489   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,860) * lu(k,1315)
    6490   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,861) * lu(k,1315)
    6491   114070872 :          lu(k,1376) = lu(k,1376) - lu(k,834) * lu(k,1375)
    6492   114070872 :          lu(k,1377) = lu(k,1377) - lu(k,835) * lu(k,1375)
    6493   114070872 :          lu(k,1378) = lu(k,1378) - lu(k,836) * lu(k,1375)
    6494   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,837) * lu(k,1375)
    6495   114070872 :          lu(k,1380) = lu(k,1380) - lu(k,838) * lu(k,1375)
    6496   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,839) * lu(k,1375)
    6497   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,840) * lu(k,1375)
    6498   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,841) * lu(k,1375)
    6499   114070872 :          lu(k,1384) = lu(k,1384) - lu(k,842) * lu(k,1375)
    6500   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,843) * lu(k,1375)
    6501   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,844) * lu(k,1375)
    6502   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,845) * lu(k,1375)
    6503   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,846) * lu(k,1375)
    6504   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,847) * lu(k,1375)
    6505   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,848) * lu(k,1375)
    6506   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,849) * lu(k,1375)
    6507   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,850) * lu(k,1375)
    6508   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,851) * lu(k,1375)
    6509   114070872 :          lu(k,1394) = lu(k,1394) - lu(k,852) * lu(k,1375)
    6510   114070872 :          lu(k,1395) = lu(k,1395) - lu(k,853) * lu(k,1375)
    6511   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,854) * lu(k,1375)
    6512   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,855) * lu(k,1375)
    6513   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,856) * lu(k,1375)
    6514   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,857) * lu(k,1375)
    6515   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,858) * lu(k,1375)
    6516   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,859) * lu(k,1375)
    6517   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,860) * lu(k,1375)
    6518   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,861) * lu(k,1375)
    6519   114070872 :          lu(k,1425) = lu(k,1425) - lu(k,834) * lu(k,1424)
    6520   114070872 :          lu(k,1426) = lu(k,1426) - lu(k,835) * lu(k,1424)
    6521   114070872 :          lu(k,1427) = lu(k,1427) - lu(k,836) * lu(k,1424)
    6522   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,837) * lu(k,1424)
    6523   114070872 :          lu(k,1429) = lu(k,1429) - lu(k,838) * lu(k,1424)
    6524   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,839) * lu(k,1424)
    6525   114070872 :          lu(k,1431) = lu(k,1431) - lu(k,840) * lu(k,1424)
    6526   114070872 :          lu(k,1432) = lu(k,1432) - lu(k,841) * lu(k,1424)
    6527   114070872 :          lu(k,1433) = - lu(k,842) * lu(k,1424)
    6528   114070872 :          lu(k,1434) = lu(k,1434) - lu(k,843) * lu(k,1424)
    6529   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,844) * lu(k,1424)
    6530   114070872 :          lu(k,1436) = - lu(k,845) * lu(k,1424)
    6531   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,846) * lu(k,1424)
    6532   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,847) * lu(k,1424)
    6533   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,848) * lu(k,1424)
    6534   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,849) * lu(k,1424)
    6535   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,850) * lu(k,1424)
    6536   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,851) * lu(k,1424)
    6537   114070872 :          lu(k,1443) = - lu(k,852) * lu(k,1424)
    6538   114070872 :          lu(k,1444) = - lu(k,853) * lu(k,1424)
    6539   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,854) * lu(k,1424)
    6540   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,855) * lu(k,1424)
    6541   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,856) * lu(k,1424)
    6542   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,857) * lu(k,1424)
    6543   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,858) * lu(k,1424)
    6544   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,859) * lu(k,1424)
    6545   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,860) * lu(k,1424)
    6546   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,861) * lu(k,1424)
    6547   114070872 :          lu(k,1473) = lu(k,1473) - lu(k,834) * lu(k,1472)
    6548   114070872 :          lu(k,1474) = lu(k,1474) - lu(k,835) * lu(k,1472)
    6549   114070872 :          lu(k,1475) = lu(k,1475) - lu(k,836) * lu(k,1472)
    6550   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,837) * lu(k,1472)
    6551   114070872 :          lu(k,1477) = lu(k,1477) - lu(k,838) * lu(k,1472)
    6552   114070872 :          lu(k,1478) = lu(k,1478) - lu(k,839) * lu(k,1472)
    6553   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,840) * lu(k,1472)
    6554   114070872 :          lu(k,1480) = lu(k,1480) - lu(k,841) * lu(k,1472)
    6555   114070872 :          lu(k,1481) = lu(k,1481) - lu(k,842) * lu(k,1472)
    6556   114070872 :          lu(k,1482) = lu(k,1482) - lu(k,843) * lu(k,1472)
    6557   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,844) * lu(k,1472)
    6558   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,845) * lu(k,1472)
    6559   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,846) * lu(k,1472)
    6560   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,847) * lu(k,1472)
    6561   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,848) * lu(k,1472)
    6562   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,849) * lu(k,1472)
    6563   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,850) * lu(k,1472)
    6564   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,851) * lu(k,1472)
    6565   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,852) * lu(k,1472)
    6566   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,853) * lu(k,1472)
    6567   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,854) * lu(k,1472)
    6568   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,855) * lu(k,1472)
    6569   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,856) * lu(k,1472)
    6570   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,857) * lu(k,1472)
    6571   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,858) * lu(k,1472)
    6572   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,859) * lu(k,1472)
    6573   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,860) * lu(k,1472)
    6574   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,861) * lu(k,1472)
    6575   114070872 :          lu(k,1550) = lu(k,1550) - lu(k,834) * lu(k,1549)
    6576   114070872 :          lu(k,1551) = lu(k,1551) - lu(k,835) * lu(k,1549)
    6577   114070872 :          lu(k,1552) = lu(k,1552) - lu(k,836) * lu(k,1549)
    6578   114070872 :          lu(k,1553) = lu(k,1553) - lu(k,837) * lu(k,1549)
    6579   114070872 :          lu(k,1554) = lu(k,1554) - lu(k,838) * lu(k,1549)
    6580   114070872 :          lu(k,1555) = lu(k,1555) - lu(k,839) * lu(k,1549)
    6581   114070872 :          lu(k,1556) = lu(k,1556) - lu(k,840) * lu(k,1549)
    6582   114070872 :          lu(k,1557) = lu(k,1557) - lu(k,841) * lu(k,1549)
    6583   114070872 :          lu(k,1558) = lu(k,1558) - lu(k,842) * lu(k,1549)
    6584   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,843) * lu(k,1549)
    6585   114070872 :          lu(k,1560) = lu(k,1560) - lu(k,844) * lu(k,1549)
    6586   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,845) * lu(k,1549)
    6587   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,846) * lu(k,1549)
    6588   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,847) * lu(k,1549)
    6589   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,848) * lu(k,1549)
    6590   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,849) * lu(k,1549)
    6591   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,850) * lu(k,1549)
    6592   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,851) * lu(k,1549)
    6593   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,852) * lu(k,1549)
    6594   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,853) * lu(k,1549)
    6595   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,854) * lu(k,1549)
    6596   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,855) * lu(k,1549)
    6597   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,856) * lu(k,1549)
    6598   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,857) * lu(k,1549)
    6599   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,858) * lu(k,1549)
    6600   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,859) * lu(k,1549)
    6601   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,860) * lu(k,1549)
    6602   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,861) * lu(k,1549)
    6603   114070872 :          lu(k,1595) = lu(k,1595) - lu(k,834) * lu(k,1594)
    6604   114070872 :          lu(k,1596) = lu(k,1596) - lu(k,835) * lu(k,1594)
    6605   114070872 :          lu(k,1597) = lu(k,1597) - lu(k,836) * lu(k,1594)
    6606   114070872 :          lu(k,1598) = lu(k,1598) - lu(k,837) * lu(k,1594)
    6607   114070872 :          lu(k,1599) = lu(k,1599) - lu(k,838) * lu(k,1594)
    6608   114070872 :          lu(k,1600) = lu(k,1600) - lu(k,839) * lu(k,1594)
    6609   114070872 :          lu(k,1601) = lu(k,1601) - lu(k,840) * lu(k,1594)
    6610   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,841) * lu(k,1594)
    6611   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,842) * lu(k,1594)
    6612   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,843) * lu(k,1594)
    6613   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,844) * lu(k,1594)
    6614   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,845) * lu(k,1594)
    6615   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,846) * lu(k,1594)
    6616   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,847) * lu(k,1594)
    6617   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,848) * lu(k,1594)
    6618   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,849) * lu(k,1594)
    6619   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,850) * lu(k,1594)
    6620   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,851) * lu(k,1594)
    6621   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,852) * lu(k,1594)
    6622   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,853) * lu(k,1594)
    6623   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,854) * lu(k,1594)
    6624   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,855) * lu(k,1594)
    6625   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,856) * lu(k,1594)
    6626   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,857) * lu(k,1594)
    6627   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,858) * lu(k,1594)
    6628   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,859) * lu(k,1594)
    6629   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,860) * lu(k,1594)
    6630   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,861) * lu(k,1594)
    6631   114070872 :          lu(k,1638) = lu(k,1638) - lu(k,834) * lu(k,1637)
    6632   114070872 :          lu(k,1639) = - lu(k,835) * lu(k,1637)
    6633   114070872 :          lu(k,1640) = lu(k,1640) - lu(k,836) * lu(k,1637)
    6634   114070872 :          lu(k,1641) = lu(k,1641) - lu(k,837) * lu(k,1637)
    6635   114070872 :          lu(k,1642) = lu(k,1642) - lu(k,838) * lu(k,1637)
    6636   114070872 :          lu(k,1643) = lu(k,1643) - lu(k,839) * lu(k,1637)
    6637   114070872 :          lu(k,1644) = - lu(k,840) * lu(k,1637)
    6638   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,841) * lu(k,1637)
    6639   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,842) * lu(k,1637)
    6640   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,843) * lu(k,1637)
    6641   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,844) * lu(k,1637)
    6642   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,845) * lu(k,1637)
    6643   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,846) * lu(k,1637)
    6644   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,847) * lu(k,1637)
    6645   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,848) * lu(k,1637)
    6646   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,849) * lu(k,1637)
    6647   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,850) * lu(k,1637)
    6648   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,851) * lu(k,1637)
    6649   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,852) * lu(k,1637)
    6650   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,853) * lu(k,1637)
    6651   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,854) * lu(k,1637)
    6652   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,855) * lu(k,1637)
    6653   114070872 :          lu(k,1661) = - lu(k,856) * lu(k,1637)
    6654   114070872 :          lu(k,1662) = - lu(k,857) * lu(k,1637)
    6655   114070872 :          lu(k,1663) = - lu(k,858) * lu(k,1637)
    6656   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,859) * lu(k,1637)
    6657   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,860) * lu(k,1637)
    6658   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,861) * lu(k,1637)
    6659   114070872 :          lu(k,1681) = lu(k,1681) - lu(k,834) * lu(k,1680)
    6660   114070872 :          lu(k,1682) = - lu(k,835) * lu(k,1680)
    6661   114070872 :          lu(k,1683) = lu(k,1683) - lu(k,836) * lu(k,1680)
    6662   114070872 :          lu(k,1684) = lu(k,1684) - lu(k,837) * lu(k,1680)
    6663   114070872 :          lu(k,1685) = lu(k,1685) - lu(k,838) * lu(k,1680)
    6664   114070872 :          lu(k,1686) = lu(k,1686) - lu(k,839) * lu(k,1680)
    6665   114070872 :          lu(k,1687) = - lu(k,840) * lu(k,1680)
    6666   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,841) * lu(k,1680)
    6667   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,842) * lu(k,1680)
    6668   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,843) * lu(k,1680)
    6669   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,844) * lu(k,1680)
    6670   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,845) * lu(k,1680)
    6671   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,846) * lu(k,1680)
    6672   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,847) * lu(k,1680)
    6673   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,848) * lu(k,1680)
    6674   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,849) * lu(k,1680)
    6675   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,850) * lu(k,1680)
    6676   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,851) * lu(k,1680)
    6677   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,852) * lu(k,1680)
    6678   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,853) * lu(k,1680)
    6679   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,854) * lu(k,1680)
    6680   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,855) * lu(k,1680)
    6681   114070872 :          lu(k,1704) = - lu(k,856) * lu(k,1680)
    6682   114070872 :          lu(k,1705) = - lu(k,857) * lu(k,1680)
    6683   114070872 :          lu(k,1706) = - lu(k,858) * lu(k,1680)
    6684   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,859) * lu(k,1680)
    6685   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,860) * lu(k,1680)
    6686   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,861) * lu(k,1680)
    6687   114070872 :          lu(k,1757) = lu(k,1757) - lu(k,834) * lu(k,1756)
    6688   114070872 :          lu(k,1758) = lu(k,1758) - lu(k,835) * lu(k,1756)
    6689   114070872 :          lu(k,1759) = lu(k,1759) - lu(k,836) * lu(k,1756)
    6690   114070872 :          lu(k,1760) = lu(k,1760) - lu(k,837) * lu(k,1756)
    6691   114070872 :          lu(k,1761) = lu(k,1761) - lu(k,838) * lu(k,1756)
    6692   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,839) * lu(k,1756)
    6693   114070872 :          lu(k,1763) = lu(k,1763) - lu(k,840) * lu(k,1756)
    6694   114070872 :          lu(k,1764) = lu(k,1764) - lu(k,841) * lu(k,1756)
    6695   114070872 :          lu(k,1765) = lu(k,1765) - lu(k,842) * lu(k,1756)
    6696   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,843) * lu(k,1756)
    6697   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,844) * lu(k,1756)
    6698   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,845) * lu(k,1756)
    6699   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,846) * lu(k,1756)
    6700   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,847) * lu(k,1756)
    6701   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,848) * lu(k,1756)
    6702   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,849) * lu(k,1756)
    6703   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,850) * lu(k,1756)
    6704   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,851) * lu(k,1756)
    6705   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,852) * lu(k,1756)
    6706   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,853) * lu(k,1756)
    6707   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,854) * lu(k,1756)
    6708   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,855) * lu(k,1756)
    6709   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,856) * lu(k,1756)
    6710   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,857) * lu(k,1756)
    6711   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,858) * lu(k,1756)
    6712   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,859) * lu(k,1756)
    6713   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,860) * lu(k,1756)
    6714   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,861) * lu(k,1756)
    6715   114070872 :          lu(k,1915) = lu(k,1915) - lu(k,834) * lu(k,1914)
    6716   114070872 :          lu(k,1916) = lu(k,1916) - lu(k,835) * lu(k,1914)
    6717   114070872 :          lu(k,1917) = lu(k,1917) - lu(k,836) * lu(k,1914)
    6718   114070872 :          lu(k,1918) = lu(k,1918) - lu(k,837) * lu(k,1914)
    6719   114070872 :          lu(k,1919) = lu(k,1919) - lu(k,838) * lu(k,1914)
    6720   114070872 :          lu(k,1920) = lu(k,1920) - lu(k,839) * lu(k,1914)
    6721   114070872 :          lu(k,1921) = lu(k,1921) - lu(k,840) * lu(k,1914)
    6722   114070872 :          lu(k,1922) = - lu(k,841) * lu(k,1914)
    6723   114070872 :          lu(k,1923) = - lu(k,842) * lu(k,1914)
    6724   114070872 :          lu(k,1924) = lu(k,1924) - lu(k,843) * lu(k,1914)
    6725   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,844) * lu(k,1914)
    6726   114070872 :          lu(k,1926) = - lu(k,845) * lu(k,1914)
    6727   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,846) * lu(k,1914)
    6728   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,847) * lu(k,1914)
    6729   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,848) * lu(k,1914)
    6730   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,849) * lu(k,1914)
    6731   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,850) * lu(k,1914)
    6732   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,851) * lu(k,1914)
    6733   114070872 :          lu(k,1933) = - lu(k,852) * lu(k,1914)
    6734   114070872 :          lu(k,1934) = - lu(k,853) * lu(k,1914)
    6735   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,854) * lu(k,1914)
    6736   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,855) * lu(k,1914)
    6737   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,856) * lu(k,1914)
    6738   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,857) * lu(k,1914)
    6739   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,858) * lu(k,1914)
    6740   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,859) * lu(k,1914)
    6741   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,860) * lu(k,1914)
    6742   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,861) * lu(k,1914)
    6743   114070872 :          lu(k,2002) = lu(k,2002) - lu(k,834) * lu(k,2001)
    6744   114070872 :          lu(k,2003) = lu(k,2003) - lu(k,835) * lu(k,2001)
    6745   114070872 :          lu(k,2004) = lu(k,2004) - lu(k,836) * lu(k,2001)
    6746   114070872 :          lu(k,2005) = lu(k,2005) - lu(k,837) * lu(k,2001)
    6747   114070872 :          lu(k,2006) = - lu(k,838) * lu(k,2001)
    6748   114070872 :          lu(k,2007) = lu(k,2007) - lu(k,839) * lu(k,2001)
    6749   114070872 :          lu(k,2008) = lu(k,2008) - lu(k,840) * lu(k,2001)
    6750   114070872 :          lu(k,2009) = lu(k,2009) - lu(k,841) * lu(k,2001)
    6751   114070872 :          lu(k,2010) = lu(k,2010) - lu(k,842) * lu(k,2001)
    6752   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,843) * lu(k,2001)
    6753   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,844) * lu(k,2001)
    6754   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,845) * lu(k,2001)
    6755   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,846) * lu(k,2001)
    6756   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,847) * lu(k,2001)
    6757   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,848) * lu(k,2001)
    6758   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,849) * lu(k,2001)
    6759   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,850) * lu(k,2001)
    6760   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,851) * lu(k,2001)
    6761   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,852) * lu(k,2001)
    6762   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,853) * lu(k,2001)
    6763   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,854) * lu(k,2001)
    6764   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,855) * lu(k,2001)
    6765   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,856) * lu(k,2001)
    6766   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,857) * lu(k,2001)
    6767   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,858) * lu(k,2001)
    6768   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,859) * lu(k,2001)
    6769   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,860) * lu(k,2001)
    6770   117656469 :          lu(k,2030) = lu(k,2030) - lu(k,861) * lu(k,2001)
    6771             :       end do
    6772     3585597 :       end subroutine lu_fac19
    6773     3585597 :       subroutine lu_fac20( avec_len, lu )
    6774             :       use chem_mods, only : nzcnt
    6775             :       use shr_kind_mod, only : r8 => shr_kind_r8
    6776             :       implicit none
    6777             : !-----------------------------------------------------------------------
    6778             : ! ... dummy args
    6779             : !-----------------------------------------------------------------------
    6780             :       integer, intent(in) :: avec_len
    6781             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    6782             : !-----------------------------------------------------------------------
    6783             : ! ... local variables
    6784             : !-----------------------------------------------------------------------
    6785             :       integer :: k
    6786   117656469 :       do k = 1,avec_len
    6787   114070872 :          lu(k,866) = 1._r8 / lu(k,866)
    6788   114070872 :          lu(k,867) = lu(k,867) * lu(k,866)
    6789   114070872 :          lu(k,868) = lu(k,868) * lu(k,866)
    6790   114070872 :          lu(k,869) = lu(k,869) * lu(k,866)
    6791   114070872 :          lu(k,870) = lu(k,870) * lu(k,866)
    6792   114070872 :          lu(k,871) = lu(k,871) * lu(k,866)
    6793   114070872 :          lu(k,872) = lu(k,872) * lu(k,866)
    6794   114070872 :          lu(k,873) = lu(k,873) * lu(k,866)
    6795   114070872 :          lu(k,874) = lu(k,874) * lu(k,866)
    6796   114070872 :          lu(k,875) = lu(k,875) * lu(k,866)
    6797   114070872 :          lu(k,876) = lu(k,876) * lu(k,866)
    6798   114070872 :          lu(k,877) = lu(k,877) * lu(k,866)
    6799   114070872 :          lu(k,878) = lu(k,878) * lu(k,866)
    6800   114070872 :          lu(k,879) = lu(k,879) * lu(k,866)
    6801   114070872 :          lu(k,880) = lu(k,880) * lu(k,866)
    6802   114070872 :          lu(k,881) = lu(k,881) * lu(k,866)
    6803   114070872 :          lu(k,882) = lu(k,882) * lu(k,866)
    6804   114070872 :          lu(k,883) = lu(k,883) * lu(k,866)
    6805   114070872 :          lu(k,884) = lu(k,884) * lu(k,866)
    6806   114070872 :          lu(k,885) = lu(k,885) * lu(k,866)
    6807   114070872 :          lu(k,886) = lu(k,886) * lu(k,866)
    6808   114070872 :          lu(k,926) = lu(k,926) - lu(k,867) * lu(k,925)
    6809   114070872 :          lu(k,928) = lu(k,928) - lu(k,868) * lu(k,925)
    6810   114070872 :          lu(k,930) = lu(k,930) - lu(k,869) * lu(k,925)
    6811   114070872 :          lu(k,931) = lu(k,931) - lu(k,870) * lu(k,925)
    6812   114070872 :          lu(k,932) = lu(k,932) - lu(k,871) * lu(k,925)
    6813   114070872 :          lu(k,933) = lu(k,933) - lu(k,872) * lu(k,925)
    6814   114070872 :          lu(k,934) = - lu(k,873) * lu(k,925)
    6815   114070872 :          lu(k,935) = lu(k,935) - lu(k,874) * lu(k,925)
    6816   114070872 :          lu(k,936) = lu(k,936) - lu(k,875) * lu(k,925)
    6817   114070872 :          lu(k,937) = lu(k,937) - lu(k,876) * lu(k,925)
    6818   114070872 :          lu(k,938) = lu(k,938) - lu(k,877) * lu(k,925)
    6819   114070872 :          lu(k,939) = lu(k,939) - lu(k,878) * lu(k,925)
    6820   114070872 :          lu(k,940) = lu(k,940) - lu(k,879) * lu(k,925)
    6821   114070872 :          lu(k,941) = lu(k,941) - lu(k,880) * lu(k,925)
    6822   114070872 :          lu(k,942) = lu(k,942) - lu(k,881) * lu(k,925)
    6823   114070872 :          lu(k,943) = lu(k,943) - lu(k,882) * lu(k,925)
    6824   114070872 :          lu(k,945) = lu(k,945) - lu(k,883) * lu(k,925)
    6825   114070872 :          lu(k,946) = lu(k,946) - lu(k,884) * lu(k,925)
    6826   114070872 :          lu(k,947) = lu(k,947) - lu(k,885) * lu(k,925)
    6827   114070872 :          lu(k,948) = lu(k,948) - lu(k,886) * lu(k,925)
    6828   114070872 :          lu(k,1012) = lu(k,1012) - lu(k,867) * lu(k,1011)
    6829   114070872 :          lu(k,1015) = lu(k,1015) - lu(k,868) * lu(k,1011)
    6830   114070872 :          lu(k,1017) = lu(k,1017) - lu(k,869) * lu(k,1011)
    6831   114070872 :          lu(k,1018) = lu(k,1018) - lu(k,870) * lu(k,1011)
    6832   114070872 :          lu(k,1019) = lu(k,1019) - lu(k,871) * lu(k,1011)
    6833   114070872 :          lu(k,1021) = lu(k,1021) - lu(k,872) * lu(k,1011)
    6834   114070872 :          lu(k,1022) = lu(k,1022) - lu(k,873) * lu(k,1011)
    6835   114070872 :          lu(k,1023) = lu(k,1023) - lu(k,874) * lu(k,1011)
    6836   114070872 :          lu(k,1024) = lu(k,1024) - lu(k,875) * lu(k,1011)
    6837   114070872 :          lu(k,1025) = lu(k,1025) - lu(k,876) * lu(k,1011)
    6838   114070872 :          lu(k,1027) = lu(k,1027) - lu(k,877) * lu(k,1011)
    6839   114070872 :          lu(k,1028) = lu(k,1028) - lu(k,878) * lu(k,1011)
    6840   114070872 :          lu(k,1029) = lu(k,1029) - lu(k,879) * lu(k,1011)
    6841   114070872 :          lu(k,1030) = lu(k,1030) - lu(k,880) * lu(k,1011)
    6842   114070872 :          lu(k,1031) = lu(k,1031) - lu(k,881) * lu(k,1011)
    6843   114070872 :          lu(k,1032) = lu(k,1032) - lu(k,882) * lu(k,1011)
    6844   114070872 :          lu(k,1035) = lu(k,1035) - lu(k,883) * lu(k,1011)
    6845   114070872 :          lu(k,1036) = lu(k,1036) - lu(k,884) * lu(k,1011)
    6846   114070872 :          lu(k,1037) = lu(k,1037) - lu(k,885) * lu(k,1011)
    6847   114070872 :          lu(k,1038) = lu(k,1038) - lu(k,886) * lu(k,1011)
    6848   114070872 :          lu(k,1100) = lu(k,1100) - lu(k,867) * lu(k,1098)
    6849   114070872 :          lu(k,1103) = lu(k,1103) - lu(k,868) * lu(k,1098)
    6850   114070872 :          lu(k,1105) = lu(k,1105) - lu(k,869) * lu(k,1098)
    6851   114070872 :          lu(k,1106) = lu(k,1106) - lu(k,870) * lu(k,1098)
    6852   114070872 :          lu(k,1107) = lu(k,1107) - lu(k,871) * lu(k,1098)
    6853   114070872 :          lu(k,1109) = lu(k,1109) - lu(k,872) * lu(k,1098)
    6854   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,873) * lu(k,1098)
    6855   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,874) * lu(k,1098)
    6856   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,875) * lu(k,1098)
    6857   114070872 :          lu(k,1113) = lu(k,1113) - lu(k,876) * lu(k,1098)
    6858   114070872 :          lu(k,1115) = lu(k,1115) - lu(k,877) * lu(k,1098)
    6859   114070872 :          lu(k,1116) = lu(k,1116) - lu(k,878) * lu(k,1098)
    6860   114070872 :          lu(k,1117) = lu(k,1117) - lu(k,879) * lu(k,1098)
    6861   114070872 :          lu(k,1118) = lu(k,1118) - lu(k,880) * lu(k,1098)
    6862   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,881) * lu(k,1098)
    6863   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,882) * lu(k,1098)
    6864   114070872 :          lu(k,1123) = lu(k,1123) - lu(k,883) * lu(k,1098)
    6865   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,884) * lu(k,1098)
    6866   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,885) * lu(k,1098)
    6867   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,886) * lu(k,1098)
    6868   114070872 :          lu(k,1148) = lu(k,1148) - lu(k,867) * lu(k,1146)
    6869   114070872 :          lu(k,1151) = lu(k,1151) - lu(k,868) * lu(k,1146)
    6870   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,869) * lu(k,1146)
    6871   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,870) * lu(k,1146)
    6872   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,871) * lu(k,1146)
    6873   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,872) * lu(k,1146)
    6874   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,873) * lu(k,1146)
    6875   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,874) * lu(k,1146)
    6876   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,875) * lu(k,1146)
    6877   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,876) * lu(k,1146)
    6878   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,877) * lu(k,1146)
    6879   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,878) * lu(k,1146)
    6880   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,879) * lu(k,1146)
    6881   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,880) * lu(k,1146)
    6882   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,881) * lu(k,1146)
    6883   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,882) * lu(k,1146)
    6884   114070872 :          lu(k,1171) = lu(k,1171) - lu(k,883) * lu(k,1146)
    6885   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,884) * lu(k,1146)
    6886   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,885) * lu(k,1146)
    6887   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,886) * lu(k,1146)
    6888   114070872 :          lu(k,1191) = lu(k,1191) - lu(k,867) * lu(k,1189)
    6889   114070872 :          lu(k,1194) = lu(k,1194) - lu(k,868) * lu(k,1189)
    6890   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,869) * lu(k,1189)
    6891   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,870) * lu(k,1189)
    6892   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,871) * lu(k,1189)
    6893   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,872) * lu(k,1189)
    6894   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,873) * lu(k,1189)
    6895   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,874) * lu(k,1189)
    6896   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,875) * lu(k,1189)
    6897   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,876) * lu(k,1189)
    6898   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,877) * lu(k,1189)
    6899   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,878) * lu(k,1189)
    6900   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,879) * lu(k,1189)
    6901   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,880) * lu(k,1189)
    6902   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,881) * lu(k,1189)
    6903   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,882) * lu(k,1189)
    6904   114070872 :          lu(k,1214) = lu(k,1214) - lu(k,883) * lu(k,1189)
    6905   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,884) * lu(k,1189)
    6906   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,885) * lu(k,1189)
    6907   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,886) * lu(k,1189)
    6908   114070872 :          lu(k,1234) = lu(k,1234) - lu(k,867) * lu(k,1232)
    6909   114070872 :          lu(k,1237) = lu(k,1237) - lu(k,868) * lu(k,1232)
    6910   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,869) * lu(k,1232)
    6911   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,870) * lu(k,1232)
    6912   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,871) * lu(k,1232)
    6913   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,872) * lu(k,1232)
    6914   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,873) * lu(k,1232)
    6915   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,874) * lu(k,1232)
    6916   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,875) * lu(k,1232)
    6917   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,876) * lu(k,1232)
    6918   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,877) * lu(k,1232)
    6919   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,878) * lu(k,1232)
    6920   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,879) * lu(k,1232)
    6921   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,880) * lu(k,1232)
    6922   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,881) * lu(k,1232)
    6923   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,882) * lu(k,1232)
    6924   114070872 :          lu(k,1257) = lu(k,1257) - lu(k,883) * lu(k,1232)
    6925   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,884) * lu(k,1232)
    6926   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,885) * lu(k,1232)
    6927   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,886) * lu(k,1232)
    6928   114070872 :          lu(k,1276) = lu(k,1276) - lu(k,867) * lu(k,1274)
    6929   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,868) * lu(k,1274)
    6930   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,869) * lu(k,1274)
    6931   114070872 :          lu(k,1282) = lu(k,1282) - lu(k,870) * lu(k,1274)
    6932   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,871) * lu(k,1274)
    6933   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,872) * lu(k,1274)
    6934   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,873) * lu(k,1274)
    6935   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,874) * lu(k,1274)
    6936   114070872 :          lu(k,1288) = lu(k,1288) - lu(k,875) * lu(k,1274)
    6937   114070872 :          lu(k,1289) = lu(k,1289) - lu(k,876) * lu(k,1274)
    6938   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,877) * lu(k,1274)
    6939   114070872 :          lu(k,1292) = lu(k,1292) - lu(k,878) * lu(k,1274)
    6940   114070872 :          lu(k,1293) = lu(k,1293) - lu(k,879) * lu(k,1274)
    6941   114070872 :          lu(k,1294) = lu(k,1294) - lu(k,880) * lu(k,1274)
    6942   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,881) * lu(k,1274)
    6943   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,882) * lu(k,1274)
    6944   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,883) * lu(k,1274)
    6945   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,884) * lu(k,1274)
    6946   114070872 :          lu(k,1301) = lu(k,1301) - lu(k,885) * lu(k,1274)
    6947   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,886) * lu(k,1274)
    6948   114070872 :          lu(k,1318) = lu(k,1318) - lu(k,867) * lu(k,1316)
    6949   114070872 :          lu(k,1321) = lu(k,1321) - lu(k,868) * lu(k,1316)
    6950   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,869) * lu(k,1316)
    6951   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,870) * lu(k,1316)
    6952   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,871) * lu(k,1316)
    6953   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,872) * lu(k,1316)
    6954   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,873) * lu(k,1316)
    6955   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,874) * lu(k,1316)
    6956   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,875) * lu(k,1316)
    6957   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,876) * lu(k,1316)
    6958   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,877) * lu(k,1316)
    6959   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,878) * lu(k,1316)
    6960   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,879) * lu(k,1316)
    6961   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,880) * lu(k,1316)
    6962   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,881) * lu(k,1316)
    6963   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,882) * lu(k,1316)
    6964   114070872 :          lu(k,1341) = lu(k,1341) - lu(k,883) * lu(k,1316)
    6965   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,884) * lu(k,1316)
    6966   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,885) * lu(k,1316)
    6967   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,886) * lu(k,1316)
    6968   114070872 :          lu(k,1378) = lu(k,1378) - lu(k,867) * lu(k,1376)
    6969   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,868) * lu(k,1376)
    6970   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,869) * lu(k,1376)
    6971   114070872 :          lu(k,1384) = lu(k,1384) - lu(k,870) * lu(k,1376)
    6972   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,871) * lu(k,1376)
    6973   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,872) * lu(k,1376)
    6974   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,873) * lu(k,1376)
    6975   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,874) * lu(k,1376)
    6976   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,875) * lu(k,1376)
    6977   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,876) * lu(k,1376)
    6978   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,877) * lu(k,1376)
    6979   114070872 :          lu(k,1394) = lu(k,1394) - lu(k,878) * lu(k,1376)
    6980   114070872 :          lu(k,1395) = lu(k,1395) - lu(k,879) * lu(k,1376)
    6981   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,880) * lu(k,1376)
    6982   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,881) * lu(k,1376)
    6983   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,882) * lu(k,1376)
    6984   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,883) * lu(k,1376)
    6985   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,884) * lu(k,1376)
    6986   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,885) * lu(k,1376)
    6987   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,886) * lu(k,1376)
    6988   114070872 :          lu(k,1427) = lu(k,1427) - lu(k,867) * lu(k,1425)
    6989   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,868) * lu(k,1425)
    6990   114070872 :          lu(k,1432) = lu(k,1432) - lu(k,869) * lu(k,1425)
    6991   114070872 :          lu(k,1433) = lu(k,1433) - lu(k,870) * lu(k,1425)
    6992   114070872 :          lu(k,1434) = lu(k,1434) - lu(k,871) * lu(k,1425)
    6993   114070872 :          lu(k,1436) = lu(k,1436) - lu(k,872) * lu(k,1425)
    6994   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,873) * lu(k,1425)
    6995   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,874) * lu(k,1425)
    6996   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,875) * lu(k,1425)
    6997   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,876) * lu(k,1425)
    6998   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,877) * lu(k,1425)
    6999   114070872 :          lu(k,1443) = lu(k,1443) - lu(k,878) * lu(k,1425)
    7000   114070872 :          lu(k,1444) = lu(k,1444) - lu(k,879) * lu(k,1425)
    7001   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,880) * lu(k,1425)
    7002   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,881) * lu(k,1425)
    7003   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,882) * lu(k,1425)
    7004   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,883) * lu(k,1425)
    7005   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,884) * lu(k,1425)
    7006   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,885) * lu(k,1425)
    7007   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,886) * lu(k,1425)
    7008   114070872 :          lu(k,1475) = lu(k,1475) - lu(k,867) * lu(k,1473)
    7009   114070872 :          lu(k,1478) = lu(k,1478) - lu(k,868) * lu(k,1473)
    7010   114070872 :          lu(k,1480) = lu(k,1480) - lu(k,869) * lu(k,1473)
    7011   114070872 :          lu(k,1481) = lu(k,1481) - lu(k,870) * lu(k,1473)
    7012   114070872 :          lu(k,1482) = lu(k,1482) - lu(k,871) * lu(k,1473)
    7013   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,872) * lu(k,1473)
    7014   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,873) * lu(k,1473)
    7015   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,874) * lu(k,1473)
    7016   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,875) * lu(k,1473)
    7017   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,876) * lu(k,1473)
    7018   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,877) * lu(k,1473)
    7019   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,878) * lu(k,1473)
    7020   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,879) * lu(k,1473)
    7021   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,880) * lu(k,1473)
    7022   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,881) * lu(k,1473)
    7023   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,882) * lu(k,1473)
    7024   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,883) * lu(k,1473)
    7025   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,884) * lu(k,1473)
    7026   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,885) * lu(k,1473)
    7027   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,886) * lu(k,1473)
    7028   114070872 :          lu(k,1516) = lu(k,1516) - lu(k,867) * lu(k,1514)
    7029   114070872 :          lu(k,1519) = lu(k,1519) - lu(k,868) * lu(k,1514)
    7030   114070872 :          lu(k,1521) = lu(k,1521) - lu(k,869) * lu(k,1514)
    7031   114070872 :          lu(k,1522) = lu(k,1522) - lu(k,870) * lu(k,1514)
    7032   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,871) * lu(k,1514)
    7033   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,872) * lu(k,1514)
    7034   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,873) * lu(k,1514)
    7035   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,874) * lu(k,1514)
    7036   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,875) * lu(k,1514)
    7037   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,876) * lu(k,1514)
    7038   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,877) * lu(k,1514)
    7039   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,878) * lu(k,1514)
    7040   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,879) * lu(k,1514)
    7041   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,880) * lu(k,1514)
    7042   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,881) * lu(k,1514)
    7043   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,882) * lu(k,1514)
    7044   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,883) * lu(k,1514)
    7045   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,884) * lu(k,1514)
    7046   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,885) * lu(k,1514)
    7047   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,886) * lu(k,1514)
    7048   114070872 :          lu(k,1552) = lu(k,1552) - lu(k,867) * lu(k,1550)
    7049   114070872 :          lu(k,1555) = lu(k,1555) - lu(k,868) * lu(k,1550)
    7050   114070872 :          lu(k,1557) = lu(k,1557) - lu(k,869) * lu(k,1550)
    7051   114070872 :          lu(k,1558) = lu(k,1558) - lu(k,870) * lu(k,1550)
    7052   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,871) * lu(k,1550)
    7053   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,872) * lu(k,1550)
    7054   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,873) * lu(k,1550)
    7055   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,874) * lu(k,1550)
    7056   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,875) * lu(k,1550)
    7057   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,876) * lu(k,1550)
    7058   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,877) * lu(k,1550)
    7059   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,878) * lu(k,1550)
    7060   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,879) * lu(k,1550)
    7061   114070872 :          lu(k,1570) = - lu(k,880) * lu(k,1550)
    7062   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,881) * lu(k,1550)
    7063   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,882) * lu(k,1550)
    7064   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,883) * lu(k,1550)
    7065   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,884) * lu(k,1550)
    7066   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,885) * lu(k,1550)
    7067   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,886) * lu(k,1550)
    7068   114070872 :          lu(k,1597) = lu(k,1597) - lu(k,867) * lu(k,1595)
    7069   114070872 :          lu(k,1600) = lu(k,1600) - lu(k,868) * lu(k,1595)
    7070   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,869) * lu(k,1595)
    7071   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,870) * lu(k,1595)
    7072   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,871) * lu(k,1595)
    7073   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,872) * lu(k,1595)
    7074   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,873) * lu(k,1595)
    7075   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,874) * lu(k,1595)
    7076   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,875) * lu(k,1595)
    7077   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,876) * lu(k,1595)
    7078   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,877) * lu(k,1595)
    7079   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,878) * lu(k,1595)
    7080   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,879) * lu(k,1595)
    7081   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,880) * lu(k,1595)
    7082   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,881) * lu(k,1595)
    7083   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,882) * lu(k,1595)
    7084   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,883) * lu(k,1595)
    7085   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,884) * lu(k,1595)
    7086   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,885) * lu(k,1595)
    7087   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,886) * lu(k,1595)
    7088   114070872 :          lu(k,1640) = lu(k,1640) - lu(k,867) * lu(k,1638)
    7089   114070872 :          lu(k,1643) = lu(k,1643) - lu(k,868) * lu(k,1638)
    7090   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,869) * lu(k,1638)
    7091   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,870) * lu(k,1638)
    7092   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,871) * lu(k,1638)
    7093   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,872) * lu(k,1638)
    7094   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,873) * lu(k,1638)
    7095   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,874) * lu(k,1638)
    7096   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,875) * lu(k,1638)
    7097   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,876) * lu(k,1638)
    7098   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,877) * lu(k,1638)
    7099   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,878) * lu(k,1638)
    7100   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,879) * lu(k,1638)
    7101   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,880) * lu(k,1638)
    7102   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,881) * lu(k,1638)
    7103   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,882) * lu(k,1638)
    7104   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,883) * lu(k,1638)
    7105   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,884) * lu(k,1638)
    7106   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,885) * lu(k,1638)
    7107   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,886) * lu(k,1638)
    7108   114070872 :          lu(k,1683) = lu(k,1683) - lu(k,867) * lu(k,1681)
    7109   114070872 :          lu(k,1686) = lu(k,1686) - lu(k,868) * lu(k,1681)
    7110   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,869) * lu(k,1681)
    7111   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,870) * lu(k,1681)
    7112   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,871) * lu(k,1681)
    7113   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,872) * lu(k,1681)
    7114   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,873) * lu(k,1681)
    7115   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,874) * lu(k,1681)
    7116   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,875) * lu(k,1681)
    7117   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,876) * lu(k,1681)
    7118   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,877) * lu(k,1681)
    7119   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,878) * lu(k,1681)
    7120   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,879) * lu(k,1681)
    7121   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,880) * lu(k,1681)
    7122   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,881) * lu(k,1681)
    7123   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,882) * lu(k,1681)
    7124   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,883) * lu(k,1681)
    7125   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,884) * lu(k,1681)
    7126   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,885) * lu(k,1681)
    7127   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,886) * lu(k,1681)
    7128   114070872 :          lu(k,1724) = - lu(k,867) * lu(k,1722)
    7129   114070872 :          lu(k,1726) = lu(k,1726) - lu(k,868) * lu(k,1722)
    7130   114070872 :          lu(k,1728) = lu(k,1728) - lu(k,869) * lu(k,1722)
    7131   114070872 :          lu(k,1729) = lu(k,1729) - lu(k,870) * lu(k,1722)
    7132   114070872 :          lu(k,1730) = lu(k,1730) - lu(k,871) * lu(k,1722)
    7133   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,872) * lu(k,1722)
    7134   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,873) * lu(k,1722)
    7135   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,874) * lu(k,1722)
    7136   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,875) * lu(k,1722)
    7137   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,876) * lu(k,1722)
    7138   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,877) * lu(k,1722)
    7139   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,878) * lu(k,1722)
    7140   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,879) * lu(k,1722)
    7141   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,880) * lu(k,1722)
    7142   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,881) * lu(k,1722)
    7143   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,882) * lu(k,1722)
    7144   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,883) * lu(k,1722)
    7145   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,884) * lu(k,1722)
    7146   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,885) * lu(k,1722)
    7147   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,886) * lu(k,1722)
    7148   114070872 :          lu(k,1759) = lu(k,1759) - lu(k,867) * lu(k,1757)
    7149   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,868) * lu(k,1757)
    7150   114070872 :          lu(k,1764) = lu(k,1764) - lu(k,869) * lu(k,1757)
    7151   114070872 :          lu(k,1765) = lu(k,1765) - lu(k,870) * lu(k,1757)
    7152   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,871) * lu(k,1757)
    7153   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,872) * lu(k,1757)
    7154   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,873) * lu(k,1757)
    7155   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,874) * lu(k,1757)
    7156   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,875) * lu(k,1757)
    7157   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,876) * lu(k,1757)
    7158   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,877) * lu(k,1757)
    7159   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,878) * lu(k,1757)
    7160   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,879) * lu(k,1757)
    7161   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,880) * lu(k,1757)
    7162   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,881) * lu(k,1757)
    7163   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,882) * lu(k,1757)
    7164   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,883) * lu(k,1757)
    7165   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,884) * lu(k,1757)
    7166   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,885) * lu(k,1757)
    7167   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,886) * lu(k,1757)
    7168   114070872 :          lu(k,1807) = lu(k,1807) - lu(k,867) * lu(k,1805)
    7169   114070872 :          lu(k,1810) = lu(k,1810) - lu(k,868) * lu(k,1805)
    7170   114070872 :          lu(k,1812) = lu(k,1812) - lu(k,869) * lu(k,1805)
    7171   114070872 :          lu(k,1813) = lu(k,1813) - lu(k,870) * lu(k,1805)
    7172   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,871) * lu(k,1805)
    7173   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,872) * lu(k,1805)
    7174   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,873) * lu(k,1805)
    7175   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,874) * lu(k,1805)
    7176   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,875) * lu(k,1805)
    7177   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,876) * lu(k,1805)
    7178   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,877) * lu(k,1805)
    7179   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,878) * lu(k,1805)
    7180   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,879) * lu(k,1805)
    7181   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,880) * lu(k,1805)
    7182   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,881) * lu(k,1805)
    7183   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,882) * lu(k,1805)
    7184   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,883) * lu(k,1805)
    7185   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,884) * lu(k,1805)
    7186   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,885) * lu(k,1805)
    7187   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,886) * lu(k,1805)
    7188   114070872 :          lu(k,1840) = lu(k,1840) - lu(k,867) * lu(k,1838)
    7189   114070872 :          lu(k,1843) = lu(k,1843) - lu(k,868) * lu(k,1838)
    7190   114070872 :          lu(k,1845) = lu(k,1845) - lu(k,869) * lu(k,1838)
    7191   114070872 :          lu(k,1846) = lu(k,1846) - lu(k,870) * lu(k,1838)
    7192   114070872 :          lu(k,1847) = lu(k,1847) - lu(k,871) * lu(k,1838)
    7193   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,872) * lu(k,1838)
    7194   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,873) * lu(k,1838)
    7195   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,874) * lu(k,1838)
    7196   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,875) * lu(k,1838)
    7197   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,876) * lu(k,1838)
    7198   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,877) * lu(k,1838)
    7199   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,878) * lu(k,1838)
    7200   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,879) * lu(k,1838)
    7201   114070872 :          lu(k,1858) = - lu(k,880) * lu(k,1838)
    7202   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,881) * lu(k,1838)
    7203   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,882) * lu(k,1838)
    7204   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,883) * lu(k,1838)
    7205   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,884) * lu(k,1838)
    7206   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,885) * lu(k,1838)
    7207   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,886) * lu(k,1838)
    7208   114070872 :          lu(k,1876) = lu(k,1876) - lu(k,867) * lu(k,1874)
    7209   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,868) * lu(k,1874)
    7210   114070872 :          lu(k,1881) = lu(k,1881) - lu(k,869) * lu(k,1874)
    7211   114070872 :          lu(k,1882) = lu(k,1882) - lu(k,870) * lu(k,1874)
    7212   114070872 :          lu(k,1883) = lu(k,1883) - lu(k,871) * lu(k,1874)
    7213   114070872 :          lu(k,1885) = lu(k,1885) - lu(k,872) * lu(k,1874)
    7214   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,873) * lu(k,1874)
    7215   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,874) * lu(k,1874)
    7216   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,875) * lu(k,1874)
    7217   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,876) * lu(k,1874)
    7218   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,877) * lu(k,1874)
    7219   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,878) * lu(k,1874)
    7220   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,879) * lu(k,1874)
    7221   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,880) * lu(k,1874)
    7222   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,881) * lu(k,1874)
    7223   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,882) * lu(k,1874)
    7224   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,883) * lu(k,1874)
    7225   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,884) * lu(k,1874)
    7226   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,885) * lu(k,1874)
    7227   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,886) * lu(k,1874)
    7228   114070872 :          lu(k,1917) = lu(k,1917) - lu(k,867) * lu(k,1915)
    7229   114070872 :          lu(k,1920) = lu(k,1920) - lu(k,868) * lu(k,1915)
    7230   114070872 :          lu(k,1922) = lu(k,1922) - lu(k,869) * lu(k,1915)
    7231   114070872 :          lu(k,1923) = lu(k,1923) - lu(k,870) * lu(k,1915)
    7232   114070872 :          lu(k,1924) = lu(k,1924) - lu(k,871) * lu(k,1915)
    7233   114070872 :          lu(k,1926) = lu(k,1926) - lu(k,872) * lu(k,1915)
    7234   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,873) * lu(k,1915)
    7235   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,874) * lu(k,1915)
    7236   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,875) * lu(k,1915)
    7237   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,876) * lu(k,1915)
    7238   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,877) * lu(k,1915)
    7239   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,878) * lu(k,1915)
    7240   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,879) * lu(k,1915)
    7241   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,880) * lu(k,1915)
    7242   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,881) * lu(k,1915)
    7243   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,882) * lu(k,1915)
    7244   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,883) * lu(k,1915)
    7245   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,884) * lu(k,1915)
    7246   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,885) * lu(k,1915)
    7247   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,886) * lu(k,1915)
    7248   114070872 :          lu(k,1959) = lu(k,1959) - lu(k,867) * lu(k,1957)
    7249   114070872 :          lu(k,1962) = lu(k,1962) - lu(k,868) * lu(k,1957)
    7250   114070872 :          lu(k,1964) = lu(k,1964) - lu(k,869) * lu(k,1957)
    7251   114070872 :          lu(k,1965) = lu(k,1965) - lu(k,870) * lu(k,1957)
    7252   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,871) * lu(k,1957)
    7253   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,872) * lu(k,1957)
    7254   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,873) * lu(k,1957)
    7255   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,874) * lu(k,1957)
    7256   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,875) * lu(k,1957)
    7257   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,876) * lu(k,1957)
    7258   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,877) * lu(k,1957)
    7259   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,878) * lu(k,1957)
    7260   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,879) * lu(k,1957)
    7261   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,880) * lu(k,1957)
    7262   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,881) * lu(k,1957)
    7263   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,882) * lu(k,1957)
    7264   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,883) * lu(k,1957)
    7265   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,884) * lu(k,1957)
    7266   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,885) * lu(k,1957)
    7267   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,886) * lu(k,1957)
    7268   114070872 :          lu(k,2004) = lu(k,2004) - lu(k,867) * lu(k,2002)
    7269   114070872 :          lu(k,2007) = lu(k,2007) - lu(k,868) * lu(k,2002)
    7270   114070872 :          lu(k,2009) = lu(k,2009) - lu(k,869) * lu(k,2002)
    7271   114070872 :          lu(k,2010) = lu(k,2010) - lu(k,870) * lu(k,2002)
    7272   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,871) * lu(k,2002)
    7273   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,872) * lu(k,2002)
    7274   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,873) * lu(k,2002)
    7275   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,874) * lu(k,2002)
    7276   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,875) * lu(k,2002)
    7277   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,876) * lu(k,2002)
    7278   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,877) * lu(k,2002)
    7279   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,878) * lu(k,2002)
    7280   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,879) * lu(k,2002)
    7281   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,880) * lu(k,2002)
    7282   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,881) * lu(k,2002)
    7283   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,882) * lu(k,2002)
    7284   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,883) * lu(k,2002)
    7285   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,884) * lu(k,2002)
    7286   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,885) * lu(k,2002)
    7287   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,886) * lu(k,2002)
    7288   114070872 :          lu(k,2064) = lu(k,2064) - lu(k,867) * lu(k,2062)
    7289   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,868) * lu(k,2062)
    7290   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,869) * lu(k,2062)
    7291   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,870) * lu(k,2062)
    7292   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,871) * lu(k,2062)
    7293   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,872) * lu(k,2062)
    7294   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,873) * lu(k,2062)
    7295   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,874) * lu(k,2062)
    7296   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,875) * lu(k,2062)
    7297   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,876) * lu(k,2062)
    7298   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,877) * lu(k,2062)
    7299   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,878) * lu(k,2062)
    7300   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,879) * lu(k,2062)
    7301   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,880) * lu(k,2062)
    7302   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,881) * lu(k,2062)
    7303   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,882) * lu(k,2062)
    7304   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,883) * lu(k,2062)
    7305   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,884) * lu(k,2062)
    7306   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,885) * lu(k,2062)
    7307   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,886) * lu(k,2062)
    7308   114070872 :          lu(k,900) = 1._r8 / lu(k,900)
    7309   114070872 :          lu(k,901) = lu(k,901) * lu(k,900)
    7310   114070872 :          lu(k,902) = lu(k,902) * lu(k,900)
    7311   114070872 :          lu(k,903) = lu(k,903) * lu(k,900)
    7312   114070872 :          lu(k,904) = lu(k,904) * lu(k,900)
    7313   114070872 :          lu(k,905) = lu(k,905) * lu(k,900)
    7314   114070872 :          lu(k,906) = lu(k,906) * lu(k,900)
    7315   114070872 :          lu(k,907) = lu(k,907) * lu(k,900)
    7316   114070872 :          lu(k,908) = lu(k,908) * lu(k,900)
    7317   114070872 :          lu(k,909) = lu(k,909) * lu(k,900)
    7318   114070872 :          lu(k,910) = lu(k,910) * lu(k,900)
    7319   114070872 :          lu(k,911) = lu(k,911) * lu(k,900)
    7320   114070872 :          lu(k,912) = lu(k,912) * lu(k,900)
    7321   114070872 :          lu(k,913) = lu(k,913) * lu(k,900)
    7322   114070872 :          lu(k,914) = lu(k,914) * lu(k,900)
    7323   114070872 :          lu(k,915) = lu(k,915) * lu(k,900)
    7324   114070872 :          lu(k,916) = lu(k,916) * lu(k,900)
    7325   114070872 :          lu(k,917) = lu(k,917) * lu(k,900)
    7326   114070872 :          lu(k,918) = lu(k,918) * lu(k,900)
    7327   114070872 :          lu(k,919) = lu(k,919) * lu(k,900)
    7328   114070872 :          lu(k,920) = lu(k,920) * lu(k,900)
    7329   114070872 :          lu(k,921) = lu(k,921) * lu(k,900)
    7330   114070872 :          lu(k,984) = lu(k,984) - lu(k,901) * lu(k,983)
    7331   114070872 :          lu(k,985) = lu(k,985) - lu(k,902) * lu(k,983)
    7332   114070872 :          lu(k,986) = lu(k,986) - lu(k,903) * lu(k,983)
    7333   114070872 :          lu(k,988) = lu(k,988) - lu(k,904) * lu(k,983)
    7334   114070872 :          lu(k,989) = lu(k,989) - lu(k,905) * lu(k,983)
    7335   114070872 :          lu(k,990) = lu(k,990) - lu(k,906) * lu(k,983)
    7336   114070872 :          lu(k,991) = lu(k,991) - lu(k,907) * lu(k,983)
    7337   114070872 :          lu(k,992) = lu(k,992) - lu(k,908) * lu(k,983)
    7338   114070872 :          lu(k,993) = lu(k,993) - lu(k,909) * lu(k,983)
    7339   114070872 :          lu(k,994) = lu(k,994) - lu(k,910) * lu(k,983)
    7340   114070872 :          lu(k,995) = lu(k,995) - lu(k,911) * lu(k,983)
    7341   114070872 :          lu(k,996) = lu(k,996) - lu(k,912) * lu(k,983)
    7342   114070872 :          lu(k,997) = lu(k,997) - lu(k,913) * lu(k,983)
    7343   114070872 :          lu(k,998) = lu(k,998) - lu(k,914) * lu(k,983)
    7344   114070872 :          lu(k,999) = lu(k,999) - lu(k,915) * lu(k,983)
    7345   114070872 :          lu(k,1000) = lu(k,1000) - lu(k,916) * lu(k,983)
    7346   114070872 :          lu(k,1001) = lu(k,1001) - lu(k,917) * lu(k,983)
    7347   114070872 :          lu(k,1002) = lu(k,1002) - lu(k,918) * lu(k,983)
    7348   114070872 :          lu(k,1003) = lu(k,1003) - lu(k,919) * lu(k,983)
    7349   114070872 :          lu(k,1004) = lu(k,1004) - lu(k,920) * lu(k,983)
    7350   114070872 :          lu(k,1005) = lu(k,1005) - lu(k,921) * lu(k,983)
    7351   114070872 :          lu(k,1057) = lu(k,1057) - lu(k,901) * lu(k,1056)
    7352   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,902) * lu(k,1056)
    7353   114070872 :          lu(k,1059) = lu(k,1059) - lu(k,903) * lu(k,1056)
    7354   114070872 :          lu(k,1062) = lu(k,1062) - lu(k,904) * lu(k,1056)
    7355   114070872 :          lu(k,1063) = lu(k,1063) - lu(k,905) * lu(k,1056)
    7356   114070872 :          lu(k,1064) = lu(k,1064) - lu(k,906) * lu(k,1056)
    7357   114070872 :          lu(k,1065) = lu(k,1065) - lu(k,907) * lu(k,1056)
    7358   114070872 :          lu(k,1066) = lu(k,1066) - lu(k,908) * lu(k,1056)
    7359   114070872 :          lu(k,1067) = lu(k,1067) - lu(k,909) * lu(k,1056)
    7360   114070872 :          lu(k,1068) = lu(k,1068) - lu(k,910) * lu(k,1056)
    7361   114070872 :          lu(k,1069) = lu(k,1069) - lu(k,911) * lu(k,1056)
    7362   114070872 :          lu(k,1070) = lu(k,1070) - lu(k,912) * lu(k,1056)
    7363   114070872 :          lu(k,1073) = lu(k,1073) - lu(k,913) * lu(k,1056)
    7364   114070872 :          lu(k,1074) = lu(k,1074) - lu(k,914) * lu(k,1056)
    7365   114070872 :          lu(k,1075) = lu(k,1075) - lu(k,915) * lu(k,1056)
    7366   114070872 :          lu(k,1076) = lu(k,1076) - lu(k,916) * lu(k,1056)
    7367   114070872 :          lu(k,1077) = lu(k,1077) - lu(k,917) * lu(k,1056)
    7368   114070872 :          lu(k,1078) = lu(k,1078) - lu(k,918) * lu(k,1056)
    7369   114070872 :          lu(k,1079) = lu(k,1079) - lu(k,919) * lu(k,1056)
    7370   114070872 :          lu(k,1080) = lu(k,1080) - lu(k,920) * lu(k,1056)
    7371   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,921) * lu(k,1056)
    7372   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,901) * lu(k,1099)
    7373   114070872 :          lu(k,1103) = lu(k,1103) - lu(k,902) * lu(k,1099)
    7374   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,903) * lu(k,1099)
    7375   114070872 :          lu(k,1107) = lu(k,1107) - lu(k,904) * lu(k,1099)
    7376   114070872 :          lu(k,1108) = lu(k,1108) - lu(k,905) * lu(k,1099)
    7377   114070872 :          lu(k,1109) = lu(k,1109) - lu(k,906) * lu(k,1099)
    7378   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,907) * lu(k,1099)
    7379   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,908) * lu(k,1099)
    7380   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,909) * lu(k,1099)
    7381   114070872 :          lu(k,1113) = lu(k,1113) - lu(k,910) * lu(k,1099)
    7382   114070872 :          lu(k,1114) = lu(k,1114) - lu(k,911) * lu(k,1099)
    7383   114070872 :          lu(k,1115) = lu(k,1115) - lu(k,912) * lu(k,1099)
    7384   114070872 :          lu(k,1118) = lu(k,1118) - lu(k,913) * lu(k,1099)
    7385   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,914) * lu(k,1099)
    7386   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,915) * lu(k,1099)
    7387   114070872 :          lu(k,1121) = lu(k,1121) - lu(k,916) * lu(k,1099)
    7388   114070872 :          lu(k,1122) = lu(k,1122) - lu(k,917) * lu(k,1099)
    7389   114070872 :          lu(k,1123) = lu(k,1123) - lu(k,918) * lu(k,1099)
    7390   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,919) * lu(k,1099)
    7391   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,920) * lu(k,1099)
    7392   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,921) * lu(k,1099)
    7393   114070872 :          lu(k,1149) = lu(k,1149) - lu(k,901) * lu(k,1147)
    7394   114070872 :          lu(k,1151) = lu(k,1151) - lu(k,902) * lu(k,1147)
    7395   114070872 :          lu(k,1152) = lu(k,1152) - lu(k,903) * lu(k,1147)
    7396   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,904) * lu(k,1147)
    7397   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,905) * lu(k,1147)
    7398   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,906) * lu(k,1147)
    7399   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,907) * lu(k,1147)
    7400   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,908) * lu(k,1147)
    7401   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,909) * lu(k,1147)
    7402   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,910) * lu(k,1147)
    7403   114070872 :          lu(k,1162) = lu(k,1162) - lu(k,911) * lu(k,1147)
    7404   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,912) * lu(k,1147)
    7405   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,913) * lu(k,1147)
    7406   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,914) * lu(k,1147)
    7407   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,915) * lu(k,1147)
    7408   114070872 :          lu(k,1169) = lu(k,1169) - lu(k,916) * lu(k,1147)
    7409   114070872 :          lu(k,1170) = lu(k,1170) - lu(k,917) * lu(k,1147)
    7410   114070872 :          lu(k,1171) = lu(k,1171) - lu(k,918) * lu(k,1147)
    7411   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,919) * lu(k,1147)
    7412   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,920) * lu(k,1147)
    7413   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,921) * lu(k,1147)
    7414   114070872 :          lu(k,1192) = lu(k,1192) - lu(k,901) * lu(k,1190)
    7415   114070872 :          lu(k,1194) = lu(k,1194) - lu(k,902) * lu(k,1190)
    7416   114070872 :          lu(k,1195) = lu(k,1195) - lu(k,903) * lu(k,1190)
    7417   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,904) * lu(k,1190)
    7418   114070872 :          lu(k,1199) = lu(k,1199) - lu(k,905) * lu(k,1190)
    7419   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,906) * lu(k,1190)
    7420   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,907) * lu(k,1190)
    7421   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,908) * lu(k,1190)
    7422   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,909) * lu(k,1190)
    7423   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,910) * lu(k,1190)
    7424   114070872 :          lu(k,1205) = lu(k,1205) - lu(k,911) * lu(k,1190)
    7425   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,912) * lu(k,1190)
    7426   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,913) * lu(k,1190)
    7427   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,914) * lu(k,1190)
    7428   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,915) * lu(k,1190)
    7429   114070872 :          lu(k,1212) = lu(k,1212) - lu(k,916) * lu(k,1190)
    7430   114070872 :          lu(k,1213) = lu(k,1213) - lu(k,917) * lu(k,1190)
    7431   114070872 :          lu(k,1214) = lu(k,1214) - lu(k,918) * lu(k,1190)
    7432   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,919) * lu(k,1190)
    7433   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,920) * lu(k,1190)
    7434   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,921) * lu(k,1190)
    7435   114070872 :          lu(k,1235) = lu(k,1235) - lu(k,901) * lu(k,1233)
    7436   114070872 :          lu(k,1237) = lu(k,1237) - lu(k,902) * lu(k,1233)
    7437   114070872 :          lu(k,1238) = lu(k,1238) - lu(k,903) * lu(k,1233)
    7438   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,904) * lu(k,1233)
    7439   114070872 :          lu(k,1242) = lu(k,1242) - lu(k,905) * lu(k,1233)
    7440   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,906) * lu(k,1233)
    7441   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,907) * lu(k,1233)
    7442   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,908) * lu(k,1233)
    7443   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,909) * lu(k,1233)
    7444   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,910) * lu(k,1233)
    7445   114070872 :          lu(k,1248) = lu(k,1248) - lu(k,911) * lu(k,1233)
    7446   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,912) * lu(k,1233)
    7447   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,913) * lu(k,1233)
    7448   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,914) * lu(k,1233)
    7449   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,915) * lu(k,1233)
    7450   114070872 :          lu(k,1255) = lu(k,1255) - lu(k,916) * lu(k,1233)
    7451   114070872 :          lu(k,1256) = lu(k,1256) - lu(k,917) * lu(k,1233)
    7452   114070872 :          lu(k,1257) = lu(k,1257) - lu(k,918) * lu(k,1233)
    7453   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,919) * lu(k,1233)
    7454   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,920) * lu(k,1233)
    7455   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,921) * lu(k,1233)
    7456   114070872 :          lu(k,1277) = lu(k,1277) - lu(k,901) * lu(k,1275)
    7457   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,902) * lu(k,1275)
    7458   114070872 :          lu(k,1280) = lu(k,1280) - lu(k,903) * lu(k,1275)
    7459   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,904) * lu(k,1275)
    7460   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,905) * lu(k,1275)
    7461   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,906) * lu(k,1275)
    7462   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,907) * lu(k,1275)
    7463   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,908) * lu(k,1275)
    7464   114070872 :          lu(k,1288) = lu(k,1288) - lu(k,909) * lu(k,1275)
    7465   114070872 :          lu(k,1289) = lu(k,1289) - lu(k,910) * lu(k,1275)
    7466   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,911) * lu(k,1275)
    7467   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,912) * lu(k,1275)
    7468   114070872 :          lu(k,1294) = lu(k,1294) - lu(k,913) * lu(k,1275)
    7469   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,914) * lu(k,1275)
    7470   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,915) * lu(k,1275)
    7471   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,916) * lu(k,1275)
    7472   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,917) * lu(k,1275)
    7473   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,918) * lu(k,1275)
    7474   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,919) * lu(k,1275)
    7475   114070872 :          lu(k,1301) = lu(k,1301) - lu(k,920) * lu(k,1275)
    7476   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,921) * lu(k,1275)
    7477   114070872 :          lu(k,1319) = lu(k,1319) - lu(k,901) * lu(k,1317)
    7478   114070872 :          lu(k,1321) = lu(k,1321) - lu(k,902) * lu(k,1317)
    7479   114070872 :          lu(k,1322) = lu(k,1322) - lu(k,903) * lu(k,1317)
    7480   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,904) * lu(k,1317)
    7481   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,905) * lu(k,1317)
    7482   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,906) * lu(k,1317)
    7483   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,907) * lu(k,1317)
    7484   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,908) * lu(k,1317)
    7485   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,909) * lu(k,1317)
    7486   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,910) * lu(k,1317)
    7487   114070872 :          lu(k,1332) = lu(k,1332) - lu(k,911) * lu(k,1317)
    7488   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,912) * lu(k,1317)
    7489   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,913) * lu(k,1317)
    7490   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,914) * lu(k,1317)
    7491   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,915) * lu(k,1317)
    7492   114070872 :          lu(k,1339) = lu(k,1339) - lu(k,916) * lu(k,1317)
    7493   114070872 :          lu(k,1340) = lu(k,1340) - lu(k,917) * lu(k,1317)
    7494   114070872 :          lu(k,1341) = lu(k,1341) - lu(k,918) * lu(k,1317)
    7495   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,919) * lu(k,1317)
    7496   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,920) * lu(k,1317)
    7497   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,921) * lu(k,1317)
    7498   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,901) * lu(k,1377)
    7499   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,902) * lu(k,1377)
    7500   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,903) * lu(k,1377)
    7501   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,904) * lu(k,1377)
    7502   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,905) * lu(k,1377)
    7503   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,906) * lu(k,1377)
    7504   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,907) * lu(k,1377)
    7505   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,908) * lu(k,1377)
    7506   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,909) * lu(k,1377)
    7507   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,910) * lu(k,1377)
    7508   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,911) * lu(k,1377)
    7509   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,912) * lu(k,1377)
    7510   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,913) * lu(k,1377)
    7511   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,914) * lu(k,1377)
    7512   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,915) * lu(k,1377)
    7513   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,916) * lu(k,1377)
    7514   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,917) * lu(k,1377)
    7515   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,918) * lu(k,1377)
    7516   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,919) * lu(k,1377)
    7517   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,920) * lu(k,1377)
    7518   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,921) * lu(k,1377)
    7519   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,901) * lu(k,1426)
    7520   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,902) * lu(k,1426)
    7521   114070872 :          lu(k,1431) = lu(k,1431) - lu(k,903) * lu(k,1426)
    7522   114070872 :          lu(k,1434) = lu(k,1434) - lu(k,904) * lu(k,1426)
    7523   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,905) * lu(k,1426)
    7524   114070872 :          lu(k,1436) = lu(k,1436) - lu(k,906) * lu(k,1426)
    7525   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,907) * lu(k,1426)
    7526   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,908) * lu(k,1426)
    7527   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,909) * lu(k,1426)
    7528   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,910) * lu(k,1426)
    7529   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,911) * lu(k,1426)
    7530   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,912) * lu(k,1426)
    7531   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,913) * lu(k,1426)
    7532   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,914) * lu(k,1426)
    7533   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,915) * lu(k,1426)
    7534   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,916) * lu(k,1426)
    7535   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,917) * lu(k,1426)
    7536   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,918) * lu(k,1426)
    7537   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,919) * lu(k,1426)
    7538   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,920) * lu(k,1426)
    7539   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,921) * lu(k,1426)
    7540   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,901) * lu(k,1474)
    7541   114070872 :          lu(k,1478) = lu(k,1478) - lu(k,902) * lu(k,1474)
    7542   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,903) * lu(k,1474)
    7543   114070872 :          lu(k,1482) = lu(k,1482) - lu(k,904) * lu(k,1474)
    7544   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,905) * lu(k,1474)
    7545   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,906) * lu(k,1474)
    7546   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,907) * lu(k,1474)
    7547   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,908) * lu(k,1474)
    7548   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,909) * lu(k,1474)
    7549   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,910) * lu(k,1474)
    7550   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,911) * lu(k,1474)
    7551   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,912) * lu(k,1474)
    7552   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,913) * lu(k,1474)
    7553   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,914) * lu(k,1474)
    7554   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,915) * lu(k,1474)
    7555   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,916) * lu(k,1474)
    7556   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,917) * lu(k,1474)
    7557   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,918) * lu(k,1474)
    7558   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,919) * lu(k,1474)
    7559   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,920) * lu(k,1474)
    7560   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,921) * lu(k,1474)
    7561   114070872 :          lu(k,1517) = lu(k,1517) - lu(k,901) * lu(k,1515)
    7562   114070872 :          lu(k,1519) = lu(k,1519) - lu(k,902) * lu(k,1515)
    7563   114070872 :          lu(k,1520) = lu(k,1520) - lu(k,903) * lu(k,1515)
    7564   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,904) * lu(k,1515)
    7565   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,905) * lu(k,1515)
    7566   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,906) * lu(k,1515)
    7567   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,907) * lu(k,1515)
    7568   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,908) * lu(k,1515)
    7569   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,909) * lu(k,1515)
    7570   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,910) * lu(k,1515)
    7571   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,911) * lu(k,1515)
    7572   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,912) * lu(k,1515)
    7573   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,913) * lu(k,1515)
    7574   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,914) * lu(k,1515)
    7575   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,915) * lu(k,1515)
    7576   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,916) * lu(k,1515)
    7577   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,917) * lu(k,1515)
    7578   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,918) * lu(k,1515)
    7579   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,919) * lu(k,1515)
    7580   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,920) * lu(k,1515)
    7581   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,921) * lu(k,1515)
    7582   114070872 :          lu(k,1553) = lu(k,1553) - lu(k,901) * lu(k,1551)
    7583   114070872 :          lu(k,1555) = lu(k,1555) - lu(k,902) * lu(k,1551)
    7584   114070872 :          lu(k,1556) = lu(k,1556) - lu(k,903) * lu(k,1551)
    7585   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,904) * lu(k,1551)
    7586   114070872 :          lu(k,1560) = lu(k,1560) - lu(k,905) * lu(k,1551)
    7587   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,906) * lu(k,1551)
    7588   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,907) * lu(k,1551)
    7589   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,908) * lu(k,1551)
    7590   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,909) * lu(k,1551)
    7591   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,910) * lu(k,1551)
    7592   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,911) * lu(k,1551)
    7593   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,912) * lu(k,1551)
    7594   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,913) * lu(k,1551)
    7595   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,914) * lu(k,1551)
    7596   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,915) * lu(k,1551)
    7597   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,916) * lu(k,1551)
    7598   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,917) * lu(k,1551)
    7599   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,918) * lu(k,1551)
    7600   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,919) * lu(k,1551)
    7601   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,920) * lu(k,1551)
    7602   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,921) * lu(k,1551)
    7603   114070872 :          lu(k,1598) = lu(k,1598) - lu(k,901) * lu(k,1596)
    7604   114070872 :          lu(k,1600) = lu(k,1600) - lu(k,902) * lu(k,1596)
    7605   114070872 :          lu(k,1601) = lu(k,1601) - lu(k,903) * lu(k,1596)
    7606   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,904) * lu(k,1596)
    7607   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,905) * lu(k,1596)
    7608   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,906) * lu(k,1596)
    7609   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,907) * lu(k,1596)
    7610   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,908) * lu(k,1596)
    7611   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,909) * lu(k,1596)
    7612   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,910) * lu(k,1596)
    7613   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,911) * lu(k,1596)
    7614   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,912) * lu(k,1596)
    7615   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,913) * lu(k,1596)
    7616   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,914) * lu(k,1596)
    7617   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,915) * lu(k,1596)
    7618   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,916) * lu(k,1596)
    7619   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,917) * lu(k,1596)
    7620   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,918) * lu(k,1596)
    7621   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,919) * lu(k,1596)
    7622   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,920) * lu(k,1596)
    7623   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,921) * lu(k,1596)
    7624   114070872 :          lu(k,1641) = lu(k,1641) - lu(k,901) * lu(k,1639)
    7625   114070872 :          lu(k,1643) = lu(k,1643) - lu(k,902) * lu(k,1639)
    7626   114070872 :          lu(k,1644) = lu(k,1644) - lu(k,903) * lu(k,1639)
    7627   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,904) * lu(k,1639)
    7628   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,905) * lu(k,1639)
    7629   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,906) * lu(k,1639)
    7630   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,907) * lu(k,1639)
    7631   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,908) * lu(k,1639)
    7632   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,909) * lu(k,1639)
    7633   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,910) * lu(k,1639)
    7634   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,911) * lu(k,1639)
    7635   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,912) * lu(k,1639)
    7636   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,913) * lu(k,1639)
    7637   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,914) * lu(k,1639)
    7638   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,915) * lu(k,1639)
    7639   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,916) * lu(k,1639)
    7640   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,917) * lu(k,1639)
    7641   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,918) * lu(k,1639)
    7642   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,919) * lu(k,1639)
    7643   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,920) * lu(k,1639)
    7644   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,921) * lu(k,1639)
    7645   114070872 :          lu(k,1684) = lu(k,1684) - lu(k,901) * lu(k,1682)
    7646   114070872 :          lu(k,1686) = lu(k,1686) - lu(k,902) * lu(k,1682)
    7647   114070872 :          lu(k,1687) = lu(k,1687) - lu(k,903) * lu(k,1682)
    7648   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,904) * lu(k,1682)
    7649   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,905) * lu(k,1682)
    7650   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,906) * lu(k,1682)
    7651   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,907) * lu(k,1682)
    7652   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,908) * lu(k,1682)
    7653   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,909) * lu(k,1682)
    7654   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,910) * lu(k,1682)
    7655   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,911) * lu(k,1682)
    7656   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,912) * lu(k,1682)
    7657   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,913) * lu(k,1682)
    7658   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,914) * lu(k,1682)
    7659   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,915) * lu(k,1682)
    7660   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,916) * lu(k,1682)
    7661   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,917) * lu(k,1682)
    7662   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,918) * lu(k,1682)
    7663   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,919) * lu(k,1682)
    7664   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,920) * lu(k,1682)
    7665   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,921) * lu(k,1682)
    7666   114070872 :          lu(k,1725) = lu(k,1725) - lu(k,901) * lu(k,1723)
    7667   114070872 :          lu(k,1726) = lu(k,1726) - lu(k,902) * lu(k,1723)
    7668   114070872 :          lu(k,1727) = lu(k,1727) - lu(k,903) * lu(k,1723)
    7669   114070872 :          lu(k,1730) = lu(k,1730) - lu(k,904) * lu(k,1723)
    7670   114070872 :          lu(k,1731) = lu(k,1731) - lu(k,905) * lu(k,1723)
    7671   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,906) * lu(k,1723)
    7672   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,907) * lu(k,1723)
    7673   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,908) * lu(k,1723)
    7674   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,909) * lu(k,1723)
    7675   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,910) * lu(k,1723)
    7676   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,911) * lu(k,1723)
    7677   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,912) * lu(k,1723)
    7678   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,913) * lu(k,1723)
    7679   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,914) * lu(k,1723)
    7680   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,915) * lu(k,1723)
    7681   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,916) * lu(k,1723)
    7682   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,917) * lu(k,1723)
    7683   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,918) * lu(k,1723)
    7684   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,919) * lu(k,1723)
    7685   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,920) * lu(k,1723)
    7686   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,921) * lu(k,1723)
    7687   114070872 :          lu(k,1760) = lu(k,1760) - lu(k,901) * lu(k,1758)
    7688   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,902) * lu(k,1758)
    7689   114070872 :          lu(k,1763) = lu(k,1763) - lu(k,903) * lu(k,1758)
    7690   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,904) * lu(k,1758)
    7691   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,905) * lu(k,1758)
    7692   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,906) * lu(k,1758)
    7693   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,907) * lu(k,1758)
    7694   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,908) * lu(k,1758)
    7695   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,909) * lu(k,1758)
    7696   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,910) * lu(k,1758)
    7697   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,911) * lu(k,1758)
    7698   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,912) * lu(k,1758)
    7699   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,913) * lu(k,1758)
    7700   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,914) * lu(k,1758)
    7701   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,915) * lu(k,1758)
    7702   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,916) * lu(k,1758)
    7703   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,917) * lu(k,1758)
    7704   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,918) * lu(k,1758)
    7705   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,919) * lu(k,1758)
    7706   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,920) * lu(k,1758)
    7707   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,921) * lu(k,1758)
    7708   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,901) * lu(k,1806)
    7709   114070872 :          lu(k,1810) = lu(k,1810) - lu(k,902) * lu(k,1806)
    7710   114070872 :          lu(k,1811) = lu(k,1811) - lu(k,903) * lu(k,1806)
    7711   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,904) * lu(k,1806)
    7712   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,905) * lu(k,1806)
    7713   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,906) * lu(k,1806)
    7714   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,907) * lu(k,1806)
    7715   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,908) * lu(k,1806)
    7716   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,909) * lu(k,1806)
    7717   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,910) * lu(k,1806)
    7718   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,911) * lu(k,1806)
    7719   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,912) * lu(k,1806)
    7720   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,913) * lu(k,1806)
    7721   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,914) * lu(k,1806)
    7722   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,915) * lu(k,1806)
    7723   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,916) * lu(k,1806)
    7724   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,917) * lu(k,1806)
    7725   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,918) * lu(k,1806)
    7726   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,919) * lu(k,1806)
    7727   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,920) * lu(k,1806)
    7728   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,921) * lu(k,1806)
    7729   114070872 :          lu(k,1841) = lu(k,1841) - lu(k,901) * lu(k,1839)
    7730   114070872 :          lu(k,1843) = lu(k,1843) - lu(k,902) * lu(k,1839)
    7731   114070872 :          lu(k,1844) = lu(k,1844) - lu(k,903) * lu(k,1839)
    7732   114070872 :          lu(k,1847) = lu(k,1847) - lu(k,904) * lu(k,1839)
    7733   114070872 :          lu(k,1848) = lu(k,1848) - lu(k,905) * lu(k,1839)
    7734   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,906) * lu(k,1839)
    7735   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,907) * lu(k,1839)
    7736   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,908) * lu(k,1839)
    7737   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,909) * lu(k,1839)
    7738   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,910) * lu(k,1839)
    7739   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,911) * lu(k,1839)
    7740   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,912) * lu(k,1839)
    7741   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,913) * lu(k,1839)
    7742   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,914) * lu(k,1839)
    7743   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,915) * lu(k,1839)
    7744   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,916) * lu(k,1839)
    7745   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,917) * lu(k,1839)
    7746   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,918) * lu(k,1839)
    7747   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,919) * lu(k,1839)
    7748   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,920) * lu(k,1839)
    7749   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,921) * lu(k,1839)
    7750   114070872 :          lu(k,1877) = lu(k,1877) - lu(k,901) * lu(k,1875)
    7751   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,902) * lu(k,1875)
    7752   114070872 :          lu(k,1880) = lu(k,1880) - lu(k,903) * lu(k,1875)
    7753   114070872 :          lu(k,1883) = lu(k,1883) - lu(k,904) * lu(k,1875)
    7754   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,905) * lu(k,1875)
    7755   114070872 :          lu(k,1885) = lu(k,1885) - lu(k,906) * lu(k,1875)
    7756   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,907) * lu(k,1875)
    7757   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,908) * lu(k,1875)
    7758   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,909) * lu(k,1875)
    7759   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,910) * lu(k,1875)
    7760   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,911) * lu(k,1875)
    7761   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,912) * lu(k,1875)
    7762   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,913) * lu(k,1875)
    7763   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,914) * lu(k,1875)
    7764   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,915) * lu(k,1875)
    7765   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,916) * lu(k,1875)
    7766   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,917) * lu(k,1875)
    7767   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,918) * lu(k,1875)
    7768   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,919) * lu(k,1875)
    7769   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,920) * lu(k,1875)
    7770   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,921) * lu(k,1875)
    7771   114070872 :          lu(k,1918) = lu(k,1918) - lu(k,901) * lu(k,1916)
    7772   114070872 :          lu(k,1920) = lu(k,1920) - lu(k,902) * lu(k,1916)
    7773   114070872 :          lu(k,1921) = lu(k,1921) - lu(k,903) * lu(k,1916)
    7774   114070872 :          lu(k,1924) = lu(k,1924) - lu(k,904) * lu(k,1916)
    7775   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,905) * lu(k,1916)
    7776   114070872 :          lu(k,1926) = lu(k,1926) - lu(k,906) * lu(k,1916)
    7777   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,907) * lu(k,1916)
    7778   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,908) * lu(k,1916)
    7779   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,909) * lu(k,1916)
    7780   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,910) * lu(k,1916)
    7781   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,911) * lu(k,1916)
    7782   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,912) * lu(k,1916)
    7783   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,913) * lu(k,1916)
    7784   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,914) * lu(k,1916)
    7785   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,915) * lu(k,1916)
    7786   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,916) * lu(k,1916)
    7787   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,917) * lu(k,1916)
    7788   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,918) * lu(k,1916)
    7789   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,919) * lu(k,1916)
    7790   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,920) * lu(k,1916)
    7791   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,921) * lu(k,1916)
    7792   114070872 :          lu(k,1960) = lu(k,1960) - lu(k,901) * lu(k,1958)
    7793   114070872 :          lu(k,1962) = lu(k,1962) - lu(k,902) * lu(k,1958)
    7794   114070872 :          lu(k,1963) = lu(k,1963) - lu(k,903) * lu(k,1958)
    7795   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,904) * lu(k,1958)
    7796   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,905) * lu(k,1958)
    7797   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,906) * lu(k,1958)
    7798   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,907) * lu(k,1958)
    7799   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,908) * lu(k,1958)
    7800   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,909) * lu(k,1958)
    7801   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,910) * lu(k,1958)
    7802   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,911) * lu(k,1958)
    7803   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,912) * lu(k,1958)
    7804   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,913) * lu(k,1958)
    7805   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,914) * lu(k,1958)
    7806   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,915) * lu(k,1958)
    7807   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,916) * lu(k,1958)
    7808   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,917) * lu(k,1958)
    7809   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,918) * lu(k,1958)
    7810   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,919) * lu(k,1958)
    7811   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,920) * lu(k,1958)
    7812   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,921) * lu(k,1958)
    7813   114070872 :          lu(k,2005) = lu(k,2005) - lu(k,901) * lu(k,2003)
    7814   114070872 :          lu(k,2007) = lu(k,2007) - lu(k,902) * lu(k,2003)
    7815   114070872 :          lu(k,2008) = lu(k,2008) - lu(k,903) * lu(k,2003)
    7816   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,904) * lu(k,2003)
    7817   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,905) * lu(k,2003)
    7818   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,906) * lu(k,2003)
    7819   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,907) * lu(k,2003)
    7820   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,908) * lu(k,2003)
    7821   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,909) * lu(k,2003)
    7822   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,910) * lu(k,2003)
    7823   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,911) * lu(k,2003)
    7824   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,912) * lu(k,2003)
    7825   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,913) * lu(k,2003)
    7826   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,914) * lu(k,2003)
    7827   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,915) * lu(k,2003)
    7828   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,916) * lu(k,2003)
    7829   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,917) * lu(k,2003)
    7830   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,918) * lu(k,2003)
    7831   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,919) * lu(k,2003)
    7832   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,920) * lu(k,2003)
    7833   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,921) * lu(k,2003)
    7834   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,901) * lu(k,2063)
    7835   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,902) * lu(k,2063)
    7836   114070872 :          lu(k,2068) = lu(k,2068) - lu(k,903) * lu(k,2063)
    7837   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,904) * lu(k,2063)
    7838   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,905) * lu(k,2063)
    7839   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,906) * lu(k,2063)
    7840   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,907) * lu(k,2063)
    7841   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,908) * lu(k,2063)
    7842   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,909) * lu(k,2063)
    7843   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,910) * lu(k,2063)
    7844   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,911) * lu(k,2063)
    7845   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,912) * lu(k,2063)
    7846   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,913) * lu(k,2063)
    7847   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,914) * lu(k,2063)
    7848   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,915) * lu(k,2063)
    7849   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,916) * lu(k,2063)
    7850   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,917) * lu(k,2063)
    7851   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,918) * lu(k,2063)
    7852   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,919) * lu(k,2063)
    7853   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,920) * lu(k,2063)
    7854   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,921) * lu(k,2063)
    7855   114070872 :          lu(k,926) = 1._r8 / lu(k,926)
    7856   114070872 :          lu(k,927) = lu(k,927) * lu(k,926)
    7857   114070872 :          lu(k,928) = lu(k,928) * lu(k,926)
    7858   114070872 :          lu(k,929) = lu(k,929) * lu(k,926)
    7859   114070872 :          lu(k,930) = lu(k,930) * lu(k,926)
    7860   114070872 :          lu(k,931) = lu(k,931) * lu(k,926)
    7861   114070872 :          lu(k,932) = lu(k,932) * lu(k,926)
    7862   114070872 :          lu(k,933) = lu(k,933) * lu(k,926)
    7863   114070872 :          lu(k,934) = lu(k,934) * lu(k,926)
    7864   114070872 :          lu(k,935) = lu(k,935) * lu(k,926)
    7865   114070872 :          lu(k,936) = lu(k,936) * lu(k,926)
    7866   114070872 :          lu(k,937) = lu(k,937) * lu(k,926)
    7867   114070872 :          lu(k,938) = lu(k,938) * lu(k,926)
    7868   114070872 :          lu(k,939) = lu(k,939) * lu(k,926)
    7869   114070872 :          lu(k,940) = lu(k,940) * lu(k,926)
    7870   114070872 :          lu(k,941) = lu(k,941) * lu(k,926)
    7871   114070872 :          lu(k,942) = lu(k,942) * lu(k,926)
    7872   114070872 :          lu(k,943) = lu(k,943) * lu(k,926)
    7873   114070872 :          lu(k,944) = lu(k,944) * lu(k,926)
    7874   114070872 :          lu(k,945) = lu(k,945) * lu(k,926)
    7875   114070872 :          lu(k,946) = lu(k,946) * lu(k,926)
    7876   114070872 :          lu(k,947) = lu(k,947) * lu(k,926)
    7877   114070872 :          lu(k,948) = lu(k,948) * lu(k,926)
    7878   114070872 :          lu(k,1013) = lu(k,1013) - lu(k,927) * lu(k,1012)
    7879   114070872 :          lu(k,1015) = lu(k,1015) - lu(k,928) * lu(k,1012)
    7880   114070872 :          lu(k,1016) = lu(k,1016) - lu(k,929) * lu(k,1012)
    7881   114070872 :          lu(k,1017) = lu(k,1017) - lu(k,930) * lu(k,1012)
    7882   114070872 :          lu(k,1018) = lu(k,1018) - lu(k,931) * lu(k,1012)
    7883   114070872 :          lu(k,1019) = lu(k,1019) - lu(k,932) * lu(k,1012)
    7884   114070872 :          lu(k,1021) = lu(k,1021) - lu(k,933) * lu(k,1012)
    7885   114070872 :          lu(k,1022) = lu(k,1022) - lu(k,934) * lu(k,1012)
    7886   114070872 :          lu(k,1023) = lu(k,1023) - lu(k,935) * lu(k,1012)
    7887   114070872 :          lu(k,1024) = lu(k,1024) - lu(k,936) * lu(k,1012)
    7888   114070872 :          lu(k,1025) = lu(k,1025) - lu(k,937) * lu(k,1012)
    7889   114070872 :          lu(k,1027) = lu(k,1027) - lu(k,938) * lu(k,1012)
    7890   114070872 :          lu(k,1028) = lu(k,1028) - lu(k,939) * lu(k,1012)
    7891   114070872 :          lu(k,1029) = lu(k,1029) - lu(k,940) * lu(k,1012)
    7892   114070872 :          lu(k,1030) = lu(k,1030) - lu(k,941) * lu(k,1012)
    7893   114070872 :          lu(k,1031) = lu(k,1031) - lu(k,942) * lu(k,1012)
    7894   114070872 :          lu(k,1032) = lu(k,1032) - lu(k,943) * lu(k,1012)
    7895   114070872 :          lu(k,1033) = lu(k,1033) - lu(k,944) * lu(k,1012)
    7896   114070872 :          lu(k,1035) = lu(k,1035) - lu(k,945) * lu(k,1012)
    7897   114070872 :          lu(k,1036) = lu(k,1036) - lu(k,946) * lu(k,1012)
    7898   114070872 :          lu(k,1037) = lu(k,1037) - lu(k,947) * lu(k,1012)
    7899   114070872 :          lu(k,1038) = lu(k,1038) - lu(k,948) * lu(k,1012)
    7900   114070872 :          lu(k,1101) = lu(k,1101) - lu(k,927) * lu(k,1100)
    7901   114070872 :          lu(k,1103) = lu(k,1103) - lu(k,928) * lu(k,1100)
    7902   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,929) * lu(k,1100)
    7903   114070872 :          lu(k,1105) = lu(k,1105) - lu(k,930) * lu(k,1100)
    7904   114070872 :          lu(k,1106) = lu(k,1106) - lu(k,931) * lu(k,1100)
    7905   114070872 :          lu(k,1107) = lu(k,1107) - lu(k,932) * lu(k,1100)
    7906   114070872 :          lu(k,1109) = lu(k,1109) - lu(k,933) * lu(k,1100)
    7907   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,934) * lu(k,1100)
    7908   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,935) * lu(k,1100)
    7909   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,936) * lu(k,1100)
    7910   114070872 :          lu(k,1113) = lu(k,1113) - lu(k,937) * lu(k,1100)
    7911   114070872 :          lu(k,1115) = lu(k,1115) - lu(k,938) * lu(k,1100)
    7912   114070872 :          lu(k,1116) = lu(k,1116) - lu(k,939) * lu(k,1100)
    7913   114070872 :          lu(k,1117) = lu(k,1117) - lu(k,940) * lu(k,1100)
    7914   114070872 :          lu(k,1118) = lu(k,1118) - lu(k,941) * lu(k,1100)
    7915   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,942) * lu(k,1100)
    7916   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,943) * lu(k,1100)
    7917   114070872 :          lu(k,1121) = lu(k,1121) - lu(k,944) * lu(k,1100)
    7918   114070872 :          lu(k,1123) = lu(k,1123) - lu(k,945) * lu(k,1100)
    7919   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,946) * lu(k,1100)
    7920   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,947) * lu(k,1100)
    7921   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,948) * lu(k,1100)
    7922   114070872 :          lu(k,1149) = lu(k,1149) - lu(k,927) * lu(k,1148)
    7923   114070872 :          lu(k,1151) = lu(k,1151) - lu(k,928) * lu(k,1148)
    7924   114070872 :          lu(k,1152) = lu(k,1152) - lu(k,929) * lu(k,1148)
    7925   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,930) * lu(k,1148)
    7926   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,931) * lu(k,1148)
    7927   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,932) * lu(k,1148)
    7928   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,933) * lu(k,1148)
    7929   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,934) * lu(k,1148)
    7930   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,935) * lu(k,1148)
    7931   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,936) * lu(k,1148)
    7932   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,937) * lu(k,1148)
    7933   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,938) * lu(k,1148)
    7934   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,939) * lu(k,1148)
    7935   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,940) * lu(k,1148)
    7936   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,941) * lu(k,1148)
    7937   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,942) * lu(k,1148)
    7938   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,943) * lu(k,1148)
    7939   114070872 :          lu(k,1169) = lu(k,1169) - lu(k,944) * lu(k,1148)
    7940   114070872 :          lu(k,1171) = lu(k,1171) - lu(k,945) * lu(k,1148)
    7941   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,946) * lu(k,1148)
    7942   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,947) * lu(k,1148)
    7943   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,948) * lu(k,1148)
    7944   114070872 :          lu(k,1192) = lu(k,1192) - lu(k,927) * lu(k,1191)
    7945   114070872 :          lu(k,1194) = lu(k,1194) - lu(k,928) * lu(k,1191)
    7946   114070872 :          lu(k,1195) = lu(k,1195) - lu(k,929) * lu(k,1191)
    7947   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,930) * lu(k,1191)
    7948   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,931) * lu(k,1191)
    7949   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,932) * lu(k,1191)
    7950   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,933) * lu(k,1191)
    7951   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,934) * lu(k,1191)
    7952   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,935) * lu(k,1191)
    7953   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,936) * lu(k,1191)
    7954   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,937) * lu(k,1191)
    7955   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,938) * lu(k,1191)
    7956   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,939) * lu(k,1191)
    7957   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,940) * lu(k,1191)
    7958   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,941) * lu(k,1191)
    7959   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,942) * lu(k,1191)
    7960   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,943) * lu(k,1191)
    7961   114070872 :          lu(k,1212) = lu(k,1212) - lu(k,944) * lu(k,1191)
    7962   114070872 :          lu(k,1214) = lu(k,1214) - lu(k,945) * lu(k,1191)
    7963   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,946) * lu(k,1191)
    7964   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,947) * lu(k,1191)
    7965   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,948) * lu(k,1191)
    7966   114070872 :          lu(k,1235) = lu(k,1235) - lu(k,927) * lu(k,1234)
    7967   114070872 :          lu(k,1237) = lu(k,1237) - lu(k,928) * lu(k,1234)
    7968   114070872 :          lu(k,1238) = lu(k,1238) - lu(k,929) * lu(k,1234)
    7969   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,930) * lu(k,1234)
    7970   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,931) * lu(k,1234)
    7971   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,932) * lu(k,1234)
    7972   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,933) * lu(k,1234)
    7973   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,934) * lu(k,1234)
    7974   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,935) * lu(k,1234)
    7975   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,936) * lu(k,1234)
    7976   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,937) * lu(k,1234)
    7977   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,938) * lu(k,1234)
    7978   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,939) * lu(k,1234)
    7979   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,940) * lu(k,1234)
    7980   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,941) * lu(k,1234)
    7981   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,942) * lu(k,1234)
    7982   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,943) * lu(k,1234)
    7983   114070872 :          lu(k,1255) = lu(k,1255) - lu(k,944) * lu(k,1234)
    7984   114070872 :          lu(k,1257) = lu(k,1257) - lu(k,945) * lu(k,1234)
    7985   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,946) * lu(k,1234)
    7986   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,947) * lu(k,1234)
    7987   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,948) * lu(k,1234)
    7988   114070872 :          lu(k,1277) = lu(k,1277) - lu(k,927) * lu(k,1276)
    7989   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,928) * lu(k,1276)
    7990   114070872 :          lu(k,1280) = lu(k,1280) - lu(k,929) * lu(k,1276)
    7991   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,930) * lu(k,1276)
    7992   114070872 :          lu(k,1282) = lu(k,1282) - lu(k,931) * lu(k,1276)
    7993   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,932) * lu(k,1276)
    7994   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,933) * lu(k,1276)
    7995   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,934) * lu(k,1276)
    7996   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,935) * lu(k,1276)
    7997   114070872 :          lu(k,1288) = lu(k,1288) - lu(k,936) * lu(k,1276)
    7998   114070872 :          lu(k,1289) = lu(k,1289) - lu(k,937) * lu(k,1276)
    7999   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,938) * lu(k,1276)
    8000   114070872 :          lu(k,1292) = lu(k,1292) - lu(k,939) * lu(k,1276)
    8001   114070872 :          lu(k,1293) = lu(k,1293) - lu(k,940) * lu(k,1276)
    8002   114070872 :          lu(k,1294) = lu(k,1294) - lu(k,941) * lu(k,1276)
    8003   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,942) * lu(k,1276)
    8004   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,943) * lu(k,1276)
    8005   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,944) * lu(k,1276)
    8006   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,945) * lu(k,1276)
    8007   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,946) * lu(k,1276)
    8008   114070872 :          lu(k,1301) = lu(k,1301) - lu(k,947) * lu(k,1276)
    8009   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,948) * lu(k,1276)
    8010   114070872 :          lu(k,1319) = lu(k,1319) - lu(k,927) * lu(k,1318)
    8011   114070872 :          lu(k,1321) = lu(k,1321) - lu(k,928) * lu(k,1318)
    8012   114070872 :          lu(k,1322) = lu(k,1322) - lu(k,929) * lu(k,1318)
    8013   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,930) * lu(k,1318)
    8014   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,931) * lu(k,1318)
    8015   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,932) * lu(k,1318)
    8016   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,933) * lu(k,1318)
    8017   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,934) * lu(k,1318)
    8018   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,935) * lu(k,1318)
    8019   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,936) * lu(k,1318)
    8020   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,937) * lu(k,1318)
    8021   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,938) * lu(k,1318)
    8022   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,939) * lu(k,1318)
    8023   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,940) * lu(k,1318)
    8024   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,941) * lu(k,1318)
    8025   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,942) * lu(k,1318)
    8026   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,943) * lu(k,1318)
    8027   114070872 :          lu(k,1339) = lu(k,1339) - lu(k,944) * lu(k,1318)
    8028   114070872 :          lu(k,1341) = lu(k,1341) - lu(k,945) * lu(k,1318)
    8029   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,946) * lu(k,1318)
    8030   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,947) * lu(k,1318)
    8031   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,948) * lu(k,1318)
    8032   114070872 :          lu(k,1379) = lu(k,1379) - lu(k,927) * lu(k,1378)
    8033   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,928) * lu(k,1378)
    8034   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,929) * lu(k,1378)
    8035   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,930) * lu(k,1378)
    8036   114070872 :          lu(k,1384) = lu(k,1384) - lu(k,931) * lu(k,1378)
    8037   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,932) * lu(k,1378)
    8038   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,933) * lu(k,1378)
    8039   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,934) * lu(k,1378)
    8040   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,935) * lu(k,1378)
    8041   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,936) * lu(k,1378)
    8042   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,937) * lu(k,1378)
    8043   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,938) * lu(k,1378)
    8044   114070872 :          lu(k,1394) = lu(k,1394) - lu(k,939) * lu(k,1378)
    8045   114070872 :          lu(k,1395) = lu(k,1395) - lu(k,940) * lu(k,1378)
    8046   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,941) * lu(k,1378)
    8047   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,942) * lu(k,1378)
    8048   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,943) * lu(k,1378)
    8049   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,944) * lu(k,1378)
    8050   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,945) * lu(k,1378)
    8051   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,946) * lu(k,1378)
    8052   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,947) * lu(k,1378)
    8053   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,948) * lu(k,1378)
    8054   114070872 :          lu(k,1428) = lu(k,1428) - lu(k,927) * lu(k,1427)
    8055   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,928) * lu(k,1427)
    8056   114070872 :          lu(k,1431) = lu(k,1431) - lu(k,929) * lu(k,1427)
    8057   114070872 :          lu(k,1432) = lu(k,1432) - lu(k,930) * lu(k,1427)
    8058   114070872 :          lu(k,1433) = lu(k,1433) - lu(k,931) * lu(k,1427)
    8059   114070872 :          lu(k,1434) = lu(k,1434) - lu(k,932) * lu(k,1427)
    8060   114070872 :          lu(k,1436) = lu(k,1436) - lu(k,933) * lu(k,1427)
    8061   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,934) * lu(k,1427)
    8062   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,935) * lu(k,1427)
    8063   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,936) * lu(k,1427)
    8064   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,937) * lu(k,1427)
    8065   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,938) * lu(k,1427)
    8066   114070872 :          lu(k,1443) = lu(k,1443) - lu(k,939) * lu(k,1427)
    8067   114070872 :          lu(k,1444) = lu(k,1444) - lu(k,940) * lu(k,1427)
    8068   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,941) * lu(k,1427)
    8069   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,942) * lu(k,1427)
    8070   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,943) * lu(k,1427)
    8071   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,944) * lu(k,1427)
    8072   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,945) * lu(k,1427)
    8073   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,946) * lu(k,1427)
    8074   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,947) * lu(k,1427)
    8075   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,948) * lu(k,1427)
    8076   114070872 :          lu(k,1476) = lu(k,1476) - lu(k,927) * lu(k,1475)
    8077   114070872 :          lu(k,1478) = lu(k,1478) - lu(k,928) * lu(k,1475)
    8078   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,929) * lu(k,1475)
    8079   114070872 :          lu(k,1480) = lu(k,1480) - lu(k,930) * lu(k,1475)
    8080   114070872 :          lu(k,1481) = lu(k,1481) - lu(k,931) * lu(k,1475)
    8081   114070872 :          lu(k,1482) = lu(k,1482) - lu(k,932) * lu(k,1475)
    8082   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,933) * lu(k,1475)
    8083   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,934) * lu(k,1475)
    8084   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,935) * lu(k,1475)
    8085   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,936) * lu(k,1475)
    8086   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,937) * lu(k,1475)
    8087   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,938) * lu(k,1475)
    8088   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,939) * lu(k,1475)
    8089   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,940) * lu(k,1475)
    8090   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,941) * lu(k,1475)
    8091   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,942) * lu(k,1475)
    8092   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,943) * lu(k,1475)
    8093   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,944) * lu(k,1475)
    8094   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,945) * lu(k,1475)
    8095   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,946) * lu(k,1475)
    8096   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,947) * lu(k,1475)
    8097   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,948) * lu(k,1475)
    8098   114070872 :          lu(k,1517) = lu(k,1517) - lu(k,927) * lu(k,1516)
    8099   114070872 :          lu(k,1519) = lu(k,1519) - lu(k,928) * lu(k,1516)
    8100   114070872 :          lu(k,1520) = lu(k,1520) - lu(k,929) * lu(k,1516)
    8101   114070872 :          lu(k,1521) = lu(k,1521) - lu(k,930) * lu(k,1516)
    8102   114070872 :          lu(k,1522) = lu(k,1522) - lu(k,931) * lu(k,1516)
    8103   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,932) * lu(k,1516)
    8104   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,933) * lu(k,1516)
    8105   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,934) * lu(k,1516)
    8106   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,935) * lu(k,1516)
    8107   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,936) * lu(k,1516)
    8108   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,937) * lu(k,1516)
    8109   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,938) * lu(k,1516)
    8110   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,939) * lu(k,1516)
    8111   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,940) * lu(k,1516)
    8112   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,941) * lu(k,1516)
    8113   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,942) * lu(k,1516)
    8114   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,943) * lu(k,1516)
    8115   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,944) * lu(k,1516)
    8116   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,945) * lu(k,1516)
    8117   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,946) * lu(k,1516)
    8118   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,947) * lu(k,1516)
    8119   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,948) * lu(k,1516)
    8120   114070872 :          lu(k,1553) = lu(k,1553) - lu(k,927) * lu(k,1552)
    8121   114070872 :          lu(k,1555) = lu(k,1555) - lu(k,928) * lu(k,1552)
    8122   114070872 :          lu(k,1556) = lu(k,1556) - lu(k,929) * lu(k,1552)
    8123   114070872 :          lu(k,1557) = lu(k,1557) - lu(k,930) * lu(k,1552)
    8124   114070872 :          lu(k,1558) = lu(k,1558) - lu(k,931) * lu(k,1552)
    8125   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,932) * lu(k,1552)
    8126   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,933) * lu(k,1552)
    8127   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,934) * lu(k,1552)
    8128   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,935) * lu(k,1552)
    8129   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,936) * lu(k,1552)
    8130   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,937) * lu(k,1552)
    8131   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,938) * lu(k,1552)
    8132   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,939) * lu(k,1552)
    8133   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,940) * lu(k,1552)
    8134   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,941) * lu(k,1552)
    8135   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,942) * lu(k,1552)
    8136   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,943) * lu(k,1552)
    8137   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,944) * lu(k,1552)
    8138   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,945) * lu(k,1552)
    8139   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,946) * lu(k,1552)
    8140   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,947) * lu(k,1552)
    8141   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,948) * lu(k,1552)
    8142   114070872 :          lu(k,1598) = lu(k,1598) - lu(k,927) * lu(k,1597)
    8143   114070872 :          lu(k,1600) = lu(k,1600) - lu(k,928) * lu(k,1597)
    8144   114070872 :          lu(k,1601) = lu(k,1601) - lu(k,929) * lu(k,1597)
    8145   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,930) * lu(k,1597)
    8146   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,931) * lu(k,1597)
    8147   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,932) * lu(k,1597)
    8148   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,933) * lu(k,1597)
    8149   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,934) * lu(k,1597)
    8150   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,935) * lu(k,1597)
    8151   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,936) * lu(k,1597)
    8152   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,937) * lu(k,1597)
    8153   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,938) * lu(k,1597)
    8154   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,939) * lu(k,1597)
    8155   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,940) * lu(k,1597)
    8156   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,941) * lu(k,1597)
    8157   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,942) * lu(k,1597)
    8158   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,943) * lu(k,1597)
    8159   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,944) * lu(k,1597)
    8160   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,945) * lu(k,1597)
    8161   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,946) * lu(k,1597)
    8162   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,947) * lu(k,1597)
    8163   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,948) * lu(k,1597)
    8164   114070872 :          lu(k,1641) = lu(k,1641) - lu(k,927) * lu(k,1640)
    8165   114070872 :          lu(k,1643) = lu(k,1643) - lu(k,928) * lu(k,1640)
    8166   114070872 :          lu(k,1644) = lu(k,1644) - lu(k,929) * lu(k,1640)
    8167   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,930) * lu(k,1640)
    8168   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,931) * lu(k,1640)
    8169   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,932) * lu(k,1640)
    8170   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,933) * lu(k,1640)
    8171   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,934) * lu(k,1640)
    8172   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,935) * lu(k,1640)
    8173   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,936) * lu(k,1640)
    8174   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,937) * lu(k,1640)
    8175   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,938) * lu(k,1640)
    8176   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,939) * lu(k,1640)
    8177   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,940) * lu(k,1640)
    8178   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,941) * lu(k,1640)
    8179   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,942) * lu(k,1640)
    8180   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,943) * lu(k,1640)
    8181   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,944) * lu(k,1640)
    8182   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,945) * lu(k,1640)
    8183   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,946) * lu(k,1640)
    8184   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,947) * lu(k,1640)
    8185   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,948) * lu(k,1640)
    8186   114070872 :          lu(k,1684) = lu(k,1684) - lu(k,927) * lu(k,1683)
    8187   114070872 :          lu(k,1686) = lu(k,1686) - lu(k,928) * lu(k,1683)
    8188   114070872 :          lu(k,1687) = lu(k,1687) - lu(k,929) * lu(k,1683)
    8189   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,930) * lu(k,1683)
    8190   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,931) * lu(k,1683)
    8191   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,932) * lu(k,1683)
    8192   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,933) * lu(k,1683)
    8193   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,934) * lu(k,1683)
    8194   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,935) * lu(k,1683)
    8195   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,936) * lu(k,1683)
    8196   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,937) * lu(k,1683)
    8197   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,938) * lu(k,1683)
    8198   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,939) * lu(k,1683)
    8199   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,940) * lu(k,1683)
    8200   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,941) * lu(k,1683)
    8201   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,942) * lu(k,1683)
    8202   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,943) * lu(k,1683)
    8203   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,944) * lu(k,1683)
    8204   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,945) * lu(k,1683)
    8205   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,946) * lu(k,1683)
    8206   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,947) * lu(k,1683)
    8207   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,948) * lu(k,1683)
    8208   114070872 :          lu(k,1725) = lu(k,1725) - lu(k,927) * lu(k,1724)
    8209   114070872 :          lu(k,1726) = lu(k,1726) - lu(k,928) * lu(k,1724)
    8210   114070872 :          lu(k,1727) = lu(k,1727) - lu(k,929) * lu(k,1724)
    8211   114070872 :          lu(k,1728) = lu(k,1728) - lu(k,930) * lu(k,1724)
    8212   114070872 :          lu(k,1729) = lu(k,1729) - lu(k,931) * lu(k,1724)
    8213   114070872 :          lu(k,1730) = lu(k,1730) - lu(k,932) * lu(k,1724)
    8214   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,933) * lu(k,1724)
    8215   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,934) * lu(k,1724)
    8216   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,935) * lu(k,1724)
    8217   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,936) * lu(k,1724)
    8218   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,937) * lu(k,1724)
    8219   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,938) * lu(k,1724)
    8220   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,939) * lu(k,1724)
    8221   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,940) * lu(k,1724)
    8222   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,941) * lu(k,1724)
    8223   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,942) * lu(k,1724)
    8224   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,943) * lu(k,1724)
    8225   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,944) * lu(k,1724)
    8226   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,945) * lu(k,1724)
    8227   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,946) * lu(k,1724)
    8228   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,947) * lu(k,1724)
    8229   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,948) * lu(k,1724)
    8230   114070872 :          lu(k,1760) = lu(k,1760) - lu(k,927) * lu(k,1759)
    8231   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,928) * lu(k,1759)
    8232   114070872 :          lu(k,1763) = lu(k,1763) - lu(k,929) * lu(k,1759)
    8233   114070872 :          lu(k,1764) = lu(k,1764) - lu(k,930) * lu(k,1759)
    8234   114070872 :          lu(k,1765) = lu(k,1765) - lu(k,931) * lu(k,1759)
    8235   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,932) * lu(k,1759)
    8236   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,933) * lu(k,1759)
    8237   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,934) * lu(k,1759)
    8238   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,935) * lu(k,1759)
    8239   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,936) * lu(k,1759)
    8240   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,937) * lu(k,1759)
    8241   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,938) * lu(k,1759)
    8242   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,939) * lu(k,1759)
    8243   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,940) * lu(k,1759)
    8244   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,941) * lu(k,1759)
    8245   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,942) * lu(k,1759)
    8246   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,943) * lu(k,1759)
    8247   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,944) * lu(k,1759)
    8248   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,945) * lu(k,1759)
    8249   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,946) * lu(k,1759)
    8250   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,947) * lu(k,1759)
    8251   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,948) * lu(k,1759)
    8252   114070872 :          lu(k,1808) = lu(k,1808) - lu(k,927) * lu(k,1807)
    8253   114070872 :          lu(k,1810) = lu(k,1810) - lu(k,928) * lu(k,1807)
    8254   114070872 :          lu(k,1811) = lu(k,1811) - lu(k,929) * lu(k,1807)
    8255   114070872 :          lu(k,1812) = lu(k,1812) - lu(k,930) * lu(k,1807)
    8256   114070872 :          lu(k,1813) = lu(k,1813) - lu(k,931) * lu(k,1807)
    8257   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,932) * lu(k,1807)
    8258   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,933) * lu(k,1807)
    8259   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,934) * lu(k,1807)
    8260   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,935) * lu(k,1807)
    8261   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,936) * lu(k,1807)
    8262   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,937) * lu(k,1807)
    8263   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,938) * lu(k,1807)
    8264   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,939) * lu(k,1807)
    8265   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,940) * lu(k,1807)
    8266   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,941) * lu(k,1807)
    8267   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,942) * lu(k,1807)
    8268   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,943) * lu(k,1807)
    8269   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,944) * lu(k,1807)
    8270   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,945) * lu(k,1807)
    8271   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,946) * lu(k,1807)
    8272   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,947) * lu(k,1807)
    8273   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,948) * lu(k,1807)
    8274   114070872 :          lu(k,1841) = lu(k,1841) - lu(k,927) * lu(k,1840)
    8275   114070872 :          lu(k,1843) = lu(k,1843) - lu(k,928) * lu(k,1840)
    8276   114070872 :          lu(k,1844) = lu(k,1844) - lu(k,929) * lu(k,1840)
    8277   114070872 :          lu(k,1845) = lu(k,1845) - lu(k,930) * lu(k,1840)
    8278   114070872 :          lu(k,1846) = lu(k,1846) - lu(k,931) * lu(k,1840)
    8279   114070872 :          lu(k,1847) = lu(k,1847) - lu(k,932) * lu(k,1840)
    8280   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,933) * lu(k,1840)
    8281   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,934) * lu(k,1840)
    8282   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,935) * lu(k,1840)
    8283   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,936) * lu(k,1840)
    8284   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,937) * lu(k,1840)
    8285   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,938) * lu(k,1840)
    8286   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,939) * lu(k,1840)
    8287   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,940) * lu(k,1840)
    8288   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,941) * lu(k,1840)
    8289   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,942) * lu(k,1840)
    8290   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,943) * lu(k,1840)
    8291   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,944) * lu(k,1840)
    8292   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,945) * lu(k,1840)
    8293   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,946) * lu(k,1840)
    8294   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,947) * lu(k,1840)
    8295   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,948) * lu(k,1840)
    8296   114070872 :          lu(k,1877) = lu(k,1877) - lu(k,927) * lu(k,1876)
    8297   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,928) * lu(k,1876)
    8298   114070872 :          lu(k,1880) = lu(k,1880) - lu(k,929) * lu(k,1876)
    8299   114070872 :          lu(k,1881) = lu(k,1881) - lu(k,930) * lu(k,1876)
    8300   114070872 :          lu(k,1882) = lu(k,1882) - lu(k,931) * lu(k,1876)
    8301   114070872 :          lu(k,1883) = lu(k,1883) - lu(k,932) * lu(k,1876)
    8302   114070872 :          lu(k,1885) = lu(k,1885) - lu(k,933) * lu(k,1876)
    8303   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,934) * lu(k,1876)
    8304   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,935) * lu(k,1876)
    8305   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,936) * lu(k,1876)
    8306   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,937) * lu(k,1876)
    8307   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,938) * lu(k,1876)
    8308   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,939) * lu(k,1876)
    8309   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,940) * lu(k,1876)
    8310   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,941) * lu(k,1876)
    8311   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,942) * lu(k,1876)
    8312   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,943) * lu(k,1876)
    8313   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,944) * lu(k,1876)
    8314   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,945) * lu(k,1876)
    8315   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,946) * lu(k,1876)
    8316   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,947) * lu(k,1876)
    8317   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,948) * lu(k,1876)
    8318   114070872 :          lu(k,1918) = lu(k,1918) - lu(k,927) * lu(k,1917)
    8319   114070872 :          lu(k,1920) = lu(k,1920) - lu(k,928) * lu(k,1917)
    8320   114070872 :          lu(k,1921) = lu(k,1921) - lu(k,929) * lu(k,1917)
    8321   114070872 :          lu(k,1922) = lu(k,1922) - lu(k,930) * lu(k,1917)
    8322   114070872 :          lu(k,1923) = lu(k,1923) - lu(k,931) * lu(k,1917)
    8323   114070872 :          lu(k,1924) = lu(k,1924) - lu(k,932) * lu(k,1917)
    8324   114070872 :          lu(k,1926) = lu(k,1926) - lu(k,933) * lu(k,1917)
    8325   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,934) * lu(k,1917)
    8326   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,935) * lu(k,1917)
    8327   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,936) * lu(k,1917)
    8328   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,937) * lu(k,1917)
    8329   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,938) * lu(k,1917)
    8330   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,939) * lu(k,1917)
    8331   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,940) * lu(k,1917)
    8332   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,941) * lu(k,1917)
    8333   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,942) * lu(k,1917)
    8334   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,943) * lu(k,1917)
    8335   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,944) * lu(k,1917)
    8336   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,945) * lu(k,1917)
    8337   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,946) * lu(k,1917)
    8338   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,947) * lu(k,1917)
    8339   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,948) * lu(k,1917)
    8340   114070872 :          lu(k,1960) = lu(k,1960) - lu(k,927) * lu(k,1959)
    8341   114070872 :          lu(k,1962) = lu(k,1962) - lu(k,928) * lu(k,1959)
    8342   114070872 :          lu(k,1963) = lu(k,1963) - lu(k,929) * lu(k,1959)
    8343   114070872 :          lu(k,1964) = lu(k,1964) - lu(k,930) * lu(k,1959)
    8344   114070872 :          lu(k,1965) = lu(k,1965) - lu(k,931) * lu(k,1959)
    8345   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,932) * lu(k,1959)
    8346   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,933) * lu(k,1959)
    8347   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,934) * lu(k,1959)
    8348   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,935) * lu(k,1959)
    8349   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,936) * lu(k,1959)
    8350   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,937) * lu(k,1959)
    8351   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,938) * lu(k,1959)
    8352   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,939) * lu(k,1959)
    8353   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,940) * lu(k,1959)
    8354   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,941) * lu(k,1959)
    8355   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,942) * lu(k,1959)
    8356   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,943) * lu(k,1959)
    8357   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,944) * lu(k,1959)
    8358   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,945) * lu(k,1959)
    8359   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,946) * lu(k,1959)
    8360   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,947) * lu(k,1959)
    8361   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,948) * lu(k,1959)
    8362   114070872 :          lu(k,2005) = lu(k,2005) - lu(k,927) * lu(k,2004)
    8363   114070872 :          lu(k,2007) = lu(k,2007) - lu(k,928) * lu(k,2004)
    8364   114070872 :          lu(k,2008) = lu(k,2008) - lu(k,929) * lu(k,2004)
    8365   114070872 :          lu(k,2009) = lu(k,2009) - lu(k,930) * lu(k,2004)
    8366   114070872 :          lu(k,2010) = lu(k,2010) - lu(k,931) * lu(k,2004)
    8367   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,932) * lu(k,2004)
    8368   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,933) * lu(k,2004)
    8369   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,934) * lu(k,2004)
    8370   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,935) * lu(k,2004)
    8371   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,936) * lu(k,2004)
    8372   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,937) * lu(k,2004)
    8373   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,938) * lu(k,2004)
    8374   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,939) * lu(k,2004)
    8375   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,940) * lu(k,2004)
    8376   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,941) * lu(k,2004)
    8377   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,942) * lu(k,2004)
    8378   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,943) * lu(k,2004)
    8379   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,944) * lu(k,2004)
    8380   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,945) * lu(k,2004)
    8381   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,946) * lu(k,2004)
    8382   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,947) * lu(k,2004)
    8383   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,948) * lu(k,2004)
    8384   114070872 :          lu(k,2065) = lu(k,2065) - lu(k,927) * lu(k,2064)
    8385   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,928) * lu(k,2064)
    8386   114070872 :          lu(k,2068) = lu(k,2068) - lu(k,929) * lu(k,2064)
    8387   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,930) * lu(k,2064)
    8388   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,931) * lu(k,2064)
    8389   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,932) * lu(k,2064)
    8390   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,933) * lu(k,2064)
    8391   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,934) * lu(k,2064)
    8392   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,935) * lu(k,2064)
    8393   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,936) * lu(k,2064)
    8394   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,937) * lu(k,2064)
    8395   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,938) * lu(k,2064)
    8396   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,939) * lu(k,2064)
    8397   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,940) * lu(k,2064)
    8398   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,941) * lu(k,2064)
    8399   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,942) * lu(k,2064)
    8400   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,943) * lu(k,2064)
    8401   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,944) * lu(k,2064)
    8402   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,945) * lu(k,2064)
    8403   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,946) * lu(k,2064)
    8404   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,947) * lu(k,2064)
    8405   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,948) * lu(k,2064)
    8406             :       end do
    8407     3585597 :       end subroutine lu_fac20
    8408     3585597 :       subroutine lu_fac21( avec_len, lu )
    8409             :       use chem_mods, only : nzcnt
    8410             :       use shr_kind_mod, only : r8 => shr_kind_r8
    8411             :       implicit none
    8412             : !-----------------------------------------------------------------------
    8413             : ! ... dummy args
    8414             : !-----------------------------------------------------------------------
    8415             :       integer, intent(in) :: avec_len
    8416             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    8417             : !-----------------------------------------------------------------------
    8418             : ! ... local variables
    8419             : !-----------------------------------------------------------------------
    8420             :       integer :: k
    8421   117656469 :       do k = 1,avec_len
    8422   114070872 :          lu(k,984) = 1._r8 / lu(k,984)
    8423   114070872 :          lu(k,985) = lu(k,985) * lu(k,984)
    8424   114070872 :          lu(k,986) = lu(k,986) * lu(k,984)
    8425   114070872 :          lu(k,987) = lu(k,987) * lu(k,984)
    8426   114070872 :          lu(k,988) = lu(k,988) * lu(k,984)
    8427   114070872 :          lu(k,989) = lu(k,989) * lu(k,984)
    8428   114070872 :          lu(k,990) = lu(k,990) * lu(k,984)
    8429   114070872 :          lu(k,991) = lu(k,991) * lu(k,984)
    8430   114070872 :          lu(k,992) = lu(k,992) * lu(k,984)
    8431   114070872 :          lu(k,993) = lu(k,993) * lu(k,984)
    8432   114070872 :          lu(k,994) = lu(k,994) * lu(k,984)
    8433   114070872 :          lu(k,995) = lu(k,995) * lu(k,984)
    8434   114070872 :          lu(k,996) = lu(k,996) * lu(k,984)
    8435   114070872 :          lu(k,997) = lu(k,997) * lu(k,984)
    8436   114070872 :          lu(k,998) = lu(k,998) * lu(k,984)
    8437   114070872 :          lu(k,999) = lu(k,999) * lu(k,984)
    8438   114070872 :          lu(k,1000) = lu(k,1000) * lu(k,984)
    8439   114070872 :          lu(k,1001) = lu(k,1001) * lu(k,984)
    8440   114070872 :          lu(k,1002) = lu(k,1002) * lu(k,984)
    8441   114070872 :          lu(k,1003) = lu(k,1003) * lu(k,984)
    8442   114070872 :          lu(k,1004) = lu(k,1004) * lu(k,984)
    8443   114070872 :          lu(k,1005) = lu(k,1005) * lu(k,984)
    8444   114070872 :          lu(k,1015) = lu(k,1015) - lu(k,985) * lu(k,1013)
    8445   114070872 :          lu(k,1016) = lu(k,1016) - lu(k,986) * lu(k,1013)
    8446   114070872 :          lu(k,1017) = lu(k,1017) - lu(k,987) * lu(k,1013)
    8447   114070872 :          lu(k,1019) = lu(k,1019) - lu(k,988) * lu(k,1013)
    8448   114070872 :          lu(k,1020) = lu(k,1020) - lu(k,989) * lu(k,1013)
    8449   114070872 :          lu(k,1021) = lu(k,1021) - lu(k,990) * lu(k,1013)
    8450   114070872 :          lu(k,1022) = lu(k,1022) - lu(k,991) * lu(k,1013)
    8451   114070872 :          lu(k,1023) = lu(k,1023) - lu(k,992) * lu(k,1013)
    8452   114070872 :          lu(k,1024) = lu(k,1024) - lu(k,993) * lu(k,1013)
    8453   114070872 :          lu(k,1025) = lu(k,1025) - lu(k,994) * lu(k,1013)
    8454   114070872 :          lu(k,1026) = lu(k,1026) - lu(k,995) * lu(k,1013)
    8455   114070872 :          lu(k,1027) = lu(k,1027) - lu(k,996) * lu(k,1013)
    8456   114070872 :          lu(k,1030) = lu(k,1030) - lu(k,997) * lu(k,1013)
    8457   114070872 :          lu(k,1031) = lu(k,1031) - lu(k,998) * lu(k,1013)
    8458   114070872 :          lu(k,1032) = lu(k,1032) - lu(k,999) * lu(k,1013)
    8459   114070872 :          lu(k,1033) = lu(k,1033) - lu(k,1000) * lu(k,1013)
    8460   114070872 :          lu(k,1034) = lu(k,1034) - lu(k,1001) * lu(k,1013)
    8461   114070872 :          lu(k,1035) = lu(k,1035) - lu(k,1002) * lu(k,1013)
    8462   114070872 :          lu(k,1036) = lu(k,1036) - lu(k,1003) * lu(k,1013)
    8463   114070872 :          lu(k,1037) = lu(k,1037) - lu(k,1004) * lu(k,1013)
    8464   114070872 :          lu(k,1038) = lu(k,1038) - lu(k,1005) * lu(k,1013)
    8465   114070872 :          lu(k,1058) = lu(k,1058) - lu(k,985) * lu(k,1057)
    8466   114070872 :          lu(k,1059) = lu(k,1059) - lu(k,986) * lu(k,1057)
    8467   114070872 :          lu(k,1060) = lu(k,1060) - lu(k,987) * lu(k,1057)
    8468   114070872 :          lu(k,1062) = lu(k,1062) - lu(k,988) * lu(k,1057)
    8469   114070872 :          lu(k,1063) = lu(k,1063) - lu(k,989) * lu(k,1057)
    8470   114070872 :          lu(k,1064) = lu(k,1064) - lu(k,990) * lu(k,1057)
    8471   114070872 :          lu(k,1065) = lu(k,1065) - lu(k,991) * lu(k,1057)
    8472   114070872 :          lu(k,1066) = lu(k,1066) - lu(k,992) * lu(k,1057)
    8473   114070872 :          lu(k,1067) = lu(k,1067) - lu(k,993) * lu(k,1057)
    8474   114070872 :          lu(k,1068) = lu(k,1068) - lu(k,994) * lu(k,1057)
    8475   114070872 :          lu(k,1069) = lu(k,1069) - lu(k,995) * lu(k,1057)
    8476   114070872 :          lu(k,1070) = lu(k,1070) - lu(k,996) * lu(k,1057)
    8477   114070872 :          lu(k,1073) = lu(k,1073) - lu(k,997) * lu(k,1057)
    8478   114070872 :          lu(k,1074) = lu(k,1074) - lu(k,998) * lu(k,1057)
    8479   114070872 :          lu(k,1075) = lu(k,1075) - lu(k,999) * lu(k,1057)
    8480   114070872 :          lu(k,1076) = lu(k,1076) - lu(k,1000) * lu(k,1057)
    8481   114070872 :          lu(k,1077) = lu(k,1077) - lu(k,1001) * lu(k,1057)
    8482   114070872 :          lu(k,1078) = lu(k,1078) - lu(k,1002) * lu(k,1057)
    8483   114070872 :          lu(k,1079) = lu(k,1079) - lu(k,1003) * lu(k,1057)
    8484   114070872 :          lu(k,1080) = lu(k,1080) - lu(k,1004) * lu(k,1057)
    8485   114070872 :          lu(k,1081) = lu(k,1081) - lu(k,1005) * lu(k,1057)
    8486   114070872 :          lu(k,1103) = lu(k,1103) - lu(k,985) * lu(k,1101)
    8487   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,986) * lu(k,1101)
    8488   114070872 :          lu(k,1105) = lu(k,1105) - lu(k,987) * lu(k,1101)
    8489   114070872 :          lu(k,1107) = lu(k,1107) - lu(k,988) * lu(k,1101)
    8490   114070872 :          lu(k,1108) = lu(k,1108) - lu(k,989) * lu(k,1101)
    8491   114070872 :          lu(k,1109) = lu(k,1109) - lu(k,990) * lu(k,1101)
    8492   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,991) * lu(k,1101)
    8493   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,992) * lu(k,1101)
    8494   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,993) * lu(k,1101)
    8495   114070872 :          lu(k,1113) = lu(k,1113) - lu(k,994) * lu(k,1101)
    8496   114070872 :          lu(k,1114) = lu(k,1114) - lu(k,995) * lu(k,1101)
    8497   114070872 :          lu(k,1115) = lu(k,1115) - lu(k,996) * lu(k,1101)
    8498   114070872 :          lu(k,1118) = lu(k,1118) - lu(k,997) * lu(k,1101)
    8499   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,998) * lu(k,1101)
    8500   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,999) * lu(k,1101)
    8501   114070872 :          lu(k,1121) = lu(k,1121) - lu(k,1000) * lu(k,1101)
    8502   114070872 :          lu(k,1122) = lu(k,1122) - lu(k,1001) * lu(k,1101)
    8503   114070872 :          lu(k,1123) = lu(k,1123) - lu(k,1002) * lu(k,1101)
    8504   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,1003) * lu(k,1101)
    8505   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,1004) * lu(k,1101)
    8506   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,1005) * lu(k,1101)
    8507   114070872 :          lu(k,1151) = lu(k,1151) - lu(k,985) * lu(k,1149)
    8508   114070872 :          lu(k,1152) = lu(k,1152) - lu(k,986) * lu(k,1149)
    8509   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,987) * lu(k,1149)
    8510   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,988) * lu(k,1149)
    8511   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,989) * lu(k,1149)
    8512   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,990) * lu(k,1149)
    8513   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,991) * lu(k,1149)
    8514   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,992) * lu(k,1149)
    8515   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,993) * lu(k,1149)
    8516   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,994) * lu(k,1149)
    8517   114070872 :          lu(k,1162) = lu(k,1162) - lu(k,995) * lu(k,1149)
    8518   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,996) * lu(k,1149)
    8519   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,997) * lu(k,1149)
    8520   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,998) * lu(k,1149)
    8521   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,999) * lu(k,1149)
    8522   114070872 :          lu(k,1169) = lu(k,1169) - lu(k,1000) * lu(k,1149)
    8523   114070872 :          lu(k,1170) = lu(k,1170) - lu(k,1001) * lu(k,1149)
    8524   114070872 :          lu(k,1171) = lu(k,1171) - lu(k,1002) * lu(k,1149)
    8525   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,1003) * lu(k,1149)
    8526   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,1004) * lu(k,1149)
    8527   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,1005) * lu(k,1149)
    8528   114070872 :          lu(k,1194) = lu(k,1194) - lu(k,985) * lu(k,1192)
    8529   114070872 :          lu(k,1195) = lu(k,1195) - lu(k,986) * lu(k,1192)
    8530   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,987) * lu(k,1192)
    8531   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,988) * lu(k,1192)
    8532   114070872 :          lu(k,1199) = lu(k,1199) - lu(k,989) * lu(k,1192)
    8533   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,990) * lu(k,1192)
    8534   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,991) * lu(k,1192)
    8535   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,992) * lu(k,1192)
    8536   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,993) * lu(k,1192)
    8537   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,994) * lu(k,1192)
    8538   114070872 :          lu(k,1205) = lu(k,1205) - lu(k,995) * lu(k,1192)
    8539   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,996) * lu(k,1192)
    8540   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,997) * lu(k,1192)
    8541   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,998) * lu(k,1192)
    8542   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,999) * lu(k,1192)
    8543   114070872 :          lu(k,1212) = lu(k,1212) - lu(k,1000) * lu(k,1192)
    8544   114070872 :          lu(k,1213) = lu(k,1213) - lu(k,1001) * lu(k,1192)
    8545   114070872 :          lu(k,1214) = lu(k,1214) - lu(k,1002) * lu(k,1192)
    8546   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,1003) * lu(k,1192)
    8547   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,1004) * lu(k,1192)
    8548   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,1005) * lu(k,1192)
    8549   114070872 :          lu(k,1237) = lu(k,1237) - lu(k,985) * lu(k,1235)
    8550   114070872 :          lu(k,1238) = lu(k,1238) - lu(k,986) * lu(k,1235)
    8551   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,987) * lu(k,1235)
    8552   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,988) * lu(k,1235)
    8553   114070872 :          lu(k,1242) = lu(k,1242) - lu(k,989) * lu(k,1235)
    8554   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,990) * lu(k,1235)
    8555   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,991) * lu(k,1235)
    8556   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,992) * lu(k,1235)
    8557   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,993) * lu(k,1235)
    8558   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,994) * lu(k,1235)
    8559   114070872 :          lu(k,1248) = lu(k,1248) - lu(k,995) * lu(k,1235)
    8560   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,996) * lu(k,1235)
    8561   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,997) * lu(k,1235)
    8562   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,998) * lu(k,1235)
    8563   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,999) * lu(k,1235)
    8564   114070872 :          lu(k,1255) = lu(k,1255) - lu(k,1000) * lu(k,1235)
    8565   114070872 :          lu(k,1256) = lu(k,1256) - lu(k,1001) * lu(k,1235)
    8566   114070872 :          lu(k,1257) = lu(k,1257) - lu(k,1002) * lu(k,1235)
    8567   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,1003) * lu(k,1235)
    8568   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,1004) * lu(k,1235)
    8569   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,1005) * lu(k,1235)
    8570   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,985) * lu(k,1277)
    8571   114070872 :          lu(k,1280) = lu(k,1280) - lu(k,986) * lu(k,1277)
    8572   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,987) * lu(k,1277)
    8573   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,988) * lu(k,1277)
    8574   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,989) * lu(k,1277)
    8575   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,990) * lu(k,1277)
    8576   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,991) * lu(k,1277)
    8577   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,992) * lu(k,1277)
    8578   114070872 :          lu(k,1288) = lu(k,1288) - lu(k,993) * lu(k,1277)
    8579   114070872 :          lu(k,1289) = lu(k,1289) - lu(k,994) * lu(k,1277)
    8580   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,995) * lu(k,1277)
    8581   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,996) * lu(k,1277)
    8582   114070872 :          lu(k,1294) = lu(k,1294) - lu(k,997) * lu(k,1277)
    8583   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,998) * lu(k,1277)
    8584   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,999) * lu(k,1277)
    8585   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,1000) * lu(k,1277)
    8586   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,1001) * lu(k,1277)
    8587   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,1002) * lu(k,1277)
    8588   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,1003) * lu(k,1277)
    8589   114070872 :          lu(k,1301) = lu(k,1301) - lu(k,1004) * lu(k,1277)
    8590   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,1005) * lu(k,1277)
    8591   114070872 :          lu(k,1321) = lu(k,1321) - lu(k,985) * lu(k,1319)
    8592   114070872 :          lu(k,1322) = lu(k,1322) - lu(k,986) * lu(k,1319)
    8593   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,987) * lu(k,1319)
    8594   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,988) * lu(k,1319)
    8595   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,989) * lu(k,1319)
    8596   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,990) * lu(k,1319)
    8597   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,991) * lu(k,1319)
    8598   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,992) * lu(k,1319)
    8599   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,993) * lu(k,1319)
    8600   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,994) * lu(k,1319)
    8601   114070872 :          lu(k,1332) = lu(k,1332) - lu(k,995) * lu(k,1319)
    8602   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,996) * lu(k,1319)
    8603   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,997) * lu(k,1319)
    8604   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,998) * lu(k,1319)
    8605   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,999) * lu(k,1319)
    8606   114070872 :          lu(k,1339) = lu(k,1339) - lu(k,1000) * lu(k,1319)
    8607   114070872 :          lu(k,1340) = lu(k,1340) - lu(k,1001) * lu(k,1319)
    8608   114070872 :          lu(k,1341) = lu(k,1341) - lu(k,1002) * lu(k,1319)
    8609   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,1003) * lu(k,1319)
    8610   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,1004) * lu(k,1319)
    8611   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,1005) * lu(k,1319)
    8612   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,985) * lu(k,1379)
    8613   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,986) * lu(k,1379)
    8614   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,987) * lu(k,1379)
    8615   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,988) * lu(k,1379)
    8616   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,989) * lu(k,1379)
    8617   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,990) * lu(k,1379)
    8618   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,991) * lu(k,1379)
    8619   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,992) * lu(k,1379)
    8620   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,993) * lu(k,1379)
    8621   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,994) * lu(k,1379)
    8622   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,995) * lu(k,1379)
    8623   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,996) * lu(k,1379)
    8624   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,997) * lu(k,1379)
    8625   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,998) * lu(k,1379)
    8626   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,999) * lu(k,1379)
    8627   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,1000) * lu(k,1379)
    8628   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,1001) * lu(k,1379)
    8629   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,1002) * lu(k,1379)
    8630   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,1003) * lu(k,1379)
    8631   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,1004) * lu(k,1379)
    8632   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,1005) * lu(k,1379)
    8633   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,985) * lu(k,1428)
    8634   114070872 :          lu(k,1431) = lu(k,1431) - lu(k,986) * lu(k,1428)
    8635   114070872 :          lu(k,1432) = lu(k,1432) - lu(k,987) * lu(k,1428)
    8636   114070872 :          lu(k,1434) = lu(k,1434) - lu(k,988) * lu(k,1428)
    8637   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,989) * lu(k,1428)
    8638   114070872 :          lu(k,1436) = lu(k,1436) - lu(k,990) * lu(k,1428)
    8639   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,991) * lu(k,1428)
    8640   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,992) * lu(k,1428)
    8641   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,993) * lu(k,1428)
    8642   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,994) * lu(k,1428)
    8643   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,995) * lu(k,1428)
    8644   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,996) * lu(k,1428)
    8645   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,997) * lu(k,1428)
    8646   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,998) * lu(k,1428)
    8647   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,999) * lu(k,1428)
    8648   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,1000) * lu(k,1428)
    8649   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,1001) * lu(k,1428)
    8650   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,1002) * lu(k,1428)
    8651   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,1003) * lu(k,1428)
    8652   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,1004) * lu(k,1428)
    8653   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,1005) * lu(k,1428)
    8654   114070872 :          lu(k,1478) = lu(k,1478) - lu(k,985) * lu(k,1476)
    8655   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,986) * lu(k,1476)
    8656   114070872 :          lu(k,1480) = lu(k,1480) - lu(k,987) * lu(k,1476)
    8657   114070872 :          lu(k,1482) = lu(k,1482) - lu(k,988) * lu(k,1476)
    8658   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,989) * lu(k,1476)
    8659   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,990) * lu(k,1476)
    8660   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,991) * lu(k,1476)
    8661   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,992) * lu(k,1476)
    8662   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,993) * lu(k,1476)
    8663   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,994) * lu(k,1476)
    8664   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,995) * lu(k,1476)
    8665   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,996) * lu(k,1476)
    8666   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,997) * lu(k,1476)
    8667   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,998) * lu(k,1476)
    8668   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,999) * lu(k,1476)
    8669   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,1000) * lu(k,1476)
    8670   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,1001) * lu(k,1476)
    8671   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,1002) * lu(k,1476)
    8672   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,1003) * lu(k,1476)
    8673   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,1004) * lu(k,1476)
    8674   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,1005) * lu(k,1476)
    8675   114070872 :          lu(k,1519) = lu(k,1519) - lu(k,985) * lu(k,1517)
    8676   114070872 :          lu(k,1520) = lu(k,1520) - lu(k,986) * lu(k,1517)
    8677   114070872 :          lu(k,1521) = lu(k,1521) - lu(k,987) * lu(k,1517)
    8678   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,988) * lu(k,1517)
    8679   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,989) * lu(k,1517)
    8680   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,990) * lu(k,1517)
    8681   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,991) * lu(k,1517)
    8682   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,992) * lu(k,1517)
    8683   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,993) * lu(k,1517)
    8684   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,994) * lu(k,1517)
    8685   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,995) * lu(k,1517)
    8686   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,996) * lu(k,1517)
    8687   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,997) * lu(k,1517)
    8688   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,998) * lu(k,1517)
    8689   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,999) * lu(k,1517)
    8690   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1000) * lu(k,1517)
    8691   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1001) * lu(k,1517)
    8692   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1002) * lu(k,1517)
    8693   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1003) * lu(k,1517)
    8694   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1004) * lu(k,1517)
    8695   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1005) * lu(k,1517)
    8696   114070872 :          lu(k,1555) = lu(k,1555) - lu(k,985) * lu(k,1553)
    8697   114070872 :          lu(k,1556) = lu(k,1556) - lu(k,986) * lu(k,1553)
    8698   114070872 :          lu(k,1557) = lu(k,1557) - lu(k,987) * lu(k,1553)
    8699   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,988) * lu(k,1553)
    8700   114070872 :          lu(k,1560) = lu(k,1560) - lu(k,989) * lu(k,1553)
    8701   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,990) * lu(k,1553)
    8702   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,991) * lu(k,1553)
    8703   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,992) * lu(k,1553)
    8704   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,993) * lu(k,1553)
    8705   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,994) * lu(k,1553)
    8706   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,995) * lu(k,1553)
    8707   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,996) * lu(k,1553)
    8708   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,997) * lu(k,1553)
    8709   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,998) * lu(k,1553)
    8710   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,999) * lu(k,1553)
    8711   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1000) * lu(k,1553)
    8712   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1001) * lu(k,1553)
    8713   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1002) * lu(k,1553)
    8714   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1003) * lu(k,1553)
    8715   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1004) * lu(k,1553)
    8716   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1005) * lu(k,1553)
    8717   114070872 :          lu(k,1600) = lu(k,1600) - lu(k,985) * lu(k,1598)
    8718   114070872 :          lu(k,1601) = lu(k,1601) - lu(k,986) * lu(k,1598)
    8719   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,987) * lu(k,1598)
    8720   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,988) * lu(k,1598)
    8721   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,989) * lu(k,1598)
    8722   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,990) * lu(k,1598)
    8723   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,991) * lu(k,1598)
    8724   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,992) * lu(k,1598)
    8725   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,993) * lu(k,1598)
    8726   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,994) * lu(k,1598)
    8727   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,995) * lu(k,1598)
    8728   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,996) * lu(k,1598)
    8729   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,997) * lu(k,1598)
    8730   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,998) * lu(k,1598)
    8731   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,999) * lu(k,1598)
    8732   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1000) * lu(k,1598)
    8733   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1001) * lu(k,1598)
    8734   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1002) * lu(k,1598)
    8735   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1003) * lu(k,1598)
    8736   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1004) * lu(k,1598)
    8737   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1005) * lu(k,1598)
    8738   114070872 :          lu(k,1643) = lu(k,1643) - lu(k,985) * lu(k,1641)
    8739   114070872 :          lu(k,1644) = lu(k,1644) - lu(k,986) * lu(k,1641)
    8740   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,987) * lu(k,1641)
    8741   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,988) * lu(k,1641)
    8742   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,989) * lu(k,1641)
    8743   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,990) * lu(k,1641)
    8744   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,991) * lu(k,1641)
    8745   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,992) * lu(k,1641)
    8746   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,993) * lu(k,1641)
    8747   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,994) * lu(k,1641)
    8748   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,995) * lu(k,1641)
    8749   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,996) * lu(k,1641)
    8750   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,997) * lu(k,1641)
    8751   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,998) * lu(k,1641)
    8752   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,999) * lu(k,1641)
    8753   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1000) * lu(k,1641)
    8754   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1001) * lu(k,1641)
    8755   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1002) * lu(k,1641)
    8756   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1003) * lu(k,1641)
    8757   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1004) * lu(k,1641)
    8758   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1005) * lu(k,1641)
    8759   114070872 :          lu(k,1686) = lu(k,1686) - lu(k,985) * lu(k,1684)
    8760   114070872 :          lu(k,1687) = lu(k,1687) - lu(k,986) * lu(k,1684)
    8761   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,987) * lu(k,1684)
    8762   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,988) * lu(k,1684)
    8763   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,989) * lu(k,1684)
    8764   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,990) * lu(k,1684)
    8765   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,991) * lu(k,1684)
    8766   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,992) * lu(k,1684)
    8767   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,993) * lu(k,1684)
    8768   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,994) * lu(k,1684)
    8769   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,995) * lu(k,1684)
    8770   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,996) * lu(k,1684)
    8771   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,997) * lu(k,1684)
    8772   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,998) * lu(k,1684)
    8773   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,999) * lu(k,1684)
    8774   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1000) * lu(k,1684)
    8775   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1001) * lu(k,1684)
    8776   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1002) * lu(k,1684)
    8777   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1003) * lu(k,1684)
    8778   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1004) * lu(k,1684)
    8779   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1005) * lu(k,1684)
    8780   114070872 :          lu(k,1726) = lu(k,1726) - lu(k,985) * lu(k,1725)
    8781   114070872 :          lu(k,1727) = lu(k,1727) - lu(k,986) * lu(k,1725)
    8782   114070872 :          lu(k,1728) = lu(k,1728) - lu(k,987) * lu(k,1725)
    8783   114070872 :          lu(k,1730) = lu(k,1730) - lu(k,988) * lu(k,1725)
    8784   114070872 :          lu(k,1731) = lu(k,1731) - lu(k,989) * lu(k,1725)
    8785   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,990) * lu(k,1725)
    8786   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,991) * lu(k,1725)
    8787   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,992) * lu(k,1725)
    8788   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,993) * lu(k,1725)
    8789   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,994) * lu(k,1725)
    8790   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,995) * lu(k,1725)
    8791   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,996) * lu(k,1725)
    8792   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,997) * lu(k,1725)
    8793   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,998) * lu(k,1725)
    8794   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,999) * lu(k,1725)
    8795   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1000) * lu(k,1725)
    8796   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1001) * lu(k,1725)
    8797   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1002) * lu(k,1725)
    8798   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1003) * lu(k,1725)
    8799   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1004) * lu(k,1725)
    8800   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1005) * lu(k,1725)
    8801   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,985) * lu(k,1760)
    8802   114070872 :          lu(k,1763) = lu(k,1763) - lu(k,986) * lu(k,1760)
    8803   114070872 :          lu(k,1764) = lu(k,1764) - lu(k,987) * lu(k,1760)
    8804   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,988) * lu(k,1760)
    8805   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,989) * lu(k,1760)
    8806   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,990) * lu(k,1760)
    8807   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,991) * lu(k,1760)
    8808   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,992) * lu(k,1760)
    8809   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,993) * lu(k,1760)
    8810   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,994) * lu(k,1760)
    8811   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,995) * lu(k,1760)
    8812   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,996) * lu(k,1760)
    8813   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,997) * lu(k,1760)
    8814   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,998) * lu(k,1760)
    8815   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,999) * lu(k,1760)
    8816   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1000) * lu(k,1760)
    8817   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1001) * lu(k,1760)
    8818   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1002) * lu(k,1760)
    8819   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1003) * lu(k,1760)
    8820   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1004) * lu(k,1760)
    8821   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1005) * lu(k,1760)
    8822   114070872 :          lu(k,1810) = lu(k,1810) - lu(k,985) * lu(k,1808)
    8823   114070872 :          lu(k,1811) = lu(k,1811) - lu(k,986) * lu(k,1808)
    8824   114070872 :          lu(k,1812) = lu(k,1812) - lu(k,987) * lu(k,1808)
    8825   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,988) * lu(k,1808)
    8826   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,989) * lu(k,1808)
    8827   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,990) * lu(k,1808)
    8828   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,991) * lu(k,1808)
    8829   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,992) * lu(k,1808)
    8830   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,993) * lu(k,1808)
    8831   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,994) * lu(k,1808)
    8832   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,995) * lu(k,1808)
    8833   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,996) * lu(k,1808)
    8834   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,997) * lu(k,1808)
    8835   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,998) * lu(k,1808)
    8836   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,999) * lu(k,1808)
    8837   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1000) * lu(k,1808)
    8838   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1001) * lu(k,1808)
    8839   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1002) * lu(k,1808)
    8840   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1003) * lu(k,1808)
    8841   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1004) * lu(k,1808)
    8842   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1005) * lu(k,1808)
    8843   114070872 :          lu(k,1843) = lu(k,1843) - lu(k,985) * lu(k,1841)
    8844   114070872 :          lu(k,1844) = lu(k,1844) - lu(k,986) * lu(k,1841)
    8845   114070872 :          lu(k,1845) = lu(k,1845) - lu(k,987) * lu(k,1841)
    8846   114070872 :          lu(k,1847) = lu(k,1847) - lu(k,988) * lu(k,1841)
    8847   114070872 :          lu(k,1848) = lu(k,1848) - lu(k,989) * lu(k,1841)
    8848   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,990) * lu(k,1841)
    8849   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,991) * lu(k,1841)
    8850   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,992) * lu(k,1841)
    8851   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,993) * lu(k,1841)
    8852   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,994) * lu(k,1841)
    8853   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,995) * lu(k,1841)
    8854   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,996) * lu(k,1841)
    8855   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,997) * lu(k,1841)
    8856   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,998) * lu(k,1841)
    8857   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,999) * lu(k,1841)
    8858   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1000) * lu(k,1841)
    8859   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1001) * lu(k,1841)
    8860   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1002) * lu(k,1841)
    8861   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1003) * lu(k,1841)
    8862   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1004) * lu(k,1841)
    8863   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1005) * lu(k,1841)
    8864   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,985) * lu(k,1877)
    8865   114070872 :          lu(k,1880) = lu(k,1880) - lu(k,986) * lu(k,1877)
    8866   114070872 :          lu(k,1881) = lu(k,1881) - lu(k,987) * lu(k,1877)
    8867   114070872 :          lu(k,1883) = lu(k,1883) - lu(k,988) * lu(k,1877)
    8868   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,989) * lu(k,1877)
    8869   114070872 :          lu(k,1885) = lu(k,1885) - lu(k,990) * lu(k,1877)
    8870   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,991) * lu(k,1877)
    8871   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,992) * lu(k,1877)
    8872   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,993) * lu(k,1877)
    8873   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,994) * lu(k,1877)
    8874   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,995) * lu(k,1877)
    8875   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,996) * lu(k,1877)
    8876   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,997) * lu(k,1877)
    8877   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,998) * lu(k,1877)
    8878   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,999) * lu(k,1877)
    8879   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1000) * lu(k,1877)
    8880   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1001) * lu(k,1877)
    8881   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1002) * lu(k,1877)
    8882   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1003) * lu(k,1877)
    8883   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1004) * lu(k,1877)
    8884   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1005) * lu(k,1877)
    8885   114070872 :          lu(k,1920) = lu(k,1920) - lu(k,985) * lu(k,1918)
    8886   114070872 :          lu(k,1921) = lu(k,1921) - lu(k,986) * lu(k,1918)
    8887   114070872 :          lu(k,1922) = lu(k,1922) - lu(k,987) * lu(k,1918)
    8888   114070872 :          lu(k,1924) = lu(k,1924) - lu(k,988) * lu(k,1918)
    8889   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,989) * lu(k,1918)
    8890   114070872 :          lu(k,1926) = lu(k,1926) - lu(k,990) * lu(k,1918)
    8891   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,991) * lu(k,1918)
    8892   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,992) * lu(k,1918)
    8893   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,993) * lu(k,1918)
    8894   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,994) * lu(k,1918)
    8895   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,995) * lu(k,1918)
    8896   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,996) * lu(k,1918)
    8897   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,997) * lu(k,1918)
    8898   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,998) * lu(k,1918)
    8899   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,999) * lu(k,1918)
    8900   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1000) * lu(k,1918)
    8901   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1001) * lu(k,1918)
    8902   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1002) * lu(k,1918)
    8903   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1003) * lu(k,1918)
    8904   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1004) * lu(k,1918)
    8905   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1005) * lu(k,1918)
    8906   114070872 :          lu(k,1962) = lu(k,1962) - lu(k,985) * lu(k,1960)
    8907   114070872 :          lu(k,1963) = lu(k,1963) - lu(k,986) * lu(k,1960)
    8908   114070872 :          lu(k,1964) = lu(k,1964) - lu(k,987) * lu(k,1960)
    8909   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,988) * lu(k,1960)
    8910   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,989) * lu(k,1960)
    8911   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,990) * lu(k,1960)
    8912   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,991) * lu(k,1960)
    8913   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,992) * lu(k,1960)
    8914   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,993) * lu(k,1960)
    8915   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,994) * lu(k,1960)
    8916   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,995) * lu(k,1960)
    8917   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,996) * lu(k,1960)
    8918   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,997) * lu(k,1960)
    8919   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,998) * lu(k,1960)
    8920   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,999) * lu(k,1960)
    8921   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1000) * lu(k,1960)
    8922   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1001) * lu(k,1960)
    8923   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1002) * lu(k,1960)
    8924   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1003) * lu(k,1960)
    8925   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1004) * lu(k,1960)
    8926   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1005) * lu(k,1960)
    8927   114070872 :          lu(k,2007) = lu(k,2007) - lu(k,985) * lu(k,2005)
    8928   114070872 :          lu(k,2008) = lu(k,2008) - lu(k,986) * lu(k,2005)
    8929   114070872 :          lu(k,2009) = lu(k,2009) - lu(k,987) * lu(k,2005)
    8930   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,988) * lu(k,2005)
    8931   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,989) * lu(k,2005)
    8932   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,990) * lu(k,2005)
    8933   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,991) * lu(k,2005)
    8934   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,992) * lu(k,2005)
    8935   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,993) * lu(k,2005)
    8936   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,994) * lu(k,2005)
    8937   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,995) * lu(k,2005)
    8938   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,996) * lu(k,2005)
    8939   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,997) * lu(k,2005)
    8940   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,998) * lu(k,2005)
    8941   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,999) * lu(k,2005)
    8942   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1000) * lu(k,2005)
    8943   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1001) * lu(k,2005)
    8944   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1002) * lu(k,2005)
    8945   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1003) * lu(k,2005)
    8946   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1004) * lu(k,2005)
    8947   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1005) * lu(k,2005)
    8948   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,985) * lu(k,2065)
    8949   114070872 :          lu(k,2068) = lu(k,2068) - lu(k,986) * lu(k,2065)
    8950   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,987) * lu(k,2065)
    8951   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,988) * lu(k,2065)
    8952   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,989) * lu(k,2065)
    8953   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,990) * lu(k,2065)
    8954   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,991) * lu(k,2065)
    8955   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,992) * lu(k,2065)
    8956   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,993) * lu(k,2065)
    8957   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,994) * lu(k,2065)
    8958   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,995) * lu(k,2065)
    8959   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,996) * lu(k,2065)
    8960   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,997) * lu(k,2065)
    8961   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,998) * lu(k,2065)
    8962   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,999) * lu(k,2065)
    8963   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1000) * lu(k,2065)
    8964   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1001) * lu(k,2065)
    8965   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1002) * lu(k,2065)
    8966   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1003) * lu(k,2065)
    8967   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1004) * lu(k,2065)
    8968   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1005) * lu(k,2065)
    8969   114070872 :          lu(k,1014) = 1._r8 / lu(k,1014)
    8970   114070872 :          lu(k,1015) = lu(k,1015) * lu(k,1014)
    8971   114070872 :          lu(k,1016) = lu(k,1016) * lu(k,1014)
    8972   114070872 :          lu(k,1017) = lu(k,1017) * lu(k,1014)
    8973   114070872 :          lu(k,1018) = lu(k,1018) * lu(k,1014)
    8974   114070872 :          lu(k,1019) = lu(k,1019) * lu(k,1014)
    8975   114070872 :          lu(k,1020) = lu(k,1020) * lu(k,1014)
    8976   114070872 :          lu(k,1021) = lu(k,1021) * lu(k,1014)
    8977   114070872 :          lu(k,1022) = lu(k,1022) * lu(k,1014)
    8978   114070872 :          lu(k,1023) = lu(k,1023) * lu(k,1014)
    8979   114070872 :          lu(k,1024) = lu(k,1024) * lu(k,1014)
    8980   114070872 :          lu(k,1025) = lu(k,1025) * lu(k,1014)
    8981   114070872 :          lu(k,1026) = lu(k,1026) * lu(k,1014)
    8982   114070872 :          lu(k,1027) = lu(k,1027) * lu(k,1014)
    8983   114070872 :          lu(k,1028) = lu(k,1028) * lu(k,1014)
    8984   114070872 :          lu(k,1029) = lu(k,1029) * lu(k,1014)
    8985   114070872 :          lu(k,1030) = lu(k,1030) * lu(k,1014)
    8986   114070872 :          lu(k,1031) = lu(k,1031) * lu(k,1014)
    8987   114070872 :          lu(k,1032) = lu(k,1032) * lu(k,1014)
    8988   114070872 :          lu(k,1033) = lu(k,1033) * lu(k,1014)
    8989   114070872 :          lu(k,1034) = lu(k,1034) * lu(k,1014)
    8990   114070872 :          lu(k,1035) = lu(k,1035) * lu(k,1014)
    8991   114070872 :          lu(k,1036) = lu(k,1036) * lu(k,1014)
    8992   114070872 :          lu(k,1037) = lu(k,1037) * lu(k,1014)
    8993   114070872 :          lu(k,1038) = lu(k,1038) * lu(k,1014)
    8994   114070872 :          lu(k,1103) = lu(k,1103) - lu(k,1015) * lu(k,1102)
    8995   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,1016) * lu(k,1102)
    8996   114070872 :          lu(k,1105) = lu(k,1105) - lu(k,1017) * lu(k,1102)
    8997   114070872 :          lu(k,1106) = lu(k,1106) - lu(k,1018) * lu(k,1102)
    8998   114070872 :          lu(k,1107) = lu(k,1107) - lu(k,1019) * lu(k,1102)
    8999   114070872 :          lu(k,1108) = lu(k,1108) - lu(k,1020) * lu(k,1102)
    9000   114070872 :          lu(k,1109) = lu(k,1109) - lu(k,1021) * lu(k,1102)
    9001   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,1022) * lu(k,1102)
    9002   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,1023) * lu(k,1102)
    9003   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,1024) * lu(k,1102)
    9004   114070872 :          lu(k,1113) = lu(k,1113) - lu(k,1025) * lu(k,1102)
    9005   114070872 :          lu(k,1114) = lu(k,1114) - lu(k,1026) * lu(k,1102)
    9006   114070872 :          lu(k,1115) = lu(k,1115) - lu(k,1027) * lu(k,1102)
    9007   114070872 :          lu(k,1116) = lu(k,1116) - lu(k,1028) * lu(k,1102)
    9008   114070872 :          lu(k,1117) = lu(k,1117) - lu(k,1029) * lu(k,1102)
    9009   114070872 :          lu(k,1118) = lu(k,1118) - lu(k,1030) * lu(k,1102)
    9010   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,1031) * lu(k,1102)
    9011   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,1032) * lu(k,1102)
    9012   114070872 :          lu(k,1121) = lu(k,1121) - lu(k,1033) * lu(k,1102)
    9013   114070872 :          lu(k,1122) = lu(k,1122) - lu(k,1034) * lu(k,1102)
    9014   114070872 :          lu(k,1123) = lu(k,1123) - lu(k,1035) * lu(k,1102)
    9015   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,1036) * lu(k,1102)
    9016   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,1037) * lu(k,1102)
    9017   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,1038) * lu(k,1102)
    9018   114070872 :          lu(k,1151) = lu(k,1151) - lu(k,1015) * lu(k,1150)
    9019   114070872 :          lu(k,1152) = lu(k,1152) - lu(k,1016) * lu(k,1150)
    9020   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,1017) * lu(k,1150)
    9021   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,1018) * lu(k,1150)
    9022   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,1019) * lu(k,1150)
    9023   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,1020) * lu(k,1150)
    9024   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,1021) * lu(k,1150)
    9025   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,1022) * lu(k,1150)
    9026   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,1023) * lu(k,1150)
    9027   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,1024) * lu(k,1150)
    9028   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,1025) * lu(k,1150)
    9029   114070872 :          lu(k,1162) = lu(k,1162) - lu(k,1026) * lu(k,1150)
    9030   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,1027) * lu(k,1150)
    9031   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,1028) * lu(k,1150)
    9032   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,1029) * lu(k,1150)
    9033   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,1030) * lu(k,1150)
    9034   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,1031) * lu(k,1150)
    9035   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,1032) * lu(k,1150)
    9036   114070872 :          lu(k,1169) = lu(k,1169) - lu(k,1033) * lu(k,1150)
    9037   114070872 :          lu(k,1170) = lu(k,1170) - lu(k,1034) * lu(k,1150)
    9038   114070872 :          lu(k,1171) = lu(k,1171) - lu(k,1035) * lu(k,1150)
    9039   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,1036) * lu(k,1150)
    9040   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,1037) * lu(k,1150)
    9041   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,1038) * lu(k,1150)
    9042   114070872 :          lu(k,1194) = lu(k,1194) - lu(k,1015) * lu(k,1193)
    9043   114070872 :          lu(k,1195) = lu(k,1195) - lu(k,1016) * lu(k,1193)
    9044   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,1017) * lu(k,1193)
    9045   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,1018) * lu(k,1193)
    9046   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,1019) * lu(k,1193)
    9047   114070872 :          lu(k,1199) = lu(k,1199) - lu(k,1020) * lu(k,1193)
    9048   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,1021) * lu(k,1193)
    9049   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,1022) * lu(k,1193)
    9050   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,1023) * lu(k,1193)
    9051   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,1024) * lu(k,1193)
    9052   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,1025) * lu(k,1193)
    9053   114070872 :          lu(k,1205) = lu(k,1205) - lu(k,1026) * lu(k,1193)
    9054   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,1027) * lu(k,1193)
    9055   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,1028) * lu(k,1193)
    9056   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,1029) * lu(k,1193)
    9057   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,1030) * lu(k,1193)
    9058   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,1031) * lu(k,1193)
    9059   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,1032) * lu(k,1193)
    9060   114070872 :          lu(k,1212) = lu(k,1212) - lu(k,1033) * lu(k,1193)
    9061   114070872 :          lu(k,1213) = lu(k,1213) - lu(k,1034) * lu(k,1193)
    9062   114070872 :          lu(k,1214) = lu(k,1214) - lu(k,1035) * lu(k,1193)
    9063   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,1036) * lu(k,1193)
    9064   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,1037) * lu(k,1193)
    9065   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,1038) * lu(k,1193)
    9066   114070872 :          lu(k,1237) = lu(k,1237) - lu(k,1015) * lu(k,1236)
    9067   114070872 :          lu(k,1238) = lu(k,1238) - lu(k,1016) * lu(k,1236)
    9068   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,1017) * lu(k,1236)
    9069   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,1018) * lu(k,1236)
    9070   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,1019) * lu(k,1236)
    9071   114070872 :          lu(k,1242) = lu(k,1242) - lu(k,1020) * lu(k,1236)
    9072   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,1021) * lu(k,1236)
    9073   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,1022) * lu(k,1236)
    9074   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,1023) * lu(k,1236)
    9075   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,1024) * lu(k,1236)
    9076   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,1025) * lu(k,1236)
    9077   114070872 :          lu(k,1248) = lu(k,1248) - lu(k,1026) * lu(k,1236)
    9078   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,1027) * lu(k,1236)
    9079   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,1028) * lu(k,1236)
    9080   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,1029) * lu(k,1236)
    9081   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,1030) * lu(k,1236)
    9082   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,1031) * lu(k,1236)
    9083   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,1032) * lu(k,1236)
    9084   114070872 :          lu(k,1255) = lu(k,1255) - lu(k,1033) * lu(k,1236)
    9085   114070872 :          lu(k,1256) = lu(k,1256) - lu(k,1034) * lu(k,1236)
    9086   114070872 :          lu(k,1257) = lu(k,1257) - lu(k,1035) * lu(k,1236)
    9087   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,1036) * lu(k,1236)
    9088   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,1037) * lu(k,1236)
    9089   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,1038) * lu(k,1236)
    9090   114070872 :          lu(k,1279) = lu(k,1279) - lu(k,1015) * lu(k,1278)
    9091   114070872 :          lu(k,1280) = lu(k,1280) - lu(k,1016) * lu(k,1278)
    9092   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,1017) * lu(k,1278)
    9093   114070872 :          lu(k,1282) = lu(k,1282) - lu(k,1018) * lu(k,1278)
    9094   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,1019) * lu(k,1278)
    9095   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,1020) * lu(k,1278)
    9096   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,1021) * lu(k,1278)
    9097   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,1022) * lu(k,1278)
    9098   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,1023) * lu(k,1278)
    9099   114070872 :          lu(k,1288) = lu(k,1288) - lu(k,1024) * lu(k,1278)
    9100   114070872 :          lu(k,1289) = lu(k,1289) - lu(k,1025) * lu(k,1278)
    9101   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,1026) * lu(k,1278)
    9102   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,1027) * lu(k,1278)
    9103   114070872 :          lu(k,1292) = lu(k,1292) - lu(k,1028) * lu(k,1278)
    9104   114070872 :          lu(k,1293) = lu(k,1293) - lu(k,1029) * lu(k,1278)
    9105   114070872 :          lu(k,1294) = lu(k,1294) - lu(k,1030) * lu(k,1278)
    9106   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,1031) * lu(k,1278)
    9107   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,1032) * lu(k,1278)
    9108   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,1033) * lu(k,1278)
    9109   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,1034) * lu(k,1278)
    9110   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,1035) * lu(k,1278)
    9111   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,1036) * lu(k,1278)
    9112   114070872 :          lu(k,1301) = lu(k,1301) - lu(k,1037) * lu(k,1278)
    9113   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,1038) * lu(k,1278)
    9114   114070872 :          lu(k,1321) = lu(k,1321) - lu(k,1015) * lu(k,1320)
    9115   114070872 :          lu(k,1322) = lu(k,1322) - lu(k,1016) * lu(k,1320)
    9116   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,1017) * lu(k,1320)
    9117   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,1018) * lu(k,1320)
    9118   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,1019) * lu(k,1320)
    9119   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,1020) * lu(k,1320)
    9120   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,1021) * lu(k,1320)
    9121   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,1022) * lu(k,1320)
    9122   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,1023) * lu(k,1320)
    9123   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,1024) * lu(k,1320)
    9124   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,1025) * lu(k,1320)
    9125   114070872 :          lu(k,1332) = lu(k,1332) - lu(k,1026) * lu(k,1320)
    9126   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,1027) * lu(k,1320)
    9127   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,1028) * lu(k,1320)
    9128   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,1029) * lu(k,1320)
    9129   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,1030) * lu(k,1320)
    9130   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,1031) * lu(k,1320)
    9131   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,1032) * lu(k,1320)
    9132   114070872 :          lu(k,1339) = lu(k,1339) - lu(k,1033) * lu(k,1320)
    9133   114070872 :          lu(k,1340) = lu(k,1340) - lu(k,1034) * lu(k,1320)
    9134   114070872 :          lu(k,1341) = lu(k,1341) - lu(k,1035) * lu(k,1320)
    9135   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,1036) * lu(k,1320)
    9136   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,1037) * lu(k,1320)
    9137   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,1038) * lu(k,1320)
    9138   114070872 :          lu(k,1381) = lu(k,1381) - lu(k,1015) * lu(k,1380)
    9139   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,1016) * lu(k,1380)
    9140   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,1017) * lu(k,1380)
    9141   114070872 :          lu(k,1384) = lu(k,1384) - lu(k,1018) * lu(k,1380)
    9142   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,1019) * lu(k,1380)
    9143   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,1020) * lu(k,1380)
    9144   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,1021) * lu(k,1380)
    9145   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,1022) * lu(k,1380)
    9146   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,1023) * lu(k,1380)
    9147   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,1024) * lu(k,1380)
    9148   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,1025) * lu(k,1380)
    9149   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,1026) * lu(k,1380)
    9150   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,1027) * lu(k,1380)
    9151   114070872 :          lu(k,1394) = lu(k,1394) - lu(k,1028) * lu(k,1380)
    9152   114070872 :          lu(k,1395) = lu(k,1395) - lu(k,1029) * lu(k,1380)
    9153   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,1030) * lu(k,1380)
    9154   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,1031) * lu(k,1380)
    9155   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,1032) * lu(k,1380)
    9156   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,1033) * lu(k,1380)
    9157   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,1034) * lu(k,1380)
    9158   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,1035) * lu(k,1380)
    9159   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,1036) * lu(k,1380)
    9160   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,1037) * lu(k,1380)
    9161   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,1038) * lu(k,1380)
    9162   114070872 :          lu(k,1430) = lu(k,1430) - lu(k,1015) * lu(k,1429)
    9163   114070872 :          lu(k,1431) = lu(k,1431) - lu(k,1016) * lu(k,1429)
    9164   114070872 :          lu(k,1432) = lu(k,1432) - lu(k,1017) * lu(k,1429)
    9165   114070872 :          lu(k,1433) = lu(k,1433) - lu(k,1018) * lu(k,1429)
    9166   114070872 :          lu(k,1434) = lu(k,1434) - lu(k,1019) * lu(k,1429)
    9167   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,1020) * lu(k,1429)
    9168   114070872 :          lu(k,1436) = lu(k,1436) - lu(k,1021) * lu(k,1429)
    9169   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,1022) * lu(k,1429)
    9170   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,1023) * lu(k,1429)
    9171   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,1024) * lu(k,1429)
    9172   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,1025) * lu(k,1429)
    9173   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,1026) * lu(k,1429)
    9174   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,1027) * lu(k,1429)
    9175   114070872 :          lu(k,1443) = lu(k,1443) - lu(k,1028) * lu(k,1429)
    9176   114070872 :          lu(k,1444) = lu(k,1444) - lu(k,1029) * lu(k,1429)
    9177   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,1030) * lu(k,1429)
    9178   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,1031) * lu(k,1429)
    9179   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,1032) * lu(k,1429)
    9180   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,1033) * lu(k,1429)
    9181   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,1034) * lu(k,1429)
    9182   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,1035) * lu(k,1429)
    9183   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,1036) * lu(k,1429)
    9184   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,1037) * lu(k,1429)
    9185   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,1038) * lu(k,1429)
    9186   114070872 :          lu(k,1478) = lu(k,1478) - lu(k,1015) * lu(k,1477)
    9187   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,1016) * lu(k,1477)
    9188   114070872 :          lu(k,1480) = lu(k,1480) - lu(k,1017) * lu(k,1477)
    9189   114070872 :          lu(k,1481) = lu(k,1481) - lu(k,1018) * lu(k,1477)
    9190   114070872 :          lu(k,1482) = lu(k,1482) - lu(k,1019) * lu(k,1477)
    9191   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,1020) * lu(k,1477)
    9192   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,1021) * lu(k,1477)
    9193   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,1022) * lu(k,1477)
    9194   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,1023) * lu(k,1477)
    9195   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,1024) * lu(k,1477)
    9196   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,1025) * lu(k,1477)
    9197   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,1026) * lu(k,1477)
    9198   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,1027) * lu(k,1477)
    9199   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,1028) * lu(k,1477)
    9200   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,1029) * lu(k,1477)
    9201   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,1030) * lu(k,1477)
    9202   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,1031) * lu(k,1477)
    9203   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,1032) * lu(k,1477)
    9204   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,1033) * lu(k,1477)
    9205   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,1034) * lu(k,1477)
    9206   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,1035) * lu(k,1477)
    9207   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,1036) * lu(k,1477)
    9208   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,1037) * lu(k,1477)
    9209   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,1038) * lu(k,1477)
    9210   114070872 :          lu(k,1519) = lu(k,1519) - lu(k,1015) * lu(k,1518)
    9211   114070872 :          lu(k,1520) = lu(k,1520) - lu(k,1016) * lu(k,1518)
    9212   114070872 :          lu(k,1521) = lu(k,1521) - lu(k,1017) * lu(k,1518)
    9213   114070872 :          lu(k,1522) = lu(k,1522) - lu(k,1018) * lu(k,1518)
    9214   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,1019) * lu(k,1518)
    9215   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,1020) * lu(k,1518)
    9216   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,1021) * lu(k,1518)
    9217   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,1022) * lu(k,1518)
    9218   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,1023) * lu(k,1518)
    9219   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,1024) * lu(k,1518)
    9220   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,1025) * lu(k,1518)
    9221   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,1026) * lu(k,1518)
    9222   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,1027) * lu(k,1518)
    9223   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,1028) * lu(k,1518)
    9224   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,1029) * lu(k,1518)
    9225   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,1030) * lu(k,1518)
    9226   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,1031) * lu(k,1518)
    9227   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,1032) * lu(k,1518)
    9228   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1033) * lu(k,1518)
    9229   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1034) * lu(k,1518)
    9230   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1035) * lu(k,1518)
    9231   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1036) * lu(k,1518)
    9232   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1037) * lu(k,1518)
    9233   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1038) * lu(k,1518)
    9234   114070872 :          lu(k,1555) = lu(k,1555) - lu(k,1015) * lu(k,1554)
    9235   114070872 :          lu(k,1556) = lu(k,1556) - lu(k,1016) * lu(k,1554)
    9236   114070872 :          lu(k,1557) = lu(k,1557) - lu(k,1017) * lu(k,1554)
    9237   114070872 :          lu(k,1558) = lu(k,1558) - lu(k,1018) * lu(k,1554)
    9238   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,1019) * lu(k,1554)
    9239   114070872 :          lu(k,1560) = lu(k,1560) - lu(k,1020) * lu(k,1554)
    9240   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,1021) * lu(k,1554)
    9241   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,1022) * lu(k,1554)
    9242   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,1023) * lu(k,1554)
    9243   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,1024) * lu(k,1554)
    9244   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,1025) * lu(k,1554)
    9245   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1026) * lu(k,1554)
    9246   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1027) * lu(k,1554)
    9247   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1028) * lu(k,1554)
    9248   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1029) * lu(k,1554)
    9249   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1030) * lu(k,1554)
    9250   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1031) * lu(k,1554)
    9251   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1032) * lu(k,1554)
    9252   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1033) * lu(k,1554)
    9253   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1034) * lu(k,1554)
    9254   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1035) * lu(k,1554)
    9255   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1036) * lu(k,1554)
    9256   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1037) * lu(k,1554)
    9257   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1038) * lu(k,1554)
    9258   114070872 :          lu(k,1600) = lu(k,1600) - lu(k,1015) * lu(k,1599)
    9259   114070872 :          lu(k,1601) = lu(k,1601) - lu(k,1016) * lu(k,1599)
    9260   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,1017) * lu(k,1599)
    9261   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,1018) * lu(k,1599)
    9262   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,1019) * lu(k,1599)
    9263   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,1020) * lu(k,1599)
    9264   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,1021) * lu(k,1599)
    9265   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,1022) * lu(k,1599)
    9266   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,1023) * lu(k,1599)
    9267   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,1024) * lu(k,1599)
    9268   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,1025) * lu(k,1599)
    9269   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1026) * lu(k,1599)
    9270   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1027) * lu(k,1599)
    9271   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1028) * lu(k,1599)
    9272   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1029) * lu(k,1599)
    9273   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1030) * lu(k,1599)
    9274   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1031) * lu(k,1599)
    9275   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1032) * lu(k,1599)
    9276   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1033) * lu(k,1599)
    9277   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1034) * lu(k,1599)
    9278   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1035) * lu(k,1599)
    9279   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1036) * lu(k,1599)
    9280   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1037) * lu(k,1599)
    9281   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1038) * lu(k,1599)
    9282   114070872 :          lu(k,1643) = lu(k,1643) - lu(k,1015) * lu(k,1642)
    9283   114070872 :          lu(k,1644) = lu(k,1644) - lu(k,1016) * lu(k,1642)
    9284   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,1017) * lu(k,1642)
    9285   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,1018) * lu(k,1642)
    9286   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,1019) * lu(k,1642)
    9287   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,1020) * lu(k,1642)
    9288   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,1021) * lu(k,1642)
    9289   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,1022) * lu(k,1642)
    9290   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,1023) * lu(k,1642)
    9291   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,1024) * lu(k,1642)
    9292   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,1025) * lu(k,1642)
    9293   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1026) * lu(k,1642)
    9294   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1027) * lu(k,1642)
    9295   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1028) * lu(k,1642)
    9296   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1029) * lu(k,1642)
    9297   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1030) * lu(k,1642)
    9298   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1031) * lu(k,1642)
    9299   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1032) * lu(k,1642)
    9300   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1033) * lu(k,1642)
    9301   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1034) * lu(k,1642)
    9302   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1035) * lu(k,1642)
    9303   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1036) * lu(k,1642)
    9304   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1037) * lu(k,1642)
    9305   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1038) * lu(k,1642)
    9306   114070872 :          lu(k,1686) = lu(k,1686) - lu(k,1015) * lu(k,1685)
    9307   114070872 :          lu(k,1687) = lu(k,1687) - lu(k,1016) * lu(k,1685)
    9308   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,1017) * lu(k,1685)
    9309   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,1018) * lu(k,1685)
    9310   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,1019) * lu(k,1685)
    9311   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,1020) * lu(k,1685)
    9312   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,1021) * lu(k,1685)
    9313   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,1022) * lu(k,1685)
    9314   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,1023) * lu(k,1685)
    9315   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,1024) * lu(k,1685)
    9316   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,1025) * lu(k,1685)
    9317   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1026) * lu(k,1685)
    9318   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1027) * lu(k,1685)
    9319   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1028) * lu(k,1685)
    9320   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1029) * lu(k,1685)
    9321   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1030) * lu(k,1685)
    9322   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1031) * lu(k,1685)
    9323   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1032) * lu(k,1685)
    9324   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1033) * lu(k,1685)
    9325   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1034) * lu(k,1685)
    9326   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1035) * lu(k,1685)
    9327   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1036) * lu(k,1685)
    9328   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1037) * lu(k,1685)
    9329   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1038) * lu(k,1685)
    9330   114070872 :          lu(k,1762) = lu(k,1762) - lu(k,1015) * lu(k,1761)
    9331   114070872 :          lu(k,1763) = lu(k,1763) - lu(k,1016) * lu(k,1761)
    9332   114070872 :          lu(k,1764) = lu(k,1764) - lu(k,1017) * lu(k,1761)
    9333   114070872 :          lu(k,1765) = lu(k,1765) - lu(k,1018) * lu(k,1761)
    9334   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,1019) * lu(k,1761)
    9335   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,1020) * lu(k,1761)
    9336   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,1021) * lu(k,1761)
    9337   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,1022) * lu(k,1761)
    9338   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,1023) * lu(k,1761)
    9339   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,1024) * lu(k,1761)
    9340   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,1025) * lu(k,1761)
    9341   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1026) * lu(k,1761)
    9342   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1027) * lu(k,1761)
    9343   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1028) * lu(k,1761)
    9344   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1029) * lu(k,1761)
    9345   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1030) * lu(k,1761)
    9346   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1031) * lu(k,1761)
    9347   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1032) * lu(k,1761)
    9348   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1033) * lu(k,1761)
    9349   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1034) * lu(k,1761)
    9350   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1035) * lu(k,1761)
    9351   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1036) * lu(k,1761)
    9352   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1037) * lu(k,1761)
    9353   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1038) * lu(k,1761)
    9354   114070872 :          lu(k,1810) = lu(k,1810) - lu(k,1015) * lu(k,1809)
    9355   114070872 :          lu(k,1811) = lu(k,1811) - lu(k,1016) * lu(k,1809)
    9356   114070872 :          lu(k,1812) = lu(k,1812) - lu(k,1017) * lu(k,1809)
    9357   114070872 :          lu(k,1813) = lu(k,1813) - lu(k,1018) * lu(k,1809)
    9358   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,1019) * lu(k,1809)
    9359   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,1020) * lu(k,1809)
    9360   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,1021) * lu(k,1809)
    9361   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,1022) * lu(k,1809)
    9362   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,1023) * lu(k,1809)
    9363   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,1024) * lu(k,1809)
    9364   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,1025) * lu(k,1809)
    9365   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1026) * lu(k,1809)
    9366   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1027) * lu(k,1809)
    9367   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1028) * lu(k,1809)
    9368   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1029) * lu(k,1809)
    9369   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1030) * lu(k,1809)
    9370   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1031) * lu(k,1809)
    9371   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1032) * lu(k,1809)
    9372   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1033) * lu(k,1809)
    9373   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1034) * lu(k,1809)
    9374   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1035) * lu(k,1809)
    9375   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1036) * lu(k,1809)
    9376   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1037) * lu(k,1809)
    9377   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1038) * lu(k,1809)
    9378   114070872 :          lu(k,1843) = lu(k,1843) - lu(k,1015) * lu(k,1842)
    9379   114070872 :          lu(k,1844) = lu(k,1844) - lu(k,1016) * lu(k,1842)
    9380   114070872 :          lu(k,1845) = lu(k,1845) - lu(k,1017) * lu(k,1842)
    9381   114070872 :          lu(k,1846) = lu(k,1846) - lu(k,1018) * lu(k,1842)
    9382   114070872 :          lu(k,1847) = lu(k,1847) - lu(k,1019) * lu(k,1842)
    9383   114070872 :          lu(k,1848) = lu(k,1848) - lu(k,1020) * lu(k,1842)
    9384   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,1021) * lu(k,1842)
    9385   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,1022) * lu(k,1842)
    9386   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,1023) * lu(k,1842)
    9387   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,1024) * lu(k,1842)
    9388   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,1025) * lu(k,1842)
    9389   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1026) * lu(k,1842)
    9390   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1027) * lu(k,1842)
    9391   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1028) * lu(k,1842)
    9392   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1029) * lu(k,1842)
    9393   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1030) * lu(k,1842)
    9394   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1031) * lu(k,1842)
    9395   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1032) * lu(k,1842)
    9396   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1033) * lu(k,1842)
    9397   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1034) * lu(k,1842)
    9398   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1035) * lu(k,1842)
    9399   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1036) * lu(k,1842)
    9400   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1037) * lu(k,1842)
    9401   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1038) * lu(k,1842)
    9402   114070872 :          lu(k,1879) = lu(k,1879) - lu(k,1015) * lu(k,1878)
    9403   114070872 :          lu(k,1880) = lu(k,1880) - lu(k,1016) * lu(k,1878)
    9404   114070872 :          lu(k,1881) = lu(k,1881) - lu(k,1017) * lu(k,1878)
    9405   114070872 :          lu(k,1882) = lu(k,1882) - lu(k,1018) * lu(k,1878)
    9406   114070872 :          lu(k,1883) = lu(k,1883) - lu(k,1019) * lu(k,1878)
    9407   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,1020) * lu(k,1878)
    9408   114070872 :          lu(k,1885) = lu(k,1885) - lu(k,1021) * lu(k,1878)
    9409   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,1022) * lu(k,1878)
    9410   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,1023) * lu(k,1878)
    9411   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,1024) * lu(k,1878)
    9412   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,1025) * lu(k,1878)
    9413   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1026) * lu(k,1878)
    9414   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1027) * lu(k,1878)
    9415   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1028) * lu(k,1878)
    9416   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1029) * lu(k,1878)
    9417   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1030) * lu(k,1878)
    9418   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1031) * lu(k,1878)
    9419   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1032) * lu(k,1878)
    9420   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1033) * lu(k,1878)
    9421   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1034) * lu(k,1878)
    9422   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1035) * lu(k,1878)
    9423   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1036) * lu(k,1878)
    9424   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1037) * lu(k,1878)
    9425   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1038) * lu(k,1878)
    9426   114070872 :          lu(k,1920) = lu(k,1920) - lu(k,1015) * lu(k,1919)
    9427   114070872 :          lu(k,1921) = lu(k,1921) - lu(k,1016) * lu(k,1919)
    9428   114070872 :          lu(k,1922) = lu(k,1922) - lu(k,1017) * lu(k,1919)
    9429   114070872 :          lu(k,1923) = lu(k,1923) - lu(k,1018) * lu(k,1919)
    9430   114070872 :          lu(k,1924) = lu(k,1924) - lu(k,1019) * lu(k,1919)
    9431   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,1020) * lu(k,1919)
    9432   114070872 :          lu(k,1926) = lu(k,1926) - lu(k,1021) * lu(k,1919)
    9433   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,1022) * lu(k,1919)
    9434   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,1023) * lu(k,1919)
    9435   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,1024) * lu(k,1919)
    9436   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,1025) * lu(k,1919)
    9437   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1026) * lu(k,1919)
    9438   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1027) * lu(k,1919)
    9439   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1028) * lu(k,1919)
    9440   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1029) * lu(k,1919)
    9441   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1030) * lu(k,1919)
    9442   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1031) * lu(k,1919)
    9443   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1032) * lu(k,1919)
    9444   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1033) * lu(k,1919)
    9445   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1034) * lu(k,1919)
    9446   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1035) * lu(k,1919)
    9447   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1036) * lu(k,1919)
    9448   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1037) * lu(k,1919)
    9449   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1038) * lu(k,1919)
    9450   114070872 :          lu(k,1962) = lu(k,1962) - lu(k,1015) * lu(k,1961)
    9451   114070872 :          lu(k,1963) = lu(k,1963) - lu(k,1016) * lu(k,1961)
    9452   114070872 :          lu(k,1964) = lu(k,1964) - lu(k,1017) * lu(k,1961)
    9453   114070872 :          lu(k,1965) = lu(k,1965) - lu(k,1018) * lu(k,1961)
    9454   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,1019) * lu(k,1961)
    9455   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,1020) * lu(k,1961)
    9456   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,1021) * lu(k,1961)
    9457   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,1022) * lu(k,1961)
    9458   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,1023) * lu(k,1961)
    9459   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,1024) * lu(k,1961)
    9460   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,1025) * lu(k,1961)
    9461   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1026) * lu(k,1961)
    9462   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1027) * lu(k,1961)
    9463   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1028) * lu(k,1961)
    9464   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1029) * lu(k,1961)
    9465   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1030) * lu(k,1961)
    9466   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1031) * lu(k,1961)
    9467   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1032) * lu(k,1961)
    9468   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1033) * lu(k,1961)
    9469   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1034) * lu(k,1961)
    9470   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1035) * lu(k,1961)
    9471   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1036) * lu(k,1961)
    9472   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1037) * lu(k,1961)
    9473   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1038) * lu(k,1961)
    9474   114070872 :          lu(k,2007) = lu(k,2007) - lu(k,1015) * lu(k,2006)
    9475   114070872 :          lu(k,2008) = lu(k,2008) - lu(k,1016) * lu(k,2006)
    9476   114070872 :          lu(k,2009) = lu(k,2009) - lu(k,1017) * lu(k,2006)
    9477   114070872 :          lu(k,2010) = lu(k,2010) - lu(k,1018) * lu(k,2006)
    9478   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,1019) * lu(k,2006)
    9479   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,1020) * lu(k,2006)
    9480   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,1021) * lu(k,2006)
    9481   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,1022) * lu(k,2006)
    9482   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,1023) * lu(k,2006)
    9483   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,1024) * lu(k,2006)
    9484   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,1025) * lu(k,2006)
    9485   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1026) * lu(k,2006)
    9486   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1027) * lu(k,2006)
    9487   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1028) * lu(k,2006)
    9488   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1029) * lu(k,2006)
    9489   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1030) * lu(k,2006)
    9490   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1031) * lu(k,2006)
    9491   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1032) * lu(k,2006)
    9492   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1033) * lu(k,2006)
    9493   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1034) * lu(k,2006)
    9494   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1035) * lu(k,2006)
    9495   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1036) * lu(k,2006)
    9496   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1037) * lu(k,2006)
    9497   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1038) * lu(k,2006)
    9498   114070872 :          lu(k,2067) = lu(k,2067) - lu(k,1015) * lu(k,2066)
    9499   114070872 :          lu(k,2068) = lu(k,2068) - lu(k,1016) * lu(k,2066)
    9500   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,1017) * lu(k,2066)
    9501   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,1018) * lu(k,2066)
    9502   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,1019) * lu(k,2066)
    9503   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,1020) * lu(k,2066)
    9504   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,1021) * lu(k,2066)
    9505   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,1022) * lu(k,2066)
    9506   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,1023) * lu(k,2066)
    9507   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,1024) * lu(k,2066)
    9508   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,1025) * lu(k,2066)
    9509   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1026) * lu(k,2066)
    9510   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1027) * lu(k,2066)
    9511   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1028) * lu(k,2066)
    9512   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1029) * lu(k,2066)
    9513   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1030) * lu(k,2066)
    9514   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1031) * lu(k,2066)
    9515   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1032) * lu(k,2066)
    9516   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1033) * lu(k,2066)
    9517   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1034) * lu(k,2066)
    9518   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1035) * lu(k,2066)
    9519   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1036) * lu(k,2066)
    9520   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1037) * lu(k,2066)
    9521   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1038) * lu(k,2066)
    9522   114070872 :          lu(k,1058) = 1._r8 / lu(k,1058)
    9523   114070872 :          lu(k,1059) = lu(k,1059) * lu(k,1058)
    9524   114070872 :          lu(k,1060) = lu(k,1060) * lu(k,1058)
    9525   114070872 :          lu(k,1061) = lu(k,1061) * lu(k,1058)
    9526   114070872 :          lu(k,1062) = lu(k,1062) * lu(k,1058)
    9527   114070872 :          lu(k,1063) = lu(k,1063) * lu(k,1058)
    9528   114070872 :          lu(k,1064) = lu(k,1064) * lu(k,1058)
    9529   114070872 :          lu(k,1065) = lu(k,1065) * lu(k,1058)
    9530   114070872 :          lu(k,1066) = lu(k,1066) * lu(k,1058)
    9531   114070872 :          lu(k,1067) = lu(k,1067) * lu(k,1058)
    9532   114070872 :          lu(k,1068) = lu(k,1068) * lu(k,1058)
    9533   114070872 :          lu(k,1069) = lu(k,1069) * lu(k,1058)
    9534   114070872 :          lu(k,1070) = lu(k,1070) * lu(k,1058)
    9535   114070872 :          lu(k,1071) = lu(k,1071) * lu(k,1058)
    9536   114070872 :          lu(k,1072) = lu(k,1072) * lu(k,1058)
    9537   114070872 :          lu(k,1073) = lu(k,1073) * lu(k,1058)
    9538   114070872 :          lu(k,1074) = lu(k,1074) * lu(k,1058)
    9539   114070872 :          lu(k,1075) = lu(k,1075) * lu(k,1058)
    9540   114070872 :          lu(k,1076) = lu(k,1076) * lu(k,1058)
    9541   114070872 :          lu(k,1077) = lu(k,1077) * lu(k,1058)
    9542   114070872 :          lu(k,1078) = lu(k,1078) * lu(k,1058)
    9543   114070872 :          lu(k,1079) = lu(k,1079) * lu(k,1058)
    9544   114070872 :          lu(k,1080) = lu(k,1080) * lu(k,1058)
    9545   114070872 :          lu(k,1081) = lu(k,1081) * lu(k,1058)
    9546   114070872 :          lu(k,1104) = lu(k,1104) - lu(k,1059) * lu(k,1103)
    9547   114070872 :          lu(k,1105) = lu(k,1105) - lu(k,1060) * lu(k,1103)
    9548   114070872 :          lu(k,1106) = lu(k,1106) - lu(k,1061) * lu(k,1103)
    9549   114070872 :          lu(k,1107) = lu(k,1107) - lu(k,1062) * lu(k,1103)
    9550   114070872 :          lu(k,1108) = lu(k,1108) - lu(k,1063) * lu(k,1103)
    9551   114070872 :          lu(k,1109) = lu(k,1109) - lu(k,1064) * lu(k,1103)
    9552   114070872 :          lu(k,1110) = lu(k,1110) - lu(k,1065) * lu(k,1103)
    9553   114070872 :          lu(k,1111) = lu(k,1111) - lu(k,1066) * lu(k,1103)
    9554   114070872 :          lu(k,1112) = lu(k,1112) - lu(k,1067) * lu(k,1103)
    9555   114070872 :          lu(k,1113) = lu(k,1113) - lu(k,1068) * lu(k,1103)
    9556   114070872 :          lu(k,1114) = lu(k,1114) - lu(k,1069) * lu(k,1103)
    9557   114070872 :          lu(k,1115) = lu(k,1115) - lu(k,1070) * lu(k,1103)
    9558   114070872 :          lu(k,1116) = lu(k,1116) - lu(k,1071) * lu(k,1103)
    9559   114070872 :          lu(k,1117) = lu(k,1117) - lu(k,1072) * lu(k,1103)
    9560   114070872 :          lu(k,1118) = lu(k,1118) - lu(k,1073) * lu(k,1103)
    9561   114070872 :          lu(k,1119) = lu(k,1119) - lu(k,1074) * lu(k,1103)
    9562   114070872 :          lu(k,1120) = lu(k,1120) - lu(k,1075) * lu(k,1103)
    9563   114070872 :          lu(k,1121) = lu(k,1121) - lu(k,1076) * lu(k,1103)
    9564   114070872 :          lu(k,1122) = lu(k,1122) - lu(k,1077) * lu(k,1103)
    9565   114070872 :          lu(k,1123) = lu(k,1123) - lu(k,1078) * lu(k,1103)
    9566   114070872 :          lu(k,1124) = lu(k,1124) - lu(k,1079) * lu(k,1103)
    9567   114070872 :          lu(k,1125) = lu(k,1125) - lu(k,1080) * lu(k,1103)
    9568   114070872 :          lu(k,1126) = lu(k,1126) - lu(k,1081) * lu(k,1103)
    9569   114070872 :          lu(k,1152) = lu(k,1152) - lu(k,1059) * lu(k,1151)
    9570   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,1060) * lu(k,1151)
    9571   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,1061) * lu(k,1151)
    9572   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,1062) * lu(k,1151)
    9573   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,1063) * lu(k,1151)
    9574   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,1064) * lu(k,1151)
    9575   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,1065) * lu(k,1151)
    9576   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,1066) * lu(k,1151)
    9577   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,1067) * lu(k,1151)
    9578   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,1068) * lu(k,1151)
    9579   114070872 :          lu(k,1162) = lu(k,1162) - lu(k,1069) * lu(k,1151)
    9580   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,1070) * lu(k,1151)
    9581   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,1071) * lu(k,1151)
    9582   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,1072) * lu(k,1151)
    9583   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,1073) * lu(k,1151)
    9584   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,1074) * lu(k,1151)
    9585   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,1075) * lu(k,1151)
    9586   114070872 :          lu(k,1169) = lu(k,1169) - lu(k,1076) * lu(k,1151)
    9587   114070872 :          lu(k,1170) = lu(k,1170) - lu(k,1077) * lu(k,1151)
    9588   114070872 :          lu(k,1171) = lu(k,1171) - lu(k,1078) * lu(k,1151)
    9589   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,1079) * lu(k,1151)
    9590   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,1080) * lu(k,1151)
    9591   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,1081) * lu(k,1151)
    9592   114070872 :          lu(k,1195) = lu(k,1195) - lu(k,1059) * lu(k,1194)
    9593   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,1060) * lu(k,1194)
    9594   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,1061) * lu(k,1194)
    9595   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,1062) * lu(k,1194)
    9596   114070872 :          lu(k,1199) = lu(k,1199) - lu(k,1063) * lu(k,1194)
    9597   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,1064) * lu(k,1194)
    9598   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,1065) * lu(k,1194)
    9599   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,1066) * lu(k,1194)
    9600   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,1067) * lu(k,1194)
    9601   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,1068) * lu(k,1194)
    9602   114070872 :          lu(k,1205) = lu(k,1205) - lu(k,1069) * lu(k,1194)
    9603   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,1070) * lu(k,1194)
    9604   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,1071) * lu(k,1194)
    9605   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,1072) * lu(k,1194)
    9606   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,1073) * lu(k,1194)
    9607   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,1074) * lu(k,1194)
    9608   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,1075) * lu(k,1194)
    9609   114070872 :          lu(k,1212) = lu(k,1212) - lu(k,1076) * lu(k,1194)
    9610   114070872 :          lu(k,1213) = lu(k,1213) - lu(k,1077) * lu(k,1194)
    9611   114070872 :          lu(k,1214) = lu(k,1214) - lu(k,1078) * lu(k,1194)
    9612   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,1079) * lu(k,1194)
    9613   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,1080) * lu(k,1194)
    9614   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,1081) * lu(k,1194)
    9615   114070872 :          lu(k,1238) = lu(k,1238) - lu(k,1059) * lu(k,1237)
    9616   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,1060) * lu(k,1237)
    9617   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,1061) * lu(k,1237)
    9618   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,1062) * lu(k,1237)
    9619   114070872 :          lu(k,1242) = lu(k,1242) - lu(k,1063) * lu(k,1237)
    9620   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,1064) * lu(k,1237)
    9621   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,1065) * lu(k,1237)
    9622   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,1066) * lu(k,1237)
    9623   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,1067) * lu(k,1237)
    9624   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,1068) * lu(k,1237)
    9625   114070872 :          lu(k,1248) = lu(k,1248) - lu(k,1069) * lu(k,1237)
    9626   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,1070) * lu(k,1237)
    9627   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,1071) * lu(k,1237)
    9628   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,1072) * lu(k,1237)
    9629   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,1073) * lu(k,1237)
    9630   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,1074) * lu(k,1237)
    9631   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,1075) * lu(k,1237)
    9632   114070872 :          lu(k,1255) = lu(k,1255) - lu(k,1076) * lu(k,1237)
    9633   114070872 :          lu(k,1256) = lu(k,1256) - lu(k,1077) * lu(k,1237)
    9634   114070872 :          lu(k,1257) = lu(k,1257) - lu(k,1078) * lu(k,1237)
    9635   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,1079) * lu(k,1237)
    9636   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,1080) * lu(k,1237)
    9637   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,1081) * lu(k,1237)
    9638   114070872 :          lu(k,1280) = lu(k,1280) - lu(k,1059) * lu(k,1279)
    9639   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,1060) * lu(k,1279)
    9640   114070872 :          lu(k,1282) = lu(k,1282) - lu(k,1061) * lu(k,1279)
    9641   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,1062) * lu(k,1279)
    9642   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,1063) * lu(k,1279)
    9643   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,1064) * lu(k,1279)
    9644   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,1065) * lu(k,1279)
    9645   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,1066) * lu(k,1279)
    9646   114070872 :          lu(k,1288) = lu(k,1288) - lu(k,1067) * lu(k,1279)
    9647   114070872 :          lu(k,1289) = lu(k,1289) - lu(k,1068) * lu(k,1279)
    9648   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,1069) * lu(k,1279)
    9649   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,1070) * lu(k,1279)
    9650   114070872 :          lu(k,1292) = lu(k,1292) - lu(k,1071) * lu(k,1279)
    9651   114070872 :          lu(k,1293) = lu(k,1293) - lu(k,1072) * lu(k,1279)
    9652   114070872 :          lu(k,1294) = lu(k,1294) - lu(k,1073) * lu(k,1279)
    9653   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,1074) * lu(k,1279)
    9654   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,1075) * lu(k,1279)
    9655   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,1076) * lu(k,1279)
    9656   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,1077) * lu(k,1279)
    9657   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,1078) * lu(k,1279)
    9658   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,1079) * lu(k,1279)
    9659   114070872 :          lu(k,1301) = lu(k,1301) - lu(k,1080) * lu(k,1279)
    9660   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,1081) * lu(k,1279)
    9661   114070872 :          lu(k,1322) = lu(k,1322) - lu(k,1059) * lu(k,1321)
    9662   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,1060) * lu(k,1321)
    9663   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,1061) * lu(k,1321)
    9664   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,1062) * lu(k,1321)
    9665   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,1063) * lu(k,1321)
    9666   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,1064) * lu(k,1321)
    9667   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,1065) * lu(k,1321)
    9668   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,1066) * lu(k,1321)
    9669   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,1067) * lu(k,1321)
    9670   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,1068) * lu(k,1321)
    9671   114070872 :          lu(k,1332) = lu(k,1332) - lu(k,1069) * lu(k,1321)
    9672   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,1070) * lu(k,1321)
    9673   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,1071) * lu(k,1321)
    9674   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,1072) * lu(k,1321)
    9675   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,1073) * lu(k,1321)
    9676   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,1074) * lu(k,1321)
    9677   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,1075) * lu(k,1321)
    9678   114070872 :          lu(k,1339) = lu(k,1339) - lu(k,1076) * lu(k,1321)
    9679   114070872 :          lu(k,1340) = lu(k,1340) - lu(k,1077) * lu(k,1321)
    9680   114070872 :          lu(k,1341) = lu(k,1341) - lu(k,1078) * lu(k,1321)
    9681   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,1079) * lu(k,1321)
    9682   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,1080) * lu(k,1321)
    9683   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,1081) * lu(k,1321)
    9684   114070872 :          lu(k,1382) = lu(k,1382) - lu(k,1059) * lu(k,1381)
    9685   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,1060) * lu(k,1381)
    9686   114070872 :          lu(k,1384) = lu(k,1384) - lu(k,1061) * lu(k,1381)
    9687   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,1062) * lu(k,1381)
    9688   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,1063) * lu(k,1381)
    9689   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,1064) * lu(k,1381)
    9690   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,1065) * lu(k,1381)
    9691   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,1066) * lu(k,1381)
    9692   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,1067) * lu(k,1381)
    9693   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,1068) * lu(k,1381)
    9694   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,1069) * lu(k,1381)
    9695   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,1070) * lu(k,1381)
    9696   114070872 :          lu(k,1394) = lu(k,1394) - lu(k,1071) * lu(k,1381)
    9697   114070872 :          lu(k,1395) = lu(k,1395) - lu(k,1072) * lu(k,1381)
    9698   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,1073) * lu(k,1381)
    9699   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,1074) * lu(k,1381)
    9700   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,1075) * lu(k,1381)
    9701   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,1076) * lu(k,1381)
    9702   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,1077) * lu(k,1381)
    9703   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,1078) * lu(k,1381)
    9704   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,1079) * lu(k,1381)
    9705   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,1080) * lu(k,1381)
    9706   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,1081) * lu(k,1381)
    9707   114070872 :          lu(k,1431) = lu(k,1431) - lu(k,1059) * lu(k,1430)
    9708   114070872 :          lu(k,1432) = lu(k,1432) - lu(k,1060) * lu(k,1430)
    9709   114070872 :          lu(k,1433) = lu(k,1433) - lu(k,1061) * lu(k,1430)
    9710   114070872 :          lu(k,1434) = lu(k,1434) - lu(k,1062) * lu(k,1430)
    9711   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,1063) * lu(k,1430)
    9712   114070872 :          lu(k,1436) = lu(k,1436) - lu(k,1064) * lu(k,1430)
    9713   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,1065) * lu(k,1430)
    9714   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,1066) * lu(k,1430)
    9715   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,1067) * lu(k,1430)
    9716   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,1068) * lu(k,1430)
    9717   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,1069) * lu(k,1430)
    9718   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,1070) * lu(k,1430)
    9719   114070872 :          lu(k,1443) = lu(k,1443) - lu(k,1071) * lu(k,1430)
    9720   114070872 :          lu(k,1444) = lu(k,1444) - lu(k,1072) * lu(k,1430)
    9721   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,1073) * lu(k,1430)
    9722   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,1074) * lu(k,1430)
    9723   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,1075) * lu(k,1430)
    9724   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,1076) * lu(k,1430)
    9725   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,1077) * lu(k,1430)
    9726   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,1078) * lu(k,1430)
    9727   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,1079) * lu(k,1430)
    9728   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,1080) * lu(k,1430)
    9729   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,1081) * lu(k,1430)
    9730   114070872 :          lu(k,1479) = lu(k,1479) - lu(k,1059) * lu(k,1478)
    9731   114070872 :          lu(k,1480) = lu(k,1480) - lu(k,1060) * lu(k,1478)
    9732   114070872 :          lu(k,1481) = lu(k,1481) - lu(k,1061) * lu(k,1478)
    9733   114070872 :          lu(k,1482) = lu(k,1482) - lu(k,1062) * lu(k,1478)
    9734   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,1063) * lu(k,1478)
    9735   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,1064) * lu(k,1478)
    9736   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,1065) * lu(k,1478)
    9737   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,1066) * lu(k,1478)
    9738   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,1067) * lu(k,1478)
    9739   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,1068) * lu(k,1478)
    9740   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,1069) * lu(k,1478)
    9741   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,1070) * lu(k,1478)
    9742   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,1071) * lu(k,1478)
    9743   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,1072) * lu(k,1478)
    9744   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,1073) * lu(k,1478)
    9745   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,1074) * lu(k,1478)
    9746   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,1075) * lu(k,1478)
    9747   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,1076) * lu(k,1478)
    9748   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,1077) * lu(k,1478)
    9749   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,1078) * lu(k,1478)
    9750   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,1079) * lu(k,1478)
    9751   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,1080) * lu(k,1478)
    9752   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,1081) * lu(k,1478)
    9753   114070872 :          lu(k,1520) = lu(k,1520) - lu(k,1059) * lu(k,1519)
    9754   114070872 :          lu(k,1521) = lu(k,1521) - lu(k,1060) * lu(k,1519)
    9755   114070872 :          lu(k,1522) = lu(k,1522) - lu(k,1061) * lu(k,1519)
    9756   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,1062) * lu(k,1519)
    9757   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,1063) * lu(k,1519)
    9758   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,1064) * lu(k,1519)
    9759   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,1065) * lu(k,1519)
    9760   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,1066) * lu(k,1519)
    9761   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,1067) * lu(k,1519)
    9762   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,1068) * lu(k,1519)
    9763   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,1069) * lu(k,1519)
    9764   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,1070) * lu(k,1519)
    9765   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,1071) * lu(k,1519)
    9766   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,1072) * lu(k,1519)
    9767   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,1073) * lu(k,1519)
    9768   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,1074) * lu(k,1519)
    9769   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,1075) * lu(k,1519)
    9770   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1076) * lu(k,1519)
    9771   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1077) * lu(k,1519)
    9772   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1078) * lu(k,1519)
    9773   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1079) * lu(k,1519)
    9774   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1080) * lu(k,1519)
    9775   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1081) * lu(k,1519)
    9776   114070872 :          lu(k,1556) = lu(k,1556) - lu(k,1059) * lu(k,1555)
    9777   114070872 :          lu(k,1557) = lu(k,1557) - lu(k,1060) * lu(k,1555)
    9778   114070872 :          lu(k,1558) = lu(k,1558) - lu(k,1061) * lu(k,1555)
    9779   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,1062) * lu(k,1555)
    9780   114070872 :          lu(k,1560) = lu(k,1560) - lu(k,1063) * lu(k,1555)
    9781   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,1064) * lu(k,1555)
    9782   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,1065) * lu(k,1555)
    9783   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,1066) * lu(k,1555)
    9784   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,1067) * lu(k,1555)
    9785   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,1068) * lu(k,1555)
    9786   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1069) * lu(k,1555)
    9787   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1070) * lu(k,1555)
    9788   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1071) * lu(k,1555)
    9789   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1072) * lu(k,1555)
    9790   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1073) * lu(k,1555)
    9791   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1074) * lu(k,1555)
    9792   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1075) * lu(k,1555)
    9793   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1076) * lu(k,1555)
    9794   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1077) * lu(k,1555)
    9795   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1078) * lu(k,1555)
    9796   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1079) * lu(k,1555)
    9797   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1080) * lu(k,1555)
    9798   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1081) * lu(k,1555)
    9799   114070872 :          lu(k,1601) = lu(k,1601) - lu(k,1059) * lu(k,1600)
    9800   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,1060) * lu(k,1600)
    9801   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,1061) * lu(k,1600)
    9802   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,1062) * lu(k,1600)
    9803   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,1063) * lu(k,1600)
    9804   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,1064) * lu(k,1600)
    9805   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,1065) * lu(k,1600)
    9806   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,1066) * lu(k,1600)
    9807   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,1067) * lu(k,1600)
    9808   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,1068) * lu(k,1600)
    9809   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1069) * lu(k,1600)
    9810   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1070) * lu(k,1600)
    9811   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1071) * lu(k,1600)
    9812   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1072) * lu(k,1600)
    9813   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1073) * lu(k,1600)
    9814   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1074) * lu(k,1600)
    9815   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1075) * lu(k,1600)
    9816   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1076) * lu(k,1600)
    9817   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1077) * lu(k,1600)
    9818   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1078) * lu(k,1600)
    9819   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1079) * lu(k,1600)
    9820   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1080) * lu(k,1600)
    9821   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1081) * lu(k,1600)
    9822   114070872 :          lu(k,1644) = lu(k,1644) - lu(k,1059) * lu(k,1643)
    9823   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,1060) * lu(k,1643)
    9824   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,1061) * lu(k,1643)
    9825   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,1062) * lu(k,1643)
    9826   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,1063) * lu(k,1643)
    9827   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,1064) * lu(k,1643)
    9828   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,1065) * lu(k,1643)
    9829   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,1066) * lu(k,1643)
    9830   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,1067) * lu(k,1643)
    9831   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,1068) * lu(k,1643)
    9832   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1069) * lu(k,1643)
    9833   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1070) * lu(k,1643)
    9834   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1071) * lu(k,1643)
    9835   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1072) * lu(k,1643)
    9836   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1073) * lu(k,1643)
    9837   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1074) * lu(k,1643)
    9838   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1075) * lu(k,1643)
    9839   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1076) * lu(k,1643)
    9840   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1077) * lu(k,1643)
    9841   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1078) * lu(k,1643)
    9842   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1079) * lu(k,1643)
    9843   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1080) * lu(k,1643)
    9844   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1081) * lu(k,1643)
    9845   114070872 :          lu(k,1687) = lu(k,1687) - lu(k,1059) * lu(k,1686)
    9846   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,1060) * lu(k,1686)
    9847   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,1061) * lu(k,1686)
    9848   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,1062) * lu(k,1686)
    9849   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,1063) * lu(k,1686)
    9850   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,1064) * lu(k,1686)
    9851   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,1065) * lu(k,1686)
    9852   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,1066) * lu(k,1686)
    9853   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,1067) * lu(k,1686)
    9854   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,1068) * lu(k,1686)
    9855   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1069) * lu(k,1686)
    9856   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1070) * lu(k,1686)
    9857   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1071) * lu(k,1686)
    9858   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1072) * lu(k,1686)
    9859   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1073) * lu(k,1686)
    9860   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1074) * lu(k,1686)
    9861   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1075) * lu(k,1686)
    9862   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1076) * lu(k,1686)
    9863   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1077) * lu(k,1686)
    9864   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1078) * lu(k,1686)
    9865   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1079) * lu(k,1686)
    9866   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1080) * lu(k,1686)
    9867   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1081) * lu(k,1686)
    9868   114070872 :          lu(k,1727) = lu(k,1727) - lu(k,1059) * lu(k,1726)
    9869   114070872 :          lu(k,1728) = lu(k,1728) - lu(k,1060) * lu(k,1726)
    9870   114070872 :          lu(k,1729) = lu(k,1729) - lu(k,1061) * lu(k,1726)
    9871   114070872 :          lu(k,1730) = lu(k,1730) - lu(k,1062) * lu(k,1726)
    9872   114070872 :          lu(k,1731) = lu(k,1731) - lu(k,1063) * lu(k,1726)
    9873   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,1064) * lu(k,1726)
    9874   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,1065) * lu(k,1726)
    9875   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,1066) * lu(k,1726)
    9876   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,1067) * lu(k,1726)
    9877   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,1068) * lu(k,1726)
    9878   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,1069) * lu(k,1726)
    9879   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1070) * lu(k,1726)
    9880   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1071) * lu(k,1726)
    9881   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1072) * lu(k,1726)
    9882   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1073) * lu(k,1726)
    9883   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1074) * lu(k,1726)
    9884   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1075) * lu(k,1726)
    9885   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1076) * lu(k,1726)
    9886   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1077) * lu(k,1726)
    9887   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1078) * lu(k,1726)
    9888   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1079) * lu(k,1726)
    9889   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1080) * lu(k,1726)
    9890   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1081) * lu(k,1726)
    9891   114070872 :          lu(k,1763) = lu(k,1763) - lu(k,1059) * lu(k,1762)
    9892   114070872 :          lu(k,1764) = lu(k,1764) - lu(k,1060) * lu(k,1762)
    9893   114070872 :          lu(k,1765) = lu(k,1765) - lu(k,1061) * lu(k,1762)
    9894   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,1062) * lu(k,1762)
    9895   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,1063) * lu(k,1762)
    9896   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,1064) * lu(k,1762)
    9897   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,1065) * lu(k,1762)
    9898   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,1066) * lu(k,1762)
    9899   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,1067) * lu(k,1762)
    9900   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,1068) * lu(k,1762)
    9901   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1069) * lu(k,1762)
    9902   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1070) * lu(k,1762)
    9903   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1071) * lu(k,1762)
    9904   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1072) * lu(k,1762)
    9905   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1073) * lu(k,1762)
    9906   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1074) * lu(k,1762)
    9907   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1075) * lu(k,1762)
    9908   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1076) * lu(k,1762)
    9909   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1077) * lu(k,1762)
    9910   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1078) * lu(k,1762)
    9911   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1079) * lu(k,1762)
    9912   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1080) * lu(k,1762)
    9913   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1081) * lu(k,1762)
    9914   114070872 :          lu(k,1811) = lu(k,1811) - lu(k,1059) * lu(k,1810)
    9915   114070872 :          lu(k,1812) = lu(k,1812) - lu(k,1060) * lu(k,1810)
    9916   114070872 :          lu(k,1813) = lu(k,1813) - lu(k,1061) * lu(k,1810)
    9917   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,1062) * lu(k,1810)
    9918   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,1063) * lu(k,1810)
    9919   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,1064) * lu(k,1810)
    9920   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,1065) * lu(k,1810)
    9921   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,1066) * lu(k,1810)
    9922   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,1067) * lu(k,1810)
    9923   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,1068) * lu(k,1810)
    9924   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1069) * lu(k,1810)
    9925   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1070) * lu(k,1810)
    9926   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1071) * lu(k,1810)
    9927   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1072) * lu(k,1810)
    9928   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1073) * lu(k,1810)
    9929   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1074) * lu(k,1810)
    9930   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1075) * lu(k,1810)
    9931   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1076) * lu(k,1810)
    9932   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1077) * lu(k,1810)
    9933   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1078) * lu(k,1810)
    9934   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1079) * lu(k,1810)
    9935   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1080) * lu(k,1810)
    9936   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1081) * lu(k,1810)
    9937   114070872 :          lu(k,1844) = lu(k,1844) - lu(k,1059) * lu(k,1843)
    9938   114070872 :          lu(k,1845) = lu(k,1845) - lu(k,1060) * lu(k,1843)
    9939   114070872 :          lu(k,1846) = lu(k,1846) - lu(k,1061) * lu(k,1843)
    9940   114070872 :          lu(k,1847) = lu(k,1847) - lu(k,1062) * lu(k,1843)
    9941   114070872 :          lu(k,1848) = lu(k,1848) - lu(k,1063) * lu(k,1843)
    9942   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,1064) * lu(k,1843)
    9943   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,1065) * lu(k,1843)
    9944   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,1066) * lu(k,1843)
    9945   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,1067) * lu(k,1843)
    9946   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,1068) * lu(k,1843)
    9947   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1069) * lu(k,1843)
    9948   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1070) * lu(k,1843)
    9949   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1071) * lu(k,1843)
    9950   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1072) * lu(k,1843)
    9951   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1073) * lu(k,1843)
    9952   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1074) * lu(k,1843)
    9953   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1075) * lu(k,1843)
    9954   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1076) * lu(k,1843)
    9955   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1077) * lu(k,1843)
    9956   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1078) * lu(k,1843)
    9957   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1079) * lu(k,1843)
    9958   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1080) * lu(k,1843)
    9959   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1081) * lu(k,1843)
    9960   114070872 :          lu(k,1880) = lu(k,1880) - lu(k,1059) * lu(k,1879)
    9961   114070872 :          lu(k,1881) = lu(k,1881) - lu(k,1060) * lu(k,1879)
    9962   114070872 :          lu(k,1882) = lu(k,1882) - lu(k,1061) * lu(k,1879)
    9963   114070872 :          lu(k,1883) = lu(k,1883) - lu(k,1062) * lu(k,1879)
    9964   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,1063) * lu(k,1879)
    9965   114070872 :          lu(k,1885) = lu(k,1885) - lu(k,1064) * lu(k,1879)
    9966   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,1065) * lu(k,1879)
    9967   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,1066) * lu(k,1879)
    9968   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,1067) * lu(k,1879)
    9969   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,1068) * lu(k,1879)
    9970   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1069) * lu(k,1879)
    9971   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1070) * lu(k,1879)
    9972   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1071) * lu(k,1879)
    9973   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1072) * lu(k,1879)
    9974   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1073) * lu(k,1879)
    9975   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1074) * lu(k,1879)
    9976   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1075) * lu(k,1879)
    9977   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1076) * lu(k,1879)
    9978   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1077) * lu(k,1879)
    9979   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1078) * lu(k,1879)
    9980   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1079) * lu(k,1879)
    9981   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1080) * lu(k,1879)
    9982   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1081) * lu(k,1879)
    9983   114070872 :          lu(k,1921) = lu(k,1921) - lu(k,1059) * lu(k,1920)
    9984   114070872 :          lu(k,1922) = lu(k,1922) - lu(k,1060) * lu(k,1920)
    9985   114070872 :          lu(k,1923) = lu(k,1923) - lu(k,1061) * lu(k,1920)
    9986   114070872 :          lu(k,1924) = lu(k,1924) - lu(k,1062) * lu(k,1920)
    9987   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,1063) * lu(k,1920)
    9988   114070872 :          lu(k,1926) = lu(k,1926) - lu(k,1064) * lu(k,1920)
    9989   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,1065) * lu(k,1920)
    9990   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,1066) * lu(k,1920)
    9991   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,1067) * lu(k,1920)
    9992   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,1068) * lu(k,1920)
    9993   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1069) * lu(k,1920)
    9994   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1070) * lu(k,1920)
    9995   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1071) * lu(k,1920)
    9996   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1072) * lu(k,1920)
    9997   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1073) * lu(k,1920)
    9998   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1074) * lu(k,1920)
    9999   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1075) * lu(k,1920)
   10000   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1076) * lu(k,1920)
   10001   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1077) * lu(k,1920)
   10002   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1078) * lu(k,1920)
   10003   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1079) * lu(k,1920)
   10004   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1080) * lu(k,1920)
   10005   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1081) * lu(k,1920)
   10006   114070872 :          lu(k,1963) = lu(k,1963) - lu(k,1059) * lu(k,1962)
   10007   114070872 :          lu(k,1964) = lu(k,1964) - lu(k,1060) * lu(k,1962)
   10008   114070872 :          lu(k,1965) = lu(k,1965) - lu(k,1061) * lu(k,1962)
   10009   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,1062) * lu(k,1962)
   10010   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,1063) * lu(k,1962)
   10011   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,1064) * lu(k,1962)
   10012   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,1065) * lu(k,1962)
   10013   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,1066) * lu(k,1962)
   10014   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,1067) * lu(k,1962)
   10015   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,1068) * lu(k,1962)
   10016   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1069) * lu(k,1962)
   10017   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1070) * lu(k,1962)
   10018   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1071) * lu(k,1962)
   10019   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1072) * lu(k,1962)
   10020   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1073) * lu(k,1962)
   10021   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1074) * lu(k,1962)
   10022   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1075) * lu(k,1962)
   10023   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1076) * lu(k,1962)
   10024   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1077) * lu(k,1962)
   10025   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1078) * lu(k,1962)
   10026   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1079) * lu(k,1962)
   10027   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1080) * lu(k,1962)
   10028   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1081) * lu(k,1962)
   10029   114070872 :          lu(k,2008) = lu(k,2008) - lu(k,1059) * lu(k,2007)
   10030   114070872 :          lu(k,2009) = lu(k,2009) - lu(k,1060) * lu(k,2007)
   10031   114070872 :          lu(k,2010) = lu(k,2010) - lu(k,1061) * lu(k,2007)
   10032   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,1062) * lu(k,2007)
   10033   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,1063) * lu(k,2007)
   10034   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,1064) * lu(k,2007)
   10035   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,1065) * lu(k,2007)
   10036   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,1066) * lu(k,2007)
   10037   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,1067) * lu(k,2007)
   10038   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,1068) * lu(k,2007)
   10039   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1069) * lu(k,2007)
   10040   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1070) * lu(k,2007)
   10041   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1071) * lu(k,2007)
   10042   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1072) * lu(k,2007)
   10043   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1073) * lu(k,2007)
   10044   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1074) * lu(k,2007)
   10045   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1075) * lu(k,2007)
   10046   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1076) * lu(k,2007)
   10047   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1077) * lu(k,2007)
   10048   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1078) * lu(k,2007)
   10049   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1079) * lu(k,2007)
   10050   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1080) * lu(k,2007)
   10051   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1081) * lu(k,2007)
   10052   114070872 :          lu(k,2068) = lu(k,2068) - lu(k,1059) * lu(k,2067)
   10053   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,1060) * lu(k,2067)
   10054   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,1061) * lu(k,2067)
   10055   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,1062) * lu(k,2067)
   10056   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,1063) * lu(k,2067)
   10057   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,1064) * lu(k,2067)
   10058   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,1065) * lu(k,2067)
   10059   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,1066) * lu(k,2067)
   10060   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,1067) * lu(k,2067)
   10061   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,1068) * lu(k,2067)
   10062   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1069) * lu(k,2067)
   10063   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1070) * lu(k,2067)
   10064   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1071) * lu(k,2067)
   10065   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1072) * lu(k,2067)
   10066   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1073) * lu(k,2067)
   10067   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1074) * lu(k,2067)
   10068   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1075) * lu(k,2067)
   10069   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1076) * lu(k,2067)
   10070   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1077) * lu(k,2067)
   10071   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1078) * lu(k,2067)
   10072   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1079) * lu(k,2067)
   10073   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1080) * lu(k,2067)
   10074   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,1081) * lu(k,2067)
   10075             :       end do
   10076     3585597 :       end subroutine lu_fac21
   10077     3585597 :       subroutine lu_fac22( avec_len, lu )
   10078             :       use chem_mods, only : nzcnt
   10079             :       use shr_kind_mod, only : r8 => shr_kind_r8
   10080             :       implicit none
   10081             : !-----------------------------------------------------------------------
   10082             : ! ... dummy args
   10083             : !-----------------------------------------------------------------------
   10084             :       integer, intent(in) :: avec_len
   10085             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   10086             : !-----------------------------------------------------------------------
   10087             : ! ... local variables
   10088             : !-----------------------------------------------------------------------
   10089             :       integer :: k
   10090   117656469 :       do k = 1,avec_len
   10091   114070872 :          lu(k,1104) = 1._r8 / lu(k,1104)
   10092   114070872 :          lu(k,1105) = lu(k,1105) * lu(k,1104)
   10093   114070872 :          lu(k,1106) = lu(k,1106) * lu(k,1104)
   10094   114070872 :          lu(k,1107) = lu(k,1107) * lu(k,1104)
   10095   114070872 :          lu(k,1108) = lu(k,1108) * lu(k,1104)
   10096   114070872 :          lu(k,1109) = lu(k,1109) * lu(k,1104)
   10097   114070872 :          lu(k,1110) = lu(k,1110) * lu(k,1104)
   10098   114070872 :          lu(k,1111) = lu(k,1111) * lu(k,1104)
   10099   114070872 :          lu(k,1112) = lu(k,1112) * lu(k,1104)
   10100   114070872 :          lu(k,1113) = lu(k,1113) * lu(k,1104)
   10101   114070872 :          lu(k,1114) = lu(k,1114) * lu(k,1104)
   10102   114070872 :          lu(k,1115) = lu(k,1115) * lu(k,1104)
   10103   114070872 :          lu(k,1116) = lu(k,1116) * lu(k,1104)
   10104   114070872 :          lu(k,1117) = lu(k,1117) * lu(k,1104)
   10105   114070872 :          lu(k,1118) = lu(k,1118) * lu(k,1104)
   10106   114070872 :          lu(k,1119) = lu(k,1119) * lu(k,1104)
   10107   114070872 :          lu(k,1120) = lu(k,1120) * lu(k,1104)
   10108   114070872 :          lu(k,1121) = lu(k,1121) * lu(k,1104)
   10109   114070872 :          lu(k,1122) = lu(k,1122) * lu(k,1104)
   10110   114070872 :          lu(k,1123) = lu(k,1123) * lu(k,1104)
   10111   114070872 :          lu(k,1124) = lu(k,1124) * lu(k,1104)
   10112   114070872 :          lu(k,1125) = lu(k,1125) * lu(k,1104)
   10113   114070872 :          lu(k,1126) = lu(k,1126) * lu(k,1104)
   10114   114070872 :          lu(k,1153) = lu(k,1153) - lu(k,1105) * lu(k,1152)
   10115   114070872 :          lu(k,1154) = lu(k,1154) - lu(k,1106) * lu(k,1152)
   10116   114070872 :          lu(k,1155) = lu(k,1155) - lu(k,1107) * lu(k,1152)
   10117   114070872 :          lu(k,1156) = lu(k,1156) - lu(k,1108) * lu(k,1152)
   10118   114070872 :          lu(k,1157) = lu(k,1157) - lu(k,1109) * lu(k,1152)
   10119   114070872 :          lu(k,1158) = lu(k,1158) - lu(k,1110) * lu(k,1152)
   10120   114070872 :          lu(k,1159) = lu(k,1159) - lu(k,1111) * lu(k,1152)
   10121   114070872 :          lu(k,1160) = lu(k,1160) - lu(k,1112) * lu(k,1152)
   10122   114070872 :          lu(k,1161) = lu(k,1161) - lu(k,1113) * lu(k,1152)
   10123   114070872 :          lu(k,1162) = lu(k,1162) - lu(k,1114) * lu(k,1152)
   10124   114070872 :          lu(k,1163) = lu(k,1163) - lu(k,1115) * lu(k,1152)
   10125   114070872 :          lu(k,1164) = lu(k,1164) - lu(k,1116) * lu(k,1152)
   10126   114070872 :          lu(k,1165) = lu(k,1165) - lu(k,1117) * lu(k,1152)
   10127   114070872 :          lu(k,1166) = lu(k,1166) - lu(k,1118) * lu(k,1152)
   10128   114070872 :          lu(k,1167) = lu(k,1167) - lu(k,1119) * lu(k,1152)
   10129   114070872 :          lu(k,1168) = lu(k,1168) - lu(k,1120) * lu(k,1152)
   10130   114070872 :          lu(k,1169) = lu(k,1169) - lu(k,1121) * lu(k,1152)
   10131   114070872 :          lu(k,1170) = lu(k,1170) - lu(k,1122) * lu(k,1152)
   10132   114070872 :          lu(k,1171) = lu(k,1171) - lu(k,1123) * lu(k,1152)
   10133   114070872 :          lu(k,1172) = lu(k,1172) - lu(k,1124) * lu(k,1152)
   10134   114070872 :          lu(k,1173) = lu(k,1173) - lu(k,1125) * lu(k,1152)
   10135   114070872 :          lu(k,1174) = lu(k,1174) - lu(k,1126) * lu(k,1152)
   10136   114070872 :          lu(k,1196) = lu(k,1196) - lu(k,1105) * lu(k,1195)
   10137   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,1106) * lu(k,1195)
   10138   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,1107) * lu(k,1195)
   10139   114070872 :          lu(k,1199) = lu(k,1199) - lu(k,1108) * lu(k,1195)
   10140   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,1109) * lu(k,1195)
   10141   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,1110) * lu(k,1195)
   10142   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,1111) * lu(k,1195)
   10143   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,1112) * lu(k,1195)
   10144   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,1113) * lu(k,1195)
   10145   114070872 :          lu(k,1205) = lu(k,1205) - lu(k,1114) * lu(k,1195)
   10146   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,1115) * lu(k,1195)
   10147   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,1116) * lu(k,1195)
   10148   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,1117) * lu(k,1195)
   10149   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,1118) * lu(k,1195)
   10150   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,1119) * lu(k,1195)
   10151   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,1120) * lu(k,1195)
   10152   114070872 :          lu(k,1212) = lu(k,1212) - lu(k,1121) * lu(k,1195)
   10153   114070872 :          lu(k,1213) = lu(k,1213) - lu(k,1122) * lu(k,1195)
   10154   114070872 :          lu(k,1214) = lu(k,1214) - lu(k,1123) * lu(k,1195)
   10155   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,1124) * lu(k,1195)
   10156   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,1125) * lu(k,1195)
   10157   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,1126) * lu(k,1195)
   10158   114070872 :          lu(k,1239) = lu(k,1239) - lu(k,1105) * lu(k,1238)
   10159   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,1106) * lu(k,1238)
   10160   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,1107) * lu(k,1238)
   10161   114070872 :          lu(k,1242) = lu(k,1242) - lu(k,1108) * lu(k,1238)
   10162   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,1109) * lu(k,1238)
   10163   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,1110) * lu(k,1238)
   10164   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,1111) * lu(k,1238)
   10165   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,1112) * lu(k,1238)
   10166   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,1113) * lu(k,1238)
   10167   114070872 :          lu(k,1248) = lu(k,1248) - lu(k,1114) * lu(k,1238)
   10168   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,1115) * lu(k,1238)
   10169   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,1116) * lu(k,1238)
   10170   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,1117) * lu(k,1238)
   10171   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,1118) * lu(k,1238)
   10172   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,1119) * lu(k,1238)
   10173   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,1120) * lu(k,1238)
   10174   114070872 :          lu(k,1255) = lu(k,1255) - lu(k,1121) * lu(k,1238)
   10175   114070872 :          lu(k,1256) = lu(k,1256) - lu(k,1122) * lu(k,1238)
   10176   114070872 :          lu(k,1257) = lu(k,1257) - lu(k,1123) * lu(k,1238)
   10177   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,1124) * lu(k,1238)
   10178   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,1125) * lu(k,1238)
   10179   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,1126) * lu(k,1238)
   10180   114070872 :          lu(k,1281) = lu(k,1281) - lu(k,1105) * lu(k,1280)
   10181   114070872 :          lu(k,1282) = lu(k,1282) - lu(k,1106) * lu(k,1280)
   10182   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,1107) * lu(k,1280)
   10183   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,1108) * lu(k,1280)
   10184   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,1109) * lu(k,1280)
   10185   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,1110) * lu(k,1280)
   10186   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,1111) * lu(k,1280)
   10187   114070872 :          lu(k,1288) = lu(k,1288) - lu(k,1112) * lu(k,1280)
   10188   114070872 :          lu(k,1289) = lu(k,1289) - lu(k,1113) * lu(k,1280)
   10189   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,1114) * lu(k,1280)
   10190   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,1115) * lu(k,1280)
   10191   114070872 :          lu(k,1292) = lu(k,1292) - lu(k,1116) * lu(k,1280)
   10192   114070872 :          lu(k,1293) = lu(k,1293) - lu(k,1117) * lu(k,1280)
   10193   114070872 :          lu(k,1294) = lu(k,1294) - lu(k,1118) * lu(k,1280)
   10194   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,1119) * lu(k,1280)
   10195   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,1120) * lu(k,1280)
   10196   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,1121) * lu(k,1280)
   10197   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,1122) * lu(k,1280)
   10198   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,1123) * lu(k,1280)
   10199   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,1124) * lu(k,1280)
   10200   114070872 :          lu(k,1301) = lu(k,1301) - lu(k,1125) * lu(k,1280)
   10201   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,1126) * lu(k,1280)
   10202   114070872 :          lu(k,1323) = lu(k,1323) - lu(k,1105) * lu(k,1322)
   10203   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,1106) * lu(k,1322)
   10204   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,1107) * lu(k,1322)
   10205   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,1108) * lu(k,1322)
   10206   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,1109) * lu(k,1322)
   10207   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,1110) * lu(k,1322)
   10208   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,1111) * lu(k,1322)
   10209   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,1112) * lu(k,1322)
   10210   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,1113) * lu(k,1322)
   10211   114070872 :          lu(k,1332) = lu(k,1332) - lu(k,1114) * lu(k,1322)
   10212   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,1115) * lu(k,1322)
   10213   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,1116) * lu(k,1322)
   10214   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,1117) * lu(k,1322)
   10215   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,1118) * lu(k,1322)
   10216   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,1119) * lu(k,1322)
   10217   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,1120) * lu(k,1322)
   10218   114070872 :          lu(k,1339) = lu(k,1339) - lu(k,1121) * lu(k,1322)
   10219   114070872 :          lu(k,1340) = lu(k,1340) - lu(k,1122) * lu(k,1322)
   10220   114070872 :          lu(k,1341) = lu(k,1341) - lu(k,1123) * lu(k,1322)
   10221   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,1124) * lu(k,1322)
   10222   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,1125) * lu(k,1322)
   10223   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,1126) * lu(k,1322)
   10224   114070872 :          lu(k,1383) = lu(k,1383) - lu(k,1105) * lu(k,1382)
   10225   114070872 :          lu(k,1384) = lu(k,1384) - lu(k,1106) * lu(k,1382)
   10226   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,1107) * lu(k,1382)
   10227   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,1108) * lu(k,1382)
   10228   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,1109) * lu(k,1382)
   10229   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,1110) * lu(k,1382)
   10230   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,1111) * lu(k,1382)
   10231   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,1112) * lu(k,1382)
   10232   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,1113) * lu(k,1382)
   10233   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,1114) * lu(k,1382)
   10234   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,1115) * lu(k,1382)
   10235   114070872 :          lu(k,1394) = lu(k,1394) - lu(k,1116) * lu(k,1382)
   10236   114070872 :          lu(k,1395) = lu(k,1395) - lu(k,1117) * lu(k,1382)
   10237   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,1118) * lu(k,1382)
   10238   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,1119) * lu(k,1382)
   10239   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,1120) * lu(k,1382)
   10240   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,1121) * lu(k,1382)
   10241   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,1122) * lu(k,1382)
   10242   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,1123) * lu(k,1382)
   10243   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,1124) * lu(k,1382)
   10244   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,1125) * lu(k,1382)
   10245   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,1126) * lu(k,1382)
   10246   114070872 :          lu(k,1432) = lu(k,1432) - lu(k,1105) * lu(k,1431)
   10247   114070872 :          lu(k,1433) = lu(k,1433) - lu(k,1106) * lu(k,1431)
   10248   114070872 :          lu(k,1434) = lu(k,1434) - lu(k,1107) * lu(k,1431)
   10249   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,1108) * lu(k,1431)
   10250   114070872 :          lu(k,1436) = lu(k,1436) - lu(k,1109) * lu(k,1431)
   10251   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,1110) * lu(k,1431)
   10252   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,1111) * lu(k,1431)
   10253   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,1112) * lu(k,1431)
   10254   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,1113) * lu(k,1431)
   10255   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,1114) * lu(k,1431)
   10256   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,1115) * lu(k,1431)
   10257   114070872 :          lu(k,1443) = lu(k,1443) - lu(k,1116) * lu(k,1431)
   10258   114070872 :          lu(k,1444) = lu(k,1444) - lu(k,1117) * lu(k,1431)
   10259   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,1118) * lu(k,1431)
   10260   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,1119) * lu(k,1431)
   10261   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,1120) * lu(k,1431)
   10262   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,1121) * lu(k,1431)
   10263   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,1122) * lu(k,1431)
   10264   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,1123) * lu(k,1431)
   10265   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,1124) * lu(k,1431)
   10266   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,1125) * lu(k,1431)
   10267   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,1126) * lu(k,1431)
   10268   114070872 :          lu(k,1480) = lu(k,1480) - lu(k,1105) * lu(k,1479)
   10269   114070872 :          lu(k,1481) = lu(k,1481) - lu(k,1106) * lu(k,1479)
   10270   114070872 :          lu(k,1482) = lu(k,1482) - lu(k,1107) * lu(k,1479)
   10271   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,1108) * lu(k,1479)
   10272   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,1109) * lu(k,1479)
   10273   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,1110) * lu(k,1479)
   10274   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,1111) * lu(k,1479)
   10275   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,1112) * lu(k,1479)
   10276   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,1113) * lu(k,1479)
   10277   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,1114) * lu(k,1479)
   10278   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,1115) * lu(k,1479)
   10279   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,1116) * lu(k,1479)
   10280   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,1117) * lu(k,1479)
   10281   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,1118) * lu(k,1479)
   10282   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,1119) * lu(k,1479)
   10283   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,1120) * lu(k,1479)
   10284   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,1121) * lu(k,1479)
   10285   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,1122) * lu(k,1479)
   10286   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,1123) * lu(k,1479)
   10287   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,1124) * lu(k,1479)
   10288   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,1125) * lu(k,1479)
   10289   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,1126) * lu(k,1479)
   10290   114070872 :          lu(k,1521) = lu(k,1521) - lu(k,1105) * lu(k,1520)
   10291   114070872 :          lu(k,1522) = lu(k,1522) - lu(k,1106) * lu(k,1520)
   10292   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,1107) * lu(k,1520)
   10293   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,1108) * lu(k,1520)
   10294   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,1109) * lu(k,1520)
   10295   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,1110) * lu(k,1520)
   10296   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,1111) * lu(k,1520)
   10297   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,1112) * lu(k,1520)
   10298   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,1113) * lu(k,1520)
   10299   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,1114) * lu(k,1520)
   10300   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,1115) * lu(k,1520)
   10301   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,1116) * lu(k,1520)
   10302   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,1117) * lu(k,1520)
   10303   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,1118) * lu(k,1520)
   10304   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,1119) * lu(k,1520)
   10305   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,1120) * lu(k,1520)
   10306   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1121) * lu(k,1520)
   10307   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1122) * lu(k,1520)
   10308   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1123) * lu(k,1520)
   10309   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1124) * lu(k,1520)
   10310   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1125) * lu(k,1520)
   10311   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1126) * lu(k,1520)
   10312   114070872 :          lu(k,1557) = lu(k,1557) - lu(k,1105) * lu(k,1556)
   10313   114070872 :          lu(k,1558) = lu(k,1558) - lu(k,1106) * lu(k,1556)
   10314   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,1107) * lu(k,1556)
   10315   114070872 :          lu(k,1560) = lu(k,1560) - lu(k,1108) * lu(k,1556)
   10316   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,1109) * lu(k,1556)
   10317   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,1110) * lu(k,1556)
   10318   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,1111) * lu(k,1556)
   10319   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,1112) * lu(k,1556)
   10320   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,1113) * lu(k,1556)
   10321   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1114) * lu(k,1556)
   10322   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1115) * lu(k,1556)
   10323   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1116) * lu(k,1556)
   10324   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1117) * lu(k,1556)
   10325   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1118) * lu(k,1556)
   10326   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1119) * lu(k,1556)
   10327   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1120) * lu(k,1556)
   10328   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1121) * lu(k,1556)
   10329   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1122) * lu(k,1556)
   10330   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1123) * lu(k,1556)
   10331   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1124) * lu(k,1556)
   10332   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1125) * lu(k,1556)
   10333   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1126) * lu(k,1556)
   10334   114070872 :          lu(k,1602) = lu(k,1602) - lu(k,1105) * lu(k,1601)
   10335   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,1106) * lu(k,1601)
   10336   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,1107) * lu(k,1601)
   10337   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,1108) * lu(k,1601)
   10338   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,1109) * lu(k,1601)
   10339   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,1110) * lu(k,1601)
   10340   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,1111) * lu(k,1601)
   10341   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,1112) * lu(k,1601)
   10342   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,1113) * lu(k,1601)
   10343   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1114) * lu(k,1601)
   10344   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1115) * lu(k,1601)
   10345   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1116) * lu(k,1601)
   10346   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1117) * lu(k,1601)
   10347   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1118) * lu(k,1601)
   10348   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1119) * lu(k,1601)
   10349   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1120) * lu(k,1601)
   10350   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1121) * lu(k,1601)
   10351   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1122) * lu(k,1601)
   10352   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1123) * lu(k,1601)
   10353   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1124) * lu(k,1601)
   10354   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1125) * lu(k,1601)
   10355   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1126) * lu(k,1601)
   10356   114070872 :          lu(k,1645) = lu(k,1645) - lu(k,1105) * lu(k,1644)
   10357   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,1106) * lu(k,1644)
   10358   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,1107) * lu(k,1644)
   10359   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,1108) * lu(k,1644)
   10360   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,1109) * lu(k,1644)
   10361   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,1110) * lu(k,1644)
   10362   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,1111) * lu(k,1644)
   10363   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,1112) * lu(k,1644)
   10364   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,1113) * lu(k,1644)
   10365   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1114) * lu(k,1644)
   10366   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1115) * lu(k,1644)
   10367   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1116) * lu(k,1644)
   10368   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1117) * lu(k,1644)
   10369   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1118) * lu(k,1644)
   10370   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1119) * lu(k,1644)
   10371   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1120) * lu(k,1644)
   10372   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1121) * lu(k,1644)
   10373   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1122) * lu(k,1644)
   10374   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1123) * lu(k,1644)
   10375   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1124) * lu(k,1644)
   10376   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1125) * lu(k,1644)
   10377   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1126) * lu(k,1644)
   10378   114070872 :          lu(k,1688) = lu(k,1688) - lu(k,1105) * lu(k,1687)
   10379   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,1106) * lu(k,1687)
   10380   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,1107) * lu(k,1687)
   10381   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,1108) * lu(k,1687)
   10382   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,1109) * lu(k,1687)
   10383   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,1110) * lu(k,1687)
   10384   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,1111) * lu(k,1687)
   10385   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,1112) * lu(k,1687)
   10386   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,1113) * lu(k,1687)
   10387   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1114) * lu(k,1687)
   10388   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1115) * lu(k,1687)
   10389   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1116) * lu(k,1687)
   10390   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1117) * lu(k,1687)
   10391   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1118) * lu(k,1687)
   10392   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1119) * lu(k,1687)
   10393   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1120) * lu(k,1687)
   10394   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1121) * lu(k,1687)
   10395   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1122) * lu(k,1687)
   10396   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1123) * lu(k,1687)
   10397   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1124) * lu(k,1687)
   10398   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1125) * lu(k,1687)
   10399   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1126) * lu(k,1687)
   10400   114070872 :          lu(k,1728) = lu(k,1728) - lu(k,1105) * lu(k,1727)
   10401   114070872 :          lu(k,1729) = lu(k,1729) - lu(k,1106) * lu(k,1727)
   10402   114070872 :          lu(k,1730) = lu(k,1730) - lu(k,1107) * lu(k,1727)
   10403   114070872 :          lu(k,1731) = lu(k,1731) - lu(k,1108) * lu(k,1727)
   10404   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,1109) * lu(k,1727)
   10405   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,1110) * lu(k,1727)
   10406   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,1111) * lu(k,1727)
   10407   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,1112) * lu(k,1727)
   10408   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,1113) * lu(k,1727)
   10409   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,1114) * lu(k,1727)
   10410   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1115) * lu(k,1727)
   10411   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1116) * lu(k,1727)
   10412   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1117) * lu(k,1727)
   10413   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1118) * lu(k,1727)
   10414   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1119) * lu(k,1727)
   10415   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1120) * lu(k,1727)
   10416   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1121) * lu(k,1727)
   10417   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1122) * lu(k,1727)
   10418   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1123) * lu(k,1727)
   10419   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1124) * lu(k,1727)
   10420   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1125) * lu(k,1727)
   10421   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1126) * lu(k,1727)
   10422   114070872 :          lu(k,1764) = lu(k,1764) - lu(k,1105) * lu(k,1763)
   10423   114070872 :          lu(k,1765) = lu(k,1765) - lu(k,1106) * lu(k,1763)
   10424   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,1107) * lu(k,1763)
   10425   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,1108) * lu(k,1763)
   10426   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,1109) * lu(k,1763)
   10427   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,1110) * lu(k,1763)
   10428   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,1111) * lu(k,1763)
   10429   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,1112) * lu(k,1763)
   10430   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,1113) * lu(k,1763)
   10431   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1114) * lu(k,1763)
   10432   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1115) * lu(k,1763)
   10433   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1116) * lu(k,1763)
   10434   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1117) * lu(k,1763)
   10435   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1118) * lu(k,1763)
   10436   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1119) * lu(k,1763)
   10437   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1120) * lu(k,1763)
   10438   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1121) * lu(k,1763)
   10439   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1122) * lu(k,1763)
   10440   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1123) * lu(k,1763)
   10441   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1124) * lu(k,1763)
   10442   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1125) * lu(k,1763)
   10443   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1126) * lu(k,1763)
   10444   114070872 :          lu(k,1812) = lu(k,1812) - lu(k,1105) * lu(k,1811)
   10445   114070872 :          lu(k,1813) = lu(k,1813) - lu(k,1106) * lu(k,1811)
   10446   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,1107) * lu(k,1811)
   10447   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,1108) * lu(k,1811)
   10448   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,1109) * lu(k,1811)
   10449   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,1110) * lu(k,1811)
   10450   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,1111) * lu(k,1811)
   10451   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,1112) * lu(k,1811)
   10452   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,1113) * lu(k,1811)
   10453   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1114) * lu(k,1811)
   10454   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1115) * lu(k,1811)
   10455   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1116) * lu(k,1811)
   10456   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1117) * lu(k,1811)
   10457   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1118) * lu(k,1811)
   10458   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1119) * lu(k,1811)
   10459   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1120) * lu(k,1811)
   10460   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1121) * lu(k,1811)
   10461   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1122) * lu(k,1811)
   10462   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1123) * lu(k,1811)
   10463   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1124) * lu(k,1811)
   10464   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1125) * lu(k,1811)
   10465   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1126) * lu(k,1811)
   10466   114070872 :          lu(k,1845) = lu(k,1845) - lu(k,1105) * lu(k,1844)
   10467   114070872 :          lu(k,1846) = lu(k,1846) - lu(k,1106) * lu(k,1844)
   10468   114070872 :          lu(k,1847) = lu(k,1847) - lu(k,1107) * lu(k,1844)
   10469   114070872 :          lu(k,1848) = lu(k,1848) - lu(k,1108) * lu(k,1844)
   10470   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,1109) * lu(k,1844)
   10471   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,1110) * lu(k,1844)
   10472   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,1111) * lu(k,1844)
   10473   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,1112) * lu(k,1844)
   10474   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,1113) * lu(k,1844)
   10475   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1114) * lu(k,1844)
   10476   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1115) * lu(k,1844)
   10477   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1116) * lu(k,1844)
   10478   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1117) * lu(k,1844)
   10479   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1118) * lu(k,1844)
   10480   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1119) * lu(k,1844)
   10481   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1120) * lu(k,1844)
   10482   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1121) * lu(k,1844)
   10483   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1122) * lu(k,1844)
   10484   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1123) * lu(k,1844)
   10485   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1124) * lu(k,1844)
   10486   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1125) * lu(k,1844)
   10487   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1126) * lu(k,1844)
   10488   114070872 :          lu(k,1881) = lu(k,1881) - lu(k,1105) * lu(k,1880)
   10489   114070872 :          lu(k,1882) = lu(k,1882) - lu(k,1106) * lu(k,1880)
   10490   114070872 :          lu(k,1883) = lu(k,1883) - lu(k,1107) * lu(k,1880)
   10491   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,1108) * lu(k,1880)
   10492   114070872 :          lu(k,1885) = lu(k,1885) - lu(k,1109) * lu(k,1880)
   10493   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,1110) * lu(k,1880)
   10494   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,1111) * lu(k,1880)
   10495   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,1112) * lu(k,1880)
   10496   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,1113) * lu(k,1880)
   10497   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1114) * lu(k,1880)
   10498   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1115) * lu(k,1880)
   10499   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1116) * lu(k,1880)
   10500   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1117) * lu(k,1880)
   10501   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1118) * lu(k,1880)
   10502   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1119) * lu(k,1880)
   10503   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1120) * lu(k,1880)
   10504   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1121) * lu(k,1880)
   10505   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1122) * lu(k,1880)
   10506   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1123) * lu(k,1880)
   10507   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1124) * lu(k,1880)
   10508   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1125) * lu(k,1880)
   10509   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1126) * lu(k,1880)
   10510   114070872 :          lu(k,1922) = lu(k,1922) - lu(k,1105) * lu(k,1921)
   10511   114070872 :          lu(k,1923) = lu(k,1923) - lu(k,1106) * lu(k,1921)
   10512   114070872 :          lu(k,1924) = lu(k,1924) - lu(k,1107) * lu(k,1921)
   10513   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,1108) * lu(k,1921)
   10514   114070872 :          lu(k,1926) = lu(k,1926) - lu(k,1109) * lu(k,1921)
   10515   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,1110) * lu(k,1921)
   10516   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,1111) * lu(k,1921)
   10517   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,1112) * lu(k,1921)
   10518   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,1113) * lu(k,1921)
   10519   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1114) * lu(k,1921)
   10520   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1115) * lu(k,1921)
   10521   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1116) * lu(k,1921)
   10522   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1117) * lu(k,1921)
   10523   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1118) * lu(k,1921)
   10524   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1119) * lu(k,1921)
   10525   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1120) * lu(k,1921)
   10526   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1121) * lu(k,1921)
   10527   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1122) * lu(k,1921)
   10528   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1123) * lu(k,1921)
   10529   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1124) * lu(k,1921)
   10530   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1125) * lu(k,1921)
   10531   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1126) * lu(k,1921)
   10532   114070872 :          lu(k,1964) = lu(k,1964) - lu(k,1105) * lu(k,1963)
   10533   114070872 :          lu(k,1965) = lu(k,1965) - lu(k,1106) * lu(k,1963)
   10534   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,1107) * lu(k,1963)
   10535   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,1108) * lu(k,1963)
   10536   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,1109) * lu(k,1963)
   10537   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,1110) * lu(k,1963)
   10538   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,1111) * lu(k,1963)
   10539   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,1112) * lu(k,1963)
   10540   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,1113) * lu(k,1963)
   10541   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1114) * lu(k,1963)
   10542   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1115) * lu(k,1963)
   10543   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1116) * lu(k,1963)
   10544   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1117) * lu(k,1963)
   10545   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1118) * lu(k,1963)
   10546   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1119) * lu(k,1963)
   10547   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1120) * lu(k,1963)
   10548   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1121) * lu(k,1963)
   10549   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1122) * lu(k,1963)
   10550   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1123) * lu(k,1963)
   10551   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1124) * lu(k,1963)
   10552   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1125) * lu(k,1963)
   10553   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1126) * lu(k,1963)
   10554   114070872 :          lu(k,2009) = lu(k,2009) - lu(k,1105) * lu(k,2008)
   10555   114070872 :          lu(k,2010) = lu(k,2010) - lu(k,1106) * lu(k,2008)
   10556   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,1107) * lu(k,2008)
   10557   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,1108) * lu(k,2008)
   10558   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,1109) * lu(k,2008)
   10559   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,1110) * lu(k,2008)
   10560   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,1111) * lu(k,2008)
   10561   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,1112) * lu(k,2008)
   10562   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,1113) * lu(k,2008)
   10563   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1114) * lu(k,2008)
   10564   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1115) * lu(k,2008)
   10565   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1116) * lu(k,2008)
   10566   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1117) * lu(k,2008)
   10567   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1118) * lu(k,2008)
   10568   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1119) * lu(k,2008)
   10569   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1120) * lu(k,2008)
   10570   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1121) * lu(k,2008)
   10571   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1122) * lu(k,2008)
   10572   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1123) * lu(k,2008)
   10573   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1124) * lu(k,2008)
   10574   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1125) * lu(k,2008)
   10575   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1126) * lu(k,2008)
   10576   114070872 :          lu(k,2069) = lu(k,2069) - lu(k,1105) * lu(k,2068)
   10577   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,1106) * lu(k,2068)
   10578   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,1107) * lu(k,2068)
   10579   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,1108) * lu(k,2068)
   10580   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,1109) * lu(k,2068)
   10581   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,1110) * lu(k,2068)
   10582   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,1111) * lu(k,2068)
   10583   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,1112) * lu(k,2068)
   10584   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,1113) * lu(k,2068)
   10585   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1114) * lu(k,2068)
   10586   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1115) * lu(k,2068)
   10587   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1116) * lu(k,2068)
   10588   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1117) * lu(k,2068)
   10589   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1118) * lu(k,2068)
   10590   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1119) * lu(k,2068)
   10591   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1120) * lu(k,2068)
   10592   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1121) * lu(k,2068)
   10593   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1122) * lu(k,2068)
   10594   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1123) * lu(k,2068)
   10595   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1124) * lu(k,2068)
   10596   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1125) * lu(k,2068)
   10597   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1126) * lu(k,2068)
   10598   114070872 :          lu(k,1153) = 1._r8 / lu(k,1153)
   10599   114070872 :          lu(k,1154) = lu(k,1154) * lu(k,1153)
   10600   114070872 :          lu(k,1155) = lu(k,1155) * lu(k,1153)
   10601   114070872 :          lu(k,1156) = lu(k,1156) * lu(k,1153)
   10602   114070872 :          lu(k,1157) = lu(k,1157) * lu(k,1153)
   10603   114070872 :          lu(k,1158) = lu(k,1158) * lu(k,1153)
   10604   114070872 :          lu(k,1159) = lu(k,1159) * lu(k,1153)
   10605   114070872 :          lu(k,1160) = lu(k,1160) * lu(k,1153)
   10606   114070872 :          lu(k,1161) = lu(k,1161) * lu(k,1153)
   10607   114070872 :          lu(k,1162) = lu(k,1162) * lu(k,1153)
   10608   114070872 :          lu(k,1163) = lu(k,1163) * lu(k,1153)
   10609   114070872 :          lu(k,1164) = lu(k,1164) * lu(k,1153)
   10610   114070872 :          lu(k,1165) = lu(k,1165) * lu(k,1153)
   10611   114070872 :          lu(k,1166) = lu(k,1166) * lu(k,1153)
   10612   114070872 :          lu(k,1167) = lu(k,1167) * lu(k,1153)
   10613   114070872 :          lu(k,1168) = lu(k,1168) * lu(k,1153)
   10614   114070872 :          lu(k,1169) = lu(k,1169) * lu(k,1153)
   10615   114070872 :          lu(k,1170) = lu(k,1170) * lu(k,1153)
   10616   114070872 :          lu(k,1171) = lu(k,1171) * lu(k,1153)
   10617   114070872 :          lu(k,1172) = lu(k,1172) * lu(k,1153)
   10618   114070872 :          lu(k,1173) = lu(k,1173) * lu(k,1153)
   10619   114070872 :          lu(k,1174) = lu(k,1174) * lu(k,1153)
   10620   114070872 :          lu(k,1197) = lu(k,1197) - lu(k,1154) * lu(k,1196)
   10621   114070872 :          lu(k,1198) = lu(k,1198) - lu(k,1155) * lu(k,1196)
   10622   114070872 :          lu(k,1199) = lu(k,1199) - lu(k,1156) * lu(k,1196)
   10623   114070872 :          lu(k,1200) = lu(k,1200) - lu(k,1157) * lu(k,1196)
   10624   114070872 :          lu(k,1201) = lu(k,1201) - lu(k,1158) * lu(k,1196)
   10625   114070872 :          lu(k,1202) = lu(k,1202) - lu(k,1159) * lu(k,1196)
   10626   114070872 :          lu(k,1203) = lu(k,1203) - lu(k,1160) * lu(k,1196)
   10627   114070872 :          lu(k,1204) = lu(k,1204) - lu(k,1161) * lu(k,1196)
   10628   114070872 :          lu(k,1205) = lu(k,1205) - lu(k,1162) * lu(k,1196)
   10629   114070872 :          lu(k,1206) = lu(k,1206) - lu(k,1163) * lu(k,1196)
   10630   114070872 :          lu(k,1207) = lu(k,1207) - lu(k,1164) * lu(k,1196)
   10631   114070872 :          lu(k,1208) = lu(k,1208) - lu(k,1165) * lu(k,1196)
   10632   114070872 :          lu(k,1209) = lu(k,1209) - lu(k,1166) * lu(k,1196)
   10633   114070872 :          lu(k,1210) = lu(k,1210) - lu(k,1167) * lu(k,1196)
   10634   114070872 :          lu(k,1211) = lu(k,1211) - lu(k,1168) * lu(k,1196)
   10635   114070872 :          lu(k,1212) = lu(k,1212) - lu(k,1169) * lu(k,1196)
   10636   114070872 :          lu(k,1213) = lu(k,1213) - lu(k,1170) * lu(k,1196)
   10637   114070872 :          lu(k,1214) = lu(k,1214) - lu(k,1171) * lu(k,1196)
   10638   114070872 :          lu(k,1215) = lu(k,1215) - lu(k,1172) * lu(k,1196)
   10639   114070872 :          lu(k,1216) = lu(k,1216) - lu(k,1173) * lu(k,1196)
   10640   114070872 :          lu(k,1217) = lu(k,1217) - lu(k,1174) * lu(k,1196)
   10641   114070872 :          lu(k,1240) = lu(k,1240) - lu(k,1154) * lu(k,1239)
   10642   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,1155) * lu(k,1239)
   10643   114070872 :          lu(k,1242) = lu(k,1242) - lu(k,1156) * lu(k,1239)
   10644   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,1157) * lu(k,1239)
   10645   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,1158) * lu(k,1239)
   10646   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,1159) * lu(k,1239)
   10647   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,1160) * lu(k,1239)
   10648   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,1161) * lu(k,1239)
   10649   114070872 :          lu(k,1248) = lu(k,1248) - lu(k,1162) * lu(k,1239)
   10650   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,1163) * lu(k,1239)
   10651   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,1164) * lu(k,1239)
   10652   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,1165) * lu(k,1239)
   10653   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,1166) * lu(k,1239)
   10654   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,1167) * lu(k,1239)
   10655   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,1168) * lu(k,1239)
   10656   114070872 :          lu(k,1255) = lu(k,1255) - lu(k,1169) * lu(k,1239)
   10657   114070872 :          lu(k,1256) = lu(k,1256) - lu(k,1170) * lu(k,1239)
   10658   114070872 :          lu(k,1257) = lu(k,1257) - lu(k,1171) * lu(k,1239)
   10659   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,1172) * lu(k,1239)
   10660   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,1173) * lu(k,1239)
   10661   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,1174) * lu(k,1239)
   10662   114070872 :          lu(k,1282) = lu(k,1282) - lu(k,1154) * lu(k,1281)
   10663   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,1155) * lu(k,1281)
   10664   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,1156) * lu(k,1281)
   10665   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,1157) * lu(k,1281)
   10666   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,1158) * lu(k,1281)
   10667   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,1159) * lu(k,1281)
   10668   114070872 :          lu(k,1288) = lu(k,1288) - lu(k,1160) * lu(k,1281)
   10669   114070872 :          lu(k,1289) = lu(k,1289) - lu(k,1161) * lu(k,1281)
   10670   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,1162) * lu(k,1281)
   10671   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,1163) * lu(k,1281)
   10672   114070872 :          lu(k,1292) = lu(k,1292) - lu(k,1164) * lu(k,1281)
   10673   114070872 :          lu(k,1293) = lu(k,1293) - lu(k,1165) * lu(k,1281)
   10674   114070872 :          lu(k,1294) = lu(k,1294) - lu(k,1166) * lu(k,1281)
   10675   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,1167) * lu(k,1281)
   10676   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,1168) * lu(k,1281)
   10677   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,1169) * lu(k,1281)
   10678   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,1170) * lu(k,1281)
   10679   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,1171) * lu(k,1281)
   10680   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,1172) * lu(k,1281)
   10681   114070872 :          lu(k,1301) = lu(k,1301) - lu(k,1173) * lu(k,1281)
   10682   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,1174) * lu(k,1281)
   10683   114070872 :          lu(k,1324) = lu(k,1324) - lu(k,1154) * lu(k,1323)
   10684   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,1155) * lu(k,1323)
   10685   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,1156) * lu(k,1323)
   10686   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,1157) * lu(k,1323)
   10687   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,1158) * lu(k,1323)
   10688   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,1159) * lu(k,1323)
   10689   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,1160) * lu(k,1323)
   10690   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,1161) * lu(k,1323)
   10691   114070872 :          lu(k,1332) = lu(k,1332) - lu(k,1162) * lu(k,1323)
   10692   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,1163) * lu(k,1323)
   10693   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,1164) * lu(k,1323)
   10694   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,1165) * lu(k,1323)
   10695   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,1166) * lu(k,1323)
   10696   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,1167) * lu(k,1323)
   10697   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,1168) * lu(k,1323)
   10698   114070872 :          lu(k,1339) = lu(k,1339) - lu(k,1169) * lu(k,1323)
   10699   114070872 :          lu(k,1340) = lu(k,1340) - lu(k,1170) * lu(k,1323)
   10700   114070872 :          lu(k,1341) = lu(k,1341) - lu(k,1171) * lu(k,1323)
   10701   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,1172) * lu(k,1323)
   10702   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,1173) * lu(k,1323)
   10703   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,1174) * lu(k,1323)
   10704   114070872 :          lu(k,1384) = lu(k,1384) - lu(k,1154) * lu(k,1383)
   10705   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,1155) * lu(k,1383)
   10706   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,1156) * lu(k,1383)
   10707   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,1157) * lu(k,1383)
   10708   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,1158) * lu(k,1383)
   10709   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,1159) * lu(k,1383)
   10710   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,1160) * lu(k,1383)
   10711   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,1161) * lu(k,1383)
   10712   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,1162) * lu(k,1383)
   10713   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,1163) * lu(k,1383)
   10714   114070872 :          lu(k,1394) = lu(k,1394) - lu(k,1164) * lu(k,1383)
   10715   114070872 :          lu(k,1395) = lu(k,1395) - lu(k,1165) * lu(k,1383)
   10716   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,1166) * lu(k,1383)
   10717   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,1167) * lu(k,1383)
   10718   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,1168) * lu(k,1383)
   10719   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,1169) * lu(k,1383)
   10720   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,1170) * lu(k,1383)
   10721   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,1171) * lu(k,1383)
   10722   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,1172) * lu(k,1383)
   10723   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,1173) * lu(k,1383)
   10724   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,1174) * lu(k,1383)
   10725   114070872 :          lu(k,1433) = lu(k,1433) - lu(k,1154) * lu(k,1432)
   10726   114070872 :          lu(k,1434) = lu(k,1434) - lu(k,1155) * lu(k,1432)
   10727   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,1156) * lu(k,1432)
   10728   114070872 :          lu(k,1436) = lu(k,1436) - lu(k,1157) * lu(k,1432)
   10729   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,1158) * lu(k,1432)
   10730   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,1159) * lu(k,1432)
   10731   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,1160) * lu(k,1432)
   10732   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,1161) * lu(k,1432)
   10733   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,1162) * lu(k,1432)
   10734   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,1163) * lu(k,1432)
   10735   114070872 :          lu(k,1443) = lu(k,1443) - lu(k,1164) * lu(k,1432)
   10736   114070872 :          lu(k,1444) = lu(k,1444) - lu(k,1165) * lu(k,1432)
   10737   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,1166) * lu(k,1432)
   10738   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,1167) * lu(k,1432)
   10739   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,1168) * lu(k,1432)
   10740   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,1169) * lu(k,1432)
   10741   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,1170) * lu(k,1432)
   10742   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,1171) * lu(k,1432)
   10743   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,1172) * lu(k,1432)
   10744   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,1173) * lu(k,1432)
   10745   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,1174) * lu(k,1432)
   10746   114070872 :          lu(k,1481) = lu(k,1481) - lu(k,1154) * lu(k,1480)
   10747   114070872 :          lu(k,1482) = lu(k,1482) - lu(k,1155) * lu(k,1480)
   10748   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,1156) * lu(k,1480)
   10749   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,1157) * lu(k,1480)
   10750   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,1158) * lu(k,1480)
   10751   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,1159) * lu(k,1480)
   10752   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,1160) * lu(k,1480)
   10753   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,1161) * lu(k,1480)
   10754   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,1162) * lu(k,1480)
   10755   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,1163) * lu(k,1480)
   10756   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,1164) * lu(k,1480)
   10757   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,1165) * lu(k,1480)
   10758   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,1166) * lu(k,1480)
   10759   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,1167) * lu(k,1480)
   10760   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,1168) * lu(k,1480)
   10761   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,1169) * lu(k,1480)
   10762   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,1170) * lu(k,1480)
   10763   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,1171) * lu(k,1480)
   10764   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,1172) * lu(k,1480)
   10765   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,1173) * lu(k,1480)
   10766   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,1174) * lu(k,1480)
   10767   114070872 :          lu(k,1522) = lu(k,1522) - lu(k,1154) * lu(k,1521)
   10768   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,1155) * lu(k,1521)
   10769   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,1156) * lu(k,1521)
   10770   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,1157) * lu(k,1521)
   10771   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,1158) * lu(k,1521)
   10772   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,1159) * lu(k,1521)
   10773   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,1160) * lu(k,1521)
   10774   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,1161) * lu(k,1521)
   10775   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,1162) * lu(k,1521)
   10776   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,1163) * lu(k,1521)
   10777   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,1164) * lu(k,1521)
   10778   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,1165) * lu(k,1521)
   10779   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,1166) * lu(k,1521)
   10780   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,1167) * lu(k,1521)
   10781   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,1168) * lu(k,1521)
   10782   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1169) * lu(k,1521)
   10783   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1170) * lu(k,1521)
   10784   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1171) * lu(k,1521)
   10785   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1172) * lu(k,1521)
   10786   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1173) * lu(k,1521)
   10787   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1174) * lu(k,1521)
   10788   114070872 :          lu(k,1558) = lu(k,1558) - lu(k,1154) * lu(k,1557)
   10789   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,1155) * lu(k,1557)
   10790   114070872 :          lu(k,1560) = lu(k,1560) - lu(k,1156) * lu(k,1557)
   10791   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,1157) * lu(k,1557)
   10792   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,1158) * lu(k,1557)
   10793   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,1159) * lu(k,1557)
   10794   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,1160) * lu(k,1557)
   10795   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,1161) * lu(k,1557)
   10796   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1162) * lu(k,1557)
   10797   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1163) * lu(k,1557)
   10798   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1164) * lu(k,1557)
   10799   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1165) * lu(k,1557)
   10800   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1166) * lu(k,1557)
   10801   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1167) * lu(k,1557)
   10802   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1168) * lu(k,1557)
   10803   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1169) * lu(k,1557)
   10804   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1170) * lu(k,1557)
   10805   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1171) * lu(k,1557)
   10806   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1172) * lu(k,1557)
   10807   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1173) * lu(k,1557)
   10808   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1174) * lu(k,1557)
   10809   114070872 :          lu(k,1603) = lu(k,1603) - lu(k,1154) * lu(k,1602)
   10810   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,1155) * lu(k,1602)
   10811   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,1156) * lu(k,1602)
   10812   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,1157) * lu(k,1602)
   10813   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,1158) * lu(k,1602)
   10814   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,1159) * lu(k,1602)
   10815   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,1160) * lu(k,1602)
   10816   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,1161) * lu(k,1602)
   10817   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1162) * lu(k,1602)
   10818   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1163) * lu(k,1602)
   10819   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1164) * lu(k,1602)
   10820   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1165) * lu(k,1602)
   10821   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1166) * lu(k,1602)
   10822   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1167) * lu(k,1602)
   10823   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1168) * lu(k,1602)
   10824   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1169) * lu(k,1602)
   10825   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1170) * lu(k,1602)
   10826   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1171) * lu(k,1602)
   10827   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1172) * lu(k,1602)
   10828   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1173) * lu(k,1602)
   10829   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1174) * lu(k,1602)
   10830   114070872 :          lu(k,1646) = lu(k,1646) - lu(k,1154) * lu(k,1645)
   10831   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,1155) * lu(k,1645)
   10832   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,1156) * lu(k,1645)
   10833   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,1157) * lu(k,1645)
   10834   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,1158) * lu(k,1645)
   10835   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,1159) * lu(k,1645)
   10836   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,1160) * lu(k,1645)
   10837   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,1161) * lu(k,1645)
   10838   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1162) * lu(k,1645)
   10839   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1163) * lu(k,1645)
   10840   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1164) * lu(k,1645)
   10841   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1165) * lu(k,1645)
   10842   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1166) * lu(k,1645)
   10843   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1167) * lu(k,1645)
   10844   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1168) * lu(k,1645)
   10845   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1169) * lu(k,1645)
   10846   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1170) * lu(k,1645)
   10847   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1171) * lu(k,1645)
   10848   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1172) * lu(k,1645)
   10849   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1173) * lu(k,1645)
   10850   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1174) * lu(k,1645)
   10851   114070872 :          lu(k,1689) = lu(k,1689) - lu(k,1154) * lu(k,1688)
   10852   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,1155) * lu(k,1688)
   10853   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,1156) * lu(k,1688)
   10854   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,1157) * lu(k,1688)
   10855   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,1158) * lu(k,1688)
   10856   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,1159) * lu(k,1688)
   10857   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,1160) * lu(k,1688)
   10858   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,1161) * lu(k,1688)
   10859   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1162) * lu(k,1688)
   10860   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1163) * lu(k,1688)
   10861   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1164) * lu(k,1688)
   10862   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1165) * lu(k,1688)
   10863   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1166) * lu(k,1688)
   10864   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1167) * lu(k,1688)
   10865   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1168) * lu(k,1688)
   10866   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1169) * lu(k,1688)
   10867   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1170) * lu(k,1688)
   10868   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1171) * lu(k,1688)
   10869   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1172) * lu(k,1688)
   10870   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1173) * lu(k,1688)
   10871   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1174) * lu(k,1688)
   10872   114070872 :          lu(k,1729) = lu(k,1729) - lu(k,1154) * lu(k,1728)
   10873   114070872 :          lu(k,1730) = lu(k,1730) - lu(k,1155) * lu(k,1728)
   10874   114070872 :          lu(k,1731) = lu(k,1731) - lu(k,1156) * lu(k,1728)
   10875   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,1157) * lu(k,1728)
   10876   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,1158) * lu(k,1728)
   10877   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,1159) * lu(k,1728)
   10878   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,1160) * lu(k,1728)
   10879   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,1161) * lu(k,1728)
   10880   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,1162) * lu(k,1728)
   10881   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1163) * lu(k,1728)
   10882   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1164) * lu(k,1728)
   10883   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1165) * lu(k,1728)
   10884   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1166) * lu(k,1728)
   10885   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1167) * lu(k,1728)
   10886   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1168) * lu(k,1728)
   10887   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1169) * lu(k,1728)
   10888   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1170) * lu(k,1728)
   10889   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1171) * lu(k,1728)
   10890   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1172) * lu(k,1728)
   10891   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1173) * lu(k,1728)
   10892   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1174) * lu(k,1728)
   10893   114070872 :          lu(k,1765) = lu(k,1765) - lu(k,1154) * lu(k,1764)
   10894   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,1155) * lu(k,1764)
   10895   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,1156) * lu(k,1764)
   10896   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,1157) * lu(k,1764)
   10897   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,1158) * lu(k,1764)
   10898   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,1159) * lu(k,1764)
   10899   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,1160) * lu(k,1764)
   10900   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,1161) * lu(k,1764)
   10901   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1162) * lu(k,1764)
   10902   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1163) * lu(k,1764)
   10903   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1164) * lu(k,1764)
   10904   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1165) * lu(k,1764)
   10905   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1166) * lu(k,1764)
   10906   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1167) * lu(k,1764)
   10907   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1168) * lu(k,1764)
   10908   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1169) * lu(k,1764)
   10909   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1170) * lu(k,1764)
   10910   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1171) * lu(k,1764)
   10911   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1172) * lu(k,1764)
   10912   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1173) * lu(k,1764)
   10913   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1174) * lu(k,1764)
   10914   114070872 :          lu(k,1813) = lu(k,1813) - lu(k,1154) * lu(k,1812)
   10915   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,1155) * lu(k,1812)
   10916   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,1156) * lu(k,1812)
   10917   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,1157) * lu(k,1812)
   10918   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,1158) * lu(k,1812)
   10919   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,1159) * lu(k,1812)
   10920   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,1160) * lu(k,1812)
   10921   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,1161) * lu(k,1812)
   10922   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1162) * lu(k,1812)
   10923   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1163) * lu(k,1812)
   10924   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1164) * lu(k,1812)
   10925   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1165) * lu(k,1812)
   10926   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1166) * lu(k,1812)
   10927   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1167) * lu(k,1812)
   10928   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1168) * lu(k,1812)
   10929   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1169) * lu(k,1812)
   10930   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1170) * lu(k,1812)
   10931   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1171) * lu(k,1812)
   10932   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1172) * lu(k,1812)
   10933   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1173) * lu(k,1812)
   10934   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1174) * lu(k,1812)
   10935   114070872 :          lu(k,1846) = lu(k,1846) - lu(k,1154) * lu(k,1845)
   10936   114070872 :          lu(k,1847) = lu(k,1847) - lu(k,1155) * lu(k,1845)
   10937   114070872 :          lu(k,1848) = lu(k,1848) - lu(k,1156) * lu(k,1845)
   10938   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,1157) * lu(k,1845)
   10939   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,1158) * lu(k,1845)
   10940   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,1159) * lu(k,1845)
   10941   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,1160) * lu(k,1845)
   10942   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,1161) * lu(k,1845)
   10943   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1162) * lu(k,1845)
   10944   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1163) * lu(k,1845)
   10945   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1164) * lu(k,1845)
   10946   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1165) * lu(k,1845)
   10947   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1166) * lu(k,1845)
   10948   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1167) * lu(k,1845)
   10949   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1168) * lu(k,1845)
   10950   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1169) * lu(k,1845)
   10951   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1170) * lu(k,1845)
   10952   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1171) * lu(k,1845)
   10953   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1172) * lu(k,1845)
   10954   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1173) * lu(k,1845)
   10955   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1174) * lu(k,1845)
   10956   114070872 :          lu(k,1882) = lu(k,1882) - lu(k,1154) * lu(k,1881)
   10957   114070872 :          lu(k,1883) = lu(k,1883) - lu(k,1155) * lu(k,1881)
   10958   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,1156) * lu(k,1881)
   10959   114070872 :          lu(k,1885) = lu(k,1885) - lu(k,1157) * lu(k,1881)
   10960   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,1158) * lu(k,1881)
   10961   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,1159) * lu(k,1881)
   10962   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,1160) * lu(k,1881)
   10963   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,1161) * lu(k,1881)
   10964   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1162) * lu(k,1881)
   10965   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1163) * lu(k,1881)
   10966   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1164) * lu(k,1881)
   10967   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1165) * lu(k,1881)
   10968   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1166) * lu(k,1881)
   10969   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1167) * lu(k,1881)
   10970   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1168) * lu(k,1881)
   10971   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1169) * lu(k,1881)
   10972   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1170) * lu(k,1881)
   10973   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1171) * lu(k,1881)
   10974   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1172) * lu(k,1881)
   10975   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1173) * lu(k,1881)
   10976   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1174) * lu(k,1881)
   10977   114070872 :          lu(k,1923) = lu(k,1923) - lu(k,1154) * lu(k,1922)
   10978   114070872 :          lu(k,1924) = lu(k,1924) - lu(k,1155) * lu(k,1922)
   10979   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,1156) * lu(k,1922)
   10980   114070872 :          lu(k,1926) = lu(k,1926) - lu(k,1157) * lu(k,1922)
   10981   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,1158) * lu(k,1922)
   10982   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,1159) * lu(k,1922)
   10983   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,1160) * lu(k,1922)
   10984   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,1161) * lu(k,1922)
   10985   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1162) * lu(k,1922)
   10986   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1163) * lu(k,1922)
   10987   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1164) * lu(k,1922)
   10988   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1165) * lu(k,1922)
   10989   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1166) * lu(k,1922)
   10990   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1167) * lu(k,1922)
   10991   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1168) * lu(k,1922)
   10992   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1169) * lu(k,1922)
   10993   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1170) * lu(k,1922)
   10994   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1171) * lu(k,1922)
   10995   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1172) * lu(k,1922)
   10996   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1173) * lu(k,1922)
   10997   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1174) * lu(k,1922)
   10998   114070872 :          lu(k,1965) = lu(k,1965) - lu(k,1154) * lu(k,1964)
   10999   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,1155) * lu(k,1964)
   11000   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,1156) * lu(k,1964)
   11001   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,1157) * lu(k,1964)
   11002   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,1158) * lu(k,1964)
   11003   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,1159) * lu(k,1964)
   11004   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,1160) * lu(k,1964)
   11005   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,1161) * lu(k,1964)
   11006   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1162) * lu(k,1964)
   11007   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1163) * lu(k,1964)
   11008   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1164) * lu(k,1964)
   11009   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1165) * lu(k,1964)
   11010   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1166) * lu(k,1964)
   11011   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1167) * lu(k,1964)
   11012   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1168) * lu(k,1964)
   11013   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1169) * lu(k,1964)
   11014   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1170) * lu(k,1964)
   11015   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1171) * lu(k,1964)
   11016   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1172) * lu(k,1964)
   11017   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1173) * lu(k,1964)
   11018   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1174) * lu(k,1964)
   11019   114070872 :          lu(k,2010) = lu(k,2010) - lu(k,1154) * lu(k,2009)
   11020   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,1155) * lu(k,2009)
   11021   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,1156) * lu(k,2009)
   11022   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,1157) * lu(k,2009)
   11023   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,1158) * lu(k,2009)
   11024   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,1159) * lu(k,2009)
   11025   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,1160) * lu(k,2009)
   11026   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,1161) * lu(k,2009)
   11027   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1162) * lu(k,2009)
   11028   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1163) * lu(k,2009)
   11029   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1164) * lu(k,2009)
   11030   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1165) * lu(k,2009)
   11031   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1166) * lu(k,2009)
   11032   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1167) * lu(k,2009)
   11033   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1168) * lu(k,2009)
   11034   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1169) * lu(k,2009)
   11035   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1170) * lu(k,2009)
   11036   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1171) * lu(k,2009)
   11037   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1172) * lu(k,2009)
   11038   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1173) * lu(k,2009)
   11039   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1174) * lu(k,2009)
   11040   114070872 :          lu(k,2070) = lu(k,2070) - lu(k,1154) * lu(k,2069)
   11041   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,1155) * lu(k,2069)
   11042   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,1156) * lu(k,2069)
   11043   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,1157) * lu(k,2069)
   11044   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,1158) * lu(k,2069)
   11045   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,1159) * lu(k,2069)
   11046   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,1160) * lu(k,2069)
   11047   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,1161) * lu(k,2069)
   11048   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1162) * lu(k,2069)
   11049   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1163) * lu(k,2069)
   11050   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1164) * lu(k,2069)
   11051   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1165) * lu(k,2069)
   11052   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1166) * lu(k,2069)
   11053   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1167) * lu(k,2069)
   11054   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1168) * lu(k,2069)
   11055   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1169) * lu(k,2069)
   11056   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1170) * lu(k,2069)
   11057   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1171) * lu(k,2069)
   11058   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1172) * lu(k,2069)
   11059   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1173) * lu(k,2069)
   11060   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1174) * lu(k,2069)
   11061   114070872 :          lu(k,1197) = 1._r8 / lu(k,1197)
   11062   114070872 :          lu(k,1198) = lu(k,1198) * lu(k,1197)
   11063   114070872 :          lu(k,1199) = lu(k,1199) * lu(k,1197)
   11064   114070872 :          lu(k,1200) = lu(k,1200) * lu(k,1197)
   11065   114070872 :          lu(k,1201) = lu(k,1201) * lu(k,1197)
   11066   114070872 :          lu(k,1202) = lu(k,1202) * lu(k,1197)
   11067   114070872 :          lu(k,1203) = lu(k,1203) * lu(k,1197)
   11068   114070872 :          lu(k,1204) = lu(k,1204) * lu(k,1197)
   11069   114070872 :          lu(k,1205) = lu(k,1205) * lu(k,1197)
   11070   114070872 :          lu(k,1206) = lu(k,1206) * lu(k,1197)
   11071   114070872 :          lu(k,1207) = lu(k,1207) * lu(k,1197)
   11072   114070872 :          lu(k,1208) = lu(k,1208) * lu(k,1197)
   11073   114070872 :          lu(k,1209) = lu(k,1209) * lu(k,1197)
   11074   114070872 :          lu(k,1210) = lu(k,1210) * lu(k,1197)
   11075   114070872 :          lu(k,1211) = lu(k,1211) * lu(k,1197)
   11076   114070872 :          lu(k,1212) = lu(k,1212) * lu(k,1197)
   11077   114070872 :          lu(k,1213) = lu(k,1213) * lu(k,1197)
   11078   114070872 :          lu(k,1214) = lu(k,1214) * lu(k,1197)
   11079   114070872 :          lu(k,1215) = lu(k,1215) * lu(k,1197)
   11080   114070872 :          lu(k,1216) = lu(k,1216) * lu(k,1197)
   11081   114070872 :          lu(k,1217) = lu(k,1217) * lu(k,1197)
   11082   114070872 :          lu(k,1241) = lu(k,1241) - lu(k,1198) * lu(k,1240)
   11083   114070872 :          lu(k,1242) = lu(k,1242) - lu(k,1199) * lu(k,1240)
   11084   114070872 :          lu(k,1243) = lu(k,1243) - lu(k,1200) * lu(k,1240)
   11085   114070872 :          lu(k,1244) = lu(k,1244) - lu(k,1201) * lu(k,1240)
   11086   114070872 :          lu(k,1245) = lu(k,1245) - lu(k,1202) * lu(k,1240)
   11087   114070872 :          lu(k,1246) = lu(k,1246) - lu(k,1203) * lu(k,1240)
   11088   114070872 :          lu(k,1247) = lu(k,1247) - lu(k,1204) * lu(k,1240)
   11089   114070872 :          lu(k,1248) = lu(k,1248) - lu(k,1205) * lu(k,1240)
   11090   114070872 :          lu(k,1249) = lu(k,1249) - lu(k,1206) * lu(k,1240)
   11091   114070872 :          lu(k,1250) = lu(k,1250) - lu(k,1207) * lu(k,1240)
   11092   114070872 :          lu(k,1251) = lu(k,1251) - lu(k,1208) * lu(k,1240)
   11093   114070872 :          lu(k,1252) = lu(k,1252) - lu(k,1209) * lu(k,1240)
   11094   114070872 :          lu(k,1253) = lu(k,1253) - lu(k,1210) * lu(k,1240)
   11095   114070872 :          lu(k,1254) = lu(k,1254) - lu(k,1211) * lu(k,1240)
   11096   114070872 :          lu(k,1255) = lu(k,1255) - lu(k,1212) * lu(k,1240)
   11097   114070872 :          lu(k,1256) = lu(k,1256) - lu(k,1213) * lu(k,1240)
   11098   114070872 :          lu(k,1257) = lu(k,1257) - lu(k,1214) * lu(k,1240)
   11099   114070872 :          lu(k,1258) = lu(k,1258) - lu(k,1215) * lu(k,1240)
   11100   114070872 :          lu(k,1259) = lu(k,1259) - lu(k,1216) * lu(k,1240)
   11101   114070872 :          lu(k,1260) = lu(k,1260) - lu(k,1217) * lu(k,1240)
   11102   114070872 :          lu(k,1283) = lu(k,1283) - lu(k,1198) * lu(k,1282)
   11103   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,1199) * lu(k,1282)
   11104   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,1200) * lu(k,1282)
   11105   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,1201) * lu(k,1282)
   11106   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,1202) * lu(k,1282)
   11107   114070872 :          lu(k,1288) = lu(k,1288) - lu(k,1203) * lu(k,1282)
   11108   114070872 :          lu(k,1289) = lu(k,1289) - lu(k,1204) * lu(k,1282)
   11109   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,1205) * lu(k,1282)
   11110   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,1206) * lu(k,1282)
   11111   114070872 :          lu(k,1292) = lu(k,1292) - lu(k,1207) * lu(k,1282)
   11112   114070872 :          lu(k,1293) = lu(k,1293) - lu(k,1208) * lu(k,1282)
   11113   114070872 :          lu(k,1294) = lu(k,1294) - lu(k,1209) * lu(k,1282)
   11114   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,1210) * lu(k,1282)
   11115   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,1211) * lu(k,1282)
   11116   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,1212) * lu(k,1282)
   11117   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,1213) * lu(k,1282)
   11118   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,1214) * lu(k,1282)
   11119   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,1215) * lu(k,1282)
   11120   114070872 :          lu(k,1301) = lu(k,1301) - lu(k,1216) * lu(k,1282)
   11121   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,1217) * lu(k,1282)
   11122   114070872 :          lu(k,1325) = lu(k,1325) - lu(k,1198) * lu(k,1324)
   11123   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,1199) * lu(k,1324)
   11124   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,1200) * lu(k,1324)
   11125   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,1201) * lu(k,1324)
   11126   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,1202) * lu(k,1324)
   11127   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,1203) * lu(k,1324)
   11128   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,1204) * lu(k,1324)
   11129   114070872 :          lu(k,1332) = lu(k,1332) - lu(k,1205) * lu(k,1324)
   11130   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,1206) * lu(k,1324)
   11131   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,1207) * lu(k,1324)
   11132   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,1208) * lu(k,1324)
   11133   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,1209) * lu(k,1324)
   11134   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,1210) * lu(k,1324)
   11135   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,1211) * lu(k,1324)
   11136   114070872 :          lu(k,1339) = lu(k,1339) - lu(k,1212) * lu(k,1324)
   11137   114070872 :          lu(k,1340) = lu(k,1340) - lu(k,1213) * lu(k,1324)
   11138   114070872 :          lu(k,1341) = lu(k,1341) - lu(k,1214) * lu(k,1324)
   11139   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,1215) * lu(k,1324)
   11140   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,1216) * lu(k,1324)
   11141   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,1217) * lu(k,1324)
   11142   114070872 :          lu(k,1385) = lu(k,1385) - lu(k,1198) * lu(k,1384)
   11143   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,1199) * lu(k,1384)
   11144   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,1200) * lu(k,1384)
   11145   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,1201) * lu(k,1384)
   11146   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,1202) * lu(k,1384)
   11147   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,1203) * lu(k,1384)
   11148   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,1204) * lu(k,1384)
   11149   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,1205) * lu(k,1384)
   11150   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,1206) * lu(k,1384)
   11151   114070872 :          lu(k,1394) = lu(k,1394) - lu(k,1207) * lu(k,1384)
   11152   114070872 :          lu(k,1395) = lu(k,1395) - lu(k,1208) * lu(k,1384)
   11153   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,1209) * lu(k,1384)
   11154   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,1210) * lu(k,1384)
   11155   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,1211) * lu(k,1384)
   11156   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,1212) * lu(k,1384)
   11157   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,1213) * lu(k,1384)
   11158   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,1214) * lu(k,1384)
   11159   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,1215) * lu(k,1384)
   11160   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,1216) * lu(k,1384)
   11161   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,1217) * lu(k,1384)
   11162   114070872 :          lu(k,1434) = lu(k,1434) - lu(k,1198) * lu(k,1433)
   11163   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,1199) * lu(k,1433)
   11164   114070872 :          lu(k,1436) = lu(k,1436) - lu(k,1200) * lu(k,1433)
   11165   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,1201) * lu(k,1433)
   11166   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,1202) * lu(k,1433)
   11167   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,1203) * lu(k,1433)
   11168   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,1204) * lu(k,1433)
   11169   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,1205) * lu(k,1433)
   11170   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,1206) * lu(k,1433)
   11171   114070872 :          lu(k,1443) = lu(k,1443) - lu(k,1207) * lu(k,1433)
   11172   114070872 :          lu(k,1444) = lu(k,1444) - lu(k,1208) * lu(k,1433)
   11173   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,1209) * lu(k,1433)
   11174   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,1210) * lu(k,1433)
   11175   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,1211) * lu(k,1433)
   11176   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,1212) * lu(k,1433)
   11177   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,1213) * lu(k,1433)
   11178   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,1214) * lu(k,1433)
   11179   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,1215) * lu(k,1433)
   11180   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,1216) * lu(k,1433)
   11181   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,1217) * lu(k,1433)
   11182   114070872 :          lu(k,1482) = lu(k,1482) - lu(k,1198) * lu(k,1481)
   11183   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,1199) * lu(k,1481)
   11184   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,1200) * lu(k,1481)
   11185   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,1201) * lu(k,1481)
   11186   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,1202) * lu(k,1481)
   11187   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,1203) * lu(k,1481)
   11188   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,1204) * lu(k,1481)
   11189   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,1205) * lu(k,1481)
   11190   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,1206) * lu(k,1481)
   11191   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,1207) * lu(k,1481)
   11192   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,1208) * lu(k,1481)
   11193   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,1209) * lu(k,1481)
   11194   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,1210) * lu(k,1481)
   11195   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,1211) * lu(k,1481)
   11196   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,1212) * lu(k,1481)
   11197   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,1213) * lu(k,1481)
   11198   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,1214) * lu(k,1481)
   11199   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,1215) * lu(k,1481)
   11200   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,1216) * lu(k,1481)
   11201   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,1217) * lu(k,1481)
   11202   114070872 :          lu(k,1523) = lu(k,1523) - lu(k,1198) * lu(k,1522)
   11203   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,1199) * lu(k,1522)
   11204   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,1200) * lu(k,1522)
   11205   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,1201) * lu(k,1522)
   11206   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,1202) * lu(k,1522)
   11207   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,1203) * lu(k,1522)
   11208   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,1204) * lu(k,1522)
   11209   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,1205) * lu(k,1522)
   11210   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,1206) * lu(k,1522)
   11211   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,1207) * lu(k,1522)
   11212   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,1208) * lu(k,1522)
   11213   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,1209) * lu(k,1522)
   11214   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,1210) * lu(k,1522)
   11215   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,1211) * lu(k,1522)
   11216   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1212) * lu(k,1522)
   11217   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1213) * lu(k,1522)
   11218   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1214) * lu(k,1522)
   11219   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1215) * lu(k,1522)
   11220   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1216) * lu(k,1522)
   11221   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1217) * lu(k,1522)
   11222   114070872 :          lu(k,1559) = lu(k,1559) - lu(k,1198) * lu(k,1558)
   11223   114070872 :          lu(k,1560) = lu(k,1560) - lu(k,1199) * lu(k,1558)
   11224   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,1200) * lu(k,1558)
   11225   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,1201) * lu(k,1558)
   11226   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,1202) * lu(k,1558)
   11227   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,1203) * lu(k,1558)
   11228   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,1204) * lu(k,1558)
   11229   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1205) * lu(k,1558)
   11230   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1206) * lu(k,1558)
   11231   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1207) * lu(k,1558)
   11232   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1208) * lu(k,1558)
   11233   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1209) * lu(k,1558)
   11234   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1210) * lu(k,1558)
   11235   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1211) * lu(k,1558)
   11236   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1212) * lu(k,1558)
   11237   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1213) * lu(k,1558)
   11238   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1214) * lu(k,1558)
   11239   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1215) * lu(k,1558)
   11240   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1216) * lu(k,1558)
   11241   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1217) * lu(k,1558)
   11242   114070872 :          lu(k,1604) = lu(k,1604) - lu(k,1198) * lu(k,1603)
   11243   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,1199) * lu(k,1603)
   11244   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,1200) * lu(k,1603)
   11245   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,1201) * lu(k,1603)
   11246   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,1202) * lu(k,1603)
   11247   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,1203) * lu(k,1603)
   11248   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,1204) * lu(k,1603)
   11249   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1205) * lu(k,1603)
   11250   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1206) * lu(k,1603)
   11251   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1207) * lu(k,1603)
   11252   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1208) * lu(k,1603)
   11253   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1209) * lu(k,1603)
   11254   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1210) * lu(k,1603)
   11255   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1211) * lu(k,1603)
   11256   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1212) * lu(k,1603)
   11257   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1213) * lu(k,1603)
   11258   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1214) * lu(k,1603)
   11259   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1215) * lu(k,1603)
   11260   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1216) * lu(k,1603)
   11261   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1217) * lu(k,1603)
   11262   114070872 :          lu(k,1647) = lu(k,1647) - lu(k,1198) * lu(k,1646)
   11263   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,1199) * lu(k,1646)
   11264   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,1200) * lu(k,1646)
   11265   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,1201) * lu(k,1646)
   11266   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,1202) * lu(k,1646)
   11267   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,1203) * lu(k,1646)
   11268   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,1204) * lu(k,1646)
   11269   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1205) * lu(k,1646)
   11270   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1206) * lu(k,1646)
   11271   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1207) * lu(k,1646)
   11272   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1208) * lu(k,1646)
   11273   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1209) * lu(k,1646)
   11274   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1210) * lu(k,1646)
   11275   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1211) * lu(k,1646)
   11276   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1212) * lu(k,1646)
   11277   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1213) * lu(k,1646)
   11278   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1214) * lu(k,1646)
   11279   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1215) * lu(k,1646)
   11280   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1216) * lu(k,1646)
   11281   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1217) * lu(k,1646)
   11282   114070872 :          lu(k,1690) = lu(k,1690) - lu(k,1198) * lu(k,1689)
   11283   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,1199) * lu(k,1689)
   11284   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,1200) * lu(k,1689)
   11285   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,1201) * lu(k,1689)
   11286   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,1202) * lu(k,1689)
   11287   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,1203) * lu(k,1689)
   11288   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,1204) * lu(k,1689)
   11289   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1205) * lu(k,1689)
   11290   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1206) * lu(k,1689)
   11291   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1207) * lu(k,1689)
   11292   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1208) * lu(k,1689)
   11293   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1209) * lu(k,1689)
   11294   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1210) * lu(k,1689)
   11295   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1211) * lu(k,1689)
   11296   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1212) * lu(k,1689)
   11297   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1213) * lu(k,1689)
   11298   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1214) * lu(k,1689)
   11299   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1215) * lu(k,1689)
   11300   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1216) * lu(k,1689)
   11301   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1217) * lu(k,1689)
   11302   114070872 :          lu(k,1730) = lu(k,1730) - lu(k,1198) * lu(k,1729)
   11303   114070872 :          lu(k,1731) = lu(k,1731) - lu(k,1199) * lu(k,1729)
   11304   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,1200) * lu(k,1729)
   11305   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,1201) * lu(k,1729)
   11306   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,1202) * lu(k,1729)
   11307   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,1203) * lu(k,1729)
   11308   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,1204) * lu(k,1729)
   11309   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,1205) * lu(k,1729)
   11310   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1206) * lu(k,1729)
   11311   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1207) * lu(k,1729)
   11312   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1208) * lu(k,1729)
   11313   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1209) * lu(k,1729)
   11314   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1210) * lu(k,1729)
   11315   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1211) * lu(k,1729)
   11316   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1212) * lu(k,1729)
   11317   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1213) * lu(k,1729)
   11318   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1214) * lu(k,1729)
   11319   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1215) * lu(k,1729)
   11320   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1216) * lu(k,1729)
   11321   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1217) * lu(k,1729)
   11322   114070872 :          lu(k,1766) = lu(k,1766) - lu(k,1198) * lu(k,1765)
   11323   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,1199) * lu(k,1765)
   11324   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,1200) * lu(k,1765)
   11325   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,1201) * lu(k,1765)
   11326   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,1202) * lu(k,1765)
   11327   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,1203) * lu(k,1765)
   11328   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,1204) * lu(k,1765)
   11329   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1205) * lu(k,1765)
   11330   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1206) * lu(k,1765)
   11331   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1207) * lu(k,1765)
   11332   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1208) * lu(k,1765)
   11333   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1209) * lu(k,1765)
   11334   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1210) * lu(k,1765)
   11335   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1211) * lu(k,1765)
   11336   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1212) * lu(k,1765)
   11337   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1213) * lu(k,1765)
   11338   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1214) * lu(k,1765)
   11339   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1215) * lu(k,1765)
   11340   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1216) * lu(k,1765)
   11341   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1217) * lu(k,1765)
   11342   114070872 :          lu(k,1814) = lu(k,1814) - lu(k,1198) * lu(k,1813)
   11343   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,1199) * lu(k,1813)
   11344   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,1200) * lu(k,1813)
   11345   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,1201) * lu(k,1813)
   11346   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,1202) * lu(k,1813)
   11347   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,1203) * lu(k,1813)
   11348   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,1204) * lu(k,1813)
   11349   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1205) * lu(k,1813)
   11350   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1206) * lu(k,1813)
   11351   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1207) * lu(k,1813)
   11352   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1208) * lu(k,1813)
   11353   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1209) * lu(k,1813)
   11354   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1210) * lu(k,1813)
   11355   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1211) * lu(k,1813)
   11356   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1212) * lu(k,1813)
   11357   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1213) * lu(k,1813)
   11358   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1214) * lu(k,1813)
   11359   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1215) * lu(k,1813)
   11360   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1216) * lu(k,1813)
   11361   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1217) * lu(k,1813)
   11362   114070872 :          lu(k,1847) = lu(k,1847) - lu(k,1198) * lu(k,1846)
   11363   114070872 :          lu(k,1848) = lu(k,1848) - lu(k,1199) * lu(k,1846)
   11364   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,1200) * lu(k,1846)
   11365   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,1201) * lu(k,1846)
   11366   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,1202) * lu(k,1846)
   11367   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,1203) * lu(k,1846)
   11368   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,1204) * lu(k,1846)
   11369   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1205) * lu(k,1846)
   11370   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1206) * lu(k,1846)
   11371   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1207) * lu(k,1846)
   11372   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1208) * lu(k,1846)
   11373   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1209) * lu(k,1846)
   11374   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1210) * lu(k,1846)
   11375   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1211) * lu(k,1846)
   11376   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1212) * lu(k,1846)
   11377   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1213) * lu(k,1846)
   11378   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1214) * lu(k,1846)
   11379   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1215) * lu(k,1846)
   11380   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1216) * lu(k,1846)
   11381   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1217) * lu(k,1846)
   11382   114070872 :          lu(k,1883) = lu(k,1883) - lu(k,1198) * lu(k,1882)
   11383   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,1199) * lu(k,1882)
   11384   114070872 :          lu(k,1885) = lu(k,1885) - lu(k,1200) * lu(k,1882)
   11385   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,1201) * lu(k,1882)
   11386   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,1202) * lu(k,1882)
   11387   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,1203) * lu(k,1882)
   11388   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,1204) * lu(k,1882)
   11389   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1205) * lu(k,1882)
   11390   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1206) * lu(k,1882)
   11391   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1207) * lu(k,1882)
   11392   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1208) * lu(k,1882)
   11393   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1209) * lu(k,1882)
   11394   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1210) * lu(k,1882)
   11395   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1211) * lu(k,1882)
   11396   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1212) * lu(k,1882)
   11397   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1213) * lu(k,1882)
   11398   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1214) * lu(k,1882)
   11399   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1215) * lu(k,1882)
   11400   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1216) * lu(k,1882)
   11401   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1217) * lu(k,1882)
   11402   114070872 :          lu(k,1924) = lu(k,1924) - lu(k,1198) * lu(k,1923)
   11403   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,1199) * lu(k,1923)
   11404   114070872 :          lu(k,1926) = lu(k,1926) - lu(k,1200) * lu(k,1923)
   11405   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,1201) * lu(k,1923)
   11406   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,1202) * lu(k,1923)
   11407   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,1203) * lu(k,1923)
   11408   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,1204) * lu(k,1923)
   11409   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1205) * lu(k,1923)
   11410   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1206) * lu(k,1923)
   11411   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1207) * lu(k,1923)
   11412   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1208) * lu(k,1923)
   11413   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1209) * lu(k,1923)
   11414   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1210) * lu(k,1923)
   11415   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1211) * lu(k,1923)
   11416   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1212) * lu(k,1923)
   11417   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1213) * lu(k,1923)
   11418   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1214) * lu(k,1923)
   11419   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1215) * lu(k,1923)
   11420   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1216) * lu(k,1923)
   11421   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1217) * lu(k,1923)
   11422   114070872 :          lu(k,1966) = lu(k,1966) - lu(k,1198) * lu(k,1965)
   11423   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,1199) * lu(k,1965)
   11424   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,1200) * lu(k,1965)
   11425   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,1201) * lu(k,1965)
   11426   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,1202) * lu(k,1965)
   11427   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,1203) * lu(k,1965)
   11428   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,1204) * lu(k,1965)
   11429   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1205) * lu(k,1965)
   11430   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1206) * lu(k,1965)
   11431   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1207) * lu(k,1965)
   11432   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1208) * lu(k,1965)
   11433   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1209) * lu(k,1965)
   11434   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1210) * lu(k,1965)
   11435   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1211) * lu(k,1965)
   11436   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1212) * lu(k,1965)
   11437   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1213) * lu(k,1965)
   11438   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1214) * lu(k,1965)
   11439   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1215) * lu(k,1965)
   11440   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1216) * lu(k,1965)
   11441   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1217) * lu(k,1965)
   11442   114070872 :          lu(k,2011) = lu(k,2011) - lu(k,1198) * lu(k,2010)
   11443   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,1199) * lu(k,2010)
   11444   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,1200) * lu(k,2010)
   11445   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,1201) * lu(k,2010)
   11446   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,1202) * lu(k,2010)
   11447   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,1203) * lu(k,2010)
   11448   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,1204) * lu(k,2010)
   11449   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1205) * lu(k,2010)
   11450   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1206) * lu(k,2010)
   11451   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1207) * lu(k,2010)
   11452   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1208) * lu(k,2010)
   11453   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1209) * lu(k,2010)
   11454   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1210) * lu(k,2010)
   11455   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1211) * lu(k,2010)
   11456   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1212) * lu(k,2010)
   11457   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1213) * lu(k,2010)
   11458   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1214) * lu(k,2010)
   11459   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1215) * lu(k,2010)
   11460   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1216) * lu(k,2010)
   11461   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1217) * lu(k,2010)
   11462   114070872 :          lu(k,2071) = lu(k,2071) - lu(k,1198) * lu(k,2070)
   11463   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,1199) * lu(k,2070)
   11464   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,1200) * lu(k,2070)
   11465   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,1201) * lu(k,2070)
   11466   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,1202) * lu(k,2070)
   11467   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,1203) * lu(k,2070)
   11468   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,1204) * lu(k,2070)
   11469   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1205) * lu(k,2070)
   11470   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1206) * lu(k,2070)
   11471   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1207) * lu(k,2070)
   11472   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1208) * lu(k,2070)
   11473   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1209) * lu(k,2070)
   11474   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1210) * lu(k,2070)
   11475   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1211) * lu(k,2070)
   11476   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1212) * lu(k,2070)
   11477   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1213) * lu(k,2070)
   11478   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1214) * lu(k,2070)
   11479   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1215) * lu(k,2070)
   11480   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1216) * lu(k,2070)
   11481   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,1217) * lu(k,2070)
   11482             :       end do
   11483     3585597 :       end subroutine lu_fac22
   11484     3585597 :       subroutine lu_fac23( avec_len, lu )
   11485             :       use chem_mods, only : nzcnt
   11486             :       use shr_kind_mod, only : r8 => shr_kind_r8
   11487             :       implicit none
   11488             : !-----------------------------------------------------------------------
   11489             : ! ... dummy args
   11490             : !-----------------------------------------------------------------------
   11491             :       integer, intent(in) :: avec_len
   11492             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   11493             : !-----------------------------------------------------------------------
   11494             : ! ... local variables
   11495             : !-----------------------------------------------------------------------
   11496             :       integer :: k
   11497   117656469 :       do k = 1,avec_len
   11498   114070872 :          lu(k,1241) = 1._r8 / lu(k,1241)
   11499   114070872 :          lu(k,1242) = lu(k,1242) * lu(k,1241)
   11500   114070872 :          lu(k,1243) = lu(k,1243) * lu(k,1241)
   11501   114070872 :          lu(k,1244) = lu(k,1244) * lu(k,1241)
   11502   114070872 :          lu(k,1245) = lu(k,1245) * lu(k,1241)
   11503   114070872 :          lu(k,1246) = lu(k,1246) * lu(k,1241)
   11504   114070872 :          lu(k,1247) = lu(k,1247) * lu(k,1241)
   11505   114070872 :          lu(k,1248) = lu(k,1248) * lu(k,1241)
   11506   114070872 :          lu(k,1249) = lu(k,1249) * lu(k,1241)
   11507   114070872 :          lu(k,1250) = lu(k,1250) * lu(k,1241)
   11508   114070872 :          lu(k,1251) = lu(k,1251) * lu(k,1241)
   11509   114070872 :          lu(k,1252) = lu(k,1252) * lu(k,1241)
   11510   114070872 :          lu(k,1253) = lu(k,1253) * lu(k,1241)
   11511   114070872 :          lu(k,1254) = lu(k,1254) * lu(k,1241)
   11512   114070872 :          lu(k,1255) = lu(k,1255) * lu(k,1241)
   11513   114070872 :          lu(k,1256) = lu(k,1256) * lu(k,1241)
   11514   114070872 :          lu(k,1257) = lu(k,1257) * lu(k,1241)
   11515   114070872 :          lu(k,1258) = lu(k,1258) * lu(k,1241)
   11516   114070872 :          lu(k,1259) = lu(k,1259) * lu(k,1241)
   11517   114070872 :          lu(k,1260) = lu(k,1260) * lu(k,1241)
   11518   114070872 :          lu(k,1284) = lu(k,1284) - lu(k,1242) * lu(k,1283)
   11519   114070872 :          lu(k,1285) = lu(k,1285) - lu(k,1243) * lu(k,1283)
   11520   114070872 :          lu(k,1286) = lu(k,1286) - lu(k,1244) * lu(k,1283)
   11521   114070872 :          lu(k,1287) = lu(k,1287) - lu(k,1245) * lu(k,1283)
   11522   114070872 :          lu(k,1288) = lu(k,1288) - lu(k,1246) * lu(k,1283)
   11523   114070872 :          lu(k,1289) = lu(k,1289) - lu(k,1247) * lu(k,1283)
   11524   114070872 :          lu(k,1290) = lu(k,1290) - lu(k,1248) * lu(k,1283)
   11525   114070872 :          lu(k,1291) = lu(k,1291) - lu(k,1249) * lu(k,1283)
   11526   114070872 :          lu(k,1292) = lu(k,1292) - lu(k,1250) * lu(k,1283)
   11527   114070872 :          lu(k,1293) = lu(k,1293) - lu(k,1251) * lu(k,1283)
   11528   114070872 :          lu(k,1294) = lu(k,1294) - lu(k,1252) * lu(k,1283)
   11529   114070872 :          lu(k,1295) = lu(k,1295) - lu(k,1253) * lu(k,1283)
   11530   114070872 :          lu(k,1296) = lu(k,1296) - lu(k,1254) * lu(k,1283)
   11531   114070872 :          lu(k,1297) = lu(k,1297) - lu(k,1255) * lu(k,1283)
   11532   114070872 :          lu(k,1298) = lu(k,1298) - lu(k,1256) * lu(k,1283)
   11533   114070872 :          lu(k,1299) = lu(k,1299) - lu(k,1257) * lu(k,1283)
   11534   114070872 :          lu(k,1300) = lu(k,1300) - lu(k,1258) * lu(k,1283)
   11535   114070872 :          lu(k,1301) = lu(k,1301) - lu(k,1259) * lu(k,1283)
   11536   114070872 :          lu(k,1302) = lu(k,1302) - lu(k,1260) * lu(k,1283)
   11537   114070872 :          lu(k,1326) = lu(k,1326) - lu(k,1242) * lu(k,1325)
   11538   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,1243) * lu(k,1325)
   11539   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,1244) * lu(k,1325)
   11540   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,1245) * lu(k,1325)
   11541   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,1246) * lu(k,1325)
   11542   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,1247) * lu(k,1325)
   11543   114070872 :          lu(k,1332) = lu(k,1332) - lu(k,1248) * lu(k,1325)
   11544   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,1249) * lu(k,1325)
   11545   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,1250) * lu(k,1325)
   11546   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,1251) * lu(k,1325)
   11547   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,1252) * lu(k,1325)
   11548   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,1253) * lu(k,1325)
   11549   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,1254) * lu(k,1325)
   11550   114070872 :          lu(k,1339) = lu(k,1339) - lu(k,1255) * lu(k,1325)
   11551   114070872 :          lu(k,1340) = lu(k,1340) - lu(k,1256) * lu(k,1325)
   11552   114070872 :          lu(k,1341) = lu(k,1341) - lu(k,1257) * lu(k,1325)
   11553   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,1258) * lu(k,1325)
   11554   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,1259) * lu(k,1325)
   11555   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,1260) * lu(k,1325)
   11556   114070872 :          lu(k,1386) = lu(k,1386) - lu(k,1242) * lu(k,1385)
   11557   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,1243) * lu(k,1385)
   11558   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,1244) * lu(k,1385)
   11559   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,1245) * lu(k,1385)
   11560   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,1246) * lu(k,1385)
   11561   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,1247) * lu(k,1385)
   11562   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,1248) * lu(k,1385)
   11563   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,1249) * lu(k,1385)
   11564   114070872 :          lu(k,1394) = lu(k,1394) - lu(k,1250) * lu(k,1385)
   11565   114070872 :          lu(k,1395) = lu(k,1395) - lu(k,1251) * lu(k,1385)
   11566   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,1252) * lu(k,1385)
   11567   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,1253) * lu(k,1385)
   11568   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,1254) * lu(k,1385)
   11569   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,1255) * lu(k,1385)
   11570   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,1256) * lu(k,1385)
   11571   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,1257) * lu(k,1385)
   11572   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,1258) * lu(k,1385)
   11573   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,1259) * lu(k,1385)
   11574   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,1260) * lu(k,1385)
   11575   114070872 :          lu(k,1435) = lu(k,1435) - lu(k,1242) * lu(k,1434)
   11576   114070872 :          lu(k,1436) = lu(k,1436) - lu(k,1243) * lu(k,1434)
   11577   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,1244) * lu(k,1434)
   11578   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,1245) * lu(k,1434)
   11579   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,1246) * lu(k,1434)
   11580   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,1247) * lu(k,1434)
   11581   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,1248) * lu(k,1434)
   11582   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,1249) * lu(k,1434)
   11583   114070872 :          lu(k,1443) = lu(k,1443) - lu(k,1250) * lu(k,1434)
   11584   114070872 :          lu(k,1444) = lu(k,1444) - lu(k,1251) * lu(k,1434)
   11585   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,1252) * lu(k,1434)
   11586   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,1253) * lu(k,1434)
   11587   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,1254) * lu(k,1434)
   11588   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,1255) * lu(k,1434)
   11589   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,1256) * lu(k,1434)
   11590   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,1257) * lu(k,1434)
   11591   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,1258) * lu(k,1434)
   11592   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,1259) * lu(k,1434)
   11593   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,1260) * lu(k,1434)
   11594   114070872 :          lu(k,1483) = lu(k,1483) - lu(k,1242) * lu(k,1482)
   11595   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,1243) * lu(k,1482)
   11596   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,1244) * lu(k,1482)
   11597   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,1245) * lu(k,1482)
   11598   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,1246) * lu(k,1482)
   11599   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,1247) * lu(k,1482)
   11600   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,1248) * lu(k,1482)
   11601   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,1249) * lu(k,1482)
   11602   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,1250) * lu(k,1482)
   11603   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,1251) * lu(k,1482)
   11604   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,1252) * lu(k,1482)
   11605   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,1253) * lu(k,1482)
   11606   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,1254) * lu(k,1482)
   11607   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,1255) * lu(k,1482)
   11608   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,1256) * lu(k,1482)
   11609   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,1257) * lu(k,1482)
   11610   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,1258) * lu(k,1482)
   11611   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,1259) * lu(k,1482)
   11612   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,1260) * lu(k,1482)
   11613   114070872 :          lu(k,1524) = lu(k,1524) - lu(k,1242) * lu(k,1523)
   11614   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,1243) * lu(k,1523)
   11615   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,1244) * lu(k,1523)
   11616   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,1245) * lu(k,1523)
   11617   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,1246) * lu(k,1523)
   11618   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,1247) * lu(k,1523)
   11619   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,1248) * lu(k,1523)
   11620   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,1249) * lu(k,1523)
   11621   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,1250) * lu(k,1523)
   11622   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,1251) * lu(k,1523)
   11623   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,1252) * lu(k,1523)
   11624   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,1253) * lu(k,1523)
   11625   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,1254) * lu(k,1523)
   11626   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1255) * lu(k,1523)
   11627   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1256) * lu(k,1523)
   11628   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1257) * lu(k,1523)
   11629   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1258) * lu(k,1523)
   11630   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1259) * lu(k,1523)
   11631   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1260) * lu(k,1523)
   11632   114070872 :          lu(k,1560) = lu(k,1560) - lu(k,1242) * lu(k,1559)
   11633   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,1243) * lu(k,1559)
   11634   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,1244) * lu(k,1559)
   11635   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,1245) * lu(k,1559)
   11636   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,1246) * lu(k,1559)
   11637   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,1247) * lu(k,1559)
   11638   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1248) * lu(k,1559)
   11639   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1249) * lu(k,1559)
   11640   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1250) * lu(k,1559)
   11641   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1251) * lu(k,1559)
   11642   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1252) * lu(k,1559)
   11643   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1253) * lu(k,1559)
   11644   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1254) * lu(k,1559)
   11645   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1255) * lu(k,1559)
   11646   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1256) * lu(k,1559)
   11647   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1257) * lu(k,1559)
   11648   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1258) * lu(k,1559)
   11649   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1259) * lu(k,1559)
   11650   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1260) * lu(k,1559)
   11651   114070872 :          lu(k,1605) = lu(k,1605) - lu(k,1242) * lu(k,1604)
   11652   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,1243) * lu(k,1604)
   11653   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,1244) * lu(k,1604)
   11654   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,1245) * lu(k,1604)
   11655   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,1246) * lu(k,1604)
   11656   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,1247) * lu(k,1604)
   11657   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1248) * lu(k,1604)
   11658   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1249) * lu(k,1604)
   11659   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1250) * lu(k,1604)
   11660   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1251) * lu(k,1604)
   11661   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1252) * lu(k,1604)
   11662   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1253) * lu(k,1604)
   11663   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1254) * lu(k,1604)
   11664   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1255) * lu(k,1604)
   11665   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1256) * lu(k,1604)
   11666   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1257) * lu(k,1604)
   11667   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1258) * lu(k,1604)
   11668   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1259) * lu(k,1604)
   11669   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1260) * lu(k,1604)
   11670   114070872 :          lu(k,1648) = lu(k,1648) - lu(k,1242) * lu(k,1647)
   11671   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,1243) * lu(k,1647)
   11672   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,1244) * lu(k,1647)
   11673   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,1245) * lu(k,1647)
   11674   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,1246) * lu(k,1647)
   11675   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,1247) * lu(k,1647)
   11676   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1248) * lu(k,1647)
   11677   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1249) * lu(k,1647)
   11678   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1250) * lu(k,1647)
   11679   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1251) * lu(k,1647)
   11680   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1252) * lu(k,1647)
   11681   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1253) * lu(k,1647)
   11682   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1254) * lu(k,1647)
   11683   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1255) * lu(k,1647)
   11684   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1256) * lu(k,1647)
   11685   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1257) * lu(k,1647)
   11686   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1258) * lu(k,1647)
   11687   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1259) * lu(k,1647)
   11688   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1260) * lu(k,1647)
   11689   114070872 :          lu(k,1691) = lu(k,1691) - lu(k,1242) * lu(k,1690)
   11690   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,1243) * lu(k,1690)
   11691   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,1244) * lu(k,1690)
   11692   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,1245) * lu(k,1690)
   11693   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,1246) * lu(k,1690)
   11694   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,1247) * lu(k,1690)
   11695   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1248) * lu(k,1690)
   11696   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1249) * lu(k,1690)
   11697   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1250) * lu(k,1690)
   11698   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1251) * lu(k,1690)
   11699   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1252) * lu(k,1690)
   11700   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1253) * lu(k,1690)
   11701   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1254) * lu(k,1690)
   11702   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1255) * lu(k,1690)
   11703   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1256) * lu(k,1690)
   11704   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1257) * lu(k,1690)
   11705   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1258) * lu(k,1690)
   11706   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1259) * lu(k,1690)
   11707   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1260) * lu(k,1690)
   11708   114070872 :          lu(k,1731) = lu(k,1731) - lu(k,1242) * lu(k,1730)
   11709   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,1243) * lu(k,1730)
   11710   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,1244) * lu(k,1730)
   11711   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,1245) * lu(k,1730)
   11712   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,1246) * lu(k,1730)
   11713   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,1247) * lu(k,1730)
   11714   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,1248) * lu(k,1730)
   11715   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1249) * lu(k,1730)
   11716   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1250) * lu(k,1730)
   11717   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1251) * lu(k,1730)
   11718   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1252) * lu(k,1730)
   11719   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1253) * lu(k,1730)
   11720   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1254) * lu(k,1730)
   11721   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1255) * lu(k,1730)
   11722   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1256) * lu(k,1730)
   11723   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1257) * lu(k,1730)
   11724   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1258) * lu(k,1730)
   11725   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1259) * lu(k,1730)
   11726   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1260) * lu(k,1730)
   11727   114070872 :          lu(k,1767) = lu(k,1767) - lu(k,1242) * lu(k,1766)
   11728   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,1243) * lu(k,1766)
   11729   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,1244) * lu(k,1766)
   11730   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,1245) * lu(k,1766)
   11731   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,1246) * lu(k,1766)
   11732   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,1247) * lu(k,1766)
   11733   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1248) * lu(k,1766)
   11734   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1249) * lu(k,1766)
   11735   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1250) * lu(k,1766)
   11736   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1251) * lu(k,1766)
   11737   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1252) * lu(k,1766)
   11738   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1253) * lu(k,1766)
   11739   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1254) * lu(k,1766)
   11740   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1255) * lu(k,1766)
   11741   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1256) * lu(k,1766)
   11742   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1257) * lu(k,1766)
   11743   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1258) * lu(k,1766)
   11744   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1259) * lu(k,1766)
   11745   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1260) * lu(k,1766)
   11746   114070872 :          lu(k,1815) = lu(k,1815) - lu(k,1242) * lu(k,1814)
   11747   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,1243) * lu(k,1814)
   11748   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,1244) * lu(k,1814)
   11749   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,1245) * lu(k,1814)
   11750   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,1246) * lu(k,1814)
   11751   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,1247) * lu(k,1814)
   11752   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1248) * lu(k,1814)
   11753   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1249) * lu(k,1814)
   11754   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1250) * lu(k,1814)
   11755   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1251) * lu(k,1814)
   11756   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1252) * lu(k,1814)
   11757   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1253) * lu(k,1814)
   11758   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1254) * lu(k,1814)
   11759   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1255) * lu(k,1814)
   11760   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1256) * lu(k,1814)
   11761   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1257) * lu(k,1814)
   11762   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1258) * lu(k,1814)
   11763   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1259) * lu(k,1814)
   11764   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1260) * lu(k,1814)
   11765   114070872 :          lu(k,1848) = lu(k,1848) - lu(k,1242) * lu(k,1847)
   11766   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,1243) * lu(k,1847)
   11767   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,1244) * lu(k,1847)
   11768   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,1245) * lu(k,1847)
   11769   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,1246) * lu(k,1847)
   11770   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,1247) * lu(k,1847)
   11771   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1248) * lu(k,1847)
   11772   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1249) * lu(k,1847)
   11773   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1250) * lu(k,1847)
   11774   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1251) * lu(k,1847)
   11775   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1252) * lu(k,1847)
   11776   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1253) * lu(k,1847)
   11777   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1254) * lu(k,1847)
   11778   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1255) * lu(k,1847)
   11779   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1256) * lu(k,1847)
   11780   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1257) * lu(k,1847)
   11781   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1258) * lu(k,1847)
   11782   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1259) * lu(k,1847)
   11783   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1260) * lu(k,1847)
   11784   114070872 :          lu(k,1884) = lu(k,1884) - lu(k,1242) * lu(k,1883)
   11785   114070872 :          lu(k,1885) = lu(k,1885) - lu(k,1243) * lu(k,1883)
   11786   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,1244) * lu(k,1883)
   11787   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,1245) * lu(k,1883)
   11788   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,1246) * lu(k,1883)
   11789   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,1247) * lu(k,1883)
   11790   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1248) * lu(k,1883)
   11791   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1249) * lu(k,1883)
   11792   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1250) * lu(k,1883)
   11793   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1251) * lu(k,1883)
   11794   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1252) * lu(k,1883)
   11795   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1253) * lu(k,1883)
   11796   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1254) * lu(k,1883)
   11797   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1255) * lu(k,1883)
   11798   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1256) * lu(k,1883)
   11799   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1257) * lu(k,1883)
   11800   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1258) * lu(k,1883)
   11801   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1259) * lu(k,1883)
   11802   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1260) * lu(k,1883)
   11803   114070872 :          lu(k,1925) = lu(k,1925) - lu(k,1242) * lu(k,1924)
   11804   114070872 :          lu(k,1926) = lu(k,1926) - lu(k,1243) * lu(k,1924)
   11805   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,1244) * lu(k,1924)
   11806   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,1245) * lu(k,1924)
   11807   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,1246) * lu(k,1924)
   11808   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,1247) * lu(k,1924)
   11809   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1248) * lu(k,1924)
   11810   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1249) * lu(k,1924)
   11811   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1250) * lu(k,1924)
   11812   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1251) * lu(k,1924)
   11813   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1252) * lu(k,1924)
   11814   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1253) * lu(k,1924)
   11815   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1254) * lu(k,1924)
   11816   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1255) * lu(k,1924)
   11817   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1256) * lu(k,1924)
   11818   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1257) * lu(k,1924)
   11819   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1258) * lu(k,1924)
   11820   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1259) * lu(k,1924)
   11821   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1260) * lu(k,1924)
   11822   114070872 :          lu(k,1967) = lu(k,1967) - lu(k,1242) * lu(k,1966)
   11823   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,1243) * lu(k,1966)
   11824   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,1244) * lu(k,1966)
   11825   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,1245) * lu(k,1966)
   11826   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,1246) * lu(k,1966)
   11827   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,1247) * lu(k,1966)
   11828   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1248) * lu(k,1966)
   11829   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1249) * lu(k,1966)
   11830   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1250) * lu(k,1966)
   11831   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1251) * lu(k,1966)
   11832   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1252) * lu(k,1966)
   11833   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1253) * lu(k,1966)
   11834   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1254) * lu(k,1966)
   11835   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1255) * lu(k,1966)
   11836   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1256) * lu(k,1966)
   11837   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1257) * lu(k,1966)
   11838   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1258) * lu(k,1966)
   11839   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1259) * lu(k,1966)
   11840   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1260) * lu(k,1966)
   11841   114070872 :          lu(k,2012) = lu(k,2012) - lu(k,1242) * lu(k,2011)
   11842   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,1243) * lu(k,2011)
   11843   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,1244) * lu(k,2011)
   11844   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,1245) * lu(k,2011)
   11845   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,1246) * lu(k,2011)
   11846   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,1247) * lu(k,2011)
   11847   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1248) * lu(k,2011)
   11848   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1249) * lu(k,2011)
   11849   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1250) * lu(k,2011)
   11850   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1251) * lu(k,2011)
   11851   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1252) * lu(k,2011)
   11852   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1253) * lu(k,2011)
   11853   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1254) * lu(k,2011)
   11854   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1255) * lu(k,2011)
   11855   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1256) * lu(k,2011)
   11856   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1257) * lu(k,2011)
   11857   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1258) * lu(k,2011)
   11858   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1259) * lu(k,2011)
   11859   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1260) * lu(k,2011)
   11860   114070872 :          lu(k,2072) = lu(k,2072) - lu(k,1242) * lu(k,2071)
   11861   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,1243) * lu(k,2071)
   11862   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,1244) * lu(k,2071)
   11863   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,1245) * lu(k,2071)
   11864   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,1246) * lu(k,2071)
   11865   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,1247) * lu(k,2071)
   11866   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1248) * lu(k,2071)
   11867   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1249) * lu(k,2071)
   11868   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1250) * lu(k,2071)
   11869   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1251) * lu(k,2071)
   11870   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1252) * lu(k,2071)
   11871   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1253) * lu(k,2071)
   11872   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1254) * lu(k,2071)
   11873   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1255) * lu(k,2071)
   11874   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1256) * lu(k,2071)
   11875   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1257) * lu(k,2071)
   11876   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1258) * lu(k,2071)
   11877   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1259) * lu(k,2071)
   11878   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1260) * lu(k,2071)
   11879   114070872 :          lu(k,1284) = 1._r8 / lu(k,1284)
   11880   114070872 :          lu(k,1285) = lu(k,1285) * lu(k,1284)
   11881   114070872 :          lu(k,1286) = lu(k,1286) * lu(k,1284)
   11882   114070872 :          lu(k,1287) = lu(k,1287) * lu(k,1284)
   11883   114070872 :          lu(k,1288) = lu(k,1288) * lu(k,1284)
   11884   114070872 :          lu(k,1289) = lu(k,1289) * lu(k,1284)
   11885   114070872 :          lu(k,1290) = lu(k,1290) * lu(k,1284)
   11886   114070872 :          lu(k,1291) = lu(k,1291) * lu(k,1284)
   11887   114070872 :          lu(k,1292) = lu(k,1292) * lu(k,1284)
   11888   114070872 :          lu(k,1293) = lu(k,1293) * lu(k,1284)
   11889   114070872 :          lu(k,1294) = lu(k,1294) * lu(k,1284)
   11890   114070872 :          lu(k,1295) = lu(k,1295) * lu(k,1284)
   11891   114070872 :          lu(k,1296) = lu(k,1296) * lu(k,1284)
   11892   114070872 :          lu(k,1297) = lu(k,1297) * lu(k,1284)
   11893   114070872 :          lu(k,1298) = lu(k,1298) * lu(k,1284)
   11894   114070872 :          lu(k,1299) = lu(k,1299) * lu(k,1284)
   11895   114070872 :          lu(k,1300) = lu(k,1300) * lu(k,1284)
   11896   114070872 :          lu(k,1301) = lu(k,1301) * lu(k,1284)
   11897   114070872 :          lu(k,1302) = lu(k,1302) * lu(k,1284)
   11898   114070872 :          lu(k,1327) = lu(k,1327) - lu(k,1285) * lu(k,1326)
   11899   114070872 :          lu(k,1328) = lu(k,1328) - lu(k,1286) * lu(k,1326)
   11900   114070872 :          lu(k,1329) = lu(k,1329) - lu(k,1287) * lu(k,1326)
   11901   114070872 :          lu(k,1330) = lu(k,1330) - lu(k,1288) * lu(k,1326)
   11902   114070872 :          lu(k,1331) = lu(k,1331) - lu(k,1289) * lu(k,1326)
   11903   114070872 :          lu(k,1332) = lu(k,1332) - lu(k,1290) * lu(k,1326)
   11904   114070872 :          lu(k,1333) = lu(k,1333) - lu(k,1291) * lu(k,1326)
   11905   114070872 :          lu(k,1334) = lu(k,1334) - lu(k,1292) * lu(k,1326)
   11906   114070872 :          lu(k,1335) = lu(k,1335) - lu(k,1293) * lu(k,1326)
   11907   114070872 :          lu(k,1336) = lu(k,1336) - lu(k,1294) * lu(k,1326)
   11908   114070872 :          lu(k,1337) = lu(k,1337) - lu(k,1295) * lu(k,1326)
   11909   114070872 :          lu(k,1338) = lu(k,1338) - lu(k,1296) * lu(k,1326)
   11910   114070872 :          lu(k,1339) = lu(k,1339) - lu(k,1297) * lu(k,1326)
   11911   114070872 :          lu(k,1340) = lu(k,1340) - lu(k,1298) * lu(k,1326)
   11912   114070872 :          lu(k,1341) = lu(k,1341) - lu(k,1299) * lu(k,1326)
   11913   114070872 :          lu(k,1342) = lu(k,1342) - lu(k,1300) * lu(k,1326)
   11914   114070872 :          lu(k,1343) = lu(k,1343) - lu(k,1301) * lu(k,1326)
   11915   114070872 :          lu(k,1344) = lu(k,1344) - lu(k,1302) * lu(k,1326)
   11916   114070872 :          lu(k,1387) = lu(k,1387) - lu(k,1285) * lu(k,1386)
   11917   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,1286) * lu(k,1386)
   11918   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,1287) * lu(k,1386)
   11919   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,1288) * lu(k,1386)
   11920   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,1289) * lu(k,1386)
   11921   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,1290) * lu(k,1386)
   11922   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,1291) * lu(k,1386)
   11923   114070872 :          lu(k,1394) = lu(k,1394) - lu(k,1292) * lu(k,1386)
   11924   114070872 :          lu(k,1395) = lu(k,1395) - lu(k,1293) * lu(k,1386)
   11925   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,1294) * lu(k,1386)
   11926   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,1295) * lu(k,1386)
   11927   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,1296) * lu(k,1386)
   11928   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,1297) * lu(k,1386)
   11929   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,1298) * lu(k,1386)
   11930   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,1299) * lu(k,1386)
   11931   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,1300) * lu(k,1386)
   11932   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,1301) * lu(k,1386)
   11933   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,1302) * lu(k,1386)
   11934   114070872 :          lu(k,1436) = lu(k,1436) - lu(k,1285) * lu(k,1435)
   11935   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,1286) * lu(k,1435)
   11936   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,1287) * lu(k,1435)
   11937   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,1288) * lu(k,1435)
   11938   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,1289) * lu(k,1435)
   11939   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,1290) * lu(k,1435)
   11940   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,1291) * lu(k,1435)
   11941   114070872 :          lu(k,1443) = lu(k,1443) - lu(k,1292) * lu(k,1435)
   11942   114070872 :          lu(k,1444) = lu(k,1444) - lu(k,1293) * lu(k,1435)
   11943   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,1294) * lu(k,1435)
   11944   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,1295) * lu(k,1435)
   11945   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,1296) * lu(k,1435)
   11946   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,1297) * lu(k,1435)
   11947   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,1298) * lu(k,1435)
   11948   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,1299) * lu(k,1435)
   11949   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,1300) * lu(k,1435)
   11950   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,1301) * lu(k,1435)
   11951   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,1302) * lu(k,1435)
   11952   114070872 :          lu(k,1484) = lu(k,1484) - lu(k,1285) * lu(k,1483)
   11953   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,1286) * lu(k,1483)
   11954   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,1287) * lu(k,1483)
   11955   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,1288) * lu(k,1483)
   11956   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,1289) * lu(k,1483)
   11957   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,1290) * lu(k,1483)
   11958   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,1291) * lu(k,1483)
   11959   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,1292) * lu(k,1483)
   11960   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,1293) * lu(k,1483)
   11961   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,1294) * lu(k,1483)
   11962   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,1295) * lu(k,1483)
   11963   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,1296) * lu(k,1483)
   11964   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,1297) * lu(k,1483)
   11965   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,1298) * lu(k,1483)
   11966   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,1299) * lu(k,1483)
   11967   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,1300) * lu(k,1483)
   11968   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,1301) * lu(k,1483)
   11969   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,1302) * lu(k,1483)
   11970   114070872 :          lu(k,1525) = lu(k,1525) - lu(k,1285) * lu(k,1524)
   11971   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,1286) * lu(k,1524)
   11972   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,1287) * lu(k,1524)
   11973   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,1288) * lu(k,1524)
   11974   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,1289) * lu(k,1524)
   11975   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,1290) * lu(k,1524)
   11976   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,1291) * lu(k,1524)
   11977   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,1292) * lu(k,1524)
   11978   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,1293) * lu(k,1524)
   11979   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,1294) * lu(k,1524)
   11980   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,1295) * lu(k,1524)
   11981   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,1296) * lu(k,1524)
   11982   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1297) * lu(k,1524)
   11983   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1298) * lu(k,1524)
   11984   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1299) * lu(k,1524)
   11985   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1300) * lu(k,1524)
   11986   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1301) * lu(k,1524)
   11987   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1302) * lu(k,1524)
   11988   114070872 :          lu(k,1561) = lu(k,1561) - lu(k,1285) * lu(k,1560)
   11989   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,1286) * lu(k,1560)
   11990   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,1287) * lu(k,1560)
   11991   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,1288) * lu(k,1560)
   11992   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,1289) * lu(k,1560)
   11993   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1290) * lu(k,1560)
   11994   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1291) * lu(k,1560)
   11995   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1292) * lu(k,1560)
   11996   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1293) * lu(k,1560)
   11997   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1294) * lu(k,1560)
   11998   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1295) * lu(k,1560)
   11999   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1296) * lu(k,1560)
   12000   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1297) * lu(k,1560)
   12001   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1298) * lu(k,1560)
   12002   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1299) * lu(k,1560)
   12003   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1300) * lu(k,1560)
   12004   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1301) * lu(k,1560)
   12005   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1302) * lu(k,1560)
   12006   114070872 :          lu(k,1606) = lu(k,1606) - lu(k,1285) * lu(k,1605)
   12007   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,1286) * lu(k,1605)
   12008   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,1287) * lu(k,1605)
   12009   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,1288) * lu(k,1605)
   12010   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,1289) * lu(k,1605)
   12011   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1290) * lu(k,1605)
   12012   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1291) * lu(k,1605)
   12013   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1292) * lu(k,1605)
   12014   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1293) * lu(k,1605)
   12015   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1294) * lu(k,1605)
   12016   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1295) * lu(k,1605)
   12017   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1296) * lu(k,1605)
   12018   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1297) * lu(k,1605)
   12019   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1298) * lu(k,1605)
   12020   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1299) * lu(k,1605)
   12021   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1300) * lu(k,1605)
   12022   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1301) * lu(k,1605)
   12023   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1302) * lu(k,1605)
   12024   114070872 :          lu(k,1649) = lu(k,1649) - lu(k,1285) * lu(k,1648)
   12025   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,1286) * lu(k,1648)
   12026   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,1287) * lu(k,1648)
   12027   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,1288) * lu(k,1648)
   12028   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,1289) * lu(k,1648)
   12029   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1290) * lu(k,1648)
   12030   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1291) * lu(k,1648)
   12031   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1292) * lu(k,1648)
   12032   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1293) * lu(k,1648)
   12033   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1294) * lu(k,1648)
   12034   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1295) * lu(k,1648)
   12035   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1296) * lu(k,1648)
   12036   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1297) * lu(k,1648)
   12037   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1298) * lu(k,1648)
   12038   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1299) * lu(k,1648)
   12039   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1300) * lu(k,1648)
   12040   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1301) * lu(k,1648)
   12041   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1302) * lu(k,1648)
   12042   114070872 :          lu(k,1692) = lu(k,1692) - lu(k,1285) * lu(k,1691)
   12043   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,1286) * lu(k,1691)
   12044   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,1287) * lu(k,1691)
   12045   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,1288) * lu(k,1691)
   12046   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,1289) * lu(k,1691)
   12047   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1290) * lu(k,1691)
   12048   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1291) * lu(k,1691)
   12049   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1292) * lu(k,1691)
   12050   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1293) * lu(k,1691)
   12051   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1294) * lu(k,1691)
   12052   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1295) * lu(k,1691)
   12053   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1296) * lu(k,1691)
   12054   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1297) * lu(k,1691)
   12055   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1298) * lu(k,1691)
   12056   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1299) * lu(k,1691)
   12057   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1300) * lu(k,1691)
   12058   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1301) * lu(k,1691)
   12059   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1302) * lu(k,1691)
   12060   114070872 :          lu(k,1732) = lu(k,1732) - lu(k,1285) * lu(k,1731)
   12061   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,1286) * lu(k,1731)
   12062   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,1287) * lu(k,1731)
   12063   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,1288) * lu(k,1731)
   12064   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,1289) * lu(k,1731)
   12065   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,1290) * lu(k,1731)
   12066   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1291) * lu(k,1731)
   12067   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1292) * lu(k,1731)
   12068   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1293) * lu(k,1731)
   12069   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1294) * lu(k,1731)
   12070   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1295) * lu(k,1731)
   12071   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1296) * lu(k,1731)
   12072   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1297) * lu(k,1731)
   12073   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1298) * lu(k,1731)
   12074   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1299) * lu(k,1731)
   12075   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1300) * lu(k,1731)
   12076   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1301) * lu(k,1731)
   12077   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1302) * lu(k,1731)
   12078   114070872 :          lu(k,1768) = lu(k,1768) - lu(k,1285) * lu(k,1767)
   12079   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,1286) * lu(k,1767)
   12080   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,1287) * lu(k,1767)
   12081   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,1288) * lu(k,1767)
   12082   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,1289) * lu(k,1767)
   12083   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1290) * lu(k,1767)
   12084   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1291) * lu(k,1767)
   12085   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1292) * lu(k,1767)
   12086   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1293) * lu(k,1767)
   12087   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1294) * lu(k,1767)
   12088   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1295) * lu(k,1767)
   12089   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1296) * lu(k,1767)
   12090   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1297) * lu(k,1767)
   12091   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1298) * lu(k,1767)
   12092   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1299) * lu(k,1767)
   12093   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1300) * lu(k,1767)
   12094   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1301) * lu(k,1767)
   12095   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1302) * lu(k,1767)
   12096   114070872 :          lu(k,1816) = lu(k,1816) - lu(k,1285) * lu(k,1815)
   12097   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,1286) * lu(k,1815)
   12098   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,1287) * lu(k,1815)
   12099   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,1288) * lu(k,1815)
   12100   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,1289) * lu(k,1815)
   12101   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1290) * lu(k,1815)
   12102   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1291) * lu(k,1815)
   12103   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1292) * lu(k,1815)
   12104   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1293) * lu(k,1815)
   12105   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1294) * lu(k,1815)
   12106   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1295) * lu(k,1815)
   12107   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1296) * lu(k,1815)
   12108   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1297) * lu(k,1815)
   12109   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1298) * lu(k,1815)
   12110   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1299) * lu(k,1815)
   12111   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1300) * lu(k,1815)
   12112   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1301) * lu(k,1815)
   12113   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1302) * lu(k,1815)
   12114   114070872 :          lu(k,1849) = lu(k,1849) - lu(k,1285) * lu(k,1848)
   12115   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,1286) * lu(k,1848)
   12116   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,1287) * lu(k,1848)
   12117   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,1288) * lu(k,1848)
   12118   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,1289) * lu(k,1848)
   12119   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1290) * lu(k,1848)
   12120   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1291) * lu(k,1848)
   12121   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1292) * lu(k,1848)
   12122   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1293) * lu(k,1848)
   12123   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1294) * lu(k,1848)
   12124   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1295) * lu(k,1848)
   12125   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1296) * lu(k,1848)
   12126   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1297) * lu(k,1848)
   12127   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1298) * lu(k,1848)
   12128   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1299) * lu(k,1848)
   12129   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1300) * lu(k,1848)
   12130   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1301) * lu(k,1848)
   12131   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1302) * lu(k,1848)
   12132   114070872 :          lu(k,1885) = lu(k,1885) - lu(k,1285) * lu(k,1884)
   12133   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,1286) * lu(k,1884)
   12134   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,1287) * lu(k,1884)
   12135   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,1288) * lu(k,1884)
   12136   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,1289) * lu(k,1884)
   12137   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1290) * lu(k,1884)
   12138   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1291) * lu(k,1884)
   12139   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1292) * lu(k,1884)
   12140   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1293) * lu(k,1884)
   12141   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1294) * lu(k,1884)
   12142   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1295) * lu(k,1884)
   12143   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1296) * lu(k,1884)
   12144   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1297) * lu(k,1884)
   12145   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1298) * lu(k,1884)
   12146   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1299) * lu(k,1884)
   12147   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1300) * lu(k,1884)
   12148   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1301) * lu(k,1884)
   12149   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1302) * lu(k,1884)
   12150   114070872 :          lu(k,1926) = lu(k,1926) - lu(k,1285) * lu(k,1925)
   12151   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,1286) * lu(k,1925)
   12152   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,1287) * lu(k,1925)
   12153   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,1288) * lu(k,1925)
   12154   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,1289) * lu(k,1925)
   12155   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1290) * lu(k,1925)
   12156   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1291) * lu(k,1925)
   12157   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1292) * lu(k,1925)
   12158   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1293) * lu(k,1925)
   12159   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1294) * lu(k,1925)
   12160   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1295) * lu(k,1925)
   12161   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1296) * lu(k,1925)
   12162   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1297) * lu(k,1925)
   12163   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1298) * lu(k,1925)
   12164   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1299) * lu(k,1925)
   12165   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1300) * lu(k,1925)
   12166   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1301) * lu(k,1925)
   12167   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1302) * lu(k,1925)
   12168   114070872 :          lu(k,1968) = lu(k,1968) - lu(k,1285) * lu(k,1967)
   12169   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,1286) * lu(k,1967)
   12170   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,1287) * lu(k,1967)
   12171   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,1288) * lu(k,1967)
   12172   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,1289) * lu(k,1967)
   12173   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1290) * lu(k,1967)
   12174   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1291) * lu(k,1967)
   12175   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1292) * lu(k,1967)
   12176   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1293) * lu(k,1967)
   12177   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1294) * lu(k,1967)
   12178   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1295) * lu(k,1967)
   12179   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1296) * lu(k,1967)
   12180   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1297) * lu(k,1967)
   12181   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1298) * lu(k,1967)
   12182   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1299) * lu(k,1967)
   12183   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1300) * lu(k,1967)
   12184   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1301) * lu(k,1967)
   12185   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1302) * lu(k,1967)
   12186   114070872 :          lu(k,2013) = lu(k,2013) - lu(k,1285) * lu(k,2012)
   12187   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,1286) * lu(k,2012)
   12188   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,1287) * lu(k,2012)
   12189   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,1288) * lu(k,2012)
   12190   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,1289) * lu(k,2012)
   12191   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1290) * lu(k,2012)
   12192   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1291) * lu(k,2012)
   12193   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1292) * lu(k,2012)
   12194   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1293) * lu(k,2012)
   12195   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1294) * lu(k,2012)
   12196   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1295) * lu(k,2012)
   12197   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1296) * lu(k,2012)
   12198   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1297) * lu(k,2012)
   12199   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1298) * lu(k,2012)
   12200   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1299) * lu(k,2012)
   12201   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1300) * lu(k,2012)
   12202   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1301) * lu(k,2012)
   12203   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1302) * lu(k,2012)
   12204   114070872 :          lu(k,2073) = lu(k,2073) - lu(k,1285) * lu(k,2072)
   12205   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,1286) * lu(k,2072)
   12206   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,1287) * lu(k,2072)
   12207   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,1288) * lu(k,2072)
   12208   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,1289) * lu(k,2072)
   12209   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1290) * lu(k,2072)
   12210   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1291) * lu(k,2072)
   12211   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1292) * lu(k,2072)
   12212   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1293) * lu(k,2072)
   12213   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1294) * lu(k,2072)
   12214   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1295) * lu(k,2072)
   12215   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1296) * lu(k,2072)
   12216   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1297) * lu(k,2072)
   12217   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1298) * lu(k,2072)
   12218   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1299) * lu(k,2072)
   12219   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1300) * lu(k,2072)
   12220   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1301) * lu(k,2072)
   12221   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1302) * lu(k,2072)
   12222   114070872 :          lu(k,1327) = 1._r8 / lu(k,1327)
   12223   114070872 :          lu(k,1328) = lu(k,1328) * lu(k,1327)
   12224   114070872 :          lu(k,1329) = lu(k,1329) * lu(k,1327)
   12225   114070872 :          lu(k,1330) = lu(k,1330) * lu(k,1327)
   12226   114070872 :          lu(k,1331) = lu(k,1331) * lu(k,1327)
   12227   114070872 :          lu(k,1332) = lu(k,1332) * lu(k,1327)
   12228   114070872 :          lu(k,1333) = lu(k,1333) * lu(k,1327)
   12229   114070872 :          lu(k,1334) = lu(k,1334) * lu(k,1327)
   12230   114070872 :          lu(k,1335) = lu(k,1335) * lu(k,1327)
   12231   114070872 :          lu(k,1336) = lu(k,1336) * lu(k,1327)
   12232   114070872 :          lu(k,1337) = lu(k,1337) * lu(k,1327)
   12233   114070872 :          lu(k,1338) = lu(k,1338) * lu(k,1327)
   12234   114070872 :          lu(k,1339) = lu(k,1339) * lu(k,1327)
   12235   114070872 :          lu(k,1340) = lu(k,1340) * lu(k,1327)
   12236   114070872 :          lu(k,1341) = lu(k,1341) * lu(k,1327)
   12237   114070872 :          lu(k,1342) = lu(k,1342) * lu(k,1327)
   12238   114070872 :          lu(k,1343) = lu(k,1343) * lu(k,1327)
   12239   114070872 :          lu(k,1344) = lu(k,1344) * lu(k,1327)
   12240   114070872 :          lu(k,1388) = lu(k,1388) - lu(k,1328) * lu(k,1387)
   12241   114070872 :          lu(k,1389) = lu(k,1389) - lu(k,1329) * lu(k,1387)
   12242   114070872 :          lu(k,1390) = lu(k,1390) - lu(k,1330) * lu(k,1387)
   12243   114070872 :          lu(k,1391) = lu(k,1391) - lu(k,1331) * lu(k,1387)
   12244   114070872 :          lu(k,1392) = lu(k,1392) - lu(k,1332) * lu(k,1387)
   12245   114070872 :          lu(k,1393) = lu(k,1393) - lu(k,1333) * lu(k,1387)
   12246   114070872 :          lu(k,1394) = lu(k,1394) - lu(k,1334) * lu(k,1387)
   12247   114070872 :          lu(k,1395) = lu(k,1395) - lu(k,1335) * lu(k,1387)
   12248   114070872 :          lu(k,1396) = lu(k,1396) - lu(k,1336) * lu(k,1387)
   12249   114070872 :          lu(k,1397) = lu(k,1397) - lu(k,1337) * lu(k,1387)
   12250   114070872 :          lu(k,1398) = lu(k,1398) - lu(k,1338) * lu(k,1387)
   12251   114070872 :          lu(k,1399) = lu(k,1399) - lu(k,1339) * lu(k,1387)
   12252   114070872 :          lu(k,1400) = lu(k,1400) - lu(k,1340) * lu(k,1387)
   12253   114070872 :          lu(k,1401) = lu(k,1401) - lu(k,1341) * lu(k,1387)
   12254   114070872 :          lu(k,1402) = lu(k,1402) - lu(k,1342) * lu(k,1387)
   12255   114070872 :          lu(k,1403) = lu(k,1403) - lu(k,1343) * lu(k,1387)
   12256   114070872 :          lu(k,1404) = lu(k,1404) - lu(k,1344) * lu(k,1387)
   12257   114070872 :          lu(k,1437) = lu(k,1437) - lu(k,1328) * lu(k,1436)
   12258   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,1329) * lu(k,1436)
   12259   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,1330) * lu(k,1436)
   12260   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,1331) * lu(k,1436)
   12261   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,1332) * lu(k,1436)
   12262   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,1333) * lu(k,1436)
   12263   114070872 :          lu(k,1443) = lu(k,1443) - lu(k,1334) * lu(k,1436)
   12264   114070872 :          lu(k,1444) = lu(k,1444) - lu(k,1335) * lu(k,1436)
   12265   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,1336) * lu(k,1436)
   12266   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,1337) * lu(k,1436)
   12267   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,1338) * lu(k,1436)
   12268   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,1339) * lu(k,1436)
   12269   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,1340) * lu(k,1436)
   12270   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,1341) * lu(k,1436)
   12271   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,1342) * lu(k,1436)
   12272   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,1343) * lu(k,1436)
   12273   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,1344) * lu(k,1436)
   12274   114070872 :          lu(k,1485) = lu(k,1485) - lu(k,1328) * lu(k,1484)
   12275   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,1329) * lu(k,1484)
   12276   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,1330) * lu(k,1484)
   12277   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,1331) * lu(k,1484)
   12278   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,1332) * lu(k,1484)
   12279   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,1333) * lu(k,1484)
   12280   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,1334) * lu(k,1484)
   12281   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,1335) * lu(k,1484)
   12282   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,1336) * lu(k,1484)
   12283   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,1337) * lu(k,1484)
   12284   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,1338) * lu(k,1484)
   12285   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,1339) * lu(k,1484)
   12286   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,1340) * lu(k,1484)
   12287   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,1341) * lu(k,1484)
   12288   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,1342) * lu(k,1484)
   12289   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,1343) * lu(k,1484)
   12290   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,1344) * lu(k,1484)
   12291   114070872 :          lu(k,1526) = lu(k,1526) - lu(k,1328) * lu(k,1525)
   12292   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,1329) * lu(k,1525)
   12293   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,1330) * lu(k,1525)
   12294   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,1331) * lu(k,1525)
   12295   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,1332) * lu(k,1525)
   12296   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,1333) * lu(k,1525)
   12297   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,1334) * lu(k,1525)
   12298   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,1335) * lu(k,1525)
   12299   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,1336) * lu(k,1525)
   12300   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,1337) * lu(k,1525)
   12301   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,1338) * lu(k,1525)
   12302   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1339) * lu(k,1525)
   12303   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1340) * lu(k,1525)
   12304   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1341) * lu(k,1525)
   12305   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1342) * lu(k,1525)
   12306   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1343) * lu(k,1525)
   12307   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1344) * lu(k,1525)
   12308   114070872 :          lu(k,1562) = lu(k,1562) - lu(k,1328) * lu(k,1561)
   12309   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,1329) * lu(k,1561)
   12310   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,1330) * lu(k,1561)
   12311   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,1331) * lu(k,1561)
   12312   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1332) * lu(k,1561)
   12313   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1333) * lu(k,1561)
   12314   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1334) * lu(k,1561)
   12315   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1335) * lu(k,1561)
   12316   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1336) * lu(k,1561)
   12317   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1337) * lu(k,1561)
   12318   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1338) * lu(k,1561)
   12319   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1339) * lu(k,1561)
   12320   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1340) * lu(k,1561)
   12321   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1341) * lu(k,1561)
   12322   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1342) * lu(k,1561)
   12323   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1343) * lu(k,1561)
   12324   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1344) * lu(k,1561)
   12325   114070872 :          lu(k,1607) = lu(k,1607) - lu(k,1328) * lu(k,1606)
   12326   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,1329) * lu(k,1606)
   12327   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,1330) * lu(k,1606)
   12328   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,1331) * lu(k,1606)
   12329   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1332) * lu(k,1606)
   12330   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1333) * lu(k,1606)
   12331   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1334) * lu(k,1606)
   12332   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1335) * lu(k,1606)
   12333   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1336) * lu(k,1606)
   12334   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1337) * lu(k,1606)
   12335   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1338) * lu(k,1606)
   12336   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1339) * lu(k,1606)
   12337   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1340) * lu(k,1606)
   12338   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1341) * lu(k,1606)
   12339   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1342) * lu(k,1606)
   12340   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1343) * lu(k,1606)
   12341   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1344) * lu(k,1606)
   12342   114070872 :          lu(k,1650) = lu(k,1650) - lu(k,1328) * lu(k,1649)
   12343   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,1329) * lu(k,1649)
   12344   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,1330) * lu(k,1649)
   12345   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,1331) * lu(k,1649)
   12346   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1332) * lu(k,1649)
   12347   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1333) * lu(k,1649)
   12348   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1334) * lu(k,1649)
   12349   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1335) * lu(k,1649)
   12350   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1336) * lu(k,1649)
   12351   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1337) * lu(k,1649)
   12352   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1338) * lu(k,1649)
   12353   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1339) * lu(k,1649)
   12354   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1340) * lu(k,1649)
   12355   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1341) * lu(k,1649)
   12356   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1342) * lu(k,1649)
   12357   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1343) * lu(k,1649)
   12358   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1344) * lu(k,1649)
   12359   114070872 :          lu(k,1693) = lu(k,1693) - lu(k,1328) * lu(k,1692)
   12360   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,1329) * lu(k,1692)
   12361   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,1330) * lu(k,1692)
   12362   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,1331) * lu(k,1692)
   12363   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1332) * lu(k,1692)
   12364   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1333) * lu(k,1692)
   12365   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1334) * lu(k,1692)
   12366   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1335) * lu(k,1692)
   12367   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1336) * lu(k,1692)
   12368   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1337) * lu(k,1692)
   12369   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1338) * lu(k,1692)
   12370   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1339) * lu(k,1692)
   12371   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1340) * lu(k,1692)
   12372   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1341) * lu(k,1692)
   12373   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1342) * lu(k,1692)
   12374   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1343) * lu(k,1692)
   12375   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1344) * lu(k,1692)
   12376   114070872 :          lu(k,1733) = lu(k,1733) - lu(k,1328) * lu(k,1732)
   12377   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,1329) * lu(k,1732)
   12378   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,1330) * lu(k,1732)
   12379   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,1331) * lu(k,1732)
   12380   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,1332) * lu(k,1732)
   12381   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1333) * lu(k,1732)
   12382   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1334) * lu(k,1732)
   12383   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1335) * lu(k,1732)
   12384   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1336) * lu(k,1732)
   12385   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1337) * lu(k,1732)
   12386   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1338) * lu(k,1732)
   12387   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1339) * lu(k,1732)
   12388   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1340) * lu(k,1732)
   12389   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1341) * lu(k,1732)
   12390   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1342) * lu(k,1732)
   12391   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1343) * lu(k,1732)
   12392   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1344) * lu(k,1732)
   12393   114070872 :          lu(k,1769) = lu(k,1769) - lu(k,1328) * lu(k,1768)
   12394   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,1329) * lu(k,1768)
   12395   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,1330) * lu(k,1768)
   12396   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,1331) * lu(k,1768)
   12397   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1332) * lu(k,1768)
   12398   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1333) * lu(k,1768)
   12399   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1334) * lu(k,1768)
   12400   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1335) * lu(k,1768)
   12401   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1336) * lu(k,1768)
   12402   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1337) * lu(k,1768)
   12403   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1338) * lu(k,1768)
   12404   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1339) * lu(k,1768)
   12405   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1340) * lu(k,1768)
   12406   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1341) * lu(k,1768)
   12407   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1342) * lu(k,1768)
   12408   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1343) * lu(k,1768)
   12409   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1344) * lu(k,1768)
   12410   114070872 :          lu(k,1817) = lu(k,1817) - lu(k,1328) * lu(k,1816)
   12411   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,1329) * lu(k,1816)
   12412   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,1330) * lu(k,1816)
   12413   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,1331) * lu(k,1816)
   12414   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1332) * lu(k,1816)
   12415   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1333) * lu(k,1816)
   12416   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1334) * lu(k,1816)
   12417   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1335) * lu(k,1816)
   12418   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1336) * lu(k,1816)
   12419   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1337) * lu(k,1816)
   12420   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1338) * lu(k,1816)
   12421   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1339) * lu(k,1816)
   12422   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1340) * lu(k,1816)
   12423   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1341) * lu(k,1816)
   12424   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1342) * lu(k,1816)
   12425   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1343) * lu(k,1816)
   12426   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1344) * lu(k,1816)
   12427   114070872 :          lu(k,1850) = lu(k,1850) - lu(k,1328) * lu(k,1849)
   12428   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,1329) * lu(k,1849)
   12429   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,1330) * lu(k,1849)
   12430   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,1331) * lu(k,1849)
   12431   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1332) * lu(k,1849)
   12432   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1333) * lu(k,1849)
   12433   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1334) * lu(k,1849)
   12434   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1335) * lu(k,1849)
   12435   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1336) * lu(k,1849)
   12436   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1337) * lu(k,1849)
   12437   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1338) * lu(k,1849)
   12438   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1339) * lu(k,1849)
   12439   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1340) * lu(k,1849)
   12440   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1341) * lu(k,1849)
   12441   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1342) * lu(k,1849)
   12442   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1343) * lu(k,1849)
   12443   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1344) * lu(k,1849)
   12444   114070872 :          lu(k,1886) = lu(k,1886) - lu(k,1328) * lu(k,1885)
   12445   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,1329) * lu(k,1885)
   12446   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,1330) * lu(k,1885)
   12447   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,1331) * lu(k,1885)
   12448   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1332) * lu(k,1885)
   12449   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1333) * lu(k,1885)
   12450   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1334) * lu(k,1885)
   12451   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1335) * lu(k,1885)
   12452   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1336) * lu(k,1885)
   12453   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1337) * lu(k,1885)
   12454   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1338) * lu(k,1885)
   12455   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1339) * lu(k,1885)
   12456   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1340) * lu(k,1885)
   12457   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1341) * lu(k,1885)
   12458   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1342) * lu(k,1885)
   12459   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1343) * lu(k,1885)
   12460   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1344) * lu(k,1885)
   12461   114070872 :          lu(k,1927) = lu(k,1927) - lu(k,1328) * lu(k,1926)
   12462   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,1329) * lu(k,1926)
   12463   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,1330) * lu(k,1926)
   12464   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,1331) * lu(k,1926)
   12465   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1332) * lu(k,1926)
   12466   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1333) * lu(k,1926)
   12467   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1334) * lu(k,1926)
   12468   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1335) * lu(k,1926)
   12469   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1336) * lu(k,1926)
   12470   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1337) * lu(k,1926)
   12471   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1338) * lu(k,1926)
   12472   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1339) * lu(k,1926)
   12473   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1340) * lu(k,1926)
   12474   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1341) * lu(k,1926)
   12475   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1342) * lu(k,1926)
   12476   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1343) * lu(k,1926)
   12477   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1344) * lu(k,1926)
   12478   114070872 :          lu(k,1969) = lu(k,1969) - lu(k,1328) * lu(k,1968)
   12479   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,1329) * lu(k,1968)
   12480   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,1330) * lu(k,1968)
   12481   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,1331) * lu(k,1968)
   12482   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1332) * lu(k,1968)
   12483   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1333) * lu(k,1968)
   12484   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1334) * lu(k,1968)
   12485   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1335) * lu(k,1968)
   12486   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1336) * lu(k,1968)
   12487   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1337) * lu(k,1968)
   12488   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1338) * lu(k,1968)
   12489   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1339) * lu(k,1968)
   12490   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1340) * lu(k,1968)
   12491   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1341) * lu(k,1968)
   12492   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1342) * lu(k,1968)
   12493   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1343) * lu(k,1968)
   12494   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1344) * lu(k,1968)
   12495   114070872 :          lu(k,2014) = lu(k,2014) - lu(k,1328) * lu(k,2013)
   12496   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,1329) * lu(k,2013)
   12497   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,1330) * lu(k,2013)
   12498   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,1331) * lu(k,2013)
   12499   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1332) * lu(k,2013)
   12500   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1333) * lu(k,2013)
   12501   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1334) * lu(k,2013)
   12502   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1335) * lu(k,2013)
   12503   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1336) * lu(k,2013)
   12504   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1337) * lu(k,2013)
   12505   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1338) * lu(k,2013)
   12506   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1339) * lu(k,2013)
   12507   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1340) * lu(k,2013)
   12508   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1341) * lu(k,2013)
   12509   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1342) * lu(k,2013)
   12510   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1343) * lu(k,2013)
   12511   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1344) * lu(k,2013)
   12512   114070872 :          lu(k,2074) = lu(k,2074) - lu(k,1328) * lu(k,2073)
   12513   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,1329) * lu(k,2073)
   12514   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,1330) * lu(k,2073)
   12515   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,1331) * lu(k,2073)
   12516   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1332) * lu(k,2073)
   12517   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1333) * lu(k,2073)
   12518   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1334) * lu(k,2073)
   12519   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1335) * lu(k,2073)
   12520   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1336) * lu(k,2073)
   12521   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1337) * lu(k,2073)
   12522   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1338) * lu(k,2073)
   12523   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1339) * lu(k,2073)
   12524   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1340) * lu(k,2073)
   12525   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1341) * lu(k,2073)
   12526   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1342) * lu(k,2073)
   12527   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1343) * lu(k,2073)
   12528   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,1344) * lu(k,2073)
   12529             :       end do
   12530     3585597 :       end subroutine lu_fac23
   12531     3585597 :       subroutine lu_fac24( avec_len, lu )
   12532             :       use chem_mods, only : nzcnt
   12533             :       use shr_kind_mod, only : r8 => shr_kind_r8
   12534             :       implicit none
   12535             : !-----------------------------------------------------------------------
   12536             : ! ... dummy args
   12537             : !-----------------------------------------------------------------------
   12538             :       integer, intent(in) :: avec_len
   12539             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   12540             : !-----------------------------------------------------------------------
   12541             : ! ... local variables
   12542             : !-----------------------------------------------------------------------
   12543             :       integer :: k
   12544   117656469 :       do k = 1,avec_len
   12545   114070872 :          lu(k,1388) = 1._r8 / lu(k,1388)
   12546   114070872 :          lu(k,1389) = lu(k,1389) * lu(k,1388)
   12547   114070872 :          lu(k,1390) = lu(k,1390) * lu(k,1388)
   12548   114070872 :          lu(k,1391) = lu(k,1391) * lu(k,1388)
   12549   114070872 :          lu(k,1392) = lu(k,1392) * lu(k,1388)
   12550   114070872 :          lu(k,1393) = lu(k,1393) * lu(k,1388)
   12551   114070872 :          lu(k,1394) = lu(k,1394) * lu(k,1388)
   12552   114070872 :          lu(k,1395) = lu(k,1395) * lu(k,1388)
   12553   114070872 :          lu(k,1396) = lu(k,1396) * lu(k,1388)
   12554   114070872 :          lu(k,1397) = lu(k,1397) * lu(k,1388)
   12555   114070872 :          lu(k,1398) = lu(k,1398) * lu(k,1388)
   12556   114070872 :          lu(k,1399) = lu(k,1399) * lu(k,1388)
   12557   114070872 :          lu(k,1400) = lu(k,1400) * lu(k,1388)
   12558   114070872 :          lu(k,1401) = lu(k,1401) * lu(k,1388)
   12559   114070872 :          lu(k,1402) = lu(k,1402) * lu(k,1388)
   12560   114070872 :          lu(k,1403) = lu(k,1403) * lu(k,1388)
   12561   114070872 :          lu(k,1404) = lu(k,1404) * lu(k,1388)
   12562   114070872 :          lu(k,1438) = lu(k,1438) - lu(k,1389) * lu(k,1437)
   12563   114070872 :          lu(k,1439) = lu(k,1439) - lu(k,1390) * lu(k,1437)
   12564   114070872 :          lu(k,1440) = lu(k,1440) - lu(k,1391) * lu(k,1437)
   12565   114070872 :          lu(k,1441) = lu(k,1441) - lu(k,1392) * lu(k,1437)
   12566   114070872 :          lu(k,1442) = lu(k,1442) - lu(k,1393) * lu(k,1437)
   12567   114070872 :          lu(k,1443) = lu(k,1443) - lu(k,1394) * lu(k,1437)
   12568   114070872 :          lu(k,1444) = lu(k,1444) - lu(k,1395) * lu(k,1437)
   12569   114070872 :          lu(k,1445) = lu(k,1445) - lu(k,1396) * lu(k,1437)
   12570   114070872 :          lu(k,1446) = lu(k,1446) - lu(k,1397) * lu(k,1437)
   12571   114070872 :          lu(k,1447) = lu(k,1447) - lu(k,1398) * lu(k,1437)
   12572   114070872 :          lu(k,1448) = lu(k,1448) - lu(k,1399) * lu(k,1437)
   12573   114070872 :          lu(k,1449) = lu(k,1449) - lu(k,1400) * lu(k,1437)
   12574   114070872 :          lu(k,1450) = lu(k,1450) - lu(k,1401) * lu(k,1437)
   12575   114070872 :          lu(k,1451) = lu(k,1451) - lu(k,1402) * lu(k,1437)
   12576   114070872 :          lu(k,1452) = lu(k,1452) - lu(k,1403) * lu(k,1437)
   12577   114070872 :          lu(k,1453) = lu(k,1453) - lu(k,1404) * lu(k,1437)
   12578   114070872 :          lu(k,1486) = lu(k,1486) - lu(k,1389) * lu(k,1485)
   12579   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,1390) * lu(k,1485)
   12580   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,1391) * lu(k,1485)
   12581   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,1392) * lu(k,1485)
   12582   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,1393) * lu(k,1485)
   12583   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,1394) * lu(k,1485)
   12584   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,1395) * lu(k,1485)
   12585   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,1396) * lu(k,1485)
   12586   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,1397) * lu(k,1485)
   12587   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,1398) * lu(k,1485)
   12588   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,1399) * lu(k,1485)
   12589   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,1400) * lu(k,1485)
   12590   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,1401) * lu(k,1485)
   12591   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,1402) * lu(k,1485)
   12592   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,1403) * lu(k,1485)
   12593   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,1404) * lu(k,1485)
   12594   114070872 :          lu(k,1527) = lu(k,1527) - lu(k,1389) * lu(k,1526)
   12595   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,1390) * lu(k,1526)
   12596   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,1391) * lu(k,1526)
   12597   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,1392) * lu(k,1526)
   12598   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,1393) * lu(k,1526)
   12599   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,1394) * lu(k,1526)
   12600   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,1395) * lu(k,1526)
   12601   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,1396) * lu(k,1526)
   12602   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,1397) * lu(k,1526)
   12603   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,1398) * lu(k,1526)
   12604   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1399) * lu(k,1526)
   12605   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1400) * lu(k,1526)
   12606   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1401) * lu(k,1526)
   12607   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1402) * lu(k,1526)
   12608   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1403) * lu(k,1526)
   12609   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1404) * lu(k,1526)
   12610   114070872 :          lu(k,1563) = lu(k,1563) - lu(k,1389) * lu(k,1562)
   12611   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,1390) * lu(k,1562)
   12612   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,1391) * lu(k,1562)
   12613   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1392) * lu(k,1562)
   12614   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1393) * lu(k,1562)
   12615   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1394) * lu(k,1562)
   12616   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1395) * lu(k,1562)
   12617   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1396) * lu(k,1562)
   12618   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1397) * lu(k,1562)
   12619   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1398) * lu(k,1562)
   12620   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1399) * lu(k,1562)
   12621   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1400) * lu(k,1562)
   12622   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1401) * lu(k,1562)
   12623   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1402) * lu(k,1562)
   12624   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1403) * lu(k,1562)
   12625   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1404) * lu(k,1562)
   12626   114070872 :          lu(k,1608) = lu(k,1608) - lu(k,1389) * lu(k,1607)
   12627   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,1390) * lu(k,1607)
   12628   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,1391) * lu(k,1607)
   12629   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1392) * lu(k,1607)
   12630   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1393) * lu(k,1607)
   12631   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1394) * lu(k,1607)
   12632   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1395) * lu(k,1607)
   12633   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1396) * lu(k,1607)
   12634   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1397) * lu(k,1607)
   12635   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1398) * lu(k,1607)
   12636   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1399) * lu(k,1607)
   12637   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1400) * lu(k,1607)
   12638   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1401) * lu(k,1607)
   12639   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1402) * lu(k,1607)
   12640   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1403) * lu(k,1607)
   12641   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1404) * lu(k,1607)
   12642   114070872 :          lu(k,1651) = lu(k,1651) - lu(k,1389) * lu(k,1650)
   12643   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,1390) * lu(k,1650)
   12644   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,1391) * lu(k,1650)
   12645   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1392) * lu(k,1650)
   12646   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1393) * lu(k,1650)
   12647   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1394) * lu(k,1650)
   12648   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1395) * lu(k,1650)
   12649   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1396) * lu(k,1650)
   12650   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1397) * lu(k,1650)
   12651   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1398) * lu(k,1650)
   12652   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1399) * lu(k,1650)
   12653   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1400) * lu(k,1650)
   12654   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1401) * lu(k,1650)
   12655   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1402) * lu(k,1650)
   12656   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1403) * lu(k,1650)
   12657   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1404) * lu(k,1650)
   12658   114070872 :          lu(k,1694) = lu(k,1694) - lu(k,1389) * lu(k,1693)
   12659   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,1390) * lu(k,1693)
   12660   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,1391) * lu(k,1693)
   12661   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1392) * lu(k,1693)
   12662   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1393) * lu(k,1693)
   12663   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1394) * lu(k,1693)
   12664   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1395) * lu(k,1693)
   12665   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1396) * lu(k,1693)
   12666   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1397) * lu(k,1693)
   12667   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1398) * lu(k,1693)
   12668   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1399) * lu(k,1693)
   12669   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1400) * lu(k,1693)
   12670   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1401) * lu(k,1693)
   12671   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1402) * lu(k,1693)
   12672   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1403) * lu(k,1693)
   12673   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1404) * lu(k,1693)
   12674   114070872 :          lu(k,1734) = lu(k,1734) - lu(k,1389) * lu(k,1733)
   12675   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,1390) * lu(k,1733)
   12676   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,1391) * lu(k,1733)
   12677   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,1392) * lu(k,1733)
   12678   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1393) * lu(k,1733)
   12679   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1394) * lu(k,1733)
   12680   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1395) * lu(k,1733)
   12681   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1396) * lu(k,1733)
   12682   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1397) * lu(k,1733)
   12683   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1398) * lu(k,1733)
   12684   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1399) * lu(k,1733)
   12685   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1400) * lu(k,1733)
   12686   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1401) * lu(k,1733)
   12687   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1402) * lu(k,1733)
   12688   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1403) * lu(k,1733)
   12689   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1404) * lu(k,1733)
   12690   114070872 :          lu(k,1770) = lu(k,1770) - lu(k,1389) * lu(k,1769)
   12691   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,1390) * lu(k,1769)
   12692   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,1391) * lu(k,1769)
   12693   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1392) * lu(k,1769)
   12694   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1393) * lu(k,1769)
   12695   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1394) * lu(k,1769)
   12696   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1395) * lu(k,1769)
   12697   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1396) * lu(k,1769)
   12698   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1397) * lu(k,1769)
   12699   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1398) * lu(k,1769)
   12700   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1399) * lu(k,1769)
   12701   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1400) * lu(k,1769)
   12702   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1401) * lu(k,1769)
   12703   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1402) * lu(k,1769)
   12704   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1403) * lu(k,1769)
   12705   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1404) * lu(k,1769)
   12706   114070872 :          lu(k,1818) = lu(k,1818) - lu(k,1389) * lu(k,1817)
   12707   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,1390) * lu(k,1817)
   12708   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,1391) * lu(k,1817)
   12709   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1392) * lu(k,1817)
   12710   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1393) * lu(k,1817)
   12711   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1394) * lu(k,1817)
   12712   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1395) * lu(k,1817)
   12713   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1396) * lu(k,1817)
   12714   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1397) * lu(k,1817)
   12715   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1398) * lu(k,1817)
   12716   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1399) * lu(k,1817)
   12717   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1400) * lu(k,1817)
   12718   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1401) * lu(k,1817)
   12719   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1402) * lu(k,1817)
   12720   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1403) * lu(k,1817)
   12721   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1404) * lu(k,1817)
   12722   114070872 :          lu(k,1851) = lu(k,1851) - lu(k,1389) * lu(k,1850)
   12723   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,1390) * lu(k,1850)
   12724   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,1391) * lu(k,1850)
   12725   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1392) * lu(k,1850)
   12726   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1393) * lu(k,1850)
   12727   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1394) * lu(k,1850)
   12728   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1395) * lu(k,1850)
   12729   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1396) * lu(k,1850)
   12730   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1397) * lu(k,1850)
   12731   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1398) * lu(k,1850)
   12732   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1399) * lu(k,1850)
   12733   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1400) * lu(k,1850)
   12734   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1401) * lu(k,1850)
   12735   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1402) * lu(k,1850)
   12736   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1403) * lu(k,1850)
   12737   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1404) * lu(k,1850)
   12738   114070872 :          lu(k,1887) = lu(k,1887) - lu(k,1389) * lu(k,1886)
   12739   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,1390) * lu(k,1886)
   12740   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,1391) * lu(k,1886)
   12741   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1392) * lu(k,1886)
   12742   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1393) * lu(k,1886)
   12743   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1394) * lu(k,1886)
   12744   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1395) * lu(k,1886)
   12745   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1396) * lu(k,1886)
   12746   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1397) * lu(k,1886)
   12747   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1398) * lu(k,1886)
   12748   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1399) * lu(k,1886)
   12749   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1400) * lu(k,1886)
   12750   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1401) * lu(k,1886)
   12751   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1402) * lu(k,1886)
   12752   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1403) * lu(k,1886)
   12753   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1404) * lu(k,1886)
   12754   114070872 :          lu(k,1928) = lu(k,1928) - lu(k,1389) * lu(k,1927)
   12755   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,1390) * lu(k,1927)
   12756   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,1391) * lu(k,1927)
   12757   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1392) * lu(k,1927)
   12758   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1393) * lu(k,1927)
   12759   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1394) * lu(k,1927)
   12760   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1395) * lu(k,1927)
   12761   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1396) * lu(k,1927)
   12762   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1397) * lu(k,1927)
   12763   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1398) * lu(k,1927)
   12764   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1399) * lu(k,1927)
   12765   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1400) * lu(k,1927)
   12766   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1401) * lu(k,1927)
   12767   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1402) * lu(k,1927)
   12768   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1403) * lu(k,1927)
   12769   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1404) * lu(k,1927)
   12770   114070872 :          lu(k,1970) = lu(k,1970) - lu(k,1389) * lu(k,1969)
   12771   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,1390) * lu(k,1969)
   12772   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,1391) * lu(k,1969)
   12773   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1392) * lu(k,1969)
   12774   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1393) * lu(k,1969)
   12775   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1394) * lu(k,1969)
   12776   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1395) * lu(k,1969)
   12777   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1396) * lu(k,1969)
   12778   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1397) * lu(k,1969)
   12779   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1398) * lu(k,1969)
   12780   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1399) * lu(k,1969)
   12781   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1400) * lu(k,1969)
   12782   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1401) * lu(k,1969)
   12783   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1402) * lu(k,1969)
   12784   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1403) * lu(k,1969)
   12785   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1404) * lu(k,1969)
   12786   114070872 :          lu(k,2015) = lu(k,2015) - lu(k,1389) * lu(k,2014)
   12787   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,1390) * lu(k,2014)
   12788   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,1391) * lu(k,2014)
   12789   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1392) * lu(k,2014)
   12790   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1393) * lu(k,2014)
   12791   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1394) * lu(k,2014)
   12792   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1395) * lu(k,2014)
   12793   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1396) * lu(k,2014)
   12794   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1397) * lu(k,2014)
   12795   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1398) * lu(k,2014)
   12796   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1399) * lu(k,2014)
   12797   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1400) * lu(k,2014)
   12798   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1401) * lu(k,2014)
   12799   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1402) * lu(k,2014)
   12800   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1403) * lu(k,2014)
   12801   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1404) * lu(k,2014)
   12802   114070872 :          lu(k,2075) = lu(k,2075) - lu(k,1389) * lu(k,2074)
   12803   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,1390) * lu(k,2074)
   12804   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,1391) * lu(k,2074)
   12805   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1392) * lu(k,2074)
   12806   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1393) * lu(k,2074)
   12807   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1394) * lu(k,2074)
   12808   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1395) * lu(k,2074)
   12809   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1396) * lu(k,2074)
   12810   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1397) * lu(k,2074)
   12811   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1398) * lu(k,2074)
   12812   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1399) * lu(k,2074)
   12813   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1400) * lu(k,2074)
   12814   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1401) * lu(k,2074)
   12815   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1402) * lu(k,2074)
   12816   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1403) * lu(k,2074)
   12817   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1404) * lu(k,2074)
   12818   114070872 :          lu(k,1438) = 1._r8 / lu(k,1438)
   12819   114070872 :          lu(k,1439) = lu(k,1439) * lu(k,1438)
   12820   114070872 :          lu(k,1440) = lu(k,1440) * lu(k,1438)
   12821   114070872 :          lu(k,1441) = lu(k,1441) * lu(k,1438)
   12822   114070872 :          lu(k,1442) = lu(k,1442) * lu(k,1438)
   12823   114070872 :          lu(k,1443) = lu(k,1443) * lu(k,1438)
   12824   114070872 :          lu(k,1444) = lu(k,1444) * lu(k,1438)
   12825   114070872 :          lu(k,1445) = lu(k,1445) * lu(k,1438)
   12826   114070872 :          lu(k,1446) = lu(k,1446) * lu(k,1438)
   12827   114070872 :          lu(k,1447) = lu(k,1447) * lu(k,1438)
   12828   114070872 :          lu(k,1448) = lu(k,1448) * lu(k,1438)
   12829   114070872 :          lu(k,1449) = lu(k,1449) * lu(k,1438)
   12830   114070872 :          lu(k,1450) = lu(k,1450) * lu(k,1438)
   12831   114070872 :          lu(k,1451) = lu(k,1451) * lu(k,1438)
   12832   114070872 :          lu(k,1452) = lu(k,1452) * lu(k,1438)
   12833   114070872 :          lu(k,1453) = lu(k,1453) * lu(k,1438)
   12834   114070872 :          lu(k,1487) = lu(k,1487) - lu(k,1439) * lu(k,1486)
   12835   114070872 :          lu(k,1488) = lu(k,1488) - lu(k,1440) * lu(k,1486)
   12836   114070872 :          lu(k,1489) = lu(k,1489) - lu(k,1441) * lu(k,1486)
   12837   114070872 :          lu(k,1490) = lu(k,1490) - lu(k,1442) * lu(k,1486)
   12838   114070872 :          lu(k,1491) = lu(k,1491) - lu(k,1443) * lu(k,1486)
   12839   114070872 :          lu(k,1492) = lu(k,1492) - lu(k,1444) * lu(k,1486)
   12840   114070872 :          lu(k,1493) = lu(k,1493) - lu(k,1445) * lu(k,1486)
   12841   114070872 :          lu(k,1494) = lu(k,1494) - lu(k,1446) * lu(k,1486)
   12842   114070872 :          lu(k,1495) = lu(k,1495) - lu(k,1447) * lu(k,1486)
   12843   114070872 :          lu(k,1496) = lu(k,1496) - lu(k,1448) * lu(k,1486)
   12844   114070872 :          lu(k,1497) = lu(k,1497) - lu(k,1449) * lu(k,1486)
   12845   114070872 :          lu(k,1498) = lu(k,1498) - lu(k,1450) * lu(k,1486)
   12846   114070872 :          lu(k,1499) = lu(k,1499) - lu(k,1451) * lu(k,1486)
   12847   114070872 :          lu(k,1500) = lu(k,1500) - lu(k,1452) * lu(k,1486)
   12848   114070872 :          lu(k,1501) = lu(k,1501) - lu(k,1453) * lu(k,1486)
   12849   114070872 :          lu(k,1528) = lu(k,1528) - lu(k,1439) * lu(k,1527)
   12850   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,1440) * lu(k,1527)
   12851   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,1441) * lu(k,1527)
   12852   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,1442) * lu(k,1527)
   12853   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,1443) * lu(k,1527)
   12854   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,1444) * lu(k,1527)
   12855   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,1445) * lu(k,1527)
   12856   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,1446) * lu(k,1527)
   12857   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,1447) * lu(k,1527)
   12858   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1448) * lu(k,1527)
   12859   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1449) * lu(k,1527)
   12860   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1450) * lu(k,1527)
   12861   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1451) * lu(k,1527)
   12862   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1452) * lu(k,1527)
   12863   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1453) * lu(k,1527)
   12864   114070872 :          lu(k,1564) = lu(k,1564) - lu(k,1439) * lu(k,1563)
   12865   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,1440) * lu(k,1563)
   12866   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1441) * lu(k,1563)
   12867   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1442) * lu(k,1563)
   12868   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1443) * lu(k,1563)
   12869   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1444) * lu(k,1563)
   12870   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1445) * lu(k,1563)
   12871   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1446) * lu(k,1563)
   12872   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1447) * lu(k,1563)
   12873   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1448) * lu(k,1563)
   12874   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1449) * lu(k,1563)
   12875   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1450) * lu(k,1563)
   12876   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1451) * lu(k,1563)
   12877   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1452) * lu(k,1563)
   12878   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1453) * lu(k,1563)
   12879   114070872 :          lu(k,1609) = lu(k,1609) - lu(k,1439) * lu(k,1608)
   12880   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,1440) * lu(k,1608)
   12881   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1441) * lu(k,1608)
   12882   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1442) * lu(k,1608)
   12883   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1443) * lu(k,1608)
   12884   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1444) * lu(k,1608)
   12885   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1445) * lu(k,1608)
   12886   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1446) * lu(k,1608)
   12887   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1447) * lu(k,1608)
   12888   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1448) * lu(k,1608)
   12889   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1449) * lu(k,1608)
   12890   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1450) * lu(k,1608)
   12891   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1451) * lu(k,1608)
   12892   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1452) * lu(k,1608)
   12893   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1453) * lu(k,1608)
   12894   114070872 :          lu(k,1652) = lu(k,1652) - lu(k,1439) * lu(k,1651)
   12895   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,1440) * lu(k,1651)
   12896   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1441) * lu(k,1651)
   12897   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1442) * lu(k,1651)
   12898   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1443) * lu(k,1651)
   12899   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1444) * lu(k,1651)
   12900   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1445) * lu(k,1651)
   12901   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1446) * lu(k,1651)
   12902   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1447) * lu(k,1651)
   12903   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1448) * lu(k,1651)
   12904   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1449) * lu(k,1651)
   12905   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1450) * lu(k,1651)
   12906   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1451) * lu(k,1651)
   12907   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1452) * lu(k,1651)
   12908   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1453) * lu(k,1651)
   12909   114070872 :          lu(k,1695) = lu(k,1695) - lu(k,1439) * lu(k,1694)
   12910   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,1440) * lu(k,1694)
   12911   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1441) * lu(k,1694)
   12912   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1442) * lu(k,1694)
   12913   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1443) * lu(k,1694)
   12914   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1444) * lu(k,1694)
   12915   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1445) * lu(k,1694)
   12916   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1446) * lu(k,1694)
   12917   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1447) * lu(k,1694)
   12918   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1448) * lu(k,1694)
   12919   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1449) * lu(k,1694)
   12920   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1450) * lu(k,1694)
   12921   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1451) * lu(k,1694)
   12922   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1452) * lu(k,1694)
   12923   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1453) * lu(k,1694)
   12924   114070872 :          lu(k,1735) = lu(k,1735) - lu(k,1439) * lu(k,1734)
   12925   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,1440) * lu(k,1734)
   12926   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,1441) * lu(k,1734)
   12927   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1442) * lu(k,1734)
   12928   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1443) * lu(k,1734)
   12929   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1444) * lu(k,1734)
   12930   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1445) * lu(k,1734)
   12931   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1446) * lu(k,1734)
   12932   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1447) * lu(k,1734)
   12933   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1448) * lu(k,1734)
   12934   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1449) * lu(k,1734)
   12935   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1450) * lu(k,1734)
   12936   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1451) * lu(k,1734)
   12937   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1452) * lu(k,1734)
   12938   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1453) * lu(k,1734)
   12939   114070872 :          lu(k,1771) = lu(k,1771) - lu(k,1439) * lu(k,1770)
   12940   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,1440) * lu(k,1770)
   12941   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1441) * lu(k,1770)
   12942   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1442) * lu(k,1770)
   12943   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1443) * lu(k,1770)
   12944   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1444) * lu(k,1770)
   12945   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1445) * lu(k,1770)
   12946   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1446) * lu(k,1770)
   12947   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1447) * lu(k,1770)
   12948   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1448) * lu(k,1770)
   12949   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1449) * lu(k,1770)
   12950   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1450) * lu(k,1770)
   12951   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1451) * lu(k,1770)
   12952   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1452) * lu(k,1770)
   12953   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1453) * lu(k,1770)
   12954   114070872 :          lu(k,1819) = lu(k,1819) - lu(k,1439) * lu(k,1818)
   12955   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,1440) * lu(k,1818)
   12956   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1441) * lu(k,1818)
   12957   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1442) * lu(k,1818)
   12958   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1443) * lu(k,1818)
   12959   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1444) * lu(k,1818)
   12960   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1445) * lu(k,1818)
   12961   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1446) * lu(k,1818)
   12962   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1447) * lu(k,1818)
   12963   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1448) * lu(k,1818)
   12964   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1449) * lu(k,1818)
   12965   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1450) * lu(k,1818)
   12966   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1451) * lu(k,1818)
   12967   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1452) * lu(k,1818)
   12968   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1453) * lu(k,1818)
   12969   114070872 :          lu(k,1852) = lu(k,1852) - lu(k,1439) * lu(k,1851)
   12970   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,1440) * lu(k,1851)
   12971   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1441) * lu(k,1851)
   12972   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1442) * lu(k,1851)
   12973   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1443) * lu(k,1851)
   12974   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1444) * lu(k,1851)
   12975   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1445) * lu(k,1851)
   12976   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1446) * lu(k,1851)
   12977   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1447) * lu(k,1851)
   12978   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1448) * lu(k,1851)
   12979   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1449) * lu(k,1851)
   12980   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1450) * lu(k,1851)
   12981   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1451) * lu(k,1851)
   12982   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1452) * lu(k,1851)
   12983   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1453) * lu(k,1851)
   12984   114070872 :          lu(k,1888) = lu(k,1888) - lu(k,1439) * lu(k,1887)
   12985   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,1440) * lu(k,1887)
   12986   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1441) * lu(k,1887)
   12987   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1442) * lu(k,1887)
   12988   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1443) * lu(k,1887)
   12989   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1444) * lu(k,1887)
   12990   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1445) * lu(k,1887)
   12991   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1446) * lu(k,1887)
   12992   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1447) * lu(k,1887)
   12993   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1448) * lu(k,1887)
   12994   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1449) * lu(k,1887)
   12995   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1450) * lu(k,1887)
   12996   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1451) * lu(k,1887)
   12997   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1452) * lu(k,1887)
   12998   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1453) * lu(k,1887)
   12999   114070872 :          lu(k,1929) = lu(k,1929) - lu(k,1439) * lu(k,1928)
   13000   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,1440) * lu(k,1928)
   13001   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1441) * lu(k,1928)
   13002   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1442) * lu(k,1928)
   13003   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1443) * lu(k,1928)
   13004   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1444) * lu(k,1928)
   13005   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1445) * lu(k,1928)
   13006   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1446) * lu(k,1928)
   13007   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1447) * lu(k,1928)
   13008   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1448) * lu(k,1928)
   13009   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1449) * lu(k,1928)
   13010   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1450) * lu(k,1928)
   13011   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1451) * lu(k,1928)
   13012   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1452) * lu(k,1928)
   13013   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1453) * lu(k,1928)
   13014   114070872 :          lu(k,1971) = lu(k,1971) - lu(k,1439) * lu(k,1970)
   13015   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,1440) * lu(k,1970)
   13016   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1441) * lu(k,1970)
   13017   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1442) * lu(k,1970)
   13018   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1443) * lu(k,1970)
   13019   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1444) * lu(k,1970)
   13020   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1445) * lu(k,1970)
   13021   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1446) * lu(k,1970)
   13022   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1447) * lu(k,1970)
   13023   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1448) * lu(k,1970)
   13024   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1449) * lu(k,1970)
   13025   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1450) * lu(k,1970)
   13026   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1451) * lu(k,1970)
   13027   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1452) * lu(k,1970)
   13028   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1453) * lu(k,1970)
   13029   114070872 :          lu(k,2016) = lu(k,2016) - lu(k,1439) * lu(k,2015)
   13030   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,1440) * lu(k,2015)
   13031   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1441) * lu(k,2015)
   13032   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1442) * lu(k,2015)
   13033   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1443) * lu(k,2015)
   13034   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1444) * lu(k,2015)
   13035   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1445) * lu(k,2015)
   13036   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1446) * lu(k,2015)
   13037   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1447) * lu(k,2015)
   13038   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1448) * lu(k,2015)
   13039   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1449) * lu(k,2015)
   13040   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1450) * lu(k,2015)
   13041   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1451) * lu(k,2015)
   13042   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1452) * lu(k,2015)
   13043   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1453) * lu(k,2015)
   13044   114070872 :          lu(k,2076) = lu(k,2076) - lu(k,1439) * lu(k,2075)
   13045   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,1440) * lu(k,2075)
   13046   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1441) * lu(k,2075)
   13047   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1442) * lu(k,2075)
   13048   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1443) * lu(k,2075)
   13049   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1444) * lu(k,2075)
   13050   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1445) * lu(k,2075)
   13051   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1446) * lu(k,2075)
   13052   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1447) * lu(k,2075)
   13053   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1448) * lu(k,2075)
   13054   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1449) * lu(k,2075)
   13055   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1450) * lu(k,2075)
   13056   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1451) * lu(k,2075)
   13057   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1452) * lu(k,2075)
   13058   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1453) * lu(k,2075)
   13059   114070872 :          lu(k,1487) = 1._r8 / lu(k,1487)
   13060   114070872 :          lu(k,1488) = lu(k,1488) * lu(k,1487)
   13061   114070872 :          lu(k,1489) = lu(k,1489) * lu(k,1487)
   13062   114070872 :          lu(k,1490) = lu(k,1490) * lu(k,1487)
   13063   114070872 :          lu(k,1491) = lu(k,1491) * lu(k,1487)
   13064   114070872 :          lu(k,1492) = lu(k,1492) * lu(k,1487)
   13065   114070872 :          lu(k,1493) = lu(k,1493) * lu(k,1487)
   13066   114070872 :          lu(k,1494) = lu(k,1494) * lu(k,1487)
   13067   114070872 :          lu(k,1495) = lu(k,1495) * lu(k,1487)
   13068   114070872 :          lu(k,1496) = lu(k,1496) * lu(k,1487)
   13069   114070872 :          lu(k,1497) = lu(k,1497) * lu(k,1487)
   13070   114070872 :          lu(k,1498) = lu(k,1498) * lu(k,1487)
   13071   114070872 :          lu(k,1499) = lu(k,1499) * lu(k,1487)
   13072   114070872 :          lu(k,1500) = lu(k,1500) * lu(k,1487)
   13073   114070872 :          lu(k,1501) = lu(k,1501) * lu(k,1487)
   13074   114070872 :          lu(k,1529) = lu(k,1529) - lu(k,1488) * lu(k,1528)
   13075   114070872 :          lu(k,1530) = lu(k,1530) - lu(k,1489) * lu(k,1528)
   13076   114070872 :          lu(k,1531) = lu(k,1531) - lu(k,1490) * lu(k,1528)
   13077   114070872 :          lu(k,1532) = lu(k,1532) - lu(k,1491) * lu(k,1528)
   13078   114070872 :          lu(k,1533) = lu(k,1533) - lu(k,1492) * lu(k,1528)
   13079   114070872 :          lu(k,1534) = lu(k,1534) - lu(k,1493) * lu(k,1528)
   13080   114070872 :          lu(k,1535) = lu(k,1535) - lu(k,1494) * lu(k,1528)
   13081   114070872 :          lu(k,1536) = lu(k,1536) - lu(k,1495) * lu(k,1528)
   13082   114070872 :          lu(k,1537) = lu(k,1537) - lu(k,1496) * lu(k,1528)
   13083   114070872 :          lu(k,1538) = lu(k,1538) - lu(k,1497) * lu(k,1528)
   13084   114070872 :          lu(k,1539) = lu(k,1539) - lu(k,1498) * lu(k,1528)
   13085   114070872 :          lu(k,1540) = lu(k,1540) - lu(k,1499) * lu(k,1528)
   13086   114070872 :          lu(k,1541) = lu(k,1541) - lu(k,1500) * lu(k,1528)
   13087   114070872 :          lu(k,1542) = lu(k,1542) - lu(k,1501) * lu(k,1528)
   13088   114070872 :          lu(k,1565) = lu(k,1565) - lu(k,1488) * lu(k,1564)
   13089   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1489) * lu(k,1564)
   13090   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1490) * lu(k,1564)
   13091   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1491) * lu(k,1564)
   13092   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1492) * lu(k,1564)
   13093   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1493) * lu(k,1564)
   13094   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1494) * lu(k,1564)
   13095   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1495) * lu(k,1564)
   13096   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1496) * lu(k,1564)
   13097   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1497) * lu(k,1564)
   13098   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1498) * lu(k,1564)
   13099   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1499) * lu(k,1564)
   13100   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1500) * lu(k,1564)
   13101   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1501) * lu(k,1564)
   13102   114070872 :          lu(k,1610) = lu(k,1610) - lu(k,1488) * lu(k,1609)
   13103   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1489) * lu(k,1609)
   13104   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1490) * lu(k,1609)
   13105   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1491) * lu(k,1609)
   13106   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1492) * lu(k,1609)
   13107   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1493) * lu(k,1609)
   13108   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1494) * lu(k,1609)
   13109   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1495) * lu(k,1609)
   13110   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1496) * lu(k,1609)
   13111   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1497) * lu(k,1609)
   13112   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1498) * lu(k,1609)
   13113   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1499) * lu(k,1609)
   13114   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1500) * lu(k,1609)
   13115   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1501) * lu(k,1609)
   13116   114070872 :          lu(k,1653) = lu(k,1653) - lu(k,1488) * lu(k,1652)
   13117   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1489) * lu(k,1652)
   13118   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1490) * lu(k,1652)
   13119   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1491) * lu(k,1652)
   13120   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1492) * lu(k,1652)
   13121   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1493) * lu(k,1652)
   13122   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1494) * lu(k,1652)
   13123   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1495) * lu(k,1652)
   13124   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1496) * lu(k,1652)
   13125   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1497) * lu(k,1652)
   13126   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1498) * lu(k,1652)
   13127   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1499) * lu(k,1652)
   13128   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1500) * lu(k,1652)
   13129   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1501) * lu(k,1652)
   13130   114070872 :          lu(k,1696) = lu(k,1696) - lu(k,1488) * lu(k,1695)
   13131   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1489) * lu(k,1695)
   13132   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1490) * lu(k,1695)
   13133   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1491) * lu(k,1695)
   13134   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1492) * lu(k,1695)
   13135   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1493) * lu(k,1695)
   13136   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1494) * lu(k,1695)
   13137   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1495) * lu(k,1695)
   13138   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1496) * lu(k,1695)
   13139   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1497) * lu(k,1695)
   13140   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1498) * lu(k,1695)
   13141   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1499) * lu(k,1695)
   13142   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1500) * lu(k,1695)
   13143   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1501) * lu(k,1695)
   13144   114070872 :          lu(k,1736) = lu(k,1736) - lu(k,1488) * lu(k,1735)
   13145   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,1489) * lu(k,1735)
   13146   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1490) * lu(k,1735)
   13147   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1491) * lu(k,1735)
   13148   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1492) * lu(k,1735)
   13149   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1493) * lu(k,1735)
   13150   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1494) * lu(k,1735)
   13151   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1495) * lu(k,1735)
   13152   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1496) * lu(k,1735)
   13153   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1497) * lu(k,1735)
   13154   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1498) * lu(k,1735)
   13155   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1499) * lu(k,1735)
   13156   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1500) * lu(k,1735)
   13157   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1501) * lu(k,1735)
   13158   114070872 :          lu(k,1772) = lu(k,1772) - lu(k,1488) * lu(k,1771)
   13159   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1489) * lu(k,1771)
   13160   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1490) * lu(k,1771)
   13161   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1491) * lu(k,1771)
   13162   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1492) * lu(k,1771)
   13163   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1493) * lu(k,1771)
   13164   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1494) * lu(k,1771)
   13165   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1495) * lu(k,1771)
   13166   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1496) * lu(k,1771)
   13167   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1497) * lu(k,1771)
   13168   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1498) * lu(k,1771)
   13169   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1499) * lu(k,1771)
   13170   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1500) * lu(k,1771)
   13171   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1501) * lu(k,1771)
   13172   114070872 :          lu(k,1820) = lu(k,1820) - lu(k,1488) * lu(k,1819)
   13173   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1489) * lu(k,1819)
   13174   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1490) * lu(k,1819)
   13175   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1491) * lu(k,1819)
   13176   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1492) * lu(k,1819)
   13177   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1493) * lu(k,1819)
   13178   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1494) * lu(k,1819)
   13179   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1495) * lu(k,1819)
   13180   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1496) * lu(k,1819)
   13181   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1497) * lu(k,1819)
   13182   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1498) * lu(k,1819)
   13183   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1499) * lu(k,1819)
   13184   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1500) * lu(k,1819)
   13185   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1501) * lu(k,1819)
   13186   114070872 :          lu(k,1853) = lu(k,1853) - lu(k,1488) * lu(k,1852)
   13187   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1489) * lu(k,1852)
   13188   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1490) * lu(k,1852)
   13189   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1491) * lu(k,1852)
   13190   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1492) * lu(k,1852)
   13191   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1493) * lu(k,1852)
   13192   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1494) * lu(k,1852)
   13193   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1495) * lu(k,1852)
   13194   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1496) * lu(k,1852)
   13195   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1497) * lu(k,1852)
   13196   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1498) * lu(k,1852)
   13197   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1499) * lu(k,1852)
   13198   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1500) * lu(k,1852)
   13199   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1501) * lu(k,1852)
   13200   114070872 :          lu(k,1889) = lu(k,1889) - lu(k,1488) * lu(k,1888)
   13201   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1489) * lu(k,1888)
   13202   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1490) * lu(k,1888)
   13203   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1491) * lu(k,1888)
   13204   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1492) * lu(k,1888)
   13205   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1493) * lu(k,1888)
   13206   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1494) * lu(k,1888)
   13207   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1495) * lu(k,1888)
   13208   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1496) * lu(k,1888)
   13209   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1497) * lu(k,1888)
   13210   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1498) * lu(k,1888)
   13211   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1499) * lu(k,1888)
   13212   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1500) * lu(k,1888)
   13213   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1501) * lu(k,1888)
   13214   114070872 :          lu(k,1930) = lu(k,1930) - lu(k,1488) * lu(k,1929)
   13215   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1489) * lu(k,1929)
   13216   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1490) * lu(k,1929)
   13217   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1491) * lu(k,1929)
   13218   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1492) * lu(k,1929)
   13219   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1493) * lu(k,1929)
   13220   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1494) * lu(k,1929)
   13221   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1495) * lu(k,1929)
   13222   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1496) * lu(k,1929)
   13223   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1497) * lu(k,1929)
   13224   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1498) * lu(k,1929)
   13225   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1499) * lu(k,1929)
   13226   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1500) * lu(k,1929)
   13227   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1501) * lu(k,1929)
   13228   114070872 :          lu(k,1972) = lu(k,1972) - lu(k,1488) * lu(k,1971)
   13229   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1489) * lu(k,1971)
   13230   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1490) * lu(k,1971)
   13231   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1491) * lu(k,1971)
   13232   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1492) * lu(k,1971)
   13233   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1493) * lu(k,1971)
   13234   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1494) * lu(k,1971)
   13235   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1495) * lu(k,1971)
   13236   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1496) * lu(k,1971)
   13237   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1497) * lu(k,1971)
   13238   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1498) * lu(k,1971)
   13239   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1499) * lu(k,1971)
   13240   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1500) * lu(k,1971)
   13241   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1501) * lu(k,1971)
   13242   114070872 :          lu(k,2017) = lu(k,2017) - lu(k,1488) * lu(k,2016)
   13243   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1489) * lu(k,2016)
   13244   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1490) * lu(k,2016)
   13245   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1491) * lu(k,2016)
   13246   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1492) * lu(k,2016)
   13247   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1493) * lu(k,2016)
   13248   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1494) * lu(k,2016)
   13249   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1495) * lu(k,2016)
   13250   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1496) * lu(k,2016)
   13251   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1497) * lu(k,2016)
   13252   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1498) * lu(k,2016)
   13253   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1499) * lu(k,2016)
   13254   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1500) * lu(k,2016)
   13255   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1501) * lu(k,2016)
   13256   114070872 :          lu(k,2077) = lu(k,2077) - lu(k,1488) * lu(k,2076)
   13257   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1489) * lu(k,2076)
   13258   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1490) * lu(k,2076)
   13259   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1491) * lu(k,2076)
   13260   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1492) * lu(k,2076)
   13261   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1493) * lu(k,2076)
   13262   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1494) * lu(k,2076)
   13263   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1495) * lu(k,2076)
   13264   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1496) * lu(k,2076)
   13265   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1497) * lu(k,2076)
   13266   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1498) * lu(k,2076)
   13267   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1499) * lu(k,2076)
   13268   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1500) * lu(k,2076)
   13269   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1501) * lu(k,2076)
   13270   114070872 :          lu(k,1529) = 1._r8 / lu(k,1529)
   13271   114070872 :          lu(k,1530) = lu(k,1530) * lu(k,1529)
   13272   114070872 :          lu(k,1531) = lu(k,1531) * lu(k,1529)
   13273   114070872 :          lu(k,1532) = lu(k,1532) * lu(k,1529)
   13274   114070872 :          lu(k,1533) = lu(k,1533) * lu(k,1529)
   13275   114070872 :          lu(k,1534) = lu(k,1534) * lu(k,1529)
   13276   114070872 :          lu(k,1535) = lu(k,1535) * lu(k,1529)
   13277   114070872 :          lu(k,1536) = lu(k,1536) * lu(k,1529)
   13278   114070872 :          lu(k,1537) = lu(k,1537) * lu(k,1529)
   13279   114070872 :          lu(k,1538) = lu(k,1538) * lu(k,1529)
   13280   114070872 :          lu(k,1539) = lu(k,1539) * lu(k,1529)
   13281   114070872 :          lu(k,1540) = lu(k,1540) * lu(k,1529)
   13282   114070872 :          lu(k,1541) = lu(k,1541) * lu(k,1529)
   13283   114070872 :          lu(k,1542) = lu(k,1542) * lu(k,1529)
   13284   114070872 :          lu(k,1566) = lu(k,1566) - lu(k,1530) * lu(k,1565)
   13285   114070872 :          lu(k,1567) = lu(k,1567) - lu(k,1531) * lu(k,1565)
   13286   114070872 :          lu(k,1568) = lu(k,1568) - lu(k,1532) * lu(k,1565)
   13287   114070872 :          lu(k,1569) = lu(k,1569) - lu(k,1533) * lu(k,1565)
   13288   114070872 :          lu(k,1570) = lu(k,1570) - lu(k,1534) * lu(k,1565)
   13289   114070872 :          lu(k,1571) = lu(k,1571) - lu(k,1535) * lu(k,1565)
   13290   114070872 :          lu(k,1572) = lu(k,1572) - lu(k,1536) * lu(k,1565)
   13291   114070872 :          lu(k,1573) = lu(k,1573) - lu(k,1537) * lu(k,1565)
   13292   114070872 :          lu(k,1574) = lu(k,1574) - lu(k,1538) * lu(k,1565)
   13293   114070872 :          lu(k,1575) = lu(k,1575) - lu(k,1539) * lu(k,1565)
   13294   114070872 :          lu(k,1576) = lu(k,1576) - lu(k,1540) * lu(k,1565)
   13295   114070872 :          lu(k,1577) = lu(k,1577) - lu(k,1541) * lu(k,1565)
   13296   114070872 :          lu(k,1578) = lu(k,1578) - lu(k,1542) * lu(k,1565)
   13297   114070872 :          lu(k,1611) = lu(k,1611) - lu(k,1530) * lu(k,1610)
   13298   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1531) * lu(k,1610)
   13299   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1532) * lu(k,1610)
   13300   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1533) * lu(k,1610)
   13301   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1534) * lu(k,1610)
   13302   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1535) * lu(k,1610)
   13303   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1536) * lu(k,1610)
   13304   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1537) * lu(k,1610)
   13305   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1538) * lu(k,1610)
   13306   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1539) * lu(k,1610)
   13307   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1540) * lu(k,1610)
   13308   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1541) * lu(k,1610)
   13309   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1542) * lu(k,1610)
   13310   114070872 :          lu(k,1654) = lu(k,1654) - lu(k,1530) * lu(k,1653)
   13311   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1531) * lu(k,1653)
   13312   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1532) * lu(k,1653)
   13313   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1533) * lu(k,1653)
   13314   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1534) * lu(k,1653)
   13315   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1535) * lu(k,1653)
   13316   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1536) * lu(k,1653)
   13317   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1537) * lu(k,1653)
   13318   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1538) * lu(k,1653)
   13319   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1539) * lu(k,1653)
   13320   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1540) * lu(k,1653)
   13321   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1541) * lu(k,1653)
   13322   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1542) * lu(k,1653)
   13323   114070872 :          lu(k,1697) = lu(k,1697) - lu(k,1530) * lu(k,1696)
   13324   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1531) * lu(k,1696)
   13325   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1532) * lu(k,1696)
   13326   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1533) * lu(k,1696)
   13327   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1534) * lu(k,1696)
   13328   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1535) * lu(k,1696)
   13329   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1536) * lu(k,1696)
   13330   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1537) * lu(k,1696)
   13331   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1538) * lu(k,1696)
   13332   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1539) * lu(k,1696)
   13333   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1540) * lu(k,1696)
   13334   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1541) * lu(k,1696)
   13335   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1542) * lu(k,1696)
   13336   114070872 :          lu(k,1737) = lu(k,1737) - lu(k,1530) * lu(k,1736)
   13337   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1531) * lu(k,1736)
   13338   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1532) * lu(k,1736)
   13339   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1533) * lu(k,1736)
   13340   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1534) * lu(k,1736)
   13341   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1535) * lu(k,1736)
   13342   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1536) * lu(k,1736)
   13343   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1537) * lu(k,1736)
   13344   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1538) * lu(k,1736)
   13345   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1539) * lu(k,1736)
   13346   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1540) * lu(k,1736)
   13347   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1541) * lu(k,1736)
   13348   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1542) * lu(k,1736)
   13349   114070872 :          lu(k,1773) = lu(k,1773) - lu(k,1530) * lu(k,1772)
   13350   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1531) * lu(k,1772)
   13351   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1532) * lu(k,1772)
   13352   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1533) * lu(k,1772)
   13353   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1534) * lu(k,1772)
   13354   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1535) * lu(k,1772)
   13355   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1536) * lu(k,1772)
   13356   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1537) * lu(k,1772)
   13357   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1538) * lu(k,1772)
   13358   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1539) * lu(k,1772)
   13359   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1540) * lu(k,1772)
   13360   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1541) * lu(k,1772)
   13361   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1542) * lu(k,1772)
   13362   114070872 :          lu(k,1821) = lu(k,1821) - lu(k,1530) * lu(k,1820)
   13363   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1531) * lu(k,1820)
   13364   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1532) * lu(k,1820)
   13365   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1533) * lu(k,1820)
   13366   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1534) * lu(k,1820)
   13367   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1535) * lu(k,1820)
   13368   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1536) * lu(k,1820)
   13369   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1537) * lu(k,1820)
   13370   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1538) * lu(k,1820)
   13371   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1539) * lu(k,1820)
   13372   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1540) * lu(k,1820)
   13373   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1541) * lu(k,1820)
   13374   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1542) * lu(k,1820)
   13375   114070872 :          lu(k,1854) = lu(k,1854) - lu(k,1530) * lu(k,1853)
   13376   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1531) * lu(k,1853)
   13377   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1532) * lu(k,1853)
   13378   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1533) * lu(k,1853)
   13379   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1534) * lu(k,1853)
   13380   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1535) * lu(k,1853)
   13381   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1536) * lu(k,1853)
   13382   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1537) * lu(k,1853)
   13383   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1538) * lu(k,1853)
   13384   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1539) * lu(k,1853)
   13385   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1540) * lu(k,1853)
   13386   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1541) * lu(k,1853)
   13387   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1542) * lu(k,1853)
   13388   114070872 :          lu(k,1890) = lu(k,1890) - lu(k,1530) * lu(k,1889)
   13389   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1531) * lu(k,1889)
   13390   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1532) * lu(k,1889)
   13391   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1533) * lu(k,1889)
   13392   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1534) * lu(k,1889)
   13393   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1535) * lu(k,1889)
   13394   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1536) * lu(k,1889)
   13395   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1537) * lu(k,1889)
   13396   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1538) * lu(k,1889)
   13397   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1539) * lu(k,1889)
   13398   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1540) * lu(k,1889)
   13399   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1541) * lu(k,1889)
   13400   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1542) * lu(k,1889)
   13401   114070872 :          lu(k,1931) = lu(k,1931) - lu(k,1530) * lu(k,1930)
   13402   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1531) * lu(k,1930)
   13403   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1532) * lu(k,1930)
   13404   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1533) * lu(k,1930)
   13405   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1534) * lu(k,1930)
   13406   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1535) * lu(k,1930)
   13407   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1536) * lu(k,1930)
   13408   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1537) * lu(k,1930)
   13409   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1538) * lu(k,1930)
   13410   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1539) * lu(k,1930)
   13411   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1540) * lu(k,1930)
   13412   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1541) * lu(k,1930)
   13413   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1542) * lu(k,1930)
   13414   114070872 :          lu(k,1973) = lu(k,1973) - lu(k,1530) * lu(k,1972)
   13415   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1531) * lu(k,1972)
   13416   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1532) * lu(k,1972)
   13417   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1533) * lu(k,1972)
   13418   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1534) * lu(k,1972)
   13419   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1535) * lu(k,1972)
   13420   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1536) * lu(k,1972)
   13421   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1537) * lu(k,1972)
   13422   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1538) * lu(k,1972)
   13423   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1539) * lu(k,1972)
   13424   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1540) * lu(k,1972)
   13425   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1541) * lu(k,1972)
   13426   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1542) * lu(k,1972)
   13427   114070872 :          lu(k,2018) = lu(k,2018) - lu(k,1530) * lu(k,2017)
   13428   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1531) * lu(k,2017)
   13429   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1532) * lu(k,2017)
   13430   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1533) * lu(k,2017)
   13431   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1534) * lu(k,2017)
   13432   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1535) * lu(k,2017)
   13433   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1536) * lu(k,2017)
   13434   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1537) * lu(k,2017)
   13435   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1538) * lu(k,2017)
   13436   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1539) * lu(k,2017)
   13437   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1540) * lu(k,2017)
   13438   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1541) * lu(k,2017)
   13439   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1542) * lu(k,2017)
   13440   114070872 :          lu(k,2078) = lu(k,2078) - lu(k,1530) * lu(k,2077)
   13441   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1531) * lu(k,2077)
   13442   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1532) * lu(k,2077)
   13443   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1533) * lu(k,2077)
   13444   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1534) * lu(k,2077)
   13445   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1535) * lu(k,2077)
   13446   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1536) * lu(k,2077)
   13447   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1537) * lu(k,2077)
   13448   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1538) * lu(k,2077)
   13449   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1539) * lu(k,2077)
   13450   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1540) * lu(k,2077)
   13451   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1541) * lu(k,2077)
   13452   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,1542) * lu(k,2077)
   13453             :       end do
   13454     3585597 :       end subroutine lu_fac24
   13455     3585597 :       subroutine lu_fac25( avec_len, lu )
   13456             :       use chem_mods, only : nzcnt
   13457             :       use shr_kind_mod, only : r8 => shr_kind_r8
   13458             :       implicit none
   13459             : !-----------------------------------------------------------------------
   13460             : ! ... dummy args
   13461             : !-----------------------------------------------------------------------
   13462             :       integer, intent(in) :: avec_len
   13463             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   13464             : !-----------------------------------------------------------------------
   13465             : ! ... local variables
   13466             : !-----------------------------------------------------------------------
   13467             :       integer :: k
   13468   117656469 :       do k = 1,avec_len
   13469   114070872 :          lu(k,1566) = 1._r8 / lu(k,1566)
   13470   114070872 :          lu(k,1567) = lu(k,1567) * lu(k,1566)
   13471   114070872 :          lu(k,1568) = lu(k,1568) * lu(k,1566)
   13472   114070872 :          lu(k,1569) = lu(k,1569) * lu(k,1566)
   13473   114070872 :          lu(k,1570) = lu(k,1570) * lu(k,1566)
   13474   114070872 :          lu(k,1571) = lu(k,1571) * lu(k,1566)
   13475   114070872 :          lu(k,1572) = lu(k,1572) * lu(k,1566)
   13476   114070872 :          lu(k,1573) = lu(k,1573) * lu(k,1566)
   13477   114070872 :          lu(k,1574) = lu(k,1574) * lu(k,1566)
   13478   114070872 :          lu(k,1575) = lu(k,1575) * lu(k,1566)
   13479   114070872 :          lu(k,1576) = lu(k,1576) * lu(k,1566)
   13480   114070872 :          lu(k,1577) = lu(k,1577) * lu(k,1566)
   13481   114070872 :          lu(k,1578) = lu(k,1578) * lu(k,1566)
   13482   114070872 :          lu(k,1612) = lu(k,1612) - lu(k,1567) * lu(k,1611)
   13483   114070872 :          lu(k,1613) = lu(k,1613) - lu(k,1568) * lu(k,1611)
   13484   114070872 :          lu(k,1614) = lu(k,1614) - lu(k,1569) * lu(k,1611)
   13485   114070872 :          lu(k,1615) = lu(k,1615) - lu(k,1570) * lu(k,1611)
   13486   114070872 :          lu(k,1616) = lu(k,1616) - lu(k,1571) * lu(k,1611)
   13487   114070872 :          lu(k,1617) = lu(k,1617) - lu(k,1572) * lu(k,1611)
   13488   114070872 :          lu(k,1618) = lu(k,1618) - lu(k,1573) * lu(k,1611)
   13489   114070872 :          lu(k,1619) = lu(k,1619) - lu(k,1574) * lu(k,1611)
   13490   114070872 :          lu(k,1620) = lu(k,1620) - lu(k,1575) * lu(k,1611)
   13491   114070872 :          lu(k,1621) = lu(k,1621) - lu(k,1576) * lu(k,1611)
   13492   114070872 :          lu(k,1622) = lu(k,1622) - lu(k,1577) * lu(k,1611)
   13493   114070872 :          lu(k,1623) = lu(k,1623) - lu(k,1578) * lu(k,1611)
   13494   114070872 :          lu(k,1655) = lu(k,1655) - lu(k,1567) * lu(k,1654)
   13495   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1568) * lu(k,1654)
   13496   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1569) * lu(k,1654)
   13497   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1570) * lu(k,1654)
   13498   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1571) * lu(k,1654)
   13499   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1572) * lu(k,1654)
   13500   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1573) * lu(k,1654)
   13501   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1574) * lu(k,1654)
   13502   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1575) * lu(k,1654)
   13503   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1576) * lu(k,1654)
   13504   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1577) * lu(k,1654)
   13505   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1578) * lu(k,1654)
   13506   114070872 :          lu(k,1698) = lu(k,1698) - lu(k,1567) * lu(k,1697)
   13507   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1568) * lu(k,1697)
   13508   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1569) * lu(k,1697)
   13509   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1570) * lu(k,1697)
   13510   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1571) * lu(k,1697)
   13511   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1572) * lu(k,1697)
   13512   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1573) * lu(k,1697)
   13513   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1574) * lu(k,1697)
   13514   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1575) * lu(k,1697)
   13515   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1576) * lu(k,1697)
   13516   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1577) * lu(k,1697)
   13517   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1578) * lu(k,1697)
   13518   114070872 :          lu(k,1738) = lu(k,1738) - lu(k,1567) * lu(k,1737)
   13519   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1568) * lu(k,1737)
   13520   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1569) * lu(k,1737)
   13521   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1570) * lu(k,1737)
   13522   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1571) * lu(k,1737)
   13523   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1572) * lu(k,1737)
   13524   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1573) * lu(k,1737)
   13525   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1574) * lu(k,1737)
   13526   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1575) * lu(k,1737)
   13527   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1576) * lu(k,1737)
   13528   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1577) * lu(k,1737)
   13529   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1578) * lu(k,1737)
   13530   114070872 :          lu(k,1774) = lu(k,1774) - lu(k,1567) * lu(k,1773)
   13531   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1568) * lu(k,1773)
   13532   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1569) * lu(k,1773)
   13533   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1570) * lu(k,1773)
   13534   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1571) * lu(k,1773)
   13535   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1572) * lu(k,1773)
   13536   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1573) * lu(k,1773)
   13537   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1574) * lu(k,1773)
   13538   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1575) * lu(k,1773)
   13539   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1576) * lu(k,1773)
   13540   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1577) * lu(k,1773)
   13541   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1578) * lu(k,1773)
   13542   114070872 :          lu(k,1822) = lu(k,1822) - lu(k,1567) * lu(k,1821)
   13543   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1568) * lu(k,1821)
   13544   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1569) * lu(k,1821)
   13545   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1570) * lu(k,1821)
   13546   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1571) * lu(k,1821)
   13547   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1572) * lu(k,1821)
   13548   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1573) * lu(k,1821)
   13549   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1574) * lu(k,1821)
   13550   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1575) * lu(k,1821)
   13551   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1576) * lu(k,1821)
   13552   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1577) * lu(k,1821)
   13553   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1578) * lu(k,1821)
   13554   114070872 :          lu(k,1855) = lu(k,1855) - lu(k,1567) * lu(k,1854)
   13555   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1568) * lu(k,1854)
   13556   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1569) * lu(k,1854)
   13557   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1570) * lu(k,1854)
   13558   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1571) * lu(k,1854)
   13559   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1572) * lu(k,1854)
   13560   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1573) * lu(k,1854)
   13561   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1574) * lu(k,1854)
   13562   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1575) * lu(k,1854)
   13563   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1576) * lu(k,1854)
   13564   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1577) * lu(k,1854)
   13565   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1578) * lu(k,1854)
   13566   114070872 :          lu(k,1891) = lu(k,1891) - lu(k,1567) * lu(k,1890)
   13567   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1568) * lu(k,1890)
   13568   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1569) * lu(k,1890)
   13569   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1570) * lu(k,1890)
   13570   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1571) * lu(k,1890)
   13571   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1572) * lu(k,1890)
   13572   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1573) * lu(k,1890)
   13573   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1574) * lu(k,1890)
   13574   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1575) * lu(k,1890)
   13575   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1576) * lu(k,1890)
   13576   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1577) * lu(k,1890)
   13577   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1578) * lu(k,1890)
   13578   114070872 :          lu(k,1932) = lu(k,1932) - lu(k,1567) * lu(k,1931)
   13579   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1568) * lu(k,1931)
   13580   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1569) * lu(k,1931)
   13581   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1570) * lu(k,1931)
   13582   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1571) * lu(k,1931)
   13583   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1572) * lu(k,1931)
   13584   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1573) * lu(k,1931)
   13585   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1574) * lu(k,1931)
   13586   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1575) * lu(k,1931)
   13587   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1576) * lu(k,1931)
   13588   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1577) * lu(k,1931)
   13589   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1578) * lu(k,1931)
   13590   114070872 :          lu(k,1974) = lu(k,1974) - lu(k,1567) * lu(k,1973)
   13591   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1568) * lu(k,1973)
   13592   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1569) * lu(k,1973)
   13593   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1570) * lu(k,1973)
   13594   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1571) * lu(k,1973)
   13595   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1572) * lu(k,1973)
   13596   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1573) * lu(k,1973)
   13597   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1574) * lu(k,1973)
   13598   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1575) * lu(k,1973)
   13599   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1576) * lu(k,1973)
   13600   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1577) * lu(k,1973)
   13601   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1578) * lu(k,1973)
   13602   114070872 :          lu(k,2019) = lu(k,2019) - lu(k,1567) * lu(k,2018)
   13603   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1568) * lu(k,2018)
   13604   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1569) * lu(k,2018)
   13605   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1570) * lu(k,2018)
   13606   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1571) * lu(k,2018)
   13607   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1572) * lu(k,2018)
   13608   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1573) * lu(k,2018)
   13609   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1574) * lu(k,2018)
   13610   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1575) * lu(k,2018)
   13611   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1576) * lu(k,2018)
   13612   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1577) * lu(k,2018)
   13613   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1578) * lu(k,2018)
   13614   114070872 :          lu(k,2079) = lu(k,2079) - lu(k,1567) * lu(k,2078)
   13615   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1568) * lu(k,2078)
   13616   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1569) * lu(k,2078)
   13617   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1570) * lu(k,2078)
   13618   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1571) * lu(k,2078)
   13619   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1572) * lu(k,2078)
   13620   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1573) * lu(k,2078)
   13621   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1574) * lu(k,2078)
   13622   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1575) * lu(k,2078)
   13623   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1576) * lu(k,2078)
   13624   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1577) * lu(k,2078)
   13625   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1578) * lu(k,2078)
   13626   114070872 :          lu(k,1612) = 1._r8 / lu(k,1612)
   13627   114070872 :          lu(k,1613) = lu(k,1613) * lu(k,1612)
   13628   114070872 :          lu(k,1614) = lu(k,1614) * lu(k,1612)
   13629   114070872 :          lu(k,1615) = lu(k,1615) * lu(k,1612)
   13630   114070872 :          lu(k,1616) = lu(k,1616) * lu(k,1612)
   13631   114070872 :          lu(k,1617) = lu(k,1617) * lu(k,1612)
   13632   114070872 :          lu(k,1618) = lu(k,1618) * lu(k,1612)
   13633   114070872 :          lu(k,1619) = lu(k,1619) * lu(k,1612)
   13634   114070872 :          lu(k,1620) = lu(k,1620) * lu(k,1612)
   13635   114070872 :          lu(k,1621) = lu(k,1621) * lu(k,1612)
   13636   114070872 :          lu(k,1622) = lu(k,1622) * lu(k,1612)
   13637   114070872 :          lu(k,1623) = lu(k,1623) * lu(k,1612)
   13638   114070872 :          lu(k,1656) = lu(k,1656) - lu(k,1613) * lu(k,1655)
   13639   114070872 :          lu(k,1657) = lu(k,1657) - lu(k,1614) * lu(k,1655)
   13640   114070872 :          lu(k,1658) = lu(k,1658) - lu(k,1615) * lu(k,1655)
   13641   114070872 :          lu(k,1659) = lu(k,1659) - lu(k,1616) * lu(k,1655)
   13642   114070872 :          lu(k,1660) = lu(k,1660) - lu(k,1617) * lu(k,1655)
   13643   114070872 :          lu(k,1661) = lu(k,1661) - lu(k,1618) * lu(k,1655)
   13644   114070872 :          lu(k,1662) = lu(k,1662) - lu(k,1619) * lu(k,1655)
   13645   114070872 :          lu(k,1663) = lu(k,1663) - lu(k,1620) * lu(k,1655)
   13646   114070872 :          lu(k,1664) = lu(k,1664) - lu(k,1621) * lu(k,1655)
   13647   114070872 :          lu(k,1665) = lu(k,1665) - lu(k,1622) * lu(k,1655)
   13648   114070872 :          lu(k,1666) = lu(k,1666) - lu(k,1623) * lu(k,1655)
   13649   114070872 :          lu(k,1699) = lu(k,1699) - lu(k,1613) * lu(k,1698)
   13650   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1614) * lu(k,1698)
   13651   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1615) * lu(k,1698)
   13652   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1616) * lu(k,1698)
   13653   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1617) * lu(k,1698)
   13654   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1618) * lu(k,1698)
   13655   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1619) * lu(k,1698)
   13656   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1620) * lu(k,1698)
   13657   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1621) * lu(k,1698)
   13658   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1622) * lu(k,1698)
   13659   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1623) * lu(k,1698)
   13660   114070872 :          lu(k,1739) = lu(k,1739) - lu(k,1613) * lu(k,1738)
   13661   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1614) * lu(k,1738)
   13662   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1615) * lu(k,1738)
   13663   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1616) * lu(k,1738)
   13664   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1617) * lu(k,1738)
   13665   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1618) * lu(k,1738)
   13666   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1619) * lu(k,1738)
   13667   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1620) * lu(k,1738)
   13668   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1621) * lu(k,1738)
   13669   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1622) * lu(k,1738)
   13670   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1623) * lu(k,1738)
   13671   114070872 :          lu(k,1775) = lu(k,1775) - lu(k,1613) * lu(k,1774)
   13672   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1614) * lu(k,1774)
   13673   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1615) * lu(k,1774)
   13674   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1616) * lu(k,1774)
   13675   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1617) * lu(k,1774)
   13676   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1618) * lu(k,1774)
   13677   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1619) * lu(k,1774)
   13678   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1620) * lu(k,1774)
   13679   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1621) * lu(k,1774)
   13680   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1622) * lu(k,1774)
   13681   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1623) * lu(k,1774)
   13682   114070872 :          lu(k,1823) = lu(k,1823) - lu(k,1613) * lu(k,1822)
   13683   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1614) * lu(k,1822)
   13684   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1615) * lu(k,1822)
   13685   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1616) * lu(k,1822)
   13686   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1617) * lu(k,1822)
   13687   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1618) * lu(k,1822)
   13688   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1619) * lu(k,1822)
   13689   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1620) * lu(k,1822)
   13690   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1621) * lu(k,1822)
   13691   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1622) * lu(k,1822)
   13692   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1623) * lu(k,1822)
   13693   114070872 :          lu(k,1856) = lu(k,1856) - lu(k,1613) * lu(k,1855)
   13694   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1614) * lu(k,1855)
   13695   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1615) * lu(k,1855)
   13696   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1616) * lu(k,1855)
   13697   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1617) * lu(k,1855)
   13698   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1618) * lu(k,1855)
   13699   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1619) * lu(k,1855)
   13700   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1620) * lu(k,1855)
   13701   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1621) * lu(k,1855)
   13702   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1622) * lu(k,1855)
   13703   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1623) * lu(k,1855)
   13704   114070872 :          lu(k,1892) = lu(k,1892) - lu(k,1613) * lu(k,1891)
   13705   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1614) * lu(k,1891)
   13706   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1615) * lu(k,1891)
   13707   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1616) * lu(k,1891)
   13708   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1617) * lu(k,1891)
   13709   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1618) * lu(k,1891)
   13710   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1619) * lu(k,1891)
   13711   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1620) * lu(k,1891)
   13712   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1621) * lu(k,1891)
   13713   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1622) * lu(k,1891)
   13714   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1623) * lu(k,1891)
   13715   114070872 :          lu(k,1933) = lu(k,1933) - lu(k,1613) * lu(k,1932)
   13716   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1614) * lu(k,1932)
   13717   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1615) * lu(k,1932)
   13718   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1616) * lu(k,1932)
   13719   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1617) * lu(k,1932)
   13720   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1618) * lu(k,1932)
   13721   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1619) * lu(k,1932)
   13722   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1620) * lu(k,1932)
   13723   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1621) * lu(k,1932)
   13724   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1622) * lu(k,1932)
   13725   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1623) * lu(k,1932)
   13726   114070872 :          lu(k,1975) = lu(k,1975) - lu(k,1613) * lu(k,1974)
   13727   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1614) * lu(k,1974)
   13728   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1615) * lu(k,1974)
   13729   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1616) * lu(k,1974)
   13730   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1617) * lu(k,1974)
   13731   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1618) * lu(k,1974)
   13732   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1619) * lu(k,1974)
   13733   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1620) * lu(k,1974)
   13734   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1621) * lu(k,1974)
   13735   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1622) * lu(k,1974)
   13736   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1623) * lu(k,1974)
   13737   114070872 :          lu(k,2020) = lu(k,2020) - lu(k,1613) * lu(k,2019)
   13738   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1614) * lu(k,2019)
   13739   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1615) * lu(k,2019)
   13740   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1616) * lu(k,2019)
   13741   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1617) * lu(k,2019)
   13742   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1618) * lu(k,2019)
   13743   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1619) * lu(k,2019)
   13744   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1620) * lu(k,2019)
   13745   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1621) * lu(k,2019)
   13746   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1622) * lu(k,2019)
   13747   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1623) * lu(k,2019)
   13748   114070872 :          lu(k,2080) = lu(k,2080) - lu(k,1613) * lu(k,2079)
   13749   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1614) * lu(k,2079)
   13750   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1615) * lu(k,2079)
   13751   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1616) * lu(k,2079)
   13752   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1617) * lu(k,2079)
   13753   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1618) * lu(k,2079)
   13754   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1619) * lu(k,2079)
   13755   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1620) * lu(k,2079)
   13756   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1621) * lu(k,2079)
   13757   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1622) * lu(k,2079)
   13758   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1623) * lu(k,2079)
   13759   114070872 :          lu(k,1656) = 1._r8 / lu(k,1656)
   13760   114070872 :          lu(k,1657) = lu(k,1657) * lu(k,1656)
   13761   114070872 :          lu(k,1658) = lu(k,1658) * lu(k,1656)
   13762   114070872 :          lu(k,1659) = lu(k,1659) * lu(k,1656)
   13763   114070872 :          lu(k,1660) = lu(k,1660) * lu(k,1656)
   13764   114070872 :          lu(k,1661) = lu(k,1661) * lu(k,1656)
   13765   114070872 :          lu(k,1662) = lu(k,1662) * lu(k,1656)
   13766   114070872 :          lu(k,1663) = lu(k,1663) * lu(k,1656)
   13767   114070872 :          lu(k,1664) = lu(k,1664) * lu(k,1656)
   13768   114070872 :          lu(k,1665) = lu(k,1665) * lu(k,1656)
   13769   114070872 :          lu(k,1666) = lu(k,1666) * lu(k,1656)
   13770   114070872 :          lu(k,1700) = lu(k,1700) - lu(k,1657) * lu(k,1699)
   13771   114070872 :          lu(k,1701) = lu(k,1701) - lu(k,1658) * lu(k,1699)
   13772   114070872 :          lu(k,1702) = lu(k,1702) - lu(k,1659) * lu(k,1699)
   13773   114070872 :          lu(k,1703) = lu(k,1703) - lu(k,1660) * lu(k,1699)
   13774   114070872 :          lu(k,1704) = lu(k,1704) - lu(k,1661) * lu(k,1699)
   13775   114070872 :          lu(k,1705) = lu(k,1705) - lu(k,1662) * lu(k,1699)
   13776   114070872 :          lu(k,1706) = lu(k,1706) - lu(k,1663) * lu(k,1699)
   13777   114070872 :          lu(k,1707) = lu(k,1707) - lu(k,1664) * lu(k,1699)
   13778   114070872 :          lu(k,1708) = lu(k,1708) - lu(k,1665) * lu(k,1699)
   13779   114070872 :          lu(k,1709) = lu(k,1709) - lu(k,1666) * lu(k,1699)
   13780   114070872 :          lu(k,1740) = lu(k,1740) - lu(k,1657) * lu(k,1739)
   13781   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1658) * lu(k,1739)
   13782   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1659) * lu(k,1739)
   13783   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1660) * lu(k,1739)
   13784   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1661) * lu(k,1739)
   13785   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1662) * lu(k,1739)
   13786   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1663) * lu(k,1739)
   13787   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1664) * lu(k,1739)
   13788   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1665) * lu(k,1739)
   13789   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1666) * lu(k,1739)
   13790   114070872 :          lu(k,1776) = lu(k,1776) - lu(k,1657) * lu(k,1775)
   13791   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1658) * lu(k,1775)
   13792   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1659) * lu(k,1775)
   13793   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1660) * lu(k,1775)
   13794   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1661) * lu(k,1775)
   13795   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1662) * lu(k,1775)
   13796   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1663) * lu(k,1775)
   13797   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1664) * lu(k,1775)
   13798   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1665) * lu(k,1775)
   13799   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1666) * lu(k,1775)
   13800   114070872 :          lu(k,1824) = lu(k,1824) - lu(k,1657) * lu(k,1823)
   13801   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1658) * lu(k,1823)
   13802   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1659) * lu(k,1823)
   13803   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1660) * lu(k,1823)
   13804   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1661) * lu(k,1823)
   13805   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1662) * lu(k,1823)
   13806   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1663) * lu(k,1823)
   13807   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1664) * lu(k,1823)
   13808   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1665) * lu(k,1823)
   13809   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1666) * lu(k,1823)
   13810   114070872 :          lu(k,1857) = lu(k,1857) - lu(k,1657) * lu(k,1856)
   13811   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1658) * lu(k,1856)
   13812   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1659) * lu(k,1856)
   13813   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1660) * lu(k,1856)
   13814   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1661) * lu(k,1856)
   13815   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1662) * lu(k,1856)
   13816   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1663) * lu(k,1856)
   13817   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1664) * lu(k,1856)
   13818   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1665) * lu(k,1856)
   13819   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1666) * lu(k,1856)
   13820   114070872 :          lu(k,1893) = lu(k,1893) - lu(k,1657) * lu(k,1892)
   13821   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1658) * lu(k,1892)
   13822   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1659) * lu(k,1892)
   13823   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1660) * lu(k,1892)
   13824   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1661) * lu(k,1892)
   13825   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1662) * lu(k,1892)
   13826   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1663) * lu(k,1892)
   13827   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1664) * lu(k,1892)
   13828   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1665) * lu(k,1892)
   13829   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1666) * lu(k,1892)
   13830   114070872 :          lu(k,1934) = lu(k,1934) - lu(k,1657) * lu(k,1933)
   13831   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1658) * lu(k,1933)
   13832   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1659) * lu(k,1933)
   13833   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1660) * lu(k,1933)
   13834   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1661) * lu(k,1933)
   13835   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1662) * lu(k,1933)
   13836   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1663) * lu(k,1933)
   13837   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1664) * lu(k,1933)
   13838   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1665) * lu(k,1933)
   13839   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1666) * lu(k,1933)
   13840   114070872 :          lu(k,1976) = lu(k,1976) - lu(k,1657) * lu(k,1975)
   13841   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1658) * lu(k,1975)
   13842   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1659) * lu(k,1975)
   13843   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1660) * lu(k,1975)
   13844   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1661) * lu(k,1975)
   13845   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1662) * lu(k,1975)
   13846   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1663) * lu(k,1975)
   13847   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1664) * lu(k,1975)
   13848   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1665) * lu(k,1975)
   13849   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1666) * lu(k,1975)
   13850   114070872 :          lu(k,2021) = lu(k,2021) - lu(k,1657) * lu(k,2020)
   13851   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1658) * lu(k,2020)
   13852   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1659) * lu(k,2020)
   13853   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1660) * lu(k,2020)
   13854   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1661) * lu(k,2020)
   13855   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1662) * lu(k,2020)
   13856   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1663) * lu(k,2020)
   13857   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1664) * lu(k,2020)
   13858   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1665) * lu(k,2020)
   13859   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1666) * lu(k,2020)
   13860   114070872 :          lu(k,2081) = lu(k,2081) - lu(k,1657) * lu(k,2080)
   13861   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1658) * lu(k,2080)
   13862   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1659) * lu(k,2080)
   13863   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1660) * lu(k,2080)
   13864   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1661) * lu(k,2080)
   13865   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1662) * lu(k,2080)
   13866   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1663) * lu(k,2080)
   13867   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1664) * lu(k,2080)
   13868   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1665) * lu(k,2080)
   13869   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1666) * lu(k,2080)
   13870   114070872 :          lu(k,1700) = 1._r8 / lu(k,1700)
   13871   114070872 :          lu(k,1701) = lu(k,1701) * lu(k,1700)
   13872   114070872 :          lu(k,1702) = lu(k,1702) * lu(k,1700)
   13873   114070872 :          lu(k,1703) = lu(k,1703) * lu(k,1700)
   13874   114070872 :          lu(k,1704) = lu(k,1704) * lu(k,1700)
   13875   114070872 :          lu(k,1705) = lu(k,1705) * lu(k,1700)
   13876   114070872 :          lu(k,1706) = lu(k,1706) * lu(k,1700)
   13877   114070872 :          lu(k,1707) = lu(k,1707) * lu(k,1700)
   13878   114070872 :          lu(k,1708) = lu(k,1708) * lu(k,1700)
   13879   114070872 :          lu(k,1709) = lu(k,1709) * lu(k,1700)
   13880   114070872 :          lu(k,1741) = lu(k,1741) - lu(k,1701) * lu(k,1740)
   13881   114070872 :          lu(k,1742) = lu(k,1742) - lu(k,1702) * lu(k,1740)
   13882   114070872 :          lu(k,1743) = lu(k,1743) - lu(k,1703) * lu(k,1740)
   13883   114070872 :          lu(k,1744) = lu(k,1744) - lu(k,1704) * lu(k,1740)
   13884   114070872 :          lu(k,1745) = lu(k,1745) - lu(k,1705) * lu(k,1740)
   13885   114070872 :          lu(k,1746) = lu(k,1746) - lu(k,1706) * lu(k,1740)
   13886   114070872 :          lu(k,1747) = lu(k,1747) - lu(k,1707) * lu(k,1740)
   13887   114070872 :          lu(k,1748) = lu(k,1748) - lu(k,1708) * lu(k,1740)
   13888   114070872 :          lu(k,1749) = lu(k,1749) - lu(k,1709) * lu(k,1740)
   13889   114070872 :          lu(k,1777) = lu(k,1777) - lu(k,1701) * lu(k,1776)
   13890   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1702) * lu(k,1776)
   13891   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1703) * lu(k,1776)
   13892   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1704) * lu(k,1776)
   13893   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1705) * lu(k,1776)
   13894   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1706) * lu(k,1776)
   13895   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1707) * lu(k,1776)
   13896   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1708) * lu(k,1776)
   13897   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1709) * lu(k,1776)
   13898   114070872 :          lu(k,1825) = lu(k,1825) - lu(k,1701) * lu(k,1824)
   13899   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1702) * lu(k,1824)
   13900   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1703) * lu(k,1824)
   13901   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1704) * lu(k,1824)
   13902   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1705) * lu(k,1824)
   13903   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1706) * lu(k,1824)
   13904   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1707) * lu(k,1824)
   13905   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1708) * lu(k,1824)
   13906   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1709) * lu(k,1824)
   13907   114070872 :          lu(k,1858) = lu(k,1858) - lu(k,1701) * lu(k,1857)
   13908   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1702) * lu(k,1857)
   13909   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1703) * lu(k,1857)
   13910   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1704) * lu(k,1857)
   13911   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1705) * lu(k,1857)
   13912   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1706) * lu(k,1857)
   13913   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1707) * lu(k,1857)
   13914   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1708) * lu(k,1857)
   13915   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1709) * lu(k,1857)
   13916   114070872 :          lu(k,1894) = lu(k,1894) - lu(k,1701) * lu(k,1893)
   13917   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1702) * lu(k,1893)
   13918   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1703) * lu(k,1893)
   13919   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1704) * lu(k,1893)
   13920   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1705) * lu(k,1893)
   13921   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1706) * lu(k,1893)
   13922   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1707) * lu(k,1893)
   13923   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1708) * lu(k,1893)
   13924   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1709) * lu(k,1893)
   13925   114070872 :          lu(k,1935) = lu(k,1935) - lu(k,1701) * lu(k,1934)
   13926   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1702) * lu(k,1934)
   13927   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1703) * lu(k,1934)
   13928   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1704) * lu(k,1934)
   13929   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1705) * lu(k,1934)
   13930   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1706) * lu(k,1934)
   13931   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1707) * lu(k,1934)
   13932   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1708) * lu(k,1934)
   13933   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1709) * lu(k,1934)
   13934   114070872 :          lu(k,1977) = lu(k,1977) - lu(k,1701) * lu(k,1976)
   13935   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1702) * lu(k,1976)
   13936   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1703) * lu(k,1976)
   13937   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1704) * lu(k,1976)
   13938   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1705) * lu(k,1976)
   13939   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1706) * lu(k,1976)
   13940   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1707) * lu(k,1976)
   13941   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1708) * lu(k,1976)
   13942   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1709) * lu(k,1976)
   13943   114070872 :          lu(k,2022) = lu(k,2022) - lu(k,1701) * lu(k,2021)
   13944   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1702) * lu(k,2021)
   13945   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1703) * lu(k,2021)
   13946   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1704) * lu(k,2021)
   13947   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1705) * lu(k,2021)
   13948   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1706) * lu(k,2021)
   13949   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1707) * lu(k,2021)
   13950   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1708) * lu(k,2021)
   13951   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1709) * lu(k,2021)
   13952   114070872 :          lu(k,2082) = lu(k,2082) - lu(k,1701) * lu(k,2081)
   13953   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1702) * lu(k,2081)
   13954   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1703) * lu(k,2081)
   13955   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1704) * lu(k,2081)
   13956   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1705) * lu(k,2081)
   13957   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1706) * lu(k,2081)
   13958   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1707) * lu(k,2081)
   13959   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1708) * lu(k,2081)
   13960   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1709) * lu(k,2081)
   13961   114070872 :          lu(k,1741) = 1._r8 / lu(k,1741)
   13962   114070872 :          lu(k,1742) = lu(k,1742) * lu(k,1741)
   13963   114070872 :          lu(k,1743) = lu(k,1743) * lu(k,1741)
   13964   114070872 :          lu(k,1744) = lu(k,1744) * lu(k,1741)
   13965   114070872 :          lu(k,1745) = lu(k,1745) * lu(k,1741)
   13966   114070872 :          lu(k,1746) = lu(k,1746) * lu(k,1741)
   13967   114070872 :          lu(k,1747) = lu(k,1747) * lu(k,1741)
   13968   114070872 :          lu(k,1748) = lu(k,1748) * lu(k,1741)
   13969   114070872 :          lu(k,1749) = lu(k,1749) * lu(k,1741)
   13970   114070872 :          lu(k,1778) = lu(k,1778) - lu(k,1742) * lu(k,1777)
   13971   114070872 :          lu(k,1779) = lu(k,1779) - lu(k,1743) * lu(k,1777)
   13972   114070872 :          lu(k,1780) = lu(k,1780) - lu(k,1744) * lu(k,1777)
   13973   114070872 :          lu(k,1781) = lu(k,1781) - lu(k,1745) * lu(k,1777)
   13974   114070872 :          lu(k,1782) = lu(k,1782) - lu(k,1746) * lu(k,1777)
   13975   114070872 :          lu(k,1783) = lu(k,1783) - lu(k,1747) * lu(k,1777)
   13976   114070872 :          lu(k,1784) = lu(k,1784) - lu(k,1748) * lu(k,1777)
   13977   114070872 :          lu(k,1785) = lu(k,1785) - lu(k,1749) * lu(k,1777)
   13978   114070872 :          lu(k,1826) = lu(k,1826) - lu(k,1742) * lu(k,1825)
   13979   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1743) * lu(k,1825)
   13980   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1744) * lu(k,1825)
   13981   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1745) * lu(k,1825)
   13982   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1746) * lu(k,1825)
   13983   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1747) * lu(k,1825)
   13984   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1748) * lu(k,1825)
   13985   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1749) * lu(k,1825)
   13986   114070872 :          lu(k,1859) = lu(k,1859) - lu(k,1742) * lu(k,1858)
   13987   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1743) * lu(k,1858)
   13988   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1744) * lu(k,1858)
   13989   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1745) * lu(k,1858)
   13990   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1746) * lu(k,1858)
   13991   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1747) * lu(k,1858)
   13992   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1748) * lu(k,1858)
   13993   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1749) * lu(k,1858)
   13994   114070872 :          lu(k,1895) = lu(k,1895) - lu(k,1742) * lu(k,1894)
   13995   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1743) * lu(k,1894)
   13996   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1744) * lu(k,1894)
   13997   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1745) * lu(k,1894)
   13998   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1746) * lu(k,1894)
   13999   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1747) * lu(k,1894)
   14000   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1748) * lu(k,1894)
   14001   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1749) * lu(k,1894)
   14002   114070872 :          lu(k,1936) = lu(k,1936) - lu(k,1742) * lu(k,1935)
   14003   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1743) * lu(k,1935)
   14004   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1744) * lu(k,1935)
   14005   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1745) * lu(k,1935)
   14006   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1746) * lu(k,1935)
   14007   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1747) * lu(k,1935)
   14008   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1748) * lu(k,1935)
   14009   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1749) * lu(k,1935)
   14010   114070872 :          lu(k,1978) = lu(k,1978) - lu(k,1742) * lu(k,1977)
   14011   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1743) * lu(k,1977)
   14012   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1744) * lu(k,1977)
   14013   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1745) * lu(k,1977)
   14014   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1746) * lu(k,1977)
   14015   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1747) * lu(k,1977)
   14016   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1748) * lu(k,1977)
   14017   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1749) * lu(k,1977)
   14018   114070872 :          lu(k,2023) = lu(k,2023) - lu(k,1742) * lu(k,2022)
   14019   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1743) * lu(k,2022)
   14020   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1744) * lu(k,2022)
   14021   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1745) * lu(k,2022)
   14022   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1746) * lu(k,2022)
   14023   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1747) * lu(k,2022)
   14024   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1748) * lu(k,2022)
   14025   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1749) * lu(k,2022)
   14026   114070872 :          lu(k,2083) = lu(k,2083) - lu(k,1742) * lu(k,2082)
   14027   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1743) * lu(k,2082)
   14028   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1744) * lu(k,2082)
   14029   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1745) * lu(k,2082)
   14030   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1746) * lu(k,2082)
   14031   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1747) * lu(k,2082)
   14032   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1748) * lu(k,2082)
   14033   117656469 :          lu(k,2090) = lu(k,2090) - lu(k,1749) * lu(k,2082)
   14034             :       end do
   14035     3585597 :       end subroutine lu_fac25
   14036     3585597 :       subroutine lu_fac26( avec_len, lu )
   14037             :       use chem_mods, only : nzcnt
   14038             :       use shr_kind_mod, only : r8 => shr_kind_r8
   14039             :       implicit none
   14040             : !-----------------------------------------------------------------------
   14041             : ! ... dummy args
   14042             : !-----------------------------------------------------------------------
   14043             :       integer, intent(in) :: avec_len
   14044             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   14045             : !-----------------------------------------------------------------------
   14046             : ! ... local variables
   14047             : !-----------------------------------------------------------------------
   14048             :       integer :: k
   14049   117656469 :       do k = 1,avec_len
   14050   114070872 :          lu(k,1778) = 1._r8 / lu(k,1778)
   14051   114070872 :          lu(k,1779) = lu(k,1779) * lu(k,1778)
   14052   114070872 :          lu(k,1780) = lu(k,1780) * lu(k,1778)
   14053   114070872 :          lu(k,1781) = lu(k,1781) * lu(k,1778)
   14054   114070872 :          lu(k,1782) = lu(k,1782) * lu(k,1778)
   14055   114070872 :          lu(k,1783) = lu(k,1783) * lu(k,1778)
   14056   114070872 :          lu(k,1784) = lu(k,1784) * lu(k,1778)
   14057   114070872 :          lu(k,1785) = lu(k,1785) * lu(k,1778)
   14058   114070872 :          lu(k,1827) = lu(k,1827) - lu(k,1779) * lu(k,1826)
   14059   114070872 :          lu(k,1828) = lu(k,1828) - lu(k,1780) * lu(k,1826)
   14060   114070872 :          lu(k,1829) = lu(k,1829) - lu(k,1781) * lu(k,1826)
   14061   114070872 :          lu(k,1830) = lu(k,1830) - lu(k,1782) * lu(k,1826)
   14062   114070872 :          lu(k,1831) = lu(k,1831) - lu(k,1783) * lu(k,1826)
   14063   114070872 :          lu(k,1832) = lu(k,1832) - lu(k,1784) * lu(k,1826)
   14064   114070872 :          lu(k,1833) = lu(k,1833) - lu(k,1785) * lu(k,1826)
   14065   114070872 :          lu(k,1860) = lu(k,1860) - lu(k,1779) * lu(k,1859)
   14066   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1780) * lu(k,1859)
   14067   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1781) * lu(k,1859)
   14068   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1782) * lu(k,1859)
   14069   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1783) * lu(k,1859)
   14070   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1784) * lu(k,1859)
   14071   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1785) * lu(k,1859)
   14072   114070872 :          lu(k,1896) = lu(k,1896) - lu(k,1779) * lu(k,1895)
   14073   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1780) * lu(k,1895)
   14074   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1781) * lu(k,1895)
   14075   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1782) * lu(k,1895)
   14076   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1783) * lu(k,1895)
   14077   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1784) * lu(k,1895)
   14078   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1785) * lu(k,1895)
   14079   114070872 :          lu(k,1937) = lu(k,1937) - lu(k,1779) * lu(k,1936)
   14080   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1780) * lu(k,1936)
   14081   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1781) * lu(k,1936)
   14082   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1782) * lu(k,1936)
   14083   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1783) * lu(k,1936)
   14084   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1784) * lu(k,1936)
   14085   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1785) * lu(k,1936)
   14086   114070872 :          lu(k,1979) = lu(k,1979) - lu(k,1779) * lu(k,1978)
   14087   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1780) * lu(k,1978)
   14088   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1781) * lu(k,1978)
   14089   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1782) * lu(k,1978)
   14090   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1783) * lu(k,1978)
   14091   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1784) * lu(k,1978)
   14092   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1785) * lu(k,1978)
   14093   114070872 :          lu(k,2024) = lu(k,2024) - lu(k,1779) * lu(k,2023)
   14094   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1780) * lu(k,2023)
   14095   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1781) * lu(k,2023)
   14096   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1782) * lu(k,2023)
   14097   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1783) * lu(k,2023)
   14098   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1784) * lu(k,2023)
   14099   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1785) * lu(k,2023)
   14100   114070872 :          lu(k,2084) = lu(k,2084) - lu(k,1779) * lu(k,2083)
   14101   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1780) * lu(k,2083)
   14102   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1781) * lu(k,2083)
   14103   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1782) * lu(k,2083)
   14104   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1783) * lu(k,2083)
   14105   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1784) * lu(k,2083)
   14106   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1785) * lu(k,2083)
   14107   114070872 :          lu(k,1827) = 1._r8 / lu(k,1827)
   14108   114070872 :          lu(k,1828) = lu(k,1828) * lu(k,1827)
   14109   114070872 :          lu(k,1829) = lu(k,1829) * lu(k,1827)
   14110   114070872 :          lu(k,1830) = lu(k,1830) * lu(k,1827)
   14111   114070872 :          lu(k,1831) = lu(k,1831) * lu(k,1827)
   14112   114070872 :          lu(k,1832) = lu(k,1832) * lu(k,1827)
   14113   114070872 :          lu(k,1833) = lu(k,1833) * lu(k,1827)
   14114   114070872 :          lu(k,1861) = lu(k,1861) - lu(k,1828) * lu(k,1860)
   14115   114070872 :          lu(k,1862) = lu(k,1862) - lu(k,1829) * lu(k,1860)
   14116   114070872 :          lu(k,1863) = lu(k,1863) - lu(k,1830) * lu(k,1860)
   14117   114070872 :          lu(k,1864) = lu(k,1864) - lu(k,1831) * lu(k,1860)
   14118   114070872 :          lu(k,1865) = lu(k,1865) - lu(k,1832) * lu(k,1860)
   14119   114070872 :          lu(k,1866) = lu(k,1866) - lu(k,1833) * lu(k,1860)
   14120   114070872 :          lu(k,1897) = lu(k,1897) - lu(k,1828) * lu(k,1896)
   14121   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1829) * lu(k,1896)
   14122   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1830) * lu(k,1896)
   14123   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1831) * lu(k,1896)
   14124   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1832) * lu(k,1896)
   14125   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1833) * lu(k,1896)
   14126   114070872 :          lu(k,1938) = lu(k,1938) - lu(k,1828) * lu(k,1937)
   14127   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1829) * lu(k,1937)
   14128   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1830) * lu(k,1937)
   14129   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1831) * lu(k,1937)
   14130   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1832) * lu(k,1937)
   14131   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1833) * lu(k,1937)
   14132   114070872 :          lu(k,1980) = lu(k,1980) - lu(k,1828) * lu(k,1979)
   14133   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1829) * lu(k,1979)
   14134   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1830) * lu(k,1979)
   14135   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1831) * lu(k,1979)
   14136   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1832) * lu(k,1979)
   14137   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1833) * lu(k,1979)
   14138   114070872 :          lu(k,2025) = lu(k,2025) - lu(k,1828) * lu(k,2024)
   14139   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1829) * lu(k,2024)
   14140   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1830) * lu(k,2024)
   14141   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1831) * lu(k,2024)
   14142   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1832) * lu(k,2024)
   14143   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1833) * lu(k,2024)
   14144   114070872 :          lu(k,2085) = lu(k,2085) - lu(k,1828) * lu(k,2084)
   14145   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1829) * lu(k,2084)
   14146   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1830) * lu(k,2084)
   14147   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1831) * lu(k,2084)
   14148   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1832) * lu(k,2084)
   14149   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1833) * lu(k,2084)
   14150   114070872 :          lu(k,1861) = 1._r8 / lu(k,1861)
   14151   114070872 :          lu(k,1862) = lu(k,1862) * lu(k,1861)
   14152   114070872 :          lu(k,1863) = lu(k,1863) * lu(k,1861)
   14153   114070872 :          lu(k,1864) = lu(k,1864) * lu(k,1861)
   14154   114070872 :          lu(k,1865) = lu(k,1865) * lu(k,1861)
   14155   114070872 :          lu(k,1866) = lu(k,1866) * lu(k,1861)
   14156   114070872 :          lu(k,1898) = lu(k,1898) - lu(k,1862) * lu(k,1897)
   14157   114070872 :          lu(k,1899) = lu(k,1899) - lu(k,1863) * lu(k,1897)
   14158   114070872 :          lu(k,1900) = lu(k,1900) - lu(k,1864) * lu(k,1897)
   14159   114070872 :          lu(k,1901) = lu(k,1901) - lu(k,1865) * lu(k,1897)
   14160   114070872 :          lu(k,1902) = lu(k,1902) - lu(k,1866) * lu(k,1897)
   14161   114070872 :          lu(k,1939) = lu(k,1939) - lu(k,1862) * lu(k,1938)
   14162   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1863) * lu(k,1938)
   14163   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1864) * lu(k,1938)
   14164   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1865) * lu(k,1938)
   14165   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1866) * lu(k,1938)
   14166   114070872 :          lu(k,1981) = lu(k,1981) - lu(k,1862) * lu(k,1980)
   14167   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1863) * lu(k,1980)
   14168   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1864) * lu(k,1980)
   14169   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1865) * lu(k,1980)
   14170   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1866) * lu(k,1980)
   14171   114070872 :          lu(k,2026) = lu(k,2026) - lu(k,1862) * lu(k,2025)
   14172   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1863) * lu(k,2025)
   14173   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1864) * lu(k,2025)
   14174   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1865) * lu(k,2025)
   14175   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1866) * lu(k,2025)
   14176   114070872 :          lu(k,2086) = lu(k,2086) - lu(k,1862) * lu(k,2085)
   14177   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1863) * lu(k,2085)
   14178   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1864) * lu(k,2085)
   14179   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1865) * lu(k,2085)
   14180   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1866) * lu(k,2085)
   14181   114070872 :          lu(k,1898) = 1._r8 / lu(k,1898)
   14182   114070872 :          lu(k,1899) = lu(k,1899) * lu(k,1898)
   14183   114070872 :          lu(k,1900) = lu(k,1900) * lu(k,1898)
   14184   114070872 :          lu(k,1901) = lu(k,1901) * lu(k,1898)
   14185   114070872 :          lu(k,1902) = lu(k,1902) * lu(k,1898)
   14186   114070872 :          lu(k,1940) = lu(k,1940) - lu(k,1899) * lu(k,1939)
   14187   114070872 :          lu(k,1941) = lu(k,1941) - lu(k,1900) * lu(k,1939)
   14188   114070872 :          lu(k,1942) = lu(k,1942) - lu(k,1901) * lu(k,1939)
   14189   114070872 :          lu(k,1943) = lu(k,1943) - lu(k,1902) * lu(k,1939)
   14190   114070872 :          lu(k,1982) = lu(k,1982) - lu(k,1899) * lu(k,1981)
   14191   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1900) * lu(k,1981)
   14192   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1901) * lu(k,1981)
   14193   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1902) * lu(k,1981)
   14194   114070872 :          lu(k,2027) = lu(k,2027) - lu(k,1899) * lu(k,2026)
   14195   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1900) * lu(k,2026)
   14196   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1901) * lu(k,2026)
   14197   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1902) * lu(k,2026)
   14198   114070872 :          lu(k,2087) = lu(k,2087) - lu(k,1899) * lu(k,2086)
   14199   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1900) * lu(k,2086)
   14200   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1901) * lu(k,2086)
   14201   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1902) * lu(k,2086)
   14202   114070872 :          lu(k,1940) = 1._r8 / lu(k,1940)
   14203   114070872 :          lu(k,1941) = lu(k,1941) * lu(k,1940)
   14204   114070872 :          lu(k,1942) = lu(k,1942) * lu(k,1940)
   14205   114070872 :          lu(k,1943) = lu(k,1943) * lu(k,1940)
   14206   114070872 :          lu(k,1983) = lu(k,1983) - lu(k,1941) * lu(k,1982)
   14207   114070872 :          lu(k,1984) = lu(k,1984) - lu(k,1942) * lu(k,1982)
   14208   114070872 :          lu(k,1985) = lu(k,1985) - lu(k,1943) * lu(k,1982)
   14209   114070872 :          lu(k,2028) = lu(k,2028) - lu(k,1941) * lu(k,2027)
   14210   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1942) * lu(k,2027)
   14211   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1943) * lu(k,2027)
   14212   114070872 :          lu(k,2088) = lu(k,2088) - lu(k,1941) * lu(k,2087)
   14213   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1942) * lu(k,2087)
   14214   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1943) * lu(k,2087)
   14215   114070872 :          lu(k,1983) = 1._r8 / lu(k,1983)
   14216   114070872 :          lu(k,1984) = lu(k,1984) * lu(k,1983)
   14217   114070872 :          lu(k,1985) = lu(k,1985) * lu(k,1983)
   14218   114070872 :          lu(k,2029) = lu(k,2029) - lu(k,1984) * lu(k,2028)
   14219   114070872 :          lu(k,2030) = lu(k,2030) - lu(k,1985) * lu(k,2028)
   14220   114070872 :          lu(k,2089) = lu(k,2089) - lu(k,1984) * lu(k,2088)
   14221   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,1985) * lu(k,2088)
   14222   114070872 :          lu(k,2029) = 1._r8 / lu(k,2029)
   14223   114070872 :          lu(k,2030) = lu(k,2030) * lu(k,2029)
   14224   114070872 :          lu(k,2090) = lu(k,2090) - lu(k,2030) * lu(k,2089)
   14225   117656469 :          lu(k,2090) = 1._r8 / lu(k,2090)
   14226             :       end do
   14227     3585597 :       end subroutine lu_fac26
   14228     3585597 :       subroutine lu_fac( avec_len, lu )
   14229             :       use chem_mods, only : nzcnt
   14230             :       use shr_kind_mod, only : r8 => shr_kind_r8
   14231             :       implicit none
   14232             : !-----------------------------------------------------------------------
   14233             : ! ... dummy args
   14234             : !-----------------------------------------------------------------------
   14235             :       integer, intent(in) :: avec_len
   14236             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
   14237     3585597 :       call lu_fac01( avec_len, lu )
   14238     3585597 :       call lu_fac02( avec_len, lu )
   14239     3585597 :       call lu_fac03( avec_len, lu )
   14240     3585597 :       call lu_fac04( avec_len, lu )
   14241     3585597 :       call lu_fac05( avec_len, lu )
   14242     3585597 :       call lu_fac06( avec_len, lu )
   14243     3585597 :       call lu_fac07( avec_len, lu )
   14244     3585597 :       call lu_fac08( avec_len, lu )
   14245     3585597 :       call lu_fac09( avec_len, lu )
   14246     3585597 :       call lu_fac10( avec_len, lu )
   14247     3585597 :       call lu_fac11( avec_len, lu )
   14248     3585597 :       call lu_fac12( avec_len, lu )
   14249     3585597 :       call lu_fac13( avec_len, lu )
   14250     3585597 :       call lu_fac14( avec_len, lu )
   14251     3585597 :       call lu_fac15( avec_len, lu )
   14252     3585597 :       call lu_fac16( avec_len, lu )
   14253     3585597 :       call lu_fac17( avec_len, lu )
   14254     3585597 :       call lu_fac18( avec_len, lu )
   14255     3585597 :       call lu_fac19( avec_len, lu )
   14256     3585597 :       call lu_fac20( avec_len, lu )
   14257     3585597 :       call lu_fac21( avec_len, lu )
   14258     3585597 :       call lu_fac22( avec_len, lu )
   14259     3585597 :       call lu_fac23( avec_len, lu )
   14260     3585597 :       call lu_fac24( avec_len, lu )
   14261     3585597 :       call lu_fac25( avec_len, lu )
   14262     3585597 :       call lu_fac26( avec_len, lu )
   14263     3585597 :       end subroutine lu_fac
   14264             :       end module mo_lu_factor

Generated by: LCOV version 1.14