LCOV - code coverage report
Current view: top level - chemistry/pp_trop_strat_mam5_vbsext - mo_lu_factor.F90 (source / functions) Hit Total Coverage
Test: coverage.info Lines: 7678 7678 100.0 %
Date: 2025-03-14 01:21:06 Functions: 32 32 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     4411704 :       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   145586232 :       do k = 1,avec_len
      20   141174528 :          lu(k,1) = 1._r8 / lu(k,1)
      21   141174528 :          lu(k,2) = 1._r8 / lu(k,2)
      22   141174528 :          lu(k,3) = 1._r8 / lu(k,3)
      23   141174528 :          lu(k,4) = 1._r8 / lu(k,4)
      24   141174528 :          lu(k,5) = 1._r8 / lu(k,5)
      25   141174528 :          lu(k,6) = 1._r8 / lu(k,6)
      26   141174528 :          lu(k,7) = 1._r8 / lu(k,7)
      27   141174528 :          lu(k,8) = 1._r8 / lu(k,8)
      28   141174528 :          lu(k,9) = 1._r8 / lu(k,9)
      29   141174528 :          lu(k,10) = 1._r8 / lu(k,10)
      30   141174528 :          lu(k,11) = 1._r8 / lu(k,11)
      31   141174528 :          lu(k,12) = 1._r8 / lu(k,12)
      32   141174528 :          lu(k,13) = 1._r8 / lu(k,13)
      33   141174528 :          lu(k,14) = 1._r8 / lu(k,14)
      34   141174528 :          lu(k,15) = 1._r8 / lu(k,15)
      35   141174528 :          lu(k,16) = 1._r8 / lu(k,16)
      36   141174528 :          lu(k,17) = 1._r8 / lu(k,17)
      37   141174528 :          lu(k,18) = 1._r8 / lu(k,18)
      38   141174528 :          lu(k,19) = 1._r8 / lu(k,19)
      39   141174528 :          lu(k,20) = 1._r8 / lu(k,20)
      40   141174528 :          lu(k,21) = 1._r8 / lu(k,21)
      41   141174528 :          lu(k,22) = 1._r8 / lu(k,22)
      42   141174528 :          lu(k,23) = 1._r8 / lu(k,23)
      43   141174528 :          lu(k,24) = 1._r8 / lu(k,24)
      44   141174528 :          lu(k,25) = 1._r8 / lu(k,25)
      45   141174528 :          lu(k,26) = 1._r8 / lu(k,26)
      46   141174528 :          lu(k,27) = 1._r8 / lu(k,27)
      47   141174528 :          lu(k,28) = 1._r8 / lu(k,28)
      48   141174528 :          lu(k,29) = 1._r8 / lu(k,29)
      49   141174528 :          lu(k,30) = 1._r8 / lu(k,30)
      50   141174528 :          lu(k,31) = 1._r8 / lu(k,31)
      51   141174528 :          lu(k,32) = 1._r8 / lu(k,32)
      52   141174528 :          lu(k,33) = 1._r8 / lu(k,33)
      53   141174528 :          lu(k,34) = 1._r8 / lu(k,34)
      54   141174528 :          lu(k,35) = 1._r8 / lu(k,35)
      55   141174528 :          lu(k,36) = 1._r8 / lu(k,36)
      56   141174528 :          lu(k,37) = 1._r8 / lu(k,37)
      57   141174528 :          lu(k,38) = 1._r8 / lu(k,38)
      58   141174528 :          lu(k,39) = 1._r8 / lu(k,39)
      59   141174528 :          lu(k,40) = 1._r8 / lu(k,40)
      60   141174528 :          lu(k,41) = 1._r8 / lu(k,41)
      61   141174528 :          lu(k,42) = 1._r8 / lu(k,42)
      62   141174528 :          lu(k,43) = 1._r8 / lu(k,43)
      63   141174528 :          lu(k,44) = 1._r8 / lu(k,44)
      64   141174528 :          lu(k,45) = 1._r8 / lu(k,45)
      65   141174528 :          lu(k,46) = 1._r8 / lu(k,46)
      66   141174528 :          lu(k,47) = 1._r8 / lu(k,47)
      67   141174528 :          lu(k,48) = 1._r8 / lu(k,48)
      68   141174528 :          lu(k,49) = 1._r8 / lu(k,49)
      69   141174528 :          lu(k,50) = 1._r8 / lu(k,50)
      70   145586232 :          lu(k,51) = 1._r8 / lu(k,51)
      71             :       end do
      72     4411704 :       end subroutine lu_fac01
      73     4411704 :       subroutine lu_fac02( avec_len, lu )
      74             :       use chem_mods, only : nzcnt
      75             :       use shr_kind_mod, only : r8 => shr_kind_r8
      76             :       implicit none
      77             : !-----------------------------------------------------------------------
      78             : ! ... dummy args
      79             : !-----------------------------------------------------------------------
      80             :       integer, intent(in) :: avec_len
      81             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
      82             : !-----------------------------------------------------------------------
      83             : ! ... local variables
      84             : !-----------------------------------------------------------------------
      85             :       integer :: k
      86   145586232 :       do k = 1,avec_len
      87   141174528 :          lu(k,52) = 1._r8 / lu(k,52)
      88   141174528 :          lu(k,53) = 1._r8 / lu(k,53)
      89   141174528 :          lu(k,54) = 1._r8 / lu(k,54)
      90   141174528 :          lu(k,55) = 1._r8 / lu(k,55)
      91   141174528 :          lu(k,56) = 1._r8 / lu(k,56)
      92   141174528 :          lu(k,57) = 1._r8 / lu(k,57)
      93   141174528 :          lu(k,58) = 1._r8 / lu(k,58)
      94   141174528 :          lu(k,59) = 1._r8 / lu(k,59)
      95   141174528 :          lu(k,60) = 1._r8 / lu(k,60)
      96   141174528 :          lu(k,61) = 1._r8 / lu(k,61)
      97   141174528 :          lu(k,62) = 1._r8 / lu(k,62)
      98   141174528 :          lu(k,63) = 1._r8 / lu(k,63)
      99   141174528 :          lu(k,69) = 1._r8 / lu(k,69)
     100   141174528 :          lu(k,71) = 1._r8 / lu(k,71)
     101   141174528 :          lu(k,72) = 1._r8 / lu(k,72)
     102   141174528 :          lu(k,73) = 1._r8 / lu(k,73)
     103   141174528 :          lu(k,74) = 1._r8 / lu(k,74)
     104   141174528 :          lu(k,75) = 1._r8 / lu(k,75)
     105   141174528 :          lu(k,76) = 1._r8 / lu(k,76)
     106   141174528 :          lu(k,82) = 1._r8 / lu(k,82)
     107   141174528 :          lu(k,88) = 1._r8 / lu(k,88)
     108   141174528 :          lu(k,94) = 1._r8 / lu(k,94)
     109   141174528 :          lu(k,95) = 1._r8 / lu(k,95)
     110   141174528 :          lu(k,96) = 1._r8 / lu(k,96)
     111   141174528 :          lu(k,97) = 1._r8 / lu(k,97)
     112   141174528 :          lu(k,98) = 1._r8 / lu(k,98)
     113   141174528 :          lu(k,99) = 1._r8 / lu(k,99)
     114   141174528 :          lu(k,105) = 1._r8 / lu(k,105)
     115   141174528 :          lu(k,107) = 1._r8 / lu(k,107)
     116   141174528 :          lu(k,113) = 1._r8 / lu(k,113)
     117   141174528 :          lu(k,119) = 1._r8 / lu(k,119)
     118   141174528 :          lu(k,125) = 1._r8 / lu(k,125)
     119   141174528 :          lu(k,131) = 1._r8 / lu(k,131)
     120   141174528 :          lu(k,137) = 1._r8 / lu(k,137)
     121   141174528 :          lu(k,138) = 1._r8 / lu(k,138)
     122   141174528 :          lu(k,139) = lu(k,139) * lu(k,138)
     123   141174528 :          lu(k,140) = lu(k,140) * lu(k,138)
     124   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,139) * lu(k,1684)
     125   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,140) * lu(k,1684)
     126   141174528 :          lu(k,141) = 1._r8 / lu(k,141)
     127   141174528 :          lu(k,142) = lu(k,142) * lu(k,141)
     128   141174528 :          lu(k,143) = lu(k,143) * lu(k,141)
     129   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,142) * lu(k,1621)
     130   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,143) * lu(k,1621)
     131   141174528 :          lu(k,144) = 1._r8 / lu(k,144)
     132   141174528 :          lu(k,145) = lu(k,145) * lu(k,144)
     133   141174528 :          lu(k,146) = lu(k,146) * lu(k,144)
     134   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,145) * lu(k,1685)
     135   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,146) * lu(k,1685)
     136   141174528 :          lu(k,147) = 1._r8 / lu(k,147)
     137   141174528 :          lu(k,148) = lu(k,148) * lu(k,147)
     138   141174528 :          lu(k,149) = lu(k,149) * lu(k,147)
     139   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,148) * lu(k,2314)
     140   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,149) * lu(k,2314)
     141   141174528 :          lu(k,150) = 1._r8 / lu(k,150)
     142   141174528 :          lu(k,151) = lu(k,151) * lu(k,150)
     143   141174528 :          lu(k,152) = lu(k,152) * lu(k,150)
     144   141174528 :          lu(k,153) = lu(k,153) * lu(k,150)
     145   141174528 :          lu(k,1632) = lu(k,1632) - lu(k,151) * lu(k,1622)
     146   141174528 :          lu(k,1643) = lu(k,1643) - lu(k,152) * lu(k,1622)
     147   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,153) * lu(k,1622)
     148   141174528 :          lu(k,154) = 1._r8 / lu(k,154)
     149   141174528 :          lu(k,155) = lu(k,155) * lu(k,154)
     150   141174528 :          lu(k,156) = lu(k,156) * lu(k,154)
     151   141174528 :          lu(k,157) = lu(k,157) * lu(k,154)
     152   141174528 :          lu(k,1773) = lu(k,1773) - lu(k,155) * lu(k,1686)
     153   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,156) * lu(k,1686)
     154   145586232 :          lu(k,1833) = lu(k,1833) - lu(k,157) * lu(k,1686)
     155             :       end do
     156     4411704 :       end subroutine lu_fac02
     157     4411704 :       subroutine lu_fac03( avec_len, lu )
     158             :       use chem_mods, only : nzcnt
     159             :       use shr_kind_mod, only : r8 => shr_kind_r8
     160             :       implicit none
     161             : !-----------------------------------------------------------------------
     162             : ! ... dummy args
     163             : !-----------------------------------------------------------------------
     164             :       integer, intent(in) :: avec_len
     165             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     166             : !-----------------------------------------------------------------------
     167             : ! ... local variables
     168             : !-----------------------------------------------------------------------
     169             :       integer :: k
     170   145586232 :       do k = 1,avec_len
     171   141174528 :          lu(k,158) = 1._r8 / lu(k,158)
     172   141174528 :          lu(k,159) = lu(k,159) * lu(k,158)
     173   141174528 :          lu(k,160) = lu(k,160) * lu(k,158)
     174   141174528 :          lu(k,161) = lu(k,161) * lu(k,158)
     175   141174528 :          lu(k,1634) = lu(k,1634) - lu(k,159) * lu(k,1623)
     176   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,160) * lu(k,1623)
     177   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,161) * lu(k,1623)
     178   141174528 :          lu(k,162) = 1._r8 / lu(k,162)
     179   141174528 :          lu(k,163) = lu(k,163) * lu(k,162)
     180   141174528 :          lu(k,164) = lu(k,164) * lu(k,162)
     181   141174528 :          lu(k,165) = lu(k,165) * lu(k,162)
     182   141174528 :          lu(k,1632) = lu(k,1632) - lu(k,163) * lu(k,1624)
     183   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,164) * lu(k,1624)
     184   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,165) * lu(k,1624)
     185   141174528 :          lu(k,166) = 1._r8 / lu(k,166)
     186   141174528 :          lu(k,167) = lu(k,167) * lu(k,166)
     187   141174528 :          lu(k,168) = lu(k,168) * lu(k,166)
     188   141174528 :          lu(k,169) = lu(k,169) * lu(k,166)
     189   141174528 :          lu(k,1632) = lu(k,1632) - lu(k,167) * lu(k,1625)
     190   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,168) * lu(k,1625)
     191   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,169) * lu(k,1625)
     192   141174528 :          lu(k,170) = 1._r8 / lu(k,170)
     193   141174528 :          lu(k,171) = lu(k,171) * lu(k,170)
     194   141174528 :          lu(k,172) = lu(k,172) * lu(k,170)
     195   141174528 :          lu(k,173) = lu(k,173) * lu(k,170)
     196   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,171) * lu(k,1687)
     197   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,172) * lu(k,1687)
     198   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,173) * lu(k,1687)
     199   141174528 :          lu(k,174) = 1._r8 / lu(k,174)
     200   141174528 :          lu(k,175) = lu(k,175) * lu(k,174)
     201   141174528 :          lu(k,176) = lu(k,176) * lu(k,174)
     202   141174528 :          lu(k,781) = lu(k,781) - lu(k,175) * lu(k,779)
     203   141174528 :          lu(k,785) = lu(k,785) - lu(k,176) * lu(k,779)
     204   141174528 :          lu(k,1803) = lu(k,1803) - lu(k,175) * lu(k,1688)
     205   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,176) * lu(k,1688)
     206   141174528 :          lu(k,177) = 1._r8 / lu(k,177)
     207   141174528 :          lu(k,178) = lu(k,178) * lu(k,177)
     208   141174528 :          lu(k,179) = lu(k,179) * lu(k,177)
     209   141174528 :          lu(k,563) = lu(k,563) - lu(k,178) * lu(k,562)
     210   141174528 :          lu(k,565) = lu(k,565) - lu(k,179) * lu(k,562)
     211   141174528 :          lu(k,1552) = lu(k,1552) - lu(k,178) * lu(k,1546)
     212   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,179) * lu(k,1546)
     213   141174528 :          lu(k,180) = 1._r8 / lu(k,180)
     214   141174528 :          lu(k,181) = lu(k,181) * lu(k,180)
     215   141174528 :          lu(k,182) = lu(k,182) * lu(k,180)
     216   141174528 :          lu(k,183) = lu(k,183) * lu(k,180)
     217   141174528 :          lu(k,184) = lu(k,184) * lu(k,180)
     218   141174528 :          lu(k,1632) = lu(k,1632) - lu(k,181) * lu(k,1626)
     219   141174528 :          lu(k,1643) = lu(k,1643) - lu(k,182) * lu(k,1626)
     220   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,183) * lu(k,1626)
     221   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,184) * lu(k,1626)
     222   141174528 :          lu(k,185) = 1._r8 / lu(k,185)
     223   141174528 :          lu(k,186) = lu(k,186) * lu(k,185)
     224   141174528 :          lu(k,187) = lu(k,187) * lu(k,185)
     225   141174528 :          lu(k,188) = lu(k,188) * lu(k,185)
     226   141174528 :          lu(k,189) = lu(k,189) * lu(k,185)
     227   141174528 :          lu(k,1632) = lu(k,1632) - lu(k,186) * lu(k,1627)
     228   141174528 :          lu(k,1641) = lu(k,1641) - lu(k,187) * lu(k,1627)
     229   141174528 :          lu(k,1643) = lu(k,1643) - lu(k,188) * lu(k,1627)
     230   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,189) * lu(k,1627)
     231   141174528 :          lu(k,190) = 1._r8 / lu(k,190)
     232   141174528 :          lu(k,191) = lu(k,191) * lu(k,190)
     233   141174528 :          lu(k,192) = lu(k,192) * lu(k,190)
     234   141174528 :          lu(k,193) = lu(k,193) * lu(k,190)
     235   141174528 :          lu(k,194) = lu(k,194) * lu(k,190)
     236   141174528 :          lu(k,1632) = lu(k,1632) - lu(k,191) * lu(k,1628)
     237   141174528 :          lu(k,1634) = lu(k,1634) - lu(k,192) * lu(k,1628)
     238   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,193) * lu(k,1628)
     239   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,194) * lu(k,1628)
     240   141174528 :          lu(k,195) = 1._r8 / lu(k,195)
     241   141174528 :          lu(k,196) = lu(k,196) * lu(k,195)
     242   141174528 :          lu(k,197) = lu(k,197) * lu(k,195)
     243   141174528 :          lu(k,198) = lu(k,198) * lu(k,195)
     244   141174528 :          lu(k,199) = lu(k,199) * lu(k,195)
     245   141174528 :          lu(k,1632) = lu(k,1632) - lu(k,196) * lu(k,1629)
     246   141174528 :          lu(k,1641) = lu(k,1641) - lu(k,197) * lu(k,1629)
     247   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,198) * lu(k,1629)
     248   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,199) * lu(k,1629)
     249   141174528 :          lu(k,200) = 1._r8 / lu(k,200)
     250   141174528 :          lu(k,201) = lu(k,201) * lu(k,200)
     251   141174528 :          lu(k,202) = lu(k,202) * lu(k,200)
     252   141174528 :          lu(k,750) = lu(k,750) - lu(k,201) * lu(k,749)
     253   141174528 :          lu(k,755) = - lu(k,202) * lu(k,749)
     254   141174528 :          lu(k,2222) = - lu(k,201) * lu(k,2219)
     255   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,202) * lu(k,2219)
     256   141174528 :          lu(k,203) = 1._r8 / lu(k,203)
     257   141174528 :          lu(k,204) = lu(k,204) * lu(k,203)
     258   141174528 :          lu(k,205) = lu(k,205) * lu(k,203)
     259   141174528 :          lu(k,302) = lu(k,302) - lu(k,204) * lu(k,301)
     260   141174528 :          lu(k,305) = lu(k,305) - lu(k,205) * lu(k,301)
     261   141174528 :          lu(k,2341) = lu(k,2341) - lu(k,204) * lu(k,2340)
     262   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,205) * lu(k,2340)
     263   141174528 :          lu(k,207) = 1._r8 / lu(k,207)
     264   141174528 :          lu(k,208) = lu(k,208) * lu(k,207)
     265   141174528 :          lu(k,209) = lu(k,209) * lu(k,207)
     266   141174528 :          lu(k,210) = lu(k,210) * lu(k,207)
     267   141174528 :          lu(k,211) = lu(k,211) * lu(k,207)
     268   141174528 :          lu(k,212) = lu(k,212) * lu(k,207)
     269   141174528 :          lu(k,1690) = lu(k,1690) - lu(k,208) * lu(k,1689)
     270   141174528 :          lu(k,1691) = lu(k,1691) - lu(k,209) * lu(k,1689)
     271   141174528 :          lu(k,1740) = lu(k,1740) - lu(k,210) * lu(k,1689)
     272   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,211) * lu(k,1689)
     273   145586232 :          lu(k,1831) = lu(k,1831) - lu(k,212) * lu(k,1689)
     274             :       end do
     275     4411704 :       end subroutine lu_fac03
     276     4411704 :       subroutine lu_fac04( avec_len, lu )
     277             :       use chem_mods, only : nzcnt
     278             :       use shr_kind_mod, only : r8 => shr_kind_r8
     279             :       implicit none
     280             : !-----------------------------------------------------------------------
     281             : ! ... dummy args
     282             : !-----------------------------------------------------------------------
     283             :       integer, intent(in) :: avec_len
     284             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     285             : !-----------------------------------------------------------------------
     286             : ! ... local variables
     287             : !-----------------------------------------------------------------------
     288             :       integer :: k
     289   145586232 :       do k = 1,avec_len
     290   141174528 :          lu(k,213) = 1._r8 / lu(k,213)
     291   141174528 :          lu(k,214) = lu(k,214) * lu(k,213)
     292   141174528 :          lu(k,215) = lu(k,215) * lu(k,213)
     293   141174528 :          lu(k,216) = lu(k,216) * lu(k,213)
     294   141174528 :          lu(k,1735) = - lu(k,214) * lu(k,1690)
     295   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,215) * lu(k,1690)
     296   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,216) * lu(k,1690)
     297   141174528 :          lu(k,217) = 1._r8 / lu(k,217)
     298   141174528 :          lu(k,218) = lu(k,218) * lu(k,217)
     299   141174528 :          lu(k,219) = lu(k,219) * lu(k,217)
     300   141174528 :          lu(k,220) = lu(k,220) * lu(k,217)
     301   141174528 :          lu(k,221) = lu(k,221) * lu(k,217)
     302   141174528 :          lu(k,1734) = lu(k,1734) - lu(k,218) * lu(k,1691)
     303   141174528 :          lu(k,1738) = lu(k,1738) - lu(k,219) * lu(k,1691)
     304   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,220) * lu(k,1691)
     305   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,221) * lu(k,1691)
     306   141174528 :          lu(k,222) = 1._r8 / lu(k,222)
     307   141174528 :          lu(k,223) = lu(k,223) * lu(k,222)
     308   141174528 :          lu(k,859) = lu(k,859) - lu(k,223) * lu(k,854)
     309   141174528 :          lu(k,979) = lu(k,979) - lu(k,223) * lu(k,970)
     310   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,223) * lu(k,2013)
     311   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,223) * lu(k,2095)
     312   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,223) * lu(k,2315)
     313   141174528 :          lu(k,224) = 1._r8 / lu(k,224)
     314   141174528 :          lu(k,225) = lu(k,225) * lu(k,224)
     315   141174528 :          lu(k,226) = lu(k,226) * lu(k,224)
     316   141174528 :          lu(k,531) = - lu(k,225) * lu(k,526)
     317   141174528 :          lu(k,533) = lu(k,533) - lu(k,226) * lu(k,526)
     318   141174528 :          lu(k,1578) = - lu(k,225) * lu(k,1547)
     319   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,226) * lu(k,1547)
     320   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,225) * lu(k,1630)
     321   141174528 :          lu(k,1653) = lu(k,1653) - lu(k,226) * lu(k,1630)
     322   141174528 :          lu(k,227) = 1._r8 / lu(k,227)
     323   141174528 :          lu(k,228) = lu(k,228) * lu(k,227)
     324   141174528 :          lu(k,229) = lu(k,229) * lu(k,227)
     325   141174528 :          lu(k,230) = lu(k,230) * lu(k,227)
     326   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,228) * lu(k,1631)
     327   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,229) * lu(k,1631)
     328   141174528 :          lu(k,1659) = lu(k,1659) - lu(k,230) * lu(k,1631)
     329   141174528 :          lu(k,1822) = - lu(k,228) * lu(k,1692)
     330   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,229) * lu(k,1692)
     331   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,230) * lu(k,1692)
     332   141174528 :          lu(k,232) = 1._r8 / lu(k,232)
     333   141174528 :          lu(k,233) = lu(k,233) * lu(k,232)
     334   141174528 :          lu(k,234) = lu(k,234) * lu(k,232)
     335   141174528 :          lu(k,235) = lu(k,235) * lu(k,232)
     336   141174528 :          lu(k,236) = lu(k,236) * lu(k,232)
     337   141174528 :          lu(k,237) = lu(k,237) * lu(k,232)
     338   141174528 :          lu(k,238) = lu(k,238) * lu(k,232)
     339   141174528 :          lu(k,1694) = lu(k,1694) - lu(k,233) * lu(k,1693)
     340   141174528 :          lu(k,1695) = lu(k,1695) - lu(k,234) * lu(k,1693)
     341   141174528 :          lu(k,1733) = lu(k,1733) - lu(k,235) * lu(k,1693)
     342   141174528 :          lu(k,1767) = lu(k,1767) - lu(k,236) * lu(k,1693)
     343   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,237) * lu(k,1693)
     344   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,238) * lu(k,1693)
     345   141174528 :          lu(k,239) = 1._r8 / lu(k,239)
     346   141174528 :          lu(k,240) = lu(k,240) * lu(k,239)
     347   141174528 :          lu(k,241) = lu(k,241) * lu(k,239)
     348   141174528 :          lu(k,242) = lu(k,242) * lu(k,239)
     349   141174528 :          lu(k,243) = lu(k,243) * lu(k,239)
     350   141174528 :          lu(k,1734) = lu(k,1734) - lu(k,240) * lu(k,1694)
     351   141174528 :          lu(k,1738) = lu(k,1738) - lu(k,241) * lu(k,1694)
     352   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,242) * lu(k,1694)
     353   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,243) * lu(k,1694)
     354   141174528 :          lu(k,244) = 1._r8 / lu(k,244)
     355   141174528 :          lu(k,245) = lu(k,245) * lu(k,244)
     356   141174528 :          lu(k,246) = lu(k,246) * lu(k,244)
     357   141174528 :          lu(k,247) = lu(k,247) * lu(k,244)
     358   141174528 :          lu(k,257) = - lu(k,245) * lu(k,252)
     359   141174528 :          lu(k,258) = - lu(k,246) * lu(k,252)
     360   141174528 :          lu(k,260) = lu(k,260) - lu(k,247) * lu(k,252)
     361   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,245) * lu(k,1695)
     362   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,246) * lu(k,1695)
     363   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,247) * lu(k,1695)
     364   141174528 :          lu(k,248) = 1._r8 / lu(k,248)
     365   141174528 :          lu(k,249) = lu(k,249) * lu(k,248)
     366   141174528 :          lu(k,250) = lu(k,250) * lu(k,248)
     367   141174528 :          lu(k,1217) = lu(k,1217) - lu(k,249) * lu(k,1210)
     368   141174528 :          lu(k,1223) = - lu(k,250) * lu(k,1210)
     369   141174528 :          lu(k,1803) = lu(k,1803) - lu(k,249) * lu(k,1696)
     370   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,250) * lu(k,1696)
     371   141174528 :          lu(k,2284) = lu(k,2284) - lu(k,249) * lu(k,2220)
     372   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,250) * lu(k,2220)
     373   141174528 :          lu(k,253) = 1._r8 / lu(k,253)
     374   141174528 :          lu(k,254) = lu(k,254) * lu(k,253)
     375   141174528 :          lu(k,255) = lu(k,255) * lu(k,253)
     376   141174528 :          lu(k,256) = lu(k,256) * lu(k,253)
     377   141174528 :          lu(k,257) = lu(k,257) * lu(k,253)
     378   141174528 :          lu(k,258) = lu(k,258) * lu(k,253)
     379   141174528 :          lu(k,259) = lu(k,259) * lu(k,253)
     380   141174528 :          lu(k,260) = lu(k,260) * lu(k,253)
     381   141174528 :          lu(k,1698) = lu(k,1698) - lu(k,254) * lu(k,1697)
     382   141174528 :          lu(k,1733) = lu(k,1733) - lu(k,255) * lu(k,1697)
     383   141174528 :          lu(k,1769) = lu(k,1769) - lu(k,256) * lu(k,1697)
     384   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,257) * lu(k,1697)
     385   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,258) * lu(k,1697)
     386   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,259) * lu(k,1697)
     387   145586232 :          lu(k,1831) = lu(k,1831) - lu(k,260) * lu(k,1697)
     388             :       end do
     389     4411704 :       end subroutine lu_fac04
     390     4411704 :       subroutine lu_fac05( avec_len, lu )
     391             :       use chem_mods, only : nzcnt
     392             :       use shr_kind_mod, only : r8 => shr_kind_r8
     393             :       implicit none
     394             : !-----------------------------------------------------------------------
     395             : ! ... dummy args
     396             : !-----------------------------------------------------------------------
     397             :       integer, intent(in) :: avec_len
     398             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     399             : !-----------------------------------------------------------------------
     400             : ! ... local variables
     401             : !-----------------------------------------------------------------------
     402             :       integer :: k
     403   145586232 :       do k = 1,avec_len
     404   141174528 :          lu(k,261) = 1._r8 / lu(k,261)
     405   141174528 :          lu(k,262) = lu(k,262) * lu(k,261)
     406   141174528 :          lu(k,263) = lu(k,263) * lu(k,261)
     407   141174528 :          lu(k,264) = lu(k,264) * lu(k,261)
     408   141174528 :          lu(k,265) = lu(k,265) * lu(k,261)
     409   141174528 :          lu(k,1738) = lu(k,1738) - lu(k,262) * lu(k,1698)
     410   141174528 :          lu(k,1741) = lu(k,1741) - lu(k,263) * lu(k,1698)
     411   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,264) * lu(k,1698)
     412   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,265) * lu(k,1698)
     413   141174528 :          lu(k,266) = 1._r8 / lu(k,266)
     414   141174528 :          lu(k,267) = lu(k,267) * lu(k,266)
     415   141174528 :          lu(k,268) = lu(k,268) * lu(k,266)
     416   141174528 :          lu(k,937) = - lu(k,267) * lu(k,933)
     417   141174528 :          lu(k,951) = lu(k,951) - lu(k,268) * lu(k,933)
     418   141174528 :          lu(k,1011) = - lu(k,267) * lu(k,1008)
     419   141174528 :          lu(k,1028) = lu(k,1028) - lu(k,268) * lu(k,1008)
     420   141174528 :          lu(k,1784) = lu(k,1784) - lu(k,267) * lu(k,1699)
     421   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,268) * lu(k,1699)
     422   141174528 :          lu(k,2151) = - lu(k,267) * lu(k,2139)
     423   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,268) * lu(k,2139)
     424   141174528 :          lu(k,269) = 1._r8 / lu(k,269)
     425   141174528 :          lu(k,270) = lu(k,270) * lu(k,269)
     426   141174528 :          lu(k,271) = lu(k,271) * lu(k,269)
     427   141174528 :          lu(k,1140) = lu(k,1140) - lu(k,270) * lu(k,1131)
     428   141174528 :          lu(k,1142) = lu(k,1142) - lu(k,271) * lu(k,1131)
     429   141174528 :          lu(k,1166) = - lu(k,270) * lu(k,1155)
     430   141174528 :          lu(k,1168) = lu(k,1168) - lu(k,271) * lu(k,1155)
     431   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,270) * lu(k,1700)
     432   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,271) * lu(k,1700)
     433   141174528 :          lu(k,1944) = - lu(k,270) * lu(k,1881)
     434   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,271) * lu(k,1881)
     435   141174528 :          lu(k,272) = 1._r8 / lu(k,272)
     436   141174528 :          lu(k,273) = lu(k,273) * lu(k,272)
     437   141174528 :          lu(k,274) = lu(k,274) * lu(k,272)
     438   141174528 :          lu(k,824) = lu(k,824) - lu(k,273) * lu(k,822)
     439   141174528 :          lu(k,829) = - lu(k,274) * lu(k,822)
     440   141174528 :          lu(k,1840) = lu(k,1840) - lu(k,273) * lu(k,1834)
     441   141174528 :          lu(k,1853) = lu(k,1853) - lu(k,274) * lu(k,1834)
     442   141174528 :          lu(k,2018) = - lu(k,273) * lu(k,2014)
     443   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,274) * lu(k,2014)
     444   141174528 :          lu(k,2322) = lu(k,2322) - lu(k,273) * lu(k,2316)
     445   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,274) * lu(k,2316)
     446   141174528 :          lu(k,275) = 1._r8 / lu(k,275)
     447   141174528 :          lu(k,276) = lu(k,276) * lu(k,275)
     448   141174528 :          lu(k,277) = lu(k,277) * lu(k,275)
     449   141174528 :          lu(k,373) = - lu(k,276) * lu(k,370)
     450   141174528 :          lu(k,374) = lu(k,374) - lu(k,277) * lu(k,370)
     451   141174528 :          lu(k,487) = - lu(k,276) * lu(k,484)
     452   141174528 :          lu(k,489) = - lu(k,277) * lu(k,484)
     453   141174528 :          lu(k,1744) = lu(k,1744) - lu(k,276) * lu(k,1701)
     454   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,277) * lu(k,1701)
     455   141174528 :          lu(k,1896) = lu(k,1896) - lu(k,276) * lu(k,1882)
     456   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,277) * lu(k,1882)
     457   141174528 :          lu(k,278) = 1._r8 / lu(k,278)
     458   141174528 :          lu(k,279) = lu(k,279) * lu(k,278)
     459   141174528 :          lu(k,280) = lu(k,280) * lu(k,278)
     460   141174528 :          lu(k,281) = lu(k,281) * lu(k,278)
     461   141174528 :          lu(k,282) = lu(k,282) * lu(k,278)
     462   141174528 :          lu(k,1320) = - lu(k,279) * lu(k,1317)
     463   141174528 :          lu(k,1331) = - lu(k,280) * lu(k,1317)
     464   141174528 :          lu(k,1343) = - lu(k,281) * lu(k,1317)
     465   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,282) * lu(k,1317)
     466   141174528 :          lu(k,1753) = - lu(k,279) * lu(k,1702)
     467   141174528 :          lu(k,1803) = lu(k,1803) - lu(k,280) * lu(k,1702)
     468   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,281) * lu(k,1702)
     469   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,282) * lu(k,1702)
     470   141174528 :          lu(k,283) = 1._r8 / lu(k,283)
     471   141174528 :          lu(k,284) = lu(k,284) * lu(k,283)
     472   141174528 :          lu(k,285) = lu(k,285) * lu(k,283)
     473   141174528 :          lu(k,297) = - lu(k,284) * lu(k,295)
     474   141174528 :          lu(k,298) = lu(k,298) - lu(k,285) * lu(k,295)
     475   141174528 :          lu(k,335) = - lu(k,284) * lu(k,333)
     476   141174528 :          lu(k,336) = lu(k,336) - lu(k,285) * lu(k,333)
     477   141174528 :          lu(k,1641) = lu(k,1641) - lu(k,284) * lu(k,1632)
     478   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,285) * lu(k,1632)
     479   141174528 :          lu(k,1781) = - lu(k,284) * lu(k,1703)
     480   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,285) * lu(k,1703)
     481   141174528 :          lu(k,286) = 1._r8 / lu(k,286)
     482   141174528 :          lu(k,287) = lu(k,287) * lu(k,286)
     483   141174528 :          lu(k,288) = lu(k,288) * lu(k,286)
     484   141174528 :          lu(k,289) = lu(k,289) * lu(k,286)
     485   141174528 :          lu(k,290) = lu(k,290) * lu(k,286)
     486   141174528 :          lu(k,1634) = lu(k,1634) - lu(k,287) * lu(k,1633)
     487   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,288) * lu(k,1633)
     488   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,289) * lu(k,1633)
     489   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,290) * lu(k,1633)
     490   141174528 :          lu(k,1705) = lu(k,1705) - lu(k,287) * lu(k,1704)
     491   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,288) * lu(k,1704)
     492   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,289) * lu(k,1704)
     493   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,290) * lu(k,1704)
     494   141174528 :          lu(k,291) = 1._r8 / lu(k,291)
     495   141174528 :          lu(k,292) = lu(k,292) * lu(k,291)
     496   141174528 :          lu(k,293) = lu(k,293) * lu(k,291)
     497   141174528 :          lu(k,294) = lu(k,294) * lu(k,291)
     498   141174528 :          lu(k,1641) = lu(k,1641) - lu(k,292) * lu(k,1634)
     499   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,293) * lu(k,1634)
     500   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,294) * lu(k,1634)
     501   141174528 :          lu(k,1781) = lu(k,1781) - lu(k,292) * lu(k,1705)
     502   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,293) * lu(k,1705)
     503   145586232 :          lu(k,1829) = lu(k,1829) - lu(k,294) * lu(k,1705)
     504             :       end do
     505     4411704 :       end subroutine lu_fac05
     506     4411704 :       subroutine lu_fac06( avec_len, lu )
     507             :       use chem_mods, only : nzcnt
     508             :       use shr_kind_mod, only : r8 => shr_kind_r8
     509             :       implicit none
     510             : !-----------------------------------------------------------------------
     511             : ! ... dummy args
     512             : !-----------------------------------------------------------------------
     513             :       integer, intent(in) :: avec_len
     514             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     515             : !-----------------------------------------------------------------------
     516             : ! ... local variables
     517             : !-----------------------------------------------------------------------
     518             :       integer :: k
     519   145586232 :       do k = 1,avec_len
     520   141174528 :          lu(k,296) = 1._r8 / lu(k,296)
     521   141174528 :          lu(k,297) = lu(k,297) * lu(k,296)
     522   141174528 :          lu(k,298) = lu(k,298) * lu(k,296)
     523   141174528 :          lu(k,299) = lu(k,299) * lu(k,296)
     524   141174528 :          lu(k,300) = lu(k,300) * lu(k,296)
     525   141174528 :          lu(k,1641) = lu(k,1641) - lu(k,297) * lu(k,1635)
     526   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,298) * lu(k,1635)
     527   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,299) * lu(k,1635)
     528   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,300) * lu(k,1635)
     529   141174528 :          lu(k,1781) = lu(k,1781) - lu(k,297) * lu(k,1706)
     530   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,298) * lu(k,1706)
     531   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,299) * lu(k,1706)
     532   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,300) * lu(k,1706)
     533   141174528 :          lu(k,302) = 1._r8 / lu(k,302)
     534   141174528 :          lu(k,303) = lu(k,303) * lu(k,302)
     535   141174528 :          lu(k,304) = lu(k,304) * lu(k,302)
     536   141174528 :          lu(k,305) = lu(k,305) * lu(k,302)
     537   141174528 :          lu(k,902) = lu(k,902) - lu(k,303) * lu(k,901)
     538   141174528 :          lu(k,904) = lu(k,904) - lu(k,304) * lu(k,901)
     539   141174528 :          lu(k,907) = - lu(k,305) * lu(k,901)
     540   141174528 :          lu(k,1780) = lu(k,1780) - lu(k,303) * lu(k,1707)
     541   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,304) * lu(k,1707)
     542   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,305) * lu(k,1707)
     543   141174528 :          lu(k,2343) = - lu(k,303) * lu(k,2341)
     544   141174528 :          lu(k,2353) = lu(k,2353) - lu(k,304) * lu(k,2341)
     545   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,305) * lu(k,2341)
     546   141174528 :          lu(k,306) = 1._r8 / lu(k,306)
     547   141174528 :          lu(k,307) = lu(k,307) * lu(k,306)
     548   141174528 :          lu(k,308) = lu(k,308) * lu(k,306)
     549   141174528 :          lu(k,309) = lu(k,309) * lu(k,306)
     550   141174528 :          lu(k,866) = lu(k,866) - lu(k,307) * lu(k,862)
     551   141174528 :          lu(k,869) = - lu(k,308) * lu(k,862)
     552   141174528 :          lu(k,872) = lu(k,872) - lu(k,309) * lu(k,862)
     553   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,307) * lu(k,1708)
     554   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,308) * lu(k,1708)
     555   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,309) * lu(k,1708)
     556   141174528 :          lu(k,1976) = lu(k,1976) - lu(k,307) * lu(k,1961)
     557   141174528 :          lu(k,2002) = - lu(k,308) * lu(k,1961)
     558   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,309) * lu(k,1961)
     559   141174528 :          lu(k,310) = 1._r8 / lu(k,310)
     560   141174528 :          lu(k,311) = lu(k,311) * lu(k,310)
     561   141174528 :          lu(k,312) = lu(k,312) * lu(k,310)
     562   141174528 :          lu(k,313) = lu(k,313) * lu(k,310)
     563   141174528 :          lu(k,669) = lu(k,669) - lu(k,311) * lu(k,668)
     564   141174528 :          lu(k,670) = lu(k,670) - lu(k,312) * lu(k,668)
     565   141174528 :          lu(k,672) = - lu(k,313) * lu(k,668)
     566   141174528 :          lu(k,1738) = lu(k,1738) - lu(k,311) * lu(k,1709)
     567   141174528 :          lu(k,1757) = lu(k,1757) - lu(k,312) * lu(k,1709)
     568   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,313) * lu(k,1709)
     569   141174528 :          lu(k,2241) = - lu(k,311) * lu(k,2221)
     570   141174528 :          lu(k,2248) = lu(k,2248) - lu(k,312) * lu(k,2221)
     571   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,313) * lu(k,2221)
     572   141174528 :          lu(k,314) = 1._r8 / lu(k,314)
     573   141174528 :          lu(k,315) = lu(k,315) * lu(k,314)
     574   141174528 :          lu(k,316) = lu(k,316) * lu(k,314)
     575   141174528 :          lu(k,317) = lu(k,317) * lu(k,314)
     576   141174528 :          lu(k,752) = - lu(k,315) * lu(k,750)
     577   141174528 :          lu(k,753) = lu(k,753) - lu(k,316) * lu(k,750)
     578   141174528 :          lu(k,757) = lu(k,757) - lu(k,317) * lu(k,750)
     579   141174528 :          lu(k,1923) = lu(k,1923) - lu(k,315) * lu(k,1883)
     580   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,316) * lu(k,1883)
     581   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,317) * lu(k,1883)
     582   141174528 :          lu(k,2276) = - lu(k,315) * lu(k,2222)
     583   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,316) * lu(k,2222)
     584   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,317) * lu(k,2222)
     585   141174528 :          lu(k,318) = 1._r8 / lu(k,318)
     586   141174528 :          lu(k,319) = lu(k,319) * lu(k,318)
     587   141174528 :          lu(k,320) = lu(k,320) * lu(k,318)
     588   141174528 :          lu(k,722) = - lu(k,319) * lu(k,716)
     589   141174528 :          lu(k,728) = lu(k,728) - lu(k,320) * lu(k,716)
     590   141174528 :          lu(k,741) = - lu(k,319) * lu(k,734)
     591   141174528 :          lu(k,748) = lu(k,748) - lu(k,320) * lu(k,734)
     592   141174528 :          lu(k,770) = - lu(k,319) * lu(k,764)
     593   141174528 :          lu(k,778) = lu(k,778) - lu(k,320) * lu(k,764)
     594   141174528 :          lu(k,794) = - lu(k,319) * lu(k,787)
     595   141174528 :          lu(k,803) = lu(k,803) - lu(k,320) * lu(k,787)
     596   141174528 :          lu(k,1909) = lu(k,1909) - lu(k,319) * lu(k,1884)
     597   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,320) * lu(k,1884)
     598   141174528 :          lu(k,321) = 1._r8 / lu(k,321)
     599   141174528 :          lu(k,322) = lu(k,322) * lu(k,321)
     600   141174528 :          lu(k,323) = lu(k,323) * lu(k,321)
     601   141174528 :          lu(k,324) = lu(k,324) * lu(k,321)
     602   141174528 :          lu(k,325) = lu(k,325) * lu(k,321)
     603   141174528 :          lu(k,326) = lu(k,326) * lu(k,321)
     604   141174528 :          lu(k,1787) = lu(k,1787) - lu(k,322) * lu(k,1710)
     605   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,323) * lu(k,1710)
     606   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,324) * lu(k,1710)
     607   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,325) * lu(k,1710)
     608   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,326) * lu(k,1710)
     609   141174528 :          lu(k,2108) = - lu(k,322) * lu(k,2096)
     610   141174528 :          lu(k,2109) = - lu(k,323) * lu(k,2096)
     611   141174528 :          lu(k,2112) = lu(k,2112) - lu(k,324) * lu(k,2096)
     612   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,325) * lu(k,2096)
     613   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,326) * lu(k,2096)
     614   141174528 :          lu(k,327) = 1._r8 / lu(k,327)
     615   141174528 :          lu(k,328) = lu(k,328) * lu(k,327)
     616   141174528 :          lu(k,329) = lu(k,329) * lu(k,327)
     617   141174528 :          lu(k,330) = lu(k,330) * lu(k,327)
     618   141174528 :          lu(k,331) = lu(k,331) * lu(k,327)
     619   141174528 :          lu(k,332) = lu(k,332) * lu(k,327)
     620   141174528 :          lu(k,1776) = lu(k,1776) - lu(k,328) * lu(k,1711)
     621   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,329) * lu(k,1711)
     622   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,330) * lu(k,1711)
     623   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,331) * lu(k,1711)
     624   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,332) * lu(k,1711)
     625   141174528 :          lu(k,2106) = lu(k,2106) - lu(k,328) * lu(k,2097)
     626   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,329) * lu(k,2097)
     627   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,330) * lu(k,2097)
     628   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,331) * lu(k,2097)
     629   145586232 :          lu(k,2133) = - lu(k,332) * lu(k,2097)
     630             :       end do
     631     4411704 :       end subroutine lu_fac06
     632     4411704 :       subroutine lu_fac07( avec_len, lu )
     633             :       use chem_mods, only : nzcnt
     634             :       use shr_kind_mod, only : r8 => shr_kind_r8
     635             :       implicit none
     636             : !-----------------------------------------------------------------------
     637             : ! ... dummy args
     638             : !-----------------------------------------------------------------------
     639             :       integer, intent(in) :: avec_len
     640             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     641             : !-----------------------------------------------------------------------
     642             : ! ... local variables
     643             : !-----------------------------------------------------------------------
     644             :       integer :: k
     645   145586232 :       do k = 1,avec_len
     646   141174528 :          lu(k,334) = 1._r8 / lu(k,334)
     647   141174528 :          lu(k,335) = lu(k,335) * lu(k,334)
     648   141174528 :          lu(k,336) = lu(k,336) * lu(k,334)
     649   141174528 :          lu(k,337) = lu(k,337) * lu(k,334)
     650   141174528 :          lu(k,338) = lu(k,338) * lu(k,334)
     651   141174528 :          lu(k,339) = lu(k,339) * lu(k,334)
     652   141174528 :          lu(k,1641) = lu(k,1641) - lu(k,335) * lu(k,1636)
     653   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,336) * lu(k,1636)
     654   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,337) * lu(k,1636)
     655   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,338) * lu(k,1636)
     656   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,339) * lu(k,1636)
     657   141174528 :          lu(k,1781) = lu(k,1781) - lu(k,335) * lu(k,1712)
     658   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,336) * lu(k,1712)
     659   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,337) * lu(k,1712)
     660   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,338) * lu(k,1712)
     661   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,339) * lu(k,1712)
     662   141174528 :          lu(k,340) = 1._r8 / lu(k,340)
     663   141174528 :          lu(k,341) = lu(k,341) * lu(k,340)
     664   141174528 :          lu(k,342) = lu(k,342) * lu(k,340)
     665   141174528 :          lu(k,909) = lu(k,909) - lu(k,341) * lu(k,908)
     666   141174528 :          lu(k,913) = lu(k,913) - lu(k,342) * lu(k,908)
     667   141174528 :          lu(k,1447) = lu(k,1447) - lu(k,341) * lu(k,1446)
     668   141174528 :          lu(k,1451) = lu(k,1451) - lu(k,342) * lu(k,1446)
     669   141174528 :          lu(k,1474) = lu(k,1474) - lu(k,341) * lu(k,1472)
     670   141174528 :          lu(k,1479) = lu(k,1479) - lu(k,342) * lu(k,1472)
     671   141174528 :          lu(k,1491) = lu(k,1491) - lu(k,341) * lu(k,1490)
     672   141174528 :          lu(k,1495) = - lu(k,342) * lu(k,1490)
     673   141174528 :          lu(k,2344) = lu(k,2344) - lu(k,341) * lu(k,2342)
     674   141174528 :          lu(k,2350) = lu(k,2350) - lu(k,342) * lu(k,2342)
     675   141174528 :          lu(k,343) = 1._r8 / lu(k,343)
     676   141174528 :          lu(k,344) = lu(k,344) * lu(k,343)
     677   141174528 :          lu(k,345) = lu(k,345) * lu(k,343)
     678   141174528 :          lu(k,346) = lu(k,346) * lu(k,343)
     679   141174528 :          lu(k,347) = lu(k,347) * lu(k,343)
     680   141174528 :          lu(k,348) = lu(k,348) * lu(k,343)
     681   141174528 :          lu(k,1573) = lu(k,1573) - lu(k,344) * lu(k,1548)
     682   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,345) * lu(k,1548)
     683   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,346) * lu(k,1548)
     684   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,347) * lu(k,1548)
     685   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,348) * lu(k,1548)
     686   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,344) * lu(k,2038)
     687   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,345) * lu(k,2038)
     688   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,346) * lu(k,2038)
     689   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,347) * lu(k,2038)
     690   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,348) * lu(k,2038)
     691   141174528 :          lu(k,349) = 1._r8 / lu(k,349)
     692   141174528 :          lu(k,350) = lu(k,350) * lu(k,349)
     693   141174528 :          lu(k,351) = lu(k,351) * lu(k,349)
     694   141174528 :          lu(k,352) = lu(k,352) * lu(k,349)
     695   141174528 :          lu(k,353) = lu(k,353) * lu(k,349)
     696   141174528 :          lu(k,354) = lu(k,354) * lu(k,349)
     697   141174528 :          lu(k,1780) = lu(k,1780) - lu(k,350) * lu(k,1713)
     698   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,351) * lu(k,1713)
     699   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,352) * lu(k,1713)
     700   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,353) * lu(k,1713)
     701   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,354) * lu(k,1713)
     702   141174528 :          lu(k,2045) = lu(k,2045) - lu(k,350) * lu(k,2039)
     703   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,351) * lu(k,2039)
     704   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,352) * lu(k,2039)
     705   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,353) * lu(k,2039)
     706   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,354) * lu(k,2039)
     707   141174528 :          lu(k,355) = 1._r8 / lu(k,355)
     708   141174528 :          lu(k,356) = lu(k,356) * lu(k,355)
     709   141174528 :          lu(k,357) = lu(k,357) * lu(k,355)
     710   141174528 :          lu(k,358) = lu(k,358) * lu(k,355)
     711   141174528 :          lu(k,359) = lu(k,359) * lu(k,355)
     712   141174528 :          lu(k,744) = - lu(k,356) * lu(k,735)
     713   141174528 :          lu(k,745) = lu(k,745) - lu(k,357) * lu(k,735)
     714   141174528 :          lu(k,746) = - lu(k,358) * lu(k,735)
     715   141174528 :          lu(k,748) = lu(k,748) - lu(k,359) * lu(k,735)
     716   141174528 :          lu(k,797) = - lu(k,356) * lu(k,788)
     717   141174528 :          lu(k,798) = lu(k,798) - lu(k,357) * lu(k,788)
     718   141174528 :          lu(k,799) = - lu(k,358) * lu(k,788)
     719   141174528 :          lu(k,803) = lu(k,803) - lu(k,359) * lu(k,788)
     720   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,356) * lu(k,1885)
     721   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,357) * lu(k,1885)
     722   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,358) * lu(k,1885)
     723   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,359) * lu(k,1885)
     724   141174528 :          lu(k,360) = 1._r8 / lu(k,360)
     725   141174528 :          lu(k,361) = lu(k,361) * lu(k,360)
     726   141174528 :          lu(k,362) = lu(k,362) * lu(k,360)
     727   141174528 :          lu(k,363) = lu(k,363) * lu(k,360)
     728   141174528 :          lu(k,364) = lu(k,364) * lu(k,360)
     729   141174528 :          lu(k,1275) = lu(k,1275) - lu(k,361) * lu(k,1273)
     730   141174528 :          lu(k,1276) = lu(k,1276) - lu(k,362) * lu(k,1273)
     731   141174528 :          lu(k,1280) = lu(k,1280) - lu(k,363) * lu(k,1273)
     732   141174528 :          lu(k,1287) = lu(k,1287) - lu(k,364) * lu(k,1273)
     733   141174528 :          lu(k,1838) = lu(k,1838) - lu(k,361) * lu(k,1835)
     734   141174528 :          lu(k,1839) = lu(k,1839) - lu(k,362) * lu(k,1835)
     735   141174528 :          lu(k,1845) = lu(k,1845) - lu(k,363) * lu(k,1835)
     736   141174528 :          lu(k,1856) = lu(k,1856) - lu(k,364) * lu(k,1835)
     737   141174528 :          lu(k,2319) = lu(k,2319) - lu(k,361) * lu(k,2317)
     738   141174528 :          lu(k,2321) = lu(k,2321) - lu(k,362) * lu(k,2317)
     739   141174528 :          lu(k,2327) = lu(k,2327) - lu(k,363) * lu(k,2317)
     740   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,364) * lu(k,2317)
     741   141174528 :          lu(k,365) = 1._r8 / lu(k,365)
     742   141174528 :          lu(k,366) = lu(k,366) * lu(k,365)
     743   141174528 :          lu(k,367) = lu(k,367) * lu(k,365)
     744   141174528 :          lu(k,368) = lu(k,368) * lu(k,365)
     745   141174528 :          lu(k,369) = lu(k,369) * lu(k,365)
     746   141174528 :          lu(k,499) = lu(k,499) - lu(k,366) * lu(k,498)
     747   141174528 :          lu(k,500) = lu(k,500) - lu(k,367) * lu(k,498)
     748   141174528 :          lu(k,502) = - lu(k,368) * lu(k,498)
     749   141174528 :          lu(k,504) = lu(k,504) - lu(k,369) * lu(k,498)
     750   141174528 :          lu(k,1734) = lu(k,1734) - lu(k,366) * lu(k,1714)
     751   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,367) * lu(k,1714)
     752   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,368) * lu(k,1714)
     753   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,369) * lu(k,1714)
     754   141174528 :          lu(k,2238) = lu(k,2238) - lu(k,366) * lu(k,2223)
     755   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,367) * lu(k,2223)
     756   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,368) * lu(k,2223)
     757   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,369) * lu(k,2223)
     758   141174528 :          lu(k,371) = 1._r8 / lu(k,371)
     759   141174528 :          lu(k,372) = lu(k,372) * lu(k,371)
     760   141174528 :          lu(k,373) = lu(k,373) * lu(k,371)
     761   141174528 :          lu(k,374) = lu(k,374) * lu(k,371)
     762   141174528 :          lu(k,375) = lu(k,375) * lu(k,371)
     763   141174528 :          lu(k,486) = lu(k,486) - lu(k,372) * lu(k,485)
     764   141174528 :          lu(k,487) = lu(k,487) - lu(k,373) * lu(k,485)
     765   141174528 :          lu(k,489) = lu(k,489) - lu(k,374) * lu(k,485)
     766   141174528 :          lu(k,491) = lu(k,491) - lu(k,375) * lu(k,485)
     767   141174528 :          lu(k,1733) = lu(k,1733) - lu(k,372) * lu(k,1715)
     768   141174528 :          lu(k,1744) = lu(k,1744) - lu(k,373) * lu(k,1715)
     769   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,374) * lu(k,1715)
     770   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,375) * lu(k,1715)
     771   141174528 :          lu(k,2236) = lu(k,2236) - lu(k,372) * lu(k,2224)
     772   141174528 :          lu(k,2244) = lu(k,2244) - lu(k,373) * lu(k,2224)
     773   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,374) * lu(k,2224)
     774   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,375) * lu(k,2224)
     775   141174528 :          lu(k,376) = 1._r8 / lu(k,376)
     776   141174528 :          lu(k,377) = lu(k,377) * lu(k,376)
     777   141174528 :          lu(k,378) = lu(k,378) * lu(k,376)
     778   141174528 :          lu(k,379) = lu(k,379) * lu(k,376)
     779   141174528 :          lu(k,380) = lu(k,380) * lu(k,376)
     780   141174528 :          lu(k,865) = lu(k,865) - lu(k,377) * lu(k,863)
     781   141174528 :          lu(k,866) = lu(k,866) - lu(k,378) * lu(k,863)
     782   141174528 :          lu(k,869) = lu(k,869) - lu(k,379) * lu(k,863)
     783   141174528 :          lu(k,872) = lu(k,872) - lu(k,380) * lu(k,863)
     784   141174528 :          lu(k,1776) = lu(k,1776) - lu(k,377) * lu(k,1716)
     785   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,378) * lu(k,1716)
     786   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,379) * lu(k,1716)
     787   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,380) * lu(k,1716)
     788   141174528 :          lu(k,2266) = lu(k,2266) - lu(k,377) * lu(k,2225)
     789   141174528 :          lu(k,2275) = lu(k,2275) - lu(k,378) * lu(k,2225)
     790   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,379) * lu(k,2225)
     791   145586232 :          lu(k,2311) = lu(k,2311) - lu(k,380) * lu(k,2225)
     792             :       end do
     793     4411704 :       end subroutine lu_fac07
     794     4411704 :       subroutine lu_fac08( avec_len, lu )
     795             :       use chem_mods, only : nzcnt
     796             :       use shr_kind_mod, only : r8 => shr_kind_r8
     797             :       implicit none
     798             : !-----------------------------------------------------------------------
     799             : ! ... dummy args
     800             : !-----------------------------------------------------------------------
     801             :       integer, intent(in) :: avec_len
     802             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     803             : !-----------------------------------------------------------------------
     804             : ! ... local variables
     805             : !-----------------------------------------------------------------------
     806             :       integer :: k
     807   145586232 :       do k = 1,avec_len
     808   141174528 :          lu(k,381) = 1._r8 / lu(k,381)
     809   141174528 :          lu(k,382) = lu(k,382) * lu(k,381)
     810   141174528 :          lu(k,383) = lu(k,383) * lu(k,381)
     811   141174528 :          lu(k,1331) = lu(k,1331) - lu(k,382) * lu(k,1318)
     812   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,383) * lu(k,1318)
     813   141174528 :          lu(k,1424) = lu(k,1424) - lu(k,382) * lu(k,1414)
     814   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,383) * lu(k,1414)
     815   141174528 :          lu(k,1803) = lu(k,1803) - lu(k,382) * lu(k,1717)
     816   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,383) * lu(k,1717)
     817   141174528 :          lu(k,1932) = lu(k,1932) - lu(k,382) * lu(k,1886)
     818   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,383) * lu(k,1886)
     819   141174528 :          lu(k,1985) = lu(k,1985) - lu(k,382) * lu(k,1962)
     820   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,383) * lu(k,1962)
     821   141174528 :          lu(k,2065) = lu(k,2065) - lu(k,382) * lu(k,2040)
     822   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,383) * lu(k,2040)
     823   141174528 :          lu(k,384) = 1._r8 / lu(k,384)
     824   141174528 :          lu(k,385) = lu(k,385) * lu(k,384)
     825   141174528 :          lu(k,386) = lu(k,386) * lu(k,384)
     826   141174528 :          lu(k,387) = lu(k,387) * lu(k,384)
     827   141174528 :          lu(k,388) = lu(k,388) * lu(k,384)
     828   141174528 :          lu(k,1358) = lu(k,1358) - lu(k,385) * lu(k,1350)
     829   141174528 :          lu(k,1359) = - lu(k,386) * lu(k,1350)
     830   141174528 :          lu(k,1365) = - lu(k,387) * lu(k,1350)
     831   141174528 :          lu(k,1369) = lu(k,1369) - lu(k,388) * lu(k,1350)
     832   141174528 :          lu(k,1810) = lu(k,1810) - lu(k,385) * lu(k,1718)
     833   141174528 :          lu(k,1812) = lu(k,1812) - lu(k,386) * lu(k,1718)
     834   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,387) * lu(k,1718)
     835   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,388) * lu(k,1718)
     836   141174528 :          lu(k,2290) = lu(k,2290) - lu(k,385) * lu(k,2226)
     837   141174528 :          lu(k,2292) = lu(k,2292) - lu(k,386) * lu(k,2226)
     838   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,387) * lu(k,2226)
     839   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,388) * lu(k,2226)
     840   141174528 :          lu(k,389) = 1._r8 / lu(k,389)
     841   141174528 :          lu(k,390) = lu(k,390) * lu(k,389)
     842   141174528 :          lu(k,391) = lu(k,391) * lu(k,389)
     843   141174528 :          lu(k,392) = lu(k,392) * lu(k,389)
     844   141174528 :          lu(k,393) = lu(k,393) * lu(k,389)
     845   141174528 :          lu(k,699) = lu(k,699) - lu(k,390) * lu(k,698)
     846   141174528 :          lu(k,700) = lu(k,700) - lu(k,391) * lu(k,698)
     847   141174528 :          lu(k,701) = lu(k,701) - lu(k,392) * lu(k,698)
     848   141174528 :          lu(k,703) = lu(k,703) - lu(k,393) * lu(k,698)
     849   141174528 :          lu(k,1760) = lu(k,1760) - lu(k,390) * lu(k,1719)
     850   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,391) * lu(k,1719)
     851   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,392) * lu(k,1719)
     852   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,393) * lu(k,1719)
     853   141174528 :          lu(k,2250) = lu(k,2250) - lu(k,390) * lu(k,2227)
     854   141174528 :          lu(k,2275) = lu(k,2275) - lu(k,391) * lu(k,2227)
     855   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,392) * lu(k,2227)
     856   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,393) * lu(k,2227)
     857   141174528 :          lu(k,394) = 1._r8 / lu(k,394)
     858   141174528 :          lu(k,395) = lu(k,395) * lu(k,394)
     859   141174528 :          lu(k,396) = lu(k,396) * lu(k,394)
     860   141174528 :          lu(k,397) = lu(k,397) * lu(k,394)
     861   141174528 :          lu(k,398) = lu(k,398) * lu(k,394)
     862   141174528 :          lu(k,399) = lu(k,399) * lu(k,394)
     863   141174528 :          lu(k,400) = lu(k,400) * lu(k,394)
     864   141174528 :          lu(k,401) = lu(k,401) * lu(k,394)
     865   141174528 :          lu(k,1749) = lu(k,1749) - lu(k,395) * lu(k,1720)
     866   141174528 :          lu(k,1786) = lu(k,1786) - lu(k,396) * lu(k,1720)
     867   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,397) * lu(k,1720)
     868   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,398) * lu(k,1720)
     869   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,399) * lu(k,1720)
     870   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,400) * lu(k,1720)
     871   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,401) * lu(k,1720)
     872   141174528 :          lu(k,2042) = - lu(k,395) * lu(k,2041)
     873   141174528 :          lu(k,2048) = lu(k,2048) - lu(k,396) * lu(k,2041)
     874   141174528 :          lu(k,2055) = lu(k,2055) - lu(k,397) * lu(k,2041)
     875   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,398) * lu(k,2041)
     876   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,399) * lu(k,2041)
     877   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,400) * lu(k,2041)
     878   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,401) * lu(k,2041)
     879   141174528 :          lu(k,402) = 1._r8 / lu(k,402)
     880   141174528 :          lu(k,403) = lu(k,403) * lu(k,402)
     881   141174528 :          lu(k,404) = lu(k,404) * lu(k,402)
     882   141174528 :          lu(k,405) = lu(k,405) * lu(k,402)
     883   141174528 :          lu(k,406) = lu(k,406) * lu(k,402)
     884   141174528 :          lu(k,407) = lu(k,407) * lu(k,402)
     885   141174528 :          lu(k,408) = lu(k,408) * lu(k,402)
     886   141174528 :          lu(k,409) = lu(k,409) * lu(k,402)
     887   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,403) * lu(k,1721)
     888   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,404) * lu(k,1721)
     889   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,405) * lu(k,1721)
     890   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,406) * lu(k,1721)
     891   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,407) * lu(k,1721)
     892   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,408) * lu(k,1721)
     893   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,409) * lu(k,1721)
     894   141174528 :          lu(k,2112) = lu(k,2112) - lu(k,403) * lu(k,2098)
     895   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,404) * lu(k,2098)
     896   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,405) * lu(k,2098)
     897   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,406) * lu(k,2098)
     898   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,407) * lu(k,2098)
     899   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,408) * lu(k,2098)
     900   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,409) * lu(k,2098)
     901   141174528 :          lu(k,410) = 1._r8 / lu(k,410)
     902   141174528 :          lu(k,411) = lu(k,411) * lu(k,410)
     903   141174528 :          lu(k,412) = lu(k,412) * lu(k,410)
     904   141174528 :          lu(k,413) = lu(k,413) * lu(k,410)
     905   141174528 :          lu(k,414) = lu(k,414) * lu(k,410)
     906   141174528 :          lu(k,415) = lu(k,415) * lu(k,410)
     907   141174528 :          lu(k,416) = lu(k,416) * lu(k,410)
     908   141174528 :          lu(k,417) = lu(k,417) * lu(k,410)
     909   141174528 :          lu(k,1591) = - lu(k,411) * lu(k,1590)
     910   141174528 :          lu(k,1597) = - lu(k,412) * lu(k,1590)
     911   141174528 :          lu(k,1599) = lu(k,1599) - lu(k,413) * lu(k,1590)
     912   141174528 :          lu(k,1600) = lu(k,1600) - lu(k,414) * lu(k,1590)
     913   141174528 :          lu(k,1605) = lu(k,1605) - lu(k,415) * lu(k,1590)
     914   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,416) * lu(k,1590)
     915   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,417) * lu(k,1590)
     916   141174528 :          lu(k,1743) = lu(k,1743) - lu(k,411) * lu(k,1722)
     917   141174528 :          lu(k,1780) = lu(k,1780) - lu(k,412) * lu(k,1722)
     918   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,413) * lu(k,1722)
     919   141174528 :          lu(k,1807) = lu(k,1807) - lu(k,414) * lu(k,1722)
     920   141174528 :          lu(k,1818) = lu(k,1818) - lu(k,415) * lu(k,1722)
     921   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,416) * lu(k,1722)
     922   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,417) * lu(k,1722)
     923   141174528 :          lu(k,418) = 1._r8 / lu(k,418)
     924   141174528 :          lu(k,419) = lu(k,419) * lu(k,418)
     925   141174528 :          lu(k,420) = lu(k,420) * lu(k,418)
     926   141174528 :          lu(k,421) = lu(k,421) * lu(k,418)
     927   141174528 :          lu(k,422) = lu(k,422) * lu(k,418)
     928   141174528 :          lu(k,423) = lu(k,423) * lu(k,418)
     929   141174528 :          lu(k,1200) = lu(k,1200) - lu(k,419) * lu(k,1197)
     930   141174528 :          lu(k,1202) = lu(k,1202) - lu(k,420) * lu(k,1197)
     931   141174528 :          lu(k,1203) = lu(k,1203) - lu(k,421) * lu(k,1197)
     932   141174528 :          lu(k,1205) = lu(k,1205) - lu(k,422) * lu(k,1197)
     933   141174528 :          lu(k,1209) = - lu(k,423) * lu(k,1197)
     934   141174528 :          lu(k,1802) = lu(k,1802) - lu(k,419) * lu(k,1723)
     935   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,420) * lu(k,1723)
     936   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,421) * lu(k,1723)
     937   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,422) * lu(k,1723)
     938   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,423) * lu(k,1723)
     939   141174528 :          lu(k,2283) = lu(k,2283) - lu(k,419) * lu(k,2228)
     940   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,420) * lu(k,2228)
     941   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,421) * lu(k,2228)
     942   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,422) * lu(k,2228)
     943   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,423) * lu(k,2228)
     944   141174528 :          lu(k,424) = 1._r8 / lu(k,424)
     945   141174528 :          lu(k,425) = lu(k,425) * lu(k,424)
     946   141174528 :          lu(k,426) = lu(k,426) * lu(k,424)
     947   141174528 :          lu(k,427) = lu(k,427) * lu(k,424)
     948   141174528 :          lu(k,428) = lu(k,428) * lu(k,424)
     949   141174528 :          lu(k,429) = lu(k,429) * lu(k,424)
     950   141174528 :          lu(k,1230) = - lu(k,425) * lu(k,1228)
     951   141174528 :          lu(k,1232) = - lu(k,426) * lu(k,1228)
     952   141174528 :          lu(k,1244) = lu(k,1244) - lu(k,427) * lu(k,1228)
     953   141174528 :          lu(k,1246) = - lu(k,428) * lu(k,1228)
     954   141174528 :          lu(k,1250) = lu(k,1250) - lu(k,429) * lu(k,1228)
     955   141174528 :          lu(k,1768) = lu(k,1768) - lu(k,425) * lu(k,1724)
     956   141174528 :          lu(k,1779) = lu(k,1779) - lu(k,426) * lu(k,1724)
     957   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,427) * lu(k,1724)
     958   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,428) * lu(k,1724)
     959   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,429) * lu(k,1724)
     960   141174528 :          lu(k,2258) = lu(k,2258) - lu(k,425) * lu(k,2229)
     961   141174528 :          lu(k,2268) = - lu(k,426) * lu(k,2229)
     962   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,427) * lu(k,2229)
     963   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,428) * lu(k,2229)
     964   145586232 :          lu(k,2311) = lu(k,2311) - lu(k,429) * lu(k,2229)
     965             :       end do
     966     4411704 :       end subroutine lu_fac08
     967     4411704 :       subroutine lu_fac09( avec_len, lu )
     968             :       use chem_mods, only : nzcnt
     969             :       use shr_kind_mod, only : r8 => shr_kind_r8
     970             :       implicit none
     971             : !-----------------------------------------------------------------------
     972             : ! ... dummy args
     973             : !-----------------------------------------------------------------------
     974             :       integer, intent(in) :: avec_len
     975             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
     976             : !-----------------------------------------------------------------------
     977             : ! ... local variables
     978             : !-----------------------------------------------------------------------
     979             :       integer :: k
     980   145586232 :       do k = 1,avec_len
     981   141174528 :          lu(k,430) = 1._r8 / lu(k,430)
     982   141174528 :          lu(k,431) = lu(k,431) * lu(k,430)
     983   141174528 :          lu(k,432) = lu(k,432) * lu(k,430)
     984   141174528 :          lu(k,433) = lu(k,433) * lu(k,430)
     985   141174528 :          lu(k,434) = lu(k,434) * lu(k,430)
     986   141174528 :          lu(k,435) = lu(k,435) * lu(k,430)
     987   141174528 :          lu(k,940) = - lu(k,431) * lu(k,934)
     988   141174528 :          lu(k,944) = lu(k,944) - lu(k,432) * lu(k,934)
     989   141174528 :          lu(k,947) = - lu(k,433) * lu(k,934)
     990   141174528 :          lu(k,948) = lu(k,948) - lu(k,434) * lu(k,934)
     991   141174528 :          lu(k,954) = lu(k,954) - lu(k,435) * lu(k,934)
     992   141174528 :          lu(k,1014) = - lu(k,431) * lu(k,1009)
     993   141174528 :          lu(k,1020) = lu(k,1020) - lu(k,432) * lu(k,1009)
     994   141174528 :          lu(k,1023) = - lu(k,433) * lu(k,1009)
     995   141174528 :          lu(k,1024) = lu(k,1024) - lu(k,434) * lu(k,1009)
     996   141174528 :          lu(k,1033) = lu(k,1033) - lu(k,435) * lu(k,1009)
     997   141174528 :          lu(k,2154) = - lu(k,431) * lu(k,2140)
     998   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,432) * lu(k,2140)
     999   141174528 :          lu(k,2169) = lu(k,2169) - lu(k,433) * lu(k,2140)
    1000   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,434) * lu(k,2140)
    1001   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,435) * lu(k,2140)
    1002   141174528 :          lu(k,436) = 1._r8 / lu(k,436)
    1003   141174528 :          lu(k,437) = lu(k,437) * lu(k,436)
    1004   141174528 :          lu(k,438) = lu(k,438) * lu(k,436)
    1005   141174528 :          lu(k,439) = lu(k,439) * lu(k,436)
    1006   141174528 :          lu(k,440) = lu(k,440) * lu(k,436)
    1007   141174528 :          lu(k,441) = lu(k,441) * lu(k,436)
    1008   141174528 :          lu(k,836) = lu(k,836) - lu(k,437) * lu(k,835)
    1009   141174528 :          lu(k,837) = lu(k,837) - lu(k,438) * lu(k,835)
    1010   141174528 :          lu(k,841) = - lu(k,439) * lu(k,835)
    1011   141174528 :          lu(k,844) = lu(k,844) - lu(k,440) * lu(k,835)
    1012   141174528 :          lu(k,845) = - lu(k,441) * lu(k,835)
    1013   141174528 :          lu(k,1773) = lu(k,1773) - lu(k,437) * lu(k,1725)
    1014   141174528 :          lu(k,1786) = lu(k,1786) - lu(k,438) * lu(k,1725)
    1015   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,439) * lu(k,1725)
    1016   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,440) * lu(k,1725)
    1017   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,441) * lu(k,1725)
    1018   141174528 :          lu(k,2263) = lu(k,2263) - lu(k,437) * lu(k,2230)
    1019   141174528 :          lu(k,2271) = - lu(k,438) * lu(k,2230)
    1020   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,439) * lu(k,2230)
    1021   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,440) * lu(k,2230)
    1022   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,441) * lu(k,2230)
    1023   141174528 :          lu(k,442) = 1._r8 / lu(k,442)
    1024   141174528 :          lu(k,443) = lu(k,443) * lu(k,442)
    1025   141174528 :          lu(k,444) = lu(k,444) * lu(k,442)
    1026   141174528 :          lu(k,445) = lu(k,445) * lu(k,442)
    1027   141174528 :          lu(k,446) = lu(k,446) * lu(k,442)
    1028   141174528 :          lu(k,447) = lu(k,447) * lu(k,442)
    1029   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,443) * lu(k,1549)
    1030   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,444) * lu(k,1549)
    1031   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,445) * lu(k,1549)
    1032   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,446) * lu(k,1549)
    1033   141174528 :          lu(k,1589) = - lu(k,447) * lu(k,1549)
    1034   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,443) * lu(k,1726)
    1035   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,444) * lu(k,1726)
    1036   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,445) * lu(k,1726)
    1037   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,446) * lu(k,1726)
    1038   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,447) * lu(k,1726)
    1039   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,443) * lu(k,2231)
    1040   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,444) * lu(k,2231)
    1041   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,445) * lu(k,2231)
    1042   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,446) * lu(k,2231)
    1043   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,447) * lu(k,2231)
    1044   141174528 :          lu(k,448) = 1._r8 / lu(k,448)
    1045   141174528 :          lu(k,449) = lu(k,449) * lu(k,448)
    1046   141174528 :          lu(k,450) = lu(k,450) * lu(k,448)
    1047   141174528 :          lu(k,451) = lu(k,451) * lu(k,448)
    1048   141174528 :          lu(k,452) = lu(k,452) * lu(k,448)
    1049   141174528 :          lu(k,453) = lu(k,453) * lu(k,448)
    1050   141174528 :          lu(k,1101) = lu(k,1101) - lu(k,449) * lu(k,1098)
    1051   141174528 :          lu(k,1102) = lu(k,1102) - lu(k,450) * lu(k,1098)
    1052   141174528 :          lu(k,1106) = - lu(k,451) * lu(k,1098)
    1053   141174528 :          lu(k,1108) = lu(k,1108) - lu(k,452) * lu(k,1098)
    1054   141174528 :          lu(k,1109) = - lu(k,453) * lu(k,1098)
    1055   141174528 :          lu(k,1790) = lu(k,1790) - lu(k,449) * lu(k,1727)
    1056   141174528 :          lu(k,1795) = lu(k,1795) - lu(k,450) * lu(k,1727)
    1057   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,451) * lu(k,1727)
    1058   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,452) * lu(k,1727)
    1059   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,453) * lu(k,1727)
    1060   141174528 :          lu(k,2274) = - lu(k,449) * lu(k,2232)
    1061   141174528 :          lu(k,2277) = lu(k,2277) - lu(k,450) * lu(k,2232)
    1062   141174528 :          lu(k,2297) = - lu(k,451) * lu(k,2232)
    1063   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,452) * lu(k,2232)
    1064   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,453) * lu(k,2232)
    1065   141174528 :          lu(k,454) = 1._r8 / lu(k,454)
    1066   141174528 :          lu(k,455) = lu(k,455) * lu(k,454)
    1067   141174528 :          lu(k,456) = lu(k,456) * lu(k,454)
    1068   141174528 :          lu(k,457) = lu(k,457) * lu(k,454)
    1069   141174528 :          lu(k,458) = lu(k,458) * lu(k,454)
    1070   141174528 :          lu(k,459) = lu(k,459) * lu(k,454)
    1071   141174528 :          lu(k,1818) = lu(k,1818) - lu(k,455) * lu(k,1728)
    1072   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,456) * lu(k,1728)
    1073   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,457) * lu(k,1728)
    1074   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,458) * lu(k,1728)
    1075   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,459) * lu(k,1728)
    1076   141174528 :          lu(k,1997) = - lu(k,455) * lu(k,1963)
    1077   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,456) * lu(k,1963)
    1078   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,457) * lu(k,1963)
    1079   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,458) * lu(k,1963)
    1080   141174528 :          lu(k,2012) = - lu(k,459) * lu(k,1963)
    1081   141174528 :          lu(k,2298) = lu(k,2298) - lu(k,455) * lu(k,2233)
    1082   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,456) * lu(k,2233)
    1083   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,457) * lu(k,2233)
    1084   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,458) * lu(k,2233)
    1085   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,459) * lu(k,2233)
    1086   141174528 :          lu(k,460) = 1._r8 / lu(k,460)
    1087   141174528 :          lu(k,461) = lu(k,461) * lu(k,460)
    1088   141174528 :          lu(k,462) = lu(k,462) * lu(k,460)
    1089   141174528 :          lu(k,463) = lu(k,463) * lu(k,460)
    1090   141174528 :          lu(k,464) = lu(k,464) * lu(k,460)
    1091   141174528 :          lu(k,465) = lu(k,465) * lu(k,460)
    1092   141174528 :          lu(k,1643) = lu(k,1643) - lu(k,461) * lu(k,1637)
    1093   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,462) * lu(k,1637)
    1094   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,463) * lu(k,1637)
    1095   141174528 :          lu(k,1655) = lu(k,1655) - lu(k,464) * lu(k,1637)
    1096   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,465) * lu(k,1637)
    1097   141174528 :          lu(k,1815) = lu(k,1815) - lu(k,461) * lu(k,1729)
    1098   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,462) * lu(k,1729)
    1099   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,463) * lu(k,1729)
    1100   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,464) * lu(k,1729)
    1101   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,465) * lu(k,1729)
    1102   141174528 :          lu(k,2115) = lu(k,2115) - lu(k,461) * lu(k,2099)
    1103   141174528 :          lu(k,2122) = - lu(k,462) * lu(k,2099)
    1104   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,463) * lu(k,2099)
    1105   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,464) * lu(k,2099)
    1106   145586232 :          lu(k,2129) = lu(k,2129) - lu(k,465) * lu(k,2099)
    1107             :       end do
    1108     4411704 :       end subroutine lu_fac09
    1109     4411704 :       subroutine lu_fac10( avec_len, lu )
    1110             :       use chem_mods, only : nzcnt
    1111             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1112             :       implicit none
    1113             : !-----------------------------------------------------------------------
    1114             : ! ... dummy args
    1115             : !-----------------------------------------------------------------------
    1116             :       integer, intent(in) :: avec_len
    1117             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1118             : !-----------------------------------------------------------------------
    1119             : ! ... local variables
    1120             : !-----------------------------------------------------------------------
    1121             :       integer :: k
    1122   145586232 :       do k = 1,avec_len
    1123   141174528 :          lu(k,466) = 1._r8 / lu(k,466)
    1124   141174528 :          lu(k,467) = lu(k,467) * lu(k,466)
    1125   141174528 :          lu(k,468) = lu(k,468) * lu(k,466)
    1126   141174528 :          lu(k,469) = lu(k,469) * lu(k,466)
    1127   141174528 :          lu(k,470) = lu(k,470) * lu(k,466)
    1128   141174528 :          lu(k,471) = lu(k,471) * lu(k,466)
    1129   141174528 :          lu(k,1232) = lu(k,1232) - lu(k,467) * lu(k,1229)
    1130   141174528 :          lu(k,1234) = - lu(k,468) * lu(k,1229)
    1131   141174528 :          lu(k,1242) = - lu(k,469) * lu(k,1229)
    1132   141174528 :          lu(k,1246) = lu(k,1246) - lu(k,470) * lu(k,1229)
    1133   141174528 :          lu(k,1250) = lu(k,1250) - lu(k,471) * lu(k,1229)
    1134   141174528 :          lu(k,1779) = lu(k,1779) - lu(k,467) * lu(k,1730)
    1135   141174528 :          lu(k,1794) = lu(k,1794) - lu(k,468) * lu(k,1730)
    1136   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,469) * lu(k,1730)
    1137   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,470) * lu(k,1730)
    1138   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,471) * lu(k,1730)
    1139   141174528 :          lu(k,1971) = - lu(k,467) * lu(k,1964)
    1140   141174528 :          lu(k,1977) = lu(k,1977) - lu(k,468) * lu(k,1964)
    1141   141174528 :          lu(k,1996) = - lu(k,469) * lu(k,1964)
    1142   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,470) * lu(k,1964)
    1143   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,471) * lu(k,1964)
    1144   141174528 :          lu(k,472) = 1._r8 / lu(k,472)
    1145   141174528 :          lu(k,473) = lu(k,473) * lu(k,472)
    1146   141174528 :          lu(k,474) = lu(k,474) * lu(k,472)
    1147   141174528 :          lu(k,475) = lu(k,475) * lu(k,472)
    1148   141174528 :          lu(k,476) = lu(k,476) * lu(k,472)
    1149   141174528 :          lu(k,477) = lu(k,477) * lu(k,472)
    1150   141174528 :          lu(k,535) = lu(k,535) - lu(k,473) * lu(k,534)
    1151   141174528 :          lu(k,536) = lu(k,536) - lu(k,474) * lu(k,534)
    1152   141174528 :          lu(k,538) = lu(k,538) - lu(k,475) * lu(k,534)
    1153   141174528 :          lu(k,540) = - lu(k,476) * lu(k,534)
    1154   141174528 :          lu(k,542) = lu(k,542) - lu(k,477) * lu(k,534)
    1155   141174528 :          lu(k,1735) = lu(k,1735) - lu(k,473) * lu(k,1731)
    1156   141174528 :          lu(k,1740) = lu(k,1740) - lu(k,474) * lu(k,1731)
    1157   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,475) * lu(k,1731)
    1158   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,476) * lu(k,1731)
    1159   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,477) * lu(k,1731)
    1160   141174528 :          lu(k,2239) = - lu(k,473) * lu(k,2234)
    1161   141174528 :          lu(k,2242) = lu(k,2242) - lu(k,474) * lu(k,2234)
    1162   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,475) * lu(k,2234)
    1163   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,476) * lu(k,2234)
    1164   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,477) * lu(k,2234)
    1165   141174528 :          lu(k,478) = 1._r8 / lu(k,478)
    1166   141174528 :          lu(k,479) = lu(k,479) * lu(k,478)
    1167   141174528 :          lu(k,480) = lu(k,480) * lu(k,478)
    1168   141174528 :          lu(k,481) = lu(k,481) * lu(k,478)
    1169   141174528 :          lu(k,482) = lu(k,482) * lu(k,478)
    1170   141174528 :          lu(k,483) = lu(k,483) * lu(k,478)
    1171   141174528 :          lu(k,544) = lu(k,544) - lu(k,479) * lu(k,543)
    1172   141174528 :          lu(k,545) = lu(k,545) - lu(k,480) * lu(k,543)
    1173   141174528 :          lu(k,546) = lu(k,546) - lu(k,481) * lu(k,543)
    1174   141174528 :          lu(k,548) = - lu(k,482) * lu(k,543)
    1175   141174528 :          lu(k,550) = lu(k,550) - lu(k,483) * lu(k,543)
    1176   141174528 :          lu(k,1741) = lu(k,1741) - lu(k,479) * lu(k,1732)
    1177   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,480) * lu(k,1732)
    1178   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,481) * lu(k,1732)
    1179   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,482) * lu(k,1732)
    1180   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,483) * lu(k,1732)
    1181   141174528 :          lu(k,2243) = lu(k,2243) - lu(k,479) * lu(k,2235)
    1182   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,480) * lu(k,2235)
    1183   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,481) * lu(k,2235)
    1184   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,482) * lu(k,2235)
    1185   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,483) * lu(k,2235)
    1186   141174528 :          lu(k,486) = 1._r8 / lu(k,486)
    1187   141174528 :          lu(k,487) = lu(k,487) * lu(k,486)
    1188   141174528 :          lu(k,488) = lu(k,488) * lu(k,486)
    1189   141174528 :          lu(k,489) = lu(k,489) * lu(k,486)
    1190   141174528 :          lu(k,490) = lu(k,490) * lu(k,486)
    1191   141174528 :          lu(k,491) = lu(k,491) * lu(k,486)
    1192   141174528 :          lu(k,1744) = lu(k,1744) - lu(k,487) * lu(k,1733)
    1193   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,488) * lu(k,1733)
    1194   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,489) * lu(k,1733)
    1195   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,490) * lu(k,1733)
    1196   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,491) * lu(k,1733)
    1197   141174528 :          lu(k,1896) = lu(k,1896) - lu(k,487) * lu(k,1887)
    1198   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,488) * lu(k,1887)
    1199   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,489) * lu(k,1887)
    1200   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,490) * lu(k,1887)
    1201   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,491) * lu(k,1887)
    1202   141174528 :          lu(k,2244) = lu(k,2244) - lu(k,487) * lu(k,2236)
    1203   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,488) * lu(k,2236)
    1204   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,489) * lu(k,2236)
    1205   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,490) * lu(k,2236)
    1206   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,491) * lu(k,2236)
    1207   141174528 :          lu(k,492) = 1._r8 / lu(k,492)
    1208   141174528 :          lu(k,493) = lu(k,493) * lu(k,492)
    1209   141174528 :          lu(k,494) = lu(k,494) * lu(k,492)
    1210   141174528 :          lu(k,495) = lu(k,495) * lu(k,492)
    1211   141174528 :          lu(k,496) = lu(k,496) * lu(k,492)
    1212   141174528 :          lu(k,497) = lu(k,497) * lu(k,492)
    1213   141174528 :          lu(k,1525) = - lu(k,493) * lu(k,1523)
    1214   141174528 :          lu(k,1532) = lu(k,1532) - lu(k,494) * lu(k,1523)
    1215   141174528 :          lu(k,1533) = - lu(k,495) * lu(k,1523)
    1216   141174528 :          lu(k,1538) = - lu(k,496) * lu(k,1523)
    1217   141174528 :          lu(k,1544) = lu(k,1544) - lu(k,497) * lu(k,1523)
    1218   141174528 :          lu(k,1918) = lu(k,1918) - lu(k,493) * lu(k,1888)
    1219   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,494) * lu(k,1888)
    1220   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,495) * lu(k,1888)
    1221   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,496) * lu(k,1888)
    1222   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,497) * lu(k,1888)
    1223   141174528 :          lu(k,2272) = lu(k,2272) - lu(k,493) * lu(k,2237)
    1224   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,494) * lu(k,2237)
    1225   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,495) * lu(k,2237)
    1226   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,496) * lu(k,2237)
    1227   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,497) * lu(k,2237)
    1228   141174528 :          lu(k,499) = 1._r8 / lu(k,499)
    1229   141174528 :          lu(k,500) = lu(k,500) * lu(k,499)
    1230   141174528 :          lu(k,501) = lu(k,501) * lu(k,499)
    1231   141174528 :          lu(k,502) = lu(k,502) * lu(k,499)
    1232   141174528 :          lu(k,503) = lu(k,503) * lu(k,499)
    1233   141174528 :          lu(k,504) = lu(k,504) * lu(k,499)
    1234   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,500) * lu(k,1734)
    1235   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,501) * lu(k,1734)
    1236   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,502) * lu(k,1734)
    1237   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,503) * lu(k,1734)
    1238   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,504) * lu(k,1734)
    1239   141174528 :          lu(k,1919) = lu(k,1919) - lu(k,500) * lu(k,1889)
    1240   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,501) * lu(k,1889)
    1241   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,502) * lu(k,1889)
    1242   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,503) * lu(k,1889)
    1243   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,504) * lu(k,1889)
    1244   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,500) * lu(k,2238)
    1245   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,501) * lu(k,2238)
    1246   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,502) * lu(k,2238)
    1247   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,503) * lu(k,2238)
    1248   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,504) * lu(k,2238)
    1249   141174528 :          lu(k,505) = 1._r8 / lu(k,505)
    1250   141174528 :          lu(k,506) = lu(k,506) * lu(k,505)
    1251   141174528 :          lu(k,507) = lu(k,507) * lu(k,505)
    1252   141174528 :          lu(k,537) = - lu(k,506) * lu(k,535)
    1253   141174528 :          lu(k,542) = lu(k,542) - lu(k,507) * lu(k,535)
    1254   141174528 :          lu(k,720) = - lu(k,506) * lu(k,717)
    1255   141174528 :          lu(k,728) = lu(k,728) - lu(k,507) * lu(k,717)
    1256   141174528 :          lu(k,739) = - lu(k,506) * lu(k,736)
    1257   141174528 :          lu(k,748) = lu(k,748) - lu(k,507) * lu(k,736)
    1258   141174528 :          lu(k,768) = - lu(k,506) * lu(k,765)
    1259   141174528 :          lu(k,778) = lu(k,778) - lu(k,507) * lu(k,765)
    1260   141174528 :          lu(k,792) = - lu(k,506) * lu(k,789)
    1261   141174528 :          lu(k,803) = lu(k,803) - lu(k,507) * lu(k,789)
    1262   141174528 :          lu(k,1766) = - lu(k,506) * lu(k,1735)
    1263   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,507) * lu(k,1735)
    1264   141174528 :          lu(k,1906) = lu(k,1906) - lu(k,506) * lu(k,1890)
    1265   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,507) * lu(k,1890)
    1266   141174528 :          lu(k,2256) = lu(k,2256) - lu(k,506) * lu(k,2239)
    1267   145586232 :          lu(k,2311) = lu(k,2311) - lu(k,507) * lu(k,2239)
    1268             :       end do
    1269     4411704 :       end subroutine lu_fac10
    1270     4411704 :       subroutine lu_fac11( avec_len, lu )
    1271             :       use chem_mods, only : nzcnt
    1272             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1273             :       implicit none
    1274             : !-----------------------------------------------------------------------
    1275             : ! ... dummy args
    1276             : !-----------------------------------------------------------------------
    1277             :       integer, intent(in) :: avec_len
    1278             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1279             : !-----------------------------------------------------------------------
    1280             : ! ... local variables
    1281             : !-----------------------------------------------------------------------
    1282             :       integer :: k
    1283   145586232 :       do k = 1,avec_len
    1284   141174528 :          lu(k,508) = 1._r8 / lu(k,508)
    1285   141174528 :          lu(k,509) = lu(k,509) * lu(k,508)
    1286   141174528 :          lu(k,510) = lu(k,510) * lu(k,508)
    1287   141174528 :          lu(k,511) = lu(k,511) * lu(k,508)
    1288   141174528 :          lu(k,512) = lu(k,512) * lu(k,508)
    1289   141174528 :          lu(k,513) = lu(k,513) * lu(k,508)
    1290   141174528 :          lu(k,514) = lu(k,514) * lu(k,508)
    1291   141174528 :          lu(k,1643) = lu(k,1643) - lu(k,509) * lu(k,1638)
    1292   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,510) * lu(k,1638)
    1293   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,511) * lu(k,1638)
    1294   141174528 :          lu(k,1655) = lu(k,1655) - lu(k,512) * lu(k,1638)
    1295   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,513) * lu(k,1638)
    1296   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,514) * lu(k,1638)
    1297   141174528 :          lu(k,1815) = lu(k,1815) - lu(k,509) * lu(k,1736)
    1298   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,510) * lu(k,1736)
    1299   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,511) * lu(k,1736)
    1300   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,512) * lu(k,1736)
    1301   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,513) * lu(k,1736)
    1302   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,514) * lu(k,1736)
    1303   141174528 :          lu(k,2115) = lu(k,2115) - lu(k,509) * lu(k,2100)
    1304   141174528 :          lu(k,2122) = lu(k,2122) - lu(k,510) * lu(k,2100)
    1305   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,511) * lu(k,2100)
    1306   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,512) * lu(k,2100)
    1307   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,513) * lu(k,2100)
    1308   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,514) * lu(k,2100)
    1309   141174528 :          lu(k,515) = 1._r8 / lu(k,515)
    1310   141174528 :          lu(k,516) = lu(k,516) * lu(k,515)
    1311   141174528 :          lu(k,517) = lu(k,517) * lu(k,515)
    1312   141174528 :          lu(k,518) = lu(k,518) * lu(k,515)
    1313   141174528 :          lu(k,519) = lu(k,519) * lu(k,515)
    1314   141174528 :          lu(k,520) = lu(k,520) * lu(k,515)
    1315   141174528 :          lu(k,521) = lu(k,521) * lu(k,515)
    1316   141174528 :          lu(k,1178) = lu(k,1178) - lu(k,516) * lu(k,1175)
    1317   141174528 :          lu(k,1179) = lu(k,1179) - lu(k,517) * lu(k,1175)
    1318   141174528 :          lu(k,1184) = lu(k,1184) - lu(k,518) * lu(k,1175)
    1319   141174528 :          lu(k,1188) = lu(k,1188) - lu(k,519) * lu(k,1175)
    1320   141174528 :          lu(k,1191) = - lu(k,520) * lu(k,1175)
    1321   141174528 :          lu(k,1195) = lu(k,1195) - lu(k,521) * lu(k,1175)
    1322   141174528 :          lu(k,1786) = lu(k,1786) - lu(k,516) * lu(k,1737)
    1323   141174528 :          lu(k,1790) = lu(k,1790) - lu(k,517) * lu(k,1737)
    1324   141174528 :          lu(k,1801) = lu(k,1801) - lu(k,518) * lu(k,1737)
    1325   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,519) * lu(k,1737)
    1326   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,520) * lu(k,1737)
    1327   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,521) * lu(k,1737)
    1328   141174528 :          lu(k,2271) = lu(k,2271) - lu(k,516) * lu(k,2240)
    1329   141174528 :          lu(k,2274) = lu(k,2274) - lu(k,517) * lu(k,2240)
    1330   141174528 :          lu(k,2282) = lu(k,2282) - lu(k,518) * lu(k,2240)
    1331   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,519) * lu(k,2240)
    1332   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,520) * lu(k,2240)
    1333   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,521) * lu(k,2240)
    1334   141174528 :          lu(k,522) = 1._r8 / lu(k,522)
    1335   141174528 :          lu(k,523) = lu(k,523) * lu(k,522)
    1336   141174528 :          lu(k,524) = lu(k,524) * lu(k,522)
    1337   141174528 :          lu(k,525) = lu(k,525) * lu(k,522)
    1338   141174528 :          lu(k,670) = lu(k,670) - lu(k,523) * lu(k,669)
    1339   141174528 :          lu(k,671) = lu(k,671) - lu(k,524) * lu(k,669)
    1340   141174528 :          lu(k,674) = - lu(k,525) * lu(k,669)
    1341   141174528 :          lu(k,1556) = - lu(k,523) * lu(k,1550)
    1342   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,524) * lu(k,1550)
    1343   141174528 :          lu(k,1586) = lu(k,1586) - lu(k,525) * lu(k,1550)
    1344   141174528 :          lu(k,1757) = lu(k,1757) - lu(k,523) * lu(k,1738)
    1345   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,524) * lu(k,1738)
    1346   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,525) * lu(k,1738)
    1347   141174528 :          lu(k,1902) = lu(k,1902) - lu(k,523) * lu(k,1891)
    1348   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,524) * lu(k,1891)
    1349   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,525) * lu(k,1891)
    1350   141174528 :          lu(k,2144) = lu(k,2144) - lu(k,523) * lu(k,2141)
    1351   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,524) * lu(k,2141)
    1352   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,525) * lu(k,2141)
    1353   141174528 :          lu(k,2248) = lu(k,2248) - lu(k,523) * lu(k,2241)
    1354   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,524) * lu(k,2241)
    1355   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,525) * lu(k,2241)
    1356   141174528 :          lu(k,527) = 1._r8 / lu(k,527)
    1357   141174528 :          lu(k,528) = lu(k,528) * lu(k,527)
    1358   141174528 :          lu(k,529) = lu(k,529) * lu(k,527)
    1359   141174528 :          lu(k,530) = lu(k,530) * lu(k,527)
    1360   141174528 :          lu(k,531) = lu(k,531) * lu(k,527)
    1361   141174528 :          lu(k,532) = lu(k,532) * lu(k,527)
    1362   141174528 :          lu(k,533) = lu(k,533) * lu(k,527)
    1363   141174528 :          lu(k,1574) = - lu(k,528) * lu(k,1551)
    1364   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,529) * lu(k,1551)
    1365   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,530) * lu(k,1551)
    1366   141174528 :          lu(k,1578) = lu(k,1578) - lu(k,531) * lu(k,1551)
    1367   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,532) * lu(k,1551)
    1368   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,533) * lu(k,1551)
    1369   141174528 :          lu(k,1818) = lu(k,1818) - lu(k,528) * lu(k,1739)
    1370   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,529) * lu(k,1739)
    1371   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,530) * lu(k,1739)
    1372   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,531) * lu(k,1739)
    1373   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,532) * lu(k,1739)
    1374   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,533) * lu(k,1739)
    1375   141174528 :          lu(k,1945) = - lu(k,528) * lu(k,1892)
    1376   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,529) * lu(k,1892)
    1377   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,530) * lu(k,1892)
    1378   141174528 :          lu(k,1949) = - lu(k,531) * lu(k,1892)
    1379   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,532) * lu(k,1892)
    1380   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,533) * lu(k,1892)
    1381   141174528 :          lu(k,536) = 1._r8 / lu(k,536)
    1382   141174528 :          lu(k,537) = lu(k,537) * lu(k,536)
    1383   141174528 :          lu(k,538) = lu(k,538) * lu(k,536)
    1384   141174528 :          lu(k,539) = lu(k,539) * lu(k,536)
    1385   141174528 :          lu(k,540) = lu(k,540) * lu(k,536)
    1386   141174528 :          lu(k,541) = lu(k,541) * lu(k,536)
    1387   141174528 :          lu(k,542) = lu(k,542) * lu(k,536)
    1388   141174528 :          lu(k,1766) = lu(k,1766) - lu(k,537) * lu(k,1740)
    1389   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,538) * lu(k,1740)
    1390   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,539) * lu(k,1740)
    1391   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,540) * lu(k,1740)
    1392   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,541) * lu(k,1740)
    1393   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,542) * lu(k,1740)
    1394   141174528 :          lu(k,1906) = lu(k,1906) - lu(k,537) * lu(k,1893)
    1395   141174528 :          lu(k,1919) = lu(k,1919) - lu(k,538) * lu(k,1893)
    1396   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,539) * lu(k,1893)
    1397   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,540) * lu(k,1893)
    1398   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,541) * lu(k,1893)
    1399   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,542) * lu(k,1893)
    1400   141174528 :          lu(k,2256) = lu(k,2256) - lu(k,537) * lu(k,2242)
    1401   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,538) * lu(k,2242)
    1402   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,539) * lu(k,2242)
    1403   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,540) * lu(k,2242)
    1404   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,541) * lu(k,2242)
    1405   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,542) * lu(k,2242)
    1406   141174528 :          lu(k,544) = 1._r8 / lu(k,544)
    1407   141174528 :          lu(k,545) = lu(k,545) * lu(k,544)
    1408   141174528 :          lu(k,546) = lu(k,546) * lu(k,544)
    1409   141174528 :          lu(k,547) = lu(k,547) * lu(k,544)
    1410   141174528 :          lu(k,548) = lu(k,548) * lu(k,544)
    1411   141174528 :          lu(k,549) = lu(k,549) * lu(k,544)
    1412   141174528 :          lu(k,550) = lu(k,550) * lu(k,544)
    1413   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,545) * lu(k,1741)
    1414   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,546) * lu(k,1741)
    1415   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,547) * lu(k,1741)
    1416   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,548) * lu(k,1741)
    1417   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,549) * lu(k,1741)
    1418   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,550) * lu(k,1741)
    1419   141174528 :          lu(k,1919) = lu(k,1919) - lu(k,545) * lu(k,1894)
    1420   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,546) * lu(k,1894)
    1421   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,547) * lu(k,1894)
    1422   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,548) * lu(k,1894)
    1423   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,549) * lu(k,1894)
    1424   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,550) * lu(k,1894)
    1425   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,545) * lu(k,2243)
    1426   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,546) * lu(k,2243)
    1427   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,547) * lu(k,2243)
    1428   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,548) * lu(k,2243)
    1429   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,549) * lu(k,2243)
    1430   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,550) * lu(k,2243)
    1431   141174528 :          lu(k,551) = 1._r8 / lu(k,551)
    1432   141174528 :          lu(k,552) = lu(k,552) * lu(k,551)
    1433   141174528 :          lu(k,553) = lu(k,553) * lu(k,551)
    1434   141174528 :          lu(k,554) = lu(k,554) * lu(k,551)
    1435   141174528 :          lu(k,555) = lu(k,555) * lu(k,551)
    1436   141174528 :          lu(k,678) = - lu(k,552) * lu(k,676)
    1437   141174528 :          lu(k,679) = - lu(k,553) * lu(k,676)
    1438   141174528 :          lu(k,683) = - lu(k,554) * lu(k,676)
    1439   141174528 :          lu(k,685) = lu(k,685) - lu(k,555) * lu(k,676)
    1440   141174528 :          lu(k,689) = - lu(k,552) * lu(k,687)
    1441   141174528 :          lu(k,690) = - lu(k,553) * lu(k,687)
    1442   141174528 :          lu(k,693) = - lu(k,554) * lu(k,687)
    1443   141174528 :          lu(k,696) = lu(k,696) - lu(k,555) * lu(k,687)
    1444   141174528 :          lu(k,958) = - lu(k,552) * lu(k,955)
    1445   141174528 :          lu(k,959) = - lu(k,553) * lu(k,955)
    1446   141174528 :          lu(k,963) = - lu(k,554) * lu(k,955)
    1447   141174528 :          lu(k,966) = - lu(k,555) * lu(k,955)
    1448   141174528 :          lu(k,1760) = lu(k,1760) - lu(k,552) * lu(k,1742)
    1449   141174528 :          lu(k,1776) = lu(k,1776) - lu(k,553) * lu(k,1742)
    1450   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,554) * lu(k,1742)
    1451   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,555) * lu(k,1742)
    1452   141174528 :          lu(k,1904) = lu(k,1904) - lu(k,552) * lu(k,1895)
    1453   141174528 :          lu(k,1912) = lu(k,1912) - lu(k,553) * lu(k,1895)
    1454   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,554) * lu(k,1895)
    1455   145586232 :          lu(k,1950) = lu(k,1950) - lu(k,555) * lu(k,1895)
    1456             :       end do
    1457     4411704 :       end subroutine lu_fac11
    1458     4411704 :       subroutine lu_fac12( avec_len, lu )
    1459             :       use chem_mods, only : nzcnt
    1460             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1461             :       implicit none
    1462             : !-----------------------------------------------------------------------
    1463             : ! ... dummy args
    1464             : !-----------------------------------------------------------------------
    1465             :       integer, intent(in) :: avec_len
    1466             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1467             : !-----------------------------------------------------------------------
    1468             : ! ... local variables
    1469             : !-----------------------------------------------------------------------
    1470             :       integer :: k
    1471   145586232 :       do k = 1,avec_len
    1472   141174528 :          lu(k,556) = 1._r8 / lu(k,556)
    1473   141174528 :          lu(k,557) = lu(k,557) * lu(k,556)
    1474   141174528 :          lu(k,558) = lu(k,558) * lu(k,556)
    1475   141174528 :          lu(k,559) = lu(k,559) * lu(k,556)
    1476   141174528 :          lu(k,560) = lu(k,560) * lu(k,556)
    1477   141174528 :          lu(k,561) = lu(k,561) * lu(k,556)
    1478   141174528 :          lu(k,1276) = lu(k,1276) - lu(k,557) * lu(k,1274)
    1479   141174528 :          lu(k,1278) = lu(k,1278) - lu(k,558) * lu(k,1274)
    1480   141174528 :          lu(k,1280) = lu(k,1280) - lu(k,559) * lu(k,1274)
    1481   141174528 :          lu(k,1281) = lu(k,1281) - lu(k,560) * lu(k,1274)
    1482   141174528 :          lu(k,1285) = lu(k,1285) - lu(k,561) * lu(k,1274)
    1483   141174528 :          lu(k,1600) = lu(k,1600) - lu(k,557) * lu(k,1591)
    1484   141174528 :          lu(k,1605) = lu(k,1605) - lu(k,558) * lu(k,1591)
    1485   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,559) * lu(k,1591)
    1486   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,560) * lu(k,1591)
    1487   141174528 :          lu(k,1617) = lu(k,1617) - lu(k,561) * lu(k,1591)
    1488   141174528 :          lu(k,1807) = lu(k,1807) - lu(k,557) * lu(k,1743)
    1489   141174528 :          lu(k,1818) = lu(k,1818) - lu(k,558) * lu(k,1743)
    1490   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,559) * lu(k,1743)
    1491   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,560) * lu(k,1743)
    1492   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,561) * lu(k,1743)
    1493   141174528 :          lu(k,2170) = lu(k,2170) - lu(k,557) * lu(k,2142)
    1494   141174528 :          lu(k,2180) = lu(k,2180) - lu(k,558) * lu(k,2142)
    1495   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,559) * lu(k,2142)
    1496   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,560) * lu(k,2142)
    1497   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,561) * lu(k,2142)
    1498   141174528 :          lu(k,563) = 1._r8 / lu(k,563)
    1499   141174528 :          lu(k,564) = lu(k,564) * lu(k,563)
    1500   141174528 :          lu(k,565) = lu(k,565) * lu(k,563)
    1501   141174528 :          lu(k,566) = lu(k,566) * lu(k,563)
    1502   141174528 :          lu(k,567) = lu(k,567) * lu(k,563)
    1503   141174528 :          lu(k,568) = lu(k,568) * lu(k,563)
    1504   141174528 :          lu(k,1556) = lu(k,1556) - lu(k,564) * lu(k,1552)
    1505   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,565) * lu(k,1552)
    1506   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,566) * lu(k,1552)
    1507   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,567) * lu(k,1552)
    1508   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,568) * lu(k,1552)
    1509   141174528 :          lu(k,1757) = lu(k,1757) - lu(k,564) * lu(k,1744)
    1510   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,565) * lu(k,1744)
    1511   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,566) * lu(k,1744)
    1512   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,567) * lu(k,1744)
    1513   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,568) * lu(k,1744)
    1514   141174528 :          lu(k,1902) = lu(k,1902) - lu(k,564) * lu(k,1896)
    1515   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,565) * lu(k,1896)
    1516   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,566) * lu(k,1896)
    1517   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,567) * lu(k,1896)
    1518   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,568) * lu(k,1896)
    1519   141174528 :          lu(k,2248) = lu(k,2248) - lu(k,564) * lu(k,2244)
    1520   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,565) * lu(k,2244)
    1521   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,566) * lu(k,2244)
    1522   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,567) * lu(k,2244)
    1523   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,568) * lu(k,2244)
    1524   141174528 :          lu(k,569) = 1._r8 / lu(k,569)
    1525   141174528 :          lu(k,570) = lu(k,570) * lu(k,569)
    1526   141174528 :          lu(k,571) = lu(k,571) * lu(k,569)
    1527   141174528 :          lu(k,572) = lu(k,572) * lu(k,569)
    1528   141174528 :          lu(k,573) = lu(k,573) * lu(k,569)
    1529   141174528 :          lu(k,574) = lu(k,574) * lu(k,569)
    1530   141174528 :          lu(k,575) = lu(k,575) * lu(k,569)
    1531   141174528 :          lu(k,576) = lu(k,576) * lu(k,569)
    1532   141174528 :          lu(k,1418) = lu(k,1418) - lu(k,570) * lu(k,1415)
    1533   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,571) * lu(k,1415)
    1534   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,572) * lu(k,1415)
    1535   141174528 :          lu(k,1437) = lu(k,1437) - lu(k,573) * lu(k,1415)
    1536   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,574) * lu(k,1415)
    1537   141174528 :          lu(k,1441) = lu(k,1441) - lu(k,575) * lu(k,1415)
    1538   141174528 :          lu(k,1442) = - lu(k,576) * lu(k,1415)
    1539   141174528 :          lu(k,1560) = - lu(k,570) * lu(k,1553)
    1540   141174528 :          lu(k,1570) = lu(k,1570) - lu(k,571) * lu(k,1553)
    1541   141174528 :          lu(k,1575) = - lu(k,572) * lu(k,1553)
    1542   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,573) * lu(k,1553)
    1543   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,574) * lu(k,1553)
    1544   141174528 :          lu(k,1582) = - lu(k,575) * lu(k,1553)
    1545   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,576) * lu(k,1553)
    1546   141174528 :          lu(k,1777) = lu(k,1777) - lu(k,570) * lu(k,1745)
    1547   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,571) * lu(k,1745)
    1548   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,572) * lu(k,1745)
    1549   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,573) * lu(k,1745)
    1550   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,574) * lu(k,1745)
    1551   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,575) * lu(k,1745)
    1552   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,576) * lu(k,1745)
    1553   141174528 :          lu(k,577) = 1._r8 / lu(k,577)
    1554   141174528 :          lu(k,578) = lu(k,578) * lu(k,577)
    1555   141174528 :          lu(k,579) = lu(k,579) * lu(k,577)
    1556   141174528 :          lu(k,580) = lu(k,580) * lu(k,577)
    1557   141174528 :          lu(k,581) = lu(k,581) * lu(k,577)
    1558   141174528 :          lu(k,582) = lu(k,582) * lu(k,577)
    1559   141174528 :          lu(k,583) = lu(k,583) * lu(k,577)
    1560   141174528 :          lu(k,584) = lu(k,584) * lu(k,577)
    1561   141174528 :          lu(k,1559) = - lu(k,578) * lu(k,1554)
    1562   141174528 :          lu(k,1571) = - lu(k,579) * lu(k,1554)
    1563   141174528 :          lu(k,1573) = lu(k,1573) - lu(k,580) * lu(k,1554)
    1564   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,581) * lu(k,1554)
    1565   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,582) * lu(k,1554)
    1566   141174528 :          lu(k,1580) = lu(k,1580) - lu(k,583) * lu(k,1554)
    1567   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,584) * lu(k,1554)
    1568   141174528 :          lu(k,1594) = lu(k,1594) - lu(k,578) * lu(k,1592)
    1569   141174528 :          lu(k,1602) = lu(k,1602) - lu(k,579) * lu(k,1592)
    1570   141174528 :          lu(k,1604) = - lu(k,580) * lu(k,1592)
    1571   141174528 :          lu(k,1607) = lu(k,1607) - lu(k,581) * lu(k,1592)
    1572   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,582) * lu(k,1592)
    1573   141174528 :          lu(k,1611) = lu(k,1611) - lu(k,583) * lu(k,1592)
    1574   141174528 :          lu(k,1615) = lu(k,1615) - lu(k,584) * lu(k,1592)
    1575   141174528 :          lu(k,1837) = lu(k,1837) - lu(k,578) * lu(k,1836)
    1576   141174528 :          lu(k,1840) = lu(k,1840) - lu(k,579) * lu(k,1836)
    1577   141174528 :          lu(k,1841) = - lu(k,580) * lu(k,1836)
    1578   141174528 :          lu(k,1844) = lu(k,1844) - lu(k,581) * lu(k,1836)
    1579   141174528 :          lu(k,1845) = lu(k,1845) - lu(k,582) * lu(k,1836)
    1580   141174528 :          lu(k,1848) = lu(k,1848) - lu(k,583) * lu(k,1836)
    1581   141174528 :          lu(k,1852) = - lu(k,584) * lu(k,1836)
    1582   141174528 :          lu(k,585) = 1._r8 / lu(k,585)
    1583   141174528 :          lu(k,586) = lu(k,586) * lu(k,585)
    1584   141174528 :          lu(k,587) = lu(k,587) * lu(k,585)
    1585   141174528 :          lu(k,588) = lu(k,588) * lu(k,585)
    1586   141174528 :          lu(k,589) = lu(k,589) * lu(k,585)
    1587   141174528 :          lu(k,590) = lu(k,590) * lu(k,585)
    1588   141174528 :          lu(k,591) = lu(k,591) * lu(k,585)
    1589   141174528 :          lu(k,592) = lu(k,592) * lu(k,585)
    1590   141174528 :          lu(k,813) = lu(k,813) - lu(k,586) * lu(k,812)
    1591   141174528 :          lu(k,814) = lu(k,814) - lu(k,587) * lu(k,812)
    1592   141174528 :          lu(k,815) = - lu(k,588) * lu(k,812)
    1593   141174528 :          lu(k,816) = lu(k,816) - lu(k,589) * lu(k,812)
    1594   141174528 :          lu(k,818) = - lu(k,590) * lu(k,812)
    1595   141174528 :          lu(k,820) = lu(k,820) - lu(k,591) * lu(k,812)
    1596   141174528 :          lu(k,821) = - lu(k,592) * lu(k,812)
    1597   141174528 :          lu(k,1771) = lu(k,1771) - lu(k,586) * lu(k,1746)
    1598   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,587) * lu(k,1746)
    1599   141174528 :          lu(k,1799) = lu(k,1799) - lu(k,588) * lu(k,1746)
    1600   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,589) * lu(k,1746)
    1601   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,590) * lu(k,1746)
    1602   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,591) * lu(k,1746)
    1603   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,592) * lu(k,1746)
    1604   141174528 :          lu(k,2261) = lu(k,2261) - lu(k,586) * lu(k,2245)
    1605   141174528 :          lu(k,2275) = lu(k,2275) - lu(k,587) * lu(k,2245)
    1606   141174528 :          lu(k,2280) = - lu(k,588) * lu(k,2245)
    1607   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,589) * lu(k,2245)
    1608   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,590) * lu(k,2245)
    1609   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,591) * lu(k,2245)
    1610   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,592) * lu(k,2245)
    1611   141174528 :          lu(k,593) = 1._r8 / lu(k,593)
    1612   141174528 :          lu(k,594) = lu(k,594) * lu(k,593)
    1613   141174528 :          lu(k,595) = lu(k,595) * lu(k,593)
    1614   141174528 :          lu(k,596) = lu(k,596) * lu(k,593)
    1615   141174528 :          lu(k,597) = lu(k,597) * lu(k,593)
    1616   141174528 :          lu(k,598) = lu(k,598) * lu(k,593)
    1617   141174528 :          lu(k,599) = lu(k,599) * lu(k,593)
    1618   141174528 :          lu(k,600) = lu(k,600) * lu(k,593)
    1619   141174528 :          lu(k,1323) = - lu(k,594) * lu(k,1319)
    1620   141174528 :          lu(k,1326) = lu(k,1326) - lu(k,595) * lu(k,1319)
    1621   141174528 :          lu(k,1328) = - lu(k,596) * lu(k,1319)
    1622   141174528 :          lu(k,1329) = lu(k,1329) - lu(k,597) * lu(k,1319)
    1623   141174528 :          lu(k,1339) = - lu(k,598) * lu(k,1319)
    1624   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,599) * lu(k,1319)
    1625   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,600) * lu(k,1319)
    1626   141174528 :          lu(k,1779) = lu(k,1779) - lu(k,594) * lu(k,1747)
    1627   141174528 :          lu(k,1794) = lu(k,1794) - lu(k,595) * lu(k,1747)
    1628   141174528 :          lu(k,1798) = lu(k,1798) - lu(k,596) * lu(k,1747)
    1629   141174528 :          lu(k,1799) = lu(k,1799) - lu(k,597) * lu(k,1747)
    1630   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,598) * lu(k,1747)
    1631   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,599) * lu(k,1747)
    1632   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,600) * lu(k,1747)
    1633   141174528 :          lu(k,1914) = - lu(k,594) * lu(k,1897)
    1634   141174528 :          lu(k,1923) = lu(k,1923) - lu(k,595) * lu(k,1897)
    1635   141174528 :          lu(k,1927) = lu(k,1927) - lu(k,596) * lu(k,1897)
    1636   141174528 :          lu(k,1928) = lu(k,1928) - lu(k,597) * lu(k,1897)
    1637   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,598) * lu(k,1897)
    1638   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,599) * lu(k,1897)
    1639   145586232 :          lu(k,1958) = lu(k,1958) - lu(k,600) * lu(k,1897)
    1640             :       end do
    1641     4411704 :       end subroutine lu_fac12
    1642     4411704 :       subroutine lu_fac13( avec_len, lu )
    1643             :       use chem_mods, only : nzcnt
    1644             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1645             :       implicit none
    1646             : !-----------------------------------------------------------------------
    1647             : ! ... dummy args
    1648             : !-----------------------------------------------------------------------
    1649             :       integer, intent(in) :: avec_len
    1650             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1651             : !-----------------------------------------------------------------------
    1652             : ! ... local variables
    1653             : !-----------------------------------------------------------------------
    1654             :       integer :: k
    1655   145586232 :       do k = 1,avec_len
    1656   141174528 :          lu(k,601) = 1._r8 / lu(k,601)
    1657   141174528 :          lu(k,602) = lu(k,602) * lu(k,601)
    1658   141174528 :          lu(k,603) = lu(k,603) * lu(k,601)
    1659   141174528 :          lu(k,604) = lu(k,604) * lu(k,601)
    1660   141174528 :          lu(k,605) = lu(k,605) * lu(k,601)
    1661   141174528 :          lu(k,606) = lu(k,606) * lu(k,601)
    1662   141174528 :          lu(k,607) = lu(k,607) * lu(k,601)
    1663   141174528 :          lu(k,608) = lu(k,608) * lu(k,601)
    1664   141174528 :          lu(k,1765) = lu(k,1765) - lu(k,602) * lu(k,1748)
    1665   141174528 :          lu(k,1787) = lu(k,1787) - lu(k,603) * lu(k,1748)
    1666   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,604) * lu(k,1748)
    1667   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,605) * lu(k,1748)
    1668   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,606) * lu(k,1748)
    1669   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,607) * lu(k,1748)
    1670   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,608) * lu(k,1748)
    1671   141174528 :          lu(k,2104) = - lu(k,602) * lu(k,2101)
    1672   141174528 :          lu(k,2108) = lu(k,2108) - lu(k,603) * lu(k,2101)
    1673   141174528 :          lu(k,2112) = lu(k,2112) - lu(k,604) * lu(k,2101)
    1674   141174528 :          lu(k,2119) = lu(k,2119) - lu(k,605) * lu(k,2101)
    1675   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,606) * lu(k,2101)
    1676   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,607) * lu(k,2101)
    1677   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,608) * lu(k,2101)
    1678   141174528 :          lu(k,2146) = - lu(k,602) * lu(k,2143)
    1679   141174528 :          lu(k,2153) = lu(k,2153) - lu(k,603) * lu(k,2143)
    1680   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,604) * lu(k,2143)
    1681   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,605) * lu(k,2143)
    1682   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,606) * lu(k,2143)
    1683   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,607) * lu(k,2143)
    1684   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,608) * lu(k,2143)
    1685   141174528 :          lu(k,609) = 1._r8 / lu(k,609)
    1686   141174528 :          lu(k,610) = lu(k,610) * lu(k,609)
    1687   141174528 :          lu(k,611) = lu(k,611) * lu(k,609)
    1688   141174528 :          lu(k,612) = lu(k,612) * lu(k,609)
    1689   141174528 :          lu(k,613) = lu(k,613) * lu(k,609)
    1690   141174528 :          lu(k,614) = lu(k,614) * lu(k,609)
    1691   141174528 :          lu(k,615) = lu(k,615) * lu(k,609)
    1692   141174528 :          lu(k,616) = lu(k,616) * lu(k,609)
    1693   141174528 :          lu(k,1786) = lu(k,1786) - lu(k,610) * lu(k,1749)
    1694   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,611) * lu(k,1749)
    1695   141174528 :          lu(k,1798) = lu(k,1798) - lu(k,612) * lu(k,1749)
    1696   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,613) * lu(k,1749)
    1697   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,614) * lu(k,1749)
    1698   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,615) * lu(k,1749)
    1699   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,616) * lu(k,1749)
    1700   141174528 :          lu(k,1917) = lu(k,1917) - lu(k,610) * lu(k,1898)
    1701   141174528 :          lu(k,1922) = lu(k,1922) - lu(k,611) * lu(k,1898)
    1702   141174528 :          lu(k,1927) = lu(k,1927) - lu(k,612) * lu(k,1898)
    1703   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,613) * lu(k,1898)
    1704   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,614) * lu(k,1898)
    1705   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,615) * lu(k,1898)
    1706   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,616) * lu(k,1898)
    1707   141174528 :          lu(k,2048) = lu(k,2048) - lu(k,610) * lu(k,2042)
    1708   141174528 :          lu(k,2055) = lu(k,2055) - lu(k,611) * lu(k,2042)
    1709   141174528 :          lu(k,2060) = - lu(k,612) * lu(k,2042)
    1710   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,613) * lu(k,2042)
    1711   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,614) * lu(k,2042)
    1712   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,615) * lu(k,2042)
    1713   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,616) * lu(k,2042)
    1714   141174528 :          lu(k,617) = 1._r8 / lu(k,617)
    1715   141174528 :          lu(k,618) = lu(k,618) * lu(k,617)
    1716   141174528 :          lu(k,619) = lu(k,619) * lu(k,617)
    1717   141174528 :          lu(k,620) = lu(k,620) * lu(k,617)
    1718   141174528 :          lu(k,621) = lu(k,621) * lu(k,617)
    1719   141174528 :          lu(k,622) = lu(k,622) * lu(k,617)
    1720   141174528 :          lu(k,623) = lu(k,623) * lu(k,617)
    1721   141174528 :          lu(k,624) = lu(k,624) * lu(k,617)
    1722   141174528 :          lu(k,625) = lu(k,625) * lu(k,617)
    1723   141174528 :          lu(k,1293) = - lu(k,618) * lu(k,1289)
    1724   141174528 :          lu(k,1295) = - lu(k,619) * lu(k,1289)
    1725   141174528 :          lu(k,1296) = - lu(k,620) * lu(k,1289)
    1726   141174528 :          lu(k,1306) = - lu(k,621) * lu(k,1289)
    1727   141174528 :          lu(k,1307) = lu(k,1307) - lu(k,622) * lu(k,1289)
    1728   141174528 :          lu(k,1308) = lu(k,1308) - lu(k,623) * lu(k,1289)
    1729   141174528 :          lu(k,1310) = - lu(k,624) * lu(k,1289)
    1730   141174528 :          lu(k,1315) = lu(k,1315) - lu(k,625) * lu(k,1289)
    1731   141174528 :          lu(k,1794) = lu(k,1794) - lu(k,618) * lu(k,1750)
    1732   141174528 :          lu(k,1798) = lu(k,1798) - lu(k,619) * lu(k,1750)
    1733   141174528 :          lu(k,1799) = lu(k,1799) - lu(k,620) * lu(k,1750)
    1734   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,621) * lu(k,1750)
    1735   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,622) * lu(k,1750)
    1736   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,623) * lu(k,1750)
    1737   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,624) * lu(k,1750)
    1738   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,625) * lu(k,1750)
    1739   141174528 :          lu(k,1923) = lu(k,1923) - lu(k,618) * lu(k,1899)
    1740   141174528 :          lu(k,1927) = lu(k,1927) - lu(k,619) * lu(k,1899)
    1741   141174528 :          lu(k,1928) = lu(k,1928) - lu(k,620) * lu(k,1899)
    1742   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,621) * lu(k,1899)
    1743   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,622) * lu(k,1899)
    1744   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,623) * lu(k,1899)
    1745   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,624) * lu(k,1899)
    1746   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,625) * lu(k,1899)
    1747   141174528 :          lu(k,626) = 1._r8 / lu(k,626)
    1748   141174528 :          lu(k,627) = lu(k,627) * lu(k,626)
    1749   141174528 :          lu(k,628) = lu(k,628) * lu(k,626)
    1750   141174528 :          lu(k,629) = lu(k,629) * lu(k,626)
    1751   141174528 :          lu(k,630) = lu(k,630) * lu(k,626)
    1752   141174528 :          lu(k,631) = lu(k,631) * lu(k,626)
    1753   141174528 :          lu(k,632) = lu(k,632) * lu(k,626)
    1754   141174528 :          lu(k,633) = lu(k,633) * lu(k,626)
    1755   141174528 :          lu(k,634) = lu(k,634) * lu(k,626)
    1756   141174528 :          lu(k,1643) = lu(k,1643) - lu(k,627) * lu(k,1639)
    1757   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,628) * lu(k,1639)
    1758   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,629) * lu(k,1639)
    1759   141174528 :          lu(k,1654) = lu(k,1654) - lu(k,630) * lu(k,1639)
    1760   141174528 :          lu(k,1655) = lu(k,1655) - lu(k,631) * lu(k,1639)
    1761   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,632) * lu(k,1639)
    1762   141174528 :          lu(k,1659) = lu(k,1659) - lu(k,633) * lu(k,1639)
    1763   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,634) * lu(k,1639)
    1764   141174528 :          lu(k,1815) = lu(k,1815) - lu(k,627) * lu(k,1751)
    1765   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,628) * lu(k,1751)
    1766   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,629) * lu(k,1751)
    1767   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,630) * lu(k,1751)
    1768   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,631) * lu(k,1751)
    1769   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,632) * lu(k,1751)
    1770   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,633) * lu(k,1751)
    1771   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,634) * lu(k,1751)
    1772   141174528 :          lu(k,2115) = lu(k,2115) - lu(k,627) * lu(k,2102)
    1773   141174528 :          lu(k,2122) = lu(k,2122) - lu(k,628) * lu(k,2102)
    1774   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,629) * lu(k,2102)
    1775   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,630) * lu(k,2102)
    1776   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,631) * lu(k,2102)
    1777   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,632) * lu(k,2102)
    1778   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,633) * lu(k,2102)
    1779   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,634) * lu(k,2102)
    1780   141174528 :          lu(k,635) = 1._r8 / lu(k,635)
    1781   141174528 :          lu(k,636) = lu(k,636) * lu(k,635)
    1782   141174528 :          lu(k,637) = lu(k,637) * lu(k,635)
    1783   141174528 :          lu(k,638) = lu(k,638) * lu(k,635)
    1784   141174528 :          lu(k,639) = lu(k,639) * lu(k,635)
    1785   141174528 :          lu(k,640) = lu(k,640) * lu(k,635)
    1786   141174528 :          lu(k,641) = lu(k,641) * lu(k,635)
    1787   141174528 :          lu(k,1397) = lu(k,1397) - lu(k,636) * lu(k,1394)
    1788   141174528 :          lu(k,1402) = lu(k,1402) - lu(k,637) * lu(k,1394)
    1789   141174528 :          lu(k,1404) = lu(k,1404) - lu(k,638) * lu(k,1394)
    1790   141174528 :          lu(k,1407) = lu(k,1407) - lu(k,639) * lu(k,1394)
    1791   141174528 :          lu(k,1409) = lu(k,1409) - lu(k,640) * lu(k,1394)
    1792   141174528 :          lu(k,1413) = - lu(k,641) * lu(k,1394)
    1793   141174528 :          lu(k,1418) = lu(k,1418) - lu(k,636) * lu(k,1416)
    1794   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,637) * lu(k,1416)
    1795   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,638) * lu(k,1416)
    1796   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,639) * lu(k,1416)
    1797   141174528 :          lu(k,1441) = lu(k,1441) - lu(k,640) * lu(k,1416)
    1798   141174528 :          lu(k,1445) = - lu(k,641) * lu(k,1416)
    1799   141174528 :          lu(k,1777) = lu(k,1777) - lu(k,636) * lu(k,1752)
    1800   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,637) * lu(k,1752)
    1801   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,638) * lu(k,1752)
    1802   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,639) * lu(k,1752)
    1803   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,640) * lu(k,1752)
    1804   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,641) * lu(k,1752)
    1805   141174528 :          lu(k,2267) = lu(k,2267) - lu(k,636) * lu(k,2246)
    1806   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,637) * lu(k,2246)
    1807   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,638) * lu(k,2246)
    1808   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,639) * lu(k,2246)
    1809   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,640) * lu(k,2246)
    1810   145586232 :          lu(k,2313) = lu(k,2313) - lu(k,641) * lu(k,2246)
    1811             :       end do
    1812     4411704 :       end subroutine lu_fac13
    1813     4411704 :       subroutine lu_fac14( avec_len, lu )
    1814             :       use chem_mods, only : nzcnt
    1815             :       use shr_kind_mod, only : r8 => shr_kind_r8
    1816             :       implicit none
    1817             : !-----------------------------------------------------------------------
    1818             : ! ... dummy args
    1819             : !-----------------------------------------------------------------------
    1820             :       integer, intent(in) :: avec_len
    1821             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    1822             : !-----------------------------------------------------------------------
    1823             : ! ... local variables
    1824             : !-----------------------------------------------------------------------
    1825             :       integer :: k
    1826   145586232 :       do k = 1,avec_len
    1827   141174528 :          lu(k,642) = 1._r8 / lu(k,642)
    1828   141174528 :          lu(k,643) = lu(k,643) * lu(k,642)
    1829   141174528 :          lu(k,644) = lu(k,644) * lu(k,642)
    1830   141174528 :          lu(k,645) = lu(k,645) * lu(k,642)
    1831   141174528 :          lu(k,723) = - lu(k,643) * lu(k,718)
    1832   141174528 :          lu(k,725) = - lu(k,644) * lu(k,718)
    1833   141174528 :          lu(k,728) = lu(k,728) - lu(k,645) * lu(k,718)
    1834   141174528 :          lu(k,742) = - lu(k,643) * lu(k,737)
    1835   141174528 :          lu(k,744) = lu(k,744) - lu(k,644) * lu(k,737)
    1836   141174528 :          lu(k,748) = lu(k,748) - lu(k,645) * lu(k,737)
    1837   141174528 :          lu(k,771) = - lu(k,643) * lu(k,766)
    1838   141174528 :          lu(k,773) = - lu(k,644) * lu(k,766)
    1839   141174528 :          lu(k,778) = lu(k,778) - lu(k,645) * lu(k,766)
    1840   141174528 :          lu(k,795) = - lu(k,643) * lu(k,790)
    1841   141174528 :          lu(k,797) = lu(k,797) - lu(k,644) * lu(k,790)
    1842   141174528 :          lu(k,803) = lu(k,803) - lu(k,645) * lu(k,790)
    1843   141174528 :          lu(k,1067) = - lu(k,643) * lu(k,1065)
    1844   141174528 :          lu(k,1070) = - lu(k,644) * lu(k,1065)
    1845   141174528 :          lu(k,1080) = lu(k,1080) - lu(k,645) * lu(k,1065)
    1846   141174528 :          lu(k,1324) = - lu(k,643) * lu(k,1320)
    1847   141174528 :          lu(k,1327) = - lu(k,644) * lu(k,1320)
    1848   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,645) * lu(k,1320)
    1849   141174528 :          lu(k,1782) = - lu(k,643) * lu(k,1753)
    1850   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,644) * lu(k,1753)
    1851   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,645) * lu(k,1753)
    1852   141174528 :          lu(k,1915) = lu(k,1915) - lu(k,643) * lu(k,1900)
    1853   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,644) * lu(k,1900)
    1854   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,645) * lu(k,1900)
    1855   141174528 :          lu(k,646) = 1._r8 / lu(k,646)
    1856   141174528 :          lu(k,647) = lu(k,647) * lu(k,646)
    1857   141174528 :          lu(k,648) = lu(k,648) * lu(k,646)
    1858   141174528 :          lu(k,649) = lu(k,649) * lu(k,646)
    1859   141174528 :          lu(k,650) = lu(k,650) * lu(k,646)
    1860   141174528 :          lu(k,651) = lu(k,651) * lu(k,646)
    1861   141174528 :          lu(k,652) = lu(k,652) * lu(k,646)
    1862   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,647) * lu(k,1593)
    1863   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,648) * lu(k,1593)
    1864   141174528 :          lu(k,1614) = lu(k,1614) - lu(k,649) * lu(k,1593)
    1865   141174528 :          lu(k,1616) = lu(k,1616) - lu(k,650) * lu(k,1593)
    1866   141174528 :          lu(k,1618) = lu(k,1618) - lu(k,651) * lu(k,1593)
    1867   141174528 :          lu(k,1620) = - lu(k,652) * lu(k,1593)
    1868   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,647) * lu(k,1754)
    1869   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,648) * lu(k,1754)
    1870   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,649) * lu(k,1754)
    1871   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,650) * lu(k,1754)
    1872   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,651) * lu(k,1754)
    1873   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,652) * lu(k,1754)
    1874   141174528 :          lu(k,2121) = - lu(k,647) * lu(k,2103)
    1875   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,648) * lu(k,2103)
    1876   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,649) * lu(k,2103)
    1877   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,650) * lu(k,2103)
    1878   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,651) * lu(k,2103)
    1879   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,652) * lu(k,2103)
    1880   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,647) * lu(k,2247)
    1881   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,648) * lu(k,2247)
    1882   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,649) * lu(k,2247)
    1883   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,650) * lu(k,2247)
    1884   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,651) * lu(k,2247)
    1885   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,652) * lu(k,2247)
    1886   141174528 :          lu(k,653) = 1._r8 / lu(k,653)
    1887   141174528 :          lu(k,654) = lu(k,654) * lu(k,653)
    1888   141174528 :          lu(k,655) = lu(k,655) * lu(k,653)
    1889   141174528 :          lu(k,656) = lu(k,656) * lu(k,653)
    1890   141174528 :          lu(k,657) = lu(k,657) * lu(k,653)
    1891   141174528 :          lu(k,658) = lu(k,658) * lu(k,653)
    1892   141174528 :          lu(k,659) = lu(k,659) * lu(k,653)
    1893   141174528 :          lu(k,660) = lu(k,660) * lu(k,653)
    1894   141174528 :          lu(k,661) = lu(k,661) * lu(k,653)
    1895   141174528 :          lu(k,1397) = lu(k,1397) - lu(k,654) * lu(k,1395)
    1896   141174528 :          lu(k,1399) = - lu(k,655) * lu(k,1395)
    1897   141174528 :          lu(k,1401) = lu(k,1401) - lu(k,656) * lu(k,1395)
    1898   141174528 :          lu(k,1404) = lu(k,1404) - lu(k,657) * lu(k,1395)
    1899   141174528 :          lu(k,1405) = lu(k,1405) - lu(k,658) * lu(k,1395)
    1900   141174528 :          lu(k,1407) = lu(k,1407) - lu(k,659) * lu(k,1395)
    1901   141174528 :          lu(k,1410) = lu(k,1410) - lu(k,660) * lu(k,1395)
    1902   141174528 :          lu(k,1412) = lu(k,1412) - lu(k,661) * lu(k,1395)
    1903   141174528 :          lu(k,1560) = lu(k,1560) - lu(k,654) * lu(k,1555)
    1904   141174528 :          lu(k,1566) = - lu(k,655) * lu(k,1555)
    1905   141174528 :          lu(k,1569) = lu(k,1569) - lu(k,656) * lu(k,1555)
    1906   141174528 :          lu(k,1575) = lu(k,1575) - lu(k,657) * lu(k,1555)
    1907   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,658) * lu(k,1555)
    1908   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,659) * lu(k,1555)
    1909   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,660) * lu(k,1555)
    1910   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,661) * lu(k,1555)
    1911   141174528 :          lu(k,1777) = lu(k,1777) - lu(k,654) * lu(k,1755)
    1912   141174528 :          lu(k,1799) = lu(k,1799) - lu(k,655) * lu(k,1755)
    1913   141174528 :          lu(k,1812) = lu(k,1812) - lu(k,656) * lu(k,1755)
    1914   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,657) * lu(k,1755)
    1915   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,658) * lu(k,1755)
    1916   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,659) * lu(k,1755)
    1917   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,660) * lu(k,1755)
    1918   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,661) * lu(k,1755)
    1919   141174528 :          lu(k,662) = 1._r8 / lu(k,662)
    1920   141174528 :          lu(k,663) = lu(k,663) * lu(k,662)
    1921   141174528 :          lu(k,664) = lu(k,664) * lu(k,662)
    1922   141174528 :          lu(k,665) = lu(k,665) * lu(k,662)
    1923   141174528 :          lu(k,666) = lu(k,666) * lu(k,662)
    1924   141174528 :          lu(k,667) = lu(k,667) * lu(k,662)
    1925   141174528 :          lu(k,1101) = lu(k,1101) - lu(k,663) * lu(k,1099)
    1926   141174528 :          lu(k,1106) = lu(k,1106) - lu(k,664) * lu(k,1099)
    1927   141174528 :          lu(k,1108) = lu(k,1108) - lu(k,665) * lu(k,1099)
    1928   141174528 :          lu(k,1109) = lu(k,1109) - lu(k,666) * lu(k,1099)
    1929   141174528 :          lu(k,1113) = lu(k,1113) - lu(k,667) * lu(k,1099)
    1930   141174528 :          lu(k,1179) = lu(k,1179) - lu(k,663) * lu(k,1176)
    1931   141174528 :          lu(k,1187) = - lu(k,664) * lu(k,1176)
    1932   141174528 :          lu(k,1189) = lu(k,1189) - lu(k,665) * lu(k,1176)
    1933   141174528 :          lu(k,1191) = lu(k,1191) - lu(k,666) * lu(k,1176)
    1934   141174528 :          lu(k,1195) = lu(k,1195) - lu(k,667) * lu(k,1176)
    1935   141174528 :          lu(k,1790) = lu(k,1790) - lu(k,663) * lu(k,1756)
    1936   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,664) * lu(k,1756)
    1937   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,665) * lu(k,1756)
    1938   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,666) * lu(k,1756)
    1939   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,667) * lu(k,1756)
    1940   141174528 :          lu(k,1920) = lu(k,1920) - lu(k,663) * lu(k,1901)
    1941   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,664) * lu(k,1901)
    1942   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,665) * lu(k,1901)
    1943   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,666) * lu(k,1901)
    1944   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,667) * lu(k,1901)
    1945   141174528 :          lu(k,1974) = lu(k,1974) - lu(k,663) * lu(k,1965)
    1946   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,664) * lu(k,1965)
    1947   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,665) * lu(k,1965)
    1948   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,666) * lu(k,1965)
    1949   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,667) * lu(k,1965)
    1950   141174528 :          lu(k,670) = 1._r8 / lu(k,670)
    1951   141174528 :          lu(k,671) = lu(k,671) * lu(k,670)
    1952   141174528 :          lu(k,672) = lu(k,672) * lu(k,670)
    1953   141174528 :          lu(k,673) = lu(k,673) * lu(k,670)
    1954   141174528 :          lu(k,674) = lu(k,674) * lu(k,670)
    1955   141174528 :          lu(k,675) = lu(k,675) * lu(k,670)
    1956   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,671) * lu(k,1556)
    1957   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,672) * lu(k,1556)
    1958   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,673) * lu(k,1556)
    1959   141174528 :          lu(k,1586) = lu(k,1586) - lu(k,674) * lu(k,1556)
    1960   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,675) * lu(k,1556)
    1961   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,671) * lu(k,1757)
    1962   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,672) * lu(k,1757)
    1963   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,673) * lu(k,1757)
    1964   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,674) * lu(k,1757)
    1965   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,675) * lu(k,1757)
    1966   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,671) * lu(k,1902)
    1967   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,672) * lu(k,1902)
    1968   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,673) * lu(k,1902)
    1969   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,674) * lu(k,1902)
    1970   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,675) * lu(k,1902)
    1971   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,671) * lu(k,2144)
    1972   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,672) * lu(k,2144)
    1973   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,673) * lu(k,2144)
    1974   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,674) * lu(k,2144)
    1975   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,675) * lu(k,2144)
    1976   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,671) * lu(k,2248)
    1977   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,672) * lu(k,2248)
    1978   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,673) * lu(k,2248)
    1979   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,674) * lu(k,2248)
    1980   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,675) * lu(k,2248)
    1981   141174528 :          lu(k,677) = 1._r8 / lu(k,677)
    1982   141174528 :          lu(k,678) = lu(k,678) * lu(k,677)
    1983   141174528 :          lu(k,679) = lu(k,679) * lu(k,677)
    1984   141174528 :          lu(k,680) = lu(k,680) * lu(k,677)
    1985   141174528 :          lu(k,681) = lu(k,681) * lu(k,677)
    1986   141174528 :          lu(k,682) = lu(k,682) * lu(k,677)
    1987   141174528 :          lu(k,683) = lu(k,683) * lu(k,677)
    1988   141174528 :          lu(k,684) = lu(k,684) * lu(k,677)
    1989   141174528 :          lu(k,685) = lu(k,685) * lu(k,677)
    1990   141174528 :          lu(k,686) = lu(k,686) * lu(k,677)
    1991   141174528 :          lu(k,958) = lu(k,958) - lu(k,678) * lu(k,956)
    1992   141174528 :          lu(k,959) = lu(k,959) - lu(k,679) * lu(k,956)
    1993   141174528 :          lu(k,960) = lu(k,960) - lu(k,680) * lu(k,956)
    1994   141174528 :          lu(k,961) = lu(k,961) - lu(k,681) * lu(k,956)
    1995   141174528 :          lu(k,962) = lu(k,962) - lu(k,682) * lu(k,956)
    1996   141174528 :          lu(k,963) = lu(k,963) - lu(k,683) * lu(k,956)
    1997   141174528 :          lu(k,964) = lu(k,964) - lu(k,684) * lu(k,956)
    1998   141174528 :          lu(k,966) = lu(k,966) - lu(k,685) * lu(k,956)
    1999   141174528 :          lu(k,969) = lu(k,969) - lu(k,686) * lu(k,956)
    2000   141174528 :          lu(k,1760) = lu(k,1760) - lu(k,678) * lu(k,1758)
    2001   141174528 :          lu(k,1776) = lu(k,1776) - lu(k,679) * lu(k,1758)
    2002   141174528 :          lu(k,1784) = lu(k,1784) - lu(k,680) * lu(k,1758)
    2003   141174528 :          lu(k,1786) = lu(k,1786) - lu(k,681) * lu(k,1758)
    2004   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,682) * lu(k,1758)
    2005   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,683) * lu(k,1758)
    2006   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,684) * lu(k,1758)
    2007   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,685) * lu(k,1758)
    2008   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,686) * lu(k,1758)
    2009   141174528 :          lu(k,2250) = lu(k,2250) - lu(k,678) * lu(k,2249)
    2010   141174528 :          lu(k,2266) = lu(k,2266) - lu(k,679) * lu(k,2249)
    2011   141174528 :          lu(k,2270) = lu(k,2270) - lu(k,680) * lu(k,2249)
    2012   141174528 :          lu(k,2271) = lu(k,2271) - lu(k,681) * lu(k,2249)
    2013   141174528 :          lu(k,2275) = lu(k,2275) - lu(k,682) * lu(k,2249)
    2014   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,683) * lu(k,2249)
    2015   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,684) * lu(k,2249)
    2016   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,685) * lu(k,2249)
    2017   145586232 :          lu(k,2311) = lu(k,2311) - lu(k,686) * lu(k,2249)
    2018             :       end do
    2019     4411704 :       end subroutine lu_fac14
    2020     4411704 :       subroutine lu_fac15( avec_len, lu )
    2021             :       use chem_mods, only : nzcnt
    2022             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2023             :       implicit none
    2024             : !-----------------------------------------------------------------------
    2025             : ! ... dummy args
    2026             : !-----------------------------------------------------------------------
    2027             :       integer, intent(in) :: avec_len
    2028             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2029             : !-----------------------------------------------------------------------
    2030             : ! ... local variables
    2031             : !-----------------------------------------------------------------------
    2032             :       integer :: k
    2033   145586232 :       do k = 1,avec_len
    2034   141174528 :          lu(k,688) = 1._r8 / lu(k,688)
    2035   141174528 :          lu(k,689) = lu(k,689) * lu(k,688)
    2036   141174528 :          lu(k,690) = lu(k,690) * lu(k,688)
    2037   141174528 :          lu(k,691) = lu(k,691) * lu(k,688)
    2038   141174528 :          lu(k,692) = lu(k,692) * lu(k,688)
    2039   141174528 :          lu(k,693) = lu(k,693) * lu(k,688)
    2040   141174528 :          lu(k,694) = lu(k,694) * lu(k,688)
    2041   141174528 :          lu(k,695) = lu(k,695) * lu(k,688)
    2042   141174528 :          lu(k,696) = lu(k,696) * lu(k,688)
    2043   141174528 :          lu(k,697) = lu(k,697) * lu(k,688)
    2044   141174528 :          lu(k,958) = lu(k,958) - lu(k,689) * lu(k,957)
    2045   141174528 :          lu(k,959) = lu(k,959) - lu(k,690) * lu(k,957)
    2046   141174528 :          lu(k,961) = lu(k,961) - lu(k,691) * lu(k,957)
    2047   141174528 :          lu(k,962) = lu(k,962) - lu(k,692) * lu(k,957)
    2048   141174528 :          lu(k,963) = lu(k,963) - lu(k,693) * lu(k,957)
    2049   141174528 :          lu(k,964) = lu(k,964) - lu(k,694) * lu(k,957)
    2050   141174528 :          lu(k,965) = lu(k,965) - lu(k,695) * lu(k,957)
    2051   141174528 :          lu(k,966) = lu(k,966) - lu(k,696) * lu(k,957)
    2052   141174528 :          lu(k,969) = lu(k,969) - lu(k,697) * lu(k,957)
    2053   141174528 :          lu(k,1760) = lu(k,1760) - lu(k,689) * lu(k,1759)
    2054   141174528 :          lu(k,1776) = lu(k,1776) - lu(k,690) * lu(k,1759)
    2055   141174528 :          lu(k,1786) = lu(k,1786) - lu(k,691) * lu(k,1759)
    2056   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,692) * lu(k,1759)
    2057   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,693) * lu(k,1759)
    2058   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,694) * lu(k,1759)
    2059   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,695) * lu(k,1759)
    2060   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,696) * lu(k,1759)
    2061   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,697) * lu(k,1759)
    2062   141174528 :          lu(k,1904) = lu(k,1904) - lu(k,689) * lu(k,1903)
    2063   141174528 :          lu(k,1912) = lu(k,1912) - lu(k,690) * lu(k,1903)
    2064   141174528 :          lu(k,1917) = lu(k,1917) - lu(k,691) * lu(k,1903)
    2065   141174528 :          lu(k,1922) = lu(k,1922) - lu(k,692) * lu(k,1903)
    2066   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,693) * lu(k,1903)
    2067   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,694) * lu(k,1903)
    2068   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,695) * lu(k,1903)
    2069   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,696) * lu(k,1903)
    2070   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,697) * lu(k,1903)
    2071   141174528 :          lu(k,699) = 1._r8 / lu(k,699)
    2072   141174528 :          lu(k,700) = lu(k,700) * lu(k,699)
    2073   141174528 :          lu(k,701) = lu(k,701) * lu(k,699)
    2074   141174528 :          lu(k,702) = lu(k,702) * lu(k,699)
    2075   141174528 :          lu(k,703) = lu(k,703) * lu(k,699)
    2076   141174528 :          lu(k,704) = lu(k,704) * lu(k,699)
    2077   141174528 :          lu(k,705) = lu(k,705) * lu(k,699)
    2078   141174528 :          lu(k,962) = lu(k,962) - lu(k,700) * lu(k,958)
    2079   141174528 :          lu(k,963) = lu(k,963) - lu(k,701) * lu(k,958)
    2080   141174528 :          lu(k,965) = lu(k,965) - lu(k,702) * lu(k,958)
    2081   141174528 :          lu(k,966) = lu(k,966) - lu(k,703) * lu(k,958)
    2082   141174528 :          lu(k,967) = lu(k,967) - lu(k,704) * lu(k,958)
    2083   141174528 :          lu(k,969) = lu(k,969) - lu(k,705) * lu(k,958)
    2084   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,700) * lu(k,1760)
    2085   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,701) * lu(k,1760)
    2086   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,702) * lu(k,1760)
    2087   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,703) * lu(k,1760)
    2088   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,704) * lu(k,1760)
    2089   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,705) * lu(k,1760)
    2090   141174528 :          lu(k,1922) = lu(k,1922) - lu(k,700) * lu(k,1904)
    2091   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,701) * lu(k,1904)
    2092   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,702) * lu(k,1904)
    2093   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,703) * lu(k,1904)
    2094   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,704) * lu(k,1904)
    2095   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,705) * lu(k,1904)
    2096   141174528 :          lu(k,2275) = lu(k,2275) - lu(k,700) * lu(k,2250)
    2097   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,701) * lu(k,2250)
    2098   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,702) * lu(k,2250)
    2099   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,703) * lu(k,2250)
    2100   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,704) * lu(k,2250)
    2101   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,705) * lu(k,2250)
    2102   141174528 :          lu(k,706) = 1._r8 / lu(k,706)
    2103   141174528 :          lu(k,707) = lu(k,707) * lu(k,706)
    2104   141174528 :          lu(k,708) = lu(k,708) * lu(k,706)
    2105   141174528 :          lu(k,709) = lu(k,709) * lu(k,706)
    2106   141174528 :          lu(k,710) = lu(k,710) * lu(k,706)
    2107   141174528 :          lu(k,711) = lu(k,711) * lu(k,706)
    2108   141174528 :          lu(k,712) = lu(k,712) * lu(k,706)
    2109   141174528 :          lu(k,713) = lu(k,713) * lu(k,706)
    2110   141174528 :          lu(k,714) = lu(k,714) * lu(k,706)
    2111   141174528 :          lu(k,715) = lu(k,715) * lu(k,706)
    2112   141174528 :          lu(k,1158) = lu(k,1158) - lu(k,707) * lu(k,1156)
    2113   141174528 :          lu(k,1159) = lu(k,1159) - lu(k,708) * lu(k,1156)
    2114   141174528 :          lu(k,1160) = lu(k,1160) - lu(k,709) * lu(k,1156)
    2115   141174528 :          lu(k,1161) = lu(k,1161) - lu(k,710) * lu(k,1156)
    2116   141174528 :          lu(k,1162) = lu(k,1162) - lu(k,711) * lu(k,1156)
    2117   141174528 :          lu(k,1163) = lu(k,1163) - lu(k,712) * lu(k,1156)
    2118   141174528 :          lu(k,1167) = lu(k,1167) - lu(k,713) * lu(k,1156)
    2119   141174528 :          lu(k,1170) = - lu(k,714) * lu(k,1156)
    2120   141174528 :          lu(k,1173) = lu(k,1173) - lu(k,715) * lu(k,1156)
    2121   141174528 :          lu(k,1777) = lu(k,1777) - lu(k,707) * lu(k,1761)
    2122   141174528 :          lu(k,1786) = lu(k,1786) - lu(k,708) * lu(k,1761)
    2123   141174528 :          lu(k,1794) = lu(k,1794) - lu(k,709) * lu(k,1761)
    2124   141174528 :          lu(k,1796) = lu(k,1796) - lu(k,710) * lu(k,1761)
    2125   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,711) * lu(k,1761)
    2126   141174528 :          lu(k,1800) = lu(k,1800) - lu(k,712) * lu(k,1761)
    2127   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,713) * lu(k,1761)
    2128   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,714) * lu(k,1761)
    2129   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,715) * lu(k,1761)
    2130   141174528 :          lu(k,2267) = lu(k,2267) - lu(k,707) * lu(k,2251)
    2131   141174528 :          lu(k,2271) = lu(k,2271) - lu(k,708) * lu(k,2251)
    2132   141174528 :          lu(k,2276) = lu(k,2276) - lu(k,709) * lu(k,2251)
    2133   141174528 :          lu(k,2278) = - lu(k,710) * lu(k,2251)
    2134   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,711) * lu(k,2251)
    2135   141174528 :          lu(k,2281) = lu(k,2281) - lu(k,712) * lu(k,2251)
    2136   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,713) * lu(k,2251)
    2137   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,714) * lu(k,2251)
    2138   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,715) * lu(k,2251)
    2139   141174528 :          lu(k,719) = 1._r8 / lu(k,719)
    2140   141174528 :          lu(k,720) = lu(k,720) * lu(k,719)
    2141   141174528 :          lu(k,721) = lu(k,721) * lu(k,719)
    2142   141174528 :          lu(k,722) = lu(k,722) * lu(k,719)
    2143   141174528 :          lu(k,723) = lu(k,723) * lu(k,719)
    2144   141174528 :          lu(k,724) = lu(k,724) * lu(k,719)
    2145   141174528 :          lu(k,725) = lu(k,725) * lu(k,719)
    2146   141174528 :          lu(k,726) = lu(k,726) * lu(k,719)
    2147   141174528 :          lu(k,727) = lu(k,727) * lu(k,719)
    2148   141174528 :          lu(k,728) = lu(k,728) * lu(k,719)
    2149   141174528 :          lu(k,768) = lu(k,768) - lu(k,720) * lu(k,767)
    2150   141174528 :          lu(k,769) = lu(k,769) - lu(k,721) * lu(k,767)
    2151   141174528 :          lu(k,770) = lu(k,770) - lu(k,722) * lu(k,767)
    2152   141174528 :          lu(k,771) = lu(k,771) - lu(k,723) * lu(k,767)
    2153   141174528 :          lu(k,772) = lu(k,772) - lu(k,724) * lu(k,767)
    2154   141174528 :          lu(k,773) = lu(k,773) - lu(k,725) * lu(k,767)
    2155   141174528 :          lu(k,774) = lu(k,774) - lu(k,726) * lu(k,767)
    2156   141174528 :          lu(k,776) = - lu(k,727) * lu(k,767)
    2157   141174528 :          lu(k,778) = lu(k,778) - lu(k,728) * lu(k,767)
    2158   141174528 :          lu(k,1766) = lu(k,1766) - lu(k,720) * lu(k,1762)
    2159   141174528 :          lu(k,1767) = lu(k,1767) - lu(k,721) * lu(k,1762)
    2160   141174528 :          lu(k,1770) = - lu(k,722) * lu(k,1762)
    2161   141174528 :          lu(k,1782) = lu(k,1782) - lu(k,723) * lu(k,1762)
    2162   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,724) * lu(k,1762)
    2163   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,725) * lu(k,1762)
    2164   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,726) * lu(k,1762)
    2165   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,727) * lu(k,1762)
    2166   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,728) * lu(k,1762)
    2167   141174528 :          lu(k,2256) = lu(k,2256) - lu(k,720) * lu(k,2252)
    2168   141174528 :          lu(k,2257) = lu(k,2257) - lu(k,721) * lu(k,2252)
    2169   141174528 :          lu(k,2260) = lu(k,2260) - lu(k,722) * lu(k,2252)
    2170   141174528 :          lu(k,2269) = lu(k,2269) - lu(k,723) * lu(k,2252)
    2171   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,724) * lu(k,2252)
    2172   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,725) * lu(k,2252)
    2173   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,726) * lu(k,2252)
    2174   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,727) * lu(k,2252)
    2175   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,728) * lu(k,2252)
    2176   141174528 :          lu(k,729) = 1._r8 / lu(k,729)
    2177   141174528 :          lu(k,730) = lu(k,730) * lu(k,729)
    2178   141174528 :          lu(k,731) = lu(k,731) * lu(k,729)
    2179   141174528 :          lu(k,732) = lu(k,732) * lu(k,729)
    2180   141174528 :          lu(k,733) = lu(k,733) * lu(k,729)
    2181   141174528 :          lu(k,1045) = lu(k,1045) - lu(k,730) * lu(k,1043)
    2182   141174528 :          lu(k,1058) = lu(k,1058) - lu(k,731) * lu(k,1043)
    2183   141174528 :          lu(k,1060) = lu(k,1060) - lu(k,732) * lu(k,1043)
    2184   141174528 :          lu(k,1064) = - lu(k,733) * lu(k,1043)
    2185   141174528 :          lu(k,1397) = lu(k,1397) - lu(k,730) * lu(k,1396)
    2186   141174528 :          lu(k,1407) = lu(k,1407) - lu(k,731) * lu(k,1396)
    2187   141174528 :          lu(k,1409) = lu(k,1409) - lu(k,732) * lu(k,1396)
    2188   141174528 :          lu(k,1413) = lu(k,1413) - lu(k,733) * lu(k,1396)
    2189   141174528 :          lu(k,1418) = lu(k,1418) - lu(k,730) * lu(k,1417)
    2190   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,731) * lu(k,1417)
    2191   141174528 :          lu(k,1441) = lu(k,1441) - lu(k,732) * lu(k,1417)
    2192   141174528 :          lu(k,1445) = lu(k,1445) - lu(k,733) * lu(k,1417)
    2193   141174528 :          lu(k,1777) = lu(k,1777) - lu(k,730) * lu(k,1763)
    2194   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,731) * lu(k,1763)
    2195   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,732) * lu(k,1763)
    2196   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,733) * lu(k,1763)
    2197   141174528 :          lu(k,1970) = lu(k,1970) - lu(k,730) * lu(k,1966)
    2198   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,731) * lu(k,1966)
    2199   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,732) * lu(k,1966)
    2200   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,733) * lu(k,1966)
    2201   141174528 :          lu(k,2147) = lu(k,2147) - lu(k,730) * lu(k,2145)
    2202   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,731) * lu(k,2145)
    2203   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,732) * lu(k,2145)
    2204   141174528 :          lu(k,2195) = - lu(k,733) * lu(k,2145)
    2205   141174528 :          lu(k,2267) = lu(k,2267) - lu(k,730) * lu(k,2253)
    2206   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,731) * lu(k,2253)
    2207   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,732) * lu(k,2253)
    2208   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,733) * lu(k,2253)
    2209   141174528 :          lu(k,738) = 1._r8 / lu(k,738)
    2210   141174528 :          lu(k,739) = lu(k,739) * lu(k,738)
    2211   141174528 :          lu(k,740) = lu(k,740) * lu(k,738)
    2212   141174528 :          lu(k,741) = lu(k,741) * lu(k,738)
    2213   141174528 :          lu(k,742) = lu(k,742) * lu(k,738)
    2214   141174528 :          lu(k,743) = lu(k,743) * lu(k,738)
    2215   141174528 :          lu(k,744) = lu(k,744) * lu(k,738)
    2216   141174528 :          lu(k,745) = lu(k,745) * lu(k,738)
    2217   141174528 :          lu(k,746) = lu(k,746) * lu(k,738)
    2218   141174528 :          lu(k,747) = lu(k,747) * lu(k,738)
    2219   141174528 :          lu(k,748) = lu(k,748) * lu(k,738)
    2220   141174528 :          lu(k,792) = lu(k,792) - lu(k,739) * lu(k,791)
    2221   141174528 :          lu(k,793) = lu(k,793) - lu(k,740) * lu(k,791)
    2222   141174528 :          lu(k,794) = lu(k,794) - lu(k,741) * lu(k,791)
    2223   141174528 :          lu(k,795) = lu(k,795) - lu(k,742) * lu(k,791)
    2224   141174528 :          lu(k,796) = lu(k,796) - lu(k,743) * lu(k,791)
    2225   141174528 :          lu(k,797) = lu(k,797) - lu(k,744) * lu(k,791)
    2226   141174528 :          lu(k,798) = lu(k,798) - lu(k,745) * lu(k,791)
    2227   141174528 :          lu(k,799) = lu(k,799) - lu(k,746) * lu(k,791)
    2228   141174528 :          lu(k,801) = - lu(k,747) * lu(k,791)
    2229   141174528 :          lu(k,803) = lu(k,803) - lu(k,748) * lu(k,791)
    2230   141174528 :          lu(k,1766) = lu(k,1766) - lu(k,739) * lu(k,1764)
    2231   141174528 :          lu(k,1769) = lu(k,1769) - lu(k,740) * lu(k,1764)
    2232   141174528 :          lu(k,1770) = lu(k,1770) - lu(k,741) * lu(k,1764)
    2233   141174528 :          lu(k,1782) = lu(k,1782) - lu(k,742) * lu(k,1764)
    2234   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,743) * lu(k,1764)
    2235   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,744) * lu(k,1764)
    2236   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,745) * lu(k,1764)
    2237   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,746) * lu(k,1764)
    2238   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,747) * lu(k,1764)
    2239   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,748) * lu(k,1764)
    2240   141174528 :          lu(k,2256) = lu(k,2256) - lu(k,739) * lu(k,2254)
    2241   141174528 :          lu(k,2259) = lu(k,2259) - lu(k,740) * lu(k,2254)
    2242   141174528 :          lu(k,2260) = lu(k,2260) - lu(k,741) * lu(k,2254)
    2243   141174528 :          lu(k,2269) = lu(k,2269) - lu(k,742) * lu(k,2254)
    2244   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,743) * lu(k,2254)
    2245   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,744) * lu(k,2254)
    2246   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,745) * lu(k,2254)
    2247   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,746) * lu(k,2254)
    2248   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,747) * lu(k,2254)
    2249   145586232 :          lu(k,2311) = lu(k,2311) - lu(k,748) * lu(k,2254)
    2250             :       end do
    2251     4411704 :       end subroutine lu_fac15
    2252     4411704 :       subroutine lu_fac16( avec_len, lu )
    2253             :       use chem_mods, only : nzcnt
    2254             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2255             :       implicit none
    2256             : !-----------------------------------------------------------------------
    2257             : ! ... dummy args
    2258             : !-----------------------------------------------------------------------
    2259             :       integer, intent(in) :: avec_len
    2260             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2261             : !-----------------------------------------------------------------------
    2262             : ! ... local variables
    2263             : !-----------------------------------------------------------------------
    2264             :       integer :: k
    2265   145586232 :       do k = 1,avec_len
    2266   141174528 :          lu(k,751) = 1._r8 / lu(k,751)
    2267   141174528 :          lu(k,752) = lu(k,752) * lu(k,751)
    2268   141174528 :          lu(k,753) = lu(k,753) * lu(k,751)
    2269   141174528 :          lu(k,754) = lu(k,754) * lu(k,751)
    2270   141174528 :          lu(k,755) = lu(k,755) * lu(k,751)
    2271   141174528 :          lu(k,756) = lu(k,756) * lu(k,751)
    2272   141174528 :          lu(k,757) = lu(k,757) * lu(k,751)
    2273   141174528 :          lu(k,1794) = lu(k,1794) - lu(k,752) * lu(k,1765)
    2274   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,753) * lu(k,1765)
    2275   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,754) * lu(k,1765)
    2276   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,755) * lu(k,1765)
    2277   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,756) * lu(k,1765)
    2278   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,757) * lu(k,1765)
    2279   141174528 :          lu(k,1923) = lu(k,1923) - lu(k,752) * lu(k,1905)
    2280   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,753) * lu(k,1905)
    2281   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,754) * lu(k,1905)
    2282   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,755) * lu(k,1905)
    2283   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,756) * lu(k,1905)
    2284   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,757) * lu(k,1905)
    2285   141174528 :          lu(k,2111) = - lu(k,752) * lu(k,2104)
    2286   141174528 :          lu(k,2119) = lu(k,2119) - lu(k,753) * lu(k,2104)
    2287   141174528 :          lu(k,2120) = - lu(k,754) * lu(k,2104)
    2288   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,755) * lu(k,2104)
    2289   141174528 :          lu(k,2125) = - lu(k,756) * lu(k,2104)
    2290   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,757) * lu(k,2104)
    2291   141174528 :          lu(k,2159) = - lu(k,752) * lu(k,2146)
    2292   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,753) * lu(k,2146)
    2293   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,754) * lu(k,2146)
    2294   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,755) * lu(k,2146)
    2295   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,756) * lu(k,2146)
    2296   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,757) * lu(k,2146)
    2297   141174528 :          lu(k,2276) = lu(k,2276) - lu(k,752) * lu(k,2255)
    2298   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,753) * lu(k,2255)
    2299   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,754) * lu(k,2255)
    2300   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,755) * lu(k,2255)
    2301   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,756) * lu(k,2255)
    2302   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,757) * lu(k,2255)
    2303   141174528 :          lu(k,758) = 1._r8 / lu(k,758)
    2304   141174528 :          lu(k,759) = lu(k,759) * lu(k,758)
    2305   141174528 :          lu(k,760) = lu(k,760) * lu(k,758)
    2306   141174528 :          lu(k,761) = lu(k,761) * lu(k,758)
    2307   141174528 :          lu(k,762) = lu(k,762) * lu(k,758)
    2308   141174528 :          lu(k,763) = lu(k,763) * lu(k,758)
    2309   141174528 :          lu(k,772) = lu(k,772) - lu(k,759) * lu(k,768)
    2310   141174528 :          lu(k,773) = lu(k,773) - lu(k,760) * lu(k,768)
    2311   141174528 :          lu(k,775) = lu(k,775) - lu(k,761) * lu(k,768)
    2312   141174528 :          lu(k,777) = lu(k,777) - lu(k,762) * lu(k,768)
    2313   141174528 :          lu(k,778) = lu(k,778) - lu(k,763) * lu(k,768)
    2314   141174528 :          lu(k,796) = lu(k,796) - lu(k,759) * lu(k,792)
    2315   141174528 :          lu(k,797) = lu(k,797) - lu(k,760) * lu(k,792)
    2316   141174528 :          lu(k,800) = lu(k,800) - lu(k,761) * lu(k,792)
    2317   141174528 :          lu(k,802) = lu(k,802) - lu(k,762) * lu(k,792)
    2318   141174528 :          lu(k,803) = lu(k,803) - lu(k,763) * lu(k,792)
    2319   141174528 :          lu(k,1564) = - lu(k,759) * lu(k,1557)
    2320   141174528 :          lu(k,1565) = - lu(k,760) * lu(k,1557)
    2321   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,761) * lu(k,1557)
    2322   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,762) * lu(k,1557)
    2323   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,763) * lu(k,1557)
    2324   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,759) * lu(k,1766)
    2325   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,760) * lu(k,1766)
    2326   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,761) * lu(k,1766)
    2327   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,762) * lu(k,1766)
    2328   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,763) * lu(k,1766)
    2329   141174528 :          lu(k,1919) = lu(k,1919) - lu(k,759) * lu(k,1906)
    2330   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,760) * lu(k,1906)
    2331   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,761) * lu(k,1906)
    2332   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,762) * lu(k,1906)
    2333   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,763) * lu(k,1906)
    2334   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,759) * lu(k,2256)
    2335   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,760) * lu(k,2256)
    2336   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,761) * lu(k,2256)
    2337   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,762) * lu(k,2256)
    2338   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,763) * lu(k,2256)
    2339   141174528 :          lu(k,769) = 1._r8 / lu(k,769)
    2340   141174528 :          lu(k,770) = lu(k,770) * lu(k,769)
    2341   141174528 :          lu(k,771) = lu(k,771) * lu(k,769)
    2342   141174528 :          lu(k,772) = lu(k,772) * lu(k,769)
    2343   141174528 :          lu(k,773) = lu(k,773) * lu(k,769)
    2344   141174528 :          lu(k,774) = lu(k,774) * lu(k,769)
    2345   141174528 :          lu(k,775) = lu(k,775) * lu(k,769)
    2346   141174528 :          lu(k,776) = lu(k,776) * lu(k,769)
    2347   141174528 :          lu(k,777) = lu(k,777) * lu(k,769)
    2348   141174528 :          lu(k,778) = lu(k,778) * lu(k,769)
    2349   141174528 :          lu(k,1770) = lu(k,1770) - lu(k,770) * lu(k,1767)
    2350   141174528 :          lu(k,1782) = lu(k,1782) - lu(k,771) * lu(k,1767)
    2351   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,772) * lu(k,1767)
    2352   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,773) * lu(k,1767)
    2353   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,774) * lu(k,1767)
    2354   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,775) * lu(k,1767)
    2355   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,776) * lu(k,1767)
    2356   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,777) * lu(k,1767)
    2357   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,778) * lu(k,1767)
    2358   141174528 :          lu(k,1909) = lu(k,1909) - lu(k,770) * lu(k,1907)
    2359   141174528 :          lu(k,1915) = lu(k,1915) - lu(k,771) * lu(k,1907)
    2360   141174528 :          lu(k,1919) = lu(k,1919) - lu(k,772) * lu(k,1907)
    2361   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,773) * lu(k,1907)
    2362   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,774) * lu(k,1907)
    2363   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,775) * lu(k,1907)
    2364   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,776) * lu(k,1907)
    2365   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,777) * lu(k,1907)
    2366   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,778) * lu(k,1907)
    2367   141174528 :          lu(k,2260) = lu(k,2260) - lu(k,770) * lu(k,2257)
    2368   141174528 :          lu(k,2269) = lu(k,2269) - lu(k,771) * lu(k,2257)
    2369   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,772) * lu(k,2257)
    2370   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,773) * lu(k,2257)
    2371   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,774) * lu(k,2257)
    2372   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,775) * lu(k,2257)
    2373   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,776) * lu(k,2257)
    2374   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,777) * lu(k,2257)
    2375   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,778) * lu(k,2257)
    2376   141174528 :          lu(k,780) = 1._r8 / lu(k,780)
    2377   141174528 :          lu(k,781) = lu(k,781) * lu(k,780)
    2378   141174528 :          lu(k,782) = lu(k,782) * lu(k,780)
    2379   141174528 :          lu(k,783) = lu(k,783) * lu(k,780)
    2380   141174528 :          lu(k,784) = lu(k,784) * lu(k,780)
    2381   141174528 :          lu(k,785) = lu(k,785) * lu(k,780)
    2382   141174528 :          lu(k,786) = lu(k,786) * lu(k,780)
    2383   141174528 :          lu(k,1236) = - lu(k,781) * lu(k,1230)
    2384   141174528 :          lu(k,1238) = - lu(k,782) * lu(k,1230)
    2385   141174528 :          lu(k,1240) = - lu(k,783) * lu(k,1230)
    2386   141174528 :          lu(k,1243) = lu(k,1243) - lu(k,784) * lu(k,1230)
    2387   141174528 :          lu(k,1246) = lu(k,1246) - lu(k,785) * lu(k,1230)
    2388   141174528 :          lu(k,1250) = lu(k,1250) - lu(k,786) * lu(k,1230)
    2389   141174528 :          lu(k,1298) = - lu(k,781) * lu(k,1290)
    2390   141174528 :          lu(k,1299) = lu(k,1299) - lu(k,782) * lu(k,1290)
    2391   141174528 :          lu(k,1303) = lu(k,1303) - lu(k,783) * lu(k,1290)
    2392   141174528 :          lu(k,1307) = lu(k,1307) - lu(k,784) * lu(k,1290)
    2393   141174528 :          lu(k,1310) = lu(k,1310) - lu(k,785) * lu(k,1290)
    2394   141174528 :          lu(k,1315) = lu(k,1315) - lu(k,786) * lu(k,1290)
    2395   141174528 :          lu(k,1331) = lu(k,1331) - lu(k,781) * lu(k,1321)
    2396   141174528 :          lu(k,1332) = - lu(k,782) * lu(k,1321)
    2397   141174528 :          lu(k,1336) = - lu(k,783) * lu(k,1321)
    2398   141174528 :          lu(k,1340) = lu(k,1340) - lu(k,784) * lu(k,1321)
    2399   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,785) * lu(k,1321)
    2400   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,786) * lu(k,1321)
    2401   141174528 :          lu(k,1803) = lu(k,1803) - lu(k,781) * lu(k,1768)
    2402   141174528 :          lu(k,1805) = lu(k,1805) - lu(k,782) * lu(k,1768)
    2403   141174528 :          lu(k,1811) = lu(k,1811) - lu(k,783) * lu(k,1768)
    2404   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,784) * lu(k,1768)
    2405   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,785) * lu(k,1768)
    2406   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,786) * lu(k,1768)
    2407   141174528 :          lu(k,2284) = lu(k,2284) - lu(k,781) * lu(k,2258)
    2408   141174528 :          lu(k,2286) = - lu(k,782) * lu(k,2258)
    2409   141174528 :          lu(k,2291) = - lu(k,783) * lu(k,2258)
    2410   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,784) * lu(k,2258)
    2411   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,785) * lu(k,2258)
    2412   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,786) * lu(k,2258)
    2413   141174528 :          lu(k,793) = 1._r8 / lu(k,793)
    2414   141174528 :          lu(k,794) = lu(k,794) * lu(k,793)
    2415   141174528 :          lu(k,795) = lu(k,795) * lu(k,793)
    2416   141174528 :          lu(k,796) = lu(k,796) * lu(k,793)
    2417   141174528 :          lu(k,797) = lu(k,797) * lu(k,793)
    2418   141174528 :          lu(k,798) = lu(k,798) * lu(k,793)
    2419   141174528 :          lu(k,799) = lu(k,799) * lu(k,793)
    2420   141174528 :          lu(k,800) = lu(k,800) * lu(k,793)
    2421   141174528 :          lu(k,801) = lu(k,801) * lu(k,793)
    2422   141174528 :          lu(k,802) = lu(k,802) * lu(k,793)
    2423   141174528 :          lu(k,803) = lu(k,803) * lu(k,793)
    2424   141174528 :          lu(k,1770) = lu(k,1770) - lu(k,794) * lu(k,1769)
    2425   141174528 :          lu(k,1782) = lu(k,1782) - lu(k,795) * lu(k,1769)
    2426   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,796) * lu(k,1769)
    2427   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,797) * lu(k,1769)
    2428   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,798) * lu(k,1769)
    2429   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,799) * lu(k,1769)
    2430   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,800) * lu(k,1769)
    2431   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,801) * lu(k,1769)
    2432   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,802) * lu(k,1769)
    2433   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,803) * lu(k,1769)
    2434   141174528 :          lu(k,1909) = lu(k,1909) - lu(k,794) * lu(k,1908)
    2435   141174528 :          lu(k,1915) = lu(k,1915) - lu(k,795) * lu(k,1908)
    2436   141174528 :          lu(k,1919) = lu(k,1919) - lu(k,796) * lu(k,1908)
    2437   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,797) * lu(k,1908)
    2438   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,798) * lu(k,1908)
    2439   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,799) * lu(k,1908)
    2440   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,800) * lu(k,1908)
    2441   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,801) * lu(k,1908)
    2442   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,802) * lu(k,1908)
    2443   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,803) * lu(k,1908)
    2444   141174528 :          lu(k,2260) = lu(k,2260) - lu(k,794) * lu(k,2259)
    2445   141174528 :          lu(k,2269) = lu(k,2269) - lu(k,795) * lu(k,2259)
    2446   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,796) * lu(k,2259)
    2447   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,797) * lu(k,2259)
    2448   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,798) * lu(k,2259)
    2449   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,799) * lu(k,2259)
    2450   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,800) * lu(k,2259)
    2451   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,801) * lu(k,2259)
    2452   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,802) * lu(k,2259)
    2453   145586232 :          lu(k,2311) = lu(k,2311) - lu(k,803) * lu(k,2259)
    2454             :       end do
    2455     4411704 :       end subroutine lu_fac16
    2456     4411704 :       subroutine lu_fac17( avec_len, lu )
    2457             :       use chem_mods, only : nzcnt
    2458             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2459             :       implicit none
    2460             : !-----------------------------------------------------------------------
    2461             : ! ... dummy args
    2462             : !-----------------------------------------------------------------------
    2463             :       integer, intent(in) :: avec_len
    2464             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2465             : !-----------------------------------------------------------------------
    2466             : ! ... local variables
    2467             : !-----------------------------------------------------------------------
    2468             :       integer :: k
    2469   145586232 :       do k = 1,avec_len
    2470   141174528 :          lu(k,804) = 1._r8 / lu(k,804)
    2471   141174528 :          lu(k,805) = lu(k,805) * lu(k,804)
    2472   141174528 :          lu(k,806) = lu(k,806) * lu(k,804)
    2473   141174528 :          lu(k,807) = lu(k,807) * lu(k,804)
    2474   141174528 :          lu(k,808) = lu(k,808) * lu(k,804)
    2475   141174528 :          lu(k,809) = lu(k,809) * lu(k,804)
    2476   141174528 :          lu(k,810) = lu(k,810) * lu(k,804)
    2477   141174528 :          lu(k,811) = lu(k,811) * lu(k,804)
    2478   141174528 :          lu(k,1565) = lu(k,1565) - lu(k,805) * lu(k,1558)
    2479   141174528 :          lu(k,1567) = - lu(k,806) * lu(k,1558)
    2480   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,807) * lu(k,1558)
    2481   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,808) * lu(k,1558)
    2482   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,809) * lu(k,1558)
    2483   141174528 :          lu(k,1582) = lu(k,1582) - lu(k,810) * lu(k,1558)
    2484   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,811) * lu(k,1558)
    2485   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,805) * lu(k,1770)
    2486   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,806) * lu(k,1770)
    2487   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,807) * lu(k,1770)
    2488   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,808) * lu(k,1770)
    2489   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,809) * lu(k,1770)
    2490   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,810) * lu(k,1770)
    2491   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,811) * lu(k,1770)
    2492   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,805) * lu(k,1909)
    2493   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,806) * lu(k,1909)
    2494   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,807) * lu(k,1909)
    2495   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,808) * lu(k,1909)
    2496   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,809) * lu(k,1909)
    2497   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,810) * lu(k,1909)
    2498   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,811) * lu(k,1909)
    2499   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,805) * lu(k,2260)
    2500   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,806) * lu(k,2260)
    2501   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,807) * lu(k,2260)
    2502   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,808) * lu(k,2260)
    2503   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,809) * lu(k,2260)
    2504   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,810) * lu(k,2260)
    2505   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,811) * lu(k,2260)
    2506   141174528 :          lu(k,813) = 1._r8 / lu(k,813)
    2507   141174528 :          lu(k,814) = lu(k,814) * lu(k,813)
    2508   141174528 :          lu(k,815) = lu(k,815) * lu(k,813)
    2509   141174528 :          lu(k,816) = lu(k,816) * lu(k,813)
    2510   141174528 :          lu(k,817) = lu(k,817) * lu(k,813)
    2511   141174528 :          lu(k,818) = lu(k,818) * lu(k,813)
    2512   141174528 :          lu(k,819) = lu(k,819) * lu(k,813)
    2513   141174528 :          lu(k,820) = lu(k,820) * lu(k,813)
    2514   141174528 :          lu(k,821) = lu(k,821) * lu(k,813)
    2515   141174528 :          lu(k,1049) = lu(k,1049) - lu(k,814) * lu(k,1044)
    2516   141174528 :          lu(k,1051) = - lu(k,815) * lu(k,1044)
    2517   141174528 :          lu(k,1055) = lu(k,1055) - lu(k,816) * lu(k,1044)
    2518   141174528 :          lu(k,1056) = - lu(k,817) * lu(k,1044)
    2519   141174528 :          lu(k,1058) = lu(k,1058) - lu(k,818) * lu(k,1044)
    2520   141174528 :          lu(k,1059) = - lu(k,819) * lu(k,1044)
    2521   141174528 :          lu(k,1063) = lu(k,1063) - lu(k,820) * lu(k,1044)
    2522   141174528 :          lu(k,1064) = lu(k,1064) - lu(k,821) * lu(k,1044)
    2523   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,814) * lu(k,1771)
    2524   141174528 :          lu(k,1799) = lu(k,1799) - lu(k,815) * lu(k,1771)
    2525   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,816) * lu(k,1771)
    2526   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,817) * lu(k,1771)
    2527   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,818) * lu(k,1771)
    2528   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,819) * lu(k,1771)
    2529   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,820) * lu(k,1771)
    2530   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,821) * lu(k,1771)
    2531   141174528 :          lu(k,1922) = lu(k,1922) - lu(k,814) * lu(k,1910)
    2532   141174528 :          lu(k,1928) = lu(k,1928) - lu(k,815) * lu(k,1910)
    2533   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,816) * lu(k,1910)
    2534   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,817) * lu(k,1910)
    2535   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,818) * lu(k,1910)
    2536   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,819) * lu(k,1910)
    2537   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,820) * lu(k,1910)
    2538   141174528 :          lu(k,1960) = - lu(k,821) * lu(k,1910)
    2539   141174528 :          lu(k,2275) = lu(k,2275) - lu(k,814) * lu(k,2261)
    2540   141174528 :          lu(k,2280) = lu(k,2280) - lu(k,815) * lu(k,2261)
    2541   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,816) * lu(k,2261)
    2542   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,817) * lu(k,2261)
    2543   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,818) * lu(k,2261)
    2544   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,819) * lu(k,2261)
    2545   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,820) * lu(k,2261)
    2546   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,821) * lu(k,2261)
    2547   141174528 :          lu(k,823) = 1._r8 / lu(k,823)
    2548   141174528 :          lu(k,824) = lu(k,824) * lu(k,823)
    2549   141174528 :          lu(k,825) = lu(k,825) * lu(k,823)
    2550   141174528 :          lu(k,826) = lu(k,826) * lu(k,823)
    2551   141174528 :          lu(k,827) = lu(k,827) * lu(k,823)
    2552   141174528 :          lu(k,828) = lu(k,828) * lu(k,823)
    2553   141174528 :          lu(k,829) = lu(k,829) * lu(k,823)
    2554   141174528 :          lu(k,830) = lu(k,830) * lu(k,823)
    2555   141174528 :          lu(k,1571) = lu(k,1571) - lu(k,824) * lu(k,1559)
    2556   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,825) * lu(k,1559)
    2557   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,826) * lu(k,1559)
    2558   141174528 :          lu(k,1580) = lu(k,1580) - lu(k,827) * lu(k,1559)
    2559   141174528 :          lu(k,1583) = - lu(k,828) * lu(k,1559)
    2560   141174528 :          lu(k,1585) = - lu(k,829) * lu(k,1559)
    2561   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,830) * lu(k,1559)
    2562   141174528 :          lu(k,1602) = lu(k,1602) - lu(k,824) * lu(k,1594)
    2563   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,825) * lu(k,1594)
    2564   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,826) * lu(k,1594)
    2565   141174528 :          lu(k,1611) = lu(k,1611) - lu(k,827) * lu(k,1594)
    2566   141174528 :          lu(k,1614) = lu(k,1614) - lu(k,828) * lu(k,1594)
    2567   141174528 :          lu(k,1616) = lu(k,1616) - lu(k,829) * lu(k,1594)
    2568   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,830) * lu(k,1594)
    2569   141174528 :          lu(k,1840) = lu(k,1840) - lu(k,824) * lu(k,1837)
    2570   141174528 :          lu(k,1845) = lu(k,1845) - lu(k,825) * lu(k,1837)
    2571   141174528 :          lu(k,1847) = lu(k,1847) - lu(k,826) * lu(k,1837)
    2572   141174528 :          lu(k,1848) = lu(k,1848) - lu(k,827) * lu(k,1837)
    2573   141174528 :          lu(k,1851) = - lu(k,828) * lu(k,1837)
    2574   141174528 :          lu(k,1853) = lu(k,1853) - lu(k,829) * lu(k,1837)
    2575   141174528 :          lu(k,1857) = - lu(k,830) * lu(k,1837)
    2576   141174528 :          lu(k,2018) = lu(k,2018) - lu(k,824) * lu(k,2015)
    2577   141174528 :          lu(k,2023) = lu(k,2023) - lu(k,825) * lu(k,2015)
    2578   141174528 :          lu(k,2025) = lu(k,2025) - lu(k,826) * lu(k,2015)
    2579   141174528 :          lu(k,2026) = - lu(k,827) * lu(k,2015)
    2580   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,828) * lu(k,2015)
    2581   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,829) * lu(k,2015)
    2582   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,830) * lu(k,2015)
    2583   141174528 :          lu(k,2295) = lu(k,2295) - lu(k,824) * lu(k,2262)
    2584   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,825) * lu(k,2262)
    2585   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,826) * lu(k,2262)
    2586   141174528 :          lu(k,2304) = lu(k,2304) - lu(k,827) * lu(k,2262)
    2587   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,828) * lu(k,2262)
    2588   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,829) * lu(k,2262)
    2589   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,830) * lu(k,2262)
    2590   141174528 :          lu(k,831) = 1._r8 / lu(k,831)
    2591   141174528 :          lu(k,832) = lu(k,832) * lu(k,831)
    2592   141174528 :          lu(k,833) = lu(k,833) * lu(k,831)
    2593   141174528 :          lu(k,834) = lu(k,834) * lu(k,831)
    2594   141174528 :          lu(k,867) = lu(k,867) - lu(k,832) * lu(k,864)
    2595   141174528 :          lu(k,869) = lu(k,869) - lu(k,833) * lu(k,864)
    2596   141174528 :          lu(k,872) = lu(k,872) - lu(k,834) * lu(k,864)
    2597   141174528 :          lu(k,1107) = lu(k,1107) - lu(k,832) * lu(k,1100)
    2598   141174528 :          lu(k,1109) = lu(k,1109) - lu(k,833) * lu(k,1100)
    2599   141174528 :          lu(k,1113) = lu(k,1113) - lu(k,834) * lu(k,1100)
    2600   141174528 :          lu(k,1167) = lu(k,1167) - lu(k,832) * lu(k,1157)
    2601   141174528 :          lu(k,1170) = lu(k,1170) - lu(k,833) * lu(k,1157)
    2602   141174528 :          lu(k,1173) = lu(k,1173) - lu(k,834) * lu(k,1157)
    2603   141174528 :          lu(k,1188) = lu(k,1188) - lu(k,832) * lu(k,1177)
    2604   141174528 :          lu(k,1191) = lu(k,1191) - lu(k,833) * lu(k,1177)
    2605   141174528 :          lu(k,1195) = lu(k,1195) - lu(k,834) * lu(k,1177)
    2606   141174528 :          lu(k,1203) = lu(k,1203) - lu(k,832) * lu(k,1198)
    2607   141174528 :          lu(k,1205) = lu(k,1205) - lu(k,833) * lu(k,1198)
    2608   141174528 :          lu(k,1208) = lu(k,1208) - lu(k,834) * lu(k,1198)
    2609   141174528 :          lu(k,1220) = lu(k,1220) - lu(k,832) * lu(k,1211)
    2610   141174528 :          lu(k,1223) = lu(k,1223) - lu(k,833) * lu(k,1211)
    2611   141174528 :          lu(k,1227) = lu(k,1227) - lu(k,834) * lu(k,1211)
    2612   141174528 :          lu(k,1243) = lu(k,1243) - lu(k,832) * lu(k,1231)
    2613   141174528 :          lu(k,1246) = lu(k,1246) - lu(k,833) * lu(k,1231)
    2614   141174528 :          lu(k,1250) = lu(k,1250) - lu(k,834) * lu(k,1231)
    2615   141174528 :          lu(k,1307) = lu(k,1307) - lu(k,832) * lu(k,1291)
    2616   141174528 :          lu(k,1310) = lu(k,1310) - lu(k,833) * lu(k,1291)
    2617   141174528 :          lu(k,1315) = lu(k,1315) - lu(k,834) * lu(k,1291)
    2618   141174528 :          lu(k,1340) = lu(k,1340) - lu(k,832) * lu(k,1322)
    2619   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,833) * lu(k,1322)
    2620   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,834) * lu(k,1322)
    2621   141174528 :          lu(k,1362) = lu(k,1362) - lu(k,832) * lu(k,1351)
    2622   141174528 :          lu(k,1365) = lu(k,1365) - lu(k,833) * lu(k,1351)
    2623   141174528 :          lu(k,1369) = lu(k,1369) - lu(k,834) * lu(k,1351)
    2624   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,832) * lu(k,1772)
    2625   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,833) * lu(k,1772)
    2626   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,834) * lu(k,1772)
    2627   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,832) * lu(k,1967)
    2628   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,833) * lu(k,1967)
    2629   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,834) * lu(k,1967)
    2630   141174528 :          lu(k,836) = 1._r8 / lu(k,836)
    2631   141174528 :          lu(k,837) = lu(k,837) * lu(k,836)
    2632   141174528 :          lu(k,838) = lu(k,838) * lu(k,836)
    2633   141174528 :          lu(k,839) = lu(k,839) * lu(k,836)
    2634   141174528 :          lu(k,840) = lu(k,840) * lu(k,836)
    2635   141174528 :          lu(k,841) = lu(k,841) * lu(k,836)
    2636   141174528 :          lu(k,842) = lu(k,842) * lu(k,836)
    2637   141174528 :          lu(k,843) = lu(k,843) * lu(k,836)
    2638   141174528 :          lu(k,844) = lu(k,844) * lu(k,836)
    2639   141174528 :          lu(k,845) = lu(k,845) * lu(k,836)
    2640   141174528 :          lu(k,1786) = lu(k,1786) - lu(k,837) * lu(k,1773)
    2641   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,838) * lu(k,1773)
    2642   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,839) * lu(k,1773)
    2643   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,840) * lu(k,1773)
    2644   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,841) * lu(k,1773)
    2645   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,842) * lu(k,1773)
    2646   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,843) * lu(k,1773)
    2647   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,844) * lu(k,1773)
    2648   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,845) * lu(k,1773)
    2649   141174528 :          lu(k,1917) = lu(k,1917) - lu(k,837) * lu(k,1911)
    2650   141174528 :          lu(k,1922) = lu(k,1922) - lu(k,838) * lu(k,1911)
    2651   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,839) * lu(k,1911)
    2652   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,840) * lu(k,1911)
    2653   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,841) * lu(k,1911)
    2654   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,842) * lu(k,1911)
    2655   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,843) * lu(k,1911)
    2656   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,844) * lu(k,1911)
    2657   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,845) * lu(k,1911)
    2658   141174528 :          lu(k,1972) = lu(k,1972) - lu(k,837) * lu(k,1968)
    2659   141174528 :          lu(k,1976) = lu(k,1976) - lu(k,838) * lu(k,1968)
    2660   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,839) * lu(k,1968)
    2661   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,840) * lu(k,1968)
    2662   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,841) * lu(k,1968)
    2663   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,842) * lu(k,1968)
    2664   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,843) * lu(k,1968)
    2665   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,844) * lu(k,1968)
    2666   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,845) * lu(k,1968)
    2667   141174528 :          lu(k,2271) = lu(k,2271) - lu(k,837) * lu(k,2263)
    2668   141174528 :          lu(k,2275) = lu(k,2275) - lu(k,838) * lu(k,2263)
    2669   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,839) * lu(k,2263)
    2670   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,840) * lu(k,2263)
    2671   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,841) * lu(k,2263)
    2672   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,842) * lu(k,2263)
    2673   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,843) * lu(k,2263)
    2674   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,844) * lu(k,2263)
    2675   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,845) * lu(k,2263)
    2676   141174528 :          lu(k,846) = 1._r8 / lu(k,846)
    2677   141174528 :          lu(k,847) = lu(k,847) * lu(k,846)
    2678   141174528 :          lu(k,848) = lu(k,848) * lu(k,846)
    2679   141174528 :          lu(k,849) = lu(k,849) * lu(k,846)
    2680   141174528 :          lu(k,850) = lu(k,850) * lu(k,846)
    2681   141174528 :          lu(k,851) = lu(k,851) * lu(k,846)
    2682   141174528 :          lu(k,852) = lu(k,852) * lu(k,846)
    2683   141174528 :          lu(k,853) = lu(k,853) * lu(k,846)
    2684   141174528 :          lu(k,1462) = lu(k,1462) - lu(k,847) * lu(k,1460)
    2685   141174528 :          lu(k,1463) = - lu(k,848) * lu(k,1460)
    2686   141174528 :          lu(k,1465) = - lu(k,849) * lu(k,1460)
    2687   141174528 :          lu(k,1466) = - lu(k,850) * lu(k,1460)
    2688   141174528 :          lu(k,1467) = - lu(k,851) * lu(k,1460)
    2689   141174528 :          lu(k,1468) = lu(k,1468) - lu(k,852) * lu(k,1460)
    2690   141174528 :          lu(k,1471) = - lu(k,853) * lu(k,1460)
    2691   141174528 :          lu(k,1528) = lu(k,1528) - lu(k,847) * lu(k,1524)
    2692   141174528 :          lu(k,1531) = lu(k,1531) - lu(k,848) * lu(k,1524)
    2693   141174528 :          lu(k,1534) = lu(k,1534) - lu(k,849) * lu(k,1524)
    2694   141174528 :          lu(k,1535) = - lu(k,850) * lu(k,1524)
    2695   141174528 :          lu(k,1536) = lu(k,1536) - lu(k,851) * lu(k,1524)
    2696   141174528 :          lu(k,1537) = - lu(k,852) * lu(k,1524)
    2697   141174528 :          lu(k,1545) = lu(k,1545) - lu(k,853) * lu(k,1524)
    2698   141174528 :          lu(k,1602) = lu(k,1602) - lu(k,847) * lu(k,1595)
    2699   141174528 :          lu(k,1605) = lu(k,1605) - lu(k,848) * lu(k,1595)
    2700   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,849) * lu(k,1595)
    2701   141174528 :          lu(k,1609) = - lu(k,850) * lu(k,1595)
    2702   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,851) * lu(k,1595)
    2703   141174528 :          lu(k,1611) = lu(k,1611) - lu(k,852) * lu(k,1595)
    2704   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,853) * lu(k,1595)
    2705   141174528 :          lu(k,1643) = lu(k,1643) - lu(k,847) * lu(k,1640)
    2706   141174528 :          lu(k,1646) = lu(k,1646) - lu(k,848) * lu(k,1640)
    2707   141174528 :          lu(k,1649) = lu(k,1649) - lu(k,849) * lu(k,1640)
    2708   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,850) * lu(k,1640)
    2709   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,851) * lu(k,1640)
    2710   141174528 :          lu(k,1652) = lu(k,1652) - lu(k,852) * lu(k,1640)
    2711   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,853) * lu(k,1640)
    2712   141174528 :          lu(k,1815) = lu(k,1815) - lu(k,847) * lu(k,1774)
    2713   141174528 :          lu(k,1818) = lu(k,1818) - lu(k,848) * lu(k,1774)
    2714   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,849) * lu(k,1774)
    2715   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,850) * lu(k,1774)
    2716   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,851) * lu(k,1774)
    2717   141174528 :          lu(k,1824) = lu(k,1824) - lu(k,852) * lu(k,1774)
    2718   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,853) * lu(k,1774)
    2719   141174528 :          lu(k,2295) = lu(k,2295) - lu(k,847) * lu(k,2264)
    2720   141174528 :          lu(k,2298) = lu(k,2298) - lu(k,848) * lu(k,2264)
    2721   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,849) * lu(k,2264)
    2722   141174528 :          lu(k,2302) = - lu(k,850) * lu(k,2264)
    2723   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,851) * lu(k,2264)
    2724   141174528 :          lu(k,2304) = lu(k,2304) - lu(k,852) * lu(k,2264)
    2725   145586232 :          lu(k,2313) = lu(k,2313) - lu(k,853) * lu(k,2264)
    2726             :       end do
    2727     4411704 :       end subroutine lu_fac17
    2728     4411704 :       subroutine lu_fac18( avec_len, lu )
    2729             :       use chem_mods, only : nzcnt
    2730             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2731             :       implicit none
    2732             : !-----------------------------------------------------------------------
    2733             : ! ... dummy args
    2734             : !-----------------------------------------------------------------------
    2735             :       integer, intent(in) :: avec_len
    2736             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2737             : !-----------------------------------------------------------------------
    2738             : ! ... local variables
    2739             : !-----------------------------------------------------------------------
    2740             :       integer :: k
    2741   145586232 :       do k = 1,avec_len
    2742   141174528 :          lu(k,855) = 1._r8 / lu(k,855)
    2743   141174528 :          lu(k,856) = lu(k,856) * lu(k,855)
    2744   141174528 :          lu(k,857) = lu(k,857) * lu(k,855)
    2745   141174528 :          lu(k,858) = lu(k,858) * lu(k,855)
    2746   141174528 :          lu(k,859) = lu(k,859) * lu(k,855)
    2747   141174528 :          lu(k,860) = lu(k,860) * lu(k,855)
    2748   141174528 :          lu(k,861) = lu(k,861) * lu(k,855)
    2749   141174528 :          lu(k,975) = lu(k,975) - lu(k,856) * lu(k,971)
    2750   141174528 :          lu(k,976) = lu(k,976) - lu(k,857) * lu(k,971)
    2751   141174528 :          lu(k,977) = lu(k,977) - lu(k,858) * lu(k,971)
    2752   141174528 :          lu(k,979) = lu(k,979) - lu(k,859) * lu(k,971)
    2753   141174528 :          lu(k,980) = lu(k,980) - lu(k,860) * lu(k,971)
    2754   141174528 :          lu(k,981) = - lu(k,861) * lu(k,971)
    2755   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,856) * lu(k,1596)
    2756   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,857) * lu(k,1596)
    2757   141174528 :          lu(k,1614) = lu(k,1614) - lu(k,858) * lu(k,1596)
    2758   141174528 :          lu(k,1616) = lu(k,1616) - lu(k,859) * lu(k,1596)
    2759   141174528 :          lu(k,1619) = lu(k,1619) - lu(k,860) * lu(k,1596)
    2760   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,861) * lu(k,1596)
    2761   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,856) * lu(k,1775)
    2762   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,857) * lu(k,1775)
    2763   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,858) * lu(k,1775)
    2764   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,859) * lu(k,1775)
    2765   141174528 :          lu(k,1832) = lu(k,1832) - lu(k,860) * lu(k,1775)
    2766   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,861) * lu(k,1775)
    2767   141174528 :          lu(k,2023) = lu(k,2023) - lu(k,856) * lu(k,2016)
    2768   141174528 :          lu(k,2025) = lu(k,2025) - lu(k,857) * lu(k,2016)
    2769   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,858) * lu(k,2016)
    2770   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,859) * lu(k,2016)
    2771   141174528 :          lu(k,2034) = lu(k,2034) - lu(k,860) * lu(k,2016)
    2772   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,861) * lu(k,2016)
    2773   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,856) * lu(k,2105)
    2774   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,857) * lu(k,2105)
    2775   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,858) * lu(k,2105)
    2776   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,859) * lu(k,2105)
    2777   141174528 :          lu(k,2132) = lu(k,2132) - lu(k,860) * lu(k,2105)
    2778   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,861) * lu(k,2105)
    2779   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,856) * lu(k,2265)
    2780   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,857) * lu(k,2265)
    2781   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,858) * lu(k,2265)
    2782   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,859) * lu(k,2265)
    2783   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,860) * lu(k,2265)
    2784   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,861) * lu(k,2265)
    2785   141174528 :          lu(k,2327) = lu(k,2327) - lu(k,856) * lu(k,2318)
    2786   141174528 :          lu(k,2329) = lu(k,2329) - lu(k,857) * lu(k,2318)
    2787   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,858) * lu(k,2318)
    2788   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,859) * lu(k,2318)
    2789   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,860) * lu(k,2318)
    2790   141174528 :          lu(k,2339) = - lu(k,861) * lu(k,2318)
    2791   141174528 :          lu(k,865) = 1._r8 / lu(k,865)
    2792   141174528 :          lu(k,866) = lu(k,866) * lu(k,865)
    2793   141174528 :          lu(k,867) = lu(k,867) * lu(k,865)
    2794   141174528 :          lu(k,868) = lu(k,868) * lu(k,865)
    2795   141174528 :          lu(k,869) = lu(k,869) * lu(k,865)
    2796   141174528 :          lu(k,870) = lu(k,870) * lu(k,865)
    2797   141174528 :          lu(k,871) = lu(k,871) * lu(k,865)
    2798   141174528 :          lu(k,872) = lu(k,872) * lu(k,865)
    2799   141174528 :          lu(k,962) = lu(k,962) - lu(k,866) * lu(k,959)
    2800   141174528 :          lu(k,964) = lu(k,964) - lu(k,867) * lu(k,959)
    2801   141174528 :          lu(k,965) = lu(k,965) - lu(k,868) * lu(k,959)
    2802   141174528 :          lu(k,966) = lu(k,966) - lu(k,869) * lu(k,959)
    2803   141174528 :          lu(k,967) = lu(k,967) - lu(k,870) * lu(k,959)
    2804   141174528 :          lu(k,968) = - lu(k,871) * lu(k,959)
    2805   141174528 :          lu(k,969) = lu(k,969) - lu(k,872) * lu(k,959)
    2806   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,866) * lu(k,1776)
    2807   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,867) * lu(k,1776)
    2808   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,868) * lu(k,1776)
    2809   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,869) * lu(k,1776)
    2810   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,870) * lu(k,1776)
    2811   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,871) * lu(k,1776)
    2812   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,872) * lu(k,1776)
    2813   141174528 :          lu(k,1922) = lu(k,1922) - lu(k,866) * lu(k,1912)
    2814   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,867) * lu(k,1912)
    2815   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,868) * lu(k,1912)
    2816   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,869) * lu(k,1912)
    2817   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,870) * lu(k,1912)
    2818   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,871) * lu(k,1912)
    2819   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,872) * lu(k,1912)
    2820   141174528 :          lu(k,1976) = lu(k,1976) - lu(k,866) * lu(k,1969)
    2821   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,867) * lu(k,1969)
    2822   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,868) * lu(k,1969)
    2823   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,869) * lu(k,1969)
    2824   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,870) * lu(k,1969)
    2825   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,871) * lu(k,1969)
    2826   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,872) * lu(k,1969)
    2827   141174528 :          lu(k,2110) = - lu(k,866) * lu(k,2106)
    2828   141174528 :          lu(k,2119) = lu(k,2119) - lu(k,867) * lu(k,2106)
    2829   141174528 :          lu(k,2120) = lu(k,2120) - lu(k,868) * lu(k,2106)
    2830   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,869) * lu(k,2106)
    2831   141174528 :          lu(k,2125) = lu(k,2125) - lu(k,870) * lu(k,2106)
    2832   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,871) * lu(k,2106)
    2833   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,872) * lu(k,2106)
    2834   141174528 :          lu(k,2275) = lu(k,2275) - lu(k,866) * lu(k,2266)
    2835   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,867) * lu(k,2266)
    2836   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,868) * lu(k,2266)
    2837   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,869) * lu(k,2266)
    2838   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,870) * lu(k,2266)
    2839   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,871) * lu(k,2266)
    2840   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,872) * lu(k,2266)
    2841   141174528 :          lu(k,873) = 1._r8 / lu(k,873)
    2842   141174528 :          lu(k,874) = lu(k,874) * lu(k,873)
    2843   141174528 :          lu(k,875) = lu(k,875) * lu(k,873)
    2844   141174528 :          lu(k,944) = lu(k,944) - lu(k,874) * lu(k,935)
    2845   141174528 :          lu(k,950) = - lu(k,875) * lu(k,935)
    2846   141174528 :          lu(k,990) = - lu(k,874) * lu(k,988)
    2847   141174528 :          lu(k,991) = - lu(k,875) * lu(k,988)
    2848   141174528 :          lu(k,998) = lu(k,998) - lu(k,874) * lu(k,996)
    2849   141174528 :          lu(k,999) = - lu(k,875) * lu(k,996)
    2850   141174528 :          lu(k,1020) = lu(k,1020) - lu(k,874) * lu(k,1010)
    2851   141174528 :          lu(k,1027) = - lu(k,875) * lu(k,1010)
    2852   141174528 :          lu(k,1050) = lu(k,1050) - lu(k,874) * lu(k,1045)
    2853   141174528 :          lu(k,1057) = - lu(k,875) * lu(k,1045)
    2854   141174528 :          lu(k,1093) = lu(k,1093) - lu(k,874) * lu(k,1090)
    2855   141174528 :          lu(k,1095) = - lu(k,875) * lu(k,1090)
    2856   141174528 :          lu(k,1117) = lu(k,1117) - lu(k,874) * lu(k,1114)
    2857   141174528 :          lu(k,1121) = - lu(k,875) * lu(k,1114)
    2858   141174528 :          lu(k,1127) = lu(k,1127) - lu(k,874) * lu(k,1126)
    2859   141174528 :          lu(k,1128) = - lu(k,875) * lu(k,1126)
    2860   141174528 :          lu(k,1162) = lu(k,1162) - lu(k,874) * lu(k,1158)
    2861   141174528 :          lu(k,1169) = - lu(k,875) * lu(k,1158)
    2862   141174528 :          lu(k,1215) = lu(k,1215) - lu(k,874) * lu(k,1212)
    2863   141174528 :          lu(k,1222) = - lu(k,875) * lu(k,1212)
    2864   141174528 :          lu(k,1294) = - lu(k,874) * lu(k,1292)
    2865   141174528 :          lu(k,1309) = - lu(k,875) * lu(k,1292)
    2866   141174528 :          lu(k,1375) = lu(k,1375) - lu(k,874) * lu(k,1371)
    2867   141174528 :          lu(k,1386) = - lu(k,875) * lu(k,1371)
    2868   141174528 :          lu(k,1398) = - lu(k,874) * lu(k,1397)
    2869   141174528 :          lu(k,1406) = - lu(k,875) * lu(k,1397)
    2870   141174528 :          lu(k,1422) = lu(k,1422) - lu(k,874) * lu(k,1418)
    2871   141174528 :          lu(k,1438) = - lu(k,875) * lu(k,1418)
    2872   141174528 :          lu(k,1475) = lu(k,1475) - lu(k,874) * lu(k,1473)
    2873   141174528 :          lu(k,1481) = lu(k,1481) - lu(k,875) * lu(k,1473)
    2874   141174528 :          lu(k,1565) = lu(k,1565) - lu(k,874) * lu(k,1560)
    2875   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,875) * lu(k,1560)
    2876   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,874) * lu(k,1777)
    2877   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,875) * lu(k,1777)
    2878   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,874) * lu(k,1913)
    2879   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,875) * lu(k,1913)
    2880   141174528 :          lu(k,1980) = lu(k,1980) - lu(k,874) * lu(k,1970)
    2881   141174528 :          lu(k,2000) = - lu(k,875) * lu(k,1970)
    2882   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,874) * lu(k,2147)
    2883   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,875) * lu(k,2147)
    2884   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,874) * lu(k,2267)
    2885   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,875) * lu(k,2267)
    2886   141174528 :          lu(k,879) = 1._r8 / lu(k,879)
    2887   141174528 :          lu(k,880) = lu(k,880) * lu(k,879)
    2888   141174528 :          lu(k,881) = lu(k,881) * lu(k,879)
    2889   141174528 :          lu(k,882) = lu(k,882) * lu(k,879)
    2890   141174528 :          lu(k,883) = lu(k,883) * lu(k,879)
    2891   141174528 :          lu(k,884) = lu(k,884) * lu(k,879)
    2892   141174528 :          lu(k,885) = lu(k,885) * lu(k,879)
    2893   141174528 :          lu(k,886) = lu(k,886) * lu(k,879)
    2894   141174528 :          lu(k,887) = lu(k,887) * lu(k,879)
    2895   141174528 :          lu(k,888) = lu(k,888) * lu(k,879)
    2896   141174528 :          lu(k,889) = lu(k,889) * lu(k,879)
    2897   141174528 :          lu(k,890) = lu(k,890) * lu(k,879)
    2898   141174528 :          lu(k,891) = lu(k,891) * lu(k,879)
    2899   141174528 :          lu(k,892) = lu(k,892) * lu(k,879)
    2900   141174528 :          lu(k,893) = lu(k,893) * lu(k,879)
    2901   141174528 :          lu(k,894) = lu(k,894) * lu(k,879)
    2902   141174528 :          lu(k,1787) = lu(k,1787) - lu(k,880) * lu(k,1778)
    2903   141174528 :          lu(k,1791) = lu(k,1791) - lu(k,881) * lu(k,1778)
    2904   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,882) * lu(k,1778)
    2905   141174528 :          lu(k,1804) = - lu(k,883) * lu(k,1778)
    2906   141174528 :          lu(k,1805) = lu(k,1805) - lu(k,884) * lu(k,1778)
    2907   141174528 :          lu(k,1808) = lu(k,1808) - lu(k,885) * lu(k,1778)
    2908   141174528 :          lu(k,1809) = lu(k,1809) - lu(k,886) * lu(k,1778)
    2909   141174528 :          lu(k,1811) = lu(k,1811) - lu(k,887) * lu(k,1778)
    2910   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,888) * lu(k,1778)
    2911   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,889) * lu(k,1778)
    2912   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,890) * lu(k,1778)
    2913   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,891) * lu(k,1778)
    2914   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,892) * lu(k,1778)
    2915   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,893) * lu(k,1778)
    2916   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,894) * lu(k,1778)
    2917   141174528 :          lu(k,2049) = - lu(k,880) * lu(k,2043)
    2918   141174528 :          lu(k,2053) = lu(k,2053) - lu(k,881) * lu(k,2043)
    2919   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,882) * lu(k,2043)
    2920   141174528 :          lu(k,2066) = lu(k,2066) - lu(k,883) * lu(k,2043)
    2921   141174528 :          lu(k,2067) = lu(k,2067) - lu(k,884) * lu(k,2043)
    2922   141174528 :          lu(k,2070) = lu(k,2070) - lu(k,885) * lu(k,2043)
    2923   141174528 :          lu(k,2071) = lu(k,2071) - lu(k,886) * lu(k,2043)
    2924   141174528 :          lu(k,2073) = lu(k,2073) - lu(k,887) * lu(k,2043)
    2925   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,888) * lu(k,2043)
    2926   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,889) * lu(k,2043)
    2927   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,890) * lu(k,2043)
    2928   141174528 :          lu(k,2087) = - lu(k,891) * lu(k,2043)
    2929   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,892) * lu(k,2043)
    2930   141174528 :          lu(k,2091) = - lu(k,893) * lu(k,2043)
    2931   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,894) * lu(k,2043)
    2932   141174528 :          lu(k,2153) = lu(k,2153) - lu(k,880) * lu(k,2148)
    2933   141174528 :          lu(k,2157) = lu(k,2157) - lu(k,881) * lu(k,2148)
    2934   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,882) * lu(k,2148)
    2935   141174528 :          lu(k,2167) = - lu(k,883) * lu(k,2148)
    2936   141174528 :          lu(k,2168) = lu(k,2168) - lu(k,884) * lu(k,2148)
    2937   141174528 :          lu(k,2171) = - lu(k,885) * lu(k,2148)
    2938   141174528 :          lu(k,2172) = - lu(k,886) * lu(k,2148)
    2939   141174528 :          lu(k,2174) = lu(k,2174) - lu(k,887) * lu(k,2148)
    2940   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,888) * lu(k,2148)
    2941   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,889) * lu(k,2148)
    2942   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,890) * lu(k,2148)
    2943   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,891) * lu(k,2148)
    2944   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,892) * lu(k,2148)
    2945   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,893) * lu(k,2148)
    2946   145586232 :          lu(k,2193) = lu(k,2193) - lu(k,894) * lu(k,2148)
    2947             :       end do
    2948     4411704 :       end subroutine lu_fac18
    2949     4411704 :       subroutine lu_fac19( avec_len, lu )
    2950             :       use chem_mods, only : nzcnt
    2951             :       use shr_kind_mod, only : r8 => shr_kind_r8
    2952             :       implicit none
    2953             : !-----------------------------------------------------------------------
    2954             : ! ... dummy args
    2955             : !-----------------------------------------------------------------------
    2956             :       integer, intent(in) :: avec_len
    2957             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    2958             : !-----------------------------------------------------------------------
    2959             : ! ... local variables
    2960             : !-----------------------------------------------------------------------
    2961             :       integer :: k
    2962   145586232 :       do k = 1,avec_len
    2963   141174528 :          lu(k,895) = 1._r8 / lu(k,895)
    2964   141174528 :          lu(k,896) = lu(k,896) * lu(k,895)
    2965   141174528 :          lu(k,897) = lu(k,897) * lu(k,895)
    2966   141174528 :          lu(k,898) = lu(k,898) * lu(k,895)
    2967   141174528 :          lu(k,899) = lu(k,899) * lu(k,895)
    2968   141174528 :          lu(k,900) = lu(k,900) * lu(k,895)
    2969   141174528 :          lu(k,1052) = - lu(k,896) * lu(k,1046)
    2970   141174528 :          lu(k,1053) = - lu(k,897) * lu(k,1046)
    2971   141174528 :          lu(k,1055) = lu(k,1055) - lu(k,898) * lu(k,1046)
    2972   141174528 :          lu(k,1056) = lu(k,1056) - lu(k,899) * lu(k,1046)
    2973   141174528 :          lu(k,1058) = lu(k,1058) - lu(k,900) * lu(k,1046)
    2974   141174528 :          lu(k,1071) = - lu(k,896) * lu(k,1066)
    2975   141174528 :          lu(k,1072) = - lu(k,897) * lu(k,1066)
    2976   141174528 :          lu(k,1074) = - lu(k,898) * lu(k,1066)
    2977   141174528 :          lu(k,1075) = lu(k,1075) - lu(k,899) * lu(k,1066)
    2978   141174528 :          lu(k,1077) = lu(k,1077) - lu(k,900) * lu(k,1066)
    2979   141174528 :          lu(k,1239) = - lu(k,896) * lu(k,1232)
    2980   141174528 :          lu(k,1241) = lu(k,1241) - lu(k,897) * lu(k,1232)
    2981   141174528 :          lu(k,1243) = lu(k,1243) - lu(k,898) * lu(k,1232)
    2982   141174528 :          lu(k,1244) = lu(k,1244) - lu(k,899) * lu(k,1232)
    2983   141174528 :          lu(k,1246) = lu(k,1246) - lu(k,900) * lu(k,1232)
    2984   141174528 :          lu(k,1333) = lu(k,1333) - lu(k,896) * lu(k,1323)
    2985   141174528 :          lu(k,1338) = lu(k,1338) - lu(k,897) * lu(k,1323)
    2986   141174528 :          lu(k,1340) = lu(k,1340) - lu(k,898) * lu(k,1323)
    2987   141174528 :          lu(k,1341) = lu(k,1341) - lu(k,899) * lu(k,1323)
    2988   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,900) * lu(k,1323)
    2989   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,896) * lu(k,1779)
    2990   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,897) * lu(k,1779)
    2991   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,898) * lu(k,1779)
    2992   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,899) * lu(k,1779)
    2993   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,900) * lu(k,1779)
    2994   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,896) * lu(k,1914)
    2995   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,897) * lu(k,1914)
    2996   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,898) * lu(k,1914)
    2997   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,899) * lu(k,1914)
    2998   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,900) * lu(k,1914)
    2999   141174528 :          lu(k,1988) = lu(k,1988) - lu(k,896) * lu(k,1971)
    3000   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,897) * lu(k,1971)
    3001   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,898) * lu(k,1971)
    3002   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,899) * lu(k,1971)
    3003   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,900) * lu(k,1971)
    3004   141174528 :          lu(k,2068) = lu(k,2068) - lu(k,896) * lu(k,2044)
    3005   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,897) * lu(k,2044)
    3006   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,898) * lu(k,2044)
    3007   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,899) * lu(k,2044)
    3008   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,900) * lu(k,2044)
    3009   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,896) * lu(k,2268)
    3010   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,897) * lu(k,2268)
    3011   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,898) * lu(k,2268)
    3012   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,899) * lu(k,2268)
    3013   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,900) * lu(k,2268)
    3014   141174528 :          lu(k,902) = 1._r8 / lu(k,902)
    3015   141174528 :          lu(k,903) = lu(k,903) * lu(k,902)
    3016   141174528 :          lu(k,904) = lu(k,904) * lu(k,902)
    3017   141174528 :          lu(k,905) = lu(k,905) * lu(k,902)
    3018   141174528 :          lu(k,906) = lu(k,906) * lu(k,902)
    3019   141174528 :          lu(k,907) = lu(k,907) * lu(k,902)
    3020   141174528 :          lu(k,1276) = lu(k,1276) - lu(k,903) * lu(k,1275)
    3021   141174528 :          lu(k,1280) = lu(k,1280) - lu(k,904) * lu(k,1275)
    3022   141174528 :          lu(k,1281) = lu(k,1281) - lu(k,905) * lu(k,1275)
    3023   141174528 :          lu(k,1286) = - lu(k,906) * lu(k,1275)
    3024   141174528 :          lu(k,1288) = - lu(k,907) * lu(k,1275)
    3025   141174528 :          lu(k,1568) = lu(k,1568) - lu(k,903) * lu(k,1561)
    3026   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,904) * lu(k,1561)
    3027   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,905) * lu(k,1561)
    3028   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,906) * lu(k,1561)
    3029   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,907) * lu(k,1561)
    3030   141174528 :          lu(k,1600) = lu(k,1600) - lu(k,903) * lu(k,1597)
    3031   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,904) * lu(k,1597)
    3032   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,905) * lu(k,1597)
    3033   141174528 :          lu(k,1618) = lu(k,1618) - lu(k,906) * lu(k,1597)
    3034   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,907) * lu(k,1597)
    3035   141174528 :          lu(k,1807) = lu(k,1807) - lu(k,903) * lu(k,1780)
    3036   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,904) * lu(k,1780)
    3037   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,905) * lu(k,1780)
    3038   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,906) * lu(k,1780)
    3039   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,907) * lu(k,1780)
    3040   141174528 :          lu(k,1839) = lu(k,1839) - lu(k,903) * lu(k,1838)
    3041   141174528 :          lu(k,1845) = lu(k,1845) - lu(k,904) * lu(k,1838)
    3042   141174528 :          lu(k,1847) = lu(k,1847) - lu(k,905) * lu(k,1838)
    3043   141174528 :          lu(k,1855) = lu(k,1855) - lu(k,906) * lu(k,1838)
    3044   141174528 :          lu(k,1857) = lu(k,1857) - lu(k,907) * lu(k,1838)
    3045   141174528 :          lu(k,2069) = - lu(k,903) * lu(k,2045)
    3046   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,904) * lu(k,2045)
    3047   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,905) * lu(k,2045)
    3048   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,906) * lu(k,2045)
    3049   141174528 :          lu(k,2094) = - lu(k,907) * lu(k,2045)
    3050   141174528 :          lu(k,2170) = lu(k,2170) - lu(k,903) * lu(k,2149)
    3051   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,904) * lu(k,2149)
    3052   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,905) * lu(k,2149)
    3053   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,906) * lu(k,2149)
    3054   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,907) * lu(k,2149)
    3055   141174528 :          lu(k,2321) = lu(k,2321) - lu(k,903) * lu(k,2319)
    3056   141174528 :          lu(k,2327) = lu(k,2327) - lu(k,904) * lu(k,2319)
    3057   141174528 :          lu(k,2329) = lu(k,2329) - lu(k,905) * lu(k,2319)
    3058   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,906) * lu(k,2319)
    3059   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,907) * lu(k,2319)
    3060   141174528 :          lu(k,2345) = - lu(k,903) * lu(k,2343)
    3061   141174528 :          lu(k,2353) = lu(k,2353) - lu(k,904) * lu(k,2343)
    3062   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,905) * lu(k,2343)
    3063   141174528 :          lu(k,2363) = - lu(k,906) * lu(k,2343)
    3064   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,907) * lu(k,2343)
    3065   141174528 :          lu(k,909) = 1._r8 / lu(k,909)
    3066   141174528 :          lu(k,910) = lu(k,910) * lu(k,909)
    3067   141174528 :          lu(k,911) = lu(k,911) * lu(k,909)
    3068   141174528 :          lu(k,912) = lu(k,912) * lu(k,909)
    3069   141174528 :          lu(k,913) = lu(k,913) * lu(k,909)
    3070   141174528 :          lu(k,914) = lu(k,914) * lu(k,909)
    3071   141174528 :          lu(k,915) = lu(k,915) * lu(k,909)
    3072   141174528 :          lu(k,916) = lu(k,916) * lu(k,909)
    3073   141174528 :          lu(k,917) = lu(k,917) * lu(k,909)
    3074   141174528 :          lu(k,1448) = lu(k,1448) - lu(k,910) * lu(k,1447)
    3075   141174528 :          lu(k,1449) = - lu(k,911) * lu(k,1447)
    3076   141174528 :          lu(k,1450) = - lu(k,912) * lu(k,1447)
    3077   141174528 :          lu(k,1451) = lu(k,1451) - lu(k,913) * lu(k,1447)
    3078   141174528 :          lu(k,1454) = lu(k,1454) - lu(k,914) * lu(k,1447)
    3079   141174528 :          lu(k,1455) = - lu(k,915) * lu(k,1447)
    3080   141174528 :          lu(k,1457) = - lu(k,916) * lu(k,1447)
    3081   141174528 :          lu(k,1459) = lu(k,1459) - lu(k,917) * lu(k,1447)
    3082   141174528 :          lu(k,1476) = lu(k,1476) - lu(k,910) * lu(k,1474)
    3083   141174528 :          lu(k,1477) = lu(k,1477) - lu(k,911) * lu(k,1474)
    3084   141174528 :          lu(k,1478) = - lu(k,912) * lu(k,1474)
    3085   141174528 :          lu(k,1479) = lu(k,1479) - lu(k,913) * lu(k,1474)
    3086   141174528 :          lu(k,1483) = lu(k,1483) - lu(k,914) * lu(k,1474)
    3087   141174528 :          lu(k,1484) = lu(k,1484) - lu(k,915) * lu(k,1474)
    3088   141174528 :          lu(k,1486) = - lu(k,916) * lu(k,1474)
    3089   141174528 :          lu(k,1489) = lu(k,1489) - lu(k,917) * lu(k,1474)
    3090   141174528 :          lu(k,1492) = - lu(k,910) * lu(k,1491)
    3091   141174528 :          lu(k,1493) = - lu(k,911) * lu(k,1491)
    3092   141174528 :          lu(k,1494) = lu(k,1494) - lu(k,912) * lu(k,1491)
    3093   141174528 :          lu(k,1495) = lu(k,1495) - lu(k,913) * lu(k,1491)
    3094   141174528 :          lu(k,1500) = lu(k,1500) - lu(k,914) * lu(k,1491)
    3095   141174528 :          lu(k,1501) = - lu(k,915) * lu(k,1491)
    3096   141174528 :          lu(k,1503) = lu(k,1503) - lu(k,916) * lu(k,1491)
    3097   141174528 :          lu(k,1506) = lu(k,1506) - lu(k,917) * lu(k,1491)
    3098   141174528 :          lu(k,1642) = lu(k,1642) - lu(k,910) * lu(k,1641)
    3099   141174528 :          lu(k,1644) = lu(k,1644) - lu(k,911) * lu(k,1641)
    3100   141174528 :          lu(k,1645) = - lu(k,912) * lu(k,1641)
    3101   141174528 :          lu(k,1646) = lu(k,1646) - lu(k,913) * lu(k,1641)
    3102   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,914) * lu(k,1641)
    3103   141174528 :          lu(k,1654) = lu(k,1654) - lu(k,915) * lu(k,1641)
    3104   141174528 :          lu(k,1656) = - lu(k,916) * lu(k,1641)
    3105   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,917) * lu(k,1641)
    3106   141174528 :          lu(k,1814) = lu(k,1814) - lu(k,910) * lu(k,1781)
    3107   141174528 :          lu(k,1816) = lu(k,1816) - lu(k,911) * lu(k,1781)
    3108   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,912) * lu(k,1781)
    3109   141174528 :          lu(k,1818) = lu(k,1818) - lu(k,913) * lu(k,1781)
    3110   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,914) * lu(k,1781)
    3111   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,915) * lu(k,1781)
    3112   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,916) * lu(k,1781)
    3113   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,917) * lu(k,1781)
    3114   141174528 :          lu(k,2346) = lu(k,2346) - lu(k,910) * lu(k,2344)
    3115   141174528 :          lu(k,2348) = - lu(k,911) * lu(k,2344)
    3116   141174528 :          lu(k,2349) = - lu(k,912) * lu(k,2344)
    3117   141174528 :          lu(k,2350) = lu(k,2350) - lu(k,913) * lu(k,2344)
    3118   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,914) * lu(k,2344)
    3119   141174528 :          lu(k,2358) = - lu(k,915) * lu(k,2344)
    3120   141174528 :          lu(k,2360) = - lu(k,916) * lu(k,2344)
    3121   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,917) * lu(k,2344)
    3122   141174528 :          lu(k,918) = 1._r8 / lu(k,918)
    3123   141174528 :          lu(k,919) = lu(k,919) * lu(k,918)
    3124   141174528 :          lu(k,920) = lu(k,920) * lu(k,918)
    3125   141174528 :          lu(k,921) = lu(k,921) * lu(k,918)
    3126   141174528 :          lu(k,922) = lu(k,922) * lu(k,918)
    3127   141174528 :          lu(k,923) = lu(k,923) * lu(k,918)
    3128   141174528 :          lu(k,924) = lu(k,924) * lu(k,918)
    3129   141174528 :          lu(k,925) = lu(k,925) * lu(k,918)
    3130   141174528 :          lu(k,926) = lu(k,926) * lu(k,918)
    3131   141174528 :          lu(k,1068) = lu(k,1068) - lu(k,919) * lu(k,1067)
    3132   141174528 :          lu(k,1070) = lu(k,1070) - lu(k,920) * lu(k,1067)
    3133   141174528 :          lu(k,1071) = lu(k,1071) - lu(k,921) * lu(k,1067)
    3134   141174528 :          lu(k,1075) = lu(k,1075) - lu(k,922) * lu(k,1067)
    3135   141174528 :          lu(k,1077) = lu(k,1077) - lu(k,923) * lu(k,1067)
    3136   141174528 :          lu(k,1078) = - lu(k,924) * lu(k,1067)
    3137   141174528 :          lu(k,1079) = - lu(k,925) * lu(k,1067)
    3138   141174528 :          lu(k,1080) = lu(k,1080) - lu(k,926) * lu(k,1067)
    3139   141174528 :          lu(k,1325) = lu(k,1325) - lu(k,919) * lu(k,1324)
    3140   141174528 :          lu(k,1327) = lu(k,1327) - lu(k,920) * lu(k,1324)
    3141   141174528 :          lu(k,1333) = lu(k,1333) - lu(k,921) * lu(k,1324)
    3142   141174528 :          lu(k,1341) = lu(k,1341) - lu(k,922) * lu(k,1324)
    3143   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,923) * lu(k,1324)
    3144   141174528 :          lu(k,1344) = lu(k,1344) - lu(k,924) * lu(k,1324)
    3145   141174528 :          lu(k,1345) = lu(k,1345) - lu(k,925) * lu(k,1324)
    3146   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,926) * lu(k,1324)
    3147   141174528 :          lu(k,1564) = lu(k,1564) - lu(k,919) * lu(k,1562)
    3148   141174528 :          lu(k,1565) = lu(k,1565) - lu(k,920) * lu(k,1562)
    3149   141174528 :          lu(k,1567) = lu(k,1567) - lu(k,921) * lu(k,1562)
    3150   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,922) * lu(k,1562)
    3151   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,923) * lu(k,1562)
    3152   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,924) * lu(k,1562)
    3153   141174528 :          lu(k,1582) = lu(k,1582) - lu(k,925) * lu(k,1562)
    3154   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,926) * lu(k,1562)
    3155   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,919) * lu(k,1782)
    3156   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,920) * lu(k,1782)
    3157   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,921) * lu(k,1782)
    3158   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,922) * lu(k,1782)
    3159   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,923) * lu(k,1782)
    3160   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,924) * lu(k,1782)
    3161   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,925) * lu(k,1782)
    3162   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,926) * lu(k,1782)
    3163   141174528 :          lu(k,1919) = lu(k,1919) - lu(k,919) * lu(k,1915)
    3164   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,920) * lu(k,1915)
    3165   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,921) * lu(k,1915)
    3166   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,922) * lu(k,1915)
    3167   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,923) * lu(k,1915)
    3168   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,924) * lu(k,1915)
    3169   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,925) * lu(k,1915)
    3170   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,926) * lu(k,1915)
    3171   141174528 :          lu(k,2273) = lu(k,2273) - lu(k,919) * lu(k,2269)
    3172   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,920) * lu(k,2269)
    3173   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,921) * lu(k,2269)
    3174   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,922) * lu(k,2269)
    3175   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,923) * lu(k,2269)
    3176   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,924) * lu(k,2269)
    3177   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,925) * lu(k,2269)
    3178   145586232 :          lu(k,2311) = lu(k,2311) - lu(k,926) * lu(k,2269)
    3179             :       end do
    3180     4411704 :       end subroutine lu_fac19
    3181     4411704 :       subroutine lu_fac20( avec_len, lu )
    3182             :       use chem_mods, only : nzcnt
    3183             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3184             :       implicit none
    3185             : !-----------------------------------------------------------------------
    3186             : ! ... dummy args
    3187             : !-----------------------------------------------------------------------
    3188             :       integer, intent(in) :: avec_len
    3189             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3190             : !-----------------------------------------------------------------------
    3191             : ! ... local variables
    3192             : !-----------------------------------------------------------------------
    3193             :       integer :: k
    3194   145586232 :       do k = 1,avec_len
    3195   141174528 :          lu(k,936) = 1._r8 / lu(k,936)
    3196   141174528 :          lu(k,937) = lu(k,937) * lu(k,936)
    3197   141174528 :          lu(k,938) = lu(k,938) * lu(k,936)
    3198   141174528 :          lu(k,939) = lu(k,939) * lu(k,936)
    3199   141174528 :          lu(k,940) = lu(k,940) * lu(k,936)
    3200   141174528 :          lu(k,941) = lu(k,941) * lu(k,936)
    3201   141174528 :          lu(k,942) = lu(k,942) * lu(k,936)
    3202   141174528 :          lu(k,943) = lu(k,943) * lu(k,936)
    3203   141174528 :          lu(k,944) = lu(k,944) * lu(k,936)
    3204   141174528 :          lu(k,945) = lu(k,945) * lu(k,936)
    3205   141174528 :          lu(k,946) = lu(k,946) * lu(k,936)
    3206   141174528 :          lu(k,947) = lu(k,947) * lu(k,936)
    3207   141174528 :          lu(k,948) = lu(k,948) * lu(k,936)
    3208   141174528 :          lu(k,949) = lu(k,949) * lu(k,936)
    3209   141174528 :          lu(k,950) = lu(k,950) * lu(k,936)
    3210   141174528 :          lu(k,951) = lu(k,951) * lu(k,936)
    3211   141174528 :          lu(k,952) = lu(k,952) * lu(k,936)
    3212   141174528 :          lu(k,953) = lu(k,953) * lu(k,936)
    3213   141174528 :          lu(k,954) = lu(k,954) * lu(k,936)
    3214   141174528 :          lu(k,1784) = lu(k,1784) - lu(k,937) * lu(k,1783)
    3215   141174528 :          lu(k,1786) = lu(k,1786) - lu(k,938) * lu(k,1783)
    3216   141174528 :          lu(k,1787) = lu(k,1787) - lu(k,939) * lu(k,1783)
    3217   141174528 :          lu(k,1788) = lu(k,1788) - lu(k,940) * lu(k,1783)
    3218   141174528 :          lu(k,1790) = lu(k,1790) - lu(k,941) * lu(k,1783)
    3219   141174528 :          lu(k,1795) = lu(k,1795) - lu(k,942) * lu(k,1783)
    3220   141174528 :          lu(k,1796) = lu(k,1796) - lu(k,943) * lu(k,1783)
    3221   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,944) * lu(k,1783)
    3222   141174528 :          lu(k,1801) = lu(k,1801) - lu(k,945) * lu(k,1783)
    3223   141174528 :          lu(k,1802) = lu(k,1802) - lu(k,946) * lu(k,1783)
    3224   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,947) * lu(k,1783)
    3225   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,948) * lu(k,1783)
    3226   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,949) * lu(k,1783)
    3227   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,950) * lu(k,1783)
    3228   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,951) * lu(k,1783)
    3229   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,952) * lu(k,1783)
    3230   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,953) * lu(k,1783)
    3231   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,954) * lu(k,1783)
    3232   141174528 :          lu(k,2047) = - lu(k,937) * lu(k,2046)
    3233   141174528 :          lu(k,2048) = lu(k,2048) - lu(k,938) * lu(k,2046)
    3234   141174528 :          lu(k,2049) = lu(k,2049) - lu(k,939) * lu(k,2046)
    3235   141174528 :          lu(k,2050) = lu(k,2050) - lu(k,940) * lu(k,2046)
    3236   141174528 :          lu(k,2052) = lu(k,2052) - lu(k,941) * lu(k,2046)
    3237   141174528 :          lu(k,2057) = lu(k,2057) - lu(k,942) * lu(k,2046)
    3238   141174528 :          lu(k,2058) = - lu(k,943) * lu(k,2046)
    3239   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,944) * lu(k,2046)
    3240   141174528 :          lu(k,2063) = - lu(k,945) * lu(k,2046)
    3241   141174528 :          lu(k,2064) = - lu(k,946) * lu(k,2046)
    3242   141174528 :          lu(k,2068) = lu(k,2068) - lu(k,947) * lu(k,2046)
    3243   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,948) * lu(k,2046)
    3244   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,949) * lu(k,2046)
    3245   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,950) * lu(k,2046)
    3246   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,951) * lu(k,2046)
    3247   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,952) * lu(k,2046)
    3248   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,953) * lu(k,2046)
    3249   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,954) * lu(k,2046)
    3250   141174528 :          lu(k,2151) = lu(k,2151) - lu(k,937) * lu(k,2150)
    3251   141174528 :          lu(k,2152) = lu(k,2152) - lu(k,938) * lu(k,2150)
    3252   141174528 :          lu(k,2153) = lu(k,2153) - lu(k,939) * lu(k,2150)
    3253   141174528 :          lu(k,2154) = lu(k,2154) - lu(k,940) * lu(k,2150)
    3254   141174528 :          lu(k,2156) = lu(k,2156) - lu(k,941) * lu(k,2150)
    3255   141174528 :          lu(k,2160) = - lu(k,942) * lu(k,2150)
    3256   141174528 :          lu(k,2161) = lu(k,2161) - lu(k,943) * lu(k,2150)
    3257   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,944) * lu(k,2150)
    3258   141174528 :          lu(k,2165) = - lu(k,945) * lu(k,2150)
    3259   141174528 :          lu(k,2166) = lu(k,2166) - lu(k,946) * lu(k,2150)
    3260   141174528 :          lu(k,2169) = lu(k,2169) - lu(k,947) * lu(k,2150)
    3261   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,948) * lu(k,2150)
    3262   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,949) * lu(k,2150)
    3263   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,950) * lu(k,2150)
    3264   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,951) * lu(k,2150)
    3265   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,952) * lu(k,2150)
    3266   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,953) * lu(k,2150)
    3267   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,954) * lu(k,2150)
    3268   141174528 :          lu(k,960) = 1._r8 / lu(k,960)
    3269   141174528 :          lu(k,961) = lu(k,961) * lu(k,960)
    3270   141174528 :          lu(k,962) = lu(k,962) * lu(k,960)
    3271   141174528 :          lu(k,963) = lu(k,963) * lu(k,960)
    3272   141174528 :          lu(k,964) = lu(k,964) * lu(k,960)
    3273   141174528 :          lu(k,965) = lu(k,965) * lu(k,960)
    3274   141174528 :          lu(k,966) = lu(k,966) * lu(k,960)
    3275   141174528 :          lu(k,967) = lu(k,967) * lu(k,960)
    3276   141174528 :          lu(k,968) = lu(k,968) * lu(k,960)
    3277   141174528 :          lu(k,969) = lu(k,969) * lu(k,960)
    3278   141174528 :          lu(k,1012) = lu(k,1012) - lu(k,961) * lu(k,1011)
    3279   141174528 :          lu(k,1017) = - lu(k,962) * lu(k,1011)
    3280   141174528 :          lu(k,1024) = lu(k,1024) - lu(k,963) * lu(k,1011)
    3281   141174528 :          lu(k,1025) = lu(k,1025) - lu(k,964) * lu(k,1011)
    3282   141174528 :          lu(k,1026) = - lu(k,965) * lu(k,1011)
    3283   141174528 :          lu(k,1028) = lu(k,1028) - lu(k,966) * lu(k,1011)
    3284   141174528 :          lu(k,1029) = - lu(k,967) * lu(k,1011)
    3285   141174528 :          lu(k,1030) = - lu(k,968) * lu(k,1011)
    3286   141174528 :          lu(k,1033) = lu(k,1033) - lu(k,969) * lu(k,1011)
    3287   141174528 :          lu(k,1786) = lu(k,1786) - lu(k,961) * lu(k,1784)
    3288   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,962) * lu(k,1784)
    3289   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,963) * lu(k,1784)
    3290   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,964) * lu(k,1784)
    3291   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,965) * lu(k,1784)
    3292   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,966) * lu(k,1784)
    3293   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,967) * lu(k,1784)
    3294   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,968) * lu(k,1784)
    3295   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,969) * lu(k,1784)
    3296   141174528 :          lu(k,1917) = lu(k,1917) - lu(k,961) * lu(k,1916)
    3297   141174528 :          lu(k,1922) = lu(k,1922) - lu(k,962) * lu(k,1916)
    3298   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,963) * lu(k,1916)
    3299   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,964) * lu(k,1916)
    3300   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,965) * lu(k,1916)
    3301   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,966) * lu(k,1916)
    3302   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,967) * lu(k,1916)
    3303   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,968) * lu(k,1916)
    3304   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,969) * lu(k,1916)
    3305   141174528 :          lu(k,2048) = lu(k,2048) - lu(k,961) * lu(k,2047)
    3306   141174528 :          lu(k,2055) = lu(k,2055) - lu(k,962) * lu(k,2047)
    3307   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,963) * lu(k,2047)
    3308   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,964) * lu(k,2047)
    3309   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,965) * lu(k,2047)
    3310   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,966) * lu(k,2047)
    3311   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,967) * lu(k,2047)
    3312   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,968) * lu(k,2047)
    3313   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,969) * lu(k,2047)
    3314   141174528 :          lu(k,2152) = lu(k,2152) - lu(k,961) * lu(k,2151)
    3315   141174528 :          lu(k,2158) = lu(k,2158) - lu(k,962) * lu(k,2151)
    3316   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,963) * lu(k,2151)
    3317   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,964) * lu(k,2151)
    3318   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,965) * lu(k,2151)
    3319   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,966) * lu(k,2151)
    3320   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,967) * lu(k,2151)
    3321   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,968) * lu(k,2151)
    3322   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,969) * lu(k,2151)
    3323   141174528 :          lu(k,2271) = lu(k,2271) - lu(k,961) * lu(k,2270)
    3324   141174528 :          lu(k,2275) = lu(k,2275) - lu(k,962) * lu(k,2270)
    3325   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,963) * lu(k,2270)
    3326   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,964) * lu(k,2270)
    3327   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,965) * lu(k,2270)
    3328   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,966) * lu(k,2270)
    3329   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,967) * lu(k,2270)
    3330   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,968) * lu(k,2270)
    3331   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,969) * lu(k,2270)
    3332   141174528 :          lu(k,972) = 1._r8 / lu(k,972)
    3333   141174528 :          lu(k,973) = lu(k,973) * lu(k,972)
    3334   141174528 :          lu(k,974) = lu(k,974) * lu(k,972)
    3335   141174528 :          lu(k,975) = lu(k,975) * lu(k,972)
    3336   141174528 :          lu(k,976) = lu(k,976) * lu(k,972)
    3337   141174528 :          lu(k,977) = lu(k,977) * lu(k,972)
    3338   141174528 :          lu(k,978) = lu(k,978) * lu(k,972)
    3339   141174528 :          lu(k,979) = lu(k,979) * lu(k,972)
    3340   141174528 :          lu(k,980) = lu(k,980) * lu(k,972)
    3341   141174528 :          lu(k,981) = lu(k,981) * lu(k,972)
    3342   141174528 :          lu(k,1573) = lu(k,1573) - lu(k,973) * lu(k,1563)
    3343   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,974) * lu(k,1563)
    3344   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,975) * lu(k,1563)
    3345   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,976) * lu(k,1563)
    3346   141174528 :          lu(k,1583) = lu(k,1583) - lu(k,977) * lu(k,1563)
    3347   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,978) * lu(k,1563)
    3348   141174528 :          lu(k,1585) = lu(k,1585) - lu(k,979) * lu(k,1563)
    3349   141174528 :          lu(k,1588) = lu(k,1588) - lu(k,980) * lu(k,1563)
    3350   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,981) * lu(k,1563)
    3351   141174528 :          lu(k,1604) = lu(k,1604) - lu(k,973) * lu(k,1598)
    3352   141174528 :          lu(k,1607) = lu(k,1607) - lu(k,974) * lu(k,1598)
    3353   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,975) * lu(k,1598)
    3354   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,976) * lu(k,1598)
    3355   141174528 :          lu(k,1614) = lu(k,1614) - lu(k,977) * lu(k,1598)
    3356   141174528 :          lu(k,1615) = lu(k,1615) - lu(k,978) * lu(k,1598)
    3357   141174528 :          lu(k,1616) = lu(k,1616) - lu(k,979) * lu(k,1598)
    3358   141174528 :          lu(k,1619) = lu(k,1619) - lu(k,980) * lu(k,1598)
    3359   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,981) * lu(k,1598)
    3360   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,973) * lu(k,1785)
    3361   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,974) * lu(k,1785)
    3362   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,975) * lu(k,1785)
    3363   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,976) * lu(k,1785)
    3364   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,977) * lu(k,1785)
    3365   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,978) * lu(k,1785)
    3366   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,979) * lu(k,1785)
    3367   141174528 :          lu(k,1832) = lu(k,1832) - lu(k,980) * lu(k,1785)
    3368   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,981) * lu(k,1785)
    3369   141174528 :          lu(k,2019) = lu(k,2019) - lu(k,973) * lu(k,2017)
    3370   141174528 :          lu(k,2022) = - lu(k,974) * lu(k,2017)
    3371   141174528 :          lu(k,2023) = lu(k,2023) - lu(k,975) * lu(k,2017)
    3372   141174528 :          lu(k,2025) = lu(k,2025) - lu(k,976) * lu(k,2017)
    3373   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,977) * lu(k,2017)
    3374   141174528 :          lu(k,2030) = - lu(k,978) * lu(k,2017)
    3375   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,979) * lu(k,2017)
    3376   141174528 :          lu(k,2034) = lu(k,2034) - lu(k,980) * lu(k,2017)
    3377   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,981) * lu(k,2017)
    3378   141174528 :          lu(k,2117) = - lu(k,973) * lu(k,2107)
    3379   141174528 :          lu(k,2120) = lu(k,2120) - lu(k,974) * lu(k,2107)
    3380   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,975) * lu(k,2107)
    3381   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,976) * lu(k,2107)
    3382   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,977) * lu(k,2107)
    3383   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,978) * lu(k,2107)
    3384   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,979) * lu(k,2107)
    3385   141174528 :          lu(k,2132) = lu(k,2132) - lu(k,980) * lu(k,2107)
    3386   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,981) * lu(k,2107)
    3387   141174528 :          lu(k,2323) = - lu(k,973) * lu(k,2320)
    3388   141174528 :          lu(k,2326) = lu(k,2326) - lu(k,974) * lu(k,2320)
    3389   141174528 :          lu(k,2327) = lu(k,2327) - lu(k,975) * lu(k,2320)
    3390   141174528 :          lu(k,2329) = lu(k,2329) - lu(k,976) * lu(k,2320)
    3391   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,977) * lu(k,2320)
    3392   141174528 :          lu(k,2334) = - lu(k,978) * lu(k,2320)
    3393   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,979) * lu(k,2320)
    3394   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,980) * lu(k,2320)
    3395   145586232 :          lu(k,2339) = lu(k,2339) - lu(k,981) * lu(k,2320)
    3396             :       end do
    3397     4411704 :       end subroutine lu_fac20
    3398     4411704 :       subroutine lu_fac21( avec_len, lu )
    3399             :       use chem_mods, only : nzcnt
    3400             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3401             :       implicit none
    3402             : !-----------------------------------------------------------------------
    3403             : ! ... dummy args
    3404             : !-----------------------------------------------------------------------
    3405             :       integer, intent(in) :: avec_len
    3406             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3407             : !-----------------------------------------------------------------------
    3408             : ! ... local variables
    3409             : !-----------------------------------------------------------------------
    3410             :       integer :: k
    3411   145586232 :       do k = 1,avec_len
    3412   141174528 :          lu(k,982) = 1._r8 / lu(k,982)
    3413   141174528 :          lu(k,983) = lu(k,983) * lu(k,982)
    3414   141174528 :          lu(k,984) = lu(k,984) * lu(k,982)
    3415   141174528 :          lu(k,985) = lu(k,985) * lu(k,982)
    3416   141174528 :          lu(k,986) = lu(k,986) * lu(k,982)
    3417   141174528 :          lu(k,987) = lu(k,987) * lu(k,982)
    3418   141174528 :          lu(k,1022) = lu(k,1022) - lu(k,983) * lu(k,1012)
    3419   141174528 :          lu(k,1024) = lu(k,1024) - lu(k,984) * lu(k,1012)
    3420   141174528 :          lu(k,1028) = lu(k,1028) - lu(k,985) * lu(k,1012)
    3421   141174528 :          lu(k,1030) = lu(k,1030) - lu(k,986) * lu(k,1012)
    3422   141174528 :          lu(k,1034) = - lu(k,987) * lu(k,1012)
    3423   141174528 :          lu(k,1118) = lu(k,1118) - lu(k,983) * lu(k,1115)
    3424   141174528 :          lu(k,1119) = lu(k,1119) - lu(k,984) * lu(k,1115)
    3425   141174528 :          lu(k,1122) = lu(k,1122) - lu(k,985) * lu(k,1115)
    3426   141174528 :          lu(k,1123) = - lu(k,986) * lu(k,1115)
    3427   141174528 :          lu(k,1125) = - lu(k,987) * lu(k,1115)
    3428   141174528 :          lu(k,1138) = - lu(k,983) * lu(k,1132)
    3429   141174528 :          lu(k,1139) = lu(k,1139) - lu(k,984) * lu(k,1132)
    3430   141174528 :          lu(k,1144) = lu(k,1144) - lu(k,985) * lu(k,1132)
    3431   141174528 :          lu(k,1145) = - lu(k,986) * lu(k,1132)
    3432   141174528 :          lu(k,1148) = - lu(k,987) * lu(k,1132)
    3433   141174528 :          lu(k,1164) = - lu(k,983) * lu(k,1159)
    3434   141174528 :          lu(k,1165) = - lu(k,984) * lu(k,1159)
    3435   141174528 :          lu(k,1170) = lu(k,1170) - lu(k,985) * lu(k,1159)
    3436   141174528 :          lu(k,1172) = lu(k,1172) - lu(k,986) * lu(k,1159)
    3437   141174528 :          lu(k,1174) = - lu(k,987) * lu(k,1159)
    3438   141174528 :          lu(k,1185) = - lu(k,983) * lu(k,1178)
    3439   141174528 :          lu(k,1186) = - lu(k,984) * lu(k,1178)
    3440   141174528 :          lu(k,1191) = lu(k,1191) - lu(k,985) * lu(k,1178)
    3441   141174528 :          lu(k,1193) = lu(k,1193) - lu(k,986) * lu(k,1178)
    3442   141174528 :          lu(k,1196) = - lu(k,987) * lu(k,1178)
    3443   141174528 :          lu(k,1802) = lu(k,1802) - lu(k,983) * lu(k,1786)
    3444   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,984) * lu(k,1786)
    3445   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,985) * lu(k,1786)
    3446   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,986) * lu(k,1786)
    3447   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,987) * lu(k,1786)
    3448   141174528 :          lu(k,1931) = lu(k,1931) - lu(k,983) * lu(k,1917)
    3449   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,984) * lu(k,1917)
    3450   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,985) * lu(k,1917)
    3451   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,986) * lu(k,1917)
    3452   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,987) * lu(k,1917)
    3453   141174528 :          lu(k,1984) = lu(k,1984) - lu(k,983) * lu(k,1972)
    3454   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,984) * lu(k,1972)
    3455   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,985) * lu(k,1972)
    3456   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,986) * lu(k,1972)
    3457   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,987) * lu(k,1972)
    3458   141174528 :          lu(k,2064) = lu(k,2064) - lu(k,983) * lu(k,2048)
    3459   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,984) * lu(k,2048)
    3460   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,985) * lu(k,2048)
    3461   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,986) * lu(k,2048)
    3462   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,987) * lu(k,2048)
    3463   141174528 :          lu(k,2166) = lu(k,2166) - lu(k,983) * lu(k,2152)
    3464   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,984) * lu(k,2152)
    3465   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,985) * lu(k,2152)
    3466   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,986) * lu(k,2152)
    3467   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,987) * lu(k,2152)
    3468   141174528 :          lu(k,2283) = lu(k,2283) - lu(k,983) * lu(k,2271)
    3469   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,984) * lu(k,2271)
    3470   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,985) * lu(k,2271)
    3471   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,986) * lu(k,2271)
    3472   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,987) * lu(k,2271)
    3473   141174528 :          lu(k,989) = 1._r8 / lu(k,989)
    3474   141174528 :          lu(k,990) = lu(k,990) * lu(k,989)
    3475   141174528 :          lu(k,991) = lu(k,991) * lu(k,989)
    3476   141174528 :          lu(k,992) = lu(k,992) * lu(k,989)
    3477   141174528 :          lu(k,993) = lu(k,993) * lu(k,989)
    3478   141174528 :          lu(k,994) = lu(k,994) * lu(k,989)
    3479   141174528 :          lu(k,1020) = lu(k,1020) - lu(k,990) * lu(k,1013)
    3480   141174528 :          lu(k,1027) = lu(k,1027) - lu(k,991) * lu(k,1013)
    3481   141174528 :          lu(k,1028) = lu(k,1028) - lu(k,992) * lu(k,1013)
    3482   141174528 :          lu(k,1033) = lu(k,1033) - lu(k,993) * lu(k,1013)
    3483   141174528 :          lu(k,1034) = lu(k,1034) - lu(k,994) * lu(k,1013)
    3484   141174528 :          lu(k,1050) = lu(k,1050) - lu(k,990) * lu(k,1047)
    3485   141174528 :          lu(k,1057) = lu(k,1057) - lu(k,991) * lu(k,1047)
    3486   141174528 :          lu(k,1058) = lu(k,1058) - lu(k,992) * lu(k,1047)
    3487   141174528 :          lu(k,1063) = lu(k,1063) - lu(k,993) * lu(k,1047)
    3488   141174528 :          lu(k,1064) = lu(k,1064) - lu(k,994) * lu(k,1047)
    3489   141174528 :          lu(k,1252) = lu(k,1252) - lu(k,990) * lu(k,1251)
    3490   141174528 :          lu(k,1259) = - lu(k,991) * lu(k,1251)
    3491   141174528 :          lu(k,1260) = lu(k,1260) - lu(k,992) * lu(k,1251)
    3492   141174528 :          lu(k,1262) = lu(k,1262) - lu(k,993) * lu(k,1251)
    3493   141174528 :          lu(k,1263) = lu(k,1263) - lu(k,994) * lu(k,1251)
    3494   141174528 :          lu(k,1375) = lu(k,1375) - lu(k,990) * lu(k,1372)
    3495   141174528 :          lu(k,1386) = lu(k,1386) - lu(k,991) * lu(k,1372)
    3496   141174528 :          lu(k,1387) = lu(k,1387) - lu(k,992) * lu(k,1372)
    3497   141174528 :          lu(k,1392) = lu(k,1392) - lu(k,993) * lu(k,1372)
    3498   141174528 :          lu(k,1393) = - lu(k,994) * lu(k,1372)
    3499   141174528 :          lu(k,1526) = lu(k,1526) - lu(k,990) * lu(k,1525)
    3500   141174528 :          lu(k,1534) = lu(k,1534) - lu(k,991) * lu(k,1525)
    3501   141174528 :          lu(k,1536) = lu(k,1536) - lu(k,992) * lu(k,1525)
    3502   141174528 :          lu(k,1544) = lu(k,1544) - lu(k,993) * lu(k,1525)
    3503   141174528 :          lu(k,1545) = lu(k,1545) - lu(k,994) * lu(k,1525)
    3504   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,990) * lu(k,1787)
    3505   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,991) * lu(k,1787)
    3506   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,992) * lu(k,1787)
    3507   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,993) * lu(k,1787)
    3508   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,994) * lu(k,1787)
    3509   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,990) * lu(k,1918)
    3510   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,991) * lu(k,1918)
    3511   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,992) * lu(k,1918)
    3512   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,993) * lu(k,1918)
    3513   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,994) * lu(k,1918)
    3514   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,990) * lu(k,2049)
    3515   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,991) * lu(k,2049)
    3516   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,992) * lu(k,2049)
    3517   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,993) * lu(k,2049)
    3518   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,994) * lu(k,2049)
    3519   141174528 :          lu(k,2112) = lu(k,2112) - lu(k,990) * lu(k,2108)
    3520   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,991) * lu(k,2108)
    3521   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,992) * lu(k,2108)
    3522   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,993) * lu(k,2108)
    3523   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,994) * lu(k,2108)
    3524   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,990) * lu(k,2153)
    3525   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,991) * lu(k,2153)
    3526   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,992) * lu(k,2153)
    3527   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,993) * lu(k,2153)
    3528   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,994) * lu(k,2153)
    3529   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,990) * lu(k,2272)
    3530   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,991) * lu(k,2272)
    3531   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,992) * lu(k,2272)
    3532   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,993) * lu(k,2272)
    3533   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,994) * lu(k,2272)
    3534   141174528 :          lu(k,997) = 1._r8 / lu(k,997)
    3535   141174528 :          lu(k,998) = lu(k,998) * lu(k,997)
    3536   141174528 :          lu(k,999) = lu(k,999) * lu(k,997)
    3537   141174528 :          lu(k,1000) = lu(k,1000) * lu(k,997)
    3538   141174528 :          lu(k,1001) = lu(k,1001) * lu(k,997)
    3539   141174528 :          lu(k,1020) = lu(k,1020) - lu(k,998) * lu(k,1014)
    3540   141174528 :          lu(k,1027) = lu(k,1027) - lu(k,999) * lu(k,1014)
    3541   141174528 :          lu(k,1028) = lu(k,1028) - lu(k,1000) * lu(k,1014)
    3542   141174528 :          lu(k,1033) = lu(k,1033) - lu(k,1001) * lu(k,1014)
    3543   141174528 :          lu(k,1070) = lu(k,1070) - lu(k,998) * lu(k,1068)
    3544   141174528 :          lu(k,1076) = - lu(k,999) * lu(k,1068)
    3545   141174528 :          lu(k,1077) = lu(k,1077) - lu(k,1000) * lu(k,1068)
    3546   141174528 :          lu(k,1080) = lu(k,1080) - lu(k,1001) * lu(k,1068)
    3547   141174528 :          lu(k,1093) = lu(k,1093) - lu(k,998) * lu(k,1091)
    3548   141174528 :          lu(k,1095) = lu(k,1095) - lu(k,999) * lu(k,1091)
    3549   141174528 :          lu(k,1096) = lu(k,1096) - lu(k,1000) * lu(k,1091)
    3550   141174528 :          lu(k,1097) = lu(k,1097) - lu(k,1001) * lu(k,1091)
    3551   141174528 :          lu(k,1215) = lu(k,1215) - lu(k,998) * lu(k,1213)
    3552   141174528 :          lu(k,1222) = lu(k,1222) - lu(k,999) * lu(k,1213)
    3553   141174528 :          lu(k,1223) = lu(k,1223) - lu(k,1000) * lu(k,1213)
    3554   141174528 :          lu(k,1227) = lu(k,1227) - lu(k,1001) * lu(k,1213)
    3555   141174528 :          lu(k,1327) = lu(k,1327) - lu(k,998) * lu(k,1325)
    3556   141174528 :          lu(k,1342) = - lu(k,999) * lu(k,1325)
    3557   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,1000) * lu(k,1325)
    3558   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,1001) * lu(k,1325)
    3559   141174528 :          lu(k,1422) = lu(k,1422) - lu(k,998) * lu(k,1419)
    3560   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,999) * lu(k,1419)
    3561   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1000) * lu(k,1419)
    3562   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1001) * lu(k,1419)
    3563   141174528 :          lu(k,1565) = lu(k,1565) - lu(k,998) * lu(k,1564)
    3564   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,999) * lu(k,1564)
    3565   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1000) * lu(k,1564)
    3566   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1001) * lu(k,1564)
    3567   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,998) * lu(k,1788)
    3568   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,999) * lu(k,1788)
    3569   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1000) * lu(k,1788)
    3570   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1001) * lu(k,1788)
    3571   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,998) * lu(k,1919)
    3572   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,999) * lu(k,1919)
    3573   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1000) * lu(k,1919)
    3574   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1001) * lu(k,1919)
    3575   141174528 :          lu(k,1980) = lu(k,1980) - lu(k,998) * lu(k,1973)
    3576   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,999) * lu(k,1973)
    3577   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1000) * lu(k,1973)
    3578   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1001) * lu(k,1973)
    3579   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,998) * lu(k,2050)
    3580   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,999) * lu(k,2050)
    3581   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1000) * lu(k,2050)
    3582   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1001) * lu(k,2050)
    3583   141174528 :          lu(k,2112) = lu(k,2112) - lu(k,998) * lu(k,2109)
    3584   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,999) * lu(k,2109)
    3585   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1000) * lu(k,2109)
    3586   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1001) * lu(k,2109)
    3587   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,998) * lu(k,2154)
    3588   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,999) * lu(k,2154)
    3589   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1000) * lu(k,2154)
    3590   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1001) * lu(k,2154)
    3591   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,998) * lu(k,2273)
    3592   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,999) * lu(k,2273)
    3593   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1000) * lu(k,2273)
    3594   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1001) * lu(k,2273)
    3595   141174528 :          lu(k,1015) = 1._r8 / lu(k,1015)
    3596   141174528 :          lu(k,1016) = lu(k,1016) * lu(k,1015)
    3597   141174528 :          lu(k,1017) = lu(k,1017) * lu(k,1015)
    3598   141174528 :          lu(k,1018) = lu(k,1018) * lu(k,1015)
    3599   141174528 :          lu(k,1019) = lu(k,1019) * lu(k,1015)
    3600   141174528 :          lu(k,1020) = lu(k,1020) * lu(k,1015)
    3601   141174528 :          lu(k,1021) = lu(k,1021) * lu(k,1015)
    3602   141174528 :          lu(k,1022) = lu(k,1022) * lu(k,1015)
    3603   141174528 :          lu(k,1023) = lu(k,1023) * lu(k,1015)
    3604   141174528 :          lu(k,1024) = lu(k,1024) * lu(k,1015)
    3605   141174528 :          lu(k,1025) = lu(k,1025) * lu(k,1015)
    3606   141174528 :          lu(k,1026) = lu(k,1026) * lu(k,1015)
    3607   141174528 :          lu(k,1027) = lu(k,1027) * lu(k,1015)
    3608   141174528 :          lu(k,1028) = lu(k,1028) * lu(k,1015)
    3609   141174528 :          lu(k,1029) = lu(k,1029) * lu(k,1015)
    3610   141174528 :          lu(k,1030) = lu(k,1030) * lu(k,1015)
    3611   141174528 :          lu(k,1031) = lu(k,1031) * lu(k,1015)
    3612   141174528 :          lu(k,1032) = lu(k,1032) * lu(k,1015)
    3613   141174528 :          lu(k,1033) = lu(k,1033) * lu(k,1015)
    3614   141174528 :          lu(k,1034) = lu(k,1034) * lu(k,1015)
    3615   141174528 :          lu(k,1790) = lu(k,1790) - lu(k,1016) * lu(k,1789)
    3616   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,1017) * lu(k,1789)
    3617   141174528 :          lu(k,1795) = lu(k,1795) - lu(k,1018) * lu(k,1789)
    3618   141174528 :          lu(k,1796) = lu(k,1796) - lu(k,1019) * lu(k,1789)
    3619   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,1020) * lu(k,1789)
    3620   141174528 :          lu(k,1801) = lu(k,1801) - lu(k,1021) * lu(k,1789)
    3621   141174528 :          lu(k,1802) = lu(k,1802) - lu(k,1022) * lu(k,1789)
    3622   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,1023) * lu(k,1789)
    3623   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1024) * lu(k,1789)
    3624   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1025) * lu(k,1789)
    3625   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1026) * lu(k,1789)
    3626   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1027) * lu(k,1789)
    3627   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1028) * lu(k,1789)
    3628   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1029) * lu(k,1789)
    3629   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1030) * lu(k,1789)
    3630   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1031) * lu(k,1789)
    3631   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1032) * lu(k,1789)
    3632   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1033) * lu(k,1789)
    3633   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1034) * lu(k,1789)
    3634   141174528 :          lu(k,2052) = lu(k,2052) - lu(k,1016) * lu(k,2051)
    3635   141174528 :          lu(k,2055) = lu(k,2055) - lu(k,1017) * lu(k,2051)
    3636   141174528 :          lu(k,2057) = lu(k,2057) - lu(k,1018) * lu(k,2051)
    3637   141174528 :          lu(k,2058) = lu(k,2058) - lu(k,1019) * lu(k,2051)
    3638   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,1020) * lu(k,2051)
    3639   141174528 :          lu(k,2063) = lu(k,2063) - lu(k,1021) * lu(k,2051)
    3640   141174528 :          lu(k,2064) = lu(k,2064) - lu(k,1022) * lu(k,2051)
    3641   141174528 :          lu(k,2068) = lu(k,2068) - lu(k,1023) * lu(k,2051)
    3642   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1024) * lu(k,2051)
    3643   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1025) * lu(k,2051)
    3644   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1026) * lu(k,2051)
    3645   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1027) * lu(k,2051)
    3646   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1028) * lu(k,2051)
    3647   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1029) * lu(k,2051)
    3648   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1030) * lu(k,2051)
    3649   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1031) * lu(k,2051)
    3650   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1032) * lu(k,2051)
    3651   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1033) * lu(k,2051)
    3652   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1034) * lu(k,2051)
    3653   141174528 :          lu(k,2156) = lu(k,2156) - lu(k,1016) * lu(k,2155)
    3654   141174528 :          lu(k,2158) = lu(k,2158) - lu(k,1017) * lu(k,2155)
    3655   141174528 :          lu(k,2160) = lu(k,2160) - lu(k,1018) * lu(k,2155)
    3656   141174528 :          lu(k,2161) = lu(k,2161) - lu(k,1019) * lu(k,2155)
    3657   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,1020) * lu(k,2155)
    3658   141174528 :          lu(k,2165) = lu(k,2165) - lu(k,1021) * lu(k,2155)
    3659   141174528 :          lu(k,2166) = lu(k,2166) - lu(k,1022) * lu(k,2155)
    3660   141174528 :          lu(k,2169) = lu(k,2169) - lu(k,1023) * lu(k,2155)
    3661   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1024) * lu(k,2155)
    3662   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1025) * lu(k,2155)
    3663   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1026) * lu(k,2155)
    3664   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1027) * lu(k,2155)
    3665   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1028) * lu(k,2155)
    3666   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1029) * lu(k,2155)
    3667   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1030) * lu(k,2155)
    3668   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1031) * lu(k,2155)
    3669   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1032) * lu(k,2155)
    3670   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1033) * lu(k,2155)
    3671   145586232 :          lu(k,2195) = lu(k,2195) - lu(k,1034) * lu(k,2155)
    3672             :       end do
    3673     4411704 :       end subroutine lu_fac21
    3674     4411704 :       subroutine lu_fac22( avec_len, lu )
    3675             :       use chem_mods, only : nzcnt
    3676             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3677             :       implicit none
    3678             : !-----------------------------------------------------------------------
    3679             : ! ... dummy args
    3680             : !-----------------------------------------------------------------------
    3681             :       integer, intent(in) :: avec_len
    3682             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3683             : !-----------------------------------------------------------------------
    3684             : ! ... local variables
    3685             : !-----------------------------------------------------------------------
    3686             :       integer :: k
    3687   145586232 :       do k = 1,avec_len
    3688   141174528 :          lu(k,1035) = 1._r8 / lu(k,1035)
    3689   141174528 :          lu(k,1036) = lu(k,1036) * lu(k,1035)
    3690   141174528 :          lu(k,1037) = lu(k,1037) * lu(k,1035)
    3691   141174528 :          lu(k,1038) = lu(k,1038) * lu(k,1035)
    3692   141174528 :          lu(k,1039) = lu(k,1039) * lu(k,1035)
    3693   141174528 :          lu(k,1040) = lu(k,1040) * lu(k,1035)
    3694   141174528 :          lu(k,1041) = lu(k,1041) * lu(k,1035)
    3695   141174528 :          lu(k,1042) = lu(k,1042) * lu(k,1035)
    3696   141174528 :          lu(k,1102) = lu(k,1102) - lu(k,1036) * lu(k,1101)
    3697   141174528 :          lu(k,1103) = - lu(k,1037) * lu(k,1101)
    3698   141174528 :          lu(k,1104) = - lu(k,1038) * lu(k,1101)
    3699   141174528 :          lu(k,1105) = - lu(k,1039) * lu(k,1101)
    3700   141174528 :          lu(k,1109) = lu(k,1109) - lu(k,1040) * lu(k,1101)
    3701   141174528 :          lu(k,1112) = lu(k,1112) - lu(k,1041) * lu(k,1101)
    3702   141174528 :          lu(k,1113) = lu(k,1113) - lu(k,1042) * lu(k,1101)
    3703   141174528 :          lu(k,1180) = - lu(k,1036) * lu(k,1179)
    3704   141174528 :          lu(k,1181) = - lu(k,1037) * lu(k,1179)
    3705   141174528 :          lu(k,1182) = - lu(k,1038) * lu(k,1179)
    3706   141174528 :          lu(k,1183) = - lu(k,1039) * lu(k,1179)
    3707   141174528 :          lu(k,1191) = lu(k,1191) - lu(k,1040) * lu(k,1179)
    3708   141174528 :          lu(k,1194) = - lu(k,1041) * lu(k,1179)
    3709   141174528 :          lu(k,1195) = lu(k,1195) - lu(k,1042) * lu(k,1179)
    3710   141174528 :          lu(k,1795) = lu(k,1795) - lu(k,1036) * lu(k,1790)
    3711   141174528 :          lu(k,1796) = lu(k,1796) - lu(k,1037) * lu(k,1790)
    3712   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,1038) * lu(k,1790)
    3713   141174528 :          lu(k,1800) = lu(k,1800) - lu(k,1039) * lu(k,1790)
    3714   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1040) * lu(k,1790)
    3715   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1041) * lu(k,1790)
    3716   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1042) * lu(k,1790)
    3717   141174528 :          lu(k,1924) = lu(k,1924) - lu(k,1036) * lu(k,1920)
    3718   141174528 :          lu(k,1925) = lu(k,1925) - lu(k,1037) * lu(k,1920)
    3719   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,1038) * lu(k,1920)
    3720   141174528 :          lu(k,1929) = lu(k,1929) - lu(k,1039) * lu(k,1920)
    3721   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1040) * lu(k,1920)
    3722   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1041) * lu(k,1920)
    3723   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1042) * lu(k,1920)
    3724   141174528 :          lu(k,1978) = lu(k,1978) - lu(k,1036) * lu(k,1974)
    3725   141174528 :          lu(k,1979) = lu(k,1979) - lu(k,1037) * lu(k,1974)
    3726   141174528 :          lu(k,1980) = lu(k,1980) - lu(k,1038) * lu(k,1974)
    3727   141174528 :          lu(k,1982) = lu(k,1982) - lu(k,1039) * lu(k,1974)
    3728   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1040) * lu(k,1974)
    3729   141174528 :          lu(k,2007) = - lu(k,1041) * lu(k,1974)
    3730   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1042) * lu(k,1974)
    3731   141174528 :          lu(k,2057) = lu(k,2057) - lu(k,1036) * lu(k,2052)
    3732   141174528 :          lu(k,2058) = lu(k,2058) - lu(k,1037) * lu(k,2052)
    3733   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,1038) * lu(k,2052)
    3734   141174528 :          lu(k,2062) = lu(k,2062) - lu(k,1039) * lu(k,2052)
    3735   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1040) * lu(k,2052)
    3736   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1041) * lu(k,2052)
    3737   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1042) * lu(k,2052)
    3738   141174528 :          lu(k,2160) = lu(k,2160) - lu(k,1036) * lu(k,2156)
    3739   141174528 :          lu(k,2161) = lu(k,2161) - lu(k,1037) * lu(k,2156)
    3740   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,1038) * lu(k,2156)
    3741   141174528 :          lu(k,2164) = - lu(k,1039) * lu(k,2156)
    3742   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1040) * lu(k,2156)
    3743   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1041) * lu(k,2156)
    3744   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1042) * lu(k,2156)
    3745   141174528 :          lu(k,2277) = lu(k,2277) - lu(k,1036) * lu(k,2274)
    3746   141174528 :          lu(k,2278) = lu(k,2278) - lu(k,1037) * lu(k,2274)
    3747   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,1038) * lu(k,2274)
    3748   141174528 :          lu(k,2281) = lu(k,2281) - lu(k,1039) * lu(k,2274)
    3749   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1040) * lu(k,2274)
    3750   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1041) * lu(k,2274)
    3751   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1042) * lu(k,2274)
    3752   141174528 :          lu(k,1048) = 1._r8 / lu(k,1048)
    3753   141174528 :          lu(k,1049) = lu(k,1049) * lu(k,1048)
    3754   141174528 :          lu(k,1050) = lu(k,1050) * lu(k,1048)
    3755   141174528 :          lu(k,1051) = lu(k,1051) * lu(k,1048)
    3756   141174528 :          lu(k,1052) = lu(k,1052) * lu(k,1048)
    3757   141174528 :          lu(k,1053) = lu(k,1053) * lu(k,1048)
    3758   141174528 :          lu(k,1054) = lu(k,1054) * lu(k,1048)
    3759   141174528 :          lu(k,1055) = lu(k,1055) * lu(k,1048)
    3760   141174528 :          lu(k,1056) = lu(k,1056) * lu(k,1048)
    3761   141174528 :          lu(k,1057) = lu(k,1057) * lu(k,1048)
    3762   141174528 :          lu(k,1058) = lu(k,1058) * lu(k,1048)
    3763   141174528 :          lu(k,1059) = lu(k,1059) * lu(k,1048)
    3764   141174528 :          lu(k,1060) = lu(k,1060) * lu(k,1048)
    3765   141174528 :          lu(k,1061) = lu(k,1061) * lu(k,1048)
    3766   141174528 :          lu(k,1062) = lu(k,1062) * lu(k,1048)
    3767   141174528 :          lu(k,1063) = lu(k,1063) * lu(k,1048)
    3768   141174528 :          lu(k,1064) = lu(k,1064) * lu(k,1048)
    3769   141174528 :          lu(k,1374) = lu(k,1374) - lu(k,1049) * lu(k,1373)
    3770   141174528 :          lu(k,1375) = lu(k,1375) - lu(k,1050) * lu(k,1373)
    3771   141174528 :          lu(k,1376) = - lu(k,1051) * lu(k,1373)
    3772   141174528 :          lu(k,1377) = lu(k,1377) - lu(k,1052) * lu(k,1373)
    3773   141174528 :          lu(k,1381) = lu(k,1381) - lu(k,1053) * lu(k,1373)
    3774   141174528 :          lu(k,1382) = - lu(k,1054) * lu(k,1373)
    3775   141174528 :          lu(k,1384) = lu(k,1384) - lu(k,1055) * lu(k,1373)
    3776   141174528 :          lu(k,1385) = - lu(k,1056) * lu(k,1373)
    3777   141174528 :          lu(k,1386) = lu(k,1386) - lu(k,1057) * lu(k,1373)
    3778   141174528 :          lu(k,1387) = lu(k,1387) - lu(k,1058) * lu(k,1373)
    3779   141174528 :          lu(k,1388) = - lu(k,1059) * lu(k,1373)
    3780   141174528 :          lu(k,1389) = lu(k,1389) - lu(k,1060) * lu(k,1373)
    3781   141174528 :          lu(k,1390) = - lu(k,1061) * lu(k,1373)
    3782   141174528 :          lu(k,1391) = lu(k,1391) - lu(k,1062) * lu(k,1373)
    3783   141174528 :          lu(k,1392) = lu(k,1392) - lu(k,1063) * lu(k,1373)
    3784   141174528 :          lu(k,1393) = lu(k,1393) - lu(k,1064) * lu(k,1373)
    3785   141174528 :          lu(k,1793) = lu(k,1793) - lu(k,1049) * lu(k,1791)
    3786   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,1050) * lu(k,1791)
    3787   141174528 :          lu(k,1799) = lu(k,1799) - lu(k,1051) * lu(k,1791)
    3788   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,1052) * lu(k,1791)
    3789   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1053) * lu(k,1791)
    3790   141174528 :          lu(k,1816) = lu(k,1816) - lu(k,1054) * lu(k,1791)
    3791   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1055) * lu(k,1791)
    3792   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1056) * lu(k,1791)
    3793   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1057) * lu(k,1791)
    3794   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1058) * lu(k,1791)
    3795   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1059) * lu(k,1791)
    3796   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1060) * lu(k,1791)
    3797   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1061) * lu(k,1791)
    3798   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1062) * lu(k,1791)
    3799   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1063) * lu(k,1791)
    3800   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1064) * lu(k,1791)
    3801   141174528 :          lu(k,2055) = lu(k,2055) - lu(k,1049) * lu(k,2053)
    3802   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,1050) * lu(k,2053)
    3803   141174528 :          lu(k,2061) = lu(k,2061) - lu(k,1051) * lu(k,2053)
    3804   141174528 :          lu(k,2068) = lu(k,2068) - lu(k,1052) * lu(k,2053)
    3805   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1053) * lu(k,2053)
    3806   141174528 :          lu(k,2077) = - lu(k,1054) * lu(k,2053)
    3807   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1055) * lu(k,2053)
    3808   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1056) * lu(k,2053)
    3809   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1057) * lu(k,2053)
    3810   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1058) * lu(k,2053)
    3811   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1059) * lu(k,2053)
    3812   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1060) * lu(k,2053)
    3813   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1061) * lu(k,2053)
    3814   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1062) * lu(k,2053)
    3815   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1063) * lu(k,2053)
    3816   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1064) * lu(k,2053)
    3817   141174528 :          lu(k,2158) = lu(k,2158) - lu(k,1049) * lu(k,2157)
    3818   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,1050) * lu(k,2157)
    3819   141174528 :          lu(k,2163) = - lu(k,1051) * lu(k,2157)
    3820   141174528 :          lu(k,2169) = lu(k,2169) - lu(k,1052) * lu(k,2157)
    3821   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1053) * lu(k,2157)
    3822   141174528 :          lu(k,2178) = lu(k,2178) - lu(k,1054) * lu(k,2157)
    3823   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1055) * lu(k,2157)
    3824   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1056) * lu(k,2157)
    3825   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1057) * lu(k,2157)
    3826   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1058) * lu(k,2157)
    3827   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1059) * lu(k,2157)
    3828   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1060) * lu(k,2157)
    3829   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1061) * lu(k,2157)
    3830   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1062) * lu(k,2157)
    3831   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1063) * lu(k,2157)
    3832   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1064) * lu(k,2157)
    3833   141174528 :          lu(k,1069) = 1._r8 / lu(k,1069)
    3834   141174528 :          lu(k,1070) = lu(k,1070) * lu(k,1069)
    3835   141174528 :          lu(k,1071) = lu(k,1071) * lu(k,1069)
    3836   141174528 :          lu(k,1072) = lu(k,1072) * lu(k,1069)
    3837   141174528 :          lu(k,1073) = lu(k,1073) * lu(k,1069)
    3838   141174528 :          lu(k,1074) = lu(k,1074) * lu(k,1069)
    3839   141174528 :          lu(k,1075) = lu(k,1075) * lu(k,1069)
    3840   141174528 :          lu(k,1076) = lu(k,1076) * lu(k,1069)
    3841   141174528 :          lu(k,1077) = lu(k,1077) * lu(k,1069)
    3842   141174528 :          lu(k,1078) = lu(k,1078) * lu(k,1069)
    3843   141174528 :          lu(k,1079) = lu(k,1079) * lu(k,1069)
    3844   141174528 :          lu(k,1080) = lu(k,1080) * lu(k,1069)
    3845   141174528 :          lu(k,1235) = - lu(k,1070) * lu(k,1233)
    3846   141174528 :          lu(k,1239) = lu(k,1239) - lu(k,1071) * lu(k,1233)
    3847   141174528 :          lu(k,1241) = lu(k,1241) - lu(k,1072) * lu(k,1233)
    3848   141174528 :          lu(k,1242) = lu(k,1242) - lu(k,1073) * lu(k,1233)
    3849   141174528 :          lu(k,1243) = lu(k,1243) - lu(k,1074) * lu(k,1233)
    3850   141174528 :          lu(k,1244) = lu(k,1244) - lu(k,1075) * lu(k,1233)
    3851   141174528 :          lu(k,1245) = - lu(k,1076) * lu(k,1233)
    3852   141174528 :          lu(k,1246) = lu(k,1246) - lu(k,1077) * lu(k,1233)
    3853   141174528 :          lu(k,1247) = lu(k,1247) - lu(k,1078) * lu(k,1233)
    3854   141174528 :          lu(k,1248) = lu(k,1248) - lu(k,1079) * lu(k,1233)
    3855   141174528 :          lu(k,1250) = lu(k,1250) - lu(k,1080) * lu(k,1233)
    3856   141174528 :          lu(k,1422) = lu(k,1422) - lu(k,1070) * lu(k,1420)
    3857   141174528 :          lu(k,1427) = lu(k,1427) - lu(k,1071) * lu(k,1420)
    3858   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,1072) * lu(k,1420)
    3859   141174528 :          lu(k,1435) = - lu(k,1073) * lu(k,1420)
    3860   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,1074) * lu(k,1420)
    3861   141174528 :          lu(k,1437) = lu(k,1437) - lu(k,1075) * lu(k,1420)
    3862   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1076) * lu(k,1420)
    3863   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1077) * lu(k,1420)
    3864   141174528 :          lu(k,1440) = lu(k,1440) - lu(k,1078) * lu(k,1420)
    3865   141174528 :          lu(k,1441) = lu(k,1441) - lu(k,1079) * lu(k,1420)
    3866   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1080) * lu(k,1420)
    3867   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,1070) * lu(k,1792)
    3868   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,1071) * lu(k,1792)
    3869   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1072) * lu(k,1792)
    3870   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1073) * lu(k,1792)
    3871   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1074) * lu(k,1792)
    3872   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1075) * lu(k,1792)
    3873   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1076) * lu(k,1792)
    3874   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1077) * lu(k,1792)
    3875   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1078) * lu(k,1792)
    3876   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1079) * lu(k,1792)
    3877   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1080) * lu(k,1792)
    3878   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,1070) * lu(k,1921)
    3879   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,1071) * lu(k,1921)
    3880   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1072) * lu(k,1921)
    3881   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1073) * lu(k,1921)
    3882   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1074) * lu(k,1921)
    3883   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1075) * lu(k,1921)
    3884   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1076) * lu(k,1921)
    3885   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1077) * lu(k,1921)
    3886   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1078) * lu(k,1921)
    3887   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1079) * lu(k,1921)
    3888   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1080) * lu(k,1921)
    3889   141174528 :          lu(k,1980) = lu(k,1980) - lu(k,1070) * lu(k,1975)
    3890   141174528 :          lu(k,1988) = lu(k,1988) - lu(k,1071) * lu(k,1975)
    3891   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1072) * lu(k,1975)
    3892   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1073) * lu(k,1975)
    3893   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1074) * lu(k,1975)
    3894   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1075) * lu(k,1975)
    3895   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1076) * lu(k,1975)
    3896   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1077) * lu(k,1975)
    3897   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1078) * lu(k,1975)
    3898   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1079) * lu(k,1975)
    3899   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1080) * lu(k,1975)
    3900   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,1070) * lu(k,2054)
    3901   141174528 :          lu(k,2068) = lu(k,2068) - lu(k,1071) * lu(k,2054)
    3902   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1072) * lu(k,2054)
    3903   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1073) * lu(k,2054)
    3904   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1074) * lu(k,2054)
    3905   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1075) * lu(k,2054)
    3906   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1076) * lu(k,2054)
    3907   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1077) * lu(k,2054)
    3908   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1078) * lu(k,2054)
    3909   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1079) * lu(k,2054)
    3910   145586232 :          lu(k,2092) = lu(k,2092) - lu(k,1080) * lu(k,2054)
    3911             :       end do
    3912     4411704 :       end subroutine lu_fac22
    3913     4411704 :       subroutine lu_fac23( avec_len, lu )
    3914             :       use chem_mods, only : nzcnt
    3915             :       use shr_kind_mod, only : r8 => shr_kind_r8
    3916             :       implicit none
    3917             : !-----------------------------------------------------------------------
    3918             : ! ... dummy args
    3919             : !-----------------------------------------------------------------------
    3920             :       integer, intent(in) :: avec_len
    3921             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    3922             : !-----------------------------------------------------------------------
    3923             : ! ... local variables
    3924             : !-----------------------------------------------------------------------
    3925             :       integer :: k
    3926   145586232 :       do k = 1,avec_len
    3927   141174528 :          lu(k,1081) = 1._r8 / lu(k,1081)
    3928   141174528 :          lu(k,1082) = lu(k,1082) * lu(k,1081)
    3929   141174528 :          lu(k,1083) = lu(k,1083) * lu(k,1081)
    3930   141174528 :          lu(k,1084) = lu(k,1084) * lu(k,1081)
    3931   141174528 :          lu(k,1085) = lu(k,1085) * lu(k,1081)
    3932   141174528 :          lu(k,1086) = lu(k,1086) * lu(k,1081)
    3933   141174528 :          lu(k,1087) = lu(k,1087) * lu(k,1081)
    3934   141174528 :          lu(k,1088) = lu(k,1088) * lu(k,1081)
    3935   141174528 :          lu(k,1089) = lu(k,1089) * lu(k,1081)
    3936   141174528 :          lu(k,1135) = lu(k,1135) - lu(k,1082) * lu(k,1133)
    3937   141174528 :          lu(k,1139) = lu(k,1139) - lu(k,1083) * lu(k,1133)
    3938   141174528 :          lu(k,1140) = lu(k,1140) - lu(k,1084) * lu(k,1133)
    3939   141174528 :          lu(k,1144) = lu(k,1144) - lu(k,1085) * lu(k,1133)
    3940   141174528 :          lu(k,1145) = lu(k,1145) - lu(k,1086) * lu(k,1133)
    3941   141174528 :          lu(k,1146) = - lu(k,1087) * lu(k,1133)
    3942   141174528 :          lu(k,1147) = lu(k,1147) - lu(k,1088) * lu(k,1133)
    3943   141174528 :          lu(k,1148) = lu(k,1148) - lu(k,1089) * lu(k,1133)
    3944   141174528 :          lu(k,1375) = lu(k,1375) - lu(k,1082) * lu(k,1374)
    3945   141174528 :          lu(k,1381) = lu(k,1381) - lu(k,1083) * lu(k,1374)
    3946   141174528 :          lu(k,1383) = - lu(k,1084) * lu(k,1374)
    3947   141174528 :          lu(k,1387) = lu(k,1387) - lu(k,1085) * lu(k,1374)
    3948   141174528 :          lu(k,1389) = lu(k,1389) - lu(k,1086) * lu(k,1374)
    3949   141174528 :          lu(k,1390) = lu(k,1390) - lu(k,1087) * lu(k,1374)
    3950   141174528 :          lu(k,1392) = lu(k,1392) - lu(k,1088) * lu(k,1374)
    3951   141174528 :          lu(k,1393) = lu(k,1393) - lu(k,1089) * lu(k,1374)
    3952   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,1082) * lu(k,1793)
    3953   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1083) * lu(k,1793)
    3954   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1084) * lu(k,1793)
    3955   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1085) * lu(k,1793)
    3956   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1086) * lu(k,1793)
    3957   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1087) * lu(k,1793)
    3958   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1088) * lu(k,1793)
    3959   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1089) * lu(k,1793)
    3960   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,1082) * lu(k,1922)
    3961   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1083) * lu(k,1922)
    3962   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1084) * lu(k,1922)
    3963   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1085) * lu(k,1922)
    3964   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1086) * lu(k,1922)
    3965   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1087) * lu(k,1922)
    3966   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1088) * lu(k,1922)
    3967   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1089) * lu(k,1922)
    3968   141174528 :          lu(k,1980) = lu(k,1980) - lu(k,1082) * lu(k,1976)
    3969   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1083) * lu(k,1976)
    3970   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1084) * lu(k,1976)
    3971   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1085) * lu(k,1976)
    3972   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1086) * lu(k,1976)
    3973   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1087) * lu(k,1976)
    3974   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1088) * lu(k,1976)
    3975   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1089) * lu(k,1976)
    3976   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,1082) * lu(k,2055)
    3977   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1083) * lu(k,2055)
    3978   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1084) * lu(k,2055)
    3979   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1085) * lu(k,2055)
    3980   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1086) * lu(k,2055)
    3981   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1087) * lu(k,2055)
    3982   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1088) * lu(k,2055)
    3983   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1089) * lu(k,2055)
    3984   141174528 :          lu(k,2112) = lu(k,2112) - lu(k,1082) * lu(k,2110)
    3985   141174528 :          lu(k,2113) = - lu(k,1083) * lu(k,2110)
    3986   141174528 :          lu(k,2117) = lu(k,2117) - lu(k,1084) * lu(k,2110)
    3987   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1085) * lu(k,2110)
    3988   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1086) * lu(k,2110)
    3989   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1087) * lu(k,2110)
    3990   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1088) * lu(k,2110)
    3991   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1089) * lu(k,2110)
    3992   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,1082) * lu(k,2158)
    3993   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1083) * lu(k,2158)
    3994   141174528 :          lu(k,2179) = - lu(k,1084) * lu(k,2158)
    3995   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1085) * lu(k,2158)
    3996   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1086) * lu(k,2158)
    3997   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1087) * lu(k,2158)
    3998   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1088) * lu(k,2158)
    3999   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1089) * lu(k,2158)
    4000   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,1082) * lu(k,2275)
    4001   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1083) * lu(k,2275)
    4002   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1084) * lu(k,2275)
    4003   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1085) * lu(k,2275)
    4004   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1086) * lu(k,2275)
    4005   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1087) * lu(k,2275)
    4006   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1088) * lu(k,2275)
    4007   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1089) * lu(k,2275)
    4008   141174528 :          lu(k,1092) = 1._r8 / lu(k,1092)
    4009   141174528 :          lu(k,1093) = lu(k,1093) * lu(k,1092)
    4010   141174528 :          lu(k,1094) = lu(k,1094) * lu(k,1092)
    4011   141174528 :          lu(k,1095) = lu(k,1095) * lu(k,1092)
    4012   141174528 :          lu(k,1096) = lu(k,1096) * lu(k,1092)
    4013   141174528 :          lu(k,1097) = lu(k,1097) * lu(k,1092)
    4014   141174528 :          lu(k,1135) = lu(k,1135) - lu(k,1093) * lu(k,1134)
    4015   141174528 :          lu(k,1141) = lu(k,1141) - lu(k,1094) * lu(k,1134)
    4016   141174528 :          lu(k,1143) = - lu(k,1095) * lu(k,1134)
    4017   141174528 :          lu(k,1144) = lu(k,1144) - lu(k,1096) * lu(k,1134)
    4018   141174528 :          lu(k,1147) = lu(k,1147) - lu(k,1097) * lu(k,1134)
    4019   141174528 :          lu(k,1162) = lu(k,1162) - lu(k,1093) * lu(k,1160)
    4020   141174528 :          lu(k,1167) = lu(k,1167) - lu(k,1094) * lu(k,1160)
    4021   141174528 :          lu(k,1169) = lu(k,1169) - lu(k,1095) * lu(k,1160)
    4022   141174528 :          lu(k,1170) = lu(k,1170) - lu(k,1096) * lu(k,1160)
    4023   141174528 :          lu(k,1173) = lu(k,1173) - lu(k,1097) * lu(k,1160)
    4024   141174528 :          lu(k,1215) = lu(k,1215) - lu(k,1093) * lu(k,1214)
    4025   141174528 :          lu(k,1220) = lu(k,1220) - lu(k,1094) * lu(k,1214)
    4026   141174528 :          lu(k,1222) = lu(k,1222) - lu(k,1095) * lu(k,1214)
    4027   141174528 :          lu(k,1223) = lu(k,1223) - lu(k,1096) * lu(k,1214)
    4028   141174528 :          lu(k,1227) = lu(k,1227) - lu(k,1097) * lu(k,1214)
    4029   141174528 :          lu(k,1235) = lu(k,1235) - lu(k,1093) * lu(k,1234)
    4030   141174528 :          lu(k,1243) = lu(k,1243) - lu(k,1094) * lu(k,1234)
    4031   141174528 :          lu(k,1245) = lu(k,1245) - lu(k,1095) * lu(k,1234)
    4032   141174528 :          lu(k,1246) = lu(k,1246) - lu(k,1096) * lu(k,1234)
    4033   141174528 :          lu(k,1250) = lu(k,1250) - lu(k,1097) * lu(k,1234)
    4034   141174528 :          lu(k,1294) = lu(k,1294) - lu(k,1093) * lu(k,1293)
    4035   141174528 :          lu(k,1307) = lu(k,1307) - lu(k,1094) * lu(k,1293)
    4036   141174528 :          lu(k,1309) = lu(k,1309) - lu(k,1095) * lu(k,1293)
    4037   141174528 :          lu(k,1310) = lu(k,1310) - lu(k,1096) * lu(k,1293)
    4038   141174528 :          lu(k,1315) = lu(k,1315) - lu(k,1097) * lu(k,1293)
    4039   141174528 :          lu(k,1327) = lu(k,1327) - lu(k,1093) * lu(k,1326)
    4040   141174528 :          lu(k,1340) = lu(k,1340) - lu(k,1094) * lu(k,1326)
    4041   141174528 :          lu(k,1342) = lu(k,1342) - lu(k,1095) * lu(k,1326)
    4042   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,1096) * lu(k,1326)
    4043   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,1097) * lu(k,1326)
    4044   141174528 :          lu(k,1353) = lu(k,1353) - lu(k,1093) * lu(k,1352)
    4045   141174528 :          lu(k,1362) = lu(k,1362) - lu(k,1094) * lu(k,1352)
    4046   141174528 :          lu(k,1364) = - lu(k,1095) * lu(k,1352)
    4047   141174528 :          lu(k,1365) = lu(k,1365) - lu(k,1096) * lu(k,1352)
    4048   141174528 :          lu(k,1369) = lu(k,1369) - lu(k,1097) * lu(k,1352)
    4049   141174528 :          lu(k,1422) = lu(k,1422) - lu(k,1093) * lu(k,1421)
    4050   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,1094) * lu(k,1421)
    4051   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1095) * lu(k,1421)
    4052   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1096) * lu(k,1421)
    4053   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1097) * lu(k,1421)
    4054   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,1093) * lu(k,1794)
    4055   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1094) * lu(k,1794)
    4056   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1095) * lu(k,1794)
    4057   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1096) * lu(k,1794)
    4058   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1097) * lu(k,1794)
    4059   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,1093) * lu(k,1923)
    4060   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1094) * lu(k,1923)
    4061   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1095) * lu(k,1923)
    4062   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1096) * lu(k,1923)
    4063   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1097) * lu(k,1923)
    4064   141174528 :          lu(k,1980) = lu(k,1980) - lu(k,1093) * lu(k,1977)
    4065   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1094) * lu(k,1977)
    4066   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1095) * lu(k,1977)
    4067   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1096) * lu(k,1977)
    4068   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1097) * lu(k,1977)
    4069   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,1093) * lu(k,2056)
    4070   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1094) * lu(k,2056)
    4071   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1095) * lu(k,2056)
    4072   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1096) * lu(k,2056)
    4073   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1097) * lu(k,2056)
    4074   141174528 :          lu(k,2112) = lu(k,2112) - lu(k,1093) * lu(k,2111)
    4075   141174528 :          lu(k,2119) = lu(k,2119) - lu(k,1094) * lu(k,2111)
    4076   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,1095) * lu(k,2111)
    4077   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1096) * lu(k,2111)
    4078   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1097) * lu(k,2111)
    4079   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,1093) * lu(k,2159)
    4080   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1094) * lu(k,2159)
    4081   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1095) * lu(k,2159)
    4082   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1096) * lu(k,2159)
    4083   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1097) * lu(k,2159)
    4084   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,1093) * lu(k,2276)
    4085   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1094) * lu(k,2276)
    4086   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1095) * lu(k,2276)
    4087   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1096) * lu(k,2276)
    4088   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1097) * lu(k,2276)
    4089   141174528 :          lu(k,1102) = 1._r8 / lu(k,1102)
    4090   141174528 :          lu(k,1103) = lu(k,1103) * lu(k,1102)
    4091   141174528 :          lu(k,1104) = lu(k,1104) * lu(k,1102)
    4092   141174528 :          lu(k,1105) = lu(k,1105) * lu(k,1102)
    4093   141174528 :          lu(k,1106) = lu(k,1106) * lu(k,1102)
    4094   141174528 :          lu(k,1107) = lu(k,1107) * lu(k,1102)
    4095   141174528 :          lu(k,1108) = lu(k,1108) * lu(k,1102)
    4096   141174528 :          lu(k,1109) = lu(k,1109) * lu(k,1102)
    4097   141174528 :          lu(k,1110) = lu(k,1110) * lu(k,1102)
    4098   141174528 :          lu(k,1111) = lu(k,1111) * lu(k,1102)
    4099   141174528 :          lu(k,1112) = lu(k,1112) * lu(k,1102)
    4100   141174528 :          lu(k,1113) = lu(k,1113) * lu(k,1102)
    4101   141174528 :          lu(k,1181) = lu(k,1181) - lu(k,1103) * lu(k,1180)
    4102   141174528 :          lu(k,1182) = lu(k,1182) - lu(k,1104) * lu(k,1180)
    4103   141174528 :          lu(k,1183) = lu(k,1183) - lu(k,1105) * lu(k,1180)
    4104   141174528 :          lu(k,1187) = lu(k,1187) - lu(k,1106) * lu(k,1180)
    4105   141174528 :          lu(k,1188) = lu(k,1188) - lu(k,1107) * lu(k,1180)
    4106   141174528 :          lu(k,1189) = lu(k,1189) - lu(k,1108) * lu(k,1180)
    4107   141174528 :          lu(k,1191) = lu(k,1191) - lu(k,1109) * lu(k,1180)
    4108   141174528 :          lu(k,1192) = lu(k,1192) - lu(k,1110) * lu(k,1180)
    4109   141174528 :          lu(k,1193) = lu(k,1193) - lu(k,1111) * lu(k,1180)
    4110   141174528 :          lu(k,1194) = lu(k,1194) - lu(k,1112) * lu(k,1180)
    4111   141174528 :          lu(k,1195) = lu(k,1195) - lu(k,1113) * lu(k,1180)
    4112   141174528 :          lu(k,1796) = lu(k,1796) - lu(k,1103) * lu(k,1795)
    4113   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,1104) * lu(k,1795)
    4114   141174528 :          lu(k,1800) = lu(k,1800) - lu(k,1105) * lu(k,1795)
    4115   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1106) * lu(k,1795)
    4116   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1107) * lu(k,1795)
    4117   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1108) * lu(k,1795)
    4118   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1109) * lu(k,1795)
    4119   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1110) * lu(k,1795)
    4120   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1111) * lu(k,1795)
    4121   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1112) * lu(k,1795)
    4122   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1113) * lu(k,1795)
    4123   141174528 :          lu(k,1925) = lu(k,1925) - lu(k,1103) * lu(k,1924)
    4124   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,1104) * lu(k,1924)
    4125   141174528 :          lu(k,1929) = lu(k,1929) - lu(k,1105) * lu(k,1924)
    4126   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1106) * lu(k,1924)
    4127   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1107) * lu(k,1924)
    4128   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1108) * lu(k,1924)
    4129   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1109) * lu(k,1924)
    4130   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1110) * lu(k,1924)
    4131   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1111) * lu(k,1924)
    4132   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1112) * lu(k,1924)
    4133   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1113) * lu(k,1924)
    4134   141174528 :          lu(k,1979) = lu(k,1979) - lu(k,1103) * lu(k,1978)
    4135   141174528 :          lu(k,1980) = lu(k,1980) - lu(k,1104) * lu(k,1978)
    4136   141174528 :          lu(k,1982) = lu(k,1982) - lu(k,1105) * lu(k,1978)
    4137   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1106) * lu(k,1978)
    4138   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1107) * lu(k,1978)
    4139   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1108) * lu(k,1978)
    4140   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1109) * lu(k,1978)
    4141   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1110) * lu(k,1978)
    4142   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1111) * lu(k,1978)
    4143   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1112) * lu(k,1978)
    4144   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1113) * lu(k,1978)
    4145   141174528 :          lu(k,2058) = lu(k,2058) - lu(k,1103) * lu(k,2057)
    4146   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,1104) * lu(k,2057)
    4147   141174528 :          lu(k,2062) = lu(k,2062) - lu(k,1105) * lu(k,2057)
    4148   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1106) * lu(k,2057)
    4149   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1107) * lu(k,2057)
    4150   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1108) * lu(k,2057)
    4151   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1109) * lu(k,2057)
    4152   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1110) * lu(k,2057)
    4153   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1111) * lu(k,2057)
    4154   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1112) * lu(k,2057)
    4155   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1113) * lu(k,2057)
    4156   141174528 :          lu(k,2161) = lu(k,2161) - lu(k,1103) * lu(k,2160)
    4157   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,1104) * lu(k,2160)
    4158   141174528 :          lu(k,2164) = lu(k,2164) - lu(k,1105) * lu(k,2160)
    4159   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1106) * lu(k,2160)
    4160   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1107) * lu(k,2160)
    4161   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1108) * lu(k,2160)
    4162   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1109) * lu(k,2160)
    4163   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1110) * lu(k,2160)
    4164   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1111) * lu(k,2160)
    4165   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1112) * lu(k,2160)
    4166   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1113) * lu(k,2160)
    4167   141174528 :          lu(k,2278) = lu(k,2278) - lu(k,1103) * lu(k,2277)
    4168   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,1104) * lu(k,2277)
    4169   141174528 :          lu(k,2281) = lu(k,2281) - lu(k,1105) * lu(k,2277)
    4170   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1106) * lu(k,2277)
    4171   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1107) * lu(k,2277)
    4172   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1108) * lu(k,2277)
    4173   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1109) * lu(k,2277)
    4174   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1110) * lu(k,2277)
    4175   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1111) * lu(k,2277)
    4176   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1112) * lu(k,2277)
    4177   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1113) * lu(k,2277)
    4178   141174528 :          lu(k,1116) = 1._r8 / lu(k,1116)
    4179   141174528 :          lu(k,1117) = lu(k,1117) * lu(k,1116)
    4180   141174528 :          lu(k,1118) = lu(k,1118) * lu(k,1116)
    4181   141174528 :          lu(k,1119) = lu(k,1119) * lu(k,1116)
    4182   141174528 :          lu(k,1120) = lu(k,1120) * lu(k,1116)
    4183   141174528 :          lu(k,1121) = lu(k,1121) * lu(k,1116)
    4184   141174528 :          lu(k,1122) = lu(k,1122) * lu(k,1116)
    4185   141174528 :          lu(k,1123) = lu(k,1123) * lu(k,1116)
    4186   141174528 :          lu(k,1124) = lu(k,1124) * lu(k,1116)
    4187   141174528 :          lu(k,1125) = lu(k,1125) * lu(k,1116)
    4188   141174528 :          lu(k,1162) = lu(k,1162) - lu(k,1117) * lu(k,1161)
    4189   141174528 :          lu(k,1164) = lu(k,1164) - lu(k,1118) * lu(k,1161)
    4190   141174528 :          lu(k,1165) = lu(k,1165) - lu(k,1119) * lu(k,1161)
    4191   141174528 :          lu(k,1167) = lu(k,1167) - lu(k,1120) * lu(k,1161)
    4192   141174528 :          lu(k,1169) = lu(k,1169) - lu(k,1121) * lu(k,1161)
    4193   141174528 :          lu(k,1170) = lu(k,1170) - lu(k,1122) * lu(k,1161)
    4194   141174528 :          lu(k,1172) = lu(k,1172) - lu(k,1123) * lu(k,1161)
    4195   141174528 :          lu(k,1173) = lu(k,1173) - lu(k,1124) * lu(k,1161)
    4196   141174528 :          lu(k,1174) = lu(k,1174) - lu(k,1125) * lu(k,1161)
    4197   141174528 :          lu(k,1182) = lu(k,1182) - lu(k,1117) * lu(k,1181)
    4198   141174528 :          lu(k,1185) = lu(k,1185) - lu(k,1118) * lu(k,1181)
    4199   141174528 :          lu(k,1186) = lu(k,1186) - lu(k,1119) * lu(k,1181)
    4200   141174528 :          lu(k,1188) = lu(k,1188) - lu(k,1120) * lu(k,1181)
    4201   141174528 :          lu(k,1190) = - lu(k,1121) * lu(k,1181)
    4202   141174528 :          lu(k,1191) = lu(k,1191) - lu(k,1122) * lu(k,1181)
    4203   141174528 :          lu(k,1193) = lu(k,1193) - lu(k,1123) * lu(k,1181)
    4204   141174528 :          lu(k,1195) = lu(k,1195) - lu(k,1124) * lu(k,1181)
    4205   141174528 :          lu(k,1196) = lu(k,1196) - lu(k,1125) * lu(k,1181)
    4206   141174528 :          lu(k,1797) = lu(k,1797) - lu(k,1117) * lu(k,1796)
    4207   141174528 :          lu(k,1802) = lu(k,1802) - lu(k,1118) * lu(k,1796)
    4208   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1119) * lu(k,1796)
    4209   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1120) * lu(k,1796)
    4210   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1121) * lu(k,1796)
    4211   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1122) * lu(k,1796)
    4212   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1123) * lu(k,1796)
    4213   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1124) * lu(k,1796)
    4214   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1125) * lu(k,1796)
    4215   141174528 :          lu(k,1926) = lu(k,1926) - lu(k,1117) * lu(k,1925)
    4216   141174528 :          lu(k,1931) = lu(k,1931) - lu(k,1118) * lu(k,1925)
    4217   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1119) * lu(k,1925)
    4218   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1120) * lu(k,1925)
    4219   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1121) * lu(k,1925)
    4220   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1122) * lu(k,1925)
    4221   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1123) * lu(k,1925)
    4222   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1124) * lu(k,1925)
    4223   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1125) * lu(k,1925)
    4224   141174528 :          lu(k,1980) = lu(k,1980) - lu(k,1117) * lu(k,1979)
    4225   141174528 :          lu(k,1984) = lu(k,1984) - lu(k,1118) * lu(k,1979)
    4226   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1119) * lu(k,1979)
    4227   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1120) * lu(k,1979)
    4228   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1121) * lu(k,1979)
    4229   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1122) * lu(k,1979)
    4230   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1123) * lu(k,1979)
    4231   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1124) * lu(k,1979)
    4232   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1125) * lu(k,1979)
    4233   141174528 :          lu(k,2059) = lu(k,2059) - lu(k,1117) * lu(k,2058)
    4234   141174528 :          lu(k,2064) = lu(k,2064) - lu(k,1118) * lu(k,2058)
    4235   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1119) * lu(k,2058)
    4236   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1120) * lu(k,2058)
    4237   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1121) * lu(k,2058)
    4238   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1122) * lu(k,2058)
    4239   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1123) * lu(k,2058)
    4240   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1124) * lu(k,2058)
    4241   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1125) * lu(k,2058)
    4242   141174528 :          lu(k,2162) = lu(k,2162) - lu(k,1117) * lu(k,2161)
    4243   141174528 :          lu(k,2166) = lu(k,2166) - lu(k,1118) * lu(k,2161)
    4244   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1119) * lu(k,2161)
    4245   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1120) * lu(k,2161)
    4246   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1121) * lu(k,2161)
    4247   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1122) * lu(k,2161)
    4248   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1123) * lu(k,2161)
    4249   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1124) * lu(k,2161)
    4250   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1125) * lu(k,2161)
    4251   141174528 :          lu(k,2279) = lu(k,2279) - lu(k,1117) * lu(k,2278)
    4252   141174528 :          lu(k,2283) = lu(k,2283) - lu(k,1118) * lu(k,2278)
    4253   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1119) * lu(k,2278)
    4254   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1120) * lu(k,2278)
    4255   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1121) * lu(k,2278)
    4256   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1122) * lu(k,2278)
    4257   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1123) * lu(k,2278)
    4258   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1124) * lu(k,2278)
    4259   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1125) * lu(k,2278)
    4260   141174528 :          lu(k,1127) = 1._r8 / lu(k,1127)
    4261   141174528 :          lu(k,1128) = lu(k,1128) * lu(k,1127)
    4262   141174528 :          lu(k,1129) = lu(k,1129) * lu(k,1127)
    4263   141174528 :          lu(k,1130) = lu(k,1130) * lu(k,1127)
    4264   141174528 :          lu(k,1143) = lu(k,1143) - lu(k,1128) * lu(k,1135)
    4265   141174528 :          lu(k,1144) = lu(k,1144) - lu(k,1129) * lu(k,1135)
    4266   141174528 :          lu(k,1147) = lu(k,1147) - lu(k,1130) * lu(k,1135)
    4267   141174528 :          lu(k,1169) = lu(k,1169) - lu(k,1128) * lu(k,1162)
    4268   141174528 :          lu(k,1170) = lu(k,1170) - lu(k,1129) * lu(k,1162)
    4269   141174528 :          lu(k,1173) = lu(k,1173) - lu(k,1130) * lu(k,1162)
    4270   141174528 :          lu(k,1190) = lu(k,1190) - lu(k,1128) * lu(k,1182)
    4271   141174528 :          lu(k,1191) = lu(k,1191) - lu(k,1129) * lu(k,1182)
    4272   141174528 :          lu(k,1195) = lu(k,1195) - lu(k,1130) * lu(k,1182)
    4273   141174528 :          lu(k,1222) = lu(k,1222) - lu(k,1128) * lu(k,1215)
    4274   141174528 :          lu(k,1223) = lu(k,1223) - lu(k,1129) * lu(k,1215)
    4275   141174528 :          lu(k,1227) = lu(k,1227) - lu(k,1130) * lu(k,1215)
    4276   141174528 :          lu(k,1245) = lu(k,1245) - lu(k,1128) * lu(k,1235)
    4277   141174528 :          lu(k,1246) = lu(k,1246) - lu(k,1129) * lu(k,1235)
    4278   141174528 :          lu(k,1250) = lu(k,1250) - lu(k,1130) * lu(k,1235)
    4279   141174528 :          lu(k,1259) = lu(k,1259) - lu(k,1128) * lu(k,1252)
    4280   141174528 :          lu(k,1260) = lu(k,1260) - lu(k,1129) * lu(k,1252)
    4281   141174528 :          lu(k,1262) = lu(k,1262) - lu(k,1130) * lu(k,1252)
    4282   141174528 :          lu(k,1268) = - lu(k,1128) * lu(k,1264)
    4283   141174528 :          lu(k,1269) = lu(k,1269) - lu(k,1129) * lu(k,1264)
    4284   141174528 :          lu(k,1271) = lu(k,1271) - lu(k,1130) * lu(k,1264)
    4285   141174528 :          lu(k,1309) = lu(k,1309) - lu(k,1128) * lu(k,1294)
    4286   141174528 :          lu(k,1310) = lu(k,1310) - lu(k,1129) * lu(k,1294)
    4287   141174528 :          lu(k,1315) = lu(k,1315) - lu(k,1130) * lu(k,1294)
    4288   141174528 :          lu(k,1342) = lu(k,1342) - lu(k,1128) * lu(k,1327)
    4289   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,1129) * lu(k,1327)
    4290   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,1130) * lu(k,1327)
    4291   141174528 :          lu(k,1364) = lu(k,1364) - lu(k,1128) * lu(k,1353)
    4292   141174528 :          lu(k,1365) = lu(k,1365) - lu(k,1129) * lu(k,1353)
    4293   141174528 :          lu(k,1369) = lu(k,1369) - lu(k,1130) * lu(k,1353)
    4294   141174528 :          lu(k,1386) = lu(k,1386) - lu(k,1128) * lu(k,1375)
    4295   141174528 :          lu(k,1387) = lu(k,1387) - lu(k,1129) * lu(k,1375)
    4296   141174528 :          lu(k,1392) = lu(k,1392) - lu(k,1130) * lu(k,1375)
    4297   141174528 :          lu(k,1406) = lu(k,1406) - lu(k,1128) * lu(k,1398)
    4298   141174528 :          lu(k,1407) = lu(k,1407) - lu(k,1129) * lu(k,1398)
    4299   141174528 :          lu(k,1412) = lu(k,1412) - lu(k,1130) * lu(k,1398)
    4300   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1128) * lu(k,1422)
    4301   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1129) * lu(k,1422)
    4302   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1130) * lu(k,1422)
    4303   141174528 :          lu(k,1465) = lu(k,1465) - lu(k,1128) * lu(k,1461)
    4304   141174528 :          lu(k,1467) = lu(k,1467) - lu(k,1129) * lu(k,1461)
    4305   141174528 :          lu(k,1470) = lu(k,1470) - lu(k,1130) * lu(k,1461)
    4306   141174528 :          lu(k,1481) = lu(k,1481) - lu(k,1128) * lu(k,1475)
    4307   141174528 :          lu(k,1483) = lu(k,1483) - lu(k,1129) * lu(k,1475)
    4308   141174528 :          lu(k,1488) = lu(k,1488) - lu(k,1130) * lu(k,1475)
    4309   141174528 :          lu(k,1534) = lu(k,1534) - lu(k,1128) * lu(k,1526)
    4310   141174528 :          lu(k,1536) = lu(k,1536) - lu(k,1129) * lu(k,1526)
    4311   141174528 :          lu(k,1544) = lu(k,1544) - lu(k,1130) * lu(k,1526)
    4312   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,1128) * lu(k,1565)
    4313   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1129) * lu(k,1565)
    4314   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1130) * lu(k,1565)
    4315   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,1128) * lu(k,1599)
    4316   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,1129) * lu(k,1599)
    4317   141174528 :          lu(k,1618) = lu(k,1618) - lu(k,1130) * lu(k,1599)
    4318   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1128) * lu(k,1797)
    4319   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1129) * lu(k,1797)
    4320   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1130) * lu(k,1797)
    4321   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1128) * lu(k,1926)
    4322   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1129) * lu(k,1926)
    4323   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1130) * lu(k,1926)
    4324   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1128) * lu(k,1980)
    4325   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1129) * lu(k,1980)
    4326   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1130) * lu(k,1980)
    4327   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1128) * lu(k,2059)
    4328   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1129) * lu(k,2059)
    4329   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1130) * lu(k,2059)
    4330   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,1128) * lu(k,2112)
    4331   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1129) * lu(k,2112)
    4332   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1130) * lu(k,2112)
    4333   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1128) * lu(k,2162)
    4334   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1129) * lu(k,2162)
    4335   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1130) * lu(k,2162)
    4336   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1128) * lu(k,2279)
    4337   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1129) * lu(k,2279)
    4338   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1130) * lu(k,2279)
    4339   141174528 :          lu(k,1136) = 1._r8 / lu(k,1136)
    4340   141174528 :          lu(k,1137) = lu(k,1137) * lu(k,1136)
    4341   141174528 :          lu(k,1138) = lu(k,1138) * lu(k,1136)
    4342   141174528 :          lu(k,1139) = lu(k,1139) * lu(k,1136)
    4343   141174528 :          lu(k,1140) = lu(k,1140) * lu(k,1136)
    4344   141174528 :          lu(k,1141) = lu(k,1141) * lu(k,1136)
    4345   141174528 :          lu(k,1142) = lu(k,1142) * lu(k,1136)
    4346   141174528 :          lu(k,1143) = lu(k,1143) * lu(k,1136)
    4347   141174528 :          lu(k,1144) = lu(k,1144) * lu(k,1136)
    4348   141174528 :          lu(k,1145) = lu(k,1145) * lu(k,1136)
    4349   141174528 :          lu(k,1146) = lu(k,1146) * lu(k,1136)
    4350   141174528 :          lu(k,1147) = lu(k,1147) * lu(k,1136)
    4351   141174528 :          lu(k,1148) = lu(k,1148) * lu(k,1136)
    4352   141174528 :          lu(k,1296) = lu(k,1296) - lu(k,1137) * lu(k,1295)
    4353   141174528 :          lu(k,1297) = - lu(k,1138) * lu(k,1295)
    4354   141174528 :          lu(k,1305) = lu(k,1305) - lu(k,1139) * lu(k,1295)
    4355   141174528 :          lu(k,1306) = lu(k,1306) - lu(k,1140) * lu(k,1295)
    4356   141174528 :          lu(k,1307) = lu(k,1307) - lu(k,1141) * lu(k,1295)
    4357   141174528 :          lu(k,1308) = lu(k,1308) - lu(k,1142) * lu(k,1295)
    4358   141174528 :          lu(k,1309) = lu(k,1309) - lu(k,1143) * lu(k,1295)
    4359   141174528 :          lu(k,1310) = lu(k,1310) - lu(k,1144) * lu(k,1295)
    4360   141174528 :          lu(k,1312) = lu(k,1312) - lu(k,1145) * lu(k,1295)
    4361   141174528 :          lu(k,1313) = lu(k,1313) - lu(k,1146) * lu(k,1295)
    4362   141174528 :          lu(k,1315) = lu(k,1315) - lu(k,1147) * lu(k,1295)
    4363   141174528 :          lu(k,1316) = - lu(k,1148) * lu(k,1295)
    4364   141174528 :          lu(k,1329) = lu(k,1329) - lu(k,1137) * lu(k,1328)
    4365   141174528 :          lu(k,1330) = - lu(k,1138) * lu(k,1328)
    4366   141174528 :          lu(k,1338) = lu(k,1338) - lu(k,1139) * lu(k,1328)
    4367   141174528 :          lu(k,1339) = lu(k,1339) - lu(k,1140) * lu(k,1328)
    4368   141174528 :          lu(k,1340) = lu(k,1340) - lu(k,1141) * lu(k,1328)
    4369   141174528 :          lu(k,1341) = lu(k,1341) - lu(k,1142) * lu(k,1328)
    4370   141174528 :          lu(k,1342) = lu(k,1342) - lu(k,1143) * lu(k,1328)
    4371   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,1144) * lu(k,1328)
    4372   141174528 :          lu(k,1345) = lu(k,1345) - lu(k,1145) * lu(k,1328)
    4373   141174528 :          lu(k,1346) = lu(k,1346) - lu(k,1146) * lu(k,1328)
    4374   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,1147) * lu(k,1328)
    4375   141174528 :          lu(k,1349) = - lu(k,1148) * lu(k,1328)
    4376   141174528 :          lu(k,1355) = lu(k,1355) - lu(k,1137) * lu(k,1354)
    4377   141174528 :          lu(k,1356) = - lu(k,1138) * lu(k,1354)
    4378   141174528 :          lu(k,1360) = lu(k,1360) - lu(k,1139) * lu(k,1354)
    4379   141174528 :          lu(k,1361) = - lu(k,1140) * lu(k,1354)
    4380   141174528 :          lu(k,1362) = lu(k,1362) - lu(k,1141) * lu(k,1354)
    4381   141174528 :          lu(k,1363) = lu(k,1363) - lu(k,1142) * lu(k,1354)
    4382   141174528 :          lu(k,1364) = lu(k,1364) - lu(k,1143) * lu(k,1354)
    4383   141174528 :          lu(k,1365) = lu(k,1365) - lu(k,1144) * lu(k,1354)
    4384   141174528 :          lu(k,1367) = lu(k,1367) - lu(k,1145) * lu(k,1354)
    4385   141174528 :          lu(k,1368) = lu(k,1368) - lu(k,1146) * lu(k,1354)
    4386   141174528 :          lu(k,1369) = lu(k,1369) - lu(k,1147) * lu(k,1354)
    4387   141174528 :          lu(k,1370) = - lu(k,1148) * lu(k,1354)
    4388   141174528 :          lu(k,1799) = lu(k,1799) - lu(k,1137) * lu(k,1798)
    4389   141174528 :          lu(k,1802) = lu(k,1802) - lu(k,1138) * lu(k,1798)
    4390   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1139) * lu(k,1798)
    4391   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1140) * lu(k,1798)
    4392   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1141) * lu(k,1798)
    4393   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1142) * lu(k,1798)
    4394   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1143) * lu(k,1798)
    4395   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1144) * lu(k,1798)
    4396   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1145) * lu(k,1798)
    4397   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1146) * lu(k,1798)
    4398   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1147) * lu(k,1798)
    4399   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1148) * lu(k,1798)
    4400   141174528 :          lu(k,1928) = lu(k,1928) - lu(k,1137) * lu(k,1927)
    4401   141174528 :          lu(k,1931) = lu(k,1931) - lu(k,1138) * lu(k,1927)
    4402   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1139) * lu(k,1927)
    4403   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1140) * lu(k,1927)
    4404   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1141) * lu(k,1927)
    4405   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1142) * lu(k,1927)
    4406   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1143) * lu(k,1927)
    4407   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1144) * lu(k,1927)
    4408   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1145) * lu(k,1927)
    4409   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1146) * lu(k,1927)
    4410   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1147) * lu(k,1927)
    4411   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1148) * lu(k,1927)
    4412   141174528 :          lu(k,2061) = lu(k,2061) - lu(k,1137) * lu(k,2060)
    4413   141174528 :          lu(k,2064) = lu(k,2064) - lu(k,1138) * lu(k,2060)
    4414   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1139) * lu(k,2060)
    4415   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1140) * lu(k,2060)
    4416   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1141) * lu(k,2060)
    4417   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1142) * lu(k,2060)
    4418   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1143) * lu(k,2060)
    4419   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1144) * lu(k,2060)
    4420   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1145) * lu(k,2060)
    4421   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1146) * lu(k,2060)
    4422   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1147) * lu(k,2060)
    4423   145586232 :          lu(k,2094) = lu(k,2094) - lu(k,1148) * lu(k,2060)
    4424             :       end do
    4425     4411704 :       end subroutine lu_fac23
    4426     4411704 :       subroutine lu_fac24( avec_len, lu )
    4427             :       use chem_mods, only : nzcnt
    4428             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4429             :       implicit none
    4430             : !-----------------------------------------------------------------------
    4431             : ! ... dummy args
    4432             : !-----------------------------------------------------------------------
    4433             :       integer, intent(in) :: avec_len
    4434             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4435             : !-----------------------------------------------------------------------
    4436             : ! ... local variables
    4437             : !-----------------------------------------------------------------------
    4438             :       integer :: k
    4439   145586232 :       do k = 1,avec_len
    4440   141174528 :          lu(k,1149) = 1._r8 / lu(k,1149)
    4441   141174528 :          lu(k,1150) = lu(k,1150) * lu(k,1149)
    4442   141174528 :          lu(k,1151) = lu(k,1151) * lu(k,1149)
    4443   141174528 :          lu(k,1152) = lu(k,1152) * lu(k,1149)
    4444   141174528 :          lu(k,1153) = lu(k,1153) * lu(k,1149)
    4445   141174528 :          lu(k,1154) = lu(k,1154) * lu(k,1149)
    4446   141174528 :          lu(k,1201) = lu(k,1201) - lu(k,1150) * lu(k,1199)
    4447   141174528 :          lu(k,1202) = lu(k,1202) - lu(k,1151) * lu(k,1199)
    4448   141174528 :          lu(k,1203) = lu(k,1203) - lu(k,1152) * lu(k,1199)
    4449   141174528 :          lu(k,1205) = lu(k,1205) - lu(k,1153) * lu(k,1199)
    4450   141174528 :          lu(k,1208) = lu(k,1208) - lu(k,1154) * lu(k,1199)
    4451   141174528 :          lu(k,1218) = lu(k,1218) - lu(k,1150) * lu(k,1216)
    4452   141174528 :          lu(k,1219) = lu(k,1219) - lu(k,1151) * lu(k,1216)
    4453   141174528 :          lu(k,1220) = lu(k,1220) - lu(k,1152) * lu(k,1216)
    4454   141174528 :          lu(k,1223) = lu(k,1223) - lu(k,1153) * lu(k,1216)
    4455   141174528 :          lu(k,1227) = lu(k,1227) - lu(k,1154) * lu(k,1216)
    4456   141174528 :          lu(k,1300) = - lu(k,1150) * lu(k,1296)
    4457   141174528 :          lu(k,1305) = lu(k,1305) - lu(k,1151) * lu(k,1296)
    4458   141174528 :          lu(k,1307) = lu(k,1307) - lu(k,1152) * lu(k,1296)
    4459   141174528 :          lu(k,1310) = lu(k,1310) - lu(k,1153) * lu(k,1296)
    4460   141174528 :          lu(k,1315) = lu(k,1315) - lu(k,1154) * lu(k,1296)
    4461   141174528 :          lu(k,1333) = lu(k,1333) - lu(k,1150) * lu(k,1329)
    4462   141174528 :          lu(k,1338) = lu(k,1338) - lu(k,1151) * lu(k,1329)
    4463   141174528 :          lu(k,1340) = lu(k,1340) - lu(k,1152) * lu(k,1329)
    4464   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,1153) * lu(k,1329)
    4465   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,1154) * lu(k,1329)
    4466   141174528 :          lu(k,1357) = lu(k,1357) - lu(k,1150) * lu(k,1355)
    4467   141174528 :          lu(k,1360) = lu(k,1360) - lu(k,1151) * lu(k,1355)
    4468   141174528 :          lu(k,1362) = lu(k,1362) - lu(k,1152) * lu(k,1355)
    4469   141174528 :          lu(k,1365) = lu(k,1365) - lu(k,1153) * lu(k,1355)
    4470   141174528 :          lu(k,1369) = lu(k,1369) - lu(k,1154) * lu(k,1355)
    4471   141174528 :          lu(k,1377) = lu(k,1377) - lu(k,1150) * lu(k,1376)
    4472   141174528 :          lu(k,1381) = lu(k,1381) - lu(k,1151) * lu(k,1376)
    4473   141174528 :          lu(k,1384) = lu(k,1384) - lu(k,1152) * lu(k,1376)
    4474   141174528 :          lu(k,1387) = lu(k,1387) - lu(k,1153) * lu(k,1376)
    4475   141174528 :          lu(k,1392) = lu(k,1392) - lu(k,1154) * lu(k,1376)
    4476   141174528 :          lu(k,1400) = - lu(k,1150) * lu(k,1399)
    4477   141174528 :          lu(k,1402) = lu(k,1402) - lu(k,1151) * lu(k,1399)
    4478   141174528 :          lu(k,1404) = lu(k,1404) - lu(k,1152) * lu(k,1399)
    4479   141174528 :          lu(k,1407) = lu(k,1407) - lu(k,1153) * lu(k,1399)
    4480   141174528 :          lu(k,1412) = lu(k,1412) - lu(k,1154) * lu(k,1399)
    4481   141174528 :          lu(k,1427) = lu(k,1427) - lu(k,1150) * lu(k,1423)
    4482   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,1151) * lu(k,1423)
    4483   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,1152) * lu(k,1423)
    4484   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1153) * lu(k,1423)
    4485   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1154) * lu(k,1423)
    4486   141174528 :          lu(k,1567) = lu(k,1567) - lu(k,1150) * lu(k,1566)
    4487   141174528 :          lu(k,1570) = lu(k,1570) - lu(k,1151) * lu(k,1566)
    4488   141174528 :          lu(k,1575) = lu(k,1575) - lu(k,1152) * lu(k,1566)
    4489   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1153) * lu(k,1566)
    4490   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1154) * lu(k,1566)
    4491   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,1150) * lu(k,1799)
    4492   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1151) * lu(k,1799)
    4493   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1152) * lu(k,1799)
    4494   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1153) * lu(k,1799)
    4495   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1154) * lu(k,1799)
    4496   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,1150) * lu(k,1928)
    4497   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1151) * lu(k,1928)
    4498   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1152) * lu(k,1928)
    4499   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1153) * lu(k,1928)
    4500   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1154) * lu(k,1928)
    4501   141174528 :          lu(k,1988) = lu(k,1988) - lu(k,1150) * lu(k,1981)
    4502   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1151) * lu(k,1981)
    4503   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1152) * lu(k,1981)
    4504   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1153) * lu(k,1981)
    4505   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1154) * lu(k,1981)
    4506   141174528 :          lu(k,2068) = lu(k,2068) - lu(k,1150) * lu(k,2061)
    4507   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1151) * lu(k,2061)
    4508   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1152) * lu(k,2061)
    4509   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1153) * lu(k,2061)
    4510   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1154) * lu(k,2061)
    4511   141174528 :          lu(k,2169) = lu(k,2169) - lu(k,1150) * lu(k,2163)
    4512   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1151) * lu(k,2163)
    4513   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1152) * lu(k,2163)
    4514   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1153) * lu(k,2163)
    4515   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1154) * lu(k,2163)
    4516   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,1150) * lu(k,2280)
    4517   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1151) * lu(k,2280)
    4518   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1152) * lu(k,2280)
    4519   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1153) * lu(k,2280)
    4520   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1154) * lu(k,2280)
    4521   141174528 :          lu(k,1163) = 1._r8 / lu(k,1163)
    4522   141174528 :          lu(k,1164) = lu(k,1164) * lu(k,1163)
    4523   141174528 :          lu(k,1165) = lu(k,1165) * lu(k,1163)
    4524   141174528 :          lu(k,1166) = lu(k,1166) * lu(k,1163)
    4525   141174528 :          lu(k,1167) = lu(k,1167) * lu(k,1163)
    4526   141174528 :          lu(k,1168) = lu(k,1168) * lu(k,1163)
    4527   141174528 :          lu(k,1169) = lu(k,1169) * lu(k,1163)
    4528   141174528 :          lu(k,1170) = lu(k,1170) * lu(k,1163)
    4529   141174528 :          lu(k,1171) = lu(k,1171) * lu(k,1163)
    4530   141174528 :          lu(k,1172) = lu(k,1172) * lu(k,1163)
    4531   141174528 :          lu(k,1173) = lu(k,1173) * lu(k,1163)
    4532   141174528 :          lu(k,1174) = lu(k,1174) * lu(k,1163)
    4533   141174528 :          lu(k,1185) = lu(k,1185) - lu(k,1164) * lu(k,1183)
    4534   141174528 :          lu(k,1186) = lu(k,1186) - lu(k,1165) * lu(k,1183)
    4535   141174528 :          lu(k,1187) = lu(k,1187) - lu(k,1166) * lu(k,1183)
    4536   141174528 :          lu(k,1188) = lu(k,1188) - lu(k,1167) * lu(k,1183)
    4537   141174528 :          lu(k,1189) = lu(k,1189) - lu(k,1168) * lu(k,1183)
    4538   141174528 :          lu(k,1190) = lu(k,1190) - lu(k,1169) * lu(k,1183)
    4539   141174528 :          lu(k,1191) = lu(k,1191) - lu(k,1170) * lu(k,1183)
    4540   141174528 :          lu(k,1192) = lu(k,1192) - lu(k,1171) * lu(k,1183)
    4541   141174528 :          lu(k,1193) = lu(k,1193) - lu(k,1172) * lu(k,1183)
    4542   141174528 :          lu(k,1195) = lu(k,1195) - lu(k,1173) * lu(k,1183)
    4543   141174528 :          lu(k,1196) = lu(k,1196) - lu(k,1174) * lu(k,1183)
    4544   141174528 :          lu(k,1802) = lu(k,1802) - lu(k,1164) * lu(k,1800)
    4545   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1165) * lu(k,1800)
    4546   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1166) * lu(k,1800)
    4547   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1167) * lu(k,1800)
    4548   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1168) * lu(k,1800)
    4549   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1169) * lu(k,1800)
    4550   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1170) * lu(k,1800)
    4551   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1171) * lu(k,1800)
    4552   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1172) * lu(k,1800)
    4553   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1173) * lu(k,1800)
    4554   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1174) * lu(k,1800)
    4555   141174528 :          lu(k,1931) = lu(k,1931) - lu(k,1164) * lu(k,1929)
    4556   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1165) * lu(k,1929)
    4557   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1166) * lu(k,1929)
    4558   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1167) * lu(k,1929)
    4559   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1168) * lu(k,1929)
    4560   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1169) * lu(k,1929)
    4561   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1170) * lu(k,1929)
    4562   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1171) * lu(k,1929)
    4563   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1172) * lu(k,1929)
    4564   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1173) * lu(k,1929)
    4565   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1174) * lu(k,1929)
    4566   141174528 :          lu(k,1984) = lu(k,1984) - lu(k,1164) * lu(k,1982)
    4567   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1165) * lu(k,1982)
    4568   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1166) * lu(k,1982)
    4569   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1167) * lu(k,1982)
    4570   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1168) * lu(k,1982)
    4571   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1169) * lu(k,1982)
    4572   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1170) * lu(k,1982)
    4573   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1171) * lu(k,1982)
    4574   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1172) * lu(k,1982)
    4575   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1173) * lu(k,1982)
    4576   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1174) * lu(k,1982)
    4577   141174528 :          lu(k,2064) = lu(k,2064) - lu(k,1164) * lu(k,2062)
    4578   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1165) * lu(k,2062)
    4579   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1166) * lu(k,2062)
    4580   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1167) * lu(k,2062)
    4581   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1168) * lu(k,2062)
    4582   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1169) * lu(k,2062)
    4583   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1170) * lu(k,2062)
    4584   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1171) * lu(k,2062)
    4585   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1172) * lu(k,2062)
    4586   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1173) * lu(k,2062)
    4587   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1174) * lu(k,2062)
    4588   141174528 :          lu(k,2166) = lu(k,2166) - lu(k,1164) * lu(k,2164)
    4589   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1165) * lu(k,2164)
    4590   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1166) * lu(k,2164)
    4591   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1167) * lu(k,2164)
    4592   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1168) * lu(k,2164)
    4593   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1169) * lu(k,2164)
    4594   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1170) * lu(k,2164)
    4595   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1171) * lu(k,2164)
    4596   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1172) * lu(k,2164)
    4597   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1173) * lu(k,2164)
    4598   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1174) * lu(k,2164)
    4599   141174528 :          lu(k,2283) = lu(k,2283) - lu(k,1164) * lu(k,2281)
    4600   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1165) * lu(k,2281)
    4601   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1166) * lu(k,2281)
    4602   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1167) * lu(k,2281)
    4603   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1168) * lu(k,2281)
    4604   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1169) * lu(k,2281)
    4605   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1170) * lu(k,2281)
    4606   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1171) * lu(k,2281)
    4607   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1172) * lu(k,2281)
    4608   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1173) * lu(k,2281)
    4609   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1174) * lu(k,2281)
    4610   141174528 :          lu(k,1184) = 1._r8 / lu(k,1184)
    4611   141174528 :          lu(k,1185) = lu(k,1185) * lu(k,1184)
    4612   141174528 :          lu(k,1186) = lu(k,1186) * lu(k,1184)
    4613   141174528 :          lu(k,1187) = lu(k,1187) * lu(k,1184)
    4614   141174528 :          lu(k,1188) = lu(k,1188) * lu(k,1184)
    4615   141174528 :          lu(k,1189) = lu(k,1189) * lu(k,1184)
    4616   141174528 :          lu(k,1190) = lu(k,1190) * lu(k,1184)
    4617   141174528 :          lu(k,1191) = lu(k,1191) * lu(k,1184)
    4618   141174528 :          lu(k,1192) = lu(k,1192) * lu(k,1184)
    4619   141174528 :          lu(k,1193) = lu(k,1193) * lu(k,1184)
    4620   141174528 :          lu(k,1194) = lu(k,1194) * lu(k,1184)
    4621   141174528 :          lu(k,1195) = lu(k,1195) * lu(k,1184)
    4622   141174528 :          lu(k,1196) = lu(k,1196) * lu(k,1184)
    4623   141174528 :          lu(k,1802) = lu(k,1802) - lu(k,1185) * lu(k,1801)
    4624   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1186) * lu(k,1801)
    4625   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1187) * lu(k,1801)
    4626   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1188) * lu(k,1801)
    4627   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1189) * lu(k,1801)
    4628   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1190) * lu(k,1801)
    4629   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1191) * lu(k,1801)
    4630   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1192) * lu(k,1801)
    4631   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1193) * lu(k,1801)
    4632   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1194) * lu(k,1801)
    4633   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1195) * lu(k,1801)
    4634   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1196) * lu(k,1801)
    4635   141174528 :          lu(k,1931) = lu(k,1931) - lu(k,1185) * lu(k,1930)
    4636   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1186) * lu(k,1930)
    4637   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1187) * lu(k,1930)
    4638   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1188) * lu(k,1930)
    4639   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1189) * lu(k,1930)
    4640   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1190) * lu(k,1930)
    4641   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1191) * lu(k,1930)
    4642   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1192) * lu(k,1930)
    4643   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1193) * lu(k,1930)
    4644   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1194) * lu(k,1930)
    4645   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1195) * lu(k,1930)
    4646   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1196) * lu(k,1930)
    4647   141174528 :          lu(k,1984) = lu(k,1984) - lu(k,1185) * lu(k,1983)
    4648   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1186) * lu(k,1983)
    4649   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1187) * lu(k,1983)
    4650   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1188) * lu(k,1983)
    4651   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1189) * lu(k,1983)
    4652   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1190) * lu(k,1983)
    4653   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1191) * lu(k,1983)
    4654   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1192) * lu(k,1983)
    4655   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1193) * lu(k,1983)
    4656   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1194) * lu(k,1983)
    4657   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1195) * lu(k,1983)
    4658   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1196) * lu(k,1983)
    4659   141174528 :          lu(k,2064) = lu(k,2064) - lu(k,1185) * lu(k,2063)
    4660   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1186) * lu(k,2063)
    4661   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1187) * lu(k,2063)
    4662   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1188) * lu(k,2063)
    4663   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1189) * lu(k,2063)
    4664   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1190) * lu(k,2063)
    4665   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1191) * lu(k,2063)
    4666   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1192) * lu(k,2063)
    4667   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1193) * lu(k,2063)
    4668   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1194) * lu(k,2063)
    4669   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1195) * lu(k,2063)
    4670   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1196) * lu(k,2063)
    4671   141174528 :          lu(k,2166) = lu(k,2166) - lu(k,1185) * lu(k,2165)
    4672   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1186) * lu(k,2165)
    4673   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1187) * lu(k,2165)
    4674   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1188) * lu(k,2165)
    4675   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1189) * lu(k,2165)
    4676   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1190) * lu(k,2165)
    4677   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1191) * lu(k,2165)
    4678   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1192) * lu(k,2165)
    4679   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1193) * lu(k,2165)
    4680   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1194) * lu(k,2165)
    4681   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1195) * lu(k,2165)
    4682   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1196) * lu(k,2165)
    4683   141174528 :          lu(k,2283) = lu(k,2283) - lu(k,1185) * lu(k,2282)
    4684   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1186) * lu(k,2282)
    4685   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1187) * lu(k,2282)
    4686   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1188) * lu(k,2282)
    4687   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1189) * lu(k,2282)
    4688   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1190) * lu(k,2282)
    4689   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1191) * lu(k,2282)
    4690   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1192) * lu(k,2282)
    4691   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1193) * lu(k,2282)
    4692   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1194) * lu(k,2282)
    4693   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1195) * lu(k,2282)
    4694   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1196) * lu(k,2282)
    4695   141174528 :          lu(k,1200) = 1._r8 / lu(k,1200)
    4696   141174528 :          lu(k,1201) = lu(k,1201) * lu(k,1200)
    4697   141174528 :          lu(k,1202) = lu(k,1202) * lu(k,1200)
    4698   141174528 :          lu(k,1203) = lu(k,1203) * lu(k,1200)
    4699   141174528 :          lu(k,1204) = lu(k,1204) * lu(k,1200)
    4700   141174528 :          lu(k,1205) = lu(k,1205) * lu(k,1200)
    4701   141174528 :          lu(k,1206) = lu(k,1206) * lu(k,1200)
    4702   141174528 :          lu(k,1207) = lu(k,1207) * lu(k,1200)
    4703   141174528 :          lu(k,1208) = lu(k,1208) * lu(k,1200)
    4704   141174528 :          lu(k,1209) = lu(k,1209) * lu(k,1200)
    4705   141174528 :          lu(k,1300) = lu(k,1300) - lu(k,1201) * lu(k,1297)
    4706   141174528 :          lu(k,1305) = lu(k,1305) - lu(k,1202) * lu(k,1297)
    4707   141174528 :          lu(k,1307) = lu(k,1307) - lu(k,1203) * lu(k,1297)
    4708   141174528 :          lu(k,1308) = lu(k,1308) - lu(k,1204) * lu(k,1297)
    4709   141174528 :          lu(k,1310) = lu(k,1310) - lu(k,1205) * lu(k,1297)
    4710   141174528 :          lu(k,1311) = lu(k,1311) - lu(k,1206) * lu(k,1297)
    4711   141174528 :          lu(k,1312) = lu(k,1312) - lu(k,1207) * lu(k,1297)
    4712   141174528 :          lu(k,1315) = lu(k,1315) - lu(k,1208) * lu(k,1297)
    4713   141174528 :          lu(k,1316) = lu(k,1316) - lu(k,1209) * lu(k,1297)
    4714   141174528 :          lu(k,1333) = lu(k,1333) - lu(k,1201) * lu(k,1330)
    4715   141174528 :          lu(k,1338) = lu(k,1338) - lu(k,1202) * lu(k,1330)
    4716   141174528 :          lu(k,1340) = lu(k,1340) - lu(k,1203) * lu(k,1330)
    4717   141174528 :          lu(k,1341) = lu(k,1341) - lu(k,1204) * lu(k,1330)
    4718   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,1205) * lu(k,1330)
    4719   141174528 :          lu(k,1344) = lu(k,1344) - lu(k,1206) * lu(k,1330)
    4720   141174528 :          lu(k,1345) = lu(k,1345) - lu(k,1207) * lu(k,1330)
    4721   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,1208) * lu(k,1330)
    4722   141174528 :          lu(k,1349) = lu(k,1349) - lu(k,1209) * lu(k,1330)
    4723   141174528 :          lu(k,1357) = lu(k,1357) - lu(k,1201) * lu(k,1356)
    4724   141174528 :          lu(k,1360) = lu(k,1360) - lu(k,1202) * lu(k,1356)
    4725   141174528 :          lu(k,1362) = lu(k,1362) - lu(k,1203) * lu(k,1356)
    4726   141174528 :          lu(k,1363) = lu(k,1363) - lu(k,1204) * lu(k,1356)
    4727   141174528 :          lu(k,1365) = lu(k,1365) - lu(k,1205) * lu(k,1356)
    4728   141174528 :          lu(k,1366) = lu(k,1366) - lu(k,1206) * lu(k,1356)
    4729   141174528 :          lu(k,1367) = lu(k,1367) - lu(k,1207) * lu(k,1356)
    4730   141174528 :          lu(k,1369) = lu(k,1369) - lu(k,1208) * lu(k,1356)
    4731   141174528 :          lu(k,1370) = lu(k,1370) - lu(k,1209) * lu(k,1356)
    4732   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,1201) * lu(k,1802)
    4733   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1202) * lu(k,1802)
    4734   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1203) * lu(k,1802)
    4735   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1204) * lu(k,1802)
    4736   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1205) * lu(k,1802)
    4737   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1206) * lu(k,1802)
    4738   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1207) * lu(k,1802)
    4739   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1208) * lu(k,1802)
    4740   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1209) * lu(k,1802)
    4741   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,1201) * lu(k,1931)
    4742   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1202) * lu(k,1931)
    4743   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1203) * lu(k,1931)
    4744   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1204) * lu(k,1931)
    4745   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1205) * lu(k,1931)
    4746   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1206) * lu(k,1931)
    4747   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1207) * lu(k,1931)
    4748   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1208) * lu(k,1931)
    4749   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1209) * lu(k,1931)
    4750   141174528 :          lu(k,1988) = lu(k,1988) - lu(k,1201) * lu(k,1984)
    4751   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1202) * lu(k,1984)
    4752   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1203) * lu(k,1984)
    4753   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1204) * lu(k,1984)
    4754   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1205) * lu(k,1984)
    4755   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1206) * lu(k,1984)
    4756   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1207) * lu(k,1984)
    4757   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1208) * lu(k,1984)
    4758   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1209) * lu(k,1984)
    4759   141174528 :          lu(k,2068) = lu(k,2068) - lu(k,1201) * lu(k,2064)
    4760   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1202) * lu(k,2064)
    4761   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1203) * lu(k,2064)
    4762   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1204) * lu(k,2064)
    4763   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1205) * lu(k,2064)
    4764   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1206) * lu(k,2064)
    4765   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1207) * lu(k,2064)
    4766   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1208) * lu(k,2064)
    4767   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1209) * lu(k,2064)
    4768   141174528 :          lu(k,2169) = lu(k,2169) - lu(k,1201) * lu(k,2166)
    4769   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1202) * lu(k,2166)
    4770   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1203) * lu(k,2166)
    4771   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1204) * lu(k,2166)
    4772   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1205) * lu(k,2166)
    4773   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1206) * lu(k,2166)
    4774   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1207) * lu(k,2166)
    4775   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1208) * lu(k,2166)
    4776   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1209) * lu(k,2166)
    4777   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,1201) * lu(k,2283)
    4778   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1202) * lu(k,2283)
    4779   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1203) * lu(k,2283)
    4780   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1204) * lu(k,2283)
    4781   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1205) * lu(k,2283)
    4782   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1206) * lu(k,2283)
    4783   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1207) * lu(k,2283)
    4784   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1208) * lu(k,2283)
    4785   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1209) * lu(k,2283)
    4786   141174528 :          lu(k,1217) = 1._r8 / lu(k,1217)
    4787   141174528 :          lu(k,1218) = lu(k,1218) * lu(k,1217)
    4788   141174528 :          lu(k,1219) = lu(k,1219) * lu(k,1217)
    4789   141174528 :          lu(k,1220) = lu(k,1220) * lu(k,1217)
    4790   141174528 :          lu(k,1221) = lu(k,1221) * lu(k,1217)
    4791   141174528 :          lu(k,1222) = lu(k,1222) * lu(k,1217)
    4792   141174528 :          lu(k,1223) = lu(k,1223) * lu(k,1217)
    4793   141174528 :          lu(k,1224) = lu(k,1224) * lu(k,1217)
    4794   141174528 :          lu(k,1225) = lu(k,1225) * lu(k,1217)
    4795   141174528 :          lu(k,1226) = lu(k,1226) * lu(k,1217)
    4796   141174528 :          lu(k,1227) = lu(k,1227) * lu(k,1217)
    4797   141174528 :          lu(k,1239) = lu(k,1239) - lu(k,1218) * lu(k,1236)
    4798   141174528 :          lu(k,1241) = lu(k,1241) - lu(k,1219) * lu(k,1236)
    4799   141174528 :          lu(k,1243) = lu(k,1243) - lu(k,1220) * lu(k,1236)
    4800   141174528 :          lu(k,1244) = lu(k,1244) - lu(k,1221) * lu(k,1236)
    4801   141174528 :          lu(k,1245) = lu(k,1245) - lu(k,1222) * lu(k,1236)
    4802   141174528 :          lu(k,1246) = lu(k,1246) - lu(k,1223) * lu(k,1236)
    4803   141174528 :          lu(k,1247) = lu(k,1247) - lu(k,1224) * lu(k,1236)
    4804   141174528 :          lu(k,1248) = lu(k,1248) - lu(k,1225) * lu(k,1236)
    4805   141174528 :          lu(k,1249) = lu(k,1249) - lu(k,1226) * lu(k,1236)
    4806   141174528 :          lu(k,1250) = lu(k,1250) - lu(k,1227) * lu(k,1236)
    4807   141174528 :          lu(k,1300) = lu(k,1300) - lu(k,1218) * lu(k,1298)
    4808   141174528 :          lu(k,1305) = lu(k,1305) - lu(k,1219) * lu(k,1298)
    4809   141174528 :          lu(k,1307) = lu(k,1307) - lu(k,1220) * lu(k,1298)
    4810   141174528 :          lu(k,1308) = lu(k,1308) - lu(k,1221) * lu(k,1298)
    4811   141174528 :          lu(k,1309) = lu(k,1309) - lu(k,1222) * lu(k,1298)
    4812   141174528 :          lu(k,1310) = lu(k,1310) - lu(k,1223) * lu(k,1298)
    4813   141174528 :          lu(k,1311) = lu(k,1311) - lu(k,1224) * lu(k,1298)
    4814   141174528 :          lu(k,1312) = lu(k,1312) - lu(k,1225) * lu(k,1298)
    4815   141174528 :          lu(k,1313) = lu(k,1313) - lu(k,1226) * lu(k,1298)
    4816   141174528 :          lu(k,1315) = lu(k,1315) - lu(k,1227) * lu(k,1298)
    4817   141174528 :          lu(k,1333) = lu(k,1333) - lu(k,1218) * lu(k,1331)
    4818   141174528 :          lu(k,1338) = lu(k,1338) - lu(k,1219) * lu(k,1331)
    4819   141174528 :          lu(k,1340) = lu(k,1340) - lu(k,1220) * lu(k,1331)
    4820   141174528 :          lu(k,1341) = lu(k,1341) - lu(k,1221) * lu(k,1331)
    4821   141174528 :          lu(k,1342) = lu(k,1342) - lu(k,1222) * lu(k,1331)
    4822   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,1223) * lu(k,1331)
    4823   141174528 :          lu(k,1344) = lu(k,1344) - lu(k,1224) * lu(k,1331)
    4824   141174528 :          lu(k,1345) = lu(k,1345) - lu(k,1225) * lu(k,1331)
    4825   141174528 :          lu(k,1346) = lu(k,1346) - lu(k,1226) * lu(k,1331)
    4826   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,1227) * lu(k,1331)
    4827   141174528 :          lu(k,1427) = lu(k,1427) - lu(k,1218) * lu(k,1424)
    4828   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,1219) * lu(k,1424)
    4829   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,1220) * lu(k,1424)
    4830   141174528 :          lu(k,1437) = lu(k,1437) - lu(k,1221) * lu(k,1424)
    4831   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1222) * lu(k,1424)
    4832   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1223) * lu(k,1424)
    4833   141174528 :          lu(k,1440) = lu(k,1440) - lu(k,1224) * lu(k,1424)
    4834   141174528 :          lu(k,1441) = lu(k,1441) - lu(k,1225) * lu(k,1424)
    4835   141174528 :          lu(k,1442) = lu(k,1442) - lu(k,1226) * lu(k,1424)
    4836   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1227) * lu(k,1424)
    4837   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,1218) * lu(k,1803)
    4838   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1219) * lu(k,1803)
    4839   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1220) * lu(k,1803)
    4840   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1221) * lu(k,1803)
    4841   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1222) * lu(k,1803)
    4842   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1223) * lu(k,1803)
    4843   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1224) * lu(k,1803)
    4844   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1225) * lu(k,1803)
    4845   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1226) * lu(k,1803)
    4846   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1227) * lu(k,1803)
    4847   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,1218) * lu(k,1932)
    4848   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1219) * lu(k,1932)
    4849   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1220) * lu(k,1932)
    4850   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1221) * lu(k,1932)
    4851   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1222) * lu(k,1932)
    4852   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1223) * lu(k,1932)
    4853   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1224) * lu(k,1932)
    4854   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1225) * lu(k,1932)
    4855   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1226) * lu(k,1932)
    4856   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1227) * lu(k,1932)
    4857   141174528 :          lu(k,1988) = lu(k,1988) - lu(k,1218) * lu(k,1985)
    4858   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1219) * lu(k,1985)
    4859   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1220) * lu(k,1985)
    4860   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1221) * lu(k,1985)
    4861   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1222) * lu(k,1985)
    4862   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1223) * lu(k,1985)
    4863   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1224) * lu(k,1985)
    4864   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1225) * lu(k,1985)
    4865   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1226) * lu(k,1985)
    4866   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1227) * lu(k,1985)
    4867   141174528 :          lu(k,2068) = lu(k,2068) - lu(k,1218) * lu(k,2065)
    4868   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1219) * lu(k,2065)
    4869   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1220) * lu(k,2065)
    4870   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1221) * lu(k,2065)
    4871   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1222) * lu(k,2065)
    4872   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1223) * lu(k,2065)
    4873   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1224) * lu(k,2065)
    4874   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1225) * lu(k,2065)
    4875   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1226) * lu(k,2065)
    4876   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1227) * lu(k,2065)
    4877   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,1218) * lu(k,2284)
    4878   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1219) * lu(k,2284)
    4879   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1220) * lu(k,2284)
    4880   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1221) * lu(k,2284)
    4881   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1222) * lu(k,2284)
    4882   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1223) * lu(k,2284)
    4883   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1224) * lu(k,2284)
    4884   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1225) * lu(k,2284)
    4885   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1226) * lu(k,2284)
    4886   145586232 :          lu(k,2311) = lu(k,2311) - lu(k,1227) * lu(k,2284)
    4887             :       end do
    4888     4411704 :       end subroutine lu_fac24
    4889     4411704 :       subroutine lu_fac25( avec_len, lu )
    4890             :       use chem_mods, only : nzcnt
    4891             :       use shr_kind_mod, only : r8 => shr_kind_r8
    4892             :       implicit none
    4893             : !-----------------------------------------------------------------------
    4894             : ! ... dummy args
    4895             : !-----------------------------------------------------------------------
    4896             :       integer, intent(in) :: avec_len
    4897             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    4898             : !-----------------------------------------------------------------------
    4899             : ! ... local variables
    4900             : !-----------------------------------------------------------------------
    4901             :       integer :: k
    4902   145586232 :       do k = 1,avec_len
    4903   141174528 :          lu(k,1237) = 1._r8 / lu(k,1237)
    4904   141174528 :          lu(k,1238) = lu(k,1238) * lu(k,1237)
    4905   141174528 :          lu(k,1239) = lu(k,1239) * lu(k,1237)
    4906   141174528 :          lu(k,1240) = lu(k,1240) * lu(k,1237)
    4907   141174528 :          lu(k,1241) = lu(k,1241) * lu(k,1237)
    4908   141174528 :          lu(k,1242) = lu(k,1242) * lu(k,1237)
    4909   141174528 :          lu(k,1243) = lu(k,1243) * lu(k,1237)
    4910   141174528 :          lu(k,1244) = lu(k,1244) * lu(k,1237)
    4911   141174528 :          lu(k,1245) = lu(k,1245) * lu(k,1237)
    4912   141174528 :          lu(k,1246) = lu(k,1246) * lu(k,1237)
    4913   141174528 :          lu(k,1247) = lu(k,1247) * lu(k,1237)
    4914   141174528 :          lu(k,1248) = lu(k,1248) * lu(k,1237)
    4915   141174528 :          lu(k,1249) = lu(k,1249) * lu(k,1237)
    4916   141174528 :          lu(k,1250) = lu(k,1250) * lu(k,1237)
    4917   141174528 :          lu(k,1426) = lu(k,1426) - lu(k,1238) * lu(k,1425)
    4918   141174528 :          lu(k,1427) = lu(k,1427) - lu(k,1239) * lu(k,1425)
    4919   141174528 :          lu(k,1431) = lu(k,1431) - lu(k,1240) * lu(k,1425)
    4920   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,1241) * lu(k,1425)
    4921   141174528 :          lu(k,1435) = lu(k,1435) - lu(k,1242) * lu(k,1425)
    4922   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,1243) * lu(k,1425)
    4923   141174528 :          lu(k,1437) = lu(k,1437) - lu(k,1244) * lu(k,1425)
    4924   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1245) * lu(k,1425)
    4925   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1246) * lu(k,1425)
    4926   141174528 :          lu(k,1440) = lu(k,1440) - lu(k,1247) * lu(k,1425)
    4927   141174528 :          lu(k,1441) = lu(k,1441) - lu(k,1248) * lu(k,1425)
    4928   141174528 :          lu(k,1442) = lu(k,1442) - lu(k,1249) * lu(k,1425)
    4929   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1250) * lu(k,1425)
    4930   141174528 :          lu(k,1805) = lu(k,1805) - lu(k,1238) * lu(k,1804)
    4931   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,1239) * lu(k,1804)
    4932   141174528 :          lu(k,1811) = lu(k,1811) - lu(k,1240) * lu(k,1804)
    4933   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1241) * lu(k,1804)
    4934   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1242) * lu(k,1804)
    4935   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1243) * lu(k,1804)
    4936   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1244) * lu(k,1804)
    4937   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1245) * lu(k,1804)
    4938   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1246) * lu(k,1804)
    4939   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1247) * lu(k,1804)
    4940   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1248) * lu(k,1804)
    4941   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1249) * lu(k,1804)
    4942   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1250) * lu(k,1804)
    4943   141174528 :          lu(k,1934) = lu(k,1934) - lu(k,1238) * lu(k,1933)
    4944   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,1239) * lu(k,1933)
    4945   141174528 :          lu(k,1939) = lu(k,1939) - lu(k,1240) * lu(k,1933)
    4946   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1241) * lu(k,1933)
    4947   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1242) * lu(k,1933)
    4948   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1243) * lu(k,1933)
    4949   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1244) * lu(k,1933)
    4950   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1245) * lu(k,1933)
    4951   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1246) * lu(k,1933)
    4952   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1247) * lu(k,1933)
    4953   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1248) * lu(k,1933)
    4954   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1249) * lu(k,1933)
    4955   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1250) * lu(k,1933)
    4956   141174528 :          lu(k,1987) = lu(k,1987) - lu(k,1238) * lu(k,1986)
    4957   141174528 :          lu(k,1988) = lu(k,1988) - lu(k,1239) * lu(k,1986)
    4958   141174528 :          lu(k,1992) = lu(k,1992) - lu(k,1240) * lu(k,1986)
    4959   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1241) * lu(k,1986)
    4960   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1242) * lu(k,1986)
    4961   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1243) * lu(k,1986)
    4962   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1244) * lu(k,1986)
    4963   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1245) * lu(k,1986)
    4964   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1246) * lu(k,1986)
    4965   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1247) * lu(k,1986)
    4966   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1248) * lu(k,1986)
    4967   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1249) * lu(k,1986)
    4968   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1250) * lu(k,1986)
    4969   141174528 :          lu(k,2067) = lu(k,2067) - lu(k,1238) * lu(k,2066)
    4970   141174528 :          lu(k,2068) = lu(k,2068) - lu(k,1239) * lu(k,2066)
    4971   141174528 :          lu(k,2073) = lu(k,2073) - lu(k,1240) * lu(k,2066)
    4972   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1241) * lu(k,2066)
    4973   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1242) * lu(k,2066)
    4974   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1243) * lu(k,2066)
    4975   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1244) * lu(k,2066)
    4976   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1245) * lu(k,2066)
    4977   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1246) * lu(k,2066)
    4978   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1247) * lu(k,2066)
    4979   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1248) * lu(k,2066)
    4980   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1249) * lu(k,2066)
    4981   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1250) * lu(k,2066)
    4982   141174528 :          lu(k,2168) = lu(k,2168) - lu(k,1238) * lu(k,2167)
    4983   141174528 :          lu(k,2169) = lu(k,2169) - lu(k,1239) * lu(k,2167)
    4984   141174528 :          lu(k,2174) = lu(k,2174) - lu(k,1240) * lu(k,2167)
    4985   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1241) * lu(k,2167)
    4986   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1242) * lu(k,2167)
    4987   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1243) * lu(k,2167)
    4988   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1244) * lu(k,2167)
    4989   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1245) * lu(k,2167)
    4990   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1246) * lu(k,2167)
    4991   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1247) * lu(k,2167)
    4992   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1248) * lu(k,2167)
    4993   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1249) * lu(k,2167)
    4994   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1250) * lu(k,2167)
    4995   141174528 :          lu(k,2286) = lu(k,2286) - lu(k,1238) * lu(k,2285)
    4996   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,1239) * lu(k,2285)
    4997   141174528 :          lu(k,2291) = lu(k,2291) - lu(k,1240) * lu(k,2285)
    4998   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1241) * lu(k,2285)
    4999   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1242) * lu(k,2285)
    5000   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1243) * lu(k,2285)
    5001   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1244) * lu(k,2285)
    5002   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1245) * lu(k,2285)
    5003   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1246) * lu(k,2285)
    5004   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1247) * lu(k,2285)
    5005   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1248) * lu(k,2285)
    5006   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1249) * lu(k,2285)
    5007   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1250) * lu(k,2285)
    5008   141174528 :          lu(k,1253) = 1._r8 / lu(k,1253)
    5009   141174528 :          lu(k,1254) = lu(k,1254) * lu(k,1253)
    5010   141174528 :          lu(k,1255) = lu(k,1255) * lu(k,1253)
    5011   141174528 :          lu(k,1256) = lu(k,1256) * lu(k,1253)
    5012   141174528 :          lu(k,1257) = lu(k,1257) * lu(k,1253)
    5013   141174528 :          lu(k,1258) = lu(k,1258) * lu(k,1253)
    5014   141174528 :          lu(k,1259) = lu(k,1259) * lu(k,1253)
    5015   141174528 :          lu(k,1260) = lu(k,1260) * lu(k,1253)
    5016   141174528 :          lu(k,1261) = lu(k,1261) * lu(k,1253)
    5017   141174528 :          lu(k,1262) = lu(k,1262) * lu(k,1253)
    5018   141174528 :          lu(k,1263) = lu(k,1263) * lu(k,1253)
    5019   141174528 :          lu(k,1300) = lu(k,1300) - lu(k,1254) * lu(k,1299)
    5020   141174528 :          lu(k,1302) = - lu(k,1255) * lu(k,1299)
    5021   141174528 :          lu(k,1304) = - lu(k,1256) * lu(k,1299)
    5022   141174528 :          lu(k,1305) = lu(k,1305) - lu(k,1257) * lu(k,1299)
    5023   141174528 :          lu(k,1307) = lu(k,1307) - lu(k,1258) * lu(k,1299)
    5024   141174528 :          lu(k,1309) = lu(k,1309) - lu(k,1259) * lu(k,1299)
    5025   141174528 :          lu(k,1310) = lu(k,1310) - lu(k,1260) * lu(k,1299)
    5026   141174528 :          lu(k,1314) = - lu(k,1261) * lu(k,1299)
    5027   141174528 :          lu(k,1315) = lu(k,1315) - lu(k,1262) * lu(k,1299)
    5028   141174528 :          lu(k,1316) = lu(k,1316) - lu(k,1263) * lu(k,1299)
    5029   141174528 :          lu(k,1333) = lu(k,1333) - lu(k,1254) * lu(k,1332)
    5030   141174528 :          lu(k,1335) = - lu(k,1255) * lu(k,1332)
    5031   141174528 :          lu(k,1337) = - lu(k,1256) * lu(k,1332)
    5032   141174528 :          lu(k,1338) = lu(k,1338) - lu(k,1257) * lu(k,1332)
    5033   141174528 :          lu(k,1340) = lu(k,1340) - lu(k,1258) * lu(k,1332)
    5034   141174528 :          lu(k,1342) = lu(k,1342) - lu(k,1259) * lu(k,1332)
    5035   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,1260) * lu(k,1332)
    5036   141174528 :          lu(k,1347) = - lu(k,1261) * lu(k,1332)
    5037   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,1262) * lu(k,1332)
    5038   141174528 :          lu(k,1349) = lu(k,1349) - lu(k,1263) * lu(k,1332)
    5039   141174528 :          lu(k,1427) = lu(k,1427) - lu(k,1254) * lu(k,1426)
    5040   141174528 :          lu(k,1430) = lu(k,1430) - lu(k,1255) * lu(k,1426)
    5041   141174528 :          lu(k,1432) = lu(k,1432) - lu(k,1256) * lu(k,1426)
    5042   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,1257) * lu(k,1426)
    5043   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,1258) * lu(k,1426)
    5044   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1259) * lu(k,1426)
    5045   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1260) * lu(k,1426)
    5046   141174528 :          lu(k,1443) = lu(k,1443) - lu(k,1261) * lu(k,1426)
    5047   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1262) * lu(k,1426)
    5048   141174528 :          lu(k,1445) = lu(k,1445) - lu(k,1263) * lu(k,1426)
    5049   141174528 :          lu(k,1806) = lu(k,1806) - lu(k,1254) * lu(k,1805)
    5050   141174528 :          lu(k,1810) = lu(k,1810) - lu(k,1255) * lu(k,1805)
    5051   141174528 :          lu(k,1812) = lu(k,1812) - lu(k,1256) * lu(k,1805)
    5052   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1257) * lu(k,1805)
    5053   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1258) * lu(k,1805)
    5054   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1259) * lu(k,1805)
    5055   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1260) * lu(k,1805)
    5056   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1261) * lu(k,1805)
    5057   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1262) * lu(k,1805)
    5058   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1263) * lu(k,1805)
    5059   141174528 :          lu(k,1935) = lu(k,1935) - lu(k,1254) * lu(k,1934)
    5060   141174528 :          lu(k,1938) = lu(k,1938) - lu(k,1255) * lu(k,1934)
    5061   141174528 :          lu(k,1940) = lu(k,1940) - lu(k,1256) * lu(k,1934)
    5062   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1257) * lu(k,1934)
    5063   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1258) * lu(k,1934)
    5064   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1259) * lu(k,1934)
    5065   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1260) * lu(k,1934)
    5066   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1261) * lu(k,1934)
    5067   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1262) * lu(k,1934)
    5068   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1263) * lu(k,1934)
    5069   141174528 :          lu(k,1988) = lu(k,1988) - lu(k,1254) * lu(k,1987)
    5070   141174528 :          lu(k,1991) = lu(k,1991) - lu(k,1255) * lu(k,1987)
    5071   141174528 :          lu(k,1993) = lu(k,1993) - lu(k,1256) * lu(k,1987)
    5072   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1257) * lu(k,1987)
    5073   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1258) * lu(k,1987)
    5074   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1259) * lu(k,1987)
    5075   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1260) * lu(k,1987)
    5076   141174528 :          lu(k,2009) = - lu(k,1261) * lu(k,1987)
    5077   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1262) * lu(k,1987)
    5078   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1263) * lu(k,1987)
    5079   141174528 :          lu(k,2068) = lu(k,2068) - lu(k,1254) * lu(k,2067)
    5080   141174528 :          lu(k,2072) = lu(k,2072) - lu(k,1255) * lu(k,2067)
    5081   141174528 :          lu(k,2074) = lu(k,2074) - lu(k,1256) * lu(k,2067)
    5082   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1257) * lu(k,2067)
    5083   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1258) * lu(k,2067)
    5084   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1259) * lu(k,2067)
    5085   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1260) * lu(k,2067)
    5086   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1261) * lu(k,2067)
    5087   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1262) * lu(k,2067)
    5088   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1263) * lu(k,2067)
    5089   141174528 :          lu(k,2169) = lu(k,2169) - lu(k,1254) * lu(k,2168)
    5090   141174528 :          lu(k,2173) = - lu(k,1255) * lu(k,2168)
    5091   141174528 :          lu(k,2175) = - lu(k,1256) * lu(k,2168)
    5092   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1257) * lu(k,2168)
    5093   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1258) * lu(k,2168)
    5094   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1259) * lu(k,2168)
    5095   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1260) * lu(k,2168)
    5096   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1261) * lu(k,2168)
    5097   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1262) * lu(k,2168)
    5098   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1263) * lu(k,2168)
    5099   141174528 :          lu(k,2287) = lu(k,2287) - lu(k,1254) * lu(k,2286)
    5100   141174528 :          lu(k,2290) = lu(k,2290) - lu(k,1255) * lu(k,2286)
    5101   141174528 :          lu(k,2292) = lu(k,2292) - lu(k,1256) * lu(k,2286)
    5102   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1257) * lu(k,2286)
    5103   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1258) * lu(k,2286)
    5104   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1259) * lu(k,2286)
    5105   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1260) * lu(k,2286)
    5106   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1261) * lu(k,2286)
    5107   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1262) * lu(k,2286)
    5108   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1263) * lu(k,2286)
    5109   141174528 :          lu(k,1265) = 1._r8 / lu(k,1265)
    5110   141174528 :          lu(k,1266) = lu(k,1266) * lu(k,1265)
    5111   141174528 :          lu(k,1267) = lu(k,1267) * lu(k,1265)
    5112   141174528 :          lu(k,1268) = lu(k,1268) * lu(k,1265)
    5113   141174528 :          lu(k,1269) = lu(k,1269) * lu(k,1265)
    5114   141174528 :          lu(k,1270) = lu(k,1270) * lu(k,1265)
    5115   141174528 :          lu(k,1271) = lu(k,1271) * lu(k,1265)
    5116   141174528 :          lu(k,1272) = lu(k,1272) * lu(k,1265)
    5117   141174528 :          lu(k,1305) = lu(k,1305) - lu(k,1266) * lu(k,1300)
    5118   141174528 :          lu(k,1306) = lu(k,1306) - lu(k,1267) * lu(k,1300)
    5119   141174528 :          lu(k,1309) = lu(k,1309) - lu(k,1268) * lu(k,1300)
    5120   141174528 :          lu(k,1310) = lu(k,1310) - lu(k,1269) * lu(k,1300)
    5121   141174528 :          lu(k,1313) = lu(k,1313) - lu(k,1270) * lu(k,1300)
    5122   141174528 :          lu(k,1315) = lu(k,1315) - lu(k,1271) * lu(k,1300)
    5123   141174528 :          lu(k,1316) = lu(k,1316) - lu(k,1272) * lu(k,1300)
    5124   141174528 :          lu(k,1338) = lu(k,1338) - lu(k,1266) * lu(k,1333)
    5125   141174528 :          lu(k,1339) = lu(k,1339) - lu(k,1267) * lu(k,1333)
    5126   141174528 :          lu(k,1342) = lu(k,1342) - lu(k,1268) * lu(k,1333)
    5127   141174528 :          lu(k,1343) = lu(k,1343) - lu(k,1269) * lu(k,1333)
    5128   141174528 :          lu(k,1346) = lu(k,1346) - lu(k,1270) * lu(k,1333)
    5129   141174528 :          lu(k,1348) = lu(k,1348) - lu(k,1271) * lu(k,1333)
    5130   141174528 :          lu(k,1349) = lu(k,1349) - lu(k,1272) * lu(k,1333)
    5131   141174528 :          lu(k,1360) = lu(k,1360) - lu(k,1266) * lu(k,1357)
    5132   141174528 :          lu(k,1361) = lu(k,1361) - lu(k,1267) * lu(k,1357)
    5133   141174528 :          lu(k,1364) = lu(k,1364) - lu(k,1268) * lu(k,1357)
    5134   141174528 :          lu(k,1365) = lu(k,1365) - lu(k,1269) * lu(k,1357)
    5135   141174528 :          lu(k,1368) = lu(k,1368) - lu(k,1270) * lu(k,1357)
    5136   141174528 :          lu(k,1369) = lu(k,1369) - lu(k,1271) * lu(k,1357)
    5137   141174528 :          lu(k,1370) = lu(k,1370) - lu(k,1272) * lu(k,1357)
    5138   141174528 :          lu(k,1381) = lu(k,1381) - lu(k,1266) * lu(k,1377)
    5139   141174528 :          lu(k,1383) = lu(k,1383) - lu(k,1267) * lu(k,1377)
    5140   141174528 :          lu(k,1386) = lu(k,1386) - lu(k,1268) * lu(k,1377)
    5141   141174528 :          lu(k,1387) = lu(k,1387) - lu(k,1269) * lu(k,1377)
    5142   141174528 :          lu(k,1390) = lu(k,1390) - lu(k,1270) * lu(k,1377)
    5143   141174528 :          lu(k,1392) = lu(k,1392) - lu(k,1271) * lu(k,1377)
    5144   141174528 :          lu(k,1393) = lu(k,1393) - lu(k,1272) * lu(k,1377)
    5145   141174528 :          lu(k,1402) = lu(k,1402) - lu(k,1266) * lu(k,1400)
    5146   141174528 :          lu(k,1403) = - lu(k,1267) * lu(k,1400)
    5147   141174528 :          lu(k,1406) = lu(k,1406) - lu(k,1268) * lu(k,1400)
    5148   141174528 :          lu(k,1407) = lu(k,1407) - lu(k,1269) * lu(k,1400)
    5149   141174528 :          lu(k,1410) = lu(k,1410) - lu(k,1270) * lu(k,1400)
    5150   141174528 :          lu(k,1412) = lu(k,1412) - lu(k,1271) * lu(k,1400)
    5151   141174528 :          lu(k,1413) = lu(k,1413) - lu(k,1272) * lu(k,1400)
    5152   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,1266) * lu(k,1427)
    5153   141174528 :          lu(k,1435) = lu(k,1435) - lu(k,1267) * lu(k,1427)
    5154   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1268) * lu(k,1427)
    5155   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1269) * lu(k,1427)
    5156   141174528 :          lu(k,1442) = lu(k,1442) - lu(k,1270) * lu(k,1427)
    5157   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1271) * lu(k,1427)
    5158   141174528 :          lu(k,1445) = lu(k,1445) - lu(k,1272) * lu(k,1427)
    5159   141174528 :          lu(k,1570) = lu(k,1570) - lu(k,1266) * lu(k,1567)
    5160   141174528 :          lu(k,1573) = lu(k,1573) - lu(k,1267) * lu(k,1567)
    5161   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,1268) * lu(k,1567)
    5162   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1269) * lu(k,1567)
    5163   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,1270) * lu(k,1567)
    5164   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1271) * lu(k,1567)
    5165   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,1272) * lu(k,1567)
    5166   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1266) * lu(k,1806)
    5167   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1267) * lu(k,1806)
    5168   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1268) * lu(k,1806)
    5169   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1269) * lu(k,1806)
    5170   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1270) * lu(k,1806)
    5171   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1271) * lu(k,1806)
    5172   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1272) * lu(k,1806)
    5173   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1266) * lu(k,1935)
    5174   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1267) * lu(k,1935)
    5175   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1268) * lu(k,1935)
    5176   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1269) * lu(k,1935)
    5177   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1270) * lu(k,1935)
    5178   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1271) * lu(k,1935)
    5179   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1272) * lu(k,1935)
    5180   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1266) * lu(k,1988)
    5181   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1267) * lu(k,1988)
    5182   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1268) * lu(k,1988)
    5183   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1269) * lu(k,1988)
    5184   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1270) * lu(k,1988)
    5185   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1271) * lu(k,1988)
    5186   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1272) * lu(k,1988)
    5187   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1266) * lu(k,2068)
    5188   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1267) * lu(k,2068)
    5189   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1268) * lu(k,2068)
    5190   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1269) * lu(k,2068)
    5191   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1270) * lu(k,2068)
    5192   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1271) * lu(k,2068)
    5193   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1272) * lu(k,2068)
    5194   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1266) * lu(k,2169)
    5195   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1267) * lu(k,2169)
    5196   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1268) * lu(k,2169)
    5197   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1269) * lu(k,2169)
    5198   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1270) * lu(k,2169)
    5199   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1271) * lu(k,2169)
    5200   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1272) * lu(k,2169)
    5201   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1266) * lu(k,2287)
    5202   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1267) * lu(k,2287)
    5203   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1268) * lu(k,2287)
    5204   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1269) * lu(k,2287)
    5205   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1270) * lu(k,2287)
    5206   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1271) * lu(k,2287)
    5207   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1272) * lu(k,2287)
    5208   141174528 :          lu(k,1276) = 1._r8 / lu(k,1276)
    5209   141174528 :          lu(k,1277) = lu(k,1277) * lu(k,1276)
    5210   141174528 :          lu(k,1278) = lu(k,1278) * lu(k,1276)
    5211   141174528 :          lu(k,1279) = lu(k,1279) * lu(k,1276)
    5212   141174528 :          lu(k,1280) = lu(k,1280) * lu(k,1276)
    5213   141174528 :          lu(k,1281) = lu(k,1281) * lu(k,1276)
    5214   141174528 :          lu(k,1282) = lu(k,1282) * lu(k,1276)
    5215   141174528 :          lu(k,1283) = lu(k,1283) * lu(k,1276)
    5216   141174528 :          lu(k,1284) = lu(k,1284) * lu(k,1276)
    5217   141174528 :          lu(k,1285) = lu(k,1285) * lu(k,1276)
    5218   141174528 :          lu(k,1286) = lu(k,1286) * lu(k,1276)
    5219   141174528 :          lu(k,1287) = lu(k,1287) * lu(k,1276)
    5220   141174528 :          lu(k,1288) = lu(k,1288) * lu(k,1276)
    5221   141174528 :          lu(k,1571) = lu(k,1571) - lu(k,1277) * lu(k,1568)
    5222   141174528 :          lu(k,1574) = lu(k,1574) - lu(k,1278) * lu(k,1568)
    5223   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,1279) * lu(k,1568)
    5224   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,1280) * lu(k,1568)
    5225   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1281) * lu(k,1568)
    5226   141174528 :          lu(k,1580) = lu(k,1580) - lu(k,1282) * lu(k,1568)
    5227   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,1283) * lu(k,1568)
    5228   141174528 :          lu(k,1585) = lu(k,1585) - lu(k,1284) * lu(k,1568)
    5229   141174528 :          lu(k,1586) = lu(k,1586) - lu(k,1285) * lu(k,1568)
    5230   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1286) * lu(k,1568)
    5231   141174528 :          lu(k,1588) = lu(k,1588) - lu(k,1287) * lu(k,1568)
    5232   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,1288) * lu(k,1568)
    5233   141174528 :          lu(k,1602) = lu(k,1602) - lu(k,1277) * lu(k,1600)
    5234   141174528 :          lu(k,1605) = lu(k,1605) - lu(k,1278) * lu(k,1600)
    5235   141174528 :          lu(k,1607) = lu(k,1607) - lu(k,1279) * lu(k,1600)
    5236   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,1280) * lu(k,1600)
    5237   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,1281) * lu(k,1600)
    5238   141174528 :          lu(k,1611) = lu(k,1611) - lu(k,1282) * lu(k,1600)
    5239   141174528 :          lu(k,1612) = lu(k,1612) - lu(k,1283) * lu(k,1600)
    5240   141174528 :          lu(k,1616) = lu(k,1616) - lu(k,1284) * lu(k,1600)
    5241   141174528 :          lu(k,1617) = lu(k,1617) - lu(k,1285) * lu(k,1600)
    5242   141174528 :          lu(k,1618) = lu(k,1618) - lu(k,1286) * lu(k,1600)
    5243   141174528 :          lu(k,1619) = lu(k,1619) - lu(k,1287) * lu(k,1600)
    5244   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,1288) * lu(k,1600)
    5245   141174528 :          lu(k,1815) = lu(k,1815) - lu(k,1277) * lu(k,1807)
    5246   141174528 :          lu(k,1818) = lu(k,1818) - lu(k,1278) * lu(k,1807)
    5247   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1279) * lu(k,1807)
    5248   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1280) * lu(k,1807)
    5249   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1281) * lu(k,1807)
    5250   141174528 :          lu(k,1824) = lu(k,1824) - lu(k,1282) * lu(k,1807)
    5251   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1283) * lu(k,1807)
    5252   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,1284) * lu(k,1807)
    5253   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1285) * lu(k,1807)
    5254   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1286) * lu(k,1807)
    5255   141174528 :          lu(k,1832) = lu(k,1832) - lu(k,1287) * lu(k,1807)
    5256   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1288) * lu(k,1807)
    5257   141174528 :          lu(k,1840) = lu(k,1840) - lu(k,1277) * lu(k,1839)
    5258   141174528 :          lu(k,1842) = - lu(k,1278) * lu(k,1839)
    5259   141174528 :          lu(k,1844) = lu(k,1844) - lu(k,1279) * lu(k,1839)
    5260   141174528 :          lu(k,1845) = lu(k,1845) - lu(k,1280) * lu(k,1839)
    5261   141174528 :          lu(k,1847) = lu(k,1847) - lu(k,1281) * lu(k,1839)
    5262   141174528 :          lu(k,1848) = lu(k,1848) - lu(k,1282) * lu(k,1839)
    5263   141174528 :          lu(k,1849) = lu(k,1849) - lu(k,1283) * lu(k,1839)
    5264   141174528 :          lu(k,1853) = lu(k,1853) - lu(k,1284) * lu(k,1839)
    5265   141174528 :          lu(k,1854) = - lu(k,1285) * lu(k,1839)
    5266   141174528 :          lu(k,1855) = lu(k,1855) - lu(k,1286) * lu(k,1839)
    5267   141174528 :          lu(k,1856) = lu(k,1856) - lu(k,1287) * lu(k,1839)
    5268   141174528 :          lu(k,1857) = lu(k,1857) - lu(k,1288) * lu(k,1839)
    5269   141174528 :          lu(k,2076) = - lu(k,1277) * lu(k,2069)
    5270   141174528 :          lu(k,2079) = - lu(k,1278) * lu(k,2069)
    5271   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1279) * lu(k,2069)
    5272   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1280) * lu(k,2069)
    5273   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1281) * lu(k,2069)
    5274   141174528 :          lu(k,2085) = - lu(k,1282) * lu(k,2069)
    5275   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1283) * lu(k,2069)
    5276   141174528 :          lu(k,2090) = - lu(k,1284) * lu(k,2069)
    5277   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1285) * lu(k,2069)
    5278   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1286) * lu(k,2069)
    5279   141174528 :          lu(k,2093) = - lu(k,1287) * lu(k,2069)
    5280   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1288) * lu(k,2069)
    5281   141174528 :          lu(k,2177) = lu(k,2177) - lu(k,1277) * lu(k,2170)
    5282   141174528 :          lu(k,2180) = lu(k,2180) - lu(k,1278) * lu(k,2170)
    5283   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1279) * lu(k,2170)
    5284   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1280) * lu(k,2170)
    5285   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1281) * lu(k,2170)
    5286   141174528 :          lu(k,2186) = lu(k,2186) - lu(k,1282) * lu(k,2170)
    5287   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1283) * lu(k,2170)
    5288   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,1284) * lu(k,2170)
    5289   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1285) * lu(k,2170)
    5290   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1286) * lu(k,2170)
    5291   141174528 :          lu(k,2194) = lu(k,2194) - lu(k,1287) * lu(k,2170)
    5292   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1288) * lu(k,2170)
    5293   141174528 :          lu(k,2322) = lu(k,2322) - lu(k,1277) * lu(k,2321)
    5294   141174528 :          lu(k,2324) = - lu(k,1278) * lu(k,2321)
    5295   141174528 :          lu(k,2326) = lu(k,2326) - lu(k,1279) * lu(k,2321)
    5296   141174528 :          lu(k,2327) = lu(k,2327) - lu(k,1280) * lu(k,2321)
    5297   141174528 :          lu(k,2329) = lu(k,2329) - lu(k,1281) * lu(k,2321)
    5298   141174528 :          lu(k,2330) = lu(k,2330) - lu(k,1282) * lu(k,2321)
    5299   141174528 :          lu(k,2331) = lu(k,2331) - lu(k,1283) * lu(k,2321)
    5300   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,1284) * lu(k,2321)
    5301   141174528 :          lu(k,2336) = - lu(k,1285) * lu(k,2321)
    5302   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,1286) * lu(k,2321)
    5303   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,1287) * lu(k,2321)
    5304   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,1288) * lu(k,2321)
    5305   141174528 :          lu(k,2347) = - lu(k,1277) * lu(k,2345)
    5306   141174528 :          lu(k,2350) = lu(k,2350) - lu(k,1278) * lu(k,2345)
    5307   141174528 :          lu(k,2352) = - lu(k,1279) * lu(k,2345)
    5308   141174528 :          lu(k,2353) = lu(k,2353) - lu(k,1280) * lu(k,2345)
    5309   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,1281) * lu(k,2345)
    5310   141174528 :          lu(k,2356) = - lu(k,1282) * lu(k,2345)
    5311   141174528 :          lu(k,2357) = - lu(k,1283) * lu(k,2345)
    5312   141174528 :          lu(k,2361) = - lu(k,1284) * lu(k,2345)
    5313   141174528 :          lu(k,2362) = - lu(k,1285) * lu(k,2345)
    5314   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1286) * lu(k,2345)
    5315   141174528 :          lu(k,2364) = - lu(k,1287) * lu(k,2345)
    5316   145586232 :          lu(k,2365) = lu(k,2365) - lu(k,1288) * lu(k,2345)
    5317             :       end do
    5318     4411704 :       end subroutine lu_fac25
    5319     4411704 :       subroutine lu_fac26( avec_len, lu )
    5320             :       use chem_mods, only : nzcnt
    5321             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5322             :       implicit none
    5323             : !-----------------------------------------------------------------------
    5324             : ! ... dummy args
    5325             : !-----------------------------------------------------------------------
    5326             :       integer, intent(in) :: avec_len
    5327             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5328             : !-----------------------------------------------------------------------
    5329             : ! ... local variables
    5330             : !-----------------------------------------------------------------------
    5331             :       integer :: k
    5332   145586232 :       do k = 1,avec_len
    5333   141174528 :          lu(k,1301) = 1._r8 / lu(k,1301)
    5334   141174528 :          lu(k,1302) = lu(k,1302) * lu(k,1301)
    5335   141174528 :          lu(k,1303) = lu(k,1303) * lu(k,1301)
    5336   141174528 :          lu(k,1304) = lu(k,1304) * lu(k,1301)
    5337   141174528 :          lu(k,1305) = lu(k,1305) * lu(k,1301)
    5338   141174528 :          lu(k,1306) = lu(k,1306) * lu(k,1301)
    5339   141174528 :          lu(k,1307) = lu(k,1307) * lu(k,1301)
    5340   141174528 :          lu(k,1308) = lu(k,1308) * lu(k,1301)
    5341   141174528 :          lu(k,1309) = lu(k,1309) * lu(k,1301)
    5342   141174528 :          lu(k,1310) = lu(k,1310) * lu(k,1301)
    5343   141174528 :          lu(k,1311) = lu(k,1311) * lu(k,1301)
    5344   141174528 :          lu(k,1312) = lu(k,1312) * lu(k,1301)
    5345   141174528 :          lu(k,1313) = lu(k,1313) * lu(k,1301)
    5346   141174528 :          lu(k,1314) = lu(k,1314) * lu(k,1301)
    5347   141174528 :          lu(k,1315) = lu(k,1315) * lu(k,1301)
    5348   141174528 :          lu(k,1316) = lu(k,1316) * lu(k,1301)
    5349   141174528 :          lu(k,1430) = lu(k,1430) - lu(k,1302) * lu(k,1428)
    5350   141174528 :          lu(k,1431) = lu(k,1431) - lu(k,1303) * lu(k,1428)
    5351   141174528 :          lu(k,1432) = lu(k,1432) - lu(k,1304) * lu(k,1428)
    5352   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,1305) * lu(k,1428)
    5353   141174528 :          lu(k,1435) = lu(k,1435) - lu(k,1306) * lu(k,1428)
    5354   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,1307) * lu(k,1428)
    5355   141174528 :          lu(k,1437) = lu(k,1437) - lu(k,1308) * lu(k,1428)
    5356   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1309) * lu(k,1428)
    5357   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1310) * lu(k,1428)
    5358   141174528 :          lu(k,1440) = lu(k,1440) - lu(k,1311) * lu(k,1428)
    5359   141174528 :          lu(k,1441) = lu(k,1441) - lu(k,1312) * lu(k,1428)
    5360   141174528 :          lu(k,1442) = lu(k,1442) - lu(k,1313) * lu(k,1428)
    5361   141174528 :          lu(k,1443) = lu(k,1443) - lu(k,1314) * lu(k,1428)
    5362   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1315) * lu(k,1428)
    5363   141174528 :          lu(k,1445) = lu(k,1445) - lu(k,1316) * lu(k,1428)
    5364   141174528 :          lu(k,1810) = lu(k,1810) - lu(k,1302) * lu(k,1808)
    5365   141174528 :          lu(k,1811) = lu(k,1811) - lu(k,1303) * lu(k,1808)
    5366   141174528 :          lu(k,1812) = lu(k,1812) - lu(k,1304) * lu(k,1808)
    5367   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1305) * lu(k,1808)
    5368   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1306) * lu(k,1808)
    5369   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1307) * lu(k,1808)
    5370   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1308) * lu(k,1808)
    5371   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1309) * lu(k,1808)
    5372   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1310) * lu(k,1808)
    5373   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1311) * lu(k,1808)
    5374   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1312) * lu(k,1808)
    5375   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1313) * lu(k,1808)
    5376   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1314) * lu(k,1808)
    5377   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1315) * lu(k,1808)
    5378   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1316) * lu(k,1808)
    5379   141174528 :          lu(k,1938) = lu(k,1938) - lu(k,1302) * lu(k,1936)
    5380   141174528 :          lu(k,1939) = lu(k,1939) - lu(k,1303) * lu(k,1936)
    5381   141174528 :          lu(k,1940) = lu(k,1940) - lu(k,1304) * lu(k,1936)
    5382   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1305) * lu(k,1936)
    5383   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1306) * lu(k,1936)
    5384   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1307) * lu(k,1936)
    5385   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1308) * lu(k,1936)
    5386   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1309) * lu(k,1936)
    5387   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1310) * lu(k,1936)
    5388   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1311) * lu(k,1936)
    5389   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1312) * lu(k,1936)
    5390   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1313) * lu(k,1936)
    5391   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1314) * lu(k,1936)
    5392   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1315) * lu(k,1936)
    5393   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1316) * lu(k,1936)
    5394   141174528 :          lu(k,1991) = lu(k,1991) - lu(k,1302) * lu(k,1989)
    5395   141174528 :          lu(k,1992) = lu(k,1992) - lu(k,1303) * lu(k,1989)
    5396   141174528 :          lu(k,1993) = lu(k,1993) - lu(k,1304) * lu(k,1989)
    5397   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1305) * lu(k,1989)
    5398   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1306) * lu(k,1989)
    5399   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1307) * lu(k,1989)
    5400   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1308) * lu(k,1989)
    5401   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1309) * lu(k,1989)
    5402   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1310) * lu(k,1989)
    5403   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1311) * lu(k,1989)
    5404   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1312) * lu(k,1989)
    5405   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1313) * lu(k,1989)
    5406   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1314) * lu(k,1989)
    5407   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1315) * lu(k,1989)
    5408   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1316) * lu(k,1989)
    5409   141174528 :          lu(k,2072) = lu(k,2072) - lu(k,1302) * lu(k,2070)
    5410   141174528 :          lu(k,2073) = lu(k,2073) - lu(k,1303) * lu(k,2070)
    5411   141174528 :          lu(k,2074) = lu(k,2074) - lu(k,1304) * lu(k,2070)
    5412   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1305) * lu(k,2070)
    5413   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1306) * lu(k,2070)
    5414   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1307) * lu(k,2070)
    5415   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1308) * lu(k,2070)
    5416   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1309) * lu(k,2070)
    5417   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1310) * lu(k,2070)
    5418   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1311) * lu(k,2070)
    5419   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1312) * lu(k,2070)
    5420   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1313) * lu(k,2070)
    5421   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1314) * lu(k,2070)
    5422   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1315) * lu(k,2070)
    5423   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1316) * lu(k,2070)
    5424   141174528 :          lu(k,2173) = lu(k,2173) - lu(k,1302) * lu(k,2171)
    5425   141174528 :          lu(k,2174) = lu(k,2174) - lu(k,1303) * lu(k,2171)
    5426   141174528 :          lu(k,2175) = lu(k,2175) - lu(k,1304) * lu(k,2171)
    5427   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1305) * lu(k,2171)
    5428   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1306) * lu(k,2171)
    5429   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1307) * lu(k,2171)
    5430   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1308) * lu(k,2171)
    5431   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1309) * lu(k,2171)
    5432   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1310) * lu(k,2171)
    5433   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1311) * lu(k,2171)
    5434   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1312) * lu(k,2171)
    5435   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1313) * lu(k,2171)
    5436   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1314) * lu(k,2171)
    5437   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1315) * lu(k,2171)
    5438   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1316) * lu(k,2171)
    5439   141174528 :          lu(k,2290) = lu(k,2290) - lu(k,1302) * lu(k,2288)
    5440   141174528 :          lu(k,2291) = lu(k,2291) - lu(k,1303) * lu(k,2288)
    5441   141174528 :          lu(k,2292) = lu(k,2292) - lu(k,1304) * lu(k,2288)
    5442   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1305) * lu(k,2288)
    5443   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1306) * lu(k,2288)
    5444   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1307) * lu(k,2288)
    5445   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1308) * lu(k,2288)
    5446   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1309) * lu(k,2288)
    5447   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1310) * lu(k,2288)
    5448   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1311) * lu(k,2288)
    5449   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1312) * lu(k,2288)
    5450   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1313) * lu(k,2288)
    5451   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1314) * lu(k,2288)
    5452   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1315) * lu(k,2288)
    5453   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1316) * lu(k,2288)
    5454   141174528 :          lu(k,1334) = 1._r8 / lu(k,1334)
    5455   141174528 :          lu(k,1335) = lu(k,1335) * lu(k,1334)
    5456   141174528 :          lu(k,1336) = lu(k,1336) * lu(k,1334)
    5457   141174528 :          lu(k,1337) = lu(k,1337) * lu(k,1334)
    5458   141174528 :          lu(k,1338) = lu(k,1338) * lu(k,1334)
    5459   141174528 :          lu(k,1339) = lu(k,1339) * lu(k,1334)
    5460   141174528 :          lu(k,1340) = lu(k,1340) * lu(k,1334)
    5461   141174528 :          lu(k,1341) = lu(k,1341) * lu(k,1334)
    5462   141174528 :          lu(k,1342) = lu(k,1342) * lu(k,1334)
    5463   141174528 :          lu(k,1343) = lu(k,1343) * lu(k,1334)
    5464   141174528 :          lu(k,1344) = lu(k,1344) * lu(k,1334)
    5465   141174528 :          lu(k,1345) = lu(k,1345) * lu(k,1334)
    5466   141174528 :          lu(k,1346) = lu(k,1346) * lu(k,1334)
    5467   141174528 :          lu(k,1347) = lu(k,1347) * lu(k,1334)
    5468   141174528 :          lu(k,1348) = lu(k,1348) * lu(k,1334)
    5469   141174528 :          lu(k,1349) = lu(k,1349) * lu(k,1334)
    5470   141174528 :          lu(k,1430) = lu(k,1430) - lu(k,1335) * lu(k,1429)
    5471   141174528 :          lu(k,1431) = lu(k,1431) - lu(k,1336) * lu(k,1429)
    5472   141174528 :          lu(k,1432) = lu(k,1432) - lu(k,1337) * lu(k,1429)
    5473   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,1338) * lu(k,1429)
    5474   141174528 :          lu(k,1435) = lu(k,1435) - lu(k,1339) * lu(k,1429)
    5475   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,1340) * lu(k,1429)
    5476   141174528 :          lu(k,1437) = lu(k,1437) - lu(k,1341) * lu(k,1429)
    5477   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1342) * lu(k,1429)
    5478   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1343) * lu(k,1429)
    5479   141174528 :          lu(k,1440) = lu(k,1440) - lu(k,1344) * lu(k,1429)
    5480   141174528 :          lu(k,1441) = lu(k,1441) - lu(k,1345) * lu(k,1429)
    5481   141174528 :          lu(k,1442) = lu(k,1442) - lu(k,1346) * lu(k,1429)
    5482   141174528 :          lu(k,1443) = lu(k,1443) - lu(k,1347) * lu(k,1429)
    5483   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1348) * lu(k,1429)
    5484   141174528 :          lu(k,1445) = lu(k,1445) - lu(k,1349) * lu(k,1429)
    5485   141174528 :          lu(k,1810) = lu(k,1810) - lu(k,1335) * lu(k,1809)
    5486   141174528 :          lu(k,1811) = lu(k,1811) - lu(k,1336) * lu(k,1809)
    5487   141174528 :          lu(k,1812) = lu(k,1812) - lu(k,1337) * lu(k,1809)
    5488   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1338) * lu(k,1809)
    5489   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1339) * lu(k,1809)
    5490   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1340) * lu(k,1809)
    5491   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1341) * lu(k,1809)
    5492   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1342) * lu(k,1809)
    5493   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1343) * lu(k,1809)
    5494   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1344) * lu(k,1809)
    5495   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1345) * lu(k,1809)
    5496   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1346) * lu(k,1809)
    5497   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1347) * lu(k,1809)
    5498   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1348) * lu(k,1809)
    5499   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1349) * lu(k,1809)
    5500   141174528 :          lu(k,1938) = lu(k,1938) - lu(k,1335) * lu(k,1937)
    5501   141174528 :          lu(k,1939) = lu(k,1939) - lu(k,1336) * lu(k,1937)
    5502   141174528 :          lu(k,1940) = lu(k,1940) - lu(k,1337) * lu(k,1937)
    5503   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1338) * lu(k,1937)
    5504   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1339) * lu(k,1937)
    5505   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1340) * lu(k,1937)
    5506   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1341) * lu(k,1937)
    5507   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1342) * lu(k,1937)
    5508   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1343) * lu(k,1937)
    5509   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1344) * lu(k,1937)
    5510   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1345) * lu(k,1937)
    5511   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1346) * lu(k,1937)
    5512   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1347) * lu(k,1937)
    5513   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1348) * lu(k,1937)
    5514   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1349) * lu(k,1937)
    5515   141174528 :          lu(k,1991) = lu(k,1991) - lu(k,1335) * lu(k,1990)
    5516   141174528 :          lu(k,1992) = lu(k,1992) - lu(k,1336) * lu(k,1990)
    5517   141174528 :          lu(k,1993) = lu(k,1993) - lu(k,1337) * lu(k,1990)
    5518   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1338) * lu(k,1990)
    5519   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1339) * lu(k,1990)
    5520   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1340) * lu(k,1990)
    5521   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1341) * lu(k,1990)
    5522   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1342) * lu(k,1990)
    5523   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1343) * lu(k,1990)
    5524   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1344) * lu(k,1990)
    5525   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1345) * lu(k,1990)
    5526   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1346) * lu(k,1990)
    5527   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1347) * lu(k,1990)
    5528   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1348) * lu(k,1990)
    5529   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1349) * lu(k,1990)
    5530   141174528 :          lu(k,2072) = lu(k,2072) - lu(k,1335) * lu(k,2071)
    5531   141174528 :          lu(k,2073) = lu(k,2073) - lu(k,1336) * lu(k,2071)
    5532   141174528 :          lu(k,2074) = lu(k,2074) - lu(k,1337) * lu(k,2071)
    5533   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1338) * lu(k,2071)
    5534   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1339) * lu(k,2071)
    5535   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1340) * lu(k,2071)
    5536   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1341) * lu(k,2071)
    5537   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1342) * lu(k,2071)
    5538   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1343) * lu(k,2071)
    5539   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1344) * lu(k,2071)
    5540   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1345) * lu(k,2071)
    5541   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1346) * lu(k,2071)
    5542   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1347) * lu(k,2071)
    5543   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1348) * lu(k,2071)
    5544   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1349) * lu(k,2071)
    5545   141174528 :          lu(k,2173) = lu(k,2173) - lu(k,1335) * lu(k,2172)
    5546   141174528 :          lu(k,2174) = lu(k,2174) - lu(k,1336) * lu(k,2172)
    5547   141174528 :          lu(k,2175) = lu(k,2175) - lu(k,1337) * lu(k,2172)
    5548   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1338) * lu(k,2172)
    5549   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1339) * lu(k,2172)
    5550   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1340) * lu(k,2172)
    5551   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1341) * lu(k,2172)
    5552   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1342) * lu(k,2172)
    5553   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1343) * lu(k,2172)
    5554   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1344) * lu(k,2172)
    5555   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1345) * lu(k,2172)
    5556   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1346) * lu(k,2172)
    5557   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1347) * lu(k,2172)
    5558   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1348) * lu(k,2172)
    5559   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1349) * lu(k,2172)
    5560   141174528 :          lu(k,2290) = lu(k,2290) - lu(k,1335) * lu(k,2289)
    5561   141174528 :          lu(k,2291) = lu(k,2291) - lu(k,1336) * lu(k,2289)
    5562   141174528 :          lu(k,2292) = lu(k,2292) - lu(k,1337) * lu(k,2289)
    5563   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1338) * lu(k,2289)
    5564   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1339) * lu(k,2289)
    5565   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1340) * lu(k,2289)
    5566   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1341) * lu(k,2289)
    5567   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1342) * lu(k,2289)
    5568   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1343) * lu(k,2289)
    5569   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1344) * lu(k,2289)
    5570   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1345) * lu(k,2289)
    5571   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1346) * lu(k,2289)
    5572   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1347) * lu(k,2289)
    5573   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1348) * lu(k,2289)
    5574   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1349) * lu(k,2289)
    5575   141174528 :          lu(k,1358) = 1._r8 / lu(k,1358)
    5576   141174528 :          lu(k,1359) = lu(k,1359) * lu(k,1358)
    5577   141174528 :          lu(k,1360) = lu(k,1360) * lu(k,1358)
    5578   141174528 :          lu(k,1361) = lu(k,1361) * lu(k,1358)
    5579   141174528 :          lu(k,1362) = lu(k,1362) * lu(k,1358)
    5580   141174528 :          lu(k,1363) = lu(k,1363) * lu(k,1358)
    5581   141174528 :          lu(k,1364) = lu(k,1364) * lu(k,1358)
    5582   141174528 :          lu(k,1365) = lu(k,1365) * lu(k,1358)
    5583   141174528 :          lu(k,1366) = lu(k,1366) * lu(k,1358)
    5584   141174528 :          lu(k,1367) = lu(k,1367) * lu(k,1358)
    5585   141174528 :          lu(k,1368) = lu(k,1368) * lu(k,1358)
    5586   141174528 :          lu(k,1369) = lu(k,1369) * lu(k,1358)
    5587   141174528 :          lu(k,1370) = lu(k,1370) * lu(k,1358)
    5588   141174528 :          lu(k,1380) = - lu(k,1359) * lu(k,1378)
    5589   141174528 :          lu(k,1381) = lu(k,1381) - lu(k,1360) * lu(k,1378)
    5590   141174528 :          lu(k,1383) = lu(k,1383) - lu(k,1361) * lu(k,1378)
    5591   141174528 :          lu(k,1384) = lu(k,1384) - lu(k,1362) * lu(k,1378)
    5592   141174528 :          lu(k,1385) = lu(k,1385) - lu(k,1363) * lu(k,1378)
    5593   141174528 :          lu(k,1386) = lu(k,1386) - lu(k,1364) * lu(k,1378)
    5594   141174528 :          lu(k,1387) = lu(k,1387) - lu(k,1365) * lu(k,1378)
    5595   141174528 :          lu(k,1388) = lu(k,1388) - lu(k,1366) * lu(k,1378)
    5596   141174528 :          lu(k,1389) = lu(k,1389) - lu(k,1367) * lu(k,1378)
    5597   141174528 :          lu(k,1390) = lu(k,1390) - lu(k,1368) * lu(k,1378)
    5598   141174528 :          lu(k,1392) = lu(k,1392) - lu(k,1369) * lu(k,1378)
    5599   141174528 :          lu(k,1393) = lu(k,1393) - lu(k,1370) * lu(k,1378)
    5600   141174528 :          lu(k,1432) = lu(k,1432) - lu(k,1359) * lu(k,1430)
    5601   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,1360) * lu(k,1430)
    5602   141174528 :          lu(k,1435) = lu(k,1435) - lu(k,1361) * lu(k,1430)
    5603   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,1362) * lu(k,1430)
    5604   141174528 :          lu(k,1437) = lu(k,1437) - lu(k,1363) * lu(k,1430)
    5605   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1364) * lu(k,1430)
    5606   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1365) * lu(k,1430)
    5607   141174528 :          lu(k,1440) = lu(k,1440) - lu(k,1366) * lu(k,1430)
    5608   141174528 :          lu(k,1441) = lu(k,1441) - lu(k,1367) * lu(k,1430)
    5609   141174528 :          lu(k,1442) = lu(k,1442) - lu(k,1368) * lu(k,1430)
    5610   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1369) * lu(k,1430)
    5611   141174528 :          lu(k,1445) = lu(k,1445) - lu(k,1370) * lu(k,1430)
    5612   141174528 :          lu(k,1812) = lu(k,1812) - lu(k,1359) * lu(k,1810)
    5613   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1360) * lu(k,1810)
    5614   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1361) * lu(k,1810)
    5615   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1362) * lu(k,1810)
    5616   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1363) * lu(k,1810)
    5617   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1364) * lu(k,1810)
    5618   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1365) * lu(k,1810)
    5619   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1366) * lu(k,1810)
    5620   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1367) * lu(k,1810)
    5621   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1368) * lu(k,1810)
    5622   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1369) * lu(k,1810)
    5623   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1370) * lu(k,1810)
    5624   141174528 :          lu(k,1940) = lu(k,1940) - lu(k,1359) * lu(k,1938)
    5625   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1360) * lu(k,1938)
    5626   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1361) * lu(k,1938)
    5627   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1362) * lu(k,1938)
    5628   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1363) * lu(k,1938)
    5629   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1364) * lu(k,1938)
    5630   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1365) * lu(k,1938)
    5631   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1366) * lu(k,1938)
    5632   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1367) * lu(k,1938)
    5633   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1368) * lu(k,1938)
    5634   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1369) * lu(k,1938)
    5635   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1370) * lu(k,1938)
    5636   141174528 :          lu(k,1993) = lu(k,1993) - lu(k,1359) * lu(k,1991)
    5637   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1360) * lu(k,1991)
    5638   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1361) * lu(k,1991)
    5639   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1362) * lu(k,1991)
    5640   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1363) * lu(k,1991)
    5641   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1364) * lu(k,1991)
    5642   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1365) * lu(k,1991)
    5643   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1366) * lu(k,1991)
    5644   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1367) * lu(k,1991)
    5645   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1368) * lu(k,1991)
    5646   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1369) * lu(k,1991)
    5647   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1370) * lu(k,1991)
    5648   141174528 :          lu(k,2074) = lu(k,2074) - lu(k,1359) * lu(k,2072)
    5649   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1360) * lu(k,2072)
    5650   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1361) * lu(k,2072)
    5651   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1362) * lu(k,2072)
    5652   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1363) * lu(k,2072)
    5653   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1364) * lu(k,2072)
    5654   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1365) * lu(k,2072)
    5655   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1366) * lu(k,2072)
    5656   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1367) * lu(k,2072)
    5657   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1368) * lu(k,2072)
    5658   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1369) * lu(k,2072)
    5659   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1370) * lu(k,2072)
    5660   141174528 :          lu(k,2175) = lu(k,2175) - lu(k,1359) * lu(k,2173)
    5661   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1360) * lu(k,2173)
    5662   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1361) * lu(k,2173)
    5663   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1362) * lu(k,2173)
    5664   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1363) * lu(k,2173)
    5665   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1364) * lu(k,2173)
    5666   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1365) * lu(k,2173)
    5667   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1366) * lu(k,2173)
    5668   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1367) * lu(k,2173)
    5669   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1368) * lu(k,2173)
    5670   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1369) * lu(k,2173)
    5671   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1370) * lu(k,2173)
    5672   141174528 :          lu(k,2292) = lu(k,2292) - lu(k,1359) * lu(k,2290)
    5673   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1360) * lu(k,2290)
    5674   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1361) * lu(k,2290)
    5675   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1362) * lu(k,2290)
    5676   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1363) * lu(k,2290)
    5677   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1364) * lu(k,2290)
    5678   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1365) * lu(k,2290)
    5679   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1366) * lu(k,2290)
    5680   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1367) * lu(k,2290)
    5681   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1368) * lu(k,2290)
    5682   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1369) * lu(k,2290)
    5683   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1370) * lu(k,2290)
    5684   141174528 :          lu(k,1379) = 1._r8 / lu(k,1379)
    5685   141174528 :          lu(k,1380) = lu(k,1380) * lu(k,1379)
    5686   141174528 :          lu(k,1381) = lu(k,1381) * lu(k,1379)
    5687   141174528 :          lu(k,1382) = lu(k,1382) * lu(k,1379)
    5688   141174528 :          lu(k,1383) = lu(k,1383) * lu(k,1379)
    5689   141174528 :          lu(k,1384) = lu(k,1384) * lu(k,1379)
    5690   141174528 :          lu(k,1385) = lu(k,1385) * lu(k,1379)
    5691   141174528 :          lu(k,1386) = lu(k,1386) * lu(k,1379)
    5692   141174528 :          lu(k,1387) = lu(k,1387) * lu(k,1379)
    5693   141174528 :          lu(k,1388) = lu(k,1388) * lu(k,1379)
    5694   141174528 :          lu(k,1389) = lu(k,1389) * lu(k,1379)
    5695   141174528 :          lu(k,1390) = lu(k,1390) * lu(k,1379)
    5696   141174528 :          lu(k,1391) = lu(k,1391) * lu(k,1379)
    5697   141174528 :          lu(k,1392) = lu(k,1392) * lu(k,1379)
    5698   141174528 :          lu(k,1393) = lu(k,1393) * lu(k,1379)
    5699   141174528 :          lu(k,1432) = lu(k,1432) - lu(k,1380) * lu(k,1431)
    5700   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,1381) * lu(k,1431)
    5701   141174528 :          lu(k,1434) = - lu(k,1382) * lu(k,1431)
    5702   141174528 :          lu(k,1435) = lu(k,1435) - lu(k,1383) * lu(k,1431)
    5703   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,1384) * lu(k,1431)
    5704   141174528 :          lu(k,1437) = lu(k,1437) - lu(k,1385) * lu(k,1431)
    5705   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1386) * lu(k,1431)
    5706   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1387) * lu(k,1431)
    5707   141174528 :          lu(k,1440) = lu(k,1440) - lu(k,1388) * lu(k,1431)
    5708   141174528 :          lu(k,1441) = lu(k,1441) - lu(k,1389) * lu(k,1431)
    5709   141174528 :          lu(k,1442) = lu(k,1442) - lu(k,1390) * lu(k,1431)
    5710   141174528 :          lu(k,1443) = lu(k,1443) - lu(k,1391) * lu(k,1431)
    5711   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1392) * lu(k,1431)
    5712   141174528 :          lu(k,1445) = lu(k,1445) - lu(k,1393) * lu(k,1431)
    5713   141174528 :          lu(k,1812) = lu(k,1812) - lu(k,1380) * lu(k,1811)
    5714   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1381) * lu(k,1811)
    5715   141174528 :          lu(k,1816) = lu(k,1816) - lu(k,1382) * lu(k,1811)
    5716   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1383) * lu(k,1811)
    5717   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1384) * lu(k,1811)
    5718   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1385) * lu(k,1811)
    5719   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1386) * lu(k,1811)
    5720   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1387) * lu(k,1811)
    5721   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1388) * lu(k,1811)
    5722   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1389) * lu(k,1811)
    5723   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1390) * lu(k,1811)
    5724   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1391) * lu(k,1811)
    5725   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1392) * lu(k,1811)
    5726   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1393) * lu(k,1811)
    5727   141174528 :          lu(k,1940) = lu(k,1940) - lu(k,1380) * lu(k,1939)
    5728   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1381) * lu(k,1939)
    5729   141174528 :          lu(k,1943) = - lu(k,1382) * lu(k,1939)
    5730   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1383) * lu(k,1939)
    5731   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1384) * lu(k,1939)
    5732   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1385) * lu(k,1939)
    5733   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1386) * lu(k,1939)
    5734   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1387) * lu(k,1939)
    5735   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1388) * lu(k,1939)
    5736   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1389) * lu(k,1939)
    5737   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1390) * lu(k,1939)
    5738   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1391) * lu(k,1939)
    5739   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1392) * lu(k,1939)
    5740   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1393) * lu(k,1939)
    5741   141174528 :          lu(k,1993) = lu(k,1993) - lu(k,1380) * lu(k,1992)
    5742   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1381) * lu(k,1992)
    5743   141174528 :          lu(k,1995) = - lu(k,1382) * lu(k,1992)
    5744   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1383) * lu(k,1992)
    5745   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1384) * lu(k,1992)
    5746   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1385) * lu(k,1992)
    5747   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1386) * lu(k,1992)
    5748   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1387) * lu(k,1992)
    5749   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1388) * lu(k,1992)
    5750   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1389) * lu(k,1992)
    5751   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1390) * lu(k,1992)
    5752   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1391) * lu(k,1992)
    5753   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1392) * lu(k,1992)
    5754   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1393) * lu(k,1992)
    5755   141174528 :          lu(k,2074) = lu(k,2074) - lu(k,1380) * lu(k,2073)
    5756   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1381) * lu(k,2073)
    5757   141174528 :          lu(k,2077) = lu(k,2077) - lu(k,1382) * lu(k,2073)
    5758   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1383) * lu(k,2073)
    5759   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1384) * lu(k,2073)
    5760   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1385) * lu(k,2073)
    5761   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1386) * lu(k,2073)
    5762   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1387) * lu(k,2073)
    5763   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1388) * lu(k,2073)
    5764   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1389) * lu(k,2073)
    5765   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1390) * lu(k,2073)
    5766   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1391) * lu(k,2073)
    5767   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1392) * lu(k,2073)
    5768   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1393) * lu(k,2073)
    5769   141174528 :          lu(k,2175) = lu(k,2175) - lu(k,1380) * lu(k,2174)
    5770   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1381) * lu(k,2174)
    5771   141174528 :          lu(k,2178) = lu(k,2178) - lu(k,1382) * lu(k,2174)
    5772   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1383) * lu(k,2174)
    5773   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1384) * lu(k,2174)
    5774   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1385) * lu(k,2174)
    5775   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1386) * lu(k,2174)
    5776   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1387) * lu(k,2174)
    5777   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1388) * lu(k,2174)
    5778   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1389) * lu(k,2174)
    5779   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1390) * lu(k,2174)
    5780   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1391) * lu(k,2174)
    5781   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1392) * lu(k,2174)
    5782   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1393) * lu(k,2174)
    5783   141174528 :          lu(k,2292) = lu(k,2292) - lu(k,1380) * lu(k,2291)
    5784   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1381) * lu(k,2291)
    5785   141174528 :          lu(k,2296) = - lu(k,1382) * lu(k,2291)
    5786   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1383) * lu(k,2291)
    5787   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1384) * lu(k,2291)
    5788   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1385) * lu(k,2291)
    5789   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1386) * lu(k,2291)
    5790   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1387) * lu(k,2291)
    5791   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1388) * lu(k,2291)
    5792   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1389) * lu(k,2291)
    5793   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1390) * lu(k,2291)
    5794   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1391) * lu(k,2291)
    5795   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1392) * lu(k,2291)
    5796   145586232 :          lu(k,2313) = lu(k,2313) - lu(k,1393) * lu(k,2291)
    5797             :       end do
    5798     4411704 :       end subroutine lu_fac26
    5799     4411704 :       subroutine lu_fac27( avec_len, lu )
    5800             :       use chem_mods, only : nzcnt
    5801             :       use shr_kind_mod, only : r8 => shr_kind_r8
    5802             :       implicit none
    5803             : !-----------------------------------------------------------------------
    5804             : ! ... dummy args
    5805             : !-----------------------------------------------------------------------
    5806             :       integer, intent(in) :: avec_len
    5807             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    5808             : !-----------------------------------------------------------------------
    5809             : ! ... local variables
    5810             : !-----------------------------------------------------------------------
    5811             :       integer :: k
    5812   145586232 :       do k = 1,avec_len
    5813   141174528 :          lu(k,1401) = 1._r8 / lu(k,1401)
    5814   141174528 :          lu(k,1402) = lu(k,1402) * lu(k,1401)
    5815   141174528 :          lu(k,1403) = lu(k,1403) * lu(k,1401)
    5816   141174528 :          lu(k,1404) = lu(k,1404) * lu(k,1401)
    5817   141174528 :          lu(k,1405) = lu(k,1405) * lu(k,1401)
    5818   141174528 :          lu(k,1406) = lu(k,1406) * lu(k,1401)
    5819   141174528 :          lu(k,1407) = lu(k,1407) * lu(k,1401)
    5820   141174528 :          lu(k,1408) = lu(k,1408) * lu(k,1401)
    5821   141174528 :          lu(k,1409) = lu(k,1409) * lu(k,1401)
    5822   141174528 :          lu(k,1410) = lu(k,1410) * lu(k,1401)
    5823   141174528 :          lu(k,1411) = lu(k,1411) * lu(k,1401)
    5824   141174528 :          lu(k,1412) = lu(k,1412) * lu(k,1401)
    5825   141174528 :          lu(k,1413) = lu(k,1413) * lu(k,1401)
    5826   141174528 :          lu(k,1433) = lu(k,1433) - lu(k,1402) * lu(k,1432)
    5827   141174528 :          lu(k,1435) = lu(k,1435) - lu(k,1403) * lu(k,1432)
    5828   141174528 :          lu(k,1436) = lu(k,1436) - lu(k,1404) * lu(k,1432)
    5829   141174528 :          lu(k,1437) = lu(k,1437) - lu(k,1405) * lu(k,1432)
    5830   141174528 :          lu(k,1438) = lu(k,1438) - lu(k,1406) * lu(k,1432)
    5831   141174528 :          lu(k,1439) = lu(k,1439) - lu(k,1407) * lu(k,1432)
    5832   141174528 :          lu(k,1440) = lu(k,1440) - lu(k,1408) * lu(k,1432)
    5833   141174528 :          lu(k,1441) = lu(k,1441) - lu(k,1409) * lu(k,1432)
    5834   141174528 :          lu(k,1442) = lu(k,1442) - lu(k,1410) * lu(k,1432)
    5835   141174528 :          lu(k,1443) = lu(k,1443) - lu(k,1411) * lu(k,1432)
    5836   141174528 :          lu(k,1444) = lu(k,1444) - lu(k,1412) * lu(k,1432)
    5837   141174528 :          lu(k,1445) = lu(k,1445) - lu(k,1413) * lu(k,1432)
    5838   141174528 :          lu(k,1570) = lu(k,1570) - lu(k,1402) * lu(k,1569)
    5839   141174528 :          lu(k,1573) = lu(k,1573) - lu(k,1403) * lu(k,1569)
    5840   141174528 :          lu(k,1575) = lu(k,1575) - lu(k,1404) * lu(k,1569)
    5841   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,1405) * lu(k,1569)
    5842   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,1406) * lu(k,1569)
    5843   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1407) * lu(k,1569)
    5844   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,1408) * lu(k,1569)
    5845   141174528 :          lu(k,1582) = lu(k,1582) - lu(k,1409) * lu(k,1569)
    5846   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,1410) * lu(k,1569)
    5847   141174528 :          lu(k,1586) = lu(k,1586) - lu(k,1411) * lu(k,1569)
    5848   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1412) * lu(k,1569)
    5849   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,1413) * lu(k,1569)
    5850   141174528 :          lu(k,1813) = lu(k,1813) - lu(k,1402) * lu(k,1812)
    5851   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1403) * lu(k,1812)
    5852   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1404) * lu(k,1812)
    5853   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1405) * lu(k,1812)
    5854   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1406) * lu(k,1812)
    5855   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1407) * lu(k,1812)
    5856   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1408) * lu(k,1812)
    5857   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1409) * lu(k,1812)
    5858   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1410) * lu(k,1812)
    5859   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1411) * lu(k,1812)
    5860   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1412) * lu(k,1812)
    5861   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1413) * lu(k,1812)
    5862   141174528 :          lu(k,1941) = lu(k,1941) - lu(k,1402) * lu(k,1940)
    5863   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1403) * lu(k,1940)
    5864   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1404) * lu(k,1940)
    5865   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1405) * lu(k,1940)
    5866   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1406) * lu(k,1940)
    5867   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1407) * lu(k,1940)
    5868   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1408) * lu(k,1940)
    5869   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1409) * lu(k,1940)
    5870   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1410) * lu(k,1940)
    5871   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1411) * lu(k,1940)
    5872   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1412) * lu(k,1940)
    5873   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1413) * lu(k,1940)
    5874   141174528 :          lu(k,1994) = lu(k,1994) - lu(k,1402) * lu(k,1993)
    5875   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1403) * lu(k,1993)
    5876   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1404) * lu(k,1993)
    5877   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1405) * lu(k,1993)
    5878   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1406) * lu(k,1993)
    5879   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1407) * lu(k,1993)
    5880   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1408) * lu(k,1993)
    5881   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1409) * lu(k,1993)
    5882   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1410) * lu(k,1993)
    5883   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1411) * lu(k,1993)
    5884   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1412) * lu(k,1993)
    5885   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1413) * lu(k,1993)
    5886   141174528 :          lu(k,2075) = lu(k,2075) - lu(k,1402) * lu(k,2074)
    5887   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1403) * lu(k,2074)
    5888   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1404) * lu(k,2074)
    5889   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1405) * lu(k,2074)
    5890   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1406) * lu(k,2074)
    5891   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1407) * lu(k,2074)
    5892   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1408) * lu(k,2074)
    5893   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1409) * lu(k,2074)
    5894   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1410) * lu(k,2074)
    5895   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1411) * lu(k,2074)
    5896   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1412) * lu(k,2074)
    5897   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1413) * lu(k,2074)
    5898   141174528 :          lu(k,2176) = lu(k,2176) - lu(k,1402) * lu(k,2175)
    5899   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1403) * lu(k,2175)
    5900   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1404) * lu(k,2175)
    5901   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1405) * lu(k,2175)
    5902   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1406) * lu(k,2175)
    5903   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1407) * lu(k,2175)
    5904   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1408) * lu(k,2175)
    5905   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1409) * lu(k,2175)
    5906   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1410) * lu(k,2175)
    5907   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1411) * lu(k,2175)
    5908   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1412) * lu(k,2175)
    5909   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1413) * lu(k,2175)
    5910   141174528 :          lu(k,2293) = lu(k,2293) - lu(k,1402) * lu(k,2292)
    5911   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1403) * lu(k,2292)
    5912   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1404) * lu(k,2292)
    5913   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1405) * lu(k,2292)
    5914   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1406) * lu(k,2292)
    5915   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1407) * lu(k,2292)
    5916   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1408) * lu(k,2292)
    5917   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1409) * lu(k,2292)
    5918   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1410) * lu(k,2292)
    5919   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1411) * lu(k,2292)
    5920   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1412) * lu(k,2292)
    5921   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1413) * lu(k,2292)
    5922   141174528 :          lu(k,1433) = 1._r8 / lu(k,1433)
    5923   141174528 :          lu(k,1434) = lu(k,1434) * lu(k,1433)
    5924   141174528 :          lu(k,1435) = lu(k,1435) * lu(k,1433)
    5925   141174528 :          lu(k,1436) = lu(k,1436) * lu(k,1433)
    5926   141174528 :          lu(k,1437) = lu(k,1437) * lu(k,1433)
    5927   141174528 :          lu(k,1438) = lu(k,1438) * lu(k,1433)
    5928   141174528 :          lu(k,1439) = lu(k,1439) * lu(k,1433)
    5929   141174528 :          lu(k,1440) = lu(k,1440) * lu(k,1433)
    5930   141174528 :          lu(k,1441) = lu(k,1441) * lu(k,1433)
    5931   141174528 :          lu(k,1442) = lu(k,1442) * lu(k,1433)
    5932   141174528 :          lu(k,1443) = lu(k,1443) * lu(k,1433)
    5933   141174528 :          lu(k,1444) = lu(k,1444) * lu(k,1433)
    5934   141174528 :          lu(k,1445) = lu(k,1445) * lu(k,1433)
    5935   141174528 :          lu(k,1572) = - lu(k,1434) * lu(k,1570)
    5936   141174528 :          lu(k,1573) = lu(k,1573) - lu(k,1435) * lu(k,1570)
    5937   141174528 :          lu(k,1575) = lu(k,1575) - lu(k,1436) * lu(k,1570)
    5938   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,1437) * lu(k,1570)
    5939   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,1438) * lu(k,1570)
    5940   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1439) * lu(k,1570)
    5941   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,1440) * lu(k,1570)
    5942   141174528 :          lu(k,1582) = lu(k,1582) - lu(k,1441) * lu(k,1570)
    5943   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,1442) * lu(k,1570)
    5944   141174528 :          lu(k,1586) = lu(k,1586) - lu(k,1443) * lu(k,1570)
    5945   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1444) * lu(k,1570)
    5946   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,1445) * lu(k,1570)
    5947   141174528 :          lu(k,1816) = lu(k,1816) - lu(k,1434) * lu(k,1813)
    5948   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1435) * lu(k,1813)
    5949   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1436) * lu(k,1813)
    5950   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1437) * lu(k,1813)
    5951   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1438) * lu(k,1813)
    5952   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1439) * lu(k,1813)
    5953   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1440) * lu(k,1813)
    5954   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1441) * lu(k,1813)
    5955   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1442) * lu(k,1813)
    5956   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1443) * lu(k,1813)
    5957   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1444) * lu(k,1813)
    5958   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1445) * lu(k,1813)
    5959   141174528 :          lu(k,1943) = lu(k,1943) - lu(k,1434) * lu(k,1941)
    5960   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1435) * lu(k,1941)
    5961   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1436) * lu(k,1941)
    5962   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1437) * lu(k,1941)
    5963   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1438) * lu(k,1941)
    5964   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1439) * lu(k,1941)
    5965   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1440) * lu(k,1941)
    5966   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1441) * lu(k,1941)
    5967   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1442) * lu(k,1941)
    5968   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1443) * lu(k,1941)
    5969   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1444) * lu(k,1941)
    5970   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1445) * lu(k,1941)
    5971   141174528 :          lu(k,1995) = lu(k,1995) - lu(k,1434) * lu(k,1994)
    5972   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1435) * lu(k,1994)
    5973   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1436) * lu(k,1994)
    5974   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1437) * lu(k,1994)
    5975   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1438) * lu(k,1994)
    5976   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1439) * lu(k,1994)
    5977   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1440) * lu(k,1994)
    5978   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1441) * lu(k,1994)
    5979   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1442) * lu(k,1994)
    5980   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1443) * lu(k,1994)
    5981   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1444) * lu(k,1994)
    5982   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1445) * lu(k,1994)
    5983   141174528 :          lu(k,2077) = lu(k,2077) - lu(k,1434) * lu(k,2075)
    5984   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1435) * lu(k,2075)
    5985   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1436) * lu(k,2075)
    5986   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1437) * lu(k,2075)
    5987   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1438) * lu(k,2075)
    5988   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1439) * lu(k,2075)
    5989   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1440) * lu(k,2075)
    5990   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1441) * lu(k,2075)
    5991   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1442) * lu(k,2075)
    5992   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1443) * lu(k,2075)
    5993   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1444) * lu(k,2075)
    5994   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1445) * lu(k,2075)
    5995   141174528 :          lu(k,2116) = lu(k,2116) - lu(k,1434) * lu(k,2113)
    5996   141174528 :          lu(k,2117) = lu(k,2117) - lu(k,1435) * lu(k,2113)
    5997   141174528 :          lu(k,2119) = lu(k,2119) - lu(k,1436) * lu(k,2113)
    5998   141174528 :          lu(k,2120) = lu(k,2120) - lu(k,1437) * lu(k,2113)
    5999   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,1438) * lu(k,2113)
    6000   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1439) * lu(k,2113)
    6001   141174528 :          lu(k,2125) = lu(k,2125) - lu(k,1440) * lu(k,2113)
    6002   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1441) * lu(k,2113)
    6003   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1442) * lu(k,2113)
    6004   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,1443) * lu(k,2113)
    6005   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1444) * lu(k,2113)
    6006   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1445) * lu(k,2113)
    6007   141174528 :          lu(k,2178) = lu(k,2178) - lu(k,1434) * lu(k,2176)
    6008   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1435) * lu(k,2176)
    6009   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1436) * lu(k,2176)
    6010   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1437) * lu(k,2176)
    6011   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1438) * lu(k,2176)
    6012   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1439) * lu(k,2176)
    6013   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1440) * lu(k,2176)
    6014   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1441) * lu(k,2176)
    6015   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1442) * lu(k,2176)
    6016   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1443) * lu(k,2176)
    6017   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1444) * lu(k,2176)
    6018   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1445) * lu(k,2176)
    6019   141174528 :          lu(k,2296) = lu(k,2296) - lu(k,1434) * lu(k,2293)
    6020   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1435) * lu(k,2293)
    6021   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1436) * lu(k,2293)
    6022   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1437) * lu(k,2293)
    6023   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1438) * lu(k,2293)
    6024   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1439) * lu(k,2293)
    6025   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1440) * lu(k,2293)
    6026   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1441) * lu(k,2293)
    6027   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1442) * lu(k,2293)
    6028   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1443) * lu(k,2293)
    6029   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1444) * lu(k,2293)
    6030   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1445) * lu(k,2293)
    6031   141174528 :          lu(k,1448) = 1._r8 / lu(k,1448)
    6032   141174528 :          lu(k,1449) = lu(k,1449) * lu(k,1448)
    6033   141174528 :          lu(k,1450) = lu(k,1450) * lu(k,1448)
    6034   141174528 :          lu(k,1451) = lu(k,1451) * lu(k,1448)
    6035   141174528 :          lu(k,1452) = lu(k,1452) * lu(k,1448)
    6036   141174528 :          lu(k,1453) = lu(k,1453) * lu(k,1448)
    6037   141174528 :          lu(k,1454) = lu(k,1454) * lu(k,1448)
    6038   141174528 :          lu(k,1455) = lu(k,1455) * lu(k,1448)
    6039   141174528 :          lu(k,1456) = lu(k,1456) * lu(k,1448)
    6040   141174528 :          lu(k,1457) = lu(k,1457) * lu(k,1448)
    6041   141174528 :          lu(k,1458) = lu(k,1458) * lu(k,1448)
    6042   141174528 :          lu(k,1459) = lu(k,1459) * lu(k,1448)
    6043   141174528 :          lu(k,1477) = lu(k,1477) - lu(k,1449) * lu(k,1476)
    6044   141174528 :          lu(k,1478) = lu(k,1478) - lu(k,1450) * lu(k,1476)
    6045   141174528 :          lu(k,1479) = lu(k,1479) - lu(k,1451) * lu(k,1476)
    6046   141174528 :          lu(k,1481) = lu(k,1481) - lu(k,1452) * lu(k,1476)
    6047   141174528 :          lu(k,1482) = lu(k,1482) - lu(k,1453) * lu(k,1476)
    6048   141174528 :          lu(k,1483) = lu(k,1483) - lu(k,1454) * lu(k,1476)
    6049   141174528 :          lu(k,1484) = lu(k,1484) - lu(k,1455) * lu(k,1476)
    6050   141174528 :          lu(k,1485) = lu(k,1485) - lu(k,1456) * lu(k,1476)
    6051   141174528 :          lu(k,1486) = lu(k,1486) - lu(k,1457) * lu(k,1476)
    6052   141174528 :          lu(k,1487) = lu(k,1487) - lu(k,1458) * lu(k,1476)
    6053   141174528 :          lu(k,1489) = lu(k,1489) - lu(k,1459) * lu(k,1476)
    6054   141174528 :          lu(k,1493) = lu(k,1493) - lu(k,1449) * lu(k,1492)
    6055   141174528 :          lu(k,1494) = lu(k,1494) - lu(k,1450) * lu(k,1492)
    6056   141174528 :          lu(k,1495) = lu(k,1495) - lu(k,1451) * lu(k,1492)
    6057   141174528 :          lu(k,1498) = - lu(k,1452) * lu(k,1492)
    6058   141174528 :          lu(k,1499) = - lu(k,1453) * lu(k,1492)
    6059   141174528 :          lu(k,1500) = lu(k,1500) - lu(k,1454) * lu(k,1492)
    6060   141174528 :          lu(k,1501) = lu(k,1501) - lu(k,1455) * lu(k,1492)
    6061   141174528 :          lu(k,1502) = - lu(k,1456) * lu(k,1492)
    6062   141174528 :          lu(k,1503) = lu(k,1503) - lu(k,1457) * lu(k,1492)
    6063   141174528 :          lu(k,1504) = - lu(k,1458) * lu(k,1492)
    6064   141174528 :          lu(k,1506) = lu(k,1506) - lu(k,1459) * lu(k,1492)
    6065   141174528 :          lu(k,1508) = - lu(k,1449) * lu(k,1507)
    6066   141174528 :          lu(k,1509) = - lu(k,1450) * lu(k,1507)
    6067   141174528 :          lu(k,1510) = lu(k,1510) - lu(k,1451) * lu(k,1507)
    6068   141174528 :          lu(k,1513) = lu(k,1513) - lu(k,1452) * lu(k,1507)
    6069   141174528 :          lu(k,1514) = - lu(k,1453) * lu(k,1507)
    6070   141174528 :          lu(k,1515) = lu(k,1515) - lu(k,1454) * lu(k,1507)
    6071   141174528 :          lu(k,1516) = - lu(k,1455) * lu(k,1507)
    6072   141174528 :          lu(k,1517) = - lu(k,1456) * lu(k,1507)
    6073   141174528 :          lu(k,1518) = - lu(k,1457) * lu(k,1507)
    6074   141174528 :          lu(k,1519) = - lu(k,1458) * lu(k,1507)
    6075   141174528 :          lu(k,1522) = lu(k,1522) - lu(k,1459) * lu(k,1507)
    6076   141174528 :          lu(k,1529) = - lu(k,1449) * lu(k,1527)
    6077   141174528 :          lu(k,1530) = lu(k,1530) - lu(k,1450) * lu(k,1527)
    6078   141174528 :          lu(k,1531) = lu(k,1531) - lu(k,1451) * lu(k,1527)
    6079   141174528 :          lu(k,1534) = lu(k,1534) - lu(k,1452) * lu(k,1527)
    6080   141174528 :          lu(k,1535) = lu(k,1535) - lu(k,1453) * lu(k,1527)
    6081   141174528 :          lu(k,1536) = lu(k,1536) - lu(k,1454) * lu(k,1527)
    6082   141174528 :          lu(k,1539) = - lu(k,1455) * lu(k,1527)
    6083   141174528 :          lu(k,1540) = lu(k,1540) - lu(k,1456) * lu(k,1527)
    6084   141174528 :          lu(k,1541) = lu(k,1541) - lu(k,1457) * lu(k,1527)
    6085   141174528 :          lu(k,1542) = lu(k,1542) - lu(k,1458) * lu(k,1527)
    6086   141174528 :          lu(k,1545) = lu(k,1545) - lu(k,1459) * lu(k,1527)
    6087   141174528 :          lu(k,1603) = - lu(k,1449) * lu(k,1601)
    6088   141174528 :          lu(k,1604) = lu(k,1604) - lu(k,1450) * lu(k,1601)
    6089   141174528 :          lu(k,1605) = lu(k,1605) - lu(k,1451) * lu(k,1601)
    6090   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,1452) * lu(k,1601)
    6091   141174528 :          lu(k,1609) = lu(k,1609) - lu(k,1453) * lu(k,1601)
    6092   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,1454) * lu(k,1601)
    6093   141174528 :          lu(k,1613) = - lu(k,1455) * lu(k,1601)
    6094   141174528 :          lu(k,1614) = lu(k,1614) - lu(k,1456) * lu(k,1601)
    6095   141174528 :          lu(k,1615) = lu(k,1615) - lu(k,1457) * lu(k,1601)
    6096   141174528 :          lu(k,1616) = lu(k,1616) - lu(k,1458) * lu(k,1601)
    6097   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,1459) * lu(k,1601)
    6098   141174528 :          lu(k,1644) = lu(k,1644) - lu(k,1449) * lu(k,1642)
    6099   141174528 :          lu(k,1645) = lu(k,1645) - lu(k,1450) * lu(k,1642)
    6100   141174528 :          lu(k,1646) = lu(k,1646) - lu(k,1451) * lu(k,1642)
    6101   141174528 :          lu(k,1649) = lu(k,1649) - lu(k,1452) * lu(k,1642)
    6102   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,1453) * lu(k,1642)
    6103   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,1454) * lu(k,1642)
    6104   141174528 :          lu(k,1654) = lu(k,1654) - lu(k,1455) * lu(k,1642)
    6105   141174528 :          lu(k,1655) = lu(k,1655) - lu(k,1456) * lu(k,1642)
    6106   141174528 :          lu(k,1656) = lu(k,1656) - lu(k,1457) * lu(k,1642)
    6107   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,1458) * lu(k,1642)
    6108   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,1459) * lu(k,1642)
    6109   141174528 :          lu(k,1816) = lu(k,1816) - lu(k,1449) * lu(k,1814)
    6110   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1450) * lu(k,1814)
    6111   141174528 :          lu(k,1818) = lu(k,1818) - lu(k,1451) * lu(k,1814)
    6112   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1452) * lu(k,1814)
    6113   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,1453) * lu(k,1814)
    6114   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1454) * lu(k,1814)
    6115   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1455) * lu(k,1814)
    6116   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,1456) * lu(k,1814)
    6117   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1457) * lu(k,1814)
    6118   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,1458) * lu(k,1814)
    6119   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1459) * lu(k,1814)
    6120   141174528 :          lu(k,2116) = lu(k,2116) - lu(k,1449) * lu(k,2114)
    6121   141174528 :          lu(k,2117) = lu(k,2117) - lu(k,1450) * lu(k,2114)
    6122   141174528 :          lu(k,2118) = lu(k,2118) - lu(k,1451) * lu(k,2114)
    6123   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,1452) * lu(k,2114)
    6124   141174528 :          lu(k,2122) = lu(k,2122) - lu(k,1453) * lu(k,2114)
    6125   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1454) * lu(k,2114)
    6126   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1455) * lu(k,2114)
    6127   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,1456) * lu(k,2114)
    6128   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1457) * lu(k,2114)
    6129   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,1458) * lu(k,2114)
    6130   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1459) * lu(k,2114)
    6131   141174528 :          lu(k,2296) = lu(k,2296) - lu(k,1449) * lu(k,2294)
    6132   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1450) * lu(k,2294)
    6133   141174528 :          lu(k,2298) = lu(k,2298) - lu(k,1451) * lu(k,2294)
    6134   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1452) * lu(k,2294)
    6135   141174528 :          lu(k,2302) = lu(k,2302) - lu(k,1453) * lu(k,2294)
    6136   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1454) * lu(k,2294)
    6137   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1455) * lu(k,2294)
    6138   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,1456) * lu(k,2294)
    6139   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1457) * lu(k,2294)
    6140   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,1458) * lu(k,2294)
    6141   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1459) * lu(k,2294)
    6142   141174528 :          lu(k,2348) = lu(k,2348) - lu(k,1449) * lu(k,2346)
    6143   141174528 :          lu(k,2349) = lu(k,2349) - lu(k,1450) * lu(k,2346)
    6144   141174528 :          lu(k,2350) = lu(k,2350) - lu(k,1451) * lu(k,2346)
    6145   141174528 :          lu(k,2353) = lu(k,2353) - lu(k,1452) * lu(k,2346)
    6146   141174528 :          lu(k,2354) = lu(k,2354) - lu(k,1453) * lu(k,2346)
    6147   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,1454) * lu(k,2346)
    6148   141174528 :          lu(k,2358) = lu(k,2358) - lu(k,1455) * lu(k,2346)
    6149   141174528 :          lu(k,2359) = - lu(k,1456) * lu(k,2346)
    6150   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,1457) * lu(k,2346)
    6151   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,1458) * lu(k,2346)
    6152   145586232 :          lu(k,2365) = lu(k,2365) - lu(k,1459) * lu(k,2346)
    6153             :       end do
    6154     4411704 :       end subroutine lu_fac27
    6155     4411704 :       subroutine lu_fac28( avec_len, lu )
    6156             :       use chem_mods, only : nzcnt
    6157             :       use shr_kind_mod, only : r8 => shr_kind_r8
    6158             :       implicit none
    6159             : !-----------------------------------------------------------------------
    6160             : ! ... dummy args
    6161             : !-----------------------------------------------------------------------
    6162             :       integer, intent(in) :: avec_len
    6163             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    6164             : !-----------------------------------------------------------------------
    6165             : ! ... local variables
    6166             : !-----------------------------------------------------------------------
    6167             :       integer :: k
    6168   145586232 :       do k = 1,avec_len
    6169   141174528 :          lu(k,1462) = 1._r8 / lu(k,1462)
    6170   141174528 :          lu(k,1463) = lu(k,1463) * lu(k,1462)
    6171   141174528 :          lu(k,1464) = lu(k,1464) * lu(k,1462)
    6172   141174528 :          lu(k,1465) = lu(k,1465) * lu(k,1462)
    6173   141174528 :          lu(k,1466) = lu(k,1466) * lu(k,1462)
    6174   141174528 :          lu(k,1467) = lu(k,1467) * lu(k,1462)
    6175   141174528 :          lu(k,1468) = lu(k,1468) * lu(k,1462)
    6176   141174528 :          lu(k,1469) = lu(k,1469) * lu(k,1462)
    6177   141174528 :          lu(k,1470) = lu(k,1470) * lu(k,1462)
    6178   141174528 :          lu(k,1471) = lu(k,1471) * lu(k,1462)
    6179   141174528 :          lu(k,1531) = lu(k,1531) - lu(k,1463) * lu(k,1528)
    6180   141174528 :          lu(k,1532) = lu(k,1532) - lu(k,1464) * lu(k,1528)
    6181   141174528 :          lu(k,1534) = lu(k,1534) - lu(k,1465) * lu(k,1528)
    6182   141174528 :          lu(k,1535) = lu(k,1535) - lu(k,1466) * lu(k,1528)
    6183   141174528 :          lu(k,1536) = lu(k,1536) - lu(k,1467) * lu(k,1528)
    6184   141174528 :          lu(k,1537) = lu(k,1537) - lu(k,1468) * lu(k,1528)
    6185   141174528 :          lu(k,1543) = - lu(k,1469) * lu(k,1528)
    6186   141174528 :          lu(k,1544) = lu(k,1544) - lu(k,1470) * lu(k,1528)
    6187   141174528 :          lu(k,1545) = lu(k,1545) - lu(k,1471) * lu(k,1528)
    6188   141174528 :          lu(k,1574) = lu(k,1574) - lu(k,1463) * lu(k,1571)
    6189   141174528 :          lu(k,1575) = lu(k,1575) - lu(k,1464) * lu(k,1571)
    6190   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,1465) * lu(k,1571)
    6191   141174528 :          lu(k,1578) = lu(k,1578) - lu(k,1466) * lu(k,1571)
    6192   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1467) * lu(k,1571)
    6193   141174528 :          lu(k,1580) = lu(k,1580) - lu(k,1468) * lu(k,1571)
    6194   141174528 :          lu(k,1586) = lu(k,1586) - lu(k,1469) * lu(k,1571)
    6195   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1470) * lu(k,1571)
    6196   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,1471) * lu(k,1571)
    6197   141174528 :          lu(k,1605) = lu(k,1605) - lu(k,1463) * lu(k,1602)
    6198   141174528 :          lu(k,1606) = lu(k,1606) - lu(k,1464) * lu(k,1602)
    6199   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,1465) * lu(k,1602)
    6200   141174528 :          lu(k,1609) = lu(k,1609) - lu(k,1466) * lu(k,1602)
    6201   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,1467) * lu(k,1602)
    6202   141174528 :          lu(k,1611) = lu(k,1611) - lu(k,1468) * lu(k,1602)
    6203   141174528 :          lu(k,1617) = lu(k,1617) - lu(k,1469) * lu(k,1602)
    6204   141174528 :          lu(k,1618) = lu(k,1618) - lu(k,1470) * lu(k,1602)
    6205   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,1471) * lu(k,1602)
    6206   141174528 :          lu(k,1646) = lu(k,1646) - lu(k,1463) * lu(k,1643)
    6207   141174528 :          lu(k,1647) = lu(k,1647) - lu(k,1464) * lu(k,1643)
    6208   141174528 :          lu(k,1649) = lu(k,1649) - lu(k,1465) * lu(k,1643)
    6209   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,1466) * lu(k,1643)
    6210   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,1467) * lu(k,1643)
    6211   141174528 :          lu(k,1652) = lu(k,1652) - lu(k,1468) * lu(k,1643)
    6212   141174528 :          lu(k,1658) = lu(k,1658) - lu(k,1469) * lu(k,1643)
    6213   141174528 :          lu(k,1659) = lu(k,1659) - lu(k,1470) * lu(k,1643)
    6214   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,1471) * lu(k,1643)
    6215   141174528 :          lu(k,1818) = lu(k,1818) - lu(k,1463) * lu(k,1815)
    6216   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1464) * lu(k,1815)
    6217   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1465) * lu(k,1815)
    6218   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,1466) * lu(k,1815)
    6219   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1467) * lu(k,1815)
    6220   141174528 :          lu(k,1824) = lu(k,1824) - lu(k,1468) * lu(k,1815)
    6221   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1469) * lu(k,1815)
    6222   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1470) * lu(k,1815)
    6223   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1471) * lu(k,1815)
    6224   141174528 :          lu(k,1842) = lu(k,1842) - lu(k,1463) * lu(k,1840)
    6225   141174528 :          lu(k,1843) = - lu(k,1464) * lu(k,1840)
    6226   141174528 :          lu(k,1845) = lu(k,1845) - lu(k,1465) * lu(k,1840)
    6227   141174528 :          lu(k,1846) = - lu(k,1466) * lu(k,1840)
    6228   141174528 :          lu(k,1847) = lu(k,1847) - lu(k,1467) * lu(k,1840)
    6229   141174528 :          lu(k,1848) = lu(k,1848) - lu(k,1468) * lu(k,1840)
    6230   141174528 :          lu(k,1854) = lu(k,1854) - lu(k,1469) * lu(k,1840)
    6231   141174528 :          lu(k,1855) = lu(k,1855) - lu(k,1470) * lu(k,1840)
    6232   141174528 :          lu(k,1857) = lu(k,1857) - lu(k,1471) * lu(k,1840)
    6233   141174528 :          lu(k,1945) = lu(k,1945) - lu(k,1463) * lu(k,1942)
    6234   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1464) * lu(k,1942)
    6235   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1465) * lu(k,1942)
    6236   141174528 :          lu(k,1949) = lu(k,1949) - lu(k,1466) * lu(k,1942)
    6237   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1467) * lu(k,1942)
    6238   141174528 :          lu(k,1951) = lu(k,1951) - lu(k,1468) * lu(k,1942)
    6239   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1469) * lu(k,1942)
    6240   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1470) * lu(k,1942)
    6241   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1471) * lu(k,1942)
    6242   141174528 :          lu(k,2020) = lu(k,2020) - lu(k,1463) * lu(k,2018)
    6243   141174528 :          lu(k,2021) = - lu(k,1464) * lu(k,2018)
    6244   141174528 :          lu(k,2023) = lu(k,2023) - lu(k,1465) * lu(k,2018)
    6245   141174528 :          lu(k,2024) = lu(k,2024) - lu(k,1466) * lu(k,2018)
    6246   141174528 :          lu(k,2025) = lu(k,2025) - lu(k,1467) * lu(k,2018)
    6247   141174528 :          lu(k,2026) = lu(k,2026) - lu(k,1468) * lu(k,2018)
    6248   141174528 :          lu(k,2032) = - lu(k,1469) * lu(k,2018)
    6249   141174528 :          lu(k,2033) = - lu(k,1470) * lu(k,2018)
    6250   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,1471) * lu(k,2018)
    6251   141174528 :          lu(k,2079) = lu(k,2079) - lu(k,1463) * lu(k,2076)
    6252   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1464) * lu(k,2076)
    6253   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1465) * lu(k,2076)
    6254   141174528 :          lu(k,2083) = - lu(k,1466) * lu(k,2076)
    6255   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1467) * lu(k,2076)
    6256   141174528 :          lu(k,2085) = lu(k,2085) - lu(k,1468) * lu(k,2076)
    6257   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1469) * lu(k,2076)
    6258   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1470) * lu(k,2076)
    6259   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1471) * lu(k,2076)
    6260   141174528 :          lu(k,2118) = lu(k,2118) - lu(k,1463) * lu(k,2115)
    6261   141174528 :          lu(k,2119) = lu(k,2119) - lu(k,1464) * lu(k,2115)
    6262   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,1465) * lu(k,2115)
    6263   141174528 :          lu(k,2122) = lu(k,2122) - lu(k,1466) * lu(k,2115)
    6264   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1467) * lu(k,2115)
    6265   141174528 :          lu(k,2124) = - lu(k,1468) * lu(k,2115)
    6266   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,1469) * lu(k,2115)
    6267   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1470) * lu(k,2115)
    6268   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1471) * lu(k,2115)
    6269   141174528 :          lu(k,2180) = lu(k,2180) - lu(k,1463) * lu(k,2177)
    6270   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1464) * lu(k,2177)
    6271   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1465) * lu(k,2177)
    6272   141174528 :          lu(k,2184) = lu(k,2184) - lu(k,1466) * lu(k,2177)
    6273   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1467) * lu(k,2177)
    6274   141174528 :          lu(k,2186) = lu(k,2186) - lu(k,1468) * lu(k,2177)
    6275   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1469) * lu(k,2177)
    6276   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1470) * lu(k,2177)
    6277   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1471) * lu(k,2177)
    6278   141174528 :          lu(k,2298) = lu(k,2298) - lu(k,1463) * lu(k,2295)
    6279   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1464) * lu(k,2295)
    6280   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1465) * lu(k,2295)
    6281   141174528 :          lu(k,2302) = lu(k,2302) - lu(k,1466) * lu(k,2295)
    6282   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1467) * lu(k,2295)
    6283   141174528 :          lu(k,2304) = lu(k,2304) - lu(k,1468) * lu(k,2295)
    6284   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1469) * lu(k,2295)
    6285   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1470) * lu(k,2295)
    6286   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1471) * lu(k,2295)
    6287   141174528 :          lu(k,2324) = lu(k,2324) - lu(k,1463) * lu(k,2322)
    6288   141174528 :          lu(k,2325) = lu(k,2325) - lu(k,1464) * lu(k,2322)
    6289   141174528 :          lu(k,2327) = lu(k,2327) - lu(k,1465) * lu(k,2322)
    6290   141174528 :          lu(k,2328) = - lu(k,1466) * lu(k,2322)
    6291   141174528 :          lu(k,2329) = lu(k,2329) - lu(k,1467) * lu(k,2322)
    6292   141174528 :          lu(k,2330) = lu(k,2330) - lu(k,1468) * lu(k,2322)
    6293   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,1469) * lu(k,2322)
    6294   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,1470) * lu(k,2322)
    6295   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,1471) * lu(k,2322)
    6296   141174528 :          lu(k,2350) = lu(k,2350) - lu(k,1463) * lu(k,2347)
    6297   141174528 :          lu(k,2351) = - lu(k,1464) * lu(k,2347)
    6298   141174528 :          lu(k,2353) = lu(k,2353) - lu(k,1465) * lu(k,2347)
    6299   141174528 :          lu(k,2354) = lu(k,2354) - lu(k,1466) * lu(k,2347)
    6300   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,1467) * lu(k,2347)
    6301   141174528 :          lu(k,2356) = lu(k,2356) - lu(k,1468) * lu(k,2347)
    6302   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,1469) * lu(k,2347)
    6303   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1470) * lu(k,2347)
    6304   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,1471) * lu(k,2347)
    6305   141174528 :          lu(k,1477) = 1._r8 / lu(k,1477)
    6306   141174528 :          lu(k,1478) = lu(k,1478) * lu(k,1477)
    6307   141174528 :          lu(k,1479) = lu(k,1479) * lu(k,1477)
    6308   141174528 :          lu(k,1480) = lu(k,1480) * lu(k,1477)
    6309   141174528 :          lu(k,1481) = lu(k,1481) * lu(k,1477)
    6310   141174528 :          lu(k,1482) = lu(k,1482) * lu(k,1477)
    6311   141174528 :          lu(k,1483) = lu(k,1483) * lu(k,1477)
    6312   141174528 :          lu(k,1484) = lu(k,1484) * lu(k,1477)
    6313   141174528 :          lu(k,1485) = lu(k,1485) * lu(k,1477)
    6314   141174528 :          lu(k,1486) = lu(k,1486) * lu(k,1477)
    6315   141174528 :          lu(k,1487) = lu(k,1487) * lu(k,1477)
    6316   141174528 :          lu(k,1488) = lu(k,1488) * lu(k,1477)
    6317   141174528 :          lu(k,1489) = lu(k,1489) * lu(k,1477)
    6318   141174528 :          lu(k,1494) = lu(k,1494) - lu(k,1478) * lu(k,1493)
    6319   141174528 :          lu(k,1495) = lu(k,1495) - lu(k,1479) * lu(k,1493)
    6320   141174528 :          lu(k,1496) = - lu(k,1480) * lu(k,1493)
    6321   141174528 :          lu(k,1498) = lu(k,1498) - lu(k,1481) * lu(k,1493)
    6322   141174528 :          lu(k,1499) = lu(k,1499) - lu(k,1482) * lu(k,1493)
    6323   141174528 :          lu(k,1500) = lu(k,1500) - lu(k,1483) * lu(k,1493)
    6324   141174528 :          lu(k,1501) = lu(k,1501) - lu(k,1484) * lu(k,1493)
    6325   141174528 :          lu(k,1502) = lu(k,1502) - lu(k,1485) * lu(k,1493)
    6326   141174528 :          lu(k,1503) = lu(k,1503) - lu(k,1486) * lu(k,1493)
    6327   141174528 :          lu(k,1504) = lu(k,1504) - lu(k,1487) * lu(k,1493)
    6328   141174528 :          lu(k,1505) = - lu(k,1488) * lu(k,1493)
    6329   141174528 :          lu(k,1506) = lu(k,1506) - lu(k,1489) * lu(k,1493)
    6330   141174528 :          lu(k,1509) = lu(k,1509) - lu(k,1478) * lu(k,1508)
    6331   141174528 :          lu(k,1510) = lu(k,1510) - lu(k,1479) * lu(k,1508)
    6332   141174528 :          lu(k,1511) = - lu(k,1480) * lu(k,1508)
    6333   141174528 :          lu(k,1513) = lu(k,1513) - lu(k,1481) * lu(k,1508)
    6334   141174528 :          lu(k,1514) = lu(k,1514) - lu(k,1482) * lu(k,1508)
    6335   141174528 :          lu(k,1515) = lu(k,1515) - lu(k,1483) * lu(k,1508)
    6336   141174528 :          lu(k,1516) = lu(k,1516) - lu(k,1484) * lu(k,1508)
    6337   141174528 :          lu(k,1517) = lu(k,1517) - lu(k,1485) * lu(k,1508)
    6338   141174528 :          lu(k,1518) = lu(k,1518) - lu(k,1486) * lu(k,1508)
    6339   141174528 :          lu(k,1519) = lu(k,1519) - lu(k,1487) * lu(k,1508)
    6340   141174528 :          lu(k,1521) = lu(k,1521) - lu(k,1488) * lu(k,1508)
    6341   141174528 :          lu(k,1522) = lu(k,1522) - lu(k,1489) * lu(k,1508)
    6342   141174528 :          lu(k,1530) = lu(k,1530) - lu(k,1478) * lu(k,1529)
    6343   141174528 :          lu(k,1531) = lu(k,1531) - lu(k,1479) * lu(k,1529)
    6344   141174528 :          lu(k,1532) = lu(k,1532) - lu(k,1480) * lu(k,1529)
    6345   141174528 :          lu(k,1534) = lu(k,1534) - lu(k,1481) * lu(k,1529)
    6346   141174528 :          lu(k,1535) = lu(k,1535) - lu(k,1482) * lu(k,1529)
    6347   141174528 :          lu(k,1536) = lu(k,1536) - lu(k,1483) * lu(k,1529)
    6348   141174528 :          lu(k,1539) = lu(k,1539) - lu(k,1484) * lu(k,1529)
    6349   141174528 :          lu(k,1540) = lu(k,1540) - lu(k,1485) * lu(k,1529)
    6350   141174528 :          lu(k,1541) = lu(k,1541) - lu(k,1486) * lu(k,1529)
    6351   141174528 :          lu(k,1542) = lu(k,1542) - lu(k,1487) * lu(k,1529)
    6352   141174528 :          lu(k,1544) = lu(k,1544) - lu(k,1488) * lu(k,1529)
    6353   141174528 :          lu(k,1545) = lu(k,1545) - lu(k,1489) * lu(k,1529)
    6354   141174528 :          lu(k,1573) = lu(k,1573) - lu(k,1478) * lu(k,1572)
    6355   141174528 :          lu(k,1574) = lu(k,1574) - lu(k,1479) * lu(k,1572)
    6356   141174528 :          lu(k,1575) = lu(k,1575) - lu(k,1480) * lu(k,1572)
    6357   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,1481) * lu(k,1572)
    6358   141174528 :          lu(k,1578) = lu(k,1578) - lu(k,1482) * lu(k,1572)
    6359   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1483) * lu(k,1572)
    6360   141174528 :          lu(k,1582) = lu(k,1582) - lu(k,1484) * lu(k,1572)
    6361   141174528 :          lu(k,1583) = lu(k,1583) - lu(k,1485) * lu(k,1572)
    6362   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,1486) * lu(k,1572)
    6363   141174528 :          lu(k,1585) = lu(k,1585) - lu(k,1487) * lu(k,1572)
    6364   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1488) * lu(k,1572)
    6365   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,1489) * lu(k,1572)
    6366   141174528 :          lu(k,1604) = lu(k,1604) - lu(k,1478) * lu(k,1603)
    6367   141174528 :          lu(k,1605) = lu(k,1605) - lu(k,1479) * lu(k,1603)
    6368   141174528 :          lu(k,1606) = lu(k,1606) - lu(k,1480) * lu(k,1603)
    6369   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,1481) * lu(k,1603)
    6370   141174528 :          lu(k,1609) = lu(k,1609) - lu(k,1482) * lu(k,1603)
    6371   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,1483) * lu(k,1603)
    6372   141174528 :          lu(k,1613) = lu(k,1613) - lu(k,1484) * lu(k,1603)
    6373   141174528 :          lu(k,1614) = lu(k,1614) - lu(k,1485) * lu(k,1603)
    6374   141174528 :          lu(k,1615) = lu(k,1615) - lu(k,1486) * lu(k,1603)
    6375   141174528 :          lu(k,1616) = lu(k,1616) - lu(k,1487) * lu(k,1603)
    6376   141174528 :          lu(k,1618) = lu(k,1618) - lu(k,1488) * lu(k,1603)
    6377   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,1489) * lu(k,1603)
    6378   141174528 :          lu(k,1645) = lu(k,1645) - lu(k,1478) * lu(k,1644)
    6379   141174528 :          lu(k,1646) = lu(k,1646) - lu(k,1479) * lu(k,1644)
    6380   141174528 :          lu(k,1647) = lu(k,1647) - lu(k,1480) * lu(k,1644)
    6381   141174528 :          lu(k,1649) = lu(k,1649) - lu(k,1481) * lu(k,1644)
    6382   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,1482) * lu(k,1644)
    6383   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,1483) * lu(k,1644)
    6384   141174528 :          lu(k,1654) = lu(k,1654) - lu(k,1484) * lu(k,1644)
    6385   141174528 :          lu(k,1655) = lu(k,1655) - lu(k,1485) * lu(k,1644)
    6386   141174528 :          lu(k,1656) = lu(k,1656) - lu(k,1486) * lu(k,1644)
    6387   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,1487) * lu(k,1644)
    6388   141174528 :          lu(k,1659) = lu(k,1659) - lu(k,1488) * lu(k,1644)
    6389   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,1489) * lu(k,1644)
    6390   141174528 :          lu(k,1817) = lu(k,1817) - lu(k,1478) * lu(k,1816)
    6391   141174528 :          lu(k,1818) = lu(k,1818) - lu(k,1479) * lu(k,1816)
    6392   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1480) * lu(k,1816)
    6393   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1481) * lu(k,1816)
    6394   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,1482) * lu(k,1816)
    6395   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1483) * lu(k,1816)
    6396   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1484) * lu(k,1816)
    6397   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,1485) * lu(k,1816)
    6398   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1486) * lu(k,1816)
    6399   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,1487) * lu(k,1816)
    6400   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1488) * lu(k,1816)
    6401   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1489) * lu(k,1816)
    6402   141174528 :          lu(k,1944) = lu(k,1944) - lu(k,1478) * lu(k,1943)
    6403   141174528 :          lu(k,1945) = lu(k,1945) - lu(k,1479) * lu(k,1943)
    6404   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1480) * lu(k,1943)
    6405   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1481) * lu(k,1943)
    6406   141174528 :          lu(k,1949) = lu(k,1949) - lu(k,1482) * lu(k,1943)
    6407   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1483) * lu(k,1943)
    6408   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1484) * lu(k,1943)
    6409   141174528 :          lu(k,1954) = - lu(k,1485) * lu(k,1943)
    6410   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1486) * lu(k,1943)
    6411   141174528 :          lu(k,1956) = lu(k,1956) - lu(k,1487) * lu(k,1943)
    6412   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1488) * lu(k,1943)
    6413   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1489) * lu(k,1943)
    6414   141174528 :          lu(k,1996) = lu(k,1996) - lu(k,1478) * lu(k,1995)
    6415   141174528 :          lu(k,1997) = lu(k,1997) - lu(k,1479) * lu(k,1995)
    6416   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1480) * lu(k,1995)
    6417   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1481) * lu(k,1995)
    6418   141174528 :          lu(k,2001) = - lu(k,1482) * lu(k,1995)
    6419   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1483) * lu(k,1995)
    6420   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1484) * lu(k,1995)
    6421   141174528 :          lu(k,2006) = - lu(k,1485) * lu(k,1995)
    6422   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1486) * lu(k,1995)
    6423   141174528 :          lu(k,2008) = lu(k,2008) - lu(k,1487) * lu(k,1995)
    6424   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1488) * lu(k,1995)
    6425   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1489) * lu(k,1995)
    6426   141174528 :          lu(k,2078) = lu(k,2078) - lu(k,1478) * lu(k,2077)
    6427   141174528 :          lu(k,2079) = lu(k,2079) - lu(k,1479) * lu(k,2077)
    6428   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1480) * lu(k,2077)
    6429   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1481) * lu(k,2077)
    6430   141174528 :          lu(k,2083) = lu(k,2083) - lu(k,1482) * lu(k,2077)
    6431   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1483) * lu(k,2077)
    6432   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1484) * lu(k,2077)
    6433   141174528 :          lu(k,2088) = - lu(k,1485) * lu(k,2077)
    6434   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1486) * lu(k,2077)
    6435   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,1487) * lu(k,2077)
    6436   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1488) * lu(k,2077)
    6437   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1489) * lu(k,2077)
    6438   141174528 :          lu(k,2117) = lu(k,2117) - lu(k,1478) * lu(k,2116)
    6439   141174528 :          lu(k,2118) = lu(k,2118) - lu(k,1479) * lu(k,2116)
    6440   141174528 :          lu(k,2119) = lu(k,2119) - lu(k,1480) * lu(k,2116)
    6441   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,1481) * lu(k,2116)
    6442   141174528 :          lu(k,2122) = lu(k,2122) - lu(k,1482) * lu(k,2116)
    6443   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1483) * lu(k,2116)
    6444   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1484) * lu(k,2116)
    6445   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,1485) * lu(k,2116)
    6446   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1486) * lu(k,2116)
    6447   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,1487) * lu(k,2116)
    6448   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1488) * lu(k,2116)
    6449   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1489) * lu(k,2116)
    6450   141174528 :          lu(k,2179) = lu(k,2179) - lu(k,1478) * lu(k,2178)
    6451   141174528 :          lu(k,2180) = lu(k,2180) - lu(k,1479) * lu(k,2178)
    6452   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1480) * lu(k,2178)
    6453   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1481) * lu(k,2178)
    6454   141174528 :          lu(k,2184) = lu(k,2184) - lu(k,1482) * lu(k,2178)
    6455   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1483) * lu(k,2178)
    6456   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1484) * lu(k,2178)
    6457   141174528 :          lu(k,2189) = - lu(k,1485) * lu(k,2178)
    6458   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1486) * lu(k,2178)
    6459   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,1487) * lu(k,2178)
    6460   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1488) * lu(k,2178)
    6461   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1489) * lu(k,2178)
    6462   141174528 :          lu(k,2297) = lu(k,2297) - lu(k,1478) * lu(k,2296)
    6463   141174528 :          lu(k,2298) = lu(k,2298) - lu(k,1479) * lu(k,2296)
    6464   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1480) * lu(k,2296)
    6465   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1481) * lu(k,2296)
    6466   141174528 :          lu(k,2302) = lu(k,2302) - lu(k,1482) * lu(k,2296)
    6467   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1483) * lu(k,2296)
    6468   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1484) * lu(k,2296)
    6469   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,1485) * lu(k,2296)
    6470   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1486) * lu(k,2296)
    6471   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,1487) * lu(k,2296)
    6472   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1488) * lu(k,2296)
    6473   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1489) * lu(k,2296)
    6474   141174528 :          lu(k,2349) = lu(k,2349) - lu(k,1478) * lu(k,2348)
    6475   141174528 :          lu(k,2350) = lu(k,2350) - lu(k,1479) * lu(k,2348)
    6476   141174528 :          lu(k,2351) = lu(k,2351) - lu(k,1480) * lu(k,2348)
    6477   141174528 :          lu(k,2353) = lu(k,2353) - lu(k,1481) * lu(k,2348)
    6478   141174528 :          lu(k,2354) = lu(k,2354) - lu(k,1482) * lu(k,2348)
    6479   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,1483) * lu(k,2348)
    6480   141174528 :          lu(k,2358) = lu(k,2358) - lu(k,1484) * lu(k,2348)
    6481   141174528 :          lu(k,2359) = lu(k,2359) - lu(k,1485) * lu(k,2348)
    6482   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,1486) * lu(k,2348)
    6483   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,1487) * lu(k,2348)
    6484   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1488) * lu(k,2348)
    6485   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,1489) * lu(k,2348)
    6486   141174528 :          lu(k,1494) = 1._r8 / lu(k,1494)
    6487   141174528 :          lu(k,1495) = lu(k,1495) * lu(k,1494)
    6488   141174528 :          lu(k,1496) = lu(k,1496) * lu(k,1494)
    6489   141174528 :          lu(k,1497) = lu(k,1497) * lu(k,1494)
    6490   141174528 :          lu(k,1498) = lu(k,1498) * lu(k,1494)
    6491   141174528 :          lu(k,1499) = lu(k,1499) * lu(k,1494)
    6492   141174528 :          lu(k,1500) = lu(k,1500) * lu(k,1494)
    6493   141174528 :          lu(k,1501) = lu(k,1501) * lu(k,1494)
    6494   141174528 :          lu(k,1502) = lu(k,1502) * lu(k,1494)
    6495   141174528 :          lu(k,1503) = lu(k,1503) * lu(k,1494)
    6496   141174528 :          lu(k,1504) = lu(k,1504) * lu(k,1494)
    6497   141174528 :          lu(k,1505) = lu(k,1505) * lu(k,1494)
    6498   141174528 :          lu(k,1506) = lu(k,1506) * lu(k,1494)
    6499   141174528 :          lu(k,1510) = lu(k,1510) - lu(k,1495) * lu(k,1509)
    6500   141174528 :          lu(k,1511) = lu(k,1511) - lu(k,1496) * lu(k,1509)
    6501   141174528 :          lu(k,1512) = - lu(k,1497) * lu(k,1509)
    6502   141174528 :          lu(k,1513) = lu(k,1513) - lu(k,1498) * lu(k,1509)
    6503   141174528 :          lu(k,1514) = lu(k,1514) - lu(k,1499) * lu(k,1509)
    6504   141174528 :          lu(k,1515) = lu(k,1515) - lu(k,1500) * lu(k,1509)
    6505   141174528 :          lu(k,1516) = lu(k,1516) - lu(k,1501) * lu(k,1509)
    6506   141174528 :          lu(k,1517) = lu(k,1517) - lu(k,1502) * lu(k,1509)
    6507   141174528 :          lu(k,1518) = lu(k,1518) - lu(k,1503) * lu(k,1509)
    6508   141174528 :          lu(k,1519) = lu(k,1519) - lu(k,1504) * lu(k,1509)
    6509   141174528 :          lu(k,1521) = lu(k,1521) - lu(k,1505) * lu(k,1509)
    6510   141174528 :          lu(k,1522) = lu(k,1522) - lu(k,1506) * lu(k,1509)
    6511   141174528 :          lu(k,1531) = lu(k,1531) - lu(k,1495) * lu(k,1530)
    6512   141174528 :          lu(k,1532) = lu(k,1532) - lu(k,1496) * lu(k,1530)
    6513   141174528 :          lu(k,1533) = lu(k,1533) - lu(k,1497) * lu(k,1530)
    6514   141174528 :          lu(k,1534) = lu(k,1534) - lu(k,1498) * lu(k,1530)
    6515   141174528 :          lu(k,1535) = lu(k,1535) - lu(k,1499) * lu(k,1530)
    6516   141174528 :          lu(k,1536) = lu(k,1536) - lu(k,1500) * lu(k,1530)
    6517   141174528 :          lu(k,1539) = lu(k,1539) - lu(k,1501) * lu(k,1530)
    6518   141174528 :          lu(k,1540) = lu(k,1540) - lu(k,1502) * lu(k,1530)
    6519   141174528 :          lu(k,1541) = lu(k,1541) - lu(k,1503) * lu(k,1530)
    6520   141174528 :          lu(k,1542) = lu(k,1542) - lu(k,1504) * lu(k,1530)
    6521   141174528 :          lu(k,1544) = lu(k,1544) - lu(k,1505) * lu(k,1530)
    6522   141174528 :          lu(k,1545) = lu(k,1545) - lu(k,1506) * lu(k,1530)
    6523   141174528 :          lu(k,1574) = lu(k,1574) - lu(k,1495) * lu(k,1573)
    6524   141174528 :          lu(k,1575) = lu(k,1575) - lu(k,1496) * lu(k,1573)
    6525   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,1497) * lu(k,1573)
    6526   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,1498) * lu(k,1573)
    6527   141174528 :          lu(k,1578) = lu(k,1578) - lu(k,1499) * lu(k,1573)
    6528   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1500) * lu(k,1573)
    6529   141174528 :          lu(k,1582) = lu(k,1582) - lu(k,1501) * lu(k,1573)
    6530   141174528 :          lu(k,1583) = lu(k,1583) - lu(k,1502) * lu(k,1573)
    6531   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,1503) * lu(k,1573)
    6532   141174528 :          lu(k,1585) = lu(k,1585) - lu(k,1504) * lu(k,1573)
    6533   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1505) * lu(k,1573)
    6534   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,1506) * lu(k,1573)
    6535   141174528 :          lu(k,1605) = lu(k,1605) - lu(k,1495) * lu(k,1604)
    6536   141174528 :          lu(k,1606) = lu(k,1606) - lu(k,1496) * lu(k,1604)
    6537   141174528 :          lu(k,1607) = lu(k,1607) - lu(k,1497) * lu(k,1604)
    6538   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,1498) * lu(k,1604)
    6539   141174528 :          lu(k,1609) = lu(k,1609) - lu(k,1499) * lu(k,1604)
    6540   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,1500) * lu(k,1604)
    6541   141174528 :          lu(k,1613) = lu(k,1613) - lu(k,1501) * lu(k,1604)
    6542   141174528 :          lu(k,1614) = lu(k,1614) - lu(k,1502) * lu(k,1604)
    6543   141174528 :          lu(k,1615) = lu(k,1615) - lu(k,1503) * lu(k,1604)
    6544   141174528 :          lu(k,1616) = lu(k,1616) - lu(k,1504) * lu(k,1604)
    6545   141174528 :          lu(k,1618) = lu(k,1618) - lu(k,1505) * lu(k,1604)
    6546   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,1506) * lu(k,1604)
    6547   141174528 :          lu(k,1646) = lu(k,1646) - lu(k,1495) * lu(k,1645)
    6548   141174528 :          lu(k,1647) = lu(k,1647) - lu(k,1496) * lu(k,1645)
    6549   141174528 :          lu(k,1648) = - lu(k,1497) * lu(k,1645)
    6550   141174528 :          lu(k,1649) = lu(k,1649) - lu(k,1498) * lu(k,1645)
    6551   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,1499) * lu(k,1645)
    6552   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,1500) * lu(k,1645)
    6553   141174528 :          lu(k,1654) = lu(k,1654) - lu(k,1501) * lu(k,1645)
    6554   141174528 :          lu(k,1655) = lu(k,1655) - lu(k,1502) * lu(k,1645)
    6555   141174528 :          lu(k,1656) = lu(k,1656) - lu(k,1503) * lu(k,1645)
    6556   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,1504) * lu(k,1645)
    6557   141174528 :          lu(k,1659) = lu(k,1659) - lu(k,1505) * lu(k,1645)
    6558   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,1506) * lu(k,1645)
    6559   141174528 :          lu(k,1818) = lu(k,1818) - lu(k,1495) * lu(k,1817)
    6560   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1496) * lu(k,1817)
    6561   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1497) * lu(k,1817)
    6562   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1498) * lu(k,1817)
    6563   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,1499) * lu(k,1817)
    6564   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1500) * lu(k,1817)
    6565   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1501) * lu(k,1817)
    6566   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,1502) * lu(k,1817)
    6567   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1503) * lu(k,1817)
    6568   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,1504) * lu(k,1817)
    6569   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1505) * lu(k,1817)
    6570   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1506) * lu(k,1817)
    6571   141174528 :          lu(k,1842) = lu(k,1842) - lu(k,1495) * lu(k,1841)
    6572   141174528 :          lu(k,1843) = lu(k,1843) - lu(k,1496) * lu(k,1841)
    6573   141174528 :          lu(k,1844) = lu(k,1844) - lu(k,1497) * lu(k,1841)
    6574   141174528 :          lu(k,1845) = lu(k,1845) - lu(k,1498) * lu(k,1841)
    6575   141174528 :          lu(k,1846) = lu(k,1846) - lu(k,1499) * lu(k,1841)
    6576   141174528 :          lu(k,1847) = lu(k,1847) - lu(k,1500) * lu(k,1841)
    6577   141174528 :          lu(k,1850) = - lu(k,1501) * lu(k,1841)
    6578   141174528 :          lu(k,1851) = lu(k,1851) - lu(k,1502) * lu(k,1841)
    6579   141174528 :          lu(k,1852) = lu(k,1852) - lu(k,1503) * lu(k,1841)
    6580   141174528 :          lu(k,1853) = lu(k,1853) - lu(k,1504) * lu(k,1841)
    6581   141174528 :          lu(k,1855) = lu(k,1855) - lu(k,1505) * lu(k,1841)
    6582   141174528 :          lu(k,1857) = lu(k,1857) - lu(k,1506) * lu(k,1841)
    6583   141174528 :          lu(k,1945) = lu(k,1945) - lu(k,1495) * lu(k,1944)
    6584   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1496) * lu(k,1944)
    6585   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1497) * lu(k,1944)
    6586   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1498) * lu(k,1944)
    6587   141174528 :          lu(k,1949) = lu(k,1949) - lu(k,1499) * lu(k,1944)
    6588   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1500) * lu(k,1944)
    6589   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1501) * lu(k,1944)
    6590   141174528 :          lu(k,1954) = lu(k,1954) - lu(k,1502) * lu(k,1944)
    6591   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1503) * lu(k,1944)
    6592   141174528 :          lu(k,1956) = lu(k,1956) - lu(k,1504) * lu(k,1944)
    6593   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1505) * lu(k,1944)
    6594   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1506) * lu(k,1944)
    6595   141174528 :          lu(k,1997) = lu(k,1997) - lu(k,1495) * lu(k,1996)
    6596   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1496) * lu(k,1996)
    6597   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1497) * lu(k,1996)
    6598   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1498) * lu(k,1996)
    6599   141174528 :          lu(k,2001) = lu(k,2001) - lu(k,1499) * lu(k,1996)
    6600   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1500) * lu(k,1996)
    6601   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1501) * lu(k,1996)
    6602   141174528 :          lu(k,2006) = lu(k,2006) - lu(k,1502) * lu(k,1996)
    6603   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1503) * lu(k,1996)
    6604   141174528 :          lu(k,2008) = lu(k,2008) - lu(k,1504) * lu(k,1996)
    6605   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1505) * lu(k,1996)
    6606   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1506) * lu(k,1996)
    6607   141174528 :          lu(k,2020) = lu(k,2020) - lu(k,1495) * lu(k,2019)
    6608   141174528 :          lu(k,2021) = lu(k,2021) - lu(k,1496) * lu(k,2019)
    6609   141174528 :          lu(k,2022) = lu(k,2022) - lu(k,1497) * lu(k,2019)
    6610   141174528 :          lu(k,2023) = lu(k,2023) - lu(k,1498) * lu(k,2019)
    6611   141174528 :          lu(k,2024) = lu(k,2024) - lu(k,1499) * lu(k,2019)
    6612   141174528 :          lu(k,2025) = lu(k,2025) - lu(k,1500) * lu(k,2019)
    6613   141174528 :          lu(k,2028) = - lu(k,1501) * lu(k,2019)
    6614   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,1502) * lu(k,2019)
    6615   141174528 :          lu(k,2030) = lu(k,2030) - lu(k,1503) * lu(k,2019)
    6616   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,1504) * lu(k,2019)
    6617   141174528 :          lu(k,2033) = lu(k,2033) - lu(k,1505) * lu(k,2019)
    6618   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,1506) * lu(k,2019)
    6619   141174528 :          lu(k,2079) = lu(k,2079) - lu(k,1495) * lu(k,2078)
    6620   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1496) * lu(k,2078)
    6621   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1497) * lu(k,2078)
    6622   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1498) * lu(k,2078)
    6623   141174528 :          lu(k,2083) = lu(k,2083) - lu(k,1499) * lu(k,2078)
    6624   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1500) * lu(k,2078)
    6625   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1501) * lu(k,2078)
    6626   141174528 :          lu(k,2088) = lu(k,2088) - lu(k,1502) * lu(k,2078)
    6627   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1503) * lu(k,2078)
    6628   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,1504) * lu(k,2078)
    6629   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1505) * lu(k,2078)
    6630   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1506) * lu(k,2078)
    6631   141174528 :          lu(k,2118) = lu(k,2118) - lu(k,1495) * lu(k,2117)
    6632   141174528 :          lu(k,2119) = lu(k,2119) - lu(k,1496) * lu(k,2117)
    6633   141174528 :          lu(k,2120) = lu(k,2120) - lu(k,1497) * lu(k,2117)
    6634   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,1498) * lu(k,2117)
    6635   141174528 :          lu(k,2122) = lu(k,2122) - lu(k,1499) * lu(k,2117)
    6636   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1500) * lu(k,2117)
    6637   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1501) * lu(k,2117)
    6638   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,1502) * lu(k,2117)
    6639   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1503) * lu(k,2117)
    6640   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,1504) * lu(k,2117)
    6641   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1505) * lu(k,2117)
    6642   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1506) * lu(k,2117)
    6643   141174528 :          lu(k,2180) = lu(k,2180) - lu(k,1495) * lu(k,2179)
    6644   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1496) * lu(k,2179)
    6645   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1497) * lu(k,2179)
    6646   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1498) * lu(k,2179)
    6647   141174528 :          lu(k,2184) = lu(k,2184) - lu(k,1499) * lu(k,2179)
    6648   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1500) * lu(k,2179)
    6649   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1501) * lu(k,2179)
    6650   141174528 :          lu(k,2189) = lu(k,2189) - lu(k,1502) * lu(k,2179)
    6651   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1503) * lu(k,2179)
    6652   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,1504) * lu(k,2179)
    6653   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1505) * lu(k,2179)
    6654   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1506) * lu(k,2179)
    6655   141174528 :          lu(k,2298) = lu(k,2298) - lu(k,1495) * lu(k,2297)
    6656   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1496) * lu(k,2297)
    6657   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1497) * lu(k,2297)
    6658   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1498) * lu(k,2297)
    6659   141174528 :          lu(k,2302) = lu(k,2302) - lu(k,1499) * lu(k,2297)
    6660   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1500) * lu(k,2297)
    6661   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1501) * lu(k,2297)
    6662   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,1502) * lu(k,2297)
    6663   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1503) * lu(k,2297)
    6664   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,1504) * lu(k,2297)
    6665   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1505) * lu(k,2297)
    6666   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1506) * lu(k,2297)
    6667   141174528 :          lu(k,2324) = lu(k,2324) - lu(k,1495) * lu(k,2323)
    6668   141174528 :          lu(k,2325) = lu(k,2325) - lu(k,1496) * lu(k,2323)
    6669   141174528 :          lu(k,2326) = lu(k,2326) - lu(k,1497) * lu(k,2323)
    6670   141174528 :          lu(k,2327) = lu(k,2327) - lu(k,1498) * lu(k,2323)
    6671   141174528 :          lu(k,2328) = lu(k,2328) - lu(k,1499) * lu(k,2323)
    6672   141174528 :          lu(k,2329) = lu(k,2329) - lu(k,1500) * lu(k,2323)
    6673   141174528 :          lu(k,2332) = lu(k,2332) - lu(k,1501) * lu(k,2323)
    6674   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,1502) * lu(k,2323)
    6675   141174528 :          lu(k,2334) = lu(k,2334) - lu(k,1503) * lu(k,2323)
    6676   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,1504) * lu(k,2323)
    6677   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,1505) * lu(k,2323)
    6678   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,1506) * lu(k,2323)
    6679   141174528 :          lu(k,2350) = lu(k,2350) - lu(k,1495) * lu(k,2349)
    6680   141174528 :          lu(k,2351) = lu(k,2351) - lu(k,1496) * lu(k,2349)
    6681   141174528 :          lu(k,2352) = lu(k,2352) - lu(k,1497) * lu(k,2349)
    6682   141174528 :          lu(k,2353) = lu(k,2353) - lu(k,1498) * lu(k,2349)
    6683   141174528 :          lu(k,2354) = lu(k,2354) - lu(k,1499) * lu(k,2349)
    6684   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,1500) * lu(k,2349)
    6685   141174528 :          lu(k,2358) = lu(k,2358) - lu(k,1501) * lu(k,2349)
    6686   141174528 :          lu(k,2359) = lu(k,2359) - lu(k,1502) * lu(k,2349)
    6687   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,1503) * lu(k,2349)
    6688   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,1504) * lu(k,2349)
    6689   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1505) * lu(k,2349)
    6690   145586232 :          lu(k,2365) = lu(k,2365) - lu(k,1506) * lu(k,2349)
    6691             :       end do
    6692     4411704 :       end subroutine lu_fac28
    6693     4411704 :       subroutine lu_fac29( avec_len, lu )
    6694             :       use chem_mods, only : nzcnt
    6695             :       use shr_kind_mod, only : r8 => shr_kind_r8
    6696             :       implicit none
    6697             : !-----------------------------------------------------------------------
    6698             : ! ... dummy args
    6699             : !-----------------------------------------------------------------------
    6700             :       integer, intent(in) :: avec_len
    6701             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    6702             : !-----------------------------------------------------------------------
    6703             : ! ... local variables
    6704             : !-----------------------------------------------------------------------
    6705             :       integer :: k
    6706   145586232 :       do k = 1,avec_len
    6707   141174528 :          lu(k,1510) = 1._r8 / lu(k,1510)
    6708   141174528 :          lu(k,1511) = lu(k,1511) * lu(k,1510)
    6709   141174528 :          lu(k,1512) = lu(k,1512) * lu(k,1510)
    6710   141174528 :          lu(k,1513) = lu(k,1513) * lu(k,1510)
    6711   141174528 :          lu(k,1514) = lu(k,1514) * lu(k,1510)
    6712   141174528 :          lu(k,1515) = lu(k,1515) * lu(k,1510)
    6713   141174528 :          lu(k,1516) = lu(k,1516) * lu(k,1510)
    6714   141174528 :          lu(k,1517) = lu(k,1517) * lu(k,1510)
    6715   141174528 :          lu(k,1518) = lu(k,1518) * lu(k,1510)
    6716   141174528 :          lu(k,1519) = lu(k,1519) * lu(k,1510)
    6717   141174528 :          lu(k,1520) = lu(k,1520) * lu(k,1510)
    6718   141174528 :          lu(k,1521) = lu(k,1521) * lu(k,1510)
    6719   141174528 :          lu(k,1522) = lu(k,1522) * lu(k,1510)
    6720   141174528 :          lu(k,1532) = lu(k,1532) - lu(k,1511) * lu(k,1531)
    6721   141174528 :          lu(k,1533) = lu(k,1533) - lu(k,1512) * lu(k,1531)
    6722   141174528 :          lu(k,1534) = lu(k,1534) - lu(k,1513) * lu(k,1531)
    6723   141174528 :          lu(k,1535) = lu(k,1535) - lu(k,1514) * lu(k,1531)
    6724   141174528 :          lu(k,1536) = lu(k,1536) - lu(k,1515) * lu(k,1531)
    6725   141174528 :          lu(k,1539) = lu(k,1539) - lu(k,1516) * lu(k,1531)
    6726   141174528 :          lu(k,1540) = lu(k,1540) - lu(k,1517) * lu(k,1531)
    6727   141174528 :          lu(k,1541) = lu(k,1541) - lu(k,1518) * lu(k,1531)
    6728   141174528 :          lu(k,1542) = lu(k,1542) - lu(k,1519) * lu(k,1531)
    6729   141174528 :          lu(k,1543) = lu(k,1543) - lu(k,1520) * lu(k,1531)
    6730   141174528 :          lu(k,1544) = lu(k,1544) - lu(k,1521) * lu(k,1531)
    6731   141174528 :          lu(k,1545) = lu(k,1545) - lu(k,1522) * lu(k,1531)
    6732   141174528 :          lu(k,1575) = lu(k,1575) - lu(k,1511) * lu(k,1574)
    6733   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,1512) * lu(k,1574)
    6734   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,1513) * lu(k,1574)
    6735   141174528 :          lu(k,1578) = lu(k,1578) - lu(k,1514) * lu(k,1574)
    6736   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1515) * lu(k,1574)
    6737   141174528 :          lu(k,1582) = lu(k,1582) - lu(k,1516) * lu(k,1574)
    6738   141174528 :          lu(k,1583) = lu(k,1583) - lu(k,1517) * lu(k,1574)
    6739   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,1518) * lu(k,1574)
    6740   141174528 :          lu(k,1585) = lu(k,1585) - lu(k,1519) * lu(k,1574)
    6741   141174528 :          lu(k,1586) = lu(k,1586) - lu(k,1520) * lu(k,1574)
    6742   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1521) * lu(k,1574)
    6743   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,1522) * lu(k,1574)
    6744   141174528 :          lu(k,1606) = lu(k,1606) - lu(k,1511) * lu(k,1605)
    6745   141174528 :          lu(k,1607) = lu(k,1607) - lu(k,1512) * lu(k,1605)
    6746   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,1513) * lu(k,1605)
    6747   141174528 :          lu(k,1609) = lu(k,1609) - lu(k,1514) * lu(k,1605)
    6748   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,1515) * lu(k,1605)
    6749   141174528 :          lu(k,1613) = lu(k,1613) - lu(k,1516) * lu(k,1605)
    6750   141174528 :          lu(k,1614) = lu(k,1614) - lu(k,1517) * lu(k,1605)
    6751   141174528 :          lu(k,1615) = lu(k,1615) - lu(k,1518) * lu(k,1605)
    6752   141174528 :          lu(k,1616) = lu(k,1616) - lu(k,1519) * lu(k,1605)
    6753   141174528 :          lu(k,1617) = lu(k,1617) - lu(k,1520) * lu(k,1605)
    6754   141174528 :          lu(k,1618) = lu(k,1618) - lu(k,1521) * lu(k,1605)
    6755   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,1522) * lu(k,1605)
    6756   141174528 :          lu(k,1647) = lu(k,1647) - lu(k,1511) * lu(k,1646)
    6757   141174528 :          lu(k,1648) = lu(k,1648) - lu(k,1512) * lu(k,1646)
    6758   141174528 :          lu(k,1649) = lu(k,1649) - lu(k,1513) * lu(k,1646)
    6759   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,1514) * lu(k,1646)
    6760   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,1515) * lu(k,1646)
    6761   141174528 :          lu(k,1654) = lu(k,1654) - lu(k,1516) * lu(k,1646)
    6762   141174528 :          lu(k,1655) = lu(k,1655) - lu(k,1517) * lu(k,1646)
    6763   141174528 :          lu(k,1656) = lu(k,1656) - lu(k,1518) * lu(k,1646)
    6764   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,1519) * lu(k,1646)
    6765   141174528 :          lu(k,1658) = lu(k,1658) - lu(k,1520) * lu(k,1646)
    6766   141174528 :          lu(k,1659) = lu(k,1659) - lu(k,1521) * lu(k,1646)
    6767   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,1522) * lu(k,1646)
    6768   141174528 :          lu(k,1819) = lu(k,1819) - lu(k,1511) * lu(k,1818)
    6769   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1512) * lu(k,1818)
    6770   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1513) * lu(k,1818)
    6771   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,1514) * lu(k,1818)
    6772   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1515) * lu(k,1818)
    6773   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1516) * lu(k,1818)
    6774   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,1517) * lu(k,1818)
    6775   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1518) * lu(k,1818)
    6776   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,1519) * lu(k,1818)
    6777   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1520) * lu(k,1818)
    6778   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1521) * lu(k,1818)
    6779   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1522) * lu(k,1818)
    6780   141174528 :          lu(k,1843) = lu(k,1843) - lu(k,1511) * lu(k,1842)
    6781   141174528 :          lu(k,1844) = lu(k,1844) - lu(k,1512) * lu(k,1842)
    6782   141174528 :          lu(k,1845) = lu(k,1845) - lu(k,1513) * lu(k,1842)
    6783   141174528 :          lu(k,1846) = lu(k,1846) - lu(k,1514) * lu(k,1842)
    6784   141174528 :          lu(k,1847) = lu(k,1847) - lu(k,1515) * lu(k,1842)
    6785   141174528 :          lu(k,1850) = lu(k,1850) - lu(k,1516) * lu(k,1842)
    6786   141174528 :          lu(k,1851) = lu(k,1851) - lu(k,1517) * lu(k,1842)
    6787   141174528 :          lu(k,1852) = lu(k,1852) - lu(k,1518) * lu(k,1842)
    6788   141174528 :          lu(k,1853) = lu(k,1853) - lu(k,1519) * lu(k,1842)
    6789   141174528 :          lu(k,1854) = lu(k,1854) - lu(k,1520) * lu(k,1842)
    6790   141174528 :          lu(k,1855) = lu(k,1855) - lu(k,1521) * lu(k,1842)
    6791   141174528 :          lu(k,1857) = lu(k,1857) - lu(k,1522) * lu(k,1842)
    6792   141174528 :          lu(k,1946) = lu(k,1946) - lu(k,1511) * lu(k,1945)
    6793   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1512) * lu(k,1945)
    6794   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1513) * lu(k,1945)
    6795   141174528 :          lu(k,1949) = lu(k,1949) - lu(k,1514) * lu(k,1945)
    6796   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1515) * lu(k,1945)
    6797   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1516) * lu(k,1945)
    6798   141174528 :          lu(k,1954) = lu(k,1954) - lu(k,1517) * lu(k,1945)
    6799   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1518) * lu(k,1945)
    6800   141174528 :          lu(k,1956) = lu(k,1956) - lu(k,1519) * lu(k,1945)
    6801   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1520) * lu(k,1945)
    6802   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1521) * lu(k,1945)
    6803   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1522) * lu(k,1945)
    6804   141174528 :          lu(k,1998) = lu(k,1998) - lu(k,1511) * lu(k,1997)
    6805   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1512) * lu(k,1997)
    6806   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1513) * lu(k,1997)
    6807   141174528 :          lu(k,2001) = lu(k,2001) - lu(k,1514) * lu(k,1997)
    6808   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1515) * lu(k,1997)
    6809   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1516) * lu(k,1997)
    6810   141174528 :          lu(k,2006) = lu(k,2006) - lu(k,1517) * lu(k,1997)
    6811   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1518) * lu(k,1997)
    6812   141174528 :          lu(k,2008) = lu(k,2008) - lu(k,1519) * lu(k,1997)
    6813   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1520) * lu(k,1997)
    6814   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1521) * lu(k,1997)
    6815   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1522) * lu(k,1997)
    6816   141174528 :          lu(k,2021) = lu(k,2021) - lu(k,1511) * lu(k,2020)
    6817   141174528 :          lu(k,2022) = lu(k,2022) - lu(k,1512) * lu(k,2020)
    6818   141174528 :          lu(k,2023) = lu(k,2023) - lu(k,1513) * lu(k,2020)
    6819   141174528 :          lu(k,2024) = lu(k,2024) - lu(k,1514) * lu(k,2020)
    6820   141174528 :          lu(k,2025) = lu(k,2025) - lu(k,1515) * lu(k,2020)
    6821   141174528 :          lu(k,2028) = lu(k,2028) - lu(k,1516) * lu(k,2020)
    6822   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,1517) * lu(k,2020)
    6823   141174528 :          lu(k,2030) = lu(k,2030) - lu(k,1518) * lu(k,2020)
    6824   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,1519) * lu(k,2020)
    6825   141174528 :          lu(k,2032) = lu(k,2032) - lu(k,1520) * lu(k,2020)
    6826   141174528 :          lu(k,2033) = lu(k,2033) - lu(k,1521) * lu(k,2020)
    6827   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,1522) * lu(k,2020)
    6828   141174528 :          lu(k,2080) = lu(k,2080) - lu(k,1511) * lu(k,2079)
    6829   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1512) * lu(k,2079)
    6830   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1513) * lu(k,2079)
    6831   141174528 :          lu(k,2083) = lu(k,2083) - lu(k,1514) * lu(k,2079)
    6832   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1515) * lu(k,2079)
    6833   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1516) * lu(k,2079)
    6834   141174528 :          lu(k,2088) = lu(k,2088) - lu(k,1517) * lu(k,2079)
    6835   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1518) * lu(k,2079)
    6836   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,1519) * lu(k,2079)
    6837   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1520) * lu(k,2079)
    6838   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1521) * lu(k,2079)
    6839   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1522) * lu(k,2079)
    6840   141174528 :          lu(k,2119) = lu(k,2119) - lu(k,1511) * lu(k,2118)
    6841   141174528 :          lu(k,2120) = lu(k,2120) - lu(k,1512) * lu(k,2118)
    6842   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,1513) * lu(k,2118)
    6843   141174528 :          lu(k,2122) = lu(k,2122) - lu(k,1514) * lu(k,2118)
    6844   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1515) * lu(k,2118)
    6845   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1516) * lu(k,2118)
    6846   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,1517) * lu(k,2118)
    6847   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1518) * lu(k,2118)
    6848   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,1519) * lu(k,2118)
    6849   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,1520) * lu(k,2118)
    6850   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1521) * lu(k,2118)
    6851   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1522) * lu(k,2118)
    6852   141174528 :          lu(k,2181) = lu(k,2181) - lu(k,1511) * lu(k,2180)
    6853   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1512) * lu(k,2180)
    6854   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1513) * lu(k,2180)
    6855   141174528 :          lu(k,2184) = lu(k,2184) - lu(k,1514) * lu(k,2180)
    6856   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1515) * lu(k,2180)
    6857   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1516) * lu(k,2180)
    6858   141174528 :          lu(k,2189) = lu(k,2189) - lu(k,1517) * lu(k,2180)
    6859   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1518) * lu(k,2180)
    6860   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,1519) * lu(k,2180)
    6861   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1520) * lu(k,2180)
    6862   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1521) * lu(k,2180)
    6863   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1522) * lu(k,2180)
    6864   141174528 :          lu(k,2299) = lu(k,2299) - lu(k,1511) * lu(k,2298)
    6865   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1512) * lu(k,2298)
    6866   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1513) * lu(k,2298)
    6867   141174528 :          lu(k,2302) = lu(k,2302) - lu(k,1514) * lu(k,2298)
    6868   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1515) * lu(k,2298)
    6869   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1516) * lu(k,2298)
    6870   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,1517) * lu(k,2298)
    6871   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1518) * lu(k,2298)
    6872   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,1519) * lu(k,2298)
    6873   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1520) * lu(k,2298)
    6874   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1521) * lu(k,2298)
    6875   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1522) * lu(k,2298)
    6876   141174528 :          lu(k,2325) = lu(k,2325) - lu(k,1511) * lu(k,2324)
    6877   141174528 :          lu(k,2326) = lu(k,2326) - lu(k,1512) * lu(k,2324)
    6878   141174528 :          lu(k,2327) = lu(k,2327) - lu(k,1513) * lu(k,2324)
    6879   141174528 :          lu(k,2328) = lu(k,2328) - lu(k,1514) * lu(k,2324)
    6880   141174528 :          lu(k,2329) = lu(k,2329) - lu(k,1515) * lu(k,2324)
    6881   141174528 :          lu(k,2332) = lu(k,2332) - lu(k,1516) * lu(k,2324)
    6882   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,1517) * lu(k,2324)
    6883   141174528 :          lu(k,2334) = lu(k,2334) - lu(k,1518) * lu(k,2324)
    6884   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,1519) * lu(k,2324)
    6885   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,1520) * lu(k,2324)
    6886   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,1521) * lu(k,2324)
    6887   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,1522) * lu(k,2324)
    6888   141174528 :          lu(k,2351) = lu(k,2351) - lu(k,1511) * lu(k,2350)
    6889   141174528 :          lu(k,2352) = lu(k,2352) - lu(k,1512) * lu(k,2350)
    6890   141174528 :          lu(k,2353) = lu(k,2353) - lu(k,1513) * lu(k,2350)
    6891   141174528 :          lu(k,2354) = lu(k,2354) - lu(k,1514) * lu(k,2350)
    6892   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,1515) * lu(k,2350)
    6893   141174528 :          lu(k,2358) = lu(k,2358) - lu(k,1516) * lu(k,2350)
    6894   141174528 :          lu(k,2359) = lu(k,2359) - lu(k,1517) * lu(k,2350)
    6895   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,1518) * lu(k,2350)
    6896   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,1519) * lu(k,2350)
    6897   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,1520) * lu(k,2350)
    6898   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1521) * lu(k,2350)
    6899   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,1522) * lu(k,2350)
    6900   141174528 :          lu(k,1532) = 1._r8 / lu(k,1532)
    6901   141174528 :          lu(k,1533) = lu(k,1533) * lu(k,1532)
    6902   141174528 :          lu(k,1534) = lu(k,1534) * lu(k,1532)
    6903   141174528 :          lu(k,1535) = lu(k,1535) * lu(k,1532)
    6904   141174528 :          lu(k,1536) = lu(k,1536) * lu(k,1532)
    6905   141174528 :          lu(k,1537) = lu(k,1537) * lu(k,1532)
    6906   141174528 :          lu(k,1538) = lu(k,1538) * lu(k,1532)
    6907   141174528 :          lu(k,1539) = lu(k,1539) * lu(k,1532)
    6908   141174528 :          lu(k,1540) = lu(k,1540) * lu(k,1532)
    6909   141174528 :          lu(k,1541) = lu(k,1541) * lu(k,1532)
    6910   141174528 :          lu(k,1542) = lu(k,1542) * lu(k,1532)
    6911   141174528 :          lu(k,1543) = lu(k,1543) * lu(k,1532)
    6912   141174528 :          lu(k,1544) = lu(k,1544) * lu(k,1532)
    6913   141174528 :          lu(k,1545) = lu(k,1545) * lu(k,1532)
    6914   141174528 :          lu(k,1576) = lu(k,1576) - lu(k,1533) * lu(k,1575)
    6915   141174528 :          lu(k,1577) = lu(k,1577) - lu(k,1534) * lu(k,1575)
    6916   141174528 :          lu(k,1578) = lu(k,1578) - lu(k,1535) * lu(k,1575)
    6917   141174528 :          lu(k,1579) = lu(k,1579) - lu(k,1536) * lu(k,1575)
    6918   141174528 :          lu(k,1580) = lu(k,1580) - lu(k,1537) * lu(k,1575)
    6919   141174528 :          lu(k,1581) = lu(k,1581) - lu(k,1538) * lu(k,1575)
    6920   141174528 :          lu(k,1582) = lu(k,1582) - lu(k,1539) * lu(k,1575)
    6921   141174528 :          lu(k,1583) = lu(k,1583) - lu(k,1540) * lu(k,1575)
    6922   141174528 :          lu(k,1584) = lu(k,1584) - lu(k,1541) * lu(k,1575)
    6923   141174528 :          lu(k,1585) = lu(k,1585) - lu(k,1542) * lu(k,1575)
    6924   141174528 :          lu(k,1586) = lu(k,1586) - lu(k,1543) * lu(k,1575)
    6925   141174528 :          lu(k,1587) = lu(k,1587) - lu(k,1544) * lu(k,1575)
    6926   141174528 :          lu(k,1589) = lu(k,1589) - lu(k,1545) * lu(k,1575)
    6927   141174528 :          lu(k,1607) = lu(k,1607) - lu(k,1533) * lu(k,1606)
    6928   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,1534) * lu(k,1606)
    6929   141174528 :          lu(k,1609) = lu(k,1609) - lu(k,1535) * lu(k,1606)
    6930   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,1536) * lu(k,1606)
    6931   141174528 :          lu(k,1611) = lu(k,1611) - lu(k,1537) * lu(k,1606)
    6932   141174528 :          lu(k,1612) = lu(k,1612) - lu(k,1538) * lu(k,1606)
    6933   141174528 :          lu(k,1613) = lu(k,1613) - lu(k,1539) * lu(k,1606)
    6934   141174528 :          lu(k,1614) = lu(k,1614) - lu(k,1540) * lu(k,1606)
    6935   141174528 :          lu(k,1615) = lu(k,1615) - lu(k,1541) * lu(k,1606)
    6936   141174528 :          lu(k,1616) = lu(k,1616) - lu(k,1542) * lu(k,1606)
    6937   141174528 :          lu(k,1617) = lu(k,1617) - lu(k,1543) * lu(k,1606)
    6938   141174528 :          lu(k,1618) = lu(k,1618) - lu(k,1544) * lu(k,1606)
    6939   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,1545) * lu(k,1606)
    6940   141174528 :          lu(k,1648) = lu(k,1648) - lu(k,1533) * lu(k,1647)
    6941   141174528 :          lu(k,1649) = lu(k,1649) - lu(k,1534) * lu(k,1647)
    6942   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,1535) * lu(k,1647)
    6943   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,1536) * lu(k,1647)
    6944   141174528 :          lu(k,1652) = lu(k,1652) - lu(k,1537) * lu(k,1647)
    6945   141174528 :          lu(k,1653) = lu(k,1653) - lu(k,1538) * lu(k,1647)
    6946   141174528 :          lu(k,1654) = lu(k,1654) - lu(k,1539) * lu(k,1647)
    6947   141174528 :          lu(k,1655) = lu(k,1655) - lu(k,1540) * lu(k,1647)
    6948   141174528 :          lu(k,1656) = lu(k,1656) - lu(k,1541) * lu(k,1647)
    6949   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,1542) * lu(k,1647)
    6950   141174528 :          lu(k,1658) = lu(k,1658) - lu(k,1543) * lu(k,1647)
    6951   141174528 :          lu(k,1659) = lu(k,1659) - lu(k,1544) * lu(k,1647)
    6952   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,1545) * lu(k,1647)
    6953   141174528 :          lu(k,1820) = lu(k,1820) - lu(k,1533) * lu(k,1819)
    6954   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1534) * lu(k,1819)
    6955   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,1535) * lu(k,1819)
    6956   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1536) * lu(k,1819)
    6957   141174528 :          lu(k,1824) = lu(k,1824) - lu(k,1537) * lu(k,1819)
    6958   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1538) * lu(k,1819)
    6959   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1539) * lu(k,1819)
    6960   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,1540) * lu(k,1819)
    6961   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1541) * lu(k,1819)
    6962   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,1542) * lu(k,1819)
    6963   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1543) * lu(k,1819)
    6964   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1544) * lu(k,1819)
    6965   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1545) * lu(k,1819)
    6966   141174528 :          lu(k,1844) = lu(k,1844) - lu(k,1533) * lu(k,1843)
    6967   141174528 :          lu(k,1845) = lu(k,1845) - lu(k,1534) * lu(k,1843)
    6968   141174528 :          lu(k,1846) = lu(k,1846) - lu(k,1535) * lu(k,1843)
    6969   141174528 :          lu(k,1847) = lu(k,1847) - lu(k,1536) * lu(k,1843)
    6970   141174528 :          lu(k,1848) = lu(k,1848) - lu(k,1537) * lu(k,1843)
    6971   141174528 :          lu(k,1849) = lu(k,1849) - lu(k,1538) * lu(k,1843)
    6972   141174528 :          lu(k,1850) = lu(k,1850) - lu(k,1539) * lu(k,1843)
    6973   141174528 :          lu(k,1851) = lu(k,1851) - lu(k,1540) * lu(k,1843)
    6974   141174528 :          lu(k,1852) = lu(k,1852) - lu(k,1541) * lu(k,1843)
    6975   141174528 :          lu(k,1853) = lu(k,1853) - lu(k,1542) * lu(k,1843)
    6976   141174528 :          lu(k,1854) = lu(k,1854) - lu(k,1543) * lu(k,1843)
    6977   141174528 :          lu(k,1855) = lu(k,1855) - lu(k,1544) * lu(k,1843)
    6978   141174528 :          lu(k,1857) = lu(k,1857) - lu(k,1545) * lu(k,1843)
    6979   141174528 :          lu(k,1947) = lu(k,1947) - lu(k,1533) * lu(k,1946)
    6980   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1534) * lu(k,1946)
    6981   141174528 :          lu(k,1949) = lu(k,1949) - lu(k,1535) * lu(k,1946)
    6982   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1536) * lu(k,1946)
    6983   141174528 :          lu(k,1951) = lu(k,1951) - lu(k,1537) * lu(k,1946)
    6984   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1538) * lu(k,1946)
    6985   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1539) * lu(k,1946)
    6986   141174528 :          lu(k,1954) = lu(k,1954) - lu(k,1540) * lu(k,1946)
    6987   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1541) * lu(k,1946)
    6988   141174528 :          lu(k,1956) = lu(k,1956) - lu(k,1542) * lu(k,1946)
    6989   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1543) * lu(k,1946)
    6990   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1544) * lu(k,1946)
    6991   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1545) * lu(k,1946)
    6992   141174528 :          lu(k,1999) = lu(k,1999) - lu(k,1533) * lu(k,1998)
    6993   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1534) * lu(k,1998)
    6994   141174528 :          lu(k,2001) = lu(k,2001) - lu(k,1535) * lu(k,1998)
    6995   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1536) * lu(k,1998)
    6996   141174528 :          lu(k,2003) = - lu(k,1537) * lu(k,1998)
    6997   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1538) * lu(k,1998)
    6998   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1539) * lu(k,1998)
    6999   141174528 :          lu(k,2006) = lu(k,2006) - lu(k,1540) * lu(k,1998)
    7000   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1541) * lu(k,1998)
    7001   141174528 :          lu(k,2008) = lu(k,2008) - lu(k,1542) * lu(k,1998)
    7002   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1543) * lu(k,1998)
    7003   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1544) * lu(k,1998)
    7004   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1545) * lu(k,1998)
    7005   141174528 :          lu(k,2022) = lu(k,2022) - lu(k,1533) * lu(k,2021)
    7006   141174528 :          lu(k,2023) = lu(k,2023) - lu(k,1534) * lu(k,2021)
    7007   141174528 :          lu(k,2024) = lu(k,2024) - lu(k,1535) * lu(k,2021)
    7008   141174528 :          lu(k,2025) = lu(k,2025) - lu(k,1536) * lu(k,2021)
    7009   141174528 :          lu(k,2026) = lu(k,2026) - lu(k,1537) * lu(k,2021)
    7010   141174528 :          lu(k,2027) = - lu(k,1538) * lu(k,2021)
    7011   141174528 :          lu(k,2028) = lu(k,2028) - lu(k,1539) * lu(k,2021)
    7012   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,1540) * lu(k,2021)
    7013   141174528 :          lu(k,2030) = lu(k,2030) - lu(k,1541) * lu(k,2021)
    7014   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,1542) * lu(k,2021)
    7015   141174528 :          lu(k,2032) = lu(k,2032) - lu(k,1543) * lu(k,2021)
    7016   141174528 :          lu(k,2033) = lu(k,2033) - lu(k,1544) * lu(k,2021)
    7017   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,1545) * lu(k,2021)
    7018   141174528 :          lu(k,2081) = lu(k,2081) - lu(k,1533) * lu(k,2080)
    7019   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1534) * lu(k,2080)
    7020   141174528 :          lu(k,2083) = lu(k,2083) - lu(k,1535) * lu(k,2080)
    7021   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1536) * lu(k,2080)
    7022   141174528 :          lu(k,2085) = lu(k,2085) - lu(k,1537) * lu(k,2080)
    7023   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1538) * lu(k,2080)
    7024   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1539) * lu(k,2080)
    7025   141174528 :          lu(k,2088) = lu(k,2088) - lu(k,1540) * lu(k,2080)
    7026   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1541) * lu(k,2080)
    7027   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,1542) * lu(k,2080)
    7028   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1543) * lu(k,2080)
    7029   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1544) * lu(k,2080)
    7030   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1545) * lu(k,2080)
    7031   141174528 :          lu(k,2120) = lu(k,2120) - lu(k,1533) * lu(k,2119)
    7032   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,1534) * lu(k,2119)
    7033   141174528 :          lu(k,2122) = lu(k,2122) - lu(k,1535) * lu(k,2119)
    7034   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1536) * lu(k,2119)
    7035   141174528 :          lu(k,2124) = lu(k,2124) - lu(k,1537) * lu(k,2119)
    7036   141174528 :          lu(k,2125) = lu(k,2125) - lu(k,1538) * lu(k,2119)
    7037   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1539) * lu(k,2119)
    7038   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,1540) * lu(k,2119)
    7039   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1541) * lu(k,2119)
    7040   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,1542) * lu(k,2119)
    7041   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,1543) * lu(k,2119)
    7042   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1544) * lu(k,2119)
    7043   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1545) * lu(k,2119)
    7044   141174528 :          lu(k,2182) = lu(k,2182) - lu(k,1533) * lu(k,2181)
    7045   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1534) * lu(k,2181)
    7046   141174528 :          lu(k,2184) = lu(k,2184) - lu(k,1535) * lu(k,2181)
    7047   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1536) * lu(k,2181)
    7048   141174528 :          lu(k,2186) = lu(k,2186) - lu(k,1537) * lu(k,2181)
    7049   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1538) * lu(k,2181)
    7050   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1539) * lu(k,2181)
    7051   141174528 :          lu(k,2189) = lu(k,2189) - lu(k,1540) * lu(k,2181)
    7052   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1541) * lu(k,2181)
    7053   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,1542) * lu(k,2181)
    7054   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1543) * lu(k,2181)
    7055   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1544) * lu(k,2181)
    7056   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1545) * lu(k,2181)
    7057   141174528 :          lu(k,2300) = lu(k,2300) - lu(k,1533) * lu(k,2299)
    7058   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1534) * lu(k,2299)
    7059   141174528 :          lu(k,2302) = lu(k,2302) - lu(k,1535) * lu(k,2299)
    7060   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1536) * lu(k,2299)
    7061   141174528 :          lu(k,2304) = lu(k,2304) - lu(k,1537) * lu(k,2299)
    7062   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1538) * lu(k,2299)
    7063   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1539) * lu(k,2299)
    7064   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,1540) * lu(k,2299)
    7065   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1541) * lu(k,2299)
    7066   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,1542) * lu(k,2299)
    7067   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1543) * lu(k,2299)
    7068   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1544) * lu(k,2299)
    7069   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1545) * lu(k,2299)
    7070   141174528 :          lu(k,2326) = lu(k,2326) - lu(k,1533) * lu(k,2325)
    7071   141174528 :          lu(k,2327) = lu(k,2327) - lu(k,1534) * lu(k,2325)
    7072   141174528 :          lu(k,2328) = lu(k,2328) - lu(k,1535) * lu(k,2325)
    7073   141174528 :          lu(k,2329) = lu(k,2329) - lu(k,1536) * lu(k,2325)
    7074   141174528 :          lu(k,2330) = lu(k,2330) - lu(k,1537) * lu(k,2325)
    7075   141174528 :          lu(k,2331) = lu(k,2331) - lu(k,1538) * lu(k,2325)
    7076   141174528 :          lu(k,2332) = lu(k,2332) - lu(k,1539) * lu(k,2325)
    7077   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,1540) * lu(k,2325)
    7078   141174528 :          lu(k,2334) = lu(k,2334) - lu(k,1541) * lu(k,2325)
    7079   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,1542) * lu(k,2325)
    7080   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,1543) * lu(k,2325)
    7081   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,1544) * lu(k,2325)
    7082   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,1545) * lu(k,2325)
    7083   141174528 :          lu(k,2352) = lu(k,2352) - lu(k,1533) * lu(k,2351)
    7084   141174528 :          lu(k,2353) = lu(k,2353) - lu(k,1534) * lu(k,2351)
    7085   141174528 :          lu(k,2354) = lu(k,2354) - lu(k,1535) * lu(k,2351)
    7086   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,1536) * lu(k,2351)
    7087   141174528 :          lu(k,2356) = lu(k,2356) - lu(k,1537) * lu(k,2351)
    7088   141174528 :          lu(k,2357) = lu(k,2357) - lu(k,1538) * lu(k,2351)
    7089   141174528 :          lu(k,2358) = lu(k,2358) - lu(k,1539) * lu(k,2351)
    7090   141174528 :          lu(k,2359) = lu(k,2359) - lu(k,1540) * lu(k,2351)
    7091   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,1541) * lu(k,2351)
    7092   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,1542) * lu(k,2351)
    7093   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,1543) * lu(k,2351)
    7094   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1544) * lu(k,2351)
    7095   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,1545) * lu(k,2351)
    7096   141174528 :          lu(k,1576) = 1._r8 / lu(k,1576)
    7097   141174528 :          lu(k,1577) = lu(k,1577) * lu(k,1576)
    7098   141174528 :          lu(k,1578) = lu(k,1578) * lu(k,1576)
    7099   141174528 :          lu(k,1579) = lu(k,1579) * lu(k,1576)
    7100   141174528 :          lu(k,1580) = lu(k,1580) * lu(k,1576)
    7101   141174528 :          lu(k,1581) = lu(k,1581) * lu(k,1576)
    7102   141174528 :          lu(k,1582) = lu(k,1582) * lu(k,1576)
    7103   141174528 :          lu(k,1583) = lu(k,1583) * lu(k,1576)
    7104   141174528 :          lu(k,1584) = lu(k,1584) * lu(k,1576)
    7105   141174528 :          lu(k,1585) = lu(k,1585) * lu(k,1576)
    7106   141174528 :          lu(k,1586) = lu(k,1586) * lu(k,1576)
    7107   141174528 :          lu(k,1587) = lu(k,1587) * lu(k,1576)
    7108   141174528 :          lu(k,1588) = lu(k,1588) * lu(k,1576)
    7109   141174528 :          lu(k,1589) = lu(k,1589) * lu(k,1576)
    7110   141174528 :          lu(k,1608) = lu(k,1608) - lu(k,1577) * lu(k,1607)
    7111   141174528 :          lu(k,1609) = lu(k,1609) - lu(k,1578) * lu(k,1607)
    7112   141174528 :          lu(k,1610) = lu(k,1610) - lu(k,1579) * lu(k,1607)
    7113   141174528 :          lu(k,1611) = lu(k,1611) - lu(k,1580) * lu(k,1607)
    7114   141174528 :          lu(k,1612) = lu(k,1612) - lu(k,1581) * lu(k,1607)
    7115   141174528 :          lu(k,1613) = lu(k,1613) - lu(k,1582) * lu(k,1607)
    7116   141174528 :          lu(k,1614) = lu(k,1614) - lu(k,1583) * lu(k,1607)
    7117   141174528 :          lu(k,1615) = lu(k,1615) - lu(k,1584) * lu(k,1607)
    7118   141174528 :          lu(k,1616) = lu(k,1616) - lu(k,1585) * lu(k,1607)
    7119   141174528 :          lu(k,1617) = lu(k,1617) - lu(k,1586) * lu(k,1607)
    7120   141174528 :          lu(k,1618) = lu(k,1618) - lu(k,1587) * lu(k,1607)
    7121   141174528 :          lu(k,1619) = lu(k,1619) - lu(k,1588) * lu(k,1607)
    7122   141174528 :          lu(k,1620) = lu(k,1620) - lu(k,1589) * lu(k,1607)
    7123   141174528 :          lu(k,1649) = lu(k,1649) - lu(k,1577) * lu(k,1648)
    7124   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,1578) * lu(k,1648)
    7125   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,1579) * lu(k,1648)
    7126   141174528 :          lu(k,1652) = lu(k,1652) - lu(k,1580) * lu(k,1648)
    7127   141174528 :          lu(k,1653) = lu(k,1653) - lu(k,1581) * lu(k,1648)
    7128   141174528 :          lu(k,1654) = lu(k,1654) - lu(k,1582) * lu(k,1648)
    7129   141174528 :          lu(k,1655) = lu(k,1655) - lu(k,1583) * lu(k,1648)
    7130   141174528 :          lu(k,1656) = lu(k,1656) - lu(k,1584) * lu(k,1648)
    7131   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,1585) * lu(k,1648)
    7132   141174528 :          lu(k,1658) = lu(k,1658) - lu(k,1586) * lu(k,1648)
    7133   141174528 :          lu(k,1659) = lu(k,1659) - lu(k,1587) * lu(k,1648)
    7134   141174528 :          lu(k,1660) = lu(k,1660) - lu(k,1588) * lu(k,1648)
    7135   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,1589) * lu(k,1648)
    7136   141174528 :          lu(k,1821) = lu(k,1821) - lu(k,1577) * lu(k,1820)
    7137   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,1578) * lu(k,1820)
    7138   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1579) * lu(k,1820)
    7139   141174528 :          lu(k,1824) = lu(k,1824) - lu(k,1580) * lu(k,1820)
    7140   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1581) * lu(k,1820)
    7141   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1582) * lu(k,1820)
    7142   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,1583) * lu(k,1820)
    7143   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1584) * lu(k,1820)
    7144   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,1585) * lu(k,1820)
    7145   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1586) * lu(k,1820)
    7146   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1587) * lu(k,1820)
    7147   141174528 :          lu(k,1832) = lu(k,1832) - lu(k,1588) * lu(k,1820)
    7148   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1589) * lu(k,1820)
    7149   141174528 :          lu(k,1845) = lu(k,1845) - lu(k,1577) * lu(k,1844)
    7150   141174528 :          lu(k,1846) = lu(k,1846) - lu(k,1578) * lu(k,1844)
    7151   141174528 :          lu(k,1847) = lu(k,1847) - lu(k,1579) * lu(k,1844)
    7152   141174528 :          lu(k,1848) = lu(k,1848) - lu(k,1580) * lu(k,1844)
    7153   141174528 :          lu(k,1849) = lu(k,1849) - lu(k,1581) * lu(k,1844)
    7154   141174528 :          lu(k,1850) = lu(k,1850) - lu(k,1582) * lu(k,1844)
    7155   141174528 :          lu(k,1851) = lu(k,1851) - lu(k,1583) * lu(k,1844)
    7156   141174528 :          lu(k,1852) = lu(k,1852) - lu(k,1584) * lu(k,1844)
    7157   141174528 :          lu(k,1853) = lu(k,1853) - lu(k,1585) * lu(k,1844)
    7158   141174528 :          lu(k,1854) = lu(k,1854) - lu(k,1586) * lu(k,1844)
    7159   141174528 :          lu(k,1855) = lu(k,1855) - lu(k,1587) * lu(k,1844)
    7160   141174528 :          lu(k,1856) = lu(k,1856) - lu(k,1588) * lu(k,1844)
    7161   141174528 :          lu(k,1857) = lu(k,1857) - lu(k,1589) * lu(k,1844)
    7162   141174528 :          lu(k,1948) = lu(k,1948) - lu(k,1577) * lu(k,1947)
    7163   141174528 :          lu(k,1949) = lu(k,1949) - lu(k,1578) * lu(k,1947)
    7164   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1579) * lu(k,1947)
    7165   141174528 :          lu(k,1951) = lu(k,1951) - lu(k,1580) * lu(k,1947)
    7166   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1581) * lu(k,1947)
    7167   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1582) * lu(k,1947)
    7168   141174528 :          lu(k,1954) = lu(k,1954) - lu(k,1583) * lu(k,1947)
    7169   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1584) * lu(k,1947)
    7170   141174528 :          lu(k,1956) = lu(k,1956) - lu(k,1585) * lu(k,1947)
    7171   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1586) * lu(k,1947)
    7172   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1587) * lu(k,1947)
    7173   141174528 :          lu(k,1959) = lu(k,1959) - lu(k,1588) * lu(k,1947)
    7174   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1589) * lu(k,1947)
    7175   141174528 :          lu(k,2000) = lu(k,2000) - lu(k,1577) * lu(k,1999)
    7176   141174528 :          lu(k,2001) = lu(k,2001) - lu(k,1578) * lu(k,1999)
    7177   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1579) * lu(k,1999)
    7178   141174528 :          lu(k,2003) = lu(k,2003) - lu(k,1580) * lu(k,1999)
    7179   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1581) * lu(k,1999)
    7180   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1582) * lu(k,1999)
    7181   141174528 :          lu(k,2006) = lu(k,2006) - lu(k,1583) * lu(k,1999)
    7182   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1584) * lu(k,1999)
    7183   141174528 :          lu(k,2008) = lu(k,2008) - lu(k,1585) * lu(k,1999)
    7184   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1586) * lu(k,1999)
    7185   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1587) * lu(k,1999)
    7186   141174528 :          lu(k,2011) = lu(k,2011) - lu(k,1588) * lu(k,1999)
    7187   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1589) * lu(k,1999)
    7188   141174528 :          lu(k,2023) = lu(k,2023) - lu(k,1577) * lu(k,2022)
    7189   141174528 :          lu(k,2024) = lu(k,2024) - lu(k,1578) * lu(k,2022)
    7190   141174528 :          lu(k,2025) = lu(k,2025) - lu(k,1579) * lu(k,2022)
    7191   141174528 :          lu(k,2026) = lu(k,2026) - lu(k,1580) * lu(k,2022)
    7192   141174528 :          lu(k,2027) = lu(k,2027) - lu(k,1581) * lu(k,2022)
    7193   141174528 :          lu(k,2028) = lu(k,2028) - lu(k,1582) * lu(k,2022)
    7194   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,1583) * lu(k,2022)
    7195   141174528 :          lu(k,2030) = lu(k,2030) - lu(k,1584) * lu(k,2022)
    7196   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,1585) * lu(k,2022)
    7197   141174528 :          lu(k,2032) = lu(k,2032) - lu(k,1586) * lu(k,2022)
    7198   141174528 :          lu(k,2033) = lu(k,2033) - lu(k,1587) * lu(k,2022)
    7199   141174528 :          lu(k,2034) = lu(k,2034) - lu(k,1588) * lu(k,2022)
    7200   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,1589) * lu(k,2022)
    7201   141174528 :          lu(k,2082) = lu(k,2082) - lu(k,1577) * lu(k,2081)
    7202   141174528 :          lu(k,2083) = lu(k,2083) - lu(k,1578) * lu(k,2081)
    7203   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1579) * lu(k,2081)
    7204   141174528 :          lu(k,2085) = lu(k,2085) - lu(k,1580) * lu(k,2081)
    7205   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1581) * lu(k,2081)
    7206   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1582) * lu(k,2081)
    7207   141174528 :          lu(k,2088) = lu(k,2088) - lu(k,1583) * lu(k,2081)
    7208   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1584) * lu(k,2081)
    7209   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,1585) * lu(k,2081)
    7210   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1586) * lu(k,2081)
    7211   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1587) * lu(k,2081)
    7212   141174528 :          lu(k,2093) = lu(k,2093) - lu(k,1588) * lu(k,2081)
    7213   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1589) * lu(k,2081)
    7214   141174528 :          lu(k,2121) = lu(k,2121) - lu(k,1577) * lu(k,2120)
    7215   141174528 :          lu(k,2122) = lu(k,2122) - lu(k,1578) * lu(k,2120)
    7216   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1579) * lu(k,2120)
    7217   141174528 :          lu(k,2124) = lu(k,2124) - lu(k,1580) * lu(k,2120)
    7218   141174528 :          lu(k,2125) = lu(k,2125) - lu(k,1581) * lu(k,2120)
    7219   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1582) * lu(k,2120)
    7220   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,1583) * lu(k,2120)
    7221   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1584) * lu(k,2120)
    7222   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,1585) * lu(k,2120)
    7223   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,1586) * lu(k,2120)
    7224   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1587) * lu(k,2120)
    7225   141174528 :          lu(k,2132) = lu(k,2132) - lu(k,1588) * lu(k,2120)
    7226   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1589) * lu(k,2120)
    7227   141174528 :          lu(k,2183) = lu(k,2183) - lu(k,1577) * lu(k,2182)
    7228   141174528 :          lu(k,2184) = lu(k,2184) - lu(k,1578) * lu(k,2182)
    7229   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1579) * lu(k,2182)
    7230   141174528 :          lu(k,2186) = lu(k,2186) - lu(k,1580) * lu(k,2182)
    7231   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1581) * lu(k,2182)
    7232   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1582) * lu(k,2182)
    7233   141174528 :          lu(k,2189) = lu(k,2189) - lu(k,1583) * lu(k,2182)
    7234   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1584) * lu(k,2182)
    7235   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,1585) * lu(k,2182)
    7236   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1586) * lu(k,2182)
    7237   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1587) * lu(k,2182)
    7238   141174528 :          lu(k,2194) = lu(k,2194) - lu(k,1588) * lu(k,2182)
    7239   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1589) * lu(k,2182)
    7240   141174528 :          lu(k,2301) = lu(k,2301) - lu(k,1577) * lu(k,2300)
    7241   141174528 :          lu(k,2302) = lu(k,2302) - lu(k,1578) * lu(k,2300)
    7242   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1579) * lu(k,2300)
    7243   141174528 :          lu(k,2304) = lu(k,2304) - lu(k,1580) * lu(k,2300)
    7244   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1581) * lu(k,2300)
    7245   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1582) * lu(k,2300)
    7246   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,1583) * lu(k,2300)
    7247   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1584) * lu(k,2300)
    7248   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,1585) * lu(k,2300)
    7249   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1586) * lu(k,2300)
    7250   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1587) * lu(k,2300)
    7251   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,1588) * lu(k,2300)
    7252   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1589) * lu(k,2300)
    7253   141174528 :          lu(k,2327) = lu(k,2327) - lu(k,1577) * lu(k,2326)
    7254   141174528 :          lu(k,2328) = lu(k,2328) - lu(k,1578) * lu(k,2326)
    7255   141174528 :          lu(k,2329) = lu(k,2329) - lu(k,1579) * lu(k,2326)
    7256   141174528 :          lu(k,2330) = lu(k,2330) - lu(k,1580) * lu(k,2326)
    7257   141174528 :          lu(k,2331) = lu(k,2331) - lu(k,1581) * lu(k,2326)
    7258   141174528 :          lu(k,2332) = lu(k,2332) - lu(k,1582) * lu(k,2326)
    7259   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,1583) * lu(k,2326)
    7260   141174528 :          lu(k,2334) = lu(k,2334) - lu(k,1584) * lu(k,2326)
    7261   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,1585) * lu(k,2326)
    7262   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,1586) * lu(k,2326)
    7263   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,1587) * lu(k,2326)
    7264   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,1588) * lu(k,2326)
    7265   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,1589) * lu(k,2326)
    7266   141174528 :          lu(k,2353) = lu(k,2353) - lu(k,1577) * lu(k,2352)
    7267   141174528 :          lu(k,2354) = lu(k,2354) - lu(k,1578) * lu(k,2352)
    7268   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,1579) * lu(k,2352)
    7269   141174528 :          lu(k,2356) = lu(k,2356) - lu(k,1580) * lu(k,2352)
    7270   141174528 :          lu(k,2357) = lu(k,2357) - lu(k,1581) * lu(k,2352)
    7271   141174528 :          lu(k,2358) = lu(k,2358) - lu(k,1582) * lu(k,2352)
    7272   141174528 :          lu(k,2359) = lu(k,2359) - lu(k,1583) * lu(k,2352)
    7273   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,1584) * lu(k,2352)
    7274   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,1585) * lu(k,2352)
    7275   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,1586) * lu(k,2352)
    7276   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1587) * lu(k,2352)
    7277   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,1588) * lu(k,2352)
    7278   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,1589) * lu(k,2352)
    7279   141174528 :          lu(k,1608) = 1._r8 / lu(k,1608)
    7280   141174528 :          lu(k,1609) = lu(k,1609) * lu(k,1608)
    7281   141174528 :          lu(k,1610) = lu(k,1610) * lu(k,1608)
    7282   141174528 :          lu(k,1611) = lu(k,1611) * lu(k,1608)
    7283   141174528 :          lu(k,1612) = lu(k,1612) * lu(k,1608)
    7284   141174528 :          lu(k,1613) = lu(k,1613) * lu(k,1608)
    7285   141174528 :          lu(k,1614) = lu(k,1614) * lu(k,1608)
    7286   141174528 :          lu(k,1615) = lu(k,1615) * lu(k,1608)
    7287   141174528 :          lu(k,1616) = lu(k,1616) * lu(k,1608)
    7288   141174528 :          lu(k,1617) = lu(k,1617) * lu(k,1608)
    7289   141174528 :          lu(k,1618) = lu(k,1618) * lu(k,1608)
    7290   141174528 :          lu(k,1619) = lu(k,1619) * lu(k,1608)
    7291   141174528 :          lu(k,1620) = lu(k,1620) * lu(k,1608)
    7292   141174528 :          lu(k,1650) = lu(k,1650) - lu(k,1609) * lu(k,1649)
    7293   141174528 :          lu(k,1651) = lu(k,1651) - lu(k,1610) * lu(k,1649)
    7294   141174528 :          lu(k,1652) = lu(k,1652) - lu(k,1611) * lu(k,1649)
    7295   141174528 :          lu(k,1653) = lu(k,1653) - lu(k,1612) * lu(k,1649)
    7296   141174528 :          lu(k,1654) = lu(k,1654) - lu(k,1613) * lu(k,1649)
    7297   141174528 :          lu(k,1655) = lu(k,1655) - lu(k,1614) * lu(k,1649)
    7298   141174528 :          lu(k,1656) = lu(k,1656) - lu(k,1615) * lu(k,1649)
    7299   141174528 :          lu(k,1657) = lu(k,1657) - lu(k,1616) * lu(k,1649)
    7300   141174528 :          lu(k,1658) = lu(k,1658) - lu(k,1617) * lu(k,1649)
    7301   141174528 :          lu(k,1659) = lu(k,1659) - lu(k,1618) * lu(k,1649)
    7302   141174528 :          lu(k,1660) = lu(k,1660) - lu(k,1619) * lu(k,1649)
    7303   141174528 :          lu(k,1661) = lu(k,1661) - lu(k,1620) * lu(k,1649)
    7304   141174528 :          lu(k,1822) = lu(k,1822) - lu(k,1609) * lu(k,1821)
    7305   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1610) * lu(k,1821)
    7306   141174528 :          lu(k,1824) = lu(k,1824) - lu(k,1611) * lu(k,1821)
    7307   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1612) * lu(k,1821)
    7308   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1613) * lu(k,1821)
    7309   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,1614) * lu(k,1821)
    7310   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1615) * lu(k,1821)
    7311   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,1616) * lu(k,1821)
    7312   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1617) * lu(k,1821)
    7313   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1618) * lu(k,1821)
    7314   141174528 :          lu(k,1832) = lu(k,1832) - lu(k,1619) * lu(k,1821)
    7315   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1620) * lu(k,1821)
    7316   141174528 :          lu(k,1846) = lu(k,1846) - lu(k,1609) * lu(k,1845)
    7317   141174528 :          lu(k,1847) = lu(k,1847) - lu(k,1610) * lu(k,1845)
    7318   141174528 :          lu(k,1848) = lu(k,1848) - lu(k,1611) * lu(k,1845)
    7319   141174528 :          lu(k,1849) = lu(k,1849) - lu(k,1612) * lu(k,1845)
    7320   141174528 :          lu(k,1850) = lu(k,1850) - lu(k,1613) * lu(k,1845)
    7321   141174528 :          lu(k,1851) = lu(k,1851) - lu(k,1614) * lu(k,1845)
    7322   141174528 :          lu(k,1852) = lu(k,1852) - lu(k,1615) * lu(k,1845)
    7323   141174528 :          lu(k,1853) = lu(k,1853) - lu(k,1616) * lu(k,1845)
    7324   141174528 :          lu(k,1854) = lu(k,1854) - lu(k,1617) * lu(k,1845)
    7325   141174528 :          lu(k,1855) = lu(k,1855) - lu(k,1618) * lu(k,1845)
    7326   141174528 :          lu(k,1856) = lu(k,1856) - lu(k,1619) * lu(k,1845)
    7327   141174528 :          lu(k,1857) = lu(k,1857) - lu(k,1620) * lu(k,1845)
    7328   141174528 :          lu(k,1949) = lu(k,1949) - lu(k,1609) * lu(k,1948)
    7329   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1610) * lu(k,1948)
    7330   141174528 :          lu(k,1951) = lu(k,1951) - lu(k,1611) * lu(k,1948)
    7331   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1612) * lu(k,1948)
    7332   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1613) * lu(k,1948)
    7333   141174528 :          lu(k,1954) = lu(k,1954) - lu(k,1614) * lu(k,1948)
    7334   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1615) * lu(k,1948)
    7335   141174528 :          lu(k,1956) = lu(k,1956) - lu(k,1616) * lu(k,1948)
    7336   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1617) * lu(k,1948)
    7337   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1618) * lu(k,1948)
    7338   141174528 :          lu(k,1959) = lu(k,1959) - lu(k,1619) * lu(k,1948)
    7339   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1620) * lu(k,1948)
    7340   141174528 :          lu(k,2001) = lu(k,2001) - lu(k,1609) * lu(k,2000)
    7341   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1610) * lu(k,2000)
    7342   141174528 :          lu(k,2003) = lu(k,2003) - lu(k,1611) * lu(k,2000)
    7343   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1612) * lu(k,2000)
    7344   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1613) * lu(k,2000)
    7345   141174528 :          lu(k,2006) = lu(k,2006) - lu(k,1614) * lu(k,2000)
    7346   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1615) * lu(k,2000)
    7347   141174528 :          lu(k,2008) = lu(k,2008) - lu(k,1616) * lu(k,2000)
    7348   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1617) * lu(k,2000)
    7349   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1618) * lu(k,2000)
    7350   141174528 :          lu(k,2011) = lu(k,2011) - lu(k,1619) * lu(k,2000)
    7351   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1620) * lu(k,2000)
    7352   141174528 :          lu(k,2024) = lu(k,2024) - lu(k,1609) * lu(k,2023)
    7353   141174528 :          lu(k,2025) = lu(k,2025) - lu(k,1610) * lu(k,2023)
    7354   141174528 :          lu(k,2026) = lu(k,2026) - lu(k,1611) * lu(k,2023)
    7355   141174528 :          lu(k,2027) = lu(k,2027) - lu(k,1612) * lu(k,2023)
    7356   141174528 :          lu(k,2028) = lu(k,2028) - lu(k,1613) * lu(k,2023)
    7357   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,1614) * lu(k,2023)
    7358   141174528 :          lu(k,2030) = lu(k,2030) - lu(k,1615) * lu(k,2023)
    7359   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,1616) * lu(k,2023)
    7360   141174528 :          lu(k,2032) = lu(k,2032) - lu(k,1617) * lu(k,2023)
    7361   141174528 :          lu(k,2033) = lu(k,2033) - lu(k,1618) * lu(k,2023)
    7362   141174528 :          lu(k,2034) = lu(k,2034) - lu(k,1619) * lu(k,2023)
    7363   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,1620) * lu(k,2023)
    7364   141174528 :          lu(k,2083) = lu(k,2083) - lu(k,1609) * lu(k,2082)
    7365   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1610) * lu(k,2082)
    7366   141174528 :          lu(k,2085) = lu(k,2085) - lu(k,1611) * lu(k,2082)
    7367   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1612) * lu(k,2082)
    7368   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1613) * lu(k,2082)
    7369   141174528 :          lu(k,2088) = lu(k,2088) - lu(k,1614) * lu(k,2082)
    7370   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1615) * lu(k,2082)
    7371   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,1616) * lu(k,2082)
    7372   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1617) * lu(k,2082)
    7373   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1618) * lu(k,2082)
    7374   141174528 :          lu(k,2093) = lu(k,2093) - lu(k,1619) * lu(k,2082)
    7375   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1620) * lu(k,2082)
    7376   141174528 :          lu(k,2122) = lu(k,2122) - lu(k,1609) * lu(k,2121)
    7377   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1610) * lu(k,2121)
    7378   141174528 :          lu(k,2124) = lu(k,2124) - lu(k,1611) * lu(k,2121)
    7379   141174528 :          lu(k,2125) = lu(k,2125) - lu(k,1612) * lu(k,2121)
    7380   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1613) * lu(k,2121)
    7381   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,1614) * lu(k,2121)
    7382   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1615) * lu(k,2121)
    7383   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,1616) * lu(k,2121)
    7384   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,1617) * lu(k,2121)
    7385   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1618) * lu(k,2121)
    7386   141174528 :          lu(k,2132) = lu(k,2132) - lu(k,1619) * lu(k,2121)
    7387   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1620) * lu(k,2121)
    7388   141174528 :          lu(k,2184) = lu(k,2184) - lu(k,1609) * lu(k,2183)
    7389   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1610) * lu(k,2183)
    7390   141174528 :          lu(k,2186) = lu(k,2186) - lu(k,1611) * lu(k,2183)
    7391   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1612) * lu(k,2183)
    7392   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1613) * lu(k,2183)
    7393   141174528 :          lu(k,2189) = lu(k,2189) - lu(k,1614) * lu(k,2183)
    7394   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1615) * lu(k,2183)
    7395   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,1616) * lu(k,2183)
    7396   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1617) * lu(k,2183)
    7397   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1618) * lu(k,2183)
    7398   141174528 :          lu(k,2194) = lu(k,2194) - lu(k,1619) * lu(k,2183)
    7399   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1620) * lu(k,2183)
    7400   141174528 :          lu(k,2302) = lu(k,2302) - lu(k,1609) * lu(k,2301)
    7401   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1610) * lu(k,2301)
    7402   141174528 :          lu(k,2304) = lu(k,2304) - lu(k,1611) * lu(k,2301)
    7403   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1612) * lu(k,2301)
    7404   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1613) * lu(k,2301)
    7405   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,1614) * lu(k,2301)
    7406   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1615) * lu(k,2301)
    7407   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,1616) * lu(k,2301)
    7408   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1617) * lu(k,2301)
    7409   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1618) * lu(k,2301)
    7410   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,1619) * lu(k,2301)
    7411   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1620) * lu(k,2301)
    7412   141174528 :          lu(k,2328) = lu(k,2328) - lu(k,1609) * lu(k,2327)
    7413   141174528 :          lu(k,2329) = lu(k,2329) - lu(k,1610) * lu(k,2327)
    7414   141174528 :          lu(k,2330) = lu(k,2330) - lu(k,1611) * lu(k,2327)
    7415   141174528 :          lu(k,2331) = lu(k,2331) - lu(k,1612) * lu(k,2327)
    7416   141174528 :          lu(k,2332) = lu(k,2332) - lu(k,1613) * lu(k,2327)
    7417   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,1614) * lu(k,2327)
    7418   141174528 :          lu(k,2334) = lu(k,2334) - lu(k,1615) * lu(k,2327)
    7419   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,1616) * lu(k,2327)
    7420   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,1617) * lu(k,2327)
    7421   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,1618) * lu(k,2327)
    7422   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,1619) * lu(k,2327)
    7423   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,1620) * lu(k,2327)
    7424   141174528 :          lu(k,2354) = lu(k,2354) - lu(k,1609) * lu(k,2353)
    7425   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,1610) * lu(k,2353)
    7426   141174528 :          lu(k,2356) = lu(k,2356) - lu(k,1611) * lu(k,2353)
    7427   141174528 :          lu(k,2357) = lu(k,2357) - lu(k,1612) * lu(k,2353)
    7428   141174528 :          lu(k,2358) = lu(k,2358) - lu(k,1613) * lu(k,2353)
    7429   141174528 :          lu(k,2359) = lu(k,2359) - lu(k,1614) * lu(k,2353)
    7430   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,1615) * lu(k,2353)
    7431   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,1616) * lu(k,2353)
    7432   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,1617) * lu(k,2353)
    7433   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1618) * lu(k,2353)
    7434   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,1619) * lu(k,2353)
    7435   145586232 :          lu(k,2365) = lu(k,2365) - lu(k,1620) * lu(k,2353)
    7436             :       end do
    7437     4411704 :       end subroutine lu_fac29
    7438     4411704 :       subroutine lu_fac30( avec_len, lu )
    7439             :       use chem_mods, only : nzcnt
    7440             :       use shr_kind_mod, only : r8 => shr_kind_r8
    7441             :       implicit none
    7442             : !-----------------------------------------------------------------------
    7443             : ! ... dummy args
    7444             : !-----------------------------------------------------------------------
    7445             :       integer, intent(in) :: avec_len
    7446             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    7447             : !-----------------------------------------------------------------------
    7448             : ! ... local variables
    7449             : !-----------------------------------------------------------------------
    7450             :       integer :: k
    7451   145586232 :       do k = 1,avec_len
    7452   141174528 :          lu(k,1650) = 1._r8 / lu(k,1650)
    7453   141174528 :          lu(k,1651) = lu(k,1651) * lu(k,1650)
    7454   141174528 :          lu(k,1652) = lu(k,1652) * lu(k,1650)
    7455   141174528 :          lu(k,1653) = lu(k,1653) * lu(k,1650)
    7456   141174528 :          lu(k,1654) = lu(k,1654) * lu(k,1650)
    7457   141174528 :          lu(k,1655) = lu(k,1655) * lu(k,1650)
    7458   141174528 :          lu(k,1656) = lu(k,1656) * lu(k,1650)
    7459   141174528 :          lu(k,1657) = lu(k,1657) * lu(k,1650)
    7460   141174528 :          lu(k,1658) = lu(k,1658) * lu(k,1650)
    7461   141174528 :          lu(k,1659) = lu(k,1659) * lu(k,1650)
    7462   141174528 :          lu(k,1660) = lu(k,1660) * lu(k,1650)
    7463   141174528 :          lu(k,1661) = lu(k,1661) * lu(k,1650)
    7464   141174528 :          lu(k,1823) = lu(k,1823) - lu(k,1651) * lu(k,1822)
    7465   141174528 :          lu(k,1824) = lu(k,1824) - lu(k,1652) * lu(k,1822)
    7466   141174528 :          lu(k,1825) = lu(k,1825) - lu(k,1653) * lu(k,1822)
    7467   141174528 :          lu(k,1826) = lu(k,1826) - lu(k,1654) * lu(k,1822)
    7468   141174528 :          lu(k,1827) = lu(k,1827) - lu(k,1655) * lu(k,1822)
    7469   141174528 :          lu(k,1828) = lu(k,1828) - lu(k,1656) * lu(k,1822)
    7470   141174528 :          lu(k,1829) = lu(k,1829) - lu(k,1657) * lu(k,1822)
    7471   141174528 :          lu(k,1830) = lu(k,1830) - lu(k,1658) * lu(k,1822)
    7472   141174528 :          lu(k,1831) = lu(k,1831) - lu(k,1659) * lu(k,1822)
    7473   141174528 :          lu(k,1832) = lu(k,1832) - lu(k,1660) * lu(k,1822)
    7474   141174528 :          lu(k,1833) = lu(k,1833) - lu(k,1661) * lu(k,1822)
    7475   141174528 :          lu(k,1847) = lu(k,1847) - lu(k,1651) * lu(k,1846)
    7476   141174528 :          lu(k,1848) = lu(k,1848) - lu(k,1652) * lu(k,1846)
    7477   141174528 :          lu(k,1849) = lu(k,1849) - lu(k,1653) * lu(k,1846)
    7478   141174528 :          lu(k,1850) = lu(k,1850) - lu(k,1654) * lu(k,1846)
    7479   141174528 :          lu(k,1851) = lu(k,1851) - lu(k,1655) * lu(k,1846)
    7480   141174528 :          lu(k,1852) = lu(k,1852) - lu(k,1656) * lu(k,1846)
    7481   141174528 :          lu(k,1853) = lu(k,1853) - lu(k,1657) * lu(k,1846)
    7482   141174528 :          lu(k,1854) = lu(k,1854) - lu(k,1658) * lu(k,1846)
    7483   141174528 :          lu(k,1855) = lu(k,1855) - lu(k,1659) * lu(k,1846)
    7484   141174528 :          lu(k,1856) = lu(k,1856) - lu(k,1660) * lu(k,1846)
    7485   141174528 :          lu(k,1857) = lu(k,1857) - lu(k,1661) * lu(k,1846)
    7486   141174528 :          lu(k,1950) = lu(k,1950) - lu(k,1651) * lu(k,1949)
    7487   141174528 :          lu(k,1951) = lu(k,1951) - lu(k,1652) * lu(k,1949)
    7488   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1653) * lu(k,1949)
    7489   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1654) * lu(k,1949)
    7490   141174528 :          lu(k,1954) = lu(k,1954) - lu(k,1655) * lu(k,1949)
    7491   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1656) * lu(k,1949)
    7492   141174528 :          lu(k,1956) = lu(k,1956) - lu(k,1657) * lu(k,1949)
    7493   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1658) * lu(k,1949)
    7494   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1659) * lu(k,1949)
    7495   141174528 :          lu(k,1959) = lu(k,1959) - lu(k,1660) * lu(k,1949)
    7496   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1661) * lu(k,1949)
    7497   141174528 :          lu(k,2002) = lu(k,2002) - lu(k,1651) * lu(k,2001)
    7498   141174528 :          lu(k,2003) = lu(k,2003) - lu(k,1652) * lu(k,2001)
    7499   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1653) * lu(k,2001)
    7500   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1654) * lu(k,2001)
    7501   141174528 :          lu(k,2006) = lu(k,2006) - lu(k,1655) * lu(k,2001)
    7502   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1656) * lu(k,2001)
    7503   141174528 :          lu(k,2008) = lu(k,2008) - lu(k,1657) * lu(k,2001)
    7504   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1658) * lu(k,2001)
    7505   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1659) * lu(k,2001)
    7506   141174528 :          lu(k,2011) = lu(k,2011) - lu(k,1660) * lu(k,2001)
    7507   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1661) * lu(k,2001)
    7508   141174528 :          lu(k,2025) = lu(k,2025) - lu(k,1651) * lu(k,2024)
    7509   141174528 :          lu(k,2026) = lu(k,2026) - lu(k,1652) * lu(k,2024)
    7510   141174528 :          lu(k,2027) = lu(k,2027) - lu(k,1653) * lu(k,2024)
    7511   141174528 :          lu(k,2028) = lu(k,2028) - lu(k,1654) * lu(k,2024)
    7512   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,1655) * lu(k,2024)
    7513   141174528 :          lu(k,2030) = lu(k,2030) - lu(k,1656) * lu(k,2024)
    7514   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,1657) * lu(k,2024)
    7515   141174528 :          lu(k,2032) = lu(k,2032) - lu(k,1658) * lu(k,2024)
    7516   141174528 :          lu(k,2033) = lu(k,2033) - lu(k,1659) * lu(k,2024)
    7517   141174528 :          lu(k,2034) = lu(k,2034) - lu(k,1660) * lu(k,2024)
    7518   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,1661) * lu(k,2024)
    7519   141174528 :          lu(k,2084) = lu(k,2084) - lu(k,1651) * lu(k,2083)
    7520   141174528 :          lu(k,2085) = lu(k,2085) - lu(k,1652) * lu(k,2083)
    7521   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1653) * lu(k,2083)
    7522   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1654) * lu(k,2083)
    7523   141174528 :          lu(k,2088) = lu(k,2088) - lu(k,1655) * lu(k,2083)
    7524   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1656) * lu(k,2083)
    7525   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,1657) * lu(k,2083)
    7526   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1658) * lu(k,2083)
    7527   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1659) * lu(k,2083)
    7528   141174528 :          lu(k,2093) = lu(k,2093) - lu(k,1660) * lu(k,2083)
    7529   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1661) * lu(k,2083)
    7530   141174528 :          lu(k,2123) = lu(k,2123) - lu(k,1651) * lu(k,2122)
    7531   141174528 :          lu(k,2124) = lu(k,2124) - lu(k,1652) * lu(k,2122)
    7532   141174528 :          lu(k,2125) = lu(k,2125) - lu(k,1653) * lu(k,2122)
    7533   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1654) * lu(k,2122)
    7534   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,1655) * lu(k,2122)
    7535   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1656) * lu(k,2122)
    7536   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,1657) * lu(k,2122)
    7537   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,1658) * lu(k,2122)
    7538   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1659) * lu(k,2122)
    7539   141174528 :          lu(k,2132) = lu(k,2132) - lu(k,1660) * lu(k,2122)
    7540   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1661) * lu(k,2122)
    7541   141174528 :          lu(k,2185) = lu(k,2185) - lu(k,1651) * lu(k,2184)
    7542   141174528 :          lu(k,2186) = lu(k,2186) - lu(k,1652) * lu(k,2184)
    7543   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1653) * lu(k,2184)
    7544   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1654) * lu(k,2184)
    7545   141174528 :          lu(k,2189) = lu(k,2189) - lu(k,1655) * lu(k,2184)
    7546   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1656) * lu(k,2184)
    7547   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,1657) * lu(k,2184)
    7548   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1658) * lu(k,2184)
    7549   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1659) * lu(k,2184)
    7550   141174528 :          lu(k,2194) = lu(k,2194) - lu(k,1660) * lu(k,2184)
    7551   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1661) * lu(k,2184)
    7552   141174528 :          lu(k,2303) = lu(k,2303) - lu(k,1651) * lu(k,2302)
    7553   141174528 :          lu(k,2304) = lu(k,2304) - lu(k,1652) * lu(k,2302)
    7554   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1653) * lu(k,2302)
    7555   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1654) * lu(k,2302)
    7556   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,1655) * lu(k,2302)
    7557   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1656) * lu(k,2302)
    7558   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,1657) * lu(k,2302)
    7559   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1658) * lu(k,2302)
    7560   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1659) * lu(k,2302)
    7561   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,1660) * lu(k,2302)
    7562   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1661) * lu(k,2302)
    7563   141174528 :          lu(k,2329) = lu(k,2329) - lu(k,1651) * lu(k,2328)
    7564   141174528 :          lu(k,2330) = lu(k,2330) - lu(k,1652) * lu(k,2328)
    7565   141174528 :          lu(k,2331) = lu(k,2331) - lu(k,1653) * lu(k,2328)
    7566   141174528 :          lu(k,2332) = lu(k,2332) - lu(k,1654) * lu(k,2328)
    7567   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,1655) * lu(k,2328)
    7568   141174528 :          lu(k,2334) = lu(k,2334) - lu(k,1656) * lu(k,2328)
    7569   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,1657) * lu(k,2328)
    7570   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,1658) * lu(k,2328)
    7571   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,1659) * lu(k,2328)
    7572   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,1660) * lu(k,2328)
    7573   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,1661) * lu(k,2328)
    7574   141174528 :          lu(k,2355) = lu(k,2355) - lu(k,1651) * lu(k,2354)
    7575   141174528 :          lu(k,2356) = lu(k,2356) - lu(k,1652) * lu(k,2354)
    7576   141174528 :          lu(k,2357) = lu(k,2357) - lu(k,1653) * lu(k,2354)
    7577   141174528 :          lu(k,2358) = lu(k,2358) - lu(k,1654) * lu(k,2354)
    7578   141174528 :          lu(k,2359) = lu(k,2359) - lu(k,1655) * lu(k,2354)
    7579   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,1656) * lu(k,2354)
    7580   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,1657) * lu(k,2354)
    7581   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,1658) * lu(k,2354)
    7582   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1659) * lu(k,2354)
    7583   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,1660) * lu(k,2354)
    7584   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,1661) * lu(k,2354)
    7585   141174528 :          lu(k,1823) = 1._r8 / lu(k,1823)
    7586   141174528 :          lu(k,1824) = lu(k,1824) * lu(k,1823)
    7587   141174528 :          lu(k,1825) = lu(k,1825) * lu(k,1823)
    7588   141174528 :          lu(k,1826) = lu(k,1826) * lu(k,1823)
    7589   141174528 :          lu(k,1827) = lu(k,1827) * lu(k,1823)
    7590   141174528 :          lu(k,1828) = lu(k,1828) * lu(k,1823)
    7591   141174528 :          lu(k,1829) = lu(k,1829) * lu(k,1823)
    7592   141174528 :          lu(k,1830) = lu(k,1830) * lu(k,1823)
    7593   141174528 :          lu(k,1831) = lu(k,1831) * lu(k,1823)
    7594   141174528 :          lu(k,1832) = lu(k,1832) * lu(k,1823)
    7595   141174528 :          lu(k,1833) = lu(k,1833) * lu(k,1823)
    7596   141174528 :          lu(k,1848) = lu(k,1848) - lu(k,1824) * lu(k,1847)
    7597   141174528 :          lu(k,1849) = lu(k,1849) - lu(k,1825) * lu(k,1847)
    7598   141174528 :          lu(k,1850) = lu(k,1850) - lu(k,1826) * lu(k,1847)
    7599   141174528 :          lu(k,1851) = lu(k,1851) - lu(k,1827) * lu(k,1847)
    7600   141174528 :          lu(k,1852) = lu(k,1852) - lu(k,1828) * lu(k,1847)
    7601   141174528 :          lu(k,1853) = lu(k,1853) - lu(k,1829) * lu(k,1847)
    7602   141174528 :          lu(k,1854) = lu(k,1854) - lu(k,1830) * lu(k,1847)
    7603   141174528 :          lu(k,1855) = lu(k,1855) - lu(k,1831) * lu(k,1847)
    7604   141174528 :          lu(k,1856) = lu(k,1856) - lu(k,1832) * lu(k,1847)
    7605   141174528 :          lu(k,1857) = lu(k,1857) - lu(k,1833) * lu(k,1847)
    7606   141174528 :          lu(k,1951) = lu(k,1951) - lu(k,1824) * lu(k,1950)
    7607   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1825) * lu(k,1950)
    7608   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1826) * lu(k,1950)
    7609   141174528 :          lu(k,1954) = lu(k,1954) - lu(k,1827) * lu(k,1950)
    7610   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1828) * lu(k,1950)
    7611   141174528 :          lu(k,1956) = lu(k,1956) - lu(k,1829) * lu(k,1950)
    7612   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1830) * lu(k,1950)
    7613   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1831) * lu(k,1950)
    7614   141174528 :          lu(k,1959) = lu(k,1959) - lu(k,1832) * lu(k,1950)
    7615   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1833) * lu(k,1950)
    7616   141174528 :          lu(k,2003) = lu(k,2003) - lu(k,1824) * lu(k,2002)
    7617   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1825) * lu(k,2002)
    7618   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1826) * lu(k,2002)
    7619   141174528 :          lu(k,2006) = lu(k,2006) - lu(k,1827) * lu(k,2002)
    7620   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1828) * lu(k,2002)
    7621   141174528 :          lu(k,2008) = lu(k,2008) - lu(k,1829) * lu(k,2002)
    7622   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1830) * lu(k,2002)
    7623   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1831) * lu(k,2002)
    7624   141174528 :          lu(k,2011) = lu(k,2011) - lu(k,1832) * lu(k,2002)
    7625   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1833) * lu(k,2002)
    7626   141174528 :          lu(k,2026) = lu(k,2026) - lu(k,1824) * lu(k,2025)
    7627   141174528 :          lu(k,2027) = lu(k,2027) - lu(k,1825) * lu(k,2025)
    7628   141174528 :          lu(k,2028) = lu(k,2028) - lu(k,1826) * lu(k,2025)
    7629   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,1827) * lu(k,2025)
    7630   141174528 :          lu(k,2030) = lu(k,2030) - lu(k,1828) * lu(k,2025)
    7631   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,1829) * lu(k,2025)
    7632   141174528 :          lu(k,2032) = lu(k,2032) - lu(k,1830) * lu(k,2025)
    7633   141174528 :          lu(k,2033) = lu(k,2033) - lu(k,1831) * lu(k,2025)
    7634   141174528 :          lu(k,2034) = lu(k,2034) - lu(k,1832) * lu(k,2025)
    7635   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,1833) * lu(k,2025)
    7636   141174528 :          lu(k,2085) = lu(k,2085) - lu(k,1824) * lu(k,2084)
    7637   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1825) * lu(k,2084)
    7638   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1826) * lu(k,2084)
    7639   141174528 :          lu(k,2088) = lu(k,2088) - lu(k,1827) * lu(k,2084)
    7640   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1828) * lu(k,2084)
    7641   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,1829) * lu(k,2084)
    7642   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1830) * lu(k,2084)
    7643   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1831) * lu(k,2084)
    7644   141174528 :          lu(k,2093) = lu(k,2093) - lu(k,1832) * lu(k,2084)
    7645   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1833) * lu(k,2084)
    7646   141174528 :          lu(k,2124) = lu(k,2124) - lu(k,1824) * lu(k,2123)
    7647   141174528 :          lu(k,2125) = lu(k,2125) - lu(k,1825) * lu(k,2123)
    7648   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1826) * lu(k,2123)
    7649   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,1827) * lu(k,2123)
    7650   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1828) * lu(k,2123)
    7651   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,1829) * lu(k,2123)
    7652   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,1830) * lu(k,2123)
    7653   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1831) * lu(k,2123)
    7654   141174528 :          lu(k,2132) = lu(k,2132) - lu(k,1832) * lu(k,2123)
    7655   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1833) * lu(k,2123)
    7656   141174528 :          lu(k,2186) = lu(k,2186) - lu(k,1824) * lu(k,2185)
    7657   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1825) * lu(k,2185)
    7658   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1826) * lu(k,2185)
    7659   141174528 :          lu(k,2189) = lu(k,2189) - lu(k,1827) * lu(k,2185)
    7660   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1828) * lu(k,2185)
    7661   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,1829) * lu(k,2185)
    7662   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1830) * lu(k,2185)
    7663   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1831) * lu(k,2185)
    7664   141174528 :          lu(k,2194) = lu(k,2194) - lu(k,1832) * lu(k,2185)
    7665   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1833) * lu(k,2185)
    7666   141174528 :          lu(k,2304) = lu(k,2304) - lu(k,1824) * lu(k,2303)
    7667   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1825) * lu(k,2303)
    7668   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1826) * lu(k,2303)
    7669   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,1827) * lu(k,2303)
    7670   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1828) * lu(k,2303)
    7671   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,1829) * lu(k,2303)
    7672   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1830) * lu(k,2303)
    7673   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1831) * lu(k,2303)
    7674   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,1832) * lu(k,2303)
    7675   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1833) * lu(k,2303)
    7676   141174528 :          lu(k,2330) = lu(k,2330) - lu(k,1824) * lu(k,2329)
    7677   141174528 :          lu(k,2331) = lu(k,2331) - lu(k,1825) * lu(k,2329)
    7678   141174528 :          lu(k,2332) = lu(k,2332) - lu(k,1826) * lu(k,2329)
    7679   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,1827) * lu(k,2329)
    7680   141174528 :          lu(k,2334) = lu(k,2334) - lu(k,1828) * lu(k,2329)
    7681   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,1829) * lu(k,2329)
    7682   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,1830) * lu(k,2329)
    7683   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,1831) * lu(k,2329)
    7684   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,1832) * lu(k,2329)
    7685   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,1833) * lu(k,2329)
    7686   141174528 :          lu(k,2356) = lu(k,2356) - lu(k,1824) * lu(k,2355)
    7687   141174528 :          lu(k,2357) = lu(k,2357) - lu(k,1825) * lu(k,2355)
    7688   141174528 :          lu(k,2358) = lu(k,2358) - lu(k,1826) * lu(k,2355)
    7689   141174528 :          lu(k,2359) = lu(k,2359) - lu(k,1827) * lu(k,2355)
    7690   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,1828) * lu(k,2355)
    7691   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,1829) * lu(k,2355)
    7692   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,1830) * lu(k,2355)
    7693   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1831) * lu(k,2355)
    7694   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,1832) * lu(k,2355)
    7695   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,1833) * lu(k,2355)
    7696   141174528 :          lu(k,1848) = 1._r8 / lu(k,1848)
    7697   141174528 :          lu(k,1849) = lu(k,1849) * lu(k,1848)
    7698   141174528 :          lu(k,1850) = lu(k,1850) * lu(k,1848)
    7699   141174528 :          lu(k,1851) = lu(k,1851) * lu(k,1848)
    7700   141174528 :          lu(k,1852) = lu(k,1852) * lu(k,1848)
    7701   141174528 :          lu(k,1853) = lu(k,1853) * lu(k,1848)
    7702   141174528 :          lu(k,1854) = lu(k,1854) * lu(k,1848)
    7703   141174528 :          lu(k,1855) = lu(k,1855) * lu(k,1848)
    7704   141174528 :          lu(k,1856) = lu(k,1856) * lu(k,1848)
    7705   141174528 :          lu(k,1857) = lu(k,1857) * lu(k,1848)
    7706   141174528 :          lu(k,1952) = lu(k,1952) - lu(k,1849) * lu(k,1951)
    7707   141174528 :          lu(k,1953) = lu(k,1953) - lu(k,1850) * lu(k,1951)
    7708   141174528 :          lu(k,1954) = lu(k,1954) - lu(k,1851) * lu(k,1951)
    7709   141174528 :          lu(k,1955) = lu(k,1955) - lu(k,1852) * lu(k,1951)
    7710   141174528 :          lu(k,1956) = lu(k,1956) - lu(k,1853) * lu(k,1951)
    7711   141174528 :          lu(k,1957) = lu(k,1957) - lu(k,1854) * lu(k,1951)
    7712   141174528 :          lu(k,1958) = lu(k,1958) - lu(k,1855) * lu(k,1951)
    7713   141174528 :          lu(k,1959) = lu(k,1959) - lu(k,1856) * lu(k,1951)
    7714   141174528 :          lu(k,1960) = lu(k,1960) - lu(k,1857) * lu(k,1951)
    7715   141174528 :          lu(k,2004) = lu(k,2004) - lu(k,1849) * lu(k,2003)
    7716   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1850) * lu(k,2003)
    7717   141174528 :          lu(k,2006) = lu(k,2006) - lu(k,1851) * lu(k,2003)
    7718   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1852) * lu(k,2003)
    7719   141174528 :          lu(k,2008) = lu(k,2008) - lu(k,1853) * lu(k,2003)
    7720   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1854) * lu(k,2003)
    7721   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1855) * lu(k,2003)
    7722   141174528 :          lu(k,2011) = lu(k,2011) - lu(k,1856) * lu(k,2003)
    7723   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1857) * lu(k,2003)
    7724   141174528 :          lu(k,2027) = lu(k,2027) - lu(k,1849) * lu(k,2026)
    7725   141174528 :          lu(k,2028) = lu(k,2028) - lu(k,1850) * lu(k,2026)
    7726   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,1851) * lu(k,2026)
    7727   141174528 :          lu(k,2030) = lu(k,2030) - lu(k,1852) * lu(k,2026)
    7728   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,1853) * lu(k,2026)
    7729   141174528 :          lu(k,2032) = lu(k,2032) - lu(k,1854) * lu(k,2026)
    7730   141174528 :          lu(k,2033) = lu(k,2033) - lu(k,1855) * lu(k,2026)
    7731   141174528 :          lu(k,2034) = lu(k,2034) - lu(k,1856) * lu(k,2026)
    7732   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,1857) * lu(k,2026)
    7733   141174528 :          lu(k,2086) = lu(k,2086) - lu(k,1849) * lu(k,2085)
    7734   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1850) * lu(k,2085)
    7735   141174528 :          lu(k,2088) = lu(k,2088) - lu(k,1851) * lu(k,2085)
    7736   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1852) * lu(k,2085)
    7737   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,1853) * lu(k,2085)
    7738   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1854) * lu(k,2085)
    7739   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1855) * lu(k,2085)
    7740   141174528 :          lu(k,2093) = lu(k,2093) - lu(k,1856) * lu(k,2085)
    7741   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1857) * lu(k,2085)
    7742   141174528 :          lu(k,2125) = lu(k,2125) - lu(k,1849) * lu(k,2124)
    7743   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1850) * lu(k,2124)
    7744   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,1851) * lu(k,2124)
    7745   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1852) * lu(k,2124)
    7746   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,1853) * lu(k,2124)
    7747   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,1854) * lu(k,2124)
    7748   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1855) * lu(k,2124)
    7749   141174528 :          lu(k,2132) = lu(k,2132) - lu(k,1856) * lu(k,2124)
    7750   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1857) * lu(k,2124)
    7751   141174528 :          lu(k,2187) = lu(k,2187) - lu(k,1849) * lu(k,2186)
    7752   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1850) * lu(k,2186)
    7753   141174528 :          lu(k,2189) = lu(k,2189) - lu(k,1851) * lu(k,2186)
    7754   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1852) * lu(k,2186)
    7755   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,1853) * lu(k,2186)
    7756   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1854) * lu(k,2186)
    7757   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1855) * lu(k,2186)
    7758   141174528 :          lu(k,2194) = lu(k,2194) - lu(k,1856) * lu(k,2186)
    7759   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1857) * lu(k,2186)
    7760   141174528 :          lu(k,2305) = lu(k,2305) - lu(k,1849) * lu(k,2304)
    7761   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1850) * lu(k,2304)
    7762   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,1851) * lu(k,2304)
    7763   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1852) * lu(k,2304)
    7764   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,1853) * lu(k,2304)
    7765   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1854) * lu(k,2304)
    7766   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1855) * lu(k,2304)
    7767   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,1856) * lu(k,2304)
    7768   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1857) * lu(k,2304)
    7769   141174528 :          lu(k,2331) = lu(k,2331) - lu(k,1849) * lu(k,2330)
    7770   141174528 :          lu(k,2332) = lu(k,2332) - lu(k,1850) * lu(k,2330)
    7771   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,1851) * lu(k,2330)
    7772   141174528 :          lu(k,2334) = lu(k,2334) - lu(k,1852) * lu(k,2330)
    7773   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,1853) * lu(k,2330)
    7774   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,1854) * lu(k,2330)
    7775   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,1855) * lu(k,2330)
    7776   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,1856) * lu(k,2330)
    7777   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,1857) * lu(k,2330)
    7778   141174528 :          lu(k,2357) = lu(k,2357) - lu(k,1849) * lu(k,2356)
    7779   141174528 :          lu(k,2358) = lu(k,2358) - lu(k,1850) * lu(k,2356)
    7780   141174528 :          lu(k,2359) = lu(k,2359) - lu(k,1851) * lu(k,2356)
    7781   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,1852) * lu(k,2356)
    7782   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,1853) * lu(k,2356)
    7783   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,1854) * lu(k,2356)
    7784   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1855) * lu(k,2356)
    7785   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,1856) * lu(k,2356)
    7786   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,1857) * lu(k,2356)
    7787   141174528 :          lu(k,1952) = 1._r8 / lu(k,1952)
    7788   141174528 :          lu(k,1953) = lu(k,1953) * lu(k,1952)
    7789   141174528 :          lu(k,1954) = lu(k,1954) * lu(k,1952)
    7790   141174528 :          lu(k,1955) = lu(k,1955) * lu(k,1952)
    7791   141174528 :          lu(k,1956) = lu(k,1956) * lu(k,1952)
    7792   141174528 :          lu(k,1957) = lu(k,1957) * lu(k,1952)
    7793   141174528 :          lu(k,1958) = lu(k,1958) * lu(k,1952)
    7794   141174528 :          lu(k,1959) = lu(k,1959) * lu(k,1952)
    7795   141174528 :          lu(k,1960) = lu(k,1960) * lu(k,1952)
    7796   141174528 :          lu(k,2005) = lu(k,2005) - lu(k,1953) * lu(k,2004)
    7797   141174528 :          lu(k,2006) = lu(k,2006) - lu(k,1954) * lu(k,2004)
    7798   141174528 :          lu(k,2007) = lu(k,2007) - lu(k,1955) * lu(k,2004)
    7799   141174528 :          lu(k,2008) = lu(k,2008) - lu(k,1956) * lu(k,2004)
    7800   141174528 :          lu(k,2009) = lu(k,2009) - lu(k,1957) * lu(k,2004)
    7801   141174528 :          lu(k,2010) = lu(k,2010) - lu(k,1958) * lu(k,2004)
    7802   141174528 :          lu(k,2011) = lu(k,2011) - lu(k,1959) * lu(k,2004)
    7803   141174528 :          lu(k,2012) = lu(k,2012) - lu(k,1960) * lu(k,2004)
    7804   141174528 :          lu(k,2028) = lu(k,2028) - lu(k,1953) * lu(k,2027)
    7805   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,1954) * lu(k,2027)
    7806   141174528 :          lu(k,2030) = lu(k,2030) - lu(k,1955) * lu(k,2027)
    7807   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,1956) * lu(k,2027)
    7808   141174528 :          lu(k,2032) = lu(k,2032) - lu(k,1957) * lu(k,2027)
    7809   141174528 :          lu(k,2033) = lu(k,2033) - lu(k,1958) * lu(k,2027)
    7810   141174528 :          lu(k,2034) = lu(k,2034) - lu(k,1959) * lu(k,2027)
    7811   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,1960) * lu(k,2027)
    7812   141174528 :          lu(k,2087) = lu(k,2087) - lu(k,1953) * lu(k,2086)
    7813   141174528 :          lu(k,2088) = lu(k,2088) - lu(k,1954) * lu(k,2086)
    7814   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,1955) * lu(k,2086)
    7815   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,1956) * lu(k,2086)
    7816   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,1957) * lu(k,2086)
    7817   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,1958) * lu(k,2086)
    7818   141174528 :          lu(k,2093) = lu(k,2093) - lu(k,1959) * lu(k,2086)
    7819   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,1960) * lu(k,2086)
    7820   141174528 :          lu(k,2126) = lu(k,2126) - lu(k,1953) * lu(k,2125)
    7821   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,1954) * lu(k,2125)
    7822   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,1955) * lu(k,2125)
    7823   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,1956) * lu(k,2125)
    7824   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,1957) * lu(k,2125)
    7825   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,1958) * lu(k,2125)
    7826   141174528 :          lu(k,2132) = lu(k,2132) - lu(k,1959) * lu(k,2125)
    7827   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,1960) * lu(k,2125)
    7828   141174528 :          lu(k,2188) = lu(k,2188) - lu(k,1953) * lu(k,2187)
    7829   141174528 :          lu(k,2189) = lu(k,2189) - lu(k,1954) * lu(k,2187)
    7830   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,1955) * lu(k,2187)
    7831   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,1956) * lu(k,2187)
    7832   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,1957) * lu(k,2187)
    7833   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,1958) * lu(k,2187)
    7834   141174528 :          lu(k,2194) = lu(k,2194) - lu(k,1959) * lu(k,2187)
    7835   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,1960) * lu(k,2187)
    7836   141174528 :          lu(k,2306) = lu(k,2306) - lu(k,1953) * lu(k,2305)
    7837   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,1954) * lu(k,2305)
    7838   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,1955) * lu(k,2305)
    7839   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,1956) * lu(k,2305)
    7840   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,1957) * lu(k,2305)
    7841   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,1958) * lu(k,2305)
    7842   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,1959) * lu(k,2305)
    7843   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,1960) * lu(k,2305)
    7844   141174528 :          lu(k,2332) = lu(k,2332) - lu(k,1953) * lu(k,2331)
    7845   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,1954) * lu(k,2331)
    7846   141174528 :          lu(k,2334) = lu(k,2334) - lu(k,1955) * lu(k,2331)
    7847   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,1956) * lu(k,2331)
    7848   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,1957) * lu(k,2331)
    7849   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,1958) * lu(k,2331)
    7850   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,1959) * lu(k,2331)
    7851   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,1960) * lu(k,2331)
    7852   141174528 :          lu(k,2358) = lu(k,2358) - lu(k,1953) * lu(k,2357)
    7853   141174528 :          lu(k,2359) = lu(k,2359) - lu(k,1954) * lu(k,2357)
    7854   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,1955) * lu(k,2357)
    7855   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,1956) * lu(k,2357)
    7856   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,1957) * lu(k,2357)
    7857   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,1958) * lu(k,2357)
    7858   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,1959) * lu(k,2357)
    7859   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,1960) * lu(k,2357)
    7860   141174528 :          lu(k,2005) = 1._r8 / lu(k,2005)
    7861   141174528 :          lu(k,2006) = lu(k,2006) * lu(k,2005)
    7862   141174528 :          lu(k,2007) = lu(k,2007) * lu(k,2005)
    7863   141174528 :          lu(k,2008) = lu(k,2008) * lu(k,2005)
    7864   141174528 :          lu(k,2009) = lu(k,2009) * lu(k,2005)
    7865   141174528 :          lu(k,2010) = lu(k,2010) * lu(k,2005)
    7866   141174528 :          lu(k,2011) = lu(k,2011) * lu(k,2005)
    7867   141174528 :          lu(k,2012) = lu(k,2012) * lu(k,2005)
    7868   141174528 :          lu(k,2029) = lu(k,2029) - lu(k,2006) * lu(k,2028)
    7869   141174528 :          lu(k,2030) = lu(k,2030) - lu(k,2007) * lu(k,2028)
    7870   141174528 :          lu(k,2031) = lu(k,2031) - lu(k,2008) * lu(k,2028)
    7871   141174528 :          lu(k,2032) = lu(k,2032) - lu(k,2009) * lu(k,2028)
    7872   141174528 :          lu(k,2033) = lu(k,2033) - lu(k,2010) * lu(k,2028)
    7873   141174528 :          lu(k,2034) = lu(k,2034) - lu(k,2011) * lu(k,2028)
    7874   141174528 :          lu(k,2035) = lu(k,2035) - lu(k,2012) * lu(k,2028)
    7875   141174528 :          lu(k,2088) = lu(k,2088) - lu(k,2006) * lu(k,2087)
    7876   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,2007) * lu(k,2087)
    7877   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,2008) * lu(k,2087)
    7878   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,2009) * lu(k,2087)
    7879   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,2010) * lu(k,2087)
    7880   141174528 :          lu(k,2093) = lu(k,2093) - lu(k,2011) * lu(k,2087)
    7881   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,2012) * lu(k,2087)
    7882   141174528 :          lu(k,2127) = lu(k,2127) - lu(k,2006) * lu(k,2126)
    7883   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,2007) * lu(k,2126)
    7884   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,2008) * lu(k,2126)
    7885   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,2009) * lu(k,2126)
    7886   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,2010) * lu(k,2126)
    7887   141174528 :          lu(k,2132) = lu(k,2132) - lu(k,2011) * lu(k,2126)
    7888   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,2012) * lu(k,2126)
    7889   141174528 :          lu(k,2189) = lu(k,2189) - lu(k,2006) * lu(k,2188)
    7890   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,2007) * lu(k,2188)
    7891   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,2008) * lu(k,2188)
    7892   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,2009) * lu(k,2188)
    7893   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,2010) * lu(k,2188)
    7894   141174528 :          lu(k,2194) = lu(k,2194) - lu(k,2011) * lu(k,2188)
    7895   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,2012) * lu(k,2188)
    7896   141174528 :          lu(k,2307) = lu(k,2307) - lu(k,2006) * lu(k,2306)
    7897   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,2007) * lu(k,2306)
    7898   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,2008) * lu(k,2306)
    7899   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,2009) * lu(k,2306)
    7900   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,2010) * lu(k,2306)
    7901   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,2011) * lu(k,2306)
    7902   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,2012) * lu(k,2306)
    7903   141174528 :          lu(k,2333) = lu(k,2333) - lu(k,2006) * lu(k,2332)
    7904   141174528 :          lu(k,2334) = lu(k,2334) - lu(k,2007) * lu(k,2332)
    7905   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,2008) * lu(k,2332)
    7906   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,2009) * lu(k,2332)
    7907   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,2010) * lu(k,2332)
    7908   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,2011) * lu(k,2332)
    7909   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,2012) * lu(k,2332)
    7910   141174528 :          lu(k,2359) = lu(k,2359) - lu(k,2006) * lu(k,2358)
    7911   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,2007) * lu(k,2358)
    7912   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,2008) * lu(k,2358)
    7913   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,2009) * lu(k,2358)
    7914   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,2010) * lu(k,2358)
    7915   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,2011) * lu(k,2358)
    7916   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,2012) * lu(k,2358)
    7917   141174528 :          lu(k,2029) = 1._r8 / lu(k,2029)
    7918   141174528 :          lu(k,2030) = lu(k,2030) * lu(k,2029)
    7919   141174528 :          lu(k,2031) = lu(k,2031) * lu(k,2029)
    7920   141174528 :          lu(k,2032) = lu(k,2032) * lu(k,2029)
    7921   141174528 :          lu(k,2033) = lu(k,2033) * lu(k,2029)
    7922   141174528 :          lu(k,2034) = lu(k,2034) * lu(k,2029)
    7923   141174528 :          lu(k,2035) = lu(k,2035) * lu(k,2029)
    7924   141174528 :          lu(k,2089) = lu(k,2089) - lu(k,2030) * lu(k,2088)
    7925   141174528 :          lu(k,2090) = lu(k,2090) - lu(k,2031) * lu(k,2088)
    7926   141174528 :          lu(k,2091) = lu(k,2091) - lu(k,2032) * lu(k,2088)
    7927   141174528 :          lu(k,2092) = lu(k,2092) - lu(k,2033) * lu(k,2088)
    7928   141174528 :          lu(k,2093) = lu(k,2093) - lu(k,2034) * lu(k,2088)
    7929   141174528 :          lu(k,2094) = lu(k,2094) - lu(k,2035) * lu(k,2088)
    7930   141174528 :          lu(k,2128) = lu(k,2128) - lu(k,2030) * lu(k,2127)
    7931   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,2031) * lu(k,2127)
    7932   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,2032) * lu(k,2127)
    7933   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,2033) * lu(k,2127)
    7934   141174528 :          lu(k,2132) = lu(k,2132) - lu(k,2034) * lu(k,2127)
    7935   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,2035) * lu(k,2127)
    7936   141174528 :          lu(k,2190) = lu(k,2190) - lu(k,2030) * lu(k,2189)
    7937   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,2031) * lu(k,2189)
    7938   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,2032) * lu(k,2189)
    7939   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,2033) * lu(k,2189)
    7940   141174528 :          lu(k,2194) = lu(k,2194) - lu(k,2034) * lu(k,2189)
    7941   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,2035) * lu(k,2189)
    7942   141174528 :          lu(k,2308) = lu(k,2308) - lu(k,2030) * lu(k,2307)
    7943   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,2031) * lu(k,2307)
    7944   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,2032) * lu(k,2307)
    7945   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,2033) * lu(k,2307)
    7946   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,2034) * lu(k,2307)
    7947   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,2035) * lu(k,2307)
    7948   141174528 :          lu(k,2334) = lu(k,2334) - lu(k,2030) * lu(k,2333)
    7949   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,2031) * lu(k,2333)
    7950   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,2032) * lu(k,2333)
    7951   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,2033) * lu(k,2333)
    7952   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,2034) * lu(k,2333)
    7953   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,2035) * lu(k,2333)
    7954   141174528 :          lu(k,2360) = lu(k,2360) - lu(k,2030) * lu(k,2359)
    7955   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,2031) * lu(k,2359)
    7956   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,2032) * lu(k,2359)
    7957   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,2033) * lu(k,2359)
    7958   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,2034) * lu(k,2359)
    7959   145586232 :          lu(k,2365) = lu(k,2365) - lu(k,2035) * lu(k,2359)
    7960             :       end do
    7961     4411704 :       end subroutine lu_fac30
    7962     4411704 :       subroutine lu_fac31( avec_len, lu )
    7963             :       use chem_mods, only : nzcnt
    7964             :       use shr_kind_mod, only : r8 => shr_kind_r8
    7965             :       implicit none
    7966             : !-----------------------------------------------------------------------
    7967             : ! ... dummy args
    7968             : !-----------------------------------------------------------------------
    7969             :       integer, intent(in) :: avec_len
    7970             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    7971             : !-----------------------------------------------------------------------
    7972             : ! ... local variables
    7973             : !-----------------------------------------------------------------------
    7974             :       integer :: k
    7975   145586232 :       do k = 1,avec_len
    7976   141174528 :          lu(k,2089) = 1._r8 / lu(k,2089)
    7977   141174528 :          lu(k,2090) = lu(k,2090) * lu(k,2089)
    7978   141174528 :          lu(k,2091) = lu(k,2091) * lu(k,2089)
    7979   141174528 :          lu(k,2092) = lu(k,2092) * lu(k,2089)
    7980   141174528 :          lu(k,2093) = lu(k,2093) * lu(k,2089)
    7981   141174528 :          lu(k,2094) = lu(k,2094) * lu(k,2089)
    7982   141174528 :          lu(k,2129) = lu(k,2129) - lu(k,2090) * lu(k,2128)
    7983   141174528 :          lu(k,2130) = lu(k,2130) - lu(k,2091) * lu(k,2128)
    7984   141174528 :          lu(k,2131) = lu(k,2131) - lu(k,2092) * lu(k,2128)
    7985   141174528 :          lu(k,2132) = lu(k,2132) - lu(k,2093) * lu(k,2128)
    7986   141174528 :          lu(k,2133) = lu(k,2133) - lu(k,2094) * lu(k,2128)
    7987   141174528 :          lu(k,2191) = lu(k,2191) - lu(k,2090) * lu(k,2190)
    7988   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,2091) * lu(k,2190)
    7989   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,2092) * lu(k,2190)
    7990   141174528 :          lu(k,2194) = lu(k,2194) - lu(k,2093) * lu(k,2190)
    7991   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,2094) * lu(k,2190)
    7992   141174528 :          lu(k,2309) = lu(k,2309) - lu(k,2090) * lu(k,2308)
    7993   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,2091) * lu(k,2308)
    7994   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,2092) * lu(k,2308)
    7995   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,2093) * lu(k,2308)
    7996   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,2094) * lu(k,2308)
    7997   141174528 :          lu(k,2335) = lu(k,2335) - lu(k,2090) * lu(k,2334)
    7998   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,2091) * lu(k,2334)
    7999   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,2092) * lu(k,2334)
    8000   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,2093) * lu(k,2334)
    8001   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,2094) * lu(k,2334)
    8002   141174528 :          lu(k,2361) = lu(k,2361) - lu(k,2090) * lu(k,2360)
    8003   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,2091) * lu(k,2360)
    8004   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,2092) * lu(k,2360)
    8005   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,2093) * lu(k,2360)
    8006   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,2094) * lu(k,2360)
    8007   141174528 :          lu(k,2129) = 1._r8 / lu(k,2129)
    8008   141174528 :          lu(k,2130) = lu(k,2130) * lu(k,2129)
    8009   141174528 :          lu(k,2131) = lu(k,2131) * lu(k,2129)
    8010   141174528 :          lu(k,2132) = lu(k,2132) * lu(k,2129)
    8011   141174528 :          lu(k,2133) = lu(k,2133) * lu(k,2129)
    8012   141174528 :          lu(k,2192) = lu(k,2192) - lu(k,2130) * lu(k,2191)
    8013   141174528 :          lu(k,2193) = lu(k,2193) - lu(k,2131) * lu(k,2191)
    8014   141174528 :          lu(k,2194) = lu(k,2194) - lu(k,2132) * lu(k,2191)
    8015   141174528 :          lu(k,2195) = lu(k,2195) - lu(k,2133) * lu(k,2191)
    8016   141174528 :          lu(k,2310) = lu(k,2310) - lu(k,2130) * lu(k,2309)
    8017   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,2131) * lu(k,2309)
    8018   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,2132) * lu(k,2309)
    8019   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,2133) * lu(k,2309)
    8020   141174528 :          lu(k,2336) = lu(k,2336) - lu(k,2130) * lu(k,2335)
    8021   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,2131) * lu(k,2335)
    8022   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,2132) * lu(k,2335)
    8023   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,2133) * lu(k,2335)
    8024   141174528 :          lu(k,2362) = lu(k,2362) - lu(k,2130) * lu(k,2361)
    8025   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,2131) * lu(k,2361)
    8026   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,2132) * lu(k,2361)
    8027   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,2133) * lu(k,2361)
    8028   141174528 :          lu(k,2192) = 1._r8 / lu(k,2192)
    8029   141174528 :          lu(k,2193) = lu(k,2193) * lu(k,2192)
    8030   141174528 :          lu(k,2194) = lu(k,2194) * lu(k,2192)
    8031   141174528 :          lu(k,2195) = lu(k,2195) * lu(k,2192)
    8032   141174528 :          lu(k,2311) = lu(k,2311) - lu(k,2193) * lu(k,2310)
    8033   141174528 :          lu(k,2312) = lu(k,2312) - lu(k,2194) * lu(k,2310)
    8034   141174528 :          lu(k,2313) = lu(k,2313) - lu(k,2195) * lu(k,2310)
    8035   141174528 :          lu(k,2337) = lu(k,2337) - lu(k,2193) * lu(k,2336)
    8036   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,2194) * lu(k,2336)
    8037   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,2195) * lu(k,2336)
    8038   141174528 :          lu(k,2363) = lu(k,2363) - lu(k,2193) * lu(k,2362)
    8039   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,2194) * lu(k,2362)
    8040   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,2195) * lu(k,2362)
    8041   141174528 :          lu(k,2311) = 1._r8 / lu(k,2311)
    8042   141174528 :          lu(k,2312) = lu(k,2312) * lu(k,2311)
    8043   141174528 :          lu(k,2313) = lu(k,2313) * lu(k,2311)
    8044   141174528 :          lu(k,2338) = lu(k,2338) - lu(k,2312) * lu(k,2337)
    8045   141174528 :          lu(k,2339) = lu(k,2339) - lu(k,2313) * lu(k,2337)
    8046   141174528 :          lu(k,2364) = lu(k,2364) - lu(k,2312) * lu(k,2363)
    8047   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,2313) * lu(k,2363)
    8048   141174528 :          lu(k,2338) = 1._r8 / lu(k,2338)
    8049   141174528 :          lu(k,2339) = lu(k,2339) * lu(k,2338)
    8050   141174528 :          lu(k,2365) = lu(k,2365) - lu(k,2339) * lu(k,2364)
    8051   145586232 :          lu(k,2365) = 1._r8 / lu(k,2365)
    8052             :       end do
    8053     4411704 :       end subroutine lu_fac31
    8054     4411704 :       subroutine lu_fac( avec_len, lu )
    8055             :       use chem_mods, only : nzcnt
    8056             :       use shr_kind_mod, only : r8 => shr_kind_r8
    8057             :       implicit none
    8058             : !-----------------------------------------------------------------------
    8059             : ! ... dummy args
    8060             : !-----------------------------------------------------------------------
    8061             :       integer, intent(in) :: avec_len
    8062             :       real(r8), intent(inout) :: lu(veclen,nzcnt)
    8063     4411704 :       call lu_fac01( avec_len, lu )
    8064     4411704 :       call lu_fac02( avec_len, lu )
    8065     4411704 :       call lu_fac03( avec_len, lu )
    8066     4411704 :       call lu_fac04( avec_len, lu )
    8067     4411704 :       call lu_fac05( avec_len, lu )
    8068     4411704 :       call lu_fac06( avec_len, lu )
    8069     4411704 :       call lu_fac07( avec_len, lu )
    8070     4411704 :       call lu_fac08( avec_len, lu )
    8071     4411704 :       call lu_fac09( avec_len, lu )
    8072     4411704 :       call lu_fac10( avec_len, lu )
    8073     4411704 :       call lu_fac11( avec_len, lu )
    8074     4411704 :       call lu_fac12( avec_len, lu )
    8075     4411704 :       call lu_fac13( avec_len, lu )
    8076     4411704 :       call lu_fac14( avec_len, lu )
    8077     4411704 :       call lu_fac15( avec_len, lu )
    8078     4411704 :       call lu_fac16( avec_len, lu )
    8079     4411704 :       call lu_fac17( avec_len, lu )
    8080     4411704 :       call lu_fac18( avec_len, lu )
    8081     4411704 :       call lu_fac19( avec_len, lu )
    8082     4411704 :       call lu_fac20( avec_len, lu )
    8083     4411704 :       call lu_fac21( avec_len, lu )
    8084     4411704 :       call lu_fac22( avec_len, lu )
    8085     4411704 :       call lu_fac23( avec_len, lu )
    8086     4411704 :       call lu_fac24( avec_len, lu )
    8087     4411704 :       call lu_fac25( avec_len, lu )
    8088     4411704 :       call lu_fac26( avec_len, lu )
    8089     4411704 :       call lu_fac27( avec_len, lu )
    8090     4411704 :       call lu_fac28( avec_len, lu )
    8091     4411704 :       call lu_fac29( avec_len, lu )
    8092     4411704 :       call lu_fac30( avec_len, lu )
    8093     4411704 :       call lu_fac31( avec_len, lu )
    8094     4411704 :       end subroutine lu_fac
    8095             :       end module mo_lu_factor

Generated by: LCOV version 1.14